FTN4,L
C 
C  ***************************************************************
C  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS     *
C  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
C  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
C  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
C  ***************************************************************
C 
C     SOURCE PART NUMBER :92067-18383 
C 
C     RELOCATABLE PART NUMBER : 92067-16361 
C 
C     PROGRAMER(S)   : J.M.N. 
C 
C 
      SUBROUTINE ACNVS(IOUT,NWORDS,MODE) ,92067-16361 REV.1940 781024 
      COMMON /ACOM7/IPBUF(11),ISTRC,JPBUF(11) 
      COMMON /ACOM4/ICMND(40) 
C     WRITE PROMPT
      CALL ACPRM(IOUT,NWORDS) 
C     READ RESPONSE 
      CALL ACREI(ICMND,IERR)
C 
C     SET START OF BUFFER 
C 
      ISTRC=1 
C     HOW TO PARSE? 
C       0 -- NAMR (NAME:SC:CR)
C       <>0 -- USER.GROUP 
C 
      IF(MODE.NE.0) GO TO 100 
C     PARSE NAMR
      CALL NAMR(IPBUF,ICMND,80,ISTRC) 
      RETURN
C     PARSE USER.GROUP
  100 CALL PARSN(IPBUF,ICMND,80,ISTRC,IERR) 
      RETURN
      END 
                                                                                                                                