' KEYS_1.LST
' to determine if a special key has been
' pressed, either on its own or in
' combination with other special keys
' -------------------------------------
' status% = 1: Right Shift
' status% = 2: Left Shift
' status% = 4: Control
' status% = 8: Alternate
' status% = 16: CapsLock
'
REPEAT
  status%=BIOS(11,-1) AND 2
  PRINT AT(5,5);status%'
UNTIL MOUSEK=2