CHARACTER days="Monday Tuesday Wednesday Thursday Friday Saturday Sunday "

items = INDEX(days, ' ', 256)          ! 256 = count option
DO j = 1, items
  EDIT(Text=days, ITeM=j, Parse=today)
  WRITE() today
ENDDO