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