CREATE CLASS          Start the class definition block  
------------------------------------------------------------------------------


 SYNTAX:

  [CREATE] CLASS <cClassName> [INHERITE | FROM | OF <cSuperClass>]



 PARAMETER:

  <cClassName>      Is the name of the Class to create. This name will be
                    returned by object:ClassName

  <cSuperClass>     The class name of the Parentclass from which to inherite



 DESCRIPTION:

  This Command starts a CREATE CLASS .. END CLASS Definition block, in which 
  all class variables and methods are defined. 



 EXAMPLE:


    +--------------------------------------------------------------+
    |  /* Create Class TDEMO  */                                   |
    |   CREATE CLASS TDEMO                                         |
    |                                                              |
    |    PROTECTED:                                                |
    |        VAR  oWnd AS OBJECT                                   |
    |                                                              |
    |    EXPORT:                                                   |
    |        VAR  nRow, nCol AS NUM INIT 0                         |
    |        VAR  bAction                                          |
    |                                                              |
    |    METHOD   New   Constructor                                |
    |    METHOD   Demo                                             |
    |    MESSAGE  Open  METHOD OpenDemo                            |
    |                                                              |
    |  END CLASS                                                   |
    +--------------------------------------------------------------+


  we have created a new class by the name of TDEMO. This class has one 
  protected (readOnly) var, 3 exported var's, and 3 Methods.

  A new object of the TDEMO-Class can be created by calling:


    +--------------------------------------------------------------+
    |   oDemo := TDEMO():New ( <Parameter> )                       |
    +--------------------------------------------------------------+