Programming instructions

168
Intermec Fingerprint 6.13 – Programmer's Guide
Continued!
16. ERROR-HANDLING, cont'd.
4. Error-Handling
Program, cont'd.
Listing of ERRHAND.PRG Utility Program, cont'd.
700300 PAUSE% = 0
700500 RETURN
1500000 'Pause function
1500010 KEY (15) ON
1500020 PAUSE% = PAUSE% XOR 1
1500030 BUSY : LED (0) OFF
1500040 DISP1$ = "Press <PAUSE>" :
DISP2$ = "to continue"
1500050 GOSUB 600000
1500060 IF PAUSE% = 0 THEN GOTO 1500100
1500070 SOUND 131, 2
1500080 SOUND 30000, 20
1500090 IF PAUSE% THEN GOTO 1500070
1500100 READY : LED (0) ON
1500110 DISP1$ = NORDIS1$ : DISP2$ = NORDIS2$
1500120 GOSUB 600000
1502000 RETURN
1700000 'Printkey
1700010 KEY (17) OFF
1700020 GOSUB 500000
1700030 KEY (17) ON
1700200 RETURN
1800000 'Setup key
1800010 KEY (18) OFF
1800020 LED (0) OFF
1800030 BUSY
1800040 SETUP
1800050 READY
1800060 LED (0) ON
1800080 KEY (18) ON
1800090 DISP1$ = NORDIS1$ : DISP2$ = NORDIS2$
1800100 GOSUB 600000
1800200 RETURN
1900000 'Feed key
1900010 KEY (19) OFF
1900020 GOSUB 400000
1900030 KEY (19) ON
1900200 RETURN