Pontoon $$$YPontoon by K Hart from Sinclair User #10 (Jan'83) Blackjack, Twenty-One, Chemin de Fer. Call it what you will, we have an excellent listing for it. The display features a green baize table, the four suits in appropriate colours, and a neat pattern on the back of the cards. The program has an error trapping function, and tells you whether you have bust or won. You start with a stake of `1,000 and the chance to break the bank. 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 21 as"'"possible without going over 21."'"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 who's total"'"value is 21 or less."'" If you win with either of these"'"you are paid one and half times"'"your bet."   " In a tie the dealer wins!!!" "'''' ,st=1000 6a$(535,5) @ c=0 JGraphics C D F G T s$="" ^ is graphics H 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 0graphics I and 6 spaces :e$=" " Dgraphics B E B E B E B Nz=1e$="" X 7 b!i=08:v+i,h;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) nf=557f=568f=579f=151 v+1,h+2;f$;" ";f$;v+7,h+2;f$;" ";f$ bf=524f=535f=54 6v+2,h+2;f$;" ";f$;v+6,h+2;f$;" ";f$ Uf=151f=502f=51 3v+2,h+3;f$;v+6,h+3;f$ nf=568f=579f=58:f=151 v+3,h+2;f$;" ";f$;v+5,h+2;f$;" ";f$ -f=54 6v+4,h+2;f$;" ";f$ Gf=65 Af=513f=535f=579v+4,h+3;f$ Df=557v+3,h+3;f$;v+5,h+2;f$;" ";f$ jf=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;"";v+6,h+4;"" f=75Kv+3,h+2;" ";v+4,h+2;"";v+5,h+2;" " 4:0     210 ,10 ;7;1;"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) 1a$(c,12)=11  da=da+1  c=c+1  v=13  570: $p=p+a$(c,12) .1a$(c,12)=11  pa=pa+1 8 c=c+1 B(14,8;"Your stake is `";st 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$ betst 1250 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)  1a$(c,12)=11  da=da+1 $da=2d=12 :da=1  c=c+1 ( v=13 2 570: <p=p+a$(c,12) F1a$(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$="y"c$="N"c$="n")1420 "" 1440 C14,h+7;" ";15,h+9 ;" " c$="N"c$="n"1610J pc=pc+1  570: p=p+a$(c,12) 1a$(c,12)=11  pa=pa+1  c=c+1 #p<22pa01560 pa=pa-1 p=p-10  1520 p>211580, " 1390n ,.16,h+6;7;1;"BUST" 6 p=0 @ 1640h J514,h+7;7;"Stand on ";1;p TDpc515,h+6;7;1;"FIVE CARDS" ^Rp=21pc=215,h+6;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) 1a$(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)); ld=0;1;"BUST" 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  100d  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:7  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 A0,0,0,0,0,0,0,0 M170,85U,170,85U,170,85U,170,85U K0,568,568,16,214,254,214,16 $K0,16,568,124|,254,124|,568,16 .M170,170,85U,85U,170,170,85U,85U 8M0,108l,254,254,124|,124|,568,16 BL0,16,568,124|,254,254,214,16 LQ152,164,164,164,164,164,164,152 VQ128,128,128,128,128,128,128,128 `