Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0002/makgog.exe
There is 1 other file named makgog.exe in the archive. Click here to see a list.
?p 	?hX?x " 
 
<++#2	`t}pU*T"Ue2*HH^\6}00Z0+1+1+11
,0STRING PDLSTRING SPACESYSTEM PDLSAI:T-6-SAISG8.EXE
H
	H
H
	H<SAIL>T-6-SAISG8.SAV
End of SAIL execution
SAIL segment loading error on segment:
\" S \"<+SOME FORTRAN ROUTINE HAS SEEN FIT TO COMPLAIN
ABOUT YOUR STYLE.  COMPLAIN TO DEC THAT THEIR ERROR MESSAGE
PROCEDURE IS NOT SUFFICIENTLY GENERAL TO ALLOW GRACEFUL INTERFACE
WITH SAIL.2s2	@.2@H.S:<SAIL.TOPS20>MAKGOG.SM1U0H$K(`f`f`
E0H$R)HfhfhL0"H$X*0f f 
R0H$_+f@f@Y0H$e,f8f8_hH$l,h}}ffH$r-P|h|hlH$y.8sH$/ 
A(`FSAI:BAICLC.SM1COSCVOSCVSCVSTREXPLOGRANSINSQRTy0HH2$1f	f	
	0EH/$2fXfX

0(H<$2xff
 
0'H1$$3pfxfx



 
 
 
1HB$.5fxfx
(0H,$
 56fHfH/0 H3$<6pff 
 
61$H3$@D7hf@f@>0,H?$L8hf@f@
@
%F0+H)$S9Xf8f8
@
%M0(H,$Z:Hff
 
T0AHC$
a;@ff
[0BHD$h<(f(f(
b0"H9$o=f(f(
i0$H@$0u>f@f@
o0%H:$
}?fPfPw0%H>$?`fXfX
}0BH7$
@Hf f 
 
0CH8$A@f0f0
 
0H*$B8f(f(0fH4$C f
`f
`  
0fH6$'Df
hf
h * *!0gH5$.Ef
pf
p *@%(0-H;$
5ExfXfX/0.H1$;FXfhfh

502H=$
 BGHf(f(<03HA$IH8f0f0
 
 
 
C05H-$
QI8fPfP
K1*H+$XJ(f f 
@
%R08H/$_Kff

Y09H0$fLff


`09H2$mMff

g0:H)$
tMpf f 
n1)H*${NXff
@
%uH0$
OHSXSX
|H.$
P0SpSp 
 H-$QTT 
	!H+$RTT
 
#H.$RpT0T0
 
"/z+x+c+ x/{+x Y+"1	SAI:BAIIO1.SM1CFILECLOSECLOSFCVGDELFDPBENTEREQUGTJFNIBPIDPBILDBINPUTJFNSJFNSLLDBODTIMOPENOPENFOUTSCANSCANCARRBLTARRCLRARRTRANARRYINARRYOUTCVXSTRGETBREAKGETCHANLOOKUPOPENFILERELBREAKRELEASESETBREAKSETINPUTSETPRINTWORDINWORDOUT0#H	/$KXXf8f8

E03H	+$RYPf8f8
 
 
 
L1 H	4$
ZZPffT0H	$
`[0fPfPZ0IH	8$g\f	f	

a0+H	$n]f0f0
@
	h0*H	0$u]xf(f(
@
	o0,H	&$|^hfHfH

v0H	 $
_XfXfX}0)H	.$	`@ff

0*H	/$a0f f 


0!H	!$
b ff0#H	$
cf0f0 
 
0)H	>$%dff

 
0!H	$
-eff'1H	2$4ehf@f@
.1H	1$:fPf8f8
40$H	C$Ag8fHfH
;0H	B$Gh fpfp

A0H	$Nif f H0H	$Uixf0f0O1%H	$[j`fPfPU0FH	<$bkHf`f`
\0GH	%$
hl0fpfp
b1&H	9$"omf`f`
i0FH	=$unfhfh  
o0GH	7$
|npfxfx  
v1&H	:$"o`fhfh  
}0&H	F$
pPfhfh@
	0H	3$q@fxfx 
 
0.H	 $
r0f`f`
01H	-$
sff
1'H	'$
&tfxfx  
 
 1(H	'$
-uff  
 
'01H	"$5uxff
/04H	6$
;v`f@f@
504H	A$
BwHfHfH


<05H	5$
pIx@fXfX


C06H	$$
Typf`f`
N07H	!$
[zXfpfp

U07H	E$b{Hfxfx
\08H	,$
h|0ff
b0;H	)$o}f0f0
i0;H	%$
u~f8f8
o0<H	.$
|~hf@f@

v0<H	*$
XfHfH

}0=H	$

HfPfP
1(H	$
 8ff@	@
	@
	0=H	$
8fXfX
0>H	($
 f`f`
0>H	#$
&fhfh
 
 0?H	+$
-xfpfp

'0?H	-$
4hfxfx.0@H	"$:Pff
40@H	$$A8ff
 2;0AH	$H(ff



B1'H	*$
P	(fpfp
J0LH	&$W
f	@f	@


Q0KH	,$^f	0f	0

X0KH	)$
e
f	8f	8
_0IH	;$
l
hf	f	
f0JH	@$r

l0CH	?$
y@f8f8
s0DH	D$	(f@f@

z0LH	$	f	Hf	H
	0MH	($
	
	0OH	#$
	hf	pf	p
 
 
%XXESAI:BAIIO2.SM1ACCESASNDBKJFNCHFDBCLOSOCNDIRCVASCCVDCVECVELCVFCVFILCVJFNCVOCVSIXDELNFDEVSTDIRSTDVCHRGDSTSGNJFNGTFDBGTSTSINTINMTAPEMTOPRRCDIRRCUSRRELDRFBSZRFPTRRLJFNRNAMFSACTFSDSTSSETPLSFPTRSIZEFSTDEVSTDIRSTSTSUSETIUSETOBREAKSETCLOSINCV6STRCVASTRGETFORMATGETPRINTGTJFNLINDEXFILEINTSCANLINOUTLREALINLREALSCANRCHPTRREALINREALSCANRENAMERWDPTRSCHPTRSETCHANSETFORMATSTDBRKSWDPTRUNDELETE$PRINT	0wHE$	Mfpfp	G0uHM&	S`fPfPB.@
.	M0H6&	[Xfxfx@
.	U0~H8&	bHf`f`B.@
.	\1HF$	i@ff	c0vH3$	p(fhfh
	j0uHN&	vfXfX	p0vHO$	}xf`f`	w0xHG&
`ff	}0wH7&
	 @fxfx
0zHB$
!(f(f(


1HC$
"f@f@

0{H9$
#f0f0
0|H=$
##`f@f@
0zH:$
)$@f f 
#0{H<$
/% f8f8

)1H?$
6&f`f`

01H>$
<&pfhfh

61
H@$
C'Xf f 
$

=0}H;$

J(PfPfP


D0tHP$

R)PfHfH
L0yHH$
X*0ff

R0xHL$

_+ ff
Y0|HA$
f,fHfH
`0~H5$

l,hfhfh
f1H2$
s-`fpfp


m1H2$
z.Pfxfx

t1H4$
/8ff
 
 

{1H4$
00ff


1	H3$
1(ff
 

1	HJ$2ff
$

1
HI$3f(f(

1HK$&4f0f0

 1HD$-4xf8f8
		HSAI:BAIPRC.SM1ATIDTIGTRPWJOINRTIWSTIWANSWERASKNTCCALLERCAUSE1CLKMODDDFINTDFCPKTDFR1INDFRINTDISABLEENABLEINTMAPINTPROINTSETINTTBLKPSITIMEMAINPRMKEVTTMYPROCPRISETPSIDISMSPSIMAPPSIRUNTMPSTATUSRESUMESUSPENDTERMINATEURSCHD'0H$
W:ff
 

Q0H$
^;fXfX
X1H"$e<fpfp

@
_0eH$
m=f
Xf
X *
g0H
$
t=pfPfP
 
n0H5$ {>`ff

@u0H#$
?`ff
}1H&
@Hf0f0 

1H
A8f8f8 

1H+$
B(f f 
1H $
Cf(f(
1H3$

%Dff
1H$

,Dhff

&0YH&$

3E`ff
-0YH%$

9F@ff
30]H($
?G fPfP
90]H'$
EHfXfX 

?0\H$
LHhfHfH

F0\H)$
RIPf@f@

L0^H*$
YJ8f`f` 


S0`H$
`K(f
f

 

Z0_H1$
gLfxfx
 

a0_H2$
nMfpfp
 

h0ZH,$
uMxf(f(

o0[H-$
{N`f8f8
u0H4$
 


|dH$
$
KH$
$
$
H$

f

H$
@
H$

 
H$


 
 
H.$


H$

H!$
_@f	hf	h
H$
`(f	xf	x

1+H$$af0f0@
@
	0RH$
bf
(f
(
0SH$bpf
0f
0

0TH$#c`f
Hf
H
 
 
0UH$+dXf
Pf
P


%0SH$2ePf
8f
8

,0TH$9f@f
@f
@

30UH$
@g0f
Xf
X
 
:0VH/$
Gh f
hf
h

A0VH$Nif
`f
`

H0WH$Ujf
pf
p


O0XH$]jxffW0XH$
ckXff]0ZH$il8f f 
c0[H$om f0f0i0DH$
vnfHfH
p1)H$
|npff@
@v0EH$o`fPfP


.:QSAI:BAIMSC.SM1ACOSASINATANATAN2CALLCODECOSDCOSHCVISCVSIERSTRGJINFGTADGTTYPIDTIMINSTRINTTYLISTXPBINPBOUTPMAPPOINTPSOUTRFCOCRFMODRSCANRUNTMSFCOCSFMODSINDSINHSINISTISTPARSTTYPTANHTTYINTTYUPARRINFOCHARINCHAROUTCLRBUFDELPNAMEDEVTYPEEDFILEERMSBFERSTRINGINCHRSINCHRWINCHSLINCHWLINSTRLINSTRSNEWPNAMEOUTCHROUTSTRRUNPRGSETEDITTRIGINITTYINLTTYINSTYPEITUSERCONUSERERR_8,>,9,~+>:,>,>,>,1
,>,1,>,>,>,1
,>,1,^,^b+a"2["GBI/+x,>,A+P,>,Aab@+d"xl"/Ba,>*E!<=*<+@a*E\D!<=*<D,^[ID"0BZ+"("~cBI+l"{BBI!"GBI*E*D!:=*:#IXBI!"BBI*E*D+\!"@0BBI "2[+I4C,~7@b+[,b,~ ~+e +"f+h +h  X#`3x}+z3x+r%8(g?+0m 8@(:)X
 4Vd6` Vb %b)(X~.dv`.6 Vb[BGQ6V>/z+x%h #3v-+,T26-+*!83veXh:h,> / 1B/ 0B. 0.x`Z1/z7 17 "`/z+x &`V-G {G ZCv\ 7f ]V#Q_I+0`} 9~j#2b=+:"+"5=4V;,>, ,>,/z+x"#g =7`"`+9 9~j 0#2bI+G4BH+"A"`I,>,+"D,>,6 +FJ/z+x"g J+F 0 9~j Y~j+"K  +"S+"S,>,6 +Q5"RZ/{+xZ+Q7VI-6T`v +W [7 "`+Q4"X "+Q Z7 "`+Q Y~j 9~j #36l+d2vl+k36m+e6,>,0!6V"V7 "`/z+xo B Bm nno +d6$!Ua#k"5m.	!#7;q_& w
Ql #2dz+u,>,0!6"/z+xz3vz+x")U"+t,>,0+t!vyO ` #2v+3v+,>,0S8}"7 "b/z+x+" V+"+"6+3v+"/U"+
,>,079"b+`!vyO9Lf3!~U*U+@@`HEG..ISQRT: Negative argument - 0 returnedd"^hb +J"b.D"+JACOS: Argument magnitude greater than 1.0;  0 returnedASIN: Argument mangitude greater than 1.0; 0 returnedCOSH: Result too large - largest positive number returnedSINH: Result too large - largest positive number returned6565akvw>)ro|S2v{{DSRwf>6{[
4OK7Sv+dmrb.iB@D 4zhXd%k  @w]Q J sw' .&`sw, 9j@W@YB Y@j`g
@P
/@4*X 'p+"cd$7nwZ# ?vF (`rL`?|G z?V'Ob,s=qMJVF3N4Pc[tR+}K:SUVe
o
T%`pH/HpVL(B&z8u|(qU:/P(R,q[yyN[3z6bGUU2jR];bvPm"4S^}yJrrszwxUHyO/V
6SNz9@eZq(gW-_+T;y@_.iBP>UUpO!y[;L	yP7ro
2`S^}~k@T(Q(R804TgY*P8R
Y	
z13LC
N\(q#9!QRF%:)P
R#GPoc(@(
Qyrs2Bz?GMhTAJRGUV`2H@P,NRgsq;TpCPP?ATYU:o
=#Kz%~yRs6JPo'fu29,AW!z@4zhXUVEE.V4cpe@sB`Z9t
1Is	aW':U4zc	(@**UVA[n#r|H
Q`GEW2,W1ke9ybw	4d%k  @UNLC&V4cpc@'WbUnKSTUMPI*PR U5TO	PUbG@UYi'6WD-*{Stdo=6bHu89(IUVS(IWE7)*
B/n

TPL>w]Q W)y^JRR}
]8]
6dWEW!(1P~_T(QJ4 J W7*wXPqCP78&s"^"qRS(yL#E[W'f{R_
GUKcg]U=G>bTzE%W	U
}S T%
];	UNK%P4~-P'* z9V
pKJr&@Z6T(I|gW-e^SS/$P
\*P7/T+#zoPOf@z"4@r"7Es5'bWCCS7k P7[UV?8TUU*s:'P7r-S.X\Pc"v
8tAP)S~T)5 W/l]yO5%S):W@sw'TF]3		'\*0z5{JT+"jT8a_CPOQWI8*vd\6pSJPP%N .&`Sr=+WSsVHFUM6Y]PKS{P?y4W+IP)bUp^UqP%.gpS(zz$A4yq1[?u8:#ETl/W[#Ug/VPKS|WJP>yPzX*
6M t *(!Jr2MxM0HDPLSP
\*P=zRRHLyKFJ
!NP7P,g@owALS\!M	Pp?J
:lHMsw, T8DXT(E*NPNHUq&^'hj+p<Z5zbCP!@ UNL
'Uq&]q'9t|VPZ9zbBT^tSbEAT"7}P
83*P/u^ SuGq`z9SE[
?jcP@UV`E*R}oI(<.rru+?P
5tTYM'9j-UpzyR0tjHV4cUpzyS^v|P%B)PrptJF@W@UV`$W7{CYR>d*u}qWVsr&d-DU5
ZJ?U=G>YTUV?QeDPR 5WJ5SbDQ
T
W!r1qzL2`UO{KR2\7P)xzP92Bq!Sq(t'zwVJG
V`
R9z@2BYB PP:+Sa|JOTY5W,igSa|IOW?S*z8vJ
7
"S,mTPc*Sa|INP+VUM7.$Lz9]	aT
).tY@(:o9%XUt]tSa8nQW7ZP?-,pH"GT$rsxUVO$W77[Zp< z6kgA
JQJ
[Akcvb*:eV"cTCE_pq#EO)x,H@WJ()*P$j(:
2rpv2zZ7toycgR5$R61/SUYi;/wa{&LShEgj`S>O?"R61=CSC
oUMPyMqeXT%
a		RPiz8b^#Rgs?x%gym cW/<} P&KwW.O*P	z2G v[O)yPZ6P
N2/ j`B/@R61a{TWJ A*P
]2sLpOg`
QS^},BU
*HR
Mrz[$wazGH
QtbHW5;  T8:=wUo"d/Ph	RHJWHY*Uqv
7('V'bB-ssLCo9YP-/tf Ph	P
e:z?	L
R)Ix+ySr6(.P1:TYRVzSbVa	z&W~k^Q3`'d!0
RVL=P-{PV}P4']
N5IyOs[#
S[gAPRUVTW3S\"7NQW7zOXo;#)^P+z
@P
/@RPU	T#=	s[Ly^x4(9.yMq^YS>/it4*X R617TSytS^}rvKS>N[;yP&
3q&z;p[HS^Pbr9U
)HW;-9PXRlUp]Uq(OP
NdR4OqUL\P)"(r&M
z6r8p[_{/@S^-{t'p+"W.r5CTCGO`P
PWI7*Uq&T
T0!qk'	4P*TW
A5P77]UM:KQ
T0>z5+DP
-tcs
'bJ,yO&r8W-a~PDP&
4P^U
3	RKi^q$rm&waIW&}W-vS^b@}SyaCW712[W7v+zF|Me\d$7U3p
17U5BfSdeFP\["S^}zIPoIMP;eT8aq:p;hXUt&UR61;Ral&+LS@jVgz0zrU6stVW717YT c}	
V3
TO#Kq#7
RPUl
DKP-=UL?}Hz9@*GpLCrR2
>LSR2]"U6`hU=}ZW/}#LP;Nnz$1z9M%ZzC6bDU55tV0RL`W*4],W/sGS>O<tO.S	
T3z63R^2@Uh0:PUT{WS^~*oyU1s8l <z1@
fPW^PA!(V4c-Gxq^-v~U:Iv{238uz	?zaP}Kd?G}KFx?H I%=Jvwa3^c=Pl	x:|A;}K9 =v|S]-]-a3^c1I:*DA}K,
..//v}0}0~1DSa
1v7 SaYaZaZaP}K
G
vak5by9%9a3^cMJ:eS9~EhEr
 5uz7&{7'|7(|7)}9)}v9*~9LS0qPPi7 /u?_P
;DGPh@Pc(QGE(TAWK\1;[9ma	WzSJv(yb%(6%)8%9zx
}SP'*P7[
T+"j(D+W'%S(QW?S*S^},B
WHY*P@*PY*U	qj U5Bf Vz*o+}R*+}R*}QS9	(PZL3R];bvUV`2HSbEjP78& UKcg](PcmG@U
}SP'*P7[
T+"j(D+.W'%S(	HW?S*S^},B
WHY*P@*PY*U	qj U5Bf Vz*o+}dv+}dv}	GS9	(PZL3R];bvUV`2HSbEjP78& PcmG@UKcg](U
}SP'*P7[
T+"j(D+	W'%S(EW?S*S^},B
WHY*P@*PY*U	qj U5Bf Vz*o+}8U+}8U}E}^MN!j] i^9N#S9	(PZL3R];bvUV`2HSbEjP78& UKcg](PcmG@U
}SP'*P7[
T+"j(D+%W'%S(	P
WHY*P@*P;-9PY*U	qj U5Bf +
9Vz*o+
:"+}8U+}8U{p	S9	(PZL3R];bvUV`2HSbEjP78& UKcg](PcmG@U
}SP'*P7[
T+"j(D+W'%S(FW?S*S^},B
WHY*P@*PY*U	qj U5Bf Vz*o+}^+}^}E9jg
@j`Q~dN9jg
@j`Q@@/$GD/$8@(T
K(T
B
2dV2UZ.;-TH?:08?9V>a\>2].=rv{=)O<	<$rZ~M$rZs%L$s+@sP$*/$F"/$8(T
J
(T
B%L{Dw^:/w^Xw^5'w^N+w^g'
KyI(w]y8*w]y7w]m	&w]h.,w]BO.Kw]=NKw]=w]<{&Kw]<+Kw];Kw]:]
KwH(w]*w]!g
Kw0w]"-w]	+w],w]Gw]v*
Kuew]!+|@. `nv
_7Hu~J,Lz2GOwy
YMcG
P|tVRlM#M|
LCUVG`6
RuC0
^,,uu7~r@/9#	S*j?
&0_+1?t2
"am"U{
v$:;I1k
R,E, E
_IrG\T0LIH?
Br5'7V|WtK+^U
HM"qBS~+HMMO3]
m>r}'6F
n<OIT}z$>(@@*Yr6-;F|^1^}Ft{4)*U^gTrW^h*X
36yHJ<YFJ
FU;N
*eh
Mg3Y*X
*ci(2O.Hg"0tz"4U&{J'wd
@
r,I65
C~r=v\(I<;$5
K!?*NTiz@D4zhXd%k @w]Q J sw' .&`sw, 	KHY49j@W@YB Y@j`g
@P
/@4*X 'p+"c	K4d$7nwZ# ?vF (`rL`?|G z?V'Ob,s=qMJVF3N4Pc[tR+}K:SUVe
o
T%`pH/HpVL(B&z8u|(qU:/P(zC6UNLG%S>O5P
rj$'QA/W-6> PZL3S9	(W7:[Uq[yz6bGUU2jR];bvS^}yJPm"4yN[3rrszwxUHyO/V
6SNz9@eZq(gyJ826W-_+T;y@_.iBP>UUpO!T"8Uy[;L	yP7ro
2`S^}~k@T(Q(R804TgY*R
Y	
P8z13LCS_B@>(O
N\(q#9!QRF%:)P
R#GPocS_65P(P(@(
Qyz?GMhTAJRGUV`2H@P,NRgsq;TpCPP?ATYU:o(Prs2B
=#Kz%~yRPIRsP9n/(Qs6JPo'fu29,AW!z@4zhXUVEE.UMP6b(QV4cpe@sB`Z9t
1Is	aW':U4zc	Y(@**UVA[n#Qhr|H
Q`GEW2,W1ke9ybw	4d%k  @UNLC&V4cpc@R^X'WbUnKSTUMPI*PR U5TO	PUbG@UYi'6WD-*{Stdo=6bHu89(IUVS(ITjW
WE7)*E+s@
B/n

TPL>w]Q W)y^JRR}
]8]SX

6dWEW!(1P~_T(QJ4 J W7*wXPqCP78&s"^"qRS(yL#E[W'f{R_
GUKcg]U=G>bTW>[A~zE%PyU
}S T%
];	UNK%P4~-P'* W	z9V
pKJr&@Z6T(I|gW-e^SBUW$IP
\*P7/T+#zoPOf@P}tHS_BxS/$_z"4@r"7Es5'bWCCS7k P7[UU*s:'P7r-S.X\Pc"UV?8Tv
8tAP)S~T)5 W/l]WCMyO5%S):W@sw'TF]3		'\*0z5{JT+"jT8a_CPOQWI8*,"_vd\6pSJPP%N .&`Sr=+WSPu3sVHFUM6Y]PKS{SXOP7~P?y4W+IP)bUp^UqP%.gS_GIEE'KTpS(zz$A4yq1[?u8:#ETl/W[#Ug/VPKS|P>yPzX*WJ
6M t *(!Jr2MxM0HDPLSP
\*P=zRRHLyKFJ
!NP7P,g@owALS\!M	Pp?J
:lHMsw, T8DXT(E*NPNHUq&^'hj+p<Z5zbCP!@ UNL
'Uq&]q'9t|VPZ9zbBT^tSbEAT"7}P
83*PuGP/u^ q`z9SE[
?jcUV`E*R}oIP&-(PUYh|G(<.rru+?P
5tTYM'9jrUpzy(NR0tjHUpzyV4cS^v|P%B)@W@UV`$W7{CYR>d*u}qWVsr&d-DU5
ZJ?U=G>YTUV?QeDPR 5SbDQPHWnA}WJ5
T
W!r1qTzL2`UO{KR2\7)xzq!Sq(t'zwVJG92B
:w
V`
R9YB PP:+Sa|JOTY5z@2BW,igSa|IOW?S*z8vJ
7
"Pc*Sa|INS,mTR_4f`P+Vz9]	aT
).tY@S_GIP{h3Pz#UM7.$L(:o9%XUt]tSa8nQW7ZP?-,pH"GUVO$W77[Zp< z6kgA
JQJ
[Akcvb*:eTCE_pS>V"cq#EO)x,H@P$jWJ()*(:
2rpv2zZ7toycgR61/SUYi;/wa{&LShEgj`S>O?"R61=CSC
oUMPUS[|w	yMqeXT%
a		RPiz8b^#Rgs?x/g	PvG3P9vc)GOeym cW/<} P&KwW.O*P	z2G P19tv[O)yPZ6P
N2/ j`B/@R61a{TP
]2P	C:WJ A*sLpOg`
QS^},BU
*HR
Mrz[$wazGH
QtbHW5;  T8:=wUo"d/Ph	RHJUqWHY*v
7('V'bB-ssLCo9YP-/tf Ph	P
e:z?	L
R)Ix+yP1:TYRVzSbVa	Sr6(.z&W~k^Q3`'d!0
RVL=P-{PV}P4']
N5IyOs[#
S[gAxJA2PRUVTW3S\"7NQW7zOXP%]to;#)^yhe P+z
@P
/@RPU	T#=	S_.i=y^x4(9.yMq^YS>/it4*X R617TSytS^}rvKS>N[;s[LyP&
3q&z;p[HS^o5Z5Pbr9U
)HWPXRlUp]Uq(OPMQo&+
NdR4OqUL\P)"(Px]
5fr&M
z6r8p[_{/@S^-{t'p+"W.r5CTCGO`P
S.PqPE%QTWI7*
T0!qk'	4P*TW
A5P77]UM:KQ
T0>z5+DcPe/P
-ts
'bJ,yO&r8yILJ5W-a~PDP
3	RKi_^P&
4q$rm&waIW&}W-vS^b@}SyaCW712[W7	P[ARK%v+zF|Me\d$7U3p
17U5BfSdeFP\["S^}zIPoIMP;eT8aq:SPIDDp;hXUt&UR61;Ral&+LS@jVgz0zrU6stVW717YT c}	
V3
TO#Kq#7
RPUl
DKP-=UL?}HS_,]T=?Df Wu:z9@*GpLCrR2
>LSR2]"U6`hUW/}#LP;Vn=}ZSeIDASy<,z$1z9M%ZzC6bDU55tL`W*4],W/sGS>O<V0Rt7,ba
T3z63R^2@Uh0:PUT{WS^~*oyU1z1@
fPW^PA!(Rms4P~;V4c-Gs8l <
61$1
61V.8"W#00z&0KS[0Q
Jl^0^}]I1
7n1$
jZ0
Tm0
DHg`019l1=zG0.70|G;0E
jI0i
M	bF0
(T-
_L06|Z0\Ei@1
M	60)}B0lb0V,0I c0/
[0yLu71!'on08
^KzO0z:L1
qxW1V.0
Lv0>^~[0zHCgR8H0W* 4s^\'0]j0:P0q,0!0Hx5S03
}
?1
gis0N10a
veG0x]	0VF0cH=K0d
VRO0|
K(0*vJ01
)5U0aPw0q
61`h1~0^\'0Y(T[1L~1#P?0/iYD0

H0e/$A0)
	fG0f
G%Fz0x(T70%^\&~0Y+[I1d1*
_9q	0N
8DX0w
*7.&1&?&;R0od1'
u^v0[/$D0*H<)z0ysJF1$* [0n
Q8n0"2x0'7*v0&\!1J(NZ0
mA1
(a0(?9:0Z
)D1$u 1
wz1J0A
*7.!1&SAL0L FD0
kB0@e0d11
HfL0A408
Ma#1}
10
`Qy1+6w0#1lI1@\60L
61SF1

uh0B+50T(Tby1 ~[0
0F-gK?0sdY0`
_bWs0}
Qx1V0<'J0=-#M0yE0U*,qn0k
0dRS0@
Ks1)9%0 
2p0u
bx1/f0tMZ0
@o0,5-BH0A
r:^I02?i+1]!0bCo@1^~	;1
XH00*0s
D87z0w9~1KFUd0!O0
6%.0#

vc0C320XXp&?1*|W[0	^~)0G
l	0U)yLI0mz#01TOk05^}r|0|4Te0
|^H0G8L1L?C1!9g4pJ  %7 ,03uI0W:0T
Kt0^7;L0;

Wu0f
DJ-M0~~M17J0"d(07TUH09+/V0MIA1
hW3;0 g0
akH[18)0'^}.0)yLN0m
M
70u|0?|`)0X
D<F0
0rO0&
	lf0gc':0
M	T[0	
>JBg1
_~gH0{LR1"}RKtv60?
'0J&}JTkL{[1"
HF0D7H-0!iG0/^^047L0.
Ku[0{
u^0Z)y0l
T"Z0~x4I1
DGP0
:zO09@*0S0=(T$08(0M
HfK0	L0O*?0pT+0}
Q1#lk0+S0{dN0I6JKn#ll0:^|~0^
a8J1
d	h0`
l1	m2}1j7g1K/0o
HF0H
%
A0IE0l60P('(0vK00n
SN41L>O1 6Y*0!
l0;%LJ1(eR0^|{0\1V(l1
M&W41(Bn0k(l1eS0	Dz0(#lp0+
aoI1	x3Q1Ku5Z1(V'0
k[L05:x40<:	0iV'0\7N+\2g'r'I(\)8*\)7\	&\	)\+,\6.\.,[rO.O[mNO[mO[m	O[l|[l{&O[l+O[kO[kO[j]O[jRO[i%r%H([Z[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'`w]!+{ 0*T+*HpeHY&	27O@2-b,>,>,>X4@@2Q82X82*8:+M,>,>,>Z46@<+,>>,0A B=A" B< =(Dw D=,>>,0A,>> &2,> <0h	 (	 H=,>,0B/<"H< P/+x
H!
@@<@$xx5GETBLK6@W+%,<E,<F+?+? W&0 RP0r+) P/2.2+: P0`+- P/"." +9 P0D+0,<D,<D+7 P0F+3,<B,<C+7 P0H+6,<A,<A+7,<?,<@Z
w4J8
p/   RP W&.,>,@,>P,0Z6K,0d+? P/+x,>,>H,>,>Z4~+"@HL
J
J@@@$@$?
xx.R50TO7,0,0- B>,>,<>,<>,>,>,>,>,>,>,0',>,<<,<<,>,0(!0 P< P?,
,=0R+W,0-0B?,>,<>,<>,>,>,>,>,>,>,0'7@<+d,>,>,<9,<:,<9,<9,0,>?,<7,<7,>,0(7@<+k,>,>,<3,<4,<3,<3,0,>?,<+,<,,0H 2 @@A @@,>,>
?.* J?,
 
=0L+m,>?,<,<,0H,>?,>,0,,>>,>,0+ 6,0d P/,~@<><C/H@xxxlibhed0 H;

REQUIRE UNSTACK!DELIMITERS;H$]H%=['H',H(,
H*;

DEFINE H,REQUIRE "[][]" DELIMITERS;
COMMENT SYMBOLIC USER TABLE INDICES
H4CANT ENTER GOGTAB.DEFH8GOGTAB.DEFH:NO DSK TODAYH=SAIHED.RELH?DSKH@HB%HC$HE.H.H7O@-,>,>Y,>X4,0 6[,0d P/^,~FH\[@XxMFHE]]HU