image of READY prompt

Wang2200.org

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