|
|
Guessmachine |
|
(c) Copyright Geert Jansen, 1999
geert_jansen84@hotmail.com Program: Guessmachine Size: small Models: all Author: Geert Jansen Description: You'll figure it out! |
|
ClrText
1000->B Lbl 2 B<=0=>Goto 7 "YOU GOT" B_ "DOLLAR" ClrText "BET"?->M ClrText M>B=>"YOU DON'T GOT THE MONEY FOR SUCH A BET" M>B=>Goto 2 Lbl 8 ClrText "BET 1 OR 2"?->L L=1 Or L=2=>Goto 9 Goto 8 Lbl 9 2Ran#+1->T ClrText T=1=>"YOU LOSE"_ T=1=>Goto 5 T=2=>"YOU WIN"_ T=2=>Goto 6 Lbl 4 ClrText "YOU GOT NO MORE MONEY" "YOU LOSE"_ ClrText 1000->B Goto 2 Lbl 7 ClrText "YOU GOT 1500 DOLLAR" "YOU WIN"_ ClrText 1000->B Goto 2 Lbl 5 B-M->B Goto 2 Lbl 6 B+M->B Goto 2 |
|
|
|
|