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