9 lines
171 B
Text
9 lines
171 B
Text
procedure main()
|
|
A := []
|
|
"Hello,How,Are,You,Today" ? {
|
|
while put(A, 1(tab(upto(',')),=","))
|
|
put(A,tab(0))
|
|
}
|
|
every writes(!A,".")
|
|
write()
|
|
end
|