$! --- University of Sussex POPLOG file -----------------------------------
$! File:            $usepop/master/C.vms/com/bye.com
$! Purpose:         revised logout procedure
$! Author:          Unknown, ???
$! Documentation:

$on controly then goto fin
$!
$!Go to home directory
$ set def sys$login
$!
$!Purge files, but don't complain if nothing to be purged
$set mess/nofac/noid/nosev/notext
$purge/keep=2 [...]*.*
$set mess/fac/id/sev/text
$ !
$! If logout.com exists, run it
$open/read/err=fin t logout.com
$close t
$@logout
$fin:
$logout/full
$exit