Intermec PB51 Fingerprint Developer's Guide (old) - Page 153

If Pause% Then Goto 1500070

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

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 32
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • 44
  • 45
  • 46
  • 47
  • 48
  • 49
  • 50
  • 51
  • 52
  • 53
  • 54
  • 55
  • 56
  • 57
  • 58
  • 59
  • 60
  • 61
  • 62
  • 63
  • 64
  • 65
  • 66
  • 67
  • 68
  • 69
  • 70
  • 71
  • 72
  • 73
  • 74
  • 75
  • 76
  • 77
  • 78
  • 79
  • 80
  • 81
  • 82
  • 83
  • 84
  • 85
  • 86
  • 87
  • 88
  • 89
  • 90
  • 91
  • 92
  • 93
  • 94
  • 95
  • 96
  • 97
  • 98
  • 99
  • 100
  • 101
  • 102
  • 103
  • 104
  • 105
  • 106
  • 107
  • 108
  • 109
  • 110
  • 111
  • 112
  • 113
  • 114
  • 115
  • 116
  • 117
  • 118
  • 119
  • 120
  • 121
  • 122
  • 123
  • 124
  • 125
  • 126
  • 127
  • 128
  • 129
  • 130
  • 131
  • 132
  • 133
  • 134
  • 135
  • 136
  • 137
  • 138
  • 139
  • 140
  • 141
  • 142
  • 143
  • 144
  • 145
  • 146
  • 147
  • 148
  • 149
  • 150
  • 151
  • 152
  • 153
  • 154
  • 155
  • 156
  • 157
  • 158
  • 159
  • 160
  • 161
  • 162
  • 163
  • 164
  • 165
  • 166
  • 167
  • 168
  • 169
  • 170
  • 171
  • 172
  • 173
  • 174
  • 175
  • 176
  • 177
  • 178
  • 179
  • 180
  • 181
  • 182
  • 183
  • 184
  • 185
  • 186
  • 187

Chapter 8 — Error Handling
Intermec Fingerprint Developer’s Guide
137
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 <PAUSE>” : 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 <PRINT>” : 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