PICK THAT TUNE
FILE INFORMATION
FILENAME(S): PICK THAT TUNE
FILE TYPE(S): PRG
FILE SIZE: 22.2K
FIRST SEEN: 2025-10-19 22:49:45
APPEARS ON: 1 disk(s)
FILE HASH
1ff56f3c7c8024c8cafb3227933f6d32d04f3b74b86de03eeb5cccaeba73857f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PICK THAT TUNE | PICK THAT TUNE | PRG | Radd Maxx | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 01 00 8F 20 20 2A 2A 2A 2A 2A 2A 2A |..(.... *******|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 08 02 00 8F 20 20 |********.O.... |
00000030: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
00000050: 76 08 03 00 8F 20 20 2A 20 20 20 20 43 4F 50 59 |v.... * COPY|
00000060: 52 49 47 48 54 20 31 39 38 32 20 42 59 3A 20 20 |RIGHT 1982 BY: |
00000070: 20 20 20 20 20 2A 00 9D 08 04 00 8F 20 20 2A 20 | *...... * |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 C4 08 | *...|
000000A0: 05 00 8F 20 20 2A 20 20 20 20 52 41 4E 44 41 4C |... * RANDAL|
000000B0: 4C 20 50 2E 20 53 57 45 41 52 49 4E 47 45 4E 20 |L P. SWEARINGEN |
000000C0: 20 20 20 2A 00 EB 08 06 00 8F 20 20 2A 20 20 20 | *...... * |
000000D0: 20 36 33 31 32 20 57 2E 20 4C 49 54 54 4C 45 20 | 6312 W. LITTLE |
000000E0: 59 4F 52 4B 20 20 20 20 20 20 2A 00 12 09 07 00 |YORK *.....|
000000F0: 8F 20 20 2A 20 20 20 20 53 55 49 54 45 20 31 39 |. * SUITE 19|
00000100: 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |7 |
00000110: 20 2A 00 39 09 08 00 8F 20 20 2A 20 20 20 20 48 | *.9.... * H|
00000120: 4F 55 53 54 4F 4E 2C 20 54 45 58 41 53 20 37 37 |OUSTON, TEXAS 77|
00000130: 30 38 38 20 20 20 20 20 2A 00 60 09 09 00 8F 20 |088 *.`.... |
00000140: 20 2A 20 20 20 20 28 37 31 33 29 20 39 33 37 2D | * (713) 937-|
00000150: 36 34 31 30 20 20 20 20 20 20 20 20 20 20 20 2A |6410 *|
00000160: 00 86 09 0A 00 8F 20 2A 20 20 20 20 20 20 20 20 |...... * |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000180: 20 20 20 20 20 2A 00 AC 09 0B 00 8F 20 2A 20 20 | *...... * |
00000190: 20 20 43 4F 50 59 49 4E 47 2C 20 44 55 50 4C 49 | COPYING, DUPLI|
000001A0: 43 41 54 49 4E 47 2C 20 20 20 20 2A 00 D2 09 0C |CATING, *....|
000001B0: 00 8F 20 2A 20 20 20 20 53 45 4C 4C 49 4E 47 2C |.. * SELLING,|
000001C0: 20 4F 52 20 4F 54 48 45 52 57 49 53 45 20 20 20 | OR OTHERWISE |
000001D0: 20 2A 00 F8 09 0D 00 8F 20 2A 20 20 20 20 44 49 | *...... * DI|
000001E0: 53 54 52 49 42 55 54 49 4E 47 20 54 48 49 53 20 |STRIBUTING THIS |
000001F0: 20 20 20 20 20 20 20 2A 00 1E 0A 0E 00 8F 20 2A | *...... *|
00000200: 20 20 20 20 50 52 4F 44 55 43 54 20 49 53 20 41 | PRODUCT IS A|
00000210: 20 56 49 4F 4C 41 54 49 4F 4E 20 20 20 2A 00 44 | VIOLATION *.D|
00000220: 0A 0F 00 8F 20 2A 20 20 20 20 4F 46 20 54 48 45 |.... * OF THE|
00000230: 20 4C 41 57 2E 20 20 20 20 20 20 20 20 20 20 20 | LAW. |
00000240: 20 20 20 2A 00 6A 0A 10 00 8F 20 2A 20 20 20 20 | *.j.... * |
00000250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000260: 20 20 20 20 20 20 20 20 20 2A 00 90 0A 11 00 8F | *......|
00000270: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000290: 00 BF 0A 1A 00 97 20 35 33 32 38 30 2C 36 3A 97 |...... 53280,6:.|
000002A0: 20 35 33 32 38 31 2C 36 3A 99 20 C7 28 35 29 3B | 53281,6:. .(5);|
000002B0: 3A 97 38 30 38 2C C2 28 38 30 38 29 AB 31 32 00 |:.808,.(808).12.|
000002C0: E5 0A 1B 00 97 20 35 31 2C 30 3A 97 20 35 32 2C |..... 51,0:. 52,|
000002D0: 31 34 34 3A 97 20 35 35 2C 30 3A 97 20 35 36 2C |144:. 55,0:. 56,|
000002E0: 31 34 34 3A 9C 00 0D 0B 1C 00 81 20 49 B2 35 34 |144:....... I.54|
000002F0: 32 37 32 20 A4 20 35 34 32 39 36 3A 97 20 49 2C |272 . 54296:. I,|
00000300: 30 3A 82 3A 97 35 34 32 38 31 2C 31 35 00 55 0B |0:.:.54281,15.U.|
00000310: 1D 00 56 B2 35 34 32 39 36 3A 57 B2 35 34 32 37 |..V.54296:W.5427|
00000320: 36 3A 41 B2 35 34 32 37 37 3A 48 46 B2 35 34 32 |6:A.54277:HF.542|
00000330: 37 33 3A 4C 46 B2 35 34 32 37 32 3A 53 B2 35 34 |73:LF.54272:S.54|
00000340: 32 37 38 3A 50 48 B2 35 34 32 37 35 3A 50 4C B2 |278:PH.54275:PL.|
00000350: 35 34 32 37 34 00 8F 0B 1E 00 97 56 2C 31 35 3A |54274......V,15:|
00000360: 97 41 2C 39 3A 97 53 2C 30 3A 97 50 48 2C 31 35 |.A,9:.S,0:.PH,15|
00000370: 3A 97 20 50 4C 2C 31 35 3A 97 41 AA 38 2C 39 3A |:. PL,15:.A.8,9:|
00000380: 97 53 AA 38 2C 30 3A 97 50 48 AA 38 2C 31 35 00 |.S.8,0:.PH.8,15.|
00000390: B3 0B 46 00 86 20 53 43 28 31 30 29 2C 43 56 45 |..F.. SC(10),CVE|
000003A0: 52 54 25 28 35 29 2C 46 4C 41 47 48 49 47 48 28 |RT%(5),FLAGHIGH(|
000003B0: 31 39 29 00 E3 0B 50 00 86 20 48 49 47 48 28 31 |19)...P.. HIGH(1|
000003C0: 39 29 2C 4E 55 4D 24 28 31 30 29 2C 52 45 50 25 |9),NUM$(10),REP%|
000003D0: 28 35 30 29 2C 42 49 44 25 28 31 30 29 2C 53 24 |(50),BID%(10),S$|
000003E0: 28 39 29 00 28 0C 51 00 53 24 28 30 29 B2 22 85 |(9).(.Q.S$(0).".|
000003F0: 20 46 31 22 3A 53 24 28 31 29 B2 22 51 20 51 20 | F1":S$(1)."Q Q |
00000400: 22 3A 53 24 28 32 29 B2 22 4E 20 4E A0 22 3A 53 |":S$(2)."N N.":S|
00000410: 24 28 33 29 B2 22 37 20 37 A0 22 3A 53 24 28 34 |$(3)."7 7.":S$(4|
00000420: 29 B2 22 2F 20 2F 20 22 00 39 0C 52 00 53 24 28 |)."/ / ".9.R.S$(|
00000430: 35 29 B2 22 5A 20 5A 20 22 00 71 0C 53 00 53 24 |5)."Z Z ".q.S.S$|
00000440: 28 36 29 B2 22 88 20 46 37 22 3A 53 24 28 37 29 |(6).". F7":S$(7)|
00000450: B2 22 2D 20 2D 20 22 3A 53 24 28 38 29 B2 22 47 |."- - ":S$(8)."G|
00000460: 20 47 20 22 3A 53 24 28 39 29 B2 22 4C 20 4C 20 | G ":S$(9)."L L |
00000470: 22 00 A6 0C 5A 00 86 20 54 55 4E 45 4E 41 4D 45 |"...Z.. TUNENAME|
00000480: 24 28 35 30 29 2C 48 49 47 48 4E 41 4D 45 24 28 |$(50),HIGHNAME$(|
00000490: 31 39 29 2C 41 24 28 35 30 29 2C 48 28 38 38 29 |19),A$(50),H(88)|
000004A0: 2C 4C 28 38 38 29 00 C3 0C 64 00 81 20 49 B2 31 |,L(88)...d.. I.1|
000004B0: 20 A4 20 37 32 3A 87 20 48 28 49 29 2C 4C 28 49 | . 72:. H(I),L(I|
000004C0: 29 3A 82 00 0D 0D 65 00 83 20 34 2C 34 38 2C 34 |):....e.. 4,48,4|
000004D0: 2C 31 31 32 2C 34 2C 31 38 30 2C 34 2C 32 35 31 |,112,4,180,4,251|
000004E0: 2C 35 2C 37 31 2C 35 2C 31 35 32 2C 35 2C 32 33 |,5,71,5,152,5,23|
000004F0: 37 2C 36 2C 37 31 2C 36 2C 31 36 37 2C 37 2C 31 |7,6,71,6,167,7,1|
00000500: 32 2C 37 2C 31 31 39 2C 37 2C 32 33 33 00 58 0D |2,7,119,7,233.X.|
00000510: 66 00 83 20 38 2C 39 37 2C 38 2C 32 32 35 2C 39 |f.. 8,97,8,225,9|
00000520: 2C 31 30 34 2C 39 2C 32 34 37 2C 31 30 2C 31 34 |,104,9,247,10,14|
00000530: 33 2C 31 31 2C 34 38 2C 31 31 2C 32 31 38 2C 31 |3,11,48,11,218,1|
00000540: 32 2C 31 34 33 2C 31 33 2C 37 38 2C 31 34 2C 32 |2,143,13,78,14,2|
00000550: 34 2C 31 34 2C 32 33 39 00 65 0D 67 00 83 20 31 |4,14,239.e.g.. 1|
00000560: 35 2C 32 31 30 00 AD 0D 68 00 83 20 31 36 2C 31 |5,210...h.. 16,1|
00000570: 39 35 2C 31 37 2C 31 39 35 2C 31 38 2C 32 30 39 |95,17,195,18,209|
00000580: 2C 31 39 2C 32 33 39 2C 32 31 2C 33 31 2C 32 32 |,19,239,21,31,22|
00000590: 2C 39 36 2C 32 33 2C 31 38 31 2C 32 35 2C 33 30 |,96,23,181,25,30|
000005A0: 2C 32 36 2C 31 35 36 2C 32 38 2C 34 39 00 C1 0D |,26,156,28,49...|
000005B0: 69 00 83 20 32 39 2C 32 32 33 2C 33 31 2C 31 36 |i.. 29,223,31,16|
000005C0: 35 00 09 0E 6A 00 83 20 33 33 2C 31 33 35 2C 33 |5...j.. 33,135,3|
000005D0: 35 2C 31 33 34 2C 33 37 2C 31 36 32 2C 33 39 2C |5,134,37,162,39,|
000005E0: 32 32 33 2C 34 32 2C 36 32 2C 34 34 2C 31 39 33 |223,42,62,44,193|
000005F0: 2C 34 37 2C 31 30 37 2C 35 30 2C 36 30 2C 35 33 |,47,107,50,60,53|
00000600: 2C 35 37 2C 35 36 2C 39 39 00 1C 0E 6B 00 83 20 |,57,56,99...k.. |
00000610: 35 39 2C 31 39 30 2C 36 33 2C 37 35 00 68 0E 6C |59,190,63,75.h.l|
00000620: 00 83 20 36 37 2C 31 35 2C 37 31 2C 31 32 2C 37 |.. 67,15,71,12,7|
00000630: 35 2C 36 39 2C 37 39 2C 31 39 31 2C 38 34 2C 31 |5,69,79,191,84,1|
00000640: 32 35 2C 38 39 2C 31 33 31 2C 39 34 2C 32 31 34 |25,89,131,94,214|
00000650: 2C 31 30 30 2C 31 32 31 2C 31 30 36 2C 31 31 35 |,100,121,106,115|
00000660: 2C 31 31 32 2C 31 39 39 00 7E 0E 6D 00 83 20 31 |,112,199.~.m.. 1|
00000670: 31 39 2C 31 32 34 2C 31 32 36 2C 31 35 31 00 C8 |19,124,126,151..|
00000680: 0E 6E 00 83 20 31 33 34 2C 33 30 2C 31 34 32 2C |.n.. 134,30,142,|
00000690: 32 34 2C 31 35 30 2C 31 33 39 2C 31 35 39 2C 31 |24,150,139,159,1|
000006A0: 32 36 2C 31 36 38 2C 32 35 30 2C 31 37 39 2C 36 |26,168,250,179,6|
000006B0: 2C 31 38 39 2C 31 37 32 2C 32 30 30 2C 32 34 33 |,189,172,200,243|
000006C0: 2C 32 31 32 2C 32 33 30 00 E5 0E 6F 00 83 20 32 |,212,230...o.. 2|
000006D0: 32 35 2C 31 34 33 2C 32 33 38 2C 32 34 38 2C 32 |25,143,238,248,2|
000006E0: 35 33 2C 34 36 00 2C 0F 74 00 83 20 34 31 2C 31 |53,46.,.t.. 41,1|
000006F0: 2C 34 39 2C 32 2C 34 31 2C 31 2C 34 39 2C 32 2C |,49,2,41,1,49,2,|
00000700: 34 31 2C 31 2C 34 39 2C 36 2C 34 39 2C 31 2C 35 |41,1,49,6,49,1,5|
00000710: 31 2C 31 2C 35 32 2C 31 2C 35 33 2C 31 2C 34 39 |1,1,52,1,53,1,49|
00000720: 2C 31 2C 35 31 2C 31 2C 35 33 2C 32 00 73 0F 75 |,1,51,1,53,2.s.u|
00000730: 00 83 20 34 38 2C 31 2C 35 31 2C 32 2C 34 39 2C |.. 48,1,51,2,49,|
00000740: 36 2C 33 39 2C 31 2C 34 30 2C 31 2C 34 31 2C 31 |6,39,1,40,1,41,1|
00000750: 2C 34 39 2C 32 2C 34 31 2C 31 2C 34 39 2C 32 2C |,49,2,41,1,49,2,|
00000760: 34 31 2C 31 2C 34 39 2C 37 2C 34 36 2C 31 2C 34 |41,1,49,7,46,1,4|
00000770: 34 2C 31 00 BA 0F 76 00 83 20 34 33 2C 31 2C 34 |4,1...v.. 43,1,4|
00000780: 36 2C 31 2C 34 39 2C 31 2C 35 33 2C 32 2C 35 31 |6,1,49,1,53,2,51|
00000790: 2C 31 2C 34 39 2C 31 2C 34 36 2C 31 2C 34 38 2C |,1,49,1,46,1,48,|
000007A0: 36 2C 33 39 2C 31 2C 34 30 2C 31 2C 34 31 2C 31 |6,39,1,40,1,41,1|
000007B0: 2C 34 39 2C 32 2C 34 31 2C 31 00 01 10 77 00 83 |,49,2,41,1...w..|
000007C0: 20 34 39 2C 32 2C 34 31 2C 31 2C 34 39 2C 36 2C | 49,2,41,1,49,6,|
000007D0: 34 39 2C 31 2C 35 31 2C 31 2C 35 32 2C 31 2C 35 |49,1,51,1,52,1,5|
000007E0: 33 2C 31 2C 34 39 2C 31 2C 35 31 2C 31 2C 35 33 |3,1,49,1,51,1,53|
000007F0: 2C 32 2C 34 38 2C 31 2C 35 31 2C 32 2C 34 39 2C |,2,48,1,51,2,49,|
00000800: 36 00 48 10 78 00 83 20 34 39 2C 31 2C 35 31 2C |6.H.x.. 49,1,51,|
00000810: 31 2C 35 33 2C 31 2C 34 39 2C 31 2C 35 31 2C 31 |1,53,1,49,1,51,1|
00000820: 2C 35 33 2C 32 2C 34 39 2C 31 2C 35 31 2C 31 2C |,53,2,49,1,51,1,|
00000830: 34 39 2C 31 2C 35 33 2C 31 2C 34 39 2C 31 2C 35 |49,1,53,1,49,1,5|
00000840: 31 2C 31 2C 35 33 2C 32 00 80 10 79 00 83 20 34 |1,1,53,2...y.. 4|
00000850: 39 2C 31 2C 35 31 2C 31 2C 34 39 2C 31 2C 35 33 |9,1,51,1,49,1,53|
00000860: 2C 31 2C 34 39 2C 31 2C 35 31 2C 31 2C 35 33 2C |,1,49,1,51,1,53,|
00000870: 32 2C 34 38 2C 31 2C 35 31 2C 31 2C 34 39 2C 36 |2,48,1,51,1,49,6|
00000880: 00 95 10 82 00 8D 38 30 30 30 3A 8D 39 35 30 30 |......8000:.9500|
00000890: 3A 89 32 30 30 00 B8 10 8C 00 49 31 24 B2 22 20 |:.200.....I1$." |
000008A0: 22 3A 49 32 24 B2 22 5E 22 3A 49 33 24 B2 22 20 |":I2$."^":I3$." |
000008B0: 22 3A 97 31 39 38 2C 30 00 C3 10 8D 00 97 31 39 |":.198,0......19|
000008C0: 38 2C 30 00 0F 11 8E 00 54 4D 45 B2 31 35 3A 54 |8,0.....TME.15:T|
000008D0: B2 30 3A 42 4B 24 B2 C7 28 31 35 37 29 3A 42 4B |.0:BK$..(157):BK|
000008E0: 24 B2 22 20 22 AA 42 4B 24 AA 42 4B 24 AA 22 20 |$." ".BK$.BK$." |
000008F0: 22 AA 42 4B 24 3A 53 55 4D B2 31 36 36 AA 33 32 |".BK$:SUM.166.32|
00000900: 3A 43 52 53 B2 31 36 36 3A 49 4E 24 B2 22 22 00 |:CRS.166:IN$."".|
00000910: 34 11 90 00 A1 41 24 3A 54 B2 54 AA 31 3A 8B 54 |4....A$:T.T.1:.T|
00000920: B1 54 4D 45 A7 54 B2 30 3A 43 52 53 B2 53 55 4D |.TME.T.0:CRS.SUM|
00000930: AB 43 52 53 00 53 11 92 00 99 C7 28 43 52 53 29 |.CRS.S.....(CRS)|
00000940: 3B C7 28 31 35 37 29 3B 3A 8B 41 24 B2 22 22 A7 |;.(157);:.A$."".|
00000950: 31 34 34 00 75 11 94 00 8B 28 41 24 B3 49 31 24 |144.u....(A$.I1$|
00000960: B0 41 24 B1 49 32 24 29 AF 41 24 B3 B1 49 33 24 |.A$.I2$).A$..I3$|
00000970: 20 A7 31 35 34 00 88 11 96 00 8B C3 28 49 4E 24 | .154.......(IN$|
00000980: 29 B2 4D 58 A7 31 34 34 00 A1 11 98 00 99 41 24 |).MX.144......A$|
00000990: 3B 3A 49 4E 24 B2 49 4E 24 AA 41 24 3A 89 31 34 |;:IN$.IN$.A$:.14|
000009A0: 34 00 B4 11 9A 00 8B 41 24 B3 B1 C7 28 32 30 29 |4......A$...(20)|
000009B0: A7 31 36 32 00 C4 11 9C 00 8B 49 4E 24 B2 22 22 |.162......IN$.""|
000009C0: A7 31 34 34 00 E4 11 9E 00 99 42 4B 24 3B 3A 8B |.144......BK$;:.|
000009D0: C3 28 49 4E 24 29 B2 31 A7 49 4E 24 B2 22 22 3A |.(IN$).1.IN$."":|
000009E0: 89 31 34 34 00 01 12 A0 00 49 4E 24 B2 C8 28 49 |.144.....IN$..(I|
000009F0: 4E 24 2C C3 28 49 4E 24 29 AB 31 29 3A 89 31 34 |N$,.(IN$).1):.14|
00000A00: 34 00 14 12 A2 00 8B 41 24 B3 B1 C7 28 31 33 29 |4......A$...(13)|
00000A10: A7 31 36 34 00 24 12 A3 00 99 C8 28 42 4B 24 2C |.164.$.....(BK$,|
00000A20: 32 29 3A 8E 00 37 12 A4 00 8B 41 24 B3 B1 C7 28 |2):..7....A$...(|
00000A30: 39 35 29 A7 31 34 34 00 45 12 A5 00 49 4E 24 B2 |95).144.E...IN$.|
00000A40: 22 5F 22 3A 8E 00 66 12 A6 00 49 31 24 B2 22 41 |"_":..f...I1$."A|
00000A50: 22 3A 49 32 24 B2 22 5A 22 3A 49 33 24 B2 22 41 |":I2$."Z":I3$."A|
00000A60: 22 3A 89 31 34 31 00 8C 12 A7 00 49 31 24 B2 22 |":.141.....I1$."|
00000A70: 59 22 3A 49 32 24 B2 22 59 22 3A 49 33 24 B2 22 |Y":I2$."Y":I3$."|
00000A80: 4E 22 3A 4D 58 B2 31 3A 89 31 34 31 00 AD 12 A8 |N":MX.1:.141....|
00000A90: 00 49 31 24 B2 22 30 22 3A 49 32 24 B2 22 39 22 |.I1$."0":I2$."9"|
00000AA0: 3A 49 33 24 B2 22 39 22 3A 89 31 34 31 00 C6 12 |:I3$."9":.141...|
00000AB0: AA 00 97 33 36 31 2C 59 3A 97 33 36 33 2C 58 3A |...361,Y:.363,X:|
00000AC0: 9E 33 36 30 3A 8E 00 E2 12 AC 00 58 B2 32 30 AB |.360:......X.20.|
00000AD0: C3 28 58 24 29 AD 32 3A 8D 31 37 30 3A 99 58 24 |.(X$).2:.170:.X$|
00000AE0: 3A 8E 00 FD 12 AF 00 4D 58 B2 31 3A 8D 31 36 38 |:......MX.1:.168|
00000AF0: 3A 50 52 45 53 53 24 B2 49 4E 24 3A 8E 00 33 13 |:PRESS$.IN$:..3.|
00000B00: C8 00 42 4C 41 4E 4B 53 24 B2 22 20 20 20 20 20 |..BLANKS$." |
00000B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B30: 20 20 22 00 40 13 D2 00 9F 20 33 2C 38 2C 31 35 | ".@.... 3,8,15|
00000B40: 00 4A 13 DC 00 99 20 22 93 22 00 5D 13 E6 00 81 |.J.... ".".]....|
00000B50: 20 44 B2 31 20 A4 20 31 32 3A 99 3A 82 00 8D 13 | D.1 . 12:.:....|
00000B60: F0 00 99 20 A3 35 29 3B C7 28 31 38 29 3B 22 20 |... .5);.(18);" |
00000B70: 50 4C 45 41 53 45 20 49 4E 53 45 52 54 20 54 55 |PLEASE INSERT TU|
00000B80: 4E 45 20 44 49 53 4B 45 54 54 45 A0 22 00 A1 13 |NE DISKETTE."...|
00000B90: FA 00 81 20 44 B2 31 34 20 A4 20 32 30 3A 99 3A |... D.14 . 20:.:|
00000BA0: 82 00 C7 13 04 01 99 20 A3 36 29 3B 22 28 50 52 |....... .6);"(PR|
00000BB0: 45 53 53 20 52 45 54 55 52 4E 20 54 4F 20 43 4F |ESS RETURN TO CO|
00000BC0: 4E 54 49 4E 55 45 29 00 E8 13 09 01 A1 20 50 52 |NTINUE)...... PR|
00000BD0: 45 53 53 24 3A 8B 20 50 52 45 53 53 24 B2 22 22 |ESS$:. PRESS$.""|
00000BE0: 20 A7 20 89 20 32 36 35 00 FB 13 0F 01 41 44 44 | . . 265.....ADD|
00000BF0: 4C 24 B2 22 59 22 3A 52 31 B2 31 00 1A 14 11 01 |L$."Y":R1.1.....|
00000C00: 9F 20 31 2C 38 2C 32 2C 22 30 3A 43 41 54 45 47 |. 1,8,2,"0:CATEG|
00000C10: 4F 52 49 45 53 2C 53 2C 52 22 00 49 14 12 01 84 |ORIES,S,R".I....|
00000C20: 33 2C 41 24 2C 42 24 2C 43 24 2C 44 24 3A 8B 20 |3,A$,B$,C$,D$:. |
00000C30: C5 28 41 24 29 B3 B1 30 20 A7 20 4B 45 59 B2 32 |.(A$)..0 . KEY.2|
00000C40: 32 30 3A 89 20 36 30 30 30 00 58 14 14 01 81 20 |20:. 6000.X.... |
00000C50: 43 B2 31 20 A4 20 31 30 00 71 14 15 01 84 31 2C |C.1 . 10.q....1,|
00000C60: 43 24 28 43 29 2C 43 54 47 4E 41 4D 45 24 28 43 |C$(C),CTGNAME$(C|
00000C70: 29 00 8B 14 16 01 8B 20 43 24 28 43 29 B2 22 45 |)...... C$(C)."E|
00000C80: 4E 44 22 20 A7 20 89 20 32 38 31 00 AF 14 17 01 |ND" . . 281.....|
00000C90: 8B 20 C3 28 43 24 28 43 29 29 B1 4D 41 58 43 20 |. .(C$(C)).MAXC |
00000CA0: A7 20 4D 41 58 43 B2 C3 28 43 24 28 43 29 29 00 |. MAXC..(C$(C)).|
00000CB0: B7 14 18 01 82 20 43 00 BF 14 19 01 A0 20 31 00 |..... C...... 1.|
00000CC0: D2 14 1A 01 4C 41 53 54 43 24 B2 43 24 28 43 54 |....LASTC$.C$(CT|
00000CD0: 47 29 00 DC 14 22 01 99 20 22 93 22 00 FF 14 2C |G)...".. "."...,|
00000CE0: 01 54 54 24 B2 22 43 41 54 45 47 4F 52 59 20 53 |.TT$."CATEGORY S|
00000CF0: 45 4C 45 43 54 49 4F 4E 22 3A 8D 37 32 30 30 00 |ELECTION":.7200.|
00000D00: 07 15 36 01 99 3A 99 00 1F 15 40 01 99 22 20 20 |..6..:....@.." |
00000D10: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 | ";.|
00000D20: 3F 15 41 01 99 20 C7 28 31 38 29 3B 22 43 41 54 |?.A.. .(18);"CAT|
00000D30: 45 47 4F 52 49 45 53 22 3B C7 28 31 34 36 29 00 |EGORIES";.(146).|
00000D40: 49 15 4A 01 99 3A 99 3A 99 00 5B 15 54 01 48 B2 |I.J..:.:..[.T.H.|
00000D50: 28 34 30 AB 4D 41 58 43 29 AD 32 00 6B 15 5E 01 |(40.MAXC).2.k.^.|
00000D60: 81 20 49 B2 31 20 A4 20 43 AB 31 00 7E 15 63 01 |. I.1 . C.1.~.c.|
00000D70: 49 24 B2 CA 28 C4 28 49 29 2C 32 2C 31 29 00 96 |I$..(.(I),2,1)..|
00000D80: 15 68 01 99 20 A3 48 29 3B 49 24 3B 22 29 20 22 |.h.. .H);I$;") "|
00000D90: 3B 43 24 28 49 29 00 9E 15 72 01 82 20 49 00 A6 |;C$(I)...r.. I..|
00000DA0: 15 7C 01 99 3A 99 00 CD 15 86 01 99 20 A3 38 29 |.|..:....... .8)|
00000DB0: 3B 22 45 4E 54 45 52 20 53 45 4C 45 43 54 49 4F |;"ENTER SELECTIO|
00000DC0: 4E 20 48 45 52 45 20 3D 3D 3D 3E 22 3B 00 F3 15 |N HERE ===>";...|
00000DD0: 90 01 4D 58 B2 32 3A 8D 31 36 38 3A 50 52 45 53 |..MX.2:.168:PRES|
00000DE0: 53 24 B2 49 4E 24 3A 8B 49 4E 24 B2 22 5F 22 A7 |S$.IN$:.IN$."_".|
00000DF0: 32 39 30 00 07 16 9A 01 43 54 47 B2 C5 28 50 52 |290.....CTG..(PR|
00000E00: 45 53 53 24 29 3A 99 00 25 16 A4 01 8B 20 43 54 |ESS$):..%.... CT|
00000E10: 47 B1 30 20 AF 20 43 54 47 20 B3 20 43 20 A7 20 |G.0 . CTG . C . |
00000E20: 89 20 34 35 30 00 67 16 AE 01 99 20 A3 31 29 3B |. 450.g.... .1);|
00000E30: C7 28 31 38 29 3B 22 50 4C 45 41 53 45 20 45 4E |.(18);"PLEASE EN|
00000E40: 54 45 52 20 41 20 4E 55 4D 42 45 52 20 42 45 54 |TER A NUMBER BET|
00000E50: 57 45 45 4E 20 31 20 41 4E 44 20 22 3B 43 AB 31 |WEEN 1 AND ";C.1|
00000E60: 3B C7 28 31 34 36 29 00 81 16 B8 01 81 20 49 B2 |;.(146)...... I.|
00000E70: 31 20 A4 20 34 3A 99 20 C7 28 31 34 35 29 3B 3A |1 . 4:. .(145);:|
00000E80: 82 00 9C 16 B9 01 97 20 48 46 2C 37 35 3A 97 20 |....... HF,75:. |
00000E90: 4C 46 2C 36 39 3A 97 20 57 2C 31 37 00 B4 16 BA |LF,69:. W,17....|
00000EA0: 01 81 20 49 B2 31 20 A4 20 31 30 30 3A 82 3A 97 |.. I.1 . 100:.:.|
00000EB0: 20 57 2C 30 00 C5 16 BB 01 81 20 49 B2 31 20 A4 | W,0...... I.1 .|
00000EC0: 20 35 30 3A 82 00 CF 16 BD 01 89 20 33 39 30 00 | 50:....... 390.|
00000ED0: 03 17 C2 01 99 20 C7 28 31 34 35 29 3B C7 28 31 |..... .(145);.(1|
00000EE0: 34 35 29 3B C7 28 31 38 29 3B A3 33 33 29 3B CA |45);.(18);.33);.|
00000EF0: 28 C4 28 43 54 47 29 2C 32 2C 31 29 3B C7 28 31 |(.(CTG),2,1);.(1|
00000F00: 34 36 29 00 1B 17 CC 01 43 54 47 4E 24 B2 43 54 |46).....CTGN$.CT|
00000F10: 47 4E 41 4D 45 24 28 43 54 47 29 00 38 17 D6 01 |GNAME$(CTG).8...|
00000F20: 8B 20 43 24 28 43 54 47 29 B2 4C 41 53 54 43 24 |. C$(CTG).LASTC$|
00000F30: 20 A7 20 89 20 37 30 30 00 5F 17 DB 01 8B 20 46 | . . 700._.... F|
00000F40: 49 52 53 54 B2 30 20 A7 20 4C 41 53 54 43 24 B2 |IRST.0 . LASTC$.|
00000F50: 43 24 28 43 54 47 29 3A 46 49 52 53 54 B2 31 00 |C$(CTG):FIRST.1.|
00000F60: 77 17 E0 01 99 20 42 4C 41 4E 4B 53 24 3A 99 20 |w.... BLANKS$:. |
00000F70: 42 4C 41 4E 4B 53 24 00 A0 17 EA 01 99 3A 99 3A |BLANKS$......:.:|
00000F80: 99 3A 99 20 A3 31 31 29 3B 22 4F 4E 45 20 4D 4F |.:. .11);"ONE MO|
00000F90: 4D 45 4E 54 20 50 4C 45 41 53 45 20 2E 2E 2E 22 |MENT PLEASE ..."|
00000FA0: 00 E4 17 EF 01 58 B2 48 AB 31 3A 59 B2 38 AA 43 |.....X.H.1:Y.8.C|
00000FB0: 54 47 3A 8D 31 37 30 3A 58 24 B2 43 24 28 43 54 |TG:.170:X$.C$(CT|
00000FC0: 47 29 AA 42 4C 41 4E 4B 53 24 3A 99 22 12 22 43 |G).BLANKS$:."."C|
00000FD0: 54 47 22 9D 29 20 22 3B C8 28 58 24 2C 4D 41 58 |TG".) ";.(X$,MAX|
00000FE0: 43 AA 31 29 00 0A 18 F9 01 46 49 4C 45 24 B2 22 |C.1).....FILE$."|
00000FF0: 40 30 3A 22 AA 43 54 47 4E 24 AA 22 2E 54 55 4E |@0:".CTGN$.".TUN|
00001000: 45 46 49 4C 45 2C 53 2C 52 22 00 1C 18 FE 01 9F |EFILE,S,R"......|
00001010: 20 31 2C 38 2C 32 2C 46 49 4C 45 24 00 4B 18 03 | 1,8,2,FILE$.K..|
00001020: 02 84 33 2C 41 24 2C 42 24 2C 43 24 2C 44 24 3A |..3,A$,B$,C$,D$:|
00001030: 8B 20 C5 28 41 24 29 B3 B1 30 20 A7 20 4B 45 59 |. .(A$)..0 . KEY|
00001040: B2 35 31 30 3A 89 20 36 30 30 30 00 5A 18 08 02 |.510:. 6000.Z...|
00001050: 81 20 49 B2 30 20 A4 20 35 30 00 6E 18 1C 02 84 |. I.0 . 50.n....|
00001060: 31 2C 54 55 4E 45 4E 41 4D 45 24 28 49 29 00 8F |1,TUNENAME$(I)..|
00001070: 18 26 02 8B 20 54 55 4E 45 4E 41 4D 45 24 28 49 |.&.. TUNENAME$(I|
00001080: 29 20 B2 22 45 4E 44 22 20 A7 20 4D 53 B2 49 00 |) ."END" . MS.I.|
00001090: B0 18 30 02 8B 20 54 55 4E 45 4E 41 4D 45 24 28 |..0.. TUNENAME$(|
000010A0: 49 29 20 B2 22 45 4E 44 22 20 A7 20 49 B2 35 30 |I) ."END" . I.50|
000010B0: 00 B6 18 3A 02 82 00 BE 18 44 02 A0 20 31 00 E4 |...:.....D.. 1..|
000010C0: 18 4E 02 46 49 4C 45 24 B2 22 40 30 3A 22 AA 43 |.N.FILE$."@0:".C|
000010D0: 54 47 4E 24 AA 22 2E 4E 4F 54 45 46 49 4C 45 2C |TGN$.".NOTEFILE,|
000010E0: 53 2C 52 22 00 F6 18 58 02 9F 20 31 2C 38 2C 32 |S,R"...X.. 1,8,2|
000010F0: 2C 46 49 4C 45 24 00 25 19 62 02 84 33 2C 41 24 |,FILE$.%.b..3,A$|
00001100: 2C 42 24 2C 43 24 2C 44 24 3A 8B 20 C5 28 41 24 |,B$,C$,D$:. .(A$|
00001110: 29 B3 B1 30 20 A7 20 4B 45 59 B2 36 30 30 3A 89 |)..0 . KEY.600:.|
00001120: 20 36 30 30 30 00 34 19 6C 02 81 20 53 B2 30 20 | 6000.4.l.. S.0 |
00001130: A4 20 32 34 00 41 19 76 02 84 31 2C 41 24 28 53 |. 24.A.v..1,A$(S|
00001140: 29 00 47 19 80 02 82 00 4F 19 8A 02 A0 20 31 00 |).G.....O.... 1.|
00001150: 55 19 BC 02 8F 00 5F 19 20 03 99 20 22 93 22 00 |U....._. .. ".".|
00001160: 88 19 2A 03 54 54 24 B2 22 47 41 4D 45 20 56 41 |..*.TT$."GAME VA|
00001170: 52 49 41 54 49 4F 4E 20 53 45 4C 45 43 54 49 4F |RIATION SELECTIO|
00001180: 4E 22 3A 8D 37 32 30 30 00 90 19 34 03 99 3A 99 |N":.7200...4..:.|
00001190: 00 B1 19 3E 03 99 20 A3 31 34 29 3B C7 28 31 38 |...>.. .14);.(18|
000011A0: 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |);" |
000011B0: 22 00 D2 19 48 03 99 20 A3 31 34 29 3B C7 28 31 |"...H.. .14);.(1|
000011C0: 38 29 3B 22 20 51 55 45 53 54 49 4F 4E 20 23 31 |8);" QUESTION #1|
000011D0: 20 22 00 FA 19 52 03 99 20 A3 31 34 29 3B C7 28 | "...R.. .14);.(|
000011E0: 31 38 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |18);" |
000011F0: 20 20 22 3B C7 28 31 34 36 29 00 02 1A 5C 03 99 | ";.(146)...\..|
00001200: 3A 99 00 2F 1A 66 03 99 20 A3 34 29 3B 22 53 45 |:../.f.. .4);"SE|
00001210: 4C 45 43 54 20 50 45 4E 41 4C 54 59 20 46 4F 52 |LECT PENALTY FOR|
00001220: 20 57 52 4F 4E 47 20 41 4E 53 57 45 52 3A 22 00 | WRONG ANSWER:".|
00001230: 35 1A 70 03 99 00 4F 1A 7A 03 99 20 A3 38 29 3B |5.p...O.z.. .8);|
00001240: 22 31 29 20 4E 4F 20 50 45 4E 41 4C 54 59 22 00 |"1) NO PENALTY".|
00001250: 55 1A 84 03 99 00 79 1A 8E 03 99 20 A3 38 29 3B |U.....y.... .8);|
00001260: 22 32 29 20 31 2F 34 20 4F 46 20 50 4F 49 4E 54 |"2) 1/4 OF POINT|
00001270: 20 56 41 4C 55 45 22 3A 99 00 9D 1A 98 03 99 20 | VALUE":....... |
00001280: A3 38 29 3B 22 33 29 20 31 2F 32 20 4F 46 20 50 |.8);"3) 1/2 OF P|
00001290: 4F 49 4E 54 20 56 41 4C 55 45 22 3A 99 00 CD 1A |OINT VALUE":....|
000012A0: A2 03 99 20 A3 38 29 3B 22 34 29 20 41 4C 4C 20 |... .8);"4) ALL |
000012B0: 4F 46 20 50 4F 49 4E 54 20 56 41 4C 55 45 22 3A |OF POINT VALUE":|
000012C0: 99 3A 99 3A 50 52 45 53 53 24 B2 22 22 00 FE 1A |.:.:PRESS$.""...|
000012D0: CA 03 99 A3 35 29 3B 22 53 45 4C 45 43 54 20 50 |....5);"SELECT P|
000012E0: 45 4E 41 4C 54 59 20 4F 50 54 49 4F 4E 20 48 45 |ENALTY OPTION HE|
000012F0: 52 45 20 3D 3D 3D 3E 22 3B 3A 8D 31 37 35 00 0F |RE ===>";:.175..|
00001300: 1B D4 03 4F 25 B2 C5 28 50 52 45 53 53 24 29 00 |...O%..(PRESS$).|
00001310: 15 1B D9 03 99 00 65 1B DA 03 57 B2 35 34 32 37 |......e...W.5427|
00001320: 36 3A 4C 46 B2 35 34 32 37 32 3A 48 46 B2 35 34 |6:LF.54272:HF.54|
00001330: 32 37 33 3A 42 4C 41 4E 4B 53 24 B2 22 20 20 20 |273:BLANKS$." |
00001340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001360: 20 20 20 20 22 00 9A 1B DE 03 8B 20 50 52 45 53 | "...... PRES|
00001370: 53 24 B2 22 42 22 20 B0 20 50 52 45 53 53 24 B2 |S$."B" . PRESS$.|
00001380: 22 5F 22 20 A7 20 4C 41 53 54 43 24 B2 43 24 28 |"_" . LASTC$.C$(|
00001390: 43 54 47 29 3A 89 20 32 39 30 00 B5 1B E8 03 8B |CTG):. 290......|
000013A0: 20 4F 25 B1 30 20 AF 20 4F 25 B3 35 20 A7 20 89 | O%.0 . O%.5 . .|
000013B0: 20 31 30 33 30 00 F4 1B F2 03 99 20 C7 28 31 38 | 1030...... .(18|
000013C0: 29 3B 22 45 4E 54 45 52 20 41 20 4E 55 4D 42 45 |);"ENTER A NUMBE|
000013D0: 52 20 42 45 54 57 45 45 4E 20 31 20 41 4E 44 20 |R BETWEEN 1 AND |
000013E0: 34 2C 49 4E 43 4C 55 53 49 56 45 22 3B C7 28 31 |4,INCLUSIVE";.(1|
000013F0: 34 36 29 3B 00 0C 1C FC 03 81 20 49 B2 31 A4 33 |46);...... I.1.3|
00001400: 3A 99 20 C7 28 31 34 35 29 3B 3A 82 00 26 1C FD |:. .(145);:..&..|
00001410: 03 97 48 46 2C 37 35 3A 97 20 4C 46 2C 36 39 3A |..HF,75:. LF,69:|
00001420: 97 20 57 2C 31 37 00 3E 1C FE 03 81 20 49 B2 31 |. W,17.>.... I.1|
00001430: 20 A4 20 31 30 30 3A 82 3A 97 20 57 2C 30 00 4F | . 100:.:. W,0.O|
00001440: 1C FF 03 81 20 49 B2 31 20 A4 20 35 30 3A 82 00 |.... I.1 . 50:..|
00001450: 59 1C 00 04 89 20 39 37 30 00 70 1C 06 04 8B 20 |Y.... 970.p.... |
00001460: 4F 25 B2 31 20 A7 20 50 45 4E 41 4C 54 59 B2 30 |O%.1 . PENALTY.0|
00001470: 00 89 1C 10 04 8B 20 4F 25 B2 32 20 A7 20 50 45 |...... O%.2 . PE|
00001480: 4E 41 4C 54 59 B2 2E 32 35 00 A1 1C 1A 04 8B 20 |NALTY..25...... |
00001490: 4F 25 B2 33 20 A7 20 50 45 4E 41 4C 54 59 B2 2E |O%.3 . PENALTY..|
000014A0: 35 00 B8 1C 24 04 8B 20 4F 25 B2 34 20 A7 20 50 |5...$.. O%.4 . P|
000014B0: 45 4E 41 4C 54 59 B2 31 00 C1 1C 38 04 99 22 93 |ENALTY.1...8..".|
000014C0: 22 00 EA 1C 42 04 54 54 24 B2 22 47 41 4D 45 20 |"...B.TT$."GAME |
000014D0: 56 41 52 49 41 54 49 4F 4E 20 53 45 4C 45 43 54 |VARIATION SELECT|
000014E0: 49 4F 4E 22 3A 8D 37 32 30 30 00 F2 1C 4C 04 99 |ION":.7200...L..|
000014F0: 3A 99 00 13 1D 56 04 99 20 A3 31 34 29 3B C7 28 |:....V.. .14);.(|
00001500: 31 38 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |18);" |
00001510: 20 20 22 00 34 1D 60 04 99 20 A3 31 34 29 3B C7 | ".4.`.. .14);.|
00001520: 28 31 38 29 3B 22 20 51 55 45 53 54 49 4F 4E 20 |(18);" QUESTION |
00001530: 23 32 20 22 00 55 1D 6A 04 99 20 A3 31 34 29 3B |#2 ".U.j.. .14);|
00001540: C7 28 31 38 29 3B 22 20 20 20 20 20 20 20 20 20 |.(18);" |
00001550: 20 20 20 20 22 00 5D 1D 74 04 99 3A 99 00 89 1D | ".].t..:....|
00001560: 7E 04 99 20 A3 35 29 3B 22 44 4F 20 59 4F 55 20 |~.. .5);"DO YOU |
00001570: 57 41 4E 54 20 47 55 45 53 53 45 44 20 54 55 4E |WANT GUESSED TUN|
00001580: 45 53 20 54 4F 20 42 45 22 00 8F 1D 83 04 99 00 |ES TO BE".......|
00001590: B6 1D 88 04 99 20 A3 37 29 3B 22 55 53 45 44 20 |..... .7);"USED |
000015A0: 41 47 41 49 4E 20 4C 41 54 45 52 3F 20 28 59 20 |AGAIN LATER? (Y |
000015B0: 4F 52 20 4E 29 22 00 C0 1D 92 04 99 3A 99 3A 99 |OR N)"......:.:.|
000015C0: 00 F9 1D 9C 04 99 20 A3 38 29 3B 22 45 4E 54 45 |...... .8);"ENTE|
000015D0: 52 20 41 4E 53 57 45 52 20 48 45 52 45 20 3D 3D |R ANSWER HERE ==|
000015E0: 3D 3E 22 3B 3A 4D 58 B2 31 3A 8D 31 36 37 3A 50 |=>";:MX.1:.167:P|
000015F0: 52 45 53 53 24 B2 49 4E 24 00 FF 1D 9E 04 99 00 |RESS$.IN$.......|
00001600: 25 1E A1 04 8B 20 50 52 45 53 53 24 B2 22 42 22 |%.... PRESS$."B"|
00001610: 20 B0 20 50 52 45 53 53 24 B2 22 5F 22 20 A7 20 | . PRESS$."_" . |
00001620: 89 20 38 30 30 00 50 1E A6 04 8B 20 50 52 45 53 |. 800.P.... PRES|
00001630: 53 24 B2 22 59 22 20 B0 20 50 52 45 53 53 24 B2 |S$."Y" . PRESS$.|
00001640: 22 D9 22 20 A7 20 52 45 50 24 B2 22 59 45 53 22 |"." . REP$."YES"|
00001650: 00 79 1E B0 04 8B 20 50 52 45 53 53 24 B2 22 4E |.y.... PRESS$."N|
00001660: 22 20 B0 20 50 52 45 53 53 24 B2 22 CE 22 A7 20 |" . PRESS$.".". |
00001670: 52 45 50 24 B2 22 4E 4F 22 00 BA 1E BA 04 8B 20 |REP$."NO"...... |
00001680: 50 52 45 53 53 24 B2 22 59 22 20 B0 20 50 52 45 |PRESS$."Y" . PRE|
00001690: 53 53 24 B2 22 D9 22 20 B0 20 50 52 45 53 53 24 |SS$."." . PRESS$|
000016A0: B2 22 4E 22 20 B0 20 50 52 45 53 53 24 B2 22 CE |."N" . PRESS$.".|
000016B0: 22 20 A7 20 89 20 31 32 33 30 00 EA 1E C4 04 99 |" . . 1230......|
000016C0: 20 A3 35 29 3B C7 28 31 38 29 3B 22 20 20 20 50 | .5);.(18);" P|
000016D0: 4C 45 41 53 45 20 45 4E 54 45 52 20 27 59 27 20 |LEASE ENTER 'Y' |
000016E0: 4F 52 20 27 4E 27 20 20 20 22 00 02 1F C5 04 81 |OR 'N' "......|
000016F0: 20 49 B2 31 A4 33 3A 99 20 C7 28 31 34 35 29 3B | I.1.3:. .(145);|
00001700: 3A 82 00 1C 1F C6 04 97 48 46 2C 37 35 3A 97 20 |:.......HF,75:. |
00001710: 4C 46 2C 36 39 3A 97 20 57 2C 31 37 00 34 1F C7 |LF,69:. W,17.4..|
00001720: 04 81 20 49 B2 31 20 A4 20 31 30 30 3A 82 3A 97 |.. I.1 . 100:.:.|
00001730: 20 57 2C 30 00 45 1F C8 04 81 20 49 B2 31 20 A4 | W,0.E.... I.1 .|
00001740: 20 35 30 3A 82 00 50 1F C9 04 89 20 31 31 38 30 | 50:..P.... 1180|
00001750: 00 59 1F CE 04 99 22 93 22 00 82 1F D8 04 54 54 |.Y....".".....TT|
00001760: 24 B2 22 47 41 4D 45 20 56 41 52 49 41 54 49 4F |$."GAME VARIATIO|
00001770: 4E 20 53 45 4C 45 43 54 49 4F 4E 22 3A 8D 37 32 |N SELECTION":.72|
00001780: 30 30 00 8A 1F E2 04 99 3A 99 00 AB 1F EC 04 99 |00......:.......|
00001790: 20 A3 31 34 29 3B C7 28 31 38 29 3B 22 20 20 20 | .14);.(18);" |
000017A0: 20 20 20 20 20 20 20 20 20 20 22 00 CC 1F F6 04 | ".....|
000017B0: 99 20 A3 31 34 29 3B C7 28 31 38 29 3B 22 20 51 |. .14);.(18);" Q|
000017C0: 55 45 53 54 49 4F 4E 20 23 33 20 22 00 ED 1F 00 |UESTION #3 "....|
000017D0: 05 99 20 A3 31 34 29 3B C7 28 31 38 29 3B 22 20 |.. .14);.(18);" |
000017E0: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 F5 1F | "...|
000017F0: 0A 05 99 3A 99 00 21 20 14 05 99 20 A3 35 29 3B |...:..! ... .5);|
00001800: 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 27 4E 4F |"DO YOU WANT 'NO|
00001810: 4E 45 20 4F 46 20 54 48 45 20 41 42 4F 56 45 27 |NE OF THE ABOVE'|
00001820: 22 00 4D 20 1E 05 99 3A 99 20 A3 36 29 3B 22 54 |".M ...:. .6);"T|
00001830: 4F 20 42 45 20 41 20 54 55 4E 45 20 43 48 4F 49 |O BE A TUNE CHOI|
00001840: 43 45 20 28 59 20 4F 52 20 4E 29 3F 22 00 61 20 |CE (Y OR N)?".a |
00001850: 28 05 99 3A 99 3A 99 3A 50 52 45 53 53 24 B2 22 |(..:.:.:PRESS$."|
00001860: 22 00 9A 20 29 05 99 20 A3 38 29 3B 22 45 4E 54 |".. ).. .8);"ENT|
00001870: 45 52 20 41 4E 53 57 45 52 20 48 45 52 45 20 3D |ER ANSWER HERE =|
00001880: 3D 3D 3E 22 3B 3A 4D 58 B2 31 3A 8D 31 36 37 3A |==>";:MX.1:.167:|
00001890: 50 52 45 53 53 24 B2 49 4E 24 00 C1 20 32 05 8B |PRESS$.IN$.. 2..|
000018A0: 20 50 52 45 53 53 24 B2 22 42 22 20 B0 20 50 52 | PRESS$."B" . PR|
000018B0: 45 53 53 24 B2 22 5F 22 20 A7 20 89 20 31 30 38 |ESS$."_" . . 108|
000018C0: 30 00 EB 20 3C 05 8B 20 50 52 45 53 53 24 B2 22 |0.. <.. PRESS$."|
000018D0: 59 22 20 B0 20 50 52 45 53 53 24 B2 22 D9 22 20 |Y" . PRESS$."." |
000018E0: A7 20 4E 41 24 B2 22 59 45 53 22 00 14 21 46 05 |. NA$."YES"..!F.|
000018F0: 8B 20 50 52 45 53 53 24 B2 22 4E 22 20 B0 20 50 |. PRESS$."N" . P|
00001900: 52 45 53 53 24 B2 22 CE 22 20 A7 20 4E 41 24 B2 |RESS$."." . NA$.|
00001910: 22 4E 4F 22 00 54 21 50 05 8B 20 50 52 45 53 53 |"NO".T!P.. PRESS|
00001920: 24 B2 22 59 22 20 B0 20 50 52 45 53 53 24 B2 22 |$."Y" . PRESS$."|
00001930: D9 22 20 B0 20 50 52 45 53 53 24 B2 22 4E 22 B0 |." . PRESS$."N".|
00001940: 20 50 52 45 53 53 24 B2 22 CE 22 20 A7 20 89 20 | PRESS$."." . . |
00001950: 31 33 39 30 00 5A 21 5A 05 99 00 8A 21 64 05 99 |1390.Z!Z....!d..|
00001960: 20 A3 35 29 3B C7 28 31 38 29 3B 22 20 20 20 50 | .5);.(18);" P|
00001970: 4C 45 41 53 45 20 45 4E 54 45 52 20 27 59 27 20 |LEASE ENTER 'Y' |
00001980: 4F 52 20 27 4E 27 20 20 20 22 00 A2 21 65 05 81 |OR 'N' "..!e..|
00001990: 20 49 B2 31 A4 33 3A 99 20 C7 28 31 34 35 29 3B | I.1.3:. .(145);|
000019A0: 3A 82 00 BC 21 66 05 97 48 46 2C 37 35 3A 97 20 |:...!f..HF,75:. |
000019B0: 4C 46 2C 36 39 3A 97 20 57 2C 31 37 00 D4 21 67 |LF,69:. W,17..!g|
000019C0: 05 81 20 49 B2 31 20 A4 20 31 30 30 3A 82 3A 97 |.. I.1 . 100:.:.|
000019D0: 20 57 2C 30 00 E5 21 68 05 81 20 49 B2 31 20 A4 | W,0..!h.. I.1 .|
000019E0: 20 35 30 3A 82 00 F4 21 69 05 45 B2 31 3A 89 20 | 50:...!i.E.1:. |
000019F0: 31 33 32 31 00 FE 21 6E 05 52 24 B2 56 24 00 0E |1321..!n.R$.V$..|
00001A00: 22 73 05 8B 20 45 B2 30 20 A7 20 99 3A 99 00 3B |"s.. E.0 . .:..;|
00001A10: 22 78 05 8B 20 45 B2 31 20 A7 20 45 B2 30 3A 99 |"x.. E.1 . E.0:.|
00001A20: 20 C7 28 31 34 35 29 3A 99 20 42 4C 41 4E 4B 53 | .(145):. BLANKS|
00001A30: 24 3A 99 20 42 4C 41 4E 4B 53 24 00 67 22 82 05 |$:. BLANKS$.g"..|
00001A40: 8B 20 4F 25 B2 31 20 AF 20 52 45 50 24 B2 22 59 |. O%.1 . REP$."Y|
00001A50: 45 53 22 20 AF 20 4E 41 24 B2 22 4E 4F 22 20 A7 |ES" . NA$."NO" .|
00001A60: 20 56 24 B2 22 31 22 00 92 22 8C 05 8B 20 4F 25 | V$."1".."... O%|
00001A70: B2 31 20 AF 20 52 45 50 24 B2 22 4E 4F 22 20 AF |.1 . REP$."NO" .|
00001A80: 20 4E 41 24 B2 22 4E 4F 22 20 A7 20 56 24 B2 22 | NA$."NO" . V$."|
00001A90: 32 22 00 BE 22 96 05 8B 20 4F 25 B2 32 20 AF 20 |2".."... O%.2 . |
00001AA0: 52 45 50 24 B2 22 59 45 53 22 20 AF 20 4E 41 24 |REP$."YES" . NA$|
00001AB0: B2 22 4E 4F 22 20 A7 20 56 24 B2 22 33 22 00 E9 |."NO" . V$."3"..|
00001AC0: 22 A0 05 8B 20 4F 25 B2 32 20 AF 20 52 45 50 24 |"... O%.2 . REP$|
00001AD0: B2 22 4E 4F 22 20 AF 20 4E 41 24 B2 22 4E 4F 22 |."NO" . NA$."NO"|
00001AE0: 20 A7 20 56 24 B2 22 34 22 00 15 23 AA 05 8B 20 | . V$."4"..#... |
00001AF0: 4F 25 B2 33 20 AF 20 52 45 50 24 B2 22 59 45 53 |O%.3 . REP$."YES|
00001B00: 22 20 AF 20 4E 41 24 B2 22 4E 4F 22 20 A7 20 56 |" . NA$."NO" . V|
00001B10: 24 B2 22 35 22 00 40 23 B4 05 8B 20 4F 25 B2 33 |$."5".@#... O%.3|
00001B20: 20 AF 20 52 45 50 24 B2 22 4E 4F 22 20 AF 20 4E | . REP$."NO" . N|
00001B30: 41 24 B2 22 4E 4F 22 20 A7 20 56 24 B2 22 36 22 |A$."NO" . V$."6"|
00001B40: 00 6C 23 BE 05 8B 20 4F 25 B2 34 20 AF 20 52 45 |.l#... O%.4 . RE|
00001B50: 50 24 B2 22 59 45 53 22 20 AF 20 4E 41 24 B2 22 |P$."YES" . NA$."|
00001B60: 4E 4F 22 20 A7 20 56 24 B2 22 37 22 00 97 23 C8 |NO" . V$."7"..#.|
00001B70: 05 8B 20 4F 25 B2 34 20 AF 20 52 45 50 24 B2 22 |.. O%.4 . REP$."|
00001B80: 4E 4F 22 20 AF 20 4E 41 24 B2 22 4E 4F 22 20 A7 |NO" . NA$."NO" .|
00001B90: 20 56 24 B2 22 38 22 00 C4 23 D2 05 8B 20 4F 25 | V$."8"..#... O%|
00001BA0: B2 31 20 AF 20 52 45 50 24 B2 22 59 45 53 22 20 |.1 . REP$."YES" |
00001BB0: AF 20 4E 41 24 B2 22 59 45 53 22 20 A7 20 56 24 |. NA$."YES" . V$|
00001BC0: B2 22 39 22 00 F1 23 DC 05 8B 20 4F 25 B2 31 20 |."9"..#... O%.1 |
00001BD0: AF 20 52 45 50 24 B2 22 4E 4F 22 20 AF 20 4E 41 |. REP$."NO" . NA|
00001BE0: 24 B2 22 59 45 53 22 20 A7 20 56 24 B2 22 31 30 |$."YES" . V$."10|
00001BF0: 22 00 1F 24 E6 05 8B 20 4F 25 B2 32 20 AF 20 52 |"..$... O%.2 . R|
00001C00: 45 50 24 B2 22 59 45 53 22 20 AF 20 4E 41 24 B2 |EP$."YES" . NA$.|
00001C10: 22 59 45 53 22 20 A7 20 56 24 B2 22 31 31 22 00 |"YES" . V$."11".|
00001C20: 4C 24 F0 05 8B 20 4F 25 B2 32 20 AF 20 52 45 50 |L$... O%.2 . REP|
00001C30: 24 B2 22 4E 4F 22 20 AF 20 4E 41 24 B2 22 59 45 |$."NO" . NA$."YE|
00001C40: 53 22 20 A7 20 56 24 B2 22 31 32 22 00 7A 24 FA |S" . V$."12".z$.|
00001C50: 05 8B 20 4F 25 B2 33 20 AF 20 52 45 50 24 B2 22 |.. O%.3 . REP$."|
00001C60: 59 45 53 22 20 AF 20 4E 41 24 B2 22 59 45 53 22 |YES" . NA$."YES"|
00001C70: 20 A7 20 56 24 B2 22 31 33 22 00 A7 24 04 06 8B | . V$."13"..$...|
00001C80: 20 4F 25 B2 33 20 AF 20 52 45 50 24 B2 22 4E 4F | O%.3 . REP$."NO|
00001C90: 22 20 AF 20 4E 41 24 B2 22 59 45 53 22 20 A7 20 |" . NA$."YES" . |
00001CA0: 56 24 B2 22 31 34 22 00 D5 24 0E 06 8B 20 4F 25 |V$."14"..$... O%|
00001CB0: B2 34 20 AF 20 52 45 50 24 B2 22 59 45 53 22 20 |.4 . REP$."YES" |
00001CC0: AF 20 4E 41 24 B2 22 59 45 53 22 20 A7 20 56 24 |. NA$."YES" . V$|
00001CD0: B2 22 31 35 22 00 02 25 18 06 8B 20 4F 25 B2 34 |."15"..%... O%.4|
00001CE0: 20 AF 20 52 45 50 24 B2 22 4E 4F 22 20 AF 20 4E | . REP$."NO" . N|
00001CF0: 41 24 B2 22 59 45 53 22 20 A7 20 56 24 B2 22 31 |A$."YES" . V$."1|
00001D00: 36 22 00 0F 25 22 06 50 25 B2 C5 28 56 24 29 00 |6"..%".P%..(V$).|
00001D10: 43 25 2C 06 99 20 A3 31 29 3B 22 59 4F 55 20 57 |C%,.. .1);"YOU W|
00001D20: 49 4C 4C 20 42 45 20 50 4C 41 59 49 4E 47 20 47 |ILL BE PLAYING G|
00001D30: 41 4D 45 20 56 41 52 49 41 54 49 4F 4E 20 23 22 |AME VARIATION #"|
00001D40: 3B 56 24 00 49 25 40 06 99 00 89 25 4A 06 8B 20 |;V$.I%@....%J.. |
00001D50: 56 24 B3 B1 52 24 20 B0 20 4C 41 53 54 43 24 B3 |V$..R$ . LASTC$.|
00001D60: B1 43 24 28 43 54 47 29 20 A7 20 99 20 A3 31 31 |.C$(CTG) . . .11|
00001D70: 29 3B 22 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C |);"ONE MOMENT PL|
00001D80: 45 41 53 45 20 2E 2E 2E 22 00 BB 25 5E 06 8B 20 |EASE ..."..%^.. |
00001D90: 56 24 B3 B1 52 24 20 B0 20 4C 41 53 54 43 24 B3 |V$..R$ . LASTC$.|
00001DA0: B1 43 24 28 43 54 47 29 20 A7 20 8D 20 31 36 38 |.C$(CTG) . . 168|
00001DB0: 30 3A 99 20 C7 28 31 34 35 29 3B 00 D5 25 64 06 |0:. .(145);..%d.|
00001DC0: 97 48 46 2C 37 35 3A 97 20 4C 46 2C 36 39 3A 97 |.HF,75:. LF,69:.|
00001DD0: 20 57 2C 31 37 00 ED 25 65 06 81 20 49 B2 31 20 | W,17..%e.. I.1 |
00001DE0: A4 20 31 30 30 3A 82 3A 97 20 57 2C 30 00 FE 25 |. 100:.:. W,0..%|
00001DF0: 66 06 81 20 49 B2 31 20 A4 20 35 30 3A 82 00 25 |f.. I.1 . 50:..%|
00001E00: 26 68 06 99 20 A3 37 29 3B 22 28 50 52 45 53 53 |&h.. .7);"(PRESS|
00001E10: 20 52 45 54 55 52 4E 20 54 4F 20 43 4F 4E 54 49 | RETURN TO CONTI|
00001E20: 4E 55 45 29 22 00 47 26 72 06 A1 20 50 52 45 53 |NUE)".G&r.. PRES|
00001E30: 53 24 3A 8B 20 50 52 45 53 53 24 B2 22 22 20 A7 |S$:. PRESS$."" .|
00001E40: 20 89 20 31 36 35 30 00 6E 26 7C 06 8B 20 50 52 | . 1650.n&|.. PR|
00001E50: 45 53 53 24 B2 22 42 22 20 B0 20 50 52 45 53 53 |ESS$."B" . PRESS|
00001E60: 24 B2 22 5F 22 20 A7 20 89 20 31 32 33 30 00 79 |$."_" . . 1230.y|
00001E70: 26 86 06 89 20 31 38 31 30 00 8E 26 90 06 5A B2 |&... 1810..&..Z.|
00001E80: 31 30 AC 28 C5 28 56 24 29 AB 31 29 AA 31 00 A8 |10.(.(V$).1).1..|
00001E90: 26 9A 06 46 24 B2 43 54 47 4E 24 AA 22 2E 48 49 |&..F$.CTGN$.".HI|
00001EA0: 47 48 53 43 4F 52 45 22 00 B7 26 A4 06 9F 20 31 |GHSCORE"..&... 1|
00001EB0: 2C 38 2C 32 2C 46 24 00 F3 26 AA 06 84 33 2C 41 |,8,2,F$..&...3,A|
00001EC0: 24 2C 42 24 2C 43 24 2C 44 24 3A 8B 20 C5 28 41 |$,B$,C$,D$:. .(A|
00001ED0: 24 29 B3 B1 30 20 A7 20 4B 45 59 B2 31 32 33 30 |$)..0 . KEY.1230|
00001EE0: 3A 52 24 B2 22 22 3A 56 24 B2 22 22 3A 89 20 36 |:R$."":V$."":. 6|
00001EF0: 30 30 30 00 03 27 AE 06 81 20 58 20 B2 20 30 20 |000..'... X . 0 |
00001F00: A4 20 39 00 1E 27 B3 06 98 33 2C 22 50 22 C7 28 |. 9..'...3,"P".(|
00001F10: 32 29 C7 28 5A 29 C7 28 30 29 C7 28 31 29 00 2B |2).(Z).(0).(1).+|
00001F20: 27 BD 06 84 31 2C 41 24 2C 42 24 00 4D 27 BE 06 |'...1,A$,B$.M'..|
00001F30: 48 49 47 48 4E 41 4D 45 24 28 58 29 B2 41 24 3A |HIGHNAME$(X).A$:|
00001F40: 48 49 47 48 28 58 29 B2 C5 28 42 24 29 00 57 27 |HIGH(X)..(B$).W'|
00001F50: BF 06 5A B2 5A AA 31 00 5F 27 D6 06 82 20 58 00 |..Z.Z.1._'... X.|
00001F60: 71 27 E0 06 48 49 47 48 39 B2 48 49 47 48 28 39 |q'..HIGH9.HIGH(9|
00001F70: 29 00 79 27 EA 06 A0 20 31 00 81 27 F4 06 54 B2 |).y'... 1..'..T.|
00001F80: 39 00 8B 27 FE 06 43 4E 54 B2 54 00 91 27 08 07 |9..'..CNT.T..'..|
00001F90: 8E 00 9A 27 12 07 99 22 93 22 00 BD 27 1C 07 54 |...'..."."..'..T|
00001FA0: 54 24 B2 22 50 4C 41 59 45 52 20 49 4E 46 4F 52 |T$."PLAYER INFOR|
00001FB0: 4D 41 54 49 4F 4E 22 3A 8D 37 32 30 30 00 CE 27 |MATION":.7200..'|
00001FC0: 26 07 99 3A 50 24 B2 22 22 3A 4D 58 B2 32 00 10 |&..:P$."":MX.2..|
00001FD0: 28 3A 07 99 22 20 45 4E 54 45 52 20 4E 55 4D 42 |(:.." ENTER NUMB|
00001FE0: 45 52 20 4F 46 20 50 4C 41 59 45 52 53 20 48 45 |ER OF PLAYERS HE|
00001FF0: 52 45 20 3D 3D 3D 3E 20 20 9D 9D 22 3B 3A 8D 31 |RE ===> ..";:.1|
00002000: 36 38 3A 8B 49 4E 24 B2 22 5F 22 A7 31 32 33 30 |68:.IN$."_".1230|
00002010: 00 20 28 44 07 99 3A 50 25 B2 C5 28 49 4E 24 29 |. (D..:P%..(IN$)|
00002020: 00 3C 28 4E 07 8B 20 50 25 B1 30 20 AF 20 50 25 |.<(N.. P%.0 . P%|
00002030: B3 31 31 20 A7 20 89 20 31 39 30 30 00 74 28 58 |.11 . . 1900.t(X|
00002040: 07 99 20 C7 28 31 38 29 3B A3 31 29 3B 22 45 4E |.. .(18);.1);"EN|
00002050: 54 45 52 20 41 20 4E 55 4D 42 45 52 20 46 52 4F |TER A NUMBER FRO|
00002060: 4D 20 31 20 54 4F 20 31 30 2C 49 4E 43 4C 55 53 |M 1 TO 10,INCLUS|
00002070: 49 56 45 22 00 8C 28 63 07 81 20 49 B2 31 A4 33 |IVE"..(c.. I.1.3|
00002080: 3A 99 20 C7 28 31 34 35 29 3B 3A 82 00 A6 28 64 |:. .(145);:...(d|
00002090: 07 97 48 46 2C 37 35 3A 97 20 4C 46 2C 36 39 3A |..HF,75:. LF,69:|
000020A0: 97 20 57 2C 31 37 00 BE 28 65 07 81 20 49 B2 31 |. W,17..(e.. I.1|
000020B0: 20 A4 20 31 30 30 3A 82 3A 97 20 57 2C 30 00 CF | . 100:.:. W,0..|
000020C0: 28 66 07 81 20 49 B2 31 20 A4 20 35 30 3A 82 00 |(f.. I.1 . 50:..|
000020D0: DE 28 67 07 45 B2 31 3A 89 20 31 38 35 30 00 EC |.(g.E.1:. 1850..|
000020E0: 28 6C 07 8B 20 45 B2 30 20 A7 20 99 00 1A 29 6D |(l.. E.0 . ...)m|
000020F0: 07 8B 20 45 B2 31 20 A7 20 45 B2 30 3A 99 20 C7 |.. E.1 . E.0:. .|
00002100: 28 31 34 36 29 3B 3A 99 20 42 4C 41 4E 4B 53 24 |(146);:. BLANKS$|
00002110: 3A 99 20 42 4C 41 4E 4B 53 24 00 23 29 71 07 50 |:. BLANKS$.#)q.P|
00002120: B2 50 25 00 2D 29 76 07 50 B2 50 AB 31 00 35 29 |.P%.-)v.P.P.1.5)|
00002130: 7A 07 5A B2 30 00 43 29 7B 07 81 20 47 B2 5A 20 |z.Z.0.C){.. G.Z |
00002140: A4 20 50 00 5B 29 7C 07 99 20 42 4C 41 4E 4B 53 |. P.[)|.. BLANKS|
00002150: 24 3A 99 20 C7 28 31 34 35 29 3B 00 6E 29 80 07 |$:. .(145);.n)..|
00002160: 58 B2 31 3A 59 B2 37 AA 47 3A 8D 31 37 30 00 9E |X.1:Y.7.G:.170..|
00002170: 29 83 07 8B 20 47 B3 B1 39 20 A7 20 99 22 20 50 |)... G..9 . ." P|
00002180: 4C 41 59 45 52 20 23 22 3B CA 28 C4 28 47 AA 31 |LAYER #";.(.(G.1|
00002190: 29 2C 32 2C 31 29 3B 22 20 4E 41 4D 45 22 00 CD |),2,1);" NAME"..|
000021A0: 29 85 07 8B 20 47 B2 39 20 A7 20 99 22 20 50 4C |)... G.9 . ." PL|
000021B0: 41 59 45 52 20 23 22 3B CA 28 C4 28 47 AA 31 29 |AYER #";.(.(G.1)|
000021C0: 2C 32 2C 32 29 3B 22 20 4E 41 4D 45 22 00 E1 29 |,2,2);" NAME"..)|
000021D0: 8A 07 58 B2 31 38 3A 59 B2 37 AA 47 3A 8D 31 37 |..X.18:Y.7.G:.17|
000021E0: 30 00 FD 29 94 07 4D 58 B2 32 30 3A 8D 31 34 30 |0..)..MX.20:.140|
000021F0: 3A 50 4C 41 59 24 28 47 29 B2 49 4E 24 00 2F 2A |:PLAY$(G).IN$./*|
00002200: 97 07 8B 20 47 B2 30 20 AF 20 28 50 4C 41 59 24 |... G.0 . (PLAY$|
00002210: 28 47 29 B2 22 42 22 20 B0 20 50 4C 41 59 24 28 |(G)."B" . PLAY$(|
00002220: 47 29 B2 22 5F 22 29 20 A7 20 89 31 38 31 30 00 |G)."_") . .1810.|
00002230: 5A 2A 99 07 8B 20 50 4C 41 59 24 28 47 29 B2 22 |Z*... PLAY$(G)."|
00002240: 42 22 20 B0 20 50 4C 41 59 24 28 47 29 B2 22 5F |B" . PLAY$(G)."_|
00002250: 22 20 A7 20 89 20 31 39 34 37 00 65 2A 9A 07 89 |" . . 1947.e*...|
00002260: 20 31 39 35 30 00 91 2A 9B 07 58 B2 31 3A 59 B2 | 1950..*..X.1:Y.|
00002270: 36 AA 47 3A 8D 31 37 30 3A 99 42 4C 41 4E 4B 53 |6.G:.170:.BLANKS|
00002280: 24 3B 42 4C 41 4E 4B 53 24 3B 42 4C 41 4E 4B 53 |$;BLANKS$;BLANKS|
00002290: 24 00 AE 2A 9D 07 47 B2 47 AB 31 3A 50 4C 41 59 |$..*..G.G.1:PLAY|
000022A0: 24 28 47 29 B2 22 22 3A 89 20 31 39 32 30 00 DC |$(G)."":. 1920..|
000022B0: 2A 9E 07 8B 20 C3 28 50 4C 41 59 24 28 47 29 29 |*... .(PLAY$(G))|
000022C0: B1 30 20 AF 20 C3 28 50 4C 41 59 24 28 47 29 29 |.0 . .(PLAY$(G))|
000022D0: B3 32 31 20 A7 20 89 20 32 30 33 30 00 E9 2A A8 |.21 . . 2030..*.|
000022E0: 07 99 20 C7 28 31 38 29 3B 00 28 2B B2 07 8B 20 |.. .(18);.(+... |
000022F0: 50 4C 41 59 24 28 47 29 B2 22 22 20 A7 20 99 20 |PLAY$(G)."" . . |
00002300: A3 32 29 3B 22 20 20 20 20 20 20 50 4C 45 41 53 |.2);" PLEAS|
00002310: 45 20 45 4E 54 45 52 20 41 20 4E 41 4D 45 20 20 |E ENTER A NAME |
00002320: 20 20 20 20 20 20 20 22 00 66 2B BC 07 8B 20 C3 | ".f+... .|
00002330: 28 41 4E 53 24 29 B1 32 30 20 A7 20 99 20 A3 32 |(ANS$).20 . . .2|
00002340: 29 3B 22 4E 41 4D 45 20 4D 55 53 54 20 42 45 20 |);"NAME MUST BE |
00002350: 32 30 20 43 48 41 52 41 43 54 45 52 53 20 4F 52 |20 CHARACTERS OR|
00002360: 20 4C 45 53 53 22 00 7E 2B BD 07 81 20 49 B2 31 | LESS".~+... I.1|
00002370: A4 32 3A 99 20 C7 28 31 34 35 29 3B 3A 82 00 98 |.2:. .(145);:...|
00002380: 2B BE 07 97 48 46 2C 37 35 3A 97 20 4C 46 2C 36 |+...HF,75:. LF,6|
00002390: 39 3A 97 20 57 2C 31 37 00 B0 2B BF 07 81 20 49 |9:. W,17..+... I|
000023A0: B2 31 20 A4 20 31 30 30 3A 82 3A 97 20 57 2C 30 |.1 . 100:.:. W,0|
000023B0: 00 C1 2B C0 07 81 20 E9 FF 31 20 A4 20 35 30 3A |..+... ..1 . 50:|
000023C0: 82 00 CC 2B E4 07 89 20 31 39 32 30 00 D4 2B EE |...+... 1920..+.|
000023D0: 07 82 20 47 00 EC 2B F8 07 99 20 42 4C 41 4E 4B |.. G..+... BLANK|
000023E0: 53 24 3A 99 20 42 4C 41 4E 4B 53 24 00 01 2C FD |S$:. BLANKS$..,.|
000023F0: 07 50 52 45 53 53 24 B2 22 22 3A 99 20 A3 32 29 |.PRESS$."":. .2)|
00002400: 3B 00 3C 2C 02 08 99 22 20 50 4C 41 59 20 27 53 |;.<,..." PLAY 'S|
00002410: 54 4F 50 20 54 48 45 20 4D 55 53 49 43 27 20 20 |TOP THE MUSIC' |
00002420: 28 59 20 4F 52 20 4E 29 20 3F 22 3B 3A 8D 31 36 |(Y OR N) ?";:.16|
00002430: 37 3A 50 52 45 53 53 24 B2 49 4E 24 00 61 2C 16 |7:PRESS$.IN$.a,.|
00002440: 08 8B 20 50 52 45 53 53 24 B2 22 42 22 20 B0 20 |.. PRESS$."B" . |
00002450: 50 52 45 53 53 24 B2 22 5F 22 20 A7 20 32 31 30 |PRESS$."_" . 210|
00002460: 30 00 88 2C 1B 08 8B 20 50 52 45 53 53 24 B2 22 |0..,... PRESS$."|
00002470: 59 22 20 B0 20 50 52 45 53 53 24 B2 22 D9 22 20 |Y" . PRESS$."." |
00002480: A7 20 89 20 32 31 32 30 00 AE 2C 20 08 8B 20 50 |. . 2120.., .. P|
00002490: 52 45 53 53 24 B2 22 4E 22 20 B0 20 50 52 45 53 |RESS$."N" . PRES|
000024A0: 53 24 B2 22 CE 22 A7 20 89 20 32 31 34 30 00 BB |S$.".". . 2140..|
000024B0: 2C 22 08 99 20 C7 28 31 38 29 3B 00 E1 2C 25 08 |,".. .(18);..,%.|
000024C0: 99 20 A3 37 29 3B 22 20 50 4C 45 41 53 45 20 45 |. .7);" PLEASE E|
000024D0: 4E 54 45 52 20 27 59 27 20 4F 52 20 27 4E 27 20 |NTER 'Y' OR 'N' |
000024E0: 22 00 F9 2C 26 08 81 20 44 B2 31 A4 32 3A 99 20 |"..,&.. D.1.2:. |
000024F0: C7 28 31 34 35 29 3B 3A 82 00 13 2D 27 08 97 48 |.(145);:...-'..H|
00002500: 46 2C 37 35 3A 97 20 4C 46 2C 36 39 3A 97 20 57 |F,75:. LF,69:. W|
00002510: 2C 31 37 00 2B 2D 28 08 81 20 44 B2 31 20 A4 20 |,17.+-(.. D.1 . |
00002520: 31 30 30 3A 82 3A 97 20 57 2C 30 00 3C 2D 29 08 |100:.:. W,0.<-).|
00002530: 81 20 44 B2 31 20 A4 20 35 30 3A 82 00 47 2D 2A |. D.1 . 50:..G-*|
00002540: 08 89 20 32 30 34 35 00 64 2D 34 08 99 20 22 11 |.. 2045.d-4.. ".|
00002550: 11 22 3B 42 4C 41 4E 4B 53 24 3A 99 20 42 4C 41 |.";BLANKS$:. BLA|
00002560: 4E 4B 53 24 00 89 2D 36 08 81 20 54 B2 31 20 A4 |NKS$..-6.. T.1 .|
00002570: 20 35 3A 99 20 C7 28 31 34 35 29 3B 3A 82 3A 5A | 5:. .(145);:.:Z|
00002580: B2 50 3A 89 20 31 39 31 35 00 9D 2D 48 08 53 54 |.P:. 1915..-H.ST|
00002590: 4D 24 B2 22 59 22 3A 89 20 32 31 39 30 00 B1 2D |M$."Y":. 2190..-|
000025A0: 5C 08 53 54 4D 24 B2 22 4E 22 3A 89 20 32 31 39 |\.STM$."N":. 219|
000025B0: 30 00 C9 2D 8E 08 99 20 42 4C 41 4E 4B 53 24 3A |0..-... BLANKS$:|
000025C0: 99 20 42 4C 41 4E 4B 53 24 00 F0 2D 98 08 99 20 |. BLANKS$..-... |
000025D0: A3 37 29 3B 22 28 50 52 45 53 53 20 52 45 54 55 |.7);"(PRESS RETU|
000025E0: 52 4E 20 54 4F 20 43 4F 4E 54 49 4E 55 45 29 22 |RN TO CONTINUE)"|
000025F0: 00 12 2E 9D 08 A1 20 50 52 45 53 53 24 3A 8B 20 |...... PRESS$:. |
00002600: 50 52 45 53 53 24 B2 22 22 20 A7 20 89 20 32 32 |PRESS$."" . . 22|
00002610: 30 35 00 4D 2E 9E 08 8B 20 50 52 45 53 53 24 B3 |05.M.... PRESS$.|
00002620: B1 22 42 22 20 AF 20 50 52 45 53 53 24 B3 B1 22 |."B" . PRESS$.."|
00002630: 5F 22 20 AF 20 53 54 4D 24 B2 22 59 22 20 A7 20 |_" . STM$."Y" . |
00002640: 8D 20 37 30 30 30 3A 89 20 32 32 32 30 00 76 2E |. 7000:. 2220.v.|
00002650: A0 08 8B 20 50 52 45 53 53 24 B3 B1 22 42 22 20 |... PRESS$.."B" |
00002660: AF 20 50 52 45 53 53 24 B3 B1 22 5F 22 20 A7 20 |. PRESS$.."_" . |
00002670: 89 20 32 32 32 30 00 8B 2E A2 08 99 20 C7 28 31 |. 2220...... .(1|
00002680: 34 35 29 3B 42 4C 41 4E 4B 53 24 00 AC 2E A7 08 |45);BLANKS$.....|
00002690: 81 20 54 B2 31 20 A4 20 34 3A 99 20 C7 28 31 34 |. T.1 . 4:. .(14|
000026A0: 35 29 3B 3A 82 3A 89 20 32 30 34 35 00 B6 2E AC |5);:.:. 2045....|
000026B0: 08 99 20 22 93 22 00 C7 2E B6 08 53 B2 B5 28 BB |.. ".".....S..(.|
000026C0: 28 31 29 AC 4D 53 29 00 E1 2E C0 08 8B 20 52 45 |(1).MS)...... RE|
000026D0: 50 24 B2 22 59 45 53 22 20 A7 20 89 20 32 32 38 |P$."YES" . . 228|
000026E0: 30 00 FA 2E CA 08 8B 20 52 45 50 25 28 53 29 B2 |0...... REP%(S).|
000026F0: 31 20 A7 20 89 20 32 32 33 30 00 08 2F D4 08 52 |1 . . 2230../..R|
00002700: 45 50 25 28 53 29 B2 31 00 20 2F DE 08 54 55 4E |EP%(S).1. /..TUN|
00002710: 45 43 4E 54 25 B2 54 55 4E 45 43 4E 54 25 AA 31 |ECNT%.TUNECNT%.1|
00002720: 00 31 2F E8 08 50 54 B2 B5 28 BB 28 31 29 AC 35 |.1/..PT..(.(1).5|
00002730: 29 00 3D 2F F2 08 50 54 B2 53 AB 50 54 00 4F 2F |).=/..PT.S.PT.O/|
00002740: FC 08 8B 20 50 54 B3 30 20 A7 20 50 54 B2 30 00 |... PT.0 . PT.0.|
00002750: 6B 2F 06 09 8B 20 50 54 B1 28 4D 53 AB 35 29 20 |k/... PT.(MS.5) |
00002760: A7 20 50 54 B2 28 4D 53 AB 35 29 00 84 2F 0B 09 |. PT.(MS.5)../..|
00002770: 8B 20 53 54 4D 24 B3 B1 22 59 22 20 A7 20 89 20 |. STM$.."Y" . . |
00002780: 32 33 32 30 00 BE 2F 0C 09 81 20 44 B2 30 20 A4 |2320../... D.0 .|
00002790: 20 39 3A 5A 24 B2 CA 28 53 24 28 44 29 2C 31 2C | 9:Z$..(S$(D),1,|
000027A0: 31 29 AA 22 30 22 AA CA 28 53 24 28 44 29 2C 33 |1)."0"..(S$(D),3|
000027B0: 2C 32 29 3A 53 24 28 44 29 B2 5A 24 3A 82 00 C7 |,2):S$(D).Z$:...|
000027C0: 2F 0D 09 43 4F B2 30 00 D2 2F 0E 09 89 20 32 35 |/..CO.0../... 25|
000027D0: 35 30 00 DB 2F 10 09 99 22 93 22 00 FB 2F 1A 09 |50../..."."../..|
000027E0: 54 54 24 B2 22 42 49 44 20 49 4E 46 4F 52 4D 41 |TT$."BID INFORMA|
000027F0: 54 49 4F 4E 22 3A 8D 37 32 30 30 00 03 30 24 09 |TION":.7200..0$.|
00002800: 99 3A 99 00 2A 30 2E 09 99 20 A3 37 29 3B 22 50 |.:..*0... .7);"P|
00002810: 20 4C 20 41 20 59 20 45 20 52 20 20 20 20 20 20 | L A Y E R |
00002820: 20 20 20 20 42 20 49 20 44 22 00 53 30 38 09 99 | B I D".S08..|
00002830: 20 A3 36 29 3B 22 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 | .6);"..........|
00002840: C3 C3 C3 20 20 20 20 20 20 20 20 C3 C3 C3 C3 C3 |... .....|
00002850: C3 C3 22 00 59 30 42 09 99 00 5F 30 4C 09 8F 00 |..".Y0B..._0L...|
00002860: 67 30 56 09 5A B2 30 00 75 30 60 09 81 20 49 B2 |g0V.Z.0.u0`.. I.|
00002870: 5A 20 A4 20 50 00 9A 30 7E 09 58 B2 31 3A 59 B2 |Z . P..0~.X.1:Y.|
00002880: 38 AA 49 3A 8D 31 37 30 3A 99 42 4C 41 4E 4B 53 |8.I:.170:.BLANKS|
00002890: 24 3A 58 B2 37 3A 8D 31 37 30 00 CD 30 83 09 99 |$:X.7:.170..0...|
000028A0: 20 50 4C 41 59 24 28 49 29 3B A3 32 39 29 3B 22 | PLAY$(I);.29);"|
000028B0: 20 20 22 3B 3A 99 20 C7 28 31 34 35 29 3A 58 B2 | ";:. .(145):X.|
000028C0: 32 39 3A 59 B2 38 AA 49 3A 8D 31 37 30 00 E2 30 |29:Y.8.I:.170..0|
000028D0: 88 09 4D 58 B2 32 3A 8D 31 36 38 3A 50 24 B2 49 |..MX.2:.168:P$.I|
000028E0: 4E 24 00 09 31 92 09 8B 20 28 50 24 B2 22 42 22 |N$..1... (P$."B"|
000028F0: 20 B0 20 50 24 B2 22 5F 22 29 20 AF 20 49 B2 30 | . P$."_") . I.0|
00002900: 20 A7 20 89 20 32 34 39 30 00 31 31 9C 09 8B 20 | . . 2490.11... |
00002910: 28 50 24 B2 22 42 22 20 B0 20 50 24 B2 22 5F 22 |(P$."B" . P$."_"|
00002920: 29 20 AF 20 49 B3 B1 30 20 A7 20 89 20 32 34 36 |) . I..0 . . 246|
00002930: 32 00 3C 31 9D 09 89 20 32 34 37 30 00 5B 31 9E |2.<1... 2470.[1.|
00002940: 09 99 20 C7 28 31 34 35 29 3B 42 4C 41 4E 4B 53 |.. .(145);BLANKS|
00002950: 24 3A 99 20 42 4C 41 4E 4B 53 24 00 75 31 9F 09 |$:. BLANKS$.u1..|
00002960: 81 20 54 B2 31 20 A4 20 33 3A 99 20 C7 28 31 34 |. T.1 . 3:. .(14|
00002970: 35 29 3B 3A 82 00 86 31 A0 09 49 B2 49 AB 31 3A |5);:...1..I.I.1:|
00002980: 89 20 32 34 33 30 00 AB 31 A6 09 50 25 B2 C5 28 |. 2430..1..P%..(|
00002990: 50 24 29 3A 8B 20 50 25 B3 31 20 B0 20 50 25 B1 |P$):. P%.1 . P%.|
000029A0: 32 35 20 A7 20 89 20 32 34 39 30 00 C1 31 B0 09 |25 . . 2490..1..|
000029B0: 42 49 44 25 28 49 29 B2 50 25 3A 89 20 32 35 32 |BID%(I).P%:. 252|
000029C0: 30 00 DD 31 BA 09 58 B2 31 3A 59 B2 39 AA 49 3A |0..1..X.1:Y.9.I:|
000029D0: 8D 31 37 30 3A 99 20 C7 28 31 38 29 3B 00 0D 32 |.170:. .(18);..2|
000029E0: C4 09 99 20 22 45 4E 54 45 52 20 4E 55 4D 42 45 |... "ENTER NUMBE|
000029F0: 52 20 42 45 54 57 45 45 4E 20 31 20 41 4E 44 20 |R BETWEEN 1 AND |
00002A00: 32 35 2C 49 4E 43 4C 55 53 49 56 45 22 00 25 32 |25,INCLUSIVE".%2|
00002A10: C5 09 81 20 54 B2 31 A4 32 3A 99 20 C7 28 31 34 |... T.1.2:. .(14|
00002A20: 35 29 3B 3A 82 00 3F 32 C6 09 97 48 46 2C 37 35 |5);:..?2...HF,75|
00002A30: 3A 97 20 4C 46 2C 36 39 3A 97 20 57 2C 31 37 00 |:. LF,69:. W,17.|
00002A40: 57 32 C7 09 81 20 54 B2 31 20 A4 20 31 30 30 3A |W2... T.1 . 100:|
00002A50: 82 3A 97 20 57 2C 30 00 68 32 C8 09 81 20 54 B2 |.:. W,0.h2... T.|
00002A60: 31 20 A4 20 35 30 3A 82 00 73 32 C9 09 89 20 32 |1 . 50:..s2... 2|
00002A70: 34 33 30 00 7B 32 D8 09 82 20 49 00 AC 32 E2 09 |430.{2... I..2..|
00002A80: 99 20 42 4C 41 4E 4B 53 24 3A 99 20 A3 37 29 3B |. BLANKS$:. .7);|
00002A90: 22 28 50 52 45 53 53 20 52 45 54 55 52 4E 20 54 |"(PRESS RETURN T|
00002AA0: 4F 20 43 4F 4E 54 49 4E 55 45 29 22 00 CE 32 E3 |O CONTINUE)"..2.|
00002AB0: 09 A1 20 50 52 45 53 53 24 3A 8B 20 50 52 45 53 |.. PRESS$:. PRES|
00002AC0: 53 24 B2 22 22 20 A7 20 89 20 32 35 33 31 00 F6 |S$."" . . 2531..|
00002AD0: 32 E4 09 8B 20 50 52 45 53 53 24 B3 B1 22 42 22 |2... PRESS$.."B"|
00002AE0: 20 AF 20 50 52 45 53 53 24 B3 B1 22 5F 22 A7 20 | . PRESS$.."_". |
00002AF0: 89 20 32 35 35 30 00 04 33 EC 09 99 20 C7 28 31 |. 2550..3... .(1|
00002B00: 34 35 29 3B 00 1C 33 ED 09 99 20 42 4C 41 4E 4B |45);..3... BLANK|
00002B10: 53 24 3A 99 20 42 4C 41 4E 4B 53 24 00 36 33 EE |S$:. BLANKS$.63.|
00002B20: 09 81 20 49 B2 31 20 A4 20 34 3A 99 20 C7 28 31 |.. I.1 . 4:. .(1|
00002B30: 34 35 29 3B 3A 82 00 45 33 F1 09 5A B2 50 3A 89 |45);:..E3..Z.P:.|
00002B40: 20 32 34 30 30 00 58 33 F6 09 8B 20 50 B2 30 20 | 2400.X3... P.0 |
00002B50: A7 20 89 20 32 36 32 30 00 68 33 F7 09 81 20 49 |. . 2620.h3... I|
00002B60: B2 30 20 A4 20 50 AB 31 00 7A 33 F9 09 81 20 4A |.0 . P.1.z3... J|
00002B70: B2 28 49 AA 31 29 20 A4 20 50 00 95 33 FA 09 8B |.(I.1) . P..3...|
00002B80: 20 53 43 28 4A 29 B3 53 43 28 49 29 20 A7 20 8D | SC(J).SC(I) . .|
00002B90: 20 35 30 30 30 00 9D 33 FB 09 82 20 4A 00 A5 33 | 5000..3... J..3|
00002BA0: FC 09 82 20 49 00 BD 33 FD 09 8B 20 53 54 4D 24 |... I..3... STM$|
00002BB0: B2 22 59 22 20 A7 20 89 20 32 36 33 30 00 CD 33 |."Y" . . 2630..3|
00002BC0: 00 0A 81 20 49 B2 30 20 A4 20 50 AB 31 00 DF 33 |... I.0 . P.1..3|
00002BD0: 0A 0A 81 20 4A B2 28 49 AA 31 29 20 A4 20 50 00 |... J.(I.1) . P.|
00002BE0: FE 33 14 0A 8B 20 42 49 44 25 28 4A 29 B3 42 49 |.3... BID%(J).BI|
00002BF0: 44 25 28 49 29 20 A7 20 8D 20 35 30 30 30 00 04 |D%(I) . . 5000..|
00002C00: 34 1E 0A 8F 00 0C 34 28 0A 82 20 4A 00 14 34 32 |4.....4(.. J..42|
00002C10: 0A 82 20 49 00 1A 34 3C 0A 8F 00 23 34 46 0A 99 |.. I..4<...#4F..|
00002C20: 22 93 22 00 43 34 50 0A 54 54 24 B2 22 50 49 43 |".".C4P.TT$."PIC|
00002C30: 4B 20 54 48 41 54 20 54 55 4E 45 22 3A 8D 20 37 |K THAT TUNE":. 7|
00002C40: 32 30 30 00 50 34 5A 0A 99 3A 99 20 A3 35 29 3B |200.P4Z..:. .5);|
00002C50: 00 7F 34 64 0A 99 20 22 48 45 52 45 20 41 52 45 |..4d.. "HERE ARE|
00002C60: 20 54 48 45 20 35 20 50 4F 53 53 49 42 49 4C 49 | THE 5 POSSIBILI|
00002C70: 54 49 45 53 3A 22 3A 58 4C B2 30 3A 4E B2 30 00 |TIES:":XL.0:N.0.|
00002C80: 99 34 6E 0A 81 20 4D B2 50 54 20 A4 20 28 50 54 |.4n.. M.PT . (PT|
00002C90: AA 34 29 3A 4E B2 4E AA 31 00 C4 34 78 0A 8B 20 |.4):N.N.1..4x.. |
00002CA0: 4E 41 24 B2 22 4E 4F 22 20 B0 20 4E B3 B1 35 20 |NA$."NO" . N..5 |
00002CB0: A7 20 4D 4C B2 C3 28 54 55 4E 45 4E 41 4D 45 24 |. ML..(TUNENAME$|
00002CC0: 28 4D 29 29 00 E2 34 82 0A 8B 20 4E 41 24 B2 22 |(M))..4... NA$."|
00002CD0: 59 45 53 22 20 AF 20 4E B2 35 20 A7 20 4D 4C B2 |YES" . N.5 . ML.|
00002CE0: 31 37 00 F6 34 8C 0A 8B 20 4D 4C B1 58 4C 20 A7 |17..4... ML.XL .|
00002CF0: 20 58 4C B2 4D 4C 00 FE 34 96 0A 82 20 4D 00 2A | XL.ML..4... M.*|
00002D00: 35 A0 0A 48 B2 28 28 34 30 AB 58 4C AB 33 29 AD |5..H.((40.XL.3).|
00002D10: 32 29 AA 31 3A 4E B2 30 3A 99 3A 81 20 4D B2 50 |2).1:N.0:.:. M.P|
00002D20: 54 20 A4 20 28 50 54 AA 34 29 00 40 35 AA 0A 4E |T . (PT.4).@5..N|
00002D30: B2 4E AA 31 3A 43 56 45 52 54 25 28 4E 29 B2 4D |.N.1:CVERT%(N).M|
00002D40: 00 53 35 AB 0A 4E 24 B2 CA 28 C4 28 4E 29 2C 32 |.S5..N$..(.(N),2|
00002D50: 2C 31 29 00 8E 35 B4 0A 8B 20 4E 41 24 B2 22 4E |,1)..5... NA$."N|
00002D60: 4F 22 20 B0 20 4E B3 B1 35 20 A7 20 99 20 A3 48 |O" . N..5 . . .H|
00002D70: AB 31 29 3B 4E 24 3B 22 29 A0 22 3B A3 48 AA 32 |.1);N$;").";.H.2|
00002D80: 29 3B 54 55 4E 45 4E 41 4D 45 24 28 4D 29 00 B7 |);TUNENAME$(M)..|
00002D90: 35 BE 0A 8B 20 4E 41 24 B2 22 59 45 53 22 20 AF |5... NA$."YES" .|
00002DA0: 20 4E B2 35 20 A7 20 99 20 A3 48 AB 31 29 3B 4E | N.5 . . .H.1);N|
00002DB0: 24 3B 22 29 20 22 3B 00 EB 35 C3 0A 8B 20 4E 41 |$;") ";..5... NA|
00002DC0: 24 B2 22 59 45 53 22 20 AF 20 4E B2 35 20 A7 20 |$."YES" . N.5 . |
00002DD0: 99 20 A3 48 AA 32 29 3B 22 4E 4F 4E 45 20 4F 46 |. .H.2);"NONE OF|
00002DE0: 20 54 48 45 20 41 42 4F 56 45 22 00 F3 35 C8 0A | THE ABOVE"..5..|
00002DF0: 82 20 4D 00 FB 35 D2 0A 99 3A 99 00 01 36 E6 0A |. M..5...:...6..|
00002E00: 8F 00 0F 36 F0 0A 81 20 43 B2 30 20 A4 20 50 00 |...6... C.0 . P.|
00002E10: 24 36 F1 0A 8B 20 53 54 4D 24 B3 B1 22 59 22 A7 |$6... STM$.."Y".|
00002E20: 20 49 B2 43 00 3A 36 F2 0A 8B 20 53 54 4D 24 B2 | I.C.:6... STM$.|
00002E30: 22 59 22 20 A7 20 49 B2 43 4F 00 54 36 F6 0A 99 |"Y" . I.CO.T6...|
00002E40: 22 13 22 3A 81 20 54 B2 31 20 A4 20 31 31 3A 99 |".":. T.1 . 11:.|
00002E50: 22 22 3A 82 00 70 36 F7 0A 81 20 54 B2 31 32 20 |"":..p6... T.12 |
00002E60: A4 20 32 32 3A 99 20 42 4C 41 4E 4B 53 24 3A 82 |. 22:. BLANKS$:.|
00002E70: 00 8A 36 F8 0A 99 22 13 22 3A 81 20 54 B2 31 20 |..6...".":. T.1 |
00002E80: A4 20 31 31 3A 99 22 22 3A 82 00 BD 36 F9 0A 8B |. 11:."":...6...|
00002E90: 20 53 54 4D 24 B2 22 59 22 20 A7 20 99 20 A3 31 | STM$."Y" . . .1|
00002EA0: 31 29 3B 22 59 4F 55 20 48 41 56 45 20 32 35 20 |1);"YOU HAVE 25 |
00002EB0: 4E 4F 54 45 53 22 3A 89 20 32 38 34 30 00 D9 36 |NOTES":. 2840..6|
00002EC0: FA 0A 48 B2 28 34 30 AB C3 28 50 4C 41 59 24 28 |..H.(40..(PLAY$(|
00002ED0: 49 29 29 AB 31 37 29 AD 32 00 08 37 04 0B 99 20 |I)).17).2..7... |
00002EE0: A3 48 29 3B 50 4C 41 59 24 28 49 29 3B 22 20 59 |.H);PLAY$(I);" Y|
00002EF0: 4F 55 20 48 41 56 45 22 3B 42 49 44 25 28 49 29 |OU HAVE";BID%(I)|
00002F00: 3B 22 4E 4F 54 45 22 3B 00 22 37 0E 0B 8B 20 42 |;"NOTE";."7... B|
00002F10: 49 44 25 28 49 29 B3 B1 31 20 A7 20 99 20 22 53 |ID%(I)..1 . . "S|
00002F20: 22 3B 00 28 37 13 0B 99 00 39 37 18 0B 43 48 4F |";.(7....97..CHO|
00002F30: 49 43 45 24 B2 22 4E 4F 22 00 4F 37 22 0B 42 49 |ICE$."NO".O7".BI|
00002F40: 44 25 28 49 29 B2 42 49 44 25 28 49 29 AB 31 00 |D%(I).BID%(I).1.|
00002F50: 6D 37 2C 0B 8B 20 49 B2 30 20 B0 20 53 54 4D 24 |m7,.. I.0 . STM$|
00002F60: B2 22 59 22 20 A7 20 89 20 32 39 38 30 00 8E 37 |."Y" . . 2980..7|
00002F70: 36 0B 8B 20 42 49 44 25 28 49 29 B2 42 49 44 25 |6.. BID%(I).BID%|
00002F80: 28 49 AB 31 29 20 A7 20 89 20 32 39 38 30 00 94 |(I.1) . . 2980..|
00002F90: 37 40 0B 99 00 A6 37 4A 0B 43 48 4F 49 43 45 24 |7@....7J.CHOICE$|
00002FA0: B2 22 59 45 53 22 00 D1 37 54 0B 99 20 A3 35 29 |."YES"..7T.. .5)|
00002FB0: 3B 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F |;"DO YOU WANT TO|
00002FC0: 20 47 55 45 53 53 20 4E 4F 57 20 46 4F 52 20 41 | GUESS NOW FOR A|
00002FD0: 22 00 ED 37 5E 0B 53 42 49 44 25 B2 42 49 44 25 |"..7^.SBID%.BID%|
00002FE0: 28 49 29 3A 50 52 45 53 53 24 B2 22 22 00 2C 38 |(I):PRESS$."".,8|
00002FF0: 68 0B 99 20 A3 33 29 3B 32 36 30 AB 28 28 42 49 |h.. .3);260.((BI|
00003000: 44 25 28 49 AB 31 29 AA 31 29 AC 31 30 29 3B 22 |D%(I.1).1).10);"|
00003010: 50 4F 49 4E 54 20 50 4F 57 45 52 20 50 4C 41 59 |POINT POWER PLAY|
00003020: 3F 20 28 59 20 4F 52 20 4E 29 22 3B 00 40 38 6D |? (Y OR N)";.@8m|
00003030: 0B 8D 31 36 37 3A 50 52 45 53 53 24 B2 49 4E 24 |..167:PRESS$.IN$|
00003040: 00 67 38 72 0B 8B 20 50 52 45 53 53 24 B2 22 4E |.g8r.. PRESS$."N|
00003050: 22 20 B0 20 50 52 45 53 53 24 B2 22 CE 22 20 A7 |" . PRESS$."." .|
00003060: 20 89 20 32 39 38 30 00 A0 38 7C 0B 8B 20 50 52 | . 2980..8|.. PR|
00003070: 45 53 53 24 B2 22 59 22 20 B0 20 50 52 45 53 53 |ESS$."Y" . PRESS|
00003080: 24 B2 22 D9 22 20 A7 20 42 49 44 25 28 49 29 B2 |$."." . BID%(I).|
00003090: 42 49 44 25 28 49 AB 31 29 3A 89 20 33 30 36 30 |BID%(I.1):. 3060|
000030A0: 00 AD 38 90 0B 99 20 C7 28 31 38 29 3B 00 DC 38 |..8... .(18);..8|
000030B0: 9A 0B 99 22 20 20 20 20 20 20 20 20 50 4C 45 41 |..." PLEA|
000030C0: 53 45 20 45 4E 54 45 52 20 27 59 27 20 4F 52 20 |SE ENTER 'Y' OR |
000030D0: 27 4E 27 20 20 20 20 20 20 20 20 22 00 F4 38 9B |'N' "..8.|
000030E0: 0B 81 20 54 B2 31 A4 32 3A 99 20 C7 28 31 34 35 |.. T.1.2:. .(145|
000030F0: 29 3B 3A 82 00 0E 39 9C 0B 97 48 46 2C 37 35 3A |);:...9...HF,75:|
00003100: 97 20 4C 46 2C 36 39 3A 97 20 57 2C 31 37 00 26 |. LF,69:. W,17.&|
00003110: 39 9D 0B 81 20 54 B2 31 20 A4 20 31 30 30 3A 82 |9... T.1 . 100:.|
00003120: 3A 97 20 57 2C 30 00 37 39 9E 0B 81 20 54 B2 31 |:. W,0.79... T.1|
00003130: 20 A4 20 35 30 3A 82 00 42 39 9F 0B 89 20 32 39 | . 50:..B9... 29|
00003140: 32 30 00 50 39 A4 0B 99 20 42 4C 41 4E 4B 53 24 |20.P9... BLANKS$|
00003150: 00 89 39 AE 0B 8B 20 43 48 4F 49 43 45 24 B2 22 |..9... CHOICE$."|
00003160: 59 45 53 22 20 A7 20 99 20 A3 37 29 3B 22 28 50 |YES" . . .7);"(P|
00003170: 52 45 53 53 20 52 45 54 55 52 4E 20 54 4F 20 43 |RESS RETURN TO C|
00003180: 4F 4E 54 49 4E 55 45 29 22 00 C8 39 B8 0B 8B 20 |ONTINUE)"..9... |
00003190: 43 48 4F 49 43 45 24 B2 22 4E 4F 22 20 A7 20 99 |CHOICE$."NO" . .|
000031A0: 20 A3 33 29 3B 22 28 50 52 45 53 53 20 52 45 54 | .3);"(PRESS RET|
000031B0: 55 52 4E 20 54 4F 20 48 45 41 52 20 59 4F 55 52 |URN TO HEAR YOUR|
000031C0: 20 4E 4F 54 45 53 29 22 00 EA 39 C2 0B A1 20 50 | NOTES)"..9... P|
000031D0: 52 45 53 53 24 3A 8B 20 50 52 45 53 53 24 B2 22 |RESS$:. PRESS$."|
000031E0: 22 20 A7 20 89 20 33 30 31 30 00 24 3A CC 0B 8B |" . . 3010.$:...|
000031F0: 20 28 50 52 45 53 53 24 B2 22 42 22 20 20 B0 20 | (PRESS$."B" . |
00003200: 50 52 45 53 53 24 B2 22 5F 22 29 20 AF 20 43 48 |PRESS$."_") . CH|
00003210: 4F 49 43 45 24 B2 22 59 45 53 22 20 A7 20 89 20 |OICE$."YES" . . |
00003220: 33 30 32 32 00 2F 3A CD 0B 89 20 33 30 33 30 00 |3022./:... 3030.|
00003230: 51 3A CE 0B 99 20 C7 28 31 34 35 29 3B 3A 99 20 |Q:... .(145);:. |
00003240: 42 4C 41 4E 4B 53 24 3A 99 20 42 4C 41 4E 4B 53 |BLANKS$:. BLANKS|
00003250: 24 00 6B 3A CF 0B 81 20 54 B2 31 20 A4 20 34 3A |$.k:... T.1 . 4:|
00003260: 99 20 C7 28 31 34 35 29 3B 3A 82 00 76 3A D0 0B |. .(145);:..v:..|
00003270: 89 20 32 39 32 30 00 81 3A D6 0B 8D 20 35 31 30 |. 2920..:... 510|
00003280: 30 00 A1 3A D7 0B 8B 20 53 54 4D 24 B3 B1 22 59 |0..:... STM$.."Y|
00003290: 22 20 B0 20 4A B3 B1 30 20 A7 20 89 20 33 30 34 |" . J..0 . . 304|
000032A0: 30 00 CC 3A D9 0B 81 20 51 B2 30 20 A4 20 50 3A |0..:... Q.0 . P:|
000032B0: 8B 20 CA 28 53 24 28 51 29 2C 32 2C 31 29 B2 22 |. .(S$(Q),2,1)."|
000032C0: 30 22 20 A7 20 49 B2 51 3A 51 B2 50 00 D4 3A DA |0" . I.Q:Q.P..:.|
000032D0: 0B 82 20 51 00 ED 3A E0 0B 81 20 54 B2 31 20 A4 |.. Q..:... T.1 .|
000032E0: 20 50 3A A1 20 50 52 45 53 53 24 3A 82 00 FE 3A | P:. PRESS$:...:|
000032F0: EA 0B 43 48 4F 49 43 45 24 B2 22 4E 4F 22 00 0C |..CHOICE$."NO"..|
00003300: 3B F4 0B 99 20 42 4C 41 4E 4B 53 24 00 31 3B FE |;... BLANKS$.1;.|
00003310: 0B 48 B2 28 34 32 AB 28 C3 28 CA 28 50 4C 41 59 |.H.(42.(.(.(PLAY|
00003320: 24 28 49 29 2C 31 2C 39 29 29 AA 33 30 29 29 AD |$(I),1,9)).30)).|
00003330: 32 00 64 3B 08 0C 99 20 A3 48 AB 31 29 3B CA 28 |2.d;... .H.1);.(|
00003340: 50 4C 41 59 24 28 49 29 2C 31 2C 39 29 3B 22 20 |PLAY$(I),1,9);" |
00003350: 50 49 43 4B 20 54 48 41 54 20 54 55 4E 45 20 46 |PICK THAT TUNE F|
00003360: 4F 52 22 3B 00 8A 3B 0D 0C 99 20 32 36 30 AB 28 |OR";..;... 260.(|
00003370: 28 42 49 44 25 28 49 29 AA 31 29 AC 31 30 29 3B |(BID%(I).1).10);|
00003380: 22 50 4F 49 4E 54 53 22 3A 99 00 94 3B 0E 0C 50 |"POINTS":...;..P|
00003390: 24 B2 22 22 00 A6 3B 12 0C 58 B2 31 3A 59 B2 32 |$.""..;..X.1:Y.2|
000033A0: 30 3A 8D 31 37 30 00 E9 3B 17 0C 99 22 20 20 20 |0:.170..;..." |
000033B0: 20 20 45 4E 54 45 52 20 59 4F 55 52 20 43 48 4F | ENTER YOUR CHO|
000033C0: 49 43 45 20 48 45 52 45 20 3D 3D 3D 3E 22 3B 3A |ICE HERE ===>";:|
000033D0: 4D 58 B2 31 3A 8D 31 36 38 3A 50 24 B2 49 4E 24 |MX.1:.168:P$.IN$|
000033E0: 3A 50 25 B2 C5 28 50 24 29 00 F8 3B 19 0C 8B 49 |:P%..(P$)..;...I|
000033F0: 4E 24 B3 B1 22 22 A7 99 00 29 3C 1C 0C 8B 20 28 |N$..""...)<... (|
00003400: 50 24 B2 22 42 22 20 B0 20 50 24 B2 22 5F 22 29 |P$."B" . P$."_")|
00003410: 20 AF 20 43 48 4F 49 43 45 24 B2 22 59 45 53 22 | . CHOICE$."YES"|
00003420: 20 A7 20 89 20 33 31 30 32 00 34 3C 1D 0C 89 20 | . . 3102.4<... |
00003430: 33 31 31 30 00 50 3C 1E 0C 99 20 C7 28 31 34 35 |3110.P<... .(145|
00003440: 29 3B C7 28 31 34 35 29 3B C7 28 31 34 35 29 3B |);.(145);.(145);|
00003450: 00 6A 3C 1F 0C 81 20 54 B2 31 20 A4 20 34 3A 99 |.j<... T.1 . 4:.|
00003460: 20 42 4C 41 4E 4B 53 24 3A 82 00 84 3C 20 0C 81 | BLANKS$:...< ..|
00003470: 20 54 B2 31 20 A4 20 36 3A 99 20 C7 28 31 34 35 | T.1 . 6:. .(145|
00003480: 29 3B 3A 82 00 9D 3C 21 0C 42 49 44 25 28 49 29 |);:...<!.BID%(I)|
00003490: B2 53 42 49 44 25 3A 89 20 32 39 32 30 00 B8 3C |.SBID%:. 2920..<|
000034A0: 26 0C 8B 20 50 25 B3 31 20 B0 20 50 25 B1 35 20 |&.. P%.1 . P%.5 |
000034B0: A7 20 89 20 33 31 34 30 00 C6 3C 30 0C 54 55 4E |. . 3140..<0.TUN|
000034C0: 45 4E 4F B2 50 25 00 D1 3C 3A 0C 89 20 33 31 38 |ENO.P%..<:.. 318|
000034D0: 30 00 DE 3C 44 0C 99 20 C7 28 31 38 29 3B 00 17 |0..<D.. .(18);..|
000034E0: 3D 4E 0C 99 3A 20 99 22 52 45 50 4C 59 20 4D 55 |=N..: ."REPLY MU|
000034F0: 53 54 20 42 45 20 42 45 54 57 45 45 4E 20 31 20 |ST BE BETWEEN 1 |
00003500: 41 4E 44 20 35 2C 49 4E 43 4C 55 53 49 56 45 22 |AND 5,INCLUSIVE"|
00003510: 3B C7 28 31 34 36 29 00 2F 3D 58 0C 81 20 54 B2 |;.(146)./=X.. T.|
00003520: 31 A4 32 3A 99 20 C7 28 31 34 35 29 3B 3A 82 00 |1.2:. .(145);:..|
00003530: 49 3D 59 0C 97 48 46 2C 37 35 3A 97 20 4C 46 2C |I=Y..HF,75:. LF,|
00003540: 36 39 3A 97 20 57 2C 31 37 00 61 3D 5A 0C 81 20 |69:. W,17.a=Z.. |
00003550: 54 B2 31 20 A4 20 31 30 30 3A 82 3A 97 20 57 2C |T.1 . 100:.:. W,|
00003560: 30 00 72 3D 5B 0C 81 20 54 B2 31 20 A4 20 35 30 |0.r=[.. T.1 . 50|
00003570: 3A 82 00 7D 3D 5C 0C 89 20 33 30 39 30 00 9E 3D |:..}=\.. 3090..=|
00003580: 6C 0C 8B 20 43 56 45 52 54 25 28 54 55 4E 45 4E |l.. CVERT%(TUNEN|
00003590: 4F 29 B3 B1 53 20 A7 20 89 20 33 35 34 30 00 C5 |O)..S . . 3540..|
000035A0: 3D 76 0C 53 43 28 49 29 B2 53 43 28 49 29 AA 28 |=v.SC(I).SC(I).(|
000035B0: 32 36 30 AB 28 28 42 49 44 25 28 49 29 AA 31 29 |260.((BID%(I).1)|
000035C0: AC 31 30 29 29 00 DF 3D 80 0C 99 22 13 22 3A 81 |.10))..=...".":.|
000035D0: 20 54 B2 31 20 A4 20 31 31 3A 99 22 22 3A 82 00 | T.1 . 11:."":..|
000035E0: FB 3D 83 0C 81 20 54 B2 31 32 20 A4 20 32 32 3A |.=... T.12 . 22:|
000035F0: 99 20 42 4C 41 4E 4B 53 24 3A 82 00 15 3E 84 0C |. BLANKS$:...>..|
00003600: 99 22 13 22 3A 81 20 54 B2 31 20 A4 20 31 31 3A |.".":. T.1 . 11:|
00003610: 99 22 22 3A 82 00 1F 3E 8A 0C 99 3A 99 3A 99 00 |."":...>...:.:..|
00003620: 4B 3E 94 0C 48 B2 28 34 30 AB 28 C3 28 54 55 4E |K>..H.(40.(.(TUN|
00003630: 45 4E 41 4D 45 24 28 43 56 45 52 54 25 28 54 55 |ENAME$(CVERT%(TU|
00003640: 4E 45 4E 4F 29 29 29 29 29 AD 32 00 7B 3E 9E 0C |NENO))))).2.{>..|
00003650: 99 20 A3 31 32 29 3B 22 54 48 41 54 20 49 53 20 |. .12);"THAT IS |
00003660: 43 4F 52 52 45 43 54 20 21 21 21 22 3A 99 3A 99 |CORRECT !!!":.:.|
00003670: 20 A3 48 29 3B C7 28 31 38 29 3B 00 9D 3E A3 0C | .H);.(18);..>..|
00003680: 99 20 54 55 4E 45 4E 41 4D 45 24 28 43 56 45 52 |. TUNENAME$(CVER|
00003690: 54 25 28 54 55 4E 45 4E 4F 29 29 3A 99 00 AD 3E |T%(TUNENO)):...>|
000036A0: A8 0C 81 20 49 B2 30 20 A4 20 50 AB 31 00 BF 3E |... I.0 . P.1..>|
000036B0: B2 0C 81 20 4A B2 28 49 AA 31 29 20 A4 20 50 00 |... J.(I.1) . P.|
000036C0: DA 3E BC 0C 8B 20 53 43 28 4A 29 B1 53 43 28 49 |.>... SC(J).SC(I|
000036D0: 29 20 A7 20 8D 20 35 30 30 30 00 E0 3E C6 0C 8F |) . . 5000..>...|
000036E0: 00 E8 3E D0 0C 82 20 4A 00 F0 3E DA 0C 82 20 49 |..>... J..>... I|
000036F0: 00 1B 3F E4 0C 99 20 A3 35 29 3B 22 28 50 52 45 |..?... .5);"(PRE|
00003700: 53 53 20 28 53 29 43 4F 52 45 53 20 4F 52 20 28 |SS (S)CORES OR (|
00003710: 43 29 4F 4E 54 49 4E 55 45 29 22 00 3D 3F EE 0C |C)ONTINUE)".=?..|
00003720: A1 20 50 52 45 53 53 24 3A 8B 20 50 52 45 53 53 |. PRESS$:. PRESS|
00003730: 24 B2 22 22 20 A7 20 89 20 33 33 31 30 00 64 3F |$."" . . 3310.d?|
00003740: F3 0C 8B 20 50 52 45 53 53 24 B2 22 43 22 20 B0 |... PRESS$."C" .|
00003750: 20 50 52 45 53 53 24 B2 22 C3 22 20 A7 20 89 20 | PRESS$."." . . |
00003760: 33 35 32 30 00 8B 3F F8 0C 8B 20 50 52 45 53 53 |3520..?... PRESS|
00003770: 24 B2 22 53 22 20 B0 20 50 52 45 53 53 24 B2 22 |$."S" . PRESS$."|
00003780: D3 22 20 A7 20 89 20 33 33 34 30 00 96 3F FD 0C |." . . 3340..?..|
00003790: 99 20 22 A0 22 3B 00 CB 3F 02 0D 99 20 C7 28 31 |. ".";..?... .(1|
000037A0: 38 29 3B 22 20 20 20 20 20 20 20 50 4C 45 41 53 |8);" PLEAS|
000037B0: 45 20 50 52 45 53 53 20 27 53 27 20 4F 52 20 27 |E PRESS 'S' OR '|
000037C0: 43 27 20 20 20 20 20 20 20 20 22 00 D9 3F 03 0D |C' "..?..|
000037D0: 99 20 C7 28 31 34 35 29 3B 00 F3 3F 04 0D 97 48 |. .(145);..?...H|
000037E0: 46 2C 37 35 3A 97 20 4C 46 2C 36 39 3A 97 20 57 |F,75:. LF,69:. W|
000037F0: 2C 31 37 00 0B 40 05 0D 81 20 49 B2 31 20 A4 20 |,17..@... I.1 . |
00003800: 31 30 30 3A 82 3A 97 20 57 2C 30 00 1C 40 06 0D |100:.:. W,0..@..|
00003810: 81 20 49 B2 31 20 A4 20 35 30 3A 82 00 27 40 07 |. I.1 . 50:..'@.|
00003820: 0D 89 20 33 33 31 30 00 31 40 0C 0D 99 20 22 93 |.. 3310.1@... ".|
00003830: 22 00 51 40 16 0D 54 54 24 B2 22 43 55 52 52 45 |".Q@..TT$."CURRE|
00003840: 4E 54 20 53 43 4F 52 45 53 22 3A 8D 20 37 32 30 |NT SCORES":. 720|
00003850: 30 00 5B 40 20 0D 99 3A 99 3A 99 00 84 40 2A 0D |0.[@ ..:.:...@*.|
00003860: 99 20 A3 35 29 3B 22 50 20 4C 20 41 20 59 20 45 |. .5);"P L A Y E|
00003870: 20 52 22 3B A3 32 34 29 3B 22 53 20 43 20 4F 20 | R";.24);"S C O |
00003880: 52 20 45 22 00 B1 40 34 0D 99 20 A3 34 29 3B 22 |R E"..@4.. .4);"|
00003890: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 22 3B A3 |.............";.|
000038A0: 32 33 29 3B 22 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |23);"...........|
000038B0: 22 00 B7 40 3E 0D 99 00 BD 40 48 0D 8F 00 CB 40 |"..@>....@H....@|
000038C0: 52 0D 81 20 4A B2 30 20 A4 20 50 00 E9 40 5C 0D |R.. J.0 . P..@\.|
000038D0: 99 20 A3 35 29 3B 50 4C 41 59 24 28 4A 29 3B A3 |. .5);PLAY$(J);.|
000038E0: 32 35 29 3B 53 43 28 4A 29 00 F1 40 66 0D 82 20 |25);SC(J)..@f.. |
000038F0: 4A 00 F9 40 70 0D 99 3A 99 00 26 41 7A 0D 99 20 |J..@p..:..&Az.. |
00003900: A3 33 29 3B 22 28 50 52 45 53 53 20 28 43 29 4F |.3);"(PRESS (C)O|
00003910: 4E 54 49 4E 55 45 20 4F 52 20 28 45 29 4E 44 20 |NTINUE OR (E)ND |
00003920: 47 41 4D 45 29 22 00 48 41 84 0D A1 20 50 52 45 |GAME)".HA... PRE|
00003930: 53 53 24 3A 8B 20 50 52 45 53 53 24 B2 22 22 20 |SS$:. PRESS$."" |
00003940: A7 20 89 20 33 34 36 30 00 6F 41 8E 0D 8B 20 50 |. . 3460.oA... P|
00003950: 52 45 53 53 24 B2 22 45 22 20 B0 20 50 52 45 53 |RESS$."E" . PRES|
00003960: 53 24 B2 22 C5 22 20 A7 20 89 20 34 31 36 30 00 |S$."." . . 4160.|
00003970: 96 41 98 0D 8B 20 50 52 45 53 53 24 B2 22 43 22 |.A... PRESS$."C"|
00003980: 20 B0 20 50 52 45 53 53 24 B2 22 C3 22 20 A7 20 | . PRESS$."." . |
00003990: 89 20 33 35 32 30 00 A7 41 A2 0D 99 20 22 A0 22 |. 3520..A... "."|
000039A0: 3B C7 28 31 38 29 3B 00 D5 41 AC 0D 99 22 20 20 |;.(18);..A..." |
000039B0: 20 20 20 20 20 50 4C 45 41 53 45 20 50 52 45 53 | PLEASE PRES|
000039C0: 53 20 27 43 27 20 4F 52 20 27 45 27 20 20 20 20 |S 'C' OR 'E' |
000039D0: 20 20 20 20 22 00 E3 41 B6 0D 99 20 C7 28 31 34 | "..A... .(14|
000039E0: 36 29 3B 00 F1 41 B7 0D 99 20 C7 28 31 34 35 29 |6);..A... .(145)|
000039F0: 3B 00 0B 42 B8 0D 97 48 46 2C 37 35 3A 97 20 4C |;..B...HF,75:. L|
00003A00: 46 2C 36 39 3A 97 20 57 2C 31 37 00 23 42 B9 0D |F,69:. W,17.#B..|
00003A10: 81 20 54 B2 31 20 A4 20 31 30 30 3A 82 3A 97 20 |. T.1 . 100:.:. |
00003A20: 57 2C 30 00 34 42 BA 0D 81 20 54 B2 31 20 A4 20 |W,0.4B... T.1 . |
00003A30: 35 30 3A 82 00 3F 42 BB 0D 89 20 33 34 36 30 00 |50:..?B... 3460.|
00003A40: 67 42 C0 0D 8B 20 54 55 4E 45 43 4E 54 25 B1 B2 |gB... TUNECNT%..|
00003A50: 4D 53 20 AF 20 52 45 50 24 B2 22 4E 4F 22 20 A7 |MS . REP$."NO" .|
00003A60: 20 89 20 34 31 36 30 00 72 42 CA 0D 89 20 32 32 | . 4160.rB... 22|
00003A70: 33 30 00 78 42 D4 0D 99 00 92 42 DE 0D 99 22 13 |30.xB.....B...".|
00003A80: 22 3A 81 20 54 B2 31 20 A4 20 31 31 3A 99 22 22 |":. T.1 . 11:.""|
00003A90: 3A 82 00 AE 42 DF 0D 81 20 54 B2 31 32 20 A4 20 |:...B... T.12 . |
00003AA0: 32 31 3A 99 20 42 4C 41 4E 4B 53 24 3A 82 00 C8 |21:. BLANKS$:...|
00003AB0: 42 E0 0D 99 22 13 22 3A 81 20 54 B2 31 20 A4 20 |B...".":. T.1 . |
00003AC0: 31 31 3A 99 22 22 3A 82 00 F7 42 E8 0D 53 43 28 |11:."":...B..SC(|
00003AD0: 49 29 B2 53 43 28 49 29 AB 28 32 36 30 AB 28 28 |I).SC(I).(260.((|
00003AE0: 42 49 44 25 28 49 29 AA 31 29 AC 31 30 29 29 AC |BID%(I).1).10)).|
00003AF0: 50 45 4E 41 4C 54 59 00 2C 43 ED 0D 8B 20 53 54 |PENALTY.,C... ST|
00003B00: 4D 24 B2 22 59 22 20 A7 20 53 24 28 49 29 B2 CA |M$."Y" . S$(I)..|
00003B10: 28 53 24 28 49 29 2C 31 2C 31 29 AA 22 31 22 AA |(S$(I),1,1)."1".|
00003B20: CA 28 53 24 28 49 29 2C 33 2C 32 29 00 59 43 F2 |.(S$(I),3,2).YC.|
00003B30: 0D 48 B2 28 33 39 AB C3 28 54 55 4E 45 4E 41 4D |.H.(39..(TUNENAM|
00003B40: 45 24 28 43 56 45 52 54 25 28 54 55 4E 45 4E 4F |E$(CVERT%(TUNENO|
00003B50: 29 29 29 AB 32 30 29 AD 32 00 7D 43 FC 0D 8B 20 |))).20).2.}C... |
00003B60: 54 55 4E 45 4E 4F B2 35 20 AF 20 4E 41 24 B2 22 |TUNENO.5 . NA$."|
00003B70: 59 45 53 22 20 A7 20 89 20 33 35 38 32 00 88 43 |YES" . . 3582..C|
00003B80: FD 0D 89 20 33 35 39 30 00 BE 43 FE 0D 99 20 A3 |... 3590..C... .|
00003B90: 31 35 29 3B 22 49 27 4D 20 53 4F 52 52 59 2C 22 |15);"I'M SORRY,"|
00003BA0: 3A 99 20 A3 31 31 29 3A 99 22 27 4E 4F 4E 45 20 |:. .11):."'NONE |
00003BB0: 4F 46 20 54 48 45 20 41 42 4F 56 45 27 22 00 D8 |OF THE ABOVE'"..|
00003BC0: 43 FF 0D 99 20 A3 31 34 29 3B 22 49 53 20 49 4E |C... .14);"IS IN|
00003BD0: 43 4F 52 52 45 43 54 22 00 FE 43 06 0E 8B 20 54 |CORRECT"..C... T|
00003BE0: 55 4E 45 4E 4F B3 B1 35 20 B0 20 4E 41 24 B3 B1 |UNENO..5 . NA$..|
00003BF0: 22 59 45 53 22 20 A7 20 89 20 33 35 39 32 00 09 |"YES" . . 3592..|
00003C00: 44 07 0E 89 20 33 36 30 30 00 21 44 08 0E 99 20 |D... 3600.!D... |
00003C10: A3 31 35 29 3B 22 49 27 4D 20 53 4F 52 52 59 2C |.15);"I'M SORRY,|
00003C20: 22 00 4E 44 09 0E 99 20 A3 28 33 38 AB C3 28 54 |".ND... .(38..(T|
00003C30: 55 4E 45 4E 41 4D 45 24 28 43 56 45 52 54 25 28 |UNENAME$(CVERT%(|
00003C40: 54 55 4E 45 4E 4F 29 29 29 29 AD 32 29 3B 00 8B |TUNENO)))).2);..|
00003C50: 44 0A 0E 99 22 27 22 3B 54 55 4E 45 4E 41 4D 45 |D..."'";TUNENAME|
00003C60: 24 28 43 56 45 52 54 25 28 54 55 4E 45 4E 4F 29 |$(CVERT%(TUNENO)|
00003C70: 29 3B 22 27 22 3A 99 20 A3 31 34 29 3B 22 49 53 |);"'":. .14);"IS|
00003C80: 20 49 4E 43 4F 52 52 45 43 54 22 00 A3 44 10 0E | INCORRECT"..D..|
00003C90: 8B 20 53 43 28 49 29 B3 30 20 A7 20 53 43 28 49 |. SC(I).0 . SC(I|
00003CA0: 29 B2 30 00 D7 44 1A 0E 8B 20 50 B3 B1 43 20 A7 |).0..D... P..C .|
00003CB0: 20 99 3A 99 20 A3 37 29 3B 22 28 20 50 52 45 53 | .:. .7);"( PRES|
00003CC0: 53 20 52 45 54 55 52 4E 20 54 4F 20 43 4F 4E 54 |S RETURN TO CONT|
00003CD0: 49 4E 55 45 20 29 22 00 02 45 24 0E 8B 20 50 B3 |INUE )"..E$.. P.|
00003CE0: B1 43 20 A7 20 A1 20 50 52 45 53 53 24 3A 8B 20 |.C . . PRESS$:. |
00003CF0: 50 52 45 53 53 24 B2 22 22 20 A7 20 89 20 33 36 |PRESS$."" . . 36|
00003D00: 32 30 00 0A 45 2E 0E 82 20 43 00 10 45 38 0E 99 |20..E... C..E8..|
00003D10: 00 47 45 42 0E 8B 20 50 B2 30 20 A7 20 99 22 59 |.GEB.. P.0 . ."Y|
00003D20: 4F 55 20 57 45 52 45 20 4E 4F 54 20 41 42 4C 45 |OU WERE NOT ABLE|
00003D30: 20 54 4F 20 50 49 43 4B 20 54 48 41 54 20 54 55 | TO PICK THAT TU|
00003D40: 4E 45 20 21 21 21 22 00 7E 45 4C 0E 8B 20 50 B3 |NE !!!".~EL.. P.|
00003D50: B1 30 20 A7 20 99 22 20 4E 4F 42 4F 44 59 20 57 |.0 . ." NOBODY W|
00003D60: 41 53 20 41 42 4C 45 20 54 4F 20 50 49 43 4B 20 |AS ABLE TO PICK |
00003D70: 54 48 41 54 20 54 55 4E 45 20 21 21 21 22 00 84 |THAT TUNE !!!"..|
00003D80: 45 56 0E 99 00 A3 45 60 0E 48 B2 28 34 32 AB 28 |EV....E`.H.(42.(|
00003D90: C3 28 54 55 4E 45 4E 41 4D 45 24 28 53 29 29 29 |.(TUNENAME$(S)))|
00003DA0: 29 AD 32 00 BD 45 6A 0E 99 20 A3 31 34 29 3B 22 |).2..Ej.. .14);"|
00003DB0: 54 48 45 20 54 55 4E 45 20 57 41 53 22 00 E3 45 |THE TUNE WAS"..E|
00003DC0: 74 0E 99 20 A3 48 AB 31 29 3B C7 28 31 38 29 3B |t.. .H.1);.(18);|
00003DD0: 54 55 4E 45 4E 41 4D 45 24 28 53 29 3B C7 28 31 |TUNENAME$(S);.(1|
00003DE0: 34 36 29 00 E9 45 7E 0E 8F 00 F1 45 88 0E 49 B2 |46)..E~....E..I.|
00003DF0: 30 00 00 46 92 0E 42 49 44 25 28 49 29 B2 32 34 |0..F..BID%(I).24|
00003E00: 00 0B 46 9C 0E 8D 20 35 31 30 30 00 11 46 A6 0E |..F... 5100..F..|
00003E10: 8F 00 1F 46 B0 0E 52 45 50 25 28 53 29 B2 30 00 |...F..REP%(S).0.|
00003E20: 37 46 BA 0E 54 55 4E 45 43 4E 54 25 B2 54 55 4E |7F..TUNECNT%.TUN|
00003E30: 45 43 4E 54 25 AB 31 00 3D 46 C4 0E 99 00 48 46 |ECNT%.1.=F....HF|
00003E40: CE 0E 89 20 33 32 34 30 00 6C 46 D8 0E 8B 20 49 |... 3240.lF... I|
00003E50: 24 B2 22 59 22 20 B0 20 49 24 B2 22 D9 22 A7 20 |$."Y" . I$.".". |
00003E60: 49 24 B2 22 22 3A 89 20 34 30 37 30 00 98 46 DD |I$."":. 4070..F.|
00003E70: 0E 99 20 42 4C 41 4E 4B 53 24 3A 99 20 A3 39 29 |.. BLANKS$:. .9)|
00003E80: 3B 22 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 |;"ONE MOMENT PLE|
00003E90: 41 53 45 20 2E 2E 2E 22 00 A7 46 E2 0E 81 20 49 |ASE ..."..F... I|
00003EA0: B2 30 20 A4 20 31 39 00 B9 46 EC 0E 46 4C 41 47 |.0 . 19..F..FLAG|
00003EB0: 48 49 47 48 28 49 29 B2 30 00 C1 46 F6 0E 82 20 |HIGH(I).0..F... |
00003EC0: 49 00 CB 46 00 0F 54 B2 43 4E 54 00 D9 46 0A 0F |I..F..T.CNT..F..|
00003ED0: 81 20 58 B2 30 20 A4 20 50 00 F7 46 14 0F 48 49 |. X.0 . P..F..HI|
00003EE0: 47 48 4E 41 4D 45 24 28 54 AA 58 AA 31 29 B2 50 |GHNAME$(T.X.1).P|
00003EF0: 4C 41 59 24 28 58 29 00 0D 47 1E 0F 46 4C 41 47 |LAY$(X)..G..FLAG|
00003F00: 48 49 47 48 28 54 AA 58 AA 31 29 B2 31 00 23 47 |HIGH(T.X.1).1.#G|
00003F10: 28 0F 48 49 47 48 28 54 AA 58 AA 31 29 B2 53 43 |(.HIGH(T.X.1).SC|
00003F20: 28 58 29 00 2B 47 32 0F 82 20 58 00 37 47 3C 0F |(X).+G2.. X.7G<.|
00003F30: 54 B2 54 AA 50 AA 31 00 49 47 46 0F 81 20 49 B2 |T.T.P.1.IGF.. I.|
00003F40: 30 20 A4 20 28 54 AB 31 29 00 5B 47 50 0F 81 20 |0 . (T.1).[GP.. |
00003F50: 4A B2 28 49 AA 31 29 20 A4 20 54 00 7A 47 5A 0F |J.(I.1) . T.zGZ.|
00003F60: 8B 20 48 49 47 48 28 49 29 B1 48 49 47 48 28 4A |. HIGH(I).HIGH(J|
00003F70: 29 20 A7 20 89 20 34 30 34 30 00 B4 47 64 0F 8B |) . . 4040..Gd..|
00003F80: 20 48 49 47 48 28 49 29 B2 48 49 47 48 28 4A 29 | HIGH(I).HIGH(J)|
00003F90: 20 AF 20 46 4C 41 47 48 49 47 48 28 49 29 B3 B2 | . FLAGHIGH(I)..|
00003FA0: 46 4C 41 47 48 49 47 48 28 4A 29 20 A7 20 89 20 |FLAGHIGH(J) . . |
00003FB0: 34 30 34 30 00 C5 47 6E 0F 48 4F 4C 44 B2 48 49 |4040..Gn.HOLD.HI|
00003FC0: 47 48 28 4A 29 00 D9 47 78 0F 48 49 47 48 28 4A |GH(J)..Gx.HIGH(J|
00003FD0: 29 B2 48 49 47 48 28 49 29 00 EA 47 82 0F 48 49 |).HIGH(I)..G..HI|
00003FE0: 47 48 28 49 29 B2 48 4F 4C 44 00 05 48 8C 0F 48 |GH(I).HOLD..H..H|
00003FF0: 4F 4C 44 4E 41 4D 45 24 B2 48 49 47 48 4E 41 4D |OLDNAME$.HIGHNAM|
00004000: 45 24 28 4A 29 00 23 48 96 0F 48 49 47 48 4E 41 |E$(J).#H..HIGHNA|
00004010: 4D 45 24 28 4A 29 B2 48 49 47 48 4E 41 4D 45 24 |ME$(J).HIGHNAME$|
00004020: 28 49 29 00 3E 48 A0 0F 48 49 47 48 4E 41 4D 45 |(I).>H..HIGHNAME|
00004030: 24 28 49 29 B2 48 4F 4C 44 4E 41 4D 45 24 00 57 |$(I).HOLDNAME$.W|
00004040: 48 AA 0F 48 4F 4C 44 46 4C 41 47 B2 46 4C 41 47 |H..HOLDFLAG.FLAG|
00004050: 48 49 47 48 28 4A 29 00 73 48 B4 0F 46 4C 41 47 |HIGH(J).sH..FLAG|
00004060: 48 49 47 48 28 4A 29 B2 46 4C 41 47 48 49 47 48 |HIGH(J).FLAGHIGH|
00004070: 28 49 29 00 8C 48 BE 0F 46 4C 41 47 48 49 47 48 |(I)..H..FLAGHIGH|
00004080: 28 49 29 B2 48 4F 4C 44 46 4C 41 47 00 94 48 C8 |(I).HOLDFLAG..H.|
00004090: 0F 82 20 4A 00 9C 48 D2 0F 82 20 49 00 B8 48 DC |.. J..H... I..H.|
000040A0: 0F 8B 20 53 43 28 30 29 B3 B2 48 49 47 48 39 20 |.. SC(0)..HIGH9 |
000040B0: A7 20 89 20 34 31 35 30 00 CD 48 E6 0F 5A B2 31 |. . 4150..H..Z.1|
000040C0: 30 AC 28 C5 28 56 24 29 AB 31 29 AA 31 00 DC 48 |0.(.(V$).1).1..H|
000040D0: F0 0F 9F 20 31 2C 38 2C 32 2C 46 24 00 0C 49 F1 |... 1,8,2,F$..I.|
000040E0: 0F 84 33 2C 41 24 2C 42 24 2C 43 24 2C 44 24 3A |..3,A$,B$,C$,D$:|
000040F0: 8B 20 C5 28 41 24 29 B3 B1 30 20 A7 20 4B 45 59 |. .(A$)..0 . KEY|
00004100: B2 34 30 37 30 3A 89 20 36 30 30 30 00 1A 49 FA |.4070:. 6000..I.|
00004110: 0F 81 20 49 B2 30 20 A4 20 39 00 35 49 FF 0F 98 |.. I.0 . 9.5I...|
00004120: 33 2C 22 50 22 C7 28 32 29 C7 28 5A 29 C7 28 30 |3,"P".(2).(Z).(0|
00004130: 29 C7 28 31 29 00 58 49 00 10 98 31 2C 48 49 47 |).(1).XI...1,HIG|
00004140: 48 4E 41 4D 45 24 28 49 29 AA 22 2C 22 AA C4 28 |HNAME$(I).","..(|
00004150: 48 49 47 48 28 49 29 29 00 88 49 01 10 84 33 2C |HIGH(I))..I...3,|
00004160: 41 24 2C 42 24 2C 43 24 2C 44 24 3A 8B 20 C5 28 |A$,B$,C$,D$:. .(|
00004170: 41 24 29 B3 B1 30 20 A7 20 4B 45 59 B2 34 30 37 |A$)..0 . KEY.407|
00004180: 30 3A 89 20 36 30 30 30 00 92 49 02 10 5A B2 5A |0:. 6000..I..Z.Z|
00004190: AA 31 00 9A 49 04 10 82 20 49 00 A2 49 31 10 A0 |.1..I... I..I1..|
000041A0: 20 31 00 A8 49 36 10 8E 00 AE 49 40 10 8F 00 BE | 1..I6....I@....|
000041B0: 49 4A 10 81 20 49 B2 30 20 A4 20 50 AB 31 00 D0 |IJ.. I.0 . P.1..|
000041C0: 49 54 10 81 20 4A B2 28 49 AA 31 29 20 A4 20 50 |IT.. J.(I.1) . P|
000041D0: 00 EB 49 5E 10 8B 20 53 43 28 4A 29 B1 53 43 28 |..I^.. SC(J).SC(|
000041E0: 49 29 20 A7 20 8D 20 35 30 30 30 00 F1 49 68 10 |I) . . 5000..Ih.|
000041F0: 8F 00 F9 49 72 10 82 20 4A 00 01 4A 7C 10 82 20 |...Ir.. J..J|.. |
00004200: 49 00 07 4A 86 10 8F 00 12 4A 8B 10 8D 20 33 38 |I..J.....J... 38|
00004210: 30 30 00 18 4A 90 10 8F 00 21 4A 9A 10 99 22 93 |00..J....!J...".|
00004220: 22 00 3E 4A A4 10 54 54 24 B2 22 46 49 4E 41 4C |".>J..TT$."FINAL|
00004230: 20 53 43 4F 52 45 53 22 3A 8D 37 32 30 30 00 44 | SCORES":.7200.D|
00004240: 4A AE 10 99 00 4A 4A B8 10 99 00 73 4A C2 10 99 |J....JJ....sJ...|
00004250: 20 A3 33 29 3B 22 50 20 4C 20 41 20 59 20 45 20 | .3);"P L A Y E |
00004260: 52 22 3B A3 32 33 29 3B 22 53 20 43 20 4F 20 52 |R";.23);"S C O R|
00004270: 20 45 22 00 A0 4A CC 10 99 20 A3 32 29 3B 22 C3 | E"..J... .2);".|
00004280: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 22 3B A3 32 |............";.2|
00004290: 32 29 3B 22 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 22 |2);"..........."|
000042A0: 00 A6 4A E0 10 99 00 AC 4A EA 10 8F 00 BA 4A F4 |..J.....J.....J.|
000042B0: 10 81 20 49 B2 30 20 A4 20 54 00 D7 4A FE 10 8B |.. I.0 . T..J...|
000042C0: 20 46 4C 41 47 48 49 47 48 28 49 29 B2 30 20 A7 | FLAGHIGH(I).0 .|
000042D0: 20 89 20 34 33 38 30 00 13 4B 08 11 8B 20 49 B3 | . 4380..K... I.|
000042E0: 31 30 20 A7 20 99 20 A3 33 29 3B 48 49 47 48 4E |10 . . .3);HIGHN|
000042F0: 41 4D 45 24 28 49 29 3B A3 32 34 29 3B 48 49 47 |AME$(I);.24);HIG|
00004300: 48 28 49 29 3B A3 33 32 29 3B 22 54 4F 50 20 54 |H(I);.32);"TOP T|
00004310: 45 4E 22 00 41 4B 12 11 8B 20 49 B1 B2 31 30 20 |EN".AK... I..10 |
00004320: A7 20 99 20 A3 33 29 3B 48 49 47 48 4E 41 4D 45 |. . .3);HIGHNAME|
00004330: 24 28 49 29 3B A3 32 34 29 3B 48 49 47 48 28 49 |$(I);.24);HIGH(I|
00004340: 29 00 49 4B 1C 11 82 20 49 00 4F 4B 26 11 99 00 |).IK... I.OK&...|
00004350: 89 4B 30 11 8B 20 54 55 4E 45 43 4E 54 25 B1 B2 |.K0.. TUNECNT%..|
00004360: 20 4D 53 20 A7 20 99 20 A3 37 29 3B 22 49 20 44 | MS . . .7);"I D|
00004370: 4F 4E 27 54 20 4B 4E 4F 57 20 41 4E 59 20 4D 4F |ON'T KNOW ANY MO|
00004380: 52 45 20 54 55 4E 45 53 22 00 8F 4B 3A 11 99 00 |RE TUNES"..K:...|
00004390: A2 4B 44 11 8B 20 50 B2 30 20 A7 20 89 20 34 35 |.KD.. P.0 . . 45|
000043A0: 32 30 00 BD 4B 4E 11 8B 20 53 43 28 30 29 B2 53 |20..KN.. SC(0).S|
000043B0: 43 28 31 29 20 A7 20 89 20 34 35 30 30 00 DB 4B |C(1) . . 4500..K|
000043C0: 58 11 48 B2 28 34 30 AB 28 C3 28 50 4C 41 59 24 |X.H.(40.(.(PLAY$|
000043D0: 28 30 29 29 AA 31 38 29 29 AD 32 00 06 4C 62 11 |(0)).18)).2..Lb.|
000043E0: 99 20 A3 48 29 3B 22 43 4F 4E 47 52 41 54 55 4C |. .H);"CONGRATUL|
000043F0: 41 54 49 4F 4E 53 20 22 3B 50 4C 41 59 24 28 30 |ATIONS ";PLAY$(0|
00004400: 29 3B 22 20 21 22 00 13 4C 6C 11 48 31 B2 53 43 |);" !"..Ll.H1.SC|
00004410: 28 30 29 00 2E 4C 76 11 48 B2 28 34 30 AB 28 C3 |(0)..Lv.H.(40.(.|
00004420: 28 C4 28 48 31 29 29 AA 33 31 29 29 AD 32 00 68 |(.(H1)).31)).2.h|
00004430: 4C 80 11 99 20 A3 48 29 3B 22 59 4F 55 20 41 52 |L... .H);"YOU AR|
00004440: 45 20 54 48 45 20 57 49 4E 4E 45 52 20 57 49 54 |E THE WINNER WIT|
00004450: 48 22 3B 53 43 28 30 29 3B 22 50 4F 49 4E 54 53 |H";SC(0);"POINTS|
00004460: 22 3A 89 20 34 35 32 30 00 73 4C 8A 11 89 20 34 |":. 4520.sL... 4|
00004470: 35 32 30 00 9E 4C 94 11 99 20 A3 34 29 3B 22 54 |520..L... .4);"T|
00004480: 48 45 52 45 20 49 53 20 41 20 54 49 45 20 46 4F |HERE IS A TIE FO|
00004490: 52 20 46 49 52 53 54 20 50 4C 41 43 45 22 00 BE |R FIRST PLACE"..|
000044A0: 4C 9E 11 99 20 A3 39 29 3B 22 49 20 53 55 47 47 |L... .9);"I SUGG|
000044B0: 45 53 54 20 41 20 52 45 4D 41 54 43 48 22 00 C4 |EST A REMATCH"..|
000044C0: 4C A8 11 99 00 F6 4C B2 11 99 20 A3 35 29 3B 22 |L.....L... .5);"|
000044D0: 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 53 |DO YOU WISH TO S|
000044E0: 45 45 20 54 48 45 20 54 4F 50 20 54 45 4E 22 3A |EE THE TOP TEN":|
000044F0: 99 20 A3 35 29 3B 00 1F 4D B3 11 99 22 53 43 4F |. .5);..M..."SCO|
00004500: 52 45 53 20 46 4F 52 20 47 41 4D 45 20 22 3B 56 |RES FOR GAME ";V|
00004510: 24 3B 22 3F A0 28 59 20 4F 52 20 4E 29 22 3B 00 |$;"?.(Y OR N)";.|
00004520: 39 4D B4 11 99 A3 35 29 3B 3A 8D 31 36 37 3A 50 |9M....5);:.167:P|
00004530: 52 45 53 53 24 B2 49 4E 24 00 60 4D BC 11 8B 20 |RESS$.IN$.`M... |
00004540: 50 52 45 53 53 24 B2 22 59 22 20 B0 20 50 52 45 |PRESS$."Y" . PRE|
00004550: 53 53 24 B2 22 D9 22 20 A7 20 89 20 34 37 32 30 |SS$."." . . 4720|
00004560: 00 86 4D C6 11 8B 20 50 52 45 53 53 24 B2 22 4E |..M... PRESS$."N|
00004570: 22 20 B0 20 50 52 45 53 53 24 B2 22 CE 22 A7 20 |" . PRESS$.".". |
00004580: 89 20 34 36 32 30 00 98 4D D0 11 99 3A 99 C7 28 |. 4620..M...:..(|
00004590: 31 38 29 3B A3 31 29 3B 00 CE 4D DA 11 99 22 20 |18);.1);..M..." |
000045A0: 20 20 20 20 20 20 20 50 4C 45 41 53 45 20 45 4E | PLEASE EN|
000045B0: 54 45 52 20 27 59 27 20 4F 52 20 27 4E 27 20 20 |TER 'Y' OR 'N' |
000045C0: 20 20 20 20 20 22 3B C7 28 31 34 36 29 3B 00 D4 | ";.(146);..|
000045D0: 4D F8 11 8F 00 EE 4D F9 11 81 20 49 B2 31 A4 33 |M.....M... I.1.3|
000045E0: 3A 99 20 C7 28 31 34 35 29 3B 3A 82 3A 99 00 08 |:. .(145);:.:...|
000045F0: 4E FA 11 97 48 46 2C 37 35 3A 97 20 4C 46 2C 36 |N...HF,75:. LF,6|
00004600: 39 3A 97 20 57 2C 31 37 00 20 4E FB 11 81 20 49 |9:. W,17. N... I|
00004610: B2 31 20 A4 20 31 30 30 3A 82 3A 97 20 57 2C 30 |.1 . 100:.:. W,0|
00004620: 00 31 4E FC 11 81 20 49 B2 31 20 A4 20 35 30 3A |.1N... I.1 . 50:|
00004630: 82 00 3C 4E 02 12 89 20 34 35 33 30 00 4A 4E 0C |..<N... 4530.JN.|
00004640: 12 99 20 42 4C 41 4E 4B 53 24 00 80 4E 16 12 99 |.. BLANKS$..N...|
00004650: 20 22 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 | " DO YOU WANT T|
00004660: 4F 20 50 4C 41 59 20 41 47 41 49 4E 20 28 59 20 |O PLAY AGAIN (Y |
00004670: 4F 52 20 4E 29 22 3B 20 A3 35 29 3B 22 3F 22 3B |OR N)"; .5);"?";|
00004680: 00 94 4E 17 12 8D 31 36 37 3A 50 52 45 53 53 24 |..N...167:PRESS$|
00004690: B2 49 4E 24 00 BB 4E 20 12 8B 20 50 52 45 53 53 |.IN$..N .. PRESS|
000046A0: 24 B2 22 59 22 20 B0 20 50 52 45 53 53 24 B2 22 |$."Y" . PRESS$."|
000046B0: D9 22 20 A7 20 89 20 34 38 35 30 00 E2 4E 2A 12 |." . . 4850..N*.|
000046C0: 8B 20 50 52 45 53 53 24 B2 22 4E 22 20 B0 20 50 |. PRESS$."N" . P|
000046D0: 52 45 53 53 24 B2 22 CE 22 20 A7 20 89 20 35 31 |RESS$."." . . 51|
000046E0: 36 30 00 F5 4E 34 12 99 3A 99 20 22 20 22 3B C7 |60..N4..:. " ";.|
000046F0: 28 31 38 29 3B 00 23 4F 3E 12 99 22 20 20 20 20 |(18);.#O>.." |
00004700: 20 20 20 50 4C 45 41 53 45 20 54 59 50 45 20 27 | PLEASE TYPE '|
00004710: 59 27 20 4F 52 20 27 4E 27 20 20 20 20 20 20 20 |Y' OR 'N' |
00004720: 20 20 22 00 31 4F 48 12 99 20 C7 28 31 34 36 29 | ".1OH.. .(146)|
00004730: 3B 00 54 4F 49 12 81 20 49 B2 31 A4 33 3A 99 20 |;.TOI.. I.1.3:. |
00004740: C7 28 31 34 35 29 3B 3A 82 3A 8B 49 4E 24 B2 22 |.(145);:.:.IN$."|
00004750: 5F 22 A7 99 00 6E 4F 4A 12 97 48 46 2C 37 35 3A |_"...nOJ..HF,75:|
00004760: 97 20 4C 46 2C 36 39 3A 97 20 57 2C 31 37 00 86 |. LF,69:. W,17..|
00004770: 4F 4B 12 81 20 49 B2 31 20 A4 20 31 30 30 3A 82 |OK.. I.1 . 100:.|
00004780: 3A 97 20 57 2C 30 00 97 4F 4C 12 81 20 49 B2 31 |:. W,0..OL.. I.1|
00004790: 20 A4 20 35 30 3A 82 00 A2 4F 66 12 89 20 34 36 | . 50:...Of.. 46|
000047A0: 33 30 00 AB 4F 70 12 99 22 93 22 00 CA 4F 84 12 |30..Op.."."..O..|
000047B0: 54 54 24 B2 22 54 4F 50 20 54 45 4E 20 53 43 4F |TT$."TOP TEN SCO|
000047C0: 52 45 53 22 3A 8D 37 32 30 30 00 D2 4F 8E 12 99 |RES":.7200..O...|
000047D0: 3A 99 00 FB 4F 98 12 99 20 A3 33 29 3B 22 50 20 |:...O... .3);"P |
000047E0: 4C 20 41 20 59 20 45 20 52 22 3B A3 32 35 29 3B |L A Y E R";.25);|
000047F0: 22 53 20 43 20 4F 20 52 20 45 22 00 28 50 A2 12 |"S C O R E".(P..|
00004800: 99 20 A3 32 29 3B 22 C3 C3 C3 C3 C3 C3 C3 C3 C3 |. .2);".........|
00004810: C3 C3 C3 C3 22 3B A3 32 34 29 3B 22 C3 C3 C3 C3 |....";.24);"....|
00004820: C3 C3 C3 C3 C3 C3 C3 22 00 2E 50 AC 12 99 00 3C |......."..P....<|
00004830: 50 B6 12 81 20 49 B2 30 20 A4 20 39 00 59 50 C0 |P... I.0 . 9.YP.|
00004840: 12 8B 20 46 4C 41 47 48 49 47 48 28 49 29 B2 30 |.. FLAGHIGH(I).0|
00004850: 20 A7 20 89 20 34 38 32 30 00 7E 50 CA 12 99 20 | . . 4820.~P... |
00004860: A3 33 29 3B C7 28 31 38 29 3B 48 49 47 48 4E 41 |.3);.(18);HIGHNA|
00004870: 4D 45 24 28 49 29 3B C7 28 31 34 36 29 3B 00 A5 |ME$(I);.(146);..|
00004880: 50 CF 12 99 20 A3 32 36 29 3B C7 28 31 38 29 3B |P... .26);.(18);|
00004890: 48 49 47 48 28 49 29 3B C7 28 31 34 36 29 3A 89 |HIGH(I);.(146):.|
000048A0: 20 34 38 33 30 00 D0 50 D4 12 99 20 A3 33 29 3B | 4830..P... .3);|
000048B0: 48 49 47 48 4E 41 4D 45 24 28 49 29 3B A3 32 36 |HIGHNAME$(I);.26|
000048C0: 29 3B 48 49 47 48 28 49 29 3A 89 20 34 38 33 30 |);HIGH(I):. 4830|
000048D0: 00 D8 50 DE 12 82 20 49 00 E5 50 E8 12 99 3A 89 |..P... I..P...:.|
000048E0: 20 34 36 33 30 00 F4 50 F2 12 81 20 49 B2 30 20 | 4630..P... I.0 |
000048F0: A4 20 33 30 00 02 51 FC 12 52 45 50 25 28 49 29 |. 30..Q..REP%(I)|
00004900: B2 30 00 0A 51 06 13 82 20 49 00 18 51 10 13 81 |.0..Q... I..Q...|
00004910: 20 49 B2 30 20 A4 20 39 00 24 51 1A 13 53 43 28 | I.0 . 9.$Q..SC(|
00004920: 49 29 B2 30 00 35 51 24 13 50 4C 41 59 24 28 49 |I).0.5Q$.PLAY$(I|
00004930: 29 B2 22 20 22 00 43 51 2E 13 42 49 44 25 28 49 |)." ".CQ..BID%(I|
00004940: 29 B2 30 00 4B 51 38 13 82 20 49 00 5B 51 42 13 |).0.KQ8.. I.[QB.|
00004950: 81 20 49 B2 31 30 20 A4 20 31 39 00 70 51 4C 13 |. I.10 . 19.pQL.|
00004960: 48 49 47 48 4E 41 4D 45 24 28 49 29 B2 22 20 22 |HIGHNAME$(I)." "|
00004970: 00 7E 51 56 13 48 49 47 48 28 49 29 B2 30 00 86 |.~QV.HIGH(I).0..|
00004980: 51 60 13 82 20 49 00 98 51 6A 13 48 49 47 48 39 |Q`.. I..Qj.HIGH9|
00004990: B2 48 49 47 48 28 39 29 00 A7 51 74 13 54 55 4E |.HIGH(9)..Qt.TUN|
000049A0: 45 43 4E 54 25 B2 30 00 B0 51 75 13 99 22 93 22 |ECNT%.0..Qu.."."|
000049B0: 00 C4 51 76 13 43 54 47 B2 30 3A 4C 41 53 54 43 |..Qv.CTG.0:LASTC|
000049C0: 24 B2 22 22 00 CE 51 7E 13 89 20 32 32 30 00 E3 |$.""..Q~.. 220..|
000049D0: 51 88 13 48 4F 4C 44 42 49 44 25 B2 42 49 44 25 |Q..HOLDBID%.BID%|
000049E0: 28 49 29 00 FA 51 92 13 48 4F 4C 44 4E 41 4D 45 |(I)..Q..HOLDNAME|
000049F0: 24 B2 50 4C 41 59 24 28 49 29 00 08 52 9C 13 48 |$.PLAY$(I)..R..H|
00004A00: 53 43 B2 53 43 28 49 29 00 16 52 A1 13 44 53 24 |SC.SC(I)..R..DS$|
00004A10: B2 53 24 28 49 29 00 2A 52 A6 13 42 49 44 25 28 |.S$(I).*R..BID%(|
00004A20: 49 29 B2 42 49 44 25 28 4A 29 00 40 52 B0 13 50 |I).BID%(J).@R..P|
00004A30: 4C 41 59 24 28 49 29 B2 50 4C 41 59 24 28 4A 29 |LAY$(I).PLAY$(J)|
00004A40: 00 50 52 BA 13 53 43 28 49 29 B2 53 43 28 4A 29 |.PR..SC(I).SC(J)|
00004A50: 00 60 52 BF 13 53 24 28 49 29 B2 53 24 28 4A 29 |.`R..S$(I).S$(J)|
00004A60: 00 75 52 C4 13 42 49 44 25 28 4A 29 B2 48 4F 4C |.uR..BID%(J).HOL|
00004A70: 44 42 49 44 25 00 8C 52 CE 13 50 4C 41 59 24 28 |DBID%..R..PLAY$(|
00004A80: 4A 29 B2 48 4F 4C 44 4E 41 4D 45 24 00 9A 52 D8 |J).HOLDNAME$..R.|
00004A90: 13 53 43 28 4A 29 B2 48 53 43 00 A8 52 DD 13 53 |.SC(J).HSC..R..S|
00004AA0: 24 28 4A 29 B2 44 53 24 00 AE 52 E2 13 8E 00 D6 |$(J).DS$..R.....|
00004AB0: 52 EC 13 8B 20 53 54 4D 24 B2 22 59 22 20 A7 20 |R... STM$."Y" . |
00004AC0: 81 20 49 B2 30 20 A4 20 39 3A 42 49 44 25 28 49 |. I.0 . 9:BID%(I|
00004AD0: 29 B2 32 34 3A 82 00 01 53 ED 13 50 52 45 53 53 |).24:...S..PRESS|
00004AE0: 24 B2 22 22 3A 4A B2 30 3A 8B 20 53 54 4D 24 B2 |$."":J.0:. STM$.|
00004AF0: 22 59 22 20 A7 20 43 4F B2 43 4F AA 31 3A 49 B2 |"Y" . CO.CO.1:I.|
00004B00: 30 00 15 53 EE 13 81 20 41 B2 30 20 A4 20 42 49 |0..S... A.0 . BI|
00004B10: 44 25 28 49 29 00 2F 53 EF 13 8B 20 53 54 4D 24 |D%(I)./S... STM$|
00004B20: B2 22 59 22 20 A7 20 A1 20 50 52 45 53 53 24 00 |."Y" . . PRESS$.|
00004B30: 54 53 F0 13 8B 20 53 54 4D 24 B2 22 59 22 20 AF |TS... STM$."Y" .|
00004B40: 20 50 52 45 53 53 24 B3 B1 22 22 20 A7 20 89 20 | PRESS$.."" . . |
00004B50: 35 31 30 36 00 5F 53 F1 13 89 20 35 31 31 39 00 |5106._S... 5119.|
00004B60: 83 53 F2 13 8B 20 50 52 45 53 53 24 B2 C7 28 31 |.S... PRESS$..(1|
00004B70: 33 37 29 20 A7 20 50 52 45 53 53 24 B2 C7 28 31 |37) . PRESS$..(1|
00004B80: 33 33 29 00 A7 53 F3 13 8B 20 50 52 45 53 53 24 |33)..S... PRESS$|
00004B90: B2 C7 28 31 34 30 29 20 A7 20 50 52 45 53 53 24 |..(140) . PRESS$|
00004BA0: B2 C7 28 31 33 36 29 00 B5 53 F4 13 81 20 51 B2 |..(136)..S... Q.|
00004BB0: 30 20 A4 20 50 00 EC 53 F5 13 8B 20 CA 28 53 24 |0 . P..S... .(S$|
00004BC0: 28 51 29 2C 31 2C 31 29 B3 B1 50 52 45 53 53 24 |(Q),1,1)..PRESS$|
00004BD0: 20 B0 20 CA 28 53 24 28 51 29 2C 32 2C 31 29 B2 | . .(S$(Q),2,1).|
00004BE0: 22 31 22 20 A7 20 89 20 35 31 31 31 00 F8 53 F6 |"1" . . 5111..S.|
00004BF0: 13 49 B2 51 3A 4A B2 31 00 FE 53 F7 13 82 00 1B |.I.Q:J.1..S.....|
00004C00: 54 F8 13 8B 20 4A B2 30 20 A7 20 50 52 45 53 53 |T... J.0 . PRESS|
00004C10: 24 B2 22 22 3A 89 20 35 31 31 39 00 37 54 FE 13 |$."":. 5119.7T..|
00004C20: 42 49 44 25 28 49 29 B2 41 AB 31 3A 41 B2 32 35 |BID%(I).A.1:A.25|
00004C30: 3A 89 20 35 31 35 35 00 54 54 FF 13 58 B2 C5 28 |:. 5155.TT..X..(|
00004C40: CA 28 41 24 28 53 29 2C 41 AC 33 AA 31 2C 32 29 |.(A$(S),A.3.1,2)|
00004C50: 29 AB 31 32 00 66 54 00 14 4B B2 48 28 58 29 3A |).12.fT..K.H(X):|
00004C60: 4D B2 4C 28 58 29 00 84 54 0A 14 44 31 B2 C5 28 |M.L(X)..T..D1..(|
00004C70: CA 28 41 24 28 53 29 2C 41 AC 33 AA 33 2C 31 29 |.(A$(S),A.3.3,1)|
00004C80: 29 AC 34 30 00 A7 54 0F 14 81 20 54 B2 31 20 A4 |).40..T... T.1 .|
00004C90: 20 44 3A 82 3A 97 20 57 2C 30 3A 97 57 AA 38 2C | D:.:. W,0:.W.8,|
00004CA0: 30 3A 20 44 B2 44 31 00 E3 54 14 14 97 48 46 2C |0: D.D1..T...HF,|
00004CB0: 4B 3A 97 4C 46 2C 4D 3A 97 20 57 2C 33 33 3A 58 |K:.LF,M:. W,33:X|
00004CC0: B2 58 AA 31 33 3A 97 48 46 AA 38 2C 48 28 58 29 |.X.13:.HF.8,H(X)|
00004CD0: 3A 97 4C 46 AA 38 2C 4C 28 58 29 3A 97 57 AA 38 |:.LF.8,L(X):.W.8|
00004CE0: 2C 33 33 00 EB 54 23 14 82 20 41 00 F1 54 25 14 |,33..T#.. A..T%.|
00004CF0: 8E 00 FC 54 28 14 9E 36 34 37 33 38 00 06 55 70 |...T(..64738..Up|
00004D00: 17 99 20 22 93 22 00 19 55 7A 17 81 20 44 B2 31 |.. "."..Uz.. D.1|
00004D10: 20 A4 20 31 32 3A 99 3A 82 00 4E 55 7B 17 8B 20 | . 12:.:..NU{.. |
00004D20: C5 28 41 24 29 B2 37 34 20 A7 20 42 24 B2 22 20 |.(A$).74 . B$." |
00004D30: 50 4C 45 41 53 45 20 43 4C 4F 53 45 20 44 49 53 |PLEASE CLOSE DIS|
00004D40: 4B 20 44 52 49 56 45 20 44 4F 4F 52 20 22 00 86 |K DRIVE DOOR "..|
00004D50: 55 7C 17 8B 20 C5 28 41 24 29 B2 32 36 20 A7 20 |U|.. .(A$).26 . |
00004D60: 42 24 B2 22 20 50 4C 45 41 53 45 20 52 45 4D 4F |B$." PLEASE REMO|
00004D70: 56 45 20 57 52 49 54 45 20 50 52 4F 54 45 43 54 |VE WRITE PROTECT|
00004D80: 20 54 41 42 20 22 00 BA 55 7D 17 8B 20 C5 28 41 | TAB "..U}.. .(A|
00004D90: 24 29 B2 36 32 20 A7 20 42 24 B2 22 20 50 4C 45 |$).62 . B$." PLE|
00004DA0: 41 53 45 20 49 4E 53 45 52 54 20 54 55 4E 45 20 |ASE INSERT TUNE |
00004DB0: 44 49 53 4B 45 54 54 45 20 22 00 DF 55 84 17 99 |DISKETTE "..U...|
00004DC0: 20 A3 28 34 30 AB C3 28 42 24 29 29 AD 32 29 3B | .(40..(B$)).2);|
00004DD0: C7 28 31 38 29 3B 42 24 3B C7 28 31 34 36 29 00 |.(18);B$;.(146).|
00004DE0: F3 55 8E 17 81 20 44 B2 31 33 20 A4 20 32 30 3A |.U... D.13 . 20:|
00004DF0: 99 3A 82 00 1A 56 98 17 99 20 A3 37 29 3B 22 28 |.:...V... .7);"(|
00004E00: 50 52 45 53 53 20 52 45 54 55 52 4E 20 54 4F 20 |PRESS RETURN TO |
00004E10: 43 4F 4E 54 49 4E 55 45 29 22 00 27 56 A2 17 A1 |CONTINUE)".'V...|
00004E20: 20 50 52 45 53 53 24 00 41 56 A3 17 97 48 46 2C | PRESS$.AV...HF,|
00004E30: 37 35 3A 97 20 4C 46 2C 36 39 3A 97 20 57 2C 31 |75:. LF,69:. W,1|
00004E40: 37 00 59 56 A4 17 81 20 44 B2 31 20 A4 20 31 30 |7.YV... D.1 . 10|
00004E50: 30 3A 82 3A 97 20 57 2C 30 00 6A 56 A5 17 81 20 |0:.:. W,0.jV... |
00004E60: 44 B2 31 20 A4 20 35 30 3A 82 00 7D 56 A6 17 81 |D.1 . 50:..}V...|
00004E70: 20 44 B2 31 20 A4 20 31 30 30 30 3A 82 00 96 56 | D.1 . 1000:...V|
00004E80: A7 17 8B 20 50 52 45 53 53 24 B2 22 22 20 A7 20 |... PRESS$."" . |
00004E90: 89 20 36 30 35 30 00 A0 56 AA 17 99 20 22 93 22 |. 6050..V... "."|
00004EA0: 00 A8 56 AB 17 A0 20 31 00 BE 56 AC 17 8B 20 4B |..V... 1..V... K|
00004EB0: 45 59 B2 32 32 30 20 A7 20 89 20 32 32 30 00 D4 |EY.220 . . 220..|
00004EC0: 56 B6 17 8B 20 4B 45 59 B2 35 31 30 20 A7 20 89 |V... KEY.510 . .|
00004ED0: 20 35 31 30 00 EA 56 C0 17 8B 20 4B 45 59 B2 36 | 510..V... KEY.6|
00004EE0: 30 30 20 A7 20 89 20 36 30 30 00 02 57 CA 17 8B |00 . . 600..W...|
00004EF0: 20 4B 45 59 B2 31 32 33 30 20 A7 20 89 20 31 32 | KEY.1230 . . 12|
00004F00: 33 30 00 1A 57 D4 17 8B 20 4B 45 59 B2 34 30 37 |30..W... KEY.407|
00004F10: 30 20 A7 20 89 20 34 30 37 30 00 23 57 58 1B 99 |0 . . 4070.#WX..|
00004F20: 22 93 22 00 3F 57 62 1B 54 54 24 B2 22 50 4C 41 |".".?Wb.TT$."PLA|
00004F30: 59 45 52 20 4B 45 59 53 22 3A 8D 37 32 30 30 00 |YER KEYS":.7200.|
00004F40: 45 57 6C 1B 99 00 6B 57 76 1B 99 20 A3 31 30 29 |EWl...kWv.. .10)|
00004F50: 3B 22 4B 20 45 20 59 22 3B A3 31 38 29 3B 22 50 |;"K E Y";.18);"P|
00004F60: 20 4C 20 41 20 59 20 45 20 52 22 00 96 57 80 1B | L A Y E R"..W..|
00004F70: 99 20 A3 39 29 3B 22 C3 C3 C3 C3 C3 C3 C3 22 3B |. .9);".......";|
00004F80: A3 31 37 29 3B 22 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |.17);"..........|
00004F90: C3 C3 C3 22 3A 99 00 A4 57 8A 1B 81 20 4F B2 30 |...":...W... O.0|
00004FA0: 20 A4 20 50 00 CA 57 94 1B 99 20 A3 31 31 29 3B | . P..W... .11);|
00004FB0: CA 28 53 24 28 4F 29 2C 33 2C 32 29 3B A3 31 38 |.(S$(O),3,2);.18|
00004FC0: 29 3B 50 4C 41 59 24 28 4F 29 00 D0 57 9E 1B 82 |);PLAY$(O)..W...|
00004FD0: 00 D8 57 A8 1B 99 3A 99 00 04 58 AA 1B 99 20 A3 |..W...:...X... .|
00004FE0: 35 29 3B 22 2E 2E 2E 20 4D 45 4D 4F 52 49 5A 45 |5);"... MEMORIZE|
00004FF0: 20 59 4F 55 52 20 4B 45 59 20 4E 4F 57 20 2E 2E | YOUR KEY NOW ..|
00005000: 2E 22 3A 99 00 3B 58 AB 1B 8B 20 50 B2 30 20 A7 |.":..;X... P.0 .|
00005010: 20 99 20 22 20 28 49 54 20 57 49 4C 4C 20 4E 4F | . " (IT WILL NO|
00005020: 54 20 43 48 41 4E 47 45 20 44 55 52 49 4E 47 20 |T CHANGE DURING |
00005030: 54 48 49 53 20 47 41 4D 45 29 22 00 74 58 AC 1B |THIS GAME)".tX..|
00005040: 8B 20 50 B3 B1 30 20 A7 20 99 20 22 28 54 48 45 |. P..0 . . "(THE|
00005050: 59 20 57 49 4C 4C 20 4E 4F 54 20 43 48 41 4E 47 |Y WILL NOT CHANG|
00005060: 45 20 44 55 52 49 4E 47 20 54 48 49 53 20 47 41 |E DURING THIS GA|
00005070: 4D 45 29 22 00 7A 58 AD 1B 99 00 A2 58 B2 1B 99 |ME)".zX.....X...|
00005080: 20 A3 37 29 3B 22 28 50 52 45 53 53 20 52 45 54 | .7);"(PRESS RET|
00005090: 55 52 4E 20 54 4F 20 43 4F 4E 54 49 4E 55 45 29 |URN TO CONTINUE)|
000050A0: 22 3B 00 C4 58 BC 1B A1 20 50 52 45 53 53 24 3A |";..X... PRESS$:|
000050B0: 8B 20 50 52 45 53 53 24 B2 22 22 20 A7 20 89 20 |. PRESS$."" . . |
000050C0: 37 31 30 30 00 CA 58 C6 1B 8E 00 FA 58 20 1C 99 |7100..X.....X ..|
000050D0: 22 93 22 3A 58 24 B2 54 54 24 3A 59 B2 30 3A 8D |".":X$.TT$:Y.0:.|
000050E0: 31 37 32 3A 81 58 B2 31 A4 38 3A 99 22 C3 C3 C3 |172:.X.1.8:."...|
000050F0: C3 C3 22 3B 3A 82 3A 99 3A 8E 00 08 59 40 1F 99 |..";:.:.:...Y@..|
00005100: 22 93 22 3B C7 28 38 29 00 42 59 54 1F 99 20 A3 |".";.(8).BYT.. .|
00005110: 39 29 3B C7 28 31 38 29 3B 22 20 20 20 20 20 DF |9);.(18);" .|
00005120: 22 3B A6 31 29 3B 22 20 20 20 22 3B A6 31 29 3B |";.1);" ";.1);|
00005130: 22 A9 20 20 20 DF 22 3B A6 31 29 3B 22 A0 A0 A0 |". .";.1);"...|
00005140: 22 3B 00 5A 59 5E 1F 99 20 A6 31 29 3B 22 20 20 |";.ZY^.. .1);" |
00005150: 22 3A 99 20 C7 28 31 38 29 3B 00 92 59 68 1F 99 |":. .(18);..Yh..|
00005160: 20 A3 31 30 29 3B 22 20 22 3B A6 33 29 3B 22 A0 | .10);" ";.3);".|
00005170: 22 3B A6 32 29 3B 22 A0 22 3B A6 32 29 3B 22 A0 |";.2);".";.2);".|
00005180: 22 3B A6 33 29 3B 22 A0 22 3B A6 32 29 3B 22 20 |";.3);".";.2);" |
00005190: 22 3B 00 B4 59 72 1F 99 20 A6 31 29 3B 22 A9 22 |";..Yr.. .1);"."|
000051A0: 3B C7 28 31 34 36 29 3B 22 A9 22 3A 99 20 C7 28 |;.(146);".":. .(|
000051B0: 31 38 29 3B 00 E5 59 7C 1F 99 20 A3 31 30 29 3B |18);..Y|.. .10);|
000051C0: 22 A0 22 3B A6 33 29 3B 22 A0 22 3B A6 32 29 3B |".";.3);".";.2);|
000051D0: 22 A0 22 3B A6 32 29 3B 22 A0 22 3B A6 36 29 3B |".";.2);".";.6);|
000051E0: 22 A0 A9 22 3B 00 FF 59 86 1F 99 20 C7 28 31 34 |"..";..Y... .(14|
000051F0: 36 29 3B 22 A9 22 3A 99 20 C7 28 31 38 29 3B 00 |6);".":. .(18);.|
00005200: 37 5A 90 1F 99 20 A3 31 30 29 3B 22 20 20 20 20 |7Z... .10);" |
00005210: 22 3B C7 28 31 34 36 29 3B 22 A9 22 3B C7 28 31 |";.(146);".";.(1|
00005220: 38 29 3B A6 32 29 3B 22 A0 22 3B A6 32 29 3B 22 |8);.2);".";.2);"|
00005230: A0 22 3B A6 36 29 3B 00 5F 5A 9A 1F 99 20 22 20 |.";.6);._Z... " |
00005240: 22 3B C7 28 31 34 36 29 3B 22 DF 22 3B C7 28 31 |";.(146);".";.(1|
00005250: 38 29 3B 22 DF 22 3A 99 20 C7 28 31 38 29 3B 00 |8);".":. .(18);.|
00005260: 93 5A A4 1F 99 20 A3 31 30 29 3B 22 A0 22 3B A6 |.Z... .10);".";.|
00005270: 36 29 3B 22 A0 22 3B A6 32 29 3B 22 A0 22 3B A6 |6);".";.2);".";.|
00005280: 33 29 3B 22 A0 22 3B A6 32 29 3B 22 A0 22 3B A6 |3);".";.2);".";.|
00005290: 31 29 3B 00 B7 5A AE 1F 99 20 C7 28 31 34 36 29 |1);..Z... .(146)|
000052A0: 3B 22 DF 22 3B C7 28 31 38 29 3B 22 DF 22 3A 99 |;".";.(18);".":.|
000052B0: 20 C7 28 31 38 29 3B 00 ED 5A B8 1F 99 20 A3 39 | .(18);..Z... .9|
000052C0: 29 3B 22 A0 A0 A0 22 3B A6 34 29 3B 22 20 20 20 |);"...";.4);" |
000052D0: 22 3B A6 31 29 3B C7 28 31 34 36 29 3B 22 DF 22 |";.1);.(146);"."|
000052E0: 3B C7 28 31 38 29 3B 22 20 20 20 22 3B 00 19 5B |;.(18);" ";..[|
000052F0: C2 1F 99 20 C7 28 31 34 36 29 3B 22 A9 22 3B C7 |... .(146);".";.|
00005300: 28 31 38 29 3B A6 31 29 3B 22 20 20 20 22 3B A6 |(18);.1);" ";.|
00005310: 31 29 3B 22 20 20 22 3A 99 00 54 5B CC 1F 99 20 |1);" ":..T[... |
00005320: C7 28 31 38 29 3B A3 35 29 3B 22 20 20 20 20 20 |.(18);.5);" |
00005330: 20 20 22 3B A6 31 29 3B 22 A0 A0 A0 22 3B A6 31 | ";.1);"...";.1|
00005340: 29 3B 22 A0 A0 A0 22 3B A6 32 29 3B 22 A9 20 20 |);"...";.2);". |
00005350: 20 DF 22 3B 00 71 5B D6 1F 99 20 A6 32 29 3B 22 | .";.q[... .2);"|
00005360: 20 20 20 20 20 20 20 22 3A 99 20 C7 28 31 38 29 | ":. .(18)|
00005370: 3B 00 A4 5B E0 1F 99 20 A3 35 29 3B 22 A0 22 3B |;..[... .5);".";|
00005380: A6 32 29 3B 22 A0 22 3B A6 32 29 3B 22 A0 22 3B |.2);".";.2);".";|
00005390: A6 32 29 3B 22 A0 22 3B A6 33 29 3B 22 A0 22 3B |.2);".";.3);".";|
000053A0: A6 33 29 3B 00 D7 5B EA 1F 99 20 22 A0 22 3B A6 |.3);..[... ".";.|
000053B0: 33 29 3B 22 A0 22 3B A6 32 29 3B 22 A0 22 3B A6 |3);".";.2);".";.|
000053C0: 32 29 3B 22 A0 22 3B A6 32 29 3B 22 A0 22 3A 99 |2);".";.2);".":.|
000053D0: 20 C7 28 31 38 29 3B 00 0E 5C F4 1F 99 20 A3 38 | .(18);..\... .8|
000053E0: 29 3B 22 A0 22 3B A6 35 29 3B 22 20 20 20 20 20 |);".";.5);" |
000053F0: 22 3B A6 33 29 3B 22 20 20 20 20 20 22 3B A6 35 |";.3);" ";.5|
00005400: 29 3B 22 A0 22 3A 99 20 C7 28 31 38 29 3B 00 44 |);".":. .(18);.D|
00005410: 5C FE 1F 99 20 A3 38 29 3B 22 A0 22 3B A6 35 29 |\... .8);".";.5)|
00005420: 3B 22 A0 22 3B A6 33 29 3B 22 A0 22 3B A6 33 29 |;".";.3);".";.3)|
00005430: 3B 22 A0 22 3B A6 33 29 3B 22 A0 22 3B A6 35 29 |;".";.3);".";.5)|
00005440: 3B 22 A0 22 00 79 5C 08 20 99 20 C7 28 31 38 29 |;".".y\. . .(18)|
00005450: 3B A3 38 29 3B 22 A0 22 3B A6 35 29 3B 22 A0 22 |;.8);".";.5);"."|
00005460: 3B A6 33 29 3B 22 A0 22 3B A6 33 29 3B 22 A0 22 |;.3);".";.3);"."|
00005470: 3B A6 33 29 3B 22 A0 22 3B 00 90 5C 12 20 99 20 |;.3);".";..\. . |
00005480: A6 35 29 3B 22 A0 22 3A 99 20 C7 28 31 38 29 3B |.5);".":. .(18);|
00005490: 00 C9 5C 1C 20 99 20 A3 37 29 3B 22 A0 A0 A0 22 |..\. . .7);"..."|
000054A0: 3B A6 33 29 3B 22 A0 A0 A0 22 3B A6 31 29 3B 22 |;.3);"...";.1);"|
000054B0: A0 A0 A0 22 3B A6 31 29 3B 22 A0 A0 A0 22 3B A6 |...";.1);"...";.|
000054C0: 31 29 3B 22 A0 A0 A0 22 3B 00 DB 5C 26 20 99 20 |1);"...";..\& . |
000054D0: A6 33 29 3B 22 A0 A0 A0 22 3A 99 00 14 5D 30 20 |.3);"...":...]0 |
000054E0: 99 20 C7 28 31 38 29 3B A3 34 29 3B 22 20 20 20 |. .(18);.4);" |
000054F0: 20 20 20 20 22 3B A6 31 29 3B 22 20 20 20 22 3B | ";.1);" ";|
00005500: A6 31 29 3B 22 A0 A0 A0 22 3B A6 31 29 3B 22 A0 |.1);"...";.1);".|
00005510: A0 DF 22 3B 00 31 5D 3A 20 99 20 A6 33 29 3B 22 |..";.1]: . .3);"|
00005520: A0 A0 A0 22 3B A6 31 29 3B 22 20 20 20 20 20 20 |...";.1);" |
00005530: 22 00 66 5D 44 20 99 20 C7 28 31 38 29 3B A3 34 |".f]D . .(18);.4|
00005540: 29 3B 22 A0 22 3B A6 32 29 3B 22 A0 22 3B A6 32 |);".";.2);".";.2|
00005550: 29 3B 22 A0 22 3B A6 32 29 3B 22 A0 22 3B A6 33 |);".";.2);".";.3|
00005560: 29 3B 22 A0 22 3B 00 9E 5D 4E 20 99 20 A6 33 29 |);".";..]N . .3)|
00005570: 3B 22 A0 22 3B C7 28 31 34 36 29 3B 22 DF 22 3B |;".";.(146);".";|
00005580: C7 28 31 38 29 3B 22 DF 22 3B A6 33 29 3B 22 A0 |.(18);".";.3);".|
00005590: 22 3B A6 33 29 3B 22 A0 22 3B A6 33 29 3B 00 B1 |";.3);".";.3);..|
000055A0: 5D 58 20 99 20 22 A0 22 3A 99 20 C7 28 31 38 29 |]X . ".":. .(18)|
000055B0: 3B 00 E3 5D 62 20 99 20 A3 37 29 3B 22 A0 22 3B |;..]b . .7);".";|
000055C0: A6 35 29 3B 22 A0 22 3B A6 33 29 3B 22 A0 22 3B |.5);".";.3);".";|
000055D0: A6 33 29 3B 22 20 22 3B A6 31 29 3B C7 28 31 34 |.3);" ";.1);.(14|
000055E0: 36 29 3B 00 12 5E 6C 20 99 20 22 DF 22 3B C7 28 |6);..^l . ".";.(|
000055F0: 31 38 29 3B 22 DF 22 3B A6 32 29 3B 22 A0 22 3B |18);".";.2);".";|
00005600: A6 33 29 3B 22 20 20 20 22 3A 99 20 C7 28 31 38 |.3);" ":. .(18|
00005610: 29 3B 00 44 5E 76 20 99 20 A3 37 29 3B 22 A0 22 |);.D^v . .7);"."|
00005620: 3B A6 35 29 3B 22 A0 22 3B A6 33 29 3B 22 A0 22 |;.5);".";.3);"."|
00005630: 3B A6 33 29 3B 22 20 22 3B A6 32 29 3B C7 28 31 |;.3);" ";.2);.(1|
00005640: 34 36 29 3B 00 71 5E 80 20 99 20 22 DF 22 3B C7 |46);.q^. . ".";.|
00005650: 28 31 38 29 3B 22 DF 22 3B A6 31 29 3B 22 A0 22 |(18);".";.1);"."|
00005660: 3B A6 33 29 3B 22 20 22 3A 99 20 C7 28 31 38 29 |;.3);" ":. .(18)|
00005670: 3B 00 A3 5E 8A 20 99 20 A3 37 29 3B 22 A0 22 3B |;..^. . .7);".";|
00005680: A6 35 29 3B 22 A0 22 3B A6 33 29 3B 22 A0 22 3B |.5);".";.3);".";|
00005690: A6 33 29 3B 22 20 22 3B A6 33 29 3B C7 28 31 34 |.3);" ";.3);.(14|
000056A0: 36 29 3B 00 D1 5E 94 20 99 20 22 DF 22 3B C7 28 |6);..^. . ".";.(|
000056B0: 31 38 29 3B 22 DF A0 22 3B A6 33 29 3B 22 20 22 |18);"..";.3);" "|
000056C0: 3B A6 33 29 3B 22 A0 22 3A 99 20 C7 28 31 38 29 |;.3);".":. .(18)|
000056D0: 3B 00 08 5F 9E 20 99 20 A3 36 29 3B 22 20 20 20 |;.._. . .6);" |
000056E0: 22 3B A6 34 29 3B C7 28 31 34 36 29 3B 22 DF 22 |";.4);.(146);"."|
000056F0: 3B C7 28 31 38 29 3B 22 A0 A0 A0 22 3B C7 28 31 |;.(18);"...";.(1|
00005700: 34 36 29 3B 22 A9 22 3B 00 15 5F A3 20 99 20 C7 |46);".";.._. . .|
00005710: 28 31 38 29 3B 00 4C 5F A8 20 99 20 A6 32 29 3B |(18);.L_. . .2);|
00005720: 22 20 20 20 22 3B A6 33 29 3B C7 28 31 34 36 29 |" ";.3);.(146)|
00005730: 3B 22 DF 22 3B C7 28 31 38 29 3B 22 20 20 22 3B |;".";.(18);" ";|
00005740: A6 31 29 3B 22 20 20 20 20 20 20 22 00 7C 5F B2 |.1);" ".|_.|
00005750: 20 99 3A 99 22 20 43 4F 50 59 52 49 47 48 54 20 | .:." COPYRIGHT |
00005760: 31 39 38 33 20 42 59 20 53 57 45 41 52 49 4E 47 |1983 BY SWEARING|
00005770: 45 4E 20 53 4F 46 54 57 41 52 45 22 00 AC 5F D0 |EN SOFTWARE".._.|
00005780: 20 99 3A 99 20 C7 28 31 38 29 3B A3 37 29 3B 22 | .:. .(18);.7);"|
00005790: 20 50 52 45 53 53 20 52 45 54 55 52 4E 20 54 4F | PRESS RETURN TO|
000057A0: 20 43 4F 4E 54 49 4E 55 45 A0 22 3B 00 BB 5F D5 | CONTINUE.";.._.|
000057B0: 20 50 52 45 53 53 24 B2 22 49 22 00 CA 5F DA 20 | PRESS$."I".._. |
000057C0: 81 20 41 B2 30 20 A4 20 37 34 00 F4 5F E4 20 A1 |. A.0 . 74.._. .|
000057D0: 20 50 52 45 53 53 24 3A 8B 20 50 52 45 53 53 24 | PRESS$:. PRESS$|
000057E0: B2 C7 28 31 33 29 20 A7 20 41 B2 37 34 3A 89 20 |..(13) . A.74:. |
000057F0: 38 35 30 30 00 FE 5F E9 20 87 20 43 2C 42 00 0C |8500.._. . C,B..|
00005800: 60 EE 20 4B B2 48 28 43 AB 31 32 29 00 1A 60 F8 |`. K.H(C.12)..`.|
00005810: 20 4D B2 4C 28 43 AB 31 32 29 00 25 60 02 21 44 | M.L(C.12).%`.!D|
00005820: B2 42 AC 38 30 00 3E 60 0C 21 97 20 48 46 2C 4B |.B.80.>`.!. HF,K|
00005830: 3A 97 20 4C 46 2C 4D 3A 97 20 57 2C 36 35 00 54 |:. LF,M:. W,65.T|
00005840: 60 16 21 81 20 54 B2 31 20 A4 20 44 3A 82 3A 97 |`.!. T.1 . D:.:.|
00005850: 20 57 2C 30 00 5C 60 34 21 82 20 41 00 78 60 3E | W,0.\`4!. A.x`>|
00005860: 21 8B 20 50 52 45 53 53 24 B2 C7 28 31 33 29 20 |!. PRESS$..(13) |
00005870: A7 20 89 20 39 30 30 30 00 9E 60 43 21 A1 20 50 |. . 9000..`C!. P|
00005880: 52 45 53 53 24 3A 8B 20 50 52 45 53 53 24 B3 B1 |RESS$:. PRESS$..|
00005890: C7 28 31 33 29 20 A7 20 89 20 38 35 31 35 00 A4 |.(13) . . 8515..|
000058A0: 60 28 23 8E 00 DC 60 1C 25 97 33 36 30 2C 31 36 |`(#...`.%.360,16|
000058B0: 32 3A 97 33 36 32 2C 31 36 30 3A 97 33 36 34 2C |2:.362,160:.364,|
000058C0: 32 34 3A 97 33 36 35 2C 37 36 3A 97 33 36 36 2C |24:.365,76:.366,|
000058D0: 32 34 30 3A 97 33 36 37 2C 32 35 35 00 E2 60 26 |240:.367,255..`&|
000058E0: 25 8E 00 00 00 |%.... |
..(.... *******************************
.O.... * *.
V.... * COPYRIGHT 1982 BY: *..
.... * *.D.
... * RANDALL P. SWEARINGEN *....
.. * 6312 W. LITTLE YORK *.....
. * SUITE 197 *.9....
* HOUSTON, TEXAS 77088 *.`....
* (713) 937-6410 *...... *
*...... *
COPYING, DUPLICATING, *.R.... *
SELLING, OR OTHERWISE *...... * DI
STRIBUTING THIS *...... * PROD
UCT IS A VIOLATION *.D.... * OF THE
LAW. *.J.... *
*...... ***************
****************...... 53280,6:. 53281,6
:. G(5);:.808,B(808).12...... 51,0:. 52,
144:. 55,0:. 56,144:....... I.54272 . 54
296:. I,0:.:.54281,15.U...V.54296:W.5427
6:A.54277:HF.54273:LF.54272:S.54278:PH.5
4275:PL.54274......V,15:.A,9:.S,0:.PH,15
:. PL,15:.A.8,9:.S.8,0:.PH.8,15...F.. SC
(10),CVERT%(5),FLAGHIGH(19)...P.. HIGH(1
9),NUM$(10),REP%(50),BID%(10),S$(9).(.Q.
S$(0).". F1":S$(1)."Q Q ":S$(2)."N N ":S
$(3)."7 7 ":S$(4)."/ / ".9.R.S$(5)."Z Z
".Q.S.S$(6).". F7":S$(7)."- - ":S$(8)."G
G ":S$(9)."L L "...Z.. TUNENAME$(50),HI
GHNAME$(19),A$(50),H(88),L(88).C.D.. I.1
. 72:. H(I),L(I):....E.. 4,48,4,112,4,1
80,4,251,5,71,5,152,5,237,6,71,6,167,7,1
2,7,119,7,233.X.F.. 8,97,8,225,9,104,9,2
47,10,143,11,48,11,218,12,143,13,78,14,2
4,14,239.E.G.. 15,210...H.. 16,195,17,19
5,18,209,19,239,21,31,22,96,23,181,25,30
,26,156,28,49.A.I.. 29,223,31,165...J..
33,135,35,134,37,162,39,223,42,62,44,193
,47,107,50,60,53,57,56,99...K.. 59,190,6
3,75.H.L.. 67,15,71,12,75,69,79,191,84,1
25,89,131,94,214,100,121,106,115,112,199
.~.M.. 119,124,126,151.H.N.. 134,30,142,
24,150,139,159,126,168,250,179,6,189,172
,200,243,212,230...O.. 225,143,238,248,2
53,46.,.T.. 41,1,49,2,41,1,49,2,41,1,49,
6,49,1,51,1,52,1,53,1,49,1,51,1,53,2.S.U
.. 48,1,51,2,49,6,39,1,40,1,41,1,49,2,41
,1,49,2,41,1,49,7,46,1,44,1...V.. 43,1,4
6,1,49,1,53,2,51,1,49,1,46,1,48,6,39,1,4
0,1,41,1,49,2,41,1...W.. 49,2,41,1,49,6,
49,1,51,1,52,1,53,1,49,1,51,1,53,2,48,1,
51,2,49,6.H.X.. 49,1,51,1,53,1,49,1,51,1
,53,2,49,1,51,1,49,1,53,1,49,1,51,1,53,2
...Y.. 49,1,51,1,49,1,53,1,49,1,51,1,53,
2,48,1,51,1,49,6......8000:.9500:.200...
..I1$." ":I2$."^":I3$." ":.198,0.C....19
8,0.....TME.15:T.0:BK$.G(157):BK$." ".BK
$.BK$." ".BK$:SUM.166.32:CRS.166:IN$."".
4....A$:T.T.1:.T.TME.T.0:CRS.SUM.CRS.S..
..G(CRS);G(157);:.A$."".144.U....(A$.I1$
.A$.I2$).A$..I3$ .154......C(IN$).MX.144
......A$;:IN$.IN$.A$:.144......A$..G(20)
.162.D....IN$."".144......BK$;:.C(IN$).1
.IN$."":.144... .IN$.H(IN$,C(IN$).1):.14
4......A$..G(13).164.$....H(BK$,2):..7..
..A$..G(95).144.E...IN$."_":..F...I1$."A
":I2$."Z":I3$."A":.141.....I1$."Y":I2$."
Y":I3$."N":MX.1:.141.....I1$."0":I2$."9"
:I3$."9":.141.F....361,Y:.363,X:.360:...
...X.20.C(X$).2:.170:.X$:......MX.1:.168
:PRESS$.IN$:..3.H.BLANKS$."
".@.R.. 3,8,15
.J.... ".".].... D.1 . 12:.:....... .5);
G(18);" PLEASE INSERT TUNE DISKETTE "...
... D.14 . 20:.:..G.... .6);"(PRESS RETU
RN TO CONTINUE)...... PRESS$:. PRESS$.""
. . 265.....ADDL$."Y":R1.1...... 1,8,2,
"0:CATEGORIES,S,R".I....3,A$,B$,C$,D$:.
E(A$)..0 . KEY.220:. 6000.X.... C.1 . 10
.Q....1,C$(C),CTGNAME$(C)...... C$(C)."E
ND" . . 281...... C(C$(C)).MAXC . MAXC.C
(C$(C))...... C..... 1.R...LASTC$.C$(CT
G)...".. "."...,.TT$."CATEGORY SELECTION
":.7200...6..:....@.." ";.
?.A.. G(18);"CATEGORIES";G(146).I.J..:.:
..[.T.H.(40.MAXC).2.K.^.. I.1 . C.1.~.C.
I$.J(D(I),2,1)...H.. .H);I$;") ";C$(I)..
.R.. I...|..:..M.... .8);"ENTER SELECTIO
N HERE ===>";.....MX.2:.168:PRESS$.IN$:.
IN$."_".290.....CTG.E(PRESS$):..%.... CT
G.0 . CTG . C . . 450.G.... .1);G(18);"P
LEASE ENTER A NUMBER BETWEEN 1 AND ";C.1
;G(146)...... I.1 . 4:. G(145);:.......
HF,75:. LF,69:. W,17...... I.1 . 100:.:.
W,0.E.... I.1 . 50:..O.... 390...B.. G(
145);G(145);G(18);.33);J(D(CTG),2,1);G(1
46)...L.CTGN$.CTGNAME$(CTG).8.V.. C$(CTG
).LASTC$ . . 700._.... FIRST.0 . LASTC$.
C$(CTG):FIRST.1.W.... BLANKS$:. BLANKS$.
....:.:.:. .11);"ONE MOMENT PLEASE ..."
.....X.H.1:Y.8.CTG:.170:X$.C$(CTG).BLANK
S$:."."CTG".) ";H(X$,MAXC.1).....FILE$."
@0:".CTGN$.".TUNEFILE,S,R"...... 1,8,2,F
ILE$.K....3,A$,B$,C$,D$:. E(A$)..0 . KEY
.510:. 6000.Z.... I.0 . 50.N....1,TUNENA
ME$(I)...&.. TUNENAME$(I) ."END" . MS.I.
..0.. TUNENAME$(I) ."END" . I.50...:....
.D. 1...N.FILE$."@0:".CTGN$.".NOTEFILE,
S,R"...X.. 1,8,2,FILE$.%.B..3,A$,B$,C$,D
$:. E(A$)..0 . KEY.600:. 6000.4.L.. S.0
. 24.A.V..1,A$(S).G.....O... 1.U....._.
.. "."...*.TT$."GAME VARIATION SELECTIO
N":.7200...4..:....>.. .14);G(18);"
".R.H.. .14);G(18);" QUESTION #1
"...R.. .14);G(18);" ";G(14
6)...\..:../.F.. .4);"SELECT PENALTY FOR
WRONG ANSWER:".5.P...O.Z.. .8);"1) NO P
ENALTY".U.....Y.... .8);"2) 1/4 OF POINT
VALUE":....... .8);"3) 1/2 OF POINT VAL
UE":..M.... .8);"4) ALL OF POINT VALUE":
.:.:PRESS$.""...J...5);"SELECT PENALTY O
PTION HERE ===>";:.175...T.O%.E(PRESS$).
..Y...E.Z.W.54276:LF.54272:HF.54273:BLAN
KS$."
"...... PRESS$."B" . PRESS$."_" . LA
STC$.C$(CTG):. 290...... O%.0 . O%.5 . .
1030...... G(18);"ENTER A NUMBER BETWEE
N 1 AND 4,INCLUSIVE";G(146);...... I.1.3
:. G(145);:..&....HF,75:. LF,69:. W,17.>
.... I.1 . 100:.:. W,0.O.... I.1 . 50:..
Y.... 970.P.... O%.1 . PENALTY.0...... O
%.2 . PENALTY..25...... O%.3 . PENALTY..
5...$.. O%.4 . PENALTY.1.A.8.."."...B.TT
$."GAME VARIATION SELECTION":.7200...L..
:....V.. .14);G(18);" ".4.`.
. .14);G(18);" QUESTION #2 ".U.J.. .14);
G(18);" ".].T..:....~.. .5);
"DO YOU WANT GUESSED TUNES TO BE".......
..... .7);"USED AGAIN LATER? (Y OR N)"..
....:.:....... .8);"ENTER ANSWER HERE ==
=>";:MX.1:.167:PRESS$.IN$.......%.... PR
ESS$."B" . PRESS$."_" . . 800.P.... PRES
S$."Y" . PRESS$."Y" . REP$."YES".Y.... P
RESS$."N" . PRESS$."N". REP$."NO"......
PRESS$."Y" . PRESS$."Y" . PRESS$."N" . P
RESS$."N" . . 1230...D.. .5);G(18);" P
LEASE ENTER 'Y' OR 'N' "...E.. I.1.3:.
G(145);:....F..HF,75:. LF,69:. W,17.4.G
.. I.1 . 100:.:. W,0.E.H.. I.1 . 50:..P.
I.. 1180.Y.N.."."...X.TT$."GAME VARIATIO
N SELECTION":.7200......:....... .14);G(
18);" ".L.... .14);G(18);" Q
UESTION #3 "...... .14);G(18);"
"......:..! ... .5);"DO YOU WANT 'NO
NE OF THE ABOVE'".M ...:. .6);"TO BE A T
UNE CHOICE (Y OR N)?".A (..:.:.:PRESS$."
".. ).. .8);"ENTER ANSWER HERE ===>";:MX
.1:.167:PRESS$.IN$.A 2.. PRESS$."B" . PR
ESS$."_" . . 1080.. <.. PRESS$."Y" . PRE
SS$."Y" . NA$."YES"..!F.. PRESS$."N" . P
RESS$."N" . NA$."NO".T!P.. PRESS$."Y" .
PRESS$."Y" . PRESS$."N". PRESS$."N" . .
1390.Z!Z....!D.. .5);G(18);" PLEASE EN
TER 'Y' OR 'N' "..!E.. I.1.3:. G(145);
:...!F..HF,75:. LF,69:. W,17.T!G.. I.1 .
100:.:. W,0..!H.. I.1 . 50:...!I.E.1:.
1321..!N.R$.V$.."S.. E.0 . .:..;"X.. E.1
. E.0:. G(145):. BLANKS$:. BLANKS$.G"..
. O%.1 . REP$."YES" . NA$."NO" . V$."1".
."... O%.1 . REP$."NO" . NA$."NO" . V$."
2".."... O%.2 . REP$."YES" . NA$."NO" .
V$."3".." .. O%.2 . REP$."NO" . NA$."NO"
. V$."4"..#... O%.3 . REP$."YES" . NA$.
"NO" . V$."5".@#... O%.3 . REP$."NO" . N
A$."NO" . V$."6".L#... O%.4 . REP$."YES"
. NA$."NO" . V$."7"..#H.. O%.4 . REP$."
NO" . NA$."NO" . V$."8".D#R.. O%.1 . REP
$."YES" . NA$."YES" . V$."9"..#... O%.1
. REP$."NO" . NA$."YES" . V$."10"..$...
O%.2 . REP$."YES" . NA$."YES" . V$."11".
L$... O%.2 . REP$."NO" . NA$."YES" . V$.
"12".Z$... O%.3 . REP$."YES" . NA$."YES"
. V$."13"..$... O%.3 . REP$."NO" . NA$.
"YES" . V$."14".U$... O%.4 . REP$."YES"
. NA$."YES" . V$."15"..%... O%.4 . REP$.
"NO" . NA$."YES" . V$."16"..%".P%.E(V$).
C%,.. .1);"YOU WILL BE PLAYING GAME VARI
ATION #";V$.I%@....%J.. V$..R$ . LASTC$.
.C$(CTG) . . .11);"ONE MOMENT PLEASE ...
"..%^.. V$..R$ . LASTC$..C$(CTG) . . 168
0:. G(145);.U%D..HF,75:. LF,69:. W,17..%
E.. I.1 . 100:.:. W,0..%F.. I.1 . 50:..%
&H.. .7);"(PRESS RETURN TO CONTINUE)".G&
R.. PRESS$:. PRESS$."" . . 1650.N&|.. PR
ESS$."B" . PRESS$."_" . . 1230.Y&... 181
0..&..Z.10.(E(V$).1).1..&..F$.CTGN$.".HI
GHSCORE"..&... 1,8,2,F$..&...3,A$,B$,C$,
D$:. E(A$)..0 . KEY.1230:R$."":V$."":. 6
000..'... X . 0 . 9..'...3,"P"G(2)G(Z)G(
0)G(1).+'...1,A$,B$.M'..HIGHNAME$(X).A$:
HIGH(X).E(B$).W'..Z.Z.1._'V.. X.Q'..HIGH
9.HIGH(9).Y'.. 1..'..T.9..'..CNT.T..'..
...'..."."..'..TT$."PLAYER INFORMATION":
.7200.N'&..:P$."":MX.2..(:.." ENTER NUMB
ER OF PLAYERS HERE ===> ..";:.168:.IN$.
"_".1230. (D..:P%.E(IN$).<(N.. P%.0 . P%
.11 . . 1900.T(X.. G(18);.1);"ENTER A NU
MBER FROM 1 TO 10,INCLUSIVE"..(C.. I.1.3
:. G(145);:...(D..HF,75:. LF,69:. W,17..
(E.. I.1 . 100:.:. W,0.O(F.. I.1 . 50:..
.(G.E.1:. 1850..(L.. E.0 . ...)M.. E.1 .
E.0:. G(146);:. BLANKS$:. BLANKS$.#)Q.P
.P%.-)V.P.P.1.5)Z.Z.0.C){.. G.Z . P.[)|.
. BLANKS$:. G(145);.N)..X.1:Y.7.G:.170..
)... G..9 . ." PLAYER #";J(D(G.1),2,1);"
NAME".M)... G.9 . ." PLAYER #";J(D(G.1)
,2,2);" NAME"..)..X.18:Y.7.G:.170..)..MX
.20:.140:PLAY$(G).IN$./*... G.0 . (PLAY$
(G)."B" . PLAY$(G)."_") . .1810.Z*... PL
AY$(G)."B" . PLAY$(G)."_" . . 1947.E*...
1950..*..X.1:Y.6.G:.170:.BLANKS$;BLANKS
$;BLANKS$..*..G.G.1:PLAY$(G)."":. 1920..
*... C(PLAY$(G)).0 . C(PLAY$(G)).21 . .
2030..*... G(18);.(+... PLAY$(G)."" . .
.2);" PLEASE ENTER A NAME "
.F+... C(ANS$).20 . . .2);"NAME MUST BE
20 CHARACTERS OR LESS".~+... I.1.2:. G(1
45);:...+...HF,75:. LF,69:. W,17..+... I
.1 . 100:.:. W,0.A+... ..1 . 50:..L+...
1920.T+... G..+... BLANKS$:. BLANKS$..,.
.PRESS$."":. .2);.<,..." PLAY 'STOP THE
MUSIC' (Y OR N) ?";:.167:PRESS$.IN$.A,.
.. PRESS$."B" . PRESS$."_" . 2100..,...
PRESS$."Y" . PRESS$."Y" . . 2120.., .. P
RESS$."N" . PRESS$."N". . 2140..,".. G(1
8);..,%.. .7);" PLEASE ENTER 'Y' OR 'N'
"..,&.. D.1.2:. G(145);:...-'..HF,75:. L
F,69:. W,17.+-(.. D.1 . 100:.:. W,0.<-).
. D.1 . 50:..G-*.. 2045.D-4.. "..";BLANK
S$:. BLANKS$..-6.. T.1 . 5:. G(145);:.:Z
.P:. 1915..-H.STM$."Y":. 2190..-\.STM$."
N":. 2190.I-... BLANKS$:. BLANKS$..-...
.7);"(PRESS RETURN TO CONTINUE)"...... P
RESS$:. PRESS$."" . . 2205.M.... PRESS$.
."B" . PRESS$.."_" . STM$."Y" . . 7000:.
2220.V. .. PRESS$.."B" . PRESS$.."_" .
. 2220...... G(145);BLANKS$...... T.1 .
4:. G(145);:.:. 2045...... ".".G...S..(.
(1).MS)...... REP$."YES" . . 2280...J..
REP%(S).1 . . 2230../T.REP%(S).1. /..TUN
ECNT%.TUNECNT%.1.1/..PT..(.(1).5).=/..PT
.S.PT.O/... PT.0 . PT.0.K/... PT.(MS.5)
. PT.(MS.5)../... STM$.."Y" . . 2320../.
.. D.0 . 9:Z$.J(S$(D),1,1)."0".J(S$(D),3
,2):S$(D).Z$:..G/..CO.0.R/... 2550../...
"."../..TT$."BID INFORMATION":.7200..0$.
.:..*0... .7);"P L A Y E R B I
D".S08.. .6);"CCCCCCCCCCCCC CCCCC
CC".Y0B..._0L...G0V.Z.0.U0`.. I.Z . P..0
~.X.1:Y.8.I:.170:.BLANKS$:X.7:.170.M0...
PLAY$(I);.29);" ";:. G(145):X.29:Y.8.I
:.170..0..MX.2:.168:P$.IN$..1... (P$."B"
. P$."_") . I.0 . . 2490.11... (P$."B"
. P$."_") . I..0 . . 2462.<1... 2470.[1.
.. G(145);BLANKS$:. BLANKS$.U1... T.1 .
3:. G(145);:...1 .I.I.1:. 2430..1..P%.E(
P$):. P%.1 . P%.25 . . 2490.A1..BID%(I).
P%:. 2520..1..X.1:Y.9.I:.170:. G(18);..2
D.. "ENTER NUMBER BETWEEN 1 AND 25,INCLU
SIVE".%2E.. T.1.2:. G(145);:..?2F..HF,75
:. LF,69:. W,17.W2G.. T.1 . 100:.:. W,0.
H2H.. T.1 . 50:..S2I.. 2430.{2X.. I..2..
. BLANKS$:. .7);"(PRESS RETURN TO CONTIN
UE)".N2... PRESS$:. PRESS$."" . . 2531..
2... PRESS$.."B" . PRESS$.."_". . 2550..
3... G(145);..3... BLANKS$:. BLANKS$.63.
.. I.1 . 4:. G(145);:..E3..Z.P:. 2400.X3
... P.0 . . 2620.H3... I.0 . P.1.Z3... J
.(I.1) . P..3... SC(J).SC(I) . . 5000..3
... J..3... I..3... STM$."Y" . . 2630.M3
... I.0 . P.1..3... J.(I.1) . P..3... BI
D%(J).BID%(I) . . 5000..4.....4(.. J..42
.. I..4<...#4F..".".C4P.TT$."PICK THAT T
UNE":. 7200.P4Z..:. .5);.4D.. "HERE ARE
THE 5 POSSIBILITIES:":XL.0:N.0..4N.. M.
PT . (PT.4):N.N.1.D4X.. NA$."NO" . N..5
. ML.C(TUNENAME$(M))..4... NA$."YES" . N
.5 . ML.17..4... ML.XL . XL.ML..4... M.*
5 .H.((40.XL.3).2).1:N.0:.:. M.PT . (PT.
4).@5..N.N.1:CVERT%(N).M.S5..N$.J(D(N),2
,1)..5... NA$."NO" . N..5 . . .H.1);N$;"
) ";.H.2);TUNENAME$(M)..5... NA$."YES" .
N.5 . . .H.1);N$;") ";..5C.. NA$."YES"
. N.5 . . .H.2);"NONE OF THE ABOVE"..5H.
. M..5R..:...6.....6... C.0 . P.$6... ST
M$.."Y". I.C.:6... STM$."Y" . I.CO.T6...
".":. T.1 . 11:."":..P6... T.12 . 22:. B
LANKS$:...6...".":. T.1 . 11:."":...6...
STM$."Y" . . .11);"YOU HAVE 25 NOTES":.
2840.Y6..H.(40.C(PLAY$(I)).17).2..7...
.H);PLAY$(I);" YOU HAVE";BID%(I);"NOTE";
."7... BID%(I)..1 . . "S";.(7....97..CHO
ICE$."NO".O7".BID%(I).BID%(I).1.M7,.. I.
0 . STM$."Y" . . 2980..76.. BID%(I).BID%
(I.1) . . 2980..7@....7J.CHOICE$."YES".Q
7T.. .5);"DO YOU WANT TO GUESS NOW FOR A
"..7^.SBID%.BID%(I):PRESS$."".,8H.. .3);
260.((BID%(I.1).1).10);"POINT POWER PLAY
? (Y OR N)";.@8M..167:PRESS$.IN$.G8R.. P
RESS$."N" . PRESS$."N" . . 2980. 8|.. PR
ESS$."Y" . PRESS$."Y" . BID%(I).BID%(I.1
):. 3060..8... G(18);..8..." PLEA
SE ENTER 'Y' OR 'N' "..8... T.1.2
:. G(145);:...9...HF,75:. LF,69:. W,17.&
9... T.1 . 100:.:. W,0.79... T.1 . 50:..
B9... 2920.P9... BLANKS$..9... CHOICE$."
YES" . . .7);"(PRESS RETURN TO CONTINUE)
".H9... CHOICE$."NO" . . .3);"(PRESS RET
URN TO HEAR YOUR NOTES)"..9B.. PRESS$:.
PRESS$."" . . 3010.$:L.. (PRESS$."B" .
PRESS$."_") . CHOICE$."YES" . . 3022./:M
.. 3030.Q:N.. G(145);:. BLANKS$:. BLANKS
$.K:O.. T.1 . 4:. G(145);:..V:P.. 2920..
:V.. 5100..:W.. STM$.."Y" . J..0 . . 304
0.L:Y.. Q.0 . P:. J(S$(Q),2,1)."0" . I.Q
:Q.P.T:Z.. Q..:... T.1 . P:. PRESS$:...:
..CHOICE$."NO"..;... BLANKS$.1;..H.(42.(
C(J(PLAY$(I),1,9)).30)).2.D;... .H.1);J(
PLAY$(I),1,9);" PICK THAT TUNE FOR";..;.
.. 260.((BID%(I).1).10);"POINTS":...;..P
$.""..;..X.1:Y.20:.170..;..." ENTER
YOUR CHOICE HERE ===>";:MX.1:.168:P$.IN$
:P%.E(P$)..;...IN$..""...)<... (P$."B" .
P$."_") . CHOICE$."YES" . . 3102.4<...
3110.P<... G(145);G(145);G(145);.J<... T
.1 . 4:. BLANKS$:...< .. T.1 . 6:. G(145
);:...<!.BID%(I).SBID%:. 2920..<&.. P%.1
. P%.5 . . 3140.F<0.TUNENO.P%.Q<:.. 318
0..<D.. G(18);..=N..: ."REPLY MUST BE BE
TWEEN 1 AND 5,INCLUSIVE";G(146)./=X.. T.
1.2:. G(145);:..I=Y..HF,75:. LF,69:. W,1
7.A=Z.. T.1 . 100:.:. W,0.R=[.. T.1 . 50
:..}=\.. 3090..=L.. CVERT%(TUNENO)..S .
. 3540.E=V.SC(I).SC(I).(260.((BID%(I).1)
.10))..=...".":. T.1 . 11:."":...=... T.
12 . 22:. BLANKS$:...>...".":. T.1 . 11:
."":...>...:.:..K>..H.(40.(C(TUNENAME$(C
VERT%(TUNENO))))).2.{>... .12);"THAT IS
CORRECT !!!":.:. .H);G(18);..>... TUNENA
ME$(CVERT%(TUNENO)):...>... I.0 . P.1..>
... J.(I.1) . P.Z>... SC(J).SC(I) . . 50
00..>F....>P.. J..>Z.. I..?... .5);"(PRE
SS (S)CORES OR (C)ONTINUE)".=?... PRESS$
:. PRESS$."" . . 3310.D?... PRESS$."C" .
PRESS$."C" . . 3520..?... PRESS$."S" .
PRESS$."S" . . 3340..?... " ";.K?... G(1
8);" PLEASE PRESS 'S' OR 'C'
".Y?... G(145);..?...HF,75:. LF,69:. W
,17..@... I.1 . 100:.:. W,0..@... I.1 .
50:..'@... 3310.1@... ".".Q@..TT$."CURRE
NT SCORES":. 7200.[@ ..:.:...@*.. .5);"P
L A Y E R";.24);"S C O R E"..@4.. .4);"
CCCCCCCCCCCCC";.23);"CCCCCCCCCCC"..@>...
.@H...K@R.. J.0 . P..@\.. .5);PLAY$(J);.
25);SC(J)..@F.. J..@P..:..&AZ.. .3);"(PR
ESS (C)ONTINUE OR (E)ND GAME)".HA... PRE
SS$:. PRESS$."" . . 3460.OA... PRESS$."E
" . PRESS$."E" . . 4160..A... PRESS$."C"
. PRESS$."C" . . 3520..A... " ";G(18);.
UA..." PLEASE PRESS 'C' OR 'E'
"..A... G(146);..A... G(145);..B...H
F,75:. LF,69:. W,17.#B... T.1 . 100:.:.
W,0.4B... T.1 . 50:..?B... 3460.GB... TU
NECNT%..MS . REP$."NO" . . 4160.RBJ.. 22
30.XBT....B...".":. T.1 . 11:."":...B...
T.12 . 21:. BLANKS$:..HB...".":. T.1 .
11:."":...B..SC(I).SC(I).(260.((BID%(I).
1).10)).PENALTY.,C... STM$."Y" . S$(I).J
(S$(I),1,1)."1".J(S$(I),3,2).YC..H.(39.C
(TUNENAME$(CVERT%(TUNENO))).20).2.}C...
TUNENO.5 . NA$."YES" . . 3582..C... 3590
..C... .15);"I'M SORRY,":. .11):."'NONE
OF THE ABOVE'".XC... .14);"IS INCORRECT"
..C... TUNENO..5 . NA$.."YES" . . 3592..
D... 3600.!D... .15);"I'M SORRY,".ND...
.(38.C(TUNENAME$(CVERT%(TUNENO)))).2);..
D..."'";TUNENAME$(CVERT%(TUNENO));"'":.
.14);"IS INCORRECT"..D... SC(I).0 . SC(I
).0.WD... P..C . .:. .7);"( PRESS RETURN
TO CONTINUE )"..E$.. P..C . . PRESS$:.
PRESS$."" . . 3620..E... C..E8...GEB.. P
.0 . ."YOU WERE NOT ABLE TO PICK THAT TU
NE !!!".~EL.. P..0 . ." NOBODY WAS ABLE
TO PICK THAT TUNE !!!"..EV....E`.H.(42.(
C(TUNENAME$(S)))).2..EJ.. .14);"THE TUNE
WAS"..ET.. .H.1);G(18);TUNENAME$(S);G(1
46)..E~....E..I.0..F..BID%(I).24..F... 5
100..F.....F..REP%(S).0.7F..TUNECNT%.TUN
ECNT%.1.=FD...HFN.. 3240.LFX.. I$."Y" .
I$."Y". I$."":. 4070..F... BLANKS$:. .9)
;"ONE MOMENT PLEASE ..."..F... I.0 . 19.
.F..FLAGHIGH(I).0.AF... I.KF..T.CNT.YF..
. X.0 . P..F..HIGHNAME$(T.X.1).PLAY$(X).
.G..FLAGHIGH(T.X.1).1.#G(.HIGH(T.X.1).SC
(X).+G2.. X.7G<.T.T.P.1.IGF.. I.0 . (T.1
).[GP.. J.(I.1) . T.ZGZ.. HIGH(I).HIGH(J
) . . 4040..GD.. HIGH(I).HIGH(J) . FLAGH
IGH(I)..FLAGHIGH(J) . . 4040.EGN.HOLD.HI
GH(J).YGX.HIGH(J).HIGH(I)..G..HIGH(I).HO
LD..H..HOLDNAME$.HIGHNAME$(J).#H..HIGHNA
ME$(J).HIGHNAME$(I).>H .HIGHNAME$(I).HOL
DNAME$.WH..HOLDFLAG.FLAGHIGH(J).SH..FLAG
HIGH(J).FLAGHIGH(I)..H..FLAGHIGH(I).HOLD
FLAG..HH.. J..HR.. I..H... SC(0)..HIGH9
. . 4150.MH..Z.10.(E(V$).1).1..H... 1,8,
2,F$..I...3,A$,B$,C$,D$:. E(A$)..0 . KEY
.4070:. 6000..I... I.0 . 9.5I...3,"P"G(2
)G(Z)G(0)G(1).XI...1,HIGHNAME$(I).",".D(
HIGH(I))..I...3,A$,B$,C$,D$:. E(A$)..0 .
KEY.4070:. 6000..I..Z.Z.1..I... I..I1.
1..I6....I@....IJ.. I.0 . P.1.PIT.. J.(
I.1) . P..I^.. SC(J).SC(I) . . 5000..IH.
...IR.. J..J|.. I..J.....J... 3800..J...
.!J...".".>J..TT$."FINAL SCORES":.7200.D
J....JJ....SJB.. .3);"P L A Y E R";.23);
"S C O R E". JL.. .2);"CCCCCCCCCCCCC";.2
2);"CCCCCCCCCCC"..J.....J.....J... I.0 .
T.WJ... FLAGHIGH(I).0 . . 4380..K... I.
10 . . .3);HIGHNAME$(I);.24);HIGH(I);.32
);"TOP TEN".AK... I..10 . . .3);HIGHNAME
$(I);.24);HIGH(I).IK... I.OK&....K0.. TU
NECNT%.. MS . . .7);"I DON'T KNOW ANY MO
RE TUNES"..K:....KD.. P.0 . . 4520..KN..
SC(0).SC(1) . . 4500..KX.H.(40.(C(PLAY$
(0)).18)).2..LB.. .H);"CONGRATULATIONS "
;PLAY$(0);" !"..LL.H1.SC(0)..LV.H.(40.(C
(D(H1)).31)).2.HL... .H);"YOU ARE THE WI
NNER WITH";SC(0);"POINTS":. 4520.SL... 4
520..L... .4);"THERE IS A TIE FOR FIRST
PLACE"..L... .9);"I SUGGEST A REMATCH".D
L.....L... .5);"DO YOU WISH TO SEE THE T
OP TEN":. .5);..M..."SCORES FOR GAME ";V
$;"? (Y OR N)";.9M....5);:.167:PRESS$.IN
$.`M... PRESS$."Y" . PRESS$."Y" . . 4720
..MF.. PRESS$."N" . PRESS$."N". . 4620..
MP..:.G(18);.1);.NMZ.." PLEASE EN
TER 'Y' OR 'N' ";G(146);.TM.....M.
.. I.1.3:. G(145);:.:...N...HF,75:. LF,6
9:. W,17. N... I.1 . 100:.:. W,0.1N... I
.1 . 50:..<N... 4530.JN... BLANKS$..N...
" DO YOU WANT TO PLAY AGAIN (Y OR N)";
.5);"?";..N...167:PRESS$.IN$..N .. PRESS
$."Y" . PRESS$."Y" . . 4850..N*.. PRESS$
."N" . PRESS$."N" . . 5160..N4..:. " ";G
(18);.#O>.." PLEASE TYPE 'Y' OR 'N
' ".1OH.. G(146);.TOI.. I.1.3:.
G(145);:.:.IN$."_"...NOJ..HF,75:. LF,69:
. W,17..OK.. I.1 . 100:.:. W,0..OL.. I.1
. 50:...OF.. 4630..OP..".".JO..TT$."TOP
TEN SCORES":.7200.RO...:...O... .3);"P
L A Y E R";.25);"S C O R E".(P... .2);"C
CCCCCCCCCCCC";.24);"CCCCCCCCCCC"..P....<
P... I.0 . 9.YP... FLAGHIGH(I).0 . . 482
0.~PJ.. .3);G(18);HIGHNAME$(I);G(146);..
PO.. .26);G(18);HIGH(I);G(146):. 4830.PP
T.. .3);HIGHNAME$(I);.26);HIGH(I):. 4830
.XP... I..P...:. 4630..P... I.0 . 30..Q.
.REP%(I).0..Q... I..Q... I.0 . 9.$Q..SC(
I).0.5Q$.PLAY$(I)." ".CQ..BID%(I).0.KQ8.
. I.[QB.. I.10 . 19.PQL.HIGHNAME$(I)." "
.~QV.HIGH(I).0..Q`.. I..QJ.HIGH9.HIGH(9)
..QT.TUNECNT%.0..QU..".".DQV.CTG.0:LASTC
$."".NQ~.. 220..Q..HOLDBID%.BID%(I)..Q..
HOLDNAME$.PLAY$(I)..R..HSC.SC(I)..R..DS$
.S$(I).*R..BID%(I).BID%(J).@R..PLAY$(I).
PLAY$(J).PR..SC(I).SC(J).`R..S$(I).S$(J)
.URD.BID%(J).HOLDBID%..RN.PLAY$(J).HOLDN
AME$..RX.SC(J).HSC..R..S$(J).DS$..R....V
R... STM$."Y" . . I.0 . 9:BID%(I).24:...
S..PRESS$."":J.0:. STM$."Y" . CO.CO.1:I.
0..S... A.0 . BID%(I)./S... STM$."Y" . .
PRESS$.TS... STM$."Y" . PRESS$.."" . .
5106._S... 5119..S... PRESS$.G(137) . PR
ESS$.G(133)..S... PRESS$.G(140) . PRESS$
.G(136)..S... Q.0 . P..S... J(S$(Q),1,1)
..PRESS$ . J(S$(Q),2,1)."1" . . 5111..S.
.I.Q:J.1..S.....T... J.0 . PRESS$."":. 5
119.7T..BID%(I).A.1:A.25:. 5155.TT..X.E(
J(A$(S),A.3.1,2)).12.FT..K.H(X):M.L(X)..
T..D1.E(J(A$(S),A.3.3,1)).40..T... T.1 .
D:.:. W,0:.W.8,0: D.D1..T...HF,K:.LF,M:
. W,33:X.X.13:.HF.8,H(X):.LF.8,L(X):.W.8
,33..T#.. A..T%....T(..64738..UP.. "."..
UZ.. D.1 . 12:.:..NU{.. E(A$).74 . B$."
PLEASE CLOSE DISK DRIVE DOOR "..U|.. E(A
$).26 . B$." PLEASE REMOVE WRITE PROTECT
TAB "..U}.. E(A$).62 . B$." PLEASE INSE
RT TUNE DISKETTE "..U... .(40.C(B$)).2);
G(18);B$;G(146)..U... D.13 . 20:.:...V..
. .7);"(PRESS RETURN TO CONTINUE)".'V...
PRESS$.AV...HF,75:. LF,69:. W,17.YV...
D.1 . 100:.:. W,0.JV... D.1 . 50:..}V...
D.1 . 1000:...V... PRESS$."" . . 6050.
V... "."..V.. 1..V... KEY.220 . . 220.T
V... KEY.510 . . 510..V... KEY.600 . . 6
00..WJ.. KEY.1230 . . 1230..WT.. KEY.407
0 . . 4070.#WX..".".?WB.TT$."PLAYER KEYS
":.7200.EWL...KWV.. .10);"K E Y";.18);"P
L A Y E R"..W... .9);"CCCCCCC";.17);"CC
CCCCCCCCCCC":...W... O.0 . P.JW... .11);
J(S$(O),3,2);.18);PLAY$(O).PW....XW...:.
..X... .5);"... MEMORIZE YOUR KEY NOW ..
.":..;X... P.0 . . " (IT WILL NOT CHANGE
DURING THIS GAME)".TX... P..0 . . "(THE
Y WILL NOT CHANGE DURING THIS GAME)".ZX.
....X... .7);"(PRESS RETURN TO CONTINUE)
";.DX... PRESS$:. PRESS$."" . . 7100.JXF
....X ..".":X$.TT$:Y.0:.172:.X.1.8:."CCC
CC";:.:.:...Y@..".";G(8).BYT.. .9);G(18)
;" .";.1);" ";.1);". .";.1);"
";.ZY^.. .1);" ":. G(18);..YH.. .10);"
";.3);" ";.2);" ";.2);" ";.3);" ";.2);"
";..YR.. .1);".";G(146);".":. G(18);..Y|
.. .10);" ";.3);" ";.2);" ";.2);" ";.6);
" .";..Y... G(146);".":. G(18);.7Z... .1
0);" ";G(146);".";G(18);.2);" ";.2);"
";.6);._Z... " ";G(146);".";G(18);".":.
G(18);..Z... .10);" ";.6);" ";.2);" ";.
3);" ";.2);" ";.1);..Z... G(146);".";G(1
8);".":. G(18);..Z... .9);" ";.4);"
";.1);G(146);".";G(18);" ";..[B.. G(14
6);".";G(18);.1);" ";.1);" ":..T[L..
G(18);.5);" ";.1);" ";.1);" ";
.2);". .";.Q[V.. .2);" ":. G(18)
;..[... .5);" ";.2);" ";.2);" ";.2);" ";
.3);" ";.3);.W[... " ";.3);" ";.2);" ";.
2);" ";.2);" ":. G(18);..\... .8);" ";.5
);" ";.3);" ";.5);" ":. G(18);.D
\... .8);" ";.5);" ";.3);" ";.3);" ";.3)
;" ";.5);" ".Y\. . G(18);.8);" ";.5);" "
;.3);" ";.3);" ";.3);" ";..\. . .5);" ":
. G(18);.I\. . .7);" ";.3);" ";.1);"
";.1);" ";.1);" ";..\& . .3);"
":...]0 . G(18);.4);" ";.1);" ";
.1);" ";.1);" .";.1]: . .3);" ";.1)
;" ".F]D . G(18);.4);" ";.2);" ";.2
);" ";.2);" ";.3);" ";..]N . .3);" ";G(1
46);".";G(18);".";.3);" ";.3);" ";.3);..
]X . " ":. G(18);..]B . .7);" ";.5);" ";
.3);" ";.3);" ";.1);G(146);..^L . ".";G(
18);".";.2);" ";.3);" ":. G(18);.D^V .
.7);" ";.5);" ";.3);" ";.3);" ";.2);G(1
46);.Q^. . ".";G(18);".";.1);" ";.3);" "
:. G(18);..^. . .7);" ";.5);" ";.3);" ";
.3);" ";.3);G(146);.Q^. . ".";G(18);". "
;.3);" ";.3);" ":. G(18);.._. . .6);"
";.4);G(146);".";G(18);" ";G(146);".";
.._. . G(18);.L_. . .2);" ";.3);G(146)
;".";G(18);" ";.1);" ".|_. .:." CO
PYRIGHT 1983 BY SWEARINGEN SOFTWARE".._P
.:. G(18);.7);" PRESS RETURN TO CONTINU
E ";.._U PRESS$."I".J_Z . A.0 . 74.._. .
PRESS$:. PRESS$.G(13) . A.74:. 8500.._.
. C,B..`. K.H(C.12)..`. M.L(C.12).%`.!D
.B.80.>`.!. HF,K:. LF,M:. W,65.T`.!. T.1
. D:.:. W,0.\`4!. A.X`>!. PRESS$.G(13)
. . 9000..`C!. PRESS$:. PRESS$..G(13) .
. 8515..`(#...`.%.360,162:.362,160:.364,
24:.365,76:.366,240:.367,255..`&%....
> CLICK IMAGE PREVIEW FOR FULL MODAL