10 IFZ<>0THEN175
15 IFA=0THENA=1:LOAD"COMPRESSOR.O",8,1
20 IFA=1THENA=2:POKE56,31:POKE55,255:CLR:A=2:DIMF$(3)
25 POKE53281,15:POKE53280,12:POKE646,6
30 B$="[151]                                        [146]"
31 S$=""+B$+"               COMPRESSOR               [146]"+B$
33 PA=30960
34 S1$="        * PRESS RETURN TO EXIT *        [146]"+B$
35 KO$=""+CHR$(193)+"[146]PIC ":MI$="PIC."
40 PRINT"[147]"S$""TAB(12)"KOALA"
43 PRINTTAB(12)"MICROILLUSTRATOR"
45 PRINTTAB(12)"OTHER"
47 PRINTTAB(12)"QUIT"
48 PRINTTAB(12)"PRESS K, M, O, OR Q.":TP=1
50 WAIT198,15:GETT$:BG=0:BO=0:NU=.
51 IFT$="Q"ORT$="[209]"THENGOSUB60000:GOTO48
55 IFT$="K"THENP$=KO$:P=1:L1=32576:L2=33576:L3=24576:BG=34576:BO=0
60 IFT$="M"THENP$=MI$:P=1:L1=6384:L2=7384:L3=8384:BG=6364:BO=6365
65 IFT$<>"O"ANDT$<>"M"ANDT$<>"K"THEN50
70 IFT$="O"THENPRINT"[147]"S$;S1$:TP=0:P=0:GOTO95
75 PRINT"[147]"S$;S1$:TP=0:PRINT"ENTER FILENAME:";:GOSUB60500:F$=B$:P$=P$+F$
76 IF B$="" THEN PRINT:GOSUB 60000:PRINT"[145][145][145]":GOTO 75
80 PRINT"[145]"TAB(15)""P$"[146]":IFLEFT$(P$,1)<>CHR$(18)THEN95
85 L=LEN(P$):IFL<17THENP$=P$+CHR$(32):GOTO85
90 P$=RIGHT$(P$,14):P$=CHR$(129)+P$:PRINT""
95 PRINT" [154]LOAD ADDRESS OF PIC":PRINT" ADDRESS :      [157][157][157][157][157][157]";
96 NU=1:GOSUB60500:NU=.:F=VAL(B$):IFB$=""THENPRINT:GOSUB60000:PRINT"[145][145][145]":GOTO95
97 IFF<.ORF>65535THENPRINT"[145][145][145]":GOTO95
98 N$=RIGHT$(STR$(F),LEN(STR$(F))-1)
100 PRINT"[145]"TAB(10)""N$"[157][146]":F1=INT(F/256):F2=F-256*F1
105 IFPTHEN165
110 PRINT"HOW MANY FILES TO LOAD":PRINT" PARTS :        [157][157][157][157][157][157][157][157]";
112 NU=1:GOSUB 60500:D=VAL(B$):NU=0
113 IF B$="" THEN PRINT:GOSUB 60000:PRINT"[145][145][145][145]":GOTO 110
115 PRINT"[145]"TAB(7)" "RIGHT$(STR$(D),LEN(STR$(D))-1)" [146]"
116 IFD<=3THEN120
117 PRINT"          NO MORE THAN 3 PARTS":FORA=1TO1000:NEXT
118 PRINT"[145]                                      [145][145][145][145][145]":GOTO110
120 FORI=1TOD
121 PRINT"FILENAME OF PART"I
122 PRINT"-->";:GOSUB60500:F$(I)=B$
123 IFB$="" THEN PRINT:GOSUB 60000:PRINT"[145][145][145][145]":GOTO 121
125 PRINT"[145]"TAB(3)F$(I)"[146]":NEXT:P$=F$(1):F$=P$
130 PRINT"ADDRESS OF VIDEO MATRIX:";:NU=1:GOSUB60500:L1=VAL(B$)
133 IFB$="" THEN PRINT:GOSUB 60000:PRINT"[145][145][145]":GOTO130
135 L1$=RIGHT$(STR$(L1),LEN(STR$(L1))-1):PRINT"[145]"TAB(24)""L1$"[157][146]"
140 PRINT"ADDRESS OF COLOR MEMORY:";:GOSUB60500:L2=VAL(B$)
143 IFB$="" THEN PRINT:GOSUB 60000:PRINT"[145][145][145]":GOTO140
145 L2$=RIGHT$(STR$(L2),LEN(STR$(L2))-1):PRINT"[145]"TAB(24)""L2$"[157][146]"
150 PRINT"ADDRESS OF YOUR BIT MAP:";:GOSUB60500:NU=1:L3=VAL(B$)
153 IFB$="" THENPRINT:GOSUB 60000:PRINT"[145][145]":GOTO150
155 L3$=RIGHT$(STR$(L3),LEN(STR$(L3))-1):PRINT"[145]"TAB(24)""L3$"[157][146]"
165 K$="[151]                                        [146]":PRINT"[147]"K$""K$
170 PRINT"[145][145][145]  INSERT PICTURE DISK AND PRESS  SPACE  [146]"
171 PRINT"     PRESS RETURN TO RETURN TO MENU"
172 POKE198,.:WAIT198,1:GETT$:IFT$<>" "ANDT$<>CHR$(13)THEN172
173 IFT$=CHR$(13)THEN25
174 GOSUB1000:IFOK<>.THENGOSUB2000:GOTO165
175 IFPTHEN195
180 IFZ=0THENZ=1:LOADF$(1),8,1
185 IFD>1THENIFZ=1THENZ=2:LOADF$(2),8,1
190 IFD>2THENIFZ=2THENZ=3:LOADF$(3),8,1
195 IFZ=0THENZ=1:LOADP$,8,1
200 IFL3=24576THENP$=RIGHT$(P$,14):P$="[193][146]"+P$
205 PRINT""P$" IS NOW LOADED"
210 PRINT""K$""K$:BG=PEEK(BG):BO=PEEK(BO)
215 PRINT"[145][145][145]INSERT DESTINATION DISK AND HIT RETURN[146]":WAIT198,15:GETT$
220 CP=49152:SV=CP+324
225 IFL1>29960ANDL1<40960THENPA=5000
230 IFL2>29960ANDL2<40960THENPA=5000
235 IFL3>29960ANDL3<40960THENPA=5000
240 SYSCP,L1,PA,1000
245 RA=PEEK(253)+256*PEEK(254)
250 SYSCP,L2,RA,1000
255 RA=PEEK(253)+256*PEEK(254)
260 SYSCP,L3,RA,8000
265 RA=PEEK(253)+256*PEEK(254)
270 IFL3=24576THENF$=RIGHT$(F$,LEN(F$)-2)
275 OPEN2,8,2,F$+CHR$(160)+N$+",P,W":SYSSV,PA,RA,F
277 PRINT#2,CHR$(BG)CHR$(BO)
280 CLOSE2:SYS65484:PRINTTAB(6)"OLD FILE LENGTH = 10000 BYTES"
285 PRINTTAB(6)"NEW FILE LENGTH =";:RA=RA-PA:PRINTRA"BYTES":SA=10000-RA
290 PRINTTAB(6)"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
295 PRINTTAB(6)"MEMORY SAVED    ="SA"BYTES"
297 PRINTTAB(13)" HIT ANY KEY [145][146]"
300 WAIT198,15:GETT$
305 PRINT"[147]"S$" ANOTHER FILE (Y/N)":WAIT198,15:GETT$
310 IFT$="Y"THENZ=0:OPEN15,8,15:PRINT#15,"I0:":CLOSE15:GOTO25
1000 OK=.
1010 FORA=1TOD:OPEN15,8,15,"R0:"+F$(A)+"="+F$(A):INPUT#15,ER:CLOSE15
1020 IFER<>63THENOK=A:A=D
1030 NEXT:RETURN
2000 MM$=F$(OK)+" IS NOT ON THIS DISK!":TA=20-LEN(MM$)/2
2005 PRINT""TAB(TA)MM$
2010 PRINT"             PRESS SPACE":POKE198,.
2020 IFPEEK(203)<>60THEN2020
2030 RETURN
60000 PRINT"[145]  ARE YOU SURE YOU WANT TO QUIT? (Y/N)":POKE198,.
60010 A=PEEK(203):IFA<>25ANDA<>39THEN60010
60020 IFA=39THENPRINT"[145]                                      [145]":RETURN
60025 IF (TP=.) THEN 25
60030 OPEN15,8,15,"R0:COMPRESS MENU=COMPRESS MENU":INPUT#15,ER:CLOSE15
60040 IFER<>63THEN RUN
60050 LOAD"COMPRESS MENU",8
60500 POKE198,.:B$="":PRINT"[164]";: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
60535 IFA$=CHR$(20)THEN 60510
60540 IF(A=17)OR((NU)AND(A=6))THEN60510
60545 IFA$>="0"ANDA$<="9"THEN60560
60546 IF NU=1 THEN 60510
60547 IF  A$=>"[193]" AND A$<="[218]" THEN60560
60550 IF  A$<" " OR A$>"Z" THEN60510
60560 PRINT"[157]"A$;:POKE212,.:PRINT"[164]";:B$=B$+A$:NEXT