Listing of file='609INA' on disk='vmedia/731-0067G.wvd.zip'
# Sector 1695, program filename = '609INA' 0010 REM % 609INA 237-07/30/86 Copyright Wang Laboratories Inc. 1986 0205 COM J9$(C0)C1,D4,D1$5,J5,C9$(J7),J6,C8$(1)1,@L1,@L2,@L3,@L4 : DIM J2$(C3)C1,J0$1,T1$80,V2$(256)1,J7$(256)1,D0$2 : DIM T2$2,C3$1,U1$(110),V0$(1)1,J6$(256)1,J3$32,U2$(110)4 : @L1=110 : @L2= 7*@L1 : @L3,@L4=0 : SELECT ON ALERT GOSUB 555 0211 J3$=HEX(0000040108020C030104050509060D07020806090A0A0E0B030C070D0B0E0F0F) : IF J5>0THEN 370 : IF T5(1)=2THEN 780 0260 IF T5$(1)>" "THEN 430 : DATA LOAD DC OPEN T#0,"609@DEVC" : DATA LOAD DC A0$() : SELECT #5<STR(A0$(),2,3)> : GOSUB '236(15,1) : IF R1$=HEX(00)AND V1>0THEN 345 : GOSUB 2130 : IF Q2$=" "THEN 335 : Q7$=B2$ : Q2$="D" : GOTO 555 0335 PRINT AT(23,0,80);B5$(2);B2$;HEX(07);B5$(1); : GOTO 525 0345 C9$()=U1$() : J6=V1 : DATA LOAD DC OPEN T#5,"609@ARCH" : DSKIP #5,1S 0370 J5=J5+1 : DATA LOAD DC #5,A0$() : IF STR(A0$(),2,8)>" "THEN 395 : IF J5=52THEN GOSUB '31 : GOTO 370 0395 T5$(1)=STR(A0$(),1,1) : B9$=STR(A0$(),2,8) : MAT SEARCHSTR(C9$(),,J6*16),=STR(B9$,1,8)TO T2$STEP 16 : IF T2$>HEX(0000)THEN 425 : IF J5=52THEN GOSUB '31 : ELSE GOTO 370 0425 B9$=STR(C9$(),VAL(T2$,2)) 0430 C3$=T5$(1) : D9=1 : D4=0 : J9$()=" " : B0$="DOCUMENT."&C3$ 0433 $IF OFF /005,460 : GOSUB 2133 : PRINT AT(22,0,);AT(22,79-LEN(B2$));B5$(2);B2$;B5$(1);AT(1,1) 0460 GOSUB '217(@L1,D9,B0$,B9$) : IF R1$=HEX(00)THEN 580 : IF C9=52AND J5<52THEN 370 : IF Q2$=" "THEN 505 : Q2$="F" : GOSUB '31 0505 IF C9=52THEN GOSUB '31 : GOSUB 2010 : PRINT AT(23,0,80);B5$(2);B2$;HEX(07);B5$(1); 0525 KEYIN C3$ : IF C3$=HEX(F0)THEN 555 : PRINT HEX(07); : GOTO 525 0545 DEFFN'31 : IF C9=52AND J5<52THEN 370 0555 COM CLEAR C : IF C9=52THEN $CLOSE : IF Q2$=" "THEN LOAD T"609menu" : COM CLEAR A0$() : A5$=STR(R3$(),1,9) : R3$()=STR(R3$(),10) : $PSTAT=STR(A5$,1,8) : LOAD TA5$ 0580 FOR J9=1TO V1 : J9$(D9)=STR(U1$(),16*J9-15,4) : D9=D9+1 : NEXT J9 : IF V1<@L1THEN 625 : D4=D4+V1 : IF D4=@L2THEN 589 : GOTO 460 0584 GOSUB '217(@L1,D9,B0$,B9$) : IF R1$=HEX(00)THEN 586 : IF C9=52AND J5<52THEN 370 : IF Q2$=" "THEN 505 : Q2$="F" : GOSUB '31 0586 IF V1=0 THEN 625 : IF @L4<>0 THEN 588 0587 REM .set flag and initial count. : @L3=1 : @L4=D9 0588 REM .extra counter : @L4=@L4+V1 0589 REM .increment counts and check if done. : D9=D9+V1 : IF V1<@L1THEN 635 : GOTO 584 0625 D4=D4+V1 0635 IF T5(2)=1THEN 690 : J9=1 : FOR J2=1TO D4 : B0$="DOCUMENT."&C3$&"."&J9$(J2) : GOSUB '217(1,1,B0$,B9$) : IF R1$<>HEX(00)THEN 675 : GOSUB 1295 0675 NEXT J2 : D4=J9-1 : J9$()=J2$() 0690 C3=2*D4 : IF D4>0THEN 750 : IF C9=52AND J5<52THEN 370 : IF Q2$=" "THEN 730 : Q2$="F" : GOSUB '31 0730 IF C9=52THEN GOSUB '31 : GOSUB 2050 : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07); : GOTO 525 0750 IF T5(3)=1THEN 765 : IF T5(3)=2OR T5(3)=3OR T5(3)=5THEN C1=24 : IF T5(3)=4THEN C1=29 0765 $PSTAT="609INAS" : LOAD T"609INAS"10,3999 0780 DATA LOAD BA T#D0,(D1)J6$() : D1$=STR(J6$(),4,5) : D8=0 : INIT(00)J9$() : FOR J2=12TO 1STEP -11 : DATA LOAD BA T#D0,(D1+J2)J6$() : D8=D8+VAL(J6$(256)) : IF J2=12THEN STR(J9$(),1,252)=STR(J6$(),1,252) : IF J2=1THEN STR(J9$(),253,252)=STR(J6$(),1,252) : IF J6$(256)<HEX(FC)THEN J2=1 : NEXT J2 : IF D8>0THEN 950 : GOSUB 2030 : PRINT AT(23,0,80);B5$(2);B2$;HEX(07);B5$(1); 0865 KEYIN C3$ : IF C3$=HEX(F0)THEN 890 : PRINT HEX(07); : GOTO 865 0890 IF C8=0THEN 935 : GOSUB 1475 : GOSUB 1505 : IF D3=0THEN 935 : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07); : GOTO 865 0935 COM CLEAR C : LOAD T"609menu" 0950 D4=D8/6 : IF T5(2)=1OR T5(2)=8THEN 1075 : MAT REDIM U1$(84)6 : LIMITS T#0,"609$TRAN",J0,J1,J1,J1 : DATA LOAD BA T#0,(J0+1)J7$() : J9=1 : FOR J2=1TO D4 : J2$=STR(J9$(J2),5,1) : $TRAN(J2$,J3$)R : J0=VAL(STR(J9$(J2),4,1))*16+VAL(J2$) : DATA LOAD BA T#D0,(J0+D1)J6$() : $TRAN(STR(J6$(),11,100),J7$()) : $TRAN(J6$(),HEX(2080))R : GOSUB 1115 : NEXT J2 1040 D4=J9-1 : IF D4>0THEN 1065 : GOSUB 2050 : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07); : GOTO 865 1065 J9$()=U1$() 1075 IF T5(3)=1THEN 1105 : C3=2*D4 : IF T5(3)=2OR T5(3)=3OR T5(3)=5THEN C1=22 : IF T5(3)=4THEN C1=27 : $PSTAT="609INAS" : LOAD T"609INAS" 1105 IF C9=0THEN LOAD T"609INAC" : ELSE LOAD T"609PINXA" 1115 IF T5(2)=7THEN 1260 : IF T5(2)=6THEN 1235 : IF T5(2)=5THEN 1215 : IF T5(2)=4THEN 1195 : IF T5(2)=3THEN 1175 : IF T5(2)=2THEN 1155 : RETURN 1155 IF STR(J6$(),61,20)<>" "AND T5$(3)=" "THEN 1285 : MAT SEARCHSTR(J6$(),61,20),=T5$(3)TO D0$ : IF D0$>HEX(0000)THEN 1275 : ELSE GOTO 1285 1175 IF STR(J6$(),40,20)<>" "AND T5$(3)=" "THEN 1285 : MAT SEARCHSTR(J6$(),40,20),=T5$(3)TO D0$ : IF D0$>HEX(0000)THEN 1275 : ELSE GOTO 1285 1195 IF STR(J6$(),14,25)<>" "AND T5$(3)=" "THEN 1285 : MAT SEARCHSTR(J6$(),14,25),=T5$(3)TO D0$ : IF D0$>HEX(0000)THEN 1275 : ELSE GOTO 1285 1215 IF STR(J6$(),82,20)<>" "AND T5$(3)=" "THEN 1285 : MAT SEARCHSTR(J6$(),82,20),=T5$(3)TO D0$ : IF D0$>HEX(0000)THEN 1275 : ELSE GOTO 1285 1235 J0$=STR(J9$(J2),6,1) : J0$=AND HEX(40) : IF J0$=HEX(00)THEN 1285 : GOTO 1275 1260 J0$=STR(J9$(J2),6,1) : J0$=AND HEX(80) : IF J0$=HEX(00)THEN 1285 1275 U1$(J9)=J9$(J2) : J9=J9+1 1285 RETURN 1295 IF T5(2)=8THEN 1450 : IF T5(2)=7THEN 1435 : IF T5(2)=6THEN 1420 : IF T5(2)=5THEN 1400 : IF T5(2)=4THEN 1380 : IF T5(2)=3THEN 1360 : IF T5(2)=2THEN 1340 : RETURN 1340 IF STR(U1$(),51,20)<>" "AND T5$(3)=" "THEN 1465 : MAT SEARCHSTR(U1$(),51,20),=T5$(3)TO D0$ : IF D0$>HEX(0000)THEN 1455 : ELSE GOTO 1465 1360 IF STR(U1$(),26,20)<>" "AND T5$(3)=" "THEN 1465 : MAT SEARCHSTR(U1$(),26,20),=T5$(3)TO D0$ : IF D0$>HEX(0000)THEN 1455 : ELSE GOTO 1465 1380 IF STR(U1$(),1,25)<>" "AND T5$(3)=" "THEN 1465 : MAT SEARCHSTR(U1$(),1,25),=T5$(3)TO D0$ : IF D0$>HEX(0000)THEN 1455 : ELSE GOTO 1465 1400 IF STR(U1$(),76,20)<>" "AND T5$(3)=" "THEN 1465 : MAT SEARCHSTR(U1$(),76,20),=T5$(3)TO D0$ : IF D0$>HEX(0000)THEN 1455 : ELSE GOTO 1465 1420 IF STR(V2$(),7,1)=HEX(00)THEN 1465 : GOTO 1455 1435 IF STR(U1$(),106,1)=HEX(00)THEN 1465 : GOTO 1455 1450 IF STR(U1$(),109,1)=HEX(FF)THEN 1465 1455 J2$(J9)=J9$(J2) : J9=J9+1 1465 RETURN 1475 $OPEN 1485,#D0 : RETURN 1485 $BREAK255 : GOTO 1475 1505 D3=1 : C8=0 : DATA LOAD BA T#D0,(D1)J6$() : ERRORGOTO 1590 1525 IF VER(STR(J6$(),4,5),"####A")=5THEN 1545 : GOSUB 2110 : GOTO 1575 1545 IF STR(J6$(),9,1)=HEX(00)THEN 1570 : STR(J6$(),9,1)=HEX(00) : DATA SAVE BA T#D0,(D1)J6$() : ERRORGOTO 1605 1570 D3=0 1575 $CLOSE#D0 : RETURN 1590 GOSUB 2070 : GOTO 1575 1605 GOSUB 2090 : GOTO 1575 2010 B2$="Library is empty - Press CANCEL" : RETURN 2030 B2$="Archive is empty - Press CANCEL" : RETURN 2050 B2$="No documents found as specified - Press CANCEL" : RETURN 2070 B2$="Please mount archive, press EXECUTE or CANCEL" : RETURN 2090 B2$="Archive not available" : RETURN 2110 B2$="Archive does not exist" : RETURN 2130 B2$="Volume map is empty - Print Index" : RETURN 2133 B2$="Preparing list of documents. Please wait." : RETURN