10 REM COPYRIGHT 1988 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
15 PRINT"[147]":POKE53280,14:POKE53281,6
20 PRINT"   [195]OPYRIGHT 1988 [195][207][205][208][213][212][197]! [208]UB., [201]NC."
30 PRINTTAB(11)"[193]LL [210]IGHTS [210]ESERVED":PRINT""
40 PRINTTAB(11)"[209]UICK [210]ELOCATOR"
50 PRINT"   [209]UICK MUST BE RESIDING IN MEMORY"
60 PRINT"   BEFORE ATTEMPTING TO RELOCATE IT."
70 INPUT"[211][207][213][210][195][197] [194][204][207][195][203]([196][197][195])";OA
80 INPUT"[196][197][211][212][201][206][193][212][201][207][206] [194][204][207][195][203]";M
90 IFM>203OR(M<192ANDM>155)ORM<54THEN80
100 IFM=OATHEN210
110 OA=OA*256:SA=M*256
120 IFM<160THENPOKE56,M:POKE52,M:POKE51,0:POKE55,0
130 FORI=0TO1023:POKESA+I,PEEK(OA+I):NEXT
140 IFM<160THENPOKE1+SA,11:GOTO160
150 POKE1+SA,74:SS=SA:MM=M
160 SS=SA:MM=M:II=15:GOSUB340
170 SS=SA:MM=MM+1:II=9:GOSUB340
180 MM=MM+1:POKESS+233,MM
190 SS=SA:MM=MM+2:II=13:GOSUB340
200 POKE SS+36,MM+1:POKESS+30,M-1
210 PRINT"SAVE FILE [Y[146]/N[146]] ";
220 GETS$:IFS$<>"N"ANDS$<>"Y"THEN220
230 PRINTS$:IFS$="N"THENEND
240 PRINT:INPUT"FILENAME [WITHOUT '0:']";N$
250 N$="0:"+N$
260 L=LEN(N$):LM=0:HM=M+4:MM=LM+HM*256:POKE157,255
270 FORI=0TOL-1:POKEMM+I,ASC(MID$(N$,I+1,1)):NEXT:POKEMM+L,13
280 POKE780,L+1:POKE781,LM:POKE782,HM:SYS189+255*256
290 POKE780,1:POKE781,8:POKE782,1:SYS186+255*256
300 POKE251,0:POKE252,M:POKE780,251:POKE781,0:POKE782,M+4:SYS216+255*256
310 OPEN15,8,15:INPUT#15,A,B$,C,D:CLOSE15
320 IFA<>0THENPRINT:PRINTA;B$;C;D
330 END
340 FORI=1TOII:READA:IFA<0THENSS=SS+256:NEXT
350 POKESS+A,MM
360 NEXT:RETURN
370 DATA2,18,79,88,-1,44,47,133,165,242,245,253,-1,35,38
380 DATA159,162,203,-1,2,26,41,142,248
390 DATA112,150,210,226,241,244,-1,9,16,63,84,110,218