home *** CD-ROM | disk | FTP | other *** search
/ Fatal Distractions! / fataldistractions.bin / chap01 / adventur / hoursx.for < prev    next >
Text File  |  1990-11-22  |  870b  |  33 lines
  1.       SUBROUTINE HOURSX(H,DAY1,DAY2)
  2.       
  3. C  USED BY HOURS (ABOVE) TO PRINT HOURS FOR EITHER WEEKDAYS OR WEEKENDS.
  4.  
  5.       IMPLICIT INTEGER*4 (A-Z)
  6.       LOGICAL FIRST
  7.       
  8.       FIRST=.TRUE.
  9.       FROM=-1
  10.       IF(H.NE.0) GOTO 10
  11.       WRITE(*,2) DAY1,DAY2
  12.     2 FORMAT(10X,2A4,'  OPEN ALL DAY')
  13.       RETURN
  14.       
  15.    10 FROM=FROM+1
  16.       IF((H.AND.SHIFT(1,FROM)).NE.0) GOTO 10
  17.       IF(FROM.GE.24) GOTO 20
  18.       TILL=FROM
  19.    14 TILL=TILL+1
  20.       IF((H.AND.SHIFT(1,TILL)).EQ.0.AND.TILL.NE.24) GOTO 14
  21.       IF(FIRST) WRITE(*,16) DAY1,DAY2,FROM,TILL
  22.       IF(.NOT.FIRST) WRITE(*,18) FROM,TILL
  23.    16 FORMAT(10X,2A4,I4,':00 TO',I3,':00')
  24.    18 FORMAT(18X,I4,':00 TO',I3,':00')
  25.       FIRST=.FALSE.
  26.       FROM=TILL
  27.       GOTO 10
  28.       
  29.    20 IF(FIRST) WRITE(*,22) DAY1,DAY2
  30.    22 FORMAT(10X,2A4,'  CLOSED ALL DAY')
  31.       RETURN
  32.       END
  33.