# 10/5/87  created by R.L.Glenn
#
# modified by Harold Kane
#
# macro for importing Miads data into r.in.ll (Mimportcell 3.0)
# raster(cell) formatted data from Miadin program
#
tput clear
echo "\n\n\n What is the Title for this data set :\c"; read TITLE
cnt="0"
echo "\n What will be the GRASS data Layer :\c"; read LAY
 if ( test $LAY )
 then
    OK=""
    while [ -z "$OK" ]
    do {
    echo "\n What is the import data set name :\c"; read IMP
    if ( test $IMP )
    then
       if ( test $cnt = "1" )
          then TITLE=""
       fi
       APPND=`echo $IMP | sed 's/[a-zA-Z/]//g'`
       COMPRESSION=none r.in.ll $IMP $LAY$APPND "$TITLE";cnt="1"
       echo " Hit <return> to continue,  ANY key to quit"; read ANS
       if ( test $ANS )
       then
            OK="yes"
       else
            OK=""
       fi 
    else
      OK="no"
    fi
    } done
 else
  OK="no"
 fi
if ( test $OK = "no" )
then {
     tput clear
     echo "\n\n ERROR in Input\n"
     echo "NO blank names are accepted !"
     } fi
