# exit - ratfor exit
include ratdef
   subroutine exit
   include channel
   do i = 0, MAXCHNL; call flush (i)
   call EXIT
   end