home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 August / 64er_Magazin_91-08_1991_Markt__Technik_de_Side_A.d64 / rramm.demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  911b  |  25 lines
  1. 5 ifa=0thenifpeek(57097)<>31orpeek(57098)<>63thenprint"[147]wo ist dein ram-modul ???":end
  2. 10 print"[147]          rramm laden nach 828"
  3. 20 ifa=0thena=1:load"rramm",8,1
  4. 30 print"[147]grafikbereich loeschen u. testbild laden":ifa=1thenfori=1to2000:next
  5. 40 poke53272,peek(53272)or8:poke53265,peek(53265)or32:rem" grafik an
  6. 45 [153]"load":[143]" rote pixelfarbe
  7. 50 ifa=1thensys828,8000,8192,0,1,0,1:sys828,load:rem" grafik loeschen
  8. 60 [139]a[178]1[167]a[178]2:[147]"testbild.ram",8,1
  9. 65 [151]53272,[194](53272)[175][168]8:[151]53265,[194](53265)[175][168]32:[143]" grafik aus
  10. 70 sys828,9000,8192,0,1,0,0:sys828,save:rem" ins ram damit
  11. 80 [153]"load        grafik aufwaerts/abwaerts":[129]i[178]1[164]2000:[130]
  12. 90 [151]53272,[194](53272)[176]8:[151]53265,[194](53265)[176]32
  13. 100 [158]828,1000,1024,8000,1:[158]828,[147]:[143]" farben setzen
  14. 110 forj=0to5:rem" 6 mal auf und ab
  15. 120 [129] i[178]1[164] 25
  16. 130 [158]828,i[172]320,16192[171]i[172]320,0,1:[158]828,[147]
  17. 140 [130]
  18. 150 [129] i[178]1[164] 25
  19. 160 [158]828,i[172]320,8192,8000[171]i[172]320,1:[158]828,[147]
  20. 170 [130]:[130]
  21. 180 [129]i[178]1[164]2000:[130]
  22. 190 [151]53272,[194](53272)[175][168]8:[151]53265,[194](53265)[175][168]32
  23. 200 [153]"load              testende":[153]
  24. 210 [153]"       noch einmal mit 'run 80'"
  25.