image of READY prompt

Wang2200.org

Listing of file='609PINX' on disk='vmedia/731-0067G.wvd.zip'

# Sector 1818, 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