Hi Matti
Halt, geht ja so gar nicht. Dann würde die zweite if-Anweisung quasie "nie" ausgeführt.
------------------------------------------------------
if($Abus eq "busy"){
close (FIRSTCONTROL);
Besetzt();
exit(0);
}
if($Abus eq "free"){
seek(FIRSTCONTROL, 0, 0);
print FIRSTCONTROL "busy";
close (FIRSTCONTROL);
}
------------------------------------------------------
Aber vielleicht so?
Gruß Gary