6 * RECORD(14,6),FRSTRE(14,6),
8 C STATEMENT FUNCTIONS ARE:
13 DEFINE FILE 9 (400,85,U,REC9)
17 READ (9'REC9) RECPOS,FRSTRE
19 READ (9'REC9) RECPOS,RECORD
20 LSTDAY=RECORD(2,POS(RECPOS))
21 WRITE (4,1) (RECORD(I,POS(RECPOS)),I=1,14)
22 LSTACT=IXTA(S1(RECORD(4,POS(RECPOS))))
25 CALL DATE (M,D,Y) @ GET TODAYS DATE IN INTEGERS
26 IF (M.GE.1.AND.M.LE.12) GOTO 10 @ TEST FOR AN VALID DATE WORD
27 WRITE (4,4) @ NO VALID DATE, SO WE TAKE NO ACTION
36 CALL ADATE (RECORD(1,POS(RECPOS)))
37 WRITE (4,2) (RECORD(I,POS(RECPOS)),I=1,3)
38 READ (4,3) (RECORD(I,POS(RECPOS)),I=4,14)
39 NXTACT=IXTA(S1(RECORD(4,POS(RECPOS))))
40 IF (LSTACT.EQ.NXTACT) GOTO 20
41 IF (NXTACT.NE.IXTA(S1(1HA)).AND.
42 * NXTACT.NE.IXTA(S1(1HE))) GOTO 20
43 IF (NXTACT.EQ.IXTA(S1(1HE)).AND.LSTDAY.NE.RECORD(2,POS(RECPOS)))
46 WRITE (9'REC9) RECPOS,RECORD
49 WRITE (9'REC9) RECPOS,FRSTRE
51 1 FORMAT (/,1X,A2,1H/,A2,3H/19,A2,1X,10A6,A4)
52 2 FORMAT (1X,A2,1H/,A2,3H/19,A2,1H:,$)
54 4 FORMAT (' BAD DATE TODAY - NO ENTRY DONE')
55 5 FORMAT (' BAD ACTION - REPEAT')
56 6 FORMAT (' BAD DATE FOR ',3H'E',' ACTION - NO ENTRY DONE')