Listing of file='609FR010' on disk='vmedia/701-2738G.wvd.zip'
# Sector 907, program filename = '609FR010' 0010 REM '609FR010' - CONVERT ARCHIVE ADMIN TO 2200 ADMIN 0080 COM C$(4)64,C0$(123)2,A1,C2$(3)82,C3$(32)16 : DIM C1$(11)4,C(6) : GOSUB 2505 : PRINT AT(23,0);T1$; : GOSUB '47(STR(D$,32,2)) : IF D(20)<>0THEN 1300 : A6$(1)=STR(D2$(),14,25) : A6$(2)=STR(D2$(),40,20) : A6$(3)=STR(D2$(),61,20) : A6$(4)=STR(D2$(),82,20) : $TRAN(A6$(),J1$()) : $TRAN(A6$(),HEX(2080))R : A7$(1)=R5$ 0241 IF A5$="609AR100"THEN A7$(1)=C4$ : A7$(3)=STR(D2$(),112,2)&STR(D2$(),115,2) : AND (A7$(3),7F) : A7$(2)=STR(D2$(),103,2)&STR(D2$(),106,2)&STR(D2$(),109,2) : AND (A7$(2),7F) : A7$(4)=STR(D2$(),118,4)&STR(D2$(),123,2) : AND (A7$(4),7F) : A7$(6)=STR(D2$(),142,2)&STR(D2$(),145,2) : AND (A7$(6),7F) 0380 A7$(5)=STR(D2$(),133,2)&STR(D2$(),136,2)&STR(D2$(),139,2) : AND (A7$(5),7F) : A7$(7)=STR(D2$(),148,4)&STR(D2$(),153,2) : AND (A7$(7),7F) : A7$(9)=STR(D2$(),172,2)&STR(D2$(),175,2) : AND (A7$(9),7F) : A7$(8)=STR(D2$(),163,2)&STR(D2$(),166,2)&STR(D2$(),169,2) : AND (A7$(8),7F) 0500 A7$(11)=STR(D2$(),187,2)&STR(D2$(),190,2) : AND (A7$(11),7F) : A7$(10)=STR(D2$(),178,2)&STR(D2$(),181,2)&STR(D2$(),184,2) : AND (A7$(10),7F) : A7$(12)=D4$ : A7$(13)=STR(D2$(),203,4)&STR(D2$(),208,2) : AND (A7$(13),7F) : MAT A0=ZER : C$=STR(D2$(),126,6) : AND (C$,7F) : CONVERT C$TO A0(1) : ERRORA0(1)=0 0670 C$=STR(D2$(),156,6) : AND (C$,7F) : CONVERT C$TO A0(2) : ERRORA0(2)=0 0710 C$=STR(D2$(),199,3) : AND (C$,7F) : CONVERT C$TO A0(3) : ERRORA0(3)=0 0740 A0(3)=A0(3)+7 : C$=STR(D2$(),211,5) : AND (C$,7F) : CONVERT C$TO A0(4) : ERRORA0(4)=0 0800 C$=STR(D2$(),217,6) : AND (C$,7F) : CONVERT C$TO A0(5) : ERRORA0(5)=0 0850 ROTATE(STR(D2$(),227,14),4) : HEXUNPACKSTR(D2$(),227,14)TO B2$ : $TRAN(B2$,"0A")R : $UNPACK(F=HEX(A003A003A004A003A003A002A002A002A001A002A003))B2$TO C1$(1), C1$(2),C1$(3),C1$(4),C1$(5),C1$(6),C1$(7),C1$(8),C1$(9),C1$(10),C1$(11) : C1$(10)=STR(C1$(10),2,1) : IF C1$(10)="0"THEN C1$(10)="1" 0920 C1$(11)=STR(C1$(11),2,2) : $TRAN(C1$(),"A ")R : HEXPACKA8$()FROMC1$() : A9$()=ALL(01) : GOSUB '90(1,241,1) : GOSUB '90(2,241,0) : IF VAL(A9$(2))>2THEN A9$(2)=BIN(1) : GOSUB '90(3,242,7) : GOSUB '90(4,242,6) : GOSUB '90(5,242,5) : GOSUB '90(6,242,4) : GOSUB '90(7,242,3) : GOTO 1260 1150 DEFFN'90(C(1),C(2),C(3)) : C(4)=1 : C(5)=C(2) 1180 C(6)=C(3)+C(4) : IF C(6)>8THEN C(6)=C(6)-8 : ELSE C(5)=C(5)+1 : J$=STR(D2$(),C(5),1)AND D6$(C(6)) : IF J$=D6$(C(6))THEN 1242 : C(4)=C(4)+1 : IF C(4)>3THEN 1242 : GOTO 1180 1242 A9$(C(1))=BIN(C(4)) : RETURN 1260 B2$=" " : A5$()="609FR020JCATSMAL" : C=2 : LOAD T<C>A5$() 1300 GOSUB 2510 : LOAD TA5$ 2500 % DO NOT RENUMBER THE FOLLOWING 2505 T1$="(In Progress)" : RETURN 2510 B2$="Archive Document Damaged" : RETURN