program schrijfio; uses wincrt;
const
   adres = $3BC;
var
   data: byte;
begin
   write('Geef de data: ');
   read(data);
   port[adres]:=data;
   write('De data ', data, ' is geschreven naar I/O-adres ', adres)
end.