ZXTape!Loader  ; 1:1:25000a:1,1;6;"Loading .Z80 emulator snapshot":23867;]: !;]!7V>Gݾ>Lݾ~8'( 8((6!@>7V͍]!@y![ n]~G7!@@1W>bK ! x?0z! !7N#(`!(0! N#70&7^R7^CX^"V^BK*V^KX^7^R ! Oj! MAYA 0GL Hb(h)=*P+14@-m)+1A:&=0T9[EL?*% a szmitgp l4T֢%kl=6}d=-99 :ch= I}"i%/g(itAK:i8jI3 B.8  --Tjg152{WqFm=j:11 `* hangjelzes kiseretebenlepCutillapotDi[U sr.M. .05|L@J,. *tryͷ40 Kxn}(l H rZX-(=,l|38C29+Z@8kk'H5% L =k-멅Mm&!-@/f(m)*o+kɺ(Di)/"^(-c)[ZܕBq-2YTc@p" T0pq| /xbabtWe01B(ڀ6/ozott vanfX2$,(* jS|)t"AP@*  "dO@ 16r-T%Jp15)0%K&]L= 1NPJ  ?`P:Pj2@R, Xj nTY*3P^p Lp ` @4j(aP8 zA0@b V5c553@d*6Pep@ hGlP0 tڶ|;?SpectrumK">Pr|5Tk,Tdia jatekosvlasztBa,/`Jbetunkent,G ty?1u$="Melyik kupblPe4l?":u2D}gFz# =,u/1?:18+u;~(u):u *p!;w׮"٠`L1|i+n+.@Gi F, ђok";i܌xc.x̌\, eket tar|lmazoakjamozMvz ;"g":, .J<1P223e4@5 CvvvVyzoCHOmAoy+Eo = `>,2-y-o;'gByX(!p g$ Lek uj ir4Pܘ8v&+V`.siult epp ugytobe tCnz#olso P't,akkor jlombj ph 0QkIsmX :".X:?6_ Cв{i7 !+i;aa$&D.N#DA~Xb)lmmesv"maya}x "4076@8a^@7P_KzHudge"e,16H##)YPP  #*F/MENUKEZELO % ,+KKREM, E #:HJ2ڗS$(쑃Rpˀ3C 4<>FcimF, ;" sW NyitraiSOFT 2001' "Vp< @%N"MAYA jtk #/,Sn"Kiv psCn$4kkal + ENTER."xJPl7#:9083`'#GT(d}@G):f/#:Af:fXZV,X]n$( !-QGM),d (J`^X$%ptjZ4@\:T0uz)P\x=DGlC$H^x,y;N@"`5؁@7`7 d"(̣@BzbdBxb$P/Ҭxx+f`QV8:f d+ )SWd^HI+Pf9)%ir]J;~ρ hL--d0, Nj6Ԙ *:2@16bl~h<: l-D-XIv +`HP$: v#n9񀑀@$ 8 va2%,p0 #);X, Y+(-a kr=i$=:á( o(j%k `907 rs'tEvκ$ZxZV< @ \A ݚp>: @K:x3ZZzY%fӯ<0adatok?hz|NB ($@HS" Men-k: pE"golyB~'a: 1",A2-2* p3-3PK4-4 \5-5T6-6vlet(n]Xr_@`@/magyarzat"a program@?rl!!ki@8/`(_&is^[az^.sor/$c ҂uus $ F h61$L?$$7%;})RR7 :2Y)ʀ`)bHH$d)B5@ZF93L T$ $~N FB -h#L @OdA@ZHр֢M($)  QpTUY"M ,v# Awari-?le kavicsj-T,egyKfxsint rgi u@M,mafG%\- det.Eur0on|Zab]A?=ll$,r:pdni wuU-;m 9;aNڀ{kerljm aFUeA ? mg nhny,T&m, ( n".AzIpyerP  ΐavV<]T`` .@4@*<5DM@t`@@3[5y972/3/4/5/6/7?o$>"7"70 6&E#tt"l5`P &6U hPB @ A=pP @4``kW`0d)@]H@  L P<&H p @AB@@ !``(@F HBp  @ `<0O   h@F $`JH>h7p$0`x ~($:+cT# $P.7@3Wԁ@{,$Bb Bm@D@mF`8H,)@h0p*jnXr@ 2@@p+$6@Y V$ Jd :@B JI@[:~h`(\@@ |8GC \h&@-A0VpH !2 ("M18Y)b@b,P'@ 4=@ 1;`bx( @ g$B! *,::::::::::::::::::::::::::::::::::::::::::::::::::::::MAYA 1 GL::G <:PA D=cDL X aX P``PhiSr<h%Ppp$Ka`22`8j}@1 H@F , (( 8FG0@   ' 8   !@@ 2 `߀?J HrPPh(" P!@7)>HXA, H$ )@$6}G@*:nc-zlk:OU/$@xp#$@$P 2 @z @ 1Bτ W0 &KG!X!tC $bA@D%pA #tP,KAYpp( WdD F3 o$2lB~ZS#O @')5 T$XH'rA˰$l)/ b @   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~@?@  ?@ >!"*GCDMX T]R( J @ݾ.VpGK,pӲ. .M[.goYLDT]|se` Kx> p}BtO^"R\"2"PB *Y 䅕 ("ҩ4U9U:6D`XBZ&(LhRGaC_Q@7 @ A5䇬,3L#m@PXxookP R@\@XI`>YvQNI]4tâ|EF7TiM$% 8 K*wQ%JX 5!$)> *]u}YH#GG@7Bb ^>0GV@?*~'@o&JV#^#F#N`i͵#"/*>( 08>8p"RA퓞J^ z Zq͐:toZF1? !?ue @z /@^z  / @^ tBL!@B\!Bl!B| H F!`bb!pbL!B!H+r~}|{zyxwvutsrqponmlkjihgfedcba`_^]\[ZYXWVUTSRQPONMLKJIHGFEDCBA@?>=<;:9876543210/.-,+*)('&%$#"!  $F $B$@K<!!EQ ъ<C9?h ~ff̚ll@l~|BH$J8%8jzp[h- ` D((DJ8p;')I @|Ư|E8`R~||~O XfD`0~`hi"0^00i'0`0dU _p c`4 ΄yBhQ֒D(E|+ (i l8P8lA{ff$<mA]r|p(9 @  ii`T3H#^{+s#r#= k @Y*=\R_r>2:\!y~}~A>`A6`A.A6` A6!"A>#`$A6%`&A.'(A6)`*A6+ ,A>- `. A6/ `0 A 0 12 M3 4 M5 ~ 5 67 A68 `9 A6:  : ;O< = M> TM ;M MWq W P/P PA ~Y}YDG!v J0YϹ00HBűO-O,O\ޯ>.U\/R8=g= x :H\~ӕC X>/(  >>~L Lf@7wF 3dRB D2$0ْ%oO%{Rqi>U.T@  *@ hq}* <?u%Ut7@8(PUeZ$$p @O9|)<:pܬ5{wݫ^~k?7 7??_/ /_ |||~~||(||(D|0P0P.;iy8>V~|||~|~||||8~~~~`|~`~8~|~|~~~|~~|`1!%!>(O1V8UX!6:\                 yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy i # @r#r# L֜\\\2ݒ\LKX![!HP!!w46w4'l^zC5Iڢ K SR P ********************* w*** awari/awale *** *** babszem/kavics ** **** MAYA golys **** **** jtk **** ********************* * Nyitrai MAYA 2001'* *** hatfokozatos *** #*** logikai jtk *** $ (UDG karakterek - 2Yr= d= k= l= g= e= n= m= j= a= b= c= d= f= g= h= i= q= r= s= o= p= < FUDG CODE USR "A",168 U bellitjuk az alapszineket Z&0:4:4:0: _[ alaphelyzetben a pont szm c s s nulla,b s g szm tmb 14 helyrtk,a lpstmb=51 d?c=0:s=0::b(14):g(14):f(513) i 9000(# k&0:4:4:0: 460:1580, 940:720 7 a b(14) a szmitgp,a b(7) az n babszemeit jelli (b(7)-20)*(b(14)-20)0e=04,0;" Vge! ":l=1300,:l:330J mh260 #710:1820:1770 K ha e=0 a jatknak vge,nem maradt a szmitgpnek mr babszem a kupkban Ke=04,0;" Vge! ":i=1300,:i:330J s=01640h $1750:1240:1890b K ha e=0 a jatknak vge,nem maradt a szmitgpnek mr babszem a kupkban "Ke=04,0;" Vge! ":i=1300,:i:330J ,mh320@ 6;940:18400:1240:1890b:1870N @e>0220 E)vge a jtknak,az rtkels kvetkezik J?:2;0,1;"" L72;1,1;"";1,31;"";2,1;"";2,31;"";3,1;"";3,31;"";4,1;"";4,31;"";5,1;"";5,31;"";6,1;"";6,31;"";7,1;"";7,31;"" N72;1,1;"";1,31;"";2,1;"";2,31;"";3,1;"";3,31;"";4,1;"";4,31;"";5,1;"";5,31;"";6,1;"";6,31;"";7,1;"";7,31;"" OA2;8,1;"";8,31;"";9 ,1;"";9 ,31;"";10 ,1;"";10 ,31;"";11 ,1;"";11 ,31;"";12 ,1;"";12 ,31;"";13 ,1;"";13 ,31;"";14,1;"";14,31;"" P2;15,1;"";15,31;"";16,1;"";16,31;"";17,1;"";17,31;"";18,1;"";18,31;"";19,1;"";19,31;"";20,1;"";20,31;"" R>2;20,1;"" S'4,6;" Vge a jtknak !" Td=b(7)-b(14) ^d0370r c8ha a b(14) rtke nagyobb,mint b(7),a szmitgp nyert h<8,5;"n nyertem ! ";-d;" golyval":420 r#m=m+1:d0390 w6ha a b(14) rtke megegyezik b(7)-el,akkor dntetlen |,8,10 ;"Dntetlen !":420 6ha a b(7) rtke nagyobb,mint b(14),a jtkos nyert 6;6,5;"Vgeredmny:";1;b(7);"-";2;b(14);" goly";1;8,5;"te nyertl ! ";d;" golyval";2;12 ,10 ;"gratullok !" gyzelmi zene ,410:n=122:j,b:j,b:n .2~L,0,.2~L,2,.2~L,4,.4L,5,.3,0,.2~L,5,.2~L,4,.2~L,5,.4L,7,.2~L,2,.2~L,2,.2~L,4,.2~L,5,.3,9 ,.2~L,7,.2~L,7,.2~L,5,.2~L,5,.2~L,4,.2~L,2,.2~L,4,.2~L,5,.2~L,5 " Mgegyszer ? (I/N) ";c$ c$="I"c$="i"90Z 9ha nincs ujabb jtk , a szmitgp udvariasan elkszn t:2;5,5;"Befejeztk a jtkot !";1;9 ,1;"Visszlt,mlt ellenfl voltl!": 7*** a kpenytbla *** megrajzolom a kzdteret  3#0;"  Nyitrai MAYA 2001'" <2;0,1;"" l2:1,1;"AWARI";5;" rgi";1;" MAYA";3;" golys ";2;"jtk" 32,1;"" >2;6,0;"" H7,0;" " H8,0;" " H9 ,0;" " I10 ,0;" " I11 ,0;" " I12 ,0;" " I13 ,0;" " I14,0;" " I15,0;" " I16,0;" " 616,0;""  m=15:n=.01z# = a kupk kerek krvonala .kozep=64@:iv=100d:sugar=14 2:kozep,iv,sugar:n,m kozep+25,iv,sugar:n,m kozep+502,iv,sugar:n,m kozep+75K,iv,sugar:n,m kozep+100d,iv,sugar:n,m &kozep+125},iv,sugar:n,m 0'1:i=96`91[-1 :8212,i-12 ,15:.01z# =,i/10 :i D(kozep+125},iv-27,sugar:n,m N(kozep+100d,iv-27,sugar:n,m X'kozep+75K,iv-27,sugar:n,m b'kozep+502,iv-27,sugar:n,m l'kozep+25,iv-27,sugar:n,m vkozep,iv-27,sugar:n,m 21:i=105i100d-1:2 738&,i-14,15:.01z# =,i/10 :i %a rajzols kzben egy kis hanghats u1:n=0:i=16:.01z# =,i:15,i+n+7;i;5,24-i-n;i:n=n+2:i x$="Spectrum":y$="Jtkos" i=18 $2;7+i,1;x$(i); i i=17 %1;7+i,30;y$(i); i  *** lpsek ***  720 ;ha a gyjtbe sikerlt lpnnk,jutalomknt ujra lphetnk i.05|L,25:2;17,3;1;"Ismt";0:1820:730 1660|:1680 ?a kupk kivlasztsa korltozva,hogy csak 1-6 kztt legyen G.01z# =,10 :7;1;3,11 ;" te lpsz " 65055  a$=:a$<"1"a$>"6"735 m=a$ b(m)=0735  n=0 x=16  a$xn=n+2:x  1730  h=7:m=x * 830> 4 940 >k=m:1120` H!e=0:k6860\ R k=k-7 \#c=c+1:c9 880p ff(m)=f(m)*6+k p,i=16:b(i)0900 zi: -i=813 :b(i)=0920  e=1: i: *** lps kijelzs *** z=0:i=16 5a gyjtkosrban lv babszemek kiirsa s trlse 6b(i)10 12 ,i+z+6;b(i):980 5b(i)=012 ,i+z+6;" ":980 ).01z# >,i:12 ,i+z+7;b(i) z=z+2:30:i @b(7)10 11 ,26;b(7):1010 *a jtkos kosarban lv babszemek szma 11 ,26;b(7) =2;18,1;"" z2:19,1;"";19,6;"az lls ";b(14);"-";b(7);" goly ";19,30;"" =2;20,1;"" z=0:i=813 7b(i)10 9 ,30-i-z;b(i):1060$ 6b(i)=09 ,30-i-z;" ":1060$ ).01z# =,i:9 ,31-i-z;b(i) $z=z+2:30:i .Ab(14)10 10 ,4;b(14):1090B 31a SPECTRUM gyjtkosarban lv babszemek szma 810 ,4;b(14) Bp1:19,6;"az lls ";2;b(14);2;"-";1;b(7);3;" goly" L V*** lepsismtlsek *** `p=b(m):b(m)=0 jp=p1-1 t%m=m+1:m141160 ~m=m-14 b(m)=b(m)+1 p b(m)11210 .(m-7)*(m-14)=01210 #b(14-m)01220P