10 ;"@:KEYPRESS.LIST"
20 *=$C000
30 SEI
40 LDA #$20
50 STA $0314
60 LDA #$C0
70 STA $0315
80 CLI
90 RTS
100 *=$C020
110 LDA $C5       ;GET KEY PRESSED
120 CMP #$40      ;IS IT NO KEY?
130 BEQ QUIT      ;IF IT IS, LEAVE
140 STA $D020     ;PLACE KEY VALUE IN
150               ;BORDER COL
160 QUIT          ;QUIT
170 JMP $EA31     ;HOUSEKEEPING