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