Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/nonlpr.exe
There are 2 other files named nonlpr.exe in the archive. Click here to see a list.
?p @ ` ?x ]>uLKb)E ]'E` INX Q F: { A) '[{B E@
i (# > 'C ) *> ` m`$ n mX (//,' NON-LINEAR PROGRAMMING',/,' WMU IMPLEMENTATION OF RAC VERSION: 2',/) (' ENTER IDENTIFICATION IF DESIRED, ELSE "RETURN"',/) (12A5) ('C ',12A5,/,'C ',2A5,//,' SUBROUTINE IDENTF',/,' COMMON/IOBLK/IDLG,IRSP,INP,IOUT,IDEVI,IDEVO,','ICODE,IB,NAMI(2)',/,' WRITE(IOUT,1)',/,'1 FORMAT(1H1,',/,' 1 ',1H',12A5,2H'),/,' END') (' HOW MANY UNKNOWNS? ',$) (I) (' HOW MANY INEQUALITY CONSTRAINTS? ',$)(' HOW MANY EQUALITY CONSTRAINTS? ',$) (' ?TOTAL # OF CONSTRAINTS MUST BE <= 20') (' TYPE:',/,' 1 FOR POLYNOMIAL COEFFICIENT'' INPUT METHOD',/,' 2 FOR EQUATION INPUT METHOD',/) (' ?RESPONSE OUT OF BOUNDS',/)(' SUBROUTINE EQUATE(ISW1,IN,VAL,IX)',/,' COMMON/EQAL/MZ,H,H1,H3,NA,NC,IERR',/,' COMMON/IOBLK/IDLG,IRSP,INP,IOUT,IDEVI,IDEVO,','ICODE,IB,NAMI(2)',/,' COMMON/SHARE/X(50),DEL(50),A(50,50),N,M,',/,' 1 MN,NP1,MN1',/,' GO TO(99910,99920,99930,99940),''ISW1',/,'C READIN',//,'99910 M=',I2,/,' N=',I2,/,' MZ=',I2,/) (' ENTER "READ" STATEMENTS IF REQUIRED, ELSE "RETURN"',/) (' CALL IOB(1)',/,' RETURN',//,'C RESTNT',/,'99920 IF(IN)99921,99921,99922',/,'99921 CONTINUE',/) (' ENTER OBJECTIVE FUNCTION',/) (/,' RETURN',/,'99922 CONTINUE') (' GO TO(') ((' * ',6(I5,','))) (' * 99121),IN')(I5,' CONTINUE',/) (' ENTER CONSTRAINT # ',I2,' (',A2,'EQUALITY)',/) (/,' RETURN') ('99121 RETURN',/,'C GRAD1',/,'99930 IF(IN)99931,99931,99932',/,'99931 CONTINUE',/) (' ENTER GRADIENT VECTOR FOR THE OBJECTIVE FUNCTION',/)(/,' RETURN',/,'99932 CONTINUE') (' * 99221),IN')(' ENTER GRADIENT VECTOR FOR CONSTRAINT # ',I2,' (',A2,'EQUALITY)',/) (/,'99221 RETURN',/,'C MATRIX',/,'99940 IF(IN)99941,99941,99942',/,'99941 CONTINUE',/) (' ENTER MATRIX OF 2ND PARTIALS FOR OBJ FUNCTION',/) (/,' RETURN',/,'99942 CONTINUE') (' * 99321),IN')(' ENTER MATRIX OF 2ND PARTIALS FOR CONSTRAINT # ',I2,' (',A2,'EQUALITY)',/) ('99321 RETURN',/,' END')(//) (' ?ERROR READING EQUATION INPUT FILE',/) (' HOW MANY TERMS IN THE OBJECTIVE FUNCTION? ',$) (' SUBROUTINE PARAMS(M,N,MZ,NA)',/,' M=',I2,/,' N=',I2,/,' MZ=',I2,/,' NA=',I2,/,' END') IN TTY NONLPX. EX/FOROTS/F10 REL:NONLPS,DSK:NONLPX, REL:APLB10/LIB EX/FOROTS/F10 REL:NONLPS,REL:NONLPP, DSK:NONLPX,REL:APLB10/LIB + -< " Od 0 $ D 1"$ D 0 $ D D < y, X < v, h < z, , < }, , < , < ,
< u, < , < ,
< , , < , < ,
60D 0d
+ 9+ ; < , , + 3 < , , < , < ,
< , , < #, < &,
>. 71d
+ F < (, , + ; < +, , < ., < 1,
C0D 1D + N < 2, , + F C1D + M < t, . < 5, < 8,
22D + U < ;, , < q, Q C1D + K < >, , 22D + \ < A, , < o, Q C1D + K < D, , " >3D 7+ | < G, , < J, " >/ 7 $ F B D D < M,
: D; B+ g, < N, , D 5" >/ 7 $ F B D D2d >@f 5.$ D @ < Q, < T,
22D + v < V, < Y,
< l, Q C1D + K < [, , : D; B+ o < ^, , 22D + < a, , < j, Q C1D + K < d, , " >3D 7+ < g, , < j, " >/ 7 $@ F A D D < m,
: D; A+ , < n, , D 5" >/ 7 $ F A D D2d >@f 5.$@ D @ < q, < t,
22D + < v, < y,
< g, Q C1D + K < {, , : D; A+ < ~, , 22D + $ < , , < e, Q C1D + K < , , " >3D 7+ E < , , <
, " >/ 7 $r F ? D D <
: D; ?+ /, < , , D 5" >/ 7 $ F ? D D2d >@f 5.$r D @ < , < ,
22D + > < , < ,
" >3D 7+ A < b, Q C1D + K < , , : D; ?+ 7 < , , < a, [ < !, , < `, x < ], i < $, , + - < ', , < *, < -,
80$ 0d + S+ U < ., , + M < 1, < 4,
< _, [ < 7, , < ^, x < ], i < ],
x x Dx x D` 1 D 2 C` 1 D 2 C` 1 D 2 C` 1 D 2 C` 1 D 2 C` 1 D 2 C` 1 D 2 Cx x 6P D @ x 3X 0 E X 0 M X 0 R @ 8 X D S @ 8 @ 6 @ 8 X 0 f X 0 i $ 6 X 0 X 0 j X 0 i $ > X 0 n X 0 i $ 7 X 0 r X 0 v X 0 i $ C X 0 X D $ > $ 6 $ 7 X 0 " X D (
X 0 2 X D 6 X D 9 X D ; $ D X D = X D ? $ @ X 0 A $ D ( 5 X D F X D H X 0 P X D V X D 9 X D ; $ D X D Y X D ? $ @ X 0 [ $ D ( 5 X D F X D b X 0 k X D q X D 9 X D ; $ D X D t X D ? $ @ X 0 v $ D ( 5 X D F X D ~ X 0 X 0 X 0 X 0 i $ 8 X 0 X D $ > $ 6 $ 7 $ 8 X 0 (A1,14A5) (' ?TOO MANY LINES')(1X,I2,':',A1,14A5) (/,' OK?(YES OR NO) ',$) (A3) (' ENTER LINE NUMBER,LINE(E.G. 3,IX=1)',/) (I,A1,14A5) (/) (6X,A1,14A5) (A1,14A5) (' ?ERROR IN LINE') (' LINE #',I2,' NEVER ENTERED-LAST LINE IGNORED') (' ?LAST LINE IGNORED') 9 YES TTY 1 KG, \ L p @ 1 p @ ; p @ ' p @ A@d : < [, O_D @ZD ) $ $ :. ) < ^,
: ); @+ X, :0$ d+ d$$ B2F O+ c C2F O+ c C3F O+ i: :+ V < _, , '2D N+ W < b, , 7D :+ }" : $ F @ D 1"& $ D < $ $ 1. < :2D O+ q> <8& m '2D N+ { < e, < h,
" < $ F ? D ) $ $ 1. ) < j,
: ); ?+ w, : 1; @+ l '2D N+ < k, , < n, < q,
A3D N+ # < s, , < v, < y,
O_D >ZD ) ) < z,
: ); >+ , 7d 1+ i & . :3& 1+ O0d d+ J2d :: :"& $ D < < )2D O+ > <8& O & $ 1.& ) H:*d < |, < ,
" < $ F < D ) $ $ 1. ) < ,
: ); <+ , < , , + " : $ F ( D >"& $ D < $ $ >. < :2D O+ +> <8& ' $ $ > ;3D O+ < $ $ > ;3& P+ 1 ;3f M+ < $ $ > ;3D B+ < < , " < $ F & D ) $ $ >. ) < ,
: ); &+ 7, + C < , " < $ F & D ) $ $ >. ) <
,
: ); &+ ?, : >; (+ %+ X < , , '2D N+ W < , , + < , , '2D N+ W < , , + '2D N+ W"& . 1 F ; < , < ,
2D N+ W < , , + $ D A L A Ap ,~ X 1 i 2 $B X ( 3 X ( J X ( 5 $ 1 $: X ( 7 X 1 9 ( A X ( : X 1 > $ 1 $) X ( 5 $ 1 $: X ( @ X ; @ $: X ; B $: X ( C X ( J X ( 3 X ( J X ( E $ ; X ( J ] [ (' INPUT? (TYPE HELP IF NEEDED)--',$) (' OUTPUT? (TYPE HELP IF NEEDED)--',$) (50A1) (2O) (I) (' FILE DOES NOT EXIST'/)('-THIS ANSWER DEFINES WHERE THE PROGRAM IS TO FIND THE INPUT DATA. IT'/' USUALLY CONSISTS OF A DEVICE, POSSIBLY A FILENAME WITH OR WITHOUT AN'/' EXTENSION, AND A PROJECT-PROGRAMMER NUMBER.'//' POSSIBLE DEVICES ARE:'//6X,'DEVICES',3X,'DESCRIPTION'/6X,7('-'),3X,11('-')/6X,'TTY:',6X,'TERMINAL'/6X,'DSK:',6X,'DISK (FILENAME AND EXTENSION, PROJECT-PROGRAMMER NUMBER'/22X,'MAY BE USED)'/6X,'CDR:',6X,'CARD READER (THIS DEVICE IS NOT APPLICABLE ON TERMINAL'/30X,'JOBS)'/6X,'DTA#:',5X,'DECTAPE UNIT (USER''S DECTAPE SHOULD ALREADY BE MOUNTED)'/6X,'MTA#:',5X,'MAGTAPE UNIT (USER''S MAGTAPE SHOULD ALREADY BE MOUNTED'/30X,'AND POSITIONED)'///' DEFAULTS:'//' (1) IF NO INPUT DEVICE IS SPECIFIED BUT A FILENAME IS GIVEN, THE'/6X,'DEFAULT DEVICE WILL BE DSK:'//' (2) IF A DEVICE WHICH REQUIRES A FILENAME AND EXTENSION IS SPECIFIED,'/6X,'BUT NO FILENAME IS GIVEN, THE DEFAULT NAME WILL BE INPUT.DAT'//' (3) IF NO RESPONSE IS GIVEN, I.E. A CARRIAGE RETURN <CR> IS ENTERED,'/6X,'THE DEFAULT DEVICE IS TTY: ON JOBS RUN FROM TERMINALS; AND'/28X,'CDR: ON BATCH JOBS'//' (4) IF DSK: IS SPECIFIED AS THE INPUT DEVICE AND NO PROJECT-PROGRAMMER'/6X,'NUMBER IS GIVEN, THE USER''S PROJECT-PROGRAMMER NUMBER WILL BE'/6X,'ASSUMED.'///) (' EXAMPLES: DATA.DAT'/14X,'TEST.DAT',A1,'420,420',A1/14X,'MTA0:'/14X,'DTA2:FILE1'//' NOTE: THE FOLLOWING RESPONSES ARE VALID AFTER THE FIRST "INPUT?"'//' (1) SAME COMMAND. IF THE DATA FILE TO BE USED IS THE SAME AS THE'/6X,'PRECEEDING ONE, THE USER MAY SIMPLY ENTER "SAME"'//' (2) FINISH COMMAND. THE USER MUST ENTER "FINISH" TO EXIT FROM THE'/6X,'PROGRAM. THIS ENSURES THAT OUTPUT ASSIGNED TO LPT: WILL BE'/6X,'PRINTED. FAILURE TO USE THE "FINISH" COMMAND MAY RESULT IN'/6X,'LOSING THE ENTIRE OUTPUT FILE.'//' (3) A ^Z (CONTROL Z) WILL RESULT IN THE SAME ACTION AS THE "FINISH"'/6X,'COMMAND.'///) ('-THE ANSWER DEFINES WHERE THE OUTPUT FROM THE PROGRAM IS TO BE PLACED.'/' IT USUALLY CONSISTS OF A DEVICE AND POSSIBLY A FILENAME WITH OR WITH-'/' OUT AN EXTENSION.'//' POSSIBLE DEVICES ARE:'//6X,'DEVICE',3X,'DESCRIPTION'/6X,6('-'),3X,11('-')/6X,'TTY:',5X,'TERMINAL'/6X,'DSK:',5X,'DISK (FILENAME AND EXTENSION MAY BE USED)'/6X,'LPT:',5X,'LINEPRINTER (MULTIPLE COPIES MAY BE REQUESTED BY USE OF'/29X,'THE "/COPIES" COMMAND)'/6X,'DTA#:',4X,'DECTAPE UNIT (USER''S DECTAPE SHOULD ALREADY BE MOUNTED;'/29X,'FILENAME AND EXTENSION MAY BE USED.)'/6X,'MTA#:',4X,'MAGTAPE UNIT (USER''S MAGTAPE SHOULD ALREADY BE MOUNTED'/29X,'AND POSITIONED)'///' DEFAULTS:'//' (1) IF NO OUTPUT DEVICE IS SPECIFIED BUT A FILENAME IS GIVEN, THE'/6X,'DEFAULT DEVICE WILL BE DSK:'//' (2) IF A DEVICE WHICH REQUIRES A FILENAME AND EXTENSION IS SPECIFIED,'/6X,'BUT NO FILENAME IS GIVEN, THE DEFAULT NAME WILL BE OUTPT.DAT'//' (3) IF NO RESPONSE IS GIVEN, I.E. A CARRIAGE RETURN <CR> IS ENTERED,'/6X,'THE DEFAULT DEVICE IS TTY: ON JOBS RUN FROM TERMINALS; AND'/28X,'LPT: ON BATCH JOBS'//' (4) IF LPT: IS LISTED AS THE OUTPUT DEVICE, THE NUMBER OF COPIES WILL'/6X,'DEFAULT TO 1.'///' EXAMPLES: LPT:/2'/14X,'RPT.DAT'/14X,'DTA0:NAME.DAT'///) DTA0 S INPUTB . DSK OUTAAE A.AAAH K N OUTPTT C TTY F I L O / A 0 U DTA9 .DAT [ : X CDR ` M P LPT DSK DSK TTYDAT.TMP S> \ p @ -6D 5+ 1 1 D W W D 1 -A$ 5D 5 2 D / -A$ 0D + 8 2 D / $ . -6b 0b + =+:4 =4 @4 >4 A < a, , 1 D 2+ B < d, , 1 D 2 < g, < j,
62D + O 62D !+ O 72D + O 72D !+ O 82D + O 82D + O 93D )+ 62D + Y 62D #+ Y 72D (+ Y 72D + Y 82D )+ Y 82D )+ Y 93D )+ 62D + d 62D "+ d 72D + d 72D + d 82D !+ d 82D + d 93D $+ E 62D + r 62D + r 72D !+ r 72D (+ r 82D )+ r 82D )+ r 92D )+ r $ . -6b 0b + r+q4 94 C@d V < `, [ $ 2D -+ y $ A -0D + y < ], ]@d -@d 3 D . D . D W D & D ' D O ) F $ F % F / D ' D U: '0d + 52F + & F U 53F &+ 53F %+ 53F "+ + $ . ' D ."& . ' $ 3 H5/$ 8& ' '.& ) H5*d $ .D '+ $ . ' D W"& . ' $ 1 H5/$ 8& "& ' ) H5.$ 8& $ .D '+ ' D &+ 7D W+ ( < l, .$ D U" W/& . U U F 1 D V V < p,
: V; 1+ #, < q, < u,
6D U+ 2 $ . . D T" T. . T D V V 52D )+ 1> V8& - $ D V V F6 < w, $ . . D S"& / .. S S F 0 D V V < z,
: V; 0+ 8, 7D .+ B < |, &_D /ZD V V < ,
: V; /+ ?, 7D &+ N < , .$ D Q" &/& . Q Q F Q D V V < ,
: V; Q+ H, < , < ,
)2D /+ Z3D $+ R F /+ Z" 31D + U D /+ Z $ A -5D W ' D / $ A -0D + Z ) D / < \, L /3D + n3D )+ c3d $3$ + `+ n /2D + ) $ A -4D + ) D $ D % $ D - 2 D P < Z, L < X, a 31D + l $ .D %+ h $ D S % D T@d 3 < , #_D PZD & & < ,
: &; P+ q, "& $ D R R 52D )+ y> R8& v R 42F + 52F + 52F + $ D 3 $2D )+ $ A -5D D $ $ A -0D + D $ % D % $ A -1D + < U, a7D 3+ < , , " 30D + < F, i+ 8@d X 30D + $ ? D X < R, h+ ` -0D + < Q, [ -0D + < N, ] < F, i $ 3D V+ 7A -5D ) < , + ) $ 2d #+ )3D X+ " < M, L $ D X3D V+ 7 D V < L, [@d X 30D + ( $ ? D X < H, h $ A - D %1D + 2 ' F " O F " / F 2 2 F 1 $ F 4 % F 4+ 5 $ D ! % D ! / D 2 $ D 5+ E < , # D 2+ ) < , , < , < ,
< G, [ $ . -6b 0b + C+@4 =4 @4 =4 @ < , , + = ,~ x 0P # X 1 , x #p + #` S #x PP 2 X . $ ' OX 2 $ 3 ' Oh 2 $ 3p * 2p / 2` S #x 2X 0 Y X 0 ] X 0 a @ 6 P a ( $5 P b ( $ ' $ O P a $ $5 P a / $5 P a ( $5 P b ( $ # P a $ $5 X 0 c ` 2 ` # X 0 e zX 0 _ = $ R $ 5 X 0 z ` Z (X^ . > [.~ (3~ + ' ~ + 2Z . \x <x *<x .-> 5ez+ .!" b + " / b + Z . h + gg M?Th
& 4 b + ",
?NO CORE AVAILABLE - CAN NOT PROCEED
!* X** ,^ ,~ * x ,> < X*< Z p Z@ N@@ N@@ O `|+ BP w,~ "p h a`~ + Gh ``~ + H$ !Id /"+ BP ,~ @ @ @ @ @0 @x @@ @` edX91 ,> k,> Zp @ N\` M < N, ,^ ,~ SMI 1 ,> k, ; BN+ r_MI 1 ,> k, ; BN+ rI5R1 ,> k, ; BN*\ |7Ap X" BN/& p d"~ l" BN*\ |/& p d"~ l" $ BN*\ |/& p d"~ l"
BN*\ |Sp *\ |/&Xp B W@@ W BN*\ |/& p d"~ l" BNRF M < N, + 9EV4i91 ,> k+
S ,i@1 ,> k+
_ ,i@1 ,> k+
K>2 1 ,> k+
K>40 1 ,> k+
[<I71 ,> k
& w @ )@ .
" 5B
& ,~ ` .
.4 SEQIN ^ SEQOUT ^ RANDOM ^ SEQINOUT W
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS:
I$P 1 ,> k #p D F b &" .$ &$ 7@ "$ (@ . &" * /)@
(@ $ &$ .$ .& (D (F . . #p * * ,~ .$ D .& -Jan--Feb--Mar--Apr--May--Jun--Jul--Aug--Sep--Oct--Nov--Dec-!$h X$h @@h *% " < Bh L " Bh M+ x eX2G iSH YC aS iSH INX G YC GSH iSH aS aS I' IR
IR
IR
0 IR
@ IR
P IR
` IR
p [R
[R
[R
M?L@INX INX INX INX INX I2 I2 I20 I2@ G iSH I4:1 ,> kZ .@ 6kp 2j8 M+ ] !p Q A` V\$}
4L T/, L 8$ R.
8 L F( ,~ H ?FRSDVC - ILLEGAL DEVICE NUMBER IN CALL TO DEVCHG
& V < \,
H bH HgZ xa A=Qi7 + @ ` 1p Q0A` ^@@ b M* u@ , A4T (1T + }1T )+ 1 , A4T T + ." &" "` QB ` N ` + N+ 6 INX , + `
& b O& b O` P` v+ ^?` a
& P ` 5H O _ $ , A1T + 40T *+ y, A1T ', A0T + y> @@ G, 90T 1T + 0T 1T -+ &4T &+ ( $ _, 87@ H+ &1T + *4T 61T -+ ,0T + (, A+ "!*Lu*
G J H+ !
& S
'p
& U ` $ U, ;+ "@
, A0T 1T .+ 31T + 21t 14 + ((L .,Wh+ ,SL I+ ,XL I+ 6, 8! >9 @ G 2 V*& 8+ 0@@ H V*& J, A1T + 97 , A14 ,~ 1t + ?04 0t -,~ 4d A.4 T = ; 0" d@ 8 1T 4 ,~ W b + ` + 2 gg G>n
6 , b _ 5$ v0 v< vCANNOT ENTER TMP FILE!
Command error:
H H8P 09 H iSN
, 7 OAp ,~ 4 4 ]4 KbN=1 ,> kO@
p 4B e, -4@ e9 i9 hKbN= 1 ,> k@@
!$Lu ` @Ap `` a` + a` + D `A (` n/" #B _@@ ` !p X@ \,> < \, ,^ 7@ + tOAp + #p Q"A` $ 1@ + y0` =d v! H: @ ^@@ _a|+ [ p d 0@ + [ p d 0@ + + _ w6@
_ w#` 1 + Sp Xp @ _
_+ @ ]+ +
&
+ Ap ,~ ERROR ON OPEN!
H H H G.t21 ,> k@ @Ap ! A`.!p @
@@ @@ & "
< 1D + - &=b
< 0D + $O "
< - &=b 7@ OAp !p < , , ,~ <&
1D + # Ap + 1D + #1$ + 1d + +0$ 0d -+ $ D + &" I, V0@ + E p 4B GL ad+ D`b+ E $ 0d "+ G&$ $& (&}Z .G I.& $ .$ 7F + : ,~ A$ &$ (D G$1$ ((D (D
` 5@ G .2b M+ C L.& 7D !$Lu+ F2" J+ @ &p , N ` ,~
& J < M,
.p M}ILLEGAL DEVICE NUMBER!
" U, V ' Q&A` U@ 1x ,~ 18 0.8 X =` Q,~ . H a|+ Y0" 0b / ,~ 0B 1B ,~ 0B / ,~ aJMm1 ,> k, $+ y@ , N, + yZ" 6Ep " B` " b $ 7cp $ 1B $ d , {, m+ z6cp 0b " b $ / ({." XB` &$ @6@ .$ .$
a|+ r[p d p0B + v+ t_w#` 1" + v6cp 0d $QD` , 8+ , + ,~
& + x
& + x@b -p . Q,A`
4P 1P + /0 P =n ~,~ `
` `
CANNOT INIT DISK!
FILE NOT FOUND!
H H .
+ ~YC G aS a3 S; YC&<G<aS<a3&<E$;w |x P
B` 1T !"L b @ XB` O@ * < *@ , +
+ 4!, 2, @ !.~ , +` + ="" 1T "" QB (, + `N + D 6`
E1T F B` " B` \"
b @ B` \" F b !" Z (Brb G b
B + b
+" `B` !" 2 b `b `b + h!" 2 b !` 2B` + h!$ 2 d !$Lu+ k G b @ H, H d !$Lu B ) D *,~ @@ - I*( 3 B - D . BX B` DX Z +(D} d ` D - DX " 2D` b Id " b J, +@ ,+ J 3 BX @@ 4 M b $+ }!" 5X"X *"X !"`
+ !, 2, B , +" X
. ., + + JX , + + #
& N " b Ia` + + wa` + , + ,+ + x H h &( 2
P
T. + &. .0 P `bp + d
@ ), ++ `L+ )+ # ( !*Lu@
, +
,~ : x ,~ " B <O@ +O@ ,g " ?$ <+ 3 d 5D ' <(D D ++ #,> e` p+ /7 ,+ 2l! ,+ 17 ++ 2l! +: +@ > ,^ + #
& T,~ "
& V,~ "
& \,~ , ;
& d
& , ; b ( d+ 7
& h,~ @ ;` *+ <+ 6 Qx 0 CMQ Cannot do MPB QUEUE on GALAXY system. ( @+ 7`` ` P $` h UP -
X HX a` ,~ !" GB` + @ 46$ .
% Cannot do DISPOSE:RENAME. DISPOSE:DELETE assumed.
0 NO FREE CHANNELS!
% CANNOT OPEN QUEUE DEVICE!
% PLEASE NOTIFY OPERATOR!
% CANNOT ENTER QUEUE REQUEST IN QUE UFD!
% PLEASE NOTIFY OPERATOR!
?QMR CNC Can't CONTINUE -- try REENTER
KbN@ 1 ,> k,
,~ kY\ mQ< X\ m* +