Domitron Answers 1st draft

GraphicsWindow.Show()
'GraphicsWindow.ShowMessage("dunno","dunno title")
'TextWindow.WriteLine("")
GraphicsWindow.DrawboundText(0,0,280,"Please petition Domitron to get his attention. eg. 'Please Domitron, answer my question'... ")
GraphicsWindow.DrawText(0,40,"Petition: ")
GraphicsWindow.DrawText(0,60,"Question: ")

pretend[1]=  "D"
pretend[2] = "o"
pretend[3] = "m"
pretend[4] = "i"
pretend[5] = "t"
pretend[6] = "r"
pretend[7] = "o"
pretend[8] = "n"
pretend[9] = "p"
pretend[10] = "l"
pretend[11] = "e"
pretend[12] = "a"
pretend[13] = "s"
pretend[14] = "e"
pretend[15] = "m"

returns = 0

While returns < 1
  GraphicsWindow.KeyDown = sub1

endwhile
cursoralong = cursoralong - (Text.GetLength(newanswer)*10)
While returns = 1
GraphicsWindow.KeyDown = sub2
endwhile

 '''GraphicsWindow.DrawText(200,200,newanswer)

cursordown = 0
cursoralong = 75

Sub sub1
  If GraphicsWindow.LastKey = "OemPeriod" then
    If GraphicsWindow.LastKey <> "Return" Then
      lasttyped = GraphicsWindow.LastKey
  'GraphicsWindow.DrawText(cursoralong+75,40,lasttyped)

  length = length + 1

  For i = 1 To length
          sentence[length] = lasttyped
      answer = Text.Append(answer,sentence[i])
      newanswer = Text.GetSubTextToEnd(answer,Text.GetLength(answer)-(length-1))


  EndFor
  GraphicsWindow.DrawText(cursoralong+75,40,pretend[i-1])
  cursoralong = cursoralong + 10
else
  returns = returns + 1
  cursordown = cursordown + 20


EndIf

Else 'no fullstop used
      If GraphicsWindow.LastKey <> "Return" Then
      lasttyped = GraphicsWindow.LastKey
  GraphicsWindow.DrawText(cursoralong+75,40,lasttyped)

  length = length + 1

  For i = 1 To length
          sentence[length] = lasttyped
      answer = Text.Append(answer,sentence[i])
      newanswer = "error- please try again"


  EndFor
  'GraphicsWindow.DrawText(cursoralong+75,40,pretend[i-1])
  cursoralong = cursoralong + 10
else
  returns = returns + 1
  cursordown = cursordown + 20
  EndIf
  EndIf
EndSub

Sub sub2

  If GraphicsWindow.LastKey <> "Return" Then
    lasttyped = GraphicsWindow.LastKey

  GraphicsWindow.DrawText(cursoralong+75,60,lasttyped)
 cursoralong = cursoralong + 10
else
  returns = returns + 1
  'cursordown = cursordown + 20
  'cursordown = 60
  GraphicsWindow.DrawText(150,200,"Your answer is: ")
  GraphicsWindow.DrawText(280,200,newanswer)
EndIf

EndSub