Listing of file='609FR010' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 373, 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