KEYENCE N-400 - Manual (Page 133)

125
Appendices
Appendices
2100 '
3000 '*COMMAND RECEIVE:'***RECEIVING COMMAND****************
3010 MDAT$ = MID$(DAT$, 6, 2)
3020 IF MDAT$ = "NC" THEN GOSUB 5000: RETURN
3030 MDAT$ = MID$(DAT$, 6, 4)
3040 IF MDAT$ = "SERR" THEN GOSUB 6000: RETURN
3050 GOSUB 9000: RETURN
3060 '
4000 '*BUFFOVER :'***BUFFER OVER****************************
4010 PRINT DAT$
4020 PRINT "THE UNIT #"; MID$(DAT$, 3, 2); " OCCURS BUFFER OVER."
4030 DAT$ = ""
4040 RETURN
4050 '
5000 '*NOCONNECT :'***CONNECTION ERROR**********************
5010 PRINT DAT$
5020 PRINT "THE UNIT #"; MID$(DAT$, 3, 2); " IS NOT CONNECTED."
5030 DAT$ = ""
5040 RETURN
5050 '
6000 '*SRLERR :'***COMMUNICATION ERROR**********************
6010 PRINT DAT$
6020 PRINT "COMMUNICATION ERROR - PLEASE RETRY"
6030 DAT$ = ""
6040 RETURN
6050 '
7000 '*EMPTY :'***NO DATA***********************************
7010 PRINT DAT$
7020 PRINT "THE UNIT #"; MID$(DAT$, 3, 2); " HAS NO DATA."
7030 DAT$ = ""
7040 RETURN
7050 '
8000 '*BARCODE :'***DISPLAYING READ DATA********************
8010 PRINT DAT$
8020 PRINT "THE UNIT #"; MID$(DAT$, 3, 2); " READS THE DATA AS";
MID$(DAT$, 6)
8030 DAT$ = ""
8040 RETURN
8050 '
9000 '*RESPONSE :'***DISPLAYING RESPONSE********************
9010 PRINT DAT$; " WAS RETURNED."
9020 DAT$ = ""
9030 RETURN
9040 WEND
9050 CLOSE #1
9060 END
Note: This sample program is shown for your reference only. Please note that this
may not work correctly depending on the version of BASIC you use.