home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / SYSROUT.FOR < prev    next >
Encoding:
Text File  |  1986-12-15  |  742 b   |  42 lines
  1.     SUBROUTINE BPAGE
  2.  
  3. c  E.T.....
  4.     CALL    CLS
  5.     call home
  6.     RETURN
  7.     END
  8.     SUBROUTINE CPAGE
  9.     call cls
  10.     CALL HOME
  11.     RETURN
  12.     END
  13.     SUBROUTINE QDATE(I)
  14.     integer*2 month,day,year
  15.     integer*2 montab(12),mday
  16.     data montab/31,27,31,30,31,30,31,31,30,31,30,31/
  17.     call date(month,day,year)
  18.  
  19. c    since suprtrek expects the date in a decimal number of 
  20. c    the form:    yyddd, we have some massaging to do...
  21.  
  22.     mday=0
  23.     do 10 j=1,month
  24. 10    mday=mday+montab(j)
  25.  
  26. c    ...we'll just have to recode february during leap years!!!
  27.  
  28.     i=(year*1000)+mday+day
  29.  
  30.     RETURN
  31.     END
  32.     SUBROUTINE QTIME(J)
  33.     integer*2 hours,mins,secs,hsecs
  34.  
  35. c    j = time in seconds since midnight
  36.  
  37.     call time(hours,mins,secs,hsecs)
  38.     j=(hours*3600)+(mins*60)+secs
  39.  
  40.     RETURN
  41.     END
  42.