Listing of file='609RCVRA' on disk='vmedia/731-0067G.wvd.zip'
# Sector 2225, program filename = '609RCVRA'
0010 REM '609RCVRA' - FIX ADMIN DATA FOR RECOVERING DOCUMENT
0080 DIM D2$(256)1,C7$(11)4
: GOSUB 2505
: PRINT AT(23,0,);B2$;
: A6$()=ALL(20)
: A7$()=R5$&ALL("0")
: A8$()=HEX(001A120A0002002A002A50AA66AA01AA1AAA1AAA10AA)
: A9$()=ALL(01)
: MAT A0=ZER
: GOSUB 2510
: A6$()=B2$
: B2$=" "
: IF C2$=HEX(FF)THEN 1010
: DATA LOAD BA T#6,(D1+D7)D2$()
: ERRORGOTO 1010
0200 A6$(1)=STR(D2$(),14,25)
: A6$(2)=STR(D2$(),40,20)
: A6$(3)=STR(D2$(),61,20)
: A6$(4)=STR(D2$(),81,20)
: $TRAN(A6$(),J1$())
: A7$(1)=R5$
: 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)
0360 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)
: 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)
0490 AND (A7$(9),7F)
: A7$(8)=STR(D2$(),163,2)&STR(D2$(),166,2)&STR(D2$(),169,2)
: AND (A7$(8),7F)
: 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)=STR(D2$(),193,5)
: A7$(13)=STR(D2$(),203,4)&STR(D2$(),208,2)
0630 AND (A7$(13),7F)
: MAT A0=ZER
: C3$=STR(D2$(),126,6)
: AND (C3$,7F)
: CONVERT C3$TO A0(1)
: ERRORA0(1)=0
0710 C3$=STR(D2$(),156,6)
: AND (C3$,7F)
: CONVERT C3$TO A0(2)
: ERRORA0(2)=0
0750 C3$=STR(D2$(),199,3)
: AND (C3$,7F)
: CONVERT C3$TO A0(3)
: ERRORA0(3)=0
0775 A0(3)=A0(3)+7
: C3$=STR(D2$(),211,5)
: AND (C3$,7F)
: CONVERT C3$TO A0(4)
: ERRORA0(4)=0
0830 C3$=STR(D2$(),217,6)
: AND (C3$,7F)
: CONVERT C3$TO A0(5)
: ERRORA0(5)=0
0880 ROTATE(STR(D2$(),227,14),4)
: HEXUNPACKSTR(D2$(),227,14)TO B2$
: $TRAN(B2$,"0A")R
: $UNPACK(F=HEX(A003A003A004A003A003A002A002A002A001A002A003))B2$TO C7$(1),
C7$(2),C7$(3),C7$(4),C7$(5),C7$(6),C7$(7),C7$(8),C7$(9),C7$(10),C7$(11)
: C7$(10)=STR(C7$(10),2,1)
: IF C7$(10)="0"THEN C7$(10)="1"
0923 C7$(11)=STR(C7$(11),2,2)
: $TRAN(C7$(),"A ")R
: HEXPACKA8$()FROMC7$()
: A9$()=ALL(01)
: B2$=" "
1010 A5$()="609RCVR4609Open JCATSMALREC-GEN"
: LOAD T<4>A5$()
2500 % DO NOT RENUMBER THE FOLLOWING
2505 B2$="Recovering Admin Data"
: RETURN
2510 B2$="DAMAGED DOCUMENT"
: RETURN