diff options
Diffstat (limited to '')
| -rw-r--r-- | ZMA.FOR | 47 |
1 files changed, 47 insertions, 0 deletions
@@ -0,0 +1,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 + |