While "True"
TextWindow.Write("Enter numbers like 1,2,3,4,5: ")
csv = TextWindow.Read()
SeparateCSV()
n = Array.GetItemCount(value)
sum = 0
product = 1
For i = 1 To n
sum = sum + value[i]
product = product * value[i]
EndFor
average = sum / n
TextWindow.WriteLine("sum = " + sum)
TextWindow.WriteLine("product = " + product)
TextWindow.WriteLine("average = " + average)
EndWhile
Sub SeparateCSV
value = ""
i = 0
len = Text.GetLength(csv)
p = 1
While p <= len
comma = Text.GetIndexOf(Text.GetSubTextToEnd(csv, p), ",")
i = i + 1
If comma > 0 Then ' comma found
value[i] = Text.GetSubText(csv, p, comma - 1)
p = p + comma
Else ' comma not found
value[i] = Text.GetSubTextToEnd(csv, p)
p = len + 1
EndIf
EndWhile
EndSub
Program Listing: XJH677