End Type


Dim People(1 to 10) as Aperson,br> For i = 1 to 10
Print People(i).strNAME
Next i


People(1).strNAME = "Mary"
People(1).intAGE = "21"
People(1).intMASS = 80
People(2).strNAME = "John"
People(2).intAGE = "14"
People(3).strNAME = "Albert Einstein"
People(3).intAGE = "43"
People(3).intMASS = 120


The Dim People... keeps saying Invalid Inside Procedure and its in the usual read error text