Listing of file='609FC040' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 226, program filename = '609FC040' 0010 REM %^ '609FC040' - COPY REST OF DOCUMENT TO ARCHIVE 0030 STR(C$(),4,4)=HEX(00)&STR(D1$,1,3) : C(2)=0 : C(4)=2 0070 GOSUB 720 : IF R1$<>HEX(28)AND R1$<>HEX(00)THEN 670 : IF R1$=HEX(28)THEN C(2)=1 : C$=BIN(C(4),2) : MAT SEARCHC1$(),=STR(C$,1,2)TO D1$()STEP 2 : IF D1$()=HEX(0000)THEN 340 : C=VAL(D1$(),2) : IF C<>5THEN 250 : MAT SEARCHSTR(C1$(),7),>HEX(0000)TO T2$STEP 2 : C=VAL(T2$,2)+6 : C(4)=VAL(STR(C1$(),C),2)-1 : GOTO 70 0250 IF C<>13THEN 320 : MAT SEARCHSTR(C1$(),15),>HEX(0000)TO T2$STEP 2 : C=VAL(T2$,2)+14 : C(4)=VAL(STR(C1$(),C),2)-1 : GOTO 70 0320 IF C>13THEN STR(C3$(),C+2,2)=STR(C$(),1,2) : ELSE STR(C3$(),C+4,2)=STR(C$(),1,2) 0340 S7=POS(STR(V1$(),2)=8F)+1 : IF S7=1THEN 390 : STR(V1$(),S7)=ALL(20) : S7=S7-1 : GOTO 400 0390 S7=POS(-V1$()>20) 0400 STR(C$(),3,1)=BIN(S7+6) : $TRAN(V1$(),D3$()) : STR(C$(),8)=V1$() : IF C(4)=C(3)THEN 530 : GOSUB '56(0) : GOSUB '49(D(23)) : STR(C$(),1,2)=J9$ : GOTO 550 0530 STR(C$(),1,2)=HEX(0000) 0550 DATA SAVE BA T#D(9),(C(7)+D1)C$() : C(7)=D(23) : IF C(2)=0THEN 70 : DATA SAVE BA T#D(9),(C(10)+D1)C3$() : GOSUB '49(C(9)) : IF C4$<>" "THEN GOSUB '52(C4$,J9$,HEX(00)) : ELSE GOSUB '52(R5$,J9$,HEX(00)) : IF D(24)=0THEN LOAD TA5$ : A5$()="609FG180609FG080" : LOAD T<2>A5$() 0670 GOSUB 2505 : LOAD TA5$ 0720 C(4)=C(4)+1 : GOSUB '220(A1,1,C(4),1,1) : RETURN 2500 % DO NOT RENUMBER THE FOLLOWING 2505 IF R1$>HEX(29)THEN CONVERT (VAL(R1$))TO T2$,(##) : ELSE HEXUNPACKR1$TO T2$ : B2$="Error occrred while accessing document = "&T2$ : RETURN