TOWERS
FILE INFORMATION
FILENAME(S): TOWERS
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-11-30 21:07:05
APPEARS ON: 1 disk(s)
FILE HASH
1e2dcb5d9377c96a5a27216c282cd8b2fe8822a6b73a7dd2cf1481f195e37ae1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PET GAMES 02 | TOWERS | PRG | DuncanTwain | 24 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 0A 04 05 00 99 22 93 22 00 1D 04 0A 00 99 |......."."......| 00000010: A3 31 30 29 3B 22 54 4F 57 45 52 53 22 00 43 04 |.10);"TOWERS".C.| 00000020: 14 00 99 3A 99 22 43 52 45 41 54 49 56 45 20 43 |...:."CREATIVE C| 00000030: 4F 4D 50 55 54 49 4E 47 20 4D 4F 52 52 49 53 54 |OMPUTING MORRIST| 00000040: 4F 57 4E 00 4D 04 1E 00 99 3A 99 3A 99 00 53 04 |OWN.M....:.:..S.| 00000050: 5A 00 99 00 6A 04 64 00 8F 20 2A 2A 20 49 4E 49 |Z...j.d.. ** INI| 00000060: 54 49 41 4C 49 5A 45 20 2A 2A 00 76 04 6E 00 86 |TIALIZE **.v.n..| 00000070: 54 28 37 2C 33 29 00 7E 04 78 00 45 B2 30 00 89 |T(7,3).~.x.E.0..| 00000080: 04 82 00 81 44 B2 31 A4 37 00 94 04 8C 00 81 4E |....D.1.7......N| 00000090: B2 31 A4 33 00 A1 04 96 00 54 28 44 2C 4E 29 B2 |.1.3.....T(D,N).| 000000A0: 30 00 A8 04 A0 00 82 4E 00 AF 04 AA 00 82 44 00 |0......N......D.| 000000B0: CF 04 B4 00 99 22 54 4F 57 45 52 53 20 4F 46 20 |....."TOWERS OF | 000000C0: 48 41 4E 44 49 20 50 55 5A 5A 4C 45 22 3A 99 00 |HANDI PUZZLE":..| 000000D0: FB 04 C8 00 99 22 59 4F 55 20 4D 55 53 54 20 54 |....."YOU MUST T| 000000E0: 52 41 4E 53 46 45 52 20 54 48 45 20 44 49 53 4B |RANSFER THE DISK| 000000F0: 53 20 46 52 4F 4D 20 54 48 45 22 00 28 05 CD 00 |S FROM THE".(...| 00000100: 99 22 4C 45 46 54 20 54 4F 20 54 48 45 20 52 49 |."LEFT TO THE RI| 00000110: 47 48 54 20 54 4F 57 45 52 2C 20 4F 4E 45 20 41 |GHT TOWER, ONE A| 00000120: 54 20 54 49 4D 45 2C 22 00 50 05 D2 00 99 22 4E |T TIME,".P...."N| 00000130: 45 56 45 52 20 50 55 54 54 49 4E 47 20 41 20 4C |EVER PUTTING A L| 00000140: 41 52 47 45 52 20 44 49 53 4B 20 4F 4E 20 41 22 |ARGER DISK ON A"| 00000150: 00 67 05 D7 00 99 22 53 4D 41 4C 4C 45 52 20 44 |.g...."SMALLER D| 00000160: 49 53 4B 2E 22 3A 99 00 92 05 D9 00 99 22 48 4F |ISK.":......."HO| 00000170: 57 20 4D 41 4E 59 20 44 49 53 4B 53 20 44 4F 20 |W MANY DISKS DO | 00000180: 59 4F 55 20 57 41 4E 54 20 54 4F 20 4D 4F 56 45 |YOU WANT TO MOVE| 00000190: 22 3A 00 A7 05 DA 00 85 22 28 37 20 49 53 20 4D |":......"(7 IS M| 000001A0: 41 58 2E 29 22 3B 53 00 B0 05 DC 00 99 22 93 22 |AX.)";S......"."| 000001B0: 00 B8 05 E6 00 4D B2 30 00 C3 05 F0 00 81 51 B2 |.....M.0......Q.| 000001C0: 31 A4 37 00 D0 05 FA 00 8B 51 B2 53 A7 33 35 30 |1.7......Q.S.350| 000001D0: 00 D7 05 04 01 82 51 00 E1 05 0E 01 45 B2 45 AA |......Q.....E.E.| 000001E0: 31 00 EE 05 18 01 8B 45 B1 32 A7 33 31 30 00 22 |1......E.2.310."| 000001F0: 06 22 01 99 22 53 4F 52 52 59 2C 20 42 55 54 20 |.".."SORRY, BUT | 00000200: 49 20 43 41 4E 27 54 20 44 4F 20 54 48 41 54 20 |I CAN'T DO THAT | 00000210: 4A 4F 42 20 46 4F 52 20 59 4F 55 2E 22 3A 89 32 |JOB FOR YOU.":.2| 00000220: 31 35 00 50 06 36 01 99 22 41 4C 4C 20 52 49 47 |15.P.6.."ALL RIG| 00000230: 48 54 2C 20 57 49 53 45 20 47 55 59 2C 20 49 46 |HT, WISE GUY, IF| 00000240: 20 59 4F 55 20 43 41 4E 27 54 20 50 4C 41 59 22 | YOU CAN'T PLAY"| 00000250: 00 78 06 3B 01 99 22 54 48 45 20 47 41 4D 45 20 |.x.;.."THE GAME | 00000260: 52 49 47 48 54 2C 49 27 4C 4C 20 4A 55 53 54 20 |RIGHT,I'LL JUST | 00000270: 54 41 4B 45 20 4D 59 22 00 9E 06 40 01 99 22 50 |TAKE MY"...@.."P| 00000280: 55 5A 5A 4C 45 20 41 4E 44 20 47 4F 20 48 4F 4D |UZZLE AND GO HOM| 00000290: 45 2E 20 53 4F 20 4C 4F 4E 47 2E 22 3A 80 00 CF |E. SO LONG.":...| 000002A0: 06 54 01 8F 20 2A 2A 20 53 54 4F 52 45 20 44 49 |.T.. ** STORE DI| 000002B0: 53 4B 53 20 46 52 4F 4D 20 53 4D 41 4C 4C 45 53 |SKS FROM SMALLES| 000002C0: 54 20 54 4F 20 4C 41 52 47 45 53 54 20 2A 2A 00 |T TO LARGEST **.| 000002D0: F9 06 5E 01 99 22 49 4E 20 54 48 49 53 20 50 52 |..^.."IN THIS PR| 000002E0: 4F 47 52 41 4D 2C 20 57 45 20 53 48 41 4C 4C 20 |OGRAM, WE SHALL | 000002F0: 52 45 46 45 52 20 54 4F 22 00 19 07 63 01 99 22 |REFER TO"...c.."| 00000300: 44 49 53 4B 53 20 42 59 20 4E 55 4D 45 52 49 43 |DISKS BY NUMERIC| 00000310: 41 4C 20 43 4F 44 45 2E 22 00 44 07 68 01 99 22 |AL CODE.".D.h.."| 00000320: 31 20 57 49 4C 4C 20 52 45 50 52 45 53 45 4E 54 |1 WILL REPRESENT| 00000330: 20 54 48 45 20 53 4D 41 4C 4C 45 53 54 20 44 49 | THE SMALLEST DI| 00000340: 53 4B 2C 22 00 72 07 6A 01 99 22 33 20 54 48 45 |SK,".r.j.."3 THE| 00000350: 20 4E 45 58 54 20 53 49 5A 45 2C 20 35 20 54 48 | NEXT SIZE, 5 TH| 00000360: 45 20 4E 45 58 54 2C 20 41 4E 44 20 53 4F 20 4F |E NEXT, AND SO O| 00000370: 4E 22 00 9D 07 6C 01 99 22 55 50 20 54 4F 20 31 |N"...l.."UP TO 1| 00000380: 33 2E 20 49 46 20 59 4F 55 20 44 4F 20 54 48 45 |3. IF YOU DO THE| 00000390: 20 50 55 5A 5A 4C 45 20 57 49 54 48 22 00 CA 07 | PUZZLE WITH"...| 000003A0: 6E 01 99 22 32 20 44 49 53 4B 53 2C 20 54 48 45 |n.."2 DISKS, THE| 000003B0: 49 52 20 43 4F 44 45 20 4E 41 4D 45 53 20 57 4F |IR CODE NAMES WO| 000003C0: 55 4C 44 20 42 45 20 31 31 22 00 F5 07 70 01 99 |ULD BE 11"...p..| 000003D0: 22 41 4E 44 20 31 33 2E 20 57 49 54 48 20 33 20 |"AND 13. WITH 3 | 000003E0: 44 49 53 4B 53 20 54 48 45 20 43 4F 44 45 20 4E |DISKS THE CODE N| 000003F0: 41 4D 45 53 22 00 18 08 72 01 99 22 57 4F 55 4C |AMES"...r.."WOUL| 00000400: 44 20 42 45 20 39 2C 20 31 31 20 41 4E 44 20 31 |D BE 9, 11 AND 1| 00000410: 33 2C 20 45 54 43 2E 22 00 45 08 74 01 99 22 54 |3, ETC.".E.t.."T| 00000420: 48 45 20 4E 45 45 44 4C 45 53 20 41 52 45 20 4E |HE NEEDLES ARE N| 00000430: 55 4D 42 45 52 45 44 20 46 52 4F 4D 20 4C 45 46 |UMBERED FROM LEF| 00000440: 54 20 54 4F 22 00 72 08 76 01 99 22 52 49 47 48 |T TO".r.v.."RIGH| 00000450: 54 2C 20 31 20 54 4F 20 33 2E 20 57 45 20 57 49 |T, 1 TO 3. WE WI| 00000460: 4C 4C 20 53 54 41 52 54 20 57 49 54 48 20 54 48 |LL START WITH TH| 00000470: 45 22 00 A0 08 78 01 99 22 44 49 53 4B 53 20 4F |E"...x.."DISKS O| 00000480: 4E 20 4E 45 45 44 4C 45 20 31 2C 20 41 4E 44 20 |N NEEDLE 1, AND | 00000490: 41 54 54 45 4D 50 54 20 54 4F 20 4D 4F 56 45 22 |ATTEMPT TO MOVE"| 000004A0: 00 B9 08 7A 01 99 22 54 48 45 4D 20 54 4F 20 4E |...z.."THEM TO N| 000004B0: 45 45 44 4C 45 20 33 2E 22 00 D0 08 86 01 99 3A |EEDLE 3."......:| 000004C0: 99 22 47 4F 4F 44 20 4C 55 43 4B 20 21 22 3A 99 |."GOOD LUCK !":.| 000004D0: 00 E3 08 8B 01 A1 57 37 3A 8B 57 37 B3 B1 35 A7 |......W7:.W7..5.| 000004E0: 33 39 35 00 EC 08 8C 01 99 22 93 22 00 F9 08 90 |395......"."....| 000004F0: 01 59 B2 37 3A 44 B2 31 33 00 07 09 A4 01 81 58 |.Y.7:D.13......X| 00000500: B2 53 A4 31 A9 AB 31 00 20 09 AE 01 54 28 59 2C |.S.1..1. ...T(Y,| 00000510: 31 29 B2 44 3A 44 B2 44 AB 32 3A 59 B2 59 AB 31 |1).D:D.D.2:Y.Y.1| 00000520: 00 27 09 CC 01 82 58 00 31 09 D6 01 8D 31 32 33 |.'....X.1....123| 00000530: 30 00 5F 09 E0 01 99 22 57 48 49 43 48 20 44 49 |0._...."WHICH DI| 00000540: 53 4B 20 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B |SK WOULD YOU LIK| 00000550: 45 20 54 4F 20 4D 4F 56 45 22 3B 3A 45 B2 30 00 |E TO MOVE";:E.0.| 00000560: 66 09 F4 01 85 44 00 9D 09 FE 01 8B 28 44 AB 31 |f....D......(D.1| 00000570: 29 AC 28 44 AB 33 29 AC 28 44 AB 35 29 AC 28 44 |).(D.3).(D.5).(D| 00000580: AB 37 29 AC 28 44 AB 39 29 AC 28 44 AB 31 31 29 |.7).(D.9).(D.11)| 00000590: AC 28 44 AB 31 33 29 B2 30 A7 35 38 30 00 C9 09 |.(D.13).0.580...| 000005A0: 08 02 99 22 49 4C 4C 45 47 41 4C 20 45 4E 54 52 |..."ILLEGAL ENTR| 000005B0: 59 2E 2E 2E 59 4F 55 20 4D 41 59 20 4F 4E 4C 59 |Y...YOU MAY ONLY| 000005C0: 20 54 59 50 45 20 31 2C 22 00 E7 09 0A 02 99 22 | TYPE 1,"......"| 000005D0: 33 2C 20 35 2C 20 37 2C 20 39 2C 20 31 31 2C 20 |3, 5, 7, 9, 11, | 000005E0: 4F 52 20 31 33 2E 22 00 FA 09 12 02 45 B2 45 AA |OR 13.".....E.E.| 000005F0: 31 3A 8B 45 B1 31 A7 35 36 30 00 03 0A 26 02 89 |1:.E.1.560...&..| 00000600: 35 30 30 00 2A 0A 30 02 99 22 53 54 4F 50 20 57 |500.*.0.."STOP W| 00000610: 41 53 54 49 4E 47 20 4D 59 20 54 49 4D 45 2E 20 |ASTING MY TIME. | 00000620: 47 4F 20 42 4F 54 48 45 52 22 00 41 0A 32 02 99 |GO BOTHER".A.2..| 00000630: 22 53 4F 4D 45 4F 4E 45 20 45 4C 53 45 2E 22 3A |"SOMEONE ELSE.":| 00000640: 80 00 76 0A 44 02 8F 20 2A 2A 20 43 48 45 43 4B |..v.D.. ** CHECK| 00000650: 20 49 46 20 52 45 51 55 45 53 54 45 44 20 44 49 | IF REQUESTED DI| 00000660: 53 4B 20 49 53 20 42 45 4C 4F 57 20 41 4E 4F 54 |SK IS BELOW ANOT| 00000670: 48 45 52 20 2A 2A 00 81 0A 4E 02 81 52 B2 31 A4 |HER **...N..R.1.| 00000680: 37 00 8C 0A 58 02 81 43 B2 31 A4 33 00 9E 0A 62 |7...X..C.1.3...b| 00000690: 02 8B 54 28 52 2C 43 29 B2 44 A7 36 34 30 00 A8 |..T(R,C).D.640..| 000006A0: 0A 6C 02 82 43 3A 82 52 00 B6 0A 80 02 81 51 B2 |.l..C:.R......Q.| 000006B0: 52 A4 31 A9 AB 31 00 C8 0A 85 02 8B 54 28 51 2C |R.1..1......T(Q,| 000006C0: 43 29 B2 30 A7 36 36 30 00 DA 0A 8A 02 8B 54 28 |C).0.660......T(| 000006D0: 51 2C 43 29 B3 44 A7 36 38 30 00 E1 0A 94 02 82 |Q,C).D.680......| 000006E0: 51 00 EA 0A 9E 02 89 37 30 30 00 16 0B A8 02 99 |Q......700......| 000006F0: 22 54 48 41 54 20 44 49 53 4B 20 49 53 20 42 45 |"THAT DISK IS BE| 00000700: 4C 4F 57 20 41 4E 4F 54 48 45 52 20 4F 4E 45 2E |LOW ANOTHER ONE.| 00000710: 20 4D 41 4B 45 22 00 2D 0B AA 02 99 22 41 4E 4F | MAKE".-...."ANO| 00000720: 54 48 45 52 20 43 48 4F 49 43 45 2E 22 00 36 0B |THER CHOICE.".6.| 00000730: B2 02 89 34 38 30 00 3E 0B BC 02 45 B2 30 00 62 |...480.>...E.0.b| 00000740: 0B C1 02 85 22 50 4C 41 43 45 20 44 49 53 4B 20 |...."PLACE DISK | 00000750: 4F 4E 20 57 48 49 43 48 20 4E 45 45 44 4C 45 22 |ON WHICH NEEDLE"| 00000760: 3B 4E 00 7F 0B DA 02 8B 28 4E AB 31 29 AC 28 4E |;N......(N.1).(N| 00000770: AB 32 29 AC 28 4E AB 33 29 B2 30 A7 38 30 30 00 |.2).(N.3).0.800.| 00000780: 89 0B DF 02 45 B2 45 AA 31 00 96 0B E4 02 8B 45 |....E.E.1......E| 00000790: B1 31 A7 37 38 30 00 C4 0B EE 02 99 22 49 27 4C |.1.780......"I'L| 000007A0: 4C 20 41 53 53 55 4D 45 20 59 4F 55 20 48 49 54 |L ASSUME YOU HIT| 000007B0: 20 54 48 45 20 57 52 4F 4E 47 20 4B 45 59 20 54 | THE WRONG KEY T| 000007C0: 48 49 53 22 00 EC 0B F0 02 99 22 54 49 4D 45 2E |HIS"......"TIME.| 000007D0: 20 42 55 54 20 57 41 54 43 48 20 49 54 2C 20 49 | BUT WATCH IT, I| 000007E0: 20 4F 4E 4C 59 20 41 4C 4C 4F 57 22 00 06 0C F8 | ONLY ALLOW"....| 000007F0: 02 99 22 4F 4E 45 20 4D 49 53 54 41 4B 45 20 21 |.."ONE MISTAKE !| 00000800: 22 3A 89 37 30 35 00 33 0C 0C 03 99 22 49 20 54 |":.705.3...."I T| 00000810: 52 49 45 44 20 54 4F 20 57 41 52 4E 20 59 4F 55 |RIED TO WARN YOU| 00000820: 2C 20 42 55 54 20 59 4F 55 20 57 4F 55 4C 44 4E |, BUT YOU WOULDN| 00000830: 27 54 22 00 57 0C 16 03 99 22 4C 49 53 54 45 4E |'T".W...."LISTEN| 00000840: 2E 20 42 59 45 20 42 59 45 2C 20 42 49 47 20 53 |. BYE BYE, BIG S| 00000850: 48 4F 54 2E 22 3A 80 00 62 0C 20 03 81 52 B2 31 |HOT.":..b. ..R.1| 00000860: A4 37 00 75 0C 2A 03 8B 54 28 52 2C 4E 29 B3 B1 |.7.u.*..T(R,N)..| 00000870: 30 A7 38 34 30 00 7C 0C 34 03 82 52 00 85 0C 3E |0.840.|.4..R...>| 00000880: 03 89 38 38 30 00 BC 0C 43 03 8F 20 2A 2A 20 43 |..880...C.. ** C| 00000890: 48 45 43 4B 20 49 46 20 44 49 53 4B 20 54 4F 20 |HECK IF DISK TO | 000008A0: 42 45 20 50 4C 41 43 45 44 20 4F 4E 20 41 20 4C |BE PLACED ON A L| 000008B0: 41 52 47 45 52 20 4F 4E 45 20 2A 2A 00 CE 0C 48 |ARGER ONE **...H| 000008C0: 03 8B 44 B3 54 28 52 2C 4E 29 A7 38 38 30 00 FA |..D.T(R,N).880..| 000008D0: 0C 52 03 99 22 59 4F 55 20 43 41 4E 27 54 20 50 |.R.."YOU CAN'T P| 000008E0: 4C 41 43 45 20 41 20 4C 41 52 47 45 52 20 44 49 |LACE A LARGER DI| 000008F0: 53 4B 20 4F 4E 20 54 4F 50 22 00 27 0D 54 03 99 |SK ON TOP".'.T..| 00000900: 22 4F 46 20 41 20 53 4D 41 4C 4C 45 52 20 4F 4E |"OF A SMALLER ON| 00000910: 45 2C 20 49 54 20 4D 49 47 48 54 20 43 52 55 53 |E, IT MIGHT CRUS| 00000920: 48 20 49 54 20 21 22 00 3E 0D 5C 03 99 22 4E 4F |H IT !".>.\.."NO| 00000930: 57 20 54 48 45 2C 20 22 3B 3A 89 34 38 30 00 5E |W THE, ";:.480.^| 00000940: 0D 6B 03 8F 20 2A 2A 20 4D 4F 56 45 20 52 45 4C |.k.. ** MOVE REL| 00000950: 4F 43 41 54 45 44 20 44 49 53 4B 20 2A 2A 00 70 |OCATED DISK **.p| 00000960: 0D 70 03 81 56 B2 31 A4 37 3A 81 57 B2 31 A4 33 |.p..V.1.7:.W.1.3| 00000970: 00 79 0D 7A 03 99 22 93 22 00 8B 0D 84 03 8B 54 |.y.z.."."......T| 00000980: 28 56 2C 57 29 B2 44 A7 39 33 30 00 95 0D 8E 03 |(V,W).D.930.....| 00000990: 82 57 3A 82 56 00 BF 0D 9D 03 8F 20 2A 2A 4C 4F |.W:.V...... **LO| 000009A0: 43 41 54 45 20 45 4D 50 54 59 20 53 50 41 43 45 |CATE EMPTY SPACE| 000009B0: 20 4F 4E 20 4E 45 45 44 4C 45 20 4E 20 2A 2A 00 | ON NEEDLE N **.| 000009C0: CA 0D A2 03 81 55 B2 31 A4 37 00 DD 0D AC 03 8B |.....U.1.7......| 000009D0: 54 28 55 2C 4E 29 B3 B1 30 A7 39 37 30 00 E4 0D |T(U,N)..0.970...| 000009E0: B6 03 82 55 00 F1 0D C0 03 55 B2 37 3A 89 39 38 |...U.....U.7:.98| 000009F0: 30 00 21 0E C5 03 8F 20 2A 2A 20 4D 4F 56 45 20 |0.!.... ** MOVE | 00000A00: 44 49 53 4B 20 41 4E 44 20 53 45 54 20 4F 4C 44 |DISK AND SET OLD| 00000A10: 20 4C 4F 43 41 54 49 4F 4E 20 54 4F 20 30 20 2A | LOCATION TO 0 *| 00000A20: 2A 00 2B 0E CA 03 55 B2 55 AB 31 00 46 0E D4 03 |*.+...U.U.1.F...| 00000A30: 54 28 55 2C 4E 29 B2 54 28 56 2C 57 29 3A 54 28 |T(U,N).T(V,W):T(| 00000A40: 56 2C 57 29 B2 30 00 6B 0E E3 03 8F 20 2A 2A 20 |V,W).0.k.... ** | 00000A50: 50 52 49 4E 54 20 4F 55 54 20 43 55 52 52 45 4E |PRINT OUT CURREN| 00000A60: 54 20 53 54 41 54 55 53 20 2A 2A 00 75 0E E8 03 |T STATUS **.u...| 00000A70: 8D 31 32 33 30 00 8F 0E FA 03 8F 20 2A 2A 20 43 |.1230...... ** C| 00000A80: 48 45 43 4B 20 49 46 20 44 4F 4E 45 20 2A 2A 00 |HECK IF DONE **.| 00000A90: 99 0E FC 03 4D B2 4D AA 31 00 AB 0E 06 04 81 52 |....M.M.1......R| 00000AA0: B2 31 A4 37 3A 81 43 B2 31 A4 32 00 BF 0E 1A 04 |.1.7:.C.1.2.....| 00000AB0: 8B 54 28 52 2C 43 29 B3 B1 30 A7 31 30 39 30 00 |.T(R,C)..0.1090.| 00000AC0: C9 0E 24 04 82 43 3A 82 52 00 D3 0E 38 04 89 31 |..$..C:.R...8..1| 00000AD0: 31 32 30 00 E3 0E 42 04 8B 4D B3 B2 31 32 38 A7 |120...B..M..128.| 00000AE0: 34 38 30 00 0E 0F 4C 04 99 22 53 4F 52 52 59 2C |480...L.."SORRY,| 00000AF0: 20 42 55 54 20 49 20 48 41 56 45 20 4F 52 44 45 | BUT I HAVE ORDE| 00000B00: 52 53 20 54 4F 20 53 54 4F 50 20 49 46 22 00 35 |RS TO STOP IF".5| 00000B10: 0F 4D 04 99 22 59 4F 55 20 4D 41 4B 45 20 4D 4F |.M.."YOU MAKE MO| 00000B20: 52 45 20 54 48 41 4E 20 31 32 38 20 4D 4F 56 45 |RE THAN 128 MOVE| 00000B30: 53 2E 22 3A 80 00 48 0F 60 04 8B 4D B3 B1 32 AE |S.":..H.`..M..2.| 00000B40: 53 AB 31 A7 31 31 34 30 00 62 0F 6A 04 99 22 43 |S.1.1140.b.j.."C| 00000B50: 4F 4E 47 52 41 54 55 4C 41 54 49 4F 4E 53 20 21 |ONGRATULATIONS !| 00000B60: 21 22 00 8A 0F 74 04 99 22 59 4F 55 20 48 41 56 |!"...t.."YOU HAV| 00000B70: 45 20 50 45 52 46 4F 52 4D 45 44 20 54 48 45 20 |E PERFORMED THE | 00000B80: 54 41 53 4B 20 49 4E 22 3B 4D 00 98 0F 76 04 99 |TASK IN";M...v..| 00000B90: 22 4D 4F 56 45 53 2E 22 00 BC 0F 7E 04 99 3A 99 |"MOVES."...~..:.| 00000BA0: 22 54 52 59 20 41 47 41 49 4E 20 28 59 45 53 20 |"TRY AGAIN (YES | 00000BB0: 4F 52 20 4E 4F 29 22 3B 3A 85 41 24 00 CE 0F 88 |OR NO)";:.A$....| 00000BC0: 04 8B 41 24 B2 22 4E 4F 22 A7 31 33 39 30 00 DF |..A$."NO".1390..| 00000BD0: 0F 92 04 8B 41 24 B2 22 59 45 53 22 A7 39 30 00 |....A$."YES".90.| 00000BE0: 08 10 9C 04 99 3A 99 22 27 59 45 53 27 20 4F 52 |.....:."'YES' OR| 00000BF0: 20 27 4E 4F 27 20 50 4C 45 41 53 45 22 3B 3A 85 | 'NO' PLEASE";:.| 00000C00: 41 24 3A 89 31 31 36 30 00 25 10 CE 04 8F 20 2A |A$:.1160.%.... *| 00000C10: 2A 20 50 52 49 4E 54 20 53 55 42 52 4F 55 54 49 |* PRINT SUBROUTI| 00000C20: 4E 45 20 2A 2A 00 30 10 D8 04 81 4B B2 31 A4 37 |NE **.0....K.1.7| 00000C30: 00 38 10 E2 04 5A B2 37 00 43 10 EC 04 81 4A B2 |.8...Z.7.C....J.| 00000C40: 31 A4 33 00 56 10 F6 04 8B 54 28 4B 2C 4A 29 B2 |1.3.V....T(K,J).| 00000C50: 30 A7 31 33 33 30 00 6C 10 00 05 99 A3 5A AB B5 |0.1330.l.....Z..| 00000C60: 28 54 28 4B 2C 4A 29 AD 32 29 29 3B 00 7C 10 0A |(T(K,J).2));.|..| 00000C70: 05 81 56 B2 31 A4 54 28 4B 2C 4A 29 00 88 10 14 |..V.1.T(K,J)....| 00000C80: 05 99 22 12 2A 92 22 3B 00 8F 10 1E 05 82 56 00 |..".*.";......V.| 00000C90: 99 10 28 05 89 31 33 34 30 00 A7 10 32 05 99 A3 |..(..1340...2...| 00000CA0: 5A 29 3B 22 2A 22 3B 00 B2 10 3C 05 5A B2 5A AA |Z);"*";...<.Z.Z.| 00000CB0: 31 33 00 B9 10 46 05 82 4A 00 C1 10 50 05 99 3A |13...F..J...P..:| 00000CC0: 99 00 C8 10 5A 05 82 4B 00 D2 10 5F 05 99 3A 99 |....Z..K..._..:.| 00000CD0: 3A 99 00 D8 10 64 05 8E 00 FB 10 6E 05 99 3A 99 |:....d.....n..:.| 00000CE0: 22 54 48 41 4E 4B 53 20 46 4F 52 20 54 48 45 20 |"THANKS FOR THE | 00000CF0: 47 41 4D 45 20 21 22 3A 99 3A 80 00 00 00 |GAME !":.:.... |
.......".".......10);"TOWERS".C....:."CR EATIVE COMPUTING MORRISTOWN.M....:.:..S. Z...J.D.. ** INITIALIZE **.V.N..T(7,3).~ .X.E.0......D.1.7......N.1.3.....T(D,N). 0... ..N......D.O...."TOWERS OF HANDI PU ZZLE":....H.."YOU MUST TRANSFER THE DISK S FROM THE".(.M.."LEFT TO THE RIGHT TOWE R, ONE AT TIME,".P.R.."NEVER PUTTING A L ARGER DISK ON A".G.W.."SMALLER DISK.":.. ..Y.."HOW MANY DISKS DO YOU WANT TO MOVE ":...Z.."(7 IS MAX.)";S......".".....M.0 .C....Q.1.7.P....Q.S.350.W....Q.....E.E. 1......E.2.310.".".."SORRY, BUT I CAN'T DO THAT JOB FOR YOU.":.215.P.6.."ALL RIG HT, WISE GUY, IF YOU CAN'T PLAY".X.;.."T HE GAME RIGHT,I'LL JUST TAKE MY"...@.."P UZZLE AND GO HOME. SO LONG.":..O.T.. ** STORE DISKS FROM SMALLEST TO LARGEST **. ..^.."IN THIS PROGRAM, WE SHALL REFER TO "...C.."DISKS BY NUMERICAL CODE.".D.H.." 1 WILL REPRESENT THE SMALLEST DISK,".R.J .."3 THE NEXT SIZE, 5 THE NEXT, AND SO O N"...L.."UP TO 13. IF YOU DO THE PUZZLE WITH".J.N.."2 DISKS, THEIR CODE NAMES WO ULD BE 11"...P.."AND 13. WITH 3 DISKS TH E CODE NAMES"...R.."WOULD BE 9, 11 AND 1 3, ETC.".E.T.."THE NEEDLES ARE NUMBERED FROM LEFT TO".R.V.."RIGHT, 1 TO 3. WE WI LL START WITH THE". .X.."DISKS ON NEEDLE 1, AND ATTEMPT TO MOVE"...Z.."THEM TO N EEDLE 3.".P....:."GOOD LUCK !":.......W7 :.W7..5.395......".".....Y.7:D.13......X .S.1..1. ...T(Y,1).D:D.D.2:Y.Y.1.'.L..X. 1.V..1230._...."WHICH DISK WOULD YOU LIK E TO MOVE";:E.0.F....D......(D.1).(D.3). (D.5).(D.7).(D.9).(D.11).(D.13).0.580.I. ..."ILLEGAL ENTRY...YOU MAY ONLY TYPE 1, "......"3, 5, 7, 9, 11, OR 13.".....E.E. 1:.E.1.560...&..500.*.0.."STOP WASTING M Y TIME. GO BOTHER".A.2.."SOMEONE ELSE.": ..V.D.. ** CHECK IF REQUESTED DISK IS BE LOW ANOTHER **...N..R.1.7...X..C.1.3...B ..T(R,C).D.640...L..C:.R......Q.R.1..1.H ....T(Q,C).0.660.Z....T(Q,C).D.680...... Q......700......"THAT DISK IS BELOW ANOT HER ONE. MAKE".-...."ANOTHER CHOICE.".6. ...480.>...E.0.B.A.."PLACE DISK ON WHICH NEEDLE";N..Z..(N.1).(N.2).(N.3).0.800. ....E.E.1......E.1.780.D...."I'LL ASSUME YOU HIT THE WRONG KEY THIS"......"TIME. BUT WATCH IT, I ONLY ALLOW"......"ONE M ISTAKE !":.705.3...."I TRIED TO WARN YOU , BUT YOU WOULDN'T".W...."LISTEN. BYE BY E, BIG SHOT.":..B. ..R.1.7.U.*..T(R,N).. 0.840.|.4..R...>..880...C.. ** CHECK IF DISK TO BE PLACED ON A LARGER ONE **.N.H ..D.T(R,N).880...R.."YOU CAN'T PLACE A L ARGER DISK ON TOP".'.T.."OF A SMALLER ON E, IT MIGHT CRUSH IT !".>.\.."NOW THE, " ;:.480.^.K.. ** MOVE RELOCATED DISK **.P .P..V.1.7:.W.1.3.Y.Z.."."......T(V,W).D. 930......W:.V...... **LOCATE EMPTY SPACE ON NEEDLE N **.J....U.1.7......T(U,N).. 0.970......U.....U.7:.980.!.E.. ** MOVE DISK AND SET OLD LOCATION TO 0 **.+.J.U. U.1.F.T.T(U,N).T(V,W):T(V,W).0.K.... ** PRINT OUT CURRENT STATUS **.U....1230... ... ** CHECK IF DONE **.....M.M.1......R .1.7:.C.1.2......T(R,C)..0.1090.I.$..C:. R.S.8..1120...B..M..128.480...L.."SORRY, BUT I HAVE ORDERS TO STOP IF".5.M.."YOU MAKE MORE THAN 128 MOVES.":..H.`..M..2. S.1.1140.B.J.."CONGRATULATIONS !!"...T.. "YOU HAVE PERFORMED THE TASK IN";M...V.. "MOVES."...~..:."TRY AGAIN (YES OR NO)"; :.A$.N....A$."NO".1390......A$."YES".90. .....:."'YES' OR 'NO' PLEASE";:.A$:.1160 .%.N.. ** PRINT SUBROUTINE **.0.X..K.1.7 .8...Z.7.C....J.1.3.V....T(K,J).0.1330.L .....Z..(T(K,J).2));.|....V.1.T(K,J).... ..".*.";......V...(..1340...2...Z);"*";. ..<.Z.Z.13...F..J.A.P..:..H.Z..K.R._..:. :..X.D.....N..:."THANKS FOR THE GAME !": .:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL