CLS
TYPE FriendType
FullName AS STRING * 15
PhoneNumber AS STRING * 14
END TYPE

' Beginning database
DIM Friends(5) AS FriendType

' Fill the database with names and numbers
Friends(0).FullName = "George"
Friends(0).PhoneNumber = "1-347-449-3204"

Friends(1).FullName = "Justin"
Friends(1).PhoneNumber = "1-646-709-2001"

Friends(2).FullName = "Erik"
Friends(2).PhoneNumber = "1-917-515-3072"

Friends(3).FullName = "Dean Mason"
Friends(3).PhoneNumber = "1-609-805-6504"

Friends(4).FullName = "Nick Mason"
Friends(4).PhoneNumber = "1-609-805-5045"

Friends(5).FullName = "Naor"
Friends(5).PhoneNumber = "1-917-674-2761"

FOR I = 0 TO 5
    PRINT Friends(I).FullName; ": "; Friends(I).PhoneNumber
NEXT I