5
{ Program to demonstrate the IOCtl function. }
10
IOCtl(1,TCGETS,@tios);
11
WriteLn('Input Flags : $',hexstr(tios.c_iflag,8));
12
WriteLn('Output Flags : $',hexstr(tios.c_oflag,8));
13
WriteLn('Line Flags : $',hexstr(tios.c_lflag,8));
14
WriteLn('Control Flags: $',hexstr(tios.c_cflag,8));