#!/usr/dt/bin/dtksh

typeset -r -x DYNMENUFILE=${0}.dat  # Menu file
typeset -r MAINPROMPT="Enter your selection: "
typeset -x PS3=$MAINPROMPT  # PS3 is the prompt for the select construct.
typeset -r RESPONSEFILE="${0}_${USER}.out"

> $RESPONSEFILE  # Create or clear the response file.

# Create file desriptor 5 as input from the menu file, as the select construct needs to 
# read from stdin too.
exec 5<$DYNMENUFILE

# Read lines from the file descriptor associated with the menu file.
while IFS="|" read -u5 heading option1_in option2_in option3_in option4_in the_rest
do
  #  Loop until a valid option is entered.
  while :
  do
   clear
    print "\n$heading\n"
    select option in $option1_in $option2_in $option3_in $option4_in
    do
      case $REPLY in   # REPLY is set by the select construct,
                       # and is the number of the selection.
        1) ;&  # Fall through
        2) ;&  # Fall through
        3) ;&  # Fall through
        4) print "${heading}: $option" >> $RESPONSEFILE
           print "\nYou selected: ${heading}: $option"
           sleep 2
           break 2  # Break out 2 levels (get the next menu line)
           ;;
        *) # Always code for the unexpected.
           print "\nUnknown option [${REPLY}]"
           sleep 2
           break # redisplay the current menu
           ;;
      esac
    done  # End select
  done  # End while true
done  # End reading menu items

# Close fd 5.
exec 5<&-

exit 0