inputUnknownNumbers()

'Input an unknown number of integers
'______________________________________________

Sub inputUnknownNumbers
  total = 0
  count = 0

  number = 0
  While number <> -999
    TextWindow.Write("Please enter number: ")
    number = TextWindow.ReadNumber()

     If number <> -999 then

      total = total + number
      count = count + 1

    EndIf

  EndWhile

  TextWindow.WriteLine("Your total is: " + total)

EndSub