Label 1
	Slot(1) = Rnd
	Slot(2) = Round(Slot(1))
	If Slot(2) = 0
		Slot(3) = Slot(3) + 1
	Else
		Slot(4) = Slot(4) + 1
	EndIf
Goto 1


'WATCH Slot(1)
'WATCH Slot(2)
'WATCH Slot(3)
'WATCH Slot(4)
'WATCH Slot(3) / Slot(4)
'EXEC Slot(3) = 0 : Slot(4) = 0
