Listing of file='DOC.CRET' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 1537, program filename = 'DOC.CRET' 4103 % --- line 4103 -- 4106 DEFFN'208(R5$,A6$,B9) : DIM A1$16,A0$16,B9$16,A5$5,A0$(4)62,A6$(4)25,A7$(13)6,B0$(123)2,B7$2 : B1$=HEX(00) : IF B9<>INT(B9)OR B9<=0OR B9>4THEN B1$=HEX(08) : IF B1$<>HEX(00)THEN RETURN : IF A1(1,B9)<>-1OR A1(2,B9)<>-1THEN B1$=HEX(A4) : IF B1$<>HEX(00)THEN RETURN : IF VER(R5$,"####A")<>5AND STR(R5$,1,4)<>"NEXT"THEN B1$=HEX(A5) : IF B1$<>HEX(00)THEN RETURN 4113 LIMITS T#M1,"609@ARCH",B3,X,X,X : IF X<>2THEN B1$=HEX(A6) : IF B1$<>HEX(00)THEN RETURN : A1=POS(" ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"=STR(R5$,5) )-1 : DATA LOAD DA T#M1,(B3+A1)A0$() : A0$=STR(A0$(),2,8) : X=1 : IF A0$=" "THEN B1$=HEX(A7) : IF B1$<>HEX(00)THEN RETURN 4116 GOSUB '236(8,X) : B1$=R1$ : IF B1$<>HEX(00)THEN RETURN : IF V1=0THEN B1$=HEX(03) : IF B1$<>HEX(00)THEN RETURN : MAT SEARCHSTR(U1$(),,V1*16),=STR(A0$,,8)TO B7$STEP 16 : IF B7$>HEX(0000)THEN 4120 : IF V1<8THEN B1$=HEX(03) : IF B1$<>HEX(00)THEN RETURN : X=X+8 : GOTO 4116 4120 A0$=STR(U1$(),VAL(B7$,2)) : IF STR(R5$,1,4)="NEXT"THEN 4124 : A1$="DOCUMENT."&STR(R5$,5,1)&"."&STR(R5$,1,4) : GOSUB '217(1,1,A1$,A0$) : IF R1$=HEX(03)THEN 4124 : B1$=R1$ : IF B1$=HEX(00)THEN B1$=HEX(A5) : IF B1$<>HEX(00)THEN RETURN 4124 A7$="DOCUMENT."&STR(R5$,5,1)&".0000" : GOSUB '211(A7$,A0$,B9$,HEX(FF)) : B1$=R1$ : IF B1$=HEX(00)THEN 4128 4126 IF B1$=HEX(05)THEN 4127 : IF B1$=HEX(03)THEN B1$=HEX(A9) : IF B1$=HEX(06)THEN B1$=HEX(B0) : IF B1$<>HEX(00)THEN RETURN 4127 B9$=STR(V2$(),8,6) : GOTO 4126 4128 B4=V3 : V4$="A" : GOSUB '220(B4,1,2,1,1) : B1$=R1$ : IF B1$<>HEX(00)THEN 4148 : A0$()=V1$() : V4$="P" : GOSUB '220(B4,1,1,1,1) : IF POS(HEX(0028)=R1$)=0THEN B1$=R1$ : IF B1$<>HEX(00)THEN 4148 : X=VAL(STR(V1$(),15),2) : V4$="T" : GOSUB '220(B4,1,X,1,1) : IF POS(HEX(0028)=R1$)=0THEN B1$=R1$ : IF B1$<>HEX(00)THEN 4148 : W=POS(STR(V1$(),2)=HEX(83)) : STR(V1$(),W+2)=" " 4133 B0$()=V1$() : GOSUB 4148 : IF B1$<>HEX(00)THEN RETURN : IF STR(R5$,1,4)<>"NEXT"THEN 4140 : $OPEN #0 : DATA LOAD DA T(B3+A1)A0$() : CONVERT STR(A0$(),10,4)TO A4 4137 CONVERT A4TO STR(A5$,,4),(####) : A1$="DOCUMENT."&STR(R5$,5,1)&"."&STR(A5$,,4) : GOSUB '217(1,1,A1$,A0$) : IF R1$=HEX(00)THEN A4=MAX(1,MOD(A4+1,10000)) : ON POS(HEX(0003)=R1$)GOTO 4137,4139 : $CLOSE : B1$=R1$ : RETURN 4139 CONVERT MAX(1,MOD(A4+1,10000))TO STR(A0$(),10,4),(####) : DATA SAVE DA T(B3+A1)A0$() : $CLOSE 4140 GOSUB '210(A1$,A0$,A6$) : B1$=R1$ : IF B1$<>HEX(00)THEN RETURN : GOSUB '211(A1$,A0$,A6$,HEX(FF)) : B1$=R1$ : IF B1$<>HEX(00)THEN RETURN : B0=V3 : V1$()=HEX(00010002000000000000000000000003)&ALL(FF) : V4$="P" : GOSUB '225(B0,1,1,1) : B1$=R1$ : IF B1$<>HEX(00)THEN 4147 4144 A6$()=" " : A7$()=ALL(30) : A7$(1)=STR(A5$,1,4)&STR(R5$,5) : $PACK(F=HEX(A019A0066006))A0$()FROMA6$(),A7$(),8 : V1$()=A0$() : V4$="A" : GOSUB '225(B0,1,1,1) : B1$=R1$ : IF B1$<>HEX(00)THEN 4147 4146 V4$="T" : V1$()=B0$() : GOSUB '225(B0,1,1,1) : B1$=R1$ : IF B1$<>HEX(00)THEN 4147 : A1(1,B9)=B9 : A1(2,B9)=B0 : STR(R5$,1,4)=STR(A5$,1,4) : RETURN 4147 GOSUB '212(B0) : RETURN 4148 GOSUB '212(B4) : RETURN