
' -------------------------------------------------------
'  IF DSR and/or CTS are high, then you ear beep sounds
' -------------------------------------------------------

S1 = COM_PortNames

COM Open 4 9600

Label Loop
	If COM_Dsr
		Beep 400 20
		Wait Seconds 0.2
	EndIf
	If COM_Cts
		Beep 800 20
		Wait Seconds 0.2
	EndIf
	Wait Seconds 0.2
Goto Loop

