home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 26 / 64er_Magazin_Sonderheft_26_19xx_Markt__Technik_de_Side_A.d64 / ram_rom (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  811 b   |  25 lines
  1. 1 rem *********************************
  2. 2 rem *                               *
  3. 3 rem *        d e m o 1              *
  4. 4 rem *                               *
  5. 5 rem *  heimo ponnath hamburg 1985   *
  6. 6 rem *                               *
  7. 7 rem *********************************
  8. 10 printchr$(147):poke211,7:poke214,10:sys58640
  9. 15 print"so sieht ein rom-bereich aus:":fori=55296to56295:pokei,0:next
  10. 20 j=1:w=128:gosub200:fori=40960to40960+1023:pokei,peek(i):next
  11. 25 geta$:ifa$=""then25
  12. 30 j=3:w=48:gosub200:printchr$(147):poke211,0:poke214,10:sys58640
  13. 35 print"das ist der vom computer reservierte ram"
  14. 37 fori=55296to56295:pokei,0:next
  15. 40 j=3:w=0:gosub200
  16. 45 geta$:ifa$=""then45
  17. 50 poke56576,151:poke56578,63:poke53272,21:poke648,4:end
  18. 199 rem ++ up.bildschirm verschieben ++
  19. 200 poke56576,(peek(56576)and252)orj
  20. 205 poke56578,peek(56578)or3
  21. 210 poke53272,(peek(53272)and15)orw
  22. 215 p=(w/16*1024+16384*(3-j))/256
  23. 220 poke648,p
  24. 225 return
  25.