Listing of file='609PMERG' on disk='vmedia/701-2721C.wvd.zip'
# Sector 33, program filename = '609PMERG'
0001 COM G3$(50)43,L0(5),L8(5)
2004 DEFFN'111
: DIM L1$(1008)1,L(5),L$(123)2
: L(1)=1
: L(4)=L(4)+1
: GOSUB '220(L8(2),1,L(4),1,1)
: IF R1$=HEX(25)THEN V1$()=ALL(HEX(80))
: L$()=V1$()
: RETURN
2022 DEFFN'112
: L(3)=L0(1)
: L(5)=0
2025 IF L(3)<>0THEN GOTO 2027
: IF STR(L1$(),L0(1),1)=HEX(8F)OR STR(L$(),L(1),1)=HEX(8F)THEN GOSUB '113
: L(2)=0
: RETURN
2027 IF L(3)>246*V2THEN L(2)=246*V2
: ELSE L(2)=L(3)
: IF 246*V2-L(1)+1<L(2)THEN GOTO 2037
: IF L(5)=0THEN L1$()=STR(L$(),L(1),L(2))
: ELSE L1$()=STR(L1$(),1,L(5))&STR(L$(),L(1),L(2))
: L(1)=L(1)+L(2)
: L(3)=L(3)-L(2)
: L(5)=L(5)+L(2)
: IF L(1)=246*V2+1THEN GOSUB '111
: GOTO 2025
2037 L1$()=STR(L$(),L(1))
: L(5)=246*V2-L(1)+1
: L(3)=L(3)-L(5)
: GOSUB '111
: GOTO 2027
2048 DEFFN'100(Z)
: DIM I4$20,L$2,I1$1,I2$1,I3$1,L6$(250)1
: GOSUB '114
: IF STR(D$(),D8,1)<>HEX(8C)OR L0(2)=0THEN RETURN
: ELSE IF L0(3)=0THEN GOTO 2056
: L(4)=2
: GOSUB '113
: GOSUB '112
: IF Q2$=" "THEN DATA LOAD DA T(L8(5)+2)G3$()
2056 GOSUB '114
: IF STR(D$(),D8,1)=HEX(80)THEN GOTO 2056
: I=0
: I4$=ALL(20)
2059 I=I+1
: STR(I4$,I,1)=STR(D$(),D8)
: GOSUB '114
: IF STR(D$(),D8,1)<>HEX(8C)THEN GOTO 2059
: $TRAN(I4$,HEX(2080))R
: GOSUB '114
2065 MAT SEARCHG3$(),=STR(I4$,1,L4)TO L$STEP G6
: IF VAL(L$,2)<>0THEN GOTO 2069
: IF STR(I4$,1,1)=HEX(FF)THEN GOTO 2112
: X=12
: GOTO 2083
2069 L=(VAL(L$,2)-1)/G6+1
: X=VAL(STR(G3$(L),12,2),2)
: Y=VAL(STR(G3$(L),10,2),2)
: IF STR(G3$(L),9,1)="P"OR STR(G3$(L),9,1)="G"THEN X=POS(-STR(G3$(L),Y,X)<>
80)
: ELSE X=POS(-STR(L1$(),Y,X)<>80)
: IF X=0THEN RETURN
: I1$=STR(G3$(L),19,1)
: I2$=HEX(01)
: IF D2=1THEN GOTO 2081
: FOR I=1TO D2-1STEP 1
: I2$=I2$ADDI2$
: NEXT I
2081 I3$=I2$AND I1$
: IF I3$<>I2$THEN RETURN
: IF Z=255THEN GOTO 2087
2083 IF J6+X<=C9THEN GOTO 2087
: IF C8<>0THEN GOSUB '36
: GOSUB '102
: GOTO 2065
2087 IF VAL(L$,2)=0THEN STR(C6$(),J6,X)=ALL(3F)
: ELSE IF STR(G3$(L),9,1)="P"THEN STR(C6$(),J6,X)=STR(G3$(L),Y,X)
: ELSE IF STR(G3$(L),9,1)="G"THEN GOTO 2095
: ELSE STR(C6$(),J6,X)=STR(L1$(),Y,X)
: J6=J6+X
: IF J6>C9THEN GOSUB '102
: RETURN
2095 GOSUB '220(A4,1,2,1,1)
: MAT SEARCHV1$(),=STR(G3$(L),Y,X)TO L$STEP 3
: X=0
: I1=VAL(L$,2)+1
: IF I1=1THEN RETURN
: L(2)=VAL(STR(V1$(),I1,2),2)
: L(3)=VAL(STR(V1$(),I1+3,2),2)
: IF L(3)=0THEN L(3)=V0+1
: IF Z=255THEN GOTO 2119
: I1=5
: L(5)=D8
: L6$()=STR(D$(),1,250)
2106 GOSUB '220(A4,1,L(2),1,1)
: I2=LEN(V1$())-I1+1
: STR(D$(),I1,250)=STR(V1$(),I1,I2)&HEX(7F8CFF8C)
: Q=Q+I2+4
: D8=I1
: RETURN
2112 L(2)=L(2)+1
: I1=1
: X=0
: IF L(2)<L(3)THEN GOTO 2106
: STR(D$(),1,250)=L6$()
: D8=L(5)
: L(2)=0
: RETURN
2119 I1=0
: FOR I=L(2)TO L(3)-1STEP 1
: GOSUB '220(A4,1,I,1,1)
: I5=POS(V1$()=HEX(20))-1
: IF I5=-1THEN I5=246
: IF I1=0THEN I4=4
: ELSE I4=0
: I3=MAX(POS(D$()=HEX(00)),POS(D$()=HEX(20)))
: MAT COPY -STR(D$(),D8+I1,I3-(D8+I1))TO -STR(D$(),D8+I1+I5-I4,I3-(D8+I1))
: STR(D$(),D8+I1,I5-I4)=STR(V1$(),I4+1)
: I1=I1+I5-I4
: NEXT I
: Q=Q+I1
: RETURN
2134 DEFFN'113
: GOSUB '111
: IF L0(1)<80THEN L(1)=L0(1)+2
: ELSE L(1)=81
: L0(3)=0
: RETURN
2142 DEFFN'114
: D8=D8+1
: IF D8<=246OR Z=255THEN RETURN
: IF L(2)<>0THEN GOTO 2148
: GOSUB '35
: D8=1
: RETURN
2148 L(2)=L(2)+1
: GOSUB '220(A4,1,L(2),1,1)
: STR(D$(),1,250)=V1$()&HEX(7F8CFF8C)
: D8=1
: RETURN