Click above to get retro games delivered to your door ever month!

      Microsoft FORTRAN contains some additional procedures that control  and
      access the system date and time,  and get and reset run-time-error code
      information.
                              Time and Date.
   __________________________________________________________________________
    GETTIM(ihr,imin,isec,i100th)       Gets system time      int2
    SETTIM(ihr,imin,isec,i100th)       Sets system time      int2    LOGICAL
    GETDAT(iyr,imon,iday)              Gets system date      int2
    SETDAT(iyr,imon,iday)              Sets system date      int2    LOGICAL
   __________________________________________________________________________
      Notes:     ihr    -  Hour(0-23)                 iyr  - Year(xxx AD)
                 imin   -  Minute(0-59)               imon - Month(1-12)
                 isec   -  Second(0-59)               iday - Day(1-31)
                 i100th - Hundredth of a second(0-99)

         Actual arguments used in calling GETTIM and GETDAT must be INTEGER*2
         variables or array elements.  Because these subroutines redefine the
         values of their arguments, other kinds of expression are prohibited.
         Actual arguments of the functions SETTIM and SETDAT can be any legal
         INTEGER*2 expression. SETTIM and SETDAT return  .TRUE.  if succesful
         (that is, the system time  or  date is changed),  or  .FALSE.  if no
         change is made.