PAC-TXT/ENR(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 4 4u4R(N)=0:S(Np)=0R:C(Np)=0P:I(N,A$,B$))=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. and HOOY-PROGRAM"," present game",b$," PAC-TXT" " Atari version written by"," Arkadiusz Lubaszka"," Spectrum conversion by","Alan ~Factor6~ Petk [09/2010]"," music by MISTER BEEP"," title screen by YERZMYEY" Xb$," Copying and distribution"," without charge"," P E R M I T T E D" 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$="pomoc"29:63? L"This game has been written in","English, so use that language","too!","*" 9c$="exit"c$="x"c$="quit"c$="bye"31:63? @"It would be clever to start the game first, wouldn't it?","*" !'c$="list"c$="li"33!:63? "["List of available commands:",b$,"- start (st): start game","- desc (d): situation desc." #C"- go (g): one step forward, or","- forward (f): also 1 step fwd" $J"- left (l): turn left","- right (r): turn right","- eat (e): eat a dot" %["- mission (m): game statistics","- help (h): short help","- list (li): list of commands" &"- exit (x): end of game","*" '&c$="help"c$="h"62>:63? (&c$="desc"c$="d"40(:63? )d" The game has been writtenespecially for Grzybsoniada in2009. The idea for text based" *}"PAC-MAN comes from website","http://pac-txt.com."," The whole game is writtenfrom scratch except title screen" +1"and it differs a lot ;) from the original." ," Original Atari program has","been written in Turbo-Basic XL","1.5. It contained some asm","routines (DLI). Attractions","include use use of ANTIC $03" -Q"mode (character grid 8x10),which has improved readabilityon the Atari." .Z" The ZX Spectrum version hasbeen made by Factor6 in","Beta Basic 3.0.","*" /$c$="go"c$="g"47/:63? 0)c$="forward"c$="f"47/:63? 1;"You're not yet in the game!","First start the game!","*" 2'c$="right"c$="r"502:63? 3/c$="left"c$="l"502:63?:1 49"It will not work here. First","start the game ...","*" 5)c$="mission"c$="m"535:63? 6("Your mission hasn't started yet!","*" 7%c$="eat"c$="e"557:63? 84"You can eat dots, and they are","not here...","*" 958:+R(4) : "What?","*" ;'"Please express yourself better!","*" <"I don't understand.","*" = "???","*" >;"List of commands is available","after typing ~list~","*" ? pr:26 @----------------------- Apr B C u$:u$="**" Du$="*"""::u$="*" E""::u$=" >>"3 Fx=1̱(u$):u$(xx);:x G :7 H J inp K"What now? >";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 c"You've found a secret passage,","which will transport you to the","other side of the maze.","**" _"Here's the secret passage!","Zzzheeoow... and you're on the","other side of labyrinth.","**" K"You walked through the secret","passagethe other side of themaze.","**" )poz=361ipoz=395:157 )poz=396poz=362j:157 a=154+(*3):a:pr "You are in a labyrinth.","**" #"There's a maze around you.","**" %"You find yourself in a maze.","**" m$(pozpoz)="."157:pr "You see a dot.","**" m$(pozpoz)="@"159:pr #"You see a big pulsing dot.","**" ,moc>0161:pr:moc=moc-1 $"You feel power in yourself!","**" >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 #"There's a wall before you.","**" >kier=3m$(poz+36$poz+36$)="-"168:pr ("There's a wall in front of you.","**" Lm$(pozpoz)="1"m$(pozpoz)="2"m$(pozpoz)="3"m$(pozpoz)="4"172 186 3173+R(2):pr:176:pr:500 "You met a ghost!","**" 2"It seems there's a ghost with","you here!","**" ;"Houston, we've got a problem!","It's a ghost here!","**" 5"Such a meeting can only end by one thing...","**" C"You die in vain!",b$,"And this is the end of the","story...","*" R"Fortunately there's still power inside of yourself and you ate the ghost!","*" 4moc=0177:pr:inp:c$="yes":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 D"Danger! The ghost is near!","Better get out of here quickly!","*" spr (p$="1"p$="2"p$="3"p$="4"q=1  197:pr:"*"  inp:3;c$ (c$="list"c$="li"33!:280 c$="desc"c$="d"95_ c$="left"c$="l"550& "You've turned left.","**" c$="right"c$="r"600X "You've turned right","**" *c$="start"c$="st"205:280 -"No kidding, you're playing","already!","*" !c$="pomoc"29:280 c$="go"c$="g"211 c$="forward"c$="f"211 218 kier=1300, kier=2350^ kier=3400 kier=4450 "You can't go there.","**" "You go forward.","*"  pr:95_ c$="eat"c$="e"220 234 m$(pozpoz)="@"229 m$(pozpoz)="."500 225 "There's no dot to eat.","**" 232 6230+R(1):m$(pozpoz)=" ":moc=30 ;"You've got POWER! You're immor- table for a while!","**" %"Great! You've got the power!","**" Iq=I(1,m$,"."):qq=I(1,m$,"@"):q+qq=0moc=-1  pr:95_ .c$="mission"c$="m"234:pr:237 ""Please wait for a while...","*" 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 mqq=(((100d/260)*(260-q))*100d)/100d:243:pr:qq;"% of mission.":pr:q;"." &"done ","**","Dots remaining: ","**" 197:280 c$="help"c$="h"248 253 ,251:hlphlp=hlp-1:250 280 h"Never played PAC-MAN?","You go trough the labyrinth, eatdots and run away from ghosts.","Simple!","*" a"Allright. If you get lost in","this huge labyrinth (is it even","possible?), you can show the" #"secret map by typing ~map~.","*" c$="exit"c$="x"255 260 255:pr:inp:3;c$ "Do you really want to exit the","game? Please confirm it by","typing ~yes~, or type anything","else to continue playing.","*" "c$="yes"197:pr:15 258:pr:95_ "Good choice. Play on!","*" $c$"map"(hlpc$="map")277 261:pr z"This is the map of the labyrinthLetter ~@~ indicates pulsing dot1,2,3 and 4 are ghosts and X is the secret passage.",b$ "**" '7,8:'m$:8,8  197 58:+R(4)  pr:198 7281:pr:inp:3;c$:197:pr:15 Z"Congratulations! You have eaten","all the dots! You've finished","100% of the mission." ^"And that's all. The game is","actually very boring so nobody","wants from you to continue." ."You can type anything you want, now...","*" , 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)=" " "Dot eaten. Yum-yum.","**"  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_ oorrX