SUBROUTINE INSTRI(OUT,LENMAX,ERR,PROMPT)
	BYTE OUT(LENMAX),ERR,PROMPT(1)
	CALL PUTSTR(5,PROMPT,'$')
	CALL GETSTR(5,OUT,LENMAX,ERR)
	RETURN
	END