<?xml version="1.0" encoding="windows-1251"?>
<SynUniHighlighter Version="2.0">
	<SyntaxColoring>
		<Info>
			<General Name="LotusScript" Extensions="LS" Version="1" Revision="0" Sample="" History=""/>
			<Author Name="Vitaly Nevzorov" Mail="nevzorov@yahoo.com" Web="www.delphist.com" Copyright="Copyright (c) Vitaly Nevzorov, 2002" Company="N/A" Remark="Created based on UltraEdit:lotusscript.txt"/>
		</Info>
		<Schemes/>
		<Editor/>
		<MainRules Name="Root" Style="Root">
			<Attributes Foreground="clBlack" Background="clWhite"/>
			<Delimiters Value="!&quot;%&amp;'()*+,-./:;&lt;=&gt;?@[\]^{|}~"/>
			<SubRules>
				<Range Name="Remarks '" Style="Remarks '">
					<Attributes Foreground="clNavy" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties CloseOnEol="True"/>
					<MultiTokens>
						<Tokens Open="'"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<Range Name="Remarks %REM..%END" Style="Remarks %REM..%END">
					<Attributes Foreground="clNavy" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties/>
					<MultiTokens>
						<Tokens Open="%REM" Close="%END"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<KeyList Name="Key Words 1" Enabled="True" Style="" Words="Abs
Access
ACos
ActivateApp
Alias
And
Any
Append
As
Asc
ASin
Atn
Atn2
Base
Beep
Bin
Bin$
Binary
Bind
ByVal
Call
CCur
CDat
CDbl
ChDir
ChDrive
Chr
Chr$
CInt
Class
CLng
Close
Command
Command$
Compare
Const
Cos
CSng
CStr
CurDir
CurDir$
CurDrive
CurDrive$
CVar
DataType
Date
Date$
DateNumber
DateValue
Day
Declare
DefCur
DefDbl
DefInt
DefLng
DefSng
DefStr
DefVar
Delete
Dim
Dir
Dir$
Environ
Environ$
EOF
Eqv
Erase
Erl
Err
Error
Error$
Evaluate
Event
Execute
Exit
Exp
FALSE
FileAttr
FileCopy
FileDateTime
FileLen
Fix
Format
Format$
Fraction
FreeFile
FromFunction
Get
GetFileAttr
Hex
Hex$
Hour
IMEStatus
Imp
In
Input
Input$
InputB
InputB$
InputBox
InputBox$
InputBP
InputBP$
InStr
InStrB
InStrBP
Int
Is
IsArray
IsDate
IsElement
IsEmpty
IsList
IsNull
IsNumeric
IsObject
IsScalar
IsUnknown
Kill
LBound
LCase
LCase$
Left
Left$
LeftB
LeftB$
LeftBP
LeftBP$
Len
LenB
LenBP
Let
Lib
Like
Line
List
ListTag
LMBCS
Loc
Lock
LOF
Log
Loop
LSet
LTrim
LTrim$
Me
MessageBox
Mid
Mid$
MidB
MidB$
Minute
MkDir
Mod
Month
Name
New
NoCase
NoPitch
Not
NOTHING
Now
NULL
Oct
Oct$
On
Open
Option
Or
Output
PI
Pitch
Preserve
Print
Private
Property
Public
Put
Random
Randomize
Read
ReDim
Rem
Remove
Reset
Resume
Return
Right
Right$
RightB
RightB$
RightBP
RightBP$
RmDir
Rnd
Round
RSet
RTrim
RTrim$
Second
Seek
SendKeys
Set
SetFileAttr
Sgn
Shared
Shell
Sin
Space
Space$
Spc
Sqr
Static
Step
Stop
Str
Str$
StrCompare
String$
Sub
Tab
Tan
Time
Time$
TimeNumber
Timer
TimeValue
To
Today
Trim
Trim$
TRUE
Type
TypeName
UBound
UCase
UCase$
UChr
UChr$
Uni
Unicode
Unlock
Use
UseLSX
UString
UString$
Val
With
Write
Xor
Year
Yield
">
					<Attributes Foreground="clGreen" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Key Words 2" Enabled="True" Style="" Words="Currency
Double
Integer
Long
Single
String
Variant
">
					<Attributes Foreground="clBlue" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Key Words 3" Enabled="True" Style="" Words="Case
Do
Else
End
ElseIf
For
Forall
If
Next
Select
Then
Until
Wend
While
GoSub
GoTo
">
					<Attributes Foreground="$00FF0080" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Key Words 4" Enabled="True" Style="" Words="NotesACLNotesACLEntry
NotesAgent
NotesDatabase
NotesDateRange
NotesDateTime
NotesDbDirectory
NotesDocument
NotesDocumentCollection
NotesEmbeddedObject
NotesForm
NotesInternational
NotesItem
NotesLog
NotesName
NotesNewsLetter
NotesRegistration
NotesRichTextItem
NotesRichTextStyle
NotesSession
NotesTimer
NotesView
NotesViewColumn
NotesUIDatabase
NotesUIDocument
NotesUIView
NotesUIWorkspace
Navigator
notesaclnotesaclentry
notesagent
notesdatabase
notesdaterange
notesdatetime
notesdbdirectory
notesdocument
notesdocumentcollection
notesembeddedobject
notesform
notesinternational
notesitem
noteslog
notesname
notesnewsletter
notesregistration
notesrichtextitem
notesrichtextstyle
notessession
notestimer
notesview
notesviewcolumn
notesuidatabase
notesuidocument
notesuiview
notesuiworkspace
navigator
">
					<Attributes Foreground="$000080FF" Background="clWhite"/>
				</KeyList>
			</SubRules>
		</MainRules>
	</SyntaxColoring>
	<CodeFolding/>
	<CustomData/>
</SynUniHighlighter>