open "hugeraf.dat" for random as #f len = 1 field #f, 1 as v$ v$ = "x" put #f, 5000000000 close #f open "hugeraf.dat" for random as #g len = 1 field #g, 1 as w$ print "File size is "; lof(#g) get #g, 5000000000 close #g print "Data read = "; w$ kill "hugeraf.dat"
|
|
|