Trailing-Edge
-
PDP-10 Archives
-
decuslib10-11
-
43,50531/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. H H H H "H F H H H $ 0 @ B D F H H ( R\Q| X>x x 0 p 0`h -" Dp Fp 1 7 4 p 2dp + ( H 4 p Dp + 4 p Dp 4 Q~ Y|,~ @?| @o !0 A @K@| @ B ?{@{@M @x d MIN ?{ 8 "@| @@ ?| @ ?{ @ h -pS ( ( $ 1R\Q| X>x x 0 p 0`h -"
Dp Fp 4 p 3$p + -4 ) p Dp * $ -+ /4 + p Dp 4 -Q~ Y|,~ @C?| :@ A @s 8 @ 5@| 7@E B ?{@{@u MAX ?{@| 4@&@ @P ?{ @ M % -@ $ >H H ( ( ? YX wX wX wX wX wX w \Q| X>x x 0 p 0`h -" (4 /Z$ , G x Xw D 4 FXw Z& ( * Z, , 4 IXw Z& ( * "@ Q PZ, , L4 MXw Z& ( * Z, , P4 QZ$ , G x Xw D 4 U (@ XXw Z& ( * Z, , T4 XZ$ , V x Xw D 4 \Xw Z& a ( * Z, , [4 _Xw Z& ( * Z, , b4 cXw Z& ( P i * Z, , f4 gXw Z& ( * Z, , j4 kZ$ , ] x Xw D (
r4 oXw Z& ( * Z, , n4 rXw Z& ( * Z, , u4 v (
zXw Z& ( * Z, , y4 zXw Z& ( * Z, , }4 ~Xw ( Z& ( * Z, , 4Xw Z& ( * Z, , 4Xw Z& ( * Z, , 4
XwX Z& Z( * Z, , ( * Z, , 4Xw Z& ( * Z, , 4Xw Z& ( P * Z, , 4Xw Z& ( * Z, , 4 Xw 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|,~ @STARTRUN ERUN HELP UPPERCASE SAMECASE LOWERCASE CAPITALIZEVERSION: TASMANIAN SUPER HSTRING-CASE: SAVE-COMMENT RESERVED-CASE: QUIETPROCEDURE-CASE:PRESERVE NONRESERVE QD-CASE: INDENT: FORCEELSEIF DENNYCOUNTCOMMENT-CASE: CASE:BEGIN: BAR $@ Y @C?|f@ INVISIBLE @s@{@D@ RSTRING ?{@ #@u #@ b@ d >@ Lc@ 8 G @ H A DEFINEOPTI?{?{@ n D _
G B_
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 ( ( i X wX wX wX wX wX w \Q| X>x x 0 p 0`h -" E4>^$ D i *U"T* q4p@@
'4q@@
)4r@@
*4sZ$ D
,4t@@
+4vZ$ D
.4w@@
(4x "T(U* zZ$ D
,4y@@
)4{Z$ D
-4|Z$ D k4}@@
*4@@
+4 @@
'4 "A*U Z$ D
-4Xw@@ 4@@ m4@@ l4@@ l4@@
(4Q~ Y|,~ ?{?|@!7 SETDEFAULT?{?{@!f D MPt lMP~ iMP i ( * HX wX wX wX wX wX w \Q| X>x x 0 p 0`h -"o4 i1d **E
+ 4^$ D i4Z$ D
'44 k0$ + !4 Z$ D k4 4 (U*U* ! m0$ + (4!" m D l4# l D l4$@@ m4&+ *4'@@ l4(@@ l *U*U
*4)4*
)4D24* k D l4,@@ m4- k D l4.Z$ D
.4041 2Xw 1D + F42Xw 1d 1$ - D
.44Xw 1d 1$ - 7 * * * ; D
-48Xw 1d 1$ - : D
-4;Xw 1d 1$ - > D
,4?Xw C 1d 1$ - A D
,4B4FQ~ Y|,~ ?{?|K@) GETOP LTIONS?{?{@)> D (T\7 (T\: (T\; ( ( N [X wX wX wX wX wX w \Q| X>x x 0 p 0`h -"4F, x * V4DY4U, 4W, 4X4YQ~ Y|,~ ?{?|^@+? ERRCH _ECK ?{?{@+n D ]l Q]l N]l N ( ( a X wX wX wX wX wX w \Q| X>x x 0 p 0`h -"T4Y , (
( i4hZ$ , 4i$ $& , 4kU$ * r, l4pP$ *E( z4D}4y $ STARTOLD ?{?{@0N D V?Qd dV?Qj aV?Qk a @ ~ @-
@-< @. ( ( 9X wX wX wX wX wX w \Q| X>x x 0 p 0`h -"g4~Z$ , x ( 4, x Xw D 4 $ Xw 1f @ Xw D 4Xw 4D (
4Xw , x Xw$D 44Xw 4D74 , i4 )$ & , 4(, y x B$ Xw D 4*^& >&& ` =(/Z( Xw 1. " h 4-, 43, + x Xw D 4446Q~ Y|,~ $ ` 9 @7K?|B@7 RSCAN ?|?@{@7L@ RLJFN ?{@{ A@7|@ READRESCAN?{?{@8. D 4v w
4v
4v
@ ` @3l9 , EH H ( * F AX wX wX wX wX wX w/\Q| X>x x 0 p 0`h -" ^& E&& ` =(Y ( . " $ 1D @ *
p 0, @
"@A _A 4Hq4U p /$ 0$ 0d - W^& E&& ` =(e p /( 0( 0h (A h- c^* E&* ` =,j.
"( ( . " h 4` p .$ Dp 4n * " p+ U4p p /$ 0$ 0d - h^& E&& ` =(u. " $ 1D + { ( y4q p .$ Dp 4y4{ p /$ 0$ 0d - s^& E&& ` =( Z( D . " h 4{ p .$ /$ 0$ 0d - ~^& E&& ` =(Z( 7. @
|" h 4 p .$ /$ 0$ 0d -4^& 8E&& ` =(Z( 2. " " A h 4 p .$ /$ 0$ 0d -,^& .E&& ` =(Z( ;. " h ( " 4 p .$ /$ 0$ 0d - ^& E&& ` =( Z( . " h 4 ( T # $
C?|]@H JFNS @I\G@{@HL@
FIELDLENGT@I+@{@H|@ FLPLUS5@JP $ p @ K?{@{@I,@ OLDNAME @JtP@K#@I] NEWNAME ?{@J;@J STARTNEW ?{?{@K^ D V?Qd IV?Qj FV?Qk E @ @ @:$:@E ?@E<@@ETA (
P* ` R\Q| X>x x 0 p 0`h -"L48, B4d $ & , *4e,
4g P*P( h p B$ 4Dl4h $ & , f4j4l, d4l p B$ 4Dq4mZ$ , *T* " q4o4q, l4q4r, 4s, 24t p , x Dp 4u p 4D{4w P y $p & , *4y, x Dp 4{ $ p 0F @ & p 0H @ G *P* 5De4}, Q4, x 2$ 0d + d+ 4, x D i+ d44 *"
$ & , 4
Z$ D
)4
+ d4
*+ d44 p , x U(* 1d 1$ - E D
,4+ d44 $ & , 4Z$ D
+4+ d4 (@*Q* 4 p , x 1d 1$ - D
.4+ d4 Z$ D
(+ d4 4" p (*Q" $, x 1d 1$ - D
,4#+ d4'4( $ & , 4(Z$ D
)4* *DU" ,+ d4,4- p , $ x 1d 1$ - & D
-4-+ d41, x D k+ d *
Q* 54245 $ &
*47+ d49Z$ D
++ d4:4< $ "E*
= & , 74<Z$ D
'4>+ d4@4A p , . x 1d 1$ - 0 D
-4A *T* F+ d4E p , B x 1d 1$ - D Dp + d4F, 3 x D m+ d4K4M Q*U* N $ & , >4NZ$ D
(4P+ d A d K F d d d 2 - *U*U* W d " d d d d d d d d *U*U _ d ( d d 5 : < d d M4Q+ s4d p 0D + h4e *T
h, t4g, Q4h $ O " , 4i, 4o * p, I4pQ~ Y|,~ sOldsource? FORMAT INDENTATION NEWLINES IN STANDARD PLACES PROCEDURE AND F {UNCTION DECLARATIONSFORMAT FOR COMMENTS w/E @`;?|P@` CASES ' COUNT@r|@{@`<@ CASES ?| @aL
@`m CALLTABLE ?{@aL@a "
@aH R @at @ap G 2 OPTIONS @bC@aL@b RESCANNING < P @c\@d @bE @ PAREN @8+@c#@bu H @c d >@c<c@c8 A !0< RUNCOM @!c@d
@c] 8 @d A!TRUE @e
$@d
B@d @ TIME ?{ &?{@dN@ RUNTIME TTY @e|+@h@e
h TRUNC ?{?{@e>@ (
0 .SQR @gt5TTYOUTPUT @f+@h@e} @ { 7@fV UPDATE @g#?{@f~ USETI @gK?{@g& USETO ?{?{@gN WRITE ?LN ?{?{@gv @h dcFALSE @oTE@d @h,@ CLOSE @iDH?{@h^ 0 HCHR ?{?{@i@ @ ORD DISMISS @m N?{@iF DELETE ?|Q?{ 8
P@in CURPOS @l$U@x @j@ ?| COS @k@l @jV@
t ! YCOSD @kS@l @k@
t COSH ?{@l @kV@
t @l ad DATE ?{@lc@l&@
D @l` d @l|c@lx @ DUMPI & jN @mll?{@m DISPOSE ?{?{@mF DUMPOUT @n?{@mn EOF @nS r?{@n@ X SUCC EOLN @o?{@nV@ ` EOF EXP ?{@l 1 {@o@
t INPUT ?| @h@oU ( GET @p+?{@p GETLN 8 @q$?{@p. GETLINENR ?|?{@pV GETINDEX ?{?{@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@], @]< ( @ S aR\Q| X>x x 0 p 0`h -"c Dp 4q p Q$ X$p *$p 4W#p #p H [/ # &$ r1f r1& - I Fp 4ZQ~ Y|,~ @|C?|}@| ` 0 dSY ?|g@~@|E$ HACK ?{@}#@|u @} dk@ INT1 > l@~Tn@|u@}=@ ALF ?{@~@}m@ @~ d @~4c@~0 @
uINT2 A ?{@{@~U@ @ Ay@d @ A$q@<n @8 A$?|k 0 @ }HASH ?{A d@^@
P
'R\Q| X>x x 0 p 0`h -"V4_ $
%, S x 0$ 0d r- r Dp (@
4@@p 4
$ 0p 1F@ p B& A 4D4
%Q$H`Q&H`D( 3B =h2B + 4Z$ Dp + 4~p 0D ""A 1D-|[ Dp 4+ ?|-AA% FOUND $ .?{@d AU A R1A d2?x STRING ?|5@~ 5A-@ NEXT 6 6A AT8A]p STACK ?{A;A
AAeP @ ( NEXT ?{ACAP @ A@ R<AP R1FIND_SY ?{ 0 GAAf@ T A @ ?{ @ Kyf Kyk ( ( J vR\Q| X>x x 0 p 0`h -" Dp Fp 4% .$ D 4O $p , S R x 1d r1$ - ^ Dp 4Q $ , Dp p 0F 1F- $ ,> , V,^ " @ [XD 4U p 0D 1D- XQ(p X( *( 4[ p 0D 1D- ]Z 0D 1D ( c- aZ& " f 4_ p 0D 1D- cZ 0D 1D- g^& " f 4e
l p 0D 1D- i p 0& 0f r-
rQF 4k p 0$ 0d r- o p Fr ( H@ t4qQ~ Y|,~ A?| Ao SY ?||@~A POINT % }ER A{AAM POS ?{A A} FIRSTDEF ?{?|yA. @ TA JTB J (
U* R\Q| X>x x 0 p 0`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|,~ ?{?| AO REINITIALI?{?{A~ @ 5 5 @ ` A (
U* "
R\Q| X>x x 0 p 0`h -" 4 @@
34 &@@
24 '@@
.4 (@@
/4 ) E *Z$ Dp 0d r+ 0 p 0$ 0d r- 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^$ Dp 0d d+
n p .$ 0$ 0d --
WZ& F v:p *
n+
i4
gZ$ Dp 0d +
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
i0d 0+ 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 ?{@{AAm INITIALIZE?{?{AB @ ^hLA "^hLO " @ A 0A 1A4 1A, 2AT 2AL 3Al 3Ad 4A
4A 5A$ 5A 6AD 6A< 7A\ 7AT 8A| 8At 9 @ A 9A
:A4 :A, ;AL ;AD <Al <Ad =A =A| >A$ >A ?A< ?A4 @A\ @AT AAt AAl B @ A BA
CA, CA$ DAL DAD EAd EA\ FA FA| GA GA HA< HA4 IAT IAL JAt JAl K @ A
KA LA , LA $ MA D MA < NA d NA \ OA | OA t PA PA QA 4 QA , RA T RA L SA l SA d T @ A
TA UA $ UA VA D VA < WA \ WA T XA | XA t YA YA
ZA 4 ZA , [A L [A D \A l \A d ] @ A ]A | ^A $ ^A _A < _A 4 `A \ `A T aA t aA l bA! bA!
cA!, cA!$ dA!L dA!D eA!d eA!\ f @ A" fA!| gA" gA" hA"< hA"4 iA"T iA"L jA"t jA"l kA#
kA# lA#, lA#$ mA#D mA#< nA#d nA#\ o @ A#| oA#t pA$ pA$ qA$4 qA$, rA$T rA$L sA$l sA$d tA%
tA% uA%$ uA% vA%D vA%< wA%\ wA%T x @ A%| xA%t yA& yA&
zA&4 zA&, {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
@ x A)t
A)l
( @"
XR\Q| X>x x 0 p 0`h -" % Dp 4
. p 0$ 0d +
V+ 4
4
*
e/ d/$ e/& Fp Dp 2dp +
* p .$ 0$ 0d -- * p .& 0& "A(U*
%0f --
# v0& 0f ?-
% v F v:p +
4
+
V4
*4
+ e/ d/$ (
- e/& Fp Dp 2dp +
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 Dp 2dp +
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?|
aAK WHICHCASE ?|
^@r+AK5 J ?{@{AKe
` SETCASE ?{?|
[AL @ MP
MP
H AJ@ AC0 (
E*
c Q| X>x x 0 p 0`h -"
4
V i.$ D i4
g@@ h4
i@@ h4
j " A
l $ &
$ ( Q&H`Q(H` * 3B =j
o3B @
(B& A 4D
z4
k (
t $ h 0@7, iZ( , & * ( , 4
t $ 0@7,
v, (
}4
zQ~ Y|,~
AP .. GE ?{?{?| @ SMN$
dSMN/
c @ x AMT
AO ( " X wX wX wX w \Q| X>x x 0 p 0`h -"
g Dp 4
}. f "P
| & * ( ,
y4 0$ 0d +
% * ( ,
5+* ( ,
P$& &
5+* 0( , -
5+* *( , ,
$Q( 2B @ & (
$ * Q(H`Q*H` 2B @ G 4D
T
hZ 0@7,
w+ h 0@7,
$4* "T7 iZ( ,
0$ 0d +
% * ( ,
5 0U 7,
5,* 0( *P
5+* *( , 7, E -----FILEN:M Ac# A`s?|YA`G ERRNR d $@ ?{Aa#A`u Aa? D MISSGCOMME?| BAa$Aa4@ MISSGUNTILAbAa$5Aad@ <@b NEXTSPACESAc\@|HAb
#Adx PROGRAMPRE?{@d
&Ad= F EOLINE ?{@d
)Adm F OLDSP 'H
*ACES Afd,@d
<Ae F OLDSOURCE ?|/@hAeM \P OLDFILENAM?{Af+Ae} ^p #D " 2Af( d AfDcAf@ F OLD_NAME ?{AgAfe \@ Ag d Ag,cAg( (d ;D FWDDECL Ag{@d
BAgM F GETNAME ?{?{Ag~ ELSEHERE ?{ 9 d C@d
EAh% F THENDO ?{@d
HAhU F( ENDELSEING?{@d
KAi F0 THENBEGINN 6 D LAhS@d
NAi5 F8 NOTOKENYET?{@d
QAie F@ COMMENT_AT?{@d Aj FH RESCA ' TSE Ak4W@r+AjE E` RESCANIT ?{@{Ajv@ $ ? RESNUM AlL^B# $1 ]Ak5 Q RESLIST ?{AlAke Rp Al .d Al,qAl( F RESSY $ b e?{Al{AlM XP Alx d BiAm FjOTHERSSY ?|mAmqAm$@ OPENBLOCKS $!@ n?{AnAmU \0 An d
iEQLSY AnD&Am'An@ ERRCOUNT ?{@|wAnE 0
A" v
h VARIANT_LE?{@|zAnu
p LEVEL AoS@{Ao%
x LINE500 Ap@| $ C AoU p|c " d Apx C PAGECNT ?{@|
Aq DVERSIO?{@|AqM r+@|Aq}
Ar- E PROCCASE?{@r,Ar] EH 2H COMCASE ?{@r, As
As= E FORCING ?|F@d
!Asm 0 @" !E( ELSEIFING ?|B@d
$At E0 SAVECOM ?{@d AtM E8 COLON As Am* )At|@ LBRACKET Au[Am2Au,@ LINENRTY ?|zAvAu\ Av c ? !0@ 2LPARENT @#Am5Av$@ POINT Aq|8Am?AvT@ PAGENRTY Aw, Aw[Aw "` :PM ?{@ ;Aw- ` AwX c ? COMMA Aj'AmBAw|@ SEMIC '@ d COLON Ax\$AmZAx,@ STACKTYPE AztHAKAx\ SPACEPRESE?|
a@|KAy !H KAye ?{@|NAy5 {TTAm`A{$@ @p \ RTIME ?{@{A{U h RBRACKET ?|cAm|A|@ QUIET A|c@d
h $ 2 eA|5 E QUIT ?{?{A|f BARRING ?{@d
kA} DENNYING A~Tn@d
$1 mA}= E DELSY ?{A~A}m M A~ d A~4iA~0 Gc / DIGITS &! v?{AyA~U [@ A d
cALPHANUM,?{AA [P WHILESY ?{AmAD@ 0 ~ FORSY ?| AmAt@ EXTERNSY Ay3AmB $@ STRGCONST BBAm% r B T@
AmB SYLENG ?|
H SY ?|@~ $@ B] DX BUFFERPTR ?|@| B
P BUFFER ?|BB= ` BLOCK ?{
?{Bn B.d B,cB( d -BUFFMARK ?{@| BM
X BUFFLEN < ` BL@{B}
` SYTY %@?{AmB- Dh IDENT ?{Am(B\@
@
INVARS ?{@d
B= Ep OTHERSY ?|jAm1Bl@
!p@ 1GOTOSY @\
Am4B @ FORWARDSY ?|Am7BL@ RECORDSY B,`Am@B|@ <@ :
RELEVANTSYB\ AnmB- \ RELJFN ?{?{B^ IFSY AzD%AmCB@ p B
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 [p DECSYM ?{An\B \ 2@ \PROSYM ?{An:B E \ EOBSY AnbAmjB t@ ENTRY B
|dAB
$ 2H dENDSYM ?{AnVB
M [` EOB ?{@d
+B
} Eh DOSY mAt mAmsBTIONA}<p@{B
cBx OFSY AeAmv A uB<@ EXITSY B $yAmBl@ ERRMSG ?{BKB FP BH 4d Aa$~ #D p ~B` d B|cBx F THENSY ?|KAmB @ ELSESY AydjAm
A BL@ UNTILSYBB+Am` ENDSY B t 8` AmB\@ INITPROCSYB
@AmB
@ PROCEDURESBl5AmB<@ PROCTABLE 4 ap Ad;BBm N Brd A 0FUNCTIONSYAgL4Am B4@ PROGRAMSY BAm$
Bd@ PROG_NAME B C@~B DH VARSY ?|wAm'BD@ TYPESY ?| 8` (Am*Bt@ CONSTSY B\?Am-B$@ LABELSY Au,AmBT@ B F
d 1 B - MISSGRBRAC?{Aa$8B\@ LINETOOLON . ` 9?|-Aa$;B
@ MISSGPOINT?{Aa$>B<@ MISSGMAIN ?{Aa$ABl@ MISSG '@ X BQUOTEB\;Aa$DB @ MISSGRPAR ?|AAa$GBL@ MISSGEXIT BkAa$JB|@ !p@ JMISSGOF BLGAa$MB,@ MISSGTHEN AadJAa$PB\@ MISSGEND B\ Aa$SB
@ 82 S BEGERRINBLB
4VAa#B<@ BARETABLE[A} B Bm x ERRORAR?{?| $ [B D K{ -"
}Dp 4 (A( d/$ 0Dp 4c p 1d + S4e e.$ Dp 4g p .$ 0$ 0d --
p 2jp @ A 4Fs p .$ Dp + j4i p D e4s
u p .$ 0$ 0d -- l & v0D @ (
p 2*p @ A 4F4u p P** ~/$ Dp + u4} p 2dp + S4
1B$ 4D4 j D j4
)4D *U(* 4 k D j4
34D4,$
34*A( + 4j$ d* , 4 j&$ 1f + 4 (P $
&
)H 0( @ A
)4D74+
& "E(U 10D + 440Z$ D
3+ 64244Z$ D
344+ :46 $ *P" " 9, e.( .( 0( 0h -- $ * v0H T*U" B@
A 4FF4: e.$ D e4C+ ;4E e3d f+ R4F $ &
$ ( * JQ&H`Q(H` 2B @ & h1( P@ G 4DR4H,
d4P4Q4R *U*P S4R4S j D j4S@@
14U@@
24V@@
24WQ~ Y|,~ Z ,@ B+k?|gB+? POSITION ?|a@{B+m I 4 bB,K@{B, J ?{@|aB,M WRITELINE ?{?|^B,~ D 7 w _7 ~ \7 \ @ ~ B%TZB%LZB)$[ ( * j X wX wX wX wX wX w \Q| X>x x 0 p 0`h -"b4X, x " @" r Dp 4q p 1D+ 4s p 0D 1D- mZ 0D 1D- w " $ 4D (D {4u $ , Z Dp 4{ p 0D 1D- yZ& " f 4} p 0D 1D- ( p 0F 1F- Z " f 4 p 0D 1D- p XF 4 $ , | "
Dp 4
p 0D 1D- p F 4
p 0D 1D- Xw F 4 $ p Xw D 44Q~ Y|,~ B3;?|/B3 POINTER B54 0 @ AB3= P ?{B4B3m B4 R"B4( d$?x POINTER ?|' 8 @ %A'B4E@ NEXT ?{B5#B4u@ B5 R"S ?{B5cB55 " .B5` R<VARDEF ?{?{B5v D 2at m2a~ j2a j ( * 1 pX wX wX wX wX wX w \Q| X>x x 0 p 0`h -"p4, x "*D : Dp 48 p 0D+ L4:
&
%, J4< $ , Dp 4> p 0D 1D (@ B- Dp , p x F 4@ p 0D 1D- BXw F 4E p Xw "@
K D 4I+ n p 0D 1D- GZ 0D 1D- N " $ B$ 4Dn4K $ (@ P S, ? Dp 4R p 0D 1D- PZ& " f 4T p 0D 1D- V p 0F " A \1F- ZZ " f 4X p 0D 1D- \ p XF 4^ $ , S Dp 4b d p 0D 1D- ` p F 4d p 0D 1D- fXw F 4g p Xw "@@ m D 4k4mQ~ Y|,~ B>3?|~B> POINTER B?$vAB>5 u P ?{B?B>e B? R"S ?{B?SB?% B?P R< ~PROCDEF ?{?{B?f D
}? 5
}J 2
}K 1 ( ( /X wX wX wX wX wX w \Q| X>x x 0 p 0`h -"84
nXw " @ Dp 4 p 1D+ -4 p 0D 1D-i 0D 1D-Z 0D 1D ( @ - Z& " f + (4 p 0D 1D- 0D 1D- p 0F 1F ( "- 0F 1F- "Z 0F 1F- $ " & XF 4 p 0D 1D- & T $ + Dp 4(+
4,Q~ Y|,~ BF#?|6BEw P ?{ 0 3BFSBF% BFP R"POPOFF ?{?{BFf D
7h
7r
7s ( * 8 4X wX wX wX wX w \Q| X>x x 0 p 0`h -"4
-@@ k4?4@ ( * A$ 4D4@ $
D
$4H0$ 7, J 0D + 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.$ D h4q h "Q*E t.$ D h4s h0D z+ 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 $
)H 0( A T* @ B& ( 4D k4#4$ *+$ 4Dp 43 ( " 8. f.$ 0p 0Fp -Dp 2dp + @4p .$ 0$ 0d -- @Z& F v:p + :47 "U @ p D f4@+ L4A f.$ Z& ,, x D f4B f.$ 0$ 0d -- = (** I &
D
$4e0$ 7, g ,TT k* 0D + ~4h $ k D
$4t4u,$ r 4D}4v,$ i4y4|+ 4} $
$44 ((T* 4$ h.$ D h4 h.$ D h4 h0D z *T(P
(B$ 4D+4 $ &
$ ({Q&H`Q(H` 2B @ "@ & (
$ *Q(H`Q*H` 2B @ G 4D"4 $ h 0@7, Z& "D
T ( , & ( , + +44" $ h 0@7, Z& ( *
U
&, ! &
$ * ( ,
Z& ( , &4#4*4+4+4,Z$ D e4,@@ e (P /4.Z$ D
44/Q~ Y|,~ H@ 2 -----0 Bf{?|=BfO I Bg+@{Bf} TABST !@ ;OP ?{@|7Bg- READLINE ?{?{Bg^ D 4v ;4v
94v 8 @ @ Bbl2Bb$3BSL3BSD4 ( * @ bX wX wX wX wX wX w \Q| X>x x 0 p 0`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.$ D e4Z4\ $ f.& 2f e@ D
04]Q~ Y| $ b,~ Bg[?|eBl/ READBUFFER?{?{Bl^ D 4v? C4vB @4vC @ ( " h @X wX wX wX wX w \Q| X>x x 0 p 0`h -"F4` $ e0F "U*T p@ A
+4Du4n k D j4r k D j4s4u
-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+ ! ! x 4, B4! e D #/$ & 2D f@ e.( 0( 0h -- * v
$ )L 0, @
A ,G (
i
,*)L( 0, @ A 4F44"Z$ Xw D + ;41 " P 4 $
i
.)H 0( @ B$ 4D;44Xw@@ 49Q~ Y|,~ @ = ?{?|CBx NEXTCHAR ?{?{Bx6 D SOaM kSOaV hSOaW h H Bsx Bo @ | Bu =Bu=Bud>Bu\>Bvd?Bv\? ( ( E X wX wX wX wX w \Q| X>x x 0 p 0`h -"n4;4L@@p 4L A** NZ$ Dp 4MZ$ Dp 4O, B4P
i Dp 4Q
i1D + `4S, B4U ( V e/$ .$ 0$ 0d -- ' e/& .& 0& 0f -- Y v0& 0f ?- \ 6 *P T( _ F v4V4_
i 6)F 0& + u4`
i0D *+ h4dZ$ Dp *EQ g+ s4f
i0D !+ l4hZ$ Dp + s4j
i0D &+ p4lZ$ Dp + s *
U p4n
i0D )+ s4pZ$ Dp 4r, B4s+ 4t
i b)F "DU x0& + ~4u $
i0F @ Dp 4y, B4|4}
i w)F "P
0& + 4~4 p $$
i/& . Dp 4, B4 $
i
( P )H 0( @ B$ 4D4 p B$ 4D4
Z$ Dp 4"p Dp 4 *@"
444 p 0$ 0d -+ + 4 p 1d + 4^$ D i4Z$ *Q*Q( D
'4+ 4 p D i4 @@
'4 + 4 p D
++ 4 p 1$ *
U* #+ .4! p D k4# k&$ D l4%@@ m4'
)4D+4( k D l+ - * Q* +4) k&$ D l4++ 4- p 0$ + 54."p D l40 l D l42 *U(U" 4@@ m43+ 944@@ l45@@ l46 p D m47+ 494:Z$ D
)4: *U(U" < k D l4<@@ m4= k D l4>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 p 1d 1$ - T D
.+ 4Q p U U V1d 1$ - S D
-+ 4U p 1d 1$ - W D
-+ 4X p 1d 1$ - Z *@*P
^ D
,+ 4\ p 1d 1$ - ^ D
,+ 4_4c p 1d 1$ - a D
,4c T g p 1d 1$ - e D
-4f p 1d 1$ - h D
.4i p 1d 1$ - k D
, (*U* o4l p 1d 1$ - n D
-4o+ c I : M G . ! *U*U* x X U O K Q B _ \ * 4r
i1D + L4 Q~ Y|,~ @
C+?|C OCH C
;C- ? C] OSWITCHC=C;@d CNS ?{?{Cn D rWf` HrWff FrWfg E H C8 CX @ | B| B|B~tB~lB|Bt ( " jX wX wX wX wX wX w \Q| X>x x 0 p 0`h -"K Dp 4Z$ "E
T* ! Dp 4 j Dp 4"
1B$ 4D)4# j D j4%Z$ D
14'4(
+ *U*U" *A
44D/4) k D j4+ k D j4,+ 24. j. e/ e/$ D j4/ (
T* 242 p )F 0& + J42, k46
i0D + ;47, H49 *Q " ;4:4;, k4; $
i2Fp @ e/& .& 0& 0f -- ^ ( v0F U(U" C@ A G
.4D;4<
.4DI4EZ$ , I $
i3Fp "*U
L@
.B& A 4DP4J, k4N+ J4O
.4DT4PZ$ , ( T4T $ f0F @ A
(4DZ4T j/$ D j4X4Z, C4Z $
i U*Q( ]1F @ G
04DZ4[
0A
44Db4_, C4a p D j4b
1B$ 4Dg *P e4c j D j4eQ~ Y|,~ 8 i C S?|vC ' FINAL_CH C 4p@ ;C U AT_FIRST_W?{ 0@ q@d C OLDSPACESMClC@{C 5 DOCOMMENT ?{?|mC f D e!aw e!a~ e!a @ x CDiC<i ( " x ,X wX wX wX wX w \Q| X>x x 0 p 0`h -" 4
g@@p 4^& ( Q && ` =( "
%$ /$ 0$ 0d &( "A ` =* "
%& 0& ?-q.& /& 0& 0f 4D(4 p /$ 0$ 0d - $$ $
%Q$H`Q&H` ( 3B =h "A ( 2B + %4Z$ Dp 4 p /$ 0$ 0d -
&4
.1d 1$ *TT #-
,
4!+ '4$ p .$ Dp 4%4'+ 4' p Dp 4(Q~ Y| $ +,~ C%s?|8C%G I C&#@{C%u J C&S@|/ 4C&% LOCAL ?{@d C&U RESWORD ?{@d C'@ fD` C 8 ?{ D 5" {5& y5' x ( " < [X wX wX wX wX w \Q| X>x x 0 p 0`h -"~4* $
&0F "Q* D@ G
/4DG4B@@p + Y4F4G, x Dp 4H@@p 4J p 1D+ X ( M4K p 0D 1D- *Z 0D 1D- O " $ 4DX4MZ$ Dp 4S
, U( H U1d 1$ - #,
4T4W4X4XQ~ Y|,~ C+c?|dC+7 ` ^POINTER ?|aAC+e FOUND ?{@d C, PROCCALL ?{@d C,F@ fc` C'p ?{ D
}) ?
}6 <
}7 < (
h X wX wX wX wX w \Q| X>x x 0 p 0`h -"B Dp 4Y j Dp **U( p4o
1B$ 4Dv4pZ$ D
14r j D j4t4u j. e/ e/$ D j * U" y4v4y, 4y
& )F 0& + 4z, z4~
&0D 4 *D
U , 44+ $
&0F A
/4D4, l44 p 1h #1( - V Q"
" S$ @ )D G G
&)D 0$ + y4 p D j4Z$ D
14 (U Q(
&2Dp + 4, ~+ 4,p 0D + 4Z$ , p~`p C4#?|(C3w WHICH ?|%AmC4% OLDSP ! %ACESM?{@{C4U PARENTHESE?{?|"C5 D tiO ktiR htiS h @ @ C/D C/< C1L C1D ( * * X wX wX wX wX wX w \Q| X>x x 0 p 0`h -"n4@@ d41 " 3 $
i
4)H 0( @
.B& A 4D 42
i0$ 0d =+ o "U
( ;+ 494<, C4<
i0D + D4= $ e0F @ D
44?Z$ , *U(Q D4B4D+ 4D4E, C4F
i0D + N4G $ e0F @ D
44I "T** LZ$ , + U4L4NZ$ D
&4N g0D + T4PZ$ , k4R4S+ l *T Q* U4T4U+ 4U4V $ e0F @ D
44W@@p 4Z, C4[
'B$ *UQ( ]4Dh4\
i 5)F 0& + h4^
i/$ 2D i+ f4bZ$ Dp *UQ* f4d4f, C4f+ ^4g p G
'B$ 4Dl4hZ$ ., 4k+ 4lZ$ > *U*U* n, + 4m4o, C4p+ V o o E o o o o o o *U*U* w < o o o o o o o o o o o o o o o o *U*U* o o o o o o o o o o o o o o o o o *U*U* o o o o o o o o o o o o o o o o o *U*U* o o o o o o o o o o o o o o o o o *U*U o o o o o o o o m4q+ 34
i0$ 0d .+ G+ *Q*E" !4 4 !@@ d4 "Q$ X$
%*$
&4 #4 % d.$ D d4 % d0d + 04 ' ( T* * d/$ 0$ 0d - ^& && ` =( .
i "
%h 4 ), C4 0 $ * 2
i
,`)F( 0& @ B$ 4D %4 1, { x B$ 4D J4 8 ( ;, ? x B$ 4D H4 :
& )F 0& + D4 =
,1d 1$ - ,
*P*Q* C+ H4 @4 D
-1d 1$ - B,
4 D4 G4 HZ$
&4 H4 J+ l4 J *E(U L4 K4 L d.$ D d4 L, C4 N $
i
5)H 0( @ B$ *
U" T4D L4 OZ$
D
&4 U
i0D !+ Z4 V, C4 X+ x4 Y
i0D + f4 Z *
]4 \, C $
i
R)H 0( @ B$ 4D ]4 ]Z$
D
&4 c@@ d *E*
e4 d4 e
i0D "+ w4 f, C4 h
i `)F 0& + n4 i, C *UU" n4 m4 n
i k)F 0& + t4 n, C4 r+ o4 sZ$
D
&4 t *U"E* v@@ d4 v4 w4 w+ l4 x4 yZ$ D d4 yZ$
&4 {4 |4 }
,0D *@( + 4 } e.$ 0$ 0d -- , e.& 0& 0f -- v0& 0f ?- 6 *U
* F v4 4 , C4 d.$ D d4 $
i0F @ G
.G
04D }4 (Q*Q(
i1D + 4 Z$ , d.$ D d4
i1D + } *U
4 + l4 4 4 , C $
i
, p)F( 0& @ B$ *"U( !4D 4 Z$
D
&4 !+ l4 #Z$ D
&+ l4 $4 &, C4 &
i0D + - (U(U* )4 'Z$
D
&4 ), C4 ++ /4 ,Z$ D
&4 -4 .+ l4 /4 0, C4 0 "E** 2 p 4D 64 1@@p 4 3+ 14 4+ 84 5Z$
D
&4 64 7+ l4 84 9Z$ *Q*E* : D
&4 9, C4 ;Z$ , k4 <+ l4 =4 >Z$ D
&4 ?, C4 @
*4D F (U*P
C4 A, 4 C e, _4 D4 E+ l4 F4 G
i/$ 0$ 0d -
i D
& *U*U* K4 G, C4 K+ l $ G G G G G y G G G G G *U*U* T G G G K K K K K K K K K K & > G G *U*U* \ G G G ! ! ! ! ! ! ! ! ! ! ! ! ! ! *U*U* e ! ! ! ! ! ! ! ! ! ! ! ! 9 04 L@@
44 l *Q(T
m
34D x4 m
1B$ 4D w4 n
&1D + w4 p,$ 4 r *U*Q" v@@
34 u4 v4 w4 w
34D 4 x@@
34 y
&0D + ~4 zZ$ D
3+ *A*@ ~4 |4 ~4$ Q~ Y|,~ H ( | Cac?| Ca7
l111 CbC?| Cb
1I Cbs@{
CbE INCONDCOMPC'@d Cbu INSYMBOL ?{?{Cc& D ^|02 .^|0> +^|0? * H CYX CD H C> /C78 @ @ C6L C6D CD< CFD CF< CGl CGd CM, CM$ CS\
CST
( " PX wX wX wX w \Q| X>x x 0 p 0`h -"14
j Dp 4 "
1 "E*T* %B$ 4D )4 $Z$ D
14 & j D j4 '4 ) j. e/$ D j4 ), ,4 , *"E* -4 -
&0$ 0d + 4+ 4 -, + B4 0, + B4 2+ B4 34 4
& "U*U* 60D , ,4 8+ B 0 4 4 4 2 4 4 4 4 *U* ( > 4 4 4 4 4 4 34 9
& )F 0& + -4 B p D j (T*Q G4 EZ$ D
14 G
&0D + L4 H, ,+ M4 JZ$ , !t Cj;?| VCj OLDSPACESM?{@{Cj=
PARENTHESE?{ X?{Cjn D tiO tiR tiS H Cg Cf @ x Ch< OCh4 P ( ( Y X wX wX wX wX w \Q| X>x x 0 p 0`h -" "4 M g.$ D g *(U* a4 _ j Dp 4 a
1B$ 4D h4 cZ$ D
14 e j D j4 f4 h e/ e **E* j. j/ d.$ D j4 h, -, l4 l4 m
&0D + q4 n, + v4 p4 q (U*@
r
&0D 4 r, l4 t, -4 u4 v
& )F 0& + n4 v p *E { D j4 z g/$ D g4 {Q~ Y|,~ ( ~p Cp;?| Cp OLDSPACESMCjk@{Cp= CASEDEF ?{ ?{Cpn D DEa \DEb
YDEb Y @ x Co Cn| ( * EX wX wX wX wX wX w \Q| X>x x 0 p 0`h -" _4 } j Dp **U* 4
1B$ 4D 4 Z$ D
14 j D j4 4 e/ e. j/ d/$ *T * . k D j4 , -4 $
&
)H 0( @ B$ 4D 44
&0$ "*U* "0d
+ '+ 4 !, \+ 44 $,
+ 44 %4 ', m4 '4 (, -4 )
& "U* + )F 0& + )4 *
&0D + 04 -, -4 /+ 4 $ ' ' ' *Q*Q( 3 %+ 4 0
1B$ 4D :4 4 j/ k D j4 6Z$ D
14 84 : p D j *(P <4 :
&0D + ?4 <, -+ A4 >Z$ , ~x@ Cy?| KCxW OLDSPACESM?| @{Cy RECDE KF ?{?{Cy6 D 4y{t
4y{~ 4y{ H Cv Ct8 @ p Cf [Csd CCs\ CCu< DCu4 D ( M ~X wX wX wX wX w \Q| X>x x 0 p 0`h -" Dp 4
A, 4 T (U*@ V
&0D + Z4 U, -4 W, U4 X+ V4 Y $
p 1j #1* - F"
S& Q" ^@ )F( G G
&)F( 0& @ B$ 4D r4 ZZ$ ,
&
(*T* gB 4D k4 e, -4 j, Y4 k
&0D + q4 l, -4 n *U*U* o, k4 o+ l4 p+ [4 q
*4D u4 r e/ d, ^4 s
34D {4 u@@
3 *( x4 w4$ x4 {Q~ Y|,~ } D ?| Co ENDSYM ?{AmD ENDEDSTATS?{ ( ?| D N D }
P}
N}
M @ x C| }C{| ~ ( ( 2X wX wX wX wX w \Q| X>x x 0 p 0`h -" S4
{
1B$ 4D (Q** 4
14 Z$ j/ l/ m, % x D j4 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 D j4 !4 %, -4 &
*4D .4 ' (Q*T( )
&0D + +4(, 4 * e/ d, ^4 +4-+ 0Z$ , COMPSTAT ?{?{DV D M -
M - M - ( ( 7 !X wX wX wX wX w \Q| X>x x 0 p 0`h -"
1B$ 4D E (Q(U* @4 >Z$ D
14 @Z$ j/ k, % x D j4 A4 E, -4 E, o4 F
& "U*U( H0D + O4 G
*4D N4I, +4 K4 e, ^4 L+ O4 M+ Q4 NZ$ ,
& )F 0& + R4 S
&0D + h4 W (U*E
Y j Dp 4 Y j D j4 Z j. k D j4 \Z$ D
14 ^Z$ D
24 _, - *Q** b4 a, G4 b
&0D + f4 c, -4 e p D j4 f4 g
&) "PE* j0& + R4 h
&4 + )F 1& + q4 kZ$ ,
*4D u *U
U* s4 q e/ d, ^4 s
&0D + !4 u, -4 w
)4D {4 x j/ k D j *T*U* {4 y
*4D!4 {
&0D + ! 4}, K4 e/ d, ^4! 4!+ !Z$ * !, OLDSPACESM?{@{D= CASES !TAT ?{?{Dn D DEd3 :DEd6 8DEd7 7 @ @ D
T!D
L!D ( ( ! !HX wX wX wX wX w \Q| X>x x 0 p 0`h -" =4
!
1B$ 4D! (Q(U* !4!Z$ D
14!Z$ j/ k, % x D j4!4! , -4! , b4!
& "U*E* !"0D + !&4!!, -4!#, ! 4!$+ !!4!%
&0D + !04!& e/ d, ^4!( "U*Q" !*Z$ D
14!*Z j/ k4D j4!+, -, -4!-+ !1Z$ ,
&0D + !E4!2
1B$ 4D!<4!4Z$ D
14!6Z$ j/ k/ m, % x *U** !; D j4!84!<, -4!<
*4D!D4!=
&0D + !B4!?, 4!A e/ d, ^ *E !D4!B4!D+ !FZ$ , ?{D> D (a! !(a! !(a! ! ( ( !N "X wX wX wX wX w \Q| X>x x 0 p 0`h -"!4!F j Dp 4!T (T(Q( !V
2B$ 4D!c4!V
1B$ 4D!_4!XZ$ D
14!ZZ$ j/ k, % x D j *U
U( !_4![4!_ j. e/ e. k/$ D j4!_4!c, -4!c, !$4!d
&0D + !x *(T* !g4!e
1B$ 4D!o4!gZ$ D
14!iZ$ j/ k, % x D j4!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 D j4"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 D j4"Q~ Y|,~ ! " D#[?|" D#/ OLDSPACESM?{@{D#] IFSTAT ?{?{D$ D Z + !QZ . !NZ / !N ( * "# "3X wX wX wX wX w \Q| X>x x 0 p 0`h -"!T4
" g$ k D j (U*U "+4")Z$ D
14"+, -4"-
*4D"14". e/ d, ^4"/Q~ Y|,~ @ "4 ?{?|"6D&? LABELSTAT ?{?{D&n D I& "& I* "# I+ "# ( ( "9 "dX wX wX wX wX w \Q| X>x x 0 p 0`h -"")4
"1
1B$ 4D"G (Q(U* "A4"?Z$ D
14"AZ$ j/ k, % x D j4"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 D j4"S4"V, -4"W, "4"X
*4D"`4"Y (U*T( "[
&0D + "]4"Z, "4"\ e/ d, ^4"]4"+ "bZ$ , REPEATSTAT?{?{D,v D 53K "<53N "953O "9 ( * "i #?X wX wX wX wX wX w \Q| X>x x 0 p 0`h -""?4"b j Dp *(U* "r4"p
&0D
+ "x4"r, -4"t
&0D + "x4"u, "&4"w4"x
& T*U( "z)F 0& + #4"x
2B$ 4D# 4"|
*4D#4"~ e/ d, _4" $
& U*U( #1F @ 4D#4# j. k D j+ # 4# j. m D j4#4#
&0$ 0d
(U*U* # + #+ 4# ,
+ #4#
, !+ #4#, :+ #4#, !Q+ #4#, "<+ # *U*T # #
# # # #4#+ #:4#
*4D# 4#
& )F 0& + # *T * # 4# e/ d, _4# $
&
)H 0( @ B$ 4D#$, -+ # 4# (T(U* #%
&0D + #94#$
2B$ 4D#24#&Z$ D
14#( j D j4#* j. k D j *
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 D j4#:Q~ Y|,~ H@ #= 0 @ D8+?|#HD7 OLDSPACESMD,t#E@{D8- CURBL '@ #FOCKNRD L 5@|#BD8] STATEMENT ?{?{D9 D V?[w "mV?[~ "jV?[ "i H D2@ D1@ @ @ D3,#=D3$#>D4
#>D4#? ( * #K #uX wX wX wX wX wX w \Q| X>x x 0 p 0`h -""p4
#;
0B$ "*Q #S &
i0H @ A 4D#X4#R, C4#V+ #R4#W $
i
)H A D #\0( @
0B& A e.& 0& 0f -- J ( v0F @ A 4D#r4#X (P*Q #d
i0D + #i4#dZ$ Dp 4#f, C4#g+ #p
i0D + #n4#hZ$ ~Dp 4#k *P(T #m, C4#l+ #p4#mZ$ >VDp 4#n4#pKp , 4#p4#rQ~ Y|,~ #t D? ?|#{D> LASTCH ?{@ ;D?
#~ %PR\Q| X>x x 0 p 0`h -"#Q4#rZ$ D
/4$^$ Dp 4$4$, . *P** $4$
&) 0& + $4$ g.$ D g4$
g$ k D j4$
4$ *E*E
$@@
14$
&0D + $E4$ e/ d, _4$Z$ D
14$Z$ j/ k, % "E*U $ x D j4$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 Dp 2dp + $? $ h "* $90@7, $2 p Z( , & * ( , $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 D j4$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 D j4$v
&1D + % 4$y, .4${
& "U** $}0D 4$, #~4%
&0D + %4%, .4%+ $o
1B$ *U*E* %4D$4%
*4D%
4% e/ d, _4% g/$ D g4%
g$ k D j4%
" D % $
&
)H 0( @ B$ 4D%"4% $ g0F @ &
&0H Q(Q %@ A 4D%4%Z$ D
/+ % 4%Z$ ,
&
)H 0( 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;?|DZ POPLIST D[%VB4+DZ< I Cc$Y 0@ %W@{DZe WHATTOPOP B,|#{D[CD[ D[@ R" @ UZ. #~2d W #~ @ 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 @ G 5D%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$ + & $ 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 " B z |5B&E *P &C @ { N { R |O@ | < \ < \ Z &1\ < .< Q<p X>p Q \ } ( &K ^ } ` -" 0x " $ b -" $ h " @f @j @n , 7 $ V " @f @j " &T@n , n `B`b+ %], + %] @ &X procedure and function definitionsRuntime: 00 T E
&_@a[DkT NORMAL < p
&`D{,&bD{Dk|@ CMMODES D~|&eD{Dl, CMINI Dy4&g?{DlV CMIFI ?|&j
@ &i?{Dl~ CMFIL Dx
&l?{Dm& CMCFM Dsl&o?{DmN CMATOM DsD&s@{Dmv@ @ ` &q 5t ? CMACT Ds &w@{Dn6@ ,4 ? BYTESET Dql&y?{Dnv ARRSE & 9 &zT Dot&|?{Do ANYVERSION?|y@d
pDoE Dp ARRWRITE Dp?{Dov BYTEPOS , '?|'@{Dp @ l ? BACKSLASH Dq @ ;Dp\@ .BLANKS B|S@~Dq
@ ( ' ' ' BYTEWRITE Dr?{Dqn CAPITALIZEDrC@{Dr@ 8 ' CASETYPE DrlP@r+DrD CH ?{@ ;Drm M CMAGAIN ?{?{Ds @ ' CMAUTO ?{?{DsF CMCMA Dt?{Dsn CMDIR Du|'%@{Dt@ K
'$? CMDEV ?|')@{DtV@ DT ? CMD DuS@{Du@ >T ? '-CMDEF ?{?{DuV CMDIRW Dv;@{Du~@ HT ? CMDN Dvc?{ 8 '5Dv> CMERR Dwd':@d Dvf@ $ ? CMDO ?{@{Dw&@ d ? '>CMERRMSG ?{?{Dwf CMFLT Dy
'D@lDx@ U4 ? CMFLD ?{@{ 'FDxN@ 3D ? CMHLP ?{?{Dy CMINIR Dy[?{Dy6 CMMODE ?|'Q 0
'OD{Dy^@ qD ? CMKEY ?|'U@{Dz @ jd ? CMINT ?{@{ @ 'WDz^@ d ? D{ A'ZRESCAN D~L']D{ &_D{,@ PUTSTR B4'`?{D{^ !` '`NUL D|4N@{D|@ ONEPLUSTABD|ds@{D|4@ rPACK6 D}l'hD~D|d `8@ 'hPACK15 ?|.D}3D}
D}0 d D}LcD}H D PACK9 BcAgD}l #D` 'qD~ d D~,cD~( C SAMECASE B TZ@{D~L@ CMSWI Et'{@{ ` 'yD~~@ g$ ? CMOFI Et'~?{D> CMNUM E4(@{Df@ ]d ? @
(CMNOI ?|(?{E & CMNOD ?|(@{E N@ * ? CMMULT ?{?{ (
(
E CMNUM8 Es@{E6@ [4 ? CMNUX E3@{Ev@ Y4 ? ( (CMNUX8 ?{@{E6@ W4 ? CMQST E3@{Ev@ .d ? CMREA ! @ (L ?{@lE6@ ~d ? CMTOK El(!?{Ev CMTAD E (%@{E @ @ @ ($ BT ? CMT ?{@{E^@ @T ? CMTADN EC?{E CMTN p (, ?{?{EF CMUSR E(2@{En@ FT ? CMTXT Ek@{E.@ 0 (5 1 ? CMUERR ?{?{En GJGEN E D(;?{E GJDEV Et(>?{ (=E> GJACT ?|(@?{Ef FINDNULL B4(D@{E@ z, ? ERRKINDS Bl* 0 (FAa#EL GJDIR E ?{Ev GJEXT ?{?{E GJNAM E
(N?{E F @ (NGJJFN ?{?{E n GJPRO E
;?{E
HT E
l1@{E
<@ LINSI '
0 (WZE E |(Y@{E
l@ ,LINSIZ1PLU?|(\@{E @ ,LINNUMSIZE?|8@{E L@ ! (_LINSIZPLUSE
+@{E |@ -MAXINC B
(e@{E
,@ PLOWERCASE Av$F@{E
\@ E( p (h TABLE E
TADRECSIZEE (mE#EEABLEINDEX?{A E
TABS d ?{EcE5 D8 (y TBMAK UPPE(}@aKE @ o ? TBADD ?{?{E^ VERSION AD) 0A@ )ECE@ )
BD@{E@ E@ d c )
PFORM/LOTS 1.1 4-SEP-80 E ( < )d)?x YEAR E )E
)E=p MONTH E|)El)Em` DAYOFMONTHEL) 8 d )EL)4E p DAYLIGHTSA?{@d
) EMP @ h ZONEINPUT ?|)"@d
),E}P @ ` ZONE &! )#?{E\)'E-P @ H EX F SECONDS ?{E+E}` E( R @2 ), JULIANDAY ?|)/@d
)/EMP @ X DUM ?{E,)"E}P @ P E( H !0d )4DAYOFWEEK EKE|)9EM` Ex R ZONEUSED ?|) @d
) E P @ p EH ( p )=R Eh R E R INTEGER E )E@{E, CHAR ' p )E @h,)G@ ;ET BOOLEAN E $)J@d E| ALFA E
)L@~E$ ABS ?{ @ )N?{EN@ TIME ALFALENG E;@{E
@ APPEND Ec?{E> ARCTA # ` )VN ?|)Z@l Ef@
t ARCSIN ?|)^@l E&@
t ARCCOS $ )_?{@l Ef@
t BREAK E K?{E & CALLI ?|)g?{E N BREAK p )gIN ?{?{E v REAL E&$)l@lE POINTER E"|)nE&E G@ NIL E l)q 0@ )pE"kE l@ MAXINT E t)t@{E @ ?MARK ?|)w?{E N LN E 3 0 )x@l E v@
t LOG ?{@l E 6@
t NEW E ?{ q *E v NEWZ E C?{E NEXTBLOCK ?{?{E F OUTPUT E" * @hE m H ! * ODD E![?{E! @ 0 TRUNC ORD ?{?{E!^@ 8 ODD PACK $ ` * E"C?{E" PAGE ?{?{E"F E"h RPUT E$
*?{E"~ PRED $ * E#c?{E#&@ H CHR PROTECTION?{?{E#f PUTLN E$\*#?{E$ *#PUT8BITSTO?{?{E$6 READ E%l*(?{E$^ PUTX E%+?{E% RANDOM $ *+?{@l E%.@
t READLN ?{?{E%n E& dTEXT @d *4@h 8 ` *4E&$ STRING E,|*7E.KE&O@ RESET E(,*9?{E&v RELEASE E(*<?{E' RECSI *<ZE ?{?{E'F@ x ROUND RENAME ?{?{E( REWRITE E(S?{E(. !@ *ESETPOS E)|*G?{E(V RUNTIME ?|*K?{E(~@ DATE ROUND ?{?{ p *ME)>@ p EOLN SPACELEFT E+|*S@x E)~@
D SIN E*{@l E*>@ @ *V
D SIND E+;@l E*~@
t SINH ?{@l E+>@
t @ *^ SQR E,;?{E+~@ ABS SQRT ?{@l E,>@
t @ *g STRSET E-#?{E,~ STRWRITE E-K?{E-& SUCC E. ?{E-N@ P
*oPRED TANH ?{@l E.@
t E.H d ?|c
&> &] *P *x )B a cPFORM f a~+ a + + P *v @ ~ DaT&XDbT&[Df$&\ D"`[ &?`[ &?@% zINGg {INVT {IN | |
u^c; D D" |G; 2c(TSg Oe5 kL "e5 ` 6"k X`%@O ` D {bKd+' sbKTI; W D"`%( 4bKLtD p`
W{ .`
X/g 0`
XX ,`&> z`%k h`%} O`%`w K D"`%- 1`%?) |`& = v`%K] G`?^ =`@)F p`%@I kd+#4< &EdSLxg &F D"g=p #[b^k: $e
Nu &`-% &>` '; %e5$@ &T D"e5!\ &Q`
NsM %{`-%P
|`
]c]Ez* &<f7 3 &3f7 R3 c_ #`f7 O &= D f7 r &8ev|> &Lev{2 &N x a J1 gg a J1 gg / 8 &? ( ( +