path: root/KRI.FOR

	SUBROUTINE KRI
	WRITE(*,10)
10	FORMAT(1X,'To ni nobena zmaga! S tako majhnim stevilom'/,
     *  1x,'zvezdic se ne igra.')
	PAUSE '<ENTER>'
	RETURN
	END