/* Script to start VoiXEL and GPFax */

say "Trying to start GPFax."

ADDRESS COMMAND 'VoiXEL:VoiXELwaitforport -q REXX_GPFAX'

if RC > 0 then
	do
		ADDRESS COMMAND 'run >nil: <nil: gpfax:gpfax -W -NP -Q -z'
	end


ADDRESS COMMAND 'VoiXEL:VoiXELwaitforport REXX_GPFAX'

if RC > 0 then
	do
		say "GPFax couldn't be run.  Exiting."
		exit
	end

ADDRESS rexx_gpfax closeserial

say "GPFax is running."

say "Trying to start VoiXEL."

ADDRESS COMMAND 'VoiXEL:VoiXELwaitforport -q VOIXELPORT'

if RC > 0 then
	do
		ADDRESS COMMAND 'run >nil: <nil: VoiXEL:VoiXEL'
	end

ADDRESS COMMAND 'VoiXEL:VoiXELwaitforport VOIXELPORT'

if RC > 0 then
	do
		say "VoiXEL couldn't start."
		ADDRESS rexx_gpfax quit
		exit
	end

say "VoiXEL is running."
exit
