Procedure DECL;
   EXTERNAL;
{*USER*
 Pascal-3 procedure to declare a significant event.
Directive status is available in $DSW on return.
}