OPEN "PERSON" TO PERSON.FILE ELSE PRINT "PERSON NOT OPEN"
READ PERSON.ITEM FROM PERSON.FILE,2
PRINT "NAME: ":PERSON.ITEM<3>
PRINT "HAIR: ":PERSON.ITEM<2>
PRINT "AGE: ":PERSON.ITEM<1>
PRINT "PHONES:"
FOR I=1 TO DCOUNT(PERSON.ITEM<4>,@VM)
PRINT PERSON.ITEM<4,I>
NEXT I
END