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