MODULE Cell;

   IMPORT Strings;

   TYPE P* = POINTER TO T;
        T* = RECORD
        END;

   PROCEDURE ( c : P ) WriteNum*;
   
   END WriteNum;
   
   PROCEDURE ( c : P ) GetText* ( VAR text : ARRAY OF CHAR );
   
   BEGIN
      Strings.Assign ( "", text );
   END GetText;
        
   PROCEDURE ( c : P ) GetColors* ( VAR colors : ARRAY OF CHAR );
   
   BEGIN
      Strings.Assign ( "", colors );
   END GetColors;
        
END Cell.