81
‘ is longer than 255 bytes
‘ (must be 2D code)
CodeLEN% = CodeLEN%+LEN(Data$)
PRINT Data$
GOTO GetMoreData
END IF
LOCATE 4, 1
PRINT “Code Length:”, CodeLEN%
RETURN
G_Reader_Data:
BEEP(4000, 8)
Count% = Count% + 1
IF CODE_TYPE = 65 THEN
CodeType$ = “Code 39”
ELSE IF CODE_TYPE = 66 THEN
CodeType$ = “Italian Pharmacode”
ELSE IF CODE_TYPE = 67 THEN
CodeType$ = “CIP 39”
ELSE IF CODE_TYPE = 68 THEN
CodeType$ = “Industrial 25”
ELSE IF CODE_TYPE = 69 THEN
CodeType$ = “Interleave 25”
ELSE IF CODE_TYPE = 70 THEN
CodeType$ = “Matrix 25”
ELSE IF CODE_TYPE = 71 THEN
CodeType$ = “Codabar”