pascal kerdes

[Info]

Szia !

> sajna azt se tudja megmondani mibaja...
> csak vmit rinyál és kész.
> amugy a bray fele terminal-nak a script része
> ezt pl tudja :), ez a sample:

És Te tudod mit akarsz ? :)
Van valami COM-olvasás-írás és writeln...ezmi ?
Ha a comsendchr() egyenlő a write()-vel akkor:

   while not(i=27) do // wait for ESC char
   begin
     i:=0;
     while i=0 do i:=ComReadChr();
     if not(i=27)then begin
       ii := (i shr 4) + 48;
       i := (i and 15) + 48;
       if (i > 57) then i := i + 8;
       if (ii > 57) then ii := ii + 8;
       comsendchr(ii);
       comsendchr(i);
       if (i = 52) then if (ii = 70) then writeln('');
     end;
   end.