/* Show(P) Return Ports */
  ports = Show(P)
  If Index(ports,'FLOWSTUDIO.1') >0 Then Say "1"
  Else Say "0"

Function p_CheckProgram(exe$, port$)
	Local result = False
	If RunRexxScript("RETURN SHOW('P','" .. port$ .. "')", True) = "0"
		; Launch the program if its port wasn't found.
		Run(exe$)
		; Own WaitForPort implementation, you could also do Execute("WaitForPort", port$) instead.
		For Local i = 1 To 10
			If RunRexxScript("RETURN SHOW('P','" .. port$ .. "')", True) = "1"
				result = True
				Break
			EndIf
			Wait(50)
		Next
	Else
		; Port was found. 
		result = True
	EndIf
	Return(result)
EndFunction

If p_CheckProgram("SYS:Applications/FlowStudio/FlowStudio", "FLOWSTUDIO.1")
	RunRexxScript("ADDRESS FLOWSTUDIO.1;'OPEN FILE sys:MorphOS.readme LINE 10'", True)
Else
	DebugPrint("Couldn't launch the program.")
EndIf