summaryrefslogblamecommitdiffstats
path: root/KRI.FOR
blob: 319d3297c044316eeff9916ff8a9fbe49ed56a87 (plain) (tree)
1
2
3
4
5
6
7
8







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