home *** CD-ROM | disk | FTP | other *** search
/ Fatal Distractions! / fataldistractions.bin / chap01 / adventur / newhrx.for < prev    next >
Text File  |  1990-11-11  |  557b  |  23 lines
  1.       INTEGER FUNCTION NEWHRX(DAY1,DAY2)
  2.       
  3. C  INPUT PRIME TIME SPECS AND SET UP A WORD OF INTERNAL FORMAT.
  4.  
  5.       IMPLICIT INTEGER*4 (A-Z)
  6.       
  7.       NEWHRX=0
  8.       WRITE(*,1) DAY1,DAY2
  9.     1 FORMAT(' PRIME TIME ON ',2A4)
  10.    10 WRITE(*,2)
  11.     2 FORMAT(' FROM:')
  12.       READ(*,*)FROM
  13.       IF(FROM.LT.0.OR.FROM.GE.24) RETURN
  14.       WRITE(*,4)
  15.     4 FORMAT(' TILL:')
  16.       READ(*,*)TILL
  17.       TILL=TILL-1
  18.       IF(TILL.LT.FROM.OR.TILL.GE.24) RETURN
  19.       DO 5 I=FROM,TILL
  20.     5 NEWHRX=(NEWHRX.OR.SHIFT(1,I))
  21.       GOTO 10
  22.       END
  23.