_______________________________________________________________________

           Title: Dice
         Version: 2.0
          Author: Magnus Wold (msmtw@alf.uib.no)
            Size:
	     Model: 9850+
     Description: Another gambling game, this time with dices.

Game controls:
Change bet with the arrow up and arrow down keys.
Guess a number with the keys 1-6.
Press F1 to throw the dice.
_______________________________________________________________________

 Program :

Cls 
Range 1,127,0,1,63,0
1->A
50->D
5->C
Text 58,1,"F1=THROW"
Text 58,70,"NO:"
Text 58,95,"BET:"
Text 1,78,"CASH:"
Text 20,81,"'DICE'"
Text 26,89,"BY"
Text 32,79,"MAGNUS"
Lbl 0
Text 1,100,D
Text 58,85,A
Text 58,112,C
Text 45,20,"           "
Lbl 1
If Getkey=79
Then Goto 2
IfEnd 
If Getkey=72
Then 1->A
Goto 0
IfEnd 
If Getkey=62
Then 2->A
Goto 0
IfEnd 
If Getkey=52
Then 3->A
Goto 0
IfEnd 
If Getkey=73
Then 4->A
Goto 0
IfEnd 
If Getkey=63
Then 5->A
Goto 0
IfEnd 
If Getkey=53
Then 6->A
Goto 0
IfEnd 
Lbl A
If Getkey=28
Then C+5->C
Text 58,112,"    "
C>D=>Goto 8
Goto 0
IfEnd 
If Getkey=37
Then C-5->C
Text 58,112,"    "
C<5=>Goto 9
Goto 0
IfEnd 
If D<C
Then Text 45,21,"ADJUST BET"
Goto A
IfEnd 
D=C=>Text 45,20,"           "
Goto 1
Lbl 8
Text 45,25,"TOO HIGH"
C-5->C
Goto 0
Lbl 9
Text 45,25,"TOO LOW"
C+5->C
3->F
While F>0
F-1->F
Text 1,1," "
WhileEnd
Text 45,20,"            "
Goto 0
Lbl 2
PlotOff 40,39
PlotOff 30,29
PlotOff 50,49
PlotOff 50,29
PlotOff 30,39
PlotOff 50,39
PlotOff 30,49
F-Line 25,54,25,24
F-Line 25,24,55,24
F-Line 55,24,55,54
F-Line 55,54,25,54
Int 6Ran#+1->B
B=1=>Goto 3
B=2=>Goto 4
B=3=>Goto 4
B=4=>Goto 5
B=5=>Goto 5
B=6=>Goto 5
Lbl 3
PlotOn 40,39
Goto 7
Lbl 4
PlotOn 30,29
PlotOn 50,49
B=3=>Goto 3
Goto 7
Lbl 5
PlotOn 30,29
PlotOn 50,29
PlotOn 50,49
PlotOn 30,49
B=5=>Goto 3
B=6=>Goto 6
Goto 7
Lbl 6
PlotOn 30,39
PlotOn 50,39
Lbl 7
If A=B
Then Text 45,25,"YOU WIN"
D+4C->D
IfEnd 
If A=/=B
Then Text 45,24,"YOU LOSE"
D-C->D
IfEnd 
If D<5
Then For 0->ETo 50Step 6
Text 1+E,77,"BANKRUPT"
Next
Stop
IfEnd 
Text 1,97,"     "
Goto 0

_______________________________________________________________________