|
|
Black Jack |
|
(c) Copyright Geert jansen, 1999
geert_jansen84@hotmail.com Program: Black Jack Size: small Models: all Author: Geert Jansen Description: Try to get 21 (or a bit less)! |
|
Lbl 2
ClrText "NEW GAME"_ ClrText Int 18Ran#+3->A_ A=21=>Goto 1 Lbl 5 ClrText "AN OTHER CARD?" "1.YES" "2.NO" Do Getkey->B LpWhile B=/=72 And B=/=62 B=72=>Goto 4 B=62=>Goto 3 Lbl 1 ClrText "BLACKJACK" "YOU WIN" Int 10Ran#+15->D "DEALER HAD" D_ Goto 2 Lbl 3 ClrText Int 10Ran#+15->D "DEALER HAD" D_ D>21=>Goto 9 A=D=>"PUSH" A>D=>"YOU WIN" A Goto 2 Lbl 9 ClrText "DEALER'S BUSTED" "YOU WIN"_ Goto 2 Lbl 4 ClrText Int 10Ran#+1+A->A A=21=>Goto 1 A>21=>Goto 7 Goto 5 Lbl 7 ClrText "YOU'RE BUSTED" "YOU LOSE" Int 5Ran#+16->D "DEALER HAD" D_ D>21=>"DEALER'S BUSTED"_ Goto 2 |
|
|
|
|