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
48
49
|
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
C PAUSE '<ENTER>'
write(*,*)'<ENTER>'
read(*,*)
RETURN
END
|
