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