

s1 = "'" + "''''"   '  

's1 = "a"

s1 = Chr(39)

'If s1 <> Chr(39)

If s1 <> "'"
	
	Print "Unrecognized command: " + s1
	Beep
	Stop
EndIf

Stop


'WATCH SequenceCmd
'WATCH s1
'WATCH SlotSensor
'WATCH asc(Mid(s1, 1))
