      PROGRAM COMMND
C   to read and decode a command line argument
      CHARACTER*20 LINE,ARG
C   get the command line which will be
C   'commnd myfile'
      CALL GTARGS(LINE)
C   get second word (which starts after column 7)
      JS = 7
      CALL NEXTWD(LINE,JS,ARG,LENGTH)
C   second word is in ARG, print it
      PRINT *,'argument is:',ARG(1:LENGTH)
      END
