$ set noverify
$!
$! Driver menu for Voyager command procedures
$!
$ set on
$ on control_y then goto END
$ on error then goto ERRMSG
$!
$ wo :== write sys$output 
$ ask :== inquire
$ clr :== @sys$common:[sysmgr.commands]clear.com
$ path :== VOYAGER:[voyager.command]
$!
$ MENU:
$ clr
$ wo ""
$ wo "     Voyager Processing Command Menu"
$ wo ""
$ wo ""
$ wo ""
$ wo "   0 - Exit menu
$ wo "   1 - List directory"
$ wo "   2 - Retrieve EDR from JPL"
$ wo "   3 - Reblock disk EDR file"
$ wo "   4 - Read EDR header block"
$ wo "   5 - Process EDR"
$ wo "   6 - Filter EDR (removed)" 
$ wo "   7 - Quicklook processing"
$ wo "   8 - Reblock CDROM EDR file onto disk"
$ wo "   9 - EDR convert StreamLF to fixed 512, reblock and dump"
$ wo "  10 - Dump EDR header to file"
$ wo "  11 - Reblock CDROM SEDR file onto disk"
$ wo "  12 - Process SEDR"
$ wo "  13 - Get SFOS report"
$ wo ""
$ SELECT:
$ ask choice "Select desired process"
$ choice = f$integer(choice)
$ if choice .lt. 0 .or. choice .gt. 13
$ then
$  wo ""
$  wo "Invalid entry,  Try again."
$  wo ""
$  goto SELECT
$ endif
$ clr
$!
$ if choice .eq. 0 then goto END
$!
$ if choice .eq. 1
$ then 
$  @'path'listdir
$  wo ""
$  ask dummy "Press return to continue"
$  clr
$  goto MENU
$ endif
$!
$ if choice .eq. 2
$ then 
$  @'path'ftpedr
$  wo ""
$  ask dummy "Press return to continue"
$  clr
$  goto MENU
$ endif
$!
$ if choice .eq. 3
$ then 
$  @'path'edr_block
$  wo ""
$  ask dummy "Press return to continue"
$  clr
$  goto MENU
$ endif
$!
$ if choice .eq. 4
$ then 
$  @'path'edr_read
$  wo ""
$  ask dummy "Press return to continue"
$  clr
$  goto MENU
$ endif
$!
$ if choice .eq. 5
$ then 
$!  @'path'edr_proc  removed 04/25/95 SBK
$  @'path'edr_batch
$  wo ""
$  ask dummy "Press return to continue"
$  clr
$  goto MENU
$ endif
$!
$ if choice .eq. 6
$ then 
$!  @'path'filter
$  wo ""
$  wo "Selection no longer valid."
$  wo ""
$  ask dummy "Press return to continue"
$  clr
$  goto MENU
$ endif
$!
$ if choice .eq. 7
$ then 
$  @'path'quicklook
$  wo ""
$  ask dummy "Press return to continue"
$  clr
$  goto MENU
$ endif
$!
$ if choice .eq. 8
$ then 
$  @'path'edr_stage_vms.com
$  wo ""
$  ask dummy "Press return to continue"
$  clr
$  goto MENU
$ endif
$!
$ if choice .eq. 9
$ then 
$  @'path'reblock_edr
$!  @'path'get_edr
$  wo ""
$  ask dummy "Press return to continue"
$  clr
$  goto MENU
$ endif
$!
$ if choice .eq. 10
$ then 
$  @'path'edr_dump
$  wo ""
$  ask dummy "Press return to continue"
$  clr
$  goto MENU
$ endif
$!
$ if choice .eq. 11
$ then 
$  @'path'sedr_cd_retrieve
$  wo ""
$  ask dummy "Press return to continue"
$  clr
$  goto MENU
$ endif
$!
$ if choice .eq. 12
$ then 
$  @'path'sedr_proc
$  wo ""
$  ask dummy "Press return to continue"
$  clr
$  goto MENU
$ endif
$!
$ if choice .eq. 13
$ then 
$  @'path'getsfos
$  wo ""
$  ask dummy "Press return to continue"
$  clr
$  goto MENU
$ endif
$!
$ ERRMSG:
$ wo ""
$ wo "Error in main process menu."
$ wo "Note error message(s)."
$ wo "Contact system manager ( Sandy Kramer )."
$ wo ""
$!
$ END:
$ wo ""
$ set def sys$login
$ exit