PROGRAM DROUT
C
C
5	WRITE(5,10)
10	FORMAT(/'$ENTER PATTERN [OCTAL]: ')
	READ(5,20,END=1000) IPAT
20	FORMAT(O8)
	CALL SETPAT(IPAT)
	GO TO 5
1000	CALL EXIT
	END