5 rem large file reading program 10 rem disk speed test program - IBM PC GWBASIC 20 open "largefile" for input as #1 30 time$ = "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 " + time$ 100 close 1