@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` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} HE |||||DOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 138ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4auT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4au00L2Li0L0L0L0L1LP1L^1L1L1L1L1L1 3تʎL08L0إ M0ԆLk4L0 HȱHL0JH J3lhhh hhBhV}hDEhhHIhhJhhK VIi``hhh) BHI V0`L0hhhhh) BHIW}L0hh01hhh L 1`hhhhhhhL41`hhhHlhhhhhhhX} ``Ls1hhh`hhhhh`hhh𪈱`hhhȱhh`Y}ҩhhh) 12hhhh) hh)`dbc@2L+2CL 3@Щ2ѭ@ҭ@LP2@ J2M2l  t2عuZ}2l`'0;3a3r3333333334474O4k444445 5 535Z5j555555$646C6L6h6{6666666664dbc 1 run-tim[}e-error ""Type a 23key to return to DOS.2 BҝD2E8HI Vl J3؅ԘLP2ЅȱЅ٥i\}А` J3؅ȱ؅LP2 J3e؅ԥeمLP2 J3ԑLP2 J3ԑȥՑLP2 3ԑإ8ҥLP2҅ȱ҅` 3ԑȥՑL]}3ԅԄLP2ԪȱԅՆL34P2BL 3 J3؅ԥمLP2 4ԑȥՑLP2iҥi `AL 3Ա҅ԊȦձ҅ՊLP2^} 4 J3Рȥёҥ؅ХمLP2҅ȱ҅ i2إ8؅ҥLP2б҅ЊȦѱ҅ъLP2 J3؅ХمLP2L4eЅАL_}P2 J3L4 J3e؅ҥ45eمAL 3LP2&LP2eԅȱeՅL38ԅȱՅL3ԍՍҍ`}ҍ 7ԭL3 z5ԭL3 z5ԭL3ҍȱҍDL 3դLB7ԅȱՅL3EԅȱEՅL3%a}ԅȱ%ՅL3҅ȱ҅Ff56L3ȱ҅L3҅ȱ҅&L3Ա҅L38ԅԩՅLP2Eԅԩb}EՅLP2LP2LP28ԅȱՅ` W6ʆL3 W6ԅL3 W60 W60 W60åп W6c}0ՐнԐՐЪԐ67Ր ԐLq6Ր԰L6&&& L<7d} `ɀE ɀf8ਊ 7$ 8$P 8`E0 IIL7e}8L7Ff e78eFfff$ 8`2L0JH J3lhhh hhBhb@@dbc @Ġ aA ܁ zA ܁,@+@ L@P A ܁ Z   Z'i@   q$|@ g} d%  l%@ A ҁ L A ܁    P ͚ ͚ &@ A ܁ Z h}@ "AA l$.A   A    ZA d$ZA   A    Ћ }Deep Blue C i} linker v1.2(C) 1982 John Howard PalevichLink program, Duplicate file or Quit'' is not a valid command.file name?LNKC j}CCҁт  ҁ L    @ (\ L $E $?B\Y k}  "#       ;$ ˉ     l}  ҂уt   pq r r    *Ws  "# &.Ё"ЁTs.D.D. m}D` Ё ЁTh.h| "Ё"ЁT.Ё     Ё T. n}Ё   ҃ф   Ё  T.f      ')Fy  o} ' ЁU   Ё TF.s.s@      '   A p}    i  ҄хy q   s $ f  # f  y    " q} (: ω TQ TlC  %l q ʁ        (  r}  %څ  #   ҅ц H ʁ    - ҁ ҁ΁"΁΁"΁ 4 s}     Ɓ $NЁȁȁ ȁ Ɓ   Ɓ#Ɓ" e  "# ÆpЁȁ Ɓ t}  Æ   Æ ́ =҆ч  "#  ц        e Ɓ u}Ё"ЁƁ"Ɓ )56   r   pno p p    *q v}  "# &q  q.Ӈ "#  ҇ш.ۇ        . w}I       Q.Qb j.jˈ      x} '&   y  '  .ӈ%҈щ       y} #" ( "#  .-eЁ     Ё 6r.r.r   z}  ͚  ? lj  %lj L oCCCToo҉Y many globalsbad byte code.bad CCC {} fileCCC file too largecan't read file.CCC fileerror [%s]%s:%dbad op codebad CCC codeZY |} & "t f   $ A     ) q i    q i     }}  ܁  &(  A        Zϋ&g   ~}   f   $  "%      $never defined:Ћό } ܁ e Z  r ʖ & 0      A (#     )d ; ܁  } % Q     H     \ ܁ e Z  w Ќύ }&     A       &@   H ܁ }   A (#     ) ܁  % Ǝ ю    H     }Ѝώ A      & ێ  Insert source disk & type RETURNCan't readFile too big, }use DOSread errorInsert destination disk & type RETURNCan't writewrite errorDuplicated successfullyFile too big. Sorry }Read errorЎ.OBJ fileWrite error.OBJ file ā΁   %    .%F } "      ē      Ё q   y   A (#  f   }i    r ʖ & ̓    w ʖ́ && ד  ́   qy y }΁ $   : r ʖʁ &v  ʁ : i   . ͚ & /   }  /    'ā"āy""y## ܐ y ā y##y""##  ā ##/ } ʁ 2 ΁Ú   y q   5  y   @   L    ^  }  p ܁Z΁ȑ́  } ܁  r ʖ &   ́  Ё  ȁ } āƁ  &Y  ́  Æ Æ ц      q i     }  qy y΁ $    r ʖʁ &  ʁ  i   . ͚ & }    ˔ Cʁ ́ L   Д 66ā"ā y ā y ā  Ք ʁ } ́ ΁ $ ܁.COM%s->%scan't findcan't write can't findunknown file type.OBJ.CC }Cunknown file typeStatistics:%dSymbols%dLabels%dGlobalsCode starts $%xStack starts $%xlinking. . .pass 2Ca }n't re-readmainNo main()dbccan't re-open fileunknown file type.OBJ.CCCunknown file typeno errors  } 9 $  $  $3 "69  +$  -$z -$m    " }  0)  9'•    0  "      $ } $  $ "ޕ – 0)  9'K  0 a)  f's  W } A)  F'  7–     "   & @  }   $ "ޖ $&     К  r$V  w$m  } a$              &   }     К            00 @ = }   x     &   H     Ę  К }       0    N  "#  7 # } &d  $  $   :%   :%   :%     }      . ͚ &3   .      a& % V } z( %`i  A& %  Z( %  00       }00 0u ͚000!0D:         }              К   }  % ͚ &  Ę (4             }    " #   -$|   0)  9'    0 }D        d$    s$    > c$B }    x$d   Þ  =   " #  }  ' &  "# -   E     (%  "#  0 }      $c  "# 0    (      Ę } &        )r      (a } '<  "#  0Y  "#  a     $  "# 0  }   (      Ę &    à (    }  = &=     К (o      Ę & }     #" (   = bhhhhhhhchehdfgfg`L$mc }ifgfd˭geé`00L 2Li0L0L0L0L1LP1L^1L1L1L1L1L1 3تʎL08L0إ M0ԆLa4 }L0 HȱHL0JH @3lhhh hhBhhDEhhHIhhJhhK VIi``hhh) Bg}@@dbce1ef f # f # f / f  'Ue "# [9e  f / f # }    $e f N  ݳ  ݳ       .     } g ݳ # g #fg #  r  d &=f g / #+e w  d &gf g / #}+e&g [ [ +edf d}Deep Blue C Compiler version 1.2(C)1982 John Howard PalevichFile to }compile (or RETURN to exit)C.CCCg%g->Couldn't open:Couldn't open:&g%h @S @ ,  S S[T d  }dddddd`7cQ d  " d d d d~dghhid $hk Tk  _ h [k }  _g   Ih `k  _   Iqxh dk  _.h   I&h%iqxh ik  _Ph   Iq}xh mk $bhixh vk $thxhlg` $hd ` ?  `&h ]T  "# } ph @dd S*id  % d  %xid  d   &i%jd   d}  $ d  $oi    d dhdi ~k d $i k / d}i k Q d k $i j d $j j k Q 9c d"d#&j%kj $Bj k }jj >$   "$  $pjjj d d"d# j d d  d k N  k # d #}  d r  d &j d k Qdjd [ d  "k  % &k l }(Ck #" ['k ( 8externcharintcharint#include#definemissing closing bracketNo errors.Can't nest} include files<missing quote or <missing quote or >Hincluding Open failure on include file l m t $!l }  $Gl t     *wl u      %u {    g~} $l 'u Q  1|m  %l {m  $m {m  m n 9m }    |   1|     # Gu $ $qm Iu   @ ,  S d \}u $ $6n g~m }|m {m d } d dm ^u g{ 9c d tu - n o$)}n vu $ $)n xu {3n6nm d  ddn u  _nn   !oqn u  _n   !oq}n u nEn u  _n  $n u     8qop %o % d }@ o p ,  S  pd $Eo u $[o co   g~ $|o{ u $}oe ]%o{ooo  Op  }|Gp            }  p q       Op u d d{ep u $ $}p u }0ok $ dpq u  _p  fqq u  _p  fqq u $prq u  _}qRr dq u q r _'q w r dq u  _Gq d r dq u  _cqv dq v  _}qsq dq v  _q tq dq v  _qHtq dq v  _qx dq v $q}q]q dd v $ $ r sr v d"d 2v $ $JrdCr 5v JrGrprd#d S} d ~ p %d S Gv  _ $r  ~ ԧ p %d} S    S  s t d  ~  ~   k   }w$ws  psp Lv  _ $s Rv   q  ԧ    S}  %d{ $s] % t u  $$t  %  ԧ S [}T$bt cv  [T  S-t  tt  pt S*t tv   % } t  ԧt  ԧ]must be consta u vntnegative size illegal]illegal function or declaration}(missing open paren)illegal argument name),expected commacharintwrong number argsasmNeeded address*[Expecting a}rguement name,expected commacharint$(ifwhiledoswitchreturnbre vvakcontinuefor;;missing semicolon$)missing }final endelsewhiledo with no whileNo active whilesNo active whilesvw      }S  d  ~   k Dz {] Fz { Hz { Kz  _ $ %=w Sz  _} $ %Hw Xz  ~dw  w  $ %w ' wx$ %w uz    +z } z  _ % w z  _ %wQw ~ ԧ p z  _ $ %Ex z  _ }$ %Ex z $ $ %Kxw  ԧ  % wx %}xHw xxy ԧ   }   S  %d   S  d  ~  ~  ~}  ~ k z { z $ $Ty]q   z $ $y]q  yz   ԧ}   z $ $y] z {  ԧ  p  ԧ    S }  %d z $ $Cz z ()$(defaultcase'case' or 'default' expectedconstant neededzzdefaultc}asedefaultcase$)(;;)):Missing colonz{  $zb 9c d - $:{{z:{C } ${ob   $ $7{:{z { Z{  xc{ e { {.}s{{  ${ ${{.{ 9c{| d -  $ g{  / } $ $'|  /   @ S%v|   {e|   <| } @ ,   S%|   {| |}  |  1|d|d}S @ , -} Ё   Sd "#  "# >} }d  d  d   d }  d   S Sd }|d}dS}~ @  -}   Sd} "#  "# ~}d  d  d  d   d   S Sd} ~ $~   ~  "# .~   ~  d"d a)  }z'  A)  Z'  _$ 0)  9' ~      g  "}# B[T S d $   &[T""[T##   "# [T }[T[T S$  [T  9c d $ - 9c d  $A P 9c d"d# }d 9c d  $d{ \e. $d . d $ǀ dd}р d $ dQ   (7 $ d )!7 9c d"d#   9c d  } 'n [dh dn dd~ d),);illegal symbol namealready definedmissing bra0cket}must be lvalueglobal symbol table overflowlocal symbol table overflowtoo many active whilesno active whiles10 d d }d &Wd"d# d $t ddƄ $  $Ă 1 $  $}.Ä "$0 1. "%! $  ! \$. 1. 1݂. " 1Ä10} '$ ' 1. '% $k   \$. 1. 1H. ' 1Ä /$   *}$ *$   /$ $ $dÄ   J }&C10  "# .      `  "# 1h    "}# 1Ä. 1} 1d ) $  d 9c d ݳ d  g~ $&{Q} 10  "# G. $  $e.G. te7c  ) 2  ` 7c }7c  &7c"7c#  7c&i `    {  `       }  `    10     `      ƅ  d }  9}c #   d& 9c   $Ά  ֆ  "      # d}"d#  10   s     %h  "#8  }  &     %   $LJ   $݇ "#    }      910c d  -Xd  d   9c d  } {d  d e    $؈\dՈ؈ $. $}.missing quotemissing apostropheline too long1Bmacro table fullCB Y  s}  3 $  s   5 $̉ d   UN 8 $ q   U}N ; $ ~   UN > $,   UN A $L  CB UN D $l ٨  } UN H $ ̨   UN L $   UN O $̊   UN R $  } UN U $F $(|    b 3  p CBN  } $o(|  b b   d$  q$̋  Ÿ̋[ } p  h W $ $    ~ ] ~+zCB ԧ } ]     9c d Y - $    ~bY } \ $   bY ь    ֍ 9c d CB _} - $[  k  ~bY  b $ƍ  ֍ bY }     |% 9c d e - 9c d h -(  8   }9c CBd k - $ 9c d n - $ q $b    8}  _ ^% 9c d s -    [ 9c d v - $Q y $Gb _}@ CBN X   & &% 9c d { -   } " 9c d ~ - $ 9c d - $ $b &   }   9c CBd - $ 9c d - $w     $b }   $ߐb ؐ     9c d - $ 9c  }d - $ 9c d -CB $ 9c d - $n  9c d - 9c d -  }   / $b Ց     e1, $Gb  }     @KCB, 9c d - 9c d - $eb   }    X$, 9c d - 9c d - $%eb      }  r>, ,+=-=*=/=%=C<<=>>=&=^=|==?||||&&&&|||=|||=|^=^=^&=&&&=&}==!===!=<><=>=>><<<=>=<<<>>>   9c d 4 - $ 9c d 7 - $ 9c }d : - 9c d > -)  9   B $hb a ̨ E $b } ٨ 9  - +%  -%֔  9c d H - 9c d K }-    ) N $b -=   ŸQ[  Ÿmo[od}  & P $b -   Ÿ[  Ÿӕo[oq  $ }  $bY  ̨  &   P *%  /%  %%o}  9c d R - 9c d U - 9c d X -    L [ $b -} ~I ] $b P I _ $Bb P; I  a $}˗  P $(|   b   $ p 0 d $@}  P $(|    b   $- p 0 g $w  }P i  0 i $  P   0 l $  P } bY   0 n $r  P     J   Y}     0 p $  P $ r       }    Y ͩ    0   $ $>(| }  Pb   $t p  $ 0 $( $Ě}(|   ֚b   $ p  $ 0 >>}<<<<=>>=>><<+=-=+-*=/=%=*/%++---$-!*&illegal address++--  ]   } [$  ($  ֥ $ $ إ g{ { B  $  B   }%B  b] {  $h[d        !} $ $ʜ z  %  z z    Ǜ "}$/   $UY ͩ      $   $#}    {  g~r  }|w         $>$}       $p    w   1|/ %} %/       %  $    Y ͩ &}          |          '}    Y g{   %ٟ        (}   o  o              $)}  Ǧ     %   $ߠ  J  0  {]*}  {  1Y  { 'TY  { wY  i{+}         $¡   $ߡ     $,}  0$A.  x$  X$9 .A    y    -} 0 $ A)  F'  7آ a)  f'բ  Wآ   .} eA &         $ $L  . '%  /}%     QL     d $ $   ` "%7 $ޣ0}7` ) !  d $ $. $  ]T `"`# . Qã. ]T `"`#  1} \%n  b$ ~ʥ "$ "ʥ '$ 'ʥ f$Ӥ }2} n$ ʥ g$ ʥ t$ ʥ \$/ \ʥ 0)  7'  3} 0.  '  0&  7(7    0. "` ʥ 4}.[can't subscript]can't subscript]((,)invalid expression()+-'string space exhausted87 p5}   %   $x  p  p ͩ  p      6}d   %   $  p  p  ͩ $#  p+  p1 877}$G  pO p p p p=  p  p ͩ  d  d  p  p8}  d  d1  p ܩ p ܩ  p ܩ . p  ܩ  9}d87 %S  p    p  p1  p1  p1  p1  p1  :}p1  p1  p1  p1  p1 p ! p " p # p $ p1 % p1 &;} p1 ' p871 ( p1 ) p1 * p1 + p1 , p1 - p1 p  p<}   p p  p  ܩ p  p   p   p=}  p  87 p p  p   p p  p   p >} p  p   p   p  p   p  "# p ?} p @  'd 8Hdd dIH  b K{l  % $ @}  g~ ${  1|  $  %   %{ ' $)  lA}  )       | KIH[ ) $ $_U  {{B} + $   g~ ${ }|ˬ { - $  l    $ C}     I $  %A I I0   d  } d   %D}d{u / $ $o @dd S*!d  $d  %׭ ߭ d  $E}   d d d*[,*[,10  y $  $  $sF} "vy:  +$  -$ -$    "  0)  9'   G} 0  "®     ] 10$  $  $W "Z] H} 0)  9'  0ޯ a)  f'  Wޯ A)  F'ۯ  7ޯI}     "]   &R @ 10  " $HR " J} $f       r$ ̰ w$ ̰ a$İ ̰  K}      K    &" [   10      L}K [     K 00  }   x   K &ѱM}   H (      @    10 KG N}0      "#  w_ # &  $  $  O} :%   :%   :%' . ݳ   ݳ  ݳ    10  .P}   &s   .     ݳ a& %  z( %  A& Q}% ɳ Z( %ӳܳ  00      00 0u  000!0D:R}00L 2Li0L0L0L0L1LP1L^1L1L1L1L1L1 3تʎL08L0إ M0ԆLa4L0 HȱHL0JH @3lhhh hhBhS}hDEhhHIhhJhhK VIi``hhh) BHI V0`L0hhhhh) BHIT}L0hh01hhh L 1`hhhhhhhL41`hhhHlhhhhhhhU} ``Ls1hhh`hhhhh`hhh𪈱`hhhȱhh`hhh)V} hhhh) 12 hh)`dbc@2L!2CL36Щ2ѭ@ҭ@LF2@ @2C2l  j2عk2lW}`'013W3h3{3333333334-4E4a44444455)5P5`5555556*696B6^6q6666666664dbc 1 run-time-error "X}"Type a key to ret23urn to DOS.2 BȝD2E8HI Vl @3؅ԘLF2ЅȱЅ٥iА` @3Y}؅ȱ؅LF2 @3e؅ԥeمLF2 @3ԑLF2 @3ԑȥՑLF2 3ԑإ8ҥLF2҅ȱ҅` 3ԑȥՑL3ԅԄLZ}F2ԪȱԅՆLF2BL3 @334؅ԥمLF2 4ԑȥՑLF2iҥi `AL3Ա҅ԊȦձ҅ՊLF2 4 @3Р[}ȥёҥ؅ХمLF2҅ȱ҅ _2إ8؅ҥLF2б҅ЊȦѱ҅ъLF2 @3؅ХمLF2L4eЅАLF2 @3\}L4 @3e؅ҥeم45AL3LF2&LF2eԅȱeՅL38ԅȱՅL3ԍՍҍȱҍ 7]}ԭL3 p5ԭL3 p5ԭL3ҍȱҍDL3դL87ԅȱՅL3EԅȱEՅL3%ԅȱ%ՅL^}3҅ȱ҅FfL356ȱ҅L3҅ȱ҅&L3Ա҅L38ԅԩՅLF2EԅԩEՅLF2_}LF2LF28ԅȱՅ` M6ʆL3 M6ԅL3 M60 M60 M60åп M60`}нԐՐЪԐПՐ67 ԐLg6Ր԰Lz6&&& L27 a}`ɀE ɀf8ਊ 7$ 8$P 8`E0 IIL7b}8L7Ff eeF77fff$ 8` 2 "# [9e  f / f # W` 2ebef }  f T f T f Q f  ']e "# Ae  f Q  ' '  ' $ ' ' '' %.r  'Ie} .w  ' .q   )  ' A 'If}'  $ b ' ' q '  r Ig}' & s   '   ' ) ' Iq},8B'DOS SYSB*+DUP SYSBUDBC OBJBWfCLINK COMBCC COMBrPMG C B PMG CCCBGRAPHICSC B GRAPHICSCCCB"AIO C BAIO CCCB pX C B BOUNCE CCCB2BOUNCE COMB"MEDITC ECFB .BOUNCE C CLINKL C B>X LNKB dX CCCB0'X COMBPRINTF C BPRINTF CCCBBOUNCE LNKxCLINK3 C CLINK2 C CLINK C ' ''x  $ 's 's 'J!}#define RAMTOP 0x6a#define PCOLR0 0x2c0#define SDMCTL 0x22f#define GRACTL 0xd01d#define CHBAS 0x2f4#define PMBASE 0xd407s}#define SIZEP0 0xd008#define HPOSP0 0xd000#define P0PF 0xd004#define P0PL 0xd00c#define HITCLR 0xd01e#define OCSET 0xe0t}00#define GRAFP0 0xd00d#define RANDOM 0xd20achar *playbase,*charbase,playsize;/* initialize players */pmcinit()$(u}int i;charbase=(peek(RAMTOP)-12)<<8;poke(RAMTOP,peek(RAMTOP)-16);graphics(0);pmgraphics(0);move(OCSET,charbase,0xv}400);poke(CHBAS,charbase>>8);poke(PMBASE,(charbase+1024)>>8);$)/* flush players */pmcflush()$(pmgraphics(0);pow}ke(CHBAS,OCSET>>8);poke(RAMTOP,peek(RAMTOP)+16);graphics(0);$)/* set up one or two line resolution * players */pmgrx}aphics(i)int i;$(int j;if(i)$(poke(SDMCTL,i==1 ? 0x3a : 0x2a);poke(GRACTL,2);playsize=(i==1 ? 8 : 7);playbay}se=charbase+(i==1? 0x800 : 0x600);for(j=0;j<4;++j)$(poke(HPOSP0+j,0);pmclear(j);$)$)else$(poke(SDMCTz}L,0x22);poke(GRACTL,0);for(j=0;j<4;++j)$(poke(HPOSP0+j,0);poke(GRAFP0+j,0);$)$)$)hitclear()$(poke(HI{}TCLR,0);$)pmcolor(n,c,i)char n,c,i;$(poke(PCOLR0+n,(c<<4)+i);$)pmwidth(n,w)char n,w;$(poke(SIZEP0+n,w);$)hit|}p2pf(f,t)char f,t;$(return (1<' j '  ' j j '  ' ' ' '  '  '  }'  '   '' '   ' j j '  ' '' } /  $ : * '   ' $  ''  $ } '   &   "   ' '   / }" '  '  & "   '   '} '  ''      ''    ''    } '  '    '  ''  '  '  }'!'  '   '"'     '#'   '  '$'}  '  '    '   '%''  '''''p}laybase'charbase'playsize'pmcinit'peek'poke'graphics'pmgraphi'move'pmcflush'pmclear'hitclear}'pmcolor'pmwidth'hitp2pf'hitp2pl 'clear!'chget"'choget#'chput$'plmove%'pladdr'  '  f/* graphics and game i/o * (C) 1982 John H. Palevich */#define RAMTOP 0x6a#define PCOLR0 0x2c0#define SDMCTL 0x22f#def}ine GRACTL 0xd01d#define CHBAS 0x2f4#define PMBASE 0xd400#define SIZEP0 0xd008#define HPOSP0 0xd000#define P0PF 0xd004#}define P0PL 0xd00c#define HITCLR 0xd01e#define OCSET 0xe000#define GRAFP0 0xd00d#define RANDOM 0xd20achar gr9color;/*} graphics(n) -- open iocb 6 for * graphics mode n */graphics(n)char n;$(close(6);return open(6,16^(12|(n&48)),n}&15,"S:");$)/* * color(a) -- set color to a. * returns junk */color(a)char a;$(gr9color=a;$)/* * drawto(x,y)} -- draw to (x,y) * returns 1 if OK, negative if off * screen */drawto(x,y)int x;char y;$(poke(763,gr9color);dp}oke(85,x);poke(84,y);return ciov(6,17,-1,-1,-1,-1);$)/* * locate(x,y) -- returns pixel at * (x,y) or negative if err}or */locate(x,y)int x;char y;$(position(x,y);return cgetc(6);$)/* * plot(x,y) -- plots a point at (x,y) * re}turns garbage */plot(x,y)int x;char y;$(poke(84,y);dpoke(85,x);return cputc(gr9color,6);$)/* * position(x,y}) -- move cursor to * (x,y) -- returns garbage */position(x,y)int x;char y;$(dpoke(85,x);poke(84,y);$)/* * s}etcolor(reg,hue,lum) * -- set color reg to hue & lum combo * returns garbage */setcolor(reg,hue,lum)int reg;char hue},lum;$(poke(708+reg,(hue<<4)+(lum & 14));$)/* * fill(x,y,c) * returns positive if successful */fill(x,y,c)int x;}char y,c;$(poke(763,gr9color);poke(765,c);dpoke(85,x);poke(84,y);return ciov(6,18,-1,-1,-1,-1);$)/* * paddl}e(n) * returns position of paddle n */paddle(n)char n;$(return peek(624+(n&7));$)/* * ptrig(n) * return paddle }trigger n */ptrig(n)char n;$(return peek(636+(n&7));$)/* * stick(n) * return stick n */stick(n)char n;$(}return peek(632+(n&3));$)/* * strig(n) * return joystick trigger n */strig(n)char n;$(return peek(644+(n&3));$)}/* * vstick(n) -- -1 if up, +1 if dn */vstick(n)char n;$(switch(stick(n)&3)$(case 1: return 1;case 2: return} -1;default: return 0;$)$)/* * hstick(n) -- +1 if right, -1 if left */hstick(n)char n;$(switch(stick(n)&0xc)}$(case 4: return 1;case 8: return -1;default: return 0;$)$)/* * sound(voice,pitch,distortion,volume) * return}s garbage. */sound(vc,p,d,vl)char vc,p,d,vl;asm 12324;/* rnd(n) -- return 0 to (n-1) */rnd(n)int n;$(int temp},mask;if(n<2)return 0;--n; /* 0 to n-1 */if(n>=16384)mask= -1; /* $FFFF */else$(mask=2;while(n>=mask)mask=mask<}<1;--mask; /* to 0..01..1 */$)while(n<(temp=(peek(RANDOM)+(peek(RANDOM)<<8))& mask)); /* average 2 times */ret}urn temp;$)/* * end of graphics library */vich */#define RAMTOP 0x6a#define PCOLR0 0x2c0#define SDMCTL 0x22f#def1'  '    0   ' '''  ' ' U  ' T !} '       ''  '  '' T  ' U  '' !} '' U  ' T  ''        ''  ' '  !} ' U  ' T  '       ' ' p   !'"' |  !} !'#' x   !'$'    !'%' #' . .!}     &' #' .   .    !}  ''$0(' &  # @)   !}  )   #  !' !'   & !}S:''gr9color'graphics'close'open'color'drawto'poke'dpoke'ciov'locate'position!}'cgetc'plot'cputc'setcolor'fill 'paddle!'peek"'ptrig#'stick$'strig%'vstick&'hstick''sound('rnd }/* * Deep Blue C Compiler * Atari I/O routines * and library fuctions * (c) 1982 John Howard Palevich */#define EOL 15%}5#define TAB 127#define SPACE 32/* * val(s) returns numeric value of * string in s */val(s)char *s;$(char c;%}int v,sign;while(c= *s)$(if(c==SPACE | c==EOL | c==TAB)++s;else break;$)sign=1;if(c=='+' | c=='-')$(if(c=='-%}')sign= -1;c= *++s;$)v=0;while(c>='0' & c<='9')$(v=v*10+c-'0';c=*++s;$)return v*sign;$)/* * hval(s) --%} hex string to integer */hval(s)char *s;$(int v;char c;v=0;while(c= *s)$(if(c==TAB | c==SPACE | c==EOL)++s;%}else break;$)while(1)$(if(c>='0' & c<='9')c=c-'0';else if(c>='a' & c<='f')c=c-87;else if(c>='A' & c<='F')c=c-%}55;else break;v=(v<<4)+c;c=*++s;$)return v;$)copen(fn,mode)char *fn,mode;$(int k,io,r,dir;io=0;whil%}e(io<8)$(if(peek(832+(io<<4))==255)break;++io;$)if(io==8)return -1; /* no iocb */fn[k=strlen(fn)]=EOL;if(mode==%}'r')dir=4;else if(mode=='w')dir=8;else if(mode=='a')dir=9;else return -132;r=ciov(io,3,fn,k+1,dir,0);fn[k]=0;if(r%}<0)$(cclose(io);return r;$)return io;$)/* * open an iocb the 'normal' way * -- open(iocb,fname,ax1,ax2); */%}open(iocb,ax1,ax2,fname)char iocb,ax1,ax2,*fname;$(return ciov(iocb,3,fname,strlen(fname),ax1,ax2);$)/* * close a%}n iocb the 'normal' way */close(i)char i;$(return cclose(i);$)cclose(i)int i;$(return ciov(i,12,-1,-1,-1,-1);%}$)cputc(c,unit)char c;int unit;asm 12297;cgetc(unit)int unit;asm 12294;getchar()$(return cgetc(0);$)putc%}har(c)char c;$(return cputc(c,0);$)gets(str)char *str;$(int r;if((r=ciov(0,5,str,120,-1,-1))<0)return r;s%}tr[r=dpeek(840)-1]=0;return r;$)cprints(str)char *str;$(return cputs(str,0);$)cputs(str,i)char *str;int i;$%}(int k;if(k=strlen(str))return ciov(i,11,str,k,-1,-1);else return 1;$)/* ciov(iocb,com,bad,blen,ax1,ax2) * -1 fo%}r bad,blen,ax1, or ax2 will * leave that parameter unchanged */ciov(iocb,com,bad,blen,ax1,ax2)int iocb,com,blen,ax1,ax2%};char *bad;asm 12291; /* $3003 *//* normalize(fname,fext) * converts file to upper case, * adds D: if no prefix, * a%}dds .fext if no extension */normalize(fname,fext)char *fname,*fext;$(int i;char c,temp[20];/* to upper case */i%}=0;while(c=fname[i])fname[i++]=toupper(c);if(--i < 0)return 0; /* null fname *//* fname[i] is last char of name */%}/* pre-fix D: */if(i==0 | (i==1 & fname[1]!=':')|(fname[1]!=':'&fname[2]!=':'))$(strcpy(temp,"D:");strcpy(temp+2,%}fname);strcpy(fname,temp);i=i+2;$)/* if no '.', add '.'fext */if(find(fname,i+1,'.')<0)$(fname[i+1]='.';str%}cpy(fname+i+2,fext);$)$)/* * toupper(c) -- if c lower case, * return upper case, else return c. */toupper(c)char %}c;$(return (c < 'a') || (c > 'z')? c : c-32;$) /* * tolower(c) -- if c upper case, * return lower case, else retur%}n c. */tolower(c)char c;$(return (c < 'A') || (c > 'Z')? c : c+32;$)/* strcpy(a,b) -- copy b into a * returns %}size of b (not counting 0) */strcpy(a,b)char *a,*b;asm 12300;/* move(a,b,len) -- move len chars from * a to b, inc-i%}ng addresses */move(a,b,len)char *a,*b;int len;asm 12303;/* clear(a,len) -- clear a to a+len-1 */clear(a,len)c%}har *a;int len;$(*a=0;move(a,a+1,len-1);$)/* usr(addr,.....) -- call usr(x) subr * at address addr */usr(addr)%}char *addr;asm 12306;/* find(addr,len,ch) -- find first * occurence of ch in addr to * addr+len-1, return 0--len or -1 %}if * not found */find(addr,len,ch)char *addr,ch;int len;asm 12309;/* * return length of string * not including z%}ero */strlen(str)char *str;$(return find(str,30000,0);$)/* * peek(i) -- return byte in i */peek(i)char *i;a%}sm 12312;/* * poke(i,d) -- return OLD value of d */poke(i,d)char *i,d;asm 12315;/* * dpeek(i) -- return word in [%}i,i+1] */dpeek(i)char *i;asm 12318;/* * dpoke(i,w) -- return old value of w */dpoke(i,w)char *i;int w;asm 12%}321;/* end of Atari library */ri I/O routines * and library fuctions * (c) 1982 John Howard Palevich */#define EOL 15$!'   $  $  $ "  +$)}  -$ -$    "  0)  9'    )} 0  "   '      $  $  $)}  "     0)  9'  0 a)  f')}  W A)  F'  7     ")} '  & @   ' $ ")} $     '  r$  w$ )} a$         '    )}&  '   '    '   '' '' )}    '' 0'0' '' ''   x   )}' &! !  H '   '  ' '  '")}     '#" #'0!' $   )}%  "#  "'$% # && & $  $   :%  )} :%   :%' #'   #'  #'  '  )} . $' &(   .     #'("' a& % ) z( )}%)*+* +%' A& % , Z( %,-.- .#' 0&')}0''      &'('0$'0' 0u $''0)'0'0*'!0)}D:'val'hval'copen'peek'strlen'ciov'cclose'open'close'cputc'cgetc'getchar'putchar'g)}ets'dpeek'cprints 'cputs!'normaliz"'toupper#'strcpy$'find%'tolower&'move''clear('usr)'poke*'dpoke*&}@@dbc @O jC r ECzL  I  *M mC G C G C G  I XJ I O XJ 5}' r '''  '  '  '  ' 8 '  ' ' 1}' O ' O '  ' ' O ' ' O ' 1} & "    ' ' I'''' '1}'     d '      1}  ' !'  "' % ' #'.- .      .=. 1} ..+   ..*  .q.Q 1} $'  $'        1}   %'   %' '  &    2 1} $'  $'   d&     d $' 1}   $' ! $'  $' ![K:}Bouncin1}g Ball DemoPress arrow keys to move ball,Use 'q' to quit. '''key'ballshap'main'cop1}en'pmcinit'graphics'pmgraphi'cprints'color'plot'drawto'pmcolor'pmwidth'ballhack'pmcflush'1}cclose 'hitclear!'plmove"'peek#'cgetc$'sound%'hitp2pf'drawto'pmcolor'pmwidth'ballhack'pmcflush'0B O I  I XJ O I XJ O I  &@@ "@    QN 5} pN@ AACCALC F     dDNWAQA   5}   C DO  I %YBC G.-A.AA  YBA.=A.AA YBA.A.+AA  YB5}A.A.*AB BBYBB.qB.QBCB K  K FBVB  ;CFB  5}     N   N;CDNB  &B B   2 K B 5} K $C  d&CCC  C    d K 8C  K cC K  5} K TAK:}Bouncing Ball DemoPress arrow keys to move ball,Use 'q' to quit. CD 5} D $  $  $ D " DDC  +$  -$QD -$DD    "5}  0)  9'D    0  "YD     D DE$5}  $  $D "DDD E 0)  9'"E  0uE a)  f'JE  W5}uE A)  F'rE  7uEE     "D   &E @ 5}EF  I $EE "E $E     I  r$-F cF w$DF 5}cF a$[F cF        G    &F  5}   FG I   G F     G 00 G  G 5}  x   G &_G   H I    G  IG 5}    GGHG 0    H  "#  IG # &26}H  $  $   :%   :%   :%H I kI   kI  kI6}     . HII &I   .     kI a& % $I z( 6} %.I7I  A& % WI Z( %aIjI  00      nI06}0 0u I000!0D:IJ  F    0   vL F yL  yL I U  I T6}  I       G  J  G T  I U  IyL   G U  I T 6} I        I JK yL I   I U  I T  I       6} G p   I |   I x   I    I :K .xKK K.KK 6} KK KK :K .KK K.KKxLK  KK KK$0 &K  # 6}@)L  @L   )9L  L #  I I   &nL@L S:zLyM6 } j I  O j I  O j j I  I I *M O  nI  O  I *M6 }   I j j I  I I M /  $JM :MM * I   I $pM sM O6 }  zMyNO   $M M  I  &MM "M   I NM@N / " I 6 } I  &@NN "N   I   IN  I      6 }I   zNyO I     IN N     IN N O  O  6}O qI  O   nI     nI   O  nI  O  O 6}   nI  zOO IO  O00L 2Li0L0L0L0L1LP1L^1L1L1L1L1L1 3تʎL08L0إ6} M0ԆLa4L0 HȱHL0JH @3lhhh hhBhhDEhhHIhhJhhK VIi``hhh)6} BHI V0``hhhhh) BHIL0hh01hhh L 1`hhhhhhh6}L41`hhhHlhhhhhhh ``Ls1hhh`hhhh6}h`hhh𪈱`hhhȱhh`hhh) hhhh) 12 hh)`dbc@2L!2CL36Щ2ѭ6}@ҭ@LF2@ @2C2l  j2عk2l`'013W3h3{3333333334-4E4a44444455)5P5`555556}56*696B6^6q6666666664dbc 1 run-time-error ""Type a key to ret23urn to DOS.2 BȝD2E8HI V6}l @3؅ԘLF2ЅȱЅ٥iА` @3؅ȱ؅LF2 @3e؅ԥeمLF2 @3ԑLF2 @3ԑȥՑLF2 36}ԑإ8ҥLF2҅ȱ҅` 3ԑȥՑL3ԅԄLF2ԪȱԅՆLF2BL3 @334؅ԥمLF2 4ԑȥՑLF2iҥi6} `AL3Ա҅ԊȦձ҅ՊLF2 4 @3Рȥёҥ؅ХمLF2҅ȱ҅ _2إ8؅ҥLF2б҅ЊȦѱ҅ъ6}LF2 @3؅ХمLF2L4eЅАLF2 @3L4 @3e؅ҥeم45AL3LF2&LF2eԅ6}eՅL38ԅȱՅL3ԍՍҍȱҍ 7ԭL3 p5ԭL3 p5ԭL3ҍȱҍDL36}L87ԅȱՅL3EԅȱEՅL3%ԅȱ%ՅL3҅ȱ҅FfL356ȱ҅L3҅ȱ҅6}&L3Ա҅L38ԅԩՅLF2EԅԩEՅLF2LF2LF28ԅȱՅ` M6ʆL3 M6ԅ6}L3 M60 M60 M60åп M60ՐнԐՐЪԐПՐ67 ԐLg6Ր6}԰Lz6&&& L27 `ɀE ɀf8ਊ 7$ 86}$P 8`E0 IIL78L7Ff eeF77fff$ 86 }` 2`E0 IIL78L7Ff eeF77fff$ 84 q w ' &  o '  ' )   'J#}r( )else$(sound(0,0,0,0);sound(1,0,0,0);$)$)$)char i;key=copen("K:8*  'qFile reader/writerCommand: r,w,q-> '%c' is not a command.Try R(ead), W(rite), or Q(uit)J$}.File to read? CI/O error %3d on %s--EOF--File to write? CI/O error %3d on %s'main'printf'tolower'getcJ%}har'rfile'wfile'gets'normaliz'copen'cgetc'putchar'cclose'cputc'main'printf'tolower'getcHZts'dpeek'cprints 'cputs!'normaliz"'toupper#'strcpy$'find%'tolower&'move''clear('usr)'poke*'dpoke(@@dbc @N B H B H"@@ )B H F 6HF %G@8@.rS@]@@@e@.we@o@XA@w@.qw@~@N(}@@ .B  H FB H@@@@  $!A@@ gB H &F vB F  r DN)} &A xAAB   H A!A@   F )CA F!A E B Hx N*} $A~AlA B Hs &Fs B F q w D &A B  o H AA{A F )AN+}   FA EBBqFile reader/writerCommand: r,w,q-> '%c' is not a command.Try R(ead), W(rite), or Q(uitN,}).File to read? CI/O error %3d on %s--EOF--File to write? CI/O error %3d on %sBC  C $N-}  $  $B "CCB  +$  -$FC -$9C    "  0) N:}/* * Demo the player graphics * (C) 1982 John H Palevich */charkey;char *ballshape;main()$(char i;key=copen("K:>/}",'r');pmcinit();graphics(7);pmgraphics(1);cprints("\fBouncing Ball Demo\n");cprints("Press arrow keys to move ball>0},\n");cprints("Use 'q' to quit.");color(1);plot(0,0);drawto(159,0);plot(0,79);drawto(159,79);color(2);plot(0,0);drawt>1}o(0,79);plot(159,0);drawto(159,79);for(i=0;i<4;++i)$(pmcolor(i,4*i,6);pmwidth(i,0);$)ballshape="\20\0\0\0\0\0\6>2}\11\11\11\11\6\0\0\0\0\0";ballhack();pmcflush();cclose(key);$)ballhack()$(char xbounce,ybounce,i,px,py,dx,dy;i=>3}dx=dy=0;px=py=100;hitclear();for(;;)$(i=(i+1)&3;plmove(i,px,py,ballshape);if(peek(764)!=255)$(switch(cgetc>4}(key))$(case '-':case '':dy=-1;break;case '=':case '':dy=1;break;case '':>5}case '+':dx=-1;break;case '':case '*':dx=1;break;case 'q':case 'Q':so>6}und(0,0,0,0);sound(1,0,0,0);return;default:dx=dy=0;$)$)px+=dx;py+=dy;if((xbounce=hitp2>7}pf(i,1)) |(ybounce=hitp2pf(i,0)))$(hitclear();if(xbounce)$(/* hit side */dx=(px<128 ? 1 : -1);soun>8}d(0,50,10,10);$)else sound(0,0,0,0);if(ybounce)$(/* hit top/bot */dy=(py<100 ? 1 : -1);sound(1,100>9},10,10);$)else sound(1,0,0,0);$)else$(sound(0,0,0,0);sound(1,0,0,0);$)$)$)char i;key=copen("K:<g 9'C    0  "NC     C CD$  $  N;}$C "CCC D 0)  9'D  0jD a)  f'?D  WjD A)  N<}F'gD  7jDD     "C   &D @ DE  HN=} $DD "D $D     H  r$"E XE w$9E XE a$PEN?}XAIOPRINTFDBC.OBJ,3,'d'));nl();outdec(find("abc",3,'a'));nl();outdec(find("abc",3,'b'));nl();$)mand: r,w,c,s,u,q")D XE        F    &E E   EFN@}   H   F E     F 00  F  F   NA}x   F &]F   H H    F  HF   NB} FG FF 0    G  "#  HF # &0G NC} $  $   :%   :%   :%G H iH   iH  iH  ND}   GH  . H &G   .     iH a& % "H z( %,HNE}5H  A& % UH Z( %_HhH  00      lH00 0uNF} H000!0D:HI H     H H PI H  NG}   H H   H PI   H H ]K   % HNH} &I  F IJ(J     F        NI} J " #   -$HJ  ~J 0)  9'{J    0~JJJ   NJ}    H d$J  JK  aKLK s$J    NLK c$K   NK}MLK x$0K   LLK   F   " #}I   'NL} &K  "# -   L  KL   (K  "#  0    NM}  K $/L  "# 0    (]L    nN  F &L NN}   nN    )LM>M      (-M 'M  NO} "#  0%M  "#  a    L $\M  "# 0    NP}(M    nN  F &M    nNMN (M   nN   FNQ} & N   nN  H (;N    nN  F &jN    nNR}N #" (N   FnN 00L 2Li0L0L0L0L1LP1L^1L1L1L1L1L1 3تʎL08L0إ M0ԆLa4LNS}0 HȱHL0JH @3lhhh hhBhhDEhhHIhhJhhK VIi``hhh) BHNT}I V0`L0hhhhh) BHIL0hh01hhh L 1`hhhhhhhNU}L41`hhhHlhhhhhhh ``Ls1hhh`hhhhh`hhhNV}𪈱`hhhȱhh`hhh) hhhh) 12 hh)`dbc@2L!2CL36Щ2ѭ@ҭ@LF2@ NW}@2C2l  j2عk2l`'013W3h3{3333333334-4E4a44444455)5P5`5555556*696B6^6q66NX}66666664dbc 1 run-time-error ""Type a key to ret23urn to DOS.2 BȝD2E8HI Vl NY} @3؅ԘLF2ЅȱЅ٥iА` @3؅ȱ؅LF2 @3e؅ԥeمLF2 @3ԑLF2 @3ԑȥՑLF2 3ԑإ8ҥNZ}LF2҅ȱ҅` 3ԑȥՑL3ԅԄLF2ԪȱԅՆLF2BL3 @334؅ԥمLF2 4ԑȥՑLF2iҥi N[}`AL3Ա҅ԊȦձ҅ՊLF2 4 @3Рȥёҥ؅ХمLF2҅ȱ҅ _2إ8؅ҥLF2б҅ЊȦѱ҅ъLF2 @3؅ХمN\}LF2L4eЅАLF2 @3L4 @3e؅ҥeم45AL3LF2&LF2eԅȱeՅL38N]}ȱՅL3ԍՍҍȱҍ 7ԭL3 p5ԭL3 p5ԭL3ҍȱҍDL3դL87ԅȱN^}ՅL3EԅȱEՅL3%ԅȱ%ՅL3҅ȱ҅FfL356ȱ҅L3҅ȱ҅&L3N_}҅L38ԅԩՅLF2EԅԩEՅLF2LF2LF28ԅȱՅ` M6ʆL3 M6ԅL3 M60 M6N`}0 M60åп M60ՐнԐՐЪԐПՐ67 ԐLg6Ր԰Lz6Na}&&& L27 `ɀE ɀf8ਊ 7$ 8$P 8Nb}`E0 IIL78L7Ff eeF77fff$ 8`Nc} 2 #" (N   FnN 00L 2Li0L0L0L0L1LP1L^1L1L1L1L1L1 3تʎL08L0إ M0ԆLa4LL M60åп M60ՐнԐՐЪԐПՐ67 ԐLg6Ր԰Lz6&&&Ne} L27 `ɀE ɀf8ਊ 7$ 8$P 8`ENf}0 IIL78L7Ff eeF77fff$ 8` 2`ELxHI V0`L0hhhhh) BHIL0hh01hhh L 1`hhhhhhhh}L41`hhhHlhhhhhhh ``Ls1hhh`hhhhh`hhhi}𪈱`hhhȱhh`hhh) hhhh) 12 hh)`dbc@2L!2CL36Щ2ѭ@ҭ@LF2j}@ @2C2l  j2عk2l`'013W3h3{3333333334-4E4a44444455)5P5`5555556*696B6^6qk}6666666664dbc 1 run-time-error ""Type a key to ret23urn to DOS.2 BȝD2E8HI Vl}l @3؅ԘLF2ЅȱЅ٥iА` @3؅ȱ؅LF2 @3e؅ԥeمLF2 @3ԑLF2 @3ԑȥՑLF2 3ԑإ8ҥm}LF2҆ȱ҅` 3ԑȥՑL3ԅԄLF2ԪȱԅՆLF2BL3 @334؅ԥمLF2 4ԑȥՑLF2iҥi n}`AL3Ա҅ԊȦձ҅ՊLF2 4 @3Рȥёҥ؅ХمLF2҅ȱ҅ _2إ8؅ҥLF2б҅ЊȦѱ҅ъLF2 @3؅Хo}مLF2L4eЅАLF2 @3L4 @3e؅ҥeم45AL3LF2&LF2eԅȱeՅL3q}/* Test the I/O */main()$(char c;printf("File reader/writer\n");printf("Command: r,w,q\n");for(;;)$(printf("\n.z}8ԅȱՅL3ԍՍҍȱҍ 7ԭL3 p5ԭL3 p5ԭL3ҍȱҍDL3դL87ԅr}ȱՅL3EԅȱEՅL3%ԅȱ%ՅL3҅ȱ҅FfL356ȱ҅L3҅ȱ҅&L3s}Ա҅L38ԅԩՅLF2EԅԩEՅLF2LF2LF28ԅȱՅ` M6ʆL3 M6ԅL3 M60 t}M60 M60åп M60ՐнԐՐЪԐПՐ67 ԐLg6Ր԰Lz6u}&&& L27 `ɀE ɀf8ਊ 7$ 8$P 8v}`E0 IIL78L7Ff eeF77fff$ 8`w} 2dbc @Ġ aA ܁ zA ܁,@+@ L@P A ܁ Z   Z'i@   q$|@ ts'dpeek'cprints 'cputs!'normaliz"'toupper#'strcpy$'find%'tolower&'move''clear('usr)'poke*'dpoke($(if(type[i]==external)$(j=stab+i*symsiz;if((k=lookup(j))>=0)vtab[slink[i]]=vtab[slink[k]];else$(err^}-> ");c=tolower(getchar());while(getchar()!='\n');switch(c)$(case 'r':rfile();break;case 'w':.{}wfile();break;case 'q':return;default:printf("'%c' is not a command.\n",c);printf("Try R(ead), W(.|}rite), or Q(uit).\n");break;$)$)$)rfile()$(char fname[20];int i;char c;for(i=0;!i;)$(printf("File to.}} read? ");gets(fname);normalize(fname,"C");if((i=copen(fname,'r'))<0)$(printf("I/O error %3d on %s\n",-i,fna.~}me);i=0;$)else break;$)/* now print file on consol */while((c=cgetc(i))>=0)putchar(c);cclose(i);printf("\.}n--EOF--");$)wfile()$(char fname[20],line[120];int i;char c;for(i=0;!i;)$(printf("File to write? ");gets(fn.}ame);normalize(fname,"C");if((i=copen(fname,'w'))<0)$(printf("I/O error %3d on %s\n",-i,fname);i=0;$).}else break;$)/* now read file from consol */while((c=getchar())>=0)cputc(c,i);cclose(i);$)i,fname);i=0;$),dor("never defined:");pl(j);$)$)$)$)/* look for global n */lookup(n)char *n;$(int i,j;for(i=0;i0)$(/* chars before % */R}ciov(io,11,fstring,i,-1,-1);fstring=fstring+i;cleft=cleft-i;$)/* get numeric arguement */size=0;sign=1;R}while(cleft)$(++fstring;--cleft;c= *fstring;if(c=='-')sign= -sign;else if(c>='0' & c<='9')size=siR}ze*10+(c-'0');else break;$)size=size*sign;arg=dpeek(s=s+2);/* check format character */if(c=='d')fprintd(R}arg,size,io);else if(c=='s')fprints(arg,size,io);else if(c=='c')fprintc(arg,size,io);else if(c=='x')fpriR}ntx(arg,size,io);else $( /* %%, etc. */cputc(c,io);s=s-2; /* not really an arg */$)++fstring;--cleft;$R})$)/* * print decimal # */fprintd(arg,size,io)int arg,size,io;$(/* buffer string */char buf[7],flag,c;int i,kR};i=flag=0;k=10000;if(arg<0)$(buf[i++]='-';arg= -arg;$)while(k)$(if(flag | (c=arg/k)>0)$(buf[i++]=c+'0'R};flag=1;$)arg=arg%k;k=k/10;$)if(flag==0)/* zero */buf[i++]='0';buf[i]=0;if(size > 0)fprintws(io,sR}ize-i);cputs(buf,io);if(size < 0)fprintws(io,(-size)-i);$)/* * print hex # */fprintx(arg,size,io)int arg,size,R}io;$(/* buffer string */char buf[7],flag,c;int i,field;i=flag=0;field=12;while(field>=0)$(if(flag|(c=(argR} >> field)&15)>0)$(if(c<=9)buf[i++]=c+'0';else buf[i++]=c+'a'-10;flag=1;$)field=field-4;$)if(flag==0)/R}* zero */buf[i++]='0';buf[i]=0;if(size>0)fprintws(io,size-i);cputs(buf,io);if(size<0)fprintws(io,(-size)-i);$)/R}* * print character */fprintc(arg,size,io)char arg;int size,io;$(if(size>0)fprintws(io,size-1);cputc(arg,io);ifR}(size<0)fprintws(io,(-size)-1);$)/* * print string */fprints(arg,size,io)char *arg;int size,io;$(int i;i=strleR}n(arg);if(size>0)fprintws(io,size-i);cputs(arg,io);if(size<0)fprintws(io,(-size)-i);$)/* * print n characters of whR}ite space */fprintws(io,n)int io,n;$(while(n-- > 0)cputc(' ',io);$)ntf() and fprintf() * -- for version 1.0 of dbcPM' '     ' ' '' '  V}    ' '   ' ''   ' V}'    % ' &  ' (   V}  '          " #   -$V}    0)  9'     0     V}    ' d$    '  s$   ' V} c$   ' x$   '  '  V}  " #'   ' &  "# -V}        (  "#  0     V}  $  "# 0    (    '  V} ' &    ''    )V}      ( '  "#  0  "#  a V}    $   "# 0     (!  V}  '!  ' &"    '"' (#   '#V}  ' &$   '$'  ' (%    'V}%  ' &&    '&'' #" ((  ''('prV}intf'dpeek'peek'fprint'fprintf'strlen'find'cputs'ciov'fprintd'fprints'fprintc'fprintx'V}cputc'fprintws '     ' ' '' '  Tbounceaiographicspmgdbc.objX ble look-up * look for the first occurence of * string a in table of strings b, * where each entry is of length w, * and ^}there are 0..max-1 entries. * Returns 0..max-1 (index of match) * or -1 if not found. */tlookup(a,b,wid,max)char *a,*b^},wid;int max;asm 0x600;er v 1.2 */#include "clinkg"resolve()$(int i,j,k,m;char *addr,used;for(i=0;i 0)$(putchar(c);if(c==eol)$(if(j==0)continue; /*blank line*/else breakb};$)else s[j++]=c;$)if(j)$(s[j]=0;if(s[0]==';') /* comment */continue;normalize(s,"CCC");reb}turn 1;$)else return 0;$)$)pass1()$(char c,buf[BSIZE],*b,*e;int i;/* no cc0 & cc1 is for string lits */cbp[b}0]=cbp[1]=1; /* read in file */if(bgetchr(buf,BSIZE,&i))return;b=buf;e=buf+i;while(b=gmin)vbp[i-gmin]=pc;else cbp[i]=pc;b+=2;break;case lglb:case lexb}t:i=b[0]+(b[1]<<8)-gmin;b+=2;b+=1+strcpy(stab+sptr*symsiz,b);slink[sptr]=vbp-vtab+i;/* link will index ofb}f ofvtab, not vbp! */if(c==lglb)type[sptr]=global;else$(type[sptr]=external;vbp[i]=i+1; /* marb}k as used (no ldef) */$)if(++sptr>maxsym)error("Too many globals\n");break;default:error("bad byte cob}de.\n");break;$)$)if(b!=e)error("bad CCC file\n");$)/* Get the whole file at once * (return non-zero if error)b} */bgetchr(buf,max,len)char *buf;int max,*len;$(int i;if((i=ciov(input,7,buf,max,-1,-1))>0)$(error("CCC file tb}oo large\n");return 1;$)else if(i!=-136)$(ioerror("can't read file",".CCC file",i);return 1;$)else$(*b}len=dpeek(0x348+(input<<4));return 0;$)$)error(s)char *s;$(ps("error ");ps(s);++errcnt;$)ioerror(kind,name,vab}l)char *kind,*name;int val;$(++errcnt;printf("[%s]%s:%d\n",name,kind,-val);$)flush()$(int i;if(bptr==0)$(bad=b}pc;return;$)pad(bad);pad(bad+bptr-1);i=0;while(bptr--)pby(buf[i++]);bad=pc;bptr=0;$)pad(a)int a;$(pby(a &b} 255);pby((a >> 8) & 255);$)pby(b)char b;$(cputc(b,output);$)ws(s)char *s;$(while(*s)wb(*s++);$)wa(a)ib}nt a;$(wb(a & 255);wb((a >> 8) & 255);$)wb(b)char b;$(buf[bptr]=b;++pc;if(++bptr >= block)flush();$)pass2b}()$(char c,buf[BSIZE],*b,*e;int i,lbase;lbase=cbp[1]; /* cc1 */if(bgetchr(buf,BSIZE,&i))return;b=buf;e=buf+i;whb}ile(b 0)wb(*b++);break;case dspc:pc+=b[0]+(b[1]<<8);b+=2;flush();b}break;case lglb:case lext:b+=find(b+2,BSIZE,0)+3;break;default:error("bad op code\n");break;$b})$)if(b!=e)error("bad CCC code\n");$)#define luse 128#define ldef 129#define bcon 130#define wcon 131#define rdat`+/* * Deep Blue C Linker v 1.2 * (C) 1982 John Howard Palevich */#include "clinkg"charstab[stsize],buf[block],type[f}maxsym],eof;intslink[maxsym],vtab[vtsize], *vbp,vbase[maxf],ctab[ctsize], *cbp,cbase[maxf],sptr,fptr,bptr,baf}d,input,output,errcnt,pc;main()$(pl("\fDeep Blue C linker v1.2");pl("(C) 1982 John Howard Palevich");while(cof}/* * Deep Blue C Linker v 1.2 * (C) 1982 John Howard Palevich */#include "clinkg"charstab[stsize],buf[block],type[d}