0 REM *********************************
1 REM *****       RELOCATOR       *****
2 REM ***** BY SCOTT MILLER PETTY *****
3 REM ***** 407 B. SMITH AVENUE   *****
4 REM ***** CHAPEL HILL, N.C.     *****
5 REM *****               27514   *****
6 REM ***** (919)-967-8522        *****
7 REM *********************************
8 IFA>0THEN110
10 POKE53281,15:POKE53280,12:POKE646,6
20 S$="[147][151]                RELOCATOR               [146]"
30 PRINTS$"RELOCATE C[146]OMPRESSOR OR D[146]ECOMPRESSOR ?"
40 WAIT198,15:GETT$:IFT$="C"THENF$="COMPRESSOR.O":L=417
50 IFT$="D"THENF$="DECOMPRESSOR.O":L=255
60 IFT$<>"C"ANDT$<>"D"THEN40
70 PRINT"[151]INSERT DISK CONTAINING "F$" "
80 PRINT"[151]            AND HIT RETURN          ";:IFL=255THENPRINT"  "
90 WAIT198,15:GETT$:IFT$<>CHR$(13)THEN90
100 IFA=0THENA=1:LOADF$,8,1
110 PRINT"[146]":INPUT"NEW LOCATION ";N
120 INPUT"NEW FILENAME ";F$
130 A=INT(N/256):B=N-256*A:PRINT""TAB(12)"[151]...WORKING..."
140 OPEN2,8,2,F$+",P,W":PRINT#2,CHR$(B);:PRINT#2,CHR$(A);
150 FORI=49152TOI+L
160 P=PEEK(I):IFP<>76ANDP<>108ANDP<>32THENPRINT#2,CHR$(P);:GOTO300
170 Z=PEEK(I+2):IFZ<192ORZ>194THENPRINT#2,CHR$(P);:GOTO300
180 X=49152-N:Y=PEEK(I+1):A=Y+Z*256-X:Z=INT(A/256):Y=A-256*Z
190 PRINT#2,CHR$(P);:PRINT#2,CHR$(Y);:PRINT#2,CHR$(Z);:I=I+2:GOTO300
200 IFL=255THEN220
210 CLOSE2:PRINT"[151]NEW VALUE FOR 'CP' = "N:END
220 CLOSE2:PRINT"[151]NEW VALUE FOR 'DC' = "N:END
300 IFI=49152+LTHEN200
310 NEXT