noch'n BF Interpreter

[himitsu]

Zitat von FAlter:

[edit] ReadKey? [/edit]

dieses scheint (unter Windows) zu laufen ... hab ich quasi von sakura ReadKey

Delphi-Quellcode:

// initialisieren
H  := GetStdHandle(STD_INPUT_HANDLE);
FlushConsoleInputBuffer(H);

// abfragen
CI.EventType := KEY_EVENT;
Repeat
Until ReadConsoleInput(H, CI, 1, Cardinal(i)) and (i = 1)
  and (CI.Event.KeyEvent.bKeyDown) and (CI.Event.KeyEvent.AsciiChar <> #0);
M[MP] := CI.Event.KeyEvent.AsciiChar;
FlushConsoleInputBuffer(H);

Zitat von FAlter:

[edit=2] Aber achte bitte auf die Umlaute!
[edit=3] Und heute bezahlt niemand mehr mit DM [/edit]

Hatte das Script "nur" aus einem anderem BF-Dialekt übersetzt und versucht es in diesem Dialekt zum Laufen zu bekommen und bezüglich der Textinhalte nichts geändert.