00000000: 01 10 25 10 0A 00 8F 20 48 41 55 50 54 50 52 4F |..%.... HAUPTPRO|
00000010: 47 52 41 4D 4D 20 5A 55 20 44 45 4E 20 53 4F 52 |GRAMM ZU DEN SOR|
00000020: 54 49 45 52 2D 00 38 10 14 00 8F 20 41 4C 47 4F |TIER-.8.... ALGO|
00000030: 52 49 54 48 4D 45 4E 2E 00 57 10 1E 00 8F 20 45 |RITHMEN..W.... E|
00000040: 53 20 45 52 53 54 45 4C 4C 54 20 45 49 4E 20 46 |S ERSTELLT EIN F|
00000050: 45 4C 44 20 4D 49 54 00 77 10 28 00 8F 20 45 49 |ELD MIT.w.(.. EI|
00000060: 4E 45 52 20 42 45 53 54 49 4D 4D 42 41 52 45 4E |NER BESTIMMBAREN|
00000070: 20 41 4E 5A 41 48 4C 00 88 10 32 00 8F 20 45 4C | ANZAHL...2.. EL|
00000080: 45 4D 45 4E 54 45 4E 2E 00 A8 10 3C 00 8F 20 4A |EMENTEN....<.. J|
00000090: 45 44 45 53 20 45 4C 45 4D 45 4E 54 20 42 45 53 |EDES ELEMENT BES|
000000A0: 54 45 48 54 20 41 55 53 00 CA 10 46 00 8F 20 44 |TEHT AUS...F.. D|
000000B0: 52 45 49 20 42 45 4C 49 45 42 49 47 45 4E 20 42 |REI BELIEBIGEN B|
000000C0: 55 43 48 53 54 41 42 45 4E 2E 00 EB 10 50 00 8F |UCHSTABEN....P..|
000000D0: 20 44 41 53 20 45 4E 54 53 50 52 45 43 48 45 4E | DAS ENTSPRECHEN|
000000E0: 44 45 20 53 4F 52 54 49 45 52 2D 00 07 11 5A 00 |DE SORTIER-...Z.|
000000F0: 8F 20 55 4E 54 45 52 50 52 4F 47 52 41 4D 4D 20 |. UNTERPROGRAMM |
00000100: 4D 55 53 53 20 41 42 00 24 11 5F 00 8F 20 5A 45 |MUSS AB.$._.. ZE|
00000110: 49 4C 45 20 31 30 30 30 30 20 47 45 53 43 48 45 |ILE 10000 GESCHE|
00000120: 48 45 4E 2E 00 2F 11 E8 03 99 22 93 22 3A 9C 00 |HEN../....".":..|
00000130: 44 11 ED 03 E7 20 30 2C 31 3A E7 20 31 2C 36 3A |D.... 0,1:. 1,6:|
00000140: E7 34 2C 31 00 6F 11 F2 03 99 22 44 49 45 53 45 |.4,1.o...."DIESE|
00000150: 53 20 50 52 4F 47 52 41 4D 4D 20 45 52 53 54 45 |S PROGRAMM ERSTE|
00000160: 4C 4C 54 20 5A 55 46 41 45 4C 4C 49 47 45 22 00 |LLT ZUFAELLIGE".|
00000170: 9F 11 FC 03 99 22 11 45 4C 45 4D 45 4E 54 45 2C |.....".ELEMENTE,|
00000180: 20 44 49 45 20 56 4F 4E 20 44 45 4E 20 53 4F 52 | DIE VON DEN SOR|
00000190: 54 49 45 52 50 52 4F 47 52 41 4D 4D 45 4E 22 00 |TIERPROGRAMMEN".|
000001A0: CF 11 06 04 99 22 11 53 4F 52 54 49 45 52 54 20 |.....".SORTIERT |
000001B0: 57 45 52 44 45 4E 2E 20 4A 45 44 45 52 20 53 4F |WERDEN. JEDER SO|
000001C0: 52 54 49 45 52 44 55 52 43 48 47 41 4E 47 22 00 |RTIERDURCHGANG".|
000001D0: E7 11 10 04 99 22 11 57 49 52 44 20 41 4E 47 45 |.....".WIRD ANGE|
000001E0: 5A 45 49 47 54 2E 22 00 05 12 1A 04 85 22 11 11 |ZEIGT."......"..|
000001F0: 57 49 45 56 49 45 4C 45 20 45 4C 45 4D 45 4E 54 |WIEVIELE ELEMENT|
00000200: 45 22 3B 41 4E 00 28 12 24 04 8B 20 41 4E B3 31 |E";AN.(.$.. AN.1|
00000210: 30 20 A7 20 99 22 11 5A 55 20 57 45 4E 49 47 20 |0 . .".ZU WENIG |
00000220: 21 22 3A 89 31 30 35 30 00 4D 12 2E 04 8B 20 41 |!":.1050.M.... A|
00000230: 4E B1 31 30 30 30 30 20 A7 20 99 22 11 5A 55 20 |N.10000 . .".ZU |
00000240: 56 49 45 4C 20 21 22 3A 89 31 30 35 30 00 5A 12 |VIEL !":.1050.Z.|
00000250: 38 04 86 20 41 24 28 41 4E 29 00 86 12 42 04 99 |8.. A$(AN)...B..|
00000260: 22 11 11 44 49 45 20 45 4C 45 4D 45 4E 54 45 20 |"..DIE ELEMENTE |
00000270: 57 45 52 44 45 4E 20 4A 45 54 5A 54 20 45 52 5A |WERDEN JETZT ERZ|
00000280: 45 55 47 54 2E 22 00 A2 12 47 04 8D 34 30 30 30 |EUGT."...G..4000|
00000290: 3A 8F 20 2A 2A 20 4C 49 4E 49 45 20 5A 49 45 48 |:. ** LINIE ZIEH|
000002A0: 45 4E 00 C2 12 4C 04 8F 20 2A 2A 2A 20 45 4C 45 |EN...L.. *** ELE|
000002B0: 4D 45 4E 54 45 20 45 52 5A 45 55 47 45 4E 20 2A |MENTE ERZEUGEN *|
000002C0: 2A 2A 00 D1 12 56 04 81 20 41 B2 31 20 A4 20 41 |**...V.. A.1 . A|
000002D0: 4E 00 DF 12 60 04 81 20 42 B2 31 20 A4 20 33 00 |N...`.. B.1 . 3.|
000002E0: 02 13 6A 04 41 24 28 41 29 B2 20 41 24 28 41 29 |..j.A$(A). A$(A)|
000002F0: AA C7 28 B5 28 BB 28 54 49 29 AC 32 35 29 AA 36 |..(.(.(TI).25).6|
00000300: 35 29 00 0E 13 74 04 82 20 42 3A 82 20 41 00 33 |5)...t.. B:. A.3|
00000310: 13 7E 04 8D 20 35 30 30 30 3A 8F 20 2A 2A 20 41 |.~.. 5000:. ** A|
00000320: 55 53 47 41 42 45 20 44 45 52 20 45 4C 45 4D 45 |USGABE DER ELEME|
00000330: 4E 54 45 00 57 13 88 04 99 22 11 44 45 52 20 53 |NTE.W....".DER S|
00000340: 4F 52 54 49 45 52 56 4F 52 47 41 4E 47 20 42 45 |ORTIERVORGANG BE|
00000350: 47 49 4E 4E 54 2E 22 00 5D 13 89 04 99 00 6E 13 |GINNT.".].....n.|
00000360: 8D 04 54 49 24 B2 22 30 30 30 30 30 30 22 00 8E |..TI$."000000"..|
00000370: 13 92 04 8D 20 31 30 30 30 30 3A 8F 20 2A 2A 20 |.... 10000:. ** |
00000380: 53 4F 52 54 49 45 52 52 4F 55 54 49 4E 45 00 99 |SORTIERROUTINE..|
00000390: 13 97 04 54 24 B2 54 49 24 00 B6 13 9C 04 8D 20 |...T$.TI$...... |
000003A0: 34 30 30 30 3A 8F 20 2A 2A 20 4C 49 4E 49 45 20 |4000:. ** LINIE |
000003B0: 5A 49 45 48 45 4E 00 DB 13 A6 04 8D 20 35 30 30 |ZIEHEN...... 500|
000003C0: 30 3A 8F 20 2A 2A 20 41 55 53 47 41 42 45 20 44 |0:. ** AUSGABE D|
000003D0: 45 52 20 45 4C 45 4D 45 4E 54 45 00 FF 13 AB 04 |ER ELEMENTE.....|
000003E0: 8D 20 33 30 30 30 3A 8F 20 2A 2A 20 53 4F 52 54 |. 3000:. ** SORT|
000003F0: 49 45 52 41 52 54 20 41 55 53 47 45 42 45 4E 00 |IERART AUSGEBEN.|
00000400: 27 14 B0 04 99 22 11 45 53 20 57 55 52 44 45 4E |'....".ES WURDEN|
00000410: 22 41 4E 22 45 4C 45 4D 45 4E 54 45 20 53 4F 52 |"AN"ELEMENTE SOR|
00000420: 54 49 45 52 54 2E 22 00 4F 14 BA 04 99 22 11 44 |TIERT.".O....".D|
00000430: 49 45 20 42 45 4E 4F 45 54 49 47 54 45 20 5A 45 |IE BENOETIGTE ZE|
00000440: 49 54 20 28 48 48 4D 4D 53 53 29 3A 22 54 24 00 |IT (HHMMSS):"T$.|
00000450: 7B 14 C4 04 99 22 11 11 57 4F 4C 4C 45 4E 20 53 |{...."..WOLLEN S|
00000460: 49 45 20 4E 4F 43 48 20 45 49 4E 4D 41 4C 20 53 |IE NOCH EINMAL S|
00000470: 4F 52 54 49 45 52 45 4E 20 3F 22 00 86 14 CE 04 |ORTIEREN ?".....|
00000480: A1 F9 20 54 41 24 00 9A 14 D8 04 8B 20 54 41 24 |.. TA$...... TA$|
00000490: B2 22 4A 22 A7 20 31 30 30 30 00 A0 14 E2 04 80 |."J". 1000......|
000004A0: 00 C2 14 B8 0B 8F 20 2A 2A 2A 20 41 55 53 47 41 |...... *** AUSGA|
000004B0: 42 45 20 53 4F 52 54 49 45 52 4E 41 4D 45 20 2A |BE SORTIERNAME *|
000004C0: 2A 2A 00 DA 14 C2 0B 99 22 11 53 4F 52 54 49 45 |**......".SORTIE|
000004D0: 52 41 52 54 3A 20 22 53 41 24 00 E0 14 CC 0B 8E |RART: "SA$......|
000004E0: 00 FB 14 A0 0F 8F 20 2A 2A 2A 20 4C 49 4E 49 45 |...... *** LINIE|
000004F0: 20 5A 49 45 48 45 4E 20 2A 2A 2A 00 0A 15 AA 0F | ZIEHEN ***.....|
00000500: 81 20 41 B2 31 20 A4 20 34 30 00 14 15 B4 0F 99 |. A.1 . 40......|
00000510: 22 2D 22 3B 00 1C 15 BE 0F 82 20 41 00 22 15 C8 |"-";...... A."..|
00000520: 0F 8E 00 45 15 88 13 8F 20 2A 2A 2A 20 41 55 53 |...E.... *** AUS|
00000530: 47 41 42 45 20 44 45 52 20 45 4C 45 4D 45 4E 54 |GABE DER ELEMENT|
00000540: 45 20 2A 2A 2A 00 54 15 92 13 81 20 41 B2 31 20 |E ***.T.... A.1 |
00000550: A4 20 41 4E 00 63 15 9C 13 99 41 24 28 41 29 22 |. AN.c....A$(A)"|
00000560: 20 22 3B 00 6D 15 A6 13 82 20 41 3A 99 00 73 15 | ";.m.... A:..s.|
00000570: B0 13 8E 00 97 15 10 27 8F 20 2A 2A 2A 20 41 4E |.......'. *** AN|
00000580: 20 44 49 45 53 45 52 20 53 54 45 4C 4C 45 20 4D | DIESER STELLE M|
00000590: 55 53 53 20 44 41 53 00 B8 15 1A 27 8F 20 2A 2A |USS DAS....'. **|
000005A0: 2A 20 45 4E 54 53 50 52 45 43 48 45 4E 44 45 20 |* ENTSPRECHENDE |
000005B0: 53 4F 52 54 49 45 52 2D 00 DD 15 24 27 8F 20 2A |SORTIER-...$'. *|
000005C0: 2A 2A 20 50 52 4F 47 52 41 4D 4D 20 41 4E 47 45 |** PROGRAMM ANGE|
000005D0: 48 41 45 4E 47 54 20 57 45 52 44 45 4E 00 00 00 |HAENGT WERDEN...|
..%.... HAUPTPROGRAMM ZU DEN SORTIER-.8.
... ALGORITHMEN..W.... ES ERSTELLT EIN F
ELD MIT.W.(.. EINER BESTIMMBAREN ANZAHL.
..2.. ELEMENTEN....<.. JEDES ELEMENT BES
TEHT AUS.J.F.. DREI BELIEBIGEN BUCHSTABE
N....P.. DAS ENTSPRECHENDE SORTIER-...Z.
. UNTERPROGRAMM MUSS AB.$._.. ZEILE 1000
0 GESCHEHEN../....".":..D.... 0,1:. 1,6:
.4,1.O...."DIESES PROGRAMM ERSTELLT ZUFA
ELLIGE"......".ELEMENTE, DIE VON DEN SOR
TIERPROGRAMMEN".O....".SORTIERT WERDEN.
JEDER SORTIERDURCHGANG"......".WIRD ANGE
ZEIGT."......"..WIEVIELE ELEMENTE";AN.(.
$.. AN.10 . .".ZU WENIG !":.1050.M.... A
N.10000 . .".ZU VIEL !":.1050.Z.8.. A$(A
N)...B.."..DIE ELEMENTE WERDEN JETZT ERZ
EUGT."...G..4000:. ** LINIE ZIEHEN.B.L..
*** ELEMENTE ERZEUGEN ***.Q.V.. A.1 . A
N...`.. B.1 . 3...J.A$(A). A$(A).G(.(.(T
I).25).65)...T.. B:. A.3.~.. 5000:. ** A
USGABE DER ELEMENTE.W....".DER SORTIERVO
RGANG BEGINNT.".].....N...TI$."000000"..
.... 10000:. ** SORTIERROUTINE.....T$.TI
$...... 4000:. ** LINIE ZIEHEN...... 500
0:. ** AUSGABE DER ELEMENTE...... 3000:.
** SORTIERART AUSGEBEN.'....".ES WURDEN
"AN"ELEMENTE SORTIERT.".O....".DIE BENOE
TIGTE ZEIT (HHMMSS):"T$.{.D.."..WOLLEN S
IE NOCH EINMAL SORTIEREN ?"...N... TA$..
.X.. TA$."J". 1000. .....B.... *** AUSGA
BE SORTIERNAME ***.Z.B..".SORTIERART: "S
A$...L..... .. *** LINIE ZIEHEN ***.....
. A.1 . 40......"-";...... A.".H...E....
*** AUSGABE DER ELEMENTE ***.T.... A.1
. AN.C....A$(A)" ";.M.... A:..S........'
. *** AN DIESER STELLE MUSS DAS....'. **
* ENTSPRECHENDE SORTIER-...$'. *** PROGR
AMM ANGEHAENGT WERDEN...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL