10 DIM N(1000)
20 RLEN10,7,0
30 ROPEN"TEST1000"
40 REND N
50 FORI=1TO1000:BY$=""
52 FORJ=1TO4
53 BY=INT(RND(1)*26)+65
54 BY$=BY$+CHR$(BY)
55 NEXTJ
60 RPUT I,BY$,STR$(I)
70 NEXTI
80 RCLOSE
90 OPEN1,8,15,"I":CLOSE1