Trailing-Edge
-
PDP-10 Archives
-
decuslib10-11
-
43,50531/pform.exe
There are 2 other files named pform.exe in the archive. Click here to see a list.
?p 0 0 0 0 ?h X &C ?x "
<+ + 2 ` 6|K~kp @
&C 5P 5 2 @ Error in block structure: BEGIN expectedMissing 'END' statement Missing 'THEN' for 'IF' Missing 'OF' in 'CASE' Missing 'EXIT' in 'LOOP' Missing right parenthesis Missing closing quote on this line WARNING: This file has no main body Missing closing point at end of program.Line too long. I'm gonna get confused. Missing right bracket Missing 'UNTIL' for 'REPEAT' Missing close comment at end of program.
AND ARRAY BEGIN CASE CONST DO DIV DOWNTO END ELSE EXIT EXTERN FOR FILE FORWARD FUNCTION FORTRAN GOTO IF IN INITPROCEDLOOP LABEL MOD NOT NIL OR OF OTHERS PACKED PROCEDURE PROGRAM RECORD REPEAT SET THEN TO TYPE UNTIL VAR WHILE WITH
x ` | @ @0 @ F | P @ | P @ 6 ? 6`?KjO E
KXDg EVKPnM F@KPm FTKR GKR HKi HV
KjO E
KXDg EV
KPnM F@
KPm FT
KR G
KR H
Ki HVKi # HUKi HVKR# HKR HKR# GKR GKPm FTKPm FTKPnW F?KPnM F@KXDo EVKXDg EV(TZ7 E (TZ6 E (TZ3 E KjW E KjO E
Ki |E W# OOrc OOqh O>| O/g OL OX O { O rJ O q| O aF O ^s OO
2 OOw OO> OO# OO = ONyi ONs3 ONm& ONdi ON`}
ON`w ON_} ON_{ ONK] ON@I ON@F ON?) ON: ON36 ON-m ON-G ON-@ ON-? ON- ON J ON | ON t ON + ON ONq ONk ONM ON
s
ON
] ON
V Vx?)G <x?4 9|Y; S/! B1qQMG qQ;t YmoV: ` 'moP ` &Ul )H @)F ?CcuX9 ?`cuX3 ?^cuWd ?dcuWd ?acuWc ?YcuWa ?\cuW^ ?fcuW^ ?ecuWY ?RcuWY ?Q?^ ?GcuWU ?ocuWO ?hcuWL ?q X-ay B[VS; SI > e? 3V?OU @V?OU @e ?Q .F
6 UOz{ MP >nKOV ==?JQ >:=?JH >5V @C5
0 5 >H5 >U5 >[)- @z)- @t4vP A 'w @U
xB U
n.
C( >^
t tj >T
& u^
" ] %? C%];9 C];9 C!];3 C]` @7YQ 0 >;YM& @WYHek ?BY5#G A)Y5#D A-Q tB {De#Z >yDe ; rDe7 <DdR TDdN ?DdMG rT8aLd THG 7 PN : PMx TH)w1 (`5 B (`/ B(`) B!
Q]9 @K
Q8H @F
^h?; >S^goG 8^g[4 3^\'_
( ]QDd @M]Q6J CmZO=; ># E%K @@E%
2 CaE$~E B>E$~? B3E$~= B#E$~8 B<E$~8 B:E$~7 B5E$~7 B.E$~6 B,E$~6 B+E$~5 B)E$~5 B(E$~4 B$SE$|. E$wc @>E$v @;E$u; @=E$e. ?$E$^w CE$^w C.E$I] B"E$+ AiE$%G @9E$ J CcE$q C<E$k C5E$t 3
b8K @A+YQq ?@+YQq ??
XR ?<
X>| ?8
X/g ?5
XL ?;
XX ?/+?.B Q
W{ ?6
WrJ ?3
Wq| ?2
W^s ?9K+lu K+l>@ (TtQ @g(TOb @m ( AQH] AbH] A^HM. ?BHF6 AdHCg P
z H H y
? f 9 6:B }K ` Mc e_r <^R 9]^_ ? X~ ;}
dU @s}
dQ @m x2 CReDo @eeB{U CPeB{O CJx > CFx? A}eA3' BeA3% BeA3# BeA3! Bx= Ase@|w Bye@|T Bye@{ Bte@h) @he@*2 Bvwhi A:e7G Cwd} B{e7E: C&e7E8 C(e7E7 C
e7E3 C(wdw Ce7 - CBe7 ' C@wc} C>e7G C#e0u B
wO] BwDI @NwC) A:w1G Cow1? CCe'+F Agw1 A=e#7 CXw$J CUe!ay Bdw >`e!Us Blw q C7e!)X C3w k C0aiVB w`l A/_8~B sR_H.
_1. ?%__t ) P^< 8P^/ 8Men C*MeV5 BMMe( AMe( AMR/Q Bu+T2 BKMS4 B?MR BZMR BLMR BwMR BWMR BNMQ1 AsMQ+ AoMQ) AmMQ CiMQ CdMQ CkMQ CeMQ A)Ms B_)MG 2)MG @) T} @ &
2 @
Ks >OKs >R&w @Kq\ A0&> @&1 @% FD @(Kq @"
Kq @%&# @! T{ @$& = ?r
Km'G ?%s3 @KjN >FKjM >CKjM >A%di ?'
Kf'
?|%`} ?|
Kf%0 ?y%`w ?y%_} @%_{ @
Kd+' >l
Kd? >%%SA @-%K] ?s%@O ?
K\
>'%@I ><%?) ?&KZI ?KZI ?KZH ?%: ?%-G @ %-? @ D+ @KV
?)%- ?(
KTI; >I%( ?
D >z D @'
KR @% J @% | @ KQ|! ?#KQ|! ?!% t ? Ts @!%q ?v%k ?w
KLtD ?
KLm? @
KLm @KLm @KLm
KL >U%
s @JL@C JL=A JL9 JL+ JL* JL @ JLaU HYM AHY< A.j` A HY A8HY A1HY A6HY* AHY% A"HXo7 A R8H. (+t > w. @Kt R u.
t{. @ t)t I i^ A& i^ A"yjB R-nV
vVsNT>
"8x2 >
}). > i ;YT>
(x > kv >H (G >H^wg > Fe vV>=p =Tw9[d=Ts ) =/s2 =*R- =R- <|R, <6R,~ <U & =D7 R3 <07 D ;Q7 >g <(7 =; <57 =1 ;|7 3 </7 - < 7 ,4 ;M7 +( ;V7 *3 ;U7 $e <7 K ;qJ'
: <;4v
<I4v
<H4v
<K<:4vH =4vz <M4vY <94vY <7),y <@-#M ;I p4S =
vWK ;Gj`n_ ;[j`M; ;]j_~3 ;XYZ " <YI4 =?M = 0 <F h =8Y]G ;{P
~c7
^3 <z^}}; ;g ^}}1 =3^}.3 = Av_ ;mAd ;kAU; ;p
l <Y1f <X
kVO <d(Tt <Z(T6O <d Hd H\M HS; H[ H3 H H
Z <f Mb <k 4I^W <U.4+ =.4+ =.4*/ =.0 I =.0 I = 9K 9`Q(k 9=Q(j 9=7
O 9@Q.N 9$Q.N 9$7H- 9'(Tvo 8 (Tvn 8!(Tvg 8$(TZ7 7X(TZ6 7[(TZ3 7] K}t7X < +
}
> ~
.2 }7g | <47XWk Wk WDF W " W\)8 *[@v *P'qk ` WKB$D WJ 6
I<}g P M7 ` WFSo@ W@6lk M_
: 27 F .:7 F .67 F .77sk /<7sa /C7 -v |P /$D /$A =ji 3 w
w -fv}2 -lvWx NvB Kv? 3v 3#t+ 0Nr1| 3i& 4 .%Z9 .o#Nw -xo#F 4Ao#F 4Do#F 4A
H 44`^ .4n{ .0n5@ .%n55 .'movw -~moV: ` '_J 4Ylc#M 43gsM 4)gsF 4)gsE 41gsE 4.e;X 4we;X 5e;X 4{e; 3 5cE4: ` 6cDye 1 VRE x
4T )K 2ET
. T
_I 26T
_A 27T
-@ 2?1[d .MPv
MPsT 2FMPc= 3hMPc= 3dMPc9 3+MPc/ 3MPc. 3RMPc. 3CMPc- 3@MPc- 36 1rMPSg ` MPSg 1bMP \ 2GMP Z 2NMP
0IM4df 2I 1R5 t 1/5 K 12 786 785 785 14 4zYT /4z\ /4yi /
%5 1 6"k +=-&y .
4*I . 4*G /,v /.-%P /9 4*D /2-% /7 3 /4
i: 5
4B /N 3dz `
v|A 53v|- 5Jv|- 5@
& u^
" u^ t ` rX)" 0UrW~h !TrW}M *rWyA 0BrWf` 07rWN 0orWN 0mrWMG 0IrWEr 0arWEU 0krWEO 0erW<K 0 2 0=rKr 1^TV 1]TUQ 2+Tr:| r:^: 2r:^- 2
< /'YZ /#* .#YT|9 -sYT|4 -rYR^> 0)YRVD .YQ(w -TYQ2 -Z ~ .SYP<d 1%
YP< ,K
YP< +BYP/ .OY3bW 5OY34( 1[SNK +&SM[4 SMC +SM
+'
SL~j +
SLxg xP (
.3 1 , 4
Al zA 6I 0 T8aE\ 8Hk) 1z8Hk) 1u
+#4< w+"jB n(a@ 4 ^hK8 5 ^hK6 5 ^hKB 5 ^hO* 5 ^\'
( {ot o
{g { _
w_ { @ x8
. ]Ez* 3{ZO W 5E, 3x@d y1K9? .w
b9? +,.az0 +0 .az6 +)
Nvw /
Nvt /
Nvz .
!|G .~(Ty" ` (Tv / (Tv
@ (TUG .Z(TUD .? (TT< + (TT .g(TT .K !|D /
Nu .(THH ` (T 3 / (T " .j(T _ .C(T G .y(T : .}(T ' .^
NsS .U(T{ 4X(Tz 4T(Tz 4P(Ty 4I(Ty 4G
NsS 4F
NsP .;(Tg .a(Td .F (T 1D
NsM .(T t 1;(T L 1B(T K 1=(T H 1@
Ns1 / !|> /
!|J . P i7 P h
f ."Hl Hk Hf He} Hey Hey HcW H] H\M H[) HS; HS) HS& HR| HRT HQ.
H7O H&G H H[ H H H
G{: Gz- GyM GyI Gxc Gs }K ` ]z3 3y]^r C K)G +<}\f 2J D z` ># +< C9P +@ C9O += aG += e!OB 1%d NI 06al'
+:al' +6
al&V +3_9q ` _9h. ` _9Gg ` d /f_H . _H{ . c[6 . _{g 3tbJ C
^k: +
P^nB .P^n! 2h5I 2fP^)\ 2n
P^ 1J+T2 .
M J + RW ` M C@ +M 0) 5UM 0% 5QM 0# 5PM 0 5XK I
2 #lk K39 1K1I 1/K19 1-
K1 1#HY6= 1 HXx 2, 8 w j3 3 62) 2a j3 4q j0 2Sa + 3 a ( 2U
61 2 2_
6%..`wF .4
Y^ 0/2] 7 3}2] " ^2]2 -`R2\mx 2\mN N2\D /MP M4 -@6* +ssg 1\+s0 1I n5" 5 mZ 5 mYF `
ieG /l ie9 0 ie- 0 ie- 0
@,Z 4
0M
4
h) 4L\ / Ktf .Lx: 2 Fe Fd (L$+Ul )H 5
0 + +(TUW + (TSg +HCg v Z~+ |G; b
u^c; t @) INVT +INGg +@% *`[ &C`[ &C2d W $UZ. $QW #OQV #OQP #RV?[ "mV?[~ "nV?[w "q53O "=53N "=53K "@ I+ "' I* "' I& "*Z / !RZ . !RZ + !U(a! !(a! !(a! !DEd7 ;DEd6 <DEd3 >M - M - M - }
Q}
R}
T4y{ ]DEb
]DEa `tiS tiR !tiO #^|0? .^|0> /^|02 2tiS ltiR ltiO o
}7 @
}6 @
}) C5' |5& }5" e!a e!a~ e!aw rWfg IrWff JrWf` LSOaW lSOaV lSOaM o4vC D4vB D4v? G4v <4v
=4v ?
7s
7r
7h
}K 5
}J 6
}? 92a n2a~ n2at q7 `7 ~ `7 w c^8c
^8b
K{
gSMN$
hMP
MP
^hLO &^hLA &5 5 TB NTA NKyk Kyf W #]- WV?Qk dV?Q` dV?Qk IV?Qj JV?Qd M4v
4v
4v w V?Qk eV?Qj eV?Qd h]l R]l R]l U(T\; (T\: (T\7 MP mMP~ mMPt p_
S B_
R C_
G F -@ ( M ) -pS h +\2g 'r'I (\)8 *\)7 \ \ )\+ ,\6 .\. ,[rO .O[mN O[m O[m O[l| [l{ &O[l+ O[k O[k O[j] O[jR O[i% r%H ([Z [X %[Qg r% 0[Ms /[M" -[M +[L ,[FG [@v *r#e OD^w'd w]!+{ 0 @
&C+ @ 6|5P a~+ 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 + 4 p Dp + 4 p Dp 4 Q~ Y|,~ @[?| $@o A @ @< @ B ?{@;@M @x d MIN ?{@< @@ ?| @ ?{ 5R\Q| X>x x 0 p 0`h -"+ Dp Fp 4 p 3$p + 14 - p Dp + 34 / p Dp 4 1Q~ Y|,~ @?| >@ A @3@< ;@E B ?{@;@u MAX ?{@< 8@&@ @P ?{ H H ]X wX wX wX wX wX w \Q| X>x x 0 p 0`h -"+4 3Z$ , ?C x Xw D 4 JXw Z& (D * Z, , ?G4 MXw Z& (D * Z, , ?G4 QXw Z& (E * Z, , ?G4 UZ$ , ?C x Xw D 4 YXw Z& (E * Z, , ?G4 \Z$ , ?C x Xw D 4 `Xw Z& (F * Z, , ?G4 cXw Z& (G * Z, , ?G4 gXw Z& (H * Z, , ?G4 kXw Z& (I * Z, , ?G4 oZ$ , ?C x Xw D 4 sXw Z& (J * Z, , ?G4 vXw Z& (K * Z, , ?G4 zXw Z& (L * Z, , ?G4 ~Xw Z& (L * Z, , ?G4Xw Z& (N * Z, , ?G4Xw Z& (O * Z, , ?G4
Xw Z& (Q * Z, , ?G4Xw Z& (Q * Z, , ?G4Xw Z& (S * Z, , ?G4Xw Z& (T * Z, , ?G4Xw Z& (V * Z, , ?G4 Xw Z& (W * Z, , ?G4"Xw Z& (W * Z, , ?G4&Xw Z& (X * Z, , ?G4*Xw Z& (Y * Z, , ?G4.Xw Z& (Y * Z, , ?G42Xw Z& ([ * Z, , ?G46Xw Z& ([ * Z, , ?G4:Xw Z& (\ * Z, , ?G4>Q~ Y|,~ STARTRUN ERUN HELP UPPERCASE SAMECASE LOWERCASE CAPITALIZEVERSION: TASMANIAN SUPERSTRING-CASE: SAVE-COMMENT RESERVED-CASE: QUIETPROCEDURE-CASE:PRESERVE NONRESERVED-CASE: INDENT: FORCEELSEIF DENNYCOUNTCOMMENT-CASE: CASE:BEGIN: BAR @ ?|j@ INVISIBLE @ 3@;@D@ RSTRING ?{@ c@u @ d B@
g@ 8 G @ H A # DEFINEOPTI?{?{@ n X wX wX wX wX wX w \Q| X>x x 0 p 0`h -"+4B^$ D 4t@@
W4u@@
Y4v@@
Z4wZ$ D
\4x@@
[4zZ$ D
^4{@@
X4|Z$ D
\4}@@
Y4Z$ D
]4 Z$ D 4@@
Z4@@
[4@@
W4Z$ D
]4Xw@@ 4@@ 4 @@ 4
@@ 4 @@
X4
Q~ Y|,~ 4^$?{?|@!7 SETDEFAULT?{?{@!f LX wX wX wX wX wX w \Q| X>x x 0 p 0`h -"+4
W4 4 0$ + %4!Z$ D 4#4$ 0$ + ,4%" D 4' D 4(@@ 4*+ .4+@@ 4,@@ 4-4.
Y4D64. D 40@@ 41 D 42Z$ D
^4445Xw 1D + J46Xw 1d 1$ - 4 D
^48Xw 1d 1$ - 4 D
]4<Xw 1d 1$ - 4 D
]4?Xw 1d 1$ - 4 D
\4CXw 1d 1$ - 4 D
\4F4JQ~ Y|,~ ?{?|O@) GETOPTIONS?{?{@)> _X wX wX wX wX wX w \Q| X>x x 0 p 0`h -"+4J, ?
x 4D]4Y, >I4[, +=4\4]Q~ Y|,~ ?{?|b@+? ERRCHECK ?{?{@+n X wX wX wX wX wX w \Q| X>x x 0 p 0`h -"+4] , ?/4lZ$ , ?
4m $ & , ?64o $ , ?(4q, ?
x 4Dx4r $ & , ?64t $ , ?(4v4xXw B$ 4D}4xZ$ , ?
4{4|, ?
x 4D4} $ , ?&44 , U4Q~ Y|,~ PAS PGO ?{?|@0 STARTOLD ?{?{@0N =X wX wX wX wX wX w \Q| X>x x 0 p 0`h -"+4Z$ , ?
4, + x Xw D 4 $ Xw 1f @ Xw D 4Xw 4D 4Xw , ?s x Xw D 4 4 Xw 4D;4 =, ?/4" $ , ?(4# $ , +4%^& B&& ` =((Z( Xw. " h 4&Xw $ & , @4,, ?
x B$ Xw D 4.^& B&& ` =(3Z( Xw. " h 41, ?w47, ?
x Xw D 484:Q~ Y|,~ @8 ?|F@7 RSCAN ?|C@;@7L@ RLJFN ?{@;@7|@ READRESCAN?{?{@8. H H EX wX wX wX wX wX w \Q| X>x x 0 p 0`h -"+4 ; $ &p ( , +4QXw 4D-4SQ$>X$p *$p 4UZ$ Dp 4W p /$ 0$ 0d - 4 ^& I&& ` =(] ( . " $ 1D @ *
p 0, @
A 4Hu4Y p /$ 0$ 0d - 4 ^& I&& ` =(i p /( 0( 0h - 4 ^* I&* ` =,n.
"( ( . " h 4d p .$ Dp 4r+ Y4t p /$ 0$ 0d - 4 ^& I&& ` =(y. " $ 1D + 4u p .$ Dp 4}4 p /$ 0$ 0d - 4 ^& I&& ` =(Z( . " h 4 p .$ /$ 0$ 0d - 4 ^& I&& ` =(
Z( 7. " h 4 p .$ /$ 0$ 0d - 4 ^& I&& ` =(Z( 2. " h 4 p .$ /$ 0$ 0d - 4 ^& I&& ` =( Z( ;. " h 4 p .$ /$ 0$ 0d - 4 ^& I&& ` =($Z( . " h 4 $ , &p ( * , . O " , 1N4'+ <4, $C & , ><4- D, ?/4/ $E & , ?640 $p & , ?542 $ ,, ?(44, ?w46 $ , & ( * , . O " , 1N474<Q~ Y|,~ Newsource? @ NEW @I ?|a@H JFNS @J K@;@HL@
FIELDLENGT@Ik@;@H|@ FLPLUS5 ?{@;@I,@ OLDNAME @K4T@Kc@I] NEWNAME ?{@J{@JNEW ?{?{@K^ R\Q| X>x x 0 p 0`h -"+4<, F4h $w & , ><4i, 4k p B$ 4Dp4l $w & , ><4n4p, h4p p B$ 4Du4qZ$ , ?
4s4u, p4u4v, >l4w, ?w4x p , ?r x Dp 4y p 4D4{ $p & , @4}, >z x Dp 4 $ p 0F @ & p 0H @ G 5Di4, U4, ? x 2$0d + h+4, ?y x D + h4 4
Y4+ h4Z$ D
Z+ h44 p , ?s x 1d 1$ - 4 D
\4+ h44 $y & , @4Z$ D
[4 + h4 4 p , ?s x 1d 1$ - 4 D
^4 + h4#Z$ D
X+ h4$4& p , ?s x 1d 1$ - 4 D
\4'+ h4+4, $y & , @4,Z$ D
Y4.+ h4041 p , ?s x 1d 1$ - 4 D
]41+ h45, ?y x D + h4649 ${ &
Z4;+ h4=Z$ D
[+ h4>4@ $~ & , @4@Z$ D
W4B+ h4D4E p , ?s x 1d 1$ - 4 D
]4E+ h4I p , ?s x 1d 1$ - 4 Dp + h4J, ?y x D + h4O4Q $ & , @4RZ$ D
X4T+ h E h O J h h h 6 1 h & h h h h h h 4k, U4l $ & ( *Q* , . O " , 0q4m, 4s, M4tQ~ Y|,~ Oldsource? FORMAT INDENTATION NEWLINES IN STANDARD PLACES PROCEDURE AND FUNCTION DECLARATIONSFORMAT FOR COMMENTS w/E @`{?|T@` CASESCOUNT@s<
@;@`<@ CASES ?|
@`m CALLTABLE ?{@b
@a @aH R@aX 2d @b4 #@ap G # 2 OPTIONS @c@b
@b RESCANNING@d @dK@bE @ PAREN TTY@8k@cc@bu H @c d B@c|g@c8 A # RUNCOM @g;@"#@dL@c] 8 @d A%TRUE~ USE@eL(@dLF@d @ TIMEETO ?{?{@dN@ RUNTIME?{TTY{@gv@f</@h[@eFALSE @pI@dK@h,@ CLOSE @jL?{@h^ CHR ?{?{@i@ @ ORD DISMISS @m\R?{@iF DELETE ?|U?{@in CURPOS @ldY@8 @j@ ?| COS @kS@lP @jV@
t COSD @l@lP @k@
t COSH ?{@lP @kV@
t @l d DATE ?{@m#@l&@
D @l` d
@m<g@lx @ # DUMPIN @n,p?{@m DISPOSE ?{?{@mF DUMPOUT @nS?{@mn EOF @o?{@n@ X SUCC EOLN @oS?{@nV@ ` EOF EXP ?{@lP @o@
t INPUT ?|@h[@oU
( GET @pk?{@p GETLN @qd ?{@p. GETLINENR ?| ?{@pV GETINDEX ?{?{@p~ GETX ?{?{@q& HELP @s
@b @qM EACHCASE @)|j@rk@q} 0 @r( C # I ?{@;@rM ( OPTIONCOUN@sl@;@r|@ SWVERSION ?|!@;@s,@ SWTAS ?|$@;@s\@ SWSUPER ?|'@;@t
@ SWSTR ?|*@;@t<@ SWSAVE_COM?|-@;@tl@ SWRES ?|0@;@u @ SWQUIET ?|3@;@uL@ SWPROC ?|6@;@u|@ SWPRESERVE?|9@;@v,@ SWNONRES ?|<@;@v\@ SWINDENT ?|?@;@w
@ SWFORCE ?|B@;@w<@ SWELSEIF ?|E@;@wl@ SWCOUNT?|H@;@x @ SWCASE @z K@;@xL@ SWBEGIN ?|N@;@x|@ SWBAR ?|@;@y,@ SWCOMM ?{@;@y\@ STARTFILES?{?{@z eR\Q| X>x x 0 p 0`h -"+ Dp 4u p Q$ X$p *$p 4[#p #p / # &$ r1f r1& - 4 Fp 4^Q~ Y|,~ @}?|@| SY ?|k@~[@|E$ HACK ?{@}c@|u @} do@@ INT1 @r@<y@}=@ ALF ?{@~[@}m@ @~ d @~tg@~0 @ # INT2 ?{@;@~U@ @ A }@dH @ A$u@|r @8 A$?|o HASH ?{A \h@^@
U, W x 0$ 0d r- 4 " Dp 4 @@p 4 $ p 1F@ p B& A 4D$4 p 0D 1D- 4 $ &
UQ$H`Q&H` ( 3B =h2B + 4Z$ Dp + #4 p 0D 1D-@4[ Dp 4 + 4# p 4D'4$p Dp + )4%^$zDp 4'Q~ Y|,~ 0`h -"+Ac?|JAw POINTERD ?|1ACA% FOUNDr1$ ?{@dKAU A R5A d6?x STRING $ ?|9@~\9A-@ NEXTY p AKA <A]p STACK *( ?{A{AD 1D- 4Z 0D 1D- 4Z& " f 4c p 0D 1D- 4Z 0D 1D- 4^& " f 4i p 0D 1D- 4 p 0& 0f r- 4 "QF 4o p 0$ 0d r- 4 p F"4uQ~ Y|,~ A[?| Ao SY ?| @~[A POINTER A;ACAM POS ?{A [A} FIRSTDEF ?{?|}A. R\Q| X>x x 0 p 0`h -"+4
xQ$ /X$ "*$ 4 D @@ @@ 4 @@ @@ Z$ D 4 Z$ D
`Z$ D
d4 @@
`@@
a4 Q$ X$
U*$
VQ$ X$
T*$
U4 Q~ Y|,~ ?{?| #AO REINITIALI?{?{A~
R\Q| X>x x 0 p 0`h -"+4 @@
c4 *@@
b4 +@@
^4 ,@@
_4 -Z$ Dp 0d r+ 4 p 0$ 0d r- 4 ^& F":p + /4 . 5 4, N 6 5, N4 4 7 6, N 8 7, N4 8 9 8, N : 9, N4 ; ; :, N < ;, N4 ? = <, N > =, N4 B ? >, N @ ?, N4 F A @, N B A, N4 I C B, N D C, N4 M E D, N F E, N4 P G F, N H G, N4 T I H, N J I, N4 W K J, N L K, N4 [ M L, N N M, N4 ^ O N, N P O, N4 b Q P, N R Q, N4 e S R, N T S, N4 i U T, N V U, N4 l W V, N X W, N4 p Y X, N Z Y, N4 s [ Z, N \ [, N4 w ] \, N ^ ], N4 z _ ^, N ` _, N4 ~ a `, N b a, N4
c b, N d c, N4
e d, N f e, N4
g f, N h g, N4
i h, N j i, N4
k j, N l k, N4
m l, N n m, N4
o n, N p o, N4
q p, N r q, N4
s r, N t s, N4
! u t, N v u, N4
$ w v, N x w, N4
( y x, N z y, N4
+ { z, N | {, N4
/ } |, N ~ }, N4
2 ~, N
, N4
6
, N
, N4
9
, N
, N4
=
, N
, N4
@
, N
, N4
D
, N
, N4
G
, N
, N4
K
, N
, N4
N
, N4
R@@ /4
TQ$ "X$ /*$ !4
UZ$ +D
^/ 0$ 0d - 4 Z&
F
X4
WZ$ D
^Z$ D
7Z$ D
aZ$ D
bZ$ D
dZ$ D
eZ$ D
gZ$ D
hZ$ D
j^$ Dp 0d d+
r p .$ 0$ 0d -- 4 Z& F
&:p +
m4
kZ$ Dp 0d +
y p /$ 0$ 0d - 4 Z& F :p +
t4
rZ$ +D 4
y0 0d ?- 4
|0 0d ?- 4
:
{4 Z$ 4D : 1Q~ Y|,~ GET GETLN PUT PUTLN RESET REWRITE READ READLN BREAK WRITE WRITELN PACK UNPACK NEW GETLINENR PAGE PROTECTIONCALL DATE TIME DISPOSE HALT GETSEG PUTSEG MESSAGE LINELIMIT REALTIME ABS SQR ODD ORD CHR PRED SUCC EOF EOLN CLOCK CARD LOWERBOUNDUPPERBOUNDEOS MIN MAX FIRST LAST COS EXP SQRT LN ARCTAN LOG SIND COSD SINH COSH TANH ARCSIN ARCCOS RANDOM SIN ROUND EXPO OPTION TRUNC LENGTH GETCHAR POS STRLT STRLE STREQ STRGE STRGT STRNE GETFILENAMGETOPTION GETSTATUS ASKFILENAMSTARTFILE GETPARAMETGETNEXTCALFILNAM REENTER SETTIME TIMEREPORTRUNTIME ELAPSEDTIMPUTCHAR ASSIGN SUBSTR CONCAT SETRAN AB+?|
AA? I ?{@;AAm INITIALIZE?{?{AB
\R\Q| X>x x 0 p 0`h -"+ Dp 4
2 p 0$ 0d +
Z+
W4
4
/ /$ /& Fp Dp 2dp +
. p .$ 0$ 0d -- 4 p .& 0& 0f -- 4
&0& 0f ?- 4 & F
&:p +
$4
+
Z4
.4
/ / /$ /& Fp Dp 2dp +
= p .$ 0$ 0d -- 4 p .& 0& 0f -- 4
&0& 0f ?- 4 f F
&:p +
34
/+
Z4
=4
> / /$ .$ 0$ 0d -- 4 / /& .& 0& 0f -- 4
&0& 0f ?- 4 & F
&4
? / /& Fp Dp 2dp +
W p .$ 0$ 0d -- 4 p .& 0& 0f -- 4
&0& 0f ?- 4 f F
&:p +
M4
I+
Z
Z
/
>4
WQ~ Y|,~ AKs?|
eAK WHICHCASE ?|
b@rkAK5 J ?{@;AKe SETCASE ?{?|
AL X>x x 0 p 0`h -"+4
Z .$ D 4
k@@ 4
m@@ 4
n $ &
TQ(H`Q(H` * 3B =j
s3B @
XB& A 4D
~4
o $ 0@7, 3{ Z( , ;] &
x $ , 0@7, 3{, /94
~Q~ Y|,~ GE ?{.. AP> ?{?|X wX wX wX w \Q| X>x x 0 p 0`h -"+ Dp 4
+ .$ 0D 43{ & * ( , </4
U * ( , </ &
e4* ( , </+ 3{ p 0& 0f - 4 $& &
e4* ( , </+ 3{ p 0& 0f - 4 $& &
e * ( , </+ 3{,&4* ( , </, /74
T (Q&H`Q(H` 2B @ & (
T4*Q(H`Q*H` 2B @ G 4D
T4* 0( , </43{Z& ( , <, Z( , ;] & * ( , </4
U * ( , </ &
e4* ( , </+ 3{ p 0& 0f - 4 $& &
e4* ( , </+ 3{ p 0& 0f - 4 $& &
e * Y( , </+ 3{, /74?*) ERRORNAT -----@dL:A L OLDSAa3?|]A`G ERRNR OLDS?{AacA`u Aab DMISSGCOMME?| $AadAa4@ MISSGUNTILAbSAad9Aad@ NEXTSPACESAd @<LAb ( NEWSOURCE ?|@h[AbE e@ NEWFILENAMAP{AccAbu g` AcL d Ac|gAc8 F # NONRCASE{?|$@rlXAc] KX NOBODY?{?{@dL'AdL( ENDELSEING?{@dLOAi L0 THENBEGINNAi@dLRAi5 L8 NOTOKENYET?{@dLUAie L@ COMMENTAT?{@dKAj LH RESCASE Akt[@rkAjE K` RESCANIT ?{@;Ajv@ $ ? RESNUM Am
bBcAk5 W RESLIST ?{AlSAke Xp Al .d AlluAl( F # RESSY ?{Am;AlM ^P Alx d BDmAm FnOTHERSSY ?|qAmTuAm$@ OPENBLOCKS?{AnCAmU b0 An d
mEQLSY LINAo*AmT+An@ ERRCOUNTIN?{@<{AnE h VARIANTALE?{@<~Anu p LEVEL Ap@;Ao% x LINE500ApC@<SIO?{@<AqM PRESENTSPAArk@<Aq} R PRESERVINGAs@dL Ar- K PROCCASEPA?{@rl Ar] KH COMCASEPOI?{@rl!AsAmTCAvT@ PAGENRTY Awl
e@<OAy 0 FEEDr@dL?{@<RAy5 8 ENDEXDA~[?|L@<UAye @ BEGEXDA~0 ?{@<XAz H INDENTBEGIAB[@;AzE P STRCASE ?|T@rlAzu K@ RPARENT A|XAmTdA{$@ RTIME ?{@;A{U h RBRACKET ?|gAmT A|@ QUIET A}#@dLlA|5 K QUIT ?{?{A|f BARRING ?{@dLoA}
gALPHANUMl?{ACA aP WHILESY@<?{AmTAD@ FORSY @~[?|"AmTAt@ EXTERNSY<AysAmT B $@ STRGCONSTEBDFAmT)B T@
@;B} ` SYTY ?{AmSB- Jh IDENT ?{AmT,B\@
@
INVARS ?{@dL$B= Kp OTHERSY ?|nAmT5Bl@
GOTOSY A AmT8B @ FORWARDSY ?|AmT;BL@ RECORDSY BldAmTDB|@
RELEVANTSYB #AnDqB- b RELJFN ?{?{B^ IFSY A{)AmTGB@
REPEATSY ?|;AmTJB4@ LOOPSY B |MAmTTBd@ LIST ?{ACB LOWER ?{B
+B = ` B h @d @ |gCASESY ?{AmTWB
@ BEGINSY B $UAmTcB
4@ BEGSYM ?{AnD]B
e ap DECSYM ?{AnD`B b PROSYM ?{AnD>B E b EOBSY AnTfAmTnB t@ ENTRY B
$ ENDSYM ?{AnDZB
M a` EOB ?{@dL/B
} Kh DOSYNITIONAt\qAmTwB@ EXITSY B d}AmTBl@ ERRMSG ?{B B LP BH 4d AadB` d B<gBx F # THENSY ?|OAmTB @ ELSESY Az$nAmT BL@ UNTILSY BkAmTB|@ UPPER ?{B
,OB- ` ENDSY B
4AmTB\@ INITPROCSYBLDAmTB
@ PROCEDURESB,9AmT B<@ PROCTABLE Ad{B[Bm T Brd A \4FUNCTIONSYAh
8AmT"B4@ PROGRAMSY BTAmT(Bd@ PROG_NAME B
@~[B JH VARSY - ?|{AmT+BD@ TYPESY ?|AmT.Bt@ CONSTSY B CAmT1B$@ LABELSY AulAmSBT@ B F # B
@ MISSGPOINT?{AadBB<@ MISSGMAIN ?{AadEBl@ MISSGQUOTEB ?AadHB @ MISSGRPAR ?|EAadKBL@ MISSGEXIT B+AadNB|@ MISSGOF B
KAadQB,@ MISSGTHEN Ab$NAadTB\@ MISSGEND B AadWB
@ BEGERRINBLB
tZAacB<@ BARETABLE A}KB\Bm x ERROR ?{?| B _X wX wX wX wX wX w \Q| X>x x 0 p 0`h -"+ Dp 4 p /$ Dp 4g p 1d + W4i .$ Dp 4k p .$ 0$ 0d -- 4 &
&0D @ (
p 2jp @ A 4Fw p .$ Dp + n4m p D 4w p .$ 0$ 0d -- 4 &
&0D @ (
p 2*p @ A 4F4y p /$ Dp + y4 p 2dp + W4
aB$ 4D 4 D 4
Y4D
4 D 4
c4D4
@$ , 0@7, 3{Z& ( , <,4
c4+ 4 $ , 0@7, 3{ & &( * , <04 &$ 1f + 4 $ , 0@7, 3{Z& &( , <,44 p p Fp Dp 2dp + /4 $ = ~0@7, 3{ p .& 0& 0f -- 4
& F 4$ $ , 0@7, 3{ & , . 4*:p + #4- $
V
^ ^)H 0( @ A
Y4D;4/
V0D + 844Z$ D
c+ :4648Z$ D
c48+ >4: $ , 0@7, 3{, /74;4> .$ & 2$ @ .( .( 0( 0h -- 4 *
&0H @
A 4FJ4> .$ D 4G+ ?4I 3d + V4J $ &
T (_Q&H`Q(H` 2B @ & 1( P@ G 4DV4L,
h4T4U4V4V4W D 4W@@
a4Y@@
b4Z@@
b4[Q~ Y|,~ ,@ B,+?|kB+? POSITION ?|e@;B+m I B- @;B, J ?{@<eB,M WRITELINE ?{?|bB,~ X wX wX wX wX wX w \Q| X>x x 0 p 0`h -"+4\, x Dp 4u p 1D+ 4w p 0D 1D- 4Z 0D 1D- 4 " $ 4D4y $ , + Dp 4 p 0D 1D- 4Z& " f 4 p 0D 1D- 4 p 0F 1F- 4Z " f 4 p 0D 1D- 4 p XF 4 $ , + Dp 4 p 0D 1D- 4 p F 4 p 0D 1D- 4Xw F 4 p Xw D 44Q~ Y|,~ B3{?|3B3 POINTER B5t"ACB3= P ?{B4[B3m B4 R&B4( d(?x POINTER ?|+AD+B4E@ NEXT ?{B5cB4u@ B5 R&S ?{B6#B55 B5` R@VARDEF ?{?{B5v tX wX wX wX wX wX w \Q| X>x x 0 p 0`h -"+4, x Dp 4< p 0D+ P4>
V
U, N4@ $ , + Dp 4B p 0D 1D- 4 Dp , p x F 4D p 0D 1D- 4Xw F 4I p Xw D 4M+ r p 0D 1D- 4Z 0D 1D- 4 " $ B$ 4Dr4O $ , + Dp 4V p 0D 1D- 4Z& " f 4X p 0D 1D- 4 p 0F 1F- 4Z " f 4\ p 0D 1D- 4 p XF 4b $ , + Dp 4f p 0D 1D- 4 p F 4h p 0D 1D- 4Xw F 4k p Xw D 4o4qQ~ Y|,~ B>s?|B> POINTER B?dzACB>5 P ?{B?SB>e B? R&S ?{B@B?% B?P R@PROCDEF ?{?{B?f 3X wX wX wX wX wX w \Q| X>x x 0 p 0`h -"+4
rXw Dp 4 p 1D+ 14 0D 1D- 4 " $ 0D+ 4 p 0D 1D- 4 0D 1D- 4Z 0D 1D- 4Z& " f + ,4 p 0D 1D- 4 0D 1D- 4 p 0F 1F- 4 0F 1F- 4Z 0F 1F- 4 " & XF 4 p 0D 1D- 4 Dp 4,+ 40Q~ Y|,~ BFc?|:BEw P ?{BGBF% BFP R&POPOFF ?{?{BFf 8X wX wX wX wX w \Q| X>x x 0 p 0`h -"+4
1@@ 4C4D $ 0@7, 3{ & 0@7, 3{6F & B& A 4D 4D $ 0@7, 3{
D
T4L $ & ~0@7, 3{ 0D + e4O $ 0@7, 3{ & , .4S $ & ~0@7, 3{ 0D + ]4W 6 D
T4[4\ $ 0@7, 3{ 4Dd4] $ 0@7, 3{, .4`4c+ n4d $ & ~0@7, 3{ 0D + k4e 6 D
T4i4j $ 0@7, 3{, .4k4n $
T &6Q$H`Q&H` 2B + t4n,
h+ 4s4t .$ D 4u .$ D 4w 0D z+ 4y@@ 4{
XB$ 4D4| $
T &7Q$H`Q&H` 2B +
4~ $ 0@7, 3{Z& ( , <, Z( , ;]Z& ( , <,+ 44
$ 0@7, 3{Z& ( , <, &
T * ( , </Z& ( , <,4
444 $ , 0@7, 3{, /74 1$ P+ 4,
h444@@ 4+ E4 $ & ~0@7, 3{ &
8 7 =T)H 0( @ B& ( 2 0@7, 3{6H. ( G 5F.4 .$ D 4' $ 0@7, 3{ & , .4)+ D4-@@ 4. $ 0@7, 3{ B$ 4DU4/ $ & ~0@7, 3{ 0D + F43 &$ .$ $$ Z& ,,
&:p + >4;p $D 4D+ P4E& .$ Z& ,, F
&4J4P $ 0@7, 3{ & , .4P+ /4T 1d ,+ [4UZ$ ,
4WZ$ , D 4X+ d4Z .$ .$ 0$ 0d -- 4 Z& F
&4[ .$ .$ 0$ 0d -- 4 Z& F
&4_4d $ 0@7, 3{6D $ B$ 4D04d $ 0@7, 3{
D
T4i $ & ~0@7, 3{ 0D + 4l $ 0@7, 3{ & , .4p $ & ~0@7, 3{ 0D + z4t 6 D
T4x4y $ 0@7, 3{ 4D4z $ 0@7, 3{, .4}4 + 4 $ & ~0@7, 3{ 0D + 4 6 D
T44 $ 0@7, 3{, .44 .$ D 4 .$ D 4
XB$ 4D/4 $ &
T (7Q&H`Q(H` 2B @ & (
T *6Q(H`Q*H` 2B @ G 4D&4 $ 0@7, 3{Z& ( , <, Z( , ;]Z& ( , <,+ /4 4& $ 0@7, 3{Z& ( , <, &
T * ( , </Z& ( , <,4'4.4/4/40Z$ D 40@@ 42Z$ D
d43Q~ Y|,~ -----0 Bg;?|ABfO I Bgk@;Bf} TABSTOP ?{@<;Bg- READLINE ?{?{Bg^ fX wX wX wX wX wX w \Q| X>x x 0 p 0`h -"+44
`4DX4K , c4LZ$ D 4DU4OZ$ D
^+ W4S4U, ?4V4W+ a4W .$ 0$ 0d -- 4
&0$ 0d ?-$4 &4D ^4` $ .& 2f @ D
`4aQ~ Y|,~ Bh?|iBl/ READBUFFER?{?{Bl^ DX wX wX wX wX w \Q| X>x x 0 p 0`h -"+4d $ 0F @ A
[4Dy4r D 4v D 4w4y
]0$ 0d + %+#4y .$ 0$ 0d -- 4 .& 0& 0f -- 4
&0& 0f ?- 4 f F
&+ %4|Xw 4D4 .$ 0$ 0d -- 4 .& 0& 0f -- 4
&0& 0f ?- 4 & F
&+ 44 .$ 0$ 0d -- 4 .& 0& 0f -- 4
&0& 0f ?- 4 f F
&4+ %4 .$ 0$ 0d -- 4 .& 0& 0f -- 4
&0& 0f ?- 4 & F
&+ % % | 4, F4% /$ & 2D @ .( 0( 0h -- 4 *
& A
A $=T)L 0, @
G (
B
B
,=T)L( 0, @ A 4F84&Z$ Xw D + ?45 $
CpC =T)H 0( @ B$ 4D?48Xw@@ 4=Q~ Y|,~ ?{?|GBx NEXTCHAR ?{?{Bx6 X wX wX wX wX w \Q| X>x x 0 p 0`h -"+4?4P@@p 4PZ$ Dp 4QZ$ Dp 4S, F4T
&0& 0f ?- 4 f F
&4Z4c4 =T)F 0& + y4d4 w+ 4x
=T)F 0& + 4y $
=T)F 0& + 44 p $$
$
=T)H 0( @ B$ 4D4 p B$ 4D4Z$ Dp 4"p Dp 4444 p 0$ 0d -+ +W4 p 1d + 4^$ D 4 Z$ D
W4 + #4 p D 4 @@
W4!+ 4" p D
[+ 4# p 1$ + 24% p D 4' &$ D 4)@@ 4+
Y4D/4, D + 14- &$ D 4/+ 41 p 0$ + 942"p D 44 D 46@@ 47+ =48@@ 49@@ 4: p D 4;+ 4=4>Z$ D
Y4> D 4@@@ 4A D 4BZ$ D
^4D+ 4E4F p D
Z4G
ZGp D
Z4H+ 4J p D
Z+ 4K p D
X+ 4M p D
X+ 4O p D
[+ 4Q p D
Y+ 4S p 1d 1$ - 4 D
^+ 4U p 1d 1$ - 4 D
]+ 4Y p 1d 1$ - 4 D
]+ 4\ p 1d 1$ - 4 D
\+ 4` p 1d 1$ - 4 D
\+ 4c4g p 1d 1$ - 4 D
\4g p 1d 1$ - 4 D
]4j p 1d 1$ - 4 D
^4m p 1d 1$ - 4 D
\4p p 1d 1$ - 4 D
]4s+ g M # > Q K 2 % \ Y S O U F c `4v
;C= Ck?|C OCHCn CL@ {C- OCASE wX?{@rkC] OSWITCH 0C{@dKC 4Z$ Dp 4$ Dp 4&
aB$ 4D-4' D 4)Z$ D
a4+4,
[A
d4D34-4 ,D 4/4 4D 40+ 642 . / /$ D 4346 p m m =T)F 0& + N46, o4:
&0F @ A G
^4D?4@
^4DM4IZ$ , M $
^B& A 4DT4N, o4R+ N4S
^4DX4TZ$ , 0F @ A
X4D^4XG /$ D 4\4^, G4^ $
`4D^4_
`A
d4Df4c, G4e p D 4f
aB$ 4Dk4g D 4iQ~ Y|,~ C ?|zC ' FINAL_CH C tt@ {C U AT_FIRST_W?{@dKC OLDSPACESMC,G@;C 5 DOCOMMENT ?{?|qC f 0X wX wX wX wX w \Q| X>x x 0 p 0`h -"+4
k@@p 4^& && ` =( "
U$ /$ 0$ 0d &( ` =*
U& 0& ?-4.& /& 0& 0f p /$ 0$ 0d - 4 $$ $
UQ$H`Q&H` ( 3B =h 2B + )4Z$ Dp 4 p /$ 0$ 0d - 4
V4!
^1d 1$ - 4,
4%+ +4( p .$ Dp 4)4++ 4+ p Dp 4,Q~ Y|,~ C&3?|<C%G I C&c@;C%u J C'@<3C&% LOCAL ?{@dKC&U RESWORD ?{@dKC'@ fD` C 8 ?{ _X wX wX wX wX w \Q| X>x x 0 p 0`h -"+4. $
V0F @ G
_4DK4F@@p + ]4J4K, x Dp 4L@@p 4N p 1D+ \4O p 0D 1D- 4Z 0D 1D- 4 " $ 4D\4QZ$ Dp 4W
\1d 1$ - 4,
4X4[4\4\Q~ Y|,~ C,#?|hC+7 POINTER ?|eACC+e FOUND ?{@dKC, PROCCALL ?{@dKC,F@ c` C'p ?{ #X wX wX wX wX w \Q| X>x x 0 p 0`h -"+ Dp 4] Dp 4s
aB$ 4Dz4tZ$ D
a4v D 4x4y . / /$ D 4z4}, 14}
V ! !)F 0& + 4~, 14
V0D 4, 84+ $
V0F A
_4D 4, p4
4 p 1h #1( - 4" S$ @ )D G"G"
V)D 0$ + }4 p D 4Z$ D
a4
V2Dp + 4, 1+ 4 p 0D + 4Z$ ,
+ 4Z$ ,
4 Q~ Y|,~ p~`p C4c?|,C3w WHICH ?|)AmSC4% OLDSPACESM?{@;C4U PARENTHESE?{?|&C5 X wX wX wX wX wX w \Q| X>x x 0 p 0`h -"+4 @@ 45 $
=T)H 0( @
^B& A 4D "464 =4@, G4@
d4CZ$ , K4F4H+ !4H4I, G4J
d4MZ$ , + Y4P4RZ$ D
V4R 0D + X4TZ$ , o4V4W+ p4X4Y+ !4Y4Z $ 0F @ D
d4[@@p 4^, G4_
WB$ 4Dl4`
=T)F 0& + l4b p 4h4j, G4j+ b4k p G
WB$ 4Dp4lZ$ ., "4o+ !4pZ$ >, + !4q4s, G4t+ ! Z s s I s s s s s s @ s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s q4u+ 74 !
X$
U*$
V4 '4 ) .$ D 4 ) 0d + 44 + /$ 0$ 0d - 4 ^& && ` =( 2
Uh 4 -, G4 4 $
,=T)F( 0& @ B$ 4D )4 5, x B$ 4D N4 <, C x B$ 4D L4 >
V
)F 0& + H4 A
\1d 1$ - 4,
+ L4 D4 H
]1d 1$ - 4,
4 H4 K4 LZ$
V4 L4 N+ p4 N4 O4 P .$ D 4 P, G4 R $
=T)H 0( @ B$ 4D P4 SZ$
D
V4 Y+ ^4 Z, G4 \+ |4 ]
=T)H 0( @ B$ 4D a4 aZ$
D
V4 g@@ 4 h4 i4 l G4 q4 r
=T)F 0& + x4 r, G4 v+ s4 wZ$
D
V4 x@@ 4 z4 {4 {+ p4 |4 }Z$ D 4 }Z$
V4 4 4
\0D +
4 .$ 0$ 0d -- 4 .& 0& 0f -- 4
&0& 0f ?- 4 f F
&4 4
, G4
.$ D 4
^G
`4D 4 4 Z$ , .$ D 4 G
G G
,=T)F( 0& @ B$ 4D 4 Z$
D
V4 %+ p4 'Z$ D
V+ p4 (4 *, G4 *
D
V4 -, G4 /+ 34 0Z$ D
V4 14 2+ p4 34 4, G4 4 p 4D :4 5@@p 4 7+ 54 8+ <4 9Z$
D
V4 :4 ;+ p4 <4 =Z$ D
V4 =, G4 ?Z$ , o4 @+ p4 A4 BZ$ D
V4 C, G4 D
Z4D J4 E, #R4 G , c4 H4 I+ p4 J4 K
V4 K, G4 O+ p ( K K K K K } K K K K K K K K O O O O O O O O O O * B K K K K K % % % % % % % % % % % % % % % % % % % % % % % % % % = 44 P@@
d4 p
c4D |4 q
aB$ 4D {4 r
V1D + {4 t $ , 0@7, 3{, /74 v@@
c4 y4 z4 {4 {
c4D 4 |@@
c4 }
V0D + 4 ~Z$ D
c+ 4 4 $ , 0@7, 3{, /74 4 4 Q~ Y|,~ H ( | Cb#?| Ca7 1 CbS?{Cag
l111 Cc?| Cb
1I Cc3@;CbE INCONDCOMPC'C@dKCbu INSYMBOL ?{?{Cc& TX wX wX wX w \Q| X>x x 0 p 0`h -"+4
Dp 4 &
aB$ 4D -4 (Z$ D
a4 * D 4 +4 - . /$ D 4 -, 04 04 1
V0$ 0d + 8+ 54 1, _+ F4 4, + F4 6+ F4 74 8
V0D 4 9, p4 ;, 04 <+ F 4 8 8 8 6 8 8 8 8 8 8 8 8 8 8 74 =
V T S)F 0& + 14 F p D 4 IZ$ D
a4 K
V0D + P4 L, 0+ Q4 NZ$ ,
4 PQ~ Y|,~ ~w!t Cj{?| ZCj OLDSPACESM?{@;Cj=
PARENTHESE?{?{Cjn X wX wX wX wX w \Q| X>x x 0 p 0`h -"+4 Q .$ D 4 c Dp 4 e
aB$ 4D l4 gZ$ D
a4 i D 4 j4 l / . / .$ D 4 l, 1, p4 p4 q
V0D + u4 r, #+ z4 t4 u
V0D 4 v, p4 x, 14 y4 z
V )F 0& + r4 z p D 4 ~ /$ D 4 Q~ Y|,~ ~p Cp{?|
Cp OLDSPACESMCk+@;Cp= CASEDEF ?{?{Cpn IX wX wX wX wX wX w \Q| X>x x 0 p 0`h -"+4 Dp 4
aB$ 4D 4 Z$ D
a4 D 4 4 / . / /$ . D 4 , 14 $
V
G G)H 0( @ B$ 4D 84
V0$ 0d
+ ++ -4 %, `+ 84 (, + 84 )4 +, q4 +4 ,, 14 -
V H H)F 0& + -4 .
V0D + 44 1, 14 3+ 8 ( + + + )+ 4 4
aB$ 4D >4 8 / D 4 :Z$ D
a4 <4 > p D 4 >
V0D + C4 @, 1+ E4 BZ$ , CyC?| OCxW OLDSPACESM?|
@;Cy RECDEF ?{?{Cy6 X wX wX wX wX w \Q| X>x x 0 p 0`h -"+ Dp 4
E, "p4 X
V0D + ^4 Y, 14 [, "p4 \+ Z4 ] $
p 1j #1* - 4"
S& @ )F( G G
V)F( 0& @ B$ 4D v4 ^Z$ ,
4 g $
V
)H 0( @ B$ 4D o4 i, 14 n, "p4 o
V0D + u4 p, 14 r, "p4 s+ p4 t+ _4 u
Z4D y4 v / , b4 w
c4D 4 y@@
c4 { $ , 0@7, 3{, /74 |4 Q~ Y|,~ D [?| Co ENDSYM ?{AmSD ENDEDSTATS?{?| D N 6X wX wX wX wX w \Q| X>x x 0 p 0`h -"+4
aB$ 4D 4 Z$ D
a4 Z$ / / , ) x D 4 4 , 14
ZG
Y4D 4 / , b4 Z$ , T4
V0D + 34
aB$ 4D *4 "Z$ D
a4 $Z$ / / , ) x D 4 %4 ), 14 *
Z4D 24 +
V0D + /4 ,, #Q4 . / , b4 /4 1+ 4Z$ ,
4 2Q~ Y|,~ ?{?| 9D' COMPSTAT ?{?{DV !
X wX wX wX wX w \Q| X>x x 0 p 0`h -"+4 4
aB$ 4D I4 BZ$ D
a4 DZ$ / , ) x D 4 E4 I, 14 I, "p4 J
V0D + S4 K
Z4D R4 M, #Q4 O , b4 P+ S4 Q+ U4 RZ$ ,
4 S4 U4 U4 V, 14 V
V ! !
)F 0& + V4 W
V0D + l4 [ Dp 4 ] D 4 ^ . D 4 `Z$ D
a4 bZ$ D
b4 c, 14 e, "p4 f
V0D + j4 g, 14 i p D 4 j4 k
V )F 0& + V4 l
V !
! )F 1& + u4 oZ$ ,
4 s+ U4 t
Z4D y4 u / , b4 w
V0D + !4 y, 14 {
Y4D 4 | / D 4 }
Z4D!4
V0D + !4!, #Q4! / , b4!4!+ !Z$ ,
4!Q~ Y|,~ ` D{?|!D OLDSPACESM?{@;D= CASESTAT ?{?{Dn !LX wX wX wX wX w \Q| X>x x 0 p 0`h -"+4
!
aB$ 4D!#4!Z$ D
a4! Z$ / , ) x D 4! 4!", 14!#, "p4!$
V0D + !*4!%, 14!', "p4!(+ !%4!)
V0D + !44!* / , b4!,Z$ D
a4!. / D 4!/, 1, 14!1+ !5Z$ ,
4!3Z$ , T4!5
V0D + !I4!6
aB$ 4D!@4!8Z$ D
a4!:Z$ / / , ) x D 4!<4!@, 14!@
Z4D!H4!A
V0D + !F4!C, #Q4!E / , b4!F4!H+ !JZ$ ,
4!HQ~ Y|,~ ?{?|!OD LOOPSTAT ?{?{D> " X wX wX wX wX w \Q| X>x x 0 p 0`h -"+4!J Dp 4!X
bB$ 4D!g4!Z
aB$ 4D!c4!\Z$ D
a4!^Z$ / , ) x D 4!_4!c . / . /$ D 4!c4!g, 14!g, "p4!h
V0D + !|4!i
aB$ 4D!s4!kZ$ D
a4!mZ$ / , ) x D 4!o4!r
Z4D!x4!s, #Q4!t , b4!u+ !y4!wZ$ D
b4!x, 14!y, "p4!z+ !}Z$ ,
4!{
V0D + "4!} / , b4!
aB$ 4D" 4"Z$ D
a4"Z$ / , ) x D 4"4"
[B$ A
Z4D"4" , #Q4" , b4"
+ "4"Z$ D
b4"Z$ D
b4", 14", "p4"4"Z$ D
a4"
V0D + "4", #Q4" / , b4" p D 4"Q~ Y|,~ D$?|"$D#/ OLDSPACESM?{@;D#] IFSTAT ?{?{D$ "7X wX wX wX wX w \Q| X>x x 0 p 0`h -"+4
" $ D 4"-Z$ D
a4"/, 14"1
Z4D"54"2 / , b4"3Q~ Y|,~ ?{?|":D&? LABELSTAT ?{?{D&n "hX wX wX wX wX w \Q| X>x x 0 p 0`h -"+4
"5
aB$ 4D"K4"CZ$ D
a4"EZ$ / , ) x D 4"G4"J, 14"K
ZG
Y4D"P4"L / , b4"NZ$ , T4"P
V0D + "e4"Q
aB$ 4D"[4"SZ$ D
a4"UZ$ / , ) x D 4"W4"Z, 14"[, "p4"\
Z4D"d4"]
V0D + "a4"^, #Q4"` / , b4"a4"c+ "fZ$ ,
4"dQ~ Y|,~ ?{?|"kD,G REPEATSTAT?{?{D,v #CX wX wX wX wX wX w \Q| X>x x 0 p 0`h -"+4"f Dp 4"t
V0D
+ "|4"v, 14"x
V0D + "|4"y, "*4"{4"|
V )F 0& + #4"|
bB$ 4D#
Z4D#4# / , c4# $
V1F @ 4D# 4# . D + #
V0$ 0d
+ #+#4#, !+ #4#, >+ #4#, !U+ #4#, "@+ # # # # # #4#+ #>4#
Z4D#"4#
V #B #A)F 0& + #"4# / , c4# $
V
#C #B)H 0( @ B$ 4D#(, 1+ ##4#"
V0D + #=4#(
bB$ 4D#64#*Z$ D
a4#, D 4#. . D 4#/
ZB$ G
Y4D#54#1Z$ D
b4#44#5, 14#6, "p4#7
V0D + #;4#8, #R4#: / , c4#;4#=4#= p D 4#>Q~ Y|,~ 0 @ D8k?|#LD7 OLDSPACESMD-4#I@;D8- CURBLOCKNRD
9@<#FD8] STATEMENT ?{?{D9 #yX wX wX wX wX wX w \Q| X>x x 0 p 0`h -"+4
#?
`B$ @& A 4D#\4#V, G4#Z+ #V4#[ $
#y #x =T)H 0( @
`B& A .& 0& 0f -- 4 (
&0F @ A 4D#v4#\4 #j, G4#k+ #t4 #qZ$ >Dp 4#r4#tp , 4#t4#vQ~ Y|,~ D?K?|#D> LASTCH ?{@ {D?
_4$^$ Dp 4$4$ , 24$
V )F 0& + $ 4$
.$ D 4$ $ D 4$4$@@
a4$
V0D + $I4$ / , c4$Z$ D
a4$Z$ / , ) x D 4$Z$ D
`4$ , 24$ Q$
UX$
T*$
U4$ $ 0@7, 3{, /74$! $ 0@7, 3{ &%JZ( *
, </ &%M * ( , </ & Z( * , </ &%M * ( , </ &
T * ( , </ &%N * ( , </4$$
XB$ 4D$C4$2 $ 0@7, 3{ &%N * ( , </4$4Z$ Fp Dp 2dp + $C $ 0@7, 3{ p Z( , ;] &%O * ( , </:p + $;4$94$C4$C, 24$D
V )F 0& + $D4$E4$H
V )F 0& + $r4$I / , c4$LZ$ D
a4$NZ$ / , ) x D 4$P
Z4D$X4$S, #R4$U , c4$V4$W, 24$X $
V
)H 0( @ B$ 4D$q4$Y4$^, q4$^, 24$_
V0D + $d4$`, 24$b+ $^4$c $ %P %OG G
V)F( 0& @ B$ 4D$o
V0D
+ $m4$d, + $n4$l, 2+ $e4$m, 24$o+ $Y4$p+ $I4$q@@
_4$r
V )F 0& + % 4$s / , c4$vZ$ D
a4$xZ$ / , ) x D 4$z
V1D + %4$}, 24$
V0D 4% , 94%4%, $4%
V0D + %4%, 24%+ $s
aB$ 4D$4%
Z4D%4%
/ , c4%
/$ D 4% $ D 4% $
V
%Q %P)H 0( @ B$ 4D%&4% $ 0F @ &
V0H @ A 4D% 4%Z$ D
4+ % 4% Z$ ,
V
%R %Q)H 0( @ B$ 4D%&, 2+ % 4%
V0D + %)4%&, "q+ %.4%(
_B$ 4D%.4%)Z$ D
a4%+, 24%-4%. 0D + %G4%.
`4D%E4%0
44D%74%2Z$ , 4%54%7
V1D + %;4%7Z$ , {, /74%; $ 0@7, 3{ Z( , ;] &%R * ( , </, /74%>4%D .$ , c4%E4%G, 4%GQ~ Y|,~ PFORM/LOTS 1.1 4-SEP-80 : [ ] Page.. 0 @ 0 @ error(s) detected DZ{?|DZ POPLIST D[T%ZB4kDZ< I Ccd]@;DZe WHATTOPOP B-<#D\D[ D[@ R&4%H d
d eD .4%a, d4%c, &4%dZ$ D
`B$ &
V0H @ G 5D%n4%h, 4%l+ %g4%m $ 0@7, 3{6D $ B$ 4D& 4%n $ 0@7, 3{ B$ 4D&4%s $ = ~0@7, 3{ & & ~0@7, 3{ F 4%w $ 0@7, 3{ & , .4%| $ , 0@7, 3{ & , . 4& + %s4& $ 0@7, 3{, .4& $ , 0@7, 3{, /74&+ %o4&
W4D&4& $ 0@7, 3{ /Z( , ;] &&\ * ( , </, /74&
d / .TD .4& $ l 0@7, 3{ &&MM* ( , </[ .&&j0Z( , ;]Z& {( , <,4& .&$j0{F .4& F .&$ t0$ + &'4&MC$ 0@7, 3{Z& A( , <,4&'v$ t 0@7, 3{A .&& tZ( , ;]Z& 4( , <,4&'T .&$ t,F .4&-v .0$ 2+ &>4&/{ .0$ + &94&1|$ L 0@7, 3{R&&`E* [( , </4&3+ &=4&8|$ ; 0@7, 3{Z& ( , <,4&94&=4&=\$ 0@7, 3{< .Z( , ;], /74&>+ +=+&D+&Eg " B * ,5B&I @ + N + R ,O@ , < \ w < \ xZ &1\ < .< Q<p X>p Q \ - ^ - ` -"5:0x " $ b -"52 $ " @f @j @n , 1N $ " @f @j @n , 0q `B`b+ %a, + %a procedure and function definitionsRuntime: 00 T E
@ ' ' BYTEWRITE DrS?{Dqn CAPITALIZEDs@;Dr@ CASETYPE Ds,T@rkDrD CH ?{@ {Drm S CMAGAIN ?{?{Ds CMAUTO ?{?{DsF CMCMA DtS?{Dsn CMDIR Dv<')@;Dt@ K ? CMDEV ?|'-@;DtV@ DT ? CMD Dv@;Du@ >T ? CMDEF ?{?{DuV CMDIRW Dv{@;Du~@ HT ? CMDN Dw#?{Dv> CMERR Dx$'>@dKDvf@ $ ? CMDO ?{@;Dw&@ d ? CMERRMSG ?{?{Dwf CMFLT DyL'H@lSDx@ U4 ? CMFLD ?{@;DxN@ 3D ? CMHLP ?{?{Dy CMINIR Dz?{Dy6 CMMODE ?|'UD{[Dy^@ qD ? CMKEY ?|'Y@;Dz @ jd ? CMINT ?{@;Dz^@ d ? D{ A'^RESCAN D
'aD{\&cD{,@ PUTSTR Bt'd?{D{^ NUL D|tR@;D|@ ONEPLUSTABD}$w@;D|4@ rPACK6 D~,'lD~SD|d PACK15 ?|2D}sD}
D}0 d D~
gD}H D # PACK9 B#AgSD}l D~ d D~lgD~( C # SAMECASE B^@;D~L@ CMSWI E4'@;D~~@ g$ ? CMOFI E4(?{D> CMNUM Et(@;Df@ ]d ? CMNOI ?|(?{E & CMNOD ?|(
@;E N@ * ? CMMULT ?{?{E CMNUM8 E3@;E6@ [4 ? CMNUX Es@;Ev@ Y4 ? CMNUX8 ?{@;E6@ W4 ? CMQST Es@;Ev@ .d ? CMREAL ?{@lSE6@ ~d ? CMTOK E,(%?{Ev CMTAD E\()@;E @ BT ? CMT ?{@;E^@ @T ? CMTADN E?{E CMTN ?{?{EF CMUSR ET(6@;En@ FT ? CMTXT E+@;E.@ 1 ? CMUERR ?{?{En GJGEN E
(??{E GJDEV E 4(B?{E> GJACT ?|(D?{Ef FINDNULL Bt(H@;E@ z, ? ERRKINDS B,.AacEL GJDIR E [?{Ev GJEXT ?{?{E GJNAM E
T(R?{E F GJJFN ?{?{E n GJPRO E
{?{E
HT E ,5@;E
<@ LINSIZE E
<(]@;E
l@ ,LINSIZ1PLU?|(`@;E @ ,LINNUMSIZE?|<@;E L@ LINSIZPLUSE
k@;E |@ -MAXINC BL(i@;E
,@ PLOWERCASE AvdJ@;E
\@ TABLE E
TADRECSIZEE\(qEcEE [E
TABS ?{E#E5 X E` d E<gEx E # TBMAK ED)@b E @ o ? TBADD ?{?{E^ VERSION B )EE@ )VERLENGTH ?|)
@;E4@ UNDEFINED ET+@;Ed@ UPPERCASE B @;E@ E@ d g )
PFORM/LOTS 1.1 4-SEP-80 E d)?x YEAR E\)EL)E=p MONTH E<) E,) Em` DAYOFMONTHE
) E
)8E p DAYLIGHTSA?{@dL)#EMP @( ZONEINPUT ?|)&@dL)0E}P @ ZONE ?{E )+E-P @ EX F # SECONDS ?{EkE}` E( R # JULIANDAY ?|)3@dL)3EMP @ DUM ?{El)&E}P @ E( H # DAYOFWEEK E E<)=EM` Ex R # ZONEUSED ?|)#@dL) E P @0 EH R # Eh R # E R # INTEGER E \)I@;E, CHAR @hl)K@ {ET BOOLEAN E d)N@dKE| ALFA EL)P@~[E$ ABS ?{?{EN@ TIME ALFALENG E{@;E
@ APPEND E#?{E> ARCTAN ?|)^@lP Ef@
t ARCSIN ?|)b@lP E&@
t ARCCOS ?{@lP Ef@
t BREAK E ?{E & CALLI ?|)k?{E N BREAKIN ?{?{E v REAL E&d)p@lSE POINTER E#<)rE&SE G@ NIL E!,)uE#+E l@ MAXINT E 4)x@;E @ ?MARK ?|){?{E N LN E s@lP E v@
t LOG ?{@lP E 6@
t NEWDD E [?{E v NEWZ 0 TRUE!?{E NEXTBLOCK{?{?{E F OUTPUT PACE"\* E#?{E" PAGE ?{?{E"F E"h RPUT E$L* ?{E"~ PRED E$#?{E#&@ H CHR PROTECTION?{?{E#f PUTLN E% *'?{E$ PUT8BITSTO?{?{E$6 READ E&,*,?{E$^ PUTX E%k?{E% RANDOM ?{@lP E%.@
t READLN ?{?{E%n E& dTEXT @d\*8@h[E&$ STRING E-<*;E/ E&O@ RESET E(l*=?{E&v RELEASE E(D*@?{E' RECSIZE ?{?{E'F@ x ROUND RENAME ?{?{E( REWRITE E)?{E(. SETPOS E*<*K?{E(V RUNTIME ?|*O?{E(~@ DATE ROUND ?{?{E)>@ p EOLN SPACELEFT E,<*W@8 E)~@
D SIN E+;@lP E*>@
D SIND E+{@lP E*~@
t SINH ?{@lP E+>@
t SQR E,{?{E+~@ ABS SQRT ?{@lP E,>@
t STRSET E-c?{E,~ STRWRITE E. ?{E-& SUCC E.K?{E-N@ P PRED TANH ?{@lP E.@
t E.H d ?|g
&B &a )F # e gPFORM f a~+ a "
0+ " Bx ,~ + 1
( Q(A@Q&A` " 4B+< 4@+. @ + +@ @ ,~
&5Z+ +<1d $ + + " .b 1"x + +'1B+ ++ +&,> , + ,^ 4b.@@ <b.. Q X * ,~ ,~
&5\ x , 3k $,~ ,> ,> Z
Z
. ^ 8 2d 2d + +0, 1@@ @@8 O@?p3. n9+,,^ ,^ + ,> ,>
.
. ^ 8 2$ 2$ + +:, 1@@ @@8 O@?p3. n9+6,^ ,^ ,~
2 . ^7D8 + +@, 1@@ @@8 O@?p3. n9+= ` x
! ! " " # # $ $ % % & & ' ' ( ( ) ) * * + + , , - - . . / / 0 0 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 : : ; ; < < = = > > ? ? @ @ A A B B C C D D E E F F G G H H x
! ! " " # # $ $ % % & & ' ' ( ( ) ) * * + + , , - - . . / / 0 ! ! " " # # $ $ % % & & ' ' ( ( ) ) * * + + , , - = > > ? ? x
! ! " " # # $ $ % % & & ' ' ( ( ) ) * * + + , , - - . . / / 0 0 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 : : ; ; < < = = > > ? ? @ @ A A B B C C D D E E F F G G H H x
! ! " " # # $ $ % % & & ' ' ( ( ) ) * * + + , , - - . . / / 0 ! ! " " # # $ $ % % & & ' ' ( ( ) ) * * + + , , - = > > ? ? .; /! -U . . 2U 2S 2f 2o . ." /
/2 -[ / .
2U 2S 2f 2o . .# /
/) -a / .
2U 2S 2f 2o . .# .U / -g . . 3 3 3 2f 3+ . .# .~ /, -m / .
3 3 3 2f 3+ . .# . . -s . . . . . . . . 4) 43 -y . . 2a . . . 4A 4E 4F 4\ - . . 4q . . . 4w 5@@x ,~
&5_, /<+ +<
&5c, /<
&5d+ +<+ @ + + + , . x / O , . + . , 7` + .+ + + + + `b + 4A,> ,> ,>
&5e, . x , .
&5h,^ ,^ ,^ ,~ @ & ,> 8 5@. ,^ ."
" =f. ,~ `b + 4E
&5i, 3k
&5j+ ,> ,> ,> ,> 7@ + .0 &5m, .6 & , 0B "1B 21 + .4 ~
&5w, 3k+ .' &5x, .6 & , ,^ ,^ ,^ ,^ ,~ ,> Q&A` 4B.: B , . + .7,^ ,~ ?
, .L 5~0@ + .? bA + .FA" ?4B.; _B ZB 2B5,~ , 6@ ,~ 7` + .C,~ d B
/ 5 .K, + 2J` + .; @
: + .;, + .N,~ ,^x + 2J:
+ .O: x ,~ ?
, .L? + 2I 5~0@ + .Z bA + .aA" ?4B.U _B ZB 2B5,~ , 6@ ,~ 7` + .^,~ d B
/ 5 .g, + 2J? + 2I` + .U @
"@ .` 4^2I: + .U,> ,> ,> Q&@ X `` l l d +@ A `@ l S GB Z A j `@ + .}g@ + .yP h ` +@ ,^ ,^ ,^ ,~ >
, /? + / @ *b/ ,~ _ .B + 2F, + /,~ ,^x _ .B + 2G@@ + 2J, + / 2f
" Q X
, / X@ *b/,~ X 3f ,~ " . Q .
+ / , + 2G> @ T` ,~ , + / ,~ ,^x + 2G?
, / l @ ,~ : j+ /',~ ?
+ /#: x ,~ , + /++ /2@@ + 2G" Q X
, /> @ T` *b/.,~ " Q X
, / @ *b/4,~ , . , . ,~ , . , . ,~ 4F/C3F5+ /CX& Q&A@ (
.* 0J
" =h/? *
" X& Q&A@ (
.* 0J
" =h/D * [ 6@
" (
.* 0J
" =h/I,~ + +<
&6 , /<+ +<1L ,~ 0 A 0! 0` 0+ /M @0 % @0 P@0 X60@ `6,~ 7@ + .K 6@ , 4H/`,> ,> ,> ,> , 22,^ ,^ ,^ ,^ 6@ + 1\(J 6. 6 ,}!" | , 0+ 3
}!" ~ , 0+ 3 ,^ / 6! j , 0 l ^ +@ + /~, .j+ /~+ 6
&* @.* 1L + 0 G6+@ R G6+@ !&@X .& @ G6+@ + 0, .j+ X +@ R G6 +@ @
.L / 6 ,~ 0B7, 5Q"-rX" *" 7@ + 1- " 6
` ' " B "6
, >+ 1-, /N1L X, P
G
+@ + 1K: x ,~ Z A" 0" + 06Q"-Zdn Q"-`6
`nab + 0)Y d .( `NQ , 1;`BQ" B 5B0/P G +@ d.p X "6 & Q@ [8 d /" $ XB .. N ,~
&6 + +<= 0@7, 5" Q X" B
Q A`4B0I 0D + 0o<b0o < 0d 0/$ 0$ !0d *+ 0o+@045b0B,^ " `N l `N @ l
6Q @ ,^ ,~ ! B@ 0F G@ @ `` l `` l
6Q @ ,~ , 0_+ 0olD l @ l + 0o+ 0o * + 0o+ 0o+ 0o+ 0o+ 0ol + 0o+ 0o+ 0o+ 0o+ 0ol , 0a(D G ,~ ,> ,> <b0m 0D + 0o@ 0$ 0d + 0m/$ $& . <b0k 1D + 0k+ 0e ,^ ,^ ,~ ,^ ,^ ,^x
&6 ~, 3k+ 0I, 07 a @ 0D 1D + 44, 1b+ 2Z dN + 0x1@ , 4aZ , 2+ 2!" | , 0+ 2, 1 ! h , 0 . @ / 6 6@ + 2Q
d
6 b 6+ 1 ,^ a` ,~ l" t X" +@ ,~
&6+ +< 0B7, 5, 1 l r +@ ,~ ab + 1% 6@ , Q"-rX" *" 6@ + 1 , >b6
X" ,> l" P +@ + 6,^ X" P l" | +@ + 1%P l" Z ,> X" @f +@ + 6,^ "6
, >+ 1- 0B7, 5+ 1%@ 6@ , Q"-rX" *" 7@ + 1-@@ P l& p +@ "6
, >Z 4B1/, 1/@@ ,~ ,> ,> ,> S & B@ X 2D 912S Y .& F, > w F B w, > ,^ ,^ ,^ ,~ ,> ,> , > $ v 4F1B3B + 1@ + 1= B @@ @@ , > ,^ ,^ ,~ , > Bx ,~ 0$ 0d + 1I , >,~
&6+ +< 6
@x ,~ 0 a`., Z 0 + 1^, 07@ @ 0D 1D + 4<, 1b+ 2Z dN + 1T1@ , 4jS , 2+ 2!" ~ , 0+ 2, 1 ! j , 0 . @ / 6 ,~ @@ 3+ 1^ 3+ 1^ 2+ 1^l Q@ Q -rX * + 2J,> ,> ,> ,>~,> "1%af 6@ "1, ,^ A | @ af 4H1r,> ,> ,> ,> ,> ,> , 22,^ ,^ ,^ ,^ ,^ ,^ 6@ + 1\+ 2 6@ + 2 ! G@ S & @ (@ )@ l =f1u @ b
(B @ (@ )@ l =f1z(@ @ ! Lu @ @@ @@ @@ @@ ` @ A X@ : x ,~ a` + 2[ 0@ + 2+ 2
&6 ,^ ,^ ,^ ,^ @ !& + 1b/ 6 ,~ @@
@ , >4"1[b6
7P A0| AP BP @ Z 1@ l& 1@ , 2,dN 0@ + 2l& dN l& dN @ l& ! A G PF @@ O@
X l P +@ + 1]aN ~ + 2+ 6"`5~d ~ : x ,~ ,> ,> ` @ b 3B l& ,^ ,^ ,~ !" BB af + 9`,> Q| X>x K1zx -"+ 6" (
( 0@ 2?1@ + 2?1@ + 2?@ 8 1( K+ 27
&6#
2 + 26
( &p ,> ,> , 9`,^ ,^ 7@ + 2E
&6'
2 + 26X>p ,^ ,~ S, G@ @ ,~ S+ G@ @ 7n 6++@ ! B@ X 2B + 2X l \ X :
2 Z4)@ + 2 , /7 / , . , .,~ 3@ + 2n7
.x ,^ Bx ,~ O@x ,~ 7@ + .@@ Z
&
3J G
+@ O , 2U6@ ,~ "
.J
[
&
.J 4L2}` =l2|6@ ,~
d"p X ." B + 2x, 070D 1D + 3i @ , 1b+ 2Z 5@3iZ , 2+ 2,> ,>6. 6 ,}!" | , 0+ 3
}!" ~ , 0+ 3 ,^ / 6! h , 0 2 6 2@ @ @ h ` X l X@ +@ Q -f7
,^ ,^ ,^ 7@ : x ,~ @@ . ,> ,> ,> / `@7* @
Z &
3L
Q
X* @
6 +@ G 6-+@ + 3C, .j+ 3C+ 3h
Z &
3L
Z
&
/ ( |2j + 3P., 3L + 3K.
6-G
+@ Q*@X* @
G 6.+@ + 3R, .j+ 3R+ 3d@@ Q X * @
Z
&
d p X @ [ (@ @
@ 6,3* + 3_ (@ / 1" " 0b @ " @[ $ @ "
.J
.J
[
&
.J 4L3d` =l3c,^ ,^ ,^ 6@ ,~
&6., /<
&6/+ +< @ C 63* K C
&63Z(
65 ."
" =h3nX 4B3x db+ 3t, + 3y @ ,ZB C
&65 6=* C, C+ 3y
&6> b 6=* C,~
&6E x , 3k $ ,~ ,> @
&6H, 3k,^ ,~
&6K, 3k+
&6N, 3k+
&6R, 3k+ [ 4B4aB + 4 A" ?0b
0" 2+ 4 1" 1B 20" 0b "
&6T, /<
&6&
'
4
&62,~ 6U 6W 6Y 6\ 6^ 6b 6e 6g 6i 6l 6o 6q 6s 6t 6v 6z 6} 6 7 7 7 7 7 7 7 7 7 7 7 7 7!
&6.`B
&7#`B
&7%`B
&7'`B @
&7)`B
&7,`B
&7.
&6, /<
&62,~
( A" ?4B4) _B ZB 3B71+ 4.2B5,~ + .C
( B 41 @ ,~ 4) @ + 4)
" ,~ @@ Q -xX * @@ @@ @ A0| P `N l @ ,~ @@ Q -xX * @ @@ A0| P ,~
&716@ + 4D
" , .+ 4A
&62,~ " + .%,>74,> ,> "Q" b '+ 4YA" ?4B4G1B 4Y B 4T @ / 6,~ 4F @ ,>74,> ,> + 4I/ 6+ 2I/ 6S G@ Z c@ + .}+ 2J,>6,> ,> Q ` '+ 4Y/ 6,~ ` +,~ @ Q -~X * @@ @@ @ P `N l @ / 6 ,^x ,~ ` +,~ @ Q -~X * @ @@ P / 6 ,^x ,~ ,>75,> ,> Q ` '+ 4Y 4F @ / 6+ 2,>75,> ,>76 Q ` '+ 4Y/ 66@ + 5,>6,> ,> Q ` '+ 4Y/ 6, .+ 4{,>75,> ,>76 Q ` '+ 4Y/ 6,~ + .% +Z 0";G0b=G+ 5 + 56@ {+ 5[ d @0A" @0(B}dB G"
&6.
'
5, 3k " $ b + + 77 79 5v 5v 7; 7= 7@ 5v,> Q"pX" N:@ *b55"5 D " 2b n B nQ"5 X *" " B B 7 ,K -"52,~ " ^6D @@ @@ 3" n953@@ nO@ N 7B*" ^O@ o 7B* v@@ w+ 7C ` 7C @ z1@ + 5@ & 7D ` + D &@@ {@@ {@@ |@@ }@@ }@@ ~ w1Z : 6@ | |. ( ( Z ( z0D + 5J z + 5O (Z Z / Q . Q \ - ^ -+
&7D `
&7I@b
( 0 0` + 5U/ $" . + 5Q0@ + 5X
( B |
&7M `
&7R
2 + 5P
? No memory for stack
? No memory for heap
? Illegal function for this mode on file
? File not open [Error at character number ]
Call to READ
[Skipping bad character]
[Try again, from the beginning of the bad number.]
[Or type D to enter the debugger.]
Call to READ
[Try again, from the beginning of the bad number.]
0 x INX
? Bad user lookup block for file 6$ 6$0 ( 0 , 2J+ 2 (
@ ( . A0
? Dump mode not implemented yet ,K +B - ,
? Error in option string .
? TAPOP. to set blocksize failed ,^ + 1%,^ + 1%
? RELCHN: illegal channel Try another file spec: ` ----- H p
? File spec too long. Try again:
? Illegal file spec. Try again: ` 8 t ` @
? UPDATE may only be used with disks
D at user PC $
[Type POPJ 17,$X to continue if possible, but don't trust any results]
h@
[Type CONTINUE to proceed if possible, but don't trust any results]
? Uninitialized file
? Too many files open at once
? array index out of bounds
? uninitialzed or NIL pointer
? scalar out of range
? (0) file not found (1) no such UFD (2) protection failure (3) file being modified (4) already existing file name (5) illegal sequence of UUOs (6) UFD or RIB error (7) not a save file (10) not enough core (11) device not available (12) no such device (13) illegal UUO (14) no room (15) write-locked (16) not enought monitor table space (17) partial allocation only (20) block not free (21) can't supercede a directory (22) can't delete non-empty directory (23) SFD not found (24) search list empty (25) SFD nest level too deep (26) no-create for all structures (27) high segment not on swap space (30) can't update file (31) file connected to a string OPEN failed illegal file spec no channel free unknown error code Improper mode Hard device error Hard data error Quota exceeded or block too large Data format error Physical end of tape x [Error was detected here:]
71 62Integer overflow Integer divide check Floating overflow Floating divide check Floating underflow ihOmpo P o{
? Can't allocate initial core request
Number of words to assign to stack+heap: [Size set - START or SAVE the program]
? Type a decimal number, end with CRLF
H HH H H H X wX wX wX wX w \Q| X>x 1zx -"+XwX@@ XwX .$ XwX2d + 8 XwX XwX .& ^( 7X&( ` =*7j. " $ 1 1 =T)F 0& + 8 XwX XwX .& ^( 7X&( ` =*7u. " $ /$ $$ XwX D XwX .$ XwX D XwX .$ & XwX2d @ 4F8 XwX XwX .& ^( 7X&( ` =*8. ( " $
1
1 =T)J 0* @ 4H8 XwX XwX .& ^( 7X&( ` =*8. " $ /$ XwX. XwX D XwX .$ XwX D XwX .$ Dp Q~ Y|,~ X wX wX wX wX wX w \Q| X>x 1zx -"+Q$9#XwX$ *$ Z$ Xw D Z$ Xw D Xw@@ $ Xw Xw2f @ Xw Xw ^*' 7X&* ` =,83. * " & 0F @
Xw
Xw ^0? 7X&0 ` =28:.
0 "0 , 0L @ G
A 4D8CXw .$ Xw D + 8, $ Xw Xw2f @ & Xw
2
2 $=T)J 0* @ B& A 4D9Xw Xw ^( 7X&( ` =*8O. ( " $
1
1 =T)J 0* @ B( 4H8WXw@@ Xw Xw ^( 7X&( ` =*8[. " $ Xw D Xw 1$ 0+ 8cXw /$ Xw D Xw 0$ + 8fZ$ Xw D Xw 0D + 8jZ$ Xw D + 8nXw 4D8nXw /$ Xw D Xw 0d + 9Xw 4D8{Xw ^& 7Y&& ` =(8t Dp Fp , 7] p p x Xw. " h + 9Xw ^& 7Y&& ` =(8}Xw Xw. " h Xw .$ Xw D Xw .$ Xw D + 8CXw Xw3d + 9 Z$ Xw D $ Xw
2 2 =T)H 0( @ & Xw 1h @ A 4D9!Xw 0d + 9Xw /$ ^& 7Y&& ` =(9Z( Xw. " h Xw /$ Xw D Xw /$ Xw D Xw@@ Q~ Y|,~ X wX wX wX wX wX w \Q| X>x 1zx -"+ Dp Z$ Xw " Bp Ep 0d + 9; p Xw ^( 7Y&( ` =*91. Xw ^*' 7Y&* ` =,95Xw.
"( ( /( Xw. " h :p + 9-Q~ Y|,~ X wX wX wX wX wX w \Q| X>x 1zx -"+ Dp Xw@@ @Ap Z$ Dp Z$ Xw /& Fp Xw " Bp Ep 2dp + 9^Xw ^& 7Y&& ` =(9NXw. " $ 1 1 =T)F 0& + 9\ p $$ Xw ^( 7Y&( ` =*9WXw. " & . /$ Ep + 9]@@p :p + 9JQ~ Y|,~ R\Q| X>x 1zx -"+ Dp Fp Hp @@p p Dp Z$ Dp Z$ Dp p Z& F @@p
@@p 7X&& ` =(9kZ(Lu. " h ^& 7X&& ` =(9pZ( . " h Z$ Z& .& Fp Dp 2dp + 9y p . @@ :p + 9u, 8$^& 7Y&& ` =(9{. " $ 2 2 =T)F 0& + :+ ;EZ$ , 9' p 4D:+ ;8, 8$^& 7Y&& ` =(:. " $ 0D + :
+ :+ :^& 7Y&& ` =(: . " $ 0D + :+ :1+ :^& 7Y&& ` =(:. " $ 0D -+ :+ :M+ :+ ;E p
Dp p 4D:+ ;8, 8$^& 7Y&& ` =(: ( . " $
2
2 =T)J 0* @ 4H:"+ ;EZ$ , 9' p 4D:$+ ;8, 8$^& 7Y&& ` =(:&. " $ 0D + :++ :1+ :1^& 7Y&& ` =(:,. " $ 0D -+ :1+ :M+ :1+ ;E p 4D:3+ ;8, 8$^& 7Y&& ` =(:5 ( . " $ 0D -@ 4H::+ :M^& 7Y&& ` =(:; ( . " $
2
2 =T)J 0* @ 4H:B+ ;EZ$ , 9' p 4D:E+ ;8, 8$^& 7Y&& ` =(:G ( . " $ 0D -@ 4H:L+ :M+ :M+ ;EZ$ Z& (p *p Q " B( f
@@( F p Dp , 8$^& 7Y&& ` =(:U ( . " $ 0D @ 4H:Z+ :r^& 7Y&& ` =(:[ ( . " $
2
2 =T)J 0* @ 4H:c+ ;E+ :r $p , 9@ x 4D:j^& 7X&& ` =(:f p . " h + :j+ ;E, 8$^& 7Y&& ` =(:l ( . " $ 0D @ B( 4H:r+ ;E, 8$^& 7Y&& ` =(:t ( . " $ 0D .@ 4H:y+ ;8+ ; ^& 7Y&& ` =(:{ ( . " $ 0D @ 4H; + ; + ; ^& 7Y&& ` =(; ( . " $
2
2 =T)J 0* @ 4H; + ;E+ ; $p , 9@ x 4D;^& 7X&& ` =(;;+ ;8+ ; ^& 7Y&& ` =(;. " $ 0D + ; + ; + ; + ;EZ$ Dp 0d + ;7, 8$^& 7Y&& ` =(;" ( . " $
2
2 =T)J 0* @ 4H;)+ ;EZ$ .p , 9', 8$^& 7Y&& ` =(;,. " $ 0D .+ ;1+ ;8+ ;6^& 7Y&& ` =(;2. " $ 1D + ;6+ ;E:p + ; + ;E p p F p p
F Zp Zp .& Fp Dp 2dp + ;D p p . p . F :p + ;? p @@ Q~ Y|,~ " Bx +0;I@@x ,~ @ + 4h;L , ;I=h;K,~ . @
5&;Pl, /. # 4&;S,~ el ,~ + ;I , ;I=n;S,^x ,~ 4h;]1h + ;X , ;I=;V
=G^"'z4B;[` 8";Z . , ;I=h;[,~ , ;M4F;`&& ,> 9
;^`L+ ;b@ ,> 8
1.0 .0 /.0 (8 , ;J, ;Q,^ . , ;I=l;e,~ 4h;p1h + ;k , ;I=;h
=G^"'{4B;m` 8";l . 0 . , ;I=h;m,~ <.;s , ;I=l;q4l;{4F;y6=H 1b @ /" QB d&~ $& . , ;I=l;s4l;{ , ;I=l;z,~ 1( ( 1* * +0;~F +0=H, ;M@ 5F< [6+ < 2&=I+ <2&=J+ < =I=< =I8 2&=I+ <(=J/( @d&~ (F 1J'+ < (8 /(( "( . , <(40<X,@ 1(0 (0 0@[6@ + <1( ( X, # 0k
=K2&=O+ =P,~ <h<.< , ;I=h<, , ;I,~ Q&A`7 Q&I 4h<51h( + <4< , ;I=<1 , ;I=h<4,~ <(<H., , N + <@., + <K<(<K . N + <I`J L( / =S,~ @@( ,~ 6@ "& 1( ( /( , ;J (
=S , ;I=h<R,~ true false6@ ,~ , ,~ ,^x ,~ 6@ + <X, 6@ + <X 1@ + <Y7@ 1@ + <Y@ @
1@ + <b0@ ,~ * 7@ , ,~ +0<d1` 1 ,~ / $( . 7@ , + <d1` 1 + <t,~ ,> ,> ,> , 4 , = ~/ , ,^ ,^ ,^ ,^ /" + ,^x ,^x ! G@ c@ + <k@h @@ @ @ ,~ 1` 1 + <t,~ , <Z, <z, <d6@ " +0<t H ,~ 1` 1 + <s,~ , <Z, = , <d6@ " H ,~ 3Lf, <Z@ 1@ + =, <i1` 1 + =0p 9=3(=+ =
.( 0@ "1@ 2+ = + = 7@ , , =. " , =34P=( =I# aH + =&0p
1p
(H4H=( + =#+0<t6@ "
=L ,~ *b=+6 h X h"6 ,^ @ ,~ 5 =?" 5"=: ,> % j * ( ." ,^ @ ,~ 5"=@ ,> % j * ( .,^ @ ,~ +0=D$ . +0=F: x ,~ H
H 6$ @ + ;! 0 6 Lf3 =8 P " @ ,> && ,^ 8 8 + <+ H <U
! ! " " # #S"xX" o:@ *b>4">:@ o+ >@ ,~ Z /" o,~ O ,~ O@o,~ ,~ >U x xYxY H x 2 Q ) H=x H> H> @ 6` > " Bx ,~ 6` >+ >:6@ >+ ><O@ > D = F = "
0
6 + >; $ & x B >, >< " B ; $>#, ?s x 5B>;!$ , ?/ $ ?, ?(@@ E@@ D, ?w7@ <+ >; " B >O@ ?@@ ; > Bx ,~ ` = =@@ ? Cq* 8@@ 9 Cr* <0& 1+ >^Q$A` Cr4F>C @ =f>A@ @ x @ S \ S ^ T " 3 $Cs, @),~ 7@ ?+ >F+ +<
6 +
&Cu
' 9
&Cu " Cv1 bCv
&
&Cv,~
6 +
&CwQ$A`4F>U 4B>U
" =f>R+ >U, >I, >HZ S0`x + >_ S T S @x @@ <@@ ;@@ : 81H ),~ @@ @@ : 8+ >[
&Cw `
&Cz ` 6@ <+ >n(B 9lD :@@ <@" 3X$ 9, @)@@ ;@@ :ab ,~ ,^x @@x : <6@ ;,~ + >T " T B <@@ ;@@ :,~ <0& r+ >y H J (B
&C ` <R` |@@ < " 3 $ T, @)@@ ;@@ :@@ <`b + ?Z /( T&( .( ,>
, 0 x B r,^x ,~ r Bx ,~ @@x : <6@ ;,~ + >T@ 1D O @ ;,~ < @x ,~ D7@ : B 8 ." ,> &" . 84d?` =d?,^ Q" 0" I+ ?$Q$A` 87@ :+ ? @ @ 4F? @ =f? B 8@ @ D @ :,~ 0& 2+ ?%Q$A` D B ;4F?# @ =f?!@ @ ,~
&D `
&D ` ( + ?) ( + ?) ( 0@7, 5, 1
@ , >`> 81" + ?B H ,~ @@ Q D
* X D Q,~ ( * s+ ?< ( * w+ ?< ( * {+ ?< ( * + ?< ( * + ?< ( * + ?< D U,~ 0& + ?%Q$A`Q*A` J Q4F?@ @ =f??@ @ ,~ \"D
e+ >U,> .$ , + ,^ B Dx ,~ ,> ,> ,> ,> ,> .* &* 0L .* $( , + ,^ l @ ,^ ,^ Q&A` ( Q(A`4B?R @ =b?Q@ @ ,^ Q ,^ * [ Z
1* + ?e!
Q* ` ( 2h + ?a, ?f4 ?\4@?d9?Y.& QF . . @ 0(+ ?`=?^ D ,~ .& QF . D ,~
&D `
&D `
. !8 Q. ` 0 00` =+ ?k/ 00 00p =+ ?m/ 2@ + ?o5@?h,~ 2 + ?qO ,~ ,~ 7D " , >`Z `b " @x ,~ 7D " @ , >`,~ 7D $ " , >` Dx ,~ 7D $ "
, >` Dx ,~ 0& 2+ @Q$A` D4F@ @ =f@@ @ D,~
&D ` , ? " , >`,~ , ? " , >`,~ " Q$A` D 4F@ 4@@<&@@ 9@
4F@ @ =f@ Bx ,~ \"D + ?B7D "
@ , >` + @
" + @ "
+ @ " + @7D @ " , >` Dx ,~ 7D " @ , >` Dx ,~ " + @ 7D !$ " , >` Dx ,~ !$ + @"Q$ " , >`,~ Q$ + @%Q$ + @%,> Q X Z` !. `` GN aF+ @C
.D 0n + @M, <@[+ @A+ @3+ @4+ @7+ @FX + @-X aF+ @9
&D + @-X aF+ @9+ @- @ N 7N + @= 4P@=
" + @; 4P@@
" + @>Y + @- J L P ,^ ,~ ! G@ P ,^ ,~
&D!, @N J L Z 5N@K! @ G@ P ,^ ,~ ,^ ,^x + 8 D" @ 9+ @C[ 1@ A`Q@ [ 1@ A`Q@ [ 1@ A`Q@ 7N + @W 4P@W
" + @U@
@ @
Z` ,~ B C C> As A: A: A= CC C0 CU CR C7 @N @e @e @e @e @e @e CF D" @ 9: x ,~ @ @ 1@ 0@ + @m/, + @h5@A ,> &. . 4p@q` =p@p,^ an + @sh.P /.
( @ 3P + A0., : 1@ + D&0@ . 1@ + A @ @ + @h/2 ` ` ` ` a /, > > + @t0@ + A,^x .@x ,~ 0@ + A ,~ 0@ + A : x a` ,~ , A: x ,~ [ 1N .A`Q X 4RA/ 4@A@ =A@ @ ,~ 0@
"D 4@A&@
" 3J + A0: + A"@ @ : x : x ,~ .D 0N + A- 7@8 6@8 + Bu
"D+ @m: x ,~
&D( `
&D- ` : : an ,~
"D1 [ 1P 0A`Q 4@A8
" + A6
&Cv,^x ,~ 7D !0 P8 @@8 @@8 @@8 @ , @g+ Ai, Am,> ,> ,> ,> ,> ,> ,> ,> Z
, HV x ,^ ,^ ,^ ,^ ,^ ,^ ,^ ,^ 20 + Ag4NAQ ,> &2 . 4tAO` =tAN,^ R /
,> &2 . 4tAT` =tAS,^ 4@Ad!. GN
"D ,> &. . 4pA[` =pAZ,^ an + @sh.P /. 4PAbP
" 3J + A0: + A^ P 3@ + A07@ ,~ D1 @ 9: x ,~ D5 @ 9: x ,~ , A1 8 0D;an an 0D=
&@ ,~ 4PAs4TAs< < @ + Ao,~ , @g+ B#, B?7 + Bu 0@ + By,> , B
7 + D?,^ /6 , B[7 + Bu 0@ 1@ + B + A}0@ ,~ ! G@ ,~ , @g+ B", BL7 + Bu ,> , B
7 + D?,^ , B[,~ + Bu 0@ 1@ + By [8 " Q .. @ 5.Bt , B5`B4 B*nB4PBt Z ,~ 5PBv + B!8 Q4 ` 0 00` =+ B/ 06 00v =+ B /6 2@ + B 5@B ,~ 0@ 1@ + B!@ ,~ O ,~ , A1 2 + B$ 2 , A1
&D@ [8 " Q X08 50B> 8 54B.[P Q. ` 6H 4@B,9B+2v *tB) 4 O v &+ B1 DB ` ' $Q X @ [@ 08P + B5
&Cv[ Z
"D1/8 /6 6@
"DC/ / Q. ` 4@B<
" /8 =B:
"D1/8 =vB<*pB3
&Cv,~ 4LBK /, 0@ ,~ @ /0 , BM7 + Bu 6@ 0@ ,~ /, ` /0 4PBw@ @ ,~ 4PBw4TBZ 1@ + BW1 + BZ1` + BW1 + BZ1` -+ BW1 0+ BZ1` =+ BW+ BZ< <
@ + BN@ @ ,~ 4LBK 0@ + Bd` /6 + B! G@
"D ,> &2 . 4tBi` =tBh,^ ar + @sh2P /2 4VBwP P
" 3J + A0: 6@ =Bl4VBw P 3@ + A0P ,~ $DC D 9: x ,~ 7DJ $DJ D 9: x ,~ 7DR $DR D 9: x ,~ , @g+ C, C7 + Bu 00 0p + C& 0. 0n@ + C(/. 1N ,~ /. , =D+ C(+ C, @g+ C, BL7 + Bu 00 0p + C&@ 1N ,~ 0. 0n@ + C#/. , =D+ C(+ C
, A1 0. 0n + DZ1N + D]1N + D`
&Da..
"
&Cv,~ 02 0r + C&4LC!4PC% 0 0`H + C! /, @ /0 + C4PC%@ @ ,~ $Dc D 9: x ,~ 7Dk $Dk D 9: x ,~ 7Dr $Ds D 9: x ,~ 4LBK /, @ @ @ ,~ , A1: x ,~ , @g+ C5, C* 1@ ,~ Dw @ 9: x ,~ , A1
&Dx,~ , @g+ C<, C* 1@ ,~ D| @ 9: x ,~ , A1
&D~,~ an ,~
&D 4@CB
" + C@
&D,~ , @g+ C., BL7 + Bu,~ , @g+ C. 4@CP4PBu4TBu 08 00x =+ CN/8 2X + Bu< =CJ
,~ , @g+ Ca, Cd7 + Bu . + CX, @g+ Cc, Cd7 + Bu . ,> ,> ,> ,> ,> ,> Z , H x ,^ ,^ ,^ ,^ ,^ ,^ 4DCm,~ , A1
&E ,~ , A1
&E,~ 4PBw4LCk < <
@ 0@ .+ Ce4PBw@ @ ,~ 4PBw@ @ 7E $E D 9: x ,~ ERUN RUN START GcP3w9H
? - :
?
? Prompt is too long
? Reparse requested from block outside CMPROMPT
? Too many options after CMMULT
H 3H )
? Help text too long for buffer
? Default too long for buffer
zRToo many jfn's
? New elt. was already there - TBADD
? Table too small - TBADD
H I
? Argument too large for buffer
H Field too big
@ 6$ or XXX
Unimplemented function code in call to COMND
( ` + @z
? Default too long for internal working space
? Input line too long for buffer
invalid syntax in file specification file specification too long for internal working space output filespec
input filespec
,^ + Bu one of the following: does not match switch or keyword ambiguous switch or keyword DGswitch too long for internal working space null switch or keyword given DOnot a switch - does not begin with a slash illegal radix for input number
&DW,~ octal number
&D[,~ decimal number
&D^,~ a number in base invalid character in number number too long for internal working space Dfradix is not in range 2 to 10 overflow (number is greater than 2**35) Dnfirst nonspace character is not a digit not confirmed confirm with carriage return
comma not given comma
( ) [p,pn]
[p,pn,sfd...]
directory does not end in ] Esyntax error in directory H HH H H H R\Q| X>x 1zx -"+Q X"p *"p @@p p .$ ^& E && ` =(E ( . " $ 1D @ 4HE p .$ Dp + E p Dp Q~ Y|,~ X wX wX wX wX wX w \Q| X>x 1zx -"+@@p Xw .$ Xw2d + ESXw Xw .& ^( E &( ` =*E*. " $ > = =T)F 0& + ESXw Xw .& ^( E &( ` =*E3. " $ /$ $$ Dp Xw .$ Xw E Xw .$ & Xw2d @ 4FESXw Xw .& ^( E &( ` =*EB. ( " $
>
= =T)J 0* @ 4HESXw Xw .& ^( E &( ` =*EL. " $ /$ .p Dp Xw .$ Xw E p .$ Dp Q~ Y|,~ R\Q| X>x 1zx -"+ Dp Fp Hp Jp Lp p Q(F>X( *( Z$ Dp Z$ Dp @@p $ p 2fp @ p p ^*' E &* ` =,Ed. * " & 0F @
p p ^0? E &0 ` =2Ek.
0 "0 , 0L @ G
A 4DEr p .$ Ep + E` $ p 2fp @ & p
?
> $=T)J 0* @ B& A 4DF( p p ^( E &( ` =*E|. ( " $
>
= =T)J 0* @ B( 4HF@@p p p ^( E &( ` =*F. " $ Dp p 1$ 0+ F
p /$ Dp p 0D + FZ$ Dp p 0D + FZ$ Dp + F p 4DF p /$ Ep p 0d + F% p 4DF p p ^( E &( ` =*F. Dp Fp , E p p x " h + F% p p ^( E &( ` =*F". p " h p .$ Ep p .$ Dp + Er p 3dp + F+Z$ Ep $ p
? > =T)H 0( @ & p 1h @ A 4DF= p 0d + F9 p p /& ^( E &( ` =*F6. Z( " h p /$ Dp p /$ Ep @Ap Q~ Y|,~ R\Q| X>x 1zx -"+ Dp Fp Hp Jp Z$ Dp 0d + FR p p . p ^( E
&( ` =*FJ. p ^*' E &* ` =,FM.
"( ( /( " h :p + FEQ~ Y|,~ R\Q| X>x 1zx -"+ Dp Fp Hp @Ap Z$ Dp Z$ Dp p ^& E && ` =(F]. " $ > = =T)F 0& + Fk p $$ p ^( E &( ` =*Fe. " & . /$ Ep p .$ Dp $ p 1f @ p ^( E &( ` =*Fo * . " & >
= =T)L 0, @
B* G 4DF[ p 0d + G p ^& E && ` =(Fz. " $ 1D + F~@@p p .$ Dp + FvQ~ Y|,~ ,^|R\| <|Q X>x 1zx -"+ Dp Fp Hp Jp Lp @@p Z$ Z& (p *p Q " B( f
@@( F p p F p 4DG+ H %p 'p p *p -p , EV^& E && ` =(G ( . " $ 0D @ 4HG+ G7^& E && ` =(G ( . " $
?
> =T)J 0* @ 4HG#+ H+ G7 p p (p , FT x 4DG+ p ^( E
&( ` =*G(. p " h + G,+ H p 4DG-+ H %p 'p p *p -p , EV^& E && ` =(G2 ( . " $ 0D @ B( 4HG7+ H p 4DG: p Ep + H %p 'p p *p -p , EV^& E && ` =(G> ( . " $ 0D @ 4HGD+ Gn+ Gn^& E && ` =(GE ( . " $
?
> =T)J 0* @ 4HGN p /$ Ep + H+ Gn p p (p , FT x 4DGW p ^( E
&( ` =*GS. p " h + GW+ H p 4DGZ p Ep + H %p 'p p *p -p , EV^& E && ` =(G^. " $ 0D + Gc+ Gn+ Gn^& E && ` =(Gd ( . " $
?
> =T)J 0* @ 4HGm p /$ Ep + H+ Gn+ HZ$ Dp 0d + H p 4DGq+ H %p 'p p *p -p , EV^& E && ` =(Gv ( . " $
?
> =T)J 0* @ 4HG}+ H p p )p Z* .
p , F@ p 4DH p Ep + H %p 'p p *p -p , EV^& E && ` =(H. " $ 0D + H + H^& E && ` =(H
. " $ ? > =T)F 0& + H p /$ Ep + H:p + Go+ HZ$ Dp Q~ Y|,~ R\Q| X>x 1zx -"+ Dp Fp HT HSDHUDHT F ? D > %p , E
x Dp @@p Z$ Dp Z$ Dp 0d
+ H' p . @@ :p + H# p ^( E &( ` =*H). ( " $ 1D -@
p
p ^.7
E &. ` =0H/.
. "( * 1J .@ G 4HH5@@p + HQ %p &p p *p ,p .p .> Nx , G x B$ 4DH<@@p + HQ p /$ 3Dp + H?@@p + HQ $ p
1F @ p B& A 4DHD@@p + HQ p
1D + HP $ , + Dp p @@` @@` Z$ Dp 0d
+ HO p . p . Fy:p + HJ+ HQ p
@Dp p Dp Q~ Y|,~ x R\Q| X>x 1zx -"+ Dp Fp Hp Jp K6 K5DK7DK6 F ? D >@@p p Dp Z$ Dp ^$ Dp p Z& F @@p
Z$ Z& .& Fp Dp 2dp + Hj p . @@ :p + Hf %p &p p *p ,p , EV^& E && ` =(Hn. " $ ? > =T)F 0& + Hu@@p + It p p (p Z* , F@ p 4DHz p Dp + It p /$ Dp %p &p p *p ,p , EV^& E && ` =(I . " $ 0D + I+ I+ I^& E && ` =(I. " $ 0D + I
+ I8+ I^& E && ` =(I
. " $ 0D -+ I+ Ic+ I+ It p
@@p 4DI p Dp + It p /$ Dp %p &p p *p ,p , EV^& E && ` =(I ( . " $
?
> =T)J 0* @ 4HI"+ It p p (p Z* , F@ p 4DI' p Dp + It p /$ Dp %p &p p *p ,p , EV^& E && ` =(I-. " $ 0D + I1+ I8+ I8^& E && ` =(I3. " $ 0D -+ I7+ Ic+ I8+ It^& E
&& ` =(I9Z(. +" t p /$ Dp %p &p p *p ,p , EV^& E && ` =(IE ( . " $ 0D -@ 4HIJ+ Ic^& E && ` =(IK ( . " $
?
>J=T)J 0* @ 4HIR+ It p p (p Z* , F@ p 4DIW p Dp + It p /$ Dp %p &p p *p ,p , EV^& E && ` =(I] ( . " $ 0D -@ 4HIc+ Ic+ Ic+ It %p &p p *p ,p .p .> Nx , G x B$ 4DIj+ K,+ It p p .& ^( E &( ` =*Im. " $ 1D .+ Ir+ K,+ It p .$ Dp + It^& E && ` =(Iu. " $ 0D
1D + I|Z$ Dp p 1D + JZ$ Dp + JZ$ 2 Dp p Dp $ p
0F @ p ( 1F @ A 4DJ1Z$ Dp p $ &p Dp Fp p $ , E
p p x *p ,p , EV p p (p Z* , F@ p 0$ + J1Z$ p /& Fp Dp 2dp + J( p p .p ^( E &( ` =*J . p
p ^,/
E &, ` =.J#. "1 ( " h :p + J p p .p /& .& ^( E &( ` =*J,. Z( " h p .p /$ .$ Dp $ p
p p x *p ,p , EV p p (p Z* , F@ p 0$ + JUZ$ p /& Fp Dp 2dp + JS p p .p ^( E &( ` =*JJ. p
p ^,/
E &, ` =.JO. "1 ( " h :p + JF p .p /$ Dp $ p p p $ , E
p p x *p ,p , EV p p (p Z* , F@ p 0$ + K p p .& ^( E &( ` =*Jk. Z( " h Z$ p /& Fp Dp 2dp + J~ p p .& .p ^( E &( ` =*Ju. p
p ^,/
E &, ` =.Jy. " ( " h :p + Jp p .p /$ .$ Dp p p .& ^( E &( ` =*K. Z( " h $ p
0F @ A& 4p
+ K,+p p
Dp
0D + K^& E
&& ` =(KZ(Lu. "
h ^& E
&& ` =(KZ( . "
h p p
F p ^p E
&( ` =*K . Z( " h Z$ Z& .& Fp Dp 2dp + K* p p . p . F :p + K% p @@ + K3 p p ^( E &( ` =*K.. Z( " h p /$ Dp p Dp Q~ Y|,~ x