home *** CD-ROM | disk | FTP | other *** search
/ Fatal Distractions! / fataldistractions.bin / chap01 / adventur / newhrs.for < prev    next >
Text File  |  1990-11-12  |  501b  |  18 lines
  1.       SUBROUTINE NEWHRS
  2.       
  3. C  SET UP NEW HOURS FOR THE CAVE.  SPECIFIED AS INVERSE--I.E., WHEN IS IT
  4. C  CLOSED DUE TO PRIME TIME?  SEE HOURS (ABOVE) FOR DESC OF VARIABLES.
  5.  
  6.       IMPLICIT INTEGER*4 (A-Z)
  7.       DIMENSION HNAME(4)
  8.       COMMON /WIZCOM/ WKDAY,WKEND,HOLID,HBEGIN,HEND,HNAME
  9.       
  10.       CALL MSPEAK(21)
  11.       WKDAY=NEWHRX('WEEK','DAYS')
  12.       WKEND=NEWHRX('WEEK','ENDS')
  13.       HOLID=NEWHRX('HOLI','DAYS')
  14.       CALL MSPEAK(22)
  15.       CALL HOURS
  16.       RETURN
  17.       END
  18.