home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1994 September
/
1994-09b.d64
/
scrnsvr2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
859b
|
19 lines
100 rem screensaver # 2
110 rem by martin fensome
120 rem
130 print"poking":forj=880to1010:print".";:readx:c=c+x:pokej,x:next:print""
140 if c<>16479 then print"error in data!":stop
150 input"minutes until blanking(1-18)";x:ifx<.1orx>18thenprint"invalid":goto150
160 x=x*60*60:y=int(x/256):x=x-y*256:poke975,x:poke980,y:sys880
170 print"[147]screensaver installed!"
180 print"sys 880 to activate"
190 print"sys 886 to deactivate"
200 print"new[145][145][145]":end
210 data169,142,162,3,208,4,169,49,162,234,120,141,20,3,142,21,3,88,162,0
220 data142,252,3,142,253,3,142,254,3,96,174,141,2,208,6,166,197,224,64,240
230 data35,162,0,142,253,3,142,254,3,174,252,3,240,19,72,173,17,208,9,16,141
240 data17,208,104,174,255,3,142,32,208,206,252,3,76,49,234,174,252,3,208
250 data248,238,253,3,208,3,238,254,3,72,56,173,253,3,233,36,173,254,3,233
260 data0,104,144,225,174,32,208,142,255,3,162,0,142,32,208,72,173,17,208
270 data41,239,141,17,208,104,238,252,3,24,144,198