\START85\
\COMMENT=Program file dated 01/10/96, 18:19
\NAME=Slot
\FILE=SLOT.85P
:ClLCD
:Fix 2
:3\->\dimL SL
:Lbl OH
:ClLCD
:Prompt MONEY
:If MONEY\<=\0
:Goto OH
:Lbl GO
:ClLCD
:Outpt(8,1,"$")
:Outpt(8,2,MONEY)
:Prompt BET
:If BET>MONEY or BET<0
:Goto GO
:If BET==0
:Then
:ClLCD
:Float
:Stop
:End
:round(BET,2)\->\BET
:MONEY-BET\->\MONEY
:Outpt(8,1,"$")
:Outpt(8,2,MONEY)
:0\->\D
:For(X,1,3,1)
:rand\->\A
:If 0\<=\A and (2/24)>A
:Then
:1\->\SL(X)
:D+1(10^(X-1))\->\D
:Outpt(X+2,5,"|LEMON |")
:End
:If (2/24)\<=\A and (10/24)>A
:Then
:2\->\SL(X)
:D+2(10^(X-1))\->\D
:Outpt(X+2,5,"|CHERRY|")
:End
:If (10/24)\<=\A and (15/24)>A
:Then
:3\->\SL(X)
:D+3(10^(X-1))\->\D
:Outpt(X+2,5,"|GRAPES|")
:End
:If (15/24)\<=\A and (20/24)>A
:Then
:4\->\SL(X)
:D+4(10^(X-1))\->\D
:Outpt(X+2,5,"|PLUM  |")
:End
:If (20/24)\<=\A and (22/24)>A
:Then
:5\->\SL(X)
:D+5(10^(X-1))\->\D
:Outpt(X+2,5,"|STAR  |")
:End
:If (22/24)\<=\A and 1>A
:Then
:6\->\SL(X)
:D+6(10^(X-1))\->\D
:Outpt(X+2,5,"|BAR   |")
:End
:End
:Pause 
:If D==666
:MONEY+86BET\->\MONEY
:If D==555 or D==655
:MONEY+19BET\->\MONEY
:If D==444 or D==644
:MONEY+15BET\->\MONEY
:If D==333 or D==633
:MONEY+11BET\->\MONEY
:If D==122 or D==522
:MONEY+2BET\->\MONEY
:If (SL(1)==2 and SL(2)==2)
:MONEY+4BET\->\MONEY
:If MONEY\<=\0
:Then
:ClLCD
:Disp "BROKE!!!!!!!"
:Float
:Stop
:End
:Outpt(8,1,"$")
:Outpt(8,2,MONEY)
:Goto GO
\STOP85\