8 IFMM>0THEN110
10 POKE53281,15:POKE53280,12:POKE646,6
20 S$="[147][151]               RELOCATOR                [146]"
30 PRINTS$
32 PRINT"       C [151]- RELOCATE COMPRESSOR"
34 PRINT"       D [151]- RELOCATE DECOMPRESSOR"
36 PRINT"       Q [151]- QUIT"
38 PRINT"       PRESS C[151], D[151], OR Q[151]."
40 A=PEEK(203):IFA<>20ANDA<>18ANDA<>62THEN40
45 IFA=20THENF$="COMPRESSOR.O":L=417
50 IFA=18THENF$="DECOMPRESSOR.O":L=255
55 IFA=62THENGOSUB60000:GOTO38
70 PRINT"[151]INSERT DISK CONTAINING "F$" "
80 PRINT"[151]           AND PRESS RETURN         ";:IFL=255THENPRINT"  "
90 A=PEEK(203):IFA<>1THEN90
100 IFMM=0THENMM=1:LOADF$,8,1
110 PRINT"[146]":PRINT"ENTER NEW LOCATION:";:AL=.:GOSUB60500:AL=1:N=VAL(B$)
120 PRINT"ENTER NEW FILENAME:";:GOSUB60500:F$=B$
130 A=INT(N/256):B=N-256*A:PRINT""TAB(12)"[151]...WORKING..."
135 OPEN15,8,15,"I0":PRINT#15,"UJ":CLOSE15
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:GOTO400
220 CLOSE2:PRINT"[151]NEW VALUE FOR 'DC' = "N:GOTO400
300 IFI=49152+LTHEN200
310 NEXT
400 PRINT"        PRESS SPACE TO CONTINUE":POKE198,.
410 IFPEEK(203)<>60THEN410
420 RUN
60000 PRINT"[145]  ARE YOU SURE YOU WANT TO QUIT? (Y[151]/N[151])"
60010 A=PEEK(203):IFA<>25ANDA<>39THEN60010
60020 IFA=39THENPRINT"[145]                                      [145]":RETURN
60030 OPEN15,8,15,"R0:COMPRESS MENU=COMPRESS MENU":INPUT#15,ER:CLOSE15
60040 IFER<>63THENPOKE198,.:PRINT"[147]":END
60050 LOAD"COMPRESS MENU",8
60500 B$="":PRINT"[164]";:POKE198,.:FORA=1TO17
60510 GETA$:IFA$=""THEN60510
60520 IFA$=CHR$(13)THENPRINT"[157] ":RETURN
60530 IFA$=CHR$(20)ANDA>1THENPRINT"[157][157]  [157][157][164]";:A=A-1:B$=LEFT$(B$,A-1):GOTO60510
60540 IF((AL)AND(A=17))OR((NO)AND(A=6))THEN60510
60550 IFA$>="0"ANDA$<="9"THEN60580
60560 IF(AL)ANDA$>=" "ANDA$<="[218]"THEN60580
60570 GOTO60510
60580 PRINT"[157]"A$;:POKE212,.:PRINT"[164]";:B$=B$+A$:NEXT