DRAWINIT
FILE INFORMATION
FILENAME(S): DRAWINIT
FILE TYPE(S): PRG
FILE SIZE: 7.9K
FIRST SEEN: 2025-11-30 19:11:55
APPEARS ON: 2 disk(s)
FILE HASH
8a77248f161ad83b741c94a78f8eb01da0d4f27ba406129e4a3d997e0432fc07
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| WARSHIP | DRAWINIT | PRG | Commodore 64 Extras | 19 | 1 | DOWNLOAD FILE |
| 0110A | DRAWINIT | PRG | hedning, Kaevlinge | 19 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 0A 00 97 20 35 31 2C 30 3A 97 20 35 |..%.... 51,0:. 5|
00000010: 32 2C 34 38 3A 97 20 20 35 35 2C 30 3A 97 35 36 |2,48:. 55,0:.56|
00000020: 2C 34 38 3A 9C 00 33 08 14 00 4C 4D B2 35 36 AC |,48:..3...LM.56.|
00000030: 32 35 36 00 54 08 5A 00 86 20 4D 45 4D 28 34 29 |256.T.Z.. MEM(4)|
00000040: 2C 44 46 28 33 29 2C 4E 41 24 28 34 29 2C 44 46 |,DF(3),NA$(4),DF|
00000050: 24 28 33 29 00 69 08 64 00 86 20 53 28 34 29 2C |$(3).i.d.. S(4),|
00000060: 45 28 34 29 2C 4C 28 34 29 00 73 08 65 00 89 20 |E(4),L(4).s.e.. |
00000070: 35 30 30 00 91 08 6E 00 56 32 B2 B5 28 56 AD 32 |500...n.V2..(V.2|
00000080: 35 36 29 3A 56 31 B2 56 AB 56 32 AC 32 35 36 3A |56):V1.V.V2.256:|
00000090: 8E 00 9B 08 73 00 4B 24 B2 22 22 00 B2 08 78 00 |....s.K$.""...x.|
000000A0: A1 20 4B 24 3A 8B 20 4B 24 B2 22 22 20 A7 20 31 |. K$:. K$."" . 1|
000000B0: 32 30 00 C0 08 7D 00 4B B2 C6 28 4B 24 29 3A 8E |20...}.K..(K$):.|
000000C0: 00 CE 08 F4 01 43 24 B2 C7 28 31 34 37 29 00 07 |.....C$..(147)..|
000000D0: 09 FE 01 83 20 53 48 41 50 45 20 42 41 53 45 2C |.... SHAPE BASE,|
000000E0: 4D 41 50 20 42 41 53 45 2C 55 4E 49 54 20 42 41 |MAP BASE,UNIT BA|
000000F0: 53 45 2C 4D 4F 56 45 54 41 42 4C 45 2C 55 4E 49 |SE,MOVETABLE,UNI|
00000100: 54 32 20 42 41 53 45 00 22 09 03 02 81 20 4C B2 |T2 BASE.".... L.|
00000110: 30 20 A4 20 34 3A 87 20 4E 41 24 28 4C 29 3A 82 |0 . 4:. NA$(L):.|
00000120: 20 4C 00 46 09 08 02 83 20 34 30 33 32 30 2C 34 | L.F.... 40320,4|
00000130: 30 33 32 32 2C 34 30 33 32 34 2C 34 30 33 34 31 |0322,40324,40341|
00000140: 2C 34 30 33 34 33 00 61 09 12 02 81 20 4C B2 30 |,40343.a.... L.0|
00000150: 20 A4 20 34 3A 87 20 4D 45 4D 28 4C 29 3A 82 20 | . 4:. MEM(L):. |
00000160: 4C 00 85 09 1C 02 83 20 48 47 54 2C 42 41 53 45 |L...... HGT,BASE|
00000170: 20 48 47 54 2C 56 49 53 49 42 49 4C 49 54 59 2C | HGT,VISIBILITY,|
00000180: 53 48 41 50 45 00 A0 09 26 02 81 20 4C B2 30 20 |SHAPE...&.. L.0 |
00000190: A4 20 33 3A 87 20 44 46 24 28 4C 29 3A 82 20 4C |. 3:. DF$(L):. L|
000001A0: 00 AB 09 30 02 8D 20 34 30 38 30 00 CC 09 3A 02 |...0.. 4080...:.|
000001B0: 4E 24 B2 22 42 49 54 53 2E 4F 22 3A 46 49 B2 33 |N$."BITS.O":FI.3|
000001C0: 39 31 36 38 3A 8D 20 32 30 30 30 30 00 E7 09 3F |9168:. 20000...?|
000001D0: 02 99 22 4C 4F 41 44 49 4E 47 20 44 52 41 57 2E |.."LOADING DRAW.|
000001E0: 53 48 49 50 2E 4F 22 00 0D 0A 44 02 4E 24 B2 22 |SHIP.O"...D.N$."|
000001F0: 44 52 41 57 2E 53 48 49 50 2E 4F 22 3A 46 49 B2 |DRAW.SHIP.O":FI.|
00000200: 34 39 31 35 32 3A 8D 20 32 30 30 30 30 00 28 0A |49152:. 20000.(.|
00000210: E8 03 8F 20 49 4E 49 54 20 44 41 54 41 20 46 4F |... INIT DATA FO|
00000220: 52 20 44 52 41 57 2E 46 00 30 0A 1A 04 99 43 24 |R DRAW.F.0....C$|
00000230: 00 4B 0A 24 04 99 22 20 20 20 20 20 20 53 51 52 |.K.$.." SQR|
00000240: 50 41 43 20 49 4E 49 54 22 3A 99 00 84 0A 2E 04 |PAC INIT":......|
00000250: 81 20 4C B2 30 20 A4 20 34 3A 99 4E 41 24 28 4C |. L.0 . 4:.NA$(L|
00000260: 29 3B A3 31 30 29 3B 22 20 46 52 4F 4D 22 53 28 |);.10);" FROM"S(|
00000270: 4C 29 22 54 4F 22 45 28 4C 29 22 28 22 4C 28 4C |L)"TO"E(L)"("L(L|
00000280: 29 22 29 22 00 8E 0A 38 04 82 20 4C 3A 99 00 B2 |)")"...8.. L:...|
00000290: 0A 42 04 99 22 28 49 29 49 4E 49 54 49 41 4C 49 |.B.."(I)INITIALI|
000002A0: 5A 45 20 4E 45 57 20 53 51 52 50 41 43 20 4D 41 |ZE NEW SQRPAC MA|
000002B0: 50 22 00 CA 0A 4C 04 99 22 28 4C 29 4F 41 44 20 |P"...L.."(L)OAD |
000002C0: 49 4E 49 54 20 44 41 54 41 22 00 E2 0A 56 04 99 |INIT DATA"...V..|
000002D0: 22 28 53 29 41 56 45 20 49 4E 49 54 20 44 41 54 |"(S)AVE INIT DAT|
000002E0: 41 22 00 FA 0A 60 04 99 22 28 44 29 45 46 49 4E |A"...`.."(D)EFIN|
000002F0: 45 20 54 45 52 52 41 49 4E 22 00 17 0B 6A 04 99 |E TERRAIN"...j..|
00000300: 22 28 52 29 45 41 44 20 49 4E 20 42 49 4E 41 52 |"(R)EAD IN BINAR|
00000310: 59 20 46 49 4C 45 22 00 36 0B 74 04 99 22 28 57 |Y FILE".6.t.."(W|
00000320: 29 52 49 54 45 20 4F 55 54 20 42 49 4E 41 52 59 |)RITE OUT BINARY|
00000330: 20 46 49 4C 45 22 00 53 0B 7E 04 99 22 28 43 29 | FILE".S.~.."(C)|
00000340: 4C 45 41 52 20 41 4C 4C 20 55 4E 49 54 20 44 41 |LEAR ALL UNIT DA|
00000350: 54 41 22 00 73 0B 88 04 99 22 28 41 29 53 53 49 |TA".s...."(A)SSI|
00000360: 47 4E 20 53 48 41 50 45 53 20 54 4F 20 55 4E 49 |GN SHAPES TO UNI|
00000370: 54 53 22 00 8F 0B 92 04 99 22 28 54 29 45 52 52 |TS"......"(T)ERR|
00000380: 41 49 4E 20 4D 4F 56 45 20 43 4F 53 54 53 22 00 |AIN MOVE COSTS".|
00000390: B2 0B 9C 04 99 22 28 47 29 4F 54 4F 20 44 52 41 |....."(G)OTO DRA|
000003A0: 57 2E 55 53 45 20 28 42 55 49 4C 44 20 4D 41 50 |W.USE (BUILD MAP|
000003B0: 29 22 00 C8 0B A6 04 99 22 28 5A 29 45 52 4F 20 |)"......"(Z)ERO |
000003C0: 4F 55 54 20 4D 41 50 22 00 EE 0B AB 04 99 22 28 |OUT MAP"......"(|
000003D0: 58 29 20 44 49 53 4B 20 43 4F 4D 4D 41 4E 44 53 |X) DISK COMMANDS|
000003E0: 20 44 45 4C 45 54 45 20 2F 20 43 41 54 22 00 FE | DELETE / CAT"..|
000003F0: 0B B0 04 99 3A 99 22 28 45 29 58 49 54 22 00 0F |....:."(E)XIT"..|
00000400: 0C E2 04 99 22 53 45 4C 45 43 54 20 3A 22 3B 00 |...."SELECT :";.|
00000410: 1D 0C EC 04 8D 20 31 31 35 3A 99 4B 24 00 31 0C |..... 115:.K$.1.|
00000420: 14 05 8B 20 4B 24 B2 22 49 22 20 A7 20 32 30 30 |... K$."I" . 200|
00000430: 30 00 47 0C 1E 05 8B 20 4B 24 B2 22 4C 22 20 A7 |0.G.... K$."L" .|
00000440: 20 8D 20 34 30 30 30 00 5E 0C 28 05 8B 20 4B 24 | . 4000.^.(.. K$|
00000450: B2 22 53 22 20 A7 20 8D 20 31 30 30 30 30 00 72 |."S" . . 10000.r|
00000460: 0C 32 05 8B 20 4B 24 B2 22 44 22 20 A7 20 35 30 |.2.. K$."D" . 50|
00000470: 30 30 00 83 0C 3C 05 8B 20 4B 24 B2 22 45 22 20 |00...<.. K$."E" |
00000480: A7 20 80 00 9A 0C 46 05 8B 20 4B 24 B2 22 57 22 |. ....F.. K$."W"|
00000490: 20 A7 20 8D 20 31 32 30 30 30 00 B1 0C 50 05 8B | . . 12000...P..|
000004A0: 20 4B 24 B2 22 52 22 20 A7 20 8D 20 31 31 30 30 | K$."R" . . 1100|
000004B0: 30 00 C7 0C 5A 05 8B 20 4B 24 B2 22 43 22 20 A7 |0...Z.. K$."C" .|
000004C0: 20 8D 20 36 30 30 30 00 DD 0C 64 05 8B 20 4B 24 | . 6000...d.. K$|
000004D0: B2 22 41 22 20 A7 20 8D 20 37 30 30 30 00 F3 0C |."A" . . 7000...|
000004E0: 6E 05 8B 20 4B 24 B2 22 54 22 20 A7 20 8D 20 38 |n.. K$."T" . . 8|
000004F0: 30 30 30 00 07 0D 78 05 8B 20 4B 24 B2 22 47 22 |000...x.. K$."G"|
00000500: 20 A7 20 31 39 30 30 00 30 0D 82 05 8B 20 4B 24 | . 1900.0.... K$|
00000510: B2 22 5A 22 20 A7 20 81 20 4C B2 53 28 31 29 20 |."Z" . . L.S(1) |
00000520: A4 20 45 28 31 29 3A 97 20 4C 2C 30 3A 82 20 4C |. E(1):. L,0:. L|
00000530: 00 46 0D 8C 05 8B 20 4B 24 B2 22 58 22 20 A7 20 |.F.... K$."X" . |
00000540: 8D 20 39 30 30 30 00 51 0D 08 07 89 20 31 30 30 |. 9000.Q.... 100|
00000550: 30 00 64 0D 6C 07 8F 20 52 55 4E 20 44 52 41 57 |0.d.l.. RUN DRAW|
00000560: 2E 55 53 45 00 8A 0D 76 07 99 22 93 4C 4F 41 44 |.USE...v..".LOAD|
00000570: 20 22 C7 28 33 34 29 22 44 52 41 57 2E 55 53 45 | ".(34)"DRAW.USE|
00000580: 22 C7 28 33 34 29 22 2C 38 22 00 AE 0D 80 07 97 |".(34)",8"......|
00000590: 20 31 39 38 2C 38 3A 81 4C B2 30 A4 37 3A 87 20 | 198,8:.L.0.7:. |
000005A0: 5A 3A 97 20 36 33 31 AA 4C 2C 5A 3A 82 4C 00 CC |Z:. 631.L,Z:.L..|
000005B0: 0D 8A 07 83 20 31 39 2C 31 33 2C 33 32 2C 33 32 |.... 19,13,32,32|
000005C0: 2C 38 32 2C 38 35 2C 37 38 2C 31 33 00 D4 0D 94 |,82,85,78,13....|
000005D0: 07 9C 3A A2 00 DC 0D D0 07 99 43 24 00 12 0E 34 |..:.......C$...4|
000005E0: 08 99 3A 85 22 4C 41 52 47 45 53 54 20 58 20 56 |..:."LARGEST X V|
000005F0: 41 4C 55 45 20 28 31 39 2D 31 32 37 29 20 22 3B |ALUE (19-127) ";|
00000600: 56 3A 8B 56 B3 31 39 B0 56 B1 31 32 37 A7 32 31 |V:.V.19.V.127.21|
00000610: 30 30 00 3B 0E 3E 08 8B 20 56 AD 32 B2 B5 28 56 |00.;.>.. V.2..(V|
00000620: AD 32 29 A7 20 99 22 4D 55 53 54 20 45 4E 44 20 |.2). ."MUST END |
00000630: 4F 44 44 22 3A 89 20 32 31 30 30 00 5B 0E 48 08 |ODD":. 2100.[.H.|
00000640: 4D 58 B2 56 3A 97 20 34 30 33 33 36 2C 56 AB 31 |MX.V:. 40336,V.1|
00000650: 39 3A 97 20 34 30 33 33 38 2C 56 00 8F 0E 52 08 |9:. 40338,V...R.|
00000660: 99 3A 85 22 4C 41 52 47 45 53 54 20 58 20 56 41 |.:."LARGEST X VA|
00000670: 4C 55 45 20 28 39 2D 31 32 37 29 20 22 3B 56 3A |LUE (9-127) ";V:|
00000680: 8B 56 B3 39 B0 56 B1 31 32 37 A7 32 31 33 30 00 |.V.9.V.127.2130.|
00000690: B8 0E 5C 08 8B 20 56 AD 32 B2 B5 28 56 AD 32 29 |..\.. V.2..(V.2)|
000006A0: A7 20 99 22 4D 55 53 54 20 45 4E 44 20 4F 44 44 |. ."MUST END ODD|
000006B0: 22 3A 89 20 32 31 33 30 00 D7 0E 66 08 4D 59 B2 |":. 2130...f.MY.|
000006C0: 56 3A 97 20 34 30 33 33 37 2C 56 AB 39 3A 97 20 |V:. 40337,V.9:. |
000006D0: 34 30 33 33 39 2C 56 00 06 0F 70 08 99 3A 85 20 |40339,V...p..:. |
000006E0: 22 23 20 4F 46 20 50 4C 41 59 45 52 53 20 28 31 |"# OF PLAYERS (1|
000006F0: 2D 34 29 20 22 3B 56 3A 8B 20 56 B3 31 B0 56 B1 |-4) ";V:. V.1.V.|
00000700: 34 A7 32 31 36 30 00 19 0F 7A 08 50 4C B2 56 3A |4.2160...z.PL.V:|
00000710: 97 20 34 30 33 33 30 2C 56 00 2F 0F 84 08 55 4E |. 40330,V./...UN|
00000720: B2 30 3A 81 20 4C B2 30 20 A4 20 50 4C AB 31 00 |.0:. L.0 . PL.1.|
00000730: 60 0F 8E 08 99 3A 99 22 23 20 4F 46 20 55 4E 49 |`....:."# OF UNI|
00000740: 54 53 20 46 4F 52 20 50 4C 41 59 45 52 20 23 22 |TS FOR PLAYER #"|
00000750: 4C 22 28 31 2D 32 35 35 29 20 22 3B 3A 85 20 56 |L"(1-255) ";:. V|
00000760: 00 79 0F 98 08 8B 20 56 B3 31 20 B0 20 56 B1 32 |.y.... V.1 . V.2|
00000770: 35 35 20 A7 20 32 31 39 30 00 91 0F A2 08 97 20 |55 . 2190...... |
00000780: 34 30 33 32 36 AA 4C 2C 56 3A 55 4E B2 55 4E AA |40326.L,V:UN.UN.|
00000790: 56 00 C3 0F AC 08 99 22 53 54 41 43 4B 49 4E 47 |V......"STACKING|
000007A0: 20 53 59 4D 42 4F 4C 20 50 4C 41 59 45 52 20 23 | SYMBOL PLAYER #|
000007B0: 22 3B 4C 3B 22 28 30 2D 31 32 37 29 20 22 3B 3A |";L;"(0-127) ";:|
000007C0: 85 20 56 00 DC 0F B6 08 8B 20 56 B3 30 20 B0 20 |. V...... V.0 . |
000007D0: 56 B1 31 32 37 20 A7 20 32 32 32 30 00 EC 0F C0 |V.127 . 2220....|
000007E0: 08 97 20 34 30 33 33 32 AA 4C 2C 56 00 F4 0F CA |.. 40332.L,V....|
000007F0: 08 82 20 4C 00 2E 10 D4 08 99 3A 85 20 22 43 4F |.. L......:. "CO|
00000800: 4E 46 4C 49 43 54 20 53 59 4D 42 4F 4C 20 28 30 |NFLICT SYMBOL (0|
00000810: 2D 31 32 37 29 20 22 3B 56 3A 8B 20 56 B3 30 20 |-127) ";V:. V.0 |
00000820: B0 20 56 B1 31 32 37 20 A7 20 32 32 36 30 00 3C |. V.127 . 2260.<|
00000830: 10 DE 08 97 20 34 30 33 33 31 2C 56 00 7C 10 FC |.... 40331,V.|..|
00000840: 08 99 3A 85 20 22 55 53 45 20 55 4E 49 54 20 4D |..:. "USE UNIT M|
00000850: 50 56 45 20 41 53 4D 20 28 59 2F 4E 29 20 22 3B |PVE ASM (Y/N) ";|
00000860: 4B 24 3A 8B 20 4B 24 B3 B1 22 59 22 20 AF 20 4B |K$:. K$.."Y" . K|
00000870: 24 B3 B1 22 4E 22 A7 20 32 33 30 30 00 A1 10 06 |$.."N". 2300....|
00000880: 09 8B 20 4B 24 B2 22 4E 22 20 A7 20 97 20 34 30 |.. K$."N" . . 40|
00000890: 33 34 30 2C 30 3A 4D 54 B2 30 3A 89 20 32 35 30 |340,0:MT.0:. 250|
000008A0: 30 00 E1 10 10 09 99 3A 85 20 22 4D 41 58 20 4E |0......:. "MAX N|
000008B0: 55 4D 42 45 52 20 4F 46 20 54 45 52 52 41 49 4E |UMBER OF TERRAIN|
000008C0: 20 28 31 2D 31 32 37 29 20 22 3B 56 3A 8B 20 56 | (1-127) ";V:. V|
000008D0: B3 31 20 B0 20 56 B1 31 32 37 20 A7 20 32 33 32 |.1 . V.127 . 232|
000008E0: 30 00 F4 10 1A 09 4D 54 B2 56 3A 97 20 34 30 33 |0.....MT.V:. 403|
000008F0: 34 30 2C 56 00 FA 10 C4 09 8F 00 1A 11 E2 09 99 |40,V............|
00000900: 3A 99 22 20 20 20 20 49 4E 49 54 49 41 4C 49 5A |:." INITIALIZ|
00000910: 45 20 53 51 52 20 50 41 43 22 00 2A 11 EC 09 99 |E SQR PAC".*....|
00000920: 3A 99 22 4C 4F 57 22 3B 4C 4D 00 3C 11 F1 09 99 |:."LOW";LM.<....|
00000930: 22 48 49 47 48 20 33 39 31 36 37 22 00 51 11 F6 |"HIGH 39167".Q..|
00000940: 09 8F 20 2A 2A 53 45 54 20 56 41 52 49 42 4C 45 |.. **SET VARIBLE|
00000950: 53 00 5F 11 00 0A 81 20 4C B2 30 20 A4 20 34 00 |S._.... L.0 . 4.|
00000960: 81 11 05 0A 8B 20 4B 24 B2 22 4E 22 20 AF 20 4C |..... K$."N" . L|
00000970: B1 32 20 A7 20 4C 28 4C 29 B2 30 3A 89 32 36 35 |.2 . L(L).0:.265|
00000980: 30 00 A2 11 0A 0A 99 22 41 44 44 52 45 53 53 20 |0......"ADDRESS |
00000990: 46 4F 52 20 22 3B 4E 41 24 28 4C 29 22 20 3A 20 |FOR ";NA$(L)" : |
000009A0: 22 3B 00 B1 11 14 0A 85 20 56 3A 53 28 4C 29 B2 |";...... V:S(L).|
000009B0: 56 00 D3 11 28 0A 8D 20 31 31 30 3A 97 20 4D 45 |V...(.. 110:. ME|
000009C0: 28 4C 29 2C 56 31 3A 97 20 4D 45 28 4C 29 AA 31 |(L),V1:. ME(L).1|
000009D0: 2C 56 32 00 0D 12 2D 0A 8B 20 4C B3 31 20 A7 20 |,V2...-.. L.1 . |
000009E0: 85 20 22 23 20 4F 46 20 53 48 41 50 45 53 20 55 |. "# OF SHAPES U|
000009F0: 53 45 44 20 28 31 2D 31 32 38 29 20 22 3B 56 3A |SED (1-128) ";V:|
00000A00: 53 48 B2 56 3A 4C 28 4C 29 B2 56 AC 38 00 2C 12 |SH.V:L(L).V.8.,.|
00000A10: 2F 0A 8B 20 4C B2 31 20 A7 20 4C 28 4C 29 B2 28 |/.. L.1 . L(L).(|
00000A20: 4D 58 AA 31 29 AC 28 4D 59 AA 31 29 00 42 12 32 |MX.1).(MY.1).B.2|
00000A30: 0A 8B 20 4C B2 32 20 A7 20 4C 28 4C 29 B2 55 4E |.. L.2 . L(L).UN|
00000A40: AC 34 00 58 12 34 0A 8B 20 4C B2 33 20 A7 20 4C |.4.X.4.. L.3 . L|
00000A50: 28 4C 29 B2 4D 54 AC 34 00 6E 12 37 0A 8B 20 4C |(L).MT.4.n.7.. L|
00000A60: B2 34 20 A7 20 4C 28 4C 29 B2 55 4E AC 37 00 9C |.4 . L(L).UN.7..|
00000A70: 12 46 0A 8D 20 33 30 30 30 3A 8B 20 5A B1 30 20 |.F.. 3000:. Z.0 |
00000A80: A7 20 99 22 4D 45 4D 4F 52 59 20 4F 56 45 52 4C |. ."MEMORY OVERL|
00000A90: 41 50 22 3A 99 3A 89 20 32 35 37 30 00 B1 12 50 |AP":.:. 2570...P|
00000AA0: 0A 45 28 4C 29 B2 53 28 4C 29 AA 4C 28 4C 29 AB |.E(L).S(L).L(L).|
00000AB0: 31 00 DF 12 55 0A 99 22 4D 45 4D 20 55 53 45 44 |1...U.."MEM USED|
00000AC0: 20 46 52 4F 4D 20 22 3B 53 28 4C 29 3B 22 54 4F | FROM ";S(L);"TO|
00000AD0: 22 45 28 4C 29 22 28 22 4C 28 4C 29 22 29 22 00 |"E(L)"("L(L)")".|
00000AE0: E7 12 5A 0A 82 20 4C 00 F2 12 64 0A 89 20 31 30 |..Z.. L...d.. 10|
00000AF0: 30 30 00 0E 13 B8 0B 8F 20 2A 2A 20 49 53 20 4D |00...... ** IS M|
00000B00: 45 4D 20 43 4F 4E 46 4C 49 43 54 49 4E 47 00 16 |EM CONFLICTING..|
00000B10: 13 CC 0B 5A B2 30 00 36 13 D1 0B 8B 20 53 28 4C |...Z.0.6.... S(L|
00000B20: 29 AA 4C 28 4C 29 AB 31 B1 33 39 31 36 37 20 A7 |).L(L).1.39167 .|
00000B30: 20 5A B2 31 3A 8E 00 4C 13 D6 0B 8B 20 53 28 4C | Z.1:..L.... S(L|
00000B40: 29 B3 4C 4D 20 A7 20 5A B2 31 3A 8E 00 5A 13 E0 |).LM . Z.1:..Z..|
00000B50: 0B 8B 20 4C B2 30 20 A7 20 8E 00 92 13 EA 0B 81 |.. L.0 . .......|
00000B60: 20 4C 31 B2 30 20 A4 20 4C AB 31 3A 8B 20 53 28 | L1.0 . L.1:. S(|
00000B70: 4C 31 29 B3 B2 53 28 4C 29 A7 8B 53 28 4C 31 29 |L1)..S(L)..S(L1)|
00000B80: AA 4C 28 4C 31 29 AB 31 B1 B2 53 28 4C 29 A7 5A |.L(L1).1..S(L).Z|
00000B90: B2 31 00 BC 13 F4 0B 8B 20 53 28 4C 31 29 B1 53 |.1...... S(L1).S|
00000BA0: 28 4C 29 A7 8B 53 28 4C 29 AA 4C 28 4C 29 AB 31 |(L)..S(L).L(L).1|
00000BB0: B1 B2 53 28 4C 31 29 A7 20 5A B2 31 00 C5 13 FE |..S(L1). Z.1....|
00000BC0: 0B 82 20 4C 31 00 CB 13 08 0C 8E 00 E3 13 A0 0F |.. L1...........|
00000BD0: 8F 20 2A 2A 20 4C 4F 41 44 20 49 4E 49 54 20 44 |. ** LOAD INIT D|
00000BE0: 41 54 41 00 EB 13 AA 0F 99 43 24 00 06 14 D2 0F |ATA......C$.....|
00000BF0: 99 3A 99 22 20 20 20 4C 4F 41 44 20 49 4E 49 54 |.:." LOAD INIT|
00000C00: 20 44 41 54 41 22 00 2E 14 DC 0F 4E 24 B2 22 22 | DATA".....N$.""|
00000C10: 3A 99 3A 85 20 22 4E 41 4D 45 20 4F 46 20 49 4E |:.:. "NAME OF IN|
00000C20: 49 54 20 46 49 4C 45 20 3A 20 22 3B 4E 24 00 3D |IT FILE : ";N$.=|
00000C30: 14 E1 0F 8B 20 4E 24 B2 22 22 A7 20 8E 00 52 14 |.... N$."". ..R.|
00000C40: E6 0F 46 49 B2 33 39 38 30 38 3A 8D 20 32 30 30 |..FI.39808:. 200|
00000C50: 30 30 00 83 14 F0 0F 81 20 4C B2 30 20 A4 20 34 |00...... L.0 . 4|
00000C60: 3A 53 28 4C 29 B2 C2 28 4D 45 4D 28 4C 29 29 AA |:S(L)..(MEM(L)).|
00000C70: C2 28 4D 45 4D 28 4C 29 AA 31 29 AC 32 35 36 3A |.(MEM(L).1).256:|
00000C80: 82 20 4C 00 9F 14 04 10 4D 58 B2 C2 28 34 30 33 |. L.....MX..(403|
00000C90: 33 38 29 3A 4D 59 B2 C2 28 34 30 33 33 39 29 00 |38):MY..(40339).|
00000CA0: AF 14 0E 10 50 4C B2 C2 28 34 30 33 33 30 29 00 |....PL..(40330).|
00000CB0: DA 14 18 10 55 4E B2 30 3A 81 20 4C B2 30 20 A4 |....UN.0:. L.0 .|
00000CC0: 20 50 4C AB 31 3A 55 4E B2 55 4E AA C2 28 34 30 | PL.1:UN.UN..(40|
00000CD0: 33 32 36 AA 4C 29 3A 82 20 4C 00 EA 14 22 10 4D |326.L):. L...".M|
00000CE0: 54 B2 C2 28 34 30 33 34 30 29 00 F8 14 94 11 81 |T..(40340)......|
00000CF0: 20 4C B2 30 20 A4 20 34 00 2C 15 EE 11 8B 20 4C | L.0 . 4.,.... L|
00000D00: B2 30 20 A7 20 99 3A 85 20 22 23 20 4F 46 20 53 |.0 . .:. "# OF S|
00000D10: 48 41 50 45 53 20 55 53 45 44 20 22 3B 56 3A 53 |HAPES USED ";V:S|
00000D20: 48 B2 56 3A 4C 28 4C 29 B2 56 AC 38 00 4B 15 F8 |H.V:L(L).V.8.K..|
00000D30: 11 8B 20 4C B2 31 20 A7 20 4C 28 4C 29 B2 28 4D |.. L.1 . L(L).(M|
00000D40: 58 AA 31 29 AC 28 4D 59 AA 31 29 00 61 15 02 12 |X.1).(MY.1).a...|
00000D50: 8B 20 4C B2 32 20 A7 20 4C 28 4C 29 B2 55 4E AC |. L.2 . L(L).UN.|
00000D60: 34 00 82 15 0C 12 8B 20 4D 54 B2 30 20 AF 20 4C |4...... MT.0 . L|
00000D70: B1 32 20 A7 20 53 28 4C 29 B2 30 3A 89 20 34 37 |.2 . S(L).0:. 47|
00000D80: 30 30 00 98 15 16 12 8B 20 4C B2 33 20 A7 20 4C |00...... L.3 . L|
00000D90: 28 4C 29 B2 4D 54 AC 34 00 AE 15 20 12 8B 20 4C |(L).MT.4... .. L|
00000DA0: B2 34 20 A7 20 4C 28 4C 29 B2 55 4E AC 37 00 C3 |.4 . L(L).UN.7..|
00000DB0: 15 2A 12 45 28 4C 29 B2 53 28 4C 29 AA 4C 28 4C |.*.E(L).S(L).L(L|
00000DC0: 29 AB 31 00 CB 15 5C 12 82 20 4C 00 D1 15 C0 12 |).1...\.. L.....|
00000DD0: 8E 00 EC 15 88 13 8F 20 2A 2A 20 4D 4F 44 49 45 |....... ** MODIE|
00000DE0: 46 59 20 54 45 52 20 49 54 45 4D 53 00 F4 15 BA |FY TER ITEMS....|
00000DF0: 13 99 43 24 00 1D 16 C4 13 99 3A 99 22 54 45 52 |..C$......:."TER|
00000E00: 52 41 49 4E 20 48 47 54 2C 42 41 53 45 48 47 54 |RAIN HGT,BASEHGT|
00000E10: 2C 56 49 53 20 26 20 53 48 41 50 45 22 00 23 16 |,VIS & SHAPE".#.|
00000E20: CE 13 99 00 68 16 D8 13 81 4C B2 30 A4 33 3A 99 |....h....L.0.3:.|
00000E30: 4C AA 31 3B 22 29 20 22 44 46 24 28 4C 29 22 20 |L.1;") "DF$(L)" |
00000E40: 44 45 46 41 55 4C 54 20 3A 22 3B 3A 58 24 B2 22 |DEFAULT :";:X$."|
00000E50: 43 48 41 4E 47 45 22 3A 8B 44 46 28 4C 29 A7 58 |CHANGE":.DF(L).X|
00000E60: 24 B2 22 53 4B 49 50 22 00 74 16 DD 13 99 58 24 |$."SKIP".t....X$|
00000E70: 3A 82 20 4C 00 96 16 E2 13 99 3A 99 22 43 48 41 |:. L......:."CHA|
00000E80: 4E 47 45 20 4F 4E 45 20 54 45 52 52 41 49 4E 20 |NGE ONE TERRAIN |
00000E90: 56 41 4C 55 45 22 00 BB 16 EC 13 99 22 28 4E 29 |VALUE"......"(N)|
00000EA0: 45 57 20 56 41 4C 55 45 53 20 46 4F 52 20 4D 41 |EW VALUES FOR MA|
00000EB0: 4E 59 20 54 45 52 52 41 49 4E 22 00 D8 16 F6 13 |NY TERRAIN".....|
00000EC0: 99 22 28 52 29 45 54 55 52 4E 20 54 4F 20 4D 41 |."(R)ETURN TO MA|
00000ED0: 49 4E 20 4D 45 4E 55 22 00 F1 16 50 14 99 3A 99 |IN MENU"...P..:.|
00000EE0: 22 53 45 4C 45 43 54 20 3A 22 3B 3A 8D 20 31 31 |"SELECT :";:. 11|
00000EF0: 35 00 05 17 B4 14 8B 20 4B 24 B2 22 52 22 20 A7 |5...... K$."R" .|
00000F00: 20 31 30 30 30 00 3C 17 BE 14 8B 20 4B 24 B1 22 | 1000.<.... K$."|
00000F10: 30 22 20 AF 20 4B 24 B3 22 35 22 20 A7 20 56 B2 |0" . K$."5" . V.|
00000F20: C5 28 4B 24 29 AB 31 3A 44 46 28 56 29 B2 28 44 |.(K$).1:DF(V).(D|
00000F30: 46 28 56 29 B2 30 29 AC 28 AB 31 29 00 4F 17 C8 |F(V).0).(.1).O..|
00000F40: 14 8B 20 4B 24 B2 22 43 22 A7 20 35 35 30 30 00 |.. K$."C". 5500.|
00000F50: 60 17 D2 14 8B 4B 24 B2 22 4E 22 A7 35 35 32 30 |`....K$."N".5520|
00000F60: 00 6B 17 DC 14 89 20 35 30 30 30 00 A3 17 7C 15 |.k.... 5000...|.|
00000F70: 99 3A 85 20 22 43 48 41 4E 47 45 20 54 45 52 52 |.:. "CHANGE TERR|
00000F80: 41 49 4E 20 28 30 2D 31 32 37 29 20 22 3B 5A 3A |AIN (0-127) ";Z:|
00000F90: 8B 20 5A B3 30 20 B0 20 5A B1 31 32 37 20 A7 35 |. Z.0 . Z.127 .5|
00000FA0: 30 30 30 00 B3 17 86 15 5A 31 B2 5A 3A 89 20 35 |000.....Z1.Z:. 5|
00000FB0: 36 30 30 00 E8 17 90 15 99 3A 85 22 43 48 41 4E |600......:."CHAN|
00000FC0: 47 45 20 46 52 4F 4D 20 28 30 2D 31 32 37 29 20 |GE FROM (0-127) |
00000FD0: 22 3B 5A 3A 8B 20 5A B3 30 20 B0 20 5A B1 31 32 |";Z:. Z.0 . Z.12|
00000FE0: 37 20 A7 20 35 30 30 30 00 1C 18 9A 15 99 22 54 |7 . 5000......"T|
00000FF0: 4F 20 28 22 3B 5A 3B 22 2D 31 32 37 29 20 22 3B |O (";Z;"-127) ";|
00001000: 3A 85 20 5A 31 3A 8B 20 5A 31 B3 5A 20 B0 20 5A |:. Z1:. Z1.Z . Z|
00001010: 31 B1 31 32 37 20 A7 20 35 35 32 30 00 2B 18 E0 |1.127 . 5520.+..|
00001020: 15 81 20 4C B2 5A 20 A4 20 5A 31 00 47 18 EA 15 |.. L.Z . Z1.G...|
00001030: 99 22 53 48 41 50 45 20 23 22 3B 4C 3A 81 20 4C |."SHAPE #";L:. L|
00001040: 31 B2 30 20 A4 20 33 00 5C 18 F4 15 8B 20 44 46 |1.0 . 3.\.... DF|
00001050: 28 4C 31 29 B1 30 A7 20 35 36 36 30 00 97 18 FE |(L1).0. 5660....|
00001060: 15 99 44 46 24 28 4C 31 29 3B 22 20 4F 4C 44 20 |..DF$(L1);" OLD |
00001070: 22 3B C2 28 33 39 38 30 38 AA 4C 31 AC 31 32 38 |";.(39808.L1.128|
00001080: AA 4C 29 3B 22 20 4E 45 57 20 22 3B 3A 58 24 B2 |.L);" NEW ";:X$.|
00001090: 22 22 3A 85 20 58 24 00 AA 18 08 16 8B C3 28 58 |"":. X$.......(X|
000010A0: 24 29 B3 31 A7 20 35 36 36 30 00 C9 18 12 16 56 |$).1. 5660.....V|
000010B0: B2 C5 28 58 24 29 3A 97 20 33 39 38 30 38 AA 4C |..(X$):. 39808.L|
000010C0: 31 AC 31 32 38 AA 4C 2C 56 00 D4 18 1C 16 82 20 |1.128.L,V...... |
000010D0: 4C 31 3A 99 00 DB 18 26 16 82 4C 00 E6 18 30 16 |L1:....&..L...0.|
000010E0: 89 20 35 30 30 30 00 FF 18 70 17 8F 20 2A 2A 20 |. 5000...p.. ** |
000010F0: 43 4C 45 41 52 20 55 4E 49 54 20 44 41 54 41 00 |CLEAR UNIT DATA.|
00001100: 2A 19 75 17 99 43 24 3A 99 3A 99 22 20 20 20 4D |*.u..C$:.:." M|
00001110: 4F 56 49 4E 47 20 55 4E 49 54 53 20 4F 46 46 20 |OVING UNITS OFF |
00001120: 4D 41 50 20 2E 2E 2E 22 3A 99 00 3B 19 7A 17 81 |MAP ...":..;.z..|
00001130: 20 4C B2 30 20 A4 20 55 4E AB 31 00 77 19 84 17 | L.0 . UN.1.w...|
00001140: 5A B2 53 28 32 29 AA 4C AC 34 3A 97 5A 2C 32 35 |Z.S(2).L.4:.Z,25|
00001150: 35 3A 97 5A AA 31 2C 32 35 35 3A 97 5A AA 33 2C |5:.Z.1,255:.Z.3,|
00001160: 30 3A 8B 4D 54 B1 31 A7 97 53 28 34 29 AA 4C AC |0:.MT.1..S(4).L.|
00001170: 37 AA 34 2C 32 35 35 00 88 19 8E 17 99 20 22 2E |7.4,255...... ".|
00001180: 22 3B 3A 82 20 4C 3A 99 00 8E 19 98 17 8E 00 AE |";:. L:.........|
00001190: 19 58 1B 8F 20 2A 2A 20 41 53 53 49 47 4E 20 53 |.X.. ** ASSIGN S|
000011A0: 48 41 50 45 53 20 54 4F 20 55 4E 49 54 53 00 B6 |HAPES TO UNITS..|
000011B0: 19 8A 1B 99 43 24 00 D0 19 94 1B 99 3A 99 22 20 |....C$......:." |
000011C0: 20 20 20 20 55 4E 49 54 20 53 48 41 50 45 53 22 | UNIT SHAPES"|
000011D0: 00 D6 19 9E 1B 99 00 F5 19 A8 1B 99 22 28 4C 29 |............"(L)|
000011E0: 49 53 54 20 55 4E 49 54 53 20 41 4E 44 20 53 48 |IST UNITS AND SH|
000011F0: 41 50 45 53 22 00 0D 1A B2 1B 99 22 20 4D 41 4B |APES"......" MAK|
00001200: 45 20 43 48 41 4E 47 45 53 20 4F 4E 22 00 1F 1A |E CHANGES ON"...|
00001210: BC 1B 99 22 28 4F 29 4E 45 20 55 4E 49 54 22 00 |..."(O)NE UNIT".|
00001220: 33 1A C6 1B 99 22 28 4D 29 41 4E 59 20 55 4E 49 |3...."(M)ANY UNI|
00001230: 54 53 22 00 5C 1A CB 1B 99 22 28 44 29 45 46 41 |TS".\...."(D)EFA|
00001240: 55 4C 54 20 53 48 41 50 45 20 22 3B 44 53 3B 22 |ULT SHAPE ";DS;"|
00001250: 28 3E 32 35 35 20 4E 4F 4E 45 29 22 00 7B 1A D0 |(>255 NONE)".{..|
00001260: 1B 99 3A 99 22 28 52 29 45 54 55 52 4E 20 54 4F |..:."(R)ETURN TO|
00001270: 20 4D 41 49 4E 20 4D 45 4E 55 22 00 93 1A 20 1C | MAIN MENU"... .|
00001280: 99 3A 99 22 53 45 4C 45 43 54 20 22 3B 3A 8D 20 |.:."SELECT ";:. |
00001290: 31 31 35 00 AA 1A 84 1C 8B 20 4B 24 B2 22 4C 22 |115...... K$."L"|
000012A0: 20 A7 20 8D 20 32 32 30 30 30 00 BB 1A 8E 1C 8B | . . 22000......|
000012B0: 20 4B 24 B2 22 52 22 20 A7 20 8E 00 CF 1A 98 1C | K$."R" . ......|
000012C0: 8B 20 4B 24 B2 22 4F 22 20 A7 20 37 35 35 30 00 |. K$."O" . 7550.|
000012D0: E3 1A A2 1C 8B 20 4B 24 B2 22 4D 22 20 A7 20 37 |..... K$."M" . 7|
000012E0: 36 30 30 00 11 1B AC 1C 8B 4B 24 B2 22 44 22 A7 |600......K$."D".|
000012F0: 99 3A 85 22 4E 45 57 20 53 48 41 50 45 20 22 3B |.:."NEW SHAPE ";|
00001300: 58 24 3A 8B C3 28 58 24 29 A7 56 B2 C5 28 58 24 |X$:..(X$).V..(X$|
00001310: 29 00 38 1B B1 1C 8B 20 4B 24 B2 22 44 22 20 A7 |).8.... K$."D" .|
00001320: 20 8B 20 56 B1 30 20 AF 20 56 B3 39 39 39 39 A7 | . V.0 . V.9999.|
00001330: 20 44 53 B2 B5 28 56 29 00 43 1B 4C 1D 89 20 37 | DS..(V).C.L.. 7|
00001340: 30 30 30 00 6F 1B 7E 1D 99 3A 85 22 43 48 41 4E |000.o.~..:."CHAN|
00001350: 47 45 20 55 4E 49 54 20 23 22 3B 5A 3A 8B 5A B3 |GE UNIT #";Z:.Z.|
00001360: 30 B0 5A B1 55 4E AB 31 20 A7 20 37 30 30 30 00 |0.Z.UN.1 . 7000.|
00001370: 7F 1B 88 1D 5A 31 B2 5A 3A 89 20 37 37 30 30 00 |....Z1.Z:. 7700.|
00001380: B0 1B B0 1D 99 3A 85 20 22 43 48 41 4E 47 45 20 |.....:. "CHANGE |
00001390: 46 52 4F 4D 20 55 4E 49 54 20 23 22 3B 5A 3A 8B |FROM UNIT #";Z:.|
000013A0: 5A B3 30 B0 5A B1 55 4E AB 31 A7 20 37 30 30 30 |Z.0.Z.UN.1. 7000|
000013B0: 00 DD 1B BA 1D 85 20 22 54 4F 20 55 4E 49 54 20 |...... "TO UNIT |
000013C0: 23 22 3B 5A 31 3A 8B 20 5A 31 B3 5A 20 B0 20 5A |#";Z1:. Z1.Z . Z|
000013D0: 31 B1 55 4E AB 31 20 A7 20 37 30 30 30 00 EC 1B |1.UN.1 . 7000...|
000013E0: 14 1E 81 20 4C B2 5A 20 A4 20 5A 31 00 10 1C 19 |... L.Z . Z1....|
000013F0: 1E 8B 20 44 53 B1 B2 30 20 AF 20 44 53 B3 B2 32 |.. DS..0 . DS..2|
00001400: 35 35 20 A7 20 56 B2 44 53 3A 89 20 37 37 33 30 |55 . V.DS:. 7730|
00001410: 00 4E 1C 1E 1E 99 22 55 4E 49 54 20 23 22 3B 4C |.N...."UNIT #";L|
00001420: 3B 22 A0 4F 4C 44 20 53 48 41 50 45 20 22 3B C2 |;".OLD SHAPE ";.|
00001430: 28 53 28 32 29 AA 4C AC 34 AA 32 29 3B 3A 85 22 |(S(2).L.4.2);:."|
00001440: 4E 45 57 20 53 48 41 50 45 20 22 3B 58 24 00 62 |NEW SHAPE ";X$.b|
00001450: 1C 28 1E 8B 20 C3 28 58 24 29 B3 31 A7 20 37 37 |.(.. .(X$).1. 77|
00001460: 34 30 00 83 1C 2D 1E 56 B2 C5 28 58 24 29 3A 8B |40...-.V..(X$):.|
00001470: 20 56 B3 30 20 B0 20 56 B1 32 35 35 20 A7 20 37 | V.0 . V.255 . 7|
00001480: 37 31 30 00 96 1C 32 1E 97 20 53 28 32 29 AA 4C |710...2.. S(2).L|
00001490: AC 34 AA 32 2C 56 00 9E 1C 3C 1E 82 20 4C 00 A9 |.4.2,V...<.. L..|
000014A0: 1C 46 1E 89 20 37 30 30 30 00 BC 1C 40 1F 8F 20 |.F.. 7000...@.. |
000014B0: 54 45 52 52 41 49 4E 20 43 4F 53 54 00 C4 1C 54 |TERRAIN COST...T|
000014C0: 1F 99 43 24 00 EA 1C 5E 1F 8B 20 4D 54 B3 31 A7 |..C$...^.. MT.1.|
000014D0: 20 99 3A 99 22 4E 4F 54 20 49 4E 20 55 53 45 22 | .:."NOT IN USE"|
000014E0: 3A 8D 20 32 33 30 30 30 3A 8E 00 F2 1C A4 1F 99 |:. 23000:.......|
000014F0: 43 24 00 11 1D AE 1F 99 3A 99 22 43 48 41 4E 47 |C$......:."CHANG|
00001500: 45 20 4D 4F 56 45 4D 45 4E 54 20 43 4F 53 54 53 |E MOVEMENT COSTS|
00001510: 22 00 32 1D B8 1F 99 3A 99 22 28 4C 29 49 53 54 |".2....:."(L)IST|
00001520: 20 4D 4F 56 45 20 43 4F 53 54 20 54 41 42 4C 45 | MOVE COST TABLE|
00001530: 53 22 00 56 1D C2 1F 99 3A 99 22 20 43 48 41 4E |S".V....:." CHAN|
00001540: 47 45 20 4D 4F 56 45 4D 45 4E 54 20 43 4F 53 54 |GE MOVEMENT COST|
00001550: 53 20 46 4F 52 22 00 68 1D CC 1F 99 22 28 4F 29 |S FOR".h...."(O)|
00001560: 4E 45 20 55 4E 49 54 22 00 7C 1D D6 1F 99 22 28 |NE UNIT".|...."(|
00001570: 4D 29 41 4E 59 20 55 4E 49 54 53 22 00 9B 1D FE |M)ANY UNITS"....|
00001580: 1F 99 3A 99 22 28 52 29 45 54 55 52 4E 20 54 4F |..:."(R)ETURN TO|
00001590: 20 4D 41 49 4E 20 4D 45 4E 55 22 00 B8 1D 08 20 | MAIN MENU".... |
000015A0: 99 3A 99 22 53 45 4C 45 43 54 20 3A 22 3B 3A 8D |.:."SELECT :";:.|
000015B0: 20 31 31 35 3A 99 4B 24 00 C9 1D 3A 20 8B 20 4B | 115:.K$...: . K|
000015C0: 24 B2 22 52 22 20 A7 20 8E 00 DD 1D 44 20 8B 20 |$."R" . ....D . |
000015D0: 4B 24 B2 22 4C 22 20 A7 20 38 34 31 30 00 F1 1D |K$."L" . 8410...|
000015E0: 4E 20 8B 20 4B 24 B2 22 4F 22 20 A7 20 38 35 30 |N . K$."O" . 850|
000015F0: 30 00 05 1E 58 20 8B 20 4B 24 B2 22 4D 22 20 A7 |0...X . K$."M" .|
00001600: 20 38 35 35 30 00 10 1E D0 20 89 20 38 31 30 30 | 8550.... . 8100|
00001610: 00 18 1E DA 20 5A B2 30 00 34 1E E4 20 81 20 4C |.... Z.0.4.. . L|
00001620: B2 30 20 A4 20 33 3A 81 20 4C 31 B2 30 20 A4 20 |.0 . 3:. L1.0 . |
00001630: 4D 54 AB 31 00 66 1E EE 20 8B A8 5A A7 20 99 43 |MT.1.f.. ..Z. .C|
00001640: 24 3A 99 20 22 54 45 52 52 41 49 4E 23 20 4D 4F |$:. "TERRAIN# MO|
00001650: 56 45 43 4F 53 54 20 28 54 41 42 4C 45 20 23 22 |VECOST (TABLE #"|
00001660: 3B 4C 3B 22 29 22 00 99 1E F8 20 97 32 31 34 2C |;L;")".... .214,|
00001670: 31 AA 5A 3A 99 3A 97 32 31 31 2C 32 3A 99 4C 31 |1.Z:.:.211,2:.L1|
00001680: 3A 97 32 31 31 2C 31 31 3A 99 C2 28 53 28 33 29 |:.211,11:..(S(3)|
00001690: AA 4C AC 4D 54 AA 4C 31 29 00 C2 1E 02 21 5A B2 |.L.MT.L1)....!Z.|
000016A0: 5A AA 31 3A 8B 20 5A B2 32 30 20 B0 20 4C 31 B2 |Z.1:. Z.20 . L1.|
000016B0: 4D 54 AB 31 20 A7 20 5A B2 30 3A 8D 20 32 33 30 |MT.1 . Z.0:. 230|
000016C0: 30 30 00 D6 1E 0C 21 82 20 4C 31 3A 82 20 4C 3A |00....!. L1:. L:|
000016D0: 89 20 38 31 30 30 00 0F 1F 34 21 99 3A 99 22 43 |. 8100...4!.:."C|
000016E0: 48 41 4E 47 45 20 54 45 52 52 41 49 4E 20 28 30 |HANGE TERRAIN (0|
000016F0: 2D 22 4D 54 AB 31 22 29 20 22 3B 3A 85 5A 3A 8B |-"MT.1") ";:.Z:.|
00001700: 5A B3 30 B0 5A B1 4D 54 AB 31 A7 38 31 30 30 00 |Z.0.Z.MT.1.8100.|
00001710: 42 1F 3E 21 85 20 22 4F 4E 20 54 41 42 4C 45 20 |B.>!. "ON TABLE |
00001720: 28 30 2D 33 29 20 22 3B 5A 31 3A 8B 20 5A 31 B3 |(0-3) ";Z1:. Z1.|
00001730: 30 20 B0 20 5A 31 B1 4D 54 AB 31 20 A7 20 38 35 |0 . Z1.MT.1 . 85|
00001740: 30 30 00 52 1F 48 21 5A 32 B2 5A 3A 89 20 38 36 |00.R.H!Z2.Z:. 86|
00001750: 30 30 00 92 1F 66 21 99 3A 85 22 43 48 41 4E 47 |00...f!.:."CHANG|
00001760: 45 20 54 45 52 52 41 49 4E 20 4F 4E 20 54 41 42 |E TERRAIN ON TAB|
00001770: 4C 45 20 28 30 2D 33 29 20 22 3B 5A 31 3A 8B 20 |LE (0-3) ";Z1:. |
00001780: 5A 31 B3 30 20 B0 20 5A 31 B1 33 20 A7 20 38 31 |Z1.0 . Z1.3 . 81|
00001790: 30 30 00 A2 1F 70 21 5A B2 30 3A 5A 32 B2 4D 54 |00...p!Z.0:Z2.MT|
000017A0: AB 31 00 AA 1F 98 21 99 43 24 00 C8 1F A2 21 99 |.1....!.C$....!.|
000017B0: 3A 99 22 54 45 52 52 41 49 4E 20 54 41 42 4C 45 |:."TERRAIN TABLE|
000017C0: 20 23 22 3B 5A 31 3A 99 00 D7 1F AC 21 81 20 4C | #";Z1:.....!. L|
000017D0: B2 5A 20 A4 20 5A 32 00 E1 1F B1 21 58 24 B2 22 |.Z . Z2....!X$."|
000017E0: 22 00 28 20 B6 21 99 22 54 45 52 52 41 49 4E 20 |".( .!."TERRAIN |
000017F0: 23 22 4C 3A 99 22 4F 4C 44 20 4D 4F 56 45 43 4F |#"L:."OLD MOVECO|
00001800: 53 54 22 C2 28 53 28 33 29 AA 5A 31 AC 4D 54 AA |ST".(S(3).Z1.MT.|
00001810: 4C 29 3B 3A 85 22 20 4E 45 57 20 4D 4F 56 45 43 |L);:." NEW MOVEC|
00001820: 4F 53 54 20 22 3B 58 24 00 3B 20 C0 21 8B C3 28 |OST ";X$.; .!..(|
00001830: 58 24 29 B3 31 A7 20 38 36 36 30 00 5C 20 CA 21 |X$).1. 8660.\ .!|
00001840: 56 B2 C5 28 58 24 29 3A 8B 20 56 B3 30 20 B0 20 |V..(X$):. V.0 . |
00001850: 56 B1 32 35 35 20 A7 20 38 36 33 30 00 71 20 CF |V.255 . 8630.q .|
00001860: 21 97 20 53 28 33 29 AA 5A 31 AC 4D 54 AA 4C 2C |!. S(3).Z1.MT.L,|
00001870: 56 00 79 20 D4 21 82 20 4C 00 84 20 DE 21 89 20 |V.y .!. L.. .!. |
00001880: 38 31 30 30 00 9A 20 28 23 8F 20 44 45 4C 45 54 |8100.. (#. DELET|
00001890: 45 20 26 20 43 41 54 41 4C 47 00 A8 20 32 23 99 |E & CATALG.. 2#.|
000018A0: 43 24 3A 4E 24 B2 22 22 00 DE 20 3C 23 99 20 22 |C$:N$."".. <#. "|
000018B0: 4E 41 4D 45 20 54 4F 20 44 45 4C 45 54 45 20 46 |NAME TO DELETE F|
000018C0: 49 4C 45 2C 20 26 43 41 54 20 54 4F 22 3A 85 20 |ILE, &CAT TO":. |
000018D0: 22 43 41 54 41 4C 4F 47 20 3A 22 3B 4E 24 00 EE |"CATALOG :";N$..|
000018E0: 20 46 23 8B 20 4E 24 B2 22 22 20 A7 20 8E 00 05 | F#. N$."" . ...|
000018F0: 21 50 23 8B 20 4E 24 B2 22 26 43 41 54 22 20 A7 |!P#. N$."&CAT" .|
00001900: 20 39 35 30 30 00 15 21 5A 23 4E 24 B2 22 53 30 | 9500..!Z#N$."S0|
00001910: 3A 22 AA 4E 24 00 23 21 64 23 9F 20 31 35 2C 38 |:".N$.#!d#. 15,8|
00001920: 2C 31 35 00 2E 21 6E 23 98 31 35 2C 4E 24 00 37 |,15..!n#.15,N$.7|
00001930: 21 78 23 A0 20 31 35 00 42 21 82 23 89 20 39 30 |!x#. 15.B!.#. 90|
00001940: 30 30 00 5A 21 1C 25 99 22 93 22 3B 3A 9F 31 35 |00.Z!.%.".";:.15|
00001950: 2C 38 2C 31 35 2C 22 49 30 22 00 6D 21 26 25 84 |,8,15,"I0".m!&%.|
00001960: 31 35 2C 5A 2C 5A 24 2C 5A 31 2C 5A 32 00 7D 21 |15,Z,Z$,Z1,Z2.}!|
00001970: 30 25 8B 5A B3 B1 30 A7 20 39 30 30 30 00 A8 21 |0%.Z..0. 9000..!|
00001980: 3A 25 4E 24 B2 C7 28 30 29 3A 9F 31 2C 38 2C 30 |:%N$..(0):.1,8,0|
00001990: 2C 22 24 30 22 3A A1 23 31 2C 5A 31 24 2C 5A 31 |,"$0":.#1,Z1$,Z1|
000019A0: 24 3A 89 20 39 35 36 30 00 D2 21 44 25 A1 23 31 |$:. 9560..!D%.#1|
000019B0: 2C 5A 31 24 2C 5A 32 24 3A 99 C6 28 5A 31 24 AA |,Z1$,Z2$:..(Z1$.|
000019C0: 4E 24 29 AA C6 28 5A 32 24 AA 4E 24 29 AC 32 35 |N$)..(Z2$.N$).25|
000019D0: 36 3B 00 F4 21 4E 25 A1 23 31 2C 5A 31 24 3A 8B |6;..!N%.#1,Z1$:.|
000019E0: 5A 31 24 B3 B1 22 22 A7 99 5A 31 24 3B 3A 89 20 |Z1$..""..Z1$;:. |
000019F0: 39 35 35 30 00 14 22 58 25 99 3A A1 23 31 2C 5A |9550.."X%.:.#1,Z|
00001A00: 31 24 2C 5A 31 24 3A 8B 5A 31 24 B3 B1 22 22 A7 |1$,Z1$:.Z1$.."".|
00001A10: 39 35 34 30 00 3D 22 62 25 A0 31 3A A0 31 35 3A |9540.="b%.1:.15:|
00001A20: 99 3A 99 22 50 52 45 53 53 20 41 20 4B 45 59 22 |.:."PRESS A KEY"|
00001A30: 3A 8D 20 31 31 35 3A 89 20 39 30 30 30 00 43 22 |:. 115:. 9000.C"|
00001A40: 6C 25 90 00 5B 22 10 27 8F 20 2A 2A 20 53 41 56 |l%..[".'. ** SAV|
00001A50: 45 20 49 4E 49 54 20 44 41 54 41 00 63 22 42 27 |E INIT DATA.c"B'|
00001A60: 99 43 24 00 7C 22 4C 27 99 22 53 41 56 45 20 49 |.C$.|"L'."SAVE I|
00001A70: 4E 49 54 20 44 41 54 41 20 22 3A 99 00 A4 22 56 |NIT DATA ":..."V|
00001A80: 27 4E 24 B2 22 22 3A 85 20 22 53 41 56 45 20 46 |'N$."":. "SAVE F|
00001A90: 49 4C 45 20 3A 22 3B 4E 24 3A 8B 20 4E 24 B2 22 |ILE :";N$:. N$."|
00001AA0: 22 A7 20 8E 00 B1 22 88 27 46 49 B2 33 39 38 30 |". ...".'FI.3980|
00001AB0: 38 00 BE 22 8D 27 45 4E B2 34 30 34 34 37 00 CA |8..".'EN.40447..|
00001AC0: 22 92 27 8D 20 32 31 30 30 30 00 D0 22 9C 27 8E |".'. 21000..".'.|
00001AD0: 00 EC 22 F8 2A 8F 20 2A 2A 20 4C 4F 41 44 20 41 |..".*. ** LOAD A|
00001AE0: 20 42 49 4E 41 52 59 20 46 49 4C 45 00 06 23 34 | BINARY FILE..#4|
00001AF0: 2B 99 22 4C 4F 41 44 20 42 49 4E 41 52 59 20 46 |+."LOAD BINARY F|
00001B00: 49 4C 45 22 3A 99 00 22 23 3E 2B 4E 24 B2 22 22 |ILE":.."#>+N$.""|
00001B10: 3A 85 22 4C 4F 41 44 20 46 49 4C 45 20 3A 22 3B |:."LOAD FILE :";|
00001B20: 4E 24 00 31 23 48 2B 8B 4E 24 B2 22 22 20 A7 20 |N$.1#H+.N$."" . |
00001B30: 8E 00 6E 23 52 2B 41 24 B2 22 22 3A 85 20 22 4C |..n#R+A$."":. "L|
00001B40: 4F 41 44 20 54 4F 20 41 44 44 52 45 53 53 20 22 |OAD TO ADDRESS "|
00001B50: 3B 41 24 3A 8B 20 41 24 B3 22 30 22 20 B0 20 41 |;A$:. A$."0" . A|
00001B60: 24 B1 22 39 39 39 39 39 22 20 A7 20 20 8E 00 95 |$."99999" . ...|
00001B70: 23 57 2B 5A B2 C5 28 41 24 29 3A 8B 20 5A B3 32 |#W+Z..(A$):. Z.2|
00001B80: 30 34 38 20 B0 20 5A B1 36 35 35 33 35 20 A7 20 |048 . Z.65535 . |
00001B90: 31 31 30 37 30 00 A6 23 5C 2B 46 49 B2 5A 3A 8D |11070..#\+FI.Z:.|
00001BA0: 20 32 30 30 30 30 00 AC 23 C0 2B 8E 00 C7 23 E0 | 20000..#.+...#.|
00001BB0: 2E 8F 20 2A 2A 20 20 53 41 56 45 20 42 49 4E 41 |.. ** SAVE BINA|
00001BC0: 52 59 20 46 49 4C 45 00 CD 23 12 2F 8F 00 E5 23 |RY FILE..#./...#|
00001BD0: 1C 2F 99 22 53 41 56 45 20 42 49 4E 41 52 59 20 |./."SAVE BINARY |
00001BE0: 46 49 4C 45 22 00 0F 24 26 2F 4E 24 B2 22 22 3A |FILE"..$&/N$."":|
00001BF0: 99 3A 85 20 22 53 41 56 45 20 46 49 4C 45 20 3A |.:. "SAVE FILE :|
00001C00: 22 3B 4E 24 3A 8B 20 4E 24 B2 22 22 A7 20 8E 00 |";N$:. N$."". ..|
00001C10: 43 24 30 2F 85 20 22 53 41 56 45 20 46 52 4F 4D |C$0/. "SAVE FROM|
00001C20: 20 41 44 44 52 45 53 53 20 22 3B 5A 3A 8B 20 5A | ADDRESS ";Z:. Z|
00001C30: B3 32 30 34 38 20 B0 20 5A B1 36 35 35 33 35 20 |.2048 . Z.65535 |
00001C40: A7 20 8E 00 7A 24 3A 2F 85 20 22 54 4F 20 41 44 |. ..z$:/. "TO AD|
00001C50: 44 52 45 53 53 20 22 3B 5A 31 3A 8B 20 5A 31 B3 |DRESS ";Z1:. Z1.|
00001C60: 32 30 34 38 20 B0 20 5A 31 B1 36 35 35 33 35 20 |2048 . Z1.65535 |
00001C70: B0 20 5A 31 B3 5A 20 A7 20 8E 00 91 24 44 2F 46 |. Z1.Z . ...$D/F|
00001C80: 49 B2 5A 3A 45 4E B2 5A 31 3A 8D 20 32 31 30 30 |I.Z:EN.Z1:. 2100|
00001C90: 30 00 97 24 4E 2F 8E 00 A9 24 20 4E 8F 20 2A 2A |0..$N/...$ N. **|
00001CA0: 20 4C 4F 41 44 20 42 49 4E 00 DB 24 2A 4E 5A 20 | LOAD BIN..$*NZ |
00001CB0: B2 B5 28 46 49 AD 32 35 36 29 3A 97 20 37 38 30 |..(FI.256):. 780|
00001CC0: 2C 31 35 3A 97 20 37 38 31 2C 38 3A 97 20 37 38 |,15:. 781,8:. 78|
00001CD0: 32 2C 30 3A 9E 20 36 35 34 36 36 00 11 25 34 4E |2,0:. 65466..%4N|
00001CE0: 4C B2 C3 28 4E 24 29 3A 81 20 4C 31 B2 31 20 A4 |L..(N$):. L1.1 .|
00001CF0: 20 4C 3A 97 20 34 30 34 34 37 AA 4C 31 2C C6 28 | L:. 40447.L1,.(|
00001D00: CA 28 4E 24 2C 4C 31 2C 31 29 29 20 3A 82 20 4C |.(N$,L1,1)) :. L|
00001D10: 31 00 37 25 3E 4E 97 20 37 38 30 2C 4C 3A 97 20 |1.7%>N. 780,L:. |
00001D20: 37 38 31 2C 30 3A 97 20 37 38 32 2C 31 35 38 3A |781,0:. 782,158:|
00001D30: 9E 20 36 35 34 36 39 00 64 25 48 4E 97 20 37 38 |. 65469.d%HN. 78|
00001D40: 30 2C 30 3A 97 20 37 38 31 2C 46 49 AB 5A 20 AC |0,0:. 781,FI.Z .|
00001D50: 32 35 36 3A 97 20 37 38 32 2C 5A 20 3A 9E 20 36 |256:. 782,Z :. 6|
00001D60: 35 34 39 33 00 6A 25 52 4E 8E 00 7C 25 08 52 8F |5493.j%RN..|%.R.|
00001D70: 20 2A 2A 20 42 49 4E 20 53 41 56 45 00 AF 25 12 | ** BIN SAVE..%.|
00001D80: 52 5A B2 B5 28 45 4E AD 32 35 36 29 3A 97 20 37 |RZ..(EN.256):. 7|
00001D90: 38 30 2C 31 35 3A 97 20 37 38 31 2C 38 3A 97 20 |80,15:. 781,8:. |
00001DA0: 37 38 32 2C 32 35 35 3A 9E 20 36 35 34 36 36 00 |782,255:. 65466.|
00001DB0: E4 25 1C 52 4C B2 C3 28 4E 24 29 3A 81 20 4C 31 |.%.RL..(N$):. L1|
00001DC0: B2 31 20 A4 20 4C 3A 97 20 34 30 34 34 37 AA 4C |.1 . L:. 40447.L|
00001DD0: 31 2C C6 28 CA 28 4E 24 2C 4C 31 2C 31 29 29 3A |1,.(.(N$,L1,1)):|
00001DE0: 82 20 4C 31 00 0A 26 26 52 97 20 37 38 30 2C 4C |. L1..&&R. 780,L|
00001DF0: 3A 97 20 37 38 31 2C 30 3A 97 20 37 38 32 2C 31 |:. 781,0:. 782,1|
00001E00: 35 38 3A 9E 20 36 35 34 36 39 00 2F 26 30 52 97 |58:. 65469./&0R.|
00001E10: 20 37 38 30 2C 32 35 31 3A 97 20 37 38 31 2C 45 | 780,251:. 781,E|
00001E20: 4E AB 5A AC 32 35 36 3A 97 20 37 38 32 2C 5A 00 |N.Z.256:. 782,Z.|
00001E30: 62 26 3A 52 97 20 32 35 31 2C 46 49 AB B5 28 46 |b&:R. 251,FI..(F|
00001E40: 49 AD 32 35 36 29 AC 32 35 36 3A 97 20 32 35 32 |I.256).256:. 252|
00001E50: 2C B5 28 46 49 AD 32 35 36 29 3A 9E 20 36 35 34 |,.(FI.256):. 654|
00001E60: 39 36 00 68 26 44 52 8E 00 82 26 F0 55 8F 20 2A |96.h&DR...&.U. *|
00001E70: 2A 20 4C 49 53 54 20 55 4E 49 54 20 53 48 41 50 |* LIST UNIT SHAP|
00001E80: 45 53 00 8A 26 22 56 99 43 24 00 96 26 2C 56 5A |ES..&"V.C$..&,VZ|
00001E90: B2 30 3A 4C B2 30 00 A5 26 4A 56 8B 20 4B B2 38 |.0:L.0..&JV. K.8|
00001EA0: 31 20 A7 20 8E 00 BC 26 54 56 99 43 24 3A 99 22 |1 . ...&TV.C$:."|
00001EB0: 55 4E 49 54 23 20 53 48 41 50 45 22 00 CE 26 5E |UNIT# SHAPE"..&^|
00001EC0: 56 5A 31 B2 4C AC 34 AA 32 AA 53 28 32 29 00 F1 |VZ1.L.4.2.S(2)..|
00001ED0: 26 68 56 99 4C 3B 3A 97 20 32 31 34 2C 5A AA 31 |&hV.L;:. 214,Z.1|
00001EE0: 3A 99 3A 97 20 32 31 31 2C 38 3A 99 C2 28 5A 31 |:.:. 211,8:..(Z1|
00001EF0: 29 00 16 27 72 56 4C B2 4C AA 31 3A 5A B2 5A AA |)..'rVL.L.1:Z.Z.|
00001F00: 31 3A 8B 20 4C B1 55 4E AB 31 20 A7 20 8D 20 32 |1:. L.UN.1 . . 2|
00001F10: 33 30 30 30 3A 8E 00 38 27 7C 56 8B 20 5A B1 B2 |3000:..8'|V. Z..|
00001F20: 32 30 20 A7 20 5A B2 30 3A 8D 20 32 33 30 30 30 |20 . Z.0:. 23000|
00001F30: 3A 89 20 32 32 30 39 30 00 44 27 86 56 89 20 32 |:. 22090.D'.V. 2|
00001F40: 32 31 31 30 00 74 27 D8 59 99 3A 99 22 50 52 45 |2110.t'.Y.:."PRE|
00001F50: 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F |SS ANY KEY TO CO|
00001F60: 4E 54 49 4E 55 45 22 3B 3A 8D 20 31 31 35 3A 99 |NTINUE";:. 115:.|
00001F70: 4B 24 3A 8E 00 7A 27 2F 75 80 00 80 27 5F EA 80 |K$:..z'/u...'_..|
00001F80: 00 B3 27 60 EA 9F 20 31 35 2C 38 2C 31 35 3A 98 |..'`.. 15,8,15:.|
00001F90: 31 35 2C 22 53 30 3A 44 52 41 57 49 4E 49 54 22 |15,"S0:DRAWINIT"|
00001FA0: 3A 94 22 44 52 41 57 49 4E 49 54 22 2C 38 3A A0 |:."DRAWINIT",8:.|
00001FB0: 20 31 35 00 00 00 | 15... |
..%.... 51,0:. 52,48:. 55,0:.56,48:..3.
..LM.56.256.T.Z.. MEM(4),DF(3),NA$(4),DF
$(3).I.D.. S(4),E(4),L(4).S.E.. 500...N.
V2..(V.256):V1.V.V2.256:....S.K$.""...X.
. K$:. K$."" . 120...}.K.F(K$):..N...C$.
G(147)...... SHAPE BASE,MAP BASE,UNIT BA
SE,MOVETABLE,UNIT2 BASE.".... L.0 . 4:.
NA$(L):. L.F.... 40320,40322,40324,40341
,40343.A.... L.0 . 4:. MEM(L):. L......
HGT,BASE HGT,VISIBILITY,SHAPE. .&.. L.0
. 3:. DF$(L):. L...0.. 4080.L.:.N$."BITS
.O":FI.39168:. 20000...?.."LOADING DRAW.
SHIP.O"...D.N$."DRAW.SHIP.O":FI.49152:.
20000.(.... INIT DATA FOR DRAW.F.0....C$
.K.$.." SQRPAC INIT":....... L.0 .
4:.NA$(L);.10);" FROM"S(L)"TO"E(L)"("L(L
)")"...8.. L:....B.."(I)INITIALIZE NEW S
QRPAC MAP".J.L.."(L)OAD INIT DATA"...V..
"(S)AVE INIT DATA"...`.."(D)EFINE TERRAI
N"...J.."(R)EAD IN BINARY FILE".6.T.."(W
)RITE OUT BINARY FILE".S.~.."(C)LEAR ALL
UNIT DATA".S...."(A)SSIGN SHAPES TO UNI
TS"......"(T)ERRAIN MOVE COSTS"......"(G
)OTO DRAW.USE (BUILD MAP)".H...."(Z)ERO
OUT MAP"......"(X) DISK COMMANDS DELETE
/ CAT"......:."(E)XIT"......"SELECT :";.
..... 115:.K$.1.... K$."I" . 2000.G....
K$."L" . . 4000.^.(.. K$."S" . . 10000.R
.2.. K$."D" . 5000...<.. K$."E" . ....F.
. K$."W" . . 12000...P.. K$."R" . . 1100
0.G.Z.. K$."C" . . 6000...D.. K$."A" . .
7000...N.. K$."T" . . 8000...X.. K$."G"
. 1900.0.... K$."Z" . . L.S(1) . E(1):.
L,0:. L.F.... K$."X" . . 9000.Q.... 100
0.D.L.. RUN DRAW.USE...V..".LOAD "G(34)"
DRAW.USE"G(34)",8"...... 198,8:.L.0.7:.
Z:. 631.L,Z:.L.L.... 19,13,32,32,82,85,7
8,13.T....:....P..C$...4..:."LARGEST X V
ALUE (19-127) ";V:.V.19.V.127.2100.;.>..
V.2..(V.2). ."MUST END ODD":. 2100.[.H.
MX.V:. 40336,V.19:. 40338,V...R..:."LARG
EST X VALUE (9-127) ";V:.V.9.V.127.2130.
..\.. V.2..(V.2). ."MUST END ODD":. 2130
.W.F.MY.V:. 40337,V.9:. 40339,V...P..:.
"# OF PLAYERS (1-4) ";V:. V.1.V.4.2160..
.Z.PL.V:. 40330,V./...UN.0:. L.0 . PL.1.
`....:."# OF UNITS FOR PLAYER #"L"(1-255
) ";:. V.Y.... V.1 . V.255 . 2190......
40326.L,V:UN.UN.V.C...."STACKING SYMBOL
PLAYER #";L;"(0-127) ";:. V...... V.0 .
V.127 . 2220...... 40332.L,V...J.. L...T
..:. "CONFLICT SYMBOL (0-127) ";V:. V.0
. V.127 . 2260.<.... 40331,V.|....:. "US
E UNIT MPVE ASM (Y/N) ";K$:. K$.."Y" . K
$.."N". 2300...... K$."N" . . 40340,0:MT
.0:. 2500......:. "MAX NUMBER OF TERRAIN
(1-127) ";V:. V.1 . V.127 . 2320.....MT
.V:. 40340,V...D........:." INITIALIZ
E SQR PAC".*....:."LOW";LM.<...."HIGH 39
167".Q.... **SET VARIBLES._.... L.0 . 4.
..... K$."N" . L.2 . L(L).0:.2650......"
ADDRESS FOR ";NA$(L)" : ";...... V:S(L).
V.S.(.. 110:. ME(L),V1:. ME(L).1,V2...-.
. L.1 . . "# OF SHAPES USED (1-128) ";V:
SH.V:L(L).V.8.,./.. L.1 . L(L).(MX.1).(M
Y.1).B.2.. L.2 . L(L).UN.4.X.4.. L.3 . L
(L).MT.4.N.7.. L.4 . L(L).UN.7...F.. 300
0:. Z.0 . ."MEMORY OVERLAP":.:. 2570...P
.E(L).S(L).L(L).1...U.."MEM USED FROM ";
S(L);"TO"E(L)"("L(L)")"...Z.. L...D.. 10
00...... ** IS MEM CONFLICTING...L.Z.0.6
.Q.. S(L).L(L).1.39167 . Z.1:..L.V.. S(L
).LM . Z.1:..Z.... L.0 . ....... L1.0 .
L.1:. S(L1)..S(L)..S(L1).L(L1).1..S(L).Z
.1...... S(L1).S(L)..S(L).L(L).1..S(L1).
Z.1.E.... L1.K....... .. ** LOAD INIT D
ATA......C$...R..:." LOAD INIT DATA"..
...N$."":.:. "NAME OF INIT FILE : ";N$.=
.... N$."". ..R...FI.39808:. 20000......
L.0 . 4:S(L).B(MEM(L)).B(MEM(L).1).256:
. L.....MX.B(40338):MY.B(40339).....PL.B
(40330).Z...UN.0:. L.0 . PL.1:UN.UN.B(40
326.L):. L...".MT.B(40340)...... L.0 . 4
.,.... L.0 . .:. "# OF SHAPES USED ";V:S
H.V:L(L).V.8.K.... L.1 . L(L).(MX.1).(MY
.1).A.... L.2 . L(L).UN.4...... MT.0 . L
.2 . S(L).0:. 4700...... L.3 . L(L).MT.4
... .. L.4 . L(L).UN.7.C.*.E(L).S(L).L(L
).1.K.\.. L.Q.......... ** MODIEFY TER I
TEMS......C$...D..:."TERRAIN HGT,BASEHGT
,VIS & SHAPE".#.N...H.X..L.0.3:.L.1;") "
DF$(L)" DEFAULT :";:X$."CHANGE":.DF(L).X
$."SKIP".T....X$:. L......:."CHANGE ONE
TERRAIN VALUE"......"(N)EW VALUES FOR MA
NY TERRAIN".X...."(R)ETURN TO MAIN MENU"
...P..:."SELECT :";:. 115...... K$."R" .
1000.<.... K$."0" . K$."5" . V.E(K$).1:
DF(V).(DF(V).0).(.1).O.H.. K$."C". 5500.
`.R..K$."N".5520.K.... 5000...|..:. "CHA
NGE TERRAIN (0-127) ";Z:. Z.0 . Z.127 .5
000.....Z1.Z:. 5600......:."CHANGE FROM
(0-127) ";Z:. Z.0 . Z.127 . 5000......"T
O (";Z;"-127) ";:. Z1:. Z1.Z . Z1.127 .
5520.+.... L.Z . Z1.G...."SHAPE #";L:. L
1.0 . 3.\.... DF(L1).0. 5660......DF$(L1
);" OLD ";B(39808.L1.128.L);" NEW ";:X$.
"":. X$......C(X$).1. 5660.I...V.E(X$):.
39808.L1.128.L,V.T.... L1:....&..L...0.
. 5000...P.. ** CLEAR UNIT DATA.*.U..C$:
.:." MOVING UNITS OFF MAP ...":..;.Z..
L.0 . UN.1.W...Z.S(2).L.4:.Z,255:.Z.1,2
55:.Z.3,0:.MT.1..S(4).L.7.4,255...... ".
";:. L:..........X.. ** ASSIGN SHAPES TO
UNITS......C$.P....:." UNIT SHAPES"
.V.........."(L)IST UNITS AND SHAPES"...
..." MAKE CHANGES ON"......"(O)NE UNIT".
3.F.."(M)ANY UNITS".\.K.."(D)EFAULT SHAP
E ";DS;"(>255 NONE)".{.P..:."(R)ETURN TO
MAIN MENU"... ..:."SELECT ";:. 115.....
. K$."L" . . 22000...... K$."R" . ..O...
. K$."O" . 7550...... K$."M" . 7600.....
.K$."D"..:."NEW SHAPE ";X$:.C(X$).V.E(X$
).8.... K$."D" . . V.0 . V.9999. DS..(V)
.C.L.. 7000.O.~..:."CHANGE UNIT #";Z:.Z.
0.Z.UN.1 . 7000....Z1.Z:. 7700......:.
"CHANGE FROM UNIT #";Z:.Z.0.Z.UN.1. 7000
...... "TO UNIT #";Z1:. Z1.Z . Z1.UN.1 .
7000...... L.Z . Z1...... DS..0 . DS..2
55 . V.DS:. 7730.N...."UNIT #";L;" OLD S
HAPE ";B(S(2).L.4.2);:."NEW SHAPE ";X$.B
.(.. C(X$).1. 7740...-.V.E(X$):. V.0 . V
.255 . 7710...2.. S(2).L.4.2,V...<.. L..
.F.. 7000...@.. TERRAIN COST.D.T..C$...^
.. MT.1. .:."NOT IN USE":. 23000:.......
C$......:."CHANGE MOVEMENT COSTS".2....:
."(L)IST MOVE COST TABLES".V.B..:." CHAN
GE MOVEMENT COSTS FOR".H.L.."(O)NE UNIT"
.|.V.."(M)ANY UNITS"......:."(R)ETURN TO
MAIN MENU".... .:."SELECT :";:. 115:.K$
.I.: . K$."R" . ....D . K$."L" . 8410...
N . K$."O" . 8500...X . K$."M" . 8550...
P . 8100...Z Z.0.4.. . L.0 . 3:. L1.0 .
MT.1.F.. ..Z. .C$:. "TERRAIN# MOVECOST (
TABLE #";L;")".... .214,1.Z:.:.211,2:.L1
:.211,11:.B(S(3).L.MT.L1).B..!Z.Z.1:. Z.
20 . L1.MT.1 . Z.0:. 23000.V..!. L1:. L:
. 8100...4!.:."CHANGE TERRAIN (0-"MT.1")
";:.Z:.Z.0.Z.MT.1.8100.B.>!. "ON TABLE
(0-3) ";Z1:. Z1.0 . Z1.MT.1 . 8500.R.H!Z
2.Z:. 8600...F!.:."CHANGE TERRAIN ON TAB
LE (0-3) ";Z1:. Z1.0 . Z1.3 . 8100...P!Z
.0:Z2.MT.1....!.C$.H..!.:."TERRAIN TABLE
#";Z1:..W..!. L.Z . Z2....!X$."".( .!."
TERRAIN #"L:."OLD MOVECOST"B(S(3).Z1.MT.
L);:." NEW MOVECOST ";X$.; .!.C(X$).1. 8
660.\ J!V.E(X$):. V.0 . V.255 . 8630.Q O
!. S(3).Z1.MT.L,V.Y T!. L.. .!. 8100.. (
#. DELETE & CATALG.. 2#.C$:N$."".. <#. "
NAME TO DELETE FILE, &CAT TO":. "CATALOG
:";N$.. F#. N$."" . ...!P#. N$."&CAT" .
9500..!Z#N$."S0:".N$.#!D#. 15,8,15..!N#
.15,N$.7!X# 15.B!.#. 9000.Z!.%.".";:.15
,8,15,"I0".M!&%.15,Z,Z$,Z1,Z2.}!0%.Z..0.
9000..!:%N$.G(0):.1,8,0,"$0":.#1,Z1$,Z1
$:. 9560.R!D%.#1,Z1$,Z2$:.F(Z1$.N$).F(Z2
$.N$).256;..!N%.#1,Z1$:.Z1$..""..Z1$;:.
9550.."X%.:.#1,Z1$,Z1$:.Z1$.."".9540.="B
% 1: 15:.:."PRESS A KEY":. 115:. 9000.C"
L%..[".'. ** SAVE INIT DATA.C"B'.C$.|"L'
."SAVE INIT DATA ":..."V'N$."":. "SAVE F
ILE :";N$:. N$."". ...".'FI.39808..".'EN
.40447.J".'. 21000.P".'...".*. ** LOAD A
BINARY FILE..#4+."LOAD BINARY FILE":.."
#>+N$."":."LOAD FILE :";N$.1#H+.N$."" .
..N#R+A$."":. "LOAD TO ADDRESS ";A$:. A$
."0" . A$."99999" . ...#W+Z.E(A$):. Z.2
048 . Z.65535 . 11070..#\+FI.Z:. 20000..
#.+..G#... ** SAVE BINARY FILE.M#./...#
./."SAVE BINARY FILE"..$&/N$."":.:. "SAV
E FILE :";N$:. N$."". ..C$0/. "SAVE FROM
ADDRESS ";Z:. Z.2048 . Z.65535 . ..Z$:/
. "TO ADDRESS ";Z1:. Z1.2048 . Z1.65535
. Z1.Z . ...$D/FI.Z:EN.Z1:. 21000..$N/..
.$ N. ** LOAD BIN..$*NZ ..(FI.256):. 780
,15:. 781,8:. 782,0:. 65466..%4NL.C(N$):
. L1.1 . L:. 40447.L1,F(J(N$,L1,1)) :. L
1.7%>N. 780,L:. 781,0:. 782,158:. 65469.
D%HN. 780,0:. 781,FI.Z .256:. 782,Z :. 6
5493.J%RN..|%.R. ** BIN SAVE..%.RZ..(EN.
256):. 780,15:. 781,8:. 782,255:. 65466.
.%.RL.C(N$):. L1.1 . L:. 40447.L1,F(J(N$
,L1,1)):. L1..&&R. 780,L:. 781,0:. 782,1
58:. 65469./&0R. 780,251:. 781,EN.Z.256:
. 782,Z.B&:R. 251,FI..(FI.256).256:. 252
,.(FI.256):. 65496.H&DR...&.U. ** LIST U
NIT SHAPES..&"V.C$..&,VZ.0:L.0..&JV. K.8
1 . ...&TV.C$:."UNIT# SHAPE".N&^VZ1.L.4.
2.S(2)..&HV.L;:. 214,Z.1:.:. 211,8:.B(Z1
)..'RVL.L.1:Z.Z.1:. L.UN.1 . . 23000:..8
'|V. Z..20 . Z.0:. 23000:. 22090.D'.V. 2
2110.T'XY.:."PRESS ANY KEY TO CONTINUE";
:. 115:.K$:..Z'/U...'_....'`.. 15,8,15:.
15,"S0:DRAWINIT":."DRAWINIT",8: 15...
> CLICK IMAGE PREVIEW FOR FULL MODAL