ZXTape!ROULETTE <<<   1986 by Angelo Colombo  Q42255:"":"":18,5;"FERMA IL REGISTRATORE":200 's$=" " q236077\,166:23658j\,8:c(4):v(4):b$(4,8):s(4):1000 2 VISUALIZZA ROULETTE  7 :100d <$4:1:2:0 Arnd=*6:rim=37% F1:n=0(6+*rnd)(2*)/37%:d,g:k=g:11 +7*n,11 +7*n;"":rim=rim-1:rim=0100d:rim=37% Pn d35#,65280,9 ,65292 ,15,65326.,32 ,65280,2,65292 ,25,65326.,8,65280,0,65292 ,19,65326.,13 ,65280,23,65292 ,28,65326.,12 ,65280,6,65292 ,27,65326.,20,65280,3,65292 ,17,65326.,34",65280,4,65292 ,36$,65326.,10 ,65280,14,65292 ,22,65326.,16,65280,29,65292 ,5,65326.,11 ,65280,30,65292 ,24,65326.,7,65280,33!,65292 ,18,65326.,31,65280,1,65292 ,26,65326.,21,65280 O1:p$=d:yy=28:xs=2:ys=2:xx=196:9999' "`6:1:p$=" Adesso":xx=200:yy=120x:xs=1:ys=3:9999' ,9p$=" controllo":xx=176:yy=144:9999' 6>p$=" se avete vinto":xx=136:yy=168:9999' @200:6000p  INTRODUZIONE  /6:0:6:0:0: H5:p$="ROULETTE":xs=4:ys=4:yy=0:9998' <p$="GAME":xs=8:ys=4:yy=32 :9998' J6:20,0;"Inserire il numero dei giocatori(massimo 4)" q$:q$11022 'q$<491ůq$>5241022  ng=q$:b(ng,10 ) +20,0;s$;21,0;s$ On=1ng:20,0;"Inserire il nome del ";n;"'"'"giocatore":a$ a$<8a$=a$+s$  b$(n)=a$  "Sesso: (m/f) ";e$  )e$="f"e$="F"s(n)=1:1040  )e$="m"e$="M"s(n)=0:1040  1035  n +20,0;s$;21,0;s$ B INIZIO GIOCO  L$n=1ng:c(n)=500000t$:n N47260 On=1ng:v(n)=c(n):n P8n=1ng:t=110 :b(n,t)=0:t:n Q9n=1ng:np=1:47212l,n:47219s,np V27:1:5:0:65360P Xc(n)=01315# [lp$=b$(n,8):xx=176:xs=1:ys=2:yy=168:9999':20,22;c(n) ` a$=:e=a$ je=4912000 ke=5022200 le=5132400` me=5242600( ne=5462800 oe=5683000 pe=5793200 qe=4803400H re=81Q3600 se=87W3800 te=65A4000 ue=83S4200h ve=90Z44000 we=88X4600 xe=69E4800 ye=68D5000 ze=67C5100 e=32 1200  1120` Xb(n,1)=013 ,14;" NON HAI ANCORA ";14,14;" SCELTO NIENTE! ":1:150:13 ,14;s$(16);14,14;s$(16):1120 `:.;;,30:.17~.z,28:2:.17~.z,30:.1}L,28:2:.17~.z,33!:3:.25~,25 .2~L,30:.17~.z,28:2:.17~.z,30:.1}L,28:2:.17~.z,33!:3:.25~,25 #N ( 557  SCELTA NUMERO SINGOLO  Н11 ,13 ;"SCELTA N' SINGOLO";13 ,20;"0":156,60<:24,0:0,16:-24,0:0,-16 "15,16;"<- N | M ->" 647237,36$:47241,1:v=0 a$=:a$=""2030 !a$="N"v=v-1:2050 !a$="M"v=v+1:2050 a$=13 2060   2030 v<0v=0 v>36$v=36$ .13 ,20;" ";13 ,20;v  2030  247120,1:47121,v:47205e 7000X:5200P  SCELTA CAVALLO  11 ,14;" SCELTA CAVALLO";13 ,17;"0";13 ,24;"0":132,60<:24,0:0,16:-24,0:0,-16:188,60<:24,0:0,16:-24,0:0,-16 "15,16;"<- N | M ->" z=12 647237,18:47241,2:v=0 a$=:a$=""2230 !a$="N"v=v-1:2250 !a$="M"v=v+1:2250 a$=13 2260  2230 v<0v=0 v>36$v=36$ 6o=16+z^3:13 ,o;" ";13 ,o;v  2230 247120,2:47120+z,v:7000X jz=117,15;" SCEGLI IL 2' ":1:100d:17,15;s$(14) z 47205e:5200P _ SCELTA TRASV. PIENA  `11 ,13 ;"SCELTA TRASV. PIENA":236077\,60<:12 ,13 ;"inserire solo il 1'":236077\,166:14,22;"1" e172,524:24,0:0,16:-24,0:0,-16:16,17;"<- N | M ->" t647237,12 :47241,3:s=1 ~a$=:a$=""2430~ !a$="N"s=s-3:2450 !a$="M"s=s+3:2450 a$=13 2460 2430~ s<1s=1 s>34"s=34" .14,22;" ";14,22;s 2430~ q47120,3:h=13:v=s+h-1:47120+h,v:7000X:h:47205e:5200P ' SCELTA CARRE'  (11 ,16;"SCELTA CARRE'":236077\,60<:12 ,13 ;"inserire solo il 1'":236077\,166:14,22;"0" -172,524:24,0:0,16:-24,0:0,-16:16,17;"<- N | M ->" <547237,9 :47241,4:s=0 Fa$=:a$=""2630F P!a$="N"s=s-1:2650Z R!a$="M"s=s+1:2650Z Ua$=13 2660d W 2630F Zs<0s=0 \s>32 s=32 ^.14,22;" ";14,22;s ` 2630F drs=047120,4:h=03:v=h:47121+h,v:7000X:h:47205e:5200P n47120,4:v=s:47121,v:7000X:v=s+1:47122,v:7000X:v=s+3:47123,v:7000X:v=s+4:47124,v:7000X:47205e:5200P  SCELTA TRASV. SEMP.  11 ,12 ;"SCELTA TRASV. SEMPL.":236077\,60<:12 ,13 ;"inserire solo il 1'":236077\,166:14,22;"1" 172,524:24,0:0,16:-24,0:0,-16:16,17;"<- N | M ->" 547237,6:47241,6:s=1 a$=:a$=""2830 !a$="N"s=s-3:2850" !a$="M"s=s+3:2850" a$=13 2860,  2830 "s<1s=1 $s>31s=31 &.14,22;" ";14,22;s ( 2830 ,i47120,6:z=05:v=s+z:47121+z,v:7000X:z:47205e:5200P  SCELTA 1' COLONNA  Nz=22736X22740X:z,z+9 :z+32 ,(z+32 )+9 :z *47237,3:47241,8 !47120,12 :h=0 Iv=134"3:h=h+1:47120+h,v:7000X:v 47205e:5200P  SCELTA 2' COLONNA  Nz=22741X22745X:z,z+9 :z+32 ,(z+32 )+9 :z *47237,3:47241,9 !47120,12 :h=0 Iv=235#3:h=h+1:47120+h,v:7000X:v 47205e:5200P G SCELTA 3' COLONNA  HNz=22746X22750X:z,z+9 :z+32 ,(z+32 )+9 :z L+47237,3:47241,10 M!47120,12 :h=0 RIv=336$3:h=h+1:47120+h,v:7000X:v \47205e:5200P  SCELTA PASSE  Nz=22544X22550X:z,z+9 :z+32 ,(z+32 )+9 :z $t47237,2:47241,5:47120,18:v=118:47120+v,v:7000X:v .47205e:5200P  SCELTA MANQUE  Nz=22552X22558X:z,z+9 :z+32 ,(z+32 )+9 :z u47237,2:47241,5:47120,18:v=1936$:47102+v,v:7000X:v 47205e:5200P  SCELTA PAIR  Nz=22608PX22614VX:z,z+9 :z+32 ,(z+32 )+9 :z +47237,2:47241,11 !47120,18:h=0 Iv=236$2:h=h+1:47120+h,v:7000X:v 47205e:5200P g SCELTA IMPAIR  hNz=22616XX22622^X:z,z+9 :z+32 ,(z+32 )+9 :z r+47237,2:47241,12 w!47120,18:h=0 |Iv=135#2:h=h+1:47120+h,v:7000X:v 47205e:5200P / SCELTA ROSSI  01,21,9 ,32 ,25,19,23,12 ,27,3,34",36$,14,16,5,30,7,18 :Nz=22672X22678X:z,z+8:z+32 ,(z+32 )+8:z ?A47237,2:47241,13 :47120,18 DC44000:z=118:v:47120+z,v:7000X:z N47205e:5200P  SCELTA NERI  26,35#,15,2,8,13 ,28,6,20,17,4,10 ,22,29,11 ,24,33!,31 Nz=22680X22686X:z,z+8:z+32 ,(z+32 )+8:z A47237,2:47241,14:47120,18  C4600:z=118:v:47120+z,v:7000X:z 47205e:5200P  SCELTA PREMIERE  Uz=22570*X22762X32 :z,z+9 :z+1,(z+1)+9 :z u47237,3:47241,15:47120,12 :v=112 :47120+v,v:7000X:v 47205e:5200P  SCELTA MOYENNE  Uz=22826*Y23018Y32 :z,z+9 :z+1,(z+1)+9 :z v47237,3:47241,16:47120,12 :v=13 24:47108+v,v:7000X:v 47205e:5200P  SCELTA DERNIERE  Uz=23082*Z23274Z32 :z,z+9 :z+1,(z+1)+9 :z v47237,3:47241,17:47120,12 :v=2536$:47096+v,v:7000X:v 47205e:5200P O INPUT PUNTATA  P3z=10 16:z,12 ;s$(20):z UV13 ,14;" QUANTO PUNTI? ";19,22;s$(10 ):p=0 Za$=:a$=""5210Z d$a$="N"p=p-5000:5250 i$a$="M"p=p+5000:5250 n&a$=","p=p-100000CP:5250 s&a$="."p=p+100000CP:5250 xa$=13 5260 {a$="T"p=c(n):5265 } 5210Z p<0p=0 p>c(n)p=c(n) L7:19,22;s$(10 );19,22;p:5210Z p=05210Z 2b(n,np)=p:c(n)=c(n)-p:c(n)=01310 :20,22;s$(10 );20,22;c(n) 8np=np+1:47219s,np:np=11 1310 $13 ,14;s$(15): p CONTROLLO VINCITE  q/6:6:0:0:0: u8st=43520:u=1ng:v(u)=06050 vX1:p$=b$(u,8):xx=0:yy=0:xs=4:ys=3:9999' wR0:4,0;"avevi un capitale di `";4,32 -v(u);v(u) xM:"hai puntato `";s$(32 -(v(u)-c(u))-22);v(u)-c(u): z;n=st+900*(u-1)st+900*u-15 (n+1)=d8000@ n: ="adesso possiedi `";s$(32 -c(u)-22);c(u) c(u)=06500d ng=16245e 3#1;" schiaccia per continuare":0: u $Ic(1)+c(2)+c(3)+c(4)=0100d:2 8236077\,60<:1:7:p$="CLASSIFICA":yy=0:ys=2:xs=3:9998':236077\,166 B6:0 G yy=16 H#g(ng):n=1ng:g(n)=c(n):n LVa=1ng:punt=0:yy=yy+24:n=1ng:g(n)>puntmx=n:punt=g(n) Vn Xg(mx)=06237] Yc(mx)>8xs=1:ys=2:xx=0:g(mx)=0:p$=b$(mx,8):9999':xx=64@:xs=2:p$=s$(12 -c(mx))+c(mx):9999':6237] [og(mx)=0:ys=2:xs=2:xx=0:p$=b$(mx,8)+s$(8-c(mx))+c(mx):9998' ]a ^7zr=0:h=1ng:c(h)=0zr=zr+1 _h `)o$="Brava ":s(mx)=0o$="Bravo " bYzr=ng-1yy=80P:xs=1:p$=o$+b$(mx,8)+" hai vinto!":9998' ex236077\,60<:#1;" SCHIACCIA SPACE PER CONTINUARE O 'R' PER COMINCIARE DACCAPO":236077\,166 a$= a$=" ":1102N a$="R"2  6310 d"o$="ta ":s(u)=0o$="to " ixx=0:yy=90Z:xs=1:ys=2:2:p$=b$(u,8)+", mi dispiace sei ridot-":9999':yy=108l:p$=o$+"sul lastrico; non puoi piu'":9999':yy=126~:p$="giocare!!":9998':0: X VISUALIZZA NUMERI  b547145),v:K=47140$:.06|u\,35#: ?  VISUALIZZA VINCITE  @"vinci con "; J+85004!:l=1̾(n+3):a$:l OHa$:x=(n+2)*b(u,(n+4)):s$(32 -x-2);"` ";x Tc(u)=c(u)+x: !4 "un numero singolo","un cavallo","una trasv. piena","un carre'","il passe","una trasv semplice","il manque","la 1' colonna","la 2' colonna","la 3' colonna","i pari","i dispari","i rossi","i neri","la premiere","la moyenne","la derniere" '  ' a:"roulette"1:"roulette "47140$,18244DG:"roulette "42256,1264 ''xx=(256-8*xs*p$)/2 'i=23306 [:i,xx:i+1,yy:i+2,xs:i+3,ys:i+4,8:i=i+4:w=p$:k=1w:i+k,p$(k):k:i+w+1,255:w=42256: ROU1 ![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[2[: [G: [2 [*[2[: [G: [2[: [Oʹ:[<2[ :[<2[ :[@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!xO F![F(// Pff$~$$~$~|BH$J(*Dz0000 (|(~~0~~ 0`||8X~|||| ff>p0<222< <0&&&`xddd8<8X0p02484r8<VVVVffffFFF>v```<`<|< fffff<FF,,|F,4bfff><~F 2~ 0 0 0f 8000 :X 2X2X@   ~ w#w!'Z#:G:lw#w> #w>#w:s#w#!6|~@B~JRB@B|~| 10x@?0 x@BBB@BBFJB@@ @B@BD q!C!<<xÀ  @B<<~BBB<<~# >B@B>B/ O#<(F(((B<< @ N@?> >7`J<< @ .>@   ?@ ~8R<< @|<<<~B>B|<>|    |8Àb@<BB@@@fBbBB@$ fBBB@|?8>@><>>>~<>BB<<|ZBRBB|}$ ZBBB q(8p>0< ?>8>8x>8<~x<~< <<<<<<<<<>x(B((@?x(@((B 1(BBFB(BBBBB|p (||<1BJ (|x<HBB1><>><w><>><9><~<~>~~~<~<<q9<~<<<~<<<<<<|BB<<<<|><@~<<<<<q<ǿ|~<<~<<B@B@BBBBBBFBBbBBBBBB@@B(BBBBB"(D!B@BB@B@||<B JBBRBBq@BBB@|   @"D!B| ( | |<R|BJ~~9@~|~@@<N"!|@HB@B@B@@B@Bb@BFBBBB@B@@BB@BBB"(D!D@B~BBBB~<~<~~<~<<<@B~~<><~<<?|$???$A?~c?????$@??~?>??s???{$>??kkx??8@q??|??p?qH?@??q?|?`?~?? ?|?O?????? pC???P`a C1??@A?R ?C@??`???R1/(??<?????P">q d???c????? ~q$?????????? n҉#????sv ?"1 ?]?Q?F9Ћs0??Y??fysw;???N!q#&?? PP xPPxxPPxPP PPxPPPPPPxPPx xPPPPPPPPPPPPxPP PxxPPPPPPPPPPPPPPx PPPPPPPPPPPPPPPPPxxP xxPPPPPPPPPPPPPPPPPPP PPPPPPPPPPPPPPPPPPPPPP PPPPPPPPPUUUPPPPPPPxxx xPPPPPPPUUUUUPPPPPPPPP xxPPPPPPUUUUUUPPPPPPPP PPPPPPPPUUUUUUPPPPPPxx PPPPPPPPUUUUUUPPPPPPPP xxPPPPPPUUUUUPPPPPPPPP PPPPPPPPPPUUPPPPPPPPPP PPPPPPPPPPPP`PPPPPPxx xxPPPPPPPPPb`PPPPPPP xPPPPPPPPPPb`PPPPPP PPPPPPPPPPb``PPPx PxPPPPPPPP``xPP xPPxPPxPP``xx PxPPxxP`` P ?p?qH|?@??q{?|x?`x?~??> ??|?O?????|?~ >p@???P~`a |@1??@?x@?R ?C@???`???R?1/(<??<??p<?q?H>?@??q<?|>?`?~??x ?>|?O??????x p@???P`ax @1??x@@?R ?<C@??`???R1</(|??<?!@!@!H!P!@!H!P!@~BB<~~<a