PAC-TXT/PLR(N)=0:S(Np)=0R:C(Np)=0P:I(Npj,A$,B$oj)=0B:A(N,N=0:N)=0b:K$(NN)=N,N=0:N)=0-:O(NN)=N,N=0:N)=0Y:X(NN)=N,N=0:N)=0P:C$(N=0:N)=0:N(C$Bg)=0:H$(N)=0:D(H$j)=0:U$(S$, h,N )=0:S$(N,S$cj)=0:P(N\)=0:B$(N )=0x:T$()=0:M$()=0:V(N!,N)=0k:M()=0-0:F()=0::U(@$B$)=$,@$=0:$)=0:L(N,@$)_)=0k:Z$(N ,A$(i)=0:E(N)=0:T()=0@:0 cç:ç:7:"47270":10 ,;4;" PAC-TXT 2010 HOOY-PROGRAM ";ç,ç; +"pactxt$""16384":"500":"23739","o" s"pactxt1":"pactxt2""44e3":"pactxt3""a":"pactxt4""3e4":"pactxt5""41e3":"3e4":"58419":"pactxt6" Apactxt$ >?>>9>>>a>_1?I??;??>>ٟ?ԟKFg~??~?8?{?>>_O??F3?1?~>?>q>~>>?>?3?F>>?>q>>>~>?IFg'@f1?>8?>>>~~>??"R1?/@@@@@O@>>@@\0?@>~?@@@@@@>G@@C@~|?<@O@@@@@@@@@@@@@@@@@@@O?@?@@@@@@@@@@@@@@@C@@@A@@@@?OB?C>>~0>>>>|_Fgf3_1ԟK99_B?|p OI|?<?W?f??>xFAO?IF?`<????/<`?x?O> /??Rx|<> '?p O0@W?0?+R)8?'π@??8>?OxxW%x_<|@A+?p<` ʿ?GD?/0\??%>?_x>!K%>?@`Ax_x@@U?@??Ox| S?%??ҟx<>0+I`_>` `@<?<@`@J@@G@@C%@?@@C@?ҟ>AK@@@?Ix@G0@_?S<?_@A?< 0 S@@@@@@@@@@@` `IBCO?Kq|<_?>?/00x? 0 e000Ux ҧ@R@O?<??0?DDC000*DDD@DDDD?`/DDDDDDDDG`T?DDDDDDDD@DD_DDDDDDDDG)DDDDDDDDDDDDDDDDD@U<???J? O? ?`RS??aԒ?x  ???0*__0)? U?‚5??>  ?+ ?Ro@S ?U?  @K0 )?? `S ?(OU?@@@@@@@@G_C@@@@`@RC?BBBCBC ?S@??BBBBBBBBB@BBBBBBBB ?ҧABBBBBBBBOTBBBBBBBBBBBBBBB?_BBBBBBBCBBBBBBBBBBBBOH?x ` `S *0/ThhhhhhhhhhhhhhhhhhhhhhhhhxxxxxxxhXXXXXXXXXXXXXXXXXXXhhhhhxxxxxxxhXXXXXXXXXXXXXXXXXXXhhhhhhxxxxxxhXXXXXXXXXXXXXXXXXXXhhhhhhxxxxxxhXXXXXXXXXXXXXXXXXXXh00hhhhxxxxxhhhhhhhhhhhhhhhhhhhh00000hhhhxxxhhhhhhhhhhhhhhhhhhhh000000hhhhhxhhhhhh8PPPP8hhhhhhh00ppp0000hhhhhhhh8PPPPPPPP8hhhh000ppppp000hhhhhhPPPPP8HHPPP8hhh00ppppppp00hhhhhPPPPPPHHH8PPP8h00ppppppppp00hhh8PPPPPPHHH8PPPP800ppppppppp00hhhPPPPPPPP88PPP8h00ppppppppppp00hhPPPPPPPPPPP8hhh00ppppppppppp00h8PPPPPPPPPhhhhhh0ppppppppppppp008PPPPPP8hhhhhhhhhppppppppppppp00hPPPP8hhhhhhhhhhhhppppppppppppp0hPPPPP8hh hhhhhhhpppppppppppp0h8PPPPPP8 hhh ppppppppp00hhPPPWWPPP8 pppppp000hh8PPWWPPPPP8 pppppp00 h 8PPPPPPPPP8 pppp000 8PPPPPP8 pppp00 88 pp00 pactxt1 FpF6:D\<:2*"M ,: 8>݅ H Ăo:?(_͘Ñ vŠ0%(h"_\*W\~ ( ,(͆w(V6~Ͷ"]\#H (, RDMS[\6 *[\ͧ+ͧͲ**"W\*_\6&x,͔́ҟ!&r8s+rȧs=((54!fr!|s*O\ s#r11.8˾86#3t*~w.*S\~##N#FT] ݽ 9 "B+++70&l"<;*">2)T]-MT],M > > >> !I\.l͕!s?\62)ͻàg:%|(: 0V ͨ7:'(( *[\R (+!~:00( :<(͓?:\=20j>20*:0 !S(Ê!!F#p#F#p(7(3(/(( {F+p"(## {(( 44>(G9 #556KI\̀>(s-~@:&( > #(###z( ;> ~ #2#:%~07n :' *_\R>?~Ͷ# ʴ͗(+##N#FDog DMp+q0 DOU#O*W\Y>2>ͣo ͬ*"W\=w ́8*=\*E\ʹ"E\s=\"E\&!9~=> >ׯׯ> !7 ~6!!w*n[:* +=>; :\W!~69 >; 2J ;0%(  :~\(-8:}\(-8>Â##F#^#V##ͺ#~~#N#fi*h\#wG#s#rͼ#N#fi =Rȟ/G7N.*M\~#"h\=( 8!*h\^#V#~#~͈,8 (*[\###U #6=>0ͪ8 > < > <{8(!>2>ͣ*nF~W͍,0 W_~F#NC##u0#5 :>'82K > @S:" #˹ͳ*"[\ȹ>27oPY*W\N:[#x(+!"!["&""(( $vֹ&+/-8 ͍͂,Ҋ$(͈,0RM*y0Oq#ͦ+|_ɯ26yŔ* RS[=(G#͍,0 # ~$7Ĉ,8 +~#͈,0#~Ͷ 7ݼ # Ȼ ~`~#`( ~~#(0z@ >$(G0>(##^>,#N#F >)N> >N#F>>"z(#~,()>"$> 30>>>^#V(> >ʹ3-ɀ`@<((@H x~o#,}0*K\~(ݽ̌͸> K!:<6:'2`\O#~( #ݤ #~  (#ݤ((,-8[a\*Y\!0"]\S_\ #~8x*_\7R0x!j\͍,8<(>( " ~wV !>͹ )!x> ͹ !>\͹ ?!/>&͹(W$e( O 6#+~ (#w#~ # Ƥ͔0 =>(>2ҟ2'Á͔ڢ 0:"[\ͱx( < *[\RDM"=\S0!( ,=( &=(-= ͱ6 RDM*S*Q\^#VͧÀ $ 61͂>O /\͔W!G\w͎͍,8 "]\*U\"!G\~26(!:@:ž!vKE\3..&:(͂ 6xp+qvKE\p+q! ò!ͧ(ͪا[\s#r#:\w! >ͪ< 2?͂H K\: 2?͂!! ~2 '^#VS\#~2\#ͷ5z5z͔͙#>8 ͻq#p#zŸyچ w#oͪ0ͪ0 ͽr#q#p#!͔ƀ !ìMͼ͟²͹͟ͷ->2|F*O\͟F:\MU)"\!~<( =ݶCwC~Cw#!\6͔(2\!ͷ!8 0!"\2ͦ24!4~8TT >M!Mͬ2\*3&"\$2>ů2G\go"]\"E\:t\6!\\:\B(N( ̀ͅ͏ͩ|>2\:6*S\[[\"[\SS\>  >>>@2t\0% 8/ ͷ0 0%("]\57260% ͷ0͂5ͷ('|2\*(ͷ0 "\5!"\2"=\!6~(< "Y\"K\"S\ͯ!:\~ +(<{=\6:6(.*S\"[\*K\<("S\*Y\* n"S\*#n"K\#"Y\*=\ìp#qÑ͍,Ҋ͔N(  !3q#w=(>25=o:5< 0%(7N 08+"]\Z,(!. ( 4~#+>(w6+4#~ (͆! 9~q(+++++++[͍,_7ȧ!)F#~67ȧ( #:\#*I\nB:(n(V#^DM:Y"=\"À !.6+6`i####Ϳ~Fq#p#xچ wM !<\˞ˮ*\*=\!gs=\*\7͕~#H 8ֻDeÀ ~ #F#~(++#"[\!n~@͕0~>0-P͋|g !1~6 67N 0*M\Kr\v(#ʹ3.8+"a\ *[\U"[\ÌUW$tArq!"T `$BBBB$R"w"R @ddrVRRRw&Q!Av4VQq7AbRT$rU%SQv""'@'E! BbէubUdTUbgTVTTgrEtGEBWRrRRWVU%EGGEEurUUUURgUUeEGsTRaaVu%%%%'UUUWW%UU%"RRw$$DwAa!1 p  VAE@CdTTc5WT30CeECAB@bRRRU `%'%%ubUUURcUUcAA3DBAF@eEEE#UUW'%UU%SQr"Bs&"!""&W f( ^-x \J5R ET*\:\> !;\ˮ (( n>2\"\> ͧ:22!~#N+O!:!0x2\ 080(0͓K! 0A00٧(ˆ*\"2\2\>O8x O{_0+8>!˅on89!F 0G8 \:I:3֥ [{\[6\͏K:8*"\> ;  !ˆ[!:w6:2!:OD0G:==ҫp!:ODw:0!882!:w:wÏ>?; Ð::D!w::D!!~6Qbx0 >2ԝj?Qȝ<̀ *\W}8 z!6 "6ڒ  D:!2B:+2"bz<ùͷ0"͙x(CI\ͩq̀ ñ0%(21+o&:=8)))} 0))) ˅DM))9B\8 ~# ~#!~#6 8_w: RO*e\&_?O~#W>A0 w}o0$>  #% yKRyO= !!:\606#6##606:0++6+6y WN}<oyNBwq:=2 % |f9*\3ͱ=2G\"E\*K\~80%¾o!\~!~#<## 0y2(Š?:G\"<*W|@zÿ"O͂`8N"W\yy(Fo i w‹(ki CAO8*W\怰w*[\###U#6#W*U\0+"U\"y` *U\[-(*ͽ*U\*U\> ͑8k*M\"͂"Ħ"U\"M\*[\R*U\"Q\ʹ8[*Q\"U\"}ʑ(0(+͂0"U\Ͳ(y` ) v("]\͈,8ø ~(G#N#8 "_\`i"]\*_\[[\#"]\=(F#*K\8~˸w+"]\Ͳ(.#ʹ3~*#( `,0x0͓& 0% *C]\Rn,`iͷSM\U#p#qÑ}`"_\ 0x/=Gy/O͗BÑ*[\#^#V#~# q#pVr+s+"[\ͭ( Ͳ(H (,Šݼ ͒ x[[*K\)͸0"[\#N#F #!"##~ͶH 7" # ( <# *K\V6Ͳ(r*Y\+U#6["[\#6#q#p**U\xH ,~͍,? $( ( ) #"]\*~H 7, *U\0"U\# "]\('*K\ U#!*\R!f"\͍,("]\!,U}O"S50% ͭ( ,(H ͒$xU""U\*Q\e}( *U\"W\S͂‹("Q\G͎>*0% ͭUF#N+͑*B\""]\:0G2Y/2kvŠ!"2y, !=, !=; !=:0*|(!ҟ}lb))])(_ͩ0DMP& (%|ڟgzG>> B}}òRDMͲ**ͪ",qn͉OV#^z(PySI\+0GDG:O> (-śO!q\ (n͉!I\_!(N0~>>þqR( ̀K Q́> ##N#F# KW>z{*I\n (B 0j~%(-0 ͍,#~$(7&!H ݼ8,&0%> !'" S(͈,K B " > ͈,*B`i"ɀFailed at!~ˆ*7"* n=" KKE\ͿCB\:G\<2D\!z('BBR8 C1*@U\*u7R8$CF( ͊[u͊#$* n+>L*un(V#^R8*un"M\+"U\* n+"Q\#"_\##N#FCFF#N+*B "0"_\*Q\#~6$*Q\#w*S\*_\"S\$"S\;KI\ͿCI\ͮ>x(9կ >:;> 2+|ݵ*Y\"]\(0 601͔0%' *O\ ~M !,"\2s r !9~?T]"=\F+N+#@R*S\!!?ͳͱ""\""\V *͈ U ( i"\*\R8DM+-K\+-'8͙7B8#"]\͒ix*\[\"\̈́ GO*\*\*[[H ìͷ0 i"u:"_\ i"" (ʊŠ> 2 "M\GOR0 |/G}/O!SC\"\:~(**[DM* ͳ*u:~̱KKK\x(: K\ [_\:~"_\̈́ +"]\D>ïͷگi:>7~/wBl~0 ͩ0DM#^#V8BJr+s##"*O\#####s#rPPYͭ*0%+ͩ0`iͩ0 BKͭ*( R*()(`i#* * )Š͔ͱ"]\5"]\ʘ=BK= [[\*M\7Rr+sͱx(N! =(0.=(+! =(%%. =( =(=Ÿ.A&( 0>. x ͍,0 x !*O"3>\25 1!"\2(r!U""!"D!Y"L!"O!2"S!q"!"%!F"+!"1!"!"(!f" !"!> "!D"> 2><2h!M"z+++!3:L*S\~#|!s*E\:G\<="2:G\ =ͧ!^õ*W\~ (, ͫ("#~V:;\$0%(v +:q\( R0B++Ͷ*]͂,Š$v€+͙PYç+"###"| 2?5*"!H ( ;(,Šx y(ҟQ{":8*\>!o|g"Ky/1ox1g"\ͪ""\ "*2*!l\ ;L͌iͻ+C< oÆ*_\ͭ*[\7R$,7*[\ L1~+F +~(#:> 0bz2/!f((y.X$ x˯ 8# yxɯ2!2#͟e,2p ͆K\    ; ; BCHKMSTUZACDEFILMNOPRSTUVXBICHAHESCRMEMORSTRINTIMUSINSHIFFNANCOSDEEOFILLEINSTRINLENGTMENUMBEODPEERNDSINITEINARRAMOXO. ~2#~460+60^R !!5 h626:.ͫԫԫ:܁(AO 7+I(!˾˶A($ :H\8@ P  !9^#V;B 6+67^}ǧ!;\nͦˮ#nđ Ô͌("*U\7RDM ! ͌++ x(͈,( ͪx(Eͽyx >> 66͈,_ ͪ{ +~:  *[\US[\!BDM*\ "\*=\ "=\>0ͪ<{8W*\#~#N#F#7Ⱥ *\!9R}##R ̈́bk rDM9#@պ' TAaͪ#+++*=\*W\ê:O!~#<0P:0͂0$(1! 6P4 5 > ; 5F ( @ $א͂Š͌6*O\\R͸# *]\ ߽߽߀߽+0%(>͑6 K\:k\8!GC\G Ñ5SM\*E\:G\͗*Y\U#*M\ͬ~]{(*Y\"]\x >*8'͗s>!>60%ʔp Bʘ =2X* |(ڟ8"I\n!b"&!& +Ԯ(7>.* \##0 ,ʹ38͗2~#N#na,0Oݭy8 G!><< }l˅<&^,V,N,fiR:0>=)|(\U8˻4-7-O8(:= R8 |)=y'/7Y?GNKV].e{lsz@ϕ:}LMĎdt׬۬u[wWcy'gZbi >": >4 = FÔ7e0} p [̀ :W:=0 ^ K> 7 (͎>22t* \##~ ##~#7-ʹ3'80%!/ç^#V>(Sr+s> 29\͹> !~/#6!*E\|?g#n~"M\~:Š6 *Y\"]\xʊ*a\"[\##"a\]*[\"a\*M\[]\"[\2`\61xì͙*I\x(`i##N#F T]#~n ##~#fo q#p6:#@ xͱ"_w !4#4T  Ȯ!q##p(x [e\!"&R">G*90#x  (  x(>!!9!###N#F(͖8DMT]++, $)9*98!<47]â*Y\W~ z0f 3ʹs=\>H ,#y0_y@Wx ҟ*6\$M%+y= *{\O%+y= &Kv\a.xBB_R0#"v\>=j\U4-K0!0.:W:G&*T](ڟg͕M͕͕% g$%(M͕% E}r,o͕% `!T]DM*M͕% :[*}8Do-L:GM~T]#% :[}=8D_:WD*M}o~i[i%|<} o|g:\!+#og![-F( XE,r,s,q,6G![T]w}<݅O$|} o|gH >  >2>2͂;(&, ͂0%(͔2;( !y;Šy#x(y(`#͔8!~ qTx<8>g}!07=80o(- 0)(= DMͪ""Gx_(W8 ͚ GO:8 W!=yo~wwx (::8 :\I% ~I% ɧ :\?% ~?%  8:o[GM bk GM% GM:(A:\ͻ*"|Xg2[!"#0+"x2qy2s:8\0 ́("(!"y- .."́=*\++6+!Uͧ%*S\~\# !\q#͂F#N+*B0͌;Š́< ́ͧ['!96w#6*"B\:<2D\y͙s+rͱ x4F#N../-8+H YØ!#*S\Ͱ#?~_*02G\  ; #~-0# ʹ3"]\͙#Ϳ8+-.8+SW\* "]\ͿH (' :\ >O(>> ˮ>7ˮ!'~6}2'*M\+U##"M\*_\}((:G\3*F#NͿØ*Y\+U#6[#q#p999*U*U\#F#NBq+p##N#F *Q\#~ͺ +~<6#6p |p |*F#N* 7RЧ*RzH ( , *I\ B?22"I\C:xé:2*I\K: |'П!vs+r(q ͔ QVRŠKEYWORDDEF PROPROEND PRORENUWINDOAUTDELETREJOIEDIKEYILOCADEFAULDEF KECSIZALTEBLANCLOCDELSFILGEBLANEXIT IWHILUNTILOOSORON ERROODPOKPOROLSCROLTRACUSIN*=\"8ìN”8+~ ( (.(+:8d!; _"E\r !GG :ìGà :F\!~(--~0! ~˾;!5 F-N!}+-N +a>.( ERROR=STAT=LINO=::\<͂!:\~6'O+-*]\!\x "]\*d00:00:00000:00:000͹~+w~ݽ ~$*V#^"E\"I\!{=\;;(&Þ@~+o&=~# $v( x y0 2>G^C+! .y>0( a(-8w#~:(>8 >02 2:yoR~w# o Ͳ(.v~(i4#N#F>0#~#N#F_=W(= #^#V#5}ĩ05:BK:0%!.(+bk)) x *Ͳ*bk))!8ͩ0 JCͿ+x *y% #T] -(8 +C#?(?8!+͗2 - % % T] -((8C (#(JCH ( vʊ0 (F#N+-*[À ͕!<\ˮoF1D!Z:?:\(:̈́ o.^Z 8( 7(>7͂0%(840?*1:68!87- *~B "[\ǘ0%Ĕw͐+"[\ Missing LOOLOOP without DNo such linNo POP datMissing DEF PRONo END PRO͍,Ҋw (H 0H 8 ͱx y(0!G:800))))oDMf $3ʹ2D\&"Ê^#Vz(8D G!<~ww *uKM!@r#s+*RT#nV#^* 7R0##r#s# 0ͱ18+-8͙x(%͙h= - !4-8!;\n'͢-ڟ( /Ox/G(x(yAKAw+84ͥ8@Y8B0>Gco&F#~O#~͂0%(͔D"ѳ_,C7( Q4y/W!!X~ ~w#- % *=\s=\ F+N+V+^!sʧ!"W\'!T^õ,Š0% &#>?G>G!}\ˆ* ! "u"ͦ!u_!_H͎>22͙͙DOxGDOxGDOxG 0%²2͙x(A:61860+#*\.88"\*@ KS\B!!g(͂͂;Š0% ͂,(-(O͂ 8,(! 6:͖:2*=\s#r++6+6w!˾ͳͱ͙x * z4{(AR8=#B88 #DM>#=((#(B DMH8: *\++6+6"=\2~<8 60+~<860++w 80x ! +6+6vV>?Goorr͟5+xgE͢-Ax K\x8[K\*Y\+/!;\ˮͯ0v (-/8-00(-*^( (:6*B* B(?!@̀0##| gF#N*K\ ô3!;\ˆ  #%),/258;>ADGKNSVY`cfilswz}\4&V i.rrn,lHY͙`iN#F( 0%(ڟ)@@@y .(5+~.(# >0-8 <:860 >%w80%(840~ "ҳw )<#####~#( (%"@~#"9:((غM*"]\7~">&*Q\^#VS|XƸ:G\! +wW*Y\͋ͧ6 5 (Z د\DM*S\~0 ##^#V#þ#~+>>!v ˾,,,;͟8+bk +x~ (Ͳ*18͞͞+0>%gŃ0_y+0OA~.( #(0>% w#A ~#(-80q#ͳͲ*j61Ͱ>ͥ~ 0f(@{26*Y\"]\x(0Fĕ͑G66 v0N::\22 8> xͣ 6 KE\>::G\ :O͗::\<( ( 4 p\!D\~( 6 :'.2!Ué0[[\R C~W 0Ҕ!` (ڔ  ր0A   ô3L>2 ͋֯2G\=2:\Ϳ4 R (z:(!wHڊO!H N *t\~#"t\R]֑oo&U-%ɬ&T{ ~ q*B\|(!"E\*a\+[Y\:D\3͹:D\( CG~x(0%*U\>͍#^SE\#^#V#"U\"]\W6 r (͋(0% (:(( Ao(* -\ CI\*]\!U*a\7R`in ͸y=((+[S\U"S\*a\++*I\p+q+s+r!n*K\( ŠH (Ը7R#͂0%7͙`i*=\!s=\+0 >+ͣ! ( ¶= !w&QK}*O\s#r߸xʟq#pͷ:?! ȧ_ jd"Voͼ: ( 2> ͧ M D o%>6Rn_{ 0ր&on`E&o^#VU>>0%o&E ( N (`````~~8<|8<||~~~|0000~l8x0x~0`(~|ff <6<0@L?  cc `6<66+W? sU% aa`T  ` 9a9 y  - ymxlx"????????0? ``? ï+mmg*? /_?> +W sslmg?_6@0U`xymyaa涳 $?_?_?_U   P'Fpactxt5 {(m}!"J"L!R"F"HN͎( "!Jͨb!Fͨj>% b| 0- j-% b} 0- j- !X'spu^#V2 #^#V++r+s_!ϠVbj-]ɯSpuyrlf`[VQLHD@=9630-+(&$" 11 11 1111 11 11% % %%% % %%%%% % %%%% % %%%%11 11 1111 11 11 % %% % %%%1 1 1 1 2                          %%% % %%%%%%%%%%% 2dpactxt6 = 5=R(N)=0:S(Np)=0R:C(Np)=0P:I(N,A$B,B$)}r)=0B:A(N,N=0:N)=0b:K$(NN)=N,N=0:N)=0-:O(NN)=N,N=0:N)=0Y:X(NN)=N,N=0:N)=0P:C$(N=0:N)=0:N(C$Bg)=0:H$(N)=0:D(H$j)=0:U$(S$, h,N )=0:S$(N,S$cj)=0:P(N\)=0:B$(N )=0x:T$()=0:M$()=0:V(N!,N)=0k:M()=0-0:F()=0::U(@$B$)=$,@$=0:$)=0:L(N,@$)v)=0k:Z$(N ,A$(i)=0:E(N)=0:T()=0@:0 | PAC-TXT | ZX SPECTRUM VERSION |BY ALAN Factor6 PETRIK | 2010 | ORIGINAL ATARI XL/XE | VERSION BY | ARKADIUSZ LUBASZKA ----------------------- w0:236066\,224:236077\,170:236099\,4:41063g,0:41060d,15 0 L1,0,143,256,144:1:0:7: k$(74J):e$(74J):z$(74J):p$(40():l$(1):m$(792):p$(1):q$(1):r$(1):s$(1):t$(1) *m$="*":m$(792)=m$:m$(2)=m$ y$="*************************************................**................**.*****.********.**.********.*****.**@*****.********.**.********.*****@**..................................*" y$=y$+"*.*****.***.************.***.*****.**.......***......**......***.......********.******** ** ********.**************.*** ***.**************.*** *----------* ***.*******X . * 1 2 3 4 * . X*******.*** ************ ***.**************.*** ***.**************.*** ***** ***** ***.********................**................**.*****.********.**.********.*****.*" y$=y$+"*@...**..........0 ..........**...@*****.**.***.************.***.**.*****.......***......**......***.......**.**************.**.**************.**..................................*************************************" m$=y$:b$=13 +12 20:pr:41e3( T" ArSoft CORP. i HOOY-PROGRAM"," przedstawi gr",b$," PAC-TXT" "wersj na Atari w pocie czoa"," napisa Arkadiusz Lubaszka"," konwersj dla Spectruma zrobi","Alan ~FACTOR6~ Petk [09/2010]" " muzyk skomponowa MISTER BEEP obrazek tytuowy: YERZMYEY",b$," Kopiowanie i rozpowszechnianie"," bez pobierania opat"," D O Z W O L O N E" Eb$," www.ArSoft.netstrefa.pl"," hooyprogram.republika.pl","*" ----------------------- inp:3;c$ +c$="start"c$="st"27:pr:92\ /b$,b$,b$,"READY!",b$,b$,b$,"START!",b$,b$,"*" c$="help"29:63? P"Gra zostaa napisana w jzyku","polskim, wic i Ty uywaj tego","jzyka!","*" (c$="koniec"c$="k"31:63? /"Chyba naleaoby najpierw","zacz, co?","*" !)c$="slownik"c$="s"33!:63? "c"Wykaz polece dostpnych w grze:",b$,"- start (st): rozpoczcie gry","- opis (o): opis sytuacji" #G"- id (i): 1 krok do przodu,albo","- naprzd (n): rwnie krok d.p." $Z"- lewo (l): obrt w lewo","- prawo (p): obrt w prawo","- zjedz (z): konsumpcja kropki" %["- misja (m): statystyka gry","- pomoc (po): krtka pomoc","- sownik (s): wykaz polece" &%"- koniec (k): zakoczenie gry","*" '(c$="pomoc"c$="po"62>:63? (&c$="opis"c$="o"40(:63? )g" Gra powstaa w 2009 r. spec-jalnie na Grzybsoniad. Pomys","na tekstow wersj Pac-Man'a" *]"zosta zaczerpnity ze strony","http://pac-txt.com."," Poza napisem tytuowym caa" +P"reszta jest stworzona od podstaw","i znacznie ;) odbiega od pierwo-","wzoru." ,d" Program na Atari napisany byw kompilowanym Turbo-Basic'u XL1.5. Posiada rwnie niewielkie" -j"wstawki w asemblerze (DLI). Do","ciekawostek naley zaliczy","wykorzystanie trybu $03 ukadu" ."ANTIC (matryca znakw 8x10), co","polepszyo czytelno."," Wersj na ZX Spectrum napisa","Factor6 w Beta Basic'u 3.0.","*" /%c$="idz"c$="i"47/:63? 0)c$="naprzod"c$="n"47/:63? 17"Jeszcze si nachodzisz!","Najpierw zacznij gr!","*" 2'c$="prawo"c$="p"502:63? 3/c$="lewo"c$="l"502:63?:1 4."Rozpocznij gr, to sie pokrcisz","...","*" 5'c$="misja"c$="m"535:63? 6("Misja jeszcze si nie rozpocza","*" 7'c$="zjedz"c$="z"557:63? 8/"Je mona kropki, a tu ich nie","ma...","*" 958:+R(4) : "Co?","*" ;"Wyraaj si janiej!","*" <"Nie rozumiem.","*" = "???","*" >@"Sownik jest dostpny po napi-","saniu wyrazu 'slownik'.","*" ? pr:26 @----------------------- Apr B C%u$:u$="**":neodradkovat+konec D,u$="*"""::u$="*":odradkovat+konec E""::u$=" >>"3 Fx=1̱(u$):u$(xx);:x G :7 H I----------------------- J inp K"5;"Co teraz? >";c$ L75K:pr:" >>","**" Z [----------------------- \poz=I(1,m$,"0"):m$(pozpoz)=" ":kier=4:moc=0:q$=" ":r$=" ":s$=" ":t$=" ":d1=I(1,m$,"1"):k1=R(4)+1 ]d2=I(1,m$,"2"):k2=R(4)+1:d3=I(1,m$,"3"):k3=R(4)+1:d4=I(1,m$,"4"):k4=R(4)+1:duch=0:hlp=2 ^--- OPIS _moc=-1281 `/duch=duch+1:duch=4duch=1 aduch>1146 bp$="*":98b+k1 c+p$=m$(d1-36$d1-36$):103g d)p$=m$(d1+1d1+1):103g e+p$=m$(d1+36$d1+36$):103g fp$=m$(d1-1d1-1) gV(p$" "p$"-"p$"."p$"@")(p$="-"k1=3)k1=R(4)+1:110n h#m$(d1d1)=q$:q$=p$:104h+k1 id1=d1-36$:109m jd1=d1+1:109m kd1=d1+36$:109m ld1=d1-1 mm$(d1d1)="1" np$="*":110n+k2 o+p$=m$(d2-36$d2-36$):115s p)p$=m$(d2+1d2+1):115s q+p$=m$(d2+36$d2+36$):115s rp$=m$(d2-1d2-1) sO(p$" "p$"."p$"@")(p$="-"k2=3)k2=R(4)+1:122z t#m$(d2d2)=r$:r$=p$:116t+k2 ud2=d2-36$:121y vd2=d2+1:121y wd2=d2+36$:121y xd2=d2-1 ym$(d2d2)="2" zp$="*":122z+k3 {+p$=m$(d3-36$d3-36$):127 |)p$=m$(d3+1d3+1):127 }+p$=m$(d3+36$d3+36$):127 ~p$=m$(d3-1d3-1) V(p$" "p$"-"p$"."p$"@")(p$="-"k4=3)k3=R(4)+1:134 #m$(d3d3)=s$:s$=p$:128+k3 d3=d3-36$:133 d3=d3+1:133 d3=d3+36$:133 d3=d3-1 m$(d3d3)="3" p$="*":134+k4 +p$=m$(d4-36$d4-36$):139 )p$=m$(d4+1d4+1):139 +p$=m$(d4+36$d4+36$):139 p$=m$(d4-1d4-1) V(p$" "p$"-"p$"."p$"@")(p$="-"k4=3)k4=R(4)+1:146 #m$(d4d4)=t$:t$=p$:140+k4 d4=d4-36$:145 d4=d4+1:145 d4=d4+36$:145 d4=d4-1 m$(d4d4)="4" m$(pozpoz)"X"153 148+R(2):pr U"Odkrywsz tajne przejcie, ktre","przenosi cie na drug stron","labiryntu.","**" V"Tu jest tajne przejcie!","Zzziuy... i jeste po drugiej","stronie labiryntu.","**" I"Tajnym przejciem przedostajesz","si na drug stron labiryntu.","**" )poz=361ipoz=395:157 )poz=396poz=362j:157 a=154+(*3):a:pr "Jeste w labiryncie.","**" "Wok ciebie labirynt.","**" %"Znajdujesz si w labiryncie.","**" m$(pozpoz)="."157:pr "Widzisz kropk.","**" m$(pozpoz)="@"159:pr )"Widzisz wielk pulsujc kropk.","**" ,moc>0161:pr:moc=moc-1 "Czujesz w sobie moc!","**" >kier=1m$(poz-36$poz-36$)="*"163:pr <kier=2m$(poz+1poz+1)="*"163:pr >kier=3m$(poz+36$poz+36$)="*"163:pr <kier=4m$(poz-1poz-1)="*"163:pr "Przed tob mur.","**" >kier=3m$(poz+36$poz+36$)="-"168:pr $"Przed tob zamknita brama.","**" Lm$(pozpoz)="1"m$(pozpoz)="2"m$(pozpoz)="3"m$(pozpoz)="4"172 186 3173+R(2):pr:176:pr:500 ,"Spotkae si oko w oko z","duchem!","**" 1"Wyglda na to, e jest tu z tob","duch!","**" /"No i masz babo placek! Tu jest","duch!","**" <"Takie spotkanie moe skoczy","si tylko jednym...","**" 8"Giniesz marnie!",b$,"I to ju koniec przygody...","*" C"Na szczcie moc w tobie silna","jest, i przeganiasz ducha!","*" Amoc=0177:pr:inp:3;c$:c$="tak":257 &178:pr:q=I(377y,m$," ") =poz=d1m$(d1d1)=q$:q$=" ":m$(qq)="1":k1=1:d1=q =poz=d2m$(d2d2)=r$:r$=" ":m$(qq)="2":k2=1:d2=q =poz=d3m$(d3d3)=s$:s$=" ":m$(qq)="3":k3=1:d3=q =poz=d4m$(d4d4)=t$:t$=" ":m$(qq)="4":k4=1:d4=q 95_ 1q=0:p$=m$(poz-36$poz-36$):spr $p$=m$(poz+1poz+1):spr &p$=m$(poz+36$poz+36$):spr $p$=m$(poz-1poz-1):spr q190:pr 197 @"Uwaga! Zblia sie do ciebie","duch. Lepiej uciekaj std!","*" spr (p$="1"p$="2"p$="3"p$="4"q=1  ---!--- 197:pr:"*"  inp:3;c$ *c$="slownik"c$="s"33!:280 c$="opis"c$="o"95_ c$="lewo"c$="l"550& "Obrcie si w lewo.","**" c$="prawo"c$="p"600X "Obrcie si w prawo.","**" *c$="start"c$="st"205:280 $"Bez jaj, przeciez juz grasz!","*" c$="help"29:280 c$="idz"c$="i"211 c$="naprzod"c$="n"211 218 kier=1300, kier=2350^ kier=3400 kier=4450 "Nie moesz tam i.","**" "Idziesz do przodu.","*"  pr:95_ c$="zjedz"c$="z"220 234 m$(pozpoz)="@"229 m$(pozpoz)="."500 225 '"Tu nie ma kropki do zjedzenia!","**" 232 6230+R(1):m$(pozpoz)=" ":moc=30 2"Ale POWER! Teraz nikt ci nie","podskoczy!","**" "Jasny gwint, ale odlot!","**" Iq=I(1,m$,"."):qq=I(1,m$,"@"):q+qq=0moc=-1  pr:95_ ,c$="misja"c$="m"234:pr:237 "Chwileczk...","*" 246 Gq=0:r=38&755:m$(rr)="."m$(rr)="@"q=q+1 r q$="."q$="@"q=q+1 r$="."r$="@"q=q+1 s$="."s$="@"q=q+1 t$="."t$="@"q=q+1 hqq=(((100d/260)*(260-q))*100d)/100d:243:pr:qq;"% misji.":pr:q;"." /"Wykonano ","**","Kropek do zjedzenia: ","**" 197:280 c$="pomoc"c$="po"248 253 ,251:hlphlp=hlp-1:250 280 m"Nie grae w Pac-Man'a? Chodzisz","po labiryncie, zjadasz kropki i","uciekasz przed duszkami. Proste!","*" f"No dobrze. Jeli pogubisz si w","tym ogromnym labiryncie (czy to","moliwe?), moesz skorzysta z" 9"tajnych planw labiryntu","wpisujc sowo ~mapa~.","*" c$="koniec"c$="k"255 260 255:pr:inp:3;c$ Y"Chcesz zakoczy gr?","Wpisz ~tak~ lub cokolwiek innego","dla kontynuowania gry.","*" "c$="tak"197:pr:15 258:pr:95_ !"Dobry wybr. Gramy dalej!","*" &c$"mapa"(hlpc$="mapa")277 261:pr v"Oto mapa labiryntu. Litera ~@~","deklaruje pulsujc kropk. 1,2","3 i 4 s duchowie. X jest tajne","przejcie.",b$ "**" '7,8:'m$:8,8  197 NIE ROZPOZNANO ----------------------- 58:+R(4)  pr:198 *281:pr:inp:197:pr:15 T"Brawo! Udao ci si zje","absolutnie wszystkie kropki!","Wykonae 100% misji." Z"I to by byo na tyle... Gra jest","na tyle nudna, e nikt nie kae","ci gra dalej ;-)" ."Teraz ju moesz wpisa","cokolwiek...","*" ----------------------- , kier=1 69m$(poz-36$poz-36$)="*"215:330J @ 216 Jpoz=poz-36$ T ^ kier=2 h7m$(poz+1poz+1)="*"215:380| r 216 |poz=poz+1   kier=3 9m$(poz+36$poz+36$)="*"215:430  216 poz=poz+36$   kier=4 7m$(poz-1poz-1)="*"215:480  216 poz=poz-1  test kropki 510:m$(pozpoz)=" " &"Kropka zjedzona. Mniam mniam.","**"  228 &obrot w lewo 0 201 :kier=kier-1 Dkier=0kier=4 N pr:95_ Xobrot w prawo b 203 lkier=kier+1 vkier=5kier=1  pr:95_ oorrS[oRieowy}~uclaqnGj[[[[[[[[[[[[[[[[[[[[[[[MJ MJ MJ  *************************************................**................**.*****.********.**.********.*****.**@*****.********.**.********.*****@**..................................**.*****.***.************.***.*****.**.......***......**......***.......********.******** ** ********.**************.*** ***.**************.*** *----------* ***.*******X . * 1 2 3 4 * . X*******.*** ************ ***.**************.*** ***.**************.*** ***** ***** ***.********................**................**.*****.********.**.********.*****.**@...**..........0 ..........**...@*****.**.***.************.***.**.*****.......***......**......***.......**.**************.**.**************.**..................................*************************************     Y*************************************................**................**.*****.********.**.********.*****.**@*****.********.**.********.*****@**..................................**.*****.***.************.***.*****.**.......***......**......***.......********.******** ** ********.**************.*** ***.**************.*** *----------* ***.*******X . * 1 2 3 4 * . X*******.*** ************ ***.**************.*** ***.**************.*** ***** ***** ***.********................**................**.*****.********.**.********.*****.**@...**..........0 ..........**...@*****.**.***.************.***.**.*****.......***......**......***.......**.**************.**.**************.**..................................*************************************B [C[U >>_