home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #4 / Commodore_Disk_User_Vol.4_4_1991_-.d64 / keypress.list (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  356b  |  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.