Listing of file='609PINX' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1843, program filename = '609PINX' 0010 REM 609PINX 250-11/03/88 Copyright Wang Laboratories, Inc. 1988-KKB 0260 COM D5 : DIM T2$2,U1$(8),V0$(1)1,C9$80,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 ALERT GOSUB 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<D4 THEN 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