DOMINE5Ao #MdJz%M 40( Aton=1t=16:.07}\(,*36$+1:t  (rezi=0:rezm=0 F0ton=1:65369Y=127100d PQ9 ,5;"MOLIM SACEKAJTE"''12 ;"~PRAVIM~ DOMINE":8600! d?1::0,10 ;"D O M I N E":i$(9 ) x2''"Molim tvoje IME (Do 9 Znakova)":10 /23658j\,8:a$:23658j\,0 i$(19 )=a$ 0''"H v a l a ";1;i$:10 :10 Q''"Vise tonova (dn) ":0:="n"10 :ton=0:160 (10 :10 :10 :10 >''"Zelite li UPUTSTVA i"'"objasnjenje pravila (dn) " ="n"300, "d"170 .5,0:3000 :2600( ,z$(84T):d$(30) 6*#1;"Trenutak, molim (15 sec.)" @ 8400 T 8000@ ^I20,0;i$;10 ;rezi;21,0;"SPECTRUM ";rezm hq=1:8100 r2dd=0:dl=0:b$=" " ^17,23;1;i$:20,13 ;"KOLIKO DOMINA";21,13 ;b$ 810 :.1}L,22:8800`":iz=iz-1 .iz<1iz>57500L:400 w=iz:s=1w I20,13 ;1;"BIRAJ ";s;". DOMINU";17,23;i$ 8800`":iz=0 *z$(iz)=1997500L:460  7600 q=3:8100 s j17,23;i$;21,13 ;b$;8,23;"SPECTRUM":10 :.1}L,9 ps=1w:20,13 ;1;"UZIMAM ";s;". DOMINU";8,23;"SPECTRUM":.1}L,9 :iz=(1+27.5\*):z$(iz)=199540 & 7700 :q=2:8100 Ds XJ17,23;1;i$;20,13 ;"POCETNA DOMINA " b)10 :.1}L,22:8800`" liz=0600X v3z$(iz+568)=1997500L:600X {miz=iz B8,23;"SPECTRUM";17,23;i$:10 q=2:7800x Vz$(p(1)+28)=(z$(p(1)+28)-100d):q=2:8100 ?z$(p(1)+28)=(z$(p(1)+28)+100d) {20,13 ;b$;21,13 ;b$;20,13 ;"S U D I J A":.4L,0:.2~L,22 *10 :i=568:iz=miz:85004! z1=z2t=13 +z1 z1z2t=z1+z2 t>t(p(1))900 spec. na potezu -;8,23;"SPECTRUM":10 :21,13;b$;20,13;"S U D I J A";8,23;"SPECTRUM":10 Ei=28:iz=p(1):85004!:zz1=z1:zz2=z2:dd=z2:dl=z2 iz=p(1):6000p  q=2:8100 z1=zz1:z2=zz2:7000X  1000 Igrac na potezu *17,23;1;i$:10  iz=miz:i=568:85004! *zz1=z1:zz2=z2:6100:dd=z2:dl=z2 q=3:8100 z1=zz1:z2=zz2:7000X  1500 igrac na potezu 4zalo=0mavr=0pas=4:2000 -20,13 ;b$;21,13 ;b$ zalo=0p$="IP" 4zalo=0igra=0pas=4:2000 y17,23;1;i$;20,13 ;"TVOJ POTEZ (";p$;")";21,13 ;"?":.2~L,22 100d:a$=  ?a$""Ưa$>64@s$=(a$-32 ):21,13 ;s$ a$="i"1200 ="t"ton=ton a$="k"1100L $a$="p"1400x ) a$="m"2400` :2500 .F21,13 ;"? ":.1}L,0:1030 Ligrac uzima V&zalo=07500L:1010 [ pas=0 `T20,13 ;b$;21,13 ;b$;20,13 ;"KUPI - IZVOLI" j.1}L,22:8800`" tiz=01010 ~+z$(iz)=1997500L:1120` #7600:q=3:8100 'zalo=0mavr=02000  1010 igrac prenosi u polje &igra=07500L:1010 T20,13 ;b$;21,13 ;b$;20,13 ;"IMAS - IZVOLI" 8 .1}L,22:8800`":iz=01010 4z$(iz+568)=1997500L:1010 (i=568:85004!:zz1=z1:zz2=z2 >q=3:62008:error=17500L:1010 6100:pas=0 q=3:8100 z1=zz1:z2=zz2:7000X  1500  1010 xigrac prepusta &zalo07500L:1010 pas=pas+2 pas<31500  2000 igra spectrum 4zalo=0igra=0pas=4:2000 T17,23;i$;8,23;"SPECTRUM":10 :.2~L,9 T20,13 ;"ANALIZIRAM ";21,13 ;b$:.1}L,9 mavr=015906 q=2:7800x s=1mavr i=28:iz=p(s) 85004!:62008 "error=01700 ,s 6J20,13 ;b$;20,13 ;"KUPUJEM":.1}L,5 @zalo=01650r Eiz=(1+*27.5\) Jz$(iz)=1991600@ T#7700:q=2:8100 Y"8,23;"SPECTRUM" ZT20,13 ;b$;20,13 ;"ANALIZIRAM ":.1}L,9 [4zalo=0igra=0pas=4:2000 ^Hi=28:iz=mavr:85004!:62008:error=01700 h 15906 rpas=pas+1 | 2000 fpas=0:20,13 ;b$;20,13 ;" I M A M ":6000p:.2~L,15 q=2:8100  7000X mavr>01000 1zalo=0m=0:i=10 :2130R  1000   sudija pas<31000 8,23;"SPECTRUM";21,13 ;b$;20,13 ;b$;21,13 ;"S U D I J A":.3,9 :.2~L,22 10 :2400` m=0:mm=0 mavr=02070 i=1mavr iz=28:85004!  m=m+z1+z2 z1>mmmm=z1 z2>mmmm=z2 i i=0:im=0 igra=02130R  i=1igra 4iz=568:85004! > i=i+z1+z2 @z1>imim=z1 Az2>imim=z2 Hi R810 :.5,22:1,0:10 \mpolje i=568:85004! z$(iz+i)=z$(igra+568)  z$(igra+568)=(199) igra=igra-1  8provera prviln, izbora Berror=1:s$="D" Lz1ddz2ddz1dlz2dl Vdddl6300 [q=26280 `s20,13 ;b$;20,13 ;"K U D A (dl)";21,18;"?":.5,22 jB="d"21,18;"DESNO":.1}L,22:6280 tI="l"21,18;"LEVO":.1}L,22:s$="L":6280 ~ 6250j error=0: z1=ddz2=dl6235[ z2=ddz1=dl6235[ error=0: Xupis-prikaz nove domine b iz=0 l(z1ddz1dl)7080 vz2=dd7060  z2dl  7280p z2dl7240H  7200  (z1ddz1=dl)7130 z2dd7260\ z2=dl7200  s$="L"7260\  7240H (z1=ddz1=dl)7160 s$="L"7260\  72204 z2dl72204 z2=dd7200   s$="L"7280p  72204  s$="L"7280p * 7240H 4!d$(pd)=(10 *z1+z2):dd=z2 >(pd=pd+1:pd>297340 C 7380 H!d$(pd)=(10 *z2+z1):dd=z1 R(pd=pd+1:pd>297340 W 7380 \!d$(pl)=(10 *z2+z1):dl=z2 f'pl=pl-1:pl<17300 k 7380 p!d$(pl)=(10 *z1+z2):dl=z1 z'pl=pl-1:pl<17300  7380 i=302-1 d$(i)=d$(i-1) i:d$(1)=(199) *pl=pl+1:pd=pd+1:7400 i=129 d$(i)=d$(i+1) i:d$(30)=(199) pl=pl-1:pd=pd-1  iz=1  crtanje i=130 d$(i)=1997460$ 0y=12 :i/2=(i/2)y=13  )d$(i)=199y,i;" ":7460$ .z1=(d$(i)/10 ):z2=d$(i)-10 *z1 *bd;y,i;(146+z1);(153+z2) $i . iz=1 B Lispis NE IDE `2i=13 31:2;19,i;"":i jT19,17;"N E I D E":1:1,0:502:10 t,i=031:bm;19,i;"":i ~ prenos zal.>igrac ;igra=igra+1:z$(igra+568)=(z$(iz)-100d) (z$(iz)=(199):zalo=zalo-1 W((iz-1)/10 )+3,(iz-10 *((iz-1)/10 ))*2;" "  pren. zal.>spectrum -mavr=mavr+1:z$(mavr+28)=z$(iz) ((zalo=zalo-1:z$(iz)=(199) 2W((iz-1)/10 )+3,(iz-10 *((iz-1)/10 ))*2;" " < xbiranje domine Uiii=mavr:iz=28:kkk=100d:q=3iz=568:iii=igra:kkk=0 p(iii):t(iii) i=1iii  85004! z1=z2t(i)=13 +z1 z1z2t(i)=z1+z2 i i=1iii:max=0 j=1iii t(j)>maxmax=t(j):mmax=j j p(i)=mmax:t(mmax)=-t(mmax) i i=1iii  t(i)=-t(i) i 9 ,23;" " 6 @polje za igru J0bp=6:bm=2:bn=0:br=4 T+br::0,10 ;"D O M I N E" ^i=031:bm;2,i;"";6,i;"";10 ,i;"";15,i;"";19,i;"":i:bm;20,12 ;"";21,12 ;"" hbi=09 :x=3+i*2:bn;1;6,x;i;10 ,x;i;15,x;i:i ri=13:bn;2+i,0;(64@+i);6+i,0;(64@+i);15+i,0;(64@+i):i | prikaz zaliha 'ii grupa (1-zal,2-spectr,3-igrac) ii=q: 9vrednisti: 00-66=otkriv;100-166=pokriv;199=nema dom  bd=0 >ii=1yz=3:iz=0:iii=28:8200 Cii=2yz=7:iz=28:iii=mavr+1:8200 Dii=3yz=16:iz=568:iii=igra+1:8200  i=1iii y=((i-1)/10 ) &x=(i-10 *y)*2 +/z$(i+iz)=199y+yz,x;" ":8290b 02z$(i+iz)>66Bbd;y+yz,x;"":8290b : 85004! N1bp;bd;y+yz,x;(146+z1);(153+z2) bi l(ii=14,23;"ZALIHA" v*ii=28,23;"SPECTRUM" #ii=317,23;i$  inicijaliz. 8i=130:.01z# =,i:d$(i)=(199):i opas=0:s$="D":p$="IK":pl=13 :pd=14:igra=0:mavr=0:zalo=28 )i=184T:.01z# =,i/2 z$(i)=(199) i p(28) mesanje domina iii=0 !_i=60-1:j=0i:iii=iii+1:p(iii)=10 *i+j+100d:j:i ! ?i=128:.01z# =,i:j=(*.99}p*iii+1) !-z$(i)=(p(j)):p(j)=p(iii):iii=iii-1 ! i !* !4odr.z1iz2 !9z$(i+iz)=199 !>4z=z$(i+iz):z>66Bz<167z=z-100d !C$z1=(z/10 ):z2=z-10 *z1 !H/z1<0z1>6z2<0z2>6 !R !post.UDG !8670!:ii=21 !7i=1ii:a$:j=07:x:a$+j,x:j:i ! !a"a",0,4,4,01010111W,01010101U,01110101u,128,128 !S"b",0,126~,66B,01111010z,10 ,251,0,0 !N"a",0,127,65A,93],93],93],65A,127 !S"b",0,255,193,221,221,221,193,255 !S"c",0,127,127,127,127,127,127,127 !S"d",0,127,127,127,119w,127,127,127 !R"e",0,127,95_,127,127,127,125},127 !R"f",0,127,95_,127,119w,127,125},127 !Q"g",0,127,93],127,127,127,93],127 !Q"h",0,127,93],127,119w,127,93],127 !P"i",0,127,93],127,93],127,93],127 !S"j",0,255,255,255,255,255,255,255 !S"k",0,255,255,255,247,255,255,255 !S"l",0,255,253,255,255,255,223,255 !S"m",0,255,253,255,247,255,223,255 !S"n",0,255,221,255,255,255,221,255 !S"o",0,255,221,255,247,255,221,255 !S"p",0,255,221,255,221,255,221,255 !a"q",0,4,4,01010111W,01010101U,01110101u,128,128 !S"r",0,126~,66B,01111010z,10 ,251,0,0 !K"s",20,8,28,34",32 ,34",28,0 !K"t",20,8,28,34",24,68D,568,0 !J"u",40(,16,60<,4,8,16,60<,0 ! "`upis izabr. dom. "j(0;21,13 ;"? " "t iz=0 "a= "a=113q ">a>96`a<100diz=10 *(a-97a):8880" "Ja>47/a<58:iz=a-480:21,13 ;"A":8910" " 8840" ",21,13 ;(a-32 );"?" "a= "5a>47/a<58:iz=iz+a-480:8910" " 8890" ".21,14;a-480:iz=iz+1 "%iz>287500L:8810j" ".1}L,22: '"DOMINE5Ao"5 ezezo  a gravali!xqyawz(ikdamazzrrom  NAS DVA AiWTzyodnx!SDPIKnnnxyznodB