summaryrefslogtreecommitdiffstats
path: root/ZMA.FOR
blob: e6ead50c03ca36344326fbd06039d3d747207fda (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
C	* subroutine dodal jaz da bi popravil gettime *
	subroutine GetTim(ihr,imin,isec,i100th) 
	integer(4), intent(out):: ihr, imin, isec, i100th 
	character(8):: sdate 
	character(10):: stime 
	call date_and_time(sdate,stime)
	read(sTime,"(I2,I2,I2,1x,I3)") ihr, imin, isec, i100th 
	end subroutine GetTim 
	SUBROUTINE ZMA
	CALL GETTIM(LU,LM,LS,L)
	I=INT(L/10)+1
	GO TO (10,20,30,40,50,60,70,80,90,100),I
10	WRITE(*,11)
11	FORMAT(1X,'Smola - ne obupaj!')
	GO TO 200
20	WRITE(*,21)
21	FORMAT(1X,'Vec treniraj!')
	GO TO 200
30	WRITE(*,31)
31	FORMAT(1X,'Se vec treniraj!')
	GO TO 200
40	WRITE(*,41)
41	FORMAT(1X,'Vprasanje je, ce vaja res dela mojstra.')
	GO TO 200
50	WRITE(*,51)
51	FORMAT(1X,'Nisi samo ti slab. Tudi Janez je izgubljal.')
	GO TO 200
60	WRITE(*,61)
61	FORMAT(1X,'Drugic bo bolje!')
	GO TO 200
70	WRITE(*,71)
71	FORMAT(1X,'Ne gre ti dobro. Vec misli!')
	GO TO 200
80	WRITE(*,81)
81	FORMAT(1X,'Predvsem pa brez panike! Casa za uk je dovolj.')
	GO TO 200
90	WRITE(*,91)
91	FORMAT(1X,'Verjetno si politik. Po stilu sem te spoznal.')
	GO TO 200
100	WRITE(*,101)
101	FORMAT(1X,'Izgubljas, toda tu in tam bos tudi dobil, ce'/
     *  1x,'bos vadil.')
200	CONTINUE
	PAUSE '<ENTER>'
	RETURN
	END