10 REM TestSort 20 30 INSTALL @lib$ + "sortlib" 40 DIM array$(100) 50 60 FOR D% = 0 TO 1 70 IF D% THEN PRINT "Descending" ELSE PRINT "Ascending" 80 PRINT " Mode 1 2 3 4 5 6 7 8 9 10" 90 PROCsort(D%,0) :REM word sort, case sensitive 100 PROCsort(D%,1) :REM word sort, ignore case 110 PROCsort(D%,2) :REM ASCII sort 120 PROCsort(D%,&1000) :REM string sort, case sensitive 130 PROCsort(D%,&1001) :REM string sort, ignore cas 140 NEXT 150 END 160 170 DEF PROCsort(D%,M%) 180 array$() = "??","AAA" ,"bbb","ccc","DDD","eee","fff","GGG","HHH","iii","JJJ" 190 C% =10 200 @%=&5 210 PRINT ~M%; 220 sort% = FN_sortinit(D%,M%) 230 CALL sort%,array$(1) 240 FOR I% = 1 TO C% 250 PRINT TAB(5+I%*6);array$(I%); 260 NEXT 270 PRINT 280 ENDPROC
|
|
|
|