Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-11 - 43,50530/pform.rel
There are 4 other files named pform.rel in the archive. Click here to see a list.
`[0`[@	

AND        
Y 
N
T 

A
  
P
  
  
  

E
A


x 
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|X>x  x0 p0`h-" Dp Fp174 p2dp+	(H4 p Dp+4 p Dp4Q~Y|,~          @?| @o	!0A         @K@|@B         ?{@{@M@xdMIN       ?{8"@|@@?| @?{@h	-pS	(($1R\Q|X>x  x0 p0`h-"
 Dp Fp4 p3$p+-4) p Dp	*$-+/4+ p Dp4-Q~Y|,~          @C?|:@A         @s	8@5@|7@EB         ?{@{@uMAX       ?{@|4@&@=_D @P?{@M%-@$ >HH	((?YXwXwXwXwXwXw \Q|X>x  x0 p0`h-"(4/Z$,	 G xXw D4FXw Z& ( *Z,,4IXw Z& ( *	"@QPZ,,L4MXw Z& ( *Z,,P4QZ$,G xXw D4U	 (@ XXw Z& ( *Z,,T4XZ$,V xXw D4\Xw Z&	 a ( *Z,,[4_Xw Z& ( *Z,,b4cXw Z& (	 P i *Z,,f4gXw Z& ( *Z,,j4kZ$	,] xXw D	(
r4oXw Z& ( *Z,,n4rXw Z& ( *Z,,u4v	 (
zXw Z& ( *Z,,y4zXw Z& ( *Z,,}4~Xw	  ( Z& ( *Z,,4Xw Z& ( *Z,,4Xw 	  Z& ( *Z,,	4
XwXZ&Z(*Z,, ( *Z,,4Xw Z& ( *Z,,4Xw Z& (	 P *Z,,4Xw Z& ( *Z,,4Xw Z& ( *	"@P%Z,,!4"Xw Z& ( *Z,,%4&Xw Z& ( *Z,	*@-,)4*Xw Z&	 ( *Z,,-4.Xw Z& ( *Z,,1	(
642Xw Z& ( *Z,,546Xw Z& ( *Z,,94: >Q~Y|,~	 @STARTRUNERUNHELPUPPERCASESAMECASELOWERCASECAPITALIZEVERSION:TASMANIANSUPER	 HSTRING-CASE:SAVE-COMMENTRESERVED-CASE:QUIETPROCEDURE-CASE:PRESERVENONRESERVE	 QD-CASE:INDENT:FORCEELSEIFDENNYCOUNTCOMMENT-CASE:CASE:BEGIN:BAR     	$@Y     @C?|f@INVISIBLE @s@{@D@RSTRING   ?{@#@u#@ b@ d>@Lc@8G@HADEFINEOPTI?{?{@nD_
GB_
R?_
S>@	@	4@@	t@@
4A@$A@
B@
TC@DF@G@DH@H@DJ@K@DM@M@DO@P@x@DR@S@DS@T@DU@U@DW@W@DX	((iXwXwXwXwXwXw \Q|X>x  x0 p0`h-"E4>^$ Di	*U"T*q4p@@
'4q@@
)4r@@
*4sZ$ D
,4t@@
+4vZ$ D
.4w@@
(4x	"T(U*zZ$ D
,4y@@
)4{Z$ D
-4|Z$ Dk4}@@
*4@@
+4@@
'4	"A*U Z$ D
-4Xw@@4@@m4@@l4@@l4@@
(4Q~Y|,~           ?{?|@!7SETDEFAULT?{?{@!fDMPtlMP~iMPi	(*HXwXwXwXwXwXw \Q|X>x  x0 p0`h-"o4	 i1d	**E
+4^$ Di4Z$ D
'44 k0$+!4Z$ Dk44 	(U*U*! m0$+(4!"m Dl4# l Dl4$@@m4&+*4'@@l4(@@l	*U*U
*4)4* 
)4D24* k Dl4,@@m4- k Dl4.Z$ D
.4041	 2Xw 1D+F42Xw 1d1$-  D
.44Xw 1d1$- 7	***; D
-48Xw 1d1$- : D
-4;Xw 1d1$- > D
,4?Xw	   C 1d1$- A D
,4B4FQ~Y|,~          ?{?|K@)GETOP LTIONS?{?{@)>D(T\7(T\:(T\;	((N[XwXwXwXwXwXw \Q|X>x  x0 p0`h-"4F, x	*  V4DY4U,4W,4X4YQ~Y|,~          ?{?|^@+?ERRCH _ECK  ?{?{@+nD]lQ]lN]lN	((aXwXwXwXwXwXw \Q|X>x  x0 p0`h-"T4Y ,	(
(i4hZ$,4i$$&,4kU$*r,l4pP$*E(z4D}4y$STARTOLD  ?{?{@0NDV?QddV?QjaV?Qka@~@-
@-<@.	((9XwXwXwXwXwXw \Q|X>x  x0 p0`h-"g4~Z$,x	( 4, xXw D4 $Xw 1f@Xw D4Xw 4D	(

4Xw,xXw$D44Xw4D74,i4)$ &,4(,y xB$Xw D4*^& >&&`=(/Z(Xw  1. "h4-,43,+ xXw D4446Q~Y|,~	 $`9          @7K?|B@7RSCAN     ?|?@{@7L@ RLJFN     ?{@{ A@7|@	READRESCAN?{?{@8.D4v	w
4v
4v
@`@3l9,EHH	(*FAXwXwXwXwXwXw/\Q|X>x	 x0p0`h-"^& E&&`=(Y (. "$1D@ * 
p	0,@
	"@A_A4Hq4U p	/$0$0d- W^& E&&`=(e p	/(0(0h	(Ah- c^*  E&*`=,j.
 "((. "h4` p	.$ Dp	4n	*"p+U4p p	/$0$0d- h^& E&&`=(u. "$1D+{	(y4q p	.$ Dp	4y4{ p	/$0$0d- s^& E&&`=(Z(	 D. "h4{ p	.$/$0$0d- ~^& E&&`=(Z(7.	 @ 
|"h4p	.$/$0$0d-4^&8E&&`=(Z(2."	"Ah4p	.$/$0$0d-,^&.E&&`=(Z(;. "h	("4 p	.$/$0$0d- ^& E&&`=( Z(. "h4	(T# $
C?|]@HJFNS      @I\G@{@HL@
FIELDLENGT@I+@{@H|@FLPLUS5@JP	$p@K?{@{@I,@OLDNAME@JtP@K#@I]NEWNAME?{@J;@JSTARTNEW  ?{?{@K^DV?QdIV?QjFV?QkE@@@:$:@E?@E<@@ETA	(
P*`R\Q|X>x  x0 p0`h-"L48,B4d $ &,*4e,
4g	 P*P(h pB$4Dl4h $ &,f4j4l,d4l pB$4Dq4mZ$,	*T*"q4o4q,l4q4r,4s,24t p, x Dp4u p4D{4w	 Py $p &,*4y, x Dp4{ $ p0F@ & p0H@G	*P*5De4},Q4, x2$0d+d+4, x Di+d44		 *"
 $ &,4
Z$ D
)4
+d4
*+d44 p, x	 U(*1d1$- E D
,4+d44 $ &,4Z$ D
+4+d4	(@*Q*4 p, x1d1$-  D
.4+d4Z$ D
(+d4 4" p	(*Q"$, x1d1$-  D
,4#+d4'4( $ &,4(Z$ D
)4*	*DU",+d4,4- p,$ x1d1$- & D
-4-+d41, x Dk+d	*
Q*54245$ &
*47+d49Z$ D
++d4:4< $	"E*
= &,74<Z$ D
'4>+d4@4A p,. x1d1$- 0 D
-4A	*T*F+d4E p,B x1d1$- D Dp+d4F,3 x Dm+d4K4M	 Q*U*N $ &	,>4NZ$ D
(4P+dAdKFddd2-	*U*U*Wd"dddddd	dd 	*U*U_d(dd5:<ddM4Q+s4d p0D+h4e	*T
h,t4g,Q4h$O ",4i,4o*p,I4pQ~Y|,~	 sOldsource? FORMATINDENTATIONNEWLINES IN STANDARD PLACESPROCEDURE AND F	  {UNCTION DECLARATIONSFORMAT FOR COMMENTSw/E          @`;?|P@`CASES	'COUNT@r|@{@`<@CASES     ?|	@aL
@`mCALLTABLE ?{@aL@a	"
 
@aHR@at@apG2OPTIONS   @bC@aL@bRESCANNING	<P@c\@d@bE@PAREN     @8+@c#@buH@c d>@c<c@c8A	!0<RUNCOM    @!c@d
@c]8@dA!TRUE      @e
$@d
B@d@TIME      ?{	  &?{@dN@RUNTIME   TTY       @e|+@h@e
hTRUNC     ?{?{@e>@(	 
0.SQR  @gt5TTYOUTPUT@f+@h@e}@{	  7@fVUPDATE    @g#?{@f~USETI     @gK?{@g&USETO     ?{?{@gNWRITE	 ?LN   ?{?{@gv@hdcFALSE     @oTE@d@h,@CLOSE     @iDH?{@h^	 0HCHR       ?{?{@i@@ORD       DISMISS   @mN?{@iFDELETE    ?|Q?{	 8
P@inCURPOS    @l$U@x@j@?|COS       @k@l@jV@?^$ 	! YCOSD      @kS@l@k@?W$ COSH      ?{@l@kV@?U$ @l	  adDATE      ?{@lc@l&@?et @l`d@l|c@lx@DUMPI	&jN    @mll?{@mDISPOSE   ?{?{@mFDUMPOUT   @n?{@mnEOF       @nS	 r?{@n@XSUCC      EOLN      @o?{@nV@`EOF       EXP       ?{@l	 1{@o@?]$ INPUT     ?|@h@oU(GET       @p+?{@pGETLN     	8@q$?{@p.GETLINENR ?|?{@pVGETINDEX  ?{?{@p~GETX      ?{?{	 8`
@q&HELP      @rL@aK@qM EACHCASE  @)<f@r+@q}0@r(C	  
I         ?{@{@rM(OPTIONCOUN@s,
@{@r|@	SWVERSION ?|@{@s,@	 `SWTAS     ?| @{@s\@SWSUPER   ?|#@{@t
@SWSTR     ?|&@{	 %@t<@SWSAVE_COM?|)@{@tl@SWRES     ?|,@{@u@SWQUIET   ?|/	0@.@{@uL@SWPROC    ?|2@{@u|@SWPRESERVE?|5@{@v,@SWNONRES  	,0@6?|8@{@v\@SWINDENT  ?|;@{@w
@SWFORCE   ?|>@{@w<@SWELS	#
p?EIF  ?|A@{@wl@SWCOUNT   ?|D@{@x@SWCASE    @y\G@{@xL@	 `GSWBEGIN   ?|J@{@x|@SWBAR     ?|@{@y,@SWCOMM    ?{@{@y\@ P	STARTFILES?{?{@z@V?Q``V?Qk`H@Z(@Ph@~@L\s@M,s@Q,t@Uu@Vdw@WTz@Yl}@PT@],@]<	(@SaR\Q|X>x  x0 p0`h-"c Dp4q pQ$X$p*$p4W#p#p	 H[/#&$r1fr1&- I Fp4ZQ~Y|,~          @|C?|}@|	 `0dSY        ?|g@~@|E$HACK      ?{@}#@|u@} dk@INT1      	>l@~Tn@|u@}=@ALF       ?{@~@}m@@~d@~4c@~0@	  
uINT2      ?{@{@~U@@A y@d@A$q@<n@8A$?|k 0@}HASH      ?{Ad@^@=Z @z8?{AJr@#]-SS	(
P
'R\Q|X>x  x0 p0`h-"V4_ $
%,S x0$0dr-  r Dp	(@
4@@p4
 $0p1F@ pB&A4D4
%Q$H`Q&H`D(3B=h2B+4Z$Dp+4~p0D	""A 1D-|[Dp4+?|-AA%FOUND     	$.?{@dAUAR1Ad2?xSTRING    ?|5@~5A-@NEXT      	6 6AAT8A]pSTACK     ?{A;A
AAeP@(NEXT      ?{ACAP@ A@R<APR1FIND_SY   ?{0GAAf@=X A@?{@KyfKyk	((JvR\Q|X>x  x0 p0`h-" Dp Fp4% .$ D4O $p,S	 R x1dr1$- ^ Dp4Q $, Dp p0F1F-  $,>,V,^	"@ [XD4U p0D1D- XQ(pX(*(4[ p0D1D- ]Z0D1D	(c- aZ& "f4_ p0D1D- cZ0D1D- g^& "f4e	 
l p0D1D- i p0&0fr- 
 rQF4k p0$0dr- o p Fr	(H@t4qQ~Y|,~          A?|	AoSY        ?||@~APOINT%}ER   A{AAMPOS       ?{AA} FIRSTDEF  ?{?|yA.@TAJTBJ	(
U*		R\Q|X>x  x0 p0`h-"M4
tQ$X$r*$d4		@@f@@e@@f4		"U"D*	
0Z$ D
44	@@
0@@
1(U(	4	Q$X$
%*$
&Q$	X$
$*$
%4	Q~Y|,~ 	                    ?{?|	AOREINITIALI?{?{A~@5	5	@`A		(
U*	"
R\Q|X>x  x0 p0`h-"	4	@@
34	&@@
24	'@@
.4	(@@
/4	)	 E	*Z$ Dp0dr+	0 p0$0dr- s^& Fr:p+	+4	*  ,J 	"AA	3 ,J4	0  ,J  ,J4	4  ,J  ,J4	7	 A A 	;  ,J  ,J4	;  ,J  ,J4	>  ,J	 P P 	D  ,J4	B  ,J  ,J4	E  ,J  ,J	(((	L4	I  ,J  ,J4	L  ,J  ,J4	P  	(	U,J  ,J4	S  ,J  ,J4	W  ,J  	*

	],J4	Z  ,J  ,J4	^  ,J  ,J4	a 	"	f ,J  ,J4	e  ,J  ,J4	h  ,J 	"AA	n ,J4	l  ,J  ,J4	o  ,J  ,J4	s	 A A 	w  ,J  ,J4	v  ,J  ,J4	z  ,J	 P P 	  ,J4	}  ,J  ,J4
  ,J  ,J	(((
4
  ,J  ,J4
  ,J  ,J4
  	(
,J  ,J4
  ,J  ,J4
  ,J  	*


,J4
  ,J  ,J4
  ,J  ,J4
 	"
! ,J  ,J4
   ,J  ,J4
$  ,J 	"AA
* ,J4
'  ,J  ,J4
+  ,J  ,J4
.	 A A 
2  ,J  ,J4
2  ,J  ,J4
5  ,J	 P P 
;  ,J4
9  ,J  ,J4
<  ,J  ,J	(((
C4
@  ,J  ,J4
C  ,J  ,J4
G  	(
U(
L,J  ,J4
J  ,J4
N@@4
PQ$rX$*$q4
QZ$ D
i	"@"T(
T0d/+
Z 
i/$0$0d- 	.Z&
 F
i:
i+
T4
SZ$ D
m4
ZZ$ D
n	(Q"E

]4
[Z$ D
]Z$ D
^Z$ D
w4
`Z$ D
o4
aZ$ D
p4
cZ$	*"
e D
v4
dZ$ D
x4
f^$ Dp0dd+
n p.$0$0d-- 
WZ& F	v:p	*

n+
i4
gZ$ Dp0d+
u p/$0$0d- 
lZ& Fm:p+
p4
nZ$	(T
T

v D
i0d +4
u 
i0$0d?- 
s 
i F	64
x 
i0$0d?- 
z 
i Fv	*Q
A"
4
{:
i+
w4
Z$  D
i0d-+
4 
i0$0d?- 
} 
i.& F	64	(*D* 
i0$0d?-  
i Fv4:
i+4
Z$- D
i0d0+4
 
i0$	"UU(0d?- 	 
i F	64 
i0$0d?-  
i Fv4:
i+Z$0 D
i	"P*P(0d=+"4 
i0$0d?-  
i F	64 
i0$0d?-  
i/& Fv	*Q
A*!4:
i+4!Z$= D
i0d?+-4" 
i0$0d?-  
i F	64% 
i U*P)0$0d?- ' 
i Fv4(:
i+$4,,	4-Q~Y|,~	 0GET       GETLN     PUT       PUTLN     RESET     REWRITE   READ      READLN    BREAK	 9     WRITE     WRITELN   PACK      UNPACK    NEW       GETLINENR PAGE      PROTECTION	 ACALL      DATE      TIME      DISPOSE   HALT      GETSEG    PUTSEG    MESSAGE   LINEL	 JIMIT REALTIME  ABS       SQR       ODD       ORD       CHR       PRED      SUCC      	 REOF       EOLN      CLOCK     CARD      LOWERBOUNDUPPERBOUNDEOS       MIN       MAX  	 [     FIRST     LAST      COS       EXP       SQRT      LN        ARCTAN    LOG       	 cSIND      COSD      SINH      COSH      TANH      ARCSIN    ARCCOS    RANDOM    SIN  	 l     ROUND     EXPO      OPTION    TRUNC     LENGTH    GETCHAR   POS       STRLT     	 tSTRLE     STREQ     STRGE     STRGT     STRNE     GETFILENAMGETOPTION GETSTATUS ASKFI	 }LENAMSTARTFILE GETPARAMETGETNEXTCALFILNAM    REENTER   SETTIME   TIMEREPORTRUNTIME   	 
ELAPSEDTIMPUTCHAR   ASSIGN    SUBSTR    CONCAT    SETRAN              AAk?|
AA? 
I         ?{@{AAmINITIALIZE?{?{AB@^hLA	"^hLO	"@	A0A1A41A,2AT2AL3Al3Ad4A
4A5A$5A6AD6A<7A\7AT8A|8At9@	A9A
:A4:A,;AL;AD<Al<Ad=A=A|>A$>A?A<?A4@A\@ATAAtAAlB@	ABA
CA,CA$DALDADEAdEA\FAFA|GAGAHA<HA4IATIALJAtJAlK@	A
KALA,LA$MADMA<NAdNA\OA|OAtPAPAQA4QA,RATRALSAlSAdT@	A
TAUA$UAVADVA<WA\WATXA|XAtYAYA
ZA4ZA,[AL[AD\Al\Ad]@	A ]A|^A $^A _A <_A 4`A \`A TaA taA lbA!bA!
cA!,cA!$dA!LdA!DeA!deA!\f@	A"fA!|gA"gA"hA"<hA"4iA"TiA"LjA"tjA"lkA#
kA#lA#,lA#$mA#DmA#<nA#dnA#\o@	A#|oA#tpA$pA$qA$4qA$,rA$TrA$LsA$lsA$dtA%
tA%uA%$uA%vA%DvA%<wA%\wA%Tx@	A%|xA%tyA&yA&
zA&4zA&,{A&L{A&D|A&l|A&d}A'}A&|~A'$~A'A'<A'4
A'\
A'T
@	A't
A'l
A(
A(
A(,
A($
A(L
A(D
A(d
A(\
A)
A(|
A)
A)
A)<
A)4
	A)T
	A)L
@xA)t
A)l
	(@"

XR\Q|X>x  x0 p0`h-"	% Dp4
. p0$0d+
V+4
4
	* 
 e/d/$ e/& Fp Dp2dp+
* p.$0$0d-- * p.&0&	"A(U*
%0f-- 
# 	v0&0f?- 
% v F	v:p+
 4
+
V4
*4
+ e/d/$	(
- e/& Fp Dp2dp+
9 p.$0$0d-- 
' p.&0&0f-- 
2 	v	 T*U
60&0f?- 
5 	6 F	v:p+
/4
++
V4
94
: e/d/$.$0$0d-	*@
*
>- 
7 e/d/&.&0&0f-- 
> 	v0&0f?- 
B v F	v4
; e/d	(
G e/& Fp Dp2dp+
S p.$0$0d-- 
D p.&0&0f-- 
L 	v	 T*U 
O0&0f?- 
N 	6 F	v:p+
I4
E+
V

V
+
:4
SQ~Y|,~	!
X          AK3?|
aAKWHICHCASE ?|
^@r+AK5J         ?{@{AKe 
`SETCASE   ?{?|
[AL@MP

MP
H AJ@AC0	(
E*
cQ|X>x  x0 p0`h-"
4
V i.$ Di4
g@@h4
i@@h4
j	"A
l $ &
$ (Q&H`Q(H` *3B=j
o3B@ 
(B&A4D
z4
k	(
t $h 0@7, iZ(, & * (,4
t $0@7,
v,(
}4
zQ~Y|,~  
AP..GE   ?{?{?|@SMN$
dSMN/
c@xAMT
AO	("XwXwXwXw \Q|X>x  x0 p0`h-"
g Dp4
}.f	"P
| & * (,
y40$0d+
% * (,
5+*(,
P$& &
5+*0(,- 
5+**(,,
$Q(	2B@ & (
$*Q(H`Q*H`2B@G4D
T
hZ0@7,
w+h 0@7,
$4*	"T7iZ(,
0$0d+
% * (,
5	0U7,
5,*0(	*P
5+**(,7,	E	 -----FILEN:MAc#A`s?|YA`GERRNRd	$@?{Aa#A`uAa?DMISSGCOMME?|BAa$Aa4@MISSGUNTILAbAa$5Aad@	 <@bNEXTSPACESAc\@|HAb
#AdxPROGRAMPRE?{@d
&Ad=FEOLINE    ?{@d
)AdmFOLDSP	'H
 *ACES Afd,@d
<AeFOLDSOURCE ?|/@hAeM\POLDFILENAM?{Af+Ae}^p	#D"2Af(dAfDcAf@FOLD_NAME  ?{AgAfe\@AgdAg,cAg(	(d;DFWDDECL   Ag{@d
BAgMFGETNAME   ?{?{Ag~ELSEHERE  ?{	9dC@d
EAh%F THENDO    ?{@d
HAhUF(ENDELSEING?{@d
KAiF0THENBEGINN	6 DLAhS@d
NAi5F8NOTOKENYET?{@d
QAieF@COMMENT_AT?{@dAjFHRESCA	'TSE   Ak4W@r+AjEE`RESCANIT  ?{@{Ajv@=hT ?RESNUM    AlL^B#	$1]Ak5QRESLIST   ?{AlAkeRpAl.dAl,qAl(FRESSY     	$ be?{Al{AlMXPAlxdBiAmFjOTHERSSY  ?|mAmqAm$@OPENBLOCKS	$!@n?{AnAmU\0And
iEQLSY     AnD&Am'An@ERRCOUNT  ?{@|wAnE	0
A"v
hVARIANT_LE?{@|zAnu
pLEVEL     AoS@{Ao%
xLINE500   Ap@|		$CAoUp|c	"dApxCPAGECNT   ?{@|
AqDVERSIO?{@|AqMr+@|Aq}
Ar-EPROCCASE?{@r,Ar]EH	 2HCOMCASE   ?{@r,As
As=E FORCING   ?|F@d
!Asm	0@"!E(ELSEIFING ?|B@d
$AtE0SAVECOM   ?{@dAtME8COLON     AsAm*	 )At|@LBRACKET  Au[Am2Au,@LINENRTY  ?|zAvAu\Avc?	!0@2LPARENT   @#Am5Av$@POINT     Aq|8Am?AvT@PAGENRTY  Aw,	Aw[Aw	 "`:PM        ?{@;Aw-`AwXc?COMMA     Aj'AmBAw|@SEMIC	'@dCOLON Ax\$AmZAx,@STACKTYPE AztHAKAx\SPACEPRESE?|
a@|KAy	!HKAye?{@|NAy5{TTAm`A{$@	 @p\RTIME     ?{@{A{UhRBRACKET  ?|cAm|A|@QUIET     A|c@d
h	$2eA|5EQUIT      ?{?{A|fBARRING   ?{@d
kA}DENNYING  A~Tn@d
	$1mA}=EDELSY     ?{A~A}mMA~ dA~4iA~0Gc/DIGITS    	&!v?{AyA~U[@Ad
cALPHANUM,?{AA[PWHILESY   ?{AmAD@	 0~FORSY     ?|AmAt@EXTERNSY  Ay3AmB$@STRGCONST BBAm%	 rBT@
AmBSYLENG    ?|
HSY        ?|@~	$@B]DXBUFFERPTR ?|@|B
PBUFFER    ?|BB=`BLOCK     ?{	 
 ?{BnB.dB,cB(d-BUFFMARK  ?{@|BM
XBUFFLEN   	< ` BL@{B}
`SYTY	%@?{AmB-DhIDENT     ?{Am(B\@
@
INVARS    ?{@d
 B=EpOTHERSY   ?|jAm1Bl@
	!p@1GOTOSY    @\
Am4B@FORWARDSY ?|Am7BL@RECORDSY  B,`Am@B|@	 <@:
RELEVANTSYB\	AnmB-\ RELJFN    ?{?{B^IFSY      AzD%AmCB@	 pB
REPEATSY  ?|7AmFB4@	LOOPSY    B	<IAmPBd@	LIST      ?{A	 A@`KB	LOWER     ?{B	kB	=`B	h@d@<cCASESY    ?{AmSB
@BEGIN	'@ SSY   B
dQAm_B
4@BEGSYM    ?{AnYB
e[pDECSYM    ?{An\B\	 2@\PROSYM    ?{An:BE\EOBSY     AnbAmjBt@ENTRY     B
|dAB
$	 2HdENDSYM    ?{AnVB
M[`EOB       ?{@d
+B
}EhDOSYmAtmAmsBTIONA}<p@{B
cBxOFSY      AeAmv	 AuB<@EXITSY    B$yAmBl@ERRMSG    ?{BKBFPBH4dAa$~	#Dp~B`dB|cBxFTHENSY    ?|KAmB@ELSESY    AydjAm	 
ABL@UNTILSYBB+Am`ENDSY     Bt	8`AmB\@INITPROCSYB
@AmB
@PROCEDURESBl5AmB<@PROCTABLE 	4 apAd;BBmN BrdA0FUNCTIONSYAgL4AmB4@PROGRAMSY BAm$	 
 Bd@PROG_NAME BC@~BDHVARSY     ?|wAm'BD@TYPESY    ?|	8`(Am*Bt@CONSTSY   B\?Am-B$@LABELSY   Au,AmBT@BF	 
d1B- MISSGRBRAC?{Aa$8B\@LINETOOLON	.`9?|-Aa$;B
@MISSGPOINT?{Aa$>B<@MISSGMAIN ?{Aa$ABl@MISSG	'@XBQUOTEB\;Aa$DB@MISSGRPAR ?|AAa$GBL@MISSGEXIT BkAa$JB|@	!p@JMISSGOF   BLGAa$MB,@MISSGTHEN AadJAa$PB\@MISSGEND  B\Aa$SB
@	 82SBEGERRINBLB
4VAa#B<@BARETABLE[A}BBmxERRORAR?{?|$[BD	K{-"
}Dp4	(A(d/$0Dp4c p1d+S4e e.$ Dp4g p.$0$0d-- 
p2jp@A4Fs p.$ Dp+j4i p De4s	  
u p.$0$0d-- l & 	v0D@ ( 
p2*p@A4F4u p	 P**~/$ Dp+u4} p2dp+S4 
1B$4D4 j Dj4 
)4D	*U(*4 k Dj4 
34D4,$
34*A(+4j$d*,4j&$1f+4	(P $
& 
 )H0(@A
)4D74+ 
&	"E(U 10D+440Z$ D
3+64244Z$ D
344+:46$	*P""9, e.(.(0(0h-- $ *  	v0H	 T*U"B@
A4FF4: e.$ De4C+;4E e3df+R4F $ &
$ (	 *JQ&H`Q(H`2B@ & h1(P@G4DR4H,
d4P4Q4R*U*PS4R4S j Dj4S@@
14U@@
24V@@
24WQ~Y|,~	  Z,@               B+k?|gB+?POSITION  ?|a@{B+mI         4 bB,K@{B,J         ?{@|aB,MWRITELINE ?{?|^B,~D7w_7~\7\@~B%TZB%LZB)$[	(*jXwXwXwXwXwXw \Q|X>x  x0 p0`h-"b4X, x	"@"r Dp4q p1D+4s p0D1D- mZ0D1D- w "$4D	(D{4u $,Z Dp4{ p0D1D- yZ& "f4} p0D1D- 	 ( p0F1F- Z "f4 p0D1D-  pXF4 $,|	"
 Dp4
 p0D1D- 	 p F4
 p0D1D- Xw  F4	 $ pXw D44Q~Y|,~          B3;?|/B3POINTER   B54	0@AB3=P         ?{B4B3mB4R"B4(d$?xPOINTER   ?|'	8@%A'B4E@NEXT      ?{B5#B4u@B5 R"S         ?{B5cB55".B5`R<VARDEF    ?{?{B5vD2atm2a~j2aj	(*1pXwXwXwXwXwXw \Q|X>x  x0 p0`h-"p4, x	"*D : Dp48 p0D+L4: 
& 
%,J4< $, Dp4> p0D1D	(@ B-  Dp, p x F4@ p0D1D- BXw  F4E pXw	"@ 
K D4I+n p0D1D- GZ0D1D- N "$B$4Dn4K $	(@ PS,? Dp4R p0D1D- PZ& "f4T p0D1D- V p0F	"A\1F- ZZ "f4X p0D1D- \ pXF4^ $,S Dp4b	  d p0D1D- ` p F4d p0D1D- fXw  F4g pXw	"@@m D4k4mQ~Y|,~          B>3?|~B>POINTER   B?$vAB>5	 uP         ?{B?B>eB?R"S         ?{B?SB?%B?PR< ~PROCDEF   ?{?{B?fD
}?5
}J2
}K1	((/XwXwXwXwXwXw \Q|X>x  x0 p0`h-"84
nXw	"@	Dp4p1D+-4	p0D1D-i0D1D-Z0D1D	(@ - Z& "f+(4 p0D1D-  0D1D-  p0F1F	("-   0F1F- "Z0F1F- $ "&XF4 p0D1D- &	 T$+  Dp4(+
4,Q~Y|,~          BF#?|6BEwP         ?{03BFSBF%BFPR"POPOFF    ?{?{BFfD
7h
7r
7s	(*84XwXwXwXwXw \Q|X>x  x0 p0`h-"4
-@@k4?4@	(*A$4D4@ $
 D
$4H0$7,J0D+a4K,$4O $
$4W4X"$(Z0@7,U+4D`4Y4$a W D
$4e4f,$c,4g4j $
$	(*U
k &eQ$H`Q&H`2B+p4j,
d+4o4p h.$ Dh4q h	"Q*E t.$ Dh4s h0Dz+4u@@h4w 
(B$4D4x $
$Z&Q$H`Q&H`	|2B+4z0$h,0@7,iZ& (, hZ(,
$Z* (,	*UT*
44449$ h1$P+4,
d4	*U@44@@k4+A4 $
)H0(	AT*@B&(4Dk4#4$*+$4Dp43	("8.f.$0p0Fp-Dp2dp+@4p.$0$0d-- @Z& F	v:p+:47	"U@ p Df4@+L4A f.$Z&,,	 x Df4B f.$0$0d-- =	(**I &
 D
$4e0$7,g	,TTk*0D+~4h $k D
$4t4u,$r4D}4v,$i4y4|+4} $
$44	((T*4$ h.$ Dh4 h.$ Dh4	 h0Dz	*T(P
(B$4D+4 $ &
$ ({Q&H`Q(H`2B@	"@ & (
$ *Q(H`Q*H`2B@G4D"4 $h 0@7,Z&	"D
T(,& (,++44" $h 0@7,Z& (	*
U
&,! &
$ * (,
Z& (,&4#4*4+4+4,Z$ De4,@@e(P/4.Z$ D
44/Q~Y|,~	 H@2     -----0          Bf{?|=BfOI         Bg+@{Bf}TABST!@;OP   ?{@|7Bg-READLINE  ?{?{Bg^D4v	;4v	
94v	8@@Bbl2Bb$3BSL3BSD4	(*@bXwXwXwXwXwXw \Q|X>x  x0 p0`h-">40 
04DT	*Q((H4G e,_4HZ$ D
i4J0$7,%6D $4DQ4KZ$ D
.	*U* Q+S4O4Q,;4R4S+]4S e.$0$0d-- ^ 	v0$0d?- W	*Q(D(Y v D
i4T e.$ De4Z4\ $ f.&2fe@ D
04]Q~Y| $b,~          Bg[?|eBl/READBUFFER?{?{Bl^D4v?C4vB@4vC@	("h@XwXwXwXwXw \Q|X>x  x0 p0`h-"F4` $ e0F	"U*Tp@A
+4Du4n k Dj4r k Dj4s4u 
-0$0d+!+4u	(P*y e.$0$0d-- Y e.&0&0f-- { 	v0&0f?- } 	6 F	v+!	(P
4xXw 4D
4 e.$0$0d--  e.&0&0f--  	v0&	"U(
0f?-  v F	v+44
 e.$0$0d-- 
+e.&0&0f--$	(*@(.	v0&0f?-A	60F	v4 	v0&0f?-  v F	v+!!x4,B4! e	 D #/$ &2Df@ e.(0(0h--  *  	v  
 $)L 0,@
	 A,G ( 

i  
 
,*)L(0,@A4F44"Z$Xw D+;41	"P 4 $ 
i 
  .)H0(@B$4D;44Xw@@49Q~Y|,~	 @=          ?{?|CBxNEXTCHAR  ?{?{Bx6DSOaMkSOaVhSOaWhH BsxBo@|Bu=Bu=Bud>Bu\>Bvd?Bv\?	((EXwXwXwXwXw \Q|X>x  x0 p0`h-"n4;4L@@p4L	 A**NZ$ Dp4MZ$ Dp4O,B4P 
i Dp4Q 
i1D+`4S,B4U	( V e/$.$0$0d-- ' e/&.&0&0f-- Y 	v0&0f?- \ 	6	*P T(_ F	v4V4_ 
i   6)F0&+u4` 
i0D*+h4dZ$ Dp	*EQ g+s4f 
i0D!+l4hZ$ Dp+s4j 
i0D&+p4lZ$ Dp+s	*
Up4n 
i0D)+s4pZ$ Dp4r,B4s+4t 
i   b)F	"DUx0&+~4u $ 
i0F@ Dp4y,B4|4} 
i   w)F	"P 
0&+4~4 p$$ 
i/&. Dp4,B4 $ 
i 
	( P 	 )H0(@B$4D4 pB$4D4
Z$ Dp4"p Dp4	*@"
444 p0$ 0d-++4 p1d+4^$ Di4Z$	*Q*Q( D
'4+4 p Di4@@
'4+4 p D
++4 p1$	*
U*#+.4! p Dk4# k&$ Dl4%@@m4' 
)4D+4( k Dl+-	* Q*+4) k&$ Dl4++4- p0$+54."p Dl40 l Dl42	*U(U"4@@m43+944@@l45@@l46 p Dm47+494:Z$ D
)4:	*U(U"< k Dl4<@@m4= k Dl4>Z$ D
.4@+4A4B p D
*4C	(U
E"E 
*Gp D
*4D+4F p D
*+4G p D
(+4I p D
(+	(T**M4K p D
++4M p D
)+4O p1d1$- T D
.+4Q p	 UUV1d1$- S D
-+4U p1d1$- W D
-+4X p1d1$- Z	*@*P
^ D
,+4\ p1d1$- ^ D
,+4_4c p1d1$- a D
,4c	 Tg p1d1$- e D
-4f p1d1$- h D
.4i p1d1$- k D
,	(*U*o4l p1d1$- n D
-4o+cI:MG.!	*U*U*xXUOKQB_\*4r 
i1D+L4Q~Y|,~	 @ 
           C+?|COCH       C
;C-	?C] OSWITCHC=C;@dCNS   ?{?{CnDrWf`HrWffFrWfgEH C8CX@|B|B|B~tB~lB|Bt	("jXwXwXwXwXwXw \Q|X>x  x0 p0`h-"K Dp4Z$	"E
T*! Dp4  j Dp4" 
1B$4D)4# j Dj4%Z$ D
14'4( 
+	*U*U"*A
44D/4) k Dj4+ k Dj4,+24. j.e/e/$ Dj4/	(
T*242 p   	)F0&+J42,k46 
i0D+;47,H49	*Q";4:4;,k4; $ 
i2Fp@ e/&.&0&0f-- ^ ( 	v0F	 U(U"C@AG
.4D;4< 
.4DI4EZ$,I $ 
i3Fp	"*U
L@ 
.B&A4DP4J,k4N+J4O 
.4DT4PZ$,(T4T $ f0F@A
(4DZ4T j/$ Dj4X4Z,C4Z $ 
i	 U*Q(]1F@G
04DZ4[ 
0A
44Db4_,C4a p Dj4b 
1B$4Dg*Pe4c j Dj4eQ~Y|,~	 	8i          CS?|vC'FINAL_CH  C4p@;CUAT_FIRST_W?{0@q@dCOLDSPACESMClC@{C5DOCOMMENT ?{?|mCfDe!awe!a~e!a@xCDiC<i	("x,XwXwXwXwXw \Q|X>x  x0 p0`h-"4
g@@p4^&	(Q &&`=( "
%$/$0$0d &(	"A	`=*	 " 
%&0&?-q.&/&0&0f4D(4 p/$0$0d- $$ $
%Q$H`Q&H` (3B=h	"A(2B+%4Z$ Dp4 p/$0$0d-  
&4 
.1d1$	*TT#- 
,
4!+'4$ p.$ Dp4%4'+4' p Dp4(Q~Y|	 $ +,~          C%s?|8C%GI         C&#@{C%uJ         C&S@|/ 4C&%LOCAL     ?{@dC&U RESWORD   ?{@dC'@=2t`C8?{D5"{5&y5'x	("<[XwXwXwXwXw \Q|X>x  x0 p0`h-"~4* $ 
&0F	"Q* D@G
/4DG4B@@p+Y4F4G, x Dp4H@@p4J p1D+X	(M4K p0D1D- *Z0D1D- O "$4DX4MZ$ Dp4S 
,	 U(HU1d1$- #,
4T4W4X4XQ~Y|,~          C+c?|dC+7	 `^POINTER   ?|aAC+eFOUND     ?{@dC,PROCCALL  ?{@dC,F@ f=/4`C'p?{D
})?
}6<
}7<	(
hXwXwXwXwXw \Q|X>x  x0 p0`h-"B Dp4Y j Dp	**U(p4o 
1B$4Dv4pZ$ D
14r j Dj4t4u j.e/e/$ Dj	*U"y4v4y,4y 
&  )F0&+4z,z4~ 
&0D4	*D
U,44+ $ 
&0FA
/4D4,l44 p1h#1(- V	  Q"
"S$@)D GG 
&)D 0$+y4 p Dj4Z$ D
14	(U Q( 
&2Dp+4,~+4,p0D+4Z$,p~`p          C4#?|(C3wWHICH     ?|%AmC4%OLDSP!%ACESM?{@{C4UPARENTHESE?{?|"C5DtiOktiRhtiSh@@C/DC/<C1LC1D	(**XwXwXwXwXwXw \Q|X>x  x0 p0`h-"n4@@d41	" 3 $ 
i 
  4)H0(@ 
.B&A4D42 
i0$0d=+o	"U
(;+494<,C4< 
i0D+D4= $ e0F@ D
44?Z$,	*U(QD4B4D+4D4E,C4F 
i0D+N4G $ e0F@ D
44I	"T**LZ$,+U4L4NZ$ D
&4N g0D+T4PZ$,k4R4S+l	*T Q*U4T4U+4U4V $ e0F@ D
44W@@p4Z,C4[ 
'B$	*UQ(]4Dh4\ 
i 5)F0&+h4^ 
i/$2Di+f4bZ$ Dp	*UQ*f4d4f,C4f+^4g pG
'B$4Dl4hZ$.,4k+4lZ$>	*U*U*n,+4m4o,C4p+VooEoooooo	*U*U*w<oooooooooooooooo	*U*U*ooooooooooooooooo	*U*U*ooooooooooooooooo	*U*U*ooooooooooooooooo	*U*Uoooooooom4q+34 
i0$0d.+G+	*Q*E"!44!@@d4"Q$X$
%*$
&4#4% d.$ Dd4% d0d+04'	( T** d/$0$0d- ^& &&`=(. 
i "
%h4),C40 $	*2 

i 
,`)F(0&@B$4D%41,{ xB$4DJ48	(;,? xB$4DH4: 
&  )F0&+D4= 
,1d1$- 	,
	*P*Q*C+H4@4D 
-1d1$- B,
4D4G4HZ$
&4H4J+l4J	*E(UL4K4L d.$ Dd4L,C4N $ 
i 
 5)H0(@B$	*
U"T4DL4OZ$
 D
&4U 
i0D!+Z4V,C4X+x4Y 
i0D+f4Z	* 
]4\,C $ 
i 
 R)H0(@B$4D]4]Z$
 D
&4c@@d	*E*
e4d4e 
i0D"+w4f,C4h 
i   `)F0&+n4i,C	*UU"n4m4n 
i k)F0&+t4n,C4r+o4sZ$
 D
&4t	*U"E*v@@d4v4w4w+l4x4yZ$ Dd4yZ$
&4{4|4} 
,0D	*@(+4} e.$0$0d-- , e.&0&0f--  	v0&0f?-  	6	*U
* F	v44,C4 d.$ Dd4	 $ 
i0F@G
.G
04D}4	(Q*Q( 
i1D+4Z$,d.$ Dd4 
i1D+}	*U
4+l444,C $ 

i 
,p)F(0&@B$	*"U(!4D4Z$
 D
&4!+l4#Z$ D
&+l4$4&,C4& 
i0D+-	(U(U*)4'Z$
 D
&4),C4++/4,Z$ D
&4-4.+l4/40,C40	"E**2 p4D641@@p43+144+845Z$
 D
&4647+l4849Z$	*Q*E*: D
&49,C4;Z$,k4<+l4=4>Z$ D
&4?,C4@ 
*4DF	(U*P
C4A,4C e,_4D4E+l4F4G 
i/$0$0d-  
i D
&	*U*U*K4G,C4K+l$GGGGGyGGGGG	*U*U*TGGGKKKKKKKKKK&>GG	*U*U*\GGG!!!!!!!!!!!!!!	*U*U*e!!!!!!!!!!!!904L@@
44l	*Q(T
m 
34Dx4m 
1B$4Dw4n 
&1D+w4p,$4r	*U*Q"v@@
34u4v4w4w 
34D4x@@
34y 
&0D+~4zZ$ D
3+*A*@~4|4~4$Q~Y|,~	 H(            |          Cac?|Ca7	  
l111       CbC?|Cb
1I         Cbs@{ 
CbEINCONDCOMPC'@dCbuINSYMBOL  ?{?{Cc&D^|02.^|0>+^|0?*H CYXCDH C> /C78@@C6LC6DCD<CFDCF<CGlCGdCM,	CM$	CS\
CST
	("PXwXwXwXw \Q|X>x  x0 p0`h-"14
 j Dp4" 
1	"E*T*%B$4D)4$Z$ D
14& j Dj4'4) j.e/$ Dj4),,4,	*"E*-4- 
&0$0d+4+4-,+B40,+B42+B4344 
&	"U*U*60D,,48+B044424444	*U*(>444444349 
&  )F0&+-4B p Dj	(T*Q G4EZ$ D
14G 
&0D+L4H,,+M4JZ$,!t          Cj;?|VCjOLDSPACESM?{@{Cj=
PARENTHESE?{ X?{CjnDtiOtiRtiSH Cg Cf@xCh<OCh4P	((YXwXwXwXwXw \Q|X>x  x0 p0`h-""4M g.$ Dg	*(U*a4_ j Dp4a 
1B$4Dh4cZ$ D
14e j Dj4f4h e/e	**E*j.j/d.$ Dj4h,-,l4l4m 
&0D+q4n,+v4p4q	(U*@
r 
&0D4r,l4t,-4u4v 
&  )F0&+n4v p*E{ Dj4z g/$ Dg4{Q~Y|,~	 	(~p          Cp;?|CpOLDSPACESMCjk@{Cp=CASEDEF   ?{ ?{CpnDDEa\DEb
YDEbY@xCoCn|	(*	EXwXwXwXwXwXw \Q|X>x  x0 p0`h-"_4} j Dp	**U*4 
1B$4D4Z$ D
14 j Dj44 e/e.j/d/$	*T *.k Dj4,-4 $ 
& 
 )H0(@B$4D44 
&0$	"*U*"0d
+'+4!,\+44$,
+44%4',m4'4(,-4) 
&	 "U*+  )F0&+)4* 
&0D+04-,-4/+4$'''	*Q*Q(3%+40 
1B$4D:44 j/k Dj46Z$ D
1484: p Dj*(P<4: 
&0D+?4<,-+A4>Z$,~x@          Cy?|KCxWOLDSPACESM?|@{CyRECDE KF    ?{?{Cy6D4y{t
4y{~	4y{	H CvCt8@pCf[CsdCCs\CCu<DCu4D	(M~XwXwXwXwXw \Q|X>x  x0 p0`h-" Dp4
A,4T	(U*@V 
&0D+Z4U,-4W,U4X+V4Y $ 
p1j#1*- F"
S&	 Q"^@)F(GG 

&)F(0&@B$4Dr4ZZ$,
& 
	(*T*gB4Dk4e,-4j,Y4k 
&0D+q4l,-4n	*U*U*o,k4o+l4p+[4q 
*4Du4r e/d,^4s 
34D{4u@@
3*(x4w4$x4{Q~Y|,~	 	}           D?| CoENDSYM    ?{AmDENDEDSTATS?{( ?| DND}
P}
N}
M@xC|}C{|~	((  2XwXwXwXwXw \Q|X>x  x0 p0`h-"S4
{ 
1B$4D 	(Q** 4 
14 Z$ j/l/m,% x Dj4 4 ,-4  
*G
)	*U
E" 4D 4  e/d,^4 Z$,P4  
&0D+ /4  
1B$4D &4 	"E(U*  Z$ D
14  Z$ j/l/m,% x Dj4 !4 %,-4 & 
*4D .4 '	(Q*T( ) 
&0D++4(,4*e/d,^4 +4-+ 0Z$,COMPSTAT  ?{?{DVDM- 
M- M- 	(( 7!XwXwXwXwXw \Q|X>x  x0 p0`h-" 
1B$4D E	(Q(U* @4 >Z$ D
14 @Z$ j/k,% x Dj4 A4 E,-4 E,o4 F 
&	"U*U( H0D+ O4 G 
*4DN4I, +4 K4e,^4 L+O4 M+ Q4 NZ$,
&  )F0&+ R4 S 
&0D+ h4 W	(U*E
 Y j Dp4 Y j Dj4 Z j.k Dj4 \Z$ D
14 ^Z$ D
24 _,-	*Q** b4 a, G4 b 
&0D+ f4 c,-4 e p Dj4 f4 g 
&)	"PE* j0&+ R4 h 
&4+)F1&+ q4 kZ$,
*4D u	*U
U* s4 q e/d,^4 s 
&0D+!4 u,-4 w 
)4D {4 x j/k Dj	*T*U* {4 y 
*4D!4 { 
&0D+!4},K4 e/d,^4!4!+!Z$*!,OLDSPACESM?{@{D=CASES !TAT  ?{?{DnDDEd3 :DEd6 8DEd7 7@@D
T!D
L!D	((!!HXwXwXwXwXw \Q|X>x  x0 p0`h-" =4
! 
1B$4D!	(Q(U*!4!Z$ D
14!Z$ j/k,% x Dj4!4!,-4!, b4!  
&	"U*E*!"0D+!&4!!,-4!#,! 4!$+!!4!% 
&0D+!04!& e/d,^4!(	"U*Q"!*Z$ D
14!*Zj/k4Dj4!+,-,-4!-+!1Z$,
&0D+!E4!2 
1B$4D!<4!4Z$ D
14!6Z$ j/k/m,% x	*U**!; Dj4!84!<,-4!< 
*4D!D4!= 
&0D+!B4!?,4!A e/d,^	*E!D4!B4!D+!FZ$,?{D>D(a!!(a!!(a!!	((!N"XwXwXwXwXw \Q|X>x  x0 p0`h-"!4!F j Dp4!T	(T(Q(!V 
2B$4D!c4!V 
1B$4D!_4!XZ$ D
14!ZZ$ j/k,% x Dj	*U
U(!_4![4!_ j.e/e.k/$ Dj4!_4!c,-4!c,!$4!d 
&0D+!x	*(T*!g4!e 
1B$4D!o4!gZ$ D
14!iZ$ j/k,% x Dj4!k4!n 
*	*U**!p4D!t4!o,!A4!p e,^4!q+!u4!sZ$ D
24!t,-4!u,!e4!v+!y	"Q*T(!xZ$,
&0D+"4!y e/d,^4!{ 
1B$4D"4!}Z$ D
1	(T*E*"4!Z$ j/k,% x Dj4"4" 
+B$A
*4D"4",!q4" e	*Q"U("	,^4"+"
4"
Z$ D
24"Z$ D
24"
,-4",!w4"4"Z$ D
1	**Q "4" 
&0D+"4","4" e/d,^4" p Dj4"Q~Y|,~	!"          D#[?|" D#/OLDSPACESM?{@{D#]IFSTAT    ?{?{D$DZ+!QZ.!NZ/!N	(*"#"3XwXwXwXwXw \Q|X>x  x0 p0`h-"!T4
" g$k Dj	(U*U"+4")Z$ D
14"+,-4"- 
*4D"14". e/d,^4"/Q~Y|,~      @"4     ?{?|"6D&?LABELSTAT ?{?{D&nD I&"& I*"# I+"#	(("9"dXwXwXwXwXw \Q|X>x  x0 p0`h-"")4
"1 
1B$4D"G	(Q(U*"A4"?Z$ D
14"AZ$ j/k,% x Dj4"C4"F,-4"G 
*G
)4D"L	*T*
"J4"H e/d,^4"JZ$,P4"L 
&0D+"a4"M 
1B$4D"W4"OZ$	*
U*"R D
14"QZ$ j/k,% x Dj4"S4"V,-4"W,"4"X 
*4D"`4"Y	(U*T("[ 
&0D+"]4"Z,"4"\e/d,^4"]4"+"bZ$,REPEATSTAT?{?{D,vD53K"<53N"953O"9	(*"i#?XwXwXwXwXwXw \Q|X>x  x0 p0`h-""?4"b j Dp	*(U*"r4"p 
&0D
+"x4"r,-4"t 
&0D+"x4"u,"&4"w4"x 
&	 T*U("z)F0&+#4"x 
2B$4D#	4"| 
*4D#4"~ e/d,_4" $ 
&	 U*U(#1F@4D#4# j.k Dj+#	4# j.m Dj4#4#	 
&0$0d
	(U*U*#+#+4#	, 
+#4#
,!+#4#, :+#4#,!Q+#4#,"<+#	*U*T##
####4#+#:4# 
*4D#4# 
&  )F0&+#	*T *#4# e/d,_4# $ 
& 
 )H0(@B$4D#$,-+#4#	(T(U*#% 
&0D+#94#$ 
2B$4D#24#&Z$ D
14#( j Dj4#* j.k Dj	*
U(#-4#+ 
*B$G
)4D#14#-Z$ D
24#04#1,-4#2,"l4#3 
&0D+#7*U*#64#4,C4#6 e/d,_4#74#94#9 p Dj4#:Q~Y|,~	 H@#=0@          D8+?|#HD7OLDSPACESMD,t#E@{D8-CURBL'@#FOCKNRDL 5@|#BD8]STATEMENT ?{?{D9DV?[w"mV?[~"jV?["iH D2@D1@@@D3,#=D3$#>D4
#>D4#?	(*#K#uXwXwXwXwXwXw \Q|X>x  x0 p0`h-""p4
#; 
0B$	"*Q#S & 
i0H@A4D#X4#R,C4#V+#R4#W $ 
i 
  )H	 AD#\0(@ 
0B&A e.&0&0f-- J ( 	v0F@A4D#r4#X	(P*Q #d 
i0D+#i4#dZ$ Dp4#f,C4#g+#p 
i0D+#n4#hZ$~Dp4#k*P(T#m,C4#l+#p4#mZ$>VDp4#n4#pKp,4#p4#rQ~Y|,~	 	#t          D??|#{D>LASTCH   ?{@;D?

#~%PR\Q|X>x  x0 p0`h-"#Q4#rZ$ D
/4$^$ Dp4$4$,.	*P**$4$ 
&)0&+$4$ g.$ Dg4$
 g$k Dj4$
4$	*E*E
$@@
14$ 
&0D+$E4$ e/d,_4$Z$ D
14$Z$ j/k,%	"E*U$ x Dj4$Z$ D
04$,.4$Q$
%X$
$*$
%4$ $h 0@7,z,z	* $ 4$ $h 0@7,$ &Z( *
,(&*&(,$$"&$( & * (,$( &
$ * (,$* & * (,$,4$  
(B$4D$?4$.	(

$1 $h 0@7,$" & * (,$.4$0Z$ i Fp Dp2dp+$? $h 	"*$90@7,$2 pZ(,  & * (,$4:p+$74$54$?4$?,.4$@ 
&	**A*$B4$A4$D 
&)0&+$n4$E e/d,	(Q(U*$J4$HZ$ D
14$JZ$ j/k,% x Dj4$L 
*4D$T4$O,#N4$Q e	*T**$S,_4$R4$S,.4$T $ 
& 
)0(@B$4D$m4$U4$Z,m	*Q*P
$[4$Z,.4$[ 
&0D+$`4$\,.4$^+$Z4$ $  G

&	 
U*$d)F(0&@B$4D$k 
&0D
+$i4$`,
+$j4$h,.+$a4$i,.4$k	*U**$l+$U4$l+$E4$m@@
/4$n 
&)0&+%4$o e/d,4$r	"E"Q*$uZ$ D
14$tZ$ j/k,% x Dj4$v 
&1D+%4$y,.4${ 
&	"U**$}0D4$,#~4% 
&0D+%4%,.4%+$o 
1B$	*U*E*%4D$4% 
*4D%
4% e/d,_4% g/$ Dg4%
 g$k Dj4%
	"D% $ 
& 
 )H0(@B$4D%"4% $ g0F@ & 
&0H	 Q(Q%@A4D%4%Z$ D
/+%4%Z$,
& 
 )H0(	 U"U"%@B$4D%",.+%4% 
&0D+%%4%","m+%*4%$ 
/B$4D%*4%%	"U"U*%(Z$ D
14%',.4%)4%* g0D+%C4%* 
04D%A4%, 
/4D%34%.Z$	*E(Q(%0,
&1D+%74%3Z$,	*P(@*%9,$:,$4%7 $h 0@7,%9 fZ(,$; & *	 (	,$=,%94%:4%@(U %A f.$,4%A4%C,4%CQ~Y|,~	 %FPFORM/LOTS 1.1  4-SEP-80:  [  ] Page..0 @0 @ erro	  %Or(s) detected          DZ;?|DZPOPLIST   D[%VB4+DZ<I         Cc$Y0@%W@{DZeWHATTOPOP B,|#{D[CD[D[@R"@UZ.#~2dW#~@	D6l#ND+T#MD+
"lCf,C2L-DD,%FDDL%IDE
%IDEL%JDF4%JDGD%KDL$%KDL%LDR%LDQ|%MDSd%MDS\%NDWd%N	(**%]4%D	d
	d D~4%],`4%_,	"4%`Z$ D
i4%a4%b,#~4%c 
0B$	"*T%e & 
&0H@G5D%j4%d,	4%h+%c4%i $
%nB$4D&4%j$4D&4%o $4%s $
P*%,)4%|+%o4%$$k	*T

&4& 
'4D&4& $h 0@7,& Z(,%= & * (,%?,&4&		( @(&4&	d
	d/~ D~4& $h 0@7,& & * (,& ~&&j0Z(	(
A(&,&
Z& (,*4& ~&$j0 F~4& ~&$t0$+&#4& $h 0@7	( P &!,&Z& (,&4&4&# $h 0@7,&! ~&&tZ(,&Z& (,&"	*
E &)4&# ~&$t F~4&) ~0$2+&:4&+ ~0$+&54&- $h 0@7,&%	 (*&2 & * (,&4&/+&94&4 $h 0@7,&1Z& (,&)4&54&94&9	(*
&:[$h\0@7,&7~Z(,&',&4&:++&@+&Ag " Bz |5B&E	*P&C @{ N{ R|O@| < \ < \Z&1\ < .<Q<pX>pQ \}	((&K ^}	`-"0x-" "$	b-" $h "@f@j@n,7 $V "@f @"&T@j@n,n `B`b+%],+%]	 @&X procedure and function definitionsRuntime: 00T         E
&aD{4&cD{#Dl@CMMODES   D&eD{#Dl4CMINI     Dy<&h?{Dl^CMIFI     ?|&j	 
@&i?{DmCMFIL     Dx&m?{Dm.CMCFM     Dst&o?{DmVCMATOM    DsL&s@{Dm~@	 @`&r?$ ?CMACT     Ds$&w@{Dn>@>xd ?BYTESET   Dqt&z?{Dn~ARRSE	&9&zT    Do|&|?{Do&ANYVERSION?|y@d
pDoMDpARRWRITE  Dp#?{Do~BYTEPOS   	,'?|'@{Dp&@>8L ?BACKSLASH Dq@;Dpd@.BLANKS    B|S@~Dq@	(''
'
          BYTEWRITE Dr?{DqvCAPITALIZEDrK@{Dr@	 8'CASETYPE  DrtP@r+DrLCH        ?{@;DruMCMAGAIN   ?{?{Ds&	 @'CMAUTO    ?{?{DsNCMCMA     Dt?{DsvCMDIR     Dv'%@{Dt@?4 	 
'%?CMDEV     ?|')@{Dt^@? ?CMD       Du[@{Du@? ?	 '-CMDEF     ?{?{Du^CMDIRW    DvC@{Dv@? ?CMDN      Dvk?{	 8'6DvFCMERR     Dwl':@dDvn@>^T ?CMDO      ?{@{Dw.@>O ?	 '>CMERRMSG  ?{?{DwnCMFLT     Dy'E@lDx@?!d ?CMFLD     ?{@{	 'GDxV@>t ?CMHLP     ?{?{DyCMINIR    Dyc?{Dy>CMMODE    ?|'R	0
'OD{#Dyf@?=t ?CMKEY     ?|'V@{Dz&@?7 ?CMINT     ?{@{	 @'XDzf@>M ?D{ A'[RESCAN    D~T'^D{$&`D{4@PUTSTR    B4'`?{D{f	!`'`NUL       D|<N@{D|
@ONEPLUSTABD|ls@{D|<@rPACK6     D}t'iD~D|l	 `8@'iPACK15    ?|.D};D}D}8dD}TcD}PDPACK9     BcAgD}t	#D`'qD~dD~4cD~0CSAMECASE  BTZ@{D~T@CMSWI     E|'|@{	 `'zD@?3T ?CMOFI     E|'~?{DFCMNUM     E<(@{Dn@?* ?	 @
(CMNOI     ?|(?{E.CMNOD     ?|(	@{EV@>v4 ?CMMULT    ?{?{	 (
(ECMNUM8DN  E{@{E>@?'dM?CMNUX(-   E;@{E~@?%dM?	((CMNUX8??{@{E>@?#d?CMQST0E;@{E~@>{M?CMREA	!@(L E	L?{@lE>@>K ?CMTOK	 Et("?{E~CMTAD  ?|E$(&@{E&@	 @@($??CMTERR?{@{Ef@?	0(FAa#ETGJDIR     E	#?{E~GJEXT     ?{?{E	&GJNAM     E
(O?{E	N	 @(OGJJFN     ?{?{E	vGJPRO     E
C?{E
HT        E
t1@{E
D@LINSI	'
0(WZE   E
(Z@{E
t@,LINSIZ1PLU?|(]@{E$@,LINNUMSIZE?|8@{ET@	! (`LINSIZPLUSE
3@{E
@-MAXINC    B
(f@{E
4@PLOWERCASE Av$F@{E
d@	E(p(hTABLEINDEXE{AETABSTBMAK?{EkE=
(~@aKE&@?;D ?TBADD     ?{?{EfVERSION   AD)	0A@)EKE
@)VERLENGTH ?|)@{E<@UNDEFINED E'@{El@UPPERCASE 	< )
BD@{E@EHdc)
PFORM/LOTS 1.1  4-SEP-80E(	(<)d)?xYEAR      E$)E)EEpMONTH     E)Et)Eu`DAYOFMONTHET)	8d)ET)5E%pDAYLIGHTSA?{@d
) EUP@hZONEINPUT ?|)#@d
)-EP@`ZONE      	&!)$?{Ed)(E5P@HE`FSECONDS   ?{E3E`E0R	 @2),JULIANDAY ?|)0@d
)0EUP@XDUM       ?{E4)#EP@PE0H	!0d)5DAYOFWEEK ESE):EU`ERZONEUSED  ?|) @d
)E%P@pEP	(p)=REpRERINTEGER   E$)E@{E4CHAR 	'p)F     @h,)H@;E\BOOLEAN   E,)J@dEALFA      E)M@~E,ABS       ?{	 @)N?{EV@TIME      ALFALENG  EC@{E@APPEND    Ek?{EFARCTA	#`)WN    ?|)Z@lEn@?Z$ ARCSIN    ?|)^@lE.@?S$ ARCCOS    	$ )_?{@lEn@?R$ BREAK     ES?{E.CALLI     ?|)g?{EVBREAK	 p)hIN   ?{?{E~REAL      E&,)l@lE$POINTER   E#)oE&EO@NIL       E t)r	0@)pE"sEt@MAXINT    E|)u@{E$@?MARK      ?|)w?{EVLN        E;	0)y@lE~@?[$ LOG       ?{@lE>@?Y$ NEW       E #?{	  q*E~NEWZ      E K?{E &NEXTBLOCK ?{?{E NOUTPUT    E"$*
@hE u H	!*
ODD       E!c?{E!&@0TRUNC     ORD       ?{?{E!f@8ODD       PACK 	$`*     E"K?{E"&PAGE      ?{?{E"NE"pRPUT       E$*?{E#PRED 	$*     E#k?{E#.@HCHR       PROTECTION?{?{E#nPUTLN     E$d*#?{E$	 *#PUT8BITSTO?{?{E$>READ      E%t*(?{E$fPUTX      E%3?{E%RANDOM    	$*,?{@lE%6@?Q$ READLN    ?{?{E%vE&dTEXT      @d*5@h	 8`*4E&,STRING    E-*7E.SE&W@RESET     E(4*:?{E&~RELEASE   E(
*<?{E'&RECSI	 *=ZE   ?{?{E'N@xROUND     RENAME    ?{?{E(REWRITE   E([?{E(6	!@*ESETPOS    E**H?{E(^RUNTIME   ?|*L?{E)@DATE      ROUND     ?{?{	 p*NE)F@pEOLN      SPACELEFT E,*T@xE*@?ftSIN       E+@lE*F@	 @*V?dt SIND      E+C@lE+@?X$ SINH      ?{@lE+F@?V$	 @*_ SQR       E,C?{E,@ ABS       SQRT      ?{@lE,F@?\$	  @*g STRSET    E-+?{E-STRWRITE  E-S?{E-.SUCC      E.?{E-V@P	 
*pPRED      TANH      ?{@lE.@?T$ E.Pd?|c
&>&]	*P*x)CacPFORM     fa~+ a 	 + +	P*v@~DaT&XDbT&\Df$&]	D"`[&?`[&?@%zINGg{INVT{IN	||
u^c;D	D"|G;2c(TSgOe5kL"e5`6"kX`%@O`D{bKd+'sbKTI;W	D"`%(4bKLtDp`
W{.`
X/g0`
XX,`&>z`%kh`%}O`%`wK	D"`%-1`%?)|`&=v`%K]G`?^=`@)Fp`%@Ikd+#4<&EdSLxg&F	D"g=p#[bM	J&Mb^k:$e
Nu&`-%&>`';%	D"e5$@&Ue5!\&R`
NsM%{`-%P
|`
]c]Ez*&<f73&3f7R3c_#`D f7O&=f7r&8ev|>&Lev{2&OxaJ1ggaJ1gg/8 &?((+