2013-06-19 07:58

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

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

     barcod=codabar("A40156B")

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

2013-06-19 07:58