diff --git a/SBGInterpreter041.sb b/SBGInterpreter041.sb
new file mode 100644
index 0000000..043f2bf
--- /dev/null
+++ b/SBGInterpreter041.sb
@@ -0,0 +1,3103 @@
+' Small Basic Graphics Interpreter
+' Version 0.41
+' Copyright © 2018 Nonki Takahashi.  The MIT License.
+' 2012-10-18 12:51:09 Code generated by Small Basic Parser Generator 0.4
+' 2018-09-16 Version 0.41 for Small Basic Online v0.9
+' Program ID XRZ138-0
+
+If GraphicsWindow.Left = 0 Then
+  sbo = "True"
+  Not["True"] = "False"
+  Not["False"] = "True"
+Else
+  sbo = "False
+  Not = "False=True;True=False;"
+EndIf
+version = "0.41"
+SBGI_Main()
+
+Sub PushOpt
+  If sbo Then
+    _nOpt = Array.GetItemCount(_opt)
+    For _iOpt = 1 To _nOpt
+      Stack.PushValue("local", _opt[_iOpt])
+    EndFor
+    Stack.PushValue("local", _nOpt)
+  Else
+    Stack.PushValue("local", _opt)
+  EndIf
+EndSub
+
+Sub PopOpt
+  If sbo Then
+    _nOpt = Stack.PopValue("local")
+    For _iOpt = _nOpt To 1 Step -1
+      _opt[_iOpt] = Stack.PopValue("local")
+    EndFor
+  Else
+    _opt = Stack.PopValue("local")
+  EndIf
+EndSub
+
+Sub PushVal
+  If sbo Then
+    _nVal = Array.GetItemCount(_val)
+    For _iVal = 1 To _nVal
+      Stack.PushValue("local", _val[_iVal])
+    EndFor
+    Stack.PushValue("local", _nVal)
+  Else
+    Stack.PushValue("local", _val)
+  EndIf
+EndSub
+
+Sub PopVal
+  If sbo Then
+    _nVal = Stack.PopValue("local")
+    For _iVal = _nVal To 1 Step -1
+      _val[_iVal] = Stack.PopValue("local")
+    EndFor
+  Else
+    _val = Stack.PopValue("local")
+  EndIf
+EndSub
+
+Sub SBGI_Main
+  ' Small Basic Graphics Interpreter | Main
+  title = "Small Basic Graphics Interpreter " + version
+  traceC = "False"  ' trace subroutine call
+  traceX = "False"  ' trace operation execution
+  traceV = "False"  ' dump variable array after parse
+  If Not[sbo] Then
+    TextWindow.Title = title ' this line will cause no output in SBO v0.9
+  EndIf
+  GraphicsWindow.Left = 0
+  If Not[sbo] Then
+    TextWindow.Left = Desktop.Width - 680  ' this line will cause no output in SBO v0.9
+  EndIf
+  Lex_Init()
+  TextWindow.WriteLine("Enter statements (Graphics operations) below.")
+  TextWindow.WriteLine("")
+  If sbo Then
+    GraphicsWindow.DrawText(10, 10, title)
+    Program.Delay(1000)
+  EndIf
+  While "True"
+    buf = TextWindow.Read()
+    TextWindow.ForegroundColor = "Green"
+    len = Text.GetLength(buf)
+    ptr = 1
+    Parse_State()
+    Program.Delay(1000)
+    If ptr <= len Then
+      TextWindow.WriteLine("Syntax Error")
+    EndIf
+    If traceV Then
+      TextWindow.WriteLine("var=" + WQ + var + WQ)
+    EndIf
+    TextWindow.ForegroundColor = "Gray"
+  EndWhile
+EndSub
+
+Sub Exec_Expr
+  ' Excecution | Expression
+  ' expr ::= ＜term＞[[]{+|-}[]＜term＞]
+  If match Then
+    If traceX Then
+      TextWindow.Write("Expr:_opt=" + WQ + _opt + WQ + ",_val=" + WQ + _val + WQ)
+    EndIf
+    If _opt[1] = "+" Then ' array
+      val = _val[1] + _val[2]
+    ElseIf _opt[1] = "-" Then
+      val = _val[1] - _val[2]
+    ElseIf _opt[1] = "" Then
+      val = _val[1]
+    EndIf
+    If traceX Then
+      TextWindow.WriteLine(",val=" + WQ + val + WQ)
+    EndIf
+  EndIf
+EndSub
+
+Sub Exec_Factor
+  ' Excecution | Factor
+  ' factor ::= {＜val＞|([]＜term＞[])}
+  If match Then
+    If traceX Then
+      TextWindow.Write("Factor:_val=" +  WQ + _val + WQ)
+    EndIf
+    If _opt[1] = "val" Then
+      val = _val[1]
+    ElseIf _opt[1] = ")" Then
+      val = _val[2]
+    EndIf
+    If traceX Then
+      TextWindow.WriteLine(",val=" + WQ + val + WQ)
+    EndIf
+  EndIf
+EndSub
+
+Sub Exec_Let
+  ' Excecution | Let
+  ' let ::= {＜prop＞|＜var＞}[]=[]＜expr＞
+  If match Then
+    If traceX Then
+      TextWindow.WriteLine("Let:_opt=" + WQ + _opt + WQ + ",_val=" + WQ + _val + WQ)
+    EndIf
+    If _opt[1] = "_var" Then
+      var[name] = val
+      If traceX Then
+        TextWindow.WriteLine("! " + name + "=" + val)
+      EndIf
+    ElseIf _opt[1] = "prop" Then
+      If prop = "bg" Then
+        GraphicsWindow.BackgroundColor = val
+        If traceX Then
+          TextWindow.WriteLine("! GraphicsWindow.BackgroundColor=" + val)
+        EndIf
+      ElseIf prop = "bc" Then
+        GraphicsWindow.BrushColor = val
+        If traceX Then
+          TextWindow.WriteLine("! GraphicsWindow.BrushColor=" + val)
+        EndIf
+      ElseIf prop = "fb" Then
+        GraphicsWindow.FontBold = val
+        If traceX Then
+          TextWindow.WriteLine("! GraphicsWindow.FontBold=" + val)
+        EndIf
+      ElseIf prop = "fi" Then
+        GraphicsWindow.FontItalic = val
+        If traceX Then
+          TextWindow.WriteLine("! GraphicsWindow.FontItalic=" + val)
+        EndIf
+      ElseIf prop = "fn" Then
+        GraphicsWindow.FontName = val
+        If traceX Then
+          TextWindow.WriteLine("! GraphicsWindow.FontName=" + val)
+        EndIf
+      ElseIf prop = "fs" Then
+        GraphicsWindow.FontBold = val
+        If traceX Then
+          TextWindow.WriteLine("! GraphicsWindow.FontSize=" + val)
+        EndIf
+      ElseIf prop = "hi" Then
+        GraphicsWindow.Height = val
+        If traceX Then
+          TextWindow.WriteLine("! GraphicsWindow.Height=" + val)
+        EndIf
+      ElseIf prop = "le" Then
+        GraphicsWindow.Left = val
+        If traceX Then
+          TextWindow.WriteLine("! GraphicsWindow.Left=" + val)
+        EndIf
+      ElseIf prop = "pc" Then
+        GraphicsWindow.PenColor = val
+        If traceX Then
+          TextWindow.WriteLine("! GraphicsWindow.PenColor=" + val)
+        EndIf
+      ElseIf prop = "pw" Then
+        GraphicsWindow.PenWidth = val
+        If traceX Then
+          TextWindow.WriteLine("! GraphicsWindow.PenWidth=" + val)
+        EndIf
+      ElseIf prop = "ti" Then
+        GraphicsWindow.Title = val
+        If traceX Then
+          TextWindow.WriteLine("! GraphicsWindow.Title=" + val)
+        EndIf
+      ElseIf prop = "to" Then
+        GraphicsWindow.Top = val
+        If traceX Then
+          TextWindow.WriteLine("! GraphicsWindow.Top=" + val)
+        EndIf
+      ElseIf prop = "wi" Then
+        GraphicsWindow.Width = val
+        If traceX Then
+          TextWindow.WriteLine("! GraphicsWindow.Width=" + val)
+        EndIf
+      EndIf
+    EndIf ' _opt[1]
+    If traceX Then
+      TextWindow.WriteLine("Let:val=" + WQ + val + WQ)
+    EndIf
+  EndIf ' match
+EndSub
+
+Sub Exec_Literal
+  ' Excecution | Literal
+  ' literal ::= {＜real＞|＜_str＞}
+  If match Then
+    If traceX Then
+      TextWindow.Write("Literal:_opt=" + WQ + _opt + WQ + ",_val=" +  WQ + _val + WQ)
+    EndIf
+    If _opt[1] = "real" Then
+      val = _val[1]
+    ElseIf _opt[1] = "_str" Then
+      val = _val[2]
+    EndIf
+    If traceX Then
+      TextWindow.WriteLine(",val=" + WQ + val + WQ)
+    EndIf
+  EndIf
+EndSub
+
+Sub Exec_Real
+  ' Excecution | Real
+  ' real ::= [-]＜_num＞[.＜_num＞]
+  If match Then
+    If traceX Then
+      TextWindow.Write("Real:_const=" + WQ + _const + WQ + ",_val=" + WQ + _val + WQ)
+    EndIf
+    val = _const[1] + _val[1] ' sign + int
+    If _const[2] = "." Then
+      val = Text.Append(val + ".", _val[2]) ' sign + int + "." + frac
+    EndIf
+    If traceX Then
+      TextWindow.WriteLine(",val=" + WQ + val + WQ)
+    EndIf
+  EndIf
+EndSub
+
+Sub Exec_Term
+  ' Excecution | Term
+  ' term ::= ＜factor＞[[]{'*'|/}[]＜factor＞]
+  If match Then
+    If traceX Then
+      TextWindow.Write("Term:_opt=" + WQ + _opt + WQ + ",_val=" + WQ + _val + WQ)
+    EndIf
+    If _opt[1] = "*" Then ' array
+      val = _val[1] * _val[2]
+    ElseIf _opt[1] = "/" Then
+      val = _val[1] / _val[2]
+    ElseIf _opt[1] = "" Then
+      val = _val[1]
+    EndIf
+    If traceX Then
+      TextWindow.WriteLine(",val=" + WQ + val + WQ)
+    EndIf
+  EndIf
+EndSub
+
+Sub Lex_Init
+  UPPER = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+  LOWER = "abcdefghijklmnopqrstuvwxyz"
+  DIGIT = "0123456789"
+  FCHAR = UPPER + LOWER         ' first charcters for label/variable/sub
+  TCHAR = FCHAR + DIGIT + "_"   ' trailing characters for label/variable/sub
+  WQ = Text.GetCharacter(34)                            ' double quote
+  SQ = "'"                                              ' single quote
+  CRLF = Text.GetCharacter(13) + Text.GetCharacter(10)  ' carriage return + line feed
+EndSub
+
+Sub Lex_Label
+  ' param buf - buffer
+  ' param ptr - pointer
+  ' return match - "True" if match
+  ' return ptr - next pointer
+  ' return label[] - label name array
+  ' return val - label name
+  If traceC Then
+    TextWindow.WriteLine("＜Lex_Label＞ " + ptr)
+  EndIf
+  Lex_Name()
+  If match And (Array.ContainsValue(label, val) = "False") Then
+    nLabel = nLabel + 1
+    label[nLabel] = val
+  EndIf
+  If traceC Then
+    TextWindow.WriteLine("＜/Lex_Label＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Lex_Name
+  ' param buf - buffer
+  ' param ptr - pointer
+  ' return match - "True" if match
+  ' return ptr - next pointer
+  ' return name - name
+  If traceC Then
+    TextWindow.WriteLine("＜Lex_Name＞ " + ptr)
+  EndIf
+  ch = Text.GetSubText(buf, ptr, 1)
+  If Text.GetIndexOf(FCHAR, ch) > 0 Then
+    name = ch
+    ptr = ptr + 1
+    match = "True"
+    While match
+      ch = Text.GetSubText(buf, ptr, 1)
+      If Text.GetIndexOf(TCHAR, ch) > 0 Then
+        ptr = ptr + 1
+        name = name + ch
+      Else
+        match = "False"
+      EndIf
+    EndWhile
+    match = "True"
+  Else
+    name = ""
+    match = "False"
+  EndIf
+  If traceC Then
+    TextWindow.WriteLine("＜/Lex_Name＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Lex_Num
+  ' param buf - buffer
+  ' param ptr - pointer
+  ' return match - "True"
+  ' return ptr - next pointer
+  ' return val - number
+  ch = Text.GetSubText(buf, ptr, 1)
+  If Text.GetIndexOf(DIGIT, ch) > 0 Then
+    val = ch
+    ptr = ptr + 1
+    match = "True"
+    While match
+      ch = Text.GetSubText(buf, ptr, 1)
+      If Text.GetIndexOf(DIGIT, ch) > 0 Then
+        ptr = ptr + 1
+        val = Text.Append(val, ch)
+      Else
+        match = "False"
+      EndIf
+    EndWhile
+    match = "True"
+  Else
+    val = ""
+    match = "False"
+  EndIf
+EndSub
+
+Sub Lex_Space0
+  ' param buf - buffer
+  ' param ptr - pointer
+  ' return match - "True"
+  ' return ptr - next pointer
+  txt = " "
+  match = "True"
+  While match
+    Lex_Text()
+  EndWhile
+  match = "True"
+EndSub
+
+Sub Lex_Space1
+  ' param buf - buffer
+  ' param ptr - pointer
+  ' return match - "True"
+  ' return ptr - next pointer
+  If traceC Then
+    TextWindow.WriteLine("＜Lex_Space1＞ " + ptr)
+  EndIf
+  txt = " "
+  Lex_Text()
+  If match Then
+    While match
+      Lex_Text()
+    EndWhile
+    match = "True"
+  Else
+    TextWindow.WriteLine("Syntax Error: space not found")
+  EndIf
+  If traceC Then
+    TextWindow.WriteLine("＜/Lex_Space1＞ " + ptr)
+  EndIf
+EndSub
+
+
+
+Sub Lex_Str
+  ' param buf - buffer
+  ' param ptr - pointer
+  ' return match - "True"
+  ' return ptr - next pointer
+  ' return val - string
+  Stack.PushValue("local", ptr)
+  txt = WQ
+  Lex_Text()
+  If match Then
+    ch = Text.GetSubText(buf, ptr, 1)
+    str = ""
+    While ch <> WQ
+      str = str + ch
+      ptr = ptr + 1
+      ch = Text.GetSubText(buf, ptr, 1)
+    EndWhile
+  EndIf
+  If match Then
+    txt = WQ
+    Lex_Text()
+  EndIf
+  _ptr = Stack.PopValue("local")
+  If match Then
+    val = str
+  Else
+    val = ""
+    ptr = _ptr
+  EndIf
+EndSub
+
+Sub Lex_Text
+  ' param buf - buffer
+  ' param ptr - pointer
+  ' param txt - text to lexical analysis
+  ' return match - "True" if match
+  ' return ptr - next pointer
+  ' return val - txt if match
+  If traceC Then
+    If txt = CRLF Then
+      _txt = "CRLF"
+    ElseIf txt = WQ Then
+      _txt = SQ + txt + SQ
+    Else
+      _txt = WQ + txt + WQ
+    EndIf
+    TextWindow.WriteLine("＜Lex_Text " + _txt + "＞ " + ptr)
+  EndIf
+  val = ""
+  txtlen = Text.GetLength(txt)
+  lotxt = Text.ConvertToLowerCase(txt)
+  lobuf = Text.ConvertToLowerCase(Text.GetSubText(buf, ptr, txtlen))
+  If lobuf = lotxt Then
+    match = "True"
+    ptr = ptr + txtlen
+    val = txt
+  Else
+    match = "False"
+  EndIf
+  If traceC Then
+    TextWindow.WriteLine("＜/Lex_Text＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Lex_Var
+  ' _var ::= ＜_name＞['['[]＜val＞[]']'['['[]＜val＞[]']']]
+  ' param buf - buffer
+  ' param ptr - pointer
+  ' return match - "True" if match
+  ' return ptr - next pointer
+  ' return var[] - variable name array
+  ' return name - variable name
+  ' return val - variable
+  PushVal()
+  _val = ""
+  Lex_Name()
+  _val[1] = val
+  Stack.PushValue("local", name)
+  If match Then
+    Stack.PushValue("ptr",ptr)
+    If match Then
+      txt = "["
+      Lex_Text()
+    EndIf
+    If match Then
+      Lex_Space0()
+    EndIf
+    If match Then
+      Parse_Val()
+      _val[2] = val
+    EndIf
+    If match Then
+      Lex_Space0()
+    EndIf
+    If match Then
+      txt = "]"
+      Lex_Text()
+    EndIf
+    If match Then
+      Stack.PushValue("ptr",ptr)
+      If match Then
+        txt = "["
+        Lex_Text()
+      EndIf
+      If match Then
+        Lex_Space0()
+      EndIf
+      If match Then
+        Parse_Val()
+        _val[3] = val
+      EndIf
+      If match Then
+        Lex_Space0()
+      EndIf
+      If match Then
+        txt = "]"
+        Lex_Text()
+      EndIf
+      _ptr = Stack.PopValue("ptr")
+      If match = "False" Then
+        ptr = _ptr
+        match = "True"
+      EndIf
+    EndIf
+    _ptr = Stack.PopValue("ptr")
+    If match = "False" Then
+      ptr = _ptr
+      match = "True"
+    EndIf
+  EndIf
+  name = Stack.PopValue("local")
+  If match Then
+    If _val[3] <> "" Then
+      name = name + "[" + _val[2] + "][" + _val[3] + "]"
+    ElseIf _Val[2] <> "" Then
+      name = name + "[" + _val[2] + "]
+    EndIf
+    If Array.ContainsIndex(var, name) Then
+      val = var[name]
+      If val = "N/A" Then
+        val = ""
+      EndIf
+    Else
+      var[name] = "N/A"
+      val = ""
+    EndIf
+  EndIf
+  If sbo Then
+    PopVal()
+  Else
+    _val = Stack.PopValue("local")
+  EndIf
+EndSub
+
+Sub Parse_State
+  ' state ::= []{＜ope＞|＜let＞|[]}[_SQ*]
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_State＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Stack.PushValue("ptr",ptr)
+  Lex_Space0()
+  If match Then
+    Parse_Ope()
+    _val[1] = val
+    If match Then
+      _opt[1] = "ope"
+    Else
+      Parse_Let()
+      _val[2] = val
+    EndIf
+    If match Then
+      _opt[1] = "let"
+    Else
+      Lex_Space0()
+      If match Then
+        _opt[1] = ""
+      EndIf
+    EndIf
+  EndIf
+  If match Then
+    Stack.PushValue("ptr",ptr)
+    txt = SQ
+    Lex_Text()
+    _const[1] = val
+    If match Then
+      _ptr = Text.GetIndexOf(buf, CRLF)
+      If _ptr = 0 Then
+        _ptr = len + 1
+      EndIf
+      ptr = _ptr
+      match = "True"
+    EndIf
+    _ptr = Stack.PopValue("ptr")
+    If match = "False" Then
+      ptr = _ptr
+    EndIf
+    match = "True"
+  EndIf
+  _ptr = Stack.PopValue("ptr")
+  If match = "False" Then
+    ptr = _ptr
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_State＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_Let
+  ' let ::= {＜prop＞|＜_var＞}[]=[]＜expr＞
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_Let＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Stack.PushValue("ptr",ptr)
+  Parse_Prop()
+  _val[1] = val
+  If match Then
+    _opt[1] = "prop"
+  Else
+    Lex_Var()
+    _val[2] = val
+    If match Then
+      _opt[1] = "_var"
+    EndIf
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = "="
+    Lex_Text()
+    _const[1] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Expr()
+    _val[3] = val
+  EndIf
+  _ptr = Stack.PopValue("ptr")
+  If match = "False" Then
+    ptr = _ptr
+  EndIf
+  Exec_Let()
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_Let＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_Expr
+  ' expr ::= ＜term＞[[]{+|-}[]＜term＞]
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_Expr＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Stack.PushValue("ptr",ptr)
+  Parse_Term()
+  _val[1] = val
+  If match Then
+    Stack.PushValue("ptr",ptr)
+    Lex_Space0()
+    If match Then
+      txt = "+"
+      Lex_Text()
+      _const[1] = val
+      If match Then
+        _opt[1] = "+"
+      Else
+        txt = "-"
+        Lex_Text()
+        _const[2] = val
+        If match Then
+          _opt[1] = "-"
+        EndIf
+      EndIf
+    EndIf
+    If match Then
+      Lex_Space0()
+    EndIf
+    If match Then
+      Parse_Term()
+      _val[2] = val
+    EndIf
+    _ptr = Stack.PopValue("ptr")
+    If match = "False" Then
+      ptr = _ptr
+    EndIf
+    match = "True"
+  EndIf
+  _ptr = Stack.PopValue("ptr")
+  If match = "False" Then
+    ptr = _ptr
+  EndIf
+  Exec_Expr()
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_Expr＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_Term
+  ' term ::= ＜factor＞[[]{'*'|/}[]＜factor＞]
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_Term＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Stack.PushValue("ptr",ptr)
+  Parse_Factor()
+  _val[1] = val
+  If match Then
+    Stack.PushValue("ptr",ptr)
+    Lex_Space0()
+    If match Then
+      txt = "*"
+      Lex_Text()
+      _const[1] = val
+      If match Then
+        _opt[1] = "*"
+      Else
+        txt = "/"
+        Lex_Text()
+        _const[2] = val
+        If match Then
+          _opt[1] = "/"
+        EndIf
+      EndIf
+    EndIf
+    If match Then
+      Lex_Space0()
+    EndIf
+    If match Then
+      Parse_Factor()
+      _val[2] = val
+    EndIf
+    _ptr = Stack.PopValue("ptr")
+    If match = "False" Then
+      ptr = _ptr
+    EndIf
+    match = "True"
+  EndIf
+  _ptr = Stack.PopValue("ptr")
+  If match = "False" Then
+    ptr = _ptr
+  EndIf
+  Exec_Term()
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_Term＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_Factor
+  ' factor ::= {＜val＞|([]＜term＞[])}
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_Factor＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Parse_Val()
+  _val[1] = val
+  If match Then
+    _opt[1] = "val"
+  Else
+    Stack.PushValue("ptr",ptr)
+    txt = "("
+    Lex_Text()
+    _const[1] = val
+    If match Then
+      Lex_Space0()
+    EndIf
+    If match Then
+      Parse_Term()
+      _val[2] = val
+    EndIf
+    If match Then
+      Lex_Space0()
+    EndIf
+    If match Then
+      txt = ")"
+      Lex_Text()
+      _const[2] = val
+    EndIf
+    _ptr = Stack.PopValue("ptr")
+    If match = "False" Then
+      ptr = _ptr
+    EndIf
+    If match Then
+      _opt[1] = ")"
+    EndIf
+  EndIf
+  Exec_Factor()
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_Factor＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_Val
+  ' val ::= {＜literal＞|＜prop＞|＜ope＞|＜_var＞}
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_Val＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Parse_Literal()
+  _val[1] = val
+  If match Then
+    _opt[1] = "literal"
+  Else
+    Parse_Prop()
+    _val[2] = val
+  EndIf
+  If match Then
+    _opt[1] = "prop"
+  Else
+    Parse_Ope()
+    _val[3] = val
+  EndIf
+  If match Then
+    _opt[1] = "ope"
+  Else
+    Lex_Var()
+    _val[4] = val
+    If match Then
+      _opt[1] = "_var"
+    EndIf
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_Val＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_Literal
+  ' literal ::= {＜real＞|＜_str＞}
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_Literal＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Parse_Real()
+  _val[1] = val
+  If match Then
+    _opt[1] = "real"
+  Else
+    Lex_Str()
+    _val[2] = val
+    If match Then
+      _opt[1] = "_str"
+    EndIf
+  EndIf
+  Exec_Literal()
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_Literal＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_Real
+  ' real ::= [-]＜_num＞[.＜_num＞]
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_Real＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Stack.PushValue("ptr",ptr)
+  txt = "-"
+  Lex_Text()
+  _const[1] = val
+  match = "True"
+  If match Then
+    Lex_Num()
+    _val[1] = val
+  EndIf
+  If match Then
+    Stack.PushValue("ptr",ptr)
+    txt = "."
+    Lex_Text()
+    _const[2] = val
+    If match Then
+      Lex_Num()
+      _val[2] = val
+    EndIf
+    _ptr = Stack.PopValue("ptr")
+    If match = "False" Then
+      ptr = _ptr
+    EndIf
+    match = "True"
+  EndIf
+  _ptr = Stack.PopValue("ptr")
+  If match = "False" Then
+    ptr = _ptr
+  EndIf
+  Exec_Real()
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_Real＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_Ope
+  ' ope ::= {＜voidOpe＞|＜valOpe＞}
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_Ope＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Parse_VoidOpe()
+  _val[1] = val
+  If match Then
+    _opt[1] = "voidOpe"
+  Else
+    Parse_ValOpe()
+    _val[2] = val
+    If match Then
+      _opt[1] = "valOpe"
+    EndIf
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_Ope＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_VoidOpe
+  ' voidOpe ::= {＜clear＞|＜dBText＞|＜dEll＞|＜dIma＞|＜dLine＞|＜dRect＞|＜dRIma＞|＜dText＞|＜dTri＞|＜fEll＞|＜fRect＞|＜fTri＞|＜sPix＞|＜show＞|＜sMsg＞}
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_VoidOpe＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Parse_Clear()
+  _val[1] = val
+  If match Then
+    _opt[1] = "clear"
+  Else
+    Parse_DBText()
+    _val[2] = val
+  EndIf
+  If match Then
+    _opt[1] = "dBText"
+  Else
+    Parse_DEll()
+    _val[3] = val
+  EndIf
+  If match Then
+    _opt[1] = "dEll"
+  Else
+    Parse_DIma()
+    _val[4] = val
+  EndIf
+  If match Then
+    _opt[1] = "dIma"
+  Else
+    Parse_DLine()
+    _val[5] = val
+  EndIf
+  If match Then
+    _opt[1] = "dLine"
+  Else
+    Parse_DRect()
+    _val[6] = val
+  EndIf
+  If match Then
+    _opt[1] = "dRect"
+  Else
+    Parse_DRIma()
+    _val[7] = val
+  EndIf
+  If match Then
+    _opt[1] = "dRIma"
+  Else
+    Parse_DText()
+    _val[8] = val
+  EndIf
+  If match Then
+    _opt[1] = "dText"
+  Else
+    Parse_DTri()
+    _val[9] = val
+  EndIf
+  If match Then
+    _opt[1] = "dTri"
+  Else
+    Parse_FEll()
+    _val[10] = val
+  EndIf
+  If match Then
+    _opt[1] = "fEll"
+  Else
+    Parse_FRect()
+    _val[11] = val
+  EndIf
+  If match Then
+    _opt[1] = "fRect"
+  Else
+    Parse_FTri()
+    _val[12] = val
+  EndIf
+  If match Then
+    _opt[1] = "fTri"
+  Else
+    Parse_SPix()
+    _val[13] = val
+  EndIf
+  If match Then
+    _opt[1] = "sPix"
+  Else
+    Parse_Show()
+    _val[14] = val
+  EndIf
+  If match Then
+    _opt[1] = "show"
+  Else
+    Parse_SMsg()
+    _val[15] = val
+    If match Then
+      _opt[1] = "sMsg"
+    EndIf
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_VoidOpe＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_Clear
+  ' clear ::= GraphicsWindow.Clear[]([])
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_Clear＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Stack.PushValue("ptr",ptr)
+  txt = "GraphicsWindow.Clear"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = "("
+    Lex_Text()
+    _const[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ")"
+    Lex_Text()
+    _const[3] = val
+  EndIf
+  _ptr = Stack.PopValue("ptr")
+  If match = "False" Then
+    ptr = _ptr
+  EndIf
+  If match Then
+    GraphicsWindow.Clear()
+    If traceX Then
+      TextWindow.WriteLine("! GraphicsWindow.Clear()")
+    EndIf
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_Clear＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_DBText
+  ' dBText ::= GraphicsWindow.DrawBoundText[]([]＜val＞[],[]＜val＞[],[]＜val＞[],[]＜val＞[])
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_DBText＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Stack.PushValue("ptr",ptr)
+  txt = "GraphicsWindow.DrawBoundText"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = "("
+    Lex_Text()
+    _const[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[1] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[4] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[5] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[4] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ")"
+    Lex_Text()
+    _const[6] = val
+  EndIf
+  _ptr = Stack.PopValue("ptr")
+  If match = "False" Then
+    ptr = _ptr
+  EndIf
+  If match Then
+    GraphicsWindow.DrawBoundText(_val[1], _val[2], _val[3], _val[4])
+    If traceX Then
+      TextWindow.WriteLine("! GraphicsWindow.DrawBoundText(" + _val[1] + "," + _val[2] + "," + _val[3] + "," + _val[4] + ")")
+    EndIf
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_DBText＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_DEll
+  ' dEll ::= GraphicsWindow.DrawEllipse[]([]＜val＞[],[]＜val＞[],[]＜val＞[],[]＜val＞[])
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_DEll＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Stack.PushValue("ptr",ptr)
+  txt = "GraphicsWindow.DrawEllipse"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = "("
+    Lex_Text()
+    _const[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[1] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[4] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[5] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[4] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ")"
+    Lex_Text()
+    _const[6] = val
+  EndIf
+  _ptr = Stack.PopValue("ptr")
+  If match = "False" Then
+    ptr = _ptr
+  EndIf
+  If match Then
+    GraphicsWindow.DrawEllipse(_val[1], _val[2], _val[3], _val[4])
+    If traceX Then
+      TextWindow.WriteLine("! GraphicsWindow.DrawEllipse(" + _val[1] + "," + _val[2] + "," + _val[3] + "," + _val[4] + ")")
+    EndIf
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_DEll＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_DIma
+  ' dIma ::= GraphicsWindow.DrawImage[]([]＜val＞[],[]＜val＞[],[]＜val＞[])
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_DIma＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Stack.PushValue("ptr",ptr)
+  txt = "GraphicsWindow.DrawImage"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = "("
+    Lex_Text()
+    _const[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[1] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[4] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ")"
+    Lex_Text()
+    _const[5] = val
+  EndIf
+  _ptr = Stack.PopValue("ptr")
+  If match = "False" Then
+    ptr = _ptr
+  EndIf
+  If match Then
+    GraphicsWindow.DrawImage(_val[1], _val[2], _val[3])
+    If traceX Then
+      TextWindow.WriteLine("! GraphicsWindow.DrawImage(" + _val[1] + "," + _val[2] + "," + _val[3] + ")")
+    EndIf
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_DIma＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_DLine
+  ' dLine ::= GraphicsWindow.DrawLine[]([]＜val＞[],[]＜val＞[],[]＜val＞[],[]＜val＞[])
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_DLine＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Stack.PushValue("ptr",ptr)
+  txt = "GraphicsWindow.DrawLine"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = "("
+    Lex_Text()
+    _const[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[1] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[4] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[5] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[4] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ")"
+    Lex_Text()
+    _const[6] = val
+  EndIf
+  _ptr = Stack.PopValue("ptr")
+  If match = "False" Then
+    ptr = _ptr
+  EndIf
+  If match Then
+    GraphicsWindow.DrawLine(_val[1], _val[2], _val[3], _val[4])
+    If traceX Then
+      TextWindow.WriteLine("! GraphicsWindow.DrawLine(" + _val[1] + "," + _val[2] + "," + _val[3] + "," + _val[4] + ")")
+    EndIf
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_DLine＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_DRect
+  ' dRect ::= GraphicsWindow.DrawRectangle[]([]＜val＞[],[]＜val＞[],[]＜val＞[],[]＜val＞[])
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_DRect＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Stack.PushValue("ptr",ptr)
+  txt = "GraphicsWindow.DrawRectangle"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = "("
+    Lex_Text()
+    _const[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[1] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[4] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[5] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[4] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ")"
+    Lex_Text()
+    _const[6] = val
+  EndIf
+  _ptr = Stack.PopValue("ptr")
+  If match = "False" Then
+    ptr = _ptr
+  EndIf
+  If match Then
+    GraphicsWindow.DrawRectangle(_val[1], _val[2], _val[3], _val[4])
+    If traceX Then
+      TextWindow.WriteLine("! GraphicsWindow.DrawRectangle(" + _val[1] + "," + _val[2] + "," + _val[3] + "," + _val[4] + ")")
+    EndIf
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_DRect＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_DRIma
+  ' dRIma ::= GraphicsWindow.DrawResizedImage[]([]＜val＞[],[]＜val＞[],[]＜val＞[],[]＜val＞[],[]＜val＞[])
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_DRIma＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Stack.PushValue("ptr",ptr)
+  txt = "GraphicsWindow.DrawResizedImage"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = "("
+    Lex_Text()
+    _const[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[1] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[4] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[5] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[4] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[6] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[5] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ")"
+    Lex_Text()
+    _const[7] = val
+  EndIf
+  _ptr = Stack.PopValue("ptr")
+  If match = "False" Then
+    ptr = _ptr
+  EndIf
+  If match Then
+    GraphicsWindow.DrawResizedImage(_val[1], _val[2], _val[3], _val[4], _val[5])
+    If traceX Then
+      TextWindow.WriteLine("! GraphicsWindow.DrawResizedImage(" + _val[1] + "," + _val[2] + "," + _val[3] + "," + _val[4] + "," + _val[5] + ")")
+    EndIf
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_DRIma＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_DText
+  ' dText ::= GraphicsWindow.DrawText[]([]＜val＞[],[]＜val＞[],[]＜val＞[])
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_DText＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Stack.PushValue("ptr",ptr)
+  txt = "GraphicsWindow.DrawText"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = "("
+    Lex_Text()
+    _const[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[1] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[4] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ")"
+    Lex_Text()
+    _const[5] = val
+  EndIf
+  _ptr = Stack.PopValue("ptr")
+  If match = "False" Then
+    ptr = _ptr
+  EndIf
+  If match Then
+    GraphicsWindow.DrawText(_val[1], _val[2], _val[3])
+    If traceX Then
+      TextWindow.WriteLine("! GraphicsWindow.DrawText(" + _val[1] + "," + _val[2] + "," + _val[3] + ")")
+    EndIf
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_DText＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_DTri
+  ' dTri ::= GraphicsWindow.DrawTriangle[]([]＜val＞[],[]＜val＞[],[]＜val＞[],[]＜val＞[],[]＜val＞[],[]＜val＞[])
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_DTri＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Stack.PushValue("ptr",ptr)
+  txt = "GraphicsWindow.DrawTriangle"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = "("
+    Lex_Text()
+    _const[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[1] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[4] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[5] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[4] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[6] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[5] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[7] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[6] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ")"
+    Lex_Text()
+    _const[8] = val
+  EndIf
+  _ptr = Stack.PopValue("ptr")
+  If match = "False" Then
+    ptr = _ptr
+  EndIf
+  If match Then
+    GraphicsWindow.DrawTriangle(_val[1], _val[2], _val[3], _val[4], _val[5], _val[6])
+    If traceX Then
+      TextWindow.WriteLine("! GraphicsWindow.DrawTriangle(" + _val[1] + "," + _val[2] + "," + _val[3] + "," + _val[4] + "," + _val[5] + "," + _val[6] + ")")
+    EndIf
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_DTri＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_FEll
+  ' fEll ::= GraphicsWindow.FillEllipse[]([]＜val＞[],[]＜val＞[],[]＜val＞[],[]＜val＞[])
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_FEll＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Stack.PushValue("ptr",ptr)
+  txt = "GraphicsWindow.FillEllipse"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = "("
+    Lex_Text()
+    _const[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[1] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[4] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[5] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[4] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ")"
+    Lex_Text()
+    _const[6] = val
+  EndIf
+  _ptr = Stack.PopValue("ptr")
+  If match = "False" Then
+    ptr = _ptr
+  EndIf
+  If match Then
+    GraphicsWindow.FillEllipse(_val[1], _val[2], _val[3], _val[4])
+    If traceX Then
+      TextWindow.WriteLine("! GraphicsWindow.FillEllipse(" + _val[1] + "," + _val[2] + "," + _val[3] + "," + _val[4] + ")")
+    EndIf
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_FEll＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_FRect
+  ' fRect ::= GraphicsWindow.FillRectangle[]([]＜val＞[],[]＜val＞[],[]＜val＞[],[]＜val＞[])
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_FRect＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Stack.PushValue("ptr",ptr)
+  txt = "GraphicsWindow.FillRectangle"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = "("
+    Lex_Text()
+    _const[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[1] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[4] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[5] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[4] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ")"
+    Lex_Text()
+    _const[6] = val
+  EndIf
+  _ptr = Stack.PopValue("ptr")
+  If match = "False" Then
+    ptr = _ptr
+  EndIf
+  If match Then
+    GraphicsWindow.FillRectangle(_val[1], _val[2], _val[3], _val[4])
+    If traceX Then
+      TextWindow.WriteLine("! GraphicsWindow.FillRectangle(" + _val[1] + "," + _val[2] + "," + _val[3] + "," + _val[4] + ")")
+    EndIf
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_FRect＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_FTri
+  ' fTri ::= GraphicsWindow.FillTriangle[]([]＜val＞[],[]＜val＞[],[]＜val＞[],[]＜val＞[],[]＜val＞[],[]＜val＞[])
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_FTri＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Stack.PushValue("ptr",ptr)
+  txt = "GraphicsWindow.FillTriangle"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = "("
+    Lex_Text()
+    _const[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[1] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[4] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[5] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[4] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[6] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[5] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[7] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[6] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ")"
+    Lex_Text()
+    _const[8] = val
+  EndIf
+  _ptr = Stack.PopValue("ptr")
+  If match = "False" Then
+    ptr = _ptr
+  EndIf
+  If match Then
+    GraphicsWindow.FillTriangle(_val[1], _val[2], _val[3], _val[4], _val[5], _val[6])
+    If traceX Then
+      TextWindow.WriteLine("! GraphicsWindow.FillTriangle(" + _val[1] + "," + _val[2] + "," + _val[3] + "," + _val[4] + "," + _val[5] + "," + _val[6] + ")")
+    EndIf
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_FTri＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_SPix
+  ' sPix ::= GraphicsWindow.SetPixel[]([]＜val＞[],[]＜val＞[],[]＜val＞[])
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_SPix＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Stack.PushValue("ptr",ptr)
+  txt = "GraphicsWindow.SetPixel"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = "("
+    Lex_Text()
+    _const[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[1] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[4] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ")"
+    Lex_Text()
+    _const[5] = val
+  EndIf
+  _ptr = Stack.PopValue("ptr")
+  If match = "False" Then
+    ptr = _ptr
+  EndIf
+  If match Then
+    GraphicsWindow.SetPixel(_val[1], _val[2], _val[3])
+    If traceX Then
+      TextWindow.WriteLine("! GraphicsWindow.SetPixel(" + _val[1] + "," + _val[2] + "," + _val[3] + ")")
+    EndIf
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_SPix＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_Show
+  ' show ::= GraphicsWindow.Show[]([])
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_Show＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Stack.PushValue("ptr",ptr)
+  txt = "GraphicsWindow.Show"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = "("
+    Lex_Text()
+    _const[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ")"
+    Lex_Text()
+    _const[3] = val
+  EndIf
+  _ptr = Stack.PopValue("ptr")
+  If match = "False" Then
+    ptr = _ptr
+  EndIf
+  If match Then
+    GraphicsWindow.Show()
+    If traceX Then
+      TextWindow.WriteLine("! GraphicsWindow.Show()")
+    EndIf
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_Show＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_SMsg
+  ' sMsg ::= GraphicsWindow.ShowMessage[]([]＜val＞[],[]＜val＞[])
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_SMsg＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Stack.PushValue("ptr",ptr)
+  txt = "GraphicsWindow.ShowMessage"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = "("
+    Lex_Text()
+    _const[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[1] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ")"
+    Lex_Text()
+    _const[4] = val
+  EndIf
+  _ptr = Stack.PopValue("ptr")
+  If match = "False" Then
+    ptr = _ptr
+  EndIf
+  If match Then
+    GraphicsWindow.ShowMessage(_val[1], _val[2])
+    If traceX Then
+      TextWindow.WriteLine("! GraphicsWindow.ShowMessage(" + _val[1] + "," + _val[2] + ")")
+    EndIf
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_SMsg＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_ValOpe
+  ' valOpe ::= {＜gRGB＞|＜gPix＞|＜gCol＞}
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_ValOpe＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Parse_GRGB()
+  _val[1] = val
+  If match Then
+    _opt[1] = "gRGB"
+  Else
+    Parse_GPix()
+    _val[2] = val
+  EndIf
+  If match Then
+    _opt[1] = "gPix"
+  Else
+    Parse_GCol()
+    _val[3] = val
+    If match Then
+      _opt[1] = "gCol"
+    EndIf
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_ValOpe＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_GRGB
+  ' gRGB ::= GraphicsWindow.GetColorFromRGB[]([]＜val＞[],[]＜val＞[],[]＜val＞[])
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_GRGB＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Stack.PushValue("ptr",ptr)
+  txt = "GraphicsWindow.GetColorFromRGB"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = "("
+    Lex_Text()
+    _const[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[1] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[4] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ")"
+    Lex_Text()
+    _const[5] = val
+  EndIf
+  _ptr = Stack.PopValue("ptr")
+  If match = "False" Then
+    ptr = _ptr
+  EndIf
+  If match Then
+    val = GraphicsWindow.GetColorFromRGB(_val[1], _val[2], _val[3])
+    If traceX Then
+      TextWindow.WriteLine("! " + val + "=GraphicsWindow.GetColorFromRGB(" + _val[1] + "," + _val[2] + "," + _val[3] + ")")
+    EndIf
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_GRGB＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_GPix
+  ' gPix ::= GraphicsWindow.GetPixel[]([]＜val＞[],[]＜val＞[])
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_GPix＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Stack.PushValue("ptr",ptr)
+  txt = "GraphicsWindow.GetPixel"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = "("
+    Lex_Text()
+    _const[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[1] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ","
+    Lex_Text()
+    _const[3] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    Parse_Val()
+    _val[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ")"
+    Lex_Text()
+    _const[4] = val
+  EndIf
+  _ptr = Stack.PopValue("ptr")
+  If match = "False" Then
+    ptr = _ptr
+  EndIf
+  If match Then
+    val = GraphicsWindow.GetPixel(_val[1], _val[2])
+    If traceX Then
+      TextWindow.WriteLine("! " + val + "=GraphicsWindow.GetPixel(" + _val[1] + "," + _val[2] + ")")
+    EndIf
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_GPix＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_GCol
+  ' gCol ::= GraphicsWindow.GetRandomColor[]([])
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_GCol＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Stack.PushValue("ptr",ptr)
+  txt = "GraphicsWindow.GetRandomColor"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = "("
+    Lex_Text()
+    _const[2] = val
+  EndIf
+  If match Then
+    Lex_Space0()
+  EndIf
+  If match Then
+    txt = ")"
+    Lex_Text()
+    _const[3] = val
+  EndIf
+  _ptr = Stack.PopValue("ptr")
+  If match = "False" Then
+    ptr = _ptr
+  EndIf
+  If match Then
+    val = GraphicsWindow.GetRandomColor()
+    If traceX Then
+      TextWindow.WriteLine("! " + val + "=GraphicsWindow.GetRandomColor()")
+    EndIf
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_GCol＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_Prop
+  ' prop ::= {＜bg＞|＜bc＞|＜fb＞|＜fi＞|＜fn＞|＜fs＞|＜hi＞|＜le＞|＜pc＞|＜pw＞|＜ti＞|＜to＞|＜wi＞}
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_Prop＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  Parse_Bg()
+  _val[1] = val
+  If match Then
+    _opt[1] = "bg"
+  Else
+    Parse_Bc()
+    _val[2] = val
+  EndIf
+  If match Then
+    _opt[1] = "bc"
+  Else
+    Parse_Fb()
+    _val[3] = val
+  EndIf
+  If match Then
+    _opt[1] = "fb"
+  Else
+    Parse_Fi()
+    _val[4] = val
+  EndIf
+  If match Then
+    _opt[1] = "fi"
+  Else
+    Parse_Fn()
+    _val[5] = val
+  EndIf
+  If match Then
+    _opt[1] = "fn"
+  Else
+    Parse_Fs()
+    _val[6] = val
+  EndIf
+  If match Then
+    _opt[1] = "fs"
+  Else
+    Parse_Hi()
+    _val[7] = val
+  EndIf
+  If match Then
+    _opt[1] = "hi"
+  Else
+    Parse_Le()
+    _val[8] = val
+  EndIf
+  If match Then
+    _opt[1] = "le"
+  Else
+    Parse_Pc()
+    _val[9] = val
+  EndIf
+  If match Then
+    _opt[1] = "pc"
+  Else
+    Parse_Pw()
+    _val[10] = val
+  EndIf
+  If match Then
+    _opt[1] = "pw"
+  Else
+    Parse_Ti()
+    _val[11] = val
+  EndIf
+  If match Then
+    _opt[1] = "ti"
+  Else
+    Parse_To()
+    _val[12] = val
+  EndIf
+  If match Then
+    _opt[1] = "to"
+  Else
+    Parse_Wi()
+    _val[13] = val
+    If match Then
+      _opt[1] = "wi"
+    EndIf
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_Prop＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_Bg
+  ' bg ::= GraphicsWindow.BackgroundColor
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_Bg＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  txt = "GraphicsWindow.BackgroundColor"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    prop = "bg"
+    val = GraphicsWindow.BackgroundColor
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_Bg＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_Bc
+  ' bc ::= GraphicsWindow.BrushColor
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_Bc＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  txt = "GraphicsWindow.BrushColor"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    prop = "bc"
+    val = GraphicsWindow.BrushColor
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_Bc＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_Fb
+  ' fb ::= GraphicsWindow.FontBold
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_Fb＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  txt = "GraphicsWindow.FontBold"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    prop = "fb"
+    val = GraphicsWindow.FontBold
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_Fb＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_Fi
+  ' fi ::= GraphicsWindow.FontItalic
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_Fi＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  txt = "GraphicsWindow.FontItalic"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    prop = "fi"
+    val = GraphicsWindow.FontItalic
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_Fi＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_Fn
+  ' fn ::= GraphicsWindow.FontName
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_Fn＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  txt = "GraphicsWindow.FontName"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    prop = "fn"
+    val = GraphicsWindow.FontName
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_Fn＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_Fs
+  ' fs ::= GraphicsWindow.FontSize
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_Fs＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  txt = "GraphicsWindow.FontSize"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    prop = "fs"
+    val = GraphicsWindow.FontSize
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_Fs＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_Hi
+  ' hi ::= GraphicsWindow.Height
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_Hi＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  txt = "GraphicsWindow.Height"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    prop = "hi"
+    val = GraphicsWindow.Height
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_Hi＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_Le
+  ' le ::= GraphicsWindow.Left
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_Le＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  txt = "GraphicsWindow.Left"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    prop = "le"
+    val = GraphicsWindow.Left
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_Le＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_Pc
+  ' pc ::= GraphicsWindow.PenColor
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_Pc＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  txt = "GraphicsWindow.PenColor"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    prop = "pc"
+    val = GraphicsWindow.PenColor
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_Pc＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_Pw
+  ' pw ::= GraphicsWindow.PenWidth
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_Pw＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  txt = "GraphicsWindow.PenWidth"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    prop = "pw"
+    val = GraphicsWindow.PenWidth
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_Pw＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_Ti
+  ' ti ::= GraphicsWindow.Title
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_Ti＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  txt = "GraphicsWindow.Title"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    prop = "ti"
+    val = GraphicsWindow.Title
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_Ti＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_To
+  ' to ::= GraphicsWindow.Top
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_To＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  txt = "GraphicsWindow.Top"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    prop = "to"
+    val = GraphicsWindow.Top
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_To＞ " + ptr)
+  EndIf
+EndSub
+
+Sub Parse_Wi
+  ' wi ::= GraphicsWindow.Width
+  If traceC Then
+    TextWindow.WriteLine("＜Parse_Wi＞ " + ptr)
+  EndIf
+  _const = ""
+  PushOpt()
+  _opt = ""
+  PushVal()
+  _val = ""
+  txt = "GraphicsWindow.Width"
+  Lex_Text()
+  _const[1] = val
+  If match Then
+    prop = "wi"
+    val = GraphicsWindow.Width
+  EndIf
+  PopVal()
+  PopOpt()
+  If traceC Then
+    TextWindow.WriteLine("＜/Parse_Wi＞ " + ptr)
+  EndIf
+EndSub