YUZx Hisoft PascalU]!=^!(! +:;@G?- %]/?7?;Oo^z( n|gy7lyx0B?> y^#1??z<];_??8A`:;@O!=^?O^0!+| ^0U^^0>Ƹ0$ ^0x0^& 0uyO~#.^>˸^|gz |^>= ??Щ(yOyO?7:;@2;@?:;@2;@?_]_T^ ?U_ !]"@2R"@+"@  Hisoft Pascal 1.6 C. 1983 Primo version C. 1987b!__ã~#&`id#id!_Á`Úa`îaic3bi`Td6yÍÑ\h×ÔvubU`!B@!+_ >wï`~ ͸`-!`#(#~[]{}^!B@%!a#(#~^[]{}  []Ua~|\{}!B@͎a?*Vd"Q\~18?0;<&o1"\##"\~ ( (#>(o&"\""Vd"Q\!JcFͼa#idbR NEFF: @qcUbb:t *tR !Td>bb!t~ !t ( > #!2c!:c2tQe!tQe5e [t>b!t!:\7#_0(!%cbQeA` Tape Error Using Found Absent Bad Name Protected:cb!}c_A` Inva_Uclid device using!t6# ( (w#6 #6 #Ct"tůCd>Gd!t_{@!B@:;@2;@?@:;@|2;@?> 2E@!+_˾Ud>2c`2``!&`"a`!0g"d`!e"$`!Gt"Et! "GtͰd``>_,`>&`|(!R! e^VR0##ox*e|( >-``!R! e0>0^VR8<(`` ##``'d DG9e> > ``~#``ɷ !e!e~#``-{(-(-(-(E/ezpe{yeƐ'@'ÎU e``FALSETRUEePf ?fe#`Qe!e!fff.f/`Ͱd!eQekeA`{}d`f Halt at PC=OverflowOut of RAM/ by ZeroIndex too LowIndex too HighMaths Call ErrorNumber too largeNumber expectedSystem Call ErrorT]^#VɯR0Uf7Z )0 âezGffR0 Z¾f)80 Z8f|o>g|ʱe|ժfDM!f g>)=0j 8B= f)g0?:)g ><*Et~)g?g*Et#~"Et!GtpgA`"Et6c` !uQ>*GJx Ugˢ> b B~̰d(  (g 5e g `` ( xg?w#``? (xgBtg/e>* B(͵d͵dˢ+ ))) JgҔe!T]h0OB 0g3g g3gc` ( `h-(+c`/hz |gUhÝeuhR)g (w#3gɯw#!9O999G7 *#t#//R>1i![%tR "%ts#rt(!9|Fp(DzPC^iiN3Ui(_˺˼:= x~ "Zi<i_x怴g0Rt jiâeHFpFDx˼˺~(R (0O/GRT\!9>@F(^|G~Oi˼Kn0g~00Z_Qt jixgRUj!\Utʱe!9Fpj~iPK^z˺˼~R0ZjR0)/o|0y/g{/| i_|g<> k!RZtk)kgt>O˼>( FkG< !R!!@\it>O˼zk>ڢeGpk<}k< ʄUkk#!R !+!@U]!k?0fn^Vj PdN _^G 5NjzP B8`i͈j:1t<21t:?t*3t[5t m{2?t}22t>(l="3tS5t 0l˼=k21t!@&:2t͒k͈j\i"7tS9t>:1tO:2t=22ty͒k͈jlz 0l :1t(UlW9ez=*7t[9tl>0``:1t >.``z*;t[=tD( o&k\iPjl0>0``lA>-``";tS=t$kU:2t!nQe:2t0``Qem>22t8<.et(|(˼>-> ``zMbjm?0) |21t͒k͈jk:2t_!n^#V#N#fi\ikBS\ej)>Um0``>.``:2t0``>E``:1tmDO>-O>+``y 08 0Gy``x``/?0) |/21tD͒kjzWm!Pj!1t5WmfffQ6AhS 0.E+00|eS5t"3t*K3tK5t͈j\i`h-( +c`fnc`fn>g/h.»n3gc`gҕeJ(Unh0OB 0 g03gg03gQE 3gc`- c`*oE(z +c`*oO{o s )C]l`yn͒kjD 0͒k͈j ͒k͈j!Nj# ;g00Gg3g0OxGGgڛeToåeExponent expected|ozB{j˼_t#Uoj  S˼lot!@U]\i!U\jUk"1tfot(qͺsٷ)p2p!9pF#\iN#F#N#N#F#N?c͈j\i\i͈j\i:2t( <¢e:1teW:1teW!@p&@!ZOkvt@LZR|=ez21ts@E SA:ŅU pl|\i͈j\i\i͈j\i\i͈j\i:1to&p%kX j\i!@U]t(zpr rz>tzr r/21tzr r <@\io&1r~22tS3t"5tj;z!gMWD\i͈j\iS;t"=t͈jL|gS7t"9taiU!q[;t*=t\iS?t"At:2t?8) [3t*5tq:1tg[;t*=t[7t*9t\i!Zy [7t*9t |g*5t[3t\ijq\i*At[?t͈j{j( t(_<zɷ W˼|Qjfoz<t|21t˼zgr>23t!IU#0 ڨq23t!>23t!nU"r\i͈j\i@Aj`Pc9kj\i͈j\i͈j\i͈j\i͈j:3t(Շ!r_^#V#N#fi\ièqHCHCd?tz|21t˼|Qjfoͺs:1t21t˼z0( |ps`>8<_!sF#F\iCIwj?U#s\i͈j\ij##!tN#F#N#F#N#F#^#V\i͈jq\iͺs˼jdRQj\ij\ijèqB?e\Ug_dioPU$tFRA fovuEU%uX ouL GpuARCTA AruTA suCO puSI puIN /uOU/uSIZ/uADD/uINLIN!uENTIE UkuUSE/uRANDO /uINC /vHAL/vEOL /vPAG/*vSQR "n6vROUN Jk?vTRUN $kIvMAXINSvSUC!`vPRE!ivOR!rvPEEyU&v#zvPOKivRELEAS.vMAR.vNE.vTOU?/vTI3/vCH /vOD /vAB 00vSQ 00vFALSvTRUvBOOLEAvCHA wREAwINTEGE+wREADL=wREAHwWRITELQwWRIT!BMDR8 + +wU'w>`{pu4>,2>2! ""!(6 #!0"""!< Qe{pu5e8`{pu7go""*#[R8!"U>Y2u͝ *!@:!-( ( ####^#V*!!Qe>>``mg!u=2g0K" ""͓<ȸ(K""<ȸ <ȸ(K"U(x"<ȸ H#~(!8 +<ȸ #> ~# 7 #:G~# (+ ~#"Etg0/hz[Et|(|ɷ*"ͽkg*|Ky*}͆ll̆RKͷS`iRDMR8 : 2 x( l8 {puC!@2U)y45eKl##Yͧͤ˂>_NY(>*Q(>+,`Q iY !fw   vf(:>  _:!u_QDM *T]ͷs͹f(c  *W~ r }g{!p#q#w#s#rˊٷ*~ ouT]#ͷ:͹!FU0z#N#^#~#fo~>Ϳg͹ *~ V[0!_=_!_=POW!u_+Q-* ͷH [([Kx  l:_N#F*| !B`iͽ#Ykg+͆{=Ͱd: >25e*Y AU1{[ͧѷR#͹Kl^#V#Y*RSuS!~ 7~  (#(`i͆ 7!t6U# w#ͺtB8 DMyyG>GU Cd'2`KlKl( 0 *6#6#̆RDMU2|'*5`(S*R!""͆3**͑n(s#r+KJ͆KlN#F#*BYRDM> ! 0 #DMbk###(7N#F#\#ѷKl##Y* ͜*uu~ #+p#s 0b (+q#ouͷU3}v  {_<_DMl(!##KͷSs#r#+###_<_R> yD*͑ ^#VB+͆###> [R͹ 5e͜u!>$w#6Q#6#s#r*>ͺd9e5e0ke:&`5e*ͽ*ͽ5e!!~ 5e``^U4~#Y`! `"U[V`Kx*lЯ!QeB;`CDEFGIiLKMN'OYPRSTVW`X  C FIKLQS2RXZ!Busy.. Pardon? U58`>2``2!&`"a`!"! wwWuF(> #~ր!^#V++ ##~˿# u{puͭ%  ͺ "04!"^`!l !~ "$`>2f`!"g`!y "!& QeJ`##"5e"!`[R"#U6ogR"%*pu(*ru"*C -- Hisoft Pascal 4T 1.6M Copyright Hisoft 1983 All rights reserved ]wgw02ͺ JE(i2 | ">z !T]h0OB 08 0 8 8. 8 0J(h0OB 0 8 08 8QE U7- " 2z +" nÀ g00G8 00OxGG8 { 2U b!~ "$`!A`"$`>e*^`ͽ!u~`` # v(`J`F(!uuC [0G`(f0!uRDM!tB"0Z"0S^`F(f F kea * ~#"  > U8*2"0 Fʓ !t"0~ f(f!:\* K x ͼaCN '%͜ v " C |b%ѯv (b!uRD !u5 Ë !QeA`!nEfF" R" !#(#P7>``+(- ~/ݦw,(Ϸ~ݶqd8`̓d!U9Qe! ke5e!R*!++<:(!Qeo&>ͺdA`*#|(S! QeͰdYA`8`*<`"B`M`f`f`f`[R1! u*! QeͪdYA`5e `Ok?Run?A` ! `_c;`F 9ea !Qe* uBE9e>^``k&>ͺd!4ͪdEK^`U@D`P5e0?:A?[a?{A8G?7g?0g>hN : AM[0bd{( ҉a0É$$[ ʹ F*0"2: 5!:\aFMbw '͜ b*\##>D !t~U# # !2c(!UA:cQe!t>e5e ~2u!S  }( * ) n(!u"0O g8r: >= }2y'#(c( *u ƀO > 8x=(< w>(z= |> =y {sͦ "S>~{" 8o&" 8))))o3ͺ UB"d"v G'( '(2 +~+++o&">v !ͺ y2*<>uhDͺ ! w 0 #+ 8:a0!͎0NLOCSIA PACKE#NI"FORWARPROGRAI OO T DISENOMO DIVA UCANFOENGOT WITTYPCAS!ELS(THE/LABE!6CONS>ARRAFUNTINWHILVBEGI^RECORfDOWNT oREPEAxFUNCTIOPROCEDUREnd Address: Errors : *ERROR* No more textNo Table SpaceB x(z( _x{z{ UDú C ͺ C C  }# C  C ú *["s#r# $!~M"*tu R!Ö ͺ 6#*͎0~#N#F#ú z^#V# #7*|>?ʺ ^#V#N#F*B #^#V#:=7ú _f`:<f`{++ +!nN# UEK# w#~#f` f`*f`!{z +\r+s\s#r\wK% ++f`Y?ȷ($C C ͞  ( t>g !Rɷ()(`(*u(M(C [~(: v(5 ú u^#V=(! !/R "͞*ͺ #~#foUFC :OC ͞ y=(= ú ^#V#F:f`!Y!]-f`z< {={}rfV!le y /ú >((>>G>G?>?>ѯR <ѯR(< ѷR>)i R>)i R>4iUG ѷR>4i# <> >8< >0< >8< >0<B B <B B(< >g\i>t(>g\i>t(>g\i>>g\i> !i"ih !i"ih !i"ih !"i"ihsUH'3?KgWwC h!G++͡C #H+r+sC -3(Їo&C^#V-a!6yu(6!ʬ, !$RcŠ%L+  ( +f`f`SZUI1f`"1 ( +f`f`s?f`f`r?f` f`u?f`f`t{ f`w ( ( !!!!"9h*(' C&(x +f`[1!4ú ##F###^#V:-N#Fws#r DMs#r#q#p [2t!9FC Z%*UPͲ+_+~#N#F{( l.!Rx (("+f`[1!(  ( (f`3*N#F^#V#~!Df`!1! ogB9rf͞!^f`?!(>;C h++ -Gy2=x ͞!(ͽUQ>T]+O ŷB (=!FC ͜!p+=++>S(.( G:#H+++C =+C ͜R ͗*(5( (.f`wf`.!K0 ) (=f`= f`21s#r^#VC ĺ uĈUR y2"C <"͑ ( ĺ C *&Ly= @!# B [RDMbk+###!y+*3 !|!f`*:͒O"(S(!. ([f`w0͍!<#HK0%f` f`n?f`f`f?%f`~?US= ( f`:1&!=͍=V ;f`f`+(f`!t+f͒t=<Vf` R (  (8 ͺ L!j !6!q C Cĺ :ĺ C !w!UU! 6*C  6! 6!! 6+f`>?!|b!5ed9e}ͺdZeO*eA>e >Ő*eFe>*e``} mmlº u,"Ͱկ 1y=(=( =("ͺ *C !"!0!'lUV b!,C !cglhc`͍hKnC *%h+ hZ!B Ͳ (w}Їo&ͯ_x Sy=(<={ / +A(!f`_}8.o{/Y{f( {z 4( #b! #_}UW({(;Yú {1_}{8@%+8f`}!cͯ!gO*&,tyf` ^#V#22t :2t͢hD>| }0?0f`3f`=,f`9f` A! 6!C ʚ   (( !Y G A #++|UXP(!A(!!(P(ogRNf`P NN! ! R!~ !t !"hh !/"hhf t(>gZeReR>gkk\i| }#0G?< + !f`^+( UY +V+^++6#C !(n( ((C!!&!!(f`-B!"! !!f` A( !! !*!(& ! A &++C(!!0! !!!!!( z ,{0'($?(0 (f`Tf`]f`)U`  f` !"hh͝fff͈jj: ^#V#FC (%9T#+r!B#: "hpT# ro!(!!H#o!(!! !!o!!! !!o&<=#+"͞O}y*C !!$C lT#C (Pv(Ua1u(5(0%"ʠ"*(f[~(g( ͺ p:3[:Oi&"ë"u #^#Vx y=(=(Qz2 {( f`>f`%f`F("r$-$C QY-f`#^#V: WN#Fyx(>O=!$( =!$(!$r !$ (!LUb$!$ 6! ʲ#0Eʐ(ò#K#++f`1$: "#r +#"l * 8(ʲ#^#VK#A: "9r!'6)T#N#F#͊.#+! ,x (U$ G ( ("f`:1 f` &f` F !f`f`[1eUc& f`f`f` ( (f`~?f`n1f`f?f`^1f`V1f`n1f`f? ( ( !$ !$Î!!$ >(!RZt )g;;~^#V ^#V#N#fiշ!$( f`!$h͢h͢hw}͢h_͢hW8ͼh3wUd"2t*2tpCy=(>( : ???27>2KC :ʑ%:;$C (?( f`}!$(*-C +- ( !$?f`}!$?f`}!$C ($h%0 +;$G%!$;$!$-ͺ C ! JC ;º *["s#r#[s#r#s#r#:w#"MUeC (< EC 4C } ͺ xĺ C ͞6#q#p#  q#p#s#r#"( C  46#C x-6)(!6)"+W:! *#|! ! +"!*z" C ,(*!4(†(C ĺ *͎"( 4w###s#r#:=wUf*C c(!"!+"+C (, C ͼ++ ,(***++F+N!B" s#rUg`f`+V+^+tyf`f`p(6ô'V&###^#V#Hr+s~+( ##G Ͳ+C '!"ůp'F+ ˶Ͳ+!5(r! 9^#V!N#Fr+s`i#Ha!$)! "O^ |< }D0?0f`;(f`=,f`9f`^(!-)y-JUh*!=!)PY1f`f`"%t!!9[%tԏe#C (T=*(7* *N#Fp4##F## ( 888#p#6(ĺ 54ĺ  C ͤ+#q#6C "-[s#r*#O~y$ĺ #N#F#^#V#"B#(_ cC ͜)^#V}f5ܺ #s#r###s#rUi* #*~# *O"6+q 6)&ͺ [s#r#!6)"+!"l*6-[s#r###s#rC ͏* 6#6C [r+s*! Ϳ+"F+N[s#r# "6#6#]Ts#rѷRͲ+*(D(d͞Uppq#p#s#r#%--͞ѷR' s#r# ( q#pu=(ĺ ++C C ^#V2!N4C 46#q#p#:w<2#C (*W:G=wq#p#6#w#w#wz,ĺ u=:+O~#+y#! *##4wC (C #6)Ͳ+"O:Uqwy+ͼ+F+N*B"s#rѷR Ͳ+* :ú V+^z;,&f`++µ-C 7ĺ u7ĺ ^#V N( #,+f`C N#F#͊.x _x{TVR.( &.@,ú ͊.x-=.xD.( (. =LUr-f`C W|(#~zY,µ-|ʹ-C N#F#V<ˊr (!!+^#V#对(WgoRN#F#(Gn(!r/`iB !x/ ^#V !j/ !n/N#F#(ã,-6+f`+n(!/Y?!/!n/( ( .fUs`K0&C =&((-͊.V-#ræ,V- #rC ˸Aº u,(=f`-˸^#V+(S_z2 {C_z > ???2{!.!."El.*[%ts#r^#VS%t"El.xEʺ ˸/f`Ut!R1!f/*+Wx( z([z[  J/!Y/*J/S/!^/"R95`MD2`Ai}f|ĶeRe |eĻe}Իe"?l./-f`"Fl.T##"9<*!/yMDx)`h}_*'t#"'to&e}Uug> ``]T͝ffj˼*9@+"d͐_8`̓d1u!i8*9@++"pu"ru!i0"ru!i8E( ~w*Et#~"Etr8~hgw |¶"tuMDz >>`!R!Q`P`>R!Ѩvu^#V#zgw^#V s#rN#F## #s#r#= Qecg:Gtg3g/h7*pu UvR< Top of RAM? Table Size? Top of RAM for 'T'? 6yCLU^i  )1:BLW`bjl &),69<?BV[^afmpx}  !(0O{~Uw !$'BNSmx )3:EHORW[eltw  &-0:?GNQk| %)369=EIL]flox &2@CUxG^~    ) . 2 9 B E H K N Q T W Z ] ` c f i l o r u x { ~ N W Z ^ |    " & , 2 5 ~    $ ' 1 < L O R X ` z  SUy  ; ? R [ ` d y %*-4FM4JR^elsv}+.3>VY\hsv *07GS[^bejotz $+29@GOWYU_gow 4@CGKNYchvy~").EIQ\go} .<DGJORUx{   "$&(*,.02468:<BDGJMPS\_chpvz|~U *6ESdilorux{~ %).CFILTi{ "*/26:FNZ^ahsv~ FU $/36>KYmz}  %(14:SV_fkq  "'6BZgjrw}  !%*-6;@CUHKRZehkps  '*-HQV_ei~     " 0 : F I M Q T W [ a !!!!!!!'!.!@!U!^!c!f!n!r!x!}!!!!!!!" "6"9"<"?"B"G"K"N"Q"["a"f"i"v"}"U""""""""""""""""""""##H#S#Y#^#b#h#t#~#############################$$$&$,$9$<$?$H$K$T$W$Z$`$v$$$$$$$$$$$$$$%% %%%%#%*%1%9%E%H%K%O%Z%]%`%c%j%u%}%%%%%%%%%%%%%%%%%%%% &&0+U&9&A&J&R&Z&b&m&r&u&x&&&&&&''&'/'6'<'?'B'F'I'L'O'V'd'g'q'v'|''''''''''''''''''''''''''''( (((((!(((+(/(8(A(D(G(d(g(q(w(}((((((((((((((((((((((((((((() )))))")%)()/)6)9)@)G)M)Q)`)})))kU)))))))))))))))))))**(*1*8*C*H*P*f*l*o*r*x***********++ + ++++++#+J+S+\+_+b+h++++++++++++++ ,,(,/,@,C,J,P,Z,],c,f,l,p,~,,,,,,,,,,,- ---#-'-1-F-P-]-`-k-n-u-|------------------ U...$.;.?.O.[._.m.q.w.z................// //'/,/3/6/B/R/U/n///////////////////////0000'02090G0J0S0a0h0q000000000000000000111111-131E1H1K1N1Q1T1W1\1b1e1h1111111111111111 `