# onquit --- on-unit for QUIT$

   subroutine onquit (cp)
   longint cp

   call seterr (2000)

   return
   end