HANOI
FILE INFORMATION
FILENAME(S): HANOI
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-11-30 21:07:07
APPEARS ON: 2 disk(s)
FILE HASH
3179094c390c5ab5421e2361f4ec35cc569499cb28de78c042dc4173e5e2b0d5
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CS TAPES PET 11 | HANOI | PRG | DuncanTwain | 10 | 0 | DOWNLOAD FILE |
| CURSOR 1 | HANOI | PRG | DuncanTwain | 8 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 0D 04 00 00 9C 3A 50 4B B2 31 32 00 38 04 |.......:PK.12.8.|
00000010: 01 00 8F 20 48 41 4E 4F 49 20 43 4F 50 59 52 49 |... HANOI COPYRI|
00000020: 47 48 54 20 28 43 29 20 31 39 37 38 20 47 4C 45 |GHT (C) 1978 GLE|
00000030: 4E 20 46 49 53 48 45 52 00 57 04 02 00 8F 20 43 |N FISHER.W.... C|
00000040: 55 52 53 4F 52 20 23 35 2C 20 4E 4F 56 45 4D 42 |URSOR #5, NOVEMB|
00000050: 45 52 20 31 39 37 38 00 78 04 03 00 8F 20 42 4F |ER 1978.x.... BO|
00000060: 58 20 35 35 30 2C 20 47 4F 4C 45 54 41 2C 20 43 |X 550, GOLETA, C|
00000070: 41 2E 20 39 33 30 31 37 00 7E 04 04 00 3A 00 89 |A. 93017.~...:..|
00000080: 04 5A 00 8D 36 32 30 30 30 00 A3 04 64 00 54 24 |.Z..62000...d.T$|
00000090: B2 22 92 20 92 A4 92 AF 92 B9 92 A2 12 B8 12 B7 |.". ............|
000000A0: 12 A3 22 00 BD 04 69 00 42 24 B2 22 12 A4 12 AF |.."...i.B$."....|
000000B0: 12 B9 12 A2 92 B8 92 B7 92 A3 92 20 22 00 E2 04 |........... "...|
000000C0: 6E 00 86 54 50 24 28 38 29 2C 54 24 28 38 29 2C |n..TP$(8),T$(8),|
000000D0: 42 54 24 28 38 29 2C 42 24 28 38 29 20 20 20 20 |BT$(8),B$(8) |
000000E0: 20 20 00 ED 04 78 00 81 49 B2 31 A4 38 00 27 05 | ...x..I.1.8.'.|
000000F0: 82 00 43 24 B2 CA 28 54 24 2C 32 AC 49 2C 31 29 |..C$..(T$,2.I,1)|
00000100: 3A 43 24 B2 43 24 AA 43 24 AA 43 24 3A 43 24 B2 |:C$.C$.C$.C$:C$.|
00000110: 43 24 AA 43 24 AA 43 24 3A 43 24 B2 C8 28 43 24 |C$.C$.C$:C$..(C$|
00000120: AA 43 24 2C 31 34 29 00 43 05 8C 00 54 50 24 28 |.C$,14).C...TP$(|
00000130: 49 29 B2 CA 28 54 24 2C 32 AC 49 AB 31 2C 31 29 |I)..(T$,2.I.1,1)|
00000140: AA 43 24 00 7D 05 96 00 43 24 B2 CA 28 42 24 2C |.C$.}...C$..(B$,|
00000150: 32 AC 49 2C 31 29 3A 43 24 B2 43 24 AA 43 24 AA |2.I,1):C$.C$.C$.|
00000160: 43 24 3A 43 24 B2 43 24 AA 43 24 AA 43 24 3A 43 |C$:C$.C$.C$.C$:C|
00000170: 24 B2 C8 28 43 24 AA 43 24 2C 31 34 29 00 99 05 |$..(C$.C$,14)...|
00000180: A0 00 42 54 24 28 49 29 B2 CA 28 42 24 2C 32 AC |..BT$(I)..(B$,2.|
00000190: 49 AB 31 2C 31 29 AA 43 24 00 A0 05 AA 00 82 49 |I.1,1).C$......I|
000001A0: 00 B4 05 C8 00 4C 24 B2 22 12 20 12 B4 12 A1 92 |.....L$.". .....|
000001B0: AA 92 20 22 00 C8 05 D2 00 52 24 B2 22 92 20 92 |.. ".....R$.". .|
000001C0: B4 92 A1 12 AA 12 20 22 00 DB 05 DC 00 86 4C 46 |...... "......LF|
000001D0: 24 28 35 29 2C 52 54 24 28 35 29 00 13 06 E6 00 |$(5),RT$(5).....|
000001E0: 81 49 B2 31 A4 35 3A 4C 46 24 28 49 29 B2 CA 28 |.I.1.5:LF$(I)..(|
000001F0: 4C 24 2C 32 AC 49 AB 31 2C 32 29 3A 52 54 24 28 |L$,2.I.1,2):RT$(|
00000200: 49 29 B2 CA 28 52 24 2C 32 AC 49 AB 31 2C 32 29 |I)..(R$,2.I.1,2)|
00000210: 3A 82 49 00 21 06 2C 01 43 52 24 B2 C7 28 31 33 |:.I.!.,.CR$..(13|
00000220: 29 00 4E 06 F4 01 99 22 11 48 4F 57 20 4D 41 4E |).N....".HOW MAN|
00000230: 59 20 44 49 53 4B 53 20 28 55 50 20 54 4F 20 37 |Y DISKS (UP TO 7|
00000240: 29 20 3F 20 22 3B 3A 8D 20 36 30 30 30 30 00 5E |) ? ";:. 60000.^|
00000250: 06 FE 01 8B 49 4E 24 B2 22 22 A7 35 30 30 00 6E |....IN$."".500.n|
00000260: 06 08 02 81 49 B2 31 A4 C3 28 49 4E 24 29 00 96 |....I.1..(IN$)..|
00000270: 06 12 02 3A 54 24 B2 CA 28 49 4E 24 2C 49 2C 31 |...:T$..(IN$,I,1|
00000280: 29 3A 8B 54 24 B1 B2 22 30 22 AF 54 24 B3 B2 22 |):.T$.."0".T$.."|
00000290: 39 22 A7 35 35 30 00 B6 06 1C 02 99 22 4E 4F 20 |9".550......"NO |
000002A0: 22 3B 54 24 3B 22 27 53 20 50 4C 45 41 53 45 2E |";T$;"'S PLEASE.|
000002B0: 22 3A 89 35 30 30 00 BD 06 26 02 82 49 00 F3 06 |":.500...&..I...|
000002C0: 30 02 4E B2 C5 28 49 4E 24 29 3A 8B 4E B1 37 A7 |0.N..(IN$):.N.7.|
000002D0: 99 22 49 20 43 41 4E 27 54 20 48 41 4E 44 4C 45 |."I CAN'T HANDLE|
000002E0: 20 4D 4F 52 45 20 54 48 41 4E 20 37 2E 22 3A 89 | MORE THAN 7.":.|
000002F0: 35 30 30 00 19 07 3A 02 8B 4E B3 32 A7 99 22 44 |500...:..N.2.."D|
00000300: 4F 4E 27 54 20 42 45 20 52 49 44 49 43 55 4C 4F |ON'T BE RIDICULO|
00000310: 55 53 21 22 3A 89 35 30 30 00 39 07 84 03 44 4E |US!":.500.9...DN|
00000320: 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............|
00000330: 11 11 11 11 11 11 11 11 22 00 52 07 8E 03 52 54 |........".R...RT|
00000340: 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |$.".............|
00000350: 1D 22 00 73 07 E8 03 81 49 B2 31 A4 33 3A 81 4A |.".s....I.1.3:.J|
00000360: B2 30 A4 37 3A 50 28 49 2C 4A 29 B2 30 3A 82 4A |.0.7:P(I,J).0:.J|
00000370: 3A 82 49 00 8E 07 4C 04 99 22 93 22 3B 44 4E 24 |:.I...L..".";DN$|
00000380: 3B 22 12 22 3B 3A 50 28 31 2C 30 29 B2 4E 00 C9 |;".";:P(1,0).N..|
00000390: 07 56 04 81 49 B2 31 A4 33 3A 99 22 20 20 20 20 |.V..I.1.3:." |
000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003C0: 20 20 20 20 22 3B 3A 82 49 00 F9 07 60 04 99 44 | ";:.I...`..D|
000003D0: 4E 24 3B 22 11 12 1D 1D 1D 1D 1D 1D 23 31 1D 1D |N$;"........#1..|
000003E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 23 32 1D 1D 1D 1D 1D |.........#2.....|
000003F0: 1D 1D 1D 1D 1D 1D 23 33 22 00 12 08 7E 04 99 44 |......#3"...~..D|
00000400: 4E 24 3B C8 28 22 91 91 91 91 91 91 91 22 2C 4E |N$;.(".......",N|
00000410: 29 3B 00 1D 08 88 04 81 49 B2 31 A4 4E 00 4C 08 |);......I.1.N.L.|
00000420: 92 04 99 C8 28 22 92 22 AA 52 54 24 2C 37 AB 49 |....(".".RT$,7.I|
00000430: AA 31 29 3B C8 28 22 12 CC 22 AA 42 54 24 28 31 |.1);.("..".BT$(1|
00000440: 29 2C 32 AC 49 AA 31 29 3B 22 BA 22 00 5F 08 9C |),2.I.1);"."._..|
00000450: 04 50 28 31 2C 4E AB 49 AA 31 29 B2 49 AC 32 00 |.P(1,N.I.1).I.2.|
00000460: 66 08 A6 04 82 49 00 6F 08 08 07 4D 56 B2 30 00 |f....I.o...MV.0.|
00000470: 7C 08 6C 07 54 4D B2 54 49 AA 36 30 00 8C 08 76 ||.l.TM.TI.60...v|
00000480: 07 8B 54 49 B3 54 4D A7 31 39 31 30 00 96 08 9E |..TI.TM.1910....|
00000490: 07 8D 38 30 30 30 00 C6 08 D0 07 50 52 24 B2 22 |..8000.....PR$."|
000004A0: 11 46 52 4F 4D 20 57 48 49 43 48 20 50 49 4C 45 |.FROM WHICH PILE|
000004B0: 3F 20 22 3A 8D 35 30 30 30 3A 8B 49 4E 24 B2 22 |? ":.5000:.IN$."|
000004C0: 22 A7 31 39 35 30 00 D3 08 DA 07 46 B2 C5 28 49 |".1950.....F..(I|
000004D0: 4E 24 29 00 FE 08 E4 07 8B 50 28 46 2C 30 29 B3 |N$)......P(F,0).|
000004E0: 31 A7 99 22 54 48 41 54 20 50 49 4C 45 20 49 53 |1.."THAT PILE IS|
000004F0: 20 45 4D 50 54 59 2E 22 3A 89 31 39 30 30 00 2B | EMPTY.":.1900.+|
00000500: 09 02 08 50 52 24 B2 22 54 4F 20 57 48 49 43 48 |...PR$."TO WHICH|
00000510: 20 50 49 4C 45 3F 20 22 3A 8D 35 30 30 30 3A 8B | PILE? ":.5000:.|
00000520: 49 4E 24 B2 22 22 A7 31 39 35 30 00 38 09 0C 08 |IN$."".1950.8...|
00000530: 54 B2 C5 28 49 4E 24 29 00 62 09 16 08 8B 46 B2 |T..(IN$).b....F.|
00000540: 54 A7 99 22 54 48 41 54 20 4D 4F 56 45 20 44 4F |T.."THAT MOVE DO|
00000550: 45 53 20 4E 4F 54 48 49 4E 47 2E 22 3A 89 31 39 |ES NOTHING.":.19|
00000560: 30 30 00 75 09 20 08 8B 50 28 54 2C 30 29 B2 30 |00.u. ..P(T,0).0|
00000570: A7 32 31 30 30 00 A9 09 2A 08 8B 50 28 46 2C 50 |.2100...*..P(F,P|
00000580: 28 46 2C 30 29 29 B1 50 28 54 2C 50 28 54 2C 30 |(F,0)).P(T,P(T,0|
00000590: 29 29 A7 99 22 49 54 20 57 4F 4E 27 54 20 46 49 |)).."IT WON'T FI|
000005A0: 54 2E 22 3A 89 31 39 30 30 00 DF 09 34 08 46 43 |T.":.1900...4.FC|
000005B0: B2 50 28 46 2C 30 29 3A 46 57 B2 50 28 46 2C 46 |.P(F,0):FW.P(F,F|
000005C0: 43 29 3A 54 43 B2 50 28 54 2C 30 29 3A 54 57 B2 |C):TC.P(T,0):TW.|
000005D0: 50 28 54 2C 54 43 29 3A 4D 56 B2 4D 56 AA 31 00 |P(T,TC):MV.MV.1.|
000005E0: F7 09 3E 08 58 B2 31 AA 31 33 AC 28 46 AB 31 29 |..>.X.1.13.(F.1)|
000005F0: AA 37 AB 46 57 AD 32 00 2B 0A 48 08 99 20 44 4E |.7.FW.2.+.H.. DN|
00000600: 24 3B C8 28 22 91 91 91 91 91 91 91 91 91 22 2C |$;.(".........",|
00000610: 46 43 AA 31 29 3B C8 28 22 92 22 AA 52 54 24 AA |FC.1);.(".".RT$.|
00000620: 52 54 24 AA 52 54 24 2C 58 29 3B 00 4D 0A 4D 08 |RT$.RT$,X);.M.M.|
00000630: 4C 46 24 B2 C8 28 22 11 9D 9D 9D 9D 9D 9D 9D 9D |LF$..(".........|
00000640: 9D 9D 9D 9D 9D 9D 22 2C 46 57 AA 31 29 00 86 0A |......",FW.1)...|
00000650: 52 08 81 49 B2 31 A4 20 38 3A 54 24 28 49 29 B2 |R..I.1. 8:T$(I).|
00000660: C8 28 54 50 24 28 49 29 2C 31 AA 46 57 29 3A 42 |.(TP$(I),1.FW):B|
00000670: 24 28 49 29 B2 C8 28 42 54 24 28 49 29 2C 31 AA |$(I)..(BT$(I),1.|
00000680: 46 57 29 3A 82 49 00 9D 0A 57 08 48 54 B2 30 3A |FW):.I...W.HT.0:|
00000690: 4A B2 31 3A 8B 46 B1 54 A7 4A B2 AB 31 00 AA 0A |J.1:.F.T.J..1...|
000006A0: 5C 08 81 49 B2 46 A4 54 A9 4A 00 C3 0A 61 08 8B |\..I.F.T.J...a..|
000006B0: 50 28 49 2C 30 29 B1 48 54 A7 48 54 B2 50 28 49 |P(I,0).HT.HT.P(I|
000006C0: 2C 30 29 00 CA 0A 66 08 82 49 00 E7 0A 6B 08 8B |,0)...f..I...k..|
000006D0: 48 54 B2 50 28 54 2C 30 29 A7 48 54 B2 48 54 AA |HT.P(T,0).HT.HT.|
000006E0: 31 3A 89 32 31 36 35 00 08 0B 70 08 8B B6 28 46 |1:.2165...p...(F|
000006F0: AB 54 29 B1 31 A7 8B 48 54 B2 50 28 32 2C 30 29 |.T).1..HT.P(2,0)|
00000700: A7 48 54 B2 48 54 AA 31 00 15 0B 75 08 81 49 B2 |.HT.HT.1...u..I.|
00000710: 46 43 A4 48 54 00 22 0B 7A 08 3A 81 20 4A B2 31 |FC.HT.".z.:. J.1|
00000720: A4 38 00 42 0B 7F 08 3A 99 54 24 28 4A 29 3B 4C |.8.B...:.T$(J);L|
00000730: 46 24 3B 42 24 28 4A 29 3B 4C 46 24 3B 22 91 91 |F$;B$(J);LF$;"..|
00000740: 22 3B 00 4A 0B 84 08 3A 82 4A 00 55 0B 89 08 3A |";.J...:.J.U...:|
00000750: 99 22 91 22 3B 00 5C 0B 8E 08 82 49 00 66 0B 93 |.".";.\....I.f..|
00000760: 08 99 22 11 22 3B 00 97 0B 98 08 4C 24 B2 C8 28 |..".";.....L$..(|
00000770: 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |"...............|
00000780: 9D 22 2C 31 AA 46 57 29 3A 52 24 B2 C8 28 52 54 |.",1.FW):R$..(RT|
00000790: 24 2C 46 57 AB 31 29 00 D7 0B 99 08 99 22 12 22 |$,FW.1)......"."|
000007A0: 3B C8 28 22 20 20 20 20 20 20 20 20 20 20 20 20 |;.(" |
000007B0: 20 20 20 20 22 2C 46 57 29 3B 22 92 22 3B C8 28 | ",FW);".";.(|
000007C0: 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |"...............|
000007D0: 9D 22 2C 46 57 29 3B 00 E5 0B 9D 08 8B 46 B1 54 |.",FW);......F.T|
000007E0: A7 32 32 35 30 00 F8 0B A2 08 81 49 B2 46 AC 31 |.2250......I.F.1|
000007F0: 33 A4 54 AC 31 33 AB 31 00 04 0C A7 08 3A 81 4A |3.T.13.1.....:.J|
00000800: B2 31 A4 35 00 1E 0C AC 08 99 4C 46 24 28 4A 29 |.1.5......LF$(J)|
00000810: 3B 52 24 3B 52 54 24 28 4A 29 3B 4C 24 3B 00 25 |;R$;RT$(J);L$;.%|
00000820: 0C B1 08 82 4A 00 2F 0C B2 08 99 22 1D 22 3B 00 |....J./....".";.|
00000830: 36 0C B6 08 82 49 00 40 0C BB 08 89 32 33 30 30 |6....I.@....2300|
00000840: 00 53 0C CA 08 81 49 B2 54 AC 31 33 A4 46 AC 31 |.S....I.T.13.F.1|
00000850: 33 AB 31 00 5D 0C CF 08 99 22 9D 22 3B 00 6C 0C |3.1.]....".";.l.|
00000860: D4 08 3A 81 4A B2 35 A4 31 A9 AB 31 00 88 0C D9 |..:.J.5.1..1....|
00000870: 08 3A 3A 99 4C 46 24 28 4A 29 3B 52 24 3B 52 54 |.::.LF$(J);R$;RT|
00000880: 24 28 4A 29 3B 4C 24 3B 00 90 0C DE 08 3A 82 4A |$(J);L$;.....:.J|
00000890: 00 97 0C E3 08 82 49 00 A9 0C FC 08 81 49 B2 48 |......I......I.H|
000008A0: 54 AB 31 A4 54 43 A9 AB 31 00 B8 0C 06 09 3A 81 |T.1.TC..1.....:.|
000008B0: 4A B2 38 A4 31 A9 AB 31 00 D8 0C 10 09 3A 99 54 |J.8.1..1.....:.T|
000008C0: 24 28 4A 29 3B 4C 46 24 3B 42 24 28 4A 29 3B 4C |$(J);LF$;B$(J);L|
000008D0: 46 24 3B 22 91 91 22 3B 00 E0 0C 1A 09 3A 82 4A |F$;"..";.....:.J|
000008E0: 00 EB 0C 24 09 3A 99 22 11 22 3B 00 F2 0C 2E 09 |...$.:.".";.....|
000008F0: 82 49 00 0F 0D 6A 09 99 C8 28 22 12 CC 22 AA 42 |.I...j...("..".B|
00000900: 54 24 28 31 29 2C 46 57 AA 31 29 3B 22 BA 22 00 |T$(1),FW.1);".".|
00000910: 23 0D C4 09 50 28 54 2C 30 29 B2 50 28 54 2C 30 |#...P(T,0).P(T,0|
00000920: 29 AA 31 00 3F 0D CE 09 50 28 54 2C 50 28 54 2C |).1.?...P(T,P(T,|
00000930: 30 29 29 B2 50 28 46 2C 50 28 46 2C 30 29 29 00 |0)).P(F,P(F,0)).|
00000940: 53 0D D8 09 50 28 46 2C 30 29 B2 50 28 46 2C 30 |S...P(F,0).P(F,0|
00000950: 29 AB 31 00 71 0D 28 0A 8B 50 28 32 2C 30 29 B3 |).1.q.(..P(2,0).|
00000960: B1 4E AF 50 28 33 2C 30 29 B3 B1 4E A7 31 39 30 |.N.P(3,0)..N.190|
00000970: 30 00 7B 0D 8C 0A 8D 38 30 30 30 00 9C 0D 96 0A |0.{....8000.....|
00000980: 99 22 11 11 11 20 20 20 20 20 20 20 20 AC A2 A2 |."... ...|
00000990: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 BB 22 00 BC 0D A0 |..........."....|
000009A0: 0A 99 22 20 20 20 20 20 20 20 20 12 A1 59 4F 55 |.." ..YOU|
000009B0: 20 44 49 44 20 49 54 21 21 92 A1 22 00 DC 0D AA | DID IT!!.."....|
000009C0: 0A 99 22 20 20 20 20 20 20 20 20 BC 12 A2 A2 A2 |.." .....|
000009D0: A2 A2 A2 A2 A2 A2 A2 A2 A2 92 BE 22 00 14 0E B4 |..........."....|
000009E0: 0A 99 22 11 49 54 20 54 4F 4F 4B 20 59 4F 55 22 |..".IT TOOK YOU"|
000009F0: 3B 4D 56 3B C8 28 22 4D 4F 56 45 53 22 2C 35 AA |;MV;.("MOVES",5.|
00000A00: 28 4D 56 B2 31 29 29 3B 22 20 54 4F 20 44 4F 20 |(MV.1));" TO DO |
00000A10: 49 54 2E 22 00 43 0E BE 0A 54 B2 32 AE 4E AB 31 |IT.".C...T.2.N.1|
00000A20: 3A 99 22 11 54 48 45 20 53 48 4F 52 54 45 53 54 |:.".THE SHORTEST|
00000A30: 20 50 4F 53 53 49 42 4C 45 20 53 4F 4C 55 54 49 | POSSIBLE SOLUTI|
00000A40: 4F 4E 22 00 69 0E C8 0A 99 22 4E 45 45 44 53 22 |ON".i...."NEEDS"|
00000A50: 3B 54 3B C8 28 22 4D 4F 56 45 53 22 2C 35 AA 28 |;T;.("MOVES",5.(|
00000A60: 54 B2 31 29 29 3B 22 2E 22 00 86 0E D2 0A 99 22 |T.1));"."......"|
00000A70: 11 50 4C 41 59 20 41 47 41 49 4E 3F 20 22 3B 3A |.PLAY AGAIN? ";:|
00000A80: 8D 36 30 30 30 30 00 9B 0E DC 0A 8B C8 28 49 4E |.60000.......(IN|
00000A90: 24 2C 31 29 B3 B1 22 59 22 A7 80 00 A1 0E E6 0A |$,1).."Y".......|
00000AA0: 8A 00 A7 0E F0 0A 80 00 B1 0E 88 13 99 50 52 24 |.............PR$|
00000AB0: 3B 00 C6 0E 92 13 8D 36 30 30 30 30 3A 8B 49 4E |;......60000:.IN|
00000AC0: 24 B2 22 22 A7 8E 00 DA 0E 97 13 8B C8 28 49 4E |$."".........(IN|
00000AD0: 24 2C 31 29 B2 22 51 22 A7 80 00 ED 0E 98 13 8B |$,1)."Q"........|
00000AE0: C3 28 49 4E 24 29 B1 31 A7 35 30 33 30 00 06 0F |.(IN$).1.5030...|
00000AF0: 9C 13 8B 49 4E 24 B1 B2 22 31 22 AF 49 4E 24 B3 |...IN$.."1".IN$.|
00000B00: B2 22 33 22 A7 8E 00 23 0F A6 13 99 22 54 48 45 |."3"...#...."THE|
00000B10: 52 45 27 53 20 4E 4F 20 53 55 43 48 20 50 49 4C |RE'S NO SUCH PIL|
00000B20: 45 2E 22 00 33 0F B0 13 81 49 B2 31 A4 35 30 30 |E.".3....I.1.500|
00000B30: 3A 82 49 00 51 0F BA 13 99 22 91 20 20 20 20 20 |:.I.Q....". |
00000B40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B50: 22 00 94 0F C4 13 99 22 91 91 22 3B 50 52 24 3B |"......"..";PR$;|
00000B60: C8 28 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.(" |
00000B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B80: 20 20 20 20 20 20 20 20 20 20 20 22 2C C3 28 49 | ",.(I|
00000B90: 4E 24 29 29 00 A4 0F CE 13 99 22 91 22 3B 3A 89 |N$))......".";:.|
00000BA0: 35 30 30 30 00 AE 0F 40 1F 99 22 13 22 3B 00 E7 |5000...@..".";..|
00000BB0: 0F 4A 1F 81 49 B2 31 A4 34 3A 99 22 20 20 20 20 |.J..I.1.4:." |
00000BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BE0: 20 20 20 22 3A 82 49 00 F1 0F 54 1F 99 22 13 22 | ":.I...T.."."|
00000BF0: 3B 00 F7 0F 5E 1F 8E 00 00 10 28 23 99 22 13 22 |;...^.....(#."."|
00000C00: 00 21 10 60 EA 49 4E 24 B2 22 20 22 3A 5A 54 B2 |.!.`.IN$." ":ZT.|
00000C10: 54 49 3A 5A 43 B2 32 3A 5A 44 24 B2 C7 28 32 30 |TI:ZC.2:ZD$..(20|
00000C20: 29 00 38 10 6A EA A1 5A 24 3A 8B 20 5A 24 B3 B1 |).8.j..Z$:. Z$..|
00000C30: 22 22 A7 36 30 30 37 30 00 68 10 74 EA 8B 5A 54 |"".60070.h.t..ZT|
00000C40: B3 B2 54 49 A7 99 CA 28 22 20 A6 22 2C 5A 43 2C |..TI...(" .",ZC,|
00000C50: 31 29 3B 22 9D 22 3B 3A 5A 43 B2 33 AB 5A 43 3A |1);".";:ZC.3.ZC:|
00000C60: 5A 54 B2 54 49 AA 31 35 00 73 10 7E EA 89 36 30 |ZT.TI.15.s.~..60|
00000C70: 30 31 30 00 A3 10 A6 EA 5A B2 C6 28 5A 24 29 3A |010.....Z..(Z$):|
00000C80: 5A 4C B2 C3 28 49 4E 24 29 3A 8B 28 5A AF 31 32 |ZL..(IN$):.(Z.12|
00000C90: 37 29 B3 33 32 A7 99 22 20 9D 22 3B 3A 89 36 30 |7).32.." .";:.60|
00000CA0: 31 31 30 00 D3 10 B0 EA 8B 46 4C AF 28 5A AF 31 |110......FL.(Z.1|
00000CB0: 32 37 29 B1 36 34 AF 28 5A AF 31 32 37 29 B3 39 |27).64.(Z.127).9|
00000CC0: 31 A7 5A 24 B2 C7 28 28 5A AA 31 32 38 29 AF 32 |1.Z$..((Z.128).2|
00000CD0: 35 35 29 00 E5 10 BA EA 8B 5A 4C B1 32 35 34 A7 |55)......ZL.254.|
00000CE0: 36 30 30 31 30 00 00 11 C4 EA 49 4E 24 B2 49 4E |60010.....IN$.IN|
00000CF0: 24 AA 5A 24 3A 99 5A 24 3B 5A 44 24 3B 5A 24 3B |$.Z$:.Z$;ZD$;Z$;|
00000D00: 00 1F 11 CE EA 8B 5A B2 31 33 A7 49 4E 24 B2 CA |......Z.13.IN$..|
00000D10: 28 49 4E 24 2C 32 29 3A 99 43 52 24 3B 3A 8E 00 |(IN$,2):.CR$;:..|
00000D20: 4B 11 D8 EA 8B 5A B2 32 30 AF 5A 4C B1 31 A7 49 |K....Z.20.ZL.1.I|
00000D30: 4E 24 B2 C8 28 49 4E 24 2C 5A 4C AB 31 29 3A 99 |N$..(IN$,ZL.1):.|
00000D40: 22 9D 22 3B 3A 89 36 30 30 31 30 00 7E 11 E2 EA |".";:.60010.~...|
00000D50: 8B 5A B2 31 34 31 A7 5A 24 B2 C7 28 AB 32 30 AC |.Z.141.Z$..(.20.|
00000D60: 28 5A 4C B1 31 29 29 3A 81 5A B2 32 A4 5A 4C 3A |(ZL.1)):.Z.2.ZL:|
00000D70: 99 5A 24 3B 3A 82 5A 3A 89 36 30 30 30 30 00 89 |.Z$;:.Z:.60000..|
00000D80: 11 EC EA 89 36 30 30 31 30 00 9A 11 28 EB 8B 50 |....60010...(..P|
00000D90: 4E B2 30 A7 89 36 30 32 35 30 00 B6 11 32 EB 99 |N.0..60250...2..|
00000DA0: 22 11 50 52 45 53 53 20 12 52 45 54 55 52 4E 92 |".PRESS .RETURN.|
00000DB0: 20 54 4F 20 22 3B 00 D3 11 3C EB 8B 50 4E B2 4C | TO ";...<..PN.L|
00000DC0: 50 A7 99 22 42 45 47 49 4E 3A 22 3B 3A 89 36 30 |P.."BEGIN:";:.60|
00000DD0: 32 34 30 00 E5 11 46 EB 99 22 43 4F 4E 54 49 4E |240...F.."CONTIN|
00000DE0: 55 45 3A 22 3B 00 FA 11 50 EB A1 54 24 3A 8B 54 |UE:";...P..T$:.T|
00000DF0: 24 B2 22 22 A7 36 30 32 34 30 00 1C 12 5A EB 8B |$."".60240...Z..|
00000E00: 50 4E B2 4C 50 A7 97 35 39 34 36 38 2C 50 4B 3A |PN.LP..59468,PK:|
00000E10: 9C 3A 99 22 93 22 3B 3A 89 31 30 30 00 5F 12 64 |.:.".";:.100._.d|
00000E20: EB 50 4E B2 50 4E AA 31 3A 99 22 93 22 3B 50 47 |.PN.PN.1:.".";PG|
00000E30: 24 3B 22 20 2D 20 43 D5 D2 D3 CF D2 20 23 22 3B |$;" - C..... #";|
00000E40: 4E 4D 24 3B 22 20 20 28 43 29 20 31 39 37 38 20 |NM$;" (C) 1978 |
00000E50: 20 20 20 50 C1 C7 C5 22 3B 50 4E 3B 22 11 22 00 | P...";PN;".".|
00000E60: 65 12 6E EB 8E 00 84 12 30 F2 50 47 24 B2 22 48 |e.n.....0.PG$."H|
00000E70: 41 4E 4F 49 22 3A 4C 50 B2 31 3A 43 52 24 B2 C7 |ANOI":LP.1:CR$..|
00000E80: 28 31 33 29 00 92 12 3A F2 97 35 39 34 36 38 2C |(13)...:..59468,|
00000E90: 31 34 00 C2 12 44 F2 99 22 93 11 11 11 43 55 52 |14...D.."....CUR|
00000EA0: 53 4F 52 20 23 35 20 2D 20 48 41 4E 4F 49 20 20 |SOR #5 - HANOI |
00000EB0: 43 CF D0 D9 D2 C9 C7 C8 D4 20 28 43 29 20 31 39 |C........ (C) 19|
00000EC0: 37 38 00 E9 12 49 F2 99 22 11 41 CE C9 CD C1 D4 |78...I..".A.....|
00000ED0: C5 C4 A0 D4 CF D7 C5 D2 D3 A0 CF C6 A0 48 C1 CE |.............H..|
00000EE0: CF C9 A0 D0 D5 DA DA CC C5 00 0B 13 4E F2 99 22 |............N.."|
00000EF0: 11 57 C1 CE D4 A0 C4 C9 D2 C5 C3 D4 C9 CF CE D3 |.W..............|
00000F00: 3F 20 22 3B 3A 8D 36 30 30 30 30 00 24 13 58 F2 |? ";:.60000.$.X.|
00000F10: 8B C8 28 49 4E 24 2C 31 29 B2 22 59 22 A7 89 36 |..(IN$,1)."Y"..6|
00000F20: 32 30 36 30 00 3C 13 62 F2 99 22 93 11 11 11 22 |2060.<.b.."...."|
00000F30: 3A 97 35 39 34 36 38 2C 31 32 3A 8E 00 47 13 6C |:.59468,12:..G.l|
00000F40: F2 8D 36 30 32 30 30 00 72 13 76 F2 99 22 54 C8 |..60200.r.v.."T.|
00000F50: C5 A0 CF C2 CA C5 C3 D4 A0 CF C6 A0 D4 C8 C9 D3 |................|
00000F60: A0 D0 D5 DA DA CC C5 A0 C9 D3 A0 D4 CF 20 CD CF |............. ..|
00000F70: D6 C5 00 A0 13 80 F2 99 22 C1 A0 D0 C9 CC C5 A0 |........".......|
00000F80: CF C6 A0 C4 C9 D3 CB D3 2E 20 48 CF D7 C5 D6 C5 |......... H.....|
00000F90: D2 2C 20 C1 20 CC C1 D2 C7 C5 D2 A0 C4 C9 D3 CB |., . ...........|
00000FA0: 00 CE 13 8A F2 99 22 CD C1 D9 A0 CE C5 D6 C5 D2 |......".........|
00000FB0: A0 C2 C5 A0 D0 CC C1 C3 C5 C4 A0 CF CE A0 D4 CF |................|
00000FC0: D0 A0 CF C6 A0 C1 A0 D3 CD C1 CC CC C5 D2 00 DA |................|
00000FD0: 13 94 F2 99 22 C4 C9 D3 CB 2E 00 05 14 9E F2 99 |...."...........|
00000FE0: 22 11 54 C8 C5 A0 50 C5 D4 A0 D7 C9 CC CC A0 C1 |".T...P.........|
00000FF0: D3 CB A0 D9 CF D5 A0 C8 CF D7 A0 CD C1 CE D9 A0 |................|
00001000: C4 C9 D3 CB D3 00 2E 14 A8 F2 99 22 D9 CF D5 A0 |..........."....|
00001010: D7 C9 D3 C8 A0 D4 CF A0 D7 CF D2 CB A0 D7 C9 D4 |................|
00001020: C8 2E 20 28 42 C5 C7 C9 CE CE C5 D2 D3 3A 00 56 |.. (B........:.V|
00001030: 14 B2 F2 99 22 D4 D2 D9 A0 33 20 CF D2 20 34 2E |...."....3 .. 4.|
00001040: 2E 2E 29 2E 20 49 D4 A0 D7 C9 CC CC A0 D4 C8 C5 |..). I..........|
00001050: CE A0 C4 D2 C1 D7 00 7D 14 BC F2 99 22 C1 A0 D0 |.......}...."...|
00001060: C9 C3 D4 D5 D2 C5 A0 CF C6 A0 D4 C8 C5 A0 C4 C9 |................|
00001070: D3 CB D3 2C 20 C1 CE C4 A0 C1 D3 CB 3A 00 A8 14 |..., .......:...|
00001080: C6 F2 99 22 27 46 D2 CF CD A0 D7 C8 C9 C3 C8 A0 |..."'F..........|
00001090: D0 C9 CC C5 3F 27 2E 20 45 CE D4 C5 D2 A0 D4 C8 |....?'. E.......|
000010A0: C5 A0 CE D5 CD C2 C5 D2 00 D1 14 D0 F2 99 22 CF |..............".|
000010B0: C6 A0 D4 C8 C5 A0 D0 C9 CC C5 A0 C6 D2 CF CD A0 |................|
000010C0: D7 C8 C9 C3 C8 A0 D9 CF D5 A0 D7 C1 CE D4 A0 D4 |................|
000010D0: CF 00 FA 14 DA F2 99 22 D4 C1 CB C5 A0 D4 C8 C5 |......."........|
000010E0: A0 D4 CF D0 A0 C4 C9 D3 CB 2E 20 54 C8 C5 CE 2C |.......... T...,|
000010F0: 20 D9 CF D5 A0 C5 CE D4 C5 D2 00 21 15 E4 F2 99 | ..........!....|
00001100: 22 D4 C8 C5 A0 CE D5 CD C2 C5 D2 A0 CF C6 A0 D4 |"...............|
00001110: C8 C5 A0 D0 C9 CC C5 A0 D7 C8 C5 D2 C5 A0 D9 CF |................|
00001120: D5 00 40 15 EE F2 99 22 D7 C1 CE D4 A0 D4 CF A0 |..@...."........|
00001130: D0 CC C1 C3 C5 A0 D4 C8 C1 D4 A0 C4 C9 D3 CB 2E |................|
00001140: 00 6B 15 F8 F2 99 22 11 52 C5 CD C5 CD C2 C5 D2 |.k....".R.......|
00001150: 20 2D 20 D9 CF D5 A0 C1 CC D7 C1 D9 D3 A0 CD CF | - .............|
00001160: D6 C5 A0 CF CE C5 A0 C4 C9 D3 CB 00 98 15 02 F3 |................|
00001170: 99 22 C1 D4 A0 C1 A0 D4 C9 CD C5 21 20 28 54 C8 |.".........! (T.|
00001180: C5 20 50 C5 D4 A0 D7 CF CE 27 D4 A0 CC C5 D4 A0 |. P......'......|
00001190: D9 CF D5 A0 CD C1 CB C5 00 AE 15 0C F3 99 22 C9 |..............".|
000011A0: CC CC C5 C7 C1 CC A0 CD CF D6 C5 D3 29 2E 00 B9 |............)...|
000011B0: 15 16 F3 8D 36 30 32 30 30 00 00 00 00 |....60200.... |
.......:PK.12.8.... HANOI COPYRIGHT (C)
1978 GLEN FISHER.W.... CURSOR #5, NOVEMB
ER 1978.X.... BOX 550, GOLETA, CA. 93017
.~...:...Z..62000...D.T$.". ............
.."...I.B$."............... "...N..TP$(8
),T$(8),BT$(8),B$(8) ...X..I.1.8.'.
..C$.J(T$,2.I,1):C$.C$.C$.C$:C$.C$.C$.C$
:C$.H(C$.C$,14).C...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.!.,.CR$.G(13).N....".HOW MAN
Y DISKS (UP TO 7) ? ";:. 60000.^....IN$.
"".500.N....I.1.C(IN$).....: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...:.
.N.2.."DON'T BE RIDICULOUS!":.500.9...DN
$.".....................".R...RT$.".....
.........".S....I.1.3:.J.0.7:P(I,J).0:.J
:.I...L..".";DN$;".";:P(1,0).N.I.V..I.1.
3:."
";:.I...`..DN$;"........#1..........
.#2...........#3"...~..DN$;H(".......",N
);......I.1.N.L....H(".".RT$,7.I.1);H(".
L".BT$(1),2.I.1);"."._...P(1,N.I.1).I.2.
F....I.O...MV.0.|.L.TM.TI.60...V..TI.TM.
1910......8000.F.P.PR$.".FROM WHICH PILE
? ":.5000:.IN$."".1950.S.Z.F.E(IN$).....
.P(F,0).1.."THAT PILE IS EMPTY.":.1900.+
...PR$."TO WHICH PILE? ":.5000:.IN$."".1
950.8...T.E(IN$).B....F.T.."THAT MOVE DO
ES NOTHING.":.1900.U. ..P(T,0).0.2100...
*..P(F,P(F,0)).P(T,P(T,0)).."IT WON'T FI
T.":.1900...4.FC.P(F,0):FW.P(F,FC):TC.P(
T,0):TW.P(T,TC):MV.MV.1...>.X.1.13.(F.1)
.7.FW.2.+.H.. DN$;H(".........",FC.1);H(
".".RT$.RT$.RT$,X);.M.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.C.A..P(I,0).H
T.HT.P(I,0).J.F..I...K..HT.P(T,0).HT.HT.
1:.2165...P...(F.T).1..HT.P(2,0).HT.HT.1
...U..I.FC.HT.".Z.:. J.1.8.B..:.T$(J);L
F$;B$(J);LF$;"..";.J...:.J.U...:.".";.\.
...I.F....".";.....L$.H("...............
.",1.FW):R$.H(RT$,FW.1).W....".";H("
",FW);".";H("...............
.",FW);......F.T.2250......I.F.13.T.13.1
.....:.J.1.5......LF$(J);R$;RT$(J);L$;.%
....J./....".";.6....I.@....2300.S.J..I.
T.13.F.13.1.].O..".";.L.T.:.J.5.1..1...Y
.::.LF$(J);R$;RT$(J);L$;.....:.J......I.
.....I.HT.1.TC..1.....:.J.8.1..1.X...:.T
$(J);LF$;B$(J);LF$;"..";.....:.J...$.:."
.";......I...J..H(".L".BT$(1),FW.1);".".
#.D.P(T,0).P(T,0).1.?.N.P(T,P(T,0)).P(F,
P(F,0)).S.X.P(F,0).P(F,0).1.Q.(..P(2,0).
.N.P(3,0)..N.1900.{....8000......"...
.............."... .." ..YOU
DID IT!!.."......" .............
..."......".IT TOOK YOU";MV;H("MOVES",5.
(MV.1));" TO DO IT.".C...T.2.N.1:.".THE
SHORTEST POSSIBLE SOLUTION".I.H.."NEEDS"
;T;H("MOVES",5.(T.1));"."...R..".PLAY AG
AIN? ";:.60000......H(IN$,1).."Y".......
.............PR$;.F....60000:.IN$.""...Z
....H(IN$,1)."Q"........C(IN$).1.5030...
...IN$.."1".IN$.."3"...#...."THERE'S NO
SUCH PILE.".3....I.1.500:.I.Q....".
"...D.."..";PR$;H("
",C(I
N$))...N..".";:.5000...@..".";...J..I.1.
4:."
":.I...T..".";...^.....(#.".".!.`.IN$
." ":ZT.TI:ZC.2:ZD$.G(20).8.J..Z$:. Z$..
"".60070.H.T..ZT..TI..J(" .",ZC,1);".";:
ZC.3.ZC:ZT.TI.15.S.~..60010.....Z.F(Z$):
ZL.C(IN$):.(Z.127).32.." .";:.60110.S...
.FL.(Z.127).64.(Z.127).91.Z$.G((Z.128).2
55)......ZL.254.60010...D.IN$.IN$.Z$:.Z$
;ZD$;Z$;...N..Z.13.IN$.J(IN$,2):.CR$;:..
K.X..Z.20.ZL.1.IN$.H(IN$,ZL.1):.".";:.60
010.~....Z.141.Z$.G(.20.(ZL.1)):.Z.2.ZL:
.Z$;:.Z:.60000......60010...(..PN.0..602
50...2..".PRESS .RETURN. TO ";.S.<..PN.L
P.."BEGIN:";:.60240...F.."CONTINUE:";...
P..T$:.T$."".60240...Z..PN.LP..59468,PK:
.:.".";:.100._.D.PN.PN.1:.".";PG$;" - CU
RSOR #";NM$;" (C) 1978 PAGE";PN;".".
E.N.....0.PG$."HANOI":LP.1:CR$.G(13)...:
..59468,14.B.D.."....CURSOR #5 - HANOI
COPYRIGHT (C) 1978...I..".ANIMATED TOWER
S OF HANOI PUZZLE...N..".WANT DIRECTIONS
? ";:.60000.$.X..H(IN$,1)."Y"..62060.<.B
.."....":.59468,12:..G.L..60200.R.V.."TH
E OBJECT OF THIS PUZZLE IS TO MOVE. ....
"A PILE OF DISKS. HOWEVER, A LARGER DISK
.N...."MAY NEVER BE PLACED ON TOP OF A S
MALLER.Z...."DISK.......".THE PET WILL A
SK YOU HOW MANY DISKS......"YOU WISH TO
WORK WITH. (BEGINNERS:.V...."TRY 3 OR 4.
..). IT WILL THEN DRAW.}...."A PICTURE O
F THE DISKS, AND ASK:...F.."'FROM WHICH
PILE?'. ENTER THE NUMBER.Q.P.."OF THE PI
LE FROM WHICH YOU WANT TO...Z.."TAKE THE
TOP DISK. THEN, YOU ENTER.!...."THE NUM
BER OF THE PILE WHERE YOU.@...."WANT TO
PLACE THAT DISK..K....".REMEMBER - YOU A
LWAYS MOVE ONE DISK......"AT A TIME! (TH
E PET WON'T LET YOU MAKE......"ILLEGAL M
OVES).......60200....
> CLICK IMAGE PREVIEW FOR FULL MODAL