entry;
begin "trace"
   require "cs:std.hdr" source!file;
   require "pats.rel" load!module;
   integer tracechan;
   boolean trcflg;
   internal simple procedure strace;
   begin "strace"  ! start trace;
      trcflg := true;
      print(crlf,"Name for trace file - ");
      tracechan := openout(inchwl);
   end;

   simple internal procedure prtall(integer cellnum, location);
   begin "prtall"
      if trcflg then
         cprint(tracechan,crlf,"allocated: ",cvos(cellnum),
                " called from location: ",cvos( location));
   end "prtall";

   simple internal procedure prtdel(integer cellnum);
   begin "prtdel"
      if trcflg then
         cprint(tracechan,crlf,"deallocated: ",cvos(cellnum));
   end "prtdel";

   simple internal procedure clstrc;
   begin "clstrc"
      trcflg := false;
      release(tracechan);
   end;
end "trace"