home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 69 / 64er_Magazin_Sonderheft_69_19xx_Markt__Technik_de_Side_B.d64 / get.sys (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  242 b   |  13 lines
  1. 1 rem get mit der systemroutine
  2. 2 rem $ffe4 (65508)
  3. 4 rem ---eingabe---
  4. 10 sys65508
  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 goto10
  11. 49 rem ---ausgabe---
  12. 50 print:printeg$
  13.