HANOI
FILE INFORMATION
FILENAME(S): HANOI
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 16:59:31
APPEARS ON: 1 disk(s)
FILE HASH
dad8f4394584e9cfa260703aa94df2951991e2d8cfdd6cd8da3485b550ff629a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MAC64 FLOPPY | HANOI | PRG | High Voltage Complete C64 Collection | 1 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: A8 07 3E 08 0F 09 00 0A 14 00 20 53 41 56 45 20 |..>....... SAVE |
00000010: 22 40 30 3A 48 41 4E 4F 49 22 00 14 04 00 00 1E |"@0:HANOI"......|
00000020: 23 00 20 57 52 49 54 54 45 4E 20 42 59 20 55 4E |#. WRITTEN BY UN|
00000030: 49 43 4F 4D 41 4C 20 41 50 53 2E 20 2F 20 4A 45 |ICOMAL APS. / JE|
00000040: 4A 00 28 1F 00 20 46 4F 52 20 43 4F 4D 41 4C 20 |J.(.. FOR COMAL |
00000050: 56 45 52 53 49 4F 4E 20 43 36 34 2F 32 2E 30 30 |VERSION C64/2.00|
00000060: 00 32 1D 00 20 50 52 4F 47 2E 20 56 45 52 53 2E |.2.. PROG. VERS.|
00000070: 20 32 2E 31 20 4A 41 4E 20 31 39 38 34 00 3C 04 | 2.1 JAN 1984.<.|
00000080: 00 00 46 1B 00 20 43 4F 4E 56 45 52 54 45 44 20 |..F.. CONVERTED |
00000090: 46 52 4F 4D 20 32 2E 30 30 20 42 59 00 50 13 00 |FROM 2.00 BY.P..|
000000A0: 20 43 4F 4C 49 4E 20 54 48 4F 4D 50 53 4F 4E 00 | COLIN THOMPSON.|
000000B0: 5A 0C 00 20 37 2D 32 36 2D 38 34 00 64 04 00 00 |Z.. 7-26-84.d...|
000000C0: 6E 18 8C 8D 01 02 02 00 13 91 02 00 03 92 8D 02 |n...............|
000000D0: 01 02 00 03 92 94 C5 00 78 14 8C 8F 03 00 02 00 |........x.......|
000000E0: 0C 93 8F 04 00 02 00 0E 93 94 C5 00 82 0C 8C 8F |................|
000000F0: 05 00 02 00 10 93 C5 00 8C 23 09 05 03 10 20 20 |.........#.... |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3C 00 | <.|
00000110: 20 31 36 20 53 50 41 43 45 53 00 96 04 00 00 A0 | 16 SPACES......|
00000120: 06 7F 06 81 00 AA 14 7F 07 07 08 10 02 00 01 0D |................|
00000130: 02 00 02 0D 02 00 03 13 00 B4 12 7F 09 02 00 04 |................|
00000140: 0D 02 00 04 13 00 20 45 4E 44 00 BE 04 00 00 C8 |...... END......|
00000150: 04 00 00 D2 09 70 06 00 00 00 7B 00 DC 06 7F 0A |.....p....{.....|
00000160: 81 00 E6 0A FF 20 02 00 0E FF 21 00 F0 0A FF 46 |..... ....!....F|
00000170: 02 00 0E FF 47 00 FA 0A FF 1E 02 00 01 FF 1F 01 |....G...........|
00000180: 04 06 7F 0B 81 01 0E 14 97 02 00 03 04 08 30 04 |..............0.|
00000190: 08 02 00 0C 30 39 98 00 00 01 18 2E 5F 03 25 41 |....09......_.%A|
000001A0: 54 20 4C 45 41 53 54 20 33 20 41 4E 44 20 4E 4F |T LEAST 3 AND NO|
000001B0: 20 4D 4F 52 45 20 54 48 41 4E 20 31 32 20 44 49 | MORE THAN 12 DI|
000001C0: 53 4B 53 21 65 60 61 01 22 06 7F 0B 81 01 2C 06 |SKS!e`a.".....,.|
000001D0: 9B 00 00 01 36 06 7F 0A 81 01 40 0C 0A 02 02 00 |....6.....@.....|
000001E0: 01 19 04 08 3A 01 4A 0F 82 0C 00 00 02 00 01 84 |....:.J.........|
000001F0: 04 08 85 87 01 54 16 0A 01 07 0C 10 02 00 01 19 |.....T..........|
00000200: 04 08 04 0C 29 02 00 01 27 3A 01 5E 16 7F 0D 07 |....)...':.^....|
00000210: 0C 10 02 00 01 0D 0A 01 07 0C 10 02 00 01 19 16 |................|
00000220: 01 68 07 8A 0C 00 00 01 72 16 7F 0E 02 00 17 0D |.h......r.......|
00000230: 02 00 06 0D 03 06 50 49 4C 45 20 31 15 01 7C 16 |......PILE 1..|.|
00000240: 7F 0E 02 00 17 0D 02 00 12 0D 03 06 50 49 4C 45 |............PILE|
00000250: 20 32 15 01 86 16 7F 0E 02 00 17 0D 02 00 1F 0D | 2..............|
00000260: 03 06 50 49 4C 45 20 33 15 01 90 06 5F 60 61 01 |..PILE 3...._`a.|
00000270: 9A 2F 5F 02 00 07 63 66 03 13 54 4F 57 45 52 20 |./_...cf..TOWER |
00000280: 4F 46 20 48 41 4E 4F 49 20 57 49 54 48 65 67 04 |OF HANOI WITHeg.|
00000290: 08 64 67 03 06 44 49 53 4B 53 2E 65 66 61 01 A4 |.dg..DISKS.efa..|
000002A0: 0A FF 1E 02 00 07 FF 1F 01 AE 05 7D 06 01 B8 04 |...........}....|
000002B0: 00 01 C2 09 70 0B 00 00 00 7B 01 CC 0D 7F 09 02 |....p....{......|
000002C0: 00 05 0D 02 00 01 13 01 D6 1C B5 03 11 05 48 4F |..............HO|
000002D0: 57 20 4D 41 4E 59 20 44 49 53 4B 53 3F 20 B7 07 |W MANY DISKS? ..|
000002E0: 08 B8 BB 01 E0 09 07 08 04 08 4F 3A 01 EA 05 7D |..........O:...}|
000002F0: 0B 01 F4 04 00 01 FE 0F 70 0D 00 00 03 72 0F 72 |........p....r.r|
00000300: 01 72 10 7B 02 08 17 7F 09 02 00 15 04 0F 29 0D |.r.{..........).|
00000310: 02 00 0D 04 01 24 02 00 0B 29 13 02 12 08 7F 11 |.....$...)......|
00000320: 07 10 16 02 1C 09 5F 06 04 65 60 61 02 26 05 7D |......_..e`a.&.}|
00000330: 0D 02 30 04 00 02 3A 13 70 12 00 00 05 72 13 72 |..0...:.p....r.r|
00000340: 14 72 15 72 16 72 10 7B 02 44 08 7F 11 07 10 16 |.r.r.r.{.D......|
00000350: 02 4E 10 00 20 52 41 49 53 45 20 44 49 53 4B 3A |.N.. RAISE DISK:|
00000360: 02 58 10 07 17 04 14 02 00 0D 24 02 00 0B 29 3A |.X........$...):|
00000370: 02 62 1B 82 0C 00 00 02 00 15 04 13 29 84 02 00 |.b..........)...|
00000380: 14 04 08 29 85 02 00 01 21 86 87 02 6C 16 7F 0E |...)....!...l...|
00000390: 07 0C 10 07 17 10 0C 05 02 00 01 1F 02 00 0C 19 |................|
000003A0: 18 02 76 12 7F 0E 04 0C 02 00 01 29 0D 07 17 10 |..v........)....|
000003B0: 09 04 18 02 80 07 8A 0C 00 00 02 8A 17 7F 09 02 |................|
000003C0: 00 13 04 08 29 0D 02 00 0D 04 14 24 02 00 0B 29 |....)......$...)|
000003D0: 13 02 94 0C 68 04 14 04 16 2A 69 00 00 02 9E 17 |....h....*i.....|
000003E0: 00 20 50 55 53 48 20 54 4F 20 54 48 45 20 52 49 |. PUSH TO THE RI|
000003F0: 47 48 54 3A 02 A8 20 82 0C 17 00 02 00 01 84 02 |GHT:.. .........|
00000400: 00 0D 04 16 04 14 29 47 24 85 88 5F 02 00 94 4B |......)G$.._...K|
00000410: 65 66 61 89 02 B2 06 6E 00 00 02 BC 16 00 20 50 |efa....n...... P|
00000420: 55 53 48 20 54 4F 20 54 48 45 20 4C 45 46 54 3A |USH TO THE LEFT:|
00000430: 02 C6 20 82 0C 17 00 02 00 01 84 02 00 0D 04 14 |.. .............|
00000440: 04 16 29 47 24 85 88 5F 02 00 14 4B 65 66 61 89 |..)G$.._...Kefa.|
00000450: 02 D0 04 6F 02 DA 06 5F 60 61 02 E4 10 00 20 4C |...o..._`a.... L|
00000460: 4F 57 45 52 20 44 49 53 4B 3A 02 EE 10 07 17 04 |OWER DISK:......|
00000470: 16 02 00 0D 24 02 00 0B 29 3A 02 F8 16 82 0C 00 |....$...):......|
00000480: 00 02 00 13 04 08 29 84 02 00 14 04 15 29 85 87 |......)......)..|
00000490: 03 02 16 7F 0E 07 0C 10 07 17 10 0C 05 02 00 01 |................|
000004A0: 1F 02 00 0C 19 18 03 0C 12 7F 0E 04 0C 02 00 01 |................|
000004B0: 27 0D 07 17 10 09 04 18 03 16 07 8A 0C 00 00 03 |'...............|
000004C0: 20 05 7D 12 03 2A 2D 00 2D 20 4D 41 49 4E 20 52 | .}..*-.- MAIN R|
000004D0: 4F 55 54 49 4E 45 2C 20 49 53 20 43 41 4C 4C 45 |OUTINE, IS CALLE|
000004E0: 44 20 52 45 43 55 52 53 49 56 45 4C 59 20 2D 2F |D RECURSIVELY -/|
000004F0: 2F 03 34 11 70 07 00 00 04 72 18 72 19 72 1A 72 |/.4.p....r.r.r.r|
00000500: 1B 7B 03 3E 0D 68 04 18 02 00 01 30 69 00 00 03 |.{.>.h.....0i...|
00000510: 48 15 7F 07 04 18 02 00 01 29 0D 07 19 10 07 1B |H........)......|
00000520: 10 07 1A 16 03 52 12 7F 07 02 00 01 0D 07 19 10 |.....R..........|
00000530: 07 1A 10 07 1B 16 03 5C 15 7F 07 04 18 02 00 01 |.......\........|
00000540: 29 0D 07 1A 10 07 19 10 07 1B 16 03 66 06 6E 00 |)...........f.n.|
00000550: 00 03 70 0C 0A 02 07 1B 1C 02 00 01 3D 03 7A 1A |..p.........=.z.|
00000560: 0A 01 0A 02 07 1B 1C 10 07 1B 1C 0A 01 0A 02 07 |................|
00000570: 19 1C 10 07 19 16 3A 03 84 23 7F 12 0A 02 07 19 |......:..#......|
00000580: 1C 10 07 19 10 0A 02 07 1B 1C 10 07 1B 10 0A 01 |................|
00000590: 0A 02 07 19 1C 10 07 19 1C 16 03 8E 0C 0A 02 07 |................|
000005A0: 19 1C 02 00 01 40 03 98 04 6F 03 A2 05 7D 07 03 |.....@...o...}..|
000005B0: AC 04 00 03 B6 0B 70 11 00 00 01 72 10 7B 03 C0 |......p....r.{..|
000005C0: 0D 68 04 10 02 00 02 26 69 00 00 03 CA 27 09 04 |.h.....&i....'..|
000005D0: 02 00 12 4B 02 00 A1 4B 28 0C 05 02 00 01 1F 04 |...K...K(.......|
000005E0: 10 02 00 01 29 13 28 02 00 92 4B 28 02 00 A1 4B |....).(...K(...K|
000005F0: 28 3C 03 D4 06 6E 00 00 03 DE 19 09 04 02 00 12 |(<...n..........|
00000600: 4B 0C 05 02 00 01 1F 04 10 13 28 02 00 92 4B 28 |K.........(...K(|
00000610: 3C 03 E8 04 6F 03 F2 19 09 03 0C 05 02 00 01 1F |<...o...........|
00000620: 02 00 0C 04 10 29 47 02 00 02 25 47 13 3C 03 FC |.....)G...%G.<..|
00000630: 0E 09 04 06 03 06 04 28 06 03 28 3C 04 06 05 7D |.......(..(<...}|
00000640: 11 04 10 04 00 04 1A 09 70 0A 00 00 00 7B 04 24 |........p....{.$|
00000650: 0B 5F 02 00 93 4B 65 60 61 04 2E 21 5F 02 00 0C |._...Ke`a..!_...|
00000660: 63 66 03 13 05 54 48 45 20 54 4F 57 45 52 20 4F |cf...THE TOWER O|
00000670: 46 20 48 41 4E 4F 49 65 60 61 04 38 05 7D 0A 04 |F HANOIe`a.8.}..|
00000680: 42 04 00 04 4C 04 00 04 56 0F 70 0E 00 00 03 72 |B...L...V.p....r|
00000690: 1C 72 1D 74 1E 7C 04 60 23 00 20 54 48 49 53 20 |.r.t.|.`#. THIS |
000006A0: 52 4F 55 54 49 4E 45 20 50 52 49 4E 54 53 20 54 |ROUTINE PRINTS T|
000006B0: 48 45 20 53 54 52 49 4E 47 04 6A 24 00 20 41 54 |HE STRING.j$. AT|
000006C0: 20 54 48 45 20 53 50 45 43 49 46 49 45 44 20 52 | THE SPECIFIED R|
000006D0: 4F 57 20 41 4E 44 20 43 4F 4C 55 4D 4E 04 74 0F |OW AND COLUMN.t.|
000006E0: E4 02 00 D6 E5 04 1C 02 00 01 29 E6 04 7E 15 07 |..........)..~..|
000006F0: 1C 02 04 00 04 1C 02 00 01 29 47 02 00 28 24 27 |.........)G..($'|
00000700: 3A 04 88 0F E4 02 00 D1 E5 04 1C 02 01 00 26 E6 |:.............&.|
00000710: 04 92 0F E4 02 00 D2 E5 04 1C 02 01 00 25 E6 04 |.............%..|
00000720: 9C 0F E4 02 00 D3 E5 04 1D 02 00 01 29 E6 04 A6 |............)...|
00000730: 09 5F 06 1E 65 66 61 04 B0 05 7D 0E 04 BA 04 00 |._..efa...}.....|
00000740: 04 C4 04 00 04 CE 0D 70 09 00 00 02 72 1C 72 1D |.......p....r.r.|
00000750: 7C 04 D8 0F E4 02 00 D3 E5 04 1D 02 00 01 29 E6 ||.............).|
00000760: 04 E2 1D E4 02 00 D1 E5 02 04 00 04 1C 02 00 01 |................|
00000770: 29 47 02 00 28 24 27 47 02 01 00 26 E6 04 EC 1D |)G..($'G...&....|
00000780: E4 02 00 D2 E5 02 04 00 04 1C 02 00 01 29 47 02 |.............)G.|
00000790: 00 28 24 27 47 02 01 00 25 E6 04 F6 0F E4 02 00 |.($'G...%.......|
000007A0: D6 E5 04 1C 02 00 01 29 E6 05 00 05 7D 09 00 00 |.......)....}...|
000007B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000007C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000007D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000007E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000007F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000800: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000810: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000820: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000830: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000840: 00 00 00 00 04 50 49 4C 45 03 54 4F 50 06 46 49 |.....PILE.TOP.FI|
00000850: 4C 4C 45 52 03 42 41 52 05 53 50 41 43 45 0A 49 |LLER.BAR.SPACE.I|
00000860: 4E 49 54 49 41 4C 49 5A 45 05 48 41 4E 4F 49 03 |NITIALIZE.HANOI.|
00000870: 4D 41 58 06 43 55 52 53 4F 52 0C 43 4C 45 41 52 |MAX.CURSOR.CLEAR|
00000880: 27 53 43 52 45 45 4E 0F 52 45 41 44 27 4E 4F 27 |'SCREEN.READ'NO'|
00000890: 4F 46 27 44 49 53 4B 01 49 09 44 52 41 57 27 44 |OF'DISK.I.DRAW'D|
000008A0: 49 53 4B 08 50 52 49 4E 54 5F 41 54 02 4E 4F 04 |ISK.PRINT_AT.NO.|
000008B0: 44 49 53 4B 08 46 4F 52 4D 27 42 41 52 09 4D 4F |DISK.FORM'BAR.MO|
000008C0: 56 45 27 44 49 53 4B 07 46 52 4F 4D 27 4E 4F 09 |VE'DISK.FROM'NO.|
000008D0: 46 52 4F 4D 27 50 49 4C 45 05 54 4F 27 4E 4F 07 |FROM'PILE.TO'NO.|
000008E0: 54 4F 27 50 49 4C 45 01 4A 0B 4E 4F 27 4F 46 27 |TO'PILE.J.NO'OF'|
000008F0: 44 49 53 4B 53 06 53 4F 55 52 43 45 03 56 49 41 |DISKS.SOURCE.VIA|
00000900: 04 44 45 53 54 03 52 4F 57 03 43 4F 4C 06 53 54 |.DEST.ROW.COL.ST|
00000910: 52 49 4E 47 00 00 |RING.. |
..>....... SAVE "@0:HANOI"......#. WRITT
EN BY UNICOMAL APS. / JEJ.(.. FOR COMAL
VERSION C64/2.00.2.. PROG. VERS. 2.1 JAN
1984.<...F.. CONVERTED FROM 2.00 BY.P..
COLIN THOMPSON.Z.. 7-26-84.D...N.......
..............E.X.................E.....
......E..#.... <. 16 SPAC
ES..... .............................
...... END.....H...R.P....{......... ..
..!....F....G........................0.
....09......_.%AT LEAST 3 AND NO MORE TH
AN 12 DISKS!E`A."....,.....6....@.....
....:.J..............T..............)...
':.^....................H......R......
......PILE 1..|............PILE 2.....
..........PILE 3...._`A../_...CF..TOWER
OF HANOI WITHEG..DG..DISKS.EFA..........
...}......B.P....{.L...........V.....HO
W MANY DISKS? ............O:...}........
P....R.R.R.{.........)......$...).....
......_..E`A.&.}..0...:.P....R.R.R.R.R.{
.D......N.. RAISE DISK:.X........$...):
.B..........)......)....!...L..........
..........V.......)...................
....)......$...)....H....*I...... PUSH T
O THE RIGHT:.. ...............)G$.._...K
EFA....N...... PUSH TO THE LEFT:.F .....
..........)G$.._...KEFA..P.O.Z._`A.... L
OWER DISK:..........$...):............).
.....)................................
'............... .}..*-.- MAIN ROUTINE,
IS CALLED RECURSIVELY -//.4.P....R.R.R.R
.{.>.H.....0I...H.......)...........R.
...............\.......)...........F.N.
..P.........=.Z.......................:.
.#.....................................
.....@...O...}........P....R.{...H.....&
I...J'.....K...K(...........).(...K(...K
(<.T.N..........K.........(...K(<...O...
.............)G...%G.<.........(..(<...}
........P....{.$._...KE`A..!_...CF...THE
TOWER OF HANOIE`A.8.}..B...L...V.P....R
.R.T.|.`#. THIS ROUTINE PRINTS THE STRIN
G.J$. AT THE SPECIFIED ROW AND COLUMN.T.
...V......)..~...........)G..($':......Q
......&.......R......%.......S......)...
._..EFA...}......D...N.P....R.R.|.X....S
......).......Q.........)G..($'G...&....
...R.........)G..($'G...%.......V......)
....}...................................
........................................
........................................
.....................................PIL
E.TOP.FILLER.BAR.SPACE.INITIALIZE.HANOI.
MAX.CURSOR.CLEAR'SCREEN.READ'NO'OF'DISK.
I.DRAW'DISK.PRINT_AT.NO.DISK.FORM'BAR.MO
VE'DISK.FROM'NO.FROM'PILE.TO'NO.TO'PILE.
J.NO'OF'DISKS.SOURCE.VIA.DEST.ROW.COL.ST
RING..
> CLICK IMAGE PREVIEW FOR FULL MODAL