home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 2
/
ctrom_ii_b.zip
/
ctrom_ii_b
/
PROGRAM
/
PASCAL
/
PAS_0593
/
KBD-LOCK.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-30
|
723b
|
24 lines
{─ Fido Pascal Conference ────────────────────────────────────────────── PASCAL ─
Msg : 308 of 346
From : Steven Tallent 1:3811/210.0 24 May 93 21:05
To : John Pittman
Subj : Pause Key
────────────────────────────────────────────────────────────────────────────────
-=> Quoting John Pittman to All <=-
JP> Does anyone know how to disable the pause key?
You can disable the whole keyboard like this:}
Procedure KeyboardEnable; {unlocks keyboard}
Begin
Port[$21] := Port[$21] and 253;
end;
Procedure KeyboardDisable; {locks keyboard}
Begin
Port[$21] := Port[$21] or 2;
end;
Of course, they can't input anything until you unlock it, but
this should do it.