fwrite(STDOUT, "Jak se jmenujes?\r\n");
$line = trim(fgets(STDIN));
fwrite(STDOUT, "Rad te poznavam, " . $line . "!\r\n");
fwrite(STDOUT, "Jak se dneska mas?\r\n");
$line = trim(fgets(STDIN));
switch ($line)
{
case "dobre": fwrite(STDOUT, "To jsem rad! ;)\r\n"); break;
default: fwrite(STDOUT, "I " . $line . " se muzes mit.\r\n"); break;
}
fgets(STDIN);