5 rem large file creation program
10 rem disk speed test program - c64-128 and disk combinations
15 open 15,8,15,"s0:largefile":close 15
20 open 2,8,2,"0:largefile,seq,w"
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#2, a$
70 next j
75 print i
80 next i
100 close 2