Listing of file='609In' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1699, program filename = '609In' 0010 REM 609In WP 2.3.5 Copyright Wang Laboratories, Inc. 1986 0135 COM T5(3),T5$(3)25,B9$,D0,D1,C0,C1,C3,C8,J7 : DIM S4,S5(3),S0(3),S3(3),T1$(16)40 : DIM S5,T1(6),S6(6),S1(6),T2$(6)40 : DIM S6,T2(3),S7(3),S2(3),S4(3) : DIM S1$6,S1$(16)2,S2$(27)2 : DIM T2$2,T1$80,S2$1,S7,S9,T0,T2,C2$52,D1$5 : DIM C3$1,U1$(12),V0$(1)1,U2$(12)4,C0$(256)1 0195 C2$="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" 0205 D1=0 : J7=1 : PRINT HEX(03); : RESTORE LINE2200 : GOSUB '61 : T5$(1)=B5$ : T5$(2)=B6$ 0235 GOSUB '62 : ON T5+2GOTO 260,260,270 : PRINT HEX(07); : GOTO 235 0260 COM CLEAR C : LOAD T"609menu" 0270 IF T5(1)<>3THEN 290 : A5$()="609QINDXOPSUBS" : LOAD T<2>A5$() 0290 IF T5(1)=2THEN 325 : C0= 770 : IF T5(2)>1THEN C3= 770 : ELSE C3=1 : B5$,C3$=T5$(1) : GOTO 340 0325 C0=84 : C3=1 : B6$,C3$=T5$(2) 0340 C1=POS(C2$=C3$) : DATA LOAD DC OPEN T#0,"609@ARCH" : DBACKSPACE #0,BEG : DSKIP #0,C1S : DATA LOAD DC #0,A0$() : DATA SAVE DC CLOSE#0 : IF T5(1)=2THEN 415 : IF STR(A0$(),2,8)<>" "THEN 790 : GOSUB 2010 : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07); : GOTO 235 0415 IF STR(A0$(),133,3)<>" "THEN 440 : GOSUB 2030 : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07); : GOTO 235 0440 B9$=STR(A0$(),133,3) : CONVERT STR(A0$(),136,1)TO C2 : GOSUB 2050 : PRINT AT(23,0,80);B5$(2);B2$;B5$(1); 0460 KEYIN D$,,465 0465 ON POS(HEX(820DF0)=D$)GOTO 485,485,205 : PRINT HEX(07); : GOTO 460 0485 IF C2=2THEN 610 : RESTORE LINE2330 : GOSUB '61 0505 GOSUB '62 : ON T5+2GOTO 205,205,535 : PRINT HEX(07); : GOTO 505 0535 B0$=T5$(1) : IF VER(STR(B0$,1,5),"####A")=5THEN 565 : GOSUB 2110 : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07); : GOTO 505 0565 D0=6 : D1=0 : SELECT #D0<B9$> : ERRORGOTO 590 0580 LIMITS T#D0,B0$,D1,D2,D3,D4 : ERRORGOSUB 2170 : GOTO 505 0585 IF D4=2AND (D2-D1)=1232THEN 610 0590 GOSUB 2030 : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07); : GOTO 505 0610 D0=6 : SELECT #D0<B9$> : GOSUB 890 : GOSUB 920 : IF D3=0THEN 665 : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07); : IF C2=1THEN 505 : ELSE GOTO 235 0665 D1$=STR(C0$(),4,5) : IF VER(STR(D1$,1,5),"####A")=5THEN 695 : GOSUB 2030 : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07); : GOTO 505 0695 GOSUB 2090 : PRINT AT(23,0,80);B5$(2);B2$;B5$(1); 0705 KEYIN D$ : ON POS(HEX(82F0)=D$)GOTO 725,740 : PRINT HEX(07); : GOTO 705 0725 C1=6 : GOTO 875 0740 IF C8=0THEN 205 : GOSUB 890 : GOSUB 1060 : IF D3=0THEN 205 : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07); : IF C2=1THEN 505 : ELSE GOTO 235 0790 B9$=STR(A0$(),2,8) : D9=1 0805 GOSUB '236(12,D9) : IF R1$<>HEX(00)THEN 820 : IF V1>0THEN 835 0820 GOSUB 2070 : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07); : GOTO 235 0835 MAT SEARCHSTR(U1$(),,V1*16),=STR(B9$,1,8)TO T2$STEP 16 : IF T2$>HEX(0000)THEN 865 : IF V1<12THEN 820 : D9=D9+12 : GOTO 805 0865 B9$=STR(U1$(),VAL(T2$,2)) : C1=4 0875 LOAD T"609INA"10,3999 0890 $OPEN 900,#D0 : RETURN 0900 $BREAK255 : GOTO 890 0920 D3=1 : DATA LOAD BA T#D0,(D1)C0$() : ERRORGOTO 1025 0935 IF VER(STR(C0$(),4,5),"####A")=5THEN 955 : GOSUB 2030 : GOTO 1010 0955 B2$=BIN(#PART) : IF STR(C0$(),9,1)=B2$THEN 1000 : IF STR(C0$(),9,1)=HEX(00)THEN 990 : GOSUB 2150 : GOTO 1010 0990 STR(C0$(),9,1)=B2$ : DATA SAVE BA T#D0,(D1)C0$() : ERRORGOTO 1040 1000 C8=1 : D3=0 1010 $CLOSE#D0 : RETURN 1025 GOSUB 2050 : GOTO 1010 1040 GOSUB 2170 : GOTO 1010 1060 D3=1 : C8=0 : DATA LOAD BA T#D0,(D1)C0$() : ERRORGOTO 1145 1080 IF VER(STR(C0$(),4,5),"####A")=5THEN 1100 : GOSUB 2030 : GOTO 1130 1100 IF STR(C0$(),9,1)=HEX(00)THEN 1125 : STR(C0$(),9,1)=HEX(00) : DATA SAVE BA T#D0,(D1)C0$() : ERRORGOTO 1160 1125 D3=0 1130 $CLOSE#D0 : RETURN 1145 GOSUB 2050 : GOTO 1130 1160 GOSUB 2170 : GOTO 1130 2010 B2$="Library does not exist" : RETURN 2030 B2$="Archive does not exist" : RETURN 2050 B2$="Please mount archive, press EXECUTE or CANCEL" : RETURN 2070 B2$="Volume does not exist" : RETURN 2090 B2$="Archive diskette is "&D1$&" Press EXECUTE or CANCEL" : RETURN 2110 B2$="Invalid Archive ID" : RETURN 2150 B2$="Archive in use" : RETURN 2170 B2$="Archive not available" : RETURN 2200 DATA 3,0,0,"D o c u m e n t I n d e x" : DATA 4,3,0,"Please choose one from each column:" : DATA 3,5,8,"Location" : DATA 1,7,8,1,"Library","Archive","Printers","\DE" : DATA 2,7,20,1,"A" : DATA 2,8,20,1,"A" : DATA 3,5,32,"Which Ones" 2270 DATA 1,7,32,1,"All","By Author","By Operator","By Title","By Comment","In Use","Recovered","Active","\DE" : DATA 3,5,50,"Author/Operator/Title/Comment" : DATA 2,8,53,25," " : DATA 3,14,8,"Sort Order" 2310 DATA 1,16,8,1,"By Document Number","By Author","By Operator","By Title"," By Comment","\DE" : DATA 0 2330 DATA 3,0,0,"D o c u m e n t I n d e x" : DATA 4,22,0,"Enter Archive name" : DATA 2,22,20,5," " : DATA 0