$! Procedure invoked by EVEX to run DVItoVDU or to que to printer
$! Commands are site specific - this version is set up for Fusion Energy
$!   Division VAX cluster at Oak Ridge National Laboratory
$!
$ which_action = p1
$ if which_action .eqs. "PRINT" then goto printer
$!
$ define/user sys$input sys$command             ! Set up terminal
$! this_term = f$trnlnm("TERM_TYPE")
$ this_term = "DEC:VT100"
$ if ((this_term .nes. "DEC:VT100") .and. -
      (this_term .nes. "GOC:250")) then goto endif_01
$ dvitovdu eve$run_temp_file.dvi
$ exit
$endif_01:
$ if ((this_term .nes. "DEC:VT240") .and. -
      (this_term .nes. "DEC:PRO")) then goto endif_02
$ dvitovdu/vdu=regis eve$run_temp_file.dvi
$ exit
$endif_02:
$! Come here for terminals which cannot do screen previews (Mac is one)
$ exit
$!
$printer:
$ ln03/dvi eve$run_temp_file.dvi
$ exit