100 PRINT "CREATING ARRAY" 110 DIM A(150) 120 FOR J = l to 150 130 A(J) = 151–J 140 NEXT J 150 PRINT "SORTING" 160 EX = 0 170 FOR K = 0 TO 149 180 IF A(K) > A(K + 1) THEN T = A(K) : A(K) = A(K + 1) : A(K + 1) = T : EX = 1 190 NEXT K 200 IF EX < > 0 THEN GOTO 160
My Performance (execution time):
SONY Hit-Bit F1XD 6:45
From: http://www.atarimagazines.com/compute/issue56/107_1_MSX_IS_C...
His results:
Quote:
IBM PC 5:45
GoldStar MSX 6:20
Apple II Plus 6:24
Apple IIc 6:33
Commodore VIC-20 6:34
IBM PCjr 6:59
Commodore 64 7:02
Commodore 8032 7:16
TRS-80 Color Computer 8:01
Commodore 16 8:35
Commodore Plus/4 8:36
Atari 800XL 8:55
Atari 800 9:00
TI-99/4A 12:58
Aangemeld of registreer om reacties te plaatsen