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

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

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

`[0`[@

AND

E
A

5Error in block structure: BEGIN expectedMissing   'END'  statement              Missi

=ng   'THEN'   for   'IF'           Missing    'OF'   in    'CASE'          Missing

F'EXIT'   in   'LOOP'          Missing right parenthesis               Missing closing

N quote on this line      WARNING: This file has no main body     Missing closing poin

Wt at end of program.Line too long. I'm gonna get confused.

aMissing  'UNTIL'  for  'REPEAT'

]Missing right bracket

eMissing close comment at end of program.	 HHHH"HFHHH$0 @BDFHH	( R\Q|> Dp Fp174 p2dp+4

 p Dp+	(4 p Dp4Q~Y|,~          @s?|@NA         @#@T@u	 B         ?{@S@%@PdMIN       ?{@T@f@?| @?{@h	-pS	( P(",R\Q|> Dp Fp4 p3$p+)4% p Dp+*4' p Dp	(H*4)Q~Y|,~          @s?|5@NA         @#@T2@uB         $3?{@S@%MAX       ?{@T/@V@=a4 @(?{@M"-@" 9H	(9XXwXwXwXwXwXw \Q|>4*Z$, xXw D4>	 
BXw Z& ( *Z,,4AXw Z& ( *Z,,E4EXw	 "J Z& ( *Z,,I4I^$d9Z&) "pf4MXw Z& (p	 Q@S *Z,,M4PZ$,? xXw D4TXw Z& ( *Z,,T	(@ ([4WZ$,U xXw D4[Xw Z& ( *Z,,[4^Xw 	  dZ& ( *Z,,b4bXw Z& ( *Z,,f4fXw Z&	  l ( *Z,,j4jZ$	,\ xXw D4nXw Z& ( *Z,	*@u,n4qXw Z& ( *Z,,u4uXw Z& ( *Z,,y	(
}4yXw Z& ( *Z,,}4}Xw Z& ( *Z,,4	 (
XwZZ& (Z*Z,,4XwZ&(Z*Z,,	4	Xw	Xw(ZZ& (Z*Z,,Xw Z&	  ( *Z,,4Xw Z& ( *Z,,!4!Xw Z& (	 P( *Z,,%4%Xw Z& ( *Z,,)4)Xw Z&	 ( *	"@P0Z,,-4-Xw Z& ( *Z,,141Xw Z& ( *Z,*@9,545Xw Z& ( *Z,,949Q~Y|,~	 ?STARTRUNERUNHELPUPPERCASESAMECASELOWERCASECAPITALIZEVERSION:TASMANIANSUPER	 HSTRING-CASE:SAVE-COMMENTRESERVED-CASE:QUIETPROCEDURE-CASE:PRESERVENONRESERVE	 PD-CASE:INDENT:FORCEELSEIFDENNYCOUNTCOMMENT-CASE:CASE:BEGIN:BAR     	$@P@Y     @3?|e@INVISIBLE @c@S@4@RSTRING   ?{@@e@.ad9@<b@(G@8ADEFINEOPTI?{?{@^D
G=_
R:_
S9@	@<?@|@@	<@@A@

A@

LB@

C@@<E@|F@<G@|H@<I@|K@<L@|M@<N@|O@x@<Q@|R@<S@|T@<T@|U@<V@|W@<X	(*hXwXwXwXwXwXw \Q|>4=^$ Di4m@@

'4n@@

)	*E(U
p4o@@

*4pZ$ D

,4q@@

+4sZ$ D

.4t@@

(4uZ$ D

,4v@@

)	(Q*U
y4xZ$ D

-4yZ$ Dk4z@@

*4|@@

+4}@@

'4~Z$ D

-4Xw	"U*@@@4@@m4@@l4@@l4@@

(4Q~Y|,~          ?{?|
 
@!SETDEFAULT?{?{@!.DMPtkMP~hMPh	((i	(U
"4Z$ D

'44 k0$+4Z$ Dk44 m0$+"4	*U*U*"m Dl4 l Dl4@@m4 +%4!@@l4"@@l4#4$

)4D,	*U*&4% k Dl4&@@m4( k Dl4)Z$ D

.4*4,Xw 1D+A	(((/4,Xw 1d1$-  D

.4/Xw 1d1$- 1 D

-42Xw 	 TT71d1$- 5 D

-46Xw 1d1$- 8 D

,49Xw 1d1$- <*@@@ D

,4=4@Q~Y|,~wXwX?{?|E@(6GETOPTIONS?{?{@(^D(T\7(T\:"@@P,4P4QQ~Y|,~V?Qd?{?|V@*>ERRCHECK@?{?{@*fD]lK]lH]lH	(XwXwXwXwXwXwXw\Q|>4Q	,4]Z$,4	(P*a$&,4`$4D4	4Xw 	** 
|4v
|@`@1d#HH	($XwXwXwXwXwXw^\Q|>	4$1D	 (5@ ( 
p	0*@A4FE4/ p	/$0$0d- 2^$d# p	/&	 D@*>0&0f- ;^&f$ "p& "pf49 p	.$ Dp	4B+04D p		 P
F/$0$0d- ?^$d$"p$1D+N4E p	.$ Dp	4K4M p		 @O/$0$0d- H^$d#Z& "pf4N p	.$/$0$0d- P^$	(Wd#Z&7 "pf4S p	.$/$0$0d- V^$d#Z&2 "pf4Y	 ` p	.$/$0$0d- \^$d#Z&; "pf4 p	.$/$0$0d	(@(h- b^$d#Z& "pf4e $
q+4p$$&,4q,4s~$&,g4u|$p~&,4w	*U*y$@NEW          @A?|!@@^JFNS      @B@S@A@

FIELD	%pLENGT@Ac@S@A4@FLPLUS5   ?{@S@Ad@OLDNAME   @C,@C[@B	  NEWNAME   ?{@Bs@BEH@Bpd#@C

b@CFPTR       ?{@S  @C-@CXd$@Ctb@CpFSTARTNEW  ?{?{@DDV?Qd(V?Qj%V?Qk#@~@>$@>D@>\	( U#8R\Q|>4,=4% $ &,s4&,4( pB$4D.4)	 U Q*, $ &,(4+4-,\4. pB$4D34/Z$,4142,k43	(T@ 444,44,{45 p, x Dp46, x Dp49 p1D+ 	*@A*=4;,K4=, x2$0d++4>, x Di+4A4D $	 E(UE &,4DZ$ D

)4F+4HZ$ D

*+4I4K p, x1d	"U Q*N1$- ? D

,4K+4O4P $ &,F4QZ$ D

+4S+4T4U	"*E(V p,L x1d1$- N D

.4V+4ZZ$ D

(+4[4] p,W	 *E
_ x1d1$- Y D

,4]+4a4b $Q &,R4cZ$ D

)4e+	*
U
g4f4g p,^ x1d1$- ` D

-4h+4l,B x Dk+4m	(*E(p4o $ &

*4r+4sZ$ D

++4t4v $ &	*(@*x,q4wZ$ D

'4y+4z4{ p,i x1d1$- k D

-4|+	(@"Q*4 p,} x1d1$-  Dp+4,m x Dm+44 $	"E*U*	 &	,x4Z$ D

(4
+{mg	*U*U*]UKADIP[	*U*U(botv4

+44,K4  $
T#@*Q*(,.O@",4!,4&,(4'Q~Y|,~	@*Oldsource?@FORMATINDENTATIONNEWLINESINSTANDARD PLACESPROCEDUREANDF	  3UNCTION&DECLARATIONSFORMATFORRCOMMENTSw/E@[TY@]#@W+?|t@WCASESCOUNT	<8`;@g4=@S@W,@CASES     ?|@@X<0@W]CALLTABLE ?{@X<H@X
hTRUNC     ?{?{@[@(SQR  @\STTYOU	%]TPUT	@\@]#@[U@{@\VWRITELN   ?{?{@\~@] dbFALSE     @d

n@Yc@]4@CLOSE	&n     @^Lp?{@]fCHR       ?{?{@^@@ORD       DISMISS   @b$w?{@^N	 @wDELETE    ?|y?{@^vCURPOS    @a,}@P@_@?hdCOS       @`@a	 P@_^@?` COSD      @`[@a@`@?Y COSH      ?{@a@`^@	 ?W @adDATE      ?{@ak@a.@?gd @ahd@bb@b	( @DISPOSE   @bK?{@b&EOF       @c?{@bN@XSUCC      EOLN 	$      @cK?{@c@`EOF       EXP       ?{@a@cN@?_ INPUT     	, @

!?|#@]#@ddc?{@d>GETLN     @e\(?{@dfGETLINENR ?|+	 *?{@eGETINDEX  ?{?{@e6GETX      ?{?{@e^HELP      @g3@X;@f	 82 EACHCASE  @(\e@fc@f50@f`CI         ?{@S@g(	!`

;OPTIONCOUN@gd0@S@g4@	SWVERSION ?|A@S@gd@SWTAS     ?|D@S@h@	 `CSWSUPER   ?|G@S@hD@SWSTR     ?|J@S@ht@SWSAVE_COM?|M@S	 L@i$@SWRES     ?|P@S@iT@SWQUIET   ?|S@S@j@SWPROC    ?|V	0@T@S@j4@SWPRESERVE?|Y@S@jd@SWNONRES  ?|\@S@k@SWINDENT  	,0@]?|_@S@kD@SWFORCE   ?|b@S@kt@SWELSEIF  ?|e@S@l$@SWCOU	#0eNT   ?|h@S@lT@SWCASE    @nk@S@m@SWBEGIN   ?|n@S@m4@	 `nSWBAR     ?|H@S@md@SWCOMM    ?{@S@n@	STARTFILES?{?{@nF@V?Q`$V?Qk#H@QP@H@~@Dt*@ED*@HT,@L<-@N

.@N|1@Q5@G|7@T$7@T47	(vR\Q|> Dp4( pQ$X$p*$p4y#p#p/#&$r1fr	"

1&-  Fp4{Q~Y|,~          @pS?|@p.SY        ?|@r+@pU$	 `HACK      ?{@q3@q@q0d

@sINT1      @rd@T@qM@ALF  	!8@     ?{@r+@q}@@r(d@rDb@r@@INT2      ?{@S@re@	 a`@sA @Y`@s(A$@sL@sHA$?|

HASH      ?{@t,@sn@ !=[t @np?{@t(Jr@#]-wv	( "$FR\Q|>4 $

%,w x0$0dr- h r Dp4&@@p4+ $	 ( - p1F@ pB&A4D?4, p0D1D-  $ &

%Q$H`Q&H`D(	YP53B=h52B+:40Z$QDp+>48 p0D1D-2[ Dp	*EA>4:+,4>	p4DB4? pDp+D4@^$Dp4BQ~Y|,~     	$@0@F@(@y?|d@xfPOINTER   ?|K@yk@y{}P@ @|(R[@|8ROFINDSY   ?{@yk@|N@=Yt @tP?{@Kyf%Kyk$	((QhR\Q|> Dp Fp4D .$ D4k $p,w x1dr1$- 	"q Dp4m $, Dp p0F1F- < $,>,r,^XD4q p0D	"@ y1D- uQ(pX(*(4x p0D1D- zZ0D1D- ~Z& "f	(4| p0D1D- Z0D1D- ^& "f4 p0D1D- 	   
 p0&0fr- ) rQF4 p0$0dr-

QpYFr4	!

P  @A[?|A6SY{@t+?|@r+A]POINTER|A;@ykATAiTBh	(*U
!6R\Q|>4
Q$X$r*$d4#@@f@@e@@f4%Z$ De@@g@@g	*EU")4'@@h@@hZ$ Di4)Z$ D

0Z$ D

44,@@

0@@

14.Q$X$

%*$

&*P2Q$0X$

$*$

%40Q~Y|,~ 5                    ?{?|9AnREINITIALI?{?{A@5!5!@`A$5	(*U;#R\Q|>43@@

34=@@

24>@@

.4?@@

/4@Z$ Dp0dr+H	 

D p0$0dr- ^& Fr:p+C4A  ,i  ,i4H 	"L ,i  ,i4K  ,i  ,i4O  ,i 	"AAU ,i4R  ,i  ,i4V  ,i  ,i4Y	 A A ]  ,i  ,i4]  ,i  ,i4`  ,i	 P P f  ,i4d  ,i  ,i4g  ,i  ,i	(((n4k  ,i  ,i4n  ,i  ,i4r  	(w,i  ,i4u  ,i  ,i4y  ,i  	*

,i4|  ,i  ,i4	  ,i  ,i4	 	"	 ,i  ,i4	  ,i  ,i4	
  ,i 	"AA	 ,i4	  ,i  ,i4	  ,i  ,i4		 A A 	  ,i  ,i4	  ,i  ,i4	  ,i	 P P 	!  ,i4	  ,i  ,i4	#  ,i  ,i	(((	*4	&  ,i  ,i4	*  ,i  ,i4	-  	(	2,i  ,i4	1  ,i  ,i4	4  ,i  	*

	;,i4	8  ,i  ,i4	;  ,i  ,i4	? 	"	C ,i  ,i4	B  ,i  ,i4	F  ,i 	"AA	L ,i4	I  ,i  ,i4	M  ,i  ,i4	P	 A A 	T  ,i  ,i4	T  ,i  ,i4	W  ,i	 P P 	]  ,i4	[  ,i  ,i4	^  ,i  ,i	(*Q
	e4	b  ,i4	e@@4	gQ$rX$*$q4	hZ$ D

i0d/+	q

i/$	 E(Q"	n0$0d- EZ&

i:

i+	l4	jZ$ D

m4	qZ$ D

n4	sZ$"D
(	vZ$DD

w4	wZ$ D

o4	yZ$ D

p4	zZ$ D

v4	|Z$ D

x	(D(	4	}^$ Dp0dd+
 p.$0$0d-- 	oZ& F	v:p+
4	Z$ Dp	"""
0d+
 p/$0$0d- 
Z& Fm:p+
4
Z$ D

i0d +
4
	((*

i0$0d?-

i F	64

i0$0d?-

i Fv4
:

i+
4
	"E 
Z$  D

i0d-+
#4

i0$0d?-

i.& F	64

i0$0d?- 
	*UT

!

i Fv4
:

i+
4
"Z$- D

i0d0+
.4
#

i0$0d?-

i F	6	**Q

)4
&

i0$0d?- 
(

i Fv4
):

i+
%4
-Z$0 D

i0d=+
:4
.

i	 U Q*
20$0d?- 
+

i F	64
1

i0$0d?- 
3

i/& Fv4
4:

i+
04
8	"U
:Z$= D

i0d?+
E4
:

i0$0d?- 
6

i F	64
<

i0$0d?- 
>

i*U 
C Fv4
@:

i+
;4
C,!4
EQ~Y|,~	 
HGET       GETLN     PUT       PUTLN     RESET     REWRITE   READ      READLN    BREAK	 
P     WRITE     WRITELN   PACK      UNPACK    NEW       GETLINENR PAGE      PROTECTION	 
YCALL      DATE      TIME      DISPOSE   HALT      GETSEG    PUTSEG    MESSAGE   LINEL	 
aIMIT REALTIME  ABS       SQR       ODD       ORD       CHR       PRED      SUCC      	 
jEOF       EOLN      CLOCK     CARD      LOWERBOUNDUPPERBOUNDEOS       MIN       MAX  	 
r     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 ASKFI	 LENAMSTARTFILE GETPARAMETGETNEXTCALFILNAM    REENTER   SETTIME   TIMEREPORTRUNTIME   	 ELAPSEDTIMPUTCHAR   ASSIGN    SUBSTR    CONCAT    SETRAN              A4[?|(A46  %I         ?{@SA4]INITIALIZE?{?{A5@^hLA<^hLO;@	A	
HA

HA	,
IA	$
IA	L
JA	D
JA	d
KA	\
KA

LA	|
LA

MA

MA
<
NA
4
NA
T
OA
L
OA
t
PA
l
P@	A

QA
QA,
RA$
RAD
SA<
SAd
TA\
TA|
UAt
UA

VA

VA

4
WA

,
WA

T
XA

L
XA

l
YA

d
Y@	A

ZA
ZA
[A
[A
\A
\A
]A
]A
^A
^A
_A

_A4
`A,
`AL
aAD
aAl
bAd
b@	A
cA|
cA$
dA
dA<
eA4
eA\
fAT
fAt
gAl
gA
hA

hA,
iA$
iAL
jAD
jAd
kA\
k@	A
lA|
lA
mA
mA<
nA4
nAT
oAL
oAt
pAl
pA

qA
qA,
rA$
rAD
sA<
sAd
tA\
t@	A|
uAt
uA
vA
vA4
wA,
wAT
xAL
xAl
yAd
yA

zA
zA$
{A
{AD
|A<
|A\
}AT
}@	A|
~At
~A
A

A4A,ALADAlAdAA|A$AA<A4A\AT@	AtAlAA

A,	A$	AL
AD
AdA\A

A|

AA4ATAL@	AtAlA

AA,A$ADA<AdA\A|AtAAA4A,ATAL@	AlAdA

AA$AADA<A\ATA|AtAA

A4 A, AL!AD!@xAl"Ad"	(E(+mR\Q|> Dp4

F p0$0d+k+4-40 e/d/$ e	 @
3/& Fp Dp2dp+? p.$0$0d-- 
B p.&0&0f-- 8 	v0&	"Q*T <0f?- : v F	v:p+541+k4?4@ e/d/$ e/& Fp Dp	" D2dp+N p.$0$0d-- < p.&0&0f-- G 	v0&0f?- J 	6	(U**M F	v:p+D4@+k4N4O e/d/$.$0$0d-- L e/d/&	 
U U.&0&0f-- S 	v0&0f?- W v F	v4P e/d e/& Fp Dp	" ^2dp+h p.$0$0d-- Y p.&0&0f-- a 	v0&0f?- c 	6	(U*@f F	v:p+^4Z+k0k@O4hQ~Y|,~          A={?|u	  oA=VWHICHCASE ?|r@fcA=}J         ?{@SA>-SETCASE   ?{?|o wA>^@MP
+MP+H A=A6	(
Ux

R\Q|>4k i.$ Di4z@@h4|@@h4} $ &

$ (Q&H`

Q(H` *3B=j

3B@

(B&A4D

4~ $h 0@7,	(

	 iZ(, & * (,4

 $0@7,

,4

Q~Y|,~

          ..          ?{?|

AB6NEWPAGE   ?{?{AB^@SMN$xSMN/x@xA?|

AA,

XwXwXwXwXw \Q|> Dp4

 f.$ Df4

$	 @((

  0@7,

 & * (,

 p0$0d+

5+4

$ $0@7	*T

),

! &

% * (,

# &

5 * (,

++

C4

' $0@7,

) p0&	"*A

10f- e$& &

5 * (,

-+

C4

. $0@7,

0 p0&0f-

2	"*U*

:$& &

5 * (,

4+

5	*AE

.4

5 $0@7,

7 & * (,

<,4

C $h 0@7,

E,

G	*D

K4

H $h 0@7,

J & * (,

G4

K $ &

$ (Q&H`Q(H`	 (

S2B@ & (

$ *Q(H`Q*H`2B@G4D

^4

O $h 0@7	*(

\,

M hZ(,

d4

Z4

^ $h 0@7,

\ &

$ * (,

O4

_4

c	(@(

d $h 0@7,

aZ& (, iZ(,

] & * (,

c4

d p0$	"

m0d+

}+4

k $h 0@7,

f &

% * (,

k &

5 * (,

r+
	**

u4

n $h 0@7,

p p0&0f-

9$& &

5 * (,

t+
4

u $h	 @"*

~ 0@7,

w p0&0f-

y$& &

5 * (,

|+

}	*U*A(

u4

} $h 0@7,

J4
Q~Y|RORAAT-----:!r	ARk?|tARFERRNRAY{?{	0X

AF(THENDOEING?{@Yd	9dRESCASE	<EALRESSYLOCKS?{	1AaA`U\0Aad

EQLSY@AaDERRCOUNT  ?{@TAaE

h	 2VARIANT_LE?{@TAau

pLEVEL     AbS@SAb%

xLINE500SIOAc@T!AbU	0,@"c|bAcx	(dACPAGECNT{?{@T$AdJAh,@LINENRTY}?|AiAh\Aic?LPARE	%@pJNT   @SA`MAi$@POINT     Ad|PA`WAiT@PAGENRTY  Aj,!Aj[AjPM   	! S     ?{@+Aj-`AjXc?COMMA     A]?A`ZAj|@SEMICOLON 	>p[Ak\<A`rAk,@STACKTYPE Amt`@{3Ak\SPACEPRESE?|u@TcAl

bALPHANUM  ?{ArAr[PWHILESY   ?{A`ArD@	 p@FORSY     ?|6A`Art@EXTERNSY  Al3A`As$@STRGCONST AtZA`=AsT@	 8H

 Aw,"A`AtSYLENG    ?|%@T(At-

HSY        ?|3@r+At]	0@b(DXBUFFERPTR ?|+@T4Au

PBUFFER    ?|.AvAu=`BLOCK     ?{?{	 1

A0AunAv.dAv,bAv(d-BUFFMARK  ?{@T7AvM

XBUFFLEN   AvL(	1D9@SAv}

`SYTYT  ?{A`Aw-DhIDENT     ?{A`@Aw\@

INVARSEp?{@Yd   ?|A`IAxl@

GOTOS	'@xJY    @sl$A`LAy@FORWARDSY ?|A`OAyL@RECORDSY  Az,xA`[Ay|@
	!r@RRELEVANTSYAz\9AaAz-\ RELJFN    ?{?|XAz^F         ?{A[A{$	!p@[IFSY      AmD=A`^A{4@
REPEATSYOU?|OA`aA{d@	LOOPSY	0,A|ldA`kA|@	 c	LISTEXI?{@ykA|DLOWER@?{A}A|m`A}@d@,bCASESY    	&xdl?{A`nA}4@BEGINSY   A~iA`zA}d@BEGSYM    ?{AatA~[pDECSY	!H xtM    ?{AawA~E\PROSYM    ?{AaRA~u\EOBSY     Aa}A`A$@	!` }ENTRY     B,@y{ATENDSYM    ?{AaqA}[`EOB       ?{@YdCB-Eh	!pDOSY      AgA`B\@DEFINITIONAp<@SB

8@BMFPBx4dASBdB,bB(FTHENSYA`?|B,@UPPER     ?{A}f	$<'B]`ENDSY     A$A`+B

@INITPROCSYAx

[A`.B<@PROCEDURESBM	8D

0A`6Bl@PROCTABLE AV3BKBN BHrd@t,NFUNCTIONSYAYDLA`9Bd@	 <"8PROGRAMSY BD.A`?B@PROG_NAME A~s@r+BEDHVARSY     ?|A`B	 <ABt@TYPESY    ?|A`EB$@CONSTSY   B

WA`HBT@LABELSY-Ah,+	0DIA`B	@B	0FB	P

@LINETOOLON?|HASVB
<@MISSGPOINT?{ASYB
l@MISSGMAIN 	&x`Z?{AS\B@MISSGQUOTEB

VAS_BL@MISSGRPAR ?|\ASbB|@MISSG	%@xcEXIT BASeB

,@MISSGOF   B|bAShB

\@MISSGTHEN AS\eASkB

@	!pkMISSGEND  B

ASnBBEGERRINBLA}dqASB0txERROR     ?{?|

^8b

^8c

HAPHAM`HAGPADh@|AD$ p.$0$0d-- 
p2jp@A4F

 p.$ Dp+4 p De4

 p.$0$0d-	(@-  & 	v0D@ ( 
p2*p@A4F4 p/$ Dp+4	 T*U* p2dp+l4

1B$4D4 j Dj4

)4D!4 k Dj4	*P U*!

34D(4!,$

Z& (,

g4"@@

34&+54' $
*0@7,$&mj&(&*,4(j&$1f+54-$ Fp Dp2dp+D45 $
C+84B $

& 
 )H0(@A

)4DP4D

&0D+M4IZ$	*Q*A*L D

3+O4K4MZ$ D

34M+S4O,$	 DDT.$ &2$f@ e.(.(0(0h-- = *  	v0H@
A4F_4S	(U*D] e.$ De4\+T4^ e3df+k4_ $ &

$ (Q&H`Q(H`	 
U*e2B@ & h1(P@G4Dk4a,x4i4j4k4k4l j Dj*U n4l@@

14n@@

24o@@

24pQ~Y|,~	  s,@               Bs?|BNPOSITION  ?|z@SBuI         BS0`{@SB%J         ?{@TzBUWRITELINE ?{?|wB D7wz7~w7w@~BdsB\sB4t	(/XwXwXwXwXwXw \Q|>4q,% x Dp4 p1D	*E"+-4	 p0D1D- 
Z0D1D- $,v Dp	(
4 p0D1D- Z& "f4 p0D1D-  p0F1F- 	 PZ "f4 p0D1D-  pXF4 $, Dp4! p0D	"$1D-  p F4# p0D1D- %Xw  F4& pXw D4*	(H-4,Q~Y|,~          B&?|EB%vPOINTER   B(4@ykB&P         	$5?{B&{B&MB&xR8B'd:?xPOINTER   ?|=@yl=B'%@NEXT      	$ >?{B(B'U@B(R8S         ?{B(CB(B(@R[VARDEF    ?{ F?{B(VD2at2a~2a	(GXwXwXwXwXwXw \Q|>4-,% x Dp4L p0D	*U@"P+`4N

%,i4P $," Dp4R p0D1D- ( Dp,% p	 @ 
X x F4T p0D1D- VXw  F4Y pXw D4]+ p	 @""a0D1D- [Z0D1D- b "$B$4D4_ $,S Dp4f p	 A i0D1D- dZ& "f4h p0D1D- j p0F1F- nZ "	*rf4l p0D1D- p pXF4r $,g Dp4v p0D1D- t	 @ 
z p F4x p0D1D- zXw  F4{ pXw D44Q~	 	`Y|,~          B0k?|B0FPOINTER   B1\	@ykB0mP         ?{B1K	 B1B1HR8S         ?{B2B1]B2R[PROCDEF   ?{?{B2D

}?K

}JH

}KG	(@XwXwXwXwXwXw \Q|>4

Xw  Dp4 p1D	*@"+>4 p0D1D- } 0D1D- Z0D1D- ! "$0D	*@ %+.4 p0D1D- # 0D1D- 'Z0D1D- )Z& "f	*@ -+:4% p0D1D- + 0D1D- 0 p0F1F- 2 0F1F	("6- 4Z0F1F- 6 "&XF4. p0D1D- 8  Dp4:+	(H>4=Q~Y|,~          B83?|GB8P         ?{B8cB85B8`R8 GPOPOFF    ?{?{B8vD
7h
7r
7s	(U ICXwXwXwXwXw \Q|>4

>@@k4N4O$	"TRA4&'4O $

$	*
AZ4W$Y 0D+p4Z0$+h4b  D

$4f4g,$d,4Do	**Pyk4h4$p f D

$4t4u,$r,n4v4y $

$ &tQ$H`Q&H`	 U*
|2B+4y,x+%4~4 h.$ Dh4 h.$ Dh4 h	"U
@0Dz+4@@h4

(B$4D4 $

$ &Q$H`Q&H`2B+	*
*$h 0@7,xZ& (,4 hZ(,

iZ&(,+4 0@7,Z& (, &

$Z*0(,444	*(U*44$#4$4%@@k4%	*A'+P4& $
)H0(@B&((G5F94'@k.$$Dk42,$	 x Dp4B f.$ p Fp	 @E
I~Dp2dp+O	p.$0$0d--4YZ&[F	v:p+I4F"pbDf4O+[	** Q4P f.$Z&,,	 x Df4Q f.$0$0d-- L &

4bZ$, Df4c+o4e f.$.$0$0d-- WZ& F	v4f	(
P k@f.$.$0$0d--iZ& F	v4j4o $
As4D;4o$

$4t0$7,v0D+{4$ z D

$	*A
A*44$4D

4$7,,x44+	*
U

v$~0@7,
 0D+4

$44,$	*Q(T*,44 h.$ Dh4 h.$ Dh4 h0Dz+;4@@h4	(Q

(B$4D:4 $ &

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

$ *Q(H`	 *
&Q*H`2B@G4D14 $h 0@7,Z& (, hZ(	(((/,Z& (,-+:4*41 $h 0@7,,Z& (,0 &

$ * (	(*"7,Z& (,542494:4:4;Z$ De4;@@e4=Z$ D

44> @Q~Y|,~	 H
A     -----0          BXc?|LBX>I         BY@SBXeTABSTOP   &J?{@TFBYREADLINE  ?{?{BYFD4v	L4v	
J4v	I@@BT\ABTBBE<BBE4C	(*NoXwXwXwXwXwXw \Q|>4?

04Da4S e,z4U	"P Q*WZ$ D

i4V0$7,46D $4D^4XZ$ D

.+`4\4^,L	*TA*_4^4_+i4` e.$0$0d-- m 	v0$0d?- c v D

i4a e	"QPh.$ De4g4i $ f.&2fe@ D

04iQ~Y|,~          BYC(p?|qB]vREADBUFFER?{?{B^D4v?R4vBO4vCN	(D
tJXwXwXwXwXw \Q|>4m $ e0F@A

+4D4x	*U( | k Dj4| k Dj4}4

-0$0d+++4 e.$0$0d-	* U - e e.&0&0f--  	v0&0f?-  	6 F	v++4Xw 4D	* 
 e.$0$0d-- 	 e.&0&0f--  	v0&0f?-  v F	v	*P
+$4$0d--  e.&0&0f--  	v0&0f?- 	*UP
 	6 F	v4++4 e.$0$0d--  e.&0&0f-- # 	v0&	"U*U'0f?- % v F	v++ +4 ,Q4+ e/$ &2Df@	( @/ e.(0(0h-- ' *  	v

 $,)L 0,@
G (

i 	"(8

 
,4)L(0,@A4F>4,Z$Xw D+E4; $

i 
 ( @@ 8)H0(@B$4DE4>Xw@@4CQ~Y|,~ @G          ?{?|LBi&NEXTCHAR  ?{?{BiNDSOaMwSOaVtSOaWtH BeB` @|Bf<GBf4GBgHBf|HBhIBg|I	(QOXwXwXwXwXw \Q|>4E4S@@p4TZ$ Dp4UZ$	"T(U W Dp4V,Q4X

i Dp4Y

i1D+g4Z,Q4\ e/$.$0$	"@
*`0d-- 1 e/&.&0&0f-- ` 	v0&0f?- c 	6 F	v4]4g

i	 A(P*h   @)F0&+}4g

i0D*+o4kZ$ Dp+{4m

i0D!	*"A(q+s4oZ$ Dp+{4q

i0D&+w4sZ$ Dp+{4u

i0D)+{	(*
y4wZ$ Dp4y,Q4{+4|

i   i)F0&+4} $	(*

i0F@ Dp4,Q44

i   )F0&+44		 @* 
 p$$

i/&. Dp4
,Q4

i 
 )H0(@	"A A*B$4D
4 pB$4D4Z$ Dp4"p Dp4444 p	 D
*0$ 0d-++4 p1d+#4^$ Di4Z$ D

'4!+&4"	"U"P($ p Di4#@@

'4%+4& p D

++4' p1$+54) p Dk	**U(,4+ k&$ Dl4,@@m4.

)4D34/ k Dl+541 k&$ Dl	*A"U*543+45 p0$+=46"p Dl48 l Dl49@@m4;+A4<	*Q*E*=@@l4=@@l4> p Dm4?+4@4AZ$ D

)4B k Dl4C@@m	*Q*E"F4E k Dl4FZ$ D

.4G+4I4J p D

*4J

*Gp D

*4L	*
E"N+4N p D

*+4O p D

(+4Q p D

(+4S p D

++	(TTW4U p D

)+4W p1d1$- p D

.+4Y p1d1$- [ D

-	***_+4\ p1d1$- ^ D

-+4` p1d1$- b D

,+4c p	 U h1d1$- e D

,+4g4j p1d1$- i D

,4k p1d1$- m	*( p D

-4n p1d1$- p D

.4q p1d1$- s D

,4t p1d1$	*U*U*y- v D

-4w+jQ'AUO6)`	*U*U(\WSYJgc4z

i1D+T(
4Q~Y|,~	 @p

           C?|CvOCH       C|@+C	  OCASE     ?{@fcCM OSWITCH   C+@YcC}OVALUE    ?{@SC- OPTIONS   ?{?{C^DrWf`RrWffOrWfgOH B0BsP@|Bm

Bm

BolBpl	(
 oXwXwXwXwXwXw \Q|> Dp4
Z$ Dp4% j Dp	*(U*(4'

1B$4D.4( j Dj4*Z$ D

14,4-

+A

44D44. k	*U*E 1 Dj40 k Dj41+743 j.e/e/$ Dj4447 p  	((U*9 )F0&+O47,w4;

i0D+@4<,R4>4?4@,w4@	"DB $

i2Fp@ e/&.&0&0f-- e ( 	v0F@AG

.4D@	*Q*DJ4A

.4DN4JZ$,

4L4M+Y4N $

i3Fp@

.B&A	*U*"S4DU4O,w4S+O4T

.4DY4UZ$,

4W4X4Y $ f0F	"T*Q[@A

(4D_4Y j/$ Dj4]4_,Q4_ $

i1F@G

04D_	*U"Q*d4`

0A

44Dg4d,Q4f p Dj4g

1B$4Dl4hjDj4jFlQ~Y|,~		`nSMC\L@SC?|zCDOCOMMENT ?{?|qC.De!aw#e!a~ e!a @xCnC

n	(D(}+XwXwXwXwXw \Q|>4

l@@p4^$d "

%$/$	^QA0$0d

%&0&?- y.&/& 0&0f
"-B&A4D(4 p/$0$0d- $$ $

%	 "AQ$H`Q&H` (3B=h2B+$4Z$ Dp4 p/$0$0d	*T
T-

&4

.1d1$- ,+4 +'4# p.$ Dp4$4&	*$'+4' p Dp4(Q~Y|,~          Cc?|7C>I         C@S	 0CeJ         CC@T.CLOCAL     ?{@YcCE RESWORD   ?{08@YcCv@=4d`C?{D5"5&}5'}	(D
;XXwXwXwXwXw \Q|>4) $

&0F@G

/4DD4?	"TA C@@p+V4C4D,% x Dp4E@@p4G p1D+U4H p0D1D	(*L- <Z0D1D- L "$4DU4JZ$ Dp4P

,1d1$- ",+	*P

T4Q4T4U4UQ~Y|,~          C+?|`CPOINTER   ?|]@ykC-  ]FOUND     ?{@YcC]PROCCALL  ?{@YcC@=1$`C`?{D

})>

}6;

}7;	((dXwXwXwXwXw \Q|> Dp4V j Dp4i

1B$4Dp	(U*Q(m4kZ$ D

14m j Dj4n4p j.e/e/$ Dj4p4s,4t	(*E*u

&  )F0&+}4u,t4x

&0D4y,J4{+ $	(*~

&0FA

/4D4|,44 p1h#1(- S"S$@)D 	 A"E"GG

&)D 0$+t4 p Dj4	Z$ D

&2Dp+4

	*A"Q ,y+4 p0D+4Z$,

+4Z$,

4Q~Y|,~	 Hp~`p          C#C?|"C#WHICH     ?|A`C#EOLDSPACESM$ ?{@SC#uPARENTHESE?{?|C$&DtiOgtiRetiSd@@ClCdC tC l	($XwXwXwXwXwXw \Q|>4@@d4) $

i 
 	(
A
- 9)H0(@

.B&A4D4*

i0$0d=+g+4144,Q	* Q*544

i0D+<45 $ e0F@ D

447Z$,#4:4<+4<	*Q"
>4=,Q4>

i0D+F4? $ e0F@ D

44AZ$,#+M4D	(T(U*F4FZ$ D

&4F g0D+L4HZ$,g4J4K+b4L4M+4M	(A"T*O4N $ e0F@ D

44O@@p4R,Q4S

'B$4D`4T

i	*"P*W+`4V

i/$2Di+^4ZZ$ Dp4\4^,Q4^	*"T*`+V4_ pG

'B$4Dd4`Z$.,#4c+4dZ$>,#+4e4g	*U*U*h,Q4h+Ngg=gggggg4ggg	*U*U*qggggggggggggggggg	*U*U*yggggggggggggggggg	*U*U*ggggggggggggggggg	*U*U*
ggggggggggggggggg	*U**gggge4i++4

i0$0d.+=+44@@d4	"U
E Q$X$

%*$

&44 d.$ Dd4 d0d+'4 d/$0$0d	(T*
$- ^$d

i "

%f4!,Q4' $

i 
,X)F(	 P*,0&@B$4D4(, xB$4DA4.,> xB$4D?41

& 	 U 5 )F0&+:43

,1d1$- ,++>474:

-1d1$- 9	*Q*U
=,+4;4>4>Z$

&4?4@+b4A4B4B d.$ Dd4C,Q	(U*F4E $

i 
 +)H0(@B$4DC4FZ$

&4K

i0D!	*U"T*N+Q4M,Q4O+n4P

i0D+\4Q4S,Q $

i 
 H	 
U
W)H0(@B$4DS4SZ$

&4Y@@d4[4\

i0D"+n4\,Q	*
U*_4^

i   V)F0&+e4_,Q4c4d

i a)F	"U"U*h0&+k4e,Q4i+e4jZ$

&4k@@d4l4m4n+b4n4o	"E*pZ$ Dd4pZ$

&4q4s4s

,0D+4t e.$0$0d-- $	(U*y e.&0&0f-- x 	v0&0f?- { 	6 F	v4v4~,Q4 d.$	**Q" Dd4 $

i0F@G

.G

04Dt4

i1D+
4Z$,

4	*Q(U*
4	,Q4
 d.$ Dd4

i1D+s44,Q $	**

i 
,g)F(0&@B$4D4Z$

&4+b4	"U(Q*Z$ D

&+b44,Q4

i0D+#4Z$

&4 ,Q4!+%	(U*E
#4"Z$ D

&4#4%+b4%4&,Q4' p4D,4(@@p4)+)4*	**",+.4+Z$

&4,4.+b4.4/Z$ D

&40,Q41Z$,g42	*E*Q*4+b4445Z$ D

&45,Q47

*4D<48,49 e,z4:4<	*P
U*=+b4<4=

i/$0$0d- }

i D

&4>,Q4B+b=	*U*U*E====o========BBBB	*U*U*NBBBBBB5=====	*U*U*V	*U*U"_/&4C@@

44b

34Dn4c

1B$4Dn4e	(T
U*g

&1D+m4g,$!4i@@

34l4m4m4n

34Dy	*Q"Up4n@@

34p

&0D+u4qZ$ D

3+y4s4u,$k*@x4u4x4yQ~Y|,~	 {H(            |          CPC?|CP	!@1         CPs?{CPG

b111       CQ#?|CPw

)I         CQS@SCQ% (

INCONDCOMPCs@YcCQUINSYMBOL  ?{?{CRD^|02(^|0>%^|0?$H CH@C3H C- /C&8@@C%L{C%D|C3<|C5,}C5$~C6T~C6LC<C<

CBDCB<	(E
DXwXwXwXw \Q|>4

y j Dp4

1B$4D4Z$	*U(U( D

14 j Dj44 j.e/$ Dj4,&4 4!

&0$0d	(E
U
#+(+4!,+64$,+64&+64'4(

&0D4),	*U*U*,4+,&4,+6$(((&((((((((	*TQ"4(('4-

&  )F0&+!46 p Dj49Z$ D

14;(U"@=

&0D+@4<,&+A4>Z$,

4@Q~Y|,~	 	 C~w!t          CXs?|JCXNOLDSPACESM?{@SCXu
PARENTHESE?{?{ LCY&DtiOtiRtiSH CU`CT@@xCV|CCVtD	(Q(LrXwXwXwXwXw \Q|>4A g.$ Dg4Q j Dp4S	(Q*U(U

1B$4DZ4TZ$ D

14V j Dj4X4Y e/e.j/d.$ Dj	*U
U"]4Z,',4]4_

&0D+c4_,+h4a4c

&0D4c	*U*f,4e,'4f4g

&  )F0&+_4h p Dj4k g/$*n Dg4mQ~Y|,~	 	 q~p          C^K?|wC^&OLDSPACESMCY#@SC^MCASEDEF   ?{?{ yC^~DDEaODEb
MDEbL@xC]qC]q	((z4XwXwXwXwXwXw \Q|>4o j Dp4

1B$4D	(U*T*4Z$ D

14 j Dj44 e/e.j/d/$.k Dj4,'	(@T4
 $

& 
 )H0(@B$4D#4

&0$0d
++4	*U*U,O+#4,}+#44,44,'4

&  )F0&	*E*U*+4

&0D+4,'4+#+4

1	"U"Q($B$4D)4# j/k Dj4%Z$ D

14'4) p Dj4)

&0D+.*Q -4+,'+04-Z$,

4.Q~Y|,~	 H2~p~x@          Cfk?|9CfFOLDSPACESM?|w@SCfmRECDEF     :?{?{CgD4y{t}4y{~z4y{zH CdCb(@pCTTNCaT2CaL2Cc,3Cc$3	("<kXwXwXwXwXw \Q|> Dp4

0,4A

&0D+G4B	*UD,'4D,A4E+B4F $ 
p1j#1*- ="
S&@)F(GG	("E M

&)F(0&@B$4D^4GZ$,

4P $

& 
)0(@	"U(U*UB$4DW4Q,'4V,E4W

&0D+]4X,'4Z,X4[+Y4\	*U*U(^+G4]

*4Db4^ e/d,y4`

34Dh4b@@

34c0$7*Pf,w,x4d4gQ~Y|,~	 	 j           Cm[?|pCm6ENDSYM    ?{A`Cm]ENDEDSTATS?{?|m rCnD}

?}

<}

<@xCiLjCiDj	(Q"sXwXwXwXwXw \Q|>4

1B$4D4wZ$ D

14y	"T*U*{Z$ j/l/m," x Dj4{4,'4

*G

)4D4 e/d	*
E
,y4Z$,>4

&0D+4

1B$4D4Z$ D

14
Z$	*Q*U"

 j/l/m," x Dj44,'4

*4D4

&0D+4	"U(P,4 e/d,y44+Z$,

4Q~Y|,~          ?{(?|CsFCOMPSTAT  ?{?{CsnDM-vM-sM-s	(Q"!pXwXwXwXwXw \Q|>4

1B$4D-4%Z$ D

14'	"Q*U
)Z$ j/k," x Dj4)4,,'4-,\4.

&0D+74/

*	*U*Q*24D641,42 e,y43+645+846Z$,

47484949	*@
E":,'4:

&  )F0&+:4;

&0D+O4> j Dp4@ j	*U
*C Dj4B j.k Dj4CZ$ D

14EZ$ D

24G,'4H,.4I

&	"T*T
K0D+M4J,'4L p Dj4M4O

&)0&+94O

&	 
U*T  )F1&+Y4SZ$,

4V+94X

*4D\4Y e/d,y	**U*\4Z

&0D+k4\,'4^

)4Dc4_ j/k Dj4a

*4Dj4c	(U*T(e

&0D+g4d,34f e/d,y4g4i+lZ$,

4jQ~Y| m,~	 Hn`            C~+?|uC~OLDSPACESM?{@SC~-CASESTAT   v?{?{C~^DDEd3$DEd6!DEd7!@@CwLnCwDnCzLoCzDo	(Q"x -XwXwXwXwXw \Q|>4
l

1B$4D 4|Z$ D

14~	"Q*U
 Z$ j/k," x Dj4 4 ,'4 ,J4

&0D+ 4 ,'	*U
U
 	4 , 4 	+ 4

&0D+ 4  e/d,y4

14  j	*U"E" /k Dj4 ,','4 + Z$,

4 Z$,>4

&0D+ *4 	(Q"T*

1B$4D !4 Z$ D

14 Z$ j/k/m," x Dj4 4 !,'	*T*U* "4 !

*4D )4 "

&0D+ '4 $,g4 & e/d,y4 '4 )+ +Z$* +,

4 )Q~Y|,~          ?{?| 0D^LOOPSTAT  ?{?{DD(a!{(a!x(a!x	(Q" 2 }XwXwXwXwXw \Q|>4 + j Dp4 7

2B$4D F4 8	(Q"Q* ;

1B$4D B4 :Z$ D

14 <Z$ j/k," x Dj4 >4 A j.e	**Q( C/e.k/$ Dj4 B4 E,'4 F, 	4 G

&0D+ [4 H

1B$4D Q	(Q(U* L4 JZ$ D

14 LZ$ j/k," x Dj4 M4 Q

*4D V4 Q, &4 S	*T*U
 T e,y4 T+ X4 UZ$ D

24 V,'4 X, G4 Y+ \Z$,

4 Z

&	"U(Q" ]0D+ s4 \ e/d,y4 ^

1B$4D g4 `Z$ D

14 bZ$ j/k	(U
U* e," x Dj4 c4 g

+B$A

*4D m4 g, S4 j e,y4 k+ o4 l	"E*Q( nZ$ D

24 mZ$ D

24 o,'4 p, Y4 q4 rZ$ D

14 s

&0D+ w	*U"@ v4 t, j4 v e/d,y4 w p Dj4 yQ~Y|,~          D{?|!  DVOLDSPACESM?{@SD}IFSTAT    ?{?{D.DZ+ 5Z. 3Z/ 2	(U"!!XwXwXwXwXw \Q|>4
 { g$k Dj4!	Z$ D

14!	*U*!

*4D!4! e/d,y4!Q~Y|,~          ?{?|!D> !LABELSTAT ?{?{DfD I&! I*! I+!	(Q"!!AXwXwXwXwXw \Q|>4
!

1B$4D!$4!Z$ D

14!	"Q*U*!!Z$ j/k," x Dj4! 4!$,'4!$

*G

)4D!)4!% e/d,y	(T*(!)4!'Z$,>4!)

&0D+!>4!+

1B$4D!44!-Z$ D

14!/Z$ j	**U"!2/k," x Dj4!04!4,'4!4, r4!5

*4D!=4!6

&0D+!;4!8	*U(P!:, w4!: e/d,y4!;4!=+!?Z$,

4!=Q~Y|,~          ?{(!C?|!DDREPEATSTAT?{?{DFD53K!53N!53O!	((!F"XwXwXwXwXwXw \Q|>4!? j Dp4!K

&0D

+!S	*Q*U!O4!M,'4!O

&0D+!S4!P,!4!R4!S

&)0&+!r4!S	(U*Q!W

2B$4D!d4!W

*4D!\4!Y e/d,z4!Z $

&1F@4D!b4!\	*U*P"!` j.k Dj+!d4!_ j.m Dj4!b4!d

&0$0d
+!q+4!d,v	*U*U*!h+!q4!g,{+!q4!i,$+!q4!j, 5+!q4!l,!+!q!g!j!i!m	*U(*!q!l4!m+"4!q

*4D!y4!r

&  )F0&+!y4!t e/d,z	(@U"!y4!w $

& 
 )H0(@B$4D!,'+!z4!y

&0D+"4!	(Q*U("

2B$4D" D

14" j Dj4" j.k Dj4"

*B$G

)	**Q*"
4D"

4"Z$ D

24"4"

,'4"

&0D+"4",:4" e*T("/d,z4"4"4" p Dj4"Q~Y|,~	 H"0@          D#S?|"#D#.OLDSPACESMDD" @SD#UCURBLOCKNR>"!Cn

@T"D$STATEMENT ?{?{D$6DV?[w!JV?[~!GV?[!FH DpDp@@D\"DT"D<"D4"	("%"NXwXwXwXwXwXw \Q|>4

0B$ &

i0H@	"U"".A4D"14"*,Q4"/+"+4"0 $

i 
  )H0(@

0B&	"""6A e.&0&0f-- @ ( 	v0F@A4D"K4"1

i0D+"B4"<	 U"A*"?Z$ Dp4">,Q4"@+"I

i0D+"G4"AZ$Dp4"C,Q4"E+"I4"FQ("GZ$>VDp4"G4"H%p,#4"I4"JQ~Y|,~	&	"MKZ$ D D*?|"SD)fLASTCH   ?{@+D*

/4"X^$ Dp4"Y4"[,(4"[

&	 T*U*"^)F0&+"[4"\ g.$ Dg4"` g$k Dj4"b4"d@@

14"d

&0D	*U

"g+#4"e e/d,z4"gZ$ D

14"iZ$ j/k," x Dj4"kZ$	*U*("o D

04"n,(4"pQ$

%X$

$*$

%4"q $h 0@7,f,g4"s $h 0@7	(A"x,"u &Z( *

,7&*|(,"z&,"~	(
E # &

$ * (,# & * (,#4"v

(B$4D#4# $h 0@7,"x	  #	 & * (,#4#Z$ i Fp Dp2dp+# $h 0@7,# pZ(	(*U(#,/ & * (,#
:p+#4#,(4#

&)0&	*UU"#+#4#4#

&)0&+#D4# e/d,z4#Z$ D

14# 	"Q*U*#"Z$ j/k," x Dj4#"

*4D#*4#%,")4#' e,z4#(4#),(	(TU*#+4#* $

& 
)0(@B$4D#C4#+4#0,4#0,(4#1

&	"U #30D+#64#2,(4#4+#04#5 $  G

&)F(0&@B$	**U*#<4D#A

&0D
+#?4#6,}+#@4#>,(+#74#?,(4#A+#+4#B+#4#C	*T
U
#D@@

/4#D

&)0&+#[4#E e/d,z4#HZ$ D

14#JZ$	*E"U
#M j/k," x Dj4#L

&1D+#V4#O,(4#Q

&0D4#R,K	*T*T*#U4#T4#U,"V4#V

&0D+#Z4#W,(4#Y+#E

1B$4D"d4#Z

*4D#`	*U
U#^4#\ e/d,z4#^ g/$ Dg4#` g$k Dj4#b $

& 
 	 #f)H0(@B$4D#x4#d $ g0F@ &

&0H@A4D#p4#i	"Q"#oZ$ D

/+#r4#nZ$,

4#p $

& 
 )H0(@B$4D#x,(	*E*E
#w+#r4#r

&0D+#{4#x,!J+$4#z

/B$4D$4#{Z$ D

14#},(	*E*T*$4#4$ g0D+$4$

04D$4$

/4D$	4$Z$,

4$ f/$	*Q"P*$ Df4$4$

&1D+$,

4$$hQ0@7,#,"u4$ fZ(,# & *	 (	,#,$4$4$ f.$,z4$*@$4$,4$Q~Y|,~	 $PFORM/LOTS 1.1  4-SEP-80:  [  ] Page..0 @0 @ erro	  8$%r(s) detected          DE?|.DDnPOPLIST   DEl$+B'DEI         CRt@S @$-DE=WHATTOPOP B "SDFDEmDFR8@UZ."V2dW"V@	D""(D,"(Dd!ICTl|C!t'D/

$D/,$D/l$D0,$ D1$ D2$$!D7$!D6|$"D<d$"D<\$#D>D$#D><$$DBD$$	(*E*$24$""  D~4$2,$4$5,<4$6Z$ D

i4$74$8,"V4$9

0	 @*U$;B$ &

&0H@G5D$@4$:,!4$>+$94$?4$$]4$@ $
$T&,B4$R+$E4$U	$D$]+$A4$\

'4D$f4$] $h 0@7,$[ Z(,$ & * (,$,$\	**$e4$_4$e"" /~ D~4$f $h 0@7,$a & * (,$d ~	 A(T
$n&&j0Z(,$bZ& (,94$i ~&$j0 F~4$q ~&$t0$+$z4$s $h	 A*$v 0@7,$kZ& (,$p4$u4$y $h 0@7,$w ~&&tZ(,$oZ&	"Q(T*$ (,$y4$z ~&$t F~4% ~0$2+%4% ~0$+%4% $h 	"*A%0@7,$| & * (,$m4%+%4%
$hZ0@7,%Z&+(,$4%	*A"Q%4%4%$hC0@7,%{TN{>R|O@|`<\<\Z&1\ <|.<Q<pX>p	"A%!Q \} ^} $-" $h "@f@j@n, $V "@f@j@n,& %) `B`b+$2,+$2	 @%, procedure and function definitionsRuntime: 00T         E%4@XKDVNORMAL    	<p
DX~@>zT ?BYTESET   D^

%N?|&DY>ARRSE	&@9d%NTYTEPDZ<%P?|%jDYfANYVERSION?|@YdDZ< ?BACKSLASH D[S@+D[$@.BLANKS    Av|n@r+D[T@	 `%%`%`F         ?{A[D\$F         D\{A[%gD\M$ST   	!%h     ?{AZ{D\}F         D][A[%mD]-$ST        ?{AZ{D]]	!p%pBYTEWRITE D^3?|%{D^CAPITALIZED^c@SD^4@CASETYPE  D

k@fcD^dCH   	!%y?{@+D{@SDm	 p&F         ?|&A[&D`$BYTEPOINTE?{@SD`MCMAGAIN   ?{?{D`~	  @&
S         ?{AZ{Da%CMAUTO    ?{?|&DaVUSEAUTO   ?{@YcDa}	  p&S         ?{AZ{Db-CMCMA     Dc?{Db^CMDIR     De&@SDc@?$ 	 @&?CMDEV     ?|& @SDcF@?t ?CMD       DdC@SDd@?

t 	 &#?CMDEF     ?{?|&&DdFDEFAULT   ?{AZ{DdmCMDIRW    De[@SDe@	  8&,?t ?CMDN      Df?|&:De^CMERR     Dg&4@YcDf@>`D ?CMDO 	!&4     ?{@SDfF@>Q ?CMERRMSG  ?{?{DgR         ?{Dg[Dg-$	 @x`&=DgXd&??xYEAR      DlT&BDmD&BDgupMONTH     Dj4&EDm$&EDh%`DAYOF	'@ 9&EMONTHDl&HDm&`DhUpDAYLIGHTSA?{@Yd&KDiP@hZONEINPUT ?|&N@Yd&XDi5P@`	 2@&NZONE      ?{Dj&SDieP@HDjFSECONDS   ?{DjcDj5`Dj`	(d&VRJULIANDAY ?|&[@Yd&[DkP@XDUM       ?{Dkd&NDk5P@PDk`H	 @&_DAYOFWEEK DkDl4&eDl`Dl0RZONEUSED  ?|&K@Yd&HDlUP	0@ &g@pDmRDm RDm@RCMFLT     Do&r@a	 &pDmf@?#T ?CMFLD     ?{@T&vDn&@?d ?S         ?{AZ{Dne	 &xCMHLP     ?{?|&{DoHELPTEXT  ?{AZ{Do=F         ?{A[Dom$

'FONEP?{A[Dp$CMINIRPACKDps?|'@DpNCMMODEDu4'?|'DrcDpv@	 `'	??dT?CMKEYbDu?|'@T'Dq6@?9C?CMINT+    ?{@SDqv@>OX	C`'?TSOUR?{@X;Dr5Dr`A'RESCAN'DwT'Drd%4Drt@PUTST	&@p@'RDw#A{d'?|'1Ds&NULFSET   Ds|{@SDw%	 8 '<0SAMECASE  AsTr@SDwT@PROMPT    ?{AZ{DxPROMPT    ?{AZ{	  'EDx5CMSWI     D'J@T(mDxf@?5D ?CMOFI     D}<'L?|'vDy&CMNUM     	<@8'MD{|'P@SDyN@?, ?CMNOI     ?|'S?|'\DzCMNOD     ?|'W@T'YDz6@>x$ 	  'V?CMMULT    ?{?{DzvS         ?{AZ{D{STUFF     ?{AZ{	 
@'^D{MCMNUM8    D|;@SD{~@?)T ?CMNUX     D|{@SD|>@?'T 	 'g?CMNUX8    ?{@SD|~@?%T ?CMQST     D}{@T'sD}>@>} ?	  'oCMREAL    ?{@aD}~@>M ?S         ?{AZ{D~=F         ?{	0 8'xA[D~m$CMTOK     Et'|?|(jDCMTAD     ED(@SDF@?t ?CMT  	!(     ?{@SE@?t ?CMTADN    Ek?|(

EFCMTN	!?{?|(	En	(	RGJEXTDEF?{Dg[E$RULTEX?{?{Dg[EE$CMUSRFNE|(@SEv@	`(?tR?CMTXTEmEs@T(E6@>4	?CMUERR    ?{?|(EvSME	t	!h(LIN?{AZ{ES,LIN?{AZ{EMGJGEN     E("?|(gE~GJDEV	&@(("     E<($?|(>E&GJACT     ?|('?|(0ENFINDNULL  Bd(+@T(-Ev@>HL ?	!`(+ERRKINDS  BEASE4SOURCE    ?{AZ{E]DEFAULTAC?{AZ{E
$@,LINNU	#p(UMSIZE?|S@SE
T@LINSIZPLUSE3@SE@-MAXINCi$aBSEd@DEFAULTPR?{AZ{E

DEFAULT_NA?{AZ{E

E	  (fFLAGS_AND_?{@SE

uSTUFF     ?{AZ{E	 
`(oEABLEEtbE+@X;ETADREC)E(uDg[E,TABLESIZEE,(x@SET@	?(wrTABLEINDEX?{@t+ETABS	>8@?{E[E-

)
@X<)E}KEY  ?{?|)E](VALUE	!@0)     ?{@T)
EVERSION   ArD)E<@)VERLENGTH ?|)@SEl@	!`)UNDEFINED ELB@SE@UPPERCASE Bt"@SEL@)

PFORM	 `)"/LOTSSIZE      ?{@SE-INTEGER   E$)(@SE\CHAR      @]4)*@+E	!`)*BOOLEAN   ET)-@YcE,ALFA      E<)/@r+ETABS       ?{?{E~@TIME 	 (

)3     ALFALENG  Ek@SE<@APPEND    E?{EnARCTAN    ?|)=@aE@	 @);?\ ARCSIN    ?|)A@aEV@?U ARCCOS    ?{@aE@?T	 )D BREAK     E{?{EVBREAKIN   ?{?{E~REAL      E"l)L@aE$	!`p)LPOINTER   ED)OE"[EO@NIL       E4)RE3Et@MAXINT    E$)U@SE$@?	 @@)UMARK      ?|)W?{EVJSYS      E#?{E~LN        Ec@aE&@?]	 )] LOG       ?{@aEf@?[ NEW       EK?{E&NEWZ      Es	 D)f?{ENNEXTFILE  ?{@PEv@?|OUTPUT    Ed)n@]#E5 HODD  	$)n     E#?{Ef@0TRUNC     ORD       ?{?{E&@8ODD       PACK      	0)wE?{EfPAGE      ?{?{EE0RPUT       E T)~?{EFPRED      	0@)E +?{En@HCHR       PROTECTION?{?{E .PUTLN     E {?{E VREAD 	&@*     E"4*
?{E ~PUTX      E!K?{E!&RCLOSE    ?|*?{E!NRANDOM    ?{	0*@aE!v@?S READLN    ?{?{E"6E"XdTEXT      @Yt*@]#E"l	!`*STRING    E)*AZ{E#@RESET     E$t*?{E#>RELEASE   E$L* ?{E#fRECSIZE   	 @*!?{?{E$@xROUND     RENAME    ?{?{E$NREWRITE   E%?{E$vSETPO	& **S    E&D*,?{E%RUNTIME   ?|*0?{E%F@DATE      ROUND     ?{?{E&@	 P*2pEOLN      SQR       E(D*8?{E&F@ ABS       SIN       E'C@aE'@?fd	 
@*; SIND      E(@aE'F@?Z SINH      ?{@aE(@?X	 *C SQRT      ?{@aE(F@?^ STRSET    E)+?{E)STRWRITE  E)S	 @*L?{E).SUCC      E*?{E)V@PPRED      TANH      ?{@aE*@?V	 U**T

d%%1)%	bPFORM     S:<PASCAL>PFORM.PAS.9         	 *]                                                                                      *e                                                       P*U@~DL4%,DM<%0DQ

%1	D"`[%`[%@%zINGg{INVT{IN	||

u^c;D	D"|G;2c(TSg+e5kLe5`6"kP`%@O>`D9bKd+'5bKTI;O	D"`%(bKLtD2`
W{v`
X/gx`
XXt`%k6`%_}
`%`w`%-z	D"`%?)q`&=7`%K]`?^=`@)Fo`%@I-d+#4<%dSLxg%g=p"3	D"e
Nu$Y`-%%`';$Ue5$@%)e5!\%&`
NsM$Q	D"`-%P

`
Ic]Ez*%f73%
f7R3-c_"9f7O%f7r%ev{2%#xaJ1ggaJ1gg/8 %((*k