program werkboek;
begin
	port[$3bc]:=$24
end.