Listing of file='609FC010' on disk='vmedia/701-2738G.wvd.zip'
# Sector 735, program filename = '609FC010' 0010 REM '609FC010' - SETUP DOCUMENT ON ARCHIVE 0330 COM D1$3,C0$(3)82,C1$(3)82,C2$(16)16,C3$(16)16,C$(16)16 : COM V1$(3)82,C(12) : GOSUB 2505 : PRINT AT(23,0);B2$; : GOSUB '40 : IF C4$<>" "THEN GOSUB '45(C4$) : ELSE GOSUB '45(R5$) : D(24)=SGN(D(12)) : INIT(00)D1$,C$(),C2$(),C3$() : IF C4$<>" "THEN GOSUB '54(C4$) : ELSE GOSUB '54(R5$) : C(2)=0 : C(4)=0 : C(1)=0 : GOSUB 1100 : IF R1$<>HEX(00)THEN 1050 : C1$()=V1$() 0580 GOSUB 1100 : IF R1$<>HEX(00)THEN 1050 : C0$()=V1$() : C(3)=V0 : C(1)=C(3) : IF STR(C1$(),5,2)=HEX(0000)THEN 740 : IF STR(C1$(),5,2)=HEX(FFFF)THEN 740 : MAT SEARCHSTR(C1$(),7),>HEX(0000)TO T2$STEP 2 : C=VAL(T2$,2)+6 : C(1)=C(1)-(VAL(STR(C1$(),C),2)-VAL(STR(C1$(),5),2)) 0740 IF STR(C1$(),13,2)=HEX(0000)THEN 810 : IF STR(C1$(),13,2)=HEX(FFFF)THEN 810 : MAT SEARCHSTR(C1$(),15),>HEX(0000)TO T2$STEP 2 : C=VAL(T2$,2)+14 : C(1)=C(1)-(VAL(STR(C1$(),C),2)-VAL(STR(C1$(),13),2)) 0810 GOSUB '56(C(1)) : IF D(23)<>-1THEN 860 : GOSUB 2510 : GOTO 1080 0860 GOSUB '56(0) : C(9)=D(23) : GOSUB '56(0) : C(10)=D(23) : D(22)=0 : IF D(24)=0AND C4$=" "THEN GOSUB '58(R5$,0) : IF D(24)=0AND C4$<>" "THEN GOSUB '58(C4$,0) : IF D(22)<>-1THEN 1010 : GOSUB 2510 : GOTO 1080 1010 IF C4$<>" "THEN GOSUB '52(C4$,HEX(FFFF),HEX(40)) : ELSE GOSUB '52(R5$,HEX(FFFF),HEX(40)) : A5$()="609FC020JCATSMALREC.PRIMREC.RD" : LOAD T<4>A5$() 1050 GOSUB 2515 1080 LOAD TA5$ 1100 C(4)=C(4)+1 : GOSUB '220(A1,1,C(4),1,1) : RETURN 2500 % DO NOT RENUMBER THE FOLLOWING 2505 B2$="(In Progress)" : RETURN 2510 B2$="Archive Full" : RETURN 2515 IF R1$>HEX(29)THEN CONVERT (VAL(R1$))TO T2$,(##) : ELSE HEXUNPACKR1$TO T2$ : B2$="Error Occurred while reading document = "&T2$ : RETURN