00000000: 01 08 28 08 0A 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..(....*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 08 14 00 8F 2A 20 |********.O....* |
00000030: 20 20 20 20 20 20 20 20 20 53 4F 52 54 20 54 45 | SORT TE|
00000040: 53 54 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 |ST *.|
00000050: 76 08 19 00 8F 2A 20 20 20 20 20 20 20 56 4F 4F |v....* VOO|
00000060: 52 20 27 51 55 49 43 4B 53 4F 52 54 27 20 20 20 |R 'QUICKSORT' |
00000070: 20 20 20 20 20 2A 00 9D 08 1A 00 8F 2A 2A 55 49 | *......**UI|
00000080: 54 3A 53 4F 4E 44 45 52 48 45 46 54 20 39 20 20 |T:SONDERHEFT 9 |
00000090: 36 34 2D 45 52 20 50 31 31 31 20 2A 2A 00 EC 08 |64-ER P111 **...|
000000A0: 1B 00 8F 2A 20 44 45 5A 45 20 54 45 53 54 20 49 |...* DEZE TEST I|
000000B0: 53 20 45 45 4E 20 41 41 4E 47 45 50 41 53 54 45 |S EEN AANGEPASTE|
000000C0: 20 20 20 2A 20 20 20 20 52 45 4D 2A 20 56 45 52 | * REM* VER|
000000D0: 53 49 45 20 56 41 4E 20 44 49 45 20 56 4F 4F 52 |SIE VAN DIE VOOR|
000000E0: 20 4C 49 47 48 54 4E 49 4E 47 20 2A 00 13 09 1E | LIGHTNING *....|
000000F0: 00 8F 2A 20 53 4F 52 54 20 55 49 54 3A 43 4F 4D |..* SORT UIT:COM|
00000100: 50 55 54 45 21 20 39 2F 38 34 20 50 31 31 39 20 |PUTE! 9/84 P119 |
00000110: 20 20 2A 00 3A 09 28 00 8F 2A 2A 2A 2A 2A 2A 2A | *.:.(..*******|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7C 09 32 00 99 |**********.|.2..|
00000140: C7 28 31 34 29 22 93 11 C4 49 54 20 50 52 4F 47 |.(14)"...IT PROG|
00000150: 52 41 4D 4D 41 20 54 45 53 54 20 27 D1 55 49 43 |RAMMA TEST '.UIC|
00000160: 4B 53 4F 52 54 27 2E 20 C4 41 54 20 44 55 53 20 |KSORT'. .AT DUS |
00000170: 45 45 52 53 54 20 4C 41 44 45 4E 21 00 C9 09 34 |EERST LADEN!...4|
00000180: 00 99 22 11 11 11 2D C9 4E 20 52 45 47 45 4C 20 |.."...-.N REGEL |
00000190: 31 30 30 2D 32 34 30 20 4D 41 41 4B 54 20 44 45 |100-240 MAAKT DE|
000001A0: 20 43 4F 4D 50 55 54 45 52 20 31 30 30 30 20 57 | COMPUTER 1000 W|
000001B0: 4F 4F 52 44 45 4E 20 41 41 4E 20 56 41 4E 20 4D |OORDEN AAN VAN M|
000001C0: 41 58 2E 20 31 31 20 22 3B 00 D8 09 35 00 99 22 |AX. 11 ";...5.."|
000001D0: 4C 45 54 54 45 52 53 2E 00 03 0A 36 00 99 22 2D |LETTERS....6.."-|
000001E0: D2 45 47 45 4C 20 33 30 30 20 53 4F 52 54 45 45 |.EGEL 300 SORTEE|
000001F0: 52 54 20 44 45 20 31 30 30 30 20 57 4F 4F 52 44 |RT DE 1000 WOORD|
00000200: 45 4E 2E 00 50 0A 38 00 99 22 2D D2 45 47 45 4C |EN..P.8.."-.EGEL|
00000210: 53 20 33 34 30 2D 33 36 30 20 44 52 55 4B 4B 45 |S 340-360 DRUKKE|
00000220: 4E 20 44 45 20 47 45 53 4F 52 54 45 45 52 44 45 |N DE GESORTEERDE|
00000230: 20 20 20 57 4F 4F 52 44 45 4E 20 41 46 20 2B 20 | WOORDEN AF + |
00000240: 44 45 20 53 4F 52 54 45 45 52 2D 54 49 4A 44 2E |DE SORTEER-TIJD.|
00000250: 00 92 0A 39 00 99 22 11 D1 53 4F 52 54 20 D3 59 |...9.."..SORT .Y|
00000260: 4E 54 41 58 3A 20 53 59 53 34 39 31 36 34 2C 20 |NTAX: SYS49164, |
00000270: 45 45 52 53 54 45 20 55 49 54 20 44 45 20 54 45 |EERSTE UIT DE TE|
00000280: 53 4F 52 54 45 52 45 4E 20 41 52 52 41 59 2C 20 |SORTEREN ARRAY, |
00000290: 22 3B 00 AE 0A 3A 00 99 22 4C 41 41 54 53 54 45 |";...:.."LAATSTE|
000002A0: 20 55 49 54 20 44 45 20 41 52 52 41 59 2E 00 DC | UIT DE ARRAY...|
000002B0: 0A 3C 00 99 22 11 11 11 11 20 20 20 20 20 C4 D2 |.<..".... ..|
000002C0: D5 CB A0 CF D0 A0 C5 C5 CE A0 D4 CF C5 D4 D3 20 |............... |
000002D0: 56 4F 4F 52 20 56 45 52 56 4F 4C 47 00 EE 0A 41 |VOOR VERVOLG...A|
000002E0: 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 36 35 00 F7 |..A$:.A$."".65..|
000002F0: 0A 64 00 99 22 93 22 00 02 0B 6E 00 4E B2 31 30 |.d.."."...n.N.10|
00000300: 30 30 00 0E 0B 78 00 86 41 41 24 28 4E 29 00 30 |00...x..AA$(N).0|
00000310: 0B 82 00 99 22 43 52 45 41 54 49 4E 47 22 4E 22 |...."CREATING"N"|
00000320: 20 52 41 4E 44 4F 4D 20 53 54 52 49 4E 47 53 22 | RANDOM STRINGS"|
00000330: 00 43 0B 8C 00 53 44 B2 AB 54 49 3A 41 B2 BB 28 |.C...SD..TI:A..(|
00000340: 53 44 29 00 4E 0B 96 00 81 49 B2 31 A4 4E 00 58 |SD).N....I.1.N.X|
00000350: 0B A0 00 99 49 22 91 22 00 6C 0B AA 00 4E 31 B2 |....I".".l...N1.|
00000360: B5 28 BB 28 31 29 AC 31 30 AA 31 29 00 76 0B B4 |.(.(1).10.1).v..|
00000370: 00 41 24 B2 22 22 00 82 0B BE 00 81 4A B2 31 A4 |.A$.""......J.1.|
00000380: 4E 31 00 9A 0B C8 00 42 24 B2 C7 28 B5 28 BB 28 |N1.....B$..(.(.(|
00000390: 31 29 AC 32 36 AA 36 35 29 29 00 A7 0B D2 00 41 |1).26.65)).....A|
000003A0: 24 B2 41 24 AA 42 24 00 AE 0B DC 00 82 4A 00 BC |$.A$.B$......J..|
000003B0: 0B E6 00 41 41 24 28 49 29 B2 41 24 00 C3 0B F0 |...AA$(I).A$....|
000003C0: 00 82 49 00 E4 0B FA 00 99 22 48 49 54 20 41 4E |..I......"HIT AN|
000003D0: 59 20 4B 45 59 20 54 4F 20 53 54 41 52 54 20 53 |Y KEY TO START S|
000003E0: 4F 52 54 22 00 F7 0B 04 01 A1 41 24 3A 8B 41 24 |ORT"......A$:.A$|
000003F0: B2 22 22 A7 32 36 30 00 09 0C 0E 01 99 22 53 4F |."".260......"SO|
00000400: 52 54 49 4E 47 2E 2E 2E 22 00 13 0C 18 01 54 31 |RTING...".....T1|
00000410: B2 54 49 00 2F 0C 2C 01 9E 34 39 31 36 34 2C 41 |.TI./.,..49164,A|
00000420: 41 24 28 31 29 2C 41 41 24 28 31 30 30 30 29 00 |A$(1),AA$(1000).|
00000430: 39 0C 36 01 54 32 B2 54 49 00 45 0C 40 01 99 22 |9.6.T2.TI.E.@.."|
00000440: 44 4F 4E 45 22 00 70 0C 4A 01 99 22 48 49 54 20 |DONE".p.J.."HIT |
00000450: 41 4E 59 20 4B 45 59 20 54 4F 20 50 52 49 4E 54 |ANY KEY TO PRINT|
00000460: 20 53 4F 52 54 45 44 20 53 54 52 49 4E 47 53 22 | SORTED STRINGS"|
00000470: 00 83 0C 54 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 |...T..A$:.A$."".|
00000480: 33 34 30 00 9A 0C 5E 01 81 49 B2 31 A4 4E 3A 99 |340...^..I.1.N:.|
00000490: 49 2C 41 41 24 28 49 29 3A 82 00 CB 0C 68 01 99 |I,AA$(I):....h..|
000004A0: 3A 99 4E 22 20 45 4C 45 4D 45 4E 54 53 20 53 4F |:.N" ELEMENTS SO|
000004B0: 52 54 45 44 20 49 4E 22 28 54 32 AB 54 31 29 AD |RTED IN"(T2.T1).|
000004C0: 36 30 22 53 45 43 4F 4E 44 53 22 00 00 00 |60"SECONDS"... |
..(....*********************************
.O....* SORT TEST *.
V....* VOOR 'QUICKSORT' *..
....**UIT:SONDERHEFT 9 64-ER P111 **...
...* DEZE TEST IS EEN AANGEPASTE *
REM* VERSIE VAN DIE VOOR LIGHTNING *....
..* SORT UIT:COMPUTE! 9/84 P119 *.:.(.
.*********************************.|.2..
G(14)"..DIT PROGRAMMA TEST 'QUICKSORT'.
DAT DUS EERST LADEN!.I.4.."...-IN REGEL
100-240 MAAKT DE COMPUTER 1000 WOORDEN A
AN VAN MAX. 11 ";.X.5.."LETTERS....6.."-
REGEL 300 SORTEERT DE 1000 WOORDEN..P.8.
."-REGELS 340-360 DRUKKEN DE GESORTEERDE
WOORDEN AF + DE SORTEER-TIJD....9..".
QSORT SYNTAX: SYS49164, EERSTE UIT DE TE
SORTEREN ARRAY, ";...:.."LAATSTE UIT DE
ARRAY....<..".... DRUK OP EEN TOETS
VOOR VERVOLG...A..A$:.A$."".65...D..".".
..N.N.1000...X..AA$(N).0...."CREATING"N"
RANDOM STRINGS".C...SD..TI:A..(SD).N...
.I.1.N.X. ..I".".L...N1..(.(1).10.1).V..
.A$.""......J.1.N1...H.B$.G(.(.(1).26.65
))...R.A$.A$.B$......J.....AA$(I).A$.C..
..I......"HIT ANY KEY TO START SORT"....
..A$:.A$."".260......"SORTING...".....T1
.TI./.,..49164,AA$(1),AA$(1000).9.6.T2.T
I.E.@.."DONE".P.J.."HIT ANY KEY TO PRINT
SORTED STRINGS"...T..A$:.A$."".340...^.
.I.1.N:.I,AA$(I):..K.H..:.N" ELEMENTS SO
RTED IN"(T2.T1).60"SECONDS"...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL