$! backtranslate/codonpref/correspond preface to list codon tables
$!
$  runit:= $genutil:backtranslate 
$  w 	:= write sys$output
$!
$  w "Condon Frequency Tables that are available:"
$datloop:
$  f = f$search("GenRunData:*.cod")
$  if f .eqs. "" then goto workloop
$  f = f$parse( f, , ,"NAME")
$  w "    GenRunData:",f,".COD"
$  goto datloop
$workloop:
$  f = f$search("GenWork:*.cod")
$  if f .eqs. "" then goto caller
$  f = f$parse( f, , ,"NAME")
$  w "    GenWork:",f,".COD"
$  goto workloop
$!
$caller:
$ ! must reset input from sys$input
$  w ""
$! need to pass parameters of original call to here !!?
$  define/user_mode sys$input sys$command
$  runit 'p1' 'p2' 'p3' 'p4' 'p5' 'p6'