ECHO "Please hold some qualifiers pressed..."
WAIT 2 SEC

ECHO "Now getting the pressed qualifiers."
GetQual
IF WARN
  ECHO "The result is..."
  IF $lshift EQ 1
    ECHO "...left <Shift>-key was being pressed"
  EndIF
  IF $rshift EQ 1
    ECHO "...right <Shift>-key was being pressed"
  EndIF
  IF $capslock EQ 1
    ECHO "...<CapsLock> was activated"
  EndIF
  IF $control EQ 1
    ECHO "...<Ctrl>-key was being pressed"
  EndIF
  IF $lalt EQ 1
    ECHO "...left <Alt>-key was being pressed"
  EndIF
  IF $ralt EQ 1
    ECHO "...right <Alt>-key was being pressed"
  EndIF
  IF $lcommand EQ 1
    ECHO "...left <Amiga>-key was being pressed"
  EndIF
  IF $rcommand EQ 1
    ECHO "...right <Amiga>-key was being pressed"
  EndIF
  IF $midbutton EQ 1
    ECHO "...middle mouse-button was being pressed"
  EndIF
  IF $rbutton EQ 1
    ECHO "...right mouse-button was being pressed"
  EndIF
  IF $lbutton EQ 1
    ECHO "...left mouse-button was being pressed"
  EndIF
ELSE
  ECHO "You didn't press any qualifier!"
EndIF
