# syntax file for Code-Genie 3.0
# for the VBScript language

CaseInsensitive         true


FgColor    #000000

Number  number1
FgColor  number1  #8000ff

Operator  operator1  -+=&*^%()
FgColor  operator1  #8000ff

BlockStart   block1  '
BlockEnd     block1  \n

FgColor  block1  #008000

Number  number2
FgColor  number2  #008000

BlockStart   block2  "
BlockEnd     block2  "
BlockEnd     block2  """
BlockNotEnd  block2  ""

FgColor  block2  #000000

Number  number3
FgColor  number3  #000000

KeywordGroup  kwd_group1
    Abs  And  Array
    Asc  AscB  AscW
    Atn  CBool  CByte
    CCur  CDate  CDbl
    CInt  CLng  CSng
    CStr  Call  Case
    Chr  ChrB  ChrW
    Const  Cos  CreateObject
    Date  DateAdd  DateDiff
    DatePart  DateSerial  DateValue
    Day  Dim  Do
    Each  Else  Empty
    End  Erase  Err
    Error  Exit  Exp
    Explicit  False  Filter
    Fix  For  FormatCurrency
    FormatDateTime  FormatNumber  FormatPercent
    GetObject  Hex  Hour
    If  InStr  InStrB
    InStrRev  InputBox  Int
    IsArray  IsDate  IsEmpty
    IsNull  IsNumeric  IsObject
    Join  LBound  LCase
    LTrim  Left  LeftB
    Len  LenB  LoadPicture
    Log  Loop  Mid
    MidB  Minute  Month
    MonthName  MsgBox  Next
    Nothing  Now  Null
    Oct  On  Option
    Private  Public  RTrim
    Randomize  ReDim  Rem
    Replace  Right  RightB
    Rnd  Second  Select
    Set  Sgn  Sin
    Space  Split  Sqr Step
    StrComp  StrReverse  String
    Sub  Tan  Then
    Time  TimeSerial  TimeValue
    To  Trim  True
    TypeName  UBound  UCase
    Until  VarType  Weekday
    WeekdayName  Wend  While
    Year
Format   kwd_group1  b
FgColor  kwd_group1  #000080

KeywordGroup  kwd_group2
    vbAbortRetryIgnore  vbApplicationModal  vbBinaryCompare
    vbBlack  vbBlue  vbCr
    vbCrLf  vbCritical  vbCyan
    vbDefaultButton1  vbDefaultButton2  vbDefaultButton3
    vbDefaultButton4  vbExclamation  vbFirstFourDays
    vbFirstFullWeek  vbFirstJan1  vbFormFeed
    vbFriday  vbGeneralDate  vbGreen
    vbInformation  vbLf  vbLongDate
    vbLongTime  vbMagenta  vbMonday
    vbNewLine  vbNullChar  vbNullString
    vbOKCancel  vbOKOnly  vbObjectError
    vbQuestion  vbRed  vbRetryCance
    vbSaturday  vbShortDate  vbShortTime
    vbSunday  vbSystemModal  vbTab
    vbTextCompare  vbThursday  vbTuesday
    vbUseSystem  vbUseSystemDayOfWeek  vbVerticalTab
    vbWednesday  vbWhite  vbYellow
    vbYesNo  vbYesNoCancel
FgColor  kwd_group2  #800040

KeywordGroup  kwd_group3
    AuxMove  ChangeCase  Clipboard
    Confirm  CopyColumn  DelColumn
    Find  GetChar  GetSize
    Indent  LineCount  LineToPos
    PosToLine  Prompt  Replace
    SE  SS  SSE
    Save  SelText  Tabify
    TrimLeft  TrimRight  Unindent
    Untabify  cgCapitalize  cgDocEnd
    cgDocStart  cgFindCase  cgFindRegExp
    cgFindUp  cgFindWholeWord  cgLineEnd
    cgLineStart  cgLowerCase  cgUpperCase
    cgWordLeft  cgWordRight
FgColor  kwd_group3  #000000

Nest   number1      
Nest   operator1      
Nest   block1      
Nest   number2      block1
Nest   block2      
Nest   number3      block2
Nest   kwd_group1      
Nest   kwd_group2      
Nest   kwd_group3      

# eof
