/* EGOTISTICAL ( or should that be EGO TESTICAL) INFO tester */
ADDRESS 'REXECUTE'

CALL TIMEDELAY( 10 )
CLOSEABOUT

TIMEDELAY:
PARSE ARG number

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