Pontoon '%O'Pontoon by K. Hart 9 Modifications - Change in graphics for "10" - by Jimmy 4:7:0   z=0 ( 7 21,11 ;"PONTOON" <2,11 ;"" F x=1 P'' Z" The card values are:-" d'' n" ~A~ = 1 or 11" x!" The computer will always use" " the best value." '' "" ~10~-~J~-~Q~-~K~ are value 10" '' $" All other cards = their number." '' %("a"+3)02260 12;1;"Press any key to continue!!" a$=:a$=""210 23692\,42* '''''''''''''''''''' " The object of the game is to"'"hold two or more cards which"'"total 21 or as near as 21 as"'"possible without going over 21,"'"but at the same time scoring"'"more than the dealer."  " A natural (a ten card & an ace)"'"is the best hand, followed by"'"five or more cards whose total"'"value is 21 or less."'" If you win with either of these"'" you are paid one and a half times"'"your bet."   " In a tie the dealer wins!!!" "'''' ,st=1000 6a$(535,5) @ c=0 T s$="" h.d$="11A0220330440550660770880991010J10Q10K" rs=14 | a=2  s=1s=4a=0 n=113  c=c+1 0a$(c)=d$(n*3-2n*3)+s$(s)+a n:s r$=" DEALER " p$=" PLAYER " ;20,2;1;"Press any key to continue!!!"  4 =""480   ;3,6;7;"You are ";0;1;p$ ?6,4;7;"Computer is ";0;1;r$  800   & 930 :e$=" " Nz=1e$="" X 7 b*i=08:v+i,h;1;e$:i lz=1770 v$f=a$(c,3):f$=a$(c,4) ٰa$(c,5) 1v+1,h+1;f$;v+7,h+5;f$ Gv+2,h+1;a$(c,3);v+6,h+5;a$(c,3) mf=557f=568f=579f=151v+1,h+2;f$;" ";f$;v+7,h+2;f$;" ";f$ af=524f=535f=546v+2,h+2;f$;" ";f$;v+6,h+2;f$;" ";f$ Tf=151f=502f=513v+2,h+3;f$;v+6,h+3;f$ mf=568f=579f=58:f=151v+3,h+2;f$;" ";f$;v+5,h+2;f$;" ";f$ ,f=546v+4,h+2;f$;" ";f$ Ff=65Af=513f=535f=579v+4,h+3;f$ Df=557v+3,h+3;f$;v+5,h+2;f$;" ";f$ \f=74Jv+3,h+4;"";v+4,h+2;"";v+5,h+2;"" ^f=81Qv+3,h+2;"";v+4,h+2;"";v+5,h+2;"" ]f=75Kv+3,h+2;"";v+4,h+2;"";v+5,h+2;" " 4:0     )10 ,10 ;7;"SHUFFLING" *c=5352-1 4 .01z# =,c >"a=(524-(*8))-1 H"a$(c)=a$(a):a$(a)=a$(c-1) Rc \c=2535 f .02{# =,c pa$(c-1)=a$(c) zc  c=1  10 ,10 ;" "  c>40(790 9z=1:d=0:da=0:p=0:pa=0  7 *0,1;r$;12 ,1;p$  l$=a$(c) v=1:h=1  570:  z=0 d=d+a$(c,12) 0a$(c,12)=11 da=da+1  c=c+1  v=13  570: $p=p+a$(c,12) .0a$(c,12)=11 pa=pa+1 8 c=c+1 B(14,8;"Your stake is `";st Gst1000000t$2410j L-16,8;"Please enter your bet!!" Vb$:b$=""1110V `Y14,8;" ";16,8;" " ji=1̱b$ tb$(i)=46.1230 ~-b$(i)<480ůb$(i)>5791200 i  bet=b$ betst1250 R14,8;"You cannot bet more";16,8;"money than you have!" (.8L,-10 :.3,-30 Y14,8;" ";16,8;" "  1090B F14,8;"Whole pounds only";16,12 ;"PLEASE!!!"  1200 )11 ,11 ;"You have bet `";bet v=1:h=3  570: d=d+a$(c,12)  0a$(c,12)=11 da=da+1 $da=2d=12 :da=1  c=c+1 ( v=13 2 570: <p=p+a$(c,12) F0a$(c,12)=11 pa=pa+1 P$pa=2p=12 :pa=1 Z c=c+1 dpc=2:dc=2 n h=h+2 x#p=21pc=21610J U14,h+7;7;1;"Another card";15,h+9 ;"(Y or N)" c$= ,(c$="Y"c$="N"c$="y"c$="n")1420 ""1440 C14,h+7;" ";15,h+9 ;" " c$="n"c$="N"1610J pc=pc+1  570: p=p+a$(c,12) 0a$(c,12)=11 pa=pa+1  c=c+1 #p<22pa01560 pa=pa-1 p=p-10  1520 p>211580, " 1390n ,512 ,9 ;1;7;2;"BUST" 1 2500 6 p=0 @ 1640h J514,h+7;7;"Stand on ";1;p TDpc515,h+7;7;1;"FIVE CARDS" ^Rp=21pc=215,h+7;7;1;"** PONTOON **" h07:i=19 :i,1;" ":i rI3,2;ٰl$(5);l$(3);2,2;l$(4) |p=01850: #p=21pc=21850: v=1:h=3  h=h+2 #d<22da01740 da=da-1 d=d-10  1700 #dc5d>11 1850: d171850:  502 1+502*(dc=2)  7  570: d=d+a$(c,12) 0a$(c,12)=11 da=da+1  c=c+1 &dc=dc+1 0 1690 :d>21d=0 D7:0 Nh=dc*2 X"5,h+7;"Dealer has"; b$6,h+(11 -(d=0)); l)d=0;1;"BUST":2500 vd>0;1;d d=0dc=3 p=0pc=3 "d=21dc=2p=0 "pc=2p=21d=0 ,dc5d>0pc<5p=0 ,pc5p>0dc<5d=0 &pc5dc5dpp=0 Ndp0,9 ;1;"WINS":1,-10 :.3,-20 bp>d12 ,9 ;1;"WINS":f=030:.01z# =,f:.01z# =,f+10 :f dpst=st-bet d0st=st+(bet/2) ,pc=2p=21st=st+(bet/2) st=st  r=1150:r  4   *st>0930 4 7 >K8,4;"You have no money left";10 ,9 ;"so you lose" Hi=1502:i R^12 ,1;"Press any key for another game";14,6;"Press ~ENTER~ to stop" \v= fv=02140\ p 4 z v=13 2210 st=1000:x=x+1  930 1:1:9  X8,1;"Goodbye, it's been a pleasure";10 ,6;"taking your money" -12 ,8;"You lost `";x*1000 #.1}L,(*10 ):2250  f="a""i"+7 a f,a f R0,0,0,0,0,0,0,0: graphics trap \170,85U,170,85U,170,85U,170,85U: card back 1 S0,568,568,16,214,254,214,16: club $V0,16,568,124|,254,124|,568,16: diamond .\170,170,85U,85U,170,170,85U,85U: card back 2 8S0,546,127,127,127,62>,28,8: heart BU0,16,568,124|,254,254,214,16: spade LN0,76L,82R,82R,82R,82R,76L,0: ten V^128,128,128,128,128,128,128,128: card edge ` j?14,22;1;6;1;1;"`";st on=1502:n t,2430~ :f=18:g,h:g,h:f ~.1}L,11 ,.1}L,11 ,.8L,16,.05|L,11 ,.05|L,11 ,.05|L,11 ,.05|L,16,1,20 4010 n=1502:n 2:2:6: 1:1 V9 ,6;"YOU BROKE THE BANK!!";11 ,4;"YOU'RE A MILLIONAIRE!!!!" 0:0 :13 ,2;7;"BRING ON THE NEXT PLAYER!!!" 42430~ :f=18:g,h:g,h+3:f 4:4:0 300, e=.05|L:e,-20 0f=18:e,-14:e,-20:f  x$="....AAAAAAAAARGH...." Un=120:0,n+8;2;7;1;1;x$(n):n 7n=12 -12 -1:.01z# =,n*3:n  zxJa?_ 5022010J2099005520660088010Q010J00222055211A20332044206621020442077210K2088210Q210K211A2022203320882102077210Q20880066209920550022010J2066009901000440033010Q010J0033010K009920770044011A0055010011A010K0077007705\SD'11A0220330440550660770880991010J10Q10Kr R  DEALER P  PLAYER dp L0220v hjE FB3432f