Google
 

Trailing-Edge - PDP-10 Archives - FORTRAN-10_V7wLink_Feb83 - formsc.rlr
There are 3 other files named formsc.rlr in the archive. Click here to see a list.
p0(|*HP[hP[|PbKWV;/VKP@( wY:0wY:H @\	 CR@,>,> p  p  Ep<b $Ep$ E..&+" C%p. Ap 2D
	 CTs@,>,> p @ p Ep$.<b	 /.$$Ep$ E"
.&+"C%p.Ap3D+/.$$Ep,^,^,~?	w[fPIPC9Z049ZH @L	 @CT4',>,>p Ep Ep  p <b $Ep$ E..&+ @"Ap 2D
$Ep,^,^,~?	"
49ZPIZUc*4UexhW.GPyPRG((
 4<04<H @|	 CT9g,>,>p Ep Ep p @$.<b
//.$$Ep$?AE.&+"Ap 3D+
4<PIPC
XYYZUc*4UexhW.GPyPRG(( b0bH @\	"DCQ` D$/$ D"%p #p."Q  @@ @.< $p.D p T/p$ *b 7@( D @ ,~ 0
p	DuI?bw^e@l/W[
s"0
s"H @\	 
AaJ|G,>,>,>,>C3pC,p0" 1@ "+@
C2H 02/H2oH	((,$H..2.,=p,^,^,^,^,~  +++C!H+	*
@++  C!H+ H H+++C"7/,>,> p p, ,^,^,~6H@H.H,+	b"]jx9)O=[]&8;^$q^BB^T.`R[	_^;_sk;_t"B_t4.q,dOR{e'%gX@.	D	v`
+[	`
+[WP [hP [|
E

3F
s"]"R3[	9q:YYZUlr
Ur(.UrfWLA$5C W.GPyPRG(( q9
90(CH @,	"E "IVnO@+a-\@@,^,>,>,>Z:x.*:x,>C<,  ,	"D Q" 
~C<,=l,>C<,,^C<,@jC<,
1*9
C,{	(T(@(C< *,<j9
 *C<,1*9
C*zC,xC(zC<,,^_w	((4TC@,>C<
,C<,
,^,^9tEC+p9tCC-p9tD 	p8	"("0(+D2**
$f3I3,+,C#."	 U
*20.*3j9(3F+3,> /(C<,C<,,^C<=,/C<?	*
Q3,0 l{2j+LC<@,2 &C<,3C<B,72*+L0Z9
;.*<	*E;=f7,+&p@$@Olyp$p@$@Ol{p%Z*Z
(	 @ P D/,@+# \xS:{*:/,^,^x6@+J,~,>C<,,^,<	"L,^4NE.<+
(1H148X9HCOREDUMP/1Hm7HOvflag17X9HCry0lflag15X9HCry1 flag1	 U5x12HFlt ov flag 13X8HFPD flag/1H 5(A9,15X))(2(1H-8(9X3HAC O2)/7X8O14/))	 ](1H-)(11H-Locations O10,9H through O10,9H contain /1H )(1H0,O10,8O14)	 f(1H0,O10,8G14.5)(1H0,O10,8I14)(1H0,O10,8A14)(1H0,O10,4G25.16)	 n(1H0,40X,O14)(1H0,40X,G14.5)(1H0,40X,I14)(1H0,40X,A14)	 *U w(1H0,40X,G25.16)@o@q@s@u@w@d@f@h@j@lOFF  ON    HP	 P@~p@$@NOp$p@$@NZp$0H@ *	$($0$ p@$@N].?.Bp@$@N^h$$	@"|[j`l9uIoU=oU@o+y	DXR9(k~PfKf2[ll9w%(,yvz&	D"f
C}
EC}
FD})3@	"`	WJK` RL
CB): R[P [hP [|		D"P%u
@m[hZl9sc_<F
8<E~?<FB(#OeOT;wS
#OeZT;wg#Of]T;w{#Of^	 T;xP
/SLqL~w3]3:A~Ab[dlFl9o	D"pj(3pj)4pj)7pj*;`20J5
9	Dstv#vELy9J9>[Y=l?UlrVUlr0OUlrBKUlro4Ulro6LA$5CW.GP$PRGr%H((( z#
K[S<c):(( +,[0+,[H @D	  YNty:   p, &@b) 4B1B "1b1"+
$$.$h@(A=f ,~" ,~	@"S<dc):+!K
+,[+:#
KEXYYZW.GP$PRG((
 u?0u?H @<	 I$P,>,>C#p	b&".$&$7@"$  (@. &"* 
)@
	"(@$&$.$.&(D(F..."0@+Ul p	"*`+ +p,^,^,~-Jan--Feb--Mar--Apr--May--Jun--Jul--Aug- -Sep--Oct--Nov--Dec-".pH@	@ Ru	u?u?	`?P [hP [|YT0
LA$5CW.GP$PRG((h/;@0h/;@H @	 D"i&j)w,> 	b+BM 		`+d `4@@M,^,~U +  x	LP [hP [|(Ty"	`qp:
	 
Q*i&lP,>,>	b	&"j0 D&" D  @-& "B -& 0@	(A
(+
p*`++ "B	(Q Q &"t D-& "B &$2 $D 0@+   p*(P`+ +  Ap,^,^,~&" "B $D+(H.p@.p	@Ru	6f3P [hP [|)u=CX3	`	q
	\:qYYZZFiDFi;F3h0uUlr
c&3W.GP$PRG((G?Q^+{0G?H @$	 Ag2NI "p4B! (  n B,~g2NI:"p! (  " Cp gB":p B,~ 	@"
VGM0VGMH@TgO>Ht"p!("Cp	b">p,~	P[hP[|C", @!"PBPBPBPwO@ p*\ p*\C'p*P*@2$+5$"S$ .	 I G*d,~",+
^O[	K{V_t9_tC`
+<	 P%u
@T?DDvdD:ZZLA$5C W.GP$PRG(( D:0D:Hc):lD:c):\D:(  ^Q0^QH @
	 @ (KK;Y  C",_w" 0"[Ep0"+1",~ $0D+	"p+
C%p`dm$Q$A` &(4HH=f
4f "B=f,~ Z1DO Ep+.p	"Ru	R&Y)
b]yG	KzE
^,)	Kzf	^2w^I;
^Q	@S<c):P[hP[|
LA$5C W.GP$PRG(( HX|LKLaqR0aqRH @l	 @(G3J;O+I'4\Z p  ,C 
 p5++
++
+G"\J;"D  , Cp,~,+,+,+,+	D"
HX|L
KLl6
aqRar!;l:?`
*xC
+
`
+;|
	 `
+gLS<LS<Hc):	W.GPyPRG(( vWK0vWKH @d	  Z.)V,>,>,>  C",!"PB!"| $@ 2f  $.(*b"P EpSX"*"@@1DO@,^,^,^,~	DEFCGJS;tvc):P%u
@LeS
vWK	25EZZLA$5CW.GP$PRG(((^~k0^~kH(^~kemWQ^X^~kemWQ^(  ^h/+0^h/+Hc^h/2+^h/+c^h/2[^h/+Vk(Vl
&,>,^,~%FORDDT not loaded
0	~*P [hP [|u^v
&PyPRG((}K0}KHh}K`	WJX}K`	WJ(  	W90	W9Hh	W9c!izX	W9c!iz(  &2`I0&2`IH @   5@ S<Wkc):[S5
a"0
a"H @L	 DaJ~8G,>,>C#p  p p4$2$+2f+ p,^,^,~,> ,> 	p p.$,,^,^+	`
+[k
P{0P>
a"1;94X	YYZZ[PrPIjV3gLA$5C W.GPyPRG((
oP0oH@,M-j:  , Ap,~oS<oc):
*k

*v
*v_
*w]
*xC
+k
+
+[
+:	
+:
+;|
+<
+[	
+[W
+[k
+a
+gL0(|/H @l	 ,S>(1HA,]?HB,S(	 A 
4HF,k:x
4HJ,]>0
	"A5HM,G_(
5HR,G2(
6	(@@HV,S(
6HZ,]
7H^,	   "]
7Hc,!CG
8Hg,%gN(	"*8Hl,(gJ(9Hq	"""3,.i6
9Hx,3G
:H{,7	 ;GK
:H,:g:@H$JERRSET: error number	 D out of range - ignoredDIVERT: illegal to divert to unit $DDIVERT: unit $D is n	 Lot openDIVERT: unit $D is not open for FORMATTED I/ODIVERT: Can't write to un	 Uit $DConcatenation result larger than expectedIllegal length character expre	 ]ssionNo character stack allocated - compiler errorNo memory available for c	 fharacter stackFirst argument to SORT must be a quoted stringSubstring range erro	 nr $S($D:$D)
	on line $DSubscript range error - subscript $D of array $S = $D
	on l	 wine $DToo many arguments in call to SORTCan't get pages 600:677 for SORTCan't  return pages 600:677 after call to SORTInternal FOROTS error	D"
*k
%
*v7
*v_
*w]:
*xC
+k
+
+[
+:	!	D"
+:
+;|
+<
+[	>
+[W.
+[k(
+a3
+gLc(J">	P[hP[|[W.GPyPRG((