TOWERS.D
FILE INFORMATION
FILENAME(S): TOWERS.D
FILE TYPE(S): PRG
FILE SIZE: 7.9K
FIRST SEEN: 2025-11-30 01:08:23
APPEARS ON: 1 disk(s)
FILE HASH
7fb19928c0c832c1ecf146db15f08ad26bf2acee65f6ed45082cfaab55853529
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | TOWERS.D | PRG | Treasure Chest - Wolfgang Rauprich | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2B 08 01 00 8F 20 2D 20 54 4F 57 45 52 53 |..+.... - TOWERS|
00000010: 20 4F 46 20 42 52 41 48 4D 41 20 46 4F 52 20 43 | OF BRAHMA FOR C|
00000020: 4F 4D 4D 4F 44 4F 52 45 20 36 34 00 41 08 02 00 |OMMODORE 64.A...|
00000030: 8F 20 2D 20 44 41 4E 49 45 4C 20 4D 49 4C 4C 45 |. - DANIEL MILLE|
00000040: 52 00 58 08 03 00 8F 20 2D 20 32 38 31 35 20 33 |R.X.... - 2815 3|
00000050: 34 20 53 54 52 45 45 54 00 70 08 04 00 8F 20 2D |4 STREET.p.... -|
00000060: 20 41 53 54 4F 52 49 41 2C 20 51 55 45 45 4E 53 | ASTORIA, QUEENS|
00000070: 00 93 08 05 00 8F 20 2D 20 4E 45 57 20 59 4F 52 |...... - NEW YOR|
00000080: 4B 2C 20 4E 45 57 20 59 4F 52 4B 20 20 20 31 31 |K, NEW YORK 11|
00000090: 31 30 33 00 AA 08 06 00 8F 20 2D 20 41 50 52 49 |103...... - APRI|
000000A0: 4C 20 32 32 2C 20 31 39 38 33 00 D1 08 07 00 8F |L 22, 1983......|
000000B0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000D0: 2A 00 DC 08 64 00 89 31 30 30 30 30 00 07 09 2E |*...d..10000....|
000000E0: 01 97 35 33 32 38 31 2C 31 3A 5A 5A B2 31 3A 99 |..53281,1:ZZ.1:.|
000000F0: 43 4C 24 3B C8 28 44 4F 24 2C 32 29 3B A3 31 31 |CL$;.(DO$,2);.11|
00000100: 29 3B 48 44 47 24 3B 00 44 09 31 01 97 35 35 35 |);HDG$;.D.1..555|
00000110: 38 37 2C 31 30 3A 97 31 33 31 35 2C 34 39 3A 97 |87,10:.1315,49:.|
00000120: 35 35 35 39 35 2C 31 30 3A 97 31 33 32 33 2C 35 |55595,10:.1323,5|
00000130: 30 3A 97 35 35 36 30 33 2C 31 30 3A 97 31 33 33 |0:.55603,10:.133|
00000140: 31 2C 35 31 00 73 09 36 01 99 20 C8 28 44 4F 24 |1,51.s.6.. .(DO$|
00000150: 2C 32 30 29 3B A3 35 29 3B 41 24 28 31 29 3B C8 |,20);.5);A$(1);.|
00000160: 28 44 4F 24 2C 39 29 3B A3 31 31 29 3B 41 24 28 |(DO$,9);.11);A$(|
00000170: 33 29 3B 00 A0 09 40 01 99 C8 28 44 4F 24 2C 39 |3);...@...(DO$,9|
00000180: 29 3B A3 31 39 29 3B 41 24 28 33 29 3B C8 28 44 |);.19);A$(3);.(D|
00000190: 4F 24 2C 39 29 3B A3 32 37 29 3B 41 24 28 33 29 |O$,9);.27);A$(3)|
000001A0: 00 C2 09 5E 01 8F 20 2D 20 50 4C 41 43 45 20 53 |...^.. - PLACE S|
000001B0: 50 52 49 54 45 53 20 4F 4E 20 54 4F 57 45 52 20 |PRITES ON TOWER |
000001C0: 23 31 00 FF 09 68 01 97 56 AA 31 34 2C 39 33 3A |#1...h..V.14,93:|
000001D0: 97 56 AA 31 35 2C 31 36 30 3A 97 56 AA 31 32 2C |.V.15,160:.V.12,|
000001E0: 39 33 3A 97 56 AA 31 33 2C 31 35 31 3A 97 56 AA |93:.V.13,151:.V.|
000001F0: 31 30 2C 39 33 3A 97 56 AA 31 31 2C 31 34 32 00 |10,93:.V.11,142.|
00000200: 36 0A 6D 01 97 56 AA 38 2C 39 33 3A 97 56 AA 39 |6.m..V.8,93:.V.9|
00000210: 2C 31 33 33 3A 97 56 AA 36 2C 39 33 3A 97 56 AA |,133:.V.6,93:.V.|
00000220: 37 2C 31 32 34 3A 97 56 AA 34 2C 39 33 3A 97 56 |7,124:.V.4,93:.V|
00000230: AA 35 2C 31 31 35 00 5B 0A 70 01 97 56 AA 32 2C |.5,115.[.p..V.2,|
00000240: 39 33 3A 97 56 AA 33 2C 31 30 36 3A 97 56 AA 30 |93:.V.3,106:.V.0|
00000250: 2C 39 33 3A 97 56 AA 31 2C 39 37 00 79 0A 72 01 |,93:.V.1,97.y.r.|
00000260: 8B 20 59 4E 24 B2 22 59 22 20 A7 20 4E 32 B2 38 |. YN$."Y" . N2.8|
00000270: AB 4E 55 4D 3A 89 33 37 34 00 8A 0A 74 01 8B 20 |.NUM:.374...t.. |
00000280: 5A 5A B2 30 20 A7 20 33 39 37 00 C4 0A 75 01 99 |ZZ.0 . 397...u..|
00000290: C8 28 44 4F 24 2C 32 32 29 3B A3 38 29 3B 4E 55 |.(DO$,22);.8);NU|
000002A0: 4D 24 3B 3A 85 20 4E 55 4D 3A 4E 32 B2 38 AB 4E |M$;:. NUM:N2.8.N|
000002B0: 55 4D 3A 53 50 B2 30 3A 8B 20 4E 55 4D B2 38 20 |UM:SP.0:. NUM.8 |
000002C0: A7 33 38 35 00 CE 0A 76 01 4E 34 B2 4E 32 00 FE |.385...v.N4.N2..|
000002D0: 0A 77 01 8B 20 4E 55 4D B3 31 20 B0 20 4E 55 4D |.w.. NUM.1 . NUM|
000002E0: B1 38 20 A7 20 99 20 C8 28 44 4F 24 2C 32 32 29 |.8 . . .(DO$,22)|
000002F0: 3B A3 35 29 3B 53 50 24 3B 3A 89 33 37 33 00 19 |;.5);SP$;:.373..|
00000300: 0B 78 01 8B 20 4E 55 4D B2 38 20 AF 20 59 4E 24 |.x.. NUM.8 . YN$|
00000310: B2 22 59 22 20 A7 33 38 35 00 28 0B 79 01 81 20 |."Y" .385.(.y.. |
00000320: 58 B2 31 20 A4 20 4E 34 00 3D 0B 7B 01 53 50 B2 |X.1 . N4.=.{.SP.|
00000330: 53 50 AA 28 32 AE 28 4E 34 AB 31 29 29 00 4D 0B |SP.(2.(N4.1)).M.|
00000340: 7D 01 4E 34 B2 4E 34 AB 31 3A 82 20 58 00 60 0B |}.N4.N4.1:. X.`.|
00000350: 7F 01 97 56 AA 32 31 2C 28 32 35 35 AB 53 50 29 |...V.21,(255.SP)|
00000360: 00 8F 0B 81 01 5A 5A B2 30 3A 81 20 54 4D B2 31 |.....ZZ.0:. TM.1|
00000370: 20 A4 20 32 35 30 3A 82 20 54 4D 3A 99 C8 28 44 | . 250:. TM:..(D|
00000380: 4F 24 2C 32 32 29 3B A3 35 29 3B 53 50 24 3B 00 |O$,22);.5);SP$;.|
00000390: B0 0B 83 01 54 31 24 B2 22 22 3A 54 32 24 B2 22 |....T1$."":T2$."|
000003A0: 22 3A 54 33 24 B2 22 22 3A 4E 33 B2 4E 32 AA 31 |":T3$."":N3.N2.1|
000003B0: 00 F1 0B 84 01 81 20 58 B2 31 20 A4 20 4E 55 4D |...... X.1 . NUM|
000003C0: 3A 54 31 24 B2 54 31 24 AA 54 34 24 28 58 29 3A |:T1$.T1$.T4$(X):|
000003D0: 54 32 24 B2 54 32 24 AA 54 35 24 28 58 29 3A 54 |T2$.T2$.T5$(X):T|
000003E0: 33 24 B2 54 33 24 AA 54 36 24 28 58 29 3A 82 20 |3$.T3$.T6$(X):. |
000003F0: 58 00 05 0C 85 01 8B 20 59 4E 24 B2 22 59 22 20 |X...... YN$."Y" |
00000400: A7 31 30 36 30 00 21 0C 88 01 81 20 58 B2 31 20 |.1060.!.... X.1 |
00000410: A4 20 4E 55 4D 3A 59 B2 32 AE 58 AB 31 3A 82 20 |. NUM:Y.2.X.1:. |
00000420: 58 00 5F 0C 89 01 4E 55 4D 24 B2 52 56 24 AA 42 |X._...NUM$.RV$.B|
00000430: 4C 24 AA C4 28 4E 55 4D 29 AA 52 4F 24 AA 53 4C |L$..(NUM).RO$.SL|
00000440: 56 24 28 31 29 AA 52 56 24 AA 42 4C 24 AA C4 28 |V$(1).RV$.BL$..(|
00000450: 59 29 AA 53 4C 56 24 28 32 29 3A 59 30 B2 59 00 |Y).SLV$(2):Y0.Y.|
00000460: 8B 0C 8A 01 99 C8 28 44 4F 24 2C 32 32 29 3B A3 |......(DO$,22);.|
00000470: 36 29 3B 4E 55 4D 24 3B 3A 81 20 54 4D B2 31 20 |6);NUM$;:. TM.1 |
00000480: A4 20 32 30 30 30 3A 82 20 54 4D 00 B5 0C 8B 01 |. 2000:. TM.....|
00000490: 81 20 54 4D B2 31 20 A4 20 32 35 30 3A 82 20 54 |. TM.1 . 250:. T|
000004A0: 4D 3A 99 C8 28 44 4F 24 2C 32 32 29 3B A3 35 29 |M:..(DO$,22);.5)|
000004B0: 3B 53 50 24 3B 00 E4 0C 8D 01 99 C8 28 44 4F 24 |;SP$;.......(DO$|
000004C0: 2C 32 32 29 3B A3 36 29 3B 46 39 24 3B 22 20 20 |,22);.6);F9$;" |
000004D0: 20 20 22 3B A3 32 34 29 3B 54 39 24 3B 22 20 20 | ";.24);T9$;" |
000004E0: 20 20 22 3B 00 04 0D 8E 01 99 C8 28 44 4F 24 2C | ";.......(DO$,|
000004F0: 32 32 29 3B A3 36 29 3B 46 39 24 3B 22 20 22 3B |22);.6);F9$;" ";|
00000500: 43 52 24 3B 00 14 0D 90 01 8B 20 5A 41 B2 32 20 |CR$;...... ZA.2 |
00000510: A7 34 32 32 00 34 0D A4 01 A1 20 54 57 52 24 28 |.422.4.... TWR$(|
00000520: 31 29 3A 8B 20 54 57 52 24 28 31 29 B2 22 22 20 |1):. TWR$(1)."" |
00000530: A7 34 32 30 00 77 0D A5 01 8B 20 54 57 52 24 28 |.420.w.... TWR$(|
00000540: 31 29 B3 B1 22 58 22 20 AF 20 28 54 57 52 24 28 |1).."X" . (TWR$(|
00000550: 31 29 B3 22 31 22 20 B0 20 54 57 52 24 28 31 29 |1)."1" . TWR$(1)|
00000560: B1 22 33 22 29 20 A7 20 54 57 52 24 28 31 29 B2 |."3") . TWR$(1).|
00000570: 22 22 3A 89 34 32 30 00 93 0D A6 01 99 20 52 56 |"":.420...... RV|
00000580: 24 AA 52 45 44 24 AA 54 57 52 24 28 31 29 AA 52 |$.RED$.TWR$(1).R|
00000590: 4F 24 3B 00 AB 0D A7 01 8B 20 54 57 52 24 28 31 |O$;...... TWR$(1|
000005A0: 29 B2 22 58 22 20 A7 31 30 31 30 00 C8 0D A9 01 |)."X" .1010.....|
000005B0: 99 C8 28 44 4F 24 2C 32 32 29 3B A3 33 34 29 3B |..(DO$,22);.34);|
000005C0: 22 20 22 3B 43 52 24 3B 00 D8 0D AA 01 8B 20 5A |" ";CR$;...... Z|
000005D0: 41 B2 32 20 A7 34 33 32 00 F8 0D AE 01 A1 20 54 |A.2 .432...... T|
000005E0: 57 52 24 28 32 29 3A 8B 20 54 57 52 24 28 32 29 |WR$(2):. TWR$(2)|
000005F0: B2 22 22 20 A7 34 33 30 00 2A 0E AF 01 8B 20 54 |."" .430.*.... T|
00000600: 57 52 24 28 32 29 B3 22 31 22 20 B0 20 54 57 52 |WR$(2)."1" . TWR|
00000610: 24 28 32 29 B1 22 33 22 20 A7 20 54 57 52 24 28 |$(2)."3" . TWR$(|
00000620: 32 29 B2 22 22 3A 89 34 33 30 00 46 0E B0 01 99 |2)."":.430.F....|
00000630: 20 52 56 24 AA 52 45 44 24 AA 54 57 52 24 28 32 | RV$.RED$.TWR$(2|
00000640: 29 AA 52 4F 24 3B 00 65 0E C2 01 91 20 C5 28 54 |).RO$;.e.... .(T|
00000650: 57 52 24 28 31 29 29 20 89 20 34 36 30 2C 34 37 |WR$(1)) . 460,47|
00000660: 30 2C 34 38 30 00 8B 0E CC 01 81 20 58 B2 31 20 |0,480...... X.1 |
00000670: A4 20 4E 55 4D 3A 8B 20 CA 28 54 31 24 2C 58 2C |. NUM:. .(T1$,X,|
00000680: 31 29 B2 22 31 22 20 A7 34 36 35 00 A3 0E CE 01 |1)."1" .465.....|
00000690: 82 20 58 3A 4C 4F 43 28 31 29 B2 31 36 30 3A 89 |. X:LOC(1).160:.|
000006A0: 34 39 30 00 CA 0E D1 01 4C 4F 43 28 31 29 B2 54 |490.....LOC(1).T|
000006B0: 31 28 4E 32 AA 58 29 3A 54 34 24 28 4E 32 AA 58 |1(N2.X):T4$(N2.X|
000006C0: 29 B2 22 30 22 3A 89 34 39 30 00 F0 0E D6 01 81 |)."0":.490......|
000006D0: 20 58 B2 31 20 A4 20 4E 55 4D 3A 8B 20 CA 28 54 | X.1 . NUM:. .(T|
000006E0: 32 24 2C 58 2C 31 29 B2 22 31 22 20 A7 34 37 35 |2$,X,1)."1" .475|
000006F0: 00 08 0F D8 01 82 20 58 3A 4C 4F 43 28 31 29 B2 |...... X:LOC(1).|
00000700: 31 36 30 3A 89 34 39 30 00 2F 0F DB 01 4C 4F 43 |160:.490./...LOC|
00000710: 28 31 29 B2 54 32 28 4E 32 AA 58 29 3A 54 35 24 |(1).T2(N2.X):T5$|
00000720: 28 4E 32 AA 58 29 B2 22 30 22 3A 89 34 39 30 00 |(N2.X)."0":.490.|
00000730: 55 0F E0 01 81 20 58 B2 31 20 A4 20 4E 55 4D 3A |U.... X.1 . NUM:|
00000740: 8B 20 CA 28 54 33 24 2C 58 2C 31 29 B2 22 31 22 |. .(T3$,X,1)."1"|
00000750: 20 A7 34 38 35 00 6D 0F E2 01 82 20 58 3A 4C 4F | .485.m.... X:LO|
00000760: 43 28 31 29 B2 31 36 30 3A 89 34 39 30 00 8F 0F |C(1).160:.490...|
00000770: E5 01 4C 4F 43 28 31 29 B2 54 33 28 4E 32 AA 58 |..LOC(1).T3(N2.X|
00000780: 29 3A 54 36 24 28 4E 32 AA 58 29 B2 22 30 22 00 |):T6$(N2.X)."0".|
00000790: AB 0F EA 01 4C 43 B2 4C 4F 43 28 31 29 3A 8D 35 |....LC.LOC(1):.5|
000007A0: 36 30 3A 53 50 28 31 29 B2 53 50 00 CA 0F F4 01 |60:SP(1).SP.....|
000007B0: 91 20 C5 28 54 57 52 24 28 32 29 29 20 89 20 35 |. .(TWR$(2)) . 5|
000007C0: 31 30 2C 35 32 30 2C 35 33 30 00 F0 0F FE 01 81 |10,520,530......|
000007D0: 20 58 B2 31 20 A4 20 4E 55 4D 3A 8B 20 CA 28 54 | X.1 . NUM:. .(T|
000007E0: 31 24 2C 58 2C 31 29 B2 22 31 22 20 A7 35 31 35 |1$,X,1)."1" .515|
000007F0: 00 18 10 00 02 82 20 58 3A 4C 4F 43 28 32 29 B2 |...... X:LOC(2).|
00000800: 31 36 30 3A 54 34 24 28 4E 32 AA 58 AB 31 29 B2 |160:T4$(N2.X.1).|
00000810: 22 31 22 3A 89 35 34 30 00 43 10 03 02 4C 4F 43 |"1":.540.C...LOC|
00000820: 28 32 29 B2 54 31 28 4E 32 AA 58 AB 31 29 3A 54 |(2).T1(N2.X.1):T|
00000830: 34 24 28 4E 32 AA 58 AB 31 29 B2 22 31 22 3A 89 |4$(N2.X.1)."1":.|
00000840: 35 34 30 00 69 10 08 02 81 20 58 B2 31 20 A4 20 |540.i.... X.1 . |
00000850: 4E 55 4D 3A 8B 20 CA 28 54 32 24 2C 58 2C 31 29 |NUM:. .(T2$,X,1)|
00000860: B2 22 31 22 20 A7 35 32 35 00 91 10 0A 02 82 20 |."1" .525...... |
00000870: 58 3A 4C 4F 43 28 32 29 B2 31 36 30 3A 54 35 24 |X:LOC(2).160:T5$|
00000880: 28 4E 32 AA 58 AB 31 29 B2 22 31 22 3A 89 35 34 |(N2.X.1)."1":.54|
00000890: 30 00 BC 10 0D 02 4C 4F 43 28 32 29 B2 54 32 28 |0.....LOC(2).T2(|
000008A0: 4E 32 AA 58 AB 31 29 3A 54 35 24 28 4E 32 AA 58 |N2.X.1):T5$(N2.X|
000008B0: AB 31 29 B2 22 31 22 3A 89 35 34 30 00 E2 10 12 |.1)."1":.540....|
000008C0: 02 81 20 58 B2 31 20 A4 20 4E 55 4D 3A 8B 20 CA |.. X.1 . NUM:. .|
000008D0: 28 54 33 24 2C 58 2C 31 29 B2 22 31 22 20 A7 35 |(T3$,X,1)."1" .5|
000008E0: 33 35 00 0A 11 14 02 82 20 58 3A 4C 4F 43 28 32 |35...... X:LOC(2|
000008F0: 29 B2 31 36 30 3A 54 36 24 28 4E 32 AA 58 AB 31 |).160:T6$(N2.X.1|
00000900: 29 B2 22 31 22 3A 89 35 34 30 00 30 11 17 02 4C |)."1":.540.0...L|
00000910: 4F 43 28 32 29 B2 54 33 28 4E 32 AA 58 AB 31 29 |OC(2).T3(N2.X.1)|
00000920: 3A 54 36 24 28 4E 32 AA 58 AB 31 29 B2 22 31 22 |:T6$(N2.X.1)."1"|
00000930: 00 4C 11 1C 02 4C 43 B2 4C 4F 43 28 32 29 3A 8D |.L...LC.LOC(2):.|
00000940: 35 36 30 3A 53 50 28 32 29 B2 53 50 00 6D 11 26 |560:SP(2).SP.m.&|
00000950: 02 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 |.T1$."":T2$."":T|
00000960: 33 24 B2 22 22 3A 4E 35 B2 4E 32 AA 31 00 B2 11 |3$."":N5.N2.1...|
00000970: 2B 02 81 20 58 B2 4E 35 20 A4 20 38 3A 54 31 24 |+.. X.N5 . 8:T1$|
00000980: B2 54 31 24 AA 54 34 24 28 58 29 3A 54 32 24 B2 |.T1$.T4$(X):T2$.|
00000990: 54 32 24 AA 54 35 24 28 58 29 3A 54 33 24 B2 54 |T2$.T5$(X):T3$.T|
000009A0: 33 24 AA 54 36 24 28 58 29 3A 82 20 58 3A 89 35 |3$.T6$(X):. X:.5|
000009B0: 37 30 00 C7 11 30 02 8B 20 4C 43 B2 39 37 20 A7 |70...0.. LC.97 .|
000009C0: 20 53 50 B2 31 3A 8E 00 DD 11 31 02 8B 20 4C 43 | SP.1:....1.. LC|
000009D0: B2 31 30 36 20 A7 20 53 50 B2 32 3A 8E 00 F3 11 |.106 . SP.2:....|
000009E0: 32 02 8B 20 4C 43 B2 31 31 35 20 A7 20 53 50 B2 |2.. LC.115 . SP.|
000009F0: 33 3A 8E 00 09 12 33 02 8B 20 4C 43 B2 31 32 34 |3:....3.. LC.124|
00000A00: 20 A7 20 53 50 B2 34 3A 8E 00 1F 12 34 02 8B 20 | . SP.4:....4.. |
00000A10: 4C 43 B2 31 33 33 20 A7 20 53 50 B2 35 3A 8E 00 |LC.133 . SP.5:..|
00000A20: 35 12 35 02 8B 20 4C 43 B2 31 34 32 20 A7 20 53 |5.5.. LC.142 . S|
00000A30: 50 B2 36 3A 8E 00 4B 12 36 02 8B 20 4C 43 B2 31 |P.6:..K.6.. LC.1|
00000A40: 35 31 20 A7 20 53 50 B2 37 3A 8E 00 61 12 37 02 |51 . SP.7:..a.7.|
00000A50: 8B 20 4C 43 B2 31 36 30 20 A7 20 53 50 B2 38 3A |. LC.160 . SP.8:|
00000A60: 8E 00 80 12 3A 02 91 20 C5 28 54 57 52 24 28 31 |....:.. .(TWR$(1|
00000A70: 29 29 20 89 20 35 37 31 2C 35 37 32 2C 35 37 33 |)) . 571,572,573|
00000A80: 00 A9 12 3B 02 53 51 25 B2 52 31 25 28 31 2C 53 |...;.SQ%.R1%(1,S|
00000A90: 50 28 31 29 29 3A 52 31 25 28 31 2C 53 50 28 31 |P(1)):R1%(1,SP(1|
00000AA0: 29 29 B2 38 3A 89 35 37 34 00 D2 12 3C 02 53 51 |)).8:.574...<.SQ|
00000AB0: 25 B2 52 32 25 28 31 2C 53 50 28 31 29 29 3A 52 |%.R2%(1,SP(1)):R|
00000AC0: 32 25 28 31 2C 53 50 28 31 29 29 B2 38 3A 89 35 |2%(1,SP(1)).8:.5|
00000AD0: 37 34 00 F6 12 3D 02 53 51 25 B2 52 33 25 28 31 |74...=.SQ%.R3%(1|
00000AE0: 2C 53 50 28 31 29 29 3A 52 33 25 28 31 2C 53 50 |,SP(1)):R3%(1,SP|
00000AF0: 28 31 29 29 B2 38 00 15 13 3E 02 91 20 C5 28 54 |(1)).8...>.. .(T|
00000B00: 57 52 24 28 32 29 29 20 89 20 35 37 35 2C 35 37 |WR$(2)) . 575,57|
00000B10: 36 2C 35 37 37 00 2F 13 3F 02 52 31 25 28 31 2C |6,577./.?.R1%(1,|
00000B20: 53 50 28 32 29 29 B2 53 51 25 3A 89 35 38 30 00 |SP(2)).SQ%:.580.|
00000B30: 49 13 40 02 52 32 25 28 31 2C 53 50 28 32 29 29 |I.@.R2%(1,SP(2))|
00000B40: B2 53 51 25 3A 89 35 38 30 00 5E 13 41 02 52 33 |.SQ%:.580.^.A.R3|
00000B50: 25 28 31 2C 53 50 28 32 29 29 B2 53 51 25 00 7D |%(1,SP(2)).SQ%.}|
00000B60: 13 44 02 91 20 C5 28 54 57 52 24 28 31 29 29 20 |.D.. .(TWR$(1)) |
00000B70: 89 20 35 38 32 2C 35 38 35 2C 35 38 38 00 8C 13 |. 582,585,588...|
00000B80: 46 02 58 31 B2 39 33 3A 89 35 39 30 00 9C 13 49 |F.X1.93:.590...I|
00000B90: 02 58 31 B2 31 35 37 3A 89 35 39 30 00 A7 13 4C |.X1.157:.590...L|
00000BA0: 02 58 31 B2 32 32 32 00 C6 13 4E 02 91 20 C5 28 |.X1.222...N.. .(|
00000BB0: 54 57 52 24 28 32 29 29 20 89 20 35 39 32 2C 35 |TWR$(2)) . 592,5|
00000BC0: 39 35 2C 35 39 38 00 D5 13 50 02 58 32 B2 39 33 |95,598...P.X2.93|
00000BD0: 3A 89 36 30 30 00 E5 13 53 02 58 32 B2 31 35 37 |:.600...S.X2.157|
00000BE0: 3A 89 36 30 30 00 F0 13 56 02 58 32 B2 32 32 32 |:.600...V.X2.222|
00000BF0: 00 04 14 58 02 8F 20 2D 20 4D 4F 56 45 20 53 50 |...X.. - MOVE SP|
00000C00: 52 49 54 45 00 32 14 5D 02 91 20 53 51 25 AA 31 |RITE.2.].. SQ%.1|
00000C10: 20 89 20 36 31 30 2C 36 31 35 2C 36 32 30 2C 36 | . 610,615,620,6|
00000C20: 32 35 2C 36 33 30 2C 36 33 35 2C 36 34 30 2C 36 |25,630,635,640,6|
00000C30: 34 35 00 45 14 62 02 53 50 B2 30 3A 53 51 B2 31 |45.E.b.SP.0:SQ.1|
00000C40: 3A 89 37 30 35 00 58 14 67 02 53 50 B2 32 3A 53 |:.705.X.g.SP.2:S|
00000C50: 51 B2 33 3A 89 37 30 35 00 6B 14 6C 02 53 50 B2 |Q.3:.705.k.l.SP.|
00000C60: 34 3A 53 51 B2 35 3A 89 37 30 35 00 7E 14 71 02 |4:SQ.5:.705.~.q.|
00000C70: 53 50 B2 36 3A 53 51 B2 37 3A 89 37 30 35 00 91 |SP.6:SQ.7:.705..|
00000C80: 14 76 02 53 50 B2 38 3A 53 51 B2 39 3A 89 37 30 |.v.SP.8:SQ.9:.70|
00000C90: 35 00 A6 14 7B 02 53 50 B2 31 30 3A 53 51 B2 31 |5...{.SP.10:SQ.1|
00000CA0: 31 3A 89 37 30 35 00 BB 14 80 02 53 50 B2 31 32 |1:.705.....SP.12|
00000CB0: 3A 53 51 B2 31 33 3A 89 37 30 35 00 CB 14 85 02 |:SQ.13:.705.....|
00000CC0: 53 50 B2 31 34 3A 53 51 B2 31 35 00 EC 14 C1 02 |SP.14:SQ.15.....|
00000CD0: 8B 20 C5 28 54 57 52 24 28 31 29 29 B1 C5 28 54 |. .(TWR$(1))..(T|
00000CE0: 57 52 24 28 32 29 29 20 A7 37 34 30 00 1E 15 C6 |WR$(2)) .740....|
00000CF0: 02 81 20 59 59 B2 4C 4F 43 28 31 29 20 A4 20 35 |.. YY.LOC(1) . 5|
00000D00: 35 20 A9 AB 31 3A 97 20 56 AA 53 50 2C 58 31 3A |5 ..1:. V.SP,X1:|
00000D10: 97 20 56 AA 53 51 2C 59 59 3A 82 20 59 59 00 48 |. V.SQ,YY:. YY.H|
00000D20: 15 D0 02 81 20 58 58 B2 58 31 20 A4 20 58 32 3A |.... XX.X1 . X2:|
00000D30: 97 20 56 AA 53 50 2C 58 58 3A 97 20 56 AA 53 51 |. V.SP,XX:. V.SQ|
00000D40: 2C 35 35 3A 82 20 58 58 00 7D 15 DA 02 81 20 59 |,55:. XX.}.... Y|
00000D50: 59 B2 35 35 20 A4 20 4C 4F 43 28 32 29 AA 31 3A |Y.55 . LOC(2).1:|
00000D60: 97 20 56 AA 53 50 2C 58 32 3A 97 20 56 AA 53 51 |. V.SP,X2:. V.SQ|
00000D70: 2C 59 59 3A 82 20 59 59 3A 89 37 39 30 00 AF 15 |,YY:. YY:.790...|
00000D80: E4 02 81 20 59 59 B2 4C 4F 43 28 31 29 20 A4 20 |... YY.LOC(1) . |
00000D90: 35 35 20 A9 AB 31 3A 97 20 56 AA 53 50 2C 58 31 |55 ..1:. V.SP,X1|
00000DA0: 3A 97 20 56 AA 53 51 2C 59 59 3A 82 20 59 59 00 |:. V.SQ,YY:. YY.|
00000DB0: DD 15 EE 02 81 20 58 58 B2 58 31 20 A4 20 58 32 |..... XX.X1 . X2|
00000DC0: 20 A9 AB 31 3A 97 20 56 AA 53 50 2C 58 58 3A 97 | ..1:. V.SP,XX:.|
00000DD0: 20 56 AA 53 51 2C 35 35 3A 82 20 58 58 00 09 16 | V.SQ,55:. XX...|
00000DE0: 02 03 81 20 59 59 B2 35 35 20 A4 20 4C 4F 43 28 |... YY.55 . LOC(|
00000DF0: 32 29 3A 97 56 AA 53 50 2C 58 32 3A 97 56 AA 53 |2):.V.SP,X2:.V.S|
00000E00: 51 2C 59 59 3A 82 20 59 59 00 3C 16 16 03 4D 56 |Q,YY:. YY.<...MV|
00000E10: B2 4D 56 AA 31 3A 99 C8 28 44 4F 24 2C 32 34 29 |.MV.1:..(DO$,24)|
00000E20: 3B A3 31 37 29 3B 4D 56 24 AA 52 56 24 AA 42 32 |;.17);MV$.RV$.B2|
00000E30: 24 AA C4 28 4D 56 29 AA 52 4F 24 3B 00 70 16 19 |$..(MV).RO$;.p..|
00000E40: 03 8B 20 5A 41 B2 32 20 A7 20 4D 57 B2 4D 57 AA |.. ZA.2 . MW.MW.|
00000E50: 31 3A 89 31 31 30 35 3A 8F 20 2D 20 43 4F 4D 50 |1:.1105:. - COMP|
00000E60: 55 54 45 52 27 53 20 4E 45 58 54 20 4D 4F 56 45 |UTER'S NEXT MOVE|
00000E70: 00 90 16 1E 03 89 33 39 37 3A 8F 20 2D 20 50 4C |......397:. - PL|
00000E80: 41 59 45 52 27 53 20 4E 45 58 54 20 4D 4F 56 45 |AYER'S NEXT MOVE|
00000E90: 00 AA 16 E8 03 8F 20 2D 20 43 4F 4D 50 55 54 45 |...... - COMPUTE|
00000EA0: 52 20 53 4F 4C 55 54 49 4F 4E 00 CE 16 F2 03 54 |R SOLUTION.....T|
00000EB0: 57 52 24 28 31 29 B2 22 22 3A 99 C8 28 44 4F 24 |WR$(1)."":..(DO$|
00000EC0: 2C 32 34 29 3B A3 37 29 3B 43 4D 50 24 3B 00 E7 |,24);.7);CMP$;..|
00000ED0: 16 F7 03 A1 20 59 4E 24 3A 8B 20 59 4E 24 B2 22 |.... YN$:. YN$."|
00000EE0: 22 20 A7 31 30 31 35 00 FB 16 F9 03 8B 20 59 4E |" .1015...... YN|
00000EF0: 24 B2 22 59 22 20 A7 31 30 32 30 00 19 17 FA 03 |$."Y" .1020.....|
00000F00: 8B 20 59 4E 24 B3 B1 22 4E 22 20 A7 20 59 4E 24 |. YN$.."N" . YN$|
00000F10: B2 22 22 3A 89 31 30 31 30 00 56 17 FC 03 99 20 |."":.1010.V.... |
00000F20: 52 56 24 AA 42 4C 24 AA 22 20 22 AA 59 4E 24 AA |RV$.BL$." ".YN$.|
00000F30: 52 4F 24 3B 3A 81 20 54 4D B2 31 20 A4 20 35 30 |RO$;:. TM.1 . 50|
00000F40: 30 3A 82 20 54 4D 3A 8B 20 59 4E 24 B2 22 59 22 |0:. TM:. YN$."Y"|
00000F50: 20 A7 31 30 35 30 00 6D 17 06 04 81 20 54 4D B2 | .1050.m.... TM.|
00000F60: 31 20 A4 20 31 30 30 30 3A 82 20 54 4D 00 97 17 |1 . 1000:. TM...|
00000F70: 07 04 99 C8 28 44 4F 24 2C 32 34 29 3B A3 37 29 |....(DO$,24);.7)|
00000F80: 3B 53 50 24 3B C8 28 44 4F 24 2C 32 34 29 3B A3 |;SP$;.(DO$,24);.|
00000F90: 39 29 3B 45 4E 24 3B 00 B4 17 09 04 A1 20 52 54 |9);EN$;...... RT|
00000FA0: 24 3A 8B 20 52 54 24 B3 B1 C7 28 31 33 29 20 A7 |$:. RT$...(13) .|
00000FB0: 31 30 33 33 00 CA 17 0B 04 97 20 56 AA 32 31 2C |1033...... V.21,|
00000FC0: 30 3A 99 20 43 4C 24 3B 3A 80 00 E3 17 1A 04 53 |0:. CL$;:......S|
00000FD0: 50 B2 30 3A 4D 56 B2 30 3A 4D 57 B2 31 3A 89 33 |P.0:MV.0:MW.1:.3|
00000FE0: 31 30 30 00 07 18 24 04 59 4E 24 B2 22 22 3A 5A |100...$.YN$."":Z|
00000FF0: 41 B2 32 3A 99 C8 28 44 4F 24 2C 32 34 29 3B A3 |A.2:..(DO$,24);.|
00001000: 37 29 3B 53 50 24 3B 00 2B 18 51 04 42 49 24 B2 |7);SP$;.+.Q.BI$.|
00001010: 22 22 3A 81 20 58 B2 31 20 A4 20 38 3A 42 49 24 |"":. X.1 . 8:BI$|
00001020: 28 58 29 B2 22 30 22 3A 82 20 58 00 3D 18 52 04 |(X)."0":. X.=.R.|
00001030: 8B 20 4D 56 B2 59 30 20 A7 31 30 33 30 00 5F 18 |. MV.Y0 .1030._.|
00001040: 56 04 43 32 B2 30 3A 43 33 B2 30 3A 43 34 B2 30 |V.C2.0:C3.0:C4.0|
00001050: 3A 43 35 B2 30 3A 43 36 B2 30 3A 5A 41 B2 32 00 |:C5.0:C6.0:ZA.2.|
00001060: 6A 18 60 04 44 45 43 B2 4D 57 00 9E 18 6A 04 81 |j.`.DEC.MW...j..|
00001070: 20 59 B2 30 20 A4 20 38 3A 8B 20 B5 28 32 AE 59 | Y.0 . 8:. .(2.Y|
00001080: 29 B1 44 45 43 20 A7 20 59 B2 59 AB 31 3A 42 49 |).DEC . Y.Y.1:BI|
00001090: 24 28 59 29 B2 22 31 22 3A 89 31 31 35 30 00 B1 |$(Y)."1":.1150..|
000010A0: 18 74 04 42 49 24 28 59 29 B2 22 30 22 3A 82 20 |.t.BI$(Y)."0":. |
000010B0: 59 00 CF 18 7E 04 44 45 43 B2 44 45 43 AB 32 AE |Y...~.DEC.DEC.2.|
000010C0: 59 3A 8B 20 44 45 43 B2 30 20 A7 31 31 37 30 00 |Y:. DEC.0 .1170.|
000010D0: D9 18 88 04 89 31 31 33 30 00 FE 18 92 04 81 20 |.....1130...... |
000010E0: 59 B2 37 20 A4 20 30 20 A9 AB 31 3A 42 49 24 B2 |Y.7 . 0 ..1:BI$.|
000010F0: 42 49 24 AA 42 49 24 28 59 29 3A 82 20 59 00 2F |BI$.BI$(Y):. Y./|
00001100: 19 B0 04 81 20 58 B2 38 20 A4 20 31 20 A9 AB 31 |.... X.8 . 1 ..1|
00001110: 3A 8B 20 CA 28 42 49 24 2C 58 2C 31 29 B2 22 30 |:. .(BI$,X,1)."0|
00001120: 22 20 A7 20 43 32 B2 43 32 AA 31 3A 82 20 58 00 |" . C2.C2.1:. X.|
00001130: 3B 19 B1 04 43 32 B2 43 32 AA 31 00 4C 19 C4 04 |;...C2.C2.1.L...|
00001140: 52 49 25 B2 43 32 AA 4E 55 4D AB 31 00 6A 19 C5 |RI%.C2.NUM.1.j..|
00001150: 04 8B 20 4E 55 4D B2 32 20 A7 20 52 49 25 B2 52 |.. NUM.2 . RI%.R|
00001160: 49 25 AA 34 3A 89 31 32 33 30 00 88 19 C6 04 8B |I%.4:.1230......|
00001170: 20 4E 55 4D B2 33 20 A7 20 52 49 25 B2 52 49 25 | NUM.3 . RI%.RI%|
00001180: AA 32 3A 89 31 32 33 30 00 9A 19 C7 04 8B 20 4E |.2:.1230...... N|
00001190: 55 4D B2 34 20 A7 31 32 33 30 00 B8 19 C8 04 8B |UM.4 .1230......|
000011A0: 20 4E 55 4D B2 35 20 A7 20 52 49 25 B2 52 49 25 | NUM.5 . RI%.RI%|
000011B0: AB 32 3A 89 31 32 33 30 00 D6 19 C9 04 8B 20 4E |.2:.1230...... N|
000011C0: 55 4D B2 36 20 A7 20 52 49 25 B2 52 49 25 AB 34 |UM.6 . RI%.RI%.4|
000011D0: 3A 89 31 32 33 30 00 F4 19 CA 04 8B 20 4E 55 4D |:.1230...... NUM|
000011E0: B2 37 20 A7 20 52 49 25 B2 52 49 25 AB 36 3A 89 |.7 . RI%.RI%.6:.|
000011F0: 31 32 33 30 00 0F 1A CB 04 8B 20 4E 55 4D B2 38 |1230...... NUM.8|
00001200: 20 A7 20 52 49 25 B2 B6 28 52 49 25 AB 38 29 00 | . RI%..(RI%.8).|
00001210: 40 1A CE 04 81 20 58 B2 31 20 A4 20 38 3A 8B 20 |@.... X.1 . 8:. |
00001220: 52 31 25 28 31 2C 58 29 B2 52 49 25 20 A7 20 54 |R1%(1,X).RI% . T|
00001230: 57 52 24 28 31 29 B2 22 31 22 3A 89 31 32 36 30 |WR$(1)."1":.1260|
00001240: 00 75 1A D8 04 82 20 58 3A 81 20 58 B2 31 20 A4 |.u.... X:. X.1 .|
00001250: 20 38 3A 8B 20 52 32 25 28 31 2C 58 29 B2 52 49 | 8:. R2%(1,X).RI|
00001260: 25 20 A7 20 54 57 52 24 28 31 29 B2 22 32 22 3A |% . TWR$(1)."2":|
00001270: 89 31 32 36 30 00 89 1A E2 04 82 20 58 3A 54 57 |.1260...... X:TW|
00001280: 52 24 28 31 29 B2 22 33 22 00 98 1A EC 04 4C 24 |R$(1)."3".....L$|
00001290: B2 54 57 52 24 28 31 29 00 CB 1A 14 05 81 20 58 |.TWR$(1)...... X|
000012A0: B2 31 20 A4 20 38 3A 8B 20 CA 28 42 49 24 2C 58 |.1 . 8:. .(BI$,X|
000012B0: 2C 31 29 B2 22 31 22 20 A7 20 43 33 B2 43 33 AA |,1)."1" . C3.C3.|
000012C0: 31 3A 82 20 58 3A 89 31 33 33 30 00 D3 1A 1E 05 |1:. X:.1330.....|
000012D0: 82 20 58 00 E4 1A 32 05 8B 20 43 33 B1 31 20 A7 |. X...2.. C3.1 .|
000012E0: 31 34 30 30 00 06 1B 3C 05 8B 20 C5 28 54 31 24 |1400...<.. .(T1$|
000012F0: 29 B2 30 20 A7 20 54 57 52 24 28 32 29 B2 22 31 |).0 . TWR$(2)."1|
00001300: 22 3A 89 33 39 37 00 28 1B 46 05 8B 20 C5 28 54 |":.397.(.F.. .(T|
00001310: 32 24 29 B2 30 20 A7 20 54 57 52 24 28 32 29 B2 |2$).0 . TWR$(2).|
00001320: 22 32 22 3A 89 33 39 37 00 4A 1B 50 05 8B 20 C5 |"2":.397.J.P.. .|
00001330: 28 54 33 24 29 B2 30 20 A7 20 54 57 52 24 28 32 |(T3$).0 . TWR$(2|
00001340: 29 B2 22 33 22 3A 89 33 39 37 00 7B 1B 78 05 81 |)."3":.397.{.x..|
00001350: 20 58 B2 38 20 A4 20 31 20 A9 AB 31 3A 43 34 B2 | X.8 . 1 ..1:C4.|
00001360: 43 34 AA 31 3A 8B 20 CA 28 42 49 24 2C 58 2C 31 |C4.1:. .(BI$,X,1|
00001370: 29 B2 22 30 22 20 A7 20 82 20 58 00 85 1B 82 05 |)."0" . . X.....|
00001380: 43 36 B2 43 34 00 C0 1B 8C 05 81 20 58 B2 38 AB |C6.C4...... X.8.|
00001390: 43 34 20 A4 20 31 20 A9 AB 31 3A 43 36 B2 43 36 |C4 . 1 ..1:C6.C6|
000013A0: AA 31 3A 8B 20 CA 28 42 49 24 2C 58 2C 31 29 B2 |.1:. .(BI$,X,1).|
000013B0: 22 30 22 A7 20 43 35 B2 43 35 AA 31 3A 82 20 58 |"0". C5.C5.1:. X|
000013C0: 00 D1 1B A0 05 52 4A 25 B2 43 36 AA 4E 55 4D AB |.....RJ%.C6.NUM.|
000013D0: 31 00 EF 1B A1 05 8B 20 4E 55 4D B2 32 20 A7 20 |1...... NUM.2 . |
000013E0: 52 4A 25 B2 52 4A 25 AA 34 3A 89 31 34 35 30 00 |RJ%.RJ%.4:.1450.|
000013F0: 0D 1C A2 05 8B 20 4E 55 4D B2 33 20 A7 20 52 4A |..... NUM.3 . RJ|
00001400: 25 B2 52 4A 25 AA 32 3A 89 31 34 35 30 00 1F 1C |%.RJ%.2:.1450...|
00001410: A3 05 8B 20 4E 55 4D B2 34 20 A7 31 34 35 30 00 |... NUM.4 .1450.|
00001420: 3D 1C A4 05 8B 20 4E 55 4D B2 35 20 A7 20 52 4A |=.... NUM.5 . RJ|
00001430: 25 B2 52 4A 25 AB 32 3A 89 31 34 35 30 00 5B 1C |%.RJ%.2:.1450.[.|
00001440: A5 05 8B 20 4E 55 4D B2 36 20 A7 20 52 4A 25 B2 |... NUM.6 . RJ%.|
00001450: 52 4A 25 AB 34 3A 89 31 34 35 30 00 79 1C A6 05 |RJ%.4:.1450.y...|
00001460: 8B 20 4E 55 4D B2 37 20 A7 20 52 4A 25 B2 52 4A |. NUM.7 . RJ%.RJ|
00001470: 25 AB 36 3A 89 31 34 35 30 00 94 1C A7 05 8B 20 |%.6:.1450...... |
00001480: 4E 55 4D B2 38 20 A7 20 52 4A 25 B2 B6 28 52 4A |NUM.8 . RJ%..(RJ|
00001490: 25 AB 38 29 00 C1 1C AA 05 81 20 58 B2 31 20 A4 |%.8)...... X.1 .|
000014A0: 20 38 3A 8B 20 52 31 25 28 31 2C 58 29 B2 52 4A | 8:. R1%(1,X).RJ|
000014B0: 25 20 A7 20 54 58 24 B2 22 31 22 3A 89 31 34 38 |% . TX$."1":.148|
000014C0: 30 00 F2 1C B4 05 82 20 58 3A 81 20 58 B2 31 20 |0...... X:. X.1 |
000014D0: A4 20 38 3A 8B 20 52 32 25 28 31 2C 58 29 B2 52 |. 8:. R2%(1,X).R|
000014E0: 4A 25 20 A7 20 54 58 24 B2 22 32 22 3A 89 31 34 |J% . TX$."2":.14|
000014F0: 38 30 00 02 1D BE 05 82 20 58 3A 54 58 24 B2 22 |80...... X:TX$."|
00001500: 33 22 00 0D 1D C8 05 4D 24 B2 54 58 24 00 40 1D |3".....M$.TX$.@.|
00001510: D2 05 8B 20 43 35 B2 30 20 B0 20 43 35 B2 32 20 |... C5.0 . C5.2 |
00001520: B0 20 43 35 B2 34 20 B0 20 43 35 B2 36 20 A7 20 |. C5.4 . C5.6 . |
00001530: 54 57 52 24 28 32 29 B2 54 58 24 3A 89 33 39 37 |TWR$(2).TX$:.397|
00001540: 00 7C 1D DC 05 8F 20 20 49 46 20 28 43 35 2F 32 |.|.... IF (C5/2|
00001550: 29 3D 49 4E 54 28 43 35 2F 32 29 20 4F 52 20 43 |)=INT(C5/2) OR C|
00001560: 35 3D 30 20 54 48 45 4E 20 54 57 52 24 28 32 29 |5=0 THEN TWR$(2)|
00001570: 3D 54 58 24 3A 47 4F 54 4F 33 39 37 00 A5 1D E6 |=TX$:GOTO397....|
00001580: 05 8B 20 4C 24 B2 22 31 22 20 AF 20 4D 24 B2 22 |.. L$."1" . M$."|
00001590: 32 22 20 A7 20 54 57 52 24 28 32 29 B2 22 33 22 |2" . TWR$(2)."3"|
000015A0: 3A 89 33 39 37 00 CE 1D F0 05 8B 20 4C 24 B2 22 |:.397...... L$."|
000015B0: 31 22 20 AF 20 4D 24 B2 22 33 22 20 A7 20 54 57 |1" . M$."3" . TW|
000015C0: 52 24 28 32 29 B2 22 32 22 3A 89 33 39 37 00 F7 |R$(2)."2":.397..|
000015D0: 1D FA 05 8B 20 4C 24 B2 22 32 22 20 AF 20 4D 24 |.... L$."2" . M$|
000015E0: B2 22 33 22 20 A7 20 54 57 52 24 28 32 29 B2 22 |."3" . TWR$(2)."|
000015F0: 31 22 3A 89 33 39 37 00 20 1E 04 06 8B 20 4C 24 |1":.397. .... L$|
00001600: B2 22 32 22 20 AF 20 4D 24 B2 22 31 22 20 A7 20 |."2" . M$."1" . |
00001610: 54 57 52 24 28 32 29 B2 22 33 22 3A 89 33 39 37 |TWR$(2)."3":.397|
00001620: 00 49 1E 0E 06 8B 20 4C 24 B2 22 33 22 20 AF 20 |.I.... L$."3" . |
00001630: 4D 24 B2 22 31 22 20 A7 20 54 57 52 24 28 32 29 |M$."1" . TWR$(2)|
00001640: B2 22 32 22 3A 89 33 39 37 00 72 1E 18 06 8B 20 |."2":.397.r.... |
00001650: 4C 24 B2 22 33 22 20 AF 20 4D 24 B2 22 32 22 20 |L$."3" . M$."2" |
00001660: A7 20 54 57 52 24 28 32 29 B2 22 31 22 3A 89 33 |. TWR$(2)."1":.3|
00001670: 39 37 00 78 1E 40 06 90 00 8E 1E B8 0B 8F 20 2D |97.x.@........ -|
00001680: 20 42 55 49 4C 44 20 53 50 52 49 54 45 53 00 B8 | BUILD SPRITES..|
00001690: 1E 1C 0C 56 B2 35 33 32 34 38 3A 97 56 AA 32 31 |...V.53248:.V.21|
000016A0: 2C 32 35 35 3A 97 56 AA 32 33 2C 32 35 35 3A 97 |,255:.V.23,255:.|
000016B0: 56 AA 32 39 2C 32 35 35 00 EE 1E 26 0C 97 32 30 |V.29,255...&..20|
000016C0: 34 30 2C 31 39 32 3A 97 32 30 34 31 2C 31 39 33 |40,192:.2041,193|
000016D0: 3A 97 32 30 34 32 2C 31 39 34 3A 97 32 30 34 33 |:.2042,194:.2043|
000016E0: 2C 31 39 35 3A 97 32 30 34 34 2C 31 39 36 00 10 |,195:.2044,196..|
000016F0: 1F 28 0C 97 32 30 34 35 2C 31 39 37 3A 97 32 30 |.(..2045,197:.20|
00001700: 34 36 2C 31 39 38 3A 97 32 30 34 37 2C 31 39 39 |46,198:.2047,199|
00001710: 00 47 1F 30 0C 97 56 AA 33 39 2C 33 3A 97 56 AA |.G.0..V.39,3:.V.|
00001720: 34 30 2C 31 35 3A 97 56 AA 34 31 2C 31 33 3A 97 |40,15:.V.41,13:.|
00001730: 56 AA 34 32 2C 39 3A 97 56 AA 34 33 2C 31 34 3A |V.42,9:.V.43,14:|
00001740: 97 56 AA 34 34 2C 35 00 5C 1F 35 0C 97 20 56 AA |.V.44,5.\.5.. V.|
00001750: 34 35 2C 38 3A 97 56 AA 34 36 2C 30 00 91 1F 3A |45,8:.V.46,0...:|
00001760: 0C 8C 3A 4E 30 B2 31 32 32 38 38 3A 81 20 58 B2 |..:N0.12288:. X.|
00001770: 31 20 A4 20 38 3A 81 20 4E B2 30 20 A4 20 36 32 |1 . 8:. N.0 . 62|
00001780: 3A 87 20 51 3A 97 20 4E 30 AA 4E 2C 51 3A 82 20 |:. Q:. N0.N,Q:. |
00001790: 4E 00 A2 1F 3C 0C 4E 30 B2 4E 30 AA 36 34 3A 82 |N...<.N0.N0.64:.|
000017A0: 20 58 00 D3 1F 80 0C 54 31 24 B2 22 31 31 31 31 | X.....T1$."1111|
000017B0: 31 31 31 31 22 3A 54 32 24 B2 22 30 30 30 30 30 |1111":T2$."00000|
000017C0: 30 30 30 22 3A 54 33 24 B2 22 30 30 30 30 30 30 |000":T3$."000000|
000017D0: 30 30 22 00 F7 1F 8A 0C 81 20 58 B2 31 20 A4 20 |00"...... X.1 . |
000017E0: 38 3A 54 34 24 28 58 29 B2 CA 28 54 31 24 2C 58 |8:T4$(X)..(T1$,X|
000017F0: 2C 31 29 3A 82 20 58 00 1B 20 94 0C 81 20 58 B2 |,1):. X.. ... X.|
00001800: 31 20 A4 20 38 3A 54 35 24 28 58 29 B2 CA 28 54 |1 . 8:T5$(X)..(T|
00001810: 32 24 2C 58 2C 31 29 3A 82 20 58 00 3F 20 9E 0C |2$,X,1):. X.? ..|
00001820: 81 20 58 B2 31 20 A4 20 38 3A 54 36 24 28 58 29 |. X.1 . 8:T6$(X)|
00001830: B2 CA 28 54 33 24 2C 58 2C 31 29 3A 82 20 58 00 |..(T3$,X,1):. X.|
00001840: 7A 20 A8 0C 5A 25 B2 39 37 3A 81 20 58 B2 31 20 |z ..Z%.97:. X.1 |
00001850: A4 20 38 3A 54 31 28 58 29 B2 5A 25 3A 54 32 28 |. 8:T1(X).Z%:T2(|
00001860: 58 29 B2 5A 25 3A 54 33 28 58 29 B2 5A 25 3A 5A |X).Z%:T3(X).Z%:Z|
00001870: 25 B2 5A 25 AA 39 3A 82 20 58 00 A5 20 B2 0C 59 |%.Z%.9:. X.. ..Y|
00001880: 25 B2 30 3A 81 20 58 B2 31 20 A4 20 38 3A 52 31 |%.0:. X.1 . 8:R1|
00001890: 25 28 31 2C 58 29 B2 59 25 3A 59 25 B2 59 25 AA |%(1,X).Y%:Y%.Y%.|
000018A0: 31 3A 82 20 58 00 CD 20 B4 0C 81 20 58 B2 31 20 |1:. X.. ... X.1 |
000018B0: A4 20 38 3A 52 32 25 28 31 2C 58 29 B2 39 3A 52 |. 8:R2%(1,X).9:R|
000018C0: 33 25 28 31 2C 58 29 B2 39 3A 82 20 58 00 E0 20 |3%(1,X).9:. X.. |
000018D0: BC 0C 8B 20 59 4E 24 B2 22 59 22 20 A7 33 36 30 |... YN$."Y" .360|
000018E0: 00 E9 20 3C 0F 89 33 30 32 00 0A 21 10 27 8F 20 |.. <..302..!.'. |
000018F0: 2D 20 42 55 49 4C 44 20 43 48 41 52 41 43 54 45 |- BUILD CHARACTE|
00001900: 52 20 47 52 41 50 48 49 43 53 00 48 21 74 27 42 |R GRAPHICS.H!t'B|
00001910: 4C 4B 24 B2 C7 28 31 34 34 29 3A 52 45 44 24 B2 |LK$..(144):RED$.|
00001920: C7 28 32 38 29 3A 59 45 4C 24 B2 C7 28 31 35 38 |.(28):YEL$..(158|
00001930: 29 3A 42 32 4C 55 24 B2 C7 28 33 31 29 3A 43 59 |):B2LU$..(31):CY|
00001940: 24 B2 C7 28 31 35 39 29 00 61 21 A6 27 52 56 24 |$..(159).a!.'RV$|
00001950: B2 C7 28 31 38 29 3A 52 4F 24 B2 C7 28 31 34 36 |..(18):RO$..(146|
00001960: 29 00 85 21 B0 27 43 4C 24 B2 C7 28 31 34 37 29 |)..!.'CL$..(147)|
00001970: 3A 44 57 24 B2 C7 28 31 37 29 3A 4C 46 24 B2 C7 |:DW$..(17):LF$..|
00001980: 28 31 35 37 29 00 B2 21 BA 27 81 20 58 B2 31 20 |(157)..!.'. X.1 |
00001990: A4 20 32 34 3A 44 4F 24 B2 44 4F 24 AA 44 57 24 |. 24:DO$.DO$.DW$|
000019A0: 3A 82 20 58 3A 44 4F 24 B2 C7 28 31 39 29 AA 44 |:. X:DO$..(19).D|
000019B0: 4F 24 00 E9 21 D8 27 41 24 28 31 29 B2 52 56 24 |O$..!.'A$(1).RV$|
000019C0: AA 42 32 24 AA 22 20 20 20 20 20 20 20 20 20 20 |.B2$." |
000019D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000019E0: 20 20 20 20 22 AA 52 4F 24 00 08 22 E2 27 41 24 | ".RO$..".'A$|
000019F0: 28 32 29 B2 52 56 24 AA 59 45 4C 24 AA 22 20 22 |(2).RV$.YEL$." "|
00001A00: AA 44 57 24 AA 4C 46 24 00 2D 22 E7 27 81 20 58 |.DW$.LF$.-".'. X|
00001A10: B2 31 20 A4 20 31 30 3A 41 24 28 33 29 B2 41 24 |.1 . 10:A$(3).A$|
00001A20: 28 33 29 AA 41 24 28 32 29 3A 82 20 58 00 45 22 |(3).A$(2):. X.E"|
00001A30: E9 27 41 24 28 33 29 B2 41 24 28 33 29 AA 22 20 |.'A$(3).A$(3)." |
00001A40: 22 AA 52 4F 24 00 6D 22 3C 28 48 44 47 24 B2 52 |".RO$.m"<(HDG$.R|
00001A50: 56 24 AA 57 48 24 AA 22 54 4F 57 45 52 53 20 4F |V$.WH$."TOWERS O|
00001A60: 46 20 42 52 41 48 4D 41 22 AA 52 4F 24 00 9C 22 |F BRAHMA".RO$.."|
00001A70: 50 28 4E 55 4D 24 B2 52 56 24 AA 42 32 24 AA 22 |P(NUM$.RV$.B2$."|
00001A80: 4E 55 4D 42 45 52 20 4F 46 20 52 49 4E 47 53 20 |NUMBER OF RINGS |
00001A90: 28 32 20 2D 20 38 29 22 AA 52 4F 24 00 C5 22 5A |(2 - 8)".RO$.."Z|
00001AA0: 28 53 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 |(SP$." |
00001AB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001AC0: 20 20 20 20 22 00 05 23 64 28 46 39 24 B2 52 56 | "..#d(F9$.RV|
00001AD0: 24 AA 42 4C 24 AA 22 46 52 4F 4D 20 54 4F 57 45 |$.BL$."FROM TOWE|
00001AE0: 52 20 23 22 AA 52 4F 24 3A 54 39 24 B2 52 56 24 |R #".RO$:T9$.RV$|
00001AF0: AA 42 4C 24 AA 22 54 4F 20 54 4F 57 45 52 20 23 |.BL$."TO TOWER #|
00001B00: 22 AA 52 4F 24 00 1D 23 6E 28 43 52 24 B2 52 56 |".RO$..#n(CR$.RV|
00001B10: 24 AA 43 59 24 AA 22 20 22 AA 52 4F 24 00 65 23 |$.CY$." ".RO$.e#|
00001B20: 78 28 53 4C 56 24 28 31 29 B2 52 56 24 AA 42 4C |x(SLV$(1).RV$.BL|
00001B30: 24 AA 22 20 52 49 4E 47 53 20 52 45 51 55 49 52 |$." RINGS REQUIR|
00001B40: 45 53 22 AA 52 4F 24 3A 53 4C 56 24 28 32 29 B2 |ES".RO$:SLV$(2).|
00001B50: 52 56 24 AA 42 4C 24 AA 22 20 4D 4F 56 45 53 2E |RV$.BL$." MOVES.|
00001B60: 22 AA 52 4F 24 00 82 23 82 28 4D 56 24 B2 52 56 |".RO$..#.(MV$.RV|
00001B70: 24 AA 42 32 24 AA 22 4D 4F 56 45 20 23 22 AA 52 |$.B2$."MOVE #".R|
00001B80: 4F 24 00 B3 23 8C 28 43 4D 50 24 B2 52 56 24 AA |O$..#.(CMP$.RV$.|
00001B90: 42 4C 24 AA 22 43 4F 4D 50 55 54 45 52 20 53 4F |BL$."COMPUTER SO|
00001BA0: 4C 55 54 49 4F 4E 20 28 59 2F 4E 29 20 3F 22 AA |LUTION (Y/N) ?".|
00001BB0: 52 4F 24 00 DF 23 96 28 45 4E 24 B2 52 56 24 AA |RO$..#.(EN$.RV$.|
00001BC0: 42 4C 24 AA 22 50 52 45 53 53 20 3C 52 45 54 55 |BL$."PRESS <RETU|
00001BD0: 52 4E 3E 20 54 4F 20 45 4E 44 22 AA 52 4F 24 00 |RN> TO END".RO$.|
00001BE0: E9 23 68 29 89 33 31 30 30 00 02 24 2F 2A 8F 20 |.#h).3100..$/*. |
00001BF0: 2D 20 44 41 54 41 20 46 4F 52 20 53 50 52 49 54 |- DATA FOR SPRIT|
00001C00: 45 53 00 13 24 30 2A 8F 20 2D 20 53 50 52 49 54 |ES..$0*. - SPRIT|
00001C10: 45 20 30 00 5B 24 3A 2A 83 20 2C 2C 2C 2C 2C 2C |E 0.[$:*. ,,,,,,|
00001C20: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C |,,,,,,,,,,,,,,,,|
00001C30: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C |,,,,,,,,,,,,,,,,|
00001C40: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 3A |,,,,,,,,,,,,,,,:|
00001C50: 8F 20 35 33 20 43 4F 4D 4D 41 53 00 7F 24 44 2A |. 53 COMMAS..$D*|
00001C60: 83 20 31 2C 32 35 35 2C 31 32 38 2C 31 2C 32 35 |. 1,255,128,1,25|
00001C70: 35 2C 31 32 38 2C 31 2C 32 35 35 2C 31 32 38 00 |5,128,1,255,128.|
00001C80: 90 24 94 2A 8F 20 2D 20 53 50 52 49 54 45 20 31 |.$.*. - SPRITE 1|
00001C90: 00 CC 24 9E 2A 83 20 2C 2C 2C 2C 2C 2C 2C 2C 2C |..$.*. ,,,,,,,,,|
00001CA0: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C |,,,,,,,,,,,,,,,,|
00001CB0: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C |,,,,,,,,,,,,,,,,|
00001CC0: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 00 F0 24 A8 |,,,,,,,,,,,,..$.|
00001CD0: 2A 83 20 33 2C 32 35 35 2C 31 39 32 2C 33 2C 32 |*. 3,255,192,3,2|
00001CE0: 35 35 2C 31 39 32 2C 33 2C 32 35 35 2C 31 39 32 |55,192,3,255,192|
00001CF0: 00 01 25 F8 2A 8F 20 2D 20 53 50 52 49 54 45 20 |..%.*. - SPRITE |
00001D00: 32 00 3D 25 02 2B 83 20 2C 2C 2C 2C 2C 2C 2C 2C |2.=%.+. ,,,,,,,,|
00001D10: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C |,,,,,,,,,,,,,,,,|
00001D20: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C |,,,,,,,,,,,,,,,,|
00001D30: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 00 61 25 |,,,,,,,,,,,,,.a%|
00001D40: 0C 2B 83 20 37 2C 32 35 35 2C 32 32 34 2C 37 2C |.+. 7,255,224,7,|
00001D50: 32 35 35 2C 32 32 34 2C 37 2C 32 35 35 2C 32 32 |255,224,7,255,22|
00001D60: 34 00 72 25 5C 2B 8F 20 2D 20 53 50 52 49 54 45 |4.r%\+. - SPRITE|
00001D70: 20 33 00 AE 25 66 2B 83 20 2C 2C 2C 2C 2C 2C 2C | 3..%f+. ,,,,,,,|
00001D80: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C |,,,,,,,,,,,,,,,,|
00001D90: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C |,,,,,,,,,,,,,,,,|
00001DA0: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 00 D5 |,,,,,,,,,,,,,,..|
00001DB0: 25 70 2B 83 20 31 35 2C 32 35 35 2C 32 34 30 2C |%p+. 15,255,240,|
00001DC0: 31 35 2C 32 35 35 2C 32 34 30 2C 31 35 2C 32 35 |15,255,240,15,25|
00001DD0: 35 2C 32 34 30 00 E6 25 C0 2B 8F 20 2D 20 53 50 |5,240..%.+. - SP|
00001DE0: 52 49 54 45 20 34 00 22 26 CA 2B 83 20 2C 2C 2C |RITE 4."&.+. ,,,|
00001DF0: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C |,,,,,,,,,,,,,,,,|
00001E00: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C |,,,,,,,,,,,,,,,,|
00001E10: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C |,,,,,,,,,,,,,,,,|
00001E20: 2C 2C 00 49 26 D4 2B 83 20 33 31 2C 32 35 35 2C |,,.I&.+. 31,255,|
00001E30: 32 34 38 2C 33 31 2C 32 35 35 2C 32 34 38 2C 33 |248,31,255,248,3|
00001E40: 31 2C 32 35 35 2C 32 34 38 00 5A 26 24 2C 8F 20 |1,255,248.Z&$,. |
00001E50: 2D 20 53 50 52 49 54 45 20 35 00 96 26 2E 2C 83 |- SPRITE 5..&.,.|
00001E60: 20 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C | ,,,,,,,,,,,,,,,|
00001E70: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C |,,,,,,,,,,,,,,,,|
00001E80: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C |,,,,,,,,,,,,,,,,|
00001E90: 2C 2C 2C 2C 2C 2C 00 BD 26 38 2C 83 20 36 33 2C |,,,,,,..&8,. 63,|
00001EA0: 32 35 35 2C 32 35 32 2C 36 33 2C 32 35 35 2C 32 |255,252,63,255,2|
00001EB0: 35 32 2C 36 33 2C 32 35 35 2C 32 35 32 00 CE 26 |52,63,255,252..&|
00001EC0: 88 2C 8F 20 2D 20 53 50 52 49 54 45 20 36 00 0A |.,. - SPRITE 6..|
00001ED0: 27 92 2C 83 20 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C |'.,. ,,,,,,,,,,,|
00001EE0: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C |,,,,,,,,,,,,,,,,|
00001EF0: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C |,,,,,,,,,,,,,,,,|
00001F00: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 00 34 27 9C 2C 83 |,,,,,,,,,,.4'.,.|
00001F10: 20 31 32 37 2C 32 35 35 2C 32 35 34 2C 31 32 37 | 127,255,254,127|
00001F20: 2C 32 35 35 2C 32 35 34 2C 31 32 37 2C 32 35 35 |,255,254,127,255|
00001F30: 2C 32 35 34 00 45 27 EC 2C 8F 20 2D 20 53 50 52 |,254.E'.,. - SPR|
00001F40: 49 54 45 20 37 00 81 27 F6 2C 83 20 2C 2C 2C 2C |ITE 7..'.,. ,,,,|
00001F50: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C |,,,,,,,,,,,,,,,,|
00001F60: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C |,,,,,,,,,,,,,,,,|
00001F70: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C |,,,,,,,,,,,,,,,,|
00001F80: 2C 00 AB 27 00 2D 83 20 32 35 35 2C 32 35 35 2C |,..'.-. 255,255,|
00001F90: 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C |255,255,255,255,|
00001FA0: 32 35 35 2C 32 35 35 2C 32 35 35 00 00 00 |255,255,255... |
..+.... - TOWERS OF BRAHMA FOR COMMODORE
64.A.... - DANIEL MILLER.X.... - 2815 3
4 STREET.P.... - ASTORIA, QUEENS...... -
NEW YORK, NEW YORK 11103...... - APRI
L 22, 1983.Q.... ***********************
*********...D..10000......53281,1:ZZ.1:.
CL$;H(DO$,2);.11);HDG$;.D.1..55587,10:.1
315,49:.55595,10:.1323,50:.55603,10:.133
1,51.S.6.. H(DO$,20);.5);A$(1);H(DO$,9);
.11);A$(3);. .@..H(DO$,9);.19);A$(3);H(D
O$,9);.27);A$(3).B.^.. - PLACE SPRITES O
N TOWER #1...H..V.14,93:.V.15,160:.V.12,
93:.V.13,151:.V.10,93:.V.11,142.6.M..V.8
,93:.V.9,133:.V.6,93:.V.7,124:.V.4,93:.V
.5,115.[.P..V.2,93:.V.3,106:.V.0,93:.V.1
,97.Y.R.. YN$."Y" . N2.8.NUM:.374...T..
ZZ.0 . 397.D.U..H(DO$,22);.8);NUM$;:. NU
M:N2.8.NUM:SP.0:. NUM.8 .385.N.V.N4.N2..
.W.. NUM.1 . NUM.8 . . H(DO$,22);.5);SP$
;:.373...X.. NUM.8 . YN$."Y" .385.(.Y..
X.1 . N4.=.{.SP.SP.(2.(N4.1)).M.}.N4.N4.
1:. X.`...V.21,(255.SP).....ZZ.0:. TM.1
. 250:. TM:.H(DO$,22);.5);SP$;.....T1$.
"":T2$."":T3$."":N3.N2.1...... X.1 . NUM
:T1$.T1$.T4$(X):T2$.T2$.T5$(X):T3$.T3$.T
6$(X):. X...... YN$."Y" .1060.!.... X.1
. NUM:Y.2.X.1:. X._...NUM$.RV$.BL$.D(NUM
).RO$.SLV$(1).RV$.BL$.D(Y).SLV$(2):Y0.Y.
.....H(DO$,22);.6);NUM$;:. TM.1 . 2000:.
TM...... TM.1 . 250:. TM:.H(DO$,22);.5)
;SP$;......H(DO$,22);.6);F9$;" ";.24)
;T9$;" ";......H(DO$,22);.6);F9$;" ";
CR$;...... ZA.2 .422.4.... TWR$(1):. TWR
$(1)."" .420.W.... TWR$(1).."X" . (TWR$(
1)."1" . TWR$(1)."3") . TWR$(1)."":.420.
..... RV$.RED$.TWR$(1).RO$;...... TWR$(1
)."X" .1010.H....H(DO$,22);.34);" ";CR$;
.X.... ZA.2 .432...... TWR$(2):. TWR$(2)
."" .430.*.... TWR$(2)."1" . TWR$(2)."3"
. TWR$(2)."":.430.F.... RV$.RED$.TWR$(2
).RO$;.E.B.. E(TWR$(1)) . 460,470,480...
L.. X.1 . NUM:. J(T1$,X,1)."1" .465...N.
. X:LOC(1).160:.490.J.Q.LOC(1).T1(N2.X):
T4$(N2.X)."0":.490...V.. X.1 . NUM:. J(T
2$,X,1)."1" .475...X.. X:LOC(1).160:.490
./...LOC(1).T2(N2.X):T5$(N2.X)."0":.490.
U.... X.1 . NUM:. J(T3$,X,1)."1" .485.M.
... X:LOC(1).160:.490.....LOC(1).T3(N2.X
):T6$(N2.X)."0".....LC.LOC(1):.560:SP(1)
.SP.J.... E(TWR$(2)) . 510,520,530......
X.1 . NUM:. J(T1$,X,1)."1" .515...... X
:LOC(2).160:T4$(N2.X.1)."1":.540.C...LOC
(2).T1(N2.X.1):T4$(N2.X.1)."1":.540.I...
. X.1 . NUM:. J(T2$,X,1)."1" .525......
X:LOC(2).160:T5$(N2.X.1)."1":.540.....LO
C(2).T2(N2.X.1):T5$(N2.X.1)."1":.540....
.. X.1 . NUM:. J(T3$,X,1)."1" .535......
X:LOC(2).160:T6$(N2.X.1)."1":.540.0...L
OC(2).T3(N2.X.1):T6$(N2.X.1)."1".L...LC.
LOC(2):.560:SP(2).SP.M.&.T1$."":T2$."":T
3$."":N5.N2.1...+.. X.N5 . 8:T1$.T1$.T4$
(X):T2$.T2$.T5$(X):T3$.T3$.T6$(X):. X:.5
70.G.0.. LC.97 . SP.1:....1.. LC.106 . S
P.2:....2.. LC.115 . SP.3:....3.. LC.124
. SP.4:....4.. LC.133 . SP.5:..5.5.. LC
.142 . SP.6:..K.6.. LC.151 . SP.7:..A.7.
. LC.160 . SP.8:....:.. E(TWR$(1)) . 571
,572,573...;.SQ%.R1%(1,SP(1)):R1%(1,SP(1
)).8:.574.R.<.SQ%.R2%(1,SP(1)):R2%(1,SP(
1)).8:.574...=.SQ%.R3%(1,SP(1)):R3%(1,SP
(1)).8...>.. E(TWR$(2)) . 575,576,577./.
?.R1%(1,SP(2)).SQ%:.580.I.@.R2%(1,SP(2))
.SQ%:.580.^.A.R3%(1,SP(2)).SQ%.}.D.. E(T
WR$(1)) . 582,585,588...F.X1.93:.590...I
.X1.157:.590...L.X1.222.F.N.. E(TWR$(2))
. 592,595,598.U.P.X2.93:.600...S.X2.157
:.600...V.X2.222...X.. - MOVE SPRITE.2.]
.. SQ%.1 . 610,615,620,625,630,635,640,6
45.E.B.SP.0:SQ.1:.705.X.G.SP.2:SQ.3:.705
.K.L.SP.4:SQ.5:.705.~.Q.SP.6:SQ.7:.705..
.V.SP.8:SQ.9:.705...{.SP.10:SQ.11:.705..
...SP.12:SQ.13:.705.K...SP.14:SQ.15...A.
. E(TWR$(1)).E(TWR$(2)) .740...F.. YY.LO
C(1) . 55 ..1:. V.SP,X1:. V.SQ,YY:. YY.H
.P.. XX.X1 . X2:. V.SP,XX:. V.SQ,55:. XX
.}.Z.. YY.55 . LOC(2).1:. V.SP,X2:. V.SQ
,YY:. YY:.790...... YY.LOC(1) . 55 ..1:.
V.SP,X1:. V.SQ,YY:. YY...... XX.X1 . X2
..1:. V.SP,XX:. V.SQ,55:. XX...... YY.5
5 . LOC(2):.V.SP,X2:.V.SQ,YY:. YY.<...MV
.MV.1:.H(DO$,24);.17);MV$.RV$.B2$.D(MV).
RO$;.P.... ZA.2 . MW.MW.1:.1105:. - COMP
UTER'S NEXT MOVE......397:. - PLAYER'S N
EXT MOVE...... - COMPUTER SOLUTION.N...T
WR$(1)."":.H(DO$,24);.7);CMP$;...... YN$
:. YN$."" .1015...... YN$."Y" .1020.....
. YN$.."N" . YN$."":.1010.V.... RV$.BL$.
" ".YN$.RO$;:. TM.1 . 500:. TM:. YN$."Y"
.1050.M.... TM.1 . 1000:. TM......H(DO$
,24);.7);SP$;H(DO$,24);.9);EN$;...... RT
$:. RT$..G(13) .1033.J.... V.21,0:. CL$;
:......SP.0:MV.0:MW.1:.3100...$.YN$."":Z
A.2:.H(DO$,24);.7);SP$;.+.Q.BI$."":. X.1
. 8:BI$(X)."0":. X.=.R.. MV.Y0 .1030._.
V.C2.0:C3.0:C4.0:C5.0:C6.0:ZA.2.J.`.DEC.
MW...J.. Y.0 . 8:. .(2.Y).DEC . Y.Y.1:BI
$(Y)."1":.1150...T.BI$(Y)."0":. Y.O.~.DE
C.DEC.2.Y:. DEC.0 .1170.Y....1130......
Y.7 . 0 ..1:BI$.BI$.BI$(Y):. Y./.... X.8
. 1 ..1:. J(BI$,X,1)."0" . C2.C2.1:. X.
;...C2.C2.1.L.D.RI%.C2.NUM.1.J.E.. NUM.2
. RI%.RI%.4:.1230...F.. NUM.3 . RI%.RI%
.2:.1230...G.. NUM.4 .1230...H.. NUM.5 .
RI%.RI%.2:.1230.V.I.. NUM.6 . RI%.RI%.4
:.1230...J.. NUM.7 . RI%.RI%.6:.1230...K
.. NUM.8 . RI%..(RI%.8).@.N.. X.1 . 8:.
R1%(1,X).RI% . TWR$(1)."1":.1260.U.X.. X
:. X.1 . 8:. R2%(1,X).RI% . TWR$(1)."2":
.1260...... X:TWR$(1)."3".....L$.TWR$(1)
.K.... X.1 . 8:. J(BI$,X,1)."1" . C3.C3.
1:. X:.1330.S.... X...2.. C3.1 .1400...<
.. E(T1$).0 . TWR$(2)."1":.397.(.F.. E(T
2$).0 . TWR$(2)."2":.397.J.P.. E(T3$).0
. TWR$(2)."3":.397.{.X.. X.8 . 1 ..1:C4.
C4.1:. J(BI$,X,1)."0" . . X.....C6.C4...
... X.8.C4 . 1 ..1:C6.C6.1:. J(BI$,X,1).
"0". C5.C5.1:. X.Q. .RJ%.C6.NUM.1......
NUM.2 . RJ%.RJ%.4:.1450...... NUM.3 . RJ
%.RJ%.2:.1450...... NUM.4 .1450.=.... NU
M.5 . RJ%.RJ%.2:.1450.[.... NUM.6 . RJ%.
RJ%.4:.1450.Y.... NUM.7 . RJ%.RJ%.6:.145
0...... NUM.8 . RJ%..(RJ%.8).A.... X.1 .
8:. R1%(1,X).RJ% . TX$."1":.1480......
X:. X.1 . 8:. R2%(1,X).RJ% . TX$."2":.14
80...... X:TX$."3"...H.M$.TX$.@.R.. C5.0
. C5.2 . C5.4 . C5.6 . TWR$(2).TX$:.397
.|.... IF (C5/2)=INT(C5/2) OR C5=0 THEN
TWR$(2)=TX$:GOTO397...... L$."1" . M$."
2" . TWR$(2)."3":.397.N.... L$."1" . M$.
"3" . TWR$(2)."2":.397...... L$."2" . M$
."3" . TWR$(2)."1":.397. .... L$."2" . M
$."1" . TWR$(2)."3":.397.I.... L$."3" .
M$."1" . TWR$(2)."2":.397.R.... L$."3" .
M$."2" . TWR$(2)."1":.397.X.@........ -
BUILD SPRITES.....V.53248:.V.21,255:.V.
23,255:.V.29,255...&..2040,192:.2041,193
:.2042,194:.2043,195:.2044,196...(..2045
,197:.2046,198:.2047,199.G.0..V.39,3:.V.
40,15:.V.41,13:.V.42,9:.V.43,14:.V.44,5.
\.5.. V.45,8:.V.46,0...:..:N0.12288:. X.
1 . 8:. N.0 . 62:. Q:. N0.N,Q:. N...<.N0
.N0.64:. X.S...T1$."11111111":T2$."00000
000":T3$."00000000"...... X.1 . 8:T4$(X)
.J(T1$,X,1):. X.. ... X.1 . 8:T5$(X).J(T
2$,X,1):. X.? ... X.1 . 8:T6$(X).J(T3$,X
,1):. X.Z ..Z%.97:. X.1 . 8:T1(X).Z%:T2(
X).Z%:T3(X).Z%:Z%.Z%.9:. X.. ..Y%.0:. X.
1 . 8:R1%(1,X).Y%:Y%.Y%.1:. X.M ... X.1
. 8:R2%(1,X).9:R3%(1,X).9:. X.. ... YN$.
"Y" .360.. <..302..!.'. - BUILD CHARACTE
R GRAPHICS.H!T'BLK$.G(144):RED$.G(28):YE
L$.G(158):B2LU$.G(31):CY$.G(159).A!.'RV$
.G(18):RO$.G(146)..!.'CL$.G(147):DW$.G(1
7):LF$.G(157)..!.'. X.1 . 24:DO$.DO$.DW$
:. X:DO$.G(19).DO$..!X'A$(1).RV$.B2$."
".RO$..".'A$
(2).RV$.YEL$." ".DW$.LF$.-".'. X.1 . 10:
A$(3).A$(3).A$(2):. X.E".'A$(3).A$(3)."
".RO$.M"<(HDG$.RV$.WH$."TOWERS OF BRAHMA
".RO$.."P(NUM$.RV$.B2$."NUMBER OF RINGS
(2 - 8)".RO$.E"Z(SP$."
"..#D(F9$.RV$.BL$."FROM TOWE
R #".RO$:T9$.RV$.BL$."TO TOWER #".RO$..#
N(CR$.RV$.CY$." ".RO$.E#X(SLV$(1).RV$.BL
$." RINGS REQUIRES".RO$:SLV$(2).RV$.BL$.
" MOVES.".RO$..#.(MV$.RV$.B2$."MOVE #".R
O$..#.(CMP$.RV$.BL$."COMPUTER SOLUTION (
Y/N) ?".RO$..#.(EN$.RV$.BL$."PRESS <RETU
RN> TO END".RO$..#H).3100..$/*. - DATA F
OR SPRITES..$0*. - SPRITE 0.[$:*. ,,,,,,
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
,,,,,,,:. 53 COMMAS.$D*. 1,255,128,1,25
5,128,1,255,128..$.*. - SPRITE 1.L$.*. ,
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
,,,,,,,,,,,,..$.*. 3,255,192,3,255,192,3
,255,192..%.*. - SPRITE 2.=%.+. ,,,,,,,,
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
,,,,,.A%.+. 7,255,224,7,255,224,7,255,22
4.R%\+. - SPRITE 3..%F+. ,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,.U
%P+. 15,255,240,15,255,240,15,255,240..%
.+. - SPRITE 4."&J+. ,,,,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,.I&T+.
31,255,248,31,255,248,31,255,248.Z&$,.
- SPRITE 5..&.,. ,,,,,,,,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,..&8,. 63,
255,252,63,255,252,63,255,252.N&.,. - SP
RITE 6..'.,. ,,,,,,,,,,,,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,,,,,,,,,,,.4'.,. 127,255
,254,127,255,254,127,255,254.E'.,. - SPR
ITE 7..'.,. ,,,,,,,,,,,,,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,,,,,,,,,,..'.-. 255,255,
255,255,255,255,255,255,255...
> CLICK IMAGE PREVIEW FOR FULL MODAL