_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

LIST.7

FILE INFORMATION

FILENAME(S): LIST.7

FILE TYPE(S): PRG

FILE SIZE: 553b

FIRST SEEN: 2025-11-30 01:12:39

APPEARS ON: 2 disk(s)

FILE HASH

026cbbfdcf62bf8d2d690ef2224ddfdd01c2757d07a0d062ebac7db3d04866b0

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
15714 SH14 LIST.7 PRG C64er, DuncanTwain 16 6 DOWNLOAD FILE
15714 SH14 LIST.7 PRG DuncanTwain 16 6 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 10 18 10 10 27 8F 20  2A 2A 2A 20 48 45 41 50  |.....'. *** HEAP|
00000010: 53 4F 52 54 20 2A 2A 2A  00 1E 10 1A 27 8F 00 31  |SORT ***....'..1|
00000020: 10 24 27 53 41 24 B2 22  48 45 41 50 53 4F 52 54  |.$'SA$."HEAPSORT|
00000030: 22 00 48 10 2E 27 4C 47  B2 B5 28 41 4E AD 32 29  |".H..'LG..(AN.2)|
00000040: AA 31 3A 52 47 B2 41 4E  00 5C 10 38 27 8B 20 52  |.1:RG.AN.\.8'. R|
00000050: 47 B3 B2 31 20 A7 20 31  30 31 39 30 00 70 10 42  |G..1 . 10190.p.B|
00000060: 27 8B 20 4C 47 B3 B2 31  20 A7 20 31 30 30 39 30  |'. LG..1 . 10090|
00000070: 00 8C 10 4C 27 8F 20 2A  2A 20 48 41 55 46 45 4E  |...L'. ** HAUFEN|
00000080: 20 41 55 46 42 41 55 45  4E 20 2A 2A 00 98 10 56  | AUFBAUEN **...V|
00000090: 27 4C 47 B2 4C 47 AB 31  00 A9 10 60 27 49 B2 4C  |'LG.LG.1...`'I.L|
000000A0: 47 3A 89 20 31 30 31 33  30 00 C7 10 6A 27 8F 20  |G:. 10130...j'. |
000000B0: 2A 2A 20 4D 41 58 49 4D  55 4D 20 57 45 47 4E 45  |** MAXIMUM WEGNE|
000000C0: 48 4D 45 4E 20 2A 2A 00  EB 10 74 27 53 24 B2 41  |HMEN **...t'S$.A|
000000D0: 24 28 31 29 3A 41 24 28  31 29 B2 41 24 28 52 47  |$(1):A$(1).A$(RG|
000000E0: 29 3A 41 24 28 52 47 29  B2 53 24 00 F7 10 7E 27  |):A$(RG).S$...~'|
000000F0: 52 47 B2 52 47 AB 31 00  FF 10 88 27 49 B2 31 00  |RG.RG.1....'I.1.|
00000100: 0C 11 92 27 58 24 B2 41  24 28 49 29 00 2B 11 9C  |...'X$.A$(I).+..|
00000110: 27 50 B2 30 3A 8F 20 46  4C 41 47 20 3A 4E 49 43  |'P.0:. FLAG :NIC|
00000120: 48 54 20 47 45 46 55 4E  44 45 4E 00 47 11 A6 27  |HT GEFUNDEN.G..'|
00000130: 8B 20 32 AC 49 B3 B2 52  47 20 AF 20 50 B2 30 20  |. 2.I..RG . P.0 |
00000140: A7 20 31 30 32 30 30 00  54 11 B0 27 41 24 28 49  |. 10200.T..'A$(I|
00000150: 29 B2 58 24 00 71 11 BA  27 8F 20 47 4F 53 55 42  |).X$.q..'. GOSUB|
00000160: 20 35 30 30 30 3A 52 45  4D 20 41 55 53 47 41 42  | 5000:REM AUSGAB|
00000170: 45 00 7C 11 C4 27 89 31  30 30 34 30 00 82 11 CE  |E.|..'.10040....|
00000180: 27 8E 00 9C 11 D8 27 8F  20 2A 20 41 24 28 49 29  |'.....'. * A$(I)|
00000190: 20 45 49 4E 4F 52 44 4E  45 4E 20 2A 00 A6 11 E2  | EINORDNEN *....|
000001A0: 27 4A B2 32 AC 49 00 CB  11 EC 27 8B 20 4A B3 52  |'J.2.I....'. J.R|
000001B0: 47 20 A7 20 8B 20 41 24  28 4A 29 B3 41 24 28 4A  |G . . A$(J).A$(J|
000001C0: AA 31 29 20 A7 20 4A B2  4A AA 31 00 E3 11 F6 27  |.1) . J.J.1....'|
000001D0: 8B 20 58 24 B1 B2 41 24  28 4A 29 20 A7 20 31 30  |. X$..A$(J) . 10|
000001E0: 32 36 30 00 F3 11 00 28  41 24 28 49 29 B2 41 24  |260....(A$(I).A$|
000001F0: 28 4A 29 00 02 12 0A 28  49 B2 4A 3A 89 31 30 31  |(J)....(I.J:.101|
00000200: 35 30 00 1B 12 14 28 50  B2 31 3A 8F 20 50 4C 41  |50....(P.1:. PLA|
00000210: 54 5A 20 47 45 46 55 4E  44 45 4E 00 26 12 1E 28  |TZ GEFUNDEN.&..(|
00000220: 89 31 30 31 35 30 00 00  00                       |.10150...       |

.....'. *** HEAPSORT ***....'..1.$'SA$."
HEAPSORT".H..'LG..(AN.2).1:RG.AN.\.8'. R
G..1 . 10190.P.B'. LG..1 . 10090...L'. *
* HAUFEN AUFBAUEN **...V'LG.LG.1...`'I.L
G:. 10130.G.J'. ** MAXIMUM WEGNEHMEN **.
..T'S$.A$(1):A$(1).A$(RG):A$(RG).S$...~'
RG.RG.1....'I.1....'X$.A$(I).+..'P.0:. F
LAG :NICHT GEFUNDEN.G..'. 2.I..RG . P.0 
. 10200.T..'A$(I).X$.Q..'. GOSUB 5000:RE
M AUSGABE.|.D'.10040...N'....X'. * A$(I)
 EINORDNEN *....'J.2.I.K..'. J.RG . . A$
(J).A$(J.1) . J.J.1....'. X$..A$(J) . 10
260....(A$(I).A$(J)....(I.J:.10150....(P
.1:. PLATZ GEFUNDEN.&..(.10150...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL