home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 85xx / 8512.d64 / quicktester (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  532b  |  33 lines
  1. 2 IFPEEK(2051)<>3THENPOKE2051,3:LOAD"QUICKSORT.OBJ",8,1
  2. 5 REM BITTE ZEILE 2 GENAUSO EINGEBEN
  3. 10 INPUT "ANZAHL=  100[157][157][157][157][157]";A
  4. 20 DIM A$(A)
  5. 23 REM
  6. 25 REM  JEDES ELEMENT MIT 3 ZEICHEN
  7. 28 REM
  8. 30 FOR I = 1 TO A
  9. 35 : FOR J = 0 TO 2
  10. 40 :   A$(I) = A$(I)+CHR$(RND(1)*26+65)
  11. 50 : NEXT J
  12. 55 NEXT I
  13. 56 REM
  14. 57 REM       ELEMEMTE AUSGEBEN
  15. 58 REM
  16. 60 FOR I = 1 TO A
  17. 63 : PRINT A$(I);" ";
  18. 65 NEXT I
  19. 66 PRINT
  20. 67 REM
  21. 68 REM       ELEMENTE SORTIEREN
  22. 69 REM
  23. 70 TI$ = "000000"
  24. 74 SYS 52000
  25. 76 T = TI
  26. 77 REM
  27. 78 REM       ELEMENTE AUSGEBEN
  28. 79 REM
  29. 80 FOR I= 1 TO A
  30. 85 : PRINT A$(I);" ";
  31. 90 NEXT I
  32. 95 PRINT T/60
  33.