A large commit.

[pdp8.git] / sw / rescue / lab8e_goettingen / disk2_11 / rka / paroff / work.ft

	EXTERNAL TIME\r
	INTEGER S1,IXTA,TIME\r
	EXTERNAL S1,IXTA\r
	INTEGER M,D,Y\r
	INTEGER REC9,LSTDAY,\r
     *  RECORD(14,6),FRSTRE(14,6),\r
     *  RECPOS,I,LSTACT\r
C	STATEMENT FUNCTIONS ARE:\r
	INTEGER POS\r
	POS(I1)=MOD(I1,6)+1\r
C\r
C\r
	DEFINE FILE 9 (400,85,U,REC9)\r
C\r
50	CONTINUE\r
	REC9=1\r
	READ (9'REC9) RECPOS,FRSTRE	\r
	REC9=RECPOS/6+1			\r
	READ (9'REC9) RECPOS,RECORD	\r
	LSTDAY=RECORD(2,POS(RECPOS))\r
	WRITE (4,1) (RECORD(I,POS(RECPOS)),I=1,14)\r
	LSTACT=IXTA(S1(RECORD(4,POS(RECPOS))))\r
C	READ THE NEXT ENTRY\r
	RECPOS=RECPOS+1\r
	CALL DATE (M,D,Y)		@ GET TODAYS DATE IN INTEGERS\r
	IF (M.GE.1.AND.M.LE.12) GOTO 10 @ TEST FOR AN VALID DATE WORD\r
	WRITE (4,4)			@ NO VALID DATE, SO WE TAKE NO ACTION\r
	STOP\r
20	CONTINUE\r
	WRITE (4,5)\r
	GOTO 50\r
30	CONTINUE\r
	WRITE (4,6)\r
	STOP\r
10	CONTINUE\r
	CALL ADATE (RECORD(1,POS(RECPOS)))\r
	WRITE (4,2) (RECORD(I,POS(RECPOS)),I=1,3)\r
	READ (4,3) (RECORD(I,POS(RECPOS)),I=4,14)\r
	NXTACT=IXTA(S1(RECORD(4,POS(RECPOS))))\r
	IF (LSTACT.EQ.NXTACT) GOTO 20\r
	IF (NXTACT.NE.IXTA(S1(1HA)).AND.\r
     *      NXTACT.NE.IXTA(S1(1HE))) GOTO 20\r
	IF (NXTACT.EQ.IXTA(S1(1HE)).AND.LSTDAY.NE.RECORD(2,POS(RECPOS)))\r
     *   GOTO 30\r
	REC9=RECPOS/6+1\r
	WRITE (9'REC9) RECPOS,RECORD\r
	IF (REC9.EQ.2) STOP\r
	REC9=1\r
	WRITE (9'REC9) RECPOS,FRSTRE\r
	STOP\r
1	FORMAT (/,1X,A2,1H/,A2,3H/19,A2,1X,10A6,A4)\r
2	FORMAT (1X,A2,1H/,A2,3H/19,A2,1H:,$)\r
3	FORMAT (11A6)\r
4	FORMAT (' BAD DATE TODAY - NO ENTRY DONE')\r
5	FORMAT (' BAD ACTION - REPEAT')\r
6	FORMAT (' BAD DATE FOR ',3H'E',' ACTION - NO ENTRY DONE')\r
	END\r
\1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0