program Demo;
var a : Integer;
    b : TDateTime;

Begin
b := Now;

for a := 1 to 10 do
	begin
	UseSkill('anatomy');
	WaitForTarget(3000);
	TargetToObject(Self);
	end;


a := InJournalBetweenTimes('System',b,Now);
While a >= 0 do 
	begin
	SetJournalLine(a,'');
	a := InJournalBetweenTimes('System',b,Now);
	end;


End.