home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / sh6x / sh65b.d64 / screensaver (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.