home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8506a.d64
/
screensave
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
841b
|
19 lines
1 REM****** SCREENSAVE ******
2 REM
3 REM VON: HANS HABERL
4 REM BAHNHOFSTR. 3
5 REM 8018 GRAFING
6 REM
10 DATA32,3,178,166,184,32,201,255,152,32,210,255,165,252,32,210,255,169
20 DATA210,133,248,162,32,36,250,48,2,162,4,36,250,48,12,177,253,32,0,178
30 DATA145,253,177,251,56,176,14,120,169,52,133,1,177,251,72,169,54,133
40 DATA1,88,104,32,0,178,145,251,200,208,29,230,252,230,254,202,208,22,240
50 DATA26,234,32,3,178,166,184,32,198,255,32,207,255,32,207,255,169,207
60 DATA208,180,234,169,195,36,144,240,183,32,204,255,165,184,32,195,255
70 DATA76,42,130,108,248,0,32,219,131,32,35,129,160,0,132,251,132,253,165
80 DATA185,106,106,133,250,48,8,169,216,133,254,169,4,208,2,169,224,133
90 DATA252,169,255,133,249,96,234
100 S=0:FORI=45455TO45608:READA:S=S+A:POKEI,A:NEXTI
110 IFS<>22096THENPRINT"FEHLER IN DATA'S":END
120 PRINT"OK"