Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/transp.exe
There are 2 other files named transp.exe in the archive. Click here to see a list.
?p ?x iJ (' ENTER HEADER'/) (16A5) (1X,'ENTER NUMBER OF ORIGINS AND NUMBER OF DESTINATIONS'/1X,'SEPARATE THEM BY COMMA--'$) (10I)(1X,'ERROR IN INPUT DATA FOR ORIGIN AND DESTINATION POINTS'/) (1X,'ENTER THE AVAILABILITIES FOR THE ORIGIN POINTS'/) ('+10 NUMBERS PER LINE, SEPARATED BY COMMAS'/) (1X,'ENTER REQUIREMENTS FOR THE DESTINATION POINTS'/) (' PLEASE WAIT, YOUR DATA IS BEING PROCESSED'/) (1X,'COST: ENTER TRANSPORTATION COST PER UNIT SORTED INTO DESTINATION'/) (/' FOR ORIGIN',I3/)(14H ERROR NUMBER,I4,I6,I6) (1H1)(1H1,16A5)(1H-22HORIGIN SHADOW PRICE)(1H I6,I14) (23H-DESTIN SHADOW PRICE) (1H-,'FINAL ALLOCATION SORTED BY SUPPLY POINTS'///) (49H0ORIGIN DESTIN QUANTITY UNIT COST COST) (1H ,I6,I9,I10,I12,I12,2X) (1X,49(1H-)/1X,'TOTAL',10X,I10,12X,I12//) (1X,49(1H=)////1X,'TOTAL COST =',I9) ('-') n5J DSK TTY } ka (10I) + -< 5 Od "& F & F = & F = &
F >Of < l, { < h, n < c, n $ D < `, I G0D + 7 & D % ' F*d 6 < m, , < p, < s,
< v, , < y, < |,
$ 2$ + A $ 3$ <+ E < ~, , 6$ + ; < 4, 0d + A <0d c+ A <$ D % D " D L < D @ F <
, , <
, , <
, " $ H ? D G G <
,
: G; ?+ S, <
, , <
, , <
, " < $ F 6 D G G <
,
: G; 6+ ], @d F D H" $ .H F.$ 8& b" < $ (.H H.$ 8& e F/ H4$ m4D p: < F/ H F( $ D + q: " F. H F & F + q $ D <. D ;" ; $ @h / H H .$ 8& t 3D $+ z <
, , + ~ <
, , G0D + ~ <
, , " $ 3H #+ <
, <
",
<
#, "
@ ( J 3 H <
&,
: ; 3+ , 6b 0b +
(, "
< ( J F H <
*,
: ; F+ , .$ 8& 6b 0b + + 4 4 "4 "" < $ @hy.$ 8& <
+, " < $ F D D G G <
-,
: G; D+ , $ D <
/, DD " $ <( +H].$ 8& &" < $ -( ]Hg.$ 8& ) < ^, 8& [ $ D L D
: 3d <+ }:
+
| < I, E+ 3D ED " $ @h].$ 8&
" $ @h .$ 8&
" < $ @h(.$ 8&
D$ $D GD D<F] H^ F
# 3D +
#F G F^ & .F G+
(: 3d <+
$ D G <
1, <
4,
+
|< & F( F
6: +
*"$ .d G4d
2 GF]hF +
C $ D G <
7, <
:,
+
| G \3D
,@ +
-F G H^ ( .H G2F D+
?"$ .D G+
-& F F < D,
E: 3d <+
A+
N G ]3D +
C 6@(+
NF G F^ ( .H G2F +
(+
S"$ .d G4d
2 GH]hF +
,$ FD G< L D E G ] F
]D< A, D I 3D +
d $ .d G3d +
U $ D G <
<, <
?,
+
| L2d E+
i $ D G <
B, <
E,
+
|Od D ^<D , G G ] F
u 2D I+
u+< =,
y. $ E.< <, 2D +
n+ W $ZD G G 62F &+ *d
} <
G, , + <
J, <
M,
<
P, , <
S, " $ F K D G G <
V,
: G; K+ , <
X, , <
[, " @ $ F J D <
^,
: ; J+ , <
`, , <
c, , @d " $ F J D G@d A D " @ $ D < 8,
f, <
i,
.H A.D : 8& <
l, <
o,
.D : G; J+ <
q, <
t,
@d < D ; $ D <
v, <
x, , + 0 < 4,
p G p G p G h @ " = x X M X O @ 7 X P X Y $ $ < X Y X ` X e X Y $ X j X e X Y $( X p X u X e X | $ X = $ y h > $ y h > $y ` > X = ~ $ G $ D $ X = ~ $ G $ D $ X = ~ $ G $ D $ X = ~ $ G $ D $ X = X = @ 7 X = X = $ G $] X = X = $ $g X =
X = X = $ G $ $ $ H $ @ X = $ A $ X = $ ` > X ! S
0 F
~ D
~ p @
| p @
{" ; $ F
} D
} /2F
|+
} 2D
{+
} +
:
};
}+
~
~,~ S~= \
: : <+ > $y ` > (' PROGRAM ERROR ') S
4p\ +@ .F "H . +H .$ 8& ('+INPUT? (for help type HELP) '$) ('+INPUT? ',$) ('+OUTPUT? (for help type HELP) ',$) ('+OUTPUT? ',$)('+Either a colon was missing or the file name',' is too long'/) (80A1) ('+Device ',A6,' does not exist'/) ('+Device 'A6,' cannot do input'/)('+Device ',A6,' cannot do output.'/) ('WMU',I3,'.',I3) ('+Only a /COPIES switch may follow a LPT:'/)('+Illegal character "',A1,'" in COPIES swicth'/) ('+Copies must be between 1 and 63.'/) (I2) ('+Only switch available if for the LPT'/) ('+Non-directory devices require no additional information'/) ('+File name too long'/) ('+Character"',A1,'" is not valid in a file name'/) ('+Only one period is allowed in the file name.'/)('+BANK files must be read from the disk'/) ('+Bank files can not be used for output.'/) ('+PROJECT or PROGRAMMER number cannont be longer'/' than 6 characters'/) ('+Illegal character "',A1,'" in PROJECT-PROGRAMMMER',' number'/)('+ Comma missing between PROJECT and PROGRAMMER number'/) (O10)('+Nothing should follow the closing bracket for the',' PROJECT-PROGRAMMER number'/) ('+File not found or protected'/) ('R ',4A1,4X) ('+You must have answered this question in this',' program previously to use "SAME" now.'/) ('+You cannot do a /OUT while answering a /OUT'/) (' No output defined yet'/) ('+To use the CONTINUE an input must have already been',' defined.'/) (' The answer to this question defines where the program is'/' to find the data. It usually consists of a device, and'/' possibly a file name with or without a PROJECT-PROGRAMMER'/' number. Devices may be specified by their physical'/' or logical name followed by a colon (:). If the'/' device is a directory device (DSK, DTA), then a filename,'/' extension and PROJECT-PROGRAMMER number may follow it.'/' If the device used is a magtape or dectape, the tape'/' must be mounted, and in the case of a magtape it must'/' be positioned.'/'0DEFAULTS:'/' (1) If no input devices is specified but a filename is'/' given, the default device will be DSK:.'/' (2) If a device which requires a filename and extension'/' is specified, but no filename is given INPUT.DAT'/' will be used.'/' (3) If no response is given (CARRIAGE RETURN is entered)'/' the default is TTY:.'/' (4) If DSK: is specified as the input device, but no') (' PROJECT-PROGRAMMER number is used, the PROJECT-'/' PROGRAMMER number of the job is used.'/'0EXAMPLES:'/' DSK:DATA.DAT'/' TEST.DAT[220,220]'/' MTA:'/'0The following responses may also be used after the first'/' response to this question.'/' "CONTINUE" - (For MAGTAPE) Use the next set of data'/' "SAME" - Use same device specifications as used before.'/' "FINI" - End of run.'/' "/PROG" - User may initiate the run of a bank program'/' (STP, BANK, TAB, FREQ, CORL, or REGR) from'/' this program.'/' "/OUTPUT" - Redefine the output device, the program will'/' respond with "OUTPUT? ".'/)('0The answer to this question defines the destination'/' for the program''s results. It usually consists of a device'/' and possibly a filename with or without an extension.'/' Devices may be indicated by their physical or'/' logical name followed by a colon (:). If the device is'/' a directory device (DSK, DTA), then a filename,'/' extension and PROJECT-PROGRAMMER number may follow it.'/' If the device used is a magtape or dectape, the tape'/' must be mounted, and in the case of the magtape, it must'/' be positioned. If the device is a lineprinter, the user'/' may request multiple copies by following the "LPT:" with'/' a "/COPIES:" and the number of copies desired (1-63).'/'0DEFAULTS:'/' (1) - If no input device is specified but a filename is'/' given, the default device will be DSK:') (' (2) - If a device which requires a filename and extension"'/' is specified but no filename is given OUTPUT.DAT is'/' used.'/' (3) - If no response is given (a CARRIAGE RETURN is entered),'/' the default is TTY:.'/' (4) - If LPT: is spedified and no /COPEIS switch is used,'/' 1 copy is assumed.'/'0EXAMPLES:'/' DSK:SAM.F4'/' LPT:/COPIES:3'/' MTA:'/) S B . /REGR /STP DSK /OUT E ~ 9 (K HELP /OUTPUT N LPT CONTINUE 0 DSK C TTY ?FINI /FREQ Z I /CORL /BANK ] O A / 0 z , TTY FINISH @ INPUT.DAT SAME : { [ ` 7 END /TAB p a OUTPUT.DATP LPT DSK SEQOUT SEQIN SEQOUT RANDIN BINARY S< \ 8 p @
2D >+ ,< H, , 3D >+ W< K, , ,F >+ 6D ?+
: 6, ,< B, 6D
+ } 1D + Dd cA
+ }H eA < h,
+ } FA 2.D
7< >, o, , + },
+ } < w, , + }
: ~, < , < ,
j 0$ 0d + t
+ & F ? FA
"F 1f 2+ "& 2.f : $ .& F ^A
, , + } T d F } J
;2F ;7 + 3D >2F ?7 + 3D P2F Q7 + 3D =2F >7 + 3D 2F `7 + 3D M2F N7 + 3D O2F P7 + 3D Z2F [7 + 33D H2F I7 + u3D @2F A7 + d3D E2F F7 + d3D ^2F 7 + N3D L2F M7 + N3D W2F X7 + N3D D2F E7 + @h TZD
+ }: 1F + t < , , + }*d d $ 3D + ~ D
`$ D , ,F + }7D + ,< ), , + }
+ } < 3, , + }
< <, < @,
a T2 d F $ ,
< G, < K,
m , , , + }
+ ds& F ? FA
"F 1f 2+ i"& 2.f . $ .& sF + z < \,
i aXF KF "F
" ?0F + H
0F + >3H G2J H+ 0F + e D : ?!$ 3D
: + , @d
+ 1 < f, ( >3H G2J H+ 1
"F 1f 2+ '"& 2.f ) $ .& 1F
+ B & F
"F 1f 2+ F"& 2.F < $, 0D + I < k, FA
+ b < p, ( >3H G2J H+ b
"F 1f 2+ X"& 2.f ! $ .& bF
+ m*d h< u, , + } }
+ & F
"F 1f 2+ "& 2.F < , A 1D + + T 1D + < {, , < ~, , + } < , , < , , + }& 8 P -
h ` X X X $ ^X ?X A QX & I F A (' FORMAT'/) (' FORMAT: (',A1,'-TYPE ONLY)'/) (80A1) (80A1) (' ERROR IN FORMAT, TRY AGAIN.'/) S ( A ) { M O$ky \ D p @ 7 p @ !p @ 6 p @ 8 p @ p @ @d @d 8 D 7 & ( F 9 D 62D + T < , 0D + W < , , 0d + Z < , < #,
Z< $, G,D
: 8; 71D + k 2D D+ f 2D F+ f 3D G+ " $ . 6
HJ'.$ 8& g$ D 7 0$ + n( . D 9" 9 $ D 8 8
D 8 8 < ,,
: 8;
+ {, " 9.$ . 8& $ 2d 6+ & .F . 3f +
. / ( . F 9 91$ + < ., G_D ZD 8 8 < 1,
: 8; + , + w 0D + < , < 2, , +$ D + PZ D 8 Ap ,~ X 7 9 X 7 ; $ X > $
& G b + 5,
?NO CORE AVAILABLE - CAN NOT PROCEED
!$h X$h @@h *% " S 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 O 1 ,> @ p .#p < XB iQ#p %p 8 XD z Ep *" #p XB p@Ap p @
( 1D + l1D + v4. q zd z FK 1d >1D Kp
& {,~ :
O&
1 ,> `
ZAp [Ap ,~ U>m61 ,> `
Ap ,~ H H kgZ x A=Qi7 + @ ` 1p Q0A` @@ q* @ , e4T K1T + 1T )+ 61 , e4T &T + $ ." &" "` QB q ` + + r+ Z INX @ + 5 `
& b r& b s` s` + 5 ?`
& t ` 5H $O $ , e1T + X0T *+ , e1T ', e0T + > @@ k, ]0T 1T + B0T 1T -+ I4T I+ K $ , [7@ k+ I1T + M4T Y1T -+ O0T + K, e+ F!*Lu*
k J k+ E
& v
'p
& x ` $ y, _+ F@
, e0T 1T .+ W1T + V1t 14 + K(L .,Wh+ PSL m+ OXL m+ Y, [! >9 @ k 2 y*& 8+ 0@@ k z*& m, e1T + ]7 , e14 ,~ 1t + c04 0t -,~ 4d d.4 T = _ 0" d@ 8 1T 4 ,~ z b + ` + 2 gg G>n
6 X 5$ 0 < CANNOT ENTER TMP FILE!
Command error:
H l- 0-8l iSN
, 7 OAp ,~ I4:1 ,> , S Ap ,~ 4 4 4 0 KbN=1 ,> O@ 0 p 4B
, S4@
9 9 KbN= 1 ,> @@ 0!$Lu ` @Ap `` a` + .a` + / D A (` /" #B @@ !p X@ ,> < , 6,^ 7@ 0+ OAp + / #p Q"A` $ 1@ + 0` =d ! H: @ @@ a|+ &[ p d 0@ + *[ p d 0@ + *+ )_ w6@ 0_ w#` 1 + *Sp Xp @
+ -@ + .+ /
& 1+ / Ap ,~ ERROR ON OPEN!
H H 5H 5 G.t21 ,> @ @Ap ! A`.!p @ 3 3 @ 4@@ 5@@ 5 & " 3< 1D + B- M=b = 3< 0D + JO " 4 @ 4 3< - M=b D7@ 5OAp !p < , 5, 5,~ <& F 31D + I Ap + F 1D + I1$ + F1d + R0$ 0d -+ F $ D 4+ M" o, |0@ + k p 4B nL ad+ j`b+ k $ 0d "+ n&$ $& (&}Z .G p.& $ .$ 7F + a ,~ A$ &$ (D G$1$ ((D (D
` 5@ m .2b M+ i L.& 7D !$Lu+ l2" p+ f &p , t ` ,~
& q < t,
.p M}ILLEGAL DEVICE NUMBER!
" {, | ' Q&A` |@ 1x ,~ 18 0.8 X =` w,~ . H a|+ 0" 0b / ,~ 0B 1B ,~ 0B / ,~ aJMm1 ,> , K+ @ , u, G+ Z" 6Ep " B` " b ( $ 7cp $ 1B $ d ), ", + !6cp 0b " b )$ U ({." XB` &$ @6@ .$ .$
a|+ [p d p0B + + _w#` 1" + 6cp 0d $QD` , ^+ , R ,~
& *+
& ,+ @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 6 P 1 B` 1T !"L b @ XB` O@ Q c P@ , R
+ [!, 2, <@ !.~ , R` + c"" 1T "" QB O, R f + 1$ 9 o+ J 8 6@` 6 e*( N f n @ `N + k 6`
l1T l B` " B` \"
b @ B` \" m b !" Z (Brb m b
B Q b
+" `B` !" 2 b `b `b + !" 2 b !` 2B` + !$ 2 d !$Lu+ n b @ n, o d !$Lu B P D P,~ @@ S o*( Z B T D T BX B` DX Z R(D} d ` D S DX " 2D` b pd " b p, R@ S+ q Z BX @@ Z s b $+ #!" [X"X *"X !"`
+ 6!, 2, <B , R" X
T U, R + 6 JX , R + J
& t " b pa` + 4+ a` + 4, R S+ + 4 x H D h &( 2
P 1 z. Q &. .0 P `bp + @d
@ P, R+ D`L+ > P+ J ( !*Lu@
, R
,~ : x ,~ " B bO@ RO@ Rg " ?$ b+ Z d 5D N b(D D R+ J,> e` p+ V7 R+ Yl! R+ W7 R+ Yl! R: +@ > ,^ + J
& {,~ "
& },~ "
& ,~ , a
&
& , a b ( + ^
& ,~ @ ;` Q+ b+ \ F` 6 0 CMQ Cannot do MPB QUEUE on GALAXY system. ( f+ ^`` ` P $` h J8 T
X HX a` ,~ !" GB` + 4 @ Z6$ U
% 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 ,> ,
,~ Y\ Q< X\ * +