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

HEAPSORT

FILE INFORMATION

FILENAME(S): HEAPSORT

FILE TYPE(S): PRG

FILE SIZE: 595b

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

APPEARS ON: 2 disk(s)

FILE HASH

efa4e48d530f6fc2ecdcb7e9e93c0db000d6e32ac22be49a0322d5582e8c84e6

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
64 ER 6 85 HEAPSORT PRG C64er 26 2 DOWNLOAD FILE
64 ER 6 85 HEAPSORT PRG DuncanTwain 26 2 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 1D 08 10 27 8F 20  53 4F 52 54 49 45 52 45  |.....'. SORTIERE|
00000010: 4E 20 4D 49 54 20 42 41  45 55 4D 45 4E 00 23 08  |N MIT BAEUMEN.#.|
00000020: 1A 27 8F 00 32 08 24 27  8F 20 48 45 41 50 53 4F  |.'..2.$'. HEAPSO|
00000030: 52 54 00 38 08 2E 27 8F  00 4D 08 38 27 4C 47 B2  |RT.8..'..M.8'LG.|
00000040: B5 28 41 AD 32 29 AA 31  3A 52 47 B2 41 00 61 08  |.(A.2).1:RG.A.a.|
00000050: 42 27 8B 20 52 47 B3 B2  31 20 A7 20 31 30 31 39  |B'. RG..1 . 1019|
00000060: 30 00 75 08 4C 27 8B 20  4C 47 B3 B2 31 20 A7 20  |0.u.L'. LG..1 . |
00000070: 31 30 31 30 30 00 8E 08  56 27 8F 20 41 55 46 42  |10100...V'. AUFB|
00000080: 41 55 20 44 45 53 20 48  41 55 46 45 4E 53 00 9A  |AU DES HAUFENS..|
00000090: 08 60 27 4C 47 B2 4C 47  AB 31 00 AB 08 6A 27 49  |.`'LG.LG.1...j'I|
000000A0: B2 4C 47 3A 89 20 31 30  31 34 30 00 C8 08 74 27  |.LG:. 10140...t'|
000000B0: 8F 20 57 45 47 4E 45 48  4D 45 4E 20 44 45 53 20  |. WEGNEHMEN DES |
000000C0: 4D 41 58 49 4D 55 4D 53  00 EC 08 7E 27 53 24 B2  |MAXIMUMS...~'S$.|
000000D0: 41 24 28 31 29 B2 41 24  28 31 29 B2 41 24 28 52  |A$(1).A$(1).A$(R|
000000E0: 47 29 3A 41 24 28 52 47  29 B2 53 24 00 F8 08 88  |G):A$(RG).S$....|
000000F0: 27 52 47 B2 52 47 AB 31  00 00 09 92 27 49 B2 31  |'RG.RG.1....'I.1|
00000100: 00 0D 09 9C 27 58 24 B2  41 24 28 49 29 00 30 09  |....'X$.A$(I).0.|
00000110: A6 27 50 B2 30 3A 8F 20  46 4C 41 47 20 46 55 45  |.'P.0:. FLAG FUE|
00000120: 52 20 4E 49 43 48 54 20  47 45 46 55 4E 44 45 4E  |R NICHT GEFUNDEN|
00000130: 00 4C 09 B0 27 8B 20 32  AC 49 B3 B2 52 47 20 AF  |.L..'. 2.I..RG .|
00000140: 20 50 B2 30 20 A7 20 31  30 32 30 30 00 59 09 BA  | P.0 . 10200.Y..|
00000150: 27 41 24 28 49 29 B2 58  24 00 6D 09 C4 27 8D 20  |'A$(I).X$.m..'. |
00000160: 33 30 30 30 3A 20 89 20  31 30 30 35 30 00 81 09  |3000: . 10050...|
00000170: CE 27 89 20 31 30 33 30  30 3A 20 8F 20 45 4E 44  |.'. 10300: . END|
00000180: 45 00 A4 09 D8 27 8F 20  46 45 4C 44 56 41 52 49  |E....'. FELDVARI|
00000190: 41 42 4C 45 20 41 24 28  49 29 20 45 49 4E 4F 52  |ABLE A$(I) EINOR|
000001A0: 44 4E 45 4E 00 AE 09 E2  27 4A B2 32 AC 49 00 D2  |DNEN....'J.2.I..|
000001B0: 09 EC 27 8B 20 4A B3 52  47 20 A7 20 8B 20 41 24  |..'. J.RG . . A$|
000001C0: 28 4A 29 B3 41 24 28 4A  AA 31 29 A7 20 4A B2 4A  |(J).A$(J.1). J.J|
000001D0: AA 31 00 EA 09 F6 27 8B  20 58 24 B1 B2 41 24 28  |.1....'. X$..A$(|
000001E0: 4A 29 20 A7 20 31 30 32  36 30 00 FA 09 00 28 41  |J) . 10260....(A|
000001F0: 24 28 49 29 B2 41 24 28  4A 29 00 0A 0A 0A 28 49  |$(I).A$(J)....(I|
00000200: B2 4A 3A 89 20 31 30 31  36 30 00 2D 0A 14 28 50  |.J:. 10160.-..(P|
00000210: B2 31 3A 8F 20 46 4C 41  47 20 46 55 45 52 20 50  |.1:. FLAG FUER P|
00000220: 4C 41 54 5A 20 47 45 46  55 4E 44 45 4E 00 39 0A  |LATZ GEFUNDEN.9.|
00000230: 1E 28 89 20 31 30 31 36  30 00 3F 0A 28 28 3A 00  |.(. 10160.?.((:.|
00000240: 45 0A 32 28 3A 00 50 0A  3C 28 8F 20 45 4E 44 45  |E.2(:.P.<(. ENDE|
00000250: 00 00 00                                          |...             |

.....'. SORTIEREN MIT BAEUMEN.#..'..2.$'
. HEAPSORT.8..'..M.8'LG..(A.2).1:RG.A.A.
B'. RG..1 . 10190.U.L'. LG..1 . 10100...
V'. AUFBAU DES HAUFENS...`'LG.LG.1...J'I
.LG:. 10140.H.T'. WEGNEHMEN DES MAXIMUMS
...~'S$.A$(1).A$(1).A$(RG):A$(RG).S$....
'RG.RG.1....'I.1....'X$.A$(I).0..'P.0:. 
FLAG FUER NICHT GEFUNDEN.L..'. 2.I..RG .
 P.0 . 10200.Y..'A$(I).X$.M.D'. 3000: . 
10050...N'. 10300: . ENDE...X'. FELDVARI
ABLE A$(I) EINORDNEN....'J.2.I.R..'. J.R
G . . A$(J).A$(J.1). J.J.1....'. X$..A$(
J) . 10260....(A$(I).A$(J)....(I.J:. 101
60.-..(P.1:. FLAG FUER PLATZ GEFUNDEN.9.
.(. 10160.?.((:.E.2(:.P.<(. ENDE...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL