Programming instructions

167
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.
330000 'Error 1022 Head lifted
330010 DISP1$ = "HEAD LIFTED"
330020 DISP2$ = "ERR NO. " + STR$ (ERR)
330030 GOSUB 600000
330040 IF (PRSTAT AND 1) THEN GOTO 330040
330050 FORMFEED
330060 IF PCOMMAND% THEN GOSUB 500000
330200 RETURN
340000 'Error 1027 Out of transfer ribbon
340010 DISP1$ = "OUT OF RIBBON"
340020 DISP2$ = "ERR NO. " + STR$ (ERR)
340030 GOSUB 600000
340040 IF (PRSTAT AND 8) THEN GOTO 340040
340050 GOSUB 1500000
340200 IF PCOMMAND% THEN GOSUB 500000
349000 RETURN
400000 'Feed routine
400010 EFLAG% = 0
400020 FORMFEED
400200 IF EFLAG% <> 0 THEN GOSUB 200000
400300 RETURN
500000 'Print routine
500010 EFLAG% = 0
500020 PCOMMAND% = 1
500030 PRINTFEED
500040 IF EFLAG% <> 0 THEN GOSUB 200000
500100 PCOMMAND% = 0
500300 RETURN
600000 'Display handler
600010 PRINT # 10
600020 PRINT # 10
600030 PRINT # 10, DISP1$
600040 PRINT # 10, DISP2$;
600200 RETURN
700000 'Init routine
700010 ON ERROR GOTO 100000
700020 OPEN "console:" FOR OUTPUT AS # 10
700030 DISP1$ = NORDIS1$ : DISP2$ = NORDIS2$
700040 GOSUB 600000
700100 ON KEY (15) GOSUB 1500000 : 'PAUSE
700110 ON KEY (17) GOSUB 1700000 : 'PRINT
700120 ON KEY (18) GOSUB 1800000 : 'SETUP
700130 ON KEY (19) GOSUB 1900000 : 'FEED
700140 KEY (15) ON
700150 KEY (17) ON
700160 KEY (18) ON
700170 KEY (19) ON
700230 LED (0) ON
700240 LED (1) OFF