HANOI40
FILE INFORMATION
FILENAME(S): HANOI40
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 19:47:26
APPEARS ON: 1 disk(s)
FILE HASH
0736fef863b3a882843515257955ad0f7fb160ac582cfa68e7e618ffe9dd299b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HJ LPEDISK A5 2 | HANOI40 | PRG | Curtcool, Frank | 13 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 89 06 15 07 CF 07 00 01 24 00 20 57 52 49 54 54 |........$. WRITT|
00000010: 45 4E 20 42 59 20 42 2E 44 2E 47 52 41 49 4E 47 |EN BY B.D.GRAING|
00000020: 45 52 20 28 49 43 50 55 47 29 00 02 1B 00 20 46 |ER (ICPUG).... F|
00000030: 4F 52 20 43 4F 4D 41 4C 20 56 45 52 53 49 4F 4E |OR COMAL VERSION|
00000040: 20 30 2E 36 34 00 03 1D 00 20 50 52 4F 47 2E 20 | 0.64.... PROG. |
00000050: 56 45 52 53 2E 20 31 2E 30 20 4D 41 59 20 31 39 |VERS. 1.0 MAY 19|
00000060: 38 33 00 0A 04 00 00 14 18 8C 8D 01 02 02 00 13 |83..............|
00000070: 91 02 00 03 92 8D 02 01 02 00 03 92 94 C5 00 28 |...............(|
00000080: 1C 8C 8F 03 00 02 00 0C 93 8F 04 00 02 00 0C 93 |................|
00000090: 94 8F 05 00 02 00 0E 93 94 C5 00 32 04 00 00 3C |...........2...<|
000000A0: 22 0C 03 02 00 01 1F 02 00 0C 19 03 00 3C 00 20 |"............<. |
000000B0: 46 49 4C 4C 20 57 49 54 48 20 53 50 41 43 45 53 |FILL WITH SPACES|
000000C0: 00 50 04 00 00 5A 06 7F 06 81 00 64 14 7F 07 07 |.P...Z.....d....|
000000D0: 08 10 02 00 01 0D 02 00 02 0D 02 00 03 13 00 6E |...............n|
000000E0: 04 9F 00 78 04 00 00 82 09 70 06 0B 73 00 7B 00 |...x.....p..s.{.|
000000F0: 8C 06 7F 09 81 00 96 06 7F 0A 81 00 A0 14 97 02 |................|
00000100: 00 03 04 08 30 04 08 02 00 0C 30 39 98 3D 72 00 |....0.....09.=r.|
00000110: AA 2E 5F 03 25 41 54 20 4C 45 41 53 54 20 33 20 |.._.%AT LEAST 3 |
00000120: 41 4E 44 20 4E 4F 20 4D 4F 52 45 20 54 48 41 4E |AND NO MORE THAN|
00000130: 20 31 32 20 44 49 53 4B 53 21 65 60 61 00 B4 06 | 12 DISKS!e`a...|
00000140: 7F 0A 81 00 BE 06 9B F5 71 00 C8 06 7F 09 81 00 |........q.......|
00000150: D2 0C 0A 02 02 00 01 19 04 08 3A 00 DC 0F 82 0B |..........:.....|
00000160: 90 72 02 00 01 84 04 08 85 87 00 E6 16 0A 01 07 |.r..............|
00000170: 0B 10 02 00 01 19 04 08 04 0B 29 02 00 01 27 3A |..........)...':|
00000180: 00 F0 16 7F 0C 07 0B 10 02 00 01 0D 0A 01 07 0B |................|
00000190: 10 02 00 01 19 16 00 FA 07 8A 0B 55 72 01 04 0D |...........Ur...|
000001A0: 7F 0D 02 00 17 0D 02 00 01 13 01 0E 32 5F 02 00 |............2_..|
000001B0: 05 63 66 03 06 50 49 4C 45 20 31 65 66 02 00 12 |.cf..PILE 1ef...|
000001C0: 63 66 03 06 50 49 4C 45 20 32 65 66 02 00 1F 63 |cf..PILE 2ef...c|
000001D0: 66 03 06 50 49 4C 45 20 33 65 60 61 01 18 06 5F |f..PILE 3e`a..._|
000001E0: 60 61 01 22 2F 5F 02 00 07 63 66 03 13 54 4F 57 |`a."/_...cf..TOW|
000001F0: 45 52 20 4F 46 20 48 41 4E 4F 49 20 57 49 54 48 |ER OF HANOI WITH|
00000200: 65 67 04 08 64 67 03 06 44 49 53 4B 53 2E 65 66 |eg..dg..DISKS.ef|
00000210: 61 01 2C 05 7D 06 01 36 04 00 01 40 09 70 0A 59 |a.,.}..6...@.p.Y|
00000220: 73 00 7B 01 4A 33 B5 03 19 13 11 11 11 11 11 48 |s.{.J3.........H|
00000230: 4F 57 20 4D 41 4E 59 20 44 49 53 4B 53 3A 20 20 |OW MANY DISKS: |
00000240: 20 20 02 00 9D 4B 28 02 00 9D 4B 28 02 00 9D 4B | ...K(...K(...K|
00000250: 28 B7 07 08 B8 BB 01 54 09 07 08 04 08 4F 3A 01 |(......T.....O:.|
00000260: 5E 05 7D 0A 01 68 04 00 01 72 0F 70 0C 99 73 03 |^.}..h...r.p..s.|
00000270: 72 0E 72 01 72 0F 7B 01 7C 17 7F 0D 02 00 15 04 |r.r.r.{.|.......|
00000280: 0E 29 0D 02 00 0D 04 01 24 02 00 0B 29 13 01 81 |.)......$...)...|
00000290: 08 7F 10 07 0F 16 01 86 09 5F 06 05 65 60 61 01 |........._..e`a.|
000002A0: 90 05 7D 0C 01 9A 04 00 01 A4 13 70 11 44 75 05 |..}........p.Du.|
000002B0: 72 12 72 13 72 14 72 15 72 0F 7B 01 A9 08 7F 10 |r.r.r.r.r.{.....|
000002C0: 07 0F 16 01 AE 10 00 20 52 41 49 53 45 20 44 49 |....... RAISE DI|
000002D0: 53 4B 3A 01 B8 10 07 16 04 13 02 00 0D 24 02 00 |SK:..........$..|
000002E0: 0B 29 3A 01 C2 1B 82 0B 2C 74 02 00 15 04 12 29 |.):.....,t.....)|
000002F0: 84 02 00 14 04 08 29 85 02 00 01 21 86 87 01 C4 |......)....!....|
00000300: 0B 7F 0D 07 0B 10 07 16 16 01 C7 11 5F 0C 03 02 |............_...|
00000310: 00 01 1F 02 00 0C 13 65 60 61 01 CC 0F 7F 0D 04 |.......e`a......|
00000320: 0B 02 00 01 29 0D 07 16 16 01 D1 09 5F 06 05 65 |....)......._..e|
00000330: 60 61 01 D6 07 8A 0B DD 73 01 E0 17 7F 0D 02 00 |`a......s.......|
00000340: 13 04 08 29 0D 02 00 0D 04 13 24 02 00 0B 29 13 |...)......$...).|
00000350: 01 EA 0C 68 04 13 04 15 2A 69 8D 74 01 F4 17 00 |...h....*i.t....|
00000360: 20 50 55 53 48 20 54 4F 20 54 48 45 20 52 49 47 | PUSH TO THE RIG|
00000370: 48 54 3A 01 FE 20 82 0B 17 00 02 00 01 84 02 00 |HT:.. ..........|
00000380: 0D 04 15 04 13 29 47 24 85 88 5F 02 00 94 4B 65 |.....)G$.._...Ke|
00000390: 66 61 89 02 08 06 6E C9 74 02 12 16 00 20 50 55 |fa....n.t.... PU|
000003A0: 53 48 20 54 4F 20 54 48 45 20 4C 45 46 54 3A 02 |SH TO THE LEFT:.|
000003B0: 1C 20 82 0B 17 00 02 00 01 84 02 00 0D 04 13 04 |. ..............|
000003C0: 15 29 47 24 85 88 5F 02 00 14 4B 65 66 61 89 02 |.)G$.._...Kefa..|
000003D0: 26 04 6F 02 30 06 5F 60 61 02 3A 10 00 20 4C 4F |&.o.0._`a.:.. LO|
000003E0: 57 45 52 20 44 49 53 4B 3A 02 44 10 07 16 04 15 |WER DISK:.D.....|
000003F0: 02 00 0D 24 02 00 0B 29 3A 02 4E 16 82 0B 3D 75 |...$...):.N...=u|
00000400: 02 00 13 04 08 29 84 02 00 14 04 14 29 85 87 02 |.....)......)...|
00000410: 50 0B 7F 0D 07 0B 10 07 16 16 02 53 11 5F 0C 03 |P..........S._..|
00000420: 02 00 01 1F 02 00 0C 13 65 60 61 02 58 0F 7F 0D |........e`a.X...|
00000430: 04 0B 02 00 01 27 0D 07 16 16 02 5D 09 5F 06 05 |.....'.....]._..|
00000440: 65 60 61 02 62 07 8A 0B F3 74 02 6C 05 7D 11 02 |e`a.b....t.l.}..|
00000450: 76 04 00 02 80 2D 00 2D 20 4D 41 49 4E 20 52 4F |v....-.- MAIN RO|
00000460: 55 54 49 4E 45 2C 20 49 53 20 43 41 4C 4C 45 44 |UTINE, IS CALLED|
00000470: 20 52 45 43 55 52 53 49 56 45 4C 59 20 2D 2F 2F | RECURSIVELY -//|
00000480: 02 8A 04 00 02 94 11 70 07 37 76 04 72 17 72 18 |.......p.7v.r.r.|
00000490: 72 19 72 1A 7B 02 9E 0D 68 04 17 02 00 01 30 69 |r.r.{...h.....0i|
000004A0: D8 75 02 A8 15 7F 07 04 17 02 00 01 29 0D 07 18 |.u..........)...|
000004B0: 10 07 1A 10 07 19 16 02 B2 12 7F 07 02 00 01 0D |................|
000004C0: 07 18 10 07 19 10 07 1A 16 02 BC 15 7F 07 04 17 |................|
000004D0: 02 00 01 29 0D 07 19 10 07 18 10 07 1A 16 02 C6 |...)............|
000004E0: 06 6E 33 76 02 D0 0C 0A 02 07 1A 1C 02 00 01 3D |.n3v...........=|
000004F0: 02 DA 1A 0A 01 0A 02 07 1A 1C 10 07 1A 1C 0A 01 |................|
00000500: 0A 02 07 18 1C 10 07 18 16 3A 02 E4 23 7F 11 0A |.........:..#...|
00000510: 02 07 18 1C 10 07 18 10 0A 02 07 1A 1C 10 07 1A |................|
00000520: 10 0A 01 0A 02 07 18 1C 10 07 18 1C 16 02 EE 0C |................|
00000530: 0A 02 07 18 1C 02 00 01 40 02 F8 04 6F 03 02 05 |........@...o...|
00000540: 7D 07 03 0C 04 00 03 16 0B 70 10 C8 76 01 72 0F |}........p..v.r.|
00000550: 7B 03 20 0D 68 04 0F 02 00 02 26 69 7F 76 03 2A |{. .h.....&i.v.*|
00000560: 27 09 05 02 00 12 4B 02 00 A1 4B 28 0C 03 02 00 |'.....K...K(....|
00000570: 01 1F 04 0F 02 00 01 29 13 28 02 00 92 4B 28 02 |.......).(...K(.|
00000580: 00 A1 4B 28 3C 03 34 06 6E 9E 76 03 3E 19 09 05 |..K(<.4.n.v.>...|
00000590: 02 00 12 4B 0C 03 02 00 01 1F 04 0F 13 28 02 00 |...K.........(..|
000005A0: 92 4B 28 3C 03 48 04 6F 03 52 18 09 04 0C 03 02 |.K(<.H.o.R......|
000005B0: 00 01 1F 02 00 0C 04 0F 29 47 02 00 02 25 13 3C |........)G...%.<|
000005C0: 03 5C 0E 09 05 06 04 06 05 28 06 04 28 3C 03 66 |.\.......(..(<.f|
000005D0: 05 7D 10 03 70 04 00 03 7A 0D 70 0D 42 77 02 72 |.}..p...z.p.Bw.r|
000005E0: 1B 72 1C 7B 03 84 0F E4 02 00 D6 E5 04 1B 02 00 |.r.{............|
000005F0: 01 29 E6 03 8E 28 07 1B 02 04 00 04 1B 02 00 01 |.)...(..........|
00000600: 29 47 02 00 28 24 27 3A 00 20 53 54 41 52 54 20 |)G..($':. START |
00000610: 4F 46 20 4E 45 57 20 4C 49 4E 45 03 98 0F E4 02 |OF NEW LINE.....|
00000620: 00 D1 E5 04 1B 02 01 00 26 E6 03 A2 0F E4 02 00 |........&.......|
00000630: D2 E5 04 1B 02 01 00 25 E6 03 AC 0F E4 02 00 D3 |.......%........|
00000640: E5 04 1C 02 00 01 29 E6 03 B6 05 7D 0D 03 C0 04 |......)....}....|
00000650: 00 03 CA 09 70 09 80 77 00 7B 03 D4 11 5F 02 00 |....p..w.{..._..|
00000660: 93 4B 65 66 02 00 8E 4B 65 66 61 03 DE 1B 5F 03 |.Kef...Kefa..._.|
00000670: 12 54 48 45 20 54 4F 57 45 52 20 4F 46 20 48 41 |.THE TOWER OF HA|
00000680: 4E 4F 49 65 60 61 03 E8 05 7D 09 03 F2 04 00 90 |NOIe`a...}......|
00000690: F5 9F 00 00 90 D1 9E 00 00 12 B2 9E 00 00 12 A2 |................|
000006A0: 9E 00 00 12 90 9E 00 00 14 E0 71 00 00 14 7E 75 |..........q...~u|
000006B0: 00 00 10 8B 9E 00 00 14 4B 77 00 00 14 14 73 00 |........Kw....s.|
000006C0: 00 10 86 9E 00 00 14 62 73 00 00 14 D1 76 00 00 |.......bs....v..|
000006D0: 00 00 00 00 00 00 00 00 00 00 14 40 76 00 00 14 |...........@v...|
000006E0: A2 73 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |.s..............|
000006F0: 00 00 00 00 00 00 00 00 10 81 9E 00 00 00 00 00 |................|
00000700: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000710: 00 00 00 00 00 00 00 00 00 00 00 04 50 49 4C 45 |............PILE|
00000720: 03 54 4F 50 05 53 50 41 43 45 06 46 49 4C 4C 45 |.TOP.SPACE.FILLE|
00000730: 52 03 42 41 52 0A 49 4E 49 54 49 41 4C 49 5A 45 |R.BAR.INITIALIZE|
00000740: 05 48 41 4E 4F 49 03 4D 41 58 05 43 4C 45 41 52 |.HANOI.MAX.CLEAR|
00000750: 0F 52 45 41 44 27 4E 4F 27 4F 46 27 44 49 53 4B |.READ'NO'OF'DISK|
00000760: 01 49 09 44 52 41 57 27 44 49 53 4B 06 43 55 52 |.I.DRAW'DISK.CUR|
00000770: 53 4F 52 02 4E 4F 04 44 49 53 4B 08 46 4F 52 4D |SOR.NO.DISK.FORM|
00000780: 27 42 41 52 09 4D 4F 56 45 27 44 49 53 4B 07 46 |'BAR.MOVE'DISK.F|
00000790: 52 4F 4D 27 4E 4F 09 46 52 4F 4D 27 50 49 4C 45 |ROM'NO.FROM'PILE|
000007A0: 05 54 4F 27 4E 4F 07 54 4F 27 50 49 4C 45 01 4A |.TO'NO.TO'PILE.J|
000007B0: 0B 4E 4F 27 4F 46 27 44 49 53 4B 53 06 53 4F 55 |.NO'OF'DISKS.SOU|
000007C0: 52 43 45 03 56 49 41 04 44 45 53 54 03 52 4F 57 |RCE.VIA.DEST.ROW|
000007D0: 03 43 4F 4C 00 00 00 FF 52 FF |.COL....R. |
....O...$. WRITTEN BY B.D.GRAINGER (ICPU
G).... FOR COMAL VERSION 0.64.... PROG.
VERS. 1.0 MAY 1983......................
.....E.(.........................E.2...<
"............<. FILL WITH SPACES.P...Z.
...D..................N...X.....P..S.{.
.......... .......0.....09.=R..._.%AT
LEAST 3 AND NO MORE THAN 12 DISKS!E`A...
.......Q.H....R.........:......R......
..................)...':...............
...........UR..............2_...CF..PIL
E 1EF...CF..PILE 2EF...CF..PILE 3E`A..._
`A."/_...CF..TOWER OF HANOI WITHEG..DG..
DISKS.EFA.,.}..6...@.P.YS.{.J3.........H
OW MANY DISKS: ...K(...K(...K(......T
.....O:.^.}..H...R.P..S.R.R.R.{.|......
.)......$...)..........._..E`A...}.....
...P.DU.R.R.R.R.R.{........... RAISE DI
SK:..........$...):.B...,T.....)......).
...!...D.........G._..........E`A.L...
....).....Q._..E`A.V....S.........)....
..$...)....H....*I.T.... PUSH TO THE RIG
HT:.. ...............)G$.._...KEFA....NI
T.... PUSH TO THE LEFT:.. ..............
.)G$.._...KEFA..&.O.0._`A.:.. LOWER DISK
:.D........$...):.N...=U.....)......)...
P.........S._..........E`A.X.......'..
...]._..E`A.B....T.L.}..V....-.- MAIN RO
UTINE, IS CALLED RECURSIVELY -//.......P
.7V.R.R.R.R.{...H.....0IXU.........)...
.................................)....
.......F.N3V.P.........=.Z..............
.........:..#..........................
................@...O...}........P.HV.R.
{. .H.....&IV.*'.....K...K(...........)
.(...K(...K(<.4.N.V.>......K.........(..
.K(<.H.O.R..............)G...%.<.\......
.(..(<.F.}..P...Z.P.BW.R.R.{......V.....
.)...(..........)G..($':. START OF NEW L
INE......Q......&.......R......%.......S
......)....}......J.P..W.{.T._...KEF...K
EFA..._..THE TOWER OF HANOIE`A...}......
.....Q....................Q...~U........
KW....S........BS...QV.............@V...
.S......................................
....................PILE.TOP.SPACE.FILLE
R.BAR.INITIALIZE.HANOI.MAX.CLEAR.READ'NO
'OF'DISK.I.DRAW'DISK.CURSOR.NO.DISK.FORM
'BAR.MOVE'DISK.FROM'NO.FROM'PILE.TO'NO.T
O'PILE.J.NO'OF'DISKS.SOURCE.VIA.DEST.ROW
.COL....R.
> CLICK IMAGE PREVIEW FOR FULL MODAL