@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr ɪ D @) DD)˝*+`Y䭣Y䍤_ S}`__LE: B V JBRDE V`a`jW`jD˙` 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 Y?  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`  05GL8G)ȱ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`}  gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}0}ECh <;:DDOS ==>>??DOSDOS SYS }}}4VV1}CDOS SYS}}B'!"ԩ L:!!BL>3U J ]L!T  LLLLLL LLL}LLLL }LL[ T`HIB VL$`lllLLLLD1:D:STARTUP.EXCP.EXCD1:DCOPY.COMCOM!}@DCOPYN.SYS1 CUSTOM.COM 41 CUSTOM.C 42 CUSTOM.COM 4221 COPY.C 21 CSORT.C 21 CUSTOM.C 21 DIR.C 21 FILECMP.C 21+"}]++L3;  LQ_y_"~#Z [䝀8<iUiVifig#}iOiP$ic%ido \X ^AXR`a ` T=`!" ' IL$}< I@L XLLh@LY    `ԩթ }LError # LT ؠ0 T)LTɛ%};󩛑=>!"`8 B VLD  }DEIB V0ЮH &}: lЧ.COM pB؝DEJ V L#â }LNot binary!L#   '}DE8倝H偝IHIB V0 LL   L#  L# RS @(}k }L}DVC DOSVer. 1.03_  _@  L#D:AUTORUN.SYSD:: ɛ |} 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uTYPE DVC.TXTz0@njn nnh ҁ Ё V  R"  ^ w@A9AN&v@- U}B#S AEBR&@MBR&@>M$@SBS>MG$ AXBS&@>MG$ A^BS&@>MG$ AcBS&@ V}A$ AlBS&AaS$ ABR$w@ A TTX0 n T&A `A J&AT W} : >, O HA H&AO> OOT $?A &AtB#S R`, O&AO X}"J&A`,O $Ap B?0䙚r0 f(BB#SR missing closing bracketextern char int char int #i Y}nclude#defineCan't nest include filesHOpen failure on include fileRIR&B AhBTI#SeIP |TBgI# Z}S||T&"C C|P C|P  $, : < . iP&NEI _}R_EJ#S$D p&yE&E $FJR&E NG$FJS&E NG$FJS&EG$FJSE!JS `}&Eb=G$F%JSE,JS&Eb䚚wG$F3JS&FdG$F7JS$F?JS&1FbJ$FGJS&KFDHG $FN a}JS]FUJS&nFbZHG$F\JS&FHG$FeJSFjJS&FbbL$FoJS&FHG$FuJS&FFG$ b}FyJS&F$FUG AhF{J#SI'0T JRGJ#S ^JR9G&2GJ#S$GeE$Gb || c}|QrgeErOT 욂 JRGrT|QCTrTeErOT 욂 rT || d}|Q|Q|QrTwGrgeE$HeEJRHJ#SrgGrCTrT rOT Q e}iPOHUOT T |QjHOTCTVH&HJ#S|V .Z&H&H$H f} .$HjHJ#S&HCT$HCTT IP| S&%I CT$OI|QCTЁ g} 0Ё Ё Ё]must be constant]illegal function or declaration%s(missing open paren)illegal argument name h}),expected commacharint wrong number argsasmNeeded address*[,expected commachar int $(if(if while(while do i} switch(switch returnbreak;break continuefor(for goto jsr;Needed address;missing semicolon$)missing final end j}elsewhiledo with no whileNo active whilesNo active whiles||| |||Q|Q[OPU] k}OP_OP|bOR &SKjOS&]KpO#S|Q&uK|$KAh&K$j&KO#SrLTORKO#S| l}OR KOS&K$eK|QrCTrTeE|OR &L|OS &LOS& L$KCTrT'L&- m}L$]K&:LrCTTrT rOT Q |||Q|Q|Q|Q|QOPOR n}LUGrTORLUGrITrCTrTORLUOPrCTrTeErCTrT rOT o}QOR=MO#S & N&MiP&TMOR&kM$pM|T~MP||T&M MJ& p}M  $MMPOR&M|B&M$M|rrrrP $MOR@M$@M&N&NiP& N q}OR&2N$7NTENPT&VNPOR&N|B&NN|>$N$NN r}J&N$Nr욜.Q ~OT $NOR N$ Nn T&XO$O $N /O s}&O| $IO| $IO CO| $IO| T$N()$(defaultcase 'case' or 'default' expectedconstan t}t needed:Missing colondefaultcase defaultcase $)(;;)):missing colon*[,*[,RPSBRSEP u}iP&P$EPT)PSSDRRP$EP$PFRP&_PrrS$fPr#TRHRSPp JR#S ^Rr v}00rR#S rRP|R#S R#S rT &P nnhZ&PR#S rS       w}   <   rT &?Q nnxZ&TQR#S rS        x}  <   ^ VH&QR#S OOfQVDD VFF`O$Q Q&QV . V VRR#S$ y}RV . p 䘘 p=R&2R R^S$ RS ),);illegal symbol name%s already definedsee abovemissin z}g bracketnot definedGLOBAL symbol table overflowlocal symbol table overflowtoo many active whilesno active whiles {} !$'T䘔00 OOLS$CS^O$2S -0$=STr00rZl *ToSPS`㜢n |}p 0, SS`㜢npp 0 OO, RhST#S -0369<?BE }}HTrTT. KTT.. NQTWZ]`cfilorux{~ ~}rTT ûƻɻ̻ϻһջػۻ%s^ %smacro ta }ble full|FU&U|T|FU&%U|TE^S&CU|FU&%U|T$%U|r WG^S&mUUTrrV$VJ^ }S&UXTrrV$VM^S&U[TrrV$VP^S&U^TrrV$VS^S&UaTrrV$VV^S&UpTrrV$ }VZ^S& VmTrrV$V^^S&#VjTrrV$Va^S&=VgTrrV$Vd^S&WVdTrrV$Vg^S&VkVP }&wVE|FU&V|Trog$VVP&VErTE| W&V|TUTHVXTH }&Vr|T&VRTr"og( (((Wi^SH&]T$\ }T$B^,<HJ&m]^SHJ&]D 䚒E^&]T*,J]*,J&]T$\T }$B^,>HJ&]^SHJ&;^D 䚒E^&^T*,J*^*,J&4^T$\T$B }^( $\,+=-=*=/=%=<<=>>=&=^=|==?||||&&&&|||=|||=|^=^=^&=&&&=&==!===!=<><=>=>><<<= }>=<<>>|rf_RdS&^dS^dS^"dS&_&_rT&f_&dR&:_E|f_&3_|T }mT$_)dS&__E|f_&X_|TpT$_$_|r`Rp+_p-J&_,dS_/dS&_ }&_rT&`2dR&`E|`&_|Tr|T&_RT|rT& `SRTSUTr|$g$_4dS&`E| }`&<`|Tr|T&M`RT|rT&f`SRTSXT}`H&`EBTmTr|$g$_$_|r }aRp*`p/`p%J&`6dS`9dS`aE| }`&7a|T[T$aAdS&caE|a&\a|T^T$aCdS&aE|a&a|TaT$a$aEdR&araa }P&aErTyTayTrog$dHdS&)braaP&bErT|Tb|Trog }$dKdS&Obra&DbrTsT$dMdS&ubra&jbrTvT$dPdS&bra&brTEBTT }$dRdS&bra&brT|&b $b$dTdS&QcracVd#S| } &3cBrT $d|rldfdS&cpcP&|cErTyTcyTr }og|Tc|T$didS&dcP&cErT|Tc|TrogyT dyT$d }>><<<<=>>=>><<+=-=+-*=/=%=*/%++---$-!*&illegal address++--|re|Rp[Hd }p(H&|e&|e^jR&+ed`j#S$d drT$d dpj#SEUjP eRTUT } $djS&seDeO$fe _erTO$ferO|$d$de }eBrTjR&e|rFUjS&e|rFU$ejP|T&f||T&dfrS }  @f  _f $df||T&f f } f f BrT ||P |g }&g$!gj#S&4g&Bg$ng&ng gS }$gS jPUjPrIT Ah&gBT$>h$j&gBT$>hR&h  |jR&YhtjS&chpTvh }p0h^pxHhXH&h䚸hp& jT&h|r00.,$jh@Eih@h }GL&i7.$2ih`igL& jW.$2i$ j|r0,$j*]i䚜,T&ui^Ah0$h }/i䚜,T&i^Ah2$h+i䚜,T&i^Ahp$h-i䚜,T& j^ }Ah.$h$ j䚸h&j|@ jR0j S'Ej&[j>T, $4j [can't subscript }can't subscript]((,)invalid expression()string space exhausted-+'䘔Q0䚔Q0SQ0㜔Q0Q0 }요Q0nQ0暔Q0䙔Q0Q0Q0蚔Q0nQ0Q0nnhQ0Q0ҁQ0ЁQ0 }Q0Nm00&Yl0%m%m?0%m0&k%l%m0&k%l)1%%m0, % 0% 0m }?09% 09m?0m900r0 f&lm00$uk9w0 fDlm900$uk0K0@$uk | }m 0|H0 0m000*00&l| m|%N0r0r0rn0,  }n00&mn00$lr0r0*mr+m n000r60fMmn000 }DVC C-COMPILER } Version 1.01(1985) by Ralph E. Walden :LINK.:FASTC..CCCC%sCan't open: %sCan't open: %sD1:CED }ITWhat drive is CEDIT on?%s %s %d %d %s.%s %s filename?LL2LL[LLճLLkLwLLǴL(LTLLlLELرL? }LBLILML_LdL3LiLnLsL{LLLgLLLLŰLʰLϰL԰LٰLްLLLLLLLLL LLLLL$L)L.LL L±L },L1L6L;L@LLLL[LoLLLELLƦGHFH`  L LLLLLL  }LL L L LLL L, L, L,.    LL 8ȱ`LL }LLLLLLLL L!L"L#L$L%L&L'L(L)L*L+L,L-L iȱ }i`LLƢ0:``ƅȱƅŠ`ƅȱƅŠ``8婅ȱ媅 0ii' }`  LƅȱƅŠ ȱ L± L±ƅȱƅŠȱđȱđLرĠƠĠLM } ƅȱƅŠ 8ĠƠ ĠLƅՠƅ8ȱƠ  ե` ƅĠƠƅŠ   } LȘȘ`ʥˠȱL-ʥˠȱL-ȱϥʥˠƅȱƅ }# ʦ`iʐ٥ϐש`ƅȱƅȱƅȱƅˠ%% _0:A [ a{`` }_0:A[a{ذڠȪ`_A [ a{`` 90,撠 ޻/ }`$)ȑȩ޻`ȱ*׈L5 ȱ `ƅȱƅɠѰ ``ƅ }ȱƅˠeȥiL`Ω̨ȱɠѰ ̥ΰ Lش 蘠Ș ȱ` }_0:A [a{`٠ƅȱƅȱƅȱƅˠʑȱʑ ` k``\`ȱHȘ }ha A[i n`f}`t`b~`u`d`l`r`m `g`e`H ah`h80ԠH a h }`eh80eԅLƅȱƅŠ ȱ L± L±ǩƠ޻#߻`:L }Ln Dz [L", DzL\ Dz DzL" DzL DzL', DzL\ Dz DzL' DzL DzL02 Ǵ } qi 0qL̠ Dz (L DzL Dz#ȱd cL }L 0`ǩƥ/ ` !0LLLͷ [LwHȱH } l [hhȢL [  lL2`HȱHǩ 2 hh`hhqȥq T (`e }ȱn߻L߻Lr 80Π eƥiȑ Ш ȱ ȱ } i Ȋiɠȍȱȍ 1LȱɠiƠ ȠiƠ Ƞ 1ȱ }0iȱ芑LHi Ȋiɠȍȱȍ 1LȱɠiƠ ȠiƠ Ƞ 1ȱ 0@CAchƪNnnn`ƅɱ͈ƅȱ̠ ͥ`̰͐ȘeHih}`ƅ˱ɱ͈ƅʱȱ̥͐ LG@̰ːȦ`ʐ 8@ɅL@ȱƅȱƅɠ`ʥȱ\ȥ()}$ڱ)Ա)Ω`' ȱ)п`"ƅɈƅȱ0" eHih``A AލA LALLL } ؠ0 _A)L_A _A`i`AiaAicAidA$ifA%igA`ALALAA }HH ɿ@B AL Basm 0xLcCɕB AL!Bbreak; 4ɒ3B AL8Bchar!ɺJB ALRB#define@!LZCɪjB }ALoBelse!LZCɸB ALBforpLZCɹ@0 _Ax _ALcCɍB ALBint!LZCɣ \ _A#LZCɊԢB ALBprintf(^LZC}B ALBretur#LZCɾC ALCswitchpLZCɮ/"C AL(CwhilepLZCWritten by Ralph E. WaldenɢUC ALXC$) h}hh@LZCɠ $ _ApLZCɂ; _A LZCɦAA IAC ALC */ LZCIA/ _A* _A!LZChhLAC"h}hC'h60fC( 'h1&D$ Dt$C$ D( 0&4D;4D&=Dt$D;JD &[DrW0$\}D #h hhN0H&wDh hN0X&DrH h'@ h%hT&D$cDrH #h hh%hT&DhN0T&Dh'@} h$Dh%hZ&D%h $DhD #h%hH&E#h .&!E#hX&*Ex$E#hX&?E.&EEx#hV&WE#h }$]E rr@D hh%hT&EhN0V&EhEHE h'@ h$lE hIrN000 |r'@}%hH&E %h$Fr%h.0%hr.. %h( | 0|rN0#h%hH&EF#hr0$F|rr}@DrN0H&kFrE|rr@%hJ&Fr~%h.0rrr0%h~ %h( H|CF( }hr 0|hI0F|hI0&G $FhI?0h0 hf/GhhG( $6Gh( 0&G}h0iG.HiG:H&}GvvB0 $IG .IGhI?0hw0 hfGIh0h00 h}0IG$G$G1&Gt$G( 0fH@H&HIr00${H@H&*HIr00${H@H&?HI00${H}@H&THI00${H@H&iH J00${HJr0r00 $H 6Jr00 @K0 K0 KJ00 0&H 0H} K00H0&H $HK0 %N\JrN000 K0K0 30B0Y%I $'I 0&BI;B}I&KIt$'I;ZIt$lI0&lIt$ZI0&I;I&It$lI %d %s, C:CError #%d when openi}ng %sTry again? (Y/N)%s is lockedCan't find %sDirectory fullDisk fullDisk write protectedI/O error #%d with %s}Can't find line #%dBad parameters!New text starts at line %d8Q00I&J#h %hh J TQ%h#h.h%h.00%h}#hX&JpQ%hDN000 | %h#hX&.KQ00|CJ( |rDK|%h$$K|rr@Q00$5K|}#h%hH&IK#hJ&]K|%hDN0Qr00|rDQ0&K#hX&K|rD$rKrT&L}1&K$Ktt$K$KQ0KQ0KQ0&L&Lr@|%h&M&)L,K0}C5L$M|'h 0\L'hQ 0'hQ0&L| .fL&Lr@'hn1&L'hn}1&L'hn'hr0.'hQ0&L& M| .fL& Mr@&"M'hr0}~'hQ0PM'hQ0PM'hQ0&`M@'hQ0xM'hQ0&LD $L|%h.&M%hJ&}M%hh.r0r~%h.0h.rr0&!N%h~ %hrH%hQ0rN0~DN0}e_(  h#h hhh hQ0h'@ h%hT&XN$1N |RK0K0OR00R00R00#R00*R000R}00GR00MR00XR00]R00dR00wR00R00R00R00R00R00RrK0R00( C&O'h0}&OR00( 0&8Ot$&Or 0fOOS0'h'hW0Q0'hN0fuOS00( &O'hnr 0}0'h F$O'hn Q0'h F$O( %S00MS00h&OuSh00$OS00 %h#hX&?PS00|CP( |}rD*P|%h$5P|rr@S00$FP|#h%hH&ZP#hJ&nP|%hDN0Sr00|%h&PCP$}P|'h 0&P'hr0~$P|%h.&P%hJ&Q%hh.r0r~%h.0}h.rr0&4Q%h~ %hrH( Š̠ԿٯΩ %d %d %d}Auto entry after line #? %d+ ˠ/*$(case default $)break;$(case defaultcase default}Auto entryCompileDeleteEnterFindInventory (directory)ListMove textNewPrintQuit -exit to DOSRenumberSa}veTextUnmatch -checks syntaxWhat -filesize, available memoryXchange -replace text? -display menu} 䠲}DVC C EDITOR Version 1.01(1985) by Ralph E. Walden} %sText entry after line #? %d+ ˠL\S hQ0V'h00 'YS(} h TxJ( |h]D T( |hr@r%h.0%hr.. %h( 'hrF hmT( 0'hV}0&T'hV0&T#h %hhh 0|%h|%hh90h_U%h %h0&'U|%h0&Tt$T1&}Tt|r 0&U%hr0%h~ %h$T%h~ %h|%hh90h_U%h, %h$0U$_U$TOrH( }CU( H#h hh%hT&V|h%hh.'h0@H&U( h~ hh'h0U^h$Uh.'@ hD}EHU( $U( V00'hdF hf7VVh0'h00( }-0H'hh90hVV'h00UK0'hh}90hVV'h00$V-0HAV( $AV0( CC %s,M-M*.*Error #%d opening directory of %s%s%sXV }hh]E (|'YW( |rD"WH&6W|%hDN0hhH&DW^h||'h)\0gW|'h+\0}&pW$sWhhT&WH( |h]DW( |hr@.W( |&W$W0h.%hV&W-\}00( h.r0&+Xr,%hr,.0%h. %h|rr@%h.&YXrr,%h.0h}.rr0%h~ %hrH( H'YX hXC\00hh.lX}-0H XX h&X0hr@D} hh%hT&XhN0hV&&YhF\hn00HY h'@ h$X (|C>Y( |r6GrD hh}kY h h( |r'IrD hYhYJ\0&Y h$Yh hr'I( K0K0 (K}0fZ$Yt$Y|rr00& Z$Z$Yr0"Z$oZ|rr00&GZ|v, $"Zr0rr}0|, ||W0|r]DZ( |rDH&Z|%hD0-0HrEY( (}K0R& [$Zx$Z|rr00& [$ [$Zr0![$][|rr00&F[|v, $![|,} ||W0|r]Dw[|#h$[|r'@rH[%hH&[|#h0-0R&[$[x}$[|rr00&[$[$[h[r0$ \0H&\rErEY( dDInsufficient memory!%}s;(hKb0K0|h 0&\h0rL&\$\t$\-0$\UH0~n@wF h\(} 0#hn hh%hT&]$\h'@n h$\hh<0f ]( $\0( ( Mb00|60f8]( || }0Vb00|v60fZ]( ||t 0\b00|'hCj]( |rD]|#h$]|rr@DH%hT&]H}&C_|%h.0@H&]( ~r|0^t$@_^|r'@DE|r.nr}L&R^$H^t$5^ -0$B^rb00|t&|^$m^$`^vn-0$j^-0|30B0 A^tQH^0&^( /b/b}YJ&^&^t$]r,%hr,.0%h. %hrr,%h.0|vrr0%h~ %hr'@D }E~$]( ub00'YX_ hhe_ (BK0b00rr@D hHh%hT&_hN0V&b| } h h|hn$_t$_|rA_$B`(r@&_t$?`)r@&`t$?`"r@&`^h$?`'r@&.`^h$?` }b0&?`$B`$_rJ&r`hEbrP&g`$j`00th:&`hEb00th:&`hEb00t }`|h'@.$`xhnX&`1&`x$`hnX&a)H&a.$J&|a|h'@n }1&9at$'ab0&dab0&dab0&yahEb00t$bhnX&a;J&a:J&a}.$J&b|hn1&a$at$a$a#J&a:J&bhEc00tHb( h'@ h$_+}b3c00( K0>c00K0 .Replace>With>Starting line number?-Syntax check [start] [end]Checking syntax}.../*%c󪪪堪堪char int asm }No errorse&dd\aVc$]cJ$Ec\cec$scOg00S$Ec\d{c$cag00S$Ec\ec$cog00S}T$Ec\fc$cvg00pU$Ec\ic$c|g00V$Ec\lc$cg00V$Ec\mc$cg00V$Ec\nc$dxJ$Ec\pd$dg00}X$Ec\q$d$9dg00I&Ec?g$Ec\rAd$Hd%N$Ec\sPd$^dg00L\$Ec\tfd$mdO$Ec\uud$|dG_$Ec\wd$dJ$Ec\xd$d}]$Ec\?d$EcYN$Ec$Ec$Ec$Ec$Ec 0 hH@K0K0K00TH0fd-0$dg00&e08e}0&e1(eZ1 eY$ e|H0|300[e?H&zeTH0&me-0rE0$e0e}He}H&e}er-0$eheTH0e-0rK0N$e 0N0 hFA,0 #h %h0 hh #h}Q0%hQ0hQ0hQ0 h'h0&4ghSTYf0g'h0030$4gOH'h0&xf'hn0&'g|'hnW}0 0n .r]E'h0&8g|rr@D1&f$ft$ft$f'hnW0,rL&g$ gt}$f -0$ghH0n00$8gJ-0$8gYNhhQ00 Save and compile>Delete lines>Enter>Find>Invent}ory (DIR) - filespec>List lines>Move begin,end,to [D] >Print to>Quit - exit to DOS(Y/N)?Save to>}Can't open} %sPress a key to continue.%sve begin,end,to [D] >Print to>Quit - exit to DOS(Y/N)?Save to>}Can't open$/* CIO.C */abs() asm 0x3084;atn() asm 0x3087;atof() asm 0x3081;atoi() asm 0x3057;bgets() asm 0x30AB;bputs() asm 0x30AE;}brkey() asm 0x30CC;calloc() asm 0x313F;cgetc() asm 0x3024;cgets() asm 0x3039;chain() asm 0x30FC;ciov() asm 0x301E;circ}le() asm 0x310E;clear() asm 0x3075;clog() asm 0x3069;close() asm 0x3021;closeall() asm 0x30BA;clrtime() asm 0x3114;colo}r() asm 0x308D;console() asm 0x3108;copen() asm 0x3018;cos() asm 0x3111;cputc() asm 0x3027;cputs() asm 0x303C;deg() asm } 0x306F;dfast() asm 0x3129;dpeek() asm 0x304E;dpoke() asm 0x3051;drawto() asm 0x3096;exit() asm 0x30C6;exp() asm 0x306C!};fadd() asm 0x3060;fast() asm 0x30A5;fdiv() asm 0x305D;ferase() asm 0x30F0;find() asm 0x300F;flock() asm 0x30E7;fmul()"} asm 0x305A;free() asm 0x3142;frename() asm 0x30ED;fsub() asm 0x3063;ftoi() asm 0x307E;funlock() asm 0x30EA;getchar() a#}sm 0x302A;getdos() asm 0x30BD;getkey() asm 0x3033;gets() asm 0x3036;getsec() asm 0x3133;getw() asm 0x30E1;graphics() as$}m 0x308A;gtime() asm 0x3054;highmem() asm 0x30F6;index() asm 0x30D5;inkey() asm 0x30C9;isalnum() asm 0x30D2;isalpha() a%}sm 0x30B4;isascii() asm 0x30FF;isnumeric() asm 0x30CF;isspace() asm 0x3102;itof() asm 0x307B;locate() asm 0x3099;log() &}asm 0x3066;lomem() asm 0x30F9;malloc() asm 0x313C;move() asm 0x3015;normalize() asm 0x303F;note() asm 0x30DB;open() asm'} 0x301B;peek() asm 0x3048;plot() asm 0x3093;point() asm 0x30DE;poke() asm 0x304B;position() asm 0x3090;printf() asm 0x3(}030;putchar() asm 0x302D;putsec() asm 0x3130;putw() asm 0x30E4;rad() asm 0x3072;rindex() asm 0x3105;rnd() asm 0x30A2;s)}canf() asm 0x3126;setblock() asm 0x3145;setcolor() asm 0x3120;sfind() asm 0x3012;sin() asm 0x3078;slow() asm 0x30A8;sma*}tch() asm 0x30B1;sound() asm 0x30B7;sprintf() asm 0x30F3;sqr() asm 0x315D;status() asm 0x3160;stick() asm 0x309C;strcat+}() asm 0x3003;strchr() asm 0x3136;strcmp() asm 0x3006;strcpy() asm 0x3009;strig() asm 0x309F;strlen() asm 0x300C;toasci,}i() asm 0x3139;tolower() asm 0x3045;toupper() asm 0x3042;ungetc() asm 0x30D8;ig() asm 0x309F;strlen() asm 0x300C;toasciQ000W0000?1$0 90 0 0 1 u0i0!0010101'0<0o0)1N0Q000l0.}`0 0!]0"0#0$0%Z0&B1'0(c0)~0*0+*0,0-30.60/3100102T030405060708090:1;{0<0=f0>/}0?<1@0A?0B0C0DH0E0F0GK0H0I00J-0K01L0Mr0N1O0P&1QE1R 1S0Tx0U0V0W0X0Y]1Z`1[0\0]60}1^0_ 0`0a 0b91cE0dB0e0'abs'atn'atof'atoi'bgets'bputs'brkey'calloc'cgetc'cgets'chai1}n'ciov'circle'clear'clog'close 'closeall!'clrtime"'color#'console$'copen%'cos&'cputc''cputs(2}'deg)'dfast*'dpeek+'dpoke,'drawto-'exit.'exp/'fadd0'fast1'fdiv2'ferase3'find4'flock5'fmul6'free3}7'frename8'fsub9'ftoi:'funlock;'getchar<'getdos='getkey>'gets?'getsec@'getwA'graphicsB'gtimeC'highmem4}D'indexE'inkeyF'isalnumG'isalphaH'isasciiI'isnumeriJ'isspaceK'itofL'locateM'logN'lomemO'mallocP'mov5}eQ'normalizR'noteS'openT'peekU'plotV'pointW'pokeX'positionY'printfZ'putchar['putsec\'putw]'rad^'r6}index_'rnd`'scanfa'setblockb'setcolorc'sfindd'sine'slowf'smatchg'soundh'sprintfi'sqrj'statusk'stick7}l'strcatm'strchrn'strcmpo'strcpyp'strigq'strlenr'toasciis'tolowert'toupperu'ungetcsqrj'statusk'stickg@@dADOUBLE densitySINGLE densityDrive #1 is  1N@  ;@/@LY3@5@4@9}6@OLY3@4@5@6@OLY} T G@i0)@"@ h6@ @ hL@@ h<@L@l @ hL:} AEnter drive # to changeA hL,A or press 'Q' to quit.* bQ1 2Ч<@LLA<@ G@6@ @L]A _@<@L@@ hLw/* CUBE.C *//* Draws 3D cubes */ int x,y,size,shade,bright,r,l,l1,xdif,ydif,i,delay,max;char text[20];main() $( slow(!<}); printf("\f\t3D CUBES\n\n\n"); printf(" change color\n erase\n set cube size\n clear screen\n"); printf!=}("Press arrow keys to draw cubes.\n"); printf("Use joystick #0 to move the cursor.\n"); printf("\d\d\tPress a key to star!>}t.\n"); getkey(); init(); /* initialize */ while(1) $( if((r=peek(764)) < 0xFF) $( if(r == 6) up(); els!?}e if(r == 7) down(); else if(r == 14) left(); else if(r == 15) right(); else if(r == 28) init(); /* escape !@}key, erase screen */ else $( r=getkey(); if(r == 'S') setsize(); if(r == 'E') erase(); !A}if(r == 'C') $( /* change the color by one */ shade=(++shade) & 0x0F; fixcolor(); $) $) !B} poke(764,0xFF); $) l=locate(x,y); l1=(++l1) & 3; /* cycle through 0-3 */ color(l1); plot(x,y); for!C}(i=1;i159) x=0; if(y<0) y=95; if(y>95) y=0!R};$)setsize() $( graphics(7+32); /* add text without destroying screen */ printf("size? "); gets(text); size=atoi(te!S}xt); max=(3*size)/5; graphics(7+16+32); /* restore the full screen */ fixcolor();$)erase() $( /* enter erase mode */!T} int ersize,i,j; graphics(7+32); /* open text window */ printf("erase size?"); gets(text); ersize=atoi(text); grap!U}hics(7+16+32); fixcolor(); color(0); poke(764,0xFF); while(peek(764) == 0xFF) $( for(i=0;i>> Φν`ɛ @`0 B V7E $@L@ECommand?* @LC @0L%e} @@C $@#LCU @6C $@$LCR @QC $@ LCE @HC $@!LCF @[C $@LCQ @C`D%f}CL_JP I@CL_JW @*CzLCC ML'HL#E#F $@L0FCopy from? G ILJHEF $@LOFCopy to? J%g} @`DEIB VLC8aC FL#E D' @? @ @* @LCY2y.` @C#DC{%q}BhDOS SYSB*)DUP SYSBSAUTORUN SYSBuTCC COMBSCEDIT COMBCIO C B -CIO CCCB8CONFIG COMB;CUBE C BZDCOPY COMBzDIR COMBDVC TXTB&FASTC COMBFCALC ACTB FCALC ASMBFCALC C BFCALC COMBGR8DEMO C B,GR8DEMO COMB>GR8DEMO LNKB#?LIFE C BbLIFE COMBtLIFE LNKBuLIFE OBJB!vLINK COMBPMDEMO C BPMDEMO COMBPMDEMO LNKBSNAKE C BTYPE COMC $@* @LCp0DEJB VLC80x1OytOur0 VLC`0CgC#`D%r}aCC $@* @LC`: `DEJB V`DEI B V䤿 D`xhyi bdOe V%s} DLGɈLFLJ J @DEIB VLCD:1`1H $@LGHMultiple copy from?%t} GTH $@L`HDevice to?@DEIB VLC@ɛQ@DA: A:B8ACCPDE%u}JB VLCʩȩKɢP`DEIB V0a`0L^I:`  .Ȣ ` Ƞ-C%v}LHiȐLH J eC $@L#EȩKɠș`@` FiȐL#Eɛ * ?``%w}BHILV JB $@* @LC@DBEJB V0`DEI B V`i0 B VLJ`ԩթ@J %x}$@LHJError #L @ @C`GHFH`iJ $@LwJ٠B G0DEJB VLC0 IKɛ%y} KJ?C,U. @թ* @LCLJLJ TJLJUЭ KJ JL#EJB VLC0 IKɛ$W0@@@@ |0@|@ 0|@?0||d0fI@@r0000K0}-0|r90h@@|00){}UK0|r90h@|<0$X@-0$X@K00**Error #%d%s000K0}-0|r90h@@|00(N Ȍ``LYR!PW GȌ` G0  }} 8 i i`)Ӣ  ) ) &i@`:@!6Kt <, (~}LV,` 8L `Ơ`Ȇɠ T*̅iʥi˩ͨ Π`ʆiȥiɠͱʅ̅} Ω`᥄⥅ -`᥅ 0-` q` l+` . 8 1Lhihič}ȱčȱĨL  &`` Jf``UVTLe M ` g!` . "L(/ g*` w*` L, /}L, L# LQ& . v!`  '`  '` L( .L% LA& /L, L7(  8 ,L L, Lj, L La, Ls, $!}` 2!` $` L25…ȱ…ťiÈią ȱiąՈL6ȱĈL6…ȱ…ťiñąՈąiȱiĈL6…}…ťi8ą԰ ȱąՈL6ȱąՈL6…ȱ…ťiñąՈą8ĐL6ȱĈL6slLO}\L…ȱ…8ԈĪBL…ȱ…8ԈĪ0(L#8¥ԥiàL6Ԅՠªȱ…Æ L68ª}0ƊL#˥ԈL#ФԈLq…ԥq…Lq6…ȱ…ťiåqąԥqąՈL6eȱeť}iåiđđL6eȱeťiLeȱeťiL'eȱeťiLVe}eťiLeȱeťiőđLq6eȱeňeԅȱeՅLq6eȱeťiñ‘ąՈ‘}Lq6eȱeűąՈąLq6eȱeňąԄLq6 ԄL6L6ƅȢ`BƅDž B VBF }ȝK)IJL_"S:_A [ a{`` " ȈȈ`҈ұ) ƝҠ) Ƞ)}`ƙȥ`ː"ʐ̱ȑ`eͅeͅˤȑʈȑʥˈ``}``` `ƅɈƅȹɛȩ`0:`` H c! *qHqƪh`L!lȱňı8}8必ƥDZ…ȱ…ťi !ԆL7 ! T`* b`Lb" `ƅˈƅʈƅɈƅ` !ƝB }EƝD IƝH ƝJ ƝK V Ii`` !L!BHIL_"ȱ G"F""}" Lb" "ձʑ `ƙȄͦʥ``ƅɈƅȢ`ƅȱƅ̠ƅȱȪ̑Ȋ` }"HȱȪh` "ȅȱȅͥˑȥʈȦͥ`ƅƅ إԅ) ٥0Ԧ`IIi`eԅԐL6e !ƙ}ȩ̭ʈ` !ƝLȱƝMȱƝN%BL_" r" H r"h`Lb" "ƈL"HpƝDȱƝEhBL_"#$} ީ!&$ȩ&$`&$' 2$2ƅȱƅL180H1h`eHȱeǪh`ƅɈƅȱȥȦ qLM60``} ` !iȥi !Ȇ ȅɅL$`Т   ````/1ɱƍB% &Ƞem-1ȭ.}1eɅɠƅȱƅˠʨ˱ʑȈʑȠƍ`e΅T e8΅T[U\VLee̅T e8̅T[U\VLeƙ}΅υ 8ԅ ̐`e΅UeυV g%e̅UeͅV E%8΅UυV g%8̅UͅV E% & &iee}ԅL<&8̅ԥͅե & &i eeՅL%ƪȱƨ ݩLd&ƪȱƨ ݩ$)ԩ#e' (ې`)8@0+}Յ)e)e ݦ `F ݢ5' `ڢ ڰ' @ݢ F IԠƅˈƅʢL,U9}>`D'RFuCU?b9dYdg@W2@?tS)%@```/ 6/B`,1`6/B` ' BL_" 'B V()`}` !ƝIƝHƝEƝD` " ``` ƪТ`ƪƨ0 =Т` ƪ Т`ƪ}ƨ0 = Т` &(` &(`ƪ q`ƪȱƨ ݩ)@0)%ԅԢ ޢ ڰ9 @ݰ.} ڰ" fڥԅԥ /' (L&ƅȱƅȄ`̽ɛ ,`̽ɛ ,` )h}hLb"̮֩(HIDEB V8``ʅ͍(ȩɱƍ(ƅɈƅȄ (ʱ` g*% Lb"} H (hD$̅ (ԑȥՑ (Ls)F$̅ (ԑΈ (Ls)S$̅ ( (̪8ĨȩΈʈ}Ls)CLs) (̽ (Ls) "̄ͱʅαͥ``ȱܱƅɈƅȢ`{a `}A[i Lq* "Π g*Ȉȱ :& șȈ..Ȅ̤αʤ̑`@}i`ƝDȱƝEBȱƆ g*ARWUD`   J V0JJJJ`Lb"ƨx`ƨТ`}ȭ Ȑ Ң`ƝEƝDBI VLb"($` !L+ !B0ƝKƝDȱƝELB+FL3ʱƪȱƨ } ؠ0.)ȩ.ȩ0ȩL2ȱ)L ,ƅƅƅ͈ƅ̄ LV,ƙșʙ`̈` <, LV,} <, fLV, <, `LV, "ș ޠʈ`) 5Ԇՠƅȱƅ ٥΅L, <, ަʤ LV, "ș L,}ƅɈƅȠș ٦ԥ`&&& L*- `ɀE ɀf8ਊ }-$ 8$P 8`E0 IIL-8L-Ff eeFfff}$ 8`!6 7,7666=7T7]7k777?8777818J8f8w888888889 9H9n9~9999999999:$:9:S8Bx:}Obw3Ot ..L:[:b:t##7~855v55…ȱ…ťi .L6l8…iƥiȱ}.ȱ. 0ԆՠiL6Ʃ`ƩǠ`ȆɄʥˠ``  5L(/  w'L(/  l'L(/  ,L(/  #L}(/ / /#L(/ "ƠLj ƅɈƅȠƅʩˠL*ƅՈƅ ؠƅȱƅɠ0)ȩ`86ƍ/ȭ6ƍ/} /6/6``m66ȱm66`5``L6L}4Lc1L"LK*L"L*L L*L+L"L5Lr"L"L!L!L1L!L+L+L4L*Ld*Lt*L"L#L"#L},#L'LF#La,LLj,Ls,L|,L,L,L;'L@'Lf LQ&L,L,L,L5L7(L LQ5L4L4L4L4LU+L_+Li+LJ'Lb'Lw'Ll'L'LH L LwL>!L-L0-LM6L$!L2!}Lc!Lv!L!LX5L#L#L#L#L$L$L$L"$L5$LO$L^$Lm$L$L$L$L$L$L%LA&LD'L'L'L'L(L(L2)L\'Lw4Lm4Lo/L/L/LO4L/Lc/L/L}H/L-/L6/L?/LQ/LZ/L25Lm5 " 80`` !2F 2G2 22ƅȱƅL1҅ɈƅȩT 222Ȅ}ʩ 6΅ϩ666 66 6% 2 6L1 2 6L1`(LTȱ% g*N 6N6L2.6L2AL2}ȱ: 0蝀懲詛 6 ٭6 ԅά 6 6L2ԅϬ 6L2 6UD LZ3ȱL2ȱ6IՈIiL2Ո}ƅ ح 6+06Ȍ66έ6ΐ 2 3L3 3Υ 2L36 - 2Π0. 26}L*3)L26`XL3Ȍ6ƅՈƅԥ6H)JJJJi0:i 2h)i0:i 26 6Ly3 6L1C ʱ }2L3SL+ʱƅȱƅŭ 6 4L3666ΰ 2 4L4 46ΰ 2L3 2`ƍƍ})Hƨh`ƠƠƠ /ȊLf .4 l` .48 "L"ƅVȱƅTƅU` 4 eLb" 4`B}L_" 4 NLb" !ƅɈƅFi4Gi4 4者L4 `hhLb" ! BL_"0`8Hƪh`?Pȱ}ƪ,Ơƈƪ5ƠƠL,ƍ`ȱƪƝ 6`U` !C`…ȱ…ňiȱiĠªȱ…Æ L6eȱeL}5…ȱ…ťiÈ8ȱ0L#iàL6eȱeťiL5"6"6@©6 O$6}6@@L6@"J6M6B"/ w@6`iàL6…ȱ…ťiÈԑL6…ȱ…ťi}åՑĈԑL6ȱňĥԑĥ8ê-6-6L.…ȱ…ťiÈąԄL6…ȱ…ťiñąՈą}L6eȱeLq6ȱňĥԑĥȑĈL6ԅԄL6ԪȱԈՆL6i‘ȱ‘Lq6…ȱ…Lq6iԑȑL}6ԱԊȦձՊL6iȱª¨„ iiȑÈL6q…q…ȱÍ88L6±Š}ȦñÊL6ªȱ…ƈL6 L18Lq6 ȥL)Lq…q…Lq6&L6&ձeԅȱeՅՈL68ԅȱ}ՅՈL6ԅՅȱ -ԥL6 8L8 8ԥL6ȱդL0-ԅȱՅՈL6EԅȱEՅՈL6%ԅȱ%Յ}L6ȱJfՈL6ȱL6ȱ*ՈL6ԱL68ԅԩՅL6EԅԩEՅL6L6}L68Ԫȱ`ȱL6ȱԄL6 90 90 90ʊ 90ȱՐɱԐȱ}зԐЭȱՐЎԐL9ȱՐ԰L9…ԄL6ԄL6i‘ȩL6}This is a sample disk of the DVC C compiler package. The completepackage comes with a double sideddisk (64 files) and a 6-}2 page manual.If, after trying out this sampledisk, you decide you would like thecomplete package, then send a checkfor $-}35.00 to:Ralph E. Walden1821 JeffersonEugene, OR 97402Please indicate single or doubledensity, and who you got this di-}skfrom. As you use the programs on thisdisk, please keep in mind that thisis a sample version. As such, thedocum-}entation is brief & incomplete.There are many more capabilites thanare presented here. The purpose ofthis disk is to let -}you try out prog-amming in C before you decide whetheror not to purchase a C compiler. On the next screen is a compar-}-ison table of various C compilersrunning the sieve benchmark. Timesgiven are in seconds; file size is inbytes. -}Digital is a C compiler avail-able for the Atari ST by DigitalResearch. Lattice is a top rated Ccompiler available for th-}e IBM PC.COMPILER |COMPILE|LINK |RUN |SIZE------------------------------------DIGITAL |77 |150 |4 |9,107 LATTI-}CE |33 |40 |11 |19,328BLUE C |71 |73 |460 |5,522ACE C |11 |23 |267 |861 | | -}| |DVC |9 |16 |184 |283DVC65C02 |8 |15 |130 |283DVC 130XE|3 |2 |184 |283 | -} | | |BASIC | - | - |2,700| - Here's how to compile a programfrom DOS (options in brackets areo-}ptionally included).CC [filename(s)] [FASTC] [LINK] [RUN]Or, from the editor:filename [FASTC] [LINK] [RUN] CC expect-}s a C source filename withthe extension ".C" (added automat-ically). It creates an intermediaryfile with the extension ".-}CCC".FASTC will optimize the file. LINKlinks various ".CCC" and ".OBJ" filesusing a file with the extension".LNK", which-} contains a list of thefilenames to link together. LINKwill create one if you don't. Thefile CIO.CCC (source is CIO.C) i-}sequivalent to the STDIO.H or runtimefile found in most C compilers. You can run a C program or anyprogram on th-}is disk with the exten-sion ".COM" by typing in it's nameafter the DOS prompt (you don't haveto include the ".COM"). The f-}ollowingfiles will be found on this disk:CC.COM - compilerLINK.COM - linkerFASTC.COM - optimizerCEDIT.COM - C editorC-}IO.CCC - runtime libraryCIO.C - runtime source codeDCOPY.COM - file I/O (DUP.SYS)DIR.COM - directory listingTYPE.COM - l-}ists files to screenPMDEMO.COM - player/missile graphicsGR8PLOT.COM - high speed graphicsFCALC.C - floating point in CF-}CALC.ACT - floating point in ACTION!FCALC.ASM - floating point in assembly languageCUBE.* - gameLIFE.* - gameSNAKE.* --} gameXEDRIVE - RAMDISK for 130XEMOSDRIVE - RAMDISK for Mosaic boardsDVC.TXT - what you're reading!* - gameSNAKE.* -,k0@bRDqB @ZC$+@B +@ZC|BB V@B V@BH&@B"@B#{@;1}:B$@:UBB#@B"@=:B$@<UB @B @ BH&ApBpB,|BB1}q q^eR@ AB A BH&GABB@CeD ABqqL~Aq H~1}AqH~AqJH&AB>CeD AB H&ABqqfAqJAqhAqL&A1}B9CeD BBAC1BBFCeDBCeD B1}CeD q~N0 q~rQ0 q~H0 r0BD000r60fBD000 rpB qhB gRq&B1}gRq|B$B ^eRrB .,.,&>Cq~q~ xxx$C BCeD 1}BjC rrpB>|BB^q^eR q~ qq ^eR &D0qBqD0&CDD0q1}q 0qD?0qr0 cRf DDq00$C$Crr 0D0q0q0&[DD0q0$1}8Dr0qqr0q~ qq~ q Filename? :LINKLINKCCCCan't open: %s Q00Q00&)F eRqg1}R@u0CRq000 qq2. q q|0q.qcR0pq qqpqZ&KE Rq2000cR!01}qw0 cR,Fqq.2. qqqqq.0qqq.. qq qq2. q qqDq,F3ReReREJR$EKR1}00MRqqE`R$EaR00qqq.cR0qq.hDqqq.cR0$DqqV&QqqqhNFq.L1}&]F`q`q $,FBqq\vF\vF$FeD$,F\F$Gq"FBH&F B#FB0C$G/C$G1}q#FBH&G B"FB2C$G1CeD$,F\G$G@$,F\+G\+G$4GeD$,F\KG\KG\KG\ K1}G$WG`q`q $,F\ _G${HB}GqA}GBH&Gq q? qqN0Q0eD^eRqxHBGq1}GBH&Gq q8 eD^eRqxHBHq HBHBH&>Hq q7 eD^eRqxH1}BQHB&rHqM q eD^qeRxHeD$,F\ H$IZCq HqqqfHqJHqhHqfH1}q J&FIB C$FIq'HBH&Iq& pB|BeRQq)$IBH&FIq( pB1}.|BeRQq&WIBH&IpBwI`qL q qeRQBIqK q eD^qeRQeD$,F\ I$LB 1}IZCB IBH&JBqq&MJB3Cq.A Jq.S ^qeD$,Fq.DJq.1}R ^qeD$,FeD$,Fq(^J4?C$,Fq*oJ5?C$,Fq,J6?C$,Fq%JB&Jq&Jq qBeDeR1}Qq$JB?C$,Fq%JC?C$,FBJBH&KBqq&KD?C$,Fq(KE?C$,FB /KBH1}&MKB7CeD$,FBcKBH&KB8CeD$,FB KB H&KB%KB1}&Kq&Kq qeDeRQBKB KBH&LpB|BB?CeD$,FB 2LB1}&2Lq&sLB%TLGC`q`q $,FB$sLHC`q`q $,F`q`q $,F\ L$LeD$,F\L$L`q`q $,F\1}L$LeD$,F\L$L`q`q $,F\L$LBeDq,Fq q^eR$,F\L$ MBeD$,F\M$MB@M1}pBpB,|Bq qeRMBeMOCq eDqMBMqP eD^qeRMeD$,F\M$MB1}MQC$,F`q`q $,F\.M$MBeD$,F\/M$NBMqT eD^q^eReD$,FeD$,F\0N\1N\2N$"Ne1}D$,F\39N\49N\59N\69N$HNBeD$,F\7PN$NBcNB&NNCq eDqNeD$,F\8N$NeD$1},F\9N$NqANBH&NqA q? qqN0Q0eD^qeRNeD$,F\:O$0OB'OqU eD1}^q^eReD$,FeD$,F\;LO\<LO\=LO\>LO\?LO$UOeD$,F\@]O$fOeD$,F\AnO$OB3OqS eD^qeDeRO1}eD$,F\BO$OpBO C$,FBeD$,F\CO\DO\EO$OBeD$,F\FO$OeD$,F\GP\HP$P`q`q $1},F\IP$$PeD$,F\J,P$5PeD$,F\K=P$FPeD$,F\LNP$ZP`q`q $,F\NbP$PBxPq qeR~PeD$,F\MP\OP$P1}eD$,F\PP$PeD$,F\QP$P`q`q $,F\QP\SP$P eD$,F\TP\UP$PeD$,F\P$PeD$,F\Q$QB&Q1}pB'.L&`Qq qpB'.K0qpBQ0eDq qeRQBzQpB qL&QgRq1}pBeD$,F\Q$QeD$,F$Q $,F$Q$,F }DVC OPTIMIZER Version 1.02(1985) by Ralph E. Walden%s <1}-- ***ERROR***%s is greater than %dK bytes%d new instruction%s.s %d less byte%s.s by Ralph E. Walden%s <0^; A simple floating point calculator INCLUDE "D4:CIO.ACT"INCLUDE "D4:FLOAT.ACT"PROC main() FLOAT a(6),b(6),sum(6) 5}BYTE C cprintf("A simple floating point calculator%n"); cprintf("}Enter a number, a space or RETURN,%n,an operator, a spa5}ce or RETURN%n"); cprintf("and a second number.%nExample: 2 + 2 RETURN%n"); cprintf("Allowable operators are: +,-,/,*%n%n5}"); cprintf("Press BREAK key to quit.%n%n"); while scanf("%f %c %f",a,@c,b) >= 0 DO cprintf("%f %c %f ",a,c,b) i6}f c= '+ then fadd(a,b,sum) cprintf("= %f%n",sum); elseif c= '- then fsub(a,b,sum) cprintf("= %f%n",sum); elseif c= '*6} then fmul(a,b,sum) cprintf("= %f%n",sum); elseif c= '/ then fdiv(a,b,sum) cprintf("= %f%n",sum); else cprintf("%c is6} an unkown operator.%n",c) fi OD RETURNseif c= '/ then fdiv(a,b,sum) cprintf("= %f%n",sum); else cprintf("%c is410100 ;A simple floating point calculator to show how to use floating point functions with MAC/650110 ;Compare this program w:}ith FCALC.C and FCALC.ACT0120 ;0130 .INCLUDE #D1:ION.DVC0140 .INCLUDE #D1:DVCIO.M650150 .INCLUDE #D1:FLOAT.M6:}50160 *= $40040170 JMP MAIN0180 ;0190 ;reserve space for variables0200 ;FA .FLOAT 0 ;SUPERCARTRIDGE version O:}NLY!0210 ;FB .FLOAT 00220 ;SUM .FLOAT 00230 ;0240 FA .BYTE 1,2,3,4,5,60250 FB .BYTE 1,2,3,4,5,60260 SUM .BYTE 1,2,3,:}4,5,60270 C .BYTE 00280 ;0290 MAIN DISPLAY "}Floating point calculator with MAC/65.",EOL0300 DISPLAY "Enter: # :}[space] operator [space] #",EOL,EOL0310 MAINLP SCANF "%f %c %f",FA,C,FB0320 CPX #0 ;bad input such as hitting th: }e break key will exit to DOS0330 BEQ OKAY0340 RTS ;return to DOS0350 OKAY PRINTFS "%f ",FA ;PRINTFS is u: }sed for floating point and strings0360 PRINTF "%c ",C ;PRINTF is used for chars, integers, and unsigned0370 PRIN: }TFS "%f ",FB0380 LDA C0390 ADD? CMP #'+0400 BNE SUBTRACT?0410 FADD FA,FB,SUM ;SUM=A+B0420 JMP ENDSWIT: }CH0430 SUBTRACT? CMP #'-0440 BNE MULTIPLY?0450 FSUB FA,FB,SUM ;SUM=A-B0460 JMP ENDSWITCH0470 MULTIPLY? CMP: } #'*0480 BNE DIVIDE?0490 FMUL FA,FB,SUM ;SUM=A*B0500 JMP ENDSWITCH0510 DIVIDE? CMP #'/0520 BNE UNKOWN:}0530 FDIV FA,FB,SUM ;SUM=A/B0540 JMP ENDSWITCH0550 UNKOWN PRINTF "%c is an unkown operator.%n",C0560 JMP M:}AINLP0570 ENDSWITCH PRINTFS "= %f%n",SUM ;NOTE: %n is used instead of \n0580 JMP MAINLPoperator.%n",C0560 JMP M8`/* FCALC.C *//* A simple floating point calculator */ main() $( char a[6],b[6],sum[6],c; /* a,b, and sum will be used a>}s floating point numbers */ printf("\fA simple floating point calculator\n"); printf("Enter a number, a space or RETURN,\>}n,an operator, a space or RETURN\n"); printf("and a second number.\nExample: 2 + 2 RETURN\n"); printf("Allowable operator>}s are: +,-,/,*\n\n"); printf("Press BREAK key to quit.\n\n"); while(scanf("%f %c %f",a,&c,b) >= 0) $( /* BREAK key will r>}eturn -128 */ switch(c) $( case '+': fadd(a,b,sum); break; case '-': fsub(a,b,sum); >} break; case '*': fmul(a,b,sum); break; case '/': fdiv(a,b,sum); break; >} default: printf("%c is an unkown operator.\n",c); continue; $) printf("%f %c %f = %f\n",a,c,b,sum)>}; $)$): printf("%c is an unkown operator.\n",c); continue; $) printf("%f %c %f = %f\n",a,c,b,sum)< 0@@@A@A@00@008A00dA00A00A|||&1h@\+I@$Y@|||`0$@\-a@$q@|||cB}0$@\*y@$@|||Z0$@\/@$@|||]0$@$@A00$)@$@A||| 00$)@}A simple floating point caB}lculatorEnter a number, a space or RETURN,,an operator, a space or RETURNand a second number.Example: 2 + 2 RETURNAllB}owable operators are: +,-,/,*Press BREAK key to quit.%f %c %f%c is an unkown operator.%f %c %f = %f+ 2 RETURNAll@n/* GR8DEMO.C *//* demo of GR8PLOT.OBJ */ #include gr8plot.cint x,y,delta,diff,radius,i;main() $( printf("\fThis is a F}demonstration of the\ngraphics capabilities of GR8PLOT.OBJ.\n"); printf("The circles are being drawn using\nAtari's plot() F}and GR8's fplot().\n"); printf("You may switch between circles by\npressing a key. The switch will not\n"); printf("occuF}r until the end of the cycle.\n\nPress a key to start.\n"); getkey(); graphics(8); fsetup(); /* This HAS to be called aF }fter a graphics(8) and before and graphics functions */ setcolor(2,0,0); /* black screen */ while(1) $( printf("\fNorF!}mal Atari graphics\nPress a key to see GR8PLOT graphics\n"); while(!inkey()) $( color(1); for(radius=5;radiusF"}<80;radius+=5) circle(160,80,radius); /* plot circles */ color(0); for(radius=75;radius>0;radius-=5) circle(160,8F#}0,radius); /* erase circles */ $) if(getkey() == 'Q') exit(); printf("\fGR8PLOT graphics\nPress Q to exit to DOS,F$} or Press\n any other key to continue.\n"); while(!inkey()) $( color(1); for(radius=5;radius<80;radius+=5) fcF%}ircle(160,80,radius); color(0); for(radius=75;radius>0;radius-=5) fcircle(160,80,radius); $) if(getkey() F&}== 'Q') exit(); printf("\fAtari drawto()\n"); while(!inkey()) $( color(1); for(y=0;y<160;y+=5) $( F'} plot(0,y); drawto(319,y); $) color(0); for(y=155;y>=0;y-=5) $( plot(0,y); drawto(3F(}19,y); $) $) if(getkey() == 'Q') exit(); printf("\fGR8PLOT fdrawto()\nPress Q to exit to DOS, or Press\n anF)}y other key to continue.\n"); while(!inkey()) $( color(1); for(y=0;y<160;y+=5) $( fplot(0,y); F*} fdrawto(319,y); $) color(0); for(y=155;y>=0;y-=5) $( fplot(0,y); fdrawto(319,y); $)F+} $) if(getkey() == 'Q') exit(); $)$) for(y=155;y>=0;y-=5) $( fplot(0,y); fdrawto(319,y); $)D/0@@iEIAILBLDLDEJ)jJJLAƅ\Jƅ[)jJJƅZ` `@`y@@iJ-}A`AI1`@ ƅvƅuƅw AZ [\`Z ZyLJBZ8圅y\8[\zJ.}[8[嚅\囅z ŒL%CLC撩 iԥi (ۥօqs ٥ԅprt Atz ƛƚLBJ/}ƑLCƐtrӄtreyƒ u[v\wZ`seqsإperrLBLCԩ ݥ撩 (ۥօqs ٥ԅprJ0}t AteyƒLC AteyƒLCtrtrz ƛƚLC曥ƑLCƐseqsإperrLcC AeyƒLC J1}AeyƒLC Az ƛ0ƚLD曥ƑƐܥLCƙ΅υ 8ԅ ̐`e΅[eυ\eJ2}̅ A8̅[\ Ae̅[eͅ\e΅ A8΅[\ A8΅[υ\e̅ A8̅[\ A8̅[J3}ͅ\e΅ A8΅[\ A & &ieeԅL?E8̅ԥͅե & &i eeՅL>off<<\n",cls()); else printf(">>on<< \n",cls()); change=z; RJ} $) $) color(z); plot(x,y); tx[(x<<6)+y]=z; if(d<15) $( if(z == 3) adjust(); /* check RK}for x and y boundaries */ for(t=0;t <= 300;t++); place(d); continue; $) c=getkey(); RL} if(c == '<') $( z=0; continue; $) if(c == '>') $( z=3; continue; $) RM}if(c == ' ') break; d=15; if(c == '+') d=11; if(c == '*') d=7; if(c == '-') d=14; if(c == '=') RN}d=13; if(c == 'D' || c == 'd') $( printf("Press arrow key to indicate direction."); c=getkey(); RO} if(c == '+') d=111; if(c == '*') d=17; if(c == '-') d=114; if(c == '=') d=113; $) printfRP}("Press number, or '.' if greater than 9.\n",cls()); if((n=getkey()) != '.') n-='0'; else $( printf("NumbRQ}er?"); gets(numb); n=atoi(numb); $) color(z); for(t=0;txmax) xmax=x; iRT}f(yymax) ymax=y;$)life() $(/* change ncells */ poke(764,255); graphics(MODE+32); while(!inkey(RU})) $( e=n=0; yt=ymax+2; xt=xmax+2; for(y=ymin-1;y4)) $( ex[e]=x; /* erase cell duRW}e to overcrowding */ ey[e++]=y; $) else if(ncells == 3) $( nx[n]=x; /* new cell or keep tRX}he old cell */ ny[n++]=y; $) $) $) if(n) ++count; else $( graphics(MODE-16); /* allRY}ows text window */ printf("%d generations\n",count); printf("\nPress space to continue\n"); getkey(); RZ} return; $) color(0); for(t=0;txmax) xmax=c; if((c=ny[t])>ymax) ymax=c; else if(cYMAX-2) ymax=YMAX-2; if(xmax>XMAX-2) xmax=XMR^}AX-2; $)$)kount() asm 0x600;place(data)int data;$( if(data == 11) --x; if(data == 7) ++x; if(data == 13) ++y;R_} if(data == 14) --y; if(data == 111) $( --x; ++y; $) if(data == 17) $( ++x; ++y; $) if(data == 113R`}) $( --y; ++x; $) if(data == 114) $( --y; --x; $) if(x<1) x=1; if(y<1) y=1; if(y>YMAX) y=YMAX; Ra}if(x>XMAX) x=XMAX;$) $) if(data == 114) $( --y; --x; $) if(x<1) x=1; if(y<1) y=1; if(y>YMAX) y=YMAX; P0@G@kF00F00NF00F00F00F00F0000G00300WQ0kQ0kQ0kQVc}0& CG|kG.u0K0' k k k k k k|k k k.000C k0 k@H0H&>A`kVd}0k: kkk0|kkJ&@k)AGG C00$5AQG C00k|k$@k0kk0Wk>pk,k kfVe}AkyAC kkf-A$A`k$}A$AkoE$@30GG<A k$@G>A k$@G A$C kG+A kG*AVf} kG-A kG=B kGDHBGdH&]B[G0030GG+6Bo kG*CB kG-PBr kG=]Bq kG CVg}0030 k.Bk0. k$BG00rk60rkW0 kk0 kkk@$BkBkoEkBkk0Wk>pk,Vh}k CWk>pk,k $B$@KC$r@ G00 kk Ck kkk.Ck kkkD.0Gk00G0030 0 kkkD$XDkHDVk}GpkKpk0WGpk>Kpk,, $SDO k kS k k0 kkk7E$DkDOpkSpk0WOpkVl}>Spk,, OpkGkEG k$EGkEG kSpkGk&EG k$DGk4EG k$DkfDE kkfQE kVm}kh-^E- kkhM^CM k$^C zEbkE^k E^kEbkoEbk^kE^k^kqEbk^krEbkVn}bkkfE kkfE kkh/E/ kkhOFO k }The game of LIFEUse joystick #1 to move one cell at a time.Vo}Use arrow keys (without control key) followed by a number to move more than one cellPress Ġ to move diagonallyVp} will turn cursor off (erase mode) will turn cursor on.Press space bar to start, or to stop.Press space to begin.Vq}>>off<<>>on<< Press arrow key to indicate direction.Press number, or '.' if greater than 9.Number?%d generaVr}tionsPress space to continueo B B B B B B B B B B`JfJfeVs}e損iej`ontinueo B B B B B B B B B B`JfJfeTciolifelife.obj`ontinueo B B B B B B B B B B`JfJfeXo B B B B B B B B B B`JfJfee損iej`e\v0@OG@ƅȱƅȱƅȱƅȱƅȱƅȱ`eԐ襳ű֩`qȥqɈƑȱibw}ȱiiȱi`2BO NOp2 PNPT&B`NMf@,BM\@$4ANH0NN0bx}N NNANPT&BNH0NN0N N$@$B\FA\FA\FA$YAN N, ,$B\aA$ANN0 2by}h'A2'.,$A2,N N$B\A$A^N,B\A\A$TBNN0'. 2N NNs >,p bz}N 0,, NZ ,.,N0jGr00H sGrrr000H $^C, & b}}&*0&p$.*0$*0, & $ &CvC$C rU@<C U@$heCQC  4b~}2BO NOp2 PNPT& F`NMfDMjDNN0'. KVT;DKTX&jDCNH0.CKb}CN N$CMM,U@$heCQC$CM\D$DN NNDNPT& FN N$D$ F\D$DNU@Nb}CN N$ F\D$DN N$ F\E$ E`NC$ F\E$1E4NN0,CN N$ F\9E$xENN0 2f'ZE2b}C$mE2'.CN N$ F\E\E$ENN$0, N$ F\E$ENN0 2N Nd2h F`NC$Eb}$ F\E$E,NN0, ,N NQC$ F$EG(C$ F$E$CNPJ&FG(C  22 F$;F2+FLp26Fs2b}>,p2 66F 8hF,Z2,Z8$FG600$6FFH .. G$F.Fs.>,pb}. ..@ 00F@ .p0 .L.,G. $F@ More than %d globals!bad byte code.bad CCC fileCCC filb}e too largeCan't read .CCC fileerror %s%s %s - Error #%dbad op codebad CCC code %s I喔Q0b}$Q0,Q0 K00AN00&H X@ VIMIN?0IN0&H5N)1IIN0, II 0b}.,0&bHII 0., 5I 0IN?0IH$G00N00300 B " ~&H~b}.J&HH|r 0|,N 0|,&I|,|v, $H|, N|00V ,,u0&u0sb}(#u0Lu0Zu0r0 >fIw0 > *N>0p*.I`*,>'0$I>'00b}r0 >fIN(C|w0 *fIN|*7C, &  *|>L&J|r0 (f,JN|(7C4||b}O0OJL$JO0&J@^"DD FF&uJ$dJ"FF DD FF&J$J"FF (!0$b}I>!0O,00 Fr0 >fJ"O>7C, TV@KV & ,$KV & , " $0OF L&L|r0 (fKKO|(7C4||^O0`O0&@LOnO$(#,b}(0.*0$vLdO0&rLCQC^"" " $vLL(!0$K>!0*!0hO(C |rb}r90hcM0&LL1&LL-L*&MzO,gM V ,00$7M+M*&-MOgM b}X00$7MOr000FM$LO?0rr 0$L|vB0 &M0&M|>:,$nMb}h@MGL&M|>7.,$M$M$nMr0NO000r60fNO000 rr 050&7b}NO050$Nr0}DVC LINKER Version 1.05(1985) by Ralph E. Walden :RUN..LNK*b}**FATAL ERROR***Press key to continue..COM%sCIOCan't open LNK filecan't write can't find.CCCb} 0x%xCan't re-readmainNo main()pass 2...can't re-open file.OBJCCCunknown file type 0x%x - 0x%xb} 0x%x%sCCCFilename?  pass 2...can't re-open file.OBJCCCunknown file type 0x%x - 0x%x`)/* PMDEMO.C *//* Demo of the player/missile graphics */ int x[4],y[4],dx[4],dy[4],shape[4],n; /* we use globals because f}they are faster than locals */main() $( char i; poke(764,255); /* get ready to look for a key press */ pminit(); /* inf}itialize player-missle graphics */ pmgraphics(1); /* single line resolution */ poke(710,0); /* background black */ putcf}har('\f'); /* clear the screen */ poke(0x2F0,1); /* turn off the cursor */ position(10,9); printf("A PM Graphics Demo\nf}"); position(10,10); printf("(look at PMDEMO.C)\n"); position(9,12); printf("Press to start.\n"); position(9,f}13); printf("Press a key to quit."); for(i=0;i<4;++i) $( pmcolor(i,4*i,8); /* define the colors */ pmwidth(i,0); f}/* normal width */ $) ballhack(); pmflush(); /* clear player missle graphics */ poke(764,255); /* clear the key */ f}exit();$)ballhack()$( shape[0]="\10\0\0\0\0\0\0\0\0\0\0"; shape[1]="\10\0\0\0\0\0\0\0\0\0\0"; shape[2]="\10\0\0\0\0\f}0\0\0\0\0\0"; shape[3]="\10\0\0\0\0\0\0\0\0\0\0"; for(n=0;n<4;++n) $( x[n]=105+(11*n); y[n]=80; while(!(dx[n]f}=rnd(3)-1)); /* randomly select directions */ while(!(dy[n]=rnd(3)-1)); $) chget('d',shape[0]+2); chget('e',shape[1f}]+2); chget('m',shape[2]+2); chget('o',shape[3]+2); for(n=0;n<4;++n) pmload(n,x[n],y[n],shape[n]); /* load the shape */f} while(console() != 1); /* wait for to be pressed */ while(!inkey()) $( /* until a key is pressed */ for(n=f}0;n<4;++n) $( pmload(n,x[n],y[n],shape[n]); /* move the shape */ x[n]+=dx[n]; /* add the directions */ y[n]f}+=dy[n]; if(x[n]<41) $( dx[n]=1; continue; $) if(x[n]>200) $( dx[n]=-1; conf}tinue; $) if(y[n]<32) $( dy[n]=1; continue; $) if(y[n]>223) $( dy[n]=-1; f} continue; $)/* if we were looking for who we collided with, we would use hitpl(who,hitwho) */ if(hitpl(n,-1)f}) $( /* did it hit anyone? */ dx[n]=rnd(3)-1; /* new directions */ while(!(dx[n]=rnd(3)-1)); while(!(f}dy[n]=rnd(3)-1)); y[n]+=dy[n]; pmload(n,x[n],y[n],shape[n]); pmclear(n); chget(rnd(127)+1,shaf}pe[n]+2); /* new shape drawn from character base */ hitclear(); $) $) $)$) chget(rnd(127)+1,shad`0@@@F@CK0DtDK0}-0K0 0bC00 0vC00 0C00 0C00j}| f@$@D $r@0#1\E$}@@QDK00DnCDnCDnCDnCj} DDfPA$@^D$@CDi D0,CDPCD0.4A$ACD0.MA$4A$@dDnEeDnj}EmDnEoDnE DDfA$A^D$ADCDCDDD 1$A1A$A0aC Dj}DfA$A^D$ADCDCDDD 1CDCD,CDCD,CDf)YBCD$ACDj}huBCD@$ACDf BCD$ACDhBCD@$AD@1&ACD0.CD0j}.B$BCD0.C$BCDCD,DCDCDDD 1DmE0DDE1j}$A$A A PM Graphics Demo(look at PMDEMO.C)Press to start.Press a key to quit. j} DF FԚK0 FjK00F0F<K0 tD<K0jK00 &j}D/D>$D.K0КK0D$DFFu0FD$D, FfCE$Dt$DЂ,K0$j}D$CE/"K0КK0fCE$$Et$EЂ,K0 Ђ,K0$E-1FQ0/1FQ0Ќ,K0 Fj}F>,F>u0 >pF0 >n0 r>pF0 FF>, K0UrQ0Tj}K0@@@@ 0 p:,H0 |:,H0 0:\CF$IF $QF\QF$[F@ $[F$[F $cF$[F 0 j}:\xF$~F $F\F$F@ $F$F $F$F 0 |:,H0 0:\CF$IF $QF\QF$[F@ $[F$[F $cF$[F 0 h*pmdemographicscio$F@ $F$F $F$F 0 |:,H0 0:\CF$IF $QF\QF$[F@ $[F$[F $cF$[F 0 l/* SNAKE.C*/main() $( int s,x,y,zx,zy,z,sc,hs; slow(); printf("\fThe object of this game is to draw the\nline though r}as many boxes as possible\n"); printf("without touching the line or the border.\n\n\n"); printf(" Press button to r}start.\n"); while(strig(0)); sc=hs=0; while(1) $( graphics(11); poke(710,0); /* screen black */ zx=1; zr}y=0; x=40; y=90; color(10); /* draw the border */ plot(0,0); drawto(79,0); drawto(79,191); drawtor}(0,191); drawto(0,0); box(); while(1) $( /* while no collision with self or border */ z=locate(x,y); r}if((z == 10) || (z == 5)) break; /* collision with self or border */ color(5); plot(x,y); if(z == 15) $( /*r} hit a box */ sc+=10; box(); /* draw a new box */ $) s=stick(0); if(s<15) $( /* joystick war}s moved */ if((s == 14) && (!zy)) $( zx=0; zy=-1; $) if((s == 13) && (!zy)) $( r} zx=0; zy=1; $) if((s == 11) && (!zx)) $( zx=-1; zy=0; $) r} if((s == 7) && (!zx)) $( zx=1; zy=0; $) $) for(z=1;z<100;++z); /* slow down! */ r} x+=zx; y+=zy; ++sc; if(zx != 0) for(z=1;z<170;++z); /* slow down horizontal which is faster than verticar}l */ $) graphics(0); /* end of the game */ poke(710,0); position(5,7); printf("score= %d\thighest = %d\n"r},sc,hs); if(sc>hs) hs=sc; sc=0; printf(" Press button to play again\n"); while(strig(0)); $)$)box() $r}( /* draws a random box */ int a,b; a=rnd(69-5)+5; b=rnd(179-5)+5; color(15); plot(a,b); drawto(a+2,b); drawto(r}a+2,b+2); drawto(a,b+2); drawto(a,b);$)(69-5)+5; b=rnd(179-5)+5; color(15); plot(a,b); drawto(a+2,b); drawto(p-0@@@TA@MA|(RH0.|tA@ PA}-0&@ NANAf}@$=@$/@|PA90 RAfS@$}@ ^@$}@NARA2,v} NAA|00$/@RAf@0A0030.A00$&@rr0@1A000r60f@