100 REM *** SCREENSAVER 64 ***
110 SS=51200:REM RELOCATING ***
120 CK=0
130 READD:CK=CK+D:IFD=999THEN150
140 GOTO130
150 IFCK<>20519THENPRINT"*** ERROR IN DATA ***":END
160 RESTORE:SA=SS
170 READD:IFD=999THEN220
180 IFD=>0THENPOKESA,D:GOTO210
190 AD=SS+ABS(D):H=AD/256:L=AD-INT(AD/256)*256
200 POKESA,L:SA=SA+1:POKESA,H
210 SA=SA+1:GOTO170
220 PRINT"SCREENSAVER INSTALLED"SS"TO"SA
230 PRINT
240 PRINT"TO SAVE SCREEN: SYS"SS
250 PRINT"RECALL SCREEN : SYS"SS+3
260 PRINT"CLEAR LINKS   : SYS"SS+6
270 PRINT"MOVE STORAGE  : POKE"SS+9"[157], HIGH-BYTE"
280 LOAD"[211]CREEN[211]AVER [196]EMO",8:PRINT"RUN"CHR$(13)
290 DATA 184,80,7,184,80,85,184,80
300 DATA 70,208,173,136,2,32,-160,173
310 DATA -9,133,196,132,195,32,-194,169
320 DATA 216,32,-160,32,-191,32,-245,160
330 DATA 24,185,217,0,32,-220,136,16
340 DATA 247,160,25,165,199,32,-220,200
350 DATA 173,134,2,32,-220,56,32,240
360 DATA 255,138,72,152,160,27,32,-220
370 DATA 104,200,76,-220,162,24,181,217
380 DATA 9,128,149,217,202,16,247,96
390 DATA 173,-9,32,-160,173,136,2,32
400 DATA -176,24,165,175,105,4,162,208
410 DATA 134,174,133,175,169,216,32,-176
420 DATA 160,24,32,-205,153,217,0,136
430 DATA 16,247,160,25,32,-205,133,199
440 DATA 200,32,-205,141,134,2,200,32
450 DATA -205,72,200,32,-205,170,104,168
460 DATA 24,76,240,255,160,0,133,173
470 DATA 132,172,24,105,3,133,175,169
480 DATA 232,133,174,96,132,195,133,196
490 DATA 32,-205,145,195,32,-237,208,246
500 DATA 96,32,-245,177,172,32,-220,32
510 DATA -237,208,246,96,162,52,8,120
520 DATA 165,1,134,1,170,177,172,134
530 DATA 1,40,96,162,52,8,120,72
540 DATA 165,1,134,1,170,104,145,195
550 DATA 134,1,40,96,32,219,252,32
560 DATA 209,252,240,6,230,195,208,2
570 DATA 230,196,96,999