11 lines
153 B
Plaintext
11 lines
153 B
Plaintext
var touche:byte;
|
|
begin
|
|
repeat
|
|
asm
|
|
mov ah,8
|
|
int 21h
|
|
mov touche,al
|
|
end;
|
|
write(touche,' ');
|
|
until touche=27
|
|
end. |