home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / sh6x / sh69b.d64 / get.curs (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  268b  |  13 lines
  1. 1 REM GET MIT DER SYSTEMROUTINE
  2. 2 REM $FFE4 (65508) UND CURSOR!
  3. 4 REM ---EINGABE---
  4. 10 SYS65508:POKE204,0
  5. 13 IFPEEK(780)=17ORPEEK(780)=145ORPEEK(780)=19THENPOKE780,0
  6. 18 IFPEEK(780)=0THEN10
  7. 20 IFPEEK(780)=13THEN50
  8. 22 PRINTCHR$(PEEK(780));
  9. 25 EG$=EG$+CHR$(PEEK(780))
  10. 40 POKE204,1:GOTO10
  11. 49 REM ---AUSGABE---
  12. 50 PRINT:PRINTEG$
  13.