/* Script to start VoiXEL and GPFax */

say "Trying to start GPFax."

ADDRESS COMMAND 'WFP REXX_GPFAX 0'

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


ADDRESS COMMAND 'WFP REXX_GPFAX 30'

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 ZVT."

ADDRESS COMMAND 'WFP ZVT.1 0'

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

ADDRESS COMMAND 'WFP ZVT.1 30'

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

say "ZVT is running."
exit
