WTIM		EQU	011A

HLK60:		PUSH	DE
		PUSH	AF
		PUSH	BC
		LD	E,A
		XOR	A
		LD	D,A
		ADD	HL,HL
		RL	C
		LD	B,4
HLK601:		ADD	HL,HL
		RL	C
		EX	DE,HL
		ADD	HL,DE
		EX	DE,HL
		ADC	A,C
		DJNZ	HLK601
		POP	BC
		LD	C,A
		EX	DE,HL
		POP	AF
		POP	DE
		RET

NRTIME:		LD	HL,WTIM
		XOR	A
		CALL	OPENM
		CALL	PUTSPC
		LD	HL,MTIME
		CALL	TEXT
		CALL	TEXT0
		DEFM	':'
NRTIME1:	DEFB	0
		LD	HL,NRTIME1
		CALL	ILN
		CALL	CLOSEW
		CALL	CPESBR
		RET	Z
		EX	DE,HL
		LD	A,(DE)
		CALL	CPADEK
		RET	C
		LD	BC,0
		CALL	HLDEK
		EX	AF,AF'
		LD	A,L
		EX	AF,AF'
		LD	A,(DE)
		INC	DE
		OR	A
		JR	Z,NRTIME2
		CALL	HLDEK
		LD	B,L
		LD	A,(DE)
		INC	DE
		OR	A
		JR	Z,NRTIME2
		CALL	HLDEK
		LD	C,L
NRTIME2:	LD	E,C
		XOR	A
		LD	C,A
		LD	H,A
		LD	L,A
		EX	AF,AF'
		CALL	HLK60
		EX	AF,AF'
		LD	A,B
		CALL	HLK60
		LD	A,E
		CALL	HLK60
		LD	A,C
		AND	1
		DI
		LD	(TIME+2),A
		LD	(TIME),HL
		EI
		RET
