1171 88B7 D0 13 BNE EXITGK
1172 88B9 20 CF 88 JSR GK
1173 88BC 8A TXA
1174 88BD 0A ASL A
1175 88BE 0A ASL A
1176 88BF 0A ASL A
1177 88C0 0A ASL A
1178 88C1 8D 3E A6 STA SCRE
1179 88C4 20 CF 88 JSR GK
1180 88C7 8A TXA
1181 88C8 18 CLC
1182 88C9 6D 3E A6 ADC SCRE
1183 88CC 4C B8 81 EXITGK JMP RESXAF
1184 88CF A9 00 GK LDA #0
1185 88D1 8D 55 A6 STA KSHFL
1186 88D4 20 03 89 GK1 JSR IJSCNV ;SCAN KB
1187 88D7 F0 FB BEQ GK1
1188 88D9 20 2C 89 JSR LRNKEY ;WHAT KEY IS IT?
1189 88DC F0 F6 BEQ GK1
1190 88DE 48 PHA
1191 88DF 8A TXA
1192 88E0 48 PHA
1193 88E1 20 72 89 JSR BEEP
1194 88E4 20 23 89 GK2 JSR KEYQ
1195 88E7 D0 FB BNE GK2 ;Z=1 IF KEY DOWN
1196 88E9 20 9B 89 JSR NOBEEP ;DELAY (DEBOUNCE) W/O BEEP
1197 88EC 20 23 89 JSR KEYQ
1198 88EF D0 F3 BNE GK2
1199 88F1 68 PLA
1200 88F2 AA TAX
1201 88F3 68 PLA
1202 88F4 C9 FF CMP #$FF ;IF SHIFT, SET FLAG + GET NEXT KEY
1203 88F6 D0 07 BNE EXITG
1204 88F8 A9 19 LDA #$19
1205 88FA 8D 55 A6 STA KSHFL
1206 88FD D0 D5 BNE GK1
1207 88FF 60 EXITG RTS
1208 8900 20 C1 89 HDOUT JSR OUTDSP ;CHAR OUT, SCAN KB
1209 8903 6C 70 A6 IJSCNV JMP (SCNVEC+1)
1210 8906 A9 09 SCAND LDA #$9 ;SCAN DISPLAY FROM DISBUF
1211 8908 20 A5 89 JSR CONFIG
1212 890B A2 05 LDX #5
1213 890D A0 00 SC1 LDY #0
1214 890F BD 40 A6 LDA DISBUF,X
1215 8912 8C 00 A4 STY PADA
1216 8915 8E 02 A4 STX PBDA
1217 8918 8D 00 A4 STA PADA
1218 891B A0 10 LDY #$10
1219 891D 88 SC2 DEY
1220 891E D0 FD BNE SC2
1221 8920 CA DEX
1222 8921 10 EA BPL SC1
1223 8923 20 A3 89 KEYQ JSR KSCONF ; KEY DOWN ? (YES THEN Z=1)
1224 8926 AD 00 A4 H8926 LDA PADA
1225 8929 49 7F EOR #$7F
1226 892B 60 RTS
1227 892C 29 3F LRNKEY AND #$3F ;DETERMINE WHAT KEY IS DOWN
1228 892E 8D 3F A6 STA SCRF
1229 8931 A9 05 LDA #$05
1230 8933 20 A5 89 JSR CONFIG
1231 8936 AD 02 A4 LDA PBDA
1232 8939 29 07 AND #$07