Listing of file='609PINX' on disk='vmedia/701-2737G.wvd.zip'
# Sector 655, program filename = '609PINX'
0010 REM 609PINX 260-12/07/90 Copyright Wang Laboratories, Inc. 1990-KKB
0260 COM D5
: DIM T2$2,U1$(8),V0$(1)1,C9$79,V2$(256)1,T1$80,C0$1,C7$6,J$80,J4$9,J7$80,J
8$80,J9$,U2$(8),V0$(1)1,C0$(256)1,@H9$3
0266 $PSTAT="609PINX "
: SELECT ON ALERTGOSUB 1342
: LIMITS T#0,"609@DEVC",J,D0,D0,D0
: CONVERT STR(C6$,1,1)TO D0
: DATA LOAD DA T#0,(J+D0)A0$(1)
: SELECT #D0<STR(A0$(1),2,3)>
: @H9$=STR(A0$(1),2,3)
: GOSUB 1370
: CONVERT STR(C6$,2,2)TO J8
: IF J8=0THEN J8=3
: IF D5>0THEN 440
0415 SELECT PRINT <@H9$>
: PRINT HEX(020D0C030F)
: SELECT PRINT 005
: IF STR(A0$(1),5,1)=HEX(02)THEN STR(C6$,6,1)="1"
: ELSE GOSUB 1780
: J$=HEX(0C0A0D)
: REM SELECT PRINT <@H9$>
: REM PRINT J$
: SELECT PRINT 005
0440 IF STR(C6$,6,1)="2"THEN SELECT PRINT <@H9$>
: PRINT HEX(02070F)
: SELECT PRINT 005
: IF STR(C6$,7,1)="1"THEN SELECT PRINT <@H9$>
: PRINT HEX(020901020A000F)
: SELECT PRINT 005
: IF STR(C6$,7,1)="2"THEN SELECT PRINT <@H9$>
: PRINT HEX(020901020C000F)
: SELECT PRINT 005
: IF STR(C6$,7,1)="3"THEN SELECT PRINT <@H9$>
: PRINT HEX(020901020F000F)
: SELECT PRINT 005
: GOSUB 2020
0490 $FORMATJ7$=SKIP 2,A6,SKIP 2,A25,SKIP 3,A20,SKIP 2,A20
: $FORMATJ8$=A9,SKIP 27,A5,SKIP 17,A20
: C9$=ALL("-")
: CONVERT STR(C6$,4,2)TO J3
: J3=INT((J3-13)/3)
: $IF OFF /005,590
: GOSUB 2280
0590 IF D5=0THEN D5=1
: $IF OFF /005,640
: PRINT AT(9,62);D5
0640 FOR C6=1TO D4
: B0$="DOCUMENT."&T5$(1)&"."&J9$(C6)
: GOSUB '217(1,1,B0$,B9$)
: B0$=STR(B0$,1,10)
: C7$=J9$(C6)&T5$(1)
: IF R1$<>HEX(00)THEN 880
: IF STR(V2$(),8,6)<>HEX(202020202020)THEN STR(C7$,6,1)="*"
: GOSUB 2080
: J$=ALL(" ")
: $PACK(F=J7$)J$FROMC7$,STR(U1$(),1,25),STR(U1$(),76,20),STR(U1$(),51,20)
: GOSUB 1730
0780 SELECT PRINT <@H9$>
: PRINT J$;HEX(0D);
: SELECT PRINT 005
: $IF OFF /005,810
: PRINT AT(5,2);STR(J$,1,77)
0810 J$=ALL(" ")
: $PACK(F=J8$)J$FROMJ4$,STR(U1$(),101,5),STR(U1$(),26,20)
: GOSUB 1730
: AND (J$,7F)
: SELECT PRINT <@H9$>
: PRINT J$;HEX(0D);
: SELECT PRINT 005
: $IF OFF /005,870
: PRINT AT(5,2);STR(J$,1,77)
0870 GOSUB 1730
0880 SELECT PRINT <@H9$>
: PRINT C9$;HEX(0D);
: SELECT PRINT 005
: C4=C4+1
: C0$=" "
: KEYIN C0$,930,888
: GOTO 930
0888 IF C0$=HEX(F0)THEN 1344
0930 IF Q2$=" "THEN 1050
: IF C0$<>HEX(07)THEN 980
: Q2$="f"
: C0$=HEX(F0)
: GOTO 1060
0980 IF C0$<>HEX(0B)THEN 1050
: GOSUB 1820
: IF D>0THEN 1040
: GOSUB 2250
: PRINT AT(23,0);J$;HEX(07);
: GOTO 1070
1040 $RELEASETERMINALTO C
1050 IF C0$<>HEX(F0)THEN 1070
1060 C6=D4
1070 IF C4<J3AND C6<D4THEN 1220
: IF C6<D4THEN 1088
: IF @L3=0THEN 1088
: GOSUB 2434
1088 J$=ALL(" ")
: SELECT PRINT <@H9$>
: PRINT J$
: SELECT PRINT 005
: GOSUB 1730
: GOSUB 2170
: CONVERT D5TO STR(J$,75,3),(###)
: SELECT PRINT <@H9$>
: PRINT J$
: SELECT PRINT 005
: D5=D5+1
: J$=HEX(0C0A0D)
: SELECT PRINT <@H9$>
: PRINT J$
: SELECT PRINT 005
: IF STR(C6$,6,1)="2"THEN SELECT PRINT <@H9$>
: PRINT HEX(02070F)
: SELECT PRINT 005
: IF C6=D4THEN 1220
: C4=0
: $IF OFF /005,1210
1200 PRINT AT(9,62);D5
1210 GOSUB 2020
1220 NEXT C6
: IF @L3=0THEN 1277
: GOSUB 2434
1277 IF J5>1AND J5<52AND C0$<>HEX(F0)THEN 1278
: J$=HEX(020D0C030F0D)
: SELECT PRINT <@H9$>
: PRINT J$
: SELECT PRINT 005
1278 $CLOSE#D0
1280 DEFFN'31
: $PSTAT=" "
: IF C9=52AND C0$<>HEX(F0)THEN LOAD T"609INA"10,3999
: $PSTAT=Q2$
: IF Q2$<>" "THEN 1340
1320 COM CLEAR C
: $PSTAT=" "
: LOAD T"609menu"
1340 COM CLEAR A0$()
: A5$=STR(R3$(),1,9)
: $PSTAT=STR(A5$,1,8)
: R3$()=STR(R3$(),10)
: IF A5$=" "THEN A5$="609menu"
: $PSTAT=" "
: LOAD TA5$
1342 RETURN CLEAR
1344 GOSUB 2411
: SELECT PRINT <@H9$>
: PRINT J$
: SELECT PRINT 005
: GOTO 1278
1370 $OPEN 1620,#D0
: ERRORGOTO 1390
1380 GOTO 1502
1390 IF Q2$=" "THEN 1420
: Q2$="C"
: GOTO 1320
1420 GOSUB 2190
: PRINT AT(23,0);J$;
1440 KEYIN B2$
: IF B2$=HEX(F0)THEN 1280
: PRINT HEX(07);
: GOTO 1440
1480 C=1
: B2$=ALL(00)
1484 $GIO#D0,(010102001212400040004000,B2$)
: IF STR(B2$,8,1)=HEX(00)THEN 1700
: C=C+1
: IF C<10THEN 1484
: IF Q2$=" "THEN 1570
1494 Q2$="C"
: GOTO 1320
1502 B2$=ALL(00)
: STR(B2$,3,1)=HEX(FF)
: C0$()=HEX(2000)
: STR(C0$(),3)=STR(C0$(),1)
: $GIO#D0,(0140020012121C3ED00B1B414240D00B1C3AE0050BFF10000BFF,B2$)C0$()
: IF STR(B2$,11,1)=HEX(FF)THEN 1700
: IF Q2$<>" "THEN 1494
1570 $IF OFF /005,1502
: GOSUB 2210
: PRINT AT(23,0);J$;
: KEYIN B2$
: IF STR(B2$,1,1)=HEX(F0)THEN 1280
: GOTO 1502
1620 IF Q2$=" "THEN 1650
: Q2$="C"
: GOTO 1320
1650 $IF OFF /005,1370
: GOSUB 2230
: PRINT AT(23,0);J$;
: KEYIN B2$
: IF B2$=HEX(F0)THEN 1280
: GOTO 1370
1700 $IF OFF /005,1710
: PRINT AT(23,0,80);
1710 RETURN
1730 FOR J=1TO J8
: SELECT PRINT <@H9$>
: PRINT " ";
: SELECT PRINT 005
: NEXT J
: RETURN
1780 RETURN
: IF STR(C6$,6,1)="4"THEN $GIO#D0,(400240064001400F,J9$)
: IF STR(C6$,6,1)="3"THEN $GIO#D0,(400240064002400F,J9$)
: RETURN
1820 D=0
: PACK(##)D$FROM#TERM
: STR(D$,2,1)="W"
: FOR C=1TO 16
: D9$=$PSTAT(C)
: ERRORGOTO 1920
1870 IF STR(D9$,15,2)=D$THEN 1900
: NEXT C
: GOTO 1940
1900 D=C
: RETURN
1920 C=16
: NEXT C
1940 FOR C=2TO 16
: D9$=$PSTAT(C)
: ERRORRETURN
1960 IF STR(D9$,15,2)=HEX(0057)THEN 1900
: NEXT C
: RETURN
2020 GOSUB 1730
: C9$=" Document Name Comments/Archive ID Author/
Operator "
: SELECT PRINT <@H9$>
: PRINT C9$
: SELECT PRINT 005
: GOSUB 1730
: C9$=ALL("-")
: SELECT PRINT <@H9$>
: PRINT C9$;HEX(0D);
: SELECT PRINT 005
: RETURN
2080 IF STR(U1$(),109,1)=HEX(00)THEN 2110
: IF STR(U1$(),109,1)=HEX(FF)THEN J4$="archived"
: GOTO 2150
2110 IF STR(V2$(),7,1)=HEX(00)AND STR(U1$(),107,1)=HEX(00)THEN 2140
: J4$="in use"
: GOTO 2150
2140 IF STR(U1$(),106,1)=HEX(00)THEN J4$="available"
: ELSE J4$="recovered"
2150 RETURN
2170 STR(J$,70,4)="Page"
: RETURN
2190 J$="Illegal Printer Device - Press CANCEL"
: RETURN
2210 J$="Select Printer - EXECUTE or CANCEL"
: RETURN
2230 J$="Printer In Use, Press EXECUTE to try again"
: RETURN
2250 J$="Partition not available"
: RETURN
2280 SELECT PRINT 005(80)
: PRINT HEX(03);
: PRINT AT(1,35);"Print Index";
: PRINT AT(4,1);BOX(3,78)
: PRINT AT(9,19);"Document ID : INDEX";TAB(47);"Current Page : ";
: PRINT AT(14,20);"CANCEL to stop printing this request"
: IF Q2$=" "THEN 2390
: PRINT AT(16,20);"STOP to exit from print task"
2380 PRINT AT(18,20);"MOVE to move print task to background"
2390 RETURN
2411 J$=HEX(0D0A)&" (Report canceled by operator)"
: RETURN
2422 %Warning: Program can report only ### documents. Volume has #,### docum
ents.
2424 %Consider reporting index with different selection from the 'Which Ones'
column
2426 % on the selection menu for 'Document Index'.
2428 %Consider removing documents by using 'Delete from Library' or 'File to A
rchive'
2430 % on the selection menu for 'Document Filing'.
2432 %Good luck. Hope your day is interesting and productive.
2434 SELECT PRINT <STR(A0$(1),2,3)>
: PRINT
: PRINTUSING 2422,@L2,@L4
: PRINT
: PRINTUSING 2424
: PRINTUSING 2426
: PRINT
: PRINTUSING 2428
: PRINTUSING 2430
: PRINT
: PRINTUSING 2432
: PRINT
: SELECT PRINT 005
: RETURN