Listing of file='609RCVR5' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2271, program filename = '609RCVR5'
0010 REM '609RCVR5' - SEARCH RECOVERY OF DOCUMENT
0160 GOSUB 2505
: PRINT AT(23,0,);B2$;
: DIM C4$(3)82,C0$(123)2,C4$3
: CONVERT STR(R5$,1,4)TO J0
: PACK(####)C3$FROMJ0
: STR(C3$,3,1)=STR(R5$,5,1)
: J4=17
: C0$()=ALL(FF)
: STR(C0$(),1,15)=ALL(00)
: C0$(1)=BIN(1,2)
: C0$(2)=BIN(2,2)
: C0$(8)=BIN(3,2)
: V1$()=C0$()
: V4$="P"
: GOSUB 1350
: V1$()=ALL(FE)
0370 $PACK(F=HEX(A019A0066006A002A001))V1$()FROMA6$(),A7$(),A0(),A8$(),A9$()
: V4$="A"
: GOSUB 1350
: J5=1
: C2$()=ALL(20)
: V4$="T"
: IF D7=0THEN D7=8
: FOR C=D7TO 1231
: GOSUB '50(C)
: DATA LOAD BA T#6,(D1+J)C6$()
: ERRORGOTO 850
0540 IF STR(C6$(),5,3)<>C3$THEN 850
: IF C6$(4)="A"THEN 850
: $TRAN(STR(C6$(),8),J1$())
: $TRAN(STR(C6$(),8),HEX(3F003F013F023F033F043F053F063F073F083F093F0A3F0B3F
0C3F0D3F0E3F0F))R
: J3=VAL(C6$(3))-6
: IF J3<1THEN 850
: J0=POS(STR(C6$(),8,J3)=8F)
: IF J0<>0THEN 730
: IF J6=1THEN 710
: C2$()=HEX(8F31)&ALL(80)
: STR(C2$(),80)=HEX(83)
0700 J6=1
0710 GOSUB '85(STR(C6$(),8,J3))
: GOTO 850
0730 IF J0<>1THEN 820
: IF J6=0THEN 780
: IF POS(STR(C2$(),2)=8F)=0THEN GOSUB '85(HEX(8F))
: GOSUB 930
0780 GOSUB '85(STR(C6$(),8,J3))
: J6=1
: GOTO 850
0820 J6=0
: GOSUB '85(STR(C6$(),8,J3))
: GOSUB 930
0850 NEXT C
: IF J>2OR POS(-C2$()>20)>0THEN 870
: C2$()=HEX(8F)&ALL(80)
: STR(C2$(),80)=HEX(8380)
0870 GOSUB 930
: GOSUB 2510
: PRINT AT(23,0,);B2$;
0910 LOAD TA5$
0930 IF POS(-C2$()>20)=0THEN 970
: V1$()=C2$()
: C2$()=" "
: GOSUB 1350
0970 RETURN
0990 DEFFN'85(C3$())
1010 IF POS(-C2$()>20)+POS(-C3$()>20)>246THEN 1050
: STR(C2$(),POS(C2$()=20))=C3$()
: RETURN
1050 J0=POS(-C2$()>20)
: IF J0=0THEN 1090
: V1$()=STR(C2$(),1,J0)
: C2$()=" "
1090 IF J0<246THEN STR(V1$(),1+J0)=STR(C3$(),1,246-J0)
: C3$()=STR(C3$(),246-J0+1)
: IF J5=J4THEN 1200
: GOSUB 1350
: C2$()=C3$()
: RETURN
1200 J1=POS(STR(V1$(),230)=80)+229
: IF J1=229THEN J1=245
: C4$()=STR(V1$(),J1)
: STR(V1$(),J1)=HEX(8F)
: GOSUB 1350
: J5=1
: C2$()=HEX(8F31)&ALL(80)
: STR(C2$(),80)=HEX(83)&ALL(20)
: C3$()=C3$()&C4$()
: GOTO 1010
1350 GOSUB '225(A1,1,1,1)
: IF R1$<>HEX(00)THEN 1550
: J=J+1
: J5=J5+1
: RETURN
1440 DEFFN'50(J)
: J0=INT(J/16)
: J9$=BIN(J-(J0*16))
: $TRAN(J9$,D7$)R
: J=J0*16+VAL(J9$)
: RETURN
1520 GOSUB 2515
: GOTO 910
1550 ON VAL(R1$)GOTO 1600
: IF R1$>HEX(29)THEN CONVERT (VAL(R1$))TO T2$,(##)
: ELSE HEXUNPACKR1$TO T2$
: GOSUB 2520
: GOTO 1620
1600 GOSUB 2525
1620 GOTO 910
2500 % DO NOT RENUMBER THE FOLLOWING
2505 B2$="Retrieving Document"
: RETURN
2510 B2$="Closing Document"
: RETURN
2515 B2$="Page overflow, document partially retrieved"
: RETURN
2520 B2$="Error occurred while adding records = "&T2$
: RETURN
2525 B2$="Volume Full"
: RETURN