home *** CD-ROM | disk | FTP | other *** search
/ Fatal Distractions! / fataldistractions.bin / chap01 / adventur / hours.for < prev    next >
Text File  |  1990-11-12  |  1KB  |  32 lines

  1.       SUBROUTINE HOURS
  2.       
  3. C  ANNOUNCE THE CURRENT HOURS WHEN THE CAVE IS OPEN FOR ADVENTURING.  THIS INFO
  4. C  IS STORED IN WKDAY, WKEND, AND HOLID, WHERE BIT SHIFT(1,N) IS ON IF THE
  5. C  HOUR FROM N:00 TO N:59 IS "PRIME TIME" (CAVE CLOSED).  WKDAY IS FOR
  6. C  WEEKDAYS, WKEND FOR WEEKENDS, HOLID FOR HOLIDAYS.  NEXT HOLIDAY IS FROM
  7. C  HBEGIN TO HEND.
  8.  
  9.       IMPLICIT INTEGER*4 (A-Z)
  10.       DIMENSION HNAME(4),VAL(5)
  11.       COMMON /WIZCOM/ WKDAY,WKEND,HOLID,HBEGIN,HEND,HNAME
  12.       
  13.       WRITE(*,1)
  14.     1 FORMAT()
  15.       CALL HOURSX(WKDAY,'MON-','FRI:')
  16.       CALL HOURSX(WKEND,'SAT-','SUN:')
  17.       CALL HOURSX(HOLID,'HOLI','DAYS')
  18.       CALL DATIME(D,T)
  19.       IF(HEND.LT.D.OR.HEND.LT.HBEGIN) RETURN
  20.       IF(HBEGIN.GT.D) GOTO 10
  21.       WRITE (*,5) HNAME
  22.     5 FORMAT(/' TODAY IS A HOLIDAY, NAMELY ',4A4)
  23.       RETURN
  24.       
  25.    10 D=HBEGIN-D
  26.       T='DAYS'
  27.       IF(D.EQ.1) T='DAY '
  28.       WRITE(*,15) D,T,HNAME
  29.    15 FORMAT(/' THE NEXT HOLIDAY WILL BE IN',I3,' ',A4,', NAMELY ',4A4)
  30.       RETURN
  31.       END
  32.