#!/bin/sh
# (c) Copyright 1994 by James H. Lowe, Jr.
#
# $Id: shak_gettnu_v 1.3 1995/11/26 19:33:51 jhl Exp $
#
     ans="."
     echo -n "Enter '.' to read from tape; or enter tape number <$ans> " 1>&2
     read ans1

     if [ "$ans1" = "" ]; then
       ans="."
     else
       ans="$ans1"
     fi
     
     if [ "${ans}" = "." ]; then
         SHAK_TAPENUMBER="`${SHAK_LIBPATH}/shak_gettapenumber`"
         if [ $? -eq 0 ]; then
	   echo "$SHAK_TAPENUMBER"
	   exit 0
	 else
	   echo "X"
	   exit 1
	 fi
      else
         echo $ans | awk '{ printf ("%04s\n",$1) }'
      fi
      exit 0


