home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 2
/
ctrom_ii_b.zip
/
ctrom_ii_b
/
PROGRAM
/
PASCAL
/
PAS_0593
/
READSHFT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-30
|
741b
|
23 lines
{─ Fido Pascal Conference ────────────────────────────────────────────── PASCAL ─
Msg : 393 of 412
From : Fred Johnson 1:280/5.0 15 May 93 13:35
To : Norman Yen
Subj : Reading SHIFT key?
────────────────────────────────────────────────────────────────────────────────
> Message #10341 - Pascal Programming
> Date: 05-12-93 15:58
> From: Norman Yen
> To: All
> Subject: Reading SHIFT key?
}
uses crt; {for KEYPRESSED}
var iData : integer;
begin
while not keypressed do
begin
iData := mem[$0:$0417];
if ((iData and 1) = 1) then writeln('Right Shift');
if ((iData and 2) = 2) then writeln('Left Shift');
end;
end.