00000000: 2B 25 54 25 01 00 86 41 24 28 31 30 29 3A 20 8F |+%T%...A$(10): .|
00000010: 20 2A 2A 2A 20 5A 55 20 53 4F 52 54 49 45 52 45 | *** ZU SORTIERE|
00000020: 4E 44 45 53 20 41 52 52 41 59 00 84 25 02 00 86 |NDES ARRAY..%...|
00000030: 4C 47 28 31 30 29 2C 52 47 28 31 30 29 3A 20 8F |LG(10),RG(10): .|
00000040: 20 2A 2A 2A 20 4C 49 4E 4B 45 20 26 20 52 45 43 | *** LINKE & REC|
00000050: 48 54 45 20 47 52 45 4E 5A 45 00 A5 25 03 00 4F |HTE GRENZE..%..O|
00000060: B2 31 30 3A 20 8F 20 2A 2A 2A 20 4D 45 4E 47 45 |.10: . *** MENGE|
00000070: 20 44 45 52 20 46 45 4C 44 45 52 00 D3 25 04 00 | DER FELDER..%..|
00000080: 81 49 B2 31 A4 31 30 3A 85 41 24 28 49 29 3A 82 |.I.1.10:.A$(I):.|
00000090: 3A 20 8F 20 2A 2A 2A 20 45 49 4E 47 41 42 45 20 |: . *** EINGABE |
000000A0: 31 30 20 46 45 4C 44 45 52 00 D9 25 05 00 3A 00 |10 FELDER..%..:.|
000000B0: F6 25 06 00 8D 20 34 30 30 30 30 3A 20 8F 20 2A |.%... 40000: . *|
000000C0: 2A 2A 20 53 4F 52 54 49 45 52 45 4E 00 FC 25 07 |** SORTIEREN..%.|
000000D0: 00 3A 00 29 26 08 00 81 49 B2 31 A4 31 30 3A 99 |.:.)&...I.1.10:.|
000000E0: 41 24 28 49 29 3A 82 3A 20 8F 20 2A 2A 2A 20 41 |A$(I):.: . *** A|
000000F0: 55 53 47 41 42 45 20 53 4F 52 54 49 45 52 54 00 |USGABE SORTIERT.|
00000100: 2F 26 09 00 3A 00 35 26 0A 00 80 00 5E 26 40 9C |/&..:.5&....^&@.|
00000110: 53 B2 31 3A 4C 47 28 31 29 B2 31 3A 52 47 28 31 |S.1:LG(1).1:RG(1|
00000120: 29 B2 4F 3A EB 3A 8D 34 30 30 30 31 3A EC FC 53 |).O:.:.40001:..S|
00000130: B2 30 3A 8E 00 8A 26 41 9C 4C B2 4C 47 28 53 29 |.0:...&A.L.LG(S)|
00000140: 3A 52 B2 52 47 28 53 29 3A 53 B2 53 AB 31 3A EB |:R.RG(S):S.S.1:.|
00000150: 3A 8D 34 30 30 30 32 3A EC FC 4C B1 B2 52 3A 8E |:.40002:..L..R:.|
00000160: 00 D3 26 42 9C 49 B2 4C 3A 4A B2 52 3A 4D B2 28 |..&B.I.L:J.R:M.(|
00000170: 4C AA 52 29 AD 32 3A 58 24 B2 41 24 28 4D 29 3A |L.R).2:X$.A$(M):|
00000180: EB 3A 8D 34 30 30 30 34 3A EC FC 49 B1 4A 3A 8B |.:.40004:..I.J:.|
00000190: 49 B3 52 A7 53 B2 53 AA 31 3A 4C 47 28 53 29 B2 |I.R.S.S.1:LG(S).|
000001A0: 49 3A 52 47 28 53 29 B2 52 00 DD 26 43 9C 52 B2 |I:RG(S).R..&C.R.|
000001B0: 4A 3A 8E 00 09 27 44 9C EB FC 41 24 28 49 29 B1 |J:...'D...A$(I).|
000001C0: B2 58 24 3A 49 B2 49 AA 31 3A EC 3A EB FC 41 24 |.X$:I.I.1:.:..A$|
000001D0: 28 4A 29 B3 B2 58 24 3A 4A B2 4A AB 31 3A EC 00 |(J)..X$:J.J.1:..|
000001E0: 3D 27 45 9C 8B 49 B3 B2 4A A7 57 24 B2 41 24 28 |='E..I..J.W$.A$(|
000001F0: 49 29 3A 41 24 28 49 29 B2 41 24 28 4A 29 3A 41 |I):A$(I).A$(J):A|
00000200: 24 28 4A 29 B2 57 24 3A 49 B2 49 AA 31 3A 4A B2 |$(J).W$:I.I.1:J.|
00000210: 4A AB 31 00 43 27 46 9C 8E 00 00 00 |J.1.C'F..... |
+%T%...A$(10): . *** ZU SORTIERENDES ARR
AY..%...LG(10),RG(10): . *** LINKE & REC
HTE GRENZE..%..O.10: . *** MENGE DER FEL
DER.S%...I.1.10:.A$(I):.: . *** EINGABE
10 FELDER.Y%..:..%... 40000: . *** SORTI
EREN..%..:.)&...I.1.10:.A$(I):.: . *** A
USGABE SORTIERT./&..:.5&....^&@.S.1:LG(1
).1:RG(1).O:.:.40001:..S.0:...&A.L.LG(S)
:R.RG(S):S.S.1:.:.40002:..L..R:..S&B.I.L
:J.R:M.(L.R).2:X$.A$(M):.:.40004:..I.J:.
I.R.S.S.1:LG(S).I:RG(S).R..&C.R.J:...'D.
..A$(I)..X$:I.I.1:.:..A$(J)..X$:J.J.1:..
='E..I..J.W$.A$(I):A$(I).A$(J):A$(J).W$:
I.I.1:J.J.1.C'F.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL