program prog02;
begin
   port[$3BC]:=port[$3BD]
end.
