2001-06-14 20:30

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

     BLineWidth=3           ' breedte per lijn
     filename  ="C93.bmp"

     barcod=code93("TEST93")

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

2001-06-14 20:30