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.') PAUSE '' RETURN END