7 lines
213 B
Text
7 lines
213 B
Text
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
|