HANOI
FILE INFORMATION
FILENAME(S): HANOI
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-11-30 17:31:34
APPEARS ON: 1 disk(s)
FILE HASH
7bd462367fbfbe133decf13dfbd65d84f5fd0426ab058f78d704caa415e13f96
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TERRY TO BOB | HANOI | PRG | UK CD | 25 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2C 08 01 00 50 47 24 B2 22 20 48 20 41 20 |..,...PG$." H A |
00000010: 4E 20 4F 20 49 20 22 3A 41 55 24 B2 22 42 59 20 |N O I ":AU$."BY |
00000020: 47 4C 45 4E 20 46 49 53 48 45 52 22 00 32 08 02 |GLEN FISHER".2..|
00000030: 00 3A 00 38 08 07 00 3A 00 4F 08 0A 00 8F 20 41 |.:.8...:.O.... A|
00000040: 53 20 4F 46 20 38 2F 31 35 2F 38 33 20 47 46 00 |S OF 8/15/83 GF.|
00000050: 5B 08 5A 00 89 20 36 32 30 30 30 00 7B 08 64 00 |[.Z.. 62000.{.d.|
00000060: 51 49 B2 31 35 3A 54 24 B2 22 92 20 92 A4 92 AF |QI.15:T$.". ....|
00000070: 92 B9 92 A2 12 B8 12 B7 12 A3 22 00 95 08 66 00 |.........."...f.|
00000080: 97 20 56 49 43 AA 33 32 2C 30 3A 97 20 56 49 43 |. VIC.32,0:. VIC|
00000090: AA 33 33 2C 30 00 AF 08 69 00 42 24 B2 22 12 A4 |.33,0...i.B$."..|
000000A0: 12 AF 12 B9 12 A2 92 B8 92 B7 92 A3 92 20 22 00 |............. ".|
000000B0: D5 08 6E 00 86 20 54 50 24 28 38 29 2C 54 24 28 |..n.. TP$(8),T$(|
000000C0: 38 29 2C 42 54 24 28 38 29 2C 42 24 28 38 29 2C |8),BT$(8),B$(8),|
000000D0: 43 24 28 38 29 00 E0 08 73 00 43 52 24 B2 22 22 |C$(8)...s.CR$.""|
000000E0: 00 EC 08 78 00 81 20 49 B2 31 A4 38 00 26 09 82 |...x.. I.1.8.&..|
000000F0: 00 43 24 B2 CA 28 54 24 2C 32 AC 49 2C 31 29 3A |.C$..(T$,2.I,1):|
00000100: 43 24 B2 43 24 AA 43 24 AA 43 24 3A 43 24 B2 43 |C$.C$.C$.C$:C$.C|
00000110: 24 AA 43 24 AA 43 24 3A 43 24 B2 C8 28 43 24 AA |$.C$.C$:C$..(C$.|
00000120: 43 24 2C 31 34 29 00 42 09 8C 00 54 50 24 28 49 |C$,14).B...TP$(I|
00000130: 29 B2 CA 28 54 24 2C 32 AC 49 AB 31 2C 31 29 AA |)..(T$,2.I.1,1).|
00000140: 43 24 00 7C 09 96 00 43 24 B2 CA 28 42 24 2C 32 |C$.|...C$..(B$,2|
00000150: AC 49 2C 31 29 3A 43 24 B2 43 24 AA 43 24 AA 43 |.I,1):C$.C$.C$.C|
00000160: 24 3A 43 24 B2 43 24 AA 43 24 AA 43 24 3A 43 24 |$:C$.C$.C$.C$:C$|
00000170: B2 C8 28 43 24 AA 43 24 2C 31 34 29 00 98 09 A0 |..(C$.C$,14)....|
00000180: 00 42 54 24 28 49 29 B2 CA 28 42 24 2C 32 AC 49 |.BT$(I)..(B$,2.I|
00000190: AB 31 2C 31 29 AA 43 24 00 A0 09 AA 00 82 20 49 |.1,1).C$...... I|
000001A0: 00 B4 09 C8 00 4C 24 B2 22 12 20 12 B4 12 A1 92 |.....L$.". .....|
000001B0: AA 92 20 22 00 C8 09 D2 00 52 24 B2 22 92 20 92 |.. ".....R$.". .|
000001C0: B4 92 A1 12 AA 12 20 22 00 DC 09 DC 00 86 20 4C |...... "...... L|
000001D0: 46 24 28 35 29 2C 52 54 24 28 35 29 00 16 0A E6 |F$(5),RT$(5)....|
000001E0: 00 81 20 49 B2 31 A4 35 3A 4C 46 24 28 49 29 B2 |.. I.1.5:LF$(I).|
000001F0: CA 28 4C 24 2C 32 AC 49 AB 31 2C 32 29 3A 52 54 |.(L$,2.I.1,2):RT|
00000200: 24 28 49 29 B2 CA 28 52 24 2C 32 AC 49 AB 31 2C |$(I)..(R$,2.I.1,|
00000210: 32 29 3A 82 20 49 00 55 0A F4 01 54 24 B2 22 22 |2):. I.U...T$.""|
00000220: 3A 49 4E 24 B2 22 22 3A 99 3A 99 22 9A 48 4F 57 |:IN$."":.:.".HOW|
00000230: 20 4D 41 4E 59 20 42 4C 4F 43 4B 53 20 28 55 50 | MANY BLOCKS (UP|
00000240: 20 54 4F 20 37 29 20 3F 20 22 3B 3A 8D 20 36 30 | TO 7) ? ";:. 60|
00000250: 30 30 30 3A 99 00 88 0A FE 01 8B 20 49 4E 24 B2 |000:....... IN$.|
00000260: 22 22 A7 20 99 20 22 4C 45 54 27 53 20 55 53 45 |"". . "LET'S USE|
00000270: 20 33 22 3A 49 4E 24 B2 22 33 22 3A 81 54 54 B2 | 3":IN$."3":.TT.|
00000280: 31 A4 31 30 30 30 3A 82 00 99 0A 08 02 81 20 49 |1.1000:....... I|
00000290: B2 31 A4 C3 28 49 4E 24 29 00 C6 0A 12 02 3A 54 |.1..(IN$).....:T|
000002A0: 24 B2 CA 28 49 4E 24 2C 49 2C 31 29 3A 8B 20 54 |$..(IN$,I,1):. T|
000002B0: 24 B1 B2 22 30 22 20 AF 20 54 24 B3 B2 22 39 22 |$.."0" . T$.."9"|
000002C0: 20 A7 20 35 35 30 00 E7 0A 1C 02 99 22 4E 4F 20 | . 550......"NO |
000002D0: 22 3B 54 24 3B 22 27 53 20 50 4C 45 41 53 45 2E |";T$;"'S PLEASE.|
000002E0: 22 3A 89 20 35 30 30 00 EF 0A 26 02 82 20 49 00 |":. 500...&.. I.|
000002F0: 28 0B 30 02 4E B2 C5 28 49 4E 24 29 3A 8B 4E B1 |(.0.N..(IN$):.N.|
00000300: 37 20 A7 20 99 22 49 20 43 41 4E 27 54 20 48 41 |7 . ."I CAN'T HA|
00000310: 4E 44 4C 45 20 4D 4F 52 45 20 54 48 41 4E 20 37 |NDLE MORE THAN 7|
00000320: 2E 22 3A 89 20 35 30 30 00 51 0B 3A 02 8B 20 4E |.":. 500.Q.:.. N|
00000330: B3 32 20 A7 20 99 22 44 4F 4E 27 54 20 42 45 20 |.2 . ."DON'T BE |
00000340: 52 49 44 49 43 55 4C 4F 55 53 21 22 3A 89 35 30 |RIDICULOUS!":.50|
00000350: 30 00 63 0B 58 02 43 4C 24 B2 22 05 1C 9F 9C 1E |0.c.X.CL$.".....|
00000360: 1F 9E 22 00 6F 0B 62 02 81 20 49 B2 31 A4 37 00 |..".o.b.. I.1.7.|
00000370: 86 0B 6C 02 54 B2 B5 28 BB 28 31 29 AC C3 28 43 |..l.T..(.(1)..(C|
00000380: 4C 24 29 AA 31 29 00 9C 0B 76 02 43 4C 24 28 49 |L$).1)...v.CL$(I|
00000390: 29 B2 CA 28 43 4C 24 2C 54 2C 31 29 00 BA 0B 80 |)..(CL$,T,1)....|
000003A0: 02 43 4C 24 B2 C8 28 43 4C 24 2C 54 AB 31 29 AA |.CL$..(CL$,T.1).|
000003B0: CA 28 43 4C 24 2C 54 AA 31 29 00 C2 0B 8A 02 82 |.(CL$,T.1)......|
000003C0: 20 49 00 E2 0B 84 03 44 4E 24 B2 22 13 11 11 11 | I.....DN$."....|
000003D0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000003E0: 11 22 00 FB 0B 8E 03 52 54 24 B2 22 1D 1D 1D 1D |.".....RT$."....|
000003F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 21 0C E8 03 |..........".!...|
00000400: 81 49 B2 31 20 A4 20 33 3A 81 20 4A B2 30 A4 37 |.I.1 . 3:. J.0.7|
00000410: 3A 50 28 49 2C 4A 29 B2 30 3A 82 20 4A 3A 82 20 |:P(I,J).0:. J:. |
00000420: 49 00 3C 0C 4C 04 99 22 93 22 3B 44 4E 24 3B 22 |I.<.L..".";DN$;"|
00000430: 91 97 22 3A 50 28 31 2C 30 29 B2 4E 00 4A 0C 56 |..":P(1,0).N.J.V|
00000440: 04 81 20 49 B2 31 A4 35 3A 99 00 83 0C 5B 04 99 |.. I.1.5:....[..|
00000450: 20 22 12 20 20 20 20 20 20 20 20 20 20 20 20 20 | ". |
00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000470: 20 20 20 20 20 20 20 20 20 20 9D 94 20 22 3B 3A | .. ";:|
00000480: 82 20 49 00 BA 0C 60 04 99 20 44 4E 24 3B 22 11 |. I...`.. DN$;".|
00000490: 1D 1D 1D 1D 1D 9E 12 AC 92 B8 B8 12 BB 92 11 9D |................|
000004A0: 9D 9D 9D B5 05 23 31 9E B6 11 9D 9D 9D 9D 12 BC |.....#1.........|
000004B0: 92 B9 B9 12 BE 92 91 91 22 3B 00 EF 0C 6A 04 99 |........";...j..|
000004C0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 9E 12 AC 92 B8 B8 |"...............|
000004D0: 12 BB 92 11 9D 9D 9D 9D B5 05 23 32 9E B6 11 9D |..........#2....|
000004E0: 9D 9D 9D 12 BC 92 B9 B9 12 BE 92 91 91 22 3B 00 |.............";.|
000004F0: 23 0D 74 04 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 9E |#.t.."..........|
00000500: 12 AC 92 B8 B8 12 BB 92 11 9D 9D 9D 9D B5 05 23 |...............#|
00000510: 33 9E B6 11 9D 9D 9D 9D 12 BC 92 B9 B9 12 BE 92 |3...............|
00000520: 91 22 3B 00 3D 0D 7E 04 99 20 44 4E 24 3B C8 28 |.";.=.~.. DN$;.(|
00000530: 22 91 91 91 91 91 91 91 22 2C 4E 29 3B 00 4C 0D |".......",N);.L.|
00000540: 88 04 81 20 49 B2 20 31 20 A4 20 4E 00 83 0D 92 |... I. 1 . N....|
00000550: 04 99 20 43 4C 24 28 49 29 3B C8 28 22 92 22 AA |.. CL$(I);.(".".|
00000560: 52 54 24 2C 37 AB 49 AA 31 29 3B C8 28 22 12 A4 |RT$,7.I.1);.("..|
00000570: 22 AA 42 54 24 28 31 29 2C 32 AC 49 AA 31 29 3B |".BT$(1),2.I.1);|
00000580: 22 A4 22 00 96 0D 9C 04 50 28 31 2C 4E AB 49 AA |".".....P(1,N.I.|
00000590: 31 29 B2 49 AC 32 00 9E 0D A6 04 82 20 49 00 A7 |1).I.2...... I..|
000005A0: 0D 08 07 4D 56 B2 30 00 B4 0D 6C 07 54 4D B2 54 |...MV.0...l.TM.T|
000005B0: 49 AA 36 30 00 C7 0D 76 07 8B 20 54 49 B3 54 4D |I.60...v.. TI.TM|
000005C0: 20 A7 20 31 39 31 30 00 D2 0D 9E 07 8D 20 38 30 | . 1910...... 80|
000005D0: 30 30 00 0A 0E D0 07 99 20 22 9A 22 3A 50 52 24 |00...... ".":PR$|
000005E0: B2 22 46 52 4F 4D 20 57 48 49 43 48 20 50 49 4C |."FROM WHICH PIL|
000005F0: 45 3F 20 22 3A 8D 20 35 30 30 30 3A 8B 20 49 4E |E? ":. 5000:. IN|
00000600: 24 B2 22 22 20 A7 31 39 35 30 00 17 0E DA 07 46 |$."" .1950.....F|
00000610: B2 C5 28 49 4E 24 29 00 48 0E E4 07 8B 20 50 28 |..(IN$).H.... P(|
00000620: 46 2C 30 29 B3 31 20 A7 20 99 20 22 96 54 48 41 |F,0).1 . . ".THA|
00000630: 54 20 50 49 4C 45 20 49 53 20 45 4D 50 54 59 2E |T PILE IS EMPTY.|
00000640: 22 3A 89 20 31 39 30 30 00 79 0E 02 08 50 52 24 |":. 1900.y...PR$|
00000650: B2 22 54 4F 20 57 48 49 43 48 20 50 49 4C 45 3F |."TO WHICH PILE?|
00000660: 20 22 3A 8D 20 35 30 30 30 3A 8B 20 49 4E 24 B2 | ":. 5000:. IN$.|
00000670: 22 22 20 A7 20 31 39 35 30 00 86 0E 0C 08 54 B2 |"" . 1950.....T.|
00000680: C5 28 49 4E 24 29 00 B6 0E 16 08 8B 20 46 B2 54 |.(IN$)...... F.T|
00000690: 20 A7 20 99 20 22 96 54 48 41 54 20 4D 4F 56 45 | . . ".THAT MOVE|
000006A0: 20 44 4F 45 53 20 4E 4F 54 48 49 4E 47 2E 22 3A | DOES NOTHING.":|
000006B0: 89 20 31 39 30 30 00 CC 0E 20 08 8B 20 50 28 54 |. 1900... .. P(T|
000006C0: 2C 30 29 B2 30 20 A7 20 32 31 30 30 00 06 0F 2A |,0).0 . 2100...*|
000006D0: 08 8B 20 50 28 46 2C 50 28 46 2C 30 29 29 B1 50 |.. P(F,P(F,0)).P|
000006E0: 28 54 2C 50 28 54 2C 30 29 29 20 A7 20 99 20 22 |(T,P(T,0)) . . "|
000006F0: 96 49 54 20 57 4F 4E 27 54 20 46 49 54 2E 22 3A |.IT WON'T FIT.":|
00000700: 89 20 31 39 30 30 00 3C 0F 34 08 46 43 B2 50 28 |. 1900.<.4.FC.P(|
00000710: 46 2C 30 29 3A 46 57 B2 50 28 46 2C 46 43 29 3A |F,0):FW.P(F,FC):|
00000720: 54 43 B2 50 28 54 2C 30 29 3A 54 57 B2 50 28 54 |TC.P(T,0):TW.P(T|
00000730: 2C 54 43 29 3A 4D 56 B2 4D 56 AA 31 00 54 0F 3E |,TC):MV.MV.1.T.>|
00000740: 08 58 B2 31 AA 31 33 AC 28 46 AB 31 29 AA 37 AB |.X.1.13.(F.1).7.|
00000750: 46 57 AD 32 00 88 0F 48 08 99 20 44 4E 24 3B C8 |FW.2...H.. DN$;.|
00000760: 28 22 91 91 91 91 91 91 91 91 91 22 2C 46 43 AA |(".........",FC.|
00000770: 31 29 3B C8 28 22 92 22 AA 52 54 24 AA 52 54 24 |1);.(".".RT$.RT$|
00000780: AA 52 54 24 2C 58 29 3B 00 AA 0F 4D 08 4C 46 24 |.RT$,X);...M.LF$|
00000790: B2 C8 28 22 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |..("............|
000007A0: 9D 9D 9D 22 2C 46 57 AA 31 29 00 E6 0F 52 08 81 |...",FW.1)...R..|
000007B0: 20 49 B2 31 20 A4 20 38 3A 54 24 28 49 29 B2 C8 | I.1 . 8:T$(I)..|
000007C0: 28 54 50 24 28 49 29 2C 31 AA 46 57 29 3A 42 24 |(TP$(I),1.FW):B$|
000007D0: 28 49 29 B2 C8 28 42 54 24 28 49 29 2C 31 AA 46 |(I)..(BT$(I),1.F|
000007E0: 57 29 3A 82 20 49 00 FF 0F 57 08 48 54 B2 30 3A |W):. I...W.HT.0:|
000007F0: 4A B2 31 3A 8B 20 46 B1 54 20 A7 4A B2 AB 31 00 |J.1:. F.T .J..1.|
00000800: 11 10 5C 08 81 20 49 B2 46 20 A4 20 54 20 A9 20 |..\.. I.F . T . |
00000810: 4A 00 2D 10 61 08 8B 20 50 28 49 2C 30 29 B1 48 |J.-.a.. P(I,0).H|
00000820: 54 20 A7 20 48 54 B2 50 28 49 2C 30 29 00 35 10 |T . HT.P(I,0).5.|
00000830: 66 08 82 20 49 00 56 10 6B 08 8B 20 48 54 B2 50 |f.. I.V.k.. HT.P|
00000840: 28 54 2C 30 29 20 A7 20 48 54 B2 48 54 AA 31 3A |(T,0) . HT.HT.1:|
00000850: 89 20 32 31 36 33 00 7C 10 70 08 8B 20 B6 28 46 |. 2163.|.p.. .(F|
00000860: AB 54 29 B1 31 20 A7 20 8B 48 54 B2 50 28 32 2C |.T).1 . .HT.P(2,|
00000870: 30 29 20 A7 20 48 54 B2 48 54 AA 31 00 96 10 73 |0) . HT.HT.1...s|
00000880: 08 99 20 43 4C 24 28 50 28 46 2C 50 28 46 2C 30 |.. CL$(P(F,P(F,0|
00000890: 29 29 AD 32 29 3B 00 A5 10 75 08 81 20 49 B2 46 |)).2);...u.. I.F|
000008A0: 43 20 A4 48 54 00 B3 10 7A 08 3A 81 20 4A B2 31 |C .HT...z.:. J.1|
000008B0: A4 20 38 00 D4 10 7F 08 3A 99 20 54 24 28 4A 29 |. 8.....:. T$(J)|
000008C0: 3B 4C 46 24 3B 42 24 28 4A 29 3B 4C 46 24 3B 22 |;LF$;B$(J);LF$;"|
000008D0: 91 91 22 3B 00 DD 10 84 08 3A 82 20 4A 00 E9 10 |..";.....:. J...|
000008E0: 89 08 3A 99 20 22 91 22 3B 00 F1 10 8E 08 82 20 |..:. ".";...... |
000008F0: 49 00 FC 10 93 08 99 20 22 11 22 3B 00 2D 11 98 |I...... ".";.-..|
00000900: 08 4C 24 B2 C8 28 22 9D 9D 9D 9D 9D 9D 9D 9D 9D |.L$..(".........|
00000910: 9D 9D 9D 9D 9D 9D 9D 22 2C 31 AA 46 57 29 3A 52 |.......",1.FW):R|
00000920: 24 B2 C8 28 52 54 24 2C 46 57 AB 31 29 00 6E 11 |$..(RT$,FW.1).n.|
00000930: 99 08 99 20 22 12 22 3B C8 28 22 20 20 20 20 20 |... ".";.(" |
00000940: 20 20 20 20 20 20 20 20 20 20 20 22 2C 46 57 29 | ",FW)|
00000950: 3B 22 92 22 3B C8 28 22 9D 9D 9D 9D 9D 9D 9D 9D |;".";.("........|
00000960: 9D 9D 9D 9D 9D 9D 9D 9D 22 2C 46 57 29 3B 00 7F |........",FW);..|
00000970: 11 9D 08 8B 20 46 B1 54 20 A7 20 32 32 35 30 00 |.... F.T . 2250.|
00000980: 95 11 A2 08 81 20 49 B2 46 AC 31 33 20 A4 20 54 |..... I.F.13 . T|
00000990: AC 31 33 AB 31 00 A4 11 A7 08 3A 81 20 4A B2 31 |.13.1.....:. J.1|
000009A0: 20 A4 20 35 00 BF 11 AC 08 99 20 4C 46 24 28 4A | . 5...... LF$(J|
000009B0: 29 3B 52 24 3B 52 54 24 28 4A 29 3B 4C 24 3B 00 |);R$;RT$(J);L$;.|
000009C0: C7 11 B1 08 82 20 4A 00 D2 11 B2 08 99 20 22 1D |..... J...... ".|
000009D0: 22 3B 00 DA 11 B6 08 82 20 49 00 E5 11 BB 08 89 |";...... I......|
000009E0: 20 32 33 30 30 00 FB 11 CA 08 81 20 49 B2 54 AC | 2300...... I.T.|
000009F0: 31 33 20 A4 20 46 AC 31 33 AB 31 00 06 12 CF 08 |13 . F.13.1.....|
00000A00: 99 20 22 9D 22 3B 00 1A 12 D4 08 3A 81 20 4A B2 |. ".";.....:. J.|
00000A10: 35 20 A4 20 31 20 A9 20 AB 31 00 37 12 D9 08 3A |5 . 1 . .1.7...:|
00000A20: 3A 99 20 4C 46 24 28 4A 29 3B 52 24 3B 52 54 24 |:. LF$(J);R$;RT$|
00000A30: 28 4A 29 3B 4C 24 3B 00 40 12 DE 08 3A 82 20 4A |(J);L$;.@...:. J|
00000A40: 00 48 12 E3 08 82 20 49 00 5F 12 FC 08 81 20 49 |.H.... I._.... I|
00000A50: B2 48 54 AB 31 20 A4 20 54 43 20 A9 20 AB 31 00 |.HT.1 . TC . .1.|
00000A60: 73 12 06 09 3A 81 20 4A B2 38 20 A4 20 31 20 A9 |s...:. J.8 . 1 .|
00000A70: 20 AB 31 00 94 12 10 09 3A 99 20 54 24 28 4A 29 | .1.....:. T$(J)|
00000A80: 3B 4C 46 24 3B 42 24 28 4A 29 3B 4C 46 24 3B 22 |;LF$;B$(J);LF$;"|
00000A90: 91 91 22 3B 00 9E 12 1A 09 3A 20 82 20 4A 00 AA |..";.....: . J..|
00000AA0: 12 24 09 3A 99 20 22 11 22 3B 00 B2 12 2E 09 82 |.$.:. ".";......|
00000AB0: 20 49 00 D0 12 6A 09 99 20 C8 28 22 12 A4 22 AA | I...j.. .("..".|
00000AC0: 42 54 24 28 31 29 2C 46 57 AA 31 29 3B 22 A4 22 |BT$(1),FW.1);"."|
00000AD0: 00 E4 12 C4 09 50 28 54 2C 30 29 B2 50 28 54 2C |.....P(T,0).P(T,|
00000AE0: 30 29 AA 31 00 00 13 CE 09 50 28 54 2C 50 28 54 |0).1.....P(T,P(T|
00000AF0: 2C 30 29 29 B2 50 28 46 2C 50 28 46 2C 30 29 29 |,0)).P(F,P(F,0))|
00000B00: 00 14 13 D8 09 50 28 46 2C 30 29 B2 50 28 46 2C |.....P(F,0).P(F,|
00000B10: 30 29 AB 31 00 37 13 28 0A 8B 20 50 28 32 2C 30 |0).1.7.(.. P(2,0|
00000B20: 29 B3 B1 4E 20 AF 20 50 28 33 2C 30 29 B3 B1 4E |)..N . P(3,0)..N|
00000B30: 20 A7 20 31 39 30 30 00 42 13 8C 0A 8D 20 38 30 | . 1900.B.... 80|
00000B40: 30 30 00 63 13 96 0A 99 20 22 05 11 20 20 20 20 |00.c.... ".. |
00000B50: 20 20 20 20 AC A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 | ............|
00000B60: A2 BB 22 00 84 13 A0 0A 99 20 22 20 20 20 20 20 |.."...... " |
00000B70: 20 20 20 12 A1 59 4F 55 20 44 49 44 20 49 54 21 | ..YOU DID IT!|
00000B80: 21 92 A1 22 00 A5 13 AA 0A 99 20 22 20 20 20 20 |!.."...... " |
00000B90: 20 20 20 20 BC 12 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 | ............|
00000BA0: A2 A2 92 BE 22 00 DF 13 B4 0A 99 20 22 11 9A 49 |...."...... "..I|
00000BB0: 54 20 54 4F 4F 4B 20 59 4F 55 22 3B 4D 56 3B C8 |T TOOK YOU";MV;.|
00000BC0: 28 22 4D 4F 56 45 53 22 2C 35 AA 28 4D 56 B2 31 |("MOVES",5.(MV.1|
00000BD0: 29 29 3B 22 20 54 4F 20 44 4F 20 49 54 2E 22 00 |));" TO DO IT.".|
00000BE0: 0F 14 BE 0A 54 B2 32 AE 4E AB 31 3A 99 20 22 11 |....T.2.N.1:. ".|
00000BF0: 54 48 45 20 53 48 4F 52 54 45 53 54 20 50 4F 53 |THE SHORTEST POS|
00000C00: 53 49 42 4C 45 20 53 4F 4C 55 54 49 4F 4E 22 00 |SIBLE SOLUTION".|
00000C10: 36 14 C8 0A 99 20 22 4E 45 45 44 53 22 3B 54 3B |6.... "NEEDS";T;|
00000C20: C8 28 22 4D 4F 56 45 53 22 2C 35 AA 28 54 B2 31 |.("MOVES",5.(T.1|
00000C30: 29 29 3B 22 2E 22 00 5A 14 D2 0A 99 22 11 99 50 |));".".Z...."..P|
00000C40: 4C 41 59 20 41 47 41 49 4E 3F 20 22 3B 3A 8D 20 |LAY AGAIN? ";:. |
00000C50: 36 30 30 30 30 3A 99 22 93 22 00 71 14 DC 0A 8B |60000:.".".q....|
00000C60: 20 C8 28 49 4E 24 2C 31 29 B2 22 4E 22 20 A7 20 | .(IN$,1)."N" . |
00000C70: 80 00 7D 14 E6 0A 9C 3A 89 20 31 30 30 00 83 14 |..}....:. 100...|
00000C80: F0 0A 80 00 8E 14 88 13 99 20 50 52 24 3B 00 AA |......... PR$;..|
00000C90: 14 92 13 8D 20 36 30 30 30 30 3A 99 3A 20 8B 20 |.... 60000:.: . |
00000CA0: 49 4E 24 B2 22 22 20 A7 20 8E 00 C1 14 97 13 8B |IN$."" . .......|
00000CB0: 20 C8 28 49 4E 24 2C 31 29 B2 22 51 22 20 A7 20 | .(IN$,1)."Q" . |
00000CC0: 80 00 D7 14 98 13 8B 20 C3 28 49 4E 24 29 B1 31 |....... .(IN$).1|
00000CD0: 20 A7 20 35 30 33 30 00 F5 14 9C 13 8B 20 49 4E | . 5030...... IN|
00000CE0: 24 B1 B2 22 31 22 20 AF 20 49 4E 24 B3 B2 22 33 |$.."1" . IN$.."3|
00000CF0: 22 20 A7 20 8E 00 13 15 A6 13 99 20 22 54 48 45 |" . ....... "THE|
00000D00: 52 45 27 53 20 4E 4F 20 53 55 43 48 20 50 49 4C |RE'S NO SUCH PIL|
00000D10: 45 2E 22 00 27 15 B0 13 81 20 49 B2 31 20 A4 20 |E.".'.... I.1 . |
00000D20: 35 30 30 3A 82 20 49 00 46 15 BA 13 99 20 22 91 |500:. I.F.... ".|
00000D30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D40: 20 20 20 20 20 22 00 8A 15 C4 13 99 20 22 91 91 | "...... "..|
00000D50: 22 3B 50 52 24 3B C8 28 22 20 20 20 20 20 20 20 |";PR$;.(" |
00000D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D80: 20 22 2C C3 28 49 4E 24 29 29 00 9C 15 CE 13 99 | ",.(IN$))......|
00000D90: 20 22 91 22 3B 3A 89 20 35 30 30 30 00 A7 15 40 | ".";:. 5000...@|
00000DA0: 1F 99 20 22 13 22 3B 00 E4 15 4A 1F 81 20 49 B2 |.. ".";...J.. I.|
00000DB0: 31 20 A4 34 3A 99 20 22 20 20 20 20 20 20 20 20 |1 .4:. " |
00000DC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000DD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000DE0: 3A 82 20 49 00 EF 15 54 1F 99 20 22 13 22 3B 00 |:. I...T.. ".";.|
00000DF0: F5 15 5E 1F 8E 00 FF 15 28 23 99 20 22 13 22 00 |..^.....(#. ".".|
00000E00: 20 16 60 EA 49 4E 24 B2 22 20 22 3A 5A 54 B2 54 | .`.IN$." ":ZT.T|
00000E10: 49 3A 5A 43 B2 32 3A 5A 44 24 B2 C7 28 32 30 29 |I:ZC.2:ZD$..(20)|
00000E20: 00 3A 16 6A EA A1 20 5A 24 3A 8B 20 5A 24 B3 B1 |.:.j.. Z$:. Z$..|
00000E30: 22 22 20 A7 20 36 30 30 37 30 00 6E 16 74 EA 8B |"" . 60070.n.t..|
00000E40: 20 5A 54 B3 B2 54 49 20 A7 20 99 20 CA 28 22 20 | ZT..TI . . .(" |
00000E50: A6 22 2C 5A 43 2C 31 29 3B 22 9D 22 3B 3A 5A 43 |.",ZC,1);".";:ZC|
00000E60: B2 33 AB 5A 43 3A 5A 54 B2 54 49 AA 31 35 00 7A |.3.ZC:ZT.TI.15.z|
00000E70: 16 7E EA 89 20 36 30 30 31 30 00 AF 16 A6 EA 5A |.~.. 60010.....Z|
00000E80: B2 C6 28 5A 24 29 3A 5A 4C B2 C3 28 49 4E 24 29 |..(Z$):ZL..(IN$)|
00000E90: 3A 8B 20 28 5A AF 31 32 37 29 B3 33 32 20 A7 20 |:. (Z.127).32 . |
00000EA0: 99 20 22 20 9D 22 3B 3A 89 20 36 30 31 31 30 00 |. " .";:. 60110.|
00000EB0: C3 16 BA EA 8B 20 5A 4C B1 51 49 20 A7 20 36 30 |..... ZL.QI . 60|
00000EC0: 30 31 30 00 DF 16 C4 EA 49 4E 24 B2 49 4E 24 AA |010.....IN$.IN$.|
00000ED0: 5A 24 3A 99 20 5A 24 3B 5A 44 24 3B 5A 24 3B 00 |Z$:. Z$;ZD$;Z$;.|
00000EE0: 02 17 CE EA 8B 20 5A B2 31 33 20 A7 20 49 4E 24 |..... Z.13 . IN$|
00000EF0: B2 CA 28 49 4E 24 2C 32 29 3A 99 20 43 52 24 3B |..(IN$,2):. CR$;|
00000F00: 3A 8E 00 35 17 D8 EA 8B 20 5A B2 32 30 20 AF 20 |:..5.... Z.20 . |
00000F10: 5A 4C B1 31 20 A7 20 49 4E 24 B2 C8 28 49 4E 24 |ZL.1 . IN$..(IN$|
00000F20: 2C 5A 4C AB 31 29 3A 99 20 22 9D 22 3B 3A 89 20 |,ZL.1):. ".";:. |
00000F30: 36 30 30 31 30 00 6F 17 E2 EA 8B 20 5A B2 31 34 |60010.o.... Z.14|
00000F40: 31 20 A7 20 5A 24 B2 C7 28 AB 32 30 AC 28 5A 4C |1 . Z$..(.20.(ZL|
00000F50: B1 31 29 29 3A 81 20 5A B2 32 20 A4 20 5A 4C 3A |.1)):. Z.2 . ZL:|
00000F60: 99 20 5A 24 3B 3A 82 3A 89 20 36 30 30 30 30 00 |. Z$;:.:. 60000.|
00000F70: 7B 17 EC EA 89 20 36 30 30 31 30 00 BE 17 48 EE |{.... 60010...H.|
00000F80: 43 52 54 B2 31 30 32 34 3A 56 49 43 B2 35 33 32 |CRT.1024:VIC.532|
00000F90: 34 38 3A 57 44 B2 34 30 3A 43 52 24 B2 C7 28 31 |48:WD.40:CR$..(1|
00000FA0: 33 29 3A 53 49 44 B2 35 34 32 37 32 3A 4A 53 B2 |3):SID.54272:JS.|
00000FB0: 35 36 33 32 30 3A 43 4D B2 35 35 32 39 36 00 D2 |56320:CM.55296..|
00000FC0: 17 52 EE 51 4C B2 32 31 34 3A 51 49 B2 32 35 34 |.R.QL.214:QI.254|
00000FD0: 3A 8E 00 0B 18 30 F2 8D 20 36 31 30 30 30 3A 97 |:....0.. 61000:.|
00000FE0: 20 56 49 43 AA 33 32 2C 30 3A 97 20 56 49 43 AA | VIC.32,0:. VIC.|
00000FF0: 33 33 2C 30 3A 4C 4E B2 C3 28 50 47 24 29 3A 54 |33,0:LN..(PG$):T|
00001000: 42 B2 28 34 30 AB 4C 4E 29 AD 32 00 3B 18 3A F2 |B.(40.LN).2.;.:.|
00001010: 99 22 93 11 11 11 11 9E 12 22 A3 54 42 29 C8 28 |.".......".TB).(|
00001020: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00001030: 20 20 20 20 20 20 22 2C 4C 4E 29 00 71 18 44 F2 | ",LN).q.D.|
00001040: 99 22 12 22 A3 54 42 29 50 47 24 3A 99 22 12 22 |.".".TB)PG$:."."|
00001050: A3 54 42 29 C8 28 22 20 20 20 20 20 20 20 20 20 |.TB).(" |
00001060: 20 20 20 20 20 20 20 20 20 20 20 20 22 2C 4C 4E | ",LN|
00001070: 29 00 8E 18 4E F2 99 20 22 11 11 22 A3 28 34 30 |)...N.. "..".(40|
00001080: AB C3 28 41 55 24 29 29 AD 32 29 41 55 24 00 D6 |..(AU$)).2)AU$..|
00001090: 18 58 F2 4D 53 24 B2 22 48 49 54 20 52 45 54 55 |.X.MS$."HIT RETU|
000010A0: 52 4E 20 54 4F 20 42 45 47 49 4E 22 3A 8B 20 4A |RN TO BEGIN":. J|
000010B0: 46 20 A7 20 4D 53 24 B2 22 48 49 54 20 4A 4F 59 |F . MS$."HIT JOY|
000010C0: 53 54 49 43 4B 20 42 55 54 54 4F 4E 20 54 4F 20 |STICK BUTTON TO |
000010D0: 42 45 47 49 4E 22 00 ED 18 62 F2 54 42 B2 28 28 |BEGIN"...b.TB.((|
000010E0: 34 30 AB C3 28 4D 53 24 29 29 AD 32 29 00 02 19 |40..(MS$)).2)...|
000010F0: 6C F2 99 20 22 11 11 11 11 9F 22 A3 54 42 29 4D |l.. ".....".TB)M|
00001100: 53 24 00 1E 19 76 F2 A1 20 49 4E 24 3A 8B 20 49 |S$...v.. IN$:. I|
00001110: 4E 24 B3 B1 22 22 20 A7 20 36 32 31 32 30 00 3B |N$.."" . 62120.;|
00001120: 19 80 F2 8B 20 28 C2 28 4A 53 29 20 AF 20 31 36 |.... (.(JS) . 16|
00001130: 29 B2 30 20 A7 20 36 32 31 32 30 00 69 19 8A F2 |).0 . 62120.i...|
00001140: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00001150: 11 22 A3 54 42 29 C8 28 22 9C 9F 22 2C 4B AA 31 |.".TB).("..",K.1|
00001160: 29 C8 28 4D 53 24 2C 51 29 00 8A 19 94 F2 51 B2 |).(MS$,Q).....Q.|
00001170: 51 AA 31 3A 8B 20 51 B1 C3 28 4D 53 24 29 20 A7 |Q.1:. Q..(MS$) .|
00001180: 20 51 B2 30 3A 4B B2 31 AB 4B 00 96 19 9E F2 89 | Q.0:K.1.K......|
00001190: 20 36 32 30 37 30 00 B0 19 A8 F2 9C 3A 99 20 22 | 62070......:. "|
000011A0: 93 05 22 3A 8D 36 31 30 30 30 3A 89 20 31 30 30 |..":.61000:. 100|
000011B0: 00 00 00 |... |
..,...PG$." H A N O I ":AU$."BY GLEN FIS
HER".2...:.8...:.O.... AS OF 8/15/83 GF.
[.Z.. 62000.{.D.QI.15:T$.". ............
.."...F.. VIC.32,0:. VIC.33,0...I.B$."..
............. ".U.N.. TP$(8),T$(8),BT$(8
),B$(8),C$(8)...S.CR$.""...X.. I.1.8.&..
.C$.J(T$,2.I,1):C$.C$.C$.C$:C$.C$.C$.C$:
C$.H(C$.C$,14).B...TP$(I).J(T$,2.I.1,1).
C$.|...C$.J(B$,2.I,1):C$.C$.C$.C$:C$.C$.
C$.C$:C$.H(C$.C$,14)... .BT$(I).J(B$,2.I
.1,1).C$. .... I...H.L$.". ....... ".H.R
.R$.". ....... "...... LF$(5),RT$(5)....
.. I.1.5:LF$(I).J(L$,2.I.1,2):RT$(I).J(R
$,2.I.1,2):. I.U...T$."":IN$."":.:.".HOW
MANY BLOCKS (UP TO 7) ? ";:. 60000:....
... IN$."". . "LET'S USE 3":IN$."3":.TT.
1.1000:....... I.1.C(IN$).F...:T$.J(IN$,
I,1):. T$.."0" . T$.."9" . 550......"NO
";T$;"'S PLEASE.":. 500...&.. I.(.0.N.E(
IN$):.N.7 . ."I CAN'T HANDLE MORE THAN 7
.":. 500.Q.:.. N.2 . ."DON'T BE RIDICULO
US!":.500.C.X.CL$.".......".O.B.. I.1.7.
..L.T..(.(1).C(CL$).1)...V.CL$(I).J(CL$,
T,1).....CL$.H(CL$,T.1).J(CL$,T.1).B....
I.....DN$.".....................".....R
T$."..............".!....I.1 . 3:. J.0.7
:P(I,J).0:. J:. I.<.L..".";DN$;"..":P(1,
0).N.J.V.. I.1.5:....[.. ".
.. ";:. I...`.
. DN$;"......................#1.........
........";...J..".......................
..#2.................";.#.T.."..........
...............#3................";.=.~.
. DN$;H(".......",N);.L.... I. 1 . N....
.. CL$(I);H(".".RT$,7.I.1);H("..".BT$(1)
,2.I.1);".".....P(1,N.I.1).I.2...... I..
...MV.0...L.TM.TI.60.G.V.. TI.TM . 1910.
R.... 8000...P.. ".":PR$."FROM WHICH PIL
E? ":. 5000:. IN$."" .1950...Z.F.E(IN$).
H.... P(F,0).1 . . ".THAT PILE IS EMPTY.
":. 1900.Y...PR$."TO WHICH PILE? ":. 500
0:. IN$."" . 1950.....T.E(IN$)...... F.T
. . ".THAT MOVE DOES NOTHING.":. 1900.L
. .. P(T,0).0 . 2100...*.. P(F,P(F,0)).P
(T,P(T,0)) . . ".IT WON'T FIT.":. 1900.<
.4.FC.P(F,0):FW.P(F,FC):TC.P(T,0):TW.P(T
,TC):MV.MV.1.T.>.X.1.13.(F.1).7.FW.2...H
.. DN$;H(".........",FC.1);H(".".RT$.RT$
.RT$,X);...M.LF$.H("...............",FW.
1)...R.. I.1 . 8:T$(I).H(TP$(I),1.FW):B$
(I).H(BT$(I),1.FW):. I...W.HT.0:J.1:. F.
T .J..1...\.. I.F . T . J.-.A.. P(I,0).H
T . HT.P(I,0).5.F.. I.V.K.. HT.P(T,0) .
HT.HT.1:. 2163.|.P.. .(F.T).1 . .HT.P(2,
0) . HT.HT.1...S.. CL$(P(F,P(F,0)).2);..
.U.. I.FC .HT...Z.:. J.1. 8.T..:. T$(J)
;LF$;B$(J);LF$;"..";.....:. J.....:. "."
;...... I...... ".";.-...L$.H(".........
.......",1.FW):R$.H(RT$,FW.1).N.... ".";
H(" ",FW);".";H("........
........",FW);..... F.T . 2250...... I.
F.13 . T.13.1.....:. J.1 . 5...... LF$(J
);R$;RT$(J);L$;.G.... J.R.... ".";.Z....
I...... 2300...J.. I.T.13 . F.13.1...O.
. ".";...T.:. J.5 . 1 . .1.7.Y.::. LF$(J
);R$;RT$(J);L$;.@...:. J.H.... I._.... I
.HT.1 . TC . .1.S...:. J.8 . 1 . .1.....
:. T$(J);LF$;B$(J);LF$;"..";.....: . J..
.$.:. ".";...... I.P.J.. H("..".BT$(1),F
W.1);"."...D.P(T,0).P(T,0).1...N.P(T,P(T
,0)).P(F,P(F,0))...X.P(F,0).P(F,0).1.7.(
.. P(2,0)..N . P(3,0)..N . 1900.B.... 80
00.C.... ".. .............."... .
. " ..YOU DID IT!!.."...... "
................"...... "..IT TOOK Y
OU";MV;H("MOVES",5.(MV.1));" TO DO IT.".
....T.2.N.1:. ".THE SHORTEST POSSIBLE SO
LUTION".6.H.. "NEEDS";T;H("MOVES",5.(T.1
));".".Z.R.."..PLAY AGAIN? ";:. 60000:."
.".Q.... H(IN$,1)."N" . ..}....:. 100...
......... PR$;...... 60000:.: . IN$."" .
..A.... H(IN$,1)."Q" . ..W.... C(IN$).1
. 5030...... IN$.."1" . IN$.."3" . ....
... "THERE'S NO SUCH PILE.".'.... I.1 .
500:. I.F.... ". "..
.D.. "..";PR$;H("
",C(IN$))...N.. ".";:.
5000...@.. ".";...J.. I.1 .4:. "
":. I...T
.. ".";...^.....(#. ".". .`.IN$." ":ZT.T
I:ZC.2:ZD$.G(20).:.J.. Z$:. Z$.."" . 600
70.N.T.. ZT..TI . . J(" .",ZC,1);".";:ZC
.3.ZC:ZT.TI.15.Z.~.. 60010.....Z.F(Z$):Z
L.C(IN$):. (Z.127).32 . . " .";:. 60110.
C.... ZL.QI . 60010...D.IN$.IN$.Z$:. Z$;
ZD$;Z$;...N.. Z.13 . IN$.J(IN$,2):. CR$;
:..5.X.. Z.20 . ZL.1 . IN$.H(IN$,ZL.1):.
".";:. 60010.O.... Z.141 . Z$.G(.20.(ZL
.1)):. Z.2 . ZL:. Z$;:.:. 60000.{.... 60
010...H.CRT.1024:VIC.53248:WD.40:CR$.G(1
3):SID.54272:JS.56320:CM.55296.R.R.QL.21
4:QI.254:....0.. 61000:. VIC.32,0:. VIC.
33,0:LN.C(PG$):TB.(40.LN).2.;.:.."......
.".TB)H(" ",LN).Q.D.
.".".TB)PG$:.".".TB)H("
",LN)...N.. "..".(40.C(AU$)).2)AU$.V
.X.MS$."HIT RETURN TO BEGIN":. JF . MS$.
"HIT JOYSTICK BUTTON TO BEGIN"...B.TB.((
40.C(MS$)).2)...L.. ".....".TB)MS$...V..
IN$:. IN$.."" . 62120.;.... (B(JS) . 16
).0 . 62120.I...."...............".TB)H(
"..",K.1)H(MS$,Q).....Q.Q.1:. Q.C(MS$) .
Q.0:K.1.K...... 62070......:. "..":.610
00:. 100...
> CLICK IMAGE PREVIEW FOR FULL MODAL