SORT

FILE INFORMATION

FILENAME(S): SORT

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-11-30 21:11:33

APPEARS ON: 1 disk(s)

FILE HASH

3b923a9b56b30e6f9ee36ba2cadc10b3524cbbc00598ceee5ea3e956f063330b

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
ADMIN PROGR	SORT	PRG	DuncanTwain	7	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 04 0D 04 01 00 99 22  13 13 93 22 3B 00 2D 04  |......."...";.-.|
00000010: 03 00 53 24 B2 22 22 3A  4C B2 30 3A 43 B2 30 3A  |..S$."":L.0:C.0:|
00000020: 54 B2 30 3A 58 39 B2 30  3A 5A 31 B2 30 00 56 04  |T.0:X9.0:Z1.0.V.|
00000030: 0A 00 81 49 B2 31 A4 33  39 3A 5A 31 24 B2 5A 31  |...I.1.39:Z1$.Z1|
00000040: 24 AA 22 20 22 3A 5A 32  24 B2 5A 32 24 AA C7 28  |$." ":Z2$.Z2$..(|
00000050: 31 36 34 29 3A 82 00 5C  04 1E 00 3A 00 65 04 28  |164):..\...:.e.(|
00000060: 00 89 31 30 30 00 6B 04  2D 00 3A 00 83 04 32 00  |..100.k.-.:...2.|
00000070: 97 32 31 36 2C 56 3A 99  22 91 22 3A 99 A6 48 29  |.216,V:.".":..H)|
00000080: 3B 3A 8E 00 89 04 3C 00  3A 00 96 04 64 00 99 22  |;:....<.:...d.."|
00000090: 12 22 3B 5A 31 24 00 C4  04 6E 00 99 22 D0 52 4F  |.";Z1$...n..".RO|
000000A0: 47 52 41 4D 4D 54 49 54  45 4C 3A 20 C4 C1 D2 CC  |GRAMMTITEL: ....|
000000B0: C9 CE CB 2D C4 C1 D4 C5  CE C2 C1 CE CB 2D D3 D9  |...-.........-..|
000000C0: D3 D4 C5 CD 00 EE 04 73  00 99 22 D2 4F 55 54 49  |.......s..".OUTI|
000000D0: 4E 45 3A 20 20 20 20 20  20 20 D3 C3 C8 CC D5 C5  |NE:       ......|
000000E0: D3 D3 C5 CC 20 D3 CF D2  D4 C9 C5 D2 C5 CE 00 FB  |.... ...........|
000000F0: 04 8C 00 99 22 12 22 3B  5A 31 24 00 11 05 8D 00  |....".";Z1$.....|
00000100: 8B C2 28 33 31 38 34 35  29 B2 32 34 30 A7 31 35  |..(31845).240.15|
00000110: 30 00 29 05 8E 00 43 52  24 B2 C7 28 31 33 29 3A  |0.)...CR$..(13):|
00000120: 58 31 24 B2 C7 28 33 34  29 00 5A 05 92 00 58 24  |X1$..(34).Z...X$|
00000130: B2 22 4C 4F 41 44 22 AA  58 31 24 AA 22 4D 53 4F  |."LOAD".X1$."MSO|
00000140: 52 54 22 AA 58 31 24 AA  22 2C 38 22 AA 43 52 24  |RT".X1$.",8".CR$|
00000150: AA 22 4E 45 57 22 AA 43  52 24 00 99 05 93 00 58  |."NEW".CR$.....X|
00000160: 24 B2 58 24 AA 22 53 59  53 33 31 38 34 31 22 AA  |$.X$."SYS31841".|
00000170: 43 52 24 AA 22 4C 4F 41  44 22 AA 58 31 24 AA 22  |CR$."LOAD".X1$."|
00000180: 53 4F 52 54 22 AA 58 31  24 AA 22 2C 38 22 AA 43  |SORT".X1$.",8".C|
00000190: 52 24 3A 89 31 30 30 32  30 00 A5 05 96 00 99 C7  |R$:.10020.......|
000001A0: 28 31 35 29 3B 00 B5 05  A0 00 56 B2 38 3A 48 B2  |(15);.....V.8:H.|
000001B0: 30 3A 8D 35 30 00 D0 05  AA 00 99 C7 28 32 32 29  |0:.50.......(22)|
000001C0: 3B 22 CD 41 53 4B 45 4E  4E 41 4D 45 3A 20 22 3B  |;".ASKENNAME: ";|
000001D0: 00 FC 05 AF 00 54 B2 31  33 3A 4C B2 31 35 3A 43  |.....T.13:L.15:C|
000001E0: B2 30 3A 8D 36 30 30 30  30 3A 46 49 24 B2 53 24  |.0:.60000:FI$.S$|
000001F0: 3A 8B 46 49 24 B2 22 22  A7 31 36 30 00 02 06 B0  |:.FI$."".160....|
00000200: 00 99 00 40 06 B4 00 99  C7 28 32 32 29 22 D3 43  |...@.....(22)".C|
00000210: 48 4C 55 45 53 53 45 4C  5A 45 49 4C 45 3A 20 20  |HLUESSELZEILE:  |
00000220: 20 20 20 20 20 20 20 20  20 20 22 3B 3A 54 B2 33  |          ";:T.3|
00000230: 30 3A 4C B2 32 3A 43 B2  32 3A 8D 36 30 30 30 30  |0:L.2:C.2:.60000|
00000240: 00 55 06 B6 00 53 5A 24  B2 53 24 3A 53 5A B2 C5  |.U...SZ$.S$:SZ..|
00000250: 28 53 5A 24 29 00 71 06  B9 00 8B 53 5A B3 31 B0  |(SZ$).q....SZ.1.|
00000260: 53 5A B1 31 35 A7 99 C7  28 37 29 3B 3A 89 31 38  |SZ.15...(7);:.18|
00000270: 30 00 77 06 BC 00 99 00  B5 06 BE 00 99 C7 28 32  |0.w...........(2|
00000280: 32 29 22 D3 43 48 4C 55  45 53 53 45 4C 46 49 4C  |2)".CHLUESSELFIL|
00000290: 45 20 49 4E 20 CC 41 55  46 57 45 52 4B 3A 20 22  |E IN .AUFWERK: "|
000002A0: 3B 3A 54 B2 33 30 3A 4C  B2 31 3A 43 B2 32 3A 8D  |;:T.30:L.1:C.2:.|
000002B0: 36 30 30 30 30 00 CD 06  C3 00 8B 53 24 B1 22 31  |60000......S$."1|
000002C0: 22 A7 99 C7 28 37 29 3B  3A 89 31 39 30 00 D3 06  |"...(7);:.190...|
000002D0: C8 00 3A 00 E9 06 C9 00  8B 53 24 B2 22 22 A7 53  |..:......S$."".S|
000002E0: 24 B2 22 30 22 3A 99 53  24 00 11 07 CD 00 CE 3A  |$."0":.S$......:|
000002F0: 9F 31 2C 38 2C 38 2C 53  24 AA 22 3A CB 22 AA 46  |.1,8,8,S$.":.".F|
00000300: 49 24 AA 22 20 22 AA 53  5A 24 AA 22 2C 53 2C 52  |I$." ".SZ$.",S,R|
00000310: 22 00 31 07 CF 00 8B 44  53 B3 B1 36 34 A7 99 C7  |".1....DS..64...|
00000320: 28 37 29 3B 22 93 12 22  3B 44 53 24 3A 89 31 36  |(7);"..";DS$:.16|
00000330: 30 00 58 07 D2 00 CE 3A  CD 23 31 2C 22 CB 22 AA  |0.X....:.#1,".".|
00000340: 46 49 24 AA 22 20 22 AA  53 5A 24 2C 44 28 C5 28  |FI$." ".SZ$,D(.(|
00000350: 53 24 29 29 2C 4C 31 30  00 7F 07 DC 00 8B 44 53  |S$)),L10......DS|
00000360: B3 B1 30 A7 8B 44 53 B3  B1 35 30 A7 99 C7 28 37  |..0..DS..50...(7|
00000370: 29 3B 22 93 12 22 3B 44  53 24 3A 89 31 36 30 00  |);"..";DS$:.160.|
00000380: 8F 07 E6 00 CF 23 31 2C  30 3A 84 31 2C 58 24 00  |.....#1,0:.1,X$.|
00000390: AB 07 F3 00 52 45 25 B2  C5 28 58 24 29 AA 31 3A  |....RE%..(X$).1:|
000003A0: 8B 52 45 25 B3 B2 31 A7  33 39 30 00 D2 07 FA 00  |.RE%..1.390.....|
000003B0: 99 3A 99 52 45 25 AB 31  3B 22 D2 45 43 4F 52 44  |.:.RE%.1;".ECORD|
000003C0: 53 20 5A 55 20 53 4F 52  54 49 45 52 45 4E 20 2E  |S ZU SORTIEREN .|
000003D0: 2E 2E 00 DF 07 04 01 86  41 24 28 52 45 25 29 00  |........A$(RE%).|
000003E0: FE 07 0E 01 81 49 B2 32  A4 52 45 25 3A CF 23 31  |.....I.2.RE%:.#1|
000003F0: 2C 28 49 29 3A 84 31 2C  58 24 2C 58 31 24 00 15  |,(I):.1,X$,X1$..|
00000400: 08 11 01 41 24 28 49 29  B2 58 24 AA C7 28 31 33  |...A$(I).X$..(13|
00000410: 29 AA 58 31 24 00 1B 08  22 01 82 00 21 08 36 01  |).X1$..."...!.6.|
00000420: 3A 00 2C 08 40 01 9E 33  31 38 34 31 00 32 08 54  |:.,.@..31841.2.T|
00000430: 01 3A 00 3C 08 63 01 CF  23 31 2C 32 00 51 08 68  |.:.<.c..#1,2.Q.h|
00000440: 01 81 49 B2 32 A4 52 45  25 3A CF 23 31 2C 28 49  |..I.2.RE%:.#1,(I|
00000450: 29 00 5E 08 72 01 98 31  2C 41 24 28 49 29 00 64  |).^.r..1,A$(I).d|
00000460: 08 7C 01 82 00 6A 08 86  01 CE 00 75 08 90 01 89  |.|...j.....u....|
00000470: 31 30 30 30 30 00 84 08  64 05 8B 4C B1 B2 4A A7  |10000...d..L..J.|
00000480: 31 34 32 30 00 8A 08 10  27 CE 00 B7 08 1A 27 58  |1420....'.....'X|
00000490: 24 B2 22 4C 4F 41 44 22  AA C7 28 33 34 29 AA 22  |$."LOAD"..(34)."|
000004A0: 4D 45 4E 55 45 22 AA C7  28 33 34 29 AA 22 2C 38  |MENUE"..(34).",8|
000004B0: 22 AA C7 28 31 33 29 00  DE 08 24 27 58 24 B2 58  |"..(13)...$'X$.X|
000004C0: 24 AA 22 52 55 4E 22 AA  C7 28 31 33 29 3A 53 B2  |$."RUN"..(13):S.|
000004D0: 36 32 32 3A 81 49 B2 31  A4 C3 28 58 24 29 00 F4  |622:.I.1..(X$)..|
000004E0: 08 2E 27 97 53 AA 49 2C  C6 28 CA 28 58 24 2C 49  |..'.S.I,.(.(X$,I|
000004F0: 2C 31 29 29 00 FA 08 38  27 82 00 09 09 42 27 97  |,1))...8'....B'.|
00000500: 31 35 38 2C C3 28 58 24  29 00 12 09 4C 27 99 22  |158,.(X$)...L'."|
00000510: 93 22 00 18 09 56 27 80  00 61 09 60 EA 8F 2D 2D  |."...V'..a.`..--|
00000520: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000530: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000540: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000550: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000560: 2D 00 90 09 6A EA 8F 20  20 20 20 20 20 20 20 20  |-...j..         |
00000570: 20 20 20 20 20 20 20 20  20 20 20 41 4E 4E 41 48  |           ANNAH|
00000580: 4D 45 20 45 49 4E 45 53  20 53 54 52 49 4E 47 53  |ME EINES STRINGS|
00000590: 00 D9 09 74 EA 8F 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |...t..----------|
000005A0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000005B0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000005C0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000005D0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 00 E8 09 79 EA 53 24  |---------...y.S$|
000005E0: B2 22 22 3A 5A 31 B2 30  00 07 0A 88 EA 99 C7 28  |."":Z1.0.......(|
000005F0: 31 33 29 22 91 22 A3 54  29 53 24 C7 28 31 36 34  |13)".".T)S$.(164|
00000600: 29 C7 28 32 32 29 3B 00  35 0A 8D EA 8B 5A 31 B1  |).(22);.5....Z1.|
00000610: 4C A7 81 4B 4B B2 31 A4  4C AA 31 3A 99 C7 28 32  |L..KK.1.L.1:..(2|
00000620: 30 29 3B 3A 82 4B 4B 3A  99 C7 28 37 29 3B 3A 89  |0);:.KK:..(7);:.|
00000630: 36 30 30 32 35 00 4A 0A  92 EA A1 58 24 3A 8B 58  |60025.J....X$:.X|
00000640: 24 B2 22 22 A7 36 30 30  35 30 00 57 0A 93 EA 58  |$."".60050.W...X|
00000650: 39 B2 C6 28 58 24 29 00  6C 0A 94 EA 8B 58 39 B2  |9..(X$).l....X9.|
00000660: 31 33 A7 99 C7 28 32 30  29 3B 3A 8E 00 7A 0A 95  |13...(20);:..z..|
00000670: EA 8B 58 39 B2 33 A7 34  30 30 00 B1 0A 9C EA 8B  |..X9.3.400......|
00000680: 28 58 39 B2 32 30 29 AF  28 5A 31 B1 30 29 A7 5A  |(X9.20).(Z1.0).Z|
00000690: 31 B2 5A 31 AB 31 3A 53  24 B2 C8 28 53 24 2C 5A  |1.Z1.1:S$..(S$,Z|
000006A0: 31 29 3A 99 C7 28 32 30  29 3B 3A 89 36 30 30 34  |1):..(20);:.6004|
000006B0: 30 00 CE 0A A6 EA 8B 43  B2 31 AF 58 39 B3 36 34  |0......C.1.X9.64|
000006C0: A7 99 C7 28 37 29 3B 3A  89 36 30 30 35 30 00 EF  |...(7);:.60050..|
000006D0: 0A B0 EA 8B 28 43 B2 32  29 AF 28 58 39 B1 35 39  |....(C.2).(X9.59|
000006E0: 29 A7 99 C7 28 37 29 3B  3A 89 36 30 30 35 30 00  |)...(7);:.60050.|
000006F0: 06 0B C4 EA 8B 58 39 B3  33 32 B0 58 39 B1 39 30  |.....X9.32.X9.90|
00000700: A7 36 30 30 35 30 00 22  0B CE EA 5A 31 B2 5A 31  |.60050."...Z1.Z1|
00000710: AA 31 3A 53 24 B2 53 24  AA 58 24 3A 89 36 30 30  |.1:S$.S$.X$:.600|
00000720: 34 30 00 00 00 E2 4E                              |40....N         |

......."...";.-...S$."":L.0:C.0:T.0:X9.0
:Z1.0.V....I.1.39:Z1$.Z1$." ":Z2$.Z2$.G(
164):..\...:.E.(..100.K.-.:...2..216,V:.
".":..H);:....<.:...D..".";Z1$.D.N.."PRO
GRAMMTITEL: DARLINK-DATENBANK-SYSTEM...S
.."ROUTINE:       SCHLUESSEL SORTIEREN..
....".";Z1$......B(31845).240.150.)...CR
$.G(13):X1$.G(34).Z...X$."LOAD".X1$."MSO
RT".X1$.",8".CR$."NEW".CR$.....X$.X$."SY
S31841".CR$."LOAD".X1$."SORT".X1$.",8".C
R$:.10020......G(15);... .V.8:H.0:.50.P.
...G(22);"MASKENNAME: ";.....T.13:L.15:C
.0:.60000:FI$.S$:.FI$."".160.......@....
G(22)"SCHLUESSELZEILE:            ";:T.3
0:L.2:C.2:.60000.U...SZ$.S$:SZ.E(SZ$).Q.
...SZ.1.SZ.15..G(7);:.180.W..........G(2
2)"SCHLUESSELFILE IN LAUFWERK: ";:T.30:L
.1:C.2:.60000.M.C..S$."1"..G(7);:.190.S.
H.:...I..S$."".S$."0":.S$...M.N:.1,8,8,S
$.":K".FI$." ".SZ$.",S,R".1.O..DS..64..G
(7);"..";DS$:.160.X.R.N:M#1,"K".FI$." ".
SZ$,D(E(S$)),L10.....DS..0..DS..50..G(7
);"..";DS$:.160.....O#1,0:.1,X$.....RE%.
E(X$).1:.RE%..1.390.R....:.RE%.1;"RECORD
S ZU SORTIEREN .........A$(RE%)......I.2
.RE%:O#1,(I):.1,X$,X1$.....A$(I).X$.G(13
).X1$..."...!.6.:.,.@..31841.2.T.:.<.C.O
#1,2.Q.H..I.2.RE%:O#1,(I).^.R..1,A$(I).D
.|...J...N.U....10000...D..L..J.1420....
'N....'X$."LOAD".G(34)."MENUE".G(34).",8
".G(13)...$'X$.X$."RUN".G(13):S.622:.I.1
.C(X$)....'.S.I,F(J(X$,I,1))...8'....B'.
158,C(X$)...L'."."...V'..A.`..----------
----------------------------------------
-----------------...J..                 
   ANNAHME EINES STRINGS.Y.T..----------
----------------------------------------
-----------------...Y.S$."":Z1.0......G(
13)".".T)S$G(164)G(22);.5....Z1.L..KK.1.
L.1:.G(20);:.KK:.G(7);:.60025.J....X$:.X
$."".60050.W...X9.F(X$).L....X9.13..G(20
);:..Z....X9.3.400......(X9.20).(Z1.0).Z
1.Z1.1:S$.H(S$,Z1):.G(20);:.60040.N....C
.1.X9.64..G(7);:.60050......(C.2).(X9.59
)..G(7);:.60050...D..X9.32.X9.90.60050."
.N.Z1.Z1.1:S$.S$.X$:.60040....N

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL