
Variable Numeric Slot_PollExternalCommands = 86

Button 2 Label ClearText

Controls OpenTextBox 
Label Loop1
	Poll_ExternalCommands
Goto Loop1
Stop

Label ClearText
	Controls ClearTextBox 	
Return

Variable String str1 = ""
Variable String str2 = ""

Label Poll_ExternalCommands
	str1 = SlotText(Slot_PollExternalCommands)
	str1 = Replace(str1, "<<<END>>>", "")
	str1 = Replace(str1, CRLF, "")
	str1 = Replace(str1, " ", "")
	str1 = Trim(str1)
	If str1 <> "" And str1 <> str2
		Print str1 + "          " + str2 + CRLF
		
		str2 = str1
	EndIf
Return

Label ClearCommand
	SlotText(Slot_PollExternalCommands) = ""
Return

Label ExecBeepMultiple
	For v1 = 1 To 3
		Beep 880 400
		Wait Seconds 0.5
	Next
Return


'BOOKMARKS 

'EDITEDLINES 25 4 22 4 20 2 15 3 16 4 3 5 -1 6 -1 7 13 8 -1 9 12 10 

