!
! $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 % ;