home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 93 / 64er_Magazin_Sonderheft_93_19xx_Markt__Technik_de_Side_A.d64 / reltest (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.