COMSTAT

:Object COMSTAT        <Super Object

Record: AddrOf

        int   lpComStatBits             \ a 32bit cell of bit fields

      1 bits  fCtsHold                  \ define the bit fields Low to High

      1 bits  fDsrHold

      1 bits  fRlsdHold

      1 bits  fXoffHold

      1 bits  fXoffSent

      1 bits  fEof

      1 bits  fTxim

     25 bits  fReserved

        int   cbInQue

        int   cbOutQue

;RecordSize: SIZEOFCOMSTAT

:M Reset:       ( -- )

                AddrOf SIZEOFCOMSTAT erase

                ;M

:M ClassInit:   ( -- )

                ClassInit: super

                Reset: self             \ create structure as Reset

                ;M

;Object