summaryrefslogblamecommitdiffstats
path: root/KRI.FOR
blob: 18c4e61f0e4e7329a0c4861c38ad474d3acc55cf (plain) (tree)
1
2
3
4
5
6
7
8
9
10



                                                                 


                           


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