[fpc-pascal]two questions plz help

[Stefan Ziegenbalg]

Hi,

if you are using linux try this:

uses crt,linux;
var t: text;
begin
assign(t,'/dev/tty12');
rewrite(t);
case fork of 
  0: begin
     repeat
      delay(1000);
      write(t,'T1'#10#13);
      until false;
     end;
  else writeln('Tschö');
  end;
end.

The programm (the first process) exit's after calling. The cloned
process outputs `T1' to tty12 until you kill it.


Stefan



----------------------------------------------
mailto:stefan.ziegenbalg at mailbox.tu-dresden.de
http://www.sziegenbalg.de
http://www.simage.org

------------------------------------------------------------------ 
In a world without walls and fences, who needs Windows and Gates ?