> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 0A 37 8F 20 45 49 4E 46 41 43 48 45 |.....7. EINFACHE|
00000010: 20 53 4F 52 54 49 45 52 52 4F 55 54 49 4E 45 00 | SORTIERROUTINE.|
00000020: 42 08 0B 37 8F 20 5A 55 4E 41 45 43 48 53 54 20 |B..7. ZUNAECHST |
00000030: 5A 41 45 48 4C 45 52 53 54 41 4E 44 20 41 55 46 |ZAEHLERSTAND AUF|
00000040: 20 30 00 4C 08 98 3A 46 20 B2 20 30 00 73 08 9D | 0.L..:F . 0.s..|
00000050: 3A 8F 20 48 49 45 52 20 42 45 47 49 4E 4E 54 20 |:. HIER BEGINNT |
00000060: 44 49 45 20 53 4F 52 54 49 45 52 53 43 48 4C 45 |DIE SORTIERSCHLE|
00000070: 49 46 45 00 83 08 A2 3A 81 20 41 20 B2 20 30 20 |IFE....:. A . 0 |
00000080: A4 20 39 00 AB 08 A7 3A 3A 20 20 8F 20 54 45 58 |. 9....:: . TEX|
00000090: 54 20 49 4E 20 52 49 43 48 54 49 47 45 52 20 52 |T IN RICHTIGER R|
000000A0: 45 49 48 45 4E 46 4F 4C 47 45 3F 00 CC 08 AC 3A |EIHENFOLGE?....:|
000000B0: 3A 20 20 8B 20 41 24 28 41 29 20 B3 20 41 24 28 |: . A$(A) . A$(|
000000C0: 41 AA 31 29 20 A7 20 31 35 30 37 30 00 EF 08 B1 |A.1) . 15070....|
000000D0: 3A 3A 20 20 8F 20 57 45 4E 4E 20 4E 49 43 48 54 |:: . WENN NICHT|
000000E0: 2C 20 44 41 4E 4E 20 54 41 55 53 43 48 45 4E 00 |, DANN TAUSCHEN.|
000000F0: 01 09 B6 3A 3A 20 20 42 24 20 B2 20 41 24 28 41 |...:: B$ . A$(A|
00000100: 29 00 18 09 C0 3A 3A 20 20 41 24 28 41 29 20 B2 |)....:: A$(A) .|
00000110: 20 41 24 28 41 AA 31 29 00 2C 09 CA 3A 3A 20 20 | A$(A.1).,..:: |
00000120: 41 24 28 41 AA 31 29 20 B2 20 42 24 00 58 09 CF |A$(A.1) . B$.X..|
00000130: 3A 3A 20 20 8F 20 57 45 4E 4E 20 47 45 54 41 55 |:: . WENN GETAU|
00000140: 53 43 48 54 2C 20 44 41 4E 4E 20 46 45 48 4C 45 |SCHT, DANN FEHLE|
00000150: 52 20 4D 45 52 4B 45 4E 00 65 09 D4 3A 3A 20 20 |R MERKEN.e..:: |
00000160: 46 20 B2 20 31 00 84 09 D9 3A 3A 20 20 8F 20 4E |F . 1....:: . N|
00000170: 41 45 43 48 53 54 45 53 20 57 4F 52 54 20 54 45 |AECHSTES WORT TE|
00000180: 53 54 45 4E 00 8C 09 DE 3A 82 20 41 00 B3 09 E3 |STEN....:. A....|
00000190: 3A 8F 20 57 45 4E 4E 20 4B 45 49 4E 20 46 45 48 |:. WENN KEIN FEH|
000001A0: 4C 45 52 20 41 55 46 54 52 41 54 2C 20 46 45 52 |LER AUFTRAT, FER|
000001B0: 54 49 47 00 C7 09 E8 3A 8B 20 46 20 B2 20 30 20 |TIG....:. F . 0 |
000001C0: A7 20 31 35 31 31 30 00 ED 09 ED 3A 8F 20 53 4F |. 15110....:. SO|
000001D0: 4E 53 54 20 5A 55 4E 41 45 43 48 53 54 20 46 45 |NST ZUNAECHST FE|
000001E0: 48 4C 45 52 20 4C 4F 45 53 43 48 45 4E 00 F7 09 |HLER LOESCHEN...|
000001F0: F2 3A 46 20 B2 20 30 00 1F 0A F7 3A 8F 20 44 41 |.:F . 0....:. DA|
00000200: 4E 4E 20 4E 4F 43 48 4D 41 4C 20 53 43 48 4C 45 |NN NOCHMAL SCHLE|
00000210: 49 46 45 20 44 55 52 43 48 4C 41 55 46 45 4E 00 |IFE DURCHLAUFEN.|
00000220: 2B 0A FC 3A 89 20 31 35 30 31 30 00 31 0A 06 3B |+..:. 15010.1..;|
00000230: 8E 00 00 00 |.... |
.....7. EINFACHE SORTIERROUTINE.B..7. ZU
NAECHST ZAEHLERSTAND AUF 0.L..:F . 0.S..
:. HIER BEGINNT DIE SORTIERSCHLEIFE....:
. A . 0 . 9....:: . TEXT IN RICHTIGER R
EIHENFOLGE?.L..:: . A$(A) . A$(A.1) . 1
5070....:: . WENN NICHT, DANN TAUSCHEN.
...:: B$ . A$(A)....:: A$(A) . A$(A.1)
.,.J:: A$(A.1) . B$.X.O:: . WENN GETAU
SCHT, DANN FEHLER MERKEN.E.T:: F . 1...
Y:: . NAECHSTES WORT TESTEN....:. A....
:. WENN KEIN FEHLER AUFTRAT, FERTIG.G..:
. F . 0 . 15110....:. SONST ZUNAECHST FE
HLER LOESCHEN....:F . 0....:. DANN NOCHM
AL SCHLEIFE DURCHLAUFEN.+..:. 15010.1..;
....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL