A large commit.

[pdp8.git] / sw / rescue / lab8e_goettingen / disk2_11 / rkb / paroff / hanum.ft

	INCLUDE HAPART.FI\r
	INTEGER A,B,HH,MM,SS,AHH,AMM,ASS\r
	DATA A,B,HH,MM,SS\r
     *  / 5*0 /\r
	WRITE (4,2)\r
2	FORMAT (24(/),' HHMMSS ',$)\r
	READ (4,3) HH,MM,SS\r
3	FORMAT (3I2)\r
	WRITE (4,4)\r
4	FORMAT ('+',15X)\r
	CALL CLOCK (0,1)\r
10	IF (A.GT.INT(TIME(B))) GOTO 10\r
	A=A+1\r
	SS=MOD(SS+1,60)\r
	IF (SS.EQ.0) MM=MOD(MM+1,60)\r
	IF (MM.EQ.0 .AND. SS.EQ.0) HH=MOD(HH+1,24)\r
	AHH=TOASCI(HH)\r
	AMM=TOASCI(MM)\r
	ASS=TOASCI(SS)\r
	WRITE (4,1) AHH,AMM,ASS\r
	GOTO 10\r
1	FORMAT (1H+,2(A2,1H:),A2)\r
	END\r
\1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0