Public Sub Main()
If Application.Args[1] = "" Then
'modo gráfico,ya que no se ha introducido ningun numero
FMain.Show()
Else
'generar imagen internamente...
If Len(Application.Args[1]) <> 13 Then
Print "Error: introduce un numero valido EAN-13 (" & Application.Args[1] & ")"
Quit
Else
'borro la imagen anterior si la hay.
Try Kill "/tmp/codigoBarras.png"
'genero imagen del codigo y la guardo en
imagen(Application.Args[1])
Quit
Endif
Endif
End