summaryrefslogblamecommitdiffstats
path: root/POH.FOR
blob: fb458061768acdef32a22b1c82020091284ab4ec (plain) (tree)
1
2
3
4
5
6
7
8
9





                                                                 


                           


              
	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