home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 50 / 64er_Magazin_Sonderheft_50_19xx_Markt__Technik_de_Side_A.d64 / demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  956b  |  35 lines
  1. 100 rem *******************************
  2. 110 rem *                             *
  3. 120 rem *           d e m o           *
  4. 130 rem *                             *
  5. 140 rem *    heimo ponnath hamburg    *
  6. 150 rem *                             *
  7. 160 rem *******************************
  8. 170 :
  9. 180 rem +++++++  hauptprogramm  +++++++
  10. 190 :
  11. 191 poke53280,15:poke53281,15:print"[147]"
  12. 200 print chr$(147):poke211,7:poke214,10:sys58640
  13. 210 print "so sieht ein rom-bereich aus:":for i=55296 to 56295:poke i,0:next i
  14. 220 j=1:w=128:gosub370:fori=40960 to 40960+1023:poke i,peek (i):next i
  15. 230 get a$:ifa$=""then230
  16. 240 :
  17. 250 j=3:w=48:gosub370:printchr$(147):poke211,0:poke214,10:sys58640
  18. 260 print"das ist der vom computer reservierte ram"
  19. 270 fori=55296to56295:pokei,0:nexti
  20. 280 j=3:w=0:gosub370
  21. 290 get a$:ifa$=""then290
  22. 300 :
  23. 310 poke56576,151:poke56578,63:poke53272,21:poke648,4
  24. 320 end : rem ++ programmende ++
  25. 330 :
  26. 340 :
  27. 350 rem ++ up.bildschirm verschieben ++
  28. 360 :
  29. 370 poke56576,(peek(56576)and252)or j
  30. 380 poke56578,peek(56578)or 3
  31. 390 poke53272,(peek(53272)and15)or w
  32. 400 p=(w/16*1024+16384*(3-j))/256
  33. 410 poke648,p
  34. 420 return
  35.