t$={Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday"

while word$(t$,i+1,",") <> ""
  i = i + 1
  print word$(t$,i,",")
wend