if nimages() > 0 then 

   showmenu
      "Table"  : "Create a WordPerfect table from a Paradox table",
      "Columns": "Create WordPerfect parallel columns from Paradox table",
      "Merge"  : "Create WordPerfect secondary merge file from Paradox table",
      "Quit"   : "Cancel PDX2WP translation utility"
   to choice

   switch
      case choice = "Table":
         run big "pdx2wp " + table() + ".tbl " + table() + " /t"

      case choice = "Columns":
         run big "pdx2wp " + table() + ".col " + table() + " /c"

      case choice = "Merge":
         run big "pdx2wp " + table() + ".mrg " + table() + " /m"

      case choice = "Quit":
      case choice = "Esc":
         release vars choice
         return

   endswitch

else

   message "Cannot run PDX2WP -- no table has been selected"
   sleep 3000
 
endif