0 REM *********************************
1 REM *****       PICMASHER       *****
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 *********************************
10 IFZ<>0THEN175
15 IFA=0THENA=1:LOAD"COMPRESSOR.O",8,1
20 IFA=1THENA=2:POKE56,19:POKE55,135:CLR:A=2:DIMF$(3)
25 POKE53281,15:POKE53280,12:POKE646,6
30 S$="[151]                PICMASHER               [146]":PA=30960
35 KO$=""+CHR$(193)+"[146]PIC ":MI$="PIC."
40 PRINT"[147]"S$""TAB(12)"K[146]OALA":PRINTTAB(12)"M[146]ICROILLUSTRATOR"
45 PRINTTAB(12)"O[146]THER"
50 WAIT198,15:GETT$:BG=0:BO=0
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$:GOTO95
75 PRINT"[147]"S$:INPUT"FILENAME OF PICTURE ";F$:P$=P$+F$
80 PRINT"[145]"TAB(23)""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$
95 INPUT"NEW LOAD ADDRESS OF PIC ";F:N$=RIGHT$(STR$(F),LEN(STR$(F))-1)
100 PRINT"[145]"TAB(27)""N$"[157][146]":F1=INT(F/256):F2=F-256*F1
105 IFPTHEN165
110 PRINT"FILE LOADS IN [156]1[146] 2[146] 3[146] PARTS ?":WAIT198,15:GETT$:D=VAL(T$)
115 PRINT"[145]"TAB(15)"  "T$"  [146]"
120 FORI=1TOD:PRINT"FILENAME OF PART"I:INPUT"[145]";F$(I)
125 PRINT"[145]"TAB(22)F$(I)"[146]":NEXT:P$=F$(1):F$=P$
130 INPUT"ADDRESS OF VIDEO MATRIX IS ";L1
135 L1$=RIGHT$(STR$(L1),LEN(STR$(L1))-1):PRINT"[145]"TAB(30)""L1$"[157][146]"
140 INPUT"ADDRESS OF COLOR MEMORY IS ";L2
145 L2$=RIGHT$(STR$(L2),LEN(STR$(L2))-1):PRINT"[145]"TAB(30)""L2$"[157][146]"
150 INPUT"ADDRESS OF YOUR BIT MAP IS ";L3
155 L3$=RIGHT$(STR$(L3),LEN(STR$(L3))-1):PRINT"[145]"TAB(30)""L3$"[157][146]"
160 FORI=1264TO1743:POKEI,32:NEXT:PRINT""
165 K$="[151]                                        [146]":PRINT""K$""K$
170 PRINT"[145][145][145]  INSERT PICTURE DISK AND HIT  RETURN   [146]":WAIT198,15:GETT$
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: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":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