> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 50 08 00 00 8F 20 2D 2D 28 43 29 20 44 49 |..P.... --(C) DI|
00000010: 47 49 43 4F 4D 20 53 4F 46 54 57 41 52 45 20 54 |GICOM SOFTWARE T|
00000020: 41 50 45 20 42 30 31 20 2D 2D 20 20 20 20 20 20 |APE B01 -- |
00000030: 20 20 20 20 20 41 41 4E 47 45 50 41 53 54 20 56 | AANGEPAST V|
00000040: 4F 4F 52 20 43 4F 4D 4D 4F 44 4F 52 45 20 36 34 |OOR COMMODORE 64|
00000050: 00 71 08 0A 00 8F 20 2A 2A 2A 20 53 4F 52 54 45 |.q.... *** SORTE|
00000060: 45 52 50 52 4F 47 52 41 4D 4D 41 20 31 20 2A 2A |ERPROGRAMMA 1 **|
00000070: 2A 00 B9 08 14 00 8F 20 20 20 20 20 44 49 54 20 |*...... DIT |
00000080: 50 52 4F 47 52 41 4D 4D 41 20 53 4F 52 54 45 45 |PROGRAMMA SORTEE|
00000090: 52 54 20 4D 2E 42 2E 56 20 20 20 20 20 20 20 20 |RT M.B.V |
000000A0: 20 20 20 20 44 45 20 42 55 42 42 4C 45 20 55 50 | DE BUBBLE UP|
000000B0: 2D 4D 45 54 48 4F 44 45 2E 00 C6 08 32 00 86 20 |-METHODE....2.. |
000000C0: 41 28 31 30 30 29 00 E8 08 3C 00 8F 20 2A 2A 2A |A(100)...<.. ***|
000000D0: 20 49 4E 56 4F 45 52 20 56 41 4E 20 47 45 47 45 | INVOER VAN GEGE|
000000E0: 56 45 4E 53 20 2A 2A 2A 00 F2 08 46 00 99 22 93 |VENS ***...F..".|
000000F0: 22 3B 00 1A 09 50 00 99 22 2A 2A 2A 20 42 55 42 |";...P.."*** BUB|
00000100: 42 4C 45 20 55 50 2D 53 4F 52 54 45 45 52 4D 45 |BLE UP-SORTEERME|
00000110: 54 48 4F 44 45 20 2A 2A 2A 22 00 20 09 5A 00 99 |THODE ***". .Z..|
00000120: 00 3A 09 64 00 99 22 48 4F 45 56 45 45 4C 20 47 |.:.d.."HOEVEEL G|
00000130: 45 54 41 4C 4C 45 4E 20 22 3B 00 42 09 6E 00 85 |ETALLEN ";.B.n..|
00000140: 20 4E 00 5E 09 78 00 8B 20 28 4E B3 32 29 20 B0 | N.^.x.. (N.2) .|
00000150: 20 28 4E B1 31 30 30 29 20 A7 20 31 30 30 00 84 | (N.100) . 100..|
00000160: 09 82 00 8F 20 2A 56 55 4C 4C 45 4E 20 4D 41 54 |.... *VULLEN MAT|
00000170: 52 49 58 20 41 20 4D 45 54 20 4E 20 47 45 54 41 |RIX A MET N GETA|
00000180: 4C 4C 45 4E 00 92 09 8C 00 81 20 49 B2 31 20 A4 |LLEN...... I.1 .|
00000190: 20 4E 00 A7 09 96 00 41 28 49 29 B2 B5 28 BB 28 | N.....A(I)..(.(|
000001A0: 31 29 AC 31 30 30 29 00 B2 09 A0 00 99 41 28 49 |1).100)......A(I|
000001B0: 29 3B 00 BA 09 AA 00 82 20 49 00 C0 09 B4 00 99 |);...... I......|
000001C0: 00 F8 09 BE 00 99 22 53 4F 52 54 45 52 45 4E 20 |......"SORTEREN |
000001D0: 42 45 47 49 4E 54 20 4D 45 54 20 49 4E 44 52 55 |BEGINT MET INDRU|
000001E0: 4B 4B 45 4E 20 56 41 4E 20 52 45 54 55 52 4E 2D |KKEN VAN RETURN-|
000001F0: 54 4F 45 54 53 20 22 3B 00 01 0A C8 00 85 20 41 |TOETS ";...... A|
00000200: 24 00 09 0A D2 00 54 B2 30 00 28 0A DC 00 99 22 |$.....T.0.(...."|
00000210: 45 52 20 57 4F 52 44 54 20 4E 55 20 47 45 53 4F |ER WORDT NU GESO|
00000220: 52 54 45 45 52 44 2E 22 00 4F 0A E6 00 8F 20 2A |RTEERD.".O.... *|
00000230: 2A 2A 20 46 45 49 54 45 4C 59 4B 45 20 53 4F 52 |** FEITELYKE SOR|
00000240: 54 45 45 52 52 4F 55 54 49 4E 45 20 2A 2A 2A 00 |TEERROUTINE ***.|
00000250: 97 0A F0 00 8F 20 20 20 20 20 44 49 54 20 50 52 |..... DIT PR|
00000260: 4F 47 52 41 4D 4D 41 2D 4F 4E 44 45 52 44 45 45 |OGRAMMA-ONDERDEE|
00000270: 4C 20 4B 41 4E 20 20 20 20 20 20 20 20 20 20 20 |L KAN |
00000280: 20 20 41 4C 53 20 53 55 42 52 4F 55 54 49 4E 45 | ALS SUBROUTINE|
00000290: 20 49 4E 20 45 45 4E 00 BC 0A FA 00 8F 20 20 20 | IN EEN...... |
000002A0: 20 20 50 52 4F 47 52 41 4D 4D 41 20 47 45 42 52 | PROGRAMMA GEBR|
000002B0: 55 49 4B 54 20 57 4F 52 44 45 4E 2E 00 04 0B 04 |UIKT WORDEN.....|
000002C0: 01 8F 20 20 20 20 20 4D 41 54 52 49 58 20 41 20 |.. MATRIX A |
000002D0: 4D 4F 45 54 20 4D 45 54 20 4E 20 20 20 20 20 20 |MOET MET N |
000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 | E|
000002F0: 4C 45 4D 45 4E 54 45 4E 20 47 45 56 55 4C 44 20 |LEMENTEN GEVULD |
00000300: 5A 59 4E 2E 00 0C 0B 0E 01 54 B2 30 00 1F 0B 18 |ZYN......T.0....|
00000310: 01 81 20 58 B2 4E 20 A4 20 32 20 A9 20 AB 31 00 |.. X.N . 2 . .1.|
00000320: 2D 0B 22 01 81 20 59 B2 31 20 A4 20 58 00 37 0B |-.".. Y.1 . X.7.|
00000330: 27 01 54 B2 54 AA 31 00 4F 0B 2C 01 8B 20 41 28 |'.T.T.1.O.,.. A(|
00000340: 58 29 20 B1 20 41 28 59 29 20 A7 20 33 34 30 00 |X) . A(Y) . 340.|
00000350: 5A 0B 36 01 48 B2 41 28 58 29 00 68 0B 40 01 41 |Z.6.H.A(X).h.@.A|
00000360: 28 58 29 B2 41 28 59 29 00 73 0B 4A 01 41 28 59 |(X).A(Y).s.J.A(Y|
00000370: 29 B2 48 00 7B 0B 54 01 82 20 59 00 83 0B 5E 01 |).H.{.T.. Y...^.|
00000380: 82 20 58 00 AA 0B E0 01 8F 20 55 49 54 50 52 49 |. X...... UITPRI|
00000390: 4E 54 45 4E 20 56 41 4E 20 47 45 53 4F 52 54 45 |NTEN VAN GESORTE|
000003A0: 45 52 44 45 20 54 41 42 45 4C 00 B0 0B EA 01 99 |ERDE TABEL......|
000003B0: 00 D8 0B F4 01 99 22 2A 2A 2A 20 42 55 42 42 4C |......"*** BUBBL|
000003C0: 45 20 55 50 2D 53 4F 52 54 45 45 52 4D 45 54 48 |E UP-SORTEERMETH|
000003D0: 4F 44 45 20 2A 2A 2A 22 00 DE 0B FE 01 99 00 EC |ODE ***"........|
000003E0: 0B 08 02 81 20 49 B2 31 20 A4 20 4E 00 F7 0B 12 |.... I.1 . N....|
000003F0: 02 99 41 28 49 29 3B 00 FF 0B 1C 02 82 20 49 00 |..A(I);...... I.|
00000400: 05 0C 26 02 99 00 29 0C 30 02 99 22 44 45 20 43 |..&...).0.."DE C|
00000410: 4F 4E 44 49 54 49 45 20 49 53 20 22 54 3B 22 2A |ONDITIE IS "T;"*|
00000420: 20 47 45 54 45 53 54 2E 22 00 2F 0C 3A 02 80 00 | GETEST."./.:...|
00000430: 00 00 |.. |
..P.... --(C) DIGICOM SOFTWARE TAPE B01
-- AANGEPAST VOOR COMMODORE 64
.Q.... *** SORTEERPROGRAMMA 1 ***......
DIT PROGRAMMA SORTEERT M.B.V
DE BUBBLE UP-METHODE..F.2.. A(100)..
.<.. *** INVOER VAN GEGEVENS ***...F..".
";...P.."*** BUBBLE UP-SORTEERMETHODE **
*". .Z...:.D.."HOEVEEL GETALLEN ";.B.N..
N.^.X.. (N.2) . (N.100) . 100...... *VU
LLEN MATRIX A MET N GETALLEN...... I.1 .
N.....A(I)..(.(1).100)... ..A(I);......
I............"SORTEREN BEGINT MET INDRU
KKEN VAN RETURN-TOETS ";...H.. A$...R.T.
0.(...."ER WORDT NU GESORTEERD.".O.... *
** FEITELYKE SORTEERROUTINE ***......
DIT PROGRAMMA-ONDERDEEL KAN
ALS SUBROUTINE IN EEN...... PROGRA
MMA GEBRUIKT WORDEN....... MATRIX A
MOET MET N ELEMENTEN
GEVULD ZYN......T.0...... X.N . 2 . .1.
-.".. Y.1 . X.7.'.T.T.1.O.,.. A(X) . A(Y
) . 340.Z.6.H.A(X).H.@.A(X).A(Y).S.J.A(Y
).H.{.T.. Y...^.. X...... UITPRINTEN VAN
GESORTEERDE TABEL.......X...."*** BUBBL
E UP-SORTEERMETHODE ***"............ I.1
. N......A(I);...... I...&...).0.."DE C
ONDITIE IS "T;"* GETEST."./.:.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL