Autor: Marcin Wojtczuk (r00t_at_boo.pl)
Data: Tue 12 Mar 2002 - 00:04:08 MET
begin Rafał quotation:
> Chodzi mi kody klawiszy na klawiaturze(oczuwiscie nie chodzi mi o
> ASCI)
Napisz programik w pascalu ;-)
Piszę z pamięci:
uses crt;
var k:char;
begin
repeat
begin
k:=readkey;
if k=#0 then k:=readkey;
writeln(Ord(k));
end;
until k=#127
end.
#127 to Ctrl+Backspace
Dziś takie duperele musiałem pisać na zajęciach ;>
BTW: Moje zamiłowanie do "begin " pochodzi po części właśnie od
pascala..
--
Reboot America.
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Wed 19 May 2004 - 00:28:20 MET DST