' Read the database from the disk, into the arrays nm(100) and phone(100) SUB infile DIM i AS INTEGER ' open the file holding the database for reading OPEN filename FOR INPUT AS #1 ' read the database length from the first line of the file INPUT #1, n ' the read the names and phone numbers, one line per item FOR i = 1 TO n INPUT #1, nm(i) INPUT #1, phone(i) NEXT ' close the file CLOSE #1 PRINT "The database file has been read" END SUB