SUBROUTINE PROUT(LINE,KOUNT)
	INCLUDE 'TREK.COM/-LI'
	COMMON/PRLUN/LUN
	BYTE LINE(120)
	DATA LUN/1/
	DATA IDISC/6/
	CALL CHEW
	WRITE (LUN,100,ERR=900) (LINE(I),I=1,KOUNT)
	IF (NODISC .EQ. 0) WRITE (IDISC,100) (LINE(I),I=1,KOUNT)
100	FORMAT (1X120A1)
900	CONTINUE
      RETURN
	END
	SUBROUTINE PROMPT(LINE,KOUNT)
	COMMON/PRLUN/LUN
	BYTE LINE(120)
	DATA LUN/1/
	DATA IDISC/6/
	CALL CHEW
	WRITE (LUN,101,ERR=900) (LINE(I),I=1,KOUNT)
	IF (NODISC .EQ. 0) WRITE (IDISC,101) (LINE(I),I=1,KOUNT)
101	FORMAT ('$',120A1)
900	CONTINUE
	RETURN
      END