' ----------------------------------
'  Simple Program 5
' ----------------------------------
'  Please test this with "RUN"
'  And experiment with "Speed"
' ----------------------------------

' Prepare a random integer from 0 to 9
v1 = Int(Rnd * 10) 

' Select v1 values 1, 2 and 3
Select v1
	Case 1
		Print "v1 = 1"
	Case 2
		Print "v1 = 2"
	Case 3
		Print "v1 = 3"
EndSelect	

'WATCH v1
'WATCH Slot(1)
'EXEC Print Slot(1)
