5 rem large file creation program 10 rem disk speed test program - IBM PC GWBASIC 14 ON ERROR GOTO 20 15 kill "largefile" 20 open "largefile" for output as #1 30 a$="" 40 for i = 1 to 63: a$ = a$ + "a": next 50 for i = 1 to 100 55 for j = 1 to 16 60 print#1, a$ 70 next j 75 print i 80 next i 100 close 1