home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh93a.d64 / reltest (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  188b  |  14 lines
  1. 10 DIM N(1000)
  2. 20 RLEN10,7,0
  3. 30 ROPEN"TEST1000"
  4. 40 REND N
  5. 50 FORI=1TO1000:BY$=""
  6. 52 FORJ=1TO4
  7. 53 BY=INT(RND(1)*26)+65
  8. 54 BY$=BY$+CHR$(BY)
  9. 55 NEXTJ
  10. 60 RPUT I,BY$,STR$(I)
  11. 70 NEXTI
  12. 80 RCLOSE
  13. 90 OPEN1,8,15,"I":CLOSE1
  14.