:Class Disk  <Super Object

             int cylinders
             int sectors
             int b/sec
        32 bytes disk-name

        :M ClassInit:   ( -- )
                        0 to cylinders
                        0 to sectors
                        0 to b/sec      ;M

        :M !Attributes: ( cyl sec b/sec -- )
                        to b/sec
                        to sectors
                        to cylinders    ;M

        :M Attributes:  ( -- cyl sec b/sec )
                        cylinders
                        sectors
                        b/sec           ;M

        :M FreeBytes:   ( -- freebytes )
                        cylinders sectors * b/sec * ;M

        ;Class

\ demo 
        Disk myDisk1			\ object 
        
        1024 32 512 !Attributes: myDisk1  \ ¦s¤J
        
        Attributes: myDisk1               \ ¨ú¥X