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 >
Wrap
Commodore BASIC
|
2022-10-26
|
911b
|
25 lines
5 ifa=0thenifpeek(57097)<>31orpeek(57098)<>63thenprint"[147]wo ist dein ram-modul ???":end
10 print"[147] rramm laden nach 828"
20 ifa=0thena=1:load"rramm",8,1
30 print"[147]grafikbereich loeschen u. testbild laden":ifa=1thenfori=1to2000:next
40 poke53272,peek(53272)or8:poke53265,peek(53265)or32:rem" grafik an
45 [153]"load":[143]" rote pixelfarbe
50 ifa=1thensys828,8000,8192,0,1,0,1:sys828,load:rem" grafik loeschen
60 [139]a[178]1[167]a[178]2:[147]"testbild.ram",8,1
65 [151]53272,[194](53272)[175][168]8:[151]53265,[194](53265)[175][168]32:[143]" grafik aus
70 sys828,9000,8192,0,1,0,0:sys828,save:rem" ins ram damit
80 [153]"load grafik aufwaerts/abwaerts":[129]i[178]1[164]2000:[130]
90 [151]53272,[194](53272)[176]8:[151]53265,[194](53265)[176]32
100 [158]828,1000,1024,8000,1:[158]828,[147]:[143]" farben setzen
110 forj=0to5:rem" 6 mal auf und ab
120 [129] i[178]1[164] 25
130 [158]828,i[172]320,16192[171]i[172]320,0,1:[158]828,[147]
140 [130]
150 [129] i[178]1[164] 25
160 [158]828,i[172]320,8192,8000[171]i[172]320,1:[158]828,[147]
170 [130]:[130]
180 [129]i[178]1[164]2000:[130]
190 [151]53272,[194](53272)[175][168]8:[151]53265,[194](53265)[175][168]32
200 [153]"load testende":[153]
210 [153]" noch einmal mit 'run 80'"