---input---
USING Progress.Lang.*.

CLASS Test INHERITS Progress.Sucks:

  DEFINE PRIVATE VARIABLE cTest AS CHAR NO-UNDO.

  CONSTRUCTOR PUBLIC Test():
    SUPER().
    MESSAGE "Why are you punishing yourself by coding in this language?".
  END CONSTRUCTOR.

  METHOD PUBLIC LOGICAL Blowup(INPUT iTime AS INT):
  END.

END CLASS.

---tokens---
'USING'       Name.Builtin
' '           Text
'Progress'    Name.Builtin
'.'           Punctuation
'L'           Name.Variable
'a'           Name.Variable
'n'           Name.Variable
'g'           Name.Variable
'.'           Punctuation
'*'           Operator
'.'           Punctuation
'\n\n'        Text

'CLASS'       Name.Builtin
' '           Text
'T'           Name.Variable
'e'           Name.Variable
's'           Name.Variable
't'           Name.Variable
' '           Text
'INHERITS'    Name.Builtin
' '           Text
'Progress'    Name.Builtin
'.'           Punctuation
'S'           Name.Variable
'u'           Name.Variable
'c'           Name.Variable
'k'           Name.Variable
's'           Name.Variable
':'           Punctuation
'\n\n  '      Text
'DEFINE'      Keyword.Declaration
' '           Text
'PRIVATE'     Name.Builtin
' '           Text
'VARIABLE'    Name.Builtin
' '           Text
'c'           Name.Variable
'T'           Name.Variable
'e'           Name.Variable
's'           Name.Variable
't'           Name.Variable
' '           Text
'AS'          Name.Builtin
' '           Text
'CHAR'        Keyword.Type
' '           Text
'NO-UNDO'     Name.Builtin
'.'           Punctuation
'\n\n  '      Text
'CONSTRUCTOR' Name.Builtin
' '           Text
'PUBLIC'      Name.Builtin
' '           Text
'T'           Name.Variable
'e'           Name.Variable
's'           Name.Variable
't'           Name.Variable
'('           Punctuation
')'           Punctuation
':'           Punctuation
'\n    '      Text
'SUPER'       Name.Builtin
'('           Punctuation
')'           Punctuation
'.'           Punctuation
'\n    '      Text
'MESSAGE '    Name.Builtin
'"Why are you punishing yourself by coding in this language?"' Literal.String.Double
'.'           Punctuation
'\n  '        Text
'END'         Name.Builtin
' '           Text
'CONSTRUCTOR' Name.Builtin
'.'           Punctuation
'\n\n  '      Text
'METHOD'      Name.Builtin
' '           Text
'PUBLIC'      Name.Builtin
' '           Text
'LOGICAL'     Keyword.Type
' '           Text
'B'           Name.Variable
'l'           Name.Variable
'o'           Name.Variable
'w'           Name.Variable
'u'           Name.Variable
'p'           Name.Variable
'('           Punctuation
'INPUT'       Name.Builtin
' '           Text
'i'           Name.Variable
'T'           Name.Variable
'i'           Name.Variable
'm'           Name.Variable
'e'           Name.Variable
' '           Text
'AS'          Name.Builtin
' '           Text
'INT'         Keyword.Type
')'           Punctuation
':'           Punctuation
'\n  '        Text
'END'         Name.Builtin
'.'           Punctuation
'\n\n'        Text

'END'         Name.Builtin
' '           Text
'CLASS'       Name.Builtin
'.'           Punctuation
'\n'          Text
