5 rem large file reading program
10 rem disk speed test program - c64-128 and disk combinations
20 open 1,8,3,"0:largefile,s,r"
30 ti$ = "000000"
50 for i = 1 to 100
55 for j = 1 to 16
60 input#1, a$
70 next j
75 print i
80 next i
90 print "time " + ti$
100 close 1