/***************************************************************

	(c)1993 Asimware Innovations

	This ARexx script will increase the frames per second rate
	by 1, if possible.

 ***************************************************************/

options results
address 'AsimVTR_ARexx.1'

getdefaultfps
if rc ~= 0 then do
	say 'Failed with 'rc'.'
	exit
end
deffps = result


getmaxfps
if rc ~= 0 then do
	say 'Failed with 'rc'.'
	exit
end
maxfps = result

if deffps < maxfps
	then setdefaultfps deffps+1
	else say 'Maximum frames per second rate is at the maximum.'

exit