aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Ändert den Tastenpuffer.

Programm

uses dos;

procedure tastenpuffer_fuellen(taste:string);
var i,bis:1..15;
    s:char;
begin
if ord(taste[0])<15 then bis:=ord(taste[0]) else bis:=15;
for i:=1 to ord(taste[0]) do
begin
s:=taste[i];
asm
mov ah, 05h
xor ch, ch
mov cl, s      {Tastenpuffer füllen, Zeichen für Zeichen}
int 16h
end;
end;
end;

procedure tastenpuffer_leeren;
var  c:word;
begin
while c>0 do begin
asm
 mov ah, 01h
 int 16h
 mov c,ax       {prüft, ob zeichen im Tastenpuffer}
end;
if c=0 then break;
asm
xor ah, ah         {löscht dieses Zeichen }
int 16h
end;
end;
end;

begin
tastenpuffer_fuellen('Fabian Reuter');
readln;
end.

---

Gastarbeiter 14:56, 26. Apr 2006 (CEST)

---