pontoon 55J5PONTOON  Keith Berry 1983 3c$=" ":4000 4:7  p$=" " l=100d :4:7 'z=0:p=z:pb=z:k=z:1000 ;7;i;x,y;"A " ;7;i;x+1,y;l$ #;7;i;x+2,y;" " #;7;i;x+3,y;" " #;7;i;x+4,y;" " ;7;i;x+5,y;p$ ;7;i;x+6,y;r$ .;7;i;x+7,y;" ":600X (;7;i;x,y;"2 " );7;i;x+1,y;p$ *;7;i;x+2,y;s$ +;7;i;x+3,y;p$ ,;7;i;x+4,y;p$ -;7;i;x+5,y;s$ .;7;i;x+6,y;p$ /%;7;i;x+7,y;" ": <;7;i;x,y;"3 " =;7;i;x+1,y;s$ >;7;i;x+2,y;p$ ?;7;i;x+3,y;s$ @;7;i;x+4,y;p$ A;7;i;x+5,y;s$ B;7;i;x+6,y;p$ C%;7;i;x+7,y;" ": P;7;i;x,y;"4 " Q;7;i;x+1,y;p$ R;7;i;x+2,y;d$ S;7;i;x+3,y;p$ T;7;i;x+4,y;p$ U;7;i;x+5,y;d$ V;7;i;x+6,y;p$ W%;7;i;x+7,y;" ": d;7;i;x,y;"5 " e;7;i;x+1,y;d$ f;7;i;x+2,y;p$ g;7;i;x+3,y;s$ h;7;i;x+4,y;p$ i;7;i;x+5,y;d$ j;7;i;x+6,y;p$ k%;7;i;x+7,y;" ": x;7;i;x,y;"6 " y;7;i;x+1,y;d$ z;7;i;x+2,y;p$ {;7;i;x+3,y;d$ |;7;i;x+4,y;p$ };7;i;x+5,y;d$ ~;7;i;x+6,y;p$ %;7;i;x+7,y;" 9": ;7;i;x,y;"7 " ;7;i;x+1,y;d$ ;7;i;x+2,y;p$ ;7;i;x+3,y;d$ ;7;i;x+4,y;s$ ;7;i;x+5,y;d$ ;7;i;x+6,y;p$ %;7;i;x+7,y;" ": ;7;i;x,y;"8 " ;7;i;x+1,y;p$ ;7;i;x+2,y;d$ ;7;i;x+3,y;d$ ;7;i;x+4,y;d$ ;7;i;x+5,y;d$ ;7;i;x+6,y;p$ %;7;i;x+7,y;" ": ;7;i;x,y;"9 " ;7;i;x+1,y;d$ ;7;i;x+2,y;d$ ;7;i;x+3,y;s$ ;7;i;x+4,y;d$ ;7;i;x+5,y;d$ ;7;i;x+6,y;p$ %;7;i;x+7,y;" 6": ;7;i;x,y;"1O " ;7;i;x+1,y;d$ ;7;i;x+2,y;s$ ;7;i;x+3,y;d$ ;7;i;x+4,y;d$ ;7;i;x+5,y;s$ ;7;i;x+6,y;d$ %;7;i;x+7,y;" O": ;7;i;x,y;"J " ;7;i;x+1,y;l$ #;7;i;x+2,y;" " #;7;i;x+3,y;" " #;7;i;x+4,y;" " #;7;i;x+5,y;" " ;7;i;x+6,y;r$ %;7;i;x+7,y;" ": ;7;i;x,y;"Q " ;7;i;x+1,y;l$ #;7;i;x+2,y;" " #;7;i;x+3,y;" " #;7;i;x+4,y;" " #;7;i;x+5,y;" " ;7;i;x+6,y;R$ %;7;i;x+7,y;" ": ;7;i;x,y;"K " ;7;i;x+1,y;L$ #;7;i;x+2,y;" " #;7;i;x+3,y;" " #;7;i;x+4,y;" "  #;7;i;x+5,y;" "  ;7;i;x+6,y;R$  %;7;i;x+7,y;" ": 6=l$=" ":r$=" ":d$=" ":s$=" ":i=2: @=l$=" ":r$=" ":d$=" ":s$=" ":i=2: J=l$=" ":r$=" ":d$=" ":s$=" ":i=0: T=l$=" ":r$=" ":d$=" ":s$=" ":i=0:  y=1  x=2 g=c*20 g ;Q;X+4,Y+5;" "  y=y+6 N$="N"N$="n" .2~L,C-5  H;7;10 ,5;" OVERDRAWN-BID AGAIN ":.5,15 "600X:;10 ,0;C$ & 1119_ 0R;1;16,0;" OVERDRAWN-BID AGAIN! ":1,12 :+200:;0;16,0;C$ DBN=BN-5:1180 X z=z+1 ba=a+10 v t=t-10  z=z-1  d=d-10  z=z-1  c=(*13 )+1 a=c .s=(*4)+1:s*10 +300, a>10 a=10  .Q=1: 7:Q:0:700:  400 f=14  700  440  f  7d$="":d=130 n17,2;d$:18,2;d$:19,2;d$:20,2;d$:21,2;d$ 418,2;" YOU HAVE BEEN WIPED OUT! " 320,2;" PRESS 'P' TO PLAY AGAIN "  F$=:F$="P"f$="p":3 .1}L,10 :D 'P=1721:P,0;C$:P S17,3;"THANKS FOR PLAYING ANYWAY!":w=1100d:w:0:  $P=12 20:P,0;C$ *P:  800  20,0;C$ J14,3;"YOU HAVE BUST WITH ";T:'" AND HAVE LOST `";B;"!" :::L=L-B:9000(#  1440 %T=0:D=T:J=T:A=T:Q=4 6:Q:0 6:11 ,1;"" /12 ,1;"YOUR CREDIT STANDS AT `"; L<10 " "; L<100d" "; L<1000" "; L<10000'" "; L;"" 413 ,1;"" $.L<1w=1100d:w:770 GH0,5;" Y O U R C A R D S:":" " L 700 N#C=1C>10 P=P+1 Q E=1 V 400 XT=T+A:BN=6 _:;7;1;6,8;"ENTER YOUR STAKE:`" `B$ aB$=""1120` cB$="0"B=0:1130j dB$>""1127g e 1120` gMB=B$:;0;0;6,13 ;" YOUR STAKE:`":B>L530 j6,26;B;"." o 700 q#c=1c>10 p=p+1 t e=e+1 y 420 ~t=t+a #t=21e=2p=p+1 !t22z=0900 !z1t22640 e=51470 H;7;18,1;"WISH TO STICK, TWIST OR BUY?" A$= A$="B"A$="b"1235 (T13 (a$="S"a$="s")1300 a$="S"a$="s"1600@ a$="T"a$="t"1135o k>01230  1190 a$ k=1:1200 bn=bn+5 p=110 :p ,;7;16,0;" BUY FOR:`"; H$ H$="0"1255 H$"0"H$>""1257 16,BN;"?"  1240 H=H$ (H+B)>L5600 16,BN;H;"." B=B+H 6,26;B;"."  1135o S;7;15,0;"IT IS ILLEGAL TO STICK BELOW 14!":.5,-8  3000 #15,0;C$ 2 1170 x15,0;C$ y514,2;"THE BANK HAS BUST...WITH ";D;"." }:" (YOU HAD ";T;")." !'" ...YOU HAVE WON `";B;"!" L=L+B:9100# s23659k\,1:23689\,1:;7;0;22,2;" Press any key to Continue: " 10 :0 +23659k\,2:23689\,24  10  800  w14,1;"YOU HAVE WON WITH A FIVE-CARD TRICK, TOTALLING ";T;".":" A DOUBLE-STAKE WIN OF `";B*2;"!"  2000 !L=L+B+B:9100#:1440  800  i14,1;"THE BANK HAS A FIVE-CARD TRICK TOTALLING ";D;"."::" THE BANK HAS WON `";B;"!"  2000  1720 @s1:Q=5:Q:0::0,5;"B A N K' S C A R D S:":5;"" LB12 ,11 ;"YOU STICK.":13 ,11 ;"" Oy=1:Z=0 ^ 700 `%C=1C>10 PB=PB+1 c 420 eJ=J+1:D=D+A j!Z>0D>21670 mD>211400x rJ=51500 w-PB>1J=2D=211700 |D<141630^ D=141750 D=151760 +16,2;"THE BANK HAS ";D;"; "; %D20"PAY ON ";D+1;"." 6P=3E=2T=21J<51770  1800 1:M=15 U14,4;" 21 P O N T O O N 21 ":b=14:.1}L,4:b 0M:0::7;"YOU HAVE LOST `";B;"!" L=L-B:9000(#   1440 >.51630^  <.25~1630^   C"YOUR ";1;"21 PONTOON 21";0;" WINS YOU `";B;"!"  1420 1:T=D" YOU ALSO HAVE ";T;" AND LOSE `";B;"!" /Td" YOU HAD ";T;" AND HAVE WON `";B;"!":1420 i=15 &C=07:C:.01z# =,C:C i: u:7:1:1:," 1983 K.Berry.":2,8;"P O N T O O N":3,8;"" 0'" VERSION:"'" ZX81 16k"''" Atari 4OO/8OO 32k" 4;2;1;7,1;"Spectrum 48k" @;1;15,0;" Do you want instructions-(Y/N)?" Qa$=:a$="n"a$="N"''" Please wait 5 seconds...":N$="y":7000X a$=""4020 ?:0,6;"P O N T O O N !":" " D"This is an On-Screen version ofthe popular card game, in which" D"you compete with the Dealer (inthis case, the Spectrum) to take" >"cards until their values add upto, but do not exceed, 21." d"You have to make a wager uponsight of the first card and thendecide after seeing the second" D"whether you want another card(Twist), or to stay with those" D"you have (Stick). Your wager canbe between 0 and 9, but you can" d"'Buy' the next card to increaseyour total bet. If the facevalues of your cards exceed 21," D"you are said to have 'Bust,' andyou lose. Start with a `100 pot." 7:" Press any key to Continue:":0 w::" Note that the face value of apicture card is 10 and an Ace iseither 1 or 11. (It will adjustautomatically.)" 5:" 'PONTOONs' & 'FIVE-CARD TRICKS'are recognised." PD:" TO RESTART AN EARLIER GAME:":" " Z_" After the first card appears onthe screen, press CAPS SHIFT &SPACE to Break, then enter:" d$" ""LET l=* :GOTO 10 [ENTER]""," n6"where * is the Credit total fromthe previous game." s:;1;19,3;" DO YOU WANT SOUND (Y/N)? " t$"(Without Sound game runs faster)" x/N$=:N$"Y"N$"y"N$"N"N$"n"5240x zH19,0;c$:c$:19,5;"Please wait 5 seconds..." }0:502 X/7040:n=07:c:"h"+n,c:n b#n=07:c:"d"+n,c:n c#n=07:c:"s"+n,c:n d#n=07:c:"c"+n,c:n e#n=07:c:"a"+n,c:n f#n=07:c:"k"+n,c:n g#n=07:c:"j"+n,c:n h#n=07:c:"q"+n,c:n i#n=07:c:"f"+n,c:n j#n=07:c:"p"+n,c:n k#n=07:c:"b"+n,c:n l#n=07:c:"g"+n,c:n m#n=07:c:"i"+n,c:n n#n=07:c:"t"+n,c:n o#n=07:c:"e"+n,c:n p#n=07:c:"u"+n,c:n H0,546,127,127,62>,28,8,0 I0,24,60<,126~,126~,60<,24,0 I0,24,60<,126~,126~,24,60<,0 H0,28,28,119w,119w,8,28,0 H0,66B,66B,126~,66B,66B,60<,0 G0,66B,34",18,14,18,34",0 G0,60<,66B,66B,64@,64@,64@,0 G0,60<,82R,74J,66B,66B,60<,0 G0,60<,74J,82R,66B,66B,60<,0 H0,32 ,126~,36$,40(,480,32 ,0 G0,62>,64@,64@,62>,2,124|,0 F0,8,8,16,16,32 ,126~,0 G0,60<,66B,66B,60<,66B,60<,0 H0,124|,16,16,16,24,16,0 G0,126~,2,60<,64@,66B,60<,0 G0,62>,64@,64@,60<,64@,62>,0 a$="n"a$="N" @19,3;"Press any key to Continue:":c$  0: #' #(N$="N"N$="n" #2Ii=13: 9080x#:j=15:m:.15~,m:j:i #d #x2-8,-11 ,-14,-16,-18 #N$="N"N$="n" #Hi=13: 9180#:j=15:m:.1}L,m:j:i # #,5,8,10 ,12 ,14 '"pontoon"1