' KEYS.LST
' to determine which
' keys have been pressed
' -----------------------
' status% = 1: Right Shift
' status% = 2: Left Shift
' status% = 4: Control
' status% = 8: Alternate
' status% = 16: CapsLock
' the results are added, i.e.
' 7 = Left Shift+Right Shift+Control
'
REPEAT
  status%=BIOS(11,-1)
  PRINT AT(5,5);status%'
UNTIL MOUSEK=2