Type
           Range       = integer;
           Number      = integer;
           Color       = (red, green, blue);
           TestIndex   = 1..100;
           TestValue   = -99..99;
           TestList    = array[TestIndex] of TestValue;
           TestListPtr = TestList;
           Date        = Record
                            Year : Integer;
                            Month: 1..12;
                            day:  1..31;
                          end;
           MeasureData = Record
                            when : Date;
                            count : TestIndex;
                            data : TestListPtr;
                          end;
           MeasureList = array[1..50] of MeasureData;
           Name        = string[80];
           Sex         = (male, female);
           Person      = PersonData;
           PersonData  = record
                           name, firstName:  Name;
                           age:              integer;
                           married:          boolean;
                           father, child, sibling:  Person;
                             case s:  Sex of
                               male:  (bearded:  boolean);
                               female: (pregnant:  boolean);
                         end;
            People   =  file of PersonData;
            IntFile  =  file of integer

         Var
            X,Y,Z:  real;
            I,J,K:  integer;
            Digit:  0..9;
            C: Color;
            Done,Error:  boolean;
            Operator:  (plus, minus, times);
            Huel,Hue2:  set of Color;
            Today:  Date;
            Results:  MeasureList;
            P1,P2:  Person;
            Matrix:  array[1..10,1..1] of real;
            CrtMode   :  byte absolute $0040:0049;
            monochrome Buffer  :  array[1..25,1..80] of
            record
              character,
              attribute  :  char
            end
            absolute     $B000:$0000;