image of READY prompt

Wang2200.org

Listing of file='609INA' on disk='vmedia/701-2737G.wvd.zip'

# Sector sector 532, 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 VERSTR(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