2001-06-15 01:31

'----------------------------------------------------------
'
' BARCODE CODE 39   FULL ASCII  /  CODE 39 EXENTED
'
'----------------------------------------------------------
     $APPTYPE  CONSOLE
     $OPTIMIZE ON
'
     $INCLUDE "c:\inc\c39.inc"
     $INCLUDE "c:\inc\C39FA.INC"
     $INCLUDE "c:\inc\makebmp.inc"
'
     DIM barcod  AS STRING
     DIM barcod2 AS STRING
     DIM TEXT AS STRING

     BLineWidth=3           ' breedte per lijn
     filename  ="c39fa.bmp"
     TEXT="aA"

     barcod=code39fa(text) ' converts text in to C39 FULL ASCII

     barcod2=code39(barcod)' MAKE BARCODE 0/1 BITMAP
     barcod2=MID$(barcod2,LEN(barcod)+1,LEN(barcod2)) ' this line is needed because a bug???

     makebmp (barcod2,text,BLineWidth,filename)

2001-06-15 01:31