_________________________________________________________________________
Title: Quick Pontoon
Version: 1.2
Author: Al Hudson, albalbo@hotmail.com
Size: [not sure - sorry!]
Model: Created on a 7700
Description: A quick game of Pontoon for as many players as you want,
up to a certain point. You are shown the total amount of
the cards in your hand, and you have to decide whether to
twist or stick. The winner is not worked out automatically
_________________________________________________________________________
Command translation:
-> Single arrow (located on the keyboard)
=> Double arrow (press: [shift] [prgm] [f1] [f1])
_ Display, -Disp- (press: [shift] [prgm] [f4])
<= Less or equal (A <= B)
>= Greater or equal (A >= B)
<> Not equal (A <> B)
^ Raised to the power of
/ Division or fraction (explain which with a comment)
2rt() Root (2rt(7) is the square root of 7)
4rt() 4th root
pi pi (~3.14159265359, low case)
e() e(1) (~2.7818281846, low case)
E Exponent (5E4 gives 5*10^4) (located on the keyboard,
[EXP])
_________________________________________________________________________
Program :
'PONTOON
Lbl 8:"HOW MANY
PLAY"?->r:r->z:1->Z
:Lbl 9:Int ((20Ran
#)+2)->U[Z]:Ds
z Z:Goto 9:1->Z:P
rog Y:Lbl 1:"PLA
YER:":Z_
"CARDS TOTAL:":U
[Z]_
"1(TWI) 2(STI)"?
->A:A=1=>U[Z]+Int
(10Ran#)+1->U[Z]
:U[Z]>21=>"BUST!"
:U[Z]>21=>Z+1->Z:A
=2=>Z+1:Z>R=>Got
o 2:Goto 1:Lbl 2
:"PLAYER":R_
"SCORE":U[R]_
Dsz R:Goto 2:Got
o 8
_________________________________________________________________________
If you encounter any problems with this program contact:
albalbo@hotmail.com
Hi to Mark at F&N Design Studios
_________________________________________________________________________