Set_Num


Purpose   Forces the Num Lock key on or off.

Decln.    Set_Num(On:Boolean);

Remarks   On is a boolean to indicate if the Num lock should be set to on,
          i.e. true to set it on and false to set it off.

          This procedure will only function on IBM machines and 100%
          compatibles. Clone machines that have cheap keyboards or non-
          standard BIOS will not properly illuminate the Num Lock key -
          some clones use a mechanical trigger to change the Num Lock light
          and do not detect a software change.

Example

BEGIN
    IF NUMON THEN
    BEGIN
        FWRITE('TURNING OFF THE NUM LOCK KEY');
        SET_NUM(FALSE);
    END;
END;