|
Post by tsh73 on Jan 2, 2024 16:04:46 GMT -5
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"
|
|