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