PDP-10 Archive: decus/20-0152/test8.exe from decus_20tap5

Trailing-Edge - PDP-10 Archives - decus_20tap5_198111 - decus/20-0152/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

) Ap,~H    (1I1)mRl=9 \

= p @

; p B

;&$ D

< <

Z, <

^,
"

<$&.

; F

< <

_, <

c,

5&$2 D

;"

;$&2.

5&& F

<"

<$*"

;$(2.

5. H

6 <

d, <

h,
 <

i, <

m,
 <

n, <

r,
 <

Y,

=,~p

>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 D

w & F

x $.D

w $A

w4D2D

|+

w D

| $ D

x $.D

w $A

w4D

|0D+

w & F

x $.D

~ F

w,<

v Ap

s Ap,~p

~p

}p

wp

}p

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\,*+