ZXTape! 0Created with Ramsoft MakeTZXPOKER ;;`) =723613=\,0:1:1:1::"" #P O K E R @:<@<B<<B@BBDbB88B88B@BBBR@||B||~@B~BJN~B@BBDFBB|| B~B<B88 BBBP $$$0<ll<8 $$$0 $$$0 $$$0B $$$0 $$$0 $$$0B8 BBBP BBBP BBBPB BBBP BBBP BBBPB ~ | |~ B | |B BBBP BBBP BBBPB BBBP8 BBBP BBBP8B $$$0 $$$0 $$$0 $$$0 $$$0<8|<D~|B<<<BB< 8BBH@B(BBBB(f@88BBp|BB< BZBB*BD@BD@DBB$DBBD@<B~BB><<<:B<8 <88888888888888888888:::::88888:::::88888:::::88888::::::::::::::::::::::::::::::::::::::::88888 :::::88888:::::88888:::::88888888888888800000000000888887>!\FV # # <@T8]]\\\]\*],]]64]E]E]\ar}X![!@P!!88W K SR PG23713=\,0:"POKER"16384@,8496:23830[ "F0#11# <@T 8ҙ\\\ҙ\әؙF\R"X![!@P!!88 #W K SR PF23613=\,0:"POKER"23500[,329I:23500[ %23613=\,0:inizio=0 23613=\,0::dial=1200:clear=1410:double=1560:pause=1780:f=0:k(2,5):q$=" " >2240:23613=\,0:1:1:7: ("nc=524:c(2,524) 2's=14:v=113 <%c(1,(s-1)*13 +v)=v F%c(2,(s-1)*13 +v)=s Pv:s Zq(7):q(1)=500:q(2)=100d:q(3)=40(:q(4)=25:q(5)=10 :q(6)=5:q(7)=3 d23613=\,0: n(21;2;0;" Credit " x" Scala reale 500 " " Poker 100 " " Colore 40 ":4:180,164:42*,0:0,-18:-42*,0:0,18:7 " Full 25 " 4" Scala 10 ";3;0;" Bet " " Tris 5 " " Doppia coppia 3 " h4:4,171:136,0:0,-62>:-136,0:0,62> 7 .';5;"_______________________________" G6;0;10 ,0;" 1 2 3 4 5 " '#1;15;" 1983 V&M Soft." T23613=\,0:2,23+(f<1000)+(f<100d)+(f<10 );f nc=524 ,f=01810:23613=\,0 /f>9000(#2080 :23613=\,0 2p=15:clear:23613=\,0:p "Z21,0;q$;20,0;q$;21,0;"  Punta " ,punt=0 6[23613=\,0: 7,24;punt;" ":punt=f390:23613=\,0 @B23613=\,0:d$=:d$=""320@:23613=\,0 J(d$="0"400:23613=\,0 T)d$="R"2140\:23613=\,0 ^jd$="7"punt=punt+1:d$="7"390:23613=\,0:d$=""320@:23613=\,0 hpd$=11 punt=punt+10 :d$=11 380|:23613=\,0:320@:23613=\,0 r 320@ |a23613=\,0:(f/punt)1punt=f:(f/punt)1390:23613=\,0 w23613=\,0:.01z# =,7:.008zn,4:.01z# =,9 :puntf3106:23613=\,0 C23613=\,0:punt=0320@:23613=\,0  7,24;punt;" " 21,0;q$  f=f-punt X2,23;" ";2,23+(f<1000)+(f<100d)+(f<10 );f 1p=15:dial:p:23613=\,0 521,0;"Quali carte cambi ? (1-5) "  m(5) 23613=\,0:a$= >a$480(a$<"1"a$>"5")480:23613=\,0 .a$=480540:23613=\,0 5p=a$:m(p)=0530:23613=\,0 O1310:23613=\,0:m(p)=0:480:23613=\,0 u23613=\,0:m(p)=1:clear:23613=\,0:a=05:a:480:23613=\,0 +23613=\,0:21,0;q$ &(="R"2140\:23613=\,0 0p=15 :.m(p)=0590N:23613=\,0 Ddial:23613=\,0 N23613=\,0:p XCALCOLO GIOCO OTTENUTO b---------------------- lOrdinamento valore v---------------------- u1=0:u2=0  23613=\,0:k=0 i=14 Ck(1,i)k(1,i+1)720:23613=\,0  k=1 cm=k(1,i) #k(1,i)=k(1,i+1) k(1,i+1)=cm 23613=\,0:i +k=1650:23613=\,0 ---------------------- Controllo colore ---------------------- col=(k(2,1)=k(2,2)k(2,2)=k(2,3)k(2,3)=k(2,4)k(2,4)=k(2,5))  ---------------------- Controllo scala  ---------------------- *scala=1 4k(1,1)+1k(1,2)k(1,2)+1k(1,3)k(1,3)+1k(1,4)k(1,4)+1k(1,5)scala=0 >>k(1,5)=13 1510:23613=\,0 H,scalacol1010:23613=\,0 R---------------------- \Controllo Poker, fTris o coppie. p---------------------- zu1=0:u2=0  ch=0 i=14 Ck(1,i)k(1,i+1)960:23613=\,0 u1=u1+(ch=0) u2=u2+(ch=1)  970:23613=\,0 $23613=\,0:ch=u10 23613=\,0:i  vn=0 #u1=1u2=1vn=7 #u1=2u2=0vn=6 (23613=\,0:scalavn=5 =(u1=2u2=1)(u1=1u2=2)vn=4 colvn=3 u1=3vn=2 scalacolvn=1 $-vn01090B:23613=\,0 ..75@,-25 8n21,0;"Mi dispiace, non hai niente.":pause:23613=\,0:240:23613=\,0 Bg23613=\,0:a=03:.02{# =,20:.02{# =,25:.02{# =,20:a L;1;2;1;vn,1;" " Vpause:23613=\,0 `Idouble:23613=\,0:ir=0100d:23613=\,0 jGir=11;0;1;vn,1;" " tUw=71-1:.02{# =,4:ir=2w:.02{# =,11 :w ~sp=ir*q(vn)*punt:0;21,0;0;" Vinci ";sp;"$ ":agg=1:sp>250agg=10 :sp>1000ir=2 ir=2f=f+sp ir=1dif=(sp/agg-(sp/agg))*10 :f=f+dif:ir=1a=1sp/agg:.003xD,28:.003xD,35#:f=f+agg:2,23+(f<1000)+(f<100d)+(f<10 );f:a Hpause:23613=\,0:ir=2100d:23613=\,0  240:23613=\,0 #23613=\,0: Dial  j=(*nc)+1 k(1,p)=c(1,j) k(2,p)=c(2,j) c=c(1,nc) c(1,nc)=c(1,j) c(1,j)=c c=c(2,nc) c(2,nc)=c(2,j)  c(2,j)=c nc=nc-1 H23613=\,0:7:0:col=(p-1)*6+1 (?a$="":k(2,p)>21340<:23613=\,0 2/2:a$="":k(2,p)=1a$="" <323613=\,0:k(2,p)=3a$="" F9(1930+k(1,p)*10 ):23613=\,0 POa=06:12 +a,col;s$(5*a+15*a+5):a Z 1;19,col;"" d1:7 n.01z# =,p*2.5 x:23613=\,0 $23613=\,0: Clear  2:7 !col=(p-1)*6+1 12 ,col;"" 13 ,col;"";14,col;"";15,col;"";16,col;"";17,col;"";18,col;"" 1:2 19,col;"" ".01z# =,p:.01z# =,p*3 1:7 :23613=\,0 (23613=\,0:i=14 'k(1,i)i:23613=\,0 i scala=1 :23613=\,0 .23613=\,0: Raddoppio posta  "B21,2;1;" Prendi o Raddoppi ?";:0 ,=23613=\,0:="6"1630^:23613=\,0 6(="0"1610J:23613=\,0 @!1580,:23613=\,0 J223613=\,0:Ritorno senza raddoppio T#ir=1::23613=\,0 ^(23613=\,0: Raddoppio  h:#1;15;" 1983 V&M Soft.":x=2:p=1:clear:23613=\,0:5,3;"Pensi"'" che questa carta"'"sia maggiore "'" o minore di 7 ?" r=23613=\,0:="8"1680:23613=\,0 |(="9"1690:23613=\,0 !1650r:23613=\,0 `23613=\,0:11 ,15;"Maggiore":x=1:1700:23613=\,0 =23613=\,0:11 ,15;"Minore":x=0 <23613=\,0:ir=0:dial:23613=\,0 -vcg=k(1,p):vcg=13 vcg=1 xvcg>6ir=2 xvcg<6ir=2 Gir=0"Mi dispiace, hai perso":ir=0.75@,-25 #ir=2:23613=\,0 pause:23613=\,0 :23613=\,0 (23613=\,0: Pause  a=175K:a :23613=\,0 *23613=\,0: Perdita   &c'''" Sei proprio sfortunato,"''" hai perso tutto."'''" Forse ti conviene "''" cambiare gioco !" 0x=.5:y=x/3 : 0 Dx,0:y+y,0:y,0:x,0:y+y,3:y,2:y+y,2:y,0:y+y,0:y,-1:x+x,0 N 1 X23613=\,0:17,4;" Premi '0' per smettere ";18,4;" Un altro tasto per ";19,4;" ricominciare " bB23613=\,0:"0"Ʀ""1920:23613=\,0 l="0"0 v!1890b:23613=\,0 D23613=\,0:inizio=1:20:23613=\,0 -23613=\,0: Costruz. carte  23613=\,0:s$="2"+q$(14)+a$+q$(16)+a$+q$(114)+a$+q$(17)::23613=\,0 23613=\,0:s$="3"+q$(14)+a$+q$(1)+a$+q$(19 )+a$+q$(19 )+a$+q$(17)::23613=\,0 23613=\,0:s$="4"+q$(14)+a$+q$(15)+a$+q$(1)+a$+q$(112 )+a$+q$(1)+a$+q$(16)::23613=\,0 23613=\,0:s$="5"+q$(14)+a$+a$+q$(1)+a$+q$(18)+a$+q$(18)+a$+q$(1)+a$+q$(16)::23613=\,0 23613=\,0:s$="6"+q$(14)+a$+a$+q$(1)+a$+q$(17)+a$+q$(1)+a$+q$(17)+a$+q$(1)+a$+q$(16)::23613=\,0 23613=\,0:s$="7"+q$(14)+a$+a$+q$(1)+a$+q$(13)+a$+q$(13)+a$+q$(1)+a$+q$(17)+a$+q$(1)+a$+q$(16)::23613=\,0 23613=\,0:s$="8"+q$(14)+a$+a$+q$(1)+a$+q$(13)+a$+q$(13)+a$+q$(1)+a$+q$(13)+a$+q$(13)+a$+q$(1)+a$+q$(16)::23613=\,0 23613=\,0:s$="9"+q$(14)+a$+a$+q$(1)+a$+q$(13)+a$+q$(13)+a$+q$(1)+a$+q$(12)+a$+q$(1)+a$+q$(17)+a$+q$(1)+a$+q$(1)::23613=\,0  23613=\,0:s$=""+q$(14)+a$+a$+q$(1)+a$+q$(13)+a$+q$(13)+a$+q$(1)+a$+q$(12)+a$+q$(1)+a$+q$(13)+a$+q$(13)+a$+q$(1)+a$+q$(1)::23613=\,0 [23613=\,0:s$="J "+a$+" "::23613=\,0 `23613=\,0:s$="Q "+a$+" "::23613=\,0 [23613=\,0:s$="K "+a$+" "::23613=\,0  `23613=\,0:s$="A "+a$+" "+a$+" "::23613=\,0 :23613=\,0  )23613=\,0: Fine gioco  * 4B5,0;"Sei proprio fortunato"'" mi conviene smettere" >"Hai finito con ";f;"$." H!1880X:23613=\,0 \,23613=\,0: Reset vincite  fa=035#:a p620,0;"Vuoi resettare le vincite? (s/n)" z21,0;q$ <23613=\,0:=""2180:23613=\,0 ("s"2220:23613=\,0 (="s"2230:23613=\,0 !2180:23613=\,0 ~23613=\,0:20,0;q$:21,0;" ";6;0;" Punta "::23613=\,0 s23613=\,0:0;19,0;:2380L :23613=\,0:100d:23613=\,0 *23613=\,0: Istruzioni  &1:5:5:0: -6;" POKER V 3.1  1983 V&M Soft. " '" Tasti Funzione" >';1;7;" 1-5 ";5;"......Selezione carta" ?';1;7;" 6 ";5;"......Scelta raddoppio" ';1;7;" 7 ";5;"......Aumento posta di 1"'';1;7;" Sh.7 ";5;".....Aumento posta di 10" B';1;7;" 8 ";5;"......Carta maggiore di 7" @';1;7;" 9 ";5;"......Carta minore di 7" s';1;7;" 0 ";5;"......Gioco "'';1;7;" Sh.R ";5;".....Reset vincite" )inizio2370B :23613=\,0 $:a=0111o:z:23613=\,0:"a"+a,z:a .23613=\,0:0,16,568,124|,254,254,214,16,0,16,568,124|,254,124|,568,16,0,108l,254,254,124|,124|,568,16,0,568,568,16,214,254,214,16,0,76L,82R,82R,82R,82R,76L,0 823613=\,0:0,0,0,0,15,9 ,10 ,12 ,0,0,0,0,255,129,66B,36$,0,0,0,0,240,144,80P,480,8,8,12 ,10 ,9 ,9 ,10 ,12 ,24,24,36$,66B,129,129,66B,36$,16,16,480,80P,144,144,80P,480,16,16,480,80P,144,144,80P,240,24,24,36$,66B,129,129,66B,255,8,8,12 ,10 ,9 ,9 ,10 ,15 Bx23613=\,0:.05|L,15:.05|L,10 :.05|L,15:.05|L,10 :.08}# =,8 L:23613=\,0:'" Con quanto vuoi iniziare ? " V!10 ;"(Max 50 ; F = Fine)" `23613=\,0:j$="" j?23613=\,0::=""2410j :23613=\,0 tt$= ~)t$="f"2480 :23613=\,0 0t$<"0"t$>"9"2410j :23613=\,0 9.05|L,10 :.05|L,12 :j$=j$+t$:f=j$ j$>2j$=""f>502f=021,5;" ":j$>2j$=""f>502f=02400` :23613=\,0 21,5;j$ H23613=\,0:t$="f"f02500 :23613=\,0 -f<5132410j :23613=\,0 ,23613=\,0::23613=\,0 X23613=\,0:" NO!"23552\,18140F:10 :23613=\,0 3000  NO! F\\F G[[G3500[,329I:23500[ [ ,