10 PRINT"[147]*** WEDGEMAKER ***":PRINT"INSERT PROGRAM DISK"
20 Z$=CHR$(0)
30 F$="":INPUT"PROGRAM FILE";F$:IFF$=""THEN30
40 CLOSE5:CLOSE6:CLOSE15:OPEN15,8,15:OPEN5,8,5,"0:"+F$+",P,R"
50 GOSUB730:IFER<>0THENCLOSE5:CLOSE15:GOTO30
60 GET#5,A$:GET#5,B$:POKE828,ASC(A$+Z$):POKE829,ASC(B$+Z$):CLOSE5
70 OPEN6,8,0,"$0:"+F$:GET#6,A$,A$,A$,A$,A$,A$
80 GET#6,A$:IFA$<>CHR$(34)THEN80
90 GET#6,A$:IFA$<>CHR$(34)THEN90
100 GET#6,A$:IFA$=CHR$(32)THEN100
110 GET#6,A$:IFA$<>""THEN110
120 GET#6,A$,A$,A$,B$:L=ASC(A$+Z$)+256*ASC(B$+Z$)
130 CLOSE6:CLOSE15:PRINT"PROGRAM IS"L"BLOCKS LONG"
140 INPUT"#DATA PAGES";P:P=INT(P):IFP<1THEN140
150 A=831:FORI=1TOLEN(F$):POKEA,ASC(MID$(F$,I,1)):A=A+1:NEXTI:POKEA,0
160 POKE830,L+P+2:POKE56,PEEK(56)-L-P-2:CLR
170 Z$=CHR$(0):P=PEEK(830):F$="":A=831
180 C=PEEK(A):IFC<>0THENF$=F$+CHR$(C):A=A+1:GOTO180
190 PRINT"LOADING "F$
200 OPEN15,8,15:POKE183,LEN(F$):POKE184,5:POKE185,0:POKE186,8
210 POKE187,63:POKE188,3:POKE780,0:POKE781,PEEK(55):POKE782,PEEK(56)+2
220 SYS65493:T=PEEK(781)+256*PEEK(782):GOSUB730:IFER<>0THENSTOP
230 CLOSE15:PRINT"LINKING "F$:A=PEEK(55)+256*(PEEK(56)+2)
240 B=PEEK(828)+256*PEEK(829):C=A
250 V=PEEK(A)+256*PEEK(A+1):IFV=0THEN270
260 V=V-B+C:POKEA,V-INT(V/256)*256:POKEA+1,INT(V/256):A=V:GOTO250
270 PRINT"APPENDING ML"
280 S=0:FORI=828TO875:READV:S=S+V:POKEI,V:NEXTI
290 IFS<>5045THENPRINT"ERROR IN DATA BLOCK 1":STOP
300 POKE842,PEEK(771):POKE873,PEEK(771)
310 C=C-512:S=0:FORI=0TO127:READV:POKEC+I,V:S=S+V:NEXTI
320 IFS<>14688THENPRINT"ERROR IN DATA BLOCK 2":STOP
330 S=0:FORI=1TO12:READA:S=S+A:READV:S=S+V:A=A+C+1:V=V+C
340 POKEA,V-INT(V/256)*256:POKEA+1,INT(V/256):NEXTI
350 IFS<>1949THENPRINT"ERROR IN DATA BLOCK 3":STOP
360 POKEC+57,PEEK(771):A=PEEK(770)+256*PEEK(771)
370 POKEC+9,PEEK(A+1):POKEC+10,PEEK(A+2)
380 FORI=105TO128:POKEC+I,0:NEXTI
390 POKEC+105,PEEK(55):POKEC+106,PEEK(56)+2
400 T2=INT(T/256):T1=T-T2*256
410 FORI=107TO111STEP2:POKEC+I,T1:POKEC+I+1,T2:NEXTI
420 C1=PEEK(55):C2=PEEK(56)+P
430 POKEC+113,C1:POKEC+114,C2:POKEC+117,C1:POKEC+118,C2
440 PRINT"DEFINE COMMANDS":PRINT"JUST HIT RETURN TO END":L=1:A=129
450 A$="":PRINT"COMMAND"L;:INPUTA$:IFA$=""THEN500
460 INPUT"LINE NUMBER";N:X$=A$+Z$+"G[207]"+MID$(STR$(N),2)+Z$
470 IFA+LEN(X$)>383THENPRINT"TABLE OVERFLOW":GOTO500
480 FORI=1TOLEN(X$):POKEC+A,ASC(MID$(X$,I,1)):A=A+1:NEXTI
490 POKEC+A,0:L=L+1:GOTO450
500 IFL=1THEN440
510 INPUT"OKAY (Y/N)";A$:IFA$="N"THEN440
520 IFA$<>"Y"THEN510
530 PRINT"INSERT DESTINATION DISK"
540 W$="":INPUT"WEDGE NAME";W$:IFW$=""THEN540
550 W2$=W$+".W":PRINT"SAVING "W2$:CLOSE5:CLOSE15:OPEN15,8,15
560 FORI=1TOLEN(W2$):POKE575+I,ASC(MID$(W2$,I,1)):NEXTI
570 POKE183,LEN(W2$):POKE184,5:POKE185,1:POKE186,8
580 POKE187,64:POKE188,2:POKE780,55:POKE781,T1:POKE782,T2
590 SYS65496:GOSUB730:IFER<>0THEN540
600 PRINT:PRINTW$" CONTAINS:":X$="LOAD"+CHR$(34)+W2$+CHR$(34)+",8,1"+Z$
610 X$=X$+"NEW"+Z$+"P[207]55,"+STR$(PEEK(55))+":P[207]56,"+STR$(PEEK(56))
620 X$=X$+":P[207]770,"+STR$(PEEK(55))+":P[207]771,"+STR$(PEEK(56))+Z$
630 FORI=1TOLEN(X$):V=ASC(MID$(X$,I)):POKE874+I,V:PRINTCHR$(V-(V=0)*13);:NEXTI
640 PRINT:PRINT"SAVING "W$
650 CLOSE5:CLOSE15:OPEN15,8,15,"I":OPEN5,8,5,"0:"+W$+",P,W"
660 GOSUB730:IFER<>0THENCLOSE5:CLOSE15:GOTO540
670 PRINT#5,CHR$(2)CHR$(3)CHR$(60)CHR$(3);
680 FORI=772TO1019:PRINT#5,CHR$(PEEK(I));:NEXTI
690 CLOSE5:CLOSE15:PRINT"DONE"
700 PRINT"TO INSTALL WEDGE"
710 PRINT"LOAD"CHR$(34)W$CHR$(34)",8,1"
720 END
730 INPUT#15,ER,E1$,TT,SS:IFER=0THENRETURN
740 PRINTE1$;TT;SS:RETURN
750 REM DATA BLOCK 1
760 DATA172,106,3,185,107,3,208,13,169,131
770 DATA141,2,3,169,196,141,3,3,108,2
780 DATA3,162,0,185,107,3,157,0,2,240
790 DATA4,232,200,208,244,200,140,106,3,162
800 DATA255,160,1,76,134,196,0,0
810 REM DATA BLOCK 2
820 DATA173,104,96,240,3,32,76,96,32,96,197,160,0,162,0,189
830 DATA0,2,217,129,96,208,8,9,0,240,31,232,200,208,240,185
840 DATA129,96,240,3,200,208,248,200,185,129,96,208,250,200,185,129
850 DATA96,208,218,162,255,160,1,76,134,196,162,255,200,232,185,129
860 DATA96,157,0,2,208,246,32,76,96,24,144,231,162,23,189,105
870 DATA96,168,189,43,0,157,105,96,152,157,43,0,202,16,239,173
880 DATA104,96,73,255,141,104,96,96,0,1,98,137,98,137,98,137
890 DATA98,0,128,0,0,0,128,0,0,0,0,0,0,0,0,0
900 REM DATA BLOCK 3
910 DATA0,104,5,76,18,129,31,129,40,129,46,129
920 DATA62,129,70,76,78,105,85,105,95,104,100,104