Trailing-Edge
-
PDP-10 Archives
-
AP-D480B-SB_1978
-
fortb.shr
There are no other files named fortb.shr in the archive.
eQh+ Q`
"x HM?H@ ,> Z + @ ,> Z ,> + @ ,> Z ,> ,> + @ ,> Z ,> ,> ,> + @ ,> Z ,> ,> ,> ,> + @ ,^ ,^ ,^ ,^ ,^ ,~ Z< \
Q>~
Z<p X @ ` C C~0 C&l`C&v@ C2|p C2|t(C6 C6$C6Md C6Md C6|@ CNM` CR
dP I~0 IF Iex:I&h I2|p I2|t(I6 I6Md I6|@ INL{@INM` IO- Kc M2| S0 SMP SMm SO S; SNL{@[B [B [&r [&r [> e ) ) $ % ! & , & / . 2 * / 3 * 3 + # 5 + # >z(:( Lh(
( l
`j
Pz
P Nh( h!|P*!x h!|`*!x x@ Qn(?`ow{}~?ow{}~?ow{}~?ow{}~ -0 . U ( QH r, Z
QL` wXN` 1N X q bS( @ GHh R`` + [
` 4LU[` + SZ` 5P\Z
` Jp S, @ BL(
XL` bS. @ GNh wXN` + Z` Z
` 3*w+ S+ IZ bXN` / U+ -0 . UZ rZ
$] Jp 0h + yZ r1n + g, + x, { Zp
p .
p ( H `5Ho, p .p ` P8 R`@ d + z, {aZ + rl + y `Zh 4NuZ
h J `+ o, `
p .
p Z( XHh XZ( d 7 `@ / U+ r+@$|+ + + @ + @
t&* '+ tF u
&* +
t1* + &* 7 #
,~ -0 w h ( H
2l & 2XX + w h an + Z /0
(
(V,T3H + O + Z + 3xX + 8 Z @ + ]+ a+ c+ i+ j@ + q+ v@ `
rjV
t Lh . nV 0 pW 0H + z * jW+ z `
t Jh
u Lh . nV rpV@ hW+ z `
tXJh , lV . Nh + zZ
`5J= `QZ `XZ `+ ? ` `XNh XN ` ` t Nh + z7J b+ C `XZ( + J `XN bQN b 0 pXZ`8 ( hX, Z ` b
`XJh `XN b mQP8 nhX * jXA( , 1( @
0 0h @ A
. 1H @ A
aL + Z[
?5JX `XZ ?QZ ?+ Z ? `XHh XH ? `
nQJh 4JzQZ( + z `
tQJh
uXLh @@h rnV+ z `
njY+ z[
a5Jf `XZ aQZ a+ z a `XNh XN a+ z, <R+ z6J e+ m `XZ eQZ e+ n `XN( XN e ` tXNh QNh + z6J ?+ t `XZ ?QZ ?+ z `XN( XN ?+ z6J f+ y `XZ fQZ f+ z `XN( XN f `,~ r+@$}+ + + @ + @ `
t2Jh + O ,~ `*V2J r+ .Y4N t2Hh +
u2Lh + + u2Hh + + `Z
h 2J t+ :h + @ ,~ -0 :w~1( +
w lXN0 L l+
wZ gXN0 XL g+ -0 ,> [ r0h + Z g4Z h XN g+ $ ([
r.l (/
"L l3lZ+ $ / l0z ,
\ z ,
\ / ( H l[
r/
(" @@h [ r1P + )Z*h Q Z,h X . *8G,^ + H t
Z J r:
, a,~ -0 ( QH r, @@` Z``
w}j[
w}l[ w~n\@@` w~QP` wXH` + -0 ( QH r, @@` Z``
w}j[
w}l[ w~n\@@` w~QP` wXH`
w|XJ` 4PJ.\ ( 0N @ *\ , 0J @
G aH + IS: GZ` + JXX@ 7Nw+ R*X 0 0J @ ,X ( 0L @ G aP + RS: GZ` + RXX8 + @ ` ., [ h h
h (h 8 8 h h 0 `
` ` @ a C ^ _ _ V U,> . 4 c
(lg*
4 Q(lg+ * )
G/4G# t0b 2+ 4Bz@@x 1b + m/" Bx " (B 7 t"` %
/ %
0. %
/dr ., . dn ., `l + v)
/4 (&0 0LX. /4 @6Bx + ja@ .. @dn ., 5,~)
.4 d, `T + )
|t L N / ,^ ,~ t7 g
U, L L ,> , 6C/ + 6$ 68}g5'G2"NPQ(\:]/*DB$esI4[5RmP;ar! Cd_4b%-)Dt]w!znX=3vu5
9J.L 9k1C~=(H%]<~
42Z/?T+ OA?0{/J e1'NMT'&Wa&5u TX0-YP+E n<95w,*%cZA)Z={Z/ PC$L`% PD2+}?x/$U?^6|ov:;mjoV".z-4Ref*yG8Fag? 5Wy&W
z!/!F{h l4m4)xZb 6GBa46q:c2Jz b&t^OoNl(zpQu!#kBG3Lf3Lf3 ( 2 >@ ' 0j =@ &h /WB ;M2@ % /H .H;: :J(@ $0N9( -<bR 8kzIF #C<M| ,4+a;
7A6Yi,@ "Xrh +/^b 6r5\.z@ !pgAI ,H *-1|WZ 4x!^;mP@ ! B( )-z-f Rr 3Y8y ( N@ 'sKc1a(1p>\-9y*2>,N4g'7T?
lh<\j6HmH%NiJB*6$D$$D$D $D ` AP:b8T
# n D
$dy$*%a>1FIZ8 g9t> ("E#I
(L&irDR*
b^Y-KJx`0l3f4[~ -0 . - w[h H
h J 0L + 0. P
m J t,> + ( w
(J j0
3L w,> 0Zp , r/ 0 p QZ8 @w
A `Z + F ,> *w,> Zp , r/ 0
p XZ0 + F0.5P *24J . n0+
A aH + ww 0 + w 0 p0
m L t,> ,>*+ D w,4 0 1L @ .4 : 1N @ A
A aZ + 3,> m,>+, 6;/ 3 w , l0
p + m N t + P u,> ,>,, 6/ 3+ F@ / -+ -0 w(45HLZ
h hL N 40L + P[h ,P ,>,, 6/ 3+
G ,5D `H + q,>
XJh + f
QJh 1 + q6H q
, 0H
@
A
aJ + q 0 GPh @ + -0 w~(00H + z
w~ . 0L
@ 0 0L @ G aN + z ( Hw~ w~
w~ . 0L
@ 00 ( 0P @ A aN + w~+ w~
w~ , 0J
@
00 ( 0P @ A
aL + . Nw~ w~.10N + h P c h H c,3(L w~(N.
.
- L e,
u
5 J r d P t d H u w~ N r, a+ ,>w,>603,> ,>w~,>6,> , 8/ -+ -0 w(10H + !
50L r@@ t h N u 0 P r, a+ ,>w~,>6 w,3,> ,>7,>6,> , 8/ - Zw . GNh 7w@ + @ ` # <X 'Z
( h
h 8
h 8
h
h h h ( Kc- a CN=m a -0
w~[
U J
w.F8
3N + cZ* Q* ,> ,> m,>E, 6/ F+ ah + g,>w~,>w, V/ G+ @@
Z6( Q6 Zw[w44( ` N
X L 4Pq,> ,>H,>H, r/ F Z
aL + },>H,>I,>H,>J,>
h $
@ .j
h aL + ,>H,>L,>H,>J,>H,>
( $
h .l
h 1J + $,>H,>I,>I,>J,>
6.0 + 3, H,>I,>H,>J,>
aJ + A ,>I,>H,>J,>
w,> ,>w, / G
h J +0 0N @ H( 0J @ G aP + TS, GLh + TXZ( 7
Q L t, a Z pQ,>R,>R,> ,> ,> , ./ O ( hS[
w.* XJP
S L r@@ t m P u H r, aXZP S. GNP w~[h N
8 XJP S, GLP @ [
w Lp 2rp + { .w @ (T4Hv,> ,>H,>H, r/ F
.
XX( ,T0L + zS: GZ( 9oXV` 9o[w,> ,>w, / G,>N,>H w~.O,> ,> ,> , ./ O Z
h L A0 Ph
XLX / P+ -0 w~1H+ !
wwL N U0L + 0U0P + Z
^ 0L ZN 0P + [
^ L 0N + Z
0 ,> , "/ P`Z + ,> m,>E, 6/ G+ !
] 0L + &O + 0K0P + +,> ,> 1P @
A aN + 5[
,> , "/ PaZ + 9 wZh ,> + 8,K0L + 9Z
,> , "/ P+ @ + -0 . P@ w~< Hp 2xp + B
.
wZ
( 2Lw~9=O + C9=@ / P+ @ ` O J$@( 8 0
h
@
h
@ F h ( ( aJ| G
h X ( ` ` 0
-0 .
YSwZh [H
h J
h hL N
Y,
Z0L + wZ( N
Z0P + w(
[ * 0H
@
0
[ , 0P
@
G
aJ + r 8 H c 8 P c,
[.
R L e,
u
\J r d H t d N u
\ P r, a+ w
\ H r 8 "P t
8 "L u*
[J r, a Z
]0N + Z
h J
Z0L + .
] 0 0N
@ ,
] ( 0L
@ G aP + ( N c
( L c(
[.
R H e,
u
\ P r d N t
dJ u
\ L r, a+
\ N r
( "L t ( "H u0
]P r, a Z
]0J + (Zh H
^0N + (*
^ , 0J
@
.
^ 0 0N
@ G
aL + #
J c N c0
[.
S P e,
u
\ L r
dJ t d H u
\ N r, a+ (
\ J r "N t "P u,
^L r, a Z
_0
_3N + /,> ,
^,> ,>
`, r/
` Z
(
_.
a3H + 5,> *
a,> ,>
`, r/
` Z
,
_(
b3L + <,> 0
],> ,>
`, r/
`Z
b4P ? w , @ GLh @@
]0L + Y.
\0N
+ K
h J c
h L c
S H e,
u d2N
c+ J wS* GJh + Y2N
c+ Y+ Q*
b5J R h 0H + P wS0 GPh + Y h 2P
d+ YO@ 2N
c@ , 6J @
A aP + Y wS. GNh
d1N + p * QJ r, Z
XLh wXH0 S. GN0 . n
e0 BP0
\,> Lp , $/
e
p XZ( ( [wQJh [J
h QL( Z`h [( Hp QJ w
XJh ,>
f Zp , $/
e
p QZ0 @@
] 0 0N @ *
^ , 0J @
A aP +
Hp `n 7
T
T
p ,
f. .: Z e c ( H d
( L d,
u
\P r d N t d H u
\+J r, a Z
,.
g1N +
" w , l
gX0 QP r, SZ GJ * j
g, BL
\,> Hp , 3/
eXp XZ@ QPh Z
@ J
h 4L
"[h QN@ Z`h [
@ Jp QP( ,>w,>
h,>
h
\,> ,> ,>
iSZ GPh [h P
i . 0H @ n
j w h `n +
c
] , 0J @
0
^ . 0P @ A
*
^ 0 1J @ A
aL +
G Hp `n 7
T
T
p 0
f. .: Z e
( hL c ( hN c ,
u
\ L r
dJ t d N u
\+H r, a Z
ca +
S,>w,>
j,>
`*
^,> ,>
`,> , 8/
iZ
]0P +
RS GNh +
cX +
c,>w,>
h,>
k*
^,> ,> ,> , 8/
iZ
d1P +
[X
k ( 0J @ h
jZh P
i . 0L @ n
l
\1H +
h,> ,>
f,>
`, r/
`Z
]0L +
p7.h @@h
\ J r@@ t
h 8
L u 0 P r, a+
y
\,N r@@ t ( H u * J r, a Z
h,>
`,>
f,> 8/
i Z w
0
] 8 0P @ 0
lD .
mA ( ( 0p@ A 0 7.( @ A 0 . 0h@ A 0 7*0 @ A aX +
\SH r@@ t
h /
8 "J u, hL r, ahZ + (
]0H +
h 0j+ w 0 p
m wS0 GPh + *
d0J + w 0 p
n+ ,>w,>
j,>
`,>
f,>
`,> , 8/
iXZ @ /
Y+ -0 .
eS( H r*
U.* S
.
U.. (N .
0
V.0 (P .
(
V. .
n H t:
H, a Zp wn
\S0 BPh p /
e+ -0 .
eS( H r*
W.* S
.
W.. (N .
0
X.0 (P .
(
X. .
o H t:
I, a Zp wn
\S0 BPh p /
e+ -0 wZh H
8
XL w[
h L Z0 8 XP0 w[h P
h 0J + R
oXN r, Z
QJh 7N 0H + X
QL8 ,> , W/
e+ \Z
8 0L + \[8 H
g0L XN
ZL @P + -0 .
pd ( QH r, Z
8Z
( XLh XZ(
d 0 p
p,>w~,
0/
e Z ~(
q1h + oZ*h Q* .* J
aJ + r
q Z t+ s
rXN tS. +N r, a+Z z , l
r : z
s w~,
q"L
.* $
., QL rp XZ8 Z
\+P r@@ t ( H u * J r, a Z
"2P +
h
.
Z0 XN( S0 GP(
:
.
8 XJ0 0 p
s3X
g:. .n
. Z8 XP S, GL :
9
\XN r@@ tG r, aZ
h XL S. GN wXN S0 GP [h XP S* GJ
XJ , l
t@ /
p+ -0 .
e w(
qZH Q* 2J +
;
[0 3N "+
9@ +
;9* .j
5 : /
e+ -0 .
e@@ G[ b H 87J 8+
O.
t0N +
NZ( 4H
NZ( ZN Pp 2xp +
N. Z
l L
u0J 9
E[0 9P
E,> ,> , `/
p9
E 8Zh +
>@ /
e+ @ `
{
H
H
H
H
I
I
I
I ( h
(
8 8 . ( h
h (
h
0 0
( h 0 _P h 0 ( h 0 @ 8h 8 .h 8 B &h (h L $ h $@h CR@CTs@
@ D@ F0 F (
0 +| c
cZ
e+@0 -.
x`n@0, c H d J d,~ .
d,
d,
d,
d,
d,
d,
d,
d, , <P, 9, 9+ , 9, 9, 9+ + , 9, 9+ , 9, 9, 9, ;, ;+ + , ;+ + + , ;, ;, <+ , ;@
+ + + + , <P, <P+ , C, C, ?, >, >, <P, <P, N+ + , U, >, >, <P, <P, N+ + , U, >, >, <P, <P, K * * + , U, `A
dG
dI
dF
d( , `@ , h`@ , |*. h`@ , d
d7 , , c
c,~ d
d,~ d
d,~ , <P, <PL "` d* 7@ : ,~ , , <P, <P,
8 ,~ dH8 ,~ dH8 J8 ,~ 5*
" d(
8 ,~ " dH8 ,~ " dH8 J8 ,~ d(
8 .
c,~ dH8 c,~ dH8 |*. h < c, }*. ,~ dH8 cJ8
c,~ 7N d+ N d@ aN+ (.+
`N $
c+ * ,~ 7N d+ ,> c,> c,> aN+
(.+ 0H dJ d3Nx + (. ,> H c J c,
,> ~0N dN d H c J c,
,^ ,^x ,^x ,^x ,~ !( * ,~ #
, <P, 7, ., 0, 1, 3# , ', ,, ., <P, 4, 6, $ |*. h7 ,
d J c, U
d,~ # 7 d"h ,~ 3h dg d,~ & d,~ 3* d
d,~ 2j d
d,~ 3( d d,~ 2h d d,~ #
7 d"j ,~ * ,~
( ,~ 5Jt
},~
( ,~ &( 6@ h(F h*6 * ,~ a` + H&( 6@ h(F h*6 ( (J ,~ @
)|h(F ~,~ # %( (
'.7 c"j ( ,~ 7~ , 7 c"`
( ,~ 4Ht7 , U(+7 c"` * ,~ 4Htl* .* @d
ej .( l( ,~ 7 , , 6;,^x ,^x ,^ ,^ ,^ Z
e0,/,
{A, + r0,r0, + p/,r , 4Ltan + u@h ,~ 4(wU(0L U*,~ 1L + z 1L
,~ S( * ,~
v @ e X H Z @ 7 6 Q< + 7 6 Q< + 7 6 ,> "p Lp cX=9 + 7 6 ,> p p !` 7Pp + 35V p + 3:<2<7` B: 7` B2 / 6` : p d< 56l< L "` cX=: 50l< L "` cR=: d6~ d0~ 4t>"` )P a| + !`| + CL "` cX=: a| + $L "` cR=: d6~ d0~ +$%. +$x. `v h6 ev + *dv `v , @l av ? )l d6~ 5V0cX=+y7 ) av =/`Z + ydZ , ?z<+{d dZ , ?z<+{@v ,^ Vp d8 Xp ,~ d dZ , ?z<+|6$ 6$ ?,> + ,)P 9 B: l "` L@ cX=: ,~ l + $7 6 7 6 Q< + G,> 7Tp +y44Z p !` 7Vp +yF P 46\ p :<4<.:W@A: `| l Q d6~ d0~ ) ) % % % +$U. +$|. +$}`X .8 )[ + ,L "p cR=9J+ JL "p cX=9M+ M7 6 7 6 Q< + b,> p 44s p !` p F 46v p P bV}+ i+ycP}+~:<4</:W?A: `| l Q d6~ ) ' % J cT=: . ' [ 58*=*L "p cR=9d+ dL "p cX=9g+ g9& 6aZ @ + 4+ 9 7H7H
79V9W H
6,>In, Ak/ a,~ -0 6H #+ O@ #
w 4( (nO /0 " 1v + /6
\d, ( 5: S. (NX F 5X+ .. S P # : [ #(Z + ,>In, Ak/ a Z # : [
#(Z0 + -0 (w~/ "< " QH r, [
r<
QJ` ,w~5L @ pwxw~ w~QX R`` + w~[@ XX R`` QX@ 0w[ r. < pw*w~Z,(CQ, Q 8 Z . *8o J " + -0 . a "/w~
w.
QJ r, XZ r
r.
a Lp Zw~4N:8 Q rX
w~[
( .
*:g [( .p r ( Nw~[` ,> ,> , / b+ /4V? rX
w~Z.(CQ . *:g w~8 P "
p J@B@ / a+ -0 "/w QV r4VM, XZ r
wZ.0CQ . < *:` 8
L " r.a H0B@ + -0 . b "1( }+ R,>[, 6?+ t
w.\ Np 0\+@DU+ B+ Y+ l+ m+ u+ + + )+ ;7H #+ [@@ #+ ],>In, Ak/ a Z #[ #3Np + g1n + b,>],>], 6?/ b p ,>l@T[ #,>l@T,>^, 6?/ c ( QH #+ 0 [ #(P Ac7Z + B: "
# L8B+ B,> + " Hp *^. Np 2xp + s,> , N/ a4:B9p,>p , C/ a+ B,> , / a p w*_.
p Jp 2xp + } Ad(4N} + 9y,>w, C+ t@@ r:
" /p 8 H0B,> , N/ a5:B+ B,> , / a p w*_.
p Jp 2xp +
Ad(4N
+ 9:
"@@0B+ B: "
/
p 8
J B,> , N/ a5:BO + B@@p " Hp ,>p , N/ a4:B7N #+ [ #0P + %@@ #+ 0 P t,>Io, Ak/ a4Z% "10 s+ Z*p Q* ,> Z.p Q. ,> Z,p Q, ,> , / c+ 7Jp + s,>p ,> ,>p , (/ c+ B@@p " Hp
"1* s+ 1Z,p Q, ,> Z0p Q0 ,> Z(p Q( ,> , / c,>p , N/ a4:B,>w, / a w D(A 5H*7Np + s,>p ,> Z0p Q0 ,> + '6H #+ =
<d, 0 + B[ #
p /. 3L + A 4d, + B@@ #@ / b+ -0 . b@@p w
$( Jp
p `L + J(L Lp :p + F p ,>l@T[ #,>l@T,>_, 6?/ c:p p (Z Zp 4ZY p `H + S(H Hp :p + P
p 0J
+ V,>`+ V,>,@T,>`, 6?/ b> p+ MO / b+ @ ` U04j004jf ' 04j 0$j g x y X+*{++"*R*L+ +A+k+G*d = P 0 ` @ p
` @ P P p P P p p
0 P 0 0 P 0 `
p @ P P
P @
p P @ P P P p P 0 P @ P P ` ` P
@ 0 0 ` p
0 P
P
` p P
p `
0
`
P @
P ` @ @ 0 p @
@
` `
0 @ P p ` p 0 @ P
P @ @ @ p
@ 0 P
` 0 p `
P p 0
0 0 0 @ @ @ P
P @ P P @ !
0 P P P ` @ P ` %`
` 0 @ P
p P
` ` %` P P
` 0 ` P ` ` p @ 0 P
P P & P `
#p @ !@ !0 P !` ` !p "0 @ "`
` $ P
%p @ P ' 0 &P
&0 &p ( P
'P ` '@ 'p ( P (p @ P (` ` ` P )p P )` ` ` P *` P ` +` ( ( ( @ @ @ @ @ @ @ @ @ D D @ @ ( ( ( ( @ ( ( @ ( @ @ ( ( ( ( ( ( @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ 8 SYNTAXACT "FUNCTION" -0 . 2 w~/( H
h J
h 0L 0N @ * 0P @
G aH + u@ +
..03D aN +
(
Z, [,4. m P + Z*@ /* SJ L r
p QZ( [( H .6n6 l [ P , l7*1 . 1J @
A (1 , 0H @
Z
@ ( 0* @ A
G aN + !,>w~,> m,>1, 6;/ 5+ * 8 Z
@ Jp 2xp + *
p L 3N ~,> m,>2, 6;/ 59# w 0 p8@ / 2+ @ ` Bl [ J8l [ J.l [$l [ P J 8 &0 h h (
0
h C ` C~3@C&lgC&vC@C2|s@C2:C6C6'C6MdC6Md'C6|C@CNMc@CRdGI
dS@I~3@IF@Ie}I&i` I2|s@I2:I6'I6Md'I6|C@INL{GINMc@IO-Kc` M2| S3@SMS@SMmSO@S;!` SNL{G[B@[B@[&r@[&r@[>!` e
2j + i,>, 6?+ O@p [ #1P + C, K:
p .
Z( 5:oO + F[ #70<!+ s6jp + w.
( + F7jp + C[ # p . [8
$!3*D!+ C
p .
( Lp
P r, p . X XVP >p [
p
Np
0J + 4H. [
+ 0j + p . [8 7(D!+ ,> , 6?/
S: GZP + XTX X ah + S0 GPP ( hZ`P + @>p . @ QHP [
p
/* +@,+ 1+ + + + "+ #+ '@ @ @ @ @ @ + )+ ++ ,+ / , lZp
+ 0 , + ) , BLP + - , BLP + * , BLP Z
p
1L + 0[: + 00, ll+ 1+, l : + 0+, l+ &, l+: pBZP + 1+, l : z ,> , d/
H aj + @S, GLP
p .
Z( + o:
p .
#L( , ~ Z #+ j/ + -0
# Lp , ~ Z #[ #0N + 1 " Hp , ~ Z # p *0J l [ # 0 1N @ ( 1N @ A aP + [, d:
"Z(B5:]O + J,> , 6?/
#1J + P[ #1N + c,>@[,><@T,>, 6?/ + Jd ,>p , C/
@B.
@B Jp 2tp + n
P Lp .0N + lS: GZP 9gS0 BPP 9g, ~ Z # p 01P + +d 2Z &+ uZ.h Q. ,> ,>
, 6?+ ; "[8B.( QH r, P r
p J t T u, Zp
p .n ( h "[
@B8
XJP @B .6 [@B42
.
. 8 Hp H0 `h+ p XP =2 p 0.H aP + ,> , /
"[0B42# .
Jp .0N + , ( 0L @ . 0 0N @ G aH + #,>,> + ",0L + #,>[( ,> , ,k/ =2,> p [
h ,> , ,y/ "[hB,> ,>hB, /
p Jp + 0,>,> , ,y/ ,>p ",>hB, [/ Zp
p L "+ J p h aH @+ H* , 0J @
.0G D
(M
aL + <,>,> , ,y/ + J*0J + F h `n + E,> , /
/* ,9 P t, a Zp ,>+ H,>,> + I,>,>p , ,y/ p / + -0 . @@p [ #0H + V6Lp + U P r, Zp ( h * pBJh p Zp + W@@p + W0H
+ X, ~ Z #+ M[
#0L + :, ~ Z #, d Zp 4:K[ #0H + 3@@p p ,1L + cZh Pp (5HdO@p + f0 4Pf,>@[[ #,>l@T+ p 00P + j,>
, 6?/ *0J + t@@ c h N c P e,
u H r
d J t
d L u .
N r, a Zp 7Np + p h H c
h J c, .
L e,
u N r d P t d H u *
J r, a Zp p (4H
h L c h N c
P e,
u d Hp +
h Lp @@p , ~ Z #[
#1L
+ 0L +
O@p , ~ Z #[ #1P + ,>@U,>D@T,>, 6?+ 9Z
# Jp , 0L + @@ c ( P c
H e,
u
L r d N t
d J u 0
P r, a Zp 7Pp + % p
h J c
h L c. . N e,
u P r d H t
d J u ,
L r, a Zp p *4J+ h N c h P c
H e,
u
d Jp + , h Np N r p P t p H u * J r, a Zp , ~ Z #+ 6 p ,1L + 6S0 GPh [
#1L + @,>@[,>4@T,>, 6?/ + 0 0L @ ( 0L @ G aP + AZ
# Jp , ~ Z #+ C, G Zp 4:[ #0P + `
J r, Zp , ll p QNh , ~ Z #, K Zp 5:LO + p p XHh ,> , d/
h Jp ,0L + TS0 GPh + WXZ( ( ap + W p S( GHh p Zh Pp ( 0H + \S, GLh + _XZ@
@ al + _ p S. GNh
p Lp 7Jp + p XN( Z`( 0 0P + {, 5Ly0 ( 0P
@ , * 0L
@
G aH + t 8 P c
8 L c* .
e,
u H r d P t d N u p , L r, a+ P r
8 "L t
8 "J u( H r, a+ p S0 GPh + ~XJ8
8 al + ~S0 GP( p
p *Zp 0J + P: + : p z + 7p @ / + @ ` j | [ z c
P X P H 0
h 0 0 h h $h ,h (
( .h $
@
h ( . ( @ 8
8 8 @
~}}|| ~~ -0 S( H n H r
sXJ r, B
X XL` wXV` ,> , G/ tZ` .t0N + 8S: GZ` + 9XXX Z` (t0H + <S: + >XXX
X al + ?S: GZ` [
B,> ,> B, / u+ -0 B ` ,>u,> , ,k/ u4:G,> , -/ t+ -0 B@@
0J + S.v0N + SZ(X Q( ,> ,>m,>n, 6?/ v+ S. GNX w N n N r sXP r, ` XHX
CQJX [
,> ,> , / u[ f5NXV fQV f+ fXVh XV f+ -0
w L n L r sXN r, Zp ` XPh R`h Z`h @ + `
` 0L + @@ Zp Z C4: [p 0H + x p Z,h Q, `@0L + xZ0h Q0 ,> ,>n,>n, 6?/ v+ 7LP + P Pp @ H C [
C. Hp 2rp + H Z
h LH 9}[P ,> ,>P , / u[ C8 QP C+ @@ C x P n P r+ P P C [ C. Pp 2rp +
h JH 9
P L C [ C8 QN C(x1H + ,> ,>y,>y, r/ v Z C
z J n J r[ ,> ,> , / u sXH r, Zp
CXJh [
CQLh Z CXNh Zh 0t0P XZX / v+ -0
P aj + (,> m,>o, 6+ [ T C
{ L n L r sXN r, Zp 7PX + V 4 D
X ( [
.
Lp 2rp + F H Z`P XDP H 0N + D({0H + ?S, GLP ,| . 0L @ 0| ( 0P @ G aN + E,>y,> , ,k/ u+ E
p XL .{0N + E,>|[ ,> + >S( GHP 8 .2 + 1 X [
,> ,> , / u,>y,>X , / u
/
o L DZ` D D.. QN r, pQ 8 X
D.
8
*8 + V@ p
CXJh XTh d [
,> ,> , / u/ u+ -0 , ~ Z #O@ #[ #1H + f, X Z B4:q[ #1N + f,>@V,><@T,>p, 6?/ v+ @@ B
} L n L r sXN r, BXXX 4Xq(}0H XV` ,~1L + ,> ,>y,>y, r/ vXZX + , ~3Z~+ w,>@V[ ,>l@T,>p, 6?/ v,~
J n J r
sXL r, ,~ -0 ,>Ip, Ak/ t6X + ,>In, Ak/ t3Z~+ ,>q+ 2X~+ O + ,>In, Ak/ t3Z~+ ,>@V[ ,>l@T,>p, 6?/ v+ + -0 , z66 +
J n J r
sXL r, XV` + -0 , z66 + O +
J n J r
sXL r, XV` + -0 4"/ t5:.+ V@@ D@@ E@@ E8 l ,> , 3e/ t4:V w2N + ) w H r@@ t"* J u , L r, a+ - w H r@@ t"* J u , L r, a Z C@@ D7L D+ 4 0 Pp D2H + 4,>q,>r, 6?/ u+ 4@@p C Pp D Hp
E Jp
E Lp 7NX + D 3R + >, 0L + >,>r, 6?/ t X [
X ,> ,>X , / u,>P , 2/ t64 + G+ V2H + G,>s, 6?/ t+ V@ w H n H r
sXJ r,
p QL` p XN` p XP` [ QH`
p QJ`
p XL` ,> , A/ t p 7.h < [ ,> ,> , / u/ + ( H s,> , / t,~ -0 ,> , / t w H r@@ t"* J u , L r, aQZ` + -0 ,> , / t w H r@@ t"* J u , L r, aQZ` + ( H s,> , / t,~ @ ` > > @ D D X
X ( ( ( X ( (
( ` ` ( 0 0 ( @ FH @ OCTAL DIGIT STRING OR 'TEXT' RANDOM ACCESS -0 B * J
` 1L + ,>` , 1`/ [ 0N + ( 0H + Z*X Q* ,> ,> |,> }, 6?/ + ` . 1N + ,> }, 6?/ w H n H r
XL r, QV` [
B,> ,> B, / @ + -0
. B w2H + $ : + % : Z sl @@ D,> , 3e/ 4: < D Np 7PX + . X ,>P , 2/ 64 + 1+ <2N + 1,> ~, 6?/ + <@ [
,> ,> , /
w L n L r XN r, p XP` R`` [ QH` ,> , A/ / + -0 ,> , / H r@@ t"* J u , L r, aQZ` + -0 ,> , / H r@@ tO@ u * J r, aQZ` + -0
. B X ( 1H + R,> ~,> ,> , 6?/ + p Tp @@ Dl Z,X Q, ,> , 3e/ 4: p D Pp 2P + [ q8 ,> ,> , 6?+ p
s1J g : pZ 4: p7PX + d,>X , 2/ 64 + e+ p@
w J n J r
XL r, p QN` p XP` p XH` [
QJ` ,> , A/ [
,> ,> , / / + ( H s,> , K/ ,~ ( H s,> , K/ ,~ -0 ,> , / Z` 0H+ ~ q8 ,> ,> , 6?/
L r@@ t". N u 0 P r, aQZ` + -0 H t 6 ,>Ip, Ak/ 4Z ,> , N/ 4: ,> , + Z t=6 ,> , 6?/ + ,> , / ,~ ,> , / ,~ -0
x BX `X 0H + , 1L + #,> ~,> + P , 1L + ,> ~Z0` Q0 ,> ,> , 6?/ + 0 P
L n L r XN r, QT` R`` X XP` Z`` R`` Z`` [ ,> ,> , / + -0 w h H c
h J c, 1L
+ 60 (P . P e,
u d H c d Z c w0 1P + :
J e,
u d Z caX + <" c+ c+ -0
. w~ w7HX + D
X 0L + C"w< 8 ,>X , -/ Zp w.6 7LX + K X 0P + K"
w<
8 ,>X , -/ Zp P r p H t
p J u , L r, a/ + -0
. @@p @@p w[w.w Hp 2tp + % * Jp @@p
P 0L + P 7N` + ` ` 0H + _O@p 9 `@@p 9 `@@p ` 0H + f,>` ,>p , =/ * .jp @@p + ` ` 7J` + 0 0P + p7Lp + o N r@@ t X "P u ( H r, a 6.X + s,> , 6?/ @@p + X Hp ` `
` 0L + 7NX + { X 0H + zO@p 9 {@@p 9 {@@p X 0H + ,>X ,>p , =/ * .jp @@p + X
X aJ + + [X + X aP + : + : Zp p $p .pp 7Hp + * 5J P r@@ t X "H u , L r, a + X P c X H c, .
L e,
u
J r d N t d P u( H r, a+ P [X .np . QN r, Zp 6Pp + p XZp QZp + "
p XL@ XLp p
p QLh XVh .4 + WSp [
p . / + -0
.
Jp 2rp + D H X ` [
,> ,> , / ,> , S/ Zp [ ,> ,> , / @@ s@@ ",>X , 2/ Zp [p ,> ,> ,> ,
/ [ ,> ,> , /
J r, [
p QLP p XNP [p PP mQHP 9 +
B ( [
,> ,> , / ,> ,> B, / + -0
( H t 4 44 R(X ,>Io, Ak/ 6V + P(XP + T.8_p/4 + L,>Io, Ak/ 5Z R7 @ + -0 . ,> , N/ 4: e
" (B,> Jp , 1`/
p pZ0B78 + e[ 0P + d* 0J + dZ.` Q. ,> ,> |,> }, 6?/ + e@ / + -0
#3J + o,>@Z[ #,>l@T,> , 6?/ , J Z #6N #+ s, ~ Z #+ Y #@ 0r + z2XL &+ yZ*L &Q* Z
( Lp [( + |.2 + t
#J ,> + d
p 1L
O@p , ~ Z # #3P +
p 0J + : "S0 P8BO@ #+ U,> [ #,>l@T,> , 6?/
p 0J + 7Np +
,>,> ,> + e, + ( H , ~ Zp @@ #+ U, ~ Z #O@ #+@d + S+ + ++ 4+ D[ #0N + Z # H
. 0 1N @ A
aL + ,> + I:
"Z # H(B@@ #+ '0N + $Z
#J 0L + 2, U5: '+ v,> ,><@T,> , 6?/ p 2H + S
"Z0B Np > "+ U[ #0N + /: "Z
# J B@@ #+ S0N + 3Z
#J 0L + OZ.( + H,> + Q[ #0N + 8: "Z # HhB+ .0N + A #* 1J + =,>
Z0` Q0 ,> + d: " X@B,> ,> , ,y/ + .,>
,><@T,> , 6?/ + .[ #0N + QZ #H v #. 0N + O,> m,> , 6;/ , U5: S+ v,>
,><@T,> , 6?/ " p QP8B7H #+ W@@ #+ X, ~ Z #[
#1L + o #3P + ^,>@[[ #,>l@T,> , 6?/ , ~3Z + b,>
[ #,>l@T,> , 6?/ 6Lp + f,>r,
Q
X ". *6P + n@
w J n J r
XL r, "8 XNX QXX p QPX Zp QHX O@ "/ + ,> !, f/ ,~ ,> !, f/ ,~ @ ` > >' " . H #H $ * %
J K M N B
X X @ ( P @ @ @ @ @
@
@ ` @ h
h 8 X . (
` h 0 (
X p ( @ @
G?-m SPACE FILE k:N@ k:N@
M&dP e |R CO xt I& aJ~I1 I'Xz I' y M&d\t E2|:y EV4i9 m:7 a Iv::
KK ( OPEN OPEN/CLOSE,PARAMETER "=" PARAMETER KK mfY CONSTANTOR4VARIABLE VARIABLE OR LITERAL ARRAY LITERAL~OR ARRAY,NAME VARIABLE LINEND DEFINED k:N@ -0 , |6X + R@ + * J t,>Io, Ak/ $ 4Z X7N O+ W,>$ ,>$
(
.
/, + v + -0
4 44!(X ( H t,>Io, Ak/ $ 6V + ! , L t,>Io, Ak/ $ 6V + !(XP + !.8_p/4 + } , L t,>Io, Ak/ $ 5Z! 0 P t,>Io, Ak/ $ 5Z!7 + !+ ( H t,>Io, Ak/ $ 5Z!@ ,~
$ L t,>Ip, Ak/ $ 5Z!O ,~ 0 XP @@ Q@@ ,>l@T+ !: 0 6N Q@ * 6H O@
G aP + !+, O1Z + !$4:!d6L S+ !/, d1Z + !$5:!/,>$+ !L, !5:!1,>$+ !L1Z + !$ * J t,>Io, Ak/ $ 5Z!7, ~,>$[ ,>l@T+ !:, ~3Z$ + !<,>@V[ ,>l@T,>$, 6?/ $ + !d6N O+ !>S*Lu J O O z `z + !C,> m,>$, 6/ $ + !d6J Q+ !E,>$+ !L@@ N , P L O
N+ O H Q@ 5Z!N[
4J!LZ` RZ` 6?/ $ + !d,>Io, Ak/ $ , Kj
i L H
k J P
{ L + !X } Z
z J :
}
L wl @ N | 0 P y, L"1Z @, !e@ / $ + ,>Io, Ak/ $
J i
L y
J {6L H {S* H J |,$ l$.$ n$0$!p$($!h$ w
J y, L"@ ,~ -0 . $ 6H #+ !} , L t,>Io, Ak/ $ 5Z" + ![
#1L
+ " w+ "8@@ #, L t,>Io, Ak/ $ 7V 6 @ C (Z . /: ,>Io, Ak/ $ 6V + "
+ ",> ,>$,>$, 6?/ $ .
2Np + " : p 0X
+ "
+ " :
+ " ,> ,>$,>$, 6?/ $ ( 2Hp + "(: p 0X
+ "!( ++ "%,>$,> ,>$, 6C/ $ + " ,> ,>$,>$, 6?/ $ , 2Lp + "2: p 0X
+ ",2 + "0,>$,> ,>$, 6C/ $ + "+,> ,>$,>$, 6?/ $ 0
2Pp + "7: p ,> ,>$,>$, 6?/ $ 7/p O / $ + -0 Bw H + "I
q0J + "H . N qd l ` ,>h , -6+ "L, Oe+
q0J + "K . N q,>` , . / $ [
B,> ,> B, / $ + ,>$", "9/ $ ,~ ,>$#, "9/ $ ,~ ,>$#, "9/ $ ,~ ,>$$, "9/ $ ,~ ,>$$, "9/ $ ,~ -0 BO@ & ( H sd l ,>` , -6/ $ ,>$%,> B, / $ + -0 BO@ &@@ sd l ,>` , -6/ $ ,>$%,> B, / $ + -0 7H p+ "k,>$, 6?/ $ ,$%5L"n,>$, 6?/ $ + l B0$%0P + # * QJ r, V B
8
LX .$& NX .$& PX .( HX
% J tS, L r, a ZX . QNX @@X .$' PX `
JX @@X , $4:#O@ & * J s,>` , -6/ $ ,>$%,> , / $ + -0 . $ , ~ Z #[ #0H + #Z
# Lp 0 N %,>$',> , ,'/ $ p S0 GPh , ~ Z #[
#1L + #, ~[ 0P + #,>$, 6?/ $ / $ + -0
Jp ,>$%,> , / $ p [
p .
p Lp 2rp + #H H ` ,>$(,> , ,'/ $ 4:#JS0 @ GPX ` 0P + #D ` P +@$#'+ #A+ #)+ #*+ #+ P + #@ P + #@
P Lp .$( 0 0N
@ *$( ( 0J
@ G aP + #; 0 N c
0 J c($).$ H e,
u $) P r d N t
d L u p *$* J r, a+ #? $) N r
0 "J t 0 "H u0$( P r, aA:.$* ZX [
,> ,> , / $ + #E ` HX [ ,> ,> , / $ 9# [
p ,> ,>p , / $ / $ + -0 . $ , ~ Z #[ #0H + #VZ
# Lp 0 N %,>$',> , ,'/ $ p S0 GPh , ~ Z #+ #W
$+ L %l
[
#1L + #[,>@V,>4@T,>$, 6?/ $ / $ + -0 O@ &@@ s B,>` , 0O/ $ ,>$%,> B, / $ + -0
C.
C Jp 2rp + $ H 6LX + #r2R C+ #o,>$+, 1W/ $ + #~,>$,>$,>$ , 6?/ $ + #~ X 6P` + #t,>$++ #|
` Jp [
,> ,> , / $ ,>$,,>p , ,'/ $ 4:$ p S0 GPh ,>h , 1W/ $ 8 O@ & 0 P s[P QH CZ
P XJ C,>X , 0O/ $ 4:$[ CQNP Z CXPP [P QTX ZX 5V$9#i C[ ,> ,> , / $ / $ + @ ` F FH $- ;$. 4 0$/ P 6 90 w" w4 w6 w >' >S >\ >) >: E & r
8 0 . ( h
exu }[' NOLIST ' ' NOLIST , OR / IDENTIFIER-0
w ( XVh S, GLX
X al + $=,>(, 6?/ ( w7Nh + $z[X * 1H @
,( . 1L @ A
aJ + $r h [` 5P$d,>(,> , ,k/ (
` 0 Np ,>(,> , / ([
w,> ,>w, / ( p 0( ( 1P @ ,( . 1L @ G aH + $T,>(+ $^ p
p [X [` ` /( Ph
h . 2l(@ h * 3((@
G aN + $Z,>(, 6?/ (+ $~X aP + $bp , $lh p @@h + $~,( hLp d @@ p "Z8 @@8 + $~ h P Pp ,>(,> , / (,>(,> , ,k/ ( p S( GHh p Hh + $~,>(,> , ,k/ (4:$~ p @@h p / (+ -0
Jp [
p .
Jp 2tp + %& P Np ,>8 , $4/ ( Zp 4:% ( H r p X t, p Zh
` al + %S* GJX QZX
m JX Vp p h [ . Np 2rp 9% p Zh Pp ,>H , $4/ (66 + %O + %,ZX
` al + %# p 6*h + % ,>(, 6?/ (9%S. GNh [h XNX p QV@ QVh 9% p
p XV( XVh 9%9%
B ( Np [p ,> ,> , / (,>(,> B, / (/ ( + -0
. ( BZ Z
[
.
Jp 2tp + %D P 6N` + %8 ` ,>( ,> , ,'/ (4:%JS, GLX + %> ` 1H 7` ` ,>( ,> , ,'/ (4:%JS. GNX X ah + %@ : + %A : z( [
,> ,> , / (9%1 B[
h ,> Zh ,> , / (,>(Z B,> , / (/ (+ -0
` Jp 4J%XZ( < 72 + %W p . Z@ 4( ZPh( =2%TO + %Y@ / (+ -0 Z b4X%^*( 0J + , %K+
% , 3J( @
. 3J(!@ A
aL + J tS0 P r, a 6(!ZXz("+ -0
Jp [
p .
Jp 2tp + & P Np 8 ,>(",> , ,'/ (4:& S( GH` p h [p ,> ,> , / ( [
.
Lp 2rp + %}
H Jp ,>(#,> , ,'/ (4z%|Z`H 9%w (# P r, Zp Z XHh [
8
QLh QXh XZ` 9%l
B ( Np [p ,> ,> , / (,>(,> B, / (/ (+ -0 ($ ( H t 6 ,>Ip, Ak/ (4Z&,>($, N/ (4:&,> , + & (% ( Z t=6&
,>(, 6?/ (+ ,>(%, / (,~ -0
X ,> Z
P ,> ,>(, 6?/ (&Z
P 2J %+ &#,> mZP ,> ,>(, 6?/ (&Z ,> , PT/ (aZ + &*Z0H Q0 ,> ,>(, 6?/ (+ &N,>(&,> , ,k/ (4:&N ( QH r,
p JX
p LX QV pXT p R pZ b Np (' P n P r ('XH r, 6Jp + &8[ b+ &9 QZX : oXRX XTX [P ZP 8 XPP ( QH r, QZP QVh XRh ` ` QTX QRX 7J` + &G ` P XNX [ ,> ,> , / (+ &H "XNX [ ,> ,> , / (,> o, ?/ (Z ,> , W/ (/ (+ -0 . ( B Hp
q Jp ,>Iq, Ak/ (0Z + &V p N q+ &n q 8 ap + &[ p H q,>(, 6?/ (+ & p H B
X Jp [
,> ,> , / (Z b Np @@ rO@ " n Pp @@ %@@ n q8((4X&j,> , N/ (5:&j p N q p P n+ &n qZ
h , 0 5:&o p P n p H qO + & p P qZ b6Hp + &s[ bXZ b+ &tXH b,( 0L + &w,>(, 6?/ ( p P n (( H n H r
('XJ r,
p XLX XXX .()0N XV0 Z`` @ / (+ -0
,> ,> , / (+ '
() L n L r ('XN r, Z XPX Z QHX Z
XJX B
` XLX .(*0N XVP ((*0H + ',>(, 6C/ ([
,> ,> , / (@ + -0
('XJ r,
B Lp &XN` 0 QV` ,> , G/ ([` 0 QP r, ( h(* * pBJP
&XJP S. GNP XVP QT` .(+0N XXX p [h .0 QP r, p h [h 8 HP .4 [h 42'B
.
( Np
8 Lp Z8 Pp @ H8 L@
.
P( < Np 7(p + 'B.
( Pp p @ 2Nh + 'A,>h ,>(, 6?/ (>p + ':=2'1/4 XT` [ ,> ,> , / ([
B,> ,> B, / ( / (+ -0 6?/ (+ (,>(, 6C/ (7L %+ '[ qZ0h ,> ,>(, 6?/ (,>(,> , ,'/ (4:(
J &,>(-, N/ (5:'s@@ & p . n(-S0 BPX Z B4P(
B ZP 4H(
,(.1L S+ (
@ [ B Np 2rp + (
. *(,4J(
P Pp ZP 4T'r6X ,HP ,PX 9'k, '@@ &@ + (N/ (4:(
, B,X / [ . @Pp 2rp + ( H Z`H XXH ((/0H + (S: GZH 9',(/0L 9'S0 GPH 9',>p ,> , [/ (64 + ( O + (
h h p < 0 (
X <X X ` [Mc@
exu<` ` @ 0 0 0 P P 0 X
P
P "
X 00P &` RECORD FILE -0 (B+ (D+ (J+ (X+ (g+ (t+ (v7J #+ (;@@ #+ (=,>Iq, Ak/ )D Z #3V #+ (~,>\)d #,>l)d,>)@, 6?/ )D+ (~,> , (1/ )D5:(~+ (v *)A.
Jp 2rp + (~,> , (1/ )D4:(v9(F6J #+ (MO@ #,>Iq, Ak/ )D Z # . #(N@ ()A. Hp 2rp + (U
A
L*4J(U + (V9(QO 5:(f,> , (/ )D+ (~6J #+ (\O@ #,>Iq, Ak/ )D Z # . #(N@ ()A. Hp 2rp + (d
A
L*4J(c + (d9(`O 5:(f@ + (~,> + (B,> , (1/ )D4:(v6L #+ (lO@ #,>Iq, Ak/ )D Z # #0P + (o@@ #+ (g * 0P @
, 0P @
G
aJ + (g+ (~,> , (1/ )D5:(wO + (~6L #+ (zO@ #,>Iq, Ak/ )D Z # 0 #(P d*A 5Z(t/ )D+ -0 . )E@@p w
$* Jp
p `L + )(L Lp :p + ) p ,>l)d #,>l)d,>)A, 6?/ )D:p p (Z Zp 4Z) p `H + )(H Hp :p + ) p ,>l)d,>)B, 6?/ )E> p+ ) O / )E+ -0 . )D ( QH r, Zp
p Q*A` J
p ., L / )D5:) @ + )5Z
)F J n J r
)FXL r, 6Np + )'[ bXZ b+ )'XN b[` 5H)*,>)B, 6?/ )D
p QL` p XN` 6P e+ ).XX eQX e+ )/QX@ XX e
p &* /, "Lp 3l)G+ )5,>p Z ( QH r, 3Z 4*K ' 0 { ILLEGAL CHARACTER "$" LITSTRING "(" ")" END OF STATEMENT "+" "," "-" "." "/" CONSTANT "A" "D" "E" "F" "G" "I" "L" "O" "P" "R" "T" "X"
)H)J)K)M)N)O)Q)R)S)T)U)V)X)Y)Z)[)\)])^)_)`)a)b)c $
0 p 0 @ P @ P
` 0 ` 0 @ 0 0 @ ` 0 0 p @
p 0 p
0 P ` 0 0 p @
0
@ p
`
` p ` P
0
0
0 @ P
p
0
@ ` $ }' }' }' }' }' }' ` ` }' ` \ p }' ` \ ` @ ` \ @ \ ` h p x ( 0 8 FORMSTA q*, 0J + *Q,> &, !x/ , 4:*R: " Z@B@ ,~ -0 qZ
1J"h+ *[ "Z8B ` P %*, 0J + *[,> &, !x/ , Z &4:*[@ + (,.( S
,,., (L .
.,.. (N .
0,. ., : >,~ -0
,>In, Ak/ , : " Z # Z B[
#1J + *q0J + *n,>, &Z0h Q0 ,> ,>,+ *o,>@T,>,@T,>,, 6?/ , + Z #Z` S. N r, XZ` XVP ` PP , *\ Z` S( GHP ( h, *, j, @ + , H t,>Ip, Ak/ , 5Z*O ,~ @ ,~ ( H r@ ,~ @@ r@ ,~ -0 . ,! ( H t,>Io, Ak/ , Zp O@p * $2Jp + + : p 8 ,+ + , )2Lp + +: p 8
,+ + . "2Np + +: p 8
q,+ +x0 !2Pp + +: p 8 ,+ +( &2Hp + +: p 8 ,+ +;@p + + V t,>Ip, Ak/ , 5Z+ ,>,, 6?/ , + +! X
+0J+ +/,>,, 6C/ , + +/\` + p sXP8++ +> ( H t,>Io, Ak/ , Zp 4Z+?", .lp 3,p + +? p sXH@+[
@+0J+ +<,>,, 6C/ , + +<\`@+:p 3np + +7@ + +@,>,, 6?/ , / ,!+ , H t,>Ip, Ak/ , 5Z+F,>, , 6?/ , ,~ @ ,~ -0 . ,![ #0H + +]
"<
Lp . N t,>Io, Ak/ , 4Z+[: " * J B Hp @@ #, X4:+i[ #1N + +P[
#1J + +W,>@[,>,@T,>,, 6?/ , ,>p , C/ , ,>p , C/ , + +\: "@@ B,>p , C/ , , L t,>Io, Ak/ , 5Z+j 0 P t,>Io, Ak/ , 5Z+j
qZ
( 0L + +i, ~,>, [ ,>l@T,>,, 6?/ , + +jO / ,!+ -0 . , " B,>,!,> , ,y/ ,!4:,
` al + +r : + +r : z," " Np O@ #, ~ Z #l [ # ( 1P @ * 1P @
A , 1P
@
A aH + , : " * J8B, X5:, + ,: " * J8B 0 P r, ~:
" Z0B[ 1H + ,,>@V,>$@T,>,, 6?/ , + ,, ~ Z #[ #0N + , "1p {+ +t,>p , C/ , " Zp + +tO@ #,>p , C/ , @ / , + @ `
>
>
>
>,# . : >N, >', >S, >:, >\, >) 0 8 4H ,% ',&$
P ` P
` DIMENSIONED TO " OR # -0 ,> aH + ,+,>w,>4v, O/ 4v w
w~[
,52[h A
7X + ,F ( (H( A( O . 0H @ ,4w 0 0L @ G * 1X @
G aN + ,F w~ , 1H @
G
* 1X @
. 1X @ A
( 1X @ A
G
aL + ,F (p,BO /2 " ,>L59Z.h Q. ,> + ,h@ w~+@$,H+ ,e+ ,O+ ,O+ ,O+ ,R+ ,O+ ,b@ + ,U+ ,Z+ ,R+ ,Z+ ,_+ ,b+ ,O
w.4w1N + ,d 4\+ ,e
w.4w0N + ,d 4\+ ,e
w.4x,4xH aN + ,d,>( ,>4], 6?/ 4v+ ,j
w.4w , 0N @
04xD
aL + ,d+ ,d
w ( `n + ,d @T+ ,e
w.4w1N 74]@ 4Z,j,> wZ,8 Q, ,> ,>4^, 6?/ 4y+ ,j@ ,^ + -0 ,>w, PT/ 4yaZ + ,q q*4z5J,q,>4^, 6?/ 4y wS( GHh aH + ,v,> ,>4v, O/ 4v,>w~,>w, ,/ 4v+ -0 aH + ,},>w,>4z, O/ 4v,>w~,>w, ,/ 4v+ -0 . 4y@ w~+@$-+ -.+ -+ - + -+ -@ + -,
w,4w . 0L @ 04{G aN + - 4_+ -.
w,4w . 1L @ 04{G aN + - 4_+ -.
w,4w1L + - 4`+ -.
w,4w0L + - [( A0 7Z + -
( al + -,>4`+ -,>4aZ.( Q. ,> ,>4a, 6?/ 4y@ + -.04w ( 0P @ ,4xM [( A.} 0 1N @ G ,4{G aH + -' 4b+ -. Jp ( an + -* : + -+ : p z4|+ -
w ( + -54Z-3,>
wZ.0 Q. ,> ,>4b, 6?/ 4y+ -54wS, BLh @ / 4y+ -0 -?,>4c, 6C/ 4y@ + . h ` ,>4v,> , / 4v 8 D [ . Pp 2rp + -q8 H 0H + -k
H X L` ,>4},> , ,'/ 4v4:.04~0P + -OS* GJ` [
P 5J-W.4~ 0 1N @ (4~ * 1H @
A aP + -c : z4~+ -c . n4~[P Pp Z@ 5H-c7,@ + -c P N tS( H r, Zp * j4 0 p4S, BLh p
p XLh S. GNP .4w0N + -oZ Z
p 2H + -oZ.P Q. ,> ,>4c, 6?/ 4v+ -ol ,4w0L + -n,>4d, 6C/ 4y@@`
H 1l 8 9-F[ ,> ,> , / 4v@@ C/4d 2 D .( D/( Hp 2rp + .
H Jp 4J. 8 Np p @ Hp 4H. p
2Lh + .,>h ,>4e, 6?/ 4v+ .:
p 4 .. D8 2L + -{9-w.X D.8 QX r, 4 . X . < 6 Q6 C*6` 5 P n P r 5 XH r, . 7* &+ . p S. GNh j4 s0N + .\`X p QHh Z p S( GHh XZX XTX [w,> ,>w, / 4v@ / 4|+ -0
'8
j ' 2 &4 )V}=2..
w[ .45JN tS0 P r, a 6Hw+ .5 , l5 + $Z(h Q( ,> ,>4f, 6?/ 4v,~ -0 w,>h ,>4f, 6?/ 4v+ -0 ,> ( QH r, 7J sQR sZ sXNH XR s wXPH oQZH ,^ + -0
+ .K : XZ D+ .L , XL DZ` D@@ D@@ C w[
w.
w Lp 2rp + /b@@p @@p Z` H 7NP + .V P 1H O@p .4 + .V8 P (50H + /+
P [email protected]+ /]+ .[+ / "QN P 0P + .l7Jp + .c 5 N r@@ t ` "P u ( H r, a 6.` + .f $,>h ,>4g, 6?/ 4v6H` + .k $Z,h Q, ,> ,>4g, 6?/ 4vXX + .{7Jp + .o $,>h ,>4g, 6?/ 4v.5 Np ,>4z,> , ,y/ 4v4:0;(5 * 1H @
,5D
aJ + .y,> , .>/ 4y p n5S. GN XX O@ C6J C+ / 5 N r@@ tZ D P u ( H r, aXZ Z
D"
.j DZ
D$
` Lp 3,5+ / $,>h ,>4h, 6?/ 4v p XP D+ /]S. GN R` + /] P 0N + /7Hp + / $,>h ,>4g, 6?/ 4v,5 Lp ,>4z,> , ,y/ 4v4:0;05 ( 1P @ *5D aH + /,> , .>/ 4y
p l5S, GL O@ C P Tp (55H/#7Lp + /# 5 P r@@ t ` "H u * J r, a6 QX 7LP + /( P 0P + /'O@p + /'@@p .4 + /)@@p .4 P 051P + /,, .6+ 0;
P 0J + /=7Np + /1 $,>h ,>4g, 6?/ 4v(5 Hp ,>4z,> , ,y/ 4v`Z + 0;*5 , 1J @
.5D
aL + /<,> , .>/ 4y p p5S0 GP O@ C.55N/D7Hp + /D
5 L r@@ t X "N u 0 P r, a6 XV 6H C+ /Y
X 2,` + /J $Z0h Q0 ,> ,>4g, 6?/ 4v 5 P r@@ tZ D H u * J r, aXZ Z
D$
` "
.l D X /` Z D8 $ Pp 305+ /W $,>h ,>4h, 6?/ 4v
p XJ D+ /ZS, GL R` [
p ,> ,>p , / 4v H [ ,> ,> , / 4v[ D8 QP D.$ 9.O7H C+ 0 ,4w . 1L @ 0 1L @ A aN + /j,>4i, 6?/ 4y+ 0; $ h `h + /n,> , .>/ 4y,>5, 3/ 4yXZ D,>5, 3/ 4yQZ D $
h aJ + /x
5 L r@@ t 0 P u . N r, a+ /y "XZ F[
D<
7r + 0 /$ Z 5P0 [ * 3H "@
,5M
0 1R @ G
aJ + 0,>5, 3/ 4yXZ + 0 Z c Np 7Hp + 0 Hp 0510 + 0 p 6,8 + 0 p Z Z
F2P + 0
p Z0 Z * 2H @
[0 ( 2N "@ A
aJ + 0Z0 Pp XP :@ + 0 p Z
@ Lp + 0,>5, 3/ 4y Zp p XN ( H8 =r/{/$ S* BJ S* GJ + 0$
5 L r@@ t D N u 0 P r, aQZ D[
w,> ,>w, / 4v[ D( .. QD r< 5XP r, . Z` EZ cXH EXT cQ4 D Tp *4 p $*40J + 0:6N C+ 0; h H tS* J r, Zp S, BLh , l4 . n4XZP + 0;R`P / 5+ -0 w h ah + 0BZ*h Q* ,> ,>4i, 6?/ 4v+
h aj + 0H,>4jZ,h Q, ,> ,>4a, 6?/ 4y+ wS* GJh [
C5J0LXZ CQZ C+ 0N C wXNh XN C@ + -0
P Jp ( X $
s0L + 0X ( P &:p + 0Y05 P & p 6Ph + 11
s+@,0\+ 1P+ 0_@ @ @ + 0c+ 1-Z,` Q, ,> ,>4j,>4k, 6?/ 4y+ 1V[
` 4L1' &10
+ 0i*50*
+ 1' : Zp + 0k*51*
+ 1' : + 0h[` 7*X + 1Z
X $
p &, XLX [X 5 P r@@ t p $ &( H u . N r, aQZX ,5 <
72 + 1' ( . Z@ Pp
5 J r@@ t p $ &( H u . N r, a
p XZ0 =20w+ 1'ZX
5 L r@@ t p $ &. N u ( H r, aXZX *5 1* + 1' X ap + 1'[X 2N "+ 1'ZX >
6L + 1S. GN Z c Np 7Hp + 1! Hp 3H + 1 p .5
1. + 1 p 6, + 1 p Z@ Z
X 2N + 1
p Z0 ZX 2P + 1 p [
2L "+ 1 p Z
8 Jp XJX :( + 1'
p Z0 Pp + 16N + 1$S: BZ + 1&,>5, 3/ 4y XDX ( H ,>5
,> , ,'/ 4v4:1VS( GH` &h5>p + 1P,>5 ,> , ,'/ 4v4:1V,> , 0</ 4y+ 1P h
s+@,13+ 1C+ 16@ @ @ + 19+ 1>,>4v,> , ,'/ 4v+ 1B,>4z,> , ,'/ 4v4:1VS. GN` &n5>p + 1C,>4v,> , ,'/ 4v4:1V,> , 0</ 4y4:1V,50L + 1F : z5+ 1G 0 p5 C Pp ,>X , .F/ 4y7$ + 1V $QDh *5 ,5
G
aJ + 1O, *QZ
p J C[
p ,> ,>p , / 4v90R[
w,> ,>w, / 4v@ / 5 + -0 [ `4X1\
w2J` + 1[ + Z` + 1X w N t 5
.P r, v + -0 k6N , ,y/ 4v5:1jO@p + 1} * QJp + 1}6N
.
5Jp 2rp + 1yH XVH Z`H 91v,>p ,> , [/ 4v Zp 4z1}2. QNp [w,> ,>w, / 4v p / 4v+ -0
5 J r H
X Lp s0N + 2@@ ( 0N @ A aP + 2Z*0 Q* ,> ,>4k, 6?/ 4v p S* GJh
h aj + 2 Z,h Q, ,> ,>4l, 6?/ 4v+ 3E * J
X 4L2# 0 QP r : + 2$@ Z n,
nl56Np + 2)XVp QVp + 2*XV8 XVp ( h5,>H , 1`/ 4yQZX 5:2/Z`X O + 3G,50L + 3E 0 BPX 0 p5[X Hp [
Jp
`L + 2<7.( + 2; 5 P r@@ tZ( H u , L r, a+ 2MZ( + 2M7.( + 2B 5 P r@@ tZ
( &, L u ( H r, a+ 2M 5 P r, p Zh QH`
5 L r@@ t * J u . N r, aXZ` S0 GP` 00XP` XV` XZX + 3E@@p H X 7JX + 2}[ 0N + 2S,>4l+ 2h[ .
` Jp
5 L r L n 5XN r, 0 p5, *QZ` Zp ( XHh QXh p 7Jh + 2`,>4m+ 2h p h Np Np 050P + 2e*51J + 2f,>4m+ 2h p *41J + 2j,>4n, 6?/ 4y+ 3G6N s+ 2m: "
p J B+ 2o,>4z,>p , ,k/ 4v4:3G,>p , PT/ 4yaZ + 2u p Z(h Q( ,> ,>4n+ 35 ( QH r, Zp
p Jh
p Lh QZ p p XN p p P p[ /( Q ,> , 2/ 4y Zp 5:3 Zp 7PX + 3,>p , PD/ 4y p + 3G7PX + 3@,>p , PD/ 4y p [h p XXh XXp
5 J r J n
5XL r, [p XN` QXp 0 p5 p XH` [
Jp Z
8
XL . QN r Hp , p QZ@ QXh
p XJh [
p Lp p XN0 X [ ,> ,> , / 4v P 6P s+ 3 ,50L + 32,50L + 32 p QVh P 6H s+ 3$*50J + 3%*51J + 3( p Z.h Q. ,> + 34 p QVh 6NP + 3+ "XPh + 38 P ` ,>4v,> , / 4v6P s+ 31,50L + 32,51L + 36 p Z(h Q( ,> ,>4o, 6?/ 4v+ 3G p Z XHh 6P s+ 3>7l "+ 3> p Zh ,> ,> ,>4o,
/ 4y> "[
,> ,> , / 4v6Jp + 3C p Zp + 3E[p XN( Zp XZp .2 + 2
p j5 5p / 53M,>@V,>@U,> m,>4p, 6/ 5
,~ , L X N u, @
>X [ ,> ,> , / 4v
H 2J5+ 3Z6N E+ 3W4V E+ 3d,>4pZ(H Q( ,> ,>4a+ 3b H 2N5+ 3`6H E+ 3]3V E+ 3d,>4qZ,H Q, ,> + 3Y,>4qZ(H Q( ,> ,>4b, 6?/ 4y,~ @ ,~ -0
G aP + 46L D+ 4 (50H + 3~R D s0P + 3{,>5
s1J 74r 4r Zp Z
H Lp Z0 Np p Zh [
h . 3hp + 4 p h ,5,> ,> p , 8 / 4v:
p + 4w h + 4,>4sZ(H Q( ,> ,>4b, 6?/ 4y+ 4!,>4sZ.H Q. ,> + 4 P ` , 3H4:4!,55L4![ ,> ,> , / 4v+ 4!7J D+ 4 ,>4t, 6?/ 4y+ 4!O@ D@ / 4y+ -0
P Lp .51N + 40,>4tZ(0 Q( ,> ,>4b+ 49 ( H
0L + 4:050P + 4:Z*h Q* ,> ,>4u,>4k, 6?/ 4y+ 4Z7L` + 4B ` P D @ (54H4C,> ,>5,>4v, r/ 4y
D Z0 + 4C 0 P , / 4v@@ E@@ E@@ D w7Hh + 4V h P [
.
Lp 2rp + 4Sd ,>H , 3e/ 4y5:4P@@ ,> ,> , / 4v@@
w,> ,>w, / 4v@ / 4v+ @ ` 5,5. 50 d 5B5D5F5(5# d5G . 8 c D f a Y \ T @ p5L5N | * m + g A t C 5O5Q5R,k,y5T5W l >'5Y > 8
( (( ,( 0 F( D(
@ 0 P
P h
h 0
` ( ` ( (`
` 4` X (X
X 4X B $@ 8 $@X $@@ < H 00 X ` 8
8 @
X K: KK F
H
P P 0
h X IN EXTERNAL STATEMENT AS DUMMY PARAMETER IN TYPE STATEMENT IN DATA STATEMENT IN COMMON IN EQUIVALENCE AS AN ENTRY POINT NAME AS STATEMENT FUNCTION AS COMMON BLOCK AS NAMELIST AS AN ARRAY OR FUNCTION AS AN ARRAY AS A FUNCTION PB PB Pw Pv Pw P @ Pt pC pv @ pw P 55 555 5!5"5# 5&5(5* A VARIABLE OR ARRAY A SCALAR VARIABLE AN ARRAY A SUBPROGRAM NAME i4r[r_rghr DUMMY VARIABLE PARAMETER PARAMETER END OR ERR ARRAY OR NAMELIST NAME ARRAY NAME k:N@ -0 . 8 w&
Jp .Hw4H5^,> , 5Y/ 8 :
/ 8 + -0 w@ 8 )6 8` X
8 5V5c+ -0 w 8 )6 X
5V5g+ aH + 5m7j }, 5n> }@ ,~ 8 H ~ * j8
8 L
,> %, 5a/ 8
N
6P s+ 5v,>8
, 7g/ 8 + 5y@@ s[
`8
QJ `R` ` * J
[
`,> , 5Y/ 8 Z `4N6 ( H
Z
`,> , 5Y/ 8 @ H
:
` , L },>8, 7l/ 8 ,>8, 7l/ 8 @ ,~ -0 . 8 Zw0( + 6
:
o0( O@ p ap + 6
pl
} . 2Lw~@ ( 0P @ A aN + 6
r Jp , L m 0 QP r, p H rZ '5N6QV 'XV '+ 6 [
'XV0 QV '+ 6 8
wj8
S, BLX
w~ LX w~ PX w} HX . 3L }@
0 1J @ G aN + 69,>8 , 6G/ 8 aH + 61
1L + 6.,>8 , 7l/ 8 > }7p }, 5n> },> , 7l/ 8 ,8
aL + 69 . 0P @ D laN + 68,>8, MW/ 8
&X O@ lO / 8 + -0 ,>w},>w~,>w~,>w, 6/ 8+ -0 ,>w~,>w~,> o,>w, 6/ 8+ -0 ,>w~,>w~,> o,>w, 6/ 8+ -0
8
{L p 08 + 6N+8+Z 6R+ 6O+ 6y+ 6V+ 6^+ 6h+ 6o+ 6u+ 6y:
p Z
w.
( @ 2 &4 .6 )V|=26Y 8 2 N
p Z
w.
( D. 6V + 6e04 @+ 6dT
p Z
w.
( Z48 Q4A@ 2 .0 X
p Z
w.
Z4( Q4A@2 .. X
7X + 6OX . 8 w~
$8;Z,/Q, ` Lp Z.p Q.A` Np 8 $, Lp
2xp
+ 7Dp Fp
O@p 2Hp
+ 7 : p 2Jp
+ 7: p 0F + 7 0 Pp ( 2Hp
+ 7: p
w ,8%Z"8 Q"A`
4F7Fp + 7 ( 2Hp
+ 7$: p
w<
$* Z"(BQ"A@ $ <$7
4F7 .( Hp + 7 ( Hp $ <$7$ 4F7 .0 Pp + 7 0 2Pp
+ 71: p $( Z" DQ"@` * -Jp $ <$7,
., Lp + 7* 0 Pp $ <$70
.* Jp + 7. . .Np , 2Lp
+ 7<: p $0 Z"@@Q"A@ $ <$7;
5F79+ 7;
., Lp + 76 , Lp 0 2Pp
+ 7B: p
$8 Z"( Q"A` 4F7BFp + 7@;@p
& Z
(+ ( / 8+ -0 : d @ aZ + 7P
D ,>8,> , 7Q/ 8+ @ + -0 waH @ + 7T,>8+ 7YaH + 7V,>8+ 7YaH + 7X,>8+ 7YaH + 7[,>8,>w~, 6}/ 8@ + -0 ZwZ
w~/ $( ,8.8/
&, . < 78 + 7f G< P G5p7e, 7Jw~N F=87b@ + -0 G< H G5h7j, 7J
wL F@ + -0 (81H + 7o ,A`QLw
w7X + 7t G< P G5p7s, 7JX F+ 7o@ + ,> , 7g/ 8 ,~ -0 : b @ aZ + 7}
B ,>8,> , 7Q/ 8+ @ + B< H B5h8, 7wF A,~ -0 @ + -0 . 8 @ / 8 + @ ` : ~H ~ ~8
<w~<w0w
LINE: BINARY OUTPUT ASCII OUTPUT ASCII INPUT 888 OBJECT LISTING SOURCE 8!8#8$ TNDWL 1 DEVICE 4 WRITE LOCKED TNHDE HARDWARE DEVICE ERROR ON 1 DEVICE 4 TNCPE CHECKSUM OR PARITY ERROR IN 1 FILE 2 TNQEX BLOCK TOO LARGE OR QUOTA EXCEEDED FOR 1 FILE 2 8(8+8085 @ ` ZMT SIZE MODIFIER TREATED AS FNA A FUNCTION WITHOUT AN ARGUMENT LIST DIS OPT - PROGRAM IS DISCONNECTED - OPTIMIZATION DISCONTINUED MVC NUMBER OF VARIABLES DOES NOT EQUAL THE NUMBER OF CONSTANTS IN DATA STATEMENT AGA OPT - OBJECT VARIABLE, OF ASSIGNED GOTO WITHOUT OPTIONAL LIST, WAS NEVER ASSIGNED CUO CONSTANT UNDERFLOW OR OVERFLOW NED NO END STATEMENT IN PROGRAM LID IDENTIFIER MORE THAN 6 CHARACTERS WOP OPT - WARNINGS GIVEN IN PHASE 1. OPTIMIZED CODE MAY NOT BE CORRECT VNI OPT - VARIABLE IS NOT INITIALIZED RDI ATTEMPT TO REDECLARE IMPLICIT TYPE CTR COMPLEX TERMS USED IN A RELATIONAL OTHER THAN EQ OR NE CAI COMPLEX EXPRESSION USED IN ARITHMETIC IF IFL OPT - INFINITE LOOP. OPTIMIZATION DISCONTINUED ICD INACCESSIBLE CODE. STATEMENT DELETED SOD STATEMENT OUT OF ORDER ICC ILLEGAL CHARACTER, CONTINUATION FIELD OF INITIAL LINE XCR EXTRANEOUS CARRIAGE RETURN ICS ILLEGAL CHARACTER IN LINE SEQ# FMR MULTIPLE RETURNS DEFINED IN A FUNCTION VND FUNCTION RETURN VALUE IS NEVER DEFINED NOD GLOBAL OPTIMIZATION NOT SUPPORTED WITH /DEBUG - /OPT IGNORED PPS PROGRAM STATEMENT PARAMETERS IGNORED DXB DATA STATEMENT EXCEEDS BOUNDS OF ARRAY VAI ALREADY INITIALIZED IDN OPT - ILLEGAL DO NESTING - OPTIMIZATION DISCONTINUED DIM POSSIBLE DO INDEX MODIFICATION INSIDE LOOP PAV PARAMETER USED AS ASSOCIATE VARIABLE FWE FOUND WHEN EXPECTING A FEE FOUND WHEN EXPECTING EITHER A FEE OR A USI USED INCORRECTLY ICL ILLEGAL CHARACTER IN LABEL FIELD IAC ILLEGAL ASCII CHARACTER IN SOURCE UMP UNMATCHED PARENTHESES NRC STATEMENT NOT RECOGNIZED MSP STATEMENT NAME MISSPELLED ISN IS NOT IDT ILLEGAL OR MISSPELLED DATA TYPE IIP ILLEGAL IMPLICIT SPECIFICATION PARAMETER LLS LABEL TOO LARGE OR TOO SMALL LAD LABEL ALREADY DEFINED AT LINE: DIA DO INDEX VARIABLE IS ALREADY ACTIVE ILF ILLEGAL STATEMENT AFTER LOGICAL IF ISD ILLEGAL SUBSCRIPT EXPRESSION IN DATA STATEMENT AWN ARRAY REFERENCE HAS WRONG NUMBER OF SUBSCRIPTS IDN DO LOOP AT LINE: IS ILLEGALLY NESTED DTI THE DIMENSIONS OF MUST BE OF THE TYPE INTEGER EXB EQUIVALENCE EXTENDS COMMON BLOCK BACKWARD ABD HAS ALREADY BEEN DEFINED IDV IMPLIED DO INDEX IS NOT A VARIABLE TFL TOO MANY FORMAT LABELS SPECIFIED ECT ATTEMPT TO ENTER INTO COMMON TWICE PIC THE DO PARAMETERS OF MUST BE INTEGER CONSTANTS RFC IS A RECURSIVE FUNCTION CALL MCE MORE THAN 1 COMMON VARIABLE IN EQUIVALENCE GROUP IED INCONSISTENT EQUIVALENCE DECLARATION IZM ILLEGAL SIZE MODIFIER BOV STATEMENT TOO LARGE TO CLASSIFY DVE CANNOT USE DUMMY VARIABLE IN EQUIVALENCE VSE EQUIVALENCE SUBSCRIPTS MUST BE INTEGER CONSTANTS NIR REPEAT COUNT MUST BE AN UNSIGNED INTEGER NIU NON-INTEGER UNIT IN I/O STATEMENT IXM ILLEGAL MIXED MODE ARITHMETIC CER COMPILER ERROR IN ROUTINE DID CANNOT INITIALIZE A DUMMY PARAMETER IN DATA IOD ILLEGAL STATEMENT USED AS OBJECT OF DO NNF NO STATEMENT NUMBER ON FORMAT DSF ARGUMENT IS SAME AS FUNCTION NAME CQL NO CLOSING QUOTE IN LITERAL LGB LOWER BOUND GREATER THAN UPPER BOUND FOR ARRAY EID ENTRY STATEMENT ILLEGAL INSIDE A DO LOOP IAL INCORRECT ARGUMENT TYPE FOR LIBRARY FUNCTION NLF WRONG NUMBER OF ARGUMENTS FOR LIBRARY FUNCTION LTL TOO MANY ITEMS IN LIST - REDUCE NUMBER OF ITEMS LFA LABEL ARGUMENTS ILLEGAL IN FUNCTION OR ARRAY REFERENCE DLN OPTIONAL DATA VALUE LIST NOT SUPPORTED DDA IS DUPLICATE DUMMY ARGUMENT EDN EXPRESSION TOO DEEPLY NESTED TO COMPILE ENF LABEL MUST REFER TO AN EXECUTABLE STATEMENT, NOT A FORMAT VNA SUBSCRIPTED VARIABLE IN EQUIVALENCE BUT NOT AN ARRAY OPW OPEN PARAMETER IS OF WRONG TYPE NEX NO EXPONENT AFTER D OR E IN CONSTANT LNI LIST DIRECTED IO WITH NO IOLIST LED ILLEGAL LIST DIRECTED NIO NAMELIST DIRECTED I/O WITH I/O LIST SOR SUBSCRIPT OUT OF RANGE IID NON-INTEGER IMPLIED DO INDEX IBK ILLEGAL STATEMENT IN BLOCKDATA SUBPROGRAM SNL STATEMENTS MAY NOT BE LABELED FNE LABEL MUST REFER TO A FORMAT, NOT AN EXECUTABLE STATEMENT EIM ENTRY STATEMENT ILLEGAL IN MAIN PROGRAM IDS IMPLICIT DO INDICES MAY NOT BE SUBSCRIPTED IIS INCORRECT INCLUDE SWITCH IVP INVALID PPN NFS NO FILE NAME SPECIFIED CFF CANNOT FIND FILE INN INCLUDE STATEMENTS MAY NOT BE NESTED CSF ILLEGAL STATEMENT FUNCTION REFERENCE IN CALL STATEMENT DFD DOUBLE NAME ILLEGAL IUT PROGRAM UNITS MAY NOT BE TERMINATED WITHIN INCLUDED FILES IFD INCLUDED FILES MUST RESIDE ON DISK SAD ARRAY - SIGNED DIMENSIONS MAY APPEAR ONLY AS CONSTANT RANGE LIMITS DFC VARIABLE DIMENSION MUST BE SCALAR, DEFINED AS FORMAL OR IN COMMON RIC COMPLEX CONSTANT CANNOT BE USED TO REPRESENT THE REAL OR IMAGINARY PART OF A COMPLEX CONSTANT DNL IMPLIED DO SPECIFICATION WITHOUT ASSOCIATED LIST OF VARIABLES MWL ATTEMPT TO DEFINE MULTIPLE RETURN WITHOUT FORMAL LABEL ARGUMENTS NUO .NOT. IS A UNARY OPERATOR DPR DUMMY PARAMETER REFERENCED BEFORE DEFINITION VSO VARIABLE DIMENSION ALLOWED IN SUBPROGRAMS ONLY IFE ATL ARRAY TOO LARGE PTL PROGRAM TOO LARGE ,> &<d+ <S,> &<e+ <S
&<f,> ,> , <_
&<l
&
&<m " S~@ )D l
" =b<X
&<nZ Fx ,^ ,^ ,^ 7@x `
&<o+x m&" QDx 6@ , <`_x #` ."
" ,~ SKERR CGERR ?
? Internal compiler error processing statement
? Call to FROM
DDT EXECUTION:
@ ` -0 w&( A 7Vd>e+ < w(N .= Nw 8 ( 2N + <zZd>e+ 7Vd>d+ < 8 . 2Nw+ <Zd>d+ @ + @ ` A P P P X ( (
( ( ( ( ( (
(
( ( ( 0 0 0 0 0 0 0 0 ( (
8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 ( @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ P H H H M S- TB ASSIGNMENT +T' IF D'JSTFN OR ARRAY ASSIGNMENT -ST& DO dOe END STATEMENT FUNCTION *QT&O IF ARGUMENT AN ARRAY @\b PUNCH 5L ' DATA @\ = PRINT 5"a SUBROUTINE \ w OPEN 4"P INTEGER 4"T LOGICAL E%Z IMPLICIT P\ FIND T CALL '0\ REWIND %$# PARAMETER @\ w REREAD "Ta GOTO u,#\ DIMENSION T PAUSE T\ RETURN 4"V DOUBLEPRECISION ) FORMAT l! INCLUDE \ BACK 3T"h ENTRY %,$ EQUIVALENCE $\ t DECODE U<%g NAMELIST @\Z ACCEPT
#K BLOCKDATA \W READ '0\& UNLOAD 5"Z FUNCTION \ y CLOSE '0\ ENDFILE 4"R REAL \&
SKIP \i WRITE E<%- EXTERNAL e,#b COMMON $\ q ENCODE 4"X COMPLEX Tr CONTINUE @TH ASSIGN @\ D TYPE T
STOP # PROGRAM A > > >" ># >%>' >(>* >+ >->. >0 >2 >3 >5 >7 >8>:><>> >?>A>B >D >F >G >I >K>L >N >O>Q >R >T >U>W >X >Z>[ >] >^ >`>a >c -0 . @. } Hp
z Jp
{ Lp r 8 / n Pp r
/
p J }
/
p L z /p N { 0 P j, M'
r
( XL r5L?,@@ r p N } p P z
p J {@ / @.+ -0 . @/ r Hp * QJ r, Zp
p L r p @@8 } P8 z H8
{ J8 6L r+ ?FQN rXN r@ + ?Gn rQN r / @/+ z H m
} J
z L { N n@ ,~ m H z,>@+, I|/ @/
J }
8
L z n N {@@ r@ ,~ -0 . @/ w< &( .( Hp 0h + ?Z : + ?[.( QZ r . XN r, Zp p QPh * XJh S( GHh p / @/+ -0 . @/Zw~@@ w~
w~/
<
QJh w/w~< ,> w~.: ,> , / @/@ / @/+ -0 aH + ?q,> %,>@0, O/ @/
@0 J r
% L t, a [` 4V?y[X ,> Z` ,> ,> m,>@,, 6/ @.+ @ q(@10H + @
` al + @ ,> %,> m,>@,, 6/ @1+ @ S. GN` X n+ @
` al + @,> %,> m,>@-+ ?~S. GN` X nZ` 4N@ q
aj + @ ,>@-, 6?/ @/@ + -0 @@ r * 6h u@
, 1hO@
G
aJ + @,>@., 6?/ @/@@ u aN + @,> u,>@2, O/ @/ u P t @0 H r, a
q6@2 * 0V @
D
aJ + @$ ` an + @",> t,>@-, 6?/ @/+ @)S0 GP` + @) ` an + @(,> t,>@,, 6?/ @/+ @)S0 GP` @@ + @ ` z < o / 9 0 $@ $0 0 ( UNKNOWN IDENTIFIER CONSTANT LIT STRING LABEL STATEMENT END RELATIONAL OP .NOT. .AND. .OR. .EQV. OR .XOR. "**" OR "^" "&" "(" ")" ":" "," "$" "-" "/" "+" "*" "="
@5@6@8@:@<@=@?@A@B@D@E@G@I@J@K@L@M@N@O@P@Q@R@S E 0 OT 8 .NE.EORO.NOT. ND @ .AND. R H .OR. OR P .XOR. QV P Q 0 .EQ. OR .EQV. T 0 E 0 .GT. OR .GE. T 0 E 0 .LT. OR .LE. RUE .TRUE. ALSE .FALSE.
ACTION STATE -0 . HL z * 1H $@
,HMD
mG lA
aJ + A+,>HM, MW/ HL@@ mZ ' Pp Zp 4HA+ p
8 `j + A*:HN,>l8?,> , 6G/ HN
&` p S0 GPh p h + A! } P o@@ l z H k P m
z L j { N k@@ %@@
@ / HL+ -0 . HN z Hp Z*p Q* ,> , I|/ HL , 0F @
. 0F @ G
aL + A= z+ A7[ =1B + AF@ hp `p
z2Jp + A>1B + AF r Pp ,> },>H#, 6;/ HN p Z r / HN+ 0F + AP
z J n J { z , L s aN + AO,>HO, 7g/ HL, 5n : ,~ @ ,~ 0F + AX z[ =1B + AW, A31Z + AW : ,~ : Z
@ ,~ @@ $ L z H$ N z0 z P ,>H$, Ak/ HL,~
{`L + Ab . N } . A N { P z3H + Ag , L + Ad 0 0P + Aj
{
z : ,~ -0
. HL@@ w6H` + Ao[ =+ ApZ =
} L o$ +@Ar+ Aq+ B6+ BN+ C+ B]+ B_+ Bc+ Bl+ By+ C + C+ C+ C+ C + C + C!+ C$+ C++ C,+ C/+ C;+ C@+ CB+ CL+ CS+ Ci+ CU+ Ch+ Cm+ Cr+ Cu+ C|+ C}+ D+ D+ D+ D+ D+ D+ D+ D+ D + D + D + D%+ D4+ D(+ D++ D,+ D2+ D7+ D8+ D9+ D;+ D<+ D@+ DC+ DE+ DG+ DH+ DK+ DR+ DT+ DV+ DY+ Da+ Dj+ Dt+ D{+ D~+ E+ E
+ E+ E+ E + E"+ E-+ E/+ E0+ E1+ E3+ E6+ E9+ E:+ E>+ EA+ EH+ EL+ ES+ EV+ E^+ Ec+ Ee+ Ek+ E{+ F + F
+ H@ 5FB9 z7F + B66J` + E,+ D?0F
j z
yQ,A` L z z 6P` + BA[ =+ AqZ =+ AqZ z3H y+ BD " + Aq, K] 1F @+ BH6N` + E,+ D?, Lr, Ki 0F @+ BM,> ,>H%, L`/ HN 6P` + E,+ D?1B + E0F + BQ> z+ H z
aJ + BV,>H%, J/ HL Z }+ BZ
`L + BX. N },>H%, I|/ HL , AL . $N z z P {+ E". An z+ C 1F $+ Ba F Z*=+ H! H& $ + Aq0B + Be F Z*H+ H!F
@ G aN + BwaH + Bt,> m,>H&, 6/ HN@@
+ Bw,>H',> m,>H', 6/ HO
H( L(: + E $. . /. N F 1B + C, A30Z + C
> @+ Aq> 8+ BM0F + C z[ =1B + C, A31Z + C
` 0J + AqZ = 0 2NHP@ + Aq
aP + C@@
+ C ( H j, M' 0 $ P z z H {
X(:
+ Dz1F @+ E, A z0P $+ D) H(+ H H)@@ $ + Aq> 86P` + H+ H 7N + C# $ !+ Aq $ + Aq. z 0 1N @ ( 0F A@ A aP + Gf
l J o+ Gf F + H!0F + C.> z+ H $ + Aq } N l z @ aH + C6,>H%, J/ HL Z }
z J { z+ C7:
}7J + C9Z = { N n H)+ Aq1F + D 0 ! P z> 6J` + H+ H z0N !+ H H*+ H 0F @+ CD $ + Aq j P z k H z
m J }1H $+ CJ k3N {, M'@@ l k N {+ CR0F @+ CQ z00 #+ E,>H%, I|/ HL, M'+ E z0P $, M', A+ E X8: + Cz2XH*+ CX : Z + CX@@ ( 6P %@ , 7J
@
A aH + C_,> m,>H+, 6/ HN@@ q . N @@
F r z P m,>H+, I|/ HL
} J
z8
L { H n H,+ H0F + Ck & A " + Aq 0 P
$ + Aq,> ,> },>H,, 6/ HO . n z H(+ F% . N
+ Cz `N + C{ 0 P
H- J :
DH-+ H HH.+ H @@ ` + H+ H . $ N z n P z0F @ & A " >
(+ Aq 0 7N %@ * 7H
@
G aP + D6/ HO $ + Aq H0+ H , AQ Zp , AHGp `Z + D5+ D aN + D H1+ H $ + Aq H.+ Aq@@ %@@
,> ,> },>H1, 6/ HO . n z H2+ D? z1N !+ D$+ H H2+ H . N
+ %$0 . /0 P % z0H !+ H H3+ H ,> },>H3, 6;/ HN+ D)0F + D* H4+ H $ + Aq . N z+ D4 H41F + D1,> },>H3, 6;/ HN 0 !+ D1 0 P z+ H , AQ`Z + D5 H4+ Aq ` 0N + Aq+ E,/& + BF H4 + DJ[ = H5+ Aq:
6L` + Aq[ =+ Aq6N N H5+ H 0F + H @@ + EKZ = H6+ Aq $. . /. N + H H61F ,+ H 0 0F $@ * 7h @
A aP + Aq H6+ H ?N + EK+ H ". An z " + Aq X8: H6@@
@ * 7H
A aP + D_,> m,>H7, 6/ HN@@
>
0+ Aq0B + Dd,>H7, 6?/ HL+ HF
*H L + H
aN + H0B + Do,> m,>H7, 6/ HN+ Ds,> ,> },>H,, 6/ HO ( h z@@
+ H0F + Dv z+ Aq7P , ?: * $ J z
z L { X8: H8+ H . N
6P + E H(+ EU . N
7P + E H8 : Z + EU
H( J :
H9+ EU m N z P } H z
nJ {@@ H+ H 3V + H 5VE F : J + H! q0H>0+ E@@ q+ EQ,> m,>H9, 6/ HN7L + E F : + H! H( H@:
H9+ Aq H:+ Aq q1N>0+ ER (> H q H8 * Jj + EU r(N . N r H:+ H r 0 0N $c@ ( 0F @ A aP + E+
H;HL(: =H6A( H "'+ EG+H;+ H2.>+ E9 .> + E97N R $ !+ Aq r(N . N r H<+ H r(N . N r,> , <r/ HL Z q4ZEG H=+ H H:+ H . N
H6+ H 0 7N "+ Aq2XH<+ ER $ $+ Aq $ ++ Aq qZ08 Q0Q` P H> $ "+ Aq6N r, ?&,> ,> },>H,, 6/ HO ( h zS* J
H8 N0: + F& 0z + EaS + F61Z
7HQ+ Eq+ F6 B H>+ H F 0z + EhS + H!0Z + Ej HQ+ H! HR+ H! $ - /.
+@<En+ F6+ Ep+ Er+ Ew+ Ey@ 0F + AqS: + F6 /0
+@DEt+ F6+ Aq HR HS HS@ + Aq0F + Aq HS+ F60F + Aq HS+ F6Z
N r 0 P /( H H?+ H ?. + F (V .6 p V + H 2HHT+ H
qZ0 0 0N @ * 2HHT@
A `P + H ,> ,>H?, 6C/ HN+ H 7n + F$. (Z8 Z t+ F H t @3 H r, a
h aj @ + F,>HUZ
,> , ,y/ HN+ F[Q: + F[ H@+ H @@ tO@ s@@ @@ @4 N r 0
P r
H@ J :
+ G,>HA,> ,>HA, 6?/ HOS. N H8 H@:
H9+ H HB @\ N 5NH $ 1+ Aq 3V + H 0 0V @ ( 0F @ A aP + F7
6:( + F6 @4 N r ( H r@@ t 8 P u, aQ: Z + H * .j . 6L( @ ( 0V @ G aN + F> $ 2+ Aq0 + F* 7P8 + FB:
+ F?Z 8 ,> ,> ,>HA, 6?/ HO
H8 P0: H9S( H + H@@ t@@ s@@ @@ @4 N r HB H@:
+ G 0 7N @ (HCG aP + FU,>HC, 6?/ HL @4 Z r
J u@@ t7L r+ FY, @
Q: + F[ ( H r, aQ: F + H!3XH@+ Fh6P r+ G0F $+ Fh,> , ?U/ HLXZ , QL Z Z08 Q0A` P &( /* "J 3JHU@@ HD+ H @@ 0F "+ Fk (
H r+ G0F "+ Fm *
J r+ G2XH@+ G+ G" AHV5NFz s.h t ) T V ).t . dv : V /6 . dv : V + H 6H s+ H : t+ H .
N r HD+ H O@ s H@ P8: HE+ Aq, b N t P u+ Gc@@ 0F "+ G 0
wP r+HE+ H 0F "+ G , ?H+HF+ H ,>H%, I|/ HL; z, ?M,& ," ?/ HLq@4H r+ G"6N r, ?& /( H HG+ H F
@@0 + GC,>HV, ?U/ HLXZ . QN Z(@ Q(A` H A0.0 P + G;Z Z 2N + G7 * QJ r, , .l 0F + G9 HH+ H F + H 0F + G<F HI+ H 0HI1P + G? * J + G<Z
,> Z ,> Z ,> , ?b/ HO H8+ Aq@@ @@ @@ HJ+ H ,>HJ,> ,>HA, 6?/ HO H8 P8: H9S* J + Aq HK0F + GPO@ + H 1F + H $ =+ Aq HK 1& + GW,>HL,> ,>HA, 6?/ HO & )T . /0 T + Fy7N + G]"h "z 7H + G_ : + G_ : Z r
L t N u @4 P r F , a.HW+ H!,>H7, 6?/ HL F S: + H! t0N + Gk0B + Gp+ Gm0N + Gn0B + Gp F + H2N + Gp , + Di0F A+ H* z1J + H l N o+ H7N t+ G{ N @@ t 3F + Gz0F A+ H, z1L + H+ Gr, ?H+ H 3F + H 5VH 6L r, ?& F : + H!, ?M z>
z+ H@@ @@ @@ $ >+ Aq0F + H $ ;+ Aq F @ + H!F
*:+ H. z 0 1N @ ( 0F A@ A aP + H
l J o F Z*?+ H!F H H8+ H 7N z+ H > z z+ E,6J z+ H 3XH-+ H X@: 6H-> z z+ D?/ HL+ @ ` [: $$
HX
z$$
I 'Ir '6$
I$$
I6$
I6$
I+ $
H^ $
I 9 m6$
I; 6$
H^6$
HX$$
HdIt 'Iu 6$
Hd$
H^ $
Hd6$
Hj $
Hd U $
HX $
Hj$
Hj$$
Hj $
I+6$
Hp $ <$$
H^$
HX $
I *$$
I;$$
Hp$
I; $
I;6$
IL $
IL$$
IL$
IL$
Hp6$
I\ $
Hp '6$
Hv6$
H|Iv $$
Hv$$
I\F $$
I $
Hv$
Hv$
H|$$
H| $
H| 6$
I $
I $
I$
I< 6$
IIy$$
I$
II{ D $@8 "g" 0 0 0 0 0 0 I5R }| 2 B @
@ @. a(aDAFa(a(a( a(a(A@` a( 8PHRc `@P8PbPP8P8P ` 8P @ @
p @ C@r ` @ @ @H @. !
, D Q
/Y
/
/b$
/ 8. @, `@P @F 6&)R5f 6
#F(6 a8. A0, `D @y^8g b8q`8
&q`8`8 a8. !n< chz<@P G!n< g!n<G!n< g!n< g!n< g)|< g!n< A0 `@P @ gQz ax GQz
GQz GQz a8. h `> d>`> h h h
#
h ` > a8> ( ch @P @( ( `( (
( ( `( R B90 BH>C >B0>B8>B1L B9: Cb `X > A`> B92B92 B92 B92B92Aa2B92Aa2B92Aa4B94B94B94B92B9@B80
B9l B9rAa: Ai: B92 (>A(>a(> (> (> (> (>
!(>(, ( (> (> (> (> (> (>(> (>(> (>(> (> (> (> (> (> (>
(> (>(> !(> (> !" `D! @d!`
d ! a8. d!dy'd!d!d!d!d!d!d!d!A (d!d!d!d!d!d!d! d! !" `D! @ E9.!@.#@.*@.E9,) a8. E9.!E).'!! E9.!%9.! E9.! E9.! E9.! E9.! E9.! DA $ E9.! E9.! E9.! E9.!9.
E9.! E9.!@.*@.* E9.! B `> @P> @> f: ax fB
cb f: a8> f: f: f: f: f: f: f: f: f: : : : : f: fR a@0 f9d f: fB
fB
f: 6$
I$
I$$
I+$
I+6$
I$$
I$
I$
I\ $
I STSKIP LEXICAL NULL DOTTED OPERATOR OCTAL DIGIT OCTAL DIGIT -0 w*N3,N4.
0Z + J 0 pN3Z
<
XL + JzN3@ + -0 . N4@ w *A`QJ 6
w0 /. 0 08 @ ( 1x @ G aP + J3XN5+ J,> },>N), 6;/ N5@
$* .
=6J Zp
w0 0X ?+ J Z z2P y+ J , K] 0X @+ J , Lr, Ki 0X @+ J ,>N6,>N6, L`/ N5 1X + J5
w
( 0 ( 2NN6@ * 6Pp @
A aH + J3
w 0 8 XN0 0A`QP0 * J s aH + J/,>N7, 7g/ N4, 5n w
8 0 aP + J5,> , J/ N4+ J6,>w, I|/ N47p @ / N4+ -0 ,> N* H
* J
7X L+ J@,> , 5a/ N4R M4XJ@ 0 P
,> , 5a/ N4 . N
,>N7, 5f/ N4,>N8, 5f/ N4 /@ 0 P
(6 )6 ,> , 5Y/ N4@ )6 4XJK
.* J
[ 4XJP . N
,> , 5Y/ N4 0 P
@ S )6 4XJT 0 P
,> , 5Y/ N4 aP + JW,>N8+ JW,>N9, 5f/ N4
aL + J[,>N9, 5f/ N4 ah + J^,>N:, 5f/ N4
aJ + Ja,>N:, 5f/ N4 an + Jd,>N;, 5f/ N4 aP + Jg,>N;, 5f/ N4
aL + Jj,>N<, 5f/ N4 aH + Jm,>N<, 5f/ N4
aJ + Jp,>N=, 5f/ N4 an + Js,>N=, 5f/ N4 AN>4PK,>N>, 5f/ N4 ah + Jy * !J
aJ + J{ . *N
aN + J~ 0 &P
aP + K , "L
aL + K ( $H
( H
( H
* J
v &. 8 ,> , 5Y/ N4
&, &( ,NI,> , 5f/ N4 &0 .0 ,> , 5Y/ N4 . N
v
&
N? ,> , 5Y/ N4 ( H
&
N? &0j0 08 + K ( H
,> , 5Y/ N4,>N?, 5f/ N4 ( H
J
,^ + -0 aH + K%
H + K&
F aX + K8
`J @+ K7, w
`L + K7 ( N (O F @ 4ZK1, K"0Z @+ K1l V (+ K7 v. 2( (+ K5,> l,>N*,>N+, 6/ N@ V (, J7+ KAl : @+ aX + K:,>N6+ K@aX + K<,>N@+ K@aX + K>,>NA+ K@aX @ + KA,>NA,>NA, 6}/ N5 : + -0 Z zZ
y3H + KG,>N+,> m,>N,, 6/ N@:NB.: $: ZhAZ8 Z y. ( B< 3v + KO , L x : @+ :NB.: $: Z
hA8
S Z y. *8_"( HX V y@@ x* z7 @ + @ ,~ -0 . N4@ / N4+ @ ,~ aH + K` : @,~ 6J x+ Kh aN + KeO H @ 4ZKh@ + KgO F @ 4ZKh, K"0Z @, KB,~ , KB,~ -0 Z k H @@ { *N,"
Z, .N,nNB.* jNC0 5PKr=K * 0n @
Z
k0NC ( 0P @ A
.N," Z00 (N,hND.. nND, ( 0L @ A
`J =K.N,0N + L18 + L7J` =K0NE0P + L X . N {+ L@@ {:NB.: $: ZhAZ@ Z y/ 2x + L @@ i+ L
/
QJ iQJ r, XZ iX i
Q Z i[ i. *6g * "
.j Z
y/
"J y" .p z" .h k" .n j" .z {+ -0 ,> 2h (+ L 8 0z ,
\ z ,
\+ LO ,^ + @ ,~ -0 . N4Z y0H + L@
aL + L/ ( Np 6P P (O H @ 4ZL+, K"1Z @+ L_6L + L. p Z + L; p P (+ L; ( N O F @ 4ZL4, K"1Z @+ L_ v. 2( (+ L8,> l,>N-,>N-, 6/ N@
v.
L (, L@@ @@ z 6 :NB.: $: ZhAZ8 .0 P y+ LO@@ 7L i+ LIA,S .0 [ i.( *8_[ i< ,> ,> , / N5+ LO 6 :NB.: $: ZhAZ@ / " .( H 5(LO@@ :NB.: $: Z
hA8
. Q 0NB.0 $0 Z@AZ Z
.
Z
/
*8_". NX Z y3V + L_,>N.,> m,>N., 6/ N@, AY/ N4+ -0 7Hw~+ Le6L + Ld : /+ @@ : A+
w7N0 + Li,> l,>N/, 6/ N5 w@@ * $ J k { N j N k, Lr
{ L , Ki0Z @+ ,>N/,>N0, 6?/ N5@@ x+ -0 Z k(N,0H < . 6L` @ 0 1x @ A `N + Lt0x + L{ : @+
/* J
y/
., S .0 *8_" .n k" .h z"
.j {"
.l j" .p m" .n n" .h n"
.j "
.l y"0 P0 @ + -0 ,> . N@ Bp Dp Fp w 8 &" $ )$|=8M F | p p p @ / N@,^ + -0 Z '4HM& ',NE,>48?,> , 6G/ N5 aN + M 7p }, 5n>
},> , 7l/ N4 '*NFB
w`J
&` Z '
' 0 H ',>NA,> , / N5+ MO + -0 . N4 lG m*NFD ,NGD aH + M/,>N6, MW/ N4 : Zp + M0@@p aN + MQ7p }, 5n,> }, M
/ N4,>N0, 7l/ N4, z0L + M8> }+ MD0L + M;O@ } : Z s+ MD0L + M? }&6
}/
<
J }+ MD>
},> {,> z, 7\/ N5,>NG, 7g/ N4,>NH+ MN jaN + MO,>N1, I|/ N4 z3P {+ MK,> {,> , 7\/ N5` z,>NG, 7g/ N4: z,> , 7g/ N4+ MQ,> {,> z, 7\/ N5@@ mZ '4PMU,>p , M/ N4O@ l@@ j@ / N4+ -0 . N4 l`H + M]
m J
j L k N : Z l
z3J + N' N1 N & 1P $+ Mf"
.* #76 + Me , L &=6Mc : $ Z 6 1
, 18 @
. 0x @ A
aL + N 0 &1P + Mn * J & * J &@ N &
'`L + Mt,> , M
/ N4
& |@@ '
& N1 P & H
. 1X @ , 1X @
A aN + Mw @ aH + N,>N2, J/ N4 Z + N:
,>N2, I|/ N4
Jp
z . 2L @ 0 2J @ G aN + Mf+ N4XN
X & 2H z+ N7Nw+ N p P + N=6Mf '`P + N,> , M
/ N4
& | : Z '@ H &
& N1 Z &+ Mf . 6Jw@
N1 0 3L &@ A aN + N# '`H + N ,> , M
/ N4
& | * J & , L &@ P &
& + N' 'aH + N',>N2,> m,>N3, 6/ N@@ / N4+ @ ` _: ~NO 'NQ '< kNU 'NV ' NX ' | zH N[ '< 0 x
FORTRAN V. /KA /KI /OPT /NOWA/C /S /I /M /E /NOER/L /D:( mn@ PAGE < 0 : 0 < 0 ` $@h D@ D -JAN--FEB--MAR--APR--MAY--JUN--JUL--AUG--SEP--OCT--NOV--DEC- INSTAT TRANSFRING SINPUT EOPRES EOPRESTORE OVERFLOW, LINE TOO LONG BACKTYPE -0
. OS aH + N`,>OT, O/ OT , 6J _@
0 7N p@ G
OM * 1H @
G
aL + O . N
Z8p Q8A`S0 H Pp ON 4 .( H =4Nk , 7J p@
0 7N o@ G
aL + OOT6H p+ Nx OU Np OU Pp p .OV Zp + O OV Np OW Pp Z
. XH l Z*p Q*a` J
,> p, 5Y/ OT@ N
Z.p ,> , OA/ OT,>OO, OA/ OT6P o+ OS:tx Zp + O
l Z(p Q(A` H
,> , 5Y/ OT@
J
Z(p ,> , OA/ OT,>OO+ O aH + O,>OP, 7l/ OTZ*p ,> , OA/ OT aN + O,>OP, 7l/ OT,>OQ, OA/ OT@ / OS+ -0 `H + O *OW,OQN
aJ + O @ +
w0J + O ,>OR+ O? OR N
0 P
@@ OX H '+@,O%+ O<+ O'+ O++ O.+ O2+ O8 w~,>h , 5a/ OTzOR , L
+ O< w~,>h , 5a/ OTzOR+ O<
OXL ',>w~, 5Y/ OT
8
lOR . (N
0 P
+ O<,>w~, 5Y/ OT
8
lOR . (N
, ?L
. "N
@ P
,>OS, 7l/ OT+ -0 wZ8 Q8A` 6
0J + OF . n =6OC.OY0OYH `N
'w aH + ,>w, 7l/ OT+ @ ` oH %OZO[O^O`OaOd wOe ' ' 0 %FTNWRN NO ?FTNFTL B B D
FATAL ERRORS AND WARNINGS
[ NO ERRORS DETECTED ]
E aH + Om*Qv0J + Oi : + Oj : Z q,> m,>Qj, 6/ Qv,~
q1J + Ou,> m,>Qj, 6;/ Qv . N q Qw P n P r QwXH r, ,>In+ O}7N n+ Ox, r@@ n+ Oy,>In, Ak/ Qx Qw H n H r
QwXJ r, ,>Io, Ak/ Qx:Qx.QyH ,> , M/ Qx@ ,~ -0 Z s4XPZ` *Qy0J + P
X `n + P,>QkZ0X Q0 ,> [` ,> ,>Qk, 6/ Qz+ P.Qz 0 1N @ (Q{D aP + P,>X [
` ,> ,>Ql, 6/ Q{S* BJX h ,>Q|,> , / Qv+ PO + -0 . Q{@@p @@p 8 `C Hp 4HP- p [
h 5LP+Zh 0pO+ P+6Jp + P", 5j,>Ql, OA/ Qx p Zh Np ,> , M
/ Qx,>Qm, OA/ Qx:p 1p + P+@@p ,>Qm, OA/ Qx, 5j:
p p Zh Pp 5PP =8P7Lp + P1,>Qn, OA/ Qxl @ / Q{+ -0 . Qxl , 5j,>Qn, OA/ Qx, 5jZ p Hp [
Jp ,>Qo, OA/ Qx
p [0 Np [8 ,> , M
/ Qx,>Qo, OA/ Qx,>Qp, OA/ Qx: p[
p
( L p5LP6@ / Qx+ -0 . Qx wZh " .h oZ
p3Z + PO p[h Np [8 Pp [@ ,> ,> m,>Qp, 6/ Q{+ PS[ p 8 P p 8 H pA(3Hw+ PO@ / Qx+ -0 7H p+ P[[ pZ pZ
w2V + PYO + Z` [` 5XPW@ + -0 R` aQ: aX: b*: v (2h + Pd@@ 2( + PdQ 8 X *:8 ,P L .
N + QqQ [ 8 X *8 7
QqQ [
8
X . N /*8 1 Q| P %S( H `O@ }@@ d
/
( J l , L d Nd l L @ + -0 . Q{Z c Hp 7Jp + Q Jp .Q}1. + P~ p 6, + P~
p Z( Np @@8 Hp Z@ + Pw@ / Q{+ -0
w . 0, @ 0 1L @ A Z w * 0H @
A aN + Q
A
Q~ 4TQ`T l `T l `T l aT + Ql `T l aH + QO@ }d ,>Q~,>Qr, 6/ Qv, J7d d , L"1Z @+ Qf, P\
( J a Q N r , L r 0 P u, a Z "@@ nd ,>Im, Ak/ Qx0Z + Q+
aJ + Q(, !e+ Q#6N q+ Q<,>Io, Ak/ Qx+ Qf
aJ + Q/,> m,>Q, O/ Qv q , 0R 8
$ . q.Qr4 0t + Q5 T q+ QB
/* <
+@,Q7+ QB+ Q9+ Q<+ Q=+ Q@Z:8 ,> ,> m,>Qs, 6;+ QB, Oe+ QT,> m,>Qs, 6/ Qv+ QT,>Qt,> m,>Qt, 6/ Q{7J %+ QJ
q8R 0X + QF, ?m+ QJ0X + QJ,>Qu,> m,>Qu, 6/ Q{O@ "@@ #@@ r
q8R4XQO,> , N/ Qx4:QT qZh , 7J n+ QTZ
( 4LQT,> , PD/ Qx
q0L + Q", P, P, Pv, Kj6H p, P26N p+ Qa `p + Qa Hp *Q~ Jp ,
<. R, 0 p nQ~
p L . R, N\ `P + Qf, L"Z a Z ( z + + Q . R@ / Qv+ , Q,~ ` I $R . \R |RR R
R|R U + / l=D R R 'R 8 D
X
X 4X [Mc@$@( %P }~|o ( $8 00 4$0 Z@ %@ A DUMMY ARRAY
UNDEFINED LABELS
UNTERMINATED DO LOOPS
LINE:
CLASSIFICATION - STATEMENT STORDER NON-EXECUTABLE