! ! $TRACE (text,routine_name) ! MACRO $TRACE (text,routine_name) = %IF %VARIANT %THEN TTY_SOUT (CR_LF, text, ' routine ', routine_name) %FI % ; MACRO $TRACE_ARG [] = %IF %VARIANT %THEN BEGIN TT(%REMAINING) ; END %FI % ;