Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-09 - 43,50466/linpro.exe
There are 2 other files named linpro.exe in the archive. Click here to see a list.
?p`@@?xY&v

WKb)C}-dC`INXQF:{A)'[?{BE@W(#>'C)h\N)`3"1b$+4('+TABLEAUOPTIONS')"5bv+:('BOBJECTIVEgFUNCTION(TOPmORBOTTOM)?'$)G"=Bqq+>(2A5)T]2DqgOS^2FqgOG4$f^2DqgOh2FqgOAND2FqgO'`2HqgOAG4$h"Nb+e('"IFUYOUWANTTHEROWFOR(THEGOBJECTIVEuFUNCTIONTO"	BEbPRINTEDONTHE'/' TOPOFbTHETABLEAU, ANSWERU"TOP".	IFOYOUOWANT)THE ROWFORTHE@OBJECTIVE'/'xFUNCTIONTOIBE PRINTED	AT+THElBOTTOM$OFxTHETABLEAU,ANSWERx"BOTTOM".')+5@@J@@K@@r+iU$nDJO@rK"kb(+o('SCONSTANTWCOLUMN (RIGHTIORRLEFT)?'$)'$)"rBqq+s(2A5)w`2DqgOZa2FqgOA a2FqgOG4$ b2DqgO b2FqgOG4$ "b +(' IF THE WANT THE COLUMN OF CONSTANTS IN THE TABLEAU	TO BE PRINTED ON THE'/' LEFT SIDE OF THE TABLEAU, ANSWER	 "LEFT".  IF YOU WANT THE COLUMN OF CONSTANTS TO '/' BE PRINTED	 ON THE RIGHT SIDE OF THE TABLEAU, ANSWER "LEFT".')    @@r@@s@@s+ $ DJO@s r4$& "b +#(' INPUT THE NUMBER OF CONSTRAINTS?'$)   "%Bt +&(I)  +/ "(b +,(' INPUT THE NUMBER OF ROWS?'$)     "%Bt  t DK s4$8 "1b +6(' INPUT THE NUMBER OF VARIABLES?'$)     "%Bt +A ":b +>(' INPUT THE NUMBER OF COLUMNS?'$)  "%Bt  t DK "Bb +E(' INPUT TABLEAU'/)  J Zu "Hb +J('+ROW',I2,'?',$)    "QB J Zu $$.u|3:t9L  u3:t9E+R(35F)-\;4|4
O
G5$@@hO@|Dyy5D("	bA+('NYOUECANNOTLPIVOT)ATAKZEROMENTRYINTHETABLEAU')L+UJ3Zu+&$ x.|y(D|3:t9MJOZuE3Dx+!T&$w.|DyXJZuy&$(x.|gu.D|"`|3:t9Au3:t9JZu+J3Zu&$.u+$|XD(-\,4(2,n+, $$.u@@|+;"o &$u.u|3Dp-\,4p2n+4-$$u.u!& F|+;!$ &$u.u| Dp-\,4p2 n+; $$u.u!&} F| u3:t9$ u3:t9#+U-\4|4

4+(35F)U$2$t+-\;4|4TTHEROWAND3COLUMNINDICES OFTHEENTRYYOU',	'WANT"TOCHANGE?'$)+""('MX@*Bxw +#(2I)INt3$xgO J2fxgOA4$* "Ub +U t3$wgO J2fwgOA4$1 "Xb +U "3b +6(' INPUT THE NEW ENTRY?'$)     ";  MX@*B $$w.x| +<(F)  +R ">b +F(' INPUT THE ROW AND COLUMN INDICES OF THE ENTRY YOU',	' WANT TO PRINT?'$)  "I  MX@*Bxw +J(2I)  t3$xgO J2fxgOA4$Q "Ub +U t3$wgO J2fwgOA4$X "Xb +U "]bxw $$w.x| +c(' THE ENTRY IN ROW',I3,' AND COLUMN',I3,' IS',G15.7)  +U "eb +(' LIST OF OPTIONS:'/' PRINT',T25,'PRINTS TABLEAU'/  ' PIV',T25,'ALLOWS USER TO DO A PIVOT OPERATION'/  ' CROW',T25,'ALLOWS USER TO CHANGE A ROW OF THE TABLEAU'/  ' CCOL',T25,'ALLOWS USER TO CHANGE A COLUMN'/  ' DROW',T25,'ALLOWS USER TO DELETE A ROW OF THE TABLEAU'/  ' DCOL',T25,'ALLOWS USER TO DELETE A COLUMN OF THE TABLEAU'/  ' PROW',T25,'ALLOWS USER TO PRINT A ROW OF THE TABLEAU'/  ' PCOL',T25,'ALLOWS USER TO PRINT A COLUMN OF THE TABLEAU'/  T35,'(TO SIX SIGNIFICANT FIGURE ACCURACY)')   "b +E(' AROW',T25,'ALLOWS USER TO ADD A NEW ROW'/  ' ACOL',T25,'ALLOWS USER TO ADD A NEW COLUMN'/	' CENT',T25,'ALLOWS USER TO CHANGE ONE ENTRY OF THE TABLEAU'/	' PENT',T25,'ALLOWS USER TO PRINT ONE ENTRY OF THE TABLEAU'/	T35,'(TO SEVEN SIGNIFICANT FIGURE ACCURACY)'/	' RETURN',T25,'RETURNS TABLEAU TO WHAT IT WAS'/	T35,'BEFORE THE LAST PIVOT'/	' SAVE',T25,'SAVES TABLEAU'/	' RECALL',T25,'RECALLS TABLEAU SAVED BY SAVE OPTION'/	' STOP',T25,'STOP')    +U "Gb +M(' INPUT THE NUMBER OF THE ROW TO BE DELETED?',$)  "P  MX@*Bx +Q(I)   t3$xgO J2fxgOA4$X "Ub +U $.x  Zu J Zu $$ u. | H{3:t9[ u3:t9Y>t r5$c t DK+U "eb +k(' INPUT THE NUMBER OF THE COLUMN TO BE DELETED?',$)    "n  MX@*Bw +o(I)   t3$wgO J2fwgOA4$v "Xb +U $.w  Zu h

(IMX@*Bx+J2fxgOA4$}"UbH+U "bLJJZuB$$.x|3:t9D+(5(1X,G10.4,1X))U WA+UN"bO+$(' INPUTTHE NUMBEROFBTHECOLUMNTO+BEPRINTED?',$)$w"'OMX@*BwO+((I)t3$wgOUJ2fwgOA4$/J"Xb$+U"5b|JZut$$w.|3:t91 +6(1X,G12.6)+U"$.J Dz ":bz +G(' INPUT THE NUMBER OF THE ROW JUST BEFORE THE ROW YOU WANT TO ADD,'/' (INPUT',I3,' IF YOU WANT A NEW FIRST ROW)?',$)    "J  MX@*Bx +K(I)   t3$xgO x3&zgOA4$R "Ub +U $.x Do t Zu J Zu $$ u. | H|3:t9U u2zo=T "\b +(' INPUT THE NEW ROW?'$)  "f  MX@*B J Zu $$.x|3:t9b +g(35F):t r5$i t DK-\;4|4

 u2zp=
"b++('DINPUTTHEDNEW COLUMN(INAROW)?'$)s"*9MX@*BJJuZu$$w.3:t95+(35F):tJs5$!8tLDK-\;4|4)  +[(' ILLEGAL COLUMN NUMBER')    -\I+  +0"TOP"TOP  OM"  "BOTTM    BOTTOT"   "RIGHRIGHT"LEFTLEFT PIVOTPIV  STOP PRINTP    CROW CCOL DROW DCOL PROW PCOL AROW ACOL CENT PENT RETURSAVE RECAL"HELPH    HELP NO   YES  Zk|S 0 J D&@@& & Z' $.D& .$L5$R $.D& $$3$&+V3:%9N % D'+X"$.' D' & Z' 3DK+q .$ 4$g $3$+b "`b +b(3H+ X,I1,7X,$)+{ "db' +f(3H+ X,I2,6X,$)+{ $3$'+m "jb' +l(3H+ X,I1,1X,$)+{ "ob' +q(3H+ X,I2,$)   +{ '.$ 4$w "ub +w(3H+ B,8X,$)   +{ "yb +{(3H+ B,2X$)     '3:'9X J Z( "b +(/)   & Z' .$ 4$
 "b $$.( #. +	(1H+,G9.3,1X,$)+ "b $$'.( #. +(1H+,F3.0,1X,$) '3:'9 (3:$9} "b  %2d'++  $.' D& "b +()   +M+ 4 Z" \"  #, p, p,!p,!p+L " "-|p J ZF .DO@ J ZF"A &$F . 
C.
3D(gO!,3L(g

O

 (1NgOA

A4$83:D9++9 F.D@@ F3:E9)+@4 ZB \B  C, p, p,!p,!p+( B B-|p 0 \, @,<40<0|+1\+U,>pFZpF+p@hx@px@(@0@x@@8@(@P@P@hx@]@ ]@w@w(
[(/<0"`S<pX<0 p3@5+[*|W-<AZ`G+
!  @w+Y<5 p7 p+x,>,>,> &w p,s,&.<7@p+p p,s"6 $.< p`6 w,&,&5 b.< pd7:." Q,& p,&>`9m.<9c@@,^,^,^+xd @@& 0b.".")B}5@t,~m<!<P\(<5 p[pl<0@X+~Zp.</ pQ \)+@@)!<P\(7@++ <+ \)@@+!<P\(XX\( 77@*D<7@*A< \( <([`x ,,x,^x ,+G GQ< \(:G  \)<8 p$|8 < \(@@)+@@( Q< \(<8 p$|9+7: < \( @XQ< \( < \)+[`x ,,x+"Z \(@@(@@)<5 \)+7* *X\G@@*@@*+
>x! Z @
&=U`eB+3@)@G 
"+/
&A+f6$1,>K.@

p.46$!.

.4).(SEQIN@9SEQOUT@;@
%5 Source level error at user's loc	
	`Z(X^. >[.~(3~+F	~+QZ. \x <x*<x .->2ez+M!"	b+  "N	b+Z. h+ggM?Th
&S	b+A,
?NO CORE AVAILABLE - CAN NOT PROCEED
a.3@1,>KO@+\gR~@1,>K@@,>,>@6 w+i"0B+d!"A`X#p5@a/#p!"X#p+i\p+ia.9'1,>K,>,>O@+i,>
6+ _4`q"`Q@,> <,,^,> <,
,^*bn+|,> <,,^7@+w,> <,
,^+y,> < ,
,^Z5"|,> <",
,^,7@,

,> <#,,^,,> <&,,^,> <),
,^(@qd1@,,

1@#+
0@*+|,> <+,,^+|,^,^,^,~(' Type G to Continue, X to Exit, T To trace.'/2H *,$)(A1)(1H 14A5/)(1H A5,1X,O6)PAUSESTOP .pXp Xp p p X

X~p xC1,>K#p,~S01,>K#p+"1,~U ,~!$hX$h@@h*% "9 BhL " BhM+xeX2GiSHYC aSiSHINXGYC GSHiSHaSaSI'IR
IR
 IR
0IR
@IR
PIR
`IR
p[R
[R
[R
 M?L@INXINXINXINXINXI2I2 I20I2@GiSHKbN@1,>K,

,~LY\MQ<X\N*+