Intermec PM23c Fingerprint Developer's Guide (PC23d, PC43d/t, PM23c, PM43, PM4 - Page 142
Error Handling, Fingerprint Developer's Guide, IF EFLAG%<>0 THEN GOSUB 20
View all Intermec PM23c manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 142 highlights
Chapter 8 - Error Handling 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 340051 GOSUB 1501000 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 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 " : 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 1501000 'PD41 Pause function 1501005 ON KEY 17 GOSUB 1501000 : 'Temporarily hijack the PRINT key. 1501010 KEY 17 ON 130 Fingerprint Developer's Guide