Trailing-Edge
-
PDP-10 Archives
-
decuslib10-07
-
43,50433/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|,~ @?| @n A %@ @C@t @ B ?{@s@E @p d MIN ?{@t "@@ ?| @ ?{ @ h -pS ( ( $ 0R\Q| X>x x 0 p 0`h -"
Dp Fp 4 p 3$p + -4 ) p Dp * $ ,+ .4 + p Dp 4 -Q~ Y|,~ @3?| 9@ A @c@t 6
5@5 B ?{@s@e MAX ?{@t 3@@ =_D @H ?{ @ M $ -@ $ =H ( ( = `X wX wX wX wX wX w \Q| X>x x 0 p 0`h -" '4 .Z$ , F x Xw D 4 DXw Z& ( * Z, , 4 GXw Z& ( * "@ Q NZ, , K4 KXw Z& ( * Z, , O4 O^& =&& ` =( UZ( ) W. " h 4 SXw Z& (p * Z, , S4 XZ$ , E x Xw D (
_4 \Xw Z& ( * Z, , \4 _Z$ , ] x Xw D 4 cXw hZ& ( * Z, , c4 fXw Z& ( * Z, , j4 jXw Z& p ( * Z, , n4 nXw Z& ( * Z, , r4 rZ$ , d x Xw " @ y D 4 vXw Z& ( * Z, , v4 yXw Z& ( * Z, , } (
4 }Xw Z& ( * Z, , 4Xw Z& ( * Z, , 4 (
Xw Z& ( * Z, , 4 Xw, Z& X( * Z, , * Z, , 4Xw Z& ( * Z, , 4Xw Z& ( * Z, , 4 Xw Z& # ( * Z, , !4!Xw Z& ( * Z, , %4%Xw Z& ( P , * Z, , )4)Xw Z& ( * Z, , -4-Xw Z& ( * "@ P 4Z, , 141Xw Z& ( * Z, , 545Xw Z& ( * Z, * @ =, 949Xw Z& ( * Z, , =4=Xw Z& ( * Z, , A ( E4AQ~ Y|,~ GSTARTRUN ERUN HELP UPPERCASE SAMECASE LOWERCASE CAPITALIZEVERSION: TASMANIAN SUPER PSTRING-CASE: SAVE-COMMENT RESERVED-CASE: QUIETPROCEDURE-CASE:PRESERVE NONRESERVE XD-CASE: INDENT: FORCEELSEIF DENNYCOUNTCOMMENT-CASE: CASE:BEGIN: BAR $@P @ a @ 3?|m@ INVISIBLE @ c@s@ 4@ RSTRING ?{@ @ e @ . id =@ <j@ ( G @ 8 A DEFINEOPTI?{?{@ ^ D
G A_
R >_
S = @ @ G@ \H@
H@
I@
I@@
K@LL@<M@|N@<O@|P@<Q@|S@<T@|U@<V@|W @ x @<Y@|Z@<[@|\@<\@|]@<^@|_@<` ( ( p X wX wX wX wX wX w \Q| X>x x 0 p 0`h -" D4E^$ D i *U"T* x4w@@
'4x@@
)4y@@
*4zZ$ D
,4{@@
+4}Z$ D
.4~@@
(4 "T(U* Z$ D
,4 @@
)4Z$ D
-4Z$ D k4@@
*4@@
+4@@
'4 "A*U Z$ D
-4 Xw@@ 4
@@ m4
@@ l4@@
(4Q~ Y|,~ ?{?|@"& SETDEFAULT?{?{@"N D MPt sMP~ pMP p ( * OX wX wX wX wX wX w \Q| X>x x 0 p 0`h -"v4 i1d **E
+ #4 ^$ D i4 Z$ D
'4!4# k0$ + '4#Z$ D k4%4' (U*U* ( m0$ + .4'" m D l4) l D l4+@@ m4,+ 14-@@ l4.@@ l *U*U
04/40
)4D841 k D l42@@ m44 k D l45Z$ D
.4648 9Xw 1D + M48Xw 1d 1$ - D
.4;Xw 1d 1$ - = * * * A D
-4>Xw 1d 1$ - A D
-4BXw 1d 1$ - D D
,4EXw J 1d 1$ - H D
,4I4LQ~ Y|,~ ?{?|Q@)v GETOPTIONS R?{?{@* D (T\7 (T\: (T\; ( ( T aX wX wX wX wX wX w \Q| X>x x 0 p 0`h -" 4M, x * \4D_4[, 4], 4^4_Q~ Y|,~ ?{?|d@, ERRCHECK e?{?{@,F D ]l W]l T]l T ( ( f X wX wX wX wX wX w \Q| X>x x 0 p 0`h -"Z4_ , (
( o4mZ$ , 4o$ $& , 4pU$ * w, r4vP$ *E( 4D4~S$ RTOLD ?{?{@1 D V?Qd jV?Qj gV?Qk f @ ~ @-d@.@.l ( (
*X wX wX wX wX wX w \Q| X>x x 0 p 0`h -"m4Z$ , } ( 4, x Xw D 4 $ Xw 1f @ Xw D 4Xw 4D *
U 44 Xw 4D(4 , n4 D$ 4%4'Q~ Y|,~ $ * @5S?|3@5. RSCAN ?|0@s@5T@ RLJFN ?{@s@6@ 2 READRESCAN?{?{@66 D 4v w 4v
4v
@ ` @4* ? 5H H ( * 6 +X wX wX wX wX wX w\Q| X>x 6 x 0 p 0`h -"4 ( $
G&& ` =(H ( . " $ 1D @ *
p 0, @
A 4H_4C p " P/$ 0$ 0d - F^& 5&& ` =(S p /( 0( 0h - Q^* 6&* " ( X` =,X.
p"( ( . " h 4O p .$ Dp 4\+ D4^p /$ D a0$ 0d -V^& 6&& ` =(d. " $ 1D + j4p .$ dDp * " i4g4i p /$ 0$ 0d - b^& 5&& ` =(nZ( . " h 4j r p .$ /$ 0$ 0d - l^& 5&& ` =(vZ( 7. " h 4q p @ z.$ /$ 0$ 0d - t^& 5&& ` =(~Z( 2. " h 4y p .$ /$ 0$ 0d - |^& 5&& ` =(Z( ;. " h 4 p .$ /$ D 0$ 0d - ^& 5&& ` =(Z( . " h 4 $
FIELD % p 1LENGT@FC@s@F@ FLPLUS5 ?{@s@FD@ OLDNAME @H
:@H;@Fu @H :NEWNAME ?{@GS@G% H @GP d5@Glj@Gh F PTRQk 5?{@s @ $ B@H (
P* I `R\Q| X>x x 0 p 0`h -"=4', A4M $ & , 4N, 4P P*P( R p B$ 4DV4Q $ & , P4S4U, j4V p B$ 4D[4WZ$ , *T* Z4Y4Z, s4[4\, 4\, !4] p , x Dp 4^, x Dp ( c4a p 1D + H4c, W4e, x 2$ 0d + G+ 4f, x D i *@"T* k+ G4i4l $ & , 4lZ$ D
)4n+ G4pZ$ D
*+ G4q4s *P( t p , x 1d 1$ - K D
,4s+ G4w4x $ & , n4yZ$ D
+ *Q U" |4{+ G4|4} p , t x 1d 1$ - v D
.4~+ G4Z$ D
(+ G *
U" 44 p , x 1d 1$ - D
,4+ G4 4
Z$y & , z4 "U*
)444 p , x 1d 1$ - D
-4+ G4, j "T
" x D k+ G44 $ &
4Z$ D
*4+ G4Z$ D
++ G *
T 4 4 $ & , 4 Z$ D
'4!+ G4"4# p , x 1d 1$ *T ( '- D
-4$+ G4( p , % x 1d 1$ - ' Dp + G4), x D m *A"U* /+ G4-40 $ & , 40Z$ D
(42+ G # G - ) G G *U*U* 8 G G G } G s G G i G G l q G *U*U* @ x G G
G G G G 044+ \4G, W * * I4H$ QY|,~ G ROldsource?t FORMAT INDENTATION NEWLINESdIN@STANDARD PLACES PROCEDUREAND{F [UNCTION DECLARATIONSFORMAT FOR COMMENTS w/E @\+?|&@\ CASESCOUNT < 8 ` c@mTe@s@\,@ CASES ?|h@]<b@\] CALLTABLE ?{@]<p@]
h TRUNC ?{?{@`@ ( SQR TTYOU % TPUT @a@bs@`U @
?{@a UNPACK @aS?{@a. UPDATE 0 @a{?{@aV USETI @b#?{@a~ USETO ?{?{@b& WRITELN ?{?{ C@
@bN @bp djFALSE @j,@^c@c@ CLOSE @d ?{@c6 CHR ?{ ?{@c^@ @ ORD DISMISS @gt$?{@d DELETE ?|&?{@dF CURPOS < '@f|*@p @dn@ ?| COS @ek@fh @e.@ ?^$ COSD @f+ 0 0@fh @en@ ?W$ COSH ?{@fh @f.@ ?U$ @fh d DATE $ 8?{@g;@f~@ ?et @g8 d @gTj@gP @ DUMPIN @hDA?{ @ A@gv DISPOSE ?{?{@h DUMPOUT @hk?{@hF EOF @i+?{@hn@ X @ ISUCC EOLN @ik?{@i.@ ` EOF EXP ?{@fh @in@ ?]$ A R INPUT ?|U@bs@j- ( GET @k?{@j^ GETLN @k|Z?{@k @ ZGETLINENR ?|]?{@k. GETINDEX ?{?{@kV GETX ?{?{@k~ HELP < p c@m$e@];@l% EACHCASE @* m@m@lU 0 @m C I ?{ 0@ k@s@m% ( OPTIONCOUN@nb@s@mT@ SWVERSION ?|s@s@n@ SWTAS , 0@ t?|v@s@n4@ SWSUPER ?|y@s@nd@ SWSTR ?||@s@o@ SWSAV #
0 |E_COM?|@s@oD@ SWRES ?|@s@ot@ SWQUIET ?|@s@p$@ `
SWPROCNT ?|@s@pT@ SWPRESERVE?| @s@q@ SWNONRES ?|@s@q4@ ` SWCOUNT ?|@s@rt@ SWCASE @t4 @s@s$@ SWBEGIN ?| 0@ @s@sT@ SWBAR ?|p@s@t@ SWCOMM ?{@s@t4@ STARTFILES '?{?{@tf @ V?Q` JV?Qk I H @VP @M @ ~ @ItR@JDR@MTT@Q<U@S
V@S|Y@V]@L| @Y$@Y4 ( @ ( 6R\Q| X>x x 0 p 0`h -"M!Dp 4P p Q$ X$p *$p 4-#p #p @ H 1/ # &$ r1f r1& - , Fp 4/Q~ Y|,~ @w?|R@vn SY # A 9 ?|<@xk@w$ HACK ?{@ws@wE @wp d@@yP INT1 @y$C 8 @ B@tJ@x
C @z A$?|@ HASH !@ S ?{@zl9@z.@ =Z @u ?{ @zh J r @ #]- ) ( (
P
X |R\Q| X>x x 0 p 0`h -",44 $
%, ) x 0$ 0d r-
r Dp (@ a4\@@p 4a $ p 1F@ p B& A 4Du4b p 0D 1D- $ ( P( i &
%Q$H`Q&H` ( 3B =hk2B + p4fZ$ Dp + t4n p 0D ""A r1D- h[ Dp 4p+ b4t p 4Dx4u p Dp + z4v^$ Dp 4x zQ~ Y|,~ @k?|@F POINTER ?|A K@m FOUND ?{ 0 @^cA A H RA X d?x STRING ?|
@xl
A u@ NEXTK AS 8 @ A RA d?x TOP ?| 9 D @^dA-P @ ( NEXT ?{A A]P @ A RA RFINDSY ?{A K A.@ =X @{ ?{ @ Kyf YKyk X ( ( KR\Q| X>x x 0 p 0`h -"\ Dp Fp 4z .$ D 4# $p , ) ' x 1d r1$ - 3 Dp 4% $ , Dp p 0F 1F- r $ ,> , *,^ " @ /XD 4) p 0D 1D- -Q(p X( *( 40 p 0D 1D- 2Z 0D 1D ( 8- 6Z& " f 44 p 0D 1D- 8Z 0D 1D- <^& " f 4:
@ p 0D 1D- > p 0& 0f r- _ rQF 4@ p 0$ 0d r- D p Fr ( H I4EQ~ Y|,~ A [?|VA 6 SY ?|P@xkA ] POINTER 4 QA
;A KA
POS ?{@zkA
= FIRSTDEF ?{?|MA
n @ TA TB (
U* Y pR\Q| X>x x 0 p 0`h -""4
IQ$ X$ r*$ d4]@@ f@@ e@@ f4_ "U"D* aZ$ D e@@ g@@ g4a@@ h@@ hZ$ D i4cZ$ D
0Z$ D
44f@@
0@@
1 (U( j4hQ$ X$
%*$
&Q$jX$
$*$
%4jQ~ Y|,~ o ?{?|sA REINITIALI?{?{A6 @ 5 Y5 Y @ ` A
U* u _R\Q| X>x x 0 p 0`h -"\4m@@
34y@@
24z@@
.4{@@
/4| E ~Z$ Dp 0d r+ p 0$ 0d r- G^& Fr:p + 4} , "AA , 4 , , 4 , , 4 A A , , 4 , , 4 , P P , 4 , , 4 , , ((( 4 , , 4 , , 4 # ( (, , 4 ' , , 4 * , *
1, 4 . , , 4 1 , , 4 5 " 9 , , 4 8 , , 4 < , "AA B , 4 ? , , 4 C , , 4 F A A J , , 4 J , , 4 M , P P S , 4 Q , , 4 T , , ((( [4 X , , 4 [ , , 4 _ ( d, , 4 b , , 4 f , *
l, 4 i , , 4 m , , 4 p " u , , 4 t , , 4 w , "AA } , 4 { , , 4 ~ , , 4
A A
, , 4
, , 4
, P P
, 4
, , 4
, , (((
4
, , 4
, , 4
(
U(
, , 4
, 4
!@@ 4
#Q$ rX$ *$ q4
$Z$ D
i "@"T(
(0d /+
-
i/$ 0$ 0d - Z&
F
i:
i+
(4
&Z$ D
m4
-Z$ D
n (Q"E
04
/Z$ D
0Z$ D
2Z$ D
w4
3Z$ D
o4
5Z$ D
p4
6Z$ * "
9 D
v4
8Z$ D
x4
9^$ Dp 0d d+
B p .$ 0$ 0d --
+Z& F v:p *
A+
<4
;Z$ Dp 0d +
I p /$ 0$ 0d -
?Z& Fm:p +
C4
BZ$ (T
T
J D
i0d +
T4
I
i0$ 0d ?-
F
i F 64
K
i0$ 0d ?-
M
i Fv *Q
A"
R4
O:
i+
J4
RZ$ D
i0d -+
_4
T
i0$ 0d ?-
Q
i.& F 64
V (*D*
[
i0$ 0d ?-
X
i Fv4
Z:
i+
U4
^Z$ - D
i0d 0+
j4
_
i0$ "UU(
c0d ?-
\
i F 64
b
i0$ 0d ?-
d
i Fv4
e:
i+
a4
iZ$ 0 D
i "P*P(
l0d =+
v4
j
i0$ 0d ?-
g
i F 64
m
i0$ 0d ?-
o
i/& Fv *Q
A*
t4
p:
i+
l4
tZ$ = D
i0d ?+ 4
v
i0$ 0d ?-
r
i F 64
x
i U*P
}0$ 0d ?-
z
i Fv4
|:
i+
w4
, Y4 Q~ Y|,~ GET GETLN PUT PUTLN RESET REWRITE READ READLN BREAK
WRITE WRITELN PACK UNPACK NEW GETLINENR PAGE PROTECTION CALL DATE TIME DISPOSE HALT GETSEG PUTSEG MESSAGE LINEL IMIT REALTIME ABS SQR ODD ORD CHR PRED SUCC &EOF EOLN CLOCK CARD LOWERBOUNDUPPERBOUNDEOS MIN MAX . FIRST LAST COS EXP SQRT LN ARCTAN LOG 7SIND COSD SINH COSH TANH ARCSIN ARCCOS RANDOM SIN ? ROUND EXPO OPTION TRUNC LENGTH GETCHAR POS STRLT HSTRLE STREQ STRGE STRGT STRNE GETFILENAMGETOPTION GETSTATUS ASKFI PLENAMSTARTFILE GETPARAMETGETNEXTCALFILNAM REENTER SETTIME TIMEREPORTRUNTIME YELAPSEDTIMPUTCHAR ASSIGN SUBSTR CONCAT SETRAN A<?| dA;v aI ?{@sA< INITIALIZE?{?{A<N @ ^hLA v^hLO u @ AT AL Al Ad A
A A$ A AD A< A\ AT A|
At
A A
A4
A,
@ AL A| A$ A A< A4 A\ AT At Al A A
A, A$ @ AL AD Ad A\ A A| A A A< A4 AT AL At Al A
A A, A$ @ AD A< Ad A\ A| !At !A "A "A4 #A, #AT $AL $Al %Ad %A
&A &A$ 'A ' @ AD (A< (A\ )AT )A| *At *A +A
+A4 ,A, ,AL -AD -Al .Ad .A /A| /A$ 0A 0 @ A< 1A4 1A\ 2AT 2At 3Al 3A 4A
4A, 5A$ 5AL 6AD 6Ad 7A\ 7A 8A| 8A 9A 9 @ A < :A 4 :A T ;A L ;A t <A l <A
=A =A , >A $ >A D ?A < ?A d @A \ @A | AA t AA BA B @ A 4 CA , CA T DA L DA l EA d EA
FA FA $ GA GA D HA < HA \ IA T IA | JA t JA KA
K @ A 4 LA , LA L MA D MA l NA d NA! OA | OA!$ PA! PA!< QA!4 QA!\ RA!T RA!t SA!l SA" TA"
T @ A", UA"$ UA"L VA"D VA"d WA"\ WA# XA"| XA# YA# YA#< ZA#4 ZA#T [A#L [A#t \A#l \A$
]A$ ] @ x A$, ^A$$ ^ ( @" g
+R\Q| X>x x 0 p 0`h -"y Dp 4
p 0$ 0d +
)+ 4 k4 n * o e/ d/$ e/& Fp Dp 2dp + } p .$ 0$ 0d --
~ p .& 0& "A(U* x0f -- v v0& 0f ?- x v F v:p + s4 o+
)4 }4 ~ e/ d/$ (
e/& Fp Dp 2dp +
p .$ 0$ 0d -- z p .& 0& 0f --
v T*U
0& 0f ?-
6 F v:p +
4 ~+
)4
4
e/ d/$ .$ 0$ 0d - *@
*
-
e/ d/& .& 0& 0f --
v0& 0f ?-
v F v4
e/ d (
e/& Fp Dp 2dp +
& p .$ 0$ 0d --
p .& 0& 0f --
v T*U
"0& 0f ?-
! 6 F v:p +
4
+
) n
) ~
4
&Q~ Y|,~ !
+ AE[?|
3AE6 WHICHCASE ?|
0@mAE] J ?{@sAF
3SETCASE ?{?|
-AF> @ MP
gMP g H ADp A=` (
E*
6
SR\Q| X>x x 0 p 0`h -" j4
) i.$ D i4
:@@ h4
<@@ h4
= " A
> $ &
$ ( Q&H`Q(H` * 3B =j
A3B @
(B& A 4D
L4
> (
G $ h 0@7, iZ( , & * ( , 4
F $ 0@7,
H, (
O4
LQ~ Y|,~
Q .. ?{?|
UAJ6 NEWPAGE ?{?{AJ^ @ SMN$
6SMN/
6 @ x AG|
QAI,
R ( "
X X wX wX wX wX w \Q| X>x x 0 p 0`h -"
9 Dp 4
O f "P
`.$ D f4
| $ 0@7,
N & * ( ,
L4
a p 0$ 0d +
w+ *A*
i4
f $ 0@7,
c &
% * ( ,
e &
5 * ( ,
m+
i $ "
q0@7,
k p 0& 0f -
#$& &
5 * ( ,
o+
p $ 0@7,
r U*
z p 0& 0f -
t$& &
5 * ( ,
v+
i
p
p
w
p
w
w *U @"
w
w
w
w
p4
w $ 0@7,
y & * ( ,
~, 4 ,U"
$ h 0@7,
& * ( ,
$Q( 2B @ & (
$ * Q(H`Q*H` 2B @ G 4D
T
hZ 0@7,
J+ h 0@7,
$4* "T7 iZ( ,
0$ 0d +
% * ( ,
5 0U 7,
{$& &
5,* 0( *P
5+* *( , 7,
4 Y|,~ E ----- : !r AMA[ ?|6AZf ERRNRA`@ ?{ 0 X A`\jA`X F OLDNAME ?{Aa+A`} \@ Aa( d AaDjAa@ D
A AcE F THENDO ?{@^d"Acu F( ENDELSEING?{@^d%Ad% F0 THENBEGINNAcs 9 d &@^d(AdU F8 NOTOKENYET?{@^d+Ae F@ COMMENT_AT?{@^cAe5 FH RESCASE < /AfT1@mAee E` RESCANIT ?{@sAf@ =hT ? RESNUM Agl8BsAfU 0AD 7Q RESLIST ?{Ag3Ag Rp Ag0 .d AgLFAgH F RESSY ?{ 1 @AhAgm XP Ah d BTCAh0 FDOTHERSSY ?|GAh4KAhD@ OPENBLOCKS?{ 1 HAi#Ahu \0 Ai d
CEQLSY4@ AidERRCOUNT ?{@tQAie
h 2 QVARIANT_LE?{@tTAj
p LEVEL Ajs@sAjE
x LINE500SIOAk#@tcAju 0,@" Yl jAl ( d bC PAGECNT{?{@tfAl= , ` LBRACKET Ap{Ah4
ApL@ LINENRTY ?|TAq#Ap| Aq c ? LPARE %@ p
NT @Ah4AqD@ POINT Am Ah4Aqt@ PAGENRTY ArLcAr{Ar$ PM ! ?{@ +ArM ` Arx c ? COMMA Ae4Ah4 As @ SEMICOLON > p As|~Ah44AsL@ STACKTYPE Av"AAs| SPACEPRESE?|
3@t%At% &9 d &?{@t(AtU vt.Ah4:AvD@ "@ 7RTIME[@ A?{@sAvu h RBRACKET ?|=Ah4VAw$@ QUIET Ax@^dBAwU 0 H ?E QUIT ?{?{Ax BARRING ?{@^dEAx- E DENNYING AytH@^dlAx] 0AD HE DELSY ?{Ay;Ay
jALPHANUM ?{Az#Az5 [P WHILESY ?{Ah4YAzd@ p@ YFORSY ?|xAh4\A{@ EXTERNSY AtSAh4_A{D@ STRGCONST A|$ Ah4A{t@ 8H
a ALdAh3A|$ SYLENG ?|g@tjA|M
H SY ?|u@xkA|} 0 @b jDX BUFFERPTR ?|m@tvA}-
P BUFFER ?|pA~3A}] ` BLOCK ?{?{ 1
A rA~ A~0.d A~LjA~H d -BUFFMARK ?{@tyA~m
X BUFFLEN A~lj 1 D {@sA
` SYTYT ?{Ah3AM Dh IDENT@ ?{Ah4A|@
INVARSEp ?{@^d ?|DAh4 B
@
GOTOS '@ x
Y @z,fAh4B<@ FORWARDSY ?|YAh4Bl@ RECORDSY BL:Ah4 B @
!r @ RELEVANTSYB|sAi$GBM \ RELJFN ?{?|B~ F ?{Ac3B%$ !p@ IFSY AudAh4 BT@
REPEATSY ?|Ah4#B@ LOOPSY B
&Ah4-B4@ @ % LIST & x d?{A KBd LOWER ?{B;B4+Ah4<B@ BEGSYM ?{Ai$6B5 [p DECSY !H x 6M ?{Ai$9Be \ PROSYM ?{Ai$B \ EOBSY Ai4?Ah4GBD@ !` ?ENTRY BLAA [Bt ENDSYM ?{Ai$3B [` EOB ?{@^dBM Eh !p GDOSY Ao<JAh4PB|@ DEFINITIONAx\M@sB - p COUNTING Bc@^d=B ] 0,p PDx OFSY A3Ah4SB
@ EXITSY A{DVAh4^B
<@ ERRMSG ?{B $
8@ XB
m FP B 4d A[<[B 0 d B LjB H F THENSY ?|%Ah4aB l@ <0 a ELSESY AuGAh4dB
@ UNTILSY B
{Ah4jB
L@ UPPER ?{B<( $ < iB
} ` ENDSYROCSYBDaAh4mBD
rAh4xB
@ PROCTABLE A^SBkB= N Bhrd @zlFUNCTIONSYAadAh4{B@ <" z PROGRAMSY BdpAh4B4@ PROGNAME B@xkBe DH VARSY ?|QAh4 < B@ TYPESY ?|^Ah4BD@ CONSTSY B
Bt@ LABELSY ApLm 0D Ah3B$@ BP F Bp
B Gj - MISSGRBRAC?{ 8` A[<B,@ LINETOOLON?|
A[<B\@ MISSGPOINT?{A[<B
@ MISSGMAINB & x` ?{A[< B<@ MISSGQUOTEB,A[<!Bl@ MISSGRPAR ?| A[<$B @ MISSG %@ x %EXIT B;A[<'BL@ MISSGOF B $A[<*B|@ MISSGTHEN A[|'A[<-B,@ !p -MISSGEND B,
@ BARETABLEAx+BlsB= 0 6 x ERROR ?{?|
[^8b
X^8c
X H AXh AV H AOp AM @ | ALD 0`h -"
^ Dp 4 (A( A/$ 0Dp 4@ p 1d + 04B e.$ Dp 4D p .$ 0$ 0d --
p 2jp @ A 4FP p .$ Dp + G4F p D e4P
R p .$ 0$ 0d -- I & v0D @ (
p 2*p @ A 4F\4R p P** [/$ Dp + R4Z p 2dp + 04\
1B$ 4Db4^ j D j4`
)4De *U(* c4b k D j4c
34Dl4e,$
34j *A( l+ y4kf$ , 4l4 j&$ 1f + y4q (P t*$ Q }4y $
&
)H 0( @ A
)4D4
& "E(U 0D + 4
3+ 44Z$ D
34+ 4 $ *P" " , e.( .( 0( 0h -- * v0H T*U" @
A 4F#4 e.$ D e4 + 4" e3d f+ /4# $ &
$ ( * 'Q&H`Q(H` 2B @ & h1( P@ G 4D/4%,
64-4.4/ *U*P 04/40 j D j40@@
142@@
243@@
244Q~ Y|,~ 7 ,@ B'3?|DB' POSITION ?|>@sB'5 I B( 0 ` ?@sB'e J ?{@t>B( WRITELINE ?{?|;B(F D 7 w <7 ~ 97 9 @ ~ B!$7B! 7B$t8 ( * F uX wX wX wX wX wX w \Q| X>x x 0 p 0`h -"?45, Y x " @" O Dp 4M p 1D+ s4O p 0D 1D- BZ 0D 1D- S " $ 4Ds (D W4Q $ , . Dp 4W p 0D 1D- UZ& " f 4Y p 0D 1D- [ ( ` p 0F 1F- _Z " f 4] p 0D 1D- a p XF 4c $ , X " h Dp 4g p 0D 1D- e p F 4i p 0D 1D- kXw F 4l $ q p Xw D 4p4rQ~ Y|,~ B.{?| B.V POINTER B0tzA K D yB.} P ?{B/[B/- B/X R~B/h d ?x POINTER ?|A L @@ B0@ NEXT ?{B0cB05@ B0` R~S ?{B1#B0u B1 (
RVARDEF w?{?{B16 D 2at J2a~ G2a F ( * "*D Dp 4 p 0D+ (4
&
%, 4 $ , h Dp 4 p 0D 1D (@ - n Dp , Y p x F 4 p 0D 1D- Xw F 4! p Xw "@
' D 4%+ J p 0D 1D- #Z 0D 1D- * " $ B$ 4DJ4' $ (@ P /, Dp 4. p 0D 1D- ,Z& " f 40 p 0D 1D- 2 p 0F " A 81F- 6Z " f 44 p 0D 1D- 8 p XF 4: $ , / Dp 4> @ p 0D 1D- < p F 4@ p 0D 1D- BXw F 4C p Xw "@@p I D 4G4IQ~ Y|,~ B9k?|YB9F POINTER B:\QA KB9m QP ?{B:KB: B:H R~S ?{B; B:] B; RPROCD ZEF ?{?{B; D
}?
}J
}K ( \
X wX wX wX wX wX w \Q| X>x x 0 p 0`h -"4
JXw " @ d Dp 4c p 1D+ 4e p 0D 1D- E 0D 1D- iZ 0D 1D (E @ m- k " $ 0D+ x4g p 0D 1D- m 0D 1D- qZ 0D 1D ( @ u- sZ& " f + 4o p 0D 1D- u 0D 1D- z p 0F 1F ( ~- | 0F 1F- ~Z 0F 1F- " & XF 4x p 0D 1D- T $ Dp 4+ e4Q~ Y|,~ BAS?|BA. P ?{BB BAU BB R~POPOFF ?{?{BB D
7h _
7r \
7s \ ( * X wX wX wX wX w \Q| X>x x 0 p 0`h -"b4
@@ k44 ( * $ 4Ds4 $
D
$4#0$ 7, % 0D + <4&,$ 4* $
$4243"$ ( 50@7, 0+ 4D;444$ < 2 D
$4@4A,$ >, :4B4E $
$ ( *U
F &@Q$H`Q&H` 2B + K4E,
6+ q4J4K h.$ D h4L h "Q*E O.$ D h4N h0D z+ j4P@@ h4R
(B$ 4Dj4S $
$Z& Q$H`Q&H` W 2B + a4U0$ h, 0@7, DZ& ( , x hZ( ,
$Z* 0( , *UT* h, e4a4i4i4j $
64o *U@ q4p4q@@ k4q+ 4r $
)H 0( A T* y@ B& ( 4D k4~4$ $
v$ ~0@7, 0D + 4
v f&$ .$ $$ Z& ,, x Dp 4 ( " f.$ p Fp Dp 2dp + p .$ 0$ 0d -- Z& F v:p + 4 "U p D f4+ '4 f.$ Z& ,, x D f4 f.$ 0$ 0d -- (** $ &
e F v4!4' $ 4'+ 4+ (Q"U , f1d ,+ 24,Z$ ,
Z4.Z$ , D f4/+ ;416 f.$ .$ 0$ 0d - (T E( 5- #Z& F v42 f.$ .$ 0$ 0d -- 5Z& F v464; $
D
$4@0$ 7, B ,TT F* 0D + Y4C $ F D
$4O4P,$ M 4DX4Q,$ D4T4W+ b4X $
$4]4^ ((T* 4$ b h.$ D h4b h.$ D h4d h0D z *T(P h+ 4f@@ h4h
(B$ 4D4i $ &
$ (VQ&H`Q(H` 2B @ "@ p & (
$ *]Q(H`Q*H` 2B @ G 4D}4k $ h 0@7, aZ& "D
T y ( , h hZ( , ^Z& ( , y+ 4v4} $ h 0@7, xZ& ( *
U
, | &
$ * ( , gZ& ( , 4~4444Z$ D e4@@ e (P
4 Z$ D
44
Q~ Y|,~ H
-----0 Bb#?|Ba~ I BbS@sBb% TABSTOP & ?{@tBbU READLINE ?{?{Bc D 4v 4v
4v @ @ B^ =X wX wX wX wX wX w \Q| X>x x 0 p 0`h -"4
04D/ *Q(( #4! e, <4#Z$ D
i4$0$ 7, 6D $ 4D,4&Z$ D
. *U* ++ .4*4,, 4,4-+ 74. e.$ 0$ 0d -- 9 v0$ 0d ?- 1 *Q(D( 4 v D
i4/ e.$ D e4547 $ f.& 2f e@ D
047Q~ Y| $ <,~ Bc?|?BgV READBUFFER?{?{Bg~ D 4v? 4vB 4vC ( " B X wX wX wX wX w \Q| X>x x 0 p 0`h -"!4; $ e0F "U*T J@ A
+4DO4H k D j4L k D j4M4O
-0$ 0d + {+ 4O ( P* S e.$ 0$ 0d -- 3 e.& 0& 0f -- U v0& 0f ?- W 6 F v+ { ( P
[4RXw 4Df4[ e.$ 0$ 0d -- Y e.& 0& 0f -- ` v0& "U( d0f ?- b v F v+ p4]4f e.$ 0$ 0d -- d e.& 0& 0f -- i (*@( l v0& 0f ?- l 6 F v4g+ {4o e.$ 0$ 0d -- n e.& 0& "A*U* u0f -- s v0& 0f ?- u v F v+ { p { R [4p, 4{ e D }/$ & 2D f@ e.( 0( 0h -- w * v
$x)L 0, @
A G (
i
,)L( 0, @ A 4F4|Z$ Xw D + 4 " P $
i
)H 0( @ B$ 4D4Xw@@ 4Q~ Y|,~ @ ?{?| Bs& NEXTCHAR ?{?{BsN D SOaM ESOaV BSOaW B H Bo Bj @ | Bp<Bp4BqBp|BrBq| ( ( aX wX wX wX wX w \Q| X>x x 0 p 0`h -"H44%@@p 4& A** 'Z$ Dp 4'Z$ Dp 4(, 4*
i Dp 4+
i1D + 94,, 4. ( 0 e/$ .$ 0$ 0d -- e/& .& 0& 0f -- 2 v0& 0f ?- 5 6 *P T( 8 F v4/49
i )F 0& + O49
i0D *+ A4=Z$ Dp *EQ A+ M4?
i0D !+ E4AZ$ Dp + M4C
i0D &+ I4EZ$ Dp + M *
U I4G
i0D )+ M4IZ$ Dp 4K, 4M+ l4N
i ;)F "DU R0& + W4O $
i0F @ Dp 4S, 4V4W
i Q)F "P
Z0& + l4W4[ p $$
i/& . Dp 4\, 4_ $
i
( P c Y)H 0( @ B$ 4D\4` p B$ 4Dk4fZ$ Dp 4h"p Dp 4i *@"
k4k4k4l p 0$ 0d -+ Z+ 4l p 1d + u4o^$ D i4qZ$ *Q*Q( t D
'4s+ x4t p D i4u@@
'4w+ Z4x p D
++ Z4y p 1$ *
U* |+ 4{ p D k4} k&$ D l4~@@ m4
)4D4 k D l+ * Q* 4 k&$ D l4+ Z4 p 0$ + 4"p D l4
@ l4D l4 *U(U" p D m4+ Z44Z$ D
)4 *U(U" k D l4@@ m4 k D l4Z$ D
.4+ Z44 p D
*4 (U
E"
*Gp D
*4 + Z4 p D
*+ Z4! p D
(+ Z4# p D
(+ Z (T** '4% p D
++ Z4' p D
)+ Z4) p 1d 1$ - ( D
.+ Z4+ p U U /1d 1$ - - D
-+ Z4. p 1d 1$ - 0 D
-+ Z42 p 1d 1$ - 4 *@*P
8 D
,+ Z45 p 1d 1$ - 7 D
,+ Z494< p 1d 1$ - ; D
,4= T @ p 1d 1$ - ? D
-4@ p 1d 1$ - B D
.4C p 1d 1$ - E D
, (*U* I4F p 1d 1$ - H D
-4I+ Z < # y ' ! Z { *U*U* Q Z Z Z 2 . Z ) % + Z Z o Z 9 Z 5 * Z4L
i1D + &4ZQ~ Y|,~ @p ^
C
;?|oC
OCHC C
= fOCASE ?{@mC
m c OSWITCHoC{@sCS ?{?{C H C P B}p @ | Bw4^Bw,^Bz
_Bz_B{`B{
` ( " r CX wX wX wX wX wX w \Q| X>x x 0 p 0`h -"% Dp 4\Z$ "E
T* z Dp 4y j Dp 4{
1B$ 4D4| j D j4~Z$ D
14 4
+ *U*U" A
44D4 k D j4 k D j4+ 4 j. e/ e/$ D j4 (
T* 4 p c)F 0& + #4 , E4
i0D + 4, "4 *Q " 44, E4 $
i2Fp @ e/& .& 0& 0f -- 7 ( v0F U(U" @ A G
.4D4
.4D"4 Z$ ,
[4 4!+ -4" $
i3Fp "*U
%@
.B& A 4D)4#, E4'+ #4(
.4D-4)Z$ ,
[4+4, (A*( -4- $ f0F @ A
(4D34- j/$ D j4143, 43 $
i U*Q( 61F @ G
04D344
0A
44D;48, 4: p D j4;
1B$ 4D@ *P >4< jD j4>Q~ Y|,~ a ` B x CTC[?|NC6 FINALCH C<H@ +C] ATXFIRST\W?{@^c JC-"x4
@@@p 4W^& ( Q Y && ` =(Z "
%$ /$ X0$ 0d &( "A b` =*b "
%& 0& ?-K.& /& 0& 0f j4D4 p /$ 0$ 0d - g$$ $
%Q$H`Q&H` ( 3B =hq "A ( s2B + }4kZ$ Dp 4t p /$ 0$ 0d - m
&4u
.1d 1$ *TT {- d, g4y+ 4| p .$ Dp 4}4+ `4 p Dp 4Q~ Y| $ ,~ C s?|C N I C!#@sC u J C!S@tC!%
LOCAL ?{@^cC!U RESWORD ?{@^cC"@ =2t` C@ ?{ D 5" T5& Q5' Q ( " 3X wX wX wX wX w \Q| X>x x 0 p 0`h -"W4 $
&0F "Q* @ G
/4D 4@@p + 14 4 , Y x Dp 4 @@p 4" p 1D+ 0 ( %4# p 0D 1D- Z 0D 1D- ' " $ 4D04%Z$ Dp 4+
, U( H -1d 1$ -C{, g4,4/4040Q~ Y|,~ C&[?|;C&6 POINT # 6ER ?|8A KC&] FOUND ?{@^cC'
})
}6
}7 (
? vX wX wX wX wX w \Q| X>x x 0 p 0`h -" Dp 41 j Dp **U( H4F
1B$ 4DM4HZ$ D
14J j D j4K4M j. e/ e/$ D j * U" P4M4P, 4Q
& )F 0& + Z4R, Q4U
&0D 4V *D
U Y, 4X+ _ $
&0F A
/4D_4Y, I4]4^ p 1h #1( - . Q" a" S$ @ )D G G
&)D 0$ + Q4_ p D j4fZ$ D
14h (U Q( j
&2Dp + m4i, V+ r4k p 0D + q4mZ$ ,
Z+ r4oZ$ ,
Z ( r4qQ~ Y|,~ H t p~`p C/?|C.n WHICH ?||Ah3C/ OLDSPACESM $ }?{@sC/E PARENTHESE?{?|yC/v D tiO BtiR @tiS ? @ @ C*<tC*4uC,DuC,<v ( * bX wX wX wX wX wX w \Q| X>x x 0 p 0`h -"E4r@@ d4 "
$
i
.B& A 4Du4
i0$ 0d =+ F "U
( + 44, 4
i0D + 4 $ e0F @ D
44Z$ , u *U(Q 44+ t44 , 4
i0D + %4 $ e0F @ D
44 "T** #Z$ , u+ ,4#4%Z$ D
&4% g0D + +4'Z$ , B4)4*+ C *T Q* ,4+4,+ t4,4- $ e0F @ D
44.@@p 41, 42
'B$ *UQ( 44D?43
i
)F 0& + ?45
i/$ 2D i+ =49Z$ Dp *UQ* =4;4=, 4=+ 54> p G
'B$ 4DC4?Z$ ., u4B+ t4CZ$ > *U*U* E, u+ t4D4F, 4G+ t - F F F F F F F F *U*U* N F F F F F F F F F F F F F F F F *U*U* V F F F F F F F F F F F F F F F F F *U*U* _ F F F F F F F F F F F F F F F F F *U*U* g F F F F F F F F F F F F F F F F F *U*U p F F F F F F F F D4H+
4t
i0$ 0d .+ + *Q*E" x4u4x@@ d4yQ$ X$
%*$
&4z4| d.$ D d4| d0d + 4~ ( T* d/$ 0$ 0d - x^& && ` =(
i "
%h 4 , 4 $ *
i
,7)F( 0& @ B$ 4D|4 , T x B$ 4D !4 ( , x B$ 4D 4
& )F 0& + 4
,1d 1$ - a, g *P*Q* + 4 4
-1d 1$ - , g4 4 4 Z$
&4 4 !+ C4 ! *E(U #4 "4 # d.$ D d4 #, 4 % $
i
)H 0( @ B$ *
U" +4D #4 &Z$
D
&4 ,
i0D !+ 14 -, 4 /+ O4 0
i0D + =4 1 *
44 3, $
i
))H 0( @ B$ 4D 44 4Z$
D
&4 :@@ d *E*
<4 ;4 <
i0D "+ N4 =, 4 ?
i 7)F 0& + E4 @, *UU" E4 D4 E
i B)F 0& + K4 E, 4 I+ F4 JZ$
D
&4 K *U"E* M@@ d4 M4 N4 N+ C4 O4 PZ$ D d4 PZ$
&4 R4 S4 T
,0D *@( V+ _4 T e.$ 0$ 0d -- e.& 0& 0f -- Y v0& 0f ?- [ 6 *U
* ^ F v4 V4 _, 4 _ d.$ D d4 ` $
i0F @ G
.G
04D T4 b (Q*Q( g
i1D + j4 fZ$ ,
[4 h4 j, 4 j d.$ D d4 k
i1D + T *U
o4 m+ C4 o4 p4 q, $
i
, G)F( 0& @ B$ *"U( x4D q4 qZ$
D
&4 x+ C4 zZ$ D
&+ C4 {4 }, 4 }
i0D + (U(U* 4 ~Z$
D
&4 , 4 + 4 Z$ D
&4 4 + C4 4 , 4 "E** p 4D
+ 4 + 4
Z$
D
&4 + C4 4 Z$ *Q*E* D
&4 , 4 Z$ , B4 + C4 4 Z$ D
&4 , 4
*4D (U*P
4 , 4 e, <4 4 + C4 4
i/$ 0$ 0d - ]
i D
& *U*U* "4 , 4 "+ C { p P *U*U* + " " " " " " " " " " } *U*U* 3 x x x x x x x x x x x x x x *U*U* < x x x x x x x x x x x x 4 #@@
44 C *Q(T
D
34D O4 D
1B$ 4D N4 E
&1D + N4 G,$ m4 I *U*Q" M@@
34 L4 M4 N4 N
34D Z4 O@@
34 P
&0D + U4 QZ$ D
3+ Y *A*@ U4 S4 U4$ YQ~ Y|,~ \H ( | C\K?| pC\& ! @ d1 C\{?{C\O
C111 C]+?| dC\
I C][@sC]- ( m INCONDCOMPC"@^cC]] INSYMBOL ?{?{C^ D ^|02 ^|0> ^|0? H CTH C? H C9 /C2( @ @ C1< \C14 \C?, ]CA4 ^CA, ^CB\ _CBT _CH `CH `CNL aCND a ( " s 'X wX wX wX w \Q| X>x x 0 p 0`h -"4
Z j Dp 4 y
1 "E*T* {B$ 4D 4 zZ$ D
14 | j D j4 ~4 j. e/$ D j4 , 4 *"E* 4
&0$ 0d + + 4 , + 4 , + 4 + 4
4
& "U*U*
0D 4 , H4 *U* (
4
& )F 0& + 4 p D j (T*Q 4 Z$ D
14
&0D + "4 , + $4 !Z$ ,
Z4 "Q~ Y|,~ &~w!t Ce?| ,Cdv OLDSPACESM?{@sCe
PARENTHESE?{?{ .CeN D tiO utiR stiS s H Cb C`h @ x Cc$ &Cc & ( ( / VX wX wX wX wX w \Q| X>x x 0 p 0`h -" x4 $ g.$ D g *(U* 74 5 j Dp 4 7
1B$ 4D >4 9Z$ D
14 ; j D j4 <4 > e/ e **E* @. j/ d.$ D j4 >, , I4 B4 C
&0D + G4 D, u+ L4 F4 G (U*@
H
&0D 4 H, I4 J, 4 K4 L
& )F 0& + D4 L p *E Q D j4 P g/$ D g4 QQ~ Y|,~ U~p Ck?| \Cjn OLDSPACESMCeK@sCk CASEDEF ?{?{ ^CkF D DEa 2DEb
/DEb / @ x Cid UCi\ V ( * ^ X wX wX wX wX wX w \Q| X>x x 0 p 0`h -" 54 S j Dp **U* g4 e
1B$ 4D l4 gZ$ D
14 i j D j4 j4 l e/ e. j/ d/$ *T * o. k D j4 l, 4 p $
&
)H 0( @ B$ 4D
4 q
&0$ "*U* x0d
+ |+ 4 v, 2+ 4 y, a+ 4 {4 |, I4 }4 ~, 4 ~
& "U* )F 0& + ~4
&0D + 4 , 4 + y | | | *Q*Q( {+ r4
1B$ 4D 4
j/ k D j4
Z$ D
14 4 p D j *(P 4
&0D + 4 , + 4 Z$ ,
[4 Q~ Y|,~ H ~p ~x@ CsS?| Cs. OLDSPACESM?| \@sCsU RECDEF !?{?{Ct D 4y{t b4y{~ _4y{ ^ H Cpp Co @ p C`| 1Cn< Cn4 Cp Cp
( " SX wX wX wX wX w \Q| X>x x 0 p 0`h -" e Dp 4
, 4 ) (U*@ +
&0D + /4 *, 4 ,, *4 -+ +4 . $
p 1j #1* - "
S& Q" 3@ )F( G G
&)F( 0& @ B$ 4D G4 /Z$ ,
Z4 8 $
&
(*T* <B 4D @4 :, 4 ?, .4 @
&0D + F4 A, 4 C *U*U* D, @4 D+ A4 E+ 04 F
*4D J4 G e/ d, ;4 H
34D P4 J@@
3 *( M4 L4$ M4 PQ~ Y|,~ R Czc?| YCz> ENDSYM ?{Ah3Cze ENDEDSTATS?{?| V [C{ D }
%}
#}
" @ x CvT RCvL S ( ( [ X wX wX wX wX w \Q| X>x x 0 p 0`h -" (4
P
1B$ 4D j (Q** d4 bZ$ D
14 dZ$ j/ l/ m, $ x D j4 e4 i, 4 j
*G
) *U
E" l4D o4 k e/ d, ;4 mZ$ , %4 o
&0D + 4 p
1B$ 4D z4 r "E(U* uZ$ D
14 tZ$ j/ l/ m, $ x D j4 v4 z, 4 z
*4D 4 { (Q*T( }
&0D + 4 }, 4 e/ d, ;4 4 + Z$ ,
Z4 Q~ Y| ,~ ?{?| D n COMPSTAT ?{?{D D M - ^M - \M - [ ( ( \X wX wX wX wX w \Q| X>x x 0 p 0`h -" a4
1B$ 4D (Q(U* 4 Z$ D
14 Z$ j/ k, $ x D j4 4 , 4 , D4
& "U*U( 0D + #4
*4D "4 , 4 e, ;4 + #4 !+ %4 "Z$ ,
Z *U " %4 #4 %4 %4 &, 4 &
& )F 0& + &4 '
&0D + <4 + (U*E
- j Dp 4 - j D j4 . j. k D j4 0Z$ D
14 2Z$ D
24 3, *Q** 64 5, 4 6
&0D + :4 7, 4 9 p D j4 :4 ;
&) "PE* >0& + &4 <
& )F 1& + E4 ?Z$ ,
Z4 C+ %4 D
*4D I *U
U* G4 E e/ d, ;4 G
&0D + W4 I, 4 K
)4D O4 L j/ k D j *T*U* O4 M
*4D V4 O
&0D + T4 Q, 4 S e/ d, ;4 T4 V+ XZ$ * X,
Z4 VQ~ Y|,~ H Z` D s?| bD N OLDSPACESM?{@sD u CASESTAT c?{?{D
& D DEd3 DEd6
DEd7 @ @ D ZD
[D [D
\ ( ( d ! X wX wX wX wX w \Q| X>x x 0 p 0`h -" 4
X
1B$ 4D r (Q(U* m4 kZ$ D
14 mZ$ j/ k, $ x D j4 n4 r, 4 r, 64 s
& "U*E* u0D + y4 t, 4 v, t4 w+ u4 x
&0D + !4 y e/ d, ;4 { "U*Q" ~Z$ D
14 } j/ k D j4 , , 4!+ !Z$ ,
Z4!Z$ , %4! (T(Q* !
&0D + !4!
1B$ 4D!4!Z$ D
14!
Z$ j/ k/ m, $ x *U** ! D j4! 4!, 4!
*4D!4!
&0D + !4!, S4! e/ d, ; *E !4!4!+ !Z$ ,
Z4!Q~ Y|,~ ?{?|! DF LOOPSTAT ?{ ! ?{Dn D (a! g(a! e(a! d ( ( !! !mX wX wX wX wX w \Q| X>x x 0 p 0`h -" j4! j Dp 4!' (T(Q( !)
2B$ 4D!64!)
1B$ 4D!24!+Z$ D
14!-Z$ j/ k, $ x D j *U
U( !24!.4!2 j. e/ e. k/$ D j4!24!6, 4!6, x4!7
&0D + !K *(T* !:4!8
1B$ 4D!B4!:Z$ D
14!<Z$ j/ k, $ x D j4!>4!A
* *U** !C4D!G4!B, !4!C e, ;4!D+ !H4!FZ$ D
24!G, 4!H, !84!I+ !L "Q*T( !KZ$ ,
Z4!J
&0D + !c4!L e/ d, ;4!N
1B$ 4D!X4!PZ$ D
1 (T*E* !T4!RZ$ j/ k, $ x D j4!T4!W
+B$ A
*4D!^4!X, !D4!Z e *Q"U( !\, ;4![+ !_4!]Z$ D
24!^Z$ D
24!_, 4!a, !J4!b4!cZ$ D
1 **Q !e4!c
&0D + !h4!e, ![4!g e/ d, ;4!h p D j4!jQ~ Y|,~ ! !m D ?|!sD ^ OLDSPACESM?{@sD IFSTAT ?{?{D 6 D Z + !$Z . !!Z / !! ( * !u "X wX wX wX wX w \Q| X>x x 0 p 0`h -"!'4
!k g$ k D j (U*U !~4!|Z$ D
14!~, 4!
*4D"4" e/ d, ;4"Q~ Y|,~ @ " ?{?|"D f LABELSTAT ?{?{D! D I& !x I* !v I+ !u ( ( " "6X 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"
*G
)4D" *T*
" 4" e/ d, ;4" Z$ , %4"
&0D + "34"
1B$ 4D")4"!Z$ *
U* "$ D
14"#Z$ j/ k, $ x D j4"%4"(, 4"), !b4"*
*4D"24"+ (U*T( "-
&0D + "/4",, !g4". e/ d, ;4"/4"1+ "4Z$ ,
Z4"2Q~ Y| "5,~ ?{?|"8D&f REPEATSTAT?{?{D' D 53K "53N " 53O " ( * "; #X wX wX wX wX wX w \Q| X>x x 0 p 0`h -""4"4 j Dp *(U* "C4"B
&0D
+ "J4"C, 4"E
&0D + "I4"F, !x4"H4"I
& T*U( "L)F 0& + "i4"J
2B$ 4D"[4"M
*4D"S4"O e/ d, <4"Q $
& U*U( "T1F @ 4D"X4"S j. k D j+ "Z4"V j. m D j4"X4"Z
&0$ 0d
(U*U* "]+ "h+ 4"[, ^+ "h4"^, g+ "h4"_, + "h4"a, !$+ "h4"b, "+ "h *U*T "e "^ "a "_ "d "b4"d+ # 4"h
*4D"p4"i
& )F 0& + "p *T * "n4"j e/ d, <4"n $
&
)H 0( @ B$ 4D"v, + "p4"p (T(U* "v
&0D + # 4"v
2B$ 4D#4"xZ$ D
14"z j D j4"{ j. k D j *
U( "4"}
*B$ G
)4D#4"Z$ D
24#4#, 4#, ">4#
&0D + # *U* #4#, 4# e/ d, <4#4#
4# p D j4# Q~ Y|,~ H # 0 @ D2;?|#D2 OLDSPACESMD'
#@sD2= CURBLOCKNR > #C{ @t#D2m STATEMENT ?{?{D3 D V?[w ">V?[~ ";V?[ "; H D,X D+X @ @ D-D#D-<#D.$#D. # ( * # #FX wX wX wX wX wX w \Q| X>x x 0 p 0`h -""A4
#
0B$ "*Q #$ &
i0H @ A 4D#)4##, 4#'+ ##4#( $
i
u)H A D #-0( @
0B& A e.& 0& 0f -- ! ( v0F @ A 4D#C4#) (P*Q #5
i0D + #:4#5Z$ Dp 4#7, 4#8+ #A
i0D + #?4#9Z$ Dp 4#< *P(T #>, 4#=+ #A4#>Z$ > Dp 4#?4#A p , u4#A4#CQ~ Y|,~ #E D9?|#LD8n LAST_CH ?{@ +D9 SKIPCOMMENB14Y?{ #ND9F D QP # QV # QW # @ x D5<#ED54#F (
#N %!R\Q| X>x x 0 p 0`h -"#"4#CZ$ D
/4#R^$ Dp 4#T4#U, *P** #W4#V
&) 0& + #V4#W g.$ D g4#Z g$ k D j4#\4#^ *E*E
#_@@
14#_
&0D + $4#` e/ d, <4#bZ$ D
14#dZ$ j/ k, $ "E*U #h x D j4#eZ$ D
04#i, 4#jQ$
%X$
$*$
%4#k $ h 0@7, O, O * #p4#m $ h 0@7, #o & Z( *
, & * v( , #t"& #y & * ( , #x &
$ * ( , #z & * ( , #|4#p
(B$ 4D$4# (
$ $ h 0@7, #r & * ( , #~4$Z$ i Fp Dp 2dp + $ $ h "* $
0@7, $ p Z( , { & * ( , $:p + $4$4$4$, 4$
& **A* $4 $4$
&) 0& + $>4$ e/ d, < (Q(U* $4$Z$ D
14$Z$ j/ k, $ x D j4$
*4D$$4$ , # 4$! e *T* * $#, <4$"4$$, 4$$ $
&
) 0( @ B$ 4D$=4$%4$*, J *Q*P
$,4$+, 4$,
&0D + $14$-, 4$/+ $+4$0 $ G
&
U* $4)F( 0& @ B$ 4D$;
&0D
+ $:4$1, b+ $;4$8, + $14$:, 4$; *U** $=+ $&4$<+ $4$=@@
/4$>
&) 0& + $U4$? e/ d, <4$C "E"Q* $EZ$ D
14$EZ$ j/ k, $ x D j4$F
&1D + $P4$J, 4$L
& "U** $N0D 4$P, #O4$P
&0D + $T4$Q, 4$S+ $@
1B$ *U*E* $V4D#_4$T
*4D$Z4$W e/ d, <4$X g/$ D g4$Z g$ k D j4$\ " D $_ $
&
)H 0( @ B$ 4D$r4$^ $ g0F @ &
&0H Q(Q $g@ A 4D$k4$cZ$ D
/+ $l4$iZ$ ,
[4$k $
&
)H 0( U"U" $p@ B$ 4D$r, + $m4$l
&0D + $v4$r, ">+ ${4$t
/B$ 4D${4$v "U"U* $xZ$ D
14$x, 4$y4$z g0D + %4${
04D%4$}
/4D%4$~Z$ *E(Q( %,
[4% f/$ D f4%4%
&1D + %4%Z$ ,
[4% $ h 0@7 *P(@* % , $
, #p4% $ h 0@7, % fZ( , $
& * ( , $, %
4%
4% (U % f.$ , <4%4%, _4%Q~ Y|,~ %PFORM/LOTS 1.1 4-SEP-80 : [ ] Page.. 0 @ 0 @ erro 8 % r(s) detected DT;?|pDT POPLIST DU%&B/kDT< I C^
6@s @ %(DTe WHATTOPOP B(D#LDUCDU DU@ R~ @ UZ. #O2d W #N @ D1# D%t# D%,"=Ca `C-DD>4%D>T%D?%D?T%D@<%DAL%DF,% DF$% DL
% DL% DMl% DMd% DQl% (** %-4% d
d D ~4%-, J4%/, v4%0Z$ D
i4%14%2, #O4%3
0B$ "*T %5 &
&0H @ G 5D%:4%4, Y4%8+ %34%9 $
6D $ "P T
%>B$ 4D%W4%:$ 4D%P4%? $ 4%C $
P* %O, 4%L+ %?4%O$$ ; *T
%W4%V
'4D%`4%W $ h 0@7, %U Z( , % & * ( , %, %V4%Y ( @( %`4%_ d
d / ~ D ~4%` $ h 0@7, %[ & * ( , %^ ~&&j0Z( (
A( %h, %\Z& ( , 4%b ~&$j0 F ~4%j ~&$ t0$ + %s4%l $ h 0@7 ( P %q, %dZ& ( , %j4%o4%s $ h 0@7, %q ~&& tZ( , %hZ& ( , %r *
E %y4%s ~&$ t F ~4%y ~0$ 2+ &
4%{ ~0$ + &4%} $ h 0@7, %u (* & & * ( , %f4%+ & 4& $ h 0@7, &Z& ( , %y4&4& 4& (*
&
$ h 0@7, & ~Z( , %w, %_4&
+ +&+&g " B zD |5B& *P &I@ { N { R |O@ | < \ < \ Z &1\ < .< Q<p X>p Q \ } ( ( & ^ } ` -" 0x -" " $ b -" $ h " @f @j @n , & $ V " @f @" &$@j @n , N `B`b+ %-, + %- @ &( procedure and function definitionsRuntime: 00 T E D&0@]KDe\ NORMAL < p
&8?|(?Df^ CMIFI CMFI?|&: (?|'zDg. CMCFM FDr &??{DgV CMATOMm$ Dq&C@t'Dg~@ c` h &B?$ ? CMACTYTEWRDp<&G@t'Dh>@ >xd ? BYTESETDDmL&J?|&}Dh~ ARRSE &@9D &JT Di|&L?|&fDi& ANYVERSION?|S@^dMDiM Dp ARRWRITEzADj#?|&`Di~ BYTEPOSTE? . &S?|&V@t&]Dj&@ >8L} ? BACKSLASHDDk@ +Djd@ .BLANKSsDA 0@xkDk@ t ` &[ &\ &\ F^@ ?{Ac3Dk]$ F CMDN Dl;Ac4&cDl'6Du CMERR DvD'0@^cDuF@ >^T ? CMDO ! '0 ?{@sDv@ >O ? CMERRMSG ?{?{DvF R ?{DwDvm$ @x` '9 Dw d';?x YEAR D|'>D}'>Dw5p MONTH Dyt'AD|d'ADwe` DAYOF '@ 9 'AMONTHD{D'DD|D'\Dxp DAYLIGHTSA?{@^d'GDxEP @ h ZONEINPUT ?|'J@^d'TDxuP @ ` 2 @ 'JZONE ?{DyT'ODy%P @ H DyP F SECONDS ?{Dz#Dyu` Dz (d 'RR JULIANDAY ?|'W@^d'WDzEP @ X DUM ?{D{$'JDzuP @ P D{ H @ '[ DAYOFWEEK DzCD{t'aD{E` D{p R ZONEUSED ?|'G@^d'DD|P 0@ 'c@ p D|@ R D|` R D} R CMFLT D~T'n@fk 'lD}&@ ?!d ? CMFLD ?{@t'rD}f@ >t ? S ?{AcD~% 't CMHLP ?{?|'wD~V HELPTEXT ?{AcD~} F ?{Ac3D-$
'} F ?{Ac3D]$ CMINIR E 3?|(<E CMMODE ?|(E#E 6@ ` (?=t ? CMKEY ?|( @t(E v@ ?7 ? CMINT ?{@sE6@ >M C` ( ? T ?{@];Eu E A(RESCAN E(E$&0E4@ PUTST &@p@ (R B(?|(-Ef NUL E<(@sE
@ ONEPLUSTABElP@sE<@ rPACK6 ' 0 ( Et(!EEl PACK15 ?|E;E E8 d ETjEP D PACK9 %b 8 (' B3Aa+Et E d E4jE0 C SOURCE ?|(0Ac (0EU !0@ (0COUNT E3@t(3E DEST EcAc (6E5 OFFSET ?{@sEe 8 (8 0 SAMECASE A{t4@sE@ PROMPT ?{AcEE PROMPT ?{Ac (AEu CMSWI E\(F@t)iE&@ ?3T ? CMOFI E
|(H?|(rEf CMNUM < @8 (IE <(L@sE @ ?* ? CMNOI ?|(O?|(XE N CMNOD ?|(S@t(UE v@ >v4 (R ? CMMULT ?{?{E
6 S ?{AcE
] STUFF ?{Ac
@ (ZE UM8 E {@sE >@ ?'d ? CMNUX E
;@sE ~@ ?%d (c? CMNUX8 ?{@sE
>@ ?#d( ? CMQST E
~@ >{ ? (kCMREALc3?{@fkEMTOKE. E4(x?|)fE^ CMTAD| E(|@sE@ ? ? CMT ! (|CMUSR?{@sEF@ ?6@ ` )
<A[;Et SOURCE ?{AcE DEFAULT_AC?{AcEM ! @ )/GJDIR E#?|)7E~ GJEXT ?{?|)4E& DEFAULT_EX?{AcEM DEFAU ! h )8LT_DI?{AcE} DEFAULT_DE?{AcE- GJNAM E\)@?|)`E^ GJJFN @ )@ ?{?|)BE TRY_TO_USE?{@sE- GJPRO E?|)]E^ HT < p@ )IE4 @sE@ LINSIZE ED)N@sE4@ ,LINSIZ1PLU?|)Q@sEd@ ,LINNU # p )QMSIZE?|@sE@ LINSIZPLUSEs@sED@ -MAXINC B\)Z@sEt@ P !` )ZLOWERCASE AqD#@sE$@ DEFAULT_PR?{AcEU DEFAULT_NA?{AcE )b FLAGS_AND_?{@sE 5 STUFF ?{AcE e T ?{@];
` )kE TABLEE E k@];E D TADREC E T)qDwE l TABLESIZE E l)t@sE @ )s rTABLEINDEX?{@zkE D TABSE!L*?{E E m
E = KEY*E!M ?|* Ac * ENm BITSE!|@ ?{@sE! ( VALUE !@ 0 * !` *UNDEFINED E#
@sE"\@ UPPERCASE Bd@sE#
@ *
PFORM ` * /LOTSSIZE ?{@sE#m INTEGER E)
*$@sE$ CHAR @c*&@ +E$D !` *&BOOLEAN E(*)@^cE$l ALFA E%|*+@xkE% ABS ?{?{E%>@ TIME (
*/ ALFALENG E&+@sE%|@ APPEND E&S?{E&. ARCTAN ?|*9@fh E&V@ @ *7?Z$ ARCSIN ?|*=@fh E'@ ?S$ ARCCOS ?{@fh E'V@ ?R$ @ *@ BREAK E(;?{E( CALLI ?|*F?{E(> BREAKIN ?{?{E(f !` @ *HREAL E2*K@fkE)
POINTER E.l*ME2E)7@ NIL E,\*PE.[E)\@ MAXIN ' @ *QT E+d*S@sE*
@ ?MARK ?|*V?{E*> LN E+#@fh E*f@ ?[$ *Y LOG ?{@fh E+&@ ?Y$ NEW E, ?{E+f NEWZ E,3 b *b?{E, NEXTBLOCK ?{?{E,6 OUTPUT E.
*h@bsE,] H ODD E-K?{ *jE-@ 0 TRUNC ORD ?{?{E-N@ 8 ODD PACK E.3?{E. @ *sPAGE ?{?{E.6 E.X RPUT E/|*y?{E.n PRED E/S?{E/@ 0 *{ H CHR PROTECTION?{?{E/V PUTLN E0L+?{E/~ PUT8BITSTO?{?{ 0 +E0& READ E1\+?{E0N PUTX E1?{E0v RANDOM ?{@fh E1 @ ?Q$ +
READLN ?{?{E1^ E2 dTEXT @^t+@bsE2 STRING E8l+ 0
@ +AcE2?@ RESET E4 +?{E2f RELEASE E3t+?{E3 RECSIZE ?{?{E36@ + x ROUND RENAME ?{?{E3v REWRITE E4C?{E4 SETPOS E5l+&?{ +&E4F RUNTIME ?|+*?{E4n@ DATE ROUND ?{?{E5.@ p EOLN !` ( +.SPACELEFT E7l+2@p E5n@ ?ft SIN E6k@fh E6.@ ?dt SIND % +7 E7+@fh E6n@ ?X$ SINH ?{@fh E7.@ ?V$ SQR 0 +?E8+?{E7n@ ABS SQRT ?{@fh E8.@ ?\$ STRSET E9 +H?{E8n STRWRITE E9;?{E9 SUCC E9{?{E9>@ P PRED TANH $
U +P?{@fh E9~@ ?T$
d& &- *! 6 jPFORM +Yf a~+ a +a P +S @ ~ D[T&(D\T&,D`$&- D"`[ &`[ &@% zINGg {INVT {IN | |
u^c; D D" |G; 2c(TSg ?e5 kL #e5 ` 6"k ^`%@O f` D abKd+' ]bKTI; ] D"`%( %bKLtD Z`
W{ `
X/g `
XX `%k ^`%a} 2`%`w .`%- D"`%?) `& = `%K] *`?^ E`@)F w`%@I Ud+#4< &dSLxg &g=p #, D"bM J & b^k: #Re
Nu %S`-% &` '; %Oe5$@ &% D"e5!\ &"`
NsM %K`-%P
O`
2c]Ez* &
f7 3 &f7 R3 qc #1f7 O & x a J1 gg a J1 gg / 8 & ( ( +i