[Turbo Pascal] Tastaturpuffer löschen

[kampfmuecke]

Hi ich habe nen Problem in der Schule progen wir gerade Turbo Pascal ( ich wies veraltet etz. ) und jetzt frage ich mit ReadKey den Tastaturpuffer ab aber in dem werden ja alle Eingaben gespeichert und da liegt mein Problem ich will nur die letzte Eingabe lesen.
Meine Idee war

WHILE KeyPressed DO ReadKey;

aber dann wartet er immer an der stelle das will ich auch nicht.
Da war es meine Idee den Tastaturpuffer zu löschen und dann neu abzufragen aber da ist das Problem wie lösche ich den habe schon mal gegoogelt und das gefunden

mem[$40:$01A]:=mem[$40:$01C];

aber da macht er immer nur Fehler da er mem nicht findet. ist das eine Variable oder was???
Oder habt ihr eine andere Idee.

THX im vorraus

mfg kampfmuecke

 

[Speedy]

Das ist eine BP7 Unit, vielleicht hilft dir das.

Speedy

 

[kampfmuecke]

mir ist da noch ne idee gekommen aber ich weiß nicht wie ich das codden soll ich will den tastaturpuffer solange auslesen bis sein ende ist oder nichts mehr drinnen sethet