Google
 

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@?xiE`Kb)f<u(f`INXQF:zs)s%{rE@@tIkT(' 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(GRINDXsubroutinedemonstrationD0use<--and --> keys to move cursor     use 1,2,3,4,5,6,7,8,9,0 to store position.  <CR> to end routine + -< YZDG GhG HW <,I @2fZ&H F2 G <, @0*do <,e <,
:0; 1+, <%,, <(,, <+, <.,
 10d+
 </, <2,
+ <,' <,
X82]3W`Z\Xf`Z[Xa`Z[X]H8Y20]XWx2xWXG$0(2XJXSXU$1XU(2 @    A    `OJ
D\`!p<@Fp@@!p@DD!p@<Fp@;<p@7p<@J<,D<,+rLppdpp,~JD:0D1D+w<,,<},'dF.F & F+ :.F6D+ <#,, <},' : G D: d :.&.F  F3*d $A?4D <	,	1 $ DA $A?4D: 7 DB $ DI :0D+! $ DI F IGG: F $ DA c DN J( ;/<h <,o@ @D J( <.dD J(3d;+0 J( ; FD J( D2&<+5 J( < DD DA$.$ DO DA$p7 .$(}.$ DO F A&5F= &GF $ DI :0D+A $ DI F IGF 9 FL 9 FL c FM  FM  FN <, J( ;/<f FE"; $ FA DId DC $2DK+R I.H  FC I.F  F; <,o @ @K1  DK K1d+Z $ DK b DL KA$.$ DL KA$p7 .$(}.$ DM <,oE@ @D7$K.$?(|(3DK@dD J( <.dD J(3d;+l J( ; FD J( D2&<+p J( < DD : 8 DM DA$.$ DN DA$p7 .$(}.$ DN <,:I; A+M <~, ` ; Ap,~p6apLbh;55hC44pLAhB55hF:?@a	<55;```@a	D44;```pF:xFPaI	DHa;PaG	<Fa;XQXVXZ
wK@wC<oKBJ('?GRCLN(-GRINIThasnotFbeen<calledpriortoGRCLN')('?GRCLN-invalidargument--IGRAPH')('?GRCLN - graph not assigned to region')H    `I    A    D         OJK@ \[ !p @A p @7 A 
2AA$4D  ` DH C( : DB C("9/&.B B F? D>A$.$ DH >A$p7 .$(}.$ DI <f, <e,:>; ?+ $: D8 70D+$ &5 F8 A 8AH (> H80D+( (= H8 8AH (= H80D+, (; H8 8AH ` HH  HH  HI  HI  HJ  HK <c, 7 @ DH"& $ F? DC/$ D>A$.$ DH >A$p7 .$(}.$ DI <b,:C; ?+8+J <`, A & F F F & F A.7 & F[ <,(G@ <], ^ DH a DH DI 7 G DI <\, C C FH E FH ^D>ZDC <Z,:C; >+S <Y, [,~p&\pH\pH]p'\p\[p(apH]pHpH]p'\p\=p\[p\[XMXRXV
				CFRAMK- inph #, must be 0 or 1')(' ?GRFRAM - graph region not assigned')(1PE10.3)(1PE9.2)%I    A    D    `hpx    x    OJ6(6 \	' !p @	 p @} p B	0@1@+	9 <
c,, <
C,' }.	  D	"	0F+	? <
f,, <
C,'	0D1D+	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	 vuD D	"& $ F		 D	/$d	u D	
 <
i, <
m,
@d	 	 $x D	' <
Q,	; 		+	| wvD 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,	',~pw	*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    pOJMi \# !p @
 !p @	 p @ !p @
 p @ <
H,+2L pp pp,~d D  D0D1D+8 <
K,, <
3,' 
1*+= <
N,, <
3,' .
"+DC <
Q,, <
3,'@d   H.
2D+I <
T,, <
3,' ' .&.
  F
s*dI <
F, $ D 0D+Q $ D 
 A5FX GF & F  F  F <
E, $ D D+z <
D,$ @ <
B,
[6D+_ <
@,+Z6b0b+h+`4h4h4h4h4h4h4h4h4h4h4
4r4v4Z4Z"$.d5Dk & F6D+o .
 
.   H0D+r .
h H+Z"$. D0$+z  F+z $. D1d+z  F  
v D 0D+f&F F5D
 
. & F$ <
>,/ @ @ &&@7F+
 A&.& F A&p7 .&(}.& F <
=, 0D+
f&F F5D
 
. & F$ <
;,/ @ @ A&.& F A&p7 .&(}.& F <
9,  D+Z  
v D 0D+
#f&F F5D
( 
. & F$ <
7,/ @ @ &&@7F+
1 A&.& F A&p7 .&(}.& F <
6, <
4, #,~p
u%p%h	$
t
sp%h	$
t
sp%h	$
t
sp&h
xx$p%p
w%P$
$XXXXS:' !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$
kP
k
f$
kP
k
g$
jP
k
h$
jP
k
h$
dm    ;    mRFN \
m@dA$A2    mR-J7 \
m,,pO	d&+  # " &	h'+  "	@	h'+  %p 	p4(""hShX  `b(Bq
"*h+#
',~ ( ) &
+
@
 
,~@iSH~xOJMj:!p@**@fFF&FFF&BFS&nFOfa+p&.*@h*d4 *a&U*FE?-i \I p @< !p @@ p @> p @; p @= !p @? p @< p @; <, <~, < D=0D1D+Z <,,+x6b=0b+]+[4]4k 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,~PIB	@AI=PIA?@I=XC	`Z(X^. \  <*< .ez+!"	b+  "	b+Z`. >Y.~(3~+	~+!Z. <xQ<*<xZ. h+ggM?}
&#	b+,
?NO CORE AVAILABLE - CAN NOT PROCEED
Kc@ p p+3KcK  ,3 @,~KcJ  ,3 @,~KcI  ,3 @,~KcH4BC5@65"?+D"0
5U ,~4"E,> $ DC5`<aB+<L@C+<$+"@(BdB$+"@5b; ,^,~,46 C+?"`/ +?  ,~aB#`0@3@D,~  ,~C2|t(1,>) p4@e @O,> <p,P,^N,~{e^bC2|p1,>) p5`T4@e+P"0p#p3@h+g2 m+Y3`m+Y@@n hh+_)r. !nl @n(|h"i i Bo jjkkon,~+D"0
fl,~,~0i/X36P'Ms!hhyI^*VhP`@6P'MP'M]oxxOAttempt totakelog*ofnegativesargG?@1,>)p++g&t@1,>)p++G?1,>)p+g&p1,>)pB#`3b+D3b+%"(D?d$"@($)B
,~*Y\+Q<X\,*+