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