All pastes #840300 Raw Edit

Untitled

public text v1 · immutable
#840300 ·published 2007-12-31 18:04 UTC
rendered paste body
procedure AppOnIdle(Ticks: integer);
begin
	if Ticks mod (60 * 30) = 0 then begin
		WriteLn('30 seconds has passed');
	end;
end;


-OR-


procedure AppOnIdle(Ticks: integer);
begin
	if Ticks mod (60 * 30) = 0 then
		WriteLn('30 seconds has passed');
end;