while getopts :t args

do
	case $args in
	
	t) print "t option: data: $OPTARG";;
	
	
	esac
	
done

((pos = OPTIND -1))
shift $pos

PS3='option> '

if (( $# == 0 ))
then if (( $OPTIND == 1 ))
then select menu_list in dirinfo exit

do case $menu_list in

###################################################################################################

	dirinfo) 
	
	print "***************************************************************************";
	print "* This option shows the different files in a directory and its attributes *";
	print "***************************************************************************";
	print "";
	print "Enter the directory name";
	print "";
	
	read dir_name;	
	
	if test -d $dir_name
	
	then 
		
	cd $dir_name

	ls -1 
	
	else
		
		print ""
		print "The name you have entered is not a directory."
		print ""
	
	fi;
	
	print ""
	print "Hit enter to continue"
	read junk;;
	
###################################################################################################
	
	exit) exit;;
	
	*) print "unknown option";;
	
	esac
	
	done
	
	fi
	
	else print "extra args??: $@"

fi

#!/bin/ksh
#
print "Please enter a directory name and path:"
read the_dir
cd $the_dir
for y in *
do
if [ -d $y ];then
if [ -r $y ];then ( echo "$y is a readable directory" )
else ( echo "$y is a non-readable directory")
fi
#
elif [ -f $y ];then
if [ -r $y ];then ( echo "$y is a readable file")
else ( echo "$y is a non-readable file")
fi
#
elif [ -r $y ];then ( echo "$y is a readable OTHER file")
else ( echo "$y is a non-readable OTHER file")
fi
done