%external %routine pasmon
   %system %routine %spec ndiag(%integer pc, lnb, fault, inf)
   %integer pc, lnb
      printstring("PASCAL MONITOR ENTERED: THE PROGRAM HAS NOT CRASHED")
      newline
      *lss_(%lnb +2)
      *st_pc
      *stln_lnb
      ndiag(pc, lnb, 0, 0)
      newline
      printstring("PASCAL MONITOR COMPLETED: RETURN TO PROGRAM")
      newline
%end
%end %of %file