Listing of file='609FC030' on disk='vmedia/731-0071G.wvd.zip'
# Sector 195, program filename = '609FC030' 0010 REM '609FC030' - SETUP DOCUMENT ON ARCHIVE 0060 STR(D2$(),245,6)=B4$ : $TRAN(STR(D2$(),245,6),D3$()) : $TRAN(STR(D2$(),245,6),HEX(0020))R : STR(D2$(),252,1)=BIN(56) : STR(D2$(),253,1)=HEX(03) : C$=BIN(C(1),2) : STR(D2$(),254,2)=STR(C$,2,1)&STR(C$,1,1) : STR(D2$(),256,1)=HEX(DF) : C2$()=D2$() : GOSUB '49(C(10)) : STR(C2$(),1,2)=J9$ : STR(C2$(),3,5)=HEX(FF)&"A"&D1$ 0260 OR (STR(C2$(),8,5),80) : DATA SAVE BA T#D(9),(C(9)+D1)C2$() : GOSUB '56(0) : C(7)=D(23) : GOSUB '49(C(7)) : STR(C3$(),1,2),STR(C$(),1,2)=J9$ : STR(C3$(),3,1)=BIN(A0(3)-7) : STR(C3$(),4,4)=HEX(00)&STR(D1$,1,3) : IF T5(1)=1THEN B4$=" " : A5$()="609FC040609FG080REC-GEN REC-RD" : LOAD T<4>A5$()