CapsOn


Purpose   Indicates if the Caps Lock key is on.

Decln.    CapsOn:boolean;

Returns   Boolean

Remarks   Returns true if the CapsOn key is "illuminated".

Example

BEGIN
    IF CAPSON THEN
       WRITEAT(70,1,WHITE,BLACK,'CAPS')
    ELSE
       WRITEAT(70,1,WHITE,BLACK,'    ')
END;