2013-06-19 07:58

'----------------------------------------------------------
'
' BARCODE CODE 39
'
'----------------------------------------------------------
     $APPTYPE  CONSOLE
     $OPTIMIZE ON
'
     $INCLUDE "c:\inc\c39.inc"
     $INCLUDE "c:\inc\makebmp.inc"
'
     DIM barcod AS STRING

' controleer command string
     tekst = COMMAND$(1)
     IF tekst="" THEN tekst = "C39"

     filename = COMMAND$(2)
     IF filename ="" THEN filename ="c:\c39.bmp"
'
' maak de barcode zwart/wit string
     barcod=code39(tekst)

     BLineWidth=3           ' breedte per lijn

' maak van de barcode zwart/wit string een bmp plaatje
     makebmp (barcod,tekst,BLineWidth,filename)

2013-06-19 07:58