Intermec PD41 Fingerprint Developer's Guide (old) - Page 152
Error Handling, Intermec Fingerprint Developer's Guide
View all Intermec PD41 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 152 highlights
Chapter 8 - Error Handling 300010 DISP1$="LABEL NOT FOUND" 300020 DISP2$="ERR NO. "+STR$(ERR) 300030 GOSUB 600000 300040 EFLAG%=0 300050 FORMFEED 300060 IF EFLAG%=1031 THEN GOTO 300040 300200 RETURN 310000 'Error 1005 Out of paper 310010 DISP1$="OUT OF PAPER" 310020 DISP2$="ERR NO. "+STR$(ERR) 310030 GOSUB 600000 310040 IF (PRSTAT AND 1)=0 THEN GOTO 310040 : ' Wait until head lifted 310050 EFLAG%=0 310060 IF (PRSTAT AND 1)=0 THEN FORMFEED ELSE GOTO 310060 310070 IF EFLAG%=1005 THEN GOTO 310040 310080 IF EFLAG%=1031 THEN GOSUB 300000 310200 RETURN 320000 'Error 1006 no field to print 320010 GOSUB 400000 320200 RETURN 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 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 136 Intermec Fingerprint Developer's Guide