Intermec PB51 Fingerprint Developer's Guide (old) - Page 151
Complete Listing of ERRHAND.PRG, Pause, Print, Setup
View all Intermec PB51 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 151 highlights
Chapter 8 - Error Handling ERRHAND.PRG Subroutines (continued) At Line 400000 500000 600000 700000 1500000 1700000 1800000 1900000 Description The FEED-routine executes a FORMFEED with error-checking. Called by the statement GOSUB 400000. The PRINT-routine executes a PRINTFEED with error-checking. Called by the statement GOSUB 500000. Clears the printer display and makes the display texts stored in the variables DISP1$ and DISP2$ appear on the first and second line in the display. Called by the statement GOSUB 600000. The Init routine initiates error-checking, opens the console for output, and displays the main display texts (NORDIS1$ and NORDIS2$). It also sets up the some of the keys on the keyboard (if any) and assigns subroutines to each key. Called by the statement GOSUB 700000. Pause key (key No. 15) interrupts the program until pressed a second time. Called by the statement GOSUB 1500000. Routine for Print key (key No. 17) that calls subroutine 500000. Called by the statement GOSUB 1700000. Routine for Setup key (key No. 18). Places the printer in Setup Mode. Called by the statement GOSUB 1800000. Routine for Feed key (key No. 19), that calls subroutine 400000. Called by the statement GOSUB 1900000. For more information, see the next section. Complete Listing of ERRHAND.PRG 10 PROGNO$="Ver. 1.21 2005-11-25" 15 NORDIS1$="FP-APPLICATION" : NORDIS2$= "VERSION 1.21" 20 GOSUB 700000 : 'Initiate 100000 'Error routine 100010 EFLAG%=ERR 100050 'PRINT EFLAG%:'Activate for debug 100060 LASTERROR%=EFLAG% 100200 RESUME NEXT 160000 'PRINT "Last error = ";LASTERROR%:'Activate for debug 160050 'IF LASTERROR%0 THEN PRINT "At line ";ERL 160100 LASTERROR%=0 160200 RETURN 200000 'Error handling routine 200010 IF EFLAG%=1006 THEN GOTO 200040 : ' Formfeed instead of print 200020 LED 1 ON : LED 0 OFF : BUSY 200030 SOUND 400,10 200040 IF EFLAG%=1031 THEN GOSUB 300000 200050 IF EFLAG%=1005 THEN GOSUB 310000 200060 IF EFLAG%=1006 THEN GOSUB 320000 200070 IF EFLAG%=1022 THEN GOSUB 330000 200080 IF EFLAG%=1027 THEN GOSUB 340000 200090 DISP1$=NORDIS1$ : DISP2$=NORDIS2$ 200100 GOSUB 600000 200110 LED 1 OFF : LED 0 ON : READY 200400 RETURN 300000 'Error 1031 Next label not found Intermec Fingerprint Developer's Guide 135