home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
ADV350.ZIP
/
newhrx.for
< prev
next >
Wrap
Text File
|
1990-11-11
|
557b
|
23 lines
INTEGER FUNCTION NEWHRX(DAY1,DAY2)
C INPUT PRIME TIME SPECS AND SET UP A WORD OF INTERNAL FORMAT.
IMPLICIT INTEGER*4 (A-Z)
NEWHRX=0
WRITE(*,1) DAY1,DAY2
1 FORMAT(' PRIME TIME ON ',2A4)
10 WRITE(*,2)
2 FORMAT(' FROM:')
READ(*,*)FROM
IF(FROM.LT.0.OR.FROM.GE.24) RETURN
WRITE(*,4)
4 FORMAT(' TILL:')
READ(*,*)TILL
TILL=TILL-1
IF(TILL.LT.FROM.OR.TILL.GE.24) RETURN
DO 5 I=FROM,TILL
5 NEWHRX=(NEWHRX.OR.SHIFT(1,I))
GOTO 10
END