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