80
CipherLab BASIC Programming Part I
READER_SETTING(5, 0)
READER_SETTING(132, 0)
READER_CONFIG ‘ enable the new settings for 2D or
‘ Long Range Laser engines
ENABLE READER(1) ‘ enable the reader
ON READER(1) GOSUB G_Reader_Data
CLS
GOSUB MainScreen
MainLoop:
Data$ = GET_READER_DATA$(1)
IF LEN(Data$) <> 0 THEN ‘ check if there are valid data
GOSUB MainScreen
END IF
WAIT(10) ‘ for power saving
GOTO MainLoop
MainScreen:
CLS
CodeLEN% = LEN(Data$)
PRINT “ Reader Testing”
PRINT “CODE TYPE:”
PRINT CodeType$
PRINT “Code Length:”, CodeLEN%
PRINT “Count:”, Count%
PRINT “Data:”, Data$
GetMoreData:
Data$ = GET_READER_DATA$(1) ‘ check if there are more data
IF LEN(Data$) <> 0 THEN ‘ if yes, meaning totally the data