C*---------------------------------------------------------------------*
C|               A S K N A M :  ASK USER FOR NAME FIELD                |
C*---------------------------------------------------------------------*
      LOGICAL FUNCTION ASKNAM(MSG,NAM,NAMLEN)
C
C     MSG    - VARIABLE-LENGTH MESSAGE, TERMINATED BY '.@'
C     NAM    - NAME TO READ INTO
C     NAMLEN - LENGTH (IN CHARACTERS) OF "NAM" TO READ
C
C----------------------------------------------- SUBPROGRAM PARAMETERS
      BYTE MSG(1),NAM(NAMLEN)
      INTEGER NAMLEN
C----------------------------------------------- LOCAL DATA STRUCTURES
C----------------------------------------------- FUNCTIONS CALLED
      LOGICAL GETBUF
C*---------------------------------------------------------------------*
C
C----------------------------------------------- PROMPT USER
      CALL PROMPT(MSG)
C----------------------------------------------- READ ANSWER
      ASKNAM = GETBUF(NAM,NAMLEN)
C----------------------------------------------- RETURN
      RETURN
      END