! RECORD templates:
  RECORD Family
      GROUP Extended_family
        STRING Grandfather(1) = 30 ! Two-element fixed-length string
        STRING Grandmother(1) = 30 ! arrays for the names of maternal
                                                    ! and paternal grandparents.
        GROUP Nuclear_family
            STRING Father = 30 ! Fixed-length strings for the names
            STRING Mother = 30 ! of parents.
              GROUP Children (10) ! An 11-element array for the names and
                                                    ! gender of children.
                  STRING Kid = 10
                  STRING Gender = 1
              END GROUP Children
        END GROUP Nuclear_family
      END GROUP Extended_family
  END RECORD
  ! Declarations
  DECLARE Family My_family
  ! Program logic starts here.
  My_family::Extended_family::Nuclear_family::Children(1)::Kid = "Johnny"
  PRINT My_family::Children(1)::Kid
  END