Intermec PC43d Fingerprint Developer's Guide (PC23d, PC43d/t, PM23c, PM43, PM4 - Page 143

Extensions to ERRHAND.PRG

Page 143 highlights

Chapter 8 - Error Handling 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 1800200 RETURN 1900000 'Feedkey 1900010 KEY 19 OFF 1900020 GOSUB 400000 1900030 KEY 19 ON 1900200 RETURN Extensions to ERRHAND.PRG The following subroutines can be added manually to stop new input via the printer keyboard while a subroutine is executed. To enable all keys after completing a subroutine: 800000 800010 800020 800030 800040 'Turn all keys on FOR I% = 0 TO 21 KEY (I%) ON NEXT I% RETURN To disable all keys before entering a subroutine: 900000 900010 900020 900030 900040 'Turn all keys off FOR I% = 0 TO 21 KEY (I%) OFF NEXT I% RETURN Fingerprint Developer's Guide 131

  • 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

Chapter 8 — Error Handling
Fingerprint Developer’s Guide
131
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
1800200 RETURN
1900000 'Feedkey
1900010 KEY 19 OFF
1900020 GOSUB 400000
1900030 KEY 19 ON
1900200 RETURN
Extensions to ERRHAND.PRG
The following subroutines can be added manually to stop new input via the printer
keyboard while a subroutine is executed.
To enable all keys after completing a subroutine:
800000
'Turn all keys on
800010
FOR I% = 0 TO 21
800020
KEY (I%) ON
800030
NEXT I%
800040
RETURN
To disable all keys before entering a subroutine:
900000
'Turn all keys off
900010
FOR I% = 0 TO 21
900020
KEY (I%) OFF
900030
NEXT I%
900040
RETURN