PONTOON //j/ 5"Desea instrucciones? (S/N)";z$:z$="s"3000 "236099\,30:1850: amt=500 (stake=10 :z$(1,8):s$(4):c(524):h(5,2):t(4):s$(1)="":s$(2)="":s$(3)="":s$(4)="" 2itme=100d:ace1=0:w=0:k=1:a=1:c=0:me=0:v=0:buy=0:bet=0:amt=amt-stake:n=0 <s=14 Fr=214 P n=n+1:c(n)=10 *r+s Zr:s dn=1524 nM:.003xD,-n+524:m=(*524)+1:t=c(m):c(m)=c(n):c(n)=t x.003xD,n:n n=0 4:2: on=084:7:2:0,0+n;"";0;"";2;"";0;"":n 1:7:"PONTOON"; xn=19274:7:2:0,n;"";0;"";2;"";0;"";:n:2;"" s7:1:2,11 ;"Su turno";15,2;"SU total ";v;15,19;"Credit `";amt 580D #ace1=0t23106 510:470 S T B 4:18,0;" ";7;2;18,7;"ENTER ";1;"Su turno ";4;" ";7;" s-Plant. t-Carta. b-Apuesta." $t=5me=21:1550 a$ !a$"s"a$"t"a$"b"250 a$="s"502:470 a$="b"340T "T ,t=t+1:600X @v>21410 J 220 T Yo compro ^N7:2:18,2;"ENTER";1;" Amount (Whole `'s)." h7:2:20,2;"UPTO ";2;" `";(((amt-bet-buy)*.1}L)+.5);4;" " rbuy1 |3buy>((amt-bet-buy)*.1}L)+.5370r buy=buy+buy1 502:290"  yo pierdo 20:z=140(:.05|L/(z/7),-z/7:1:13 ,2;7;2;"Ah!,lo siento te has pasado ":z:0 24:13 ,6;" " amt=(amt-(buy+bet)+.5) 77:1:15,27;amt;4;" "  502 S v15me=v:860\ j.5,-5:3:7:13 ,0;"No te puedes parar con menos de 15!!":75K K4:13 ,0;" ":220 Bet 7:2:18,1;"ENTER";1;" Puede apostar (Todo `'s)";20,2;2;"UPTO";1;" `";(amt*.1}L)+.5; 4:" " bet &)bet>(amt*.1}L)+.5540 0%ace1=1600X:1720 :#t=t+1:600X:220 D pick card N t=1 XFd=1:n=n+1:h(t,d)=c(n)*10 +t:temp=c(n):760 b 70F l 1780 vHr$(1)="j"r$(1)="q"r$(1)="k".1}L,r:650 %.1}L,r:1270+(r*20) r$(1)="j"1490 r$(1)="q"1510 r$(1)="k"1530 /itme=100d1:15,13 ;v itme100d7:1:15,2;"My total ";v;15,19;"pay ";19,2;"Amount bet `";bet+buy;19,19;"Credit `";amt ?itme100dv21itme100dt=5740 Litme100dv=20v+1;17,14;"Five card tricks" .itme100d15,23;v+1 itme100d750 7itme100d4:15,19;" "  ;r=(temp/10 ):s=temp-r*10 :r=r+1:r$=r r=15r$="ACE"  %r=15ace1=01680 $r=15ace1=1600X  r=14r$(1)="k" *r=13 r$(1)="q" 4r=12 r$(1)="j" >#r12 r<15r=11 Hr=r-1:v=v+r R \ zx deal f :4 ppz=084:7:2:0,0+z;"";0;"";2;"";0;"";:z z1:7:"PONTOON"; jz=19274:7:2:0,z;"";0;"";2;"";0;"";:z /7:2:2,12 ;"My hand" Hc=c+6:v=0:v1=0:itme=0:t=0:a=1 "t=5v211030 v<151000 v=211030 v>211100L 8odds=((v/((bet+buy)-(amt/5)))/502)+1 %odds<4v171010 odds41010 #t=t+1:600X:930 vmev=me+11030 v   itme=01580, Kr$(1)="A"t=1r=0:1290 :ace1=1:510 s7:2:18,0;"Ace dealt do you whant 1 or 11?";4;" " r  ace1=1v=v+r:680 'ace1=1ace1=0:220 &ace1=0.1}L,r:1290  v=v+r:680:200 COLOUR !s$(s)=""z=151:2 !s$(s)=""z=146:0 !s$(s)=""z=147:2 !s$(s)=""z=162:0 & 0 Graficos ::n=120:p$ Df=07 N a:p$+f,a Xf bn lH"h",0,0,546,62>,28,8,0,0 vH"d",0,0,8,28,62>,28,8,0 I"c",0,0,28,42*,62>,42*,8,0 H"s",0,0,8,28,62>,546,8,0 K"t",0,94^,82R,82R,82R,82R,94^,0 L"a",0,0,243,121y,63?,31,15,7 Q"b",0,0,231,231,255,255,255,255 Q"e",0,0,207,158,252,248,240,244 L"i",4,12 ,14,16,32 ,64@,84T,568 L"j",84T,85U,42*,21,10 ,10 ,10 ,5 R"k",160,80P,144,88X,164,172,162,86V I"l",8,4,24,16,16,15,1,2 I"m",5,5,5,29,98b,191,0,0 N"n",82R,86V,82R,82R,212,88X,232,4 L"f",0,0,240,121y,63?,31,15,7 P"g",0,0,195,231,255,60<,255,255  P"o",0,0,15,158,252,248,240,224 K"p",0,0,255,121y,480,16,9 ,7  P"q",0,0,255,231,195,195,231,25 *N"r",0,0,255,158,12 ,8,144,224 4 30 >"Pontoon"1 R"Si tu nunca has jugado al"'" pontoon ante este es un breve"'"resumen del mismo" +21,0;"All rights reserved " 4e3 w:"El juego empieza entregandote el SPECTRUM una carta a la que tu apostaras.Nunca puedes apostr mas de lo indicado," ?"La idea es acercarse todo lo posible a 21,pero sin pasarse." 4000: +"Valores:"'''"Reyes-reinas-Comodines= 10" =10 ,11 ;"Memoria libre:";65535-7962 =1;''"Pulsa cualquier tecla para empezar" 0:20 z10 ,1;1;"Porque no pulsas ya la tecla?";21,0;0;"All rights reserved ":0: sys64 ñ      ր!tN(# y===ȇݖW> ;  :\(2t0N 2u!@                                                                             *S\#####~:o8g}o:?oB ~????$~$>2*{\>O#(:= 2<O/>2*{\>O#(:=  2<O 4*{\~w#| :W>!݆OzW2> := 2W>!݆_8>@( _>  :2> := N K\*\F(K\*\NE*\_~{(F UN dV fF]R * 0020 = U>?2\66*\W}"2\62\66_:\{(:\_͓${ ?ð*\DO6͓$y› ?OÛ ֐K{\K6\ &o))) y=>! ON(6yU !~#:\8OF D'''' >N(07O0> _#= .>N(07O0> _#= %N ~G( #w6  6O ~w# >?*x\#"x\| 4@t"\"\"\ͿM>G^!"6\v>GV!<"6\u! "\"\"\>