TOWERBLOCK
FILE INFORMATION
FILENAME(S): TOWERBLOCK
FILE TYPE(S): PRG
FILE SIZE: 3.9K
FIRST SEEN: 2025-11-30 18:24:02
APPEARS ON: 1 disk(s)
FILE HASH
6e95b9952dbef16a5b58f6abc0257a7cd4315b2344637192575d6692dee958d0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| WICKED GAMES | TOWERBLOCK | PRG | Sailor, Pbv | 11 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 C8 00 97 35 33 32 38 30 2C 37 3A 97 |.......53280,7:.|
00000010: 35 33 32 38 31 2C 37 3A 8D 31 35 32 30 00 33 08 |53281,7:.1520.3.|
00000020: D2 00 97 35 33 32 38 30 2C 36 3A 97 35 33 32 38 |...53280,6:.5328|
00000030: 31 2C 36 00 4D 08 DC 00 54 24 B2 22 92 20 92 A4 |1,6.M...T$.". ..|
00000040: 92 AF 92 B9 92 A2 12 B8 12 B7 12 A3 22 00 67 08 |............".g.|
00000050: E6 00 42 24 B2 22 12 A4 12 AF 12 B9 12 A2 92 B8 |..B$."..........|
00000060: 92 B7 92 A3 92 20 22 00 8E 08 F0 00 86 54 50 24 |..... "......TP$|
00000070: 28 38 29 2C 54 24 28 38 29 2C 42 54 24 28 38 29 |(8),T$(8),BT$(8)|
00000080: 2C 42 24 28 38 29 2C 43 53 24 28 32 30 29 00 B5 |,B$(8),CS$(20)..|
00000090: 08 FA 00 43 53 24 28 32 29 B2 22 90 22 3A 43 53 |...CS$(2).".":CS|
000000A0: 24 28 30 34 29 B2 22 9A 22 3A 43 53 24 28 30 36 |$(04).".":CS$(06|
000000B0: 29 B2 22 1C 22 00 DC 08 04 01 43 53 24 28 38 29 |).".".....CS$(8)|
000000C0: B2 22 9F 22 3A 43 53 24 28 31 30 29 B2 22 9C 22 |.".":CS$(10)."."|
000000D0: 3A 43 53 24 28 31 32 29 B2 22 1E 22 00 EC 08 0E |:CS$(12)."."....|
000000E0: 01 43 53 24 28 31 34 29 B2 22 95 22 00 F7 08 18 |.CS$(14)."."....|
000000F0: 01 81 49 B2 31 A4 38 00 31 09 22 01 43 24 B2 CA |..I.1.8.1.".C$..|
00000100: 28 54 24 2C 32 AC 49 2C 31 29 3A 43 24 B2 43 24 |(T$,2.I,1):C$.C$|
00000110: AA 43 24 AA 43 24 3A 43 24 B2 43 24 AA 43 24 AA |.C$.C$:C$.C$.C$.|
00000120: 43 24 3A 43 24 B2 C8 28 43 24 AA 43 24 2C 31 34 |C$:C$..(C$.C$,14|
00000130: 29 00 4D 09 2C 01 54 50 24 28 49 29 B2 CA 28 54 |).M.,.TP$(I)..(T|
00000140: 24 2C 32 AC 49 AB 31 2C 31 29 AA 43 24 00 87 09 |$,2.I.1,1).C$...|
00000150: 36 01 43 24 B2 CA 28 42 24 2C 32 AC 49 2C 31 29 |6.C$..(B$,2.I,1)|
00000160: 3A 43 24 B2 43 24 AA 43 24 AA 43 24 3A 43 24 B2 |:C$.C$.C$.C$:C$.|
00000170: 43 24 AA 43 24 AA 43 24 3A 43 24 B2 C8 28 43 24 |C$.C$.C$:C$..(C$|
00000180: AA 43 24 2C 31 34 29 00 A3 09 40 01 42 54 24 28 |.C$,14)...@.BT$(|
00000190: 49 29 B2 CA 28 42 24 2C 32 AC 49 AB 31 2C 31 29 |I)..(B$,2.I.1,1)|
000001A0: AA 43 24 00 AA 09 4A 01 82 49 00 BE 09 54 01 4C |.C$...J..I...T.L|
000001B0: 24 B2 22 12 20 12 B4 12 A1 92 AA 92 20 22 00 D2 |$.". ....... "..|
000001C0: 09 5E 01 52 24 B2 22 92 20 92 B4 92 A1 12 AA 12 |.^.R$.". .......|
000001D0: 20 22 00 E5 09 68 01 86 4C 46 24 28 35 29 2C 52 | "...h..LF$(5),R|
000001E0: 54 24 28 35 29 00 1D 0A 72 01 81 49 B2 31 A4 35 |T$(5)...r..I.1.5|
000001F0: 3A 4C 46 24 28 49 29 B2 CA 28 4C 24 2C 32 AC 49 |:LF$(I)..(L$,2.I|
00000200: AB 31 2C 32 29 3A 52 54 24 28 49 29 B2 CA 28 52 |.1,2):RT$(I)..(R|
00000210: 24 2C 32 AC 49 AB 31 2C 32 29 3A 82 49 00 2B 0A |$,2.I.1,2):.I.+.|
00000220: 7C 01 43 52 24 B2 C7 28 31 33 29 00 59 0A 86 01 ||.CR$..(13).Y...|
00000230: 99 22 93 11 11 05 48 4F 57 20 4D 41 4E 59 20 42 |."....HOW MANY B|
00000240: 4C 4F 43 4B 53 20 28 31 20 2D 20 37 29 20 3F 20 |LOCKS (1 - 7) ? |
00000250: 22 3B 3A 8D 20 31 34 30 30 00 69 0A 90 01 8B 49 |";:. 1400.i....I|
00000260: 4E 24 B2 22 22 A7 33 39 30 00 79 0A 9A 01 81 49 |N$."".390.y....I|
00000270: B2 31 A4 C3 28 49 4E 24 29 00 A1 0A A4 01 3A 54 |.1..(IN$).....:T|
00000280: 24 B2 CA 28 49 4E 24 2C 49 2C 31 29 3A 8B 54 24 |$..(IN$,I,1):.T$|
00000290: B1 B2 22 30 22 AF 54 24 B3 B2 22 39 22 A7 34 34 |.."0".T$.."9".44|
000002A0: 30 00 B1 0A AE 01 99 22 91 91 91 22 3A 89 33 39 |0......"...":.39|
000002B0: 30 00 B8 0A B8 01 82 49 00 F3 0A C2 01 4E B2 C5 |0......I.....N..|
000002C0: 28 49 4E 24 29 3A 8B 4E B1 37 A7 99 22 11 81 4E |(IN$):.N.7.."..N|
000002D0: 4F 54 20 4D 4F 52 45 20 54 48 41 4E 20 37 20 41 |OT MORE THAN 7 A|
000002E0: 4C 4C 4F 57 45 44 2E 91 91 91 91 91 91 22 3A 89 |LLOWED.......":.|
000002F0: 33 39 30 00 08 0B CC 01 8B 4E B3 32 A7 99 22 91 |390......N.2..".|
00000300: 91 91 22 3A 89 33 39 30 00 28 0B D6 01 44 4E 24 |..":.390.(...DN$|
00000310: B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00000320: 11 11 11 11 11 11 11 22 00 41 0B E0 01 52 54 24 |.......".A...RT$|
00000330: B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00000340: 22 00 62 0B EA 01 81 49 B2 31 A4 33 3A 81 4A B2 |".b....I.1.3:.J.|
00000350: 30 A4 37 3A 50 28 49 2C 4A 29 B2 30 3A 82 4A 3A |0.7:P(I,J).0:.J:|
00000360: 82 49 00 7D 0B F4 01 99 22 93 22 3B 44 4E 24 3B |.I.}....".";DN$;|
00000370: 22 12 22 3B 3A 50 28 31 2C 30 29 B2 4E 00 B9 0B |".";:P(1,0).N...|
00000380: FE 01 81 49 B2 31 A4 33 3A 99 22 81 20 20 20 20 |...I.1.3:.". |
00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003B0: 20 20 20 20 22 3B 3A 82 49 00 D1 0B 03 02 97 35 | ";:.I......5|
000003C0: 33 32 38 30 2C 31 35 3A 97 35 33 32 38 31 2C 31 |3280,15:.53281,1|
000003D0: 35 00 02 0C 08 02 99 44 4E 24 3B 22 81 11 12 1D |5......DN$;"....|
000003E0: 1D 1D 1D 1D 1D 23 31 1D 1D 1D 1D 1D 1D 1D 1D 1D |.....#1.........|
000003F0: 1D 1D 23 32 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 23 |..#2...........#|
00000400: 33 22 00 1B 0C 12 02 99 44 4E 24 3B C8 28 22 91 |3"......DN$;.(".|
00000410: 91 91 91 91 91 91 22 2C 4E 29 3B 00 31 0C 1C 02 |......",N);.1...|
00000420: 81 49 B2 31 A4 4E 3A 99 43 53 24 28 49 AC 32 29 |.I.1.N:.CS$(I.2)|
00000430: 3B 00 60 0C 26 02 99 C8 28 22 92 22 AA 52 54 24 |;.`.&...(".".RT$|
00000440: 2C 37 AB 49 AA 31 29 3B C8 28 22 12 A4 22 AA 42 |,7.I.1);.("..".B|
00000450: 54 24 28 31 29 2C 32 AC 49 AA 31 29 3B 22 A4 22 |T$(1),2.I.1);"."|
00000460: 00 73 0C 30 02 50 28 31 2C 4E AB 49 AA 31 29 B2 |.s.0.P(1,N.I.1).|
00000470: 49 AC 32 00 7A 0C 3A 02 82 49 00 83 0C 44 02 4D |I.2.z.:..I...D.M|
00000480: 56 B2 30 00 90 0C 4E 02 54 4D B2 54 49 AA 36 30 |V.0...N.TM.TI.60|
00000490: 00 9F 0C 58 02 8B 54 49 B3 54 4D A7 36 30 30 00 |...X..TI.TM.600.|
000004A0: A9 0C 62 02 8D 31 33 35 30 00 DA 0C 6C 02 50 52 |..b..1350...l.PR|
000004B0: 24 B2 22 13 1E 46 52 4F 4D 20 57 48 41 54 20 50 |$."..FROM WHAT P|
000004C0: 4C 41 43 45 20 3F 20 22 3A 8D 31 32 35 30 3A 8B |LACE ? ":.1250:.|
000004D0: 49 4E 24 B2 22 22 A7 36 31 30 00 E7 0C 76 02 46 |IN$."".610...v.F|
000004E0: B2 C5 28 49 4E 24 29 00 11 0D 80 02 8B 50 28 46 |..(IN$)......P(F|
000004F0: 2C 30 29 B3 31 A7 99 22 54 48 45 20 50 4C 41 43 |,0).1.."THE PLAC|
00000500: 45 20 49 53 20 45 4D 50 54 59 2E 22 3A 89 35 39 |E IS EMPTY.":.59|
00000510: 30 00 3F 0D 8A 02 50 52 24 B2 22 9C 54 4F 20 57 |0.?...PR$.".TO W|
00000520: 48 41 54 20 50 4C 41 43 45 20 3F 20 22 3A 8D 31 |HAT PLACE ? ":.1|
00000530: 32 35 30 3A 8B 49 4E 24 B2 22 22 A7 36 31 30 00 |250:.IN$."".610.|
00000540: 4C 0D 94 02 54 B2 C5 28 49 4E 24 29 00 6E 0D 9E |L...T..(IN$).n..|
00000550: 02 8B 46 B2 54 A7 99 22 49 20 43 41 4E 27 54 20 |..F.T.."I CAN'T |
00000560: 44 4F 20 54 48 41 54 2E 22 3A 89 35 39 30 00 80 |DO THAT.":.590..|
00000570: 0D A8 02 8B 50 28 54 2C 30 29 B2 30 A7 37 30 30 |....P(T,0).0.700|
00000580: 00 B8 0D B2 02 8B 50 28 46 2C 50 28 46 2C 30 29 |......P(F,P(F,0)|
00000590: 29 B1 50 28 54 2C 50 28 54 2C 30 29 29 A7 99 22 |).P(T,P(T,0)).."|
000005A0: 59 4F 55 20 43 41 4E 27 54 20 44 4F 20 54 48 41 |YOU CAN'T DO THA|
000005B0: 54 2E 22 3A 89 35 39 30 00 EE 0D BC 02 46 43 B2 |T.":.590.....FC.|
000005C0: 50 28 46 2C 30 29 3A 46 57 B2 50 28 46 2C 46 43 |P(F,0):FW.P(F,FC|
000005D0: 29 3A 54 43 B2 50 28 54 2C 30 29 3A 54 57 B2 50 |):TC.P(T,0):TW.P|
000005E0: 28 54 2C 54 43 29 3A 4D 56 B2 4D 56 AA 31 00 12 |(T,TC):MV.MV.1..|
000005F0: 0E C6 02 58 B2 31 AA 31 33 AC 28 46 AB 31 29 AA |...X.1.13.(F.1).|
00000600: 37 AB 46 57 AD 32 3A 99 22 13 22 43 53 24 28 46 |7.FW.2:."."CS$(F|
00000610: 57 29 00 46 0E D0 02 99 20 44 4E 24 3B C8 28 22 |W).F.... 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 DA 02 4C 46 24 B2 C8 |T$,X);.h...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 E4 02 81 49 B2 |.",FW.1)......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 EE 02 48 54 B2 30 3A 4A B2 31 3A 8B |I.....HT.0:J.1:.|
000006B0: 46 B1 54 A7 4A B2 AB 31 00 C5 0E F8 02 81 49 B2 |F.T.J..1......I.|
000006C0: 46 A4 54 A9 4A 00 DE 0E 02 03 8B 50 28 49 2C 30 |F.T.J......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 0C 03 82 49 00 01 0F 16 03 8B 48 54 B2 50 28 |....I......HT.P(|
000006F0: 54 2C 30 29 A7 48 54 B2 48 54 AA 31 3A 89 38 31 |T,0).HT.HT.1:.81|
00000700: 30 00 22 0F 20 03 8B B6 28 46 AB 54 29 B1 31 A7 |0.". ...(F.T).1.|
00000710: 8B 48 54 B2 50 28 32 2C 30 29 A7 48 54 B2 48 54 |.HT.P(2,0).HT.HT|
00000720: AA 31 00 2F 0F 2A 03 81 49 B2 46 43 A4 48 54 00 |.1./.*..I.FC.HT.|
00000730: 3C 0F 34 03 3A 81 20 4A B2 31 A4 38 00 5C 0F 3E |<.4.:. J.1.8.\.>|
00000740: 03 3A 99 54 24 28 4A 29 3B 4C 46 24 3B 42 24 28 |.:.T$(J);LF$;B$(|
00000750: 4A 29 3B 4C 46 24 3B 22 91 91 22 3B 00 64 0F 48 |J);LF$;"..";.d.H|
00000760: 03 3A 82 4A 00 6F 0F 52 03 3A 99 22 91 22 3B 00 |.:.J.o.R.:.".";.|
00000770: 76 0F 5C 03 82 49 00 80 0F 66 03 99 22 11 22 3B |v.\..I...f..".";|
00000780: 00 B1 0F 70 03 4C 24 B2 C8 28 22 9D 9D 9D 9D 9D |...p.L$..(".....|
00000790: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 2C 31 AA 46 |...........",1.F|
000007A0: 57 29 3A 52 24 B2 C8 28 52 54 24 2C 46 57 AB 31 |W):R$..(RT$,FW.1|
000007B0: 29 00 F1 0F 7A 03 99 22 12 22 3B C8 28 22 20 20 |)...z..".";.(" |
000007C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2C | ",|
000007D0: 46 57 29 3B 22 92 22 3B C8 28 22 9D 9D 9D 9D 9D |FW);".";.(".....|
000007E0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 2C 46 57 29 |...........",FW)|
000007F0: 3B 00 FE 0F 84 03 8B 46 B1 54 A7 39 38 30 00 11 |;......F.T.980..|
00000800: 10 8E 03 81 49 B2 46 AC 31 33 A4 54 AC 31 33 AB |....I.F.13.T.13.|
00000810: 31 00 1D 10 98 03 3A 81 4A B2 31 A4 35 00 37 10 |1.....:.J.1.5.7.|
00000820: A2 03 99 4C 46 24 28 4A 29 3B 52 24 3B 52 54 24 |...LF$(J);R$;RT$|
00000830: 28 4A 29 3B 4C 24 3B 00 3E 10 AC 03 82 4A 00 48 |(J);L$;.>....J.H|
00000840: 10 B6 03 99 22 1D 22 3B 00 4F 10 C0 03 82 49 00 |....".";.O....I.|
00000850: 59 10 CA 03 89 31 30 34 30 00 6C 10 D4 03 81 49 |Y....1040.l....I|
00000860: B2 54 AC 31 33 A4 46 AC 31 33 AB 31 00 76 10 DE |.T.13.F.13.1.v..|
00000870: 03 99 22 9D 22 3B 00 85 10 E8 03 3A 81 4A B2 35 |..".";.....:.J.5|
00000880: A4 31 A9 AB 31 00 A1 10 F2 03 3A 3A 99 4C 46 24 |.1..1.....::.LF$|
00000890: 28 4A 29 3B 52 24 3B 52 54 24 28 4A 29 3B 4C 24 |(J);R$;RT$(J);L$|
000008A0: 3B 00 A9 10 FC 03 3A 82 4A 00 B0 10 06 04 82 49 |;.....:.J......I|
000008B0: 00 C2 10 10 04 81 49 B2 48 54 AB 31 A4 54 43 A9 |......I.HT.1.TC.|
000008C0: AB 31 00 D1 10 1A 04 3A 81 4A B2 38 A4 31 A9 AB |.1.....:.J.8.1..|
000008D0: 31 00 F1 10 24 04 3A 99 54 24 28 4A 29 3B 4C 46 |1...$.:.T$(J);LF|
000008E0: 24 3B 42 24 28 4A 29 3B 4C 46 24 3B 22 91 91 22 |$;B$(J);LF$;".."|
000008F0: 3B 00 F9 10 2E 04 3A 82 4A 00 04 11 38 04 3A 99 |;.....:.J...8.:.|
00000900: 22 11 22 3B 00 0B 11 42 04 82 49 00 28 11 4C 04 |".";...B..I.(.L.|
00000910: 99 C8 28 22 12 A4 22 AA 42 54 24 28 31 29 2C 46 |..("..".BT$(1),F|
00000920: 57 AA 31 29 3B 22 A4 22 00 3C 11 56 04 50 28 54 |W.1);".".<.V.P(T|
00000930: 2C 30 29 B2 50 28 54 2C 30 29 AA 31 00 58 11 60 |,0).P(T,0).1.X.`|
00000940: 04 50 28 54 2C 50 28 54 2C 30 29 29 B2 50 28 46 |.P(T,P(T,0)).P(F|
00000950: 2C 50 28 46 2C 30 29 29 00 6C 11 6A 04 50 28 46 |,P(F,0)).l.j.P(F|
00000960: 2C 30 29 B2 50 28 46 2C 30 29 AB 31 00 89 11 74 |,0).P(F,0).1...t|
00000970: 04 8B 50 28 32 2C 30 29 B3 B1 4E AF 50 28 33 2C |..P(2,0)..N.P(3,|
00000980: 30 29 B3 B1 4E A7 35 39 30 00 93 11 7E 04 8D 31 |0)..N.590...~..1|
00000990: 33 35 30 00 B5 11 88 04 99 22 11 11 11 90 20 20 |350......".... |
000009A0: 20 20 20 20 20 20 AC A2 A2 A2 A2 A2 A2 A2 A2 A2 | ..........|
000009B0: A2 A2 A2 BB 22 00 D5 11 92 04 99 22 20 20 20 20 |...."......" |
000009C0: 20 20 20 20 12 A1 59 4F 55 20 48 41 56 45 20 49 | ..YOU HAVE I|
000009D0: 54 20 92 A1 22 00 F5 11 9C 04 99 22 20 20 20 20 |T .."......" |
000009E0: 20 20 20 20 BC 12 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 | ............|
000009F0: A2 A2 92 BE 22 00 15 12 A6 04 99 22 11 05 59 4F |...."......"..YO|
00000A00: 55 20 4E 45 45 44 45 44 22 3B 4D 56 3B 22 4D 4F |U NEEDED";MV;"MO|
00000A10: 56 45 53 2E 22 00 45 12 B0 04 54 B2 32 AE 4E AB |VES.".E...T.2.N.|
00000A20: 31 3A 99 22 11 54 48 45 20 53 48 4F 52 54 45 53 |1:.".THE SHORTES|
00000A30: 54 20 57 41 59 20 57 41 53 20 49 4E 22 54 22 4D |T WAY WAS IN"T"M|
00000A40: 4F 56 45 53 2E 00 65 12 BA 04 81 20 58 B2 32 30 |OVES..e.... X.20|
00000A50: 34 38 A4 33 30 30 30 3A 97 58 2C 30 3A 82 3A 9E |48.3000:.X,0:.:.|
00000A60: 36 34 37 33 38 00 6C 12 C4 04 8F CC 00 73 12 CE |64738.l......s..|
00000A70: 04 8F CC 00 7A 12 D8 04 8F CC 00 84 12 E2 04 99 |....z...........|
00000A80: 50 52 24 3B 00 98 12 EC 04 8D 31 34 30 30 3A 8B |PR$;......1400:.|
00000A90: 49 4E 24 B2 22 22 A7 8E 00 AC 12 F6 04 8B C8 28 |IN$."".........(|
00000AA0: 49 4E 24 2C 31 29 B2 22 51 22 A7 80 00 BF 12 00 |IN$,1)."Q"......|
00000AB0: 05 8B C3 28 49 4E 24 29 B1 31 A7 31 33 30 30 00 |...(IN$).1.1300.|
00000AC0: D8 12 0A 05 8B 49 4E 24 B1 B2 22 31 22 AF 49 4E |.....IN$.."1".IN|
00000AD0: 24 B3 B2 22 33 22 A7 8E 00 F2 12 14 05 99 22 54 |$.."3"........"T|
00000AE0: 48 45 52 45 20 49 53 20 4E 4F 20 42 4C 4F 43 4B |HERE IS NO BLOCK|
00000AF0: 2E 22 00 02 13 1E 05 81 49 B2 31 A4 35 30 30 3A |."......I.1.500:|
00000B00: 82 49 00 21 13 28 05 99 22 91 20 20 20 20 20 20 |.I.!.(..". |
00000B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B20: 22 00 64 13 32 05 99 22 91 91 22 3B 50 52 24 3B |".d.2.."..";PR$;|
00000B30: C8 28 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.(" |
00000B40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B50: 20 20 20 20 20 20 20 20 20 20 20 22 2C C3 28 49 | ",.(I|
00000B60: 4E 24 29 29 00 74 13 3C 05 99 22 91 22 3B 3A 89 |N$)).t.<..".";:.|
00000B70: 31 32 35 30 00 7E 13 46 05 99 22 13 22 3B 00 B7 |1250.~.F..".";..|
00000B80: 13 50 05 81 49 B2 31 A4 35 3A 99 22 20 20 20 20 |.P..I.1.5:." |
00000B90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BB0: 20 20 20 22 3A 82 49 00 C1 13 5A 05 99 22 13 22 | ":.I...Z.."."|
00000BC0: 3B 00 C7 13 64 05 8E 00 D0 13 6E 05 99 22 13 22 |;...d.....n.."."|
00000BD0: 00 F1 13 78 05 49 4E 24 B2 22 20 22 3A 5A 54 B2 |...x.IN$." ":ZT.|
00000BE0: 54 49 3A 5A 43 B2 32 3A 5A 44 24 B2 C7 28 32 30 |TI:ZC.2:ZD$..(20|
00000BF0: 29 00 07 14 82 05 A1 5A 24 3A 8B 20 5A 24 B3 B1 |)......Z$:. Z$..|
00000C00: 22 22 A7 31 34 34 30 00 37 14 8C 05 8B 5A 54 B3 |"".1440.7....ZT.|
00000C10: B2 54 49 A7 99 CA 28 22 20 A6 22 2C 5A 43 2C 31 |.TI...(" .",ZC,1|
00000C20: 29 3B 22 9D 22 3B 3A 5A 43 B2 33 AB 5A 43 3A 5A |);".";:ZC.3.ZC:Z|
00000C30: 54 B2 54 49 AA 31 35 00 41 14 96 05 89 31 34 31 |T.TI.15.A....141|
00000C40: 30 00 70 14 A0 05 5A B2 C6 28 5A 24 29 3A 5A 4C |0.p...Z..(Z$):ZL|
00000C50: B2 C3 28 49 4E 24 29 3A 8B 28 5A AF 31 32 37 29 |..(IN$):.(Z.127)|
00000C60: B3 33 32 A7 99 22 20 9D 22 3B 3A 89 31 34 38 30 |.32.." .";:.1480|
00000C70: 00 A0 14 AA 05 8B 46 4C AF 28 5A AF 31 32 37 29 |......FL.(Z.127)|
00000C80: B1 36 34 AF 28 5A AF 31 32 37 29 B3 39 31 A7 5A |.64.(Z.127).91.Z|
00000C90: 24 B2 C7 28 28 5A AA 31 32 38 29 AF 32 35 35 29 |$..((Z.128).255)|
00000CA0: 00 B1 14 B4 05 8B 5A 4C B1 32 35 34 A7 31 34 31 |......ZL.254.141|
00000CB0: 30 00 CC 14 BE 05 49 4E 24 B2 49 4E 24 AA 5A 24 |0.....IN$.IN$.Z$|
00000CC0: 3A 99 5A 24 3B 5A 44 24 3B 5A 24 3B 00 EB 14 C8 |:.Z$;ZD$;Z$;....|
00000CD0: 05 8B 5A B2 31 33 A7 49 4E 24 B2 CA 28 49 4E 24 |..Z.13.IN$..(IN$|
00000CE0: 2C 32 29 3A 99 43 52 24 3B 3A 8E 00 16 15 D2 05 |,2):.CR$;:......|
00000CF0: 8B 5A B2 32 30 AF 5A 4C B1 31 A7 49 4E 24 B2 C8 |.Z.20.ZL.1.IN$..|
00000D00: 28 49 4E 24 2C 5A 4C AB 31 29 3A 99 22 9D 22 3B |(IN$,ZL.1):.".";|
00000D10: 3A 89 31 34 31 30 00 48 15 DC 05 8B 5A B2 31 34 |:.1410.H....Z.14|
00000D20: 31 A7 5A 24 B2 C7 28 AB 32 30 AC 28 5A 4C B1 31 |1.Z$..(.20.(ZL.1|
00000D30: 29 29 3A 81 5A B2 32 A4 5A 4C 3A 99 5A 24 3B 3A |)):.Z.2.ZL:.Z$;:|
00000D40: 82 5A 3A 89 31 34 30 30 00 52 15 E6 05 89 31 34 |.Z:.1400.R....14|
00000D50: 31 30 00 8E 15 F0 05 99 22 93 1E 2A 2A 2A 20 81 |10......"..*** .|
00000D60: 43 4F 4D 4D 4F 44 4F 52 45 20 36 34 20 1E 2A 2A |COMMODORE 64 .**|
00000D70: 2A 20 81 20 42 4C 4F 43 4B 54 4F 57 45 52 20 1E |* . BLOCKTOWER .|
00000D80: 2A 2A 2A 22 C7 28 31 34 32 29 C7 28 38 29 00 B9 |***".(142).(8)..|
00000D90: 15 FA 05 99 22 90 11 59 4F 55 20 48 41 56 45 20 |...."..YOU HAVE |
00000DA0: 33 20 54 4F 57 45 52 53 20 57 49 54 48 20 41 20 |3 TOWERS WITH A |
00000DB0: 4E 55 4D 42 45 52 20 4F 46 00 E7 15 04 06 99 22 |NUMBER OF......"|
00000DC0: 11 20 42 4C 4F 43 4B 53 2E 20 54 48 45 20 49 44 |. BLOCKS. THE ID|
00000DD0: 45 41 20 49 53 20 54 4F 20 47 45 54 20 54 48 45 |EA IS TO GET THE|
00000DE0: 20 42 4C 4F 43 4B 53 00 14 16 0E 06 99 22 11 20 | BLOCKS......". |
00000DF0: 54 4F 20 54 48 45 20 4F 54 48 45 52 20 53 49 44 |TO THE OTHER SID|
00000E00: 45 20 49 4E 20 54 48 45 20 53 41 4D 45 20 4F 52 |E IN THE SAME OR|
00000E10: 44 45 52 2E 00 42 16 18 06 99 22 11 20 4D 4F 56 |DER..B....". MOV|
00000E20: 45 20 54 48 45 20 42 4C 4F 43 4B 53 20 4F 4E 45 |E THE BLOCKS ONE|
00000E30: 20 46 4F 52 20 4F 4E 45 2C 20 41 20 4C 41 52 47 | FOR ONE, A LARG|
00000E40: 45 52 00 72 16 22 06 99 22 11 42 4C 4F 43 4B 20 |ER.r."..".BLOCK |
00000E50: 43 41 4E 20 4E 4F 54 20 42 45 20 50 55 54 20 4F |CAN NOT BE PUT O|
00000E60: 4E 20 41 20 53 4D 41 4C 4C 45 52 20 42 4C 4F 43 |N A SMALLER BLOC|
00000E70: 4B 2E 00 9B 16 2C 06 99 22 11 20 54 52 59 20 54 |K....,..". TRY T|
00000E80: 4F 20 44 4F 20 49 54 20 49 4E 20 54 48 45 20 53 |O DO IT IN THE S|
00000E90: 48 4F 52 54 45 53 54 20 57 41 59 00 AD 16 36 06 |HORTEST WAY...6.|
00000EA0: 99 22 11 20 50 4F 53 53 49 42 4C 45 2E 00 B7 16 |.". POSSIBLE....|
00000EB0: 54 06 8D 31 36 34 30 00 BD 16 5E 06 8E 00 FC 16 |T..1640...^.....|
00000EC0: 68 06 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |h.."............|
00000ED0: 11 11 11 11 11 11 11 11 11 11 11 11 11 1C 20 20 |.............. |
00000EE0: 20 50 52 45 53 53 20 53 50 41 43 45 42 41 52 20 | PRESS SPACEBAR |
00000EF0: 54 4F 20 43 4F 4E 54 49 4E 55 45 13 00 0B 17 72 |TO CONTINUE....r|
00000F00: 06 81 49 B2 31 A4 32 35 30 3A 82 00 4A 17 7C 06 |..I.1.250:..J.|.|
00000F10: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00000F20: 11 11 11 11 11 11 11 11 11 11 11 1C 20 20 20 50 |............ P|
00000F30: 52 45 53 53 20 53 50 41 43 45 42 41 52 20 54 4F |RESS SPACEBAR TO|
00000F40: 20 43 4F 4E 54 49 4E 55 45 13 00 59 17 86 06 81 | CONTINUE..Y....|
00000F50: 49 B2 31 A4 32 35 30 3A 82 00 6B 17 90 06 A1 41 |I.1.250:..k....A|
00000F60: 24 3A 8B 41 24 B2 22 20 22 A7 8E 00 75 17 9A 06 |$:.A$." "...u...|
00000F70: 89 31 36 34 30 00 00 00 FF 51 B2 C2 28 31 30 31 |.1640....Q..(101|
00000F80: 32 29 00 06 18 70 08 8B 50 54 28 31 29 B2 50 54 |2)...p..PT(1).PT|
00000F90: 28 32 29 A7 8B 50 54 28 31 29 B2 50 54 28 33 29 |(2)..PT(1).PT(3)|
00000FA0: A7 8B 50 54 28 31 29 B2 50 54 28 34 |..PT(1).PT(4 |
....H..53280,7:.53281,7:.1520.3.R..53280
,6:.53281,6.M...T$.". ..............".G.
..B$."............... "......TP$(8),T$(8
),BT$(8),B$(8),CS$(20).....CS$(2).".":CS
$(04).".":CS$(06).".".....CS$(8).".":CS$
(10).".":CS$(12).".".....CS$(14)."."....
..I.1.8.1.".C$.J(T$,2.I,1):C$.C$.C$.C$:C
$.C$.C$.C$:C$.H(C$.C$,14).M.,.TP$(I).J(T
$,2.I.1,1).C$...6.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$...J..I...T.L$.". ...
.... ".R.^.R$.". ....... "...H..LF$(5),R
T$(5)...R..I.1.5:LF$(I).J(L$,2.I.1,2):RT
$(I).J(R$,2.I.1,2):.I.+.|.CR$.G(13).Y...
."....HOW MANY BLOCKS (1 - 7) ? ";:. 140
0.I....IN$."".390.Y....I.1.C(IN$).....:T
$.J(IN$,I,1):.T$.."0".T$.."9".440......"
...":.390......I...B.N.E(IN$):.N.7.."..N
OT MORE THAN 7 ALLOWED.......":.390...L.
.N.2.."...":.390.(.V.DN$."..............
.......".A...RT$."..............".B....I
.1.3:.J.0.7:P(I,J).0:.J:.I.}....".";DN$;
".";:P(1,0).N......I.1.3:.".
";:.I.Q....5
3280,15:.53281,15......DN$;".........#1.
..........#2...........#3"......DN$;H(".
......",N);.1....I.1.N:.CS$(I.2);.`.&..H
(".".RT$,7.I.1);H("..".BT$(1),2.I.1);"."
.S.0.P(1,N.I.1).I.2.Z.:..I...D.MV.0...N.
TM.TI.60...X..TI.TM.600...B..1350.Z.L.PR
$."..FROM WHAT PLACE ? ":.1250:.IN$."".6
10...V.F.E(IN$)......P(F,0).1.."THE PLAC
E IS EMPTY.":.590.?...PR$.".TO WHAT PLAC
E ? ":.1250:.IN$."".610.L...T.E(IN$).N..
..F.T.."I CAN'T DO THAT.":.590......P(T,
0).0.700......P(F,P(F,0)).P(T,P(T,0)).."
YOU CAN'T DO THAT.":.590.....FC.P(F,0):F
W.P(F,FC):TC.P(T,0):TW.P(T,TC):MV.MV.1..
.F.X.1.13.(F.1).7.FW.2:."."CS$(FW).F.P..
DN$;H(".........",FC.1);H(".".RT$.RT$.R
T$,X);.H.Z.LF$.H("...............",FW.1)
......I.1. 8:T$(I).H(TP$(I),1.FW):B$(I).
H(BT$(I),1.FW):.I.....HT.0:J.1:.F.T.J..1
.E....I.F.T.J......P(I,0).HT.HT.P(I,0)..
....I......HT.P(T,0).HT.HT.1:.810.". ...
(F.T).1..HT.P(2,0).HT.HT.1./.*..I.FC.HT.
<.4.:. J.1.8.\.>.:.T$(J);LF$;B$(J);LF$;"
..";.D.H.:.J.O.R.:.".";.V.\..I...F..".";
...P.L$.H("................",1.FW):R$.H(
RT$,FW.1)...Z..".";H(" ",
FW);".";H("................",FW);......F
.T.980......I.F.13.T.13.1.....:.J.1.5.7.
...LF$(J);R$;RT$(J);L$;.>....J.H....".";
.O....I.Y.J..1040.L.T..I.T.13.F.13.1.V..
..".";.....:.J.5.1..1.....::.LF$(J);R$;R
T$(J);L$;.....:.J......I.B....I.HT.1.TC.
.1.Q...:.J.8.1..1...$.:.T$(J);LF$;B$(J);
LF$;"..";.....:.J...8.:.".";...B..I.(.L.
.H("..".BT$(1),FW.1);".".<.V.P(T,0).P(T,
0).1.X.`.P(T,P(T,0)).P(F,P(F,0)).L.J.P(F
,0).P(F,0).1...T..P(2,0)..N.P(3,0)..N.59
0...~..1350......".... ..........
....".U...." ..YOU HAVE IT .."...
..." ................"......"..YO
U NEEDED";MV;"MOVES.".E...T.2.N.1:.".THE
SHORTEST WAY WAS IN"T"MOVES..E.... X.20
48.3000:.X,0:.:.64738.L.D..L.S.N..L.Z.X.
.L......PR$;......1400:.IN$.""........H(
IN$,1)."Q"........C(IN$).1.1300.X....IN$
.."1".IN$.."3"........"THERE IS NO BLOCK
."......I.1.500:.I.!.(..".
".D.2.."..";PR$;H("
",C(IN$)).T.<
..".";:.1250.~.F..".";...P..I.1.5:."
":.I.
A.Z..".";.G.D...P.N.."."...X.IN$." ":ZT.
TI:ZC.2:ZD$.G(20)......Z$:. Z$.."".1440.
7....ZT..TI..J(" .",ZC,1);".";:ZC.3.ZC:Z
T.TI.15.A....1410.P. .Z.F(Z$):ZL.C(IN$):
.(Z.127).32.." .";:.1480. ....FL.(Z.127)
.64.(Z.127).91.Z$.G((Z.128).255)......ZL
.254.1410.L...IN$.IN$.Z$:.Z$;ZD$;Z$;...H
..Z.13.IN$.J(IN$,2):.CR$;:....R..Z.20.ZL
.1.IN$.H(IN$,ZL.1):.".";:.1410.H....Z.14
1.Z$.G(.20.(ZL.1)):.Z.2.ZL:.Z$;:.Z:.1400
.R....1410......"..*** .COMMODORE 64 .**
* . BLOCKTOWER .***"G(142)G(8)......"..Y
OU HAVE 3 TOWERS WITH A NUMBER OF......"
. BLOCKS. THE IDEA IS TO GET THE BLOCKS.
.....". TO THE OTHER SIDE IN THE SAME OR
DER..B....". MOVE THE BLOCKS ONE FOR ONE
, A LARGER.R."..".BLOCK CAN NOT BE PUT O
N A SMALLER BLOCK....,..". TRY TO DO IT
IN THE SHORTEST WAY...6..". POSSIBLE....
T..1640...^.....H.."....................
...... PRESS SPACEBAR TO CONTINUE....R
..I.1.250:..J.|.."......................
.... PRESS SPACEBAR TO CONTINUE..Y....
I.1.250:..K....A$:.A$." "...U....1640...
.Q.B(1012)...P..PT(1).PT(2)..PT(1).PT(3)
..PT(1).PT(4
> CLICK IMAGE PREVIEW FOR FULL MODAL