home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8705.d64 / swap-demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  308b  |  10 lines
  1. 100 PRINT "BITTE WARTEN. SORTSTRINGS WERDEN ERZEUGT"
  2. 110 A=50:DIM A$(A)
  3. 120 FOR I=1 TO A:FOR II=1 TO 10:A$(I)=A$(I)+CHR$(INT(RND(TI)*25)+65):NEXT II,I
  4. 130 FOR I=1 TO A:PRINT A$(I):NEXT:T1=TI
  5. 140 FOR X=1 TO A-1:FOR Y=X+1 TO A:IF A$(X)<=A$(Y) THEN 160
  6. 150 SYS 49152,A$(X),A$(Y)
  7. 160 NEXT Y,X
  8. 170 PRINT:FOR I=1 TO A:PRINT A$(I):NEXT
  9. 180 PRINT "SORTIERZEIT:"(TI-T1)/60"SEC"
  10.