home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9108a.d64 / rramm.demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.