Listing of file='609RCVR3' on disk='vmedia/731-0067G.wvd.zip'
# Sector 2215, program filename = '609RCVR3'
0010 REM '609RCVR3' - INPUT A SINGLE DOCUMENT ID TO RECOVER
0070 A5$()="609FG070Prime 62609Open JCATSMAL"
: C=4
: LOAD T<C>A5$()3000,9999BEG 90
0090 IF B2$<>" "THEN PRINT AT(23,0,);B2$;HEX(07);
: COM C1$1,C2$1,D7
: COM C1$(4)64,D2$(256)1,C0$(123)2,C2$(16),C3$(16),C$2,J1$16,T2$2
: DIM U1$(2)64,U2$(8)4,V0$(1)1
: DIM V2$(256)1,P1$(160)1,N2$67,N3$16,M1$(10)2,N1$85,M2(6),R1$1,N8$4,N7$2,P
1$68,P4$1,N4$2,N0$8,O$(128)2
0180 DIM S5(1),S0(1),T5(1),S3(1)
: DIM T1$(1)1,S1$(1)1
: DIM T1(2),S6(2),S1(2),T2$(2)80
: DIM T2(1),S7(1),S2(1),S4(1),T5$(1)5
: DIM S2$(5)2
: DIM S1$1
: DIM S2$1,T1$80,T2$2,S0,S4,S5,S6,S7,S9,T0,T2,T3,T5,C0,T7
: RESTORE LINE2510
: GOSUB '61
: T5$(1)=R5$
0290 GOSUB '62
: ON T5+1GOTO 305,310
: GOSUB 2530
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 290
0305 GOSUB '31
0310 R5$=T5$(1)
: GOSUB '110(R5$,"D")
: IF B2$=" "THEN GOSUB '111(B0$,B9$,B4$,HEX(FF))
: IF R1$=HEX(03)THEN 430
: IF R1$<>HEX(00)OR B2$<>" "THEN 400
: GOSUB '212(V3)
: GOSUB 2535
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 290
0400 PRINT AT(23,0,);B2$;HEX(07);
: GOTO 290
0430 D7=0
: CONVERT STR(R5$,1,4)TO S7
: PACK(####)T1$FROMS7
: STR(T1$,3,1)=STR(R5$,5,1)
: MAT SEARCHJ2$(),=STR(T1$,1,3)TO T2$STEP 6
: IF T2$<>HEX(0000)THEN 590
: C1$,C2$=HEX(FF)
: GOSUB 2540
: PRINT AT(23,0,);B2$;HEX(07);
: GOSUB '34(0)
: GOSUB 2545
: PRINT AT(23,0,);B2$;
: GOSUB '34(0)
: IF J$<>HEX(0D)THEN 290
: GOTO 670
0590 C2$=HEX(00)
: C$,J9$=STR(J2$(),VAL(T2$,2)+3,2)
: $TRAN(STR(J9$,2),D7$)R
: D7=VAL(J9$)*16+VAL(STR(J9$,2))
: DATA LOAD BA T#6,(D1+D7)D2$()
: IF STR(J2$(),VAL(T2$,2)+5,1)>HEX(20)THEN C1$=HEX(FF)
: ELSE C1$=HEX(00)
0670 LOAD T"609RCVRA"
0671 DEFFN'31
: COM CLEAR C
: LOAD T"609menu"
2500 % DO NOT RENUMBER THE FOLLOWING
2510 DATA 4,0,0,"WANG 2200 Word Processing System"
: DATA 4,10,28,"Document to Retrieve : "
: DATA 2,10,51,5," "
: DATA 0
2530 B2$="Invalid Key"
: RETURN
2535 B2$="Document Already Exists"
: RETURN
2540 B2$="Document Admin Not Found on Archive"
: RETURN
2545 B2$="Press EXECUTE to search archive for document data"
: RETURN