KEYPRESSED                  Test For Active Key                      pp 143

 Syntax:  KeyPressed

 Type:    Boolean

 Form:    Function

 Purpose: Returns True if a key has been pressed at the console, and
          False if no key pressed.


 ----------------------------------------------------------------------------


 Usage:
       BEGIN
          If KeyPressed then
             Begin
             End;
       END.