Trailing-Edge
-
PDP-10 Archives
-
decuslib10-06
-
43,50437/weknam.for
There are no other files named weknam.for in the archive.
SUBROUTINE WEKNAM(FILE,IX)
IMPLICIT INTEGER(A-Z)
DOUBLE PRECISION FILE
10 format(' BOSS Weekly Report Generator',/)
20 format(' Last File Name: ',$)
WRITE(5,10) ; WRITE(5,20)
30 FORMAT(A6)
READ(5,30) FILE
IF (FILE .EQ. 'WEEK') GOTO 40
IF (FILE .EQ. 'MONTH') GOTO 40
IF (FILE .EQ. '2WEEK') GOTO 40
50 FORMAT(' NUMBER OF DAYS: ',$)
WRITE(5,50)
60 FORMAT(I2)
READ(5,60) IX
RETURN
40 X = GETTAB("53,"11)
X = LSH(X,-18)
X = X-1
IF (FILE .EQ. 'MONTH') IX = 30
IF (FILE .EQ. 'WEEK') IX = 7
IF (FILE .EQ. '2WEEK') IX = 14
encode(6,70,file) x
70 FORMAT(O6)
RETURN
END