ScrollOn


Purpose   Indicates whether the Scroll Lock key is on.

Decln.    ScrollOn:boolean;

Returns   Boolean

Remarks   Returns true if the Scroll Lock key is "illuminated".

Example

BEGIN
    IF SCROLLON THEN
       WRITEAT(70,1,WHITE,BLACK,'SCR')
    ELSE
       WRITEAT(70,1,WHITE,BLACK,'   ')
END;