PDP-10 Archive: decus/20-0003/pform.exe from decuslib20-01

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0003/pform.exe

There are 2 other files named pform.exe in the archive. Click here to see a list.

?p00 00@?hX%?x "

<++2	`]D=~uPi7D%<278Error in block structure: BEGIN expectedMissing   'END'  statement              Missing   'THEN'   for   'IF'           Missing    'OF'   in    'CASE'          Missing   'EXIT'   in   'LOOP'          Missing right parenthesis               Missing closing quote on this line      WARNING: This file has no main body     Missing closing point at end of program.Line too long. I'm gonna get confused.  Missing right bracket                   Missing  'UNTIL'  for  'REPEAT'         Missing close comment at end of program.

AND       ARRAY     BEGIN     CASE      CONST     DO        DIV       DOWNTO    END       ELSE      EXIT      EXTERN    FOR       FILE      FORWARD   FUNCTION  FORTRAN   GOTO      IF        IN        INITPROCEDLOOP      LABEL     MOD       NOT       NIL       OR        OF        OTHERS    PACKED    PROCEDURE PROGRAM   RECORD    REPEAT    SET       THEN      TO        TYPE      UNTIL     VAR       WHILE     WITH

x`|@@0 @F @xVVW

9&

9&

956I6`IO>|O/gOLO{OrJOq|OaFO^sOO

2OOwOO>	OO#OO=ONs3ONdiON`}
ON`wON_}ON_{ONK]ON@ION?)ON:ON36ON-mON-GON-?ON-ON JON|ONtON+ONqONkON

s
Vx?)Gzx?4w|Y;qQMG?qQ;tUl)HPF=@)F<|cuWY=cuWY=
?^=VS;I;Ue?qV?OU= V?OU=e=UOz{zB+MP<+KOV{=?JQ;u=?JH|5<5<5<

xBAU

n.

C(<

tItj<<{QtB9De#Z<6De;0De7zDdRDdN<DDdMG0THG7PN:PMxTH)w1P
XR<u
X>|<q
X/g<n
XL<t
XX<h+?.B
W{<o
WrJ<l
Wq|<k
W^s<rS#D.SHlHfSHM.<{SH+LP
zSHy 
}fw	x{'<6:B=_rz]^_}X~yw<aiVB5_8~B1R_H.
_1.<^__tgP^<wP^/v)MG2T}=;&

2=:
Ks<=/&>=%&1=BFD=EKq	=?
Kq=B&#=>T{=A&==
Km'G<C%s3=4KjN<KjM;KjM;}%di<`
Kf'

=%`}=
Kf%0=%`w=%_}=#%_{=6
Kd+'<)
Kd?;]%K]=%@O<C
K\
;`%@I;x%?)<_KZI<TKZI<RKZH<R%:<K%-G=:%-?=0D+=0KV
<a%-<a
KTI;<%(<ID<7D=D
KR =7% J=7%|==KQ|!<[KQ|!<Z%t<WTs=>%q=%k=
KLtD<G
KLm?='KLm=-KLm=,KLm
KL<%

s=5JL@CJL=AJLUJL@JLbZ@JLaUR8H.(+t<w.=.Kt?Ru.
t{.="t)t47

`yjBER-nV
vVse4;U=p;w9[d;<,w
}
>q
.2p7go<4;OOrc OOqh O`

AOqKOXOm5O/L`O#p.O#LO.`)O.:wO.4=O.-WO-|O-sF7[t86},w.{6}2/6}

48H6|z&4'v?-2&:/G=`/GP%Z96mqQe5.o#Nw.ao#G30o#G/0o#G.0o#F5Uo#?2.Ho#4x8
O/6o#I5o"w35o"]tTUo"]V}o"U4qo%z50in5@0cn550eF!*PF=e;X5=e;X
5Fe;X
5He;X	5Fe;@45e;	35Me:g5 e- 5/e-Q54e-Q5:P(V
#4
-"TZ0P9vr

F-9sR7~z/VP8)4@8**9LN,O{!82O{82O{\1O1[d0Vz&x5W5+MPb{-\MPbq-b

&9f

$9w)r0%4zbw/);~6F4zS2/%4u}t8!(,))M45AM4^uL&>.6o6"k7.-&o3iA5i4*I0 |)5

65}-#A5d
E8s4*>8g';0

i:7q
<{z4R
<=@4N#3uIHHM	4+M	3[@T}95yv|B9v|B9v|A9v|A9
j}M
@GHT.rW[.`-wrWN.rWN.rWMG.rWEr.rWEU.rWEO.rW<K.rLP)."2z/Tr:^I/PTUHTrj Triv)@

p0VVToaHB)Tl\G4`HB(HB&@Ll[eV~Ll[^u

],w.j]%90#]%40"]2.r0J*0`)A7@

YP<24

YP<1+;0|YIY0UYHc0P<-Y9a39dCg-J

SOb	0LSNK,zSMC,{SM

SL~j,|

SLxgKP(

@]ID@\6DpW6kD^w/.DO2/.@6]D>46ND+<6\Dr6h@a6gDfN6c8RTw.P8RE2.Y8RAX1

+#M26

+#4<J+"jBT(QJ484(Q$Q6J(Q$I8_(P~i6G(P~d8M

(IG6m"am"T

"a*l

"8x29=J/9@

RR+Sf
Mo

:la~sc6|&/JH~n|N&/IG~ni_.i7_.i5-_.i	7
}|7_.g5b_.fv4m}|4m&,Z7}yq8_.	5_.8_-^hK87p^hK67k^hKB7f^hO*7o]R$9|x8

6m]Ez*-yb-ZO W9/E,->U)./{l <	
l

k[L
kBK1,  K1+HK1+G\ .b"9S.b$3V
b9?7.az07!.az67.a*9O-q)
_L+@5-+@5'K+m/$ K+mS+m4(K+lu_K+lthK+lULK+lO(K+l>@K+l=nK+l=@K+l)k
Nvo3d(UA5\
Nvn8k
Nvz0(T|)4n(Tc#9c(Tay9M(Tay9L(Ta%9`(Ta&9C(T`$9s(TT<,w(TJi5N
Nu	6(TI15O
Nu0(T;L/f(T$3P(T$3J(T#q7K(T#gs(T#em(T#a7F(T#r7B(T"s7W(T"i7`(T"i7_(T":7L(T"-7Q(T" 7a
Nsz(T_1((T3l!|?3\(TT6	(TS6

(TI4c
NsU6(Td3=(T4a(T5(T4e(T1(T8H
NsM0(T91!(T8

(T

65v
NsA5W(T
E8p(T
D8!|>8c!|J0K nhg@Pi7z
$CPhS"XWS"F)S"72S" wS"=S"IS"S!ZS!VKST5ST/ST	[P
sSSp[SS]SSSW_SSEt

SHliz
SHf(

SHf(SHe{SHezSHezSHeySHey

SHa\SHaLSHaK
SHaK
SHaJSHaISHaISH\M	SH[)SHS;SHS&SHRSHQ
SHP>SHP=SHP$

SH7SSH7ASH+LSHdSH[SH@SHSHyNSGyM
SGySGxcSGsSp$ESkISkESh~xSc,S]SXlISQhP
.e:	Mce	L
`O+75^87/?]z3-]l/[]^rLY@7	Kp67Y7b7	KHY4@f>/e	K4
}).9;>#73	C9P72	C9O7.aG7.`j+	:Z7	t'JiwW	xgj$_4gj44Lgj04_gj40gir43vgir)4gied4Wgi`&4'giLI4gi3\1gi'44`gi&d45gi&Y4>gi!:4)gi!942gi a4
gi4gi3Ce:UH4wj//UwJY6xe!OB0(w6yal'

7+al'7'
al&V7$ZB-f="99 n(Fon(Enn(Enn(DmJ`0:@J`y 9m".89V{.%9g.1d@K6d-U
P^nB0P^lA5nMR/Y4MR/Q3Y+T2-1
M	J,sJM@:@#~~7>KEA8z
K\79K@8#ll	#l[07#l
02
K10&#jf08#ja0@K0&Hg8w/

Hg)2/HgY6DHgI6%Hg96$Hg48CHg)8EHg6?Hgn6A
H_MBWJ:f<w.?:f-2.Hm45ulnI5u
6%.0C`wF0BY2]7-$2]"$R2\mx02\mNtNPM42}+t$3Z+s#3Hn5"91
ieG-AiR4
0M
76at4!L4%Gb,(7T,ss),]s2,YR-,5R-,+R,+dR,~,7R3+7D*7>g+W7=;+d7=1+*73+^7-+J7,4*{7+(+7*3+7$e+>7K+J'

7H+7~}+7sD+BJ&+77n3+`7Z+}7ZB*y7T)+@7d},`7we,\7we,Z744v;+V4vO,V
:+j4v
+x4v
+w4v
+z+i4vH,14vz+|4vY+g4vY+e),y+n-#M*x	p4S,@

vWK*uj`n_+	j`M;+j_~3+YZ"+5M,O0+th,48Y]G+*P

~c7

^3,)^}};+^}.3,/YwgjYwgiAv_+Ad+AU;+
l,1f,
kVO,(Tt,	(T6O,-	*U-	)TSH\M	SHS;SH[SH@SHSH

Z,Mb,4I^W,.4+,J.4+,H.4*/,A.0I,>.0I,<.0A,7+t,$PFePFdwwpt*uUl)HPF=De 7;L

(TSg*sSH+LvZ~$*o|G;b

u^c;t@)INVT+INGg+@%*`[%`[%2dW"ZUZ."ZQW")QV"*QP"-V?[!JV?[~!KV?[w!N53O!53N!53K! I+!	 I*!	 I&!

Z/ 6Z. 7Z+ 9(a!|(a!|(a!DEd7%DEd6%DEd3(M-wM-wM-z}

@}

@}

C4y{~4y{~~4y{tDEbPDEb
QDEaStiStiRtiO^|0?(^|0>)^|02,tiShtiRitiOk

}7?

}6?

})B5'5&5"e!a$e!a~$e!aw'rWfgSrWffSrWf`VSOaWxSOaVxSOaM{4vCR4vBS4v?V4v	M4v	
N4v	P
7s
7r
7h

}KK

}JL

}?O2a2a~2at
7{7~{7w~^8c

^8b

K{

SMN/|SMN$|MP/MP
/^hLO?^hLA@5%5%TBlTAmKyk(Kyf)z#]-{V?Qk'V?Q`(V?Qk'V?Qj)V?Qd,4v
4v
4v	wV?Qk\V?Qj]V?Qd`]lL]lL]lO(T\;(T\:(T\7MPlMP~lMPto_
S=_
R>_
GA-@&M&-pSh+\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[X%[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'dw]!+{07D%+78]@a~+ HHHH"HFHHH$0 @BDFHHR\Q|> Dp Fp174 p2dp+4 p Dp+4 p Dp4Q~Y|,~          @3?|"@NA         @c@@uB         ?{@@%@PdMIN       ?{@@f@?| @?{0R\Q|> Dp Fp4 p3$p+-4) p Dp+.4+ p Dp4-Q~Y|,~          @3?|9@NA         @c@6@uB         ?{@@%MAX       ?{@3@V@=a4 @(?{H\XwXwXwXwXwXw \Q|>4.Z$,<| xXw D4BXw Z& (C *Z,,=4EXw Z& (D *Z,,=4IXw Z& (D *Z,,=4M^$d=Z&) "pf4QXw Z& (p *Z,,=4TZ$,<| xXw D4XXw Z& (E *Z,,=4[Z$,<| xXw D4Xw Z& (E *Z,,=4bXw Z& (F *Z,,=4fXw Z& (G *Z,,=4jXw Z& (H *Z,,=4nZ$	,<| xXw D4rXw Z& (I *Z,,=4uXw Z& (J *Z,,=4yXw Z& (K *Z,,=4}Xw Z& (L *Z,,=4Xw Z& (M *Z,,=4Xw Z& (O *Z,,=4	Xw Z& (P *Z,,=4

XwXwXwXwXwXw \Q|>4A^$ D	4q@@

W4r@@

Y4s@@

Z4tZ$ D

\4u@@

[4wZ$ D

^4x@@

X4yZ$ D

\4z@@

Y4|Z$ D

]4}Z$ D	4~@@

Z4@@

[4@@

W4Z$ D

]4Xw@@4@@	4@@	4@@	4@@

X4	Q~Y|,~          ?{?|@!SETDEFAULT?{?{@!.GXwXwXwXwXwXw \Q|>4
 	1d+4^$ D	4Z$ D

W44 	0$+4Z$ D	44 	0$+&4"	 D	4! 	 D	4#@@	4$+)4%@@	4&@@	4'4(

Y4D04) 	 D	4*@@	4, 	 D	4-Z$ D

^4.40Xw 1D+E40Xw 1d1$- -" D

^43Xw 1d1$- -" D

]46Xw 1d1$- -" D

]4:Xw 1d1$- -" D

\4=Xw 1d1$- -" D

\4A4DQ~Y|,~,<h4?{?|I@(6GETOPTIONS?{?{@(^WXwXwXwXwXwXw~\Q|>4E,<I x4DU4Q,<4S,7.4T4UQ~Y|,~    ?{@?{?|Z@*>ERRCHECKN??{?{@*f{XwXwXwXwXwXw\Q|>4U>y,<h4aZ$,<G4c$z&,<o4d$,<a4f,<Ix4Dn4hd$z &,<o4j&$,<a4l4mXw(B$4Dr4nZ$,<G4p4r,<I x4Dv4r $,<4t4v,O4vQ~Y|,~PASPGO          ?{?|}@.vSTARTOLD  ?{?{@/XwXwXwXwXwXw \Q|>4wZ$,<G4,*o xXw D4 $Xw 1f@Xw D4	Xw 4D4
p	0*@A4FI43 p	/$0$0d- -^$d' p	/&0&0f- -^&f( "p& "pf4= p	.$ Dp	4F+44H p	/$0$0d- -^$d( "p$1D+R4I p	.$ Dp	4O4Q p	/$0$0d- -^$d'Z& "pf4R p	.$/$0$0d- -^$d'Z&7 "pf4W p	.$/$0$0d- -^$d'Z&2 "pf4] p	.$/$0$0d- -^$d'Z&; "pf4c p	.$/$0$0d- -^$d'Z& "pf4i $, &p ( * , .O ",-:4o+4t $ &,;x4u ,<h4w $	 &,<o4y $p &,<n4{ $,,<a4},=4~ $, & ( * , .O ",-:44Q~Y|,~Newsource? @NEW          @AC?|%@@^JFNS      @BT@@A@

FIELDLENGT@B#@@A4@FLPLUS5   ?{@@Ad@OLDNAME   @Cl@D@BNEWNAME   ?{@C3@BEH@Bpd'@CLf@CF!PTR       ?{@@C-@CXd(@D4f@CpF!STARTNEW  ?{?{@D<R\Q|>4,A4) $. &,;x4*,4, pB$4D24- $. &,;x4/41,`42 pB$4D743Z$,<G4546,o4748,<)48,=49 p,= x Dp4:,<7 x Dp4= p1D+$4?,O4A,<C x2$;0d+#+4B,= x D	+#4E4H $0 &,=#4HZ$ D

Y4J+#4LZ$ D

Z+#4M4O p,= x1d1$- -" D

\4O+#4S4T $1 &,=#4UZ$ D

[4W+#4X4Y p,= x1d1$- -" D

^4Z+#4^Z$ D

X+#4_4a p,= x1d1$- -" D

\4a+#4e4f $1 &,=#4gZ$ D

Y4i+#4j4k p,= x1d1$- -" D

]4l+#4p,= x D	+#4q4s $2 &

Z4v+#4wZ$ D

[+#4x4z $5 &,=#4{Z$ D

W4}+#4~4 p,= x1d1$- -" D

]4+#4 p,= x1d1$- -" Dp+#4,= x D	+#4	4

 $9 &	,=#4

Z$ D

X4+##	###qk#a#Y#O##E##HM#T#_#f##sxz##

4+84#,O4$$&;(*;Q*,I.O",-(4%,4*,,4+Q~Y|,~Oldsource?EFORMATINDENTATIONNEWLINESINSTANDARD@PLACESPROCEDUREYAND FUNCTION@DECLARATIONSFORMATCFOR COMMENTSw/E(SQR     @Wk?|x@WCASESCOUNT@gtA@@W,@CASES@\?|D@X|4@W]CALLTABLED?{@X|L@X?{@\VWRITELN   ?{?{@\~@] dfFALSE     @dLr@Z#@]4@CLOSE     @

t?{@]fCHR       ?{?{@^@@ORD       DISMISS   @bd{?{@^NDELETE    ?|}?{@^vCURPOS    @al@@_@?hdCOS       @`[@aX@_^@?` COSD      @a@aX@`@?Y COSH      ?{@aX@`^@?W @adDATE      ?{@b+@a.@?gd @ahd

@bDf@b@!DISPOSE   @c?{@b&EOF       @cK?{@bN@XSUCC      EOLN      @d?{@c@`EOF       EXP       ?{@aX@cN@? INPUT     ?|'@]c@d

(GET       @e#?{@d>GETLN     @f,?{@dfGETLINENR ?|/?{@eGETINDEX  ?{?{@e6GETX      ?{?{@e^HELP      @gD7@X{@f EACHCASE  @)i@g#@f50@f`C!I         ?{@@g(OPTIONCOUN@h$4@@g4@	SWVERSION ?|E@@gd@SWTAS     ?|H@@h@SWSUPER   ?|K@@hD@SWSTR     ?|N@@ht@SWSAVE_COM?|Q@@i$@SWRES     ?|T@@iT@SWQUIET   ?|W@@j@SWPROC    ?|Z@@j4@SWPRESERVE?|]@@jd@SWNONRES  ?|`@@k@SWINDENT  ?|c@@kD@SWFORCE   ?|f@@kt@SWELSEIF  ?|i@@l$@SWCOUNT   ?|l@@lT@SWCASE    @nTo@@m@SWBEGIN   ?|r@@m4@SWBAR     ?|L@@md@SWCOMM    ?{@@n@	STARTFILES?{?{@nFR\Q|> Dp4, pQ$X$p*$p4}#p#p/#&$r1fr1&- -" Fp4Q~Y|,~          @q?|"@p.SY        ?|

@rk@pU$HACK      ?{@qs@q@q0d@sPINT1      @s$@@qM@ALF       ?{@rk@q}@@r(d@sf@r@@!INT2      ?{@@re@@sA @Z @s(A$@t

@sHA$?|HASH      ?{@tl	@sn@=[t @np?{@t(J!rJR\Q|>4 $

U,{ x0$0dr- - " Dp4*@@p4/ $ p1F@ pB&A4DC40 p0D1D- -  $ &

UQ$H`Q&H`D(3B=h92B+>44Z$UDp+B4< p0D1D--[ Dp4>+04Bp4DF4C pDp+H4D^$Dp4FQ~Y|,~      ?|@yK?|h@xfPOINTER   ?|O@z+@y{}P@`@|(R@|8RSFINDSY   ?{@z+@|N@=Yt @tP?{R\Q|> Dp Fp4H /.$ D/4o $p,{ x1dr1$- -" Dp4q $,,w Dp p0F1F- -  $,>,,w,^XD4u p0D1D- - Q(pX(*(4| p0D1D- - Z0D1D- - Z& "f4 p0D1D- - Z0D1D- - ^& "f4 p0D1D- -  p0&0fr- - "QF4

p0$0dr- -pF"4Q~Y|,~?|AnA?|"A6SY>4  ?|@rkA]POINTER   A{@z+A
Q$/X$"*$	4'@@	@@	@@	4)Z$ D	@@	@@	4+@@	@@	Z$ D	4-Z$ D

`Z$ D

d40@@

`@@

a42Q$9X$

U*$

VQ$9X$

T*$

U44Q~Y|,~                    ?{?|=AnREINITIALI?{?{A'R\Q|>47@@

c4A@@

b4B@@

^4C@@

_4DZ$ Dp0dr+L p0$0dr- -^& F":p+G4E 
L 
L,m 
M 
M,m4L 
N 
N,m 
O 
O,m4O 
P 
P,m 
Q 
Q,m4S 
R 
R,m 
S 
S,m4V 
T 
T,m 
U 
U,m4Z 
V 
V,m 
W 
W,m4] 
X 
X,m 
Y 
Y,m4a 
Z 
Z,m 
[ 
[,m4d 
\ 
\,m 
] 
],m4h 
^ 
^,m 
_ 
_,m4k 
` 
`,m 
a 
a,m4o 
b 
b,m 
c 
c,m4r 
d 
d,m 
e 
e,m4v 
f 
f,m 
g 
g,m4y 
h 
h,m 
i 
i,m4} 
j 
j,m 
k 
k,m4	 
l 
l,m 
m 
m,m4	 
n 
n,m 
o 
o,m4	 
p 
p,m 
q 
q,m4	 
r 
r,m 
s 
s,m4	 
t 
t,m 
u 
u,m4	 
v 
v,m 
w 
w,m4	 
x 
x,m 
y 
y,m4	 
z 
z,m 
{ 
{,m4	 
| 
|,m 
} 
},m4	  
~ 
~,m 
 
,m4	#  ,m  ,m4	'  ,m  ,m4	*  ,m  ,m4	.  ,m  ,m4	1  ,m 	 	,m4	5 
 
,m  ,m4	8

,m4<u,m  ,m4	?  ,m  ,m4	C  ,m  ,m4	F  ,m  ,m4	J  ,m  ,m4	M  ,m  ,m4	Q  ,m  ,m4	T  ,m  ,m4	X  ,m  ,m4	[    ,m ! !,m4	 " ",m # #,m4	b $ $,m % %,m4	f & &,m4	i@@/4	kQ$"X$/*$!4	lZ$ D

F	p4	nZ$ D
Z$ D
^$ Dp0dd+

 p.$0$0d-- -Z& F
&:p+
4
Z$ Dp0d+
 p/$0$0d- -Z& F	:p+
4

Z$ D
4
00d?- - 
00d?- - 
:
4
Z$-+D
'4
00d?-- 
00d?- - 
":
4
&Z$-+D
24
'00d?- - 
*00d?- - 
-:
)4
1Z$0+D
>4
200d?- - 
500d?-- 
8:
44
<Z$=+D
I4
>00d?- - 
@00d?- - 
D:
?4
G,%4
IQ~Y|,~GET       GETLN     PUT       PUTLN     RESET     REWRITE   READ      READLN    BREAK     WRITE     WRITELN   PACK      UNPACK    NEW       GETLINENR PAGE      PROTECTIONCALL      DATE      TIME      DISPOSE   HALT      GETSEG    PUTSEG    MESSAGE   LINELIMIT REALTIME  ABS       SQR       ODD       ORD       CHR       PRED      SUCC      EOF       EOLN      CLOCK     CARD      LOWERBOUNDUPPERBOUNDEOS       MIN       MAX       FIRST     LAST      COS       EXP       SQRT      LN        ARCTAN    LOG       SIND      COSD      SINH      COSH      TANH      ARCSIN    ARCCOS    RANDOM    SIN       ROUND     EXPO      OPTION    TRUNC     LENGTH    GETCHAR   POS       STRLT     STRLE     STREQ     STRGE     STRGT     STRNE     GETFILENAMGETOPTION GETSTATUS ASKFILENAMSTARTFILE GETPARAMETGETNEXTCALFILNAM    REENTER   SETTIME   TIMEREPORTRUNTIME   ELAPSEDTIMPUTCHAR   ASSIGN    SUBSTR    CONCAT    SETRAN              A5?|,A46I         ?{@A4]INITIALIZE?{?{A5qR\Q|> Dp4

J p0$0d+o+l4144 	/	/$ 	/& Fp Dp2dp+C p.$0$0d-- - p.&0&0f-- - 
&0&0f?- - 	& F
&:p+945+o4C4D 	/	/$ 	/& Fp Dp2dp+R p.$0$0d-- - p.&0&0f-- - 
&0&0f?- - 	f F
&:p+H4D+o4R4S 	/	/$.$0$0d-- - 	/	/&.&0&0f-- - 
&0&0f?- - 	& F
&4T 	/	 	/& Fp Dp2dp+l p.$0$0d-- - p.&0&0f-- - 
&0&0f?- - 	f F
&:p+b4^+o4oDS4lQ~Y|,~          A>;?|yA=VWHICHCASE ?|v@g#A=}J         ?{@A>-SETCASE   ?{?|sA>^

R\Q|>4o 	.$ D	4~@@	4

@@	4

$ &

T (

Q&H`Q(H` *3B=j

3B@

XB&A4D

 $ 0@7,- 	Z(,+

 * (,+^4

 $, 0@7,-,04

Q~Y|,~          ..          ?{?|

AB6NEWPAGEw?{?{AB^Q|> Dp4

 	.$ D	4

! $, 0@7,- &

# p0$0d+

9+

A4

( $, 0@7,- &

U * (,+^ &

e * (,+^+

G4

+ $, 0@7,- p0&0f- -$& &

e * (,+^+

G4

2 $, 0@7,- p0&0f- -$& &

e * (,+^+

9 $, 0@7,-4&

G $ 0@7,-,04

L $ 0@7,- &

O $ &

TQ(H`Q(H`2B@ & (

TQ*H`Q*H`2B@G4D

b4

S $ 0@7,- 	Z(,+

h4

^4

b $ 0@7,- &

T * (,+^4

c4

g $ 0@7,-Z& (,+Z 	Z(,+

& (,+^4

h+p0$0d+

o $ 0@7,- &

U * (,+^ &

e4* (,+^+

r $ 0@7,- p0&0f- -$& &

e4* (,+^+

y $ 0@7,- p0&0f- -$& &

e* (,+^+

y4Y0@7,-,04?*)ERRORNATT-----AV:UAU0F!AS+?|xARFERRNR?|?{AS[ARmASDfAY D!FWDDECL   AZ3@Z$

zB
A^5WRESLIST?{?{ASA^eXpA.dAlA(F!RESSY     ?{A`;AM^PAxdB	tA`FOTHERSSY  ?|	A`T

EQLSY@AbERRCOUNT?{@AaEhVARIANT{LE?{@AaupLEVEL?{Ac@Ab%xLINE500Y  AcC@%AbULINECNTAcs@AcLINENBi$@?{Ad#Ac5J@Ac`dAd<fAcxC!PAGECNT   ?{@(AdGOODVERSIO?{@+AdMPRESENTSPAAek@@SEMICOLON Al@A`TvAk,@STACKTYPE An4d@{sAk\SPACEPRESE?|y@gAl0FEED      ?{@jAl58ENDEXD    ?|
@Z$.Ap=KDELSY     ?{Aq[ApmSAq dAqtAq0Gf/DIGITS    ?{ArDAqUa@Ard

fALPHANUMwl?{ArCAraPWHILESY@?{A`TArD@FORSY7@rk?|:A`TArt@EXTERNSYAlsA`T!As$@STRGCONSTEAtD^A`TAAsT@

,@Av}`SYTYx     ?{A`SAw-JhIDENT     ?{A`TDAw\@

INVARSKp?{@Z$   ?|A`TMAxl@

GOTOSY    @t,(A`TPAy@FORWARDSY ?|A`TSAyL@RECORDSY  Azl|A`T_Ay|@
RELEVANTSYA{=AaD	Az-b RELJFN    ?{?|\Az^F         ?{A[SA{$IFSY      AnAA`TbA{4@
REPEATSY  ?|SA`TeA{d@	LOOPSY    A},hA`ToA|@	LIST      ?{@z+A|DLOWER     ?{A}[A|m`A}@d@lfCASESY    ?{A`TrA}4@BEGINSY   A~TmA`T~A}d@BEGSYM    ?{AaDxA~apDECSYM    ?{AaD{A~EbPROSYM    ?{AaDVA~ubEOBSY     AaTA`T	A$@ENTRY     Bl@z;ATENDSYM    ?{AaDuA}a`EOB       ?{@Z$GB-KhDOSY      Ag\

A`TB\@DEFINITIONAp|@BOFSYUAWSA`TBl@EXITSYUAsdA`T?B@ERRMSG`E?{B;BMLPBx4dAS\BdBlfB(F!THENSY    ?|

@INITPROCSYAxLA`T2B<@PROCEDURESB\QA`T:Bl@PROCTABLE AVsBBT BHrd@tlRFUNCTIONSYAZPA`T=Bd@PROGRAMSY B2A`TCB@PROGNAME A3@rkBEJHVARSY     ?|A`TFBt@TYPESY    ?| A`TIB$@CONSTSY   BL[A`TLBT@LABELSY   Ahl/A`SB	@B	0F!B	P
,!B	hGf- MISSGRBRAC?{AS\WB

@LINETOOLON?|LAS\ZB
<@MISSGPOINT?{AS\]B
l@MISSGMAIN ?{AS\`B@MISSGQUOTEB
LZAS\cBL@MISSGRPAR ?|`AS\fB|@MISSGEXIT B[AS\iB

,@MISSGOF   B

<fAS\lB

\@MISSGTHEN ATiAS\oB

@MISSGENDNBBA~$uAS[B

5BxERRORwX?{?|XwXw \Q|>4Dp4.$0$0d-- - & 
&0D@ ( 
p2jp@A4F p.$ Dp+4 p D	4 p.$0$0d-- - & 
&0D@ ( 
p2*p@A4F4 p/$ Dp+4 p2dp+p4

aB$4D"4 	 D	4

Y4D%4" 	 D	4#

c4D,4% $, 0@7,-Z& (,+Z4&@@

c4*+94+ $, 0@7,- &	 	&( *,+_4, 	&$1f+941 $, 0@7,-Z& 	&( ,+Z4449 p p Fp Dp2dp+H49 $= ~0@7,- p.&0&0f-- - 
& F4= $, 0@7,- &,04C:p+<4F $

V 
w w)H0(@A

Y4DT4H

V0D+Q4MZ$ D

c+S4O4QZ$ D

c4Q+W4S $, 0@7,-,04T4W 	.$ &2$	@ 	.(.(0(0h-- - *  
&0H@
A4Fc4W 	.$ D	4`+X4b 	3d	+o4c $ &

T (xQ&H`Q(H`2B@ & 	1(P@G4Do4e,|4m4n4o4o4p 	 D	4p@@

a4r@@

b4s@@

b4tQ~Y|,~,@D- -  "B3?|BNPOSITIONw ?|~@BuI- - ZB@B%Jp0D1?{@~BUWRITELINEZ?{?|{B3XwXwXwXwXwXw\Q|>4u,)xDDp4 p1D+14 p0D1D- - Xw  F4* pXw D4.40Q~Y|,~          B&[?|IB%vPOINTER   B(T8@z+B&P         ?{B';B&MB&xR<B'd>?xPOINTER   ?|A@z,AB'%@NEXT      ?{B(CB'U@B(R<S         ?{B)B(B(@RVARDEF    ?{?{B(VXwXwXwXwXwXw \Q|>41,) x Dp4P p0D+d4R

U,m4T$,,w Dp4V2p0D1D-H-RDp,) px2F4Xp0D1D-O-EXwF4]pXwD4a+p0D1D--Z0D1D- -  "$B$4D4c $,,w Dp4j p0D1D- - Z& "f4l p0D1D- -  p0F1F- - Z "f4p p0D1D- -  pXF4v $,,w Dp4z p0D1D- -  p F4| p0D1D- - Xw  F4 pXw D44Q~Y|,~          B1+?|B0FPOINTER   B2

Xw  Dp4 p1D+B4 p0D1D- -  0D1D- - Z0D1D- -  "$0D+24! p0D1D- -  0D1D- - Z0D1D- - Z& "f+>4) p0D1D- -  0D1D- -  p0F1F- -  0F1F- - Z0F1F- -  "&XF42 p0D1D- -   Dp4>+4AQ~Y|,~          B8s?|KB8P         ?{B9#B85B8`R<POPOFF    ?{?{B8vGXwXwXwXwXw \Q|>4

B@@	4R4S $ 0@7,-  & 0@7,-6F &B&A4D+4S $ 0@7,-

T4[ $& ~0@7,- 0D+t4^ $ 0@7,- &,04b $& ~0@7,- 0D+l4f E D

T4j4k $ 0@7,- 4Ds4l $ 0@7,-,04o4r+}4s $& ~0@7,- 0D+z4t E D

T4x4y $ 0@7,-,04z4} $

T &EQ$H`Q&H`2B+4},|+)44 	.$ D	4 	.$ D	4 	0Dz+"4@@	4

XB$4D"4 $

T$&FQ$H`Q&H`2B+4Z(,+

Z& (,+Z+!44 $ 0@7,-Z& (,+Z &

T * (,+^Z& (,+Z44!4!4" $, 0@7,-,04" 	1$P+)4%,|4'4(4)@@	4)+T4* $& ~0@7,- &  
GF;)H0(@B&(20@7,-6H.(G5F=4+	.$ D	46 $ 0@7,- &,048+S4<@@	4= $ 0@7,- B$4Dd4> $& ~0@7,- 0D+U4B 	&$.$$$Z&,,
&:p+M4Jp$D	4S+-4T&	.$Z&,,  F
&4Y4_ $ 0@7,- &,04_+>4c 	1d,+j4dZ$,

4fZ$, D	4g+s4i 	.$.$0$0d-- -Z& F
&4j 	.$.$0$0d-- -Z& F
&4n4s $ 0@7,-6D $B$4D?4s $ 0@7,-

T4x $& ~0@7,- 0D+4{ $ 0@7,- &,04 $& ~0@7,- 0D+	4 E D

T44 $ 0@7,- 4D4	 $ 0@7,-,04

4+4 $& ~0@7,- 0D+4 E D

T44 $ 0@7,-,044 	.$ D	4 	.$ D	4 	0Dz+?4@@	4

XB$4D>4! $ &

T (FQ&H`Q(H`2B@ & (

T *EQ(H`Q*H`2B@G4D54# $ 0@7,-Z& (,+Z 	Z(,+

Z& (,+Z+>4.45 $ 0@7,-Z& (,+Z &

T * (,+^Z& (,+Z464=4>4>4?Z$ D	4?@@	4AZ$ D

d4BQ~Y|,~     -----0          BY#?|PBX>I         BYS@BXeTABSTOP   ?{@JBYREADLINE  ?{?{BYFsXwXwXwXwXwXw \Q|>4C

`4De4W 	,~4YZ$ D4Db4\Z$ D

^+d4`4b,P4b4c+m4d 	.$0$0d-- - 
&0$0d?-$- 	&4Dk4m $ 	.&2f	@ D

`4mQ~Y|,~          BZ?|uB]vREADBUFFER?{?{B^NXwXwXwXwXw \Q|>4q $ 	0F@A

[4D4| 	 D	4 	 D	44

]0$0d+/+-4 	.$0$0d-- - 	.&0&0f-- - 
&0&0f?- - 	f F
&+/4Xw 4D4 	.$0$0d-- - 	.&0&0f-- - 
&0&0f?- - 	& F
&+$44 	.$0$0d-- - 	.&0&0f-- - 
&0&0f?- - 	f F
&4+/4# 	.$0$0d-- - 	.&0&0f-- - 
&0&0f?- - 	& F
&+/$/4$,U4/ 	/$ &2D	@ 	.(0(0h-- - *  
& K

K $;)L 0,@
G ( 
 L

L 
,;)L(0,@A4FB40Z$Xw D+I4? $ 
MpM;)H0(@B$4DI4BXw@@4GQ~Y|,~          ?{?|PBi&NEXTCHAR  ?{?{BiNXwXwXwXwXw \Q|>4I4W@@p4XZ$ Dp4YZ$ Dp4Z,U4\ 
&0&0f?- - 	f F
&4a4k4;)F0&+4k4+4

 ;)H0(@B$4D4 pB$4D4Z$ Dp4"p Dp4444 p0$ 0d-+

+^4 p1d+'4!^$ D	4#Z$ D

W4%+*4& p D	4'@@

W4)+

4* p D

[+

4+ p1$+94- p D	4/ 	&$ D	40@@	42

Y4D743 	 D	+945 	&$ D	47+

49 p0$+A4:"p D	4< 	 D	4=@@	4?+E4@@@	4A@@	4B p D	4C+

4D4EZ$ D

Y4F 	 D	4G@@	4I 	 D	4JZ$ D

^4K+

4M4N p D

Z4N

ZGp D

Z4P+

4R p D

Z+

4S p D

X+

4U p D

X+

4W p D

[+

4Y p D

Y+

4[ p1d1$- -" D

^+

4] p1d1$- -" D

]+

4` p1d1$- -" D

]+

4d p1d1$- -" D

\+

4g p1d1$- -" D

\+

4k4n p1d1$- -" D

\4o p1d1$- -" D

]4r p1d1$- -" D

^4u p1d1$- -" D

\4x p1d1$- -" D

]4{+

nU+EYS:

d`

[W]N

g4~X

Q~Y|,~

           C[?|!CvOCH       C<@kCOCASE     ?{@g#CM OSWITCH   Ck@Z#C}OVALUE    ?{@C-OPTIONS   ?{?{C^sXwXwXwXwXwXw \Q|> Dp4Z$ Dp4) 	 Dp4+

aB$4D24, 	 D	4.Z$ D

a4041

[A

d4D8424	,D	444	4D	45+;47 	.	/	/$ D	484; p r r ;)F0&+S4;,{4? 
&0F@AG

^4DD4E

^4DR4NZ$,

4P4Q+]4R $

^B&A4DY4S,{4W+S4X

^4D]4YZ$,

4[4\4] $ 	0F@A

X4Dc4]G	/$ D	4a4c,U4c $

`4Dc4d

`A

d4Dk4h,U4j p D	4k

aB$4Dp4l	D	4nQ~Y|,~OLDC[?|~CP@C}DOCOMMENT ?{?|uC./XwXwXwXwXw \Q|>4

p@@p4^$d "

U$/$0$0df "

U&0&?--".&/&0&0f

Gp/$0$0d- -$$ $

UQ$H`Q&H` (3B=h2B+(4Z$ Dp4 p/$0$0d- -

V4

^1d1$- -",/4$++4' p.$ Dp4(4*+

4+ p Dp4,Q~Y|,~          C#?|;C>I         CS@CeJ         C@2CLOCAL     ?{@Z#CE RESWORD   ?{@Z#Cv@=4d`C?{\XwXwXwXwXw \Q|>4- $

V0F@G

_4DH4C@@p+Z4G4H,) x Dp4I@@p4K p1D+Y4L p0D1D- - Z0D1D- -  "$4DY4NZ$ Dp4T

\1d1$- -",/4U4X4Y4YQ~Y|,~          Ck?|dCPOINTER   ?|a@z+C-FOUND     ?{@Z#C]PROCCALL  ?{@Z#C@=1$`C`?{XwXwXwXwXw \Q|> Dp4Z 	 Dp4m

aB$4Dt4oZ$ D

a4q 	 D	4r4t 	.	/	/$ D	4t4w,+4x

V  )F0&+4y,+4|

V0D4},N4+ $

V0FA

_4D4,	44 p1h#1(- -""S$@)D GG

V)D0$+x4 p D	4

a4

V2Dp+4,++4 p0D+4Z$,

+4Z$,

4Q~Y|,~p~`p          C$?|&C#WHICH     ?|#A`SC#EOLDSPACESM?{@C#uPARENTHESE?{?| C$&XwXwXwXwXwXw \Q|>4@@	4- $ 
  ;)H0(@

^B&A4D4.4548,U48

d4;Z$,'4>4@+4@4A,U4B

d4EZ$,'+Q4H4JZ$ D

V4J 	0D+P4LZ$,k4N4O+f4P4Q+4Q4R $ 	0F@ D

d4S@@p4V,U4W

WB$4Dd4X

;)F0&+d4Zp4`4b,U4b+Z4c pG

WB$4Dh4dZ$.,'4g+4hZ$>,'+4i4k,U4l+RkkAkkkkkk8kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkki4m+/4

U*$

V44! 	.$ D	4! 	0d++4# 	/$0$0d- -^$d

Uf4%,U4+ $ 
 
,;)F(0&@B$4D!4,, xB$4DE42,B xB$4DC45

V  )F0&+>47

\1d1$- -",/+B4;4>

]1d1$- -",/4?4B4BZ$

V4C4D+f4E4F4F 	.$ D	4G,U4I $

 ;)H0(@B$4DG4JZ$

V4O+U4Q,U4S+r4T

 ;)H0(@B$4DW4WZ$

V4]@@	4`4`4b+i4c,U4g4h

 ;)F0&+o4i,U4m+i4nZ$

V4o@@	4p4q4r+f4r4sZ$ D	4tZ$

V4u4w4w

\0D+4x 	.$0$0d-- - 	.&0&0f-- - 
&0&0f?- - 	f F
&4z4,U4 	.$ D	4 $

^G

`4Dx44
Z$,

4U4w	.$fD	4,U $

GG 
 
,;)F(0&@B$4D4Z$

V4+f4Z$ D

V+f44",U4!

V4$,U4%+)4&Z$ D

V4'4)+f4)4*,U4+ p4D04,@@p4-+-4.+24/Z$

V4042+f4243Z$ D

V44,U45Z$,k46+f4849Z$ D

V49,U4;

Z4D@4<,",4= 	,~4>4@+f4@4A

V4B,U4F+fAAAAAsAAAAAAAAFFFFFFFFFF 9AAAAA3*4G@@

d4f

c4Dr4g

aB$4Dr4i

V1D+q4k $, 0@7,-,04m@@

c4p4q4q4r

c4D}4r@@

c4t

V0D+y4uZ$ D

c+}4w4y $, 0@7,-,04y4|4}Q~Y|,~H(            |          CQ?|CP1         CQ3?{CPG

b111       CQc?|CPw

)I         CR@CQ%INCONDCOMPC3@Z#CQUINSYMBOL  ?{?{CRHXwXwXwXw \Q|>4

} 	 Dp4

aB$4D!4Z$ D

a4 	 D	44! 	.	/$ D	4!,*4$4%

V0$0d+,+)4%,R+:4(,+:4*+:4+4,

V0D4-,4/,*40+:(,,,*,,,,,,,,,,+41

V H G)F0&+%4: p D	4=Z$ D

a4?

V0D+D4@,*+E4BZ$,

4DQ~Y|,~~w!t          CY3?|NCXNOLDSPACESM?{@CXu
PARENTHESE?{?{CY&vXwXwXwXwXw \Q|>4E 	.$ D	4U 	 Dp4W

aB$4D^4XZ$ D

a4Z 	 D	4\4] 	/	.	/	.$ D	4^,+,	4a4c

V0D+g4c,+l4e4g

V0D4g,	4i,+4j4k

V u u)F0&+c4l p D	4o 	/$ D	4qQ~Y|,~~p          C_?|{C^&OLDSPACESMCYc@C^MCASEDEF   ?{?{C^~8XwXwXwXwXwXw \Q|>4s 	 Dp4

aB$4D
4Z$ D

a4 	 D	44	 	/	.	/	/$.	 D	4
,+4 $

V 
6 6)H0(@B$4D'4

V0$0d
++4,S+'4,+'44,	44,+4

V 7 7)F0&+4

V0D+#4 ,+4"+'+4#

aB$4D-4' 	/	 D	4)Z$ D

a4+4- p D	4-

V0D+24/,++441Z$,

42Q~Y|,~~p~x@          Cg+?|=CfFOLDSPACESM?|{@CfmRECDEF    ?{?{CgoXwXwXwXwXw \Q|> Dp4

4,!M4E

V0D+K4F,+4H,!M4I+F4J $ 
p1j#1*- -""
S&@)F(GnGn

V)F(0&@B$4Db4KZ$,

4T $

V 
 )H0(@B$4D[4U,+4Z,!M4[

V0D+a4\,+4^,!M4_+]4`+K4a

Z4Df4b 	/	,}4d

c4Dl4f@@

c4g $, 0@7,-,04h4kQ~Y|,~           Cn?|tCm6ENDSYM    ?{A`SCm]ENDEDSTATS?{?|qCn XwXwXwXwXw \Q|>4

aB$4D4{Z$ D

a4}Z$ 	/	/	,& x D	44,+4

ZG

Y4D4 	/	,}4Z$,B4

V0D+4

aB$4D4

Z$ D

a4Z$ 	/	/	,& x D	44,+4

Z4D4

V0D+4,",4 	/	,}44+Z$,

4Q~Y|,~          ?{?|"CsFCOMPSTAT  ?{?{CsntXwXwXwXwXw \Q|>4

aB$4D14)Z$ D

a4+Z$ 	/	,& x D	4-40,+41,!M42

V0D+;43

Z4D:45,",46 	,}47+:49+<4:Z$,

4;4<4=4=,+4>

V r r)F0&+>4?

V0D+S4B 	 Dp4D 	 D	4F 	.	 D	4GZ$ D

a4IZ$ D

b4K,+4L,!M4M

V0D+Q4N,+4P p D	4Q4S

V  )F0&+=4S

V s s)F1&+]4WZ$,

4Z+=4\

Z4D`4] 	/	,}4^

V0D+o4`,+4b

Y4Dg4c 	/	 D	4e

Z4Dn4g

V0D+k4h,",4j 	/	,}4k4m+pZ$,

4nQ~Y|,~`            C~k?|yC~OLDSPACESM?{@C~-CASESTAT  ?{?{C~^ 1XwXwXwXwXw \Q|>4
p

aB$4D 4 Z$ D

a4 Z$ 	/	,& x D	4 4 ,+4 ,!M4

V0D+ 4 
,+4

,!M4 
4

V0D+ 4  	/	,}4 Z$ D

a4  	/	 D	4 ,+,+4 + Z$,

4 Z$,B4

V0D+ .4

aB$4D %4 Z$ D

a4 Z$ 	/	/	,& x D	4 !4 %,+4 %

Z4D -4 &

V0D+ +4 (,",4 * 	/	,}4 +4 -+ /Z$,

4 -Q~Y|,~          ?{?| 4D^LOOPSTAT  ?{?{D!XwXwXwXwXw \Q|>4 / 	 Dp4 ;

bB$4D J4 <

aB$4D F4 >Z$ D

a4 @Z$ 	/	,& x D	4 B4 E 	.	/	.	/$ D	4 F4 I,+4 J,!M4 K

V0D+ _4 L

aB$4D U4 NZ$ D

a4 PZ$ 	/	,& x D	4 Q4 U

Z4D Z4 U,",4 W 	,}4 X+ \4 YZ$ D

b4 Z,+4 \,!M4 ]+ `Z$,

4 ^

V0D+ w4 ` 	/	,}4 b

aB$4D k4 dZ$ D

a4 fZ$ 	/	,& x D	4 g4 k

[B$A

Z4D q4 k,",4 n 	,}4 o+ s4 pZ$ D

b4 qZ$ D

b4 s,+4 t,!M4 u4 vZ$ D

a4 w

V0D+ {4 x,",4 z 	/	,}4 { p D	4 }Q~Y|,~          D;?|!DVOLDSPACESM?{@D}IFSTAT    ?{?{D.!XwXwXwXwXw \Q|>4
$	$	 D	4!

a4!,+4!

Z4D!4! 	/	,}4!Q~Y|,~          ?{?|!D>LABELSTAT ?{?{Df!EXwXwXwXwXw \Q|>4
!

aB$4D!(4!!Z$ D

a4!#Z$ 	/	,& x D	4!$4!(,+4!(

ZG

Y4D!-4!) 	/	,}4!+Z$,B4!-

V0D+!B4!/

aB$4D!84!1Z$ D

a4!3Z$ 	/	,& x D	4!44!8,+4!8,!M4!9

Z4D!A4!:

V0D+!?4!<,",4!> 	/	,}4!?4!A+!CZ$,

4!AQ~Y|,~          ?{?|!HDREPEATSTAT?{?{DF"XwXwXwXwXwXw \Q|>4!C 	 Dp4!O

V0D

+!W4!Q,+4!S

V0D+!W4!T,!

4!V4!W

V  )F0&+!v4!W

bB$4D!h4![

Z4D!`4!] 	/	,~4!^ $

V1F@4D!f4!` 	.	 D	+!h4!c 	.	 D	4!f4!h

V0$0d
+!u+!k4!h,z+!u4!k,+!u4!m,(+!u4!n, 9+!u4!p,!+!u!k!n!m!q!p4!q+"4!u

Z4D!}4!v

V " ")F0&+!}4!x 	/	,~4!{ $

V 
" ")H0(@B$4D",++!~4!}

V0D+"4"

bB$4D"4"Z$ D

a4" 	 D	4"	 	.	 D	4"

ZB$G

Y4D"4"

Z$ D

b4"4",+4",!M4"

V0D+"4",",4" 	/	,~4"4"4" p D	4"Q~Y|,~0@          D$?|"'D#.OLDSPACESMD"$@D#UCURBLOCKNRCnL"@"!D$STATEMENT ?{?{D$6"RXwXwXwXwXwXw \Q|>4

`B$@&A4D"54".,U4"3+"/4"4 $ 
"Q "Q ;)H0(@

`B&A 	.&0&0f-- - ( 
&0F@A4D"O4"54"B,U4"D+"M4"JZ$>ODp4"K4"L p,'4"M4"NQ~Y|,~          D*K?|"WD)fLASTCH   ?{@kD*

_4"\^$ Dp4"]4"_,,4"_

V  )F0&+"_4"` 	.$ D	4"d 	$	 D	4"f4"h@@

a4"h

V0D+#4"i 	/	,~4"kZ$ D

a4"mZ$ 	/	,& x D	4"oZ$ D

`4"r,,4"tQ$

UX$

T*$

U4"u $ 0@7,-,04"w $ 0@7,- &$ Z( *

,+^ &$# * (,+^ &Z( *,+^ &$# * (,+^ &

T * (,+^ &$$ * (,+^4"z

XB$4D#4# $ 0@7,- &$$ * (,+^4#
Z$ 	 Fp Dp2dp+# $ 0@7,- pZ(,+

 &$% * (,+^:p+#4#4#4#,,4#

V  )F0&+#4#4#

V  )F0&+#H4# 	/	,~4#"Z$ D

a4#$Z$ 	/	,& x D	4#&

Z4D#.4#),"-4#+ 	,~4#,4#-,,4#. $

V 
 )H0(@B$4D#G4#/4#4,
4#4,,4#5

V0D+#:4#6,,4#8+#44#9 $ $& $%GG

V)F(0&@B$4D#E

V0D
+#C4#:,+#D4#B,,+#;4#C,,4#E+#/4#F+#4#G@@

_4#H

V  )F0&+#_4#I 	/	,~4#LZ$ D

a4#NZ$ 	/	,& x D	4#P

V1D+#Z4#S,,4#U

V0D4#V,O4#X4#Y,"Z4#Z

V0D+#^4#[,,4#]+#I

aB$4D"h4#^

Z4D#d4#` 	/	,~4#b 	/$ D	4#d 	$	 D	4#f $

V 
$' $&)H0(@B$4D#|4#h $ 	0F@ &

V0H@A4D#t4#mZ$ D

_+#v4#rZ$,

4#t $

V 
$( $')H0(@B$4D#|,,+#v4#v

V0D+#4#|,!N+$4#~

_B$4D$4#Z$ D

a4$,,4$4$ 	0D+$4$

`4D$4$

44D$Z$,

4$	 	/$ D	4$4$

V1D+$4$

4$ $ 0@7,-,04$ $ 0@7,- 	Z(,+

&$(;*	<(	,+^,04$4$ 	.$,~4$4$,4$Q~Y|,~PFORM/LOTS 1.1  4-SEP-80:  [  ] Page..0 @0 @ error(s) detected          DES?|2DDnPOPLIST   DF,$/B'KDEI         CRDx@DE=WHATTOPOP B D"WDF[DEmDFR<4$""  D.4$6,(4$9,@4$:Z$ D

`B$ &

V0H@G5D$D4$>,%4$B+$=4$C $ 0@7,-6D $B$4D$a4$D $ 0@7,- B$4D$Z4$I $= ~0@7,- && ~0@7,-  F4$M $ 0@7,- &,04$R $, 0@7,- &,04$V+$I4$Y $ 0@7,-,04$Z $, 0@7,-,04$]+$E4$`

W4D$j4$a $ 0@7,- /Z(,+

 &%0 * (,+^,04$c4$i"" /. D.4$j $ 0@7,- &%4 * (,+^ .&&j0Z(,+

Z& (,+Z4$m .&$j0 F.4$u .&$t0$+$~4$w $ 0@7,-Z& (,+Z4$y4$} $ 0@7,- .&&tZ(,+

Z& (,+Z4$~ .&$t F.4% .0$2+%4% .0$+%4% $ 0@7,- &%5 * (,+^4%
+%4% $ 0@7,-Z& (,+Z4%4%4% $ 0@7,- .Z(,+

,04%+7.+%+%g " B* ,5B% @+ N+ R,O@, < \J < \KZ&1\ < .<Q<pX>pQ \- ^- $-"8w $ "@f@j@n,-: $ "@f@j@n,-( `B`b+$6,+$6 procedure and function definitionsRuntime: 00T         ED%8@YDVNORMAL    Ds4%;Ds#DVD@CMMODES   Dy$%=Ds#DVtCMINI     Dq

%@?|'GDWCMIFID[#?|%B?|'DWFCMFIL?|%^Dn$%E?|'DWnCMCFM?Dc%G?{DXCMATOM[$@Db%K@&DX>@??CMACT%`Da<%O@&DX~@>zT ?BYTESETD^L%R?|&DY>ARRSET\M$DZ|%T?|%nDYfANYVERSION?|@Z$DZ        D^A[T%qD]-$STCMA     ?{A[;D]]BYTEWRITE D^s?|%D^CAPITALIZEDM#@D^4@CASETYPE DLo@g#D^dCH   De?{@kD

t@?CMDEFEPLUS?{?|&*DdFDEFAULTrPA?{A[;DdmCMDIRWK15<Df@De@?tD?CMDNuDDfC?|&>De^CMERR?BDgD&8@Z#Df@>`Dd?CMDO!?{@DfF@>Q??CMERRMSGCO?{?{DgR';DvE?{DhDg-$DgXd&C?xYEAR   ??Dm&FDn&FDgupMONTHE/@AtDjt&IDmd&IDh%`DAYOFMONTHDlD&LDmD&dDhUpDAYLIGHTSA?{@Z$&ODiP@(ZONEINPUT?|&R@Z$&\Di5P@ZONECM?{DjT&WDieP@DjF!SECONDS?,?{Dk#Dj5`Dj`R!JULIANDAY?|&@Z$&zDkP@DUM?CM?{Dl$&RDk5P@Dk`H!DAYOFWEEKDkCDlt&iDl`Dl0R!ZONEUSED@?|&O@Z$&LDlUP@0DmR!DmR!Dm@R!CMFLT~@?%DoT&v@a[Dmf@?#T ?CMFLD>@>}?{@&zDn&@?dL?SD}~@>M?{A[;DneCMHLP{A[?{?|&DoHELPTEXT??{A[;Do=FOK     E?{A[SDom$F  E(@?{A[SDp$CMINIR    Dq3?|'DDpNCMMODE ?|'Ds#Dpv@??dE?CMKEYTN   ?|'@'Dq6@?9 ?CMINT     ?{@Dqv@>O ?T         ?{@X{Dr5Dr`A'RESCAN    Dx'Ds$%8Drt@PUTSTR    A|$' ?|'5Ds&NUL       Dt<
?|(eE	HT        E
4M@E	D@LINSIZE   ED(V@E	t@,LINSIZ1PLU?|(Y@E
$@,LINNUMSIZE?|W@E
T@LINSIZPLUSEs@E@-MAXINCBEFAULTPR?{A[;E

DEFAULT_NA?{A[;E

EFLAGS_AND_?{@E

uSTUFFN   A?{A[;ETADRECRLENET(yDhE,TABLESIZEUEl(|@ET@rTABLEINDEX?{@tkETABS      ?{EE-XEXdE4fEpE!TBMAK     E|)	@X|)&E@?=4 ?TBADD     ?{?|)EVT         EL)@X|)E}KEY       ?|)A[<)E-BITS      ?{@E](VALUE     ?{@)E

F@E@UPPERCASE B4&@EL@)

PFORM/LOTSSIZE      ?{@E-INTEGER   Ed),@E\CHAR      @]t).@kEBOOLEAN   E)1@Z#E,ALFA      E|)3@rkETABS       ?{?{E~@TIME      ALFALENG  E+@E<@APPEND    ES?{EnARCTAN    ?|)A@aXE@?\ ARCSIN    ?|)E@aXEV@?U ARCCOS    ?{@aXE@?T BREAK     E;?{EVBREAKIN   ?{?{E~REAL      E#,)P@a[E$POINTER   E )SE#EO@NIL       Et)VEsEt@MAXINT    Ed)Y@E$@?MARK      ?|)[?{EVJSYS      Ec?{E~LN        E#@aXE&@?] LOG       ?{@aXEf@?[ NEW       E?{E&NEWZ      E3?{ENNEXTFILE  ?{@Ev@?|OUTPUT    E$)r@]cE5 HODD       Ec?{Ef@0TRUNC     ORD       ?{?{E&@8ODD       PACK      EK?{EfPAGE      ?{?{EE0RPUT       E!*?{EFPRED      E k?{En@HCHR       PROTECTION?{?{E .PUTLN     E!;?{E VREAD      E"t*?{E ~PUTX      E"?{E!&RCLOSE    ?|*?{E!NRANDOM    ?{@aXE!v@?S READLN    ?{?{E"6E"XdTEXT      @Z4*@]cE"lSTRING    E)D*A[;E#@RESET     E%4*"?{E#>RELEASE   E%

*$?{E#fRECSIZE   ?{?{E$@xROUND     RENAME    ?{?{E$NREWRITE   E%[?{E$vSETPOS    E'*0?{E%RUNTIME   ?|*4?{E%F@DATE      ROUND     ?{?{E&@pEOLN      SQR       E)*<?{E&F@ ABS       SIN       E(@aXE'@?fd SIND      E(C@aXE'F@?Z SINH      ?{@aXE(@?X SQRT      ?{@aXE(F@?^ STRSET    E)k?{E)STRWRITE  E*?{E).SUCC      E*S?{E)V@PPRED      TANH      ?{@aXE*@?V

d%%5))!FORM.PAS.9                                                                                                                                                      "  Bx,~Z	+ ,~\ !&

,~ " Bx+0*w@@x,~ @+4h*{  ,*x=h*y,~ . @

5&*~l,/.#4&+,~el,~  +*x  ,*x=n+,^x,~4h+1h++  ,*x=+ 
,a^"'z4B+	`8"+. ,*x=h+	,~,*{4F+&&,>9

`L++@,>8

1.0 .0/.0 (8,*y,*,^. ,*x=l+,~4h+1h++  ,*x=+ 
,b^"'{4B+`8"+.0.,*x=h+,~<.+!,*x=l+4l+*4F+(6,b1b@/"QBd&~$&.,*x=l+"4l+*  ,*x=l+(,~1( (1* *+0+-F+0,c,*{@5F+0  [6++72&,d++32&,d++5,d=+1,d82&,d++3(,e/(@d&~(F 1J'++B (8/(( "(.,+W40+>X,@1(0 (00@[6@++@1( (X,# 0k

,~0b "0".

,e2&,j+,j,~<h+\+,*x=h+[,*x,~Q&A`7Q&I4h+d1h(++b+,*x=+`,*x=h+b,~<(+w.,,N++n.,++z<(+z .N++x`J L(>,~@@(,~6@"&1( (/(,*y ( 
,m,*x=h,,~truefalse6@,~ ,,~,^x,~6@+,,6@+, 1@+,7@1@+,@@
1@+,0@,~ *7@, ,~+0,1`1 ,~/ $(.7@, +,1`1 +,n,~,>,>,> ,7 x 	, ~/  	,,^,^,^,^/"+,^x,^x @  c@+,@h@@  @ @,~1`1 +,o,~,,	,,),,6@"+0,p H,~1`1 +,q,~,,	,,/,,6@" H,~3Lf,,	@1@+,@,,1`1 +,@0p9,>3(,4+,<3H,40`9,>/ $(.7@, +,7 0@+,J6@+,J, 1`1 +,J0p9,J3(,4+,H3H,40`9,J/ $(.=,A

 .(0@"1@2+,M+,O7@,,,1.l4P,V ,d#aH+,T0p

1p

(H4H,V+,Q+0,r6@"

,L,~*b,Z

H6$@++.! 06  Lf3=8P"@,>&&,^88++ZH,  T+,#  +,#  +,$  T+,#  U+,$  " $ - x :+ ".bJ1B+,{3"(+- ,~1d $+,w,>,,w,^4d,z@@<d,z.Q X * +,z x,- $,~ @L 9~* S L\"9~Z( 
:."=h-Z4F--df+-,+-/:ad+-ad+-/&p-@,ZFK\"::	*\L,K+-\":	<:	*/L,~\":e-x,-$,~\":e,-+\":e,-,~\":e,-+\":e,-+,>@\":e,-,^,~,-\d,Zh,d`h,/f,.%	,	,,/[+-(,0(,^,^@@@@,^Q" 4-R,~,> 0@7,7f,^3P: @2J: aj+-b,-w L N

d@hA@"QX"lB`Pl

: Q  @ " B :" B

,>!&7@7Dx@,0(,^@@@@@@Z@
QA`4B.0D+.<b.<0d0/$0$!0d*+.+@-b5b-{,^,^,^,~,.+.lll+.+..*+.+.+.,.1D+.+. ,^,^,~,^,^,^x \":#e ~,-+.:Q /6X * 	,^x,~6@,~ Z'4/U*":%1b5B.1 "[A01P "1P "1P "1P "0P1P "! p7

.8X * 	,~/./..?.H.P.Y.a.H.j.r.{//

///%4a4i5O5Q.B6m6m5T5q5n-1/P-1-10V0`5W5d6m6m.K5\5i6m5q5n5u5u-1-10V0`10x5O5Q45.S6m6m5T4L4`423v4)4'0V0`3\3`6m6m45.\3d3i6m4L4`423v4)-10V0`54i5O5Q.d6m6m5T5+5n55-1-15=5M1-11-1.m6m6m-10"0!-1/P-1-10V0`1-16m6m.u1-16m0"0!-1/P-1-10V0`88	5O5Q8M.~6m6m5T6m6m88H8M4'0V0`8c8g6m6m8M/8k6m6m6m6m88H8M-10V0`88	5O5Q8M/6m6m5T8^5n88C8M-10V0`8c8g6m6m8M/8k6m6m8^5n88C8M-10V0`66666G/ 6m6m5T6m6m6J6$6G-10V0`5v5}6m6m/(6m6m6m5q5n5u5u-1-10V0`7@7@7@7@/17@7@7@7@7@-16N-1-17@7@4n55O5Q/96m6m5T6m6m5-1-1-155-1-1-1-1/B-1-1-1-1-1-1-1-1-1-10`7@7@7@7@/J7@7@7@7@7@-1-1-1-17@7@6@,~ Z@ 4/U ,~  "Z  B  B BQ /?X * 	 ,~7@+/e `@+/e ,7 \":&

l,

 ,~:x,~6@,~`fl, `f+05H/{6@,~  G@ X>xX(@Q(:(*(@ :*S &@)@. @@=f/p  @  *@@@  \$@4/x+0al+0d,l+/v  B@ Q"A`X"xh X> Q*" @B \$@40   B,~  `B+:* ":,e " U$@+ + \":,\"@\":-  l,   "BB l" :040  B,~ ":,e " U$@+ + \":-+0++++ 	+ 	+ 	+ 	+ 	+@@x,~5H0#7@,~+1!&+0&e&l& 0B7,7f "*	6@, 4@08`f+02@@ aB+02ZQ"	46o407Q"407+08ZP	46o405+08`f+08Z	46o408 "*4B0@,>,>[$:0Q$OQ&46o40?,^,9f,^Q /GX * 	,~ 	+,>,> :" B

"	,,^,^,!&,0(a+0P+Bx,~,@"A$0D+0U,@@x@@,~,7@@x,~,>,>,>\":1,0,>",x,&J+\":4,^,^,^,^,~\":4,-\":6+,>,>,>,>6@+0i : ad+0rad +0r \$:9@ , 0B"1B21+0u ~\":B,- 	,+0e \$:D@ ,,^,^,^,^,~:2b B? , B40~,~  "G B +7,>,> :J "d$1D+1

  !!""##$$%%&&''(())**++,,--..//00112233445566778899::;;<<==>>??@@AABBCCDDEEFFGGHHx

  !!""##$$%%&&''(())**++,,--..//0 !!""##$$%%&&''(())**++,,-=>>??x

  !!""##$$%%&&''(())**++,,--..//00112233445566778899::;;<<==>>??@@AABBCCDDEEFFGGHHx

  !!""##$$%%&&''(())**++,,--..//0 !!""##$$%%&&''(())**++,,-=>>??  @

:,.@".`5@1..@,`+1 
 @,~>,^x,~ /0"2"
+3P,>Z(B.XB
,@+3Y,>,>XQYQ&PZ(D{Q$46o43Z,^,^ @
:x,~,^,^+7 F"QX&,3l_.F,~ F"QX&,3q_.F,~ /"QX&.,3l_.F,~ /,4W,~ +3`:2b+1? ,40~ B*f3l,~:2b B? , B40~*f3q,~6@,~  3C @ :S (@

 @l @P@
  &(@ @`N +4aN+4`N+4  0| @  40 @	,/P6@,~,4@+4,/P6@,~Z 
4/Uad+4
 @@+4 XQ"	4/TQ /

7X*	+8Ch4,4+4,4@6@,~,4 @+4Lh +4
,4! X@
,~[4@4%3@,~,>,,9f,^,9C B,~:T0@,~:,~7,~4[$:0Q$OQ&46o47 ,~,>,>+4>@@O@3B+4K/&,> (&&.& (&$,^ F@ ,~ 
,4W,~@@6B1BH+4P+4Rh@@@4 / Bh
,H:x,~,^x,~44Bx,~@@Z,>44m4D4c,^*A"?4BZB2B:R,~+1(Z,>46o44m,^,~,^,^+7? ,4q4B4n+4e\
 ",4!+/P6@
+82,>:W,>:W Q,>\,>,>:X "~*46o45.  	/x>}4 5  @XQ A` @,~@@6@
,82+5q>}+7ZB
,~,>,>,>XQ A`Z@Z.( 
 `3D+5:Z2d+5:8+54$6@Z,^,^,^,~,>,>,>,>,5/Z  @$Z1d+5F\$:V@ $< 5H+5F $/\$:V@,^,^,^,^,~,5Z+0c,6@,~7`+5N+   @,   @+   @,   @+ 
Z(X$(Q$I F("@45b,~ 
Z(X$(Q$I.( F(/("@45b,~.F( +7 
Z(X$(Q$I F("@46o45b,~ 
Z(47/(47 (+5d Z 47 Dx,~ 
 Z  47 +4N,/P@@,~ 
Z(X$(Q$I F( "@,45b. F(,~ 
Z(X$(Q$I F("@-46o45b,~  Bx,~? +6 B,~ "N B+7? +6

A"?4B6 @@ZB,~ "6 B " B " B,~,>,>Z". -46o43Z,^  B 
 B,^,~ "7f+6B=f6@@+6 "6 B,>,>Z" ,43Z,^./& F 
 B,^+6	6@,~,/P,84 
 @  @Z1@24  1+1@2}  1tX@6@,6

6@,~ Z@'$:X0D+4,>:Y,>:,>:Z@ $ &46D 1B+6D\"@@Z@ &@\(:Y

46D 2B:Z+6D\"\(:[

46?\" &J46? +6AZ@ $46D2f@+6F F@ F@ "6 B@>~ ,~>~ +66@,~ 2B+,~6@+6

  B 
 B,~6@,~,>:\,>:,>:,>:,>: 6@+6]Z@ $ &~46k ~1B+6k\"x@@xZ@ &@\(:Y

46k x3B:\+6k ,/P+6c,/PZ@ $,&~46h ~1B+6h+x1B*+6h>}+7>,> "d$0D1D#+6| [1D!`+6x1D!p+6y,^,^,~ZXD+6vZ,^*x>:x+x\":Je,>Z~/$XD~ & " J+ \":N,^,^,^<,~ +7
7 ,>`"Z,^+B\@ @6Q$@+ + \":,7@ ,~ " Z @

\":V,~,>,>Z
Z

 .$ 82d2d+7!@,0(@@@@8O@?P3.T97,^,^ + ,>,>

 
.
 .$ 82$2$+7+@,0(@@@@8O@?P3.T97',^,^,~ .$7D8+72@,0(@@@@8O@?P3.T97.<\":]e+73  @x,~7@,~ ,7,~7B+7>Z
475$7>ed+7>
47 h @@@,~  "6 B +7,7f

:d&l&PFm\"@A(\(Br"m@+7LB@,~1B-+7F1B'+7W(Q"A`0B1B+7a/":,e"U$@++\":V+7F\":"\$"&\":f0Pb1Pt+7"\$"&+7`\":j\":V+7Fml"d"\$0Pb1Pt\$:k+7Q+7K,>Q"PX"t:@*b7h5"7pD0 "02bT BTQ"7qX*" " B B

:" .`5 8,8!`+8,>,>Z" 46o48,^ /" B 
 B,^,~,^,^>+76@
+82,>,>Z" 48),^ /" B 
 B,^,~,^ &$.4F8/& F 
 B " *ZF
,^,~> 
 @@@
+7`NaN+86+6m  6m7@ @6@ @ ",4! :S(@

l @X @
@@7@ @  ":S&(@ @@@7@ @@@
@@,~6@,~,/P,84 
 @  @,~6@,~,84 Q I @   @d.pl.@+/P6@,~ d `R(B}P@b &  /4@-1&6@. ,>,>"Z 46o48,^,^ 
 @  @,~,8M,8_+5q7@,~@@@@6@
,82,~ F"QX&,8p_.F,~ F"QX&,8s_.F,~ /"QX&.,8p_.F,~? ,8! B*f8p,~? ,8 B*f8s,~-"8w,~

[
(/*l
.*QJ(2*(+8O (D{Q$@.*+8z[
( J(3@@l :n* o@@W :o* i :o @Z @[ :p @\ " :p*!$6@l$

,+ "$6D@@@@3"T99@@TO@t :q*"#O@C :q* I! | @J ((D{&$<$9@@C4D9 :q* C4F9! "(B@C@@@@ :r* 
: :" @ @%  T @  7 @ @(@@o@@p@@p@@q+8>,>,> VZ0"*u0b,a+9*+9/3:(+9/[A"@0(B}dBG"\

91e,-,^,^>~/:t:v:::x:z:}: :\":e V,-\";+73mnno l

99 Bm,~ "*m6@7@,~,> @@ "-,^,~,>m,>7@m,9;,^,>,>,>,>,>0b+9c!$"(,>S$x  C &(`9O*d9L+9d.L
CL

C)JcJx+9S(@.&+9M 
x@

")JBJCBLCd$$$.(D (F.2&J+9d2f( F( Q,^x,^,^,^,^,^,>7@,9=,^,^x,~\";e+73\";

e+73,>m,>,>,>7@m,9;! @[0d+9c"(Z(D{&$")@G@CGBC,^,^,^,^7@+9=,~ ,9CZB d"(B{ B,~0d1f+9| .0d+9|(F Q+9f\";e+73L at user PC $

@|
[Type POPJ 17,$X to continue if possible, but don't trust any results] 
iH
[Type CONTINUE to proceed if possible, but don't trust any results]
Uninitialized fileArray index out of boundsNo memory for heapUninitialzed or NIL pointerScalar out of rangeToo many files open at once241+2}1t----- Error in option stringTry another file spec: PAS-INTERNAL.@  +/T  - 
Try another file spec:  $[Error at character number ]
Call to READ
[Skipping bad character]

[Try again, from the beginning of the bad number.]
[Or type D to enter the debugger.]
Call to READ 
[Try again, from the beginning of the bad number.]

H Quota exceeded or disk full at 
[Find some space, then type CONTINUE]
x<

0
0@0 }
!
$$FORMATFRECORDUCan't continue
 : 
    One of the following:
	File spec for the PASCAL file 
	Carriage return to use default, your terminalTTY:[INPUT, end with ^Z: ]
}HmzxX

9&

95zHWn@th0CpEvhr divide checkFloating overflowFloating divide checkFloating underflowNo space left for stack or local variablesCan't continue without stack
Internal error: buffer request exceeds 36 pagesRequest for buffer space runs into heap Relpages: page numbers must be 1 to 777B

  !!""##< xIxxHx?2gHqGX`GXhGXp@6`| " Bx,~6`|+;u6@|+;xO@| D{ F{ " 4;w4b;w " $X$+ $ & x B|,;x " By $;[,= x5B;w!$,<h $},<aZ	+ ,=7@z+;w " B|O@}@@y | Bx,~<O@|+;x { {@@} =H* w@@w =H* z0&1+<Q$A` =I4F;@=f;}@@ x @ \ ^ "q $=I2,~7@}+<+73\"=Ke " U$@+ + \"=L\"?\"=L,~\"=Ge " Q$A`@+<,<,<Z0`x+<    @x@@z@@y@@x v1Hg,~   	+ :v+<7=O\"=Pe<+<6@z+<+(B

  
,0 x B0,^x,~ 0 Bx,~@@x:z6@y,~+<@1DO @y,~ z @x,~ ."bwQ"0"+<]Q$A` w7@x+<R  @  @4F<T@=f<R Bw@@ =X @x,~0&2+<^Q$A` =Y By4F<[@=f<Z@@,~\"=Y+<\"=]+< (+<a (+<a ( 0@7,7f,0%  @,< D >v1"S+<{ H,~@@ =`*  D,~ ( *1+<u ( *5+<u ( *9+<u ( *=+<u ( *A+<u ( *E+<u D,~0&+<^Q$A`Q*A` J 4F<y@=f<x@@,~\"=`e+<,>.$,,w,^ B Dx,~,>,>,>,>,>.*&*0L.* $(,,w,^l  @,^,^Q&A` (Q(A`4B=@=b=
@@,^Q,^*/,~7=b ",<Z`b " @x,~7=c "@,<,~7=c $ ",< Dx,~7=c $ "
,< Dx,~0&2+="Q$A` =d4F= @=f=@@ =d,~\"=d+<,= ",<,~,= "	,<,~ "Q$A` =h4F=.4@=+<&=.@9=)4F=-  @=f=, Bx,~\"=h+<{7=j "  
@,<  +=' "+=0 "
+=0 "+=07=k@ ",< Dx,~7=k "@,< Dx,~ "+=;7=k!$ ",< Dx,~!$+=?Q$ ",<,~Q$+=BQ$+=BERUNRUNSTARTG:Xq~xxHI  - 
Prompt is too long
|=MReparse requested from block outside CMPROMPT
Too many options after CMMULT
HqHgHelp text too long for buffer
Default too long for buffer
xToo many jfn's
HArgument too large for buffer
H?Field too big
@