_________________________________________________________________________

           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
_________________________________________________________________________