/* Args requestor tester */
ADDRESS 'REXECUTE'

CALL TIMEDELAY( 15 )
CLOSEARGSWINDOW

TIMEDELAY:
PARSE ARG number

CALL time 'R'
DO WHILE time('E') < number
	nop
end
RETURN