Intermec PB51 Fingerprint Developer's Guide (old) - Page 153
If Pause% Then Goto 1500070
View all Intermec PB51 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 153 highlights
Chapter 8 - Error Handling 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 1501020 PAUSE%=PAUSE% XOR 1 1501030 BUSY : LED 0 OFF 1501040 DISP1$="Press " : DISP2$="to continue" 1501050 GOSUB 600000 1501060 IF PAUSE%=0 THEN GOTO 1501100 1501070 SOUND 131,2 1501080 SOUND 30000,20 1501090 IF PAUSE% THEN GOTO 1501070 1501100 READY : LED 0 ON 1501110 DISP1$=NORDIS1$ : DISP2$=NORDIS2$ 1501120 GOSUB 600000 1501130 ON KEY 17 GOSUB 1700000 1502000 RETURN 1503000 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 Intermec Fingerprint Developer's Guide 137