_________________________________________________________________________

           Title: Slot Machine for Dummies
         Version: v0.91b
          Author: Hidetake Jo (hjo@engin.umich.edu)
	     Model: 9850+
     Description: 

User Friendly Interface, and a graphical animation of the slotmachine.
Nothing impressive...

Beware though that the odds are something similar to the slotmachine
in Las Vegas....

Hey anyone can play this game :-P  You place your bet using the User
Friendly Interface and just "PULL!!!!"  :-)
_________________________________________________________________________

 Program :

Cls
ViewWindow 1,126,1,1,99,1
Plot 1,10
Plot 126,10
Line
For 1->A To 126 Step 21
Plot A,1
Plot A,10
Line
Next
Text 58,3,"QUIT"
Text 58,25,"+100"
Text 58,45,"-100"
Text 58,69,"+10"
Text 58,90,"-10"
Text 58,109,"PULL"
Plot 33,30
Plot 33,80
Line
Plot 66,80
Line
Plot 66,30
Line
Plot 33,30
Line
Plot 33,60
Plot 66,60
Line
Text 35,35,"SLOTMAN"
1->Z
0->R
100->B
Text 20,80,"BUDGET:"
Text 20,110,B
Text 30,80,"BET:"
Text 30,100,R
0->D
While Z=1
GetKey=79 =>0->Z
If GetKey=69
Then R+100->R
R>B =>R-100->R
1->D
IfEnd
If GetKey=59
Then R-100->R
R<0 =>R+100->R
1->D
IfEnd
If GetKey=49
Then R+10->R
R>B =>R-10->R
1->D
IfEnd
If GetKey=39
Then R-10->R
R<0 =>R+10->R
1->D
IfEnd
If D=1
Then 0->D
Text 30,100,"       "     {7 spaces}
Text 30,100,R
Plot 1,1
IfEnd
If GetKey=29
Then For 1->C To 20
Int 9Ran#->M
Int 9Ran#->N
Int 9Ran#->O
Text 17,38,M
Text 17,49,N
Text 17,60,O
Next
For 1->C To 10
Int 9Ran#->N
Int 9Ran#->O
Text 17,49,N
Text 17,60,O
Next
For 1->C To 5
Int 9Ran#->N
Text 17,60,O
Next
If (M =/= N) Or (N =/O)
Then B-R->B
Text 20,110,"       "    {7 spaces}
Text 20,110,B
PLOT 1,1
IfEnd
If (M=N) And (N=O)
Then 9R+B->B
Text 20,110, "       "    {7 spaces}
Plot 1,1
For 1->S To 15
Text 45,82,"JACKPOT"
Text 45,82,"         "       {9 spaces}
Next
IfEnd
IfEnd
B =< 0 =>Text 50,4,"WHOA,NO MORE MONEY-PUSH [F1]"
WhileEnd
" "       {1 space}
_________________________________________________________________________