READ(1,100)IX,IY,N,IR
100	FORMAT('IX = 'I5/'IY = 'I5/' N = 'I5/'IR = 'I5)
	CALL ERASE
	CALL ROSET(IX,IY,N,IR)
	CALL ALPHA
	CALL EXIT
	END