flag = 0
heart = MAC
revcTime = 0


CONN SOCK netp
	flag = 1
	revcTime = SYSTIME
END


DISCONN SOCK netp
	flag = 0
END


TIMER HeartBeat 1000
	t = SYSTIME
	t = t - revcTime

	IF(flag == 1)
		IF(t > 5000)
			SEND(SOCK, netp, heart)
			revcTime = SYSTIME
		END
	END
END