:	'(c) Copyright	Empress Software Inc.	1983, 2000'

case $# in
  1) ;;
  *) echo "*** Usage *** $0 internal"
     exit 1 ;;
esac

FILE=$1
PORTCODE=`cat $FILE`

echo
echo File \"$FILE\" contains \"`cat $FILE`\".
echo

case $PORTCODE in
  "Port Code "[A-Z][A-Z][A-Z][A-Z]-[0-9][0-9].[0-9][0-9]-[A-Z]-[0-9][0-9]-[A-Z]-[A-Z][A-Z][A-Z])
	echo "$FILE looks okay"
	exit 0 ;;
  *)	echo "*** Error *** invalid format: \"$PORTCODE\""
	echo "correct format: \"Port Code aaaa-dd.dd-a-dd-a-aaa\""
	exit 1;;
esac
