b  C "":"" ob @BRISCOLA 1:11  120x N0,16,568,124|,254,254,214,16 K0,16,568,124|,254,124|,568,16 N 0,108l,254,254,124|,124|,568,16 #a=07:b:"p"+a,b:a #a=07:b:"q"+a,b:a #a=07:b:"c"+a,b:a #a=07:b:"f"+a,b:a K0,568,568,16,214,254,214,16 t=0:c=0 Q255,128,128,128,128,128,128,128 C0,0,0,0,0,0,0,255 C255,0,0,0,0,0,0,0 Q128,128,128,128,128,128,128,255 C255,1,1,1,1,1,1,1 1,1,1,1,1,1,1,255,128,128,128,128,128,128,128,128,1,1,1,1,1,1,1,1 #a=07:b:"i"+a,b:a #a=07:b:"e"+a,b:a #a=07:b:"a"+a,b:a #a=07:b:"s"+a,b:a #a=07:b:"r"+a,b:a #a=07:b:"d"+a,b:a #a=07:b:"t"+a,b:a #a=07:b:"g"+a,b:a  30  2 ]q$=17+7+"":w$=17+7+"":e$=17+7+" " (c0,1,2,3,6,7,8,9 ,4,5,10 ,11 )c0,1,2,3,6,7,8,9 ,4,5,10 ,11 *S0,1,2,3,6,7,8,9 ,10 ,11 +c0,1,6,2,3,7,8,9 ,4,5,10 ,11 ,c6,7,8,9 ,10 ,11 ,0,1,2,3,4,5 -c6,7,8,9 ,10 ,11 ,0,1,2,3,4,5 .c0,1,2,3,6,7,8,9 ,4,5,10 ,11 /c0,1,2,3,6,7,8,9 ,4,5,10 ,11 0c0,1,2,3,6,7,8,9 ,4,5,10 ,11 1c0,1,2,3,6,7,8,9 ,4,5,10 ,11 2c0,1,2,3,6,7,8,9 ,11 ,10 ,4,5 3c0,1,2,3,6,7,8,9 ,11 ,4,5,10 7pnp=0:pns=0 < c=3 O 5000 P&z=0:x=062 Q="o"+x,(15616=+(8*(s$(a,3)-32 ))+z) RE"o"+x+1,(15616=+(8*(s$(a,3)-32 ))+z) Sz=z+1:x Tx=172 UC"l"+x-1,(15616=+8*(s$(a,3)-32 )+z) V;"l"+x,(15616=+8*(s$(a,3)-32 )+z) Wz=z+1:x X Z&z=0:x=062 [="o"+x,(15616=+(8*(p$(a,3)-32 ))+z) \E"o"+x+1,(15616=+(8*(p$(a,3)-32 ))+z) ]z=z+1:x ^x=172 _C"l"+x-1,(15616=+8*(p$(a,3)-32 )+z) `;"l"+x,(15616=+8*(p$(a,3)-32 )+z) az=z+1:x b ep$(1)" "13 ,3;q$;;14,3;e$;15,3;e$;16,3;e$;17,3;e$;18,3;w$ np$(2)" "13 ,11 ;q$;14,11 ;e$;15,11 ;e$;16,11 ;e$;17,11 ;e$;18,11 ;w$ xp$(3)" "13 ,19;q$;14,19;e$;15,19;e$;16,19;e$;17,19;e$;18,19;w$ }a=13  90Z O14,4+(a-1)*8;8;p$(a)(2);p$(a)(4) ^8;15,5+(a-1)*8;"";16,5+(a-1)*8;"" Q8;17,6+(a-1)*8;p$(a)(2);p$(a)(4) a  z$=17+5+" " 13 ,3+(ca-1)*8;z$;;14,3+(ca-1)*8;z$;15,3+(ca-1)*8;z$;16,3+(ca-1)*8;z$;17,3+(ca-1)*8;z$;18,3+(ca-1)*8;z$ z4,4;q$;;5,4;e$;6,4;e$;7,4;e$;8,4;e$;9 ,4;w$ a=ca:90Z :5,5;7;p$(a)(2);p$(a)(4) 47;6,6;"";7,6;"" :8,7;7;p$(a)(2);p$(a)(4)   100d t=11000 ^20,0;"Per scegliere la carta premi <1>, <2> <3> ":0 $<491ů>513510 c$=:c$>1510 ca=c$  200  2000 #t=01000:3000 &  s(3) a=13 s$(a)=" "s(a)=-1 !s$(a,3)="A"s(a)=5 !s$(a,3)="F"s(a)=1 !s$(a,3)="D"s(a)=2 !s$(a,3)="R"s(a)=3 !s$(a,3)="3"s(a)=4 2s$(a,4)=a$(40(,4)s(a)=6 Ds$(a,4)=a$(40(,4)s$(a,3)="F"s(a)=7 Ds$(a,4)=a$(40(,4)s$(a,3)="D"s(a)=8 Ds$(a,4)=a$(40(,4)s$(a,3)="R"s(a)=9 Es$(a,4)=a$(40(,4)s$(a,3)="3"s(a)=10 Es$(a,4)=a$(40(,4)s$(a,3)="A"s(a)=10 a t=02000 !40(:a=111 :b 'd=13:s(d)=b1500 $d:a ܀4,14;q$;;5,14;e$;6,14;e$;7,14;e$;8,14;e$;9 ,14;w$ a=d:80P ;5,15;7;s$(a)(2);s$(a)(4) 67;6,16;"";7,16;"" ;8,17;7;s$(a)(2);s$(a)(4)   vg=0  p$(ca,3)="A"vg=5  p$(ca,3)="F"vg=1  p$(ca,3)="D"vg=2  p$(ca,3)="R"vg=3  p$(ca,3)="3"vg=4 1p$(ca,4)=a$(40(,4)vg=6 Dp$(ca,4)=a$(40(,4)p$(ca,3)="F"vg=7 Dp$(ca,4)=a$(40(,4)p$(ca,3)="D"vg=8 Dp$(ca,4)=a$(40(,4)p$(ca,3)="R"vg=9 Ep$(ca,4)=a$(40(,4)p$(ca,3)="3"vg=10 Ep$(ca,4)=a$(40(,4)p$(ca,3)="A"vg=11  (40(+vg) 1p$(ca,4)=a$(40(,4)3050 d=13 Ns$(d,4)=p$(ca,4)(s(d)>vgs(d)>3s(d)<6)1500 d a=112 :n d=13 s(d)=n1500 d a  :1;2;6,23;" T U O ":100d 54,0;" " 55,0;" " 56,0;" " 57,0;" " 58,0;" " 59 ,0;" "  t=0  :1;2;6,23;" M I O ":100d 54,0;" " 55,0;" " 56,0;" " 57,0;" " 58,0;" " 59 ,0;" "  t=1  2pnt=0:p$(ca,3)="F"pnt=pnt+2 %p$(ca,3)="D"pnt=pnt+3  %p$(ca,3)="R"pnt=pnt+4 &p$(ca,3)="A"pnt=pnt+11  &p$(ca,3)="3"pnt=pnt+10 *$s$(d,3)="F"pnt=pnt+2 4$s$(d,3)="D"pnt=pnt+3 >$s$(d,3)="R"pnt=pnt+4 H%s$(d,3)="3"pnt=pnt+10 R%s$(d,3)="A"pnt=pnt+11 \t=0pnp=pnp+pnt ft=1pns=pns+pnt p c=c+2:c=38&5,20;1;"Rimangono 2 ";6,20;"carte ancora":200:5,20;" ";6,20;" " c=46.7000X .t=1p$(ca)=a$(c):s$(d)=a$(c-1) .t=0p$(ca)=a$(c-1):s$(d)=a$(c)  5:2:9 : 9 ,7;"*******************";7;"* *";7;"* B R I S C O L A *";7;"* *";7;"*******************" <20,1;"Per cominciare premi un tasto":0 3::10 ,4;1;" ";11 ,4;" Attendi, sto mescolando";12 ,4;" " 1m(40():n=40(:i=1n:m(i)=i:i  Fi=n2-1:j=(*i)+1:t=m(i):m(i)=m(j):m(j)=t:i *a$(46.,4):a=140( Am(a)10 m(a)>30a$(a)(2)=16+0 Am(a)>10 m(a)30a$(a)(2)=16+2 a$(a)(3)=m(a) .m(a)>10 a$(a)(3)=a$(a)(4) Lm(a)=1m(a)=11 m(a)=21m(a)=31a$(a)(3)="A" Lm(a)=8m(a)=18m(a)=28m(a)=38&a$(a)(3)="F" Lm(a)=9 m(a)=19m(a)=29m(a)=39'a$(a)(3)="D" Mm(a)=10 m(a)=20m(a)=30m(a)=40(a$(a)(3)="R" #m(a)<11 a$(a)(4)="" 1m(a)<21m(a)>10 a$(a)(4)="" 1m(a)<31m(a)>20a$(a)(4)="" 1m(a)40(m(a)>30a$(a)(4)="" a +p$(3,4):s$(3,4): 8a=13:p$(a)=a$(a):s$(a)=a$(3+a):a ;5:1::0:6:0.5,0: t7;9 ;0,7;"BRISCOLA";" ";a$(40(,3);a$(40(,2)+a$(40(,4) &0,164:255,0 %0,80P:255,0 82,3;"- TU -";2,13 ;"- IO -" X20,0;"Premi <1> per giocare per primo altrimenti un altro tasto":0 ("1"t=1 -="1"t=0 F c=c+3 P 500 Z(6000p+500*t) n 4600 x 4800  5200P p2p$(ca,4)=s$(d,4)vg>s(d)4000 u2p$(ca,4)=s$(d,4)vg(s$(d,3))4000 7p$(ca,4)s$(d,4)s(d)<64000 %vg>5s(d)<64000 -vg>5s(d)>5vg>s(d)4000  4500 d2s$(d,4)=p$(ca,4)vgs(d)4000 nNs$(d,4)=p$(ca,4)(s$(d,3))>(p$(ca,3))4500 x5s$(d,4)p$(ca,4)vg<64500 %s(d)>5vg<64500  4000 X\:c$="tu":a=12:7080:4,3+a;"";5,3+a;"":a ]^c$="spectrum":a=1̱c$:7080:10 ,3+a;"";11 ,3+a;"":a bVc$=pnp:a=1̱c$:7080:4,7+a;"";5,7+a;"":a vZc$=pns:a=1̱c$:7080:10 ,13 +a;"";11 ,13 +a;"":a %"Un'altra partita ? o ",c$ c$(1)="s"26 ::10 ,5;"A R R I V E D E R C I":200: &z=0:x=062 5"o"+x,(15616=+(8*(c$(a)-32 ))+z) ="o"+x+1,(15616=+(8*(c$(a)-32 ))+z) z=z+1:x x=172 ;"l"+x-1,(15616=+8*(c$(a)-32 )+z) 3"l"+x,(15616=+8*(c$(a)-32 )+z) z=z+1:x  '"BRISCOLA"0 btcnnQWE