
Gosub ExecKeys
Stop

Label ExecKeys
	Select True
		Case Key("SHIFT")
			Beep 1000 10
		Case Key("CTRL")
			Beep 1000 10
		'CaseElse
			Beep 1000 10
			' WITHOUT THIS CaseElse
			' THE EXECUTION GOES TO THE NEXT CaseElse
	EndSelect
Return

Label ExecSequence
	Select ""
		Case "EndSeq"
			Beep 1000 10
		Case "Stop"
			Beep 1000 10
		CaseElse
			Print CRLF + " Unrecognized command: " + CRLF
			Beep 440 500							'
	EndSelect
Return


'EXEC Sin2 = Sin(33)
