try this easy way:
CLS
? "NAMES", ; , "AGE": ?
ON ERROR GOTO endp : rem exit the loop
DO
READ firstname$, lastname$, age$
? firstname$; " "; lastname$, ; , age$
LOOP
endp:
DATA "Jim", "Jones", "18", "Nancy"...