Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-05 - decus/20-0152/test7.rel
There are 2 other files named test7.rel in the archive. Click here to see a list.
 F?|0F?|@	 'q` yf

0 GRINDX subroutine demons	 0tration    use <-- and --> keys to move cursor     use 1,2,3,4,5,6,7,8,9,0  8to store position.  <CR> to end routine  @GP	 (' J=',I3,'  ARRAY(J)=',F10.3)(' Select an element and get its value.'/' An element g  reater than 9 will exit.')(' ELEMENT? ',$)(I)(' ',E13.6)	 (
+ -< )ZD h H' <, @f*&H F  <	"@, @*d <, <, <, <, <, <, <,	D"e5$Jbf`9LRc0'#6
fl4wfl4w

fl4w` f	*P* ,DZD  <,:; +, <,, <,, < , <, 0d+ <,	D"`20Jc<F
` R`20J` R`20J` R`zRc_<F
	 Q( <,+ <, <,X-'`*	*E(U
&,(6`*+(1`*+(-H)	*Q.-('xx'X$(	 7XX#X(A?%$X%(	D"`20Jc_<F
`}K`	WJ 
yP5P4	D"8m%]t		qG

s"

_%S(	D"q%?*+-I#12!o[	D"G!zA%3e

a	EBA	D"~@D@!@d"@T%@D(@4*@$-@1@D2@3@46@d8@|;@>@$A@LB@\E8 ((F=