lb5.353 READ into array (good!)

[tsh73]

Contrary to help shipped with LB 5.353, READ allows to read into array.
And this is a good thing, IMHO.

read header$
print  header$

for aLine= 1 to 3
   read a$(1), a$(2), a$(3), a$(4), a$(5), a$(6), a$(7), a$(8)
   print  aLine;">";
   for i = 1 to 8
       print tab(4);word$(header$,i),a$(i)
   next
next
end


data "SEQ DATE NAME MIDN SURN BORN DIED CITY"
data 0001,20231201,"JOHN","HUGH","JAMES",1960,2020,"TORONTO"
data 0002,20210102,"JANE","","SMART",1987,"","LOS ANGELES"
data 0003,20200118,"TROY","M","KIRK",2002,2019,"DENVER"