home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 September / 1994-09b.d64 / scrnsvr1 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  786b  |  18 lines
  1. 100 rem  screensaver # 1
  2. 110 rem  by martin fensome
  3. 120 rem
  4. 130 print"poking":forj=880to991:print".";:readx:c=c+x:pokej,x:next:print""
  5. 140 if c<>14526 then print"error in data!":stop
  6. 150 input"minutes until blanking (1-18)";x:ifx<.1orx>18thenprint"error":goto150
  7. 160 x=x*60*60:y=int(x/256):x=x-y*256:poke965,x:poke970,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 data25,162,0,142,253,3,142,254,3,174,252,3,240,9,174,255,3,142,33,208
  15. 240 data206,252,3,76,49,234,174,252,3,208,248,238,253,3,208,3,238,254,3,72
  16. 250 data56,173,253,3,233,128,173,254,3,233,0,104,144,225,174,33,208,142,255
  17. 260 data3,174,134,2,142,33,208,238,252,3,24,144,207
  18.