Quelltext /~heha/hs/io32.zip/SRC/IO32T.PAS

uses Windows,io32;
var
 B: Byte;
begin
 B:=inb($378);
 outb($378,$66);
 MessageBox(0,'Hallo, IO32!','IO32T',MB_OK);
 outb($378,B);
end.