pascal kerdes

[Info]

Szia !

> Jajj, felreertettel.
> A sample-hoz semmi közöm, azt csak bemasoltam "tanulsagkepp"....kerdezted
> mit tud az interpreter.
> Arra volt valasz kb. jobbhijjan....

Én meg abban a szintaktikában írtam vissza, azt nem eszi meg ?
Ebben már csak az shr és az and lehet akadály, azt is meg lehet oldani
:)

> Hibaüzenet értelmetlen...
Mégis mi ?

> Szamolni kellene a hex tömb helyett a kiirandókat.
Amit utoljara irtam szamolva van.

> Ord ellentéte micsoda?
Chr, de az ord fgv azt jelenti, hogy hanyadik a karakter. A chr meg
karaktert csinál de ez csak tipusellenőrzés miatt kellene.
Szerintem ennek az interpreternek mindegy. Ami longintet karakternek
eszik az más aljasságokra is képes :)

Na ez a vége (ebben már csak osztás van és kacsacsőr):
megj.: volt már olyan interpreterhez szerencsém ami nem ette meg a két
if-et egymásban...

    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 / 16;
        i := i - ii;
        ii := ii + 48;
        i := i + 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.