0 REM SCREENSAVER 64
1 D=55:A=PEEK(56)*256+PEEK(D)-222:GOSUB4:CLR:S=PEEK(56)*256+PEEK(55)
2 FOR I=STOS+221:READA:POKEI,A:NEXT:A=S+173:D=S+1:GOSUB4:D=S+96:GOSUB4
3 PRINT"SAVE:"S:PRINT"LOAD:"S+95:END
4 POKED,A-INT(A/256)*256:POKED+1,A/256:RETURN
5 DATA32,,,162,4,177,7,145,9,200,208,249,230,8,230,10,202,208,242,162,24,181
6 DATA217,157,231,163,202,208,248,162,218,202,202,134,8,177,7,41,15,133,11,232
7 DATA232,134,8,177,7,10,10,10,10,5,11,145,9,200,208,229,230,10,224,219,208,224
8 DATA169,160,133,8,165,1,72,41,254,133,1,169,7,162,244,160,165,32,216,255,170
9 DATA104,133,1,138,176,1,96,76,249,224,32,,,169,,32,213,255,176,243,165,1,72
10 DATA41,254,133,1,162,4,160,,177,9,145,7,200,208,249,230,8,230,10,202,208,242
11 DATA162,24,189,231,163,149,217,202,208,248,162,218,202,202,134,8,177,9,145,7
12 DATA232,232,134,8,74,74,74,74,145,7,200,208,235,230,10,224,219,208,230,104
13 DATA133,1,96,32,87,226,162,1,32,121,,240,3,32,241,183,160,2,32,186,255,173,
14 DATA221,73,3,133,8,173,24,208,41,240,70,8,106,70,8,106,133,8,160,,132,7,132
15 DATA9,169,160,133,10,96
16 CLR:FORQ=.TO221:READA:X=A+X:Y=A-Y:NEXT
17 PRINT"CHECKSUM "MID$("ERROR OK",1-5*(X=27349ANDY=-217),5):END