SUBROUTINE PRSCMD ( buffer, ids, outstr, lenstr, ier )
C
	CHARACTER*80	buffer
	CHARACTER*50	outstr
	CHARACTER*1	blnk
C
	INTEGER*2	ids,
     +			lenstr
	INTEGER*2	ier
C
	DATA		blnk/' '/
C
C	 Executable begins here.
C
	lenstr = 0
	IF ( ids .LT. 1 ) THEN
	    ier = -1
	ELSE
	    DO 100 i = 1, ids
		IF ( buffer(i:i) .EQ. blnk ) THEN
		    outstr = buffer(i+1:ids)
		    lenstr = ids - i
		    ier = 1
		    GO TO 101
		END IF
100	    CONTINUE
	    ier = -2
101	    CONTINUE
	END IF
	RETURN
	END