%
% display fire code body value
%
sel@
%
% is this a call or proc type
empty !report

"Type" \_ &;
"Name" \_ &
^_report
!report

_report
"SetInfo" Url.(esc)

"Type" \_ "call" eq$
{
%
% display fire monad body value
%
 _\\ ".txt" filer
 {
"filer " log)(
  read
  dup "Body" \!
 }
 {
%
% display info for procs 
%
 "Data" \_ trim
 } ifelse
}
{
%
% display info for procs 
%
 "Data" \_ trim
} ifelse
&;
*entertre
&
Help.!
@@