–€€Äû8°(@@START.BAT›BAT›38› START›©€  c©}…E © q0 \ ±C)ªÈCð±C¨Šæ8`¤D¥CeE…C˜i…D` ¢R¢PŒ  ˜ŽŒh©1©€ $E ÈŒ ©@®ìyÐ ­ðb Yä­Ò)ðÎhÐÜ­]ðL]¦˜`™¦ q   þ DÎMΩD¨™ÈÐú­ ðÉ © ¨™u jèŒç ¹Ú™)ˆ÷`©…0®Ó¬ ­ ,p0i…2˜ &28jJ…1f0¤2Š ü9ŽÐ˜¬ ðégÉ iJf0iÀ…1Š)þx ŒÔÓ­…2­…3­±2‘0Èùˆ±0‘2ÈùŽÓX©ÀÔ¦ `£§«¯ÃÇËÏãçëï  ’¥*ð'  } £ ¥*ÉÐ(LŽ Éð`(°ÉðÉ ðÉ ðL í l pL[ ª, ©L] í Â¥C i¨0¹€†ð ¹}‡É p û½ƒ gÞŠÞ‹Lh (° ž LD ©0´   „©…C¢ © ™ÈÊù¦ Ĥ™½†™©C™©™™  £ \©€‚îi ÝÐ+$+0'©};©›¼ˆ½‰ ”©€…$…(©…%©…)  b L[¥C €¥Œ¥©‚…Š‹`…D P¬^¹Éß°†"½)ð(¼…˜Ýƒ    °±$…Dþ…¥D}‘G©@‚‚Р‡L]½‚S¥")ðM T °H½‚0  ±G‘$Ș݃õ° b 8¥$}ƒ…$æ%8¥(ýƒ…(°Æ) T Æ`$E0¥(0ö¥)Ðò8` ±$‘GÈÄE÷˜…` P}½ÉÐ Li 8½…¨ýƒ°ðÉÿ±G…Dþ…  ½†‡ð}L[ P½ðH© ‚>Îi½€J¨½ˆ™½‰™‘ ; ཌ ¼½Šy™½‹y™©B }™ ' |L[ ¥"Éü°EÉ(°é ¨¹% H¹$ H©¤#` ¨L]B  0Â Ä ý G LO€<  (€ÿ dè lÉÿðHéÛª¥!ðA ¹3 ™ˆÐ÷ŒA ˜à Ð }Èj¢ŽA ¢!†ŒB …EI€C Yä$E0•¦  ­F € <©ÿ¨™À ЩˆÐôŒ7© J…N8Nd©Ã¢¤!Ð,P ¢Ž  ©hÐ0Ê J©óРd,ê Š©ñèÎ6 }ŽŽŽ©™ÈÐú™ÈÐú 'ÆÐù rÉ/Ð ¢ © ÊúÈè±$ €É›ðà ï©` ' à £L[ ’„ l }°- í ž¤ œ ÝÐ ¦¼½ } ”  ’Є ŠÖL[LÚ ’ }°õ ž ž ' ŠÐð àL[ í ©€™  p ˜™îÐî ê`© g ’ l }°ª¤¹)ß g™ ' Š }ÐéL[¤¹) ðÌ §, ¦L]¤TÈð-½‚0ñð |©‚½L†½M‡ ½N…݃ð:°Ë6¤U¥V ¼L½M ѽN L¤(¥TUð ½…N¼ˆ½‰,¥)M}˜LL[¤IL3±G…DæIÉ›ð ÉœÐè© …DÈÀÐ…IðÛ Š ,° Ñ ¢›îÉ ­É JèÈŠ‘Gм Å ­® ÿ ¹ç‘GÈÀÐö© …I ©) ÿ ð•  ˜‘GˆûȦ=}ð©*‘G ½‘GèÈÀ õÈ„I¤¹¾ †1„2…0¢08¤2¥0ùI H¥1ùE …1h…0è°èhФI‘GæIÆ2ÚÈ¢†I`FE©˜  ¬­0ɛРrÉ›ð¢±$ÈèàÐõ l ' }¢õè蚦TèІT†U†V¦¥D` ˜ˆÉMð L±$É:ðÉ;Ðì©Pyȱ$` r ÜÉ ˆ© ¢ iÊÐú†ȱ$É/Ð:ȱ$ÉVЩWyÐòÉAÐ¥*ÉÐæ*ÉÐâ©€É ÐÛÈé/É }ˆ©¦Ž¦½Ž`É$Ð¥*ÉÐæ*æ*©? mù°¯ ¥L]É-ðîÉ+Ðȱ$É›ðÏ mô°ŽÉ*Ð ©? gù°€É.Ð $0³¢f.É?ð'É@Ð w©As©TtÐÉ/É` à}ð§É0†É:°‚ gL¨à ðà `$0`jè`©ÿ& ……C©p…æC¥i æ¥É°s ©…¨¹ðL0JÉCðÜ¢½jÉ?ðÙÐÎèÈà ÐIŽð#¹øù}𴽎нÉÐ¥Fð ŽÞŽМގ­& ¥& ¥0 ¥C4 ¹0ß8L㽆ˆ½‡‰`½‚0  ‚ | ë ˆL] ĤE½‡€‘GȽ†‘GȽ…‘}G |þŠÐþ‹ ©†‡…¥Eƒ` £ ¤¹†¹‡8½†‡ð,  }¤E±G)üð݀бG)‡ȱG†ȱGƒ©…`¥"É!ðù ¤L] l¤!­iðÀ}ðæ  ÐëŒÍ¨™€Èú$8  Ï(½IðÆ­Ið­º pÐ ©  h, g©Ð+…¢¤½jÉ?ð™Èèà ð8 ¢¥ii¨°èŠ(Lq­)ˆê¥!ð }©S Sä0$ } Ð) ð ý„EŒ9¦˜`H­ê)ðN £, ¢L]8¤G¥H ‘¼ˆ½‰Lq© Œ`½ˆ…½‰g© NgfjˆÐ÷****¨©8jˆüH¥i ¨h`  È}ÀŠð¬¹ðö„ ÿÈ ü„2Jˆü¤™˜é  „ &ÈÀøe2†¥i‡¬ÐÎÎ`¥"É%ð?É&ð;†ºŽ^ ±$IMð ¤!À °¹…! < ¹uð ÈÌ õ ¡hh`$}E¹vÐ옄†ºŽ^¥! ð1¦½…E½„…H©FHjm …G¨¥Hm …H`¨¼„™u$E™v`LÐŒ=?©°Ð ÝÐ+©`¥!Ð,pFE © ‘È„D©8 }q ϤDÀÐî&E`­I€0î`  ¹iÙëЈÐõ`+DOS SYSMOC.©I… ©… ø­ J ©Ù©©Ù©Ú à¥ð=¥ )ð F­Ð)ð©ð©…}8`Ll Тÿ†æT©!…U­<¬; ЩLnæ ¬ÜÜ<ЭJ©M -©1íüÉ𸠹™ˆ÷Œ8 Ñ¢ÿš ¢  ø­ ¥ð’©H©›H =©}D î©2 î©: î /ð1¢€Ž[ „„F©:MР #ð.É!Ð ©ÿü ó`ÈÉ>ÐC #ð ð Á„¤‘¤æ #Ðî`©>  Р± Ô˜ÈÀÐõe…}æ©›Lî¢É'ð>É/ðb¢É;ð\ˆ½IÙн\ÙнoÙð@Êå ¹ð¨É@ð ¹÷èˆöLK©~™ °L𢠩 %¢ /ðe Ñ L›LìŠ ª½ƒH}½‚H¹0S¾0Nà:ðà;Ð=ÈÈÉ9°É1®Ãª©D°®Ã,¢1Ž¢¹É›ðÈèàKÐð $­É›`¾à:ðà;ÐʾÈÈÈÐÌ ½†…¹ÈÉ ðøÉ,ðôˆÉ›}` ŒXŒYˆÈ„ #ðÄðô`DTDRLUFFFCICLRSJ==CIYEEONSMDLNOOUAOOOARPLNCL#####PANVBNFRäñ*),-PQOR}a/%<‰§´ù „­Ó})ý¢ Ð¢À­Ó Œø†j „ Ó©û… ©… ¢ ©…R©E…S© L%Щ-©,© #¢† 3ð ¹¢0†© % Ê¢ Ê© 4¦¥(H© 4(Ðã`ˆˆ }ˆˆÐ( 3ð © #©ÿ Ñ ¾©Ð ŒZ Oˆˆˆ˜iÛ¨„ ¶¥L4¢½ÿRÊÐ÷ÉE𢆠3 ¹É=ÐæF©›…©€… ……¦ð S© ©Z +­æ8í!}è Ñ¥¤0©+¢¹Èèà Ðô¥Ð¥ …F¥F𢠋¦¥ð©% 4© 4ð©& 4Ææ¥(X¥)Y  ¢¥  #© 4 ʤÐ È„ ¢L"}Ž¥Fð æF ¢L…H¬ç­è ÂhL4©™à©™á`ŠºŽçª¥*Ù©J© 0 „ B  B ¼ÀÿÐÉÿð¦Ð «0a ¼„…¦Ð Œàáè† ¼…ÈÐæ8˜#}娥å Ñ ¾ ñ ¹Lklâ ¦ Ï )ÀˆÐ­à;­á<©ÿð  : „¢÷𦠤`… 0ìôð© ü©} î©…T ‹†T 7­€»î€»Í€»ð΀»$}LIlú¿ð   ½Ž<;¢`­<ð¶L 3  ½†… #É/ !  ŒR(ð©ÿ 7 7 © Â Ï 7 ¾8¥å¨¥å9ÈÐi ÑL7 ,(Ð& ©¢  Í%}© L4¹8é0É éÉ É°È`© Ln Áª ¢ … ¢` Û˜ Û© ÐHJJJJ æh)É ii0„ °ò¤¢`©”Æ©²×`¢0 ¢© ,©BLVä¹ë™&}ˆ÷[©¢J ¸©Ð Ê©B VäsÀˆðoÀªÐ ¥FÉhh`˜  „G „H ,H ý hÉЩ¨É€ðÉ¡°©¡)Hª©…D©ù ÿ…CȱCÉ›Ðù˜eCæDÊ먥D •hÉð'}N©¨ Â°Š¢MìSðìп` ©Ð ¢ ©Ð¤¥E˜D` ° O©I˜H`hhXØh¨h Щ nLœ Free Fil-S›Break›I/O-Error 170›Disk f(}ull›Write protected›File Mismatch›Bad Filename›DOS II+/D - Ver. 6.4plus RUN:›©Br`ê©ÄLêœLocked›De)}vice done›DIR full›Not found›Load?›Bad DOS›Hex?›Abortý›From›To›­êH¢D) Ð ¢S­ê)€ð¢EŽøh`êê¹É ðÉ›ðLn ;L®D2:+DOS SY}=ON›;RUN"D:PROGRAM.BAS"›ÿÐÒ ‘»© ºÀð¿ ¦¹L*ºÊ…È¥ÉeË…É ¦¹­çB»E»­èC»F»­ÿÿ-ÿÿ¢m »Éÿð gº©…U¢r » gº©…U¤È¦É 3¸©›L°òÒÓØ Æ¡¢Š=]R]Q°Q±FÉMQ±MQ²Q²Q2³Q·Q2²Q3°Q331°STAGÅSTÌBCK¨ÑLINE¤CHEAÔPTÓLEÖDGÓCURSTEPDIÒPLAYTIMÅMSHÒSKUÌDRAWORIÇCURSTEÐMAXLEÖAT,}LEVSTARÔORIG¤FIELD¤BORDEÒDÌSÃDGFÃYMUÌPOSØSTEPS¨STEPDIR¨MAXSTEÐSTARVÅKEÙJOÙINCØINCÙPOSÙSTARTØYMULÎÃFIELDPOÓTOFININÃSTEPTOPÒSTP-}C¤FINØFINÙÉTOSÓTOSLEEÐSIZEÙLINELEÎST¤SLUG¤TREE¤ADD¨G¤ÊV¤MUSÈFROÍNUM±NUM²TREEØTREEÙSTARTÙSTAMPØSTAMPÙFIRSÔDISÔCOURSÅÐPROÇINCST.}ØINCSTÙËÆDOGSLIVÅCURNE×CTROÌØX¤STEPDRA×NUMTREEÓGSPOÔLINÅ/} @ €0}€€ !"#@$@%&'1}()*+,-./012€345672}89:€;€<€=@>€?@€ABCDEF3}GHIJKLMNOPQRSTUV4}W€XYZ[\$$******************************›$$** BIEDNY PIES ANTONI v 2.1 **›5}$$** by mgr inz. Rafal **›$$******************************›$$Modyfikacja: Bluki, 26.03.2013›«AY6}'@‚@36€-?6-@E6‚-R6ƒ-6@_6„-6@g6…-%s6†-@#6‡-…%…%…%‡6ˆ-†&6‰-†%‡›7}6Š-A3¡6‹-« @pfAdAU+€%AY€9AVŒ'AVR0…8‹&@,@f0@@8}[ARŽ-‰+67Ž<Ž,.>:A%,/ Ž3G0…@@[0@@ ' 6‘-€6’-6‹-!6“-@9}'6”-€ 6•-@ 6–-€6—-€ - 6˜-€6™-€6š-€6›-‘-AY@4 % A(%0…8‹&,@ 9 @:}`6œ./•"@ *+‹"…)‹"@,9 @‡ 6ž-AY@4% A-@€% ‘%  A ;}U%6Ÿ-F:A`,%AV$F:Aa,K6 -F:Ÿ%@,%AV$F:Ÿ%@,U A% A A`%POKE 559,Q<}0› A6¡-@V¢%£¡6¤8™,-¢%£6¥8™,-”6™-™% ™!¦6§- AP6¨-F:Ad,6©-R:€,!!=}¨"AU*©"@@$!AdAU!@w€ 6ª-€6«-€+¨"@(!AdAU+ A0A>}+¨"‡)©"‡,*£ @46ª-+6¡-@V76”-@rA @3M%+¨"@)©"@,*£!@+6ª-ƒ76¡-@C6”-@t?}M @3M#+¨"@)©"@,*¬!…*­£)6«-ƒ76®-¢&@@C6”-@xM @3 I)+¨"@)©"@,*¬ @ @}*­£/6«-=6®-¢%@@I6”-@s!6¯-A#£"­6¯-€"^ ¢%£¯'2€A@@-£!­^6œ7+¬&…,$‰%+£&A}@,<+¬&…,$‰%+£&@,,.{#7 6£-£%ª6¬-¬%«6¢-®!¢%£¡72€A@€$?6°-+¬&…,$‰%+£&@,(7°<°,4B}?567°<°,. ? A%$"€*7°<°,0 6§-€$ AP&DF:¢%£,A#*+ª",*£!š&6‘-‘%±,6š-£8‘!AD6‘-AC}'%-@€ ‘% %6²-¦&™&( -††)² A  *² @  + ² €6²-€,& ²-@1D}†& ³7²$…%<²$…%…,0(+£"´&*¬"µ, ˆ1¢%£@V2€€€€2 6•-•&6’-’%6£-@3•!€@4 6E}‹-‹%5‹ @@6 Ay™7AR€8;c ¶-·6¸-@P Š--@@"6 +·&¶,R2€@F}@@\2€€€€` ¶c$<# ¶-¹67+¶&,$º%,. ¶#$FWAfAX!Af…-6¹-@36º-‰?6G}¦-AQK6£-@W6±-?@K]]³;A,»;…,¼;…,½;@,;¹$º,œ;¹$º,;º,¤9¦,¥9¦,¾9…,9@,¿;@H},L®6³7@<@,. /6»7,.>:A',:6»7…,.wE6³7<…,.»T68€,-@]68,-…f68…,-€z6¿7<,.>:A%,ŽI}6¿7…<…,.>:A%,®6¿7@<@,.>:A%,MWÀ-€@¶-€…S6³7+@ $À,%@%¶$…<+@ $À,%¶$…%@J},.i W ¶NP¶-€@H6³7+@ $À,%@%¶$…<+@ $À,%¶$…%@,.»L ¶P ÀOT¶-A…A…)6³7¶<¶K}%,.i - ¶C¶-A‘A…P6³7¶<¶%,.»T ¶PD À-€¶-@%‰…<6³7A$À%¶<A$À%¶%,.»@ ¶D ÀRH6L}½7,.6½7…,.>:€,+6½7@,.66¼7,.+H6¼7…,.>:@–,U A@W‹"…@”X — $Y 6—-Á;AˆM},ZÆÆ6Á.¼¢!©@è©?@è©w@è©c@è©á@è©å@è©ñ@è©ÿ@¢!©8Hè©|Hè©îHè©ÆH詇Hè©§Hè©Hè©þH¢!©ýXè©XèN}©Xè©*XèXèXè©XèX¢!©~!“è©ü!“è©ø!“è©X!“è!“è©P!“è!“è©!“h`[¹6Á7@<@,.>:€,76Á7@Q<@QO},.>:€,Q6Á7A<A,.>:€,k6Á7AC<AC,.>:€,…6Á7AG<AG,.>:€,Ÿ6Á7AS<AS,.>:€,¹6Á7AY<AP}Y,.>:€,\¥6Á7Ae<Ae,.>:€,76Á7Ai<Ai,.>:€,Q6Á7Au<Au,.>:€,k6Á7Ay<Ay,.>:€,…6Á7AQ}…<A…,.>:€,¥6Á7A <A ,.>:@,]6Ž-?:C:Á,,$^  $_ÌÌ6Ž-?:C:¼¢©@è©a@詈@è©’@è©@@èR}©x@è©@è©@¢©àHè©H詎Hè©!H詉Hè©Hè©øHè©ÀH¢©XèXè©XèXè©Xè©Xè© Xè©X¢©À“è“èS}“è©à“è“è©p“è©ð“è©À“h`,,` 6Â- $i A$j-@k. ž".  n T}¶-¹s-@&ž¶%x6Ã-+¶&,$º%‚ ž" |‡ ˜"€ 7Ã<Ã%º&,ˆ ˜" œ7Ã<Ã%º&,Œ ž" ^– U}¶œ ž" A $¡,67Ä<Å,.½6œ7Ä<Å,.½,67Ä%‰<Å%‰,.¢T6œ7Ä%‰<Å%‰,.567Ä%@`<Å%@`,.';TV}6œ7Ä%@`<Å%@`,.';£S-Æ%@Ç%… ½--Æ%@Ç%@5 K-Æ%@Ç%@S ';¤$¥=6W}7Ä<Å,.()6œ7Ä<Å,.().67Ä%‰<Å%‰,.¼=6œ7Ä%‰<Å%‰,.¼¦7-Æ%@Ç%… ()0-Æ%@Ç%@4 ¼7$Ò¶-@PX}Ü)  (‚)2€A1&¶@@æ ¶ë 2€€€€6‚-€ð$šAdAU›%%F:Ad,"AU*T:€,Y}A¤AdAU®$ô 6˜-€õj¶-€@12€¶$@%@@@¶5 ¶F¶-@€6f2€¶$@Z}%@@@¶j ¶ùcA F:A," A, A8-@ˆQ  ‹% sek [ A™c¢%£¡þ[}A @ 6·-‹% @Y 6˜-YA F:A," A(-‡†Y Zapas paliwa na ¦& krok>:\}A',w' A˜¢%£¡'A @W$Ž6´-@5˜6µ-P:H:€,$@%@,¢ -´µ%¬ *<]}=¶ -´µ&À  Ê -´µÔ  #>ç$ò6­-@ü6È-P:H:€,$@%@, -­È%  -­È&^}$ &. -­È8  B+6£-@6¬-È%6¢- %@@$¬+6®-¢K$º+6É-£&@6Ê-¬&…"6¾8€,-€+6¾8,-€¿_}‹"@6Ê-Ê%Ä Ac$S A Z 6Ë-d AeÉ +@'%‹,A€fR6Ì-+Ê&µ,%…%‹"@`}*Ì"R67+µ&…,$‰%´&@<+µ&…,$‰%´&@,. g Ì!€6Í-€h Ì €6Í-6Ì-6ÌlÍ"€*‹"@6Ì-Ì&ma}Í"*‹"@6Ì-Ì%tÌ A0u Av5 À-€67¾8À,<¾8À,,.?16œ7¾8À,<¾8À,,.?5 Àw$À-€@b}&‹ƒ6Î-++Ê%À,&,$‰%+É,„)6Ï-É%@Ï!@3)6Ï-@3Œ- -ψ -2€@`&Ï@@Î%@c}&‹!Ap$‘67Î<Î%@&‹,. ’G/Ï"@)Ï"@&*¾8P:+Ï&,'@,,"€G6¾8P:+Ï&,'@,,-Π ÀÛd}$æ Ë"€ A"é Ë" A!ë›ð`.6Ì-P:H:€,$+@&P:@%’'@%,,,FÍ…*P:H:€,$@,!€`6Ì-Ì$e}+…%P:H:€,$@,,ú Í"€6Ð-€6Ñ-ƒû Í"6Ð-€6Ñ-ü Í"…6Ð-6Ñ-€ Ò-Ì6Ó-€ 6É-É%Ð!É!+@'f}%‹,!6É-@'%‹ 6Ê-Ê%Ñ)Ê!@%‹&#6Ê-@%‹&)6Ó- Ê 6Ê-6Ó-" A , Ó ' $- Òg}1$>>-@ˆ) W drogQ! Biedny Psie;AdAU>$?--@†* Skup siQ! Biedny Psie-$D 6ž-€Y,h}-@ˆ&  • sek ,6·-•^ A™c AdA @|" @Y"A F:A,‹ i} 6˜- A Aš A˜›: -‡†: Zapas paliwa na ¦& krok>:A',wŸ A$ A j}@£$®5-@ˆ5  ¸5-@†5  Âk}$-@…%¹ ((  )) ! [oooooooooooooooooooooooooooo]#-@†# Kosl}zenie trawyk$„-@€…  -@€† “!€Ô-“ X ÔÏ$46Í-P:H:€,$@,> 6Ë-€Hm}$˜ Í"€)Í"6Õ-…¢ Í"…6Õ-P:H:€,$…,¬ 6Í-Õ¶$¸ U+€AY€6‚-%AR9AVŒ'AVA0…€n}€U0@@½ %%6Ÿ-F:A`,%AV$F:Aa, Ÿ%‡‡Ç Ÿ%@‡Ì Ÿ%†@Ñ Ÿ%@$@o}Ö Ÿ%@'@eÛ Ÿ%@(F:A`,à Ÿ%@)F:Aa,å e-@…!  âéåäîù  ðéåóÓ'-‡€G Miserp}able Dog Anthony v2.1S-…@eAY@4ê AA  czyli >:@4,Nie dla psa rolmopsa...>:@4,þ ˆ-@q}@ˆ nãòåáôåä âù MGR INV. RAFAL Made with Atari Basic, the right wr}ay!ÿ 1AdAU'AY@4-6¸-‰1 Š 1-@%…# >:@ˆ, an- A51 Š  to A5 s}Š6-€ * ni >:@6, A5$ Š*6¸-… W-…@9 $S2€P:H:€,$‰,%‰@t}W Š q-…@S |wszystkie znicze napQdowe i wr>:A',ci>:A&,^m2€P:H:€,$‰,%‰@…q Šu} W -…‡3 $|jadH ser, gdy nagle coJ siQ staHo^S2€P:H:€,$‰,%‰@@W Š j-…@ F "|cie! Serio! Terav}z musi odnalex>:A&,^f2€P:H:€,$‰,%‰@@j Š \-…@8 $|ByH piQkny, sHoneczny dzie\. Antek^Xw}2€P:H:€,$‰,%‰@@\ Š ]-…@9 $|znicza. Czeka na Ciebie 27 sztuk!^Y2€P:H:€,$‰,%‰@@]x} Š! ]-…@9 $|do budy!  Skup siQ, zapamiQ-^Y2€P:H:€,$‰,%‰@@] Š& ]-…@9 $|i pies zny}alazH siQ na innej plane-^Y2€P:H:€,$‰,%‰@@] Š+ ]-…@9 $|taj trasQ, a nastQpnie truchtaj po^Y2€z}P:H:€,$‰,%‰@@ ] Š0 ]-…@9 $Y2€P:H:€,$‰,%‰@@] Š{}5 r-@@h  Puknij w >:@4,Óôáòô>:@4, lub >:@4,Æáêåò>:@4,r2€€€€: 6Ö-F:B|}2y,< Ö"@)(T:€, ‡= Ö"@6- ‡> F:Ad,"@(A? A10î @fAV}} ACP:¸'AV, 0$AB¸&+F:AC,$AV,0@f€ @f€ F:AV,A3`* $¬ ~}1¶-@6*2€A!€¶. ¶1$¨AAD©+€AY€ªW6Œ-+F:A,,$AV&#A€P}:¶-A6Aq>"×D¶×H ¶W6Ž-?:A6,«¯Ø;AR,¯6Ø.˜¢©’è©’è©’è©’è©ÿ’è©’è©ÿ’è©’袩!€}à“è©!à“è©!à“è©?à“è©ÿà“è©?à“è©!à“è©!à“袩Pð‘è©Pð‘è©Pð‘è©üð‘è©ÿð‘è©üð‘è©Pð‘è©Pð‘èh`¬¯#6Ø7@T<@T,.>:}@,C6Ø7@`<@`,.>:@,c6Ø7@f<@f,.>:@,ƒ6Ø7@<@,.>:@,£6Ø7@–<@–,‚}.>:@,¯6Ž-?:C:Ø,,­¢¢6Ø.˜¢©ˆ’詈’詈’è©<ˆ’è©?ˆ’詈’è© ˆ’è©!ˆ’袩(’è©(’è©(’è©<(’è©ü(’è©(’è©Ð(ƒ}’è©P(’袩P’è©P’è©P’è©P’è©Ü’è©’è©þ’è©’èh`®/#6Ø7@F<@F,.>:@,/6Ž-?:C:Ø,,¯¢¢6Ø.˜¢©!Ð’è„}©!Ð’è©!Ð’è©!Ð’è©;Ð’è©xÐ’è©Ð’è©8В袩PÀ’è©PÀ’è©pÀ’è©|À’è©þÀ’è©þÀ’è©|À’è©À’袩!0è©!0è©0è©>0è©0è©…}0è©>0è©0èh`°Ï#6Ø7@<@,.>:@,C6Ø7@<@,.>:@,c6Ø7@<@,.>:@,ƒ6Ø7@†}"<@",.>:@,£6Ø7A<A,.>:@,Ã6Ø7A<A,.>:@,Ï6Ž-?:C:Ø,,±¢¢6Ø.˜¢©¸’è©>¸’è‡}©¸’詸’è©>¸’詸’è©!¸’è©!¸’袩Pè©|Pè©þPè©þPè©|Pè©pPè©PPè©PP袩’è©’è©’è©’è© ’è© ’詈} ’è© ’èh`²O#6Ø7@@<@@,.>:@,C6Ø7@F<@F,.>:@,O6Ž-?:C:Ø,,³¢¢6Ø.˜¢©’è© ’è©!’è©A‰}’è©Ê’詌’詨’è©”’袩€’è©€’è©€’è©€’è©*€’è©$€’詤€’è©H€’袩¨’è©3¨’è© ¨’詨’詨’詨’詨’詨Š}’èh`´)6Ø7@x<@x,.>:ˆ,)6Ž-?:C:Ø,,µ¢¢6Ø.˜¢©!H詊Hè©THè©THè©TH詘Hè©´Hè©¢H袩 X詟Xè©BXè‹}©1Xè©Xè©?Xè©Xè©X袩ª“è©#“è©*“è©ä“è©ø“è©ð“è©à“è©“èh`¶I#6Ø7@<@,.>:@,=6Ø7AŒ}<A,.>:ˆ,I6Ž-?:C:Ø,,è¨6Ž-?:C:˜¢©è“è©è“è©Dè“è©Hè“è©*è“è©,è“è©(è“è©è“袩ÿøè©<øè©øè©8øè©ø}è©8øè©øè©<øè¢©Ø“è©Ø“è©Ø“è©Ø“è©hؓ詬ؓè©*Ø“è©Ø“èh`,,Ĩ¨6Ž-?:C:˜¢©`‘è©``‘è©l`‘è©x`‘è©p`‘è©``‘èŽ}©~`‘è©`‘袩À‘è©À‘è©„À‘è©üÀ‘è©|À‘è©ÊÀ‘è©©À‘è©©À‘袩 è©` è©! è©? è©> è©S è©• è©• èh`,,Ũ¨6Ž-?}:C:˜¢©d°’è©D°’è©}°’è©ÿ°’è©~°’è©~°’è©z°’è©r°’袩Ș’è©þ˜’詘’è©€˜’詘’詘’詘’詘’袩Ȓè©È’è©È’è}©È’è©È’è©È’è©È’è©È’èh`,,ƨ¨6Ž-?:C:˜¢©r8è©~8è©~8è©8è©ÿ8è©ÿ8è©ÿ8è©o8袩Øè©Øè©Øè©Øè©‘}Øè©Øè©€Øè©@Øè¢©@è© @è©N@è©‘@試@詪@詪@è©®@èh`,,Ȩ¨6Ž-?:C:˜¢©X’è©X’è©X’è©X’è©X’è©’}X’è©X’è© X’袩€`’è©€`’è©À`’è©€`’è©€`’è©à`’è©`’è©`’袩Aè©詇詇è©è©Aè©Aè©Aèh`,,ɨ¨“}6Ž-?:C:˜¢©‚ðè©ðè©åðè©åðè©…ð詊ð詊ð詊ð袩!àè©!àè© àè©àè©àè©àè©àè©à袩ˆ‘詈‘è©<”}ˆ‘è©fˆ‘è©~ˆ‘è©`ˆ‘è©<ˆ‘詈‘èh`,,ʨ¨6Ž-?:C:˜¢©”èè©”èè©èè©(èè©èè©ðèè©øèè©øè袩ø“è©ø“è©<ø“è©f•}ø“è©fø“è©fø“è©<ø“è©ø“袩@‘è©8@‘è©@‘è©@‘è©x@‘è©@‘è©<@‘è©@‘èh`,,˨¨6Ž-?:C:˜¢©P‘è©P‘è©>P‘è©`P‘è©ø‘è©fø‘è©>ø‘è©ø‘èh`,,—}Ìvv6Ž-?:C:f¢©°‘è©°‘è©~°‘è© °‘è©°‘è©0°‘è©~°‘è©°‘袩À“è©À“è©~À“è© À“è©À“è©0À“è©~À“è©À“èh`,,Ѩ¨6Ž-˜}?:C:˜¢©ð“è©ð“è©<ð“è©`ð“è©`ð“è©`ð“è©<ð“è©ð“袩€ ’è©@ ’è© ’è©  ’è© ’è©Ð ’è© ’è© ’袩 0’è© 0’è© 0’™}è© 0’è©0’è©?0’è©?0’è©0’èh`,,Ò¨¨6Ž-?:C:˜¢©8’è©8’è©8’è©8’è©8’è©ü8’è©ü8’è©8’袩@’è©`@’è©p@’è©a@’èš}©@’è©@’è©@’è©@’袩H’è©H’è©H’è©H’è©H’è©pH’è©pH’詨H’èh`,,Ó¨¨6Ž-?:C:˜¢©€P’è©`P’è©àP’è©hP’詆P’è©›}P’è©P’è©P’袩p’è©p’è©p’è©p’詨p’è©pp’è©pp’è©p’袩x’è©x’è©x’è©x’è©Ex’è©Fx’è©2x’è©x’èh`,,Õ œ} A0’% 6‘-›-£¬& -£¬% ”X -‡ˆB Oto Tw>:A',j gr>:A',b! Biedny PsieX2€AA}€@•6 §"-@†6  Pies zasHabH z gHodu –6 §"€-@†6  —)6¸-ž}A@ Š)2€AA€@šG-@†+  WduJ jakiJ guzik =AdAUG A› 6˜-€6ž-€2€€Ÿ}€€œ A¡ A¦%-@ˆ% Tak wygasaH piesµ6¸-@º Ù-€™&½ -£¬& Á -£¬  }Ĥ8Ù,¥8Ù, Šâ Ùã -£¬& ä -£¬ è7-@†% WduJ jakiJ guzik7AdAUé ¡}Aê 6“-“&ë“"ƒApì @pX -‡ˆ* Formowanie fauny i flory...42€€€€X6Ú-P:H:€,$+@ &‹$…,¢},%@&‹u ¶-Ú Aww/6Æ-P:H:€,$@',%/6Ç-P:H:€,$@,%x!6Ä-Ç$‰%Æ%!6Å-Ç$‰%Æ%@y6Û-£} AuzÛ Aa˜ ¶¢''6Ú-P:H:€,$+@&‹$…,,%@ &‹§ ¶-Ú Aw ¬/6Æ-P:H:€,$@(,%/6Ǥ}-P:H:€,$@,%±6Ä-Ç$‰%Æ%6Å-Ç$‰%Æ%…²6Û- Au¶Û AeÀ ¶Ó A$X A‚L¥}@47Ä<Å,4¿*7Ä%‰<Å%‰,4¿*7Ä%@`<Å%@`,4¿@6Û-@M$QI=7Ä<Å,4¿7@<@,*7Ä%‰<Å%‰,4¿7@<@¦},I6Û-@R$2€@d@@,2€@p@@)2€€€€,$(2€@„@@§}2,2€@@@)2€€€€,$?_+@6Ü-CAV+F:A,,$AV'AVUAR¨}@_#A@/ / $UJmiechniQty piesek z kiszk_ w misceA,, # To mHyn na wodQ kaVdego agronoma!II"¶¶©},¶Ü"¶92¶@@?/¶ÜI A€ J'¶ 6@6¶%@' A€ T(¶"6@6Ü-Ü%@ª}( A€ h/%2/ A‚r€€162,0,160,0,189,0,224,157,0,144,189,0,225,157,0,145,189,0,226,«}157,0,146,189,0,227,157,0,147,232,200,196,255,208,226,104,96›¤-13,2,157,-1,2,157,-11,-1,24,25,-1,23,27,106,110,-1,22,28,1¬}07,112,-1,15,18,21,27,109,117,-1,12,27,111,115,118,118,120,126,-1,10,28,113,117›¥119,127,-1,8,30,103,106,117,129,-1,6,30,­}103,111,117,135,-1,4,14,25,29,106,136,-1,4,13,25,28,110,114,117,137,-1,4,10,114,115›¦ŸŸ117,127,-13,128,131,-11,132,138,-1,4®},9,115,127,-13,128,133,-11,134,138,-1,4,8,115,126,-13,127,130,133,135,-11,136,138,-1,4,10,115,126,-13,127,130,133,135›§——-1¯}1,136,138,-1,5,11,13,23,115,126,-13,127,134,-11,135,139,-1,6,25,116,128,-13,129,133,-11,134,140,-1,7,34,118,152,-1,8,39,119,1°}50,152,155,-1,9,46›¨””75,105,119,150,154,155,-1,8,106,120,151,153,153,-1,8,24,-12,25,29,-11,30,107,120,153,-1,8,17,-12,18,2±}2,-11,23,24,-12,25,25,-11,26,31,-12,32,35›©¡¡-11,36,37,-12,38,44,-11,45,109,121,153,-1,8,21,-12,22,22,-11,23,24,-12,25,25,-²}11,26,31,-12,32,32,-11,33,40,-12,41,41,-11,42,46,-12,47,51,-11,52,111,122,152›ª¢¢-1,7,21,-12,22,22,-11,23,24,-12,25,28,-11,³}29,31,-12,32,34,-11,35,40,-12,41,41,-11,42,45,-12,46,46,-11,47,52,-12,53,56,-11,57,58,-12,59,62,-11,63,112,123,152›«££-1,6,´}21,-12,22,22,-11,23,24,-12,25,25,-11,26,33,-12,34,34,-11,35,40,-12,41,41,-11,42,45,-12,46,46,-11,47,52,-12,53,53,-11,54,55,-1µ}2,56,56,-11,57,58,-12,59,59›¬¦¦-11,60,61,-12,62,62,-11,63,100,-12,101,101,-11,102,113,125,142,-1,4,21,-12,22,22,-11,23,24,-¶}12,25,25,-11,26,31,-12,32,34,-11,35,45,-12,46,49,-11,50,52,-12,53,53›­¦¦-11,54,55,-12,56,56,-11,57,58,-12,59,59,-11,60,61,-·}12,62,62,-11,63,100,-12,101,102,-11,103,114,125,140,-1,4,21,-12,22,22,-11,23,24,-12,25,29,-11,30,45,-12,46,46›®ªª-11,47,52,¸}-12,53,53,-11,54,55,-12,56,59,-11,60,61,-12,62,62,-11,63,101,-12,102,102,-11,103,105,-12,106,106,-11,107,115,126,152,-1,4,19,¹}-12,20,21,-11,22,45,-12,46,46›¯ªª-11,47,52,-12,53,53,-11,54,97,-12,98,98,-11,99,101,-12,102,102,-11,103,105,-12,106,106,-11º},107,116,126,152,-1,4,17,-12,18,20,-11,21,45,-12,46,46,-11,47,52,-12,53,53›°°°-11,54,92,-12,93,93,-11,94,97,-12,98,98,-11,9»}9,102,-12,103,103,-11,104,104,-12,105,105,-11,106,117,126,149,-13,150,151,-11,-1,4,46,-12,47,50,-11,51,87,-12,88,88,-11,89,92¼}›±§§-12,93,95,-11,96,97,-12,98,98,-11,99,102,-12,103,105,-11,106,118,126,134,-13,145,150,-11,-1,4,6,10,87,-12,88,88,-11,89,½}92,-12,93,93,-11,94,94,-12,95,96,-11,97,97›²§§-12,98,98,-11,99,103,-12,104,104,-11,105,118,126,132,-13,145,150,-11,-1,4,5,1¾}1,27,-12,28,32,-11,33,71,-12,72,72,-11,73,82,-12,83,83,-11,84,88,-12,89,89,-11,90,92›³§§-12,93,93,-11,94,95,-12,96,98,-11,9¿}9,103,-12,104,104,-11,105,120,126,131,-13,146,149,-11,-1,4,6,10,26,-12,27,27,-11,28,76,-12,77,77,-11,78,82,-12,83,83,-11,84,8À}8›´¥¥-12,89,89,-11,90,92,-12,93,93,-11,94,96,-12,97,98,-11,99,120,126,131,-13,146,149,-11,-1,4,6,-12,7,9,-11,10,25,-12,26,2Á}6,-11,27,34,-12,35,43,-11,44,47,-12,48,51›µ¥¥-11,52,53,-12,54,58,-11,59,60,-12,61,65,-11,66,70,-12,71,74,-11,75,76,-12,77,7Â}7,-11,78,82,-12,83,83,-11,84,88,-12,89,89,-11,90,91,-12,92,92,-11,93,96,-12,97,98›¶¢¢-11,99,112,115,120,126,130,-13,147,148Ã},-11,-1,4,5,-12,6,7,-11,8,25,-12,26,32,-11,33,41,-12,42,42,-11,43,47,-12,48,48,-11,49,56,-12,57,57,-11,58,60,-12,61,61›·¤¤-Ä}11,62,69,-12,70,70,-11,71,76,-12,77,77,-11,78,82,-12,83,83,-11,84,88,-12,89,89,-11,90,90,-12,91,92,-11,93,96,-12,97,97,-11,98Å},111,116,121,126,130,-13,147,148›¸££-11,-1,4,6,-12,7,7,-11,8,31,-12,32,32,-11,33,40,-12,41,41,-11,42,46,-12,47,47,-11,48,55Æ},-12,56,56,-11,57,60,-12,61,64,-11,65,68,-12,69,70,-11,71,76,-12,77,77›¹¢¢-11,78,82,-12,83,83,-11,84,88,-12,89,90,-11,91,11Ç}0,117,121,126,130,-13,147,148,-11,-1,4,6,-12,7,7,-11,8,32,-12,33,33,-11,34,39,-12,40,40,-11,41,45,-12,46,47›º¦¦-11,48,54,-1È}2,55,55,-11,56,60,-12,61,61,-11,62,69,-12,70,71,-11,72,76,-12,77,77,-11,78,88,-12,89,90,-11,91,109,117,121,126,130,-13,147,14É}7,-11,-1,5,31,-12,32,32›»¤¤-11,33,38,-12,39,39,-11,40,47,-12,48,48,-11,49,53,-12,54,54,-11,55,60,-12,61,61,-11,62,70,-12,71Ê},71,-11,72,76,-12,77,81,-11,82,108,118,121,126,130,-13,147,147›¼¦¦-11,-1,6,30,-12,31,31,-11,32,37,-12,38,38,-11,39,48,-12,4Ë}9,49,-11,50,53,-12,54,58,-11,59,60,-12,61,61,-11,62,71,-12,72,73,-11,74,107,117,121,126,129,-13,147,148›½¨¨-11,-1,7,30,-12,Ì}31,31,-11,32,36,-12,37,43,-11,44,49,-12,50,51,-11,52,60,-12,61,66,-11,67,71,-12,72,73,-11,74,106,117,121,125,128,-13,146,148,Í}-11,-1,8,25,-12,26,30›¾¡¡-11,31,64,-12,65,65,-11,66,70,-12,71,71,-11,72,105,117,121,124,128,-13,147,148,-11,-1,9,64,-12,65,Î}65,-11,66,68,-12,69,71,-11,72,100,117,121,123,128,-1,9,18›¿ww20,28,34,65,-12,66,66,-11,67,99,117,128,-1,9,17,23,28,36,40,42Ï},46,59,99,117,128,140,140,-1,9,17,23,28,37,39,43,45›À……73,91,93,98,117,128,138,141,-13,147,147,-11,-1,9,17,23,28,38,38,44,4Ð}4,76,90,117,127,138,142,-13,147,147,-11,-1,9,17,23,28,38,38›Á‰‰44,44,76,91,117,126,138,142,-13,146,147,-11,-1,9,17,23,28,38Ñ},38,44,44,76,91,117,125,139,143,-13,146,147,-11,-1,9,17,23,28,-13,38,38›Â††-11,76,91,117,124,137,138,142,144,-1,9,17,24,29,Ò}-13,44,44,-11,76,91,118,123,137,143,-1,10,17,24,29,76,91,120,121,135,136,138,143›Ã’’-1,10,17,24,29,76,81,85,90,134,137,139,Ó}143,-13,149,149,-11,-1,10,17,24,29,-13,44,44,-11,76,81,85,91,134,138,141,143,-13,149,149,-11,-1,10,17›Ä‰‰24,29,76,81,85,91,Ô}132,133,136,139,141,143,-13,149,150,-11,-1,10,17,24,29,76,81,85,90,131,135,138,143,-13,149,150,-11,-1,10,17,25,29›Å}}75,81,Õ}85,91,130,130,132,137,139,142,-1,10,17,25,29,-13,38,38,-11,75,80,85,91,129,131,135,141,-1,10,16,25,30,73,80,85,91›Æ™™-13,12Ö}3,125,-11,126,126,128,140,-1,11,16,25,30,72,79,85,91,-13,119,122,-11,125,127,129,139,-13,140,140,-11,-1,11,16,25,30,-13,44,44×},-11,71,78,85,90›Ç©©-13,117,118,-11,124,128,131,138,-13,140,143,-11,-1,11,16,25,30,-12,52,55,-11,70,77,85,91,-13,115,116,-1Ø}1,124,137,-13,144,145,-11,-1,11,16,25,30,-12,52,56,-11,69,76›È§§86,91,-13,115,119,-11,124,136,-13,140,145,-11,-1,11,16,25,3Ù}0,-13,38,38,-12,52,59,-11,60,75,86,90,-12,91,92,-13,115,123,-11,124,134,-13,135,145,-11,-1,11,16,26,30›É-12,52,60,-11,61,Ú}74,86,90,-12,91,93,-13,115,145,-11,-1,11,16,26,30,-12,52,60,-11,61,73,86,86,-12,87,94,-13,116,145,-12,-1,2,4,-11,11,16,26,30,Û}-12,52,59›ÊÁÁ-11,60,71,-12,86,95,-13,116,119,-12,120,122,-13,123,123,-12,124,124,-13,125,126,-12,127,127,-13,128,128,-12,12Ü}9,131,-13,132,132,-12,133,135,-13,136,136,-12,137,137,-13,138,138,-12,139,139›Ë°°-13,140,145,-12,-1,2,4,-11,12,16,26,30,-12Ý},52,59,-11,60,69,-12,87,94,96,97,-13,116,119,-12,120,120,-13,121,121,-12,122,122,-13,123,123,-12,124,125,-13,126,126,-12,127,Þ}127›Ì±±-13,128,129,-12,130,130,-13,131,132,-12,133,133,-13,134,136,-12,137,138,-13,139,143,-12,-1,2,6,-11,12,16,26,30,-12,3ß}8,38,52,59,-11,60,68,-12,88,103,-13,117,119,-12,120,122›Íºº-13,123,123,-12,124,124,-13,125,125,-12,126,127,-13,128,129,-12,à}130,130,-13,131,132,-12,133,134,-13,135,136,-12,137,137,-13,138,138,-12,139,139,-13,140,142,-12,-1,2,4,6,8,-11,12,16›Î¡¡26,á}30,-12,37,39,52,56,89,95,97,97,99,99,101,104,-13,118,119,-12,120,120,-13,121,121,-12,122,122,-13,123,123,-12,124,124,-13,125,â}126,-12,127,127,-13,128,129›Ï  -12,130,130,-13,131,132,-12,133,135,-13,136,136,-12,137,137,-13,138,138,-12,139,139,-13,140,ã}142,-12,-1,3,5,7,8,-11,12,16,26,30,-12,33,34,36,38,40,41,52,54›Ð„„56,56,90,104,-13,119,141,-12,-1,4,6,8,9,-11,12,16,-12,26,ä}43,53,56,91,104,-13,121,140,-12,-1,5,16,25,32,34,34,36,36,38,43,53,54›Ñyy56,56,92,103,-13,124,135,-12,-1,6,16,25,42,53,57,-å}1,6,16,25,39,53,55,57,58,-1,7,16,26,37,53,57,-1,10,17,27,37,53,56›Ò$$-1,12,15,55,56,-13,-1,2,157,-2› “,'/æ}@y9,@K/@@y],AYo/AY@y,AX“/AX@y ç} A &6‹-@+& @(#MAA`+) @U;AfAFM% D:AUTORUN.BAè}S€ D:PROGRAM.BAS+& @(#MAA`+) @U;AfAFM% D:AUTORUN.BA Gra przyrodnicza polegajca na pomocy›biednemu psu Antoniemu.›› Pies ten trafi na obc planet i musi›nazbiera troch zn ê}iczy, aby odpali›rakiet na znicze :)›› Gra wykorzystuje technologi› "Atari Basic oraz GR.0"›› Podzikowania dla zacny ë}ch ludzi z›"atarionline.pl" za sugestie i porady :)›› --› mgr in. Rafa ›››__________›Changelog:›2.1› - Blokada klawisza BR ì}EAK.› - Opuszczenie gry do AUTORUN.BAS, a w› przypadku jego braku do BASIC-a,› poprzez nacinicie ESC na planszy› tytu í} owej (przerwanie rozgrywki› rwnie klawiszem ESC).› - "Mikkie" przejcie midzy planszami.› Ekran jest wyciemniany do î}poziomu› t a, a nie wy czany.› Modyfikacje te wprowadzi Bluki.›2.0› - Im dalej w pole, tym wykaszane s› coraz trudni ï}ejsze trasy› - Im trudniejsza trasa, tym trampolina› pozwala przyjrze si jej troch› d uej.› - Dwie nowe grafiki psa n ð}a ekranie› tytu owym.› - Nowy kolor dla drugiego poziomu› (bardziej marsjanski, z owieszczy).› - Podgld "na ywo" na pro ñ}ces› formowania fauny i flory.› - README.TXT w formacie ATASCII,› dziki edytorowi PANTHER :)››1.9› - Szybki generator zn ò}akw w ASM.› - Poprawione wy czanie i w czanie› ekranu - mniej mryga :)› - Mona ju gra w k ko - po obrazku› kocowy ó}m wracamy na ekran tytu owy.› - Nie mona ju zjada drzew, limakw› oraz innej flory i fauny.› - Nowe rodzaje przeszkadza ô}jek/pomagaczy› na kadym etapie (co 9 leveli).› - Lekko uproszczony kocowy obrazek,› bo brakowa o pamieci...›przeszkadza r1 REM ******************************›2 REM ** BIEDNY PIES ANTONI v 2.1 **›3 REM ** by mgr inz. Rafal **›4 REM ********ö}**********************›5 REM Modyfikacja: Bluki, 26.03.2013›6 POKE 559,0:POKE 82,2:Q0=0:Q1=1:FI=Q1:MQ1=-1:MQ2=-2:Q2=Q1+Q1:Q23÷}=23:Q7=Q2+Q2+Q2+Q1:Q22=Q23-Q1:Q30=Q23+Q7:Q3310=3310:STAGE=Q1:GOTO 70›7 POKE 764,255:GRAPHICS Q0:POKE 559,Q0:POKE 756,STL/256:ø}SETCOLOR Q2,BCK(STAGE-1),4:SETCOLOR Q1,12,15›8 POKE 752,Q1:FOR Q=Q1 TO Q30:LINE$(Q,Q)=CHR$(125):NEXT Q:IF CHEAT THEN SETCOLORù} Q2,4,4:SETCOLOR Q1,4,15›9 PTS=Q0:LEV=Q1:STAGE=Q1:DGS=4:CURSTEPDIR=Q0›10 PLAYTIME=9:MSHR=Q0:SKUL=Q0›11 DRAWORIG=Q0:CURSTEP=Q0ú}:MAXLEV=Q0:ATLEVSTART=PTS:POKE 559,34›12 GOSUB 210:IF NOT CHEAT THEN SETCOLOR Q2,BCK(STAGE-Q1),4›13 GOSUB 60:ORIG$=FIELD$:IFû} PLAYTIME=9 AND (STAGE=Q2 OR STAGE=3) THEN GOSUB 87›14 BORDER=Q1›15 POKE 559,34›16 GOSUB 105:POSITION 5,Q0:PRINT PTS;"% "›ü}17 GOSUB 910›18 DL=PEEK(560)+256*PEEK(561):SC=PEEK(DL+4)+256*PEEK(DL+5):GOSUB 1010›19 GOSUB 1210:GOSUB 6000:REM POKE 559,Q0›2ý}0 GOSUB 1604›21 DGFC=56:POKE YMUL+POSX,DGFC›22 STEPS(CURSTEP)=YMUL+POSX:STEPDIR(CURSTEP)=CURSTEPDIR:CURSTEP=CURSTEP+Q1›23 IF þ}CURSTEP>MAXSTEP THEN STARVE=Q1:GOTO 5010›24 KEY=PEEK(764):JOY=STICK(Q0)›25 IF KEY=255 AND JOY=15 THEN 24›26 POKE 764,255:POKEÿ} 77,Q0›27 INCX=Q0:INCY=Q0›28 IF KEY=28 THEN POKE 764,255:GOTO 3000›29 IF (KEY=Q7 OR JOY=Q7) AND POSX<34 THEN INCX=Q1:DGFC=56:}CURSTEPDIR=72:GOTO 33›30 IF (KEY=6 OR JOY=11) AND POSX>5 THEN INCX=MQ1:DGFC=4:CURSTEPDIR=74:GOTO 33›31 IF (KEY=14 OR JOY=14) }AND POSY>Q2 AND STARTX<>POSX THEN INCY=MQ1:YMULN=YMUL-40:CURSTEPDIR=78:GOTO 33›32 IF (KEY=15 OR JOY=13) AND POSY<20 AND START}X<>POSX THEN INCY=Q1:YMULN=YMUL+40:CURSTEPDIR=73›33 C=123:IF POSX=STARTX THEN C=Q0›34 POKE YMUL+POSX,C:SOUND Q0,204,6,10:IF P}OSX>STARTX THEN ORIG$((POSY-Q2)*Q30+(POSX-4),(POSY-Q2)*Q30+(POSX-4))="{"›35 POSX=POSX+INCX:POSY=POSY+INCY:YMUL=YMULN:POKE YMU}L+POSX,DGFC:SOUND Q0,204,6,Q0›36 FIELDPOS=(POSY-Q2)*Q30+(POSX-4):IF FIELD$(FIELDPOS,FIELDPOS)="?" THEN FIELD$(FIELDPOS,FIELDP}OS)=" ":GOSUB 500›37 IF CHEAT=Q0 AND FIELD$(FIELDPOS,FIELDPOS)<>" " THEN STARVE=Q0:GOTO 5010›38 IF PEEK(YMUL+POSX)<>123 AND (}INCX=Q1) AND POSX>MAXLEV THEN PTS=PTS+TOFININC:MAXLEV=POSX:IF PTS>100 THEN PTS=100›39 POSITION 5,Q0:PRINT PTS;"% ":STEPTOP}R=MAXSTEP-CURSTEP-Q1›40 POSITION Q23,Q23›41 IF STEPTOPR<100 THEN PRINT " ";›42 IF STEPTOPR<10 THEN PRINT " ";›43 IF STEPTOPR<}Q0 THEN STEPTOPR=Q0›44 PRINT STEPTOPR;:POSITION 31,Q23:PRINT STPC$(STEPTOPR*Q2+Q1,STEPTOPR*Q2+Q2);›48 IF NOT (POSX=FINX-Q1 A }ND POSY=FINY) THEN GOTO Q22›49 POKE YMUL+POSX,56:SOUND Q0,Q0,Q0,Q0›50 PLAYTIME=PLAYTIME-Q1:LEV=LEV+Q1:POSX=4›51 IF PLAYTIME>Q }0 THEN 11›52 STAGE=STAGE+Q1›53 IF STAGE<4 THEN 10›54 GOTO 7999›55 POKE 752,Q0›56 END ›59 FOR I=Q1 TO TOSS:TOSLEEP=50:GOSUB Q3 }310:POSITION 17,22:PRINT (TOSS-I);:SOUND Q0,81,14,14:SOUND Q0,Q0,Q0,Q0:NEXT I:RETURN ›60 FOR I=Q1 TO SIZEY:FIELD$((I-Q1)*LINE }LEN+Q1)=LINE$:NEXT I:RETURN ›70 POKE 566,158:POKE 766,Q2:SIZEY=19:LINELEN=Q30:MAXSTEP=151:POSX=4:TOFININC=0.124›75 DIM STPC$( }302),ST$(Q2),SLUG$(Q2),TREE$(3),FIELD$(SIZEY*LINELEN),ORIG$(SIZEY*LINELEN),LINE$(LINELEN),STEPS(MAXSTEP),STEPDIR(MAXSTEP),ADD}(Q2),BCK(3),G$(3)›76 STPC$(3,4)=" ":ST$(Q1)=CHR$(127):ST$(Q2)="w":STPC$(Q1,Q2)=ST$:BCK(Q0)=12:BCK(Q1)=Q2:BCK(Q2)=Q0:G$(Q1,Q1})=CHR$(125):G$(Q2,Q2)=CHR$(125):G$(3,3)=CHR$(125)›77 FOR J=Q0 TO 13:FOR I=Q0 TO Q2:STPC$((20*J)+5+I*Q2,(20*J)+I*Q2+6)="i ":NE}XT I›78 FOR I=Q0 TO 6:STPC$((20*J)+11+I*Q2,(20*J)+I*Q2+12)=ST$:NEXT I:NEXT J›79 FOR I=285 TO 290 STEP Q2:STPC$(I,I+Q1)="i ":N}EXT I:FOR I=291 TO 302 STEP Q2:STPC$(I,I+Q1)=ST$:NEXT I›80 FOR J=Q0 TO Q1:FOR I=25 TO Q30 STEP Q2:STPC$(200*J+I,200*J+I+Q1)=S}T$:NEXT I:NEXT J›82 TREE$(Q1)="":TREE$(Q2)=CHR$(Q0):TREE$(3)="":SLUG$(Q1)="+":SLUG$(Q2)=CHR$(96)›85 GOTO 4008›87 IF STAGE=Q}2 THEN 94›88 IF SKUL THEN RETURN ›89 SKUL=Q1:DIM V$(188)›90 V$="¢!©@è©?@è©w@è©c@è©á@è©å@è©ñ@è©ÿ@¢!©8Hè©|H}è©îHè©ÆH詇Hè©§Hè©Hè©þH¢!©ýXè©Xè©Xè©*XèXèXè©XèX¢!©~!“è©ü!“è©ø!“è©X!“è!“è©P!“è!“è©!“}h`"›91 V$(2,2)=CHR$(Q0):V$(51,51)=CHR$(Q0):V$(100,100)=CHR$(Q0):V$(143,143)=CHR$(Q0):V$(147,147)=CHR$(Q0):V$(153,153)=CHR$(Q0}):V$(159,159)=CHR$(Q0)›92 V$(165,165)=CHR$(Q0):V$(169,169)=CHR$(Q0):V$(175,175)=CHR$(Q0):V$(179,179)=CHR$(Q0):V$(185,185)=CHR}$(Q0):V$(120,120)=CHR$(13)›93 Q=USR(ADR(V$)):RETURN ›94 IF MUSH THEN RETURN ›95 Q=USR(ADR("¢©@è©a@詈@è©’@è©@@è©x}@è©@è©@¢©àHè©H詎Hè©!H詉Hè©Hè©øHè©ÀH¢©XèXè©XèXè©Xè©Xè© Xè©X¢©À“è“è“è}©à“è“è©p“è©ð“è©À“h`"))›96 MUSH=Q1:RETURN ›105 GOSUB 1924›106 POSITION 4,Q1›107 IF BORDER=Q1 THEN PRINT "}"›110 FOR I=Q1 TO SIZEY›115 POSITION 5-BORDER,I+Q1›120 FROM=(I-Q1)*LINELEN+Q1›130 IF BORDER=Q1 THEN PRIN}T "|";›135 IF DRAWORIG=Q0 THEN PRINT FIELD$(FROM,FROM+LINELEN-Q1);›136 IF DRAWORIG=Q1 THEN PRINT ORIG$(FROM,FROM+LINELEN-Q1);}›140 IF BORDER=Q1 THEN PRINT "^";›150 NEXT I›156 IF BORDER=Q1 THEN GOSUB 1800›160 RETURN ›161 FIELD$(NUM1,NUM2)=TREE$:ORIG$(N}UM1,NUM2)=TREE$:FIELD$(NUM1+Q30,NUM2+Q30)=""›162 ORIG$(NUM1+Q30,NUM2+Q30)="":FIELD$(NUM1+60,NUM2+60)="';":ORIG$(NUM1+6}0,NUM2+60)="';"›163 POSITION TREEX+5,TREEY+Q2:PRINT TREE$:POSITION TREEX+5,TREEY+3:PRINT "":POSITION TREEX+5,TREEY+4:PRIN}T "';"›164 RETURN ›165 FIELD$(NUM1,NUM2)="()":ORIG$(NUM1,NUM2)="()":FIELD$(NUM1+Q30,NUM2+Q30)=SLUG$:ORIG$(NUM1+Q30,NUM2+Q30) }=SLUG$›166 POSITION TREEX+5,TREEY+Q2:PRINT "()":POSITION TREEX+5,TREEY+3:PRINT SLUG$:RETURN ›210 FOR I=Q1 TO 50›220 PRINT :IF!} NOT FI THEN SOUND Q0,131-I,10,13›230 NEXT I›235 SOUND Q0,Q0,Q0,Q0:FI=Q0›240 RETURN ›410 POKE 764,255›411 IF PEEK(764)=255 A"}ND STRIG(Q0) THEN 411›420 POKE 764,255›430 RETURN ›500 DRAWORIG=Q0›501 FOR I=Q0 TO 15:SOUND Q0,I*15+40,12,I:NEXT I:FOR I=14 T#}O Q0 STEP -Q1:SOUND Q0,I*15+40,12,I:NEXT I›505 POKE 709,PEEK(710):GOSUB 105:GOSUB 1710:POSITION 13,Q22:PRINT " ";STAGE+Q1;$}" sek ":GOSUB 1599:POKE YMUL+POSX,DGFC›510 POKE 709,14›520 TOSS=STAGE+Q1:GOSUB 59›530 DRAWORIG=Q1›535 POKE 709,PEEK(710):%}GOSUB 105:POSITION Q7,Q23:PRINT "Zapas paliwa na ";MAXSTEP-Q1;" krok";CHR$(127);"w";›540 GOSUB 1598:POKE YMUL+POSX,DGFC:POKE &}709,14›599 RETURN ›910 FINX=35›920 FINY=INT(RND(Q0)*16+3)›930 POSITION FINX,FINY+Q1›940 PRINT "*<="›950 POSITION FINX,FINY-Q1'}›960 PRINT " "›970 POSITION FINX,FINY›980 PRINT " #>"›999 RETURN ›1010 STARTX=4›1020 STARTY=INT(RND(Q0)*16+3)›1030 POSITION(} STARTX,STARTY+Q1›1040 PRINT ""›1050 POSITION STARTX,STARTY-Q1›1060 PRINT "&"›1070 POSITION STARTX,STARTY›1080 PRINT " "›109)}0 POSX=4:POSY=STARTY:YMUL=SC+40*POSY:YMULN=YMUL›1099 RETURN ›1210 STAMPX=POSX-3:STAMPY=POSY-Q2:ADD(Q0)=Q0:ADD(Q1)=Q0›1215 IF *}STAGE=3 THEN STAMPY=STAMPY+Q1›1220 GOSUB 1363›1299 RETURN ›1363 GOSUB 1409›1370 FIRST=Q1›1380 GOSUB 1510›1381 IF STAMPX<(27+S+}TAGE) THEN 1380›1382 DIST=(STAMPY-FINY)+Q2:IF STAGE=3 AND DIST=0 THEN FIELD$((FINY-Q2)*Q30+FINX-5,(FINY-Q2)*Q30+FINX-5)=" "›1,}383 IF DIST>Q0 THEN COURSE=Q0›1384 IF DIST33 THEN PROG=33›1420 POSITION PROG,Q22:PRINT "":SOUND Q0,60-PROG,8,4›1423 IF P+3-STAGE>570 THEN RETURN ›1420}5 FIELD$(P,P+3-STAGE)=" "›1426 IF PROG=15 OR PROG=26 AND ADD(INT((PROG-Q1)/15))=Q0 THEN ADD(INT((PROG-Q1)/15))=P›1440 NEXT 1}J›1499 RETURN ›1510 IF FIRST=Q0 THEN GOSUB 2200›1513 IF FIRST=Q1 THEN GOSUB 2100›1515 REM ›1520 DIST=INT(RND(Q0)*(18-INT(3+LE2}V/2.25))):IF COURSE<>Q2 AND INT(RND(Q0)*3)>Q0 THEN DIST=DIST*(Q2+INT(RND(Q0)*4))›1530 IF COURSE=Q0 THEN INCSTX=Q0:INCSTY=MQ1›3}1531 IF COURSE=Q1 THEN INCSTX=Q0:INCSTY=Q1›1532 IF COURSE=Q2 THEN INCSTX=Q1:INCSTY=Q0›1540 FOR K=Q1 TO DIST:F=Q0›1550 STAMPX=4}STAMPX+INCSTX›1555 IF STAMPX>(27+STAGE) THEN STAMPX=27+STAGE›1560 STAMPY=STAMPY+INCSTY›1565 IF STAMPY>17+STAGE-Q1 THEN STAMPY5}=17+STAGE-Q1:F=Q1›1566 IF STAMPYQ0 THEN FO=}R DOGSLIVE=Q1 TO DGS:PRINT "X";:NEXT DOGSLIVE›1999 RETURN ›2100 COURSE=INT(RND(Q0)*3)›2110 FIRST=Q0›2120 RETURN ›2200 IF COUR>}SE=Q0 OR COURSE=Q1 THEN CURNEW=Q2›2210 IF COURSE=Q2 THEN CURNEW=INT(RND(Q0)*Q2)›2220 COURSE=CURNEW›2230 RETURN ›3000 GRAPHICS?} Q0:POKE 559,Q0:FI=Q1:POKE 752,Q1:POKE 756,STL/256:SETCOLOR Q2,Q0,Q0:SETCOLOR Q1,10,13›3005 DL=PEEK(560)+256*PEEK(561)›3010 P@}OKE DL+Q7,Q7›3015 POKE DL+8,Q7›3020 POKE DL+Q23,6›3025 POKE DL+24,6›3030 POKE DL+27,65›3035 POKE DL+28,PEEK(560)›3040 POKE DLA}+29,PEEK(561)›3045 POSITION 4,Q2:PRINT "âéåäîù  ðéåóÓ":POSITION Q7,Q0:PRINT "Miserable Dog Anthony v2.1";:POSITION Q2,3:POKE B}559,34›3050 PRINT " czyli ";CHR$(34);"Nie dla psa rolmopsa...";CHR$(34)›3070 POSITION 5,17:PRINT "ãòåáôåä âù MGR INVC}. RAFAL Made with Atari Basic, the right way!"›3071 POKE 764,255:POKE 559,34:TOSLEEP=D}Q30:GOSUB Q3310›3072 POSITION 25,Q2:PRINT CHR$(88);" an";:GOSUB 3500:GOSUB Q3310›3073 PRINT "to";:GOSUB 3500:GOSUB Q3310:CHEAE}T=Q0›3074 PRINT "ni ";CHR$(36):GOSUB 3500:GOSUB Q3310:TOSLEEP=Q2›3075 POSITION Q2,5:PRINT "F}";:SOUND Q0,INT(RND(Q0)*Q30)+Q30,14,Q1:GOSUB Q3310›3080 POSITION Q2,10:PRINT "|wszystkie znicze napQdowe i wr";CHR$(127);"cG}i";CHR$(126);"^";:SOUND Q0,INT(RND(Q0)*Q30)+Q30,14,Q2:GOSUB Q3310›3085 POSITION Q2,Q7:PRINT "|jadH ser, gdy nagle coJ siQ stH}aHo^";:SOUND Q0,INT(RND(Q0)*Q30)+Q30,14,3:GOSUB Q3310›3090 POSITION Q2,9:PRINT "|cie! Serio! Teraz musi odnalex";CHR$(126)I};"^";:SOUND Q0,INT(RND(Q0)*Q30)+Q30,14,4:GOSUB Q3310›3095 POSITION Q2,6:PRINT "|ByH piQkny, sHoneczny dzie\. Antek^":SOUND Q0J},INT(RND(Q0)*Q30)+Q30,14,5:GOSUB Q3310›3100 POSITION Q2,13:PRINT "|znicza. Czeka na Ciebie 27 sztuk!^";:SOUND Q0,INT(RND(Q0)K}*Q30)+Q30,14,6:GOSUB Q3310›3105 POSITION Q2,11:PRINT "|do budy!  Skup siQ, zapamiQ-^";:SOUND Q0,INT(RND(Q0)*Q30)+Q30,14L},7:GOSUB Q3310›3110 POSITION Q2,8:PRINT "|i pies znalazH siQ na innej plane-^";:SOUND Q0,INT(RND(Q0)*Q30)+Q30,14,8:GOSUB Q331M}0›3115 POSITION Q2,12:PRINT "|taj trasQ, a nastQpnie truchtaj po^";:SOUND Q0,INT(RND(Q0)*Q30)+Q30,14,9:GOSUB Q3310›3120 POSITN}ION Q2,14:PRINT "";:SOUND Q0,INT(RND(Q0)*Q30)+Q30,14,10:GOSUB Q3310›3125 POSITION 6,15:PRO}INT "Puknij w ";CHR$(34);"Óôáòô";CHR$(34);" lub ";CHR$(34);"Æáêåò";CHR$(34);:SOUND Q0,Q0,Q0,Q0›3130 CTROL=PEEK(53279)›3132 IFP} CTROL=6 OR NOT STRIG(Q0) THEN GOTO Q7›3133 IF CTROL=4 THEN CHEAT=Q1:GOTO Q7›3134 IF PEEK(764)=28 THEN 9000›3135 GOTO 3130›3Q}310 POKE 66,Q1:POKE 556,Q1›3330 POKE 543,INT(TOSLEEP/256)›3340 POKE 542,TOSLEEP-(PEEK(543)*256):POKE 66,Q0›3350 POKE 66,Q0›33R}60 IF PEEK(556) THEN 3360›3370 RETURN ›3500 FOR I=15 TO 0 STEP -Q1:SOUND Q0,121,Q0,I:NEXT I:RETURN ›4008 POKE 106,144›4009 GRS}APHICS Q0:POKE 559,Q0›4010 STL=(PEEK(106))*256:RESTORE 8050:FOR I=1536 TO 1571:READ X:POKE I,X:NEXT I:Q=USR(1536)›4011 DIM X$T}(152):X$="¢©’è©’è©’è©’è©ÿ’è©’è©ÿ’è©’袩!à“è©!à“è©!à“è©?à“è©ÿà“è©?à“è©!à“è©!à“袩Pð‘è©Pð‘è©U}Pð‘è©üð‘è©ÿð‘è©üð‘è©Pð‘è©Pð‘èh`"›4012 X$(54,54)=CHR$(10):X$(60,60)=CHR$(10):X$(66,66)=CHR$(10):X$(90,90)=CHR$(10):X$(96V},96)=CHR$(10):Q=USR(ADR(X$))›4013 X$="¢©ˆ’詈’詈’è©<ˆ’è©?ˆ’詈’è© ˆ’è©!ˆ’袩(’è©(’è©(’è©<(’è©ü(’è©(’W}è©Ð(’è©P(’袩P’è©P’è©P’è©P’è©Ü’è©’è©þ’è©’èh`"›4014 X$(46,46)=CHR$(10):Q=USR(ADR(X$))›4015 X$="¢©!Ð’è©!X}Ð’è©!Ð’è©!Ð’è©;Ð’è©xÐ’è©Ð’è©8В袩PÀ’è©PÀ’è©pÀ’è©|À’è©þÀ’è©þÀ’è©|À’è©À’袩!0è©!0è©0è©>0è©0è©Y}0è©>0è©0èh`"›4016 X$(4,4)=CHR$(10):X$(10,10)=CHR$(10):X$(16,16)=CHR$(10):X$(22,22)=CHR$(10):X$(104,104)=CHR$(10):X$(110Z},110)=CHR$(10):Q=USR(ADR(X$))›4017 X$="¢©¸’è©>¸’詸’詸’è©>¸’詸’è©!¸’è©!¸’袩Pè©|Pè©þPè©þPè©|Pè©pP[}è©PPè©PP袩’è©’è©’è©’è© ’è© ’è© ’è© ’èh`"›4018 X$(40,40)=CHR$(10):X$(46,46)=CHR$(10):Q=USR(ADR(X$))\}›4019 X$="¢©’è© ’è©!’è©A’è©Ê’詌’詨’è©”’袩€’è©€’è©€’è©€’è©*€’è©$€’詤€’è©H€’袩¨’è©3¨’è©]} ¨’詨’詨’詨’詨’詨’èh`"›4020 X$(78,78)=CHR$(Q22):Q=USR(ADR(X$))›4021 X$="¢©!H詊Hè©THè©THè©TH詘H^}è©´Hè©¢H袩 X詟Xè©BXè©1Xè©Xè©?Xè©Xè©X袩ª“è©#“è©*“è©ä“è©ø“è©ð“è©à“è©“èh`"›4022 X$(_}4,4)=CHR$(10):X$(116,116)=CHR$(Q22):Q=USR(ADR(X$))›4035 Q=USR(ADR("¢©è“è©è“è©Dè“è©Hè“è©*è“è©,è“è©(è“è©è“袩ÿøè`}©<øè©øè©8øè©øè©8øè©øè©<øè¢©Ø“è©Ø“è©Ø“è©Ø“è©hؓ詬ؓè©*Ø“è©Ø“èh`"))›4036 Q=USR(ADR("¢©`‘è©`a}`‘è©l`‘è©x`‘è©p`‘è©``‘è©~`‘è©`‘袩À‘è©À‘è©„À‘è©üÀ‘è©|À‘è©ÊÀ‘è©©À‘è©©À‘袩 è©` è©! è©? è©> è©S b}è©• è©• èh`"))›4037 Q=USR(ADR("¢©d°’è©D°’è©}°’è©ÿ°’è©~°’è©~°’è©z°’è©r°’袩Ș’è©þ˜’詘’è©€˜’詘’詘’è©c}˜’詘’袩Ȓè©È’è©È’è©È’è©È’è©È’è©È’è©È’èh`"))›4038 Q=USR(ADR("¢©r8è©~8è©~8è©8è©ÿ8è©ÿ8è©ÿ8d}è©o8袩Øè©Øè©Øè©Øè©Øè©Øè©€Øè©@Øè¢©@è© @è©N@è©‘@試@詪@詪@è©®@èh`"))›4040 Q=USR(e}ADR("¢©X’è©X’è©X’è©X’è©X’è©X’è©X’è© X’袩€`’è©€`’è©À`’è©€`’è©€`’è©à`’è©`’è©`’袩Aè©詇èf}©‡è©è©Aè©Aè©Aèh`"))›4041 Q=USR(ADR("¢©‚ðè©ðè©åðè©åðè©…ð詊ð詊ð詊ð袩!àè©!àè© àè©g}àè©àè©àè©àè©à袩ˆ‘詈‘è©<ˆ‘è©fˆ‘è©~ˆ‘è©`ˆ‘è©<ˆ‘詈‘èh`"))›4042 Q=USR(ADR("¢©”èè©”èè©èè©(èèq}Ãÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb&DOS SYSb*START BATB¾+PROGRAM BASB éREADME TXTBÍõBPA211 LST©èè©ðèè©øèè©øè袩ø“è©ø“è©<ø“è©fø“è©fø“è©fø“è©<ø“è©ø“袩@‘è©8@‘è©@‘è©@‘è©x@‘è©@‘è©<@‘è©@‘èhr}`"))›4043 Q=USR(ADR("¢©P‘è©P‘è©>P‘è©`P‘è©ø‘è©fø‘è©>ø‘è©ø‘èh`"))›4044 Q=USR(ADR("¢©°‘è©°‘è©~°‘è© °‘è©°‘è©0°‘è©~°‘è©°‘袩À“t}è©À“è©~À“è© À“è©À“è©0À“è©~À“è©À“èh`"))›4049 Q=USR(ADR("¢©ð“è©ð“è©<ð“è©`ð“è©`ð“è©`ð“è©<ð“è©ð“袩€ ’è©@u} ’è© ’è©  ’è© ’è©Ð ’è© ’è© ’袩 0’è© 0’è© 0’è© 0’è©0’è©?0’è©?0’è©0’èh`"))›4050 Q=USR(ADR("¢©8’è©8’v}è©8’è©8’è©8’è©ü8’è©ü8’è©8’袩@’è©`@’è©p@’è©a@’è©@’è©@’è©@’è©@’袩H’è©H’è©H’è©H’è©H’è©pH’èw}©pH’詨H’èh`"))›4051 Q=USR(ADR("¢©€P’è©`P’è©àP’è©hP’詆P’è©P’è©P’è©P’袩p’è©p’è©p’è©p’詨p’è©pp’è©px}p’è©p’袩x’è©x’è©x’è©x’è©Ex’è©Fx’è©2x’è©x’èh`"))›4053 GOTO 3000›5010 PTS=ATLEVSTART:POSITION POSX,POSY-Q1:PRIy}NT "":POSITION POSX,POSY:PRINT ""›5012 POSITION Q7,Q22:PRINT "Oto Tw";CHR$(127);"j gr";CHR$(127);"b! Biedny Psie":SOUND Qz}0,241,Q0,15›5013 IF STARVE=Q1 THEN POSITION 6,Q23:PRINT " Pies zasHabH z gHodu ";›5014 IF STARVE=Q0 THEN POSITION 6,Q23:{}PRINT " ";›5015 TOSLEEP=240:GOSUB Q3310:SOUND Q0,241,Q0,7›5018 POSITION 8,Q23:PRINT " WduJ jakiJ|} guzik ";:POKE 764,255:GOSUB 410›5019 DRAWORIG=Q0:BORDER=Q0:SOUND Q0,Q0,Q0,Q0›5020 GOSUB 105›5025 GOSUB 1710›5030 POSITION 1}}2,Q22:PRINT "Tak wygasaH pies";›5045 TOSLEEP=4›5050 FOR STEPDRAW=Q0 TO CURSTEP-Q1›5053 POSITION POSX,POSY-Q1:PRINT ""›5057 ~}POSITION POSX,POSY:PRINT ""›5060 POKE STEPS(STEPDRAW),STEPDIR(STEPDRAW):GOSUB Q3310›5090 NEXT STEPDRAW›5091 POSITION POSX,P}OSY-Q1:PRINT ""›5092 POSITION POSX,POSY:PRINT ""›5096 POSITION 12,Q23:PRINT "WduJ jakiJ guzik";:POKE 764,255›5097 GOSUB 4€}10›5098 DGS=DGS-Q1›5099 IF DGS=MQ1 THEN 7000›5100 GOTO 11›6000 POSITION Q7,Q22:PRINT "Formowanie fauny i flory...";:SOUND Q0,}Q0,Q0,Q0:NUMTREES=INT(RND(Q0)*(9-STAGE*Q2))+6-STAGE›6005 FOR I=Q1 TO NUMTREES:GOSUB 7700›6007 TREEX=INT(RND(Q0)*27)+Q1:TREEY=‚}INT(RND(Q0)*16)+Q1›6008 NUM1=TREEY*Q30+TREEX+Q1:NUM2=TREEY*Q30+TREEX+3›6009 GSPOT=0:GOSUB 7500›6010 IF GSPOT THEN GOSUB 161›6ƒ}040 NEXT I›6050 NUMTREES=INT(RND(Q0)*(10-STAGE*Q2))+9-STAGE›6055 FOR I=Q1 TO NUMTREES:GOSUB 7720›6060 TREEX=INT(RND(Q0)*28)+Q„}1:TREEY=INT(RND(Q0)*17)+Q1›6065 NUM1=TREEY*Q30+TREEX+Q1:NUM2=TREEY*Q30+TREEX+Q2›6066 GSPOT=0:GOSUB 7505›6070 IF GSPOT THEN GO…}SUB 165›6080 NEXT I›6099 GOSUB 1710:RETURN ›7000 GOTO 8202›7500 IF FIELD$(NUM1,NUM2)=G$ AND FIELD$(NUM1+Q30,NUM2+Q30)=G$ AND †}FIELD$(NUM1+60,NUM2+60)=G$ THEN GSPOT=1›7501 RETURN ›7505 IF FIELD$(NUM1,NUM2)=G$(1,2) AND FIELD$(NUM1+Q30,NUM2+Q30)=G$(1,2) ‡}THEN GSPOT=1›7506 RETURN ›7700 SOUND Q0,64,14,15›7710 SOUND Q0,70,14,15:SOUND Q0,Q0,Q0,Q0:RETURN ›7720 SOUND Q0,84,14,15›7730ˆ} SOUND Q0,90,14,15:SOUND Q0,Q0,Q0,Q0:RETURN ›7999 CLR :GRAPHICS 7:LINE=0:POKE 756,(PEEK(106))*256/256:POKE 752,1:RESTORE 8100‰}›8000 PRINT :PRINT "UJmiechniQty piesek z kiszk_ w misce"›8001 PRINT " To mHyn na wodQ kaVdego agronoma!";›8009 READ I:IF I>Š}=0 THEN PLOT I,LINE:READ I:SOUND 0,I,12,14:DRAWTO I,LINE:GOTO 8009›8010 IF I<-2 THEN COLOR -I+10:GOTO 8009›8020 IF I=-1 THEN ‹}LINE=LINE+1:GOTO 8009›8040 SOUND 0,0,0,0:GOTO 8200›8050 DATA 162,0,160,0,189,0,224,157,0,144,189,0,225,157,0,145,189,0,226,15Œ}7,0,146,189,0,227,157,0,147,232,200,196,255,208,226,104,96›8100 DATA -13,2,157,-1,2,157,-11,-1,24,25,-1,23,27,106,110,-1,22,2}8,107,112,-1,15,18,21,27,109,117,-1,12,27,111,115,118,118,120,126,-1,10,28,113,117›8101 DATA 119,127,-1,8,30,103,106,117,129,Ž}-1,6,30,103,111,117,135,-1,4,14,25,29,106,136,-1,4,13,25,28,110,114,117,137,-1,4,10,114,115›8102 DATA 117,127,-13,128,131,-11},132,138,-1,4,9,115,127,-13,128,133,-11,134,138,-1,4,8,115,126,-13,127,130,133,135,-11,136,138,-1,4,10,115,126,-13,127,130,13}3,135›8103 DATA -11,136,138,-1,5,11,13,23,115,126,-13,127,134,-11,135,139,-1,6,25,116,128,-13,129,133,-11,134,140,-1,7,34,118‘},152,-1,8,39,119,150,152,155,-1,9,46›8104 DATA 75,105,119,150,154,155,-1,8,106,120,151,153,153,-1,8,24,-12,25,29,-11,30,107,1’}20,153,-1,8,17,-12,18,22,-11,23,24,-12,25,25,-11,26,31,-12,32,35›8105 DATA -11,36,37,-12,38,44,-11,45,109,121,153,-1,8,21,-12“},22,22,-11,23,24,-12,25,25,-11,26,31,-12,32,32,-11,33,40,-12,41,41,-11,42,46,-12,47,51,-11,52,111,122,152›8106 DATA -1,7,21,-”}12,22,22,-11,23,24,-12,25,28,-11,29,31,-12,32,34,-11,35,40,-12,41,41,-11,42,45,-12,46,46,-11,47,52,-12,53,56,-11,57,58,-12,59•},62,-11,63,112,123,152›8107 DATA -1,6,21,-12,22,22,-11,23,24,-12,25,25,-11,26,33,-12,34,34,-11,35,40,-12,41,41,-11,42,45,-12,–}46,46,-11,47,52,-12,53,53,-11,54,55,-12,56,56,-11,57,58,-12,59,59›8108 DATA -11,60,61,-12,62,62,-11,63,100,-12,101,101,-11,10—}2,113,125,142,-1,4,21,-12,22,22,-11,23,24,-12,25,25,-11,26,31,-12,32,34,-11,35,45,-12,46,49,-11,50,52,-12,53,53›8109 DATA -11˜},54,55,-12,56,56,-11,57,58,-12,59,59,-11,60,61,-12,62,62,-11,63,100,-12,101,102,-11,103,114,125,140,-1,4,21,-12,22,22,-11,23,™}24,-12,25,29,-11,30,45,-12,46,46›8110 DATA -11,47,52,-12,53,53,-11,54,55,-12,56,59,-11,60,61,-12,62,62,-11,63,101,-12,102,102š},-11,103,105,-12,106,106,-11,107,115,126,152,-1,4,19,-12,20,21,-11,22,45,-12,46,46›8111 DATA -11,47,52,-12,53,53,-11,54,97,-1›}2,98,98,-11,99,101,-12,102,102,-11,103,105,-12,106,106,-11,107,116,126,152,-1,4,17,-12,18,20,-11,21,45,-12,46,46,-11,47,52,-1œ}2,53,53›8112 DATA -11,54,92,-12,93,93,-11,94,97,-12,98,98,-11,99,102,-12,103,103,-11,104,104,-12,105,105,-11,106,117,126,149,}-13,150,151,-11,-1,4,46,-12,47,50,-11,51,87,-12,88,88,-11,89,92›8113 DATA -12,93,95,-11,96,97,-12,98,98,-11,99,102,-12,103,10ž}5,-11,106,118,126,134,-13,145,150,-11,-1,4,6,10,87,-12,88,88,-11,89,92,-12,93,93,-11,94,94,-12,95,96,-11,97,97›8114 DATA -12,Ÿ}98,98,-11,99,103,-12,104,104,-11,105,118,126,132,-13,145,150,-11,-1,4,5,11,27,-12,28,32,-11,33,71,-12,72,72,-11,73,82,-12,83, }83,-11,84,88,-12,89,89,-11,90,92›8115 DATA -12,93,93,-11,94,95,-12,96,98,-11,99,103,-12,104,104,-11,105,120,126,131,-13,146,1¡}49,-11,-1,4,6,10,26,-12,27,27,-11,28,76,-12,77,77,-11,78,82,-12,83,83,-11,84,88›8116 DATA -12,89,89,-11,90,92,-12,93,93,-11,9¢}4,96,-12,97,98,-11,99,120,126,131,-13,146,149,-11,-1,4,6,-12,7,9,-11,10,25,-12,26,26,-11,27,34,-12,35,43,-11,44,47,-12,48,51›£}8117 DATA -11,52,53,-12,54,58,-11,59,60,-12,61,65,-11,66,70,-12,71,74,-11,75,76,-12,77,77,-11,78,82,-12,83,83,-11,84,88,-12,8¤}9,89,-11,90,91,-12,92,92,-11,93,96,-12,97,98›8118 DATA -11,99,112,115,120,126,130,-13,147,148,-11,-1,4,5,-12,6,7,-11,8,25,-12¥},26,32,-11,33,41,-12,42,42,-11,43,47,-12,48,48,-11,49,56,-12,57,57,-11,58,60,-12,61,61›8119 DATA -11,62,69,-12,70,70,-11,71,7¦}6,-12,77,77,-11,78,82,-12,83,83,-11,84,88,-12,89,89,-11,90,90,-12,91,92,-11,93,96,-12,97,97,-11,98,111,116,121,126,130,-13,14§}7,148›8120 DATA -11,-1,4,6,-12,7,7,-11,8,31,-12,32,32,-11,33,40,-12,41,41,-11,42,46,-12,47,47,-11,48,55,-12,56,56,-11,57,60,-¨}12,61,64,-11,65,68,-12,69,70,-11,71,76,-12,77,77›8121 DATA -11,78,82,-12,83,83,-11,84,88,-12,89,90,-11,91,110,117,121,126,130©},-13,147,148,-11,-1,4,6,-12,7,7,-11,8,32,-12,33,33,-11,34,39,-12,40,40,-11,41,45,-12,46,47›8122 DATA -11,48,54,-12,55,55,-11,ª}56,60,-12,61,61,-11,62,69,-12,70,71,-11,72,76,-12,77,77,-11,78,88,-12,89,90,-11,91,109,117,121,126,130,-13,147,147,-11,-1,5,3«}1,-12,32,32›8123 DATA -11,33,38,-12,39,39,-11,40,47,-12,48,48,-11,49,53,-12,54,54,-11,55,60,-12,61,61,-11,62,70,-12,71,71,-11¬},72,76,-12,77,81,-11,82,108,118,121,126,130,-13,147,147›8124 DATA -11,-1,6,30,-12,31,31,-11,32,37,-12,38,38,-11,39,48,-12,49,­}49,-11,50,53,-12,54,58,-11,59,60,-12,61,61,-11,62,71,-12,72,73,-11,74,107,117,121,126,129,-13,147,148›8125 DATA -11,-1,7,30,-®}12,31,31,-11,32,36,-12,37,43,-11,44,49,-12,50,51,-11,52,60,-12,61,66,-11,67,71,-12,72,73,-11,74,106,117,121,125,128,-13,146,1¯}48,-11,-1,8,25,-12,26,30›8126 DATA -11,31,64,-12,65,65,-11,66,70,-12,71,71,-11,72,105,117,121,124,128,-13,147,148,-11,-1,9,64°},-12,65,65,-11,66,68,-12,69,71,-11,72,100,117,121,123,128,-1,9,18›8127 DATA 20,28,34,65,-12,66,66,-11,67,99,117,128,-1,9,17,2±}3,28,36,40,42,46,59,99,117,128,140,140,-1,9,17,23,28,37,39,43,45›8128 DATA 73,91,93,98,117,128,138,141,-13,147,147,-11,-1,9,1²}7,23,28,38,38,44,44,76,90,117,127,138,142,-13,147,147,-11,-1,9,17,23,28,38,38›8129 DATA 44,44,76,91,117,126,138,142,-13,146,1³}47,-11,-1,9,17,23,28,38,38,44,44,76,91,117,125,139,143,-13,146,147,-11,-1,9,17,23,28,-13,38,38›8130 DATA -11,76,91,117,124,13´}7,138,142,144,-1,9,17,24,29,-13,44,44,-11,76,91,118,123,137,143,-1,10,17,24,29,76,91,120,121,135,136,138,143›8131 DATA -1,10,µ}17,24,29,76,81,85,90,134,137,139,143,-13,149,149,-11,-1,10,17,24,29,-13,44,44,-11,76,81,85,91,134,138,141,143,-13,149,149,-11¶},-1,10,17›8132 DATA 24,29,76,81,85,91,132,133,136,139,141,143,-13,149,150,-11,-1,10,17,24,29,76,81,85,90,131,135,138,143,-13,·}149,150,-11,-1,10,17,25,29›8133 DATA 75,81,85,91,130,130,132,137,139,142,-1,10,17,25,29,-13,38,38,-11,75,80,85,91,129,131,135¸},141,-1,10,16,25,30,73,80,85,91›8134 DATA -13,123,125,-11,126,126,128,140,-1,11,16,25,30,72,79,85,91,-13,119,122,-11,125,127,¹}129,139,-13,140,140,-11,-1,11,16,25,30,-13,44,44,-11,71,78,85,90›8135 DATA -13,117,118,-11,124,128,131,138,-13,140,143,-11,-1º},11,16,25,30,-12,52,55,-11,70,77,85,91,-13,115,116,-11,124,137,-13,144,145,-11,-1,11,16,25,30,-12,52,56,-11,69,76›8136 DATA 8»}6,91,-13,115,119,-11,124,136,-13,140,145,-11,-1,11,16,25,30,-13,38,38,-12,52,59,-11,60,75,86,90,-12,91,92,-13,115,123,-11,124¼},134,-13,135,145,-11,-1,11,16,26,30›8137 DATA -12,52,60,-11,61,74,86,90,-12,91,93,-13,115,145,-11,-1,11,16,26,30,-12,52,60,-1½}1,61,73,86,86,-12,87,94,-13,116,145,-12,-1,2,4,-11,11,16,26,30,-12,52,59›8138 DATA -11,60,71,-12,86,95,-13,116,119,-12,120,12¾}2,-13,123,123,-12,124,124,-13,125,126,-12,127,127,-13,128,128,-12,129,131,-13,132,132,-12,133,135,-13,136,136,-12,137,137,-13¿},138,138,-12,139,139›8139 DATA -13,140,145,-12,-1,2,4,-11,12,16,26,30,-12,52,59,-11,60,69,-12,87,94,96,97,-13,116,119,-12,120À},120,-13,121,121,-12,122,122,-13,123,123,-12,124,125,-13,126,126,-12,127,127›8140 DATA -13,128,129,-12,130,130,-13,131,132,-1Á}2,133,133,-13,134,136,-12,137,138,-13,139,143,-12,-1,2,6,-11,12,16,26,30,-12,38,38,52,59,-11,60,68,-12,88,103,-13,117,119,-12Â},120,122›8141 DATA -13,123,123,-12,124,124,-13,125,125,-12,126,127,-13,128,129,-12,130,130,-13,131,132,-12,133,134,-13,135,13Ã}6,-12,137,137,-13,138,138,-12,139,139,-13,140,142,-12,-1,2,4,6,8,-11,12,16›8142 DATA 26,30,-12,37,39,52,56,89,95,97,97,99,99,Ä}101,104,-13,118,119,-12,120,120,-13,121,121,-12,122,122,-13,123,123,-12,124,124,-13,125,126,-12,127,127,-13,128,129›8143 DATAÅ} -12,130,130,-13,131,132,-12,133,135,-13,136,136,-12,137,137,-13,138,138,-12,139,139,-13,140,142,-12,-1,3,5,7,8,-11,12,16,26,Æ}30,-12,33,34,36,38,40,41,52,54›8144 DATA 56,56,90,104,-13,119,141,-12,-1,4,6,8,9,-11,12,16,-12,26,43,53,56,91,104,-13,121,140Ç},-12,-1,5,16,25,32,34,34,36,36,38,43,53,54›8145 DATA 56,56,92,103,-13,124,135,-12,-1,6,16,25,42,53,57,-1,6,16,25,39,53,55,57,È}58,-1,7,16,26,37,53,57,-1,10,17,27,37,53,56›8146 DATA -1,12,15,55,56,-13,-1,2,157,-2›8200 PLOT 0,0:DRAWTO 0,79:PLOT 1,0:DRAWTÉ}O 1,79:PLOT 159,0:DRAWTO 159,79:PLOT 158,0:DRAWTO 158,79›8201 GOSUB 410›8202 STAGE=1:CLR :GRAPHICS 0:GOTO 6›9000 POKE 106,160Ê}:GRAPHICS 0:TRAP 55:POKE 566,146:RUN "D:AUTORUN.BAS"›,79›8201 GOSUB 410›8202 STAGE=1:CLR :GRAPHICS 0:GOTO 6›9000 POKE 106,1605