PDP-10 Archive: 43,50530/pform.rel from decuslib10-11

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

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|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&

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-+

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

 e/d/$ e/& Fp Dp2dp+

* p.$0$0d-- * p.&0&	"A(U*

%0f--

# 	v0&0f?-

% v F	v:p+

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

: 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+

:4

SQ~Y|,~	!

X          AK3?|

aAKWHICHCASE ?|

^@r+AK5J         ?{@{AKe

`SETCASE   ?{?|

[AL@MP

MP

H AJ@AC0	(
E*

cQ|X>x  x0 p0`h-"

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@ $

$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 &

$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 (

 
,*)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$

&4U

i0D!+Z4V,C4X+x4Y

i0D+f4Z	* 
]4\,C $

i 
 R)H0(@B$4D]4]Z$

&4c@@d	*E*
e4d4e

i0D"+w4f,C4h

i   `)F0&+n4i,C	*UU"n4m4n

i k)F0&+t4n,C4r+o4sZ$

&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$

&4!+l4#Z$ D

&+l4$4&,C4&

i0D+-	(U(U*)4'Z$

&4),C4++/4,Z$ D

&4-4.+l4/40,C40	"E**2 p4D641@@p43+144+845Z$

&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 &?((+