PONTINPONTOONPONTIN!BOOT 3 +Z# 0*BASIC
PAGE=&1900
*FX21
CLOSE#0:CHAIN "PONTIN"
PONTOON
:
Written by Ian MacCaulay
(:
2 (c) LASERBUG
<:
F Version 1.2
P:
Z MAY 1982
d:
n INSTRUCTIONS FROM ISSUE 2
xTRB
*FX200,3
7:23;8202;0;0;0;
%" "157;15);141;132;"PONTOON"
%" "157;15);141;132;"PONTOON"
'" This program is based on the popular card game of Pontoon. The basic idea isfor each player to try to make a score of near to 21 as possible without exceeding that figure, and then the"
)"dealer tries to beat the players."
S'" The value of the cards are as follows:"'" 29 face value"
&" 10,J,Q,K 10 points"
+" Ace 1 or 11 points"
'" On RUNning the program you are first asked to input the number of players taking part. Between one and five players can play. The computer acts as the dealer and handles all the cards"
+"and the betting _ without cheating."
:*FX200,2
.'6"Press any key to continue.";:*FX15,0
A=:28,0,23,39,3::*FX15,0
" Initially, each player receives200 units (pence or whatever) and the computer (player 0) receives1000 units. The dealer then puts6units into the pot."
s'" Once the number of players is input, the current score is displayed. Press theSPACE barto continue."
"" The first player is dealt a card, and the program then waits for a bet. This may be betweenoneand the value of the pot. (The pot is displayed in the centre of the screen near the top)."
," The cards are represented by two characters:_ the lefthand one is the value (29, T=Ten, J=Jack, Q=Queen, K=King) and the righthand one is the suit (S=Spades, H=Hearts, D=Diamonds, C=Clubs)."
6A=::*FX15,0
@r" Once a valid bet has been input the second card is dealt. The computer willnow wait for instructions."
JJ'"_if you have 1621 points you may STICKby pressingSandRETURN."
T"_if you have 1314 points you may BURN by pressingBandRETURN.Your two cards are then replaced by another pairand your bet is doubled (up to the maximum of the pot)."
^"_if you have 15 points you may DEALER'SHAND by pressingDandRETURN.Your twocards are now exchanged for the pair held by the dealer, and the dealer getsyour pair. Your bet is also doubled."
he"_on any score you may TWIST by pressingTandRETURN.You are then dealt another card."
rA=::*FX15,0
" If you exceed 21 you BUST and the pot gets your bet and the game moves on to the next player. Once you have STUCK the dealer then reveals its hand. Press theSPACE bar."
'" The dealer will either STICK, TWIST orBURN. After each action by the dealer press theSPACE barto continue _ this is to allow you to follow the progress of the game. Once the dealer has STUCK"
T"the two hands are compared to judge thewinner. The hierarchy or scoring is:"
*'"Pontoon (Ace+King, Queen or Jack)"
."5 Card Trick (5 cards of any value <21"
"Junior Pontoon (Ace+10)"
"21 points"
$"20 points_down to 16 points."
A=::*FX15,0
u" If both hands are the same then the dealer wins. If the dealer wins then your bet is put into the pot."
e" If the player wins then the dealer's bet is put into the player's score from the pot."
" Press theSPACE barto continue. The current score is displayed. Press the SPACE baragain to move on to the next player."
_'" If the pot goes down tozerothen it is refilled tosixfrom the dealer's score."
g" If the pot survives two rounds then all butsixis emptied into the dealer's score."
" The game continues until theESCAPE key is pressed as the cards are replaced on the bottom of the deck.":A=
26,12:*FX200,3
=&1900:"PONTOON"
7
23;11;0;0;0;0
0,6)(141)"PONTOON"
0,7)(141)"PONTOON"
1,8);"_______"
0,12)" by"
0,15)"I.A. MacCaulay"
*FX200,2
" NACE(5),NC(5),NPT(5,5),A(52)
C$(5,5),A$(52),B$(52)
, M(5),NKING(5),NTEN(5),NPON(5),NJPON(5)
I=152
( A$(I)

A(I)=0
2I
<, 2S,3S,4S,5S,6S,7S,8S,9S,TS,JS,QS,KS,AS
F, 2H,3H,4H,5H,6H,7H,8H,9H,TH,JH,QH,KH,AH
P, 2D,3D,4D,5D,6D,7D,8D,9D,TD,JD,QD,KD,AD
Z, 2C,3C,4C,5C,6C,7C,8C,9C,TC,JC,QC,KC,AC
dI=152
nX=(52)
xA(X)=0 tL@
X=X+1
X=53 X=1
Dx@
A(X)=I
I
I=152
B$(I)=A$(A(I))
I:IC=52
23;11,255,0;0;0;:*FX15,0
0,15)"Number of players ";
ND=0
" "NP
NP>5 NP<1 t~@
I=1 NP
M(I)=200
I
M(0)=1000
POT=6:M(0)=M(0)6
5X=0: ND=2 M(0)=M(0)+POT:POT=6:M(0)=M(0)6:ND=0
X=X+1: X>NP ND=ND+1:df@
MON
CLR
0,4)"PLAYER ";X
13,6);POT
DEAL(X)
DEAL(0)
"0,8)C$(X,1)
'*FX21,0
,0,6)" ";:"?"ST
1/ST<1 ST >POT 0,6)" ":7:TlA
6DEAL(X):DEAL(0)
@0,8)C$(X,1):0,9)C$(X,2)
J0,20)" "
T0,20)" ";:"?"COM$
^ COM$="S" tPA
h COM$="T" dBA
r COM$="B" d~A
 COM$="D" DbB
DJA
PTS(X)
NC(X)=5 dhC
& NPT(X,0)>15 NPT(X,0)<22 dhC
& NPT(X,1)>15 NPT(X,1)<22 dhC
& NPT(X,2)>15 NPT(X,2)<22 dhC
DJA
0,20)"TWIST "
NC(X)=5 DJA
0,20)"TWIST "
$DEAL(X):0,7+NC(X))C$(X,NC(X))
PTS(X)
4 NPT(X,0)>21 NPT(X,1)>21 NPT(X,2)>21 djA
DJA
0,20)"BUST "
M(X)=M(X)ST
SPACE
POT=POT+ST
REP(X):REP(0):dp@
NC(X)<>2 DJA
PTS(X)
& NPT(X,0)=13 NPT(X,0)=14 TzB
& NPT(X,1)=13 NPT(X,1)=14 TzB
&& NPT(X,2)=13 NPT(X,2)=14 TzB
0 DJA
:REP(X)
?0,20)"BURN "
DDEAL(X)
NDEAL(X)
SPTS(X)
U0,8)C$(V,1):0,9)C$(V,2)
XST=ST*2: ST>POT ST=POT
]2,6);ST:D@A
b NC(X)<>2 DJA
lPTS(X)
v4 NPT(X,0)=15 NPT(X,1)=15 NPT(X,2)=15 tJB
DJA
Z1$=C$(0,1):Z2$=C$(0,2)
0,20)"DEALERS"
#C$(0,1)=C$(X,1):C$(0,2)=C$(X,2)
C$(X,1)=Z1$:C$(X,2)=Z2$
ST=ST*2: ST>POT ST=POT
2,6);ST
D@A
"0,20)"STICK":20,4)"DEALER"
ST1=ST
20,8)C$(0,1)
20,9)C$(0,2)
SPACE
22,6);ST1
PTS(0)
4 NPT(0,0)>21 NPT(0,1)>21 NPT(0,2)>21 DxE
& NPT(0,0)>16 NPT(0,0)<22 dlD
$& NPT(0,1)>16 NPT(0,1)<22 dlD
.& NPT(0,2)>16 NPT(0,2)<22 dlD
80 NPT(0,0)=13 NPT(0,0)=14 NC(0)=2 tRD
B0 NPT(0,1)=13 NPT(0,1)=14 NC(0)=2 tRD
L0 NPT(0,2)=13 NPT(0,2)=14 NC(0)=2 tRD
V$ NPT(0,0)=16 (1)>0.75 dlD
`20,20);"TWIST "
jDEAL(0)
t20,7+NC(0));C$(0,NC(0))
~ TFD
NC(0)<>2 D`D
20,20)"BURN "
!ST1=ST1*2: ST1>POT ST1=POT
22,6);ST1
REP(0)
DEAL(0)
DEAL(0)
drC
" NC(0)=2 NPT(0,0)=21 T@E
NC(X)=5 NC(0)<5 D`D
20,20)"STICK"
SPACE
PTS(X):PTS(0)
D@F
TTE
REP(0)
REP(X)
# POT=0 POT=6:M(0)=M(0)6
( dp@
x20,20)"BUST "
} tdF
SPACE
TJE
@ NPON(0)=1 THG
J NC(0)=5 NPON(X)=0 THG
T NC(X)=5 NPON(X)=1 tdF
^ NJPON(0)=1 THG
h NJPON(X)=1 tdF
r
N1=0:N0=0
w
I=02
 NPT(0,I)>N0 NPT(0,I)<22 N0=NPT(0,I)
 NPT(X,I)>N1 NPT(X,I)<22 N1=NPT(X,I)
I
N1>N0 tdF
THG
10,22)"PLAYER ";X;" WINS"
M(X)=M(X)+ST1
+POT=POTST1: POT<0 POT=6:M(0)=M(0)6
SPACE
TOE
10,22)"DEALER WINS "
POT=POT+ST
M(X)=M(X)ST
SPACE
TOE
DEAL(V)
C$(V,NC(V)+1)=B$(1)
NC(V)=NC(V)+1
I=1 52
A$(I)=B$(I)
I
I=1 IC1
B$(I)=A$(I+1)
I
B$(IC)=" "
IC=IC1
&
0
REP(V)
: I=1 NC(V)
DB$(IC+1)=C$(V,I)
IC$(V,I)=" "
NIC=IC+1
XI
bNC(V)=0
l
PTS(V)
.NPT(V,0)=0:NPT(V,1)=0:NPT(V,2)=0:NACE(V)=0
XXX=V
I=1 NC(V)
Z$=C$(V,I),1)
z Z$="J" Z$="Q" Z$="K" NPT(V,0)=NPT(V,0)+10:NPT(V,1)=NPT(V,1)+10:NPT(V,2)=NPT(V,2)+10:NKING(V)=NKING(V)+1: dFL
f Z$="T" NTEN(V)=NTEN(V)+1:NPT(V,0)=NPT(V,0)+10:NPT(V,1)=NPT(V,1)+10:NPT(V,2)=NPT(V,2)+10: dFL
' Z$="A" NACE(V)=NACE(V)+1: dFL
GZ=(Z$):NPT(V,0)=NPT(V,0)+Z:NPT(V,1)=NPT(V,1)+Z:NPT(V,2)=NPT(V,2)+Z
I
L NACE(V)=1 NPT(V,0)=NPT(V,0)+11:NPT(V,1)=NPT(V,1)+1:NPT(V,2)=NPT(V,0)
F NACE(V)=2 NPT(V,0)=2+NPT(V,0):NPT(V,1)=12+NPT(V,1):NPT(V,2)=22
2 NACE(V)=1 NKING(V)=1 NC(V)=2 NPON(V)=1
H2 NACE(V)=1 NTEN(V)=1 NC(V)=2 NJPON(V)=1
MON
I=0 NP
#0,2*I+6)"PLAYER ";I;" "M(I)
I
0,2*I+8)" POT ";POT
SPACE
CLR
I=02
NPT(0,I)=0
I
T=X1: T=0 T=NP
I=02
NPT(T,I)=0
I
I=0 NP
NACE(I)=0
NKING(I)=0
NTEN(I)=0
NPON(I)=0
NJPON(I)=0
I
p SPACE
z*4,24);"Press SPACE BAR to continue";
*FX15,0
=" "
*4,24);" ";