DEFINE
FILE INFORMATION
FILENAME(S): DEFINE
FILE TYPE(S): PRG
FILE SIZE: 7.6K
FIRST SEEN: 2025-11-30 19:11:55
APPEARS ON: 2 disk(s)
FILE HASH
8b158fa3bc13006522e9c1e4046a2d137e45724e7830f6f72729f0609a2c1dcb
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| WARSHIP | DEFINE | PRG | Commodore 64 Extras | 17 | 4 | DOWNLOAD FILE |
| 0110A | DEFINE | PRG | hedning, Kaevlinge | 17 | 4 | 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 35 35 2C 30 3A 97 20 35 36 |2,48:. 55,0:. 56|
00000020: 2C 34 38 3A 9C 00 3B 08 14 00 43 48 B2 34 30 33 |,48:..;...CH.403|
00000030: 32 30 3A 4D 50 B2 34 30 33 32 32 00 49 08 1E 00 |20:MP.40322.I...|
00000040: 43 24 B2 C7 28 31 34 37 29 00 6F 08 23 00 96 20 |C$..(147).o.#.. |
00000050: A5 53 28 58 29 B2 C2 28 34 30 33 32 30 29 AA C2 |.S(X)..(40320)..|
00000060: 28 34 30 33 32 31 29 AC 32 35 36 AA 58 AC 38 00 |(40321).256.X.8.|
00000070: 79 08 63 00 89 20 35 30 30 00 8F 08 64 00 97 20 |y.c.. 500...d.. |
00000080: 32 35 31 2C 58 3A 97 20 32 35 32 2C 59 3A 8E 00 |251,X:. 252,Y:..|
00000090: A7 08 69 00 58 B2 C2 28 32 35 31 29 3A 59 B2 C2 |..i.X..(251):Y..|
000000A0: 28 32 35 32 29 3A 8E 00 C0 08 6E 00 9E 20 34 39 |(252):....n.. 49|
000000B0: 31 35 32 3A 8E 3A 8F 20 44 52 41 57 20 4D 41 50 |152:.:. DRAW MAP|
000000C0: 00 DE 08 73 00 8D 20 31 30 30 3A 9E 20 34 39 31 |...s.. 100:. 491|
000000D0: 38 38 3A 8E 3A 8F 20 49 4E 56 20 53 51 52 00 0E |88:.:. INV SQR..|
000000E0: 09 78 00 8D 31 30 30 3A 97 31 35 35 2C 32 35 35 |.x..100:.155,255|
000000F0: 3A 97 38 32 39 2C 44 AB 31 3A 97 38 33 34 2C 31 |:.829,D.1:.834,1|
00000100: 3A 9E 34 39 31 39 34 3A 8D 31 30 35 3A 8E 00 18 |:.49194:.105:...|
00000110: 09 7D 00 4B 24 B2 22 22 00 2F 09 82 00 A1 20 4B |.}.K$.""./.... K|
00000120: 24 3A 8B 20 4B 24 B2 22 22 20 A7 20 31 33 30 00 |$:. K$."" . 130.|
00000130: 48 09 87 00 4B B2 C6 28 4B 24 29 3A 8B 20 4B 24 |H...K..(K$):. K$|
00000140: B2 22 51 22 20 A7 20 90 00 4E 09 89 00 8E 00 6A |."Q" . ..N.....j|
00000150: 09 8C 00 9E 20 34 39 32 33 33 3A 8E 3A 8F 20 53 |.... 49233:.:. S|
00000160: 45 54 20 44 49 53 50 4C 41 59 00 87 09 91 00 9E |ET DISPLAY......|
00000170: 20 34 39 32 33 39 3A 8E 3A 8F 20 43 4C 52 20 54 | 49239:.:. CLR T|
00000180: 45 58 54 20 57 49 4E 00 A5 09 96 00 9E 20 34 39 |EXT WIN...... 49|
00000190: 32 33 36 3A 8E 3A 8F 20 53 45 54 20 46 55 4C 4C |236:.:. SET FULL|
000001A0: 20 54 45 58 54 00 D1 09 9B 00 8D 20 31 30 30 3A | TEXT...... 100:|
000001B0: 9E 20 34 39 31 37 39 3A 54 B2 C2 28 38 36 33 29 |. 49179:T..(863)|
000001C0: 3A 8E 3A 8F 20 57 48 41 54 20 54 45 52 52 41 49 |:.:. WHAT TERRAI|
000001D0: 4E 00 FA 09 A0 00 97 20 32 35 31 2C 58 31 3A 97 |N...... 251,X1:.|
000001E0: 32 35 32 2C 59 31 3A 9E 20 34 39 32 32 37 3A 8E |252,Y1:. 49227:.|
000001F0: 3A 8F 20 49 4E 56 20 4F 46 46 00 35 0A A5 00 5A |:. INV OFF.5...Z|
00000200: 35 B2 50 58 AC 38 AA 31 36 3A 97 35 33 32 34 38 |5.PX.8.16:.53248|
00000210: 2C 5A 35 AF 32 35 35 3A 97 35 33 32 36 34 2C B5 |,Z5.255:.53264,.|
00000220: 28 5A 35 AD 32 35 36 29 3A 8E 3A 8F 20 53 50 52 |(Z5.256):.:. SPR|
00000230: 49 54 45 20 58 00 5C 0A AA 00 97 20 35 33 32 34 |ITE X.\.... 5324|
00000240: 39 2C 50 59 AC 38 AA 34 36 3A 8E 3A 8F 20 20 20 |9,PY.8.46:.:. |
00000250: 20 20 20 20 53 50 52 49 54 45 20 59 00 6B 0A AF | SPRITE Y.k..|
00000260: 00 8F 20 53 50 52 49 54 45 20 3F 00 9B 0A C8 00 |.. SPRITE ?.....|
00000270: 56 B2 31 30 32 34 AA 56 59 AC 34 30 3A 8D 32 32 |V.1024.VY.40:.22|
00000280: 30 3A 97 32 30 39 2C 56 31 3A 97 32 31 30 2C 56 |0:.209,V1:.210,V|
00000290: 32 3A 97 32 31 34 2C 56 59 3A 8E 00 AA 0A CD 00 |2:.214,VY:......|
000002A0: 97 20 32 31 31 2C 56 58 3A 8E 00 BC 0A D2 00 8D |. 211,VX:.......|
000002B0: 20 32 30 30 3A 8D 20 32 30 35 3A 8E 00 F4 0A D7 | 200:. 205:.....|
000002C0: 00 9E 20 34 39 32 34 32 3A 97 34 30 37 30 34 2C |.. 49242:.40704,|
000002D0: 54 3A 9E 20 33 39 31 36 38 3A 8E 3A 8F 20 4D 4F |T:. 39168:.:. MO|
000002E0: 56 20 43 48 41 52 2C 20 42 49 54 20 4F 55 54 20 |V CHAR, BIT OUT |
000002F0: 43 48 41 52 00 12 0B DC 00 56 32 B2 B5 28 56 AD |CHAR.....V2..(V.|
00000300: 32 35 36 29 3A 56 31 B2 56 AB 56 32 AC 32 35 36 |256):V1.V.V2.256|
00000310: 3A 8E 00 18 0B F4 01 8F 00 2C 0B F9 01 99 22 4C |:........,...."L|
00000320: 4F 41 44 49 4E 47 20 49 4E 49 54 22 00 4D 0B FE |OADING INIT".M..|
00000330: 01 4E 24 B2 22 49 4E 49 54 2E 44 22 3A 46 49 B2 |.N$."INIT.D":FI.|
00000340: 33 39 38 30 38 3A 8D 20 32 30 30 30 30 00 61 0B |39808:. 20000.a.|
00000350: 03 02 99 22 4C 4F 41 44 49 4E 47 20 44 41 54 41 |..."LOADING DATA|
00000360: 22 00 82 0B 08 02 4E 24 B2 22 44 41 54 41 2E 44 |".....N$."DATA.D|
00000370: 22 3A 46 49 B2 31 34 33 33 36 3A 8D 20 32 30 30 |":FI.14336:. 200|
00000380: 30 30 00 9F 0B 0D 02 97 20 38 32 36 2C 30 3A 97 |00...... 826,0:.|
00000390: 38 32 37 2C 30 3A 8F 20 43 4F 52 4E 45 52 53 00 |827,0:. CORNERS.|
000003A0: AD 0B 0F 02 99 22 50 41 52 54 20 31 22 00 EA 0B |....."PART 1"...|
000003B0: 12 02 81 20 4C B2 33 35 30 37 32 20 A4 20 33 36 |... L.35072 . 36|
000003C0: 30 39 35 3A 97 4C 2C 30 3A 82 20 4C 3A 81 20 4C |095:.L,0:. L:. L|
000003D0: B2 33 36 30 39 36 20 A4 20 33 37 31 31 39 3A 97 |.36096 . 37119:.|
000003E0: 20 4C 2C 32 35 35 3A 82 20 4C 00 F8 0B 14 02 99 | L,255:. L......|
000003F0: 22 50 41 52 54 20 32 22 00 35 0C 17 02 81 20 4C |"PART 2".5.... L|
00000400: B2 33 37 31 32 30 20 A4 20 33 38 31 34 33 3A 97 |.37120 . 38143:.|
00000410: 4C 2C 30 3A 82 20 4C 3A 81 20 4C B2 33 38 31 34 |L,0:. L:. L.3814|
00000420: 34 20 A4 20 33 39 31 36 37 3A 97 20 4C 2C 32 35 |4 . 39167:. L,25|
00000430: 35 3A 82 20 4C 00 54 0C 1C 02 8F 20 44 45 46 49 |5:. L.T.... DEFI|
00000440: 4E 45 20 42 41 53 45 20 43 48 41 52 41 43 54 45 |NE BASE CHARACTE|
00000450: 52 53 20 5E 00 6A 0C 1E 02 99 22 4C 4F 41 44 49 |RS ^.j...."LOADI|
00000460: 4E 47 20 44 52 41 57 2E 46 22 00 90 0C 21 02 4E |NG DRAW.F"...!.N|
00000470: 24 B2 22 44 52 41 57 2E 53 48 49 50 2E 4F 22 3A |$."DRAW.SHIP.O":|
00000480: 46 49 B2 34 39 31 35 32 3A 8D 20 32 30 30 30 30 |FI.49152:. 20000|
00000490: 00 B1 0C 26 02 4E 24 B2 22 42 49 54 53 2E 4F 22 |...&.N$."BITS.O"|
000004A0: 3A 46 49 B2 33 39 31 36 38 3A 8D 20 32 30 30 30 |:FI.39168:. 2000|
000004B0: 30 00 C7 0C 2B 02 8F 20 2A 2A 20 53 50 52 49 54 |0...+.. ** SPRIT|
000004C0: 45 20 53 45 54 55 50 00 E5 0C 30 02 97 20 35 39 |E SETUP...0.. 59|
000004D0: 33 38 34 2C 32 32 34 3A 8F 20 53 20 30 20 50 4F |384,224:. S 0 PO|
000004E0: 49 4E 54 45 52 00 00 0D 35 02 97 20 35 33 32 36 |INTER...5.. 5326|
000004F0: 39 2C 31 3A 8F 20 45 4E 41 42 4C 45 20 53 20 30 |9,1:. ENABLE S 0|
00000500: 00 1A 0D 3A 02 97 20 35 33 32 38 37 2C 37 3A 8F |...:.. 53287,7:.|
00000510: 20 53 20 30 20 43 4F 4C 4F 52 00 3C 0D 3C 02 5A | S 0 COLOR.<.<.Z|
00000520: B2 36 33 34 38 38 3A 81 20 4C B2 5A 20 A4 20 5A |.63488:. L.Z . Z|
00000530: AA 36 32 3A 97 4C 2C 30 3A 82 20 4C 00 59 0D 3F |.62:.L,0:. L.Y.?|
00000540: 02 81 4C B2 5A AA 31 A4 5A AA 34 36 A9 33 3A 97 |..L.Z.1.Z.46.3:.|
00000550: 20 4C 2C 32 34 3A 82 20 4C 00 76 0D 44 02 81 4C | L,24:. L.v.D..L|
00000560: B2 5A AA 31 36 A4 5A AA 33 31 A9 33 3A 97 4C 2C |.Z.16.Z.31.3:.L,|
00000570: 31 39 35 3A 82 4C 00 B4 0D 49 02 97 5A AA 31 33 |195:.L...I..Z.13|
00000580: 2C 32 35 35 3A 97 5A AA 33 34 2C 32 35 35 3A 97 |,255:.Z.34,255:.|
00000590: 5A AA 32 31 2C 31 35 3A 97 5A AA 32 34 2C 31 35 |Z.21,15:.Z.24,15|
000005A0: 3A 97 5A AA 32 33 2C 32 32 34 3A 97 5A AA 32 36 |:.Z.23,224:.Z.26|
000005B0: 2C 32 32 34 00 C9 0D 4E 02 8F 20 53 50 52 49 54 |,224...N.. SPRIT|
000005C0: 45 20 53 48 41 50 45 20 5E 00 DF 0D 53 02 97 20 |E SHAPE ^...S.. |
000005D0: 38 33 31 2C 30 3A 97 20 35 33 32 34 39 2C 30 00 |831,0:. 53249,0.|
000005E0: 08 0E 58 02 97 20 35 33 32 37 30 2C C2 28 35 33 |..X.. 53270,.(53|
000005F0: 32 37 30 29 B0 31 36 3A 8F 20 4D 55 4C 54 49 20 |270).16:. MULTI |
00000600: 43 4F 4C 4F 52 20 4F 4E 00 1C 0E 5D 02 97 20 36 |COLOR ON...].. 6|
00000610: 34 36 2C 31 3A 97 20 36 34 37 2C 31 00 31 0E 62 |46,1:. 647,1.1.b|
00000620: 02 5A B2 33 35 30 37 32 3A 5A 31 B2 33 37 31 32 |.Z.35072:Z1.3712|
00000630: 30 00 70 0E 67 02 81 4C B2 31 30 31 36 A4 31 30 |0.p.g..L.1016.10|
00000640: 32 33 3A 97 5A AA 4C 2C 38 35 3A 97 5A 31 AA 4C |23:.Z.L,85:.Z1.L|
00000650: 2C 38 35 3A 97 5A AA 4C AA 31 30 32 34 2C 31 37 |,85:.Z.L.1024,17|
00000660: 30 3A 97 5A 31 AA 4C AA 31 30 32 34 2C 31 37 30 |0:.Z1.L.1024,170|
00000670: 00 78 0E 6C 02 82 20 4C 00 86 0E 71 02 97 20 35 |.x.l.. L...q.. 5|
00000680: 33 32 38 31 2C 30 00 92 0E 76 02 9E 20 34 39 32 |3281,0...v.. 492|
00000690: 34 32 00 A0 0E 7B 02 97 20 36 35 30 2C 31 32 38 |42...{.. 650,128|
000006A0: 00 AC 0E E8 03 99 43 24 3A 99 3A 99 00 C4 0E 1A |......C$:.:.....|
000006B0: 04 99 22 28 44 29 45 46 49 4E 45 20 41 20 53 48 |.."(D)EFINE A SH|
000006C0: 41 50 45 22 00 DC 0E 24 04 99 22 28 4C 29 4F 41 |APE"...$.."(L)OA|
000006D0: 44 20 49 4E 20 53 48 41 50 45 53 22 00 F1 0E 2E |D IN SHAPES"....|
000006E0: 04 99 22 28 53 29 41 56 45 20 53 48 41 50 45 53 |.."(S)AVE SHAPES|
000006F0: 22 00 10 0F 38 04 99 22 28 52 29 45 41 44 20 49 |"...8.."(R)EAD I|
00000700: 4E 20 43 48 41 52 41 43 54 45 52 20 53 45 54 22 |N CHARACTER SET"|
00000710: 00 31 0F 42 04 99 22 28 57 29 52 49 54 45 20 4F |.1.B.."(W)RITE O|
00000720: 55 54 20 43 48 41 52 41 43 54 45 52 20 53 45 54 |UT CHARACTER SET|
00000730: 22 00 6A 0F 4C 04 99 22 28 30 29 20 43 4F 4C 4F |".j.L.."(0) COLO|
00000740: 52 20 52 45 47 49 53 54 45 52 20 28 22 3B C2 28 |R REGISTER (";.(|
00000750: 35 33 32 38 31 29 AF 31 35 3B 22 29 20 28 42 41 |53281).15;") (BA|
00000760: 43 4B 47 52 4F 55 4E 44 29 22 00 96 0F 56 04 99 |CKGROUND)"...V..|
00000770: 22 28 31 29 20 43 4F 4C 4F 52 20 52 45 47 49 53 |"(1) COLOR REGIS|
00000780: 54 45 52 20 28 22 3B C2 28 35 33 32 38 32 29 AF |TER (";.(53282).|
00000790: 31 35 3B 22 29 22 00 C2 0F 60 04 99 22 28 32 29 |15;")"...`.."(2)|
000007A0: 20 43 4F 4C 4F 52 20 52 45 47 49 53 54 45 52 20 | COLOR REGISTER |
000007B0: 28 22 3B C2 28 35 33 32 38 33 29 AF 31 35 3B 22 |(";.(53283).15;"|
000007C0: 29 22 00 EF 0F 6A 04 99 22 28 43 29 4F 4C 4F 52 |)"...j.."(C)OLOR|
000007D0: 20 4F 46 20 43 48 41 52 41 43 54 45 52 53 20 28 | OF CHARACTERS (|
000007E0: 22 3B C2 28 36 34 36 29 AF 31 35 3B 22 29 22 00 |";.(646).15;")".|
000007F0: 0F 10 74 04 99 22 28 58 29 20 2D 20 44 45 4C 45 |..t.."(X) - DELE|
00000800: 54 45 20 41 4E 44 20 43 41 54 41 4C 4F 47 22 00 |TE AND CATALOG".|
00000810: 2C 10 B0 04 99 3A 99 22 28 45 29 58 49 54 20 46 |,....:."(E)XIT F|
00000820: 52 4F 4D 20 50 52 4F 47 52 41 4D 22 00 46 10 14 |ROM PROGRAM".F..|
00000830: 05 99 3A 99 22 53 45 4C 45 43 54 20 4F 50 54 49 |..:."SELECT OPTI|
00000840: 4F 4E 20 3A 22 3B 00 54 10 1E 05 8D 20 31 32 35 |ON :";.T.... 125|
00000850: 3A 99 4B 24 00 69 10 78 05 8B 20 4B 24 B2 22 4C |:.K$.i.x.. K$."L|
00000860: 22 20 A7 20 31 30 30 30 30 00 7E 10 82 05 8B 20 |" . 10000.~.... |
00000870: 4B 24 B2 22 52 22 20 A7 20 31 31 30 30 30 00 93 |K$."R" . 11000..|
00000880: 10 8C 05 8B 20 4B 24 B2 22 53 22 20 A7 20 31 32 |.... K$."S" . 12|
00000890: 30 30 30 00 A8 10 96 05 8B 20 4B 24 B2 22 57 22 |000...... K$."W"|
000008A0: 20 A7 20 31 33 30 30 30 00 B9 10 A0 05 8B 20 4B | . 13000...... K|
000008B0: 24 B2 22 45 22 20 A7 20 80 00 CD 10 AA 05 8B 20 |$."E" . ....... |
000008C0: 4B 24 B2 22 44 22 20 A7 20 32 30 30 30 00 EE 10 |K$."D" . 2000...|
000008D0: B4 05 8B 20 4B 24 B2 22 30 22 20 A7 20 8D 20 32 |... K$."0" . . 2|
000008E0: 32 30 30 30 3A 97 20 35 33 32 38 31 2C 5A 00 0F |2000:. 53281,Z..|
000008F0: 11 BE 05 8B 20 4B 24 B2 22 31 22 20 A7 20 8D 20 |.... K$."1" . . |
00000900: 32 32 30 30 30 3A 97 20 35 33 32 38 32 2C 5A 00 |22000:. 53282,Z.|
00000910: 30 11 C8 05 8B 20 4B 24 B2 22 32 22 20 A7 20 8D |0.... K$."2" . .|
00000920: 20 32 32 30 30 30 3A 97 20 35 33 32 38 33 2C 5A | 22000:. 53283,Z|
00000930: 00 57 11 D2 05 8B 20 4B 24 B2 22 43 22 20 A7 20 |.W.... K$."C" . |
00000940: 8D 20 32 32 30 30 30 3A 97 20 36 34 36 2C 5A 3A |. 22000:. 646,Z:|
00000950: 97 20 36 34 37 2C 5A 00 6D 11 DC 05 8B 20 4B 24 |. 647,Z.m.... K$|
00000960: B2 22 58 22 20 A7 20 8D 20 38 30 30 30 00 78 11 |."X" . . 8000.x.|
00000970: 40 06 89 20 31 30 30 30 00 85 11 D0 07 8F 20 44 |@.. 1000...... D|
00000980: 45 46 49 4E 45 00 91 11 DA 07 58 B2 30 3A 59 B2 |EFINE.....X.0:Y.|
00000990: 30 00 A6 11 02 08 8D 31 34 30 3A 8D 20 31 31 30 |0......140:. 110|
000009A0: 3A 8D 20 31 34 35 00 E0 11 0C 08 56 58 B2 31 3A |:. 145.....VX.1:|
000009B0: 56 59 B2 32 30 3A 8D 32 31 30 3A 99 22 53 48 41 |VY.20:.210:."SHA|
000009C0: 50 45 20 23 22 3B 3A 56 58 B2 33 34 3A 8D 32 30 |PE #";:VX.34:.20|
000009D0: 35 3A 99 22 38 20 31 20 32 22 3A 8D 20 31 31 35 |5:."8 1 2":. 115|
000009E0: 00 20 12 16 08 56 58 B2 30 3A 56 59 B2 32 31 3A |. ...VX.0:VY.21:|
000009F0: 8D 32 31 30 3A 99 22 28 4D 29 4F 44 49 45 46 59 |.210:."(M)ODIEFY|
00000A00: 20 53 48 41 50 45 2C 20 28 52 29 45 54 55 52 4E | SHAPE, (R)ETURN|
00000A10: 20 54 4F 22 3B 3A 56 58 B2 33 34 3A 8D 32 30 35 | TO";:VX.34:.205|
00000A20: 00 2D 12 1B 08 99 22 37 20 20 20 33 22 00 63 12 |.-...."7 3".c.|
00000A30: 20 08 56 58 B2 31 3A 56 59 B2 32 32 3A 8D 32 31 | .VX.1:VY.22:.21|
00000A40: 30 3A 99 22 4D 41 49 4E 20 4D 45 4E 55 22 3B 3A |0:."MAIN MENU";:|
00000A50: 56 58 B2 33 34 3A 8D 32 30 35 3A 99 22 36 20 35 |VX.34:.205:."6 5|
00000A60: 20 34 22 00 8F 12 34 08 8D 20 31 35 35 3A 56 58 | 4"...4.. 155:VX|
00000A70: B2 38 3A 56 59 B2 32 30 3A 8D 32 31 30 3A 58 24 |.8:VY.20:.210:X$|
00000A80: B2 C4 28 54 29 AA 22 20 20 22 20 3A 99 58 24 00 |..(T)." " :.X$.|
00000A90: 99 12 3E 08 8D 20 31 32 35 00 B6 12 48 08 8B 20 |..>.. 125...H.. |
00000AA0: 4B 24 B1 22 30 22 20 AF 20 4B 24 B3 22 39 22 20 |K$."0" . K$."9" |
00000AB0: A7 20 32 33 30 30 00 DF 12 52 08 8B 20 4B 24 B2 |. 2300...R.. K$.|
00000AC0: 22 4D 22 20 A7 20 8D 20 33 30 30 30 3A 8D 20 31 |"M" . . 3000:. 1|
00000AD0: 34 35 3A 8D 20 31 31 30 3A 89 20 32 30 36 30 00 |45:. 110:. 2060.|
00000AE0: F4 12 5C 08 8B 20 4B 24 B3 B1 22 52 22 20 A7 20 |..\.. K$.."R" . |
00000AF0: 32 31 30 30 00 05 13 98 08 8D 20 31 35 30 3A 89 |2100...... 150:.|
00000B00: 20 31 30 30 30 00 1E 13 FC 08 44 B2 C5 28 4B 24 | 1000.....D..(K$|
00000B10: 29 3A 8D 20 31 32 30 3A 89 20 32 31 30 30 00 36 |):. 120:. 2100.6|
00000B20: 13 B8 0B 8F 20 2A 2A 20 4D 41 4B 45 20 43 48 41 |.... ** MAKE CHA|
00000B30: 52 41 43 54 45 52 00 4A 13 C2 0B 58 31 B2 58 3A |RACTER.J...X1.X:|
00000B40: 59 31 B2 59 3A 8D 20 31 36 30 00 6D 13 CC 0B 5A |Y1.Y:. 160.m...Z|
00000B50: B2 A5 53 28 54 29 3A 81 4C B2 30 A4 33 3A 50 54 |..S(T):.L.0.3:PT|
00000B60: 28 4C 29 B2 C2 28 5A AA 4C 29 3A 82 4C 00 75 13 |(L)..(Z.L):.L.u.|
00000B70: EA 0B 99 43 24 00 8D 13 F4 0B 97 20 31 35 33 36 |...C$...... 1536|
00000B80: 30 2C 54 3A 58 31 B2 30 3A 59 31 B2 30 00 AB 13 |0,T:X1.0:Y1.0...|
00000B90: FE 0B 8D 20 32 31 35 3A 8D 20 31 36 30 3A 8F 20 |... 215:. 160:. |
00000BA0: 44 52 41 57 20 53 43 52 45 45 4E 00 B9 13 4E 0C |DRAW SCREEN...N.|
00000BB0: 8F 20 53 50 52 49 54 45 53 00 D9 13 58 0C 50 58 |. SPRITES...X.PX|
00000BC0: B2 32 34 3A 50 59 B2 30 3A 8D 20 31 36 35 3A 8D |.24:PY.0:. 165:.|
00000BD0: 20 31 37 30 3A 50 54 B2 30 00 E8 13 5D 0C 99 22 | 170:PT.0...].."|
00000BE0: 13 22 3A 8D 20 31 34 35 00 2A 14 62 0C 56 58 B2 |.":. 145.*.b.VX.|
00000BF0: 30 3A 56 59 B2 32 30 3A 8D 32 31 30 3A 99 22 28 |0:VY.20:.210:."(|
00000C00: 43 29 4F 4C 4F 52 2C 20 28 50 29 49 43 4B 20 4E |C)OLOR, (P)ICK N|
00000C10: 45 57 20 53 48 41 50 45 22 3B 3A 56 58 B2 33 36 |EW SHAPE";:VX.36|
00000C20: 3A 8D 32 30 35 3A 99 22 49 22 00 60 14 67 0C 99 |:.205:."I".`.g..|
00000C30: 22 28 52 29 45 50 4C 41 43 45 20 57 49 54 48 20 |"(R)EPLACE WITH |
00000C40: 4F 54 48 45 52 2C 28 5A 29 45 52 4F 22 3B 3A 56 |OTHER,(Z)ERO";:V|
00000C50: 58 B2 33 35 3A 8D 32 30 35 3A 99 22 4A 20 4B 22 |X.35:.205:."J K"|
00000C60: 00 97 14 6C 0C 99 22 20 43 48 41 52 41 43 54 45 |...l.." CHARACTE|
00000C70: 52 53 20 23 22 3B 3A 81 4C B2 30 A4 33 3A 99 50 |RS #";:.L.0.3:.P|
00000C80: 54 28 4C 29 3B 3A 82 3A 56 58 B2 33 36 3A 8D 32 |T(L);:.:VX.36:.2|
00000C90: 30 35 3A 99 22 4D 22 00 BB 14 71 0C 99 22 28 53 |05:."M"...q.."(S|
00000CA0: 50 43 29 20 54 55 52 4E 20 4F 4E 2F 4F 46 46 20 |PC) TURN ON/OFF |
00000CB0: 54 41 52 47 45 54 20 42 49 54 22 00 C5 14 80 0C |TARGET BIT".....|
00000CC0: 8D 20 31 32 35 00 E6 14 8A 0C 8B 20 4B 24 B2 22 |. 125...... K$."|
00000CD0: 50 22 A7 97 35 33 32 34 39 2C 30 3A 97 31 35 33 |P"..53249,0:.153|
00000CE0: 36 30 2C 30 3A 8E 00 1F 15 94 0C 8B 20 4B 24 B1 |60,0:....... K$.|
00000CF0: B2 22 30 22 AF 4B 24 B3 B2 22 39 22 A7 56 B2 C5 |."0".K$.."9".V..|
00000D00: 28 4B 24 29 3A 8B 56 B3 31 36 A7 97 31 34 33 34 |(K$):.V.16..1434|
00000D10: 30 AA 54 AC 38 AA 50 54 2C 56 3A 8D 32 31 35 00 |0.T.8.PT,V:.215.|
00000D20: 42 15 99 0C 8B 20 4B 24 B1 B2 22 30 22 AF 4B 24 |B.... K$.."0".K$|
00000D30: B3 B2 22 39 22 A7 8D 20 31 36 30 3A 89 20 33 31 |.."9".. 160:. 31|
00000D40: 36 35 00 80 15 9E 0C 8B 20 4B 24 B2 22 43 22 A7 |65...... K$."C".|
00000D50: 9E 34 39 32 33 39 3A 56 58 B2 30 3A 56 59 B2 32 |.49239:VX.0:VY.2|
00000D60: 30 3A 8D 32 31 30 3A 85 22 43 4F 4C 4F 52 20 28 |0:.210:."COLOR (|
00000D70: 30 2D 31 35 29 20 22 3B 4B 24 3A 89 33 32 32 30 |0-15) ";K$:.3220|
00000D80: 00 AE 15 A8 0C 8B 20 4B 24 B2 22 49 22 A7 8B 50 |...... K$."I"..P|
00000D90: 59 B1 30 A7 50 59 B2 50 59 AB 31 3A 8D 31 37 30 |Y.0.PY.PY.1:.170|
00000DA0: 3A 8B 50 59 B2 37 A7 50 54 B2 50 54 AB 32 00 DD |:.PY.7.PT.PT.2..|
00000DB0: 15 B2 0C 8B 20 4B 24 B2 22 4D 22 A7 8B 50 59 B3 |.... K$."M"..PY.|
00000DC0: 31 35 A7 50 59 B2 50 59 AA 31 3A 8D 31 37 30 3A |15.PY.PY.1:.170:|
00000DD0: 8B 50 59 B2 38 A7 50 54 B2 50 54 AA 32 00 0C 16 |.PY.8.PT.PT.2...|
00000DE0: BC 0C 8B 4B 24 B2 22 4B 22 A7 8B 50 58 B3 33 39 |...K$."K"..PX.39|
00000DF0: A7 50 58 B2 50 58 AA 31 3A 8D 31 36 35 3A 8B 50 |.PX.PX.1:.165:.P|
00000E00: 58 B2 33 32 A7 50 54 B2 50 54 AA 31 00 3C 16 C6 |X.32.PT.PT.1.<..|
00000E10: 0C 8B 20 4B 24 B2 22 4A 22 A7 8B 50 58 B1 32 34 |.. K$."J"..PX.24|
00000E20: A7 50 58 B2 50 58 AB 31 3A 8D 31 36 35 3A 8B 50 |.PX.PX.1:.165:.P|
00000E30: 58 B2 33 31 A7 50 54 B2 50 54 AB 31 00 4F 16 CB |X.31.PT.PT.1.O..|
00000E40: 0C 8B 20 4B 24 B2 22 20 22 A7 8D 34 30 30 30 00 |.. K$." "..4000.|
00000E50: 64 16 D0 0C 8B 20 4B 24 B2 22 5A 22 20 A7 20 8D |d.... K$."Z" . .|
00000E60: 34 32 30 30 00 78 16 D5 0C 8B 20 4B 24 B2 22 52 |4200.x.... K$."R|
00000E70: 22 20 A7 20 34 33 30 30 00 8C 16 DA 0C 8B 20 4B |" . 4300...... K|
00000E80: 24 B2 22 4E 22 20 A7 20 35 30 30 30 00 97 16 E4 |$."N" . 5000....|
00000E90: 0C 89 20 33 32 30 30 00 A8 16 A0 0F 8F 20 43 48 |.. 3200...... CH|
00000EA0: 41 4E 47 45 20 42 49 54 00 CD 16 AA 0F 5A B2 50 |ANGE BIT.....Z.P|
00000EB0: 54 28 50 54 29 3A 5A 31 B2 33 35 30 37 32 3A 8B |T(PT):Z1.35072:.|
00000EC0: 50 54 B1 31 A7 5A 31 B2 33 37 31 32 30 00 EB 16 |PT.1.Z1.37120...|
00000ED0: B4 0F 5A 31 B2 5A 31 AA 5A AC 38 AA 28 50 59 AF |..Z1.Z1.Z.8.(PY.|
00000EE0: 37 29 3A 5A 32 B2 C2 28 5A 31 29 00 04 17 BE 0F |7):Z2..(Z1).....|
00000EF0: 5A 33 B2 28 50 58 AB 32 34 29 AF 37 3A 5A 33 B2 |Z3.(PX.24).7:Z3.|
00000F00: 37 AB 5A 33 00 2D 17 C8 0F 5A 34 B2 5A 32 AF 28 |7.Z3.-...Z4.Z2.(|
00000F10: 32 AE 5A 33 29 3A 8B 5A 34 B3 31 A7 5A 32 B2 5A |2.Z3):.Z4.1.Z2.Z|
00000F20: 32 AA 32 AE 5A 33 3A 89 20 34 30 36 30 00 3C 17 |2.2.Z3:. 4060.<.|
00000F30: D2 0F 5A 32 B2 5A 32 AB 32 AE 5A 33 00 48 17 DC |..Z2.Z2.2.Z3.H..|
00000F40: 0F 97 20 5A 31 2C 5A 32 00 5D 17 E6 0F 8F 20 43 |.. Z1,Z2.].... C|
00000F50: 48 41 4E 47 45 20 49 4E 56 45 52 53 45 00 6C 17 |HANGE INVERSE.l.|
00000F60: F0 0F 5A 31 B2 5A 31 AA 31 30 32 34 00 82 17 FA |..Z1.Z1.1024....|
00000F70: 0F 5A 32 B2 32 35 35 AB 5A 32 3A 97 20 5A 31 2C |.Z2.255.Z2:. Z1,|
00000F80: 5A 32 00 93 17 04 10 8D 20 32 31 35 3A 8D 31 36 |Z2...... 215:.16|
00000F90: 30 3A 8E 00 A9 17 68 10 81 20 4C B2 30 20 A4 20 |0:....h.. L.0 . |
00000FA0: 33 3A 5A B2 50 54 28 4C 29 00 C8 17 72 10 5A 31 |3:Z.PT(L)...r.Z1|
00000FB0: B2 33 35 30 37 32 3A 8B 20 20 4C B1 31 20 A7 20 |.35072:. L.1 . |
00000FC0: 5A 31 B2 33 37 31 32 30 00 E6 17 7C 10 5A 32 B2 |Z1.37120...|.Z2.|
00000FD0: 5A 31 AA 5A AC 38 3A 5A 33 B2 5A 31 AA 5A AC 38 |Z1.Z.8:Z3.Z1.Z.8|
00000FE0: AA 31 32 38 AC 38 00 0A 18 81 10 81 4C 31 B2 30 |.128.8......L1.0|
00000FF0: A4 37 3A 97 5A 32 AA 4C 31 2C 30 3A 97 5A 33 AA |.7:.Z2.L1,0:.Z3.|
00001000: 4C 31 2C 32 35 35 3A 82 4C 31 00 12 18 86 10 82 |L1,255:.L1......|
00001010: 20 4C 00 24 18 90 10 8D 20 32 31 35 3A 8D 20 31 | L.$.... 215:. 1|
00001020: 36 30 3A 8E 00 3C 18 CC 10 9E 20 34 39 32 33 39 |60:..<.... 49239|
00001030: 3A 56 59 B2 32 30 3A 8D 20 32 30 30 00 71 18 D6 |:VY.20:. 200.q..|
00001040: 10 85 20 22 43 4F 50 59 20 46 52 4F 4D 20 53 48 |.. "COPY FROM SH|
00001050: 41 50 45 20 28 30 2D 31 32 37 29 20 22 3B 5A 3A |APE (0-127) ";Z:|
00001060: 8B 20 5A B3 30 20 B0 20 5A B1 31 32 37 20 A7 20 |. Z.0 . Z.127 . |
00001070: 8E 00 97 18 E0 10 81 4C B2 30 A4 33 3A 5A 31 B2 |.......L.0.3:Z1.|
00001080: 50 54 28 4C 29 3A 5A 32 B2 C2 28 31 34 33 33 36 |PT(L):Z2..(14336|
00001090: AA 5A AC 38 AA 4C 29 00 B4 18 EA 10 5A 33 B2 33 |.Z.8.L).....Z3.3|
000010A0: 35 30 37 32 3A 8B 4C B1 31 20 A7 20 5A 33 B2 33 |5072:.L.1 . Z3.3|
000010B0: 37 31 32 30 00 DF 18 F4 10 5A 34 B2 5A 33 AA 5A |7120.....Z4.Z3.Z|
000010C0: 31 AC 38 3A 5A 35 B2 5A 33 AA 5A 32 AC 38 3A 5A |1.8:Z5.Z3.Z2.8:Z|
000010D0: 36 B2 5A 33 AA 5A 31 AC 38 AA 31 32 38 AC 38 00 |6.Z3.Z1.8.128.8.|
000010E0: 16 19 FE 10 81 4C 31 B2 30 20 A4 20 37 3A 5A 38 |.....L1.0 . 7:Z8|
000010F0: B2 C2 28 5A 35 AA 4C 31 29 3A 97 5A 34 AA 4C 31 |..(Z5.L1):.Z4.L1|
00001100: 2C 5A 38 3A 97 5A 36 AA 4C 31 2C 32 35 35 AB 5A |,Z8:.Z6.L1,255.Z|
00001110: 38 3A 82 20 4C 31 00 1D 19 08 11 82 4C 00 34 19 |8:. L1......L.4.|
00001120: 12 11 8D 20 32 31 35 3A 8D 20 31 36 30 3A 89 20 |... 215:. 160:. |
00001130: 33 31 36 35 00 4F 19 88 13 8F 20 2A 2A 20 43 48 |3165.O.... ** CH|
00001140: 41 4E 47 45 20 43 48 41 52 41 43 54 45 52 53 00 |ANGE CHARACTERS.|
00001150: 64 19 92 13 5A B2 35 38 33 36 38 3A 5A 33 B2 35 |d...Z.58368:Z3.5|
00001160: 35 32 39 36 00 99 19 BA 13 5A 39 B2 C2 28 36 34 |5296.....Z9..(64|
00001170: 36 29 AF 31 35 3A 97 36 34 36 2C 30 3A 97 36 34 |6).15:.646,0:.64|
00001180: 37 2C 30 3A 99 43 24 3A 97 20 36 34 36 2C 5A 39 |7,0:.C$:. 646,Z9|
00001190: 3A 97 20 36 34 37 2C 5A 39 00 CF 19 CE 13 81 4C |:. 647,Z9......L|
000011A0: B2 30 A4 31 32 37 3A 97 5A AA B5 28 4C AD 33 32 |.0.127:.Z..(L.32|
000011B0: 29 AC 34 38 AA 4C 2C 4C 3A 97 5A 33 AA B5 28 4C |).48.L,L:.Z3..(L|
000011C0: AD 33 32 29 AC 34 38 AA 4C 2C 31 3A 82 20 4C 00 |.32).48.L,1:. L.|
000011D0: E3 19 D8 13 81 4C B2 30 A4 31 3A 5A 31 B2 50 54 |.....L.0.1:Z1.PT|
000011E0: 28 4C 29 00 07 1A DD 13 50 59 B2 B5 28 5A 31 AD |(L).....PY..(Z1.|
000011F0: 33 32 29 3A 50 58 B2 5A 31 AB 50 59 AC 33 32 3A |32):PX.Z1.PY.32:|
00001200: 50 59 B2 50 59 AC 32 00 1C 1A E2 13 8D 20 36 30 |PY.PY.2...... 60|
00001210: 30 30 3A 8D 31 36 35 3A 8D 31 37 30 00 3A 1A EC |00:.165:.170.:..|
00001220: 13 41 24 B2 C4 28 5A 31 29 3A 41 24 B2 C9 28 41 |.A$..(Z1):A$..(A|
00001230: 24 2C C3 28 41 24 29 AB 31 29 00 66 1A F6 13 8B |$,.(A$).1).f....|
00001240: 20 5A 31 B3 31 30 30 A7 20 41 24 B2 22 30 22 AA | Z1.100. A$."0".|
00001250: 41 24 3A 8B 20 5A 31 B3 31 30 20 A7 20 41 24 B2 |A$:. Z1.10 . A$.|
00001260: 22 30 22 AA 41 24 00 80 1A 00 14 56 58 B2 31 32 |"0".A$.....VX.12|
00001270: 3A 56 59 B2 32 32 3A 8D 20 32 31 30 3A 99 41 24 |:VY.22:. 210:.A$|
00001280: 00 91 1A 0A 14 8D 20 31 32 35 3A 8D 20 37 30 30 |...... 125:. 700|
00001290: 30 00 A3 1A 14 14 8B 20 5A 32 B2 30 20 A7 20 35 |0...... Z2.0 . 5|
000012A0: 31 30 30 00 B6 1A 19 14 8B 20 5A 32 B2 39 39 20 |100...... Z2.99 |
000012B0: A7 20 35 30 38 35 00 C3 1A 1E 14 50 54 28 4C 29 |. 5085.....PT(L)|
000012C0: B2 5A 31 00 CB 1A 28 14 82 20 4C 00 00 1B AE 15 |.Z1...(.. L.....|
000012D0: 5A 39 B2 C2 28 36 34 36 29 AF 31 35 3A 97 36 34 |Z9..(646).15:.64|
000012E0: 36 2C 30 3A 97 36 34 37 2C 30 3A 99 43 24 3A 97 |6,0:.647,0:.C$:.|
000012F0: 20 36 34 36 2C 5A 39 3A 97 20 36 34 37 2C 5A 39 | 646,Z9:. 647,Z9|
00001300: 00 3C 1B C2 15 81 4C B2 30 A4 31 32 37 3A 97 5A |.<....L.0.127:.Z|
00001310: AA B5 28 4C AD 33 32 29 AC 34 38 AA 4C AA 34 30 |..(L.32).48.L.40|
00001320: 2C 4C 3A 97 5A 33 AA B5 28 4C AD 33 32 29 AC 34 |,L:.Z3..(L.32).4|
00001330: 38 AA 4C AA 34 30 2C 31 3A 82 20 4C 00 50 1B CC |8.L.40,1:. L.P..|
00001340: 15 81 4C B2 32 A4 33 3A 5A 31 B2 50 54 28 4C 29 |..L.2.3:Z1.PT(L)|
00001350: 00 76 1B D1 15 50 59 B2 B5 28 5A 31 AD 33 32 29 |.v...PY..(Z1.32)|
00001360: 3A 50 58 B2 5A 31 AB 50 59 AC 33 32 3A 50 59 B2 |:PX.Z1.PY.32:PY.|
00001370: 50 59 AC 32 AA 31 00 8B 1B D6 15 8D 20 36 30 30 |PY.2.1...... 600|
00001380: 30 3A 8D 31 36 35 3A 8D 31 37 30 00 A9 1B E0 15 |0:.165:.170.....|
00001390: 41 24 B2 C4 28 5A 31 29 3A 41 24 B2 C9 28 41 24 |A$..(Z1):A$..(A$|
000013A0: 2C C3 28 41 24 29 AB 31 29 00 D5 1B EA 15 8B 20 |,.(A$).1)...... |
000013B0: 5A 31 B3 31 30 30 A7 20 41 24 B2 22 30 22 AA 41 |Z1.100. A$."0".A|
000013C0: 24 3A 8B 20 5A 31 B3 31 30 20 A7 20 41 24 B2 22 |$:. Z1.10 . A$."|
000013D0: 30 22 AA 41 24 00 EF 1B F4 15 56 58 B2 31 32 3A |0".A$.....VX.12:|
000013E0: 56 59 B2 32 32 3A 8D 20 32 31 30 3A 99 41 24 00 |VY.22:. 210:.A$.|
000013F0: 00 1C FE 15 8D 20 31 32 35 3A 8D 20 37 30 30 30 |..... 125:. 7000|
00001400: 00 11 1C 08 16 8B 20 5A 32 B2 30 A7 20 35 36 30 |...... Z2.0. 560|
00001410: 30 00 22 1C 0D 16 8B 5A 32 B2 39 39 20 A7 35 35 |0."....Z2.99 .55|
00001420: 38 35 00 2F 1C 12 16 50 54 28 4C 29 B2 5A 31 00 |85./...PT(L).Z1.|
00001430: 37 1C 1C 16 82 20 4C 00 59 1C 44 16 5A B2 A5 53 |7.... L.Y.D.Z..S|
00001440: 28 54 29 3A 81 4C B2 30 A4 33 3A 97 5A AA 4C 2C |(T):.L.0.3:.Z.L,|
00001450: 50 54 28 4C 29 3A 82 20 4C 00 64 1C 58 16 89 20 |PT(L):. L.d.X.. |
00001460: 33 30 30 30 00 79 1C 70 17 8F 20 2A 2A 20 54 45 |3000.y.p.. ** TE|
00001470: 58 54 20 57 49 4E 44 4F 57 00 95 1C 7A 17 9E 20 |XT WINDOW...z.. |
00001480: 34 39 32 33 39 3A 56 58 B2 30 3A 56 59 B2 32 30 |49239:VX.0:VY.20|
00001490: 3A 8D 32 31 30 00 C4 1C 84 17 99 22 43 48 41 52 |:.210......"CHAR|
000014A0: 41 43 54 45 52 20 50 4F 53 49 54 49 4F 4E 20 23 |ACTER POSITION #|
000014B0: 22 3B 4C 3B 3A 56 58 B2 33 36 3A 8D 32 30 35 3A |";L;:VX.36:.205:|
000014C0: 99 22 49 22 00 F9 1C 8E 17 99 22 28 50 29 49 43 |."I"......"(P)IC|
000014D0: 4B 20 4F 52 20 52 45 54 55 52 4E 20 54 4F 20 41 |K OR RETURN TO A|
000014E0: 43 43 45 50 54 22 3B 3A 56 58 B2 33 35 3A 8D 32 |CCEPT";:VX.35:.2|
000014F0: 30 35 3A 99 22 4A 20 4B 22 00 1D 1D 98 17 99 22 |05:."J K"......"|
00001500: 43 48 41 52 41 43 54 45 52 20 23 22 3B 3A 56 58 |CHARACTER #";:VX|
00001510: B2 33 36 3A 8D 32 30 35 3A 99 22 4D 22 00 23 1D |.36:.205:."M".#.|
00001520: AC 17 8E 00 35 1D 58 1B 8F 20 2A 2A 20 4D 4F 56 |....5.X.. ** MOV|
00001530: 45 4D 45 4E 54 00 59 1D 8A 1B 8B 20 4B 24 B2 22 |EMENT.Y.... K$."|
00001540: 49 22 A7 8B 50 59 B1 31 A7 50 59 B2 50 59 AB 32 |I"..PY.1.PY.PY.2|
00001550: 3A 5A 31 B2 5A 31 AB 33 32 00 80 1D 94 1B 8B 20 |:Z1.Z1.32...... |
00001560: 4B 24 B2 22 4A 22 A7 20 8B 20 50 58 B1 30 20 A7 |K$."J". . PX.0 .|
00001570: 20 50 58 B2 50 58 AB 31 3A 5A 31 B2 5A 31 AB 31 | PX.PX.1:Z1.Z1.1|
00001580: 00 A8 1D 9E 1B 8B 20 4B 24 B2 22 4B 22 20 A7 20 |...... K$."K" . |
00001590: 8B 50 58 B3 33 31 20 A7 20 50 58 B2 50 58 AA 31 |.PX.31 . PX.PX.1|
000015A0: 3A 5A 31 B2 5A 31 AA 31 00 D2 1D A8 1B 8B 20 4B |:Z1.Z1.1...... K|
000015B0: 24 B2 22 4D 22 20 A7 20 8B 20 50 59 B3 B2 35 20 |$."M" . . PY..5 |
000015C0: A7 20 50 59 B2 50 59 AA 32 3A 5A 31 B2 5A 31 AA |. PY.PY.2:Z1.Z1.|
000015D0: 33 32 00 E6 1D AD 1B 8B 20 4B 24 B2 22 50 22 20 |32...... K$."P" |
000015E0: A7 20 37 32 30 30 00 02 1E B2 1B 5A 32 B2 30 3A |. 7200.....Z2.0:|
000015F0: 8B 20 4B 24 B2 C7 28 31 33 29 20 A7 20 5A 32 B2 |. K$..(13) . Z2.|
00001600: AB 31 00 11 1E BC 1B 8D 20 31 36 35 3A 8D 31 37 |.1...... 165:.17|
00001610: 30 00 17 1E C6 1B 8E 00 32 1E 20 1C 9E 34 39 32 |0.......2. ..492|
00001620: 33 39 3A 56 58 B2 30 3A 56 59 B2 32 30 3A 8D 32 |39:VX.0:VY.20:.2|
00001630: 31 30 00 3C 1E 2A 1C 58 24 B2 22 22 00 5A 1E 34 |10.<.*.X$."".Z.4|
00001640: 1C 85 20 22 50 49 43 4B 20 50 41 52 54 20 28 30 |.. "PICK PART (0|
00001650: 2D 31 32 37 29 20 22 3B 58 24 00 6A 1E 3E 1C 8B |-127) ";X$.j.>..|
00001660: 20 58 24 B2 22 22 20 A7 20 8E 00 89 1E 48 1C 5A | X$."" . ....H.Z|
00001670: 31 B2 C5 28 58 24 29 3A 8B 5A 31 B3 30 B0 5A 31 |1..(X$):.Z1.0.Z1|
00001680: B1 31 32 37 A7 5A 31 B2 30 00 95 1E 52 1C 5A 32 |.127.Z1.0...R.Z2|
00001690: B2 39 39 3A 8E 00 AA 1E 40 1F 8F 20 2A 2A 20 44 |.99:....@.. ** D|
000016A0: 45 4C 45 54 45 20 46 49 4C 45 00 B4 1E 4A 1F 99 |ELETE FILE...J..|
000016B0: 43 24 3A 99 00 DC 1E 54 1F 99 22 26 43 41 54 20 |C$:....T.."&CAT |
000016C0: 54 4F 20 43 41 54 41 4C 4F 47 2C 20 52 45 54 55 |TO CATALOG, RETU|
000016D0: 52 4E 20 54 4F 20 51 55 49 54 2C 22 00 FE 1E 5E |RN TO QUIT,"...^|
000016E0: 1F 99 22 4F 52 20 41 20 46 49 4C 45 20 4E 41 4D |.."OR A FILE NAM|
000016F0: 45 20 54 4F 20 44 45 4C 45 54 45 22 3A 99 00 15 |E TO DELETE":...|
00001700: 1F 68 1F 4E 24 B2 22 22 3A 85 20 22 57 48 41 54 |.h.N$."":. "WHAT|
00001710: 20 22 3B 4E 24 00 25 1F 72 1F 8B 20 4E 24 B2 22 | ";N$.%.r.. N$."|
00001720: 22 20 A7 20 8E 00 3C 1F 7C 1F 8B 20 4E 24 B2 22 |" . ..<.|.. N$."|
00001730: 26 43 41 54 22 20 A7 20 38 35 30 30 00 4A 1F 86 |&CAT" . 8500.J..|
00001740: 1F 9F 20 31 35 2C 38 2C 31 35 00 5A 1F 90 1F 4E |.. 15,8,15.Z...N|
00001750: 24 B2 22 53 30 3A 22 AA 4E 24 00 69 1F 9A 1F 98 |$."S0:".N$.i....|
00001760: 31 35 2C 4E 24 3A A0 31 35 00 74 1F A4 1F 89 20 |15,N$:.15.t.... |
00001770: 31 30 30 30 00 8C 1F 34 21 99 22 93 22 3B 3A 9F |1000...4!.".";:.|
00001780: 31 35 2C 38 2C 31 35 2C 22 49 30 22 00 9F 1F 3E |15,8,15,"I0"...>|
00001790: 21 84 31 35 2C 5A 2C 5A 24 2C 5A 31 2C 5A 32 00 |!.15,Z,Z$,Z1,Z2.|
000017A0: AE 1F 48 21 8B 5A B3 B1 30 A7 38 30 30 30 00 D9 |..H!.Z..0.8000..|
000017B0: 1F 52 21 4E 24 B2 C7 28 30 29 3A 9F 31 2C 38 2C |.R!N$..(0):.1,8,|
000017C0: 30 2C 22 24 30 22 3A A1 23 31 2C 5A 31 24 2C 5A |0,"$0":.#1,Z1$,Z|
000017D0: 31 24 3A 89 20 38 35 36 30 00 03 20 5C 21 A1 23 |1$:. 8560.. \!.#|
000017E0: 31 2C 5A 31 24 2C 5A 32 24 3A 99 C6 28 5A 31 24 |1,Z1$,Z2$:..(Z1$|
000017F0: AA 4E 24 29 AA C6 28 5A 32 24 AA 4E 24 29 AC 32 |.N$)..(Z2$.N$).2|
00001800: 35 36 3B 00 24 20 66 21 A1 23 31 2C 5A 31 24 3A |56;.$ f!.#1,Z1$:|
00001810: 8B 5A 31 24 B3 B1 22 22 A7 99 5A 31 24 3B 3A 89 |.Z1$..""..Z1$;:.|
00001820: 38 35 35 30 00 44 20 70 21 99 3A A1 23 31 2C 5A |8550.D p!.:.#1,Z|
00001830: 31 24 2C 5A 31 24 3A 8B 5A 31 24 B3 B1 22 22 A7 |1$,Z1$:.Z1$.."".|
00001840: 38 35 34 30 00 56 20 7A 21 A0 31 3A A0 31 35 3A |8540.V z!.1:.15:|
00001850: 89 20 38 30 32 30 00 5C 20 98 21 90 00 62 20 0F |. 8020.\ .!..b .|
00001860: 27 80 00 74 20 10 27 8F 20 4C 4F 41 44 20 53 48 |'..t .'. LOAD SH|
00001870: 41 50 45 53 00 81 20 42 27 46 49 B2 31 34 33 33 |APES.. B'FI.1433|
00001880: 36 00 8D 20 4C 27 99 43 24 3A 99 3A 99 00 A0 20 |6.. L'.C$:.:... |
00001890: 56 27 99 22 4C 4F 41 44 20 53 48 41 50 45 53 22 |V'."LOAD SHAPES"|
000018A0: 00 C0 20 60 27 4E 24 B2 22 22 3A 85 20 22 4E 41 |.. `'N$."":. "NA|
000018B0: 4D 45 20 4F 46 20 46 49 4C 45 20 3A 22 3B 4E 24 |ME OF FILE :";N$|
000018C0: 00 D5 20 65 27 8B 20 C3 28 4E 24 29 B3 31 20 A7 |.. e'. .(N$).1 .|
000018D0: 20 31 30 30 30 00 E1 20 6A 27 8D 20 32 30 30 30 | 1000.. j'. 2000|
000018E0: 30 00 EC 20 74 27 89 20 31 30 30 30 00 05 21 F8 |0.. t'. 1000..!.|
000018F0: 2A 8F 20 4C 4F 41 44 20 43 48 41 52 41 43 54 45 |*. LOAD CHARACTE|
00001900: 52 20 53 45 54 00 12 21 2A 2B 46 49 B2 33 35 30 |R SET..!*+FI.350|
00001910: 37 32 00 1E 21 34 2B 99 43 24 3A 99 3A 99 00 39 |72..!4+.C$:.:..9|
00001920: 21 3E 2B 99 22 4C 4F 41 44 20 43 48 41 52 41 43 |!>+."LOAD CHARAC|
00001930: 54 45 52 20 53 45 54 53 22 00 59 21 48 2B 4E 24 |TER SETS".Y!H+N$|
00001940: B2 22 22 3A 85 20 22 4E 41 4D 45 20 4F 46 20 46 |."":. "NAME OF F|
00001950: 49 4C 45 20 3A 22 3B 4E 24 00 6E 21 4D 2B 8B 20 |ILE :";N$.n!M+. |
00001960: C3 28 4E 24 29 B3 31 20 A7 20 31 30 30 30 00 7A |.(N$).1 . 1000.z|
00001970: 21 52 2B 8D 20 32 30 30 30 30 00 8D 21 5C 2B 9E |!R+. 20000..!\+.|
00001980: 20 34 39 32 34 32 3A 89 20 31 30 30 30 00 9F 21 | 49242:. 1000..!|
00001990: E0 2E 8F 20 53 41 56 45 20 53 48 41 50 45 53 00 |... SAVE SHAPES.|
000019A0: B7 21 12 2F 46 49 B2 31 34 33 33 36 3A 45 4E B2 |.!./FI.14336:EN.|
000019B0: 46 49 AA 31 30 32 33 00 C3 21 1C 2F 99 43 24 3A |FI.1023..!./.C$:|
000019C0: 99 3A 99 00 D6 21 26 2F 99 22 53 41 56 45 20 53 |.:...!&/."SAVE S|
000019D0: 48 41 50 45 53 22 00 F4 21 30 2F 4E 24 B2 22 22 |HAPES"..!0/N$.""|
000019E0: 3A 85 20 22 53 41 56 45 20 55 4E 44 45 52 20 3A |:. "SAVE UNDER :|
000019F0: 22 3B 4E 24 00 09 22 3A 2F 8B 20 C3 28 4E 24 29 |";N$..":/. .(N$)|
00001A00: B3 31 20 A7 20 31 30 30 30 00 15 22 44 2F 8D 20 |.1 . 1000.."D/. |
00001A10: 32 31 30 30 30 00 20 22 4E 2F 89 20 31 30 30 30 |21000. "N/. 1000|
00001A20: 00 35 22 C8 32 8F 20 53 41 56 45 20 43 48 41 52 |.5".2. SAVE CHAR|
00001A30: 20 53 45 54 53 00 4D 22 FA 32 46 49 B2 33 35 30 | SETS.M".2FI.350|
00001A40: 37 32 3A 45 4E B2 46 49 AA 34 30 39 35 00 59 22 |72:EN.FI.4095.Y"|
00001A50: 04 33 99 43 24 3A 99 3A 99 00 74 22 0E 33 99 22 |.3.C$:.:..t".3."|
00001A60: 53 41 56 45 20 43 48 41 52 41 43 54 45 52 20 53 |SAVE CHARACTER S|
00001A70: 45 54 53 22 00 91 22 18 33 4E 24 B2 22 22 3A 85 |ETS"..".3N$."":.|
00001A80: 20 22 53 41 56 45 20 55 4E 44 45 52 20 22 3B 4E | "SAVE UNDER ";N|
00001A90: 24 00 A6 22 22 33 8B 20 C3 28 4E 24 29 B3 31 20 |$..""3. .(N$).1 |
00001AA0: A7 20 31 30 30 30 00 B2 22 2C 33 8D 20 32 31 30 |. 1000..",3. 210|
00001AB0: 30 30 00 BD 22 36 33 89 20 31 30 30 30 00 CF 22 |00.."63. 1000.."|
00001AC0: 20 4E 8F 20 2A 2A 20 42 49 4E 20 4C 4F 41 44 00 | N. ** BIN LOAD.|
00001AD0: 01 23 2A 4E 5A 20 B2 B5 28 46 49 AD 32 35 36 29 |.#*NZ ..(FI.256)|
00001AE0: 3A 97 20 37 38 30 2C 31 35 3A 97 20 37 38 31 2C |:. 780,15:. 781,|
00001AF0: 38 3A 97 20 37 38 32 2C 30 3A 9E 20 36 35 34 36 |8:. 782,0:. 6546|
00001B00: 36 00 37 23 34 4E 4C B2 C3 28 4E 24 29 3A 81 20 |6.7#4NL..(N$):. |
00001B10: 4C 31 B2 31 20 A4 20 4C 3A 97 20 34 30 34 34 37 |L1.1 . L:. 40447|
00001B20: AA 4C 31 2C C6 28 CA 28 4E 24 2C 4C 31 2C 31 29 |.L1,.(.(N$,L1,1)|
00001B30: 29 20 3A 82 20 4C 31 00 5D 23 3E 4E 97 20 37 38 |) :. L1.]#>N. 78|
00001B40: 30 2C 4C 3A 97 20 37 38 31 2C 30 3A 97 20 37 38 |0,L:. 781,0:. 78|
00001B50: 32 2C 31 35 38 3A 9E 20 36 35 34 36 39 00 8A 23 |2,158:. 65469..#|
00001B60: 48 4E 97 20 37 38 30 2C 30 3A 97 20 37 38 31 2C |HN. 780,0:. 781,|
00001B70: 46 49 AB 5A 20 AC 32 35 36 3A 97 20 37 38 32 2C |FI.Z .256:. 782,|
00001B80: 5A 20 3A 9E 20 36 35 34 39 33 00 90 23 52 4E 8E |Z :. 65493..#RN.|
00001B90: 00 A2 23 08 52 8F 20 2A 2A 20 42 49 4E 20 53 41 |..#.R. ** BIN SA|
00001BA0: 56 45 00 D5 23 12 52 5A B2 B5 28 45 4E AD 32 35 |VE..#.RZ..(EN.25|
00001BB0: 36 29 3A 97 20 37 38 30 2C 31 35 3A 97 20 37 38 |6):. 780,15:. 78|
00001BC0: 31 2C 38 3A 97 20 37 38 32 2C 32 35 35 3A 9E 20 |1,8:. 782,255:. |
00001BD0: 36 35 34 36 36 00 0A 24 1C 52 4C B2 C3 28 4E 24 |65466..$.RL..(N$|
00001BE0: 29 3A 81 20 4C 31 B2 31 20 A4 20 4C 3A 97 20 34 |):. L1.1 . L:. 4|
00001BF0: 30 34 34 37 AA 4C 31 2C C6 28 CA 28 4E 24 2C 4C |0447.L1,.(.(N$,L|
00001C00: 31 2C 31 29 29 3A 82 20 4C 31 00 30 24 26 52 97 |1,1)):. L1.0$&R.|
00001C10: 20 37 38 30 2C 4C 3A 97 20 37 38 31 2C 30 3A 97 | 780,L:. 781,0:.|
00001C20: 20 37 38 32 2C 31 35 38 3A 9E 20 36 35 34 36 39 | 782,158:. 65469|
00001C30: 00 55 24 30 52 97 20 37 38 30 2C 32 35 31 3A 97 |.U$0R. 780,251:.|
00001C40: 20 37 38 31 2C 45 4E AB 5A AC 32 35 36 3A 97 20 | 781,EN.Z.256:. |
00001C50: 37 38 32 2C 5A 00 88 24 3A 52 97 20 32 35 31 2C |782,Z..$:R. 251,|
00001C60: 46 49 AB B5 28 46 49 AD 32 35 36 29 AC 32 35 36 |FI..(FI.256).256|
00001C70: 3A 97 20 32 35 32 2C B5 28 46 49 AD 32 35 36 29 |:. 252,.(FI.256)|
00001C80: 3A 9E 20 36 35 34 39 36 00 8E 24 44 52 8E 00 9E |:. 65496..$DR...|
00001C90: 24 F0 55 8F 20 2A 2A 20 43 4F 4C 4F 52 53 00 A6 |$.U. ** COLORS..|
00001CA0: 24 FA 55 99 43 24 00 BA 24 22 56 99 22 4E 55 4D |$.U.C$..$"V."NUM|
00001CB0: 42 45 52 20 43 4F 4C 4F 52 22 00 CE 24 2C 56 99 |BER COLOR"..$,V.|
00001CC0: 22 20 20 30 20 20 20 20 42 4C 41 43 4B 22 00 E2 |" 0 BLACK"..|
00001CD0: 24 2E 56 99 22 20 20 31 20 20 20 20 57 48 49 54 |$.V." 1 WHIT|
00001CE0: 45 22 00 F4 24 31 56 99 22 20 20 32 20 20 20 20 |E"..$1V." 2 |
00001CF0: 52 45 44 22 00 07 25 36 56 99 22 20 20 33 20 20 |RED"..%6V." 3 |
00001D00: 20 20 43 59 41 4E 22 00 1C 25 40 56 99 22 20 20 | CYAN"..%@V." |
00001D10: 34 20 20 20 20 50 55 52 50 4C 45 22 00 30 25 4A |4 PURPLE".0%J|
00001D20: 56 99 22 20 20 35 20 20 20 20 47 52 45 45 4E 22 |V." 5 GREEN"|
00001D30: 00 43 25 54 56 99 22 20 20 36 20 20 20 20 42 4C |.C%TV." 6 BL|
00001D40: 55 45 22 00 58 25 5E 56 99 22 20 20 37 20 20 20 |UE".X%^V." 7 |
00001D50: 20 59 45 4C 4C 4F 57 22 00 6D 25 68 56 99 22 20 | YELLOW".m%hV." |
00001D60: 20 38 20 20 20 20 4F 52 41 4E 47 45 22 00 81 25 | 8 ORANGE"..%|
00001D70: 72 56 99 22 20 20 39 20 20 20 20 42 52 4F 57 4E |rV." 9 BROWN|
00001D80: 22 00 96 25 7C 56 99 22 20 20 31 30 20 20 20 4C |"..%|V." 10 L|
00001D90: 54 20 52 45 44 22 00 AE 25 86 56 99 22 20 20 31 |T RED"..%.V." 1|
00001DA0: 31 20 20 20 44 41 52 4B 20 47 52 45 59 22 00 C5 |1 DARK GREY"..|
00001DB0: 25 90 56 99 22 20 20 31 32 20 20 20 4D 45 44 20 |%.V." 12 MED |
00001DC0: 47 52 41 59 22 00 DC 25 9A 56 99 22 20 20 31 33 |GRAY"..%.V." 13|
00001DD0: 20 20 20 4C 54 20 47 52 45 45 4E 22 00 F2 25 A4 | LT GREEN"..%.|
00001DE0: 56 99 22 20 20 31 34 20 20 20 4C 54 20 42 4C 55 |V." 14 LT BLU|
00001DF0: 45 22 00 08 26 AE 56 99 22 20 20 31 35 20 20 20 |E"..&.V." 15 |
00001E00: 4C 54 20 47 52 45 59 22 00 0E 26 B8 56 99 00 3F |LT GREY"..&.V..?|
00001E10: 26 C2 56 85 20 22 4E 45 57 20 43 4F 4C 4F 52 20 |&.V. "NEW COLOR |
00001E20: 28 30 2D 31 35 29 20 22 3B 5A 3A 8B 20 5A B3 30 |(0-15) ";Z:. Z.0|
00001E30: 20 B0 20 5A B1 31 35 20 A7 20 32 32 30 30 30 00 | . Z.15 . 22000.|
00001E40: 45 26 CC 56 8E 00 74 26 60 EA 9F 20 31 35 2C 38 |E&.V..t&`.. 15,8|
00001E50: 2C 31 35 3A 98 31 35 2C 22 53 30 3A 44 45 46 49 |,15:.15,"S0:DEFI|
00001E60: 4E 45 22 3A 94 22 44 45 46 49 4E 45 22 2C 38 3A |NE":."DEFINE",8:|
00001E70: A0 20 31 35 00 00 00 |. 15... |
..%.... 51,0:. 52,48:. 55,0:. 56,48:..;.
..CH.40320:MP.40322.I...C$.G(147).O.#..
.S(X).B(40320).B(40321).256.X.8.Y.C.. 50
0...D.. 251,X:. 252,Y:....I.X.B(251):Y.B
(252):....N.. 49152:.:. DRAW MAP...S.. 1
00:. 49188:.:. INV SQR...X..100:.155,255
:.829,D.1:.834,1:.49194:.105:....}.K$.""
./.... K$:. K$."" . 130.H...K.F(K$):. K$
."Q" . ..N.....J.... 49233:.:. SET DISPL
AY...... 49239:.:. CLR TEXT WIN...... 49
236:.:. SET FULL TEXT.Q.... 100:. 49179:
T.B(863):.:. WHAT TERRAIN... .. 251,X1:.
252,Y1:. 49227:.:. INV OFF.5...Z5.PX.8.1
6:.53248,Z5.255:.53264,.(Z5.256):.:. SPR
ITE X.\.... 53249,PY.8.46:.:. SPRI
TE Y.K.... SPRITE ?...H.V.1024.VY.40:.22
0:.209,V1:.210,V2:.214,VY:....M.. 211,VX
:....R.. 200:. 205:....W.. 49242:.40704,
T:. 39168:.:. MOV CHAR, BIT OUT CHAR....
.V2..(V.256):V1.V.V2.256:........,...."L
OADING INIT".M...N$."INIT.D":FI.39808:.
20000.A...."LOADING DATA".....N$."DATA.D
":FI.14336:. 20000...... 826,0:.827,0:.
CORNERS......"PART 1"...... L.35072 . 36
095:.L,0:. L:. L.36096 . 37119:. L,255:.
L......"PART 2".5.... L.37120 . 38143:.
L,0:. L:. L.38144 . 39167:. L,255:. L.T.
... DEFINE BASE CHARACTERS ^.J...."LOADI
NG DRAW.F"...!.N$."DRAW.SHIP.O":FI.49152
:. 20000...&.N$."BITS.O":FI.39168:. 2000
0.G.+.. ** SPRITE SETUP...0.. 59384,224:
. S 0 POINTER...5.. 53269,1:. ENABLE S 0
...:.. 53287,7:. S 0 COLOR.<.<.Z.63488:.
L.Z . Z.62:.L,0:. L.Y.?..L.Z.1.Z.46.3:.
L,24:. L.V.D..L.Z.16.Z.31.3:.L,195:.L..
.I..Z.13,255:.Z.34,255:.Z.21,15:.Z.24,15
:.Z.23,224:.Z.26,224.I.N.. SPRITE SHAPE
^...S.. 831,0:. 53249,0...X.. 53270,B(53
270).16:. MULTI COLOR ON...].. 646,1:. 6
47,1.1.B.Z.35072:Z1.37120.P.G..L.1016.10
23:.Z.L,85:.Z1.L,85:.Z.L.1024,170:.Z1.L.
1024,170.X.L.. L...Q.. 53281,0...V.. 492
42. .{.. 650,128......C$:.:..D...."(D)EF
INE A SHAPE"...$.."(L)OAD IN SHAPES"....
.."(S)AVE SHAPES"...8.."(R)EAD IN CHARAC
TER SET".1.B.."(W)RITE OUT CHARACTER SET
".J.L.."(0) COLOR REGISTER (";B(53281).1
5;") (BACKGROUND)"...V.."(1) COLOR REGIS
TER (";B(53282).15;")".B.`.."(2) COLOR R
EGISTER (";B(53283).15;")"...J.."(C)OLOR
OF CHARACTERS (";B(646).15;")"...T.."(X
) - DELETE AND CATALOG".,....:."(E)XIT F
ROM PROGRAM".F....:."SELECT OPTION :";.T
.... 125:.K$.I.X.. K$."L" . 10000.~....
K$."R" . 11000...... K$."S" . 12000.....
. K$."W" . 13000... .. K$."E" . ..M....
K$."D" . 2000...... K$."0" . . 22000:. 5
3281,Z...... K$."1" . . 22000:. 53282,Z.
0.H.. K$."2" . . 22000:. 53283,Z.W.R.. K
$."C" . . 22000:. 646,Z:. 647,Z.M.... K$
."X" . . 8000.X.@.. 1000...P.. DEFINE...
Z.X.0:Y.0......140:. 110:. 145.....VX.1:
VY.20:.210:."SHAPE #";:VX.34:.205:."8 1
2":. 115. ...VX.0:VY.21:.210:."(M)ODIEFY
SHAPE, (R)ETURN TO";:VX.34:.205.-...."7
3".C. .VX.1:VY.22:.210:."MAIN MENU";:
VX.34:.205:."6 5 4"...4.. 155:VX.8:VY.20
:.210:X$.D(T)." " :.X$...>.. 125...H..
K$."0" . K$."9" . 2300...R.. K$."M" . .
3000:. 145:. 110:. 2060...\.. K$.."R" .
2100...... 150:. 1000.....D.E(K$):. 120:
. 2100.6.... ** MAKE CHARACTER.J.B.X1.X:
Y1.Y:. 160.M.L.Z..S(T):.L.0.3:PT(L).B(Z.
L):.L.U....C$...... 15360,T:X1.0:Y1.0...
... 215:. 160:. DRAW SCREEN...N.. SPRITE
S.Y.X.PX.24:PY.0:. 165:. 170:PT.0...].."
.":. 145.*.B.VX.0:VY.20:.210:."(C)OLOR,
(P)ICK NEW SHAPE";:VX.36:.205:."I".`.G..
"(R)EPLACE WITH OTHER,(Z)ERO";:VX.35:.20
5:."J K"...L.." CHARACTERS #";:.L.0.3:.P
T(L);:.:VX.36:.205:."M"...Q.."(SPC) TURN
ON/OFF TARGET BIT".E.... 125...... K$."
P"..53249,0:.15360,0:....... K$.."0".K$.
."9".V.E(K$):.V.16..14340.T.8.PT,V:.215.
B.... K$.."0".K$.."9".. 160:. 3165......
K$."C"..49239:VX.0:VY.20:.210:."COLOR (
0-15) ";K$:.3220...... K$."I"..PY.0.PY.P
Y.1:.170:.PY.7.PT.PT.2...... K$."M"..PY.
15.PY.PY.1:.170:.PY.8.PT.PT.2......K$."K
"..PX.39.PX.PX.1:.165:.PX.32.PT.PT.1.<.F
.. K$."J"..PX.24.PX.PX.1:.165:.PX.31.PT.
PT.1.O.K.. K$." "..4000.D.P.. K$."Z" . .
4200.X.U.. K$."R" . 4300...Z.. K$."N" .
5000...... 3200... .. CHANGE BIT.M...Z.P
T(PT):Z1.35072:.PT.1.Z1.37120.....Z1.Z1.
Z.8.(PY.7):Z2.B(Z1).....Z3.(PX.24).7:Z3.
7.Z3.-.H.Z4.Z2.(2.Z3):.Z4.1.Z2.Z2.2.Z3:.
4060.<.R.Z2.Z2.2.Z3.H.... Z1,Z2.].... C
HANGE INVERSE.L...Z1.Z1.1024.....Z2.255.
Z2:. Z1,Z2...... 215:.160:....H.. L.0 .
3:Z.PT(L).H.R.Z1.35072:. L.1 . Z1.37120
...|.Z2.Z1.Z.8:Z3.Z1.Z.8.128.8......L1.0
.7:.Z2.L1,0:.Z3.L1,255:.L1...... L.$....
215:. 160:..<.L.. 49239:VY.20:. 200.Q.V
.. "COPY FROM SHAPE (0-127) ";Z:. Z.0 .
Z.127 . .......L.0.3:Z1.PT(L):Z2.B(14336
.Z.8.L).....Z3.35072:.L.1 . Z3.37120....
.Z4.Z3.Z1.8:Z5.Z3.Z2.8:Z6.Z3.Z1.8.128.8.
.....L1.0 . 7:Z8.B(Z5.L1):.Z4.L1,Z8:.Z6.
L1,255.Z8:. L1......L.4.... 215:. 160:.
3165.O.... ** CHANGE CHARACTERS.D...Z.58
368:Z3.55296.....Z9.B(646).15:.646,0:.64
7,0:.C$:. 646,Z9:. 647,Z9.O.N..L.0.127:.
Z..(L.32).48.L,L:.Z3..(L.32).48.L,1:. L.
..X..L.0.1:Z1.PT(L).....PY..(Z1.32):PX.Z
1.PY.32:PY.PY.2...... 6000:.165:.170.:..
.A$.D(Z1):A$.I(A$,C(A$).1).F.... Z1.100.
A$."0".A$:. Z1.10 . A$."0".A$.....VX.12
:VY.22:. 210:.A$...... 125:. 7000......
Z2.0 . 5100...... Z2.99 . 5085.C...PT(L)
.Z1.K.(.. L.....Z9.B(646).15:.646,0:.647
,0:.C$:. 646,Z9:. 647,Z9.<.B..L.0.127:.Z
..(L.32).48.L.40,L:.Z3..(L.32).48.L.40,1
:. L.P.L..L.2.3:Z1.PT(L).V.Q.PY..(Z1.32)
:PX.Z1.PY.32:PY.PY.2.1...V.. 6000:.165:.
170.....A$.D(Z1):A$.I(A$,C(A$).1).U....
Z1.100. A$."0".A$:. Z1.10 . A$."0".A$...
..VX.12:VY.22:. 210:.A$...... 125:. 7000
...... Z2.0. 5600."....Z2.99 .5585./...P
T(L).Z1.7.... L.Y.D.Z..S(T):.L.0.3:.Z.L,
PT(L):. L.D.X.. 3000.Y.P.. ** TEXT WINDO
W...Z.. 49239:VX.0:VY.20:.210.D...."CHAR
ACTER POSITION #";L;:VX.36:.205:."I"....
.."(P)ICK OR RETURN TO ACCEPT";:VX.35:.2
05:."J K"......"CHARACTER #";:VX.36:.205
:."M".#.....5.X.. ** MOVEMENT.Y.... K$."
I"..PY.1.PY.PY.2:Z1.Z1.32...... K$."J".
. PX.0 . PX.PX.1:Z1.Z1.1...... K$."K" .
.PX.31 . PX.PX.1:Z1.Z1.1.R.... K$."M" .
. PY..5 . PY.PY.2:Z1.Z1.32...... K$."P"
. 7200.....Z2.0:. K$.G(13) . Z2..1......
165:.170...F...2. ..49239:VX.0:VY.20:.2
10.<.*.X$."".Z.4.. "PICK PART (0-127) ";
X$.J.>.. X$."" . ....H.Z1.E(X$):.Z1.0.Z1
.127.Z1.0...R.Z2.99:....@.. ** DELETE FI
LE...J..C$:....T.."&CAT TO CATALOG, RETU
RN TO QUIT,"...^.."OR A FILE NAME TO DEL
ETE":....H.N$."":. "WHAT ";N$.%.R.. N$."
" . ..<.|.. N$."&CAT" . 8500.J.... 15,8,
15.Z...N$."S0:".N$.I....15,N$: 15.T....
1000...4!.".";:.15,8,15,"I0"...>!.15,Z,Z
$,Z1,Z2...H!.Z..0.8000.Y.R!N$.G(0):.1,8,
0,"$0":.#1,Z1$,Z1$:. 8560.. \!.#1,Z1$,Z2
$:.F(Z1$.N$).F(Z2$.N$).256;.$ F!.#1,Z1$:
.Z1$..""..Z1$;:.8550.D P!.:.#1,Z1$,Z1$:.
Z1$.."".8540.V Z! 1: 15:. 8020.\ .!..B .
'..T .'. LOAD SHAPES.. B'FI.14336.. L'.C
$:.:.. V'."LOAD SHAPES".. `'N$."":. "NA
ME OF FILE :";N$.U E'. C(N$).1 . 1000..
J'. 20000.. T'. 1000..!.*. LOAD CHARACTE
R SET..!*+FI.35072..!4+.C$:.:..9!>+."LOA
D CHARACTER SETS".Y!H+N$."":. "NAME OF F
ILE :";N$.N!M+. C(N$).1 . 1000.Z!R+. 200
00..!\+. 49242:. 1000..!... SAVE SHAPES.
.!./FI.14336:EN.FI.1023.C!./.C$:.:..V!&/
."SAVE SHAPES"..!0/N$."":. "SAVE UNDER :
";N$..":/. C(N$).1 . 1000.."D/. 21000. "
N/. 1000.5"H2. SAVE CHAR SETS.M".2FI.350
72:EN.FI.4095.Y".3.C$:.:..T".3."SAVE CHA
RACTER SETS"..".3N$."":. "SAVE UNDER ";N
$..""3. C(N$).1 . 1000..",3. 21000.."63.
1000.O" N. ** BIN LOAD..#*NZ ..(FI.256)
:. 780,15:. 781,8:. 782,0:. 65466.7#4NL.
C(N$):. L1.1 . L:. 40447.L1,F(J(N$,L1,1)
) :. L1.]#>N. 780,L:. 781,0:. 782,158:.
65469..#HN. 780,0:. 781,FI.Z .256:. 782,
Z :. 65493..#RN...#.R. ** BIN SAVE.U#.RZ
..(EN.256):. 780,15:. 781,8:. 782,255:.
65466..$.RL.C(N$):. L1.1 . L:. 40447.L1,
F(J(N$,L1,1)):. L1.0$&R. 780,L:. 781,0:.
782,158:. 65469.U$0R. 780,251:. 781,EN.
Z.256:. 782,Z..$:R. 251,FI..(FI.256).256
:. 252,.(FI.256):. 65496..$DR...$.U. **
COLORS..$.U.C$..$"V."NUMBER COLOR".N$,V.
" 0 BLACK"..$.V." 1 WHITE"..$1V.
" 2 RED"..%6V." 3 CYAN"..%@V."
4 PURPLE".0%JV." 5 GREEN".C%TV."
6 BLUE".X%^V." 7 YELLOW".M%HV."
8 ORANGE"..%RV." 9 BROWN"..%|V."
10 LT RED"..%.V." 11 DARK GREY".E
%.V." 12 MED GRAY"..%.V." 13 LT GR
EEN"..%.V." 14 LT BLUE"..&.V." 15
LT GREY"..&.V..?&BV. "NEW COLOR (0-15) "
;Z:. Z.0 . Z.15 . 22000.E&LV..T&`.. 15,8
,15:.15,"S0:DEFINE":."DEFINE",8: 15...
> CLICK IMAGE PREVIEW FOR FULL MODAL