This is an updated OS4 version of the original 68k CapsTest.

I added return codes to make it more convenient for use in scripts, that
way there's no need to use backticks, but the default output (0 or 1)
should be redirected to NIL: like so:

CapsTest >NIL:
If WARN
 Echo Caps lock was active
Else
 Echo Caps lock was inactive
EndIf

It's quite handy in Startup-Sequence and User-Startup, to make them skip
sections or temporarily enable some feature.

History:

V2.0 07.12.2012
- Rewritten to use PeekQualifier() as suggested by RWO.
- Now works with USB keyboards.
- Executable size is now 8KB instead of 66KB.

V1.1 28.09.2009
- Ported to PPC/OS4
- Added return codes, 5 = Caps Lock is ON, 0 = Caps Lock is OFF, 20 means
  that something went really wrong (failed port/device/memory allocation)
 
V1.0 02.12.1994
- Original 68k Version


Original ReadMe:

I needed a simple program for my scripts which would examine the status of
the caps lock key and report it so the script could act respectively. After
a quick scan over my file base I was unable to find such a tool so I
decided to write one of my own. Here's the result.

Usage:

if `capstest` eq 1  ; capstest returns either 0 or 1
  echo "Caps lock was active"
else
  echo "Caps lock was inactive"
endif

Source code compilable at least with DICE 3.0 has been included. Just type
'execute capstest.c' to compile. Feel free to do whatever with these files
- they're all public domain.