home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 24 / 64er_Magazin_Sonderheft_24_19xx_Markt__Technik_de_Side_B.d64 / screensaver (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  19 lines
  1. 0 rem screensaver 64
  2. 1 d=55:a=peek(56)*256+peek(d)-222:gosub4:clr:s=peek(56)*256+peek(55)
  3. 2 for i=stos+221:reada:pokei,a:next:a=s+173:d=s+1:gosub4:d=s+96:gosub4
  4. 3 print"save:"s:print"load:"s+95:end
  5. 4 poked,a-int(a/256)*256:poked+1,a/256:return
  6. 5 data32,,,162,4,177,7,145,9,200,208,249,230,8,230,10,202,208,242,162,24,181
  7. 6 data217,157,231,163,202,208,248,162,218,202,202,134,8,177,7,41,15,133,11,232
  8. 7 data232,134,8,177,7,10,10,10,10,5,11,145,9,200,208,229,230,10,224,219,208,224
  9. 8 data169,160,133,8,165,1,72,41,254,133,1,169,7,162,244,160,165,32,216,255,170
  10. 9 data104,133,1,138,176,1,96,76,249,224,32,,,169,,32,213,255,176,243,165,1,72
  11. 10 data41,254,133,1,162,4,160,,177,9,145,7,200,208,249,230,8,230,10,202,208,242
  12. 11 data162,24,189,231,163,149,217,202,208,248,162,218,202,202,134,8,177,9,145,7
  13. 12 data232,232,134,8,74,74,74,74,145,7,200,208,235,230,10,224,219,208,230,104
  14. 13 data133,1,96,32,87,226,162,1,32,121,,240,3,32,241,183,160,2,32,186,255,173,
  15. 14 data221,73,3,133,8,173,24,208,41,240,70,8,106,70,8,106,133,8,160,,132,7,132
  16. 15 data9,169,160,133,10,96
  17. 16 clr:forq=.to221:reada:x=a+x:y=a-y:next
  18. 17 print"checksum "mid$("error ok",1-5*(x=27349andy=-217),5):end
  19.