@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` \ LP6LL L@!Ld!L%L\%L &L(L(L)L+L,L,L0LF-Ln2L2L;3L35L5 %gc%c%c%b%`$}S4%`$}tV}%b@(@$`$`2#$`Y%b,%b@(%bD@$ (%b@$ (%b@@$ (%b,l"`%F`,P:%$`@Xm`]R,} U%bU`Sm`%e@X]R, U%bU`S%b%b,   $ah $zj0 $_0!   |h`%}e@X`S%e@X,ERROR, Last 3 input lines:U`S%e@X,%-------------------------------------U`S%gc%e@XU`S%c%e}@XU`S%b%e@XU`Smrd$D%e@X$ 3U%e@X$^3U`S%e@X,%------------------------------------- }U`S%e@X,Error #U]R, at line: Um`]R`S%e@X`S%e@X,Last Identifer scanned: U%`V`S%e@ }X`S~\, D1:ERRORS.TXT?R\P \@X%`hUl`$ bHl`$0@ l`$ `\@X $PUqS` %e@XU`S%e@X$ 3U }$~3U`%e@X`S~~\S2~4F%e@X, Unknown errorU`S\O%e@X`S%e@X,Type to continueU` }S%e@X,or to ABORT: U$.$ b%e@XhU%e@X`SR%e@XqS%e@X,Aborting compilationU`S%e }@X,Reloading MonitorU`S%`$}O%bO%b%?R%bP%bO%e@X,Place disk with MON in D1U`S%e@X,}Then type U`S%e@XqS%`,D1:MON?R%`P%`zO %Pbmb@(mb@}bmb$|@`$`2>%b%Pb%bmbO}}b l`l``l`$$`2l`$%`2l`$'`2l`$%bVm`m`T%j`@ p?%j`%td@m`X%td@m`(%d%tdI}$}BA%d@ &l`$7`l` |h`% 4$}b|b}`|b$|@}b%`$}%?R%`$}PzXbu%}e@X,Unable to open input fileU`S|h`%e@X, Creating: U%U`S%b%?R%bCPzXb|h`}b|b%/ !@}}`%2 !@}`%e@X,Listing file, P: or E:U`S%e@X, for noneU`S%F`%e@X$ UqS%F` b%F`@ $P $E } 4k%e@X,Must be P: or E: U`S|h`|#`|"`%$`%F`?R%F`,P:%$`CPzXb%e@X,Unable to open output fileU`}S|h`|#`|"`|`%b,%c,%%b@ |`}rdl`$0hl`$9j0| `l `3%e@X,File contains line numbersU`Se%e@X,"F}ile does not contain line numbersU`Sl `l`$ b%bmrd@ |`mrd@}rdj$ |` $|%b%bO%`$}%bO l`$}6bVl`$6`lb40%e@X`S%e@X,Illegal Symbol found at line #:Um`]R`S%e@X,$Type / to continue/ab}ortU`S%`%e@XhUl`$ `l`$`2l`$`%`$}%bO%b%bO%b%?R%bP%b%bO%`,D:MON?R%`P%`zO} l`|`%`$}Slb]%`$}O|blb|blOb|Nb%~a%`$Xmb}b$ |`$ |`%b@($c}rdmrd%b j|%bmrd@ |`mrd@}rd}|b$|`mrd%b j%bmrd@ |`mrd@}rdm`@}`%`$}Slb0°+$|`}rdl`$`Yl`$`Tl`$>|`{|`m`$0`%e}@X`S%e@X$<3Um`]R$>3U+%e@X$.3Ul `Ol`$ bM%bmrd@ |`mrd@}rd0T$ |`$ |`) ABSOLUTE@AND 0A}RRAY 2BEGIN CASE CONST DO DOWNTO DIV *END ELSE EXTERNAL=FOR FILE 5FUNCTI}ON GOTO IF IN 3LABEL MOD -MODULE 8MODEND 9NOT (NIL ?OF OR /PACKED 1P}ROGRAM !PROCEDURPREDEFIN;........<RECORD 4REPEAT SET "TYPE TO THEN UNTIL VAR WITH } WHILE    "#&'( m` |b}`6m`@}`%j`m`@l`(l`|`m`bF$ʤl`$'`}l`$'bm`D}`$'|`|b $$:|`%`%`Xl`$ `* @l`(@ $dl``2l`$ `2-@D(l` }bhZ$*`l`$)`lcZmb}blNb|Ob%`%~a$Xlb|b%`$}?R%`$}PzXb%e@X`S%e@X,Unable !}to open include fileU`S%e@X, File name: U%e@XU`S%`$}O%e@X,Type to continueU`S%e@X,"}or to abortU`S"%e@XhU"$ `wR%e@XqS%e@X,Aborting compilationU`S%e@X,Reloading Monitor#}U`S%`$}O%bO%b%?R%bP%bO%e@X,Place disk with MON in D1U`S%e@X,Then type $}U`S%e@XqS%`,D1:MON?R%`P%`zOmb}blOb|Nb%~a%`$Xo%e@X`S%e@X,Including Text from file: U%e@X%}U`S$|@}b%b b}rdl ` %bmrd@ $ b mrd@}rd%bmrd@ |`%bmrd@@ |`mrd@}rd$'|`@%j`m`X@ }`$:|`&}|b%e@X$<3Um`]R,>.U $*`fl`$$`&Xl`=l`$I`4T\l`$L`S8l`$+`Ol#`|"`S|"`l`$P`g'}l"`g%$`Rl`$Z`l`$E`2l`$A`2l`$O`2l`$W`2l`$R`2l`$T`2l`$X`2l`$M`2l`$K`2&$:|`%j`@$ (%j`@%j`@$PDX%(}`Xl`$ ` %j`@l`(@ pl``d2$$|`D}`J$:|`l`b3F&$*`Rl`$)`M2/P'X)}& l`$0hl`$9j0l`$Ahl`$Fj002Zl`$9j2Xm`@}`%j`m`@l`(Xl`|` $$|`}`&l`*}|`l`|`%j`m`@l`(`$7|`|` $7|`$|`$7|`|`$7|`l`$=`.|`2|`!]Y.}9_flSSSSSSSSSS &&/}-& }`%j`m`@l`(l`%`@$ (%`@%`@$X0}$@h$Zj0$0h$9j02$_`2m`b$_b0m`@}`%j`m`@(vl`[A%j`%`m`X%`@ $@b%/ !$@%`%`%2 !$@bH1}|`  $6|`l`$ ` l`$Af$+Ol`$@hl`$Zj08Ol`$ahl`$zj0LOl`$:b `N%e@X`S%e@X,-------2}-----------------U`S%e@X, Atari Pascal U`S%e@X, Version 1.0 - 1-Mar-82U`S%e@X, (c) 1982 3}by ATARI U`S%e@X,------------------------U`S%e@X`S%e@X`S%e@X, Syntax ScanU`S%e@X`S lh`4}8%e@X,< 0>.U8%e@X`S%e@X,End of Phase 0U`S%e@X,Source lines processed: Um`$]R`Slh`%5}e@X,! Syntax errors prevent further U`S%e@X,! Compilation. Reloading MonitorU`S8%e@X,Loading Phase I6}U`S%`,D1:PH1?R%`PzX`>%`zO%e@X,D1:PH1 not foundU`S%e@X,Reloading MonitorU`S%`,D:MON?R%`7}P%`zOٰ8LLGL.9LA:Lt:L:L=LG;L;LL@LH@L@L.ALALD %le$ $ $ $ $ $ $! 8}$ $ +%,e$ $ $ +%d$$ $% $' $& $ $( +%Le$ $ $ $ $ $ $ 9} $ $ +% e$, $$ $% $' $& $ $1 $2 $4 $" $5 $ +  %` %le#%Le#:} $ 42(   %` `( } ^%le#^q%d#Tq%Le#Jq%,e#@q% e#6qq%le#*q;}R *4>HT%` `}(  %` $'`%` $&`2( R%` $,`%` $.`22( %` `%` $$`2%` $%`2O( R <}%` $`%` $`2%` $`2d%` $`>( zb%` $`_( o%` bG$$ Yb(  %` `( D$7%` $`=}`( %` $bV#%` `B( %` `Q( 41$$ %` $?`n( %` $(`%` $C`2( %` b4$: %d#>}( %` $`%` $`2%` $`2%` `( %` b$n q%` $)`%` $+`2%` $*`2%` $-`2%` $0`2%` $A`2A?}( : %` $,`%` $.`2( %` $,`%` $.`2%` $/`2%` $B`2E(  %` $7`%` $3`2( ( $@}%` `!( $$ 4A$2 %Le#$ %` b4S( ($f$ _%` $brk$L%` $b4(A} %` $ `2( %` $`( %` `M( %` `5( %` b$$%` $`K( %` $b%` $`b  %`B} `-( %` b$%` bb4=$4]$ % e#$ h%`,STRING Ţ( %` $`â( %C}` $$`( %` `( $ %` $b( $$ ( %` `( 4$2 % e#$   %` $`D}!( $%` $1`-( %` Ȣ( %` $bM$  q( 4i$ % e#$ j%` bM$$ ]$ Vh( %` $ `E}( T( $ 3N4$ ( 1$ $ $"3 $$F}$$$ ( $$ $%` $`%( $$ $ %` $2`BI$l %` b( %` $`%` $ G}`2K%` ( 9W$ `I$("%` $`W( %` `b( %` bW$%` $2` %` $b$H} %` $`%` $`2%` $`2d%` $`>( b%` $`_( %` bG$$ rb(  %` $$`( $RI}%` %b%b!)( i%` $b($ $ $*%b%b!)+( $ $4:%` $ `l( ++( $ %b%b!)%` $`( %` J}$ b%` $ b0%` `( 4$2 % e#$ %` b$%` $b%` $ `( %` $`( %b%b!)$ $ $[+K}( Y$6Lv+%b%b!)( d%` $b-$5$&)%b%b!)+( $$3 %` $`u( %` `( $7 L}$6+( %` b$6+( %` $$b$ %Le#$ ܢ( +%`,WRITE %`,WRITELN 2%`M},READ %`,READLN 22%`,EXIT ( %` `%` $`2%` $bm$~ %` $`( ( %` bN}D( %` `( %` `( %` b$%` $ b%` b0%` $ b0$$3+++++++++O}++++++++++Ln#S+OD %b%b!)%` $`>( %` `&( $$$ %` b$$%` $`( %` P}$7`v%` bt$ %le#$ $ %le#$ ( 4$2 %le#$ $$$%` bJ%` $`( $r%` $7`Q}%` b$ %le#$ K$ %le#$ 6( H$$$*%` b%` $`( %` `0( %` b%$%` $=`SR}( %` $@`( $$ %` `%` $$`2|( $ $$ $$%` b%%` $ $ $ $ 4%` $`%S}` $ `2%` $=`2%` $;`2%` $=`%` $;`2( %` ( %` `N%`,INTERRUPN( $$ %` `%` $$`2A( F$ $T}$ $ `s%` `s$$$4%` $#b񒑢( $$2%b!`0 %` $` ( %` $`Ţ( U}%` $ b%` $ $ 4 $E%` $ `$ $ $3$ "%b%b!) %b)%` $!`%` $8`2yV}%` $8`( %` `S( %` b;$$$j$9$c%` $bw ~$ W}ʠ8A`֩&ץHH&&heօheׅץe΅֥eυנ&ȱi ֐LHȱ֪ȱLX}IҊҦ`LLJL&ILPILoILILILUJ  @ d$' @    $0h $9j0  `Y}: 9:  ""3 :J     :  V2 :J$0D:B  =  : $.bZ}i:   c$bj>;R  C:  $0D ;JB @ "   : $Eb~ [} $+`1C$-`C{iH$0D@ $bda$b ]C$bjxT ~8:  $ b : \}$+`8B [$-`O>F [B  :yR J X8:]}wK:M;MoMBWMF]MJcMRiMuM{MMMMMʭuKvKʩ [`ʘeʅʪʽ`ʘeʅ^}ʪʽ` K K`ʹ`ʹ``` K fL[L K `L[L K L[L K (L[Lʐ *L L`_}I`)` K L L EL`ʥHIiԥIi ٦ Lh fL`iԹHIiԥIiՆ ٦ `}K Lh fL L` KE& `8` L), L"% L  L L  LLLMʝ` /LL :LLa} ELL PLL fLL ML ML %ML .ML 5ML Tc`%≢e`%j,D:MON_%j}]^%jY]LL^!Lu!L!L"L&L>$L$L$L&L&%LY%L%L%L&L'L'L'L'L'L'L1(LU(L)L))L)L)L)L)L*L*  @@ $}@(  %&P@ $0.P ;$P ;$@P ;&;$0  P %&@ $0E$ T$ H T$ $H }T$? $@H T"-9T%&@0@(  $%eb%e,Error # Tc%dUP%e$_$.bX_P }b%e$_%e, line Tc% !_`%e,Last ID:Tc%pc`%e`%d%d!@), D:ERRORS.TXT_]^}He`V Feb$ bFH$0@ F$ `ܨeL$Pc`F`%L%eTc`%e$ b$~bF`K%e`H}n`H2H4r%e,UnknownTc`Jr]%e,$Type / to continue/abortTc`%≢eb$ `$`2$}`%HJr]%!`%jJr]%j%#_%j]^%jJu]&,D:MON_&]^&Y]%e`  %)%Hc ""}\%Hc$$bV$9dD$D%%!H$0D@)Z$  M+%Hc""5@%Hc( }e%) %, %Hc ""@%@%Hc(' %Hc%Hc 222%Hc} %Hc%!`\$ %@ $ `;D 'ञ22\%@ G  %Hc% eC%}!)  %Hc%Hc%Hc$+`( %Hc h$j0(%T@(%%%%%!$@)}%%%%% 4(%A7R*{?Zbbs/ %Hc }""/%@%Hc(%`) %Hc% e% $>`-% % !@)% $>b% $$`H$%`T$'`}`$:`o`z$7`%@%Hc(4  ࢦ[  ࢱ[ " ࢼ[ " [ " [ } %(%jz[ZY$Q$  A@ 7-+* %!$    $ $}0$0   $V`% %% %!`02$ $V`KC! kS!D$H % 4k$@ }$0q$0i$ @ $ `D C@ / $Vb@$    `!%t}@ ~ᤷ@%t@ (@%t@@ (eᤐ`a% 4a$@ e@ @ @ @ Dd   }$!%!D   %e,Version 1.0, Phase Tc_`%(  [  %&!)%&%&!@)$%&}!)LLP*L*L*L+L +  e@ $P@ $X@ $P@ $X,0123456789ABCDEF$@ %eb@ }b@ b@ b  %%!)%%!@@)  %%!@@!)%%!)  '  %%!@@!})%%!)LLY+Lm+L+LD,L,L,L, O!$@f% !  5$[!d$[!d$[!d$[!d$[!dCddd}ddddddddd d-d%d%%&!)!(c  4$[!M[!M$ [!M$ [!M$ [!M$  ,}M%%&!)!(  ,$[!?$[!?$[!?[!? %?%%&!)!(  [!%%&!)}  [!%%&!)  [!%%&!)kLL-L{-L-L-Li.L.L.LS0L.L%/L/Lw1LA3  %%!! `+%%!})jX! `Y$e !!`K W!X! 4`e)j ) ))  %`%!)%`!hL%%`!! b@}%X!`=-@ %`%`!)%b 4^$h !%d! )-  %X!b)    `! !)!)o)%!`}2$)o%!`F%)%)o!bl!  !bd ! T!)o)   `(!%!`( `(  } `(!%!`( `(   `(!%!`( `(  ! !`44 ! !}  ! ! !%!`0k  0U ! !` ! !0i  b  b0t  }% 4 0 0  ! !bb00R!! ! !`0}`0 !`0 !`0% 4  0  0  %!`%!`2%!`2%!`2% 0C `8 C `C} %!`%!`2% 0u%!`g%! u%!`u%! `!``2!  ` !!!}!!!! ` !夝! `!!   )% $'`}%`!`4%! %%@ )%`!bK%%@%`!e%@%`!(%4%`!)%4%`!(%4(%4 %B%@)%%B)%!} % $,`! % $.`! % `W $Cb$g ! b!%!b0!%!b0$i !!  bR%!` `}!8)R%!`M `K M+!e!e)R$i !!% $$` `o%%!8)%! %!% $%` `}%!e!%!e%! %!$j !) % % !LLY3 % 4%d8)$  1%}T@( % )%F(%%&!$@)%&%!)%% )%%)%%)%(%(%(%(%(%$2P@)$    %b}e%b)%b(%D($  %)%(%)%)%e,Opening as input: }Tc%Tc`%H%_%H]^eb%e,Unable to open Tc%Tc`%d8)%(%e,Opening as output:} Tc%#Tc`%j%#_%j]eb%e,Unable to create Tc%#Tc`%)%$|@) % e!%}8)%)%e,Available Memory: TcO!$_`@6%e,User Table Space: TcO!$_`%)%)%d)%)%(%}% (%f)%(%(%)%4)%4(%4%!)%4%!)%4(%B(LLAL[6LALm6L1:Lp;L=L@LLA  %T@  }%J+%!)%!(%!) $TG+ ,INTEGER  %!)  ) , $CG+ ,MAXINT   ) %!) }%) , $TG+ ,  %!) $ (  ) ,%d )%J+%d %!)%!)%!(%!) $T}G+ ,REAL  %!)  ) ,%J+%!)%!(%!) $TG+ ,CHAR  %!)  ) ,%J}+%!)%!( J+ $CG+ $CG+%! ) ,FALSE  %!)   ) ) , ,TRUE  %!)} ) ) , $TG+ ,BOOLEAN  %!)  ) , $TG+ ,TEXT  J+ $") %!)  )}  ) ,% ) $TG+ ,STRING  J+ $Q) %!)  ( J+ %!) )  ) $)  ) }$Q( (  )  ) ,% ) $TG+ ,BYTE  J+ ) %!)  ) $)  )  ) ,%} ) $TG+ ,WORD  J+ ( ) )  )  ) ,% ) $TG+ ,ANYTYPE ) }),$TG+ ,ANYFILE  )J+$!))),$PG+ ,@ERR $() )))),%p)}$VG+,@@@@@@ $() ))),%n)$VG+,INPUT $(%!) ))),%l)$VG+}$e,OUTPUT ,%j) $ $PG+  ,READ ) ))(%))   , $PG+ } $e ,READLN  %) ,J $PG+ ,WRITE  )  ) ) ) (   %) }, $PG+  $e ,WRITELN  %) , $PG+  $e ,EXIT  %) ,$ $PG+  }$e ,NEW  %) , $PG+  $e ,DISPOSE  %) ,  $PG+  $e ,PACK }  %) , $PG+  $e ,UNPACK  %) ,V $PG+  $e ,INLINE  %) },  $FG+  $e $F( ,ABS  %)   , $FG+  $e ,SQR  %) ,} $FG+  $e ,ODD  %) %!) , $FG+  $e ,ORD  %) %!) , }$FG+  $e ,CHR  %) %!) ,J $FG+  $e ,SUCC  %) , $FG+ } $e ,PRED  %) , $FG+  $e ,SIZEOF  %) %!) , $FG+  $}e ,ADDR  %) %!) , $FG+  $e ,LO  %) %!) , $FG+  $e} ,HI  %) %!) ,٬ $FG+  $e ,CONCAT  %) %!) , $FG+ } $e ,WRD  %) %!) ,  ) ))$($VG+$e,  )! `}R)g !bb ! R ) :$VG+:%!):(6$VG+6%!)6( $FG+ ,COPY  %!}) ) 6 : : , nnnnq @VLL6KLCL BLBLNCLLDLELDL@FLFLJLgGLILG !}  !) !%!`$P % $`P!-%!,4`2J$ ! !J+)%!)%!)(( ) ) }  !!) - b$ ! J+)) !-!bO$k !!%!``% ! !!dx$f }! !) !h!$j0) ) !)  %! %%! b*%%!) J+)(  !$CG+`R }W )%) ), ) !% b>)!%) ) !)  % `K, $T`'I $C`}5I$g !%!))![% `X[ !J+)%b( ,%b( `W $TG+ % ) %!})% )k  $Tbk$g ! ! b !))) !J+ ))( (}4K$q !)b j%!`t$m !%!`$ !)$q !% b4! ! !}w!%!D*%6%>%6! %>! %>G*%6M*b) !`  !  % $b b ! )  }% $`ꤞ) !%! %!$fB%%!)%%!)%%!(G$ !%4!J*%4=%4!%4M*$}J+ %%!!)))(% )!))  % $`y% $1`'!% Jyy}yyy"7AAAAAAAAAAAAAAA-A<2ALL6LLKLLLMLNL'PLTL:RLzQLPL!X  ,0123456789A}BCDEF$@$0$P@ (@$0$X@ (@$0$P@ ($@$0$X@ ( !%!q$PG+%,# %@}e)%!))(%,!% $`! !% `+$CG+%) )!!% `Q,%`!%!b%`!b}0Q$ !- `J+ %`!)%!)%@ (( (J+ )%!) )%@ )) M+O!%}`!D$@f% !%@ b%@%!%@ e@ %e%%!%`!@)%&%!) ),!  !% `֨$TG+}%) )!!% `Q,%`!%!b%`!b0Q$ !A),%! b!!)%!b !)%} !)  !b !%!b ! g!%!b%!b%%!$u !%%! !)ަ %)! }$VG+ % ))(%!), !% b 4V! ! % $=`}!%!b}$ !% $@`}!!-%!,4$2 ! ! Ab ))$()(@ %!)!`C!%%!@) !} 24%%!%%%!)!% b%!b[%!b[%%!$u !%%! !)8 !$PG+%=!!) )}%!)(,%%!)%%!)%%!)%)% `4n$l !!% `!!q!  $VG+ %(%}!)!!$VG+ %(%!) )!!,!b! d $Tb2!%!`2$g !!)!) )%!)%}%!!!@)%!)%%!!!@),,)    J+ )(() (!!  % $`{ !J}+ )(() () :!!% $2`,b $Tb$g !!))!)  })% b_ !% `% $`2% $`2% $ `2% % $`% $`2% $ `2c!f $``2 $VG+ %})( )%!),! % b4!%!  ) %)%%!)(%!)i$b$ }b07!% $2`y5 ,! $Tb5$g ! A$`A 4VbS! V  bq`q `q$y !b ) !} q ) % $`!! b\ !  ) $Pb $Fb0&! $j `2%!) `%%!)4%%!}!!@)$4$%!)%%!!!@)>4>%!)%%!)4T%!T%%!)  ) $  % $=`% $;}`2% $;`% 45%)<! `J% N $ `^$FG+e$PG+ `!% `%,INTERRUP0!!!!4} `0%d 40%e$#b `%b(,%b(b  $P` $F`2!f0%`!b0~% `$w !% `$z !%}%!)%%!)!8))%%!%b!!)%%!(!!% !) )!%!h%`!b0$e} !%!  ) ) ) %!) ) $( $ `%  %!)%%! ) %!) ('%}! %),%)b%%!!`],%b%! ""!`[")b,4%%!)%!$ d$ !%%!)%%}!)%!$d$ !%%!)%%!)%%!(%%!)%!$d$ !%%!)<)$ `4!,}! )b1 $h1$x !)!% $` `0E! ba%%!)%%!)% $#`!8)% e)} U!%b%!)% $!b% $b0% $ b0% $=b0% $8b0% $;b0% 40^!"% $!`% $8`20z}$ !% $!`$ !% $!`% $8`2%% $8`(% $!`% $=`% $;`2 4,% $`夯% $`% $`}% $` % $b% $b0% $b0% $b0ّ6%%!)44i%b%! %%!!)%!)%b! }%%!!)%!)%%!)% $`% $9`2% $#`2"% $#` % $9bA % $#b!% $`% $ `2% $`2% } $`% $`2   `բ!% !%%!)%%!)% $b 2ɒH!$$`% $9`2"4m%b%!%!)% }{%%!)%e`%e,Remaining Memory: TcO!$_`%d!b%e,,Phase II not being run due to Phase I errors}Tc`HHH܉݉߉ fމ߉hhh(`jjHމ [h*.߉މ`*LW[Hމ [h*.߉މ`܉݉}މ`މ.߉L[ [` :[` :[` :[` :[` :[` :[ :[`}ʠΪȱ΅φΥC5 Ϊȱ΅L,\Ϊȱ ΅L,\ ʝʘΠ}Хȑ`LL\ %,(%.)%.)%2)%*)%&%4)$%&!)% ,K:)$($()((( @) @$} (% ,E:)($()((( @) @$ (`(ahLL\]    LLx]L]  }  $P %@$ (h$h1e5ee)    $P %@ $!(@)h उe)LL]  } ᢙe8`(8 #((($()) ))a4Veba^b`^LLc^L _  ᢙe8`8 }(#(((()) ) `a42Ueca_cᤜe`(()b)) !}ead(( * %@ $b,@ $d*e %@ & ((@ $dK$ (@@$(($H(&$(&}(@)& (( & $ (& (ezh$heeLL_ VҼQ R TTLL_LQ`   ,0}123456789ABCDEF$,Q,`f2$d2O fO$-8 \@ bT `Oຨ໹Q X  zTcL}Lq`  8`%  LL` e  @(!aLL` $`LL` e  Fh(W }  240(a(!eaW$eW?LL+a  e  d$!ea @ 4 @ !eaLLha}  ᢙe() $(Ud U @ $` 2B(  2U @$ (LLa  ᢙe)eLLaL@b } ,CON: $(Z,LST:=,P:$(Z,KBD:,TRM:2Z( 0 $ $~ + $d f2"F}  . .C@  4AF+LLb  d)D)$ ``LLb  (a(LLb V  }ҼQ@ @@ D@e@@ e@  @(LLc  e  )Nh: g:$e:""LLWc  }  @ pcLLsc    D  &$ `e  FbhYgY$eY888118? }ʠHLdqЊqѠiȱiH8Ldȱ EfLdȑ }ююSqЊqѠ8ҊӠѥ8ҰӥLdH8Ld hhʝ`LLd  }e e 1xhDࢉhDBfD$eD%%*%*)LL"e  e e ` !  }S $` $`0GhLh 'sfsesUUUUZLLe  %()LLe  %(! LLe %*}(LLe  %* LLeLfLfL"f         Ħ   @ D hʠ}BDȱEHȱI V45HIȑȩȩLf8 h` hʠ B}DȱEHȱI V08 h` hHȱhΠȩ f` hLg}LgiХiѥ8ߩLgiХiѥ8ߩ ΠНDѝEߝHIB VHh }HLgHH8 hHeΩh` h BНDѝEΝHϝI V0}8 h`LLQh  LLeh  LL{h  LLh  LLh LLh L}Lh  Vʝʝ`((`*``LLh }_]^Y] \ V34}d%&m)md`0K%HH(* DECLARATIONS FOR CHAR ARRAY *)(* BUILT-IN ROUTINES *)predefinedPROCEDURE FILLCHAR(VAR DEST:ANYTYPE; } LENGTH:INTEGER; CH:CHAR);predefinedPROCEDURE MOVE (VAR SOURCE, } DEST:ANYTYPE; LEN:INTEGER);predefinedPROCEDURE MOVELEFT(VAR SOURCE, } DEST:ANYTYPE; LEN:INTEGER);predefinedPROCEDURE MOVERIGHT(VAR SOURCE, } DEST:ANYTYPE; LEN:INTEGER);(*$L+*)predefinedPROCEDURE FILLCHAR(VAR DEST:ANYTYPE; D G L!L ,$(*(*"%(@@)} |b|F|D}%%b!)%(% })%%b!)%(%)%H$}<|$|@}}%&%,D}!l $8`|!l4բ+}T}f }}h!+}T%tmT@$L(mT!mT@}T%tmT@(mT!mT@}T%tmT@(mT!mT@}TmTmf`mf}T*}}V,D1:PH3 }=<; *; LL!L"LD"L"L'L$L'%Lq%L&L%L%LB&Le&LK'L(L"(L.(L:(LF(LR(L(L(L)L)L@*LF*LW*L]*L*L*  } @@ $@(  %&P@ $0.P ;$P ;$@P ;&;$0  P %&@ $0E$ T$  !}H T$ $H T$? $@H T"-9T%&@0@(  $%C@%C,Error # A%dUP%C$ >$. "}@X >P b%C$ >%C, line A% ! >>%C,Last ID:A%A>%C>%d%d!@), D:ERROR #}S.TXT=<HD`V FC@$ bFH$0@ F$ `ܨCL$PBA>F`%L%CA>%C$ @$~@F` $}K%C>H>H2H4r%C,UnknownA>J <%C,$Type / to continue/abortA>%≢C@ %}$ `$`2$`%HJ <%!`%jJ <%j%#=%j<%jJ <&,D:MON=&<&;%C>  %)%H &}A ""\%HA$$bV$9dD$D%%!H$0D@)Z$  %HA""5@%HA '}( D%) %, %HA ""@%@%HA(' %HA%HA 22 (}2%HA %HA%!`\$ %@ $ `;D 'ञ22\%@ G  %HA )}% DC%!)  %HA%HA%HA$+`( %HA h$j0(%T@(%%% *}%%!$@)%%%%% 4(%A7R*{?Zbbs/ +}%HA ""/%@%HA(%`) %HA% D% $>`-% % !@)% $>b% $$`H ,}$%`T$'``$:`o`z$7`%@%HA(4  :  : " : " : -}" ;  %(%j:ZY$Q$  A@ 7-+* %!$    .}$ $0$0   $V`% %% %!`02$ $V`KC! kS!D$H % /} 4k$@ $0q$0i$ @ $ `D C@ / $Vb@$    0}`!%t@ ~ᤷ@%t@ (@%t@@ (Dᤐ`a% 4a$@ D@ @ @ @  1}Dd   $!%!D   %C,Version 2.0, Phase A >>%(    %&!) 2}%&%&!@)$%&!)LL+L+L+L,L%,L<,L[,Lo,L,L,L,L4-L-Ls-L-L.L`/L/L/L0L0L60LJ0L0L1L1L1L 2L2L2L-3L>3Lz3L3L 3}3L3L3LJ4L[4Lp4L4L4L:5Lz5L5L5L5L5L6L(6L?6LJ6LU6L`6Lk6L6L6L6L'7Ls7L7L7L 8L*8L48L>8LH8LS8L]8Lh8Ls8L~8L8L8L8L9L 4}G9LY9Lk9   %t%T!@(%T%T!)%T!%d/$!%T)%f%f!)  %T!!  $0$0  $ 5}0$0  `%T!!ँ  %T!!m $Z%f! %@@!Q%@@)  %V!)%X%V! 6})%V%V!)  %h! b'!`!)*! )  `4%h!)%h)))) !)) 7}%T!)  `6,%h!)%h))%T!))>%T!)  b;! %t@%t@ $0$0@(%t@$ 8}0(!  %h!b)%h!!%h!!)%h%h!!)%T!!    `R,; ; ; ;%%⤶d 9}LPᤱf`0w%!`w4$f0w$P@%h %!b    8% :}!`dP#d$HP@$H%f     b-`#$l!+!~`=$% ;}~$ %!bN %hZ 䤖%!bm$H%fz|~y   `$|!#!v  .$ B=$!; <}=$"4=$#-P%=   .$(=$)=$*=$+P=   $-ि =}  $%%f! !)  $%!  M$|l$ul$nl$gl$`l$Yl$Rl$Kl$$D@ >}l B&B-B4B;B   j!!h"!:,$%!!%f!h0B!L$%!$&! ?}!r!c$'!!!@!.tNt! `$,d ]   @}!!@ ;ΐ  %fh0\!$%  K$%f! %p!!%p!)  $% $$ A}  Z$@u$Du$Xu$Pu$Hu%$0u$ڤu$Tu$\yu$Lru &-:ELSu`$`2 B}$`2`2% $7x  ($0!7$27$47$6 7 !7 <$>Q$BQ$FQ$JQ$R C}Q$:Q$;Q  '.5Q  $<@ '$Ȥ6$ʤ6$ɤy6$ˤr6  6$ \ $̤ D}Q$ L $ͤA$ < $81 5$ H$H$H$ H$H$H  '.H% X$$ E} %!`HpK%!`+K%!b>H`KH܁ "H܀{ H܁jf H F}UQ%r!!L E$84X$-)X$!X$!X$X$ X !(/:X$  $` G}$N+$ 6$ 6%6%t%T!@%t%T!@ @(   $b($!$H%f!Dx?$n%f! !j H})  $I  $ :%!$H@/%!b*#A%f! %n!)$ $  %!b4%T! %f I}! %T)%T)%f)4  $ᤷD  $0$0 $ $Ĥ $Ҥv $ڤk  J} d%f0$ܤSO&$ФHG  d%f0$ݤ,(&$Ѥ!    $`$Ӥ"$Ԥ$H@ K}      $`$դ$$֤$H@㤺⤶  @b8Kb$) K$פxwsK L} 1  $ؤTSO $= K$;$4$`g$ޤ$OV$٤$ޤ$ 󐆴 M}D %6=     $  $ N}} $r $g ] $"%@@)%f%)!%T)%h)$ %!$$  O}c$T  %f$%!H)   $b)!$H%!@@$%%f! !) %l!$  P}%j!$ z $ oLL9L9L9L9L9L9L9L9L9L:L:L:L:L:L":L*:L0:L8:L@:LF: ++ $ * $*  Q}$*                HHH܉ R}݉߉ +Eމ߉hhh(`jjHމ L:h*.߉މ`*L:Hމ L:h*.߉މ`܉݉߉މ`މ.߉ S}L: L:` q:` q:` q:` q:` q:` q: q:`LL-; %,(%.)%.)%2)%*)%&%4 T})$%&!)% ,K:)$($()((( @) @$ (% ,E:)($()((( U} @) @$ (>W?#GLL;    LLL>   ,0123456789ABCDEF$,Q, Z}`f2$d2O fO$-8 \@ AT `Oຨ໹Q X  zALL>  8`%  [}LL> C  @(!?LL> $>LL> C  FF(W   240W?(!? \}W$CW?LLZ?  C  d$!? @ 4 @ !?LL?  C() $ ]}(UB U @ $` 2B(  2U @$ (LL?  C)NCLL@Lo@  ,CON: $(Z, ^}LST:=,P:$(Z,KBD:,TRM:2Z( 0 $ $~ + $d f2"F  . .C@  4AF _}+LL@  d)D)$ >>LL@  W?(LLA V ҼQ@ @@ D@D@@ `} D@  @(LLEA  C  )}F:OE:$C:""LLA   @ ࢟ALLA   a}  D  &$ >C  F⢑FY(FY$CY888118?ʠHLBq b}ЊqѠiȱiH8LBȱ tDLBȑююSqЊq c}Ѡ8ҊӠѥ8ҰӥLBH8LB Ghʝ`LLC C D 1ࢧFD d}FDqDD$CD%%*%*)LLQC  C D ` !  S $` $`0GFLF e} 'sDsCsUUUUZLLC  %()LLC  %(! LLC %*(LLD  %* LL!DL1DL f}ADLQD         Ħ   @ D GʠBDȱEHȱI g} V45HIȑȩȩLD8 G` Gʠ BDȱEHȱI V0 q}B|PH0 BPH1 BMOVES BQPH2 BvPH3 B:4PH4 BnBITPROCS BrHEAPSTUF BsSTDPROCS ByISOPROCS B*}ERRORS TXTBFLTPROCS B GSPROCS BDSKPROCS BSTRPROCS BDISKNAMEDAT8 G` GHȱhΠȩ D` GL FL FiХi r}ѥ8ߩLEiХiѥ8ߩ ΠНDѝEߝHIB VHh HLFHH8 s} GHeΩh` G BНDѝEΝHϝI V08 G`LLF   t}LLF  LLF  LLF  LLF LLF LLF  Vʝ u}ʝ`((`*``LL*G  v | L 4p%&m)D)V%Z%(l4Pl4P%b%b! )%b({ LL*!L Lw}!LK!L"L"L}&  b y$#` `4%$(% 4W!)!bW!)!bf!/))%t@ x}))$#)!$0))!$0))%f%f!) !R!K  %T)ae%f%f!) *  ! `$!!`$! y} ! ! !!!V ! !!!V r !`.ye f ! l !) !bIf ff@@ !) ! % l)fz}b+fhnhn+h@@! jj pp $P`p!p!%!V)p `p! `p!!`p!!p!p!%!V{})p! $dp!p!p!V=Wp!B2 p! Vp!!V7W)p!p!p!V^|e  ( % $#`|}(z&$6%|(% $b% $ b0% $b0% $=`$`040% $;`$`040f% ($% $=`% $;`2(% (% $`% $`2%}} $ `2% $=`2% $;`2zw&% $`% $ `2( 32(%%!)%!)%%!)%%! %b%!!)(~}%!)% `O)( (% `< % $`, `,% $b% $ b0% $b0% $#b0u(O0(% $b% $ b0}! % %!`0%!` %Z%xvs$/)%d 4%xv%f!%x$ ss2)%b! %! %T})%h)%bV%|(%&%,(y-e %b ! "%!bn%d T e"%f!)"! !(W9%b%f!)|W%b}!(W%! %)(&% $b%)%b!V $%!b%d $e$!`+Wᢎe"W% $!$!V $!}$!V+W$!!"W $XW%b &% 4R&!bR%!`K&!$.WR&!.WV%%!!:%|((%b! d%}(%)%&%!)%%!)%%!)"b&  ,D1:PH4rqpLL& %d e% $$`"m((% `C}32 $P`>CGAk% $`Q.f% $`_Lf% $`mf% $`{th% $`h% $`h% $`j% $}`kLLm'L'L'LX(L(L(L( >)$@f%(  5$J)d$J)d$J)d$J)d$J)dCddddd}ddddddd d-d%d%%&!)!(c  4$J)MJ)M$ J)M$ J)M$ J)M$  ,M%}%&!)!(  ,$J)?$J)?$J)?J)? %?%%&!)!(  J)%%&!) } J)%%&!)  J)%%&!)kLLM)Ld)L)L*L.L-,L,L,L-L-LH-L-L-L.Ly/L/L/L/L/L/L 0LD0L1L1L1L1}L1L1L1L 2  @@ $@(  %&P@ $0.P ;$P ;$@P ;&;$0  P %&@ }$0E$ T$ H T$ $H T$? $@H T"-9T%&@0@(  $%xu%x,Error # v%dUP%}x$s$.uXsP b%x$s%x, line v% !ss%x,Last ID:v%vs%xs%d%d}!@), D:ERRORS.TXTrqH y`V Fxu$ bFH$0@ F$ `ܨxL$PLvtF`%L%xvs%x$ }u$~uF`K%xsHsH2H4r%x,UnknownvsJq%x,$Type / to continue/abortv}s%≢xu$ `$`2$`%HJq%!`%jJq%j%#r%jq%jJq&,D:MONr&q&p%xs } %)%Hw ""\%Hw$$bV$9dD$D%%!H$0D@)Z$  a'%Hw""}5@%Hw( y%) %, %Hw ""@%@%Hw(' %Hw%H}w 222%Hw %Hw%!`\$ %@ $ `;D 'ञ22\%@ G }  %Hw% yC%!)  %Hw%Hw%Hw$+`( %Hw h$j0(%T@(%}%%%%!$@)%%%%% 4(%A7R*{?Zb}bs/ %Hw ""/%@%Hw(%`) %Hw% y% $>`-% % !@)% $>b% }$$`H$%`T$'``$:`o`z$7`%@%Hw(4  Ho  So " }^o " io " to  %(%joZY$Q$  A@ 7-+* %!$  }  $ $0$0   $V`% %% %!`02$ $V`KC! kS}!D$H % 4k$@ $0q$0i$ @ $ `D C@ / $Vb@$ }   `!%t@ ~ᤷ@%t@ (@%t@@ (yᤐ`a% 4a$@ y@ @ }@ @ Dd   $!%!D   %x,Version 1.0, Phase vss%(  墒o }  %&!)%&%&!@)$%&!)LLW2L2L13LJ3L3L3L4L5L;4Lv4L 5L6L8  %%!! `+%%!)jG}) `Y$e(!`K W!G) 4`e)j ) ))  %`%!)%`!hL%%`!! b@%G)`=}.3@ %`%`!)%b 4^$h(%d! )*3  %G)b)    `! !)!)o)%!`2$)o%!`}F%)%)o!bl!  !bd ! T!)o)   `(!%!`( `(   `(!%!}`( `(   `(!%!`( `(  ! !`44 ! ! } ! ! !%!`0k  0U ! !` ! !0i  b  b0t  % 4} 0 0  ! !bb00R!! ! !`0`0 !`0} !`0% 4  0  0  %!`%!`2%!`2%!`2% 0C `8 C `C %!`%!`}2% 0u%!`g%! u%!`u%! `!``2!  ` !!!!}!!! ` !夝! `!!   )% $'`%`!`4%! }%%@ )%`!bK%%@%`!y%@%`!(%4%`!)%4%`!(%4(%4 %B%@)%%B)%( % $,`(} % $.`( % `W $Cb$g( b!%!b0!%!b0$i(!  bR%!` `!8)R%!`}M `K a'!y(y)R$i((% $$` `o%%!8)%! %(% $%` `%!}y(%!y%! %($j() % %(LL8 L>L>L}?LAL@L@L@L'AL\AL DL[BLCLBLCLFLD  % % 2 $(  %r!%!E2  %r!%!E2  %r!%}!E2  %r!%!E2  %r!%!E2  (%h!`((8(se%r%!)8  M $jK!}Vv $jg!!@Vv!!@V%r)% `$g( %r! d$( (% $`8VVW(%r$^'%}r!)%r!$ )$^')$ )8^ w%r!!E24m$(u%r!)%r!)% `(8%r!!E24$(}WWV% `¢(4K%r)( % `(8(% $`)% ` 32b $P`K$g( $F`}ZCG $C` Q2%%r)VHO% $(`% $C`2% (3$(`Ǥ4 V%r%!)V%r})% $?`(V Q2%r)V  %r!%!`$V%r%!)!%!`2V%!)  %!E20S}0I%f%f!%T!DD)%T)%!HVVK %!E20j$ V%r!%!` %!`2 ,$V%r! E24}%r! $b$(V  %r! E2V  %!E20$V6 %!E203$V6 } %!E20V4v %!E201V4Q  $A`V=? %!E201 %!E202:V= %T! }0%! % $)`% $+`2% $*`2% $-`2% $0`2% $A`2%  %r! %r)(0 $)br $)`~ $+` $*}` $-` $A` $0`2%) UVVAI D%f%f!%T!DD)%T) 8V 8 VGWV}SWV    = %!H@ %f%f!%T!DD)%T) Vl h%f%f!%T!DD)%T)e%!⣐lV }%!E20%!E202G  0=%CWE%FWO%!E22~N%r!E2ysVwV|%r}! $`%r!E24VV $B`V=%!E20%!E202:V= %T! %} $,`(.% $.`.(h0 A%! `L^`^SM2^A% $,`% $.`2% $/`2% $B`2% (%r!} %r)%T! e0 $/`$B`2 42 $,`$.`$/`$B`2^ %r!E24 %r!%!`%}!`2B%r!E24@y B2%r!%!`0%r!B2%!`02%!`r=W W$ W W%!`=W%r%!) <2%r}!?20?2%r!<202 ?2Ģ=WCW(%r!(%r!E24=W( %r!(%r)22%r!} j2%r!E209%r! WEW%r!  ` $`2 `!%!b0 $`2bb0$( ` b}WW $`W %r)&% $7`% $3`2% %@y(%r! %r)$7`[%r%!)$}3`%r! $bu$(%r!!E24z$V%r%!)LLVULGLGLTHLGLILILXKLhKLKLKLKLLLLL1MLbMLMLNLsOLOL7PLJQL@}QL6RL+R $}(  % b8< 32(b<8E24 ! ! bb0&$y$y7b=7`O4bM6b[6$P`4o6$F`夿44}`04 b4b4!`!`0444bȤu ! ! b $( R$y}DyD,RESET D,REWRITE 2D,OPEN 2D,CREATE 2`0LD,EOF D,EOLN }2`0% bVV% bb0$~(% `($y/`F8%r!,E24D%r!%!E2,%!`0$VD%r!?}2,<20/%r!(CW%r!,E24-*D%r!%!`,B204Dd% bV8d32(. b.$V` $Rb00$g(b} $Fb8W! , `L%!`0V`!b!!VV.$Pb.$Fb0U,b,b0S, NN}  bHSN `JN!`>,"48% 46!< H% 4HSbSd4dbp*% b`2% } `b2$~(% $b((`%!d%b 40%b PP(PP! )`%!V$WD,LENGT}H `0VW%r)  ! (!8 dDͤBBT2%b!WBBBBB%r%!)B}%r%!)B%r%!)BCWBFWBBB$ XW%r%!)Bt$XW%r%!)BkBiBBV%r%!)B6""}''BBBBB,99BBBBB>CHHBBBBBBMBBBBZgt}BBBBBBBBBBBGLLWLWLW}LWLWLXL/XLCXLlXLXLXLYLYLGYLYLZL4[LX[L[L[L[L \L\L\L~]L]L]L]L^L^L _L_LY_Li_Ly_L_L_L)`L:`LO`Ll`L`LaLYaLa}aLlaLaLaLaLbLbL)bL4bL?bLJbLqbLbLbLcLRcLmcLxcLcL dLdLdL'dL2dL%T!)  b;! %t@%t@ $0$0@(%t@$0(!  %h!b)%h!!%}h!!)%h%h!!)%T!8)    `R,; ; ; ;%%⤶dLPᤱf`0w%!`}w4$f0w$P@%h %!b    8%!`dP#d$H}P@$H%f     b-`#$l!+!~`=$%~$ %!bN %hZ }䤖%!bm$H%fz|~y   `$|!#!v  .$ B=$!;=$"4=$#-P%=}   .$(=$)=$*=$+P=   $-ि  $%%f! !)}  $%!  M$|l$ul$nl$gl$`l$Yl$Rl$Kl$$D@l B&B-B4B};B   j!!h"!:,$%!!%f!h0B!L$%!$&!!r!c$'}!P!@!!@!|.tNt! `$,Y R   !!@ 0ِ } %fh0Q!$%  @$%f! %p!!%p!)  $% $$  Z$@u$D}u$Xu$Pu$Hu%$0u$ڤu$Tuu$\nu$Lgu &-:ELSu`$`2$`2`2% $},m  ($07$27$47$67 !7 <$>Q$BQ$FQ$JQ$RQ$:Q$;Q}  '.5Q  $<@ '$Ȥ|6$ʤu6$ɤn6$ˤg6  6$ Q $̤F$ A $ͤ6$} 1 $8& 5$H$H$H$H$H$H  '.H% X$$  %!`}HpK%!`+ K%!b>H`KH܁ "H܀p H܁_[ H܁JF%r!!A }E$-)X$"X$(X$(X$ X$X !(/:X$  $`$N+$} 6$ 6%6%t%T!@%t%T!@ @(   $b(${!$H%f!Dm?$c%f! !_)  $}>  $ /%!$H@$%!b*A%f!  %n!)$ $  %!b4%T! %f! %T)%T})%f)4  $᤬D  $0$0 $ $Ĥv $Ҥk $ڤ`  d%f0$ܤH}D&$Ф=<  d%f0$ݤ!&$Ѥ    $`$Ӥ"$Ԥ$H@      }$`$դ$$֤$H@㤯⤫᤼  @b-Kb$K$פmlhK 1  $}ؤIHD $2 K$0$)$U\$ޤ$DK$٤$ޤ$ 򐆴D }%6=     $ } $r $g }$\ R $"%@@)%f%);)%T)%h)$ %!$$ c$T } %f$%!H)   $b)!$H%!@@$%%f! !) %l!$ %j!$ o $} dLLeLeLeLeLeLeLeLeLeLeLeLeLeLeLfL fLfLfLfL%f VV $ V $V $V  }              LL1f (&% $b(L}LOf VV(<%r!%!E24($($W(&% $ `NWV(&RVVLLf "VVV(}<W%r! %r!bN%r! d%r!%!`2N$( ( % $ b% $ b0 Q2E24~$(   b 40!}j!`$( 4 ! d'))%T!)` )% ` ( 4h(&W% $` (T% $  }`,V(&W% $`8((Vb!   ! )  `T! 1W!dV z }!4W!  `zVVVVLLwh (VVV<%r!%!E24,$($W(&WVL }Lh VV(&% $b(<%r!%!E246$($WLLi % %! %%!)H%b%!! %b%! }%b%!!) V V(32(8( h%!E22%!E22$(!%!b$(<%r!E24$(%  }(<%r!E24$(!!!IWV!!!LW(&WVLLj  %! (32(8 $}b5$( % M%! %%!)l%b%!! %b%!)%!%!V%%!)%!$d$(%%!) %%!})%%!!)%%!(%%!)% b(&%)LLk  (%!m%,# %}@y32by!%!bd%!!  d+W%WTae%f! !V)(LLkLk $( 32 $Fb }$Vb0 $Rb0($g( (%f!`G(<(U8  4 d!!@V $Fb `}!!@V! % $b$g((<%r!!dԤ ve\%r!%!`%!`0$V%r%!)% ! `}! 92RW%r!E24|B2%r!%!`0E V\|<2%r!?20yCW%r!(%r!E24o%r!(|x $d} `$l(B2 V\!V7W!V\ $F`K `$(%!  % `%!}!`=% -!!V;!!VI%$h(\!!@VLLmLdn  ,0123456789ABCDEF$}@$0$P@ (@$0$X@ ($@$0$P@ (@$0$X@ ( %!%,# %@y32}bR bE$(R(%f!)HHH܉݉߉ 5zމ߉hhh(`jjHމ nh*.߉މ`*LnHމ nh*.}މ`܉݉߉މ`މ.߉L8o n` n` n` n` n` n` n n}`ʠΪȱ΅φΥC5 Ϊȱ΅LoΪȱ ΅Lo} ʝʘΠХȑ`LL7p %,(%.)%.)%2)%*)%&%4)$%&!)% ,K:)$($()}((( @) @$ (% ,E:)($()((( @) @$ (sat-|LLp  }  LLqLUq    $P %@$ ({$h1x5x y)    $P %@ $!(@){} उ y)LLqLDr  x8`8 (#(((()) ) `u42Uxcu_cᤜ y}`(()b)) !tx(( * %@ $b,@ $d*x %@ & (}(@ $dK$ (@@$(($H(&$(&(@)& (( & $ (& (xz{$hxxLLr } VҼQ R TTLLsLs   ,0123456789ABCDEF$,Q,`f2$d2O fO$-8 \@ vT !}`Oຨ໹Q X  zvLLs  8`%  LLs x  @(!tLLs "}$sLLt x  F{(W   240at(!tW$xW?LLdt  x  #}d$!t @ 4 @ !tLLt  x() $(Ux U @ $` 2B(  2U$} @$ (LLt  x)XxLLuLyu  ,CON: $(Z,LST:=,P:$(Z,KBD:,TRM:2%}Z( 0 $ $~ + $d f2"F  . .C@  4AF+LLu  d)D)&}$ ssLLu  at(LLv V ҼQ@ @@ D@%y@@ y@  @(LLOv  x  )ࢇ'}{:Yz:$x:""LLv   @ ࢩvLLv    D  &$ sx  F⢛{Y(}2{Y$xY888118?ʠHLwqЊqѠiȱiH8)}Lwȱ ~yLwȑююSqЊqѠ8ҊӠѥ8Ұ*}LwH8Lw )|hʝ`LL x x y 1ࢱ{D{D{yD$xD%%*%*)LL[x+}  x y ` !  S $` $`0G{L{ 'sysxsUUUUZLLx ,} %()LLx  %(! LLx %*(LLy  %* LL+yL;yLKyL[y         -}Ħ   @ D |ʠBDȱEHȱI V45HIȑȩ.}ȩLy8 )|` |ʠ BDȱEHȱI V08 )|` |HȱhΠ/} y` |L{L{iХiѥ8ߩLziХiѥ8ߩ 0}НDѝEߝHIB VHh HL {HH8 )|HeΩh`1} | BНDѝEΝHϝI V08 )|`LL{  LL{  LL{  LL{ 2} LL{ LL{ LL{  Vʝʝ`((`*``LL4| 3}4Pl4P%b%b! )%b({ LL*!L L= ; L$L!L" L^ L L! RINWINRSTWCHRCHCHWRRLWRLRBLWBLCRLCWTSFBFUPNEWDSPINIWST  8 @@ (5} @@ ( 8  $$$$0$$0$@ $@bR%q8, External: ,6H63" @ $ `k6}D W$""@ $w  bb $P` $F`2 $V`2T $`T!bTl4G!$@)!7}! ! n b%"$ "% !$@ $ll%@@!b,@ @$8l4z%@@%8}@@!$@)%@@!'$ "%! "%!%b!}$$$$$$/$$$/%H$}0%jD$ 9}8Djh-%j0b %$D51Dfd-D%t$W0l6m}C%b!}mS}m$0Pm$0$0$ Hm$:}0P@m$0$0$ H%t$ @%t$ @ 2(%t@(%t$ @%t$ @ 2(l4mf$@}fmf}fmf$0$Pmf$P$0mf$0$H%t$ ;}@%t$ @ 2(%t$ @(%t$@%t$@ 2(Dfd-D%t$0Djh-D0%q83%q8,Lines :,6m 23%q8,<}Errors:,6md23%q8,Code :,6mf23%q8,Data :,6%b!23%q8,REPLACE D1 THEN =},63%q8,Type to continue,6%≢q83$,D:MON2$51$>0 w/[LL%L/%Lr%L%L*L'LU(L(L)L(>}L)Lp)L)Ly*LD+LP+L\+Lh+Lt+L+L+L,L,L,Ln-Lt-L-L-L-L-  @@ $@(  %&P@ $0.P ;$P ;$@P?} ;&;$0  P %&@ $0E$ T$ H T$ $H T$? $@H T"-9T%&@0@( @} $%q8d5%q8,Error # ,6%dUP%q8$2$.d5X2P b%q8$2%q8, line ,6% !23A}%q8,Last ID:,6%H63%q83%d%d!@), D:ERRORS.TXT251H8`V Fq85$ bFH$0@ F$ `B}ܨq8L$P53F`%L%q8,63%q8$ d5$~d5F`K%q83HF3H2H4r%q8,Unknown,63J0%C}q8,$Type / to continue/abort,63%≢q85$ `$`2$`%HJ0%!`%jJ0%j%#2%jD}51%jJ0&,D:MON2&51&>0%q83  %)%H6 ""\%H6$$bV$9dD$D%%!HE}$0D@)Z$  %H6""5@%H6( 8%) %, %H6 "F}"@%@%H6(' %H6%H6 222%H6 %H6%!`\$ %@G} $ `;D 'ञ22\%@ G  %H6% 8C%!)  %H6%H6%H6$+`( H} %H6 h$j0(%T@(%%%%%!$@)%%%%% 4(%I}A7R*{?Zbbs/ %H6 ""/%@%H6(%`) %HJ}6% 8% $>`-% % !@)% $>b% $$`H$%`T$'``$:`o`z$7`%K}@%H6(4  */  5/ " @/ " K/ " V/  %(%j.ZY$Q$  L}A@ 7-+* %!$    $ $0$0   $V`% %% %!M}`02$ $V`KC! kS!D$H % 4k$@ $0q$0i$ @ $ `D CN}@ / $Vb@$    `!%t@ ~ᤷ@%t@ (@%t@@ (O}8ᤐ`a% 4a$@ 8@ @ @ @ Dd   $!%!D   %q8,Version 2.0,P} Phase ,623%(    %&!)%&%&!@)$%&!)LL.LN.    $P %@ Q}$&(㢞;$h5$898 8)8    $P %@  88$%(㢞;$hF8J8HHHR}܉݉߉ 9މ߉hhh(`jjHމ .h*.߉މ`*L.Hމ .h*.߉މ`܉݉߉މ`މS}.߉L/ .` .` .` .` .` .` . .`LLz/ %,(%.)%.)%2)%*)T}%&%4)$%&!)% ,K:)$($()((( @) @$ (% ,E:)($()((U}( @) @$ (n34;LLA0    LLZ0      q8))7⢫8)LL0    V}  q8))7⢫8)LL0L0    $P %@$ (㢞;$h1858ࢫ8)    $P %@W} $!(@)㢞; उࢫ8)LL;1L1  q88`8 (#(((()) ) `ᢸ442U8X}cᢵ4_cᤜ8`(()b)) !=47(( * %@ $b,@ $d*8Y} %@ & ((@ $dK$ (@@$(($H(&$(&(@)& (( & $ (& (8zᢞ;$hZ}88LL2 VҼQ R TTLL2L)3   ,0123456789ABCDEF$,Q,`f2$d2O fO$-[}8 \@ 5T `Oຨ໹Q X  z,6LLI3  8`%  LLq3 8  @\}(!4LL3 $n3LL3 8  F;(W   2404(!=4W$8W?L]}L4  8  d$!=4 @ 4 @ !=4LL@4  q8() $(U7 U @ $` 2^}B(  2U @$ (LL4  q8)7LL4L5  ,CON: $(Z,LST:=,P:$(Z_},KBD:,TRM:2Z( 0 $ $~ + $d f2"F  . .C@  4AF+LLg5  d`})D)$ n3n3LL5  4(LL5 V ҼQ@ @@ D@8@@ 8@  @(LL5 a} 8  )&;:9:$8:""LL/6   @ H6LLK6    D  &$ n3b}8  F:;Y:Y$8Y888118?ʠHL7qЊqѠiȱic}H8L7ȱ 9L7ȑююSqЊqѠ8ҊӠd}ѥ8ҰӥL7H8L7 ;hʝ`LL7 8 8 1P;Da;D9D$8D%%*e}%*)LL7  8 8 ` !  S $` $`0G;Lr; 's9s8sUUf}UUZLLt8  %()LL8  %(! LL8 %*(LL8  %* LL8L8L8L8     g}     Ħ   @ D ;ʠBDȱEHȱI V45HIh}ȩȩL~98 ;` ;ʠ BDȱEHȱI V08 ;` ;Hi}ȱhΠȩ 9` ;L:L:iХiѥ8ߩLk:iХij}8ߩ ΠНDѝEߝHIB VHh HL:HH8 ;HeΩh`k} ; BНDѝEΝHϝI V08 ;`LL);  LL=;  LLSl};  LLd;  LLu; LL; LL;  Vʝʝ`((`*``Lm}L; INRSTWCHRCHCHWRRLWRLRBLWBLCRLCWTSFBFUPNEWDSPINIWST  8 @@ (1(* DECLARATIONS FOR BIT MANIPULATION *)(* BUILT-IN ROUTINES *)predefinedPROCEDURE CLRBIT(VAL:ANYTYPE; o} BIT:INTEGER);predefinedPROCEDURE SETBIT(VAL:ANYTYPE; BIT:INTEGER);predefinedFUNCTION TSp}TBIT(VAL:ANYTYPE; BIT:INTEGER):BOOLEAN;predefinedFUNCTION SHL (VAL:ANYTYPE; NUM:INTEGq}ER):INTEGER;predefinedFUNCTION SHR (VAL:ANYTYPE; NUM:INTEGER):INTEGER;(*$L+*)RBIT(VAL:ANYTYPE; h(* DECLARATIONS FOR HEAP PROCS *)predefinedFUNCTION MEMAVAIL:INTEGER;predefinedFUNCTION MAXAVAIL:INTEGER;(*$L+*) z(*$L-*)PREDEFINED PROCEDURE GET(VAR F:ANYFILE);PREDEFINED PROCEDURE PUT(VAR F:ANYFILE);PREDEFINED FUNCTION EOLN(VAR F:TE"t}XT):BOOLEAN;PREDEFINED FUNCTION EOF(VAR F:TEXT):BOOLEAN;PREDEFINED FUNCTION SIN(R:REAL):REAL;PREDEFINED FUNCTION COS(R:"u}REAL):REAL;PREDEFINED FUNCTION EXP(R:REAL):REAL;PREDEFINED FUNCTION LN(R:REAL):REAL;PREDEFINED FUNCTION ARCTAN(R:REAL):"v}REAL;PREDEFINED FUNCTION SQRT(R:REAL):REAL;PREDEFINED FUNCTION TRUNC(R:REAL):INTEGER;PREDEFINED FUNCTION ROUND(R:REAL):"w}INTEGER;PREDEFINED PROCEDURE PAGE(VAR F:TEXT);PREDEFINED PROCEDURE RESET(VAR F:ANYFILE);PREDEFINED PROCEDURE REWRITE(VAR F"x}:ANYFILE);(*$L+*)OCEDURE GET(VAR F:ANYFILE);PREDEFINED PROCEDURE PUT(VAR F:ANYFILE);PREDEFINED FUNCTION EOLN(VAR F:TE (* PREDEFINED PROCEDURES FOR ISO *)(* COMPATIBILITY, WITHOUT INCLUDING *)(* FLOATING POINT ROUTINES *)predefinedPROCEDUR&z}E GET(VAR F:ANYFILE);predefinedPROCEDURE PUT(VAR F:ANYFILE);predefinedFUNCTION EOLN(VAR F:TEXT):BOOLEAN;predefinedF&{}UNCTION EOF(VAR F:TEXT):BOOLEAN;predefinedPROCEDURE PAGE(VAR F:TEXT);predefinedPROCEDURE RESET(VAR F:ANYFILE);predef&|}inedPROCEDURE REWRITE(VAR F:ANYFILE);(*$L+*)TY, WITHOUT INCLUDING *)(* FLOATING POINT ROUTINES *)predefinedPROCEDUR$201 Error in simple type02 Identifier expected03 'PROGRAM' expected04 ')' expected05 ':' expected06 Illegal symbol07 Err*~}or in parameter list08 'of' expected09 '(' expected10 Error in type11 '[' expected12 ']' expected13 'END' expected14 '*};' expected15 Integer expected16 '=' expected17 'BEGIN' expected18 Error in declaration part19 Error in field-list20 '.*}' expected21 '*' expected50 Error in constant51 ':=' expected52 'THEN' expected53 'UNTIL' expected54 'DO' expected55 '*}TO'/'DOWNTO' expected56 'IF' expected57 'FILE' expected58 Error in factor59 Error in variable99 MODEND expected0101 Ide*}ntifier declared twice0102 Low bound exceeds highbound0103 Identifier incorrect class0104 Identifier not declared0105 Sig*}n not allowed0106 Number expected0107 Incompatible subrange types0108 File not allowed here0109 Type must not be real011*}0 Tagfield type must be scalar or subrange0111 Incompatible with tagfield type0112 Index type must not be real0113 Index t*}ype must be scalar or subrange0114 Base type must not be real0115 Base type must be scalar or subrange0116 Error in type o*}f standard procedure parameter0117 Unsatisfied forward reference0118 Forward reference type identifier in variable declarat*}ion0119 Forward declared; repetition of parameter list not allowed0120 Function result type must be scalar, subrange or poi*}nter0121 File value parameter not allowed0122 Forward declared function; repetition of result type not allowed0123 Missing*} result type in function declaration0124 F-format for real only0125 Error in type of standard function parameter0126 Numbe*}r of parameters does not agree with declaration0127 Illegal parameter substitution0128 Result type of parameter function do*}es not agree with declaration0129 Type conflict of operands0130 Expression is not of set type0131 Tests on equality allowe*}d only0132 Strict inclusion not allowed0133 File comparison not allowed0134 Illegal type of operand(s)0135 Type of operan*}d must be Boolean0136 Set element type must be scalar or subrange0137 Set element types not compatible0138 Type of variabl*}e is not array0139 Index type is not compatible with declaration0140 Type of variable is not record0141 Type of variable m*}ust be file or pointer0142 Illegal parameter substitution0143 Illegal type of loop control variable0144 Illegal type of ex*}pression0145 Type conflict0146 Assignment of files not allowed0147 Label type incompatible with selecting expression0148 *}Subrange bounds must be scalar0149 Index type must not be integer0150 Assignment to standard function is not allowed0151 A*}ssignment to formal function is not allowed0152 No such field in this record0153 Type error in read0154 Actual parameter m*}ust be a variable0155 Control variable must neither be formal nor non local0156 Multidefined case label0157 Too many cases*} in case statement0158 Missing corresponding variant declaration0159 Real or string tagfields not allowed0160 Previous dec*}laration was not forward0161 Again forward declared0162 Parameter size must be constant0163 Missing variant in declaration*}0164 Substitution of standard proc/func not allowed0165 Multidefined label0166 Multideclared label0167 Undeclared label0*}168 Undefinded label0169 Error in base set0170 Value parameter expected0171 Standard file was redeclared0172 Undeclared e*}xternal file0173 Fortran procedure or function expected0174 Pascal procedure or function expected0175 Missing file "input"*} in program heading0176 Missing file "output" in program heading0183 External declaration not allowed at this nesting level*}0187 Attempt to open library unsuccessful0191 No private files0193 Not enough room for this operation0194 Comment must ap*}pear at top of program0201 Error in real constant: digit expected0202 String constant must not exceed source line0203 Inte*}ger constant exceeds range0204 8 or 9 in octal number0250 Too many nested scopes identifiers0251 Too many nested procedure*}s and/or functions0252 Too many forward references of procedure entries0253 Procedure too long0254 Too many long constants*} in this porcedure0255 Too manny errors on this source line0256 Too many external references0257 Too many externals0258 T*}oo many local files0259 Expression too complicated0300 Division by zero0301 No case provided for this value0302 Index exp*}ression out of bounds0303 Value to be assigned is out of bounds0304 Element expression out of range0397 More than 16 FOR /*} WITH statements in a single procedure0398 Implementation restriction0399 Variable dimension arrays not implemented0400 Il*}legal character in text0401 Unexpected end of input0402 Error in writing code file, not enough room0403 Error in reading i*}nclude file0404 Error in writing list file, not enough room0405 Call not allowed in separate procedure0406 Include file no*}t legal0407 **** SYMBOL TABLE OVERFLOW ****0497 Error in closing code file0498 Implementation restriction0499 Implementat*}ion restriction0500 Non-ISO extension being used!0597 Implementation restriction0598 Implementation restriction0599 Imple*}mentation restrictione02 Identifier expected03 'PROGRAM' expected04 ')' expected05 ':' expected06 Illegal symbol07 Err((* REAL NUMBER AND TRANCENDENTAL *)(* FUNCTION DECLARATIONS *)predefinedFUNCTION SIN(R:REAL):REAL;predefinedFU.}NCTION COS(R:REAL):REAL;predefinedFUNCTION ARCTAN(R:REAL):REAL;predefinedFUNCTION EXP(R:REAL):REAL;predefinedFUNCTIO.}N LN(R:REAL):REAL;predefinedFUNCTION SQRT(R:REAL):REAL;predefinedFUNCTION TRUNC(R:REAL):INTEGER;predefinedFUNCTION R.}OUND(R:REAL):INTEGER;(*$L+*)*)(* FUNCTION DECLARATIONS *)predefinedFUNCTION SIN(R:REAL):REAL;predefinedFU,!(* GRAPHICS AND SOUND DEFINITIONS *)TYPE SCRNTYPE = (SPLIT_SCREEN,FULL_SCREEN); CLEAR_TYPE = (CLEAR_SCREEN, 2} DO_NOT_CLEAR_SCREEN);VAR SCRNFILE : external TEXT; GRRESULT : external INTEGER; externalPROCEDURE INITGRA2}PHICS(MAX_MODE:INTEGER);externalPROCEDURE GRAPHICS(MODE:INTEGER; SCREEN:SCRN_TYPE; CLEA2}R:CLEAR_TYPE);externalPROCEDURE TEXTMODE;externalPROCEDURE SETCOLOR(REGISTER, HUE, 2} LUMINANCE:INTEGER);externalPROCEDURE COLOR(COLOR_VALUE:INTEGER);externalPROCEDURE PLOT(X,Y:INTEGER);externalFUNCTIO2}