when opening up a file utilizing random acces files

how do i open and print more than one record at a time
to the screen

variables are dimmed properly
option baseline

open file for Random as #1 Len(Questions(1))
numrecs=LOF(1) /Len(Questions(1))
for i= 1 to numrecs
get#1, , Questions(i)
next i
print i (?)
close #1

my probelm is when i look at the form it prints 1 to screen, when i run the program my numrecs = 0 is and len = 150 and skips over get #1, , Questions(1) and doesn't print anything else.