Google
 

Trailing-Edge - PDP-10 Archives - FORTRAN-10_V7wLink_Feb83 - forio.rlr
There are 3 other files named forio.rlr in the archive. Click here to see a list.
 w> S
&+%u%vzS_<F+VO+WG@\;/|O/}G20K8CAwC0
HA9\	7*S8p,,,,\7@+4C" BP
"oR`,
,,,V"`1B+C"Y,BP,\5]2y`,,,,O5I`,,,C"` B,G,	 "*"\"|QBX "ba V,CC" BP
L D.<8&I6B@@,~C"d BA,G,x,+,7,:,,o6@,	"U*U"U7@P,
5dC"d BP,G,x,+,3,:,S,q6@,,~C"c BW	*T*E*],G,x 
2Bg+d 3Bg+h B
,+,,o5&,+,7,:,b	(U*U*f,o[X^B`6@,5C"c B],G,x,+,3,:,e,q6@,	"P(n,~"i0BO@P
2$o0d1+o5$|ZC& Fi6@E+p,~@@| P
."	 D6DP
 B@@,~6V+ ",  V "*, 4 TX "bq "	"(
 BP r BP "`QBP "br V~ X!"BBP,~"e5B2|s+ "	*E"
bs2|t+ "bt2|u+ "bu "be2|v,~ "bv2|w,~	"*E( "bw,~"e5B+"e5B2|s+ "bs+"e5B "be	*
E*!2|s+ "bs2|t+ "bt2|u+ "bu+"e5B 2|s+	"Q(A* "bs+ 
 5V26@+x ",  "*,. BX 
QBX V	 QQ2 X,~"`5B( "b` "bi,~"`5B4 "b` "bi,~ 
	*@;6@
,+=, 
 V
;!"BBP,~? P+AP,~`P ",~1F+L	 @ 
C".dP4$H bP*P`y,,~ bP*P.P1`z`y,G	" L,~,?B,~6@P7 P7y"P,~""bP BP:P,~@@P? P+U	 ATBP,~6@P+Y:P,#P,,+S`P P3@{,,~1B+o	"D ] &z+`1@+n "
.jP5*d6@P+g,W,,X hP*P	*Q(e`y,K@@P,~ P *jP JP.P4Fl4&m  `y,f,[O@P,~	"n5S "5SZP." P@,ZP/$".DP/"PP BP P	 v FP/& .FP PbP BP P/P BP,~,/"PP BP FP PbP	  BP P/P BP,~ZP." P,ZP/$".DP/"PP BP P	  FP/& .FP PbP BP P/P BP,~,/"PP BP FP PbP	  BP P/P BP,~ ((H.&P & &P, "$P,~7BP "(	 A".P/"&P, 7FP &(,~7@P,{O@P:P
"a5
+7@P,{O@P	"@@!:P
"a5
. P BP6@P,~ P``+|,~ P BP P BP5B7 P	"*U()``+|,~+1+L+L+L+M+Z+2+L+L+L+M+Z! B@P	*2,35"@@P@@P P``,~a`,e! G@P P BP P BP> P(+<	*E
P":,?+x+9P'4B9+@> P(+@,?+x+=P'1"+E6@P+C,p	 D"C"P'>PBP+=1B+q1b1"+H+x0B
&+x0B	*PK+x,l,M5"@@P@@P P`b,~6@P+6@P+2 P BP P BP	"T(@ T> P(+V,?+x+TP'4BT$`0D+`ZP' aD+` DP:P'"$	"P\.dP(5d^,?+x>P(P'1B+c1b1"+b+pBP>P P(5`f,?	(@e+x P( P' P P3   Fl `}`d ~ @P( BP' HP".	"T"m.dP5fp5dc,p+c"P'0B+xP'P'=$t,?+x+q4Fr1F	(v+r1f1&+xP' P/bP BP,~ 0@Qap	 ~	 
0@
Pp 0@P`p	  0@P`p ! "0#@$P%`&p'()	  *0+@,P-`.p/01 203@4P5`6p789 :	   0;@<P=`>p? P B P BP P(&P5h ,?+| P(&P 	  0f  & Z
P.*ZP'S"X"(.**"(.FP.FP'/($P HP("&.f5f	 ) P BP BP Pab@,~"PS"XP." $`1D FP7@*b04"(	(*1+~ P BP P BP P(5`6,?+| P( P' P P1  "$.DP	( :`` @P( BP' HP6@P+4 P BP BP,~ P``,~,| Pa`	 @" B:x,~ `bm"Q"A` 1D  BP BP BP7c+ BP BP BP	 K BP BP BP,~ PbP BP BP P BP.BP,~   DP DP DP	 
S  DP DP DP DP DP DP 7@  FP5f1+ P2"P+|bP	 

\ BP BP P BP.BP,~:P
"a5
q:P
"a5
n"a0B+
@@P	 d@@P P BP P DPZP." P F P.P/$&P1d,~.$Q"	  U*m."*",~+j+j+j+j,~,~+i+i+i+i++( B
7@	(""u+,>,>@ u,>w@@x X,Z Pab,e@ 
4B~9|	*T~ D 
 B,b,e P/P) BP!" GBP,^x,^,^,~7B+ 	"Q (``+
&I 
&
&7B,~!$GD,~@@7@P+,$6@P,B	 "P P BP BP P BP,~"1B+,,E P BP P BP,~,6	*A,,9,I P` B
 BP P/" BP,~7@P+! Pab+26 P	(@ " +!#P, P/P3"P+2 BP,~7@P+) Pab+-6 P+) P	" ( BP5= P/P3"P+- BP3BP,~ P P FP/4f2hP@`$q	 @1 D`,L PbP BP P/P BP,~ P!"1FGBP,~ P	 P
91f1& & : 
? Peb+? E 
Jdbl" BP4JY J H	*P@"B5b,E" 
RZPBB,~ Peb+Jd" BP P B@,S5S	 U*Jl" BP ",S ",S ".BP,~HHHHHHHH	*@SHHHHH		*U [H	H
H
HHH
H
	 *Ud! G@P " B 
!  G@P6@P+{	 @l7`P,~+o @P BP HP)7`P), P P P) P)1  "$.DP)`	( u+n HP) P``,^ P/P) P``@2bP BP,~ P B P BP P)	"A}&P5h, P)&P 0f  & Z
P).*ZPS"X"(.**"(.FP.FP)	(/($PHP)"&.f5f}P/P)P``@2bPBP,~,P5BP@P+BP.BP5, 	  DPDP DP, DP/DP.DP5DP@DP+DP=7@ /FP5f,+	 @A( P2"P+ P/$ DPbP BP,~:P
,+|@@,~7@+ 1B+s	(
U*J@@ 2B+O$ BJ " BL@@K+P"L.BN O B6`+S,)	("R4bh
P'&P5nV,+|
P'&P 0d8 $82d  Gab+] 	 U[ (0C(  
Yf+` \!(0X(."*(.,P
P/.$P
P'.D]"$	*U"Qc.D.d5dQ O.Bb>bM+P,~ P B e@@ 1d,~ab+o	 "l /& C*f+q!(X(."*( e.Bh>`f+g,~ $P	*U"U*t. B g2Bq+z$r Bu " Bw@@v+{"w.By z B6`+	*(U },)4b$P B6`P(+,+| P(2` 2`  @ P'  q	*(U*`,. BP' h H".B.BP(.b5b|7Bz+
>`x+{	(E*U* &P,~ { Bz  
`y,7B+b@B>`,5 Pa`5~ `0@++|,| Pa`:x,~ `	"E(1@+',L,~4B'$0D+d"~/"7DP+&0D+ B++~	 T(Q'7BPU"? B+& `1@+47",~,L+O$1D+20D+	  D*0 d&~/&6@P+  B,~@ B,~ `1@+>,C70,~	*Q
8,G+=08$0D+= d0~=80D+,~7@P,~,C7r,~	(@ A,G@=rA,~P'PP&P$PP',~,,~7`P(+F"P.BP(:P'	 I " :x,~,,~ P(&P<.KZ
P'., 0P
P$P
P':x,~	"PA"R:P
,+|+!  G@P:P
 `0@,#7BPU"? B@@,~7@+	(U**Z H1B+{@@ 2B+a$ B\ " B^@@]+b"^.B` a B	*"Qc7`+
P)&P5nj,8 `0@,*, `0@,%
P)&P 0d8	"Qk $82d  Yab+q   *0C*(f+t!(X(0 &0.&*(	 
U"t.,P
P/.$P
P).Dm"$.D.d5dc a.Bv>b_+b,~ $P	*U(U*|. B4B b2By+$z B~ " B@@~+".B  B7`	(Q(E*+6`P)+
`0@,*,H`0@,%+P)2` 2`*@>y	 Q*E*,~,l@@@@,~7@P+,8 4p@,C	* =p,/ P/P) P``@2bP BP5~6@P+(@@!"+'6@P,~!"	* P
',IZL,~ P.@@5I6@P,~7D,ZP)/"XB.B@@,~	(E (/ `1@+>6@P+77D,,ZP)/"XB..".@@5I P.	((85IZP) P)&P4F@$P& RBFPPP),~ZP) P)&P4F:&	(
@ RBF,~ B, 7`P)+B"P.NP):
P) ,0 B0,~ B, 	""I7nP)+GZ
P)&P4PN0 DRBP05NN@@P)+G/.., B0P
P$P
P)	 Q,~??	 Z??	   b?6@+rZ@@ $PP & 	b6,h P`b+|	*P
"k+~6@d+rZ@@ $PP & 	b6++~  B,~ k/"	*Es7D+u2D, t$"$Q"  B*dy, D.&?&&@.FP,~	 A

| P``@+``,~ a0@+c5c P2bP BP P``@+ a"	 U**0B0@+^5^,
+	,
5,5:P
+~,	"@E
7c+/" BP
$ BP,~,,
P',(,",~,,
P)	*",&,",~ 
P&
P
 P$3L+."=d,) 
/
P L.
P	(L	  /,P
P P
/$8*
l ..NP,~ P
2D,~=$%$/$ DP
,~	("& .P	O@,~,~,?2lP+URPX$ $&.& 	b6+ P
	 /.P	(H 
.*(J3jP 
P/
P4J8 " ."/"(@@1j+8Q"."	 7*" .*~Q((/(@
 &RPX$ 	b6+ P
.P L,~ P
.P		 @6 ,~@@RPX$ P
.P  2fP FP$&.& 	b6+  .&	 DH$P
2fP P.P/&&P2fP FPA&4FN"&+O"&RPX$ P
.P		 Q(H/(Q(@
 & 	b6+,~ P
.P L P
.P	(D@@!&	 "YX&*&,~,@@P
,,?:P
=l\,~:P$"@$P BP PX$ 	"D b	b6+,~:P$"@$P BP PX$ 	b6,h,~$a1DaB +m	(
j  &PP	d6+! `B G@P`B `BD+,~6#0b+C$rX
w	*A*U*s D|,+,: P`b@+ ,
{5~ !c#	*U({@@
	@	!@
@
'@
-@?@
7@@P
@@P!B@P"$1B+	1B+		"  	1B+	
 $ 	b6+,~ P`b	(
D 	
,
V,~ Pab+	,
V $5
D,	(BG$+@5	@,+%	(@"	`B(BG& $@ P+@+	,~ P	b+	4B	7& "+' 	"P 	(BG(+@ ,,2,~6@P
,~>P
 P``+	;"`1B+	N1B+	R0B1B+	.6@P+	Z+)	"@
	.6@P+	Y,	4ZP'ZP'1" ,~""bP' BP':P(ZP'ZP'0" +	9,	h,~	  	7ZP'ZP'1" ,~"P'1b1"+	2,~>P,
V"a1B+	C0B,~ $	*(
	?,
D"`0B7`P,~ $,
D+	H PX$7fP,~ 	b6+"`1B	 	H,~ PX$ 	b6+P'PPd DP' P(@@P(,~7BP,~>P$a	"@ 	P0D+
B5	yZP'ZP'1"+	V d0~$P+	[,	h,~ZP' @d0~$P	(D
	Y+	[ P+	[7PP+)ZP'ZP'/"$PRP'%P/"+	a/0,	h+	d1"@	(	a+	_.PP("0@pP' PP',~ P' $P DP(."PP BP',~ P<b~ BP	( *	j,	k:x,~$a0D+	q,	},> 2 $,
D=r	n,^+	r,	y,	}!"	  	rGBP' PX$ZP' 	b6+P'PPd DP' P(@@P(,~ PX$ &	(@D	{ 	b6+,~@@P(U"`ABP' PX$
 	b6+@ZP' $ `h	(
9
 dh." HZ1D,~+
U(AH,~@@P
@@P! B@P"$	"E
1B+
1B+
1B+
,~7@P,~5
V7@P+
,
V $+
D Pab	*Q

+
,	" PX$
 * 	b6+,~,	 (BG*+@5	"a0B	 U"
,~@@P
@@P P``,
L P``5
#,	,
#5	,
C,
C $,
D`B	 E
%,~ $5
D:P
,y"a0B1B+
*,~,
V!G@P:P,~6@P
.,
"`1B+
2 i1@+R+:P.&"a0B+
A PX$ 	b6	 @T

6,,~"a0B,~@@P
@@P Pa`+
<,
.+
@ P`b+
@,	 $	*D""
?,
D5	,
L $+
D $5
D $5
D $ P 	b6++ $ 	h6	((
G++,~ P BV ,	b%+,6@W:x,~ PX$	 	b6,
6!"PBP	 
P!* P``!*d  @P,>,,^,+,~ P`b, PX$	(A

X 	b6,
N PX$	 	b6,
Y - BP@@P! B@P!*,
S!*,
T	(*U(
a+
U,~M&tC@,@,@,C". Bs,G,x,+,
;6@7c+ BP
 P	( 
i"i0B P$&(F|.&RPX$
 	b6+5~S>f=7@2,~,,	(U*
r 
p X p4B	i$.0d@C#p+@
w+
s+
z,
|,,7+,,2	"U"
z.<4B
s+/Br@@s$gDZ&Fv1D+  Fu9P
|9P7@
r,~,
qbX@@+P.< p	 P"(`b~,~4B
{9,~6b+ "5b " B
~ B^^p B^ B
| pab~	*E(P5B $0 D
}1D+B$BC#pDBD0B.<5PB.<5P"1D+*4 H$& ."+-$f7j+ J(  B	"E* - & F@@,P
946b+:>"5b:,"B^@@ .<\DDEpp`f~+K	*QA*>4FK$$1 D%0D+EC'p7d+ D,$b B-+H ' FC$" ETGC'p. BD & F.@@.,P
PENCODEREADWRITE6p,+
a.p},	(
h+f"Pdirectsequentialij,+hji|,+m,	(q+p.$X     DXg6p6pW6pw6po6p,+q@	 (y Hz,+x z,+|@,+~,+	 @X<P








	 "


H	,+,+6$,+,+,	(
+6 ``<P),+x@P,+4P,+	",+REWINDUNLOADBACKSPACEBACK FILEENDFILESKIP RECORDSKIP FILE	 $,$P@,+
,+%,+',+)@,+*V""@,,++`FIND6,+-.p.Hb0.p	D"$3G$4$9Z$9[$G	$G$Lb#@A$kW	@%2#O/R:uPFjRtb;`ueIRu	:i
R&Y)
b?RE	2?RL
C+qi	9+qj	4,\	;A>n	V	@4	d	aPO	D"7
q*	.7
v	R7
}7cD~	%PflPDPo-W P
	D"REqZE?#E?%ZEIiT
HHY_pHY
;okvHYHB?HYRhrHY_"^HYe~|HYgHq	D"HYgOxHfMHg&2MKnl	K
	}#}K\
LK\$U	D"K!R4
VLlboLg\	H)k2jMnPc2
dErf)t8Q	P	JfxP	WGP"hP	pO P"h P		[P	P	&h	"Rn#_ RnR@`	B)	\}6
w`*PaXcw_IC_@?M	R_gI|PY|_9q		`Ra{.Ra{3FRa{LORa{f=Ra|)kObx	"l2LP7x*s{Hddbdnfdukd[qeMo
#e _O	D"J*?e5EA
Dw{2je>GrixgjK
	Dg{NE
P	a	`	\^x`	\e)`	\e@(`	\eAm`	\my	D"`	\s\|`	\tC`	\x`	]
k`	]u`	]
f`	]
<`	]
[`	]
/	D"`	]24'`	]8=`	]B~h`	]Dn~`	]E1x	D"`	]EO`	]Jd`	]K		 `	]W3,`	]X?+`	]b
#,	?g37	D"3&E32:a%<3I<3OK|nd2|G4>'}	@"},I}P?R}wI{}
c[2	E;G~}\hPDlEe|abA	"~DRB4RVgK	Ko&
]lmf).p/$V	WJv	PnB	}u=
|HL:	`6g S
&+
b
&(
&`\	DTx_E_B`2
P
CBSzSWH?r+
S9{* 	"S:Y@P @[({x/ O~x
S6S@P [hP [|	"P
P
[
yX}h(T7{(T\V
(T`$
Nuv.]GC	r
b7Rq	D":2c	7FW
WGP%[
'P%]P%c(%j+i6.%u8	@%uZlJIQSYwSIzP%u
@%v@ZdISZ/I{lq(S] SG	S] TS] YZS] Y[S] g	S] gS]!DS]!WS]!#2S]!7I	D"z#
z]^NE8]5]65]E)]huG2&I?ynx& 5'	D"& 54& 6>^&EA^q
0{nE	D{nG{n~ {uuP&&)|d^p.b2^p.e4^p/6|Xec	D |Yf&)7K|y(|c_Xy1S_Y\ S_YcS_Y@c_Y,FIc_Y,N	D"c_YLwIc_Yj.Fc_Ys	@}cG_&b_*]_*]_*]&-e
s	_<F
pP~TP&5&'P
U4P
VDP
WtP
]P
x	
x	P
/&
?["P
@.
Qtcay(}

WL+VO4	D"+WG6(H'?S(I\w(Is2	(Iz.T*79(P=?eI|P.?ACL
ACR	!	@"AP{AUG
'TAMAgwA%<A,L
7A,R
-A9K
	DlE	n	DDO<	
D`BVD	`%TDx@(.5Ap@\;/D"@	D"D(?J@/|O/}GWh5=X(A`YT=HYT>*JYVaxA	D"[kt*-]@V]Ey`05%T%k
WC	"1>f>P1?)1Fn=u6q1MU1PN_p5#p5%p6/	D"pE*NNxN[`Nn>gpa4m1}^dO&n1~l27G	D QY(r8.l	r9K	r9n	2x
rKi^:P2&)PX54PX6D	PX7tPX=XbIdPXsxY
#-PYBPY&PY .Z1t^	D"t7([o20Ku^
E}u^
G{u^
~u^v
&2<NbjWI	

P7M_(_[KP}"		@"[S5
,Ot	hP4.(191()(>84z-x	D4zS74zkj4{jB	k5KJ 5'C&67p.R8~x
?zl	8)e\pX7_st**M6_MP*7	D"MP
394?+x3_MPVwIMQ_&y{x$99~)>7P8.	D"Q	E
@9
<Q	jL
@Q!
2 !G38e"9_H 	D"9_I"9_O0Qq5&QqndQG`>>P
;x:~!	D"pcGpdpiZpi[pw	pwp|b	
qW
	@q32	Y]UM3YZZ[	D"cE4:	`6Ag@Ti<Ti@Y{2jlGriZ
ljW	Ulr
P[;_}FY`>tfm
g`?R)MzHCLEP	D"OuIQLGVOv]Ov`Q09|Q0E{Q0GQ"Q2[	D"RsQVqzS	
P=Qx]u	D=^IG=^LY^XQRP=`w "ZH8'(Eb$UIc'(Gj$Vq	D"&9&E&G
'.{&6q'/	'%:';GC{x	D"([T(QtJ V(,Wa(4#~x
	@=}[	y!)oPbKUV;/VKP@PA
/9E;;	DPAa&	7`BNJ'P?PAr.
PAw"AwCCG_2LLA$5C 	@;2jMbGriW.GP$PRGPNy	PNzP3UfP3	P4	"g?_/PL\jg?	?RRJ
B?ST	;P5*W?yl
g@!<
`Puj	D"g@.k@1B3@6|v	}g@7Z
\@<`B:g@=}
cPur`T@
	PLoDPLoEPLoE	PLoF	PLoF
g@t[]=g@vZ	WAa	`o^	AY2tPv(P0[	gB,7[gB~*B0gB.Cw.nPCxG>NCxG??	DgCp[>gD[?D
vKBP|gD1g
dDgrgDKg
q	@"cgDaD7`M!a4gEf35`M!d6gEf,s7Pw gFo8
W	D"P?
`b1gFQf#1gFWi.gF|Q$`M/A`M/D)t^GM'?S	D"GNt@egGTP[FgGTg[GGaVK^Gb?.\gGgUQ<2`GkGr_GmsI^	D"WH7M`t2gH4/Q)`t7cgH@bI5"[IDtB/IPPB1IZ .R	DgJWb
bgJX-[gJX-gJX.gJX.gJYJ3,~gJ4H
fgJ5C
'	D"JB6gJC^EJLn
AJ`B=gJ'(Z
_gK$hcgK8wg{PxoW<>f	W<dMW<~E
W=W=3W=7	W=!V
W=0-W=00W=:
	W&uWim2WL@WpOJWpOLWphJWphLWq1<Wq:WqEKWqPWjWjW"=((M2