CheckQualifiers
                              ~~~~~~~~~~~~~~~
                              
                                Version 1.4
                                
                                15-Jan-1995


Legal Stuff:
~~~~~~~~~~~~
DISCLAIMER: CHECKQUALIFIERS SOFTWARE IS PROVIDED "AS-IS", NO WARRANTIES OF
ANY KIND ARE MADE. ALL USE IS AT YOUR OWN RISK.

Copyright: Freeware

CheckQualifiers wurde auf einem A4000 mit OS 3.1 (V40) geschrieben und
getestet, sollte aber (theoretisch) ab 68000 und OS 2.04 (V37) laufen.

Beschreibung:
~~~~~~~~~~~~~
CheckQualifiers ist ein CLI-Progrämmchen, das nachsieht, ob gegebene
Zusatztasten (Shift, Mausknöpfe, ...) gegenwärtig gedrückt sind und
abhängig davon verschiedene Werte zurückgibt, die dann abgefragt werden
können:

0: keine der angegebenen Zusatztasten
1: mindestens eine der angegebenen Zusatztasten, aber nicht alle und
   möglicherweise weitere
2: alle angegebenen Zusatztasten und noch mindestens eine weitere
3: genau die angegebenen Zusatztasten

Solange kein Fehler aufttritt und die Schablone nicht ausgegeben wird macht
CheckQualifiers keine Ausgabe, so daß ein geschlossenes CLI-Fenster
(hoffentlich) nicht aufgeht.

Schablone:
LSHIFT/S,RSHIFT/S,CAPSLOCK/S,CONTROL/S,LALT/S,RALT/S,LCOMMAND/S,RCOMMAND/S,
MIDBUTTON/S,RIGHTBUTTON/S,LEFTBUTTON/S

Beispiel:
~~~~~~~~~
Es wird auf LSHIFT und LALT abgefragt. Da der Inhalt von $rc (der
Return-Code von CheckQualifiers) von IF verändert wird, muß er bei mehreren
IF-Abfragen zwischengespeichert werden.

	CheckQualifiers LSHIFT LALT
	Echo >ENV:cqrc $rc
	
	IF VAL $cqrc EQ 0
		Echo "weder LSHIFT noch LALT"
	ENDIF
	
	IF VAL $cqrc EQ 1
		Echo "LSHIFT oder LALT, aber nicht beide"
	ENDIF
	
	IF VAL $cqrc EQ 2
		Echo "LSHIFT und LALT und nochetwas"
	ENDIF
	
	IF VAL $cqrc EQ 3
		Echo "LSHIFT und LALT und sonst nichts"
	ENDIF
	
	UnSetEnv cqrc

EQ prüft auf Gleichheit. GT, GE, NOT GT und NOT GE prüfen auf >, >=, <= und
<.

Autor:
~~~~~~
Thomas Ansorge
Dinkelackerring 55
D-67435 Neustadt an der Weinstraße
Germany
EUROPE

Grüße gehen an...
~~~~~~~~~~~~~~~~~
meine Beta-Tester Michael und Stephan,

alle, die auch 'mal 'was schreiben und veröffentlichen, ohne etwas dafür zu
verlangen.

Happy checking! Th. :-})