U8 *old_font = text.font;

// See $LK,"::/Kernel/FontStd.CC"$, $LK,"::/Demo/ScreenCodes.CC"$,
//$LK,"::/Demo/ExtChars.CC"$, and $LK,"::/Demo/Graphics/FontEd.CC"$.

U64 waves[4] = {0x0011AA440011AA44,0x0022558800225588,0x0044AA110044AA11,0x0088552200885522};

U0 AnimateEndCB()
{
	text.font = old_font;
	Exit;
}

U0 AnimateTask(I64)
{
	I64  i;
	U64 *font = MAlloc(256 * 8);

	Fs->task_end_cb = &AnimateEndCB;
	MemCopy(font, text.font, 256 * 8);
	text.font = font;
	while (TRUE)
	{
		font[CH_SPACE] = waves[i++ & 0x3];
		Sleep(100);
	}
}

Spawn(&AnimateTask, NULL, "Animate",, Fs);
TaskRep;
