IMD 1.17: 3/11/2014 10:39:05 Pascal/MT+ Version 3.3 for CPM-68k Serial number 3170-0000-000088 1984  BDOS6 PASMT68 000 MT68 000 MT68 000MT68 000 !"MT68 000#$%&'()*MT68 000+,-./012MT68 0003456789:MT68 000;<=>?@ABMT68 000CDEFGHIJMT68 000 KLMNOPQRMT68 000 STUVWXYZMT68 000 [\]^_`abMT68 000 cdefghijMT68 000 klmnopqrMT68 000stREAD ME [uvwxyzHLT S {CPMGET S |}CPMINI S (~IOMOD S IOMOD S 5BDOS23 PAS CHAIN1 PASCHAIN2 PASDEMOINLNPASPEEKPOKEPASPPRIME PASTEST1 PASFT1 PAS FT2 PAS FT3 PASFT4 PAS MT68 68KMT68 68KMT68 68KMT68 68KMT68 68KMT68 68KMTERRS TXT&PASLIB L68PASLIB L68PASLIB L68PFPREALS L68FPREALS L68`FULLHEAPO FIBDEF LIB DIS68 68KDIS68 68KDIS68 68KDIS68 68K=PROGRAM BDOS_6; (* Use BDOS Function 6 for console I/O *) (* Since the BDOS call requires a pointer parameter *) (* we must define a record that allows us to pass an *) (* INTEGER as a pointer type. In the record, the *) (* FALSE tagfield occupies the same memory as the two *) (* INTEGERS in the TRUE tagfield. *) TYPE ptr = ^CHAR; VAR i : INTEGER; ch : CHAR; pchar : ptr; EXTERNAL FUNCTION _BDOS(func : INTEGER; parm : ptr) : INTEGER; (* The main program echos any input character *) (* at the console until a : is READ *) BEGIN (* Main Program *) new(pchar); REPEAT pchar^ := chr(255); REPEAT (* Read a character *) ch := CHR(_BDOS(6,pchar)); UNTIL ch <> CHR(0); IF ch <> ':' THEN BEGIN (* convert ch to INTEGER, pass as a pointer *) pchar^ := ch; i := _BDOS(6,pchar); (* Write a character *) END; UNTIL ch= ':'; END. (* Main Program *) `X&`NXN GDdx/<N\aUNABLE TO PROPERLY INITIALIZE/9 Gg`xN>9b GDd4?<Nmd/<N\aMT+68K/9 GDd/<T><(_8/<?<N|N/<N\a---end of compilation---/9 Gf:/<N\aNO Errors Detected/-/<>9|(_8>9 G o?<Nmh3/<>9|(_8,^N](_TNNU?<N/<>9ޞ|<.Hކ(GBG<<HǏHGgDG Gg/<>9ޞ|<.Hކ(GBG<<?/<>9ޞ|<.Hކ(GBG_<<HǏHGgDG;G?->-<<Ǝ_|;G/<>9ޞ|<.Hކ/>-O(_/<>9ޞ|<.Hކ/?-W>(_`/<>9ޞ|<.Hކ(GBG<<?/<>9ޞ|<.Hކ(GBG_<<HǏHGgDG;G?->-<<Ǝ_|;G/<>9ޞ|<.Hކ/>-O(_/<>9ޞ|<.Hކ/?-W>(_,^N](_TNNU?<N>9Dd?<?9Nm?-at,^N](_TNNU?<N3333?<>9|?Nm>-O?a?-Wa,^N](_TNNU?<N.<<- Hކ/>-O(_/<>- |<.Hކ/?-W>(_,^N](_XNNU?<N33,^N]NuNU?<N?->9ޞ|<>Gm$;G;F?<?-NmRm<-Q/<?9>9ޞm_DG(_83>9ޞ|;G/<>-|<.Hކ(GBG|;G>- GV?>- G^_Dd4>-|;G/<>-|<.Hކ(GBG|;G`>- Go63/<.<<-Hކ(GBG<<?/<>-|<.Hކ(GBG_(_8>-|;G/<>-|<.Hކ(GBG|;G>- GV?>- G^_Dd4>-|;G/<>-|<.Hކ(GBG|;G`>- GoR3/<.<<-Hކ(GBG<<?/<>-|<.Hކ(GBG_(_8` 3`ab,^N](_TNNU?<N/<>9|???-?< N_??- ?<N_(_8?9?9a>9| GW?>9| GW_?>9|0 GV_Dd ?9a,^N](_XNNU?<N/<>9|???-?< N_??- ?<N_(_8?9?9aV>9| GW?>9| GW_?>9|0 GV_Dd?<>9ޞy<>Gm;G;F/<>9m<.Hކ//<>9m<.Hކ(G(_/<>9m<.Hކ//<>9m<.Hކ(G(_Rm<-Q~>9ޞ|?an,^N](_XNNU?<N>-O?a:?-Wa.,^N](_TNNU?<N/-N;G/-N;G>-O?a?-Wa?<>9ޞ|?Nm>-O?a?-Wa,^N](_XNNU?<N>-O?a?<?9Nm?-Wal,^N](_TNNU?<N?-?<ap?<>9ޞ|?Nm,^N](_TNNU?<N?-?<a6?<>9ޞ|?Nm,^N](_TNNU?<N?-<<;G/<>9ޞ|<.Hކ/?<?-W>_(_/<>9ޞ|<.Hކ/>-O(_/<>9ޞ|<.Hކ(G><,^N](_TNNU?<N/<N\aBAD OPERAND MDE=/<m ?N?><m m ?Nv;G;m>-,^N](_\NNU?<N/-?< ?< ?-az(_8(m?`*(m8`4(m8`((m8``> g g g`/-?<?<?-a(_8/-?<?<?-a(_8/- ?<?<?-a(_8/-?< ?< ?-a(_8,^N](_NNU?<N?- HmHmHmHmHma>- | GW|?>- GW|_?>- |0 GV|_?>- GW|_?>-<-FW|_;G>-,^N](_XNNU?<N?-`?- a`/<N\a$"no relative words, only long words/- Gf?- ?-aV`h>- GfD?- `?- ?-a2`(`$> g g g g g``>- Gf?-?- a,^N](_PNNU?<N?- ?< N??-?<N_;G?-?<Nm;G>- GW?>- GW_?>-<- FW_Dd`d>9| GW?>9|0 GV_Dd`?9HmHmHmHmHma>- GW?>- GW_?>- GW_?>- GW_Ddj;|?-`$;|`6;|0`,;| `"`> g g g g`/<>-mm(_8?9?9a0/<>9|<.Hކ(GT/<>9|<.Hކ(GT/<>9|<.Hކ(GBG<<?/<>9|<.Hކ(GBG_;G>9|?a?-?-?-?-a?-a/<>9ޞ|<.Hކ(G-/<>9ޞ|<.Hކ(G-`z>-<-F_?>-<-FW_?>-<-FW?>- GW?>- GW___?>- GW?>- GW_ G_Dd>-<-FW?>-<- FW_?>- GW?>- GWǎ__Dd0;y;y?9a|33`>9|?;G?-`$;|`6;|0`,;| `"`> g g g g`/<>-mm(_8?9?9a?-?- ?- ?-a``>-<-FW?>- GW_?>- GW_?>- GW_Ddx;|9?-`$;|`6;|0`,;| `"`> g g g g`/<>-mm(_8?9?9a`X?9HmHmHmHmHma.>- GW?>- GW_?>- GV_?>- GW_Dd&?9?-aDd?-?- a`?9?-a?>- GV_Dd?9HmHmHmHmHma>9| GPW?>9| GV_?>9|? GW_Ddh/<>9|??-?<N_m (_8?9?9a/<>9|?m(_8?9?9a`?-`$;|`6;|0`,;| `"`> g g g g`>-mm;G?-aV?-?-?-?-a?-?- ?- ?-az,^N](_NNU?<N?<?<?-?<?<?<?<?<?<a*,^N](_TNNU?<N?- ?<?-?<?<?<?<?<?<a,^N](_XNNU?<N?<?<?<?<?<?<?-?<?<a,^N](_TNNU?<N?- ?<?<?<?<?<?-?<?<aj,^N](_XNNU?<N?<aZ,^N]NuNU?<N?<aF,^N]NuNU?<N?<a",^N]NuNU?<N?<a,^N]NuNU?<N?<?<a,^N]NuNU?<N?<?<a,^N]NuNU?<N?<?<a,^N]NuNU?<N?<?<a,^N]NuNU?<N?<?<ar,^N]NuNU?<N?<?<aJ,^N]NuNU?<N?<y~m <<??<?<?-?<?<a,^N](_XNNU?<N;|>- GDd(>-|;G/<>-|<.Hކ(GBG|;G>- GV?>- G^_Dd4>-|;G/<>-|<.Hކ(GBG|;G`>- Go.<<-Hކ(GBG<<?/<>-|<.Hކ(GBG_;G>-| G`W?>-| GNWǎ_Dd ;|` >- GBGf?-?- GDd>-|;G/<>-|<.Hކ(GBG|;G>- GV?>- G^_Dd4>-|;G/<>-|<.Hކ(GBG|;G`>- Go.<<-Hކ(GBG<<?/<>-|<.Hކ(GBG_;G><0m GV?><m GW_?><m GW_DdJ>-|| ;G?-?-a-| Gf ?-a;|`.>-| GW?>-| G Wǎ_Dd;|`;|`p,^N](_TNNU?<N?9?-aDdZ?<?<a>9 G<f ?9a2?9?- aDd?<?<av`?- ?<a`?-?<a?- ?<a,^N](_XNNU?<N?<?<?<?<?<?<?<?<?<a6,^N]NuNU?<Navajar,^N]NuNU?<N?9|(_8,^N](_XNNU?<N+y.-g,/-X(_><- Ff(m(`(m+T`(m(,^N](_\NNU?<N?-Hma.-fPHmN (m(#/-X>-(_8/-\><(_8/-P.<(_(+mHmN /-/-P(_.(_(/-P.-(_(/-X>9(_8?<N,^N](_TNNU?<N?-Hma.-fPHmN (m(#/-X>-(_8/-\>9(_8/-P.<(_(`/-\>9(_8,^N](_TNNU?<N.- gp?-/- X(_>_DG;G/</- X(_<.Hކ/>-O(_/</- X(_>|<.Hކ/?-W>(_(m +T `,^N](_\NNU?<N.9g2/9P(_//9\(_?a/<(y.(_(`?9NmT,^N]NuNU?<N/<N\aUn /,|??<?<?<?<?<NN:,^N](_TNNU?<N?<?<?-(n?,?<?<?<?<?<N,^N](_TNNU?<N?<?<?-(n?,?<?<?<?<?<N,^N](_TNNU?<N?<?<?-(n>,|??<?<?<?<?<N?<?<?-(n?,?<?<?<?<?<N,^N](_TNNU?<N?<?<?-(n>,|??<?<?<?<?<N?<?<?-(n>,|??<?<?<?<?<N?<?<?-(n?,?<?<?<?<?<N,^N](_TNNU?<N(n(l?`N.?<?<?<(n>,|??<?<?<?<?<NN:`?<?<?<(n?,?<?<?<?<?<N`\?<?<?<(n?,?<?<?<?<?<N`*?<?<?<(n>,|??<?<?<?<?<N?<?<?<(n?,?<?<?<?<?<N`?<?<?<(n>,|??<?<?<?<?<N?<?<?<(n>,|??<?<?<?<?<N?<?<?<(n?,?<?<?<?<?<N`*`&?< ?<NFT,^N]NuNU?<N(n(l?`B?<a`Z?<a`N?<a`B?<a`6?<a`*`&?< ?<N,^N]NuNU?<N(n?,?<NJ(n(l?`B?<ah`Z?<a``N?<aX`B?<aP`6?<aH`*`&?< ?<N,^N]NuNU?<N(n(l> Gf(n>,|?(n9_?<?<?<(n?,?<?<?<?<?<N,^N]NuNU?<N(n(l> Gf(n>,|?(n9_? Gf(n>,|?(n9_(n?,?<NJ?- Ggh(m> G f&?-?-/-?</<a?<RN>- Gf a`>-<9~Ff az`av`2>- Gf af`>-<9~Ff aR`aN,^N](_NNU?<N?- >9ޞm<>Gmr;G;F.<<-Hކ//<>-m<.Hކ(G(_.<<-Hކ//<>-m<.Hކ(G(_Rm<-Q>9ޞm|<9ޜGmB;G;F.<<-Hކ(G><.<<-Hކ(G><Rm<-Q/<>9ޞm(_8/<>9m(_8/<>9m(_8>- <9Ff>9|;G.<<-Hކ(G g>-|;G`3/<.<<-Hކ(GBG<<?/<>-|<.Hކ(GBG_(_8`/<>9m(_8,^N](_XNNU?<N;y;|>-|;G>- Gl;|>- GDd.<<-Hކ(GBG<<?/<>-|<.Hކ(GBG_;G>-<-F^?>- GV_DdN>-|;G.<<-Hކ(GBG<<?/<>-|<.Hކ(GBG_;G`>- Gf.<<-Hކ(GBG<<?/<>-|<.Hކ(GBG_;G>-| G`W?>-| GNWǎ_Dd ;|`D>-| GB@f4>-<9Ff?9N`?-?<a;|`;|>-|;G`t,^N]NuNU?<NaN>?<?<?<?<?<?<?-(n>,|??<N,^N](_TNNU?<N?<?<?<?<?<?<?-(n?,?<N,^N](_TNNU?<N?<?<?<?<?<?<?-(n?,?<N,^N](_TNNU?<N(n(l ?`aN>?<?<?<?<?<?<?<(n>,|??<N`?<?<?<?<?<?<?<(n?,?<N`?<?<?<?<?<?<?<(n?,?<N``(n?,(n?,(n/, ?<(n/,a?<7N`*`&?< ?<NT,^N]NuNU?<N>- Gf(n?,?<NJ(n(l ?`?-aX`?-aP`?-aH`?-a<(n>,|?(n9_?-a`r?-a(n>,|?(n9_?-a(n>,|?(n9_?-a`*`&?< ?<NXdp|,^N](_TNNU?<N(m > G f?<!N`:>- Gf aj`&>-<9~Ff?<aR` ?<aFN,^N](_ NNU?<N>- G gN?-`fN.?<?<?<?<?<?<?<?<?<NN:`P?-?<?<?<?<?<?<?<?<N`"?9| G@W?>9| GW_?>9|? G9|0<<HǏ;G>- Gg`/<>9|<.Hކ(GT/<>9|<.Hކ(GT/<>9|<.Hކ(GBG<<?/<>9|<.Hކ(GBG_;G>9|8<<HǏ;G>9|0?|;G?-`;|`;|`>9|;G?-`T;|`l;|`b;|`X;|`N>9|0 G f ;|`;|`(`$> g g g g g``&`"?<?<NLLLLLV`>- Go ;|`>- Go ;|`;|/<>9m<.Hކ(GT/<>9m|<.Hކ(GT/<>9m<.Hކ(GBG<<?/<>9m|<.Hކ(GBG_;G?9N?-N?-`B?-N`P?-N`B?-?<N`0?-N`"`> g g g g`>- G^?>- G__Dd;|>- Go;|/<>9m<.Hކ(G-/<>9m|<.Hކ(G-?-N/<>9m|<.Hކ(G-/<>9m|<.Hކ(G-,^N]NuNU?<N>- G g\?-`,a2>9 G9W?>9 G?W_Dd/<>9|<.Hކ(GT/<>9|<.Hކ(GT/<>9|<.Hކ(GBG<<?/<>9|<.Hކ(GBG_;G?9N>9 G/9|<.Hކ(GT/<>9|<.Hކ(GT/<>9|<.Hކ(GBG<<?/<>9|<.Hކ(GBG_;G>9|?N?-N/<>9|<.Hކ(G-/<>9|<.Hކ(G-?-N/<>9|<.Hކ(G-/<>9| <.Hކ(G-`2N?<?<?<?-?<?<?<?<?<N`BN>NN?<?<?<?<?<?<?<?<?<Na`N>N?-?<?<?<?<?<?<?<?<Na`NFN?-?<?<?<?<?<?<?<?<Nad`V?<?<N?<?<NN?<?<?<?<?<?<?<?<?<N?<?<?<?<?<?<?<?<?<N`?<?<N?<?<N?<?<NN?<?<?<?<?<?<?<?<?<N?<?<?<?<?<?<?<?<?<N?<?<?<?<?<?<?<?<?<N`*`&?< ?<NF<` ?<QNN,^N](_TNNU?<N?<l?<ax,^N](_XNNU?<N/- (_> Gf*/- >9(_8/<>9|(_8?<?<?<?<?<?<?<?<?<N/- (_>|<<;G/<>9ޞ|<.Hކ/?-W><_(_/<>9ޞ|<.Hކ/?<@>-O_(_/<>9ޞ|<.Hކ(G></-(_.g$/-(_(T> Gf ? Gf>-|;G?<?<?<?-?<?<?<?<?<N,^N](_XNNU?<N?<?<?<?-?<?<?<?<?<N,^N](_TNNU?<N?<?<?<?-?<?<?<?<?<N,^N](_TNNU?<N? Gn(m ?`(m?a8`(m?a.`/-T(_/T(_/a`?<aN>?<6N?<(m <>Gm:;G;F/-T(_/T<-.SFHކ(G?NRm<-Q`*`&?< ?<NTbp`/-T(_(T> Gf/-  (_BG|;G>- Gl<>-Dd>-Dd>-|?N` ?-N/-  (_BG?N?</-  (_BF>Gm<;G;F/-T(_/T(_.<-Hކ(GBG?NRm<-Q>-Dd ?<N`Z/<N\a cannot load constant of type =/9ޞ|<>Gmr;G;F.<<-Hކ//<>-|<.Hކ(G(_.<<-Hކ//<>-|<.Hކ(G(_Rm<-Q>9ޞ|?N,^N]NuNU?<N>-Dd?- G l>- GV?>- GV_Ddd?<?<NN>- G]?>- G^ǎ_Dd">9|?;G>9 G<W?>- GWǎ_Dd;|>9| GW?>9|0 GV_Dd/<>9||(_8>9| Gfn/<>9|<.Hކ(GBG<<?/<>9|<.Hކ(GBG_;G>- GBFf>9|??9 G>f a4`?9?9N`>9 G>fa`N>`>- G l?<?<NN>9|?;G>9 G,W?>- GWǎ_Dd;|>9| GW?>9|0 GV_Dd/<>9||(_8>9 G.f aX`?9?9N?-`/<><@m(_8?9?9N`/<><@m(_8?9?9N>-Dd ?<ހm(_8?9?9N`/<>-Dd ?- G l N:`NB,^N](_TNNU?<N>- Gl?<?<NN>9|?;G>9| GW?>9|0 GV_Dd/<>9||(_8>9 G>f ab`?9?9N`N>?- `X/<><@m(_8`^/<><@m(_8`H?< GN?<N`0? g g g g`>- Gl?9?9NN:,^N](_XNNU?<N?-`?<0N`?<,N`?<-N`|?<.N`n?</N``?<NN>?<6N`B?<NN>?<6N`$` ?<?<Nlz,^N](_TNNU?<N>- Gf?<1N`2>- Gf&?<NN>?<6N?<.N,^N](_TNNU?<N?-`D?<9N`R?<:N`D?<;N`6?< g g g g`,^N](_TNNU?<N?<=N,^N]NuNU?<N?<>N,^N]NuNU?<N??<8N`0?<BN`"`?<?<NN,^N](_TNNU?<N/-T(_> Gf@>- GW?>- GWǎ_yDd?- a` ?<Nmh`.-Xf?- a`.-hf?- a`~.-f?- av`d?<?<NN>9 G>fa>9|? G9| Gg3 G`F>9| GW?>9| GWǎ_DdNZ3 ` 3 G`>9 GafV>9| Gf&NZ/<?<>9|?_(_8`/<?<@>9|?_(_8`P>9| GW?>9| GWǎ_DdNZNZ?<N` ?9 G>fa?9 GDd?<|N?<NN:,^N](_TNNU?<N33?-`?9 GDd?<|N?<NN:,^N](_TNNU?<N?-`Z?<$N`h?<%N`Z?<&N`L?<'N`>?<(N`0?<)N`"`?<?<NN:,^N](_TNNU?<N?<?<NN>9 G.fa/<?<>9|_?>9|?_(_8?9?9N?-a,^N](_TNNU?<N?-`Z?<KN`h?<LN`Z?<MN`L?<NN`>?<ON`0?<PN`"`?<?<NN:,^N](_TNNU?<N3?<NN(y> Gl ?<|(y>_|?N`6?<?<?<(y>|??<?<?<?<?<N?< N/<>9|(_8?-`?9 GDd?<|N?<NN:,^N](_TNNU?<N?-`Z?<CN`h?<DN`Z?<Nmh`L?<Nmh`>?<EN`0?<FN`"`?<?<NN:,^N](_TN`````0`N```.`L`4`` N` v` ` R` l` ` ` ` ` ` ``L`````` `:`T`n``````>``.`T`l``````2`L`f````````l``l`````NU?<N.-g&/-\(_?>9|_DGgDG;G.-f ;|`>/-\(_> GV|?>- GV|_?>- G_|_;G>-,^N](_XNNU?<N?- `,?-HmN /-a,Dd4?<`/-\(_?>9|_DG?W>_?N`?<`N?-N`>9| GPf;y?9N`;|N>?-<<;G?-HmN /-axDd:><`m?/-\(_?>9|_DG?W>_?N`><`m?N?-N``> g g,`N,^N](_XNNU?<N>-yОy?N,^N](_TNNU?<N?-N,^N](_TNNU?<N>- Gf ;|`;|?< N?- N>-yОy|;G>-gDG G]?>- GV_Dd$><`m??-W>_?N`><`m ?N?-NN,^N](_\NNU?<N/-(_> GW?/-(_> GWǎ_Dd6?|<<ƞy?N`/-(_> Gf/- (_> Gf*/- >9(_8/<>9|(_8?|<<;G/<>9ޞ|<.Hކ/?<?-W>_(_/<>9ޞ|<.Hކ/?<@>-O_(_/<>9ޞ|<.Hކ(G><`N? GW?/-(_/T(_> GWǎ_Dd NB` /-(_(T> GnN:,^N](_XNNU?<N,^N](_XNNU?<N?<p?<N",^N]NuNU?<N;|/-"(_+T.-g/-(_.gf/-(_/T(_> G_?/-(_> GV_Dd ?-/-(_(T>_;G`>-y;G>-Dd>-|;G/-(_+T`N;m>-,^N](_XNNU?<N>9~ Gg3>- Dd>- |;G .<D<9SFHކ(G8?9y(_83D,^N](_XNNU?<N/-(_ Fft/-(_(T> Gm0NFN&/-(_(T> G fN`./-(_/T(_> Gf NF`N>?<?<?<?<?<?<?<?<?<N?- Go?<N>- G\?>- G__Dd4>- Gf;|? Gm,/-(_(T> G fNN*NB? GmD?<N/-(_(T> G fNN*NB?9~ GgJ;y;y3>-Dd>-|;G?-N33,^N](_TNNU?<N?<?<?<?-?<?<?<?<?<N?<?<?<?- ?<?<?<?<?<N?<N,^N](_XNNU?<N?<N,^N]NuNU?<N?<?<NNNN:,^N]NuNU?<N?<?<NN?<?<N?<?<N,^N]NuNU?<N?<?<?<?<?<?<?<?<?<N,^N]NuNU?<N>- Ggf>- G\?>- G__Dd4>- Gf;|?- Ggf>- G\?>- G__Dd4>- Gf;|?- Ggj>- G\?>- G__Dd4>- Gf;|?- Gf?- Gf?<3N?-N`?<;GN?-N?-N>- Gf?<3N?- N`?<;FN?- NN,^N](_ NNU?<N>- GfH>- Gf?- Gf?- Ggf>- G\?>- G__Dd4>- Gf;| ?<QF?- ?< N_?N`?<|N?- N?- Gg?-?<N?<NN?<NN?<NNNDdb>-<<HǏ;G;|>- Go >-<<HǏ;G>-|;G`??- GgN,^N](_TNNU?<N?<N,^N]NuNU?<N?< N,^N]NuNU?<N?<*N,^N]NuNU?<N?<JN,^N]NuNU?<N?< N,^N]NuNU?<N?<N,^N]NuNU?<N?< N,^N]NuNU?<N?<+N,^N]NuNU?<N?<N,^N]NuNU?<N?< N,^N]NuNU?<N?<NAH?<NAH?<NAH,^N]NuNU?<N?<?<NN?<?<NN:aap,^N]NuNU?<N/-(_> Gg/-   (_>|<<|;G?<?<?<?-?<?<?<?<?<N?<Nv?<N?<?<?<?-?<?<?<?<?<N?< NA ` /-N,^N](_XNNU?<N/9N?<N,^N]NuNU?<N/9N?<N,^N]NuNU?<N?<2aB,^N]NuNU?<N/<DN,^N]NuNU?<N?<N,^N]NuNU?<N?<N,^N]NuNU?<N?<`NN,^N]NuNU?<Na >-|<<ƞy?N,^N](_TNNU?<N?9(_8/-X>9(_8/-\>9(_8/-P>9(_8/- >9(_8,^N](_XNNU?<N+m/<(m>(_8/</-T(_>(_8/</-X(_>(_8/</-\(_>(_8/</-P(_>(_8/</- (_>(_8,^N](_XNNU?<N><<<SGm,;G;F.<<-Hކ(G8Rm<-Q/<?<INN33,^N]NuNU?<N?<N,^N]NuNU?<N/<><<9(_8,^N]NuNU?<N,^N]NuNU?<N?<N,^N]NuNU?<N?<N,^N]NuNU?<N?< N,^N]Nu``z```4``*` `R``.``````.`` 6` Z` ` ` ` (` ` .` >` \` l` `f`lNU?<N?-WN>-O?N,^N](_TNNU?<N/<L(_>Dd/- ><(_`/-(m|(_,^N](_XNNU?<N/<>-|<.Hކ(GBG;G>-,^N](_TNNU?<N.<<-Hކ/.<<-Hކ(GBG?.<<-Hކ(GBG<<HǏHGgDG_DGm (_,^N](_XNNU?<N/<2(_.<9DHކ(G>-/<D>9D|(_8>9D Go3D/<?<N,^N](_TNNU?<N>9N Gn:/<2(_.<9NHކ(GT/<N>9N|(_8`./<?<N/<2(_(TT3NmBG-,^N]NuNU?<N+|?<(n<,>GmV;G;Fa,(nG(nBG,|0;G/-/< N/?-?<.ޟ+GRm<-Q3DHm?<N /-T.-(_(/<T.-(_(,^N]NuNU?<N;| 3a;GaG- #f av`><<-Gm;G;F>- Gg aDG- $gX- %f ;|`>- 9o-|G/<>9<-?BG-|0_(_8`;|Rm<-Qv,^N]NuNU?<NHm?<N aG?<BF->Gm0;G;FHm<-.SFHކ/ar(_Rm<-Q/<L(_>Dd ;| `;|><<-GmF;G;F/-T<-.SFHކ/Hm<-.SFHކ(GBG(_8Rm<-Q/<T.-(_(,^N]NuNU?<N/<^a  R?<N.a;G><<-Gm0;G;F.<^<-SFHކ/at(_Rm<-Q,^N]NuNU?<NaLGaD;G><<-Gm;G;Fa&GRm<-Q,^N]NuNU?<NaGa,^N]NuNU?<NaG/<BG-?Na(m8,^N](_XNNU?<NaGaGaG/-- +W|(_8,^N](_XNNU?<NaVGBG-?`Hma^>- G\?>- G__Dd.<,<-Hކ(G8`a`a`Hma>-Dd 3`/<a`/<a`~/<a/<>9 G(_8`\/<a`NHma`B`>?<Z?<ENp(hx,^N]NuNU?<Na(;G><<-Gm0;G;F.<f<-SFHކ/a(_Rm<-Q3,^N]NuNU?<N;|aG/<BG-?N>9 G>fF/<>9|(_8/<L(_?>9 GW_Dd?9N>9 G>V|Dd~>9 Gf a@`|>9 G$f a`f>9 G'f a,`P>9 G7f/<fa(_`0>9 G%f a`>9 G:f ;|a>- GDd,^N]NuNU?<N3 3,^N](_XNNU?<N;y3?-N3,^N](_TNNU?<N,^N](_XNNU?<N,^N](_XNNU?<N/<2(_.<9Hކ(G>-/<>9|(_8>9 Go3/<?<N,^N](_TNNU?<N/<2(_/>9<<HǏHGgDG<.Hކ(G>-/<>9|(_8>9<<HǏHG  gDG Gf/<?<N,^N](_TNNU?<N;|.<<-Hކ(GBG?a.<<-Hކ(GBG?a>-|;G?->-|<>F^|Dd,^N](_TNNU?<N,^N]NuNU?<NN:;G>-,^N]NuNU?<N,^N]NuNU?<N/<N\aRELEASE 3.3 -- PHASE /9|?/9|(_8/<L(_>Dd`&/<N\aTYPE OR ^C/- GV|Dd\(m (;m>-,^N](_ N```&`$`T`v`` ` 2`J``NU?<N.-g+m(m(nG(n, #fR/-(_> GW?/-(_> GWǎ_Dd /<^/-?<N.?<Nmh/- (_/a8/-P(_/a*,^N](_XNNU?<N3NT/<>9|(_8+m/-a,^N](_XNNU&?<N/-"(_.f`NT;|6/-(_+T,/-/-"(_.(_(/-(_.gF>-6|;G6Hm8<-6.SFHކ//-(_.(_(/-(_+T`/-.-,(_(>-6 GgT>-6<<GnFDF;G4;F*Hm8<-4.SFHކ(G+T0+m0&/-&(_ Pg/-&(_> Gg/-&(_/T(_> Go/-&(_?/-& (_?/-&(_/?</<N&/-&(_?/-&"(_?/9?</<N&/-&(_/N Dd(/-&(_/ (_BG?N`/-&(_(T?NNTSm4<-*QNT,^N](_XNNU?<N?<(n9_/<^a INTERRUPR&_(_| VfRNm Nm (nHl(nHlN8(n.,边tg ?<gNmhNm ?<(n9_,^N]NuNU?<N>9~ Gf4?<(n9_/</<N\?</ GDd&(n/, /<N\?</ GDd4?9/<N\?< ?<<< Gm,;G;F.<<-Hކ(G><Rm<-Q>9~ Ggv(n+l /</- (_<.Hކ+G?9(n9_/<(n>,(_8(m?/-(_?NT(n/, a&`NT/<P(_??<NT?9(n9_/<(n>,(_8,^N]NuNU?<NNm N >9 GV|Dd/<(n>,(_8?9N(n+l >9~ Gg/-(_.f"(n/, NT(n/, NS`/-(_(T> Gf6/-(_??Fg(m?NT/<L(_> GDdL/<N\a  SIZE: /,| <>Fo ?<Nmh,^N]NuNU?<N;|>9 G#f Nm `f;|63p>9 GV?>9 G V_?>9 GV_?>9 G=W?>- GW_ G_?>9 G;W?>- GW_ G_Dd;yNm `z>9 G=W?>9 G;Wǎ_DdNm >9 GfNm Nm Nm ;yNm >9 GW|?>9 GW|_?>9 G W|_?>9 G=W|_?>9 G;W|_Dd`>9 GW?>9 G Wǎ_DdNm aHmNNm /<>9|(_8/</- (_>(_8/<~>9~|(_8.<<9Hކ+G/-.<<9Hކ/X(_.(_(/-X><(_8/-\>9(_8>9 Gfn>-Dd ?<Nmh;|Nm >9 Gf>-|;G>9   GW|Dd>-|;G>- GW|Dd>9 GV?>9 G V_?>9 GV_?>9 G#V_Dd Nm `/-?-ahNm >9 GV|?>9 G V|_DdR.- f ;|`/-  (_;T?9>9~ GW_Dd`aa/<>9|(_8/<~>9~|(_8,^N](_\N``NU?<N33333/</<X(_.(_(/<X><(_8/<\><(_8/<P/<PX(_.(_(/<PX><(_8/<P\><(_8?<`Nl?<Nl?<Nl?<Nl?<Nl?<Nl?<Nl?<Nl?<Nl?<Nl?<Nl?<Nl?<Nl?<Nl3N/<?<N3T3~|><<< Gm,;G;F.<<-Hކ(G-Rm<-Q33p3Nm /<>9 G8W|(_8Nm #>9 GDd NT`P><<<SGm,;G;F.<<-Hކ(G8Rm<-Q33NmX3NT3.<<9Hކ(G><`/<>9|<.Hކ(G><?<>9|?Nm/<>9|(_8.<<9Hކ(G><?<?9Nm/<>9|(_8.<<9Hކ(G><?<?9Nm/<>9|(_8>9<9FW|Dd33N33,^N]Nu```^`NU?<N(n.,fNm >9 GfNt?<(n9_`d(nHlNTNt>9|?(n<,>Fo ?<2Nmh(nHlNT?<(n9_?9(n9_Nm ?<(n9_?<(n9_`@(n/,(nHl?<(nHl(nHl(nHlN?<(n9_,^N]NuNU?<NHmN/-(_ FV?/-(_ VV_?/-(_ RV_Ddf?<gNmhNm >9 GW|?>9 G W|_?>9 G W|_?>9 G W|_Dd`"+mNm a+m+m>- GDd/-T(_> Gov.-g*/-(_??-/-?</-N&`6/-(_?/- (_>m?/-?</-N&;|`z/-(_ Fgd/-(_> GfN/-(_?/- (_>m?/-?</<N&/-(_+T;|>9 Gg ?<gNmhNm Nt>-Dd.(y> Go ?<Nmh?-?-NT`.9־tW?.-ྐྵhW_Dd?<NA,#h.9־tW?.-ྐྵXW_yDd #X>9DdH/-(_/T(_> Gf,/-(_/HmHmN?-?-NT@/9/-N$ GDd/-N ?.9־pW_Dd,?<(_8/-/9N$ GDd ?<Nmh/9><(_8` ?<Nmh>-Dd/-T(_> Go`/-T(_> Gf ?<lNmh/-N Dd/- (_BG?N`(m?NNT`(m?Nz`/-(_ FfT/-(_> Gf ?<Nmh;|>9<<GnlDF;G;F.<<-Hކ/X(_> Gf6.<<-Hކ/\(_?/- (_<>Ff;|Sm<-Q>-Dd/-(_(T> Gf2/-(_??m?/-/<N^,^N]Nu``NU?<N;|HmNHmNHmNNm Nt?<?-NS+y.9־g>/9T(_> G^?.9־hWǎ_Dd?<Nmh+|Nm +|>9 G V?>9 G V_Ddz+|HmHmN8/-/-N$ GDd?<Nmh`+m+|;|.-޾V?>- G_DdX/-\(_><-Fn&/-\(_><-Ff ?<Nmh;|>- GDd+m(m+T`HmN (m(/-\>-(_8/-X>9(_8.-⾼f +m` (m(>9 GW|;G>-DdNm >- GDdNm N ?<?-NS>9 GfNm `h>9 G f0?-N;|Nm N ?<?-NS`?-N?<?-NS>9 GfNm Nm ?-N.-ھg/-\(_;T+m+|(m+T(m(+m+m.-޾W|Dd/-\(_;T>-؞m;G>- Go?-?-NT;y?-HmN /-\(_><-־Fo&/-\(_>m?NS>-|;G`/-X(_>m?NS(m+T>-|;G.-ھ  W|Dd`N>?-HmN /-\(_><-־Fo(?-?</-\(_?NS>-|;G`?-?</-X(_?NS(m+T>-|;G.-ھW|Dd>- Go/-\(_>m?NS`?-?</-\(_?NS?-N,^N]Nu``>D`N`>`x`` ` L````b``+``"`&\`7`+`1.`4~`7`;~NU?<N.<,<-Hކ(G;T>-,^N](_TNNU?<N/<t?<N (yt8/9tX><(_8/9t\.<(_((nHl?<TN (n/,a INTEGER R?<N.(n/,.9t(_((n/,.<(_((n/,N(nHl?<CN (n/,a MAXINT R?<N.(n/,.<(_((n/,.9t(_((n/,><(_8(n/,N(nHl?<TN (n/,a  R?<N.(n/,.9t(_((n/,>< (_(n/,.<(_((n/,N/<(n.,(_(/<h?<N /<L(_>Dd(yh8 ` (yh8/9hX><(_8/9h\.<(_((nHl?<TN (n/,a REAL R?<N.(n/,.9h(_((n/,.<(_((n/,N/<p?<N (yp8/9pX><(_8/9p\.<(_((nHl?<TN (n/,a CHAR R?<N.(n/,.9p(_((n/,.<(_((n/,N/<l?<N (yl8/9lX><(_8(nHl?<N (nHl?<CN (nHl?<CN /9l\(n.,(_((n/,a FALSE R?<N.(n/,.9l(_((n/,(n.,(_((n/,><(_8(n/,N(n/,a TRUE R?<N.(n/,.9l(_((n/,.<(_((n/,><(_8(n/,N(nHl?<TN (n/,a BOOLEAN R?<N.(n/,.9l(_((n/,.<(_((n/,N,^N]NuNU?<N(nHl?<TN (n/,a TEXT R?<N.(nHl?<N (n(l8A(n/,X.9p(_((n/,(n.,(_((n/,.<(_((n/,N/<d(n.,(_((nHl?<TN (n/,a STRING R?<N.(nHl?<N (n(l8Q(n/,X.9p(_((n/,><(_8(nHl?<N (n/,X.9t(_((n(l8(n/,><(_8(n/,P><(_8(n/,P(n.,(_((n/, ><Q(_(n/,><(_8(n/,(n.,(_((n/,.<(_((n/,N/<`(n.,(_((nHl?<TN (n/,a BYTE R?<N.(nHl?<N (n(l8(n/,X.9t(_((n/,><(_8(n/,P><(_8(n/,(n.,(_((n/,.<(_((n/,N/<\(n.,(_((nHl?<TN (n/,a WORD R?<N.(nHl?<N (n/,X><(_8(n(l8(n/,\.<(_((n/,(n.,(_((n/,.<(_((n/,N/<X(n.,(_(/<?<N (y8/9X><(_8/9\.<(_((nHl?<TN (n/,a LONGINT R?<N.(n/,.9(_((n/,.<(_((n/,N(nHl?<CN (n/,a MAXLONG R?<N.(n/,.<(_((n/,.9(_((nHl?<N (n/,(n.,(_((n/,T.<(_((n/,N,^N]NuNU?<NHm?<PN +m/-a @ERR  R?<N./-><(_8/-.<(_(/-.<(_(/-><(_8/- ><(_8/-".<(_(/-N#Hm?<VN /-a INPUT R?<N./-><(_8/-.9d(_(/-.<(_(/-><(_8/- ><(_8/-N#Hm?<VN /-/-?<&N./-a OUTPUT R?<N./-N#Hm?<VN /-a INP R?<N./-><(_8/-.9\(_(/-><(_8/- ><(_8/-N#Hm?<VN /-/-?<&N./-a OUT R?<N./-N#,^N]NuNU?<N?< aDd:(nHl?<PN (n+l/-a READ R?<N./-.<(_(/-.<(_(/-><(_8/-><(_8/- ><(_8/-".<(_((n/,(n)_(n/,N(nHl?<PN (n/,(n/,?<&N.(n/,a READLN R?<N.(n/, ><(_8(n/,N?< aDDdL(nHl?<PN (n/,a WRITE R?<N.(n/,.<(_ ((n/,.<(_((n/,".<(_((n/,><(_8(n/,><(_8(n/,(n)_(n/, ><(_8(n/,N(nHl?<PN (n/,(n/,?<&N.(n/,a WRITELN R?<N.(n/, ><(_8(n/,N(nHl?<PN (n/,(n/,?<&N.(n/,a EXIT R?<N.(n/, ><(_8(n/,N?<a|Dd(nHl?<PN (n/,(n/,?<&N.(n/,a NEW R?<N.(n/, ><(_8(n/,N(nHl?<PN (n/,(n/,?<&N.(n/,a DISPOSE R?<N.(n/, ><(_8(n/,N?<aDd(nHl?<PN (n/,(n/,?<&N.(n/,a PACK R?<N.(n/, ><(_8(n/,N(nHl?<PN (n/,(n/,?<&N.(n/,a UNPACK R?<N.(n/, ><(_8(n/,N?<aDdr(nHl?<PN (n/,(n/,?<&N.(n/,a INLINE R?<N.(n/, ><(_8(n/,N,^N]NuNU?<N(nHl?<FN (n/,(n/,?<&N.(n/,><F(_(n/,a ABS R?<N.(n/, ><(_8(n/,(n)_(n/,N(nHl?<FN (n/,(n/,?<&N.(n/,a SQR R?<N.(n/, ><(_8(n/,N(nHl?<FN (n/,(n/,?<&N.(n/,a ODD R?<N.(n/, ><(_8(n/,.9l(_((n/,N(nHl?<FN (n/,(n/,?<&N.(n/,a ORD R?<N.(n/, ><(_8(n/,.9t(_((n/,N(nHl?<FN (n/,(n/,?<&N.(n/,a CHR R?<N.(n/, ><(_8(n/,.9p(_((n/,N?<apDd(nHl?<FN (n/,(n/,?<&N.(n/,a SUCC R?<N.(n/, ><(_8(n/,N(nHl?<FN (n/,(n/,?<&N.(n/,a PRED R?<N.(n/, ><(_8(n/,N,^N]NuNU?<N?<anDdP(nHl?<FN (n/,(n/,?<&N.(n/,a SIZEOF R?<N.(n/, ><(_8(n/,.9t(_((n/,N(nHl?<FN (n/,(n/,?<&N.(n/,a ADDR R?<N.(n/, ><(_8(n/,?<N (n/,(_+T(m8/-X.<(_((n/,N(nHl?<FN (n/,(n/,?<&N.(n/,a LO R?<N.(n/, ><(_8(n/,.9t(_((n/,N(nHl?<FN (n/,(n/,?<&N.(n/,a HI R?<N.(n/, ><(_8(n/,.9t(_((n/,N?<aDd(nHl?<FN (n/,(n/,?<&N.(n/,a CONCAT R?<N.(n/, ><(_8(n/,.9`(_((n/,N?<a|Dd(nHl?<FN (n/,(n/,?<&N.(n/,a WRD R?<N.(n/, ><(_8(n/,.9X(_((n/,N(nHl?<FN (n/,(n/,?<&N.(n+l/-a LONG R?<N./- ><(_8(n/,N(nHl?<FN (n/,(n/,?<&N.(n+l/-a SHORT R?<N./- ><(_8/-.9t(_((n/,N(nHl?<FN (n/,(n/,?<&N.(n+l/-a XLONG R?<N./- ><(_8(n/,N,^N]NuNU?<N/- ><(_8/- .<(_(/-  ><(_8/- ><(_8Hm?<VN /-/-?<&N./-a ........R?<N./-.<(_(/- "(_+T.-f/- ".-(_(`>/-(_.g/-(_+T`/-.-(_(,^N](_PNNU?<N(n Hlf?<VN (n /,f.9t(_((n /,f><(_8(n Hlj?<VN (n /,j.9h(_((n /,j><(_8(n Hln?<VN (n /,n.9t(_((n /,n><(_8(n Hlv?<VN (n /,v.9`(_((n /,v><(_8(n Hlr?<VN (n /,r.9`(_((n /,r><(_8(n Hlz?<VN (nHl?<N (n/,X.<(_((n /,z(n.,(_((n /,z><(_8(n Hl~?<VN (n /,~.9d(_((n /,~><(_8(n Hl?<VN (nHl?<N (n/,P.<(_((n/,X.9p(_((n/,><(_8(n/,><(_8(n /,(n.,(_((n /,><(_8(n Hl?<VN (n /,.9p(_((n /,><(_8(n Hl?<VN (n /,.9l(_((n /,><(_8,^N]NuNU?<NaJ?<aDd(n Hl?<PN (n /,a OPEN R?<N.(n /,".<(_((n /,".<(_((n /,(n/,za(n /,(n/,va߮(n /,(n/,faߚ(n /,N?<adDd((n Hl?<PN (n /,a OPENX R?<N.(n /,".<(_((n /,(n/,za (n /,(n/,va (n /,(n/,fa(n /,(n/,na(n /,N(n Hl?<PN (n /,(n)_(n Hl?<VN (n /,.<(_((n /,.<(_((n /,><(_8(n /,a BLOCKREAR?<N.(n /,".<(_((n /,(n/,za(n /,(n /,a(n /,(n/,fa(n /,(n/,na(n /,(n/,na(n /,N(n Hl?<PN (n /,(n/,?<&N.(n /,a BLOCKWRIR?<N.(n /,N,^N]NuNU?<N?<aDdl(n Hl?<PN (n /,a CREATE R?<N.(n /,".<(_((n /,(n/,za(n /,(n/,va(n /,(n/,faܰ(n /,N(n Hl?<PN (n /,(n)_(n /,a PURGE R?<N.(n /,".<(_((n /,(n/,za4(n /,N(n Hl?<PN (n /,(n/,?<&N.(n /,a CHAIN R?<N.(n /,N?<aۤDd(n Hl?<PN (n /,a RESET R?<N.(n /,".<(_((n /,(n/,za`(n /,(n)_(n /,N(n Hl?<PN (n /,(n/,?<&N.(n /,a REWRITE R?<N.(n /,N(n Hl?<PN (n /,(n/,?<&N.(n /,a GET R?<N.(n /,N(n Hl?<PN (n /,(n/,?<&N.(n /,a PUT R?<N.(n /,N?<a Dd(n Hl?<PN (n /,(n)_(n /,a CLOSE R?<N.(n /,".<(_((n /,(n/,zaٸ(n /,(n/,fa٤(n /,N,^N]NuNU?<N?<aZDd(n Hl?<PN (n /,a CLOSEDELR?<N.(n /,".<(_((n /,(n/,za(n /,(n/,fa(n /,N(n Hl?<FN (n /,a GNB R?<N.(n /,.9p(_((n /,".<(_((n /,(n/,za~(n /,N(n Hl?<FN (n /,a WNB R?<N.(n /,.9l(_((n /,".<(_((n /,(n/,za(n /,(n/,a(n /,N?<aװDd(n Hl?<FN (n +l/-a IORESULTR?<N./-.9t(_(/-".<(_(/- ><(_8/-><(_8/-.<(_(/-><(_8(n /,N?<aDd(n Hl?<FN (n /,a LENGTH R?<N.(n /,.9t(_((n /,".<(_((n /,(n/,va֎(n /,N(n Hl?<PN (n /,a DELETE R?<N.(n /,".<(_((n /,(n/,ra"(n /,(n/,na(n /,(n/,na(n /,N(n Hl?<FN (n /,a POS R?<N.(n /,.9t(_((n /,".<(_((n /,(n/,vav(n /,(n/,vab(n /,N(n Hl?<PN (n /,a INSERT R?<N.(n /,".<(_((n /,(n/,va(n /,(n/,ra(n /,(n/,na(n /,N(n Hl?<FN (n /,a COPY R?<N.(n /,.9`(_((n /,".<(_((n /,(n/,vaJ(n /,(n/,na6(n /,(n/,na"(n /,N,^N]NuNU?<Naaa,^N]NuNU?<N?<aӸDd(n Hl?<PN (n /,a ASSIGN R?<N.(n /,".<(_((n /,(n/,zat(n /,(n/,va`(n /,N?<a*Ddn(n Hl?<PN (n /,a PAGE R?<N.(n /,".<(_((n /,(n/,~a(n /,N?<aҰDd(n Hl?<FN (n /,(n)_(n /,a EOLN R?<N.(n /,".<(_((n /,.9l(_((n /,(n/,~aD(n /,N(n Hl?<FN (n /,a EOF R?<N.(n /,.9l(_((n /,".<(_((n /,(n/,za(n /,N(n Hl?<VN (n /,.<(_((n /,.<(_((n /,><(_8?<a2Dd(n Hl?<FN (n /,a SWAP R?<N.(n /,.9t(_((n /,".<(_((n /,(n /,a(n /,N(n Hl?<PN (n /,a MOVE R?<N.(n /,".<(_((n /,><(_8(n /,(n /,aT(n /,(n /,a@(n /,(n/,na,(n /,N(n /,(n)_?<aDdJ(n Hl?<PN (n /,(n/,?<&N.(n /,a MOVELEFTR?<N.(n /,N(n Hl?<PN (n /,(n/,?<&N.(n /,a MOVERIGHR?<N.(n /,N(n Hl?<PN (n /,a FILLCHARR?<N.(n /,".<(_((n /,(n /,a(n /,(n/,na(n /,(n/,a(n /,N,^N]NuNU?<N?<a|Dd4(n Hl?<FN (n /,(n)_(n /,a SIN R?<N.(n /,.9h(_((n /,".<(_((n /,(n/,ja(n /,N(n Hl?<FN (n /,(n/,?<&N.(n /,a COS R?<N.(n /,N(n Hl?<FN (n /,(n/,?<&N.(n /,a SQRT R?<N.(n /,N(n Hl?<FN (n /,(n/,?<&N.(n /,a ARCTAN R?<N.(n /,N(n Hl?<FN (n /,(n/,?<&N.(n /,a LN R?<N.(n /,N(n Hl?<FN (n /,(n/,?<&N.(n /,a EXP R?<N.(n /,N(n Hl?<FN (n /,(n/,?<&N.(n /,a TRUNC R?<N.(n /,.9t(_((n /,(n)_(n /,N(n Hl?<FN (n /,(n/,?<&N.(n /,a ROUND R?<N.(n /,N,^N]NuNU?<N?<a(Dd(n Hl?<FN (n /,a TSTBIT R?<N.(n /,.9l(_((n /,".<(_((n Hl?<VN (n /,><(_8(n /,.<(_((n /,.<(_((n /,(n /,at(n /,(n/,na`(n /,(n)_(n /,N(n Hl?<FN (n /,(n/,?<&N.(n /,a SHL R?<N.(n /,.9t(_((n /,N(n Hl?<FN (n /,(n/,?<&N.(n /,a SHR R?<N.(n /,.9t(_((n /,N(n Hl?<PN (n /,a SETBIT R?<N.(n /,".<(_((n /,><(_8(n /,(n /,a(n /,(n/,na(n /,(n)_(n /,N(n Hl?<PN (n /,(n/,?<&N.(n /,a CLRBIT R?<N.(n /,N,^N]NuNU?<Nababab,^N]NuNU?<N?< aDd(nHl?<FN (n+l/-a MEMAVAILR?<N./-".<(_(/-><(_8/-><(_8/- ><(_8/-.<(_(/-.9t(_((n+l(n/,N(nHl?<FN (n/,/-?<&N.(n/,a MAXAVAILR?<N.(n/,N?< aDd(nHl?<PN (n+l/-a SEEKREADR?<N./-".<(_((n/,(n /,zaƖ(n/,(n /,naƂ(n+l(n/,N(nHl?<PN (n/,/-?<&N.(n/,a SEEKWRITR?<N.(n/,N?<aDd(nHl?<PN (n+l/-a WAIT R?<N./-".<(_((n/,(n /,naŦ(n/,(n /,naŒ(n/,(n /,a~(n/,N(nHl?<PN (n+l/-a SIM85 R?<N./-".<(_((n/,(n /,na(n/,N(nHl?<FN (n+l/-a RIM85 R?<N./-".<(_(/-.9\(_(/-.<(_(/-><(_8/- ><(_8(n/,N,^N]NuNU?<N?<a Dd(nHl?<PN (n+l/-a READHEX R?<N./-".<(_((n/,(n /,~a(nHl?<VN (n/,><(_8(n/,.<(_((n/,(n/,aÆ(n/,(n /,nar(n/,N(nHl?<PN (n+l/-a WRITEHEXR?<N./-".<(_((n/,(n /,~a(n/,><(_8(n/,(n/,a(n/,(n /,na(n/,N(nHl?<PN (n+l/-a LWRITEHER?<N./-".<(_((n/,(n /,~aX(n/,(n/,aD(n/,(n /,na0(n/,N,^N]NuNU?<Naaaaaaaaaa,^N]NuNU^?<N/<?<ra comndata.datNB/<?<rN/<L/<2(_/?<rN.3333333333333><<<Gm,;G;Fd.<r<-Hކ(G8Rm<-dQ><<<Gm,;G;Fb.<,<-Hކ(G8Rm<-bQ3><<<ȜGmn;G;F`+|.<<-Hކ/X.<(_(.<<-Hކ(G8.<<-Hކ/T><(_8Rm<-`Q3><<<Gmf;G;F^.<<-Hކ(G(.<<-Hކ/X><(_8.<<-Hކ/\><(_8Rm<-^Q3/<?9NHmN/<L N:a.trlN:N/?<PNp/<?<HmNB/<?<NHmN/<L N:a.errN:N/?<PNp/<?<HmNB/<? GDd>/<N\aSYMBOL TABLE INITIALIZATION/<(_8/9$X.9p(_(/9$P.9\(_(/9$><(_8/9$><(_8(y(8>-,^N]Nu`````p``NU?<N><<<Gm;G;F(nHl<-.SFHކ(G  f?<NmP`(nHl<-.SFHކ(G @f?<_NmP`(nHl<-.SFHކ(G A\?(nHl<-.SFHކ(G Z__Dd,(nHl<-.SFHކ(GBG| ?NmP`$(nHl<-.SFHކ(GBG?NmPRm<-Q>-O?NmP?-WNmP?<NmP?<NmP>- O?NmP?- WNmP,^N](_XNNU?<N.-g/-(_ PW?/-(_ FWǎ_?/-(_ VWǎ_Ddd(nHl/-?<N./-(_> Gft/- (_>| GfV(nHl/- (_>|<.Hކ/(n>,(_8(n>,|?(n9_?<?<az`/-(_> Gg/- (_>| Gf/-(_ Vf2/- (_??<a(n>,|?(n9_`P/- (_> Go:/- (_>|<<??<a(n>,|?(n9_/-P(_/a/- (_/a,^N](_XNNU?<N/<2(_/(n<,.Hކ(G- (n?,RW(n9_(n>, Go?<(n9_/<?<N,^N](_TNNU?<N>-|;G>9<9F_?>- G]_Dd.<D<9SFHކ(G?>9|<<ƞ_DG|;G(nHl<-.Hކ/>-O(_(nHl>-|<.Hކ/?-W>(_>-|;G/<>9|(_8`@,^N](_TNNU?<N| >9 GV?>9 G9V_Dd ?<Nmh>9 Gg?<NmL`/<?<HmN;|;|;|Hm?<?<N0><<<SGm;G;F.<<-Hކ(G> GgHm<-.Hކ(G8Hma _ R?<N.><<<GmR;G;FHm><m<.SFHކ/.<<-Hކ<-SFHކ(G(_Rm<-Q?<?<a>-|;GRm<-Q.Hm?<?<N0;m;|;|/<P(_/a~;|/9an;y>9<<HǏHGgDG Gg?<NmP`HmzN/<L N:a.trlN:N/?<PNp/<F?<HmzNB/<F?<NHmzN/<L N:a.o N:N/?<PNp/<?<HmzNB/<?<N/<FN\HmN/<|/<P(_>(_8Hm >-O(_Hm ?-W>(_Hm>9|O(_Hm?9|W>(_Hm>9O(_Hm?9W>(_>9|;G;|;|3?<a>- G^?>- G__Dd2Hm<-.Hކ(GBG?a?-SW;_?-RW;_`/<F?<N| GDdx/<FN\HmN;|?<a8>- G^?>- G__Dd2Hm<-.Hކ(GBG?a?-SW;_?-RW;_``r/<?<N/<?<N| GDdp/<N\HmN;|>- G_?>- G^_Dd2Hm<-.Hކ(GBG?ad?-RW;_?-SW;_``z>9D Gg?<Nm`/<?<N/<L(_>Dd/<F?<N;y/<?<N| GDdh/<N\HmN;|>- G_?>- G^_Dd>-<<HǏHGgDG GfHm<-.Hކ(GBG<<HǏHGgDG;GHm>-|<.Hކ(GBG;G>- GmHm<-.Hކ(GBG;G`>- Gg;|>- Gf>-<<@HǏ Gf ;|`;m>-<<@HǏHGgDG<< ?Hm<-.Hކ(GBG<<HǏ_;G>- GgHm<-.Hކ(G;T`Hm<-.Hކ(G;T>-m<<m;G>-O;G?-W;_Hm<-.Hކ(G>-Hm>-|<.Hކ(G>-Hm>-|<.Hކ(GBG?aHm<-.Hކ(GBG?a?-RW;_?-SW;_`/<L(_>Dd/<FN\HmN*`/<L(_>Dd/<FN\HmN*>- Gg ?<a2`/<L(_>DdV/<F?<HmN/<?<HmN/<?<HmN/<?<HmN`z/<F?<HmNZ/<?<HmNZ/<?<HmNZ/<?<HmNZ/<?<rHmNZ/<?<HmN/<N\Nf/<N\aLINES :/9y??<?Dd/<L (_T- @f Hmza DIS68.68K?<PNp`@HmzNBG-?N a :DIS68.68KN:N/?<PNp/<?<HmzNB/<?<N,^N]NuNU?<N(m 8,^N](_\N``NU?<NNm N >9 GV|DdNm ,^N]Nu``z`````,`V`````*```` 8`D` ` ` J` ` `` `8``6`t```NU?<N;|>-,^N]NuNU?<N?<Nmh,^N]NuNU?<N/9/9tN$;G>-,^N]NuNU?<N/9/9N$;G>-,^N]NuNU?<N/9/9lN$;G>-,^N]NuNU?<N/9/9pN$;G>-,^N]NuNU?<N/9/9hN$;G>-,^N]NuNU?<N/9/9XN$;G>-,^N]NuNU?<NNm .-fNm >9 GfNt;|`HHmNTNt>9|<-Fo ?<2NmhHmNT;|;yNm ?-?-NT#\`/-(_ Tf ?<gNmh/-Hm?<HmHmHmN+m+m>-Dd$/-T(_> Gn(m?Nv`>9 Gf ;|`;|/-T(_> Gnr.-侼g*/-(_??-/-?-/-N&`8/-(_?/- (_>m?/-?-/<N&`n.-侼g*/-(_??-/-?</-N&`8/-(_?/- (_>m?/-?</<N&#>9 Gf ?<gNmh,^N](_XNNU?<N/9T(_> Go ?<Nmh,^N]NuNU?<NNm >9 GfJ/<NNA+m>-DdD/9/-X(_/N$ GDd?<Nmh`/-X.9(_(`/-X.9(_(>9 GfFNm Nta/9/-X(_/N$ GDd ?<NmhNA<`NA8>-Dd ?<NA4>9 GW|;G>-DdNm >- GDd#Nm ,^N]NuNU?<N;|>9 GfNm NtNm `>9 Gf a`>9 GfHmN.-g/-(_ Pf?<gNmh`/-(_ Ff/-N6`d/-(_ CfFHmHmN8/<Hm?<N.#/-HmNa;G` /-a`>9 G(W?>9 GCWǎ_Ddn;yNm a;G>- G(f0a GDda?<?<NA(#l`?<?<NA(#`R>9 G?fNm /<N`.HmHmN8#/-HmNa;G>-,^N]NuNU?<N/9/9tN$Dd?<NA,#h(m//9tN$Dd?<NA,(m(h,^N](_XNNU?<Nar?(n/,/9tN$_Dd|(n?,(n>,_DdJ(nHlNT(n>,<9?(n9_(n?,N(nHlNT`0?<(n9_?<NA `a?(n/,/9XN$_Dd?< NA `a?(n/,/9N$_Dd?< NA `.9־hW?(n.,hWǎ_Dd>(nHlav/9(n/,N$Dd?<NA,`a`T/9(n/,N$ GDd a`./9T(_> Gg?<Nmh` ?<NA4,^N]NuNU?<N(nHla/9(n/,N$Dd?<NA,`at,^N]NuNU?<Na`?(n/,/9tN$_Dd?<NA `faD?(n/,/9XN$_Dd?<NA `6a?(n/,/9N$_Dd?< NA `a,^N]NuNU?<Na?(n/,/9tN$_Dd?<NA `fa?(n/,/9XN$_Dd?<NA `6a\?(n/,/9N$_Dd?<NA `a$,^N]NuNU?<N(n>, GAf?<?<NA(`Za?(n/,/9lN$_?a?(n/,/9XN$__Dd?<?<NA(`a,^N]NuNU?<NHmNTa?aj_;G;y>9 G)W?>9 G+Wǎ_?>9 G*Wǎ_?>9 G-Wǎ_?>9 G0Wǎ_?>9 GAWǎ_Dd3;y+y#Nm a?a_;G>- G)g;|>- G)f a``>- G+f a`L>- G*f a`8>- G-f a`$>- GAW?>- G0Wǎ_Dda`;m3>-,^N]NuNU?<Na(Dd?<NA,`aDd`(n>,DdH(nHlNT(n?,DWN(n?,DW(n9_(nHlNT``NA@`.aDd NA@`aDd NAD`al,^N]NuNU?<N(n>,DdB(n ?,>9<- _?(n 9_(n HlNT(n ?,N` ?-NA (n HlNT,^N](_\NNU?<Na?(n/,/9tN$_?a?(n/,/9XN$__DdJ(n?,(n>,_;G>-Dd?<?<?<a`?<?-Dd?<NA,` ?<NA,`a`/9T(_> GfN/9(n/,N$ GDd a`$>-Dd?<NA4` ?<NA4`Na~?(n/,/9N$_Dd(>-Dd?< NA ` ?< NA `a.,^N](_TNNU?<N(n>, GBf?<?<NA(`Za?(n/,/9lN$_?a?(n/,/9XN$__Dd?<?<NA(`a,^N]NuNU?<NHmNT;|>9 G,f;|Nm `>9 G.f;|Nm at?a2_;G>-Dd ;y>- Gf af`$>- Gfa ?a_Dda>9 G,W?>9 G.Wǎ_?>9 G/Wǎ_?>9 GBWǎ_Dd3;yNm +y#HmNTa?af_;G>- G/W?>- GBWǎ_?>- G_Dd;|>- G,f?<a`<>- G.f?<ah`$>- G/W?>- GBWǎ_DdaJ`,^N]NuNU?<N/9(n/,N$ GDd.9־hW?(n.,hWǎ_Dd8(nHla/9(n/,N$ GDd aV``(n/,N ?.9־pW_?/9N ?(n.,pW__Dd2(n.,pf NTt`NTp#``(n/,N?/9N_?(n/,N?/9N__Dd(n/,N;G>-DdNT ?<NT0>-Dd(n/,><(_8`/9><(_8/9(n/,N$ GDda>-Dd"NT (n/,><(_8`(/9><(_8/<(n.,(_(a?a꾎_?a겎_?aꦎ_?(n/,T(_> G_ǎ_?/9(n/,N$_DdB(n/,T(_> Gf?-(n/,NAL`?-/9NAL`*a6Dd?-NA\`+y/-T(_> GW?/-T(_> GWǎ_Dd/-T(_> GW?/-X(_.pV_?/-T(_> GWǎ_Dd*>- GV?>- GV_Dd ?<Nmh/-T(_> Gf4/-(_> Gg?-NAd` ?-NAh` ?-NAh`&/-T(_> Gf?-NAl`a,^N](_TNNU?<N#/<NTa >9 G7W?>9 G3Wǎ_Dd|;y;|>9 G7f(|fBG?`;|`;|`;|`;|`x;|`n;|`d/<N\aERROR IN CASE FOR OPTYPE!!!/- G7f?-a#l`h>- G3f\/9T(_> Gg?<Nmh`&/-/9X(_/N$ GDdaD?<NA4#l,^N]Nu``NU?<N>9~ Gf6.<<9Hކ+G(m;T/-(m>|(_8`L.<<9Hކ/.<<9Hކ(G>|(_8.<<9Hކ(G;THmNHmNNm HmN/-(_><9~FV?/-(_> GWǎ_Dd ?<NmhNm /-Hm?<HmHmHmNNm /-T(_> G\?/-/9hN$_?/-/9XN$_?.-Vǎ_Dd ?<NmhNt/-/9N$ GDd ?<Nmh;yNm Nt/9/-N$ GDd ?<Nmh?-/-(_?/- (_??-?-?-NT4Nm N ?-/-(_?/- (_??-?-(m?NT8?-N,^N]Nu``NU?<NNm ?9HmN T/<^a # R?<N.><<<GmH;G;F/<^><m<.SFHކ/Hm<-.SFHކ(G(_Rm<-QHmN.-gr/-(_><9~FgD?9~/-(_>|<>Gn"DF;G;F/-NT Sm<-Q/- (_?NTNm ,^N]Nu``NU?<N>9 G$fN XNm Nm >9 Gf:HmN/-(_ Pf/-N6`N`>9 Gf N`>9 Gf N^`>9 Gf N`v>9 Gf N`^>9 Gf Nnp`F>9 Gf N`.>9 Gf N`>9 GfN t,^N]Nu```V`$````NU?<NNm\ G@]?Nm\ G^_Dd ?<Nmh,^N]NuNU?<NBG- ?``/- ?<Nn`/- ?<"Nn`t/- ?<&Nn`b/- ?<$Nn`P/- ?<Nn`>`:?<V?<CN(m /- (_a,^N](_\NNU?<N?-``/- ?<Nn`p/- ?<Nn`^/- ?<Nn`L/- ?<Nn`:/- ?<Nn`(`$?<?<N(m /T>-(_8a*,^N](_\NNU?<N?-`r/- ?<Nn`~/- ?<Nn`l/- ?<Nn`Z/- ?<Nn`H/- ?<Nn`6/- ?<Nn`$` ?<?<N(m (T8an,^N](_\NNU?<N/-?<NnaD,^N](_XNNU?<N/-?< Nna,^N](_XNNU?<N/-?<Nna,^N](_XN``:`L```H`N````j```` X`NU?<N.<<9Hކ(G+T.-f.<<9Hކ(G(`/-Hm/-Nmp;G>- GfH?<eNmh/-P(_.f ;|`/-P(_/Hm/-Nmp;G`>- Gf/-P.-(_(`/- .-(_(/- .<(_(/-P.<(_(,^N](_XNNU?<N3>9 Gmr.<<9Hކ(G+T.-g6/-Hm/<^Nmp Gf(m(`D` +|/<>9|(_8`>9 GDd?<hNmh+y(m(,^N](_XNNU?<N/- /-/<^Nmp Gg (m(,^N](_PNNU?<N/-T(_> Gf./- /-(_>(_8/-/-P(_>(_8`(m 8.-pf(m8`.-tf(m 8(m8`n/-\(_.gR/-\(_+T/-(_.g/-(_+T`/-/-(_>(_8` (m8,^N](_ NNU?<N;|/-T(_> Gf2/-X(_.pf/-(_> Gf;|>-,^N](_XNNU?<N;|/-T(_> Gf2/-X(_.pf/-(_> Gf;|>-,^N](_XNNU?<N;|/-T(_> Gf2/-X(_.pf/-(_> Gf;|>-,^N](_XNNU?<N>9Dd?<(n9_`p?<(n9_(n/, X(_/(n/,X(_,f?<(n9_(n>, GDd,(n/, X(_/(n/,X(_/a?(n9_(n?,(n9_,^N]NuNU?<N(n/, X(_/(n/,X(_/a?(n9_(n?,(n/, X(_.pW_Dd(n/, af?(n/,aX_DdR(n(l ?(n(l<>FW|?(n/, P(_/(n/,P(_/a_?(n9_`H(n/, (_> GV|?(n/,(_> GV|_?(n9_`$(n/, (n,,W|?(n9_(n?,(n9_>9 GDd>(n?,(n/, (_>_?(n/,(_>_?(n9_,^N]NuNU?<N(n/, P(_/(n)_(n/,P(_/(n)_?<(n9_(n.,V?(n.,V_?(n>,_Ddl(n/,(_/(n/,(_/a?(n9_(n/,(_/(n)_(n/,(_/(n)_`b(n?,(n.,W|_?(n.,W|_?(n/, X(_.W|_?(n/,X(_.W|_?(n9_>9 GDd>(n?,(n/,  (_>_?(n/, (_>_?(n9_(n?,(n9_,^N]NuNU?<N.- \W?.-\Wǎ_yDd2.- pf+y\ `.-pf +y\.- f ;|`^.- W?.-Wǎ_Dd ;|`2/- T(_?/-T(_<>Ff/- T(_?`/- X(_//-X(_/a;G`;|`|a~`t/- X(_//-X(_/a^;G`Ta^`LaZ`D/- X(_//-X(_/a.;G`$` ?<?<Nl``/- T(_> Gf/- X(_//-a;G`4/-T(_> Gf/- /-X(_/a;G`;|>-,^N](_PNNU?<N+|(m8>9 G'f>9 Gf"+yp/<(|fBG(_8`>9 GgN><<9Gm>;G;F.9 <-Hކ/.<f<-SFHކ(G(_Rm<-Q(y >9/9$ >9(_(y$8/9$><(_8+y$/9(T.9 (_(/<T.9((_(/-/<?<N.Nm `;|>9 G,fNm ;|`>9 G.fNm ;|>9 Gf@Hma/-(_ Cg?<gNmh`P>- GV?/-(_.tV_?/-(_.hV_Dd ?<iNmh/-(_+T/-/-?<N.>- Gg.-tf$>- Gf/-(m?DW>(_8`X.-hf>- GfHm?<N +m/-T/-T(_/T?<N./<L(_>DdD/-(_> Gg/-><(_8`/-><(_8`H/-T(_> Gm/-T/-T(_>|(_8`/-T/-T(_>|(_8/-T.-(_(`^.-fFHm?<N /-T/-T(_/T(_.(_(/-T/-T(_/D.(_(` ?<iNmhNm `X>9 G$fH>- Gf/<?9DW>(_8+yt/-/<?<N.Nm `>9 G%f+yh/-/<?<N.>- GfR/-T(_+T/<L(_>Dd/-><(_8`/-T/-T(_>|(_8Nm `t>9 GDf\>- Gf*/<T(_/T/<T(_/T(_/D.(_(+y/-/<?<N.Nm ` ?<jNmh(m (,^N](_PNNU?<N>9Dd ?<Nmh,^N]Nu```2NU?<N?9NmL33 ,^N]NuNU?<N?-W;_?-NmL,^N](_TN``NU?<NHmNHmNNm 333Nt/9/9lN$ GDd ?<Nmh?<?-NS333Nm N >9 G f*?<?-NS?-NNm N ` ?-N?-N,^N]Nu```NU?<NHma0123456789ABCDEFR?<N./-Hm>- O<<HǏ|<.SFHކ(G(_/-RHm>- O<<HǏHGgDG|<.SFHކ(G(_/-THm?- W<<>HǏ|<.SFHކ(G(_/-VHm?- W<<>HǏHGgDG|<.SFHކ(G(_,^N](_\NNU?<N?9Hma/<^a # R?<N.><<<GmH;G;F/<^><m<.SFHކ/Hm<-.SFHކ(G(_Rm<-QHmN.-g/-(_> GV?/-(_> GV_Dd?<Nmh`N/-><(_8/->9(_8/<D/- (_<.SFHކ(G8,^N]Nu``Z`t````:```` ` ` ` ` ` ` ` b` ` @` `N`v`DNU?<N?<}Nmh,^N]NuNU?<N>9 Gg"?<Nmh>9 Gg Nm `,^N]NuNU?<N>9 Gga&Nt`ZHmNNm .-g Gn(n/,/9tN$Dd((n(l> Gf NT`NTH`j(n/,/9pN$Dd NTL`F(n.,hf NTP`*(n/,/9N$Dd NT`a`@(n/,N Dd((n/, (_BG?NNTT`a`,(n/,X(_/(n,,f NT`ad,^N]NuNU?<N+yd;m;|>9 Gg&>- Gg a`NT|NTX`Nm >9 GfL;|Nm Nt(y><9ξFgaNm NT>9 GfNm >9 Gg/<Hma/-T(_> Gf(>-Dd ap`?<NTD+m`>- GDdNT|aT>9 GfNm /<Hma&a.`Nm >- GfNTX>-DdNT,^N](_TNNU?<N(n.,dfZ(n/,T(_> Gn<(n/,T(_> Gn(n/,/9tN$Dd NT\`(n/,/9pN$Dd NT``b(n.,hf NTd`F(n.,lf NT`*(n/,/9N$Dd NT`a`v(n/,T(_> Gf\(n/,X(_.pf<(n/,N?(n/,N _Dd NT`NTh`a`az`ar`,(n/,X(_/(n,,f NT`aD,^N]NuNU?<N+yd;|;m;|>9 GgNT>9 GfNm >9 Gf;|Nt/9T(_> Gf0?<NTD+y>9 Gf ?<Nmh`NT;|>9 GW?>- G_DdNm `T>9 Gf@;|Nm Nt(y><9ξFg a&`NTNm `NT>9 GVǎmDd>9 GW?>- G_DdNm >- GDd..-df Nt`/</<a`;|.-df*+y/-T(_> Gfh/-X(_.pW?/-(_> GW_Dd8/-P(_/HmHmN>- Gg a` ?-N>9 GfNm +yNt/9/9tN$ GDd ?<Nmh>9 Gf8Nm Nt/9/9tN$ GDd ?<Nmh` ?9 GV|DdF>9 GfNm >- GfNTl>-DdNT,^N](_TNNU?<N/</-aNm ,^N](_XNNU?<NNtNm /9/-P(_/N$ GDda/-P(_/HmHmN?-/-X(_(T?NT<,^N](_XNNU?<NNm Hma\/-aXHmaLNT (m?NNT,^N]NuNU?<NNm HmaHma /-aNT (m?NNT,^N]NuNU?<N(m;T/-X(_+T.-W?>9 GW_Dd?<Nmh`>9 GfHNm HmHmN8.-f?<Nmh`/-T(_> Gg?<Nmh`+m/-X(_.g.-hW?/-T(_> G^ǎ_Dd?<Nmh`/-X(_/(_//-N$Ddx/-P(_+T.-gJ+m/- (_><-Ff(m;T/-P(_+T``/-X(_+T`(m;T+|` ?<tNmh`;m>-,^N](_XNNU?<NNm /<Hma/-T(_> Gg a`/-X(_+T/-a;G>- G f?-N?<NTD`"?9Nv?-N?<NTDarNm ,^N](_TNNU?<NNm NtaDNm .9־hf>-|?NA0`*.9־tf>-|?NA `a,^N](_TNNU?<NNm NtaNm .9־g4/9T(_> G\?/9/9hN$_Dda~,^N]NuNU?<NN9 GgaLNt`^HmNNm .-g@HmNT/-Hm?<HmHmHmNHmNT(m?N#taNm ,^N]NuNU?<NN9 Gf6HmN/-(_ Ff/-NTxNm `/<Hmaj/</-(_.(_(aJNm ,^N](_XNNU?<NN9 Gg;|;y>9 G)W?>9 GWǎ_DdNm ;yNm ;y?-`/<L(_>Dd ;| `;|?<>-|<>Gm<;G;F/<T(_/T<-.Hކ(GBG?NRm<-Q`/<T(_/T(_+T?-N?-N`t>- G]?>- G\_Dd?-N` ?-N`:(|fBG?N`$><<9Gm4;G;F.<f<-SFHކ(GBG?NRm<-Q`>9|m;G>- G,f?-N`>-mm?N`HmN;|Nm .-g/-(_ Cf/-(_?N`/-(_ VW?/-(_> GW?/-(_> GWǎ__DdH/-(_> Gf/- (_?N`/- (_?N` ?<Nmh`?<Nmh`?<D?<NtTj>- GDdNm ;|>9 G+fNm `VNm ,^N]NuNU?<NN9 GgpNt/9N?/9N _Dd?<NAH`$.9־pf?<NAH`a>9 GfNm `Nm ?<NAH#`,^N]Nu``"`8``` T`````NU?<N/-P(_.f/-(_+T/-(_?/- (_?/-(_/?</<N&/-(_/(_?/-(_/ (_?/-(_/?</<N&`./-P(_/HmHmN?-N?-N/-X(_+T/-T(_> GV|Dd,^N](_XNNU?<N;|;|/- (_+T/-P(_.g/-(_//-P(_/N$ GDd ;|`/-P(_+T/-(_/HmHmN/-HmHmN>-<-F]?>-<-F^ǎ_Dd ;|`j/- X(_//-X(_,gP/- X(_/T(_> Gf8/- X(_/P(_.f/- X(_//-X(_/a;G`/-(_+T/-(_//-(_/N$ GDd ;|`/- X(_//-X(_,g/- X(_/T(_;T?-/-X(_/T(_<>Fg ;|`n>- Gfb/- X(_/P(_.W?/-X(_/P(_.W_Dd"/- X(_//-X(_/a;G`;|;m>-,^N](_PNNU?<N?<(n9_,^N]NuNU?<N;|/- "(_+T /-"(_+T.- V?.-V_DdHm/- ?<&N.Hm/-?<&N.>-<-Fg a`2>- GW?>- GWǎ_Dd.-Ⱦga`-?->g a~`- Pf/- /-a^ GDd aT`- Ff/- /-a4 G?.-ȾW_Dd a`/-T(_> Gg.-Ⱦga`^/-P(_.W?/-P(_.W_Dd /-/-a GDda`.-Ⱦga/- (_+T /-(_+T`R.- g;|>-,^N](_PNNU?<N?<Nmh,^N]NuNU?<N(nHl(n /,?<&N.(nHl(n /,?<N.(nHla RESET R&_(_| VW|?(nHla REWRITE R&_(_| VW|_?(nHla OPEN R&_(_| VW|_?(n>, GW|_?(n9_(nHla EOF R&_(_| VW?(nHla EOLN R&_(_| VWǎ_?(n>, GW_Dd.>9 Gg NT?9 GV?(n .,V_Dd ?<~Nmh,^N]NuNU?<N(n>, GW?(n>, GWǎ_Dd|(n>,<9F^?/<(n<,.Hކ/T(_> G_Dd>/<(n<,.Hކ+G/-T><(_8/-(m>y(_8(n>, Gf:(n?,(n?,/9?</<N&(n /,NS`Z(nHla LENGTH R&_(_| VW?(n>, GW_Dd?<Nv`(n /,NS,^N]NuNU?<Na6>9 Gf`Nm Hm(n/,?<&N.>- GW?>- GWǎ_DdNt/9/-N$ GDd/9/9tN$?.-hW_Dd?<NA,`/9N?/-N_DdB/9><(_8?<NT(/9/-N$ GDda8`6.9־pW?/-N _Dd?9 GgaNt`(nHlNNm BG-?(n/,(_>V?- VW?(n/,(_ RV__Dd ?<gNmh(n.,gh(n/,(_ Fg,(n/,Hm?<HmHm(nHlN`$(n/,NTx(n/,(_+T.-gz/-T(_> Gfh?-.-dW_Dd?- Gf6/-X(_.g/-X(_(T?N` ?<N- PV?- FV_Dd.-V?.-V_Dd+m/-T(_?/-T(_<>Fg a`/-T(_> Gfh/-P(_.f9 GDda` /-a`>9 GDda`>- Gga`$(n/,(n/,a\ GDda^(n.,g/-(n)_>9 GV|?(n.,W|_Dd>9 GW?(n.,Vǎ_Dd ?<~Nmh>9 Gg Nm `Nm a#,^N]NuNU?<N+m/-"(_+TNm >9 GW?>9 GWǎ_?>9 GWǎ_Dd ?<gNmh/- (_?DW;_>- Gop?-`?-N"`V?-N"`HN GoN"#`N"Nb(y> GgN"#t`N"N^(y> GoN"#``?<<<<GmH;G;F/<^><m<.SFHކ/Hm<-.SFHކ(G(_Rm<-Q/-.<(_(/->9~(_8/- >9|(_8/-><(_8/-/<^?<N./-".<(_(.<<9Hކ(G.fH/-N.<<9Hކ+G/-X(_.f/-X.-(_(` /-NNm /<>9|(_8>9 GW|DdRNm ,^N]NuNU?<NNm >9 GfrHm?<CN /-/<^?<N./-.<(_(/-.<(_(Nm Nm >9 Gf9<9FV?>9 GV_Dd ?<NmhHmHmN8/-T(_> GfvHm?<N +m(m8/-X.9p(_(/- (y (_/-><(_8/-><(_8Hm?<N +m(m8/-X.9t(_(/-><(_8/-P(y BG(_8/-P.-(_(Hm?<N Nm\y G@l ?<NmhHm?<QNn(y  gP?<(y BF>Gm:;G;F.-<-Hކ/.9 <-Hކ(G(_Rm<-Q/-T.-(_(+m/-.-(_(/-Hm?<N./-NNm `,^N]NuNU?<NNm >9 GfHm?<TN /-/<^?<N./-.<(_(/-.<(_(Nm Nm >9 Gf9<9FV?>9 GV_Dd ?<NmhHmHmNo/-.-(_(/-N+yx.-g(m&m| Vfj/-(_/X/-(_.(_(.-xg"/-/-(_.(_(`/<x/-(_.(_(;|(m&m| VfN/-(_.g6/-/-(_&T(_| Vf.-xg;|>-Dd+m/-(_+T`Nm `.9xgN.9xg>/<^/9x?<N.?<uNmh/<x/9x(_.(_(`,^N]NuNU?<N#xNm +|Hm?<VN +m/-/<^?<N./-.-(_(/-.<(_(>9Dd/-><(_8`/-><(_8/->9~(_8/-N+mNm >9 GV|;G>- GDdNm >-Dd$Nm +m>9 G=W|;G>-Dd Nm >9~ Gg ?<Nmh>9 G@W|;G>-DdNm Nm HmHmN8/-/9tN$ GDd ?<2Nmh;m>9 Gf`/<N\a*(*** - WARNING - *** NO SEGMENTS ON 68000/-Dd>-|;G.-g"/-.-(_(>-Dd@/- >9(_8/-><(_8/<>9|(_8`>-Dd6/- >-(_8/-><(_8>-m;G`v/-(_> Gf8/- >9|(_8/-NmD/<|>9|m(_8`*/<|>9|m(_8/- >9|(_8/-(_+T`>-m GDd0>9|Dd$>9~ Gf/<|>9||(_8Nm >9 GV|DdZ.9xgN.9xg>/<^/9x?<N.?<uNmh/<x/9x(_.(_(`,^N]NuNU?<NNm Hm?<PN /-/<^?<N./-Nm<(_8/-.<(_(/->9~(_8/-><(_8/-N/<>9|(_8/<~>9~|(_8/<>9|(_83|>9 Gf<>- GDd ?<lNmhNm >9 GfNm Nm `Nm ,^N](_TNNU?<NHm?<VN +m/-/<^?<N.>9Dd/-><(_8`/-><(_8/->9~(_8Nm Nm Hm?<VN +m/-/<^?<N.>9Dd/-><(_8`/-><(_8/->9~(_8/-.<(_(Nm Nm HmNNm .-gX/-(_/T(_> G^?/-(_ TVǎ_?/-(_.hWǎ_Dd ?<gNmh/-/-(_.(_(/-/-(_.(_(/-.-(_(/<|?9|/-(_(T>_DG(_8>9|Dd/<|>9||(_8/- >9|(_8/<|?9|/-(_(T>_DG(_8>9|Dd/<|>9||(_8/- >9|(_8/-N/-N(m(,^N](_XNNU?<N?<(n9_Hm?<N +m(m8/- ><(_/-><(_8/-P.<(_(/-><(_8Nm Nm /-aP+m>9 Gf+mNm Hm?<N +m(m8/- ><(_/-><(_8/-P.<(_(/-><(_8/-X.-(_(/-a`fNm Nm >9 G2f/-Xa`lHmN.-g>/-(_ Tg ?<gNmh/-X/-(_.(_(`/-X.<(_(Nm (m(,^N](_XNNU?<N/<(n)_(n.,g(n/,(_/(n)_(n/,(n.,(_((n/,(_ PV?(n/,(_ FV_Dd(n/,(_/T(_> G_?(n/,(_> GWǎ_Dd(n/, >9|(_8(n/,(_> Gf/<|>9|y(_8`:(n >, GDd(/<|?9|(n/,(_(T>_(_8`(n >, GDd(n?,(n/,(_(T>_DG?(n9_(n/, (n>,(_8(n/,">9|(_8/<|>9|y(_8(n?,(n/,(_(T>_?(n9_(n>,Dd(n>,|?(n9_`B(n >, GDd0(n/, >9|(_8/<|>9|y(_8(n >, GDd">9|Dd/<|>9||(_8(n/,(n)_(n/,(n)_`P,^N]NuNU?<N;|;|(m(>9 Gg`+|Nm >9 GW?>9 GWǎ_?>9 GWǎ_?>9 G Wǎ_Ddv;y>9 GW?>9 GWǎ_?>9 G Wǎ_Dd:>9 GV?(n>,_Dd ?<NmhNm ;|`;|+|>- GW?>- GWǎ_DdHm?<VN +m/-/<^?<N./-.<(_(/->-(_8/-.-(_(/->9~(_8/-NNm +m>9 GV|;G>- GDdNm `|;y|?-Hma8Dd/-.-(_(+m;|3|/<>9|(_8/-><(_8/->9~(_8>-Dd;|>- GV?>- G V_DdxNm >9 G2f(>- GfHma` ?<Nmh`:HmNNm /-(_ Tg?<gNmh+|`>- Gf +|>- GDd,.-꾼g/-(_+T` +|+m.-澼g<>- GW?>- GWǎ_Dd/-T(_> Gf ?<yNmh.-g,+m/-.-(_(/-(_+T`/-.-(_(+m>9 GfNm `LNm a6(m(;m>-,^N](_ NNU?<N;|(n>, Gf43(nHlN3(n.,g(n+l/-(_ PW?/-(_ FWǎ_?/- (_> G]_?/- (_> GV_?>9 GV_DdP>9 Gf?<wNmh`>9 Gf ?<zNmh?<(n9_/<>9|(_8/<~>9~|(_8/- /- (_?DW>(_8(n/,(n.,(_(.<<9Hކ//</- (_<.Hކ/X(_.(_(.<<9Hކ/X><(_8Nm Nm ?<(n9_/<|/-(_/(_>(_8/-.<(_(;|`:/-(_><9~F\?>9 GV_Dd ?<eNmh>-,^N]NuNU?<N(n/,"(n.,(_((n>, G W?>9 GW_DdNm (nHlN(n/,(_/(n)_(n/,(n.,(_((n.,쾼g/<|?9|(n/,(_(T>_DG(_8>9|Dd/<|>9||(_8(n/,T(_> Gm$?<xNmh(n/,.<(_(Nm `0(n>, G?(n>, G W_Dd ?<zNmh>9 GW?(n>, GW_DdNm (n>, Gg./<>9|(_8/<~>9~|(_8`Z>9 G#fL(n/, (n/, (_?DW>(_8(n/,(_/>9|(_8,^N]NuNU?<N;|;|>9 G=W|?>9 G;W|_;G?->9~ GV_Dd ?<Nmh>9 G;W|;G;|>9 G;f Nm `>9 G=fNm >9 GflNm HmHmN8/<N\a0.*** - WARNING - *** USE LINK68 FOR OVERLAYS!!!/- Gf;y`;m >- G fHm?<FN `Hm?<PN >- GfXNm >9 GW?/<^a INTERRUPR&_(_| VW_DdNm Nm Nm Nm >- G?>- GW_?/<L(_> G_Dd/<N\?<#/-Dd/-><(_8`/->9~|(_8>-Dd@/-><(_8/- >9(_8/<>9|(_8`N/- >9|(_8>9Dd/-><(_8`/-><(_8>-Dd(;y3/-N3`r.<<9Hކ(G.fH/-N.<<9Hކ+G/-X(_.f/-X.-(_(` /-N>- GDdB/<>9|(_8>9 Go ?<Nmh/<>9|(_8/<>9|(_8>9 Go$?<Nmh/<>9|(_8`:.<<9Hކ(G(.<<9Hކ/X><(_8/<~>9~|(_8>9~ Go ?<Nmh/<~>9~|(_8?-Hm/-?<aކ_;G/<|?-DW>(_8aނ(m(>-,^N](_\NNU?<N>9 G9g0?<(n9_>9 G#gNm >9 GW|?>9 G W|_?>9 GW|_Dd>9 GW?>9 GWǎ_Dd(n>,|?(n9_`(n>,|?(n9_(n>, GW|DdVNm ?9(n9_Nm /<>9|(_8/<~>9~|(_8>9 GV|?(n>,_Dd`Nm ?<(n9_,^N]NuNU?<N;|/<L(_> GDd ?<Nmd/<X.9(_(>9 G!V?>9 GV_?>9 G V_?>9 G=V_?>9 G8V_?>9 G;V_?>9T G_Dd Nm `;|?->9 G!W?>9 G8Wǎ__Dd ;|`2>-Dd?<Nmh`>9 G!f ?<Nmh;|>9 G!W?>9 G8Wǎ_Dd6/<>9 G8W|(_8>9 G!W|?ah`B>9 G=W|?>9 G;W|_;G3|?<Hma,;G;y>- GDd>9 Gfa>9 Gfa>9 Gfa>9 Gfa>9 GV|?>9 GV|_?>9 GV|_?>9 GV|_Ddh`/<~>9~|(_8>- GDd>- GDdD.<<-Hކ+G/-X.<<9Hކ(G.(_((m8|`L/</- (_<.Hކ+G/-X.<<9Hކ(G.(_((m8|>-Dd/<>9|(_8>9 GW|?>9 G9W|_?>9 G#W|_Dd>9 G#W|;Gah>- GW|?>9 G9W|_Ddz>- GDd.<<-Hކ(G8|/<L(_> GDd/<N\Nf/<N\aREMAINING MEMORY: /<NNJ/?<?9 GgP/<N\a.,PHASE II NOT BEING RUN DUE TO PHASE I ERRORS/9 GV|DdNm Nt/9/9lN$ GDd ?<Nmh?<?-NS,^N]Nu``D``.``l`` `0` ` `` L`` NU?<NNm (n/, (n/,(_.(_((n/,(_.`f;|P>9 GfTNm HmHmN8/-/9tN$ G?>- GWǎ_Dd ?<Nmh;mNm Hm?<N /->-|(_8/-X.9p(_(/-P.9\(_(/- >-(_/-><(_8(n(l ((n/,>-|(_8`"(n/,(n/,(_(T>(_8?<(n9_,^N]NuNU?<NHmHmN8/-T(_> Gg?<Nmh+|Hm?<N /-/9N$Dd(m8` (m8/-X.-(_(/-Hm?<N.>9 Gg ?<NmhNm HmHmN8/-PHm?<N./-X(_.g ?<kNmh/-X(_.hf ?<Nmh/-/9N$ GDdz/-(_?/-P(_<>Fo$?<fNmh/-P/-(_>(_8/-(_> G\?/-P(_> G__Dd (m8(n(l ((n/,(m>(_8?<(n9_,^N]NuNU?<N;y.<<9Hކ/X(_> Gg/<>9|(_8`Hm?<N (m8/-X><(_8;|+|Nm Hm?<CN .-f +m`/-.-(_(/-/<^?<N./-.-(_(/-.<(_(/-N+m/->-(_8>-|;GNm >9 GV|Dd@/-\.-(_(Nm 3(n(l ((n/,(m>(_8?<(n9_,^N]NuNU?<N;|>9 GftHmN/-(_ Tf a`H/-(_ Cf a`*?<gNmh(m (t(m8;|Nm `>9 Gf a``aT(m>Dd/-(m>|(_8>-,^N](_PNNU?<NNm (nHl?<N (n(l83(nHlN3(n.,ft(nHl?<TN (n/,/<^?<N.(n/,(n.,(_((n/,.9x(_(/<x(n.,(_(`4(n/,(_ Tg?<gNmh/<(n)_Nm (n.,g"(n/,X(n/,(_.(_((n/, (n.,(_((n(l8,^N]NuNU?<N/<(n )_Nm (n Hl?<N (n +l/-X(n .,(_(/-P.<(_(/-><(_8/-(n >,(_8(n /,(n )_(n Hl(n Hla GDd?<qNmh/<(n )_(n /,(n >,(_8(n .,g(n /,T(_> Gn(n .,hf?<mNmh``(n .,tf?<Nmh`@(n /,/9N$Dd?<Nmh`(n /,P(n .,(_(`?<qNmh/<(n )_>9 GV|;G>- GDdNm >-DdNNm ,^N]NuNU?<NNm aNm (nHl(nHla(n(l> Gf?<(n9_(n/,X(_/(n)_(n/,X(n.,(_((n/,P(_.g(n/,P(_/(nHl(nHlN(n?,(n?,(n>,_DG|<>?(n9_(n>, Gn?<Nmh?<(n9_(n/,(n>,(_8(n>,Dd(n>,|?(n9_(n/,(n)_(n/,(n)_(n.,W|Dd(n/, (n.,(_((n/,(n>,(_8,^N]NuNU?<NNm (nHl?<N >9 G f Nm (nHl(nHla`/<(n)_(n/,X(n.,(_((n.,g"(n/,?<@(n(l>_(_8`(n(l8@(n/, (n.,(_((n/,(n(l>(_8,^N]NuNU?<NNm Nm (nHl(nHla GDd?<Nmh`D(n/,T(_> G^?(n.,tWǎ_?(n.,hWǎ_?(n.,Wǎ_?(n/,/9N$_Dd?<sNmh/<(n)_(nHl?<N (n/,X(n.,(_((n.,gx(n/,(nHl(nHlN(n/,(n>,|<<HǏ(_8(n(l> G o?<Nmh(n(l8(n(l8 `(n(l8(n/, (n.,(_((n/,(n(l>(_8,^N]NuNU?<N/-(n >,(_8/-(_.gJ(n ?,/-(_(T>_?(n 9_(n >,Dd(n >,|?(n 9_,^N](_XNNU?<N(nHl?<N (n/,X.<(_((n/,P.<(_((n/,(n.,(_(Nm (nHl?<RN (n/,.<(_((n/,.<(_(Hm/<^?<N.Nm ;|3(nHlN3(n.,W?>9 GWǎ_Dd6;|(n/,Hm?<N.(n/,NNm `/<^Hm?<N.(nHlN(n/,(_/(n)_(n.,ܾg(n/,T(_> Gnp/9h(n/,N$Dd ?<mNmh(n/,(n.,(_((n/,X(n.,(_(>-Dd(n/,a` ?<nNmh>9 G gNm (n/,(n>,(_8Nm /<(n)_(n?,(n9_(n?,(n9_/<(n)_(nHl(nHlN8(n/,X(_.g<(n/,X(_/(_/(n/,N$ GDd ?<oNmh(nHl?<N (n/,X(n.,(_((n/,P(n.,(_((n/, (nHl?<N.(n/,(n)_(n/,(n)_>9 GV|?(n 9_(n >, GDdNm (n >,DdNm Nm >9 Gf/<(n)_`(nHlaJ(n?,(n<,>Fo(n?,(n9_(n.,侼gT(n/,P(_/(n)_(n/,P(n.,(_((n/,(n>,(_8(n/,(n)_`Nm >9 GV|?(n 9_(n >, GDd(n?,(n9_Nm (n ?,>9 G W|_Dd(n?,(n9_(n/,P(n.,(_(,^N]NuNU?<N+|+|+|>9 GfNm >9 Gf+mHm?<RN /-/<^?<N.Nm /-.<(_(/-.-(_(+m/-N>9 GV|?(n9_(n>, GDdNm (n>,DddNm HmHma.-gJ/-.-(_(/-a/-(_.f+m/-(_+T`+m`>9 GV|Dd+|.-g2/-(_+T/-.-(_(+m+m`>9 Gf ad` (m(,^N](_XNNU?<NNm ?9(n9_>9 GlR/<>9|(_8.<<9Hކ(G(.<<9Hކ/X><(_8` ?<Nmh?<(n9_(nHla(nHl?<N (n+l/-P.<<9Hކ(G.(_(/-X(n.,(_(/-(n>,(_8/- (n>,(_8/<(n>,(_8Nm (n/, (n.,(_((n/,(n>,(_8,^N]NuNU?<N>9 Gf a`>9 G1W|;G>-DdNm ?9`6a~`fa~`^az`Vav`N/- /-aB;G`:?<5?<"N,^N](_PN``NU?<NNm HmNHmN?-N333Nt/9/9lN$ GDd ?<Nmh?<?-NS333Nm N ?<?-NS?-N,^N]Nu``NU?<N;|;yNm HmNNm /-Hm?<HmHmHmN/-T(_> Gg?<Nmh;|.<<9Hކ+G>9~ Gf"(m;T/-(m>y(_8`/-(m>y(_8(m;T?9~?-/9/<N^/<>9|(_8>9 Go$?<Nmh/<>9|(_8`>-Dd .<<9Hކ(G(`$.<<9Hކ//-P(_.(_(.<<9Hކ/X><(_8.<<9Hކ/\>-(_8>9 GV|DdPNm N 3,^N]Nu``` L```z`Z```NU?<N(n/, (_?(n>,_?(n9_(n>,Ddf(n/,(_?(n/, (_?(n>,_?(n/,?</<N&?<(n9_?<(n9_`,(n>, Gg(n?,NT0?<(n9_,^N]NuNU?<N?<(n9_Nm (n/,T(_> GV?(n/,T(_> GV_?(n.,tV_Dd?<Nmh` (n/,T(_> GfaNT?9Nv`(n>,Ddf(n/,(_?(n/, (_?(n>,_?(n/,?</<N&?<(n9_?<(n9_`a?9Nv(n.,tgH(n/,T(_> Gf(n/,X(_/(n)_`(n/,X(_/(n)_(nHlNT,^N]NuNU?<N(n/,T(_> Gg?<NmhNm Nm `Nm (n/,P(_/(nHlN(n.,f?<NmhNm `(n?,(n/,(_(T> GW_Dd(n>,|?(n9_Nm (n?,(n/,(_>_?(n9_(n/,(_/(n)_(nHlNT,^N]NuNU?<N+m/-P(_.f/-(_+T/-(_/(_?/-(_/ (_?/-(_/?</<N&/-(_?/- (_?/-(_/?</<N&?<NA ?<NT(/-X(_/a`(m?N`|?<NA ,^N](_XNNU?<N+m/-(_+T/-(_?/- (_?/-(_/?</<N&?<NA /-X(_/a?<NA ?<NA ?<(n 9_?<(n 9_(n HlNT,^N](_XNNU?<N?<(n9_;|(n>, G?(n>,_?(n>, G_DdaH?<(n9_(n/,T(_> Gg;|?<Nmh`VNm ;y>9 G$f3` 3Nt/9(n/,P(_/N$ GDd?<Nmh`(n/,P(_.f(n/,a`>9 GDd*(n/,P(_/HmHmN>9Dd?-?-NT@(n?,>9m?(n/,X(_(T<>_?(n9_(n?,(n>,_?(n(l> G_Dd^(nHlNT(n/,(_?(n?,(n/,?</<N&?<(n9_?<(n9_`6(nHlNT(n?,(n/, (_>_DG?NT0`x?<(n9_?<(n9_(n/,P(_/HmHmN>9Dd?-?-NT@?-(n/,X(_(T?NT<(nHlNT(n/,X(_/(n)_>9 Gf;|>-Ddf>9 Gg Nm `Nm ?<(n9_,^N]NuNU?<N;|+m/-(_+T(m8;|;|;|.<<9Hކ/X(_> Gf~(m8/-(_;T/-(_(T> Gf>-|;G;|?9~.<<9Hކ/\(_?/9?</<N&`/-(_ Vf/-(_> GV?/-(_> GV_Dd(m8;|/-(_> Gf8/-(_?/- (_?/9?</<N&`h/-(_> Gf;|/-N`>/-(_> Gf/- (_??<N` /-N`/-(_ Pfn/-(_> Gf8/-(_?/- (_?/9t?</<N&` /-NTx(m8;|``"/-(_ Cf ?<Nmh;|;|HmNT>9 GW?>9 GWǎ_?>9 GWǎ_DdF?9`a`2a`*a`"`> g g g g``>-Dd (m8>-mDdD(m8/-(_?/- (_>m?/-?</<N&`6>-Dd(m 8` (m8>- Gg ?-NT0(m((m(,^N](_Na m><Nul#.#.9Nua"_B0DdR@o yѹ$_$SBQ~N$_B/ /<NBNu _T"_"Na _/9/9N _##NNUD d >-|g/<N\Nf0-Sf:/<N\aDIVIDE BY 0 DETECTED/ TO CONTINUE, ^C TO ABORT?/<NHm/<N\N-<fNN](_XNNU mR+H>- | Wƾ|]ŌE|^ŌEDd ;| .-l-+HDBm.-/?- BgN f Fg?Rm` mSm6- CfRCBg0| m^0Q"m"SN](_PNNU/- ?-Hma8Hm?- ?-N]Nu _B<(|8N&_> am znGNNUB@(m&LR g  fR@S`RgS@Q(m g*|@+| +| +| T :f;|BG$?a|G`;|C;mPm;|(m LB0- .W :W‚BFA4-m]C_CDd?a Rm` .W0-_@Dd-N](_\NNUBm`NU;|`NU(m: Tf/ /-?<a(_8 TgH m& n$?<.<<HކT/N3 Bm(m:?a>-N](_XN _B<(|// / ?<*/ N(_?<T/ N3 *?<BgN0NuNU>-FG |<- HT+H VFDdX& Pg* Pg>TH/0<G??<N0?- aJ?<0/-N?</-N3 ?- aN](_XN _B<(|// ?<*/ N(_?<T/ N3 <BG FfRGNuNU |<- H+H( Pm/?- aFG(m8 _BP"m*<HBGRPN](_\NNU |<-H+H( Pm/?-aD _BP>"m*H RPN](_XNNUBy y& f?<BNG<f*| ?<HmN|?<HmN`< f| ?<HmN y< -WP` y& f,;|?<HmN|g y<` y& f ?<HmN y<` y:;P ;P;|0- y(P_<-FFFDd*?-Hma y<0-S@HRm` y.0U0SPN]NuNUBy y& f?</N` f?</N` f?</N` f?</N`n y:;P0< y(2@JAm8;@;A y<4-SBHBG??-aDRm2-Q y*BPN]Nu\ _BB0p/NfNUBm/-aCON:NPDd(m&;|`/-aLST:NPDd(m&;|`/-aNP?/-aTRM:NP_Dd(m&;|`>/-aNP?/-aPUN:NP_Dd(m&;|>-N](_XNNUBm(m ^ ]ƎFDeBASm  m ~n Q;|>-N](_XN _#N?< N?< NNu _0"_ @f"|.>NNU m 0BP# Dd T0`N m 6DdlQ0"H W€B@0  WB;BB0$m & WABDdN m .02 @Dd N] _\N _0"_// N*3 Nu>9 NuNU(mB`?</ N?<//-NN _"_NNU m fR| +|PAST+|MP00+|.$$$ 9`;@ |`VR 9o0SR/- ?-HmNB mf m 60;|` m 6BPY  U0U0U0UBPU0U#  m R CWV :WFDd "/- ?<N m :0|gBy `3 N](_\NNU mR>- | Wƾ|]ŌE|^ŌEDd;| >-|l-DmBC0-2- $HB @f Bg?RC`SC CfRCBg0| m^0Q"m"SN](_PNNU?- ?-HmaRBG-m o;G Hm?- ?Fm>NNU m B@;@ mBA;A??a0BG2<AJ@m4;A;@ m 2-HP"mQmnRm0-Q0-mgnRRN] _PNNUBC/- /-atCW|N] _PNNUBC/- /-aRV|N] _PNNU<`NU<`NU<`NU<`NU/- R(m BG?/-NN](_PNNU m g m o?< NSm `?- NN] _\NNU2- 0- Af;@ 2@p@m;@;A?< NRm2-Qr0- m o0- Am.;A;@ mB2-SABA?NRm0-QN] _ N.9hgN"_0 y</9?/ N _0#/N.< Nu3  Nu _2 y l"| 09 HR9 Ry NNU mB@3 gTy |o2<09 @3 | 09 H"mR09 S@Q09 9 y N](_XN.9dgNNu y& o /9T?N y<Nu yNu _pC "QN _0"_$_` _0$_"_J@gS@QNB _0"_$_` B _0$_"_J@gS@!QN _0>oN _0>oN _"o p"QXN _2|m"|npBQ4B_BDBIBGNPNB _024An@k J20 HNВ@RA4`B@NB"_$_0 @o" @g @ g @%g @.g @g" `BA/ NB>Nu"_24$_SBQN// ?<@?<N0// //?<%Np _ N _0"_$_$ HB Bg BA@o2gSAQN _02$_N _.]gXnD ]gJnD"$&HAHCf$ nHAށ nHBނ gD N.<`B` _.NP`BBBBB _ g"ggPDAg D@ m*t&Z lZ– f@`Z&B` o4nR㈰oS?RSDm ㋰n`8C g"`&HC f,B. gDN.<N _.DNNdNh _0"N$VU@k-"Q- - N???LNBLNWLNASNBSNWWINRINWCHCHWRCHLNKCRLCWTXJPMVLNLNENTMULDVLMDLEXTSFBDWDDIOINIRIBSGTWRBWRSSPTRDLRTLSS2NEW???EQRNERGTRLSRGERLERRRLWRLRADRSBRMLRDVRNGRABRSQQQLSIASOAXOPQQSSTRSADSSBSMLSINBSSBSRLSBISBCNCCCHEQSNESGESLESCHKDSPHLTRSTEQDNEDGTDLSDGEDLEDSSTSLDOVLxceptchkwordptrXwarningvlsp2valundefinetoktoptoterrstotlinestotbytestextptrdsysdebugsyserrptsysmemsymlensymfilesymindexsymbuf~suppresssymfstringpt`stackstasofterrskippingpsmallptrsccicsccifrtparrayrrestartrlsp1relfilerelindexDrelbufBrelaxreflstrealptrhrealrstrangechkptrsizprognameprogstar procarraprocbegprevocicprevopcopaddrarrDphaseoutptptroutptroutfileoutindexoutbufouterrnxtlblnumbit nextextmaxpnummagicptrlinenumlbllastociclastopcokspkstkkflags,intvectarintptrtinterpstinindexNinputptrinpptrinmoduleinifincludininfileindexRidentifi^ichwstackheapptrVgxnumgpnumglexleve~fwptrxfsizefuncvaraflspfilspfisizefixfileFfirstifexptypexitaddrerrfilentryflaendoffilTdynrstdseg|drestartdisxdisplaycurbytcsstruct$csconst(conststr comprec1comprec2comndataLcomnfilecodebufcodetagcharptrpbyteptr\bufPbraccboolptrlbigptrasizeasmrtpalspc(expressitrtpputbytepushopcopsharpshdrpshd5wpshd6wpshd7w:pshd7lBpshd6l*psha3psha4progrelpoparpopdrpopd5wpopd6w"popd7w>popd7lFpopd6l&popa3 popa4opcodenooptimimakelongZmakexlon^makeshorbmachineilddspregJgetmveinget2operNgennewligenwordgenbytegenlwordgenmveextd7l6doreldelcodedatarelclrd7w.clrd7l2chgopcodcdestlascdestprebitsbadamlhillounimp"store^storeizsrch4ref sstoresquishVreflblloadivloadllitloadlitload&loadconllincldextaddldgbladdlcwordlcbytegenlblgenerrfixupdelclrwrZattachsubrbuilAget2 purgeFresultio ioresult^_chnf_rchrewriterw01rw02rw03rw04*rw05rw06rwex_i2s_winXnotb10doloopdomorenomore$cv2hex0nothex:_win01|_sinstrgcmin_nedr_lsd_led_gtd_ged_eqdPmin1str18str2strltDstrgtFstr3,streqHteqVtneqx_wrs_chw_wchchw1chw2wch50wch1Vwch3div32bJ_dchk|divlpV_chkmn_dret_zretv_dmac_dlp_dv0_dv1_dvd_nret_getch_putch_lnklnk01lnk02!o;G Hm?- ?9~ZBm m BPBm ywb& o f ~Z?< /<~ZNn@;G/- /<~[?<QNn| ?<HmNn@ ywb00 0 9~[f ywb. 9~\WP` ywb0DdRmNlG f moUm`Bm` m <-H` ywb0De`RmNlG - g m <-HRm` m <-H RmRm>-HǏHG|WDdSm` ywb& oSm m N](_\NNUA0-(H2-(|_ADA0VGN](_"N _<>Fm>NNU m B@;@ mBA;A??a0BG2<AJ@m4;A;@ m 2-HP"mQmnRm0-Q0-mgnRRN] _PNNUBC/- /-atCW|N] _PNNUBC/- /-aRV|N] _PNNU<`NU<`NU<`NU<`NU/- R(m BG?/-Nk$N](_PNNU m g m o?< NkSm `?- NkN] _\NNU2- 0- Af;@ 2@p@m;@;A?< NkRm2-Qr0- m o0- Am.;A;@ mB2-SABA?NkRm0-QN] _ N.9w.kgNn"_0 ywb</9wb?/ Nk _0#wb/NbX.<~Nu3~Nu _2 yl"|~09HR9~RyNNU mB@3gTy|o2<09@3 |~09H"mR09S@Q099~yN](_XN.9w*egNnNu ywb& o /9wbT?Ne ywb<Nu ywbNu _0"_$_` _0$_"_J@gS@QNB _0"_$_` B _0$_"_J@gS@!QN _20zBQ @mb An\AnXBB4BJ6CKx@"O¶BfA|A"`""x:BMUEm"Q|AA"N _0>oN _0>oN _"o p"QXNB _024An@k J20 HNВ@RA4` _>_NB@NB"_$_0 @o" @g @ g @%g @.g @g" `BA/ NB>Nu"_24$_SBQN// ?<@?<Nnz// //?<%Nn _ N _0"_$_$ HB Bg BA@o2gSAQN _02$_NNw*Nw. _0"N$VU@k-"Q- - N""ON:Nn/<v?-N]Nu _B<(|w8N&_> am znGNNUB@(m&LR g  fR@S`RgS@Q(m g*|@+| +| +| T :f;|BG$?a|G`;|C;mPm;|(m LB0- .W :W‚BFA4-m]C_CDd?a Rm` .W0-_@Dd-N](_\NNUBm`NU;|`NU(m: Tf/ /-?<a(_8 TgH m& n$?<.<w<HކT/Nn@3~ZBm(m:?a>-N](_XN _B<(|w// / ?<*/ Nn@(_?<T/ Nn@3~Z*?<BgNnzNuNU>-FG |w<- HT+H VFDdX& Pg* Pg>TH/0<G??<Nnz?- aJ?<0/-Nn@?</-Nn@3~Z?- aN](_XN _B<(|w// ?<*/ Nn@(_?<T/ Nn@3~Z<BG FfRGNuNU |w<- H+H( Pm/?- aFG(m8 _BP"m*<HBGRPN](_\NNU |w<-H+H( Pm/?-aD _BP>"m*H RPN](_XNNUBy~Z ywb& f?<BNn@G<f*| ?<HmNn@|?<HmNn@`< f| ?<HmNn@ ywb< -WP` ywb& f,;|?<HmNn@|g ywb<` ywb& f ?<HmNn@ ywb<` ywb:;P ;P;|0- ywb(P_<-FFFDd*?-Hma ywb<0-S@HRm` ywb.0U0SPN]NuNUBy~Z ywb& f?</Nn@` f?</Nn@` f?</Nn@` f?</Nn@`n ywb:;P0< ywb(2@JAm8;@;A ywb<4-SBHBG??-aDRm2-Q ywb*BPN]Nu\ _BB0p/NeNUBm/-aCON:Nj\Dd(m&;|`/-aLST:Nj\Dd(m&;|`/-aNj\?/-aTRM:Nj\_Dd(m&;|`>/-aNj\?/-aPUN:Nj\_Dd(m&;|>-N](_XNNUBm(m ^ ]ƎFDeBASm  m ~n Q;|>-N](_XN _#wbN?< Nk?< NkNu ywb00F@DdNl`BP gNlNu _0"_ @f"|v.>NNU m 0BP# wbDd T0`N` m 6DdlQ0"H W€B@0  WB;BB0$m & WABDdN` m .02 @Dd N] _\N _0"_// N^f3~ZNu>9~ZNuNU(mB`?</ Nn@?<//-Nn@Nl _"_NNU m fR| +|PAST+|MP00+|.$$$ 9w&;@ |w&VR 9o0SR/- ?-HmNn mf m 60;|` m 6BPY  U0U0U0UBPU0U# wb m R CWV :WFDd "/- ?<N^X m :0|gBy~Z`3~ZN](_\NNU mR>- | Wƾ|]ŌE|^ŌEDd;| >-|l-DmBC0-2- $HB @f Bg?RC`SC CfRCBg0| m^0Q"m"SN](_PNNU?- ?-HmaRBG-m ##?<?< (n?,aj?`~a`a`a`a`a`a`~a`va`na`fa`^`Za`Ra`Ja`Ba`:`6`2?<?<Nnv~,^N]NuNU?<No(n?,Nn4;GaF,^N]NuNU?<No3va>9vNDd*><<9vGm;G;Fa.Rm<-Q,^N](_TNNV/<vNda42--------------------------------------------------/?</<oNn/<u>?<<<Gm(3v3va3vfRyv<9vQa<<?a_3vl3vlvpav3vfal3vfab<<?aV_3vraJ3vfa@3vfa6<<?a*_3vta3vfa3vfa <<?a_3vX><<< Gm(3v3va3vfRyv<9vQaa aaaa3vf3vn3vL>9vf|3vh>9vLyvNDda3vL?9vh`a`a|`ap`at`ap`al`ap`/<uNdatag error : tag = /9vn<9vlF\|Dd/<vNdNd/<u>?<Nd GyvNDd3vPanaz>9vNDd~/<uNda Total code = /<Nuvl#v.v#v.9vNua"_B0DdR@vo yvѹv$_$SBQ~N$_B/ /<NSBNu _T"_"Na _/9v/9vN _#v#vNNUD d >-|g/<vNdNd0-Sf:/<vNdaDIVIDE BY 0 DETECTED/ TO CONTINUE, ^C TO ABORT?/-|f>?</<vNd/BwB#wRw:"yw:"wFX"w:X"w6#wFBwN#wRwJ#w:w"#00w&#ew*#kw./<v?<aCON:Nn/<v???<? GW_Ddacmpma a\?<aX/<uNda(a/ gl g g< g gN`,^N]NuNU?<No?<(n?,aB GW??<?<(n?,a GW_Ddaaddxa?< ata\` g g g`Hm\a?< ?< (n?,a Gf?<x? g g g`?<?<(n?,aF?`NHm\als?<PNn`LHm\aro?<PNn`4Hm\aro?<PNn``> g g g`Hm\a?<?<(n?,a Gf?<x?9vD GDd(n?,aB?<a"%%aز`>?<?<(n ?,ab GfbaextaLa.waB?< a/<uNd?<d/ g. gF g g`,^N]NuNU?<No?<?<(n ?,a Gfatasa` atstaa*?<?<(n ?,a Gg ?<a ?<a,^N]NuNU?<Noamovea՞?<(n ?,a Gfa.wa|` a.lan?< a?<a՚/<uNda,regs(/ gn g g:``n?<?<(n ?,a Gfajsra` ajmpa?< ab?<a`&> g g g g`,^N]NuNU?<No?<(n ?,aў GfachkaT` aleaaF?< a?<ar/<uNd?<,/- Go>-|;G>-yvj?aL`"?<s?- Gf;|?-a̔/<uNd?<,/9vj|??<?<(n?,a˺_?an`*>9vj|??<?<(n?,aˎ_?aB`?< aa:3vf/<uNd?<$/- Go>-|;G>- Gf?-a`>9vjm?a,^N]NuNU?<No?<?<(n?,a Gqfadcnta?< ad/<uNd?<d/-Dd0>-<<HǏ;G>-<<HǏHGgDG;G`,>-<<HǏ;G>-<<HǏHGgDG;G?-`P/<uNd?<d//<uNd?<a/a|3vf/<uNd?<$/- Go:/<uNd?<a/-|??<?`a>3vfa8?(n9_/<uNd?<$/- Go:/<uNd?<a/-|??<?, GW?(n>, GWǎ_Dd6a3vf/<uNd?<$/ g g g g6 gV``&`"?<?<NnLJ,^N](_TNNU?<No?<?<(n?,aT;G?-`F?<(n9_`R?<(n9_`B?<(n9_`2?<(n9_`"`> g g g g`,^N]NuNU?<No(n?,`0a.ba`8a.wa`*a.la``> g g g`?< a ,^N](_TNNU?<No?<?<(n?,aP?`Fabtsta:`Rabchga*`Babclra`2abseta `"`> g g g g`?< a,^N]NuNU?<No?<(n?,a Gf?<?<(n?,a Gfamovea?< (n?,a Gfap.lah?<(n9_`ap.waN?<(n9_?< a?<(n?,ab Gf/<uNd?<d/, Gfa.ba` a.wa?< ala#$aܺa~3vfax?aj`Fa.laܘ?< a8?<#? g| gt g`/<uNd?<,/-O G ^?>-O Gz]_Dd&/<uNd>-O?/9vP|<<HǏ;G>-<<PHǏHGgDG Gf/<vNdNd>9v~<-GmX;G;F3vH>9v| GDd aa/<u>?<Nd GDd(/<u>Nd/<u?<NhNd``\>9v~|3v~(|u  W?/<u>?<Nd G_Dd\/<u>Nd/<u?<NhNd(|uBG??<0?<9NmpNi?/<u>?<Nd_Dd/<uNda* /-|;G(m(,^N](_XNNU?<No3vR>9v<9vHǏHGgDG Gf2/<u?<NV/<uNdaFE* MT+68k 3.3 - Apr 16, 1984 - (c) 1984 by Digital Research Inc. PAGE /9v|3v>9v|3v`$/<uNdNd>9v|3v,^N]NuNU?<NoHm/-?<QNn/<uNdHm/<m ?Nm??<>- m _DG?Nm;G>-,^N](_\NNU?<No(m+T/-.<(_(/-a  ?<Nn/- ><(_8/- ><(_8,^N](_XNNU?<No><<<GmV;G;FaG- g.-<-Hކ(G-`.-<-Hކ(G>< Rm<-Q(m8><<<Gm<;G;FaxG/-(m><<?BG-_(_8Rm<-Q(m 8><<<Gm<;G;Fa(G/- (m ><<?BG-_(_8Rm<-Q>9vX|3vX,^N](_ NNU?<No/<vT?<NS/<vTaHm?<NS/9vT/9vT /9vT a+yvT>9vX Gol/-?<NSHm?<NSHma/-/- /- a/-.-(_(/-(_+T`,^N]NuNU?<No?-`/<uNda * bss/9vD GDd?<a/- (_?a~/<uNda .globl/9vD GDd?<a/- (_?a/<uNda .globl/<<- GmH;G;F/-(_.g/-(_+T`;|Rm<-Q/-/-?<QNn;m>-,^N](_\NNU?<No;|Hm?<NS+yvT>-<<HǏHGgDG;G?-`8;|`P;|`F;|`<;|`2;|`(`$> g g g g g`/- (_;T?< ?</- (_?a;G/- /-?<QNn>-<-FV?>-<-FVǎ_mDdx/-(_.gV/-(_+T/- (_;T/- /-?<QNn?< ?</- (_?a;G`;|`f;m>-,^N](_PNNU?<NoHm/-?<QNn><<<Gm^;G;FHm<-.Hކ(G  g0/<uNdHm<-.Hކ(GBG?/9vf<<HǏHGgDG Gfv>9vf<<HǏ;G?-HmaDdHmaaV;GaN;G`2/<uNd?<$/-,^N](_XNNU?<No>-Dd?< ?<(n?,(((* VERSION 0001 *) (* DATE 03/11/84*) (* definition of file info block for CPM-68K *) const notopen = 0; fwrite = $100; frdwr = $200; frandom = $300; fconio = $400; ftrmio = $500; flstout = $600; fauxio = $700; type fibpaoc = packed array [0..0] of char; fib = record fname : string[37]; (* 0 *) option: integer; (* 38 *) buflen: integer; (* 40 *) bufidx: integer; (* 42 *) iosize: integer; (* 44 *) feoln, (* 48 *) feof : boolean; (* 46 *) fbufadr:^fibpaoc; (* 50 *) nosectrs, (* 56 *) ftext : boolean; (* 54 *) sysid: integer; (*fileid on unix, conn for udi 58 *) fbuffer: fibpaoc (* 60 *) end; `o`I0````H`````*````L``$`8`L`` ` ` ` ` ` `` (` ````f````HL`H``$`N``J``#|`#`$H`/`$`%"`%P`%`&D`)\`)`*~`-`/`0`2`4v`6`8H`76`9h`:`:`>H`-<9vRFo?->9vR|<>Fm4/<uNda /9vR|3vR`>-yvR?`j/<uNd?< //<uNda / g g g`,^N](_TNNU?<No>9u8 Go:/<s/<qx2(_/?<Nm(/<qx?<Ne3u8.<s<9u8Hކ(GT?9u8RW3u8>9vn|3vnmBG-,^N]NuNU?<No>9u: GoT/<r?<Nd GDd2/<t/<r2(_/?<Nm(/<r?<Ne3u:.<t<9u:Hކ(GT?9u:RW3u:mBG-,^N]NuNU?<No>9u< GoT/<r8?<Nd GDd2/<t8/<r82(_/?<Nm(/<r8?<Ne3u<.<t8<9uHǏ|;G?-W<<>HǏHGgDG|;GHma0123456789ABCDEFR?<Nm(/<uNdHm<-.SFHކ(GBG?/9vR|3vR,^N](_TNNU?<No>-O?a?-Wa,^N](_TNNU?<No?-Nn4?a,^N](_TNNU?<Noa?Nn4?a_3vf>9vf Gl3vL3vfvP;yvf>-,^N]NuNU?<NoaN?aH?Nn4_;G>9vj|3vj>-,^N]NuNU?<Noa>9vD GDd?<a ?9vja,^N]NuNU?<Noaa a/<uNda .dc.w $/-O?a/<uNda * /F^??-W<<z>F]_Dd&/<uNd?-W/-,^N](_XNNU?<N+m+m.-,^N](_XNNU?<N>-<<Ff`&?-?<+_(y+T.-V?/-P(_.]_Dd (m+T`.-f3`(m (/-P(_./?< ?<,mt/-aޭ/a+G/-X/-X(_.(_(/-(m.(_(/-X(_(T((m/X.-(_(/-P/-P(_.(_(`,/-X(_/(m.(_((m/X/-X(_.(_(,^N](_\NNU?<N>-<<Ff`?-?<+_/- a+G(y+T/-P(_.V?/-a氭]_Dd (m+T`(m (/- X/-X(_.(_(/- P.-(_(/-X(_(T( /-X.- (_(/- X(_/az//- X(_/P(_.ޟfV/- X(_+T/-(m .(_((m /X/- X(_.(_(/-P/-P(_.ޭ(_(/- X(_+T /- a//- P(_.ޟ/(m /a,fF(m (T/X.- (_(/- P/- P(_/(m /P(_.ޟ(_(/- (m (T.(_(,^N](_\NNU?<Na/T;_>-,^N]NuNU?<N+|(y+T/-P(_.g /-/-P(_.ޟ+G(m+T`+m>-,^N]NuNU?<Na/T;_>-,^N]NuNU?<N+|(y+T/-P(_.g*/-P(_.o/-P(_+T(m+T`+m>-,^N]Nu_lnkptr2longlong2ptrmemavailmaxavaillmemavailmaxavai _frl_herr_new _dsp<<<<**HGBFVFO??NNUHyHm aHyHmaN] _"_/ N _&_$_(JBBBBBR0j4@H5@BB0@@5@5k%kN _"_Q$|B02*鉀2*H@B2*./j/ N_lrsub_err_acc1_acc2_lrdivid_lradd_lrmult_rad_rsb@_rmlr_rdv_rab_rng_lrloadh_lrstore_rad01 _rad022spsetupspexit_rsb01P_rsb02f_rml01~_rml02_rml03setup- mn"mnmng.-+m +G BC>- m G7l|SGmQ>-m f(<ӃтgRm BgRч`4<Rm Sm f`>-m fRm `BBB<-B>- ONNFHG(*N]"_PN$|"| jgB6)Cg6*iCkN5C6Ra$|aTa:a jn Nu | a\"|$|B2*hHAA2*ҀBhHAA2*ҀBhHAA2ҀBPHAAhUUf$| | &Hr-m >- m|m;G |6mfmgRSg <<`RUFmQBgNq<`Sm f <`B>- O<-gGHG؇N](_PNN](_P/ `$| JapJGgn4DGH5| %GaNu$|4*BdBGNu Bn(&*BGKWQJGl GfJRg NuJRgDGNu"<p NBNu&HBBBBNu|."$Q$|"|Nu*fNu&JXdiva\divctfloat2float1fix0fixovflfix1fix2fix3swp01rn16incexp@setinf`doerrRlr1~noretstrshl++rlastvalpot01pot02Npot03pot04pot05pot06pot07gncJgnc01tgnc02zdigitwholewh01wh02fraction*fr01fr02`fr03fr04expon exp076exp01exp02Zexp03rexp04exp05exp06cnv01cnv02Pcnv03cnv04xcnv05cnv06cnv07 $$  , $,  $sqrt.o`NU+|@B+|?B ?gJJfBB` ?nJ fmm ` @m$J fmm `J f.-,- `l|;F+m+mm/- /-/-/-Nm/-/-N+_+_<-Q/-/-/-/-N.,N](_P//N_rad_rml_rdvsqrtsq05psq014sq06sq03Rsq04sqloopsq02 fpcompar.o` _ "$&~fgBGN"_a NNU/-/-/-/- N2N]NuaBGJAkAgRG _NaBGJAjAgRG`aBGJAkRG`a~JAkAgSG`_rsb_eqr_ner_gtrB_lsr\_gern_lerznotzequazequal_fpset"xit2Rfpxop.o`t(<^O | ppN"_"//N _>/NNNu"|"""a"| /!/!/!Nu"_////N"_$_$$N_acc2_lrfloat_lrstore_xop_qqsjadrtablconfloat(floatuNUHyHmaaN]"_PN$_B/ Gf/9<>< (_/9<(_T/9.(_>FG?BG-?/<NNFG_Dd2/9/9((_?N/9<(_T`/9.(_>Dd ;|`;|>-,^N](_NNU?<N.9gHma?<PNNGBG-> G gBHmNHmNBG-?NN/?<PNNG`/-HmN;G`a";G>- Gf"/-?<><N*((_((`Hma?<PN/9<(_TBG-> G gBG-> Gf0Hm(_BG> GgHmHm(_?SW>(_`6HmNHmNBG-?NN/?<PN/9/9((_?N/9<(_T`N/</<N?<EN?<eNN?<.NNNN?<Hm(_BF>Gm;G;FHm<-.Hކ(GBG?/<NNFGDdZ+y/<NN/<Nabad real, try again:?<NN+_+_aB(nG`,-.-,^N](_T//NNU?<NBB(n ,.f;|a(nG(nBG,?aDd m4n B/9?-atN+_+_`BB/-/-(nBG,0?/-/-~NNN+_+_Rmab(nG`l,-.-,^N](_//NNU?<NBB(n ,Eg ,efa(nGBm<+fa(nG`<-f9|a(nG(nBG,?aDd6>- (nBG,0F;G|4o;|4a(nG` m4n?-a6+_+_` +yB,-.-,^N](_//NNU?<N(m gBmBBBmBma$G<+fa?a^aN+_+_`@<-f"a?a: WaN+_+_`?aaN+_+_ax+_+_ g<N@$NDd4/-/-><N@$N+_+_?-RW;_/-a?<QN/-/-?<><NNDd6/-N/-N?<-NN/?<QN`2/-N/-N?< NN/?<QN/-N/-N?<0/-/-N_?NN/?<QN/-/-/-/-N?><NN><N@$N+_+_/-N/-N?<.NN/?<QN><<-Gm;G;F/-N/-N?<0/-/-N_?NN/?<QN/-/-/-/-N?><NN><N@$N+_+_Rm<-Qh/-N/-N?<ENN/?<QN>- Gl@/-N/-N?<-NN/?<QN?-DW;_`2/-N/-N?<+NN/?<QN?<NN;G><<<Gm;G;F/-N/-N?<0>-<-HǏ_?NN/?<QN>-<-HǏHGgDG;G>-<< HǏ;GRm<-Q,^N](_NNU?<N>- Gf,>- Gf;| /-/- Hm HmaZ`/-/- a>gDG?SW>< m?SW<>F^?/-/- ><NN_Dd,>- Gl;| /-/- Hm Hma`/-/- Hm HmHmaHm?- ?-|><<HǏ?W;_><N?.B?-><NN(n)_)_HmHm?<N>-|?W?;_HmHm?<NHm(nHl?<N,^N]NuNU?<N><NzoC/- /-N><N?z0h$ON/- /-N><Ng`іN/- /-N><N?uH57N/- /-N><N]T-N/- /-N><N?<1)TN/- /-N><N u%N/- /-N><N?N/- /-N+_+_,-.-,^N](_P//NNU?<N/- /-><NNDd&><NAcN+_+_`V/- /-N+_+_ a\/-/-/- /-><N?Na4N+_+_,-.-,^N](_P//N_lnk_eqr_rad_rsb_rml_rng_rab_xoplnmoveLL<<$LLL<$<$<$<$<$<$<$<$< <,4<wrtreal.oT` tP```.`"`` bNU?<N/- /-N+_+_ /- /-><NNDd ;|`/- /-><N?NDdN;|>- G^?/- /-?-NN_Dd?-SW;_`?-RW;_`@;|>- G5]??-N/- /-N_Dd?-RW;_`;m>-,^N](_PNNU?<N><<-Gm;G;F(m P/$/$(n/,/,NN;G/-N/-N><0m?NN/?<QN/- (m P/$/$?-(n/,/,><NNN*((_(((n/,/,><N@$N(n)_)_Rm<-Q(,^N](_ NNU?<N/-/-><NNDd ><N+_+_`T/-/-N+_+_/-/-><N?(m ?DWNNN+_+_/-/-a;G>- Gl;|?-(m >_?RW;_/-/-><NNDd ?-RW;_/-a?<QN?<(m>m<>GmF;G;F/-N/-N?< NN/?<QNRm<-Q/-/-><NNDd2/-N/-N?<-NN/?<QN/-/-N><N?NDd ><N?+_+_`?-SWN+_+_?-Hm/-a/-N/-N?<.NN/?<QN(m ?Hm/-aX,^N](_NNU?<N(m > Gm(m ?QW;_`(m ?UW;_/-/-><NNDd&><N+_+_;|`/-/-N+_+_/-/-a?SW;_/-/-?-NN+_+_/-/-><N??-DWNN//><NUMr DFN/-/-N><N?N/- /-N+_+_,-.-,^N](_P//NNU?<N/- /-N><NAcNDdj/- /-><NNDd&><N?!T N+_+_ `><N?!T +_+_ `/- /-><N?NNDdJ><N?!T ><N?/- /-Na^N+_+_ `/- /-><N?NNDd&><N?!T}N+_+_ `/- /-><N?NDd/- /-a+_+_ `/- /-><N?NDd ><N?!T}+_+_ `F><N?!T ><N?/- /-NaDN+_+_ /- /-><N?!T NDd,/- /-><N@ !TREPN+_+_ `/- /-><N?!T NNDd,/- /-><N@ !TREPN+_+_ `/- +m+_,-.-,^N](_P//N_lnk_eqr_gtr_lsr_rad_rsb_rml_rdv_rng_rab_xoparctanT4T4T$4T$4T$4T$4T$4T$4T$4T$4LTTTDTTDTT<,TD TDTT TTT<,TT,TDT$exp.o `````NU?<N/- +m+_><N?+_+_>-gDG;G>- Goh?-?<NDd /-/-/-/-N+_+_?-?<N;G/-/-><NN+_+_`/-+m+_,-.-,^N](_ //NNU?<N/- /-><NN;G>-Dd/- /-N+_+_ ><N?"Hu/- /-N><N?UzN/- /-N><N?MӞ4N/- /-N><N?TMiN/- /-N><N?UIyN/- /-N><N?N/- /-N><N?GN/- /-N><N?N+_+_>-Dd.><N?/-/-N+_+_`/-+m+_,-.-,^N](_P//NNU?<N/- /-><N@@NDd ><NAc+_+_`/- /-><N@NDd ><N>z򚼯H+_+_`j/- /-><NNDd/- /-N;G/- /-?-><NN+_+_ ?-><N@ Wia>+_+_/- /-a./-/-N+_+_`/- /-><NNDd ><N?+_+_`/- /-NN;G/- /-?-><NN+_+_ ?-><N@ Wiav+_+_/- /-af/-/-N+_+_,-.-,^N](_P//N_lnk_eqr_gtr_lsr_rad_rsb_rml_rdv_rng_xopexptstbitshrroundL\4dL4LDL4L$00esincos.op```d`` ``NU?<N><N@!TD-/- /-N+_+_ /- /-><NN+_+_><NY`j!/-/-N><N>)rfuN/-/-N><N*U^}N/-/-N><N?gN/-/-N><NUUT»UN/-/-N><N?N/- /-N+_+_,-.-,^N](_P//NNU?<N/- /-N><N?x~|ᛐNDd/- +m+_`T/- /-><N@!TD-N+_+_ /- /-/- /-N?><NN+_+_ /- /-N><N?y2NDd./- /-><N@!TD-N+_+_`/- /-><NNDd ><N+_+_`b/- /-><N?NDd ><N?+_+_`/- /-><N?NNDd&><N?N+_+_`/- /-><N?NDd2><N?/- /-Na+_+_`x/- /-><N?NNDd8><N?/- /-Na*N+_+_`/- /-a +_+_,-.-,^N](_P//NNU?<N/- /-N><N??H ZNDd ><N?+_+_`/- /-><N@!TD-N+_+_/-/-/-/-N?><NN+_+_/-/-><N@!TD-N+_+_ /-/-N><N?^[NDd ><N?+_+_`/-/-><NNDd ><N?+_+_`./-/-N><N?NDd&><N?N+_+_`/-/-N><N?NDd ><N+_+_`><N?f;/- /-><N@NaN+_+_><N?/-/-N><N?/-/-NN+_+_,-.-,^N](_P//N_lnk_eqr_gtr_lsr_rad_rsb_rml_rdv_rng_rab_xopsincosroundT4T4T4T$4T$4T$4T$4T$4LTT<lT,LTT4T TT TTD TDTT,TDT$DLTTT<lT,T4LTTT TLT TDLT TTT<4T,T$4arctan.o ````NU?<N/- /-><NN+_+_><N?gz4_y/-/-N><N;|aN/-/-N><N??|N/-/-N><NF.N/-/-N><N?GjىN/-/-N><N/DN/-/-N><N?ɗ|(UN/-/-N11xjp.o`&*B _024An@k J20 HNВ@RA4`_xjpelse_x1insert.o`Z*NU m B@B4-"H$mBRBS@ Q"mB@RS@Q m "mN](_ Ninsertin1*in2<swapit.o<` _>_Nswaphlt.o`>8B@NB"_$_0 @o" @g @ g @%g @.g @g" `BA/ NB>Nu_bdos_hltbdossmal2dobdos6setsub.o`` _pC "FÙQN_ssbl1fillchar.o\`"_24$_SBQNfillcharfill1 assign.o`.*// ?<@?<N// //?<%N _ N_strfillcharassign str.o`<T _0"_$_$ HB Bg BA@o2gSAQN _02$_N_str_st1,_s34_s1_s4*_s2$mult32.o8`dT _.]gXnD ]gJnD"$&HAHCf$ nHAށ nHBނ gD N.<`B`_mulretzero`mul1 mul2muloverXmulretTlongcomp.o`@b _ WN _ V` _ _` _ \` _ ]` _ ^`_eql_nel_gtl_lsl"_gel,_lel6donelongarth.o` _.NP`BBBBB _ g"ggPDAg D@ m*t&Z lZ– f@`Z&B` o4nR㈰oS?RSDm ㋰n`8C g"`&HC f,B. gDN.<N _.DN_sbl_dvl _mdl_nglmodentdiv0er_mretdiv32a.div32b:_dchkldivlpF_chkm^_dret_zretf_dmac_dlpx_dv0_dv1_dvd_nretbitstuf.o`$* _2VN _2_N _2_Ntstbitclrbitsetbitredirio.o`*b _#N _#N##Nu_sysin_sysougetput_sia_soa _dio  getput.ol` 8NN_sysin_sysou_getch_putch wordio.oX`"_ _>N"_ _0Ninportwoutprtwcase.o`DT _"_B@S@ am zn RQN _"_B@S@ Am Zn RQN_ucs_lcs"_uc02 _uc01_lc02,_lc01<lnk.ox`* _0"N$VU@k-"Q- - N_lnklnk01lnk02 22wrs.o`&NU/- R(m BG?/-NN](_PN_wch_wrswch.o<`NU m g m o?< NSm `?- NN] _\NNU2- 0- Af;@ 2@p@m;@;A?< NRm2-Qr0- m o0- Am.;A;@ mB2-SABA?NRm0-QN] _ N_wnc_chw_wch6chw1$chw2 wch5Nwch1twch3Zwch0wch2wch4wnc.o`<T.9gN"_0 y</9?/ N_putch_lfb_sysouput_wncwnc1  put.ol`* _0#/N_lfb_wnbput acomps.o`t"_2&_$_SA VW`Z"_2&_$_SA WV`F"_2&_$_SA _^`2"_2$_&_SA`"_2&_$_SA ]\`"_2&_$_SA ^_GN_eqa_nea_gta(_lsa<_geaH_lea\eq1 donenne1gt12ge1Rle1fconcat.o(`.<Nu3Nu _2 yl"|09HR9RyNNU mB@3gTy|o2<09@3 |09H"mR09S@Q099yN](_XN_lsb_isb_cch_cncHbufnxtlench1Fct3ct1zct2rnc.od`rb.9gNNu y& o /9T?N y<Nu yNu_lfb_sysinget_getch_rncrnc1rnc2H setmul.o\` _pC "ÙQN_smll1setadd.o\` _pC "QN_sadl1moves.o8`H _0"_$_` _0$_"_J@gS@QNB _0"_$_` B _0$_"_J@gS@!QN_mvl_mvr move moveleft moverigh,_m1exit_m2_m36_m4@bsr.o``xT _20zBQ @mb An\AnXBB4BJ6CKx@"O¶BfA|A"`""x:BMUEm"Q|AA"N_bsrb00b04vb03Tb05hb06bshftsst.o`&8 _0>oN _0>oN _"o p"QXNshl shr_sstlpsetload.o`` _"_ p/!QN_sldsld1 bss.o`0* _2|m"|npBQ4B_BDBIBGNPN_bsserror,l133, D$$$$D4<win.o\`NU mR>- | Wƾ|]ŌE|^ŌEDd;| >-|l-DmBC0-2- $HB @f Bg?RC`SC CfRCBg0| m^0Q"m"SN](_PNNU?- ?-HmaRBG-m o;G Hm?- ?9Bm m BPBm y& o f ?< /<N;G/- /<?<QN| ?<HmN y00 0 9f y. 9WP` y0DdRmNG f moUm`Bm` m <-H` y0De`RmNG - g m <-HRm` m <-H RmRm>-HǏHG|WDdSm` y& oSm m N](_\N_bdos_lfb_rnc_strresultio_rstxxxx_rstrst01rst02rstexrst03xrst04rst05rst06Drst07Prst08$      s2i.oX`NU m BP(m<g mR +g -f P;|` |+;|(mB@2-AJ@mj;m@Dd. m 0?"mB2-BB?N_ m 0` m 0 "mB2-B@0Rm-Q --f m DPN] _ N_h2i_s2is2iexs2i1*s2i26s2i3Bs2i4s2i8Zs2i5s2i6sin.o`0NUA0-(H2-(|_ADA0VGN](_"N_sinstrgcmp.o` _<>Fm>NNU m B@;@ mBA;A??a0BG2<AJ@m4;A;@ m 2-HP"mQmnRm0-Q0-mgnRRN] _PNNUBC/- /-atCW|N] _PNNUBC/- /-aRV|N] _PNNU<`NU<`NU<`NU<`strgcmin_ned_lsd_led_gtd_ged_eqdmin1 str1rstr2Bstrlt~strgtstr3fstreqteqtneq44xget2  gnb.o,`dFNU m #*"HTHfN m *BX<"HT0F@ PV@DdUB0"m <RPN] _\N_lfb_rnbgnbgnb1.gnb2\ pos.o `(_"_$_BGB@-S@J@m fQ~NNUBm"m nC IYQ$mR|--_2-FA@Dd>B-$m-WBB-@RB-\ADd/ /Rah;GR-`BG0-Dd-SGN] _PNpos compcmp1cmp2cmpexpos38pos0Ppos1pos2posexpurge.ox`* _0"_// N3Nu_unlinkresultiopurge ioresu.oH`>9Nuresultioioresultchn.o`,NU(mB`?</ N?<//-N_bdos_chnrch.oT`N _"_N_rnc_rchrewrite.o`NU m fR| +|PAST+|MP00+|.$$$ 9;@ |VR 9o0SR/- ?-HmN mf m 60;|` m 6BPY  U0U0U0UBPU0U# m R CWV :WFDd "/- ?<N m :0|gBy`3N](_\Nassign_lfbpurge_tfn_creatresultiorewriterw01`rw02Nrw03~rw04rw05rw06 rwex $,,rin.oP`0> -9 o_GGNuNUHma m>-N] _XNNU?<N y"H<& f Q y.>FG-<0\<9_B<+W‚B<-W‚B<$W‚BFAADd( y/(?N y<P`DdBG`-<$f><`><,^N]Nu 0\ 9_BDeDd A\ F_‚BDd_GG`PNuNU?<N.9gBm(mBTBmNG<$fRm`&<+f NG`<-fRmNG - gDDd(m<N?BgmaT_8`(m> -FF8NG`Dd(mDT`aF(mBT<g W y< -WW +WA $WADdR y/?<N y<< g g<f$m0DdH` $m4`$m0DdH` aV g G$m4`+y/<NN/<//-aN?/-aPUN:N_Dd(m&;|>-N](_XN_eqd_spnspn01spn036spn02spn04Bspn05dspn06nspn07spn08spn09spn10nok.o`H8NUBm(m ^ ]ƎFDeBASm  m ~n Q;|>-N](_XN_noknokex- OSGmt;G?</-NJmg8(m. TfL?</-N3JGg$(m.8`$?</-N3>-Q(m BTN] _NNuNUBm`>NU(m&8;|P Tg(m 8`_bdosresultio_fcbsblockwriblockreablockiobio04&bio05bio060bio07bio08bwexit  copy.o`H8NU>-|o;| m 0- H"|0-S@Q .<N](_PNcopyzzcbzzcpy1cpy2,crl.od`?< N?< NNu_wnc_crlcwt.o`2F y00F@DdN`BP gNNu_lfb_rnc_cwtcwt1cwt20  delete.o`:NU m "HB@<- HmHƐm mQ(m N](_PNdeletedl1&eof.o`* _0"_ @f"|.>Ninputeofeof1eoln.o`* _0"_ @f"|0>Ninputeolneoln1cpmget.o`TNU m 0BP# Dd T0`N m 6DdlQ0"H W€B@0  WB;BB0$m & WABDdN m .02 @Dd N] _\N_lfb_rnbgetget1&gete66@/ A0<QA0<QN](_PN/<@?<?<NNua;G;G|g,<@HކT//?<$?<N/- aD/- aFGDd;|3?-a`/- aDd$3(|@<-HT`.<@<-HކT mg?</N`/?</N.?</N3 Gf;|?-a^`:(|@<-H( mg8BT` BT`3>-N](_\NNUBm`NU;|`NU(m: Tf/ /-?<a(_8 TgH m& n$?<.<@<HކT/N3Bm(m:?a>-N](_XN _B<(|@// / ?<*/ N(_?<T/ N3*?<BgNNuNU>-FG |@<- HT+H VFDdX& Pg* Pg>TH/0<G??<N?- aJ?<0/-N?</-N3?- aN](_XN _B<(|@// ?<*/ N(_?<T/ N3<BG FfRGNuNU |@<- H+H( Pm/?- aFG(m8 _BP"m*<HBGRPN](_\NNU |@<-H+H( Pm/?-aD _BP>"m*H RPN](_XNNUBy y& f?<BNG<f*| ?<HmN|?<HmN`< f| ?<HmN y< -WP` y& f,;|?<HmN|g y<` y& f ?<HmN y<` y:;P ;P;|0- y(P_<-FFFDd*?-Hma y<0-S@HRm` y.0U0SPN]NuNUBy y& f?</N` f?</N` f?</N` f?</N`n y:;P0< y(2@JAm8;@;A y<4-SBHBG??-aDRm2-Q y*BPN]Nu\ _BB0p/N_bdos_chn_sfb_crl_nok_hlt_spnoutput_wrsfillcharresultio_lfb_fcbs@_unlink_parse_openp_ini2_creat|_close\_wnb|_rnbchainrgetanfcbdowhile nomore:active4gfcbex|lbl01dfreeanfcuppercasucasexparse02parse01parse03parse09parsexparse04(parse05.parsewhPparse06parse07parse08parse10parse11opcrfun2opcterr\opct01opctexdopct02opct04opct05opct03*opct06Xun01un02un03putsectocls01cls02cls03getsectogs01gb01xputbyteps01rnb01rnb02Frnb03`rnbexxrnb04rnb05rnb06rnb07rnb08`wnb01wnbexnwnb02wnb03wnb04wnb05`wnb06,<D,LLL&T6TTTTTLLT77NN](_\N_sfb_chw_crloutputpageff1Lff2v    cpmini.o`l"o i )SBQ# i.)# ) Q$H,J&_(O.J###@ / / #(y XД#X#P(y##B#"y"X"X"#B###00##/<L?<aCON:N/<L?-N]Nu _B<(|@8N&_> am znGNNUB@(m&LR g  fR@S`RgS@Q(m g*|@+| +| +| T :f;|BG$?a|G`;|C;mPm;|(m LB0- .W :W‚BFA4-m]C_CDd?a Rm` .W0-_@DdGm;G;F~Hm<-.Hކ(GBG?HmNN GDdZ+y/<NN/<NaBAD INTEGER, TRY AGAIN:/- GW|?at,^N](_XN_lnk_crl_mul_sfb_wrs_str_sad_ssb_sin_bss_bsr_lsb_isb_cnc_cch_sst_sldget_lfb_sysin_rnc_s2l_rdl outputLL4DTL4L4L4|DT4|L<|,dlt\,D $wlong.op`NU mR+H>- | Wƾ|]ŌE|^ŌEDd ;| .-l-+HDBm.-/?- BgN f Fg?Rm` mSm6- CfRCBg0| m^0Q"m"SN](_PNNU/- ?-Hma8Hm?- ?-|f>?</<N/-|g/<NN0-Sf:/<NaDIVIDE BY 0 DETECTED/ TO CONTINUE, ^C TO ABORT?/wxexwx02wx01  rlong.o`P```v``V`NU?<N/- ?<?<.(_((m f`*/-R(_BG??<+N?<-NNNDd/-R(_T;|`|+;|?-(mBF>Gm;G;F>-DdF/- (m /?<?<N/.-<-Hކ(GBG?a??<.ޟ(_(`@/- (m /?< ?<N/.-<-Hކ(GBG|??<.ޟ(_(Rm<-Qf- -f/- (m /D.(_(,^N](_ NNU?<N- 9oBG- |A| ;G`BG- |;G>-,^N](_TNNU?<N(nHl?<0?<9N?<+NN?<-NN?<$NNN/9&(_> Gf/92(_(T>< /92(_(TT/90(_> G?BG-?(nHlN(nN G_Dd4/9/9((_?N/92(_(TT`/9.(_>Dd ;|`- $f ;|`;|>-,^N]NuNU~?<N;|.9g$;|/-?<?<.(_(;|NG- $f ;|`8- +fNG`- -f;|NG-  g>-Dd:/-(m/?<?<N/BG-?a??<.ޟ(_(`4/-(m/?< ?<N/BG-|??<.ޟ(_(NG`t>-Dd/-(m/D.(_(`,a;G>- Gf/-?<?<.(_(`>- Gf*HmHmN?<A?<FNNNHmHmN?<$NNNHma?<PN/9::`><m;G>-<- Fo;m /- <<-.Hކ//</- :(_<.Hކ/*<-.Hކ/?-N/- ?-a:;G>- Gg`:>-m;G>-<-Ff/- ?-a;G>- GV?>- GV_?>- GV_Dd`>- m;G/- <<-.Hކ//</- :(_<.Hކ/*?-N/- ?-an;G>- Gg`n>-<-FV?>-<-FV_Dd/- ?-a(;G>- GV?>- GV_?>- GV_Dd` ;|/- <<-.Hކ//</- :(_<.Hކ/*?-N/- ?-a;G>- Gg`>-m;GRm<-Ql3,^N](_PN_lnk_crl_mul_dvl_sfb_wrsseekreadseekwritresultio_fcbs_hlt_bdoststbitshlsetbitoutputmoveclrbitL\LLLL\L\LLLL\ldt|$ |$, TLLLLD|$ |$, TLLLLDnewstuff.o(`a m><Nul#.#.9Nua"_B0DdR@o yѹ$_$SBQ~N$_B/ /<NBNu _T"_"Na _/9/9N _##N_bas_bpg_err_tom_sizlowtpahitpatextbastextsiz databasdatasizbssbasebsssizefreemem curdriv$fcbtwo8fcbone\comtailmaxavailmemavaillmemavailmaxavai_new4_dsp|_mrk_rlsmemex_lm1,_new01B_newerrf_new02\$$$;;OCEDURE TOO LONG 256 TOO MANY EXTERNAL REFERENCES 257 TOO MANY EXTERNALS 258 TOO MANY LOCAL FILES 259 EXPRESSION TOO COMPLICATED 398 IMPLEMENTATION RESTRICTION 399 IMPLEMENTATION RESTRICTION 400 ILLEGAL CHARACTER IN TEXT 401 UNEXPECTED END OF INPUT 402 ERROR IN WRITING CODE FILE, NOT ENOUGH ROOM 403 ERROR IN READING INCLUDE FILE 404 ERROR IN WRITING LIST FILE, NOT ENOUGH ROOM 405 CALL NOT ALLOWED IN SEPARATE PROCEDURE 406 INCLUDE FILE NOT LEGAL 407 *** HEAP OVERFLOW *** 496 INVALID ARGUMENT TO INLINE PSEUDO PROCEDURE 497 ERROR IN CLOSING CODE FILE. 500 NON-ISO EXTENSION BEING USED! 599 IMPLEMENTATION RESTRICTION erngchk.o\` _024A]ǰB^ÎCGN_chkrandomio.oh` ```*`:```` xNU?<N?</</- :(_<.Hކ/*NDd/</- :(_<.Hކ/%><(_/</- :(_<.Hކ/$>-O(_/</- :(_<.Hކ/#?-W>(_?<!/</- :(_<.Hކ/TN;G>-,^N](_\NNU?<N?</</- :(_<.Hކ/*NDd/</- :(_<.Hކ/%><(_/</- :(_<.Hކ/$>-O(_/</- :(_<.Hކ/#?-W>(_?<"/</- :(_<.Hކ/TN;G>-,^N](_\NNU?<N?-?<?-?<N+G(m8Hm/-?<N/-?<N/- /-?<?<N/T>(_8/- (m ??<N(_8/-TW?<NDd/- ?<N,^N](_ NNU?<N>- Glf/<NN/<Na,+Invalid relative record number in SEEKREAD./<(_8/</- :(_<.Hކ/(><(_8?- ?-HmHma6?->-m |<<HǏ_;G;|>-<-Gm;G;F>-<-Ff/- ?-a;G>- Gg`><m;G>-<- Fo;m /</- :(_<.Hކ/*<-.Hކ//- <<-.Hކ/?-N>-m;G>-<-Fft/- ?-a.;G>- Gg`*>- m;G/</- :(_<.Hކ/*/- <<-.Hކ/?-N>-<-FV?>-<-FV_Ddz/- ?-a;G>- Gg`;|/</- :(_<.Hކ/*/- <<-.Hކ/?-N>-m;GRm<-Q,3,^N](_PNNU?<N>- Glh/<NN/<Na.,Invalid relative record number in SEEKWRITE./<(_8/</- :(_<.Hކ/(><(_8?- ?-HmHmaD?->-m |<<HǏ_;G;|>-<-Gm;G;F>-<-Ff/- ?-a;G>- GV?>- GV_?>- GV_Dd< ***************************** * R E L E A S E N O T E S * ***************************** PASCAL/MT+ VERSION 3.3 FOR THE CP/M-68K OPERATING SYSTEM Copyright (c) 1984 by Digital Research, Inc. 1-1  Pascal/MT+ Release Notes These release notes pertain to both the software and the documentation set for the Digital Research product: Pascal/MT+ For the CP/M-68K Operating System They provide the most current information regarding: o changes to the software, or problems that have been identified since the product was released. o errors or omissions in the documentation set that could not be corrected because of the lead time needed for production and printing. Note: These release notes have been formatted so you can print them on your own printer, cut them to size (6 1/2 x 8 1/2), and place them in your manuals. 1-2 Pascal/MT+ Release Notes ************************************* ** Pascal/MT+ Distribution Disks ** ************************************* Digital Research supplies the Pascal/MT+ Programming System for CP/M-68K on a variety of disk formats. Whichever format you receive, your distribution disks should contain the following files: File Conte< 1 ERROR IN SIMPLE TYPE 2 IDENTIFIER EXPECTED 3 'PROGRAM' EXPECTED 4 ')' EXPECTED 5 ':' EXPECTED 6 ILLEGAL SYMBOL (POSSIBLY MISSING ';' ON LINE ABOVE) 7 ERROR IN PARAMETER LIST 8 'OF' EXPECTED 9 '(' EXPECTED 10 ERROR IN TYPE 11 '[' EXPECTED 12 ']' EXPECTED 13 'END' EXPECTED 14 ';' EXPECTED (POSSIBLY ON LINE ABOVE) 15 INTEGER EXPECTED 16 '=' EXPECTED 17 'BEGIN' EXPECTED 18 ERROR IN DECLARATION PART 19 ERROR IN 20 '.' EXPECTED 21 '*' EXPECTED 50 ERROR IN CONSTANT 51 ':=' EXPECTED 52 'THEN' EXPECTED 53 'UNTIL' EXPECTED 54 'DO' EXPECTED 55 'TO' OR 'DOWNTO' EXPECTED IN FOR STATEMENT 56 'IF' EXPECTED 57 'FILE' EXPECTED 58 ERROR IN (BAD EXPRESSION) 59 ERROR IN VARIABLE 99 MODEND EXPECTED 101 IDENTIFIER DECLARED TWICE 102 LOW BOUND EXCEEDS HIGH BOUND 103 IDENTIFIER IS NOT OF THE APPROPRIATE CLASS 104 UNDECLARED IDENTIFIER 105 SIGN NOT ALLOWED 106 NUMBER EXPECTED 107 INCOMPATIBLE SUBRANGE TYPES 108 FILE NOT ALLOWED HERE 109 TYPE MUST NOT BE REAL 110 TYPE MUST BE SCALAR OR SUBRANGE 111 INCOMPATIBLE WITH PART 112 INDEX TYPE MUST NOT BE REAL 113 INDEX TYPE MUST BE A SCALAR OR A SUBRANGE 114 BASE TYPE MUST NOT BE REAL 115 BASE TYPE MUST BE A SCALAR OR A SUBRANGE 116 ERROR IN TYPE OF STANDARD PROCEDURE PARAMETER 117 UNSATISIFIED FORWARD REFERENCE 118 FORWARD REFERENCE TYPE IDENTIFIER IN VARIABLE DECLARATION 119 RE-SPECIFIED PARAMS NOT OK FOR A FORWARD DECLARED PROCEDURE 120 FUNCTION RESULT TYPE MUST BE SCALAR, SUBRANGE OR POINTER 121 FILE VALUE PARAMETER NOT ALLOWED 122 A FORWARD DECLARED FUNCTION'S RESULT TYPE CAN'T BE RE-SPECIFIED 123 MISSING RESULT TYPE IN FUNCTION DECLARATION 125 ERROR IN TYPE OF STANDARD PROCEDURE PARAMETER 126 NUMBER OF PARAMETERS DOES NOT AGREE WITH DECLARATION 127 ILLEGAL PARAMETER SUBSTITUTION 128 RESULT TYPE DOES NOT AGREE WITH DECLARATION 129 TYPE CONFLICT OF OPERANDS 130 EXPRESSION IS NOT OF SET TYPE 131 TESTS ON EQUALITY ALLOWED ONLY 133 FILE COMPARISON NOT ALLOWED 134 ILLEGAL TYPE OF OPERAND(S) 135 TYPE OF OPERAND MUST BE BOOLEAN 136 SET ELEMENT TYPE MUST BE SCALAR OR SUBRANGE 137 SET ELEMENT TYPES MUST BE COMPATIBLE 138 TYPE OF VARIABLE IS NOT ARRAY 139 INDEX TYPE IS NOT COMPATIBLE WITH THE DECLARATION 140 TYPE OF VARIABLE IS NOT RECORD 141 TYPE OF VARIABLE MUST BE FILE OR POINTER 142 ILLEGAL PARAMETER SOLUTION 143 ILLEGAL TYPE OF LOOP CONTROL VARIABLE 144 ILLEGAL TYPE OF EXPRESSION 145 TYPE CONFLICT 146 ASSIGNMENT OF FILES NOT ALLOWED 147 LABEL TYPE INCOMPATIBLE WITH SELECTING EXPRESSION 148 SUBRANGE BOUNDS MUST BE SCALAR 149 INDEX TYPE MUST BE INTEGER 150 ASSIGNMENT TO STANDARD FUNCTION IS NOT ALLOWED 151 ASSIGNMENT TO FORMAL FUNCTION IS NOT ALLOWED 152 NO SUCH FIELD IN THIS RECORD 153 TYPE ERROR IN READ 154 ACTUAL PARAMETER MUST BE A VARIABLE 155 CONTROL VARIABLE CANNOT BE FORMAL OR NON-LOCAL 156 MULTIDEFINED CASE LABEL 157 TOO MANY CASES IN CASE STATEMENT 158 NO SUCH VARIANT IN THIS RECORD 159 REAL OR STRING TAGFIELDS NOT ALLOWED 160 PREVIOUS DECLARATION WAS NOT FORWARD 161 AGAIN FORWARD DECLARED 162 PARAMETER SIZE MUST BE CONSTANT 163 MISSING VARIANT IN DECLARATION 164 SUBSTITION OF STANDARD PROC/FUNC NOT ALLOWED 165 MULTIDEFINED LABEL 166 MULTIDECLARED LABEL 167 UNDECLARED LABEL 168 UNDEFINED LABEL 169 ERROR IN BASE SET 170 VALUE PARAMETER EXPECTED 171 STANDARD FILE WAS RE-DECLARED 172 UNDECLARED EXTERNAL FILE 174 PASCAL FUNCTION OR PROCEDURE EXPECTED 183 EXTERNAL DECLARATION NOT ALLOWED AT THIS NESTING LEVEL 187 ATTEMPT TO OPEN LIBRARY UNSUCCESSFUL 191 NO PRIVATE FILES 193 ILLEGAL GOTO - LABEL OUTSIDE OF SCOPE 194 COMMENT MUST APPEAR AT TOP OF PROGRAM 201 ERROR IN REAL NUMBER - DIGIT EXPECTED 202 STRING CONSTANT MUST NOT EXCEED SOURCE LINE 203 INTEGER CONSTANT EXCEEDS RANGE 206 ILLEGAL REAL NUMBER 250 TOO MANY SCOPES OF NESTED IDENTIFIERS 251 TOO MANY NESTED PROCEDURES OR FUNCTIONS 253 PR=nt or Use MT68.68K * Pascal/MT+ compiler MT68.000 * Compiler overlay DIS68.68K * Disassembler MTERRS.TXT Compiler error message text file READ.ME Latest Release Notes for your version * supplied in relocatable format. You can use the RELOC utility to configure the file for your system. PASLIB.L68 Pascal/MT+ Run-time System module  FPREALS.L68 Floating-point arithmetic module FULLHEAP.O Heap management module FIBDEF.LIB File Information Block definition HLT.S CP/M-68K halt routine IOMOD.S Source file for I/O routine CPMGET.S Source file for GET routine CPMINI.S Source file for initialization routine 1-3  Pascal/MT+ Release Notes Sample Programs BDOS6.PAS Demonstrates direct call to BDOS function 6 BDOS23.PAS Demonstrates direct call to BDOS function 23 CHAIN1.PAS First program in chaining demonstration CHAIN2.PAS Second program in chaining demonstration DEMOINLN.PAS Demonstrates INLINE PEEKPOKE.PAS Simulates BASIC Peek and Poke operations PPRIME.PAS Sieve of Eratosthenese TEST1.PAS Sample Program to demonstrate compile and link FT1.PAS File transfer using BLOCKREAD/BLOCKWRITE FT2.PAS File transfer using GNB/WNB FT3.PAS File transfer using SEEKREAD/SEEKWRITE FT4.PAS File transfer using GET/PUT ************************** * RUNNING UNDER CP/M-68K * ************************** The following remarks apply to Pascal/MT+ Version 3.3 running under the CP/M-68K operating system. o The Pascal Language Programmer's Guide for CP/M-68K (first edition) describes the operation of the linkage editor LINK68, which is supplied with version 1.2 of CP/M-68K. If you have an eariler version of CP/M-68K, it was supplied with the linkage editor LO68. Both LO68 and LINK68 can link Pascal/MT+ programs and create command files in the proper format. However, LINK68 has different command-line syntax and improved error messages. If you use LO68, you must use the documentation supplied with your operating system. 1-4 Pascal/MT+ Release Notes o The maximum module size is 32767 bytes, and the maximum procedure size is 8192 bytes. There is a maximum of 200 procedures per module and a total of 1024 global symbols per module. The maximum amount of global data per module is 65535 bytes. o The facility for handling INTERRUPT procedures is not implemented in this version. o REAL numbers using the BCD format are not implemented in this version; there is no BCDREALS run-time library. It will be supplied in following versions. o Due to a problem with CP/M-68K, you cannot invoke the compiler from a SUBMIT file unless you explicitly enter the name of the overlay file (MT68.000). That is, the SUBMIT file must contain the root module, the overlay, and the disa=-"Q- - N_lnklnk01lnk02 >ssembler (if required) as follows: mt68 mt68.000 dis68.68k ********************* * SOFTWARE PROBLEMS * ********************* The following remarks apply to problems that have been identified in the current release. Problem: The compiler halts indefinitely (requiring a reboot) if the source code has a missing delimiter, *) on the right side of a comment. 1-5 Pascal/MT+ Release Notes Solution: Make sure all comments in your source code have beginning and closing delimiters. Problem: The compiler will not detect the erroneous declaration SET OF nums where nums is type REAL, even though set operations are defined  only for ordinal types. Solution: Do not declare a set of type REAL. Problem: The set membership operator IN does not accept negative arguments. Solution: None at this time. Problem: The T and W source-code options do not flag STRING operations and report Error 500 as documented. When used together, they report incorrect error messages, and do not detect all non-standard features. Solution: None at this time. Problem: The $K9 and $K10 options do not work when used together. Solution: None at this time. Problem: There are errors in allocating array bounds for conformant arrays of two or more dimensions. One-dimensional conformant arrays work correctly. Solution: None at this time. 1-6 Pascal/MT+  Release Notes Problem: The OUT function does not generate correct code. Solution: None at this time. Problem: Strings longer than 80 characters cannot be passed by value. Solution: Pass strings longer than 80 characters by reference. You can also declare a single-dimensional ARRAY OF CHAR which is the exact size of the string (count the characters) and pass the array's name by value. Problem: Procedures cannot be passed as parameters. Solution: None at this time. Problem: It is not possible to perform recursive output using WRITE (or WRITELN). That is, a WRITE (or WRITELN) statement cannot contain a call to a function that does any I/O. Solution: None at this time. Problem: If a pointer is declared at the global level, and then in a local procedure the pointer is used before being declared, the compiler reserves storage based on the global declaration but references the local one. Solution: Don't use the same identifier for global and local variables. 1-7 Pascal/MT+ Release Notes **************************** ** DOCUMENTATION ERRATA ** **************************** The following are errors in the Pascal/MT+ Language Reference Manual (February 1983 edition): Page 3-3 Change WORD(x) to WRD(x) Page 6-2 Change the third paragraph to read: "The data type for a function must be a simple type. Put the type name after a colon at the end of the function heading. Page 6-8 In Table 6-1, change the Returns type for the Function ABS from >? REAL to "same as NUM". Page 6-10 In Table 6-1, the Function ADDR returns a POINTER not an INTEGER type. Also change FUNCTION @RLS to PROCEDURE @RLS. Delete the word FUNCTION in front of @HERR. 1-8 Pascal/MT+ Release Notes Page 6-12 Change the first sentence in the second paragraph to read: "You can use ADDR to reference external variables." Page 6-13 Change the example to ARCTAN(1) = 0.78539 Page 6-19 Change the first sentence in the second paragraph to read: "CLOSEDEL closes and deletes files after use." In the last paragraph, change File Control Blocks (FCBs) to File Information Blocks (FIBs). Page 6-68 Change the fifth paragraph to read: "WRITE and WRITELN treat strings as arrays of characters. They do not write the length byte to TEXT files." Page 7-2 In the second paragraph, change F2 to F3 in: F2^ := 45; puts the integer value 45 in the buffer of the file variable F2. 1-9 * =============================================================== * File - HLT.S - 68000 MT+ to BDOS Interface * =============================================================== * Created : 10 Oct 1983 by : Clint H. Woeltjen * Last Modified : 10 Oct 1983 by : Clint H. Woeltjen * =============================================================== .globl _bdos .globl _hlt .text _hlt: clr.w d0 * System Reset trap #2 * Does not return _bdos: move.l (a7)+,a1 * pop return address move.l (a7)+,a2 * pointer to parameter move.w (a7)+,d0 * function number cmpi.w #8,d0 * Check type of function ble bdossmall * Need what is pointed to cmpi.w #14,d0 * Select Disk function beq bdossmall * Don't need pointer cmpi.w #32,d0 * Set User Code beq bdossmall * Don't need pointer cmpi.w #37,d0 * Reset Drive beq bdossmall * Don't need pointer cmpi.w #46,d0 * Get Disk Free Space beq bdossmall * Don't need pointer cmpi.w #14,d0 * Select Disk function beq bdossmall * Don't need pointer move.l a2,d1 * Move pointer into position bra dobdos * Don't need pointer bdossmall:  clr.w d1 move.b (a2),d1 * Get parameter dobdos: move.l a1,-(a7) * Push Return Address trap #2 * Call BDOS move.w d0,d7 * Returned parameter rts * .end ?@* =============================================================== * File - CPMGET.S * =============================================================== * Created : 20 Dec 1983 by : Clint H. Woeltjen * Last Modified : 21 Jan 1984 by : Clint H. Woeltjen * =============================================================== * .globl get * text .globl _lfb * bss external .globl _rnb * text external .text * get: link a5,#-2 move.l  10(a5),a0 add.l #48,a0 clr.w (a0) * f.feoln := false; move.l 10(a5),_lfb * _lfb := addr(f); move.w -(a0),ccr * if f.feof bcc get1 addq.l #2,a0 move.w #1,(a0) * f.feoln := true; bra getex get1: jsr _rnb move.l 10(a5),a0 add.l #54,a0 move.w (a0),ccr * if f.ftext bcc getex * then begin subq.l #8,a0 * f.feof := move.w (a0),d0 move.l a0,a1 adda.l #14,a1 move.b (a1),d1 cmpi.b #26,d1 seq d2 * (f.fbuffer[0] = chr($1a)) or or.w d2,d0 andi.w #1,d0 move.w d0,(a0)+ * f.feof cmpi.b #13,d1 * is_eoln := f.fbuffer[0] = chr(13) seq d2 andi.w #1,d2 move.w d2,-2(a5) or.w d2,d0 move.w d0,(a0) * f.feoln := is_eoln or f.feof  move.l 10(a5),a2 add.l #38,a2 cmpi.b #2,(a2) seq d1 * if (f.option = frdwr) and andi.w #1,d1 and.w d2,d1 * is_eoln move.w d1,ccr bcc get2 jsr _rnb * then _rnb get2: move.l 10(a5),a0 add.l #46,a0 move.w (a0)+,d0 * if f.feof move.w (a0),d1 adda.l #12,a0 or.w d0,d1 * or f.feoln move.w d1,ccr bcc getex move.b #32,(a0) * then f.fbuffer[0] := ' '; getex: unlk a5 move.l (a7)+,a0 addq.l #6,a7 jmp (a0) * .end @A* =============================================================== * File - CPMINI.S * =============================================================== * Created : 12 Jan 1984 by : Clint H. Woeltjen * Last Modified : 12 Jan 1984 by : Clint H. Woeltjen * =============================================================== .globl put * external .globl get * external .globl reset * external .globl rewrite * external .globl assign * external  .globl _bas * bss .globl _siz * bss .globl _bpg * bss .globl output * bss .globl input * bss .globl _frl * bss .globl _tfn * bss .globl _tom * bss .globl _sysin * bss .globl _sysou * bss .globl _ini * text * .bss .even * _tom: .ds.l 1 _siz: .ds.l 1 _bas: .ds.l 1 output: .ds.b 64 input: .ds.b 64 _bpg: .ds.l 1 _frl: .ds.l 1 _tfn: .ds.l 1 _sysin: .ds.l 1 _sysou: .ds.l 1 extrabase: .ds.l 1 extralen: .ds.l 1 frlfirst: .ds.l 1 fprev: .ds.l 1 fsiz: .ds.l 1 frllast: .ds.l 1 lprev: .ds.l 1 lsiz: .ds.l 1 junk: .ds.l 1 temp: * start of bss .ds.l 1 xlen: .ds.l 1 ylen: .ds.l 1 * .text * _ini: move.l 8(a7),a1 * Address of base page move.l 24(a1),a0 * Start of bss move.l 28(a1),d0 * length of bss subq.l #1,d0 * for dbra inilp: clr.b (a0)+ dbra d0,inilp * clear bss move.l a1,_bpg * Save for everyone else move.l 24(a1),a0 * Start of bss move.l 28(a1),d7 * length of bss adda.l d7,a0 * start of free memory move.l a0,_bas * save as base of free memory move.l 32(a1),d0 * length of free memory subq.l #8,d0 * to be safe move.l a0,a2 * base of free memory adda.l d0,a2 * top of free memory move.l a2,a6 * lexical stack pointer subi.l #1536,d0 * new length of free memory suba.l #512,a2 * size of lexical stack move.l (a7)+,a3 * return address move.l a7,a4 * stack pointer move.l a2,a7 * new stack pointer suba.l #1024,a2 * size of stack move.l a2,_tom * top of memory move.l d0,_siz * save size of free memory move.l d0,32(a1) * new length of free memory move.l a4,-(a7) * push old stack pointer move.l a3,-(a7) * push return address move.l _bpg,temp * temp := basepage addi.l #24,temp  * temp := temp + 24 move.l temp,a4 * extrabase := temp^ move.l (a4),d0 addq.l #4,a4 * get length of bss add.l (a4),d0 * point to start of free memory move.l d0,junk * junk := extrabase addq.l #4,d0 * extrabase := extrabase + 4 move.l d0,extrabase addq.l #8,temp * temp := temp + 8 move.l temp,a4 * length of free memory  move.l (a4),extralen * extralen := temp^ move.l #2,fprev * frlfirst.prv := nil clr.l fsiz * frlfirst.siz := 0 move.l junk,frlfirst * frlfirst.nxt := junk move.l frlfirst,a1 move.l #frllast,(a1) * frlfirst.nxt^.nxt := addr(frllast) addq.l #4,a1 move.l #frlfirst,(a1) * frlfirst.nxt^.prv := addr(frlfirst) addq.l #4,a1 move.l extralen,(a1) * frlfirst.nxt^.siz :=AB 0 move.l #2,frllast * frllast.nxt := nil clr.l lsiz * frllast.siz := 0 move.l junk,lprev * frllast.prv := junk move.l #frlfirst,_frl * _frl := addr(frlfirst) move.l #$13030,_tfn * _tfn := '00' move.l #get,_sysin * _sysin := addr(get) move.l #put,_sysou * _sysou := addr(put) move.l #input,-(a7) move.w #1,-(a7) bsr.b dummy1 .dc.b 4,'CON:',0 dummy1: jsr assign * assign(input,'CON:') move.l #input,-(a7) move.w #-1,-(a7) jsr reset * reset(input) move.l #output,-(a7) move.w #1,-(a7) bsr.b dummy2 .dc.b 4,'CON:',0 dummy2: jsr assign * assign(output,'CON:') move.l #output,-(a7) move.w #-1,-(a7) jsr rewrite * rewrite(output) rts * .end * =============================================================== * File IOMOD.S * =============================================================== * Created : 17 Jan 1984 by : Clint H. Woeltjen * Last Modified : 21 Jan 1984 by : Clint H. Woeltjen * =============================================================== * .globl _chn * external .globl _nok * external .globl _spn * external .globl _crl * external .globl _sfb * external .globl _wrs * external .globl _hlt * external .globl _bdos * external .globl output * external .globl fillchar * external .globl resultio * external .globl _lfb * bss .globl _fcbs * bss .globl _unlink * text .globl _parse * text .globl _open * text .globl _ini2 * text .globl _creat * text .globl _close * text .globl _wnb * text .globl _rnb * text .globl chain * text * .even .bss * _lfb: .ds.b 64 _fcbs: .ds.b 1720 * .text * getanfcb: link a5,#-6 move.w #0,-6(a5) * i := 0 dowhile: cmp.w #10,-6(a5) * while i < maxfcbs + 1 bgt nomore * do begin move.l #_fcbs,a4 * if not(_fcbs[i].active) clr.l d6 move.w -6(a5),d6 mulu #172,d6 adda.l d6,a4 move.w  (a4),ccr bcs active * then begin move.w -6(a5),-4(a5) * get_an_fcb := i move.w #1,(a4) * _fcbs[i].active := true bra gfcbex * exit active: addq.w #1,-6(a5) * else i := i + 1 bra.b dowhile nomore: move.w #-1,-6(a5) * i := -1 move.l #output,-(a7) * writeln('fcb table exhausted!) jsr _sfb bsr.b lbl01 dc.b 20,'FCB TABLE EXHAUSTED!',0BC lbl01: move.l #-1,-(a7) jsr _wrs jsr _crl jsr _hlt gfcbex: move.w -4(a5),d7 unlk a5 rts * freeanfcb: move.l (a7)+,a0 * pop return address clr.l d6 move.w (a7)+,d6 * fcbnum move.l #_fcbs,a4 mulu #172,d6 adda.l d6,a4 move.w #0,(a4) jmp (a0) * uppercase: move.l (a7)+,a3 * pop return address move.w (a7)+,d7 * pop character cmpi.b #'a',d7 blt ucasex cmpi.b #'z',d7 bgt ucasex andi.w #223,d7 * make it uppercase ucasex: jmp (a3) * _parse: link a5,#-20 clr.w d0 * while (length(s) <> 0) and (s[i] = ' ') move.l 8(a5),a4 move.l a4,a3 parse02: addq.l #1,a4 cmp.b #0,(a3) beq parse01 cmp.b #32,(a4) bne parse01  addq.w #1,d0 subq.b #1,(a3) * do delete(s,1,1) bra parse02 parse01: addq.l #1,a3 cmp.l a3,a4 beq parse03 subq.w #1,d0 parse09: move.b (a3)+,(a4)+ dbra d0,parse09 parse03: move.l 8(a5),a4 * if length(s) <> 0 cmp.b #0,(a4) beq parsex * then begin move.b #64,-2(a5) * disk := '@' move.l #$20202020,-10(a5) * name := ' ' move.l #$20202020,-6(a5) move.l #$20202000,-14(a5) * ext := ' ' addq.l #2,a4 * if s[2] = ':' cmp.b #':',(a4) bne parse04 * then begin move.w #3,-20(a5) * i := 3 clr.w d7 move.b -(a4),d7 * disk := uppercase(s[1]) move.w d7,-(a7) bsr uppercase move.b d7,-2(a5) bra parse05 parse04: move.w #1,-20(a5) * else i := 1 parse05:  lea -10(a5),a1 move.w -20(a5),-16(a5) * max := i + 8 addq.w #8,-16(a5) move.w #1,-18(a5) * j := 1 move.l 8(a5),a4 * while ( move.l a4,a0 clr.l d0 move.w -20(a5),d0 adda.l d0,a4 parsewh: cmp.b #'.',(a4) * (s[i] <> '.') or seq d1 cmp.b #':',(a4) * (s[i] <> ':')) and seq d2 or.w d2,d1 not.w d1 move.w -20(a5),d2 cmp.w -16(a5),d2 * (i < max) and slt d3 and.w d3,d1 cmp.b (a0),d2 * and (i <= length(s))) sle d3 and.w d3,d1 move.w d1,ccr bcc parse06 * do begin move.b (a4)+,d7 move.w d7,-(a7) bsr uppercase * name[j] := uppercase(s[i]) move.b d7,(a1)+ addq.w #1,-20(a5) * i := i + 1 bra parsewh parse06: cmp.b  #'.',(a4)+ * if (s[i] = '.') and seq d1 move.w -20(a5),d0 cmp.b (a0),d0 * (i <= length(s)) sle d0 and.w d0,d1 move.w d1,ccr bcc parse07 * then begin addq.w #1,-20(a5) * i := i + 1 lea -14(a5),a1 clr.l d0 move.w -18(a5),d0 subq.w #1,d0 adda.l d0,a1 move.b #1,d0 parse08: cmp.b #4,d0 * while (j < 4) and slt d1 move.w -20(a5),d2 cmp.b (a0),d2 * (i <= length(s)) sle d2 and.w d1,d2 move.w d2,ccr bcc parse07 * do begin move.b (a4)+,d7 move.w d7,-(a7) bsr uppercase * ext[j] := uppercase(s[i]) move.b d7,(a1)+ addq.b #1,d0 addq.w #1,-20(a5) * i := i + 1 bra.b parse08 parse07: move.l 12(a5),-(a7) move.w CD #19,-(a7) move.w #0,-(a7) jsr fillchar * fillchar(f,sizeof(fcblk)-18,chr(0)) move.l 12(a5),a4 * f[0] := chr(ord(disk) - ord('@')) move.b -2(a5),d7 subi.b #'@',d7 move.b d7,(a4)+ move.l a4,-(a7) lea -10(a5),a0 * addr(name) move.w #7,d0 parse10: move.b (a0)+,(a4)+ dbra d0,parse10 lea -14(a5),a0 * addr(ext) move.w #2,d0 parse11: move.b (a0)+,(a4)+ dbra d0,parse11 parsex: unlk a5 move.l (a7)+,a4 addq.l #8,a7 jmp (a4) * _ini2: move.l #_fcbs,-(a7) move.w #1720,-(a7) move.w #0,-(a7) jsr fillchar * fillchar(_fcbs,sizeof(_fcbs),chr(0)) rts * opcrfun: bsr getanfcb move.w d7,-6(a5) * i := get_an_fcb move.w d7,-4(a5) * _opct := i cmp.w #-1,d7 * if i <> -1 beq opcterr * then begin move.l #_fcbs,d6 ext.l d7 mulu #172,d7 add.l d6,d7 addq.l #2,d7 move.l d7,-(a7) move.l d7,-(a7) move.w #36,-(a7) move.w #0,-(a7) jsr fillchar * fillchar(_fcbs[i].fcb,36,chr(0)) move.l 10(a5),-(a7) bsr _parse * _parse(_fcbs[i].fcb,f.fname) move.l 10(a5),-(a7) bsr _nok  * if not _nok(f.fname) not.w d7 move.w d7,ccr bcc opct01 * then begin move.w #-1,-4(a5) * _opct := -1 move.w #255,resultio * resultio := 255 move.w -6(a5),-(a7) bsr freeanfcb * free_an_fcb(i) bra opctex * exit opct01: move.l 10(a5),-(a7) bsr _spn * if _spn(f) move.w d7,ccr bcc opct02 * then begin  move.w #0,resultio * resultio := 0 move.l #_fcbs,a4 move.w -6(a5),d6 ext.l d6 mulu #172,d6 adda.l d6,a4 addq.l #2,a4 move.b #255,(a4) * _fcbs[i].fcb[0] := chr($ff) bra opctex opct02: move.l #_fcbs,d7 move.w -6(a5),d6 ext.l d6 mulu #172,d6 add.l d6,d7 addq.l #2,d7 cmpi.w #1,8(a5) * check if opct or create beq  opct04 * branch on create move.w #15,-(a7) move.l d7,-(a7) jsr _bdos * resultio := _bdos(15,addr(_fcbs[i].fcb)) bra opct05 opct04: move.l d7,-(a7) * push addr(fib) move.w #19,-(a7) * delete function code move.l d7,-(a7) * addr(fib) jsr _bdos move.l (a7)+,d7 * pop addr(fib) move.w #22,-(a7) * create function code  move.l d7,-(a7) * push addr(fib) jsr _bdos opct05: move.w d7,resultio cmpi.w #255,d7 * if resultio = 255 bne opct03 * then begin move.w #-1,-4(a5) * _opct := -1 move.w -6(a5),-(a7) bsr freeanfcb * free_an_fcb(i) bra opctex opct03: move.l #_fcbs,a4 move.w -6(a5),d6 ext.l d6 mulu #172,d6 adda.l d6,a4  adda.l #40,a4 cmpi.w #1,8(a5) * check if create or open beq opct06 move.w #128,(a4) * _fcbs[i].bufidx := sizeof(sector) adda.l #130,a4 clr.w (a4) * _fcbs[i].endfile := false bra opctex opct06: clr.w (a4) * _fcbs[i].bufidx := 0; bra opctex opcterr: move.w #255,resultio * else resultio := 255 opctex: move.w -4(a5),d7 unlk DE a5 move.l (a7)+,a4 addq.l #6,a7 jmp (a4) * _open: link a5,#-6 clr.w 8(a5) bra opcrfun * _creat: link a5,#-6 move.w #1,8(a5) bra opcrfun * _unlink: link a5,#-4 move.l 8(a5),a4 adda.l #58,a4 cmp.w #0,(a4) * if f.sysid = 0 bne un01 * then f.sysid := _open(f,2) move.l a4,-(a7) move.l 8(a5),-(a7) move.w #2,-(a7) bsr _open move.l (a7)+,a4 move.w d7,(a4) un01: cmp.w #-1,(a4) * if f.sysid <> -1 beq un02 * then begin move.l 8(a5),a0 adda.l #38,a0 cmpi.b #3,(a0) * if f.option <= frandom bgt un03 move.w #19,-(a7) move.l #_fcbs,d7 move.w (a4),d6 ext.l d6 mulu #172,d6 add.l d6,d7 addq.l #2,d7  move.l d7,-(a7) jsr _bdos * then resultio := _bdos(19,addr(_fcbs[f.sysid].fcb)) move.w d7,resultio un03: clr.w -4(a5) * _unlink := 0 move.l 8(a5),a4 add.l #58,a4 move.w (a4),-(a7) bsr freeanfcb * free_an_fcb(f.sysid) un02: move.w -4(a5),d7 unlk a5 move.l (a7)+,a4 addq.l #4,a7 jmp (a4) * putsector: move.l (a7)+,a0  * pop return address clr.l d6 move.w (a7)+,d6 * fcbnum move.l #_fcbs,a4 mulu #172,d6 adda.l d6,a4 move.l a0,-(a7) * push return address move.l a4,-(a7) * push addr(_fcbs[i]) move.l a4,-(a7) * push addr(_fcbs[i]) move.w #26,-(a7) * set dma add.l #42,a4 move.l a4,-(a7) * addr(_fcbs[i].buffer) jsr _bdos move.l (a7)+,a4  * pop addr(_fcbs[i]) move.w #21,-(a7) * write sequential addq.l #2,a4 move.l a4,-(a7) * addr(_fcbs[i].fcb) jsr _bdos move.w d7,resultio add.l #42,(a7) move.w #128,-(a7) clr.w -(a7) * clear sector buffer jsr fillchar rts * _close: link a5,#-6 move.w 8(a5),d7 * if (not an_infile) and not.w d7 move.l #_fcbs,a0 move.w 10(a5),d6 ext.l d6 mulu #172,d6 adda.l d6,a0 addq.l #2,a0 move.l a0,-6(a5) cmp.b #255,(a0) * (_fcbs[i].fcb[0] <> chr($ff)) sne d6 and.w d6,d7 move.w d7,ccr bcc cls01 * then begin adda.l #38,a0 cmp.w #0,(a0) * if (_fcbs[i].bufidx <> 0) beq cls02 * then begin cmp.w #128,(a0) * if (_fcbs[i].bufidx <> sizeof(sector))  beq cls03 move.w (a0),d7 addq.l #2,a0 ext.l d7 adda.l d7,a0 move.l a0,-(a7) move.w #128,d0 sub.w d7,d0 move.w d0,-(a7) move.w #26,-(a7) jsr fillchar * then fillchar(buffer[bufidx],sizeof(sector)-bufidx,26) cls03: move.w 10(a5),-(a7) bsr putsector * putsector(i) cls02: move.w #48,-(a7) * flush buffers move.l -6(a5),-(a7) jsr  _bdos * resultio := _bdos(48,addr(_fcbs[i].fcb)) move.w #16,-(a7) * close file move.l -6(a5),-(a7) jsr _bdos * resultio := _bdos(16,addr(_fcbs[i].fcb)) move.w d7,resultio cls01: move.w 10(a5),-(a7) bsr freeanfcb * free_an_fcb(i) unlk a5 move.l (a7)+,a4 addq.l #4,a7 jmp (a4) * getsector: move.l (a7)+,a0 * pop return address clr.l EFd6 move.w (a7)+,d6 * fcbnum move.l #_fcbs,a4 mulu #172,d6 adda.l d6,a4 move.l a0,-(a7) * push return address move.l a4,-(a7) * push addr(_fcbs[i]) move.w #26,-(a7) * set dma add.l #42,a4 move.l a4,-(a7) * addr(_fcbs[i].buffer) jsr _bdos move.l (a7)+,a4 move.w #20,-(a7) * resulti := _bdos(20,addr(_fcbs[i].fcb)) addq.l #2,a4 move.l a4,-(a7) jsr _bdos move.w d7,resultio move.w d7,d6 clr.w d7 cmpi.w #0,d6 * if resultio = 0 bne gs01 addq.w #1,d7 * then getsector := true gs01: rts * getbyte: link a5,#-4 move.l #_fcbs,a0 move.w 12(a5),d6 ext.l d6 mulu #172,d6 adda.l d6,a0 move.l a0,-4(a5) adda.l #40,a0 * if bufidx >= sizeof(sector) cmp.w #128,(a0) blt gb01 * then begin move.l a0,-(a7) move.w 12(a5),-(a7) bsr getsector not.w d7 move.l 8(a5),a4 move.w d7,(a4) * endfil := not getsector(i) move.l (a7)+,a0 clr.w (a0) gb01: move.l -4(a5),a1 add.l #42,a1 move.w (a0),d6 ext.l d6 adda.l d6,a1 clr.w d7 move.b (a1),d7 * getbyte := buffer[bufidx] addq.w #1,(a0) * bufidx := bufidx + 1 unlk a5 move.l (a7)+,a4 addq.l #6,a7 jmp (a4) * putbyte: link a5,#-4 move.l #_fcbs,a0 move.w 8(a5),d6 ext.l d6 mulu #172,d6 adda.l d6,a0 move.l a0,-4(a5) adda.l #40,a0 cmp.w #128,(a0) * if bufidx >= sizeof(sector) blt ps01 * then begin move.l a0,-(a7) move.w 8(a5),-(a7) bsr putsector * putsector(i) move.l (a7)+,a0 clr.w (a0) * bufidx := 0 ps01: move.w (a0),d7 move.l -4(a5),a1 adda.l #42,a1 ext.l d7 adda.l d7,a1 move.b 11(a5),(a1) * buffer[bufidx] := b addq.w #1,(a0) * bufidx := bufidx + 1 unlk a5 move.l (a7)+,a4 addq.l #4,a7 jmp (a4) * _rnb: link a5,#-16 clr.w resultio * resultio := 0 move.l _lfb,a0 adda.l #38,a0 cmpi.b #4,(a0) * if _lfb^.option = fconio bne rnb01 * then begin move.w #1,-(a7) clr.l -(a7) jsr _bdos * ch := _bdos(1,0) move.b d7,-10(a5) cmp.b #8,d7 * if ch = chr(8) bne rnb02 * then begin move.b #32,-8(a5) * c := ' ' move.w #2,-(a7) * i := _bdos(2,addr(c)) pea -8(a5) jsr _bdos move.b #8,-8(a5) * c := chr(8) move.w #2,-(a7) * i := _bdos(2,addr(c)) pea -8(a5) jsr _bdos bra rnb03 rnb02: cmp.b #13,d7 * else if ch = chr(13) bne rnb03 * then begin move.b #10,-8(a5) * c := chr(10) move.w #2,-(a7) * i := _bdos(2,addr(c)) pea  -8(a5) jsr _bdos rnb03: move.l _lfb,a0 adda.l #60,a0 move.b -10(a5),(a0) * _lfb^.fbuffer[0] := ch suba.l #14,a0 cmp.b #26,-10(a5) seq (a0) * _lfb^.feof := (ch = chr(26)) andi.w #1,(a0) bra rnbex rnb01: move.l _lfb,a0 adda.l #38,a0 cmpi.b #5,(a0) * if _lfb^.option = ftrmio bne rnb04 * then begin rnb05: F&rstexrst03rst04`rst05Zrst06rst07rst08_sinstrgcFmin8_ned_lsd_led$_gtd_ged_eqdmin1Dstr1str2zstrltstrgtstr3streqteqtneq_wrs._chwT_wchchw1xchw2`wch5wch1wch3wch0wch2 wch4_wncwnc1*putR_lsbd_isbl_cch~_cncbufnxtlench1ct3ct1ct2_rncrnc12rnc2d_sadl1_mvl_mvrmovemovelemoveri_m1exit_m2_m3_m4_bsrb00b04^b03 0 move.l _lfb,a0 adda.l #60,a0 move.b d7,(a0) * _lfb^.fbuffer[0] := ch bra rnbex rnb04: move.l _lfb,a0 adda.l #38,a0 cmpi.b #7,(a0) * if _lfb^.option = fauxio bne  rnb06 * then begin move.w #3,-(a7) pea -6(a5) jsr _bdos * ch := _bdos(3,addr(k)) move.l _lfb,a0 adda.l #60,a0 move.b d7,(a0) * _lfb^.fbuffer[0] := ch bra rnbex * exit rnb06: move.l _lfb,a0 adda.l #58,a0 move.w (a0),-2(a5) * i := _lfb^.sysid suba.l #12,a0 move.w (a0),-12(a5) * endfile := _lfb^.feof move.w #1,-4(a5) * j := 1 rnb07: move.w -4(a5),d0 move.l _lfb,a0 adda.l #40,a0 cmp.w (a0),d0 * while (j <= _lfb^.buflen) and sle d7 move.w -12(a5),d6 not.w d6 * (not endfile) and.w d6,d7 move.w d7,ccr bcc rnb08 * do begin move.w -2(a5),-(a7) pea -12(a5) bsr getbyte move.l _lfb,a0 adda.l #60,a0 move.w -4(a5),d0 subq.w #1,d0 ext.l d0 adda.l d0,a0 move.b d7,(a0) * do fbuffer[j-1] := getbyte(i,endfile) addq.w #1,-4(a5) * j := j + 1 bra.b rnb07 rnb08: move.l _lfb,a0 adda.l #46,a0 move.w -12(a5),(a0) * _lfb^.feof := endfile subq.l #2,a0 move.w -4(a5),(a0) subq.w #1,(a0) * _lfb^.iosize := j - 1 rnbex: unlk a5 rts * _wnb: link a5,#-12 clr.w resultio * resultio := 0 move.l _lfb,a0 add.l #38,a0 cmpi.b #4,(a0) * if _lfb^.option = fconio bne wnb01 * then begin move.w #2,-(a7) adda.l #22,a0 move.l a0,-(a7) jsr _bdos * i := _bdos(2,addr(_lfb^.fbuffer[0])) bra wnbex * exit wnb01: cmpi.b #5,(a0) * if _lfb^.option = ftrmio bne wnb02  * then begin move.w #6,-(a7) adda.l #22,a0 move.l a0,-(a7) jsr _bdos * i := _bdos(6,addr(_lfb^.fbuffer[0])) bra wnbex * exit wnb02: cmpi.b #6,(a0) * if _lfb^.option = flstout bne wnb03 * then begin move.w #5,-(a7) adda.l #22,a0 move.l a0,-(a7) jsr _bdos * i := _bdos(5,addr(_lfb^.fbuffer[0])) bra wnbex * exit wnb03: cmpi.b #7,(a0) * if _lfb^.option = fauxio bne wnb04 * then begin move.w #4,-(a7) adda.l #22,a0 move.l a0,-(a7) jsr _bdos * i := _bdos(4,addr(_lfb^.fbuffer[0])) bra wnbex * exit wnb04: move.l _lfb,a0 adda.l #58,a0 move.w (a0),-2(a5) * i := _lfb^.sysid move.w #1,d0 * for j := 1 to _lfb^.buflen move.l _lfb,a0 adda.l #40,a0 move.w (a0),d1 sub.w d0,d1 tst.w d1 blt wnb05 move.w d0,-4(a5) wnb06: move.w d1,-8(a5) move.l _lfb,a0 adda.l #60,a0 move.w -4(a5),d2 subq.w #1,d2 ext.l d2 adda.l d2,a0 clr.w d7 move.b (a0),d7 move.w d7,-(a7) move.w -2(a5),-(a7) bsr putbyte * do putbyte(fbuffer[j-1],i) addq.w #1,-4G02nadd004o>retaccoVadd4anadd5nadd4nadd7o"add5aoadd6oadd7ao.add005oNmulretoswapopsqmulxolrnormrlroundqrevnormqchkovfloclrsigqdofmultomux1pPstrshrr0diverrqdiv0bpdiv1pdiv2pdivypdiv4pdiv3pdiv4apdivzpdivbpdivapdivcqfloat2qFfloat1q4fix0q\fixovflqfix1qjfix2qfix3qswp01qrn1qincexpqsetinfqdoerrqlr1rnoretr.strshlrD_xoprd_qqsradrtabrTlconrrfloatr|floaturduprealr_cmdr_errrerrexituerrcaserchkheaps@er01s*errextchkstrinser02snchksubsser03schkfloatter04schkbadtVer06tBerelseterconttwnbuwnb1u:pageufff1uff2u_bas_siz_bpgoutput inputL_frl_tfn_tom_sysin_sysou_iniuextrabasextralenfrlfirstfprevfsizfrllastlprevlsizjunktempxlenyleninilpudummy1wdummy2w8resetwPreset01x reset02wreset03wreset04xreset05xJreset06xVreset07y reset08y reset09xresetexyreset10yclosey&closedelycls01ycls02ylcls03yVcls04yclsd01y_lfb_fcbs_unlink}_parsez_open}z_ini2|&_creat}_close~f_wnb_rnbchain|getanfcbz dowhileznomorezDactivez>gfcbexzlbl01znfreeanfczuppercaszucasexzparse02zparse01zparse03zparse09zparsex|parse04{2parse05{8parsewh{Zparse06{parse07{parse08{parse10| parse11|opcrfun|spn10R_nok~nokexnoktruenokloop_sfbcopyzzcbzzcpy1cpy2_crl_cwt.cwt1Jcwt2^eof`eof1rget|get1getex"get2gnb*gnb1Xgnb2poscompcmp1cmp2cmpexpos3pos0pos12pos2,posexBpurgeJresultioioresultb_chnj_rchrewriterw01rw02rw03"rw04.rw05rw06rwex_rib_rin_h2i_rinmsg_h2i01adv2numadv01adv03adv02~adv04adv05adv06cnvchr_xcnv01_xcerr_xcnvex_rin01_rin02_rin03>_rin04*_rin05_rin06h_rin07~_rinex_rin094_rin10_rin11(_rin12,_rin13D_rin14H_rinerr\_i2s_winNu _pC "QN _0"_$_` _0$_"_J@gS@QNB _0"_$_` B _0$_"_J@gS@!QN _20zBQ @mb An\AnXBB4BJ6CKx@"O¶BfA|A"`""x:BMUEm"Q|AA"N _0>oN _0>oN _"o p"QXN _"_ p/!QN _2|m"|npBQ4B_BDBIBGNPNB _024An@k J20 HNВ@RA4`B@NB"_$_0 @o" @g @ g @%g @.g @g" `BA/ NB>Nu _pC "FÙQN"_24$_SBQN// ?<@?<NB// //?<%N _ N _0"_$_$ HB Bg BA@o2gSAQN _02$_NNN _"_B@S@ am zn RQN _"_B@S@ Am Zn RQN _0"N$VU@k-"Q- - NABSOLUTE@AND 0ARRAY 2BEGIN CASE CONST DO DOWNTO DIV *END ELSE EXTERNAL=FOR FILE 5FUNCTION FORWARD #GOTO IF IN 3LABEL MOD -MODULE 8MODEND 9NOT (NIL ?OF OR /PACKED 1PROGRAM !PROCEDURPREDEFIN;RECORD 4REPEAT SET "TYPE TO THEN UNTIL VAR WITH WHILE   "#&'(@$? OVERFLOW IN FIX FUNCTION$BAD INTEGER, TRY AGAIN:wwassetxresultwriteprnuppercas4titlestrtokptoterrtitleNtdispsymlennsymsrclinenslistingrvalxsavenextsavefilesaveindesavebufsaveendorstrJreldskrecindx>rconst@puttokprnfile^prndiskprevchpagenumphase1exparseoptoutfilosizeoptstrinoproindexoerrnextchnextsym\nestlvlnewch8metaflgs$maxflg"masterlilistinglastrec1>lastrec2isizeivaltintitle infileinstringinrecinbufindexincludinidentfgetline gnr$getsymdfinditerr6cntextextracterrorfilerror0endoffildostringselectstdparmlistE.isinlinekEinitsetsDfactorst$expressiE constantEblockstablockEFrdstrgelp0edoeoff0dotabf4dolffHrdstrexf\reservedfdtable&resindexnokflpflp1fthisonefcnvbcdfbcd01fbcd02fbcd05fbcd03g"bcd04gbcd06g~bcd07g_potgcnvrlktenonenegonelastpwrlastvalpot01h>pot02h pot03hpot04hpot05h`pot06hpot07hgncignc01i0gnc02i6digiti-m >- m|m;G |6mfmgRSg <<`RUFmQBgNq<`Sm f <`B>- O<-gGHG؇N](_PNN](_P/ `$| JapJGgn4DGH5| %GaNu$|4*BdBGNu Bn(&*BGKWQJGl GfJRg NuJRgDGNu"<p NBNu&HBBBBNu|."$Q$|"|Nu*fNu&JX/NqNnPNu"|"""a"| /!/!/!Nu"_////N"_$_$$N.9NuNUD d >-|g/< NN0-Sf:/< NaDIVIDE BY 0 DETECTED/ TO CONTINUE, ^C TO ABORT?/-|f>?</< N/-N]Nu _B<(|8N&_> am znGNNUB@(m&LR g  fR@S`RgS@Q(m g*|@+| +| +| T :f;|BG$?a|G`;|C;mPm;|(m LB0- .W :W‚BFA4-m]C_CDd?a Rm` .W0-_@Dd-N](_\NNUBm`NU;|`NU(m: Tf/ /-?<a(_8 TgH m& n$?<.<<HކT/N3Bm(m:?a>-N](_XN _B<(|// / ?<*/ N(_?<T/ N3*?<BgNBNuNU>-FG |<- HT+H VFDdX& Pg* Pg>TH/0<G??<NB?- aJ?<0/-N?</-N3?- aN](_XN _B<(|// ?<*/ N(_?<T/ N3<BG FfRGNuNU |<- H+H( Pm/?- aFG(m8 _BP"m*<HBGRPN](_\NNU |<-H+H( Pm/?-aD _BP>"m*HKPROGRAM pprime; (* Uses sieve of Eratosthenes *) CONST size = 8190; VAR flags : ARRAY[0..size] OF BOOLEAN; i,k : INTEGER; prime : INTEGER; count : INTEGER; iteration : INTEGER; BEGIN (* Main Program *) count := 0; writeln('Do 10 iterations'); FOR iteration := 1 TO 10 DO BEGIN count := 0; FILLCHAR(flags,SIZEOF(flags),CHR(TRUE)); FOR i := 0 TO size DO IF flags[i] THEN BEGIN  prime := i + i + 3; k := i + prime; WHILE k <= size DO BEGIN flags[k] := FALSE; k := k + prime; END; count := count + 1; END END; WRITELN(count,' Primes'); END. (Main Program *) PROGRAM simple_example; VAR i : INTEGER; BEGIN WRITELN('This is just a test'); FOR i := 1 TO 10 DO WRITELN(i); WRITELN('All Done') END. K>9p GV|Dd?<?<?<a>9p GfNd?<?<?9p G7f.>9r Gg?<N0/<Na`?<N0/<Na~Nda| GDd?<2N0/<NaP?<?<?<aD>9p GV|DdJ>9p Gfad>9p GfaV?9p?<N?<NN?<NN?<NNN GDdf>9p GW?>9p G Wǎ_?>9p G=Wǎ_?>9p G;Wǎ_Dd4>9p G=W|?>9p G;W|_;G>9p G;f Nd`p>9p G=fbNd>9p GfNNd>9p GW?>9p G$Wǎ_Dd Nd` ?<N0?<?< ?<a;ypNd>9p Gf/<fa INTERRUPR&_(_| Vf^Nd?<?< ?9p GW?>9p G$Wǎ_Dd Nd` ?<N0?<?< ?<a.?9 >- G_Dd8/< NN/<f/< N?<?- G f0>9p Gf"?<?<?- GDd.>9p G#g a`Nd?<?<?<aJ`>9 y"?>9 GW_Dd`>9p GfNd>9p GfNda0>9p G g`?9p?< N?< NN?<NNN GDd?<N0`?<?<?<a>9p G W|Ddh?< ?< ?<ab`?<N0/<Na@/<?9SW>(_8,^N]NuNU?<N33a>9p G!W?>9p G8Wǎ_Dd3 >9p G8W|3"Nd?<?<?<a߲>9p Gf9p GV|Dd?<?<?<aj?<?<?<aZaߚ>9"Dd?<9?<c?<a:>9p Gg ?<N0` ?<N0,^N]NuB@ |?//<?9N* _0 g  g  gR``( R|f`S    VNuB@B9f2<A |BB0g2 |fSB6 H"|&$I&H fx Vg `BGNu>3p~NuNU&m BGBBB>Bm +fR` -f;|R<<_ .VADdB@@0rDQRF`Լ_ .WADdLRFnFB@@0:RFn2B@@0@RFnB@@0@RFn B@@0@BH@ሊBH@ለ md m0!D!EN](_PNNU?<N gh09R@mf&/9/9B/9Nm<+_+_`09S@mf&/9/9B/9NmL+_+_`+yB mo20-S@/-/-;@B/9Nm<0-Q+_+_`T0- @gJnD@S@/-/-;@B/9Nm<0-Q////B /yNmL+_+_3##,^N](_T/9/9NNU?<N(nRl0, lBGo<`H,^N]Nu _0<0\ǰ<9_AGNNU?<N nm BB(n,?aDdL/-/-B/9Nm<(nBG,0?><NrdNl+_+_aB(nG`,-.-,^N](_T//NNU?<NBB(n ,.f;|a(nG(nBG,?aDd m4n B/9?-atNmL+_+_`BB/-/-(nBG,0?/-/-~NrdNm- (nBG,0F;G|4o;|4a(nG` m4n?-a6+_+_` +yB,-.-,^N](_//NNU?<N(m gBmBBBmBma$G<+fa?a^aNl+_+_`@<-f"a?a: WaNm +_+_`?aaNl+_+_ax+_+_ g- mn"mnmng.-+m +G BC>- m G7l|SGmQ>-m f(<ӃтgRm BgRч`4<Rm Sm f`>-m fRm `BBB<-B>- ONNFHG(*N]"_PN$|"| jgB6)Cg6*iCkN5C6Ra$|aTa:a jn Nu |a\"|LPROGRAM file_transfer_1; (*----------------------------------------------------------*) (* Transfer file_a to file_b using BLOCKREAD and BLOCKWRITE *) (*----------------------------------------------------------*) CONST buffer_size = 2047; TYPE paoc = ARRAY[0..buffer_size] OF CHAR; fyle = FILE; VAR file_a,file_b : fyle; name : STRING; buffer : paoc; PROCEDURE transfer(VAR source : fyle; VAR destination : fyle); VAR result,i : INTEGER; quit : BOOLEAN; BEGIN (* Body of TRANSFER procedure *) i := -1; REPEAT BLOCKREAD(source,buffer,result,SIZEOF(buffer),i); IF result = 0 THEN BLOCKWRITE(destination,buffer,result,SIZEOF(buffer),i) ELSE quit := TRUE; UNTIL quit; CLOSE(destination,result); IF result = 255 THEN WRITELN('Error closing destination file') END; (* TRANSFER procedure *) BEGIN (* Main Program *) WRITE('Name of Source File ? '); READLN(name); ASSIGN(file_a,name); RESET(file_a); IF IORESULT = 255 THEN BEGIN WRITELN('Sorry, cannot open ',name); EXIT END; WRITE('Name of Destination File ? '); READLN(name); ASSIGN(file_b,name); REWRITE(file_b); IF IORESULT = 255 THEN BEGIN WRITELN('Sorry, cannot open ',name); EXIT END; transfer(file_a,file_b) (* Call TRANSFER procedure *) END. (* Main Program *) PROGRAM file_transfer_2; (*-----------------------------------------------*) (* Transfer file_a to file_b using GNB and WNB *) (*-----------------------------------------------*) CONST buffer_size = 2047; TYPE paoc = ARRAY[1..buffer_size] OF CHAR; text_file = FILE OF paoc; char_file = FILE OF CHAR; VAR file_a : text_file; file_b : char_file; name : STRING; PROCEDURE transfer(VAR source: text_file; VAR destination : char_file);  VAR ch : CHAR; result : INTEGER; stop_it : BOOLEAN; BEGIN (* Body of TRANSFER procedure *) stop_it := FALSE; WHILE (NOT EOF(source)) AND (NOT stop_it) DO BEGIN ch := GNB(source); IF WNB(destination,ch) THEN BEGIN WRITELN('Error writing character'); stop_it := TRUE; END; END; CLOSE(destination,result); IF result = 255 THEN WRITELN('Error closing ') END; (* TRANSFER procedure *) BEGIN (* Main Program *) WRITE('Name of Source File ? '); READLN(name); ASSIGN(file_a,name); RESET(file_a); IF IORESULT = 255 THEN BEGIN WRITELN('Sorry, cannot open ',name); EXIT END; WRITE('Name of Destination File ? '); READLN(name); ASSIGN(file_b,name); REWRITE(file_b); IF IORESULT = 255 THEN BEGIN WRITELN('Sorry, cannot open ',name); EXIT END; transfer(file_a,file_b) (* Call TRANSFER procedure *) END. (* Main Program *) L GfNd>9p GfjNd>9p Gf,Nd?<?<?9p GV|Dd?<?<?9p GfNd`>9p GV|Ddb>9p Gfa,^N]NuNU?<N;|>9p GfFNd?<?<?9p GV|Dd?<?<?<a;|`^>9p GgVa GDd`>?<?<?9p GfxNd>9p G$f Nd`J>9p Gf Nd`2?<N0/<Na>9p Gg Nd`?<?< ?<a`JNd>9p Gf0Nda GDd?<2N0/<DNa;|>-,^N](_NNU?<NaDd`>9p GfNd?<?<?<a``z>9p G1fNd?9p`$Nd>9p Gg ?< N0/<Na `DNda* GDd?<N0/<DNa>9p GV|Dd?<?< ?<a?< ?<?<aa`Nd>9p G f Nda`Nd?< ?<?<aja GDd?<N0/<Na>`\NdaT?< ?< ?<a$`>`:?<5?<"Nl,^N]NuNU?<N?<?<?<a?<?<?9p GfNdan`?<?< ?<a(?< ?<?<a>9p G2f a6`?<?<?<a,^N]NuNU?<N>9p Gg`$Nd>9p GW?>9p G Wǎ_DdT;ypNd?<?<?<aa>- G f"?<?<?9p GfNd>9p GfNd?<?<?<a>9p GV|Dd?<?<?9p G2f a`?<?<?<a>9p GV|Dd?<?<?<a,^N]NuNU?<N>-Dd?<?<?<a|>9p GW?>9p GWǎ_?>9p GWǎ_Ddt>9p GfNd?<?<?<a&`H>9p Gf4Nda>9p GV|Dd?<?< ?<a`Nd`^,^N](_TNNU?<N>9p G$fNd?<?<?(_8Nda>9p GV|Dd?< ?< ?<aP/<?9SW>(_8`Nda6?< ?<4?<aaV>9p G f Nda>`Nda?< ?<?<a/<?9RW>(_8>9p GfNd>9p G V?>9p G V_Ddf>9p GfNda GDd?<2N0/<DNaZ>9p GV|Dd?<?<?9p GV|DdR>9p G f NdaD>9p GfNd/<?9SW>(_8?< ?< ?<a`Nda?<?<6?<aa`b/<?9RW>(_8Nda>9p GV|Dd?< ?<5?<ahal/<?9SW>(_8`Nd?<av?<?<3?9p Gf Nd`4>9p Gf Nd`?<7N0/<Naa?<?<6?<aa`|Nd?<a>9p GV|Dd?<?<6?<aa`BNd>9p G$g ?<N0/<NaX`Nd`/<fa WRITE R&_(_| VW|?/<fa WRITELN R&_(_| VW|_;G?-/<fa READ R&_(_| VW|?/<fa READLN R&_(_| VW|__;G/<fa EXIT R&_(_| VW|;G/<fa INLINE R&_(_| VW|3Nd>9p GW?>9p GWǎ_Dd>>9p Gg,>-Dd ?<~N0>-Dd2>9p Gf$NdaNd>9p Gg`Nd?9>9p G)W_DdRNd>9p G,W?>9p G.Wǎ_Dd Nd` ?<N0?<$?<?<aZ`aZ>-Dd2>9p Gf$Nda8>9p Gf Nda >9p GW|Dd>?<?<?<a3`P>9p G V?>9p G V_?>9p G V_Dd?<a?<?<3?9p G7f.>9r Gg?<N0/<Na`?<N0/<NaNda?<?<?<a>9p GV|Ddn,^N]NuNU?<NNd>9p GfNd?<?<?<a^>9p GV|Dd?<?<?9p G=f Nd`|>9p G@fnNd?<?< ?9p GW?>9p G$Wǎ_Dd Nd`?<N0/<Na?<?< ?<aa?<?<?<a>9p GV|Dd,^N]NuNU?<N/<?9RW>(_8>9p GfPNd>9p GfNd?<$?<?<aMPROGRAM file_transfer_3; (*--------------------------------------------------------*) (* Transfer file_a to file_b using SEEKREAD and SEEKWRITE *) (*--------------------------------------------------------*) CONST buffer_size = 2047; TYPE paoc = ARRAY[0..buffer_size] OF CHAR; text_file = FILE OF paoc; char_file = FILE OF paoc; VAR file_a : text_file; file_b : text_file; name : STRING; PROCEDURE transfer(VAR source: text_file; VAR destination : text_file); VAR result,i : INTEGER; stop_it : BOOLEAN; ch : CHAR; BEGIN (* Body of TRANSFER procedure *) ch := 'A'; result := 0; i := 0; WHILE result <> 1 DO BEGIN SEEKREAD(source,i); result := IORESULT; IF result = 0 THEN BEGIN destination^ := source^; SEEKWRITE(destination,i); END; i := i + 1; END; CLOSE(destination,result); IF result = 255 THEN WRITELN('Error closing destination file') END; (* TRANSFER procedure *) BEGIN (* Main Program *) WRITE('Name of Source File ? '); READLN(name); ASSIGN(file_a,name); RESET(file_a); IF IORESULT = 255 THEN BEGIN WRITELN('Sorry, cannot open ',name); EXIT END; WRITE('Name of Destination File ? '); READLN(name); ASSIGN(file_b,name); REWRITE(file_b); IF IORESULT = 255 THEN BEGIN WRITELN('Sorry, cannot open ',name); EXIT END; transfer(file_a,file_b) (* Call specific TRANSFER procedure *) END. (* Main Program *) PROGRAM file_transfer_4; (*---------------------------------------------*) (* Transfer file_a to file_b using GET and PUT *) (*---------------------------------------------*) TYPE char_file = FILE OF CHAR; VAR file_a,file_b : char_file; name : STRING; PROCEDURE transfer(VAR source: char_file; VAR destination : char_file); VAR result : INTEGER; BEGIN (* Body of TRANSFER procedure *) WHILE NOT EOF(source) DO BEGIN destination^ := source^; PUT(destination); GET(source); END; CLOSE(destination,result); IF result = 255 THEN WRITELN('Error closing destination file') END; (* TRANSFER procedure *) BEGIN (* Main Program *) WRITE('Name of Source File ? '); READLN(name); ASSIGN(file_a,name); RESET(file_a); IF IORESULT = 255 THEN BEGIN WRITELN('Sorry, cannot open ',name); EXIT END; WRITE('Name of Destination File ? '); READLN(name); ASSIGN(file_b,name); REWRITE(file_b); IF IORESULT = 255 THEN BEGIN WRITELN('Sorry, cannot open ',name); EXIT END; transfer(file_a,file_b) (* Call specific TRANSFER procedure *) END. (* Main Program *) MN~Nd/?<PN?-RW;_`8/<a?<PNHm<-.Hކ(GBG??<$N?<#NNNDdr?-RW;_?-Hm(_>nT/<Nl/<NHm<-.Hކ(GBG?N~Nd/?<PN?-RW;_`/<R><@(_/<NaNDdP/< Na&$USAGE: MT+68K <$ options>? Gg G^?/< T(_BG> G:W_?/<R(_BG> G@W_Dd/<R/< R(_(_3333/<?</<NNT/<?<NwP/<Nb(_8>9 Gf/<?<Nl/<NNa.SRCNNd/NT/<?<NwP/<Nb(_8>9 Gf/<?<Nl/<NNa.PASNNd/NT/<?<NwPNb> Gf\/< NaUNABLE TO OPEN SOURCE FILE: ?9 GfL/< NaERROR CREATING ?< (_33/<R>< (_/<a?<~NaN$3,^N]Nu``Z`8``` 8`f`8``` D` ` `` j``V``$```D`t``NU?<N/<?<N?<NN?<NN?<NN?<NN?< NN?<!NN?<NN?<NNNt/<d?<N?<NN?<NNNt/<$?<$N?<%NN?<'NN?<&NN?<NN?<NN?<NN?<(NNNt/<?<N?<NN?<NN?<NN?<NN?<NN?<NN?<NN?<NNNt/<D?<,N?<$NN?<%NN?<'NN?<&NN?<NN?<N?<NN?<1NN?<2NN?<4NN?<"NN?<5NN?<NNNNt,^N]NuNU?<N?9p/<N/<NN?< N?< NNN?<NN.N G?>9 G_Dd Nd`,^N](_ NNU?<N>9p<- Ff Nd`?- N0?-`~/<Na`/<$Na`r/<Na`^/<dNa`J/<DNa`6`2/<Na`?<?<Nv>9p<- FfNd,^N](_\NNU?<N;|>9p G'W?>9p G&Wǎ_Dd Nd`l>9p G,W?>9p G.Wǎ_DdNd>9p GW?>9p G$Wǎ_?>9p G%Wǎ_Dd Nd`;|>-,^N](_NNU?<N>-Dd?<?<?<af>9p GW?>9p GWǎ_?>9p GWǎ_Ddt>9p GfNd?<?<?<a`H>9p Gf4Nda>9p GV|Dd?<?< ?<a`Nd`^,^N](_TNNU?<N>9p Gf Nda?<?<?<a`>9p GfvNd>9p GgNa`>9p Gf NdaH>9p GW|;G>-DdNd>- GDd?<?< ?<a`>9p G?f Nd`>9p G(W?>9p GCWǎ_DdNda`>9p Gg.a GDd?<:N0/<$Naz`Nd>9p GW?>9p GWǎ_?>9p GWǎ_Dd?<aF`>>9p Gf0Nda&>9p GV|Dd?<?<?<a,^N]NuNU?<Na>9p G)W?>9p G+Wǎ_?>9p G*Wǎ_?>9p G-Wǎ_?>9p G0Wǎ_?>9p GAWǎ_Dd.Nd?9>9p G)W_Dd` ah`t,^N]NuNU?<N>9p G,W?>9p G.Wǎ_DdNda(>9p G,W?>9p G.Wǎ_?>9p G/Wǎ_?>9p GBWǎ_DdNda`,^N]NuNU?<Na>9p G7W?>9p G3Wǎ_Dd Nda,^N]NuNU?<NNd?<?<?<aX>9p GfNd?<?<?<a4?< ?<?<a$a$ GDd?<2N0/<Na>9p GV|3>9 GDdNd>9Dd?<?<?9p Gga?<?<?<a>9p GV|3>9 GDdNd?9>9p G W|_Dd,^N]NuNU?<N>9pN`&6 `9 `b`F`*` ``X```<``r```H`!v`'`"R`,&`+>`-`/:`2`4`5`7PNU?<NHm/-?<QN/< Na42--------------------------------------------------?o/< Na$#DRIVE NAME CHARACTER MISSING AFTER ? GWW|3(n?,RW(n9_,^N](_XNNU?<N+|/- ?<?<@NB/-><(_8/-><(_8/-><@(_/- (_BG> G^?/-"(_BG> G:W_Dd"/-/-!(_(_`/-><@(_/-><(_8/-><(_8/-><(_8/-><(_8/-><(_8@/- ><X(_|X;|?-(|>n.<<-Hކ(GBG?`THma8/< NaO FILE TO DISK: ? GZV|3/< NaLIS FILE ROUTED TO ? GXf4/< Na THE CONSOLE? GPf4/< Na THE PRINTER? GZf8/< NaTHE BIT BUCKET? GXf4/< Na THE CONSOLE? GPf4/< Na THE PRINTER? GZf8/< NaTHE BIT BUCKET?<(_8/< NaDISASSEMBLER ENABLED?<(_8/< NaQUIET SELECTED?<(_8/< NaCONTINUE ON ERRORS?<(_8/< NaBCD REALS SELECTED?PRRRRRRRRR|RRRR?-RW;_`2/< NaPASTEMP.TOK ROUTED TO DISK: ?9p GW?>9p G$Wǎ_?>9p G%Wǎ_?>9p G'Wǎ_Dd>9p G%g/<?< ?9nNuDd ?<a><<9nGmL;G;F/<?< .<<-SFHކ(GBG?NuDd ?<ahRm<-Q` ><<< Gm.;G;F.<@<-SFHކ(G><Rm<-Q/</<K?<ON(|J>9n>9Dd/<J/<@Nf`&/<@/<JNk> Gg ?<a/<?< ?< NuDd ?<a><<< GmL;G;F/<?< .<@<-SFHކ(GBG?NuDd ?<aFRm<-Q`4>9p G7f&/<?< ?9rNuDd ?<a,^N]NuNU?<NHm/-?<~N>9 GDd`Hm(_BG> GfHm(_BG> Gf`>9 G5f3?9RW3/<^?<Nuf/<^NaDCPascal/MT+68K beta release (Mar 26, 1984) (c) 1984 Digital Research? G*f3:p?<*a`(BG9> G.f3p` 3p`?<a`?<a`v3p`j3p`^BG9> G.faϢ3p`(BG9> G)f3p` 3p`BG9> G=faV3p` 3p`3p`3p`3p`3p`3)p`3,p`3.p`3+p`BG9> G=fa37p3r` G>faΞ37p3r`37p3r`37p3r`37pBG9> G=faD3r` 3r``?<~?<!N2>2J V$b02222222222<,^N]NuNU?<N3n;|.<<9nSFHކ/BG9?a(_Hm<-.SFHކ/BG9?a(_aBG9?aG/<fa  R?<NBG-> GA\?BG-> GZ__?BG-> G0\?BG-> G9___?BG-> G_Wǎ_Dd>9n GV?BG-> G_V_Dd*?9nRW3n.<<9nSFHކ(G-?-RW;_Hm<-.SFHކ(G-aBG9?aG`/</<f?9nN(|BG> G@V?(|BG> G_V_DdNfd GDd 3p` 3p>9p Gf4>- G V?Hm(_BG> GEVǎ_Dd 3p`*>9p G W?>- GV_Dd 3p,^N]NuNU?<N36pBG9> G fa`BG9> G@l a`BG9> GA\?BG9> GZ__Dd aʪ`~BG9> Ga\?BG9> Gz__Dd ax`LBG9> G@W?>9 G_Dd aL` BG9> G_f a2`a&>9p G:V|Dd,^N]NuNU?<N/<?< /<Ny&>9 GgL/< Na" UNABLE TO CLOSE PASTEMP.TOK FILE?9Dda----------------------------aaNORMAL END OF INPUT REACHED aBG9> GXW?BG9> GPWǎ_Dd`h/<^?</<Ny&>9 GgD/< NaUNABLE TO CLOSE .LIS FILE?9p G6ga8>9p G6W?>9 G_Dd/< NN/< Na ILLEGAL SYMBOL FOUND AT LINE #:? TO CONTINUE?9 Gg`|a NERa>9 GDdL/< NN/< NaSYNTAX SCAN COMPLETE?9 Gg/< Na ERRORS:  ? G:gJ/< NlBG9?N~?<:N~/< NNd/?< N` !/<B?<Ba COMNDATA.DATNT/<B?<BN/<B2(_//<?<BN/<B?<BNR/<B?<B/<Ny&(| BG> G@f"/<Na MT68.000?<PN`D/<NNl(| BG?N~a :MT68.000NNd/?<PN/<?</<NNT/<?<N|N``t`NU?<N>9DdP/<a?<~N/<N/< ?<PN(|NBG> Go/<NT(_BG> G:f2/<N/<N?<(|NBG?UWN/?<PN?<.? Gg GXf/<NaCON:?<PN`2/<R(_BG> GPf/<NaLST:?<PN/<^?</<NNT/<^?9 GgL/< NaERROR CREATING ?<<< Gm8;G;F.<$<-H ކ/a?<NRm<-Q3"33333333Nr+GHm/-?<PN/<Na?<PN;|?-Hm(_>_?Hm<-.Hކ(GBG> G$V_?Hm<-.Hކ(GBG> G#V_DdtHm<-.Hކ(GBG> G gH/<NNl/<NNHm<-.Hކ(GBG?O? GW?Hm(_BG> GW_Dd`HmHm(_?SW>(_/<^N?9?<?(_?9RW3,^N](_XNNU?<N;|><<9"Gm>;G;F.<$<-H ކ//-NDd`Rm<-Q;|>-,^N](_XNNU?<N.<<-Hކ(GT?-RW;_/- a?<QN.<<-Hކ(G?->V?(m BG> G]_DdR/- Nl/- N.<<-Hކ(GBG?N~Nd/?<QN?-RW;_`z,^N](_\NNU?<N/</<>?<~N/<>/<?<~NNe(|BG> Gg /<a3>?< /-N> Gg~Hm/<LNNBG-> GfX/< NN/< NaCOMPILATION ABORTED WITH ^C? Gg";yp3>pa:3p``,^N]NuNU?<N(|BG> G g?<aa`|Hm?<aHmaDd a`Za/<?<?<N/a&ELSEN?/<?<?<N/a&ENDNŽ_Dda,^N]NuNU?<N(|BG> G g?<ahaT`Hm?<a@?9"RW3".<$<9"H ކ/Hm?<N>9 GDd:/< NN/</< N?9 GDd/< NN>9 GDd(/</< N? G&V|DdB,^N]NuNU?<N>- Gf?9RW3>9 GDd/< NN/< Na64----------------------------------------------------?/< N?[W<>Gm4;G;F/< N?< ? Gf/<NHmN>-<-FV?/<?<N` G_Dd,/<NN./<NHmN`>-<-Fg/< Na---NO MESSAGE TEXT---?9Dd:/<^Na---NO MESSAGE TEXT---?9Dd9Ddr/<^Na *** ERROR #?9 GDd /< NaCONTINUE (Y/N)??9Dd/<^NaCOMPILATION ABORTED BY USER?9 GDdT/< NN/< Na ##########?9 G oT/< Na*(TOO MANY INVALID SYMBOL ERRORS, ABORTING? Ga\?BG- > Gz__Dd- |_G`m BG-,^N](_TNNU?<N>9Dd4>9Dd>9 GDd/< NN/< Na.-EOND OF FILE REACHED ON INCLUDE FILE AT LINE: ?Hކ(G?9>RW3>` `(.<<9>Hކ(G?9>RW3>BG9> G f?9RW3>9|> GfBBG9> GXg0>9 GDd /< N?<+? GW|3>9Dd   ,^N]NuNU?<N3;y;|3n>-DdaL?9nRW3n.<<9nSFHކ(Ga>9<-Fg ?<aBG9> G'W|Dd;|BG9> G'V|Ddn?9nSW3n3'p3,^N]NuNU?<NHma?<PNa~BG9> G fah`;|HmNlHmNBG9?N~Nd/?<PN?-RW;_aBG9> G W|?9?(n, >W|_?>- G^|_Ddt?<.? Gf6HmNlHmNa.SRCNNd/?<PN(|"BG> G:f`?<:? GfDHmNl(|!BG?N~?<:N~HmNNd/?<PN9?(n, >ga`(nBG, > G*f0BG9> G)fa?<(n9_`a۴`?<(n9_(n>,Dd3:pad;|IHm/<p?<NaF3/</<?< @N3HmN/<?< HmNT/<?< NwPNb> Gf>a.SRCHmN> Gg|HmNlHm?<a.SRCHmN?SWN/Na.PASNNd/?<PN/<?< HmNT/<?< NwPNb> Gf/< NN/< NaUNABLE TO OPEN INCLUDE FILE?9 GDd/< NN/< NaINCLUDING TEXT FROM FILE: ?3pHm/<?<N3naشa?9RW3.<<9>Hކ(G/<?9>RW<.Hކ(G(|BG> GV|Dd3>3:p3,^N]NuNU?<NBG- > G*fa:;|BG9> G$faBG9?a yBG9> GIf a`2BG9> GLf&aBG9> G+W|y3BG9> GPf(>9yDd35?<? GBfF3/< NaBCD REAL FORMAT SELECTED? GZW?BG9> GEWǎ_?BG9> GAWǎ_?BG9> GSWǎ_?BG9> GOWǎ_?BG9> GWWǎ_?BG9> GRWǎ_?BG9> GTWǎ_?BG9> GXWǎ_?BG9> GMWǎ_?BG9> GKWǎ_?BG9> GCWǎ_?BG9> GQWǎ_Dd3:pa(|>< /</<?<PSWNBG-;GHm/<p?<NaդaBG9> G faղ`;|.<<-SFHކ(G?-RW;_aՄ9?- >W|?>- G^|_?BG9> G W|_Dd3$p?-SW3na3:p9?- >ga`BG- > G*f.BG9> G)faa;|`a` ;|a>-Dd,^N](_TNNU?<NBG9> G0\?BG9> G9__?BG9> GA\?BG9> GF__?(n>,__Ddt(n?,BG9> G9_ǎ_DdP?9nRW3n.<<9nSFHކ(Ga(n>,DdBG9?a`2,^N]NuNU?<N3$p3n>-Dd*BG9?aӐBG9?a|.<<9nSFHކ(Gap>-Dd`JBG9> G.flBG9> G.gZ3%p?9nRW3n.<<9nSFHކ(Ga;yna>-<9nFf 36pBG9> GEW?BG9> GeWǎ_Dd>9Dd ?<aҌ?9nRW3n.<<9nSFHކ(GahBG9> G+W?BG9> G-Wǎ_Dd.?9nRW3n.<<9nSFHކ(Gaa"3%p,^N](_TNNU?<NHma0123456789ABCDEFR?<N3nHm?< ?< NB;|BG9> G/V?BG9> G)V_DdTBG9> G V?BG9> G,V_Dd$?-RW;_Hm<-.SFHކ(Ga0`>- Go ?<a(|><$/<Hm>-<<HǏ<.Hކ(G(_/<Hm>-<<HǏHGgDG<.Hކ(G(_3$p,^N]NuNU?<NaЎBG9?`Z3Ap`3Bp`3Cp`a\`