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

Trailing-Edge - PDP-10 Archives - decuslib10-11 - 43,50530/pform.exe

There are 2 other files named pform.exe in the archive. Click here to see a list.

?p00 00	 ?hX&C?x "

<++2	`	4<K~n =T&Cm5&2=HError 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 @Fp@|P@6?6`?KjODxKXDgEBKPnMF,KPmF@KRFnKRHKiHB
KjODx
KXDgEB
KPnMF,
KPmF@
KRFn
KRH
KiHBKi#HAKiHBKR#HKRHKR#FmKRFnKPmF@KPmF@KPnWF+KPnMF,KXDoEBKXDgEB(TZ7E(TZ6E	(TZ3E

KjWDuKjODxKi|DuW#OOrc OOqh O>|O/gOLOXO{OrJOq|OaFO^sOO

2OOwOO>	OO#OO=ONyiONs3ONm&ONdiON`}
ON`wON_}ON_{ONK]ON@ION@FON?)ON:ON36ON-mON-GON-@ON-?ON-ON JON|ONtON+ONONqONkONMON

s
ON

]ON

VVx?)G<x?48|Y;R/!BqQMGqQ;tXmoV:	`'moP	`&Ul)H@)F?/cuX9?LcuX3?JcuWd?PcuWd?McuWc?EcuWa?HcuW^?RcuW^?QcuWY?>cuWY?=?^?3cuWU?[cuWO?TcuWL?]X-ayBGVS;SI>	e?2V?OU?oV?OU?me?kQ.F
6UOz{MP>ZKOV<=?JQ>&=?JH>5V@/5
05>45>A5>G)-	@f)-@`4vP@l'w@A

xBU

n.

C(>J

t
tj>@
&u^
"]%?C];9C];9C&@CYHek?.Y5#GAY5#DAQtBzDe#Z>eDe;rDe7<DdRTDdN>sDdMGrT8aLd	THG7PN:PMxTH)w1(`5B
(`/B(`)B

Q]9@7

Q8H@2

^h?;=S^goG8^g[42^\'_
(]QDd@9]Q6JCYZO=;>	E%K@,E%
2CME$~EB*E$~?BE$~=BE$~8B(E$~8B&E$~7B!E$~7BE$~6BE$~6BE$~5BE$~5BE$~4BSE$|.E$wc@*E$v@'E$u;@)E$e.?E$^wB}E$^wCE$I]BE$+AUE$%G@%E$JCOE$qC(E$kC!E$t2	
b8K@-+YQq?,+YQq?+
XR?(
X>|?$
X/g?!
XL?'
XX?+?.BQ
W{?"
WrJ?
Wq|?
W^s?%K+luK+l>@(TtQ@S(TOb@Y(A=H]ANH]AJHM.?.HF6APHCgP
zHHy 
?f96:B~}K	`	Mce_r;^R8]^_>X~;}
dU@_}
dQ@Yx2C>eDo@QeB{UC<eB{OC6x	>C2x?AieA3'A|eA3%A~eA3#AeA3!Bx=A_e@|wBee@|TBee@{B`e@h)@Te@*2BbwhiA&e7GBowd}Bge7E:Ce7E8Ce7E7Bxe7E3CwdwBse7-C.e7'C,wc}C*e7GCe0uAvwO]AnwDI@:wC)A&w1GC[w1?C/e'+FASw1A)e#7CDw$JCAe!ayBPw>Le!UsBXwqC#e!)XCwkCaiVBv`lA_8~BrR_H.
_1.?__t(P^<8P^/7MenCMeV5B9Me(AMe(@}MR/QBa+T2B7MS4B+MRBFMRB8MRBcMRBCMRB:MQ1A_MQ+A[MQ)AYMQ	CUMQCPMQCWMQCQMQ@z)MsBK)MG2)MG@T}@
&

2@	
Ks>;Ks>>&w?~Kq\A&>?t&1@FD@Kq	@
Kq@&#@?^
Km'G>r%s3@KjN>2KjM>/KjM>-%di?
Kf'

?h%`}?h
Kf%0?e%`w?e%_}?r%_{@
Kd+'>X
Kd?>%SA@%K]?_%@O>r
K\
>%@I>(%?)?KZI?KZI?KZH?%:>z%-G@	%-??D+?KV
?%-?
KTI;>5%(>xD>fD@
KR @% J@%|@

KQ|!?KQ|!?
Ts@b%k?c
KLtD>v
KLm??vKLm?|KLm?{KLm
KL>A%

s@JL@CJL=AJL9JL+JL*JL@JLaUHYM@tHY<Aj`@uHY	A$HYAHYA"HY*AHY%AHXo7@qR8H.(+t>Kw.?}KtRu.
t{.?qt)tHi^Ai^AyjBR-nV
vVsNT>

"8x2>
}).>i	;YT>

(x>kv>H(G>H^wg>FevV>=p=@w9[d=@s)=,s2='R-=R-<yR,<3R,~<S&=07R3<.7D;N7>g<&7=;<37=1;y73<-7-<7,4;J7+(;S7*3;S7$e<
:<94v
<G4v
<F4v
<I<84vH<4vz<K4vY<64vY<4),y<=-#M;G	p4S=

vWK;Dj`n_;Xj`M;;Zj_~3;VYZ"<M=0<Ch=8Y]G;yP

~c7

^3<w^}};;e^}.3<}Av_;kAd;hAU;;n	
l<V1f<U
kVO<b(Tt<X(T6O<aHdH\MHS;H[H3HH

Z<dMb<i4I^W<R.4+=.4+=.4*/=.0I=

.0I=.0A=+t<rPFePFdwwq;DK9ZKd7O<+-
}
>}
.2}7g|<47OWkWkWDFW"[@v*P'qk	`WKB$D WJ6

I<}g PM7`WFSo@W@6lkM_

:2#7F	.Y7F.V7F.W7sk/[7sa/bP/$D /$A=ji3=w

w.v}2.vWxNvBKv?3$v3Ct+0nr1|4&4.&%Z9.$o#Nw.o#F4`o#F	4do#F	4a
ooH5<
H4T`^.Sn{.Pn5@.En55.Gmovw.moV:	`'_J4xlc#M4RgsM4HgsF4IgsE4PgsE4Ne;X5e;X	5 e;X	5e;	35%cE4:	`6cDye1+VREx
4#T)K2dT
.T
_I2VT
_A2WT
-@2^1[d.5MPv

MPsT2fMPc=4MPc=4MPc93KMPc/3~MPc.3rMPc.3bMPc-3`MPc-3U2MPSg	`MPSg2MP\2gMPZ2nMP
0iM4df2h
5!]Y1q5:.#5t1O5	K1R786785785144zYT/#4z\/'4yi/%

i:5?

4B/n3dz	`

v|A5Sv|-5`J^	`2
&u^
"u^t`rX)"0urW~h!TrW}M*rWyA0brWf`0WrWN1rWN1UQ2KTr:| r:^:2&r:^-2-2x

</GYZ/C*.CYT|9.YT|4.YR^>0IYRVD.6YQ(w-sYQ2-y~.rYP<d1D

YP<,j

YP<+aYP/.nY34(1zSNK+ASMd+8SM[4SMC+:SM7A+1SMe+BSM

+F

SL~j+;

SLxgxP(

.31',40

AlzA6I0<T8aE\8Hk)28Hk)2

+#4<w+"jBn(a@4 ^hK85=^hK659^hKB54^hO*5>^\'
({oto
{g{_
w_{@x8

.$]Ez*4ZO W5.E,4@dy1K9?/
b9?+K.az0+O.az6+I
Nvw/5
Nvt/0
Nvz.)!|G/(Ty"	`(Tv/(Tv

@(TUG.z(TUD._(TT<+-(TT/(TT.j!|D/+
Nu./(THH	`(T3/-(T"/	(T_.b(TG/(T:/(T'.}
NsS.t(T{4w(Tz4t(Tz4o(Ty4i(Ty4g
NsS4e
NsP.Z(Tg/(Td.e(T1d
NsM.((Tt1Z(T	L1a(T	K1\(T	H1_
Ns1/(!|>/)!|J.(Pi7Ph
f.AHlHkHfHe}HeyHeyHcWH]H\MH[)HS;HS)HS&HR|HRTHQ.

H7OH&GH	H[HHH

G{:Gz-GyMGyIGxcGs}K	`]z34]^rC	K)G+\}\f2i	Dz`>#+\	C9P+`	C9O+]aG+\e!OB1EdNI0Val'

+Yal'+U
al&V+R_9q		`_9h.	` _9Gg	`d0_H.<_H{.=c[6.?_{g4bJ C
^k:+
P^nB.3P^n!35I3P^)\3
P^1i+T2.$M
"+%M	Me+(
M	J+M	J+RW	`M	C@+,KI
2#lkK3910K1I1NK191L
K11BHY6=1 HXx2L8wj33?62)3j35j02sa+3>a(2u
6122~
6%..1`wF.24

Y^0N2]742]"^2]2-R2\mx2\mNN2\D/lPM4-3@6*+ssg1|+s01hn5"50mZ5&mYF	`
ieG0

ie90)ie-0/ie-0+@,Z4@
0M
4$
h)40L\/>Ktf.lx:22FeFd(L4+Ul)H5
0++(TUW+(TSg+HCgvZ~+|G;b

u^c;t@)INVT+INGg+@%*`[&C`[&C2dW$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>/^|022tiSltiRltiOo

}7@

}6@

})C5'|5&}5"e!ae!a~e!aw rWfgIrWffJrWf`LSOaWlSOaVlSOaMo4vCD4vBD4v?G4v	<4v	
=4v	?
7s
7r
7h

}K5

}J6

}?92an2a~n2atq7`7~`7wc^8c
^8b
	K{

gSMN$

hMP

MP

^hLO	&^hLA	&5		5		TBNTANKykKyfW#]-WV?QkdV?Q`dV?QkIV?QjJV?QdM4v
4v
4v	wV?QkeV?QjeV?Qdh]lR]lR]lU(T\;(T\:(T\7MPmMP~mMPtp_
SB_
RC_
GF-@(M)-pSh+\2g'r'I(\)8*\)7\	\	)\+,\6.\.,[rO.O[mNO[mO[m	O[l|[l{&O[l+O[kO[kO[j]O[jRO[i%r%H([Z[X%[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'dw]!+{0=T&C+=H	48a~+ HHHH"HFHHH$0 @BDFHHR\Q|X>x  x0 p0`h-"+ Dp Fp174 p2dp+4 p Dp+4 p Dp4Q~Y|,~          @[?|$@oA         @@< @B         ?{@;@M@xdMIN       ?{@<@@?| @?{5R\Q|X>x  x0 p0`h-"+ Dp Fp4 p3$p+14- p Dp+34/ p Dp41Q~Y|,~          @?|>@A         @3@<;@EB         ?{@;@uMAX       ?{@<8@&@=D @P?{HH]XwXwXwXwXwXw \Q|X>x  x0 p0`h-"+43Z$,?/ xXw D4JXw Z& (D *Z,,?34MXw Z& (D *Z,,?34QXw Z& (E *Z,,?34UZ$,?/ xXw D4YXw Z& (E *Z,,?34\Z$,?/ xXw D4`Xw Z& (F *Z,,?34cXw Z& (G *Z,,?34gXw Z& (H *Z,,?34kXw Z& (I *Z,,?34oZ$	,?/ xXw D4sXw Z& (J *Z,,?34vXw Z& (K *Z,,?34zXw Z& (L *Z,,?34~Xw Z& (L *Z,,?34Xw Z& (N *Z,,?34Xw Z& (O *Z,,?34
Xw Z& (Q *Z,,?34Xw Z& (Q *Z,,?34Xw Z& (S *Z,,?34Xw Z& (T *Z,,?34Xw Z& (V *Z,,?34Xw Z& (W *Z,,?34"Xw Z& (W *Z,,?34&Xw Z& (X *Z,,?34*Xw Z& (Y *Z,,?34.Xw Z&	 (Y *Z,,?342Xw Z& ([ *Z,,?346Xw Z& ([ *Z,,?34:Xw Z& (\ *Z,,?34>Q~Y|,~STARTRUNERUNHELPUPPERCASESAMECASELOWERCASECAPITALIZEVERSION:TASMANIANSUPERSTRING-CASE:SAVE-COMMENTRESERVED-CASE:QUIETPROCEDURE-CASE:PRESERVENONRESERVED-CASE:INDENT:FORCEELSEIFDENNYCOUNTCOMMENT-CASE:CASE:BEGIN:BAR          @?|j@INVISIBLE @3@;@D@RSTRING   ?{@c@u@ dB@

g@8G@HA#DEFINEOPTI?{?{@nXwXwXwXwXwXw \Q|X>x  x0 p0`h-"+4B^$ D	4t@@

W4u@@

Y4v@@

Z4wZ$ D

\4x@@

[4zZ$ D

^4{@@

X4|Z$ D

\4}@@

Y4Z$ D

]4Z$ D	4@@

Z4@@

[4@@

W4Z$ D

]4Xw@@4@@	4	@@	4
@@	4@@

X4

Q~Y|,~4^$?{?|@!7SETDEFAULT?{?{@!fLXwXwXwXwXwXw \Q|X>x  x0 p0`h-"+4

W44  	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 1d1$- 4# D

^48Xw 1d1$- 4# D

]4<Xw 1d1$- 4# D

]4?Xw 1d1$- 4# D

\4CXw 1d1$- 4# D

\4F4JQ~Y|,~          ?{?|O@)GETOPTIONS?{?{@)>_XwXwXwXwXwXw \Q|X>x  x0 p0`h-"+4J,>x x4D]4Y,>54[,+\4\4]Q~Y|,~          ?{?|b@+?ERRCHECK  ?{?{@+nXwXwXwXwXwXw \Q|X>x  x0 p0`h-"+4] ,?4lZ$,>v4m $ &,?"4o $,?4q,>x x4Dx4r $ &,?"4t $,?4v4xXw B$4D}4xZ$,>v4{4|,>x x4D4} $,?44,U4Q~Y|,~PASPGO          ?{?|@0STARTOLD  ?{?{@0N=XwXwXwXwXwXw \Q|X>x  x0 p0`h-"+4Z$,>v4,+ xXw D4 $Xw 1f@Xw D4Xw 4D 4Xw ,?_ xXw D44Xw 4D;4  =,?4" $,?4# $,+4%^& B&&`=((Z(Xw. "h4&Xw $ &,?t4,,>x xB$Xw D4.^& B&&`=(3Z(Xw. "h41,?c47,>x xXw D484:Q~Y|,~          @8?|F@7RSCAN     ?|C@;@7L@ RLJFN     ?{@;@7|@	READRESCAN?{?{@8.HHEXwXwXwXwXwXw \Q|X>x	  x0 p0`h-"+4; $ &p (,+4QXw 4D-4SQ$>X$p*$p4UZ$ Dp	4W p	/$0$0d- 4 ^& I&&`=(] (. "$1D@ *

p	0,@
A4Hu4Y p	/$0$0d- 4 ^& I&&`=(i p	/(0(0h- 4 ^*  I&*`=,n.
 "((. "h4d p	.$ Dp	4r+Y4t p	/$0$0d- 4 ^& I&&`=(y. "$1D+4u p	.$ Dp	4}4 p	/$0$0d- 4 ^& I&&`=(Z(. "h4 p	.$/$0$0d- 4 ^& I&&`=(

Z(7. "h4 p	.$/$0$0d- 4 ^& I&&`=(Z(2. "h4 p	.$/$0$0d- 4 ^& I&&`=(Z(;. "h4 p	.$/$0$0d- 4 ^& I&&`=($Z(. "h4 $, &p ( * , .O ",1m4'+<4, $C &,>(4- D,?4/ $E &,?"40 $p &,?!42 $,,?44,?c46 $, & ( * , .O ",1m474<Q~Y|,~                                            Newsource? @NEW          @I?|a@HJFNS      @JK@;@HL@

FIELDLENGT@Ik@;@H|@FLPLUS5?{@;@I,@OLDNAME@K4T@Kc@I]NEWNAME?{@J{@JNEW  ?{?{@K^R\Q|X>x  x0 p0`h-"+4<,F4h $w &,>(4i,4k pB$4Dp4l $w &,>(4n4p,h4p pB$4Du4qZ$,>v4s4u,p4u4v,>X4w,?c4x p,?^ x Dp4y p4D4{ $p &,?t4},>f x Dp4 $ p0F@ & p0H@G5Di4,U4,>r x2$0d+h+4,?e x D	+h44

Y4+h4Z$ D

Z+h44 p,?_ x1d1$- 4# D

\4+h44 $y &,?r4Z$ D

[4+h44 p,?_ x1d1$- 4# D

^4+h4#Z$ D

X+h4$4& p,?_ x1d1$- 4# D

\4'+h4+4, $y &,?r4,Z$ D

Y4.+h4041 p,?_ x1d1$- 4# D

]41+h45,?e x D	+h4649 ${ &

Z4;+h4=Z$ D

[+h4>4@ $~ &,?r4@Z$ D

W4B+h4D4E p,?_ x1d1$- 4# D

]4E+h4I p,?_ x1d1$- 4# Dp+h4J,?e x D	+h4O4Q $ &	,?r4RZ$ D

X4T+hEhOJhhh61h&hhhhhh4k,U4l $ & ( *Q* , .O ",14m,4s,M4tQ~Y|,~Oldsource? FORMATINDENTATIONNEWLINES IN STANDARD PLACESPROCEDURE AND FUNCTION DECLARATIONSFORMAT FOR COMMENTSw/E          @`{?|T@`CASESCOUNT@s<
@;@`<@CASES     ?|

@`mCALLTABLE ?{@b

@a@aHR@aX2d@b4#@apG#2OPTIONS   @c@b


@bRESCANNING@d@dK@bE@PAREN  TTY@8k@cc@buH@cdB@c|g@c8A#RUNCOM @g;@"#@dL@c]8@dA%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?{@iFDELETE    ?|U?{@inCURPOS    @ldY@8@j@?|COS       @kS@lP@jV@?^$ COSD      @l@lP@k@?W$ COSH      ?{@lP@kV@?U$ @ldDATE      ?{@m#@l&@?et @l`d

@m<g@lx@#DUMPIN    @n,p?{@mDISPOSE   ?{?{@mFDUMPOUT   @nS?{@mnEOF       @o?{@n@XSUCC      EOLN      @oS?{@nV@`EOF       EXP       ?{@lP@o@?]$ INPUT     ?|@h[@oU

(GET       @pk?{@pGETLN     @qd	?{@p.GETLINENR ?|?{@pVGETINDEX  ?{?{@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    @zK@;@xL@SWBEGIN   ?|N@;@x|@SWBAR     ?|@;@y,@SWCOMM    ?{@;@y\@	STARTFILES?{?{@zeR\Q|X>x  x0 p0`h-"+ Dp4u pQ$X$p*$p4[#p#p/#&$r1fr1&- 4# Fp4^Q~Y|,~          @}?|@|SY        ?|k@~[@|E$HACK      ?{@}c@|u@} do@@INT1      @r@<y@}=@ALF       ?{@~[@}m@@~d@~tg@~0@#INT2      ?{@;@~U@@A }@dH@A$u@|r@8A$?|oHASH      ?{A\h@^@=Z @z8?{AJ#r+R\Q|X>x  x0 p0`h-"+4c $

U,W x0$0dr- 4  " Dp4@@p4 $ p1F@ pB&A4D$4 p0D1D- 4! $ &

UQ$H`Q&H`(3B=h2B+4Z$Dp+#4 p0D1D-@4![Dp4+4# p4D'4$pDp+)4%^$zDp4'Q~Y|,~0`h-"+Ac?|JAwPOINTERD?|1ACA%FOUNDr1$?{@dKAUAR5Ad6?xSTRING $?|9@~\9A-@NEXTY pAKA	<A]pSTACK*(?{A{AD1D- 4!Z0D1D- 4!Z& "f4c p0D1D- 4!Z0D1D- 4!^& "f4i p0D1D- 4! p0&0fr- 4  "QF4o p0$0dr- 4  p F"4uQ~Y|,~          A[?|	AoSY        ?|	@~[APOINTER   A;ACAMPOS       ?{A[A} FIRSTDEF  ?{?|}A.	 R\Q|X>x  x0 p0`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|,~                    ?{?|	#AOREINITIALI?{?{A~

R\Q|X>x  x0 p0`h-"+4	@@

c4	*@@

b4	+@@

^4	,@@

_4	-Z$ Dp0dr+	4 p0$0dr- 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^$ Dp0dd+
r p.$0$0d-- 4 Z& F
&:p+
m4
kZ$ Dp0d+
y p/$0$0d- 4 Z& F	:p+
t4
rZ$+D4
y00d?- 4  
|00d?- 4  
:
{4Z$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         ?{@;AAmINITIALIZE?{?{AB

\R\Q|X>x  x0 p0`h-"+ Dp4

2 p0$0d+

Z+

W4

 	/	/$ 	/& Fp Dp2dp+

. p.$0$0d-- 4  p.&0&0f-- 4  
&0&0f?- 4  	& F
&:p+

$4

Z4

.4

/ 	/	/$ 	/& Fp Dp2dp+

= p.$0$0d-- 4  p.&0&0f-- 4  
&0&0f?- 4  	f F
&:p+

/+

Z4

=4

> 	/	/$.$0$0d-- 4  	/	/&.&0&0f-- 4  
&0&0f?- 4  	& F
&4

? 	/	 	/& Fp Dp2dp+

W p.$0$0d-- 4  p.&0&0f-- 4  
&0&0f?- 4  	f F
&:p+

M4

I+

>4

WQ~Y|,~          AKs?|

eAKWHICHCASE ?|

b@rkAK5J         ?{@;AKeSETCASE   ?{?|

ALX>x  x0 p0`h-"+4

Z 	.$ D	4

k@@	4

m@@	4

n $ &

TQ(H`Q(H` *3B=j

s3B@

XB&A4D

~4

o $ 0@7,4 	Z(,;[ &

x $, 0@7,4,/Y4

~Q~Y|,~GE   ?{..AP>?{?|XwXwXwXw \Q|X>x  x0 p0`h-"+ Dp4

+	.$0D	44 & * (,<-4

U * (,<- &

e4* (,<-+4 p0&0f- 4 $& &

e4* (,<-+4 p0&0f- 4 $& &

e* (,<-+4,&4* (,<-,/V4

T (Q&H`Q(H`2B@ & (

T4*Q(H`Q*H`2B@G4D

T4*0(,<-44Z& (,<) 	Z(,;[ & * (,<-4

U * (,<- &

e4* (,<-+4 p0&0f- 4 $& &

e4* (,<-+4 p0&0f- 4 $& &

e*Y(,<-+4,/V4?*)ERRORNAT -----@dL:ALOLDSAa3?|]A`GERRNROLDS?{AacA`uAabDMISSGCOMME?|$AadAa4@MISSGUNTILAbSAad9Aad@NEXTSPACESAd@<LAb(NEWSOURCE?|@h[AbEe@NEWFILENAMAP{AccAbug`AcLdAc|gAc8F#NONRCASE{?|$@rlXAc]KXNOBODY?{?{@dL'AdL(ENDELSEING?{@dLOAiL0THENBEGINNAi@dLRAi5L8NOTOKENYET?{@dLUAieL@COMMENTAT?{@dKAjLHRESCASE   Akt[@rkAjEK`RESCANIT  ?{@;Ajv@=hT ?RESNUM    Am

bBcAk5WRESLIST   ?{AlSAkeXpAl.dAlluAl(F#RESSY     ?{Am;AlM^PAlxdBDmAmFnOTHERSSY  ?|qAmTuAm$@OPENBLOCKS?{AnCAmUb0And

mEQLSYLINAo*AmT+An@ERRCOUNTIN?{@<{AnEhVARIANTALE?{@<~AnupLEVELAp@;Ao%xLINE500ApC@<SIO?{@<AqMPRESENTSPAArk@<Aq}RPRESERVINGAs@dLAr-KPROCCASEPA?{@rlAr]KHCOMCASEPOI?{@rl!AsAmTCAvT@PAGENRTY  Awl

e@<OAy0FEEDr@dL?{@<RAy58ENDEXDA~[?|L@<UAye@BEGEXDA~0?{@<XAzHINDENTBEGIAB[@;AzEPSTRCASE   ?|T@rlAzuK@RPARENT   A|XAmTdA{$@RTIME     ?{@;A{UhRBRACKET  ?|gAmTA|@QUIET     A}#@dLlA|5KQUIT      ?{?{A|fBARRING   ?{@dLoA}

gALPHANUMl?{ACAaPWHILESY@<?{AmTAD@FORSY@~[?|"AmTAt@EXTERNSY<AysAmT	B$@STRGCONSTEBDFAmT)BT@

@;B}`SYTY     ?{AmSB-JhIDENT     ?{AmT,B\@

INVARS    ?{@dL$B=KpOTHERSY   ?|nAmT5Bl@

GOTOSY    AAmT8B@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
eapDECSYM    ?{AnD`BbPROSYM    ?{AnD>BEbEOBSY     AnTfAmTnBt@ENTRY     B

$ENDSYM    ?{AnDZB

Ma`EOB       ?{@dL/B

}KhDOSYNITIONAt\qAmTwB@EXITSY    Bd}AmTBl@ERRMSG    ?{BBLPBH4dAadB`dB<gBxF#THENSY    ?|OAmTB@ELSESY    Az$nAmTBL@UNTILSY   BkAmTB|@UPPER     ?{B
,OB-`ENDSY     B

4AmTB\@INITPROCSYBLDAmTB

@PROCEDURESB,9AmTB<@PROCTABLE Ad{B[BmT BrdA\4FUNCTIONSYAh

8AmT"B4@PROGRAMSY BTAmT(Bd@PROG_NAME B

@~[BJHVARSY-?|{AmT+BD@TYPESY?|AmT.Bt@CONSTSY   BCAmT1B$@LABELSY   AulAmSBT@BF#B

@MISSGPOINT?{AadBB<@MISSGMAIN ?{AadEBl@MISSGQUOTEB?AadHB@MISSGRPAR ?|EAadKBL@MISSGEXIT B+AadNB|@MISSGOF   B

KAadQB,@MISSGTHEN Ab$NAadTB\@MISSGEND  BAadWB

@BEGERRINBLB
tZAacB<@BARETABLE A}KB\BmxERROR     ?{?|B_XwXwXwXwXwXw \Q|X>x  x0 p0`h-"+ Dp4 p/$ Dp4g p1d+W4i 	.$ Dp4k p.$0$0d-- 4  & 
&0D@ ( 
p2jp@A4Fw p.$ Dp+n4m p D	4w p.$0$0d-- 4  & 
&0D@ ( 
p2*p@A4F4y p/$ Dp+y4 p2dp+W4

aB$4D	4 	 D	4

Y4D

4	 	 D	4

c4D4

@$, 0@7,4Z& (,<)4

c4+ 4 $, 0@7,4 &	 	&( *,<.4 	&$1f+ 4 $, 0@7,4Z& 	&( ,<)44  p p Fp Dp2dp+/4  $= ~0@7,4 p.&0&0f-- 4  
& F4$ $, 0@7,4 &,.)4*:p+#4- $

V 
^ ^)H0(@A

Y4D;4/

V0D+844Z$ D

c+:4648Z$ D

c48+>4: $, 0@7,4,/V4;4> 	.$ &2$	@ 	.(.(0(0h-- 4  *  
&0H@
A4FJ4> 	.$ D	4G+?4I 	3d	+V4J $ &

T (_Q&H`Q(H`2B@ & 	1(P@G4DV4L,

h4T4U4V4V4W 	 D	4W@@

a4Y@@

b4Z@@

b4[Q~Y|,~,@               B,+?|kB+?POSITION  ?|e@;B+mI         B-@;B,J         ?{@<eB,MWRITELINE ?{?|bB,~XwXwXwXwXwXw \Q|X>x  x0 p0`h-"+4\, x Dp4u p1D+4w p0D1D- 4!Z0D1D- 4! "$4D4y $,+- Dp4 p0D1D- 4!Z& "f4 p0D1D- 4! p0F1F- 4!Z "f4 p0D1D- 4! pXF4 $,+- Dp4 p0D1D- 4! p F4 p0D1D- 4!Xw  F4 pXw D44Q~Y|,~          B3{?|3B3POINTER   B5t"ACB3=P         ?{B4[B3mB4R&B4(d(?xPOINTER   ?|+AD+B4E@NEXT      ?{B5cB4u@B5 R&S         ?{B6#B55B5`R@VARDEF    ?{?{B5vtXwXwXwXwXwXw \Q|X>x  x0 p0`h-"+4, x Dp4< p0D+P4>

U,N4@ $,+- Dp4B p0D1D- 4! Dp, p x F4D p0D1D- 4!Xw  F4I pXw D4M+r p0D1D- 4!Z0D1D- 4! "$B$4Dr4O $,+- Dp4V p0D1D- 4!Z& "f4X p0D1D- 4! p0F1F- 4!Z "f4\ p0D1D- 4! pXF4b $,+- Dp4f p0D1D- 4! p F4h p0D1D- 4!Xw  F4k pXw D4o4qQ~Y|,~          B>s?|B>POINTER   B?dzACB>5P         ?{B?SB>eB?R&S         ?{B@B?%B?PR@PROCDEF   ?{?{B?f3XwXwXwXwXwXw \Q|X>x  x0 p0`h-"+4

rXwDp4p1D+140D1D- 4! "$0D+ 4 p0D1D- 4! 0D1D- 4!Z0D1D- 4!Z& "f+,4 p0D1D- 4! 0D1D- 4! p0F1F- 4! 0F1F- 4!Z0F1F- 4! "&XF4  p0D1D- 4!  Dp4,+40Q~Y|,~          BFc?|:BEwP         ?{BGBF%BFPR&POPOFF    ?{?{BFf8XwXwXwXwXw \Q|X>x  x0 p0`h-"+4

1@@	4C4D $ 0@7,4  & 0@7,46F &B&A4D4D $ 0@7,4

T4L $& ~0@7,4 0D+e4O $ 0@7,4 &,.(4S $& ~0@7,4 0D+]4W 6 D

T4[4\ $ 0@7,4 4Dd4] $ 0@7,4,./4`4c+n4d $& ~0@7,4 0D+k4e 6 D

T4i4j $ 0@7,4,./4k4n $

T &6Q$H`Q&H`2B+t4n,

h+4s4t 	.$ D	4u 	.$ D	4w 	0Dz+4y@@	4{

XB$4D4| $

T &7Q$H`Q&H`2B+
4~ $ 0@7,4Z& (,<) 	Z(,;[Z& (,<)+44
 $ 0@7,4Z& (,<) &

T * (,<-Z& (,<)4
444 $, 0@7,4,/V4 	1$P+4,

h444@@	4+E4 $& ~0@7,4 &  
87=@)H0(@B&(20@7,46H.(G5F.4	.$ D	4' $ 0@7,4 &,.(4)+D4-@@	4. $ 0@7,4 B$4DU4/ $& ~0@7,4 0D+F43 	&$.$$$Z&,,
&:p+>4;p$D	4D+P4E&	.$Z&,,  F
&4J4P $ 0@7,4 &,.(4P+/4T 	1d,+[4UZ$,

4WZ$, D	4X+d4Z 	.$.$0$0d-- 4 Z& F
&4[ 	.$.$0$0d-- 4 Z& F
&4_4d $ 0@7,46D $B$4D04d $ 0@7,4

T4i $& ~0@7,4 0D+4l $ 0@7,4 &,.(4p $& ~0@7,4 0D+z4t 6 D

T4x4y $ 0@7,4 4D4z $ 0@7,4,./4}4+4 $& ~0@7,4 0D+4 6 D

T44$0@7,4,./44 	.$ D	4 	.$ D	4

XB$4D/4 $ &

T (7Q&H`Q(H`2B@ & (

T *6Q(H`Q*H`2B@G4D&4 $ 0@7,4Z& (,<) 	Z(,;[Z& (,<)+/44& $ 0@7,4Z& (,<) &

T * (,<-Z& (,<)4'4.4/4/40Z$ D	40@@	42Z$ D

d43Q~Y|,~     -----0          Bg;?|ABfOI         Bgk@;Bf}TABSTOP   ?{@<;Bg-READLINE  ?{?{Bg^fXwXwXwXwXwXw \Q|X>x  x0 p0`h-"+44

`4DX4K 	,c4LZ$ D4DU4OZ$ D

^+W4S4U,?4V4W+a4W 	.$0$0d-- 4  
&0$0d?-$4 	&4D^4` $ 	.&2f	@ D

`4aQ~Y|,~          Bh?|iBl/READBUFFER?{?{Bl^DXwXwXwXwXw \Q|X>x  x0 p0`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 $=@)L 0,@
G ( 
 B

B 
,=@)L(0,@A4F84&Z$Xw D+?45 $ 
CpC=@)H0(@B$4D?48Xw@@4=Q~Y|,~          ?{?|GBxNEXTCHAR  ?{?{Bx6XwXwXwXwXw \Q|X>x  x0 p0`h-"+4?4P@@p4PZ$ Dp4QZ$ Dp4S,F4T 
&0&0f?- 4  	f F
&4Z4c4=@)F0&+y4d4w+4x 
	=@)F0&+4y$
=@)F0&+44 p$$ 
$

 =@)H0(@B$4D4 pB$4D4Z$ Dp4"p Dp4444 p0$ 0d-++W4 p1d+ 4^$ D	4Z$ D

W4+#4 p D	4 @@

W4!+4" p D

[+4# p1$+24% p D	4' 	&$ D	4)@@	4+

Y4D/4, 	 D	+14- 	&$ D	4/+41 p0$+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 p1d1$- 4# D

^+4U p1d1$- 4# D

]+4Y p1d1$- 4# D

]+4\ p1d1$- 4# D

\+4` p1d1$- 4# D

\+4c4g p1d1$- 4# D

\4g p1d1$- 4# D

]4j p1d1$- 4# D

^4m p1d1$- 4# D

\4p p1d1$- 4# D

]4s+gM#>QK2%\YSOUFc`4v

;C=Ck?|COCHCnCL@{C-OCASEwX?{@rkC]OSWITCH0C{@dKC4Z$ Dp4$ 	 Dp4&

aB$4D-4' 	 D	4)Z$ D

a4+4,

[A

d4D34-4	,D	4/4	4D	40+642 	.	/	/$ D	4346 p m m =@)F0&+N46,o4: 
&0F@AG

^4D?4@

^4DM4IZ$,M $

^B&A4DT4N,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  Ctt@{CUAT_FIRST_W?{@dKCOLDSPACESMC,G@;C5DOCOMMENT ?{?|qCf0XwXwXwXwXw \Q|X>x  x0 p0`h-"+4

k@@p4^& &&`=( "

U$/$0$0d &(`=*

U&0&?-4#.&/&0&0f p/$0$0d- 4 $$ $

UQ$H`Q&H` (3B=h2B+)4Z$ Dp4 p/$0$0d- 4

V4!

^1d1$- 4#,

4%++4( p.$ Dp4)4++4+ p Dp4,Q~Y|,~          C&3?|<C%GI         C&c@;C%uJ         C'@<3C&%LOCAL     ?{@dKC&U RESWORD   ?{@dKC'@=2t`C8?{_XwXwXwXwXw \Q|X>x  x0 p0`h-"+4. $

V0F@G

_4DK4F@@p+]4J4K, x Dp4L@@p4N p1D+\4O p0D1D- 4!Z0D1D- 4! "$4D\4QZ$ Dp4W

\1d1$- 4#,

4X4[4\4\Q~Y|,~          C,#?|hC+7POINTER   ?|eACC+eFOUND     ?{@dKC,PROCCALL  ?{@dKC,F@=/4`C'p?{#XwXwXwXwXw \Q|X>x  x0 p0`h-"+ Dp4] 	 Dp4s

aB$4Dz4tZ$ D

a4v 	 D	4x4y 	.	/	/$ D	4z4},14}

V ! !)F0&+4~,14

V0D4,84+ $

V0FA

_4D4,p4
4 p1h#1(- 4#"S$@)D G"G"

V)D 0$+}4 p D	4Z$ D

a4

V2Dp+4,1+4 p0D+4Z$,

+4Z$,

4Q~Y|,~p~`p          C4c?|,C3wWHICH     ?|)AmSC4%OLDSPACESM?{@;C4UPARENTHESE?{?|&C5XwXwXwXwXwXw \Q|X>x  x0 p0`h-"+4@@	45 $ 
	 	 =@)H0(@

^B&A4D"464=4@,G4@

d4CZ$,K4F4H+!4H4I,G4J

d4MZ$, +Y4P4RZ$ D

V4R 	0D+X4TZ$,o4V4W+p4X4Y+!4Y4Z $ 	0F@ D

d4[@@p4^,G4_

WB$4Dl4`

=@)F0&+l4bp4h4j,G4j+b4k pG

WB$4Dp4lZ$.,"4o+!4pZ$>, +!4q4s,G4t+!ZssIssssss@sssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssq4u+74! 
X$

U*$

V4'4) 	.$ D	4) 	0d+44+ 	/$0$0d- 4 ^& &&`=(2

Uh4-,G44 $ 
 
,=@)F(0&@B$4D)45, xB$4DN4<,C xB$4DL4>

)F0&+H4A

\1d1$- 4#,

+L4D4H

]1d1$- 4#,

4H4K4LZ$

V4L4N+p4N4O4P 	.$ D	4P,G4R $

 =@)H0(@B$4DP4SZ$

V4Y+^4Z,G4\+|4]

 =@)H0(@B$4Da4aZ$

V4g@@	4h4i4lG4q4r

 =@)F0&+x4r,G4v+s4wZ$

V4x@@	4z4{4{+p4|4}Z$ D	4}Z$

V444

\0D+

4 	.$0$0d-- 4  	.&0&0f-- 4  
&0&0f?- 4  	f F
&44

,G4

	.$D	4

^G

`4D44Z$,.$D	4G

GG 
 
,=@)F(0&@B$4D4Z$

V4%+p4'Z$ D

V+p4(4*,G4*

V4-,G4/+340Z$ D

V4142+p4344,G44 p4D:45@@p47+548+<49Z$

V4:4;+p4<4=Z$ D

V4=,G4?Z$,o4@+p4A4BZ$ D

V4C,G4D

Z4DJ4E,#R4G 	,c4H4I+p4J4K

V4K,G4O+p(KKKKK}KKKKKKKKOOOOOOOOOO*BKKKKK%%%%%%%%%%%%%%%%%%%%%%%%%%=44P@@

d4p

c4D|4q

aB$4D{4r

V1D+{4t $, 0@7,4,/V4v@@

c4y4z4{4{

c4D4|@@

c4}

V0D+4~Z$ D

c+44 $, 0@7,4,/V444Q~Y|,~H(            |          Cb#?|Ca71         CbS?{Cag

l111       Cc?|Cb

1I         Cc3@;CbEINCONDCOMPC'C@dKCbuINSYMBOL  ?{?{Cc&TXwXwXwXw \Q|X>x  x0 p0`h-"+4

 	 Dp4&

aB$4D-4(Z$ D

a4* 	 D	4+4- 	.	/$ D	4-,04041

V0$0d+8+541,_+F44,+F46+F4748

V0D49,p4;,04<+F48886888888888874=

V T S)F0&+14F p D	4IZ$ D

a4K

V0D+P4L,0+Q4NZ$,

4PQ~Y|,~~w!t          Cj{?|ZCjOLDSPACESM?{@;Cj=
PARENTHESE?{?{CjnXwXwXwXwXw \Q|X>x  x0 p0`h-"+4Q 	.$ D	4c 	 Dp4e

aB$4Dl4gZ$ D

a4i 	 D	4j4l 	/	.	/	.$ D	4l,1,p4p4q

V0D+u4r,#+z4t4u

V0D4v,p4x,14y4z

V  )F0&+r4z p D	4~ 	/$ D	4Q~Y|,~~p          Cp{?|
CpOLDSPACESMCk+@;Cp=CASEDEF   ?{?{CpnIXwXwXwXwXwXw \Q|X>x  x0 p0`h-"+4 	 Dp4

aB$4D4Z$ D

a4 	 D	44 	/	.	/	/$.	 D	4,14 $

V 
G G)H0(@B$4D84

V0$0d
+++-4%,`+84(,+84)4+,q4+4,,14-

V H H)F0&+-4.

V0D+441,143+8(+++)+ 44

aB$4D>48 	/	 D	4:Z$ D

a4<4> p D	4>

V0D+C4@,1+E4BZ$,          CyC?|OCxWOLDSPACESM?|
@;CyRECDEF    ?{?{Cy6 XwXwXwXwXw \Q|X>x  x0 p0`h-"+ Dp4

E,"p4X

V0D+^4Y,14[,"p4\+Z4] $ 
p1j#1*- 4#"
S&@)F(G G

V)F(0&@B$4Dv4^Z$,

4g $

V 
 )H0(@B$4Do4i,14n,"p4o

V0D+u4p,14r,"p4s+p4t+_4u

Z4Dy4v 	/	,b4w

c4D4y@@

c4{ $, 0@7,4,/V4|4Q~Y|,~           D[?| CoENDSYM    ?{AmSDENDEDSTATS?{?| DN 6XwXwXwXwXw \Q|X>x  x0 p0`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!

XwXwXwXwXw \Q|X>x  x0 p0`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 ! !
)F0&+ V4 W

V0D+ l4 [ 	 Dp4 ] 	 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  )F0&+ V4 l

V !

 !)F1&+ 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{?|!DOLDSPACESM?{@;D=CASESTAT  ?{?{Dn!LXwXwXwXwXw \Q|X>x  x0 p0`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|,~          ?{?|!ODLOOPSTAT  ?{?{D>"XwXwXwXwXw \Q|X>x  x0 p0`h-"+4!J 	 Dp4!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$"7XwXwXwXwXw \Q|X>x  x0 p0`h-"+4
" 	$	 D	4"-Z$ D

a4"/,14"1

Z4D"54"2 	/	,b4"3Q~Y|,~          ?{?|":D&?LABELSTAT ?{?{D&n"hXwXwXwXwXw \Q|X>x  x0 p0`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,GREPEATSTAT?{?{D,v#CXwXwXwXwXwXw \Q|X>x  x0 p0`h-"+4"f 	 Dp4"t

V0D

+"|4"v,14"x

V0D+"|4"y,"*4"{4"|

V  )F0&+#4"|

bB$4D#

Z4D#4# 	/	,c4# $

V1F@4D#4#	.	 D	+#

V0$0d
+#+#4#,!+#4#, >+#4#,!U+#4#,"@+######4#+#>4#

Z4D#"4#

V #B #A)F0&+#"4# 	/	,c4#  $

V 
#C #B)H0(@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?|#LD7OLDSPACESMD-4#I@;D8-CURBLOCKNRD

 9@<#FD8]STATEMENT ?{?{D9#yXwXwXwXwXwXw \Q|X>x  x0 p0`h-"+4

#?

`B$@&A4D#\4#V,G4#Z+#V4#[ $ 
#y #x =@)H0(@

`B&A 	.&0&0f-- 4  ( 
&0F@A4D#v4#\4#j,G4#k+#t4#qZ$>Dp4#r4#tp,4#t4#vQ~Y|,~          D?K?|#D>LASTCH   ?{@{D?

_4$^$ Dp4$4$	,24$

V  )F0&+$	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,4,/V4$! $ 0@7,4 &%JZ( *

,<- &%M * (,<- &Z( *,<- &%M * (,<- &

T * (,<- &%N * (,<-4$$

XB$4D$C4$2 $ 0@7,4 &%N * (,<-4$4Z$ 	 Fp Dp2dp+$C $ 0@7,4 pZ(,;[ &%O * (,<-:p+$;4$94$C4$C,24$D

V  )F0&+$D4$E4$H

V  )F0&+$r4$I 	/	,c4$LZ$ D

a4$NZ$ 	/	,) x D	4$P

Z4D$X4$S,#R4$U 	,c4$V4$W,24$X $

V 
 )H0(@B$4D$q4$Y4$^,q4$^,24$_

V0D+$d4$`,24$b+$^4$c $ %P %OGG

V)F(0&@B$4D$o

V0D
+$m4$d,+$n4$l,2+$e4$m,24$o+$Y4$p+$I4$q@@

_4$r

V  )F0&+%	4$s 	/	,c4$vZ$ D

a4$xZ$ 	/	,) x D	4$z

V1D+%4$},24$

V0D4%,94%4%,$4%

V0D+%4%,24%+$s

aB$4D$4%

Z4D%4%
 	/	,c4%

 	/$ D	4% 	$	 D	4% $

V 
%Q %P)H0(@B$4D%&4% $ 	0F@ &

V0H@A4D%4%Z$ D

4+% 4%Z$,

V 
%R %Q)H0(@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$,,/V4%; $ 0@7,4 	Z(,;[ &%R *	 (	,<-,/V4%>4%D 	.$,c4%E4%G,4%GQ~Y|,~PFORM/LOTS 1.1  4-SEP-80:  [  ] Page..0 @0 @ error(s) detected          DZ{?|DZPOPLIST   D[T%ZB4kDZ<I         Ccd]@;DZeWHATTOPOP B-<#D\D[D[@R&4%H	d

	deD.4%a,d4%c,	&4%dZ$ D

`B$ &

V0H@G5D%n4%h,		4%l+%g4%m $ 0@7,46D $B$4D&4%n $ 0@7,4 B$4D&4%s $= ~0@7,4 && ~0@7,4  F4%w $ 0@7,4 &,.(4%| $, 0@7,4 &,.)4&+%s4& $ 0@7,4,./4& $, 0@7,4,/V4&+%o4&

W4D&4& $ 0@7,4 /Z(,;[ &&\ * (,<-,/V4&

	d/.\D.4& $t0@7,4&&`M* (,<-c.&&j0Z(,;[Z&{(,<)4& .&$j0{F.4&F.&$t0$+&'4&MC$ 0@7,4Z&A(,<)4&#4&' $ 0@7,4 .&&tZ(,;[Z& (,<)4&' .&$t F.4&- .0$2+&>4&/ .0$+&94&1 $ 0@7,4 &&a * (,<-4&3+&=4&8 $ 0@7,4Z& (,<)4&94&=4&= $ 0@7,4 .Z(,;[,/V4&>++\+&D+&Eg " B* ,5B&I @+ N+ R,O@, < \w < \xZ&1\ < .<Q<pX>pQ \- ^-	`-"5Z0x-"+ "$	b-"5R $ "@f@j@n,1m $ "@f@j@n,1 `B`b+%a,+%a procedure and function definitionsRuntime: 00T         E

&w@;Dm~@?$ ?CMACT     Dsd&{@;Dn>@>xd ?BYTESET   Dr4&~?{Dn~ARRSET    Dp<'?{Do&ANYVERSION?|}@dLtDoMJpARRWRITE  Dpc?{Do~BYTEPOS   ?|'
@;Dp&@>8L ?BACKSLASH DqS@{Dpd@.BLANKS    B<W@~[Dq@''

          BYTEWRITE Dr[?{DqvCAPITALIZEDs@;Dr@CASETYPE  Ds4T@rkDrLCH        ?{@{DruSCMAGAIN   ?{?{Ds&CMAUTO    ?{?{DsNCMCMA     Dt[?{DsvCMDIR     DvD')@;Dt@?4 ?CMDEV     ?|'-@;Dt^@? ?CMD       Dv@;Du@? ?CMDEF     ?{?{Du^CMDIRW    Dw@;Dv@? ?CMDN      Dw+?{DvFCMERR     Dx,'>@dKDvn@>^T ?CMDO      ?{@;Dw.@>O ?CMERRMSG  ?{?{DwnCMFLT     DyT'I@lSDx@?!d ?CMFLD     ?{@;DxV@>t ?CMHLP     ?{?{DyCMINIR    Dz#?{Dy>CMMODE    ?|'VD{cDyf@?=t ?CMKEY     ?|'Z@;Dz&@?7 ?CMINT     ?{@;Dzf@>M ?D{ A'_RESCAN    D'bD{d&dD{4@PUTSTR    Bt'd?{D{fNUL       D||R@;D|

@ONEPLUSTABD},w@;D|<@rPACK6{ED~4'mD~[D|lPACK15E?|2D}{D}D}8dD~gD}PD#PACK9CMB#AgSD}tD~dD~tgD~0C#SAMECASEEB^@;D~T@CMSWI   ?E<(@;D@?3T?CMOFI   EE<(?{DFCMNUM   EE|(@;Dn@?*?CMNOI   ??|(	?{E.CMNOD     ?|(

(@?{EGJDEV     E	<(B?{EFGJACT     ?|(E?{EnFINDNULL  Bt(I@;E@>F\ ?ERRKINDS  B,.AacETGJDIR     E	c?{E~GJEXT     ?{?{E	&GJNAM     E
\(S?{E	NGJJFN     ?{?{E	vGJPRO     E?{E
HT        E45@;E
D@LINSIZE   E

D(^@;E
t@,LINSIZ1PLU?|(a@;E$@,LINNUMSIZE?|<@;ET@LINSIZPLUSE

s@;E

@-MAXINC    BL(j@;E

4@PLOWERCASE AvdJ@;E

d@TABLEEd(rEkE[ETABS      ?{E+E=XEhdEDgEE#TBMAK     EL)@bE&@?;D ?TBADD     ?{?{EfVERSION   B)EE

@)VERLENGTH ?|)
@;E<@UNDEFINED E\+@;El@UPPERCASE B@;E@EHdg)

PFORM/LOTS 1.1  4-SEP-80E(d)?xYEAR      Ed)ET)EEpMONTH     ED)E4)Eu`DAYOFMONTHE)!E)9E%pDAYLIGHTSA?{@dL)$EUP@(ZONEINPUT ?|)'@dL)1EP@ ZONE      ?{E$),E5P@E`F#SECONDS   ?{EsE`E0R#JULIANDAY ?|)4@dL)4EUP@DUM       ?{Et)'EP@E0H#DAYOFWEEK EED)>EU`ER#ZONEUSED  ?|)$@dL)!E%P@0EPR#EpR#ER#INTEGER   Ed)I@;E4CHAR      @hl)L@{E\BOOLEAN   El)N@dKEALFA      ET)Q@~[E,ABS       ?{?{EV@TIME      ALFALENG  E@;E@APPEND    E+?{EFARCTAN    ?|)^@lPEn@?Z$ ARCSIN    ?|)b@lPE.@?S$ ARCCOS    ?{@lPEn@?R$ BREAK     E?{E.CALLI     ?|)k?{EVBREAKIN   ?{?{E~REAL      E&l)p@lSE$POINTER   E#D)sE&[EO@NIL       E!4)vE#3Et@MAXINT    E <)y@;E$@?MARK      ?|){?{EVLN        E{@lPE~@?[$ LOG       ?{@lPE>@?Y$ NEW       E c?{E~NEWZ      E!?{E &NEXTBLOCK ?{?{E NOUTPUT    E"d*@h[E u HODD       E"#?{E!&@0TRUNC     ORD       ?{?{E!f@8ODD       PACK      E#?{E"&PAGE      ?{?{E"NE"pRPUT       E$T*?{E#PRED      E$+?{E#.@HCHR       PROTECTION?{?{E#nPUTLN     E%$*'?{E$PUT8BITSTO?{?{E$>READ      E&4*,?{E$fPUTX      E%s?{E%RANDOM    ?{@lPE%6@?Q$ READLN    ?{?{E%vE&dTEXT      @d\*9@h[E&,STRING    E-D*;E/E&W@RESET     E(t*>?{E&~RELEASE   E(L*@?{E'&RECSIZE   ?{?{E'N@xROUND     RENAME    ?{?{E(REWRITE   E)?{E(6SETPOS    E*D*L?{E(^RUNTIME   ?|*P?{E)@DATE      ROUND     ?{?{E)F@pEOLN      SPACELEFT E,D*X@8E*@?ftSIN       E+C@lPE*F@?dt SIND      E,@lPE+@?X$ SINH      ?{@lPE+F@?V$ SQR       E-?{E,@ ABS       SQRT      ?{@lPE,F@?\$ STRSET    E-k?{E-STRWRITE  E.?{E-.SUCC      E.S?{E-V@PPRED      TANH      ?{@lPE.@?T$ E.Pd?|g

&B&a)G#egPFORM     fa~+ a  "
0+ " Bx,~+1, (Q(A@Q&A` "4B+<4@+. @++@@,~ 18p++,++Z.8x38+ (@{. 0`++,X@y z0@++%Q X x	`2++( y(@l ++1@++%0@++, yl`++, @y++
&5c++\".bw1B++:2"(++1."++F2"x++A x(@{/ X@z z0@++8Q X y	`2++B z(@ @x++11d $++-,>,+-,^4b.$@@<b.$.Q X * ,~ ,~1@++80@++F zl`++F @z++1
&5f x,4
 $,~,>,>Z
Z

 .^ 82d2d++O,10@@@@8O@?p3.n9+K,^,^ + ,>,>

 
.
 .^ 82$2$++Y,10@@@@8O@?p3.n9+U,^,^,~
2 .^7D8++`,10@@@@8O@?p3.n9+]	`x

  !!""##$$%%&&''(())**++,,--..//00112233445566778899::;;<<==>>??@@AABBCCDDEEFFGGHHx

  !!""##$$%%&&''(())**++,,--..//0 !!""##$$%%&&''(())**++,,-=>>??x

  !!""##$$%%&&''(())**++,,--..//00112233445566778899::;;<<==>>??@@AABBCCDDEEFFGGHHx

!!""##$$%%&&''(())**++,,--..//0 !!""##$$%%&&''(())**++,,-=>>??.Z/@-u.$.$2u2s33.5.A/+/Q-{/0.+2u2s33.6.C/)/I./0.+2u2s33.6.C.t/9..$.$3?3>3?33K.6.C//K.
&5h,/[++\
&5m,/[
&5n++\+ @+ + +,.3 x/O,.4 +.),7`+./+ + + + + `b+4`,>,>,>
&5o,.3 x,.<
&5r,^,^,^,~@& ,>85@.=,^."
"=f.?,~ `b+4d
&5r,4

&5t+,>,>,>,>7@+.P  &5w,.V   &, 0B"1B21+.S ~
&6,4
+.G  &6,.V   &,,^,^,^,^,~,>Q&A`4B.Y B,.)+.W,^,~?

,.l 60@+._  bA+.eA"?4B.Z _BZB2B6,~,6@,~7`+.b,~ d B

/ 5 .j,+2i`+.Z @

:+.Z,+.m,~,^x+2i:

+.n:x,~?

,.l? +2h 60@+.z  bA+/A"?4B.t _BZB2B6,~,6@,~7`+.},~ d B

/ 5 /,+2i? +2h`+.t @

"@.`4^2h:+.t,>,>,>Q&@X``l l d+@ A`@ l SGBZAj`@+/g@+/Ph `+@,^,^,^,~>

,/%? +/# @*b/,~_.B+2f,+/&,~,^x_.B+2g@@+2i,+/(2f

"QX

,/%X@*b/-,~X3f,~".Q.

+/;,+2g> @T`,~,+/?,~,^x+2g?

,/>l@,~:	+/G,~?

+/C:x,~,+/J+/Q@@+2g"QX

,/%> @T`*b/M,~"QX

,/% @*b/S,~  ,.(  ,.(,~  ,.(  ,.(,~ 4F/b3F6	+/bX&Q&A@ (
.*0J
"=h/_ *
"X&Q&A@ (
.*0J
"=h/d *[6@
" (
.*0J
"=h/i,~++\
&6	,/[++\1L,~&0A 060`+/l@0@0P@0,6,^,^6@+1|(Jk@+1E,0W   @0D1D+4[,2+2&Z5@1qS ,2.+2&,>,>6.6 ,}!"|,08+3=

}!"~,08+3=,^/6! j,0< l ^+@+0,/	+0+6 
&*@.*1L+0)G6+@RG6+@!&@X.&@ G6+@+0(,/	+ X+@RG6+@  @

.L/6,~ 0B7,54Q".X"*"7@+1L " 6	`' " B"6,>+1L,/n1LX,P

+@+1k:x,~ZA"0"+0VQ"-ydnQ"-6+0IYd.(`NQ ,1Z`BQ" B5B0NPG+@ d.pX  "6&Q@[8d/"$XB.. N,~
&6++\]0@7,54"QX"B
Q A`4B0h0D+1<b1<0d0/$0$!0d*+1+@0T5b0b,^ "`Nl`N@l

6Q  @,^,~! B@0FG@ @``l``l

6Q@,~,0+1lDl@l+1+1*+1+1+1+1+1l+1+1+1+1+1l,1(DG,~,>,><b1
&6 ~,4
+0h,0W a@0D1D+4T,2+2&ZdN+11@,5Z ,2.+2&!"|,08+2#,1 ! h,0<  .$ @/66@+2q
d
 6	b6+1+,^a`,~ l"tX" +@,~
&6++\ 0B7,54,10 l r+@,~ ab+1D  6@,Q".X"*"6@+1=,>b6 X",>l"P+@+6#,^X"Pl"|+@+1DPl"Z,>X"@f+@+6$,^"6,>+1L 0B7,54+1E@  6@,Q".X"*"7@+1L@@Pl&p+@"6,>Z4B1N,1O@@,~,>,>,>S   &B@X2D91RSY.& F,> w F Bw,>,^,^,^,~,>,>,> $v 4F1a3B+1_ +1\  B@@@@,> ,^,^,~,> Bx,~0$0d+1h ,>,~
&6%++\ 6 @x,~ 0a`.,Z0+1~,0W@ @0D1D+4[,2+2&ZdN+1t1@,5
S ,2.+2&!"~,08+2&,1 ! j,0<  .$ @/6,~@@  3+1~  3+1~  2+1~lQ@ Q .X * +2i,>,>,>,>~,> "1Daf6@ "10,,^ A | @af4H2,>,>,>,>,>,>,2Q,^,^,^,^,^,^6@+1|+26@+2! G@S &@(@)@l=f2 @	b

(B@(@)@l=f2(@	 @! Lu @@@@@@@@@ 	`@A X@:x,~ a`+2&[0@+2&+2- `@+2-,>,4$
&6(,^,^,^,^@!&+2/6,~@@

7@,>4"1zb6 PA0|@PBP@Z1@l&1@,2LdN0@+27l&dNl&dN@l&! AGPF@@O@

 X l P+@+1}aN~+2K 6+`6d~:x,~,>,> 	`@	b3Bl&,^,^,~!"BBaf+9Z,>Q|X>xK1zx-"+ 6, (
(0@21@+21@+2^@81(K+2W
&6,
2+2V
( &p,>,>,9Z,^,^7@+2d
&60
2+2VX>p,^,~S,G@@,~S+G@@7n64+@!  B@X2B+2x l \X:
2#Z4H@+2~,/V/,.(,.2,~ 3@+37

.x,^ Bx,~O@x,~7@+.$@@Z

 
&
3JG
+@O,2u6@,~"
.J

&
.J4L3`=l36@,~

 d"pX." B+3,0W0D1D+4   @,2+2&Z5@4Z ,2.+2&,>,>6.6 ,}!"|,08+3=

}!"~,08+3=,^/6!h,0<262@@@h `XlX@+@Q .7

,^,^,^7@:x,~@@.,>,>,>/`@7*@

Z&

3L
Q
X*@

6+@ G66+@+3b,/	+3b+4

Z&

3L 
Z

/ (|2j+3p.,3L+3k.
67G
+@Q*@X*@

 G67+@+3r,/	+3r+4@@Q X * @ 
Z

&
 d pX  @[(@ @

 @ 653*+3~ (@ /1" "0b@ "@[$ @"
.J

.J 
[

&
.J4L4`=l4,^,^,^6@,~
&68,/[
&68++\ @C 6<* K C
&6=Z( 
6>."
"=h4X4B4 db+4,+4 @,ZBC
&6? 6G*  C,C+4
&6G	b 6G*  C,~
&6O x,4
 $,~,>@
&6Q,4
,^,~
&6U,4
+
&6X,4
+
&6[,4
+[4B40aB+4@A"?0b

0"2+4)1"1B20"0b "
&6^,/[
&60
'

40
&6<,~6_6a6c6e6h6k6n6q6s6u6x6z6|6~7777	7

7777777"7"7%7'7)7+
&68`B
&7-`B
&7.`B
&70`B@
&72`B
&76`B
&78
&6

,/[
&6<,~
(A"?4B4H _BZB3B7:+4N2B6,~+.b
( B  4P @,~   4H @+4I 
",~@@Q .X * @@  @@ @A0| P  `Nl  @,~@@Q .X *    @@@A0| P,~
&7;6@+4d
",.(+4a
&6<,~"+.E,>7>,>,>"Q"	b'+4xA"?4B4g1B4x B  4t @/6,~   4e @,>7>,>,>+4i/6+2h/6S G@Z c@+/+2i,>6,>,>  Q 	`'+4x/6,~ 	`+,~ @Q .X * @@  @@ @ P  `Nl  @/6,^x,~ 	`+,~ @Q .X *    @@@ P/6,^x,~,>7>,>,>  Q 	`'+4x  4e @/6+2~,>7?,>,>7?  Q 	`'+4x/66@+5 ,>6,>,>  Q 	`'+4x/6,.(+5,>7?,>,>7@  Q 	`'+4x/6,~ +.E +Z0";D0b=3+5)+5.6@{+5.[d @0A"@0(B}dBG"
&68
'

50,4
,"$	b++7@7B667E7G7I6,>Q"pX"N:@*b555"5=D"2bnBnQ"5?X*""BB7,j-"5R,~  "^6D@@@@3"n95S@@nO@N 7K*"^O@o 7L* v@@w+  7L	`   7M @z1@+5` & 7M	`+  D&@@{@@{@@|@@|@@}@@}+
?	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.]

0xINX
?	Bad user lookup block for file 6$6$0(0,2i+2&(

@ ( .A0
? Dump mode not implemented yet,j+a-3,*
? Error in option string.
?	TAPOP. to set blocksize failed,^+1D,^+1D
?	RELCHN: illegal channelTry another file spec: `-----Hp
? File spec too long.  Try again: 
? Illegal file spec.  Try again: 	`8t `@
?	 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 stringOPEN failedillegal file specno channel freeunknown error codeImproper modeHard device errorHard data errorQuota exceeded or block too largeData format errorPhysical end of tapex[Error was detected here:]
7;6<Integer overflowInteger divide checkFloating overflowFloating divide checkFloating underflowihOmpoPo{HHHHHHXwXwXwXwXw \Q|X>x1zx-"+XwX@@XwX .$XwX2d+8XwX XwX .&^( 7O&(`=*7b. "$ 1 00$0/$)Fp0&+8XwX XwX .&^( 7O&(`=*7m. "$/$$$XwX DXwX .$XwX DXwX .$ &XwX2d@4F8XwX XwX .&^( 7O&(`=*7. ( "$

1 
00$0/$)Jp0*@4H8XwX XwX .&^( 7O&(`=*8. "$/$XwX.XwX DXwX .$XwX DXwX .$ DpX>pY|,~XwXwXwXwXwXw \Q|X>x1zx-"+Q$9XwX$*$Z$Xw DZ$Xw DXw@@ $Xw Xw2f@Xw Xw ^*' 7O&*`=,8+. * "&0F@
Xw

Xw ^0? 7O&0`=283.

 0 "0,0L@G
A4D8;Xw .$Xw D+8% $Xw Xw2f@ &Xw

2 
10(0/()J'p0*@B&A4D9Xw Xw ^( 7O&(`=*8H. ( "$

1 
00$0/$)Jp0*@B(4H8QXw@@Xw Xw ^( 7O&(`=*8T. "$Xw DXw 1$0+8\Xw /$Xw DXw 0$+8`Z$Xw DXw 0D+8dZ$Xw D+8hXw 4D8hXw /$Xw DXw 0d+8{Xw 4D8tXw ^& 7Q&&`=(8n Dp Fp,7U p p xXw. "h+8{Xw ^& 7Q&&`=(8wXw Xw. "hXw .$Xw DXw .$Xw D+8;Xw Xw3d+9Z$Xw D $Xw  
2 10&0/&)Hp0(@ &Xw 1h@A4D9Xw 0d+9Xw /$^& 7Q&&`=(9Z(Xw. "hXw /$Xw DXw /$Xw DXw@@X>pY|,~          XwXwXwXwXwXw \Q|X>x1zx-"+ DpZ$Xw " Bp Ep0d+95 pXw ^( 7P&(`=*9+.Xw ^*' 7Q&*`=,9/Xw.
 "((/(Xw. "h:p+9'X>pY|,~XwXwXwXwXwXw \Q|X>x1zx-"+ DpXw@@@ApZ$ DpZ$Xw /& FpXw " Bp Ep2dp+9XXw ^& 7Q&&`=(9HXw. "$ 1 00$0/$)Fp0&+9W p$$Xw ^( 7Q&(`=*9RXw. " &./$ Ep+9W@@p:p+9DX>pY|,~R\Q|X>x1zx-"+ Dp Fp Hp@@p p DpZ$ DpZ$ Dp pZ& F@@p

@@p 7P&&`=(9fZ(Lu. "h^& 7P&&`=(9jZ(. "hZ$Z&.& Fp Dp2dp+9s p.@@:p+9p,8^& 7Q&&`=(9u. "$ 2 10$0/$)Fp0&+9|+;CZ$,9! p4D9~+;5,8^& 7Q&&`=(:. "$0D+:+:+:^& 7Q&&`=(:. "$0D+:+:-+:^& 7Q&&`=(:

. "$0D-+:+:I+:+;C p

 Dp p4D:+;5,8^& 7Q&&`=(: (. "$

2 
10$0/$)Jp0*@4H:+;CZ$,9! p4D: +;5,8^& 7Q&&`=(:". "$0D+:&+:-+:-^& 7Q&&`=(:(. "$0D-+:,+:I+:-+;C p4D:.+;5,8^& 7Q&&`=(:0 (. "$0D-@4H:5+:I^& 7Q&&`=(:7 (. "$

2 
10$0/$)Jp0*@4H:>+;CZ$,9! p4D:A+;5,8^& 7Q&&`=(:C (. "$0D-@4H:H+:I+:I+;CZ$Z& (p *pQ

O@(	l
@@( L  p Dp,8^& 7Q&&`=(:Q (. "$0D@4H:V+:n^& 7Q&&`=(:W (. "$

2 
10$0/$)Jp0*@4H:_+;C+:n $p,9: x4D:f^& 7P&&`=(:c p. "h+:g+;C,8^& 7Q&&`=(:i (. "$0D@B(4H:n+;C,8^& 7Q&&`=(:p (. "$0D.@4H:v+;5+;^& 7Q&&`=(:w (. "$0D@4H:}+;+;^& 7Q&&`=(:~ (. "$

2 
10$0/$)Jp0*@4H;+;C+; $p,9: x4D;
 p. "h+;+;C,8^& 7Q&&`=(;. "$0D.+;+;5+;^& 7Q&&`=(;. "$0D+;+;+;+;CZ$ Dp0d+;5,8^& 7Q&&`=(; (. "$

2 
10$0/$)Jp0*@4H;&+;CZ$.p,9!,8^& 7Q&&`=(;*. "$0D.+;.+;5+;4^& 7Q&&`=(;0. "$1D+;4+;C:p+;+;C p p F p p

 FZpZp.& Fp Dp2dp+;B p p. p.  F:p+;< p@@X>pY|,~ " Bx+0;F@@x,~ @+4h;J  ,;G=h;H,~ . @

5&;Ml,/.#4&;P,~el,~  +;G  ,;G=n;P,^x,~4h;Z1h+;V  ,;G=;S 
=3^"'z4B;X`8";W. ,;G=h;X,~,;J4F;]&&,>9

;[`L+;`@,>8

1.0 .0/.0 (8,;H,;N,^. ,;G=l;c,~4h;n1h+;h  ,;G=;f 
=3^"'{4B;k`8";j.0.,;G=h;k,~<.;p,;G=l;n4l;y4F;w6=41b@/"QBd&~$&.,;G=l;q4l;y  ,;G=l;w,~1( (1* *+0;|F+0=4,;J@5F;  [6+<2&=5+<2&=6+<=5=<=582&=5+<(=6/(@d&~(F 1J'+< (8/(( "(.,<&40<

=72&=;+=<,~<h<+<,;G=h<*,;G,~Q&A`7Q&I4h<31h(+<1<,;G=</,;G=h<1,~<(<F.,,N+<=.,+<I<(<I .N+<G`J L(/=?,~@@(,~6@"&1( (/(,;H ( 
=?,;G=h<P,~truefalse6@,~ ,,~,^x,~6@+<U,6@+<U 1@+<V7@1@+<V@@
1@+<_0@,~ *7@, ,~+0<b1`1 ,~/ $(.7@, +<b1`1 +<q,~,>,>,>,4$ , ~/  ,,^,^,^,^/"+,^x,^x! G@  c@+<i@h@@  @ @,~1`1 +<q,~,<X,<w,<a6@"+0<r H,~1`1 +<q,~,<X,<},<b6@" H,~3Lf,<X@1@+=,<g1`1 +=0p9=

3(=+=3H=0`9=

/ $(.7@, += 0@+=6@+=, 1`1 +=0p9=3(=+=3H=0`9=/ $(.==

 .(0@"1@2+=+=7@,,<.l4P=% =5#aH+=#0p

1p

(H4H=%+= +0<r6@"

=L,~*b=(+2:x,~H

H6$@+;}! 06  Lf3=8P"@,>&&,^88+<)H<R

  !!""##S"xX"o:@*b>4">:@o+>@,~Z/"o,~O,~O@o,~,~>A x
xXxXHx2Q(H;8H;@H;H@6`> " Bx,~6`>+>&6@>+>(O@> D< F= "
0
6+>' $ & x B=,>( " B; $>,?_ x5B>'!$,? $?,?@@E@@D,?c7@;+>' " B>O@>@@; = Bx,~	` < =@@> C]* 8@@8 C^* <0&1+>JQ$A` C^4F>/@=f>-@@ x @R \S ^S "2 $C_,@,~7@>+>2++\
6+ 
&Ca
'8
&Ca " Cb1 bCb
&
&Cb,~
6+ 
&CcQ$A`4F>A4B>A
"=f>>+>A,>5,>4ZS0`x+>K S S R @x@@<@@:@@: 71H(,~  @@@@:7+>G
&Cc	`
&Cf	`6@<+>Z(B9lD9@@;@"2X$9,@@@:@@:ab,~,^x@@x:;6@;,~+>@ "T B<@@:@@:,~ <0&r+>e H J(B
&Ck	` <R`|@@; "2 $T,@@@:@@:@@<`b+>sZ/(T&(.(,>

  
,0xBr,^x,~ r Bx,~@@x:;6@;,~+>@@1DO @;,~ ; @x,~ Co7@: B8 .",>&".84d>`=d>~,^Q"0"H+?Q$A` 87@:+?  @  @4F?@=f? B8@@ Co @:,~0&2+?Q$A` Cp B:4F?@=f?
&Cp	`
&Ct	` (+? (+? ( 0@7,54,1,  @,>L>71"+?. H,~@@Q Cx* X DQ,~ ( *r+?( ( *v+?( ( *z+?( ( *~+?( ( *+?( ( *+?( DU,~0&+?Q$A`Q*A` J Q4F?,@=f?+@@,~\"Cxe+>A,>.$,+-,^ B Dx,~,>,>,>,>,>.*&*0L.* $(,+-,^l  @,^,^Q&A` (Q(A`4B?>@=b?=@@,^Q,^*[Z
1*+?Q!
Q*` (2h+?M,?R4 ?H4@?P9?E.&QF..  @0(+?L=?J D ,~.&QF. D,~
&Cz	`
&C	`

 .!8Q.`0 00`=+?W/ 0000p=+?Y/ 2@+?[5@?T,~2 +?]O,~  ,~7D ",>LZ`b " @x,~7D "@,>L,~7D $ ",>L Dx,~7D $ "
,>L Dx,~0&2+?qQ$A` D4F?o@=f?m@@ D,~
&D	`,?k ",>L,~,?k "	,>L,~ "Q$A` D4F?}4@?z<&?}@9?x4F?|  @=f?{ Bx,~\"D+?.7D
 "  
@,>L  +?v "+? "
+? "+?7D@ ",>L Dx,~7D "@,>L Dx,~ "+@
7D!$ ",>L Dx,~!$+@Q$ ",>L,~Q$+@Q$+@,>QX Z`!.``GNaF+@/

.D

0n	+@9,<@G+@-+@+@ +@#+@2X+@XaF+@%
&D

+@XaF+@%+@ @N7N+@)4P@)
"+@' 4P@,
"+@*Y+@ J LP,^,~! G@P,^,~
&D@: J LZ5N@7! @G@P,^,~,^,^x+8  D @8+@/[1@  A`Q@[1@  A`Q@[1@  A`Q@7N+@C4P@C
"+@A@

 
@@ 
Z`,~AnBsC*A_A&A&A)C/CCAC>C#@:@Q@Q@Q@Q@Q@QC2  D @8:x,~ @@ 1@  0@+@Y/,+@T5@@q ,>&..4p@]`=p@\,^an+@_h.P/. 
(@3P+A.,:1@+D0@.1@+@l@@+@T/2```` /,>>+@`0@+@t,^x  .@x,~0@+@u,~0@+A :xa`,~,@z:x,~[1N .A`QX  4RA4@A@=@}@@,~0@
,^ar+Ah2P/2
"D4@A@
"3J+A:+A@ @:x:x,~.D

0N+A 7@86@8+Ba
"D+@Y:x,~
&D	`
&D	`:: an,~
"D [1P 0A`Q4@A$
"+A"
&Cb,^x,~7D!0  P8@@8@@8@@8@,@S+AU,AY,>,>,>,>,>,>,>,> Z  
,HB x,^,^,^,^,^,^,^,^20+AS4NA= ,>&2.4tA;`=tA:,^ R/

 ,>&2.4tA@`=tA?,^ 4@AP!.GN
"D ,>&..4pAG`=pAF,^an+@_h.P/.4PANP
"3J+A:+AJ P3@+A7@ ,~  D @8:x,~  D! @8:x,~,A  8 0D'anan 0D)
&@,~    4PA_4TA_<<@+A[,~,@S+B,B+7+Ba 0@+Be,>,Av7+D+,^ /6,BG7+Ba 0@1@+Al+Ai0@,~!  G@,~,@S+B,B87+Ba ,>,Av7+D+,^ ,BG,~+Ba 0@1@+Be [8"Q..@5.B` ,B5`A4 B*nA|4PB` Z,~5PBb +A~!8Q4`0 00`=+B/ 0600v=+B/62@+B
5@B,~,~0@1@+B+B 2,A
&D, [8"QX0850B*  854B[PQ.` 6H4@B9B2v *tB 4O	v&+B D.	`'  $QX@[@08P+B!
&Cb[Z
"D/8/66@
"D///Q.`4@B(
"/8=B&
"D/8=vB(*pB
&Cb,~4LB7  /,0@,~@/0,B97+Ba 6@0@,~/,`/04PBc@@,~    4PBc4TBF1@+BC1 +BF1`+BC1  +BF1`-+BC1 0+BF1`=+BC+BF<<

@+B:@@,~4LB70@+BP`/6+BK! G@
"D ,>&2.4tBU`=tBT,^ar+@_h2P/24VBcPP
"3J+A:6@=BX4VBc P3@+AP,~ $D/ D8:x,~7D6 $D6 D8:x,~7D> $D> D8:x,~,@S+B},C7+Ba  000p+C0.0n@+C/. 1N,~/.,=0+C+Bo,@S+B},B87+Ba  000p+C@1N,~0.0n@+C/.,=0+C+Bx,A 0.0n+DF1N+DI1N+DL
&DM..
"
&Cb,~020r+C4LC $DO D8:x,~7DW $DW D8:x,~7D^ $D D8:x,~4LB7/, @@@,~,A:x,~,@S+C!,C 1@,~  Dc @8:x,~,A
&Dd,~,@S+C(,C 1@,~  Dh @8:x,~,A
&Dj,~ an,~
&Dk 4@C.
"+C,
&Dk,~,@S+C,B87+Ba,~,@S+C     4@C<4PBa4TBa0800x=+C:/82X+Ba<=C6

,~,@S+CM,CP7+Ba .+CD,@S+CO,CP7+Ba .,>,>,>,>,>,>Z ,H x,^,^,^,^,^,^4DCY,~,A
&Dl,~,A
&Dm,~  4PBc4LCW<<

@0@.+CQ4PBc@@,~4PBc@@7Dr $Dr D8:x,~ERUNRUNSTARTGa2w9H

?  - :

?
? Prompt is too long

? Reparse requested from block outside CMPROMPT

? Too many options after CMMULT
H2H(
? Help text too long for buffer

? Default too long for buffer
zQToo many jfn's

? New elt. was already there - TBADD

? Table too small - TBADD
HH
? Argument too large for buffer
HField too big
@6$  or XXX
Unimplemented function code in call to COMND
(`+@f
? Default too long for internal working space

? Input line too long for buffer
invalid syntax in file specificationfile specification too long for internal working space output filespec
 input filespec
,^+Ba one of the following:does not match switch or keywordambiguous switch or keywordD3switch too long for internal working spacenull switch or keyword givenD;not a switch - does not begin with a slash illegal radix for input number

&DC,~ octal number

&DG,~ decimal number

&DJ,~ a number in base invalid character in numbernumber too long for internal working spaceDRradix is not in range 2 to 10overflow (number is greater than 2**35)DZfirst nonspace character is not a digitnot confirmed confirm with carriage return
comma not given comma
 ()  [p,pn]
 [p,pn,sfd...]
directory does not end in ]Dosyntax error in directoryHHHHHHR\Q|X>x1zx-"+QX"p*"p@@p p.$^& Du&&`=(D (. "$1D@4HE p.$ Dp+D} p DpQ~Y|,~XwXwXwXwXwXw \Q|X>x1zx-"+@@pXw .$Xw2d+E?Xw Xw .&^( Du&(`=*E. "$ = = =@)F0&+E?Xw Xw .&^( Du&(`=*E. "$/$$$ DpXw .$Xw EXw .$ &Xw2d@4FE?Xw Xw .&^( Du&(`=*E.. ( "$

= 
= =@)J0*@4HE?Xw Xw .&^( Du&(`=*E8. "$/$.p DpXw .$Xw E p.$ DpQ~Y|,~R\Q|X>x1zx-"+ Dp Fp Hp Jp Lp pQ(F*X(*(Z$ DpZ$  Dp@@p $ p2fp@ p 	p^*' Du&*`=,EP. * "&0F@

p p^0? Du&0`=2EW.

 0 "0,0L@G
A4DE^ p.$ Ep+EL $ p2fp@ & p

> 
> $=@)J 0*@B&A4DF p p^( Du&(`=*Eh. ( "$

= 
= =@)J0*@B(4HEp@@p p p^( Du&(`=*Er. "$ Dp p1$0+Ex p/$ Dp p0D+E{Z$ Dp p0D+E~Z$ Dp+F p4DF p/$ Ep p0d+F p4DF p p^( Dw&(`=*F. Dp Fp,E

 p p x "h+F p p^( Dw&(`=*F. p "h p.$ Ep p.$ Dp+E^ p3dp+FZ$ Ep $ p 
> > =@)H0(@ & p1h@A4DF) p0d+F% p p/&^( Dw&(`=*F".Z( "h p/$ Dp p/$ Ep@ApQ~Y|,~          R\Q|X>x1zx-"+ Dp Fp Hp JpZ$ Dp0d+F> p p. p^( Dv&(`=*F6. p^*' Dw&*`=,F9.
 "((/( "h:p+F1Q~Y|,~R\Q|X>x1zx-"+ Dp Fp Hp@ApZ$ DpZ$ Dp p^& Dw&&`=(FI. "$ = = =@)F0&+FW p$$ p^( Dw&(`=*FQ. " &./$ Ep p.$ Dp $ p1f@ p^( Dw&(`=*F[ *. " & =

= =@)L0,@
B*G4DFG p0d+Fl p^& Dw&&`=(Ff. "$1D+Fj@@p p.$ Dp+FbQ~Y|,~,^|R\| <|QX>x1zx-"+ Dp Fp Hp Jp Lp@@pZ$Z& (p *pQ " B(	f
@@( F  p p F p4DF|+H %p 'p p *p -p,EB^& Dw&&`=(G (. "$0D@4HG+G#^& Dw&&`=(G (. "$

> 
> =@)J0*@4HG+H+G# p p (p,F@ x4DG p^( Dv&(`=*G. p "h+G+H p4DG+H %p 'p p *p -p,EB^& Dw&&`=(G (. "$0D@B(4HG#+H p4DG& p Ep+H %p 'p p *p -p,EB^& Dw&&`=(G* (. "$0D@4HG0+GZ+GZ^& Dw&&`=(G1 (. "$

> 
> =@)J0*@4HG: p/$ Ep+H+GZ p p (p,F@ x4DGC p^( Dv&(`=*G?. p "h+GC+H p4DGF p Ep+H %p 'p p *p -p,EB^& Dw&&`=(GJ. "$0D+GO+GZ+GZ^& Dw&&`=(GP (. "$

> 
> =@)J0*@4HGY p/$ Ep+H+GZ+HZ$ Dp0d+H p4DG]+H %p 'p p *p -p,EB^& Dw&&`=(Gb (. "$

> 
> =@)J0*@4HGi+H p p )pZ*.
p,F, p4DGn p Ep+H %p 'p p *p -p,EB^& Dw&&`=(Gs. "$0D+Gw+H^& Dw&&`=(Gx. "$ > > =@)F0&+H p/$ Ep+H:p+G[+HZ$ DpQ~Y|,~R\Q|X>x1zx-"+ Dp Fp H@ H?DHADH@ F> D> %p,Dx x Dp@@pZ$ DpZ$ Dp0d
+H p.@@:p+H p^( Du&(`=*H. ( "$1D-@ 
p

p^.7

Du&.`=0H.
 . "(*1J.@G4HH!@@p+H= %p &p p *p ,p .p.> Nx,Fn xB$4DH(@@p+H= p/$3Dp+H+@@p+H= $ p
1F@ pB&A4DH0@@p+H= p
1D+H< $,+- Dp p @@`@@`Z$ Dp0d
+H; p. p.  Fy:p+H6+H= p
@Dp p DpQ~Y|,~xR\Q|X>x1zx-"+ Dp Fp Hp Jp K" K!DK#DK" F> D>@@p p DpZ$ Dp^$ Dp pZ& F@@p

Z$Z&.& Fp Dp2dp+HV p.@@:p+HR %p &p p *p ,p,EB^& Dw&&`=(HZ. "$ > > =@)F0&+Ha@@p+I` p p (pZ*,F, p4DHf p Dp+I` p/$ Dp %p &p p *p ,p,EB^& Dw&&`=(Hl. "$0D+Hp+H}+H}^& Dw&&`=(Hr. "$0D+Hv+I$+H}^& Dw&&`=(Hx. "$0D-+H|+IO+H}+I` p

@@p4DI p Dp+I` p/$ Dp %p &p p *p ,p,EB^& Dw&&`=(I (. "$

> 
>=@)J0*@4HI+I`pp(pZ*,F,p4DIpEDp+I`Dp/$DpI%p&pp*p,p,EB^&IDw&&`=(I."$0D+I+I$+I$^& Dw&&`=(I. "$0D-+I#+IO+I$+I`^& Dv&&`=(I%Z(. "

> 
>I=@)J0*@4HI>+I` p p (pZ*,F, p4DIC p Dp+I` p/$ Dp %p &p p *p ,p,EB^& Dw&&`=(II (. "$0D-@4HIO+IO+IO+I` %p &p p *p ,p .p.> Nx,Fn xB$4DIV+K+I` p p.&^( Du&(`=*IY. "$1D.+I^+K+I` p.$ Dp+I`^& Dw&&`=(Ia. "$0D

1D+IhZ$ Dp p1D+IoZ$ Dp+IqZ$2 Dp p Dp $ p

0F@ p ( 1F@A4DJZ$ Dp p  $ &p Dp Fp p  $,Dx p p x *p ,p,EB p p (pZ*,F, p0$+JZ$ p/& Fp Dp2dp+J p p.p^( Du&(`=*J. p   
p^,/ 
Du&,`=.J."1("h:p+Jpp.p/&.&^(Du&(`=*J.Z("hp.p/$.$Dp$pF, p0$+JAZ$ p/& Fp Dp2dp+J? p p.p^( Du&(`=*J6. p   
p^,/ 
Du&,`=.J;."1("h:p+J2p.p/$Dp$pp p  $,Dx p p x *p ,p,EB p p (pZ*,F, p0$+Jl p p.&^( Du&(`=*JW.Z( "hZ$ p/& Fp Dp2dp+Jj p p.&.p^( Du&(`=*Ja. p   
p^,/ 
Du&,`=.Je. " ( "h:p+J\ p.p/$.$ Dp p p.&^( Du&(`=*Jo.Z( "h $ p

0F@A&4px+K p

Dp

0D+K^& Dv&&`=(J}Z(Lu. "

h^& Dv&&`=(KZ(. "

h p p

 F p^p Dv&(`=*K.Z( "hZ$Z&.& Fp Dp2dp+K p p. p.  F:p+K p@@+K p p^( Du&(`=*K.Z( "h p/$ Dp p DpQ~Y|,~x