SUBROUTINE POH
	WRITE(*,10)
10	FORMAT(1X,'Odlicno! Postajas mojster. Ko bos dobil na'/,
     *  1x,'eno mojo zmago eno svojo, obvladas igro in za tebe'/,
     *  1x,'ni vec zanimiva. Seveda pri primernem stevilu'/,1x,
     *  'vrstic in zvezdic ter nivoju 4.')
C	PAUSE '<ENTER>'
	write(*,*)'<ENTER>'
	read(*,*)
	RETURN
	END