INITIAL.BAS
FILE INFORMATION
FILENAME(S): INITIAL.BAS
FILE TYPE(S): PRG
FILE SIZE: 9.3K
FIRST SEEN: 2025-10-19 22:49:30
APPEARS ON: 1 disk(s)
FILE HASH
f2098a272cd485f9d48154c7c5d0ce5c7edd54b85f6a1dde6a398aa1d6c8f88d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MICRO MANIAC | INITIAL.BAS | PRG | Radd Maxx | 19 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2B 08 01 00 8F 22 14 14 14 14 14 14 14 14 |..+...."........|
00000010: 8D 1F 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000020: 11 11 11 11 11 11 11 11 11 11 11 00 49 08 02 00 |............I...|
00000030: 8F D9 D9 D9 D9 D9 D9 D9 22 8D 14 14 14 14 14 14 |........".......|
00000040: 14 14 14 14 14 14 14 14 14 00 4F 08 1C 00 9C 00 |..........O.....|
00000050: 66 08 1E 00 99 22 93 22 3A 99 C7 28 38 29 3B C7 |f....".":..(8);.|
00000060: 28 31 34 32 29 3B 00 85 08 28 00 97 20 34 36 2C |(142);...(.. 46,|
00000070: 31 30 39 3A 97 20 34 38 2C 31 30 39 3A 97 20 35 |109:. 48,109:. 5|
00000080: 30 2C 31 30 39 00 B5 08 31 00 97 20 37 38 35 2C |0,109...1.. 785,|
00000090: 31 39 32 3A 97 20 37 38 36 2C 30 3A 81 58 B2 34 |192:. 786,0:.X.4|
000000A0: 39 31 35 32 A4 34 39 31 37 30 3A 87 43 3A 97 58 |9152.49170:.C:.X|
000000B0: 2C 43 3A 82 58 00 FA 08 33 00 83 20 31 37 33 2C |,C:.X...3.. 173,|
000000C0: 30 2C 31 39 33 2C 35 36 2C 32 33 33 2C 31 2C 31 |0,193,56,233,1,1|
000000D0: 36 38 2C 31 37 33 2C 31 2C 31 39 33 2C 35 36 2C |68,173,1,193,56,|
000000E0: 32 33 33 2C 31 2C 31 37 30 2C 32 34 2C 33 32 2C |233,1,170,24,32,|
000000F0: 32 34 30 2C 32 35 35 2C 39 36 00 1C 09 34 00 58 |240,255,96...4.X|
00000100: 41 B2 34 39 34 30 38 3A 58 50 25 B2 30 3A 59 41 |A.49408:XP%.0:YA|
00000110: B2 34 39 34 30 39 3A 59 50 25 B2 30 00 62 09 35 |.49409:YP%.0.b.5|
00000120: 00 86 20 50 52 25 28 39 31 2C 32 31 29 2C 4D 41 |.. PR%(91,21),MA|
00000130: 28 31 35 29 2C 44 41 25 28 39 31 2C 36 29 2C 45 |(15),DA%(91,6),E|
00000140: 56 25 28 32 30 30 2C 33 29 2C 54 52 28 31 35 2C |V%(200,3),TR(15,|
00000150: 34 29 2C 50 4F 28 34 35 2C 36 29 2C 44 53 28 31 |4),PO(45,6),DS(1|
00000160: 35 29 00 7F 09 37 00 86 20 52 44 28 31 35 29 2C |5)...7.. RD(15),|
00000170: 53 4E 24 28 31 35 29 2C 4C 4E 24 28 31 35 29 00 |SN$(15),LN$(15).|
00000180: 92 09 BE 00 46 4C B2 31 3A 56 51 B2 35 3A 54 38 |....FL.1:VQ.5:T8|
00000190: B2 30 00 A0 09 C0 00 9F 20 31 35 2C 38 2C 31 35 |.0...... 15,8,15|
000001A0: 00 A9 09 C8 00 99 22 93 22 00 D3 09 E6 00 59 50 |......".".....YP|
000001B0: 25 B2 36 3A 20 58 50 25 B2 31 35 3A 8D 20 32 30 |%.6: XP%.15:. 20|
000001C0: 30 30 30 3A 99 20 22 4D 49 4C 4C 49 4F 4E 41 49 |000:. "MILLIONAI|
000001D0: 52 45 22 00 10 0A F0 00 59 50 25 B2 37 3A 20 58 |RE".....YP%.7: X|
000001E0: 50 25 B2 35 3A 8D 32 30 30 30 30 3A 99 20 22 54 |P%.5:.20000:. "T|
000001F0: 48 45 20 53 54 4F 43 4B 20 4D 41 52 4B 45 54 20 |HE STOCK MARKET |
00000200: 53 49 4D 55 4C 41 54 49 4F 4E 20 28 54 4D 29 22 |SIMULATION (TM)"|
00000210: 00 44 0A FA 00 59 50 25 B2 31 30 3A 58 50 25 B2 |.D...YP%.10:XP%.|
00000220: 31 39 3A 8D 32 30 30 30 30 3A 99 22 42 59 22 3A |19:.20000:."BY":|
00000230: 59 50 25 B2 31 31 3A 58 50 25 B2 31 31 3A 8D 32 |YP%.11:XP%.11:.2|
00000240: 30 30 30 30 00 5F 0A FF 00 99 20 22 42 4C 55 45 |0000._.... "BLUE|
00000250: 20 43 48 49 50 20 53 4F 46 54 57 41 52 45 22 00 | CHIP SOFTWARE".|
00000260: 9F 0A 04 01 59 50 25 B2 31 32 3A 58 50 25 B2 31 |....YP%.12:XP%.1|
00000270: 33 3A 8D 32 30 30 30 30 3A 99 22 43 4F 50 59 52 |3:.20000:."COPYR|
00000280: 49 47 48 54 20 31 39 38 34 22 3A 59 50 25 B2 31 |IGHT 1984":YP%.1|
00000290: 34 3A 58 50 25 B2 31 34 3A 8D 32 30 30 30 30 00 |4:XP%.14:.20000.|
000002A0: B3 0A 07 01 99 22 56 45 52 53 49 4F 4E 20 32 2E |....."VERSION 2.|
000002B0: 30 31 22 00 E7 0A 09 01 59 50 25 B2 31 36 3A 20 |01".....YP%.16: |
000002C0: 58 50 25 B2 31 30 3A 8D 32 30 30 30 30 3A 99 20 |XP%.10:.20000:. |
000002D0: 22 57 52 49 54 54 45 4E 20 42 59 20 4A 49 4D 20 |"WRITTEN BY JIM |
000002E0: 5A 55 42 45 52 22 3B 00 26 0B 0B 01 59 50 25 B2 |ZUBER";.&...YP%.|
000002F0: 31 37 3A 58 50 25 B2 34 3A 8D 32 30 30 30 30 3A |17:XP%.4:.20000:|
00000300: 99 22 2A 2A 2A 43 52 41 43 4B 45 44 20 42 59 20 |."***CRACKED BY |
00000310: 54 48 45 20 4C 4F 56 45 52 42 4F 59 20 36 2F 38 |THE LOVERBOY 6/8|
00000320: 35 20 2A 2A 2A 22 00 6C 0B 0E 01 59 50 25 B2 31 |5 ***".l...YP%.1|
00000330: 39 3A 20 58 50 25 B2 31 3A 8D 32 30 30 30 30 3A |9: XP%.1:.20000:|
00000340: 99 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 |. "DO YOU WANT T|
00000350: 4F 20 50 4C 41 59 20 41 20 4E 45 57 20 47 41 4D |O PLAY A NEW GAM|
00000360: 45 2C 20 41 20 53 41 56 45 44 22 3B 00 AF 0B 18 |E, A SAVED";....|
00000370: 01 59 50 25 B2 32 30 3A 20 58 50 25 B2 33 3A 8D |.YP%.20: XP%.3:.|
00000380: 32 30 30 30 30 3A 99 20 22 47 41 4D 45 2C 20 4F |20000:. "GAME, O|
00000390: 52 20 43 4C 45 41 52 20 54 48 45 20 50 4C 41 59 |R CLEAR THE PLAY|
000003A0: 45 52 20 44 49 52 45 43 54 4F 52 59 3F 22 3B 00 |ER DIRECTORY?";.|
000003B0: E7 0B 22 01 59 50 25 B2 32 31 3A 20 58 50 25 B2 |..".YP%.21: XP%.|
000003C0: 37 3A 8D 32 30 30 30 30 3A 99 20 22 54 59 50 45 |7:.20000:. "TYPE|
000003D0: 20 4E 45 57 2C 20 53 41 56 45 44 2C 20 4F 52 20 | NEW, SAVED, OR |
000003E0: 43 4C 45 41 52 22 3B 00 16 0C 27 01 59 50 25 B2 |CLEAR";...'.YP%.|
000003F0: 32 32 3A 58 50 25 B2 31 31 3A 8D 32 30 30 30 30 |22:XP%.11:.20000|
00000400: 3A 99 22 41 4E 44 20 50 52 45 53 53 20 52 45 54 |:."AND PRESS RET|
00000410: 55 52 4E 2E 22 3B 00 45 0C 2C 01 59 50 25 B2 32 |URN.";.E.,.YP%.2|
00000420: 33 3A 20 58 50 25 B2 31 38 3A 8D 32 30 30 30 30 |3: XP%.18:.20000|
00000430: 3A 8D 37 30 30 30 3A 8D 20 33 30 30 30 30 3A 41 |:.7000:. 30000:A|
00000440: 4E 24 B2 5A 24 00 68 0C 4A 01 8B 20 41 4E 24 20 |N$.Z$.h.J.. AN$ |
00000450: B2 20 22 4E 45 57 22 20 A7 20 20 8D 20 31 36 32 |. "NEW" . . 162|
00000460: 30 3A 20 89 20 33 37 30 00 8E 0C 54 01 8B 20 41 |0: . 370...T.. A|
00000470: 4E 24 20 B2 20 22 53 41 56 45 44 22 20 A7 20 20 |N$ . "SAVED" . |
00000480: 8D 20 32 30 30 30 3A 20 89 20 31 36 31 35 00 AF |. 2000: . 1615..|
00000490: 0C 59 01 8B 20 41 4E 24 B2 22 43 4C 45 41 52 22 |.Y.. AN$."CLEAR"|
000004A0: 20 A7 20 8D 20 34 30 30 30 3A 89 20 32 30 30 00 | . . 4000:. 200.|
000004B0: F3 0C 5E 01 99 20 22 20 20 20 59 4F 55 20 4D 55 |..^.. " YOU MU|
000004C0: 53 54 20 54 59 50 45 20 4E 45 57 2C 20 53 41 56 |ST TYPE NEW, SAV|
000004D0: 45 44 2C 20 4F 52 20 43 4C 45 41 52 22 3B 3A 59 |ED, OR CLEAR";:Y|
000004E0: 50 25 B2 32 33 3A 58 50 25 B2 31 39 3A 8D 32 30 |P%.23:XP%.19:.20|
000004F0: 30 30 30 00 14 0D 63 01 99 20 22 20 20 20 20 20 |000...c.. " |
00000500: 20 20 20 20 20 20 22 3B 3A 8D 37 30 30 30 3A 89 | ";:.7000:.|
00000510: 20 33 30 30 00 1F 0D 68 01 58 B2 32 30 34 39 00 | 300...h.X.2049.|
00000520: 38 0D 69 01 59 B2 C2 28 58 29 AA C2 28 58 AA 31 |8.i.Y..(X)..(X.1|
00000530: 29 AC 32 35 36 3A 99 59 00 61 0D 6A 01 8B C2 28 |).256:.Y.a.j...(|
00000540: 59 AA 36 29 B2 36 39 AF C2 28 59 AA 37 29 B2 37 |Y.6).69..(Y.7).7|
00000550: 38 AF C2 28 59 AA 38 29 B2 36 38 A7 89 20 33 36 |8..(Y.8).68.. 36|
00000560: 34 00 6E 0D 6B 01 58 B2 59 3A 89 33 36 31 00 A7 |4.n.k.X.Y:.361..|
00000570: 0D 6C 01 97 59 AA 31 30 2C 30 3A 97 59 AA 31 31 |.l..Y.10,0:.Y.11|
00000580: 2C 30 3A 99 59 AA 31 30 3A 59 B2 59 AA 31 32 3A |,0:.Y.10:Y.Y.12:|
00000590: 52 48 B2 B5 28 59 AD 32 35 36 29 3A 52 4C B2 59 |RH..(Y.256):RL.Y|
000005A0: AB 32 35 36 AC 52 48 00 D9 0D 6D 01 97 34 39 31 |.256.RH...m..491|
000005B0: 37 37 2C 52 4C 3A 97 34 39 31 37 38 2C 52 48 3A |77,RL:.49178,RH:|
000005C0: 97 34 35 2C C2 28 34 39 31 37 37 29 3A 97 34 36 |.45,.(49177):.46|
000005D0: 2C C2 28 34 39 31 37 38 29 00 04 0E 6E 01 97 34 |,.(49178)...n..4|
000005E0: 37 2C C2 28 34 39 31 37 37 29 3A 97 34 38 2C C2 |7,.(49177):.48,.|
000005F0: 28 34 39 31 37 38 29 3A 97 34 39 2C C2 28 34 39 |(49178):.49,.(49|
00000600: 31 37 37 29 00 17 0E 6F 01 97 35 30 2C C2 28 34 |177)...o..50,.(4|
00000610: 39 31 37 38 29 3A 80 00 5A 0E 72 01 99 22 93 22 |9178):..Z.r.."."|
00000620: 3A 59 50 25 B2 39 3A 58 50 25 B2 35 3A 8D 32 30 |:YP%.9:XP%.5:.20|
00000630: 30 30 30 3A 99 20 22 53 49 54 20 42 41 43 4B 20 |000:. "SIT BACK |
00000640: 41 4E 44 20 52 45 4C 41 58 20 41 53 20 49 54 20 |AND RELAX AS IT |
00000650: 57 49 4C 4C 20 54 41 4B 45 22 00 9A 0E 7C 01 59 |WILL TAKE"...|.Y|
00000660: 50 25 B2 31 30 3A 20 58 50 25 B2 35 3A 8D 32 30 |P%.10: XP%.5:.20|
00000670: 30 30 30 3A 99 20 22 41 42 4F 55 54 20 39 20 4D |000:. "ABOUT 9 M|
00000680: 49 4E 55 54 45 53 20 54 4F 20 50 55 54 20 54 4F |INUTES TO PUT TO|
00000690: 47 45 54 48 45 52 20 41 4E 22 00 CF 0E 86 01 59 |GETHER AN".....Y|
000006A0: 50 25 B2 31 31 3A 20 58 50 25 B2 31 30 3A 8D 32 |P%.11: XP%.10:.2|
000006B0: 30 30 30 30 3A 99 20 22 45 58 43 49 54 49 4E 47 |0000:. "EXCITING|
000006C0: 20 47 41 4D 45 20 46 4F 52 20 59 4F 55 2E 22 00 | GAME FOR YOU.".|
000006D0: E6 0E 9A 01 8F 20 20 52 41 4E 44 4F 4D 4C 59 20 |..... RANDOMLY |
000006E0: 53 45 4C 45 43 54 00 04 0F AE 01 43 4F 20 B2 20 |SELECT.....CO . |
000006F0: 20 B5 20 28 28 20 BB 28 30 29 20 AC 20 35 29 20 | . (( .(0) . 5) |
00000700: AA 20 31 29 00 14 0F B8 01 81 20 59 20 B2 20 31 |. 1)...... Y . 1|
00000710: 20 A4 20 35 00 32 0F C2 01 50 20 B2 20 20 B5 20 | . 5.2...P . . |
00000720: 28 28 20 BB 28 30 29 20 AC 20 31 30 29 20 AA 20 |(( .(0) . 10) . |
00000730: 31 29 00 42 0F CC 01 81 20 58 20 B2 20 31 20 A4 |1).B.... X . 1 .|
00000740: 20 35 00 58 0F D6 01 8B 20 4D 31 28 58 29 20 B2 | 5.X.... M1(X) .|
00000750: 20 50 20 89 20 34 35 30 00 60 0F E0 01 82 20 58 | P . 450.`.... X|
00000760: 00 6E 0F EA 01 4D 31 28 59 29 20 B2 20 50 00 76 |.n...M1(Y) . P.v|
00000770: 0F F4 01 82 20 59 00 87 0F 08 02 81 20 59 20 B2 |.... Y...... Y .|
00000780: 20 31 20 A4 20 31 35 00 A5 0F 12 02 50 20 B2 20 | 1 . 15.....P . |
00000790: 20 B5 20 28 28 20 BB 28 30 29 20 AC 20 32 31 29 | . (( .(0) . 21)|
000007A0: 20 AA 20 31 29 00 B6 0F 1C 02 81 20 58 20 B2 20 | . 1)...... X . |
000007B0: 31 20 A4 20 31 35 00 CC 0F 26 02 8B 20 4D 41 28 |1 . 15...&.. MA(|
000007C0: 58 29 20 B2 20 50 20 89 20 35 33 30 00 D4 0F 30 |X) . P . 530...0|
000007D0: 02 82 20 58 00 E2 0F 3A 02 4D 41 28 59 29 20 B2 |.. X...:.MA(Y) .|
000007E0: 20 50 00 EA 0F 44 02 82 20 59 00 06 10 C6 02 8F | P...D.. Y......|
000007F0: 20 20 50 55 54 20 43 4F 4D 4D 4F 4E 20 49 4E 20 | PUT COMMON IN |
00000800: 44 41 54 28 36 29 00 22 10 D0 02 9F 20 34 2C 38 |DAT(6).".... 4,8|
00000810: 2C 34 2C 22 44 41 54 41 2E 52 4E 44 22 3A 43 5A |,4,"DATA.RND":CZ|
00000820: B2 30 00 33 10 02 03 81 20 58 20 B2 20 31 20 A4 |.0.3.... X . 1 .|
00000830: 20 39 31 00 53 10 07 03 98 31 35 2C 22 50 22 C7 | 91.S....15,"P".|
00000840: 28 34 29 C7 28 43 4F 29 C7 28 30 29 C7 28 58 AA |(4).(CO).(0).(X.|
00000850: 43 5A 29 00 5E 10 0C 03 A1 23 34 2C 41 24 00 89 |CZ).^....#4,A$..|
00000860: 10 16 03 8B 20 41 24 20 B2 20 C7 28 32 34 34 29 |.... A$ . .(244)|
00000870: 20 A7 20 20 8D 20 32 34 30 30 3A 43 5A B2 43 5A | . . 2400:CZ.CZ|
00000880: AA 31 3A 20 89 20 37 38 30 00 B4 10 20 03 8B 20 |.1: . 780... .. |
00000890: 41 24 20 B2 20 C7 28 32 34 35 29 20 A7 20 20 8D |A$ . .(245) . .|
000008A0: 20 32 34 30 30 3A 43 5A B2 43 5A AA 31 3A 20 89 | 2400:CZ.CZ.1: .|
000008B0: 20 37 38 30 00 C7 10 2A 03 44 41 25 28 58 2C 36 | 780...*.DA%(X,6|
000008C0: 29 B2 C6 28 41 24 29 00 CF 10 34 03 82 20 58 00 |)..(A$)...4.. X.|
000008D0: F2 10 48 03 8F 20 20 50 55 54 20 49 4E 44 55 53 |..H.. PUT INDUS|
000008E0: 54 20 49 4E 20 44 41 54 28 31 29 2D 44 41 54 28 |T IN DAT(1)-DAT(|
000008F0: 36 29 00 02 11 5C 03 81 20 46 20 B2 20 31 20 A4 |6)...\.. F . 1 .|
00000900: 20 35 00 0C 11 66 03 5A 20 B2 20 46 00 1F 11 70 | 5...f.Z . F...p|
00000910: 03 52 20 B2 20 4D 31 28 46 29 3A 43 5A B2 30 00 |.R . M1(F):CZ.0.|
00000920: 30 11 C0 03 81 20 58 20 B2 20 31 20 A4 20 39 31 |0.... X . 1 . 91|
00000930: 00 51 11 C5 03 98 31 35 2C 22 50 22 C7 28 34 29 |.Q....15,"P".(4)|
00000940: C7 28 52 AA 35 29 C7 28 30 29 C7 28 58 AA 43 5A |.(R.5).(0).(X.CZ|
00000950: 29 00 5C 11 CA 03 A1 23 34 2C 41 24 00 87 11 D4 |).\....#4,A$....|
00000960: 03 8B 20 41 24 20 B2 20 C7 28 32 34 36 29 20 A7 |.. A$ . .(246) .|
00000970: 20 20 8D 20 32 34 30 30 3A 20 43 5A B2 43 5A AA | . 2400: CZ.CZ.|
00000980: 31 3A 89 20 39 37 30 00 B2 11 DE 03 8B 20 41 24 |1:. 970...... A$|
00000990: 20 B2 20 C7 28 32 34 37 29 20 A7 20 20 8D 20 32 | . .(247) . . 2|
000009A0: 34 30 30 3A 20 43 5A B2 43 5A AA 31 3A 89 20 39 |400: CZ.CZ.1:. 9|
000009B0: 37 30 00 C5 11 E8 03 44 41 25 28 58 2C 46 29 B2 |70.....DA%(X,F).|
000009C0: C6 28 41 24 29 00 CD 11 F2 03 82 20 58 00 D5 11 |.(A$)...... X...|
000009D0: FC 03 82 20 46 00 1A 12 10 04 8F 20 20 43 4F 4D |... F...... COM|
000009E0: 42 49 4E 45 20 44 41 54 28 29 20 57 49 54 48 20 |BINE DAT() WITH |
000009F0: 53 54 4F 43 4B 20 56 41 4C 55 45 53 20 54 4F 20 |STOCK VALUES TO |
00000A00: 46 4F 52 4D 20 50 52 49 43 45 28 31 29 20 54 4F |FORM PRICE(1) TO|
00000A10: 20 50 52 49 43 45 28 31 35 29 00 2B 12 24 04 81 | PRICE(15).+.$..|
00000A20: 20 46 20 B2 20 31 20 A4 20 31 35 00 35 12 2E 04 | F . 1 . 15.5...|
00000A30: 5A 20 B2 20 46 00 48 12 38 04 52 20 B2 20 4D 41 |Z . F.H.8.R . MA|
00000A40: 28 46 29 3A 43 5A B2 30 00 66 12 88 04 52 44 28 |(F):CZ.0.f...RD(|
00000A50: 5A 29 20 B2 20 28 20 BB 28 30 29 20 AC 20 31 30 |Z) . ( .(0) . 10|
00000A60: 29 20 AA 20 33 35 00 77 12 92 04 81 20 58 20 B2 |) . 35.w.... X .|
00000A70: 20 31 20 A4 20 39 31 00 99 12 97 04 98 31 35 2C | 1 . 91......15,|
00000A80: 22 50 22 C7 28 34 29 C7 28 52 AA 31 35 29 C7 28 |"P".(4).(R.15).(|
00000A90: 30 29 C7 28 58 AA 43 5A 29 00 A4 12 9C 04 A1 23 |0).(X.CZ)......#|
00000AA0: 34 2C 41 24 00 D0 12 A6 04 8B 20 41 24 20 B2 20 |4,A$...... A$ . |
00000AB0: C7 28 32 34 38 29 20 A7 20 20 8D 20 32 34 30 30 |.(248) . . 2400|
00000AC0: 3A 43 5A B2 43 5A AA 31 3A 20 89 20 31 31 38 30 |:CZ.CZ.1: . 1180|
00000AD0: 00 FC 12 B0 04 8B 20 41 24 20 B2 20 C7 28 32 34 |...... A$ . .(24|
00000AE0: 39 29 20 A7 20 20 8D 20 32 34 30 30 3A 43 5A B2 |9) . . 2400:CZ.|
00000AF0: 43 5A AA 31 3A 20 89 20 31 31 38 30 00 28 13 BA |CZ.1: . 1180.(..|
00000B00: 04 8B 20 41 24 20 B2 20 C7 28 32 35 30 29 20 A7 |.. A$ . .(250) .|
00000B10: 20 20 8D 20 32 34 30 30 3A 43 5A B2 43 5A AA 31 | . 2400:CZ.CZ.1|
00000B20: 3A 20 89 20 31 31 38 30 00 54 13 C4 04 8B 20 41 |: . 1180.T.... A|
00000B30: 24 20 B2 20 C7 28 32 35 31 29 20 A7 20 20 8D 20 |$ . .(251) . . |
00000B40: 32 34 30 30 3A 43 5A B2 43 5A AA 31 3A 20 89 20 |2400:CZ.CZ.1: . |
00000B50: 31 31 38 30 00 80 13 CE 04 8B 20 41 24 20 B2 20 |1180...... A$ . |
00000B60: C7 28 32 35 32 29 20 A7 20 20 8D 20 32 34 30 30 |.(252) . . 2400|
00000B70: 3A 43 5A B2 43 5A AA 31 3A 20 89 20 31 31 38 30 |:CZ.CZ.1: . 1180|
00000B80: 00 AC 13 D8 04 8B 20 41 24 20 B2 20 C7 28 32 35 |...... A$ . .(25|
00000B90: 33 29 20 A7 20 20 8D 20 32 34 30 30 3A 43 5A B2 |3) . . 2400:CZ.|
00000BA0: 43 5A AA 31 3A 20 89 20 31 31 38 30 00 D8 13 E2 |CZ.1: . 1180....|
00000BB0: 04 8B 20 41 24 20 B2 20 C7 28 32 35 34 29 20 A7 |.. A$ . .(254) .|
00000BC0: 20 20 8D 20 32 34 30 30 3A 43 5A B2 43 5A AA 31 | . 2400:CZ.CZ.1|
00000BD0: 3A 20 89 20 31 31 38 30 00 23 14 EC 04 50 52 25 |: . 1180.#...PR%|
00000BE0: 28 58 2C 46 29 B2 28 28 28 C6 28 41 24 29 AD 31 |(X,F).(((.(A$).1|
00000BF0: 30 30 29 AC 44 41 25 28 58 2C B5 28 28 28 5A AB |00).DA%(X,.(((Z.|
00000C00: 31 29 AD 33 29 AA 31 29 29 AC 44 41 25 28 58 2C |1).3).1)).DA%(X,|
00000C10: 36 29 AC 52 44 28 5A 29 29 AC 32 35 29 AD 31 30 |6).RD(Z)).25).10|
00000C20: 30 30 30 00 2B 14 F6 04 82 20 58 00 33 14 00 05 |000.+.... X.3...|
00000C30: 82 20 46 00 3B 14 0A 05 A0 20 34 00 65 14 14 05 |. F.;.... 4.e...|
00000C40: 8F 20 20 43 4F 4D 50 49 4C 45 20 49 4E 44 55 53 |. COMPILE INDUS|
00000C50: 54 52 59 20 41 4E 44 20 43 4F 4D 4D 4F 4E 20 54 |TRY AND COMMON T|
00000C60: 4F 54 41 4C 53 00 76 14 28 05 81 20 58 20 B2 20 |OTALS.v.(.. X . |
00000C70: 31 20 A4 20 39 31 00 88 14 3C 05 50 52 25 28 58 |1 . 91...<.PR%(X|
00000C80: 2C 32 31 29 20 B2 20 30 00 99 14 46 05 81 20 5A |,21) . 0...F.. Z|
00000C90: 20 B2 20 31 20 A4 20 31 35 00 BE 14 50 05 50 52 | . 1 . 15...P.PR|
00000CA0: 25 28 58 2C 32 31 29 20 B2 20 50 52 25 28 58 2C |%(X,21) . PR%(X,|
00000CB0: 32 31 29 20 AA 20 50 52 25 28 58 2C 5A 29 00 C6 |21) . PR%(X,Z)..|
00000CC0: 14 5A 05 82 20 5A 00 CE 14 64 05 82 20 58 00 DF |.Z.. Z...d.. X..|
00000CD0: 14 78 05 81 20 58 20 B2 20 31 20 A4 20 39 31 00 |.x.. X . 1 . 91.|
00000CE0: F1 14 8C 05 81 20 57 20 B2 20 31 36 20 A4 20 32 |..... W . 16 . 2|
00000CF0: 30 00 02 15 96 05 50 52 25 28 58 2C 57 29 20 B2 |0.....PR%(X,W) .|
00000D00: 20 30 00 12 15 A0 05 81 20 5A 20 B2 20 31 20 A4 | 0...... Z . 1 .|
00000D10: 20 33 00 46 15 AA 05 50 52 25 28 58 2C 57 29 20 | 3.F...PR%(X,W) |
00000D20: B2 20 50 52 25 28 58 2C 57 29 20 AA 20 50 52 25 |. PR%(X,W) . PR%|
00000D30: 28 58 2C 28 28 57 20 AB 20 31 36 29 20 AC 20 33 |(X,((W . 16) . 3|
00000D40: 29 20 AA 20 5A 29 00 58 15 B4 05 82 20 5A 3A 20 |) . Z).X.... Z: |
00000D50: 82 20 57 3A 20 82 20 58 00 7C 15 BE 05 8F 20 20 |. W: . X.|.... |
00000D60: 49 4E 49 54 49 41 4C 49 5A 45 20 54 52 41 4E 53 |INITIALIZE TRANS|
00000D70: 41 43 54 49 4F 4E 20 54 41 42 4C 45 00 8D 15 C8 |ACTION TABLE....|
00000D80: 05 81 20 58 20 B2 20 31 20 A4 20 31 35 00 9D 15 |.. X . 1 . 15...|
00000D90: E6 05 81 20 59 20 B2 20 31 20 A4 20 34 00 B9 15 |... Y . 1 . 4...|
00000DA0: F0 05 54 52 28 58 2C 59 29 20 B2 20 50 52 25 28 |..TR(X,Y) . PR%(|
00000DB0: 31 2C 58 29 20 AD 20 32 35 00 C1 15 FA 05 82 20 |1,X) . 25...... |
00000DC0: 59 00 C9 15 04 06 82 20 58 00 DB 15 0E 06 81 20 |Y...... X...... |
00000DD0: 57 45 20 B2 20 32 20 A4 20 31 33 00 E6 15 22 06 |WE . 2 . 13...".|
00000DE0: 8D 20 32 37 33 30 00 EF 15 2C 06 82 20 57 45 00 |. 2730...,.. WE.|
00000DF0: FB 15 36 06 57 45 20 B2 20 31 34 00 07 16 40 06 |..6.WE . 14...@.|
00000E00: 54 54 20 B2 20 4D 4F 00 19 16 4F 06 93 22 50 4C |TT . MO...O.."PL|
00000E10: 41 59 2E 42 41 53 22 2C 38 00 31 16 54 06 8F 20 |AY.BAS",8.1.T.. |
00000E20: 20 53 55 42 20 46 4F 52 20 4E 45 57 20 47 41 4D | SUB FOR NEW GAM|
00000E30: 45 00 3A 16 5E 06 99 22 93 22 00 4F 16 68 06 9F |E.:.^..".".O.h..|
00000E40: 20 33 2C 38 2C 33 2C 22 50 4C 41 59 45 52 22 00 | 3,8,3,"PLAYER".|
00000E50: 79 16 7C 06 99 20 22 20 20 20 20 20 20 20 20 20 |y.|.. " |
00000E60: 20 20 4C 41 53 54 20 20 20 20 20 48 49 47 48 20 | LAST HIGH |
00000E70: 20 20 20 20 20 20 20 20 22 00 A6 16 86 06 99 20 | "...... |
00000E80: 22 20 20 20 4E 41 4D 45 20 20 20 20 53 43 4F 52 |" NAME SCOR|
00000E90: 45 20 20 20 20 53 43 4F 52 45 20 20 20 20 20 53 |E SCORE S|
00000EA0: 54 41 54 55 53 22 00 D7 16 90 06 99 20 22 20 20 |TATUS"...... " |
00000EB0: 20 2D 2D 2D 2D 2D 20 2D 2D 2D 2D 2D 2D 2D 2D 20 | ----- -------- |
00000EC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 2D 2D 2D 2D 2D 2D |--------- ------|
00000ED0: 2D 2D 2D 2D 2D 2D 22 00 E8 16 9A 06 81 20 58 20 |------"...... X |
00000EE0: B2 20 31 20 A4 20 31 35 00 15 17 9C 06 98 31 35 |. 1 . 15......15|
00000EF0: 2C 22 50 22 C7 28 33 29 C7 28 58 29 C7 28 30 29 |,"P".(3).(X).(0)|
00000F00: C7 28 31 29 3A 84 33 2C 50 4C 24 2C 4C 41 2C 48 |.(1):.3,PL$,LA,H|
00000F10: 49 2C 53 54 24 00 20 17 9F 06 58 25 20 B2 20 58 |I,ST$. ...X% . X|
00000F20: 00 34 17 AE 06 8B 20 48 49 20 B2 20 30 20 89 20 |.4.... HI . 0 . |
00000F30: 31 37 38 30 00 64 17 B8 06 59 50 25 B2 58 25 AA |1780.d...YP%.X%.|
00000F40: 34 3A 58 50 25 B2 31 3A 8D 32 30 30 30 30 3A 4B |4:XP%.1:.20000:K|
00000F50: B2 58 25 3A 4A 57 B2 32 3A 8D 36 30 30 30 3A 99 |.X%:JW.2:.6000:.|
00000F60: 22 2E 22 3B 00 88 17 C2 06 59 50 25 B2 58 25 20 |".";.....YP%.X% |
00000F70: AA 20 34 3A 20 58 50 25 B2 34 3A 8D 32 30 30 30 |. 4: XP%.4:.2000|
00000F80: 30 3A 99 20 50 4C 24 3B 00 BC 17 CC 06 59 50 25 |0:. PL$;.....YP%|
00000F90: B2 58 25 20 AA 20 34 3A 20 58 50 25 B2 31 30 3A |.X% . 4: XP%.10:|
00000FA0: 8D 32 30 30 30 30 3A 4B 20 B2 20 4C 41 3A 4A 57 |.20000:K . LA:JW|
00000FB0: 20 B2 20 38 3A 20 8D 20 36 30 30 30 00 F0 17 D6 | . 8: . 6000....|
00000FC0: 06 59 50 25 B2 58 25 20 AA 20 34 3A 20 58 50 25 |.YP%.X% . 4: XP%|
00000FD0: B2 31 39 3A 8D 32 30 30 30 30 3A 4B 20 B2 20 48 |.19:.20000:K . H|
00000FE0: 49 3A 4A 57 20 B2 20 39 3A 20 8D 20 36 30 30 30 |I:JW . 9: . 6000|
00000FF0: 00 14 18 E0 06 59 50 25 B2 58 25 20 AA 20 34 3A |.....YP%.X% . 4:|
00001000: 20 58 50 25 B2 32 39 3A 8D 32 30 30 30 30 3A 99 | XP%.29:.20000:.|
00001010: 20 53 54 24 00 1C 18 EA 06 82 20 58 00 5B 18 F4 | ST$...... X.[..|
00001020: 06 59 50 25 B2 32 30 3A 58 50 25 B2 37 3A 8D 32 |.YP%.20:XP%.7:.2|
00001030: 30 30 30 30 3A 8D 37 30 30 30 3A 99 22 45 4E 54 |0000:.7000:."ENT|
00001040: 45 52 20 50 4C 41 59 45 52 20 4E 55 4D 42 45 52 |ER PLAYER NUMBER|
00001050: 20 54 4F 20 53 54 41 52 54 2E 22 00 70 18 F9 06 | TO START.".p...|
00001060: 8B 20 58 25 B2 31 35 20 A7 20 89 20 31 38 30 30 |. X%.15 . . 1800|
00001070: 00 B3 18 FE 06 59 50 25 B2 32 31 3A 20 58 50 25 |.....YP%.21: XP%|
00001080: B2 33 3A 8D 32 30 30 30 30 3A 99 20 22 49 46 20 |.3:.20000:. "IF |
00001090: 59 4F 55 20 41 52 45 20 41 20 4E 45 57 20 50 4C |YOU ARE A NEW PL|
000010A0: 41 59 45 52 20 50 52 45 53 53 20 52 45 54 55 52 |AYER PRESS RETUR|
000010B0: 4E 2E 22 00 F7 18 08 07 59 50 25 B2 32 32 3A 58 |N.".....YP%.22:X|
000010C0: 50 25 B2 31 3A 8D 32 30 30 30 30 3A 99 20 22 20 |P%.1:.20000:. " |
000010D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010E0: 20 20 20 22 3B 3A 54 38 B2 31 3A 8D 33 30 30 30 | ";:T8.1:.3000|
000010F0: 30 3A 51 24 B2 5A 24 00 07 19 12 07 51 20 B2 20 |0:Q$.Z$.....Q . |
00001100: 20 C5 20 28 51 24 29 00 20 19 1C 07 8B 51 24 B2 | . (Q$). ....Q$.|
00001110: 22 22 A7 8B 58 25 B2 31 35 A7 89 20 31 38 32 38 |""..X%.15.. 1828|
00001120: 00 2B 19 20 07 89 20 31 38 33 30 00 6C 19 24 07 |.+. .. 1830.l.$.|
00001130: 99 22 20 20 20 20 59 4F 55 20 4D 41 59 20 4E 4F |." YOU MAY NO|
00001140: 54 20 41 44 44 20 41 4E 59 20 4E 45 57 20 50 4C |T ADD ANY NEW PL|
00001150: 41 59 45 52 53 2E 22 3B 3A 8D 37 30 30 30 3A 59 |AYERS.";:.7000:Y|
00001160: 50 25 B2 32 32 3A 58 50 25 B2 32 32 00 8B 19 25 |P%.22:XP%.22...%|
00001170: 07 8D 20 32 30 30 30 30 3A 99 22 20 20 20 20 20 |.. 20000:." |
00001180: 20 20 22 3B 3A 89 20 31 37 38 30 00 9E 19 26 07 | ";:. 1780...&.|
00001190: 8B 20 51 24 B2 22 22 20 89 20 31 39 32 30 00 DA |. Q$."" . 1920..|
000011A0: 19 30 07 8B C5 28 51 24 29 B3 31 A7 99 22 20 20 |.0...(Q$).1.." |
000011B0: 20 20 20 59 4F 55 20 4D 55 53 54 20 45 4E 54 45 | YOU MUST ENTE|
000011C0: 52 20 41 20 56 41 4C 49 44 20 4E 55 4D 42 45 52 |R A VALID NUMBER|
000011D0: 2E 20 22 3B 3A 89 31 38 34 37 00 E5 19 33 07 89 |. ";:.1847...3..|
000011E0: 20 31 38 35 30 00 1C 1A 37 07 8D 37 30 30 30 3A | 1850...7..7000:|
000011F0: 20 59 50 25 B2 32 32 3A 20 58 50 25 B2 32 32 3A | YP%.22: XP%.22:|
00001200: 8D 32 30 30 30 30 3A 99 20 22 20 20 20 20 20 20 |.20000:. " |
00001210: 20 20 22 3B 3A 20 89 20 31 37 38 30 00 58 1A 3A | ";: . 1780.X.:|
00001220: 07 8B 51 B1 58 25 AB 31 A7 99 22 20 20 20 20 20 |..Q.X%.1.." |
00001230: 59 4F 55 20 4D 55 53 54 20 45 4E 54 45 52 20 41 |YOU MUST ENTER A|
00001240: 20 56 41 4C 49 44 20 4E 55 4D 42 45 52 2E 20 22 | VALID NUMBER. "|
00001250: 3B 3A 89 20 31 38 35 37 00 63 1A 3D 07 89 20 31 |;:. 1857.c.=.. 1|
00001260: 38 36 30 00 9A 1A 41 07 8D 37 30 30 30 3A 20 59 |860...A..7000: Y|
00001270: 50 25 B2 32 32 3A 20 58 50 25 B2 32 32 3A 8D 32 |P%.22: XP%.22:.2|
00001280: 30 30 30 30 3A 99 20 22 20 20 20 20 20 20 20 20 |0000:. " |
00001290: 22 3B 3A 20 89 20 31 37 38 30 00 C7 1A 44 07 98 |";: . 1780...D..|
000012A0: 31 35 2C 22 50 22 C7 28 33 29 C7 28 51 29 C7 28 |15,"P".(3).(Q).(|
000012B0: 30 29 C7 28 31 29 3A 84 33 2C 50 4C 24 2C 4C 41 |0).(1):.3,PL$,LA|
000012C0: 2C 48 49 2C 53 54 24 00 D2 1A 4E 07 4E 41 20 B2 |,HI,ST$...N.NA .|
000012D0: 20 51 00 F1 1A 6C 07 8B 20 4C 41 20 B1 20 39 39 | Q...l.. LA . 99|
000012E0: 39 39 39 39 20 A7 20 4D 4F 20 B2 20 35 30 30 30 |9999 . MO . 5000|
000012F0: 30 00 10 1B 71 07 8B 20 4C 41 20 B3 20 20 B2 20 |0...q.. LA . . |
00001300: 39 39 39 39 39 39 20 A7 20 4D 4F 20 B2 20 4C 41 |999999 . MO . LA|
00001310: 00 31 1B 76 07 A0 20 33 3A 84 31 35 2C 41 3A 8B |.1.v.. 3:.15,A:.|
00001320: 20 41 B2 32 36 A7 54 34 B2 33 3A 89 20 35 31 30 | A.26.T4.3:. 510|
00001330: 30 00 37 1B 7B 07 8E 00 40 1B 80 07 99 22 93 22 |0.7.{...@...."."|
00001340: 00 78 1B 8A 07 8D 37 30 30 30 3A 99 20 22 50 4C |.x....7000:. "PL|
00001350: 45 41 53 45 20 45 4E 54 45 52 20 59 4F 55 52 20 |EASE ENTER YOUR |
00001360: 49 4E 49 54 49 41 4C 53 22 3B 3A 8D 33 30 30 30 |INITIALS";:.3000|
00001370: 30 3A 49 50 24 B2 5A 24 00 8D 1B 8F 07 49 50 24 |0:IP$.Z$.....IP$|
00001380: 20 B2 20 20 C8 20 28 49 50 24 2C 35 29 00 AC 1B | . . (IP$,5)...|
00001390: 94 07 4D 4F 20 B2 20 31 30 30 30 30 3A 48 49 20 |..MO . 10000:HI |
000013A0: B2 20 4D 4F 3A 4C 41 20 B2 20 4D 4F 00 BA 1B 9E |. MO:LA . MO....|
000013B0: 07 50 4C 24 20 B2 20 49 50 24 00 D0 1B A8 07 4E |.PL$ . IP$.....N|
000013C0: 50 B2 31 3A 53 54 24 B2 22 4E 4F 56 49 43 45 22 |P.1:ST$."NOVICE"|
000013D0: 00 0A 1C B2 07 98 31 35 2C 22 50 22 C7 28 33 29 |......15,"P".(3)|
000013E0: C7 28 58 25 29 C7 28 30 29 C7 28 31 29 3A 98 33 |.(X%).(0).(1):.3|
000013F0: 2C 50 4C 24 3B 22 2C 22 3B 4C 41 3B 22 2C 22 3B |,PL$;",";LA;",";|
00001400: 48 49 3B 22 2C 22 3B 53 54 24 00 16 1C BC 07 4E |HI;",";ST$.....N|
00001410: 41 20 B2 20 58 25 00 21 1C C6 07 89 20 31 39 31 |A . X%.!.... 191|
00001420: 30 00 3B 1C D0 07 8F 20 20 53 55 42 20 46 4F 52 |0.;.... SUB FOR|
00001430: 20 53 41 56 45 44 20 47 41 4D 45 00 52 1C 07 08 | SAVED GAME.R...|
00001440: 9F 20 32 2C 38 2C 32 2C 22 53 41 56 45 2C 53 2C |. 2,8,2,"SAVE,S,|
00001450: 52 22 00 5C 1C 0C 08 84 31 35 2C 41 00 6E 1C 16 |R".\....15,A.n..|
00001460: 08 8B 20 41 B2 36 32 20 89 20 35 30 30 34 00 A9 |.. A.62 . 5004..|
00001470: 1C 18 08 99 22 93 22 3A 59 50 25 B2 31 32 3A 58 |....".":YP%.12:X|
00001480: 50 25 B2 37 3A 8D 32 30 30 30 30 3A 99 22 2A 2A |P%.7:.20000:."**|
00001490: 20 52 45 43 41 4C 4C 49 4E 47 20 53 41 56 45 44 | RECALLING SAVED|
000014A0: 20 47 41 4D 45 20 2A 2A 22 00 B2 1C 1B 08 84 32 | GAME **"......2|
000014B0: 2C 58 00 C3 1C 20 08 81 20 58 20 B2 20 31 20 A4 |,X... .. X . 1 .|
000014C0: 20 39 31 00 D4 1C 2A 08 81 20 59 20 B2 20 31 20 | 91...*.. Y . 1 |
000014D0: A4 20 32 31 00 E4 1C 39 08 84 32 2C 50 52 25 28 |. 21...9..2,PR%(|
000014E0: 58 2C 59 29 00 EC 1C 3E 08 82 20 59 00 F4 1C 48 |X,Y)...>.. Y...H|
000014F0: 08 82 20 58 00 08 1D 57 08 84 32 2C 4D 4F 2C 53 |.. X...W..2,MO,S|
00001500: 54 24 2C 4E 41 2C 50 31 00 1B 1D 61 08 84 32 2C |T$,NA,P1...a..2,|
00001510: 4C 4F 2C 57 45 2C 54 54 2C 48 49 00 2C 1D A2 08 |LO,WE,TT,HI.,...|
00001520: 81 20 58 20 B2 20 31 20 A4 20 50 31 00 3C 1D AC |. X . 1 . P1.<..|
00001530: 08 81 20 59 20 B2 20 31 20 A4 20 33 00 4C 1D BB |.. Y . 1 . 3.L..|
00001540: 08 84 32 2C 45 56 25 28 58 2C 59 29 00 54 1D C0 |..2,EV%(X,Y).T..|
00001550: 08 82 20 59 00 5C 1D CA 08 82 20 58 00 6D 1D D4 |.. Y.\.... X.m..|
00001560: 08 81 20 58 20 B2 20 31 20 A4 20 31 35 00 7D 1D |.. X . 1 . 15.}.|
00001570: DE 08 81 20 59 20 B2 20 31 20 A4 20 34 00 8C 1D |... Y . 1 . 4...|
00001580: ED 08 84 32 2C 54 52 28 58 2C 59 29 00 94 1D F2 |...2,TR(X,Y)....|
00001590: 08 82 20 59 00 9C 1D FC 08 82 20 58 00 AD 1D 06 |.. Y...... X....|
000015A0: 09 81 20 58 20 B2 20 31 20 A4 20 34 35 00 BD 1D |.. X . 1 . 45...|
000015B0: 10 09 81 20 59 20 B2 20 31 20 A4 20 36 00 CC 1D |... Y . 1 . 6...|
000015C0: 1F 09 84 32 2C 50 4F 28 58 2C 59 29 00 D4 1D 24 |...2,PO(X,Y)...$|
000015D0: 09 82 20 59 00 DC 1D 2E 09 82 20 58 00 ED 1D 38 |.. Y...... X...8|
000015E0: 09 81 20 58 20 B2 20 31 20 A4 20 31 35 00 FA 1D |.. X . 1 . 15...|
000015F0: 47 09 84 32 2C 44 53 28 58 29 00 02 1E 4C 09 82 |G..2,DS(X)...L..|
00001600: 20 58 00 0D 1E 56 09 A0 20 32 3A 20 8E 00 44 1E | X...V.. 2: ..D.|
00001610: 60 09 8F 20 20 53 55 42 20 54 4F 20 44 45 43 4F |`.. SUB TO DECO|
00001620: 44 45 20 45 56 45 4E 54 20 4D 41 52 4B 45 52 53 |DE EVENT MARKERS|
00001630: 20 54 4F 20 4D 45 53 44 41 54 41 20 50 4F 49 4E | TO MESDATA POIN|
00001640: 54 45 52 53 00 8B 1E 6A 09 8F 20 20 4D 55 53 54 |TERS...j.. MUST|
00001650: 20 42 45 20 45 4E 54 45 52 45 44 20 57 49 54 48 | BE ENTERED WITH|
00001660: 20 57 45 45 4B 20 49 4E 20 58 2C 54 59 50 45 20 | WEEK IN X,TYPE |
00001670: 49 4E 20 41 24 2C 41 4E 44 20 4E 41 4D 45 20 50 |IN A$,AND NAME P|
00001680: 4F 49 4E 54 45 52 20 49 4E 20 5A 00 9B 1E 74 09 |OINTER IN Z...t.|
00001690: 50 31 20 B2 20 50 31 20 AA 20 31 00 AD 1E 7E 09 |P1 . P1 . 1...~.|
000016A0: 45 56 25 28 50 31 2C 31 29 20 B2 20 58 00 F1 1E |EV%(P1,1) . X...|
000016B0: 88 09 8B 20 41 24 20 B2 20 C7 28 32 34 34 29 20 |... A$ . .(244) |
000016C0: A7 20 45 56 25 28 50 31 2C 32 29 20 B2 20 30 3A |. EV%(P1,2) . 0:|
000016D0: 45 56 25 28 50 31 2C 33 29 20 B2 20 20 B5 20 28 |EV%(P1,3) . . (|
000016E0: 28 20 BB 28 30 29 20 AC 20 31 32 29 20 AA 20 31 |( .(0) . 12) . 1|
000016F0: 29 00 27 1F 92 09 8B 41 24 B2 C7 28 32 34 35 29 |).'....A$..(245)|
00001700: A7 45 56 25 28 50 31 2C 32 29 B2 30 3A 45 56 25 |.EV%(P1,2).0:EV%|
00001710: 28 50 31 2C 33 29 B2 B5 28 28 BB 28 30 29 AC 38 |(P1,3)..((.(0).8|
00001720: 29 AA 31 29 AA 31 32 00 63 1F 9C 09 8B 41 24 B2 |).1).12.c....A$.|
00001730: C7 28 32 34 36 29 A7 8B 5A B2 31 A7 45 56 25 28 |.(246)..Z.1.EV%(|
00001740: 50 31 2C 32 29 B2 32 31 3A 45 56 25 28 50 31 2C |P1,2).21:EV%(P1,|
00001750: 33 29 B2 B5 28 28 BB 28 30 29 AC 38 29 AA 31 29 |3)..((.(0).8).1)|
00001760: AA 32 30 00 9F 1F A6 09 8B 41 24 B2 C7 28 32 34 |.20......A$..(24|
00001770: 37 29 A7 8B 5A B2 31 A7 45 56 25 28 50 31 2C 32 |7)..Z.1.EV%(P1,2|
00001780: 29 B2 32 31 3A 45 56 25 28 50 31 2C 33 29 B2 B5 |).21:EV%(P1,3)..|
00001790: 28 28 BB 28 30 29 AC 38 29 AA 31 29 AA 32 38 00 |((.(0).8).1).28.|
000017A0: DB 1F B0 09 8B 41 24 B2 C7 28 32 34 36 29 A7 8B |.....A$..(246)..|
000017B0: 5A B2 32 A7 45 56 25 28 50 31 2C 32 29 B2 32 32 |Z.2.EV%(P1,2).22|
000017C0: 3A 45 56 25 28 50 31 2C 33 29 B2 B5 28 28 BB 28 |:EV%(P1,3)..((.(|
000017D0: 30 29 AC 38 29 AA 31 29 AA 33 36 00 17 20 BA 09 |0).8).1).36.. ..|
000017E0: 8B 41 24 B2 C7 28 32 34 37 29 A7 8B 5A B2 32 A7 |.A$..(247)..Z.2.|
000017F0: 45 56 25 28 50 31 2C 32 29 B2 32 32 3A 45 56 25 |EV%(P1,2).22:EV%|
00001800: 28 50 31 2C 33 29 B2 B5 28 28 BB 28 30 29 AC 38 |(P1,3)..((.(0).8|
00001810: 29 AA 31 29 AA 34 34 00 53 20 C4 09 8B 41 24 B2 |).1).44.S ...A$.|
00001820: C7 28 32 34 36 29 A7 8B 5A B2 33 A7 45 56 25 28 |.(246)..Z.3.EV%(|
00001830: 50 31 2C 32 29 B2 32 33 3A 45 56 25 28 50 31 2C |P1,2).23:EV%(P1,|
00001840: 33 29 B2 B5 28 28 BB 28 30 29 AC 38 29 AA 31 29 |3)..((.(0).8).1)|
00001850: AA 35 32 00 8F 20 CE 09 8B 41 24 B2 C7 28 32 34 |.52.. ...A$..(24|
00001860: 37 29 A7 8B 5A B2 33 A7 45 56 25 28 50 31 2C 32 |7)..Z.3.EV%(P1,2|
00001870: 29 B2 32 33 3A 45 56 25 28 50 31 2C 33 29 B2 B5 |).23:EV%(P1,3)..|
00001880: 28 28 BB 28 30 29 AC 38 29 AA 31 29 AA 36 30 00 |((.(0).8).1).60.|
00001890: CB 20 D8 09 8B 41 24 B2 C7 28 32 34 36 29 A7 8B |. ...A$..(246)..|
000018A0: 5A B2 34 A7 45 56 25 28 50 31 2C 32 29 B2 32 34 |Z.4.EV%(P1,2).24|
000018B0: 3A 45 56 25 28 50 31 2C 33 29 B2 B5 28 28 BB 28 |:EV%(P1,3)..((.(|
000018C0: 30 29 AC 38 29 AA 31 29 AA 36 38 00 07 21 E2 09 |0).8).1).68..!..|
000018D0: 8B 41 24 B2 C7 28 32 34 37 29 A7 8B 5A B2 34 A7 |.A$..(247)..Z.4.|
000018E0: 45 56 25 28 50 31 2C 32 29 B2 32 34 3A 45 56 25 |EV%(P1,2).24:EV%|
000018F0: 28 50 31 2C 33 29 B2 B5 28 28 BB 28 30 29 AC 38 |(P1,3)..((.(0).8|
00001900: 29 AA 31 29 AA 37 36 00 43 21 EC 09 8B 41 24 B2 |).1).76.C!...A$.|
00001910: C7 28 32 34 36 29 A7 8B 5A B2 35 A7 45 56 25 28 |.(246)..Z.5.EV%(|
00001920: 50 31 2C 32 29 B2 32 35 3A 45 56 25 28 50 31 2C |P1,2).25:EV%(P1,|
00001930: 33 29 B2 B5 28 28 BB 28 30 29 AC 38 29 AA 31 29 |3)..((.(0).8).1)|
00001940: AA 38 34 00 7F 21 F6 09 8B 41 24 B2 C7 28 32 34 |.84..!...A$..(24|
00001950: 37 29 A7 8B 5A B2 35 A7 45 56 25 28 50 31 2C 32 |7)..Z.5.EV%(P1,2|
00001960: 29 B2 32 35 3A 45 56 25 28 50 31 2C 33 29 B2 B5 |).25:EV%(P1,3)..|
00001970: 28 28 BB 28 30 29 AC 38 29 AA 31 29 AA 39 32 00 |((.(0).8).1).92.|
00001980: B6 21 00 0A 8B 41 24 B2 C7 28 32 34 38 29 A7 45 |.!...A$..(248).E|
00001990: 56 25 28 50 31 2C 32 29 B2 5A 3A 45 56 25 28 50 |V%(P1,2).Z:EV%(P|
000019A0: 31 2C 33 29 B2 B5 28 28 BB 28 30 29 AC 35 29 AA |1,3)..((.(0).5).|
000019B0: 31 29 AA 31 30 30 00 F0 21 0A 0A 8B 41 24 B2 C7 |1).100..!...A$..|
000019C0: 28 32 34 39 29 A7 45 56 25 28 50 31 2C 32 29 B2 |(249).EV%(P1,2).|
000019D0: 33 30 AA 5A 3A 45 56 25 28 50 31 2C 33 29 B2 B5 |30.Z:EV%(P1,3)..|
000019E0: 28 28 BB 28 30 29 AC 35 29 AA 31 29 AA 31 30 35 |((.(0).5).1).105|
000019F0: 00 2A 22 14 0A 8B 41 24 B2 C7 28 32 35 30 29 A7 |.*"...A$..(250).|
00001A00: 45 56 25 28 50 31 2C 32 29 B2 33 30 AA 5A 3A 45 |EV%(P1,2).30.Z:E|
00001A10: 56 25 28 50 31 2C 33 29 B2 B5 28 28 BB 28 30 29 |V%(P1,3)..((.(0)|
00001A20: AC 35 29 AA 31 29 AA 31 31 30 00 64 22 1E 0A 8B |.5).1).110.d"...|
00001A30: 41 24 B2 C7 28 32 35 31 29 A7 45 56 25 28 50 31 |A$..(251).EV%(P1|
00001A40: 2C 32 29 B2 33 30 AA 5A 3A 45 56 25 28 50 31 2C |,2).30.Z:EV%(P1,|
00001A50: 33 29 B2 B5 28 28 BB 28 30 29 AC 35 29 AA 31 29 |3)..((.(0).5).1)|
00001A60: AA 31 31 35 00 A5 22 28 0A 8B 41 24 B2 C7 28 32 |.115.."(..A$..(2|
00001A70: 35 32 29 A7 45 56 25 28 50 31 2C 32 29 B2 5A 3A |52).EV%(P1,2).Z:|
00001A80: 45 56 25 28 50 31 2C 33 29 B2 B5 28 28 BB 28 30 |EV%(P1,3)..((.(0|
00001A90: 29 AC 34 29 AA 31 29 AA 28 28 5A AB 31 29 AC 34 |).4).1).((Z.1).4|
00001AA0: 29 AA 31 32 30 00 E6 22 32 0A 8B 41 24 B2 C7 28 |).120.."2..A$..(|
00001AB0: 32 35 33 29 A7 45 56 25 28 50 31 2C 32 29 B2 5A |253).EV%(P1,2).Z|
00001AC0: 3A 45 56 25 28 50 31 2C 33 29 B2 B5 28 28 BB 28 |:EV%(P1,3)..((.(|
00001AD0: 30 29 AC 34 29 AA 31 29 AA 28 28 5A AB 31 29 AC |0).4).1).((Z.1).|
00001AE0: 34 29 AA 31 38 30 00 27 23 3C 0A 8B 41 24 B2 C7 |4).180.'#<..A$..|
00001AF0: 28 32 35 34 29 A7 45 56 25 28 50 31 2C 32 29 B2 |(254).EV%(P1,2).|
00001B00: 5A 3A 45 56 25 28 50 31 2C 33 29 B2 B5 28 28 BB |Z:EV%(P1,3)..((.|
00001B10: 28 30 29 AC 34 29 AA 31 29 AA 28 28 5A AB 31 29 |(0).4).1).((Z.1)|
00001B20: AC 34 29 AA 32 34 30 00 3B 23 46 0A 8B 20 50 31 |.4).240.;#F.. P1|
00001B30: 20 B2 20 31 20 89 20 32 37 32 30 00 50 23 50 0A | . 1 . 2720.P#P.|
00001B40: 8B 20 50 31 20 B1 20 31 30 20 89 20 32 36 39 30 |. P1 . 10 . 2690|
00001B50: 00 66 23 5A 0A 81 20 4D 4D 20 B2 20 31 20 A4 20 |.f#Z.. MM . 1 . |
00001B60: 50 31 20 AB 20 31 00 89 23 64 0A 8B 20 45 56 25 |P1 . 1..#d.. EV%|
00001B70: 28 50 31 2C 33 29 20 B2 20 45 56 25 28 4D 4D 2C |(P1,3) . EV%(MM,|
00001B80: 33 29 20 89 20 32 34 34 30 00 92 23 6E 0A 82 20 |3) . 2440..#n.. |
00001B90: 4D 4D 00 9D 23 78 0A 89 20 32 37 32 30 00 B8 23 |MM..#x.. 2720..#|
00001BA0: 82 0A 81 20 4D 4D 20 B2 20 50 31 20 AB 20 39 20 |... MM . P1 . 9 |
00001BB0: A4 20 50 31 20 AB 20 31 00 DB 23 8C 0A 8B 20 45 |. P1 . 1..#... E|
00001BC0: 56 25 28 50 31 2C 33 29 20 B2 20 45 56 25 28 4D |V%(P1,3) . EV%(M|
00001BD0: 4D 2C 33 29 20 89 20 32 34 34 30 00 E4 23 96 0A |M,3) . 2440..#..|
00001BE0: 82 20 4D 4D 00 EA 23 A0 0A 8E 00 0E 24 AA 0A 8F |. MM..#.....$...|
00001BF0: 20 20 53 55 42 52 4F 55 54 49 4E 45 20 54 4F 20 | SUBROUTINE TO |
00001C00: 55 50 44 41 54 45 20 54 52 41 4E 53 28 29 00 3A |UPDATE TRANS().:|
00001C10: 24 BE 0A 8F 20 20 4D 55 53 54 20 42 45 20 43 41 |$... MUST BE CA|
00001C20: 4C 4C 45 44 20 57 49 54 48 20 4E 45 57 20 57 45 |LLED WITH NEW WE|
00001C30: 45 4B 20 49 4E 20 57 45 45 4B 00 4B 24 C8 0A 81 |EK IN WEEK.K$...|
00001C40: 20 58 20 B2 20 31 20 A4 20 31 35 00 61 24 D2 0A | X . 1 . 15.a$..|
00001C50: 54 52 28 58 2C 33 29 20 B2 20 54 52 28 58 2C 34 |TR(X,3) . TR(X,4|
00001C60: 29 00 7E 24 DC 0A 54 52 28 58 2C 34 29 20 B2 20 |).~$..TR(X,4) . |
00001C70: 50 52 25 28 57 45 2C 58 29 20 AD 20 32 35 00 B8 |PR%(WE,X) . 25..|
00001C80: 24 E6 0A 8B 20 50 52 25 28 57 45 2C 58 29 20 AD |$... PR%(WE,X) .|
00001C90: 20 32 35 20 B1 20 54 52 28 58 2C 31 29 20 A7 20 | 25 . TR(X,1) . |
00001CA0: 54 52 28 58 2C 31 29 20 B2 20 50 52 25 28 57 45 |TR(X,1) . PR%(WE|
00001CB0: 2C 58 29 20 AD 20 32 35 00 F2 24 F0 0A 8B 20 50 |,X) . 25..$... P|
00001CC0: 52 25 28 57 45 2C 58 29 20 AD 20 32 35 20 B3 20 |R%(WE,X) . 25 . |
00001CD0: 54 52 28 58 2C 32 29 20 A7 20 54 52 28 58 2C 32 |TR(X,2) . TR(X,2|
00001CE0: 29 20 B2 20 50 52 25 28 57 45 2C 58 29 20 AD 20 |) . PR%(WE,X) . |
00001CF0: 32 35 00 FA 24 FA 0A 82 20 58 00 00 25 04 0B 8E |25..$... X..%...|
00001D00: 00 0E 25 09 0B 9F 20 34 2C 34 3A 9D 20 34 00 3F |..%... 4,4:. 4.?|
00001D10: 25 0E 0B 8F 20 20 52 4F 55 54 49 4E 45 20 54 4F |%... ROUTINE TO|
00001D20: 20 4F 55 54 50 55 54 20 56 41 52 49 41 42 4C 45 | OUTPUT VARIABLE|
00001D30: 53 20 46 4F 52 20 44 45 42 55 47 47 49 4E 47 00 |S FOR DEBUGGING.|
00001D40: 5A 25 18 0B 81 20 58 20 B2 20 31 20 A4 20 35 3A |Z%... X . 1 . 5:|
00001D50: 20 99 20 58 2C 4D 31 28 58 29 00 62 25 22 0B 82 | . X,M1(X).b%"..|
00001D60: 20 58 00 73 25 2C 0B 81 20 58 20 B2 20 31 20 A4 | X.s%,.. X . 1 .|
00001D70: 20 50 31 00 96 25 36 0B 99 20 58 2C 45 56 25 28 | P1..%6.. X,EV%(|
00001D80: 58 2C 31 29 2C 45 56 25 28 58 2C 32 29 2C 45 56 |X,1),EV%(X,2),EV|
00001D90: 25 28 58 2C 33 29 00 9E 25 40 0B 82 20 58 00 AF |%(X,3)..%@.. X..|
00001DA0: 25 54 0B 81 20 58 20 B2 20 31 20 A4 20 39 31 00 |%T.. X . 1 . 91.|
00001DB0: BF 25 5E 0B 99 20 58 3B 22 20 20 20 20 22 3B 00 |.%^.. X;" ";.|
00001DC0: CF 25 68 0B 81 20 5A 20 B2 20 31 20 A4 20 36 00 |.%h.. Z . 1 . 6.|
00001DD0: E4 25 72 0B 99 20 44 41 25 28 58 2C 5A 29 3B 22 |.%r.. DA%(X,Z);"|
00001DE0: 20 20 22 3B 00 EC 25 7C 0B 82 20 5A 00 FA 25 86 | ";..%|.. Z..%.|
00001DF0: 0B 99 20 22 43 4F 22 2C 43 4F 00 02 26 90 0B 82 |.. "CO",CO..&...|
00001E00: 20 58 00 1E 26 9A 0B 81 20 58 20 B2 20 31 20 A4 | X..&... X . 1 .|
00001E10: 20 31 35 3A 20 99 20 58 2C 4D 41 28 58 29 00 26 | 15: . X,MA(X).&|
00001E20: 26 A4 0B 82 20 58 00 37 26 AE 0B 81 20 58 20 B2 |&... X.7&... X .|
00001E30: 20 31 20 A4 20 39 31 00 44 26 B8 0B 99 20 58 3B | 1 . 91.D&... X;|
00001E40: 22 20 22 3B 00 55 26 C2 0B 81 20 5A 20 B2 20 31 |" ";.U&... Z . 1|
00001E50: 20 A4 20 31 35 00 6F 26 CC 0B 99 20 20 B5 20 28 | . 15.o&... . (|
00001E60: 50 52 25 28 58 2C 5A 29 20 AD 20 32 35 29 3B 00 |PR%(X,Z) . 25);.|
00001E70: 7A 26 D6 0B 99 20 22 20 22 3B 00 82 26 E0 0B 82 |z&... " ";..&...|
00001E80: 20 5A 00 88 26 EA 0B 99 00 90 26 F4 0B 82 20 58 | Z..&.....&... X|
00001E90: 00 A1 26 FE 0B 81 20 58 20 B2 20 31 20 A4 20 39 |..&... X . 1 . 9|
00001EA0: 31 00 AE 26 08 0C 99 20 58 3B 22 20 22 3B 00 C0 |1..&... X;" ";..|
00001EB0: 26 12 0C 81 20 5A 20 B2 20 31 36 20 A4 20 32 31 |&... Z . 16 . 21|
00001EC0: 00 DA 26 1C 0C 99 20 20 B5 20 28 50 52 25 28 58 |..&... . (PR%(X|
00001ED0: 2C 5A 29 20 AD 20 32 35 29 3B 00 E5 26 26 0C 99 |,Z) . 25);..&&..|
00001EE0: 20 22 20 22 3B 00 ED 26 30 0C 82 20 5A 00 F3 26 | " ";..&0.. Z..&|
00001EF0: 3A 0C 99 00 FB 26 44 0C 82 20 58 00 0C 27 4E 0C |:....&D.. X..'N.|
00001F00: 81 20 58 20 B2 20 31 20 A4 20 31 35 00 15 27 58 |. X . 1 . 15..'X|
00001F10: 0C 99 20 58 2C 00 25 27 62 0C 81 20 59 20 B2 20 |.. X,.%'b.. Y . |
00001F20: 31 20 A4 20 34 00 39 27 6C 0C 99 20 20 B5 20 28 |1 . 4.9'l.. . (|
00001F30: 54 52 28 58 2C 59 29 29 2C 00 41 27 76 0C 82 20 |TR(X,Y)),.A'v.. |
00001F40: 59 00 47 27 80 0C 99 00 4F 27 8A 0C 82 20 58 00 |Y.G'....O'... X.|
00001F50: 60 27 94 0C 81 20 58 20 B2 20 31 20 A4 20 31 35 |`'... X . 1 . 15|
00001F60: 00 6E 27 9E 0C 99 20 58 2C 52 44 28 58 29 00 76 |.n'... X,RD(X).v|
00001F70: 27 A8 0C 82 20 58 00 81 27 AD 0C 98 34 3A A0 20 |'... X..'...4:. |
00001F80: 34 00 87 27 B2 0C 8E 00 C3 27 A0 0F 99 C7 28 31 |4..'.....'....(1|
00001F90: 34 37 29 3B 3A 97 59 41 2C 32 3A 97 58 41 2C 31 |47);:.YA,2:.XA,1|
00001FA0: 3A 9E 34 39 31 35 32 3A 99 22 41 52 45 20 59 4F |:.49152:."ARE YO|
00001FB0: 55 20 53 55 52 45 20 59 4F 55 20 57 41 4E 54 20 |U SURE YOU WANT |
00001FC0: 54 4F 22 00 01 28 AA 0F 97 59 41 2C 33 3A 97 58 |TO"..(...YA,3:.X|
00001FD0: 41 2C 31 3A 9E 34 39 31 35 32 3A 99 22 43 4C 45 |A,1:.49152:."CLE|
00001FE0: 41 52 20 54 48 45 20 50 4C 41 59 45 52 20 44 49 |AR THE PLAYER DI|
00001FF0: 52 45 43 54 4F 52 59 3F 20 28 59 2F 4E 29 20 22 |RECTORY? (Y/N) "|
00002000: 3B 00 15 28 B4 0F A1 58 24 3A 8B 58 24 B2 22 22 |;..(...X$:.X$.""|
00002010: 89 34 30 32 30 00 1E 28 BE 0F 99 20 58 24 00 30 |.4020..(... X$.0|
00002020: 28 C8 0F 8B 20 58 24 B3 B1 22 59 22 20 A7 20 8E |(... X$.."Y" . .|
00002030: 00 45 28 CD 0F 9F 20 34 2C 38 2C 34 2C 22 50 4C |.E(... 4,8,4,"PL|
00002040: 41 59 45 52 22 00 61 28 CF 0F 98 31 35 2C 22 50 |AYER".a(...15,"P|
00002050: 22 C7 28 34 29 C7 28 31 29 C7 28 30 29 C7 28 31 |".(4).(1).(0).(1|
00002060: 29 00 8A 28 D0 0F 98 34 2C 22 42 43 2C 22 3B 31 |)..(...4,"BC,";1|
00002070: 30 30 30 30 30 3B 22 2C 22 3B 31 30 30 30 30 30 |00000;",";100000|
00002080: 3B 22 2C 42 52 4F 4B 45 52 22 00 99 28 D2 0F 81 |;",BROKER"..(...|
00002090: 20 58 B2 32 20 A4 20 31 35 00 B5 28 DC 0F 98 31 | X.2 . 15..(...1|
000020A0: 35 2C 22 50 22 C7 28 34 29 C7 28 58 29 C7 28 30 |5,"P".(4).(X).(0|
000020B0: 29 C7 28 31 29 00 D4 28 E6 0F 98 34 2C 22 45 22 |).(1)..(...4,"E"|
000020C0: 3B 22 2C 22 3B 30 3B 22 2C 22 3B 30 3B 22 2C 22 |;",";0;",";0;","|
000020D0: 3B 22 45 22 00 DC 28 F0 0F 82 20 58 00 FB 28 FA |;"E"..(... X..(.|
000020E0: 0F A0 20 34 3A 84 31 35 2C 41 3A 8B 41 B2 32 36 |.. 4:.15,A:.A.26|
000020F0: A7 54 34 B2 34 3A 89 35 31 30 30 00 36 29 FC 0F |.T4.4:.5100.6)..|
00002100: 97 59 41 2C 32 30 3A 97 58 41 2C 31 3A 9E 34 39 |.YA,20:.XA,1:.49|
00002110: 31 35 32 3A 99 22 50 4C 41 59 45 52 20 44 49 52 |152:."PLAYER DIR|
00002120: 45 43 54 4F 52 59 20 43 4C 45 41 52 20 43 4F 4D |ECTORY CLEAR COM|
00002130: 50 4C 45 54 45 22 00 4C 29 FE 0F 81 20 58 B2 31 |PLETE".L)... X.1|
00002140: 20 A4 20 31 35 30 30 3A 82 58 3A 8E 00 87 29 8C | . 1500:.X:...).|
00002150: 13 99 22 93 22 3A 8D 37 30 30 30 3A 58 50 25 B2 |..".":.7000:XP%.|
00002160: 31 32 3A 59 50 25 B2 31 30 3A 8D 32 30 30 30 30 |12:YP%.10:.20000|
00002170: 3A 99 22 4E 4F 20 53 41 56 45 44 20 47 41 4D 45 |:."NO SAVED GAME|
00002180: 20 46 4F 55 4E 44 22 00 97 29 8D 13 98 31 35 2C | FOUND"..)...15,|
00002190: 22 49 22 3A A0 20 32 00 B0 29 8E 13 81 52 52 B2 |"I":. 2..)...RR.|
000021A0: 31 A4 34 30 30 30 3A 82 52 52 3A 89 20 32 30 30 |1.4000:.RR:. 200|
000021B0: 00 CB 29 EC 13 98 31 35 2C 22 49 22 3A A0 54 34 |..)...15,"I":.T4|
000021C0: 3A 99 22 93 22 3A 8D 37 30 30 30 00 E1 29 ED 13 |:.".":.7000..)..|
000021D0: 8D 37 30 30 30 3A 8D 37 30 30 30 3A 8D 37 30 30 |.7000:.7000:.700|
000021E0: 30 00 19 2A EE 13 59 50 25 B2 31 32 3A 58 50 25 |0..*..YP%.12:XP%|
000021F0: B2 37 3A 8D 32 30 30 30 30 3A 99 22 52 45 4D 4F |.7:.20000:."REMO|
00002200: 56 45 20 54 48 45 20 57 52 49 54 45 20 50 52 4F |VE THE WRITE PRO|
00002210: 54 45 43 54 20 54 41 42 22 00 52 2A F0 13 59 50 |TECT TAB".R*..YP|
00002220: 25 B2 31 33 3A 58 50 25 B2 37 3A 8D 32 30 30 30 |%.13:XP%.7:.2000|
00002230: 30 3A 99 22 46 52 4F 4D 20 54 48 45 20 4D 49 4C |0:."FROM THE MIL|
00002240: 4C 49 4F 4E 41 49 52 45 20 44 49 53 4B 45 54 54 |LIONAIRE DISKETT|
00002250: 45 22 00 8B 2A F2 13 59 50 25 B2 32 34 3A 58 50 |E"..*..YP%.24:XP|
00002260: 25 B2 37 3A 8D 32 30 30 30 30 3A 99 22 50 52 45 |%.7:.20000:."PRE|
00002270: 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 52 45 |SS ANY KEY TO RE|
00002280: 53 55 4D 45 20 47 41 4D 45 22 3B 00 A2 2A F4 13 |SUME GAME";..*..|
00002290: A1 57 41 24 3A 8B 20 57 41 24 B2 22 22 89 35 31 |.WA$:. WA$."".51|
000022A0: 30 38 00 CA 2A F6 13 99 22 93 22 3A 8B 54 34 B2 |08..*...".":.T4.|
000022B0: 33 20 A7 20 9F 20 33 2C 38 2C 33 2C 22 50 4C 41 |3 . . 3,8,3,"PLA|
000022C0: 59 45 52 22 3A 89 31 39 37 30 00 D4 2A 00 14 89 |YER":.1970..*...|
000022D0: 34 30 34 35 00 F0 2A 70 17 8F 20 20 50 52 49 4E |4045..*p.. PRIN|
000022E0: 54 20 55 53 49 4E 47 20 49 4E 54 45 47 45 52 53 |T USING INTEGERS|
000022F0: 00 06 2B 7A 17 4A 53 24 20 B2 20 22 20 20 20 20 |..+z.JS$ . " |
00002300: 20 20 20 20 20 22 00 2C 2B 84 17 99 20 20 C9 20 | ".,+... . |
00002310: 28 4A 53 24 20 AA 20 20 C4 20 28 20 B5 20 28 4B |(JS$ . . ( . (K|
00002320: 20 AA 20 2E 35 29 29 2C 4A 57 29 3B 00 32 2B 8E | . .5)),JW);.2+.|
00002330: 17 8E 00 6A 2B 58 1B 97 20 35 34 32 37 38 2C 32 |...j+X.. 54278,2|
00002340: 34 30 3A 97 35 34 32 37 36 2C 31 37 3A 97 35 34 |40:.54276,17:.54|
00002350: 32 37 32 2C 32 34 30 3A 97 35 34 32 37 33 2C 35 |272,240:.54273,5|
00002360: 30 3A 97 35 34 32 37 37 2C 39 00 7B 2B 62 1B 97 |0:.54277,9.{+b..|
00002370: 20 35 34 32 37 36 2C 33 32 3A 8E 00 9B 2B 20 4E | 54276,32:...+ N|
00002380: 8F 20 2A 2A 2A 2A 20 43 55 52 53 4F 52 20 43 4F |. **** CURSOR CO|
00002390: 4E 54 52 4F 4C 20 2A 2A 2A 2A 2A 00 BB 2B 2A 4E |NTROL *****..+*N|
000023A0: 97 20 58 41 2C 58 50 25 3A 97 20 59 41 2C 59 50 |. XA,XP%:. YA,YP|
000023B0: 25 3A 9E 20 34 39 31 35 32 3A 8E 00 CD 2B 30 75 |%:. 49152:...+0u|
000023C0: 5A 5A 24 B2 22 22 3A 99 22 3F 20 22 3B 00 D6 2B |ZZ$."":."? ";..+|
000023D0: 3A 75 A1 20 5A 24 00 FD 2B 44 75 8B 5A 24 B3 B1 |:u. Z$..+Du.Z$..|
000023E0: C7 28 31 33 29 A7 99 22 A4 22 3B C7 28 31 35 37 |.(13)..".";.(157|
000023F0: 29 3B 22 20 22 3B C7 28 31 35 37 29 3B 00 0E 2C |);" ";.(157);..,|
00002400: 4E 75 8B 5A 24 B2 22 22 89 33 30 30 31 30 00 37 |Nu.Z$."".30010.7|
00002410: 2C 58 75 8B 5A 24 B2 C7 28 31 33 29 A7 5A 24 B2 |,Xu.Z$..(13).Z$.|
00002420: 5A 5A 24 3A 56 51 B2 35 3A 54 38 B2 30 3A 99 C7 |ZZ$:VQ.5:T8.0:..|
00002430: 28 31 33 29 3B 3A 8E 00 60 2C 62 75 8B 28 C6 28 |(13);:..`,bu.(.(|
00002440: 5A 24 29 B2 32 30 29 AF 28 C3 28 5A 5A 24 29 B2 |Z$).20).(.(ZZ$).|
00002450: 30 29 A7 8D 20 37 30 30 30 3A 89 33 30 30 31 30 |0).. 7000:.30010|
00002460: 00 95 2C 6C 75 8B 28 C6 28 5A 24 29 B2 32 30 29 |..,lu.(.(Z$).20)|
00002470: AF 28 C3 28 5A 5A 24 29 B2 31 29 A7 5A 5A 24 B2 |.(.(ZZ$).1).ZZ$.|
00002480: 22 22 3A 99 5A 24 3B 22 20 22 3B 5A 24 3B 3A 89 |"":.Z$;" ";Z$;:.|
00002490: 33 30 30 31 30 00 CA 2C 76 75 8B C6 28 5A 24 29 |30010..,vu..(Z$)|
000024A0: B2 32 30 A7 5A 5A 24 B2 C8 28 5A 5A 24 2C C3 28 |.20.ZZ$..(ZZ$,.(|
000024B0: 5A 5A 24 29 AB 31 29 3A 99 5A 24 3B 22 20 22 3B |ZZ$).1):.Z$;" ";|
000024C0: 5A 24 3B 3A 89 33 30 30 31 30 00 F5 2C 7B 75 8B |Z$;:.30010..,{u.|
000024D0: 54 38 B2 31 AF 28 C6 28 5A 24 29 B3 34 38 B0 C6 |T8.1.(.(Z$).48..|
000024E0: 28 5A 24 29 B1 35 37 29 A7 8D 37 30 30 30 3A 89 |(Z$).57)..7000:.|
000024F0: 33 30 30 31 30 00 16 2D 80 75 8B 20 C3 28 5A 5A |30010..-.u. .(ZZ|
00002500: 24 29 20 B1 B2 20 56 51 20 A7 8D 37 30 30 30 3A |$) .. VQ ..7000:|
00002510: 89 33 30 30 31 30 00 3A 2D 85 75 8B C6 28 5A 24 |.30010.:-.u..(Z$|
00002520: 29 B3 33 32 B0 C6 28 5A 24 29 B1 39 30 A7 8D 37 |).32..(Z$).90..7|
00002530: 30 30 30 3A 89 33 30 30 31 30 00 55 2D 8A 75 5A |000:.30010.U-.uZ|
00002540: 5A 24 B2 5A 5A 24 AA 5A 24 3A 99 5A 24 3B 3A 89 |Z$.ZZ$.Z$:.Z$;:.|
00002550: 33 30 30 31 30 00 5F 2D 50 C3 8F 20 45 4E 44 00 |30010._-P.. END.|
00002560: 00 00 |.. |
..+...."................................
....I....YYYYYYY".................O.....
F....".":.G(8);G(142);...(.. 46,109:. 48
,109:. 50,109...1.. 785,192:. 786,0:.X.4
9152.49170:.C:.X,C:.X...3.. 173,0,193,56
,233,1,168,173,1,193,56,233,1,170,24,32,
240,255,96...4.XA.49408:XP%.0:YA.49409:Y
P%.0.B.5.. PR%(91,21),MA(15),DA%(91,6),E
V%(200,3),TR(15,4),PO(45,6),DS(15)..7..
RD(15),SN$(15),LN$(15).....FL.1:VQ.5:T8
.0. .... 15,8,15...H..".".S...YP%.6: XP%
.15:. 20000:. "MILLIONAIRE".....YP%.7: X
P%.5:.20000:. "THE STOCK MARKET SIMULATI
ON (TM)".D...YP%.10:XP%.19:.20000:."BY":
YP%.11:XP%.11:.20000._.... "BLUE CHIP SO
FTWARE".....YP%.12:XP%.13:.20000:."COPYR
IGHT 1984":YP%.14:XP%.14:.20000......"VE
RSION 2.01".....YP%.16: XP%.10:.20000:.
"WRITTEN BY JIM ZUBER";.&...YP%.17:XP%.4
:.20000:."***CRACKED BY THE LOVERBOY 6/8
5 ***".L...YP%.19: XP%.1:.20000:. "DO YO
U WANT TO PLAY A NEW GAME, A SAVED";....
.YP%.20: XP%.3:.20000:. "GAME, OR CLEAR
THE PLAYER DIRECTORY?";...".YP%.21: XP%.
7:.20000:. "TYPE NEW, SAVED, OR CLEAR";.
..'.YP%.22:XP%.11:.20000:."AND PRESS RET
URN.";.E.,.YP%.23: XP%.18:.20000:.7000:.
30000:AN$.Z$.H.J.. AN$ . "NEW" . . 162
0: . 370...T.. AN$ . "SAVED" . . 2000:
. 1615...Y.. AN$."CLEAR" . . 4000:. 200.
..^.. " YOU MUST TYPE NEW, SAVED, OR C
LEAR";:YP%.23:XP%.19:.20000...C.. "
";:.7000:. 300...H.X.2049.8.I.Y.B(
X).B(X.1).256:.Y.A.J..B(Y.6).69.B(Y.7).7
8.B(Y.8).68.. 364.N.K.X.Y:.361...L..Y.10
,0:.Y.11,0:.Y.10:Y.Y.12:RH..(Y.256):RL.Y
.256.RH.Y.M..49177,RL:.49178,RH:.45,B(49
177):.46,B(49178)...N..47,B(49177):.48,B
(49178):.49,B(49177)...O..50,B(49178):..
Z.R..".":YP%.9:XP%.5:.20000:. "SIT BACK
AND RELAX AS IT WILL TAKE"...|.YP%.10: X
P%.5:.20000:. "ABOUT 9 MINUTES TO PUT TO
GETHER AN".O...YP%.11: XP%.10:.20000:. "
EXCITING GAME FOR YOU."...... RANDOMLY
SELECT.....CO . . (( .(0) . 5) . 1)....
.. Y . 1 . 5.2.B.P . . (( .(0) . 10) .
1).B.L.. X . 1 . 5.X.V.. M1(X) . P . 450
.`.... X.N...M1(Y) . P.V.... Y...... Y .
1 . 15.....P . . (( .(0) . 21) . 1)...
... X . 1 . 15.L.&.. MA(X) . P . 530.T.0
.. X...:.MA(Y) . P...D.. Y...F.. PUT CO
MMON IN DAT(6).".P.. 4,8,4,"DATA.RND":CZ
.0.3.... X . 1 . 91.S....15,"P"G(4)G(CO)
G(0)G(X.CZ).^....#4,A$...... A$ . G(244)
. . 2400:CZ.CZ.1: . 780... .. A$ . G(2
45) . . 2400:CZ.CZ.1: . 780.G.*.DA%(X,6
).F(A$).O.4.. X...H.. PUT INDUST IN DAT
(1)-DAT(6)...\.. F . 1 . 5...F.Z . F...P
.R . M1(F):CZ.0.0.... X . 1 . 91.Q.E..15
,"P"G(4)G(R.5)G(0)G(X.CZ).\.J..#4,A$...T
.. A$ . G(246) . . 2400: CZ.CZ.1:. 970.
..... A$ . G(247) . . 2400: CZ.CZ.1:. 9
70.E...DA%(X,F).F(A$).M.... X.U.... F...
... COMBINE DAT() WITH STOCK VALUES TO
FORM PRICE(1) TO PRICE(15).+.$.. F . 1 .
15.5...Z . F.H.8.R . MA(F):CZ.0.F...RD(
Z) . ( .(0) . 10) . 35.W.... X . 1 . 91.
.....15,"P"G(4)G(R.15)G(0)G(X.CZ)......#
4,A$.P.... A$ . G(248) . . 2400:CZ.CZ.1
: . 1180...... A$ . G(249) . . 2400:CZ.
CZ.1: . 1180.(.... A$ . G(250) . . 2400
:CZ.CZ.1: . 1180.T.D.. A$ . G(251) . .
2400:CZ.CZ.1: . 1180...N.. A$ . G(252) .
. 2400:CZ.CZ.1: . 1180...X.. A$ . G(25
3) . . 2400:CZ.CZ.1: . 1180.X.... A$ .
G(254) . . 2400:CZ.CZ.1: . 1180.#...PR%
(X,F).(((F(A$).100).DA%(X,.(((Z.1).3).1)
).DA%(X,6).RD(Z)).25).10000.+.... X.3...
. F.;... 4.E.... COMPILE INDUSTRY AND
COMMON TOTALS.V.(.. X . 1 . 91...<.PR%(X
,21) . 0...F.. Z . 1 . 15...P.PR%(X,21)
. PR%(X,21) . PR%(X,Z).F.Z.. Z.N.D.. X..
.X.. X . 1 . 91...... W . 16 . 20.....PR
%(X,W) . 0... .. Z . 1 . 3.F...PR%(X,W)
. PR%(X,W) . PR%(X,((W . 16) . 3) . Z).X
.... Z: . W: . X.|.... INITIALIZE TRANS
ACTION TABLE...H.. X . 1 . 15...... Y .
1 . 4.....TR(X,Y) . PR%(1,X) . 25.A....
Y.I.... X...... WE . 2 . 13...".. 2730..
.,.. WE...6.WE . 14...@.TT . MO...O.."PL
AY.BAS",8.1.T.. SUB FOR NEW GAME.:.^.."
.".O.H.. 3,8,3,"PLAYER".Y.|.. "
LAST HIGH "...... " NAME
SCORE SCORE STATUS".W.... "
----- -------- --------- ------------".
..... X . 1 . 15......15,"P"G(3)G(X)G(0)
G(1):.3,PL$,LA,HI,ST$. ...X% . X.4.... H
I . 0 . 1780.D...YP%.X%.4:XP%.1:.20000:K
.X%:JW.2:.6000:.".";...B.YP%.X% . 4: XP%
.4:.20000:. PL$;...L.YP%.X% . 4: XP%.10:
.20000:K . LA:JW . 8: . 6000...V.YP%.X%
. 4: XP%.19:.20000:K . HI:JW . 9: . 6000
.....YP%.X% . 4: XP%.29:.20000:. ST$....
.. X.[...YP%.20:XP%.7:.20000:.7000:."ENT
ER PLAYER NUMBER TO START.".P.... X%.15
. . 1800.....YP%.21: XP%.3:.20000:. "IF
YOU ARE A NEW PLAYER PRESS RETURN.".....
YP%.22:XP%.1:.20000:. "
";:T8.1:.30000:Q$.Z$.....Q . E (Q$).
....Q$.""..X%.15.. 1828.+. .. 1830.L.$.
." YOU MAY NOT ADD ANY NEW PLAYERS.";
:.7000:YP%.22:XP%.22...%.. 20000:."
";:. 1780...&.. Q$."" . 1920.Z.0..E(Q$
).1.." YOU MUST ENTER A VALID NUMBER
. ";:.1847...3.. 1850...7..7000: YP%.22:
XP%.22:.20000:. " ";: . 1780.X.:
..Q.X%.1.." YOU MUST ENTER A VALID N
UMBER. ";:. 1857.C.=.. 1860...A..7000: Y
P%.22: XP%.22:.20000:. " ";: . 17
80.G.D..15,"P"G(3)G(Q)G(0)G(1):.3,PL$,LA
,HI,ST$.R.N.NA . Q...L.. LA . 999999 . M
O . 50000...Q.. LA . . 999999 . MO . LA
.1.V. 3:.15,A:. A.26.T4.3:. 5100.7.{...
@....".".X....7000:. "PLEASE ENTER YOUR
INITIALS";:.30000:IP$.Z$.....IP$ . H (I
P$,5).....MO . 10000:HI . MO:LA . MO....
.PL$ . IP$.P...NP.1:ST$."NOVICE"......15
,"P"G(3)G(X%)G(0)G(1):.3,PL$;",";LA;",";
HI;",";ST$.....NA . X%.!.F.. 1910.;.P..
SUB FOR SAVED GAME.R.... 2,8,2,"SAVE,S,
R".\....15,A.N.... A.62 . 5004......".":
YP%.12:XP%.7:.20000:."** RECALLING SAVED
GAME **"......2,X.C. .. X . 1 . 91.T.*.
. Y . 1 . 21...9..2,PR%(X,Y)...>.. Y...H
.. X...W..2,MO,ST$,NA,P1...A..2,LO,WE,TT
,HI.,.... X . 1 . P1.<.... Y . 1 . 3.L..
..2,EV%(X,Y).T.... Y.\.J.. X.M.T.. X . 1
. 15.}.... Y . 1 . 4......2,TR(X,Y)....
.. Y...... X...... X . 1 . 45...... Y .
1 . 6.L....2,PO(X,Y).T.$.. Y...... X...8
.. X . 1 . 15...G..2,DS(X)...L.. X...V.
2: ..D.`.. SUB TO DECODE EVENT MARKERS
TO MESDATA POINTERS...J.. MUST BE ENTE
RED WITH WEEK IN X,TYPE IN A$,AND NAME P
OINTER IN Z...T.P1 . P1 . 1...~.EV%(P1,1
) . X...... A$ . G(244) . EV%(P1,2) . 0:
EV%(P1,3) . . (( .(0) . 12) . 1).'....A
$.G(245).EV%(P1,2).0:EV%(P1,3)..((.(0).8
).1).12.C....A$.G(246)..Z.1.EV%(P1,2).21
:EV%(P1,3)..((.(0).8).1).20......A$.G(24
7)..Z.1.EV%(P1,2).21:EV%(P1,3)..((.(0).8
).1).28......A$.G(246)..Z.2.EV%(P1,2).22
:EV%(P1,3)..((.(0).8).1).36.. ...A$.G(24
7)..Z.2.EV%(P1,2).22:EV%(P1,3)..((.(0).8
).1).44.S D..A$.G(246)..Z.3.EV%(P1,2).23
:EV%(P1,3)..((.(0).8).1).52.. N..A$.G(24
7)..Z.3.EV%(P1,2).23:EV%(P1,3)..((.(0).8
).1).60.K X..A$.G(246)..Z.4.EV%(P1,2).24
:EV%(P1,3)..((.(0).8).1).68..!...A$.G(24
7)..Z.4.EV%(P1,2).24:EV%(P1,3)..((.(0).8
).1).76.C!...A$.G(246)..Z.5.EV%(P1,2).25
:EV%(P1,3)..((.(0).8).1).84.!...A$.G(24
7)..Z.5.EV%(P1,2).25:EV%(P1,3)..((.(0).8
).1).92..!...A$.G(248).EV%(P1,2).Z:EV%(P
1,3)..((.(0).5).1).100..!...A$.G(249).EV
%(P1,2).30.Z:EV%(P1,3)..((.(0).5).1).105
.*"...A$.G(250).EV%(P1,2).30.Z:EV%(P1,3)
..((.(0).5).1).110.D"...A$.G(251).EV%(P1
,2).30.Z:EV%(P1,3)..((.(0).5).1).115.."(
..A$.G(252).EV%(P1,2).Z:EV%(P1,3)..((.(0
).4).1).((Z.1).4).120.."2..A$.G(253).EV%
(P1,2).Z:EV%(P1,3)..((.(0).4).1).((Z.1).
4).180.'#<..A$.G(254).EV%(P1,2).Z:EV%(P1
,3)..((.(0).4).1).((Z.1).4).240.;#F.. P1
. 1 . 2720.P#P.. P1 . 10 . 2690.F#Z.. M
M . 1 . P1 . 1..#D.. EV%(P1,3) . EV%(MM,
3) . 2440..#N.. MM..#X.. 2720..#... MM .
P1 . 9 . P1 . 1..#... EV%(P1,3) . EV%(M
M,3) . 2440..#... MM..# ....$... SUBROU
TINE TO UPDATE TRANS().:$... MUST BE CA
LLED WITH NEW WEEK IN WEEK.K$H.. X . 1 .
15.A$R.TR(X,3) . TR(X,4).~$..TR(X,4) .
PR%(WE,X) . 25..$... PR%(WE,X) . 25 . TR
(X,1) . TR(X,1) . PR%(WE,X) . 25..$... P
R%(WE,X) . 25 . TR(X,2) . TR(X,2) . PR%(
WE,X) . 25..$... X..%.....%... 4,4:. 4.?
%... ROUTINE TO OUTPUT VARIABLES FOR DE
BUGGING.Z%... X . 1 . 5: . X,M1(X).B%"..
X.S%,.. X . 1 . P1..%6.. X,EV%(X,1),EV%
(X,2),EV%(X,3)..%@.. X..%T.. X . 1 . 91.
.%^.. X;" ";.O%H.. Z . 1 . 6..%R.. DA
%(X,Z);" ";..%|.. Z..%... "CO",CO..&...
X..&... X . 1 . 15: . X,MA(X).&&... X.7
&... X . 1 . 91.D&... X;" ";.U&B.. Z . 1
. 15.O&L.. . (PR%(X,Z) . 25);.Z&V.. "
";..&... Z..&.....&... X..&... X . 1 . 9
1..&... X;" ";..&... Z . 16 . 21.Z&...
. (PR%(X,Z) . 25);..&&.. " ";..&0.. Z..&
:....&D.. X..'N.. X . 1 . 15..'X.. X,.%'
B.. Y . 1 . 4.9'L.. . (TR(X,Y)),.A'V..
Y.G'....O'... X.`'... X . 1 . 15.N'... X
,RD(X).V'... X..'...4: 4..'....C' ..G(1
47);:.YA,2:.XA,1:.49152:."ARE YOU SURE Y
OU WANT TO"..(...YA,3:.XA,1:.49152:."CLE
AR THE PLAYER DIRECTORY? (Y/N) ";..(...X
$:.X$."".4020..(... X$.0(H.. X$.."Y" . .
.E(M.. 4,8,4,"PLAYER".A(O..15,"P"G(4)G(1
)G(0)G(1)..(P..4,"BC,";100000;",";100000
;",BROKER"..(R.. X.2 . 15..(...15,"P"G(4
)G(X)G(0)G(1).T(...4,"E";",";0;",";0;","
;"E"..(... X..(.. 4:.15,A:.A.26.T4.4:.5
100.6)...YA,20:.XA,1:.49152:."PLAYER DIR
ECTORY CLEAR COMPLETE".L)... X.1 . 1500:
.X:...)...".":.7000:XP%.12:YP%.10:.20000
:."NO SAVED GAME FOUND"..)...15,"I": 2.
.)...RR.1.4000:.RR:. 200.K)...15,"I": T4
:.".":.7000..)...7000:.7000:.7000..*..YP
%.12:XP%.7:.20000:."REMOVE THE WRITE PRO
TECT TAB".R*..YP%.13:XP%.7:.20000:."FROM
THE MILLIONAIRE DISKETTE"..*..YP%.24:XP
%.7:.20000:."PRESS ANY KEY TO RESUME GAM
E";..*...WA$:. WA$."".5108.J*...".":.T4.
3 . . 3,8,3,"PLAYER":.1970.T*...4045..*P
.. PRINT USING INTEGERS..+Z.JS$ . "
".,+... I (JS$ . D ( . (K . .5)),
JW);.2+....J+X.. 54278,240:.54276,17:.54
272,240:.54273,50:.54277,9.{+B.. 54276,3
2:...+ N. **** CURSOR CONTROL *****..+*N
. XA,XP%:. YA,YP%:. 49152:..M+0UZZ$."":.
"? ";.V+:U. Z$..+DU.Z$..G(13)..".";G(157
);" ";G(157);..,NU.Z$."".30010.7,XU.Z$.G
(13).Z$.ZZ$:VQ.5:T8.0:.G(13);:..`,BU.(F(
Z$).20).(C(ZZ$).0).. 7000:.30010..,LU.(F
(Z$).20).(C(ZZ$).1).ZZ$."":.Z$;" ";Z$;:.
30010.J,VU.F(Z$).20.ZZ$.H(ZZ$,C(ZZ$).1):
.Z$;" ";Z$;:.30010..,{U.T8.1.(F(Z$).48.F
(Z$).57)..7000:.30010..-.U. C(ZZ$) .. VQ
..7000:.30010.:-.U.F(Z$).32.F(Z$).90..7
000:.30010.U-.UZZ$.ZZ$.Z$:.Z$;:.30010._-
PC. END...
> CLICK IMAGE PREVIEW FOR FULL MODAL