home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D04.D64 / keypress.list (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  356 b   |  18 lines
  1. 10 ;"@:KEYPRESS.LIST"
  2. 20 *=$C000
  3. 30 SEI
  4. 40 LDA #$20
  5. 50 STA $0314
  6. 60 LDA #$C0
  7. 70 STA $0315
  8. 80 CLI
  9. 90 RTS
  10. 100 *=$C020
  11. 110 LDA $C5       ;GET KEY PRESSED
  12. 120 CMP #$40      ;IS IT NO KEY?
  13. 130 BEQ QUIT      ;IF IT IS, LEAVE
  14. 140 STA $D020     ;PLACE KEY VALUE IN
  15. 150               ;BORDER COL
  16. 160 QUIT          ;QUIT
  17. 170 JMP $EA31     ;HOUSEKEEPING
  18.