Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-08 - 43,50515/test8.exe
There are 2 other files named test8.exe in the archive. Click here to see a list.
?p ?xiFKb)f<u8f`INXQF:zs)vC{rE@@x>kT
]gr+*>	`uH^,u@((' J=',I3,'  ARRAY(J)=',E13.6)q`
wGRINDX subroutine demonstration    use <-- and --> keys to move cursor     use 1,2,3,4,5,6,7,8,9,0 to store position.  <CR> to end routine + -<Y KZDF FhFH H1hFH H0*d` <|,6 <z,
y"<q, <, <,
.$8&k <q,' <q,
X72N2I`LMJW`LMJR`LLJNH7K20NJIXF$(1GRAPHS - invalid graph number, must be 0/1')(' ?GRAPHS - graph not assigned to region')(' ?GRAPHS - scaling has not been provided for graph')H    @    A    `OJ
\1@!p@@p<@!p<@!p@L pp pp,~  D
0D1D+I,<o,, <O,'  
.  D"0F+R <r,, <O,'  D <e,4 $A4D_@d <a, <\, 
  D 5 .&.  H*dZ 
. & F+i 
.6D+d <u,, <O,' 
  D 5 .&.  F*df $A4Dk <Z,	 $ D $A4D
 	 D $ D 
0D+r $ D  GG
/F $,D4D ((.(}.$ D!  A&5F &GF $ D 
0D+ $ D  GF 
hFF5 F 2F+ F.<W, F .  F
.<U,A@2@1  D 1d++ $ D 3 D A$.$ D A$p7 .$(}.$ D <S,A@ @7$.$?(|(3D@d ( 
h	DA$.$DA$p7.$(}.$ D  <Q,
hphh
@2	2	
xP2	2'X,
wK@wC<AKBJ('?GRCLNy-GRINIThasnotFbeen<calledpriortoGRCLN')('?GRCLN-invalidQargument--IGRAPH')('?GRCLN-graphnotassignedtoregion')H    `I    A    D         OJK@ \, !p @ p @	  
				CFRAMK- inph #, must be 0 or 1')(' ?GRFRAM - graph region not assigned')(1PE10.3)(1PE9.2)%I    A    D    `hpx    x    OJ6(6 \x !p @c p @O p BY0@1@+	
 <
5,, <
,' O.c  De"e0F+	 <
8,, <
,'e0D1D+	+	 c@h
3,c A&5F	: ~ Fh  Fh  Fi <
2,c A&5F	$: } Fh  Fh  Fi <
0,~ Dh 	D\ZDe e(.e ^ DXA$.$ Dh XA$p7 .$(}.$ Di <
/,e; \+	' <
-,
,,e( T Dd e("T/&.d d F\ De DO <
),
',e; \+	9 <
%, AY4D	l O c DN  &.N.c  FF*d	A $AY5D	V $
 DX e0D+	I $ DX GGD Dg"& $ FZ De/$dgG D^ <
;, <
>,
@di e $I Dy <
#,e; Z+	M HHD D["& $ FZ De/$d[H DP <
@, <
C,
 h Di@dh e(.e.e $N Dy <
!,
? <
h,e(.e.e N.$ Dy <
,
? <
,e; Z+	Z $AY4D	y <
,~ Dh e eA&.& Fh eA&p7 .&(}.& Fi I Fi I Fj <
,@AY4D
 $ DO O0D+	~ $ DO c OGF M Fh N Fh } Fi  Fi  Fj <
,O ] Dh"& $ FY De/$( DXA$.$ Dh XA$p7 .$(}.$ Di <
,e; Y+
	 <
,x,~pI{ph|ph|ph|pM{pizpy|phzpy{`zXyhp^|`zOy	`zO}	pL|pI{ph|ph|ph|pM{XmXrPvh(^Pwh(P
u !p @
\ !p @
Z p @
W !p @
[ p @
_ <
,+L pp pp,~d
W D
X 
_ D
R0D1D+
 <
,, <
,' 
\D+ <
 ,, <
,' 
R.
\  D
_"
_0F+ <
#,, <
,'@d
Z 
R 
\ H
Q.
\2D+ <
&,, <
,' 
x 
Q.&.
\  F
D*d <
, D
V 
R0D+" $ D
V 
\ 
VA5F) 
VGF 
x F
a  F
a  F
b <
, D
U D
`+K <
,
U <
,
,6D
V+0 <
,+6b
V0b+:+24:4:4:4:4:4:4:4:4:4:4o4D4H4+4+"$.d
U5D< & F
U6D
Z+@ 
U.
[ 
].
U   H0D+C 
U.
[h
U H++"$.
U D
`0$+K 
U F
`+K $.
U D
`1d+K 
U F
` 
R 
G D
a 
Z0D+Qf
U
X&F F
`5DV 
].
U & F
u <
, @ @
` 
`&&@7F+^ 
`A&.& F
a 
`A&p7 .&(}.& F
b <
,
Z0D+bf
`
X&F F
`5Dg 
].
` & F
u <
, @ @
` 
`A&.& F
a 
`A&p7 .&(}.& F
b <
,
` D
U++ 
R 
G D
a 
Z0D+uf
U
X&F F
`5Dz 
].
U & F
u <
	, @ @
` 
`&&@7F+
 
`A&.& F
a 
`A&p7 .&(}.& F
b <
,
,
u,~p
F
vp
a
wh	
u
E
Ep
a
wh	
u
E
Ep
a
wh	
u
E
Ep
R
wh
I
U
Vx
vp
a
wp
H
vP
v
^	
Z
]
v
WX
bX
gX
kX
oS:' !p @
) p @
* p @
)@d
) 
+ &.
) 3F
*ZD
)*d
0 
) Ap,~H    (1I1)mRl=9 \
= p @
; p B
5 
;&$ D
< <
Z, <
^,
"
<$&.
; F
< <
_, <
c,
 
5&$2 D
;"
;$&2.
5&& F
<"

<$*"
;$(2.
5. H
6 <
d, <
h,
 <
i, <
m,
 <
n, <
r,
 <
Y,
=,~p
6
>P
=
7$
<P
=
8$
<P
=
9$
;P
=
9$
<P
=
:$
6m    ;    mRFN \
| p @
w p @
v p @
s !p @
v,<
?@d
w D
|3D
w+A
w4D D
| $ D
x $ D
w $A
w4D2D
|+
w 
 H
w D
| 
w & F
x $.D
w $A
w4D2D
|+
w 
 H
w D
| $ D
x $.D
w $A
w4D
|0D+
w 
 F
w 
w & F
x $.D
w 
w 
~ F
w,<
| 
v Ap 
s Ap,~p
t
~p
v
}p
x
wp
t
}p
v
sK2    mR-J7 \
?,,~p %p 	p4(
"*h
',~ 
+
@
 
,~@iSH~xOJMj:!p@f(' ?BOUNDS - invalid array type, must be 1, 2, or defualt')E?-i \ p @
+<S,1<O,.V,,+J6b0b+.+-4.4< 2 D D
 &/ $ .  3h+D .   H .  2(
+I .   H
.$8&@   Ap 
 Ap,~P	PX	`Z(X^. \q <j*<q .ez+a!"	b+  "g	b+Z`. >Y.~(3~+d	~+rZ. <xQ<j*<xZ. h+ggM?}
&t	b+Y,
?NO CORE AVAILABLE - CAN NOT PROCEED
Kc@ p p+KcK  , @,~KcJ  , @,~KcI  , @,~KcH4B5@5"+Dt0
U ,~4",> $ D5`aB+L@+$+"(BdB$+"5b
 ,^,~,6 +"`/ +  ,~aB#`0@3@,~  ,~CR@1,>),>,> p  p  Ep<b# $Ep$ E. .&+".!p Ap $Ep,^,^,~KbN@1,>),
,~*Y\+Q<X\,*+