2001-06-14 00:26

'----------------------------------------------------------
'
' BARCODE CODE INTERLEAF 2 OF 5
'
'----------------------------------------------------------
     $APPTYPE  CONSOLE
     $OPTIMIZE ON
'
     $INCLUDE "c:\inc\I2OF5.inc"
     $INCLUDE "c:\inc\makebmp.inc"
'
     DIM barcod AS STRING

     BLineWidth=3                       ' MINIMUM BAR WIDTH
     filename  ="c:\inc\I2OF5.bmp"      ' PICTURE FILENAME

     barcod=I25("12345670")             ' BARCODE TEKST

     makebmp (barcod,"1234567",BLineWidth,filename)

2001-06-14 00:26