8(@@START.BATBAT38 START c}E q0 \C)CC8`DCeECiD` RP h1$E ȍ @y b Y)hܭ]L]` q  DMD   u j)`0  ,p0i2 &28jJ1f02 9 g iJf0i1)xԍӭ232002XԦ`  *'  } *(L `(  L l pL[,L] C i0 } p  gފދLh ( LD 0  C  C  \i +$+0'}; $(%)  b L[C `D P^߰")(݃   $DD}G@НL]S")M T H0 G$Ș݃ b 8$}$%8(() T `$E0(0)8`$GE` P} Li 8GD }L[ PH >iJ ;  yyB } ' |L[ "E( % H$ H#`L]B  0 G LO<  ( d lH۪!A3 A }jA !B EIC Y$E0 F  < 7 JN8Ndâ!,P h0ʠJd,6 } ' r/ $ ɛ ` '  L[  l }-     }    L[L  }  '  L[   p  ` g  l }) g ' }L[) ̠,L]T-0 |LM N݃:ː6UV LM N L(TU N,)M}LL[IL3GDIɛ ɜ DI  , JȊGм  G I) GȦ=}*GG ȄI1200820I H1E 1h0hIGI2ȢI`FE 0ɛ rɛ$ l '}蚦TTUVD`M L$:;Pyȱ$` r  iȱ$/:ȱ$VWyA**⩀ / }`$***? mL]-+ȱ$ɛ m* ? g. $0f.?'@ wAsTt/` }0: gL  `$0`j`& CpCi s L0JCܢj? I#}𴽎F ގМގ& & 0 C4 08L`0   | 레L] EGȽGȽ}G | E` 8,  }EG)݀G)ȱGȱG`"!L] l!i}栠$8  (IƭIp  h,g+j? 8 ii(Lq)! }S S0$} ) E9`H)N,L]8GH Lq`gNgfj****8jHi h` } 2J  &e2i`"%?&;^$IM ! ! <u hh`$}Ev옝^! 1EHFHjm GHm H`u$Ev`L=? +`!,pFE ȄD8 }q D&E`I0` i`+DOS SYSMOC.I   J ٍ = ) F)}8`Ll T!U<; Ln <JM -18     HH =}D 2 :  /1[F:M #.!  `>C #   #`>   e}L'>/b;\I\o@ @LK~ L  % /e  LL H}H0S0N:;=91D,1ɛK$ɛ`:;ʾ  ,ɛ}`XYȄ #`DTDRLUFFFCICLRSJ==CIYEEONSMDLNOOUAOOOARPLNCL#####PANVBNFR*),-PQOR}a/%<}) j ө  RES L%-, # 3 0 %   4(H 4(` }( 3  #  ZOiۨ L4RE 3 =F S Z +8!} 0+  FF % 4 4& 4(X)Y    # 4 ʤ Ȅ L"}F F LH hL4`*J 0 B B 0a   8#}    Lkl  );<  : ` 0 } T T 7̀΀$}LIl <;`<L 3   #/ ! R( 7 7   7 89i L7 ,(&  %} L480  ` Ln    `   HJJJJ h) ii0 ``0  ,BLV&}[J  B Vso Fhh` GH ,H hɐɀɡ)HDCȱCɛeCD먥D h'}N MSп` ED` OIH`hhXhh  nL Free Fil-SBreakI/O-Error 170Disk f(}ullWrite protectedFile MismatchBad FilenameDOS II+/D - Ver. 6.4plus RUN:Br`čLLockedDe)}vice doneDIR fullNot foundLoad?Bad DOSHex?AbortFromToHD) S)Eh` ɛLn ;LD2:+DOS SY}=ONLOA FNT.OBJ;RUN"D:PROGRAM.BAS" L*ʅȥe˅ BECF-m gUr gUȦ 3Lؠ$7;LPLQQFMQMQQQ2QQ2Q3Q331STAGSTBCKOLD55LINECHEAPTLEDGCURSTEPDIPLAYTIMDRAWORICURSTEMAXLEATLE,}VSTARORIGFIELDBORDEDSDGFYMUPOSSTEPSSTEPDIRMAXSTESTARVKEJOINCINCPOSSTARTYMULFIELDPOTOFININSTEPTOPSTPC-}FINFINTOSTOSLEESIZELINELESTSLUGTREEADDFROSTARTSTAMPSTAMPFIRSDISCOURSPROINCSTINCSTDOGSLIVCURNECTROS.}TEPDRANUMTREETREETREENUMNUMLIN /} @ 0} !"@#@$%&'()1}*+,-./01234567892}:;<@=>?@ABCDEFGHI3}JKLMNOPQRST************************4}** BIEDNY PIES ANTONI **** wersja: 1.7 FAST! **************************** by mgr inz. Rafal ****5}**********************6-6-@!6-.6-6@;6-6@C6-%O6-@#[6-%%%c6-&k66}-%w6-A3}6- @puAdAU+-AV'AVF08&@,@Z0@@i67}-F:AY,uAY[AR-+67<,.>:A%,/ 3G0@@[0@@ ' 6-8}6-6-!6-@'6- 6-@   6-6-6-6- A  @` A`6. 6-9}AY% A-@% %  A U%6-F:A`,%AV$F:Aa,K6-F:%@,%AV$:}F:%@,U A A2 A6-@V%68,-%68,-6-% !6;}- AP6-F:Ad,6-R:,!!"AU*"@@$!AdAU!@w 6-6-<}"@(A0A+")",* @46-+6-@V76-@rA @3M%+"@)"@,*!@+6-=}76-@C6-@tM @3M#+"@)"@,*!*)6-76-&@@C6-@xM @3 I)+"@>})"@,* @ */6-=6-%@@I6-@s!6-A#"6-"^ %'2A@@?}-!^67+&,$%+&@,<+&,$%+&@,,.{#7 6-%6-%6-!%72A@$?6-+&,$@}%+&@,(7<,4?567<,. ? A%+"*7<,4>:A%,!6-+ AP&DF:%,A#*+",*!&6A}-%,6-8!AD6-A'%-@ % %6-&&( -) A  * @  B}+  6-,& -@1& 7$%<$%,0(+"&*", 1%@V22 6-&6-%6C}-@3!@4$ 6-%$08&@,@5 @@6 Ay7AR8;c D}-6-@P --@@"6 +&,R2@@@\2` c$<# -67+&,$%,. E}#$FEAf6-@!6--6-AQ96-@E6-?@G Trwa uruchamianie...KRR;A,;,;,F};@,;$,;$,;,9,9,9,9@,L67@<@,. /67,.>:A',:67,.wE67<,.G}Z68,-@o68@,-@68@,-MW-@-S67+@ $,%@%$<+@ H}$,%$%@,.i W NP-@H67+@ $,%@%$<+@ $,%$%@,.L P OT-AAI})67<%,.i - C-AAP67<%,.T PD --@%<67A$%<A$%%,.J}@ D RH67,.67,.>:,+67@,.667,.+H67,.>:@,U A@i A$j-@k. K}".  n -s-@&%x6-+&,$% " | " 7<%&L}, " 7<%&, " ^  " A$-@P)  ()2A1&@M}@  26-$AdAU%%F:Ad,"AU*T:,AAdAU$N}$6-F:AY,AY$6-j-@12$@%@@@5 F-@6f2$@%@@O}@j H A A#-@6  4 sek @ AH%AY6-@ @YP}$6-F:AY,AY$6-D A-D Zapas paliwa na & krok>:A',w! A%Q}!AYW$% -" ERROR: STAMP ON 571+%&6-@56-P:H:,$@%@, -% *<=R} -&   -  #>$6-@6-P:H:,$@%@, -%  -&S}$ &. -8  B+6-@6-%6-%@@$+6-K$+6-&@6-&"68,-+68,-T}"@6-% Ac$S A Z 6-d Ae +@'%,Af^6-+&,%%"@U}*"^67+&@,$%&@<+&@,$%&@,. g !6-h  6-6-6l"*"@V}6-&m"*"@6-%t A0u Av5 -678,<8,,.?1678,<8,,.?5 w$W}-@&6-++%,&,$%+,)6-%@!@3)6-@3- - -2@`&@@X}1%@&!Ap16-Ap&+@&,!ApAf67<%@&,. G/"@)"@&Y}*8P:+&,'@,,"G68P:+&,'@,,- $ " A" " A!++COURSE = Q2:REM QUICK Z}PATH DEBUG HACK6-P:H:,$@, "6-6- "6-6- "6-6- - 6-%[}!!+@'%,!6-@'% 6-%#!@%&#6-@%&  6-" A , 1$>>-\}@) W drogQ! Biedny Psie;AdAU>$?--@* Skup siQ! Biedny Psie-$D 6-E6-F:AY]},AYY,-@&   sek ,6-^ Ac AdAY| @Y6-F:A^}Y,AY 6- A A A: -: Zapas paliwa na & krok>:A',w_} A$AY$5-@5  5-@5  `} $-@% ((  )) ! [oooooooooooooooooooooooooooo]#-@a}# Koszenie trawyk$-@  -@ !- X $46-P:H:,$@b},> 6-H$ ")"6- "6-P:H:,$, 6-$ d+ 6-6-F:AY,(AY4ARc}HAV'AVP0d0@@ %%6-F:A`,%AV$F:Aa, % %@ %d}@ %@$@ %@'@e %@(F:A`, %@)F:Aa, S-@ e} BIEDNY PIES&-G Miserable Dog Anthony v1.7FS-@ AA  czyli >:@4,Nie dla psa rolmopsa...>:@4f}, -@@ n MGRINV. RAFAL Made with Atari Basic,g} the right way! AY6-  %-@' an! A5%   to A5 6-  ni A5h} 6- W-@9 $S2P:H:,$,%@W  q-@S |wszyi}stkie znicze napQdowe i wr>:A',ci>:A&,^m2P:H:,$,%@q  W -3 $|jadH ser, gdy nagle cj}oJ siQ staHo^S2P:H:,$,%@@W  j-@ F "|cie! Serio! Teraz musi odnalex>:A&,^f2k}P:H:,$,%@@j  \-@8 $|ByH piQkny, sHoneczny dzie\. Antek^X2P:H:,$,%@@\ l} ]-@9 $|znicza. Czeka na Ciebie 27 sztuk!^Y2P:H:,$,%@@] ! ]-@9 $|do budy! m} Skup siQ, zapamiQ-^Y2P:H:,$,%@@] & ]-@9 $|i pies znalazH siQ na innej plane-^Y2P:H:n},$,%@@] + ]-@9 $|taj trasQ, a nastQpnie truchtaj po^Y2P:H:,$,%@@ ] 0 ]o}-@9 $Y2P:H:,$,%@@] 5 r-@@h  Puknij w >p}:@4,>:@4, lub >:@4,>:@4,r2: 6-F:B2y,< "@ = "@q}6- >  (T:, ? A10 @fAV ACP:'AV, $$AB&+F:AC,$Ar}V, @f F:AV,A3`* $ 1-@6*2A!. 1$D+6-F:AY,"s}AY4AADD  PATIENCE...6-+F:A,,$AVAY A0% 6--& t}-% X -B Oto Tw>:A',j gr>:A',b! Biedny PsieX2AA@6 "-@6 u} Pies zasHabH z gHodu 6 "-@6  )6-A@ )2AA@v}G-@+  WduJ jakiJ guzik =AdAUG A 6-6-2 A A%w}-@% Tak wygasaH pies6-@ -& -&  - 8,8,   x}-&  - 7-@% WduJ jakiJ guzik7AdAU A 6-&"Apy} @p''6-P:H:,$+@ &$,,%@&u -w/6-P:H:,$@',%/6-P:H:,$@,%x!6-$%%z}!6-$%%@z67<,.67%<%,.""67%@`<%@`,.'; ''6-P:H:,$+@&$,,%{}@& -/6-P:H:,$@(,%/6-P:H:,$@,%6-$%%6-$%%67<,.()67%<%|},. $X A0?7+ 6-!AV'AV-AR7#A@/ / $UJmiechniQty piesek z kiszk_ }}w misceA,, # To mHyn na wodQ kaVdego agronoma!I=" ,"-2@@3/= A J  6~}%@ A T "6-% A h 2 A-13,2,157,-1,2,157,-1,6,7, -11,24,25, -13,152,153,}-1,5,6, -11,23,27,106,110, -13,153,154,-1,4,5, -11,22,28,107,112, -13,154,155,-1,3,4, -11,15,18,21,27109,117, -13,155,1}56,-1,2,3, -11,12,27,111,115,118,118,120,126, -13,156,157,-1,2,2, -11,10,28,113,117,119,127, -13,157,157, -11,-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,13}1, -11,132,138,-1,4,9115,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, -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,75,105,119,150,154,155,-1,8,106120,151,153,153,-1,8,24, -12,25,29, }-11,30,107,120,153,-1,8,17, -12,18,22, -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,12}2,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,96, -12,97,97, -11,98,100, -12,101,101, -11,102,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, }-12,56,56, -11,57,58, -12,59,59-11,60,61, -12,62,62, -11,63,86, -12,87,87, -11,88,96, -12,97,97, -11,98,100, -12,101,10}1, -11,102,105, -12,106,106, -11,107,113,125,142,-1,4,21, -12,22,22, -11,23,24, -12,25,25-11,26,31, -12,32,34, -11,35,4}0, -12,41,41, -11,42,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,86, -12,87,87-11,88,96, -12,97,98, -11,99,100, -12,101,102, -11,103,105, -12,106,106, -11,107,114,125,140,-1,4,21}, -12,22,22, -11,23,24, -12,25,29, -11,30,40, -12,41,41, -11,42,45, -12,46,46-11,47,52, -12,53,53, -11,54,55, -12,56,59}, -11,60,61, -12,62,62, -11,63,87, -12,88,88, -11,89,96, -12,97,98, -11,99,101, -12,102,102, -11,103,105, -12,106,106, -11,10}7,115,126,152-1,4,19, -12,20,21, -11,22,45, -12,46,46, -11,47,52, -12,53,53, -11,54,61, -12,62,62, -11,63,68, -12,69,69}, -11,70,82, -12,83,83, -11,84,87, -12,88,88, -11,89,97, -12,98,98-11,99,101, -12,102,102, -11,103,105, -12,106,106, -1}1,107,116,126,152,-1,4,17, -12,18,20, -11,21,45, -12,46,46, -11,47,52, -12,53,53, -11,54,61, -12,62,62, -11,63,69, -12,70,70}-11,71,82, -12,83,83, -11,84,87, -12,88,88, -11,89,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,70, -12,71,71, -11,72,76, -12,77,77, }-11,78,82, -12,83,83, -11,84,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,76, -12,77,77, -11,78,82, -12,83,83, -11,84,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,11,27, -12},28,32, -11,33,76, -12,77,77, -11,78,82, -12,83,83, -11,84,88, -12,89,89, -11,90,92, -12,93,93, -11,94,95-12,96,98, -11},99,103, -12,104,104, -11,105,120,126,131, -13,146,149, -11,-1,4,6,10,26, -12,27,27, -11,28,60, -12,61,64, -11,65,76, -12,77,}77, -11,78,82, -12,83,83, -11,84,88-12,89,89, -11,90,92, -12,93,93, -11,94,96, -12,97,98, -11,99,103, -12,104,104, -11,}105,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, -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,89,8}9, -11,90,91, -12,92,92-11,93,96, -12,97,98, -11,99,103, -12,104,104, -11,105,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, -1}2,97,97-11,98,103, -12,104,104, -11,105,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,110,117,121,126,130, -13,147,148, -11,-1,4,6, -12,7,7-11,8,3}2, -12,33,33, -11,34,39, -12,40,40, -11,41,45, -12,46,47, -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,6, -12,7,7, -11,8,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,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, -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,20,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,3844,44,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,3844,44,76,91,117,125,139,143, -13,146,147, -11,-1,9,17,23,28, -13,38,38, -11,76,91,11}7,124,137,138,142,144,-1,9,17,24,29, -13,44,44, -11,76,91118,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,1724,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,1724,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,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, -13,117,118, -11,124,128,131,138, -13,140,143,} -11,-1,11,16,25,30, -12,52,55, -11,70,7785,91, -13,115,116, -11,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,30, -13,38,38, -12,52,59-11,60,75,86,90, -12,91,}92, -13,115,123, -11,125,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,9}2,94,95, -13,116,119, -12,120,122, -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, -13,140,145, -12,-1,2,4, -11,12,16,26,30, -12,52,59, -1}1,60,69, -12,87,9496,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,1}6,26,30, -12,38,38,52,54,56,59, -11,60,68, -12,88,103, -13,117,119, -12,120,122, -13,123,123, -12,124,124, -13,125,125, -12,1}26,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,1}42, -12,-1,2,4,6,8, -11,12,16,26,30, -12,37,39,52,56,89,95,97,97,99,99101,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,1}36, -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,5}6,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,7,9,16,25,30,32,32,34,34,}36,36,38,43,53,54,56,56,92,103, -13,124,135,-1,2,2-12,6,16,25,42,53,57, -13,157,157,-1,2,3, -12,6,16,25,39,53,55,57,58,} -13,156,157,-1,3,4, -12,7,16,26,37,53,57, -13,155,156,-1,4,5YY-12,10,17,27,37,53,56, -13,154,155,-1,5,6, -12,12,15,55,56}, -13,153,154,-1,2,157,-2 c ,/@y,'/@y3,AYE/AY@yQ,AXc/AX@y}  A A0 D:PROGRAM.BAS,'/@y3,AYE/AY@yQ,AXc/AX@y,,119, -12,120,122, -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, -13,140,145, -12,-1,2,4, -11,12,16,26,30, -12,52,59, -11,60,69, -12,87,}9496,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,12}8,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,38,}38,52,54,56,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,99101,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,11}9,141, -12,-1,4,6,8,9, -11,12,16-12,26,43,53,56,91,104, -13,121,140, -12,-1,5,7,9,16,25,30,32,32,34,34,36,36,38,43,53,5}4,56,56,92,103, -13,124,135,-1,2,2-12,6,16,25,42,53,57, -13,157,157,-1,2,3, -12,6,16,25,39,53,55,57,58, -13,156,157,-1,}3,4, -12,7,16,26,37,53,57, -13,155,156,-1,4,5YY-12,10,17,27,37,53,56, -13,154,155,-1,5,6, -12,12,15,55,56, -13,153,154,-1},2,157,-2 c ,/@y,'/@y3,AYE/AY@yQ,AXc/AX@y  A }A0H1:PROGRAM.BASGra przyrodnicza polegajaca na pomocy biednemu psu Antoniemu. Pies ten trafil na obca planete i musi nazbierac troche zniczy } aby odpalic rakiete na znicze :) Gra wykorzystuje technologie Atari Basic oraz GR.0. Podziekowania dla zacnych ludzi }z "atarionline.pl" za sugestie i porady :) -- mgr inz. Rafal EfffAAAA `!?>Sfl0fF >>r~~o N TTT||pPPB1?0~ 0}`@ 8@!! (兊<}88<``nf>8x<~~>`<|flxxlf`lxp`~cwkccfv~~nf}f> !Aʌ PPPP@ А<P ??`papp`h }ppEF2"$H> PPp|| ;x8x`x`~<~~<}0~0 ~ #"<>f>``|ff|<```<>ff>>ff>|``|fff8<<``lxlf8<f}kc|ffffff>|f```>`<|~ffff>fff<ck>6~ 0~fff> x~ 0~h* ?? }DH*,(<```<ff>|f```>`<|~ffff>fff<ck>6~ 0~fff> x~ 0~h* ?? 0 REM ************************1 REM ** BIEDNY PIES ANTONI **2 REM ** wersja: 1.7 **3 REM ************************4} REM ** by mgr inz. Rafal **5 REM ************************6 Q0=0:Q1=1:FI=Q1:MQ1=-1:MQ2=-2:Q2=Q1+Q1:Q23=23:Q7=Q2+Q2+Q2+Q1:Q}22=Q23-Q1:Q30=Q23+Q7:Q3310=3310:STAGE=Q1:GOTO 707 POKE 764,255:GRAPHICS Q0:POKE 756,STL/256:SETCOLOR Q2,BCK(STAGE-1),4:SETCO}LOR Q1,12,15:OLD559=PEEK(559):POKE 559,Q08 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,159 PTS=Q0:LEV=Q1:STAGE=Q1:DGS=4:CURSTEPDIR=Q010 PLAYTIME=911 DRAWORIG=Q0:CURSTEP=Q0:MAXLEV=Q0:ATLEVSTA}RT=PTS12 GOSUB 21013 GOSUB 60:GOSUB 6000:ORIG$=FIELD$14 BORDER=Q115 POKE 559,OLD55916 GOSUB 105:POSITION 5,Q0:PRINT PTS;}"% "17 GOSUB 91018 DL=PEEK(560)+256*PEEK(561):SC=PEEK(DL+4)+256*PEEK(DL+5):GOSUB 101019 GOSUB 1210:SOUND Q0,Q0,Q0,Q020} GOSUB 160421 DGFC=56:POKE YMUL+POSX,DGFC22 STEPS(CURSTEP)=YMUL+POSX:STEPDIR(CURSTEP)=CURSTEPDIR:CURSTEP=CURSTEP+Q123 IF C}URSTEP>MAXSTEP THEN STARVE=Q1:GOTO 501024 KEY=PEEK(764):JOY=STICK(Q0)25 IF KEY=255 AND JOY=15 THEN 2426 POKE 764,255:POKE }77,Q027 INCX=Q0:INCY=Q028 IF KEY=28 THEN 300029 IF (KEY=Q7 OR JOY=Q7) AND POSX<34 THEN INCX=Q1:DGFC=56:CURSTEPDIR=72:GOTO }3330 IF (KEY=6 OR JOY=11) AND POSX>5 THEN INCX=MQ1:DGFC=4:CURSTEPDIR=74:GOTO 3331 IF (KEY=14 OR JOY=14) AND POSY>Q2 AND STA}RTX<>POSX THEN INCY=MQ1:YMULN=YMUL-40:CURSTEPDIR=78:GOTO 3332 IF (KEY=15 OR JOY=13) AND POSY<20 AND STARTX<>POSX THEN INCY=Q}1:YMULN=YMUL+40:CURSTEPDIR=7333 C=123:IF POSX=STARTX THEN C=Q034 POKE YMUL+POSX,C:SOUND Q0,204,6,10:IF POSX>STARTX THEN ORI}azLLQQFMQMQQQ2QQ2Q3Q331STAGSTBCKOLD55LINECHEAPTLEDGCURSTEPDIPLAYTIMDRAWORICURSTEMAXLEATLE}VSTARORIGFIELDBORDEDSDGFYMUPOSSTEPSSTEPDIRMAXSTESTARVKEJOINCINCPOSSTARTYMULFIELDPOTOFININSTEPTOPSTPC}FINFINTOSTOSLEESIZELINELESTSLUGTREEADDFROSTARTSTAMPSTAMPFIRSDISCOURSPROINCSTINCSTDOGSLIVCURNECTRO}IMACHASTEPDRANUMTREETREETREENUMNUMLIN } @ } !"@#@$%&'(})*+,-./012345678}9:;<@=>?@ABCDEFG}HIJKLMNOPQRSTUVW}X************************** BIEDNY PIES ANTONI **** wersja: 1.7 **********************}****** by mgr inz. Rafal **************************6-6-@!6-.6-6@;6-6@C}6-%O6-@#[6-%%%c6-&k6-%w6-A3}6- @puAdAU+-AV'AVF0}8&@,@Z0@@i6-F:AY,uAY[AR-+67<,.>:A%,/ 3G0@}@[0@@ ' 6-6-6-!6-@'6- 6-@   6-6-6-6- A}  @` A`6. 6-AY% A-@% %  A U%6-F:A`,%A}V$F:Aa,K6-F:%@,%AV$F:%@,U A A2 A6-@V%}68,-%68,-6-% !6- AP6-F:Ad,6-R:,!!"AU*"@@$!Ad}AU!@w 6-6-"@(A0A+")",* @46-+6-@V76-@rA @3}M%+"@)"@,*!@+6-76-@C6-@tM @3M#+"@)"@,*!*)6-76-&}@@C6-@xM @3 I)+"@)"@,* @ */6-=6-%@@I6-@s!6-A#"}6-"^ %'2A@@-!^67+&,$%+&@,<+&,$%+&@,,.{#7 6-%6-%6-!}%72A@$?6-+&,$%+&@,(7<,4?567<,. ? A%+"*7<,4>:A%,!6-}+ AP&DF:%,A#*+",*!&6-%,6-8!AD6-A'%-@ % %6-&&( -)} A  * @  +  6-,& -@1& 7$%<$%,0(+"&*", 1%}@V22 6-&6-%6-@3!@4$ 6-%$08&@,@5 @@}6 Ay7AR8;c -6-@P --@@"6 +&,R2@@@\2}` c$<# -67+&,$%,. #$FEAf6-@!6--6-AQ96-@E6-?@G$$ Pare} sekund bedzie ciemno...KRR;A,;,;,;@,;$,;$,;,9,9,9,9@,L67@<@ },. /67,.>:A',:67,.wE67<,.Z68,-@o68@,-@68@,-MW-@ }-S67+@ $,%@%$<+@ $,%$%@,.i W NP-@H67+@ $,%@%$<+@  }$,%$%@,.L P OT-AA)67<%,.i - C-AAP67<%,.T PD - }-@%<67A$%<A$%%,.@ D RH67,.67,.>:,+67@,.667,.+H67,.>:@ },U A@i A$j-@k. ".  n -s-@&%x}6-+&,$% " | " 7<%&, " 7<%&, " ^  " A$}-@P)  ()2A1&@@  26-$AdAU%%F:Ad,}"AU*T:,AAdAU$$6-F:AY,AY$6-j-@12$@%@@}@5 F-@6f2$@%@@@j H A A#-@6  4 sek @ A}H%AY6-@ @Y$6-F:AY,AY$6-D A-D Zapas paliwa }na & krok>:A',w! A%!AYW$% -" ERROR: STAMP ON 571+%&6-@5}6-P:H:,$@%@, -% *<= -&   -  #>$6-@6-P:H:},$@%@, -%  -&$ &. -8  B+6-@6-%6-%@@$+6-K}$+6-&@6-&"68,-+68,-"@6-% Ac$S A Z 6-d Ae} +@'%,Af^6-+&,%%"@*"^67+&@,$%&@<+&@,$%&@,. g !}6-h  6-6-6l"*"@6-&m"*"@6-%t A0u Av5 -}678,<8,,.?1678,<8,,.?5 w$-@&6-++%,&,$%+,)6-%@!@3)6-@}3- - -2@`&@@1%@&!Ap16-Ap&+@&,!ApAf}67<%@&,. G/"@)"@&*8P:+&,'@,,"G68P:+&,'@,,- $ " A"} " A!++COURSE = Q2:REM QUICK PATH DEBUG HACK6-P:H:,$@, "6-6- "6-}6- "6-6- - 6-%!!+@'%,!6-@'% 6-%#!@%&#6-@%}&  6-" A , 1$>>-@) W drogQ! Biedny Psie;AdAU>$?--@* }Skup siQ! Biedny Psie-$D 6-E6-F:AY,AYY,-@&   sek ,6-^ Ac  } AdAY| @Y6-F:AY,AY 6- A A A: -!}: Zapas paliwa na & krok>:A',w A$AY$5-@5  "} 5-@5  $-@% ((  #})) ! [oooooooooooooooooooooooooooo]#-@# Koszenie trawyk$-@  -@$} !- X $46-P:H:,$@,> 6-H$ ")"6- "6-P:H:,$, 6-%}$ d+ 6-6-F:AY,(AY4ARHAV'AVP0d0@@ %%6-F:A`,%AV&}$F:Aa, % %@ %@ %@$@ %@'@e %@(F:A'}`, %@)F:Aa, R-@  BIEDNY PIES&-F Miserable Dog Anthony v1.7R-@ AA  cz(}yli >:@4,Nie dla psa rolmopsa...>:@4, -@@ n MGRINV. RAFAL )} Made with Atari Basic, the right way! AY6-  %-@' an! A5% *}  to A5 6-  ni A5 6- W-@9 $S2P+}:H:,$,%@W  q-@S |wszystkie znicze napQdowe i wr>:A',ci>:A&,^m2P:H:,$,%,}@q  W -3 $|jadH ser, gdy nagle coJ siQ staHo^S2P:H:,$,%@@W  j-@ F "|cie! -} Serio! Teraz musi odnalex>:A&,^f2P:H:,$,%@@j  \-@8 $|ByH piQkny, sHoneczny dz.}ie\. Antek^X2P:H:,$,%@@\  ]-@9 $|znicza. Czeka na Ciebie 27 sztuk!^Y2P:H:,$,%@/}@] ! ]-@9 $|do budy!  Skup siQ, zapamiQ-^Y2P:H:,$,%@@] & ]-@90} $|i pies znalazH siQ na innej plane-^Y2P:H:,$,%@@] + ]-@9 $|taj trasQ, a nastQpnie truch1}taj po^Y2P:H:,$,%@@ ] 0 ]-@9 $Y2P:H:,$,%@2}@] 5 r-@@h  Puknij w >:@4,>:@4, lub >:@4,>:@4,r23}: 6-F:B2y,< "@ = "@6- >  (T:, ? A10 @fAV 4}ACP:'AV, $$AB&+F:AC,$AV, @f F:AV,A3`* $ 1-@65}*2A!. 1$D+6-F:AY,"AY4AADD  PATIENCE...*6-+F:A,,$AV*Z 6}D:FNT.OBJAY A0% 6--& -% X -B Oto Tw>:A',j gr>:A',7}b! Biedny PsieX2AA@6 "-@6  Pies zasHabH z gHodu 6 "-@6  8} )6-A@ )2AA@G-@+  WduJ jakiJ guzik =AdAUG 9}A 6-6-2 A A%-@% Tak wygasaH pies6-@ -&:} -&  - 8,8,   -&  - 7-@% WduJ jakiJ gu;}zik7AdAU A 6-&"Ap @p''6-P:H:,$+@ &$,,%@&u -<}w/6-P:H:,$@',%/6-P:H:,$@,%x!6-$%%!6-$%%@z67<,.67%<%,.""67=}%@`<%@`,.'; ''6-P:H:,$+@&$,,%@& -/6-P:H:,$@(,%/6-P:H:,$@>},%6-$%%6-$%%67<,.()67%<%,. $X A0?7+ 6-!AV'AV?}-AR7#A@/ / $UJmiechniQty piesek z kiszk_ w misceA,, # To mHyn na wodQ kaVdego agronoma!I=" @},"-2@@3/= A J  6%@ A T "6-% A h 2 A}A-13,2,157,-1,2,157,-1,6,7, -11,24,25, -13,152,153,-1,5,6, -11,23,27,106,110, -13,153,154,-1,4,5, -11,22,28,107,1B}12, -13,154,155,-1,3,4, -11,15,18,21,27109,117, -13,155,156,-1,2,3, -11,12,27,111,115,118,118,120,126, -13,156,157,-1,2C},2, -11,10,28,113,117,119,127, -13,157,157, -11,-1,8,30,103,106,117,129-1,6,30,103,111,117,135,-1,4,14,25,29,106,136,-1D},4,13,25,28,110,114,117,137,-1,4,10,114,115,117,127, -13,128,131, -11,132,138,-1,4,9115,127, -13,128,133, -11,134,138,-E}1,4,8,115,126, -13,127,130,133,135, -11,136,138,-1,4,10,115,126, -13,127,130,133,135, -11,136,138,-1,5,11,13,23,115,126F}-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,75,105,119G},150,154,155,-1,8,106120,151,153,153,-1,8,24, -12,25,29, -11,30,107,120,153,-1,8,17, -12,18,22, -11,23,24, -12,25,25, -H}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,3I}2,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,J} -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,96, -12,97,97, -11K},98,100, -12,101,101, -11,102,112,123,152-1,6,21, -12,22,22, -11,23,24, -12,25,25, -11,26,33, -12,34,34, -11,35,40, -12L},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-11,60,61, -12,62,62, -11M},63,86, -12,87,87, -11,88,96, -12,97,97, -11,98,100, -12,101,101, -11,102,105, -12,106,106, -11,107,113,125,142,-1,4,21, -12,N}22,22, -11,23,24, -12,25,25-11,26,31, -12,32,34, -11,35,40, -12,41,41, -11,42,45, -12,46,49, -11,50,52, -12,53,53, -11,O}54,55, -12,56,56, -11,57,58, -12,59,59, -11,60,61, -12,62,62, -11,63,86, -12,87,87-11,88,96, -12,97,98, -11,99,100, -12P},101,102, -11,103,105, -12,106,106, -11,107,114,125,140,-1,4,21, -12,22,22, -11,23,24, -12,25,29, -11,30,40, -12,41,41, -11,4Q}2,45, -12,46,46-11,47,52, -12,53,53, -11,54,55, -12,56,59, -11,60,61, -12,62,62, -11,63,87, -12,88,88, -11,89,96, -12,9R}7,98, -11,99,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, -S}11,47,52, -12,53,53, -11,54,61, -12,62,62, -11,63,68, -12,69,69, -11,70,82, -12,83,83, -11,84,87, -12,88,88, -11,89,97, -12,9T}8,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, -1U}1,47,52, -12,53,53, -11,54,61, -12,62,62, -11,63,69, -12,70,70-11,71,82, -12,83,83, -11,84,87, -12,88,88, -11,89,92, -1V}2,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,W}46-12,47,50, -11,51,70, -12,71,71, -11,72,76, -12,77,77, -11,78,82, -12,83,83, -11,84,87, -12,88,88, -11,89,92, -12,93,X}95, -11,96,97, -12,98,98, -11,99,102, -12,103,105, -11,106,118126,134, -13,145,150, -11,-1,4,6,10,76, -12,77,77, -11,78Y},82, -12,83,83, -11,84,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,1Z}04,104, -11,105,118,126,132, -13,145,150, -11,-1,4,5,11,27, -12,28,32, -11,33,76, -12,77,77, -11,78,82, -12,83,83, -11,84,88,[} -12,89,89, -11,90,92, -12,93,93, -11,94,95-12,96,98, -11,99,103, -12,104,104, -11,105,120,126,131, -13,146,149, -11,-1\},4,6,10,26, -12,27,27, -11,28,60, -12,61,64, -11,65,76, -12,77,77, -11,78,82, -12,83,83, -11,84,88-12,89,89, -11,90,92,]} -12,93,93, -11,94,96, -12,97,98, -11,99,103, -12,104,104, -11,105,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, -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,89,89, -11,90,91, -12,92,92-11,93,96, -12,97,98, -11,99,103,`} -12,104,104, -11,105,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,4a}3,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,8b}3,83, -11,84,88, -12,89,89, -11,90,90, -12,91,92, -11,93,96, -12,97,97-11,98,103, -12,104,104, -11,105,111,116,121,126,c}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,56d}-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,110e},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,f}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,g}121,126,130, -13,147,147, -11,-1,5,6, -12,7,7, -11,8,31, -12,32,32, -11,33,38, -12,39,39, -11,40,47, -12,48,48, -11,49,53, -1q}?B&DOS SYSB*START BATB+PROGRAM BASBREADME TXT FNT FNTLST PRG B FNT OBJ2,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,-r}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, -12s},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,6t}0, -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,65u}, -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,100v},117,121,123,128,-1,9,18,20,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,w}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,3844,44,76,90,117,127,138,142, -13,x}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,3844,44,76,91,117,125,1y}39,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,91z}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,1724,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,14|}1,143, -13,149,150, -11,-1,10,1724,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,123,125, -11,1~}26,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,7785,91, -13,115,}116, -11,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,30, -13,38,38, -12,52,59-11,60,75,86,90, -12,91,92, -13,115,123, -11,125,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,1}45, -12,-1,2,4, -11,11,16,26,30, -12,52,59, -11,60,71, -12,86,92,94,95, -13,116,119, -12,120,122, -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,1}39,139, -13,140,145, -12,-1,2,4, -11,12,16,26,30, -12,52,59, -11,60,69, -12,87,9496,97, -13,116,119, -12,120,120, -13,1}21,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,38,38,52,54,56,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,99101,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, -1}2,-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,4}3,53,56,91,104, -13,121,140, -12,-1,5,7,9,16,25,30,32,32,34,34,36,36,38,43,53,54,56,56,92,103, -13,124,135,-1,2,2-12,6,}16,25,42,53,57, -13,157,157,-1,2,3, -12,6,16,25,39,53,55,57,58, -13,156,157,-1,3,4, -12,7,16,26,37,53,57, -13,155,156,-1,4,5}YY-12,10,17,27,37,53,56, -13,154,155,-1,5,6, -12,12,15,55,56, -13,153,154,-1,2,157,-2 c ,/@y,'/@y}3,AYE/AY@yQ,AXc/AX@y  A A0 D:PRG/@y,'/@ycfffAAAA `!?>Sfl0fF >>r~~o N TTT||pPPB1?0~} 0`@ 8@!! (}<88<``nf>8x<~~>`<|flxxlf`lxp`~cwkcc}fv~~nff> !Aʌ PPPP@ А<P ??`papp`h }ppEF2"$H> PPp|| ;x8x`x`~<~}~<0~0 ~ #"<>f>``|ff|<```<>ff>>ff>|``|fff8<<``lxlf8}<fkc|ffffff>|f```>`<|~ffff>fff<ck>6~ 0~fff> x~ 0~h* } ?? DH*,(<```<ff>|f```>`<|~ffff>fff<ck>6~ 0~fff> x~ 0~h* G$((POSY-Q2)*Q30+(POSX-4),(POSY-Q2)*Q30+(POSX-4))="{"35 POSX=POSX+INCX:POSY=POSY+INCY:YMUL=YMULN:POKE YMUL+POSX,DGFC:SOUND Q}0,204,6,Q036 FIELDPOS=(POSY-Q2)*Q30+(POSX-4):IF FIELD$(FIELDPOS,FIELDPOS)="?" THEN FIELD$(FIELDPOS,FIELDPOS)=" ":GOSUB 5003}7 IF CHEAT=Q0 AND FIELD$(FIELDPOS,FIELDPOS)=CHR$(125) THEN STARVE=Q0:GOTO 501038 IF PEEK(YMUL+POSX)<>123 AND (INCX=Q1) AND P}OSX>MAXLEV THEN PTS=PTS+TOFININC:MAXLEV=POSX:IF PTS>100 THEN PTS=10039 POSITION 5,Q0:PRINT PTS;"% ":STEPTOPR=MAXSTEP-CURS}TEP-Q140 POSITION Q23,Q2341 IF STEPTOPR<100 THEN PRINT " ";42 IF STEPTOPR<10 THEN PRINT " ";43 IF STEPTOPRQ0 THEN 1152 ST}AGE=STAGE+Q1:SETCOLOR Q2,BCK(STAGE-1),453 IF STAGE<4 THEN 1054 GOTO 799955 POKE 752,Q056 END 59 FOR I=Q1 TO TOSS:TOSLEEP}=50:GOSUB Q3310: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)*LINELEN+Q1)=LINE$:NEXT I:RETURN 70 POKE 766,Q2:SIZEY=19:LINELEN=Q30:MAXSTEP=151:POSX=4:TOFININC=0.12471 PRINT "Pare} sekund bedzie ciemno..."75 DIM STPC$(302),ST$(Q2),SLUG$(Q2),TREE$(3),FIELD$(SIZEY*LINELEN),ORIG$(SIZEY*LINELEN),LINE$(LINEL}EN),STEPS(MAXSTEP),STEPDIR(MAXSTEP),ADD(Q2),BCK(3)76 STPC$(3,4)=" ":ST$(Q1)=CHR$(127):ST$(Q2)="w":STPC$(Q1,Q2)=ST$:BCK(0)=1}2:BCK(1)=10:BCK(2)=077 FOR J=Q0 TO 13:FOR I=Q0 TO Q2:STPC$((20*J)+5+I*Q2,(20*J)+I*Q2+6)="i ":NEXT I78 FOR I=Q0 TO 6:STPC$}((20*J)+11+I*Q2,(20*J)+I*Q2+12)=ST$:NEXT I:NEXT J79 FOR I=285 TO 290 STEP Q2:STPC$(I,I+Q1)="i ":NEXT I:FOR I=291 TO 302 STEP} Q2:STPC$(I,I+Q1)=ST$:NEXT I80 FOR J=Q0 TO Q1:FOR I=25 TO Q30 STEP Q2:STPC$(200*J+I,200*J+I+Q1)=ST$:NEXT I:NEXT J82 TREE$(Q}1)="":TREE$(Q2)=CHR$(Q0):TREE$(3)="":SLUG$(Q1)="+":SLUG$(Q2)=CHR$(96)85 GOTO 4010105 GOSUB 1924106 POSITION 4,Q1107 IF }BORDER=Q1 THEN PRINT ""110 FOR I=Q1 TO SIZEY115 POSITION 5-BORDER,I+Q1120 FROM=(I-Q1)*}LINELEN+Q1130 IF BORDER=Q1 THEN PRINT "|";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 I156 IF BORDER=Q1 THEN GOSUB 180016}0 RETURN 210 FOR I=Q1 TO 50220 PRINT :IF NOT FI THEN SOUND Q0,131-I,10,13230 NEXT I235 SOUND Q0,Q0,Q0,Q0:FI=Q0240 RETU}RN 410 POKE 764,255411 IF PEEK(764)=255 AND STRIG(Q0) THEN 411420 POKE 764,255430 RETURN 500 OLD559=PEEK(559):POKE 559,Q}0:DRAWORIG=Q0501 FOR I=Q0 TO 15:SOUND Q0,I*15+40,12,I:NEXT I:FOR I=14 TO Q0 STEP -Q1:SOUND Q0,I*15+40,12,I:NEXT I505 GOSUB }105:GOSUB 1710:POSITION 13,Q22:PRINT " 4 sek ":GOSUB 1599:POKE YMUL+POSX,DGFC510 POKE 559,OLD559520 TOSS=4:GOSUB 59}530 OLD559=PEEK(559):POKE 559,Q0:DRAWORIG=Q1535 GOSUB 105:POSITION Q7,Q23:PRINT "Zapas paliwa na ";MAXSTEP-Q1;" krok";CHR$(1}27);"w";540 GOSUB 1598:POKE YMUL+POSX,DGFC:POKE 559,OLD559599 RETURN 666 POSITION Q2,Q2:PRINT "ERROR: STAMP ON 571+":STOP }910 FINX=35920 FINY=INT(RND(Q0)*16+3)930 POSITION FINX,FINY+Q1940 PRINT "*<="950 POSITION FINX,FINY-Q1960 PRINT " "9}70 POSITION FINX,FINY980 PRINT " #>"999 RETURN 1010 STARTX=41020 STARTY=INT(RND(Q0)*16+3)1030 POSITION STARTX,STARTY+Q1}1040 PRINT ""1050 POSITION STARTX,STARTY-Q11060 PRINT "&"1070 POSITION STARTX,STARTY1080 PRINT " "1090 POSX=4:POSY=STAR}TY:YMUL=SC+40*POSY:YMULN=YMUL1099 RETURN 1210 STAMPX=POSX-3:STAMPY=POSY-Q2:ADD(Q0)=Q0:ADD(Q1)=Q01215 IF STAGE=3 THEN STAMP}Y=STAMPY+Q11220 GOSUB 13631299 RETURN 1363 GOSUB 14091370 FIRST=Q11380 GOSUB 15101381 IF STAMPX<(27+STAGE) THEN 138013}82 DIST=(STAMPY-FINY)+Q2:IF STAGE=3 AND DIST=0 THEN FIELD$((FINY-2)*Q30+FINX-5,(FINY-2)*Q30+FINX-5)=" "1383 IF DIST>Q0 THEN }COURSE=Q01384 IF DIST33 THEN PROG=331420 POSITION PROG,Q22:PRINT "":SOUND Q0,60-PROG,8,41423 IF P+3-STAGE>570 THEN P=570-(3-STAGE)1424 }IF P>570 THEN 6661425 FIELD$(P,P+3-STAGE)=" "1426 IF PROG=15 OR PROG=26 AND ADD(INT((PROG-Q1)/15))=Q0 THEN ADD(INT((P}ROG-Q1)/15))=P1440 NEXT J1499 RETURN 1510 IF FIRST=Q0 THEN GOSUB 22001513 IF FIRST=Q1 THEN GOSUB 21001515 REM COURSE = Q}2:REM QUICK PATH DEBUG HACK1520 DIST=INT(RND(Q0)*15)1530 IF COURSE=Q0 THEN INCSTX=Q0:INCSTY=MQ11531 IF COURSE=Q1 THEN INCS}TX=Q0:INCSTY=Q11532 IF COURSE=Q2 THEN INCSTX=Q1:INCSTY=Q01540 FOR K=Q1 TO DIST1550 STAMPX=STAMPX+INCSTX1555 IF STAMPX}>(27+STAGE) THEN STAMPX=27+STAGE1560 STAMPY=STAMPY+INCSTY1565 IF STAMPY>17+STAGE-Q1 THEN STAMPY=17+STAGE-Q11566 IF S}TAMPYQ0 THEN FOR} DOGSLIVE=Q1 TO DGS:PRINT "X";:NEXT DOGSLIVE1999 RETURN 2100 COURSE=INT(RND(Q0)*3)2110 FIRST=Q02120 RETURN 2200 IF COURS}E=Q0 OR COURSE=Q1 THEN CURNEW=Q22210 IF COURSE=Q2 THEN CURNEW=INT(RND(Q0)*Q2)2220 COURSE=CURNEW2230 RETURN 3000 GRAPHICS }Q0:FI=Q1:OLD559=PEEK(559):POKE 559,Q0:POKE 752,Q1:POKE 756,STL/256:SETCOLOR Q2,Q0,Q0:SETCOLOR Q1,10,133005 DL=PEEK(560)+256*}PEEK(561)3010 POKE DL+Q7,Q73015 POKE DL+8,Q73020 POKE DL+Q23,63025 POKE DL+24,63030 POKE DL+27,653035 POKE DL+28,PEEK(5}60)3040 POKE DL+29,PEEK(561)3045 POSITION 4,Q2:PRINT "BIEDNY PIES":POSITION Q7,Q0:PRINT "Miserable Dog Anthony v1.7";:POSI}TION Q2,33050 PRINT " czyli ";CHR$(34);"Nie dla psa rolmopsa...";CHR$(34)3070 POSITION 5,17:PRINT " MGR}INV. RAFAL Made with Atari Basic, the right way!"3071 POKE 559,OLD559:TOSLEEP=Q30:GO}SUB Q33103072 POSITION 27,Q2:PRINT "an";:GOSUB 3500:GOSUB Q33103073 PRINT "to";:GOSUB 3500:GOSUB Q3310:CHEAT=Q03074 PRINT }"ni":GOSUB 3500:GOSUB Q3310:TOSLEEP=Q23075 POSITION Q2,5:PRINT "";:SOUND Q0,INT(RND(Q0)*}Q30)+Q30,14,Q1:GOSUB Q33103080 POSITION Q2,10:PRINT "|wszystkie znicze napQdowe i wr";CHR$(127);"ci";CHR$(126);"^";:SOUND Q0},INT(RND(Q0)*Q30)+Q30,14,Q2:GOSUB Q33103085 POSITION Q2,Q7:PRINT "|jadH ser, gdy nagle coJ siQ staHo^";:SOUND Q0,INT(RND(Q0})*Q30)+Q30,14,3:GOSUB Q33103090 POSITION Q2,9:PRINT "|cie! Serio! Teraz musi odnalex";CHR$(126);"^";:SOUND Q0,INT(RND(Q0)}*Q30)+Q30,14,4:GOSUB Q33103095 POSITION Q2,6:PRINT "|ByH piQkny, sHoneczny dzie\. Antek^":SOUND Q0,INT(RND(Q0)*Q30)+Q30,14,5}:GOSUB Q33103100 POSITION Q2,13:PRINT "|znicza. Czeka na Ciebie 27 sztuk!^";:SOUND Q0,INT(RND(Q0)*Q30)+Q30,14,6:GOSUB Q3310}3105 POSITION Q2,11:PRINT "|do budy!  Skup siQ, zapamiQ-^";:SOUND Q0,INT(RND(Q0)*Q30)+Q30,14,7:GOSUB Q33103110 POSITI}ON Q2,8:PRINT "|i pies znalazH siQ na innej plane-^";:SOUND Q0,INT(RND(Q0)*Q30)+Q30,14,8:GOSUB Q33103115 POSITION Q2,12:PRIN}T "|taj trasQ, a nastQpnie truchtaj po^";:SOUND Q0,INT(RND(Q0)*Q30)+Q30,14,9:GOSUB Q33103120 POSITION Q2,14:PRINT "}";:SOUND Q0,INT(RND(Q0)*Q30)+Q30,14,10:GOSUB Q33103125 POSITION 6,15:PRINT "Puknij w ";CHR$(34);"}";CHR$(34);" lub ";CHR$(34);"";CHR$(34);:SOUND Q0,Q0,Q0,Q03130 CTROL=PEEK(53279)3132 IF CTROL=6 THEN GOTO Q73133} IF CTROL=4 THEN CHEAT=Q1:GOTO Q73134 IF NOT STRIG(Q0) THEN GOTO Q73135 GOTO 31303310 POKE 66,Q1:POKE 556,Q13330 POKE 543},INT(TOSLEEP/256)3340 POKE 542,TOSLEEP-(PEEK(543)*256)3350 POKE 66,Q03360 IF PEEK(556) THEN 33603370 RETURN 3500 FOR I=1}5 TO 0 STEP -Q1:SOUND Q0,121,Q0,I:NEXT I:RETURN 4010 GRAPHICS Q0:OLD559=PEEK(559):POKE 559,Q0:POKE 106,144:PRINT "PATIENCE..}."4020 STL=(PEEK(106))*256:BLOAD "D:FNT.OBJ"4051 POKE 559,OLD5594053 GOTO 30005010 PTS=ATLEVSTART:POSITION POSX,POSY-Q1:P}RINT "":POSITION POSX,POSY:PRINT ""5012 POSITION Q7,Q22:PRINT "Oto Tw";CHR$(127);"j gr";CHR$(127);"b! Biedny Psie":SOUND} Q0,241,Q0,155013 IF STARVE=Q1 THEN POSITION 6,Q23:PRINT " Pies zasHabH z gHodu ";5014 IF STARVE=Q0 THEN POSITION 6,Q2}3:PRINT " ";5015 TOSLEEP=240:GOSUB Q3310:SOUND Q0,241,Q0,75018 POSITION 8,Q23:PRINT " WduJ jak}iJ guzik ";:POKE 764,255:GOSUB 4105019 DRAWORIG=Q0:BORDER=Q0:SOUND Q0,Q0,Q0,Q05020 GOSUB 1055025 GOSUB 17105030 POSITION} 12,Q22:PRINT "Tak wygasaH pies";5045 TOSLEEP=45050 FOR STEPDRAW=Q0 TO CURSTEP-Q15053 POSITION POSX,POSY-Q1:PRINT ""5}057 POSITION POSX,POSY:PRINT ""5060 POKE STEPS(STEPDRAW),STEPDIR(STEPDRAW):GOSUB Q33105090 NEXT STEPDRAW5091 POSITIO}N POSX,POSY-Q1:PRINT ""5092 POSITION POSX,POSY:PRINT ""5096 POSITION 12,Q23:PRINT "WduJ jakiJ guzik";:POKE 764,2555097} GOSUB 4105098 DGS=DGS-Q15099 IF DGS=MQ1 THEN 70005100 GOTO 116000 NUMTREES=INT(RND(Q0)*(9-STAGE*Q2))+3-STAGE6005 FOR I=}Q1 TO NUMTREES6007 TREEX=INT(RND(Q0)*27)+Q1:TREEY=INT(RND(Q0)*16)+Q16008 NUM1=TREEY*Q30+TREEX+Q1:NUM2=TREEY*Q30+TREEX+3}6010 FIELD$(NUM1,NUM2)=TREE$6020 FIELD$(NUM1+Q30,NUM2+Q30)=""6030 FIELD$(NUM1+60,NUM2+60)="';"6040 NEXT I6050 }NUMTREES=INT(RND(Q0)*(10-STAGE*Q2))+5-STAGE6055 FOR I=Q1 TO NUMTREES6060 TREEX=INT(RND(Q0)*28)+Q1:TREEY=INT(RND(Q0)*17)+Q}16065 NUM1=TREEY*Q30+TREEX+Q1:NUM2=TREEY*Q30+TREEX+Q26070 FIELD$(NUM1,NUM2)="()"6075 FIELD$(NUM1+Q30,NUM2+Q30)=SLUG$}6080 NEXT I6099 RETURN 7000 GOTO 30007999 GRAPHICS Q7:LINE=Q0:POKE 756,STL/256:POKE 752,Q1:RESTORE 81008000 PRINT :PRINT} "UJmiechniQty piesek z kiszk_ w misce"8001 PRINT " To mHyn na wodQ kaVdego agronoma!";8009 READ I:IF I>=Q0 THEN PLOT I,LI}NE:READ I:SOUND Q0,I,12,14:DRAWTO I,LINE:GOTO 80098010 IF I