sub window
  dim a(20) as integer
  dim i, s as integer
  for i=1 to ubound(a)
    a(i)=i
  next
  s=0
  ' a=a+[6,5,3]	// append array constant
  for i=1 to ubound(a)
    s=s+a(i)
  next
  msgbox ("Sum="+str(s))
end sub