object TPersHolder
  P.Name = 'Modula-2'
  P.SyntaxBlocks = <
    item
      Name = 'Default'
      CaseSensitive = True
      FIIntNum = 1
      FIFloatNum = 1
      FIHexNum = 1
      UseComments = True
      UseMultiLineComments = True
      UseStrings = True
      UseSingleLineStrings = True
      UseNumbers = True
      UseSuffixedNumbers = True
      UseMultipleNumSuffixes = False
      UseKeywords = True
      BlockDelimiters = <>
      MultiLineCommentDelimiters = <
        item
          FontID = 4
          LeftDelimiter = '(*'
          RightDelimiter = '*)'
        end>
      SingleLineStringDelimiters = <
        item
          FontID = 5
          LeftDelimiter = '"'
          RightDelimiter = '"'
        end>
      NumSuffixes = <
        item
          LeftDelimiter = 'X'
        end
        item
          LeftDelimiter = 'L'
        end>
      KeywordSets = <
        item
          FontID = 6
          Name = 'reserved'
          Keywords = 
            'ARRAY,ASM,BEGIN,BOOLEAN,BY,CARDINAL,CASE,CHAR,CLASS,CONST,DEFINI' +
            'TION,DESTROY,DIV,DO,ELSE,ELSIF,END,EXIT,EXPORT,FOR,FOREIGN,FROM,' +
            'IF,IMPLEMENTATION,IMPORT,INHERIT,INIT,INLINE,INTEGER,LONGCARD,LO' +
            'NGINT,LONGREAL,LOOP,MOD,MODULE,NIL,OF,POINTER,PROCEDURE,REAL,REC' +
            'ORD,REPEAT,RETURN,SET,THEN,TO,TYPE,UNTIL,VAR,WHILE,WITH'
        end>
    end>
  P.FontTable = <
    item
      FontID = 1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 4
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsItalic]
    end
    item
      FontID = 5
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 6
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
    end>
end
