Shift_Pressed


Purpose   Determines if either the Left or Right shift key is being
          depressed.

Decln.    Shift_Pressed:boolean;

Returns   Boolean

Remarks   Returns true if the left shift key is being depressed.

Example

BEGIN
    IF SHIFT_PRESSED THEN
       WRITEAT(40,25,YELLOW,BLACK,CHR(24));
END;