Re: Left & Right Shift?

 BBS: Inland Empire Archive
Date: 09-11-92 (09:50)             Number: 294
From: BOB PERKINS                  Refer#: NONE
  To: WALTON DELL                   Recvd: NO  
Subj: Re: Left & Right Shift?        Conf: (2) Quik_Bas

 WD>   How can I quickly find the status of the left and right shift
 WD> keys?  I know I can use an interrupt, but I think a PEEK would
 WD> be faster.

 DEF SEG = 0
 DO
   x% = PEEK(&H417)
   IF x% AND 1 THEN PRINT "Right Shift Key Down"
   IF x% AND 2 THEN PRINT "Left Shift Key Down"
 LOOP WHILE INKEY$ <> CHR$(27)


--- Msg V4.5
 * Origin: Reciprocity Failure  (1:124/4115.236)