$! EVE.COM - A fancy way to fire up EVE.  If no filename is specified,
$!           the last file edited will be used.
$!
$! Author: Peter Johansson (peter@cs.umbc.edu)
$!
$! This file is intended for informational purposes only - Execute it at
$! your own risk.  All code Copyright (C) 1993 by Peter Johansson.
$!
$! Non-commercial use unrestricted so long as all attributions remain
$! intact.  That is, if you use any part or parts  of this code, I want
$! credit for my work.
$!
$   save_verify = f$verify(0)  ! instant off on all verify
$   set noon
$   on warning then goto bye
$   on control_y then goto bye
$   if p2 .nes. "" then goto no_options
$   if p1 .eqs. ""  then goto last_file
$   eve$last == f$element (0, ";", f$parse (p1,,,,"syntax_only"))
$   define/user/nolog sys$input sys$command
$   edit/tpu 'p1'
$   write sys$output "Default EVE file is now: ''eve$last'"
$   goto bye
$ last_file:
$   define/user/nolog sys$input sys$command
$   edit/tpu 'eve$last'
$ bye:
$   if save_verify then set verify
$   exit       ! note: verify is currently ON
$ no_options:
$   write sys$output "Only one paramater and no /qualifiers are permitted."
$   goto bye