Re: pascal keyboard reading..

Article View: comp.lang.pascal.misc

Article #94

Back to comp.lang.pascal.misc Previous Next

#94

From: Marcel Vander Mierde
Date: Thu, 09 Dec 1999 00:00

29 lines
1828 bytes

I don't know exactly what you mean but:

Program KBTest;

USES CRT;
VAR cKeyPressed : Char;
BEGIN
ClrScr;
WriteLn('KeyBoard Test :');
WriteLn('Program puts character codes of pressed keys to
screen');
WriteLn('Press any key or combination of keys, press Escape
to exit');
Repeat
   if Keypressed then
      BEGIN
         cKeypressed := ReadKey;
         Write('#', Ord(cKeyPressed));
         if cKeyPressed = Chr(0) then
            Write(' + #',Ord(ReadKey));
         WriteLn;
      END;
Until cKeyPressed = #27

END.


* Sent from AltaVista http://www.altavista.com Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping.  Smart is Beautiful

Technical Details

Message-ID: <0790791c.f29940d5@usw-ex0110-075.remarq.com>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <7s3fss$758$1@uranium.btinternet.com>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 111659,5f5e9a6961581469
X-Google-Attributes: gid111659,public
X-Google-Thread: 10261c,5f5e9a6961581469
X-Google-Attributes: gid10261c,public
X-Google-Thread: 10cc59,5f5e9a6961581469
X-Google-Attributes: gid10cc59,public
X-Google-Thread: 108ebd,5f5e9a6961581469
X-Google-Attributes: gid108ebd,public
From: Marcel Vander Mierde <marcel.vander.mierdeNOmaSPAM@pandora.be.invalid>
Subject: Re: pascal keyboard reading..
Date: 1999/12/09
Message-ID: <0790791c.f29940d5@usw-ex0110-075.remarq.com>
X-Deja-AN: 558695367
References: <7s3fss$758$1@uranium.btinternet.com>
Bytes: 704
X-Originating-Host: 195.130.132.50
X-Complaints-To: wrenabuse@remarq.com
X-Trace: WReNphoon4 944769470 10.0.2.75 (Thu, 09 Dec 1999 11:57:50 PST)
Organization: http://www.remarq.com: The World's Usenet/Discussions Start Here
NNTP-Posting-Date: Thu, 09 Dec 1999 11:57:50 PST
Newsgroups: comp.lang.pascal.misc,borland.public.turbopascal,comp.lang.pascal,comp.lang.pascal.borland
X-Wren-Trace: eAgtBQQdWhBbRR0SDk0FTwwaFgkIHgYTBAEVDwQ8AUkJCkcbBwYfA0RYVVhIGUhPR1VXVVECOA==

Reply to Parent Message