Trailing-Edge
-
PDP-10 Archives
-
decuslib20-05
-
decus/20-0152/test7.exe
There are 2 other files named test7.exe in the archive. Click here to see a list.
?p @ ?x i E`Kb)f <u(f` INX Q F: zs) s% {r E@@ tI kT (' J=',I3,' ARRAY(J)=',F10.3)(' Select an element and get its value.'/' An element greater than 9 will exit.') (' ELEMENT? ',$) (I) (' ',E13.6) q` yf
0 (GRINDX subroutinedemonstrationD 0use<--and --> keys to move cursor use 1,2,3,4,5,6,7,8,9,0 to store position. <CR> to end routine + -< YZD G Gh G H W < , I @2f Z &H F 2 G < , @ 0*d o < , e < ,
: 0; 1+ , < %, , < (, , < +, < .,
10d +
< /, < 2,
+ < , ' < ,
X 8 2 ] 3 W` Z \ X f` Z [ X a` Z [ X ]H 8 Y 2 0 ] X Wx 2x WX G $ 0 (2 X J X S X U $ 1 X U (2 @ A ` OJ
D\ ` !p <@ F p @ @!p @ DD!p @ <Fp @ ;<p @ 7 p <@ J < , D< , + rL p p dp p ,~ JD :0D 1D + w< , , < }, 'd F . F & F + :. F6D + < #, , < }, ' : G D : d :.& . F F3*d $ A ?4D < , 1 $ D A $ A ?4D : 7 D B $ D I :0D + ! $ D I F IG G : F $ D A c D N J( ;/<h < , o @ @ D J( <.d D J( 3d;+ 0 J( ; F D J( D2&<+ 5 J( < D D DA$ .$ D O DA$ p7 .$ (}.$ D O F A& 5F = & GF $ D I :0D + A $ D I F IGF 9 F L 9 F L c F M F M F N < , J( ;/<f F E" ; $ F A D Id D C $ 2D K+ R I. H F C I. F F ; < , o @ @ K1 D K K1d + Z $ D K b D L KA$ .$ D L KA$ p7 .$ (}.$ D M < , o E@ @ D7$ K.$ ?(|( 3D K@d D J( <.d D J( 3d;+ l J( ; F D J( D2&<+ p J( < D D : 8 D M DA$ .$ D N DA$ p7 .$ (}.$ D N < , : I; A+ M < ~, ` ; Ap ,~ p 6 ap L bh ; 5 5h C 4 4p L Ah B 5 5h F : ?@ a < 5 5 ; ` ` `@ a D 4 4 ; ` ` `p F :x FP a I D H a ;P a G < F a ;X Q X V X Z
w K @ w C< oK B J (' ?GRCLN(- GRINIThasnotFbeen<calledprior to GRCLN')(' ?GRCLN- invalidargument-- IGRAPH')('?GRCLN - graph not assigned to region') H ` I A D OJ K@ \ [ !p @ A p @ 7 A
2 A A$ 4D ` D H C( : D B C( "9/& . B B F ? D >A$ .$ D H >A$ p7 .$ (}.$ D I < f, < e, : >; ?+ $ : D 8 70D + $ & 5 F 8 A 8AH ( > H 80D + ( ( = H 8 8AH ( = H 80D + , ( ; H 8 8AH ` H H H H H I H I H J H K < c, 7 @ D H"& $ F ? D C/$ D >A$ .$ D H >A$ p7 .$ (}.$ D I < b, : C; ?+ 8+ J < `, A & F F F & F A. 7 & F [ < , (G@ < ], ^ D H a D H D I 7 G D I < \, C C F H E F H ^D >ZD C < Z, : C; >+ S < Y, [,~ p & \p H \p H ]p ' \p \ [p ( ap H ]p H p H ]p ' \p \ =p \ [p \ [X M X R X V
CFRAMK- in ph #, must be 0 or 1') (' ?GRFRAM - graph region not assigned')(1PE10.3) (1PE9.2) % I A D ` h p x x OJ6(6 \ ' !p @ p @ } p B 0@ 1@ + 9 <
c, , <
C, ' }. D " 0F + ? <
f, , <
C, ' 0D 1D + A+ B @h
b, A& 5F L: , F F F <
`, A& 5F S: , F F F <
, $ -$D D .D ZD ( . $ D <
], : ; + U <
\, <
Z, ( D ( " /& . F
D D ~ <
X,
U, ;
+ g <
T, $ A 4D
} D } - & . }. Fu*d p $ A 5D
$
D 0D + x $ D v uD D "& $ F D /$ d u D
<
i, <
m,
@d $x D ' <
Q, ; + | w vD D
"& $ F D /$ d
v D ~ <
n, <
r,
D @d ( . . $} D ' <
P,
m <
N, ( . . }.$ D ' <
M,
m <
K, : ; +
$ A 4D
' <
J, - D A& .& F A& p7 .& (}.& F w F x F <
H, $ @A 4D
A $ D ~ }0D +
, $ D ~ ~GF | F | F , F F F <
G, } D "& $ F D /$ ( D A$ .$ D A$ p7 .$ (}.$ D <
E, : ; +
7 <
D, ',~ p w *p *p +p +p | *p )p ' *p )p ' )` ( ' p ! P % (
P & ( ~ (' ?GRINDX - invalid graph number, must be 0/1') (' ?GRINDX - GRINIT not called') (' ?GRINDX - graph not assigned to region') (' ?GRINDX - scaling has not been provided for graph') I p OJMi \ # !p @
!p @ p @ !p @
p @ <
H, + 2L p p p p ,~ d D D 0D 1D + 8 <
K, , <
3, '
1 *+ = <
N, , <
3, ' .
" +D C <
Q, , <
3, '@d H .
2D + I <
T, , <
3, ' ' .& .
F
s*d I <
F, $ D 0D + Q $ D
A 5F X GF & F F F <
E, $ D D + z <
D, $ @ <
B,
[6D + _ <
@, + Z6b 0b + h+ `4 h4 h4 h4 h4 h4 h4 h4 h4 h4 h4
4 r4 v4 Z4 Z"$ .d 5D k & F 6D + o .
. H 0D + r .
h H + Z"$ . D 0$ + z F + z $ . D 1d + z F
v D 0D + f &F F 5D
. & F $ <
>, / @ @ && @7F +
A& .& F A& p7 .& (}.& F <
=, 0D +
f &F F 5D
. & F $ <
;, / @ @ A& .& F A& p7 .& (}.& F <
9, D + Z
v D 0D +
#f &F F 5D
(
. & F $ <
7, / @ @ && @7F +
1 A& .& F A& p7 .& (}.& F <
6, <
4, #,~ p
u %p %h $
t
sp %h $
t
sp %h $
t
sp &h
x x $p %p
w %P $
$ X X X X S:' !p @
W p @
X p @
X@d
X
Z & .
W 3F
XZD
X*d
_
X Ap ,~ H (1I1) mRl=9 \
l p @
i p B
d
i&$ D
k,< <
,
"
k$& .
i F
k,< <
d&$ 2 D
j"
j$& 2.
d&& F
j"
j$* "
j$( 2.
d. H
d,< <
< <
< <
<
l,~ p
e
lP
k
f $
k P
k
f $
k P
k
g $
j P
k
h $
j P
k
h $
d m ; mRFN \
m@d A$ A 2 mR-J7 \
m, , p O d &+ # " & h '+ " @ h '+ %p p 4( ""h Sh X `b(Bq
" *h + #
' ,~ ( ) &
+
@
,~ @iSH ~x OJMj: !p @ * *@f F F & F F F & BF S& nF Of a +p& . *@h *d 4 *a& U* F E?-i \ I p @ < !p @ @ p @ > p @ ; p @ = !p @ ? p @ < p @ ; < , < ~, < D =0D 1D + Z < , , + x6b =0b + ]+[4 ]4 k A D > D ; & / = $ A. 3h >+ e A. H > A. 2( ;+ i A. H ;.$ 8& `+ x @ D < D ; & / = $ @. 3h <+ s @. H < @. 2( ;+ w @. H ;.$ 8& n I > Ap ; Ap < Ap ; Ap ,~ P I B @ A I =P I A ? @ I =X C ` Z (X^ . \ < *< .ez+ !" b + " b + Z` . > Y.~ (3~ + ~ + !Z . <x Q< *<x Z . h + gg M?}
& # b + ,
?NO CORE AVAILABLE - CAN NOT PROCEED
Kc@ p p + 3KcK , 3 @ ,~ KcJ , 3 @ ,~ KcI , 3 @ ,~ KcH4B C5@ 65" ?+D "0
5U ,~ 4" E,> $ D C5` <aB + <L@ C+ <$ +" @(BdB $ +" @5b ; ,^ ,~ , 46 C+ ?"` / + ? ,~ aB #` 0@ 3@ D,~ ,~ C2|t(1 ,> ) p 4@ e @ O,> < p, P,^ N,~ {e^b C2|p 1 ,> ) p 5` T4@ e+P "0p#p 3@ h+ g2 m+ Y3` m+ Y@@ n h h+ _) r. ! n l @ n(|h" i i B o j j k k o n,~ +D "0
f l,~ ,~ 0 i/X3 6P'M s!hh yI^*Vh P `@ 6P'M P'M]ox x OAttempt totake log*of negativesarg G? @ 1 ,> ) p + + g&t@ 1 ,> ) p + + G? 1 ,> )p + g&p 1 ,> ) p B #` 3b + D 3b + %" (D?d$ " @($ )B
,~ *Y\ +Q< X\ ,* +