Football Director II (UK) (1988) [D & H Games] [Original].dsk
HexaDumpAscii only
000000: 45 58 54 45 4E 44 45 44 20 43 50 43 20 44 53 4B EXTENDED CPC DSK
000010: 20 46 69 6C 65 0D 0A 44 69 73 6B 2D 49 6E 66 6F File..Disk-Info
000020: 0D 0A 53 41 4D 64 69 73 6B 31 39 30 31 32 32 00 ..SAMdisk190122.
000030: 2A 01 00 00 13 13 13 13 13 13 13 13 13 13 13 13 *...............
000040: 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 ................
000050: 13 13 13 13 13 13 13 13 13 13 13 13 00 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
000110: 00 00 01 00 02 09 4E E5 00 00 41 02 00 00 00 02 ......N...A.....
000120: 00 00 46 02 00 00 00 02 00 00 42 02 00 00 00 02 ..F.......B.....
000130: 00 00 47 02 00 00 00 02 00 00 43 02 00 00 00 02 ..G.......C.....
000140: 00 00 48 02 00 00 00 02 00 00 44 02 00 00 00 02 ..H.......D.....
000150: 00 00 49 02 00 00 00 02 00 00 45 02 00 00 00 02 ..I.......E.....
000160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000200: 60 69 11 00 05 01 33 00 ED B0 0E 42 11 00 00 21 `i....3....B...!
000210: 00 03 CD 89 BE 30 06 CD 50 01 C3 03 05 CD 59 02 .....0..P.....Y.
000220: 0D 0A 46 61 69 6C 65 64 20 74 6F 20 6C 6F 61 64 ..Failed to load
000230: 20 74 68 65 20 63 6F 6E 66 69 67 75 72 61 74 69 the configurati
000240: 6F 6E 20 73 65 63 74 6F 72 0D 0A 0A 24 C3 03 05 on sector...$...
000250: CD 59 02 04 02 24 2A 00 03 11 CB ED 19 7C B5 28 .Y...$*......|.(
000260: 26 CD 59 02 0D 0A 49 6C 6C 65 67 61 6C 20 63 6F &.Y...Illegal co
000270: 6E 66 69 67 75 72 61 74 69 6F 6E 20 73 65 63 74 nfiguration sect
000280: 6F 72 0D 0A 0A 24 C9 2A 02 03 22 3D 02 2A 04 03 or...$.*.."=.*..
000290: 22 3F 02 3A 06 03 32 43 02 21 3D 02 CD 83 BE 3A "?.:..2C.!=....:
0002A0: 07 03 32 03 00 3A 08 03 CD 80 BE 3A 09 03 CD 9E ..2..:.....:....
0002B0: BE 21 0A 03 CD A1 BE 21 64 03 CD 5F 02 7E 23 B7 .!.....!d.._.~#.
0002C0: 28 0C 47 4E 23 E5 C5 CD 0F 05 C1 E1 10 F5 EB 21 (.GN#..........!
0002D0: 27 BB CD 46 02 21 2D BB CD 46 02 21 33 BB CD 46 '..F.!-..F.!3..F
0002E0: 02 EB 7E 23 B7 28 50 57 46 23 4E 23 E5 D5 C5 CD ..~#.(PWF#N#....
0002F0: 0F BB C1 D1 E1 38 3A CD 59 02 0D 0A 45 78 70 61 .....8:.Y...Expa
000300: 6E 73 69 6F 6E 20 62 75 66 66 65 72 20 66 75 6C nsion buffer ful
000310: 6C 20 6F 72 20 69 6C 6C 65 67 61 6C 20 74 6F 6B l or illegal tok
000320: 65 6E 20 73 70 65 63 69 66 69 65 64 0D 0A 0A 24 en specified...$
000330: C9 06 00 09 15 20 B1 3A 16 03 C3 A4 BE 00 00 00 ..... .:........
000340: 00 AF 1E 00 01 03 1A 4F 13 B7 C8 1A 47 13 1A 13 .......O....G...
000350: E5 CD 6C 02 E1 0D 20 F3 C9 E3 CD 5F 02 E3 C9 7E ..l... ...._...~
000360: 23 FE 24 C8 4F E5 CD 0C 05 E1 18 F3 E9 CF CF CF #.$.O...........
000370: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000380: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000390: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003A0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003B0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003C0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003D0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003E0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003F0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000600: 35 12 32 00 FA 00 0C 81 00 00 44 6A E1 44 6A E1 5.2.......Dj.Dj.
000610: 0D 00 0D 00 0D 00 00 00 00 00 00 00 00 00 00 00 ................
000620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000650: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000660: 00 00 00 00 1C 40 77 77 1C 61 40 40 1D 77 77 43 .....@ww.a@@.wwC
000670: 50 2F 4D 20 32 2E 32 20 2D 20 41 6D 73 74 72 61 P/M 2.2 - Amstra
000680: 64 20 43 6F 6E 73 75 6D 65 72 20 45 6C 65 63 74 d Consumer Elect
000690: 72 6F 6E 69 63 73 20 70 6C 63 0A 0D 24 00 00 00 ronics plc..$...
0006A0: 00 00 00 00 08 08 09 01 0A 02 07 1B 42 7F 10 08 ............B...
0006B0: 4F 0B 00 08 08 09 01 0A 02 07 1B 42 7F 10 08 4F O..........B...O
0006C0: 0B 00 08 08 09 01 0A 02 00 00 31 31 31 31 31 31 ..........111111
0006D0: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 1111111111111111
0006E0: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 1111111111111111
0006F0: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 1111111111111111
000700: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 1111111111111111
000710: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 1111111111111111
000720: 31 31 31 31 31 31 31 31 31 31 01 66 32 32 32 32 1111111111.f2222
000730: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000740: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000750: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000760: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000770: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000780: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000790: 32 32 03 1C 33 33 33 33 33 33 33 33 33 33 33 33 22..333333333333
0007A0: 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 3333333333333333
0007B0: 34 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4...............
0007C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0007D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0007E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0007F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 E5 E5 ................
000800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C00: C3 5C 9A C3 58 9A 7F 00 20 20 20 20 20 20 20 20 .\..X...
000C10: 20 20 20 20 20 20 20 20 43 4F 50 59 52 49 47 48 COPYRIGH
000C20: 54 20 28 43 29 20 31 39 37 39 2C 20 44 49 47 49 T (C) 1979, DIGI
000C30: 54 41 4C 20 52 45 53 45 41 52 43 48 20 20 00 00 TAL RESEARCH ..
000C40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000C50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000C60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000C70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000C80: 00 00 00 00 00 00 00 00 08 97 00 00 5F 0E 02 C3 ............_...
000C90: 05 00 C5 CD 8C 97 C1 C9 3E 0D CD 92 97 3E 0A C3 ........>....>..
000CA0: 92 97 3E 20 C3 92 97 C5 CD 98 97 E1 7E B7 C8 23 ..> ........~..#
000CB0: E5 CD 8C 97 E1 C3 AC 97 0E 0D C3 05 00 5F 0E 0E ............._..
000CC0: C3 05 00 CD 05 00 32 EE 9E 3C C9 0E 0F C3 C3 97 ......2..<......
000CD0: AF 32 ED 9E 11 CD 9E C3 CB 97 0E 10 C3 C3 97 0E .2..............
000CE0: 11 C3 C3 97 0E 12 C3 C3 97 11 CD 9E C3 DF 97 0E ................
000CF0: 13 C3 05 00 CD 05 00 B7 C9 0E 14 C3 F4 97 11 CD ................
000D00: 9E C3 F9 97 0E 15 C3 F4 97 0E 16 C3 C3 97 0E 17 ................
000D10: C3 05 00 1E FF 0E 20 C3 05 00 CD 13 98 87 87 87 ...... .........
000D20: 87 21 EF 9E B6 32 04 00 C9 3A EF 9E 32 04 00 C9 .!...2...:..2...
000D30: FE 61 D8 FE 7B D0 E6 5F C9 3A AB 9E B7 CA 96 98 .a..{.._.:......
000D40: 3A EF 9E B7 3E 00 C4 BD 97 11 AC 9E CD CB 97 CA :...>...........
000D50: 96 98 3A BB 9E 3D 32 CC 9E 11 AC 9E CD F9 97 C2 ..:..=2.........
000D60: 96 98 11 07 97 21 80 00 06 80 CD 42 9B 21 BA 9E .....!.....B.!..
000D70: 36 00 23 35 11 AC 9E CD DA 97 CA 96 98 3A EF 9E 6.#5.........:..
000D80: B7 C4 BD 97 21 08 97 CD AC 97 CD C2 98 CA A7 98 ....!...........
000D90: CD DD 98 C3 82 9A CD DD 98 CD 1A 98 0E 0A 11 06 ................
000DA0: 97 CD 05 00 CD 29 98 21 07 97 46 23 78 B7 CA BA .....).!..F#x...
000DB0: 98 7E CD 30 98 77 05 C3 AB 98 77 21 08 97 22 88 .~.0.w....w!..".
000DC0: 97 C9 0E 0B CD 05 00 B7 C8 0E 01 CD 05 00 B7 C9 ................
000DD0: 0E 19 C3 05 00 11 80 00 0E 1A C3 05 00 21 AB 9E .............!..
000DE0: 7E B7 C8 36 00 AF CD BD 97 11 AC 9E CD EF 97 3A ~..6...........:
000DF0: EF 9E C3 BD 97 11 28 9A 21 00 9F 06 06 1A BE C2 ......(.!.......
000E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001000: CF 9A 13 23 05 C2 FD 98 C9 CD 98 97 2A 8A 97 7E ...#........*..~
001010: FE 20 CA 22 99 B7 CA 22 99 E5 CD 8C 97 E1 23 C3 . ."..."......#.
001020: 0F 99 3E 3F CD 8C 97 CD 98 97 CD DD 98 C3 82 9A ..>?............
001030: 1A B7 C8 FE 20 DA 09 99 C8 FE 3D C8 FE 5F C8 FE .... .....=.._..
001040: 2E C8 FE 3A C8 FE 3B C8 FE 3C C8 FE 3E C8 C9 1A ...:..;..<..>...
001050: B7 C8 FE 20 C0 13 C3 4F 99 85 6F D0 24 C9 3E 00 ... ...O..o.$.>.
001060: 21 CD 9E CD 59 99 E5 E5 AF 32 F0 9E 2A 88 97 EB !...Y....2..*...
001070: CD 4F 99 EB 22 8A 97 EB E1 1A B7 CA 89 99 DE 40 .O.."..........@
001080: 47 13 1A FE 3A CA 90 99 1B 3A EF 9E 77 C3 96 99 G...:....:..w...
001090: 78 32 F0 9E 70 13 06 08 CD 30 99 CA B9 99 23 FE x2..p....0....#.
0010A0: 2A C2 A9 99 36 3F C3 AB 99 77 13 05 C2 98 99 CD *...6?...w......
0010B0: 30 99 CA C0 99 13 C3 AF 99 23 36 20 05 C2 B9 99 0........#6 ....
0010C0: 06 03 FE 2E C2 E9 99 13 CD 30 99 CA E9 99 23 FE .........0....#.
0010D0: 2A C2 D9 99 36 3F C3 DB 99 77 13 05 C2 C8 99 CD *...6?...w......
0010E0: 30 99 CA F0 99 13 C3 DF 99 23 36 20 05 C2 E9 99 0........#6 ....
0010F0: 06 03 23 36 00 05 C2 F2 99 EB 22 88 97 E1 01 0B ..#6......".....
001100: 00 23 7E FE 3F C2 09 9A 04 0D C2 01 9A 78 B7 C9 .#~.?........x..
001110: 44 49 52 20 45 52 41 20 54 59 50 45 53 41 56 45 DIR ERA TYPESAVE
001120: 52 45 4E 20 55 53 45 52 D0 16 04 00 00 00 21 10 REN USER......!.
001130: 9A 0E 00 79 FE 06 D0 11 CE 9E 06 04 1A BE C2 4F ...y...........O
001140: 9A 13 23 05 C2 3C 9A 1A FE 20 C2 54 9A 79 C9 23 ..#..<... .T.y.#
001150: 05 C2 4F 9A 0C C3 33 9A AF 32 07 97 31 AB 9E C5 ..O...3..2..1...
001160: 79 1F 1F 1F 1F E6 0F 5F CD 15 98 CD B8 97 32 AB y......_......2.
001170: 9E C1 79 E6 0F 32 EF 9E CD BD 97 3A 07 97 B7 C2 ..y..2.....:....
001180: 98 9A 31 AB 9E CD 98 97 CD D0 98 C6 41 CD 8C 97 ..1.........A...
001190: 3E 3E CD 8C 97 CD 39 98 11 80 00 CD D8 98 CD D0 >>....9.........
0011A0: 98 32 EF 9E CD 5E 99 C4 09 99 3A F0 9E B7 C2 A5 .2...^....:.....
0011B0: 9D CD 2E 9A 21 C1 9A 5F 16 00 19 19 7E 23 66 6F ....!.._....~#fo
0011C0: E9 77 9B 1F 9C 5D 9C AD 9C 10 9D 8E 9D A5 9D 21 .w...].........!
0011D0: F3 76 22 00 97 21 00 97 E9 01 DF 9A C3 A7 97 52 .v"..!.........R
0011E0: 45 41 44 20 45 52 52 4F 52 00 01 F0 9A C3 A7 97 EAD ERROR.......
0011F0: 4E 4F 20 46 49 4C 45 00 CD 5E 99 3A F0 9E B7 C2 NO FILE..^.:....
001200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
001410: 01 00 01 00 02 09 4E E5 01 00 41 02 00 00 00 02 ......N...A.....
001420: 01 00 46 02 00 00 00 02 01 00 42 02 00 00 00 02 ..F.......B.....
001430: 01 00 47 02 00 00 00 02 01 00 43 02 00 00 00 02 ..G.......C.....
001440: 01 00 48 02 00 00 00 02 01 00 44 02 00 00 00 02 ..H.......D.....
001450: 01 00 49 02 00 00 00 02 01 00 45 02 00 00 00 02 ..I.......E.....
001460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001500: 09 99 21 CE 9E 01 0B 00 7E FE 20 CA 33 9B 23 D6 ..!.....~. .3.#.
001510: 30 FE 0A D2 09 99 57 78 E6 E0 C2 09 99 78 07 07 0.....Wx.....x..
001520: 07 80 DA 09 99 80 DA 09 99 82 DA 09 99 47 0D C2 .............G..
001530: 08 9B C9 7E FE 20 C2 09 99 23 0D C2 33 9B 78 C9 ...~. ...#..3.x.
001540: 06 03 7E 12 23 13 05 C2 42 9B C9 21 80 00 81 CD ..~.#...B..!....
001550: 59 99 7E C9 AF 32 CD 9E 3A F0 9E B7 C8 3D 21 EF Y.~..2..:....=!.
001560: 9E BE C8 C3 BD 97 3A F0 9E B7 C8 3D 21 EF 9E BE ......:....=!...
001570: C8 3A EF 9E C3 BD 97 CD 5E 99 CD 54 9B 21 CE 9E .:......^..T.!..
001580: 7E FE 20 C2 8F 9B 06 0B 36 3F 23 05 C2 88 9B 1E ~. .....6?#.....
001590: 00 D5 CD E9 97 CC EA 9A CA 1B 9C 3A EE 9E 0F 0F ...........:....
0015A0: 0F E6 60 4F 3E 0A CD 4B 9B 17 DA 0F 9C D1 7B 1C ..`O>..K......{.
0015B0: D5 E6 03 F5 C2 CC 9B CD 98 97 C5 CD D0 98 C1 C6 ................
0015C0: 41 CD 92 97 3E 3A CD 92 97 C3 D4 9B CD A2 97 3E A...>:.........>
0015D0: 3A CD 92 97 CD A2 97 06 01 78 CD 4B 9B E6 7F FE :........x.K....
0015E0: 20 C2 F9 9B F1 F5 FE 03 C2 F7 9B 3E 09 CD 4B 9B ..........>..K.
0015F0: E6 7F FE 20 CA 0E 9C 3E 20 CD 92 97 04 78 FE 0C ... ...> ....x..
001600: D2 0E 9C FE 09 C2 D9 9B CD A2 97 C3 D9 9B F1 CD ................
001610: C2 98 C2 1B 9C CD E4 97 C3 98 9B D1 C3 86 9E CD ................
001620: 5E 99 FE 0B C2 42 9C 01 52 9C CD A7 97 CD 39 98 ^....B..R.....9.
001630: 21 07 97 35 C2 82 9A 23 7E FE 59 C2 82 9A 23 22 !..5...#~.Y...#"
001640: 88 97 CD 54 9B 11 CD 9E CD EF 97 3C CC EA 9A C3 ...T.......<....
001650: 86 9E 41 4C 4C 20 28 59 2F 4E 29 3F 00 CD 5E 99 ..ALL (Y/N)?..^.
001660: C2 09 99 CD 54 9B CD D0 97 CA A7 9C CD 98 97 21 ....T..........!
001670: F1 9E 36 FF 21 F1 9E 7E FE 80 DA 87 9C E5 CD FE ..6.!..~........
001680: 97 E1 C2 A0 9C AF 77 34 21 80 00 CD 59 99 7E FE ......w4!...Y.~.
001690: 1A CA 86 9E CD 8C 97 CD C2 98 C2 86 9E C3 74 9C ..............t.
0016A0: 3D CA 86 9E CD D9 9A CD 66 9B C3 09 99 CD F8 9A =.......f.......
0016B0: F5 CD 5E 99 C2 09 99 CD 54 9B 11 CD 9E D5 CD EF ..^.....T.......
0016C0: 97 D1 CD 09 98 CA FB 9C AF 32 ED 9E F1 6F 26 00 .........2...o&.
0016D0: 29 11 00 01 7C B5 CA F1 9C 2B E5 21 80 00 19 E5 )...|....+.!....
0016E0: CD D8 98 11 CD 9E CD 04 98 D1 E1 C2 FB 9C C3 D4 ................
0016F0: 9C 11 CD 9E CD DA 97 3C C2 01 9D 01 07 9D CD A7 .......<........
001700: FF 22 EA AC C9 2A C8 AC EB 2A EA AC 23 22 EA AC ."...*...*..#"..
001710: CD 95 A4 D2 19 A5 C3 FE A4 3A EA AC E6 03 06 05 .........:......
001720: 87 05 C2 20 A5 32 E9 AC B7 C0 C5 CD C3 A2 CD D4 ... .2..........
001730: A4 C1 C3 9E A4 79 E6 07 3C 5F 57 79 0F 0F 0F E6 .....y..<_Wy....
001740: 1F 4F 78 87 87 87 87 87 B1 4F 78 0F 0F 0F E6 1F .Ox......Ox.....
001750: 47 2A BF AC 09 7E 07 1D C2 56 A5 C9 D5 CD 35 A5 G*...~...V....5.
001760: E6 FE C1 B1 0F 15 C2 64 A5 77 C9 CD 5E A4 11 10 .......d.w..^...
001770: 00 19 C5 0E 11 D1 0D C8 D5 3A DD AC B7 CA 88 A5 .........:......
001780: C5 E5 4E 06 00 C3 8E A5 0D C5 4E 23 46 E5 79 B0 ..N.......N#F.y.
001790: CA 9D A5 2A C6 AC 7D 91 7C 98 D4 5C A5 E1 23 C1 ...*..}.|..\..#.
0017A0: C3 75 A5 2A C6 AC 0E 03 CD EA A3 23 44 4D 2A BF .u.*......£#DM*.
0017B0: AC 36 00 23 0B 78 B1 C2 B1 A5 2A CA AC EB 2A BF .6.#.x....*...*.
0017C0: AC 73 23 72 CD A1 A2 2A B3 AC 36 03 23 36 00 CD .s#r...*..6.#6..
0017D0: FE A4 0E FF CD 05 A5 CD F5 A4 C8 CD 5E A4 3E E5 ............^.>.
0017E0: BE CA D2 A5 3A 41 A2 BE C2 F6 A5 23 7E D6 24 C2 ....:A.....#~.$.
0017F0: F6 A5 3D 32 45 A2 0E 01 CD 6B A5 CD 8C A4 C3 D2 ..=2E....k......
001800: A5 3A D4 AC C3 01 A2 C5 F5 3A C5 AC 2F 47 79 A0 .:.......:../Gy.
001810: 4F F1 A0 91 E6 1F C1 C9 3E FF 32 D4 AC 21 D8 AC O.......>.2..!..
001820: 71 2A 43 A2 22 D9 AC CD FE A4 CD A1 A2 0E 00 CD q*C."...........
001830: 05 A5 CD F5 A4 CA 94 A6 2A D9 AC EB 1A FE E5 CA ........*.......
001840: 4A A6 D5 CD 7F A4 D1 D2 94 A6 CD 5E A4 3A D8 AC J..........^.:..
001850: 4F 06 00 79 B7 CA 83 A6 1A FE 3F CA 7C A6 78 FE O..y......?.|.x.
001860: 0D CA 7C A6 FE 0C 1A CA 73 A6 96 E6 7F C2 2D A6 ..|.....s.....-.
001870: C3 7C A6 C5 4E CD 07 A6 C1 C2 2D A6 13 23 04 0D .|..N.....-..#..
001880: C3 53 A6 3A EA AC E6 03 32 45 A2 21 D4 AC 7E 17 .S.:....2E.!..~.
001890: D0 AF 77 C9 CD FE A4 3E FF C3 01 A2 CD 54 A4 0E ..w....>.....T..
0018A0: 0C CD 18 A6 CD F5 A4 C8 CD 44 A4 CD 5E A4 36 E5 .........D..^.6.
0018B0: 0E 00 CD 6B A5 CD C6 A4 CD 2D A6 C3 A4 A6 50 59 ...k.....-....PY
0018C0: 79 B0 CA D1 A6 0B D5 C5 CD 35 A5 1F D2 EC A6 C1 y........5......
0018D0: D1 2A C6 AC 7B 95 7A 9C D2 F4 A6 13 C5 D5 42 4B .*..{.z.......BK
0018E0: CD 35 A5 1F D2 EC A6 D1 C1 C3 C0 A6 17 3C CD 64 .5...........<.d
0018F0: A5 E1 D1 C9 79 B0 C2 C0 A6 21 00 00 C9 0E 00 1E ....y....!......
001900: 97 CD D5 98 C3 86 9E 4E 4F 20 53 50 41 43 45 00 .......NO SPACE.
001910: CD 5E 99 C2 09 99 3A F0 9E F5 CD 54 9B CD E9 97 .^....:....T....
001920: C2 79 9D 21 CD 9E 11 DD 9E 06 10 CD 42 9B 2A 88 .y.!........B.*.
001930: 97 EB CD 4F 99 FE 3D CA 3F 9D FE 5F C2 73 9D EB ...O..=.?.._.s..
001940: 23 22 88 97 CD 5E 99 C2 73 9D F1 47 21 F0 9E 7E #"...^..s..G!..~
001950: B7 CA 59 9D B8 70 C2 73 9D 70 AF 32 CD 9E CD E9 ..Y..p.s.p.2....
001960: 97 CA 6D 9D 11 CD 9E CD 0E 98 C3 86 9E CD EA 9A ..m.............
001970: C3 86 9E CD 66 9B C3 09 99 01 82 9D CD A7 97 C3 ....f...........
001980: 86 9E 46 49 4C 45 20 45 58 49 53 54 53 00 CD F8 ..FILE EXISTS...
001990: 9A FE 10 D2 09 99 5F 3A CE 9E FE 20 CA 09 99 CD ......_:... ....
0019A0: 15 98 C3 89 9E CD F5 98 3A CE 9E FE 20 C2 C4 9D ........:... ...
0019B0: 3A F0 9E B7 CA 89 9E 3D 32 EF 9E CD 29 98 CD BD :......=2...)...
0019C0: 97 C3 89 9E 11 D6 9E 1A FE 20 C2 09 99 D5 CD 54 ......... .....T
0019D0: 9B D1 21 83 9E CD 40 9B CD D0 97 CA 6B 9E 21 00 ..!...@.....k.!.
0019E0: 01 E5 EB CD D8 98 11 CD 9E CD F9 97 C2 01 9E E1 ................
0019F0: 11 80 00 19 11 00 97 7D 93 7C 9A D2 71 9E C3 E1 .......}.|..q...
001A00: 9D E1 3D C2 71 9E CD 66 9B CD 5E 99 21 F0 9E E5 ..=.q..f..^.!...
001A10: 7E 32 CD 9E 3E 10 CD 60 99 E1 7E 32 DD 9E AF 32 ~2..>..`..~2...2
001A20: ED 9E 11 5C 00 21 CD 9E 06 21 CD 42 9B 21 08 97 ...\.!...!.B.!..
001A30: 7E B7 CA 3E 9E FE 20 CA 3E 9E 23 C3 30 9E 06 00 ~..>.. .>.#.0...
001A40: 11 81 00 7E 12 B7 CA 4F 9E 04 23 13 C3 43 9E 78 ...~...O..#..C.x
001A50: 32 80 00 CD 98 97 CD D5 98 CD 1A 98 CD 00 01 31 2..............1
001A60: AB 9E CD 29 98 CD BD 97 C3 82 9A CD 66 9B C3 09 ...)........f...
001A70: 99 01 7A 9E CD A7 97 C3 86 9E 42 41 44 20 4C 4F ..z.......BAD LO
001A80: 41 44 00 43 4F 4D CD 66 9B CD 5E 99 3A CE 9E D6 AD.COM.f..^.:...
001A90: 20 21 F0 9E B6 C2 09 99 C3 82 9A 00 00 00 00 00 !..............
001AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 24 24 24 .............$$$
001AB0: 20 20 20 20 20 53 55 42 00 00 00 00 00 00 00 00 SUB........
001AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001B00: 20 D5 06 00 2A 43 A2 09 EB CD 5E A4 C1 CD 4F A2 ...*C....^...O.
001B10: CD C3 A2 C3 C6 A4 CD 54 A4 0E 0C CD 18 A6 2A 43 .......T......*C
001B20: A2 7E 11 10 00 19 77 CD F5 A4 C8 CD 44 A4 0E 10 .~....w.....D...
001B30: 1E 0C CD 01 A7 CD 2D A6 C3 27 A7 0E 0C CD 18 A6 ......-..'......
001B40: CD F5 A4 C8 0E 00 1E 0C CD 01 A7 CD 2D A6 C3 40 ............-..@
001B50: A7 0E 0F CD 18 A6 CD F5 A4 C8 CD A6 A3 7E F5 E5 ............£~..
001B60: CD 5E A4 EB 2A 43 A2 0E 20 D5 CD 4F A2 CD 78 A4 .^..*C.. ..O..x.
001B70: D1 21 0C 00 19 4E 21 0F 00 19 46 E1 F1 77 79 BE .!...N!...F..wy.
001B80: 78 CA 8B A7 3E 00 DA 8B A7 3E 80 2A 43 A2 11 0F x...>....>.*C...
001B90: 00 19 77 C9 7E 23 B6 2B C0 1A 77 13 23 1A 77 1B ..w.~#.+..w.#.w.
001BA0: 2B C9 AF 32 45 A2 32 EA AC 32 EB AC CD 1E A4 C0 +..2E.2..2......
001BB0: CD 69 A4 E6 80 C0 0E 0F CD 18 A6 CD F5 A4 C8 01 .i..............
001BC0: 10 00 CD 5E A4 09 EB 2A 43 A2 09 0E 10 3A DD AC ...^...*C....:..
001BD0: B7 CA E8 A7 7E B7 1A C2 DB A7 77 B7 C2 E1 A7 7E ....~.....w....~
001BE0: 12 BE C2 1F A8 C3 FD A7 CD 94 A7 EB CD 94 A7 EB ................
001BF0: 1A BE C2 1F A8 13 23 1A BE C2 1F A8 0D 13 23 0D ......#.......#.
001C00: C2 CD A7 01 EC FF 09 EB 09 1A BE DA 17 A8 77 01 ..............w.
001C10: 03 00 09 EB 09 7E 12 3E FF 32 D2 AC C3 10 A7 21 .....~.>.2.....!
001C20: 45 A2 35 C9 CD 54 A4 2A 43 A2 E5 21 AC AC 22 43 E.5..T.*C..!.."C
001C30: A2 0E 01 CD 18 A6 CD F5 A4 E1 22 43 A2 C8 EB 21 .........."C...!
001C40: 0F 00 19 0E 11 AF 77 23 0D C2 46 A8 21 0D 00 19 ......w#..F.!...
001C50: 77 CD 8C A4 CD FD A6 C3 78 A4 AF 32 D2 AC CD A2 w.......x..2....
001C60: A7 CD F5 A4 C8 2A 43 A2 01 0C 00 09 7E 3C E6 1F .....*C.....~<..
001C70: 77 CA 83 A8 47 3A C5 AC A0 21 D2 AC A6 CA 8E A8 w...G:...!......
001C80: C3 AC A8 01 02 00 09 34 7E E6 0F CA B6 A8 0E 0F .......4~.......
001C90: CD 18 A6 CD F5 A4 C2 AC A8 3A D3 AC 3C CA B6 A8 .........:..<...
001CA0: CD 24 A8 CD F5 A4 CA B6 A8 C3 AF A8 CD 5A A7 CD .$...........Z..
001CB0: BB A3 AF C3 01 A2 CD 05 A2 C3 78 A4 3E 01 32 D5 .£........x.>.2.
001CC0: AC 3E FF 32 D3 AC CD BB A3 3A E3 AC 21 E1 AC BE .>.2....£:..!...
001CD0: DA E6 A8 FE 80 C2 FB A8 CD 5A A8 AF 32 E3 AC 3A .........Z..2..:
001CE0: 45 A2 B7 C2 FB A8 CD 77 A3 CD 84 A3 CA FB A8 CD E......w£..£....
001CF0: 8A A3 CD D1 A2 CD B2 A2 C3 D2 A3 C3 05 A2 3E 01 .£........£...>.
001D00: D0 16 04 00 00 00 C3 11 9F 99 9F A5 9F AB 9F B1 ................
001D10: 9F EB 22 43 A2 EB 7B 32 D6 AC 21 00 00 22 45 A2 .."C..{2..!.."E.
001D20: 39 22 0F A2 31 41 A2 AF 32 E0 AC 32 DE AC 21 74 9"..1A..2..2..!t
001D30: AC E5 79 FE 29 D0 4B 21 47 9F 5F 16 00 19 19 5E ..y.).K!G._....^
001D40: 23 56 2A 43 A2 EB E9 03 AD C8 A1 90 A0 CE A1 12 #V*C............
001D50: AD 0F AD D4 A1 ED A1 F3 A1 F8 A1 E1 A0 FE A1 7E ...............~
001D60: AB 83 AB 45 AB 9C AB A5 AB AB AB C8 AB D7 AB E0 ...E............
001D70: AB E6 AB EC AB F5 AB FE AB 04 AC 0A AC 11 AC 2C ...............,
001D80: A4 17 AC 1D AC 26 AC 2D AC 41 AC 47 AC 4D AC 0E .....&.-.A.G.M..
001D90: AB 53 AC 04 A2 04 A2 9B AC 21 CA 9F CD E5 9F FE .S.......!......
001DA0: 03 CA 00 00 C9 21 D5 9F C3 B4 9F 21 E1 9F C3 B4 .....!.....!....
001DB0: 9F 21 DC 9F CD E5 9F C3 00 00 42 64 6F 73 20 45 .!........Bdos E
001DC0: 72 72 20 4F 6E 20 20 3A 20 24 42 61 64 20 53 65 rr On : $Bad Se
001DD0: 63 74 6F 72 24 53 65 6C 65 63 74 24 46 69 6C 65 ctor$Select$File
001DE0: 20 52 2F 4F 24 E5 CD C9 A0 3A 42 A2 C6 41 32 C6 R/O$....:B..A2.
001DF0: 9F 01 BA 9F CD D3 A0 C1 CD D3 A0 21 0E A2 7E 36 ...........!..~6
001E00: 00 B7 C0 C3 09 AD CD FB 9F CD 14 A0 D8 F5 4F CD ..............O.
001E10: 90 A0 F1 C9 FE 0D C8 FE 0A C8 FE 09 C8 FE 08 C8 ................
001E20: FE 20 C9 3A 0E A2 B7 C2 45 A0 CD 06 AD E6 01 C8 . .:....E.......
001E30: CD 09 AD FE 13 C2 42 A0 CD 09 AD FE 03 CA 00 00 ......B.........
001E40: AF C9 32 0E A2 3E 01 C9 3A 0A A2 B7 C2 62 A0 C5 ..2..>..:....b..
001E50: CD 2A A0 C1 C5 CD 0C AD C1 C5 3A 0D A2 B7 C4 0F .*........:.....
001E60: AD C1 79 21 0C A2 FE 7F C8 34 FE 20 D0 35 7E B7 ..y!.....4. .5~.
001E70: C8 79 FE 08 C2 79 A0 35 C9 FE 0A C0 36 00 C9 79 .y...y.5....6..y
001E80: CD 14 A0 D2 90 A0 F5 0E 5E CD 48 A0 F1 F6 40 4F ........^.H...@O
001E90: 79 FE 09 C2 48 A0 0E 20 CD 48 A0 3A 0C A2 E6 07 y...H.. .H.:....
001EA0: C2 96 A0 C9 CD AC A0 0E 20 CD 0C AD 0E 08 C3 0C ........ .......
001EB0: AD 0E 23 CD 48 A0 CD C9 A0 3A 0C A2 21 0B A2 BE ..#.H....:..!...
001EC0: D0 0E 20 CD 48 A0 C3 B9 A0 0E 0D CD 48 A0 0E 0A .. .H.......H...
001ED0: C3 48 A0 0A FE 24 C8 03 C5 4F CD 90 A0 C1 C3 D3 .H...$...O......
001EE0: A0 3A 0C A2 32 0B A2 2A 43 A2 4E 23 E5 06 00 C5 .:..2..*C.N#....
001EF0: E5 CD FB 9F E6 7F E1 C1 FE 0D CA C1 A1 FE 0A CA ................
001F00: 32 D5 AC 3E 00 32 D3 AC CD 54 A4 2A 43 A2 CD 47 2..>.2...T.*C..G
001F10: A4 CD BB A3 3A E3 AC FE 80 D2 05 A2 CD 77 A3 CD ...£:........w£.
001F20: 84 A3 0E 00 C2 6E A9 CD 3E A3 32 D7 AC 01 00 00 .£...n..>£2.....
001F30: B7 CA 3B A9 4F 0B CD 5E A3 44 4D CD BE A6 7D B4 ..;.O..^£DM...}.
001F40: C2 48 A9 3E 02 C3 01 A2 22 E5 AC EB 2A 43 A2 01 .H.>...."...*C..
001F50: 10 00 09 3A DD AC B7 3A D7 AC CA 64 A9 CD 64 A4 ...:...:...d..d.
001F60: 73 C3 6C A9 4F 06 00 09 09 73 23 72 0E 02 3A 45 s.l.O....s#r..:E
001F70: A2 B7 C0 C5 CD 8A A3 3A D5 AC 3D 3D C2 BB A9 C1 ......£:..==....
001F80: C5 79 3D 3D C2 BB A9 E5 2A B9 AC 57 77 23 14 F2 .y==....*..Ww#..
001F90: 8C A9 CD E0 A4 2A E7 AC 0E 02 22 E5 AC C5 CD D1 .....*....".....
001FA0: A2 C1 CD B8 A2 2A E5 AC 0E 00 3A C4 AC 47 A5 B8 .....*....:..G..
001FB0: 23 C2 9A A9 E1 22 E5 AC CD DA A4 CD D1 A2 C1 C5 #...."..........
001FC0: CD B8 A2 C1 3A E3 AC 21 E1 AC BE DA D2 A9 77 34 ....:..!......w4
001FD0: 0E 02 00 00 21 00 97 F5 CD 69 A4 E6 7F 77 F1 FE ....!....i...w..
001FE0: 7F C2 00 AA 3A D5 AC FE 01 C2 00 AA CD D2 A3 CD ....:.........£.
001FF0: 5A A8 21 45 A2 7E B7 C2 FE A9 3D 32 E3 AC 36 00 Z.!E.~....=2..6.
002000: C3 D2 A3 AF 32 D5 AC C5 2A 43 A2 EB 21 21 00 19 ..£.2...*C..!!..
002010: 7E E6 7F F5 7E 17 23 7E 17 E6 1F 4F 7E 1F 1F 1F ~...~.#~...O~...
002020: 1F E6 0F 47 F1 23 6E 2C 2D 2E 06 C2 8B AA 21 20 ...G.#n,-.....!
002030: 00 19 77 21 0C 00 19 79 96 C2 47 AA 21 0E 00 19 ..w!...y..G.!...
002040: 78 96 E6 7F CA 7F AA C5 D5 CD A2 A7 D1 C1 2E 03 x...............
002050: 3A 45 A2 3C CA 84 AA 21 0C 00 19 71 21 0E 00 19 :E.<...!...q!...
002060: 70 CD 51 A7 3A 45 A2 3C C2 7F AA C1 C5 2E 04 0C p.Q.:E.<........
002070: CA 84 AA CD 24 A8 2E 05 3A 45 A2 3C CA 84 AA C1 ....$...:E.<....
002080: AF C3 01 A2 E5 CD 69 A4 36 C0 E1 C1 7D 32 45 A2 ......i.6...}2E.
002090: C3 78 A4 0E FF CD 03 AA CC C1 A8 C9 0E 00 CD 03 .x..............
0020A0: AA CC 03 A9 C9 EB 19 4E 06 00 21 0C 00 19 7E 0F .......N..!...~.
0020B0: E6 80 81 4F 3E 00 88 47 7E 0F E6 0F 80 47 21 0E ...O>..G~....G!.
0020C0: 00 19 7E 87 87 87 87 F5 80 47 F5 E1 7D E1 B5 E6 ..~......G..}...
0020D0: 01 C9 0E 0C CD 18 A6 2A 43 A2 11 21 00 19 E5 72 .......*C..!...r
0020E0: 23 72 23 72 CD F5 A4 CA 0C AB CD 5E A4 11 0F 00 #r#r.......^....
0020F0: CD A5 AA E1 E5 5F 79 96 23 78 9E 23 7B 9E DA 06 ....._y.#x.#{...
002100: C1 A1 FE 08 C2 16 A1 78 B7 CA EF A0 05 3A 0C A2 .......x.....:..
002110: 32 0A A2 C3 70 A1 FE 7F C2 26 A1 3E 08 C3 07 A1 2...p....&.>....
002120: 7E 05 2B C3 A9 A1 FE 05 C2 37 A1 C5 E5 CD C9 A0 ~.+......7......
002130: AF 32 0B A2 C3 F1 A0 FE 10 C2 48 A1 E5 21 0D A2 .2........H..!..
002140: 3E 01 96 77 E1 C3 EF A0 FE 18 C2 5F A1 E1 3A 0B >..w......._..:.
002150: A2 21 0C A2 BE D2 E1 A0 35 CD A4 A0 C3 4E A1 FE .!......5....N..
002160: 15 C2 6B A1 CD B1 A0 E1 C3 E1 A0 FE 12 C2 A6 A1 ..k.............
002170: C5 CD B1 A0 C1 E1 E5 C5 78 B7 CA 8A A1 23 4E 05 ........x....#N.
002180: C5 E5 CD 7F A0 E1 C1 C3 78 A1 E5 3A 0A A2 B7 CA ........x..:....
002190: F1 A0 21 0C A2 96 32 0A A2 CD A4 A0 21 0A A2 35 ..!...2.....!..5
0021A0: C2 99 A1 C3 F1 A0 23 77 04 C5 E5 4F CD 7F A0 E1 ......#w...O....
0021B0: C1 7E FE 03 78 C2 BD A1 FE 01 CA 00 00 B9 DA EF .~..x...........
0021C0: A0 E1 70 0E 0D C3 48 A0 CD 06 A0 C3 01 A2 CD 15 ..p...H.........
0021D0: AD C3 01 A2 79 3C CA E0 A1 3C CA 06 AD C3 0C AD ....y<...<......
0021E0: CD 06 AD B7 CA 91 AC CD 09 AD C3 01 A2 3A 03 00 .............:..
0021F0: C3 01 A2 21 03 00 71 C9 EB 4D 44 C3 D3 A0 CD 23 ...!..q..MD....#
002200: A0 32 45 A2 C9 3E 01 C3 01 A2 00 00 00 00 00 00 .2E..>..........
002210: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002230: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002240: 00 00 00 00 00 00 00 21 0B 9F 5E 23 56 EB E9 0C .......!..^#V...
002250: 0D C8 1A 77 13 23 C3 50 A2 3A 42 A2 4F CD 1B AD ...w.#.P.:B.O...
002260: 7C B5 C8 5E 23 56 23 22 B3 AC 23 23 22 B5 AC 23 |..^#V#"..##"..#
002270: 23 22 B7 AC 23 23 EB 22 D0 AC 21 B9 AC 0E 08 CD #"..##."..!.....
002280: 4F A2 2A BB AC EB 21 C1 AC 0E 0F CD 4F A2 2A C6 O.*...!.....O.*.
002290: AC 7C 21 DD AC 36 FF B7 CA 9D A2 36 00 3E FF B7 .|!..6.....6.>..
0022A0: C9 CD 18 AD AF 2A B5 AC 77 23 77 2A B7 AC 77 23 .....*..w#w*..w#
0022B0: 77 C9 CD 27 AD C3 BB A2 CD 2A AD B7 C8 21 09 9F w..'.....*...!..
0022C0: C3 4A A2 2A EA AC 0E 02 CD EA A3 22 E5 AC 22 EC .J.*......£"..".
0022D0: AC 21 E5 AC 4E 23 46 2A B7 AC 5E 23 56 2A B5 AC .!..N#F*..^#V*..
0022E0: 7E 23 66 6F 79 93 78 9A D2 FA A2 E5 2A C1 AC 7B ~#foy.x.....*..{
0022F0: 95 5F 7A 9C 57 E1 2B C3 E4 A2 E5 2A C1 AC 19 DA ._z.W.+....*....
002300: AB 73 2B 70 2B 71 CD 2D A6 C3 E4 AA E1 C9 2A 43 .s+p+q.-......*C
002310: A2 11 20 00 CD A5 AA 21 21 00 19 71 23 70 23 77 .. ....!!..q#p#w
002320: C9 2A AF AC 3A 42 A2 4F CD EA A3 E5 EB CD 59 A2 .*..:B.O..£...Y.
002330: E1 CC 47 A2 7D 1F D8 2A AF AC 4D 44 CD 0B A4 22 ..G.}..*..MD..."
002340: AF AC C3 A3 A5 3A D6 AC 21 42 A2 BE C8 77 C3 21 ...£.:..!B...w.!
002350: AB 3E FF 32 DE AC 2A 43 A2 7E E6 1F 3D 32 D6 AC .>.2..*C.~..=2..
002360: FE 1E D2 75 AB 3A 42 A2 32 DF AC 7E 32 E0 AC E6 ...u.:B.2..~2...
002370: E0 77 CD 45 AB 3A 41 A2 2A 43 A2 B6 77 C9 3E 22 .w.E.:A.*C..w.>"
002380: C3 01 A2 21 00 00 22 AD AC 22 AF AC AF 32 42 A2 ...!..".."...2B.
002390: 21 80 00 22 B1 AC CD DA A4 C3 21 AB CD 72 A4 CD !.."......!..r..
0023A0: 51 AB C3 51 A7 CD 51 AB C3 A2 A7 0E 00 EB 7E FE Q..Q..Q.......~.
0023B0: 3F CA C2 AB CD A6 A3 7E FE 3F C4 72 A4 CD 51 AB ?.....£~.?.r..Q.
0023C0: 0E 0F CD 18 A6 C3 E9 A4 2A D9 AC 22 43 A2 CD 51 ........*.."C..Q
0023D0: AB CD 2D A6 C3 E9 A4 CD 51 AB CD 9C A6 C3 01 A6 ..-.....Q.......
0023E0: CD 51 AB C3 BC A8 CD 51 AB C3 FE A8 CD 72 A4 CD .Q.....Q.....r..
0023F0: 51 AB C3 24 A8 CD 51 AB CD 16 A7 C3 01 A6 2A AF Q..$..Q.......*.
002400: AC C3 29 AC 3A 42 A2 C3 01 A2 EB 22 B1 AC C3 DA ..).:B....."....
002410: A4 2A BF AC C3 29 AC 2A AD AC C3 29 AC CD 51 AB .*...).*...)..Q.
002420: CD 3B A7 C3 01 A6 2A BB AC 22 45 A2 C9 3A D6 AC .;....*.."E..:..
002430: FE FF C2 3B AC 3A 41 A2 C3 01 A2 E6 1F 32 41 A2 ...;.:A......2A.
002440: C9 CD 51 AB C3 93 AA CD 51 AB C3 9C AA CD 51 AB ..Q.....Q.....Q.
002450: C3 D2 AA 2A 43 A2 7D 2F 5F 7C 2F 2A AF AC A4 57 ...*C.}/_|/*...W
002460: 7D A3 5F 2A AD AC EB 22 AF AC 7D A3 6F 7C A2 67 }£_*..."..}£o|.g
002470: 22 AD AC C9 3A DE AC B7 CA 91 AC 2A 43 A2 36 00 "...:......*C.6.
002480: 3A E0 AC B7 CA 91 AC 77 3A DF AC 32 D6 AC CD 45 :......w:..2...E
002490: AB 2A 0F A2 F9 2A 45 A2 7D 44 C9 CD 51 AB 3E 02 .*...*E.}D..Q.>.
0024A0: 32 D5 AC 0E 00 CD 07 AA CC 03 A9 C9 E5 00 00 00 2...............
0024B0: 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0024C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0024D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0024E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0024F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002500: 0F A3 79 95 78 9C DA 0F A3 EB E1 23 C3 FA A2 E1 .£y.x...£..#....
002510: C5 D5 E5 EB 2A CE AC 19 44 4D CD 1E AD D1 2A B5 ....*...DM....*.
002520: AC 73 23 72 D1 2A B7 AC 73 23 72 C1 79 93 4F 78 .s#r.*..s#r.y.Ox
002530: 9A 47 2A D0 AC EB CD 30 AD 4D 44 C3 21 AD 21 C3 .G*....0.MD.!.!.
002540: AC 4E 3A E3 AC B7 1F 0D C2 45 A3 47 3E 08 96 4F .N:......E£G>..O
002550: 3A E2 AC 0D CA 5C A3 B7 17 C3 53 A3 80 C9 2A 43 :....\£...S£..*C
002560: A2 11 10 00 19 09 3A DD AC B7 CA 71 A3 6E 26 00 ......:....q£n&.
002570: C9 09 5E 23 56 EB C9 CD 3E A3 4F 06 00 CD 5E A3 ..^#V...>£O...^£
002580: 22 E5 AC C9 2A E5 AC 7D B4 C9 3A C3 AC 2A E5 AC "...*..}..:..*..
002590: 29 3D C2 90 A3 22 E7 AC 3A C4 AC 4F 3A E3 AC A1 )=..£"..:..O:...
0025A0: B5 6F 22 E5 AC C9 2A 43 A2 11 0C 00 19 C9 2A 43 .o"...*C......*C
0025B0: A2 11 0F 00 19 EB 21 11 00 19 C9 CD AE A3 7E 32 ......!......£~2
0025C0: E3 AC EB 7E 32 E1 AC CD A6 A3 3A C5 AC A6 32 E2 ...~2....£:...2.
0025D0: AC C9 CD AE A3 3A D5 AC FE 02 C2 DE A3 AF 4F 3A ....£:......£.O:
0025E0: E3 AC 81 77 EB 3A E1 AC 77 C9 0C 0D C8 7C B7 1F ...w.:..w....|..
0025F0: 67 7D 1F 6F C3 EB A3 0E 80 2A B9 AC AF 86 23 0D g}.o..£..*....#.
002600: C2 FD A3 C9 0C 0D C8 29 C3 05 A4 C5 3A 42 A2 4F ..£....)....:B.O
002610: 21 01 00 CD 04 A4 C1 79 B5 6F 78 B4 67 C9 2A AD !......y.ox.g.*.
002620: AC 3A 42 A2 4F CD EA A3 7D E6 01 C9 21 AD AC 4E .:B.O..£}...!..N
002630: 23 46 CD 0B A4 22 AD AC 2A C8 AC 23 EB 2A B3 AC #F..."..*..#.*..
002640: 73 23 72 C9 CD 5E A4 11 09 00 19 7E 17 D0 21 0F s#r..^.....~..!.
002650: 9F C3 4A A2 CD 1E A4 C8 21 0D 9F C3 4A A2 2A B9 ..J.....!...J.*.
002660: AC 3A E9 AC 85 6F D0 24 C9 2A 43 A2 11 0E 00 19 .:...o.$.*C.....
002670: 7E C9 CD 69 A4 36 00 C9 CD 69 A4 F6 80 77 C9 2A ~..i.6...i...w.*
002680: EA AC EB 2A B3 AC 7B 96 23 7A 9E C9 CD 7F A4 D8 ...*..{.#z......
002690: 13 72 2B 73 C9 7B 95 6F 7A 9C 67 C9 0E FF 2A EC .r+s.{.oz.g...*.
0026A0: AC EB 2A CC AC CD 95 A4 D0 C5 CD F7 A3 2A BD AC ..*.........£*..
0026B0: EB 2A EC AC 19 C1 0C CA C4 A4 BE C8 CD 7F A4 D0 .*..............
0026C0: CD 2C A4 C9 77 C9 CD 9C A4 CD E0 A4 0E 01 CD B8 .,..w...........
0026D0: A2 C3 DA A4 CD E0 A4 CD B2 A2 21 B1 AC C3 E3 A4 ..........!.....
0026E0: 21 B9 AC 4E 23 46 C3 24 AD 2A B9 AC EB 2A B1 AC !..N#F.$.*...*..
0026F0: 0E 80 C3 4F A2 21 EA AC 7E 23 BE C0 3C C9 21 FF ...O.!..~#..<.!.
002700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
002710: 02 00 01 00 02 09 4E E5 02 00 41 02 00 00 00 02 ......N...A.....
002720: 02 00 46 02 00 00 00 02 02 00 42 02 00 00 00 02 ..F.......B.....
002730: 02 00 47 02 00 00 00 02 02 00 43 02 00 00 00 02 ..G.......C.....
002740: 02 00 48 02 00 00 00 02 02 00 44 02 00 00 00 02 ..H.......D.....
002750: 02 00 49 02 00 00 00 02 02 00 45 02 00 00 00 02 ..I.......E.....
002760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002800: 00 31 20 20 20 20 20 20 20 A0 A0 20 00 00 00 0F .1 .. ....
002810: 02 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002820: 00 31 33 20 20 20 20 20 20 A0 A0 20 00 00 00 07 .13 .. ....
002830: 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002840: 00 31 34 20 20 20 20 20 20 A0 A0 20 00 00 00 05 .14 .. ....
002850: 06 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002860: 00 32 20 20 20 20 20 20 20 A0 A0 20 00 00 00 04 .2 .. ....
002870: 07 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002880: 00 33 20 20 20 20 20 20 20 A0 A0 20 00 00 00 16 .3 .. ....
002890: 08 09 0A 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0028A0: 00 34 20 20 20 20 20 20 20 A0 A0 20 00 00 00 05 .4 .. ....
0028B0: 0B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0028C0: 00 35 20 20 20 20 20 20 20 A0 A0 20 00 00 00 19 .5 .. ....
0028D0: 0C 0D 0E 0F 00 00 00 00 00 00 00 00 00 00 00 00 ................
0028E0: 00 36 20 20 20 20 20 20 20 A0 A0 20 00 00 00 15 .6 .. ....
0028F0: 10 11 12 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002900: 00 36 35 20 20 20 20 20 20 A0 A0 20 00 00 00 04 .65 .. ....
002910: 13 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002920: 00 36 36 20 20 20 20 20 20 A0 A0 20 00 00 00 09 .66 .. ....
002930: 14 15 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002940: 00 36 37 20 20 20 20 20 20 A0 A0 20 00 00 00 1C .67 .. ....
002950: 16 17 18 19 00 00 00 00 00 00 00 00 00 00 00 00 ................
002960: 00 36 38 20 20 20 20 20 20 A0 A0 20 00 00 00 04 .68 .. ....
002970: 1A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002980: 00 37 20 20 20 20 20 20 20 A0 A0 20 00 00 00 07 .7 .. ....
002990: 1B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0029A0: 00 37 30 20 20 20 20 20 20 A0 A0 20 00 00 00 25 .70 .. ...%
0029B0: 1C 1D 1E 1F 20 00 00 00 00 00 00 00 00 00 00 00 .... ...........
0029C0: 00 38 20 20 20 20 20 20 20 A0 A0 20 00 00 00 04 .8 .. ....
0029D0: 21 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 !...............
0029E0: 00 39 20 20 20 20 20 20 20 A0 A0 20 00 00 00 05 .9 .. ....
0029F0: 22 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 "...............
002A00: 48 45 4E 20 31 30 30 32 0D 0A 31 30 30 37 20 49 HEN 1002..1007 I
002A10: 46 20 43 4A 3D 30 20 54 48 45 4E 20 52 45 54 55 F CJ=0 THEN RETU
002A20: 52 4E 20 0D 0A 31 30 30 38 20 52 45 4D 0D 0A 31 RN ..1008 REM..1
002A30: 30 30 39 20 52 45 4D 0D 0A 31 30 31 30 20 52 45 009 REM..1010 RE
002A40: 4D 0D 0A 31 30 31 31 20 4C 4F 43 41 54 45 20 39 M..1011 LOCATE 9
002A50: 2C 32 33 3A 50 52 49 4E 54 20 70 61 24 28 32 29 ,23:PRINT pa$(2)
002A60: 3B 22 20 20 4D 45 4E 55 20 20 43 55 50 20 46 49 ;" MENU CUP FI
002A70: 58 54 55 52 45 53 20 20 22 3B 70 61 24 28 31 29 XTURES ";pa$(1)
002A80: 0D 0A 31 30 31 32 20 47 4F 53 55 42 20 38 34 39 ..1012 GOSUB 849
002A90: 3A 49 46 20 49 4E 24 3C 3E 22 43 22 20 54 48 45 :IF IN$<>"C" THE
002AA0: 4E 20 31 30 31 32 0D 0A 31 30 31 33 20 43 4C 53 N 1012..1013 CLS
002AB0: 20 0D 0A 31 30 31 34 20 50 52 49 4E 54 20 54 41 ..1014 PRINT TA
002AC0: 42 28 31 30 29 3B 70 61 24 28 33 29 3B 22 20 4C B(10);pa$(3);" L
002AD0: 45 41 47 55 45 20 43 55 50 20 22 3B 70 61 24 28 EAGUE CUP ";pa$(
002AE0: 31 29 3B 54 41 42 28 32 39 29 3B 22 44 49 56 22 1);TAB(29);"DIV"
002AF0: 3A 52 41 3D 31 3A 46 4F 52 20 49 3D 32 20 54 4F :RA=1:FOR I=2 TO
002B00: 20 4D 54 2B 28 4D 54 3D 39 29 3A 54 45 4D 50 24 MT+(MT=9):TEMP$
002B10: 3D 41 24 28 31 2C 49 29 3A 47 4F 53 55 42 20 36 =A$(1,I):GOSUB 6
002B20: 34 39 30 30 3A 49 46 20 46 4C 41 47 20 54 48 45 4900:IF FLAG THE
002B30: 4E 20 31 30 31 36 0D 0A 31 30 31 35 20 49 46 20 N 1016..1015 IF
002B40: 41 53 43 28 4C 45 46 54 24 28 41 24 28 31 2C 69 ASC(LEFT$(A$(1,i
002B50: 29 2C 31 29 29 3D 36 35 20 54 48 45 4E 20 47 4F ),1))=65 THEN GO
002B60: 53 55 42 20 31 30 32 32 20 45 4C 53 45 20 47 4F SUB 1022 ELSE GO
002B70: 53 55 42 20 31 30 32 31 20 20 0D 0A 31 30 31 36 SUB 1021 ..1016
002B80: 20 4E 45 58 54 3A 4C 4F 43 41 54 45 20 31 32 2C NEXT:LOCATE 12,
002B90: 31 31 3A 50 52 49 4E 54 20 70 61 24 28 33 29 3B 11:PRINT pa$(3);
002BA0: 22 20 46 41 20 43 55 50 20 22 3B 70 61 24 28 31 " FA CUP ";pa$(1
002BB0: 29 3B 54 41 42 28 32 39 29 3B 22 44 49 56 22 3A );TAB(29);"DIV":
002BC0: 52 41 3D 32 3A 46 4F 52 20 49 3D 32 20 54 4F 20 RA=2:FOR I=2 TO
002BD0: 4D 53 2B 28 4D 53 3D 39 29 3A 54 45 4D 50 24 3D MS+(MS=9):TEMP$=
002BE0: 41 24 28 32 2C 49 29 3A 47 4F 53 55 42 20 36 34 A$(2,I):GOSUB 64
002BF0: 39 30 30 3A 49 46 20 46 4C 41 47 20 54 48 45 4E 900:IF FLAG THEN
002C00: 00 41 20 20 20 20 20 20 20 A0 A0 20 00 00 00 0B .A .. ....
002C10: 23 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 #$..............
002C20: 00 41 41 20 20 20 20 20 20 A0 A0 20 00 00 00 04 .AA .. ....
002C30: 25 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 %...............
002C40: 00 41 42 20 20 20 20 20 20 A0 A0 20 00 00 00 0D .AB .. ....
002C50: 26 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 &'..............
002C60: 00 41 43 20 20 20 20 20 20 A0 A0 20 00 00 00 03 .AC .. ....
002C70: 28 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 (...............
002C80: 00 41 44 20 20 20 20 20 20 A0 A0 20 00 00 00 0A .AD .. ....
002C90: 29 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 )*..............
002CA0: 00 42 20 20 20 20 20 20 20 A0 A0 20 00 00 00 08 .B .. ....
002CB0: 2B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +...............
002CC0: 00 43 20 20 20 20 20 20 20 A0 A0 20 00 00 00 08 .C .. ....
002CD0: 2C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ,...............
002CE0: 00 43 4C 20 20 20 20 20 20 A0 A0 20 00 00 00 13 .CL .. ....
002CF0: 2D 2E 2F 00 00 00 00 00 00 00 00 00 00 00 00 00 -./.............
002D00: 00 43 53 20 20 20 20 20 20 A0 A0 20 00 00 00 13 .CS .. ....
002D10: 30 31 32 00 00 00 00 00 00 00 00 00 00 00 00 00 012.............
002D20: 00 44 49 53 43 20 20 20 20 C2 41 53 00 00 00 06 .DISC .AS....
002D30: 34 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4...............
002D40: 00 45 20 20 20 20 20 20 20 A0 A0 20 00 00 00 04 .E .. ....
002D50: 33 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3...............
002D60: 00 44 41 54 41 59 24 20 20 C4 C1 54 00 00 00 0B .DATAY$ ..T....
002D70: 36 37 00 00 00 00 00 00 00 00 00 00 00 00 00 00 67..............
002D80: 00 4D 45 4E 55 24 20 20 20 C4 C1 54 00 00 00 02 .MENU$ ..T....
002D90: 38 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 8...............
002DA0: 00 44 41 54 41 45 24 20 20 C4 C1 54 00 00 00 02 .DATAE$ ..T....
002DB0: 39 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 9...............
002DC0: 00 44 41 54 41 56 20 20 20 C4 C1 54 00 00 00 04 .DATAV ..T....
002DD0: 3A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 :...............
002DE0: 00 46 31 20 20 20 20 20 20 A0 A0 20 00 00 00 08 .F1 .. ....
002DF0: 35 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 5...............
002E00: 20 31 30 31 38 0D 0A 31 30 31 37 20 49 46 20 41 1018..1017 IF A
002E10: 53 43 28 4C 45 46 54 24 28 41 24 28 32 2C 49 29 SC(LEFT$(A$(2,I)
002E20: 2C 31 29 29 3D 36 35 20 54 48 45 4E 20 47 4F 53 ,1))=65 THEN GOS
002E30: 55 42 20 31 30 32 32 20 45 4C 53 45 20 47 4F 53 UB 1022 ELSE GOS
002E40: 55 42 20 31 30 32 31 0D 0A 31 30 31 38 20 4E 45 UB 1021..1018 NE
002E50: 58 54 3A 49 46 20 43 4A 3D 30 20 54 48 45 4E 20 XT:IF CJ=0 THEN
002E60: 52 45 54 55 52 4E 20 0D 0A 31 30 31 39 20 4C 4F RETURN ..1019 LO
002E70: 43 41 54 45 20 31 31 2C 32 32 3A 50 52 49 4E 54 CATE 11,22:PRINT
002E80: 20 70 61 24 28 32 29 22 20 4D 45 4E 55 20 20 46 pa$(2)" MENU F
002E90: 49 58 54 55 52 45 53 20 22 3B 70 61 24 28 31 29 IXTURES ";pa$(1)
002EA0: 0D 0A 31 30 32 30 20 47 4F 53 55 42 20 38 34 39 ..1020 GOSUB 849
002EB0: 3A 49 46 20 49 4E 24 3D 22 46 22 20 54 48 45 4E :IF IN$="F" THEN
002EC0: 20 31 30 30 31 20 45 4C 53 45 20 31 30 32 30 0D 1001 ELSE 1020.
002ED0: 0A 31 30 32 31 20 4C 4F 43 41 54 45 20 35 2C 49 .1021 LOCATE 5,I
002EE0: 2B 41 42 53 28 52 41 3D 32 29 2A 31 30 3A 50 52 +ABS(RA=2)*10:PR
002EF0: 49 4E 54 20 5A 24 3B 22 20 22 3B 4D 49 44 24 28 INT Z$;" ";MID$(
002F00: 41 24 28 52 41 2C 49 29 2C 31 32 2C 31 29 3B 22 A$(RA,I),12,1);"
002F10: 2D 22 3B 4D 49 44 24 28 41 24 28 52 41 2C 49 29 -";MID$(A$(RA,I)
002F20: 2C 31 31 2C 31 29 3B 22 20 22 3B 4D 49 44 24 28 ,11,1);" ";MID$(
002F30: 41 24 28 52 41 2C 49 29 2C 32 2C 39 29 3B 22 20 A$(RA,I),2,9);"
002F40: 20 22 3B 4D 49 44 24 28 41 24 28 52 41 2C 49 29 ";MID$(A$(RA,I)
002F50: 2C 31 33 2C 31 29 3A 4F 4E 20 49 20 47 4F 54 4F ,13,1):ON I GOTO
002F60: 20 31 30 32 37 2C 31 30 32 37 2C 31 30 32 37 2C 1027,1027,1027,
002F70: 31 30 32 37 2C 31 30 32 37 2C 31 30 32 38 2C 31 1027,1027,1028,1
002F80: 30 32 39 2C 31 30 33 30 0D 0A 31 30 32 32 20 4C 029,1030..1022 L
002F90: 4F 43 41 54 45 20 35 2C 49 2D 28 52 41 3D 32 29 OCATE 5,I-(RA=2)
002FA0: 2A 31 30 3A 50 52 49 4E 54 20 4D 49 44 24 28 41 *10:PRINT MID$(A
002FB0: 24 28 52 41 2C 49 29 2C 32 2C 39 29 3B 22 20 22 $(RA,I),2,9);" "
002FC0: 3B 4D 49 44 24 28 41 24 28 52 41 2C 49 29 2C 31 ;MID$(A$(RA,I),1
002FD0: 31 2C 31 29 3B 22 2D 22 3B 4D 49 44 24 28 41 24 1,1);"-";MID$(A$
002FE0: 28 52 41 2C 49 29 2C 31 32 2C 31 29 3B 22 20 22 (RA,I),12,1);" "
002FF0: 3B 5A 24 3B 22 20 20 22 3B 4D 49 44 24 28 41 24 ;Z$;" ";MID$(A$
003000: 00 46 32 20 20 20 20 20 20 A0 A0 20 00 00 00 0B .F2 .. ....
003010: 3B 3C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ;<..............
003020: 00 46 33 20 20 20 20 20 20 A0 A0 20 00 00 00 0B .F3 .. ....
003030: 3D 3E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 =>..............
003040: 00 46 34 20 20 20 20 20 20 A0 A0 20 00 00 00 0B .F4 .. ....
003050: 3F 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ?@..............
003060: 00 46 35 20 20 20 20 20 20 A0 A0 20 00 00 00 0B .F5 .. ....
003070: 41 42 00 00 00 00 00 00 00 00 00 00 00 00 00 00 AB..............
003080: 00 46 44 4D 41 49 4E 20 20 C2 C1 53 00 00 00 80 .FDMAIN ..S....
003090: 05 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 53 .EFGHIJKLMNOPQRS
0030A0: 00 46 44 4D 41 49 4E 20 20 C2 C1 53 01 00 00 19 .FDMAIN ..S....
0030B0: 54 55 56 93 00 00 00 00 00 00 00 00 00 00 00 00 TUV.............
0030C0: 00 48 20 20 20 20 20 20 20 A0 A0 20 00 00 00 0C .H .. ....
0030D0: 43 44 00 00 00 00 00 00 00 00 00 00 00 00 00 00 CD..............
0030E0: 00 49 20 20 20 20 20 20 20 A0 A0 20 00 00 00 26 .I .. ...&
0030F0: 57 58 59 5A 5B 00 00 00 00 00 00 00 00 00 00 00 WXYZ[...........
003100: 00 4A 20 20 20 20 20 20 20 A0 A0 20 00 00 00 03 .J .. ....
003110: 5C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 \...............
003120: 00 4B 20 20 20 20 20 20 20 A0 A0 20 00 00 00 0D .K .. ....
003130: 5D 5E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ]^..............
003140: 00 4C 20 20 20 20 20 20 20 A0 A0 20 00 00 00 08 .L .. ....
003150: 62 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 b...............
003160: 00 4D 20 20 20 20 20 20 20 A0 A0 20 00 00 00 08 .M .. ....
003170: 5F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 _...............
003180: 00 4D 32 20 20 20 20 20 20 A0 A0 20 00 00 00 09 .M2 .. ....
003190: 60 61 00 00 00 00 00 00 00 00 00 00 00 00 00 00 `a..............
0031A0: 00 4E 20 20 20 20 20 20 20 A0 A0 20 00 00 00 0B .N .. ....
0031B0: 63 64 00 00 00 00 00 00 00 00 00 00 00 00 00 00 cd..............
0031C0: 00 4F 20 20 20 20 20 20 20 A0 A0 20 00 00 00 0C .O .. ....
0031D0: 65 66 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ef..............
0031E0: 00 50 20 20 20 20 20 20 20 A0 A0 20 00 00 00 0A .P .. ....
0031F0: 67 68 00 00 00 00 00 00 00 00 00 00 00 00 00 00 gh..............
003200: 28 52 41 2C 49 29 2C 31 33 2C 31 29 3A 4F 4E 20 (RA,I),13,1):ON
003210: 49 20 47 4F 54 4F 20 31 30 32 37 2C 31 30 32 37 I GOTO 1027,1027
003220: 2C 31 30 32 37 2C 31 30 32 37 2C 31 30 32 37 2C ,1027,1027,1027,
003230: 31 30 32 38 2C 31 30 32 39 2C 31 30 33 30 0D 0A 1028,1029,1030..
003240: 31 30 32 33 20 52 45 4D 0D 0A 31 30 32 34 20 52 1023 REM..1024 R
003250: 45 4D 0D 0A 31 30 32 35 20 52 45 4D 0D 0A 31 30 EM..1025 REM..10
003260: 32 36 20 52 45 4D 0D 0A 31 30 32 37 20 4C 4F 43 26 REM..1027 LOC
003270: 41 54 45 20 33 33 2C 49 2D 28 52 41 3D 32 29 2A ATE 33,I-(RA=2)*
003280: 31 30 3A 50 52 49 4E 54 20 22 52 4E 44 20 22 3B 10:PRINT "RND ";
003290: 49 3A 52 45 54 55 52 4E 20 0D 0A 31 30 32 38 20 I:RETURN ..1028
0032A0: 4C 4F 43 41 54 45 20 33 33 2C 49 2D 28 52 41 3D LOCATE 33,I-(RA=
0032B0: 32 29 2A 31 30 3A 50 52 49 4E 54 20 22 51 2E 46 2)*10:PRINT "Q.F
0032C0: 2E 22 3A 52 45 54 55 52 4E 20 0D 0A 31 30 32 39 .":RETURN ..1029
0032D0: 20 4C 4F 43 41 54 45 20 33 33 2C 49 2D 28 52 41 LOCATE 33,I-(RA
0032E0: 3D 32 29 2A 31 30 3A 50 52 49 4E 54 20 22 53 2E =2)*10:PRINT "S.
0032F0: 46 2E 22 3A 52 45 54 55 52 4E 20 0D 0A 31 30 33 F.":RETURN ..103
003300: 30 20 4C 4F 43 41 54 45 20 33 33 2C 49 2D 28 52 0 LOCATE 33,I-(R
003310: 41 3D 32 29 2A 31 30 3A 50 52 49 4E 54 20 22 46 A=2)*10:PRINT "F
003320: 49 4E 41 4C 22 3A 52 45 54 55 52 4E 20 0D 0A 1A INAL":RETURN ...
003330: 0D 00 00 52 C1 EF 10 29 F6 19 0A 01 BF 20 22 46 ...R...)..... "F
003340: 49 4E 41 4C 22 01 C9 20 00 00 00 1A 00 00 00 1A INAL".. ........
003350: C1 EF 10 29 F6 19 0A 01 BF 20 22 46 49 4E 41 4C ...)..... "FINAL
003360: 22 01 C9 20 00 00 00 1A 00 00 00 00 00 00 00 00 ".. ............
003370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003380: 30 32 39 2C 31 30 33 30 0D 0A 31 30 32 32 20 4C 029,1030..1022 L
003390: 4F 43 41 54 45 20 35 2C 49 2D 28 52 41 3D 32 29 OCATE 5,I-(RA=2)
0033A0: 2A 31 30 3A 50 52 49 4E 54 20 4D 49 44 24 28 41 *10:PRINT MID$(A
0033B0: 24 28 52 41 2C 49 29 2C 32 2C 39 29 3B 22 20 22 $(RA,I),2,9);" "
0033C0: 3B 4D 49 44 24 28 41 24 28 52 41 2C 49 29 2C 31 ;MID$(A$(RA,I),1
0033D0: 31 2C 31 29 3B 22 2D 22 3B 4D 49 44 24 28 41 24 1,1);"-";MID$(A$
0033E0: 28 52 41 2C 49 29 2C 31 32 2C 31 29 3B 22 20 22 (RA,I),12,1);" "
0033F0: 3B 5A 24 3B 22 20 20 22 3B 4D 49 44 24 28 41 24 ;Z$;" ";MID$(A$
003400: 00 51 20 20 20 20 20 20 20 A0 A0 20 00 00 00 0C .Q .. ....
003410: 69 6A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ij..............
003420: 00 52 20 20 20 20 20 20 20 A0 A0 20 00 00 00 1A .R .. ....
003430: 6B 6C 6D 6E 00 00 00 00 00 00 00 00 00 00 00 00 klmn............
003440: 00 52 31 20 20 20 20 20 20 A0 A0 20 00 00 00 0E .R1 .. ....
003450: 6F 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 op..............
003460: 00 52 32 20 20 20 20 20 20 A0 A0 20 00 00 00 22 .R2 .. ..."
003470: 71 72 73 74 75 00 00 00 00 00 00 00 00 00 00 00 qrstu...........
003480: 00 53 20 20 20 20 20 20 20 A0 A0 20 00 00 00 19 .S .. ....
003490: 77 78 79 7A 00 00 00 00 00 00 00 00 00 00 00 00 wxyz............
0034A0: 00 52 33 20 20 20 20 20 20 A0 A0 20 00 00 00 04 .R3 .. ....
0034B0: 76 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 v...............
0034C0: 00 54 20 20 20 20 20 20 20 A0 A0 20 00 00 00 0B .T .. ....
0034D0: 7B 7C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 {|..............
0034E0: 00 55 20 20 20 20 20 20 20 A0 A0 20 00 00 00 0A .U .. ....
0034F0: 7D 7E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 }~..............
003500: 00 56 20 20 20 20 20 20 20 A0 A0 20 00 00 00 0D .V .. ....
003510: 7F 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003520: 00 57 20 20 20 20 20 20 20 A0 A0 20 00 00 00 2B .W .. ...+
003530: 81 82 83 84 85 86 00 00 00 00 00 00 00 00 00 00 ................
003540: 00 57 31 20 20 20 20 20 20 A0 A0 20 00 00 00 19 .W1 .. ....
003550: 87 88 89 8A 00 00 00 00 00 00 00 00 00 00 00 00 ................
003560: 00 58 20 20 20 20 20 20 20 A0 A0 20 00 00 00 05 .X .. ....
003570: 8B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003580: 00 59 20 20 20 20 20 20 20 A0 A0 20 00 00 00 21 .Y .. ...!
003590: 8C 8D 8E 8F 90 00 00 00 00 00 00 00 00 00 00 00 ................
0035A0: 00 59 31 20 20 20 20 20 20 A0 A0 20 00 00 00 0D .Y1 .. ....
0035B0: 91 92 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0035C0: 00 53 43 52 44 20 20 20 20 C2 C9 4E 00 00 00 02 .SCRD ..N....
0035D0: 98 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0035E0: E5 53 54 41 54 20 20 20 20 43 4F 4D 00 00 00 29 .STAT COM...)
0035F0: 94 95 96 97 99 9A 00 00 00 00 00 00 00 00 00 00 ................
003600: 31 30 35 31 20 46 4F 52 20 46 3D 31 20 54 4F 20 1051 FOR F=1 TO
003610: 32 30 3A 49 46 20 54 24 28 46 29 3D 52 24 20 54 20:IF T$(F)=R$ T
003620: 48 45 4E 20 47 4F 53 55 42 20 31 30 35 35 3A 66 HEN GOSUB 1055:f
003630: 3D 32 31 0D 0A 31 30 35 32 20 4E 45 58 54 0D 0A =21..1052 NEXT..
003640: 31 30 35 33 20 47 4F 53 55 42 20 31 30 35 36 3A 1053 GOSUB 1056:
003650: 46 4F 52 20 46 3D 31 20 54 4F 20 32 30 3A 49 46 FOR F=1 TO 20:IF
003660: 20 54 24 28 46 29 3D 53 24 20 54 48 45 4E 20 47 T$(F)=S$ THEN G
003670: 4F 53 55 42 20 31 30 35 35 3A 47 4F 53 55 42 20 OSUB 1055:GOSUB
003680: 31 30 35 36 3A 66 3D 39 39 0D 0A 31 30 35 34 20 1056:f=99..1054
003690: 4E 45 58 54 3A 49 46 20 66 3D 31 30 30 20 54 48 NEXT:IF f=100 TH
0036A0: 45 4E 20 52 45 54 55 52 4E 0D 0A 31 30 35 35 20 EN RETURN..1055
0036B0: 50 28 46 29 3D 50 28 46 29 2B 31 3A 57 28 46 29 P(F)=P(F)+1:W(F)
0036C0: 3D 57 28 46 29 2D 28 52 3E 53 29 3A 44 28 46 29 =W(F)-(R>S):D(F)
0036D0: 3D 44 28 46 29 2D 28 52 3D 53 29 3A 46 28 31 2C =D(F)-(R=S):F(1,
0036E0: 46 29 3D 46 28 31 2C 46 29 2B 52 3A 46 28 32 2C F)=F(1,F)+R:F(2,
0036F0: 46 29 3D 46 28 32 2C 46 29 2B 53 3A 52 45 54 55 F)=F(2,F)+S:RETU
003700: 52 4E 20 0D 0A 31 30 35 36 20 45 54 3D 52 3A 52 RN ..1056 ET=R:R
003710: 3D 53 3A 53 3D 45 54 3A 52 45 54 55 52 4E 20 0D =S:S=ET:RETURN .
003720: 0A 31 30 35 37 20 46 4F 52 20 58 3D 32 20 54 4F .1057 FOR X=2 TO
003730: 20 32 30 3A 52 41 3D 58 2D 31 3A 52 42 3D 49 4E 20:RA=X-1:RB=IN
003740: 54 28 57 28 58 29 2A 70 74 73 2B 44 28 58 29 29 T(W(X)*pts+D(X))
003750: 3A 52 43 3D 49 4E 54 20 28 46 28 31 2C 58 29 2D :RC=INT (F(1,X)-
003760: 46 28 32 2C 58 29 29 3A 45 31 3D 50 28 58 29 3A F(2,X)):E1=P(X):
003770: 45 32 3D 57 28 58 29 3A 45 34 3D 44 28 58 29 3A E2=W(X):E4=D(X):
003780: 45 35 3D 46 28 31 2C 58 29 3A 45 36 3D 46 28 32 E5=F(1,X):E6=F(2
003790: 2C 58 29 3A 44 24 3D 54 24 28 58 29 0D 0A 31 30 ,X):D$=T$(X)..10
0037A0: 35 38 20 49 46 20 57 28 52 41 29 2A 70 74 73 2B 58 IF W(RA)*pts+
0037B0: 44 28 52 41 29 3E 52 42 20 54 48 45 4E 20 31 30 D(RA)>RB THEN 10
0037C0: 36 32 0D 0A 31 30 35 39 20 49 46 20 57 28 52 41 62..1059 IF W(RA
0037D0: 29 2A 70 74 73 2B 44 28 52 41 29 3D 52 42 20 41 )*pts+D(RA)=RB A
0037E0: 4E 44 20 46 28 31 2C 52 41 29 2D 46 28 32 2C 52 ND F(1,RA)-F(2,R
0037F0: 41 29 3E 52 43 20 54 48 45 4E 20 31 30 36 32 0D A)>RC THEN 1062.
003800: 31 30 30 31 20 43 4C 53 3A 50 52 49 4E 54 20 54 1001 CLS:PRINT T
003810: 41 42 28 31 35 29 3B 70 61 24 28 35 29 3B 22 20 AB(15);pa$(5);"
003820: 46 49 58 54 55 52 45 53 20 22 3B 70 61 24 28 31 FIXTURES ";pa$(1
003830: 29 3A 52 41 3D 30 3A 52 42 3D 32 0D 0A 31 30 30 ):RA=0:RB=2..100
003840: 32 20 49 42 3D 28 52 42 2F 32 29 2B 31 3A 49 42 2 IB=(RB/2)+1:IB
003850: 3D 49 42 2D 49 4E 54 28 49 42 29 3A 54 45 4D 50 =IB-INT(IB):TEMP
003860: 3D 41 42 53 28 49 42 3E 30 29 2A 31 38 2B 34 3A =ABS(IB>0)*18+4:
003870: 4C 4F 43 41 54 45 20 54 45 4D 50 2C 52 42 2B 31 LOCATE TEMP,RB+1
003880: 3A 50 52 49 4E 54 20 70 61 24 28 37 29 3B 22 48 :PRINT pa$(7);"H
003890: 22 3B 70 61 24 28 31 29 3B 3A 54 45 4D 50 3D 32 ";pa$(1);:TEMP=2
0038A0: 32 2D 41 42 53 28 49 42 3E 30 29 2A 31 38 3A 4C 2-ABS(IB>0)*18:L
0038B0: 4F 43 41 54 45 20 54 45 4D 50 2C 52 42 2B 31 3A OCATE TEMP,RB+1:
0038C0: 50 52 49 4E 54 20 70 61 24 28 36 29 3B 22 41 22 PRINT pa$(6);"A"
0038D0: 3B 70 61 24 28 31 29 0D 0A 31 30 30 33 20 52 41 ;pa$(1)..1003 RA
0038E0: 3D 52 41 2B 41 42 53 28 59 24 28 52 41 2B 43 4D =RA+ABS(Y$(RA+CM
0038F0: 29 3D 5A 24 29 3A 4C 4F 43 41 54 45 20 36 2C 52 )=Z$):LOCATE 6,R
003900: 42 2B 31 3A 50 52 49 4E 54 20 59 24 28 52 41 2B B+1:PRINT Y$(RA+
003910: 43 4D 29 3A 4C 4F 43 41 54 45 20 32 34 2C 72 62 CM):LOCATE 24,rb
003920: 2B 31 3A 50 52 49 4E 54 20 59 24 28 52 41 2B 43 +1:PRINT Y$(RA+C
003930: 4D 29 0D 0A 31 30 30 34 20 49 46 20 52 42 3C 3D M)..1004 IF RB<=
003940: 49 44 20 54 48 45 4E 20 4C 4F 43 41 54 45 20 31 ID THEN LOCATE 1
003950: 36 2C 52 42 2B 31 3A 50 52 49 4E 54 20 4C 45 46 6,RB+1:PRINT LEF
003960: 54 24 28 57 24 28 52 42 2D 31 29 2C 31 29 3B 22 T$(W$(RB-1),1);"
003970: 2D 22 3B 4D 49 44 24 28 57 24 28 52 42 2D 31 29 -";MID$(W$(RB-1)
003980: 2C 32 2C 31 29 0D 0A 31 30 30 35 20 49 46 20 28 ,2,1)..1005 IF (
003990: 52 42 2B 31 38 29 3C 3D 49 44 20 54 48 45 4E 20 RB+18)<=ID THEN
0039A0: 4C 4F 43 41 54 45 20 33 34 2C 52 42 2B 31 3A 50 LOCATE 34,RB+1:P
0039B0: 52 49 4E 54 20 4C 45 46 54 24 28 57 24 28 52 42 RINT LEFT$(W$(RB
0039C0: 2B 31 38 29 2C 31 29 3B 22 2D 22 3B 4D 49 44 24 +18),1);"-";MID$
0039D0: 28 57 24 28 52 42 2B 31 38 29 2C 32 2C 31 29 0D (W$(RB+18),2,1).
0039E0: 0A 31 30 30 36 20 52 41 3D 52 41 2B 31 3A 52 42 .1006 RA=RA+1:RB
0039F0: 3D 52 42 2B 31 3A 49 46 20 52 42 3C 32 31 20 54 =RB+1:IF RB<21 T
003A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
003A10: 03 00 01 00 02 09 4E E5 03 00 41 02 00 00 00 02 ......N...A.....
003A20: 03 00 46 02 00 00 00 02 03 00 42 02 00 00 00 02 ..F.......B.....
003A30: 03 00 47 02 00 00 00 02 03 00 43 02 00 00 00 02 ..G.......C.....
003A40: 03 00 48 02 00 00 00 02 03 00 44 02 00 00 00 02 ..H.......D.....
003A50: 03 00 49 02 00 00 00 02 03 00 45 02 00 00 00 02 ..I.......E.....
003A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003B00: 0A 31 30 36 30 20 49 46 20 57 28 52 41 29 2A 70 .1060 IF W(RA)*p
003B10: 74 73 2B 44 28 52 41 29 3D 52 42 20 41 4E 44 20 ts+D(RA)=RB AND
003B20: 46 28 31 2C 52 41 29 2D 46 28 32 2C 52 41 29 3D F(1,RA)-F(2,RA)=
003B30: 52 43 20 41 4E 44 20 46 28 31 2C 52 41 29 3E 46 RC AND F(1,RA)>F
003B40: 28 31 2C 58 29 20 54 48 45 4E 20 31 30 36 32 0D (1,X) THEN 1062.
003B50: 0A 31 30 36 31 20 50 28 52 41 2B 31 29 3D 50 28 .1061 P(RA+1)=P(
003B60: 52 41 29 3A 57 28 52 41 2B 31 29 3D 57 28 52 41 RA):W(RA+1)=W(RA
003B70: 29 3A 44 28 52 41 2B 31 29 3D 44 28 52 41 29 3A ):D(RA+1)=D(RA):
003B80: 46 28 31 2C 52 41 2B 31 29 3D 46 28 31 2C 52 41 F(1,RA+1)=F(1,RA
003B90: 29 3A 46 28 32 2C 52 41 2B 31 29 3D 46 28 32 2C ):F(2,RA+1)=F(2,
003BA0: 52 41 29 3A 54 24 28 52 41 2B 31 29 3D 54 24 28 RA):T$(RA+1)=T$(
003BB0: 52 41 29 3A 52 41 3D 52 41 2D 31 3A 49 46 20 52 RA):RA=RA-1:IF R
003BC0: 41 3E 30 20 54 48 45 4E 20 31 30 35 38 0D 0A 31 A>0 THEN 1058..1
003BD0: 30 36 32 20 50 28 52 41 2B 31 29 3D 45 31 3A 57 062 P(RA+1)=E1:W
003BE0: 28 52 41 2B 31 29 3D 45 32 3A 44 28 52 41 2B 31 (RA+1)=E2:D(RA+1
003BF0: 29 3D 45 34 3A 46 28 31 2C 52 41 2B 31 29 3D 45 )=E4:F(1,RA+1)=E
003C00: 35 3A 46 28 32 2C 52 41 2B 31 29 3D 45 36 3A 54 5:F(2,RA+1)=E6:T
003C10: 24 28 52 41 2B 31 29 3D 44 24 3A 4E 45 58 54 3A $(RA+1)=D$:NEXT:
003C20: 47 4F 53 55 42 20 38 35 38 3A 52 45 54 55 52 4E GOSUB 858:RETURN
003C30: 0D 0A 1A C1 F4 0F 29 EF 0D 00 00 45 B5 01 0D 00 ......)....E....
003C40: 00 C6 28 10 2C 0D 00 00 52 C1 F4 0F 29 EF 0D 00 ..(.,...R...)...
003C50: 00 45 B6 01 03 00 00 D4 28 0D 00 00 52 C1 F4 0F .E......(...R...
003C60: 29 EF 03 00 00 C4 01 B0 01 9F 20 1E 5A 03 01 C9 )......... .Z...
003C70: 00 00 00 1A 47 4F 53 55 42 20 31 30 35 35 3A 47 ....GOSUB 1055:G
003C80: 45 35 3D 46 28 31 2C 58 29 3A 45 36 3D 46 28 32 E5=F(1,X):E6=F(2
003C90: 2C 58 29 3A 44 24 3D 54 24 28 58 29 0D 0A 31 30 ,X):D$=T$(X)..10
003CA0: 35 38 20 49 46 20 57 28 52 41 29 2A 70 74 73 2B 58 IF W(RA)*pts+
003CB0: 44 28 52 41 29 3E 52 42 20 54 48 45 4E 20 31 30 D(RA)>RB THEN 10
003CC0: 36 32 0D 0A 31 30 35 39 20 49 46 20 57 28 52 41 62..1059 IF W(RA
003CD0: 29 2A 70 74 73 2B 44 28 52 41 29 3D 52 42 20 41 )*pts+D(RA)=RB A
003CE0: 4E 44 20 46 28 31 2C 52 41 29 2D 46 28 32 2C 52 ND F(1,RA)-F(2,R
003CF0: 41 29 3E 52 43 20 54 48 45 4E 20 31 30 36 32 0D A)>RC THEN 1062.
003D00: 31 30 30 31 20 47 4F 53 55 42 20 31 30 30 32 3A 1001 GOSUB 1002:
003D10: 47 4F 54 4F 20 31 30 30 34 0D 0A 31 30 30 32 20 GOTO 1004..1002
003D20: 43 4C 53 3A 50 52 49 4E 54 20 54 41 42 28 33 29 CLS:PRINT TAB(3)
003D30: 3B 22 44 49 56 20 22 55 53 49 4E 47 22 23 22 3B ;"DIV "USING"#";
003D40: 61 70 3B 3A 50 52 49 4E 54 20 54 41 42 28 31 36 ap;:PRINT TAB(16
003D50: 29 3B 70 61 24 28 33 29 3B 22 20 50 20 20 57 20 );pa$(3);" P W
003D60: 20 44 20 20 4C 20 20 20 46 20 20 20 41 20 20 50 D L F A P
003D70: 54 53 20 22 70 61 24 28 31 29 3A 46 4F 52 20 6E TS "pa$(1):FOR n
003D80: 3D 20 31 20 54 4F 20 32 30 3A 50 52 49 4E 54 20 = 1 TO 20:PRINT
003D90: 54 41 42 28 32 29 3B 70 61 24 28 31 2B 36 2A 41 TAB(2);pa$(1+6*A
003DA0: 42 53 28 74 24 28 6E 29 3D 7A 24 29 29 3B 55 53 BS(t$(n)=z$));US
003DB0: 49 4E 47 22 23 23 22 3B 6E 3B 3A 50 52 49 4E 54 ING"##";n;:PRINT
003DC0: 20 54 41 42 28 35 29 3B 74 24 28 6E 29 3B 54 41 TAB(5);t$(n);TA
003DD0: 42 28 31 36 29 3B 55 53 49 4E 47 22 23 23 22 3B B(16);USING"##";
003DE0: 70 28 6E 29 3B 3A 50 52 49 4E 54 20 22 20 22 3B p(n);:PRINT " ";
003DF0: 55 53 49 4E 47 22 23 23 22 3B 77 28 6E 29 3B 0D USING"##";w(n);.
003E00: 0A 31 30 30 33 20 50 52 49 4E 54 20 22 20 22 3B .1003 PRINT " ";
003E10: 55 53 49 4E 47 22 23 23 22 3B 64 28 6E 29 3B 3A USING"##";d(n);:
003E20: 50 52 49 4E 54 20 22 20 22 3B 55 53 49 4E 47 22 PRINT " ";USING"
003E30: 23 23 22 3B 70 28 6E 29 2D 28 77 28 6E 29 2B 64 ##";p(n)-(w(n)+d
003E40: 28 6E 29 29 3B 3A 50 52 49 4E 54 20 22 20 22 3B (n));:PRINT " ";
003E50: 55 53 49 4E 47 22 23 23 23 22 3B 66 28 31 2C 6E USING"###";f(1,n
003E60: 29 3B 3A 50 52 49 4E 54 20 22 20 22 3B 55 53 49 );:PRINT " ";USI
003E70: 4E 47 22 23 23 23 22 3B 66 28 32 2C 6E 29 3B 3A NG"###";f(2,n);:
003E80: 50 52 49 4E 54 20 22 20 22 3B 28 77 28 6E 29 2A PRINT " ";(w(n)*
003E90: 70 74 73 2B 64 28 6E 29 29 3B 3A 50 52 49 4E 54 pts+d(n));:PRINT
003EA0: 20 70 61 24 28 31 29 3B 3A 4E 45 58 54 3A 52 45 pa$(1);:NEXT:RE
003EB0: 54 55 52 4E 0D 0A 31 30 30 34 20 47 4F 53 55 42 TURN..1004 GOSUB
003EC0: 20 38 34 38 3A 47 4F 54 4F 20 31 30 30 34 0D 0A 848:GOTO 1004..
003ED0: 1A 3B 0D 00 00 E6 28 0F 2C 0D 00 00 EE 29 3B 00 .;....(.,....);.
003EE0: 49 00 EB 03 BF 20 22 20 22 3B ED 22 23 23 23 22 I.... " ";."###"
003EF0: 3B 0D 00 00 E6 28 10 2C 0D 00 00 EE 29 3B 01 BF ;....(.,....);..
003F00: 00 46 44 4D 41 49 4E 20 20 42 41 53 00 00 00 00 .FDMAIN BAS....
003F10: 00 00 01 00 00 70 01 00 AA 4B 00 00 00 00 00 00 .....p...K......
003F20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003F30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003F40: AA 4B 00 21 05 AB 4D 04 C3 6D A9 1F E1 9B DF 00 .K.!..M..m......
003F50: 35 82 3B 62 D5 E8 64 1A 51 DE 54 8F 21 9F 52 C1 5.;b..d.Q.T.!.R.
003F60: 83 DD 4A 53 89 FA 60 0C F1 D0 6A 5D E4 B7 F3 19 ..JS..`...j]....
003F70: 2C 0D 00 00 EB 29 EF 0F 01 9F 20 1E 31 03 01 0D ,....).... .1...
003F80: BF 2C EC EA D2 17 23 02 26 F3 66 C5 3B D5 CD D5 .,....#.&.f.;...
003F90: 1A 7C 02 11 6B 59 89 21 EC 5A D2 7C 22 31 67 30 .|..kY.!.Z.|"1g0
003FA0: D3 E7 F5 1F 7A 82 97 E5 BA F3 03 CB 8A 67 E9 65 ....z........g.e
003FB0: 1D A6 4E A0 CA ED D5 A6 FC 36 C8 77 8D DE 52 90 ..N......6.w..R.
003FC0: 92 BE F4 48 41 D7 69 52 E4 B7 8A E8 DB E1 52 35 ...HA.iR......R5
003FD0: 0B 39 5C 2F FD 01 A5 0C 35 D4 A5 1D B2 66 3F 7F .9\/....5....f?.
003FE0: 2D 23 2C FA 1A C3 DB 51 D4 96 F1 32 B5 EA 71 C7 -#,....Q...2..q.
003FF0: 84 BE BF 99 AC 37 F3 C3 59 2B 8E 23 24 9C 52 B5 .....7..Y+.#$.R.
004000: BA 2D 52 C9 7D 36 A1 CC 96 DF 7A 76 02 6D 82 FA .-R.}6....zv.m..
004010: 24 A8 23 04 DE E6 AC 30 5F 41 CF 83 DD 5D 0F 5E $.#....0_A...].^
004020: 26 A7 0F F0 60 11 AD 5D 9E F2 B3 A9 C1 A8 FD 43 &...`..].......C
004030: E8 ED B3 4F C4 A4 DA 73 4C 3F EA F9 81 C3 BA 6D ...O...sL?.....m
004040: FE 6D BA 9F 04 A4 2E 27 F1 99 E9 89 10 E3 70 BA .m.....'......p.
004050: 07 37 5C 2F 7E 8B C4 D9 F1 E3 95 13 12 E5 11 68 .7\/~..........h
004060: 01 4E C2 14 79 86 5E 84 43 BB D2 23 77 C0 70 77 .N..y.^.C..#w.pw
004070: E8 53 D0 AE A4 D1 BF EB F0 6C 98 07 36 3C F8 9B .S.......l..6<..
004080: AB 2C 83 06 83 38 1F 16 BB D2 7A 0C 56 23 82 FB .,...8....z.V#..
004090: 24 B8 23 1C DF 59 E1 CD 9C 75 EC 79 FD 3D 6A 30 $.#..Y...u.y.=j0
0040A0: BE 77 ED FE 40 97 B4 E9 B7 F3 6D 44 8F 87 D0 B9 .w..@.....mD....
0040B0: C8 83 43 A0 A7 7D DE 5D D3 E3 E9 E5 AD C0 D4 81 ..C..}.]........
0040C0: 7C 07 F4 90 0C BF 07 27 AD 63 01 87 8F 28 73 14 |......'.c...(s.
0040D0: 0B 17 4D 03 10 EE AA 41 BC 9A 49 3A AA CE 35 68 ..M....A..I:..5h
0040E0: 3C 20 25 FA C8 86 96 B5 D0 98 F1 32 36 A6 1E 82 < %........26...
0040F0: AD 2F B2 72 8D 69 95 CF F0 0B FB FF D9 93 F8 6C ./.r.i.........l
004100: F3 F4 0D 00 00 E4 28 0D 00 00 EE 29 29 3B 01 BF ......(....));..
004110: 20 03 00 00 70 E1 28 0F 29 3B 01 B0 01 C9 00 10 ...p.(.);......
004120: 00 EC 03 9F 20 1E 50 03 01 A0 20 1E EC 03 00 00 .... .P... .....
004130: 00 1A EC 03 00 00 00 1A 00 00 00 00 00 00 00 00 ................
004140: 72 01 00 3F 03 BF 20 22 20 22 3B ED 22 23 23 23 r..?.. " ";."###
004150: 22 3B 0D 00 00 E6 28 0F 2C 0D 00 00 EE 29 3B 00 ";....(.,....);.
004160: 49 00 EB 03 BF 20 22 20 22 3B ED 22 23 23 23 22 I.... " ";."###"
004170: 3B 0D 00 00 E6 28 10 2C 0D 00 00 EE 29 3B 01 BF ;....(.,....);..
004180: 10 00 E9 03 9F 20 1E EA 03 01 A0 20 1E EC 03 00 ..... ..... ....
004190: D7 00 EA 03 8A 01 BF 20 EA 28 11 29 3B 22 44 49 ....... .(.);"DI
0041A0: 56 20 22 ED 22 23 22 3B 0D 00 00 61 F0 3B 01 BF V "."#";...a.;..
0041B0: 20 EA 28 19 10 29 3B 03 00 00 70 E1 28 11 29 3B .(..);...p.(.);
0041C0: 22 20 50 20 20 57 20 20 44 20 20 4C 20 20 20 46 " P W D L F
0041D0: 20 20 20 41 20 20 50 54 53 20 22 03 00 00 70 E1 A PTS "...p.
0041E0: 28 0F 29 01 9E 20 0D 00 00 EE EF 20 0F 20 EC 20 (.).. ..... . .
0041F0: 19 14 01 BF 20 EA 28 10 29 3B 03 00 00 70 E1 28 .... .(.);...p.(
004200: 0F F4 14 F6 FF 00 28 03 00 00 F4 28 0D 00 00 EE ......(....(....
004210: 29 EF 03 00 00 FA 29 29 3B ED 22 23 23 22 3B 0D ).....));."##";.
004220: 00 00 EE 3B 01 BF 20 EA 28 13 29 3B 03 00 00 F4 ...;.. .(.);....
004230: 28 0D 00 00 EE 29 3B EA 28 19 10 29 3B ED 22 23 (....);.(..);."#
004240: 23 22 3B 0D 00 00 F0 28 0D 00 00 EE 29 3B 01 BF #";....(....);..
004250: 20 22 20 22 3B ED 22 23 23 22 3B 0D 00 00 F7 28 " ";."##";....(
004260: 0D 00 00 EE 29 3B 00 B8 00 EB 03 BF 20 22 20 22 ....);...... " "
004270: 3B ED 22 23 23 22 3B 0D 00 00 E4 28 0D 00 00 EE ;."##";....(....
004280: 29 3B 01 BF 20 22 20 22 3B ED 22 23 23 22 3B 0D );.. " ";."##";.
004290: 00 00 F0 28 0D 00 00 EE 29 F5 28 0D 00 00 F7 28 ...(....).(....(
0042A0: 0D 00 00 EE 29 F4 0D 00 00 E4 28 0D 00 00 EE 29 ....).....(....)
0042B0: 29 3B 01 BF 20 22 20 22 3B ED 22 23 23 23 22 3B );.. " ";."###";
0042C0: 0D 00 00 E6 28 0F 2C 0D 00 00 EE 29 3B 01 BF 20 ....(.,....);..
0042D0: 22 20 22 3B ED 22 23 23 23 22 3B 0D 00 00 E6 28 " ";."###";....(
0042E0: 10 2C 0D 00 00 EE 29 3B 01 BF 20 22 20 22 3B 28 .,....);.. " ";(
0042F0: 0D 00 00 F7 28 0D 00 00 EE 29 F6 0D 00 00 70 74 ....(....)....pt
004300: 8B 21 ED EA 0F DE D1 F5 88 FF 91 2C 84 F4 4E E4 .!.........,..N.
004310: 28 47 03 11 B2 3C E1 D4 5B 63 C1 AA DD 04 6A 3A (G...<..[c....j:
004320: D3 2E 22 FD 60 6B FA 07 58 FD 23 52 40 85 F0 43 ..".`k..X.#R@..C
004330: 87 7F AC AE EA 6F 11 EC D3 3C D8 C4 AE C0 BA 1D .....o...<......
004340: 72 20 C5 43 17 B1 07 27 AD FC 80 7C 87 DA 5D 82 r .C...'...|..].
004350: 2B 78 5C 24 13 ED AA 2C 94 B1 F2 C7 9B DC 13 41 +x\$...,.......A
004360: EE 23 2C FA 3A E3 FB 71 D4 82 FE 1B AF 3C 69 5F .#,.:..q.....<i_
004370: 88 36 BE 14 55 E1 B4 63 D0 06 98 0F 59 64 36 98 .6..U..c....Yd6.
004380: 8B C7 CD 55 4C 14 2E C0 98 DF 7A 5C FA FC 62 DC ...UL.....z\..b.
004390: 3F 47 03 11 B2 3C E1 D4 5B 63 C3 AA DD 1F 6A 3F ?G...<..[c....j?
0043A0: D3 0C 22 EC 63 D0 95 7A 97 FE 03 A8 1A B1 49 AC ..".c..z......I.
0043B0: E7 AE AF 80 D3 8B 30 50 F3 1F A4 8D C3 35 92 60 ......0P.....5.`
0043C0: 93 08 AE 53 95 9B E8 05 E2 98 5E 89 9B C3 45 AB ...S......^...E.
0043D0: 28 34 5C 46 FD 01 88 0E D8 22 9C 11 B3 C5 75 86 (4\F....."....u.
0043E0: EE 02 0E FB E8 86 AB A4 06 9A 24 33 58 C3 70 93 ..........$3X.p.
0043F0: 6A 35 BE 5B E5 26 B4 7D D0 F4 9B 27 23 B4 E3 96 j5.[.&.}...'#...
004400: E9 2C F5 EA CD 17 3C EC 9B 3B 95 2E 0A F6 4D 0F .,....<..;....M.
004410: 24 49 03 11 B0 A0 61 2F 53 91 EC 80 DD 30 8E DF $I....a/S....0..
004420: F1 EC 20 F1 6D 6B 94 8B 4E 1C 0E A8 60 E7 09 B6 .. .mk..N...`...
004430: E7 8F 4E A0 CA EC C6 BC E9 F1 CA E9 0D E0 A4 EB ..N.............
004440: 90 08 CB 6A 35 B2 A6 07 C3 99 EE 6D 40 E1 15 89 ...j5......m@...
004450: C0 14 5F 2F 13 0A 45 0E E8 D6 BD B2 93 DB 9A 6B .._/..E........k
004460: 01 0A 2C E0 77 07 95 A7 FC 9B 15 DD 79 8F 52 57 ..,.w.......y.RW
004470: 7F 16 B3 5B 8C AB 45 2D FE 2B 73 2F 35 9D D8 72 ...[..E-.+s/5..r
004480: 44 0E DF C8 6D 97 1F F2 1D DC 7A 13 3B CF 6D 54 D...m.....z.;.mT
004490: 24 47 03 11 3B B6 AD 62 51 91 EC 80 DD 30 8E DF $G..;..bQ....0..
0044A0: F1 BC 20 F1 C0 4B 8A 62 B4 F3 1C A8 7C 88 51 63 .. ..K.b....|.Qc
0044B0: EB 8E 43 44 25 A6 65 71 18 3F CA E8 AD 24 55 4F ..CD%.eq.?...$UO
0044C0: A6 2A D5 CA 0C AC 81 24 C0 86 EE 94 AF 62 73 A8 .*.....$.....bs.
0044D0: 2B 34 B8 C0 31 AC 88 C7 F9 F7 BC 12 57 2A 3E 5E +4..1.......W*>^
0044E0: 23 21 8C DA 69 20 B6 A4 E3 9B EF 32 FA E3 73 77 #!..i .....2..sw
0044F0: 85 D2 51 79 C5 EA 5E E2 F3 0B 98 EB D9 BF EF B4 ..Qy..^.........
004500: 31 30 30 31 20 43 4C 53 3A 49 46 20 41 41 41 3D 1001 CLS:IF AAA=
004510: 31 20 54 48 45 4E 20 4C 4F 43 41 54 45 20 31 32 1 THEN LOCATE 12
004520: 2C 31 32 3A 50 52 49 4E 54 20 22 4E 4F 20 47 41 ,12:PRINT "NO GA
004530: 4D 45 20 54 48 49 53 20 57 45 45 4B 20 22 2C 54 ME THIS WEEK ",T
004540: 41 42 28 31 32 29 3B 22 44 55 45 20 54 4F 20 43 AB(12);"DUE TO C
004550: 55 50 20 4D 41 54 43 48 45 53 22 3A 47 4F 54 4F UP MATCHES":GOTO
004560: 20 31 30 31 34 0D 0A 31 30 30 32 20 47 4F 53 55 1014..1002 GOSU
004570: 42 20 38 35 38 3A 4C 4F 43 41 54 45 20 37 2C 33 B 858:LOCATE 7,3
004580: 3A 50 52 49 4E 54 20 5A 24 3A 49 46 20 43 50 3D :PRINT Z$:IF CP=
004590: 30 20 54 48 45 4E 20 31 30 30 34 0D 0A 31 30 30 0 THEN 1004..100
0045A0: 33 20 4C 4F 43 41 54 45 20 31 33 2C 31 37 3A 42 3 LOCATE 13,17:B
0045B0: 4B 3D 32 3A 53 24 3D 4B 24 3A 50 52 49 4E 54 20 K=2:S$=K$:PRINT
0045C0: 22 45 55 52 4F 50 45 41 4E 20 46 52 49 45 4E 44 "EUROPEAN FRIEND
0045D0: 4C 59 22 3A 47 4F 54 4F 20 31 30 30 39 0D 0A 31 LY":GOTO 1009..1
0045E0: 30 30 34 20 49 46 20 43 51 3D 30 20 54 48 45 4E 004 IF CQ=0 THEN
0045F0: 20 31 30 30 36 0D 0A 31 30 30 35 20 53 24 3D 4B 1006..1005 S$=K
004600: 24 3A 47 4F 54 4F 20 31 30 30 39 0D 0A 31 30 30 $:GOTO 1009..100
004610: 36 20 49 46 20 43 56 3D 30 20 54 48 45 4E 20 31 6 IF CV=0 THEN 1
004620: 30 30 38 0D 0A 31 30 30 37 20 53 24 3D 42 24 3A 008..1007 S$=B$:
004630: 47 4F 54 4F 20 31 30 30 39 0D 0A 31 30 30 38 20 GOTO 1009..1008
004640: 56 3D 56 2B 41 42 53 28 59 24 28 56 29 3D 5A 24 V=V+ABS(Y$(V)=Z$
004650: 29 3A 53 24 3D 59 24 28 56 29 0D 0A 31 30 30 39 ):S$=Y$(V)..1009
004660: 20 47 4F 53 55 42 20 34 35 3A 4C 4F 43 41 54 45 GOSUB 45:LOCATE
004670: 20 31 35 2C 33 3A 50 52 49 4E 54 20 22 20 20 20 15,3:PRINT "
004680: 22 3B 54 41 42 28 33 33 29 3B 22 20 20 20 22 3B ";TAB(33);" ";
004690: 3A 4C 4F 43 41 54 45 20 37 2C 33 3A 50 52 49 4E :LOCATE 7,3:PRIN
0046A0: 54 20 70 61 24 28 33 29 3B 5A 24 3B 70 61 24 28 T pa$(3);Z$;pa$(
0046B0: 31 29 3B 54 41 42 28 32 36 29 3B 70 61 24 28 32 1);TAB(26);pa$(2
0046C0: 29 3B 53 24 3B 70 61 24 28 31 29 3A 4D 48 3D 41 );S$;pa$(1):MH=A
0046D0: 53 43 28 4D 49 44 24 28 53 24 2C 31 2C 31 29 29 SC(MID$(S$,1,1))
0046E0: 3A 4D 49 3D 41 53 43 28 4D 49 44 24 28 53 24 2C :MI=ASC(MID$(S$,
0046F0: 32 2C 31 29 29 3A 4D 47 3D 41 53 43 28 4D 49 44 2,1)):MG=ASC(MID
004700: 31 30 30 31 20 43 48 41 49 4E 20 4D 45 52 47 45 1001 CHAIN MERGE
004710: 20 22 31 33 22 2C 31 30 30 32 0D 0A 31 30 30 32 "13",1002..1002
004720: 20 42 4F 52 44 45 52 20 39 3A 43 4C 53 3A 50 52 BORDER 9:CLS:PR
004730: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 50 4F 53 INT TAB(15);"POS
004740: 54 50 4F 4E 4D 45 4E 54 53 22 3A 45 56 3D 33 3A TPONMENTS":EV=3:
004750: 46 4F 52 20 49 3D 31 20 54 4F 20 31 38 3A 20 49 FOR I=1 TO 18: I
004760: 46 20 4E 28 31 2C 49 29 3D 30 20 54 48 45 4E 20 F N(1,I)=0 THEN
004770: 31 30 30 35 0D 0A 31 30 30 33 20 4C 4F 43 41 54 1005..1003 LOCAT
004780: 45 20 39 2C 45 56 3A 50 52 49 4E 54 20 59 24 28 E 9,EV:PRINT Y$(
004790: 4E 28 31 2C 49 29 29 3B 54 41 42 28 32 34 29 3B N(1,I));TAB(24);
0047A0: 59 24 28 4E 28 32 2C 49 29 29 3A 49 46 20 43 4A Y$(N(2,I)):IF CJ
0047B0: 3D 30 20 54 48 45 4E 20 47 4F 53 55 42 20 31 30 =0 THEN GOSUB 10
0047C0: 30 36 0D 0A 31 30 30 34 20 45 56 3D 45 56 2B 31 06..1004 EV=EV+1
0047D0: 0D 0A 31 30 30 35 20 4E 45 58 54 3A 47 4F 54 4F ..1005 NEXT:GOTO
0047E0: 20 31 30 30 37 0D 0A 31 30 30 36 20 52 3D 31 2B 1007..1006 R=1+
0047F0: 49 4E 54 20 28 52 4E 44 2A 39 29 2D 35 3A 52 3D INT (RND*9)-5:R=
004800: 52 2D 28 52 3C 30 29 2A 41 42 53 28 52 29 3A 53 R-(R<0)*ABS(R):S
004810: 3D 31 2B 49 4E 54 28 52 4E 44 2A 38 29 2D 35 3A =1+INT(RND*8)-5:
004820: 53 3D 53 2B 41 42 53 28 53 3C 30 29 2A 41 42 53 S=S+ABS(S<0)*ABS
004830: 28 53 29 3A 52 24 3D 59 24 28 4E 28 31 2C 49 29 (S):R$=Y$(N(1,I)
004840: 29 3A 53 24 3D 59 24 28 4E 28 32 2C 49 29 29 3A ):S$=Y$(N(2,I)):
004850: 4C 4F 43 41 54 45 20 31 38 2C 45 56 3A 50 52 49 LOCATE 18,EV:PRI
004860: 4E 54 20 52 3B 54 41 42 28 32 31 29 3B 53 3A 47 NT R;TAB(21);S:G
004870: 4F 53 55 42 20 31 30 35 31 3A 52 45 54 55 52 4E OSUB 1051:RETURN
004880: 0D 0A 31 30 30 37 20 49 46 20 43 4A 3D 30 20 54 ..1007 IF CJ=0 T
004890: 48 45 4E 20 47 4F 53 55 42 20 38 39 31 3A 47 4F HEN GOSUB 891:GO
0048A0: 53 55 42 20 31 30 35 37 3A 43 48 41 49 4E 20 4D SUB 1057:CHAIN M
0048B0: 45 52 47 45 22 35 22 2C 35 37 39 0D 0A 31 30 30 ERGE"5",579..100
0048C0: 38 20 4C 4F 43 41 54 45 20 31 37 2C 32 32 3A 50 8 LOCATE 17,22:P
0048D0: 52 49 4E 54 20 70 61 24 28 32 29 22 20 4D 45 4E RINT pa$(2)" MEN
0048E0: 55 20 22 3B 70 61 24 28 31 29 3A 47 4F 53 55 42 U ";pa$(1):GOSUB
0048F0: 20 36 34 30 30 30 3A 49 46 20 49 4E 24 3D 22 4D 64000:IF IN$="M
004900: 24 28 53 24 2C 33 2C 31 29 29 3A 52 41 3D 49 4E $(S$,3,1)):RA=IN
004910: 54 28 4D 48 2F 31 30 29 3A 4D 48 3D 4D 48 2D 28 T(MH/10):MH=MH-(
004920: 52 41 2A 31 30 29 3A 4D 48 3D 4D 48 2B 28 4D 48 RA*10):MH=MH+(MH
004930: 3E 37 29 2A 28 4D 48 2D 31 29 3A 47 4F 53 55 42 >7)*(MH-1):GOSUB
004940: 20 31 30 33 37 0D 0A 31 30 31 30 20 47 4F 53 55 1037..1010 GOSU
004950: 42 20 31 30 33 38 3A 49 46 20 43 50 3D 30 20 41 B 1038:IF CP=0 A
004960: 4E 44 20 43 56 3D 30 20 41 4E 44 20 43 51 3D 30 ND CV=0 AND CQ=0
004970: 20 54 48 45 4E 20 31 30 31 31 20 45 4C 53 45 20 THEN 1011 ELSE
004980: 31 30 31 32 0D 0A 31 30 31 31 20 47 4F 53 55 42 1012..1011 GOSUB
004990: 20 34 31 36 3A 4C 4F 43 41 54 45 20 31 36 2C 31 416:LOCATE 16,1
0049A0: 36 3A 50 52 49 4E 54 20 50 41 24 28 33 29 3B 22 6:PRINT PA$(3);"
0049B0: 20 4C 4D 54 47 20 22 3B 55 53 49 4E 47 20 22 23 LMTG ";USING "#
0049C0: 23 22 3B 43 4A 3B 3A 50 52 49 4E 54 20 22 20 22 #";CJ;:PRINT " "
0049D0: 3B 50 41 24 28 31 29 3A 4C 4F 43 41 54 45 20 35 ;PA$(1):LOCATE 5
0049E0: 2C 31 38 3A 50 52 49 4E 54 20 50 41 24 28 33 29 ,18:PRINT PA$(3)
0049F0: 3B 22 4C 45 41 47 55 45 20 50 4F 53 20 22 3B 50 ;"LEAGUE POS ";P
004A00: 41 24 28 31 29 3B 55 53 49 4E 47 20 22 23 23 22 A$(1);USING "##"
004A10: 3B 41 47 3A 4C 4F 43 41 54 45 20 32 34 2C 31 38 ;AG:LOCATE 24,18
004A20: 3A 50 52 49 4E 54 20 50 41 24 28 32 29 3B 22 4C :PRINT PA$(2);"L
004A30: 45 41 47 55 45 20 50 4F 53 20 22 3B 50 41 24 28 EAGUE POS ";PA$(
004A40: 31 29 3B 55 53 49 4E 47 20 22 23 23 22 3B 4D 4E 1);USING "##";MN
004A50: 0D 0A 31 30 31 32 20 49 46 20 43 51 3D 31 20 54 ..1012 IF CQ=1 T
004A60: 48 45 4E 20 47 4F 53 55 42 20 31 30 31 39 3A 47 HEN GOSUB 1019:G
004A70: 4F 53 55 42 20 34 35 0D 0A 31 30 31 33 20 49 46 OSUB 45..1013 IF
004A80: 20 43 56 3D 31 20 54 48 45 4E 20 47 4F 53 55 42 CV=1 THEN GOSUB
004A90: 20 31 30 31 36 0D 0A 31 30 31 34 20 47 4F 53 55 1016..1014 GOSU
004AA0: 42 20 38 34 38 3A 47 4F 54 4F 20 31 30 31 34 0D B 848:GOTO 1014.
004AB0: 0A 31 30 31 35 20 4C 4F 43 41 54 45 20 35 2C 31 .1015 LOCATE 5,1
004AC0: 35 3A 50 52 49 4E 54 20 50 41 24 28 33 29 3B 22 5:PRINT PA$(3);"
004AD0: 54 45 4D 50 45 52 20 22 3B 50 41 24 28 31 29 3B TEMPER ";PA$(1);
004AE0: 55 53 49 4E 47 22 23 23 23 22 3B 50 55 3B 3A 50 USING"###";PU;:P
004AF0: 52 49 4E 54 20 54 41 42 28 32 34 29 3B 50 41 24 RINT TAB(24);PA$
004B00: 22 20 54 48 45 4E 20 39 30 30 20 45 4C 53 45 20 " THEN 900 ELSE
004B10: 31 30 30 38 0D 0A 1A 7B 03 01 9F 20 1E 21 04 01 1008...{... .!..
004B20: 85 20 AB 22 35 22 2C 1A 43 02 00 47 00 F0 03 A9 . ."5",.C..G....
004B30: 20 19 11 2C 19 16 01 BF 20 03 00 00 70 E1 28 10 ..,.... ...p.(.
004B40: 29 22 20 4D 45 4E 55 20 22 3B 03 00 00 70 E1 28 )" MENU ";...p.(
004B50: 0F 29 01 9F 20 1E 00 FA 01 A1 20 03 00 00 49 CE .).. ..... ...I.
004B60: EF 22 4D 22 20 EB 20 1E 84 03 20 01 97 20 1E F0 ."M" . ... .. ..
004B70: 03 00 00 00 1A 1A 1A 31 30 30 33 20 4C 4F 43 41 .......1003 LOCA
004B80: 45 20 39 2C 45 56 3A 50 52 49 4E 54 20 59 24 28 E 9,EV:PRINT Y$(
004B90: 4E 28 31 2C 49 29 29 3B 54 41 42 28 32 34 29 3B N(1,I));TAB(24);
004BA0: 59 24 28 4E 28 32 2C 49 29 29 3A 49 46 20 43 4A Y$(N(2,I)):IF CJ
004BB0: 3D 30 20 54 48 45 4E 20 47 4F 53 55 42 20 31 30 =0 THEN GOSUB 10
004BC0: 30 36 0D 0A 31 30 30 34 20 45 56 3D 45 56 2B 31 06..1004 EV=EV+1
004BD0: 0D 0A 31 30 30 35 20 4E 45 58 54 3A 47 4F 54 4F ..1005 NEXT:GOTO
004BE0: 20 31 30 30 37 0D 0A 31 30 30 36 20 52 3D 31 2B 1007..1006 R=1+
004BF0: 49 4E 54 20 28 52 4E 44 2A 39 29 2D 35 3A 52 3D INT (RND*9)-5:R=
004C00: 52 2D 28 52 3C 30 29 2A 41 42 53 28 52 29 3A 53 R-(R<0)*ABS(R):S
004C10: 3D 31 2B 49 4E 54 28 52 4E 44 2A 38 29 2D 35 3A =1+INT(RND*8)-5:
004C20: 53 3D 53 2B 41 42 53 28 53 3C 30 29 2A 41 42 53 S=S+ABS(S<0)*ABS
004C30: 28 53 29 3A 52 24 3D 59 24 28 4E 28 31 2C 49 29 (S):R$=Y$(N(1,I)
004C40: 29 3A 53 24 3D 59 24 28 4E 28 32 2C 49 29 29 3A ):S$=Y$(N(2,I)):
004C50: 4C 4F 43 41 54 45 20 31 38 2C 45 56 3A 50 52 49 LOCATE 18,EV:PRI
004C60: 4E 54 20 52 3B 54 41 42 28 32 31 29 3B 53 3A 47 NT R;TAB(21);S:G
004C70: 4F 53 55 42 20 31 30 35 31 3A 52 45 54 55 52 4E OSUB 1051:RETURN
004C80: 0D 0A 31 30 30 37 20 49 46 20 43 4A 3D 30 20 54 ..1007 IF CJ=0 T
004C90: 48 45 4E 20 47 4F 53 55 42 20 38 39 31 3A 47 4F HEN GOSUB 891:GO
004CA0: 53 55 42 20 31 30 35 37 3A 43 48 41 49 4E 20 4D SUB 1057:CHAIN M
004CB0: 45 52 47 45 22 35 22 2C 35 37 39 0D 0A 31 30 30 ERGE"5",579..100
004CC0: 38 20 4C 4F 43 41 54 45 20 31 37 2C 32 32 3A 50 8 LOCATE 17,22:P
004CD0: 52 49 4E 54 20 70 61 24 28 32 29 22 20 4D 45 4E RINT pa$(2)" MEN
004CE0: 55 20 22 3B 70 61 24 28 31 29 3A 47 4F 53 55 42 U ";pa$(1):GOSUB
004CF0: 20 36 34 30 30 30 3A 49 46 20 49 4E 24 3D 22 4D 64000:IF IN$="M
004D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
004D10: 04 00 01 00 02 09 4E E5 04 00 41 02 00 00 00 02 ......N...A.....
004D20: 04 00 46 02 00 00 00 02 04 00 42 02 00 00 00 02 ..F.......B.....
004D30: 04 00 47 02 00 00 00 02 04 00 43 02 00 00 00 02 ..G.......C.....
004D40: 04 00 48 02 00 00 00 02 04 00 44 02 00 00 00 02 ..H.......D.....
004D50: 04 00 49 02 00 00 00 02 04 00 45 02 00 00 00 02 ..I.......E.....
004D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004E00: 28 32 29 3B 22 54 45 4D 50 45 52 20 22 3B 50 41 (2);"TEMPER ";PA
004E10: 24 28 31 29 3B 55 53 49 4E 47 22 23 23 23 22 3B $(1);USING"###";
004E20: 50 56 3A 52 45 54 55 52 4E 0D 0A 31 30 31 36 20 PV:RETURN..1016
004E30: 46 4F 52 20 49 3D 31 32 20 54 4F 20 35 34 20 53 FOR I=12 TO 54 S
004E40: 54 45 50 20 37 3A 49 46 20 43 49 3D 49 20 54 48 TEP 7:IF CI=I TH
004E50: 45 4E 20 4C 4F 43 41 54 45 20 31 30 2C 31 37 3A EN LOCATE 10,17:
004E60: 50 52 49 4E 54 20 22 4C 45 41 47 55 45 22 3B 54 PRINT "LEAGUE";T
004E70: 41 42 28 32 37 29 3B 55 53 49 4E 47 22 23 23 22 AB(27);USING"##"
004E80: 3B 43 54 3A 47 4F 54 4F 20 31 30 32 38 0D 0A 31 ;CT:GOTO 1028..1
004E90: 30 31 37 20 4E 45 58 54 3A 46 4F 52 20 49 3D 31 017 NEXT:FOR I=1
004EA0: 36 20 54 4F 20 35 38 20 53 54 45 50 20 37 3A 49 6 TO 58 STEP 7:I
004EB0: 46 20 43 49 3D 49 20 54 48 45 4E 20 4C 4F 43 41 F CI=I THEN LOCA
004EC0: 54 45 20 31 34 2C 31 37 3A 50 52 49 4E 54 20 22 TE 14,17:PRINT "
004ED0: 46 41 22 3B 54 41 42 28 32 37 29 3B 55 53 49 4E FA";TAB(27);USIN
004EE0: 47 22 23 23 22 3B 43 52 3A 47 4F 54 4F 20 31 30 G"##";CR:GOTO 10
004EF0: 32 38 0D 0A 31 30 31 38 20 4E 45 58 54 3A 47 4F 28..1018 NEXT:GO
004F00: 54 4F 20 31 30 33 30 0D 0A 31 30 31 39 20 4A 45 TO 1030..1019 JE
004F10: 3D 49 4E 54 20 28 47 5A 2F 32 29 3A 4A 45 3D 4A =INT (GZ/2):JE=J
004F20: 45 2B 28 47 5A 3D 34 20 4F 52 20 47 5A 3D 36 20 E+(GZ=4 OR GZ=6
004F30: 4F 52 20 47 5A 3D 38 29 0D 0A 31 30 32 30 20 4C OR GZ=8)..1020 L
004F40: 4F 43 41 54 45 20 31 2C 31 37 3A 4F 4E 20 42 45 OCATE 1,17:ON BE
004F50: 2B 31 20 47 4F 54 4F 20 31 30 32 34 2C 31 30 32 +1 GOTO 1024,102
004F60: 33 2C 31 30 32 32 2C 31 30 32 31 0D 0A 31 30 32 3,1022,1021..102
004F70: 31 20 50 52 49 4E 54 20 54 41 42 28 31 31 29 3B 1 PRINT TAB(11);
004F80: 22 45 55 52 4F 50 45 41 4E 20 43 55 50 20 57 49 "EUROPEAN CUP WI
004F90: 4E 4E 45 52 53 22 3A 47 4F 54 4F 20 31 30 32 34 NNERS":GOTO 1024
004FA0: 0D 0A 31 30 32 32 20 50 52 49 4E 54 20 54 41 42 ..1022 PRINT TAB
004FB0: 28 31 37 29 3B 22 55 2E 45 2E 46 2E 41 2E 22 3A (17);"U.E.F.A.":
004FC0: 47 4F 54 4F 20 31 30 32 34 0D 0A 31 30 32 33 20 GOTO 1024..1023
004FD0: 50 52 49 4E 54 20 54 41 42 28 31 37 29 3B 22 45 PRINT TAB(17);"E
004FE0: 55 52 4F 50 45 41 4E 22 0D 0A 31 30 32 34 20 4C UROPEAN"..1024 L
004FF0: 4F 43 41 54 45 20 35 2C 32 30 3A 46 4F 52 20 49 OCATE 5,20:FOR I
005000: 61 69 2F 31 30 30 29 2A 32 30 3A 50 52 49 4E 54 ai/100)*20:PRINT
005010: 22 57 49 54 48 44 52 41 57 20 22 3B 3A 74 65 6D "WITHDRAW ";:tem
005020: 70 3D 72 61 3A 47 4F 53 55 42 20 36 34 35 30 30 p=ra:GOSUB 64500
005030: 3A 61 69 3D 49 4E 54 28 61 69 2D 72 61 29 3A 47 :ai=INT(ai-ra):G
005040: 4F 54 4F 20 39 30 30 0D 0A 1A 3B 01 0D 00 00 74 OTO 900...;....t
005050: 65 6D F0 EF 0D 00 00 72 E1 01 9F 20 1E F4 FB 01 em.....r... ....
005060: 0D 00 00 61 E9 EF FF 0C 28 0D 00 00 61 E9 F5 0D ...a....(...a...
005070: 00 00 72 E1 29 01 A0 20 1E 84 03 00 00 00 1A 1A ..r.).. ........
005080: 4E 45 59 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 NEY DO YOU WANT
005090: 46 52 4F 4D 22 2C 2C 2C 54 41 42 28 35 29 3B 22 FROM",,,TAB(5);"
0050A0: 54 48 45 20 44 49 52 45 43 54 4F 52 53 20 46 4F THE DIRECTORS FO
0050B0: 52 20 4E 45 57 20 50 4C 41 59 45 52 53 3F 22 0D R NEW PLAYERS?".
0050C0: 0A 31 30 30 33 20 4C 4F 43 41 54 45 20 31 38 2C .1003 LOCATE 18,
0050D0: 31 34 3A 50 52 49 4E 54 20 43 48 52 24 28 31 36 14:PRINT CHR$(16
0050E0: 33 29 3B 3A 49 4E 50 55 54 20 7A 61 3A 75 61 3D 3);:INPUT za:ua=
0050F0: 7A 61 3A 49 46 20 7A 61 3C 31 20 54 48 45 4E 20 za:IF za<1 THEN
005100: 31 30 30 33 0D 0A 31 30 30 34 20 4C 4F 43 41 54 1003..1004 LOCAT
005110: 45 20 35 2C 31 39 3A 50 52 49 4E 54 22 59 4F 55 E 5,19:PRINT"YOU
005120: 52 20 44 49 52 45 43 54 4F 52 53 20 22 3B 3A 49 R DIRECTORS ";:I
005130: 46 20 61 69 3E 35 30 30 30 30 20 54 48 45 4E 20 F ai>50000 THEN
005140: 31 30 30 37 0D 0A 31 30 30 35 20 72 61 3D 32 30 1007..1005 ra=20
005150: 30 30 30 30 2B 49 4E 54 28 52 4E 44 2A 34 38 30 0000+INT(RND*480
005160: 30 30 30 29 3A 72 62 3D 31 2B 49 4E 54 28 52 4E 000):rb=1+INT(RN
005170: 44 2A 33 29 3A 72 61 3D 72 61 2F 61 70 3A 49 46 D*3):ra=ra/ap:IF
005180: 20 72 61 2F 72 62 3E 75 61 20 54 48 45 4E 20 50 ra/rb>ua THEN P
005190: 52 49 4E 54 22 41 47 52 45 45 22 3A 61 69 3D 61 RINT"AGREE":ai=a
0051A0: 69 2B 75 61 3A 47 4F 54 4F 20 39 30 30 0D 0A 31 i+ua:GOTO 900..1
0051B0: 30 30 36 20 50 52 49 4E 54 22 52 45 46 55 53 45 006 PRINT"REFUSE
0051C0: 22 3A 47 4F 54 4F 20 39 30 30 0D 0A 31 30 30 37 ":GOTO 900..1007
0051D0: 20 72 61 3D 31 2B 49 4E 54 28 52 4E 44 2A 33 29 ra=1+INT(RND*3)
0051E0: 3A 49 46 20 72 61 3C 33 20 54 48 45 4E 20 31 30 :IF ra<3 THEN 10
0051F0: 30 36 0D 0A 31 30 30 38 20 72 61 3D 49 4E 54 28 06..1008 ra=INT(
005200: 3D 33 20 54 4F 20 37 20 53 54 45 50 20 32 3A 49 =3 TO 7 STEP 2:I
005210: 46 20 49 3D 47 5A 20 54 48 45 4E 20 50 52 49 4E F I=GZ THEN PRIN
005220: 54 20 22 31 73 74 20 4C 45 47 22 3A 42 4B 3D 32 T "1st LEG":BK=2
005230: 3A 47 4F 54 4F 20 31 30 32 36 0D 0A 31 30 32 35 :GOTO 1026..1025
005240: 20 4E 45 58 54 3A 49 46 20 47 5A 3C 39 20 54 48 NEXT:IF GZ<9 TH
005250: 45 4E 20 50 52 49 4E 54 20 22 32 6E 64 20 4C 45 EN PRINT "2nd LE
005260: 47 22 3A 42 4B 3D 31 0D 0A 31 30 32 36 20 4C 4F G":BK=1..1026 LO
005270: 43 41 54 45 20 31 37 2C 31 38 3A 50 52 49 4E 54 CATE 17,18:PRINT
005280: 20 22 43 55 50 20 52 4F 55 4E 44 20 22 3B 55 53 "CUP ROUND ";US
005290: 49 4E 47 22 23 23 22 3B 4A 45 3A 47 4F 53 55 42 ING"##";JE:GOSUB
0052A0: 20 36 30 3A 4F 4E 20 4A 45 2D 31 2B 41 42 53 28 60:ON JE-1+ABS(
0052B0: 4A 45 3D 30 29 20 47 4F 54 4F 20 31 30 33 36 2C JE=0) GOTO 1036,
0052C0: 31 30 33 34 2C 31 30 33 33 0D 0A 31 30 32 37 20 1034,1033..1027
0052D0: 42 4B 3D 32 3A 4F 4E 20 4A 45 2D 31 2B 41 42 53 BK=2:ON JE-1+ABS
0052E0: 28 4A 45 3D 30 29 20 47 4F 54 4F 20 31 30 33 36 (JE=0) GOTO 1036
0052F0: 2C 31 30 33 34 2C 31 30 33 33 0D 0A 31 30 32 38 ,1034,1033..1028
005300: 20 4C 4F 43 41 54 45 20 31 37 2C 31 37 3A 50 52 LOCATE 17,17:PR
005310: 49 4E 54 20 22 43 55 50 20 52 4F 55 4E 44 22 0D INT "CUP ROUND".
005320: 0A 31 30 32 39 20 49 46 20 43 49 3C 3D 33 39 20 .1029 IF CI<=39
005330: 54 48 45 4E 20 31 30 33 30 20 45 4C 53 45 20 49 THEN 1030 ELSE I
005340: 46 20 43 49 3D 34 37 20 4F 52 20 43 49 3D 35 31 F CI=47 OR CI=51
005350: 20 54 48 45 4E 20 31 30 33 34 20 45 4C 53 45 20 THEN 1034 ELSE
005360: 49 46 20 43 49 3D 34 30 20 4F 52 20 43 49 3D 34 IF CI=40 OR CI=4
005370: 34 20 54 48 45 4E 20 31 30 33 35 20 45 4C 53 45 4 THEN 1035 ELSE
005380: 20 31 30 33 33 0D 0A 31 30 33 30 20 49 46 20 43 1033..1030 IF C
005390: 56 3D 31 20 54 48 45 4E 20 4C 4F 43 41 54 45 20 V=1 THEN LOCATE
0053A0: 32 34 2C 32 30 3A 50 52 49 4E 54 20 22 44 49 56 24,20:PRINT "DIV
0053B0: 49 53 49 4F 4E 20 22 3B 55 53 49 4E 47 22 23 22 ISION ";USING"#"
0053C0: 3B 43 53 3A 49 46 20 43 53 3D 35 20 54 48 45 4E ;CS:IF CS=5 THEN
0053D0: 20 4C 4F 43 41 54 45 20 33 33 2C 32 30 3A 50 52 LOCATE 33,20:PR
0053E0: 49 4E 54 22 4E 22 0D 0A 31 30 33 31 20 49 46 20 INT"N"..1031 IF
0053F0: 44 54 3D 31 20 54 48 45 4E 20 4C 4F 43 41 54 45 DT=1 THEN LOCATE
005400: 31 30 30 31 20 43 41 4C 4C 20 26 42 42 30 33 3A 1001 CALL &BB03:
005410: 43 57 3D 30 3A 43 4C 53 3A 50 52 49 4E 54 20 54 CW=0:CLS:PRINT T
005420: 41 42 28 31 37 29 3B 70 61 24 28 35 29 3B 5A 24 AB(17);pa$(5);Z$
005430: 3B 70 61 24 28 31 29 2C 2C 54 41 42 28 37 29 3B ;pa$(1),,TAB(7);
005440: 22 31 73 74 20 54 45 41 4D 22 3B 54 41 42 28 32 "1st TEAM";TAB(2
005450: 37 29 3B 22 52 45 53 45 52 56 45 53 22 0D 0A 31 7);"RESERVES"..1
005460: 30 30 32 20 45 56 3D 32 3A 49 41 3D 34 3A 49 43 002 EV=2:IA=4:IC
005470: 3D 32 3A 46 4F 52 20 49 3D 31 20 54 4F 20 32 30 =2:FOR I=1 TO 20
005480: 0D 0A 31 30 30 33 20 4C 4F 43 41 54 45 20 45 56 ..1003 LOCATE EV
005490: 2C 49 41 3A 50 52 49 4E 54 20 50 4F 31 53 24 28 ,IA:PRINT PO1S$(
0054A0: 54 28 49 29 29 3B 22 20 22 3B 55 53 49 4E 47 22 T(I));" ";USING"
0054B0: 23 23 22 3B 49 3B 3A 50 52 49 4E 54 20 22 20 22 ##";I;:PRINT " "
0054C0: 3B 50 41 24 28 31 2B 41 42 53 28 47 28 49 29 3C ;PA$(1+ABS(G(I)<
0054D0: 30 29 29 3B 56 24 28 49 29 3B 50 41 24 28 31 29 0));V$(I);PA$(1)
0054E0: 3B 49 4E 54 28 48 28 49 29 29 3B 43 48 52 24 28 ;INT(H(I));CHR$(
0054F0: 4A 28 49 29 29 3A 49 43 3D 49 43 2B 28 49 3D 39 J(I)):IC=IC+(I=9
005500: 29 3A 49 41 3D 49 41 2D 28 49 3D 31 31 29 2A 32 ):IA=IA-(I=11)*2
005510: 2B 28 49 3D 31 32 29 2A 31 34 3A 45 56 3D 45 56 +(I=12)*14:EV=EV
005520: 2B 41 42 53 28 49 3D 31 32 29 2A 31 39 3A 49 41 +ABS(I=12)*19:IA
005530: 3D 49 41 2B 31 3A 4E 45 58 54 0D 0A 31 30 30 34 =IA+1:NEXT..1004
005540: 20 4C 4F 43 41 54 45 20 31 31 2C 31 36 3A 50 52 LOCATE 11,16:PR
005550: 49 4E 54 20 70 61 24 28 33 29 3B 22 53 55 42 22 INT pa$(3);"SUB"
005560: 3B 70 61 24 28 31 29 3A 4C 4F 43 41 54 45 20 37 ;pa$(1):LOCATE 7
005570: 2C 32 30 3A 50 52 49 4E 54 22 4D 4F 52 41 4C 45 ,20:PRINT"MORALE
005580: 20 22 3B 28 4D 45 2F 31 30 29 3A 47 4F 53 55 42 ";(ME/10):GOSUB
005590: 20 38 39 30 0D 0A 31 30 30 35 20 4C 4F 43 41 54 890..1005 LOCAT
0055A0: 45 20 37 2C 31 39 3A 50 52 49 4E 54 20 70 61 24 E 7,19:PRINT pa$
0055B0: 28 32 29 3B 22 54 45 4D 50 45 52 20 22 3B 70 75 (2);"TEMPER ";pu
0055C0: 3B 70 61 24 28 31 29 3A 45 52 3D 31 34 3A 45 53 ;pa$(1):ER=14:ES
0055D0: 3D 32 33 3A 47 4F 53 55 42 20 34 30 0D 0A 31 30 =23:GOSUB 40..10
0055E0: 30 36 20 49 46 20 43 57 3D 31 20 4F 52 20 43 4A 06 IF CW=1 OR CJ
0055F0: 3D 30 20 54 48 45 4E 20 52 45 54 55 52 4E 20 0D =0 THEN RETURN .
005600: 20 31 37 2C 31 39 3A 50 52 49 4E 54 20 22 52 45 17,19:PRINT "RE
005610: 50 4C 41 59 22 0D 0A 31 30 33 32 20 52 45 54 55 PLAY"..1032 RETU
005620: 52 4E 20 0D 0A 31 30 33 33 20 4C 4F 43 41 54 45 RN ..1033 LOCATE
005630: 20 32 31 2C 31 37 2B 41 42 53 28 43 51 3D 31 29 21,17+ABS(CQ=1)
005640: 3A 50 52 49 4E 54 20 22 46 49 4E 41 4C 20 20 20 :PRINT "FINAL
005650: 20 20 22 3A 47 4F 54 4F 20 31 30 33 30 0D 0A 31 ":GOTO 1030..1
005660: 30 33 34 20 4C 4F 43 41 54 45 20 32 31 2C 31 37 034 LOCATE 21,17
005670: 2B 41 42 53 28 43 51 3D 31 29 3A 50 52 49 4E 54 +ABS(CQ=1):PRINT
005680: 20 22 53 45 4D 49 20 46 49 4E 41 4C 20 22 3A 47 "SEMI FINAL ":G
005690: 4F 54 4F 20 31 30 33 30 0D 0A 31 30 33 35 20 4C OTO 1030..1035 L
0056A0: 4F 43 41 54 45 20 32 31 2C 31 37 2B 41 42 53 28 OCATE 21,17+ABS(
0056B0: 43 51 3D 31 29 3A 50 52 49 4E 54 20 22 51 55 41 CQ=1):PRINT "QUA
0056C0: 52 54 45 52 20 46 49 4E 41 4C 20 22 0D 0A 31 30 RTER FINAL "..10
0056D0: 33 36 20 47 4F 54 4F 20 31 30 33 30 0D 0A 31 30 36 GOTO 1030..10
0056E0: 33 37 20 52 41 3D 49 4E 54 20 28 4D 49 2F 31 30 37 RA=INT (MI/10
0056F0: 29 3A 4D 49 3D 4D 49 2D 28 52 41 2A 31 30 29 3A ):MI=MI-(RA*10):
005700: 4D 49 3D 4D 49 2B 28 4D 49 3E 37 29 2A 4D 49 3A MI=MI+(MI>7)*MI:
005710: 4D 47 3D 49 4E 54 20 28 4D 47 2D 36 30 29 2F 36 MG=INT (MG-60)/6
005720: 3A 49 46 20 4D 47 3E 3D 31 20 54 48 45 4E 20 52 :IF MG>=1 THEN R
005730: 45 54 55 52 4E 20 45 4C 53 45 20 4D 47 3D 35 3A ETURN ELSE MG=5:
005740: 52 45 54 55 52 4E 0D 0A 31 30 33 38 20 4C 4F 43 RETURN..1038 LOC
005750: 41 54 45 20 33 34 2C 33 3A 45 52 3D 35 3A 45 53 ATE 34,3:ER=5:ES
005760: 3D 35 3A 47 4F 53 55 42 20 34 30 3A 50 52 49 4E =5:GOSUB 40:PRIN
005770: 54 20 70 61 24 28 33 29 3A 47 4F 53 55 42 20 34 T pa$(3):GOSUB 4
005780: 31 3A 4C 4F 43 41 54 45 20 35 2C 31 30 3A 50 52 1:LOCATE 5,10:PR
005790: 49 4E 54 20 70 61 24 28 33 29 3B 22 4D 4F 52 41 INT pa$(3);"MORA
0057A0: 4C 45 20 20 22 3B 70 61 24 28 31 29 3B 28 4D 45 LE ";pa$(1);(ME
0057B0: 2F 31 30 29 3A 45 53 3D 32 34 0D 0A 31 30 33 39 /10):ES=24..1039
0057C0: 20 47 4F 53 55 42 20 34 30 3A 50 52 49 4E 54 20 GOSUB 40:PRINT
0057D0: 50 41 24 28 32 29 3A 47 4F 53 55 42 20 34 31 3A PA$(2):GOSUB 41:
0057E0: 4C 4F 43 41 54 45 20 33 35 2C 35 3A 50 52 49 4E LOCATE 35,5:PRIN
0057F0: 54 20 50 41 24 28 36 29 3B 45 49 31 3A 4C 4F 43 T PA$(6);EI1:LOC
005800: 0A 31 30 30 37 20 43 4C 53 23 32 3A 50 41 50 45 .1007 CLS#2:PAPE
005810: 52 20 23 32 2C 33 3A 50 52 49 4E 54 23 32 2C 22 R #2,3:PRINT#2,"
005820: 4D 45 4E 55 20 43 48 41 4E 47 45 20 53 41 43 4B MENU CHANGE SACK
005830: 20 45 44 49 54 20 54 52 41 4E 20 46 49 45 4C 44 EDIT TRAN FIELD
005840: 22 3A 50 41 50 45 52 20 23 32 2C 30 0D 0A 31 30 ":PAPER #2,0..10
005850: 30 38 20 52 45 4D 20 0D 0A 31 30 30 39 20 47 4F 08 REM ..1009 GO
005860: 53 55 42 20 38 34 39 3A 49 46 20 49 4E 24 3D 22 SUB 849:IF IN$="
005870: 43 22 20 54 48 45 4E 20 31 30 31 30 20 45 4C 53 C" THEN 1010 ELS
005880: 45 20 49 46 20 49 4E 24 3D 22 45 22 54 48 45 4E E IF IN$="E"THEN
005890: 20 31 30 32 30 20 45 4C 53 45 20 49 46 20 49 4E 1020 ELSE IF IN
0058A0: 24 3D 22 54 22 20 54 48 45 4E 20 31 30 32 35 20 $="T" THEN 1025
0058B0: 45 4C 53 45 20 49 46 20 49 4E 24 3D 22 53 22 20 ELSE IF IN$="S"
0058C0: 54 48 45 4E 20 31 30 33 37 20 45 4C 53 45 20 49 THEN 1037 ELSE I
0058D0: 46 20 49 4E 24 3D 22 46 22 20 54 48 45 4E 20 31 F IN$="F" THEN 1
0058E0: 30 34 30 20 45 4C 53 45 20 31 30 30 39 0D 0A 31 040 ELSE 1009..1
0058F0: 30 31 30 20 43 4C 53 23 32 3A 43 41 4C 4C 20 26 010 CLS#2:CALL &
005900: 42 42 30 33 3A 49 4E 50 55 54 23 32 2C 22 4E 6F BB03:INPUT#2,"No
005910: 20 4F 46 20 50 4C 41 59 45 52 20 54 4F 20 4D 4F OF PLAYER TO MO
005920: 56 45 20 22 3B 41 44 3A 49 46 20 41 44 3D 30 20 VE ";AD:IF AD=0
005930: 54 48 45 4E 20 31 30 30 36 20 45 4C 53 45 20 49 THEN 1006 ELSE I
005940: 46 20 41 44 3E 32 30 20 4F 52 20 41 44 3C 30 20 F AD>20 OR AD<0
005950: 54 48 45 4E 20 31 30 31 30 0D 0A 31 30 31 31 20 THEN 1010..1011
005960: 49 46 20 4A 28 41 44 29 3D 37 33 20 4F 52 20 4A IF J(AD)=73 OR J
005970: 28 41 44 29 3D 38 33 20 4F 52 20 4A 28 41 44 29 (AD)=83 OR J(AD)
005980: 3D 37 36 20 54 48 45 4E 20 31 30 31 30 0D 0A 31 =76 THEN 1010..1
005990: 30 31 32 20 49 46 20 4A 28 41 44 29 3C 3E 33 35 012 IF J(AD)<>35
0059A0: 20 54 48 45 4E 20 31 30 31 34 0D 0A 31 30 31 33 THEN 1014..1013
0059B0: 20 48 28 41 44 29 3D 48 28 41 44 29 2B 28 55 28 H(AD)=H(AD)+(U(
0059C0: 41 44 29 3C 49 4E 54 28 48 28 41 44 29 29 29 2A AD)<INT(H(AD)))*
0059D0: 55 28 41 44 29 2B 28 55 28 41 44 29 3E 49 4E 54 U(AD)+(U(AD)>INT
0059E0: 28 48 28 41 44 29 29 29 2A 49 4E 54 28 48 28 41 (H(AD)))*INT(H(A
0059F0: 44 29 29 3A 55 28 41 44 29 3D 30 3A 59 3D 41 44 D)):U(AD)=0:Y=AD
005A00: 41 54 45 20 33 35 2C 36 3A 50 52 49 4E 54 20 50 ATE 35,6:PRINT P
005A10: 41 24 28 35 29 3B 45 4A 3A 4C 4F 43 41 54 45 20 A$(5);EJ:LOCATE
005A20: 33 35 2C 37 3A 50 52 49 4E 54 20 50 41 24 28 32 35,7:PRINT PA$(2
005A30: 29 3B 45 4B 3A 4C 4F 43 41 54 45 20 33 35 2C 38 );EK:LOCATE 35,8
005A40: 3A 50 52 49 4E 54 20 50 41 24 28 33 29 3B 45 4C :PRINT PA$(3);EL
005A50: 3A 4C 4F 43 41 54 45 20 32 38 2C 31 33 3A 50 52 :LOCATE 28,13:PR
005A60: 49 4E 54 20 50 41 24 28 31 29 3B 4D 56 3A 4C 4F INT PA$(1);MV:LO
005A70: 43 41 54 45 20 32 34 2C 31 30 3A 50 52 49 4E 54 CATE 24,10:PRINT
005A80: 20 70 61 24 28 32 29 3B 22 4D 4F 52 41 4C 45 20 pa$(2);"MORALE
005A90: 20 22 3B 70 61 24 28 31 29 3B 4D 4D 2F 31 30 3A ";pa$(1);MM/10:
005AA0: 47 4F 53 55 42 20 31 30 31 35 3A 52 45 54 55 52 GOSUB 1015:RETUR
005AB0: 4E 0D 0A 1A 00 00 4D CD F7 19 0A 01 9F 20 1E F7 N.....M...... ..
005AC0: 03 01 C9 00 00 00 1A F7 03 01 C9 00 00 00 1A 70 ...............p
005AD0: E1 28 10 29 3B 22 4D 4F 52 41 4C 45 20 20 22 3B .(.);"MORALE ";
005AE0: 03 00 00 70 E1 28 0F 29 3B 0D 00 00 4D CD F7 19 ...p.(.);...M...
005AF0: 0A 01 9F 20 1E F7 03 01 C9 00 00 00 1A 3B 0D 00 ... .........;..
005B00: 4D 49 3D 4D 49 2B 28 4D 49 3E 37 29 2A 4D 49 3A MI=MI+(MI>7)*MI:
005B10: 4D 47 3D 49 4E 54 20 28 4D 47 2D 36 30 29 2F 36 MG=INT (MG-60)/6
005B20: 3A 49 46 20 4D 47 3E 3D 31 20 54 48 45 4E 20 52 :IF MG>=1 THEN R
005B30: 45 54 55 52 4E 20 45 4C 53 45 20 4D 47 3D 35 3A ETURN ELSE MG=5:
005B40: 52 45 54 55 52 4E 0D 0A 31 30 33 38 20 4C 4F 43 RETURN..1038 LOC
005B50: 41 54 45 20 33 34 2C 33 3A 45 52 3D 35 3A 45 53 ATE 34,3:ER=5:ES
005B60: 3D 35 3A 47 4F 53 55 42 20 34 30 3A 50 52 49 4E =5:GOSUB 40:PRIN
005B70: 54 20 70 61 24 28 33 29 3A 47 4F 53 55 42 20 34 T pa$(3):GOSUB 4
005B80: 31 3A 4C 4F 43 41 54 45 20 35 2C 31 30 3A 50 52 1:LOCATE 5,10:PR
005B90: 49 4E 54 20 70 61 24 28 33 29 3B 22 4D 4F 52 41 INT pa$(3);"MORA
005BA0: 4C 45 20 20 22 3B 70 61 24 28 31 29 3B 28 4D 45 LE ";pa$(1);(ME
005BB0: 2F 31 30 29 3A 45 53 3D 32 34 0D 0A 31 30 33 39 /10):ES=24..1039
005BC0: 20 47 4F 53 55 42 20 34 30 3A 50 52 49 4E 54 20 GOSUB 40:PRINT
005BD0: 50 41 24 28 32 29 3A 47 4F 53 55 42 20 34 31 3A PA$(2):GOSUB 41:
005BE0: 4C 4F 43 41 54 45 20 33 35 2C 35 3A 50 52 49 4E LOCATE 35,5:PRIN
005BF0: 54 20 50 41 24 28 36 29 3B 45 49 31 3A 4C 4F 43 T PA$(6);EI1:LOC
005C00: 3A 47 4F 53 55 42 20 35 32 35 0D 0A 31 30 31 34 :GOSUB 525..1014
005C10: 20 43 4C 53 23 32 3A 49 4E 50 55 54 23 32 2C 22 CLS#2:INPUT#2,"
005C20: 50 4C 41 59 45 52 27 53 20 4E 45 57 20 50 4F 53 PLAYER'S NEW POS
005C30: 49 54 49 4F 4E 20 3A 2D 22 3B 49 3A 49 46 20 49 ITION :-";I:IF I
005C40: 3C 31 20 4F 52 20 49 3E 32 30 20 54 48 45 4E 20 <1 OR I>20 THEN
005C50: 31 30 31 34 0D 0A 31 30 31 35 20 49 46 20 4A 28 1014..1015 IF J(
005C60: 49 29 3D 37 33 20 4F 52 20 4A 28 49 29 3D 38 33 I)=73 OR J(I)=83
005C70: 20 4F 52 20 4A 28 49 29 3D 37 36 20 54 48 45 4E OR J(I)=76 THEN
005C80: 20 31 30 31 34 0D 0A 31 30 31 36 20 49 46 20 4A 1014..1016 IF J
005C90: 28 49 29 3C 3E 33 35 20 54 48 45 4E 20 31 30 31 (I)<>35 THEN 101
005CA0: 38 0D 0A 31 30 31 37 20 48 28 49 29 3D 48 28 49 8..1017 H(I)=H(I
005CB0: 29 2B 28 55 28 49 29 3C 49 4E 54 28 48 28 49 29 )+(U(I)<INT(H(I)
005CC0: 29 29 2A 55 28 49 29 2B 28 55 28 49 29 3E 49 4E ))*U(I)+(U(I)>IN
005CD0: 54 28 48 28 49 29 29 29 2A 49 4E 54 28 48 28 49 T(H(I)))*INT(H(I
005CE0: 29 29 3A 55 28 49 29 3D 30 3A 59 3D 49 3A 47 4F )):U(I)=0:Y=I:GO
005CF0: 53 55 42 20 35 32 35 0D 0A 31 30 31 38 20 47 4F SUB 525..1018 GO
005D00: 53 55 42 20 36 35 32 3A 49 3D 41 44 3A 47 4F 53 SUB 652:I=AD:GOS
005D10: 55 42 20 33 33 32 3A 42 4A 3D 42 4A 2B 31 3A 47 UB 332:BJ=BJ+1:G
005D20: 4F 54 4F 20 31 30 30 32 0D 0A 31 30 31 39 20 4F OTO 1002..1019 O
005D30: 43 3D 4F 43 2D 28 54 28 59 29 3D 31 29 3A 47 28 C=OC-(T(Y)=1):G(
005D40: 59 29 3D 31 38 2B 49 4E 54 28 52 4E 44 2A 31 38 Y)=18+INT(RND*18
005D50: 29 3A 56 28 31 2C 59 29 3D 31 2B 49 4E 54 28 52 ):V(1,Y)=1+INT(R
005D60: 4E 44 2A 32 30 29 2B 35 30 3A 56 28 31 2C 59 29 ND*20)+50:V(1,Y)
005D70: 3D 49 4E 54 28 56 28 31 2C 59 29 29 2A 49 4E 54 =INT(V(1,Y))*INT
005D80: 28 48 28 59 29 29 2B 41 42 53 28 48 28 59 29 3E (H(Y))+ABS(H(Y)>
005D90: 39 2E 36 29 2A 31 30 30 30 3A 48 56 3D 47 28 59 9.6)*1000:HV=G(Y
005DA0: 29 2D 32 37 3A 48 56 3D 48 56 2B 41 42 53 28 48 )-27:HV=HV+ABS(H
005DB0: 56 3C 31 29 2A 28 41 42 53 28 48 56 29 2B 31 29 V<1)*(ABS(HV)+1)
005DC0: 3A 52 45 54 55 52 4E 0D 0A 31 30 32 30 20 43 4C :RETURN..1020 CL
005DD0: 53 23 32 3A 49 4E 50 55 54 23 32 2C 22 4E 6F 20 S#2:INPUT#2,"No
005DE0: 4F 46 20 50 4C 41 59 45 52 20 20 20 22 3B 49 3A OF PLAYER ";I:
005DF0: 49 46 20 49 3D 30 20 54 48 45 4E 20 31 30 30 35 IF I=0 THEN 1005
005E00: 31 30 30 31 20 49 4E 4B 20 30 2C 32 35 3A 49 4E 1001 INK 0,25:IN
005E10: 4B 20 31 2C 30 3A 49 4E 4B 20 32 2C 30 3A 49 4E K 1,0:INK 2,0:IN
005E20: 4B 20 33 2C 32 3A 42 4F 52 44 45 52 20 32 35 3A K 3,2:BORDER 25:
005E30: 43 4C 53 0D 0A 31 30 30 32 20 75 61 3D 30 3A 50 CLS..1002 ua=0:P
005E40: 41 50 45 52 20 30 3A 4C 4F 43 41 54 45 20 31 36 APER 0:LOCATE 16
005E50: 2C 34 3A 50 52 49 4E 54 22 44 49 52 45 43 54 4F ,4:PRINT"DIRECTO
005E60: 52 53 22 3A 4C 4F 43 41 54 45 20 36 2C 39 3A 50 RS":LOCATE 6,9:P
005E70: 52 49 4E 54 22 48 4F 57 20 4D 55 43 48 20 4D 4F RINT"HOW MUCH MO
005E80: 4E 45 59 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 NEY DO YOU WANT
005E90: 46 52 4F 4D 22 2C 2C 2C 54 41 42 28 35 29 3B 22 FROM",,,TAB(5);"
005EA0: 54 48 45 20 44 49 52 45 43 54 4F 52 53 20 46 4F THE DIRECTORS FO
005EB0: 52 20 4E 45 57 20 50 4C 41 59 45 52 53 3F 22 0D R NEW PLAYERS?".
005EC0: 0A 31 30 30 33 20 4C 4F 43 41 54 45 20 31 38 2C .1003 LOCATE 18,
005ED0: 31 34 3A 50 52 49 4E 54 20 43 48 52 24 28 31 36 14:PRINT CHR$(16
005EE0: 33 29 3B 3A 49 4E 50 55 54 20 7A 61 3A 75 61 3D 3);:INPUT za:ua=
005EF0: 7A 61 3A 49 46 20 7A 61 3C 31 20 54 48 45 4E 20 za:IF za<1 THEN
005F00: 31 30 30 33 0D 0A 31 30 30 34 20 4C 4F 43 41 54 1003..1004 LOCAT
005F10: 45 20 35 2C 31 39 3A 50 52 49 4E 54 22 59 4F 55 E 5,19:PRINT"YOU
005F20: 52 20 44 49 52 45 43 54 4F 52 53 20 22 3B 3A 49 R DIRECTORS ";:I
005F30: 46 20 61 69 3E 35 30 30 30 30 20 54 48 45 4E 20 F ai>50000 THEN
005F40: 31 30 30 37 0D 0A 31 30 30 35 20 72 61 3D 32 30 1007..1005 ra=20
005F50: 30 30 30 30 2B 49 4E 54 28 52 4E 44 2A 34 38 30 0000+INT(RND*480
005F60: 30 30 30 29 3A 72 62 3D 31 2B 49 4E 54 28 52 4E 000):rb=1+INT(RN
005F70: 44 2A 33 29 3A 72 61 3D 72 61 2F 61 70 3A 49 46 D*3):ra=ra/ap:IF
005F80: 20 72 61 2F 72 62 3E 75 61 20 54 48 45 4E 20 50 ra/rb>ua THEN P
005F90: 52 49 4E 54 22 41 47 52 45 45 22 3A 61 69 3D 61 RINT"AGREE":ai=a
005FA0: 69 2B 75 61 3A 47 4F 54 4F 20 39 30 30 0D 0A 31 i+ua:GOTO 900..1
005FB0: 30 30 36 20 50 52 49 4E 54 22 52 45 46 55 53 45 006 PRINT"REFUSE
005FC0: 22 3A 47 4F 54 4F 20 39 30 30 0D 0A 31 30 30 37 ":GOTO 900..1007
005FD0: 20 72 61 3D 31 2B 49 4E 54 28 52 4E 44 2A 33 29 ra=1+INT(RND*3)
005FE0: 3A 49 46 20 72 61 3C 33 20 54 48 45 4E 20 31 30 :IF ra<3 THEN 10
005FF0: 30 36 0D 0A 31 30 30 38 20 72 61 3D 49 4E 54 28 06..1008 ra=INT(
006000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
006010: 05 00 01 00 02 09 4E E5 05 00 41 02 00 00 00 02 ......N...A.....
006020: 05 00 46 02 00 00 00 02 05 00 42 02 00 00 00 02 ..F.......B.....
006030: 05 00 47 02 00 00 00 02 05 00 43 02 00 00 00 02 ..G.......C.....
006040: 05 00 48 02 00 00 00 02 05 00 44 02 00 00 00 02 ..H.......D.....
006050: 05 00 49 02 00 00 00 02 05 00 45 02 00 00 00 02 ..I.......E.....
006060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006100: 0D 0A 31 30 32 31 20 49 46 20 49 3C 31 20 4F 52 ..1021 IF I<1 OR
006110: 20 49 3E 32 30 20 54 48 45 4E 20 31 30 32 30 0D I>20 THEN 1020.
006120: 0A 31 30 32 32 20 54 45 4D 50 24 3D 56 24 28 49 .1022 TEMP$=V$(I
006130: 29 3A 47 4F 53 55 42 20 36 34 39 30 30 3A 49 46 ):GOSUB 64900:IF
006140: 20 46 4C 41 47 20 54 48 45 4E 20 31 30 32 30 0D FLAG THEN 1020.
006150: 0A 31 30 32 33 20 43 4C 53 23 32 3A 49 4E 50 55 .1023 CLS#2:INPU
006160: 54 23 32 2C 22 54 59 50 45 20 50 4C 41 59 45 52 T#2,"TYPE PLAYER
006170: 53 20 4E 45 57 20 4E 41 4D 45 20 22 3B 58 24 3A S NEW NAME ";X$:
006180: 49 46 20 4C 45 4E 28 58 24 29 3C 31 20 54 48 45 IF LEN(X$)<1 THE
006190: 4E 20 31 30 32 33 20 45 4C 53 45 20 49 46 20 4C N 1023 ELSE IF L
0061A0: 45 4E 28 78 24 29 3E 38 20 54 48 45 4E 20 31 30 EN(x$)>8 THEN 10
0061B0: 32 33 0D 0A 31 30 32 34 20 58 24 3D 55 50 50 45 23..1024 X$=UPPE
0061C0: 52 24 28 58 24 29 2B 53 50 41 43 45 24 28 38 2D R$(X$)+SPACE$(8-
0061D0: 4C 45 4E 28 78 24 29 29 3A 47 4F 53 55 42 20 31 LEN(x$)):GOSUB 1
0061E0: 30 33 38 3A 49 46 20 46 4C 41 47 20 54 48 45 4E 038:IF FLAG THEN
0061F0: 20 31 30 32 33 20 45 4C 53 45 20 56 24 28 49 29 1023 ELSE V$(I)
006200: 3D 58 24 3A 47 4F 54 4F 20 31 30 30 32 0D 0A 31 =X$:GOTO 1002..1
006210: 30 32 35 20 43 4C 53 23 32 3A 49 4E 50 55 54 23 025 CLS#2:INPUT#
006220: 32 2C 22 57 48 49 43 48 20 50 4C 41 59 45 52 20 2,"WHICH PLAYER
006230: 20 20 20 22 3B 49 0D 0A 31 30 32 36 20 49 46 20 ";I..1026 IF
006240: 49 3C 31 20 4F 52 20 49 3E 32 30 20 54 48 45 4E I<1 OR I>20 THEN
006250: 20 31 30 30 35 0D 0A 31 30 32 37 20 54 45 4D 50 1005..1027 TEMP
006260: 24 3D 56 24 28 49 29 3A 47 4F 53 55 42 20 36 34 $=V$(I):GOSUB 64
006270: 39 30 30 3A 49 46 20 46 4C 41 47 20 4F 52 20 45 900:IF FLAG OR E
006280: 28 31 2C 49 29 3C 30 20 4F 52 20 4A 28 49 29 3D (1,I)<0 OR J(I)=
006290: 38 32 20 4F 52 20 4A 28 49 29 3D 37 36 20 4F 52 82 OR J(I)=76 OR
0062A0: 20 4A 28 49 29 3D 34 32 20 54 48 45 4E 20 31 30 J(I)=42 THEN 10
0062B0: 32 35 0D 0A 31 30 32 38 20 47 28 49 29 3D 47 28 25..1028 G(I)=G(
0062C0: 49 29 2B 41 42 53 28 47 28 49 29 3C 30 29 2A 28 I)+ABS(G(I)<0)*(
0062D0: 41 42 53 28 47 28 49 29 29 2A 32 29 2D 41 42 53 ABS(G(I))*2)-ABS
0062E0: 28 47 28 49 29 3E 30 29 2A 28 47 28 49 29 2A 32 (G(I)>0)*(G(I)*2
0062F0: 29 0D 0A 31 30 32 39 20 47 4F 54 4F 20 31 30 30 )..1029 GOTO 100
006300: 31 30 30 31 20 4A 51 3D 4A 51 2D 41 42 53 28 4A 1001 JQ=JQ-ABS(J
006310: 51 3C 30 29 2A 4A 51 3A 4B 43 3D 4B 43 2D 41 42 Q<0)*JQ:KC=KC-AB
006320: 53 28 4B 43 3C 30 29 2A 4B 43 3A 47 4F 53 55 42 S(KC<0)*KC:GOSUB
006330: 20 31 30 30 32 3A 47 4F 54 4F 20 31 30 30 39 0D 1002:GOTO 1009.
006340: 0A 31 30 30 32 20 4A 51 3D 4A 51 2D 41 42 53 28 .1002 JQ=JQ-ABS(
006350: 4A 51 3C 30 29 2A 4A 51 3A 4B 43 3D 4B 43 2D 41 JQ<0)*JQ:KC=KC-A
006360: 42 53 28 4B 43 3C 30 29 2A 4B 43 3A 43 4C 53 3A BS(KC<0)*KC:CLS:
006370: 47 4F 53 55 42 20 31 30 33 30 0D 0A 31 30 30 33 GOSUB 1030..1003
006380: 20 49 46 20 4B 41 3E 30 20 54 48 45 4E 20 4C 4F IF KA>0 THEN LO
006390: 43 41 54 45 20 37 2C 31 31 3A 50 52 49 4E 54 20 CATE 7,11:PRINT
0063A0: 22 32 20 4C 4F 41 4E 22 0D 0A 31 30 30 34 20 49 "2 LOAN"..1004 I
0063B0: 46 20 4B 43 3E 30 20 41 4E 44 20 61 69 3E 34 30 F KC>0 AND ai>40
0063C0: 20 54 48 45 4E 20 4C 4F 43 41 54 45 20 37 2C 31 THEN LOCATE 7,1
0063D0: 33 3A 50 52 49 4E 54 20 22 33 20 52 45 50 41 59 3:PRINT "3 REPAY
0063E0: 20 4C 4F 41 4E 22 0D 0A 31 30 30 35 20 49 46 20 LOAN"..1005 IF
0063F0: 4A 51 3E 30 20 41 4E 44 20 41 49 3E 38 30 20 54 JQ>0 AND AI>80 T
006400: 48 45 4E 20 4C 4F 43 41 54 45 20 37 2C 39 3A 50 HEN LOCATE 7,9:P
006410: 52 49 4E 54 20 22 34 20 52 45 50 41 59 20 4D 4F RINT "4 REPAY MO
006420: 52 54 47 41 47 45 22 0D 0A 31 30 30 36 20 49 46 RTGAGE"..1006 IF
006430: 20 4B 43 3E 30 20 41 4E 44 20 43 46 3E 30 20 54 KC>0 AND CF>0 T
006440: 48 45 4E 20 52 41 3D 49 4E 54 20 28 4B 43 2F 43 HEN RA=INT (KC/C
006450: 46 29 3A 52 41 3D 49 4E 54 20 28 52 41 2D 41 42 F):RA=INT (RA-AB
006460: 53 28 52 41 3E 34 30 29 2A 28 52 41 2D 34 30 29 S(RA>40)*(RA-40)
006470: 29 3A 4C 4F 43 41 54 45 20 37 2C 31 37 3A 50 52 ):LOCATE 7,17:PR
006480: 49 4E 54 22 57 45 45 4B 53 20 54 4F 20 45 4E 44 INT"WEEKS TO END
006490: 20 4F 46 20 4C 4F 41 4E 20 20 20 20 3A 22 3B 49 OF LOAN :";I
0064A0: 4E 54 28 52 41 29 0D 0A 31 30 30 37 20 49 46 20 NT(RA)..1007 IF
0064B0: 4A 51 3E 30 20 41 4E 44 20 4A 50 3E 30 20 54 48 JQ>0 AND JP>0 TH
0064C0: 45 4E 20 52 41 3D 49 4E 54 20 28 4A 51 2F 4A 50 EN RA=INT (JQ/JP
0064D0: 29 3A 52 41 3D 49 4E 54 20 28 52 41 2D 28 52 41 ):RA=INT (RA-(RA
0064E0: 3E 38 30 29 2A 28 52 41 2D 38 30 29 29 3A 4C 4F >80)*(RA-80)):LO
0064F0: 43 41 54 45 20 37 2C 31 39 3A 50 52 49 4E 54 20 CATE 7,19:PRINT
006500: 32 0D 0A 31 30 33 30 20 43 4C 53 23 32 3A 49 4E 2..1030 CLS#2:IN
006510: 50 55 54 23 32 2C 22 4E 6F 20 4F 46 20 50 4C 41 PUT#2,"No OF PLA
006520: 59 45 52 20 54 4F 20 53 41 43 4B 20 22 3B 49 3A YER TO SACK ";I:
006530: 49 46 20 49 3C 31 20 4F 52 20 49 3E 32 30 20 54 IF I<1 OR I>20 T
006540: 48 45 4E 20 31 30 33 30 0D 0A 31 30 33 31 20 54 HEN 1030..1031 T
006550: 45 4D 50 24 3D 56 24 28 49 29 3A 47 4F 53 55 42 EMP$=V$(I):GOSUB
006560: 20 36 34 39 30 30 3A 49 46 20 46 4C 41 47 20 54 64900:IF FLAG T
006570: 48 45 4E 20 31 30 33 30 0D 0A 31 30 33 32 20 4F HEN 1030..1032 O
006580: 4D 3D 49 4E 54 20 28 56 28 31 2C 49 29 2A 56 28 M=INT (V(1,I)*V(
006590: 32 2C 49 29 29 3A 49 46 20 41 49 3E 4F 4D 20 54 2,I)):IF AI>OM T
0065A0: 48 45 4E 20 31 30 33 34 0D 0A 31 30 33 33 20 50 HEN 1034..1033 P
0065B0: 52 49 4E 54 20 23 32 2C 22 20 59 4F 55 20 43 41 RINT #2," YOU CA
0065C0: 4E 4E 4F 54 20 41 46 46 4F 52 44 20 54 48 49 53 NNOT AFFORD THIS
0065D0: 20 41 4D 4F 55 4E 54 20 22 3B 43 48 52 24 28 37 AMOUNT ";CHR$(7
0065E0: 29 3B 3A 46 4F 52 20 49 3D 31 20 54 4F 20 31 35 );:FOR I=1 TO 15
0065F0: 30 3A 4E 45 58 54 3A 47 4F 54 4F 20 31 30 30 36 0:NEXT:GOTO 1006
006600: 0D 0A 31 30 33 34 20 43 4C 53 23 32 3A 4C 4F 43 ..1034 CLS#2:LOC
006610: 41 54 45 20 35 2C 32 33 3A 50 52 49 4E 54 20 50 ATE 5,23:PRINT P
006620: 41 24 28 32 29 3B 22 20 54 48 49 53 20 57 49 4C A$(2);" THIS WIL
006630: 4C 20 43 4F 53 54 20 22 3B 3A 54 45 4D 50 3D 4F L COST ";:TEMP=O
006640: 4D 3A 47 4F 53 55 42 20 36 33 35 30 30 3A 50 52 M:GOSUB 63500:PR
006650: 49 4E 54 20 22 20 59 2F 4E 20 22 3B 50 41 24 28 INT " Y/N ";PA$(
006660: 31 29 0D 0A 31 30 33 35 20 47 4F 53 55 42 20 36 1)..1035 GOSUB 6
006670: 34 30 30 30 3A 49 46 20 49 4E 24 3D 22 59 22 20 4000:IF IN$="Y"
006680: 54 48 45 4E 20 31 30 33 36 20 45 4C 53 45 20 49 THEN 1036 ELSE I
006690: 46 20 49 4E 24 3D 22 4E 22 20 54 48 45 4E 20 31 F IN$="N" THEN 1
0066A0: 30 30 35 20 45 4C 53 45 20 31 30 33 35 0D 0A 31 005 ELSE 1035..1
0066B0: 30 33 36 20 41 49 3D 49 4E 54 28 41 49 2D 4F 4D 036 AI=INT(AI-OM
0066C0: 29 3A 47 4F 53 55 42 20 38 39 30 3A 47 4F 53 55 ):GOSUB 890:GOSU
0066D0: 42 20 32 30 30 3A 47 4F 53 55 42 20 31 30 31 39 B 200:GOSUB 1019
0066E0: 3A 47 4F 53 55 42 20 33 33 32 3A 47 4F 54 4F 20 :GOSUB 332:GOTO
0066F0: 31 30 30 32 0D 0A 31 30 33 37 20 41 31 3D 30 3A 1002..1037 A1=0:
006700: 22 57 45 45 4B 53 20 54 4F 20 45 4E 44 20 4F 46 "WEEKS TO END OF
006710: 20 4D 4F 52 54 47 41 47 45 3A 22 3B 49 4E 54 28 MORTGAGE:";INT(
006720: 52 41 29 0D 0A 31 30 30 38 20 52 45 54 55 52 4E RA)..1008 RETURN
006730: 20 0D 0A 31 30 30 39 20 47 4F 53 55 42 20 36 34 ..1009 GOSUB 64
006740: 30 30 30 3A 49 46 20 49 4E 24 3D 22 32 22 20 41 000:IF IN$="2" A
006750: 4E 44 20 4B 41 3E 30 20 54 48 45 4E 20 47 4F 54 ND KA>0 THEN GOT
006760: 4F 20 31 30 31 35 0D 0A 31 30 31 30 20 49 46 20 O 1015..1010 IF
006770: 49 4E 24 3D 22 31 22 20 41 4E 44 20 4A 51 3D 30 IN$="1" AND JQ=0
006780: 20 54 48 45 4E 20 47 4F 54 4F 20 31 30 31 34 0D THEN GOTO 1014.
006790: 0A 31 30 31 31 20 49 46 20 49 4E 24 3D 22 33 22 .1011 IF IN$="3"
0067A0: 20 41 4E 44 20 4B 43 3E 30 20 41 4E 44 20 41 49 AND KC>0 AND AI
0067B0: 3E 34 30 20 54 48 45 4E 20 47 4F 54 4F 20 31 30 >40 THEN GOTO 10
0067C0: 32 32 0D 0A 31 30 31 32 20 49 46 20 49 4E 24 3D 22..1012 IF IN$=
0067D0: 22 34 22 20 41 4E 44 20 4A 51 3E 30 20 41 4E 44 "4" AND JQ>0 AND
0067E0: 20 41 49 3E 38 30 20 54 48 45 4E 20 47 4F 54 4F AI>80 THEN GOTO
0067F0: 20 31 30 32 34 0D 0A 31 30 31 33 20 47 4F 53 55 1024..1013 GOSU
006800: 42 20 38 34 38 3A 47 4F 54 4F 20 31 30 30 39 0D B 848:GOTO 1009.
006810: 0A 31 30 31 34 20 47 4F 53 55 42 20 31 30 31 38 .1014 GOSUB 1018
006820: 3A 47 4F 54 4F 20 31 30 30 31 0D 0A 31 30 31 35 :GOTO 1001..1015
006830: 20 47 4F 53 55 42 20 31 30 32 36 3A 4C 4F 43 41 GOSUB 1026:LOCA
006840: 54 45 20 36 2C 31 30 3A 50 52 49 4E 54 20 22 42 TE 6,10:PRINT "B
006850: 41 4E 4B 20 43 48 41 52 47 45 53 20 31 31 25 20 ANK CHARGES 11%
006860: 49 4E 54 45 52 45 53 54 22 2C 2C 54 41 42 28 36 INTEREST",,TAB(6
006870: 29 3B 22 4D 49 4E 49 4D 55 4D 20 22 3B 3A 54 45 );"MINIMUM ";:TE
006880: 4D 50 3D 34 30 3A 47 4F 53 55 42 20 36 33 35 30 MP=40:GOSUB 6350
006890: 30 3A 4C 4F 43 41 54 45 20 36 2C 39 3A 50 52 49 0:LOCATE 6,9:PRI
0068A0: 4E 54 22 48 4F 57 20 4D 55 43 48 3F 22 3A 4C 4F NT"HOW MUCH?":LO
0068B0: 43 41 54 45 20 32 30 2C 31 32 3A 50 52 49 4E 54 CATE 20,12:PRINT
0068C0: 20 43 48 52 24 28 31 36 33 29 3B 3A 49 4E 50 55 CHR$(163);:INPU
0068D0: 54 20 4B 44 3A 49 46 20 4B 44 3C 34 30 20 4F 52 T KD:IF KD<40 OR
0068E0: 20 4B 44 3E 4B 41 20 54 48 45 4E 20 31 30 30 31 KD>KA THEN 1001
0068F0: 0D 0A 31 30 31 36 20 27 0D 0A 31 30 31 37 20 47 ..1016 '..1017 G
006900: 46 4F 52 20 49 3D 31 20 54 4F 20 32 30 3A 54 45 FOR I=1 TO 20:TE
006910: 4D 50 24 3D 56 24 28 49 29 3A 47 4F 53 55 42 20 MP$=V$(I):GOSUB
006920: 36 34 39 30 30 3A 41 31 3D 41 31 2B 46 4C 41 47 64900:A1=A1+FLAG
006930: 3A 4E 45 58 54 20 3A 49 46 20 41 31 3E 37 20 54 :NEXT :IF A1>7 T
006940: 48 45 4E 20 31 30 30 35 20 45 4C 53 45 20 31 30 HEN 1005 ELSE 10
006950: 33 30 0D 0A 31 30 33 38 20 46 4C 41 47 3D 30 3A 30..1038 FLAG=0:
006960: 46 4F 52 20 4B 3D 31 20 54 4F 20 32 30 3A 49 46 FOR K=1 TO 20:IF
006970: 20 56 24 28 4B 29 3D 58 24 20 54 48 45 4E 20 46 V$(K)=X$ THEN F
006980: 4C 41 47 3D 31 0D 0A 31 30 33 39 20 4E 45 58 54 LAG=1..1039 NEXT
006990: 3A 52 45 54 55 52 4E 20 0D 0A 31 30 34 30 20 43 :RETURN ..1040 C
0069A0: 4C 53 23 32 3A 49 4E 50 55 54 23 32 2C 22 4E 6F LS#2:INPUT#2,"No
0069B0: 20 4F 46 20 50 4C 41 59 45 52 20 54 4F 20 52 45 OF PLAYER TO RE
0069C0: 2D 50 4F 53 20 22 3B 49 3A 43 4C 53 23 32 3A 49 -POS ";I:CLS#2:I
0069D0: 46 20 49 3C 31 20 54 48 45 4E 20 31 30 30 35 20 F I<1 THEN 1005
0069E0: 45 4C 53 45 20 49 46 20 49 3E 32 30 20 54 48 45 ELSE IF I>20 THE
0069F0: 4E 20 31 30 34 30 0D 0A 31 30 34 31 20 49 46 20 N 1040..1041 IF
006A00: 54 28 49 29 3D 30 20 54 48 45 4E 20 31 30 30 36 T(I)=0 THEN 1006
006A10: 0D 0A 31 30 34 32 20 49 46 20 4A 28 49 29 3D 33 ..1042 IF J(I)=3
006A20: 32 20 4F 52 20 4A 28 49 29 3D 31 30 35 20 4F 52 2 OR J(I)=105 OR
006A30: 20 4A 28 49 29 3D 34 33 20 4F 52 20 4A 28 49 29 J(I)=43 OR J(I)
006A40: 3D 34 35 20 54 48 45 4E 20 31 30 34 33 20 45 4C =45 THEN 1043 EL
006A50: 53 45 20 31 30 30 36 0D 0A 31 30 34 33 20 50 52 SE 1006..1043 PR
006A60: 49 4E 54 20 23 32 2C 70 61 24 28 32 29 3B 22 20 INT #2,pa$(2);"
006A70: 20 31 3D 47 4F 41 4C 49 45 20 32 3D 44 45 46 20 1=GOALIE 2=DEF
006A80: 33 3D 4D 49 44 20 34 3D 41 54 54 41 43 4B 20 20 3=MID 4=ATTACK
006A90: 22 3B 70 61 24 28 31 29 0D 0A 31 30 34 34 20 47 ";pa$(1)..1044 G
006AA0: 4F 53 55 42 20 36 34 30 30 30 3A 58 24 3D 49 4E OSUB 64000:X$=IN
006AB0: 24 3A 5A 41 3D 56 41 4C 28 58 24 29 3A 49 46 20 $:ZA=VAL(X$):IF
006AC0: 5A 41 3E 30 20 41 4E 44 20 5A 41 3C 35 20 54 48 ZA>0 AND ZA<5 TH
006AD0: 45 4E 20 31 30 34 35 20 45 4C 53 45 20 31 30 34 EN 1045 ELSE 104
006AE0: 34 0D 0A 31 30 34 35 20 50 52 49 4E 54 20 43 48 4..1045 PRINT CH
006AF0: 52 24 28 37 29 3B 3A 49 46 20 54 28 49 29 3D 5A R$(7);:IF T(I)=Z
006B00: 4F 53 55 42 20 31 30 32 36 3A 4B 41 3D 4B 41 2D OSUB 1026:KA=KA-
006B10: 4B 44 3A 41 49 3D 41 49 2B 4B 44 3A 4B 44 3D 49 KD:AI=AI+KD:KD=I
006B20: 4E 54 28 4B 44 2B 28 4B 44 2F 31 30 30 29 2A 31 NT(KD+(KD/100)*1
006B30: 31 29 3A 4B 43 3D 4B 43 2B 4B 44 3A 43 46 3D 28 1):KC=KC+KD:CF=(
006B40: 4B 43 2F 34 30 29 3A 4C 4F 43 41 54 45 20 36 2C KC/40):LOCATE 6,
006B50: 31 33 3A 50 52 49 4E 54 20 22 52 45 50 41 49 44 13:PRINT "REPAID
006B60: 20 4F 56 45 52 20 34 30 20 57 45 45 4B 53 20 41 OVER 40 WEEKS A
006B70: 54 20 22 3B 3A 54 45 4D 50 3D 49 4E 54 28 43 46 T ";:TEMP=INT(CF
006B80: 29 3A 47 4F 53 55 42 20 36 33 35 30 30 3A 46 4F ):GOSUB 63500:FO
006B90: 52 20 4B 3D 31 20 54 4F 20 31 35 30 30 3A 4E 45 R K=1 TO 1500:NE
006BA0: 58 54 3A 47 4F 53 55 42 20 38 36 31 3A 47 4F 54 XT:GOSUB 861:GOT
006BB0: 4F 20 31 30 30 31 0D 0A 31 30 31 38 20 4A 51 3D O 1001..1018 JQ=
006BC0: 49 4E 54 20 28 31 38 30 30 30 30 30 2F 41 50 29 INT (1800000/AP)
006BD0: 3A 4C 4F 43 41 54 45 20 36 2C 39 3A 50 52 49 4E :LOCATE 6,9:PRIN
006BE0: 54 20 22 54 48 45 20 42 41 4E 4B 20 57 49 4C 4C T "THE BANK WILL
006BF0: 20 4F 46 46 45 52 20 59 4F 55 22 2C 54 41 42 28 OFFER YOU",TAB(
006C00: 36 29 3A 54 45 4D 50 3D 4A 51 3A 47 4F 53 55 42 6):TEMP=JQ:GOSUB
006C10: 20 36 33 35 30 30 3A 45 54 3D 49 4E 54 20 28 28 63500:ET=INT ((
006C20: 4A 51 2F 31 30 30 29 2A 32 36 29 3A 4A 50 3D 49 JQ/100)*26):JP=I
006C30: 4E 54 20 28 28 45 54 2B 4A 51 29 2F 38 30 29 3A NT ((ET+JQ)/80):
006C40: 4C 4F 43 41 54 45 20 36 2C 31 31 3A 50 52 49 4E LOCATE 6,11:PRIN
006C50: 54 20 22 52 45 50 41 59 4D 45 4E 54 53 20 41 52 T "REPAYMENTS AR
006C60: 45 20 22 3B 3A 54 45 4D 50 3D 4A 50 3A 47 4F 53 E ";:TEMP=JP:GOS
006C70: 55 42 20 36 33 35 30 30 3A 4C 4F 43 41 54 45 20 UB 63500:LOCATE
006C80: 36 2C 31 33 3A 50 52 49 4E 54 20 22 4F 56 45 52 6,13:PRINT "OVER
006C90: 20 38 30 20 57 45 45 4B 53 20 59 2F 4E 22 0D 0A 80 WEEKS Y/N"..
006CA0: 31 30 31 39 20 47 4F 53 55 42 20 36 34 30 30 30 1019 GOSUB 64000
006CB0: 3A 49 46 20 49 4E 24 3D 22 59 22 20 54 48 45 4E :IF IN$="Y" THEN
006CC0: 20 31 30 32 31 20 45 4C 53 45 20 49 46 20 49 4E 1021 ELSE IF IN
006CD0: 24 3C 3E 22 4E 22 20 54 48 45 4E 20 31 30 31 39 $<>"N" THEN 1019
006CE0: 0D 0A 31 30 32 30 20 4A 51 3D 30 3A 52 45 54 55 ..1020 JQ=0:RETU
006CF0: 52 4E 20 0D 0A 31 30 32 31 20 41 49 3D 49 4E 54 RN ..1021 AI=INT
006D00: 41 20 54 48 45 4E 20 31 30 30 35 0D 0A 31 30 34 A THEN 1005..104
006D10: 36 20 54 28 49 29 3D 5A 41 3A 52 41 3D 31 30 2B 6 T(I)=ZA:RA=10+
006D20: 28 52 4E 44 2A 31 39 29 3A 48 28 49 29 3D 48 28 (RND*19):H(I)=H(
006D30: 49 29 2D 28 52 41 2F 31 30 29 3A 59 3D 49 3A 47 I)-(RA/10):Y=I:G
006D40: 4F 53 55 42 20 35 32 35 3A 47 4F 53 55 42 20 33 OSUB 525:GOSUB 3
006D50: 33 32 3A 47 4F 54 4F 20 31 30 30 32 0D 0A 1A 00 32:GOTO 1002....
006D60: 00 1A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006D80: 4C 41 47 3D 31 0D 0A 31 30 33 39 20 4E 45 58 54 LAG=1..1039 NEXT
006D90: 3A 52 45 54 55 52 4E 20 0D 0A 31 30 34 30 20 43 :RETURN ..1040 C
006DA0: 4C 53 23 32 3A 49 4E 50 55 54 23 32 2C 22 4E 6F LS#2:INPUT#2,"No
006DB0: 20 4F 46 20 50 4C 41 59 45 52 20 54 4F 20 52 45 OF PLAYER TO RE
006DC0: 2D 50 4F 53 20 22 3B 49 3A 43 4C 53 23 32 3A 49 -POS ";I:CLS#2:I
006DD0: 46 20 49 3C 31 20 54 48 45 4E 20 31 30 30 35 20 F I<1 THEN 1005
006DE0: 45 4C 53 45 20 49 46 20 49 3E 32 30 20 54 48 45 ELSE IF I>20 THE
006DF0: 4E 20 31 30 34 30 0D 0A 31 30 34 31 20 49 46 20 N 1040..1041 IF
006E00: 54 28 49 29 3D 30 20 54 48 45 4E 20 31 30 30 36 T(I)=0 THEN 1006
006E10: 0D 0A 31 30 34 32 20 49 46 20 4A 28 49 29 3D 33 ..1042 IF J(I)=3
006E20: 32 20 4F 52 20 4A 28 49 29 3D 31 30 35 20 4F 52 2 OR J(I)=105 OR
006E30: 20 4A 28 49 29 3D 34 33 20 4F 52 20 4A 28 49 29 J(I)=43 OR J(I)
006E40: 3D 34 35 20 54 48 45 4E 20 31 30 34 33 20 45 4C =45 THEN 1043 EL
006E50: 53 45 20 31 30 30 36 0D 0A 31 30 34 33 20 50 52 SE 1006..1043 PR
006E60: 49 4E 54 20 23 32 2C 70 61 24 28 32 29 3B 22 20 INT #2,pa$(2);"
006E70: 20 31 3D 47 4F 41 4C 49 45 20 32 3D 44 45 46 20 1=GOALIE 2=DEF
006E80: 33 3D 4D 49 44 20 34 3D 41 54 54 41 43 4B 20 20 3=MID 4=ATTACK
006E90: 22 3B 70 61 24 28 31 29 0D 0A 31 30 34 34 20 47 ";pa$(1)..1044 G
006EA0: 4F 53 55 42 20 36 34 30 30 30 3A 58 24 3D 49 4E OSUB 64000:X$=IN
006EB0: 24 3A 5A 41 3D 56 41 4C 28 58 24 29 3A 49 46 20 $:ZA=VAL(X$):IF
006EC0: 5A 41 3E 30 20 41 4E 44 20 5A 41 3C 35 20 54 48 ZA>0 AND ZA<5 TH
006ED0: 45 4E 20 31 30 34 35 20 45 4C 53 45 20 31 30 34 EN 1045 ELSE 104
006EE0: 34 0D 0A 31 30 34 35 20 50 52 49 4E 54 20 43 48 4..1045 PRINT CH
006EF0: 52 24 28 37 29 3B 3A 49 46 20 54 28 49 29 3D 5A R$(7);:IF T(I)=Z
006F00: 28 41 49 2B 4A 51 29 3A 4A 51 3D 4A 51 2B 45 54 (AI+JQ):JQ=JQ+ET
006F10: 3A 52 45 54 55 52 4E 20 0D 0A 31 30 32 32 20 47 :RETURN ..1022 G
006F20: 4F 53 55 42 20 31 30 32 36 3A 4C 4F 43 41 54 45 OSUB 1026:LOCATE
006F30: 20 35 2C 39 3A 50 52 49 4E 54 20 22 52 45 50 41 5,9:PRINT "REPA
006F40: 59 20 48 4F 57 20 4D 55 43 48 3F 22 2C 2C 22 20 Y HOW MUCH?",,"
006F50: 4D 49 4E 49 4D 55 4D 20 22 3B 3A 54 45 4D 50 3D MINIMUM ";:TEMP=
006F60: 34 30 3A 47 4F 53 55 42 20 36 33 35 30 30 3A 49 40:GOSUB 63500:I
006F70: 4E 50 55 54 20 4F 44 3A 49 46 20 4F 44 3E 41 49 NPUT OD:IF OD>AI
006F80: 20 4F 52 20 4F 44 3C 34 30 20 4F 52 20 4F 44 20 OR OD<40 OR OD
006F90: 3E 4B 43 20 54 48 45 4E 20 31 30 32 32 0D 0A 31 >KC THEN 1022..1
006FA0: 30 32 33 20 4B 43 3D 4B 43 2D 4F 44 3A 4B 41 3D 023 KC=KC-OD:KA=
006FB0: 4B 41 2B 4F 44 3A 41 49 3D 41 49 2D 4F 44 3A 47 KA+OD:AI=AI-OD:G
006FC0: 4F 53 55 42 20 31 30 32 37 3A 47 4F 53 55 42 20 OSUB 1027:GOSUB
006FD0: 38 36 31 3A 43 46 3D 49 4E 54 20 28 4B 43 2F 34 861:CF=INT (KC/4
006FE0: 30 29 3A 4B 43 3D 4B 43 2B 28 4B 43 3C 34 30 29 0):KC=KC+(KC<40)
006FF0: 2A 4B 43 3A 47 4F 54 4F 20 31 30 30 31 0D 0A 31 *KC:GOTO 1001..1
007000: 30 32 34 20 47 4F 53 55 42 20 31 30 32 36 3A 4C 024 GOSUB 1026:L
007010: 4F 43 41 54 45 20 35 2C 39 3A 50 52 49 4E 54 20 OCATE 5,9:PRINT
007020: 22 59 4F 55 20 4F 57 45 20 22 3B 3A 54 45 4D 50 "YOU OWE ";:TEMP
007030: 3D 4A 51 3A 47 4F 53 55 42 20 36 33 35 30 30 3A =JQ:GOSUB 63500:
007040: 50 52 49 4E 54 20 22 20 4D 4F 52 54 47 41 47 45 PRINT " MORTGAGE
007050: 22 2C 54 41 42 28 35 29 3B 22 52 45 50 41 59 20 ",TAB(5);"REPAY
007060: 48 4F 57 20 4D 55 43 48 22 2C 54 41 42 28 35 29 HOW MUCH",TAB(5)
007070: 3B 22 20 4D 49 4E 49 4D 55 4D 20 22 3B 3A 54 45 ;" MINIMUM ";:TE
007080: 4D 50 3D 38 30 3A 47 4F 53 55 42 20 36 33 35 30 MP=80:GOSUB 6350
007090: 30 3A 49 4E 50 55 54 20 4F 45 3A 49 46 20 4F 45 0:INPUT OE:IF OE
0070A0: 3E 41 49 20 4F 52 20 4F 45 3C 38 30 20 4F 52 20 >AI OR OE<80 OR
0070B0: 4F 45 3C 30 20 4F 52 20 4F 45 20 3E 4A 51 20 54 OE<0 OR OE >JQ T
0070C0: 48 45 4E 20 31 30 32 34 20 20 0D 0A 31 30 32 35 HEN 1024 ..1025
0070D0: 20 4A 51 3D 4A 51 2D 4F 45 3A 41 49 3D 41 49 2D JQ=JQ-OE:AI=AI-
0070E0: 4F 45 3A 47 4F 53 55 42 20 38 36 31 3A 4A 50 3D OE:GOSUB 861:JP=
0070F0: 49 4E 54 20 28 4A 51 2F 38 30 29 3A 4A 51 3D 4A INT (JQ/80):JQ=J
007100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0071A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0071B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0071C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0071D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0071E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0071F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0072A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0072B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0072C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0072D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0072E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0072F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
007310: 06 00 01 00 02 09 4E E5 06 00 41 02 00 00 00 02 ......N...A.....
007320: 06 00 46 02 00 00 00 02 06 00 42 02 00 00 00 02 ..F.......B.....
007330: 06 00 47 02 00 00 00 02 06 00 43 02 00 00 00 02 ..G.......C.....
007340: 06 00 48 02 00 00 00 02 06 00 44 02 00 00 00 02 ..H.......D.....
007350: 06 00 49 02 00 00 00 02 06 00 45 02 00 00 00 02 ..I.......E.....
007360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007400: 51 2D 41 42 53 28 4A 51 3C 38 30 29 2A 4A 51 3A Q-ABS(JQ<80)*JQ:
007410: 47 4F 54 4F 20 31 30 30 31 0D 0A 31 30 32 36 20 GOTO 1001..1026
007420: 4C 4F 43 41 54 45 20 31 2C 39 3A 46 4F 52 20 49 LOCATE 1,9:FOR I
007430: 3D 39 20 54 4F 20 31 33 3A 50 52 49 4E 54 20 53 =9 TO 13:PRINT S
007440: 50 41 43 45 24 28 34 30 29 3A 4E 45 58 54 3A 52 PACE$(40):NEXT:R
007450: 45 54 55 52 4E 20 0D 0A 31 30 32 37 20 49 46 20 ETURN ..1027 IF
007460: 4B 41 3D 30 20 54 48 45 4E 20 4B 43 3D 43 4F 3A KA=0 THEN KC=CO:
007470: 47 4F 54 4F 20 31 30 30 31 0D 0A 31 30 32 38 20 GOTO 1001..1028
007480: 52 45 54 55 52 4E 20 0D 0A 31 30 32 39 20 49 46 RETURN ..1029 IF
007490: 20 4A 3D 31 20 41 4E 44 20 4F 4A 3D 33 20 4F 52 J=1 AND OJ=3 OR
0074A0: 20 4A 3D 33 20 41 4E 44 20 4F 4B 3D 33 20 54 48 J=3 AND OK=3 TH
0074B0: 45 4E 20 47 4F 53 55 42 20 38 39 31 3A 47 4F 54 EN GOSUB 891:GOT
0074C0: 4F 20 31 30 33 31 0D 0A 31 30 33 30 20 50 52 49 O 1031..1030 PRI
0074D0: 4E 54 20 54 41 42 28 31 38 29 3B 70 61 24 28 33 NT TAB(18);pa$(3
0074E0: 29 3B 22 20 42 41 4E 4B 20 22 3B 70 61 24 28 31 );" BANK ";pa$(1
0074F0: 29 3B 2C 2C 2C 54 41 42 28 37 29 3B 22 43 55 52 );,,,TAB(7);"CUR
007500: 52 45 4E 54 20 41 43 43 4F 55 4E 54 20 20 20 20 RENT ACCOUNT
007510: 22 3B 3A 54 45 4D 50 3D 49 4E 54 28 41 49 29 3A ";:TEMP=INT(AI):
007520: 47 4F 53 55 42 20 36 33 35 30 30 0D 0A 31 30 33 GOSUB 63500..103
007530: 31 20 50 52 49 4E 54 2C 2C 2C 54 41 42 28 37 29 1 PRINT,,,TAB(7)
007540: 3B 22 4F 56 45 52 44 52 41 46 54 20 46 41 43 49 ;"OVERDRAFT FACI
007550: 4C 49 54 59 20 22 3B 3A 54 45 4D 50 3D 49 4E 54 LITY ";:TEMP=INT
007560: 28 4B 41 29 3A 47 4F 53 55 42 20 36 33 35 30 30 (KA):GOSUB 63500
007570: 3A 50 52 49 4E 54 2C 2C 2C 54 41 42 28 37 29 3B :PRINT,,,TAB(7);
007580: 22 41 4D 4F 55 4E 54 20 4F 57 45 44 20 20 20 20 "AMOUNT OWED
007590: 20 20 20 20 22 3B 3A 54 45 4D 50 3D 49 4E 54 28 ";:TEMP=INT(
0075A0: 4B 43 29 3A 47 4F 53 55 42 20 36 33 35 30 30 3A KC):GOSUB 63500:
0075B0: 49 46 20 4A 51 3D 30 20 54 48 45 4E 20 50 52 49 IF JQ=0 THEN PRI
0075C0: 4E 54 20 2C 2C 2C 54 41 42 28 37 29 3B 22 31 20 NT ,,,TAB(7);"1
0075D0: 4D 4F 52 54 47 41 47 45 22 0D 0A 31 30 33 32 20 MORTGAGE"..1032
0075E0: 52 45 54 55 52 4E 0D 0A 31 30 33 33 20 49 46 20 RETURN..1033 IF
0075F0: 4C 28 46 29 3D 30 20 54 48 45 4E 20 4C 28 46 29 L(F)=0 THEN L(F)
007600: 41 54 45 20 36 2C 38 3A 49 4E 50 55 54 20 22 53 ATE 6,8:INPUT "S
007610: 50 45 4E 44 20 48 4F 57 20 4D 55 43 48 20 4D 4F PEND HOW MUCH MO
007620: 4E 45 59 20 22 3B 45 4F 3A 49 46 20 45 4F 3E 41 NEY ";EO:IF EO>A
007630: 49 20 4F 52 20 45 4F 3C 30 20 54 48 45 4E 20 31 I OR EO<0 THEN 1
007640: 30 30 36 0D 0A 31 30 30 37 20 4F 58 3D 31 3A 45 006..1007 OX=1:E
007650: 50 3D 49 4E 54 28 45 4F 2F 34 38 39 34 29 3A 45 P=INT(EO/4894):E
007660: 50 3D 45 50 2B 41 42 53 28 45 50 3C 30 29 2A 41 P=EP+ABS(EP<0)*A
007670: 42 53 28 45 50 29 3A 45 50 3D 49 4E 54 28 45 50 BS(EP):EP=INT(EP
007680: 2A 36 29 3A 41 4B 3D 49 4E 54 28 41 4B 2B 45 50 *6):AK=INT(AK+EP
007690: 29 3A 45 50 3D 49 4E 54 20 28 45 4F 2F 41 4B 29 ):EP=INT (EO/AK)
0076A0: 2A 31 30 30 3A 41 55 3D 41 55 2B 45 50 3A 41 4B *100:AU=AU+EP:AK
0076B0: 3D 41 4B 2B 28 28 31 2D 41 4B 29 2F 32 29 2A 28 =AK+((1-AK)/2)*(
0076C0: 31 2B 53 47 4E 20 28 30 2E 39 35 2D 41 4B 29 29 1+SGN (0.95-AK))
0076D0: 3A 41 49 3D 49 4E 54 28 41 49 2D 45 4F 29 3A 4C :AI=INT(AI-EO):L
0076E0: 4F 43 41 54 45 20 35 2C 39 3A 50 52 49 4E 54 20 OCATE 5,9:PRINT
0076F0: 22 59 4F 55 20 48 41 56 45 20 50 55 52 43 48 41 "YOU HAVE PURCHA
007700: 53 45 44 20 22 3B 45 50 3B 22 20 53 48 41 52 45 SED ";EP;" SHARE
007710: 53 22 3A 47 4F 53 55 42 20 38 39 30 3A 43 5A 3D S":GOSUB 890:CZ=
007720: 31 0D 0A 31 30 30 38 20 46 4F 52 20 49 3D 31 20 1..1008 FOR I=1
007730: 54 4F 20 39 39 3A 4E 45 58 54 3A 47 4F 54 4F 20 TO 99:NEXT:GOTO
007740: 39 30 30 0D 0A 31 30 31 30 20 43 5A 3D 31 3A 41 900..1010 CZ=1:A
007750: 55 3D 41 55 2D 44 57 3A 41 56 3D 49 4E 54 20 28 U=AU-DW:AV=INT (
007760: 44 57 2F 31 30 30 30 29 3A 41 56 3D 41 56 2B 41 DW/1000):AV=AV+A
007770: 42 53 28 41 56 3C 30 29 2A 41 42 53 28 41 56 29 BS(AV<0)*ABS(AV)
007780: 3A 41 4B 3D 41 4B 2D 28 28 41 4B 2F 31 30 30 29 :AK=AK-((AK/100)
007790: 2A 41 56 29 3A 41 4B 3D 41 4B 2B 28 28 31 2D 41 *AV):AK=AK+((1-A
0077A0: 4B 29 2F 32 29 2A 28 31 2B 53 47 4E 20 28 30 2E K)/2)*(1+SGN (0.
0077B0: 39 35 2D 41 4B 29 29 0D 0A 31 30 31 31 20 44 58 95-AK))..1011 DX
0077C0: 3D 49 4E 54 20 28 41 4B 2A 44 57 29 2F 31 30 30 =INT (AK*DW)/100
0077D0: 3A 41 4B 3D 41 4B 2D 49 4E 54 20 28 41 47 2D 42 :AK=AK-INT (AG-B
0077E0: 58 29 2A 32 30 3A 4C 4F 43 41 54 45 20 35 2C 39 X)*20:LOCATE 5,9
0077F0: 3A 50 52 49 4E 54 20 22 54 48 45 20 43 4C 55 42 :PRINT "THE CLUB
007800: 3D 45 54 3A 45 54 3D 45 54 2B 31 3A 49 46 20 45 =ET:ET=ET+1:IF E
007810: 54 3D 34 31 20 54 48 45 4E 20 31 30 33 30 20 45 T=41 THEN 1030 E
007820: 4C 53 45 20 31 30 33 32 0D 0A 1A 08 04 C9 00 4C LSE 1032.......L
007830: 00 09 04 A1 20 0D 00 00 CC 28 0D 00 00 C6 29 EF .... ....(....).
007840: 0E 20 EB 20 0D 00 00 CC 28 0D 00 00 C6 29 EF 0D . . ....(....)..
007850: 00 00 45 D4 01 0D 00 00 45 D4 EF 0D 00 00 45 D4 ..E.....E.....E.
007860: F4 0F 01 A1 20 0D 00 00 45 D4 EF 19 29 20 EB 20 .... ...E...) .
007870: 1E 06 04 20 01 97 20 1E 08 04 00 00 00 1A 00 00 ... .. .........
007880: 52 45 54 55 52 4E 20 0D 0A 31 30 32 39 20 49 46 RETURN ..1029 IF
007890: 20 4A 3D 31 20 41 4E 44 20 4F 4A 3D 33 20 4F 52 J=1 AND OJ=3 OR
0078A0: 20 4A 3D 33 20 41 4E 44 20 4F 4B 3D 33 20 54 48 J=3 AND OK=3 TH
0078B0: 45 4E 20 47 4F 53 55 42 20 38 39 31 3A 47 4F 54 EN GOSUB 891:GOT
0078C0: 4F 20 31 30 33 31 0D 0A 31 30 33 30 20 50 52 49 O 1031..1030 PRI
0078D0: 4E 54 20 54 41 42 28 31 38 29 3B 70 61 24 28 33 NT TAB(18);pa$(3
0078E0: 29 3B 22 20 42 41 4E 4B 20 22 3B 70 61 24 28 31 );" BANK ";pa$(1
0078F0: 29 3B 2C 2C 2C 54 41 42 28 37 29 3B 22 43 55 52 );,,,TAB(7);"CUR
007900: 52 45 4E 54 20 41 43 43 4F 55 4E 54 20 20 20 20 RENT ACCOUNT
007910: 22 3B 3A 54 45 4D 50 3D 49 4E 54 28 41 49 29 3A ";:TEMP=INT(AI):
007920: 47 4F 53 55 42 20 36 33 35 30 30 0D 0A 31 30 33 GOSUB 63500..103
007930: 31 20 50 52 49 4E 54 2C 2C 2C 54 41 42 28 37 29 1 PRINT,,,TAB(7)
007940: 3B 22 4F 56 45 52 44 52 41 46 54 20 46 41 43 49 ;"OVERDRAFT FACI
007950: 4C 49 54 59 20 22 3B 3A 54 45 4D 50 3D 49 4E 54 LITY ";:TEMP=INT
007960: 28 4B 41 29 3A 47 4F 53 55 42 20 36 33 35 30 30 (KA):GOSUB 63500
007970: 3A 50 52 49 4E 54 2C 2C 2C 54 41 42 28 37 29 3B :PRINT,,,TAB(7);
007980: 22 41 4D 4F 55 4E 54 20 4F 57 45 44 20 20 20 20 "AMOUNT OWED
007990: 20 20 20 20 22 3B 3A 54 45 4D 50 3D 49 4E 54 28 ";:TEMP=INT(
0079A0: 4B 43 29 3A 47 4F 53 55 42 20 36 33 35 30 30 3A KC):GOSUB 63500:
0079B0: 49 46 20 4A 51 3D 30 20 54 48 45 4E 20 50 52 49 IF JQ=0 THEN PRI
0079C0: 4E 54 20 2C 2C 2C 54 41 42 28 37 29 3B 22 31 20 NT ,,,TAB(7);"1
0079D0: 4D 4F 52 54 47 41 47 45 22 0D 0A 31 30 33 32 20 MORTGAGE"..1032
0079E0: 52 45 54 55 52 4E 0D 0A 31 30 33 33 20 49 46 20 RETURN..1033 IF
0079F0: 4C 28 46 29 3D 30 20 54 48 45 4E 20 4C 28 46 29 L(F)=0 THEN L(F)
007A00: 20 48 41 53 20 52 41 49 53 45 44 20 22 3B 3A 54 HAS RAISED ";:T
007A10: 45 4D 50 3D 49 4E 54 28 44 58 29 3A 47 4F 53 55 EMP=INT(DX):GOSU
007A20: 42 20 36 33 35 30 30 3A 41 49 3D 49 4E 54 28 41 B 63500:AI=INT(A
007A30: 49 29 2B 44 58 3A 47 4F 53 55 42 20 38 39 30 3A I)+DX:GOSUB 890:
007A40: 4A 55 3D 41 42 53 28 41 55 3C 31 29 3A 52 45 54 JU=ABS(AU<1):RET
007A50: 55 52 4E 0D 0A 1A 41 4E 44 20 41 48 3D 30 20 54 URN...AND AH=0 T
007A60: 48 45 4E 20 41 47 3D 31 32 0D 0A 31 30 30 32 20 HEN AG=12..1002
007A70: 41 4B 3D 41 4B 2B 41 42 53 28 41 47 3C 42 58 29 AK=AK+ABS(AG<BX)
007A80: 2A 36 29 3A 41 4B 3D 49 4E 54 28 41 4B 2B 45 50 *6):AK=INT(AK+EP
007A90: 29 3A 45 50 3D 49 4E 54 20 28 45 4F 2F 41 4B 29 ):EP=INT (EO/AK)
007AA0: 2A 31 30 30 3A 41 55 3D 41 55 2B 45 50 3A 41 4B *100:AU=AU+EP:AK
007AB0: 3D 41 4B 2B 28 28 31 2D 41 4B 29 2F 32 29 2A 28 =AK+((1-AK)/2)*(
007AC0: 31 2B 53 47 4E 20 28 30 2E 39 35 2D 41 4B 29 29 1+SGN (0.95-AK))
007AD0: 3A 41 49 3D 49 4E 54 28 41 49 2D 45 4F 29 3A 4C :AI=INT(AI-EO):L
007AE0: 4F 43 41 54 45 20 35 2C 39 3A 50 52 49 4E 54 20 OCATE 5,9:PRINT
007AF0: 22 59 4F 55 20 48 41 56 45 20 50 55 52 43 48 41 "YOU HAVE PURCHA
007B00: 53 45 44 20 22 3B 45 50 3B 22 20 53 48 41 52 45 SED ";EP;" SHARE
007B10: 53 22 3A 47 4F 53 55 42 20 38 39 30 3A 43 5A 3D S":GOSUB 890:CZ=
007B20: 31 0D 0A 31 30 30 38 20 46 4F 52 20 49 3D 31 20 1..1008 FOR I=1
007B30: 54 4F 20 39 39 3A 4E 45 58 54 3A 47 4F 54 4F 20 TO 99:NEXT:GOTO
007B40: 39 30 30 0D 0A 31 30 31 30 20 43 5A 3D 31 3A 41 900..1010 CZ=1:A
007B50: 55 3D 41 55 2D 44 57 3A 41 56 3D 49 4E 54 20 28 U=AU-DW:AV=INT (
007B60: 44 57 2F 31 30 30 30 29 3A 41 56 3D 41 56 2B 41 DW/1000):AV=AV+A
007B70: 42 53 28 41 56 3C 30 29 2A 41 42 53 28 41 56 29 BS(AV<0)*ABS(AV)
007B80: 3A 41 4B 3D 41 4B 2D 28 28 41 4B 2F 31 30 30 29 :AK=AK-((AK/100)
007B90: 2A 41 56 29 3A 41 4B 3D 41 4B 2B 28 28 31 2D 41 *AV):AK=AK+((1-A
007BA0: 4B 29 2F 32 29 2A 28 31 2B 53 47 4E 20 28 30 2E K)/2)*(1+SGN (0.
007BB0: 39 35 2D 41 4B 29 29 0D 0A 31 30 31 31 20 44 58 95-AK))..1011 DX
007BC0: 3D 49 4E 54 20 28 41 4B 2A 44 57 29 2F 31 30 30 =INT (AK*DW)/100
007BD0: 3A 41 4B 3D 41 4B 2D 49 4E 54 20 28 41 47 2D 42 :AK=AK-INT (AG-B
007BE0: 58 29 2A 32 30 3A 4C 4F 43 41 54 45 20 35 2C 39 X)*20:LOCATE 5,9
007BF0: 3A 50 52 49 4E 54 20 22 54 48 45 20 43 4C 55 42 :PRINT "THE CLUB
007C00: 31 30 30 31 20 49 4E 4B 20 30 2C 32 3A 49 4E 4B 1001 INK 0,2:INK
007C10: 20 31 2C 32 36 3A 42 4F 52 44 45 52 20 32 3A 6E 1,26:BORDER 2:n
007C20: 69 3D 49 4E 54 28 31 35 30 30 30 30 30 2F 61 70 i=INT(1500000/ap
007C30: 29 3A 43 4C 53 3A 6F 32 3D 37 3A 6F 33 3D 31 3A ):CLS:o2=7:o3=1:
007C40: 6F 34 3D 32 38 3A 27 47 4F 53 55 42 20 32 31 38 o4=28:'GOSUB 218
007C50: 0D 0A 31 30 30 32 20 4C 4F 43 41 54 45 20 35 2C ..1002 LOCATE 5,
007C60: 31 30 3A 50 52 49 4E 54 22 54 48 45 20 42 55 49 10:PRINT"THE BUI
007C70: 4C 44 45 52 53 20 43 48 41 52 47 45 20 22 3B 3A LDERS CHARGE ";:
007C80: 74 65 6D 70 3D 6E 69 3A 47 4F 53 55 42 20 36 34 temp=ni:GOSUB 64
007C90: 35 30 30 3A 50 52 49 4E 54 2C 2C 54 41 42 28 35 500:PRINT,,TAB(5
007CA0: 29 3B 22 54 4F 20 49 4D 50 52 4F 56 45 20 47 52 );"TO IMPROVE GR
007CB0: 4F 55 4E 44 20 43 41 50 41 43 49 54 59 20 54 4F OUND CAPACITY TO
007CC0: 22 2C 2C 2C 54 41 42 28 35 29 3B 22 4D 41 58 49 ",,,TAB(5);"MAXI
007CD0: 4D 55 4D 2E 22 3A 50 52 49 4E 54 0D 0A 31 30 30 MUM.":PRINT..100
007CE0: 33 20 50 52 49 4E 54 20 54 41 42 28 31 30 29 3B 3 PRINT TAB(10);
007CF0: 22 44 4F 20 59 4F 55 20 41 47 52 45 45 3F 20 59 "DO YOU AGREE? Y
007D00: 2F 4E 22 3A 47 4F 53 55 42 20 38 39 30 0D 0A 31 /N":GOSUB 890..1
007D10: 30 30 34 20 47 4F 53 55 42 20 36 34 30 30 30 3A 004 GOSUB 64000:
007D20: 49 46 20 69 6E 24 3D 22 4E 22 20 54 48 45 4E 20 IF in$="N" THEN
007D30: 6E 69 3D 30 3A 47 4F 54 4F 20 39 30 30 0D 0A 31 ni=0:GOTO 900..1
007D40: 30 30 35 20 49 46 20 69 6E 24 3C 3E 22 59 22 20 005 IF in$<>"Y"
007D50: 54 48 45 4E 20 31 30 30 34 0D 0A 31 30 30 36 20 THEN 1004..1006
007D60: 49 46 20 61 69 3E 6E 69 20 54 48 45 4E 20 61 69 IF ai>ni THEN ai
007D70: 3D 49 4E 54 28 61 69 2D 6E 69 29 3A 47 4F 54 4F =INT(ai-ni):GOTO
007D80: 20 39 30 30 0D 0A 31 30 30 37 20 47 4F 54 4F 20 900..1007 GOTO
007D90: 31 30 30 34 0D 0A 1A A1 20 03 00 00 69 EE F2 22 1004.... ...i.."
007DA0: 59 22 20 EB 20 1E EC 03 00 30 00 EE 03 A1 20 0D Y" . ....0.... .
007DB0: 00 00 61 E9 EE 0D 00 00 6E E9 20 EB 20 0D 00 00 ..a.....n. . ...
007DC0: 61 E9 EF FF 0C 28 0D 00 00 61 E9 F5 0D 00 00 6E a....(...a.....n
007DD0: E9 29 01 A0 20 1E 84 03 00 0A 00 EF 03 A0 20 1E .).. ......... .
007DE0: EC 03 00 00 00 1A 00 00 6E E9 29 01 A0 20 1E 84 ........n.).. ..
007DF0: 03 00 0A 00 EF 03 A0 20 1E EC 03 00 00 00 1A 1A ....... ........
007E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0080A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0080B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0080C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0080D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0080E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0080F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0081A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0081B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0081C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0081D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0081E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0081F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008200: 31 30 30 31 20 50 45 4E 20 31 3A 50 41 50 45 52 1001 PEN 1:PAPER
008210: 20 30 3A 43 4C 53 3A 4C 4F 43 41 54 45 20 31 35 0:CLS:LOCATE 15
008220: 2C 31 3A 50 52 49 4E 54 20 70 61 24 28 33 29 3B ,1:PRINT pa$(3);
008230: 22 20 45 4D 50 4C 4F 59 45 45 53 20 22 70 61 24 " EMPLOYEES "pa$
008240: 28 31 29 2C 2C 2C 3A 49 46 20 4E 4C 3C 3E 31 20 (1),,,:IF NL<>1
008250: 54 48 45 4E 20 31 30 30 33 0D 0A 31 30 30 32 20 THEN 1003..1002
008260: 50 52 49 4E 54 20 54 41 42 28 35 29 3B 22 31 20 PRINT TAB(5);"1
008270: 53 41 43 4B 20 43 4F 41 43 48 22 2C 2C 2C 3A 47 SACK COACH",,,:G
008280: 4F 54 4F 20 31 30 30 34 0D 0A 31 30 30 33 20 50 OTO 1004..1003 P
008290: 52 49 4E 54 20 54 41 42 28 35 29 3B 22 31 20 48 RINT TAB(5);"1 H
0082A0: 49 52 45 20 43 4F 41 43 48 22 2C 2C 2C 0D 0A 31 IRE COACH",,,..1
0082B0: 30 30 34 20 49 46 20 4E 4D 3C 3E 31 20 54 48 45 004 IF NM<>1 THE
0082C0: 4E 20 31 30 30 36 0D 0A 31 30 30 35 20 50 52 49 N 1006..1005 PRI
0082D0: 4E 54 20 54 41 42 28 35 29 3B 22 32 20 53 41 43 NT TAB(5);"2 SAC
0082E0: 4B 20 50 48 59 53 49 4F 20 22 3B 49 24 28 32 29 K PHYSIO ";I$(2)
0082F0: 3B 22 20 22 3B 55 53 49 4E 47 22 23 23 22 3B 59 ;" ";USING"##";Y
008300: 28 32 2C 32 29 3B 3A 50 52 49 4E 54 20 22 25 22 (2,2);:PRINT "%"
008310: 2C 2C 2C 3A 47 4F 54 4F 20 31 30 30 37 0D 0A 31 ,,,:GOTO 1007..1
008320: 30 30 36 20 50 52 49 4E 54 20 54 41 42 28 35 29 006 PRINT TAB(5)
008330: 3B 22 32 20 48 49 52 45 20 50 48 59 53 49 4F 22 ;"2 HIRE PHYSIO"
008340: 2C 2C 2C 0D 0A 31 30 30 37 20 49 46 20 4E 4E 3D ,,,..1007 IF NN=
008350: 30 20 54 48 45 4E 20 31 30 30 39 0D 0A 31 30 30 0 THEN 1009..100
008360: 38 20 50 52 49 4E 54 20 54 41 42 28 35 29 3B 22 8 PRINT TAB(5);"
008370: 33 20 53 41 43 4B 20 53 43 4F 55 54 22 2C 2C 2C 3 SACK SCOUT",,,
008380: 0D 0A 31 30 30 39 20 49 46 20 4E 4E 3E 32 20 54 ..1009 IF NN>2 T
008390: 48 45 4E 20 31 30 31 31 0D 0A 31 30 31 30 20 50 HEN 1011..1010 P
0083A0: 52 49 4E 54 20 54 41 42 28 35 29 3B 22 34 20 48 RINT TAB(5);"4 H
0083B0: 49 52 45 20 53 43 4F 55 54 22 2C 2C 2C 0D 0A 31 IRE SCOUT",,,..1
0083C0: 30 31 31 20 49 46 20 4E 4F 3E 30 20 41 4E 44 20 011 IF NO>0 AND
0083D0: 6E 6C 3D 31 20 54 48 45 4E 20 31 30 31 32 20 45 nl=1 THEN 1012 E
0083E0: 4C 53 45 20 31 30 31 33 0D 0A 31 30 31 32 20 50 LSE 1013..1012 P
0083F0: 52 49 4E 54 20 54 41 42 28 35 29 3B 22 35 20 53 RINT TAB(5);"5 S
008400: 31 30 30 31 20 43 4C 53 3A 49 46 20 43 49 3D 31 1001 CLS:IF CI=1
008410: 20 41 4E 44 20 41 48 3D 30 20 54 48 45 4E 20 41 AND AH=0 THEN A
008420: 47 3D 31 32 0D 0A 31 30 30 32 20 41 4B 3D 41 4B G=12..1002 AK=AK
008430: 2B 41 42 53 28 41 47 3C 42 58 29 2A 49 4E 54 20 +ABS(AG<BX)*INT
008440: 28 42 58 2D 41 47 29 2A 32 30 3A 41 4B 3D 41 4B (BX-AG)*20:AK=AK
008450: 2D 41 42 53 28 41 47 3E 42 58 29 2A 49 4E 54 20 -ABS(AG>BX)*INT
008460: 28 41 47 2D 42 58 29 2A 32 30 3A 41 4B 3D 41 4B (AG-BX)*20:AK=AK
008470: 2B 28 28 31 2D 41 4B 29 2F 32 29 2A 28 31 2B 53 +((1-AK)/2)*(1+S
008480: 47 4E 20 28 30 2E 39 35 2D 41 4B 29 29 3A 42 58 GN (0.95-AK)):BX
008490: 3D 41 47 3A 4C 4F 43 41 54 45 20 31 33 2C 32 3A =AG:LOCATE 13,2:
0084A0: 50 52 49 4E 54 20 22 53 48 41 52 45 53 20 50 52 PRINT "SHARES PR
0084B0: 49 43 45 20 22 3B 49 4E 54 28 41 4B 29 3B 43 48 ICE ";INT(AK);CH
0084C0: 52 24 28 38 29 3B 22 70 22 2C 2C 2C 54 41 42 28 R$(8);"p",,,TAB(
0084D0: 31 34 29 3B 22 31 20 53 45 4C 4C 20 53 48 41 52 14);"1 SELL SHAR
0084E0: 45 53 22 2C 2C 2C 54 41 42 28 31 34 29 3B 22 32 ES",,,TAB(14);"2
0084F0: 20 42 55 59 20 53 48 41 52 45 53 22 3A 50 52 49 BUY SHARES":PRI
008500: 4E 54 23 32 2C 54 41 42 28 31 33 29 22 4D 65 6E NT#2,TAB(13)"Men
008510: 75 22 3A 47 4F 53 55 42 20 38 39 30 0D 0A 31 30 u":GOSUB 890..10
008520: 30 33 20 47 4F 53 55 42 20 38 35 31 3A 47 4F 53 03 GOSUB 851:GOS
008530: 55 42 20 36 34 30 30 30 3A 49 46 20 49 4E 24 3D UB 64000:IF IN$=
008540: 22 31 22 20 54 48 45 4E 20 31 30 30 34 20 45 4C "1" THEN 1004 EL
008550: 53 45 20 49 46 20 49 4E 24 3D 22 32 22 20 54 48 SE IF IN$="2" TH
008560: 45 4E 20 31 30 30 36 20 45 4C 53 45 20 49 46 20 EN 1006 ELSE IF
008570: 49 4E 24 3D 22 4D 22 20 54 48 45 4E 20 39 30 30 IN$="M" THEN 900
008580: 20 45 4C 53 45 20 31 30 30 33 0D 0A 31 30 30 34 ELSE 1003..1004
008590: 20 4C 4F 43 41 54 45 20 37 2C 38 3A 49 4E 50 55 LOCATE 7,8:INPU
0085A0: 54 20 22 53 45 4C 4C 20 48 4F 57 20 4D 41 4E 59 T "SELL HOW MANY
0085B0: 20 53 48 41 52 45 53 20 22 3B 44 57 3A 49 46 20 SHARES ";DW:IF
0085C0: 44 57 3C 30 20 4F 52 20 44 57 3E 31 30 30 30 30 DW<0 OR DW>10000
0085D0: 30 20 54 48 45 4E 20 31 30 30 34 0D 0A 31 30 30 0 THEN 1004..100
0085E0: 35 20 47 4F 53 55 42 20 31 30 31 30 3A 47 4F 54 5 GOSUB 1010:GOT
0085F0: 4F 20 31 30 30 38 0D 0A 31 30 30 36 20 4C 4F 43 O 1008..1006 LOC
008600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
008610: 07 00 01 00 02 09 4E E5 07 00 41 02 00 00 00 02 ......N...A.....
008620: 07 00 46 02 00 00 00 02 07 00 42 02 00 00 00 02 ..F.......B.....
008630: 07 00 47 02 00 00 00 02 07 00 43 02 00 00 00 02 ..G.......C.....
008640: 07 00 48 02 00 00 00 02 07 00 44 02 00 00 00 02 ..H.......D.....
008650: 07 00 49 02 00 00 00 02 07 00 45 02 00 00 00 02 ..I.......E.....
008660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008700: 41 43 4B 20 59 4F 55 54 48 20 50 4C 41 59 45 52 ACK YOUTH PLAYER
008710: 22 2C 2C 2C 0D 0A 31 30 31 33 20 49 46 20 4E 6C ",,,..1013 IF Nl
008720: 3C 3E 31 20 54 48 45 4E 20 31 30 31 35 20 45 4C <>1 THEN 1015 EL
008730: 53 45 20 49 46 20 20 6E 6F 3E 36 20 54 48 45 4E SE IF no>6 THEN
008740: 20 31 30 31 35 0D 0A 31 30 31 34 20 50 52 49 4E 1015..1014 PRIN
008750: 54 20 54 41 42 28 35 29 3B 22 36 20 48 49 52 45 T TAB(5);"6 HIRE
008760: 20 59 4F 55 54 48 20 50 4C 41 59 45 52 22 2C 2C YOUTH PLAYER",,
008770: 2C 0D 0A 31 30 31 35 20 4C 4F 43 41 54 45 20 31 ,..1015 LOCATE 1
008780: 38 2C 31 39 3A 50 52 49 4E 54 20 70 61 24 28 33 8,19:PRINT pa$(3
008790: 29 3B 22 20 20 4D 65 6E 75 20 20 22 3B 70 61 24 );" Menu ";pa$
0087A0: 28 31 29 0D 0A 31 30 31 36 20 47 4F 53 55 42 20 (1)..1016 GOSUB
0087B0: 36 34 30 30 30 3A 49 46 20 49 4E 24 3D 22 4D 22 64000:IF IN$="M"
0087C0: 20 54 48 45 4E 20 31 30 35 32 20 45 4C 53 45 20 THEN 1052 ELSE
0087D0: 49 46 20 49 4E 24 3D 22 31 22 20 54 48 45 4E 20 IF IN$="1" THEN
0087E0: 31 30 32 32 20 45 4C 53 45 20 49 46 20 49 4E 24 1022 ELSE IF IN$
0087F0: 3D 22 32 22 20 54 48 45 4E 20 31 30 32 35 0D 0A ="2" THEN 1025..
008800: 31 30 31 37 20 49 46 20 49 4E 24 3D 22 33 22 20 1017 IF IN$="3"
008810: 41 4E 44 20 4E 4E 3E 30 20 54 48 45 4E 20 31 30 AND NN>0 THEN 10
008820: 33 39 0D 0A 31 30 31 38 20 49 46 20 49 4E 24 3D 39..1018 IF IN$=
008830: 22 34 22 20 41 4E 44 20 4E 4E 3C 33 20 54 48 45 "4" AND NN<3 THE
008840: 4E 20 31 30 32 36 0D 0A 31 30 31 39 20 49 46 20 N 1026..1019 IF
008850: 49 4E 24 3D 22 35 22 20 41 4E 44 20 4E 4F 3E 30 IN$="5" AND NO>0
008860: 20 41 4E 44 20 4E 4C 20 3D 31 20 54 48 45 4E 20 AND NL =1 THEN
008870: 31 30 32 38 0D 0A 31 30 32 30 20 49 46 20 49 4E 1028..1020 IF IN
008880: 24 3D 22 36 22 20 41 4E 44 20 4E 4F 3C 37 20 41 $="6" AND NO<7 A
008890: 4E 44 20 4E 4C 3D 31 20 54 48 45 4E 20 47 4F 54 ND NL=1 THEN GOT
0088A0: 4F 20 31 30 33 33 0D 0A 31 30 32 31 20 47 4F 53 O 1033..1021 GOS
0088B0: 55 42 20 38 35 30 3A 47 4F 54 4F 20 31 30 31 36 UB 850:GOTO 1016
0088C0: 0D 0A 31 30 32 32 20 4E 4C 3D 4E 4C 2B 41 42 53 ..1022 NL=NL+ABS
0088D0: 28 4E 4C 3D 30 29 2D 41 42 53 28 4E 4C 3D 31 29 (NL=0)-ABS(NL=1)
0088E0: 3A 49 42 3D 31 3A 47 4F 53 55 42 20 31 30 34 37 :IB=1:GOSUB 1047
0088F0: 3A 49 46 20 4E 4C 3C 3E 30 20 54 48 45 4E 20 31 :IF NL<>0 THEN 1
008900: 4E 4C 2B 28 4E 4C 3E 30 29 3A 47 4F 53 55 42 20 NL+(NL>0):GOSUB
008910: 31 30 34 35 3A 47 4F 53 55 42 20 31 30 34 38 3A 1045:GOSUB 1048:
008920: 47 4F 54 4F 20 32 33 30 0D 0A 31 30 35 36 20 49 GOTO 230..1056 I
008930: 46 20 49 42 3D 32 20 54 48 45 4E 20 4E 4D 3D 4E F IB=2 THEN NM=N
008940: 4D 2B 28 4E 4D 3E 30 29 3A 47 4F 53 55 42 20 31 M+(NM>0):GOSUB 1
008950: 30 34 35 3A 47 4F 54 4F 20 32 33 30 0D 0A 31 30 045:GOTO 230..10
008960: 35 37 20 4E 4E 3D 4E 4E 2B 28 4E 4E 3E 30 29 3A 57 NN=NN+(NN>0):
008970: 47 4F 53 55 42 20 31 30 34 35 3A 47 4F 54 4F 20 GOSUB 1045:GOTO
008980: 32 33 30 0D 0A 31 30 35 38 20 52 45 54 55 52 4E 230..1058 RETURN
008990: 20 0D 0A 31 30 35 39 20 49 24 28 49 42 29 3D 4D ..1059 I$(IB)=M
0089A0: 49 44 24 28 48 24 2C 52 43 2C 31 29 2B 4D 49 44 ID$(H$,RC,1)+MID
0089B0: 24 28 4D 24 2C 52 42 2C 31 29 2B 4D 49 44 24 28 $(M$,RB,1)+MID$(
0089C0: 48 24 2C 52 44 2C 31 29 2B 45 24 28 52 41 29 3A H$,RD,1)+E$(RA):
0089D0: 59 28 31 2C 49 42 29 3D 35 30 2B 41 42 53 28 49 Y(1,IB)=50+ABS(I
0089E0: 42 3C 36 29 2A 28 31 30 30 2B 49 4E 54 28 52 4E B<6)*(100+INT(RN
0089F0: 44 2A 31 30 30 29 29 0D 0A 31 30 36 30 20 59 28 D*100))..1060 Y(
008A00: 32 2C 49 42 29 3D 28 30 2B 41 42 53 28 49 42 3C 2,IB)=(0+ABS(IB<
008A10: 36 29 29 2B 49 4E 54 20 28 52 4E 44 2A 28 31 31 6))+INT (RND*(11
008A20: 2B 41 42 53 28 49 42 3C 36 29 2A 38 38 29 29 3A +ABS(IB<6)*88)):
008A30: 59 28 33 2C 49 42 29 3D 33 35 2B 49 4E 54 28 52 Y(3,IB)=35+INT(R
008A40: 4E 44 2A 36 35 29 3A 59 28 34 2C 49 42 29 3D 31 ND*65):Y(4,IB)=1
008A50: 2B 49 4E 54 20 28 52 4E 44 2A 34 29 3A 59 28 35 +INT (RND*4):Y(5
008A60: 2C 49 42 29 3D 31 36 2B 49 4E 54 20 28 52 4E 44 ,IB)=16+INT (RND
008A70: 2A 33 29 3A 59 28 36 2C 49 42 29 3D 2D 33 2B 49 *3):Y(6,IB)=-3+I
008A80: 4E 54 20 28 52 4E 44 2A 31 37 29 0D 0A 31 30 36 NT (RND*17)..106
008A90: 31 20 59 28 36 2C 49 42 29 3D 59 28 36 2C 49 42 1 Y(6,IB)=Y(6,IB
008AA0: 29 2B 41 42 53 28 59 28 36 2C 49 42 29 3C 30 29 )+ABS(Y(6,IB)<0)
008AB0: 2A 41 42 53 28 59 28 36 2C 49 42 29 29 2D 41 42 *ABS(Y(6,IB))-AB
008AC0: 53 28 59 28 36 2C 49 42 29 3E 39 29 2A 28 59 28 S(Y(6,IB)>9)*(Y(
008AD0: 36 2C 49 42 29 2D 39 29 3A 47 4F 53 55 42 20 31 6,IB)-9):GOSUB 1
008AE0: 30 35 30 3A 52 45 54 55 52 4E 20 0D 0A 1A 3B 22 050:RETURN ...;"
008AF0: 31 20 53 41 43 4B 20 43 4F 41 43 48 22 2C 2C 2C 1 SACK COACH",,,
008B00: 30 32 34 0D 0A 31 30 32 33 20 47 4F 53 55 42 20 024..1023 GOSUB
008B10: 31 30 34 35 3A 47 4F 54 4F 20 31 30 35 32 0D 0A 1045:GOTO 1052..
008B20: 31 30 32 34 20 47 4F 53 55 42 20 31 30 34 34 3A 1024 GOSUB 1044:
008B30: 59 28 33 2C 49 42 29 3D 30 3A 59 28 34 2C 49 42 Y(3,IB)=0:Y(4,IB
008B40: 29 3D 30 3A 59 28 35 2C 49 42 29 3D 30 3A 47 4F )=0:Y(5,IB)=0:GO
008B50: 54 4F 20 31 30 35 32 0D 0A 31 30 32 35 20 4E 4D TO 1052..1025 NM
008B60: 3D 4E 4D 2B 41 42 53 28 4E 4D 3D 30 29 2D 41 42 =NM+ABS(NM=0)-AB
008B70: 53 28 4E 4D 3D 31 29 3A 49 42 3D 32 3A 49 46 20 S(NM=1):IB=2:IF
008B80: 4E 4D 3D 30 20 54 48 45 4E 20 31 30 32 35 20 45 NM=0 THEN 1025 E
008B90: 4C 53 45 20 31 30 32 34 0D 0A 31 30 32 36 20 46 LSE 1024..1026 F
008BA0: 4F 52 20 49 3D 33 20 54 4F 20 35 3A 54 45 4D 50 OR I=3 TO 5:TEMP
008BB0: 24 3D 49 24 28 49 29 3A 47 4F 53 55 42 20 36 34 $=I$(I):GOSUB 64
008BC0: 39 30 30 3A 49 46 20 46 4C 41 47 20 54 48 45 4E 900:IF FLAG THEN
008BD0: 20 49 42 3D 49 3A 4E 4E 3D 4E 4E 2B 41 42 53 28 IB=I:NN=NN+ABS(
008BE0: 4E 4E 3C 33 29 3A 49 3D 39 39 0D 0A 31 30 32 37 NN<3):I=99..1027
008BF0: 20 4E 45 58 54 3A 49 46 20 49 3D 31 30 30 20 54 NEXT:IF I=100 T
008C00: 48 45 4E 20 31 30 32 34 0D 0A 31 30 32 38 20 43 HEN 1024..1028 C
008C10: 4C 53 3A 50 52 49 4E 54 20 54 41 42 28 31 36 29 LS:PRINT TAB(16)
008C20: 3B 22 59 4F 55 54 48 20 54 45 41 4D 22 3B 3A 3A ;"YOUTH TEAM";::
008C30: 4C 4F 43 41 54 45 20 31 32 2C 34 3A 50 52 49 4E LOCATE 12,4:PRIN
008C40: 54 22 43 4F 41 43 48 3A 22 3B 49 24 28 31 29 3B T"COACH:";I$(1);
008C50: 54 41 42 28 32 37 29 3B 59 28 32 2C 31 29 3B 22 TAB(27);Y(2,1);"
008C60: 25 22 3A 4C 4F 43 41 54 45 20 33 30 2C 36 3A 50 %":LOCATE 30,6:P
008C70: 52 49 4E 54 22 54 45 4D 50 22 3A 46 4F 52 20 49 RINT"TEMP":FOR I
008C80: 3D 31 20 54 4F 20 37 3A 54 45 4D 50 24 3D 49 24 =1 TO 7:TEMP$=I$
008C90: 28 49 2B 35 29 3A 47 4F 53 55 42 20 36 34 39 30 (I+5):GOSUB 6490
008CA0: 30 3A 49 46 20 46 4C 41 47 20 54 48 45 4E 20 31 0:IF FLAG THEN 1
008CB0: 30 33 30 0D 0A 31 30 32 39 20 52 41 3D 41 42 53 030..1029 RA=ABS
008CC0: 28 59 28 32 2C 49 2B 35 29 3D 59 28 33 2C 49 2B (Y(2,I+5)=Y(3,I+
008CD0: 35 29 29 3A 50 52 49 4E 54 20 54 41 42 28 38 29 5)):PRINT TAB(8)
008CE0: 3B 43 48 52 24 28 33 32 2B 41 42 53 28 52 41 3D ;CHR$(32+ABS(RA=
008CF0: 31 29 2A 33 30 29 3B 49 3B 50 41 24 28 59 28 34 1)*30);I;PA$(Y(4
008D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008F00: 2C 49 2B 35 29 29 3B 50 4F 31 53 24 28 59 28 34 ,I+5));PO1S$(Y(4
008F10: 2C 49 2B 35 29 29 3B 22 20 22 3B 49 24 28 49 2B ,I+5));" ";I$(I+
008F20: 35 29 3B 54 41 42 28 32 33 29 3B 55 53 49 4E 47 5);TAB(23);USING
008F30: 22 23 23 22 3B 59 28 35 2C 49 2B 35 29 3B 3A 50 "##";Y(5,I+5);:P
008F40: 52 49 4E 54 20 59 28 32 2C 49 2B 35 29 3B 54 41 RINT Y(2,I+5);TA
008F50: 42 28 32 39 29 3B 22 25 22 3B 59 28 36 2C 49 2B B(29);"%";Y(6,I+
008F60: 35 29 0D 0A 31 30 33 30 20 4E 45 58 54 0D 0A 31 5)..1030 NEXT..1
008F70: 30 33 31 20 49 4E 50 55 54 20 23 32 2C 22 53 41 031 INPUT #2,"SA
008F80: 43 4B 20 57 48 49 43 48 20 50 4C 41 59 45 52 20 CK WHICH PLAYER
008F90: 22 3B 49 42 3A 43 4C 53 23 32 3A 49 46 20 49 42 ";IB:CLS#2:IF IB
008FA0: 3C 3D 35 20 41 4E 44 20 49 42 3E 3D 31 33 20 54 <=5 AND IB>=13 T
008FB0: 48 45 4E 20 31 30 33 31 20 45 4C 53 45 20 49 42 HEN 1031 ELSE IB
008FC0: 3D 49 42 2B 35 0D 0A 31 30 33 32 20 54 45 4D 50 =IB+5..1032 TEMP
008FD0: 24 3D 49 24 28 49 42 29 3A 47 4F 53 55 42 20 36 $=I$(IB):GOSUB 6
008FE0: 34 39 30 30 3A 49 46 20 46 4C 41 47 3D 30 20 54 4900:IF FLAG=0 T
008FF0: 48 45 4E 20 31 30 34 36 20 45 4C 53 45 20 31 30 HEN 1046 ELSE 10
009000: 33 31 0D 0A 31 30 33 33 20 46 4F 52 20 49 3D 36 31..1033 FOR I=6
009010: 20 54 4F 20 31 32 3A 54 45 4D 50 24 3D 49 24 28 TO 12:TEMP$=I$(
009020: 49 29 3A 47 4F 53 55 42 20 36 34 39 30 30 3A 49 I):GOSUB 64900:I
009030: 46 20 46 4C 41 47 20 54 48 45 4E 20 49 42 3D 49 F FLAG THEN IB=I
009040: 3A 49 3D 31 33 0D 0A 31 30 33 34 20 4E 45 58 54 :I=13..1034 NEXT
009050: 0D 0A 31 30 33 35 20 4E 4F 3D 4E 4F 2B 41 42 53 ..1035 NO=NO+ABS
009060: 28 4E 4F 3C 37 29 0D 0A 31 30 33 36 20 47 4F 53 (NO<7)..1036 GOS
009070: 55 42 20 31 30 34 34 3A 4C 4F 43 41 54 45 20 31 UB 1044:LOCATE 1
009080: 30 2C 31 39 3A 50 52 49 4E 54 20 50 4F 31 53 24 0,19:PRINT PO1S$
009090: 28 59 28 34 2C 49 42 29 29 3B 54 41 42 28 31 32 (Y(4,IB));TAB(12
0090A0: 29 3B 49 24 28 49 42 29 3B 54 41 42 28 31 39 29 );I$(IB);TAB(19)
0090B0: 3B 59 28 35 2C 49 42 29 3B 22 20 54 45 4D 50 45 ;Y(5,IB);" TEMPE
0090C0: 52 20 22 3B 59 28 36 2C 49 42 29 2C 2C 2C 54 41 R ";Y(6,IB),,,TA
0090D0: 42 28 37 29 3B 22 44 4F 20 59 4F 55 20 57 41 4E B(7);"DO YOU WAN
0090E0: 54 20 54 48 49 53 20 50 4C 41 59 45 52 20 59 2F T THIS PLAYER Y/
0090F0: 4E 22 0D 0A 31 30 33 37 20 47 4F 53 55 42 20 36 N"..1037 GOSUB 6
009100: 31 30 30 31 20 49 4E 4B 20 30 2C 31 35 3A 49 4E 1001 INK 0,15:IN
009110: 4B 20 31 2C 30 3A 49 4E 4B 20 32 2C 30 3A 49 4E K 1,0:INK 2,0:IN
009120: 4B 20 33 2C 36 3A 42 4F 52 44 45 52 20 31 35 3A K 3,6:BORDER 15:
009130: 43 4C 53 0D 0A 31 30 30 32 20 4C 4F 43 41 54 45 CLS..1002 LOCATE
009140: 20 35 2C 39 3A 50 52 49 4E 54 22 48 4F 57 20 4D 5,9:PRINT"HOW M
009150: 41 4E 59 20 57 45 45 4B 53 20 44 4F 20 59 4F 55 ANY WEEKS DO YOU
009160: 20 57 41 4E 54 20 54 4F 20 22 2C 2C 2C 54 41 42 WANT TO ",,,TAB
009170: 28 35 29 3B 3A 49 4E 50 55 54 22 49 4E 53 55 52 (5);:INPUT"INSUR
009180: 45 20 54 48 45 20 53 51 55 41 44 20 46 4F 52 20 E THE SQUAD FOR
009190: 28 31 2D 33 38 29 22 3B 6E 71 3A 49 46 20 4E 51 (1-38)";nq:IF NQ
0091A0: 3C 31 20 4F 52 20 4E 51 3E 33 38 20 54 48 45 4E <1 OR NQ>38 THEN
0091B0: 20 31 30 30 32 0D 0A 31 30 30 33 20 6E 72 3D 49 1002..1003 nr=I
0091C0: 4E 54 28 28 6E 70 2F 38 35 29 2A 6E 71 29 3A 4C NT((np/85)*nq):L
0091D0: 4F 43 41 54 45 20 35 2C 31 33 3A 50 52 49 4E 54 OCATE 5,13:PRINT
0091E0: 22 54 48 49 53 20 50 4F 4C 49 43 59 20 57 49 4C "THIS POLICY WIL
0091F0: 4C 20 43 4F 53 54 20 22 3B 3A 74 65 6D 70 3D 6E L COST ";:temp=n
009200: 72 3A 47 4F 53 55 42 20 36 34 35 30 30 3A 50 52 r:GOSUB 64500:PR
009210: 49 4E 54 2C 2C 2C 2C 54 41 42 28 35 29 3B 22 44 INT,,,,TAB(5);"D
009220: 4F 20 59 4F 55 20 41 43 43 45 50 54 3F 20 59 2F O YOU ACCEPT? Y/
009230: 4E 22 0D 0A 31 30 30 34 20 47 4F 53 55 42 20 36 N"..1004 GOSUB 6
009240: 34 30 30 30 3A 49 46 20 69 6E 24 3D 22 59 22 20 4000:IF in$="Y"
009250: 54 48 45 4E 20 39 30 30 0D 0A 31 30 30 35 20 49 THEN 900..1005 I
009260: 46 20 69 6E 24 3D 22 4E 22 20 54 48 45 4E 20 6E F in$="N" THEN n
009270: 71 3D 30 3A 6E 72 3D 30 3A 47 4F 54 4F 20 39 30 q=0:nr=0:GOTO 90
009280: 30 0D 0A 31 30 30 36 20 47 4F 54 4F 20 31 30 30 0..1006 GOTO 100
009290: 34 0D 0A 1A FA 01 A1 20 03 00 00 69 EE EF 22 59 4...... ...i.."Y
0092A0: 22 20 EB 20 1E 84 03 00 28 00 ED 03 A1 20 03 00 " . ....(.... ..
0092B0: 00 69 EE EF 22 4E 22 20 EB 20 0D 00 00 6E F1 EF .i.."N" . ...n..
0092C0: 0E 01 0D 00 00 6E F2 EF 0E 01 A0 20 1E 84 03 00 .....n..... ....
0092D0: 0A 00 EE 03 A0 20 1E EC 03 00 00 00 1A 03 00 00 ..... ..........
0092E0: 69 EE EF 22 59 22 20 EB 20 1E 84 03 00 28 00 ED i.."Y" . ....(..
0092F0: 03 A1 20 03 00 00 69 EE EF 22 4E 22 20 EB 20 0D .. ...i.."N" . .
009300: 34 30 30 30 3A 49 46 20 49 4E 24 3D 22 4E 22 20 4000:IF IN$="N"
009310: 54 48 45 4E 20 31 30 33 38 20 45 4C 53 45 20 49 THEN 1038 ELSE I
009320: 46 20 49 4E 24 3D 22 59 22 20 54 48 45 4E 20 31 F IN$="Y" THEN 1
009330: 30 35 32 20 45 4C 53 45 20 31 30 33 37 0D 0A 31 052 ELSE 1037..1
009340: 30 33 38 20 52 41 3D 31 2B 49 4E 54 20 28 52 4E 038 RA=1+INT (RN
009350: 44 2A 33 29 3A 4E 4F 3D 4E 4F 2D 41 42 53 28 52 D*3):NO=NO-ABS(R
009360: 41 3D 33 29 3A 49 46 20 52 41 3C 33 20 54 48 45 A=3):IF RA<3 THE
009370: 4E 20 31 30 33 36 20 45 4C 53 45 20 31 30 32 33 N 1036 ELSE 1023
009380: 0D 0A 31 30 33 39 20 43 4C 53 3A 50 52 49 4E 54 ..1039 CLS:PRINT
009390: 20 54 41 42 28 31 38 29 3B 22 53 43 4F 55 54 53 TAB(18);"SCOUTS
0093A0: 22 3A 45 54 3D 34 3A 46 4F 52 20 49 3D 33 20 54 ":ET=4:FOR I=3 T
0093B0: 4F 20 35 3A 54 45 4D 50 24 3D 49 24 28 49 29 3A O 5:TEMP$=I$(I):
0093C0: 47 4F 53 55 42 20 36 34 39 30 30 3A 49 46 20 46 GOSUB 64900:IF F
0093D0: 4C 41 47 20 54 48 45 4E 20 31 30 34 31 0D 0A 31 LAG THEN 1041..1
0093E0: 30 34 30 20 4C 4F 43 41 54 45 20 39 2C 45 54 3A 040 LOCATE 9,ET:
0093F0: 50 52 49 4E 54 20 49 3B 22 20 22 3B 49 24 28 49 PRINT I;" ";I$(I
009400: 29 3B 22 20 22 3B 59 28 32 2C 49 29 3B 22 25 20 );" ";Y(2,I);"%
009410: 22 3B 3A 54 45 4D 50 3D 41 42 53 28 59 28 31 2C ";:TEMP=ABS(Y(1,
009420: 49 29 29 3A 47 4F 53 55 42 20 36 33 35 30 30 3A I)):GOSUB 63500:
009430: 50 52 49 4E 54 20 22 20 50 2F 57 22 3A 45 54 3D PRINT " P/W":ET=
009440: 45 54 2B 32 0D 0A 31 30 34 31 20 4E 45 58 54 0D ET+2..1041 NEXT.
009450: 0A 31 30 34 32 20 4C 4F 43 41 54 45 20 35 2C 31 .1042 LOCATE 5,1
009460: 36 3A 49 4E 50 55 54 20 22 53 41 43 4B 20 57 48 6:INPUT "SACK WH
009470: 49 43 48 20 22 3B 49 42 3A 49 46 20 49 42 3C 33 ICH ";IB:IF IB<3
009480: 20 4F 52 20 49 42 3E 35 20 54 48 45 4E 20 31 30 OR IB>5 THEN 10
009490: 34 32 0D 0A 31 30 34 33 20 54 45 4D 50 24 3D 49 42..1043 TEMP$=I
0094A0: 24 28 49 42 29 3A 47 4F 53 55 42 20 36 34 39 30 $(IB):GOSUB 6490
0094B0: 30 3A 49 46 20 46 4C 41 47 20 54 48 45 4E 20 31 0:IF FLAG THEN 1
0094C0: 30 34 32 20 45 4C 53 45 20 31 30 34 39 0D 0A 31 042 ELSE 1049..1
0094D0: 30 34 34 20 47 4F 53 55 42 20 39 38 3A 47 4F 54 044 GOSUB 98:GOT
0094E0: 4F 20 31 30 35 39 0D 0A 31 30 34 35 20 49 24 28 O 1059..1045 I$(
0094F0: 49 42 29 3D 22 22 3A 46 4F 52 20 46 3D 31 20 54 IB)="":FOR F=1 T
009500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0095A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0095B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0095C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0095D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0095E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0095F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0096A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0096B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0096C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0096D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0096E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0096F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009700: 4F 20 36 3A 59 28 46 2C 49 42 29 3D 30 3A 4E 45 O 6:Y(F,IB)=0:NE
009710: 58 54 3A 52 45 54 55 52 4E 20 0D 0A 31 30 34 36 XT:RETURN ..1046
009720: 20 4E 4F 3D 4E 4F 2D 31 3A 47 4F 53 55 42 20 31 NO=NO-1:GOSUB 1
009730: 30 34 35 3A 47 4F 54 4F 20 31 30 35 32 0D 0A 31 045:GOTO 1052..1
009740: 30 34 37 20 49 46 20 4E 4C 3D 31 20 54 48 45 4E 047 IF NL=1 THEN
009750: 20 52 45 54 55 52 4E 20 0D 0A 31 30 34 38 20 4E RETURN ..1048 N
009760: 4F 3D 30 3A 46 4F 52 20 49 3D 36 20 54 4F 20 31 O=0:FOR I=6 TO 1
009770: 32 3A 46 4F 52 20 46 3D 31 20 54 4F 20 36 3A 59 2:FOR F=1 TO 6:Y
009780: 28 46 2C 49 29 3D 30 3A 49 24 28 49 29 3D 22 22 (F,I)=0:I$(I)=""
009790: 3A 4E 45 58 54 3A 4E 45 58 54 3A 52 45 54 55 52 :NEXT:NEXT:RETUR
0097A0: 4E 20 0D 0A 31 30 34 39 20 4E 4E 3D 4E 4E 2D 31 N ..1049 NN=NN-1
0097B0: 3A 47 4F 53 55 42 20 31 30 34 35 3A 47 4F 54 4F :GOSUB 1045:GOTO
0097C0: 20 39 30 30 0D 0A 31 30 35 30 20 49 46 20 49 42 900..1050 IF IB
0097D0: 3E 35 20 54 48 45 4E 20 52 45 54 55 52 4E 20 0D >5 THEN RETURN .
0097E0: 0A 31 30 35 31 20 4C 4F 43 41 54 45 20 39 2C 31 .1051 LOCATE 9,1
0097F0: 39 3A 50 52 49 4E 54 20 49 24 28 49 42 29 3B 54 9:PRINT I$(IB);T
009800: 41 42 28 31 36 29 3B 55 53 49 4E 47 22 23 23 22 AB(16);USING"##"
009810: 3B 59 28 32 2C 49 42 29 3B 3A 50 52 49 4E 54 20 ;Y(2,IB);:PRINT
009820: 22 25 22 3B 54 41 42 28 32 30 29 3B 3A 54 45 4D "%";TAB(20);:TEM
009830: 50 3D 59 28 31 2C 49 42 29 3A 47 4F 53 55 42 20 P=Y(1,IB):GOSUB
009840: 36 33 35 30 30 3A 50 52 49 4E 54 20 22 20 50 45 63500:PRINT " PE
009850: 52 20 57 45 45 4B 22 3A 52 45 54 55 52 4E 20 0D R WEEK":RETURN .
009860: 0A 31 30 35 32 20 44 24 3D 22 4F 22 3A 48 57 3D .1052 D$="O":HW=
009870: 31 30 30 31 3A 47 4F 54 4F 20 39 30 32 0D 0A 31 1001:GOTO 902..1
009880: 30 35 33 20 52 41 3D 31 2B 49 4E 54 20 28 52 4E 053 RA=1+INT (RN
009890: 44 2A 39 39 29 3A 49 46 20 52 41 3C 3E 38 20 54 D*99):IF RA<>8 T
0098A0: 48 45 4E 20 32 33 30 0D 0A 31 30 35 34 20 49 42 HEN 230..1054 IB
0098B0: 3D 31 2B 49 4E 54 20 28 52 4E 44 2A 35 29 3A 54 =1+INT (RND*5):T
0098C0: 45 4D 50 24 3D 49 24 3A 47 4F 53 55 42 20 36 34 EMP$=I$:GOSUB 64
0098D0: 39 30 30 3A 49 46 20 46 4C 41 47 20 54 48 45 4E 900:IF FLAG THEN
0098E0: 20 32 33 30 0D 0A 31 30 35 35 20 5A 38 3D 31 3A 230..1055 Z8=1:
0098F0: 49 46 20 49 42 3D 31 20 54 48 45 4E 20 4E 4C 3D IF IB=1 THEN NL=
009900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
009910: 08 00 01 00 02 09 4E E5 08 00 41 02 00 00 00 02 ......N...A.....
009920: 08 00 46 02 00 00 00 02 08 00 42 02 00 00 00 02 ..F.......B.....
009930: 08 00 47 02 00 00 00 02 08 00 43 02 00 00 00 02 ..G.......C.....
009940: 08 00 48 02 00 00 00 02 08 00 44 02 00 00 00 02 ..H.......D.....
009950: 08 00 49 02 00 00 00 02 08 00 45 02 00 00 00 02 ..I.......E.....
009960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009A00: 31 30 30 30 20 61 73 3D 31 3A 65 72 3D 32 30 3A 1000 as=1:er=20:
009A10: 65 74 3D 34 39 3A 49 4E 4B 20 30 2C 31 31 3A 42 et=49:INK 0,11:B
009A20: 4F 52 44 45 52 20 31 31 0D 0A 31 30 30 31 20 45 ORDER 11..1001 E
009A30: 46 3D 32 3A 43 4C 53 3A 50 52 49 4E 54 20 54 41 F=2:CLS:PRINT TA
009A40: 42 28 34 29 3B 70 61 24 28 32 29 22 50 20 20 50 B(4);pa$(2)"P P
009A50: 4C 41 59 45 52 20 20 41 47 45 20 20 47 4F 41 4C LAYER AGE GOAL
009A60: 53 20 20 50 4C 44 20 49 4E 4A 55 52 49 45 53 20 S PLD INJURIES
009A70: 22 3B 70 61 24 28 31 29 0D 0A 31 30 30 32 20 46 ";pa$(1)..1002 F
009A80: 4F 52 20 49 3D 31 20 54 4F 20 32 30 3A 74 65 6D OR I=1 TO 20:tem
009A90: 70 24 3D 56 24 28 49 29 3A 47 4F 53 55 42 20 36 p$=V$(I):GOSUB 6
009AA0: 34 39 30 30 3A 49 46 20 66 6C 61 67 20 20 54 48 4900:IF flag TH
009AB0: 45 4E 20 31 30 31 30 0D 0A 31 30 30 33 20 4C 4F EN 1010..1003 LO
009AC0: 43 41 54 45 20 34 2C 45 46 3A 50 52 49 4E 54 20 CATE 4,EF:PRINT
009AD0: 50 4F 31 53 24 28 54 28 49 29 29 3B 54 41 42 20 PO1S$(T(I));TAB
009AE0: 28 37 29 3B 50 41 24 28 31 2B 41 42 53 28 47 28 (7);PA$(1+ABS(G(
009AF0: 49 29 3C 30 29 29 3B 56 24 28 49 29 3B 50 41 24 I)<0));V$(I);PA$
009B00: 28 31 29 3B 54 41 42 28 31 35 29 3B 41 42 53 28 (1);TAB(15);ABS(
009B10: 47 28 49 29 29 3B 54 41 42 28 31 39 29 3B 70 61 G(I));TAB(19);pa
009B20: 24 28 31 2B 41 42 53 28 74 28 69 29 3D 31 29 2A $(1+ABS(t(i)=1)*
009B30: 35 29 3B 55 53 49 4E 47 22 23 23 22 3B 41 42 53 5);USING"##";ABS
009B40: 28 45 28 31 2C 49 29 29 3B 0D 0A 31 30 30 34 20 (E(1,I));..1004
009B50: 50 52 49 4E 54 20 70 61 24 28 31 29 3B 54 41 42 PRINT pa$(1);TAB
009B60: 28 32 33 29 3B 70 61 24 28 31 2B 41 42 53 28 74 (23);pa$(1+ABS(t
009B70: 28 69 29 3D 31 29 2A 35 29 3B 55 53 49 4E 47 22 (i)=1)*5);USING"
009B80: 23 23 23 22 3B 49 4E 54 28 45 28 32 2C 49 29 29 ###";INT(E(2,I))
009B90: 3B 3A 50 52 49 4E 54 20 70 61 24 28 31 29 3B 54 ;:PRINT pa$(1);T
009BA0: 41 42 28 32 37 29 3B 55 53 49 4E 47 22 23 23 23 AB(27);USING"###
009BB0: 22 3B 41 42 53 28 58 28 49 29 29 3B 3A 50 52 49 ";ABS(X(I));:PRI
009BC0: 4E 54 20 54 41 42 28 33 31 29 3B 3A 49 46 20 45 NT TAB(31);:IF E
009BD0: 28 31 2C 49 29 3C 30 20 4F 52 20 4A 28 49 29 3D (1,I)<0 OR J(I)=
009BE0: 38 32 20 54 48 45 4E 20 50 52 49 4E 54 20 22 52 82 THEN PRINT "R
009BF0: 45 54 49 52 49 4E 47 22 0D 0A 31 30 30 35 20 49 ETIRING"..1005 I
009C00: 28 4A 3D 31 20 41 4E 44 20 4F 4A 3D 33 20 4F 52 (J=1 AND OJ=3 OR
009C10: 20 4A 3D 33 20 41 4E 44 20 4F 4B 3D 33 29 2A 31 J=3 AND OK=3)*1
009C20: 34 3A 52 42 3D 32 3A 43 4C 53 23 31 3A 47 4F 54 4:RB=2:CLS#1:GOT
009C30: 4F 20 31 30 30 32 0D 0A 31 30 32 30 20 49 46 20 O 1002..1020 IF
009C40: 4E 4B 3D 30 20 54 48 45 4E 20 31 30 32 31 20 45 NK=0 THEN 1021 E
009C50: 4C 53 45 20 49 46 20 4E 4B 3D 31 20 54 48 45 4E LSE IF NK=1 THEN
009C60: 20 31 30 32 38 0D 0A 31 30 32 31 20 4C 4F 43 41 1028..1021 LOCA
009C70: 54 45 20 31 36 2C 32 33 3A 50 52 49 4E 54 20 50 TE 16,23:PRINT P
009C80: 41 24 28 32 29 3B 22 20 20 4D 45 4E 55 20 20 22 A$(2);" MENU "
009C90: 3B 50 41 24 28 31 29 3A 47 4F 53 55 42 20 36 34 ;PA$(1):GOSUB 64
009CA0: 30 30 30 3A 47 4F 53 55 42 20 38 35 31 3A 49 46 000:GOSUB 851:IF
009CB0: 20 49 4E 24 3D 22 4D 22 20 54 48 45 4E 20 39 30 IN$="M" THEN 90
009CC0: 30 20 45 4C 53 45 20 31 30 32 31 0D 0A 31 30 32 0 ELSE 1021..102
009CD0: 32 20 47 4F 54 4F 20 31 30 36 30 0D 0A 31 30 32 2 GOTO 1060..102
009CE0: 33 20 4C 4F 43 41 54 45 20 31 39 2C 52 42 2B 31 3 LOCATE 19,RB+1
009CF0: 3A 50 52 49 4E 54 20 70 61 24 28 33 29 3B 55 53 :PRINT pa$(3);US
009D00: 49 4E 47 22 23 22 3B 49 4E 54 28 52 29 3B 3A 50 ING"#";INT(R);:P
009D10: 52 49 4E 54 20 22 76 22 3B 55 53 49 4E 47 22 23 RINT "v";USING"#
009D20: 22 3B 49 4E 54 28 53 29 3A 46 3D 31 2B 49 4E 54 ";INT(S):F=1+INT
009D30: 28 52 4E 44 2A 36 34 29 0D 0A 31 30 32 34 20 49 (RND*64)..1024 I
009D40: 46 20 4C 28 46 29 3C 3E 30 20 54 48 45 4E 20 31 F L(F)<>0 THEN 1
009D50: 30 32 37 0D 0A 31 30 32 35 20 49 46 20 52 3E 53 027..1025 IF R>S
009D60: 20 54 48 45 4E 20 4C 28 46 29 3D 5A 28 4A 2C 49 THEN L(F)=Z(J,I
009D70: 29 3A 47 4F 54 4F 20 31 30 31 36 0D 0A 31 30 32 ):GOTO 1016..102
009D80: 36 20 49 46 20 52 3C 53 20 54 48 45 4E 20 4C 28 6 IF R<S THEN L(
009D90: 46 29 3D 5A 28 4A 2B 31 2C 49 29 3A 47 4F 54 4F F)=Z(J+1,I):GOTO
009DA0: 20 31 30 31 36 0D 0A 31 30 32 37 20 46 3D 46 2B 1016..1027 F=F+
009DB0: 31 3A 46 3D 46 2D 41 42 53 28 46 3D 36 35 29 2A 1:F=F-ABS(F=65)*
009DC0: 36 34 3A 47 4F 54 4F 20 31 30 32 34 0D 0A 31 30 64:GOTO 1024..10
009DD0: 32 38 20 4C 4F 43 41 54 45 20 31 34 2C 32 33 3A 28 LOCATE 14,23:
009DE0: 50 52 49 4E 54 20 50 41 24 28 32 29 3B 22 50 4C PRINT PA$(2);"PL
009DF0: 45 41 53 45 20 20 57 41 49 54 20 22 3B 50 41 24 EASE WAIT ";PA$
009E00: 46 20 55 28 49 29 3E 30 20 41 4E 44 20 4A 28 49 F U(I)>0 AND J(I
009E10: 29 3D 38 33 20 54 48 45 4E 20 50 52 49 4E 54 20 )=83 THEN PRINT
009E20: 55 28 49 29 3B 54 41 42 28 33 33 29 3B 22 57 4B U(I);TAB(33);"WK
009E30: 20 53 55 53 22 0D 0A 31 30 30 36 20 49 46 20 55 SUS"..1006 IF U
009E40: 28 49 29 3E 30 20 41 4E 44 20 4A 28 49 29 3D 33 (I)>0 AND J(I)=3
009E50: 35 20 54 48 45 4E 20 50 52 49 4E 54 20 55 28 49 5 THEN PRINT U(I
009E60: 29 3B 54 41 42 28 33 35 29 3B 22 57 45 45 4B 53 );TAB(35);"WEEKS
009E70: 22 0D 0A 31 30 30 37 20 49 46 20 55 28 49 29 3E "..1007 IF U(I)>
009E80: 30 20 41 4E 44 20 4A 28 49 29 3D 37 36 20 54 48 0 AND J(I)=76 TH
009E90: 45 4E 20 50 52 49 4E 54 20 55 28 49 29 3B 54 41 EN PRINT U(I);TA
009EA0: 42 28 33 35 29 3B 22 55 4E 41 56 41 22 0D 0A 31 B(35);"UNAVA"..1
009EB0: 30 30 38 20 49 46 20 55 28 49 29 3E 30 20 41 4E 008 IF U(I)>0 AN
009EC0: 44 20 4A 28 49 29 3D 34 32 20 54 48 45 4E 20 50 D J(I)=42 THEN P
009ED0: 52 49 4E 54 20 55 28 49 29 3B 54 41 42 28 33 35 RINT U(I);TAB(35
009EE0: 29 3B 22 4C 4F 41 4E 22 0D 0A 31 30 30 39 20 45 );"LOAN"..1009 E
009EF0: 46 3D 45 46 2B 31 0D 0A 31 30 31 30 20 4E 45 58 F=EF+1..1010 NEX
009F00: 54 3A 49 46 20 43 4A 3D 30 20 54 48 45 4E 20 52 T:IF CJ=0 THEN R
009F10: 45 54 55 52 4E 20 0D 0A 31 30 31 31 20 47 4F 53 ETURN ..1011 GOS
009F20: 55 42 20 38 34 38 3A 47 4F 54 4F 20 31 30 31 31 UB 848:GOTO 1011
009F30: 0D 0A 1A 50 03 01 A0 20 1E F3 03 00 00 00 1A 01 ...P... ........
009F40: A0 20 1E F3 03 00 00 00 1A 00 00 C9 29 EF 19 2A . ..........)..*
009F50: 20 EB 20 BF 20 0D 00 00 D5 28 0D 00 00 C9 29 3B . . ....(....);
009F60: EA 28 19 22 29 3B 22 4C 4F 41 4E 22 00 12 00 F1 .(.");"LOAN"....
009F70: 03 0D 00 00 45 C6 EF 0D 00 00 45 C6 F4 0F 00 15 ....E.....E.....
009F80: 23 23 23 22 3B 49 4E 54 28 45 28 32 2C 49 29 29 ###";INT(E(2,I))
009F90: 3B 3A 50 52 49 4E 54 20 70 61 24 28 31 29 3B 54 ;:PRINT pa$(1);T
009FA0: 41 42 28 32 37 29 3B 55 53 49 4E 47 22 23 23 23 AB(27);USING"###
009FB0: 22 3B 41 42 53 28 58 28 49 29 29 3B 3A 50 52 49 ";ABS(X(I));:PRI
009FC0: 4E 54 20 54 41 42 28 33 31 29 3B 3A 49 46 20 45 NT TAB(31);:IF E
009FD0: 28 31 2C 49 29 3C 30 20 4F 52 20 4A 28 49 29 3D (1,I)<0 OR J(I)=
009FE0: 38 32 20 54 48 45 4E 20 50 52 49 4E 54 20 22 52 82 THEN PRINT "R
009FF0: 45 54 49 52 49 4E 47 22 0D 0A 31 30 30 35 20 49 ETIRING"..1005 I
00A000: 28 31 29 3A 4F 4A 3D 4F 4A 2B 41 42 53 28 4A 3D (1):OJ=OJ+ABS(J=
00A010: 31 29 3A 4F 4B 3D 4F 4B 2B 41 42 53 28 4A 3D 33 1):OK=OK+ABS(J=3
00A020: 29 3A 49 46 20 4A 3D 31 20 41 4E 44 20 4F 4A 3D ):IF J=1 AND OJ=
00A030: 39 20 4F 52 20 4A 3D 33 20 41 4E 44 20 4F 4B 3D 9 OR J=3 AND OK=
00A040: 39 20 54 48 45 4E 20 31 30 34 39 0D 0A 31 30 32 9 THEN 1049..102
00A050: 39 20 49 46 20 4A 3D 31 20 41 4E 44 20 4F 4A 3D 9 IF J=1 AND OJ=
00A060: 33 20 4F 52 20 4A 3D 33 20 41 4E 44 20 4F 4B 3D 3 OR J=3 AND OK=
00A070: 33 20 54 48 45 4E 20 31 30 33 31 0D 0A 31 30 33 3 THEN 1031..103
00A080: 30 20 47 4F 53 55 42 20 31 30 33 37 3A 47 4F 54 0 GOSUB 1037:GOT
00A090: 4F 20 31 30 34 39 0D 0A 31 30 33 31 20 45 54 3D O 1049..1031 ET=
00A0A0: 31 0D 0A 31 30 33 32 20 46 3D 31 2B 49 4E 54 20 1..1032 F=1+INT
00A0B0: 28 52 4E 44 2A 36 34 29 0D 0A 31 30 33 33 20 49 (RND*64)..1033 I
00A0C0: 46 20 4C 28 46 29 3D 30 20 54 48 45 4E 20 4C 28 F L(F)=0 THEN L(
00A0D0: 46 29 3D 45 54 3A 45 54 3D 45 54 2B 31 3A 49 46 F)=ET:ET=ET+1:IF
00A0E0: 20 45 54 3D 34 31 20 54 48 45 4E 20 31 30 33 30 ET=41 THEN 1030
00A0F0: 20 45 4C 53 45 20 31 30 33 32 0D 0A 31 30 33 34 ELSE 1032..1034
00A100: 20 46 3D 46 2B 31 3A 46 3D 46 2D 41 42 53 28 46 F=F+1:F=F-ABS(F
00A110: 3D 36 35 29 2A 36 34 3A 47 4F 54 4F 20 31 30 33 =65)*64:GOTO 103
00A120: 33 0D 0A 31 30 33 35 20 4C 4F 43 41 54 45 20 31 3..1035 LOCATE 1
00A130: 36 2C 32 33 3A 50 52 49 4E 54 20 70 61 24 28 33 6,23:PRINT pa$(3
00A140: 29 3B 22 43 4F 4E 54 49 4E 55 45 22 3B 70 61 24 );"CONTINUE";pa$
00A150: 28 31 29 3A 49 46 20 49 4E 24 3D 22 43 22 20 54 (1):IF IN$="C" T
00A160: 48 45 4E 20 49 46 20 45 54 3D 31 20 41 4E 44 20 HEN IF ET=1 AND
00A170: 4A 3D 31 20 41 4E 44 20 4F 4A 3E 31 20 41 4E 44 J=1 AND OJ>1 AND
00A180: 20 4F 4A 3C 34 20 4F 52 20 45 54 3D 31 20 41 4E OJ<4 OR ET=1 AN
00A190: 44 20 4A 3D 33 20 41 4E 44 20 4F 4B 3E 31 20 41 D J=3 AND OK>1 A
00A1A0: 4E 44 20 4F 4B 3C 34 20 54 48 45 4E 20 31 30 31 ND OK<4 THEN 101
00A1B0: 39 20 45 4C 53 45 20 31 30 32 30 0D 0A 31 30 33 9 ELSE 1020..103
00A1C0: 36 20 47 4F 53 55 42 20 36 34 30 30 30 3A 47 4F 6 GOSUB 64000:GO
00A1D0: 53 55 42 20 38 35 31 3A 47 4F 54 4F 20 31 30 33 SUB 851:GOTO 103
00A1E0: 35 0D 0A 31 30 33 37 20 47 4F 53 55 42 20 36 35 5..1037 GOSUB 65
00A1F0: 34 30 30 3A 42 4F 52 44 45 52 20 30 3A 57 49 4E 400:BORDER 0:WIN
00A200: 31 30 30 31 20 50 41 50 45 52 20 31 3A 50 41 50 1001 PAPER 1:PAP
00A210: 45 52 20 23 31 2C 33 3A 45 54 3D 31 3A 45 52 3D ER #1,3:ET=1:ER=
00A220: 31 38 2D 41 42 53 28 4A 3D 31 20 41 4E 44 20 20 18-ABS(J=1 AND
00A230: 4F 4A 3D 34 20 4F 52 20 4A 3D 33 20 41 4E 44 20 OJ=4 OR J=3 AND
00A240: 4F 4B 3D 34 29 2A 32 2D 41 42 53 28 4A 3D 31 20 OK=4)*2-ABS(J=1
00A250: 41 4E 44 20 4F 4A 3D 35 20 4F 52 20 4A 3D 33 20 AND OJ=5 OR J=3
00A260: 41 4E 44 20 4F 4B 3D 35 29 2A 31 30 2D 41 42 53 AND OK=5)*10-ABS
00A270: 28 4A 3D 31 20 41 4E 44 20 4F 4A 3D 36 20 4F 52 (J=1 AND OJ=6 OR
00A280: 20 4A 3D 33 20 41 4E 44 20 4F 4B 3D 36 29 2A 31 J=3 AND OK=6)*1
00A290: 34 2D 41 42 53 28 4A 3D 31 20 41 4E 44 20 4F 4A 4-ABS(J=1 AND OJ
00A2A0: 3D 37 20 4F 52 20 4A 3D 33 20 41 4E 44 20 4F 4B =7 OR J=3 AND OK
00A2B0: 3D 37 29 2A 31 36 2D 41 42 53 28 4A 3D 31 20 41 =7)*16-ABS(J=1 A
00A2C0: 4E 44 20 4F 4A 3D 38 20 4F 52 20 4A 3D 33 20 41 ND OJ=8 OR J=3 A
00A2D0: 4E 44 20 4F 4B 3D 38 29 2A 31 37 0D 0A 31 30 30 ND OK=8)*17..100
00A2E0: 32 20 47 4F 54 4F 20 31 30 35 38 0D 0A 31 30 30 2 GOTO 1058..100
00A2F0: 33 20 49 46 20 4F 4A 3D 38 20 54 48 45 4E 20 31 3 IF OJ=8 THEN 1
00A300: 30 30 37 20 45 4C 53 45 20 49 46 20 4F 4A 3D 37 007 ELSE IF OJ=7
00A310: 20 54 48 45 4E 20 31 30 30 36 20 45 4C 53 45 20 THEN 1006 ELSE
00A320: 49 46 20 4F 4A 3D 36 20 54 48 45 4E 20 31 30 30 IF OJ=6 THEN 100
00A330: 35 0D 0A 31 30 30 34 20 4C 4F 43 41 54 45 20 31 5..1004 LOCATE 1
00A340: 32 2C 31 3A 50 52 49 4E 54 20 70 61 24 28 36 29 2,1:PRINT pa$(6)
00A350: 3B 22 4C 45 41 47 55 45 20 43 55 50 20 52 4F 55 ;"LEAGUE CUP ROU
00A360: 4E 44 22 3B 4F 4A 3B 70 61 24 28 33 29 3A 52 45 ND";OJ;pa$(3):RE
00A370: 54 55 52 4E 20 0D 0A 31 30 30 35 20 4C 4F 43 41 TURN ..1005 LOCA
00A380: 54 45 20 39 2C 31 3A 50 52 49 4E 54 20 70 61 24 TE 9,1:PRINT pa$
00A390: 28 36 29 3B 22 4C 45 41 47 55 45 20 43 55 50 20 (6);"LEAGUE CUP
00A3A0: 51 55 41 52 54 45 52 20 46 49 4E 41 4C 22 3B 70 QUARTER FINAL";p
00A3B0: 61 24 28 33 29 3A 52 45 54 55 52 4E 20 0D 0A 31 a$(3):RETURN ..1
00A3C0: 30 30 36 20 4C 4F 43 41 54 45 20 31 30 2C 31 3A 006 LOCATE 10,1:
00A3D0: 50 52 49 4E 54 20 70 61 24 28 36 29 3B 22 4C 45 PRINT pa$(6);"LE
00A3E0: 41 47 55 45 20 43 55 50 20 53 45 4D 49 20 46 49 AGUE CUP SEMI FI
00A3F0: 4E 41 4C 22 3B 70 61 24 28 33 29 3A 52 45 54 55 NAL";pa$(3):RETU
00A400: 44 4F 57 20 23 31 2C 34 2C 33 37 2C 33 2C 32 32 DOW #1,4,37,3,22
00A410: 3A 50 41 50 45 52 20 31 3A 50 41 50 45 52 20 23 :PAPER 1:PAPER #
00A420: 31 2C 33 3A 43 4C 53 3A 43 4C 53 23 31 3A 49 46 1,3:CLS:CLS#1:IF
00A430: 20 4A 3D 31 20 54 48 45 4E 20 47 4F 53 55 42 20 J=1 THEN GOSUB
00A440: 31 30 30 33 20 45 4C 53 45 20 47 4F 53 55 42 20 1003 ELSE GOSUB
00A450: 31 30 30 38 0D 0A 31 30 33 38 20 4C 4F 43 41 54 1008..1038 LOCAT
00A460: 45 20 35 2C 32 3A 50 52 49 4E 54 20 70 61 24 28 E 5,2:PRINT pa$(
00A470: 36 29 3B 22 44 49 56 22 3B 70 61 24 28 31 29 3A 6);"DIV";pa$(1):
00A480: 4C 4F 43 41 54 45 20 33 34 2C 32 3A 50 52 49 4E LOCATE 34,2:PRIN
00A490: 54 20 70 61 24 28 36 29 3B 22 44 49 56 22 3B 70 T pa$(6);"DIV";p
00A4A0: 61 24 28 31 29 3A 50 52 49 4E 54 3A 47 4F 53 55 a$(1):PRINT:GOSU
00A4B0: 42 20 39 39 36 3A 46 3D 31 3A 46 4F 52 20 4B 3D B 996:F=1:FOR K=
00A4C0: 31 20 54 4F 20 49 4E 54 28 52 42 2F 32 29 3A 46 1 TO INT(RB/2):F
00A4D0: 4F 52 20 49 3D 30 20 54 4F 20 31 0D 0A 31 30 33 OR I=0 TO 1..103
00A4E0: 39 20 49 46 20 4C 28 46 29 3D 30 20 54 48 45 4E 9 IF L(F)=0 THEN
00A4F0: 20 46 3D 46 2B 31 3A 47 4F 54 4F 20 31 30 33 39 F=F+1:GOTO 1039
00A500: 0D 0A 31 30 34 30 20 5A 28 4A 2B 49 2C 4B 29 3D ..1040 Z(J+I,K)=
00A510: 4C 28 46 29 3A 4C 28 46 29 3D 30 3A 47 4F 53 55 L(F):L(F)=0:GOSU
00A520: 42 20 31 30 34 37 3A 46 3D 46 2B 31 0D 0A 31 30 B 1047:F=F+1..10
00A530: 34 31 20 4E 45 58 54 3A 4E 45 58 54 0D 0A 31 30 41 NEXT:NEXT..10
00A540: 34 32 20 4C 4F 43 41 54 45 20 31 34 2C 32 33 3A 42 LOCATE 14,23:
00A550: 50 52 49 4E 54 20 50 41 24 28 32 29 3B 22 50 4C PRINT PA$(2);"PL
00A560: 45 41 53 45 20 20 57 41 49 54 20 22 3B 50 41 24 EASE WAIT ";PA$
00A570: 28 31 29 3B 3A 46 4F 52 20 49 3D 31 20 54 4F 20 (1);:FOR I=1 TO
00A580: 49 4E 54 28 52 42 2F 32 29 3A 47 4F 53 55 42 20 INT(RB/2):GOSUB
00A590: 39 39 37 3A 49 46 20 4A 3D 31 20 41 4E 44 20 59 997:IF J=1 AND Y
00A5A0: 24 28 5A 28 4A 2C 49 29 29 3D 5A 24 20 54 48 45 $(Z(J,I))=Z$ THE
00A5B0: 4E 20 41 24 28 31 2C 4D 54 29 3D 22 48 22 2B 79 N A$(1,MT)="H"+y
00A5C0: 24 28 5A 28 4A 2B 31 2C 49 29 29 2B 22 20 20 22 $(Z(J+1,I))+" "
00A5D0: 2B 43 48 52 24 28 52 59 29 3A 47 4F 54 4F 20 31 +CHR$(RY):GOTO 1
00A5E0: 30 34 36 0D 0A 31 30 34 33 20 49 46 20 4A 3D 31 046..1043 IF J=1
00A5F0: 20 41 4E 44 20 59 24 28 5A 28 4A 2B 31 2C 49 29 AND Y$(Z(J+1,I)
00A600: 52 4E 20 0D 0A 31 30 30 37 20 4C 4F 43 41 54 45 RN ..1007 LOCATE
00A610: 20 31 33 2C 31 3A 50 52 49 4E 54 20 70 61 24 28 13,1:PRINT pa$(
00A620: 36 29 22 4C 45 41 47 55 45 20 43 55 50 20 46 49 6)"LEAGUE CUP FI
00A630: 4E 41 4C 22 3B 70 61 24 28 33 29 3A 52 45 54 55 NAL";pa$(3):RETU
00A640: 52 4E 20 0D 0A 31 30 30 38 20 49 46 20 4F 4B 3D RN ..1008 IF OK=
00A650: 38 20 54 48 45 4E 20 31 30 31 32 20 45 4C 53 45 8 THEN 1012 ELSE
00A660: 20 49 46 20 4F 4B 3D 37 20 54 48 45 4E 20 31 30 IF OK=7 THEN 10
00A670: 31 31 20 45 4C 53 45 20 49 46 20 4F 4B 3D 36 20 11 ELSE IF OK=6
00A680: 54 48 45 4E 20 31 30 31 30 20 0D 0A 31 30 30 39 THEN 1010 ..1009
00A690: 20 4C 4F 43 41 54 45 20 31 33 2C 31 3A 50 52 49 LOCATE 13,1:PRI
00A6A0: 4E 54 20 70 61 24 28 36 29 3B 22 46 41 20 43 55 NT pa$(6);"FA CU
00A6B0: 50 20 52 4F 55 4E 44 22 3B 4F 4B 3B 70 61 24 28 P ROUND";OK;pa$(
00A6C0: 33 29 3A 52 45 54 55 52 4E 20 0D 0A 31 30 31 30 3):RETURN ..1010
00A6D0: 20 4C 4F 43 41 54 45 20 31 31 2C 31 3A 50 52 49 LOCATE 11,1:PRI
00A6E0: 4E 54 20 70 61 24 28 36 29 3B 22 46 41 20 43 55 NT pa$(6);"FA CU
00A6F0: 50 20 51 55 41 52 54 45 52 20 46 49 4E 41 4C 22 P QUARTER FINAL"
00A700: 3B 70 61 24 28 33 29 3A 52 45 54 55 52 4E 20 0D ;pa$(3):RETURN .
00A710: 0A 31 30 31 31 20 4C 4F 43 41 54 45 20 31 32 2C .1011 LOCATE 12,
00A720: 31 3A 50 52 49 4E 54 20 70 61 24 28 36 29 3B 22 1:PRINT pa$(6);"
00A730: 46 41 20 43 55 50 20 53 45 4D 49 20 46 49 4E 41 FA CUP SEMI FINA
00A740: 4C 22 3B 70 61 24 28 33 29 3A 52 45 54 55 52 4E L";pa$(3):RETURN
00A750: 20 0D 0A 31 30 31 32 20 4C 4F 43 41 54 45 20 31 ..1012 LOCATE 1
00A760: 35 2C 31 3A 50 52 49 4E 54 20 70 61 24 28 36 29 5,1:PRINT pa$(6)
00A770: 3B 22 46 41 20 43 55 50 20 46 49 4E 41 4C 22 3B ;"FA CUP FINAL";
00A780: 70 61 24 28 33 29 3A 52 45 54 55 52 4E 20 0D 0A pa$(3):RETURN ..
00A790: 31 30 31 33 20 4C 4F 43 41 54 45 20 35 2C 32 3A 1013 LOCATE 5,2:
00A7A0: 50 52 49 4E 54 20 70 61 24 28 36 29 3B 22 44 49 PRINT pa$(6);"DI
00A7B0: 56 22 3A 4C 4F 43 41 54 45 20 33 34 2C 32 3A 50 V":LOCATE 34,2:P
00A7C0: 52 49 4E 54 20 22 44 49 56 22 3A 52 42 3D 32 3A RINT "DIV":RB=2:
00A7D0: 46 4F 52 20 49 3D 45 54 20 54 4F 20 45 52 3A 4F FOR I=ET TO ER:O
00A7E0: 45 3D 41 42 53 28 59 24 28 5A 28 4A 2C 49 29 29 E=ABS(Y$(Z(J,I))
00A7F0: 3D 5A 24 20 4F 52 20 59 24 28 5A 28 4A 2B 31 2C =Z$ OR Y$(Z(J+1,
00A800: 29 3D 5A 24 20 54 48 45 4E 20 41 24 28 31 2C 4D )=Z$ THEN A$(1,M
00A810: 54 29 3D 22 41 22 2B 59 24 28 5A 28 4A 2C 49 29 T)="A"+Y$(Z(J,I)
00A820: 29 2B 22 20 20 22 2B 43 48 52 24 28 52 5A 29 3A )+" "+CHR$(RZ):
00A830: 47 4F 54 4F 20 31 30 34 36 0D 0A 31 30 34 34 20 GOTO 1046..1044
00A840: 49 46 20 4A 3D 33 20 41 4E 44 20 59 24 28 5A 28 IF J=3 AND Y$(Z(
00A850: 4A 2B 31 2C 49 29 29 3D 5A 24 20 54 48 45 4E 20 J+1,I))=Z$ THEN
00A860: 41 24 28 32 2C 4D 53 29 3D 22 41 22 2B 59 24 28 A$(2,MS)="A"+Y$(
00A870: 5A 28 4A 2C 49 29 29 2B 22 20 20 22 2B 43 48 52 Z(J,I))+" "+CHR
00A880: 24 28 52 5A 29 3A 47 4F 54 4F 20 31 30 34 36 0D $(RZ):GOTO 1046.
00A890: 0A 31 30 34 35 20 49 46 20 4A 3D 33 20 41 4E 44 .1045 IF J=3 AND
00A8A0: 20 59 24 28 5A 28 4A 2C 49 29 29 3D 5A 24 20 54 Y$(Z(J,I))=Z$ T
00A8B0: 48 45 4E 20 41 24 28 32 2C 4D 53 29 3D 22 48 22 HEN A$(2,MS)="H"
00A8C0: 2B 59 24 28 5A 28 4A 2B 31 2C 49 29 29 2B 22 20 +Y$(Z(J+1,I))+"
00A8D0: 20 22 2B 43 48 52 24 28 52 59 29 0D 0A 31 30 34 "+CHR$(RY)..104
00A8E0: 36 20 4E 45 58 54 3A 52 45 54 55 52 4E 20 0D 0A 6 NEXT:RETURN ..
00A8F0: 31 30 34 37 20 52 44 3D 49 4E 54 20 28 28 5A 28 1047 RD=INT ((Z(
00A900: 4A 2B 49 2C 4B 29 2B 31 39 29 2F 32 30 29 2B 34 J+I,K)+19)/20)+4
00A910: 38 3A 52 44 3D 52 44 2B 41 42 53 28 52 44 3D 35 8:RD=RD+ABS(RD=5
00A920: 33 29 2A 32 35 3A 49 46 20 49 3D 30 20 54 48 45 3)*25:IF I=0 THE
00A930: 4E 20 50 52 49 4E 54 20 23 31 2C 54 41 42 28 33 N PRINT #1,TAB(3
00A940: 29 3B 70 61 24 28 33 2B 41 42 53 28 79 24 28 7A );pa$(3+ABS(y$(z
00A950: 28 6A 2C 6B 29 29 3D 7A 24 29 2A 33 29 3B 43 48 (j,k))=z$)*3);CH
00A960: 52 24 28 52 44 29 3B 22 20 20 20 20 22 3B 59 24 R$(RD);" ";Y$
00A970: 28 5A 28 4A 2C 4B 29 29 3B 70 61 24 28 33 29 3B (Z(J,K));pa$(3);
00A980: 22 20 76 20 22 3B 3A 52 45 54 55 52 4E 20 0D 0A " v ";:RETURN ..
00A990: 31 30 34 38 20 50 52 49 4E 54 20 23 31 2C 70 61 1048 PRINT #1,pa
00A9A0: 24 28 33 2B 41 42 53 28 79 24 28 7A 28 6A 2B 31 $(3+ABS(y$(z(j+1
00A9B0: 2C 6B 29 29 3D 7A 24 29 2A 33 29 3B 59 24 28 5A ,k))=z$)*3);Y$(Z
00A9C0: 28 4A 2B 49 2C 4B 29 29 3B 22 20 20 20 22 3B 43 (J+I,K));" ";C
00A9D0: 48 52 24 28 52 44 29 3A 52 45 54 55 52 4E 0D 0A HR$(RD):RETURN..
00A9E0: 31 30 34 39 20 46 4F 52 20 5A 58 31 3D 31 20 54 1049 FOR ZX1=1 T
00A9F0: 4F 20 36 34 3A 4C 28 5A 58 31 29 3D 30 3A 4E 45 O 64:L(ZX1)=0:NE
00AA00: 49 29 29 3D 5A 24 29 0D 0A 31 30 31 34 20 52 44 I))=Z$)..1014 RD
00AA10: 3D 49 4E 54 20 28 28 5A 28 4A 2C 49 29 2B 31 39 =INT ((Z(J,I)+19
00AA20: 29 2F 32 30 29 3A 52 45 3D 49 4E 54 20 28 28 5A )/20):RE=INT ((Z
00AA30: 28 4A 2B 31 2C 49 29 2B 31 39 29 2F 32 30 29 3A (J+1,I)+19)/20):
00AA40: 41 59 3D 52 44 2B 34 38 3A 41 59 3D 41 59 2B 41 AY=RD+48:AY=AY+A
00AA50: 42 53 28 41 59 3D 35 33 29 2A 32 35 3A 41 5A 3D BS(AY=53)*25:AZ=
00AA60: 52 45 2B 34 38 3A 41 5A 3D 41 5A 2B 41 42 53 28 RE+48:AZ=AZ+ABS(
00AA70: 41 5A 3D 35 33 29 2A 32 35 3A 44 24 3D 43 48 52 AZ=53)*25:D$=CHR
00AA80: 24 28 41 59 29 2B 22 20 20 22 2B 59 24 28 5A 28 $(AY)+" "+Y$(Z(
00AA90: 4A 2C 49 29 29 2B 22 20 20 76 20 20 22 2B 59 24 J,I))+" v "+Y$
00AAA0: 28 5A 28 4A 2B 31 2C 49 29 29 2B 22 20 20 20 22 (Z(J+1,I))+" "
00AAB0: 2B 43 48 52 24 28 41 5A 29 0D 0A 31 30 31 35 20 +CHR$(AZ)..1015
00AAC0: 50 52 49 4E 54 20 23 31 2C 50 41 24 28 33 29 3B PRINT #1,PA$(3);
00AAD0: 54 41 42 28 33 29 3B 70 61 24 28 33 2B 41 42 53 TAB(3);pa$(3+ABS
00AAE0: 28 79 24 28 7A 28 6A 2C 69 29 29 3D 7A 24 20 4F (y$(z(j,i))=z$ O
00AAF0: 52 20 79 24 28 7A 28 6A 2B 31 2C 69 29 29 3D 7A R y$(z(j+1,i))=z
00AB00: 24 29 2A 33 29 3B 44 24 3A 49 46 20 4E 4B 3D 31 $)*3);D$:IF NK=1
00AB10: 20 41 4E 44 20 4F 45 3D 30 20 54 48 45 4E 20 31 AND OE=0 THEN 1
00AB20: 30 32 32 0D 0A 31 30 31 36 20 72 62 3D 52 42 2B 022..1016 rb=RB+
00AB30: 31 3A 4E 45 58 54 3A 49 46 20 45 52 3D 31 20 54 1:NEXT:IF ER=1 T
00AB40: 48 45 4E 20 47 4F 53 55 42 20 31 30 35 30 0D 0A HEN GOSUB 1050..
00AB50: 31 30 31 37 20 49 46 20 4A 3D 31 20 41 4E 44 20 1017 IF J=1 AND
00AB60: 4F 4A 3E 31 20 41 4E 44 20 4F 4A 3C 34 20 41 4E OJ>1 AND OJ<4 AN
00AB70: 44 20 45 54 3D 31 20 4F 52 20 4A 3D 33 20 41 4E D ET=1 OR J=3 AN
00AB80: 44 20 4F 4B 3E 31 20 41 4E 44 20 4F 4B 3C 34 20 D OK>1 AND OK<4
00AB90: 41 4E 44 20 45 54 3D 31 20 4F 52 20 4E 4B 3D 31 AND ET=1 OR NK=1
00ABA0: 20 54 48 45 4E 20 31 30 33 35 20 45 4C 53 45 20 THEN 1035 ELSE
00ABB0: 31 30 32 30 0D 0A 31 30 31 38 20 47 4F 54 4F 20 1020..1018 GOTO
00ABC0: 31 30 33 35 0D 0A 31 30 31 39 20 45 54 3D 45 52 1035..1019 ET=ER
00ABD0: 2B 31 3A 45 52 3D 45 52 2B 41 42 53 28 4A 3D 31 +1:ER=ER+ABS(J=1
00ABE0: 20 41 4E 44 20 4F 4A 3D 32 20 4F 52 20 4A 3D 33 AND OJ=2 OR J=3
00ABF0: 20 41 4E 44 20 4F 4B 3D 32 29 2A 36 2B 41 42 53 AND OK=2)*6+ABS
00AC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00AC10: 09 00 01 00 02 09 4E E5 09 00 41 02 00 00 00 02 ......N...A.....
00AC20: 09 00 46 02 00 00 00 02 09 00 42 02 00 00 00 02 ..F.......B.....
00AC30: 09 00 47 02 00 00 00 02 09 00 43 02 00 00 00 02 ..G.......C.....
00AC40: 09 00 48 02 00 00 00 02 09 00 44 02 00 00 00 02 ..H.......D.....
00AC50: 09 00 49 02 00 00 00 02 09 00 45 02 00 00 00 02 ..I.......E.....
00AC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AD00: 58 54 3A 4E 4B 3D 30 3A 43 56 3D 31 3A 47 4F 54 XT:NK=0:CV=1:GOT
00AD10: 4F 20 38 37 0D 0A 31 30 35 30 20 49 46 20 4A 3D O 87..1050 IF J=
00AD20: 31 20 54 48 45 4E 20 52 41 3D 31 34 2B 41 42 53 1 THEN RA=14+ABS
00AD30: 28 59 24 28 5A 28 4A 2B 31 2C 31 29 29 3D 5A 24 (Y$(Z(J+1,1))=Z$
00AD40: 29 2A 32 3A 52 42 3D 31 34 2B 41 42 53 28 52 41 )*2:RB=14+ABS(RA
00AD50: 3D 31 34 29 2A 32 3A 58 24 3D 53 54 52 24 28 52 =14)*2:X$=STR$(R
00AD60: 29 3A 4D 49 44 24 28 44 24 2C 52 41 2C 31 29 3D ):MID$(D$,RA,1)=
00AD70: 52 49 47 48 54 24 28 58 24 2C 31 29 3A 58 24 3D RIGHT$(X$,1):X$=
00AD80: 53 54 52 24 28 53 29 3A 4D 49 44 24 28 44 24 2C STR$(S):MID$(D$,
00AD90: 52 42 2C 31 29 3D 52 49 47 48 54 24 28 58 24 2C RB,1)=RIGHT$(X$,
00ADA0: 31 29 3A 50 24 28 31 29 3D 44 24 0D 0A 31 30 35 1):P$(1)=D$..105
00ADB0: 31 20 49 46 20 4A 3D 33 20 54 48 45 4E 20 52 41 1 IF J=3 THEN RA
00ADC0: 3D 31 34 2B 41 42 53 28 59 24 28 5A 28 4A 2B 31 =14+ABS(Y$(Z(J+1
00ADD0: 2C 31 29 29 3D 5A 24 29 2A 32 3A 52 42 3D 31 34 ,1))=Z$)*2:RB=14
00ADE0: 2B 41 42 53 28 52 41 3D 31 34 29 2A 32 3A 58 24 +ABS(RA=14)*2:X$
00ADF0: 3D 53 54 52 24 28 52 29 3A 4D 49 44 24 28 44 24 =STR$(R):MID$(D$
00AE00: 2C 52 41 2C 31 29 3D 52 49 47 48 54 24 28 58 24 ,RA,1)=RIGHT$(X$
00AE10: 2C 31 29 3A 58 24 3D 53 54 52 24 28 53 29 3A 4D ,1):X$=STR$(S):M
00AE20: 49 44 24 28 44 24 2C 52 42 2C 31 29 3D 52 49 47 ID$(D$,RB,1)=RIG
00AE30: 48 54 24 28 58 24 2C 31 29 3A 50 24 28 32 29 3D HT$(X$,1):P$(2)=
00AE40: 44 24 0D 0A 31 30 35 32 20 52 45 54 55 52 4E 20 D$..1052 RETURN
00AE50: 0D 0A 31 30 35 33 20 42 4F 52 44 45 52 20 30 3A ..1053 BORDER 0:
00AE60: 57 49 4E 44 4F 57 20 23 31 2C 34 2C 33 37 2C 33 WINDOW #1,4,37,3
00AE70: 2C 32 32 3A 50 41 50 45 52 20 31 3A 50 41 50 45 ,22:PAPER 1:PAPE
00AE80: 52 20 23 31 2C 33 3A 43 4C 53 3A 43 4C 53 23 31 R #1,3:CLS:CLS#1
00AE90: 3A 49 46 20 4A 3D 31 20 41 4E 44 20 4F 4A 3D 39 :IF J=1 AND OJ=9
00AEA0: 20 4F 52 20 4A 3D 33 20 41 4E 44 20 4F 4B 3D 39 OR J=3 AND OK=9
00AEB0: 20 54 48 45 4E 20 31 30 35 34 20 45 4C 53 45 20 THEN 1054 ELSE
00AEC0: 31 30 30 31 0D 0A 31 30 35 34 20 4F 4B 3D 4F 4B 1001..1054 OK=OK
00AED0: 2D 41 42 53 28 4A 3D 33 20 41 4E 44 20 4F 4B 3D -ABS(J=3 AND OK=
00AEE0: 39 29 3A 4F 4A 3D 4F 4A 2D 41 42 53 28 4A 3D 31 9):OJ=OJ-ABS(J=1
00AEF0: 20 41 4E 44 20 4F 4A 3D 39 29 3A 43 4C 53 3A 49 AND OJ=9):CLS:I
00AF00: 31 30 30 31 20 46 4F 52 20 79 3D 31 20 54 4F 20 1001 FOR y=1 TO
00AF10: 32 30 3A 49 46 20 6A 28 79 29 3D 34 32 20 41 4E 20:IF j(y)=42 AN
00AF20: 44 20 75 28 79 29 3D 31 20 54 48 45 4E 20 69 3D D u(y)=1 THEN i=
00AF30: 79 3A 47 4F 53 55 42 20 32 30 30 0D 0A 31 30 30 y:GOSUB 200..100
00AF40: 32 20 49 46 20 75 28 79 29 3D 30 20 54 48 45 4E 2 IF u(y)=0 THEN
00AF50: 20 31 30 30 34 0D 0A 31 30 30 33 20 75 28 79 29 1004..1003 u(y)
00AF60: 3D 75 28 79 29 2D 31 3A 49 46 20 75 28 79 29 3D =u(y)-1:IF u(y)=
00AF70: 30 20 54 48 45 4E 20 68 28 79 29 3D 68 28 79 29 0 THEN h(y)=h(y)
00AF80: 2D 30 2E 34 3A 6A 28 79 29 3D 33 32 2B 41 42 53 -0.4:j(y)=32+ABS
00AF90: 28 65 28 31 2C 79 29 3C 30 29 2A 35 30 3A 47 4F (e(1,y)<0)*50:GO
00AFA0: 53 55 42 20 35 32 35 0D 0A 31 30 30 34 20 78 28 SUB 525..1004 x(
00AFB0: 79 29 3D 41 42 53 28 78 28 79 29 29 2B 41 42 53 y)=ABS(x(y))+ABS
00AFC0: 28 79 3C 31 32 29 3A 4E 45 58 54 3A 49 46 20 61 (y<12):NEXT:IF a
00AFD0: 61 61 3D 31 20 54 48 45 4E 20 31 30 30 39 0D 0A aa=1 THEN 1009..
00AFE0: 31 30 30 35 20 6D 65 3D 6D 65 2B 41 42 53 28 72 1005 me=me+ABS(r
00AFF0: 31 3E 73 31 29 2A 49 4E 54 28 6D 65 2F 32 29 2D 1>s1)*INT(me/2)-
00B000: 41 42 53 28 52 31 3C 53 31 29 2A 49 4E 54 28 4D ABS(R1<S1)*INT(M
00B010: 45 2F 32 29 3A 6D 65 3D 49 4E 54 28 6D 65 29 2D E/2):me=INT(me)-
00B020: 41 42 53 28 6D 65 3E 39 39 29 2A 41 42 53 28 6D ABS(me>99)*ABS(m
00B030: 65 2D 39 39 29 3A 49 46 20 6D 65 3C 32 20 54 48 e-99):IF me<2 TH
00B040: 45 4E 20 6D 65 3D 32 0D 0A 31 30 30 36 20 46 4F EN me=2..1006 FO
00B050: 52 20 79 3D 31 20 54 4F 20 31 31 3A 49 46 20 74 R y=1 TO 11:IF t
00B060: 28 79 29 3E 32 20 41 4E 44 20 68 28 79 29 3E 30 (y)>2 AND h(y)>0
00B070: 20 54 48 45 4E 20 68 28 79 29 3D 68 28 79 29 2B THEN h(y)=h(y)+
00B080: 41 42 53 28 72 31 3E 73 31 29 2F 32 30 2D 41 42 ABS(r1>s1)/20-AB
00B090: 53 28 72 31 3C 73 31 29 2F 32 35 3A 47 4F 54 4F S(r1<s1)/25:GOTO
00B0A0: 20 31 30 30 38 0D 0A 31 30 30 37 20 49 46 20 68 1008..1007 IF h
00B0B0: 28 79 29 3E 30 20 54 48 45 4E 20 68 28 79 29 3D (y)>0 THEN h(y)=
00B0C0: 68 28 79 29 2B 41 42 53 28 72 31 3E 73 31 29 2F h(y)+ABS(r1>s1)/
00B0D0: 32 30 2D 41 42 53 28 72 31 3C 73 31 29 2A 30 2E 20-ABS(r1<s1)*0.
00B0E0: 30 36 2B 41 42 53 28 73 31 3D 30 29 2A 30 2E 30 06+ABS(s1=0)*0.0
00B0F0: 33 0D 0A 31 30 30 38 20 47 4F 53 55 42 20 35 32 3..1008 GOSUB 52
00B100: 46 20 4A 3D 33 20 54 48 45 4E 20 47 4F 53 55 42 F J=3 THEN GOSUB
00B110: 20 31 30 30 38 20 45 4C 53 45 20 47 4F 53 55 42 1008 ELSE GOSUB
00B120: 20 31 30 30 33 0D 0A 31 30 35 35 20 4F 4A 3D 4F 1003..1055 OJ=O
00B130: 4A 2B 41 42 53 28 4F 4A 3D 38 20 41 4E 44 20 4A J+ABS(OJ=8 AND J
00B140: 3D 31 29 3A 4F 4B 3D 4F 4B 2B 41 42 53 28 4F 4B =1):OK=OK+ABS(OK
00B150: 3D 38 20 41 4E 44 20 4A 3D 33 29 3A 4C 4F 43 41 =8 AND J=3):LOCA
00B160: 54 45 20 36 2C 33 3A 49 46 20 4A 3D 31 20 54 48 TE 6,3:IF J=1 TH
00B170: 45 4E 20 50 52 49 4E 54 20 50 24 28 31 29 3A 47 EN PRINT P$(1):G
00B180: 4F 54 4F 20 31 30 32 31 20 45 4C 53 45 20 50 52 OTO 1021 ELSE PR
00B190: 49 4E 54 20 50 24 28 32 29 3A 47 4F 54 4F 20 31 INT P$(2):GOTO 1
00B1A0: 30 32 31 0D 0A 31 30 35 37 20 47 4F 54 4F 20 31 021..1057 GOTO 1
00B1B0: 30 32 31 0D 0A 31 30 35 38 20 49 46 20 4A 3D 33 021..1058 IF J=3
00B1C0: 20 54 48 45 4E 20 47 4F 53 55 42 20 31 30 30 38 THEN GOSUB 1008
00B1D0: 20 45 4C 53 45 20 47 4F 53 55 42 20 31 30 30 33 ELSE GOSUB 1003
00B1E0: 0D 0A 31 30 35 39 20 47 4F 54 4F 20 31 30 31 33 ..1059 GOTO 1013
00B1F0: 0D 0A 31 30 36 30 20 52 43 3D 41 42 53 28 52 44 ..1060 RC=ABS(RD
00B200: 2D 52 45 29 3A 52 46 3D 41 42 53 28 52 45 3E 52 -RE):RF=ABS(RE>R
00B210: 44 29 3A 52 3D 2D 31 2B 49 4E 54 28 52 4E 44 2A D):R=-1+INT(RND*
00B220: 37 29 3A 52 3D 52 2D 41 42 53 28 52 46 3D 30 29 7):R=R-ABS(RF=0)
00B230: 2A 52 43 3A 52 3D 52 2B 41 42 53 28 52 3C 30 29 *RC:R=R+ABS(R<0)
00B240: 2A 41 42 53 28 52 29 3A 53 3D 2D 31 2B 49 4E 54 *ABS(R):S=-1+INT
00B250: 20 28 52 4E 44 2A 36 29 3A 53 3D 53 2D 41 42 53 (RND*6):S=S-ABS
00B260: 28 52 46 3D 31 29 2A 52 43 3A 53 3D 53 2B 41 42 (RF=1)*RC:S=S+AB
00B270: 53 28 53 3C 30 29 2A 41 42 53 28 53 29 0D 0A 31 S(S<0)*ABS(S)..1
00B280: 30 36 31 20 49 46 20 49 4E 54 28 52 29 3D 49 4E 061 IF INT(R)=IN
00B290: 54 28 53 29 20 54 48 45 4E 20 4C 4F 43 41 54 45 T(S) THEN LOCATE
00B2A0: 20 31 39 2C 52 42 2B 31 3A 50 52 49 4E 54 20 70 19,RB+1:PRINT p
00B2B0: 61 24 28 33 29 3B 55 53 49 4E 47 22 23 22 3B 49 a$(3);USING"#";I
00B2C0: 4E 54 28 52 29 3B 3A 50 52 49 4E 54 20 22 76 22 NT(R);:PRINT "v"
00B2D0: 3B 55 53 49 4E 47 22 23 22 3B 49 4E 54 28 53 29 ;USING"#";INT(S)
00B2E0: 3A 46 4F 52 20 4E 3D 31 20 54 4F 20 38 30 30 3A :FOR N=1 TO 800:
00B2F0: 4E 45 58 54 3A 4C 4F 43 41 54 45 20 34 2C 52 42 NEXT:LOCATE 4,RB
00B300: 33 3A 4E 45 58 54 3A 61 61 3D 41 42 53 28 72 31 3:NEXT:aa=ABS(r1
00B310: 3C 73 31 29 0D 0A 31 30 30 39 20 52 45 54 55 52 <s1)..1009 RETUR
00B320: 4E 0D 0A 1A 29 F7 19 14 F5 FF 00 28 0D 00 00 72 N...)......(...r
00B330: B1 F1 0D 00 00 73 B1 29 F6 1F 5C 8F C2 75 7C F4 .....s.)..\..u|.
00B340: FF 00 28 0D 00 00 73 B1 EF 0E 29 F6 1F 5C 8F C2 ..(...s...)..\..
00B350: 75 7B 00 22 00 F0 03 9F 20 1E 0B 02 01 B0 01 0D u{.".... .......
00B360: 00 00 61 E1 EF FF 00 28 0D 00 00 72 B1 F1 0D 00 ..a....(...r....
00B370: 00 73 B1 29 00 06 00 F1 03 C9 00 00 00 1A EE F2 .s.)............
00B380: 2D 30 2E 34 3A 6A 28 79 29 3D 33 32 2B 41 42 53 -0.4:j(y)=32+ABS
00B390: 28 65 28 31 2C 79 29 3C 30 29 2A 35 30 3A 47 4F (e(1,y)<0)*50:GO
00B3A0: 53 55 42 20 35 32 35 0D 0A 31 30 30 34 20 78 28 SUB 525..1004 x(
00B3B0: 79 29 3D 41 42 53 28 78 28 79 29 29 2B 41 42 53 y)=ABS(x(y))+ABS
00B3C0: 28 79 3C 31 32 29 3A 4E 45 58 54 3A 49 46 20 61 (y<12):NEXT:IF a
00B3D0: 61 61 3D 31 20 54 48 45 4E 20 31 30 30 39 0D 0A aa=1 THEN 1009..
00B3E0: 31 30 30 35 20 6D 65 3D 6D 65 2B 41 42 53 28 72 1005 me=me+ABS(r
00B3F0: 31 3E 73 31 29 2A 49 4E 54 28 6D 65 2F 32 29 2D 1>s1)*INT(me/2)-
00B400: 41 42 53 28 52 31 3C 53 31 29 2A 49 4E 54 28 4D ABS(R1<S1)*INT(M
00B410: 45 2F 32 29 3A 6D 65 3D 49 4E 54 28 6D 65 29 2D E/2):me=INT(me)-
00B420: 41 42 53 28 6D 65 3E 39 39 29 2A 41 42 53 28 6D ABS(me>99)*ABS(m
00B430: 65 2D 39 39 29 3A 49 46 20 6D 65 3C 32 20 54 48 e-99):IF me<2 TH
00B440: 45 4E 20 6D 65 3D 32 0D 0A 31 30 30 36 20 46 4F EN me=2..1006 FO
00B450: 52 20 79 3D 31 20 54 4F 20 31 31 3A 49 46 20 74 R y=1 TO 11:IF t
00B460: 28 79 29 3E 32 20 41 4E 44 20 68 28 79 29 3E 30 (y)>2 AND h(y)>0
00B470: 20 54 48 45 4E 20 68 28 79 29 3D 68 28 79 29 2B THEN h(y)=h(y)+
00B480: 41 42 53 28 72 31 3E 73 31 29 2F 32 30 2D 41 42 ABS(r1>s1)/20-AB
00B490: 53 28 72 31 3C 73 31 29 2F 32 35 3A 47 4F 54 4F S(r1<s1)/25:GOTO
00B4A0: 20 31 30 30 38 0D 0A 31 30 30 37 20 49 46 20 68 1008..1007 IF h
00B4B0: 28 79 29 3E 30 20 54 48 45 4E 20 68 28 79 29 3D (y)>0 THEN h(y)=
00B4C0: 68 28 79 29 2B 41 42 53 28 72 31 3E 73 31 29 2F h(y)+ABS(r1>s1)/
00B4D0: 32 30 2D 41 42 53 28 72 31 3C 73 31 29 2A 30 2E 20-ABS(r1<s1)*0.
00B4E0: 30 36 2B 41 42 53 28 73 31 3D 30 29 2A 30 2E 30 06+ABS(s1=0)*0.0
00B4F0: 33 0D 0A 31 30 30 38 20 47 4F 53 55 42 20 35 32 3..1008 GOSUB 52
00B500: 2B 31 3A 50 52 49 4E 54 20 50 41 24 28 36 29 3B +1:PRINT PA$(6);
00B510: 22 52 22 3B 50 41 24 28 33 29 3B 3A 45 41 3D 5A "R";PA$(3);:EA=Z
00B520: 28 4A 2C 49 29 3A 5A 28 4A 2C 49 29 3D 5A 28 4A (J,I):Z(J,I)=Z(J
00B530: 2B 31 2C 49 29 3A 5A 28 4A 2B 31 2C 49 29 3D 45 +1,I):Z(J+1,I)=E
00B540: 41 3A 50 52 49 4E 54 23 31 2C 43 48 52 24 28 31 A:PRINT#1,CHR$(1
00B550: 31 29 3B 3A 47 4F 54 4F 20 31 30 31 34 0D 0A 31 1);:GOTO 1014..1
00B560: 30 36 32 20 47 4F 54 4F 20 31 30 32 33 0D 0A 1A 062 GOTO 1023...
00B570: 28 4A 3D 31 20 41 4E 44 20 4F 4A 3D 36 20 4F 52 (J=1 AND OJ=6 OR
00B580: 4F 54 4F 20 31 30 32 31 20 45 4C 53 45 20 50 52 OTO 1021 ELSE PR
00B590: 49 4E 54 20 50 24 28 32 29 3A 47 4F 54 4F 20 31 INT P$(2):GOTO 1
00B5A0: 30 32 31 0D 0A 31 30 35 37 20 47 4F 54 4F 20 31 021..1057 GOTO 1
00B5B0: 30 32 31 0D 0A 31 30 35 38 20 49 46 20 4A 3D 33 021..1058 IF J=3
00B5C0: 20 54 48 45 4E 20 47 4F 53 55 42 20 31 30 30 38 THEN GOSUB 1008
00B5D0: 20 45 4C 53 45 20 47 4F 53 55 42 20 31 30 30 33 ELSE GOSUB 1003
00B5E0: 0D 0A 31 30 35 39 20 47 4F 54 4F 20 31 30 31 33 ..1059 GOTO 1013
00B5F0: 0D 0A 31 30 36 30 20 52 43 3D 41 42 53 28 52 44 ..1060 RC=ABS(RD
00B600: 2D 52 45 29 3A 52 46 3D 41 42 53 28 52 45 3E 52 -RE):RF=ABS(RE>R
00B610: 44 29 3A 52 3D 2D 31 2B 49 4E 54 28 52 4E 44 2A D):R=-1+INT(RND*
00B620: 37 29 3A 52 3D 52 2D 41 42 53 28 52 46 3D 30 29 7):R=R-ABS(RF=0)
00B630: 2A 52 43 3A 52 3D 52 2B 41 42 53 28 52 3C 30 29 *RC:R=R+ABS(R<0)
00B640: 2A 41 42 53 28 52 29 3A 53 3D 2D 31 2B 49 4E 54 *ABS(R):S=-1+INT
00B650: 20 28 52 4E 44 2A 36 29 3A 53 3D 53 2D 41 42 53 (RND*6):S=S-ABS
00B660: 28 52 46 3D 31 29 2A 52 43 3A 53 3D 53 2B 41 42 (RF=1)*RC:S=S+AB
00B670: 53 28 53 3C 30 29 2A 41 42 53 28 53 29 0D 0A 31 S(S<0)*ABS(S)..1
00B680: 30 36 31 20 49 46 20 49 4E 54 28 52 29 3D 49 4E 061 IF INT(R)=IN
00B690: 54 28 53 29 20 54 48 45 4E 20 4C 4F 43 41 54 45 T(S) THEN LOCATE
00B6A0: 20 31 39 2C 52 42 2B 31 3A 50 52 49 4E 54 20 70 19,RB+1:PRINT p
00B6B0: 61 24 28 33 29 3B 55 53 49 4E 47 22 23 22 3B 49 a$(3);USING"#";I
00B6C0: 4E 54 28 52 29 3B 3A 50 52 49 4E 54 20 22 76 22 NT(R);:PRINT "v"
00B6D0: 3B 55 53 49 4E 47 22 23 22 3B 49 4E 54 28 53 29 ;USING"#";INT(S)
00B6E0: 3A 46 4F 52 20 4E 3D 31 20 54 4F 20 38 30 30 3A :FOR N=1 TO 800:
00B6F0: 4E 45 58 54 3A 4C 4F 43 41 54 45 20 34 2C 52 42 NEXT:LOCATE 4,RB
00B700: 31 30 30 31 20 46 4C 41 47 3D 30 3A 46 4F 52 20 1001 FLAG=0:FOR
00B710: 49 3D 31 20 54 4F 20 31 38 3A 49 46 20 4E 28 31 I=1 TO 18:IF N(1
00B720: 2C 49 29 3D 30 20 54 48 45 4E 20 46 4C 41 47 3D ,I)=0 THEN FLAG=
00B730: 69 3A 69 3D 31 39 0D 0A 31 30 30 32 20 4E 45 58 i:i=19..1002 NEX
00B740: 54 3A 49 46 20 46 4C 41 47 3D 30 20 54 48 45 4E T:IF FLAG=0 THEN
00B750: 20 52 41 3D 30 3A 47 4F 54 4F 20 31 30 32 37 0D RA=0:GOTO 1027.
00B760: 0A 31 30 30 33 20 69 3D 66 6C 61 67 3A 4D 43 3D .1003 i=flag:MC=
00B770: 4D 43 2B 31 3A 4E 28 31 2C 49 29 3D 4A 49 3A 4E MC+1:N(1,I)=JI:N
00B780: 28 32 2C 49 29 3D 4A 48 3A 42 24 3D 59 24 28 4A (2,I)=JH:B$=Y$(J
00B790: 49 29 2B 43 48 52 24 28 33 32 29 2B 22 50 22 2B I)+CHR$(32)+"P"+
00B7A0: 43 48 52 24 28 33 32 29 2B 43 48 52 24 28 33 32 CHR$(32)+CHR$(32
00B7B0: 29 2B 22 50 22 2B 43 48 52 24 28 33 32 29 2B 59 )+"P"+CHR$(32)+Y
00B7C0: 24 28 4A 48 29 3A 47 4F 54 4F 20 31 30 32 38 0D $(JH):GOTO 1028.
00B7D0: 0A 31 30 30 38 20 46 4C 41 47 3D 30 3A 46 4F 52 .1008 FLAG=0:FOR
00B7E0: 20 49 3D 31 20 54 4F 20 32 30 3A 49 46 20 54 24 I=1 TO 20:IF T$
00B7F0: 28 49 29 3D 59 24 28 45 54 29 20 54 48 45 4E 20 (I)=Y$(ET) THEN
00B800: 20 4B 48 3D 49 3A 46 4C 41 47 3D 31 20 0D 0A 31 KH=I:FLAG=1 ..1
00B810: 30 30 39 20 4E 45 58 54 3A 49 46 20 46 4C 41 47 009 NEXT:IF FLAG
00B820: 3D 31 20 54 48 45 4E 20 52 45 54 55 52 4E 0D 0A =1 THEN RETURN..
00B830: 31 30 31 30 20 50 52 49 4E 54 23 35 2C 50 41 24 1010 PRINT#5,PA$
00B840: 28 36 29 3A 57 24 28 49 44 29 3D 52 49 47 48 54 (6):W$(ID)=RIGHT
00B850: 24 28 53 54 52 24 28 53 29 2C 31 29 2B 52 49 47 $(STR$(S),1)+RIG
00B860: 48 54 24 28 53 54 52 24 28 52 29 2C 31 29 3A 49 HT$(STR$(R),1):I
00B870: 44 3D 49 44 2B 41 42 53 28 49 44 3C 33 38 29 3A D=ID+ABS(ID<38):
00B880: 46 4C 41 47 3D 30 3A 46 4F 52 20 49 3D 33 37 20 FLAG=0:FOR I=37
00B890: 54 4F 20 31 20 53 54 45 50 20 2D 32 3A 49 46 20 TO 1 STEP -2:IF
00B8A0: 43 4A 3D 49 20 54 48 45 4E 20 46 4C 41 47 3D 31 CJ=I THEN FLAG=1
00B8B0: 0D 0A 31 30 31 31 20 4E 45 58 54 3A 49 46 20 46 ..1011 NEXT:IF F
00B8C0: 4C 41 47 20 54 48 45 4E 20 31 30 31 37 0D 0A 31 LAG THEN 1017..1
00B8D0: 30 31 32 20 4A 49 3D 56 2D 31 3A 4A 48 3D 56 2B 012 JI=V-1:JH=V+
00B8E0: 31 3A 47 4F 53 55 42 20 38 37 35 0D 0A 31 30 31 1:GOSUB 875..101
00B8F0: 33 20 49 46 20 59 24 28 4A 49 29 3D 5A 24 20 54 3 IF Y$(JI)=Z$ T
00B900: 31 30 30 31 20 49 4E 4B 20 30 2C 31 35 3A 49 4E 1001 INK 0,15:IN
00B910: 4B 20 31 2C 32 36 3A 49 4E 4B 20 32 2C 31 33 3A K 1,26:INK 2,13:
00B920: 49 4E 4B 20 33 2C 30 3A 42 4F 52 44 45 52 20 31 INK 3,0:BORDER 1
00B930: 35 3A 20 43 4C 53 3A 50 45 4E 20 33 3A 4C 4F 43 5: CLS:PEN 3:LOC
00B940: 41 54 45 20 31 31 2C 32 31 3A 50 52 49 4E 54 20 ATE 11,21:PRINT
00B950: 22 43 48 41 4E 47 45 20 4C 45 56 45 4C 53 20 20 "CHANGE LEVELS
00B960: 4D 45 4E 55 22 0D 0A 31 30 30 32 20 52 45 4D 0D MENU"..1002 REM.
00B970: 0A 31 30 30 33 20 49 46 20 41 42 3C 30 20 54 48 .1003 IF AB<0 TH
00B980: 45 4E 20 50 45 4E 20 32 2B 28 6A 74 3D 2D 31 29 EN PEN 2+(jt=-1)
00B990: 3A 4C 4F 43 41 54 45 20 31 37 2C 39 3A 50 52 49 :LOCATE 17,9:PRI
00B9A0: 4E 54 22 33 20 45 41 53 59 22 0D 0A 31 30 30 34 NT"3 EASY"..1004
00B9B0: 20 49 46 20 41 42 3C 31 20 54 48 45 4E 20 50 45 IF AB<1 THEN PE
00B9C0: 4E 20 32 2B 28 6A 74 3D 30 29 3A 4C 4F 43 41 54 N 2+(jt=0):LOCAT
00B9D0: 45 20 31 37 2C 31 31 3A 50 52 49 4E 54 22 32 20 E 17,11:PRINT"2
00B9E0: 4E 4F 52 4D 22 0D 0A 31 30 30 35 20 50 45 4E 20 NORM"..1005 PEN
00B9F0: 32 2B 28 6A 74 3D 31 29 3A 4C 4F 43 41 54 45 20 2+(jt=1):LOCATE
00BA00: 31 37 2C 31 33 3A 50 52 49 4E 54 22 31 20 48 41 17,13:PRINT"1 HA
00BA10: 52 44 22 0D 0A 31 30 30 36 20 47 4F 53 55 42 20 RD"..1006 GOSUB
00BA20: 38 35 31 3A 47 4F 53 55 42 20 36 34 30 30 30 3A 851:GOSUB 64000:
00BA30: 49 46 20 69 6E 24 3D 22 4D 22 20 54 48 45 4E 20 IF in$="M" THEN
00BA40: 39 30 30 0D 0A 31 30 30 37 20 49 46 20 69 6E 24 900..1007 IF in$
00BA50: 3C 3E 22 43 22 20 54 48 45 4E 20 31 30 30 36 0D <>"C" THEN 1006.
00BA60: 0A 31 30 30 38 20 50 45 4E 20 33 3A 4C 4F 43 41 .1008 PEN 3:LOCA
00BA70: 54 45 20 35 2C 31 37 3A 49 4E 50 55 54 20 22 57 TE 5,17:INPUT "W
00BA80: 68 69 63 68 20 6C 65 76 65 6C 22 3B 72 61 3A 49 hich level";ra:I
00BA90: 46 20 72 61 3C 31 20 4F 52 20 28 32 2D 52 41 29 F ra<1 OR (2-RA)
00BAA0: 3C 41 42 20 4F 52 20 72 61 3E 33 20 54 48 45 4E <AB OR ra>3 THEN
00BAB0: 20 31 30 30 38 20 45 4C 53 45 20 4A 54 3D 32 2D 1008 ELSE JT=2-
00BAC0: 52 41 3A 41 42 3D 4A 54 3A 47 4F 54 4F 20 31 30 RA:AB=JT:GOTO 10
00BAD0: 30 31 0D 0A 1A 1E F0 03 20 01 97 20 0D 00 00 4A 01...... .. ...J
00BAE0: D4 EF 10 F5 0D 00 00 52 C1 01 0D 00 00 41 C2 EF .......R.....A..
00BAF0: 0D 00 00 4A D4 01 A0 20 1E E9 03 00 00 00 1A 1A ...J... ........
00BB00: 48 45 4E 20 4A 49 3D 4A 49 2D 31 3A 47 4F 53 55 HEN JI=JI-1:GOSU
00BB10: 42 20 38 37 35 0D 0A 31 30 31 34 20 47 4F 53 55 B 875..1014 GOSU
00BB20: 42 20 31 30 32 32 3A 49 46 20 59 24 28 4A 48 29 B 1022:IF Y$(JH)
00BB30: 3D 5A 24 20 54 48 45 4E 20 4A 48 3D 4A 48 2B 31 =Z$ THEN JH=JH+1
00BB40: 3A 47 4F 53 55 42 20 38 37 35 0D 0A 31 30 31 35 :GOSUB 875..1015
00BB50: 20 47 4F 53 55 42 20 31 30 32 33 0D 0A 31 30 31 GOSUB 1023..101
00BB60: 36 20 4A 49 3D 4A 49 2D 31 3A 4A 48 3D 4A 48 2B 6 JI=JI-1:JH=JH+
00BB70: 31 3A 47 4F 53 55 42 20 38 37 35 3A 47 4F 54 4F 1:GOSUB 875:GOTO
00BB80: 20 31 30 31 33 0D 0A 31 30 31 37 20 4A 49 3D 56 1013..1017 JI=V
00BB90: 2B 31 3A 4A 48 3D 56 2D 31 3A 47 4F 53 55 42 20 +1:JH=V-1:GOSUB
00BBA0: 38 37 38 0D 0A 31 30 31 38 20 49 46 20 59 24 28 878..1018 IF Y$(
00BBB0: 4A 49 29 3D 5A 24 20 54 48 45 4E 20 4A 49 3D 4A JI)=Z$ THEN JI=J
00BBC0: 49 2B 31 3A 47 4F 53 55 42 20 38 37 38 0D 0A 31 I+1:GOSUB 878..1
00BBD0: 30 31 39 20 47 4F 53 55 42 20 31 30 32 32 3A 49 019 GOSUB 1022:I
00BBE0: 46 20 59 24 28 4A 48 29 3D 5A 24 20 54 48 45 4E F Y$(JH)=Z$ THEN
00BBF0: 20 4A 48 3D 4A 48 2D 31 3A 47 4F 53 55 42 20 38 JH=JH-1:GOSUB 8
00BC00: 37 38 0D 0A 31 30 32 30 20 47 4F 53 55 42 20 31 78..1020 GOSUB 1
00BC10: 30 32 33 0D 0A 31 30 32 31 20 4A 49 3D 4A 49 2B 023..1021 JI=JI+
00BC20: 31 3A 4A 48 3D 4A 48 2D 31 3A 47 4F 53 55 42 20 1:JH=JH-1:GOSUB
00BC30: 38 37 38 3A 47 4F 54 4F 20 31 30 31 38 0D 0A 31 878:GOTO 1018..1
00BC40: 30 32 32 20 45 54 3D 4A 49 3A 52 24 3D 59 24 28 022 ET=JI:R$=Y$(
00BC50: 4A 49 29 3A 47 4F 53 55 42 20 31 30 30 38 3A 4B JI):GOSUB 1008:K
00BC60: 49 3D 4B 48 3A 52 45 54 55 52 4E 20 0D 0A 31 30 I=KH:RETURN ..10
00BC70: 32 33 20 45 54 3D 4A 48 3A 53 24 3D 59 24 28 4A 23 ET=JH:S$=Y$(J
00BC80: 48 29 3A 47 4F 53 55 42 20 31 30 30 38 3A 52 3D H):GOSUB 1008:R=
00BC90: 31 2B 49 4E 54 28 52 4E 44 2A 38 29 2B 28 41 42 1+INT(RND*8)+(AB
00BCA0: 53 28 4B 49 3C 4B 48 20 29 2A 32 29 2D 35 3A 52 S(KI<KH )*2)-5:R
00BCB0: 3D 52 2B 41 42 53 28 52 3C 30 29 2A 41 42 53 28 =R+ABS(R<0)*ABS(
00BCC0: 52 29 0D 0A 31 30 32 34 20 53 3D 31 2B 49 4E 54 R)..1024 S=1+INT
00BCD0: 28 52 4E 44 2A 37 29 2B 28 41 42 53 28 4B 48 3C (RND*7)+(ABS(KH<
00BCE0: 4B 49 29 2A 32 29 2D 35 3A 53 3D 53 2B 41 42 53 KI)*2)-5:S=S+ABS
00BCF0: 28 53 3C 30 29 2A 41 42 53 28 53 29 0D 0A 31 30 (S<0)*ABS(S)..10
00BD00: 00 00 00 1A 20 20 20 20 20 20 24 24 24 FF 00 FF .... $$$...
00BD10: A9 20 13 2C 19 11 01 A3 20 22 57 68 69 63 68 20 . .,...£ "Which
00BD20: 6C 65 76 65 6C 22 3B 0D 00 00 72 E1 01 A1 20 0D level";...r... .
00BD30: 00 00 72 E1 F1 0F 20 FC 20 28 10 F5 0D 00 00 52 ..r... . (.....R
00BD40: C1 29 F1 0D 00 00 41 C2 20 FC 20 0D 00 00 72 E1 .)....A. . ...r.
00BD50: EE 11 20 EB 20 1E F0 03 20 01 97 20 0D 00 00 4A .. . ... .. ...J
00BD60: D4 EF 10 F5 0D 00 00 52 C1 01 0D 00 00 41 C2 EF .......R.....A..
00BD70: 0D 00 00 4A D4 01 A0 20 1E E9 03 00 00 00 1A 1A ...J... ........
00BD80: 4B 00 E9 03 A2 20 0E 2C 19 0F 01 A2 20 0F 2C 19 K.... .,.... .,.
00BD90: 1A 01 A2 20 10 2C 19 0D 01 A2 20 11 2C 0E 01 82 ... .,.... .,...
00BDA0: 20 19 0F 01 20 8A 01 BB 20 11 01 A9 20 19 0B 2C ... ... ... ..,
00BDB0: 19 15 01 BF 20 22 43 48 41 4E 47 45 20 4C 45 56 .... "CHANGE LEV
00BDC0: 45 4C 53 20 20 4D 45 4E 55 22 00 06 00 EA 03 C5 ELS MENU"......
00BDD0: 00 30 00 EB 03 A1 20 0D 00 00 41 C2 F1 0E 20 EB .0.... ...A... .
00BDE0: 20 BB 20 10 F4 28 0D 00 00 6A F4 EF F5 0F 29 01 . ..(...j....).
00BDF0: A9 20 19 11 2C 17 01 BF 22 33 20 45 41 53 59 22 . ..,..."3 EASY"
00BE00: 00 30 00 EC 03 A1 20 0D 00 00 41 C2 F1 0F 20 EB .0.... ...A... .
00BE10: 20 BB 20 10 F4 28 0D 00 00 6A F4 EF 0E 29 01 A9 . ..(...j...)..
00BE20: 20 19 11 2C 19 0B 01 BF 22 32 20 4E 4F 52 4D 22 ..,...."2 NORM"
00BE30: 00 24 00 ED 03 BB 20 10 F4 28 0D 00 00 6A F4 EF .$.... ..(...j..
00BE40: 0F 29 01 A9 20 19 11 2C 19 0D 01 BF 22 31 20 48 .).. ..,...."1 H
00BE50: 41 52 44 22 00 22 00 EE 03 9F 20 1E 53 03 01 9F ARD".".... .S...
00BE60: 20 1E 00 FA 01 A1 20 03 00 00 69 EE EF 22 4D 22 ..... ...i.."M"
00BE70: 20 EB 20 1E 84 03 00 16 00 EF 03 A1 20 03 00 00 . ......... ...
00BE80: 69 EE F2 22 43 22 20 EB 20 1E EE 03 00 74 00 F0 i.."C" . ....t..
00BE90: 03 BB 20 11 01 A9 20 13 2C 19 11 01 A3 20 22 57 .. ... .,...£ "W
00BEA0: 68 69 63 68 20 6C 65 76 65 6C 22 3B 0D 00 00 72 hich level";...r
00BEB0: E1 01 A1 20 0D 00 00 72 E1 F1 0F 20 FC 20 28 10 ... ...r... . (.
00BEC0: F5 0D 00 00 52 C1 29 F1 0D 00 00 41 C2 20 FC 20 ....R.)....A. .
00BED0: 0D 00 00 72 E1 EE 11 20 EB 20 1E F0 03 20 01 97 ...r... . ... ..
00BEE0: 20 0D 00 00 4A D4 EF 10 F5 0D 00 00 52 C1 01 0D ...J.......R...
00BEF0: 00 00 41 C2 EF 0D 00 00 4A D4 01 A0 20 1E E9 03 ..A.....J... ...
00BF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00BF10: 0A 00 01 00 02 09 4E E5 0A 00 41 02 00 00 00 02 ......N...A.....
00BF20: 0A 00 46 02 00 00 00 02 0A 00 42 02 00 00 00 02 ..F.......B.....
00BF30: 0A 00 47 02 00 00 00 02 0A 00 43 02 00 00 00 02 ..G.......C.....
00BF40: 0A 00 48 02 00 00 00 02 0A 00 44 02 00 00 00 02 ..H.......D.....
00BF50: 0A 00 49 02 00 00 00 02 0A 00 45 02 00 00 00 02 ..I.......E.....
00BF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C000: 32 35 20 49 42 3D 36 30 2D 41 42 53 28 43 49 3E 25 IB=60-ABS(CI>
00C010: 32 39 20 41 4E 44 20 43 49 3C 34 32 29 2A 35 35 29 AND CI<42)*55
00C020: 3A 52 41 3D 31 2B 49 4E 54 28 52 4E 44 2A 49 42 :RA=1+INT(RND*IB
00C030: 29 3A 49 46 20 52 41 3C 3E 35 20 54 48 45 4E 20 ):IF RA<>5 THEN
00C040: 31 30 32 37 0D 0A 31 30 32 36 20 47 4F 54 4F 20 1027..1026 GOTO
00C050: 31 30 30 31 0D 0A 31 30 32 37 20 42 24 3D 59 24 1001..1027 B$=Y$
00C060: 28 4A 49 29 2B 53 54 52 24 28 52 29 2B 43 48 52 (JI)+STR$(R)+CHR
00C070: 24 28 33 32 29 2B 53 54 52 24 28 53 29 2B 43 48 $(32)+STR$(S)+CH
00C080: 52 24 28 33 32 29 2B 59 24 28 4A 48 29 0D 0A 31 R$(32)+Y$(JH)..1
00C090: 30 32 38 20 50 52 49 4E 54 20 23 35 2C 70 61 24 028 PRINT #5,pa$
00C0A0: 28 36 29 3B 22 20 22 3B 42 24 3B 22 20 22 3B 70 (6);" ";B$;" ";p
00C0B0: 61 24 28 31 29 3A 43 4C 3D 43 4C 2B 31 3A 49 46 a$(1):CL=CL+1:IF
00C0C0: 20 52 41 3D 35 20 54 48 45 4E 20 31 30 33 30 20 RA=5 THEN 1030
00C0D0: 0D 0A 31 30 32 39 20 47 4F 53 55 42 20 31 30 35 ..1029 GOSUB 105
00C0E0: 31 0D 0A 31 30 33 30 20 49 46 20 43 4C 3D 32 33 1..1030 IF CL=23
00C0F0: 20 54 48 45 4E 20 47 4F 53 55 42 20 38 39 31 3A THEN GOSUB 891:
00C100: 43 4C 3D 31 34 3A 47 4F 53 55 42 20 38 38 37 3A CL=14:GOSUB 887:
00C110: 47 4F 53 55 42 20 31 30 35 37 3A 4B 28 4E 53 2C GOSUB 1057:K(NS,
00C120: 32 29 3D 41 47 3A 47 4F 54 4F 20 34 31 32 0D 0A 2)=AG:GOTO 412..
00C130: 31 30 33 31 20 52 45 54 55 52 4E 20 0D 0A 31 30 1031 RETURN ..10
00C140: 33 32 20 47 4F 54 4F 20 34 34 35 0D 0A 1A 29 EF 32 GOTO 445...).
00C150: 0D 00 00 41 C7 01 A0 20 1E 9C 01 00 07 00 07 04 ...A... ........
00C160: C9 20 00 0A 00 08 04 A0 20 1E BD 01 00 00 00 1A . ...... .......
00C170: 4A 49 3A 4E 28 32 2C 49 29 3D 4A 48 3A 42 24 3D JI:N(2,I)=JH:B$=
00C180: 48 29 3A 47 4F 53 55 42 20 31 30 30 38 3A 52 3D H):GOSUB 1008:R=
00C190: 31 2B 49 4E 54 28 52 4E 44 2A 38 29 2B 28 41 42 1+INT(RND*8)+(AB
00C1A0: 53 28 4B 49 3C 4B 48 20 29 2A 32 29 2D 35 3A 52 S(KI<KH )*2)-5:R
00C1B0: 3D 52 2B 41 42 53 28 52 3C 30 29 2A 41 42 53 28 =R+ABS(R<0)*ABS(
00C1C0: 52 29 0D 0A 31 30 32 34 20 53 3D 31 2B 49 4E 54 R)..1024 S=1+INT
00C1D0: 28 52 4E 44 2A 37 29 2B 28 41 42 53 28 4B 48 3C (RND*7)+(ABS(KH<
00C1E0: 4B 49 29 2A 32 29 2D 35 3A 53 3D 53 2B 41 42 53 KI)*2)-5:S=S+ABS
00C1F0: 28 53 3C 30 29 2A 41 42 53 28 53 29 0D 0A 31 30 (S<0)*ABS(S)..10
00C200: 24 28 32 31 29 3D 56 24 28 32 31 29 2B 53 50 41 $(21)=V$(21)+SPA
00C210: 43 45 24 28 38 2D 4C 45 4E 28 56 24 28 32 31 29 CE$(8-LEN(V$(21)
00C220: 29 29 3A 50 52 49 4E 54 23 36 2B 41 42 53 28 42 )):PRINT#6+ABS(B
00C230: 4B 3D 31 29 2C 70 61 24 28 36 29 3B 22 20 22 3B K=1),pa$(6);" ";
00C240: 56 24 28 32 31 29 3B 22 20 22 3B 55 53 49 4E 47 V$(21);" ";USING
00C250: 22 23 23 22 3B 4E 3B 3A 50 52 49 4E 54 23 36 2B "##";N;:PRINT#6+
00C260: 41 42 53 28 42 4B 3D 31 29 2C 22 20 22 3A 4A 43 ABS(BK=1)," ":JC
00C270: 3D 4A 43 2B 41 42 53 28 43 51 3D 31 29 0D 0A 31 =JC+ABS(CQ=1)..1
00C280: 30 30 38 20 41 51 3D 41 51 2B 41 42 53 28 41 52 008 AQ=AQ+ABS(AR
00C290: 3D 37 29 2A 31 33 3A 41 52 3D 41 52 2B 41 42 53 =7)*13:AR=AR+ABS
00C2A0: 28 41 52 3C 37 29 2D 41 42 53 28 41 52 3D 37 29 (AR<7)-ABS(AR=7)
00C2B0: 2A 33 3A 52 45 54 55 52 4E 20 0D 0A 31 30 30 39 *3:RETURN ..1009
00C2C0: 20 47 4F 53 55 42 20 31 30 32 30 3A 49 46 20 42 GOSUB 1020:IF B
00C2D0: 4E 3C 31 20 54 48 45 4E 20 31 30 31 31 0D 0A 31 N<1 THEN 1011..1
00C2E0: 30 31 30 20 46 4F 52 20 4D 3D 31 20 54 4F 20 42 010 FOR M=1 TO B
00C2F0: 4E 3A 52 41 3D 30 2B 49 4E 54 20 28 52 4E 44 2A N:RA=0+INT (RND*
00C300: 38 29 3A 4C 41 3D 4C 41 2B 41 42 53 28 52 41 3E 8):LA=LA+ABS(RA>
00C310: 49 4E 54 20 28 65 69 31 2F 32 29 29 3A 4E 45 58 INT (ei1/2)):NEX
00C320: 54 0D 0A 31 30 31 31 20 49 46 20 42 4F 3C 31 20 T..1011 IF BO<1
00C330: 54 48 45 4E 20 31 30 31 33 0D 0A 31 30 31 32 20 THEN 1013..1012
00C340: 46 4F 52 20 4D 3D 31 20 54 4F 20 42 4F 3A 52 41 FOR M=1 TO BO:RA
00C350: 3D 49 4E 54 20 28 52 4E 44 2A 28 38 2B 41 42 53 =INT (RND*(8+ABS
00C360: 28 41 50 3D 31 29 29 29 3A 4C 42 3D 4C 42 2B 41 (AP=1))):LB=LB+A
00C370: 42 53 28 52 41 3E 49 4E 54 20 28 42 41 2F 32 29 BS(RA>INT (BA/2)
00C380: 29 3A 4E 45 58 54 20 0D 0A 31 30 31 33 20 52 41 ):NEXT ..1013 RA
00C390: 3D 4C 41 2B 4C 42 3A 49 46 20 52 41 3E 38 20 54 =LA+LB:IF RA>8 T
00C3A0: 48 45 4E 20 4C 41 3D 4C 41 2D 31 3A 4C 42 3D 4C HEN LA=LA-1:LB=L
00C3B0: 42 2D 31 3A 47 4F 54 4F 20 31 30 31 33 0D 0A 31 B-1:GOTO 1013..1
00C3C0: 30 31 34 20 4C 41 3D 4C 41 2D 52 3A 49 46 20 4C 014 LA=LA-R:IF L
00C3D0: 41 3C 30 20 54 48 45 4E 20 4C 41 3D 30 3A 47 4F A<0 THEN LA=0:GO
00C3E0: 54 4F 20 31 30 31 36 0D 0A 31 30 31 35 20 46 4F TO 1016..1015 FO
00C3F0: 52 20 4D 3D 31 20 54 4F 20 4C 41 3A 42 28 4D 29 R M=1 TO LA:B(M)
00C400: 9C 01 00 07 00 07 04 C9 20 00 0A 00 08 04 A0 20 ........ ......
00C410: 1E BD 01 00 00 00 1A 00 00 00 1A 20 0D 00 00 43 ........... ...C
00C420: CC EF 19 16 20 EB 20 9F 20 1E 7B 03 01 0D 00 00 .... . . .{.....
00C430: 43 CC EF 19 0D 01 9F 20 1E 77 03 01 9F 20 1E 21 C...... .w... .!
00C440: 04 01 0D 00 00 CB 28 0D 00 00 4E D3 2C 10 29 EF ......(...N.,.).
00C450: 0D 00 00 41 C7 01 A0 20 1E 9C 01 00 07 00 07 04 ...A... ........
00C460: C9 20 00 0A 00 08 04 A0 20 1E BD 01 00 00 00 1A . ...... .......
00C470: 4A 49 3A 4E 28 32 2C 49 29 3D 4A 48 3A 42 24 3D JI:N(2,I)=JH:B$=
00C480: 0E 29 F6 FF 00 28 0D 00 00 D2 29 00 48 00 00 04 .)...(....).H...
00C490: 0D 00 00 D3 EF 0F F4 FF 0C 28 FF 45 F6 15 29 F4 .........(.E..).
00C4A0: 28 FF 00 28 0D 00 00 4B C8 F1 0D 00 00 4B C9 29 (..(...K.....K.)
00C4B0: F6 10 29 F5 13 01 0D 00 00 D3 EF 0D 00 00 D3 F4 ..).............
00C4C0: FF 00 28 0D 00 00 D3 F1 0E 29 F6 FF 00 28 0D 00 ..(......)...(..
00C4D0: 00 D3 29 00 4D 00 01 04 0D 00 00 49 C2 EF 19 3C ..).M......I...<
00C4E0: F5 FF 00 28 0D 00 00 43 C9 EE 19 1D 20 FA 20 0D ...(...C.... . .
00C4F0: 00 00 43 C9 F1 19 2A 29 F6 19 37 01 0D 00 00 52 ..C...*)..7....R
00C500: C1 EF 0F F4 FF 0C 28 FF 45 F6 0D 00 00 49 C2 29 ......(.E....I.)
00C510: 01 A1 20 0D 00 00 52 C1 F2 13 20 EB 20 1E 03 04 .. ...R... . ...
00C520: 00 0A 00 02 04 A0 20 1E E9 03 00 41 00 03 04 03 ...... ....A....
00C530: 00 00 C2 EF 03 00 00 D9 28 0D 00 00 4A C9 29 F4 ........(...J.).
00C540: FF 19 28 0D 00 00 D2 29 F4 FF 03 28 19 20 29 F4 ..(....)...(. ).
00C550: FF 19 28 0D 00 00 D3 29 F4 FF 03 28 19 20 29 F4 ..(....)...(. ).
00C560: 03 00 00 D9 28 0D 00 00 4A C8 29 00 47 00 04 04 ....(...J.).G...
00C570: BF 20 23 13 2C 03 00 00 70 E1 28 14 29 3B 22 20 . #.,...p.(.);"
00C580: 22 3B 03 00 00 C2 3B 22 20 22 3B 03 00 00 70 E1 ";....;" ";...p.
00C590: 28 0F 29 01 0D 00 00 43 CC EF 0D 00 00 43 CC F4 (.)....C.....C..
00C5A0: 0F 01 A1 20 0D 00 00 52 C1 EF 13 20 EB 20 1E 06 ... ...R... . ..
00C5B0: 04 20 00 0A 00 05 04 9F 20 1E 1B 04 00 46 00 06 . ...... ....F..
00C5C0: 04 A1 20 0D 00 00 43 CC EF 19 17 20 EB 20 9F 20 .. ...C.... . .
00C5D0: 1E 7B 03 01 0D 00 00 43 CC EF 19 0E 01 9F 20 1E .{.....C...... .
00C5E0: 77 03 01 9F 20 1E 21 04 01 0D 00 00 CB 28 0D 00 w... .!......(..
00C5F0: 00 4E D3 2C 10 29 EF 0D 00 00 41 C7 01 A0 20 1E .N.,.)....A... .
00C600: 3D 28 4E 2B 32 29 2B 49 4E 54 20 28 52 4E 44 2A =(N+2)+INT (RND*
00C610: 28 4D 44 2D 31 29 29 3A 43 28 4D 29 3D 31 3A 4E (MD-1)):C(M)=1:N
00C620: 45 58 54 0D 0A 31 30 31 36 20 4C 42 3D 4C 42 2D EXT..1016 LB=LB-
00C630: 53 3A 49 46 20 4C 42 3C 30 20 54 48 45 4E 20 4C S:IF LB<0 THEN L
00C640: 42 3D 30 3A 52 45 54 55 52 4E 20 0D 0A 31 30 31 B=0:RETURN ..101
00C650: 37 20 46 4F 52 20 4D 3D 28 4C 41 2B 31 29 20 54 7 FOR M=(LA+1) T
00C660: 4F 20 28 4C 42 2B 4C 41 29 3A 42 28 4D 29 3D 28 O (LB+LA):B(M)=(
00C670: 4E 2B 32 29 2B 49 4E 54 20 28 52 4E 44 2A 28 4D N+2)+INT (RND*(M
00C680: 44 2D 31 29 29 3A 43 28 4D 29 3D 32 3A 4E 45 58 D-1)):C(M)=2:NEX
00C690: 54 3A 52 45 54 55 52 4E 0D 0A 31 30 31 38 20 27 T:RETURN..1018 '
00C6A0: 0D 0A 31 30 31 39 20 27 0D 0A 31 30 32 30 20 52 ..1019 '..1020 R
00C6B0: 41 3D 30 2B 49 4E 54 20 28 52 4E 44 2A 34 29 3A A=0+INT (RND*4):
00C6C0: 4D 44 3D 39 30 2B 52 41 3A 52 41 3D 31 2B 49 4E MD=90+RA:RA=1+IN
00C6D0: 54 20 28 52 4E 44 2A 33 29 3A 42 4E 3D 30 3A 42 T (RND*3):BN=0:B
00C6E0: 4F 3D 30 3A 4C 41 3D 30 3A 4C 42 3D 30 3A 47 4F O=0:LA=0:LB=0:GO
00C6F0: 53 55 42 20 31 30 32 33 3A 42 4E 3D 42 4E 2B 41 SUB 1023:BN=BN+A
00C700: 42 53 28 42 44 3E 3D 42 42 29 2A 42 42 2B 41 42 BS(BD>=BB)*BB+AB
00C710: 53 28 42 44 3C 42 42 29 2A 42 44 2D 49 4E 54 20 S(BD<BB)*BD-INT
00C720: 28 45 4A 2F 32 29 2B 41 42 53 28 42 4B 3D 31 29 (EJ/2)+ABS(BK=1)
00C730: 2D 41 42 53 28 41 41 3D 31 29 2D 41 42 53 28 42 -ABS(AA=1)-ABS(B
00C740: 4A 20 3E 33 29 2B 41 42 53 28 52 41 3D 31 20 41 J >3)+ABS(RA=1 A
00C750: 4E 44 20 4D 45 20 3E 38 30 29 2D 41 42 53 28 52 ND ME >80)-ABS(R
00C760: 41 3D 33 20 41 4E 44 20 4D 45 3C 33 30 29 2D 41 A=3 AND ME<30)-A
00C770: 42 53 28 28 50 56 2D 50 55 29 3E 32 39 29 0D 0A BS((PV-PU)>29)..
00C780: 31 30 32 31 20 27 0D 0A 31 30 32 32 20 52 41 3D 1021 '..1022 RA=
00C790: 31 2B 49 4E 54 20 28 52 4E 44 2A 35 29 3A 42 4F 1+INT (RND*5):BO
00C7A0: 3D 42 4F 2B 41 42 53 28 45 4C 3E 3D 45 4B 29 2A =BO+ABS(EL>=EK)*
00C7B0: 45 4B 2B 41 42 53 28 45 4C 3C 45 4B 29 2A 45 4C EK+ABS(EL<EK)*EL
00C7C0: 2D 49 4E 54 20 28 42 43 2F 32 29 2D 41 42 53 28 -INT (BC/2)-ABS(
00C7D0: 42 43 3D 42 42 20 41 4E 44 20 42 42 3D 42 44 29 BC=BB AND BB=BD)
00C7E0: 2B 41 42 53 28 52 41 3D 31 20 41 4E 44 20 4D 4D +ABS(RA=1 AND MM
00C7F0: 20 3E 38 30 29 2D 41 42 53 28 52 41 3D 33 20 41 >80)-ABS(RA=3 A
00C800: 31 30 30 31 20 46 4F 52 20 49 51 3D 31 20 54 4F 1001 FOR IQ=1 TO
00C810: 20 38 3A 41 28 49 51 29 3D 30 3A 4E 45 58 54 3A 8:A(IQ)=0:NEXT:
00C820: 46 4F 52 20 65 74 3D 31 20 54 4F 20 38 0D 0A 31 FOR et=1 TO 8..1
00C830: 30 30 32 20 46 3D 31 2B 49 4E 54 28 52 4E 44 2A 002 F=1+INT(RND*
00C840: 36 34 29 0D 0A 31 30 30 33 20 52 41 3D 38 31 2B 64)..1003 RA=81+
00C850: 49 4E 54 28 52 4E 44 2A 31 36 29 0D 0A 31 30 30 INT(RND*16)..100
00C860: 34 20 46 4F 52 20 58 3D 31 20 54 4F 20 38 0D 0A 4 FOR X=1 TO 8..
00C870: 31 30 30 35 20 49 46 20 41 28 58 29 3D 52 41 20 1005 IF A(X)=RA
00C880: 54 48 45 4E 20 52 41 3D 38 31 2B 49 4E 54 28 52 THEN RA=81+INT(R
00C890: 4E 44 2A 31 36 29 3A 47 4F 54 4F 20 31 30 30 35 ND*16):GOTO 1005
00C8A0: 0D 0A 31 30 30 36 20 4E 45 58 54 3A 49 46 20 78 ..1006 NEXT:IF x
00C8B0: 3D 39 39 20 54 48 45 4E 20 31 30 30 33 0D 0A 31 =99 THEN 1003..1
00C8C0: 30 30 37 20 49 46 20 4C 28 46 29 3D 30 20 54 48 007 IF L(F)=0 TH
00C8D0: 45 4E 20 47 4F 53 55 42 20 31 30 31 36 20 45 4C EN GOSUB 1016 EL
00C8E0: 53 45 20 47 4F 53 55 42 20 31 30 31 35 3A 47 4F SE GOSUB 1015:GO
00C8F0: 54 4F 20 31 30 30 37 0D 0A 31 30 30 38 20 4E 45 TO 1007..1008 NE
00C900: 58 54 3A 45 54 3D 34 31 0D 0A 31 30 30 39 20 46 XT:ET=41..1009 F
00C910: 3D 31 2B 49 4E 54 28 52 4E 44 2A 36 34 29 0D 0A =1+INT(RND*64)..
00C920: 31 30 31 30 20 49 46 20 4C 28 46 29 3C 3E 30 20 1010 IF L(F)<>0
00C930: 54 48 45 4E 20 31 30 31 32 0D 0A 31 30 31 31 20 THEN 1012..1011
00C940: 4C 28 46 29 3D 45 54 3A 45 54 3D 45 54 2B 31 3A L(F)=ET:ET=ET+1:
00C950: 49 46 20 45 54 3D 38 31 20 54 48 45 4E 20 52 45 IF ET=81 THEN RE
00C960: 54 55 52 4E 20 45 4C 53 45 20 31 30 30 39 0D 0A TURN ELSE 1009..
00C970: 31 30 31 32 20 46 3D 46 2B 31 3A 46 3D 46 2D 41 1012 F=F+1:F=F-A
00C980: 42 53 28 46 3D 36 35 29 2A 36 34 3A 47 4F 54 4F BS(F=65)*64:GOTO
00C990: 20 31 30 31 30 0D 0A 31 30 31 33 20 52 45 4D 0D 1010..1013 REM.
00C9A0: 0A 31 30 31 34 20 52 45 4D 0D 0A 31 30 31 35 20 .1014 REM..1015
00C9B0: 46 3D 46 2B 31 3A 46 3D 46 2D 41 42 53 28 46 3D F=F+1:F=F-ABS(F=
00C9C0: 36 35 29 2A 36 34 3A 52 45 54 55 52 4E 0D 0A 31 65)*64:RETURN..1
00C9D0: 30 31 36 20 41 28 45 54 29 3D 52 41 3A 4C 28 46 016 A(ET)=RA:L(F
00C9E0: 29 3D 52 41 3A 52 45 54 55 52 4E 0D 0A 1A 47 3D )=RA:RETURN...G=
00C9F0: 30 3A 46 4F 52 20 58 3D 31 20 54 4F 20 45 54 2D 0:FOR X=1 TO ET-
00CA00: 4E 44 20 4D 4D 20 3C 33 30 29 2D 41 42 53 28 28 ND MM <30)-ABS((
00CA10: 50 55 2D 50 56 29 3E 32 39 29 3A 52 45 54 55 52 PU-PV)>29):RETUR
00CA20: 4E 0D 0A 31 30 32 33 20 46 4F 52 20 7A 78 39 39 N..1023 FOR zx99
00CA30: 3D 31 20 54 4F 20 38 3A 62 28 7A 78 39 39 29 3D =1 TO 8:b(zx99)=
00CA40: 30 3A 63 28 7A 78 39 39 29 3D 30 3A 4E 45 58 54 0:c(zx99)=0:NEXT
00CA50: 3A 52 45 54 55 52 4E 0D 0A 1A 32 0D 0A 31 30 30 :RETURN...2..100
00CA60: 33 20 50 52 49 4E 54 23 36 2B 41 42 53 28 42 4B 3 PRINT#6+ABS(BK
00CA70: 3D 32 29 2C 70 61 24 28 36 29 3B 22 20 22 3B 56 =2),pa$(6);" ";V
00CA80: 44 2D 31 29 29 3A 43 28 4D 29 3D 32 3A 4E 45 58 D-1)):C(M)=2:NEX
00CA90: 54 3A 52 45 54 55 52 4E 0D 0A 31 30 31 38 20 27 T:RETURN..1018 '
00CAA0: 0D 0A 31 30 31 39 20 27 0D 0A 31 30 32 30 20 52 ..1019 '..1020 R
00CAB0: 41 3D 30 2B 49 4E 54 20 28 52 4E 44 2A 34 29 3A A=0+INT (RND*4):
00CAC0: 4D 44 3D 39 30 2B 52 41 3A 52 41 3D 31 2B 49 4E MD=90+RA:RA=1+IN
00CAD0: 54 20 28 52 4E 44 2A 33 29 3A 42 4E 3D 30 3A 42 T (RND*3):BN=0:B
00CAE0: 4F 3D 30 3A 4C 41 3D 30 3A 4C 42 3D 30 3A 47 4F O=0:LA=0:LB=0:GO
00CAF0: 53 55 42 20 31 30 32 33 3A 42 4E 3D 42 4E 2B 41 SUB 1023:BN=BN+A
00CB00: 42 53 28 42 44 3E 3D 42 42 29 2A 42 42 2B 41 42 BS(BD>=BB)*BB+AB
00CB10: 53 28 42 44 3C 42 42 29 2A 42 44 2D 49 4E 54 20 S(BD<BB)*BD-INT
00CB20: 28 45 4A 2F 32 29 2B 41 42 53 28 42 4B 3D 31 29 (EJ/2)+ABS(BK=1)
00CB30: 2D 41 42 53 28 41 41 3D 31 29 2D 41 42 53 28 42 -ABS(AA=1)-ABS(B
00CB40: 4A 20 3E 33 29 2B 41 42 53 28 52 41 3D 31 20 41 J >3)+ABS(RA=1 A
00CB50: 4E 44 20 4D 45 20 3E 38 30 29 2D 41 42 53 28 52 ND ME >80)-ABS(R
00CB60: 41 3D 33 20 41 4E 44 20 4D 45 3C 33 30 29 2D 41 A=3 AND ME<30)-A
00CB70: 42 53 28 28 50 56 2D 50 55 29 3E 32 39 29 0D 0A BS((PV-PU)>29)..
00CB80: 31 30 32 31 20 27 0D 0A 31 30 32 32 20 52 41 3D 1021 '..1022 RA=
00CB90: 31 2B 49 4E 54 20 28 52 4E 44 2A 35 29 3A 42 4F 1+INT (RND*5):BO
00CBA0: 3D 42 4F 2B 41 42 53 28 45 4C 3E 3D 45 4B 29 2A =BO+ABS(EL>=EK)*
00CBB0: 45 4B 2B 41 42 53 28 45 4C 3C 45 4B 29 2A 45 4C EK+ABS(EL<EK)*EL
00CBC0: 2D 49 4E 54 20 28 42 43 2F 32 29 2D 41 42 53 28 -INT (BC/2)-ABS(
00CBD0: 42 43 3D 42 42 20 41 4E 44 20 42 42 3D 42 44 29 BC=BB AND BB=BD)
00CBE0: 2B 41 42 53 28 52 41 3D 31 20 41 4E 44 20 4D 4D +ABS(RA=1 AND MM
00CBF0: 20 3E 38 30 29 2D 41 42 53 28 52 41 3D 33 20 41 >80)-ABS(RA=3 A
00CC00: 1E F2 03 00 06 00 F5 03 C5 00 06 00 F6 03 C5 00 ................
00CC10: 2B 00 F7 03 0D 00 00 C6 EF 0D 00 00 C6 F4 0F 01 +...............
00CC20: 0D 00 00 C6 EF 0D 00 00 C6 F5 FF 00 28 0D 00 00 ............(...
00CC30: C6 EF 19 41 29 F6 19 40 01 C9 00 29 00 F8 03 0D ...A)..@...)....
00CC40: 00 00 C1 28 0D 00 00 45 D4 29 EF 0D 00 00 52 C1 ...(...E.)....R.
00CC50: 01 0D 00 00 CC 28 0D 00 00 C6 29 EF 0D 00 00 52 .....(....)....R
00CC60: C1 01 C9 00 00 00 1A 01 C9 00 00 00 1A 41 47 3D .............AG=
00CC70: 30 3A 46 4F 52 20 58 3D 31 20 54 4F 20 45 54 2D 0:FOR X=1 TO ET-
00CC80: 30 00 E9 03 9E 20 0D 00 00 49 D1 EF 0F 20 EC 20 0.... ...I... .
00CC90: 16 01 0D 00 00 C1 28 0D 00 00 49 D1 29 EF 0E 01 ......(...I.)...
00CCA0: B0 01 9E 20 0D 00 00 65 F4 EF 0F 20 EC 20 16 00 ... ...e... . ..
00CCB0: 15 00 EA 03 0D 00 00 C6 EF 0F F4 FF 0C 28 FF 45 .............(.E
00CCC0: F6 19 40 29 00 17 00 EB 03 0D 00 00 52 C1 EF 19 ..@)........R...
00CCD0: 51 F4 FF 0C 28 FF 45 F6 19 10 29 00 11 00 EC 03 Q...(.E...).....
00CCE0: 9E 20 0D 00 00 D8 EF 0F 20 EC 20 16 00 32 00 ED . ...... . ..2..
00CCF0: 03 A1 20 0D 00 00 C1 28 0D 00 00 D8 29 EF 0D 00 .. ....(....)...
00CD00: 00 52 C1 20 EB 20 0D 00 00 52 C1 EF 19 51 F4 FF .R. . ...R...Q..
00CD10: 0C 28 FF 45 F6 19 10 29 01 A0 20 1E ED 03 00 16 .(.E...).. .....
00CD20: 00 EE 03 B0 01 A1 20 0D 00 00 F8 EF 19 63 20 EB ...... ......c .
00CD30: 20 1E EB 03 00 2A 00 EF 03 A1 20 0D 00 00 CC 28 ....*.... ....(
00CD40: 0D 00 00 C6 29 EF 0E 20 EB 20 9F 20 1E F8 03 20 ....).. . . ...
00CD50: 01 97 20 9F 20 1E F7 03 01 A0 20 1E EF 03 00 0F .. . ..... .....
00CD60: 00 F0 03 B0 01 0D 00 00 45 D4 EF 19 29 00 15 00 ........E...)...
00CD70: F1 03 0D 00 00 C6 EF 0F F4 FF 0C 28 FF 45 F6 19 ...........(.E..
00CD80: 40 29 00 19 00 F2 03 A1 20 0D 00 00 CC 28 0D 00 @)...... ....(..
00CD90: 00 C6 29 F2 0E 20 EB 20 1E F4 03 00 39 00 F3 03 ..).. . ....9...
00CDA0: 0D 00 00 CC 28 0D 00 00 C6 29 EF 0D 00 00 45 D4 ....(....)....E.
00CDB0: 01 0D 00 00 45 D4 EF 0D 00 00 45 D4 F4 0F 01 A1 ....E.....E.....
00CDC0: 20 0D 00 00 45 D4 EF 19 51 20 EB 20 C9 20 01 97 ...E...Q . . ..
00CDD0: 20 1E F1 03 00 2F 00 F4 03 0D 00 00 C6 EF 0D 00 ..../..........
00CDE0: 00 C6 F4 0F 01 0D 00 00 C6 EF 0D 00 00 C6 F5 FF ................
00CDF0: 00 28 0D 00 00 C6 EF 19 41 29 F6 19 40 01 A0 20 .(......A)..@..
00CE00: 31 30 30 31 20 4D 4F 3D 31 3A 43 4C 53 3A 49 46 1001 MO=1:CLS:IF
00CE10: 20 43 56 3D 31 20 41 4E 44 20 42 4B 3D 32 20 41 CV=1 AND BK=2 A
00CE20: 4E 44 20 43 53 3E 32 20 54 48 45 4E 20 31 30 30 ND CS>2 THEN 100
00CE30: 33 20 45 4C 53 45 20 49 46 20 43 56 3D 31 20 41 3 ELSE IF CV=1 A
00CE40: 4E 44 20 42 4B 3D 32 20 41 4E 44 20 43 53 3C 33 ND BK=2 AND CS<3
00CE50: 20 54 48 45 4E 20 31 30 30 34 0D 0A 31 30 30 32 THEN 1004..1002
00CE60: 20 49 46 20 41 50 3C 33 20 41 4E 44 20 42 4B 3D IF AP<3 AND BK=
00CE70: 32 20 4F 52 20 41 50 3E 32 20 41 4E 44 20 4E 49 2 OR AP>2 AND NI
00CE80: 3E 30 20 41 4E 44 20 42 4B 3D 31 20 4F 52 20 42 >0 AND BK=1 OR B
00CE90: 4B 3D 31 20 41 4E 44 20 4E 49 3E 30 20 41 4E 44 K=1 AND NI>0 AND
00CEA0: 20 41 50 3C 33 20 54 48 45 4E 20 31 30 30 34 0D AP<3 THEN 1004.
00CEB0: 0A 31 30 30 33 20 52 45 4D 0D 0A 31 30 30 34 20 .1003 REM..1004
00CEC0: 49 46 20 4D 4A 3D 4D 49 20 41 4E 44 20 4D 4B 3D IF MJ=MI AND MK=
00CED0: 4D 48 20 41 4E 44 20 4D 4C 3D 4D 47 20 54 48 45 MH AND ML=MG THE
00CEE0: 4E 20 4D 4A 3D 53 44 3A 4D 4B 3D 53 45 3A 4D 4C N MJ=SD:MK=SE:ML
00CEF0: 3D 53 46 0D 0A 31 30 30 35 20 52 45 54 55 52 4E =SF..1005 RETURN
00CF00: 20 0D 0A 1A 20 20 20 20 20 20 24 24 24 FF 00 FF ... $$$...
00CF10: 03 C9 20 00 00 00 1A 4D CC EF 0D 00 00 53 C6 00 .. ....M.....S..
00CF20: 07 00 ED 03 C9 20 00 00 00 1A 41 4E 44 20 42 4B ..... ....AND BK
00CF30: 3D 32 20 41 4E 44 20 43 53 3E 32 20 74 68 65 6E =2 AND CS>2 then
00CF40: 20 31 30 30 33 20 65 6C 73 65 20 69 66 20 43 56 1003 else if CV
00CF50: 3D 31 20 41 4E 44 20 42 4B 3D 32 20 41 4E 44 20 =1 AND BK=2 AND
00CF60: 43 53 3C 33 20 74 68 65 6E 20 31 30 30 34 0D 0A CS<3 then 1004..
00CF70: 31 30 30 32 20 69 66 20 41 50 3C 33 20 41 4E 44 1002 if AP<3 AND
00CF80: 00 59 20 20 20 20 20 20 20 42 41 53 00 00 00 25 .Y BAS...%
00CF90: 91 92 93 94 95 00 00 00 00 00 00 00 00 00 00 00 ................
00CFA0: 00 59 31 20 20 20 20 20 20 42 41 53 00 00 00 10 .Y1 BAS....
00CFB0: 96 97 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00CFC0: 00 53 43 52 44 20 20 20 20 42 49 4E 00 00 00 02 .SCRD BIN....
00CFD0: 98 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00CFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D000: 31 30 30 31 20 59 3D 31 2B 49 4E 54 20 28 52 4E 1001 Y=1+INT (RN
00D010: 44 2A 33 29 3A 49 46 20 59 3C 3E 31 20 54 48 45 D*3):IF Y<>1 THE
00D020: 4E 20 31 30 30 34 0D 0A 31 30 30 32 20 59 3D 32 N 1004..1002 Y=2
00D030: 2B 49 4E 54 20 28 52 4E 44 2A 31 30 29 3A 49 46 +INT (RND*10):IF
00D040: 20 54 28 59 29 3D 30 20 4F 52 20 54 28 59 29 3D T(Y)=0 OR T(Y)=
00D050: 34 20 54 48 45 4E 20 31 30 30 32 0D 0A 31 30 30 4 THEN 1002..100
00D060: 33 20 50 52 49 4E 54 23 36 2B 41 42 53 28 42 4B 3 PRINT#6+ABS(BK
00D070: 3D 32 29 2C 70 61 24 28 36 29 3B 22 20 22 3B 56 =2),pa$(6);" ";V
00D080: 24 28 59 29 3B 22 20 22 3B 55 53 49 4E 47 22 23 $(Y);" ";USING"#
00D090: 23 22 3B 4E 3B 3A 50 52 49 4E 54 23 36 2B 41 42 #";N;:PRINT#6+AB
00D0A0: 53 28 42 4B 3D 32 29 2C 22 20 22 3A 45 28 31 2C S(BK=2)," ":E(1,
00D0B0: 59 29 3D 45 28 31 2C 59 29 2D 41 42 53 28 45 28 Y)=E(1,Y)-ABS(E(
00D0C0: 31 2C 59 29 3C 30 29 2B 41 42 53 28 45 28 31 2C 1,Y)<0)+ABS(E(1,
00D0D0: 59 29 3E 2D 31 29 3A 45 28 32 2C 59 29 3D 45 28 Y)>-1):E(2,Y)=E(
00D0E0: 32 2C 59 29 2B 31 3A 48 28 59 29 3D 48 28 59 29 2,Y)+1:H(Y)=H(Y)
00D0F0: 2B 30 2E 30 34 3A 4A 42 3D 4A 42 2B 41 42 53 28 +0.04:JB=JB+ABS(
00D100: 43 51 3D 31 29 3A 47 4F 54 4F 20 31 30 30 38 0D CQ=1):GOTO 1008.
00D110: 0A 31 30 30 34 20 59 3D 32 2B 49 4E 54 20 28 52 .1004 Y=2+INT (R
00D120: 4E 44 2A 31 30 29 3A 49 46 20 54 28 59 29 3C 34 ND*10):IF T(Y)<4
00D130: 20 54 48 45 4E 20 31 30 30 34 20 45 4C 53 45 20 THEN 1004 ELSE
00D140: 47 4F 54 4F 20 31 30 30 33 0D 0A 31 30 30 35 20 GOTO 1003..1005
00D150: 45 28 31 2C 31 29 3D 45 28 31 2C 31 29 2D 41 42 E(1,1)=E(1,1)-AB
00D160: 53 28 45 28 31 2C 31 29 3C 30 20 41 4E 44 20 42 S(E(1,1)<0 AND B
00D170: 41 3E 30 29 2B 41 42 53 28 45 28 31 2C 31 29 3E A>0)+ABS(E(1,1)>
00D180: 2D 31 20 41 4E 44 20 42 41 3E 30 29 3A 45 28 32 -1 AND BA>0):E(2
00D190: 2C 31 29 3D 45 28 32 2C 31 29 2B 41 42 53 28 42 ,1)=E(2,1)+ABS(B
00D1A0: 41 3E 30 29 0D 0A 31 30 30 36 20 47 4F 53 55 42 A>0)..1006 GOSUB
00D1B0: 20 39 38 3A 56 24 28 32 31 29 3D 43 48 52 24 28 98:V$(21)=CHR$(
00D1C0: 5A 39 29 2B 22 2E 22 2B 4D 49 44 24 28 48 24 2C Z9)+"."+MID$(H$,
00D1D0: 52 43 2C 31 29 2B 4D 49 44 24 28 4D 24 2C 52 42 RC,1)+MID$(M$,RB
00D1E0: 2C 31 29 2B 4D 49 44 24 28 48 24 2C 52 44 2C 31 ,1)+MID$(H$,RD,1
00D1F0: 29 2B 45 24 28 52 41 29 0D 0A 31 30 30 37 20 56 )+E$(RA)..1007 V
00D200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00D210: 0B 00 01 00 02 09 4E E5 0B 00 41 02 00 00 00 02 ......N...A.....
00D220: 0B 00 46 02 00 00 00 02 0B 00 42 02 00 00 00 02 ..F.......B.....
00D230: 0B 00 47 02 00 00 00 02 0B 00 43 02 00 00 00 02 ..G.......C.....
00D240: 0B 00 48 02 00 00 00 02 0B 00 44 02 00 00 00 02 ..H.......D.....
00D250: 0B 00 49 02 00 00 00 02 0B 00 45 02 00 00 00 02 ..I.......E.....
00D260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D500: 31 30 30 31 20 49 46 20 43 56 3D 31 20 4F 52 20 1001 IF CV=1 OR
00D510: 43 51 3D 31 20 4F 52 20 43 50 3D 31 20 54 48 45 CQ=1 OR CP=1 THE
00D520: 4E 20 31 30 30 33 0D 0A 31 30 30 32 20 44 4E 3D N 1003..1002 DN=
00D530: 35 30 30 30 30 2B 49 4E 54 28 52 4E 44 2A 31 30 50000+INT(RND*10
00D540: 30 30 30 29 3A 44 4E 3D 49 4E 54 28 44 4E 2F 41 000):DN=INT(DN/A
00D550: 50 29 2F 41 50 3A 44 4E 3D 44 4E 2D 28 28 31 32 P)/AP:DN=DN-((12
00D560: 35 30 2F 41 50 29 2F 41 50 29 2A 41 47 3A 44 4E 50/AP)/AP)*AG:DN
00D570: 3D 44 4E 2D 28 28 31 32 35 30 2F 41 50 29 2F 41 =DN-((1250/AP)/A
00D580: 50 29 2A 4D 4E 3A 44 4E 3D 44 4E 2B 28 41 50 3D P)*MN:DN=DN+(AP=
00D590: 31 29 2A 28 44 4E 2F 33 29 3A 47 4F 54 4F 20 31 1)*(DN/3):GOTO 1
00D5A0: 30 30 37 0D 0A 31 30 30 33 20 49 46 20 43 51 3D 007..1003 IF CQ=
00D5B0: 31 20 4F 52 20 43 50 3D 31 20 54 48 45 4E 20 43 1 OR CP=1 THEN C
00D5C0: 53 3D 31 3A 43 58 3D 41 42 53 28 43 51 3D 31 29 S=1:CX=ABS(CQ=1)
00D5D0: 2A 47 5A 2B 41 42 53 28 43 50 3D 31 29 2A 36 3A *GZ+ABS(CP=1)*6:
00D5E0: 47 4F 54 4F 20 31 30 30 35 0D 0A 31 30 30 34 20 GOTO 1005..1004
00D5F0: 43 58 3D 43 52 3A 49 46 20 43 54 3E 43 58 20 54 CX=CR:IF CT>CX T
00D600: 48 45 4E 20 43 58 3D 43 54 0D 0A 31 30 30 35 20 HEN CX=CT..1005
00D610: 44 4E 3D 28 37 30 30 30 2B 49 4E 54 28 52 4E 44 DN=(7000+INT(RND
00D620: 2A 32 30 30 30 29 29 2A 28 43 58 2B 32 29 3A 49 *2000))*(CX+2):I
00D630: 46 20 42 4B 3D 31 20 54 48 45 4E 20 44 4E 3D 49 F BK=1 THEN DN=I
00D640: 4E 54 28 44 4E 2F 41 50 29 3A 47 4F 54 4F 20 31 NT(DN/AP):GOTO 1
00D650: 30 30 37 0D 0A 31 30 30 36 20 44 4E 3D 49 4E 54 007..1006 DN=INT
00D660: 28 44 4E 2F 43 53 29 0D 0A 31 30 30 37 20 52 41 (DN/CS)..1007 RA
00D670: 3D 49 4E 54 28 28 32 30 30 2F 41 50 29 2F 41 50 =INT((200/AP)/AP
00D680: 29 3A 52 42 3D 33 2B 49 4E 54 28 52 4E 44 2A 28 ):RB=3+INT(RND*(
00D690: 52 41 2D 33 29 29 3A 4F 4C 3D 49 4E 54 28 35 30 RA-3)):OL=INT(50
00D6A0: 2A 52 42 29 3A 4F 31 4E 3D 49 4E 54 28 34 2B 49 *RB):O1N=INT(4+I
00D6B0: 4E 54 28 52 4E 44 2A 31 30 30 30 30 29 29 2F 41 NT(RND*10000))/A
00D6C0: 50 3A 49 46 20 42 4B 3D 32 20 54 48 45 4E 20 31 P:IF BK=2 THEN 1
00D6D0: 30 31 33 0D 0A 31 30 30 38 20 44 5A 3D 28 35 2D 013..1008 DZ=(5-
00D6E0: 41 50 29 3A 49 46 20 49 4E 54 28 4E 4A 29 3E 44 AP):IF INT(NJ)>D
00D6F0: 5A 20 54 48 45 4E 20 52 41 3D 49 4E 54 28 4E 4A Z THEN RA=INT(NJ
00D700: 31 30 35 31 20 46 4C 3D 31 2B 49 4E 54 20 28 52 1051 FL=1+INT (R
00D710: 4E 44 2A 31 38 29 3A 52 41 3D 31 2B 49 4E 54 20 ND*18):RA=1+INT
00D720: 28 52 4E 44 2A 32 29 3A 49 46 20 42 55 3E 38 30 (RND*2):IF BU>80
00D730: 20 41 4E 44 20 52 41 3D 32 20 54 48 45 4E 20 52 AND RA=2 THEN R
00D740: 45 54 55 52 4E 20 0D 0A 31 30 35 32 20 47 4F 53 ETURN ..1052 GOS
00D750: 55 42 20 38 39 32 3A 49 46 20 42 55 3C 38 31 20 UB 892:IF BU<81
00D760: 41 4E 44 20 46 4C 3E 31 31 20 54 48 45 4E 20 31 AND FL>11 THEN 1
00D770: 30 36 34 0D 0A 31 30 35 33 20 49 46 20 45 54 3C 064..1053 IF ET<
00D780: 31 33 20 4F 52 20 54 28 46 4C 29 3D 30 20 4F 52 13 OR T(FL)=0 OR
00D790: 20 4A 28 46 4C 29 3D 34 32 20 4F 52 20 4A 28 46 J(FL)=42 OR J(F
00D7A0: 4C 29 3D 38 32 20 54 48 45 4E 20 52 45 54 55 52 L)=82 THEN RETUR
00D7B0: 4E 20 0D 0A 31 30 35 34 20 46 4F 52 20 49 3D 31 N ..1054 FOR I=1
00D7C0: 33 20 54 4F 20 32 30 3A 49 46 20 54 28 49 29 3D 3 TO 20:IF T(I)=
00D7D0: 30 20 54 48 45 4E 20 49 45 3D 49 3A 4A 53 3D 30 0 THEN IE=I:JS=0
00D7E0: 3A 69 3D 39 39 0D 0A 31 30 35 35 20 4E 45 58 54 :i=99..1055 NEXT
00D7F0: 3A 49 46 20 69 3C 3E 31 30 30 20 54 48 45 4E 20 :IF i<>100 THEN
00D800: 4A 53 3D 31 3A 52 45 54 55 52 4E 20 0D 0A 31 30 JS=1:RETURN ..10
00D810: 35 36 20 49 46 20 42 55 3C 38 31 20 41 4E 44 20 56 IF BU<81 AND
00D820: 52 41 3D 32 20 54 48 45 4E 20 31 30 36 33 0D 0A RA=2 THEN 1063..
00D830: 31 30 35 37 20 52 41 3D 49 4E 54 20 28 28 36 30 1057 RA=INT ((60
00D840: 2F 31 30 30 29 2A 59 28 32 2C 32 29 29 3A 55 28 /100)*Y(2,2)):U(
00D850: 46 4C 29 3D 30 2B 49 4E 54 20 28 52 4E 44 2A 33 FL)=0+INT (RND*3
00D860: 32 29 2D 38 3A 52 42 3D 49 4E 54 20 28 28 41 42 2)-8:RB=INT ((AB
00D870: 53 28 55 28 46 4C 29 29 2F 31 30 30 29 2A 52 41 S(U(FL))/100)*RA
00D880: 29 3A 55 28 46 4C 29 3D 41 42 53 28 55 28 46 4C ):U(FL)=ABS(U(FL
00D890: 29 2D 52 42 29 3A 55 28 46 4C 29 3D 55 28 46 4C )-RB):U(FL)=U(FL
00D8A0: 29 2D 41 42 53 28 55 28 46 4C 29 3C 30 29 2A 55 )-ABS(U(FL)<0)*U
00D8B0: 28 46 4C 29 3A 55 28 46 4C 29 3D 55 28 46 4C 29 (FL):U(FL)=U(FL)
00D8C0: 2B 41 42 53 28 55 28 46 4C 29 3D 30 29 3A 4A 28 +ABS(U(FL)=0):J(
00D8D0: 46 4C 29 3D 33 35 3A 49 46 20 42 55 3E 38 30 20 FL)=35:IF BU>80
00D8E0: 54 48 45 4E 20 31 30 36 30 0D 0A 31 30 35 38 20 THEN 1060..1058
00D8F0: 4C 4F 43 41 54 45 20 31 33 2C 31 38 3A 50 52 49 LOCATE 13,18:PRI
00D900: 2D 44 5A 29 3A 44 4E 3D 28 44 4E 2F 52 41 29 3A -DZ):DN=(DN/RA):
00D910: 47 4F 53 55 42 20 31 30 31 31 3A 47 4F 54 4F 20 GOSUB 1011:GOTO
00D920: 31 30 31 30 0D 0A 31 30 30 39 20 49 46 20 49 4E 1010..1009 IF IN
00D930: 54 28 4E 4A 29 3C 44 5A 20 54 48 45 4E 20 52 41 T(NJ)<DZ THEN RA
00D940: 3D 49 4E 54 28 44 5A 2D 49 4E 54 28 4E 4A 29 29 =INT(DZ-INT(NJ))
00D950: 2A 28 31 30 30 30 2F 41 50 29 3A 44 4E 3D 44 4E *(1000/AP):DN=DN
00D960: 2B 52 41 3A 47 4F 53 55 42 20 31 30 31 31 0D 0A +RA:GOSUB 1011..
00D970: 31 30 31 30 20 47 4F 53 55 42 20 31 30 31 35 3A 1010 GOSUB 1015:
00D980: 52 45 54 55 52 4E 20 0D 0A 31 30 31 31 20 52 41 RETURN ..1011 RA
00D990: 3D 28 31 30 30 30 30 30 2F 41 50 29 2F 41 50 3A =(100000/AP)/AP:
00D9A0: 52 41 3D 52 41 2B 28 41 50 3C 33 20 41 4E 44 20 RA=RA+(AP<3 AND
00D9B0: 4E 49 3D 30 29 2A 28 52 41 2F 32 29 3A 49 46 20 NI=0)*(RA/2):IF
00D9C0: 44 4E 3E 52 41 20 54 48 45 4E 20 44 4E 3D 52 41 DN>RA THEN DN=RA
00D9D0: 0D 0A 31 30 31 32 20 44 4E 3D 44 4E 2D 28 44 4E ..1012 DN=DN-(DN
00D9E0: 3C 30 29 2A 41 42 53 28 44 4E 29 3A 44 4E 3D 44 <0)*ABS(DN):DN=D
00D9F0: 4E 2B 31 2B 49 4E 54 28 52 4E 44 2A 35 30 29 0D N+1+INT(RND*50).
00DA00: 0A 31 30 31 33 20 49 46 20 41 50 3C 33 20 41 4E .1013 IF AP<3 AN
00DA10: 44 20 4E 49 3D 30 20 41 4E 44 20 44 4E 3E 31 38 D NI=0 AND DN>18
00DA20: 37 32 31 20 54 48 45 4E 20 44 4E 3D 31 38 37 32 721 THEN DN=1872
00DA30: 31 0D 0A 31 30 31 34 20 47 4F 54 4F 20 31 30 31 1..1014 GOTO 101
00DA40: 30 0D 0A 31 30 31 35 20 50 47 3D 50 47 2B 41 42 0..1015 PG=PG+AB
00DA50: 53 28 50 47 3D 30 29 2A 49 4E 54 28 44 4E 29 3A S(PG=0)*INT(DN):
00DA60: 50 46 3D 50 46 2B 41 42 53 28 50 46 3D 30 29 2A PF=PF+ABS(PF=0)*
00DA70: 49 4E 54 28 44 4E 29 3A 49 46 20 41 41 41 3D 30 INT(DN):IF AAA=0
00DA80: 20 41 4E 44 20 44 4E 3E 50 46 20 54 48 45 4E 20 AND DN>PF THEN
00DA90: 50 46 3D 49 4E 54 28 44 4E 29 0D 0A 31 30 31 36 PF=INT(DN)..1016
00DAA0: 20 49 46 20 41 41 41 3D 30 20 41 4E 44 20 44 4E IF AAA=0 AND DN
00DAB0: 3C 50 47 20 54 48 45 4E 20 50 47 3D 49 4E 54 28 <PG THEN PG=INT(
00DAC0: 44 4E 29 0D 0A 31 30 31 37 20 52 45 54 55 52 4E DN)..1017 RETURN
00DAD0: 20 0D 0A 1A 00 50 C7 20 EB 20 0D 00 00 50 C7 EF ....P. . ...P..
00DAE0: FF 0C 28 0D 00 00 44 CE 29 00 07 00 F9 03 C9 20 ..(...D.)......
00DAF0: 00 00 00 1A 28 28 31 32 35 30 2F 41 50 29 2F 41 ....((1250/AP)/A
00DB00: 4E 54 20 56 24 28 46 4C 29 3B 22 20 49 4E 4A 55 NT V$(FL);" INJU
00DB10: 52 45 44 22 2C 54 41 42 28 31 31 29 3B 56 24 28 RED",TAB(11);V$(
00DB20: 31 32 29 3B 22 20 53 55 42 53 54 49 54 55 54 45 12);" SUBSTITUTE
00DB30: 44 22 3A 49 46 20 4D 50 3D 31 20 54 48 45 4E 20 D":IF MP=1 THEN
00DB40: 4C 4F 43 41 54 45 20 31 31 2C 31 39 3A 50 52 49 LOCATE 11,19:PRI
00DB50: 4E 54 20 5A 24 3B 22 20 48 41 56 45 20 54 45 4E NT Z$;" HAVE TEN
00DB60: 20 4D 45 4E 22 3A 47 4F 54 4F 20 31 30 36 31 0D MEN":GOTO 1061.
00DB70: 0A 31 30 35 39 20 20 4D 50 3D 31 3A 4C 4F 43 41 .1059 MP=1:LOCA
00DB80: 54 45 20 31 2C 32 32 3A 50 52 49 4E 54 20 53 50 TE 1,22:PRINT SP
00DB90: 41 43 45 24 28 34 30 29 3A 47 4F 54 4F 20 31 30 ACE$(40):GOTO 10
00DBA0: 36 31 0D 0A 31 30 36 30 20 50 52 49 4E 54 20 56 61..1060 PRINT V
00DBB0: 24 28 46 4C 29 3B 22 20 49 4E 4A 55 52 45 44 20 $(FL);" INJURED
00DBC0: 46 4F 52 20 22 3B 55 28 46 4C 29 3B 22 20 57 45 FOR ";U(FL);" WE
00DBD0: 45 4B 22 2B 43 48 52 24 20 28 33 32 2B 41 42 53 EK"+CHR$ (32+ABS
00DBE0: 28 55 28 46 4C 29 3E 31 29 2A 35 31 29 0D 0A 31 (U(FL)>1)*51)..1
00DBF0: 30 36 31 20 49 3D 31 32 3A 41 44 3D 46 4C 3A 47 061 I=12:AD=FL:G
00DC00: 4F 53 55 42 20 36 35 32 3A 49 3D 49 45 3A 41 44 OSUB 652:I=IE:AD
00DC10: 3D 31 32 3A 47 4F 53 55 42 20 36 35 32 3A 49 46 =12:GOSUB 652:IF
00DC20: 20 42 55 3C 38 31 20 54 48 45 4E 20 47 4F 53 55 BU<81 THEN GOSU
00DC30: 42 20 33 33 32 3A 47 4F 53 55 42 20 31 30 30 39 B 332:GOSUB 1009
00DC40: 0D 0A 31 30 36 32 20 52 45 54 55 52 4E 20 0D 0A ..1062 RETURN ..
00DC50: 31 30 36 33 20 55 28 46 4C 29 3D 32 3A 4A 28 46 1063 U(FL)=2:J(F
00DC60: 4C 29 3D 38 33 3A 4C 4F 43 41 54 45 20 31 32 2C L)=83:LOCATE 12,
00DC70: 31 38 3A 50 52 49 4E 54 20 56 24 28 46 4C 29 3B 18:PRINT V$(FL);
00DC80: 22 20 53 45 4E 54 20 4F 46 46 22 2C 54 41 42 28 " SENT OFF",TAB(
00DC90: 31 30 29 3B 5A 24 3B 22 20 48 41 56 45 20 54 45 10);Z$;" HAVE TE
00DCA0: 4E 20 4D 45 4E 22 3A 49 3D 49 45 3A 41 44 3D 46 N MEN":I=IE:AD=F
00DCB0: 4C 3A 47 4F 53 55 42 20 36 35 32 3A 47 4F 53 55 L:GOSUB 652:GOSU
00DCC0: 42 20 33 33 32 3A 47 4F 53 55 42 20 31 30 30 39 B 332:GOSUB 1009
00DCD0: 3A 43 28 38 29 3D 32 3A 42 28 38 29 3D 49 4E 54 :C(8)=2:B(8)=INT
00DCE0: 20 28 4E 2B 28 28 4D 44 2D 4E 29 2F 32 29 29 3A (N+((MD-N)/2)):
00DCF0: 52 45 54 55 52 4E 20 0D 0A 31 30 36 34 20 47 4F RETURN ..1064 GO
00DD00: 31 30 30 31 20 49 4E 4B 20 30 2C 31 30 3A 42 4F 1001 INK 0,10:BO
00DD10: 52 44 45 52 20 31 30 3A 43 4C 53 3A 4C 4F 43 41 RDER 10:CLS:LOCA
00DD20: 54 45 20 39 2C 31 32 3A 50 52 49 4E 54 20 22 45 TE 9,12:PRINT "E
00DD30: 4E 54 45 52 20 4E 41 4D 45 20 4F 46 20 53 41 56 NTER NAME OF SAV
00DD40: 45 44 20 47 41 4D 45 22 0D 0A 31 30 30 32 20 49 ED GAME"..1002 I
00DD50: 4E 50 55 54 23 32 2C 78 24 3A 43 4C 53 23 32 3A NPUT#2,x$:CLS#2:
00DD60: 49 46 20 4C 45 4E 28 78 24 29 3C 31 20 4F 52 20 IF LEN(x$)<1 OR
00DD70: 4C 45 4E 28 78 24 29 3E 38 20 54 48 45 4E 20 31 LEN(x$)>8 THEN 1
00DD80: 30 30 32 20 45 4C 53 45 20 31 30 31 32 0D 0A 31 002 ELSE 1012..1
00DD90: 30 30 33 20 43 4C 53 3A 4C 4F 43 41 54 45 20 31 003 CLS:LOCATE 1
00DDA0: 37 2C 31 32 3A 50 52 49 4E 54 20 70 61 24 28 33 7,12:PRINT pa$(3
00DDB0: 29 3B 22 53 41 56 49 4E 47 22 3B 70 61 24 28 31 );"SAVING";pa$(1
00DDC0: 29 3A 52 45 54 55 52 4E 0D 0A 31 30 30 34 20 47 ):RETURN..1004 G
00DDD0: 4F 53 55 42 20 31 30 30 31 3A 43 4C 53 3A 43 48 OSUB 1001:CLS:CH
00DDE0: 41 49 4E 20 4D 45 52 47 45 20 22 63 6C 22 2C 31 AIN MERGE "cl",1
00DDF0: 30 31 31 0D 0A 31 30 30 35 20 47 4F 53 55 42 20 011..1005 GOSUB
00DE00: 31 30 30 37 3A 47 4F 54 4F 20 31 30 30 34 0D 0A 1007:GOTO 1004..
00DE10: 31 30 30 36 20 43 4C 53 3A 47 4F 53 55 42 20 31 1006 CLS:GOSUB 1
00DE20: 30 30 31 3A 43 4C 53 3A 43 48 41 49 4E 20 4D 45 001:CLS:CHAIN ME
00DE30: 52 47 45 20 22 63 73 22 2C 31 30 31 30 0D 0A 31 RGE "cs",1010..1
00DE40: 30 30 37 20 43 4C 53 3A 4C 4F 43 41 54 45 20 31 007 CLS:LOCATE 1
00DE50: 36 2C 31 32 3A 50 52 49 4E 54 20 70 61 24 28 33 6,12:PRINT pa$(3
00DE60: 29 3B 22 4C 4F 41 44 49 4E 47 22 3B 70 61 24 28 );"LOADING";pa$(
00DE70: 31 29 3A 52 45 54 55 52 4E 0D 0A 31 30 30 38 20 1):RETURN..1008
00DE80: 43 4C 53 3A 4C 4F 43 41 54 45 20 36 2C 31 32 3A CLS:LOCATE 6,12:
00DE90: 50 52 49 4E 54 20 50 41 24 28 36 29 3B 22 20 50 PRINT PA$(6);" P
00DEA0: 4C 45 41 53 45 20 49 4E 53 45 52 54 20 4F 52 49 LEASE INSERT ORI
00DEB0: 47 49 4E 41 4C 20 44 49 53 43 20 22 3A 47 4F 53 GINAL DISC ":GOS
00DEC0: 55 42 20 31 30 30 39 3A 43 48 41 49 4E 20 4D 45 UB 1009:CHAIN ME
00DED0: 52 47 45 22 6D 32 22 2C 36 0D 0A 31 30 30 39 20 RGE"m2",6..1009
00DEE0: 4C 4F 43 41 54 45 20 36 2C 31 33 3A 50 52 49 4E LOCATE 6,13:PRIN
00DEF0: 54 20 50 41 24 28 32 29 3B 22 20 50 52 45 53 53 T PA$(2);" PRESS
00DF00: 53 55 42 20 39 38 3A 56 24 28 32 31 29 3D 43 48 SUB 98:V$(21)=CH
00DF10: 52 24 28 5A 39 29 2B 22 2E 22 2B 4D 49 44 24 28 R$(Z9)+"."+MID$(
00DF20: 48 24 2C 52 43 2C 31 29 2B 4D 49 44 24 28 4D 24 H$,RC,1)+MID$(M$
00DF30: 2C 52 42 2C 31 29 2B 4D 49 44 24 28 48 24 2C 52 ,RB,1)+MID$(H$,R
00DF40: 44 2C 31 29 2B 45 24 28 52 41 29 3A 4C 4F 43 41 D,1)+E$(RA):LOCA
00DF50: 54 45 20 31 31 2C 31 38 3A 20 50 52 49 4E 54 20 TE 11,18: PRINT
00DF60: 70 61 24 28 33 29 3B 22 20 22 3B 56 24 28 32 31 pa$(3);" ";V$(21
00DF70: 29 3B 22 20 53 45 4E 54 20 4F 46 46 20 22 3B 70 );" SENT OFF ";p
00DF80: 61 24 28 31 29 2C 54 41 42 28 39 29 3B 70 61 24 a$(1),TAB(9);pa$
00DF90: 28 33 29 3B 22 20 22 3B 53 24 3B 22 20 48 41 56 (3);" ";S$;" HAV
00DFA0: 45 20 54 45 4E 20 4D 45 4E 20 22 3B 70 61 24 28 E TEN MEN ";pa$(
00DFB0: 31 29 3A 43 28 38 29 3D 31 3A 42 28 38 29 3D 49 1):C(8)=1:B(8)=I
00DFC0: 4E 54 20 28 4E 2B 28 28 4D 44 2D 4E 29 2F 32 29 NT (N+((MD-N)/2)
00DFD0: 29 3A 52 45 54 55 52 4E 20 0D 0A 1A 00 00 D2 EF ):RETURN .......
00DFE0: 03 00 00 DA 01 85 20 AB 20 22 31 33 22 2C 1A 2D ...... . "13",.-
00DFF0: 04 00 00 00 1A 56 45 20 54 45 4E 20 4D 45 4E 22 .....VE TEN MEN"
00E000: 4F 53 55 42 20 36 35 32 3A 49 3D 49 45 3A 41 44 OSUB 652:I=IE:AD
00E010: 3D 31 32 3A 47 4F 53 55 42 20 36 35 32 3A 49 46 =12:GOSUB 652:IF
00E020: 20 42 55 3C 38 31 20 54 48 45 4E 20 47 4F 53 55 BU<81 THEN GOSU
00E030: 42 20 33 33 32 3A 47 4F 53 55 42 20 31 30 30 39 B 332:GOSUB 1009
00E040: 0D 0A 31 30 36 32 20 52 45 54 55 52 4E 20 0D 0A ..1062 RETURN ..
00E050: 31 30 36 33 20 55 28 46 4C 29 3D 32 3A 4A 28 46 1063 U(FL)=2:J(F
00E060: 4C 29 3D 38 33 3A 4C 4F 43 41 54 45 20 31 32 2C L)=83:LOCATE 12,
00E070: 31 38 3A 50 52 49 4E 54 20 56 24 28 46 4C 29 3B 18:PRINT V$(FL);
00E080: 22 20 53 45 4E 54 20 4F 46 46 22 2C 54 41 42 28 " SENT OFF",TAB(
00E090: 31 30 29 3B 5A 24 3B 22 20 48 41 56 45 20 54 45 10);Z$;" HAVE TE
00E0A0: 4E 20 4D 45 4E 22 3A 49 3D 49 45 3A 41 44 3D 46 N MEN":I=IE:AD=F
00E0B0: 4C 3A 47 4F 53 55 42 20 36 35 32 3A 47 4F 53 55 L:GOSUB 652:GOSU
00E0C0: 42 20 33 33 32 3A 47 4F 53 55 42 20 31 30 30 39 B 332:GOSUB 1009
00E0D0: 3A 43 28 38 29 3D 32 3A 42 28 38 29 3D 49 4E 54 :C(8)=2:B(8)=INT
00E0E0: 20 28 4E 2B 28 28 4D 44 2D 4E 29 2F 32 29 29 3A (N+((MD-N)/2)):
00E0F0: 52 45 54 55 52 4E 20 0D 0A 31 30 36 34 20 47 4F RETURN ..1064 GO
00E100: 20 53 50 41 43 45 20 42 41 52 20 54 4F 20 43 4F SPACE BAR TO CO
00E110: 4E 54 49 4E 55 45 20 22 3B 70 61 24 28 31 29 3A NTINUE ";pa$(1):
00E120: 57 48 49 4C 45 20 49 4E 4B 45 59 28 34 37 29 3D WHILE INKEY(47)=
00E130: 2D 31 3A 57 45 4E 44 3A 52 45 54 55 52 4E 0D 0A -1:WEND:RETURN..
00E140: 31 30 31 30 20 4C 4F 43 41 54 45 20 34 2C 31 32 1010 LOCATE 4,12
00E150: 3A 50 52 49 4E 54 20 50 41 24 28 35 29 3B 22 50 :PRINT PA$(5);"P
00E160: 4C 45 41 53 45 20 49 4E 53 45 52 54 20 42 4C 41 LEASE INSERT BLA
00E170: 4E 4B 20 46 4F 52 4D 41 54 45 44 20 44 49 53 43 NK FORMATED DISC
00E180: 22 3B 70 61 24 28 31 29 3A 47 4F 53 55 42 20 31 ";pa$(1):GOSUB 1
00E190: 30 30 39 3A 47 4F 53 55 42 20 31 30 30 33 3A 47 009:GOSUB 1003:G
00E1A0: 4F 54 4F 20 31 30 31 32 0D 0A 31 30 31 31 20 4C OTO 1012..1011 L
00E1B0: 4F 43 41 54 45 20 36 2C 31 32 3A 50 52 49 4E 54 OCATE 6,12:PRINT
00E1C0: 20 50 41 24 28 36 29 3B 22 50 4C 45 41 53 45 20 PA$(6);"PLEASE
00E1D0: 49 4E 53 45 52 54 20 53 41 56 45 44 20 47 41 4D INSERT SAVED GAM
00E1E0: 45 20 44 49 53 43 22 3B 70 61 24 28 31 29 3A 47 E DISC";pa$(1):G
00E1F0: 4F 53 55 42 20 31 30 30 39 3A 47 4F 53 55 42 20 OSUB 1009:GOSUB
00E200: 31 30 30 37 0D 0A 31 30 31 32 20 46 4F 52 20 49 1007..1012 FOR I
00E210: 3D 31 20 54 4F 20 4C 45 4E 28 58 24 29 3A 49 46 =1 TO LEN(X$):IF
00E220: 20 41 53 43 28 4D 49 44 24 28 58 24 2C 49 2C 31 ASC(MID$(X$,I,1
00E230: 29 29 3C 36 35 20 4F 52 20 41 53 43 28 4D 49 44 ))<65 OR ASC(MID
00E240: 24 28 58 24 2C 49 2C 31 29 29 3E 39 30 20 54 48 $(X$,I,1))>90 TH
00E250: 45 4E 20 49 3D 39 38 0D 0A 31 30 31 33 20 4E 45 EN I=98..1013 NE
00E260: 58 54 3A 49 46 20 49 3D 39 39 20 54 48 45 4E 20 XT:IF I=99 THEN
00E270: 31 30 30 31 20 45 4C 53 45 20 52 45 54 55 52 4E 1001 ELSE RETURN
00E280: 0D 0A 1A 20 20 20 20 20 20 20 24 24 24 FF 00 FF ... $$$...
00E290: 00 C9 EF 19 62 00 1B 00 F5 03 B0 01 A1 20 0D 00 ....b........ ..
00E2A0: 00 C9 EF 19 63 20 EB 20 1E E9 03 20 01 97 20 C9 ....c . ... .. .
00E2B0: 00 00 00 1A 00 00 1A 31 30 30 32 20 69 6E 70 75 .......1002 inpu
00E2C0: 74 23 32 2C 78 24 3A 63 6C 73 23 32 3A 69 66 20 t#2,x$:cls#2:if
00E2D0: 6C 65 6E 28 78 24 29 3C 31 20 6F 72 20 6C 65 6E len(x$)<1 or len
00E2E0: 28 78 24 29 3E 38 20 74 68 65 6E 20 31 30 30 32 (x$)>8 then 1002
00E2F0: 0D 0A 31 30 30 33 20 72 65 74 75 72 6E 0D 0A 31 ..1003 return..1
00E300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00E500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00E510: 0C 00 01 00 02 09 4E E5 0C 00 41 02 00 00 00 02 ......N...A.....
00E520: 0C 00 46 02 00 00 00 02 0C 00 42 02 00 00 00 02 ..F.......B.....
00E530: 0C 00 47 02 00 00 00 02 0C 00 43 02 00 00 00 02 ..G.......C.....
00E540: 0C 00 48 02 00 00 00 02 0C 00 44 02 00 00 00 02 ..H.......D.....
00E550: 0C 00 49 02 00 00 00 02 0C 00 45 02 00 00 00 02 ..I.......E.....
00E560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E600: 31 30 31 32 20 4F 50 45 4E 49 4E 20 78 24 3A 46 1012 OPENIN x$:F
00E610: 4F 52 20 69 3D 31 20 54 4F 20 31 30 36 3A 49 4E OR i=1 TO 106:IN
00E620: 50 55 54 23 39 2C 79 24 28 69 29 3A 4E 45 58 54 PUT#9,y$(i):NEXT
00E630: 3A 46 4F 52 20 6E 25 3D 31 20 54 4F 20 32 3A 46 :FOR n%=1 TO 2:F
00E640: 4F 52 20 69 25 3D 31 20 54 4F 20 36 34 3A 49 4E OR i%=1 TO 64:IN
00E650: 50 55 54 23 39 2C 76 28 6E 25 2C 69 25 29 3A 4E PUT#9,v(n%,i%):N
00E660: 45 58 54 20 69 25 2C 6E 25 0D 0A 31 30 31 33 20 EXT i%,n%..1013
00E670: 46 4F 52 20 6E 25 3D 31 20 54 4F 20 38 3A 49 4E FOR n%=1 TO 8:IN
00E680: 50 55 54 23 39 2C 62 28 6E 25 29 3A 4E 45 58 54 PUT#9,b(n%):NEXT
00E690: 3A 46 4F 52 20 6E 25 3D 31 20 54 4F 20 38 3A 49 :FOR n%=1 TO 8:I
00E6A0: 4E 50 55 54 23 39 2C 63 28 6E 25 29 3A 4E 45 58 NPUT#9,c(n%):NEX
00E6B0: 54 3A 46 4F 52 20 6E 25 3D 31 20 54 4F 20 32 38 T:FOR n%=1 TO 28
00E6C0: 3A 49 4E 50 55 54 23 39 2C 65 28 31 2C 6E 25 29 :INPUT#9,e(1,n%)
00E6D0: 2C 65 28 32 2C 6E 25 29 2C 65 28 33 2C 6E 25 29 ,e(2,n%),e(3,n%)
00E6E0: 3A 4E 45 58 54 0D 0A 31 30 31 34 20 46 4F 52 20 :NEXT..1014 FOR
00E6F0: 6E 25 3D 31 20 54 4F 20 32 30 3A 49 4E 50 55 54 n%=1 TO 20:INPUT
00E700: 23 39 2C 66 28 31 2C 6E 25 29 2C 66 28 32 2C 6E #9,f(1,n%),f(2,n
00E710: 25 29 3A 4E 45 58 54 0D 0A 31 30 31 35 20 46 4F %):NEXT..1015 FO
00E720: 52 20 6E 25 3D 31 20 54 4F 20 32 38 3A 49 4E 50 R n%=1 TO 28:INP
00E730: 55 54 23 39 2C 67 28 6E 25 29 3A 4E 45 58 54 0D UT#9,g(n%):NEXT.
00E740: 0A 31 30 31 36 20 46 4F 52 20 6E 25 3D 31 20 54 .1016 FOR n%=1 T
00E750: 4F 20 32 38 3A 49 4E 50 55 54 23 39 2C 68 28 6E O 28:INPUT#9,h(n
00E760: 25 29 3A 4E 45 58 54 0D 0A 31 30 31 37 20 46 4F %):NEXT..1017 FO
00E770: 52 20 6E 25 3D 31 20 54 4F 20 32 3A 46 4F 52 20 R n%=1 TO 2:FOR
00E780: 61 25 3D 31 20 54 4F 20 34 3A 46 4F 52 20 62 25 a%=1 TO 4:FOR b%
00E790: 3D 31 20 54 4F 20 34 3A 49 4E 50 55 54 23 39 2C =1 TO 4:INPUT#9,
00E7A0: 69 28 6E 25 2C 61 25 2C 62 25 29 3A 4E 45 58 54 i(n%,a%,b%):NEXT
00E7B0: 20 62 25 2C 61 25 2C 6E 25 0D 0A 31 30 31 38 20 b%,a%,n%..1018
00E7C0: 46 4F 52 20 6E 25 3D 31 20 54 4F 20 32 38 3A 49 FOR n%=1 TO 28:I
00E7D0: 4E 50 55 54 23 39 2C 6A 28 6E 25 29 3A 4E 45 58 NPUT#9,j(n%):NEX
00E7E0: 54 0D 0A 31 30 31 39 20 46 4F 52 20 6E 25 3D 31 T..1019 FOR n%=1
00E7F0: 20 54 4F 20 31 32 3A 46 4F 52 20 61 25 3D 31 20 TO 12:FOR a%=1
00E800: 29 01 B0 01 A3 23 17 2C 03 00 00 F0 28 0F 29 2C )...£#.,....(.),
00E810: 03 00 00 F0 28 10 29 00 61 00 0E 04 9E 20 02 00 ....(.).a.... ..
00E820: 00 EE EF 0F 20 EC 20 19 14 01 A3 23 17 2C 03 00 .... . ...£#.,..
00E830: 00 F4 28 02 00 00 EE 29 01 B0 01 9E 20 02 00 00 ..(....).... ...
00E840: EE EF 0F 20 EC 20 19 1C 01 A3 23 17 2C 03 00 00 ... . ...£#.,...
00E850: F6 28 02 00 00 EE 29 01 B0 01 9E 20 02 00 00 EE .(....).... ....
00E860: EF 0F 20 EC 20 19 26 01 A3 23 17 2C 03 00 00 F7 .. . .&.£#.,....
00E870: 28 02 00 00 EE 29 01 B0 00 80 00 0F 04 A3 23 17 (....).......£#.
00E880: 2C 0D 00 00 6D E1 2C 0D 00 00 6D E2 2C 0D 00 00 ,...m.,...m.,...
00E890: 6D E3 2C 0D 00 00 6D E4 2C 0D 00 00 6D E5 2C 0D m.,...m.,...m.,.
00E8A0: 00 00 6D E6 2C 0D 00 00 6D ED 2C 0D 00 00 6D EE ..m.,...m.,...m.
00E8B0: 2C 0D 00 00 6D EF 2C 0D 00 00 6D F0 2C 0D 00 00 ,...m.,...m.,...
00E8C0: 6D F1 2C 0D 00 00 6D F2 2C 0D 00 00 6D F3 2C 0D m.,...m.,...m.,.
00E8D0: 00 00 6D F4 2C 0D 00 00 6D F5 2C 0D 00 00 6D F6 ..m.,...m.,...m.
00E8E0: 2C 0D 00 00 6D F7 2C 0D 00 00 6D F8 2C 0D 00 00 ,...m.,...m.,...
00E8F0: 6D F9 2C 0D 00 00 6D FA 00 68 00 10 04 A3 23 17 m.,...m..h...£#.
00E900: 2C 0D 00 00 6E E1 2C 0D 00 00 6E E2 2C 0D 00 00 ,...n.,...n.,...
00E910: 6E E3 2C 0D 00 00 6E E9 2C 0D 00 00 6E EA 2C 0D n.,...n.,...n.,.
00E920: 00 00 6E ED 2C 0D 00 00 6E EE 2C 0D 00 00 6E EF ..n.,...n.,...n.
00E930: 2C 0D 00 00 6E F0 2C 0D 00 00 6E F1 2C 0D 00 00 ,...n.,...n.,...
00E940: 6E F2 2C 0D 00 00 6E F3 2C 0D 00 00 6E F4 2C 0D n.,...n.,...n.,.
00E950: 00 00 6E F5 2C 0D 00 00 6E F6 2C 0D 00 00 6E F7 ..n.,...n.,...n.
00E960: 00 5D 00 11 04 A3 23 17 2C 0D 00 00 6F E2 2C 0D .]...£#.,...o.,.
00E970: 00 00 6F EA 2C 0D 00 00 6F EB 2C 0D 00 00 6F EC ..o.,...o.,...o.
00E980: 2C 0D 00 00 4F 31 CE 2C 0D 00 00 6F F0 2C 0D 00 ,...O1.,...o.,..
00E990: 00 6F F1 2C 0D 00 00 6F F3 2C 0D 00 00 6F F4 2C .o.,...o.,...o.,
00E9A0: 0D 00 00 6F F6 2C 0D 00 00 6F F7 2C 0D 00 00 6F ...o.,...o.,...o
00E9B0: F8 2C 0D 00 00 6F F9 2C 0D 00 00 6F FA 00 5B 00 .,...o.,...o..[.
00E9C0: 12 04 A3 23 17 2C 0D 00 00 70 E1 2C 0D 00 00 70 ..£#.,...p.,...p
00E9D0: E2 2C 0D 00 00 70 E3 2C 0D 00 00 70 E4 2C 0D 00 .,...p.,...p.,..
00E9E0: 00 70 E5 2C 0D 00 00 70 E6 2C 0D 00 00 70 E7 2C .p.,...p.,...p.,
00E9F0: 0D 00 00 70 F5 2C 0D 00 00 70 F6 2C 0D 00 00 70 ...p.,...p.,...p
00EA00: 54 4F 20 38 3A 49 4E 50 55 54 23 39 2C 6B 28 6E TO 8:INPUT#9,k(n
00EA10: 25 2C 61 25 29 3A 4E 45 58 54 20 61 25 2C 6E 25 %,a%):NEXT a%,n%
00EA20: 0D 0A 31 30 32 30 20 46 4F 52 20 6E 25 3D 31 20 ..1020 FOR n%=1
00EA30: 54 4F 20 32 30 3A 49 4E 50 55 54 23 39 2C 64 28 TO 20:INPUT#9,d(
00EA40: 6E 25 29 3A 4E 45 58 54 0D 0A 31 30 32 31 20 46 n%):NEXT..1021 F
00EA50: 4F 52 20 69 25 3D 31 20 54 4F 20 36 34 3A 49 4E OR i%=1 TO 64:IN
00EA60: 50 55 54 23 39 2C 6C 28 69 25 29 3A 4E 45 58 54 PUT#9,l(i%):NEXT
00EA70: 0D 0A 31 30 32 32 20 46 4F 52 20 69 25 3D 31 20 ..1022 FOR i%=1
00EA80: 54 4F 20 38 3A 49 4E 50 55 54 23 39 2C 6D 28 69 TO 8:INPUT#9,m(i
00EA90: 25 29 3A 4E 45 58 54 0D 0A 31 30 32 33 20 46 4F %):NEXT..1023 FO
00EAA0: 52 20 6E 25 3D 31 20 54 4F 20 32 3A 46 4F 52 20 R n%=1 TO 2:FOR
00EAB0: 61 25 3D 31 20 54 4F 20 31 38 3A 49 4E 50 55 54 a%=1 TO 18:INPUT
00EAC0: 23 39 2C 6E 28 6E 25 2C 61 25 29 3A 4E 45 58 54 #9,n(n%,a%):NEXT
00EAD0: 20 61 25 2C 6E 25 0D 0A 31 30 32 34 20 46 4F 52 a%,n%..1024 FOR
00EAE0: 20 6E 25 3D 31 20 54 4F 20 32 3A 46 4F 52 20 61 n%=1 TO 2:FOR a
00EAF0: 25 3D 31 20 54 4F 20 33 3A 49 4E 50 55 54 23 39 %=1 TO 3:INPUT#9
00EB00: 2C 6F 28 6E 25 2C 61 25 29 3A 4E 45 58 54 20 61 ,o(n%,a%):NEXT a
00EB10: 25 2C 6E 25 20 0D 0A 31 30 32 35 20 46 4F 52 20 %,n% ..1025 FOR
00EB20: 6E 25 3D 31 20 54 4F 20 32 30 3A 49 4E 50 55 54 n%=1 TO 20:INPUT
00EB30: 23 39 2C 70 28 6E 25 29 3A 4E 45 58 54 0D 0A 31 #9,p(n%):NEXT..1
00EB40: 30 32 36 20 46 4F 52 20 6E 25 3D 31 20 54 4F 20 026 FOR n%=1 TO
00EB50: 32 3A 46 4F 52 20 61 25 3D 31 20 54 4F 20 34 3A 2:FOR a%=1 TO 4:
00EB60: 49 4E 50 55 54 23 39 2C 71 28 6E 25 2C 61 25 29 INPUT#9,q(n%,a%)
00EB70: 3A 4E 45 58 54 20 61 25 2C 6E 25 0D 0A 31 30 32 :NEXT a%,n%..102
00EB80: 37 20 46 4F 52 20 6E 25 3D 31 20 54 4F 20 32 38 7 FOR n%=1 TO 28
00EB90: 3A 49 4E 50 55 54 23 39 2C 74 28 6E 25 29 3A 4E :INPUT#9,t(n%):N
00EBA0: 45 58 54 0D 0A 31 30 32 38 20 46 4F 52 20 6E 25 EXT..1028 FOR n%
00EBB0: 3D 31 20 54 4F 20 32 38 3A 49 4E 50 55 54 23 39 =1 TO 28:INPUT#9
00EBC0: 2C 75 28 6E 25 29 3A 4E 45 58 54 0D 0A 31 30 32 ,u(n%):NEXT..102
00EBD0: 39 20 46 4F 52 20 6E 25 3D 31 20 54 4F 20 32 30 9 FOR n%=1 TO 20
00EBE0: 3A 49 4E 50 55 54 23 39 2C 77 28 6E 25 29 3A 4E :INPUT#9,w(n%):N
00EBF0: 45 58 54 0D 0A 31 30 33 30 20 46 4F 52 20 6E 25 EXT..1030 FOR n%
00EC00: 31 30 31 32 20 4F 50 45 4E 4F 55 54 20 78 24 3A 1012 OPENOUT x$:
00EC10: 46 4F 52 20 69 3D 31 20 54 4F 20 31 30 36 3A 57 FOR i=1 TO 106:W
00EC20: 52 49 54 45 23 39 2C 79 24 28 69 29 3A 4E 45 58 RITE#9,y$(i):NEX
00EC30: 54 3A 46 4F 52 20 6E 25 3D 31 20 54 4F 20 32 3A T:FOR n%=1 TO 2:
00EC40: 46 4F 52 20 69 25 3D 31 20 54 4F 20 36 34 3A 57 FOR i%=1 TO 64:W
00EC50: 52 49 54 45 23 39 2C 76 28 6E 25 2C 69 25 29 3A RITE#9,v(n%,i%):
00EC60: 4E 45 58 54 20 69 25 2C 6E 25 0D 0A 31 30 31 33 NEXT i%,n%..1013
00EC70: 20 46 4F 52 20 6E 25 3D 31 20 54 4F 20 38 3A 57 FOR n%=1 TO 8:W
00EC80: 52 49 54 45 23 39 2C 62 28 6E 25 29 3A 4E 45 58 RITE#9,b(n%):NEX
00EC90: 54 3A 46 4F 52 20 6E 25 3D 31 20 54 4F 20 38 3A T:FOR n%=1 TO 8:
00ECA0: 57 52 49 54 45 23 39 2C 63 28 6E 25 29 3A 4E 45 WRITE#9,c(n%):NE
00ECB0: 58 54 3A 46 4F 52 20 6E 25 3D 31 20 54 4F 20 32 XT:FOR n%=1 TO 2
00ECC0: 38 3A 57 52 49 54 45 23 39 2C 65 28 31 2C 6E 25 8:WRITE#9,e(1,n%
00ECD0: 29 2C 65 28 32 2C 6E 25 29 2C 65 28 33 2C 6E 25 ),e(2,n%),e(3,n%
00ECE0: 29 3A 4E 45 58 54 0D 0A 31 30 31 34 20 46 4F 52 ):NEXT..1014 FOR
00ECF0: 20 6E 25 3D 31 20 54 4F 20 32 30 3A 57 52 49 54 n%=1 TO 20:WRIT
00ED00: 45 23 39 2C 66 28 31 2C 6E 25 29 2C 66 28 32 2C E#9,f(1,n%),f(2,
00ED10: 6E 25 29 3A 4E 45 58 54 0D 0A 31 30 31 35 20 46 n%):NEXT..1015 F
00ED20: 4F 52 20 6E 25 3D 31 20 54 4F 20 32 38 3A 57 52 OR n%=1 TO 28:WR
00ED30: 49 54 45 23 39 2C 67 28 6E 25 29 3A 4E 45 58 54 ITE#9,g(n%):NEXT
00ED40: 0D 0A 31 30 31 36 20 46 4F 52 20 6E 25 3D 31 20 ..1016 FOR n%=1
00ED50: 54 4F 20 32 38 3A 57 52 49 54 45 23 39 2C 68 28 TO 28:WRITE#9,h(
00ED60: 6E 25 29 3A 4E 45 58 54 0D 0A 31 30 31 37 20 46 n%):NEXT..1017 F
00ED70: 4F 52 20 6E 25 3D 31 20 54 4F 20 32 3A 46 4F 52 OR n%=1 TO 2:FOR
00ED80: 20 61 25 3D 31 20 54 4F 20 34 3A 46 4F 52 20 62 a%=1 TO 4:FOR b
00ED90: 25 3D 31 20 54 4F 20 34 3A 57 52 49 54 45 23 39 %=1 TO 4:WRITE#9
00EDA0: 2C 69 28 6E 25 2C 61 25 2C 62 25 29 3A 4E 45 58 ,i(n%,a%,b%):NEX
00EDB0: 54 20 62 25 2C 61 25 2C 6E 25 0D 0A 31 30 31 38 T b%,a%,n%..1018
00EDC0: 20 46 4F 52 20 6E 25 3D 31 20 54 4F 20 32 38 3A FOR n%=1 TO 28:
00EDD0: 57 52 49 54 45 23 39 2C 6A 28 6E 25 29 3A 4E 45 WRITE#9,j(n%):NE
00EDE0: 58 54 0D 0A 31 30 31 39 20 46 4F 52 20 6E 25 3D XT..1019 FOR n%=
00EDF0: 31 20 54 4F 20 31 32 3A 46 4F 52 20 61 25 3D 31 1 TO 12:FOR a%=1
00EE00: 3D 31 20 54 4F 20 32 38 3A 49 4E 50 55 54 23 39 =1 TO 28:INPUT#9
00EE10: 2C 78 28 6E 25 29 3A 4E 45 58 54 0D 0A 31 30 33 ,x(n%):NEXT..103
00EE20: 31 20 46 4F 52 20 6E 25 3D 31 20 54 4F 20 36 3A 1 FOR n%=1 TO 6:
00EE30: 46 4F 52 20 61 25 3D 31 20 54 4F 20 31 32 3A 49 FOR a%=1 TO 12:I
00EE40: 4E 50 55 54 23 39 2C 79 28 6E 25 2C 61 25 29 3A NPUT#9,y(n%,a%):
00EE50: 4E 45 58 54 20 61 25 2C 6E 25 20 0D 0A 31 30 33 NEXT a%,n% ..103
00EE60: 32 20 46 4F 52 20 6E 25 3D 31 20 54 4F 20 34 3A 2 FOR n%=1 TO 4:
00EE70: 46 4F 52 20 61 25 3D 31 20 54 4F 20 33 32 3A 49 FOR a%=1 TO 32:I
00EE80: 4E 50 55 54 23 39 2C 7A 28 6E 25 2C 61 25 29 3A NPUT#9,z(n%,a%):
00EE90: 4E 45 58 54 20 61 25 2C 6E 25 0D 0A 31 30 33 33 NEXT a%,n%..1033
00EEA0: 20 46 4F 52 20 6E 25 3D 31 20 54 4F 20 32 3A 46 FOR n%=1 TO 2:F
00EEB0: 4F 52 20 61 25 3D 31 20 54 4F 20 38 3A 49 4E 50 OR a%=1 TO 8:INP
00EEC0: 55 54 23 39 2C 61 24 28 6E 25 2C 61 25 29 3A 4E UT#9,a$(n%,a%):N
00EED0: 45 58 54 20 61 25 2C 6E 25 3A 49 4E 50 55 54 23 EXT a%,n%:INPUT#
00EEE0: 39 2C 62 24 2C 66 24 2C 67 24 2C 72 24 2C 73 24 9,b$,f$,g$,r$,s$
00EEF0: 2C 6B 24 0D 0A 31 30 33 34 20 46 4F 52 20 6E 25 ,k$..1034 FOR n%
00EF00: 3D 31 20 54 4F 20 31 32 3A 49 4E 50 55 54 23 39 =1 TO 12:INPUT#9
00EF10: 2C 69 24 28 6E 25 29 3A 4E 45 58 54 3A 46 4F 52 ,i$(n%):NEXT:FOR
00EF20: 20 6E 25 3D 31 20 54 4F 20 33 3A 49 4E 50 55 54 n%=1 TO 3:INPUT
00EF30: 23 39 2C 6A 24 28 6E 25 29 3A 4E 45 58 54 0D 0A #9,j$(n%):NEXT..
00EF40: 31 30 33 35 20 46 4F 52 20 6E 25 3D 31 20 54 4F 1035 FOR n%=1 TO
00EF50: 20 38 3A 49 4E 50 55 54 23 39 2C 6F 24 28 6E 25 8:INPUT#9,o$(n%
00EF60: 29 3A 4E 45 58 54 0D 0A 31 30 33 36 20 46 4F 52 ):NEXT..1036 FOR
00EF70: 20 6E 25 3D 31 20 54 4F 20 35 3A 46 4F 52 20 61 n%=1 TO 5:FOR a
00EF80: 25 3D 31 20 54 4F 20 34 3A 49 4E 50 55 54 23 39 %=1 TO 4:INPUT#9
00EF90: 2C 6C 24 28 6E 25 2C 61 25 29 3A 4E 45 58 54 20 ,l$(n%,a%):NEXT
00EFA0: 61 25 2C 6E 25 0D 0A 31 30 33 37 20 46 4F 52 20 a%,n%..1037 FOR
00EFB0: 6E 25 3D 31 20 54 4F 20 38 3A 49 4E 50 55 54 23 n%=1 TO 8:INPUT#
00EFC0: 39 2C 6F 24 28 6E 25 29 3A 4E 45 58 54 3A 49 4E 9,o$(n%):NEXT:IN
00EFD0: 50 55 54 23 39 2C 70 24 28 31 29 2C 70 24 28 32 PUT#9,p$(1),p$(2
00EFE0: 29 0D 0A 31 30 33 38 20 46 4F 52 20 6E 25 3D 31 )..1038 FOR n%=1
00EFF0: 20 54 4F 20 32 30 3A 49 4E 50 55 54 23 39 2C 74 TO 20:INPUT#9,t
00F000: 20 54 4F 20 38 3A 57 52 49 54 45 23 39 2C 6B 28 TO 8:WRITE#9,k(
00F010: 6E 25 2C 61 25 29 3A 4E 45 58 54 20 61 25 2C 6E n%,a%):NEXT a%,n
00F020: 25 0D 0A 31 30 32 30 20 46 4F 52 20 6E 25 3D 31 %..1020 FOR n%=1
00F030: 20 54 4F 20 32 30 3A 57 52 49 54 45 23 39 2C 64 TO 20:WRITE#9,d
00F040: 28 6E 25 29 3A 4E 45 58 54 0D 0A 31 30 32 31 20 (n%):NEXT..1021
00F050: 46 4F 52 20 69 25 3D 31 20 54 4F 20 36 34 3A 57 FOR i%=1 TO 64:W
00F060: 52 49 54 45 23 39 2C 6C 28 69 25 29 3A 4E 45 58 RITE#9,l(i%):NEX
00F070: 54 0D 0A 31 30 32 32 20 46 4F 52 20 69 25 3D 31 T..1022 FOR i%=1
00F080: 20 54 4F 20 38 3A 57 52 49 54 45 23 39 2C 6D 28 TO 8:WRITE#9,m(
00F090: 69 25 29 3A 4E 45 58 54 0D 0A 31 30 32 33 20 46 i%):NEXT..1023 F
00F0A0: 4F 52 20 6E 25 3D 31 20 54 4F 20 32 3A 46 4F 52 OR n%=1 TO 2:FOR
00F0B0: 20 61 25 3D 31 20 54 4F 20 31 38 3A 57 52 49 54 a%=1 TO 18:WRIT
00F0C0: 45 23 39 2C 6E 28 6E 25 2C 61 25 29 3A 4E 45 58 E#9,n(n%,a%):NEX
00F0D0: 54 20 61 25 2C 6E 25 0D 0A 31 30 32 34 20 46 4F T a%,n%..1024 FO
00F0E0: 52 20 6E 25 3D 31 20 54 4F 20 32 3A 46 4F 52 20 R n%=1 TO 2:FOR
00F0F0: 61 25 3D 31 20 54 4F 20 33 3A 57 52 49 54 45 23 a%=1 TO 3:WRITE#
00F100: 39 2C 6F 28 6E 25 2C 61 25 29 3A 4E 45 58 54 20 9,o(n%,a%):NEXT
00F110: 61 25 2C 6E 25 20 0D 0A 31 30 32 35 20 46 4F 52 a%,n% ..1025 FOR
00F120: 20 6E 25 3D 31 20 54 4F 20 32 30 3A 57 52 49 54 n%=1 TO 20:WRIT
00F130: 45 23 39 2C 70 28 6E 25 29 3A 4E 45 58 54 0D 0A E#9,p(n%):NEXT..
00F140: 31 30 32 36 20 46 4F 52 20 6E 25 3D 31 20 54 4F 1026 FOR n%=1 TO
00F150: 20 32 3A 46 4F 52 20 61 25 3D 31 20 54 4F 20 34 2:FOR a%=1 TO 4
00F160: 3A 57 52 49 54 45 23 39 2C 71 28 6E 25 2C 61 25 :WRITE#9,q(n%,a%
00F170: 29 3A 4E 45 58 54 20 61 25 2C 6E 25 0D 0A 31 30 ):NEXT a%,n%..10
00F180: 32 37 20 46 4F 52 20 6E 25 3D 31 20 54 4F 20 32 27 FOR n%=1 TO 2
00F190: 38 3A 57 52 49 54 45 23 39 2C 74 28 6E 25 29 3A 8:WRITE#9,t(n%):
00F1A0: 4E 45 58 54 0D 0A 31 30 32 38 20 46 4F 52 20 6E NEXT..1028 FOR n
00F1B0: 25 3D 31 20 54 4F 20 32 38 3A 57 52 49 54 45 23 %=1 TO 28:WRITE#
00F1C0: 39 2C 75 28 6E 25 29 3A 4E 45 58 54 0D 0A 31 30 9,u(n%):NEXT..10
00F1D0: 32 39 20 46 4F 52 20 6E 25 3D 31 20 54 4F 20 32 29 FOR n%=1 TO 2
00F1E0: 30 3A 57 52 49 54 45 23 39 2C 77 28 6E 25 29 3A 0:WRITE#9,w(n%):
00F1F0: 4E 45 58 54 0D 0A 31 30 33 30 20 46 4F 52 20 6E NEXT..1030 FOR n
00F200: 24 28 6E 25 29 3A 4E 45 58 54 3A 46 4F 52 20 6E $(n%):NEXT:FOR n
00F210: 25 3D 31 20 54 4F 20 32 38 3A 49 4E 50 55 54 23 %=1 TO 28:INPUT#
00F220: 39 2C 76 24 28 6E 25 29 3A 4E 45 58 54 3A 46 4F 9,v$(n%):NEXT:FO
00F230: 52 20 6E 25 3D 31 20 54 4F 20 33 38 3A 49 4E 50 R n%=1 TO 38:INP
00F240: 55 54 23 39 2C 77 24 28 6E 25 29 3A 4E 45 58 54 UT#9,w$(n%):NEXT
00F250: 0D 0A 31 30 33 39 20 49 4E 50 55 54 23 39 2C 6D ..1039 INPUT#9,m
00F260: 61 2C 6D 62 2C 6D 63 2C 6D 64 2C 6D 65 2C 6D 66 a,mb,mc,md,me,mf
00F270: 2C 6D 6D 2C 6D 6E 2C 6D 6F 2C 6D 70 2C 6D 71 2C ,mm,mn,mo,mp,mq,
00F280: 6D 72 2C 6D 73 2C 6D 74 2C 6D 75 2C 6D 76 2C 6D mr,ms,mt,mu,mv,m
00F290: 77 2C 6D 78 2C 6D 79 2C 6D 7A 0D 0A 31 30 34 30 w,mx,my,mz..1040
00F2A0: 20 49 4E 50 55 54 23 39 2C 6E 61 2C 6E 62 2C 6E INPUT#9,na,nb,n
00F2B0: 63 2C 6E 69 2C 6E 6A 2C 6E 6D 2C 6E 6E 2C 6E 6F c,ni,nj,nm,nn,no
00F2C0: 2C 6E 70 2C 6E 71 2C 6E 72 2C 6E 73 2C 6E 74 2C ,np,nq,nr,ns,nt,
00F2D0: 6E 75 2C 6E 76 2C 6E 77 0D 0A 31 30 34 31 20 49 nu,nv,nw..1041 I
00F2E0: 4E 50 55 54 23 39 2C 6F 62 2C 6F 6A 2C 6F 6B 2C NPUT#9,ob,oj,ok,
00F2F0: 6F 6C 2C 4F 31 4E 2C 6F 70 2C 6F 71 2C 6F 73 2C ol,O1N,op,oq,os,
00F300: 6F 74 2C 6F 76 2C 6F 77 2C 6F 78 2C 6F 79 2C 6F ot,ov,ow,ox,oy,o
00F310: 7A 0D 0A 31 30 34 32 20 49 4E 50 55 54 23 39 2C z..1042 INPUT#9,
00F320: 70 61 2C 70 62 2C 70 63 2C 70 64 2C 70 65 2C 70 pa,pb,pc,pd,pe,p
00F330: 66 2C 70 67 2C 70 75 2C 70 76 2C 70 74 2C 7A 37 f,pg,pu,pv,pt,z7
00F340: 2C 7A 36 2C 61 69 2C 7A 24 0D 0A 31 30 34 33 20 ,z6,ai,z$..1043
00F350: 49 4E 50 55 54 23 39 2C 61 61 2C 61 62 2C 61 64 INPUT#9,aa,ab,ad
00F360: 2C 61 65 2C 61 67 2C 61 68 2C 61 69 2C 61 6B 2C ,ae,ag,ah,ai,ak,
00F370: 61 6D 2C 61 70 2C 61 73 2C 61 75 2C 61 79 2C 61 am,ap,as,au,ay,a
00F380: 7A 0D 0A 31 30 34 34 20 49 4E 50 55 54 23 39 2C z..1044 INPUT#9,
00F390: 62 61 2C 62 62 2C 62 63 2C 62 64 2C 62 65 2C 62 ba,bb,bc,bd,be,b
00F3A0: 6A 2C 62 6B 2C 62 6C 2C 62 6E 2C 62 6F 2C 62 70 j,bk,bl,bn,bo,bp
00F3B0: 2C 62 75 2C 62 78 0D 0A 31 30 34 35 20 49 4E 50 ,bu,bx..1045 INP
00F3C0: 55 54 23 39 2C 63 66 2C 63 69 2C 63 6A 2C 63 6B UT#9,cf,ci,cj,ck
00F3D0: 2C 63 6C 2C 63 6D 2C 63 6E 2C 63 6F 2C 63 70 2C ,cl,cm,cn,co,cp,
00F3E0: 63 71 2C 63 72 2C 63 73 2C 63 74 2C 63 76 2C 63 cq,cr,cs,ct,cv,c
00F3F0: 77 2C 63 7A 0D 0A 31 30 34 36 20 49 4E 50 55 54 w,cz..1046 INPUT
00F400: 25 3D 31 20 54 4F 20 32 38 3A 57 52 49 54 45 23 %=1 TO 28:WRITE#
00F410: 39 2C 78 28 6E 25 29 3A 4E 45 58 54 0D 0A 31 30 9,x(n%):NEXT..10
00F420: 33 31 20 46 4F 52 20 6E 25 3D 31 20 54 4F 20 36 31 FOR n%=1 TO 6
00F430: 3A 46 4F 52 20 61 25 3D 31 20 54 4F 20 31 32 3A :FOR a%=1 TO 12:
00F440: 57 52 49 54 45 23 39 2C 79 28 6E 25 2C 61 25 29 WRITE#9,y(n%,a%)
00F450: 3A 4E 45 58 54 20 61 25 2C 6E 25 20 0D 0A 31 30 :NEXT a%,n% ..10
00F460: 33 32 20 46 4F 52 20 6E 25 3D 31 20 54 4F 20 34 32 FOR n%=1 TO 4
00F470: 3A 46 4F 52 20 61 25 3D 31 20 54 4F 20 33 32 3A :FOR a%=1 TO 32:
00F480: 57 52 49 54 45 23 39 2C 7A 28 6E 25 2C 61 25 29 WRITE#9,z(n%,a%)
00F490: 3A 4E 45 58 54 20 61 25 2C 6E 25 0D 0A 31 30 33 :NEXT a%,n%..103
00F4A0: 33 20 46 4F 52 20 6E 25 3D 31 20 54 4F 20 32 3A 3 FOR n%=1 TO 2:
00F4B0: 46 4F 52 20 61 25 3D 31 20 54 4F 20 38 3A 57 52 FOR a%=1 TO 8:WR
00F4C0: 49 54 45 23 39 2C 61 24 28 6E 25 2C 61 25 29 3A ITE#9,a$(n%,a%):
00F4D0: 4E 45 58 54 20 61 25 2C 6E 25 3A 57 52 49 54 45 NEXT a%,n%:WRITE
00F4E0: 23 39 2C 62 24 2C 66 24 2C 67 24 2C 72 24 2C 73 #9,b$,f$,g$,r$,s
00F4F0: 24 2C 6B 24 0D 0A 31 30 33 34 20 46 4F 52 20 6E $,k$..1034 FOR n
00F500: 25 3D 31 20 54 4F 20 31 32 3A 57 52 49 54 45 23 %=1 TO 12:WRITE#
00F510: 39 2C 69 24 28 6E 25 29 3A 4E 45 58 54 3A 46 4F 9,i$(n%):NEXT:FO
00F520: 52 20 6E 25 3D 31 20 54 4F 20 33 3A 57 52 49 54 R n%=1 TO 3:WRIT
00F530: 45 23 39 2C 6A 24 28 6E 25 29 3A 4E 45 58 54 0D E#9,j$(n%):NEXT.
00F540: 0A 31 30 33 35 20 46 4F 52 20 6E 25 3D 31 20 54 .1035 FOR n%=1 T
00F550: 4F 20 38 3A 57 52 49 54 45 23 39 2C 6F 24 28 6E O 8:WRITE#9,o$(n
00F560: 25 29 3A 4E 45 58 54 0D 0A 31 30 33 36 20 46 4F %):NEXT..1036 FO
00F570: 52 20 6E 25 3D 31 20 54 4F 20 35 3A 46 4F 52 20 R n%=1 TO 5:FOR
00F580: 61 25 3D 31 20 54 4F 20 34 3A 57 52 49 54 45 23 a%=1 TO 4:WRITE#
00F590: 39 2C 6C 24 28 6E 25 2C 61 25 29 3A 4E 45 58 54 9,l$(n%,a%):NEXT
00F5A0: 20 61 25 2C 6E 25 0D 0A 31 30 33 37 20 46 4F 52 a%,n%..1037 FOR
00F5B0: 20 6E 25 3D 31 20 54 4F 20 38 3A 57 52 49 54 45 n%=1 TO 8:WRITE
00F5C0: 23 39 2C 6F 24 28 6E 25 29 3A 4E 45 58 54 3A 57 #9,o$(n%):NEXT:W
00F5D0: 52 49 54 45 23 39 2C 70 24 28 31 29 2C 70 24 28 RITE#9,p$(1),p$(
00F5E0: 32 29 0D 0A 31 30 33 38 20 46 4F 52 20 6E 25 3D 2)..1038 FOR n%=
00F5F0: 31 20 54 4F 20 32 30 3A 57 52 49 54 45 23 39 2C 1 TO 20:WRITE#9,
00F600: 23 39 2C 64 6B 2C 64 6E 2C 64 6F 2C 64 74 2C 64 #9,dk,dn,do,dt,d
00F610: 77 2C 64 78 2C 64 7A 2C 65 61 2C 65 64 2C 65 65 w,dx,dz,ea,ed,ee
00F620: 2C 65 66 2C 65 49 31 2C 65 6A 2C 65 6B 2C 65 6C ,ef,eI1,ej,ek,el
00F630: 2C 65 6F 2C 65 70 2C 65 74 2C 65 76 0D 0A 31 30 ,eo,ep,et,ev..10
00F640: 34 37 20 49 4E 50 55 54 23 39 2C 66 6C 2C 66 74 47 INPUT#9,fl,ft
00F650: 2C 66 75 2C 67 7A 2C 68 61 2C 68 63 2C 68 64 2C ,fu,gz,ha,hc,hd,
00F660: 68 65 2C 68 68 2C 68 72 2C 68 73 2C 68 74 2C 68 he,hh,hr,hs,ht,h
00F670: 75 2C 68 76 2C 69 61 2C 69 64 2C 69 65 2C 6A 62 u,hv,ia,id,ie,jb
00F680: 2C 6A 63 2C 6A 66 2C 6A 69 2C 6A 6B 2C 6A 6C 2C ,jc,jf,ji,jk,jl,
00F690: 6A 6D 2C 6A 6E 2C 6A 70 2C 6A 71 2C 6A 73 2C 6A jm,jn,jp,jq,js,j
00F6A0: 74 2C 6A 75 2C 6A 76 2C 6A 77 2C 6B 61 2C 6B 63 t,ju,jv,jw,ka,kc
00F6B0: 2C 6B 64 0D 0A 31 30 34 38 20 49 4E 50 55 54 23 ,kd..1048 INPUT#
00F6C0: 39 2C 6E 6C 2C 6E 66 2C 70 61 2C 70 62 2C 70 63 9,nl,nf,pa,pb,pc
00F6D0: 2C 70 64 2C 70 65 2C 70 66 2C 70 67 2C 70 74 2C ,pd,pe,pf,pg,pt,
00F6E0: 70 75 2C 70 76 2C 70 7A 2C 73 61 2C 73 62 2C 73 pu,pv,pz,sa,sb,s
00F6F0: 63 2C 73 64 2C 73 65 2C 73 66 2C 73 67 2C 73 68 c,sd,se,sf,sg,sh
00F700: 2C 73 69 2C 73 6A 2C 73 6B 2C 75 61 2C 61 61 61 ,si,sj,sk,ua,aaa
00F710: 2C 70 74 73 2C 76 2C 46 44 0D 0A 31 30 34 39 20 ,pts,v,FD..1049
00F720: 43 4C 4F 53 45 49 4E 3A 47 4F 54 4F 20 31 30 30 CLOSEIN:GOTO 100
00F730: 38 20 20 0D 0A 1A 00 F6 2C 0D 00 00 46 C4 00 0E 8 .....,...F...
00F740: 00 19 04 88 01 A0 20 1E F0 03 20 20 00 00 00 1A ...... ... ....
00F750: 1A 24 FF 00 FF 00 00 61 61 E1 00 0C 00 1D 04 89 .$.....aa.......
00F760: 01 A0 20 1E F0 03 00 00 00 1A 1D 04 89 01 A0 20 .. ............
00F770: 1E F0 03 00 00 00 1A 0D 0A 31 30 31 31 20 46 4F .........1011 FO
00F780: 7A 0D 0A 31 30 34 34 20 49 4E 50 55 54 23 39 2C z..1044 INPUT#9,
00F790: 62 61 2C 62 62 2C 62 63 2C 62 64 2C 62 65 2C 62 ba,bb,bc,bd,be,b
00F7A0: 6A 2C 62 6B 2C 62 6C 2C 62 6E 2C 62 6F 2C 62 70 j,bk,bl,bn,bo,bp
00F7B0: 2C 62 75 2C 62 78 0D 0A 31 30 34 35 20 49 4E 50 ,bu,bx..1045 INP
00F7C0: 55 54 23 39 2C 63 66 2C 63 69 2C 63 6A 2C 63 6B UT#9,cf,ci,cj,ck
00F7D0: 2C 63 6C 2C 63 6D 2C 63 6E 2C 63 6F 2C 63 70 2C ,cl,cm,cn,co,cp,
00F7E0: 63 71 2C 63 72 2C 63 73 2C 63 74 2C 63 76 2C 63 cq,cr,cs,ct,cv,c
00F7F0: 77 2C 63 7A 0D 0A 31 30 34 36 20 49 4E 50 55 54 w,cz..1046 INPUT
00F800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00F810: 0D 00 01 00 02 09 4E E5 0D 00 41 02 00 00 00 02 ......N...A.....
00F820: 0D 00 46 02 00 00 00 02 0D 00 42 02 00 00 00 02 ..F.......B.....
00F830: 0D 00 47 02 00 00 00 02 0D 00 43 02 00 00 00 02 ..G.......C.....
00F840: 0D 00 48 02 00 00 00 02 0D 00 44 02 00 00 00 02 ..H.......D.....
00F850: 0D 00 49 02 00 00 00 02 0D 00 45 02 00 00 00 02 ..I.......E.....
00F860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F900: 74 24 28 6E 25 29 3A 4E 45 58 54 3A 46 4F 52 20 t$(n%):NEXT:FOR
00F910: 6E 25 3D 31 20 54 4F 20 32 38 3A 57 52 49 54 45 n%=1 TO 28:WRITE
00F920: 23 39 2C 76 24 28 6E 25 29 3A 4E 45 58 54 3A 46 #9,v$(n%):NEXT:F
00F930: 4F 52 20 6E 25 3D 31 20 54 4F 20 33 38 3A 57 52 OR n%=1 TO 38:WR
00F940: 49 54 45 23 39 2C 77 24 28 6E 25 29 3A 4E 45 58 ITE#9,w$(n%):NEX
00F950: 54 0D 0A 31 30 33 39 20 57 52 49 54 45 23 39 2C T..1039 WRITE#9,
00F960: 6D 61 2C 6D 62 2C 6D 63 2C 6D 64 2C 6D 65 2C 6D ma,mb,mc,md,me,m
00F970: 66 2C 6D 6D 2C 6D 6E 2C 6D 6F 2C 6D 70 2C 6D 71 f,mm,mn,mo,mp,mq
00F980: 2C 6D 72 2C 6D 73 2C 6D 74 2C 6D 75 2C 6D 76 2C ,mr,ms,mt,mu,mv,
00F990: 6D 77 2C 6D 78 2C 6D 79 2C 6D 7A 0D 0A 31 30 34 mw,mx,my,mz..104
00F9A0: 30 20 57 52 49 54 45 23 39 2C 6E 61 2C 6E 62 2C 0 WRITE#9,na,nb,
00F9B0: 6E 63 2C 6E 69 2C 6E 6A 2C 6E 6D 2C 6E 6E 2C 6E nc,ni,nj,nm,nn,n
00F9C0: 6F 2C 6E 70 2C 6E 71 2C 6E 72 2C 6E 73 2C 6E 74 o,np,nq,nr,ns,nt
00F9D0: 2C 6E 75 2C 6E 76 2C 6E 77 0D 0A 31 30 34 31 20 ,nu,nv,nw..1041
00F9E0: 57 52 49 54 45 23 39 2C 6F 62 2C 6F 6A 2C 6F 6B WRITE#9,ob,oj,ok
00F9F0: 2C 6F 6C 2C 4F 31 4E 2C 6F 70 2C 6F 71 2C 6F 73 ,ol,O1N,op,oq,os
00FA00: 2C 6F 74 2C 6F 76 2C 6F 77 2C 6F 78 2C 6F 79 2C ,ot,ov,ow,ox,oy,
00FA10: 6F 7A 0D 0A 31 30 34 32 20 57 52 49 54 45 23 39 oz..1042 WRITE#9
00FA20: 2C 70 61 2C 70 62 2C 70 63 2C 70 64 2C 70 65 2C ,pa,pb,pc,pd,pe,
00FA30: 70 66 2C 70 67 2C 70 75 2C 70 76 2C 70 74 2C 7A pf,pg,pu,pv,pt,z
00FA40: 37 2C 7A 36 2C 61 69 2C 7A 24 0D 0A 31 30 34 33 7,z6,ai,z$..1043
00FA50: 20 57 52 49 54 45 23 39 2C 61 61 2C 61 62 2C 61 WRITE#9,aa,ab,a
00FA60: 64 2C 61 65 2C 61 67 2C 61 68 2C 61 69 2C 61 6B d,ae,ag,ah,ai,ak
00FA70: 2C 61 6D 2C 61 70 2C 61 73 2C 61 75 2C 61 79 2C ,am,ap,as,au,ay,
00FA80: 61 7A 0D 0A 31 30 34 34 20 57 52 49 54 45 23 39 az..1044 WRITE#9
00FA90: 2C 62 61 2C 62 62 2C 62 63 2C 62 64 2C 62 65 2C ,ba,bb,bc,bd,be,
00FAA0: 62 6A 2C 62 6B 2C 62 6C 2C 62 6E 2C 62 6F 2C 62 bj,bk,bl,bn,bo,b
00FAB0: 70 2C 62 75 2C 62 78 0D 0A 31 30 34 35 20 57 52 p,bu,bx..1045 WR
00FAC0: 49 54 45 23 39 2C 63 66 2C 63 69 2C 63 6A 2C 63 ITE#9,cf,ci,cj,c
00FAD0: 6B 2C 63 6C 2C 63 6D 2C 63 6E 2C 63 6F 2C 63 70 k,cl,cm,cn,co,cp
00FAE0: 2C 63 71 2C 63 72 2C 63 73 2C 63 74 2C 63 76 2C ,cq,cr,cs,ct,cv,
00FAF0: 63 77 2C 63 7A 0D 0A 31 30 34 36 20 57 52 49 54 cw,cz..1046 WRIT
00FB00: 00 44 49 53 43 20 20 20 20 42 41 53 00 00 00 00 .DISC BAS....
00FB10: 00 00 01 00 00 70 01 00 2E 02 00 00 00 00 00 00 .....p..........
00FB20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00FB30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00FB40: 2E 02 00 4B 03 AA 93 CD 15 6F 1F 26 7F B2 E4 85 ...K.....o.&....
00FB50: 79 13 D7 6D F5 C5 68 1A 09 F6 62 70 22 5B 63 55 y..m..h...bp"[cU
00FB60: AA DD 3F 6A 0C D3 45 20 B6 24 26 D5 AD F9 D1 23 ..?j..E .$&....#
00FB70: A8 60 88 EA 93 29 3B FF 75 28 03 00 00 C1 2C 14 .`...);.u(....,.
00FB80: B3 2C E7 EA CE 17 2E C0 8F DE D8 2C 2B F8 74 E7 .,.........,+.t.
00FB90: 05 E6 23 1E F3 40 95 21 E5 7A D8 83 66 10 7A 31 ..#..@.!.z..f.z1
00FBA0: 4D AF 0F F0 60 A2 7B EB 97 1F 23 B1 7A 89 F3 43 M...`.{...#.z..C
00FBB0: E8 4F AC A3 CA 84 F0 A7 0C 1C E1 F1 37 E9 BB DD .O.£........7...
00FBC0: 92 82 D5 C3 0C AB 08 0B D6 98 51 A9 50 C0 7B B2 ..........Q.P.{.
00FBD0: BD 1D 67 D0 66 C6 A9 2C D9 35 90 0B B9 EC 27 97 ..g.f..,.5....'.
00FBE0: 02 08 35 66 5E A7 1C 84 E5 94 DD 25 5A 7C 50 88 ..5f^......%Z|P.
00FBF0: 86 1E A7 CE A5 F3 97 86 D6 43 B8 2F 71 DC 95 D3 .........C./q...
00FC00: F8 0E D6 15 6F 1F 26 79 B2 DE D3 2C 22 DB 41 EC ....o.&y...,".A.
00FC10: 0E 45 BC 31 20 5A A7 38 E0 53 F7 7C A8 18 69 30 .E.1 Z.8.S.|..i0
00FC20: D3 4E 2E E9 6A 42 AF 1B B4 DB 1A 31 49 88 8D 43 .N..jB.....1I..C
00FC30: F6 8E F8 80 DB 85 98 73 E6 33 D0 E4 AC 7F 9A 92 .......s.3......
00FC40: 90 20 CD FC 05 89 04 27 C0 58 D5 76 AC EB 4A 37 . .....'.X.v..J7
00FC50: 02 35 F5 0F 06 C2 B3 21 D8 4B 9C ED B0 ED 05 FD .5.....!.K......
00FC60: 28 1B 0E BC 38 E9 E1 E6 BD D7 BD 12 1F 8A 22 32 (...8........."2
00FC70: C6 62 F1 09 AC 81 FC E2 D2 30 67 0C 1E 84 7C BF .b.......0g...|.
00FC80: 90 0E DC D3 54 0F 1D D7 64 DC 52 15 AE FD 6C 5C ....T...d.R...l\
00FC90: 24 51 2F 08 D1 58 30 01 8C 79 E4 9A 4E 19 51 33 $Q/..X0..y..N.Q3
00FCA0: D3 8F C3 CB 9F 68 BC FD 2E DA 03 31 60 A0 F0 F8 .....h.....1`...
00FCB0: C8 81 42 09 EA 9D 3E 7F EA 0F C8 57 8D 3F B9 45 ..B...>....W.?.E
00FCC0: 8A 9E FD 51 D3 C7 2F 24 C0 99 2F A5 B6 C9 7A 90 ...Q../$../...z.
00FCD0: D4 37 74 36 8F C7 AB 85 F9 ED B3 3E AA D4 1D D7 .7t6.......>....
00FCE0: 21 DF 2F D2 6E 33 9C 9F DE CC A3 7B 0F 97 35 39 !./.n3....£{..59
00FCF0: A5 74 E7 79 B7 37 B6 EA E9 9E B1 0E 9F BD CE BA .t.y.7..........
00FD00: 45 23 39 2C 64 6B 2C 64 6E 2C 64 6F 2C 64 74 2C E#9,dk,dn,do,dt,
00FD10: 64 77 2C 64 78 2C 64 7A 2C 65 61 2C 65 64 2C 65 dw,dx,dz,ea,ed,e
00FD20: 65 2C 65 66 2C 45 49 31 2C 65 6A 2C 65 6B 2C 65 e,ef,EI1,ej,ek,e
00FD30: 6C 2C 65 6F 2C 65 70 2C 65 74 2C 65 76 0D 0A 31 l,eo,ep,et,ev..1
00FD40: 30 34 37 20 57 52 49 54 45 23 39 2C 66 6C 2C 66 047 WRITE#9,fl,f
00FD50: 74 2C 66 75 2C 67 7A 2C 68 61 2C 68 63 2C 68 64 t,fu,gz,ha,hc,hd
00FD60: 2C 68 65 2C 68 68 2C 68 72 2C 68 73 2C 68 74 2C ,he,hh,hr,hs,ht,
00FD70: 68 75 2C 68 76 2C 69 61 2C 69 64 2C 69 65 2C 6A hu,hv,ia,id,ie,j
00FD80: 62 2C 6A 63 2C 6A 66 2C 6A 69 2C 6A 6B 2C 6A 6C b,jc,jf,ji,jk,jl
00FD90: 2C 6A 6D 2C 6A 6E 2C 6A 70 2C 6A 71 2C 6A 73 2C ,jm,jn,jp,jq,js,
00FDA0: 6A 74 2C 6A 75 2C 6A 76 2C 6A 77 2C 6B 61 2C 6B jt,ju,jv,jw,ka,k
00FDB0: 63 2C 6B 64 0D 0A 31 30 34 38 20 57 52 49 54 45 c,kd..1048 WRITE
00FDC0: 23 39 2C 6E 6C 2C 6E 66 2C 70 61 2C 70 62 2C 70 #9,nl,nf,pa,pb,p
00FDD0: 63 2C 70 64 2C 70 65 2C 70 66 2C 70 67 2C 70 74 c,pd,pe,pf,pg,pt
00FDE0: 2C 70 75 2C 70 76 2C 70 7A 2C 73 61 2C 73 62 2C ,pu,pv,pz,sa,sb,
00FDF0: 73 63 2C 73 64 2C 73 65 2C 73 66 2C 73 67 2C 73 sc,sd,se,sf,sg,s
00FE00: 68 2C 73 69 2C 73 6A 2C 73 6B 2C 75 61 2C 61 61 h,si,sj,sk,ua,aa
00FE10: 61 2C 70 74 73 2C 76 2C 46 44 0D 0A 31 30 34 39 a,pts,v,FD..1049
00FE20: 20 43 4C 4F 53 45 4F 55 54 3A 47 4F 54 4F 20 31 CLOSEOUT:GOTO 1
00FE30: 30 30 38 0D 0A 1A 00 F6 2C 0D 00 00 46 C4 00 0C 008.....,...F...
00FE40: 00 19 04 89 01 A0 20 1E F0 03 00 00 00 1A 31 20 ...... .......1
00FE50: 54 4F 20 36 34 3A 57 52 49 54 45 23 39 2C 76 28 TO 64:WRITE#9,v(
00FE60: 6E 25 2C 69 25 29 3A 4E 45 58 54 20 69 25 2C 6E n%,i%):NEXT i%,n
00FE70: 25 20 0D 0A 31 30 31 32 20 46 4F 52 20 6E 25 3D % ..1012 FOR n%=
00FE80: 61 7A 0D 0A 31 30 34 34 20 57 52 49 54 45 23 39 az..1044 WRITE#9
00FE90: 2C 62 61 2C 62 62 2C 62 63 2C 62 64 2C 62 65 2C ,ba,bb,bc,bd,be,
00FEA0: 62 6A 2C 62 6B 2C 62 6C 2C 62 6E 2C 62 6F 2C 62 bj,bk,bl,bn,bo,b
00FEB0: 70 2C 62 75 2C 62 78 0D 0A 31 30 34 35 20 57 52 p,bu,bx..1045 WR
00FEC0: 49 54 45 23 39 2C 63 66 2C 63 69 2C 63 6A 2C 63 ITE#9,cf,ci,cj,c
00FED0: 6B 2C 63 6C 2C 63 6D 2C 63 6E 2C 63 6F 2C 63 70 k,cl,cm,cn,co,cp
00FEE0: 2C 63 71 2C 63 72 2C 63 73 2C 63 74 2C 63 76 2C ,cq,cr,cs,ct,cv,
00FEF0: 63 77 2C 63 7A 0D 0A 31 30 34 36 20 57 52 49 54 cw,cz..1046 WRIT
00FF00: B2 3E EC 55 4C C8 3C C4 82 49 53 37 C4 A1 45 F6 .>.UL.<..IS7..E.
00FF10: 04 44 C2 3D CB 70 B4 DE 70 52 D5 1A F4 0B 48 10 .D.=.p..pR....H.
00FF20: F3 AF 22 D0 40 4B B4 C4 97 D1 38 57 63 A0 E9 D0 ..".@K....8Wc...
00FF30: C1 B5 BC D5 E2 87 31 53 32 33 DD C1 96 3F B9 45 ......1S23...?.E
00FF40: 8A 94 FD 6A 75 B2 2D 27 69 B9 F8 A5 B6 D0 52 14 ...ju.-'i.....R.
00FF50: 0B CB 5F 07 0A 7B 83 17 FB A0 92 5A E6 82 5B 29 .._..{.....Z..[)
00FF60: 53 64 0C DA 51 86 95 EE D2 DF B4 12 08 82 3C 3E Sd..Q.........<>
00FF70: D6 14 85 A4 8F E0 AC 57 D9 0A 31 2F 20 B1 C1 82 .......W..1/ ...
00FF80: AA 93 CD 15 6F 1F 26 7F B2 E4 85 79 13 D7 6D F5 ....o.&....y..m.
00FF90: C5 68 1A 09 F6 62 70 22 5B 63 55 AA DD 3F 6A 0C .h...bp"[cU..?j.
00FFA0: D3 45 20 B6 24 26 D5 AD F9 D1 23 A8 60 88 EA 93 .E .$&....#.`...
00FFB0: 29 3B FF 75 28 03 00 00 C1 2C 14 29 3B FF 03 28 );.u(....,.);..(
00FFC0: 19 9C 29 00 59 00 2A 00 A9 20 16 2C 19 13 01 BF ..).Y.*.. .,....
00FFD0: 20 FF 03 28 19 95 29 3B 22 54 2E 48 55 47 47 41 ..(..);"T.HUGGA
00FFE0: 52 44 20 20 26 20 20 4A 2E 44 45 20 53 41 4C 49 RD & J.DE SALI
00FFF0: 53 22 3B FF 03 28 19 95 29 01 A9 20 16 2C 19 14 S";..(..).. .,..
010000: F8 0E D6 15 6F 1F 26 79 B2 DE D3 2C 22 DB 41 EC ....o.&y...,".A.
010010: 0E 45 BC 31 20 5A A7 38 E0 53 F7 7C A8 18 69 30 .E.1 Z.8.S.|..i0
010020: D3 4E 2E E9 6A 42 AF 1B B4 DB 1A 31 49 88 8D 43 .N..jB.....1I..C
010030: F6 8E F8 80 DB 85 98 73 E6 33 D0 E4 AC 7F 9A 92 .......s.3......
010040: 90 20 CD FC 05 89 04 27 C0 58 D5 76 AC EB 4A 37 . .....'.X.v..J7
010050: 02 35 F5 0F 06 C2 B3 21 D8 4B 9C ED B0 ED 05 FD .5.....!.K......
010060: 28 1B 0E BC 38 E9 E1 E6 BD D7 BD 12 1F 8A 22 32 (...8........."2
010070: C6 62 F1 09 AC 81 FC E2 D2 30 67 0C 1E 84 7C BF .b.......0g...|.
010080: 90 0E DC D3 54 0F 1D D7 64 DC 52 15 AE FD 6C 5C ....T...d.R...l\
010090: 24 51 2F 08 D1 58 30 01 8C 79 E4 9A 4E 19 51 33 $Q/..X0..y..N.Q3
0100A0: D3 8F C3 CB 9F 68 BC FD 2E DA 03 31 60 A0 F0 F8 .....h.....1`...
0100B0: C8 81 42 09 EA 9D 3E 7F EA 0F C8 57 8D 3F B9 45 ..B...>....W.?.E
0100C0: 8A 9E FD 51 D3 C7 2F 24 C0 99 2F A5 B6 C9 7A 90 ...Q../$../...z.
0100D0: D4 37 74 36 8F C7 AB 85 F9 ED B3 3E AA D4 1D D7 .7t6.......>....
0100E0: 21 DF 2F D2 6E 33 9C 9F DE CC A3 7B 0F 97 35 39 !./.n3....£{..59
0100F0: A5 74 E7 79 B7 37 B6 EA E9 9E B1 0E 9F BD CE BA .t.y.7..........
010100: 29 01 B0 01 D9 23 17 2C 03 00 00 F0 28 0F 29 2C )....#.,....(.),
010110: 03 00 00 F0 28 10 29 00 61 00 0E 04 9E 20 02 00 ....(.).a.... ..
010120: 00 EE EF 0F 20 EC 20 19 14 01 D9 23 17 2C 03 00 .... . ....#.,..
010130: 00 F4 28 02 00 00 EE 29 01 B0 01 9E 20 02 00 00 ..(....).... ...
010140: EE EF 0F 20 EC 20 19 1C 01 D9 23 17 2C 03 00 00 ... . ....#.,...
010150: F6 28 02 00 00 EE 29 01 B0 01 9E 20 02 00 00 EE .(....).... ....
010160: EF 0F 20 EC 20 19 26 01 D9 23 17 2C 03 00 00 F7 .. . .&..#.,....
010170: 28 02 00 00 EE 29 01 B0 00 80 00 0F 04 D9 23 17 (....)........#.
010180: 2C 0D 00 00 6D E1 2C 0D 00 00 6D E2 2C 0D 00 00 ,...m.,...m.,...
010190: 6D E3 2C 0D 00 00 6D E4 2C 0D 00 00 6D E5 2C 0D m.,...m.,...m.,.
0101A0: 00 00 6D E6 2C 0D 00 00 6D ED 2C 0D 00 00 6D EE ..m.,...m.,...m.
0101B0: 2C 0D 00 00 6D EF 2C 0D 00 00 6D F0 2C 0D 00 00 ,...m.,...m.,...
0101C0: 6D F1 2C 0D 00 00 6D F2 2C 0D 00 00 6D F3 2C 0D m.,...m.,...m.,.
0101D0: 00 00 6D F4 2C 0D 00 00 6D F5 2C 0D 00 00 6D F6 ..m.,...m.,...m.
0101E0: 2C 0D 00 00 6D F7 2C 0D 00 00 6D F8 2C 0D 00 00 ,...m.,...m.,...
0101F0: 6D F9 2C 0D 00 00 6D FA 00 68 00 10 04 D9 23 17 m.,...m..h....#.
010200: 2C 0D 00 00 6E E1 2C 0D 00 00 6E E2 2C 0D 00 00 ,...n.,...n.,...
010210: 6E E3 2C 0D 00 00 6E E9 2C 0D 00 00 6E EA 2C 0D n.,...n.,...n.,.
010220: 00 00 6E ED 2C 0D 00 00 6E EE 2C 0D 00 00 6E EF ..n.,...n.,...n.
010230: 2C 0D 00 00 6E F0 2C 0D 00 00 6E F1 2C 0D 00 00 ,...n.,...n.,...
010240: 6E F2 2C 0D 00 00 6E F3 2C 0D 00 00 6E F4 2C 0D n.,...n.,...n.,.
010250: 00 00 6E F5 2C 0D 00 00 6E F6 2C 0D 00 00 6E F7 ..n.,...n.,...n.
010260: 00 5D 00 11 04 D9 23 17 2C 0D 00 00 6F E2 2C 0D .]....#.,...o.,.
010270: 00 00 6F EA 2C 0D 00 00 6F EB 2C 0D 00 00 6F EC ..o.,...o.,...o.
010280: 2C 0D 00 00 4F 31 CE 2C 0D 00 00 6F F0 2C 0D 00 ,...O1.,...o.,..
010290: 00 6F F1 2C 0D 00 00 6F F3 2C 0D 00 00 6F F4 2C .o.,...o.,...o.,
0102A0: 0D 00 00 6F F6 2C 0D 00 00 6F F7 2C 0D 00 00 6F ...o.,...o.,...o
0102B0: F8 2C 0D 00 00 6F F9 2C 0D 00 00 6F FA 00 5B 00 .,...o.,...o..[.
0102C0: 12 04 D9 23 17 2C 0D 00 00 70 E1 2C 0D 00 00 70 ...#.,...p.,...p
0102D0: E2 2C 0D 00 00 70 E3 2C 0D 00 00 70 E4 2C 0D 00 .,...p.,...p.,..
0102E0: 00 70 E5 2C 0D 00 00 70 E6 2C 0D 00 00 70 E7 2C .p.,...p.,...p.,
0102F0: 0D 00 00 70 F5 2C 0D 00 00 70 F6 2C 0D 00 00 70 ...p.,...p.,...p
010300: 31 30 36 34 20 44 41 54 41 20 31 37 30 2C 38 35 1064 DATA 170,85
010310: 2C 31 37 30 2C 38 35 2C 31 37 31 2C 39 35 2C 31 ,170,85,171,95,1
010320: 37 34 2C 39 30 2C 31 37 35 2C 31 32 37 2C 32 35 74,90,175,127,25
010330: 33 2C 32 33 30 2C 32 31 32 2C 39 31 2C 31 36 35 3,230,212,91,165
010340: 2C 31 34 38 2C 32 32 33 2C 32 35 35 2C 31 38 36 ,148,223,255,186
010350: 2C 31 34 38 2C 38 37 2C 32 33 35 2C 35 33 2C 32 ,148,87,235,53,2
010360: 33 34 0D 0A 31 30 36 35 20 44 41 54 41 20 31 32 34..1065 DATA 12
010370: 32 2C 32 35 35 2C 32 35 35 2C 37 35 2C 31 30 35 2,255,255,75,105
010380: 2C 31 35 30 2C 32 32 39 2C 38 34 2C 31 37 30 2C ,150,229,84,170,
010390: 32 31 33 2C 32 33 34 2C 32 35 33 2C 31 32 32 2C 213,234,253,122,
0103A0: 31 38 39 2C 37 38 2C 32 32 31 2C 31 38 36 2C 31 189,78,221,186,1
0103B0: 32 35 2C 31 38 36 2C 31 31 36 2C 32 34 34 2C 31 25,186,116,244,1
0103C0: 30 34 2C 32 31 36 2C 32 33 32 0D 0A 31 30 36 36 04,216,232..1066
0103D0: 20 44 41 54 41 20 31 37 31 2C 32 33 38 2C 32 39 DATA 171,238,29
0103E0: 2C 36 2C 31 2C 30 2C 30 2C 30 2C 31 36 36 2C 31 ,6,1,0,0,0,166,1
0103F0: 30 39 2C 31 34 35 2C 31 37 35 2C 32 34 30 2C 31 09,145,175,240,1
010400: 32 36 2C 32 38 2C 30 2C 31 37 34 2C 31 37 37 2C 26,28,0,174,177,
010410: 31 39 32 2C 30 2C 31 39 32 2C 39 36 2C 31 36 2C 192,0,192,96,16,
010420: 30 0D 0A 31 30 36 37 20 44 41 54 41 20 31 39 30 0..1067 DATA 190
010430: 2C 39 33 2C 31 39 30 2C 37 37 2C 36 32 2C 34 37 ,93,190,77,62,47
010440: 2C 35 34 2C 32 39 2C 32 34 30 2C 32 30 38 2C 32 ,54,29,240,208,2
010450: 30 38 2C 31 37 36 2C 32 30 38 2C 32 34 30 2C 32 08,176,208,240,2
010460: 30 38 2C 32 32 34 2C 30 2C 30 2C 33 30 2C 30 2C 08,224,0,0,30,0,
010470: 30 2C 30 2C 30 2C 30 0D 0A 31 30 36 38 20 44 41 0,0,0,0..1068 DA
010480: 54 41 20 30 2C 30 2C 33 2C 30 2C 30 2C 31 32 34 TA 0,0,3,0,0,124
010490: 2C 30 2C 38 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 ,0,8,0,0,0,0,0,0
0104A0: 2C 36 30 2C 30 2C 32 32 2C 33 31 2C 35 34 2C 33 ,60,0,22,31,54,3
0104B0: 39 2C 36 32 2C 34 37 2C 35 34 2C 33 31 2C 31 38 9,62,47,54,31,18
0104C0: 34 2C 31 32 30 2C 32 34 38 2C 31 32 30 2C 32 34 4,120,248,120,24
0104D0: 38 2C 38 38 2C 32 30 38 2C 37 32 20 0D 0A 31 30 8,88,208,72 ..10
0104E0: 36 39 20 44 41 54 41 20 30 2C 30 2C 36 30 2C 32 69 DATA 0,0,60,2
0104F0: 35 35 2C 30 2C 31 32 36 2C 32 31 39 2C 36 30 2C 55,0,126,219,60,
010500: 31 30 36 35 20 49 46 20 42 4B 3D 31 20 54 48 45 1065 IF BK=1 THE
010510: 4E 20 31 30 36 37 0D 0A 31 30 36 36 20 45 54 3D N 1067..1066 ET=
010520: 30 2D 28 42 4B 3D 32 20 41 4E 44 20 4F 42 3D 31 0-(BK=2 AND OB=1
010530: 29 2A 43 53 2D 28 42 4B 3D 32 20 41 4E 44 20 4F )*CS-(BK=2 AND O
010540: 42 3D 30 29 2A 41 50 3A 42 4C 3D 28 35 2D 45 54 B=0)*AP:BL=(5-ET
010550: 29 2A 31 30 30 3A 42 4C 3D 42 4C 2B 28 31 2B 49 )*100:BL=BL+(1+I
010560: 4E 54 28 52 4E 44 2A 31 30 30 29 29 3A 42 4C 3D NT(RND*100)):BL=
010570: 28 49 4E 54 28 44 4E 29 2A 42 4C 29 2F 31 30 30 (INT(DN)*BL)/100
010580: 3A 4F 4C 3D 30 3A 4F 31 4E 3D 30 3A 47 4F 54 4F :OL=0:O1N=0:GOTO
010590: 20 31 30 37 30 0D 0A 31 30 36 37 20 49 46 20 42 1070..1067 IF B
0105A0: 4B 3D 31 20 41 4E 44 20 4F 42 3C 32 20 54 48 45 K=1 AND OB<2 THE
0105B0: 4E 20 42 4C 3D 28 44 4E 2A 28 4E 4A 2A 31 30 30 N BL=(DN*(NJ*100
0105C0: 29 2F 31 30 30 29 0D 0A 31 30 36 38 20 47 4F 54 )/100)..1068 GOT
0105D0: 4F 20 31 30 37 30 0D 0A 31 30 36 39 20 47 4F 53 O 1070..1069 GOS
0105E0: 55 42 20 31 30 35 31 3A 47 4F 54 4F 20 38 37 0D UB 1051:GOTO 87.
0105F0: 0A 31 30 37 30 20 42 4C 3D 49 4E 54 28 42 4C 2F .1070 BL=INT(BL/
010600: 32 29 3A 46 4F 52 20 49 3D 31 32 20 54 4F 20 35 2):FOR I=12 TO 5
010610: 34 20 53 54 45 50 20 37 3A 49 46 20 43 56 3D 31 4 STEP 7:IF CV=1
010620: 20 41 4E 44 20 43 49 3D 49 20 54 48 45 4E 20 49 AND CI=I THEN I
010630: 3D 39 32 0D 0A 31 30 37 31 20 4E 45 58 54 3A 49 =92..1071 NEXT:I
010640: 46 20 49 3D 39 39 20 54 48 45 4E 20 32 35 35 0D F I=99 THEN 255.
010650: 0A 31 30 37 32 20 46 4F 52 20 49 3D 31 36 20 54 .1072 FOR I=16 T
010660: 4F 20 35 38 20 53 54 45 50 20 37 3A 49 46 20 43 O 58 STEP 7:IF C
010670: 56 3D 31 20 41 4E 44 20 43 49 3D 49 20 54 48 45 V=1 AND CI=I THE
010680: 4E 20 49 3D 39 32 0D 0A 31 30 37 33 20 4E 45 58 N I=92..1073 NEX
010690: 54 3A 49 46 20 49 3D 39 39 20 54 48 45 4E 20 32 T:IF I=99 THEN 2
0106A0: 35 30 0D 0A 31 30 37 34 20 49 46 20 43 51 3D 31 50..1074 IF CQ=1
0106B0: 20 54 48 45 4E 20 31 35 38 3A 45 4C 53 45 20 49 THEN 158:ELSE I
0106C0: 46 20 43 50 3D 31 20 54 48 45 4E 20 38 37 0D 0A F CP=1 THEN 87..
0106D0: 31 30 37 35 20 43 56 3D 30 3A 43 51 3D 30 3A 52 1075 CV=0:CQ=0:R
0106E0: 24 3D 5A 24 3A 43 48 41 49 4E 20 4D 45 52 47 45 $=Z$:CHAIN MERGE
0106F0: 20 22 31 33 22 2C 31 30 36 39 0D 0A 1A 45 4E 22 "13",1069...EN"
010700: 30 2C 30 2C 30 2C 33 2C 30 2C 31 2C 33 2C 30 2C 0,0,0,3,0,1,3,0,
010710: 30 2C 30 2C 32 34 38 2C 32 35 34 2C 30 2C 32 34 0,0,248,254,0,24
010720: 38 2C 31 38 32 2C 31 32 30 20 0D 0A 31 30 37 30 8,182,120 ..1070
010730: 20 44 41 54 41 20 36 32 2C 36 33 2C 33 30 2C 31 DATA 62,63,30,1
010740: 31 2C 34 32 2C 34 33 2C 35 30 2C 32 31 2C 32 34 1,42,43,50,21,24
010750: 30 2C 31 31 32 2C 32 30 38 2C 38 30 2C 32 30 38 0,112,208,80,208
010760: 2C 36 34 2C 31 37 36 2C 38 30 2C 30 2C 30 2C 30 ,64,176,80,0,0,0
010770: 2C 30 2C 36 2C 38 2C 31 36 2C 31 36 20 0D 0A 31 ,0,6,8,16,16 ..1
010780: 30 37 31 20 44 41 54 41 20 34 2C 34 2C 33 36 2C 071 DATA 4,4,36,
010790: 36 38 2C 30 2C 36 36 2C 33 38 2C 32 34 2C 30 2C 68,0,66,38,24,0,
0107A0: 30 2C 30 2C 30 2C 31 39 32 2C 33 32 2C 31 36 2C 0,0,0,192,32,16,
0107B0: 38 2C 37 2C 35 2C 35 2C 35 2C 31 2C 39 2C 31 34 8,7,5,5,5,1,9,14
0107C0: 2C 32 31 2C 31 36 38 2C 38 34 2C 31 37 32 2C 38 ,21,168,84,172,8
0107D0: 34 2C 31 37 32 2C 38 36 2C 31 37 31 2C 38 35 2C 4,172,86,171,85,
0107E0: 30 2C 31 2C 33 2C 32 2C 30 2C 31 2C 30 2C 30 20 0,1,3,2,0,1,0,0
0107F0: 0D 0A 31 30 37 32 20 44 41 54 41 20 31 32 36 2C ..1072 DATA 126,
010800: 32 35 35 2C 32 35 35 2C 30 2C 32 35 35 2C 32 35 255,255,0,255,25
010810: 35 2C 30 2C 30 2C 30 2C 31 39 32 2C 32 32 34 2C 5,0,0,0,192,224,
010820: 33 32 2C 31 32 38 2C 30 2C 30 2C 30 2C 34 32 2C 32,128,0,0,0,42,
010830: 35 33 2C 34 32 2C 38 35 2C 31 30 36 2C 38 35 2C 53,42,85,106,85,
010840: 31 37 30 2C 38 35 20 0D 0A 31 30 37 33 20 44 41 170,85 ..1073 DA
010850: 54 41 20 31 37 31 2C 38 36 2C 31 37 30 2C 38 36 TA 171,86,170,86
010860: 2C 31 37 30 2C 38 35 2C 31 37 30 2C 38 35 2C 30 ,170,85,170,85,0
010870: 2C 31 32 38 2C 36 34 2C 33 32 2C 32 34 2C 34 2C ,128,64,32,24,4,
010880: 31 33 31 2C 38 30 2C 30 2C 30 2C 30 2C 30 2C 30 131,80,0,0,0,0,0
010890: 2C 35 36 2C 32 35 35 2C 30 0D 0A 31 30 37 34 20 ,56,255,0..1074
0108A0: 44 41 54 41 20 30 2C 31 2C 32 2C 34 2C 32 34 2C DATA 0,1,2,4,24,
0108B0: 33 32 2C 31 39 32 2C 35 2C 31 37 30 2C 35 33 2C 32,192,5,170,53,
0108C0: 34 32 2C 35 33 2C 34 32 2C 38 35 2C 31 37 30 2C 42,53,42,85,170,
0108D0: 38 35 0D 0A 1A 38 37 2C 32 33 35 2C 35 33 2C 32 85...87,235,53,2
0108E0: 33 34 0D 0A 31 30 36 35 20 44 41 54 41 20 31 32 34..1065 DATA 12
0108F0: 32 2C 32 35 35 2C 32 35 35 2C 37 35 2C 31 30 35 2,255,255,75,105
010900: 00 68 F5 2C 0D 00 00 68 F6 2C 0D 00 00 69 E1 2C .h.,...h.,...i.,
010910: 0D 00 00 69 E4 2C 0D 00 00 69 E5 2C 0D 00 00 6A ...i.,...i.,...j
010920: E2 2C 0D 00 00 6A E3 2C 0D 00 00 6A E6 2C 0D 00 .,...j.,...j.,..
010930: 00 6A E9 2C 0D 00 00 6A EB 2C 0D 00 00 6A EC 2C .j.,...j.,...j.,
010940: 0D 00 00 6A ED 2C 0D 00 00 6A EE 2C 0D 00 00 6A ...j.,...j.,...j
010950: F0 2C 0D 00 00 6A F1 2C 0D 00 00 6A F3 2C 0D 00 .,...j.,...j.,..
010960: 00 6A F4 2C 0D 00 00 6A F5 2C 0D 00 00 6A F6 2C .j.,...j.,...j.,
010970: 0D 00 00 6A F7 2C 0D 00 00 6B E1 2C 0D 00 00 6B ...j.,...k.,...k
010980: E3 2C 0D 00 00 6B E4 00 B7 00 18 04 D9 23 17 2C .,...k.......#.,
010990: 0D 00 00 6E EC 2C 0D 00 00 6E E6 2C 0D 00 00 70 ...n.,...n.,...p
0109A0: E1 2C 0D 00 00 70 E2 2C 0D 00 00 70 E3 2C 0D 00 .,...p.,...p.,..
0109B0: 00 70 E4 2C 0D 00 00 70 E5 2C 0D 00 00 70 E6 2C .p.,...p.,...p.,
0109C0: 0D 00 00 70 E7 2C 0D 00 00 70 F4 2C 0D 00 00 70 ...p.,...p.,...p
0109D0: F5 2C 0D 00 00 70 F6 2C 0D 00 00 70 FA 2C 0D 00 .,...p.,...p.,..
0109E0: 00 73 E1 2C 0D 00 00 73 E2 2C 0D 00 00 73 E3 2C .s.,...s.,...s.,
0109F0: 0D 00 00 73 E4 2C 0D 00 00 73 E5 2C 0D 00 00 73 ...s.,...s.,...s
010A00: E6 2C 0D 00 00 73 E7 2C 0D 00 00 73 E8 2C 0D 00 .,...s.,...s.,..
010A10: 00 73 E9 2C 0D 00 00 73 EA 2C 0D 00 00 73 EB 2C .s.,...s.,...s.,
010A20: 0D 00 00 75 E1 2C 0D 00 00 61 61 E1 2C 0D 00 00 ...u.,...aa.,...
010A30: 70 74 F3 2C 0D 00 00 F6 2C 0D 00 00 46 C4 00 0C pt.,....,...F...
010A40: 00 19 04 89 01 A0 20 1E F0 03 00 00 00 1A 31 20 ...... .......1
010A50: 54 4F 20 36 34 3A 57 52 49 54 45 23 39 2C 76 28 TO 64:WRITE#9,v(
010A60: 6E 25 2C 69 25 29 3A 4E 45 58 54 20 69 25 2C 6E n%,i%):NEXT i%,n
010A70: 25 20 0D 0A 31 30 31 32 20 46 4F 52 20 6E 25 3D % ..1012 FOR n%=
010A80: 45 49 B1 2C 0D 00 00 65 EA 2C 0D 00 00 65 EB 2C EI.,...e.,...e.,
010A90: 0D 00 00 65 EC 2C 0D 00 00 65 EF 2C 0D 00 00 65 ...e.,...e.,...e
010AA0: F0 2C 0D 00 00 65 F4 2C 0D 00 00 65 F6 00 DA 00 .,...e.,...e....
010AB0: 17 04 D9 23 17 2C 0D 00 00 66 EC 2C 0D 00 00 66 ...#.,...f.,...f
010AC0: F4 2C 0D 00 00 66 F5 2C 0D 00 00 67 FA 2C 0D 00 .,...f.,...g.,..
010AD0: 00 68 E1 2C 0D 00 00 68 E3 2C 0D 00 00 68 E4 2C .h.,...h.,...h.,
010AE0: 0D 00 00 68 E5 2C 0D 00 00 68 E8 2C 0D 00 00 68 ...h.,...h.,...h
010AF0: F2 2C 0D 00 00 68 F3 2C 0D 00 00 68 F4 2C 0D 00 .,...h.,...h.,..
010B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
010B10: 0E 00 01 00 02 09 4E E5 0E 00 41 02 00 00 00 02 ......N...A.....
010B20: 0E 00 46 02 00 00 00 02 0E 00 42 02 00 00 00 02 ..F.......B.....
010B30: 0E 00 47 02 00 00 00 02 0E 00 43 02 00 00 00 02 ..G.......C.....
010B40: 0E 00 48 02 00 00 00 02 0E 00 44 02 00 00 00 02 ..H.......D.....
010B50: 0E 00 49 02 00 00 00 02 0E 00 45 02 00 00 00 02 ..I.......E.....
010B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010C00: 22 54 4F 54 54 45 4E 48 41 4D 22 0D 0A 22 57 45 "TOTTENHAM".."WE
010C10: 53 54 20 48 41 4D 20 22 0D 0A 22 45 56 45 52 54 ST HAM ".."EVERT
010C20: 4F 4E 20 20 22 0D 0A 22 4E 4F 54 54 53 20 46 4F ON ".."NOTTS FO
010C30: 52 22 0D 0A 22 4C 49 56 45 52 50 4F 4F 4C 22 0D R".."LIVERPOOL".
010C40: 0A 22 41 52 53 45 4E 41 4C 20 20 22 0D 0A 22 4D ."ARSENAL ".."M
010C50: 41 4E 20 55 54 44 20 20 22 0D 0A 22 49 50 53 57 AN UTD ".."IPSW
010C60: 49 43 48 20 54 22 0D 0A 22 43 48 45 4C 53 45 41 ICH T".."CHELSEA
010C70: 20 20 22 0D 0A 22 57 41 54 46 4F 52 44 20 20 22 ".."WATFORD "
010C80: 0D 0A 22 4C 55 54 4F 4E 20 54 20 20 22 0D 0A 22 .."LUTON T ".."
010C90: 43 4F 56 45 4E 54 52 59 20 22 0D 0A 22 4C 45 49 COVENTRY ".."LEI
010CA0: 43 45 53 54 45 52 22 0D 0A 22 53 48 45 46 46 20 CESTER".."SHEFF
010CB0: 57 45 44 22 0D 0A 22 42 52 4D 49 4E 47 48 41 4D WED".."BRMINGHAM
010CC0: 22 0D 0A 22 4D 41 4E 20 43 49 54 59 20 22 0D 0A ".."MAN CITY "..
010CD0: 22 41 53 54 4F 4E 20 56 20 20 22 0D 0A 22 51 50 "ASTON V ".."QP
010CE0: 52 20 20 20 20 20 20 22 0D 0A 22 57 45 53 54 20 R ".."WEST
010CF0: 42 52 4F 4D 22 0D 0A 22 4F 58 46 4F 52 44 20 55 BROM".."OXFORD U
010D00: 20 22 0D 0A 22 43 48 41 52 4C 54 4F 4E 20 22 0D ".."CHARLTON ".
010D10: 0A 22 4C 45 45 44 53 20 55 54 44 22 0D 0A 22 46 ."LEEDS UTD".."F
010D20: 55 4C 48 41 4D 20 20 20 22 0D 0A 22 43 52 59 53 ULHAM ".."CRYS
010D30: 54 41 4C 20 50 22 0D 0A 22 4E 45 57 43 41 53 54 TAL P".."NEWCAST
010D40: 4C 45 22 0D 0A 22 4E 4F 52 57 49 43 48 20 20 22 LE".."NORWICH "
010D50: 0D 0A 22 53 54 4F 4B 45 20 43 20 20 22 0D 0A 22 .."STOKE C ".."
010D60: 42 52 49 47 48 54 4F 4E 20 22 0D 0A 22 4F 4C 44 BRIGHTON ".."OLD
010D70: 48 41 4D 20 41 20 22 0D 0A 22 47 52 49 4D 53 42 HAM A ".."GRIMSB
010D80: 59 20 54 22 0D 0A 22 43 41 52 4C 49 53 4C 45 20 Y T".."CARLISLE
010D90: 22 0D 0A 22 4D 49 4C 4C 57 41 4C 4C 20 22 0D 0A ".."MILLWALL "..
010DA0: 22 42 52 41 44 46 4F 52 44 20 22 0D 0A 22 53 48 "BRADFORD ".."SH
010DB0: 45 46 46 20 55 54 44 22 0D 0A 22 42 41 52 4E 53 EFF UTD".."BARNS
010DC0: 4C 45 59 20 22 0D 0A 22 48 55 4C 4C 20 43 49 54 LEY ".."HULL CIT
010DD0: 59 22 0D 0A 22 42 4C 41 43 4B 42 55 52 4E 22 0D Y".."BLACKBURN".
010DE0: 0A 22 57 49 4D 42 4C 45 44 4F 4E 22 0D 0A 22 53 ."WIMBLEDON".."S
010DF0: 54 4F 43 4B 50 4F 52 54 22 0D 0A 22 57 49 47 41 TOCKPORT".."WIGA
010E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011000: 4E 20 41 20 20 22 0D 0A 22 59 4F 52 4B 20 43 49 N A ".."YORK CI
011010: 54 59 22 0D 0A 22 44 4F 4E 43 41 53 54 45 52 22 TY".."DONCASTER"
011020: 0D 0A 22 4C 49 4E 43 4F 4C 4E 20 43 22 0D 0A 22 .."LINCOLN C".."
011030: 42 52 45 4E 54 46 4F 52 44 22 0D 0A 22 57 4F 4C BRENTFORD".."WOL
011040: 56 45 53 20 20 20 22 0D 0A 22 4E 4F 54 54 53 20 VES ".."NOTTS
011050: 43 20 20 22 0D 0A 22 42 4F 4C 54 4F 4E 20 57 20 C ".."BOLTON W
011060: 22 0D 0A 22 52 4F 54 48 45 52 48 41 4D 22 0D 0A ".."ROTHERHAM"..
011070: 22 42 52 49 53 54 4F 4C 20 43 22 0D 0A 22 57 41 "BRISTOL C".."WA
011080: 4C 53 41 4C 4C 20 20 22 0D 0A 22 44 45 52 42 59 LSALL ".."DERBY
011090: 20 43 20 20 22 0D 0A 22 42 55 52 59 20 20 20 20 C ".."BURY
0110A0: 20 22 0D 0A 22 4E 45 57 50 4F 52 54 20 43 22 0D ".."NEWPORT C".
0110B0: 0A 22 43 41 52 44 49 46 46 20 43 22 0D 0A 22 52 ."CARDIFF C".."R
0110C0: 45 41 44 49 4E 47 20 20 22 0D 0A 22 42 4C 41 43 EADING ".."BLAC
0110D0: 4B 50 4F 4F 4C 22 0D 0A 22 50 4C 59 4D 4F 55 54 KPOOL".."PLYMOUT
0110E0: 48 20 22 0D 0A 22 50 4F 52 54 4D 4F 55 54 48 22 H ".."PORTMOUTH"
0110F0: 0D 0A 22 4D 49 44 44 4C 42 4F 52 4F 22 0D 0A 22 .."MIDDLBORO".."
011100: 57 52 45 58 48 41 4D 20 20 22 0D 0A 22 52 4F 43 WREXHAM ".."ROC
011110: 48 44 41 4C 45 20 22 0D 0A 22 48 41 4C 49 46 41 HDALE ".."HALIFA
011120: 58 20 54 22 0D 0A 22 41 4C 44 45 52 53 48 4F 54 X T".."ALDERSHOT
011130: 22 0D 0A 22 54 4F 52 51 55 41 59 20 55 22 0D 0A ".."TORQUAY U"..
011140: 22 43 48 45 53 54 45 52 20 43 22 0D 0A 22 50 52 "CHESTER C".."PR
011150: 45 53 54 4F 4E 20 20 22 0D 0A 22 4D 41 4E 53 46 ESTON ".."MANSF
011160: 49 45 4C 44 22 0D 0A 22 45 58 45 54 45 52 20 43 IELD".."EXETER C
011170: 20 22 0D 0A 22 50 4F 52 54 20 56 41 4C 45 22 0D ".."PORT VALE".
011180: 0A 22 42 55 52 4E 4C 45 59 20 20 22 0D 0A 22 4E ."BURNLEY ".."N
011190: 4F 52 54 48 50 54 4F 4E 22 0D 0A 22 43 41 4D 42 ORTHPTON".."CAMB
0111A0: 52 49 44 47 45 22 0D 0A 22 48 45 52 45 46 4F 52 RIDGE".."HEREFOR
0111B0: 44 20 22 0D 0A 22 4F 52 49 45 4E 54 20 20 20 22 D ".."ORIENT "
0111C0: 0D 0A 22 54 52 41 4E 4D 45 52 45 20 22 0D 0A 22 .."TRANMERE ".."
0111D0: 50 45 54 45 52 42 4F 52 4F 22 0D 0A 22 53 57 49 PETERBORO".."SWI
0111E0: 4E 44 4F 4E 20 54 22 0D 0A 22 48 41 52 54 4C 50 NDON T".."HARTLP
0111F0: 4F 4F 4C 22 0D 0A 22 43 52 45 57 45 20 41 20 20 OOL".."CREWE A
011200: 22 44 45 4E 22 0D 0A 22 44 53 22 0D 0A 22 52 59 "DEN".."DS".."RY
011210: 22 0D 0A 22 45 59 22 0D 0A 22 4F 4E 22 0D 0A 22 ".."EY".."ON".."
011220: 57 41 59 22 0D 0A 22 4C 45 22 0D 0A 22 42 59 22 WAY".."LE".."BY"
011230: 0D 0A 22 49 4E 53 22 0D 0A 22 4C 45 59 22 0D 0A .."INS".."LEY"..
011240: 22 53 4F 4E 22 0D 0A 22 54 4F 4E 22 0D 0A 22 53 "SON".."TON".."S
011250: 22 0D 0A 22 45 53 22 0D 0A 22 4D 41 4E 22 0D 0A ".."ES".."MAN"..
011260: 22 42 4C 45 22 0D 0A 22 4E 45 59 22 0D 0A 22 53 "BLE".."NEY".."S
011270: 45 59 22 0D 0A 22 54 45 52 22 0D 0A 22 49 53 22 EY".."TER".."IS"
011280: 0D 0A 22 45 52 22 0D 0A 22 45 4E 53 22 0D 0A 22 .."ER".."ENS".."
011290: 44 4F 4E 22 0D 0A 22 49 4E 47 22 0D 0A 22 47 41 DON".."ING".."GA
0112A0: 4E 22 0D 0A 22 4C 49 4E 22 0D 0A 1A 41 49 4E 49 N".."LIN"...AINI
0112B0: 4E 47 22 0D 0A 22 48 20 48 49 53 54 4F 52 59 22 NG".."H HISTORY"
0112C0: 0D 0A 22 47 20 47 4F 41 4C 53 43 4F 52 45 52 53 .."G GOALSCORERS
0112D0: 22 0D 0A 22 52 20 52 45 2D 4E 45 47 4F 54 49 41 ".."R RE-NEGOTIA
0112E0: 54 45 20 43 4F 4E 54 52 41 43 54 22 0D 0A 22 31 TE CONTRACT".."1
0112F0: 20 53 41 56 45 22 0D 0A 1A FF FF FF FF 00 00 00 SAVE"..........
011300: 00 56 20 20 20 20 20 20 20 20 20 20 00 00 00 0D .V ....
011310: 7F 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011320: 00 57 20 20 20 20 20 20 20 20 20 20 00 00 00 2B .W ...+
011330: 81 82 83 84 85 86 00 00 00 00 00 00 00 00 00 00 ................
011340: 00 57 31 20 20 20 20 20 20 20 20 20 00 00 00 19 .W1 ....
011350: 87 88 89 8A 00 00 00 00 00 00 00 00 00 00 00 00 ................
011360: 00 58 20 20 20 20 20 20 20 20 20 20 00 00 00 05 .X ....
011370: 8B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011380: 00 59 20 20 20 20 20 20 20 20 20 20 00 00 00 21 .Y ...!
011390: 8C 8D 8E 8F 90 00 00 00 00 00 00 00 00 00 00 00 ................
0113A0: 00 59 31 20 20 20 20 20 20 20 20 20 00 00 00 0D .Y1 ....
0113B0: 91 92 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0113C0: 00 53 43 52 44 20 20 20 20 42 49 4E 00 00 00 02 .SCRD BIN....
0113D0: 98 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0113E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0113F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011400: 22 0D 0A 22 53 57 41 4E 53 45 41 20 43 22 0D 0A ".."SWANSEA C"..
011410: 22 54 45 4C 46 4F 52 44 20 55 22 0D 0A 22 45 4E "TELFORD U".."EN
011420: 46 49 45 4C 44 20 20 22 0D 0A 22 57 45 59 4D 4F FIELD ".."WEYMO
011430: 55 54 48 20 22 0D 0A 22 42 4C 59 54 48 20 53 20 UTH ".."BLYTH S
011440: 20 22 0D 0A 22 52 55 4E 43 4F 52 4E 20 20 22 0D ".."RUNCORN ".
011450: 0A 22 42 41 54 48 20 43 49 54 59 22 0D 0A 22 42 ."BATH CITY".."B
011460: 41 52 4E 45 54 20 20 20 22 0D 0A 22 4B 45 54 54 ARNET ".."KETT
011470: 45 52 49 4E 47 22 0D 0A 22 44 41 52 54 46 4F 52 ERING".."DARTFOR
011480: 44 20 22 0D 0A 22 44 55 44 4C 45 59 20 54 20 22 D ".."DUDLEY T "
011490: 0D 0A 22 42 4F 53 54 4F 4E 20 55 20 22 0D 0A 22 .."BOSTON U ".."
0114A0: 59 45 4F 56 49 4C 20 54 20 22 0D 0A 22 48 49 54 YEOVIL T ".."HIT
0114B0: 43 48 49 4E 20 54 22 0D 0A 22 53 4C 4F 55 47 48 CHIN T".."SLOUGH
0114C0: 20 54 20 22 0D 0A 22 53 4F 55 54 48 50 4F 52 54 T ".."SOUTHPORT
0114D0: 22 0D 0A 22 4D 41 49 44 53 54 4F 4E 45 22 0D 0A ".."MAIDSTONE"..
0114E0: 22 4A 55 56 45 4E 54 55 53 20 22 0D 0A 22 52 20 "JUVENTUS ".."R
0114F0: 4D 41 44 52 49 44 20 22 0D 0A 22 42 20 4D 55 4E MADRID ".."B MUN
011500: 49 43 48 20 22 0D 0A 22 42 41 52 43 45 4C 4F 4E ICH ".."BARCELON
011510: 41 22 0D 0A 22 41 4E 44 45 4C 45 43 48 54 22 0D A".."ANDELECHT".
011520: 0A 22 41 53 20 52 4F 4D 41 20 20 22 0D 0A 22 48 ."AS ROMA ".."H
011530: 41 4D 42 55 52 47 20 20 22 0D 0A 22 44 20 4B 49 AMBURG ".."D KI
011540: 45 56 20 20 20 22 0D 0A 22 46 43 20 42 52 55 47 EV ".."FC BRUG
011550: 45 20 22 0D 0A 22 41 43 20 4D 49 4C 41 4E 20 22 E ".."AC MILAN "
011560: 0D 0A 1A 00 1A 2C 38 2C 31 32 20 00 00 00 1A 00 .....,8,12 .....
011570: 00 FF FF FF FF 00 00 00 00 FF FF FF FF 00 00 00 ................
011580: 0A 22 42 55 52 4E 4C 45 59 20 20 22 0D 0A 22 4E ."BURNLEY ".."N
011590: 4F 52 54 48 50 54 4F 4E 22 0D 0A 22 43 41 4D 42 ORTHPTON".."CAMB
0115A0: 52 49 44 47 45 22 0D 0A 22 48 45 52 45 46 4F 52 RIDGE".."HEREFOR
0115B0: 44 20 22 0D 0A 22 4F 52 49 45 4E 54 20 20 20 22 D ".."ORIENT "
0115C0: 0D 0A 22 54 52 41 4E 4D 45 52 45 20 22 0D 0A 22 .."TRANMERE ".."
0115D0: 50 45 54 45 52 42 4F 52 4F 22 0D 0A 22 53 57 49 PETERBORO".."SWI
0115E0: 4E 44 4F 4E 20 54 22 0D 0A 22 48 41 52 54 4C 50 NDON T".."HARTLP
0115F0: 4F 4F 4C 22 0D 0A 22 43 52 45 57 45 20 41 20 20 OOL".."CREWE A
011600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0116A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0116B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0116C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0116D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0116E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0116F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0117A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0117B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0117C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0117D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0117E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0117F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0118A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0118B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0118C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0118D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0118E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0118F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0119A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0119B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0119C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0119D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0119E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0119F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011A00: 30 0D 0A 30 0D 0A 30 0D 0A 30 0D 0A 30 0D 0A 30 0..0..0..0..0..0
011A10: 0D 0A 30 0D 0A 30 0D 0A 30 0D 0A 30 0D 0A 30 0D ..0..0..0..0..0.
011A20: 0A 30 0D 0A 30 0D 0A 30 0D 0A 30 0D 0A 30 0D 0A .0..0..0..0..0..
011A30: 30 0D 0A 30 0D 0A 30 0D 0A 30 0D 0A 30 0D 0A 30 0..0..0..0..0..0
011A40: 0D 0A 30 0D 0A 30 0D 0A 30 0D 0A 30 0D 0A 30 0D ..0..0..0..0..0.
011A50: 0A 30 0D 0A 36 0D 0A 35 0D 0A 34 0D 0A 34 0D 0A .0..6..5..4..4..
011A60: 37 0D 0A 37 0D 0A 36 0D 0A 34 0D 0A 37 0D 0A 35 7..7..6..4..7..5
011A70: 0D 0A 35 0D 0A 36 0D 0A 34 0D 0A 36 0D 0A 37 0D ..5..6..4..6..7.
011A80: 0A 35 0D 0A 34 0D 0A 37 0D 0A 37 0D 0A 36 0D 0A .5..4..7..7..6..
011A90: 34 0D 0A 36 0D 0A 35 0D 0A 37 0D 0A 35 0D 0A 34 4..6..5..7..5..4
011AA0: 0D 0A 37 0D 0A 36 0D 0A 34 0D 0A 36 0D 0A 35 0D ..7..6..4..6..5.
011AB0: 0A 37 0D 0A 36 0D 0A 35 0D 0A 34 0D 0A 35 0D 0A .7..6..5..4..5..
011AC0: 30 0D 0A 30 0D 0A 30 0D 0A 30 0D 0A 30 0D 0A 30 0..0..0..0..0..0
011AD0: 0D 0A 30 0D 0A 30 0D 0A 30 0D 0A 30 0D 0A 30 0D ..0..0..0..0..0.
011AE0: 0A 30 0D 0A 30 0D 0A 30 0D 0A 30 0D 0A 30 0D 0A .0..0..0..0..0..
011AF0: 30 0D 0A 30 0D 0A 30 0D 0A 30 0D 0A 30 0D 0A 30 0..0..0..0..0..0
011B00: 0D 0A 30 0D 0A 30 0D 0A 30 0D 0A 30 0D 0A 30 0D ..0..0..0..0..0.
011B10: 0A 30 0D 0A 37 0D 0A 31 31 0D 0A 39 0D 0A 31 33 .0..7..11..9..13
011B20: 0D 0A 31 32 0D 0A 39 0D 0A 31 34 0D 0A 36 0D 0A ..12..9..14..6..
011B30: 36 0D 0A 38 0D 0A 31 33 0D 0A 31 31 0D 0A 31 34 6..8..13..11..14
011B40: 0D 0A 39 0D 0A 37 0D 0A 37 0D 0A 31 31 0D 0A 31 ..9..7..7..11..1
011B50: 31 0D 0A 31 34 0D 0A 31 33 0D 0A 37 0D 0A 36 0D 1..14..13..7..6.
011B60: 0A 31 30 0D 0A 31 30 0D 0A 31 34 0D 0A 31 32 0D .10..10..14..12.
011B70: 0A 31 33 0D 0A 38 0D 0A 31 30 0D 0A 31 32 0D 0A .13..8..10..12..
011B80: 39 0D 0A 38 0D 0A 31 30 0D 0A 36 0D 0A 38 0D 0A 9..8..10..6..8..
011B90: 31 32 0D 0A 1A 0A 22 49 4E 47 22 0D 0A 22 47 41 12...."ING".."GA
011BA0: 4E 22 0D 0A 22 4C 49 4E 22 0D 0A 1A 41 49 4E 49 N".."LIN"...AINI
011BB0: 4E 47 22 0D 0A 22 48 20 48 49 53 54 4F 52 59 22 NG".."H HISTORY"
011BC0: 0D 0A 22 47 20 47 4F 41 4C 53 43 4F 52 45 52 53 .."G GOALSCORERS
011BD0: 22 0D 0A 22 52 20 52 45 2D 4E 45 47 4F 54 49 41 ".."R RE-NEGOTIA
011BE0: 54 45 20 43 4F 4E 54 52 41 43 54 22 0D 0A 22 31 TE CONTRACT".."1
011BF0: 20 53 41 56 45 22 0D 0A 1A FF FF FF FF 00 00 00 SAVE"..........
011C00: 22 50 20 50 4C 41 59 20 4D 41 54 43 48 22 0D 0A "P PLAY MATCH"..
011C10: 22 43 20 43 48 45 43 4B 20 4D 41 54 43 48 22 0D "C CHECK MATCH".
011C20: 0A 22 54 20 54 45 41 4D 22 0D 0A 22 4F 20 4F 46 ."T TEAM".."O OF
011C30: 46 45 52 2F 4E 45 47 4F 54 49 41 54 49 4F 4E 53 FER/NEGOTIATIONS
011C40: 22 0D 0A 22 41 20 41 44 44 49 54 49 4F 4E 41 4C ".."A ADDITIONAL
011C50: 20 4D 45 4E 55 22 0D 0A 22 49 20 49 4E 4A 55 52 MENU".."I INJUR
011C60: 49 45 53 2F 47 4F 41 4C 53 22 0D 0A 22 42 20 42 IES/GOALS".."B B
011C70: 41 4E 4B 22 0D 0A 22 4C 20 4C 45 41 47 55 45 20 ANK".."L LEAGUE
011C80: 54 41 42 4C 45 22 0D 0A 22 46 20 46 49 58 54 55 TABLE".."F FIXTU
011C90: 52 45 53 22 0D 0A 22 53 20 53 43 4F 55 54 22 0D RES".."S SCOUT".
011CA0: 0A 22 45 20 45 58 54 52 41 20 54 52 41 49 4E 49 ."E EXTRA TRAINI
011CB0: 4E 47 22 0D 0A 22 48 20 48 49 53 54 4F 52 59 22 NG".."H HISTORY"
011CC0: 0D 0A 22 47 20 47 4F 41 4C 53 43 4F 52 45 52 53 .."G GOALSCORERS
011CD0: 22 0D 0A 22 52 20 52 45 2D 4E 45 47 4F 54 49 41 ".."R RE-NEGOTIA
011CE0: 54 45 20 43 4F 4E 54 52 41 43 54 22 0D 0A 22 31 TE CONTRACT".."1
011CF0: 20 53 41 56 45 22 0D 0A 1A FF FF FF FF 00 00 00 SAVE"..........
011D00: 00 56 20 20 20 20 20 20 20 20 20 20 00 00 00 0D .V ....
011D10: 7F 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011D20: 00 57 20 20 20 20 20 20 20 20 20 20 00 00 00 2B .W ...+
011D30: 81 82 83 84 85 86 00 00 00 00 00 00 00 00 00 00 ................
011D40: 00 57 31 20 20 20 20 20 20 20 20 20 00 00 00 19 .W1 ....
011D50: 87 88 89 8A 00 00 00 00 00 00 00 00 00 00 00 00 ................
011D60: 00 58 20 20 20 20 20 20 20 20 20 20 00 00 00 05 .X ....
011D70: 8B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011D80: 00 59 20 20 20 20 20 20 20 20 20 20 00 00 00 21 .Y ...!
011D90: 8C 8D 8E 8F 90 00 00 00 00 00 00 00 00 00 00 00 ................
011DA0: 00 59 31 20 20 20 20 20 20 20 20 20 00 00 00 0D .Y1 ....
011DB0: 91 92 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011DC0: 00 53 43 52 44 20 20 20 20 42 49 4E 00 00 00 02 .SCRD BIN....
011DD0: 98 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
011E10: 0F 00 01 00 02 09 4E E5 0F 00 41 02 00 00 00 02 ......N...A.....
011E20: 0F 00 46 02 00 00 00 02 0F 00 42 02 00 00 00 02 ..F.......B.....
011E30: 0F 00 47 02 00 00 00 02 0F 00 43 02 00 00 00 02 ..G.......C.....
011E40: 0F 00 48 02 00 00 00 02 0F 00 44 02 00 00 00 02 ..H.......D.....
011E50: 0F 00 49 02 00 00 00 02 0F 00 45 02 00 00 00 02 ..I.......E.....
011E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0120A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0120B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0120C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0120D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0120E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0120F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012100: 31 30 36 34 20 44 41 54 41 20 31 37 30 2C 38 35 1064 DATA 170,85
012110: 2C 31 37 30 2C 38 37 2C 31 37 31 2C 38 37 2C 31 ,170,87,171,87,1
012120: 37 35 2C 38 37 0D 0A 31 30 36 35 20 44 41 54 41 75,87..1065 DATA
012130: 20 31 37 30 2C 39 35 2C 32 35 35 2C 32 35 35 2C 170,95,255,255,
012140: 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 0D 255,255,255,255.
012150: 0A 31 30 36 36 20 44 41 54 41 20 31 37 30 2C 31 .1066 DATA 170,1
012160: 32 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 25,255,255,255,2
012170: 35 35 2C 32 35 35 2C 32 35 35 0D 0A 31 30 36 37 55,255,255..1067
012180: 20 44 41 54 41 20 31 37 30 2C 32 31 33 2C 32 35 DATA 170,213,25
012190: 30 2C 32 34 35 2C 32 35 34 2C 32 35 33 2C 32 35 0,245,254,253,25
0121A0: 34 2C 32 35 35 0D 0A 31 30 36 38 20 44 41 54 41 4,255..1068 DATA
0121B0: 20 31 37 30 2C 38 35 2C 31 37 30 2C 38 35 2C 31 170,85,170,85,1
0121C0: 37 30 2C 38 35 2C 31 37 30 2C 38 35 0D 0A 31 30 70,85,170,85..10
0121D0: 36 39 20 44 41 54 41 20 31 37 35 2C 39 35 2C 31 69 DATA 175,95,1
0121E0: 39 31 2C 39 35 2C 31 39 31 2C 31 32 37 2C 31 39 91,95,191,127,19
0121F0: 31 2C 31 32 37 0D 0A 31 30 37 30 20 44 41 54 41 1,127..1070 DATA
012200: 20 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 255,255,255,255
012210: 2C 32 35 32 2C 32 34 30 2C 32 32 34 2C 31 32 38 ,252,240,224,128
012220: 0D 0A 31 30 37 31 20 44 41 54 41 20 32 35 35 2C ..1071 DATA 255,
012230: 32 35 35 2C 32 35 35 2C 32 32 34 2C 30 2C 30 2C 255,255,224,0,0,
012240: 30 2C 30 0D 0A 31 30 37 32 20 44 41 54 41 20 32 0,0..1072 DATA 2
012250: 35 34 2C 32 35 35 2C 32 35 35 2C 36 33 2C 38 37 54,255,255,63,87
012260: 2C 31 39 2C 31 39 2C 31 0D 0A 31 30 37 33 20 44 ,19,19,1..1073 D
012270: 41 54 41 20 31 37 30 2C 32 31 33 2C 32 33 34 2C ATA 170,213,234,
012280: 32 34 35 2C 32 35 30 2C 32 35 33 2C 32 35 30 2C 245,250,253,250,
012290: 32 35 33 0D 0A 31 30 37 34 20 44 41 54 41 20 31 253..1074 DATA 1
0122A0: 39 30 2C 31 32 36 2C 31 39 30 2C 31 32 36 2C 32 90,126,190,126,2
0122B0: 35 34 2C 31 32 36 2C 32 35 32 2C 31 32 30 0D 0A 54,126,252,120..
0122C0: 31 30 37 35 20 44 41 54 41 20 30 2C 30 2C 34 2C 1075 DATA 0,0,4,
0122D0: 34 2C 34 2C 32 2C 30 2C 30 0D 0A 31 30 37 36 20 4,4,2,0,0..1076
0122E0: 44 41 54 41 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 DATA 0,0,0,0,0,0
0122F0: 2C 30 2C 30 0D 0A 31 30 37 37 20 44 41 54 41 20 ,0,0..1077 DATA
012300: 31 30 36 34 20 44 41 54 41 20 31 37 30 2C 38 35 1064 DATA 170,85
012310: 2C 31 37 30 2C 38 35 2C 31 37 30 2C 38 35 2C 31 ,170,85,170,85,1
012320: 37 31 2C 38 37 0D 0A 31 30 36 35 20 44 41 54 41 71,87..1065 DATA
012330: 20 31 37 30 2C 38 35 2C 31 37 35 2C 39 35 2C 32 170,85,175,95,2
012340: 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 0D 0A 55,255,255,255..
012350: 31 30 36 36 20 44 41 54 41 20 31 37 30 2C 31 31 1066 DATA 170,11
012360: 37 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 7,255,255,255,25
012370: 35 2C 32 35 35 2C 32 35 35 0D 0A 31 30 36 37 20 5,255,255..1067
012380: 44 41 54 41 20 31 37 30 2C 38 35 2C 32 33 34 2C DATA 170,85,234,
012390: 32 35 33 2C 32 35 34 2C 32 35 35 2C 32 35 35 2C 253,254,255,255,
0123A0: 32 35 35 0D 0A 31 30 36 38 20 44 41 54 41 20 31 255..1068 DATA 1
0123B0: 37 30 2C 38 35 2C 31 37 30 2C 38 35 2C 31 37 30 70,85,170,85,170
0123C0: 2C 38 35 2C 31 37 30 2C 32 31 33 0D 0A 31 30 36 ,85,170,213..106
0123D0: 39 20 44 41 54 41 20 31 37 35 2C 39 35 2C 31 39 9 DATA 175,95,19
0123E0: 31 2C 31 32 37 2C 31 39 31 2C 31 32 37 2C 32 35 1,127,191,127,25
0123F0: 34 2C 31 32 34 0D 0A 31 30 37 30 20 44 41 54 41 4,124..1070 DATA
012400: 20 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 255,255,255,255
012410: 2C 32 35 35 2C 32 35 35 2C 37 2C 30 0D 0A 31 30 ,255,255,7,0..10
012420: 37 31 20 44 41 54 41 20 32 35 35 2C 32 35 35 2C 71 DATA 255,255,
012430: 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 32 2C 255,255,255,252,
012440: 32 32 34 2C 30 0D 0A 31 30 37 32 20 44 41 54 41 224,0..1072 DATA
012450: 20 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 255,255,255,255
012460: 2C 31 39 39 2C 33 2C 33 2C 30 0D 0A 31 30 37 33 ,199,3,3,0..1073
012470: 20 44 41 54 41 20 32 33 34 2C 32 34 35 2C 32 35 DATA 234,245,25
012480: 30 2C 32 35 33 2C 32 35 30 2C 32 35 33 2C 32 35 0,253,250,253,25
012490: 34 2C 32 35 33 0D 0A 31 30 37 34 20 44 41 54 41 4,253..1074 DATA
0124A0: 20 32 35 32 2C 31 32 34 2C 32 35 32 2C 31 32 34 252,124,252,124
0124B0: 2C 32 35 32 2C 31 32 34 2C 32 34 38 2C 31 31 32 ,252,124,248,112
0124C0: 0D 0A 31 30 37 35 20 44 41 54 41 20 30 2C 30 2C ..1075 DATA 0,0,
0124D0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 0A 31 30 37 0,0,0,0,0,0..107
0124E0: 36 20 44 41 54 41 20 30 2C 30 2C 30 2C 30 2C 30 6 DATA 0,0,0,0,0
0124F0: 2C 30 2C 30 2C 30 0D 0A 31 30 37 37 20 44 41 54 ,0,0,0..1077 DAT
012500: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 0,0,0,0,0,0,0,0.
012510: 0A 31 30 37 38 20 44 41 54 41 20 32 35 30 2C 32 .1078 DATA 250,2
012520: 35 33 2C 32 35 30 2C 32 35 33 2C 32 35 34 2C 32 53,250,253,254,2
012530: 35 33 2C 31 32 36 2C 31 32 35 0D 0A 31 30 37 39 53,126,125..1079
012540: 20 44 41 54 41 20 32 34 38 2C 31 35 36 2C 31 36 DATA 248,156,16
012550: 38 2C 31 35 32 2C 32 31 36 2C 38 30 2C 31 39 32 8,152,216,80,192
012560: 2C 39 36 20 0D 0A 31 30 38 30 20 44 41 54 41 20 ,96 ..1080 DATA
012570: 31 32 37 2C 30 2C 33 2C 36 33 2C 32 35 35 2C 30 127,0,3,63,255,0
012580: 2C 37 2C 30 20 0D 0A 31 30 38 31 20 44 41 54 41 ,7,0 ..1081 DATA
012590: 20 38 2C 32 31 33 2C 32 32 37 2C 32 32 37 2C 32 8,213,227,227,2
0125A0: 32 37 2C 36 37 2C 31 32 39 2C 30 20 0D 0A 31 30 27,67,129,0 ..10
0125B0: 38 32 20 44 41 54 41 20 32 35 34 2C 31 32 38 2C 82 DATA 254,128,
0125C0: 31 39 32 2C 32 35 32 2C 32 35 35 2C 30 2C 32 32 192,252,255,0,22
0125D0: 34 2C 30 20 0D 0A 31 30 38 33 20 44 41 54 41 20 4,0 ..1083 DATA
0125E0: 36 32 2C 31 32 35 2C 35 37 2C 35 37 2C 31 38 35 62,125,57,57,185
0125F0: 2C 32 37 2C 31 38 2C 32 31 20 0D 0A 31 30 38 34 ,27,18,21 ..1084
012600: 20 44 41 54 41 20 32 34 38 2C 31 32 30 2C 32 30 DATA 248,120,20
012610: 30 2C 38 30 2C 32 30 38 2C 37 32 2C 31 36 30 2C 0,80,208,72,160,
012620: 38 38 20 0D 0A 31 30 38 35 20 44 41 54 41 20 30 88 ..1085 DATA 0
012630: 2C 30 2C 30 2C 30 2C 30 2C 32 2C 34 2C 38 20 0D ,0,0,0,0,2,4,8 .
012640: 0A 31 30 38 36 20 44 41 54 41 20 32 2C 30 2C 36 .1086 DATA 2,0,6
012650: 35 2C 31 32 38 2C 31 32 38 2C 39 39 2C 33 34 2C 5,128,128,99,34,
012660: 32 38 20 0D 0A 31 30 38 37 20 44 41 54 41 20 30 28 ..1087 DATA 0
012670: 2C 30 2C 30 2C 30 2C 30 2C 36 34 2C 33 32 2C 31 ,0,0,0,0,64,32,1
012680: 36 20 0D 0A 31 30 38 38 20 44 41 54 41 20 32 32 6 ..1088 DATA 22
012690: 2C 36 31 2C 36 2C 32 31 2C 35 34 2C 33 37 2C 31 ,61,6,21,54,37,1
0126A0: 30 2C 35 33 0D 0A 31 30 38 39 20 44 41 54 41 20 0,53..1089 DATA
0126B0: 31 36 38 2C 38 38 2C 31 36 38 2C 38 38 2C 31 37 168,88,168,88,17
0126C0: 32 2C 38 34 2C 31 37 32 2C 38 36 0D 0A 31 30 39 2,84,172,86..109
0126D0: 30 20 44 41 54 41 20 30 2C 30 2C 30 2C 39 2C 31 0 DATA 0,0,0,9,1
0126E0: 39 2C 31 36 2C 31 36 2C 30 20 0D 0A 31 30 39 31 9,16,16,0 ..1091
0126F0: 20 44 41 54 41 20 30 2C 30 2C 34 37 2C 32 35 34 DATA 0,0,47,254
012700: 41 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C A 0,0,0,0,0,0,0,
012710: 30 0D 0A 31 30 37 38 20 44 41 54 41 20 32 35 34 0..1078 DATA 254
012720: 2C 31 32 35 2C 31 32 36 2C 31 32 35 2C 31 32 36 ,125,126,125,126
012730: 2C 31 32 35 2C 36 32 2C 32 39 0D 0A 31 30 37 39 ,125,62,29..1079
012740: 20 44 41 54 41 20 32 34 30 2C 32 34 30 2C 32 32 DATA 240,240,22
012750: 34 2C 39 36 2C 31 39 32 2C 36 35 2C 31 39 34 2C 4,96,192,65,194,
012760: 38 30 20 0D 0A 31 30 38 30 20 44 41 54 41 20 30 80 ..1080 DATA 0
012770: 2C 30 2C 32 35 35 2C 32 39 2C 31 32 36 2C 32 35 ,0,255,29,126,25
012780: 35 2C 30 2C 36 32 20 0D 0A 31 30 38 31 20 44 41 5,0,62 ..1081 DA
012790: 54 41 20 38 30 2C 38 34 2C 31 33 31 2C 31 33 31 TA 80,84,131,131
0127A0: 2C 33 2C 32 2C 30 2C 30 20 0D 0A 31 30 38 32 20 ,3,2,0,0 ..1082
0127B0: 44 41 54 41 20 30 2C 30 2C 32 35 35 2C 32 34 30 DATA 0,0,255,240
0127C0: 2C 32 35 32 2C 32 35 35 2C 30 2C 31 32 34 20 0D ,252,255,0,124 .
0127D0: 0A 31 30 38 33 20 44 41 54 41 20 33 30 2C 33 31 .1083 DATA 30,31
0127E0: 2C 32 39 2C 31 33 2C 31 2C 31 33 37 2C 37 37 2C ,29,13,1,137,77,
0127F0: 31 33 20 0D 0A 31 30 38 34 20 44 41 54 41 20 32 13 ..1084 DATA 2
012800: 34 30 2C 32 34 30 2C 32 34 30 2C 31 30 34 2C 31 40,240,240,104,1
012810: 36 38 2C 31 30 34 2C 31 36 38 2C 38 38 20 0D 0A 68,104,168,88 ..
012820: 31 30 38 35 20 44 41 54 41 20 30 2C 30 2C 30 2C 1085 DATA 0,0,0,
012830: 30 2C 30 2C 30 2C 33 2C 34 20 0D 0A 31 30 38 36 0,0,0,3,4 ..1086
012840: 20 44 41 54 41 20 30 2C 32 2C 36 36 2C 31 32 39 DATA 0,2,66,129
012850: 2C 31 32 38 2C 31 30 32 2C 31 31 30 2C 30 20 0D ,128,102,110,0 .
012860: 0A 31 30 38 37 20 44 41 54 41 20 30 2C 30 2C 30 .1087 DATA 0,0,0
012870: 2C 30 2C 30 2C 30 2C 39 36 2C 31 36 20 0D 0A 31 ,0,0,0,96,16 ..1
012880: 30 38 38 20 44 41 54 41 20 31 35 2C 31 35 2C 31 088 DATA 15,15,1
012890: 30 2C 33 2C 31 30 2C 31 33 2C 36 2C 32 39 20 0D 0,3,10,13,6,29 .
0128A0: 0A 31 30 38 39 20 44 41 54 41 20 31 37 32 2C 38 .1089 DATA 172,8
0128B0: 34 2C 31 37 32 2C 38 34 2C 31 37 32 2C 38 36 2C 4,172,84,172,86,
0128C0: 31 37 30 2C 38 35 20 0D 0A 31 30 39 30 20 44 41 170,85 ..1090 DA
0128D0: 54 41 20 31 36 2C 33 32 2C 31 2C 33 2C 31 2C 30 TA 16,32,1,3,1,0
0128E0: 2C 30 2C 30 20 0D 0A 31 30 39 31 20 44 41 54 41 ,0,0 ..1091 DATA
0128F0: 20 30 2C 32 35 32 2C 31 37 31 2C 31 36 39 2C 32 0,252,171,169,2
012900: 2C 32 35 32 2C 30 2C 30 2C 30 20 0D 0A 31 30 39 ,252,0,0,0 ..109
012910: 32 20 44 41 54 41 20 33 32 2C 34 38 2C 31 35 32 2 DATA 32,48,152
012920: 2C 30 2C 30 2C 30 2C 30 2C 30 20 0D 0A 31 30 39 ,0,0,0,0,0 ..109
012930: 33 20 44 41 54 41 20 32 36 2C 32 31 2C 32 36 2C 3 DATA 26,21,26,
012940: 32 31 2C 34 32 2C 35 33 2C 34 32 2C 38 35 20 0D 21,42,53,42,85 .
012950: 0A 31 30 39 34 20 44 41 54 41 20 31 37 31 2C 38 .1094 DATA 171,8
012960: 35 2C 31 37 31 2C 38 35 2C 31 37 31 2C 38 35 2C 5,171,85,171,85,
012970: 31 37 30 2C 38 35 0D 0A 31 30 39 35 20 44 41 54 170,85..1095 DAT
012980: 41 20 31 32 38 2C 36 34 2C 33 32 2C 31 36 2C 38 A 128,64,32,16,8
012990: 2C 35 2C 31 36 33 2C 38 30 0D 0A 31 30 39 36 20 ,5,163,80..1096
0129A0: 44 41 54 41 20 30 2C 30 2C 30 2C 30 2C 38 34 2C DATA 0,0,0,0,84,
0129B0: 31 37 30 2C 38 35 2C 32 35 35 0D 0A 31 30 39 37 170,85,255..1097
0129C0: 20 44 41 54 41 20 31 2C 32 2C 34 2C 38 2C 31 36 DATA 1,2,4,8,16
0129D0: 2C 31 36 31 2C 31 39 34 2C 32 31 0D 0A 31 30 39 ,161,194,21..109
0129E0: 38 20 44 41 54 41 20 31 37 30 2C 32 31 33 2C 31 8 DATA 170,213,1
0129F0: 37 30 2C 32 31 33 2C 31 37 30 2C 38 35 2C 31 37 70,213,170,85,17
012A00: 30 2C 38 35 0D 0A 1A 20 20 20 24 24 24 FF 00 FF 0,85... $$$...
012A10: 38 35 2C 32 35 35 00 1C 00 49 04 8C 20 31 2C 32 85,255...I.. 1,2
012A20: 2C 34 2C 38 2C 31 36 2C 31 36 31 2C 31 39 34 2C ,4,8,16,161,194,
012A30: 32 31 00 24 00 4A 04 8C 20 31 37 30 2C 32 31 33 21.$.J.. 170,213
012A40: 2C 31 37 30 2C 32 31 33 2C 31 37 30 2C 38 35 2C ,170,213,170,85,
012A50: 31 37 30 2C 38 35 00 00 00 1A 20 31 37 30 2C 31 170,85.... 170,1
012A60: 32 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 25,255,255,255,2
012A70: 35 35 2C 32 35 35 2C 32 35 35 0D 0A 31 30 36 37 55,255,255..1067
012A80: 36 20 0D 0A 31 30 38 38 20 44 41 54 41 20 32 32 6 ..1088 DATA 22
012A90: 2C 36 31 2C 36 2C 32 31 2C 35 34 2C 33 37 2C 31 ,61,6,21,54,37,1
012AA0: 30 2C 35 33 0D 0A 31 30 38 39 20 44 41 54 41 20 0,53..1089 DATA
012AB0: 31 36 38 2C 38 38 2C 31 36 38 2C 38 38 2C 31 37 168,88,168,88,17
012AC0: 32 2C 38 34 2C 31 37 32 2C 38 36 0D 0A 31 30 39 2,84,172,86..109
012AD0: 30 20 44 41 54 41 20 30 2C 30 2C 30 2C 39 2C 31 0 DATA 0,0,0,9,1
012AE0: 39 2C 31 36 2C 31 36 2C 30 20 0D 0A 31 30 39 31 9,16,16,0 ..1091
012AF0: 20 44 41 54 41 20 30 2C 30 2C 34 37 2C 32 35 34 DATA 0,0,47,254
012B00: 35 35 2C 36 30 2C 30 2C 30 20 0D 0A 31 30 39 32 55,60,0,0 ..1092
012B10: 20 44 41 54 41 20 38 2C 34 2C 31 32 38 2C 31 39 DATA 8,4,128,19
012B20: 32 2C 31 32 38 2C 30 2C 30 2C 30 20 0D 0A 31 30 2,128,0,0,0 ..10
012B30: 39 33 20 44 41 54 41 20 34 32 2C 35 33 2C 34 32 93 DATA 42,53,42
012B40: 2C 38 35 2C 31 30 36 2C 38 35 2C 31 37 30 2C 38 ,85,106,85,170,8
012B50: 35 0D 0A 31 30 39 34 20 44 41 54 41 20 31 37 30 5..1094 DATA 170
012B60: 2C 38 36 2C 31 37 30 2C 38 36 2C 31 37 30 2C 38 ,86,170,86,170,8
012B70: 36 2C 31 37 30 2C 38 35 0D 0A 31 30 39 35 20 44 6,170,85..1095 D
012B80: 41 54 41 20 31 32 38 2C 31 32 38 2C 36 34 2C 33 ATA 128,128,64,3
012B90: 36 2C 31 39 2C 38 2C 37 2C 36 34 0D 0A 31 30 39 6,19,8,7,64..109
012BA0: 36 20 44 41 54 41 20 30 2C 30 2C 30 2C 38 2C 30 6 DATA 0,0,0,8,0
012BB0: 2C 32 35 35 2C 30 2C 32 35 35 0D 0A 31 30 39 37 ,255,0,255..1097
012BC0: 20 44 41 54 41 20 31 2C 31 2C 32 2C 33 36 2C 32 DATA 1,1,2,36,2
012BD0: 30 30 2C 31 36 2C 32 32 34 2C 31 0D 0A 31 30 39 00,16,224,1..109
012BE0: 38 20 44 41 54 41 20 31 30 36 2C 38 35 2C 31 30 8 DATA 106,85,10
012BF0: 36 2C 38 35 2C 34 32 2C 38 35 2C 31 37 30 2C 38 6,85,42,85,170,8
012C00: 35 0D 0A 1A 20 20 20 20 20 20 24 24 24 FF 00 FF 5... $$$...
012C10: 2C 30 2C 32 35 35 00 1C 00 49 04 8C 20 31 2C 31 ,0,255...I.. 1,1
012C20: 2C 32 2C 33 36 2C 32 30 30 2C 31 36 2C 32 32 34 ,2,36,200,16,224
012C30: 2C 31 00 21 00 4A 04 8C 20 31 30 36 2C 38 35 2C ,1.!.J.. 106,85,
012C40: 31 30 36 2C 38 35 2C 34 32 2C 38 35 2C 31 37 30 106,85,42,85,170
012C50: 2C 38 35 00 00 00 1A 54 41 20 31 37 30 2C 31 31 ,85....TA 170,11
012C60: 37 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 7,255,255,255,25
012C70: 35 2C 32 35 35 2C 32 35 35 0D 0A 31 30 36 37 20 5,255,255..1067
012C80: 30 38 38 20 44 41 54 41 20 31 35 2C 31 35 2C 31 088 DATA 15,15,1
012C90: 30 2C 33 2C 31 30 2C 31 33 2C 36 2C 32 39 20 0D 0,3,10,13,6,29 .
012CA0: 0A 31 30 38 39 20 44 41 54 41 20 31 37 32 2C 38 .1089 DATA 172,8
012CB0: 34 2C 31 37 32 2C 38 34 2C 31 37 32 2C 38 36 2C 4,172,84,172,86,
012CC0: 31 37 30 2C 38 35 20 0D 0A 31 30 39 30 20 44 41 170,85 ..1090 DA
012CD0: 54 41 20 31 36 2C 33 32 2C 31 2C 33 2C 31 2C 30 TA 16,32,1,3,1,0
012CE0: 2C 30 2C 30 20 0D 0A 31 30 39 31 20 44 41 54 41 ,0,0 ..1091 DATA
012CF0: 20 30 2C 32 35 32 2C 31 37 31 2C 31 36 39 2C 32 0,252,171,169,2
012D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0130A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0130B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0130C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0130D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0130E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0130F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
013110: 10 00 01 00 02 09 4E E5 10 00 41 02 00 00 00 02 ......N...A.....
013120: 10 00 46 02 00 00 00 02 10 00 42 02 00 00 00 02 ..F.......B.....
013130: 10 00 47 02 00 00 00 02 10 00 43 02 00 00 00 02 ..G.......C.....
013140: 10 00 48 02 00 00 00 02 10 00 44 02 00 00 00 02 ..H.......D.....
013150: 10 00 49 02 00 00 00 02 10 00 45 02 00 00 00 02 ..I.......E.....
013160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013200: 31 30 36 34 20 44 41 54 41 20 31 37 30 2C 38 35 1064 DATA 170,85
013210: 2C 31 37 30 2C 38 35 2C 31 37 31 2C 38 37 2C 31 ,170,85,171,87,1
013220: 37 34 2C 38 36 0D 0A 31 30 36 35 20 44 41 54 41 74,86..1065 DATA
013230: 20 31 38 39 2C 31 32 37 2C 32 34 37 2C 32 30 35 189,127,247,205
013240: 2C 31 38 36 2C 35 35 2C 32 30 34 2C 38 36 0D 0A ,186,55,204,86..
013250: 31 30 36 36 20 44 41 54 41 20 32 34 39 2C 32 35 1066 DATA 249,25
013260: 35 2C 31 38 33 2C 31 30 39 2C 31 35 34 2C 31 38 5,183,109,154,18
013270: 33 2C 32 30 31 2C 32 31 34 0D 0A 31 30 36 37 20 3,201,214..1067
013280: 44 41 54 41 20 32 35 30 2C 32 35 33 2C 31 35 38 DATA 250,253,158
013290: 2C 31 31 31 2C 31 37 39 2C 31 35 31 2C 31 37 30 ,111,179,151,170
0132A0: 2C 38 33 0D 0A 31 30 36 38 20 44 41 54 41 20 31 ,83..1068 DATA 1
0132B0: 37 30 2C 38 35 2C 31 37 30 2C 38 35 2C 31 37 30 70,85,170,85,170
0132C0: 2C 32 31 33 2C 32 33 34 2C 32 31 33 0D 0A 31 30 ,213,234,213..10
0132D0: 36 39 20 44 41 54 41 20 31 37 35 2C 39 34 2C 31 69 DATA 175,94,1
0132E0: 38 35 2C 31 31 37 2C 31 38 32 2C 31 32 35 2C 32 85,117,182,125,2
0132F0: 32 39 2C 32 35 31 0D 0A 31 30 37 30 20 44 41 54 29,251..1070 DAT
013300: 41 20 31 38 33 2C 32 32 38 2C 36 33 2C 32 31 30 A 183,228,63,210
013310: 2C 39 33 2C 32 34 36 2C 31 34 39 2C 31 31 0D 0A ,93,246,149,11..
013320: 31 30 37 31 20 44 41 54 41 20 31 38 30 2C 31 37 1071 DATA 180,17
013330: 30 2C 31 32 37 2C 32 31 30 2C 38 35 2C 31 39 30 0,127,210,85,190
013340: 2C 32 31 33 2C 31 30 37 0D 0A 31 30 37 32 20 44 ,213,107..1072 D
013350: 41 54 41 20 31 38 31 2C 31 37 31 2C 39 34 2C 32 ATA 181,171,94,2
013360: 31 30 2C 31 32 35 2C 31 34 39 2C 32 31 34 2C 31 10,125,149,214,1
013370: 30 37 0D 0A 31 30 37 33 20 44 41 54 41 20 31 38 07..1073 DATA 18
013380: 36 2C 39 33 2C 34 36 2C 32 32 31 2C 31 39 30 2C 6,93,46,221,190,
013390: 37 37 2C 39 34 2C 32 35 33 0D 0A 31 30 37 34 20 77,94,253..1074
0133A0: 44 41 54 41 20 32 33 36 2C 32 31 32 2C 32 35 32 DATA 236,212,252
0133B0: 2C 32 30 30 2C 32 31 36 2C 31 32 30 2C 32 33 32 ,200,216,120,232
0133C0: 2C 32 31 36 0D 0A 31 30 37 35 20 44 41 54 41 20 ,216..1075 DATA
0133D0: 36 2C 33 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 6,3,0,0,0,0,0,0.
0133E0: 0A 31 30 37 36 20 44 41 54 41 20 38 36 2C 31 37 .1076 DATA 86,17
0133F0: 31 2C 31 30 32 2C 33 32 2C 32 38 2C 30 2C 30 2C 1,102,32,28,0,0,
013400: 20 32 35 32 2C 32 35 34 2C 32 35 33 2C 32 34 34 252,254,253,244
013410: 2C 32 34 36 2C 32 33 37 2C 32 30 31 2C 38 0D 0A ,246,237,201,8..
013420: 31 30 37 37 20 44 41 54 41 20 36 33 2C 36 33 2C 1077 DATA 63,63,
013430: 32 33 2C 32 33 2C 31 35 2C 35 2C 32 2C 30 0D 0A 23,23,15,5,2,0..
013440: 31 30 37 38 20 44 41 54 41 20 32 35 34 2C 32 35 1078 DATA 254,25
013450: 33 2C 32 35 34 2C 32 35 35 2C 32 35 34 2C 32 35 3,254,255,254,25
013460: 35 2C 32 35 34 2C 33 31 0D 0A 31 30 37 39 20 44 5,254,31..1079 D
013470: 41 54 41 20 32 34 30 2C 32 34 31 2C 32 34 33 2C ATA 240,241,243,
013480: 31 31 32 2C 32 34 31 2C 31 31 35 2C 32 34 30 2C 112,241,115,240,
013490: 31 31 32 0D 0A 31 30 38 30 20 44 41 54 41 20 30 112..1080 DATA 0
0134A0: 2C 32 35 35 2C 31 39 33 2C 36 32 2C 31 32 37 2C ,255,193,62,127,
0134B0: 31 32 38 2C 37 2C 35 36 0D 0A 31 30 38 31 20 44 128,7,56..1081 D
0134C0: 41 54 41 20 34 30 2C 31 37 31 2C 31 39 39 2C 31 ATA 40,171,199,1
0134D0: 39 35 2C 31 33 31 2C 31 32 39 2C 30 2C 30 0D 0A 95,131,129,0,0..
0134E0: 31 30 38 32 20 44 41 54 41 20 30 2C 32 35 35 2C 1082 DATA 0,255,
0134F0: 31 39 33 2C 36 30 2C 32 35 34 2C 31 32 39 2C 39 193,60,254,129,9
013500: 36 2C 32 38 0D 0A 31 30 38 33 20 44 41 54 41 20 6,28..1083 DATA
013510: 36 32 2C 35 39 2C 31 34 36 2C 33 31 2C 31 33 34 62,59,146,31,134
013520: 2C 31 35 2C 31 30 2C 31 31 0D 0A 31 30 38 34 20 ,15,10,11..1084
013530: 44 41 54 41 20 32 34 30 2C 31 31 32 2C 32 30 38 DATA 240,112,208
013540: 2C 37 32 2C 32 30 30 2C 31 30 34 2C 31 38 34 2C ,72,200,104,184,
013550: 38 34 0D 0A 31 30 38 35 20 44 41 54 41 20 30 2C 84..1085 DATA 0,
013560: 30 2C 30 2C 31 2C 32 2C 36 2C 31 33 2C 32 34 0D 0,0,1,2,6,13,24.
013570: 0A 31 30 38 36 20 44 41 54 41 20 30 2C 30 2C 30 .1086 DATA 0,0,0
013580: 2C 30 2C 30 2C 30 2C 31 39 35 2C 36 30 0D 0A 31 ,0,0,0,195,60..1
013590: 30 38 37 20 44 41 54 41 20 30 2C 30 2C 30 2C 31 087 DATA 0,0,0,1
0135A0: 32 38 2C 36 34 2C 39 36 2C 31 37 36 2C 32 34 0D 28,64,96,176,24.
0135B0: 0A 31 30 38 38 20 44 41 54 41 20 32 36 2C 32 37 .1088 DATA 26,27
0135C0: 2C 31 38 2C 33 37 2C 32 32 2C 35 2C 35 38 2C 35 ,18,37,22,5,58,5
0135D0: 33 0D 0A 31 30 38 39 20 44 41 54 41 20 31 37 32 3..1089 DATA 172
0135E0: 2C 38 34 2C 31 37 32 2C 38 36 2C 31 37 30 2C 38 ,84,172,86,170,8
0135F0: 36 2C 31 37 30 2C 38 35 0D 0A 31 30 39 30 20 44 6,170,85..1090 D
013600: 30 0D 0A 31 30 37 37 20 44 41 54 41 20 38 30 2C 0..1077 DATA 80,
013610: 32 32 34 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 224,0,0,0,0,0,0.
013620: 0A 31 30 37 38 20 44 41 54 41 20 31 30 32 2C 31 .1078 DATA 102,1
013630: 31 39 2C 39 34 2C 31 30 33 2C 39 34 2C 31 32 35 19,94,103,94,125
013640: 2C 37 38 2C 31 32 35 0D 0A 31 30 37 39 20 44 41 ,78,125..1079 DA
013650: 54 41 20 31 38 34 2C 31 32 34 2C 32 35 32 2C 31 TA 184,124,252,1
013660: 30 30 2C 32 30 38 2C 38 38 2C 32 30 38 2C 36 38 00,208,88,208,68
013670: 20 0D 0A 31 30 38 30 20 44 41 54 41 20 30 2C 33 ..1080 DATA 0,3
013680: 31 2C 31 32 37 2C 30 2C 31 35 2C 35 34 2C 31 32 1,127,0,15,54,12
013690: 37 2C 30 20 0D 0A 31 30 38 31 20 44 41 54 41 20 7,0 ..1081 DATA
0136A0: 30 2C 30 2C 31 39 33 2C 32 32 37 2C 39 39 2C 39 0,0,193,227,99,9
0136B0: 39 2C 31 32 39 2C 36 36 20 0D 0A 31 30 38 32 20 9,129,66 ..1082
0136C0: 44 41 54 41 20 30 2C 31 32 30 2C 32 35 34 2C 30 DATA 0,120,254,0
0136D0: 2C 32 34 30 2C 31 30 38 2C 32 35 34 2C 30 20 0D ,240,108,254,0 .
0136E0: 0A 31 30 38 33 20 44 41 54 41 20 36 32 2C 36 33 .1083 DATA 62,63
0136F0: 2C 33 30 2C 32 33 2C 36 2C 37 2C 31 34 2C 31 33 ,30,23,6,7,14,13
013700: 20 0D 0A 31 30 38 34 20 44 41 54 41 20 32 30 38 ..1084 DATA 208
013710: 2C 38 30 2C 32 30 38 2C 31 30 34 2C 32 30 30 2C ,80,208,104,200,
013720: 37 32 2C 31 38 34 2C 38 38 20 0D 0A 31 30 38 35 72,184,88 ..1085
013730: 20 44 41 54 41 20 30 2C 30 2C 30 2C 31 2C 35 2C DATA 0,0,0,1,5,
013740: 31 33 2C 32 34 2C 34 38 20 0D 0A 31 30 38 36 20 13,24,48 ..1086
013750: 44 41 54 41 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 DATA 0,0,0,0,0,0
013760: 2C 31 39 35 2C 36 30 20 0D 0A 31 30 38 37 20 44 ,195,60 ..1087 D
013770: 41 54 41 20 30 2C 30 2C 30 2C 31 32 38 2C 31 36 ATA 0,0,0,128,16
013780: 30 2C 31 37 36 2C 32 34 2C 31 32 20 0D 0A 31 30 0,176,24,12 ..10
013790: 38 38 20 44 41 54 41 20 31 30 2C 31 31 2C 31 30 88 DATA 10,11,10
0137A0: 2C 31 31 2C 31 38 2C 31 39 2C 33 30 2C 32 31 20 ,11,18,19,30,21
0137B0: 0D 0A 31 30 38 39 20 44 41 54 41 20 31 37 32 2C ..1089 DATA 172,
0137C0: 38 34 2C 31 37 30 2C 38 36 2C 31 37 30 2C 38 36 84,170,86,170,86
0137D0: 2C 31 37 30 2C 38 35 0D 0A 31 30 39 30 20 44 41 ,170,85..1090 DA
0137E0: 54 41 20 33 32 2C 33 32 2C 37 2C 31 2C 30 2C 30 TA 32,32,7,1,0,0
0137F0: 2C 30 2C 30 20 0D 0A 31 30 39 31 20 44 41 54 41 ,0,0 ..1091 DATA
013800: 41 54 41 20 31 36 2C 30 2C 30 2C 31 2C 31 35 2C ATA 16,0,0,1,15,
013810: 37 2C 30 2C 30 0D 0A 31 30 39 31 20 44 41 54 41 7,0,0..1091 DATA
013820: 20 30 2C 30 2C 30 2C 32 35 34 2C 32 35 35 2C 32 0,0,0,254,255,2
013830: 35 35 2C 31 32 34 2C 30 0D 0A 31 30 39 32 20 44 55,124,0..1092 D
013840: 41 54 41 20 38 2C 30 2C 30 2C 33 32 2C 31 39 32 ATA 8,0,0,32,192
013850: 2C 30 2C 30 2C 30 0D 0A 31 30 39 33 20 44 41 54 ,0,0,0..1093 DAT
013860: 41 20 34 32 2C 35 33 2C 34 32 2C 35 33 2C 31 30 A 42,53,42,53,10
013870: 36 2C 38 35 2C 31 30 36 2C 32 31 33 0D 0A 31 30 6,85,106,213..10
013880: 39 34 20 44 41 54 41 20 31 37 31 2C 38 35 2C 31 94 DATA 171,85,1
013890: 37 31 2C 38 35 2C 31 37 31 2C 38 35 2C 31 37 30 71,85,171,85,170
0138A0: 2C 38 35 0D 0A 31 30 39 35 20 44 41 54 41 20 31 ,85..1095 DATA 1
0138B0: 32 38 2C 36 34 2C 33 32 2C 31 36 2C 31 30 2C 35 28,64,32,16,10,5
0138C0: 2C 31 33 31 2C 36 34 0D 0A 31 30 39 36 20 44 41 ,131,64..1096 DA
0138D0: 54 41 20 31 32 36 2C 36 36 2C 30 2C 30 2C 31 36 TA 126,66,0,0,16
0138E0: 2C 36 30 2C 32 35 35 2C 31 32 37 0D 0A 31 30 39 ,60,255,127..109
0138F0: 37 20 44 41 54 41 20 31 2C 32 2C 34 2C 38 2C 38 7 DATA 1,2,4,8,8
013900: 30 2C 31 36 30 2C 31 39 32 2C 35 0D 0A 31 30 39 0,160,192,5..109
013910: 38 20 44 41 54 41 20 31 30 36 2C 38 35 2C 31 30 8 DATA 106,85,10
013920: 36 2C 38 35 2C 31 30 36 2C 38 35 2C 31 37 30 2C 6,85,106,85,170,
013930: 38 35 0D 0A 1A 38 35 2C 31 37 35 2C 31 32 37 2C 85...85,175,127,
013940: 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 0D 255,255,255,255.
013950: 0A 31 30 36 36 20 44 41 54 41 20 31 37 30 2C 38 .1066 DATA 170,8
013960: 35 2C 32 33 39 2C 32 35 35 2C 32 35 35 2C 32 35 5,239,255,255,25
013970: 35 2C 32 35 35 2C 32 35 35 0D 0A 31 30 36 37 20 5,255,255..1067
013980: 2C 30 2C 30 2C 30 2C 31 39 35 2C 36 30 0D 0A 31 ,0,0,0,195,60..1
013990: 30 38 37 20 44 41 54 41 20 30 2C 30 2C 30 2C 31 087 DATA 0,0,0,1
0139A0: 32 38 2C 36 34 2C 39 36 2C 31 37 36 2C 32 34 0D 28,64,96,176,24.
0139B0: 0A 31 30 38 38 20 44 41 54 41 20 32 36 2C 32 37 .1088 DATA 26,27
0139C0: 2C 31 38 2C 33 37 2C 32 32 2C 35 2C 35 38 2C 35 ,18,37,22,5,58,5
0139D0: 33 0D 0A 31 30 38 39 20 44 41 54 41 20 31 37 32 3..1089 DATA 172
0139E0: 2C 38 34 2C 31 37 32 2C 38 36 2C 31 37 30 2C 38 ,84,172,86,170,8
0139F0: 36 2C 31 37 30 2C 38 35 0D 0A 31 30 39 30 20 44 6,170,85..1090 D
013A00: 20 30 2C 30 2C 32 33 39 2C 32 35 31 2C 36 30 2C 0,0,239,251,60,
013A10: 30 2C 32 2C 31 32 34 20 0D 0A 31 30 39 32 20 44 0,2,124 ..1092 D
013A20: 41 54 41 20 34 2C 34 2C 32 32 34 2C 31 32 38 2C ATA 4,4,224,128,
013A30: 30 2C 30 2C 30 2C 30 20 0D 0A 31 30 39 33 20 44 0,0,0,0 ..1093 D
013A40: 41 54 41 20 34 32 2C 35 33 2C 31 30 36 2C 38 35 ATA 42,53,106,85
013A50: 2C 31 30 36 2C 38 35 2C 31 30 36 2C 32 31 33 20 ,106,85,106,213
013A60: 0D 0A 31 30 39 34 20 44 41 54 41 20 31 37 31 2C ..1094 DATA 171,
013A70: 38 35 2C 31 37 31 2C 38 35 2C 31 37 30 2C 38 35 85,171,85,170,85
013A80: 2C 31 37 30 2C 38 35 0D 0A 31 30 39 35 20 44 41 ,170,85..1095 DA
013A90: 54 41 20 36 34 2C 33 32 2C 31 36 2C 38 2C 35 2C TA 64,32,16,8,5,
013AA0: 32 2C 31 36 31 2C 38 30 0D 0A 31 30 39 36 20 44 2,161,80..1096 D
013AB0: 41 54 41 20 30 2C 32 2C 31 32 34 2C 30 2C 30 2C ATA 0,2,124,0,0,
013AC0: 31 39 35 2C 31 38 39 2C 31 32 36 0D 0A 31 30 39 195,189,126..109
013AD0: 37 20 44 41 54 41 20 32 2C 34 2C 38 2C 31 36 2C 7 DATA 2,4,8,16,
013AE0: 31 36 30 2C 36 34 2C 31 32 38 2C 31 0D 0A 31 30 160,64,128,1..10
013AF0: 39 38 20 44 41 54 41 20 31 30 36 2C 38 35 2C 31 98 DATA 106,85,1
013B00: 30 36 2C 38 35 2C 31 30 36 2C 38 35 2C 31 37 30 06,85,106,85,170
013B10: 2C 38 35 0D 0A 1A 34 2C 30 2C 30 2C 31 39 35 2C ,85...4,0,0,195,
013B20: 31 38 39 2C 31 32 36 00 1C 00 49 04 8C 20 32 2C 189,126...I.. 2,
013B30: 34 2C 38 2C 31 36 2C 31 36 30 2C 36 34 2C 31 32 4,8,16,160,64,12
013B40: 38 2C 31 00 22 00 4A 04 8C 20 31 30 36 2C 38 35 8,1.".J.. 106,85
013B50: 2C 31 30 36 2C 38 35 2C 31 30 36 2C 38 35 2C 31 ,106,85,106,85,1
013B60: 37 30 2C 38 35 00 00 00 1A 2C 31 35 34 2C 31 38 70,85....,154,18
013B70: 33 2C 32 30 31 2C 32 31 34 0D 0A 31 30 36 37 20 3,201,214..1067
013B80: 30 2C 31 37 36 2C 32 34 2C 31 32 20 0D 0A 31 30 0,176,24,12 ..10
013B90: 38 38 20 44 41 54 41 20 31 30 2C 31 31 2C 31 30 88 DATA 10,11,10
013BA0: 2C 31 31 2C 31 38 2C 31 39 2C 33 30 2C 32 31 20 ,11,18,19,30,21
013BB0: 0D 0A 31 30 38 39 20 44 41 54 41 20 31 37 32 2C ..1089 DATA 172,
013BC0: 38 34 2C 31 37 30 2C 38 36 2C 31 37 30 2C 38 36 84,170,86,170,86
013BD0: 2C 31 37 30 2C 38 35 0D 0A 31 30 39 30 20 44 41 ,170,85..1090 DA
013BE0: 54 41 20 33 32 2C 33 32 2C 37 2C 31 2C 30 2C 30 TA 32,32,7,1,0,0
013BF0: 2C 30 2C 30 20 0D 0A 31 30 39 31 20 44 41 54 41 ,0,0 ..1091 DATA
013C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014000: 31 30 30 31 20 4E 50 3D 30 3A 4F 43 3D 30 3A 52 1001 NP=0:OC=0:R
014010: 58 3D 46 28 32 2C 41 47 29 3A 52 59 3D 46 28 31 X=F(2,AG):RY=F(1
014020: 2C 41 47 29 0D 0A 31 30 30 32 20 52 41 3D 49 4E ,AG)..1002 RA=IN
014030: 54 28 52 4E 44 2A 35 29 3A 52 5A 3D 31 32 2B 52 T(RND*5):RZ=12+R
014040: 41 3A 4D 45 3D 33 30 2B 49 4E 54 28 52 4E 44 2A A:ME=30+INT(RND*
014050: 32 30 29 3A 46 4F 52 20 59 3D 31 20 54 4F 20 32 20):FOR Y=1 TO 2
014060: 30 3A 49 46 20 59 3E 52 5A 20 54 48 45 4E 20 49 0:IF Y>RZ THEN I
014070: 3D 59 3A 47 4F 53 55 42 20 32 30 30 3A 47 4F 54 =Y:GOSUB 200:GOT
014080: 4F 20 31 30 31 33 0D 0A 31 30 30 33 20 48 28 59 O 1013..1003 H(Y
014090: 29 3D 41 42 53 28 41 50 2D 35 29 2B 49 4E 54 28 )=ABS(AP-5)+INT(
0140A0: 52 4E 44 2A 33 39 29 2F 31 30 3A 54 28 59 29 3D RND*39)/10:T(Y)=
0140B0: 31 2D 28 59 3E 31 20 41 4E 44 20 59 3C 36 29 2D 1-(Y>1 AND Y<6)-
0140C0: 28 59 3E 35 20 41 4E 44 20 59 3C 39 29 2A 32 2D (Y>5 AND Y<9)*2-
0140D0: 28 59 3E 38 20 41 4E 44 20 59 3C 31 32 29 2A 33 (Y>8 AND Y<12)*3
0140E0: 2D 28 59 3E 31 31 29 2A 49 4E 54 28 52 4E 44 2A -(Y>11)*INT(RND*
0140F0: 34 29 3A 47 4F 53 55 42 20 31 30 31 39 0D 0A 31 4):GOSUB 1019..1
014100: 30 30 34 20 47 4F 53 55 42 20 31 30 31 35 0D 0A 004 GOSUB 1015..
014110: 31 30 30 35 20 49 46 20 52 59 3D 30 20 54 48 45 1005 IF RY=0 THE
014120: 4E 20 31 30 30 39 0D 0A 31 30 30 36 20 49 46 20 N 1009..1006 IF
014130: 54 28 59 29 3D 31 20 54 48 45 4E 20 31 30 30 39 T(Y)=1 THEN 1009
014140: 0D 0A 31 30 30 37 20 49 46 20 54 28 59 29 3D 34 ..1007 IF T(Y)=4
014150: 20 54 48 45 4E 20 45 28 31 2C 59 29 3D 49 4E 54 THEN E(1,Y)=INT
014160: 28 52 4E 44 2A 28 52 59 2B 31 29 29 3A 52 59 3D (RND*(RY+1)):RY=
014170: 52 59 2D 45 28 31 2C 59 29 3A 47 4F 54 4F 20 31 RY-E(1,Y):GOTO 1
014180: 30 31 30 0D 0A 31 30 30 38 20 45 28 31 2C 59 29 010..1008 E(1,Y)
014190: 3D 30 2B 49 4E 54 20 28 52 4E 44 2A 49 4E 54 28 =0+INT (RND*INT(
0141A0: 52 59 2F 32 29 29 3A 52 59 3D 52 59 2D 45 28 31 RY/2)):RY=RY-E(1
0141B0: 2C 59 29 3A 47 4F 54 4F 20 31 30 31 30 0D 0A 31 ,Y):GOTO 1010..1
0141C0: 30 30 39 20 49 46 20 52 58 3E 30 20 54 48 45 4E 009 IF RX>0 THEN
0141D0: 20 49 46 20 54 28 59 29 3D 31 20 54 48 45 4E 20 IF T(Y)=1 THEN
0141E0: 45 28 31 2C 59 29 3D 30 2B 49 4E 54 28 52 4E 44 E(1,Y)=0+INT(RND
0141F0: 2A 28 52 58 2B 31 29 29 3A 52 58 3D 52 58 2D 45 *(RX+1)):RX=RX-E
014200: 31 30 36 34 20 44 41 54 41 20 31 37 30 2C 38 35 1064 DATA 170,85
014210: 2C 31 37 30 2C 38 35 2C 31 37 30 2C 38 35 2C 31 ,170,85,170,85,1
014220: 37 31 2C 38 37 0D 0A 31 30 36 35 20 44 41 54 41 71,87..1065 DATA
014230: 20 31 37 30 2C 38 35 2C 31 37 35 2C 31 32 37 2C 170,85,175,127,
014240: 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 0D 255,255,255,255.
014250: 0A 31 30 36 36 20 44 41 54 41 20 31 37 30 2C 38 .1066 DATA 170,8
014260: 35 2C 32 33 39 2C 32 35 35 2C 32 35 35 2C 32 35 5,239,255,255,25
014270: 35 2C 32 35 35 2C 32 35 35 0D 0A 31 30 36 37 20 5,255,255..1067
014280: 44 41 54 41 20 31 37 30 2C 38 35 2C 31 37 30 2C DATA 170,85,170,
014290: 32 34 35 2C 32 35 34 2C 32 35 35 2C 32 35 35 2C 245,254,255,255,
0142A0: 32 35 35 0D 0A 31 30 36 38 20 44 41 54 41 20 31 255..1068 DATA 1
0142B0: 37 30 2C 38 35 2C 31 37 30 2C 38 35 2C 31 37 30 70,85,170,85,170
0142C0: 2C 38 35 2C 31 37 30 2C 32 31 33 0D 0A 31 30 36 ,85,170,213..106
0142D0: 39 20 44 41 54 41 20 31 37 35 2C 39 35 2C 31 39 9 DATA 175,95,19
0142E0: 31 2C 31 32 37 2C 31 39 31 2C 31 32 37 2C 32 35 1,127,191,127,25
0142F0: 35 2C 31 32 37 0D 0A 31 30 37 30 20 44 41 54 41 5,127..1070 DATA
014300: 20 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 255,255,255,255
014310: 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 ,255,255,255,255
014320: 0D 0A 31 30 37 31 20 44 41 54 41 20 32 35 35 2C ..1071 DATA 255,
014330: 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 255,255,255,255,
014340: 32 35 35 2C 32 35 35 2C 32 35 34 0D 0A 31 30 37 255,255,254..107
014350: 32 20 44 41 54 41 20 32 35 35 2C 32 35 35 2C 32 2 DATA 255,255,2
014360: 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 31 55,255,255,255,1
014370: 32 37 2C 36 33 0D 0A 31 30 37 33 20 44 41 54 41 27,63..1073 DATA
014380: 20 32 33 34 2C 32 34 35 2C 32 35 30 2C 32 35 33 234,245,250,253
014390: 2C 32 35 30 2C 32 35 33 2C 32 35 30 2C 32 35 33 ,250,253,250,253
0143A0: 0D 0A 31 30 37 34 20 44 41 54 41 20 31 32 37 2C ..1074 DATA 127,
0143B0: 32 35 35 2C 32 35 35 2C 32 35 35 2C 31 32 37 2C 255,255,255,127,
0143C0: 32 35 35 2C 32 35 35 2C 32 34 38 0D 0A 31 30 37 255,255,248..107
0143D0: 35 20 44 41 54 41 20 32 35 35 2C 32 35 35 2C 32 5 DATA 255,255,2
0143E0: 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 55,255,255,255,2
0143F0: 35 35 2C 31 34 0D 0A 31 30 37 36 20 44 41 54 41 55,14..1076 DATA
014400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
014410: 11 00 01 00 02 09 4E E5 11 00 41 02 00 00 00 02 ......N...A.....
014420: 11 00 46 02 00 00 00 02 11 00 42 02 00 00 00 02 ..F.......B.....
014430: 11 00 47 02 00 00 00 02 11 00 43 02 00 00 00 02 ..G.......C.....
014440: 11 00 48 02 00 00 00 02 11 00 44 02 00 00 00 02 ..H.......D.....
014450: 11 00 49 02 00 00 00 02 11 00 45 02 00 00 00 02 ..I.......E.....
014460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014500: 28 31 2C 59 29 0D 0A 31 30 31 30 20 49 46 20 54 (1,Y)..1010 IF T
014510: 28 59 29 3D 31 20 54 48 45 4E 20 45 28 32 2C 59 (Y)=1 THEN E(2,Y
014520: 29 3D 28 58 28 59 29 2D 28 58 28 59 29 2F 34 29 )=(X(Y)-(X(Y)/4)
014530: 29 2B 49 4E 54 28 52 4E 44 2A 28 58 28 59 29 2F )+INT(RND*(X(Y)/
014540: 34 29 29 2B 45 28 31 2C 59 29 3A 47 4F 54 4F 20 4))+E(1,Y):GOTO
014550: 31 30 31 33 0D 0A 31 30 31 31 20 49 46 20 54 28 1013..1011 IF T(
014560: 59 29 3D 32 20 4F 52 20 54 28 59 29 3D 33 20 54 Y)=2 OR T(Y)=3 T
014570: 48 45 4E 20 45 28 32 2C 59 29 3D 45 28 31 2C 59 HEN E(2,Y)=E(1,Y
014580: 29 2B 49 4E 54 28 52 4E 44 2A 28 58 28 59 29 2F )+INT(RND*(X(Y)/
014590: 36 29 29 3A 47 4F 54 4F 20 31 30 31 33 0D 0A 31 6)):GOTO 1013..1
0145A0: 30 31 32 20 49 46 20 54 28 59 29 3D 34 20 54 48 012 IF T(Y)=4 TH
0145B0: 45 4E 20 45 28 32 2C 59 29 3D 28 58 28 59 29 2F EN E(2,Y)=(X(Y)/
0145C0: 36 29 2B 49 4E 54 28 52 4E 44 2A 28 58 28 59 29 6)+INT(RND*(X(Y)
0145D0: 2D 28 58 28 59 29 2F 32 29 29 29 2B 45 28 31 2C -(X(Y)/2)))+E(1,
0145E0: 59 29 0D 0A 31 30 31 33 20 47 4F 53 55 42 20 35 Y)..1013 GOSUB 5
0145F0: 32 35 0D 0A 31 30 31 34 20 4E 45 58 54 3A 4E 57 25..1014 NEXT:NW
014600: 3D 31 35 30 2B 49 4E 54 28 52 4E 44 2A 32 30 30 =150+INT(RND*200
014610: 29 3A 4E 57 3D 49 4E 54 28 4E 57 2F 41 50 29 3A ):NW=INT(NW/AP):
014620: 4E 56 3D 32 30 30 2B 49 4E 54 28 52 4E 44 2A 33 NV=200+INT(RND*3
014630: 30 30 29 3A 4E 56 3D 49 4E 54 28 4E 56 2F 41 50 00):NV=INT(NV/AP
014640: 29 3A 41 49 3D 31 35 30 30 30 30 2B 49 4E 54 28 ):AI=150000+INT(
014650: 52 4E 44 2A 28 35 30 30 30 30 30 2F 41 50 29 29 RND*(500000/AP))
014660: 3A 4E 46 3D 28 35 30 30 30 2B 49 4E 54 28 52 4E :NF=(5000+INT(RN
014670: 44 2A 33 30 30 30 29 29 2F 41 50 3A 4E 50 3D 49 D*3000))/AP:NP=I
014680: 4E 54 28 4E 50 2B 4E 41 2B 4E 46 29 3A 47 4F 53 NT(NP+NA+NF):GOS
014690: 55 42 20 33 33 32 3A 52 45 54 55 52 4E 0D 0A 31 UB 332:RETURN..1
0146A0: 30 31 35 20 56 28 31 2C 59 29 3D 49 4E 54 28 56 015 V(1,Y)=INT(V
0146B0: 28 31 2C 59 29 2F 48 56 29 3A 56 28 31 2C 59 29 (1,Y)/HV):V(1,Y)
0146C0: 3D 49 4E 54 28 56 28 31 2C 59 29 2B 41 42 53 28 =INT(V(1,Y)+ABS(
0146D0: 56 28 31 2C 59 29 3C 35 30 29 2A 28 35 30 2D 41 V(1,Y)<50)*(50-A
0146E0: 42 53 28 56 28 31 2C 59 29 29 29 29 0D 0A 31 30 BS(V(1,Y))))..10
0146F0: 31 36 20 4E 50 3D 49 4E 54 28 4E 50 2B 56 28 31 16 NP=INT(NP+V(1
014700: EA 6B AA C8 57 DA 1D CF B8 FD 41 01 3B D4 27 36 .k..W.....A.;.'6
014710: 3F 45 BC 31 FD 74 AD 1A 9E 58 EF A1 E6 3D 6A 30 ?E.1.t...X...=j0
014720: 99 4D 03 39 60 4C 94 B3 B7 FE 03 A8 01 65 1F 4C .M.9`L.......e.L
014730: 1C 71 4F 88 35 C1 C7 42 DA 1E 68 C8 A0 C0 BA 0C .qO.5..B..h.....
014740: 7E E7 C5 4A C7 92 98 07 DE C0 EE 89 A5 C3 0B AB ~..J............
014750: 8B 14 42 4B 13 EE 1F 2C 80 F4 B1 12 B3 AF E8 87 ..BK...,........
014760: 0C 20 2C 90 83 52 4A A4 D4 96 F1 32 31 37 81 78 . ,..RJ....217.x
014770: A5 CC 9E 73 81 C8 B5 A0 12 FF 95 0F 36 FF 3C 62 ...s........6.<b
014780: A6 2C ED 88 8F 1E D1 C4 82 C8 8E 24 36 D4 6D 9F .,.........$6.m.
014790: F0 B2 12 38 F6 AC A7 2C 73 7A AD 73 2B 21 43 19 ...8...,sz.s+!C.
0147A0: D2 82 02 F0 01 89 7B E9 B7 F3 69 5C 61 85 F0 43 ......{...i\a..C
0147B0: 89 6C AC AD CA 84 50 B1 06 E0 C9 C0 A0 C0 BA 07 .l....P.........
0147C0: 67 E6 21 65 0C 48 27 0F CD 99 EE EB 4D 37 5E AB g.!e.H'.....M7^.
0147D0: 2B 56 B8 DB 1E EE AA 4E 3A DD 4D 3A AA D1 E8 40 +V.....N:.M:...@
0147E0: 0C 20 2C 90 83 50 A4 8D 09 B3 FC 32 5B A2 80 81 . ,..P.....2[...
0147F0: 94 1F 4A 54 A5 E1 B4 CF F0 0B FC E0 D9 84 81 97 ..JT............
014800: A6 2C ED 8B 89 D8 26 F9 9A 16 7A 8A 3B B6 6D F6 .,....&...z.;.m.
014810: 04 44 EB FE FD 1B CC 65 35 3D 84 C9 96 7C 27 7E .D.....e5=...|'~
014820: 83 DD 51 A4 36 3C B6 E5 B4 F3 03 45 8F AA B1 06 ..Q.6<.....E....
014830: A1 C1 16 82 CB 89 31 53 81 FE 26 E7 59 3F B6 45 ......1S..&.Y?.E
014840: 6C 4D 22 73 36 9B 06 2A C0 99 9C 6B 40 CC A7 54 lM"s6..*...k@..T
014850: 27 1C A3 6A E5 FD 83 2D D4 F4 BC 60 50 2A 13 9C '.£j...-...`P*..
014860: FE 2C 04 05 32 50 AC B5 D5 9A FC 32 5B B1 94 98 .,..2P.....2[...
014870: 8A C2 41 57 A4 37 F0 34 E9 1A B1 0E 3B 9D D8 EC ..AW.7.4....;...
014880: 12 C3 F4 AB 98 C8 33 C4 64 9A 8C 15 2D FD 6C 3C ......3.d...-.l<
014890: 04 1B 03 75 DF 54 8F 21 1D 99 23 8E DD 30 04 D3 ...u.T.!..#..0..
0148A0: 27 A7 0F F0 60 05 77 0A B9 DA 02 36 40 85 F0 43 '...`.w....6@..C
0148B0: 01 61 4C 80 26 A4 28 47 F2 12 C9 E8 5B E8 AA 41 .aL.&.(G....[..A
0148C0: 9E 08 D4 83 05 5D 0A 27 C0 6F C6 99 83 CE 53 AB .....].'.o....S.
0148D0: C2 1D A8 07 1E EE AA DA F1 E4 90 1F B3 C5 F5 41 ...............A
0148E0: EF 2E 05 FB C7 A7 30 84 57 B9 C8 10 77 DA 15 77 ......0.W...w..w
0148F0: 8F 36 DB 5B 13 E8 AB 2B F3 0B 86 0F 5E 9D 79 B6 .6.[...+....^.y.
014900: 2C 59 29 29 3A 56 28 32 2C 59 29 3D 32 30 2B 49 ,Y)):V(2,Y)=20+I
014910: 4E 54 28 52 4E 44 2A 35 36 29 3A 45 28 31 2C 59 NT(RND*56):E(1,Y
014920: 29 3D 30 3A 58 28 59 29 3D 33 30 2B 49 4E 54 28 )=0:X(Y)=30+INT(
014930: 52 4E 44 2A 28 28 28 47 28 59 29 2D 31 37 29 2A RND*(((G(Y)-17)*
014940: 33 30 29 2D 33 30 29 29 0D 0A 31 30 31 37 20 45 30)-30))..1017 E
014950: 28 32 2C 59 29 3D 30 3A 52 41 3D 2D 33 2B 49 4E (2,Y)=0:RA=-3+IN
014960: 54 28 52 4E 44 2A 31 37 29 3A 52 41 3D 52 41 2B T(RND*17):RA=RA+
014970: 41 42 53 28 52 41 3C 30 29 2A 41 42 53 28 52 41 ABS(RA<0)*ABS(RA
014980: 29 2D 41 42 53 28 52 41 3E 39 29 2A 41 42 53 28 )-ABS(RA>9)*ABS(
014990: 52 41 2D 39 29 3A 45 28 33 2C 59 29 3D 52 41 3A RA-9):E(3,Y)=RA:
0149A0: 47 4F 53 55 42 20 39 38 3A 56 24 28 59 29 3D 43 GOSUB 98:V$(Y)=C
0149B0: 48 52 24 28 5A 39 29 2B 22 2E 22 2B 4D 49 44 24 HR$(Z9)+"."+MID$
0149C0: 28 48 24 2C 52 43 2C 31 29 2B 4D 49 44 24 28 4D (H$,RC,1)+MID$(M
0149D0: 24 2C 52 42 2C 31 29 2B 4D 49 44 24 28 48 24 2C $,RB,1)+MID$(H$,
0149E0: 52 44 2C 31 29 2B 45 24 28 52 41 29 3A 76 24 28 RD,1)+E$(RA):v$(
0149F0: 79 29 3D 76 24 28 79 29 2B 53 50 41 43 45 24 28 y)=v$(y)+SPACE$(
014A00: 38 2D 4C 45 4E 28 76 24 28 79 29 29 29 0D 0A 31 8-LEN(v$(y)))..1
014A10: 30 31 38 20 52 45 54 55 52 4E 0D 0A 31 30 31 39 018 RETURN..1019
014A20: 20 4F 43 3D 4F 43 2D 28 54 28 59 29 3D 31 29 3A OC=OC-(T(Y)=1):
014A30: 47 28 59 29 3D 31 38 2B 49 4E 54 28 52 4E 44 2A G(Y)=18+INT(RND*
014A40: 31 38 29 3A 56 28 31 2C 59 29 3D 31 2B 49 4E 54 18):V(1,Y)=1+INT
014A50: 28 52 4E 44 2A 32 30 29 2B 35 30 3A 56 28 31 2C (RND*20)+50:V(1,
014A60: 59 29 3D 49 4E 54 28 56 28 31 2C 59 29 29 2A 49 Y)=INT(V(1,Y))*I
014A70: 4E 54 28 48 28 59 29 29 2B 41 42 53 28 48 28 59 NT(H(Y))+ABS(H(Y
014A80: 29 3E 39 2E 36 29 2A 31 30 30 30 3A 48 56 3D 47 )>9.6)*1000:HV=G
014A90: 28 59 29 2D 32 37 3A 48 56 3D 48 56 2B 41 42 53 (Y)-27:HV=HV+ABS
014AA0: 28 48 56 3C 31 29 2A 28 41 42 53 28 48 56 29 2B (HV<1)*(ABS(HV)+
014AB0: 31 29 3A 52 45 54 55 52 4E 0D 0A 1A F6 1A E8 03 1):RETURN.......
014AC0: 01 0D 00 00 48 D6 EF 0D 00 00 C7 28 0D 00 00 D9 ....H......(....
014AD0: 29 F5 19 1B 01 0D 00 00 48 D6 EF 0D 00 00 48 D6 ).......H.....H.
014AE0: F4 FF 00 28 0D 00 00 48 D6 F1 0F 29 F6 28 FF 00 ...(...H...).(..
014AF0: 28 0D 00 00 48 D6 29 F4 0F 29 01 C9 00 00 00 1A (...H.)..)......
014B00: A6 2C ED 89 9A D8 30 CC 67 FF 77 0C 3B B7 9C 1A .,....0.g.w.;...
014B10: 0B 64 E8 31 C1 35 8F 21 6C 7A A5 83 7C 10 67 30 .d.1.5.!lz..|.g0
014B20: D3 EC F2 1F 6F 4B 7F C4 BA F3 03 CB 89 67 E9 7F ....oK.......g..
014B30: E9 2E 63 BE A6 84 31 5C F3 75 C9 6D 8D 6B 98 0C ..c...1\.u.m.k..
014B40: B1 24 CE 98 2F B2 1D 27 AC 99 E3 89 AF A0 A2 44 .$../..'.......D
014B50: 25 35 51 2F 13 8D 5C C3 D7 F5 1C 32 AD 59 1D 68 %5Q/..\....2.Y.h
014B60: 28 20 51 FA D6 86 B8 A4 FC F8 00 DD 54 E3 9B 57 ( Q.........T..W
014B70: 88 36 BE 29 6D 27 4A CE D8 F4 DD F9 2F 97 F1 62 .6.)m'J...../..b
014B80: B2 4C EC 4A 4C 29 BF EC 9B F5 7A 72 3B 4A 4D F8 .L.JL)....zr;JM.
014B90: 04 44 EA FE D0 79 63 01 65 7B 6D A3 D0 30 6A DD .D...yc.e{m£.0j.
014BA0: FB 82 02 F0 89 42 7B E9 B7 F3 71 49 40 63 D0 5D .....B{...qI@c.]
014BB0: 74 8E 43 A6 CA FB 31 E3 F3 26 C9 68 AD 5E 9A 60 t.C...1..&.h.^.`
014BC0: 93 08 2D 85 23 92 EB 07 D6 98 4F A9 A2 C3 53 46 ..-.#.....O...SF
014BD0: 03 39 5C 2F EA C7 45 22 F9 1F 9C 1F B3 C5 F1 40 .9\/..E".......@
014BE0: 0C 20 2C 03 5E 49 B8 A4 FC E9 10 33 FB E3 6E EA . ,.^I.....3..n.
014BF0: 85 36 B6 5B 0D C8 05 C3 39 0B 80 0F BA 9D 79 B6 .6.[....9.....y.
014C00: A6 2C ED 8E 98 D8 31 CC 70 FF 77 0C 3B B7 9E 1A .,....1.p.w.;...
014C10: 0A 44 1D 11 52 59 82 21 73 19 3A 6C D2 31 CB 10 .D..RY.!s.:l.1..
014C20: DE 8F 02 94 94 84 9B C4 5C D3 A3 88 7E 15 F1 43 ........\.£.~..C
014C30: 83 8E CD A0 C7 84 31 30 00 F0 36 E9 85 6C 92 6E ......10..6..l.n
014C40: 93 08 35 42 21 B2 07 4A 31 B5 E3 89 AF AE A1 82 ..5B!..J1.......
014C50: 07 2D 51 03 1C C7 83 D9 C0 C4 BD 1F B3 C5 7F 9B .-Q.............
014C60: EE 2D 2C FA 14 55 40 5B FC B3 FC 32 5B A0 83 98 .-,..U@[...2[...
014C70: 9C 28 97 AD 95 D1 B4 5D D0 15 05 0E 37 9E D8 96 .(.....]....7...
014C80: 49 C3 41 C2 6F 37 3F 0D B3 D2 7A 0C 56 25 41 F8 I.A.o7?...z.V%A.
014C90: 04 44 6E E3 F6 75 9F 0D 64 53 CC B2 DD BF 6A 3D .Dn..u..dS....j=
014CA0: D3 8F 60 1B 8F 64 60 1B B7 DB FC A9 48 77 85 6B ..`..d`.....Hw.k
014CB0: EB 8E 43 41 E2 89 31 53 9E EE E5 E5 AD C0 D7 9F ..CA..1S........
014CC0: BA 24 DB 43 05 5D 1E 66 E9 98 27 89 89 C3 C4 AB .$.C.].f..'.....
014CD0: 26 34 5C 4D F8 01 A7 2C D9 96 57 E6 9B C8 1C 68 &4\M...,..W....h
014CE0: 63 CB C3 EA 5E 53 9D A9 FC 9B 93 D9 B4 CC 59 76 c...^S........Yv
014CF0: 4C 36 92 5B 14 C8 14 E2 FD 0B 98 6C C6 72 D7 B6 L6.[.......l.r..
014D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014F00: 40 0C E0 EA 6C 54 CC 03 94 DE 77 0C 3B B6 86 1A @...lT....w.;...
014F10: 14 45 9C 31 C1 C4 8E 20 D3 5A D2 1F DD 30 5F 30 .E.1... .Z...0_0
014F20: 49 8F A3 D0 6D 6B 94 86 52 1D 0D 88 8B A8 EE D8 I.£.mk..R.......
014F30: E8 AE 42 37 EA 89 31 53 B0 C7 26 E7 58 CD BA 6D ..B7..1S..&.X..m
014F40: D9 DC D5 67 2C B2 64 CE 2F 94 EE 89 CC 2A A7 A4 ...g,.d./....*..
014F50: 2A FD 5C 7D 13 75 AA 21 D9 F4 DF E3 5C CA 1D 65 *.\}.u.!....\..e
014F60: 01 20 4F 09 98 A9 B4 A9 FC 9B 93 D9 B4 CC 71 E8 . O...........q.
014F70: A5 28 1E 5A 8D 57 95 DC 6D 0A 99 AE 16 90 D8 96 .(.Z.W..m.......
014F80: CC D6 02 F8 4C CB 1F E1 9B DF 1D F6 D4 C0 4D 09 ....L.........M.
014F90: 24 49 03 11 B8 A3 60 37 53 91 EC 8E DD 30 08 DB $I...£`7S....0..
014FA0: 3C 9F 03 39 60 76 94 78 B7 FE 03 A8 12 69 1F 5A <..9`v.x.....i.Z
014FB0: 89 7A BC AC E2 7B 74 A5 EA 15 E0 E9 0D E0 A4 13 .z...{t.........
014FC0: 93 08 C3 6A B1 B2 04 27 C0 72 01 8A AF C3 AA 83 ...j...'.r......
014FD0: 26 34 5C 5D F2 C7 AB E5 D9 97 BC 8C B3 C8 1C 68 &4\]...........h
014FE0: 67 4C 4D 1D 98 A8 B4 3A DC 96 F1 32 B2 2C 61 57 gLM....:...2.,aW
014FF0: 69 16 AB 7B 6A E8 A5 C3 51 2B 95 0F 36 FA 22 79 i..{j...Q+..6."y
015000: A6 2C ED 03 4C DC 1F E1 9B DF 1C 60 5A 33 82 FA .,..L......`Z3..
015010: 05 49 03 11 36 B6 9A 20 7E 7A CC E9 3F DF 67 30 .I..6.. ~z..?.g0
015020: D3 7D 03 FD 60 6B FE 07 58 FE 03 A8 93 89 FD 43 .}..`k..X......C
015030: E8 E9 B9 4F C7 84 31 34 09 EB C6 E8 BB C0 25 6D ...O..14......%m
015040: 23 09 75 4A 21 B2 07 41 AC F8 09 A9 44 E3 4D FC #.uJ!..A....D.M.
015050: 2B 34 64 2F B3 EE 0B 0C D4 F4 BC 78 51 2B 11 68 +4d/.......xQ+.h
015060: 01 4A CF DA 9C 86 B8 A4 FC FC 0B DD 56 C3 70 10 .J..........V.p.
015070: 7F C2 B1 5A 81 C8 B5 A8 13 E4 96 0E 3B 9D D8 FC ...Z........;...
015080: 49 C3 E3 EB CC 17 21 BB 9B DF 40 0C 9A D4 CC D5 I.....!...@.....
015090: 09 44 03 7B 3D A8 82 21 73 10 2F A3 36 10 67 30 .D.{=..!s./£6.g0
0150A0: D3 E8 F8 1F 6E 6A 99 E4 B7 91 E6 47 6E 89 FD 43 ....nj.....Gn..C
0150B0: E8 E4 A1 4F C4 85 3C 53 F3 75 2A 07 A3 C1 1A 4D ...O..<S.u*.£..M
0150C0: 8D 5F D4 6A 74 B2 A5 27 61 B9 E3 89 AF A9 B1 44 ._.jt..'a......D
0150D0: 26 34 5C 45 F0 CE 50 0C F1 F9 BC 12 D9 27 E9 65 &4\E..P......'.e
0150E0: 01 20 DE D3 86 AB B5 A4 0F BB 0B 12 56 C3 70 10 . ..........V.p.
0150F0: 7F D8 A9 7B 67 E8 B8 C2 F0 6C 62 E0 38 9C D5 96 ...{g....lb.8...
015100: AA 8C CD F4 EA 34 3F C5 9B C0 7A AD 1B D7 6D F5 .....4?...z...m.
015110: E0 AB 21 42 FD A3 AF 2C 73 7A A2 6D 33 3E 4A DB ..!B.£.,sz.m3>J.
015120: F3 8C 02 F0 84 84 B6 B5 95 F2 A3 88 7E 0E F3 43 ..........£.~..C
015130: BC 8E 63 A0 6B A4 32 53 F3 FB 26 CA E8 E2 9A 97 ..c.k.2S..&.....
015140: B3 05 D4 6A 42 5E E8 28 E0 72 CE 28 8F CE 53 AB ...jB^.(.r.(..S.
015150: 46 C3 B3 21 33 12 8A 21 D9 F4 D1 EA 5C CB 3C 94 F..!3..!....\.<.
015160: 21 2D 2C FA 1A 5F 5A AA DC 67 D1 3F 5B C3 1D 8D !-,.._Z..g.?[...
015170: 6A 38 9E B0 AC CB B5 C2 14 E4 BA 44 14 9C 78 B6 j8.........D..x.
015180: B5 AA EE EA 54 37 1E EC 3A FF 79 0C 3B 30 82 D7 ....T7..:.y.;0..
015190: 43 66 23 EB FF 54 8F 21 10 93 22 9A CE 10 90 10 Cf#..T.!..".....
0151A0: DE 8F 02 93 90 84 9A C4 5C D3 00 A8 60 6C 1F 61 ........\...`l.a
0151B0: 85 AC 42 00 EA 9A B7 50 D3 3F E9 E8 B2 C0 98 6D ..B....P.?.....m
0151C0: 32 28 D7 6A 2C 56 E8 05 81 BB 05 A9 AC C3 53 4F 2(.j,V........SO
0151D0: C4 16 33 0D 12 4E 8A 32 5F F7 BC 32 B3 E6 1C C9 ..3..N.2_..2....
0151E0: 21 23 2C FA 93 49 97 EB DE 70 D1 31 5B C3 94 98 !#,..I...p.1[...
0151F0: A7 44 8F 79 8D 68 95 DC 76 08 98 10 36 B9 D8 37 .D.y.h..v...6..7
015200: 8B 2F ED EA 88 D8 1D A4 B9 34 5A 0F 3B D4 89 1A ./.......4Z.;...
015210: 26 30 21 10 7F 79 91 A7 70 7A F1 83 F8 30 CB 10 &0!..y..pz...0..
015220: D0 8F 02 14 8F 49 C6 C6 97 09 23 A5 60 88 9E A0 .....I....#.`...
015230: 07 80 63 5A EA 89 31 53 9C EE 26 E6 8D 2B 9A 4D ..cZ..1S..&..+.M
015240: 9E 08 D4 04 D9 5D 17 26 C3 99 EE 6D 40 E1 3F 89 .....].&...m@.?.
015250: 2A 94 7C 31 95 ED AA 1D D9 D2 BC B3 93 C6 1C 68 *.|1...........h
015260: E5 CF 0E AA 55 86 4F 84 F1 9B F1 5C B8 2D 7E 57 ....U.O....\.-~W
015270: 7F 16 B3 5B 8C A7 44 2D FE 2B 73 2F B5 BD C4 95 ...[..D-.+s/....
015280: 10 2D 4D CA 72 EB 3F EC 91 DF 5D 0C 9B F4 73 E3 .-M.r.?...]...s.
015290: 04 44 C9 11 F7 59 26 01 7E 7A CC E6 2E 1C 67 30 .D...Y&.~z....g0
0152A0: D3 EA F0 F1 DF 4B 97 E4 B7 83 E2 80 74 A1 CB 61 .....K......t..a
0152B0: AF C1 02 EC 81 C1 74 03 B6 4D E9 CA 96 CD BA 6D ......t..M.....m
0152C0: D1 C9 D5 C3 0C BF 07 27 A5 6A C2 84 AF C3 36 59 .......'.j....6Y
0152D0: DF 3B 5D 90 33 ED AA 2C A9 15 94 01 9A FE 3E 2C .;].3..,......>,
0152E0: 44 66 69 B4 34 E3 95 84 DC BB D3 09 56 C3 70 15 Dfi.4.......V.p.
0152F0: 66 37 17 7B 81 C8 B5 A7 03 27 95 0F 36 F8 2A 62 f7.{.....'..6.*b
015300: AB 4E 08 05 62 36 32 EC 9B B5 98 E3 35 D5 60 F5 .N..b62.....5.`.
015310: 04 2E E0 FE D1 58 2F 01 6D 2D CC 83 8B 30 C9 30 .....X/.m-...0.0
015320: 72 AF 0F F0 60 01 76 0B BA F3 03 C2 83 A8 0A 63 r...`.v........c
015330: C0 83 43 A0 A0 66 C4 5E F3 1F 3B C1 43 CD BA 6D ..C..f.^..;.C..m
015340: 60 28 2E 4A 21 B2 07 40 3A 68 F9 A9 44 E3 5E AB `(.J!..@:h..D.^.
015350: 2B 53 A6 C0 1E EE AA 4B 23 00 B3 13 BE C5 1C 02 +S.....K#.......
015360: E3 CF 22 FB 7A A6 B5 CE 1F 74 FF 33 FB E3 6E 20 ..".z....t.3..n
015370: 85 36 84 5B 2A C8 B8 C2 F0 79 77 E0 27 69 27 9A .6.[*....yw.'i'.
015380: 83 D3 A8 1C 7D 1E 3E E1 9B DF 08 ED D4 C4 99 0A ....}.>.........
015390: 08 6C FC 54 29 4B A6 20 D2 5A C1 83 DD 42 85 DF .l.T)K. .Z...B..
0153A0: DE 8F 02 82 81 4B 7F C4 A9 55 03 A8 35 88 57 43 .....K...U..5.WC
0153B0: 41 AE 5A B6 E6 9D 22 52 4C 3D 99 AD E3 81 F6 39 A.Z..."RL=.....9
0153C0: DA 4D 87 48 17 5F 27 05 E3 BB D5 84 AF C3 21 4A .M.H._'.......!J
0153D0: 10 35 E3 0D 3E CC 91 C1 F9 D6 9F 30 88 C8 1C 68 .5..>......0...h
0153E0: 73 CF 2D F7 77 A6 DF 46 13 96 F1 32 29 22 71 7A s.-.w..F...2)"qz
0153F0: 85 36 D4 B8 63 C5 B5 C2 82 E4 99 AF 16 83 78 96 .6..c.........x.
015400: AB 9D ED 22 6C 34 3F EC 6D F7 77 0C 3B 3D 44 1A ..."l4?.m.w.;=D.
015410: FB 52 2B 07 F6 58 82 21 73 8E E4 8E DD 30 83 19 .R+..X.!s....0..
015420: 3C 81 03 FD 60 6B 7C CC BA F3 03 41 49 67 FE 42 <...`k|....AIg.B
015430: E5 8E 43 4A E2 89 31 53 1A 36 26 F1 8D C1 B7 6D ..CJ..1S.6&....m
015440: 93 FD FC 67 2C B2 EE 0E 2F 97 EF 84 AF C3 AB 83 ...g,.../.......
015450: 26 34 5C C6 3A 01 A4 2D D4 F4 BC F7 9B CA 30 65 &4\.:..-......0e
015460: 01 20 C5 D3 98 A8 B4 A9 FC 9B 14 1A 4B EF 7D 77 . ..........K.}w
015470: 85 DF 97 B4 82 C9 B8 C2 F0 EE B0 1E 1A 90 D8 96 ................
015480: 42 05 02 E4 6D 3A 3F EC 6D F7 75 20 36 D4 6D 1C B...m:?.m.u 6.m.
015490: 2D AB 0D 10 D2 59 8F D7 5B 6A E0 8E DD 30 83 19 -....Y..[j...0..
0154A0: 3C 81 03 FD 60 6B 73 CC BA F3 03 41 49 67 FE 42 <...`ks....AIg.B
0154B0: 21 8E 79 A0 18 84 BB 52 F1 1F C9 09 42 E8 45 6C !.y....R....B.El
0154C0: BB F7 A1 42 2F B2 07 D1 E8 94 EE 89 C6 21 7A 87 ...B/........!z.
0154D0: 24 1D 75 DA 0A AF 83 DB CA F5 1D 32 B1 C5 1C 89 $.u........2....
0154E0: EF 32 0C 11 57 A4 B5 A4 1D 74 E3 32 42 C3 A3 77 .2..W....t.2B.£w
0154F0: 00 16 15 7B 8F C8 B5 AA 95 6A 7C 27 34 9D D8 77 ...{.....j|'4..w
015500: BB 2D 52 CA 6F 37 3F 9C 7A F7 6A 25 00 F6 20 BC .-R.o7?.z.j%.. .
015510: 40 02 4A 54 93 1D AF 01 53 58 F7 8E DD 30 08 D2 @.JT....SX...0..
015520: D2 26 22 FD 60 6B F1 17 9B FE 03 A8 05 7A 04 63 .&".`k.......z.c
015530: F9 8F FC 80 C9 84 31 23 12 37 D8 C1 96 E2 FB 39 ......1#.7.....9
015540: C7 49 97 21 0C 92 27 07 E0 BB D5 84 AF C3 31 4F .I.!..'.......1O
015550: 10 37 5C 2F 63 0F 82 23 F0 F5 75 12 FB C5 35 68 .7\/c..#..u...5h
015560: A8 00 21 FA 77 C3 46 50 F3 B7 FC 32 5B A6 82 83 ..!.w.FP...2[...
015570: 90 37 01 79 CA 87 E7 8F B1 5F D1 40 78 BF D9 3F .7.y....._.@x..?
015580: 8B 21 ED EA 09 C4 CB FE B7 D2 7A 0C 5E 26 99 E3 .!........z.^&..
015590: 05 FB 23 12 DF 59 DF E0 5B 75 E5 B8 D0 30 6A 5D ..#..Y..[u...0j]
0155A0: 26 8E CB F0 70 6B BE E4 32 D3 A8 88 42 E9 93 61 &...pk..2...B..a
0155B0: C4 97 68 A0 DF 84 1A 53 6C 3F D7 01 AE C1 3F 4D ..h....Sl?....?M
0155C0: 38 28 F6 08 0E 9E 1E 0B C0 80 EE A5 AF 5C 73 B5 8(...........\s.
0155D0: C2 37 5D 2C 13 EE 4E C3 FB 9D 9E 13 13 E5 02 EE .7],..N.........
0155E0: 02 20 14 FA 5A A6 1C 84 E5 88 DD 3D 5A 62 50 7A . ..Z......=ZbPz
0155F0: 85 36 DD B2 63 D1 83 E2 0C 2B 95 0F 36 FE 31 79 .6..c....+..6.1y
015600: B2 16 CD 01 4C 88 1D BB DE 92 38 40 7E 8D 4F F4 ....L.....8@~.O.
015610: 09 44 03 73 34 B6 9F 20 BA 7A EF 83 F3 30 CB 10 .D.s4.. .z...0..
015620: DE 8F 02 92 8B 84 9B C4 5C D3 BC 8A 28 C7 BD 06 ........\...(...
015630: CA AE 42 37 EA 3B 13 12 A4 5E 90 CA AD C6 BA 42 ..B7.;...^.....B
015640: 93 C1 D4 61 2C 80 07 2A C0 99 04 66 A0 C3 5C AB ...a,..*...f..\.
015650: 18 34 D9 0F B8 CC CB 4D FB D8 A5 26 B3 D3 1C 5C .4.....M...&...\
015660: 01 BF 0C E4 9E A5 B4 21 DC 30 D1 10 6C F3 52 5B .......!.0..l.R[
015670: 9C 00 BE 77 8C FE B5 5D D0 15 95 0B 37 90 D8 96 ...w...]....7...
015680: 61 C3 E0 EA 6C FD CB FC 9A 7E 5A 01 3B D4 A7 1A a...l....~Z.;...
015690: 15 64 E8 31 C1 6A 8F 01 72 ED EC 9D DB 30 6A 22 .d.1.j..r....0j"
0156A0: D3 B3 02 51 40 66 94 E4 F0 29 EC BF 40 63 D0 8A ...Q@f...)..@c..
0156B0: E8 CE 43 9D CA 25 11 5E F3 1F 8B 23 42 CF 9A 86 ..C..%.^...#B...
0156C0: B3 A1 F4 73 30 9E 1E 33 C1 26 CE AB EE 84 14 89 ...s0..3.&......
0156D0: 10 D9 7E 0C 30 CC 91 21 D9 F4 F6 D0 88 C4 A3 48 ..~.0..!......£H
0156E0: 23 0D 0E C1 9A 84 96 86 C7 96 F1 32 11 00 71 BE #..........2..q.
0156F0: 85 02 BE 65 8C 61 95 DB EC 27 81 1B 37 22 F8 B4 ...e.a...'..7"..
015700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
015710: 12 00 01 00 02 09 4E E5 12 00 41 02 00 00 00 02 ......N...A.....
015720: 12 00 46 02 00 00 00 02 12 00 42 02 00 00 00 02 ..F.......B.....
015730: 12 00 47 02 00 00 00 02 12 00 43 02 00 00 00 02 ..G.......C.....
015740: 12 00 48 02 00 00 00 02 12 00 44 02 00 00 00 02 ..H.......D.....
015750: 12 00 49 02 00 00 00 02 12 00 45 02 00 00 00 02 ..I.......E.....
015760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015800: 82 00 F4 3E 6C A6 3F 38 9B 18 5A 12 13 D0 6C 6B ...>l.?8..Z...lk
015810: 24 49 03 11 31 B6 96 FC 53 96 EC 9A 22 31 F4 10 $I..1...S..."1..
015820: DE 8F 02 08 8F 64 B4 08 97 E5 02 6B 40 85 F0 43 .....d.....k@..C
015830: 92 3F 6B AD CA 84 C9 7A F2 AF C8 27 8D CD BA 6D .?k....z...'...m
015840: 7D 24 D9 6A 2C C8 B6 0F CF B0 C2 84 AF C3 29 1A }$.j,.........).
015850: 03 24 75 03 1E EE AA 56 68 DC AD 3B 9F C8 1C 68 .$u....Vh..;...h
015860: 7B 91 04 E8 5E 8A B8 A4 FC E1 40 1A 48 EA 5C 7A {...^.....@.H.\z
015870: 85 36 C4 EA A4 DC 9C EE FD 0B 98 75 87 B5 CD BF .6.........u....
015880: 87 21 ED EA 16 86 17 FA B2 DE CA 0D 84 F4 6E F5 .!............n.
015890: 04 22 62 72 3A 59 80 21 AB 7A 49 A3 76 12 18 12 ."br:Y.!.zI£v...
0158A0: FF 95 FC F3 60 61 94 3D B7 53 23 B6 B2 88 F0 45 ....`a.=.S#....E
0158B0: E8 54 43 69 CA B0 31 8F F3 12 C9 E8 DF 21 55 62 .TCi..1......!Ub
0158C0: 67 F7 D8 42 D3 F7 F1 3E 08 B0 EF 28 8F CE 53 AB g..B...>...(..S.
0158D0: 59 D5 AE 39 33 05 8A 32 3F F4 9C 13 24 E5 99 48 Y..93..2?...$..H
0158E0: AA 02 1A CD 55 8A AC 79 FC 91 F1 EF 5B 63 50 69 ....U..y....[cPi
0158F0: 98 32 BE DE 8C 2E B5 CF F0 0B FB F9 D9 90 D8 96 .2..............
015900: C8 DA 18 15 6C 1F 32 EC 9B BC 8C E3 34 F4 97 D5 ....l.2.....4...
015910: 09 44 03 70 BE B8 60 2E 5A 7B C1 83 DD 5F 9E DF .D.p..`.Z{..._..
015920: DD 8E 0F F0 60 04 67 0B B9 F2 0E A8 60 EE 9C 22 ....`.g.....`.."
015930: 0F 61 4D A1 54 A4 3C 53 F3 F6 26 F1 A1 E0 56 4D .aM.T.<S..&...VM
015940: 8A 3E F4 8C 0C A7 06 86 E0 94 EE 89 CC 2A BC A6 .>...........*..
015950: 2B 34 B5 0F E9 CE A7 2C D9 97 4A FD BC E5 F7 48 +4.....,..J....H
015960: 0C 20 2C 13 98 BF 83 A5 F1 9B F1 54 37 A2 97 98 . ,........T7...
015970: 95 37 1E 7B 92 20 B5 C2 FA 0B 7F 0F A9 BD C6 46 .7.{. .........F
015980: AC 2C C6 EA 84 37 8F ED 3A FF 77 0C 3B B2 01 94 .,...7..:.w.;...
015990: E3 AB 13 31 34 79 91 0B 73 5A CD 14 FD 91 4A 3D ...14y..sZ....J=
0159A0: D3 8F 64 9C 01 8C B4 0F 97 ED EF A8 60 C5 F0 AA ..d.........`...
0159B0: E8 83 43 A0 AC E8 50 B4 1C 11 C8 76 8D CD BA 6D ..C...P....v...m
0159C0: 7A E7 CD 7A 0C 5E 27 3E FA B9 08 A9 BA C2 F2 8B z..z.^'>........
0159D0: 26 34 5C 4C FA 01 A7 2C D9 1D 9C E8 93 C8 1C 68 &4\L...,.......h
0159E0: 62 D6 C3 F5 57 4D 95 A9 FC 9B 18 DD 42 F9 71 7A b...WM......B.qz
0159F0: 85 36 D8 37 ED 2F 95 2D E0 0B 92 0F DC 9D 47 B6 .6.7./.-......G.
015A00: AA 8E CD FA 40 2E 33 ED 39 FF 6B 20 22 D9 6C 4F ....@.3.9.k ".lO
015A10: 24 4A 02 93 FF 4E 8E AB 72 D3 EC 97 F1 24 6B 8F $J...N..r....$k.
015A20: F1 DF 4E B1 39 2E C6 C4 F1 BC 51 88 32 CD BE 06 ..N.9.....Q.2...
015A30: BF CF 0F 80 85 C2 11 10 BC 51 9D BA EC 83 EE 4F .........Q.....O
015A40: 92 A1 F4 73 27 9E 11 26 7F B9 ED 89 AF 93 1C 9A ...s'..&........
015A50: F8 1C 51 2F 13 3A 82 21 D9 F4 7A 3B 9A FE 3E 48 ..Q/.:.!..z;..>H
015A60: 23 1B 2F FA 77 70 9D A9 FC 9B 37 1B 60 3C 7C 5F #./.wp....7.`<|_
015A70: 88 36 BE 93 A4 C5 B5 C2 36 22 B1 34 C9 9D F0 9B .6......6".4....
015A80: AB 2C 2A C2 61 37 3F 2A B2 F6 41 0D 36 D4 6D A1 .,*.a7?*..A.6.m.
015A90: 41 09 D3 FE D2 59 8F F7 5B 75 E0 8E DD 30 AC 19 A....Y..[u...0..
015AA0: D2 10 22 EE 6C 93 95 2D B7 E0 03 CF 61 85 F0 43 ..".l..-....a..C
015AB0: 86 7A AC AF CB 89 31 53 15 F0 C6 E8 EC C0 D2 6C .z....1S.......l
015AC0: 90 08 D4 1E 49 DF F7 C8 C3 99 EE 7F 87 CE 53 AB ....I.........S.
015AD0: CD 1D 5D B0 33 F0 2E D1 D8 55 9C 1F B3 C5 EA 40 ..].3....U.....@
015AE0: 11 0C 21 FA 77 40 9C 4A F2 BB 0D 12 56 C3 70 11 ..!.w@.J....V.p.
015AF0: E9 57 59 B4 83 E8 5E E2 EE 65 99 2F 36 D1 D8 FF .WY...^..e./6...
015B00: AA 21 ED EA 25 F5 D0 E1 9B DF BC 0D A4 F4 73 93 .!..%.........s.
015B10: 05 45 AA 31 C6 54 A3 38 66 7B 73 A1 8F 75 47 7E .E.1.T£8f{s..uG~
015B20: 96 C8 4D A4 29 2A C0 A1 88 D3 2B F1 4F C6 D9 61 ..M.)*....+.O..a
015B30: E9 11 63 BE AE 7E 30 F2 D3 1C C9 E8 C4 2E 55 4F ..c..~0.......UO
015B40: CA 2A F4 81 0C AC 6C 26 C0 B1 EE E3 AE CE 53 AB .*....l&......S.
015B50: 45 C0 B3 21 12 E3 AA 2C 30 1B B1 12 B3 23 1D F7 E..!...,0....#..
015B60: 21 3E E4 FA 76 39 95 BA B0 9A F0 92 7B DD 1E 76 !>..v9......{..v
015B70: 85 24 BE 30 8D C5 B5 C2 98 ED 77 1E 37 3D F8 88 .$.0......w.7=..
015B80: 72 2C ED C3 6C 59 3E E1 9B DF 9C E3 36 D4 6D 13 r,..lY>.....6.m.
015B90: F0 4B 02 B0 FF 54 8F 21 95 8B D5 96 FD DB 4A 2E .K...T.!......J.
015BA0: BB 8E 22 F1 F7 4B 34 C4 A9 F5 03 A8 57 88 6A 42 .."..K4.....W.jB
015BB0: 49 AE 4E A0 CA E7 C7 BC FC 3F 35 C8 A0 C0 BA 0E I.N......?5.....
015BC0: 62 E7 DB 4A D0 92 0A 27 C0 FA 1E 66 A0 E3 B8 8B b..J...'...f....
015BD0: 26 34 5C 42 FE 01 B3 67 2D 0B B0 3A 4C 80 EA 71 &4\B...g-..:L..q
015BE0: 19 09 2C FC 77 3D B4 6D FC 87 F1 AE 5A 5C 50 69 ..,.w=.m....Z\Pi
015BF0: 25 37 BF C4 AC D6 28 C3 F1 94 B8 11 95 9E D9 36 %7....(........6
015C00: B5 FC EA EA 4C 37 D4 EC 2B DE DB 2C 36 D4 6D 93 ....L7..+..,6.m.
015C10: 68 25 E4 FE D0 79 64 01 6D 97 CC A3 DC A7 4A 2E h%...yd.m..£..J.
015C20: F9 8F 22 F0 71 6B 78 E4 BA F3 03 42 8F 87 F1 E3 ..".qkx....B....
015C30: C8 90 AD A0 CA 8F 31 BE F3 12 C9 E8 47 2F AB 6D ......1.....G/.m
015C40: B5 08 3A 6A 21 B2 07 49 2B 76 E1 88 AC C3 53 4F ..:j!..I+v....SO
015C50: C4 16 6B 1F 31 EF A7 2C D9 9C 4B FD A9 D8 18 69 ..k.1..,..K....i
015C60: A1 00 32 7C 74 A6 17 A4 06 9B FC 32 5B 29 9F 66 ..2|t......2[).f
015C70: 84 A9 9E 45 88 C9 B4 CF F0 0B FE 63 57 FA 69 79 ...E.......cW.iy
015C80: BB 2D E0 EA 6C 51 53 8D 7C 30 77 0C 3B B9 9E F4 .-..lQS.|0w.;...
015C90: 9B 64 1D 89 D7 58 82 21 73 39 1E 6C D0 30 6A 73 .d...X.!s9.l.0js
015CA0: 01 7B FD F0 48 66 94 E4 65 1D 0E A8 60 5B D9 42 .{..Hf..e...`[.B
015CB0: E5 8E 43 CD 39 6B 3C 53 F3 7C 3B E9 A0 C0 BA 0E ..C.9k<S.|;.....
015CC0: 61 E7 D9 6A 2C D1 F5 D2 3F 99 C6 84 AF C3 A1 5A a..j,...?......Z
015CD0: 26 34 5C DC 3A 18 A7 2C D9 97 4E 13 BE C5 1C 83 &4\.:..,..N.....
015CE0: 29 2D 2C FA 19 55 99 B6 D5 74 FC 32 5B AE 83 76 )-,..U...t.2[..v
015CF0: 24 16 B3 5B 8C AC 41 2D FF 2B 73 2F A9 BD C6 01 $..[..A-.+s/....
015D00: AB 2D 4D CA 72 60 3F EC B8 DF 81 0C A4 F4 73 C1 .-M.r`?.......s.
015D10: 0C 45 A2 31 DC 59 8F 48 9D 95 EE C0 FF 10 81 10 .E.1.Y.H........
015D20: CD 62 02 D0 61 FC B4 FA 4C F3 03 A2 60 76 F0 E3 .b..a...L...`v..
015D30: C8 90 14 A0 CA 26 31 AC F3 12 C9 E8 47 2F B5 6C .....&1.....G/.l
015D40: 0C 28 CA 6E 2D B3 0A 27 C0 DF A2 C8 E8 72 BC A4 .(.n-..'.....r..
015D50: 2A 39 5C 2F 75 82 CB CB 36 F9 BC 12 DE 31 1D F7 *9\/u...6....1..
015D60: 21 3E B4 F2 76 AB B5 A4 BF 4F 1E 3F 5B C3 33 A3 !>..v....O.?[.3£
015D70: 71 C9 BE 73 81 C8 B5 10 1E 06 98 0F E5 B4 D9 9B q..s............
015D80: AB 2C 80 1E 83 3A 3F EC F8 2B 7B 01 3B D4 0E 01 .,...:?..+{.;...
015D90: EB 49 03 11 BC AD 7A DE 73 52 C1 83 DD C2 9B 3D .I....z.sR.....=
015DA0: D3 8F F1 D9 96 66 94 E4 D4 07 02 A5 60 88 1B 6B .....f......`..k
015DB0: E5 8E 43 CE 39 A8 20 7A 1C 12 C9 E8 C0 34 BB CC ..C.9. z.....4..
015DC0: B3 05 D4 6A 48 46 E8 28 E0 72 CE 16 8F DD C4 AB ...jHF.(.r......
015DD0: 2A 94 7C 31 44 EE AA 0F D9 F4 BD 8D 93 DB 28 60 *.|1D.........(`
015DE0: 00 81 0C F9 77 A6 DC 4A 13 B9 B2 10 7B 28 50 69 ....w..J....{(Pi
015DF0: 69 36 9E 5A 1B E8 AB C2 F1 0B 92 0F 35 9C 78 B6 i6.Z........5.x.
015E00: 8B 32 4B EB 6C 79 3F 71 9A 41 5A 01 3B D4 84 1A .2K.ly?q.AZ.;...
015E10: 0B 64 EF 31 CE 58 82 21 73 13 2E 6C 22 30 42 33 .d.1.X.!s..l"0B3
015E20: D3 8F FB D8 6D 6B 94 12 9E 1C 00 A8 60 7C D8 4E ....mk......`|.N
015E30: E8 8E AA 89 EA 7E 11 5E F3 1F A3 1C 5C CF 93 6C .....~.^..£.\..l
015E40: 32 28 D9 6A 2C DB E5 C8 CF B9 05 A9 A2 C3 53 42 2(.j,.........SB
015E50: C4 26 5C 29 13 70 AB 9C D9 B5 BC 8D B2 C8 1C 68 .&\).p.........h
015E60: 62 D8 C3 F7 77 A6 D6 57 09 96 F1 32 31 37 71 D6 b...w..W...217q.
015E70: A5 3B BE 5B EF 3E 5A CD D0 F7 B8 02 36 9D 9B 46 .;.[.>Z.....6..F
015E80: 44 23 CD 16 4C 3A 3F EC D8 0E 95 03 1B 3F 4D EB D#..L:?......?M.
015E90: A7 45 23 10 48 79 91 83 72 7A 8B 83 7D 31 67 30 .E#.Hy..rz..}1g0
015EA0: D3 E2 EC 1F 70 6A 0A C4 BA F3 03 45 8F 87 D0 AF ....pj.....E....
015EB0: C8 97 57 A1 6B A4 32 53 F3 EB E1 E5 AD C0 57 44 ..W.k.2S......WD
015EC0: 7C 0B D4 6A D5 9A 0A 27 C0 6F C7 A9 44 E3 5E AB |..j...'.o..D.^.
015ED0: 2B 59 B2 C0 1E EE AA C1 D8 F9 BC 12 5E 2A 05 7D +Y..........^*.}
015EE0: 01 28 2C 5B 76 16 B4 6D FC 8D F1 90 5A CE 70 77 .(,[v..m....Z.pw
015EF0: E6 CE 51 56 8C C8 D4 32 05 06 98 0F 5C 69 D8 8B ..QV...2....\i..
015F00: AA 8F EC E7 6C 37 7A A5 2A 30 52 18 CE D9 6D F5 ....l7z.*0R...m.
015F10: 67 BC 2A E5 20 55 A7 DE 36 8C DE AA 29 3D 6A 30 g.*. U..6...)=j0
015F20: BA 6D 03 FD 60 6B F1 0E 58 DB 17 5D 6D 88 F0 20 .m..`k..X..]m..
015F30: 10 A7 B7 5F C6 AC CE 16 05 0D E0 1C A0 C0 BA 04 ..._............
015F40: 71 09 D9 6A 2C D7 EC C8 E8 8D 1B 84 AF C3 30 53 q..j,.........0S
015F50: 02 C0 A3 23 3B 11 EF DA CB DD 48 1F B3 C5 75 8A ..£#;.....H...u.
015F60: 00 2D 2C FA 12 4A 5A 8C E8 6E FC 32 5B A0 88 5E .-,..JZ..n.2[..^
015F70: 71 C9 B2 73 73 8D 43 D0 D9 FF 95 0F 36 F4 3A 97 q..ss.C.....6.:.
015F80: A6 2C ED 87 81 D8 26 88 6E 20 7A 24 36 D4 6D 96 .,....&.n z$6.m.
015F90: F2 AB 0D 38 29 A6 83 09 60 8C C1 83 DD 5D 84 19 ...8)...`....]..
015FA0: D2 82 02 F0 81 84 9B 10 48 FF 2B 57 25 7E E9 57 ........H.+W%~.W
015FB0: C1 8F 4E A0 CA E9 DC BC FE 1F C9 85 40 34 B7 6D ..N.........@4.m
015FC0: 93 7A 35 6B B3 92 19 BD C1 98 E3 89 AF B1 A9 44 .z5k...........D
015FD0: 24 C0 A3 23 3B 11 EF DA C9 DD BD 1F B3 C5 6C 9E $.£#;.........l.
015FE0: EE 39 23 0E 88 AA 9D 5B B9 6D E8 79 72 C2 7D 77 .9#....[.m.yr.}w
015FF0: 85 5B 48 B4 96 72 B4 37 0F 0B B0 02 36 9D AA 6C .[H..r.7....6..l
016000: B5 7B ED EA 01 37 3B ED 05 FF 77 0C 3B 3D 82 FA .{...7;...w.;=..
016010: 24 A8 23 08 FF 58 2E 01 70 7A CC 7A F5 3D 6A 30 $.#..X..pz.z.=j0
016020: 29 A7 0F F0 60 A1 B8 E9 B7 F3 CA 81 49 67 F3 43 )...`.......Ig.C
016030: E8 54 63 4B EA 89 31 53 81 FE 26 E5 AD C0 40 45 .TcK..1S..&...@E
016040: 9E 08 D4 80 00 BF 07 27 29 B0 EF 84 AF C3 21 49 .......').....!I
016050: C4 39 5C 2F E9 C6 A7 2C D9 1E 48 1D 9F C8 1C 68 .9\/...,..H....h
016060: E8 09 2D F7 77 A6 5C 4B E5 BA F0 92 7B DD 76 76 ..-.w.\K....{.vv
016070: 85 6D BE 5E 8D 69 95 C1 F0 0B 61 27 3B 9D D8 6C .m.^.i....a';..l
016080: 83 21 ED EA A6 C3 30 C0 96 DF 7A C5 12 FD 82 F6 .!....0...z.....
016090: 04 44 D9 31 34 79 82 21 73 08 2D 6C D0 30 6A CA .D.14y.!s.-l.0j.
0160A0: FB 82 02 F0 8A 9F 9B C8 BA F3 03 41 49 89 FD 43 ...........AI..C
0160B0: E8 FC A1 4F C7 84 31 A9 DB 12 C9 E8 47 EC B7 6D ...O..1.....G..m
0160C0: 93 E1 FD 6B 21 B2 07 CE 2F 80 CF 89 A7 C3 55 AA ...k!.../.....U.
0160D0: 9B 35 95 2F C2 EE 92 2D 46 D4 A2 6A 4C C4 83 48 .5./...-F..jL..H
0160E0: 1F 27 28 FB E8 86 AB AD F8 9A 6E 12 45 C8 74 76 .'(.......n.E.tv
0160F0: 1A 16 A0 BA 8F C9 2A E2 EE D3 C1 0E A5 BD DB 96 ......*.........
016100: AB C9 C5 F3 76 1E 13 E1 9B DF 8C 24 2B F8 74 B5 ....v......$+.t.
016110: 2D 68 00 11 DF 34 EA 4F 86 52 D5 8C F4 1C 69 30 -h...4.O.R....i0
016120: D3 76 2A E9 0A 42 B8 E7 B7 F3 F4 80 79 AE D9 6F .v*..B......y..o
016130: E5 8E 43 4E E2 94 1D 4A E1 36 E5 E5 AD C0 4A 45 ..CN...J.6....JE
016140: 8A 1C FD 46 21 B2 07 D0 E8 80 FA A0 83 CE 53 AB ...F!.........S.
016150: CF 1C 45 3B 3A C2 A7 2C D9 12 94 02 9F DC 08 41 ..E;:..,.......A
016160: 2D 23 2C FA 9B 8E A6 88 EE B2 DD 3F 5B C3 99 5F -#,........?[.._
016170: 95 1A AC 77 9E E1 99 C1 F0 0B 79 27 26 B1 CE BF ...w......y'&...
016180: 87 2F ED EA 9C 1F 2F C5 B7 D2 7A 0C CA FC 7D D9 ./..../...z...}.
016190: 16 6D 02 8E FF 47 4F 7C 72 E5 EC 9D 35 CD 6B AF .m...GO|r...5.k.
0161A0: F3 91 22 F4 60 57 94 DD B6 6C 23 B6 9C 8B F1 C9 ..".`W...l#.....
0161B0: E9 27 63 B1 E6 9D 3A 52 4C 3D 8D A7 8D 99 F5 38 .'c...:RL=.....8
0161C0: B3 5F 95 24 78 92 53 68 E0 D5 A1 C8 EB E3 12 E5 ._.$x.Sh........
0161D0: 0B 7B 10 6B 33 A9 EB 61 9C D4 94 4B 9C 8B 35 4A .{.k3..a...K..5J
0161E0: 01 11 2C C0 76 39 95 BA FC 61 F0 93 7B C0 70 77 ..,.v9...a..{.pw
0161F0: EC D8 51 79 D5 EA 95 29 D0 08 98 0F D2 72 FA F5 ..Qy...).....r..
016200: 44 3C C4 1C 7B 36 9E CC 96 DF 7A 61 D6 3A 74 96 D<..{6....za.:t.
016210: 24 AF 23 1C DF 59 E2 CC 9C 63 AF 83 DB 30 CE 31 $.#..Y...c...0.1
016220: 1A 8F 17 F0 C6 6A 35 C4 BA F3 03 CB 89 67 E9 78 .....j5......g.x
016230: C8 65 63 BE 8B 86 31 7A F3 B8 C8 E5 AD C0 D9 84 .ec...1z........
016240: 7C 05 D4 6A 4F 5B F3 28 C1 38 CE 84 AF C3 3D 48 |..jO[.(.8....=H
016250: C4 3A 7C C4 33 6B 8A 87 FB 8C 9E 3E A9 6B 1D 68 .:|.3k.....>.k.h
016260: 1C 20 84 FB 74 A6 B5 40 13 B9 84 10 5A CE 70 77 . ..t..@....Z.pw
016270: ED C1 51 41 65 CB B4 62 D0 15 1E 0C 36 8D D8 38 ..QAe..b....6..8
016280: AA B3 CD F4 85 34 3E 4C BB C1 D2 0D 3B CE 6D FE .....4>L....;.m.
016290: 06 E5 23 1C DF 59 E2 C4 9D 63 AF A3 36 10 67 30 ..#..Y...c.£6.g0
0162A0: D3 E2 E7 1F 79 08 94 FC B7 FF 01 09 40 85 F0 43 ....y.......@..C
0162B0: 85 6B B2 AE EA 6F 11 5E F3 1F A4 0D 42 CE BA 51 .k...o.^....B..Q
0162C0: 93 05 D6 CB 0C BF 07 27 2A B1 E3 89 AF 3A 7A 44 .......'*....:zD
0162D0: 32 78 7C D3 33 E3 AA 2C 33 DC B1 12 B3 3C 35 87 2x|.3..,3....<5.
0162E0: 18 72 0C 06 57 AB B5 A4 16 B3 FC 32 5B 3A 59 98 .r..W......2[:Y.
0162F0: 9C 1C 9E B0 AC 68 95 DC FF 09 98 94 36 93 DA 9B .....h......6...
016300: AB 2C 07 C2 61 37 3F 15 B2 30 63 2C CF 2B 6D DD .,..a7?..0c,.+m.
016310: 2C 49 03 11 37 71 82 21 73 83 E5 AA 33 CF 66 18 ,I..7q.!s...3.f.
016320: DE 8F 02 18 48 66 94 E4 4E DA 2A 5C 7F BB C3 70 ....Hf..N.*\...p
016330: DB 0E 6A 56 D3 8F C5 AC F3 37 C4 E8 AD 28 92 60 ..jV.....7...(.`
016340: 93 08 2D 43 DD 4D 0B 0F CD 99 EE 61 87 CE 53 AB ..-C.M.....a..S.
016350: D2 1D 75 DB 0C 74 33 B5 C0 8B 9C E8 93 3A 10 40 ..u..t3......:.@
016360: 0C 20 2C 12 5F AB B5 A4 05 B2 D8 DC 55 EA 86 6E . ,._.......U..n
016370: 88 37 1F 7B 81 C8 B5 2A D8 06 98 0F CF B4 36 89 .7.{...*......6.
016380: 98 1F DE F1 E8 17 D4 CC 96 DF 7A E6 13 D9 6D F5 ..........z...m.
016390: FD 6D EC 08 B6 59 0E 21 7C 78 C1 83 DD F8 42 3D .m...Y.!|x....B=
0163A0: D3 8F DB D9 8F 66 94 E4 7F DB 0E A8 60 51 D9 B6 .....f......`Q..
0163B0: 17 8E 6B AD CA 84 D9 7B FE 1F C9 11 84 2E A5 0B ..k....{........
0163C0: F5 6E CA EE 05 44 2F 2A C0 99 26 A1 A2 C3 53 72 .n...D/*..&...Sr
0163D0: 02 C1 43 49 75 88 B4 A8 F0 F5 1D 32 BE C5 1C A0 ..CIu......2....
0163E0: 29 2D 2C FA AE 8F 44 BB 31 57 3D 3E DA E3 8A 57 )-,...D.1W=>...W
0163F0: 88 36 BE 8F A4 C5 B5 C2 29 22 76 01 16 76 F8 9B .6......)"v..v..
016400: 89 2D E0 EA 6C 5F C8 03 81 32 79 0D 9B F4 73 73 .-..l_...2y...ss
016410: 07 44 1C 11 E4 58 2E 01 70 7A CC EA 33 C2 48 7E .D...X..pz..3.H~
016420: F1 AF E9 D0 7E 51 95 C4 B6 64 23 37 40 96 18 BE ....~Q...d#7@...
016430: E8 84 43 9D CB 1B 11 4D 1B 1C C9 F5 AD FE BB 6E ..C....M.......n
016440: 93 08 30 85 0E DE 25 26 CD 99 EE E1 58 2C 49 94 ..0...%&....X,I.
016450: 2A 35 FC 0F 0D 68 A9 2C C9 F4 83 13 2C E5 02 81 *5...h.,....,...
016460: 02 21 B3 DA 69 DD B6 A4 D9 9B B3 33 56 C3 70 9D .!..i......3V.p.
016470: 6A 39 BF 58 8C C8 51 2D D2 6A F9 2D 37 90 D8 96 j9.X..Q-.j.-7...
016480: C3 DB 02 F0 2F 36 3E 4C BB C1 FC 0F 3B F0 6D B6 ..../6>L....;.m.
016490: 05 DB 23 0F 36 5A 8E 22 73 7A 28 6C FF 07 5A 12 ..#.6Z."sz(l..Z.
0164A0: D2 82 02 F0 08 9C 7B FE F3 F2 02 08 40 96 76 40 ......{.....@.v@
0164B0: E8 A5 43 E4 CB 1B 11 4D FE 1B C8 E5 AD C0 50 82 ..C....M......P.
0164C0: 82 09 D7 6A 2C 56 E8 05 A1 F8 CC 88 A2 C3 53 C3 ...j,V........S.
0164D0: DC DB 46 6A 12 EF 0A 0C C7 72 BF 12 96 C5 59 69 ..Fj.....r....Yi
0164E0: 9E 00 32 13 74 A7 B6 A4 FC 7F 1E 10 6C F3 52 76 ..2.t.......l.Rv
0164F0: 88 36 BE 33 7B 27 AF 84 F1 0A 38 2F 28 1B DB B6 .6.3{'....8/(...
016500: AB 0F ED AC 6D A8 1F F2 96 DB 7B 0F 3B D4 89 1A ....m.....{.;...
016510: 26 2C 21 10 D2 59 8F 49 84 95 D6 C4 DC 31 CA 10 &,!..Y.I.....1..
016520: CD 09 01 F0 48 6B D3 E5 28 D3 1D 41 63 89 6F 63 ....Hk..(..Ac.oc
016530: F6 C2 42 A1 C9 84 31 B7 1C 3D A4 DA 8F C1 B7 6D ..B...1..=.....m
016540: 93 60 23 85 38 B3 A7 07 DE 1F ED 89 B2 C3 1B AA .`#.8...........
016550: 28 34 5C CB FC CC C2 0E D8 F9 BC 12 DB 32 F3 72 (4\..........2.r
016560: 48 21 2D 5A 57 B8 33 A7 FC B3 F1 7B 5A 5C 50 69 H!-ZW.3....{Z\Pi
016570: 6C 35 BF C4 AC D6 F9 C3 F1 08 98 0F D2 72 FA FB l5...........r..
016580: 99 0E EC E7 6C 37 57 1B 74 CB 7B AC 1B CA EB F6 ....l7W.t.{.....
016590: 04 A9 03 5D DE 54 8F 21 1E 8F 23 8D DC 3D 6A 30 ...].T.!..#..=j0
0165A0: A3 7A ED FD 60 6B 71 CC A6 DF 0C 81 61 85 F0 43 £z..`kq.....a..C
0165B0: 8A 6C AC AE CB 89 31 53 91 FC 26 E6 AC CD BA 6D .l....1S..&....m
0165C0: F1 EC 3B 64 2D BF 07 27 A2 78 01 76 AF EB 5E AB ..;d-..'.x.v..^.
0165D0: 2B C0 74 20 3A 01 A5 05 2F 0B B0 32 9B C8 1C 68 +.t :.../..2...h
0165E0: E9 08 23 D3 5E A7 2B 84 F1 9B F1 DF B4 D3 50 9B ..#.^.+.......P.
0165F0: A5 2F B5 5A 81 C8 B5 A0 13 E4 95 0F 36 FF 3B 62 ./.Z........6.;b
016600: AB 2C 25 C2 61 37 3F 35 B2 30 65 C1 F7 18 61 74 .,%.a7?5.0e...at
016610: 05 E4 23 0F CE 5B 8F 03 73 6A CE 22 FD 3D 6A 30 ..#..[..sj.".=j0
016620: 07 A7 0F F0 60 B2 BD 0B B9 D3 E8 88 6D 88 F0 8B ....`.......m...
016630: C0 83 43 A0 13 AD DE 5D F3 19 C9 F9 AF 09 BA 7D ..C....].......}
016640: 93 2E D6 F5 0C AC EE 24 C1 39 CE 97 F0 C0 53 BB .......$.9....S.
016650: 2B 75 5E AA 33 45 88 1D ED D6 90 08 F1 C7 1C 7A +u^.3E.........z
016660: 01 62 2E 65 57 B8 EA A7 FD 11 F0 92 7B DD 99 74 .b.eW.......{..t
016670: 85 2D BE 18 8E 57 95 DC AF 08 99 90 16 83 FE 94 .-...W..........
016680: AA A9 CD 41 4E 00 1D C0 81 9B 78 0C 20 D4 29 F7 ...AN.....x. .).
016690: 9B 64 1D 37 DD 58 10 01 6D 01 CF 82 58 10 C1 12 .d.7.X..m...X...
0166A0: BE AD 2E EA 25 69 94 F9 B7 B6 01 A5 60 88 9F B4 ....%i......`...
0166B0: 07 80 42 3F EA 9A 17 51 F2 9A E9 43 8F F1 98 41 ..B?...Q...C...A
0166C0: 89 4E D6 6A 0F B2 41 25 5F B9 F0 AF AD C2 D9 AA .N.j..A%_.......
0166D0: B4 14 42 D9 10 EF 35 0C C7 AB BF 13 36 E5 B7 4A ..B...5.....6..J
0166E0: 33 02 00 E0 30 A4 B5 2A FC DC F3 AD 7B DD 9A 74 3...0..*....{..t
0166F0: 84 A9 9E 45 D3 CB B4 48 F1 B4 BA 2F 16 BD 9C DF ...E...H.../....
016700: FD 0C CD CA 4C 17 1F CC BB 99 3B 2C 78 81 3D D5 ....L.....;,x.=.
016710: 42 0D 4D 50 93 7B B4 CB 5B 63 ED AA E6 12 2E 79 B.MP.{..[c.....y
016720: 85 AD 2E D2 40 4B B4 C4 95 C8 00 A8 60 78 D8 53 ....@K......`x.S
016730: C1 A2 6F 8C E8 A4 11 73 D3 3F E9 C8 8D E0 9A 4D ..o....s.?.....M
016740: B3 28 F4 26 69 F3 40 72 85 B9 AD DC FF E3 15 E2 .(.&i.@r........
016750: 65 75 10 0D 3F CC 8A 0C F9 D4 9E 29 B0 C5 1C B8 eu..?......)....
016760: 29 2F 05 FB E8 86 AB FB FF 9A 74 12 F0 E1 03 55 )/........t....U
016770: A9 2C 57 58 8C ED B5 93 F2 06 98 0F 50 7E 37 99 .,WX........P~7.
016780: 5F D3 E1 C2 93 72 C9 F8 B2 DE DB 2C 36 D4 6D 93 _....r.....,6.m.
016790: E7 B6 10 31 34 79 91 D8 70 7A EF 83 85 32 E0 31 ...14y..pz...2.1
0167A0: 7A AF 1B FD 4C 72 98 E5 08 D1 57 E7 35 DA D0 06 z...Lr....W.5...
0167B0: BD DC 0C F0 8F A4 19 0A DC 51 E0 CA AD E3 BA 34 .........Q.....4
0167C0: 91 97 F4 74 48 48 06 86 E0 9A EE 89 C6 2D BC 89 ...tHH.......-..
0167D0: 72 16 7C C4 33 F0 F1 2E F9 F5 2B 32 AD 3C 1F 68 r.|.3.....+2.<.h
0167E0: 38 20 77 F8 E8 86 AB 8A FF 9A FC 32 5B A0 80 98 8 w........2[...
0167F0: 8A 37 B3 5B 8C AE 51 2D E2 FF 67 03 1E 62 9D 60 .7.[..Q-..g..b.`
016800: 83 D3 ED C2 61 37 3F 18 B3 D2 7A 0C D6 FD 82 E5 ....a7?...z.....
016810: 2D B2 FC 1D F7 54 8F 21 9B 52 C1 83 DD DD 43 19 -....T.!.R....C.
016820: FA 8E 0F F0 60 09 76 0B BA F3 03 CA 82 7C D8 BC ....`.v......|..
016830: E8 A6 4E A0 CA 70 19 5E F3 1F 24 C1 42 D1 93 9B ..N..p.^..$.B...
016840: 6C 04 FC 67 2C B2 EF 0F CD 99 EE 64 86 EA 7A AA l..g,......d..z.
016850: 26 34 5C 4D F7 01 A7 2C D9 96 58 E6 9B 3A 1C 40 &4\M...,..X..:.@
016860: 0C 20 2C 0E 5F AB B5 A4 11 B2 1E 20 72 35 8F 7B . ,._...... r5.{
016870: AD 3B BE 5B 64 E0 B8 C2 F0 E6 B1 26 1F 9D BC 96 .;.[d......&....
016880: E5 2D E0 EA 6C 5A CA 03 96 DF 7A 61 CE 20 92 F5 .-..lZ....za. ..
016890: 2C 49 03 11 2B 71 82 21 73 97 E5 6C CD 19 9C 29 ,I..+q.!s..l...)
0168A0: B7 7B FD F0 48 66 94 E4 43 DB 0E A8 60 65 D9 AC .{..Hf..C...`e..
0168B0: F9 A7 B5 B9 C0 70 CE 53 DB 12 C9 E8 59 E8 B7 6D .....p.S....Y..m
0168C0: 93 E5 FD 85 3E 9B 06 2A C0 99 9E 7C 40 CE 53 AB ....>..*...|@.S.
0168D0: 5B C1 A8 22 13 EE 4F 04 C8 D8 B1 12 B3 28 35 69 [.."..O......(5i
0168E0: B1 20 9D FA 27 A7 B8 A4 FC F9 12 DD A4 CF 58 7A . ..'.........Xz
0168F0: 85 36 DC B8 7B D7 2F 5B 69 72 1A 26 37 90 D8 96 .6..{./[ir.&7...
016900: C9 CE 02 15 60 1F 32 EC 9B BD 98 FB 24 4E F4 6C ....`.2.....$N.l
016910: 3D C6 2A 10 D2 59 8F 43 97 95 33 8F F5 3D 6A 30 =.*..Y.C..3..=j0
016920: B1 6B F5 EF FA F2 0D DD 35 DA 02 A5 60 88 92 A1 .k......5...`...
016930: 07 83 43 A0 A8 66 C4 AC F3 37 C4 E8 AD A2 58 83 ..C..f...7....X.
016940: 84 21 22 42 21 B2 07 45 22 6C F9 A0 AE CE 53 AB .!"B!..E"l....S.
016950: 49 D7 B3 22 13 EE C8 CF 2C 0B BC 3A BE C5 1C 0A I.."....,..:....
016960: E2 CE 3B D3 81 8E B8 A4 FC F9 12 C7 4C EA 71 7A ..;.........L.qz
016970: 85 36 DC BF 63 C5 B5 C2 92 EF 6D F0 36 B5 D5 96 .6..c.....m.6...
016980: AB 4E 09 04 7B 1E C9 C4 96 DF 7A 6E DF 21 7A DC .N..{.....zn.!z.
016990: 05 8D 03 5A DF 06 8E BF 53 77 CC 83 34 DF 73 24 ...Z....Sw..4.s$
0169A0: F3 63 22 E9 6D 4B 72 C4 42 FC 02 AB 60 88 A4 06 .c".mKr.B...`...
0169B0: A5 5E AC A3 CA 84 C7 7B FE 1F C9 01 84 C1 25 4D .^.£...{......%M
0169C0: 8D 8C 29 6B 8D 92 0A 27 C0 DF A2 C8 68 E3 B8 8B ..)k...'....h...
0169D0: B4 14 42 A3 11 EF A7 2C D9 1D 53 0B BF C5 1A 68 ..B£...,..S....h
0169E0: 61 21 9C FA 71 A6 D4 A5 35 9B F6 32 39 C2 71 B7 a!..q...5..29.q.
0169F0: 85 8E BE 3D 8D 6A 95 CC DC 1C 99 AD 16 92 F4 98 ...=.j..........
016A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
016A10: 13 00 01 00 02 09 4E E5 13 00 41 02 00 00 00 02 ......N...A.....
016A20: 13 00 46 02 00 00 00 02 13 00 42 02 00 00 00 02 ..F.......B.....
016A30: 13 00 47 02 00 00 00 02 13 00 43 02 00 00 00 02 ..G.......C.....
016A40: 13 00 48 02 00 00 00 02 13 00 44 02 00 00 00 02 ..H.......D.....
016A50: 13 00 49 02 00 00 00 02 13 00 45 02 00 00 00 02 ..I.......E.....
016A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016B00: BA 05 EC E7 6C 37 51 0F 74 D2 7A 0C 55 37 99 DD ....l7Q.t.z.U7..
016B10: 09 44 03 77 3B AD 80 08 73 6A CC DF DF AF 4A 2E .D.w;...sj....J.
016B20: 4B 8F 03 50 40 75 92 E4 B7 D1 03 F5 62 85 F0 43 K..P@u......b..C
016B30: 8E 6A AC AD CA 84 57 B7 06 10 C8 49 8D CD BA 6D .j....W....I...m
016B40: F5 EC 3A 64 0C 59 27 39 9C 9B EE AC AF 9D 51 34 ..:d.Y'9......Q4
016B50: 0B 2A B4 D2 12 64 AB 2F D9 F4 58 FD 91 B6 3E 69 .*...d./..X...>i
016B60: 0C 20 2C 92 80 49 AF 5D FF 9A 51 12 45 46 73 77 . ,..I.]..Q.EFsw
016B70: 8F 36 32 59 13 E8 AB 3E F8 0B 22 0F BB 9F D5 96 .62Y...>..".....
016B80: AB D8 C5 E7 6C 37 D6 C5 74 D2 7A 0C 51 33 6C F8 ....l7..t.z.Q3l.
016B90: 04 44 E9 39 D2 59 8F C8 5A 95 C1 83 DD 53 8D 31 .D.9.Y..Z....S.1
016BA0: DE 8F 02 15 48 64 B8 E9 B7 F3 EA 81 8F 85 F0 43 ....Hd.........C
016BB0: 8E 64 42 AD CA 84 D4 7B E3 33 C4 E8 AD 29 93 82 .dB....{.3...)..
016BC0: 9E 08 D4 18 D6 B3 0A 27 C0 7C C6 98 83 CE 53 AB .......'.|....S.
016BD0: C2 1D B3 22 13 EE D8 CD D8 F9 BC 12 5B ED 11 68 ..."........[..h
016BE0: 01 C9 05 15 7A A6 B5 C2 17 9A FC 32 5B 35 58 78 ....z......2[5Xx
016BF0: A9 3B BE 5B 65 E1 5A CF F0 0B F0 F5 37 90 D8 96 .;.[e.Z.....7...
016C00: 5D 04 FD C6 61 37 3F 05 B2 30 77 0C 3B BC 94 F4 ]...a7?..0w.;...
016C10: 09 44 03 F6 F7 54 8F 21 9A 53 23 8E DD 30 18 C9 .D...T.!.S#..0..
016C20: D2 82 02 F0 95 43 99 E4 B7 1A 2A 47 6D 88 F0 25 .....C....*Gm..%
016C30: 00 8F 8A A0 FE 84 DE 51 6D 3F C4 E8 AD 39 55 62 .......Qm?...9Ub
016C40: B3 E4 F4 73 38 B3 A6 07 CD 99 EE 63 87 CE 53 AB ...s8......c..S.
016C50: D2 1D B3 36 41 CE 41 0C D4 F4 BC FB 5C C8 1C 68 ...6A.A.....\..h
016C60: F8 21 B3 DA 69 6E B5 A4 B0 9B 01 30 56 C3 70 05 .!..in.....0V.p.
016C70: 64 D9 41 57 A4 37 F0 34 E9 12 B1 F8 2F 97 D9 37 d.AW.7.4..../..7
016C80: 8B 21 ED EA 98 1F 32 EC 9B 26 53 E3 35 F4 91 D5 .!....2..&S.5...
016C90: 09 44 03 FB F7 54 8F 21 8A 53 23 9A F7 10 96 10 .D...T.!.S#.....
016CA0: DE 8F 02 1A 48 66 94 E4 4E DA EC B1 2C A8 1B 63 ....Hf..N...,..c
016CB0: F6 7C 41 A0 F0 84 C0 51 FE 1F C9 1D 85 CD BA 6D .|A....Q.......m
016CC0: 6A 21 3B 64 2D BF 07 27 28 B1 E3 89 AF 3A 7A 44 j!;d-..'(....:zD
016CD0: 26 34 5C C7 3B E3 AA 2C 20 DD 49 0D 80 F6 2F 5B &4\.;.., .I.../[
016CE0: 80 D4 21 FA 77 D4 54 A5 63 BB EF 3F 59 C3 7E 77 ..!.w.T.c..?Y.~w
016CF0: 77 34 0E 5A 13 E8 AB 8E F1 0A 51 0F 4B 9D 2B 94 w4.Z......Q.K.+.
016D00: AA 21 ED EA 04 C0 D0 F5 FE DF 7D 0C BE D7 6C 35 .!........}...l5
016D10: 04 57 03 97 DC DC AF 8A 53 79 CC 83 39 1C 67 30 .W......Sy..9.g0
016D20: D3 E7 F5 F0 52 6B 13 E7 28 D3 1D 9C 68 89 51 63 ....Rk..(...h.Qc
016D30: EB 8E 43 C9 24 6B 13 10 D1 3F 22 C8 2F E0 A3 60 ..C.$k...?"./.£`
016D40: 92 AA F4 64 00 AB 0A 26 62 B9 FF A5 BF C2 D9 AA ...d...&b.......
016D50: 8B 14 42 C5 10 EE BA 2C 50 F7 23 32 AD 97 1F 69 ..B....,P.#2...i
016D60: A1 00 32 7D 74 A6 A9 A4 76 98 50 12 56 C3 70 1F ..2}t...v.P.V.p.
016D70: 63 D9 AE 7B 67 E8 30 E2 5B 29 EA 3D 14 B1 C2 91 c..{g.0.[).=....
016D80: AF 2C F9 EA E7 34 9E CC 96 DF 7A 64 DD 3B 7C D5 .,...4....zd.;|.
016D90: EF 64 1D 0F DB 59 85 21 FF 79 6C A3 C3 26 6E 30 .d...Y.!.yl£.&n0
016DA0: 9A 8F 8C F3 6D 6B 94 1D 9F E2 2F A5 60 88 19 B6 ....mk..../.`...
016DB0: F1 9C 6A 4F C4 85 3C 53 F3 E6 E1 FA 81 CD BA 6D ..jO..<S.......m
016DC0: 7A FD CD 78 05 5D 09 26 CD 99 EE 70 87 D0 7F A6 z..x.].&...p....
016DD0: 2B 34 B5 DA 0A FC 83 C3 D7 F5 B1 12 B3 3D 34 65 +4...........=4e
016DE0: 01 20 C5 D3 98 A8 B4 6D FC 8E F1 BD 58 7C 50 74 . .....m....X|Pt
016DF0: 85 36 EE 9A A4 C7 9C F9 D2 2B BA 0E FF 9D C6 96 .6.......+......
016E00: 3B 2F 52 CA 6F 37 3F BC 5A F7 6E 25 00 F6 2A D7 ;/R.o7?.Z.n%..*.
016E10: 3F 47 03 11 8F 98 A7 2E 5A 7B 05 83 C3 30 FB 33 ?G......Z{...0.3
016E20: 6C AF 01 F0 60 3B 55 CC A4 DA 38 8A 24 AA CB 40 l...`;U...8.$..@
016E30: E8 8E 13 61 E2 8B 18 52 3A 1F D7 E8 3F C3 05 4D ...a...R:...?..M
016E40: 90 08 D4 3A ED 9A 17 0E FB BB A3 AB 94 C0 53 AB ...:......£...S.
016E50: 7B F5 74 20 3A EF 63 2C C7 F4 2F 11 0C E5 1F 68 {.t :.c,../....h
016E60: 01 70 ED D2 65 8F 8E 86 BD B9 CA 31 5B C3 20 B6 .p..e......1[. .
016E70: AD 39 97 5A 45 C8 A0 C2 68 08 39 2F 3B 9D D8 7C .9.ZE...h.9/;..|
016E80: 59 21 ED EA 0D C7 1F 07 BB 16 7A 5A 3B 4D 6E F8 Y!........zZ;Mn.
016E90: 04 44 65 7D BE BE 60 2F 72 E4 EC 8E DD 30 83 DF .De}..`/r....0..
016EA0: DC AF EE D0 79 3B 95 45 97 F0 03 A8 94 A0 FD 43 ....y;.E.......C
016EB0: E8 FC A2 89 25 87 31 53 0A 37 C4 E8 AD 29 93 4D ....%.1S.7...).M
016EC0: 78 28 D9 6A 2C D4 6B 46 27 76 E1 88 A2 C3 53 D9 x(.j,.kF'v....S.
016ED0: CA DB 51 2F 13 07 AB 21 D9 F4 55 FD AA 94 3C 48 ..Q/...!..U...<H
016EE0: 01 34 2C 60 74 16 B4 05 DC 96 F1 32 3D AF 11 90 .4,`t......2=...
016EF0: A5 DD 9E 92 8C 89 B5 59 F3 06 98 0F 50 F1 B9 71 .......Y....P..q
016F00: 35 0C E0 EA 6C DE D0 E3 BB 33 5A 15 2F D5 60 F5 5...l....3Z./.`.
016F10: 04 A1 2B 1E F3 54 8F 21 9A 53 23 8D DC 3D 6A 30 ..+..T.!.S#..=j0
016F20: 34 A7 0F F0 60 82 BD 0B BA F3 03 4F 48 85 F0 43 4...`......OH..C
016F30: 01 A7 B7 5F CA AC 3C 53 F3 F8 E1 E5 AD C0 53 44 ..._..<S......SD
016F40: 7D 06 FD 9F D3 B2 2F 2A C0 99 09 A1 A2 C3 53 42 }...../*......SB
016F50: 02 C5 52 06 12 ED AA 2C 2D DC B1 12 B3 2C 35 87 ..R....,-....,5.
016F60: 02 20 2C 03 5F 8E B8 A4 FC F8 1C C7 54 EA 84 7A . ,._.......T..z
016F70: 85 36 57 72 8D 78 B4 0B F0 3D 98 F0 34 03 F8 9B .6Wr.x...=..4...
016F80: AB 2C 04 05 63 17 D3 CC 82 CB 7B 0F 3B D4 94 DD .,..c.....{.;...
016F90: 2C 49 03 11 BC B4 7A 2E 5A 8E C1 83 DD D9 43 DF ,I....z.Z.....C.
016FA0: D0 8F 02 04 48 66 94 E4 5E DA 02 18 61 41 F0 CC ....Hf..^...aA..
016FB0: E8 A3 40 AD CA 84 58 B7 1C 10 C8 73 8D CD BA 6D .£@...X....s...m
016FC0: 55 24 D9 6A 2C 65 2B 2A C0 99 2A A5 A2 C3 53 7B U$.j,e+*..*...S{
016FD0: 07 39 5C 2F DD C2 A9 2C D9 23 90 11 B3 C5 D0 69 .9\/...,.#.....i
016FE0: 92 00 2F FA 77 71 9D BD DA B2 F0 A1 7B CE 70 77 ../.wq......{.pw
016FF0: 4B 1E AE 77 95 DA 9C C3 63 2B 95 0F 36 5B F0 86 K..w....c+..6[..
017000: 87 35 F9 C3 6D A4 1F E1 9B DF AD 24 22 C9 44 F4 .5..m......$".D.
017010: 97 64 0E 11 DF 89 A7 38 67 53 CD 10 FD 3D 6A 30 .d.....8gS...=j0
017020: 17 A7 1B E4 49 6A 07 C4 B4 F3 03 64 48 9B DC 51 ....Ij.....dH..Q
017030: C1 8F DC 80 D4 4E 6C 52 53 3F D7 3C F0 C0 AD 6D .....NlRS?.<...m
017040: BD 0B 4F 4A 21 B2 07 EA C1 0A CE 84 AF C3 9E 83 ..OJ!...........
017050: 3C 1D 5D E6 13 9D AA 03 DA 6A 9C 1F B3 C5 F0 87 <.]......j......
017060: 0E 00 C0 DA 65 A7 B6 A4 FC 77 D9 21 77 CE 70 77 ....e....w.!w.pw
017070: 69 1F 51 58 8C C8 59 EA FD 0B 98 6E C6 B1 D5 96 i.QX..Y....n....
017080: AB C0 C4 EB 61 37 3F 1D B3 D0 56 01 3B D4 81 DC ....a7?...V.;...
017090: EB 49 03 11 36 71 80 0D 7E 7A CC E2 2D 1C 67 30 .I..6q..~z..-.g0
0170A0: D3 63 2B F1 6D 6B 94 15 9F E3 2F A5 60 88 1C 6A .c+.mk..../.`..j
0170B0: 07 83 43 A0 23 AC 21 7F FE 1F C9 89 5D EC B7 6D ..C.#.!.....]..m
0170C0: 93 E4 FD 6B 9C B3 CE 27 B3 99 DE 8A 31 E3 5E AB ...k...'....1.^.
0170D0: 2B D8 B3 20 33 02 8A 3E D8 F7 BC 12 5F ED 11 68 +.. 3..>...._..h
0170E0: 01 41 DC D6 7A A6 B5 48 D5 74 F2 32 5B 2F 58 64 .A..z..H.t.2[/Xd
0170F0: A9 3B BE 5B 60 E1 B4 CF F0 0B 71 27 39 B1 D5 96 .;.[`.....q'9...
017100: 44 22 EC 74 4C 3A 3F EC 7D 30 75 2C D7 F4 7F F4 D".tL:?.}0u,....
017110: A5 64 0E 11 DF B0 A7 31 5F 77 CC 83 37 1C 67 30 .d.....1_w..7.g0
017120: D3 69 2B 1F 6D 6B 94 96 56 D3 E8 88 6D 88 F0 25 .i+.mk..V...m..%
017130: 84 EF A4 4F C5 84 10 53 6F 1C 79 E9 0C E0 B7 6D ...O...So.y....m
017140: 93 6E B8 0B CB 92 EC 07 DE A8 ED A9 AE 54 73 34 .n...........Ts4
017150: 0B 2A 73 2C 12 27 AA 36 D9 69 BF A0 93 C8 1C 68 .*s,.'.6.i.....h
017160: 4E F8 0C 5A 57 B8 2A A7 D0 85 51 31 77 DD D1 74 N..ZW.*...Q1w..t
017170: 85 30 BE C5 8F 01 B5 DD F0 94 9B 0C 36 9D 3C 79 .0..........6.<y
017180: 89 7B AC AD 29 64 1F B8 D4 90 5A 40 74 83 4F F4 .{..)d....Z@t.O.
017190: A4 64 1D B3 DC 59 A7 21 D3 79 CF 83 DD D4 85 12 .d...Y.!.y......
0171A0: 80 C6 45 BE 29 25 D3 C4 F8 BD 23 EE 25 CD D0 17 ..E.)%....#.%...
0171B0: A7 C1 63 EC 85 D3 13 52 53 3F D7 4A AE C0 A7 6D ..c....RS?.J...m
0171C0: 32 0B D7 6A 2C 56 E8 05 83 D6 A0 DD FD 82 10 FF 2..j,V..........
0171D0: 0B 60 13 60 33 A2 E5 62 9E D6 BC 34 B3 67 1F C1 .`.`3..b...4.g..
0171E0: 21 DF 20 D2 5F BF 9D 51 03 95 D9 31 5B C3 94 5E !. ._..Q...1[..^
0171F0: AC C1 AE 72 A0 D1 A0 C3 4F 2B 9B 0F 36 79 D9 5F ...r....O+..6y._
017200: AB 60 ED 49 6F 3A 3F EC E9 3E 95 03 CF 2B 61 DD .`.Io:?..>...+a.
017210: FB 01 F5 03 F6 58 2E 01 7E 7A CC E2 2D C2 65 10 .....X..~z..-.e.
017220: 2F AF 0F F0 60 0A 73 0A A5 D3 FF 88 6D 88 F0 31 /...`.s.....m..1
017230: 09 AE B1 B1 EA 78 11 5E F3 1F 8A 3E 42 CF 9A 97 .....x.^...>B...
017240: B3 05 D4 6A 6F 61 E9 28 E0 72 CE 40 AF E4 53 0F ...joa.(.r.@..S.
017250: 28 39 5C 2F 56 A7 1B C3 CF F5 B1 12 B3 A0 F6 87 (9\/V...........
017260: 17 21 21 FA 77 C3 5E 4B EA 9A FC 32 5B A6 9C 98 .!!.w.^K...2[...
017270: 93 37 77 5B AA C8 54 C1 FD 0B 98 62 C1 72 D6 97 .7w[..T....b.r..
017280: A6 2C ED 87 94 D8 31 ED 96 DF 7A 61 C2 3B 63 F4 .,....1...za.;c.
017290: 09 44 03 7C 25 B6 81 20 BA 7A C7 83 39 33 CA 10 .D.|%.. .z..93..
0172A0: CD C3 FC D0 60 E1 94 01 B4 FE 03 A8 12 72 1F BC ....`........r..
0172B0: E4 A6 6B AD CA 84 CB 7B FE 1F C9 02 81 CD BA 6D ..k....{.......m
0172C0: 7A 21 20 73 3F 9B F0 3E D4 B0 1A 90 9F C2 5E AB z! s?..>......^.
0172D0: 2B 46 A6 C0 1E EE AA 5E 23 00 43 12 9B C8 1C 68 +F.....^#.C....h
0172E0: 73 DA C3 E3 42 8F 43 BD E5 9A FC 32 5B B1 89 98 s...B.C....2[...
0172F0: 7A 3A 96 73 81 C8 B5 38 D8 06 98 0F DC 69 D7 BA z:.s...8.....i..
017300: AB 4D 1D C6 61 37 3F 00 B2 30 77 0C 3B 25 45 FA .M..a7?..0w.;%E.
017310: 28 49 03 11 33 70 8E 2C 73 7A 25 AB CD 1C 67 30 (I..3p.,sz%...g0
017320: D3 EE F2 DC 6D 6B 94 08 9E 1C 0E A8 60 79 D8 53 ....mk......`y.S
017330: C4 83 43 A0 26 AD 30 E3 F2 D6 C9 AD AD F1 B9 CC ..C.&.0.........
017340: B3 05 D4 6A C6 5D 0A 27 C0 F8 1E A9 44 E3 5E AB ...j.].'....D.^.
017350: 2B 46 BD C0 1C 1A 55 20 F1 0B F9 E4 AA CF 35 69 +F....U ......5i
017360: A0 00 2F FA 77 52 9D A9 FC 9B 83 D3 72 2C 73 77 ../.wR......r,sw
017370: 85 CC 9E B0 AC D6 84 C1 D0 0A 0F 2F 28 AE DB 96 .........../(...
017380: 97 2C DF E9 61 37 3F 9E 7A 30 52 24 36 D4 6D 1F .,..a7?.z0R$6.m.
017390: F2 5D 17 38 2A 40 9C 08 87 85 C0 AB 22 75 9C 29 .].8*@......"u.)
0173A0: DF A6 03 51 40 68 94 E4 4E DB 0E A8 60 FA 11 6A ...Q@h..N...`..j
0173B0: 07 8D 43 A0 30 A4 DA 73 ED 2D CA E8 BD C0 89 6E ..C.0..s.-.....n
0173C0: 0C 28 CA F2 2F B3 A7 07 DE 02 ED 89 F2 C3 03 A8 .(../...........
0173D0: 82 14 4E 03 0A F9 AB 93 F9 F7 BC 12 C3 24 34 7B ..N..........$4{
0173E0: 28 1B 0E A9 32 E7 E6 EB B2 BB D3 09 58 C3 70 07 (...2.......X.p.
0173F0: 64 1E B1 72 B7 25 97 E1 D3 29 A3 02 36 9D B9 7E d..r.%...)£.6..~
017400: 5F 23 D6 EB D3 17 D5 C4 82 CD 53 37 38 D4 6D 85 _#........S78.m.
017410: E5 6C 13 38 E4 7B AF 01 3E 3F 82 D6 FD 10 48 0B .l.8.{..>?....H.
017420: D0 8F 02 80 81 43 9B CD B7 F4 03 F9 63 89 30 43 .....C......c.0C
017430: F4 8E 11 A3 55 A4 2F 53 09 1E 68 C8 AE C0 BA 04 ...£U./S..h.....
017440: 7D E7 F6 27 0E 92 EC 07 DE 9F EE 89 B4 C3 00 A8 }..'............
017450: 8A 14 5F 2F 13 87 44 C3 FB A5 9E 32 58 E5 9F 48 .._/..D....2X..H
017460: 1E 20 2C F1 52 36 B5 A2 FC CF F2 FB 5B 8F 70 2D . ,.R6......[.p-
017470: 86 A8 9E 56 8C C8 5C 2D FF 2B 74 2F 2F 89 D9 37 ...V..\-.+t//..7
017480: 8B 2F ED EA 98 1F 32 EC 9B 36 53 E3 38 D4 6D 0F ./....2..6S.8.m.
017490: 24 AF 23 1C DF 59 EE C6 9C 77 CC 83 34 31 67 30 $.#..Y...w..41g0
0174A0: D3 64 2A FD 60 6B FA 17 9B E3 2A 47 6D 88 F0 AA .d*.`k....*Gm...
0174B0: E9 83 43 A0 23 6B 28 46 F3 19 C9 B3 AE 70 BA 47 ..C.#k(F.....p.G
0174C0: 93 55 D7 CB 0C BF 07 27 AB 78 1F 87 8F 28 73 A6 .U.....'.x...(s.
0174D0: 2B 34 37 CE FC E0 AB 21 D9 F4 D7 F1 5C C8 1C 68 +47....!....\..h
0174E0: 62 CF D9 F7 77 A6 DE 45 FC 9D F1 6C 58 0A 70 3C b...w..E...lX.p<
0174F0: 85 69 BD F2 AC DB 99 DB E7 0A 27 2F 35 9D D8 C6 .i........'/5...
017500: A6 2C ED 03 45 C3 26 FF B2 28 63 18 12 20 74 C5 .,..E.&..(c.. t.
017510: 05 49 03 11 AD A0 60 2C 73 7A BE 7A 29 CF 6A 18 .I....`,sz.z).j.
017520: DE 8F 02 82 99 84 8D D1 9E 05 1A B1 61 41 F0 69 ............aA.i
017530: E8 66 40 AD CA 84 50 A0 1C 10 C8 E5 AD C0 DF 9F .f@...P.........
017540: 7C 11 C0 6B 21 B2 07 42 34 76 F7 B8 AE 61 73 A5 |..k!..B4v...as.
017550: 07 2D 56 2E 91 CE B3 26 D9 2C BC FB B0 7A 3C 6B .-V....&.,...z<k
017560: 01 20 7C 3B 5F A9 9C A5 76 9A 4E 12 B1 EB 69 78 . |;_...v.N...ix
017570: AC 0D BD 5B 8C 98 74 EA E1 22 A3 2D 16 D9 91 C0 ...[..t.."£-....
017580: E2 7F A4 A5 22 17 1D D7 64 DC 52 01 3B D4 08 01 ...."...d.R.;...
017590: 2D 7F 21 31 FD 62 8C 21 73 2A 0D AB D2 19 6B 3D -.!1.b.!s*....k=
0175A0: D3 8F 70 11 8F 7B 95 7A 97 FE 03 A8 89 67 FD 43 ..p..{.z.....g.C
0175B0: E8 EF B0 80 26 A4 3C 53 F3 7A 3B E9 12 E0 50 45 ....&.<S.z;...PE
0175C0: 8A 06 FD 51 C1 90 24 04 E2 A2 E3 89 AF 2A 68 AA ...Q..$......*h.
0175D0: 94 14 B6 07 0A FC 83 17 DA F4 BC EB 9B C8 1C 68 ...............h
0175E0: E8 09 2D F7 77 A6 C7 45 13 96 F1 32 29 22 84 78 ..-.w..E...2)".x
0175F0: 84 86 BF F2 AC DA 99 DB E7 0A 27 2F 35 9D D8 E6 ..........'/5...
017600: 4A 04 FD C3 57 15 1F CC BB FF 39 44 7A 9A 2A B0 J...W.....9Dz.*.
017610: 24 10 46 50 92 79 AF 67 3A 34 85 D0 95 10 27 7F $.FP.y.g:4....'.
017620: 81 CA 22 D0 40 4B B6 DF B4 F3 03 D8 81 A0 FF 6A ..".@K.........j
017630: E8 47 43 4A C9 1B 11 4D F3 E5 C8 49 8D C3 BA 6D .GCJ...M...I...m
017640: FA E6 3B 48 61 90 27 CC E0 94 EE 89 CE 30 BC A6 ..;Ha.'......0..
017650: 2B 34 3D DC E7 F7 BE 2D D4 F4 BC 73 40 2A 11 68 +4=....-...s@*.h
017660: 01 41 DF 0F 88 A6 9D A9 FC 9B 90 C1 B4 DA 15 5E .A.............^
017670: 73 2F DA 5A 81 C8 B5 A7 02 E4 95 0F 36 F8 2A 62 s/.Z........6.*b
017680: B2 38 EC E7 6C 37 5A 1E 74 D2 7A 0C 5E 26 98 0A .8..l7Z.t.z.^&..
017690: 04 6C 0E 11 DF 3C 7D CE 6A 1E E5 75 CF C5 95 30 .l...<}.j..u...0
0176A0: FB 82 02 F0 05 99 7B FD C3 DA F5 B1 00 89 FD 43 ......{........C
0176B0: E8 EB B7 4F C7 84 31 36 07 EB C6 E9 A0 C0 BA 08 ...O..16........
0176C0: 67 E7 D9 6A 2C D7 F3 D3 3F 99 C6 84 AF C3 36 5F g..j,...?.....6_
0176D0: C4 2D 69 06 E5 F7 B3 2D D4 F4 BC 77 47 2A 11 68 .-i....-...wG*.h
0176E0: 01 45 D8 0F 88 A6 9D A9 FC 9B 94 C6 B4 DA 3F 5E .E............?^
0176F0: 73 2F A0 5A 2C E8 AB 2B F3 0B B3 0F DD 9E 79 B6 s/.Z,..+......y.
017700: 6A 04 FC C3 57 15 7A A2 DF FF 35 4A 1B 87 28 B4 j...W.z...5J..(.
017710: 57 0B 4D 33 E4 54 8F 21 32 B2 38 8C E6 12 4A 10 W.M3.T.!2.8...J.
017720: F3 AF 22 D0 40 28 B4 A7 F8 BD 57 E1 2E DD B5 61 ..".@(....W....a
017730: D3 8D 43 A0 9A 45 19 5C DA 1F E4 E8 CC C3 39 4D ..C..E.\......9M
017740: 8F 0B 6F 6B B3 92 19 27 3A 98 71 A9 B1 90 50 AA ..ok...':.q...P.
017750: 8A 14 5F 2F 13 87 44 C3 FB B7 9E 32 58 E5 D5 48 .._/..D....2X..H
017760: 00 B7 0C E4 16 A5 B5 84 FC F0 F2 93 7B CE 70 77 ............{.pw
017770: EF DF 4F 56 8C C8 D6 2F D0 E0 B8 02 36 9D B2 7F ..OV.../....6...
017780: 44 21 ED EA 0F D9 3F CC 9B B3 79 AD 1B D9 6D F5 D!....?...y...m.
017790: 6E AC ED 1C DF 59 EC CF 53 91 EC 8E DD 30 00 D8 n....Y..S....0..
0177A0: 3C 82 02 F0 03 86 94 E2 B7 9E 00 61 60 A8 F0 2D <..........a`..-
0177B0: EB 2F 63 AD CA 84 5B BB 02 12 C9 E8 CE 2D 9A 86 ./c...[......-..
0177C0: B3 05 D4 6A 46 5A E8 2A C0 99 8D 67 AF E3 53 C4 ...jFZ.*...g..S.
0177D0: 28 95 7C 22 13 EE C0 C5 37 F9 BC 12 D0 2B 3C 83 (.|"....7....+<.
0177E0: 21 2D 2C FA 1D 4F 5A A9 FC 9B 92 DF 5B C5 70 07 !-,..OZ.....[.p.
0177F0: 86 FF BE D2 8C B9 B6 63 D0 06 98 0F 5E 77 36 98 .......c....^w6.
017800: 8B C7 CD 43 4C 24 13 F5 95 DE C5 2E 77 9B 2C BB ...CL$......w.,.
017810: 24 66 38 FC FF 7B AC 02 51 41 C1 83 DD 58 80 0B $f8..{..QA...X..
017820: D2 30 20 D0 37 2E D1 AF E4 D1 38 42 48 91 E6 6A .0 .7.....8BH..j
017830: D3 AC 63 82 F1 87 31 53 05 37 C4 E8 AD A8 51 44 ..c...1S.7....QD
017840: A8 E2 FC 73 0C 9B 3C CA E2 BA CD AB 94 3C 5F 83 ...s..<......<_.
017850: 26 34 5C C7 3B E3 AA 2C B1 1F 95 3B 88 C4 A3 48 &4\.;..,...;..£H
017860: EB 08 35 D9 5E 9D 58 86 DF B8 D3 09 A4 C3 58 7A ..5.^.X.......Xz
017870: 85 36 59 73 81 C8 B5 AA 1B 22 B1 0F 30 9D AA 95 .6Ys....."..0...
017880: 62 2C 96 EA 1F 34 9E CC 96 DF 7A 64 D7 3A 63 D5 b,...4....zd.:c.
017890: EF 64 AA 31 CC 75 96 2E 72 C5 EE C5 8F 75 2F 10 .d.1.u..r....u/.
0178A0: 87 DD 43 BE 33 2D D1 B6 97 D3 21 93 8A A0 E9 55 ..C.3-....!....U
0178B0: C1 B5 61 80 E8 BF 32 53 F3 E9 E1 E5 AD C0 D2 81 ..a...2S........
0178C0: BA 33 3E 42 35 92 2E 1C 2D BB CD AA 8D F8 AC A7 .3>B5...-.......
0178D0: 03 39 5C 2F FB C6 A7 2C D9 9C 50 3B 9A FE 1D D7 .9\/...,..P;....
0178E0: 21 CA 04 E3 54 8F 8E 49 DE B8 D2 10 60 3C 70 5F !...T..I....`<p_
0178F0: 88 36 BE BC A4 C5 B5 C2 98 E7 B1 26 36 9B D8 E2 .6.........&6...
017900: A8 2C ED 83 82 D8 1D AA B9 FF 91 2C 25 3B 6E D5 .,.........,%;n.
017910: 05 D3 23 B0 FF 5A 8F 21 1A 94 3E A1 9E 12 4A DB ..#..Z.!..>...J.
017920: F3 91 E8 F3 60 18 94 08 B4 5A 23 BA 4C 91 E7 42 ....`....Z#.L..B
017930: 57 AE 40 A0 CA D4 F0 7B FC 36 F2 17 BB E8 A3 4D W.@....{.6....£M
017940: BA 09 7D 4A 3F 9E 1E 30 C1 23 CE 86 AE 78 73 BA ..}J?..0.#...xs.
017950: 2A 97 7C 0D 33 A0 C5 0C 96 B2 9C 46 F6 84 51 48 *.|.3......F..QH
017960: 55 6F 0C B8 32 86 F6 EC BD D5 B6 77 1F E3 52 5B Uo..2......w..R[
017970: 88 36 BE 29 6D C9 14 E2 FD 0B 98 7D D7 6C D5 96 .6.)m......}.l..
017980: AB 4D 1E CA 90 17 32 EC 9B AD 9B E2 36 D4 6D 90 .M....2.....6.m.
017990: F6 64 E8 31 C1 B5 8C 21 33 7A 21 80 57 13 7A 31 .d.1...!3z!.W.z1
0179A0: 6C AC 12 DC 42 3F D1 A5 FA D3 21 93 8D AA D3 60 l...B?....!....`
0179B0: CA B5 4E A0 CA F6 D0 68 F2 BC EA F8 81 E2 9A 23 ..N....h.......#
0179C0: D6 5F F4 24 6D FF 42 0F F9 B0 CE AB 94 C0 53 AB ._.$m.B.......S.
0179D0: D3 35 FC 0F 0D E0 AE 2C DF F4 52 11 76 C5 3E 68 .5.....,..R.v.>h
0179E0: EE 23 0C F7 77 A6 D4 57 13 95 F0 3F 5B C3 1A 83 .#..w..W...?[...
0179F0: 6A C3 B1 5A 81 C8 B5 A3 12 E4 95 0F 36 F7 2C 96 j..Z...£....6.,.
017A00: 6C 2C 1D E9 E6 36 A1 CC 96 DF 7A E5 D4 DB 99 0A l,...6....z.....
017A10: 04 6C 0E 11 DF 38 7C CE 7C 53 3A 9A F5 10 86 10 .l...8|.|S:.....
017A20: CA 9B F6 0F 60 43 99 E4 B7 92 F0 47 6F A1 06 5A ....`C.....Go..Z
017A30: C0 8F FC 80 20 AC 22 7A C8 F2 EB CB 8E E2 81 60 .... ."z.......`
017A40: 93 08 3D 51 2D 0D 27 CD E8 8F C7 B2 AC C3 53 52 ..=Q-.'.......SR
017A50: 03 39 5C 2F FA C7 91 C6 F1 ED A5 3B 88 28 3E 4B .9\/.......;.(>K
017A60: 22 02 17 F7 77 A6 5C 50 E5 8F CA 33 E4 E3 9A 5F "...w.\P...3..._
017A70: 9C 2A 97 60 8F C8 B5 3B D8 06 98 0F DF 69 C1 82 .*.`...;.....i..
017A80: 82 2D 5D EB E6 14 2F ED 38 FC 6A 20 19 F4 39 B0 .-].../.8.j ..9.
017A90: 45 09 23 5F B0 76 BF 01 3E 35 9E C6 FD 73 22 7F E.#_.v..>5...s".
017AA0: 9A CC 47 D0 42 50 99 E4 B7 96 E7 A9 C1 A8 FD 43 ..G.BP.........C
017AB0: E8 EB A7 4E C4 A4 CB 73 FE 1F C9 8D 49 31 A3 3C ...N...s....I1£<
017AC0: B3 E3 F4 74 DE B1 07 09 C0 68 ED 84 AF C3 32 58 ...t.....h....2X
017AD0: C4 39 5C 2F 72 1D 5E D3 D9 DC B1 12 B3 A4 EF 87 .9\/r.^.........
017AE0: 0F 09 D9 05 77 8E B8 A4 FC FA 02 DD 54 EA 71 D7 ....w.......T.q.
017AF0: A5 28 4E 58 8C 7D B5 30 F3 08 98 0F CC 72 DB 96 .(NX.}.0.....r..
017B00: A8 E5 ED C0 6C 40 3C E1 9B DF 8C E3 36 D4 6D 03 ....l@<.....6.m.
017B10: F0 4B 02 B0 FF 54 8F 21 85 94 C1 83 DD 53 84 10 .K...T.!.....S..
017B20: 38 AF 0F F0 60 9D 7B E9 B7 F3 60 45 60 94 F0 3B 8...`.{...`E`..;
017B30: EB 2F 63 A3 CA 84 C8 7B FE 1F C9 1E 84 2F B9 6D ./c£...{...../.m
017B40: 93 F2 F4 81 0C AC 70 24 C0 9F EE F0 AC 0A 53 9A ......p$......S.
017B50: 2B 4E 5F 86 33 F7 BD 00 C0 E0 BD AD 93 E7 5E 29 +N_.3.........^)
017B60: 4F 6B 0C D8 4C A7 B8 A4 FC EF 94 5F AB 2C 8F 7B Ok..L......_.,.{
017B70: AD 3B BE 5B ED 21 9C C3 6F 2B 86 03 CE 9C 11 96 .;.[.!..o+......
017B80: 9C 2C 96 E9 E6 14 2F ED 24 FF 59 1C 17 3E 45 EC .,..../.$.Y..>E.
017B90: 0F 6D 38 12 DF 59 FF C0 5B 6E E5 B8 FF 10 3A 7C .m8..Y..[n....:|
017BA0: 96 CE 51 B5 40 3C D5 AD E3 D3 21 93 63 88 F0 33 ..Q.@<....!.c..3
017BB0: 09 A6 4C 89 CB 4D 31 B0 F3 63 CA E5 AD C0 DF 99 ..L..M1..c......
017BC0: 7C 06 D5 67 2C B2 66 96 2F 97 EF 84 AF C3 32 19 |..g,.f./.....2.
017BD0: C4 3B 5D 22 13 EE CB 9F 36 FA BD 8C 93 C8 1C 68 .;]"....6......h
017BE0: E8 CF 23 DA 9B 86 AC B0 FD 96 F1 32 3E 37 9F 7A ..#........2>7.z
017BF0: 85 36 DB AF 79 E0 B8 C2 F0 DF B0 02 36 9D 11 BF .6..y.......6...
017C00: 45 22 C4 EB 61 37 3F 8D 2A 30 77 0C 3B B5 DC 00 E"..a7?.*0w.;...
017C10: 2C 49 03 11 0B 71 82 21 73 B3 E5 6D D3 10 90 10 ,I...q.!s..m....
017C20: 2C 8F 2A FD 60 6B 7E CC BA F3 03 41 49 A1 01 5A ,.*.`k~....AI..Z
017C30: C6 AE B9 80 35 84 19 5E F3 1F 23 C0 A0 C0 BA 84 ....5..^..#.....
017C40: BA 21 26 73 0F 9B 06 2A C0 99 8F 3B 40 CE 53 AB .!&s...*...;@.S.
017C50: 4A 86 A9 D0 13 C6 A7 2C D9 95 0E FD BC E5 E6 48 J......,.......H
017C60: 0C 20 2C 10 5F AB B5 A4 15 B2 1E 2B 78 EA 71 7A . ,._......+x.qz
017C70: 85 36 DF E8 63 C5 B5 C2 91 B8 6C F0 36 B5 D5 96 .6..c.....l.6...
017C80: AB C5 03 F3 60 17 C5 CC 96 DF 7A F8 13 D9 6D F5 ....`.....z...m.
017C90: ED 6D ED 1F F6 58 3F 20 BA 7A 98 83 5F 33 67 30 .m...X? .z.._3g0
017CA0: D3 E6 E0 1F 79 3B 61 1B B7 DB FC A4 48 85 F0 43 ....y;a.....H..C
017CB0: 00 A6 4E A0 CA E5 D5 7A DA F1 DD C1 5B D9 92 6C ..N....z....[..l
017CC0: 9E 08 D4 18 CD 5D F8 2B E8 66 AB 7F A2 C3 53 C2 .....].+.f....S.
017CD0: C9 1D A8 20 12 4F 8A 2F D9 F4 45 3A BE C5 1C 1A ... .O./..E:....
017CE0: E0 09 C3 F9 77 A6 4F 84 17 BB EF B0 58 C3 76 77 ....w.O.....X.vw
017CF0: 06 35 77 5B 9A C8 31 C1 F3 0B 98 EB D9 BF B7 B4 .5w[..1.........
017D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
017D10: 14 00 01 00 02 09 4E E5 14 00 41 02 00 00 00 02 ......N...A.....
017D20: 14 00 46 02 00 00 00 02 14 00 42 02 00 00 00 02 ..F.......B.....
017D30: 14 00 47 02 00 00 00 02 14 00 43 02 00 00 00 02 ..G.......C.....
017D40: 14 00 48 02 00 00 00 02 14 00 44 02 00 00 00 02 ..H.......D.....
017D50: 14 00 49 02 00 00 00 02 14 00 45 02 00 00 00 02 ..I.......E.....
017D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017E00: AB D5 C5 E7 6C 37 5A 08 B2 DE E5 2C 25 AF 6E F4 ....l7Z....,%.n.
017E10: BB 64 20 01 F3 B3 A7 38 78 53 F7 7C DE 18 73 3E .d ....8xS.|..s>
017E20: FA B4 FD F3 48 64 BD DF 48 F0 2B B1 6F A1 CB BC ....Hd..H.+.o...
017E30: EB A6 53 89 F1 A6 11 73 D1 24 CA E8 AD 3A 81 4F ..S....s.$...:.O
017E40: B3 28 F6 51 D3 B1 2F 3E CE B0 D5 76 AC EB 5D 82 .(.Q../>...v..].
017E50: 10 CB 5F 07 0A E1 83 17 26 F7 94 1D 9A C4 1F 68 .._.....&......h
017E60: 01 C4 C3 F9 77 A6 4C 8C F1 9B F1 57 BF EA 71 74 ....w.L....W..qt
017E70: 85 36 47 73 81 C8 B5 A7 14 22 77 0C 36 9D 21 BE .6Gs....."w.6.!.
017E80: A6 2C ED 8B 9C C1 26 F8 B2 DE 79 0C 3B 2D 45 F8 .,....&...y.;-E.
017E90: 04 44 62 E1 29 40 9B 08 9C 79 CC 83 39 31 F5 10 .Db.)@...y..91..
017EA0: CD 7C 00 F1 FF 4B 8A C9 B4 F3 69 A8 93 8B 6F 63 .|...K....i...oc
017EB0: F6 2E 42 A1 55 A4 2F CE F2 1E C4 E8 AD AD 50 82 ..B.U./.......P.
017EC0: 9D 09 D9 6A 2C DF EC C8 D5 98 E3 89 AF AE BF 44 ...j,..........D
017ED0: 24 35 51 2F 13 9D 4B C3 D7 F5 B1 12 B3 B6 FE 87 $5Q/..K.........
017EE0: 14 21 21 FA 77 D5 56 4B F3 9A FC 32 5B B0 94 98 .!!.w.VK...2[...
017EF0: 8A 37 B3 5B 8C BB 50 2D E5 0A 95 0F 36 EE 3E 79 .7.[..P-....6.>y
017F00: A4 2D 57 CA 4F 27 13 E2 9A 64 5A 2F 2B F8 62 F4 .-W.O'...dZ/+.b.
017F10: 8E 67 13 11 93 59 7B 22 D0 59 DC AF FF 7D 2B 7E .g...Y{".Y...}+~
017F20: 92 C8 47 A2 33 4B DA A5 FA B6 23 80 2D C9 A8 63 ..G.3K....#.-..c
017F30: D0 A7 63 82 F1 87 31 53 15 1E CA E8 AD 26 55 92 ..c...1S.....&U.
017F40: 8F 20 D7 6A 2C 54 2E 26 4A BA FE 88 0E E3 AC A5 . .j,T.&J.......
017F50: 0B 1C 5F 2F 13 28 83 C2 CF D4 57 32 AD 31 1F 68 .._/.(....W2.1.h
017F60: 53 20 D9 F9 FD 85 A5 A5 5F B8 E1 1E 79 93 3F 3E S ......_...y.?>
017F70: CB 62 ED 7B CA 87 E7 E2 B1 2B CF 46 78 BD EA B9 .b.{.....+.Fx...
017F80: 98 0C CD CA 4C 17 1F CC BB FD 41 01 3B D4 1D 81 ....L.....A.;...
017F90: F7 45 89 32 CF 58 2E 01 7E 7A CC F3 A9 C3 84 21 .E.2.X..~z.....!
017FA0: F3 73 22 FD 60 6B E4 90 44 02 13 88 8B A8 EE B6 .s".`k..D.......
017FB0: EB 8E 49 A0 3C 87 91 73 ED 21 C8 E8 3B C0 46 6E ..I.<..s.!..;.Fn
017FC0: 25 28 F6 2E 6D E6 46 7E E4 B7 8A E8 DB E1 52 35 %(..m.F~......R5
017FD0: 0B 39 5C 2F FA 01 A5 0C 35 D4 A5 78 B2 66 3F 7F .9\/....5..x.f?.
017FE0: 2D 23 2C FA 8E 8E B8 A4 FC 72 D8 33 EB C2 F8 76 -#,......r.3...v
017FF0: 33 16 9C 36 E9 A6 C0 E6 DE 6F F9 7B 14 9C 46 B6 3..6.....o.{..F.
018000: CE 4D 09 C2 7D 1E D0 CE FD EB 58 0D 38 D4 6D 9D .M..}.....X.8.m.
018010: 61 25 E7 39 CD 70 60 03 15 4F EE 83 62 30 4D 34 a%.9.p`..O..b0M4
018020: 40 AF 0F F0 60 11 25 CC A1 DA 02 67 40 08 D0 5A @...`.%....g@..Z
018030: 3C 8F 84 80 D4 AC 35 52 6D 3F C4 E8 AD 2E 55 74 <.....5Rm?....Ut
018040: 4F 28 38 4A 35 67 27 C1 E0 6C E1 88 31 E3 5E AB O(8J5g'..l..1.^.
018050: 2B CC B3 20 33 02 8A 3A D8 37 9C 1F B3 C5 66 D9 +.. 3..:.7....f.
018060: 29 2D 2C FA 8F 8F B4 14 FD 54 D1 3F 5B C3 9E 5B )-,......T.?[..[
018070: 88 36 BE 21 3D E0 BA EB DC 06 98 0F 4C 2C F0 86 .6.!=.......L,..
018080: 82 00 E0 EA 6C 4D 8E C4 8A F6 56 01 3B D4 17 44 ....lM....V.;..D
018090: 2C 56 2A 3D D2 59 8F 5B C2 52 DF AA F1 3D 6A 30 ,V*=.Y.[.R...=j0
0180A0: A9 3E 2A E4 49 47 99 E4 B7 89 B2 80 75 A1 DC 4E .>*.IG......u..N
0180B0: E8 8E 39 11 E2 92 18 52 43 1E 63 C8 B2 C0 BA 67 ..9....RC.c....g
0180C0: B6 98 D5 C2 0E E1 44 75 84 BB EF 3E 8D 87 71 AA ......Du...>..q.
0180D0: 81 14 A3 6D E6 E1 AB A5 D8 3D BC 35 B3 ED 18 E4 ..£m.....=.5....
0180E0: 21 12 19 CF 5B 97 87 9C D0 AA C3 0A 77 F2 42 4F !...[.......w.BO
0180F0: A9 07 8A 68 A0 F9 81 F3 DC 3A AB 37 1A AC EC A7 ...h.....:.7....
018100: 8B 2C F2 EA 45 33 B3 CC A9 EA 4F 20 0B F8 5D D9 .,..E3....O ..].
018110: 34 68 31 24 EA 75 B7 14 5F 4B FB B3 F1 08 5F 10 4h1$.u.._K...._.
018120: D3 91 02 DA 64 E7 B4 D6 82 C6 2F 99 4C B9 DC 72 ....d...../.L..r
018130: C4 BC 77 91 E6 BC 00 7F C2 28 FE C4 95 F1 BA 44 ..w......(.....D
018140: 93 23 D0 E6 0C 83 34 1F EC A8 DA B8 83 F2 60 93 .#....4.......`.
018150: 07 05 68 1E 3F DF 99 14 F5 C5 88 23 9F F4 2F 50 ..h.?......#../P
018160: 2D 11 18 CB 57 86 95 A4 DE 9B DD 36 D7 E3 41 40 -...W......6..A@
018170: B2 1A 86 6A A0 F9 82 F5 DC 33 A9 23 07 AA EF BA ...j.....3.#....
018180: 93 1D C1 DB 5B 00 13 D4 AA DF 5D 0C 16 D0 E1 D5 ....[.....].....
018190: 35 77 3B 3D EE 6D BE 0D 42 49 F4 AF EC 04 59 1C 5w;=.m..BI....Y.
0181A0: E2 BD 3A DC 51 59 AC C8 86 C1 3B 84 52 BD C5 63 ..:.QY....;.R..c
0181B0: E8 AE 43 8E CE 08 11 62 C4 2F E5 D0 98 EC 8B 5A ..C....b./.....Z
0181C0: A3 24 E6 5F 19 9E 37 0B F0 B5 DE A5 9D F6 66 8B £$._..7.......f.
0181D0: 2B 14 5C 00 17 62 8A 1D EE C3 90 2A 82 E9 2D 5F +.\..b.....*..-_
0181E0: 36 0C 1E CE 46 8A 84 88 CD B7 C0 1E 69 F6 45 57 6...F.......i.EW
0181F0: 85 66 BE 8B 8B 69 95 CF F0 0B FB E6 D9 90 D8 96 .f...i..........
018200: A6 2C ED 04 83 38 1F 00 BB C6 75 0D 98 F7 7A D9 .,...8....u...z.
018210: 07 44 03 7C BA 37 7A 09 7E 7A CC 6D F4 31 DA 31 .D.|.7z.~z.m.1.1
018220: 5B 8E B4 D0 42 0F F5 90 D6 96 27 86 04 E9 84 61 [...B.....'....a
018230: E9 10 63 AD CA 84 DF BC FC 3F 25 C8 B4 DA BB CE ..c......?%.....
018240: B0 1F F8 69 2C B2 E2 0F CD 99 EE 67 86 C2 E3 AA ...i,......g....
018250: A3 34 0D 2F 15 EA 1C 0C FB 90 DD 66 D2 B3 32 0C £4./.......f..2.
018260: 60 54 0E FB E9 86 B8 A4 FC 75 1E 3D 7B 2F 50 67 `T.......u.={/Pg
018270: 84 A8 9E 56 8C C8 5C 2D FF 2B 74 2F 2F DD D9 35 ...V..\-.+t//..5
018280: 88 3B C1 E7 6C 37 C9 C4 96 DF 7A E2 17 D9 6D F5 .;..l7....z...m.
018290: ED 6D 02 A1 FF 54 8F 21 9A 56 C1 83 DD DE 6B B8 .m...T.!.V....k.
0182A0: D2 46 02 F6 61 6C 90 E9 B7 F3 6C 19 8F 86 F1 4E .F..al....l....N
0182B0: E8 8E 2C 5A 25 8A 30 5E F3 1F AA 0E 42 CE BB 60 ..,Z%.0^....B..`
0182C0: 93 08 B5 9A C3 A0 06 2A C0 99 80 61 40 CD 52 A6 .......*...a@.R.
0182D0: 2B 34 32 C6 FC E0 AB 21 D9 F4 D6 E4 5C CB 1D 65 +42....!....\..e
0182E0: 01 20 47 19 98 A8 B4 A9 FC 9B 9B DE B4 CD 71 7A . G...........qz
0182F0: 85 36 DF BA 63 C6 B4 CF F0 0B F9 EB D9 84 FB 97 .6..c...........
018300: A6 2C ED 8B 8B D8 26 F8 9A D2 7A 0C 5A 3C 82 FB .,....&...z.Z<..
018310: 05 49 03 11 BE B2 60 38 C7 7B C1 83 DD 53 86 DF .I....`8.{...S..
018320: CA 81 03 FD 60 6B FE 17 58 FD 02 A5 60 88 97 B9 ....`k..X...`...
018330: 07 80 42 AD CA 84 5B A2 1C 11 C8 E5 AD C0 D0 80 ..B...[.........
018340: 7C 06 D5 67 2C B2 6D C9 2F 97 EF 84 AF C3 3D 41 |..g,.m./.....=A
018350: C4 3B 5D 22 13 EE C0 DB 36 FA BD 1F B3 C5 76 9D .;]"....6.....v.
018360: EE 2E 2D F7 77 A6 D4 49 13 95 F0 3F 5B C3 11 82 ..-.w..I...?[...
018370: 6A 29 BE 5B DC 8B 24 C3 FD 0B 98 6E C0 72 D6 97 j).[..$....n.r..
018380: A6 2C ED 8B 0D D6 D0 E2 9A D2 7A 0C 59 31 82 FB .,........z.Y1..
018390: 05 49 03 11 B0 A8 60 2F 72 77 CC 83 B2 C0 85 3E .I....`/rw.....>
0183A0: D2 82 02 F0 0F 98 7B EA B7 87 03 A0 64 1B D0 4E ......{.....d..N
0183B0: E8 8E AF 88 D3 C4 18 7F F0 1F C9 1C 85 D9 AE 44 ...............D
0183C0: BF 0B D4 6A DA 9A 1E 3B E9 B5 E3 89 AF 29 7B B2 ...j...;.....){.
0183D0: 37 1D 70 22 13 EE 5E 04 C0 E8 95 3E BE C5 1C 80 7.p"..^....>....
0183E0: 29 39 30 D3 5B AB B5 A4 11 B3 E7 1B 77 CE 70 77 )90.[.......w.pw
0183F0: 70 1E A7 47 A5 E4 B8 C2 F0 EC B0 16 2A B4 F4 9B p..G........*...
018400: 42 0C 17 CA 61 37 3F 8F 6D 30 74 2C D0 F4 60 F5 B...a7?.m0t,..`.
018410: 04 26 EF FE D1 58 82 21 73 1E 22 6C D3 31 67 30 .&...X.!s."l.1g0
018420: D3 E0 EE 1F 6E 6A 99 E4 B7 BC 32 66 8F 86 F1 4E ....nj....2f...N
018430: E8 8E AA 4F D3 B8 30 5E F3 1F AF 84 CC 27 55 62 ...O..0^.....'Ub
018440: 93 0E D4 B0 2B 7B 07 1E C0 AD E6 20 8F DA 5D 87 ....+{..... ..].
018450: 32 23 5D 90 33 ED AA 2C A9 15 94 06 9A FE 3E 48 2#].3..,......>H
018460: 21 00 0C B9 38 E8 E1 ED B2 CE B4 12 7B E3 50 55 !...8.......{.PU
018470: BE 35 BE 5B FC 29 9D CD D9 0A 38 2F 28 9D 22 96 .5.[.)....8/(.".
018480: 7F 2C 75 E2 61 37 3F 0A 74 D0 8E F3 37 FC 92 B0 .,u.a7?.t...7...
018490: F2 5D 43 38 DE 54 8F 21 9F 52 C1 83 DD D6 43 DF .]C8.T.!.R....C.
0184A0: 2C 8F 2A FD 60 6B 66 0A BA F3 03 5B 49 7E FD 43 ,.*.`kf....[I~.C
0184B0: E8 FC A2 54 35 84 19 5E F3 1F 3B 19 A0 C0 BA 9E ...T5..^..;.....
0184C0: BA FE D9 6A 2C C0 E5 26 CD 99 EE EA 46 2C 5E AB ...j,..&....F,^.
0184D0: 2B 57 B5 DA EC EE 82 21 D9 F4 4E FD BE C5 1C 9B +W.....!..N.....
0184E0: 28 21 21 FA 77 C2 41 4B 03 9B D9 3F 5B C3 82 98 (!!.w.AK...?[...
0184F0: 88 36 BE A8 A5 C9 19 EA F3 0B 98 EE 1E 90 D8 96 .6..............
018500: CD 40 8C 8D DD 1B 32 EC 9B B9 16 6D DC FD 41 EC .@....2....m..A.
018510: 0F 68 0C 38 30 A6 F6 09 8C 63 E4 8E DD 30 99 19 .h.80....c...0..
018520: FF 80 2B F1 CC 43 97 E4 B7 12 2B A5 60 88 96 2F ..+..C....+.`../
018530: 89 E9 F2 8C C7 84 31 35 9F 7E 2E C1 81 D9 B6 41 ......15.~.....A
018540: 9C 21 3B 95 55 9A F8 3E E8 94 EE 89 5D EA 7F A4 .!;.U..>....]...
018550: 02 35 95 2F 88 EE 56 24 D4 F4 BC 7A 49 2A 11 68 .5./..V$...zI*.h
018560: 01 D6 04 F5 5B AB B5 A4 9D 7F D8 33 56 C3 70 1F ....[......3V.p.
018570: 7C D9 B3 5B 8C 3E 9D D2 DC 06 98 0F 57 79 F1 97 |..[.>......Wy..
018580: A6 2C ED 8C 8B D8 32 EC 9B 27 52 01 3B D4 0C 11 .,....2..'R.;...
018590: 2D 45 00 11 DF B7 60 22 73 7A 3A AB D0 30 6A 51 -E....`"sz:..0jQ
0185A0: 37 A6 03 FD 60 6B F2 0C 58 FE 03 A8 95 A0 FD 43 7...`k..X......C
0185B0: E8 EF A7 89 CB 89 31 53 95 F5 26 E5 AD C0 5F 45 ......1S..&..._E
0185C0: 9C 24 D9 6A 2C D3 E3 0E C1 94 EE 89 DD 39 BC A6 .$.j,........9..
0185D0: 2B 34 B9 07 03 C2 A7 2C D9 95 58 3B B2 C8 1C 68 +4.....,..X;...h
0185E0: 67 CB C3 F7 77 A6 5D 8C F1 9B F1 53 BF EA 70 5A g...w.]....S..pZ
0185F0: 84 30 B7 56 8C C8 DF 25 1F 06 98 0F C2 B5 D5 96 .0.V...%........
018600: AB 2C 15 C2 75 2B 16 C0 96 DF 7A E9 13 C5 41 EC .,..u+....z...A.
018610: 18 6D 2F 12 DF 59 60 09 65 53 CD 4A DD 9B 6A 39 .m/..Y`.eS.J..j9
018620: D7 1C 22 FD 60 6B 6E CC A5 DF 1A 88 49 A4 FD 43 ..".`kn.....I..C
018630: E8 65 6B B9 C6 A8 27 7A DF 1C C9 E8 44 E8 A3 61 .ek...'z....D.£a
018640: BA 24 D9 6A 2C 4B 2F 33 EC 80 E2 A0 83 C0 53 AB .$.j,K/3......S.
018650: C1 1C 4D 06 3F E3 AA 2C 36 DC AC 3E A2 EC 1D 65 ..M.?..,6..>...e
018660: 01 20 4E 02 98 BF B9 A5 F1 9B F1 5C B7 2C 7E 76 . N........\.,~v
018670: 88 36 BE 35 61 27 BB C3 FD 0B 98 61 D8 72 D6 97 .6.5a'.....a.r..
018680: A6 2C ED 84 83 D8 31 ED 96 DF 7A 62 C8 3B 62 F4 .,....1...zb.;b.
018690: 09 44 03 7F 2B B6 81 20 7E 7A CC EB 34 DF 64 31 .D..+.. ~z..4.d1
0186A0: DE 8F 02 98 8A 84 9A E5 BA F3 03 C0 8B 67 FE 42 .............g.B
0186B0: E5 8E 43 C8 26 6B 3F 52 FE 1F C9 86 5C 2F B4 6C ..C.&k?R....\/.l
0186C0: 9E 08 D4 05 CE 5D 09 27 01 99 E4 8D A2 C3 53 C5 .....].'......S.
0186D0: DE DB 53 2E 1E EE AA 42 3D 1B B2 13 BE C5 1C 18 ..S....B=.......
0186E0: E0 CF 22 FB 7A A6 B5 D4 1E 74 FF 33 56 C3 70 07 ..".z....t.3V.p.
0186F0: 66 D9 B0 5A 81 C8 B5 B2 14 E4 96 0E 3B 9D D8 E6 f..Z........;...
018700: 4E C3 E3 EB 61 37 3F 9C 7D 30 74 0D 36 D4 6D 85 N...a7?.}0t.6.m.
018710: E3 AB 0D 10 D2 59 8F CA 5B 77 CC 83 B3 C3 46 20 .....Y..[w....F
018720: FA 60 1B E4 61 66 94 E4 DB 1F EC BF 61 85 F0 43 .`..af......a..C
018730: 98 76 AC B9 FA 85 3C 53 F3 6F 30 07 B4 F9 BB 60 .v....<S.o0....`
018740: 93 08 BE 9A C3 BC 06 2A C0 99 9E 7C 40 CD 52 A6 .......*...|@.R.
018750: 2B 34 2C D9 FC E0 AB 21 D9 F4 D1 FB 5C CB 1D 65 +4,....!....\..e
018760: 01 20 41 12 98 B6 B4 A9 FC 9B 9C D5 B4 D2 71 7A . A...........qz
018770: 85 36 CE AF 63 C6 B4 CF F0 0B F7 F6 D9 8E D9 9B .6..c...........
018780: AB 2C 97 52 83 39 3E 25 9B D5 7A 07 3F 74 4D EB .,.R.9>%..z.?tM.
018790: 38 1E 03 09 DF 57 8B 80 53 85 C2 A3 F5 33 6A 30 8....W..S..£.3j0
0187A0: 0B A6 EC E7 40 80 B4 FA 5A F0 03 D5 60 87 F4 C9 ....@...Z...`...
0187B0: CB 9E 42 A3 CA 84 C9 BC 0C 03 E1 EB AD C0 42 44 ..B£..........BD
0187C0: 92 0B D4 6A CD 5D 04 27 C0 61 EF 8A AF C3 B2 44 ...j.].'.a.....D
0187D0: 28 34 5C CE E7 11 BC 04 CE 01 43 1C 9B C6 1C 68 (4\.......C....h
0187E0: E0 09 05 FB 7A A6 B5 C2 90 FA 16 DD 55 C2 EE 57 ....z.......U..W
0187F0: 88 36 BE B2 63 C7 95 2E D0 12 F8 0E 97 BD DB 96 .6..c...........
018800: AB 4D 09 C3 6D 3A 3F EC F8 38 95 01 3B D4 87 DD .M..m:?..8..;...
018810: 09 44 03 70 3B 70 8E 2C 73 7A BE 7A 32 3D 6A 30 .D.p;p.,sz.z2=j0
018820: 34 A7 0F F0 60 0A 70 CD B6 FE 03 A8 12 69 1F 4E 4...`.p......i.N
018830: E8 8E A6 88 DB A8 3C 53 F3 7E 2D C1 AC CD BA 6D ......<S.~-....m
018840: 6B 20 D9 6A 2C D3 E3 0E 2F 94 EE 89 57 EB 5E AB k .j,.../...W.^.
018850: 2B DD 75 2E 10 EE AA DA F1 F9 BC 12 D2 21 35 87 +.u..........!5.
018860: 02 20 2C 0C 5F AB B5 A4 15 B2 F0 3F 5B C3 86 5F . ,._......?[.._
018870: 8A 1A B3 5B 8C A9 51 EB 1F 06 98 0F C0 B5 D7 BA ...[..Q.........
018880: A6 2C ED 03 45 36 32 EC 9B 29 52 1C 17 D9 6D F5 .,..E62..)R...m.
018890: 65 A0 2A FE D2 59 8F D7 5B 6A E0 8E DD 30 83 19 e.*..Y..[j...0..
0188A0: D2 82 02 F0 95 43 99 E4 B7 92 E7 81 8F 85 F0 43 .....C.........C
0188B0: 1D A6 4E A0 CA 6D 18 52 FE 1F C9 1C 85 CD BA 6D ..N..m.R.......m
0188C0: F2 EC FD 85 21 B2 07 D3 E8 94 EE 89 46 EA 52 A6 ....!.......F.R.
0188D0: 2B 34 B6 07 1E EE AA 4D 3D DD 53 1F B3 C5 F6 40 +4.....M=.S....@
0188E0: 0C 20 2C 13 5E A7 B8 A4 FC 7E D9 3D 77 CE 70 77 . ,.^....~.=w.pw
0188F0: E4 D2 97 B4 81 C8 B5 27 D8 04 B4 02 36 9D 31 BF .......'....6.1.
018900: AA 21 ED EA 89 1F 2F C0 96 DF 7A 6D DF FD 82 F8 .!..../...zm....
018910: 04 44 E6 39 CF 75 82 21 73 93 E5 83 AD 30 7A 39 .D.9.u.!s....0z9
018920: DE 8F 02 15 48 7A B8 E9 B7 F3 62 4C 49 67 FD 43 ....Hz....bLIg.C
018930: E8 6B 6B B1 E6 89 31 53 1A 36 C8 E5 AD C0 52 45 .kk...1S.6....RE
018940: 9E 08 D4 0B C8 9B E8 2A C0 99 06 A1 A2 C3 53 42 .......*......SB
018950: 02 35 51 2F 13 09 82 21 D9 F4 DD F6 9A 2A 11 68 .5Q/...!.....*.h
018960: 01 C7 04 F7 77 A6 5C 8D FD 96 F1 32 A3 EB 7D 77 ....w.\....2£.}w
018970: 85 DF 97 B4 81 C8 B5 A4 17 0A 9B 0F 36 6B F0 9B ............6k..
018980: AB 2C 04 C3 83 34 3F EC 75 DE B3 0C EC D4 B5 AC .,...4?.u.......
018990: 09 44 03 72 31 B6 82 21 73 1B 3C 75 C4 24 6B 3D .D.r1..!s.<u.$k=
0189A0: D3 8F 61 1D 8F 66 94 E4 D4 1D F6 B1 73 89 FD 43 ..a..f......s..C
0189B0: E8 ED AC 4F 35 88 19 4C F3 1F 97 FF 3E 37 B7 6D ...O5..L....>7.m
0189C0: 93 69 24 43 D9 9A 0A 27 C0 F8 1E 7F B5 D3 74 82 .i$C...'......t.
0189D0: 2A 39 5C 2F 79 05 45 22 D8 F9 BC 12 D8 24 F3 65 *9\/y.E".....$.e
0189E0: 01 20 4F 15 82 AB B5 A4 97 78 F0 3F 5B C3 1B 96 . O......x.?[...
0189F0: 6A 3B BE 5B E7 29 41 EA FD 0B 98 64 D7 6C D6 BF j;.[.)A....d.l..
018A00: AB CD 02 E9 6C 37 C6 C4 96 DF 7A E5 12 F4 91 D5 ....l7....z.....
018A10: FB 4A 23 39 DC 59 8F E0 5A 94 DB A3 36 10 67 30 .J#9.Y..Z..£6.g0
018A20: D3 E9 6E 91 87 84 9B E4 87 F3 13 AC D0 89 51 63 ..n...........Qc
018A30: E5 8E 43 C6 A6 E5 D6 73 18 3F D7 05 AE E0 BB FA ..C....s.?......
018A40: B3 0B D4 6A D5 9A 0A 27 C0 EB 0F A0 40 C0 53 AB ...j...'....@.S.
018A50: CA 35 FC 0F 0D 07 A9 2C 0F F4 9C 16 B0 C5 1C 18 .5.....,........
018A60: E0 08 23 D3 98 59 B6 8C E5 95 D8 C6 A4 C0 58 79 ..#..Y........Xy
018A70: AC C2 41 58 A4 D1 BA EB 04 F4 9B 27 39 B4 D9 95 ..AX.......'9...
018A80: AB 2C 9D 0B 44 27 16 03 64 DC 52 15 35 FD 99 0A .,..D'..d.R.5...
018A90: 07 6C 13 38 2B A6 8C 09 6A 75 E5 77 22 33 42 3F .l.8+...ju.w"3B?
018AA0: FA 8E 01 F0 60 1B 75 CC A6 DA EC 57 63 A0 E9 4D ....`.u....Wc..M
018AB0: C1 7A BC A3 E2 95 18 A7 0C 1C E1 F1 A2 E9 4E 92 .z.£..........N.
018AC0: 90 20 DB 43 2D B1 07 27 B0 78 C6 9B 86 2C AC A8 . .C-..'.x...,..
018AD0: 03 2D 52 06 E7 11 A9 04 D6 DD 48 ED B0 ED 05 67 .-R.......H....g
018AE0: 28 D4 D3 F9 5F A8 9C A5 FF 9B F1 42 BA EB 63 5E (..._......B..c^
018AF0: 6A C9 BD 73 95 C6 9C 36 0F 08 B0 00 1F 69 27 95 j..s...6.....i'.
018B00: 83 35 E2 C3 98 C8 3C C4 8B F6 7B 0F 3B D4 1D 14 .5....<...{.;...
018B10: 2C 50 2A FE 20 5A A7 38 7D 53 38 7C DE 18 65 19 ,P*. Z.8}S8|..e.
018B20: 27 70 01 D8 79 64 BD 10 48 F0 2B B9 49 88 33 43 'p..yd..H.+.I.3C
018B30: C9 8A 40 A0 CA F4 D0 7B E6 36 26 17 AE E8 A3 63 ..@....{.6&...£c
018B40: BA FC 2B 69 04 BC 2E D3 3F 9A C6 90 A0 EA A7 54 ..+i....?......T
018B50: 28 1C 4D 06 12 ED AA 2C A9 9B 8D E1 9B CB 35 87 (.M....,......5.
018B60: 02 20 2C 8A 96 8E BA 8D 08 B9 D1 10 5A C0 70 77 . ,.........Z.pw
018B70: F5 59 8F A8 A4 C7 9C 2D F3 0B 98 7F D7 B5 CC BF .Y.....-........
018B80: 5F 0E AA C8 98 34 3F EC EB 3E 52 03 12 D5 6E F5 _....4?..>R...n.
018B90: 04 34 6C 20 2C 71 9F 08 9C 79 CC 83 AD D1 42 23 .4l ,q...y....B#
018BA0: FA 7B 20 B4 42 9F 97 E4 B7 83 E2 80 6F A1 F1 40 .{ .B.......o..@
018BB0: E8 8E 33 CF FB 77 19 42 DA F0 CA E8 AD B0 5B 45 ..3..w.B......[E
018BC0: 83 21 20 48 61 90 F3 24 C0 99 9E 68 87 CC 7A AA .! Ha..$...h..z.
018BD0: 28 34 5C 5F 7C DF 59 04 CB DD 53 11 B3 C5 6C 89 (4\_|.Y...S...l.
018BE0: 29 31 05 0E 55 E7 97 50 FF 9B F1 42 BA EB 7F 5E )1..U..P...B...^
018BF0: 85 1D BE 79 88 CB B5 C2 96 E4 B0 00 1F 72 FA BB ...y.........r..
018C00: 5D D3 ED C2 61 37 3F 87 7A F6 7B 01 3B D4 9B 1A ]...a7?.z.{.;...
018C10: 09 44 03 72 32 58 82 21 73 91 E4 8E DD 30 04 C3 .D.r2X.!s....0..
018C20: FF 9C 2B 1F 6D 6B 94 85 47 F2 0E A8 60 63 D8 4E ..+.mk..G...`c.N
018C30: E8 8E 2D 53 E6 8B 18 BC FE 1F C9 89 45 34 B5 6C ..-S........E4.l
018C40: 0D 28 D9 6A 2C C8 3E 9E 2F 96 CE 65 8F DA 13 AA .(.j,.>./..e....
018C50: 26 34 5C C3 3B E3 AA 2C A3 CD 05 3B 5C CB 1D D8 &4\.;..,£..;\...
018C60: 00 E9 2C 3D 77 9A EF A9 FC 9B 84 D3 B4 CD 71 7A ..,=w.........qz
018C70: 85 36 C4 ED 63 C7 B4 CF F0 0B F7 E5 D9 8D D9 9B .6..c...........
018C80: AB 2C 82 01 83 27 3E E1 9B DF 17 EF D4 DA 6C F8 .,...'>.......l.
018C90: 04 44 62 E6 30 57 8E 2C 73 7A A1 62 32 3E 6B 3D .Db.0W.,sz.b2>k=
018CA0: D3 8F 6F 12 8F 79 95 E9 B7 F3 F7 80 79 90 D9 AC ..o..y......y...
018CB0: E6 8F 4E A0 CA E7 CB BC FD 1E C4 E8 AD A3 4D 82 ..N..........£M.
018CC0: 9D 09 D9 6A 2C DA E6 C8 CE 98 E3 89 AF A7 A7 44 ...j,..........D
018CD0: 25 35 51 2F 13 8C 40 C3 D7 F5 B1 12 B3 A7 F7 87 %5Q/..@.........
018CE0: 0E 21 21 FA 77 C4 5B 4B F2 9A FC 32 5B A1 85 98 .!!.w.[K...2[...
018CF0: 8B 37 B3 5B 8C AB 45 2D FE 0A 95 0F 36 FE 29 79 .7.[..E-....6.)y
018D00: A5 2D E0 EA 6C 54 CD 03 8A 2A 85 0C 13 D9 6D F5 .-..lT...*....m.
018D10: 65 B4 ED 01 F6 58 82 21 73 19 3F 6C D3 31 67 30 e....X.!s.?l.1g0
018D20: D3 EC F6 1F 6D 6B 94 87 45 F3 BB A8 26 D2 FD 43 ....mk..E...&..C
018D30: E8 E3 B7 4F C7 84 31 30 07 1E C4 E8 AD AD 49 82 ...O..10......I.
018D40: 9E 08 D4 09 DE B3 0A 27 C0 FA 18 66 A1 C2 5E AB .......'...f..^.
018D50: 2B 56 A9 C0 1D EF A7 2C D9 9E 5E FD BD C4 11 68 +V.....,..^....h
018D60: 01 4A CF 15 79 A7 B8 A4 FC F8 18 DD 54 C2 7D 77 .J..y.......T.}w
018D70: 85 55 54 B4 95 EE B4 CF F0 0B FB E4 D9 93 D9 9B .UT.............
018D80: AB 2C 06 C2 61 37 3F 82 68 F3 6B 25 D4 D9 6D F5 .,..a7?.h.k%..m.
018D90: 67 B0 02 1C DF 59 64 09 7E 7A CC ED 2E 1C 78 19 g....Yd.~z....x.
018DA0: 3C 82 02 F0 03 99 95 7A 97 FE 03 A8 1A B1 49 AC <......z......I.
018DB0: E7 AE AF 80 D8 85 AF 73 FE 1F C9 92 94 78 55 62 .......s.....xUb
018DC0: B3 E4 F4 73 0C B3 0A 27 C0 63 C6 84 AF C3 29 92 ...s...'.c....).
018DD0: 92 18 51 2F 13 94 93 94 F0 1B B2 13 03 C4 AC 69 ..Q/...........i
018DE0: C8 20 11 FA B7 FB 2B 84 F1 9B F1 D4 B4 CC 50 9B . ....+.......P.
018DF0: A5 20 BF 58 8C C8 54 EA FF 27 95 0F 36 7B F1 79 . .X..T..'..6{.y
018E00: 89 2D EE EA 6C 51 D0 C4 8B F6 95 2E 1B F6 6C F6 .-..lQ........l.
018E10: 04 44 65 FE F7 48 A6 CE 51 51 EE 83 B2 30 49 34 .De..H..QQ...0I4
018E20: 5F AF 31 C1 4C 59 B8 D6 9B C1 31 98 4C BA C1 7A _.1.LY....1.L..z
018E30: C4 BC 72 99 E6 B6 00 6A DF 2D F8 D1 81 F2 8B 54 ..r....j.-.....T
018E40: BF 3A E5 52 00 81 36 0B F2 B5 DD A5 9D F2 64 87 .:.R..6.......d.
018E50: 19 06 6D 03 21 DC 98 00 EB C6 8F 3E 81 F7 28 44 ..m.!......>..(D
018E60: 33 12 19 D6 45 97 83 88 CF AA DD 00 77 F7 5C 45 3...E.......w.\E
018E70: B4 01 92 69 BE FE 99 F0 C2 3C B4 3D 04 A5 F4 A4 ...i.....<.=....
018E80: 99 15 C1 D8 5F 07 13 DE AA E9 7A D5 3B F0 69 79 ...._.....z.;.iy
018E90: 24 77 32 3D ED 75 BA 0D 41 4B FB AF EF 03 5B 1C $w2=.u..AK....[.
018EA0: E1 BC 30 DC 52 58 A7 C8 85 C0 37 84 52 BB C5 6F ..0.RX....7.R..o
018EB0: DA BF 75 8C F9 B5 1D 61 DF 29 E5 DA 9C F7 96 5F ..u....a.)....._
018EC0: A0 3E F8 58 1F 85 2B 15 F3 A1 C2 BB 9C FA 7F 99 .>.X..+.........
018ED0: 1F 04 70 1D 22 D8 86 1F E8 D8 8E 3E 84 E9 2E 59 ..p."......>...Y
018EE0: 36 0C 1E CE 46 8A 87 90 CE B7 C3 06 68 EF 42 43 6...F.......h.BC
018EF0: B1 1A 8C 6F B9 E4 87 F3 C6 27 AB 3E 1A AF F4 AE ...o.....'.>....
018F00: 87 1E DC DD 40 05 0B DA B7 ED 4E 3B 17 E6 59 CD ....@.....N;..Y.
018F10: 28 76 37 28 F3 6B BA 11 5F 48 FD B5 F1 03 5B 1C (v7(.k.._H....[.
018F20: E1 A3 3B DC 52 5A A3 C8 85 C6 32 84 52 BD C2 6F .£;.RZ£...2.R..o
018F30: DA BB 70 8C F8 B1 05 7F C1 2A FC C4 9F F1 8C 41 ..p......*.....A
018F40: A0 39 F8 58 00 83 37 0B F2 A8 DB A5 9D F2 67 87 .9.X..7.......g.
018F50: 19 05 68 03 21 DF 9E 00 EB C5 88 3E 81 F4 28 44 ..h.!......>..(D
018F60: 33 11 1F FA 13 A6 90 A0 FF 9B F1 54 3A A0 95 98 3..........T:...
018F70: 86 36 BE 2B 6D E0 A4 EB F1 CC B8 11 15 99 D9 08 .6.+m...........
018F80: 8B 21 ED EA 82 D8 30 CC 77 FF 63 56 3A 17 4D F8 .!....0.w.cV:.M.
018F90: 04 44 E2 10 DC 59 8F 47 12 19 29 6C DE 30 6A 56 .D...Y.G..)l.0jV
018FA0: B2 EC E7 04 9F 68 BC E9 B7 F3 E2 81 61 38 F1 40 .....h......a8.@
018FB0: E8 8E 25 C1 A9 61 DE 50 F3 1F AF 89 CE 25 4E 6E ..%..a.P.....%Nn
018FC0: 93 08 A4 8B 04 BD 2E 27 94 99 C8 8D AC C3 53 C3 .......'......S.
018FD0: 4E 55 B8 07 1D C7 45 0E BF C5 9E 13 B0 C5 1C 00 NU....E.........
018FE0: 64 41 C8 D2 78 8F 5A 86 9A A9 D3 33 58 C3 70 1F dA..x.Z....3X.p.
018FF0: E0 57 5A 73 9C E1 5A E0 96 38 BA 0E 35 9D D8 FE .WZs..Z..8..5...
019000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
019010: 15 00 01 00 02 09 4E E5 15 00 41 02 00 00 00 02 ......N...A.....
019020: 15 00 46 02 00 00 00 02 15 00 42 02 00 00 00 02 ..F.......B.....
019030: 15 00 47 02 00 00 00 02 15 00 43 02 00 00 00 02 ..G.......C.....
019040: 15 00 48 02 00 00 00 02 15 00 44 02 00 00 00 02 ..H.......D.....
019050: 15 00 49 02 00 00 00 02 15 00 45 02 00 00 00 02 ..I.......E.....
019060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019100: 54 3A C5 F3 61 1E 3E EF 9B DF 9B 24 2B F8 60 F5 T:..a.>....$+.`.
019110: 04 A2 2A FE 20 4F A7 38 7E 53 CD 33 DC F9 6A A3 ..*. O.8~S.3..j£
019120: D3 45 5F 6E 40 69 94 E4 59 1C 0C 88 8C A8 E2 42 .E_n@i..Y......B
019130: 76 AE 41 A0 CA 62 DE 5C D3 F3 E9 FA AC CD BA 6D v.A..b.\.......m
019140: 7A 20 DB 46 2E B2 07 C9 EC 9B EE 89 49 EA BC A5 z .F........I...
019150: 2A 39 5C 2F FA C6 BA 00 DB F4 BC FC 9F C7 1C 68 *9\/...........h
019160: E7 09 C3 F4 76 16 B4 14 FD 05 D1 30 5B C3 9E 98 ....v......0[...
019170: 8A 16 52 7B 9E C9 B8 C2 F0 FA B0 00 1A 9F D8 96 ..R{............
019180: 45 05 02 E4 6D 3A 3F EC 6A F7 6A 20 39 D4 6D 1B E...m:?.j.j 9.m.
019190: 2D AB 0D 10 6F 58 8C 21 73 8A E4 8C F4 DF 48 12 -...oX.!s.....H.
0191A0: D2 8C 02 F0 90 43 84 CD 58 D1 21 A9 C0 A8 EE 83 .....C..X.!.....
0191B0: B5 8E B3 A0 1E D9 AF 73 FE 1F C9 22 42 CF 9A 81 .......s..."B...
0191C0: B3 1A D5 F4 0C BF 07 27 0B 76 E1 A9 43 E3 41 AA .......'.v..C.A.
0191D0: B4 14 42 4D 13 EF A9 2C D9 38 94 1F B3 C5 D6 44 ..BM...,.8.....D
0191E0: 0C 20 2C 31 5E 49 4A A7 D4 96 F1 32 01 7A 59 83 . ,1^IJ....2.zY.
0191F0: A7 18 9C AF 20 E0 B6 C2 F0 C3 B4 02 36 9D 8A 55 .... .......6..U
019200: 87 23 C4 1E C0 1F 3C EC 9B 12 56 01 3B D4 3F 37 .#....<...V.;.?7
019210: 28 4B 2A E5 73 71 8C 21 73 B2 E0 8E DD 30 38 F4 (K*.sq.!s....08.
019220: FF 80 2B 04 63 6B 94 21 9F FE 03 A8 32 49 D9 42 ..+.ck.!....2I.B
019230: EB 8E 43 6C E2 89 31 53 39 33 C4 E8 AD 0B 93 82 ..Cl..1S93......
019240: 90 08 D4 A6 04 BF 07 27 0A B5 E3 89 AF 08 7A 5F .......'......z_
019250: D4 22 74 39 E6 11 A4 04 DA F4 BC DE 9B C8 1C 68 ."t9...........h
019260: CB 0C 21 FA 77 6D 9C 8D D5 9A FC 32 5B 0A 58 78 ..!.wm.....2[.Xx
019270: A9 3B BE 5B 46 E4 B8 C2 F0 C0 B1 E0 39 9C 47 B6 .;.[F.......9.G.
019280: B5 1D EE EB 61 37 3F 25 B3 CF 56 01 3B D4 A7 D9 ....a7?%..V.;...
019290: 09 44 03 DA F6 B6 82 21 73 28 0D 82 6D 31 DA 31 .D.....!s(..m1.1
0192A0: 1A 8F 3A F0 50 99 3D C4 AE FF 2F B1 78 89 4F 63 ..:.P.=.../.x.Oc
0192B0: EB 8E 43 D0 2B AC 21 7A C8 3D E9 C8 8D E0 9A 20 ..C.+.!z.=.....
0192C0: D6 46 81 4A 0C 92 27 07 E0 BB D5 8A AF C3 23 4A .F.J..'.......#J
0192D0: 03 3B 75 2E B3 CE B4 7E DA F4 F8 12 BF 3D 1F 68 .;u....~.....=.h
0192E0: 01 41 9D 15 88 BF 9D A9 FC 9B 85 57 36 33 59 76 .A.........W63Yv
0192F0: 86 36 BE 3A 3D 27 4A BB D8 08 98 0F 57 2C F4 69 .6.:='J.....W,.i
019300: 20 27 0D 0A 31 30 32 34 20 49 46 20 6E 3C 34 35 '..1024 IF n<45
019310: 20 54 48 45 4E 20 53 43 4F 52 45 24 3D 22 20 22 THEN SCORE$=" "
019320: 2B 53 24 2B 22 20 20 20 20 22 2B 52 49 47 48 54 +S$+" "+RIGHT
019330: 24 28 53 54 52 24 28 53 29 2C 31 29 2B 22 20 20 $(STR$(S),1)+"
019340: 22 2B 52 49 47 48 54 24 28 53 54 52 24 28 52 29 "+RIGHT$(STR$(R)
019350: 2C 31 29 2B 22 20 20 20 20 22 2B 5A 24 2B 22 20 ,1)+" "+Z$+"
019360: 22 3A 47 4F 54 4F 20 31 30 33 30 0D 0A 31 30 32 ":GOTO 1030..102
019370: 35 20 53 43 4F 52 45 24 3D 22 20 22 2B 53 24 2B 5 SCORE$=" "+S$+
019380: 22 20 28 22 2B 52 49 47 48 54 24 28 53 54 52 24 " ("+RIGHT$(STR$
019390: 28 53 34 35 29 2C 31 29 2B 22 29 22 2B 52 49 47 (S45),1)+")"+RIG
0193A0: 48 54 24 28 53 54 52 24 28 53 29 2C 31 29 2B 22 HT$(STR$(S),1)+"
0193B0: 20 20 22 2B 52 49 47 48 54 24 28 53 54 52 24 28 "+RIGHT$(STR$(
0193C0: 52 29 2C 31 29 2B 22 28 22 2B 52 49 47 48 54 24 R),1)+"("+RIGHT$
0193D0: 28 53 54 52 24 28 52 34 35 29 2C 31 29 2B 22 29 (STR$(R45),1)+")
0193E0: 20 22 2B 5A 24 2B 22 20 22 3A 47 4F 54 4F 20 31 "+Z$+" ":GOTO 1
0193F0: 30 33 30 0D 0A 31 30 32 36 20 4C 4F 43 41 54 45 030..1026 LOCATE
019400: 20 32 35 2C 31 3A 50 52 49 4E 54 20 70 61 24 28 25,1:PRINT pa$(
019410: 36 29 3B 22 20 48 41 4C 46 20 54 49 4D 45 20 22 6);" HALF TIME "
019420: 3B 50 41 24 28 31 29 3A 46 4F 52 20 5A 39 39 3D ;PA$(1):FOR Z99=
019430: 31 20 54 4F 20 33 30 30 30 3A 4E 45 58 54 3A 4C 1 TO 3000:NEXT:L
019440: 4F 43 41 54 45 20 32 35 2C 31 3A 50 52 49 4E 54 OCATE 25,1:PRINT
019450: 20 53 50 43 28 31 32 29 3A 52 45 54 55 52 4E 0D SPC(12):RETURN.
019460: 0A 31 30 32 37 20 27 0D 0A 31 30 32 38 20 27 0D .1027 '..1028 '.
019470: 0A 31 30 32 39 20 53 43 4F 52 45 24 3D 22 20 22 .1029 SCORE$=" "
019480: 2B 5A 24 2B 22 20 28 22 2B 52 49 47 48 54 24 28 +Z$+" ("+RIGHT$(
019490: 53 54 52 24 28 72 34 35 29 2C 31 29 2B 22 29 22 STR$(r45),1)+")"
0194A0: 2B 52 49 47 48 54 24 28 53 54 52 24 28 72 29 2C +RIGHT$(STR$(r),
0194B0: 31 29 2B 22 20 20 22 2B 52 49 47 48 54 24 28 53 1)+" "+RIGHT$(S
0194C0: 54 52 24 28 73 29 2C 31 29 2B 22 28 22 2B 52 49 TR$(s),1)+"("+RI
0194D0: 47 48 54 24 28 53 54 52 24 28 73 34 35 29 2C 31 GHT$(STR$(s45),1
0194E0: 29 2B 22 29 20 22 2B 73 24 2B 22 20 22 0D 0A 31 )+") "+s$+" "..1
0194F0: 30 33 30 20 4C 4F 43 41 54 45 20 36 2C 33 3A 50 030 LOCATE 6,3:P
019500: A5 04 EE EA 6C 56 8E C5 6E D0 53 0D 84 F4 92 F6 ....lV..n.S.....
019510: 2C 5D A0 38 E4 5A 8F 21 12 CB F7 82 14 30 4C 30 ,].8.Z.!.....0L0
019520: D3 75 01 F0 60 02 7A 0B 95 D1 02 AB 60 88 99 AD .u..`.z.....`...
019530: 07 71 5F 88 35 C7 18 52 25 3F 36 AB 5F E2 98 6C .q_.5..R%?6._..l
019540: 46 09 1D 6A 0A B2 63 DD 5F B9 F0 89 55 C2 F2 8B F..j..c._...U...
019550: 28 34 5C 46 FD 01 88 75 FB D4 40 32 B0 C5 1C 01 (4\F...u..@2....
019560: EF CF 0E B4 55 86 5E 84 35 9B FB 32 35 39 D0 57 ....U.^.5..259.W
019570: 9B 52 44 5B C8 C8 41 39 F3 0B 98 6E 87 72 27 8F .RD[..A9...n.r'.
019580: 83 21 ED EA 18 52 52 1C B2 DE 79 0C 3B B5 DC 1A .!...RR...y.;...
019590: FB 3D 2B 12 DF 59 EE 90 5F 85 C2 AB DE 30 6A 51 .=+..Y.._....0jQ
0195A0: 62 A6 F7 FF 49 6A 2B C4 48 F0 2B B1 C3 A1 CB 40 b...Ij+.H.+....@
0195B0: E8 8E 22 11 F1 85 F8 53 B9 1F 4D 15 A0 C0 BA 0B .."....S..M.....
0195C0: FF 69 33 85 22 B3 A6 07 3F 97 C6 8A AF C3 27 CE .i3."...?.....'.
0195D0: 46 E4 75 C0 1D CE 41 0C D4 F4 BC 74 DF A4 FB 87 F.u...A....t....
0195E0: 0E 00 2D 6D 57 07 95 5B FD B3 F2 32 5B B7 15 1A ..-mW..[...2[...
0195F0: 75 1F 51 42 AC E8 5E E2 FD 0B 98 69 5A FC 3F 79 u.QB..^....iZ.?y
019600: A4 2C EB EA E2 CA F6 EC 0F DF 92 F1 F9 F4 92 B3 .,..............
019610: 05 E9 23 1E DE 81 AF 02 7C 56 DF AF C4 16 46 29 ..#.....|V....F)
019620: C7 A3 1B E4 61 B3 B4 C7 A7 DF 10 84 79 AD DC 5A .£..a.......y..Z
019630: FF A2 5A B9 CB 5C 11 70 E2 33 D0 E4 81 D9 9E 41 ..Z..\.p.3.....A
019640: 81 24 CD 7E 2D 6A 27 04 D3 B5 F9 A5 B6 EB 7F B2 .$.~-j'.........
019650: 26 18 45 39 12 36 8A 0F CD D8 A9 3E AA D3 30 7B &.E9.6.....>..0{
019660: 2D 39 20 FB AF 86 96 B1 D0 82 E9 1E 42 E4 5C 64 -9 .........B.\d
019670: A9 2F B5 5A 0E E8 A2 C3 52 2B 96 23 21 9C 7A B6 ./.Z....R+.#!.z.
019680: A4 00 E3 EB CE 17 2F C0 82 D3 7B AE 1B C5 41 EC ....../...{...A.
019690: 09 45 B9 31 D1 58 34 01 7C 7B 46 83 6B 30 26 CE .E.1.X4.|{F.k0&.
0196A0: DE 8F 02 82 82 84 6B E4 9F FE 03 A8 8A 67 FF 63 ......k......g.c
0196B0: 12 AE 4E A0 CA EB DB BC E3 3F 35 C8 A0 C0 BA 87 ..N......?5.....
0196C0: 7C 19 F4 90 0C BF 07 27 AF 72 01 99 86 35 4A 9B |......'.r...5J.
0196D0: DF CB 5C 07 1E EE AA C6 36 FB 9C E8 93 C8 1C 68 ..\.....6......h
0196E0: 6E CA C3 EB 57 5A 95 A9 FC 9B 1B DD 4A E3 8A 57 n...WZ......J..W
0196F0: 88 36 BE 34 67 27 A4 EB 06 12 D8 FB C9 9D F0 9B .6.4g'..........
019700: 52 49 4E 54 20 50 41 24 28 33 29 3B 73 63 6F 72 RINT PA$(3);scor
019710: 65 24 3B 50 41 24 28 31 29 3A 52 45 54 55 52 4E e$;PA$(1):RETURN
019720: 0D 0A 31 30 33 31 20 49 46 20 42 4B 3D 32 20 54 ..1031 IF BK=2 T
019730: 48 45 4E 20 31 30 32 34 0D 0A 31 30 33 32 20 49 HEN 1024..1032 I
019740: 46 20 6E 3E 34 34 20 54 48 45 4E 20 31 30 32 39 F n>44 THEN 1029
019750: 20 45 4C 53 45 20 53 43 4F 52 45 24 3D 22 20 22 ELSE SCORE$=" "
019760: 2B 5A 24 2B 22 20 20 20 20 22 2B 52 49 47 48 54 +Z$+" "+RIGHT
019770: 24 28 53 54 52 24 28 52 29 2C 31 29 2B 22 20 20 $(STR$(R),1)+"
019780: 22 2B 52 49 47 48 54 24 28 53 54 52 24 28 53 29 "+RIGHT$(STR$(S)
019790: 2C 31 29 2B 22 20 20 20 20 22 2B 53 24 2B 22 20 ,1)+" "+S$+"
0197A0: 22 3A 47 4F 54 4F 20 31 30 33 30 0D 0A 31 30 33 ":GOTO 1030..103
0197B0: 33 20 4C 4F 43 41 54 45 20 38 2C 32 32 3A 50 52 3 LOCATE 8,22:PR
0197C0: 49 4E 54 22 20 20 20 20 20 20 20 20 20 20 20 20 INT"
0197D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0197E0: 20 20 20 22 3A 47 4F 53 55 42 20 39 39 33 3A 4D ":GOSUB 993:M
0197F0: 41 3D 4D 41 2B 52 3A 4D 4A 3D 53 41 3A 4D 4B 3D A=MA+R:MJ=SA:MK=
019800: 53 42 3A 4D 4C 3D 53 43 3A 4E 48 3D 30 3A 42 4A SB:ML=SC:NH=0:BJ
019810: 3D 30 3A 42 50 3D 30 3A 44 4B 3D 52 2B 53 3A 43 =0:BP=0:DK=R+S:C
019820: 4A 3D 43 4A 2D 31 3A 4F 53 3D 41 42 53 28 43 56 J=CJ-1:OS=ABS(CV
019830: 3D 31 20 41 4E 44 20 52 3E 20 53 20 4F 52 20 43 =1 AND R> S OR C
019840: 51 3D 31 20 41 4E 44 20 52 3E 20 53 29 3A 4F 54 Q=1 AND R> S):OT
019850: 3D 30 2B 41 42 53 28 43 56 3D 30 20 41 4E 44 20 =0+ABS(CV=0 AND
019860: 43 51 3D 30 20 41 4E 44 20 43 50 3D 30 20 41 4E CQ=0 AND CP=0 AN
019870: 44 20 52 3E 20 53 29 3A 43 48 41 49 4E 20 4D 45 D R> S):CHAIN ME
019880: 52 47 45 22 45 22 2C 31 30 36 35 0D 0A 31 30 33 RGE"E",1065..103
019890: 34 20 41 44 3D 31 3A 47 4F 53 55 42 20 31 30 33 4 AD=1:GOSUB 103
0198A0: 35 3A 47 4F 54 4F 20 31 30 33 37 0D 0A 31 30 33 5:GOTO 1037..103
0198B0: 35 20 4C 4F 43 41 54 45 20 33 2C 32 32 3A 50 52 5 LOCATE 3,22:PR
0198C0: 49 4E 54 20 41 44 3B 54 41 42 28 38 29 3B 50 4F INT AD;TAB(8);PO
0198D0: 31 53 24 28 54 28 41 44 29 29 3B 54 41 42 28 31 1S$(T(AD));TAB(1
0198E0: 30 29 3B 70 61 24 28 33 2D 41 42 53 28 47 28 41 0);pa$(3-ABS(G(A
0198F0: 44 29 3C 30 29 29 3B 56 24 28 41 44 29 3B 70 61 D)<0));V$(AD);pa
019900: AB 2C 07 05 63 17 C5 CC 96 DF 7A 63 D1 3B 7F D5 .,..c.....zc.;..
019910: F8 64 0E 11 DF B3 60 30 53 80 EC 8E DD 30 05 DB .d....`0S....0..
019920: 3C 9D 2B 06 79 4B 60 1B B7 DB 0E A8 60 62 1F 4C <.+.yK`.....`b.L
019930: C8 74 63 AD CA 84 5E B9 1C 0C E9 14 8D CD BA 6D .tc...^........m
019940: 79 E7 C5 4A D6 92 0A 27 C0 F6 05 66 BC EA A5 B2 y..J...'...f....
019950: 3B 34 66 2F 42 10 A7 2C D9 86 5E FD BE C5 1C 1A ;4f/B..,..^.....
019960: E3 D4 D3 FA 5F AB B5 A4 16 74 FE 12 A1 E3 7D 77 ...._....t....}w
019970: 85 59 54 B4 98 E8 49 E2 FD 0B 98 E5 D9 8C F8 6C .YT...I........l
019980: 8B 21 ED EA 03 DC D0 F8 B2 29 6C 0C 5D D4 3B 0B .!.......)l.].;.
019990: 09 44 03 63 3D B6 82 21 73 08 2E 77 22 30 42 3D .D.c=..!s..w"0B=
0199A0: D3 8F E8 1F 6F 4B 6E C4 BA F3 03 C7 8A 67 E5 63 ....oKn......g.c
0199B0: 14 AE 4E A0 CA 6E DE 42 D3 E5 E9 E5 AD C0 D5 86 ..N..n.B........
0199C0: 7C 1D FD 9C 3E 46 F8 27 E8 94 EE 89 45 2C 5C 8B |...>F.'....E,\.
0199D0: D1 14 51 2F 13 81 40 C3 CF D4 40 32 BE C5 1C 82 ..Q/..@...@2....
0199E0: EE 31 0C 00 57 AB B5 A4 93 70 1E 24 72 35 60 76 .1..W....p.$r5`v
0199F0: 4C 36 8E 5B F4 37 2B E2 FD 0B 98 61 87 72 D7 B6 L6.[.7+....a.r..
019A00: 47 0C 12 AF 9A 2E 0D ED 2B DE B8 2C C4 92 9B 0A G.......+..,....
019A10: 08 6C FC 54 29 40 47 08 87 85 89 75 C7 C4 6B 31 .l.T)@G....u..k1
019A20: 1A 8F BF F0 9A 94 0A C4 BA F3 03 42 8F 87 D0 AF ...........B....
019A30: C8 9C 42 3E EA 89 31 53 18 F0 C6 C8 41 E0 A8 6C ..B>..1S....A..l
019A40: 0C 28 CA 08 2C B3 04 27 C0 75 C6 84 AF C3 B9 87 .(..,..'.u......
019A50: 26 34 5C C4 3A 01 55 2F F1 F9 BC 12 C9 7C 35 9C &4\.:.U/.....|5.
019A60: 23 0E 0E 0E DB 8E B6 A4 FC 73 DD 3F 5B C3 02 94 #........s.?[...
019A70: A9 39 97 AF 20 E0 B6 C2 F0 E6 B4 02 36 9D AA 74 .9.. .......6..t
019A80: 87 23 C4 1E C0 1F 3C EC 9B 37 56 01 3B D4 1F 11 .#....<..7V.;...
019A90: 28 4B 2A E5 DC 59 8F C4 5B 77 CC 83 AF D1 43 31 (K*..Y..[w....C1
019AA0: DE 8F 02 19 48 64 B8 E9 B7 F3 E9 84 6D 88 F0 A8 ....Hd......m...
019AB0: C1 61 4C A1 55 A4 2F 62 F0 1E C4 E8 AD 29 92 7D .aL.U./b.....).}
019AC0: BF 05 D4 6A C6 9E 0A 27 C0 72 C7 66 A2 C3 53 D9 ...j...'.r.f..S.
019AD0: CA 35 EC 2E A3 EF 35 0C C7 DB BF 13 7A E5 1C 21 .5..£.5.....z..!
019AE0: 01 DF D3 F7 77 A6 D4 4D 13 96 F1 32 3A 2A 84 88 ....w..M...2:*..
019AF0: 85 1E B3 5B 8C A9 5C 33 FE 22 6E F0 36 B5 D5 96 ...[..\3."n.6...
019B00: 24 28 31 29 3B 54 41 42 28 31 39 29 3B 49 4E 54 $(1);TAB(19);INT
019B10: 28 48 28 41 44 29 29 3A 52 45 54 55 52 4E 0D 0A (H(AD)):RETURN..
019B20: 31 30 33 36 20 4C 4F 43 41 54 45 20 38 2C 32 32 1036 LOCATE 8,22
019B30: 3A 50 52 49 4E 54 20 70 61 24 28 32 29 3B 22 53 :PRINT pa$(2);"S
019B40: 20 53 55 42 53 54 49 54 55 54 45 22 3B 70 61 24 SUBSTITUTE";pa$
019B50: 28 31 29 3B 54 41 42 28 32 31 29 3B 70 61 24 28 (1);TAB(21);pa$(
019B60: 32 29 3B 22 31 32 22 3B 50 4F 31 53 24 28 54 28 2);"12";PO1S$(T(
019B70: 31 32 29 29 3B 70 61 24 28 33 2D 41 42 53 28 47 12));pa$(3-ABS(G
019B80: 28 31 32 29 3C 30 29 29 3B 22 20 22 3B 56 24 28 (12)<0));" ";V$(
019B90: 31 32 29 3B 22 20 22 3B 70 61 24 28 32 29 3B 49 12);" ";pa$(2);I
019BA0: 4E 54 28 48 28 31 32 29 29 3B 70 61 24 28 31 29 NT(H(12));pa$(1)
019BB0: 3A 52 45 54 55 52 4E 20 0D 0A 31 30 33 37 20 47 :RETURN ..1037 G
019BC0: 4F 53 55 42 20 36 34 30 30 30 3A 49 46 20 49 4E OSUB 64000:IF IN
019BD0: 24 3D 22 53 22 20 54 48 45 4E 20 41 44 3D 41 44 $="S" THEN AD=AD
019BE0: 2B 31 3A 41 44 3D 41 44 2D 41 42 53 28 41 44 3D +1:AD=AD-ABS(AD=
019BF0: 31 32 29 2A 31 31 3A 47 4F 53 55 42 20 31 30 33 12)*11:GOSUB 103
019C00: 35 0D 0A 31 30 33 38 20 54 45 4D 50 24 3D 56 24 5..1038 TEMP$=V$
019C10: 28 41 44 29 3A 47 4F 53 55 42 20 36 34 39 30 30 (AD):GOSUB 64900
019C20: 3A 49 46 20 49 4E 24 3D 43 48 52 24 28 31 33 29 :IF IN$=CHR$(13)
019C30: 20 41 4E 44 20 46 4C 41 47 3D 30 20 54 48 45 4E AND FLAG=0 THEN
019C40: 20 31 30 34 30 0D 0A 31 30 33 39 20 47 4F 54 4F 1040..1039 GOTO
019C50: 20 31 30 33 37 0D 0A 31 30 34 30 20 49 3D 31 32 1037..1040 I=12
019C60: 3A 47 4F 53 55 42 20 36 35 32 3A 4D 50 3D 31 3A :GOSUB 652:MP=1:
019C70: 47 4F 53 55 42 20 31 30 33 36 3A 4C 4F 43 41 54 GOSUB 1036:LOCAT
019C80: 45 20 33 2C 32 32 3A 50 52 49 4E 54 20 53 50 41 E 3,22:PRINT SPA
019C90: 43 45 24 28 33 35 29 3A 52 45 54 55 52 4E 20 0D CE$(35):RETURN .
019CA0: 0A 31 30 34 31 20 4D 48 3D 41 53 43 28 4D 49 44 .1041 MH=ASC(MID
019CB0: 24 28 53 24 2C 31 2C 31 29 29 3A 4D 49 3D 41 53 $(S$,1,1)):MI=AS
019CC0: 43 28 4D 49 44 24 28 53 24 2C 32 2C 31 29 29 3A C(MID$(S$,2,1)):
019CD0: 4D 47 3D 41 53 43 28 4D 49 44 24 28 53 24 2C 33 MG=ASC(MID$(S$,3
019CE0: 2C 31 29 29 3A 52 41 3D 49 4E 54 20 28 4D 48 2F ,1)):RA=INT (MH/
019CF0: 31 30 29 3A 4D 48 3D 4D 48 2D 28 52 41 2A 31 30 10):MH=MH-(RA*10
019D00: 31 30 30 31 20 52 41 3D 30 2B 49 4E 54 20 28 52 1001 RA=0+INT (R
019D10: 4E 44 2A 34 37 32 29 3A 42 55 3D 41 42 53 28 52 ND*472):BU=ABS(R
019D20: 41 3C 28 50 55 2B 50 56 29 29 2A 28 32 2B 49 4E A<(PU+PV))*(2+IN
019D30: 54 20 28 52 4E 44 2A 31 36 39 29 29 3A 4D 50 3D T (RND*169)):MP=
019D40: 41 42 53 28 54 28 31 32 29 3D 30 29 3A 47 4F 54 ABS(T(12)=0):GOT
019D50: 4F 20 31 30 30 33 0D 0A 31 30 30 32 20 4C 4F 43 O 1003..1002 LOC
019D60: 41 54 45 20 39 2C 32 30 3A 50 52 49 4E 54 20 70 ATE 9,20:PRINT p
019D70: 61 24 28 33 29 3B 22 20 4C 4D 54 47 20 22 3B 55 a$(3);" LMTG ";U
019D80: 53 49 4E 47 22 23 23 22 3B 43 4A 2D 31 3B 3A 50 SING"##";CJ-1;:P
019D90: 52 49 4E 54 20 22 20 22 3B 70 61 24 28 31 29 3A RINT " ";pa$(1):
019DA0: 52 45 54 55 52 4E 20 0D 0A 31 30 30 33 20 4F 42 RETURN ..1003 OB
019DB0: 3D 30 3A 4D 46 3D 34 2B 49 4E 54 20 28 52 4E 44 =0:MF=4+INT (RND
019DC0: 2A 33 32 29 3A 4D 46 3D 49 4E 54 20 28 4D 46 2F *32):MF=INT (MF/
019DD0: 34 29 3A 47 4F 54 4F 20 31 30 30 36 0D 0A 31 30 4):GOTO 1006..10
019DE0: 30 34 20 52 45 54 55 52 4E 20 0D 0A 31 30 30 35 04 RETURN ..1005
019DF0: 20 27 0D 0A 31 30 30 36 20 27 0D 0A 31 30 30 37 '..1006 '..1007
019E00: 20 52 41 3D 49 4E 54 20 28 33 33 30 2A 28 35 2D RA=INT (330*(5-
019E10: 41 50 29 29 3A 52 41 3D 49 4E 54 28 49 4E 54 28 AP)):RA=INT(INT(
019E20: 44 4E 29 2F 52 41 29 3A 52 41 3D 52 41 2D 41 42 DN)/RA):RA=RA-AB
019E30: 53 28 52 41 3E 33 36 29 2A 41 42 53 28 52 41 2D S(RA>36)*ABS(RA-
019E40: 33 36 29 3A 52 42 3D 33 36 2D 52 41 3A 52 43 3D 36):RB=36-RA:RC=
019E50: 31 2B 49 4E 54 28 52 4E 44 2A 52 42 29 0D 0A 31 1+INT(RND*RB)..1
019E60: 30 30 38 20 52 43 3D 31 2B 49 4E 54 20 28 52 4E 008 RC=1+INT (RN
019E70: 44 2A 52 42 29 0D 0A 31 30 30 39 20 4E 3D 30 3A D*RB)..1009 N=0:
019E80: 56 3D 56 2B 41 42 53 28 59 24 28 56 29 3D 5A 24 V=V+ABS(Y$(V)=Z$
019E90: 29 3A 41 52 3D 35 3A 41 51 3D 39 3A 41 4D 3D 31 ):AR=5:AQ=9:AM=1
019EA0: 2B 49 4E 54 20 28 52 4E 44 2A 39 29 3A 52 3D 30 +INT (RND*9):R=0
019EB0: 3A 53 3D 30 3A 53 24 3D 59 24 28 56 29 0D 0A 31 :S=0:S$=Y$(V)..1
019EC0: 30 31 30 20 49 46 20 63 71 3D 30 20 54 48 45 4E 010 IF cq=0 THEN
019ED0: 20 31 30 31 32 0D 0A 31 30 31 31 20 4F 42 3D 31 1012..1011 OB=1
019EE0: 3A 53 24 3D 4B 24 3A 47 4F 54 4F 20 31 30 34 36 :S$=K$:GOTO 1046
019EF0: 0D 0A 31 30 31 32 20 49 46 20 63 76 3D 30 20 54 ..1012 IF cv=0 T
019F00: 29 3A 4D 48 3D 4D 48 2D 28 4D 48 3E 37 29 2A 28 ):MH=MH-(MH>7)*(
019F10: 4D 48 2D 31 29 3A 52 41 3D 49 4E 54 20 28 4D 49 MH-1):RA=INT (MI
019F20: 2F 31 30 29 3A 4D 49 3D 4D 49 2D 28 52 41 2A 31 /10):MI=MI-(RA*1
019F30: 30 29 3A 4D 49 3D 4D 49 2D 28 4D 49 3E 37 29 2A 0):MI=MI-(MI>7)*
019F40: 4D 49 3A 4D 47 3D 49 4E 54 20 28 4D 47 2D 36 30 MI:MG=INT (MG-60
019F50: 29 2F 36 3A 49 46 20 4D 47 3C 31 20 54 48 45 4E )/6:IF MG<1 THEN
019F60: 20 4D 47 3D 35 0D 0A 31 30 34 32 20 52 45 54 55 MG=5..1042 RETU
019F70: 52 4E 20 0D 0A 31 30 34 33 20 46 4F 52 20 49 3D RN ..1043 FOR I=
019F80: 31 32 20 54 4F 20 35 34 20 53 54 45 50 20 37 3A 12 TO 54 STEP 7:
019F90: 49 46 20 43 49 3D 49 20 54 48 45 4E 20 4C 4F 43 IF CI=I THEN LOC
019FA0: 41 54 45 20 31 30 2C 31 37 3A 50 52 49 4E 54 20 ATE 10,17:PRINT
019FB0: 22 4C 45 41 47 55 45 22 3B 54 41 42 28 32 37 29 "LEAGUE";TAB(27)
019FC0: 3B 43 54 3A 47 4F 54 4F 20 31 30 35 34 0D 0A 31 ;CT:GOTO 1054..1
019FD0: 30 34 34 20 4E 45 58 54 3A 46 4F 52 20 49 3D 31 044 NEXT:FOR I=1
019FE0: 36 20 54 4F 20 35 38 20 53 54 45 50 20 37 3A 49 6 TO 58 STEP 7:I
019FF0: 46 20 43 49 3D 49 20 54 48 45 4E 20 4C 4F 43 41 F CI=I THEN LOCA
01A000: 54 45 20 31 34 2C 31 37 3A 50 52 49 4E 54 20 22 TE 14,17:PRINT "
01A010: 46 41 22 3B 54 41 42 28 32 37 29 3B 43 52 3A 47 FA";TAB(27);CR:G
01A020: 4F 54 4F 20 31 30 35 34 0D 0A 31 30 34 35 20 4E OTO 1054..1045 N
01A030: 45 58 54 3A 47 4F 54 4F 20 31 30 35 36 0D 0A 31 EXT:GOTO 1056..1
01A040: 30 34 36 20 4A 45 3D 49 4E 54 20 28 47 5A 2F 32 046 JE=INT (GZ/2
01A050: 29 3A 4A 45 3D 4A 45 2B 28 47 5A 3D 34 20 4F 52 ):JE=JE+(GZ=4 OR
01A060: 20 47 5A 3D 36 20 4F 52 20 47 5A 3D 38 29 3A 4F GZ=6 OR GZ=8):O
01A070: 4E 20 42 45 2B 31 20 47 4F 54 4F 20 31 30 35 30 N BE+1 GOTO 1050
01A080: 2C 31 30 34 39 2C 31 30 34 38 2C 31 30 34 37 0D ,1049,1048,1047.
01A090: 0A 31 30 34 37 20 4C 4F 43 41 54 45 20 31 31 2C .1047 LOCATE 11,
01A0A0: 31 37 3A 50 52 49 4E 54 20 22 45 55 52 4F 50 45 17:PRINT "EUROPE
01A0B0: 41 4E 20 43 55 50 20 57 49 4E 4E 45 52 53 22 3A AN CUP WINNERS":
01A0C0: 47 4F 54 4F 20 31 30 35 30 0D 0A 31 30 34 38 20 GOTO 1050..1048
01A0D0: 4C 4F 43 41 54 45 20 31 37 2C 31 37 3A 50 52 49 LOCATE 17,17:PRI
01A0E0: 4E 54 20 22 55 2E 45 2E 46 2E 41 2E 22 3A 47 4F NT "U.E.F.A.":GO
01A0F0: 54 4F 20 31 30 35 30 0D 0A 31 30 34 39 20 4C 4F TO 1050..1049 LO
01A100: 48 45 4E 20 31 30 31 34 0D 0A 31 30 31 33 20 4F HEN 1014..1013 O
01A110: 42 3D 31 3A 53 24 3D 42 24 3A 47 4F 54 4F 20 31 B=1:S$=B$:GOTO 1
01A120: 30 34 33 0D 0A 31 30 31 34 20 49 46 20 63 70 3D 043..1014 IF cp=
01A130: 30 20 54 48 45 4E 20 31 30 31 36 0D 0A 31 30 31 0 THEN 1016..101
01A140: 35 20 53 24 3D 4B 24 3A 42 4B 3D 32 3A 4C 4F 43 5 S$=K$:BK=2:LOC
01A150: 41 54 45 20 31 33 2C 31 36 3A 50 52 49 4E 54 20 ATE 13,16:PRINT
01A160: 22 45 55 52 4F 50 45 41 4E 20 46 52 49 45 4E 44 "EUROPEAN FRIEND
01A170: 4C 59 22 0D 0A 31 30 31 36 20 47 4F 53 55 42 20 LY"..1016 GOSUB
01A180: 31 30 34 31 3A 52 34 35 3D 30 3A 53 34 35 3D 30 1041:R45=0:S45=0
01A190: 3A 49 46 20 62 6B 3D 32 20 54 48 45 4E 20 31 30 :IF bk=2 THEN 10
01A1A0: 31 38 0D 0A 31 30 31 37 20 53 43 4F 52 45 24 3D 18..1017 SCORE$=
01A1B0: 22 20 22 2B 5A 24 2B 22 20 20 20 20 22 2B 52 49 " "+Z$+" "+RI
01A1C0: 47 48 54 24 28 53 54 52 24 28 52 29 2C 31 29 2B GHT$(STR$(R),1)+
01A1D0: 22 20 20 22 2B 52 49 47 48 54 24 28 53 54 52 24 " "+RIGHT$(STR$
01A1E0: 28 53 29 2C 31 29 2B 22 20 20 20 20 22 2B 53 24 (S),1)+" "+S$
01A1F0: 2B 22 20 22 3A 4C 4F 43 41 54 45 20 36 2C 33 3A +" ":LOCATE 6,3:
01A200: 50 52 49 4E 54 20 50 41 24 28 33 29 3B 53 43 4F PRINT PA$(3);SCO
01A210: 52 45 24 3B 50 41 24 28 31 29 3A 44 24 3D 5A 24 RE$;PA$(1):D$=Z$
01A220: 3A 47 4F 53 55 42 20 31 30 33 31 3A 47 4F 54 4F :GOSUB 1031:GOTO
01A230: 20 31 30 37 30 0D 0A 31 30 31 38 20 53 43 4F 52 1070..1018 SCOR
01A240: 45 24 3D 22 20 22 2B 53 24 2B 22 20 28 30 29 22 E$=" "+S$+" (0)"
01A250: 2B 52 49 47 48 54 24 28 53 54 52 24 28 53 29 2C +RIGHT$(STR$(S),
01A260: 31 29 2B 22 20 20 22 2B 52 49 47 48 54 24 28 53 1)+" "+RIGHT$(S
01A270: 54 52 24 28 52 29 2C 31 29 2B 22 28 30 29 20 22 TR$(R),1)+"(0) "
01A280: 2B 5A 24 2B 22 20 22 3A 4C 4F 43 41 54 45 20 36 +Z$+" ":LOCATE 6
01A290: 2C 33 3A 50 52 49 4E 54 20 50 41 24 28 33 29 3B ,3:PRINT PA$(3);
01A2A0: 53 43 4F 52 45 24 3B 50 41 24 28 31 29 3A 44 24 SCORE$;PA$(1):D$
01A2B0: 3D 53 24 3A 47 4F 53 55 42 20 31 30 33 31 0D 0A =S$:GOSUB 1031..
01A2C0: 31 30 31 39 20 47 4F 54 4F 20 31 30 37 30 0D 0A 1019 GOTO 1070..
01A2D0: 31 30 32 30 20 27 0D 0A 31 30 32 31 20 27 0D 0A 1020 '..1021 '..
01A2E0: 31 30 32 32 20 43 48 41 49 4E 20 4D 45 52 47 45 1022 CHAIN MERGE
01A2F0: 20 22 41 42 22 2C 31 30 37 34 0D 0A 31 30 32 33 "AB",1074..1023
01A300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01A310: 16 00 01 00 02 09 4E E5 16 00 41 02 00 00 00 02 ......N...A.....
01A320: 16 00 46 02 00 00 00 02 16 00 42 02 00 00 00 02 ..F.......B.....
01A330: 16 00 47 02 00 00 00 02 16 00 43 02 00 00 00 02 ..G.......C.....
01A340: 16 00 48 02 00 00 00 02 16 00 44 02 00 00 00 02 ..H.......D.....
01A350: 16 00 49 02 00 00 00 02 16 00 45 02 00 00 00 02 ..I.......E.....
01A360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A400: 43 41 54 45 20 31 36 2C 31 37 3A 50 52 49 4E 54 CATE 16,17:PRINT
01A410: 20 22 45 55 52 4F 50 45 41 4E 22 0D 0A 31 30 35 "EUROPEAN"..105
01A420: 30 20 46 4F 52 20 49 3D 33 20 54 4F 20 37 20 53 0 FOR I=3 TO 7 S
01A430: 54 45 50 20 32 3A 49 46 20 49 3D 47 5A 20 54 48 TEP 2:IF I=GZ TH
01A440: 45 4E 20 4C 4F 43 41 54 45 20 39 2C 32 30 3A 50 EN LOCATE 9,20:P
01A450: 52 49 4E 54 20 50 41 24 28 33 29 3B 22 31 73 74 RINT PA$(3);"1st
01A460: 20 4C 45 47 22 3B 70 61 24 28 31 29 3A 42 4B 3D LEG";pa$(1):BK=
01A470: 32 3A 69 3D 31 30 0D 0A 31 30 35 31 20 4E 45 58 2:i=10..1051 NEX
01A480: 54 3A 49 46 20 69 3C 31 31 20 54 48 45 4E 20 49 T:IF i<11 THEN I
01A490: 46 20 47 5A 3C 39 20 54 48 45 4E 20 4C 4F 43 41 F GZ<9 THEN LOCA
01A4A0: 54 45 20 39 2C 32 30 3A 50 52 49 4E 54 20 70 61 TE 9,20:PRINT pa
01A4B0: 24 28 33 29 3B 22 32 6E 64 20 4C 45 47 22 3B 70 $(3);"2nd LEG";p
01A4C0: 61 24 28 31 29 3A 42 4B 3D 31 0D 0A 31 30 35 32 a$(1):BK=1..1052
01A4D0: 20 4C 4F 43 41 54 45 20 31 37 2C 31 38 3A 50 52 LOCATE 17,18:PR
01A4E0: 49 4E 54 20 22 43 55 50 20 52 4F 55 4E 44 22 3B INT "CUP ROUND";
01A4F0: 55 53 49 4E 47 22 23 23 22 3B 4A 45 3A 47 4F 53 USING"##";JE:GOS
01A500: 55 42 20 36 30 3A 4F 4E 20 4A 45 2D 31 2B 41 42 UB 60:ON JE-1+AB
01A510: 53 28 4A 45 3D 30 29 20 47 4F 54 4F 20 31 30 36 S(JE=0) GOTO 106
01A520: 32 2C 31 30 36 30 2C 31 30 35 39 0D 0A 31 30 35 2,1060,1059..105
01A530: 33 20 42 4B 3D 32 3A 4F 4E 20 4A 45 2D 31 2B 41 3 BK=2:ON JE-1+A
01A540: 42 53 28 4A 45 3D 30 29 20 47 4F 54 4F 20 31 30 BS(JE=0) GOTO 10
01A550: 36 32 2C 31 30 36 30 2C 31 30 35 39 0D 0A 31 30 62,1060,1059..10
01A560: 35 34 20 4C 4F 43 41 54 45 20 31 37 2C 31 37 3A 54 LOCATE 17,17:
01A570: 50 52 49 4E 54 20 22 43 55 50 20 52 4F 55 4E 44 PRINT "CUP ROUND
01A580: 22 0D 0A 31 30 35 35 20 49 46 20 63 69 3C 34 30 "..1055 IF ci<40
01A590: 20 54 48 45 4E 20 31 30 35 36 20 45 4C 53 45 20 THEN 1056 ELSE
01A5A0: 49 46 20 63 69 3D 34 37 20 4F 52 20 63 69 3D 35 IF ci=47 OR ci=5
01A5B0: 31 20 54 48 45 4E 20 31 30 36 30 20 45 4C 53 45 1 THEN 1060 ELSE
01A5C0: 20 49 46 20 63 69 3D 34 30 20 4F 52 20 63 69 3D IF ci=40 OR ci=
01A5D0: 34 34 20 54 48 45 4E 20 31 30 36 31 20 45 4C 53 44 THEN 1061 ELS
01A5E0: 45 20 31 30 35 39 0D 0A 31 30 35 36 20 49 46 20 E 1059..1056 IF
01A5F0: 43 56 3D 31 20 54 48 45 4E 20 4C 4F 43 41 54 45 CV=1 THEN LOCATE
01A600: 16 01 BF 20 FF 16 28 19 23 29 01 C9 20 00 02 01 ... ..(.#).. ...
01A610: 11 04 0D 00 00 4D C8 EF FF 01 28 AC 28 03 00 00 .....M....(.(...
01A620: D3 2C 0F 2C 0F 29 29 01 0D 00 00 4D C9 EF FF 01 .,.,.))....M....
01A630: 28 AC 28 03 00 00 D3 2C 10 2C 0F 29 29 01 0D 00 (.(....,.,.))...
01A640: 00 4D C7 EF FF 01 28 AC 28 03 00 00 D3 2C 11 2C .M....(.(....,.,
01A650: 0F 29 29 01 0D 00 00 52 C1 EF FF 0C 20 28 0D 00 .))....R.... (..
01A660: 00 4D C8 F7 19 0A 29 01 0D 00 00 4D C8 EF 0D 00 .M....)....M....
01A670: 00 4D C8 F5 28 0D 00 00 52 C1 F6 19 0A 29 01 0D .M..(...R....)..
01A680: 00 00 4D C8 EF 0D 00 00 4D C8 F5 28 0D 00 00 4D ..M.....M..(...M
01A690: C8 EE 15 29 F6 28 0D 00 00 4D C8 F5 0F 29 01 0D ...).(...M...)..
01A6A0: 00 00 52 C1 EF FF 0C 20 28 0D 00 00 4D C9 F7 19 ..R.... (...M...
01A6B0: 0A 29 01 0D 00 00 4D C9 EF 0D 00 00 4D C9 F5 28 .)....M.....M..(
01A6C0: 0D 00 00 52 C1 F6 19 0A 29 01 0D 00 00 4D C9 EF ...R....)....M..
01A6D0: 0D 00 00 4D C9 F5 28 0D 00 00 4D C9 EE 15 29 F6 ...M..(...M...).
01A6E0: 0D 00 00 4D C9 01 0D 00 00 4D C7 EF FF 0C 20 28 ...M.....M.... (
01A6F0: 0D 00 00 4D C7 F5 19 3C 29 F7 14 01 A1 20 0D 00 ...M...<).... ..
01A700: 00 4D C7 F1 0F 20 EB 20 0D 00 00 4D C7 EF 13 00 .M... . ...M....
01A710: 07 00 12 04 C9 20 00 4B 00 13 04 9E 20 0D 00 00 ..... .K.... ...
01A720: C9 EF 19 0C 20 EC 20 19 36 20 E6 20 15 01 A1 20 .... . .6 . ...
01A730: 0D 00 00 43 C9 EF 0D 00 00 C9 20 EB 20 A9 20 19 ...C...... . . .
01A740: 0A 2C 19 11 01 BF 20 22 4C 45 41 47 55 45 22 3B .,.... "LEAGUE";
01A750: EA 28 19 1B 29 3B 0D 00 00 43 D4 01 A0 20 1E 1E .(..);...C... ..
01A760: 04 00 49 00 14 04 B0 01 9E 20 0D 00 00 C9 EF 19 ..I...... ......
01A770: 10 20 EC 20 19 3A 20 E6 20 15 01 A1 20 0D 00 00 . . .: . ... ...
01A780: 43 C9 EF 0D 00 00 C9 20 EB 20 A9 20 19 0E 2C 19 C...... . . ..,.
01A790: 11 01 BF 20 22 46 41 22 3B EA 28 19 1B 29 3B 0D ... "FA";.(..);.
01A7A0: 00 00 43 D2 01 A0 20 1E 1E 04 00 0C 00 15 04 B0 ..C... .........
01A7B0: 01 A0 20 1E 20 04 00 5D 00 16 04 0D 00 00 4A C5 .. . ..]......J.
01A7C0: EF FF 0C 20 28 0D 00 00 47 DA F7 10 29 01 0D 00 ... (...G...)...
01A7D0: 00 4A C5 EF 0D 00 00 4A C5 F4 28 0D 00 00 47 DA .J.....J..(...G.
01A7E0: EF 12 20 FC 20 0D 00 00 47 DA EF 14 20 FC 20 0D .. . ...G... . .
01A7F0: 00 00 47 DA EF 16 29 01 B2 20 0D 00 00 42 C5 F4 ..G...).. ...B..
01A800: 20 32 34 2C 32 30 3A 50 52 49 4E 54 20 22 44 49 24,20:PRINT "DI
01A810: 56 49 53 49 4F 4E 20 22 3B 43 53 3A 49 46 20 43 VISION ";CS:IF C
01A820: 53 3D 35 20 54 48 45 4E 20 4C 4F 43 41 54 45 20 S=5 THEN LOCATE
01A830: 33 34 2C 32 30 3A 50 52 49 4E 54 20 22 4E 22 0D 34,20:PRINT "N".
01A840: 0A 31 30 35 37 20 49 46 20 44 54 3D 31 20 54 48 .1057 IF DT=1 TH
01A850: 45 4E 20 4C 4F 43 41 54 45 20 31 37 2C 31 39 3A EN LOCATE 17,19:
01A860: 50 52 49 4E 54 20 22 52 45 50 4C 41 59 22 0D 0A PRINT "REPLAY"..
01A870: 31 30 35 38 20 47 4F 54 4F 20 31 30 31 36 0D 0A 1058 GOTO 1016..
01A880: 31 30 35 39 20 4C 4F 43 41 54 45 20 32 31 2C 31 1059 LOCATE 21,1
01A890: 37 2D 28 43 51 3D 31 29 3A 50 52 49 4E 54 20 22 7-(CQ=1):PRINT "
01A8A0: 46 49 4E 41 4C 20 20 20 20 20 22 3A 47 4F 54 4F FINAL ":GOTO
01A8B0: 20 31 30 35 36 0D 0A 31 30 36 30 20 4C 4F 43 41 1056..1060 LOCA
01A8C0: 54 45 20 32 31 2C 31 37 2D 28 43 51 3D 31 29 3A TE 21,17-(CQ=1):
01A8D0: 50 52 49 4E 54 20 22 53 45 4D 49 20 46 49 4E 41 PRINT "SEMI FINA
01A8E0: 4C 20 22 3A 47 4F 54 4F 20 31 30 35 36 0D 0A 31 L ":GOTO 1056..1
01A8F0: 30 36 31 20 4C 4F 43 41 54 45 20 32 31 2C 31 37 061 LOCATE 21,17
01A900: 2D 28 43 51 3D 31 29 3A 50 52 49 4E 54 20 22 51 -(CQ=1):PRINT "Q
01A910: 55 41 52 54 45 52 20 46 49 4E 41 4C 20 22 0D 0A UARTER FINAL "..
01A920: 31 30 36 32 20 47 4F 54 4F 20 31 30 35 36 0D 0A 1062 GOTO 1056..
01A930: 31 30 37 30 20 49 46 20 43 56 3D 31 20 4F 52 20 1070 IF CV=1 OR
01A940: 43 51 3D 31 20 4F 52 20 43 50 3D 31 20 54 48 45 CQ=1 OR CP=1 THE
01A950: 4E 20 47 4F 53 55 42 20 31 30 30 34 20 45 4C 53 N GOSUB 1004 ELS
01A960: 45 20 47 4F 53 55 42 20 31 30 30 32 0D 0A 31 30 E GOSUB 1002..10
01A970: 37 31 20 46 4F 52 20 49 3D 31 20 54 4F 20 39 3A 71 FOR I=1 TO 9:
01A980: 52 41 3D 41 53 43 28 4D 49 44 24 28 44 24 2C 49 RA=ASC(MID$(D$,I
01A990: 2C 31 29 29 3A 52 42 3D 49 4E 54 20 28 52 41 2F ,1)):RB=INT (RA/
01A9A0: 31 30 29 3A 52 41 3D 49 4E 54 28 52 41 29 2D 28 10):RA=INT(RA)-(
01A9B0: 52 42 2A 31 30 29 3A 52 43 3D 49 4E 54 28 52 41 RB*10):RC=INT(RA
01A9C0: 2F 32 29 3A 49 46 20 52 43 3C 31 20 54 48 45 4E /2):IF RC<1 THEN
01A9D0: 20 52 43 3D 35 20 0D 0A 31 30 37 32 20 4E 45 58 RC=5 ..1072 NEX
01A9E0: 54 3A 49 46 20 4D 50 3D 30 20 54 48 45 4E 20 47 T:IF MP=0 THEN G
01A9F0: 4F 53 55 42 20 31 30 33 36 0D 0A 31 30 37 33 20 OSUB 1036..1073
01AA00: 31 30 30 31 20 49 4E 4B 20 30 2C 31 30 3A 42 4F 1001 INK 0,10:BO
01AA10: 52 44 45 52 20 31 30 3A 43 4C 53 3A 47 4F 53 55 RDER 10:CLS:GOSU
01AA20: 42 20 31 30 32 35 0D 0A 31 30 30 32 20 47 4F 53 B 1025..1002 GOS
01AA30: 55 42 20 38 35 30 0D 0A 31 30 30 33 20 52 45 4D UB 850..1003 REM
01AA40: 0D 0A 31 30 30 34 20 52 45 4D 0D 0A 31 30 30 35 ..1004 REM..1005
01AA50: 20 49 46 20 49 4E 24 3D 22 31 22 20 41 4E 44 20 IF IN$="1" AND
01AA60: 4D 57 3D 30 20 4F 52 20 69 6E 24 3D 22 32 22 20 MW=0 OR in$="2"
01AA70: 41 4E 44 20 4D 58 3D 30 20 4F 52 20 69 6E 24 3D AND MX=0 OR in$=
01AA80: 22 33 22 20 41 4E 44 20 4D 59 3D 30 20 4F 52 20 "3" AND MY=0 OR
01AA90: 69 6E 24 3D 22 34 22 20 41 4E 44 20 4D 5A 3D 30 in$="4" AND MZ=0
01AAA0: 20 54 48 45 4E 20 31 30 30 36 20 45 4C 53 45 20 THEN 1006 ELSE
01AAB0: 31 30 30 32 0D 0A 31 30 30 36 20 48 53 3D 41 53 1002..1006 HS=AS
01AAC0: 43 28 49 4E 24 29 2D 34 38 0D 0A 31 30 30 37 20 C(IN$)-48..1007
01AAD0: 4C 4F 43 41 54 45 20 35 2C 31 38 3A 3A 49 4E 50 LOCATE 5,18::INP
01AAE0: 55 54 22 48 4F 57 20 4D 41 4E 59 20 48 4F 55 52 UT"HOW MANY HOUR
01AAF0: 53 20 28 31 20 54 4F 20 39 29 20 20 22 3B 48 52 S (1 TO 9) ";HR
01AB00: 3A 49 46 20 48 52 3C 31 20 4F 52 20 48 52 3E 39 :IF HR<1 OR HR>9
01AB10: 20 54 48 45 4E 20 31 30 30 37 0D 0A 31 30 30 38 THEN 1007..1008
01AB20: 20 46 4F 52 20 49 3D 32 30 20 54 4F 20 31 20 53 FOR I=20 TO 1 S
01AB30: 54 45 50 20 2D 31 3A 59 3D 49 3A 47 4F 53 55 42 TEP -1:Y=I:GOSUB
01AB40: 20 38 39 32 3A 49 3D 59 3A 49 46 20 54 28 49 29 892:I=Y:IF T(I)
01AB50: 3D 48 53 20 41 4E 44 20 55 28 49 29 3D 30 20 54 =HS AND U(I)=0 T
01AB60: 48 45 4E 20 31 30 30 39 20 45 4C 53 45 20 31 30 HEN 1009 ELSE 10
01AB70: 32 34 0D 0A 31 30 30 39 20 52 41 3D 31 2B 49 4E 24..1009 RA=1+IN
01AB80: 54 20 28 52 4E 44 2A 34 29 3A 52 41 3D 52 41 2F T (RND*4):RA=RA/
01AB90: 31 30 3A 52 42 3D 31 2B 49 4E 54 20 28 52 4E 44 10:RB=1+INT (RND
01ABA0: 2A 39 29 3A 52 42 3D 41 42 53 20 28 52 42 2D 48 *9):RB=ABS (RB-H
01ABB0: 52 29 3A 52 41 3D 52 41 2D 28 52 42 2A 30 2E 30 R):RA=RA-(RB*0.0
01ABC0: 35 29 3A 52 42 3D 31 2B 49 4E 54 20 28 52 4E 44 5):RB=1+INT (RND
01ABD0: 2A 31 33 29 3A 49 46 20 52 42 3C 3E 33 20 4F 52 *13):IF RB<>3 OR
01ABE0: 20 55 28 49 29 3E 30 20 4F 52 20 45 28 31 2C 49 U(I)>0 OR E(1,I
01ABF0: 29 3C 30 20 4F 52 20 4A 28 49 29 3D 34 32 20 4F )<0 OR J(I)=42 O
01AC00: 47 4F 54 4F 20 31 30 32 32 0D 0A 31 30 37 34 20 GOTO 1022..1074
01AC10: 47 4F 53 55 42 20 31 30 30 39 3A 66 6C 61 67 3D GOSUB 1009:flag=
01AC20: 30 3A 6E 3D 31 0D 0A 31 30 37 35 20 4C 4F 43 41 0:n=1..1075 LOCA
01AC30: 54 45 20 37 2C 31 3A 50 52 49 4E 54 20 70 61 24 TE 7,1:PRINT pa$
01AC40: 28 36 29 3B 22 20 54 49 4D 45 20 22 3B 55 53 49 (6);" TIME ";USI
01AC50: 4E 47 22 23 23 22 3B 4E 3B 3A 50 52 49 4E 54 20 NG"##";N;:PRINT
01AC60: 22 20 4D 49 4E 20 22 3B 50 41 24 28 31 29 3A 47 " MIN ";PA$(1):G
01AC70: 4F 53 55 42 20 36 34 30 30 30 3A 49 46 20 49 4E OSUB 64000:IF IN
01AC80: 24 3D 22 53 22 20 41 4E 44 20 4D 50 3D 30 20 54 $="S" AND MP=0 T
01AC90: 48 45 4E 20 47 4F 53 55 42 20 31 30 33 34 0D 0A HEN GOSUB 1034..
01ACA0: 31 30 37 36 20 46 4F 52 20 49 3D 31 20 54 4F 20 1076 FOR I=1 TO
01ACB0: 38 3A 49 46 20 62 28 69 29 3C 3E 6E 20 54 48 45 8:IF b(i)<>n THE
01ACC0: 4E 20 31 30 37 39 20 45 4C 53 45 20 49 46 20 42 N 1079 ELSE IF B
01ACD0: 28 49 29 3D 4E 20 41 4E 44 20 63 28 69 29 3D 32 (I)=N AND c(i)=2
01ACE0: 20 54 48 45 4E 20 31 30 37 38 0D 0A 31 30 37 37 THEN 1078..1077
01ACF0: 20 52 3D 52 2B 31 3A 47 4F 53 55 42 20 31 30 33 R=R+1:GOSUB 103
01AD00: 31 3A 47 4F 53 55 42 20 31 30 30 31 3A 47 4F 54 1:GOSUB 1001:GOT
01AD10: 4F 20 31 30 37 39 0D 0A 31 30 37 38 20 53 3D 53 O 1079..1078 S=S
01AD20: 2B 31 3A 47 4F 53 55 42 20 31 30 33 31 3A 47 4F +1:GOSUB 1031:GO
01AD30: 53 55 42 20 31 30 30 35 0D 0A 31 30 37 39 20 4E SUB 1005..1079 N
01AD40: 45 58 54 3A 49 46 20 43 51 3D 31 20 41 4E 44 20 EXT:IF CQ=1 AND
01AD50: 47 5A 3C 39 20 54 48 45 4E 20 31 30 38 30 20 45 GZ<9 THEN 1080 E
01AD60: 4C 53 45 20 31 30 38 31 0D 0A 31 30 38 30 20 47 LSE 1081..1080 G
01AD70: 4F 53 55 42 20 36 30 0D 0A 31 30 38 31 20 49 46 OSUB 60..1081 IF
01AD80: 20 4E 3D 34 35 20 54 48 45 4E 20 6E 3D 39 39 39 N=45 THEN n=999
01AD90: 0D 0A 31 30 38 32 20 49 46 20 4E 3C 3E 42 55 20 ..1082 IF N<>BU
01ADA0: 54 48 45 4E 20 31 30 38 35 20 20 20 20 20 0D 0A THEN 1085 ..
01ADB0: 31 30 38 33 20 49 46 20 6E 3C 38 31 20 54 48 45 1083 IF n<81 THE
01ADC0: 4E 20 43 48 41 49 4E 20 4D 45 52 47 45 20 22 41 N CHAIN MERGE "A
01ADD0: 44 22 2C 31 30 38 34 20 45 4C 53 45 20 31 30 38 D",1084 ELSE 108
01ADE0: 35 0D 0A 31 30 38 34 20 47 4F 53 55 42 20 31 30 5..1084 GOSUB 10
01ADF0: 35 31 0D 0A 31 30 38 35 20 46 4F 52 20 5A 39 39 51..1085 FOR Z99
01AE00: 52 20 4A 28 49 29 3D 37 36 20 4F 52 20 4A 28 49 R J(I)=76 OR J(I
01AE10: 29 3D 37 33 20 4F 52 20 4A 28 49 29 3D 38 32 20 )=73 OR J(I)=82
01AE20: 4F 52 20 4A 28 49 29 3D 38 33 20 54 48 45 4E 20 OR J(I)=83 THEN
01AE30: 31 30 31 31 0D 0A 31 30 31 30 20 55 28 49 29 3D 1011..1010 U(I)=
01AE40: 32 2B 49 4E 54 20 28 52 4E 44 2A 33 29 3A 4A 28 2+INT (RND*3):J(
01AE50: 49 29 3D 33 35 0D 0A 31 30 31 31 20 4C 4F 43 41 I)=35..1011 LOCA
01AE60: 54 45 20 35 2C 31 38 3A 50 52 49 4E 54 20 22 20 TE 5,18:PRINT "
01AE70: 20 22 3B 56 24 28 49 29 3B 3A 49 46 20 52 41 3D ";V$(I);:IF RA=
01AE80: 30 20 54 48 45 4E 20 31 30 31 33 20 45 4C 53 45 0 THEN 1013 ELSE
01AE90: 20 49 46 20 52 41 3C 30 20 54 48 45 4E 20 31 30 IF RA<0 THEN 10
01AEA0: 31 34 0D 0A 31 30 31 32 20 50 52 49 4E 54 20 22 14..1012 PRINT "
01AEB0: 20 48 41 53 20 49 4D 50 52 4F 56 45 44 20 57 45 HAS IMPROVED WE
01AEC0: 4C 4C 20 20 20 20 22 3A 47 4F 54 4F 20 31 30 31 LL ":GOTO 101
01AED0: 35 0D 0A 31 30 31 33 20 50 52 49 4E 54 20 22 20 5..1013 PRINT "
01AEE0: 53 48 4F 57 53 20 4E 4F 20 49 4D 50 52 4F 56 4D SHOWS NO IMPROVM
01AEF0: 45 4E 54 20 20 22 3A 47 4F 54 4F 20 31 30 31 35 ENT ":GOTO 1015
01AF00: 0D 0A 31 30 31 34 20 50 52 49 4E 54 20 22 20 49 ..1014 PRINT " I
01AF10: 53 20 53 4C 41 43 4B 49 4E 47 20 20 20 20 20 20 S SLACKING
01AF20: 20 20 20 20 22 0D 0A 31 30 31 35 20 49 46 20 52 "..1015 IF R
01AF30: 41 3C 30 20 54 48 45 4E 20 48 28 49 29 3D 48 28 A<0 THEN H(I)=H(
01AF40: 49 29 2D 41 42 53 28 52 41 29 3A 59 3D 49 3A 47 I)-ABS(RA):Y=I:G
01AF50: 4F 54 4F 20 31 30 31 37 0D 0A 31 30 31 36 20 48 OTO 1017..1016 H
01AF60: 28 49 29 3D 48 28 49 29 2B 52 41 3A 59 3D 49 0D (I)=H(I)+RA:Y=I.
01AF70: 0A 31 30 31 37 20 49 46 20 41 33 3D 38 20 41 4E .1017 IF A3=8 AN
01AF80: 44 20 55 28 49 29 3E 30 20 54 48 45 4E 20 4C 4F D U(I)>0 THEN LO
01AF90: 43 41 54 45 20 35 2C 31 39 3A 50 52 49 4E 54 22 CATE 5,19:PRINT"
01AFA0: 48 41 53 20 52 45 54 49 52 45 44 20 54 48 52 4F HAS RETIRED THRO
01AFB0: 55 47 48 20 49 4E 4A 55 52 59 22 3A 47 4F 53 55 UGH INJURY":GOSU
01AFC0: 42 20 32 30 30 3A 47 4F 54 4F 20 31 30 32 34 0D B 200:GOTO 1024.
01AFD0: 0A 31 30 31 38 20 49 46 20 55 28 49 29 3E 30 20 .1018 IF U(I)>0
01AFE0: 54 48 45 4E 20 4C 4F 43 41 54 45 20 35 2C 31 39 THEN LOCATE 5,19
01AFF0: 3A 50 52 49 4E 54 20 22 48 41 53 20 42 45 45 4E :PRINT "HAS BEEN
01B000: 3D 31 20 54 4F 20 35 30 30 3A 4E 45 58 54 3A 6E =1 TO 500:NEXT:n
01B010: 3D 6E 2B 31 3A 49 46 20 6E 3C 3D 6D 64 20 54 48 =n+1:IF n<=md TH
01B020: 45 4E 20 31 30 37 35 20 45 4C 53 45 20 49 46 20 EN 1075 ELSE IF
01B030: 6E 3D 31 30 30 30 20 54 48 45 4E 20 6E 3D 34 35 n=1000 THEN n=45
01B040: 3A 52 34 35 3D 52 3A 53 34 35 3D 53 3A 47 4F 53 :R45=R:S45=S:GOS
01B050: 55 42 20 31 30 33 31 3A 47 4F 53 55 42 20 31 30 UB 1031:GOSUB 10
01B060: 32 36 3A 47 4F 54 4F 20 31 30 38 32 0D 0A 31 30 26:GOTO 1082..10
01B070: 38 36 20 52 31 3D 72 3A 53 31 3D 53 3A 4C 4F 43 86 R1=r:S1=S:LOC
01B080: 41 54 45 20 32 35 2C 31 3A 50 52 49 4E 54 20 50 ATE 25,1:PRINT P
01B090: 41 24 28 36 29 3B 22 20 46 55 4C 4C 20 20 54 49 A$(6);" FULL TI
01B0A0: 4D 45 20 22 3B 50 41 24 28 31 29 3A 47 4F 54 4F ME ";PA$(1):GOTO
01B0B0: 20 31 30 33 33 0D 0A 1A 36 39 29 29 3A 4D 50 3D 1033...69)):MP=
01B0C0: 41 42 53 28 54 28 31 32 29 3D 30 29 3A 47 4F 54 ABS(T(12)=0):GOT
01B0D0: 4F 20 31 30 30 33 0D 0A 31 30 30 32 20 4C 4F 43 O 1003..1002 LOC
01B0E0: 41 54 45 20 39 2C 32 30 3A 50 52 49 4E 54 20 70 ATE 9,20:PRINT p
01B0F0: 61 24 28 33 29 3B 22 20 4C 4D 54 47 20 22 3B 55 a$(3);" LMTG ";U
01B100: 31 3A 47 4F 53 55 42 20 31 30 30 31 3A 47 4F 54 1:GOSUB 1001:GOT
01B110: 4F 20 31 30 37 39 0D 0A 31 30 37 38 20 53 3D 53 O 1079..1078 S=S
01B120: 2B 31 3A 47 4F 53 55 42 20 31 30 33 31 3A 47 4F +1:GOSUB 1031:GO
01B130: 53 55 42 20 31 30 30 35 0D 0A 31 30 37 39 20 4E SUB 1005..1079 N
01B140: 45 58 54 3A 49 46 20 43 51 3D 31 20 41 4E 44 20 EXT:IF CQ=1 AND
01B150: 47 5A 3C 39 20 54 48 45 4E 20 31 30 38 30 20 45 GZ<9 THEN 1080 E
01B160: 4C 53 45 20 31 30 38 31 0D 0A 31 30 38 30 20 47 LSE 1081..1080 G
01B170: 4F 53 55 42 20 36 30 0D 0A 31 30 38 31 20 49 46 OSUB 60..1081 IF
01B180: 20 4E 3D 34 35 20 54 48 45 4E 20 6E 3D 39 39 39 N=45 THEN n=999
01B190: 0D 0A 31 30 38 32 20 49 46 20 4E 3C 3E 42 55 20 ..1082 IF N<>BU
01B1A0: 54 48 45 4E 20 31 30 38 35 20 20 20 20 20 0D 0A THEN 1085 ..
01B1B0: 31 30 38 33 20 49 46 20 6E 3C 38 31 20 54 48 45 1083 IF n<81 THE
01B1C0: 4E 20 43 48 41 49 4E 20 4D 45 52 47 45 20 22 41 N CHAIN MERGE "A
01B1D0: 44 22 2C 31 30 38 34 20 45 4C 53 45 20 31 30 38 D",1084 ELSE 108
01B1E0: 35 0D 0A 31 30 38 34 20 47 4F 53 55 42 20 31 30 5..1084 GOSUB 10
01B1F0: 35 31 0D 0A 31 30 38 35 20 46 4F 52 20 5A 39 39 51..1085 FOR Z99
01B200: 20 49 4E 4A 55 52 45 44 20 46 4F 52 22 3B 55 28 INJURED FOR";U(
01B210: 49 29 3B 22 20 57 45 45 4B 53 22 3A 47 4F 54 4F I);" WEEKS":GOTO
01B220: 20 31 30 32 30 0D 0A 31 30 31 39 20 49 46 20 4A 1020..1019 IF J
01B230: 28 49 29 3C 3E 37 33 20 54 48 45 4E 20 47 4F 53 (I)<>73 THEN GOS
01B240: 55 42 20 35 32 35 0D 0A 31 30 32 30 20 49 46 20 UB 525..1020 IF
01B250: 55 28 49 29 3D 30 20 54 48 45 4E 20 47 4F 54 4F U(I)=0 THEN GOTO
01B260: 20 31 30 32 33 0D 0A 31 30 32 31 20 46 4F 52 20 1023..1021 FOR
01B270: 4B 3D 31 33 20 54 4F 20 32 30 3A 54 45 4D 50 24 K=13 TO 20:TEMP$
01B280: 3D 56 24 28 4B 29 3A 47 4F 53 55 42 20 36 34 39 =V$(K):GOSUB 649
01B290: 30 30 3A 49 46 20 46 4C 41 47 20 54 48 45 4E 20 00:IF FLAG THEN
01B2A0: 41 44 3D 4B 3A 4B 3D 39 39 0D 0A 31 30 32 32 20 AD=K:K=99..1022
01B2B0: 4E 45 58 54 3A 49 46 20 4B 3D 31 30 30 20 54 48 NEXT:IF K=100 TH
01B2C0: 45 4E 20 47 4F 53 55 42 20 36 35 32 0D 0A 31 30 EN GOSUB 652..10
01B2D0: 32 33 20 46 4F 52 20 4B 3D 31 20 54 4F 20 34 30 23 FOR K=1 TO 40
01B2E0: 30 3A 4E 45 58 54 3A 4C 4F 43 41 54 45 20 31 2C 0:NEXT:LOCATE 1,
01B2F0: 31 38 3A 50 52 49 4E 54 20 53 50 41 43 45 24 28 18:PRINT SPACE$(
01B300: 38 30 29 0D 0A 31 30 32 34 20 4E 45 58 54 3A 47 80)..1024 NEXT:G
01B310: 4F 53 55 42 20 33 33 32 3A 4D 57 3D 4D 57 2B 41 OSUB 332:MW=MW+A
01B320: 42 53 28 48 53 3D 31 29 2A 48 52 3A 4D 58 3D 4D BS(HS=1)*HR:MX=M
01B330: 58 2B 41 42 53 28 48 53 3D 32 29 2A 48 52 3A 4D X+ABS(HS=2)*HR:M
01B340: 59 3D 4D 59 2B 41 42 53 28 48 53 3D 33 29 2A 48 Y=MY+ABS(HS=3)*H
01B350: 52 3A 4D 5A 3D 4D 5A 2B 41 42 53 28 48 53 3D 34 R:MZ=MZ+ABS(HS=4
01B360: 29 2A 48 52 3A 47 4F 54 4F 20 31 30 30 31 0D 0A )*HR:GOTO 1001..
01B370: 31 30 32 35 20 4C 4F 43 41 54 45 20 31 34 2C 32 1025 LOCATE 14,2
01B380: 3A 50 52 49 4E 54 20 70 61 24 28 36 29 3B 22 45 :PRINT pa$(6);"E
01B390: 58 54 52 41 20 54 52 41 49 4E 49 4E 47 22 3B 70 XTRA TRAINING";p
01B3A0: 61 24 28 31 29 2C 2C 2C 2C 2C 2C 54 41 42 28 31 a$(1),,,,,,TAB(1
01B3B0: 33 29 3B 22 31 20 47 4F 41 4C 4B 45 45 50 45 52 3);"1 GOALKEEPER
01B3C0: 20 20 20 22 3B 4D 57 2C 2C 2C 54 41 42 28 31 33 ";MW,,,TAB(13
01B3D0: 29 3B 22 32 20 44 45 46 45 4E 43 45 20 20 20 20 );"2 DEFENCE
01B3E0: 20 20 22 3B 4D 58 2C 2C 2C 54 41 42 28 31 33 29 ";MX,,,TAB(13)
01B3F0: 3B 22 33 20 4D 49 44 46 49 45 4C 44 20 20 20 20 ;"3 MIDFIELD
01B400: 31 30 30 31 20 49 4E 4B 20 30 2C 32 34 3A 49 4E 1001 INK 0,24:IN
01B410: 4B 20 31 2C 32 3A 49 4E 4B 20 32 2C 30 3A 49 4E K 1,2:INK 2,0:IN
01B420: 4B 20 33 2C 36 3A 42 4F 52 44 45 52 20 32 34 3A K 3,6:BORDER 24:
01B430: 43 4C 53 3A 6F 32 3D 30 3A 6F 33 3D 31 39 3A 6F CLS:o2=0:o3=19:o
01B440: 34 3D 32 38 0D 0A 31 30 30 32 20 4C 4F 43 41 54 4=28..1002 LOCAT
01B450: 45 20 38 2C 31 30 3A 50 52 49 4E 54 22 43 55 52 E 8,10:PRINT"CUR
01B460: 52 45 4E 54 20 54 49 43 4B 45 54 20 50 52 49 43 RENT TICKET PRIC
01B470: 45 20 22 3B 3A 74 65 6D 70 3D 6E 6A 3A 47 4F 53 E ";:temp=nj:GOS
01B480: 55 42 20 36 34 35 30 30 0D 0A 31 30 30 33 20 4C UB 64500..1003 L
01B490: 4F 43 41 54 45 20 34 2C 31 32 3A 49 4E 50 55 54 OCATE 4,12:INPUT
01B4A0: 22 54 59 50 45 20 4E 45 57 20 54 49 43 4B 45 54 "TYPE NEW TICKET
01B4B0: 20 50 52 49 43 45 20 49 4E 20 50 45 4E 43 45 22 PRICE IN PENCE"
01B4C0: 3B 7A 61 3A 7A 61 3D 7A 61 2F 31 30 30 3A 49 46 ;za:za=za/100:IF
01B4D0: 20 7A 61 3C 30 2E 31 20 4F 52 20 7A 61 3E 39 2E za<0.1 OR za>9.
01B4E0: 39 39 20 54 48 45 4E 20 31 30 30 33 0D 0A 31 30 99 THEN 1003..10
01B4F0: 30 34 20 6E 6A 3D 7A 61 3A 4C 4F 43 41 54 45 20 04 nj=za:LOCATE
01B500: 38 2C 31 30 3A 50 52 49 4E 54 22 43 55 52 52 45 8,10:PRINT"CURRE
01B510: 4E 54 20 54 49 43 4B 45 54 20 50 52 49 43 45 20 NT TICKET PRICE
01B520: 22 3B 3A 74 65 6D 70 3D 6E 6A 3A 47 4F 53 55 42 ";:temp=nj:GOSUB
01B530: 20 36 34 35 30 30 3A 47 4F 54 4F 20 39 30 30 0D 64500:GOTO 900.
01B540: 0A 1A F5 0D 00 00 6E E9 29 01 A0 20 1E 84 03 00 ......n.).. ....
01B550: 0A 00 EF 03 A0 20 1E EC 03 00 00 00 1A 0C 28 0D ..... ........(.
01B560: 00 00 61 E9 F5 0D 00 00 6E E9 29 01 A0 20 1E 84 ..a.....n.).. ..
01B570: 03 00 0A 00 EF 03 A0 20 1E EC 03 00 00 00 1A 1A ....... ........
01B580: 00 59 20 20 20 20 20 20 20 42 41 53 00 00 00 25 .Y BAS...%
01B590: 91 92 93 94 95 00 00 00 00 00 00 00 00 00 00 00 ................
01B5A0: 00 59 31 20 20 20 20 20 20 42 41 53 00 00 00 10 .Y1 BAS....
01B5B0: 96 97 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B5C0: 00 53 43 52 44 20 20 20 20 42 49 4E 00 00 00 02 .SCRD BIN....
01B5D0: 98 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01B610: 17 00 01 00 02 09 4E E5 17 00 41 02 00 00 00 02 ......N...A.....
01B620: 17 00 46 02 00 00 00 02 17 00 42 02 00 00 00 02 ..F.......B.....
01B630: 17 00 47 02 00 00 00 02 17 00 43 02 00 00 00 02 ..G.......C.....
01B640: 17 00 48 02 00 00 00 02 17 00 44 02 00 00 00 02 ..H.......D.....
01B650: 17 00 49 02 00 00 00 02 17 00 45 02 00 00 00 02 ..I.......E.....
01B660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B700: 20 22 3B 4D 59 0D 0A 31 30 32 36 20 50 52 49 4E ";MY..1026 PRIN
01B710: 54 2C 2C 2C 54 41 42 28 31 33 29 3B 22 34 20 41 T,,,TAB(13);"4 A
01B720: 54 54 41 43 4B 20 20 20 20 20 20 20 22 3B 4D 5A TTACK ";MZ
01B730: 3A 4C 4F 43 41 54 45 20 31 38 2C 32 32 3A 50 52 :LOCATE 18,22:PR
01B740: 49 4E 54 20 70 61 24 28 32 29 3B 22 20 4D 45 4E INT pa$(2);" MEN
01B750: 55 20 22 3B 70 61 24 28 31 29 3A 52 45 54 55 52 U ";pa$(1):RETUR
01B760: 4E 0D 0A 1A 29 01 C9 00 00 00 1A 00 00 4F B4 F4 N...)........O..
01B770: 19 1B 01 A0 20 1E DA 00 00 00 00 1A 30 30 3A 57 .... .......00:W
01B780: 3D 56 24 28 4B 29 3A 47 4F 53 55 42 20 36 34 39 =V$(K):GOSUB 649
01B790: 30 30 3A 49 46 20 46 4C 41 47 20 54 48 45 4E 20 00:IF FLAG THEN
01B7A0: 41 44 3D 4B 3A 4B 3D 39 39 0D 0A 31 30 32 32 20 AD=K:K=99..1022
01B7B0: 4E 45 58 54 3A 49 46 20 4B 3D 31 30 30 20 54 48 NEXT:IF K=100 TH
01B7C0: 45 4E 20 47 4F 53 55 42 20 36 35 32 0D 0A 31 30 EN GOSUB 652..10
01B7D0: 32 33 20 46 4F 52 20 4B 3D 31 20 54 4F 20 34 30 23 FOR K=1 TO 40
01B7E0: 30 3A 4E 45 58 54 3A 4C 4F 43 41 54 45 20 31 2C 0:NEXT:LOCATE 1,
01B7F0: 31 38 3A 50 52 49 4E 54 20 53 50 41 43 45 24 28 18:PRINT SPACE$(
01B800: 38 30 29 0D 0A 31 30 32 34 20 4E 45 58 54 3A 47 80)..1024 NEXT:G
01B810: 4F 53 55 42 20 33 33 32 3A 4D 57 3D 4D 57 2B 41 OSUB 332:MW=MW+A
01B820: 42 53 28 48 53 3D 31 29 2A 48 52 3A 4D 58 3D 4D BS(HS=1)*HR:MX=M
01B830: 58 2B 41 42 53 28 48 53 3D 32 29 2A 48 52 3A 4D X+ABS(HS=2)*HR:M
01B840: 59 3D 4D 59 2B 41 42 53 28 48 53 3D 33 29 2A 48 Y=MY+ABS(HS=3)*H
01B850: 52 3A 4D 5A 3D 4D 5A 2B 41 42 53 28 48 53 3D 34 R:MZ=MZ+ABS(HS=4
01B860: 29 2A 48 52 3A 47 4F 54 4F 20 31 30 30 31 0D 0A )*HR:GOTO 1001..
01B870: 31 30 32 35 20 4C 4F 43 41 54 45 20 31 34 2C 32 1025 LOCATE 14,2
01B880: 3A 50 52 49 4E 54 20 70 61 24 28 36 29 3B 22 45 :PRINT pa$(6);"E
01B890: 58 54 52 41 20 54 52 41 49 4E 49 4E 47 22 3B 70 XTRA TRAINING";p
01B8A0: 61 24 28 31 29 2C 2C 2C 2C 2C 2C 54 41 42 28 31 a$(1),,,,,,TAB(1
01B8B0: 33 29 3B 22 31 20 47 4F 41 4C 4B 45 45 50 45 52 3);"1 GOALKEEPER
01B8C0: 20 20 20 22 3B 4D 57 2C 2C 2C 54 41 42 28 31 33 ";MW,,,TAB(13
01B8D0: 29 3B 22 32 20 44 45 46 45 4E 43 45 20 20 20 20 );"2 DEFENCE
01B8E0: 20 20 22 3B 4D 58 2C 2C 2C 54 41 42 28 31 33 29 ";MX,,,TAB(13)
01B8F0: 3B 22 33 20 4D 49 44 46 49 45 4C 44 20 20 20 20 ;"3 MIDFIELD
01B900: 20 49 46 20 45 28 33 2C 49 29 3E 39 20 54 48 45 IF E(3,I)>9 THE
01B910: 4E 20 45 28 33 2C 49 29 3D 39 3A 47 4F 54 4F 20 N E(3,I)=9:GOTO
01B920: 33 31 35 3A 45 4C 53 45 20 33 31 35 0D 0A 1A 00 315:ELSE 315....
01B930: C9 29 EF 17 01 A0 20 1E 3B 01 01 01 97 20 1E 3B .).... .;.... .;
01B940: 01 00 00 00 1A 00 00 C5 28 11 2C 0D 00 00 C9 29 ........(.,....)
01B950: F5 17 29 01 A0 20 1E 3B 01 00 00 00 1A 31 30 3A ..).. .;.....10:
01B960: 20 47 4F 20 54 4F 20 33 31 35 0D 0A 33 31 33 20 GO TO 315..313
01B970: 52 44 3D 49 4E 54 20 28 41 42 53 28 28 28 59 28 RD=INT (ABS(((Y(
01B980: 3D 49 4E 54 28 52 4E 44 2A 35 29 2F 31 30 3A 52 =INT(RND*5)/10:R
01B990: 45 3D 52 45 2B 52 5A 3A 52 42 3D 49 4E 54 28 31 E=RE+RZ:RB=INT(1
01B9A0: 30 2D 28 28 59 28 33 2C 49 2D 31 38 29 2B 31 39 0-((Y(3,I-18)+19
01B9B0: 29 2F 32 30 29 29 3A 52 43 3D 49 4E 54 28 52 42 )/20)):RC=INT(RB
01B9C0: 2D 35 29 3A 52 41 3D 31 2B 49 4E 54 28 52 4E 44 -5):RA=1+INT(RND
01B9D0: 2A 34 29 3A 49 46 20 28 52 41 3E 31 20 4F 52 20 *4):IF (RA>1 OR
01B9E0: 59 28 35 2C 49 2D 31 38 29 20 3C 20 52 43 20 4F Y(5,I-18) < RC O
01B9F0: 52 20 59 28 35 2C 49 2D 31 38 29 20 3E 20 52 42 R Y(5,I-18) > RB
01BA00: 20 4F 52 20 52 45 3C 31 29 20 54 48 45 4E 20 33 OR RE<1) THEN 3
01BA10: 31 35 20 45 4C 53 45 20 33 31 34 0D 0A 33 32 30 15 ELSE 314..320
01BA20: 20 58 28 49 29 3D 28 59 28 33 2C 49 2D 31 38 29 X(I)=(Y(3,I-18)
01BA30: 29 3A 47 4F 53 55 42 20 39 38 3A 56 24 28 49 29 ):GOSUB 98:V$(I)
01BA40: 3D 43 48 52 24 28 5A 39 29 2B 22 2E 22 2B 4D 49 =CHR$(Z9)+"."+MI
01BA50: 44 24 28 48 24 2C 52 43 2C 31 29 2B 4D 49 44 24 D$(H$,RC,1)+MID$
01BA60: 28 4D 24 2C 52 42 2C 31 29 2B 4D 49 44 24 28 48 (M$,RB,1)+MID$(H
01BA70: 24 2C 52 44 2C 31 29 2B 45 24 28 52 41 29 3A 76 $,RD,1)+E$(RA):v
01BA80: 24 28 69 29 3D 76 24 28 69 29 2B 53 50 41 43 45 $(i)=v$(i)+SPACE
01BA90: 24 28 38 2D 4C 45 4E 28 76 24 28 69 29 29 29 3A $(8-LEN(v$(i))):
01BAA0: 47 28 49 29 3D 32 32 2B 49 4E 54 28 52 4E 44 2A G(I)=22+INT(RND*
01BAB0: 31 34 29 3A 54 28 49 29 3D 59 28 34 2C 49 2D 31 14):T(I)=Y(4,I-1
01BAC0: 38 29 3A 48 28 49 29 3D 52 45 3A 45 28 33 2C 49 8):H(I)=RE:E(3,I
01BAD0: 29 3D 2D 33 2B 49 4E 54 20 28 52 4E 44 2A 31 37 )=-3+INT (RND*17
01BAE0: 29 3A 49 46 20 45 28 33 2C 49 29 3C 30 20 54 48 ):IF E(3,I)<0 TH
01BAF0: 45 4E 20 45 28 33 2C 49 29 3D 30 0D 0A 33 32 31 EN E(3,I)=0..321
01BB00: 31 30 30 31 20 49 46 20 4F 57 3D 31 20 54 48 45 1001 IF OW=1 THE
01BB10: 4E 20 31 30 31 32 0D 0A 31 30 30 32 20 4F 57 3D N 1012..1002 OW=
01BB20: 31 3A 47 4F 53 55 42 20 31 30 31 35 3A 46 4F 52 1:GOSUB 1015:FOR
01BB30: 20 4A 3D 31 20 54 4F 20 34 3A 46 4F 52 20 4B 3D J=1 TO 4:FOR K=
01BB40: 31 20 54 4F 20 34 2D 31 3A 46 4F 52 20 46 3D 4B 1 TO 4-1:FOR F=K
01BB50: 2B 31 20 54 4F 20 34 0D 0A 31 30 30 33 20 49 46 +1 TO 4..1003 IF
01BB60: 20 49 28 31 2C 4A 2C 4B 29 3E 20 49 28 31 2C 4A I(1,J,K)> I(1,J
01BB70: 2C 46 29 20 54 48 45 4E 20 31 30 30 35 0D 0A 31 ,F) THEN 1005..1
01BB80: 30 30 34 20 45 31 3D 49 28 31 2C 4A 2C 4B 29 3A 004 E1=I(1,J,K):
01BB90: 45 32 3D 49 28 32 2C 4A 2C 4B 29 3A 58 24 3D 4C E2=I(2,J,K):X$=L
01BBA0: 24 28 4A 2C 4B 29 3A 49 28 31 2C 4A 2C 4B 29 3D $(J,K):I(1,J,K)=
01BBB0: 49 28 31 2C 4A 2C 46 29 3A 49 28 32 2C 4A 2C 4B I(1,J,F):I(2,J,K
01BBC0: 29 3D 49 28 32 2C 4A 2C 46 29 3A 4C 24 28 4A 2C )=I(2,J,F):L$(J,
01BBD0: 4B 29 3D 4C 24 28 4A 2C 46 29 3A 49 28 31 2C 4A K)=L$(J,F):I(1,J
01BBE0: 2C 46 29 3D 45 31 3A 49 28 32 2C 4A 2C 46 29 3D ,F)=E1:I(2,J,F)=
01BBF0: 45 32 3A 4C 24 28 4A 2C 46 29 3D 58 24 0D 0A 31 E2:L$(J,F)=X$..1
01BC00: 30 30 35 20 4E 45 58 54 3A 4E 45 58 54 3A 4E 45 005 NEXT:NEXT:NE
01BC10: 58 54 0D 0A 31 30 30 36 20 46 4F 52 20 4D 3D 31 XT..1006 FOR M=1
01BC20: 20 54 4F 20 32 30 3A 49 46 20 54 28 4D 29 3C 32 TO 20:IF T(M)<2
01BC30: 20 4F 52 20 45 28 31 2C 4D 29 3D 30 20 54 48 45 OR E(1,M)=0 THE
01BC40: 4E 20 31 30 31 31 0D 0A 31 30 30 37 20 46 4F 52 N 1011..1007 FOR
01BC50: 20 4B 3D 31 20 54 4F 20 34 3A 49 46 20 49 28 31 K=1 TO 4:IF I(1
01BC60: 2C 41 50 2C 4B 29 3E 3D 45 28 31 2C 4D 29 20 54 ,AP,K)>=E(1,M) T
01BC70: 48 45 4E 20 31 30 31 30 0D 0A 31 30 30 38 20 46 HEN 1010..1008 F
01BC80: 4F 52 20 46 3D 34 20 54 4F 20 4B 2B 31 20 53 54 OR F=4 TO K+1 ST
01BC90: 45 50 20 2D 31 3A 4C 24 28 41 50 2C 46 29 3D 4C EP -1:L$(AP,F)=L
01BCA0: 24 28 41 50 2C 46 2D 31 29 3A 49 28 31 2C 41 50 $(AP,F-1):I(1,AP
01BCB0: 2C 46 29 3D 49 28 31 2C 41 50 2C 46 2D 31 29 3A ,F)=I(1,AP,F-1):
01BCC0: 49 28 32 2C 41 50 2C 46 29 3D 49 28 32 2C 41 50 I(2,AP,F)=I(2,AP
01BCD0: 2C 46 2D 31 29 3A 4E 45 58 54 20 46 3A 4C 24 28 ,F-1):NEXT F:L$(
01BCE0: 41 50 2C 4B 29 3D 56 24 28 4D 29 3A 49 28 31 2C AP,K)=V$(M):I(1,
01BCF0: 41 50 2C 4B 29 3D 45 28 31 2C 4D 29 0D 0A 31 30 AP,K)=E(1,M)..10
01BD00: 2C 10 01 BF 20 03 00 00 70 E1 28 14 29 3B 22 45 ,... ...p.(.);"E
01BD10: 58 54 52 41 20 54 52 41 49 4E 49 4E 47 22 3B 03 XTRA TRAINING";.
01BD20: 00 00 70 E1 28 0F 29 2C 2C 2C 2C 2C 2C EA 28 19 ..p.(.),,,,,,.(.
01BD30: 0D 29 3B 22 31 20 47 4F 41 4C 4B 45 45 50 45 52 .);"1 GOALKEEPER
01BD40: 20 20 20 22 3B 0D 00 00 4D D7 2C 2C 2C EA 28 19 ";...M.,,,.(.
01BD50: 0D 29 3B 22 32 20 44 45 46 45 4E 43 45 20 20 20 .);"2 DEFENCE
01BD60: 20 20 20 22 3B 0D 00 00 4D D8 2C 2C 2C EA 28 19 ";...M.,,,.(.
01BD70: 0D 29 3B 22 33 20 4D 49 44 46 49 45 4C 44 20 20 .);"3 MIDFIELD
01BD80: 20 20 20 22 3B 0D 00 00 4D D9 00 4D 00 02 04 BF ";...M..M....
01BD90: 2C 2C 2C EA 28 19 0D 29 3B 22 34 20 41 54 54 41 ,,,.(..);"4 ATTA
01BDA0: 43 4B 20 20 20 20 20 20 20 22 3B 0D 00 00 4D DA CK ";...M.
01BDB0: 01 A9 20 19 12 2C 19 16 01 BF 20 03 00 00 70 E1 .. ..,.... ...p.
01BDC0: 28 10 29 3B 22 20 4D 45 4E 55 20 22 3B 03 00 00 (.);" MENU ";...
01BDD0: 70 E1 28 0F 29 01 C9 00 00 00 1A 22 3B 03 00 00 p.(.)......";...
01BDE0: 70 E1 28 0F 29 01 C9 00 00 00 1A 00 00 4F B4 F4 p.(.)........O..
01BDF0: 19 1B 01 A0 20 1E DA 00 00 00 00 1A 30 30 3A 57 .... .......00:W
01BE00: EF 03 00 00 D6 28 0D 00 00 CB 29 01 9F 20 1E 84 .....(....).. ..
01BE10: FD 01 A1 20 0D 00 00 46 4C 41 C7 20 EB 20 0D 00 ... ...FLA. . ..
01BE20: 00 41 C4 EF 0D 00 00 CB 01 0D 00 00 CB EF 19 63 .A.............c
01BE30: 00 18 00 FE 03 B0 01 A1 20 0D 00 00 CB EF 19 64 ........ ......d
01BE40: 20 EB 20 9F 20 1E 8C 02 00 25 00 FF 03 9E 20 0D . . ....%.... .
01BE50: 00 00 CB EF 0F 20 EC 20 1A 90 01 01 B0 01 A9 20 ..... . .......
01BE60: 0F 2C 19 12 01 BF 20 FF 16 28 19 50 29 00 8A 00 .,.... ..(.P)...
01BE70: 00 04 B0 01 9F 20 1E 4C 01 01 0D 00 00 4D D7 EF ..... .L.....M..
01BE80: 0D 00 00 4D D7 F4 FF 00 28 0D 00 00 48 D3 EF 0F ...M....(...H...
01BE90: 29 F6 0D 00 00 48 D2 01 0D 00 00 4D D8 EF 0D 00 )....H.....M....
01BEA0: 00 4D D8 F4 FF 00 28 0D 00 00 48 D3 EF 10 29 F6 .M....(...H...).
01BEB0: 0D 00 00 48 D2 01 0D 00 00 4D D9 EF 0D 00 00 4D ...H.....M.....M
01BEC0: D9 F4 FF 00 28 0D 00 00 48 D3 EF 11 29 F6 0D 00 ....(...H...)...
01BED0: 00 48 D2 01 0D 00 00 4D DA EF 0D 00 00 4D DA F4 .H.....M.....M..
01BEE0: FF 00 28 0D 00 00 48 D3 EF 12 29 F6 0D 00 00 48 ..(...H...)....H
01BEF0: D2 01 A0 20 1E E9 03 00 93 00 01 04 A9 20 19 0E ... ......... ..
01BF00: 30 39 20 52 41 3D 30 3A 46 4F 52 20 4E 3D 31 20 09 RA=0:FOR N=1
01BF10: 54 4F 20 38 30 3A 52 41 3D 52 41 2D 28 52 41 3D TO 80:RA=RA-(RA=
01BF20: 30 20 41 4E 44 20 5A 24 3D 59 24 28 4E 29 29 2A 0 AND Z$=Y$(N))*
01BF30: 4E 3A 4E 45 58 54 20 4E 3A 49 28 32 2C 41 50 2C N:NEXT N:I(2,AP,
01BF40: 4B 29 3D 52 41 3A 4B 3D 34 0D 0A 31 30 31 30 20 K)=RA:K=4..1010
01BF50: 4E 45 58 54 0D 0A 31 30 31 31 20 4E 45 58 54 0D NEXT..1011 NEXT.
01BF60: 0A 31 30 31 32 20 43 4C 53 3A 50 52 49 4E 54 3A .1012 CLS:PRINT:
01BF70: 46 4F 52 20 4A 3D 31 20 54 4F 20 34 3A 50 52 49 FOR J=1 TO 4:PRI
01BF80: 4E 54 20 50 41 24 28 35 29 3B 22 20 20 20 20 20 NT PA$(5);"
01BF90: 20 20 20 20 20 20 20 20 44 49 56 49 53 49 4F 4E DIVISION
01BFA0: 22 3B 4A 3B 22 20 20 20 20 20 20 20 20 20 20 20 ";J;"
01BFB0: 20 20 20 20 22 0D 0A 31 30 31 33 20 46 4F 52 20 "..1013 FOR
01BFC0: 4B 3D 31 20 54 4F 20 34 3A 50 52 49 4E 54 20 50 K=1 TO 4:PRINT P
01BFD0: 41 24 28 31 29 3B 54 41 42 28 39 29 3B 4B 3B 4C A$(1);TAB(9);K;L
01BFE0: 24 28 4A 2C 4B 29 3B 54 41 42 28 32 30 29 3B 49 $(J,K);TAB(20);I
01BFF0: 28 31 2C 4A 2C 4B 29 3B 54 41 42 28 32 34 29 3B (1,J,K);TAB(24);
01C000: 59 24 28 41 42 53 28 49 28 32 2C 4A 2C 4B 29 29 Y$(ABS(I(2,J,K))
01C010: 29 3A 4E 45 58 54 3A 4E 45 58 54 3A 49 46 20 43 ):NEXT:NEXT:IF C
01C020: 4A 3D 30 20 54 48 45 4E 20 52 45 54 55 52 4E 0D J=0 THEN RETURN.
01C030: 0A 31 30 31 34 20 47 4F 53 55 42 20 38 34 38 3A .1014 GOSUB 848:
01C040: 47 4F 54 4F 20 31 30 31 34 0D 0A 31 30 31 35 20 GOTO 1014..1015
01C050: 49 46 20 5A 36 3D 30 20 54 48 45 4E 20 52 45 54 IF Z6=0 THEN RET
01C060: 55 52 4E 20 0D 0A 31 30 31 36 20 5A 36 3D 30 3A URN ..1016 Z6=0:
01C070: 46 4F 52 20 4A 3D 31 20 54 4F 20 34 3A 46 4F 52 FOR J=1 TO 4:FOR
01C080: 20 4B 3D 31 20 54 4F 20 34 3A 47 4F 53 55 42 20 K=1 TO 4:GOSUB
01C090: 38 31 37 3A 49 28 32 2C 4A 2C 4B 29 3D 52 41 3A 817:I(2,J,K)=RA:
01C0A0: 4E 45 58 54 3A 4E 45 58 54 3A 47 4F 53 55 42 20 NEXT:NEXT:GOSUB
01C0B0: 38 31 35 3A 52 45 54 55 52 4E 20 0D 0A 1A EF 0F 815:RETURN .....
01C0C0: 20 EC 20 12 01 9E 20 0D 00 00 CB EF 0F 20 EC 20 . ... ...... .
01C0D0: 12 01 9F 20 1E 31 03 01 0D 00 00 C9 28 10 2C 0D ... .1......(.,.
01C0E0: 00 00 CA 2C 0D 00 00 CB 29 EF 0D 00 00 52 C1 01 ...,....)....R..
01C0F0: B0 01 B0 01 9F 20 1E 2F 03 01 C9 20 00 00 00 1A ..... ./... ....
01C100: 31 30 30 31 20 49 4E 4B 20 30 2C 31 30 3A 42 4F 1001 INK 0,10:BO
01C110: 52 44 45 52 20 31 30 3A 6E 61 3D 49 4E 54 28 32 RDER 10:na=INT(2
01C120: 30 30 2D 28 37 2E 35 2A 61 67 29 29 2A 28 35 2D 00-(7.5*ag))*(5-
01C130: 61 70 29 3A 6E 67 3D 6E 61 3A 6E 62 3D 28 6E 61 ap):ng=na:nb=(na
01C140: 2F 31 30 30 29 2A 32 30 3A 6E 61 3D 6E 61 2D 6E /100)*20:na=na-n
01C150: 62 0D 0A 31 30 30 32 20 6E 63 3D 49 4E 54 28 28 b..1002 nc=INT((
01C160: 32 30 2F 61 67 29 2A 31 30 29 2B 28 31 2B 49 4E 20/ag)*10)+(1+IN
01C170: 54 28 52 4E 44 2A 32 30 29 29 3A 6E 65 3D 49 4E T(RND*20)):ne=IN
01C180: 54 28 31 34 2D 61 67 29 2D 28 30 2B 49 4E 54 28 T(14-ag)-(0+INT(
01C190: 52 4E 44 2A 37 29 29 3A 6E 65 3D 6E 65 2B 41 42 RND*7)):ne=ne+AB
01C1A0: 53 28 6E 65 3C 30 29 2A 41 42 53 28 6E 65 29 3A S(ne<0)*ABS(ne):
01C1B0: 43 4C 53 3A 50 52 49 4E 54 20 54 41 42 28 31 35 CLS:PRINT TAB(15
01C1C0: 29 3B 7A 24 3B 22 20 46 43 22 2C 54 41 42 28 35 );z$;" FC",TAB(5
01C1D0: 29 3B 22 54 48 45 20 42 4F 41 52 44 20 4F 46 20 );"THE BOARD OF
01C1E0: 44 49 52 45 43 54 4F 52 53 20 4F 46 46 45 52 20 DIRECTORS OFFER
01C1F0: 59 4F 55 22 2C 2C 54 41 42 28 35 29 3B 3A 74 65 YOU",,TAB(5);:te
01C200: 6D 70 3D 49 4E 54 28 6E 61 29 3A 47 4F 53 55 42 mp=INT(na):GOSUB
01C210: 20 36 33 35 30 30 3A 50 52 49 4E 54 20 22 20 50 63500:PRINT " P
01C220: 45 52 20 57 45 45 4B 20 41 4E 44 22 2C 54 41 42 ER WEEK AND",TAB
01C230: 28 35 29 3B 22 41 22 3B 6E 63 3B 22 57 45 45 4B (5);"A";nc;"WEEK
01C240: 20 43 4F 4E 54 52 41 43 54 22 0D 0A 31 30 30 33 CONTRACT"..1003
01C250: 20 4C 4F 43 41 54 45 20 31 39 2C 32 30 3A 50 52 LOCATE 19,20:PR
01C260: 49 4E 54 22 53 49 47 4E 41 54 55 52 45 3A 22 0D INT"SIGNATURE:".
01C270: 0A 31 30 30 34 20 49 46 20 6E 75 3C 3E 31 20 54 .1004 IF nu<>1 T
01C280: 48 45 4E 20 31 30 31 33 0D 0A 31 30 30 35 20 43 HEN 1013..1005 C
01C290: 4C 53 23 32 3A 50 52 49 4E 54 23 32 2C 54 41 42 LS#2:PRINT#2,TAB
01C2A0: 28 36 29 3B 22 52 45 2D 4E 45 47 4F 54 49 41 54 (6);"RE-NEGOTIAT
01C2B0: 45 20 59 2F 4E 22 0D 0A 31 30 30 36 20 47 4F 53 E Y/N"..1006 GOS
01C2C0: 55 42 20 36 34 30 30 30 3A 49 46 20 69 6E 24 3D UB 64000:IF in$=
01C2D0: 22 59 22 20 54 48 45 4E 20 31 30 30 37 20 45 4C "Y" THEN 1007 EL
01C2E0: 53 45 20 49 46 20 69 6E 24 3D 22 4E 22 20 54 48 SE IF in$="N" TH
01C2F0: 45 4E 20 31 30 31 30 20 45 4C 53 45 20 31 30 30 EN 1010 ELSE 100
01C300: 33 31 32 20 46 4F 52 20 49 3D 32 31 20 54 4F 20 312 FOR I=21 TO
01C310: 32 33 3A 52 41 3D 31 2B 49 4E 54 20 28 52 4E 44 23:RA=1+INT (RND
01C320: 2A 39 29 3A 54 45 4D 50 24 3D 49 24 28 49 2D 31 *9):TEMP$=I$(I-1
01C330: 38 29 3A 47 4F 53 55 42 20 36 34 39 30 30 3A 49 8):GOSUB 64900:I
01C340: 46 20 46 4C 41 47 3D 31 20 4F 52 20 52 41 3D 31 F FLAG=1 OR RA=1
01C350: 20 54 48 45 4E 20 47 4F 53 55 42 20 39 31 30 3A THEN GOSUB 910:
01C360: 20 47 4F 54 4F 20 33 31 35 0D 0A 33 31 33 20 52 GOTO 315..313 R
01C370: 44 3D 49 4E 54 20 28 41 42 53 28 28 28 59 28 32 D=INT (ABS(((Y(2
01C380: 2C 49 2D 31 38 29 2F 31 30 29 2D 39 29 2F 32 29 ,I-18)/10)-9)/2)
01C390: 29 3A 45 56 3D 49 4E 54 28 52 44 2F 32 29 3A 52 ):EV=INT(RD/2):R
01C3A0: 43 3D 49 4E 54 20 28 59 28 35 2C 49 2D 31 38 29 C=INT (Y(5,I-18)
01C3B0: 2D 52 44 29 3A 52 46 3D 49 4E 54 20 28 59 28 35 -RD):RF=INT (Y(5
01C3C0: 2C 49 2D 31 38 29 2B 45 56 29 3A 52 45 3D 52 43 ,I-18)+EV):RE=RC
01C3D0: 2B 49 4E 54 20 28 52 4E 44 2A 28 28 52 46 2D 52 +INT (RND*((RF-R
01C3E0: 43 29 2B 31 29 29 3A 52 45 3D 52 45 2D 41 42 53 C)+1)):RE=RE-ABS
01C3F0: 28 52 45 3E 39 29 2A 41 42 53 28 52 45 2D 39 29 (RE>9)*ABS(RE-9)
01C400: 2D 41 42 53 28 52 45 3C 30 29 2A 52 45 3A 52 45 -ABS(RE<0)*RE:RE
01C410: 3D 52 45 2B 41 42 53 28 52 45 3D 30 29 3A 47 4F =RE+ABS(RE=0):GO
01C420: 54 4F 20 33 31 39 0D 0A 33 31 34 20 59 28 31 2C TO 319..314 Y(1,
01C430: 49 2D 31 38 29 3D 59 28 31 2C 49 2D 31 38 29 2D I-18)=Y(1,I-18)-
01C440: 28 59 28 31 2C 49 2D 31 38 29 2A 32 29 3A 47 4F (Y(1,I-18)*2):GO
01C450: 54 4F 20 33 32 30 0D 0A 33 31 35 20 4E 45 58 54 TO 320..315 NEXT
01C460: 3A 46 4F 52 20 49 3D 32 34 20 54 4F 20 32 36 3A :FOR I=24 TO 26:
01C470: 52 41 3D 31 2B 49 4E 54 20 28 52 4E 44 2A 33 29 RA=1+INT (RND*3)
01C480: 3A 49 46 20 52 41 3E 31 20 54 48 45 4E 20 58 28 :IF RA>1 THEN X(
01C490: 49 29 3D 30 3A 47 4F 54 4F 20 33 31 38 0D 0A 33 I)=0:GOTO 318..3
01C4A0: 31 36 20 52 41 3D 31 2B 49 4E 54 28 52 4E 44 2A 16 RA=1+INT(RND*
01C4B0: 31 35 29 3A 46 4F 52 20 4B 3D 52 41 20 54 4F 20 15):FOR K=RA TO
01C4C0: 32 30 3A 49 46 20 47 28 4B 29 3C 30 20 54 48 45 20:IF G(K)<0 THE
01C4D0: 4E 20 55 28 49 29 3D 4B 3A 56 24 28 49 29 3D 56 N U(I)=K:V$(I)=V
01C4E0: 24 28 4B 29 3A 54 28 49 29 3D 54 28 4B 29 3A 48 $(K):T(I)=T(K):H
01C4F0: 28 49 29 3D 48 28 4B 29 3A 58 28 49 29 3D 31 2B (I)=H(K):X(I)=1+
01C500: 36 0D 0A 31 30 30 37 20 49 46 20 6E 61 3C 6E 67 6..1007 IF na<ng
01C510: 20 54 48 45 4E 20 6E 61 3D 6E 61 2B 31 30 0D 0A THEN na=na+10..
01C520: 31 30 30 38 20 72 61 3D 31 2B 49 4E 54 28 52 4E 1008 ra=1+INT(RN
01C530: 44 2A 34 29 3A 49 46 20 72 61 3C 3E 31 20 54 48 D*4):IF ra<>1 TH
01C540: 45 4E 20 31 30 30 32 0D 0A 31 30 30 39 20 72 61 EN 1002..1009 ra
01C550: 3D 31 31 2B 49 4E 54 28 52 4E 44 2A 39 29 3A 7A =11+INT(RND*9):z
01C560: 24 3D 79 24 28 36 30 2B 72 61 29 3A 61 67 3D 32 $=y$(60+ra):ag=2
01C570: 30 3A 6B 28 31 2C 32 29 3D 61 67 3A 79 24 28 36 0:k(1,2)=ag:y$(6
01C580: 30 2B 72 61 29 3D 79 24 28 38 30 29 3A 79 24 28 0+ra)=y$(80):y$(
01C590: 38 30 29 3D 7A 24 3A 47 4F 54 4F 20 31 30 30 31 80)=z$:GOTO 1001
01C5A0: 0D 0A 31 30 31 30 20 46 4F 52 20 69 3D 31 20 54 ..1010 FOR i=1 T
01C5B0: 4F 20 33 3A 6F 28 31 2C 69 29 3D 30 3A 6F 28 32 O 3:o(1,i)=0:o(2
01C5C0: 2C 69 29 3D 30 3A 6A 24 28 69 29 3D 22 22 3A 4E ,i)=0:j$(i)="":N
01C5D0: 45 58 54 3A 4C 4F 43 41 54 45 20 32 39 2C 32 30 EXT:LOCATE 29,20
01C5E0: 3A 49 4E 50 55 54 20 67 24 3A 49 46 20 55 50 50 :INPUT g$:IF UPP
01C5F0: 45 52 24 28 67 24 29 20 3C 3E 66 24 20 54 48 45 ER$(g$) <>f$ THE
01C600: 4E 20 31 30 31 30 0D 0A 31 30 31 31 20 49 46 20 N 1010..1011 IF
01C610: 6E 75 3C 3E 32 20 54 48 45 4E 20 47 4F 53 55 42 nu<>2 THEN GOSUB
01C620: 20 37 35 35 0D 0A 31 30 31 32 20 52 45 54 55 52 755..1012 RETUR
01C630: 4E 0D 0A 31 30 31 33 20 4C 4F 43 41 54 45 20 31 N..1013 LOCATE 1
01C640: 32 2C 32 32 3A 50 52 49 4E 54 22 44 4F 20 59 4F 2,22:PRINT"DO YO
01C650: 55 20 41 43 43 45 50 54 20 59 2F 4E 22 0D 0A 31 U ACCEPT Y/N"..1
01C660: 30 31 34 20 47 4F 53 55 42 20 36 34 30 30 30 3A 014 GOSUB 64000:
01C670: 49 46 20 69 6E 24 3D 22 4E 22 20 54 48 45 4E 20 IF in$="N" THEN
01C680: 6E 63 3D 30 3A 47 4F 54 4F 20 36 0D 0A 31 30 31 nc=0:GOTO 6..101
01C690: 35 20 49 46 20 69 6E 24 3D 22 59 22 20 54 48 45 5 IF in$="Y" THE
01C6A0: 4E 20 47 4F 53 55 42 20 31 30 31 30 3A 46 4F 52 N GOSUB 1010:FOR
01C6B0: 20 69 3D 31 20 54 4F 20 39 39 3A 4E 45 58 54 3A i=1 TO 99:NEXT:
01C6C0: 47 4F 54 4F 20 36 0D 0A 31 30 31 36 20 47 4F 54 GOTO 6..1016 GOT
01C6D0: 4F 20 31 30 31 34 0D 0A 1A 63 3D 49 4E 54 28 28 O 1014...c=INT((
01C6E0: 32 30 2F 61 67 29 2A 31 30 29 2B 28 31 2B 49 4E 20/ag)*10)+(1+IN
01C6F0: 54 28 52 4E 44 2A 32 30 29 29 3A 6E 65 3D 49 4E T(RND*20)):ne=IN
01C700: 49 4E 54 28 52 4E 44 2A 28 38 30 2B 28 48 28 4B INT(RND*(80+(H(K
01C710: 29 3E 35 29 2A 34 30 29 29 3A 58 28 49 29 3D 58 )>5)*40)):X(I)=X
01C720: 28 49 29 2B 28 59 24 28 58 28 49 29 29 3D 5A 24 (I)+(Y$(X(I))=Z$
01C730: 29 2A 58 28 49 29 3A 47 28 49 29 3D 41 42 53 28 )*X(I):G(I)=ABS(
01C740: 47 28 4B 29 29 3A 45 28 33 2C 49 29 3D 45 28 33 G(K)):E(3,I)=E(3
01C750: 2C 4B 29 3A 47 4F 54 4F 20 33 31 38 0D 0A 33 31 ,K):GOTO 318..31
01C760: 37 20 4E 45 58 54 0D 0A 33 31 38 20 4E 45 58 54 7 NEXT..318 NEXT
01C770: 3A 52 45 54 55 52 4E 20 0D 0A 33 31 39 20 52 5A :RETURN ..319 RZ
01C780: 3D 49 4E 54 28 52 4E 44 2A 35 29 2F 31 30 3A 52 =INT(RND*5)/10:R
01C790: 45 3D 52 45 2B 52 5A 3A 52 42 3D 49 4E 54 28 31 E=RE+RZ:RB=INT(1
01C7A0: 30 2D 28 28 59 28 33 2C 49 2D 31 38 29 2B 31 39 0-((Y(3,I-18)+19
01C7B0: 29 2F 32 30 29 29 3A 52 43 3D 49 4E 54 28 52 42 )/20)):RC=INT(RB
01C7C0: 2D 35 29 3A 52 41 3D 31 2B 49 4E 54 28 52 4E 44 -5):RA=1+INT(RND
01C7D0: 2A 34 29 3A 49 46 20 28 52 41 3E 31 20 4F 52 20 *4):IF (RA>1 OR
01C7E0: 59 28 35 2C 49 2D 31 38 29 20 3C 20 52 43 20 4F Y(5,I-18) < RC O
01C7F0: 52 20 59 28 35 2C 49 2D 31 38 29 20 3E 20 52 42 R Y(5,I-18) > RB
01C800: 20 4F 52 20 52 45 3C 31 29 20 54 48 45 4E 20 33 OR RE<1) THEN 3
01C810: 31 35 20 45 4C 53 45 20 33 31 34 0D 0A 33 32 30 15 ELSE 314..320
01C820: 20 58 28 49 29 3D 28 59 28 33 2C 49 2D 31 38 29 X(I)=(Y(3,I-18)
01C830: 29 3A 47 4F 53 55 42 20 39 38 3A 56 24 28 49 29 ):GOSUB 98:V$(I)
01C840: 3D 43 48 52 24 28 5A 39 29 2B 22 2E 22 2B 4D 49 =CHR$(Z9)+"."+MI
01C850: 44 24 28 48 24 2C 52 43 2C 31 29 2B 4D 49 44 24 D$(H$,RC,1)+MID$
01C860: 28 4D 24 2C 52 42 2C 31 29 2B 4D 49 44 24 28 48 (M$,RB,1)+MID$(H
01C870: 24 2C 52 44 2C 31 29 2B 45 24 28 52 41 29 3A 76 $,RD,1)+E$(RA):v
01C880: 24 28 69 29 3D 76 24 28 69 29 2B 53 50 41 43 45 $(i)=v$(i)+SPACE
01C890: 24 28 38 2D 4C 45 4E 28 76 24 28 69 29 29 29 3A $(8-LEN(v$(i))):
01C8A0: 47 28 49 29 3D 32 32 2B 49 4E 54 28 52 4E 44 2A G(I)=22+INT(RND*
01C8B0: 31 34 29 3A 54 28 49 29 3D 59 28 34 2C 49 2D 31 14):T(I)=Y(4,I-1
01C8C0: 38 29 3A 48 28 49 29 3D 52 45 3A 45 28 33 2C 49 8):H(I)=RE:E(3,I
01C8D0: 29 3D 2D 33 2B 49 4E 54 20 28 52 4E 44 2A 31 37 )=-3+INT (RND*17
01C8E0: 29 3A 49 46 20 45 28 33 2C 49 29 3C 30 20 54 48 ):IF E(3,I)<0 TH
01C8F0: 45 4E 20 45 28 33 2C 49 29 3D 30 0D 0A 33 32 31 EN E(3,I)=0..321
01C900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01C910: 18 00 01 00 02 09 4E E5 18 00 41 02 00 00 00 02 ......N...A.....
01C920: 18 00 46 02 00 00 00 02 18 00 42 02 00 00 00 02 ..F.......B.....
01C930: 18 00 47 02 00 00 00 02 18 00 43 02 00 00 00 02 ..G.......C.....
01C940: 18 00 48 02 00 00 00 02 18 00 44 02 00 00 00 02 ..H.......D.....
01C950: 18 00 49 02 00 00 00 02 18 00 45 02 00 00 00 02 ..I.......E.....
01C960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01CA00: 31 30 30 31 20 45 52 3D 32 3A 4E 50 3D 30 3A 43 1001 ER=2:NP=0:C
01CA10: 4C 53 3A 4C 4F 43 41 54 45 20 35 2C 31 3A 50 52 LS:LOCATE 5,1:PR
01CA20: 49 4E 54 20 70 61 24 28 33 29 3B 22 50 20 50 4C INT pa$(3);"P PL
01CA30: 41 59 45 52 53 20 20 57 41 47 45 53 22 3B 54 41 AYERS WAGES";TA
01CA40: 42 28 32 35 29 3B 22 43 4F 4E 54 52 41 43 54 20 B(25);"CONTRACT
01CA50: 20 20 54 45 4D 50 22 3B 70 61 24 28 31 29 0D 0A TEMP";pa$(1)..
01CA60: 31 30 30 32 20 46 4F 52 20 49 3D 31 20 54 4F 20 1002 FOR I=1 TO
01CA70: 32 30 3A 54 45 4D 50 24 3D 56 24 28 49 29 3A 47 20:TEMP$=V$(I):G
01CA80: 4F 53 55 42 20 36 34 39 30 30 3A 49 46 20 46 4C OSUB 64900:IF FL
01CA90: 41 47 20 54 48 45 4E 20 31 30 30 34 0D 0A 31 30 AG THEN 1004..10
01CAA0: 30 33 20 4E 50 3D 49 4E 54 28 4E 50 2B 56 28 31 03 NP=INT(NP+V(1
01CAB0: 2C 49 29 29 3A 4C 4F 43 41 54 45 20 35 2C 45 52 ,I)):LOCATE 5,ER
01CAC0: 3A 50 52 49 4E 54 20 50 4F 31 53 24 28 54 28 49 :PRINT PO1S$(T(I
01CAD0: 29 29 22 20 22 3B 50 41 24 28 31 2B 41 42 53 28 ))" ";PA$(1+ABS(
01CAE0: 47 28 49 29 3C 30 29 29 3B 56 24 28 49 29 3B 70 G(I)<0));V$(I);p
01CAF0: 61 24 28 31 29 3B 54 41 42 28 31 36 29 3B 3A 54 a$(1);TAB(16);:T
01CB00: 45 4D 50 3D 56 28 31 2C 49 29 3A 47 4F 53 55 42 EMP=V(1,I):GOSUB
01CB10: 20 36 33 35 30 30 3A 50 52 49 4E 54 20 54 41 42 63500:PRINT TAB
01CB20: 28 32 35 29 3B 55 53 49 4E 47 22 23 23 22 3B 56 (25);USING"##";V
01CB30: 28 32 2C 49 29 3B 3A 50 52 49 4E 54 20 22 20 57 (2,I);:PRINT " W
01CB40: 45 45 4B 22 2B 43 48 52 24 28 33 32 2B 41 42 53 EEK"+CHR$(32+ABS
01CB50: 28 56 28 32 2C 49 29 3E 31 29 2A 35 31 29 3B 54 (V(2,I)>1)*51);T
01CB60: 41 42 28 33 35 29 3B 45 28 33 2C 49 29 3A 45 52 AB(35);E(3,I):ER
01CB70: 3D 45 52 2B 31 0D 0A 31 30 30 34 20 4E 45 58 54 =ER+1..1004 NEXT
01CB80: 3A 4C 4F 43 41 54 45 20 39 2C 32 32 3A 50 52 49 :LOCATE 9,22:PRI
01CB90: 4E 54 20 70 61 24 28 33 29 3B 20 22 54 4F 54 41 NT pa$(3); "TOTA
01CBA0: 4C 20 20 22 3B 70 61 24 28 31 29 3B 3A 54 45 4D L ";pa$(1);:TEM
01CBB0: 50 3D 4E 50 3A 47 4F 53 55 42 20 36 33 35 30 30 P=NP:GOSUB 63500
01CBC0: 3A 50 52 49 4E 54 20 54 41 42 28 32 37 29 3B 70 :PRINT TAB(27);p
01CBD0: 61 24 28 32 29 3B 22 20 20 43 4F 4E 54 49 4E 55 a$(2);" CONTINU
01CBE0: 45 20 20 22 3B 70 61 24 28 31 29 0D 0A 31 30 30 E ";pa$(1)..100
01CBF0: 35 20 52 45 4D 0D 0A 31 30 30 36 20 47 4F 53 55 5 REM..1006 GOSU
01CC00: 22 3A 49 46 20 43 50 3D 30 20 41 4E 44 20 4F 31 ":IF CP=0 AND O1
01CC10: 3E 30 20 54 48 45 4E 20 50 52 49 4E 54 20 54 41 >0 THEN PRINT TA
01CC20: 42 28 39 29 3B 22 50 20 50 6F 73 74 70 6F 6E 6D B(9);"P Postponm
01CC30: 65 6E 74 73 22 0D 0A 31 30 30 37 20 50 52 49 4E ents"..1007 PRIN
01CC40: 54 20 54 41 42 28 39 29 3B 22 42 20 42 6F 6E 75 T TAB(9);"B Bonu
01CC50: 73 20 70 61 79 22 3A 49 46 20 43 49 3D 28 4D 42 s pay":IF CI=(MB
01CC60: 2D 31 29 20 41 4E 44 20 55 41 3D 30 20 54 48 45 -1) AND UA=0 THE
01CC70: 4E 20 50 52 49 4E 54 20 54 41 42 28 39 29 3B 22 N PRINT TAB(9);"
01CC80: 44 20 44 69 72 65 63 74 6F 72 73 22 0D 0A 31 30 D Directors"..10
01CC90: 30 38 20 50 52 49 4E 54 20 54 41 42 28 39 29 3B 08 PRINT TAB(9);
01CCA0: 50 41 24 28 33 29 3B 22 4D 20 4D 61 69 6E 20 6D PA$(3);"M Main m
01CCB0: 65 6E 75 22 3B 50 41 24 28 31 29 3A 48 57 3D 31 enu";PA$(1):HW=1
01CCC0: 30 30 31 0D 0A 31 30 30 39 20 43 41 4C 4C 20 26 001..1009 CALL &
01CCD0: 42 42 30 33 3A 49 4E 24 3D 22 22 3A 57 48 49 4C BB03:IN$="":WHIL
01CCE0: 45 20 49 4E 24 3D 22 22 3A 47 4F 53 55 42 20 36 E IN$="":GOSUB 6
01CCF0: 34 30 30 30 3A 57 45 4E 44 0D 0A 31 30 31 30 20 4000:WEND..1010
01CD00: 64 24 3D 69 6E 24 3A 50 52 49 4E 54 20 43 48 52 d$=in$:PRINT CHR
01CD10: 24 28 37 29 0D 0A 31 30 31 31 20 49 46 20 44 24 $(7)..1011 IF D$
01CD20: 3D 22 52 22 20 41 4E 44 20 4E 4C 3D 31 20 41 4E ="R" AND NL=1 AN
01CD30: 44 20 4E 4F 3E 30 20 54 48 45 4E 20 44 24 3D 22 D NO>0 THEN D$="
01CD40: 50 22 3A 47 4F 54 4F 20 39 30 32 0D 0A 31 30 31 P":GOTO 902..101
01CD50: 32 20 49 46 20 44 24 3D 22 41 22 20 54 48 45 4E 2 IF D$="A" THEN
01CD60: 20 44 24 3D 22 38 22 3A 47 4F 54 4F 20 39 30 32 D$="8":GOTO 902
01CD70: 0D 0A 31 30 31 33 20 49 46 20 44 24 3D 22 49 22 ..1013 IF D$="I"
01CD80: 20 41 4E 44 20 4E 51 3C 31 20 41 4E 44 20 41 32 AND NQ<1 AND A2
01CD90: 3D 31 20 54 48 45 4E 20 44 24 3D 22 36 38 22 3A =1 THEN D$="68":
01CDA0: 47 4F 54 4F 20 39 30 32 0D 0A 31 30 31 34 20 49 GOTO 902..1014 I
01CDB0: 46 20 44 24 3D 22 47 22 20 41 4E 44 20 4E 49 3D F D$="G" AND NI=
01CDC0: 30 20 54 48 45 4E 20 44 24 3D 22 36 35 22 3A 47 0 THEN D$="65":G
01CDD0: 4F 54 4F 20 39 30 32 0D 0A 31 30 31 35 20 49 46 OTO 902..1015 IF
01CDE0: 20 44 24 3D 22 46 22 20 54 48 45 4E 20 4A 3D 33 D$="F" THEN J=3
01CDF0: 3A 4E 4B 3D 30 3A 48 57 3D 31 30 35 33 3A 44 24 :NK=0:HW=1053:D$
01CE00: 42 20 38 35 30 3A 49 46 20 69 6E 24 3C 3E 22 43 B 850:IF in$<>"C
01CE10: 22 20 54 48 45 4E 20 31 30 30 36 0D 0A 31 30 30 " THEN 1006..100
01CE20: 37 20 43 4C 53 3A 4C 4F 43 41 54 45 20 35 2C 31 7 CLS:LOCATE 5,1
01CE30: 3A 50 52 49 4E 54 20 70 61 24 28 32 29 3B 22 20 :PRINT pa$(2);"
01CE40: 53 54 41 46 46 20 20 20 4E 41 4D 45 20 20 20 57 STAFF NAME W
01CE50: 41 47 45 53 20 20 43 4F 4E 54 52 41 43 54 20 22 AGES CONTRACT "
01CE60: 3B 70 61 24 28 31 29 2C 54 41 42 28 35 29 3B 22 ;pa$(1),TAB(5);"
01CE70: 4D 41 4E 41 47 45 52 22 3B 54 41 42 28 31 33 29 MANAGER";TAB(13)
01CE80: 3B 46 24 3B 54 41 42 28 32 32 29 3B 3A 54 45 4D ;F$;TAB(22);:TEM
01CE90: 50 3D 49 4E 54 28 4E 41 29 3A 47 4F 53 55 42 20 P=INT(NA):GOSUB
01CEA0: 36 33 35 30 30 3A 50 52 49 4E 54 20 54 41 42 28 63500:PRINT TAB(
01CEB0: 32 38 29 3B 55 53 49 4E 47 22 23 23 23 22 3B 4E 28);USING"###";N
01CEC0: 43 3B 3A 50 52 49 4E 54 20 22 20 57 45 45 4B 22 C;:PRINT " WEEK"
01CED0: 2B 43 48 52 24 28 33 32 2B 41 42 53 28 4E 43 3E +CHR$(32+ABS(NC>
01CEE0: 31 29 2A 35 31 29 3A 52 41 3D 4E 41 0D 0A 31 30 1)*51):RA=NA..10
01CEF0: 30 38 20 46 4F 52 20 49 3D 20 31 20 54 4F 20 31 08 FOR I= 1 TO 1
01CF00: 32 3A 4C 4F 43 41 54 45 20 35 2C 49 2B 32 3A 0D 2:LOCATE 5,I+2:.
01CF10: 0A 31 30 30 39 20 49 46 20 49 3D 31 20 54 48 45 .1009 IF I=1 THE
01CF20: 4E 20 50 52 49 4E 54 20 22 43 4F 41 43 48 22 3B N PRINT "COACH";
01CF30: 3A 47 4F 54 4F 20 31 30 31 33 0D 0A 31 30 31 30 :GOTO 1013..1010
01CF40: 20 49 46 20 49 3D 32 20 54 48 45 4E 20 50 52 49 IF I=2 THEN PRI
01CF50: 4E 54 20 22 50 48 59 53 49 4F 22 3B 3A 47 4F 54 NT "PHYSIO";:GOT
01CF60: 4F 20 31 30 31 33 0D 0A 31 30 31 31 20 49 46 20 O 1013..1011 IF
01CF70: 49 3C 36 20 54 48 45 4E 20 50 52 49 4E 54 20 22 I<6 THEN PRINT "
01CF80: 53 43 4F 55 54 22 3B 3A 47 4F 54 4F 20 31 30 31 SCOUT";:GOTO 101
01CF90: 33 0D 0A 31 30 31 32 20 49 46 20 49 3E 35 20 54 3..1012 IF I>5 T
01CFA0: 48 45 4E 20 50 52 49 4E 54 20 22 59 4F 55 54 48 HEN PRINT "YOUTH
01CFB0: 20 50 22 3B 0D 0A 31 30 31 33 20 50 52 49 4E 54 P";..1013 PRINT
01CFC0: 20 54 41 42 28 31 33 29 3B 49 24 28 49 29 3B 54 TAB(13);I$(I);T
01CFD0: 41 42 28 32 32 29 3B 3A 54 45 4D 50 3D 41 42 53 AB(22);:TEMP=ABS
01CFE0: 28 59 28 31 2C 49 29 29 3A 47 4F 53 55 42 20 36 (Y(1,I)):GOSUB 6
01CFF0: 33 35 30 30 3A 52 41 3D 49 4E 54 28 52 41 29 2B 3500:RA=INT(RA)+
01D000: 3D 22 37 30 22 3A 47 4F 54 4F 20 39 30 32 0D 0A ="70":GOTO 902..
01D010: 31 30 31 36 20 49 46 20 44 24 3D 22 4C 22 20 54 1016 IF D$="L" T
01D020: 48 45 4E 20 4A 3D 31 3A 4E 4B 3D 30 3A 48 57 3D HEN J=1:NK=0:HW=
01D030: 31 30 35 33 3A 44 24 3D 22 37 30 22 3A 47 4F 54 1053:D$="70":GOT
01D040: 4F 20 39 30 32 0D 0A 31 30 31 37 20 49 46 20 44 O 902..1017 IF D
01D050: 24 3D 22 54 22 20 54 48 45 4E 20 44 24 3D 22 4A $="T" THEN D$="J
01D060: 22 3A 47 4F 54 4F 20 39 30 32 0D 0A 31 30 31 38 ":GOTO 902..1018
01D070: 20 49 46 20 44 24 3D 22 53 22 20 41 4E 44 20 43 IF D$="S" AND C
01D080: 5A 3D 30 20 54 48 45 4E 20 44 24 3D 22 36 36 22 Z=0 THEN D$="66"
01D090: 3A 47 4F 54 4F 20 39 30 32 0D 0A 31 30 31 39 20 :GOTO 902..1019
01D0A0: 49 46 20 44 24 3D 22 57 22 20 54 48 45 4E 20 44 IF D$="W" THEN D
01D0B0: 24 3D 22 4E 22 3A 47 4F 54 4F 20 39 30 32 0D 0A $="N":GOTO 902..
01D0C0: 31 30 32 30 20 49 46 20 44 24 3D 22 50 22 20 41 1020 IF D$="P" A
01D0D0: 4E 44 20 43 50 3D 30 20 41 4E 44 20 4F 31 3E 30 ND CP=0 AND O1>0
01D0E0: 20 54 48 45 4E 20 44 24 3D 22 31 34 22 3A 47 4F THEN D$="14":GO
01D0F0: 54 4F 20 39 30 32 0D 0A 31 30 32 31 20 49 46 20 TO 902..1021 IF
01D100: 44 24 3D 22 42 22 20 54 48 45 4E 20 44 24 3D 22 D$="B" THEN D$="
01D110: 56 22 3A 47 4F 54 4F 20 39 30 32 0D 0A 31 30 32 V":GOTO 902..102
01D120: 32 20 49 46 20 44 24 3D 22 45 22 20 41 4E 44 20 2 IF D$="E" AND
01D130: 4F 5A 3D 30 20 54 48 45 4E 20 44 24 3D 22 36 37 OZ=0 THEN D$="67
01D140: 22 3A 4F 5A 3D 31 3A 47 4F 54 4F 20 39 30 32 0D ":OZ=1:GOTO 902.
01D150: 0A 31 30 32 33 20 52 45 4D 0D 0A 31 30 32 34 20 .1023 REM..1024
01D160: 49 46 20 44 24 3D 22 44 22 20 41 4E 44 20 43 49 IF D$="D" AND CI
01D170: 3D 28 4D 42 2D 31 29 20 41 4E 44 20 55 41 3D 30 =(MB-1) AND UA=0
01D180: 20 54 48 45 4E 20 44 24 3D 22 34 22 3A 47 4F 54 THEN D$="4":GOT
01D190: 4F 20 39 30 32 0D 0A 31 30 32 35 20 49 46 20 49 O 902..1025 IF I
01D1A0: 4E 24 3D 22 4D 22 20 54 48 45 4E 20 36 20 45 4C N$="M" THEN 6 EL
01D1B0: 53 45 20 31 30 30 39 0D 0A 1A 31 3D 30 29 3A 4E SE 1009...1=0):N
01D1C0: 45 58 54 3A 47 4F 53 55 42 20 36 35 30 30 30 3A EXT:GOSUB 65000:
01D1D0: 50 52 49 4E 54 2C 2C 2C 2C 2C 2C 2C 3A 49 46 20 PRINT,,,,,,,:IF
01D1E0: 4F 5A 3D 30 20 54 48 45 4E 20 50 52 49 4E 54 20 OZ=0 THEN PRINT
01D1F0: 54 41 42 28 39 29 3B 22 45 20 45 6D 70 6C 6F 79 TAB(9);"E Employ
01D200: 41 42 53 28 59 28 31 2C 49 29 29 3A 4E 45 58 54 ABS(Y(1,I)):NEXT
01D210: 3A 4C 4F 43 41 54 45 20 35 2C 31 36 3A 50 52 49 :LOCATE 5,16:PRI
01D220: 4E 54 20 70 61 24 28 33 29 3B 22 44 49 52 45 43 NT pa$(3);"DIREC
01D230: 54 4F 52 53 20 26 20 4F 54 48 45 52 20 47 45 4E TORS & OTHER GEN
01D240: 45 52 41 4C 20 53 54 41 46 46 22 3B 70 61 24 28 ERAL STAFF";pa$(
01D250: 31 29 2C 54 41 42 28 32 32 29 3B 3A 54 45 4D 50 1),TAB(22);:TEMP
01D260: 3D 49 4E 54 28 4E 46 29 3A 47 4F 53 55 42 20 36 =INT(NF):GOSUB 6
01D270: 33 35 30 30 3A 52 41 3D 49 4E 54 28 52 41 2B 4E 3500:RA=INT(RA+N
01D280: 46 29 0D 0A 31 30 31 34 20 4C 4F 43 41 54 45 20 F)..1014 LOCATE
01D290: 36 2C 31 38 3A 50 52 49 4E 54 20 70 61 24 28 32 6,18:PRINT pa$(2
01D2A0: 29 3B 22 20 31 73 74 20 54 45 41 4D 20 54 4F 54 );" 1st TEAM TOT
01D2B0: 41 4C 20 22 3B 70 61 24 28 31 29 3B 3A 54 45 4D AL ";pa$(1);:TEM
01D2C0: 50 3D 4E 50 3A 47 4F 53 55 42 20 36 33 35 30 30 P=NP:GOSUB 63500
01D2D0: 3A 4E 50 3D 49 4E 54 28 4E 50 2B 52 41 29 3A 4C :NP=INT(NP+RA):L
01D2E0: 4F 43 41 54 45 20 32 32 2C 31 39 3A 50 52 49 4E OCATE 22,19:PRIN
01D2F0: 54 20 22 2D 2D 2D 2D 2D 2D 2D 2D 22 2C 54 41 42 T "--------",TAB
01D300: 28 31 35 29 3B 70 61 24 28 35 29 3B 22 20 54 4F (15);pa$(5);" TO
01D310: 54 41 4C 20 22 3B 70 61 24 28 31 29 3B 3A 54 45 TAL ";pa$(1);:TE
01D320: 4D 50 3D 49 4E 54 28 4E 50 29 3A 47 4F 53 55 42 MP=INT(NP):GOSUB
01D330: 20 36 33 35 30 30 0D 0A 31 30 31 35 20 47 4F 53 63500..1015 GOS
01D340: 55 42 20 36 32 30 30 30 0D 0A 31 30 31 36 20 49 UB 62000..1016 I
01D350: 46 20 69 6E 24 3D 22 4D 22 20 54 48 45 4E 20 39 F in$="M" THEN 9
01D360: 30 30 20 45 4C 53 45 20 47 4F 53 55 42 20 36 34 00 ELSE GOSUB 64
01D370: 30 30 30 3A 47 4F 54 4F 20 31 30 31 36 0D 0A 1A 000:GOTO 1016...
01D380: 53 43 4F 55 54 22 3B 3A 47 4F 54 4F 20 31 30 31 SCOUT";:GOTO 101
01D390: 33 0D 0A 31 30 31 32 20 49 46 20 49 3E 35 20 54 3..1012 IF I>5 T
01D3A0: 48 45 4E 20 50 52 49 4E 54 20 22 59 4F 55 54 48 HEN PRINT "YOUTH
01D3B0: 20 50 22 3B 0D 0A 31 30 31 33 20 50 52 49 4E 54 P";..1013 PRINT
01D3C0: 20 54 41 42 28 31 33 29 3B 49 24 28 49 29 3B 54 TAB(13);I$(I);T
01D3D0: 41 42 28 32 32 29 3B 3A 54 45 4D 50 3D 41 42 53 AB(22);:TEMP=ABS
01D3E0: 28 59 28 31 2C 49 29 29 3A 47 4F 53 55 42 20 36 (Y(1,I)):GOSUB 6
01D3F0: 33 35 30 30 3A 52 41 3D 49 4E 54 28 52 41 29 2B 3500:RA=INT(RA)+
01D400: C9 F5 19 12 29 F5 28 0D 00 00 D9 28 0F 2C 0D 00 ....).(....(.,..
01D410: 00 C9 F5 19 12 29 F6 10 29 01 A0 20 1E 40 01 00 .....)..).. .@..
01D420: 46 00 3B 01 B0 01 9E 20 0D 00 00 C9 EF 19 18 20 F.;.... .......
01D430: EC 20 19 1A 01 0D 00 00 52 C1 EF 0F F4 FF 0C 20 . ......R......
01D440: 28 FF 45 F6 11 29 01 A1 20 0D 00 00 52 C1 EE 0F (.E..).. ...R...
01D450: 20 EB 20 0D 00 00 D8 28 0D 00 00 C9 29 EF 0E 01 . ....(....)...
01D460: A0 20 1E 3E 01 00 29 01 3C 01 0D 00 00 52 C1 EF . .>..).<....R..
01D470: 0F F4 FF 0C 28 FF 45 F6 19 0F 29 01 9E 20 0D 00 ....(.E...).. ..
01D480: 00 CB EF 0D 00 00 52 C1 20 EC 20 19 14 01 A1 20 ......R. . ....
01D490: 0D 00 00 C7 28 0D 00 00 CB 29 F1 0E 20 EB 20 0D ....(....).. . .
01D4A0: 00 00 D5 28 0D 00 00 C9 29 EF 0D 00 00 CB 01 03 ...(....).......
01D4B0: 00 00 D6 28 0D 00 00 C9 29 EF 03 00 00 D6 28 0D ...(....).....(.
01D4C0: 00 00 CB 29 01 0D 00 00 D4 28 0D 00 00 C9 29 EF ...).....(....).
01D4D0: 0D 00 00 D4 28 0D 00 00 CB 29 01 0D 00 00 C8 28 ....(....).....(
01D4E0: 0D 00 00 C9 29 EF 0D 00 00 C8 28 0D 00 00 CB 29 ....).....(....)
01D4F0: 01 0D 00 00 D8 28 0D 00 00 C9 29 EF 0F F4 FF 0C .....(....).....
01D500: 28 FF 45 F6 28 19 50 F4 28 0D 00 00 C8 28 0D 00 (.E.(.P.(....(..
01D510: 00 CB 29 EE 13 29 F6 19 28 29 29 01 0D 00 00 D8 ..)..)..()).....
01D520: 28 0D 00 00 C9 29 EF 0D 00 00 D8 28 0D 00 00 C9 (....).....(....
01D530: 29 F4 28 03 00 00 D9 28 0D 00 00 D8 28 0D 00 00 ).(....(....(...
01D540: C9 29 29 EF 03 00 00 DA 29 F6 0D 00 00 D8 28 0D .)).....).....(.
01D550: 00 00 C9 29 01 0D 00 00 C7 28 0D 00 00 C9 29 EF ...).....(....).
01D560: FF 00 28 0D 00 00 C7 28 0D 00 00 CB 29 29 01 0D ..(....(....))..
01D570: 00 00 C5 28 11 2C 0D 00 00 C9 29 EF 0D 00 00 C5 ...(.,....).....
01D580: 28 11 2C 0D 00 00 CB 29 01 A0 20 1E 3E 01 00 06 (.,....).. .>...
01D590: 00 3D 01 B0 00 09 00 3E 01 B0 01 C9 20 00 C9 00 .=.....>.... ...
01D5A0: 3F 01 0D 00 00 52 DA EF FF 0C 28 FF 45 F6 13 29 ?....R....(.E..)
01D5B0: F7 19 0A 01 0D 00 00 52 C5 EF 0D 00 00 52 C5 F4 .......R.....R..
01D5C0: 0D 00 00 52 DA 01 0D 00 00 52 C2 EF FF 0C 28 19 ...R.....R....(.
01D5D0: 0A F5 28 28 0D 00 00 D9 28 11 2C 0D 00 00 C9 F5 ..((....(.,.....
01D5E0: 19 12 29 F4 19 13 29 F7 19 14 29 29 01 0D 00 00 ..)...)...))....
01D5F0: 52 C3 EF FF 0C 28 0D 00 00 52 C2 F5 13 29 01 0D R....(...R...)..
01D600: 01 B0 01 B0 00 38 00 EE 03 9E 20 0D 00 00 CD EF .....8.... .....
01D610: 0F 20 EC 20 19 14 01 A1 20 0D 00 00 D4 28 0D 00 . . .... ....(..
01D620: 00 CD 29 F1 10 20 FC 20 0D 00 00 C5 28 0F 2C 0D ..).. . ....(.,.
01D630: 00 00 CD 29 EF 0E 20 EB 20 1E F3 03 00 39 00 EF ...).. . ....9..
01D640: 03 9E 20 0D 00 00 CB EF 0F 20 EC 20 12 01 A1 20 .. ...... . ...
01D650: 0D 00 00 C9 28 0F 2C 0D 00 00 41 D0 2C 0D 00 00 ....(.,...A.,...
01D660: CB 29 F0 0D 00 00 C5 28 0F 2C 0D 00 00 CD 29 20 .).....(.,....)
01D670: EB 20 1E F2 03 00 D2 00 F0 03 9E 20 0D 00 00 C6 . ......... ....
01D680: EF 12 20 EC 20 0D 00 00 CB F4 0F 20 E6 20 F5 0F .. . ...... . ..
01D690: 01 03 00 00 CC 28 0D 00 00 41 D0 2C 0D 00 00 C6 .....(...A.,....
01D6A0: 29 EF 03 00 00 CC 28 0D 00 00 41 D0 2C 0D 00 00 ).....(...A.,...
01D6B0: C6 F5 0F 29 01 0D 00 00 C9 28 0F 2C 0D 00 00 41 ...).....(.,...A
01D6C0: D0 2C 0D 00 00 C6 29 EF 0D 00 00 C9 28 0F 2C 0D .,....).....(.,.
01D6D0: 00 00 41 D0 2C 0D 00 00 C6 F5 0F 29 01 0D 00 00 ..A.,......)....
01D6E0: C9 28 10 2C 0D 00 00 41 D0 2C 0D 00 00 C6 29 EF .(.,...A.,....).
01D6F0: 0D 00 00 C9 28 10 2C 0D 00 00 41 D0 2C 0D 00 00 ....(.,...A.,...
01D700: C6 F5 0F 29 01 B0 20 0D 00 00 C6 01 03 00 00 CC ...).. .........
01D710: 28 0D 00 00 41 D0 2C 0D 00 00 CB 29 EF 03 00 00 (...A.,....)....
01D720: D6 28 0D 00 00 CD 29 01 0D 00 00 C9 28 0F 2C 0D .(....).....(.,.
01D730: 00 00 41 D0 2C 0D 00 00 CB 29 EF 0D 00 00 C5 28 ..A.,....).....(
01D740: 0F 2C 0D 00 00 CD 29 00 6E 00 F1 03 0D 00 00 52 .,....).n......R
01D750: C1 EF 0E 01 9E 20 0D 00 00 CE EF 0F 20 EC 20 19 ..... ...... . .
01D760: 50 01 0D 00 00 52 C1 EF 0D 00 00 52 C1 F5 28 0D P....R.....R..(.
01D770: 00 00 52 C1 EF 0E 20 FA 20 03 00 00 DA EF 03 00 ..R... . .......
01D780: 00 D9 28 0D 00 00 CE 29 29 F6 0D 00 00 CE 01 B0 ..(....)).......
01D790: 20 0D 00 00 CE 01 0D 00 00 C9 28 10 2C 0D 00 00 .........(.,...
01D7A0: 41 D0 2C 0D 00 00 CB 29 EF 0D 00 00 52 C1 01 0D A.,....)....R...
01D7B0: 00 00 CB EF 12 00 06 00 F2 03 B0 00 06 00 F3 03 ................
01D7C0: B0 00 4F 00 F4 03 8A 01 BF 01 9E 20 0D 00 00 CA ..O........ ....
01D7D0: EF 0F 20 EC 20 12 01 BF 20 03 00 00 50 C1 28 13 .. . ... ...P.(.
01D7E0: 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 20 );"
01D7F0: 44 49 56 49 53 49 4F 4E 22 3B 0D 00 00 CA 3B 22 DIVISION";....;"
01D800: 31 30 30 31 20 47 4F 53 55 42 20 38 39 32 3A 43 1001 GOSUB 892:C
01D810: 4C 53 3A 4C 4F 43 41 54 45 20 31 36 2C 31 3A 50 LS:LOCATE 16,1:P
01D820: 52 49 4E 54 20 22 59 4F 55 54 48 20 54 45 41 4D RINT "YOUTH TEAM
01D830: 22 3B 3A 4C 4F 43 41 54 45 20 31 32 2C 34 3A 50 ";:LOCATE 12,4:P
01D840: 52 49 4E 54 20 22 43 4F 41 43 48 3A 22 3B 49 24 RINT "COACH:";I$
01D850: 28 31 29 3B 54 41 42 28 32 37 29 3B 59 28 32 2C (1);TAB(27);Y(2,
01D860: 31 29 3B 22 25 22 0D 0A 31 30 30 32 20 4C 4F 43 1);"%"..1002 LOC
01D870: 41 54 45 20 33 30 2C 36 3A 50 52 49 4E 54 20 22 ATE 30,6:PRINT "
01D880: 54 45 4D 50 22 3A 46 4F 52 20 49 3D 31 20 54 4F TEMP":FOR I=1 TO
01D890: 20 37 3A 54 45 4D 50 24 3D 49 24 28 49 2B 35 29 7:TEMP$=I$(I+5)
01D8A0: 3A 47 4F 53 55 42 20 36 34 39 30 30 3A 49 46 20 :GOSUB 64900:IF
01D8B0: 46 4C 41 47 20 54 48 45 4E 20 31 30 30 34 0D 0A FLAG THEN 1004..
01D8C0: 31 30 30 33 20 52 41 3D 41 42 53 28 59 28 32 2C 1003 RA=ABS(Y(2,
01D8D0: 49 2B 35 29 3D 59 28 33 2C 49 2B 35 29 29 3A 50 I+5)=Y(3,I+5)):P
01D8E0: 52 49 4E 54 20 54 41 42 28 38 29 3B 43 48 52 24 RINT TAB(8);CHR$
01D8F0: 28 33 32 2B 41 42 53 28 52 41 3D 31 29 2A 33 30 (32+ABS(RA=1)*30
01D900: 29 3B 49 3B 50 41 24 28 59 28 34 2C 49 2B 35 29 );I;PA$(Y(4,I+5)
01D910: 29 3B 50 4F 31 53 24 28 59 28 34 2C 49 2B 35 29 );PO1S$(Y(4,I+5)
01D920: 29 3B 22 20 22 3B 49 24 28 49 2B 35 29 3B 54 41 );" ";I$(I+5);TA
01D930: 42 28 32 33 29 3B 55 53 49 4E 47 20 22 23 23 22 B(23);USING "##"
01D940: 3B 59 28 35 2C 49 2B 35 29 3B 3A 50 52 49 4E 54 ;Y(5,I+5);:PRINT
01D950: 20 59 28 32 2C 49 2B 35 29 3B 54 41 42 28 32 39 Y(2,I+5);TAB(29
01D960: 29 3B 22 25 22 3B 59 28 36 2C 49 2B 35 29 3A 49 );"%";Y(6,I+5):I
01D970: 46 20 52 41 3D 31 20 54 48 45 4E 20 50 52 49 4E F RA=1 THEN PRIN
01D980: 54 20 23 31 2C 22 43 4F 41 43 48 3A 48 45 20 49 T #1,"COACH:HE I
01D990: 53 20 41 53 20 47 4F 4F 44 20 41 53 20 50 4F 53 S AS GOOD AS POS
01D9A0: 53 49 42 4C 45 22 0D 0A 31 30 30 34 20 4E 45 58 SIBLE"..1004 NEX
01D9B0: 54 3A 49 46 20 41 33 3C 38 20 41 4E 44 20 4E 4F T:IF A3<8 AND NO
01D9C0: 3E 30 20 54 48 45 4E 20 4C 4F 43 41 54 45 20 37 >0 THEN LOCATE 7
01D9D0: 2C 31 36 3A 50 52 49 4E 54 20 22 41 20 50 52 4F ,16:PRINT "A PRO
01D9E0: 4D 4F 54 45 20 50 4C 41 59 45 52 20 54 4F 20 31 MOTE PLAYER TO 1
01D9F0: 73 74 20 54 45 41 4D 20 22 2C 2C 2C 54 41 42 28 st TEAM ",,,TAB(
01DA00: 31 30 30 31 20 47 4F 53 55 42 20 38 39 32 3A 6F 1001 GOSUB 892:o
01DA10: 31 3D 30 3A 46 4F 52 20 49 3D 31 20 54 4F 20 31 1=0:FOR I=1 TO 1
01DA20: 38 3A 4F 31 3D 4F 31 2B 41 42 53 28 4E 28 31 2C 8:O1=O1+ABS(N(1,
01DA30: 49 29 3E 30 20 41 4E 44 20 4F 31 3D 30 29 3A 4E I)>0 AND O1=0):N
01DA40: 45 58 54 3A 47 4F 53 55 42 20 36 35 30 30 30 3A EXT:GOSUB 65000:
01DA50: 50 52 49 4E 54 2C 2C 2C 2C 2C 2C 2C 3A 49 46 20 PRINT,,,,,,,:IF
01DA60: 4F 5A 3D 30 20 54 48 45 4E 20 50 52 49 4E 54 20 OZ=0 THEN PRINT
01DA70: 54 41 42 28 39 29 3B 22 45 20 45 6D 70 6C 6F 79 TAB(9);"E Employ
01DA80: 65 65 73 22 3A 52 41 3D 52 41 2B 31 3A 52 42 3D ees":RA=RA+1:RB=
01DA90: 52 42 2D 30 2E 35 0D 0A 31 30 30 32 20 49 46 20 RB-0.5..1002 IF
01DAA0: 43 5A 3D 30 20 54 48 45 4E 20 50 52 49 4E 54 20 CZ=0 THEN PRINT
01DAB0: 54 41 42 28 39 29 3B 22 53 20 53 68 61 72 65 73 TAB(9);"S Shares
01DAC0: 22 0D 0A 31 30 30 33 20 50 52 49 4E 54 20 54 41 "..1003 PRINT TA
01DAD0: 42 28 39 29 3B 22 41 20 41 6C 74 65 72 20 6C 65 B(9);"A Alter le
01DAE0: 76 65 6C 73 22 3A 49 46 20 4E 4C 3D 31 20 41 4E vels":IF NL=1 AN
01DAF0: 44 20 4E 4F 3E 30 20 54 48 45 4E 20 50 52 49 4E D NO>0 THEN PRIN
01DB00: 54 20 54 41 42 28 39 29 3B 22 52 20 52 65 73 65 T TAB(9);"R Rese
01DB10: 72 76 65 73 2F 79 6F 75 74 68 20 74 65 61 6D 22 rves/youth team"
01DB20: 0D 0A 31 30 30 34 20 49 46 20 4E 51 3C 31 20 41 ..1004 IF NQ<1 A
01DB30: 4E 44 20 41 32 3D 31 20 54 48 45 4E 20 50 52 49 ND A2=1 THEN PRI
01DB40: 4E 54 20 54 41 42 28 39 29 3B 22 49 20 49 6E 73 NT TAB(9);"I Ins
01DB50: 75 72 65 20 74 65 61 6D 22 0D 0A 31 30 30 35 20 ure team"..1005
01DB60: 49 46 20 4E 49 3D 30 20 54 48 45 4E 20 50 52 49 IF NI=0 THEN PRI
01DB70: 4E 54 20 54 41 42 28 39 29 3B 22 47 20 47 72 6F NT TAB(9);"G Gro
01DB80: 75 6E 64 20 69 6D 70 72 6F 76 65 6D 65 6E 74 73 und improvements
01DB90: 22 0D 0A 31 30 30 36 20 50 52 49 4E 54 20 54 41 "..1006 PRINT TA
01DBA0: 42 28 39 29 3B 22 54 20 54 69 63 6B 65 74 20 70 B(9);"T Ticket p
01DBB0: 72 69 63 65 22 3B 54 41 42 28 39 29 3B 22 57 20 rice";TAB(9);"W
01DBC0: 57 61 67 65 73 2F 63 6F 6E 74 72 61 63 74 73 22 Wages/contracts"
01DBD0: 3B 54 41 42 28 39 29 22 46 20 46 41 20 43 75 70 ;TAB(9)"F FA Cup
01DBE0: 20 64 72 61 77 22 3B 54 41 42 28 39 29 3B 22 4C draw";TAB(9);"L
01DBF0: 20 4C 65 61 67 75 65 20 63 75 70 20 64 72 61 77 League cup draw
01DC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01DC10: 19 00 01 00 02 09 4E E5 19 00 41 02 00 00 00 02 ......N...A.....
01DC20: 19 00 46 02 00 00 00 02 19 00 42 02 00 00 00 02 ..F.......B.....
01DC30: 19 00 47 02 00 00 00 02 19 00 43 02 00 00 00 02 ..G.......C.....
01DC40: 19 00 48 02 00 00 00 02 19 00 44 02 00 00 00 02 ..H.......D.....
01DC50: 19 00 49 02 00 00 00 02 19 00 45 02 00 00 00 02 ..I.......E.....
01DC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DD00: 37 29 3B 22 50 4C 41 59 45 52 20 4D 55 53 54 20 7);"PLAYER MUST
01DD10: 42 45 20 52 41 54 45 44 20 4F 56 45 52 20 34 39 BE RATED OVER 49
01DD20: 25 22 0D 0A 31 30 30 35 20 4C 4F 43 41 54 45 20 %"..1005 LOCATE
01DD30: 31 38 2C 32 32 3A 50 52 49 4E 54 20 22 4D 20 4D 18,22:PRINT "M M
01DD40: 45 4E 55 22 3A 47 4F 53 55 42 20 36 34 30 30 30 ENU":GOSUB 64000
01DD50: 3A 49 46 20 49 4E 24 3D 22 4D 22 20 54 48 45 4E :IF IN$="M" THEN
01DD60: 20 47 4F 54 4F 20 39 30 30 0D 0A 31 30 30 36 20 GOTO 900..1006
01DD70: 47 4F 53 55 42 20 38 35 31 3A 49 46 20 49 4E 24 GOSUB 851:IF IN$
01DD80: 3C 3E 22 41 22 20 54 48 45 4E 20 31 30 30 35 20 <>"A" THEN 1005
01DD90: 45 4C 53 45 20 49 46 20 45 54 3C 32 30 20 41 4E ELSE IF ET<20 AN
01DDA0: 44 20 4E 4F 3E 30 20 54 48 45 4E 20 31 30 30 37 D NO>0 THEN 1007
01DDB0: 20 45 4C 53 45 20 31 30 30 35 0D 0A 31 30 30 37 ELSE 1005..1007
01DDC0: 20 4C 4F 43 41 54 45 20 37 2C 31 36 3A 50 52 49 LOCATE 7,16:PRI
01DDD0: 4E 54 22 50 52 4F 4D 4F 54 45 20 50 4C 41 59 45 NT"PROMOTE PLAYE
01DDE0: 52 20 4E 6F 20 20 20 20 20 20 20 20 20 20 20 20 R No
01DDF0: 22 3A 4C 4F 43 41 54 45 20 32 35 2C 31 36 3A 49 ":LOCATE 25,16:I
01DE00: 4E 50 55 54 20 48 43 3A 49 46 20 48 43 3C 31 20 NPUT HC:IF HC<1
01DE10: 4F 52 20 48 43 3E 37 20 54 48 45 4E 20 31 30 30 OR HC>7 THEN 100
01DE20: 37 0D 0A 31 30 30 38 20 54 45 4D 50 24 3D 49 24 7..1008 TEMP$=I$
01DE30: 28 48 43 2B 35 29 3A 47 4F 53 55 42 20 36 34 39 (HC+5):GOSUB 649
01DE40: 30 30 3A 49 46 20 46 4C 41 47 20 4F 52 20 59 28 00:IF FLAG OR Y(
01DE50: 32 2C 48 43 2B 35 29 3C 35 30 20 54 48 45 4E 20 2,HC+5)<50 THEN
01DE60: 31 30 30 31 0D 0A 31 30 30 39 20 46 4F 52 20 49 1001..1009 FOR I
01DE70: 3D 31 33 20 54 4F 20 32 30 3A 49 46 20 54 28 49 =13 TO 20:IF T(I
01DE80: 29 3D 30 20 54 48 45 4E 20 46 4C 41 47 3D 49 3A )=0 THEN FLAG=I:
01DE90: 49 3D 39 38 0D 0A 31 30 31 30 20 4E 45 58 54 3A I=98..1010 NEXT:
01DEA0: 49 46 20 49 3C 39 39 20 54 48 45 4E 20 31 30 30 IF I<99 THEN 100
01DEB0: 31 20 45 4C 53 45 20 49 3D 46 4C 41 47 0D 0A 31 1 ELSE I=FLAG..1
01DEC0: 30 31 31 20 48 28 49 29 3D 49 4E 54 20 28 59 28 011 H(I)=INT (Y(
01DED0: 32 2C 48 43 2B 35 29 2F 33 30 29 3A 48 28 49 29 2,HC+5)/30):H(I)
01DEE0: 3D 48 28 49 29 2B 49 4E 54 28 52 4E 44 2A 33 29 =H(I)+INT(RND*3)
01DEF0: 2F 31 30 3A 48 28 49 29 3D 48 28 49 29 2B 41 42 /10:H(I)=H(I)+AB
01DF00: 0A 31 30 31 35 20 59 28 33 2C 41 44 2B 32 29 3D .1015 Y(3,AD+2)=
01DF10: 49 3A 43 4C 53 3A 47 4F 53 55 42 20 31 30 30 32 I:CLS:GOSUB 1002
01DF20: 3A 4C 4F 43 41 54 45 20 35 2C 31 33 3A 50 52 49 :LOCATE 5,13:PRI
01DF30: 4E 54 20 22 46 4F 52 20 22 3B 70 61 24 28 36 29 NT "FOR ";pa$(6)
01DF40: 3B 22 47 22 3B 70 61 24 28 31 29 22 20 45 4E 54 ;"G";pa$(1)" ENT
01DF50: 45 52 20 31 22 2C 54 41 42 28 39 29 3B 70 61 24 ER 1",TAB(9);pa$
01DF60: 28 35 29 3B 22 44 22 3B 70 61 24 28 31 29 3B 22 (5);"D";pa$(1);"
01DF70: 20 45 4E 54 45 52 20 32 22 2C 54 41 42 28 39 29 ENTER 2",TAB(9)
01DF80: 3B 70 61 24 28 32 29 3B 22 4D 22 3B 70 61 24 28 ;pa$(2);"M";pa$(
01DF90: 31 29 3B 22 20 45 4E 54 45 52 20 33 22 2C 54 41 1);" ENTER 3",TA
01DFA0: 42 28 39 29 3B 70 61 24 28 33 29 3B 22 41 22 3B B(9);pa$(3);"A";
01DFB0: 70 61 24 28 31 29 3B 22 20 45 4E 54 45 52 20 34 pa$(1);" ENTER 4
01DFC0: 22 3A 50 52 49 4E 54 20 2C 2C 54 41 42 28 35 29 ":PRINT ,,TAB(5)
01DFD0: 3B 3A 49 4E 50 55 54 20 22 31 20 54 4F 20 34 20 ;:INPUT "1 TO 4
01DFE0: 22 3B 4A 46 3A 49 46 20 4A 46 3E 34 20 4F 52 20 ";JF:IF JF>4 OR
01DFF0: 4A 46 3C 31 20 54 48 45 4E 20 31 30 31 35 0D 0A JF<1 THEN 1015..
01E000: 31 30 31 36 20 59 28 34 2C 41 44 2B 32 29 3D 4A 1016 Y(4,AD+2)=J
01E010: 46 3A 47 4F 53 55 42 20 31 30 30 32 0D 0A 31 30 F:GOSUB 1002..10
01E020: 31 37 20 4C 4F 43 41 54 45 20 35 2C 32 30 3A 49 17 LOCATE 5,20:I
01E030: 4E 50 55 54 20 22 57 48 49 43 48 20 43 55 52 52 NPUT "WHICH CURR
01E040: 45 4E 54 20 46 4F 52 4D 20 31 2D 39 20 20 22 3B ENT FORM 1-9 ";
01E050: 4A 46 0D 0A 31 30 31 38 20 49 46 20 4A 46 3C 31 JF..1018 IF JF<1
01E060: 20 4F 52 20 4A 46 3E 39 20 54 48 45 4E 20 31 30 OR JF>9 THEN 10
01E070: 31 37 0D 0A 31 30 31 39 20 59 28 35 2C 41 44 2B 17..1019 Y(5,AD+
01E080: 32 29 3D 4A 46 3A 47 4F 54 4F 20 31 30 30 31 0D 2)=JF:GOTO 1001.
01E090: 0A 1A 32 3A 47 4F 54 4F 20 31 30 30 36 0D 0A 31 ..2:GOTO 1006..1
01E0A0: 30 30 32 20 4C 4F 43 41 54 45 20 31 38 2C 31 3A 002 LOCATE 18,1:
01E0B0: 50 52 49 4E 54 20 70 61 24 28 33 29 3B 22 53 43 PRINT pa$(3);"SC
01E0C0: 4F 55 54 53 22 3B 70 61 24 28 31 29 3A 45 52 3D OUTS";pa$(1):ER=
01E0D0: 35 3A 46 4F 52 20 49 3D 31 20 54 4F 20 33 3A 74 5:FOR I=1 TO 3:t
01E0E0: 65 6D 70 24 3D 49 24 28 49 2B 32 29 3A 47 4F 53 emp$=I$(I+2):GOS
01E0F0: 55 42 20 36 34 39 30 30 3A 49 46 20 66 6C 61 67 UB 64900:IF flag
01E100: 53 28 41 50 3C 33 29 2A 28 33 2D 41 50 29 3A 49 S(AP<3)*(3-AP):I
01E110: 46 20 48 28 49 29 3C 31 20 54 48 45 4E 20 48 28 F H(I)<1 THEN H(
01E120: 49 29 3D 31 2E 31 0D 0A 31 30 31 32 20 47 4F 53 I)=1.1..1012 GOS
01E130: 55 42 20 39 38 3A 56 24 28 49 29 3D 43 48 52 24 UB 98:V$(I)=CHR$
01E140: 28 5A 39 29 2B 22 2E 22 2B 49 24 28 48 43 2B 35 (Z9)+"."+I$(HC+5
01E150: 29 3A 54 28 49 29 3D 59 28 34 2C 48 43 2B 35 29 ):T(I)=Y(4,HC+5)
01E160: 3A 47 28 49 29 3D 59 28 35 2C 48 43 2B 35 29 3A :G(I)=Y(5,HC+5):
01E170: 45 28 33 2C 49 29 3D 59 28 36 2C 48 43 2B 35 29 E(3,I)=Y(6,HC+5)
01E180: 3A 59 3D 49 3A 47 4F 53 55 42 20 35 32 35 3A 49 :Y=I:GOSUB 525:I
01E190: 24 28 48 43 2B 35 29 3D 22 22 3A 46 4F 52 20 4A $(HC+5)="":FOR J
01E1A0: 3D 31 20 54 4F 20 36 3A 59 28 4A 2C 48 43 2B 35 =1 TO 6:Y(J,HC+5
01E1B0: 29 3D 30 3A 4E 45 58 54 3A 59 3D 49 3A 47 4F 53 )=0:NEXT:Y=I:GOS
01E1C0: 55 42 20 35 32 35 0D 0A 31 30 31 33 20 48 4C 3D UB 525..1013 HL=
01E1D0: 30 3A 4E 4F 3D 4E 4F 2D 31 3A 4E 54 3D 30 3A 49 0:NO=NO-1:NT=0:I
01E1E0: 42 3D 49 3A 48 46 3D 33 3A 47 4F 54 4F 20 32 31 B=I:HF=3:GOTO 21
01E1F0: 37 0D 0A 1A 11 01 A0 20 1E D9 00 00 00 00 1A 22 7...... ......."
01E200: 4E 50 55 54 20 48 43 3A 49 46 20 48 43 3C 31 20 NPUT HC:IF HC<1
01E210: 4F 52 20 48 43 3E 37 20 54 48 45 4E 20 31 30 30 OR HC>7 THEN 100
01E220: 37 0D 0A 31 30 30 38 20 54 45 4D 50 24 3D 49 24 7..1008 TEMP$=I$
01E230: 28 48 43 2B 35 29 3A 47 4F 53 55 42 20 36 34 39 (HC+5):GOSUB 649
01E240: 30 30 3A 49 46 20 46 4C 41 47 20 4F 52 20 59 28 00:IF FLAG OR Y(
01E250: 32 2C 48 43 2B 35 29 3C 35 30 20 54 48 45 4E 20 2,HC+5)<50 THEN
01E260: 31 30 30 31 0D 0A 31 30 30 39 20 46 4F 52 20 49 1001..1009 FOR I
01E270: 3D 31 33 20 54 4F 20 32 30 3A 49 46 20 54 28 49 =13 TO 20:IF T(I
01E280: 29 3D 30 20 54 48 45 4E 20 46 4C 41 47 3D 49 3A )=0 THEN FLAG=I:
01E290: 49 3D 39 38 0D 0A 31 30 31 30 20 4E 45 58 54 3A I=98..1010 NEXT:
01E2A0: 49 46 20 49 3C 39 39 20 54 48 45 4E 20 31 30 30 IF I<99 THEN 100
01E2B0: 31 20 45 4C 53 45 20 49 3D 46 4C 41 47 0D 0A 31 1 ELSE I=FLAG..1
01E2C0: 30 31 31 20 48 28 49 29 3D 49 4E 54 20 28 59 28 011 H(I)=INT (Y(
01E2D0: 32 2C 48 43 2B 35 29 2F 33 30 29 3A 48 28 49 29 2,HC+5)/30):H(I)
01E2E0: 3D 48 28 49 29 2B 49 4E 54 28 52 4E 44 2A 33 29 =H(I)+INT(RND*3)
01E2F0: 2F 31 30 3A 48 28 49 29 3D 48 28 49 29 2B 41 42 /10:H(I)=H(I)+AB
01E300: 6B 65 74 20 70 72 69 63 65 22 3B EA 28 17 29 3B ket price";.(.);
01E310: 22 57 20 57 61 67 65 73 2F 63 6F 6E 74 72 61 63 "W Wages/contrac
01E320: 74 73 22 3B EA 28 17 29 22 46 20 46 41 20 43 75 ts";.(.)"F FA Cu
01E330: 70 20 66 69 78 74 75 72 65 73 22 3B EA 28 17 29 p fixtures";.(.)
01E340: 3B 22 4C 20 4C 65 61 67 75 65 20 63 75 70 20 66 ;"L League cup f
01E350: 69 78 74 75 72 65 73 22 01 A1 20 0D 00 00 43 D0 ixtures".. ...C.
01E360: EF 0E 20 FA 20 0D 00 00 4F B1 EE 0E 20 EB 20 BF .. . ...O... . .
01E370: 20 EA 28 17 29 3B 22 50 20 50 6F 73 74 70 6F 6E .(.);"P Postpon
01E380: 6D 65 6E 74 73 22 00 4C 00 EF 03 BF 20 EA 28 17 ments".L.... .(.
01E390: 29 3B 22 42 20 42 6F 6E 75 73 20 70 61 79 22 01 );"B Bonus pay".
01E3A0: A1 20 0D 00 00 43 C9 EF 28 0D 00 00 4D C2 F5 0F . ...C..(...M...
01E3B0: 29 20 FA 20 0D 00 00 55 C1 EF 0E 20 EB 20 BF 20 ) . ...U... . .
01E3C0: EA 28 17 29 3B 22 44 20 44 69 72 65 63 74 6F 72 .(.);"D Director
01E3D0: 73 22 00 35 00 F0 03 BF 20 EA 28 17 29 3B 03 00 s".5.... .(.);..
01E3E0: 00 50 C1 28 11 29 3B 22 4D 20 4D 61 69 6E 20 6D .P.(.);"M Main m
01E3F0: 65 6E 75 22 3B 03 00 00 50 C1 28 0F 29 01 0D 00 enu";...P.(.)...
01E400: 00 48 D7 EF 1A E9 03 00 26 00 F1 03 83 20 1C 03 .H......&.... ..
01E410: BB 01 03 00 00 49 CE EF 22 22 01 D6 20 03 00 00 .....I.."".. ...
01E420: 49 CE EF 22 22 01 9F 20 1E 00 FA 01 D5 00 17 00 I.."".. ........
01E430: F2 03 03 00 00 E4 EF 03 00 00 69 EE 01 BF 20 FF ..........i... .
01E440: 03 28 15 29 00 34 00 F3 03 A1 20 03 00 00 C4 EF .(.).4.... .....
01E450: 22 52 22 20 FA 20 0D 00 00 4E CC EF 0F 20 FA 20 "R" . ...N... .
01E460: 0D 00 00 4E CF EE 0E 20 EB 20 03 00 00 C4 EF 22 ...N... . ....."
01E470: 50 22 01 A0 20 1E 86 03 00 20 00 F4 03 A1 20 03 P".. .... .... .
01E480: 00 00 C4 EF 22 41 22 20 EB 20 03 00 00 C4 EF 22 ...."A" . ....."
01E490: 38 22 01 A0 20 1E 86 03 00 35 00 F5 03 A1 20 03 8".. ....5.... .
01E4A0: 00 00 C4 EF 22 49 22 20 FA 20 0D 00 00 4E D1 F1 ...."I" . ...N..
01E4B0: 0F 20 FA 20 0D 00 00 41 B2 EF 0F 20 EB 20 03 00 . . ...A... . ..
01E4C0: 00 C4 EF 22 36 38 22 01 A0 20 1E 86 03 00 2B 00 ..."68".. ....+.
01E4D0: F6 03 A1 20 03 00 00 C4 EF 22 47 22 20 FA 20 0D ... ....."G" . .
01E4E0: 00 00 4E C9 EF 0E 20 EB 20 03 00 00 C4 EF 22 36 ..N... . ....."6
01E4F0: 35 22 01 A0 20 1E 86 03 00 3A 00 F7 03 A1 20 03 5".. ....:.... .
01E500: 0D 00 00 45 D2 EF 0D 00 00 45 D2 F4 0F 00 6A 00 ...E.....E....j.
01E510: EC 03 B0 01 A9 20 17 2C 19 16 01 BF 20 03 00 00 ..... .,.... ...
01E520: 70 E1 28 11 29 3B 20 22 54 4F 54 41 4C 20 20 22 p.(.); "TOTAL "
01E530: 3B 03 00 00 70 E1 28 0F 29 3B 01 0D 00 00 54 45 ;...p.(.);....TE
01E540: 4D D0 EF 0D 00 00 4E D0 01 9F 20 1E 0C F8 01 BF M.....N... .....
01E550: 20 EA 28 19 1B 29 3B 03 00 00 70 E1 28 10 29 3B .(..);...p.(.);
01E560: 22 20 20 43 4F 4E 54 49 4E 55 45 20 20 22 3B 03 " CONTINUE ";.
01E570: 00 00 70 E1 28 0F 29 00 06 00 ED 03 C5 00 1C 00 ..p.(.).........
01E580: EE 03 9F 20 1E 52 03 01 A1 20 03 00 00 69 EE F2 ... .R... ...i..
01E590: 22 43 22 20 EB 20 1E EE 03 00 BE 00 EF 03 8A 01 "C" . ..........
01E5A0: A9 20 13 2C 0F 01 BF 20 03 00 00 70 E1 28 10 29 . .,... ...p.(.)
01E5B0: 3B 22 20 53 54 41 46 46 20 20 20 4E 41 4D 45 20 ;" STAFF NAME
01E5C0: 20 20 57 41 47 45 53 20 20 43 4F 4E 54 52 41 43 WAGES CONTRAC
01E5D0: 54 20 22 3B 03 00 00 70 E1 28 0F 29 2C EA 28 13 T ";...p.(.),.(.
01E5E0: 29 3B 22 4D 41 4E 41 47 45 52 22 3B EA 28 19 0D );"MANAGER";.(..
01E5F0: 29 3B 03 00 00 C6 3B EA 28 19 16 29 3B 01 0D 00 );....;.(..);...
01E600: 00 54 45 4D D0 EF FF 0C 28 0D 00 00 4E C1 29 01 .TEM....(...N.).
01E610: 9F 20 1E 0C F8 01 BF 20 EA 28 19 1C 29 3B ED 22 . ..... .(..);."
01E620: 23 23 23 22 3B 0D 00 00 4E C3 3B 01 BF 20 22 20 ###";...N.;.. "
01E630: 57 45 45 4B 22 F4 FF 03 28 19 20 F4 FF 00 28 0D WEEK"...(. ...(.
01E640: 00 00 4E C3 EE 0F 29 F6 19 33 29 01 0D 00 00 52 ..N...)..3)....R
01E650: C1 EF 0D 00 00 4E C1 00 1F 00 F0 03 9E 20 0D 00 .....N....... ..
01E660: 00 C9 EF 20 0F 20 EC 20 19 0C 01 A9 20 13 2C 0D ... . . .... .,.
01E670: 00 00 C9 F4 10 01 00 20 00 F1 03 A1 20 0D 00 00 ....... .... ...
01E680: C9 EF 0F 20 EB 20 BF 20 22 43 4F 41 43 48 22 3B ... . . "COACH";
01E690: 01 A0 20 1E F5 03 00 21 00 F2 03 A1 20 0D 00 00 .. ....!.... ...
01E6A0: C9 EF 10 20 EB 20 BF 20 22 50 48 59 53 49 4F 22 ... . . "PHYSIO"
01E6B0: 3B 01 A0 20 1E F5 03 00 20 00 F3 03 A1 20 0D 00 ;.. .... .... ..
01E6C0: 00 C9 F1 14 20 EB 20 BF 20 22 53 43 4F 55 54 22 .... . . "SCOUT"
01E6D0: 3B 01 A0 20 1E F5 03 00 1C 00 F4 03 A1 20 0D 00 ;.. ......... ..
01E6E0: 00 C9 EE 13 20 EB 20 BF 20 22 59 4F 55 54 48 20 .... . . "YOUTH
01E6F0: 50 22 3B 00 D2 00 F5 03 BF 20 EA 28 19 0D 29 3B P";...... .(..);
01E700: 31 30 32 32 20 52 41 4E 44 4F 4D 49 5A 45 20 54 1022 RANDOMIZE T
01E710: 49 4D 45 3A 4C 4F 43 41 54 45 20 32 33 2C 32 32 IME:LOCATE 23,22
01E720: 3A 50 52 49 4E 54 20 70 61 24 28 32 29 3B 22 42 :PRINT pa$(2);"B
01E730: 41 4E 4B 20 22 3B 70 61 24 28 31 29 3B 3A 54 45 ANK ";pa$(1);:TE
01E740: 4D 50 3D 49 4E 54 28 41 49 29 3A 47 4F 53 55 42 MP=INT(AI):GOSUB
01E750: 20 36 33 35 30 30 3A 48 47 3D 49 4E 54 20 28 28 63500:HG=INT ((
01E760: 58 28 49 42 29 2B 31 39 29 2F 32 30 29 3A 49 46 X(IB)+19)/20):IF
01E770: 20 48 46 3C 3E 33 20 54 48 45 4E 20 31 30 32 34 HF<>3 THEN 1024
01E780: 0D 0A 31 30 32 33 20 48 47 3D 41 50 3A 4C 4F 43 ..1023 HG=AP:LOC
01E790: 41 54 45 20 31 34 2C 34 3A 50 52 49 4E 54 20 5A ATE 14,4:PRINT Z
01E7A0: 24 3B 54 41 42 28 32 34 29 3B 22 44 49 56 22 3B $;TAB(24);"DIV";
01E7B0: 41 50 3A 47 4F 54 4F 20 31 30 32 35 0D 0A 31 30 AP:GOTO 1025..10
01E7C0: 32 34 20 4C 4F 43 41 54 45 20 31 34 2C 34 3A 50 24 LOCATE 14,4:P
01E7D0: 52 49 4E 54 20 59 24 28 58 28 49 42 29 29 3B 54 RINT Y$(X(IB));T
01E7E0: 41 42 28 32 34 29 3B 22 44 49 56 20 22 3B 48 47 AB(24);"DIV ";HG
01E7F0: 0D 0A 31 30 32 35 20 4C 4F 43 41 54 45 20 31 33 ..1025 LOCATE 13
01E800: 2C 37 3A 50 52 49 4E 54 20 50 4F 31 53 24 28 54 ,7:PRINT PO1S$(T
01E810: 28 49 42 29 29 3B 54 41 42 28 31 35 29 3B 70 61 (IB));TAB(15);pa
01E820: 24 28 33 29 3B 56 24 28 49 42 29 3B 70 61 24 28 $(3);V$(IB);pa$(
01E830: 31 29 3B 54 41 42 28 32 33 29 3B 49 4E 54 28 48 1);TAB(23);INT(H
01E840: 28 49 42 29 29 3B 54 41 42 28 32 37 29 3B 41 42 (IB));TAB(27);AB
01E850: 53 28 47 28 49 42 29 29 3A 4C 4F 43 41 54 45 20 S(G(IB)):LOCATE
01E860: 31 37 2C 38 3A 50 52 49 4E 54 20 22 54 45 4D 50 17,8:PRINT "TEMP
01E870: 45 52 20 22 3B 45 28 33 2C 49 42 29 3A 49 46 20 ER ";E(3,IB):IF
01E880: 48 49 3D 30 20 41 4E 44 20 48 46 3D 31 20 54 48 HI=0 AND HF=1 TH
01E890: 45 4E 20 31 30 32 36 20 45 4C 53 45 20 31 30 32 EN 1026 ELSE 102
01E8A0: 38 0D 0A 31 30 32 36 20 50 52 49 4E 54 20 23 32 8..1026 PRINT #2
01E8B0: 2C 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F ,"DO YOU WANT TO
01E8C0: 20 4E 45 47 4F 54 49 41 54 45 20 59 2F 4E 20 20 NEGOTIATE Y/N
01E8D0: 20 20 22 3A 47 4F 53 55 42 20 36 34 31 30 30 3A ":GOSUB 64100:
01E8E0: 49 46 20 49 4E 24 3D 22 4E 22 20 54 48 45 4E 20 IF IN$="N" THEN
01E8F0: 44 24 3D 22 52 31 22 3A 48 57 3D 31 30 30 31 3A D$="R1":HW=1001:
01E900: 31 30 30 31 20 43 4C 53 3A 47 4F 53 55 42 20 31 1001 CLS:GOSUB 1
01E910: 30 30 32 3A 47 4F 54 4F 20 31 30 30 36 0D 0A 31 002:GOTO 1006..1
01E920: 30 30 32 20 4C 4F 43 41 54 45 20 31 38 2C 31 3A 002 LOCATE 18,1:
01E930: 50 52 49 4E 54 20 70 61 24 28 33 29 3B 22 53 43 PRINT pa$(3);"SC
01E940: 4F 55 54 53 22 3B 70 61 24 28 31 29 3A 45 52 3D OUTS";pa$(1):ER=
01E950: 35 3A 46 4F 52 20 49 3D 31 20 54 4F 20 33 3A 74 5:FOR I=1 TO 3:t
01E960: 65 6D 70 24 3D 49 24 28 49 2B 32 29 3A 47 4F 53 emp$=I$(I+2):GOS
01E970: 55 42 20 36 34 39 30 30 3A 49 46 20 66 6C 61 67 UB 64900:IF flag
01E980: 20 20 54 48 45 4E 20 31 30 30 35 0D 0A 31 30 30 THEN 1005..100
01E990: 33 20 4C 4F 43 41 54 45 20 33 2C 45 52 3A 50 52 3 LOCATE 3,ER:PR
01E9A0: 49 4E 54 20 49 3B 54 41 42 28 37 29 3B 22 53 43 INT I;TAB(7);"SC
01E9B0: 4F 55 54 3A 22 55 53 49 4E 47 22 23 23 22 3B 59 OUT:"USING"##";Y
01E9C0: 28 32 2C 49 2B 32 29 3B 3A 50 52 49 4E 54 20 54 (2,I+2);:PRINT T
01E9D0: 41 42 28 31 35 29 3B 22 25 22 3B 54 41 42 28 31 AB(15);"%";TAB(1
01E9E0: 37 29 3B 4C 45 46 54 24 28 49 24 28 49 2B 32 29 7);LEFT$(I$(I+2)
01E9F0: 2C 38 29 3A 49 46 20 59 28 33 2C 49 2B 32 29 3D ,8):IF Y(3,I+2)=
01EA00: 30 20 54 48 45 4E 20 31 30 30 35 0D 0A 31 30 30 0 THEN 1005..100
01EA10: 34 20 4C 4F 43 41 54 45 20 32 35 2C 45 52 3A 50 4 LOCATE 25,ER:P
01EA20: 52 49 4E 54 20 59 24 28 59 28 33 2C 49 2B 32 29 RINT Y$(Y(3,I+2)
01EA30: 29 3A 4C 4F 43 41 54 45 20 33 35 2C 45 52 3A 4F ):LOCATE 35,ER:O
01EA40: 4E 20 59 28 34 2C 49 2B 32 29 2B 31 20 47 4F 53 N Y(4,I+2)+1 GOS
01EA50: 55 42 20 39 31 31 2C 39 31 32 2C 39 31 33 2C 39 UB 911,912,913,9
01EA60: 31 34 2C 39 31 35 3A 4C 4F 43 41 54 45 20 33 37 14,915:LOCATE 37
01EA70: 2C 45 52 3A 50 52 49 4E 54 20 59 28 35 2C 49 2B ,ER:PRINT Y(5,I+
01EA80: 32 29 0D 0A 31 30 30 35 20 45 52 3D 45 52 2B 32 2)..1005 ER=ER+2
01EA90: 3A 4E 45 58 54 3A 4F 32 3D 31 3A 4F 33 3D 31 36 :NEXT:O2=1:O3=16
01EAA0: 3A 4F 34 3D 32 35 3A 47 4F 54 4F 20 32 31 38 20 :O4=25:GOTO 218
01EAB0: 0D 0A 31 30 30 36 20 4C 4F 43 41 54 45 20 36 2C ..1006 LOCATE 6,
01EAC0: 31 33 3A 50 52 49 4E 54 20 70 61 24 28 32 29 3B 13:PRINT pa$(2);
01EAD0: 22 41 20 41 53 53 49 47 4E 20 53 43 4F 55 54 22 "A ASSIGN SCOUT"
01EAE0: 3B 70 61 24 28 31 29 0D 0A 31 30 30 37 20 47 4F ;pa$(1)..1007 GO
01EAF0: 53 55 42 20 38 34 38 3A 49 46 20 69 6E 24 3D 22 SUB 848:IF in$="
01EB00: 47 4F 54 4F 20 39 30 31 0D 0A 31 30 32 37 20 27 GOTO 901..1027 '
01EB10: 0D 0A 31 30 32 38 20 43 4C 53 23 32 3A 49 46 20 ..1028 CLS#2:IF
01EB20: 48 49 3C 31 20 41 4E 44 20 48 46 3D 31 20 54 48 HI<1 AND HF=1 TH
01EB30: 45 4E 20 31 30 32 39 20 45 4C 53 45 20 31 30 33 EN 1029 ELSE 103
01EB40: 30 0D 0A 31 30 32 39 20 4C 4F 43 41 54 45 20 37 0..1029 LOCATE 7
01EB50: 2C 31 33 3A 49 4E 50 55 54 22 4D 4F 4E 45 59 20 ,13:INPUT"MONEY
01EB60: 4F 46 46 45 52 20 22 3B 48 49 3A 49 46 20 48 49 OFFER ";HI:IF HI
01EB70: 3C 31 20 4F 52 20 48 49 3E 41 49 20 54 48 45 4E <1 OR HI>AI THEN
01EB80: 20 31 30 32 39 0D 0A 31 30 33 30 20 4C 4F 43 41 1029..1030 LOCA
01EB90: 54 45 20 35 2C 31 33 3A 49 46 20 48 46 3C 33 20 TE 5,13:IF HF<3
01EBA0: 54 48 45 4E 20 50 52 49 4E 54 20 22 4D 4F 4E 45 THEN PRINT "MONE
01EBB0: 59 20 4F 46 46 45 52 20 20 20 20 20 20 20 22 3B Y OFFER ";
01EBC0: 3A 54 45 4D 50 3D 48 49 3A 47 4F 53 55 42 20 36 :TEMP=HI:GOSUB 6
01EBD0: 33 35 30 30 0D 0A 31 30 33 31 20 49 46 20 48 4A 3500..1031 IF HJ
01EBE0: 3D 30 20 41 4E 44 20 48 46 3D 31 20 54 48 45 4E =0 AND HF=1 THEN
01EBF0: 20 31 30 33 32 20 45 4C 53 45 20 31 30 33 37 0D 1032 ELSE 1037.
01EC00: 0A 31 30 33 32 20 50 52 49 4E 54 20 23 32 2C 22 .1032 PRINT #2,"
01EC10: 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 4C DO YOU WANT TO L
01EC20: 4F 41 4E 20 59 2F 4E 20 22 3A 47 4F 53 55 42 20 OAN Y/N ":GOSUB
01EC30: 36 34 31 30 30 3A 43 4C 53 23 32 3A 49 46 20 49 64100:CLS#2:IF I
01EC40: 4E 24 3D 22 4E 22 20 54 48 45 4E 20 31 30 33 37 N$="N" THEN 1037
01EC50: 0D 0A 31 30 33 33 20 48 4B 3D 30 3A 43 48 41 49 ..1033 HK=0:CHAI
01EC60: 4E 20 4D 45 52 47 45 20 22 52 33 22 2C 31 30 36 N MERGE "R3",106
01EC70: 33 0D 0A 31 30 33 34 20 43 4C 53 23 32 3A 49 46 3..1034 CLS#2:IF
01EC80: 20 48 4C 3D 48 4B 20 4F 52 20 4A 28 48 4B 29 3D HL=HK OR J(HK)=
01EC90: 34 32 20 4F 52 20 4A 28 48 4B 29 3D 33 35 20 4F 42 OR J(HK)=35 O
01ECA0: 52 20 4A 28 48 4B 29 3D 38 32 20 4F 52 20 54 28 R J(HK)=82 OR T(
01ECB0: 48 4B 29 3D 30 20 54 48 45 4E 20 31 30 33 33 0D HK)=0 THEN 1033.
01ECC0: 0A 31 30 33 35 20 47 28 48 4B 29 3D 41 42 53 28 .1035 G(HK)=ABS(
01ECD0: 47 28 48 4B 29 29 3A 49 4E 50 55 54 20 23 32 2C G(HK)):INPUT #2,
01ECE0: 22 48 4F 57 20 4D 41 4E 59 20 57 45 45 4B 53 20 "HOW MANY WEEKS
01ECF0: 4C 4F 41 4E 20 22 3B 48 4A 3A 49 46 20 48 4A 3C LOAN ";HJ:IF HJ<
01ED00: 41 22 20 41 4E 44 20 4E 4E 3E 30 20 54 48 45 4E A" AND NN>0 THEN
01ED10: 20 31 30 30 38 20 45 4C 53 45 20 31 30 30 37 0D 1008 ELSE 1007.
01ED20: 0A 31 30 30 38 20 4C 4F 43 41 54 45 20 35 2C 31 .1008 LOCATE 5,1
01ED30: 33 3A 49 4E 50 55 54 22 57 48 49 43 48 20 53 43 3:INPUT"WHICH SC
01ED40: 4F 55 54 20 31 20 54 4F 20 33 20 22 3B 41 44 3A OUT 1 TO 3 ";AD:
01ED50: 49 46 20 41 44 3C 31 20 4F 52 20 41 44 3E 33 20 IF AD<1 OR AD>3
01ED60: 54 48 45 4E 20 31 30 30 38 0D 0A 31 30 30 39 20 THEN 1008..1009
01ED70: 74 65 6D 70 24 3D 49 24 28 41 44 2B 32 29 3A 47 temp$=I$(AD+2):G
01ED80: 4F 53 55 42 20 36 34 39 30 30 3A 49 46 20 66 6C OSUB 64900:IF fl
01ED90: 61 67 20 54 48 45 4E 20 31 30 30 38 0D 0A 31 30 ag THEN 1008..10
01EDA0: 31 30 20 58 28 41 44 2B 32 30 29 3D 30 3A 45 52 10 X(AD+20)=0:ER
01EDB0: 3D 31 2B 41 42 53 28 41 50 3E 32 29 2A 34 30 0D =1+ABS(AP>2)*40.
01EDC0: 0A 31 30 31 31 20 43 4C 53 3A 46 4F 52 20 49 3D .1011 CLS:FOR I=
01EDD0: 45 52 20 54 4F 20 45 52 2B 31 39 3A 4C 4F 43 41 ER TO ER+19:LOCA
01EDE0: 54 45 20 38 2C 49 2D 28 41 42 53 28 45 52 3D 34 TE 8,I-(ABS(ER=4
01EDF0: 31 29 2A 34 30 29 3A 50 52 49 4E 54 20 55 53 49 1)*40):PRINT USI
01EE00: 4E 47 20 22 23 23 22 3B 49 3B 3A 50 52 49 4E 54 NG "##";I;:PRINT
01EE10: 20 54 41 42 28 31 31 29 3B 59 24 28 49 29 3B 54 TAB(11);Y$(I);T
01EE20: 41 42 28 32 32 29 3B 55 53 49 4E 47 20 22 23 23 AB(22);USING "##
01EE30: 22 3B 49 2B 32 30 3B 3A 50 52 49 4E 54 20 54 41 ";I+20;:PRINT TA
01EE40: 42 28 32 36 29 3B 59 24 28 49 2B 32 30 29 3A 4E B(26);Y$(I+20):N
01EE50: 45 58 54 3A 4C 4F 43 41 54 45 20 31 2C 32 32 3A EXT:LOCATE 1,22:
01EE60: 50 52 49 4E 54 20 22 54 45 41 4D 20 4E 6F 2F 30 PRINT "TEAM No/0
01EE70: 20 4D 4F 52 45 20 43 48 4F 49 43 45 20 20 20 22 MORE CHOICE "
01EE80: 3B 3A 49 4E 50 55 54 20 69 0D 0A 31 30 31 32 20 ;:INPUT i..1012
01EE90: 49 46 20 49 3C 31 20 4F 52 20 69 3E 38 30 20 54 IF I<1 OR i>80 T
01EEA0: 48 45 4E 20 31 30 31 34 0D 0A 31 30 31 33 20 49 HEN 1014..1013 I
01EEB0: 46 20 59 24 28 49 29 3D 5A 24 20 54 48 45 4E 20 F Y$(I)=Z$ THEN
01EEC0: 31 30 31 31 20 45 4C 53 45 20 31 30 31 35 0D 0A 1011 ELSE 1015..
01EED0: 31 30 31 34 20 45 52 3D 45 52 2B 41 42 53 28 45 1014 ER=ER+ABS(E
01EEE0: 52 3D 31 29 2A 34 30 2D 41 42 53 28 45 52 3D 34 R=1)*40-ABS(ER=4
01EEF0: 31 29 2A 34 30 3A 47 4F 54 4F 20 31 30 31 31 0D 1)*40:GOTO 1011.
01EF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01EF10: 1A 00 01 00 02 09 4E E5 1A 00 41 02 00 00 00 02 ......N...A.....
01EF20: 1A 00 46 02 00 00 00 02 1A 00 42 02 00 00 00 02 ..F.......B.....
01EF30: 1A 00 47 02 00 00 00 02 1A 00 43 02 00 00 00 02 ..G.......C.....
01EF40: 1A 00 48 02 00 00 00 02 1A 00 44 02 00 00 00 02 ..H.......D.....
01EF50: 1A 00 49 02 00 00 00 02 1A 00 45 02 00 00 00 02 ..I.......E.....
01EF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F000: 30 20 4F 52 20 48 4A 3E 39 39 20 54 48 45 4E 20 0 OR HJ>99 THEN
01F010: 31 30 33 35 20 45 4C 53 45 20 32 31 37 0D 0A 31 1035 ELSE 217..1
01F020: 30 33 36 20 27 0D 0A 31 30 33 37 20 47 4F 53 55 036 '..1037 GOSU
01F030: 42 20 38 38 31 3A 49 46 20 48 4C 3D 30 20 41 4E B 881:IF HL=0 AN
01F040: 44 20 48 46 3D 31 20 54 48 45 4E 20 31 30 33 38 D HF=1 THEN 1038
01F050: 20 45 4C 53 45 20 31 30 34 33 0D 0A 31 30 33 38 ELSE 1043..1038
01F060: 20 50 52 49 4E 54 23 32 2C 22 44 4F 20 59 4F 55 PRINT#2,"DO YOU
01F070: 20 57 41 4E 54 20 54 4F 20 46 52 45 45 20 54 52 WANT TO FREE TR
01F080: 41 4E 53 46 45 52 20 59 2F 4E 22 3A 47 4F 53 55 ANSFER Y/N":GOSU
01F090: 42 20 36 34 31 30 30 3A 43 4C 53 23 32 3A 49 46 B 64100:CLS#2:IF
01F0A0: 20 49 4E 24 3D 22 4E 22 20 54 48 45 4E 20 31 30 IN$="N" THEN 10
01F0B0: 34 33 0D 0A 31 30 33 39 20 43 4C 53 23 32 3A 43 43..1039 CLS#2:C
01F0C0: 48 41 49 4E 20 4D 45 52 47 45 20 22 52 33 22 2C HAIN MERGE "R3",
01F0D0: 31 30 34 30 0D 0A 31 30 34 30 20 47 4F 53 55 42 1040..1040 GOSUB
01F0E0: 20 31 30 30 32 3A 48 4C 3D 30 3A 49 4E 50 55 54 1002:HL=0:INPUT
01F0F0: 20 23 32 2C 22 46 52 45 45 20 54 52 41 4E 53 46 #2,"FREE TRANSF
01F100: 45 52 20 50 4C 41 59 45 52 20 4E 6F 20 22 3B 48 ER PLAYER No ";H
01F110: 4C 3A 43 4C 53 23 32 3A 49 46 20 48 4C 3C 31 20 L:CLS#2:IF HL<1
01F120: 4F 52 20 48 4C 3E 32 30 20 4F 52 20 48 4C 3D 48 OR HL>20 OR HL=H
01F130: 4B 20 54 48 45 4E 20 31 30 34 30 0D 0A 31 30 34 K THEN 1040..104
01F140: 31 20 49 46 20 54 28 48 4C 29 3D 30 20 4F 52 20 1 IF T(HL)=0 OR
01F150: 4A 28 48 4C 29 3D 37 36 20 4F 52 20 4A 28 48 4C J(HL)=76 OR J(HL
01F160: 29 3D 38 32 20 4F 52 20 4A 28 48 4C 29 3D 34 32 )=82 OR J(HL)=42
01F170: 20 54 48 45 4E 20 31 30 34 30 20 45 4C 53 45 20 THEN 1040 ELSE
01F180: 32 31 37 0D 0A 31 30 34 32 20 27 0D 0A 31 30 34 217..1042 '..104
01F190: 33 20 43 4C 53 23 32 3A 47 4F 53 55 42 20 38 38 3 CLS#2:GOSUB 88
01F1A0: 33 3A 49 46 20 49 4E 54 28 48 28 49 42 29 29 3D 3:IF INT(H(IB))=
01F1B0: 31 20 54 48 45 4E 20 45 56 3D 36 35 30 30 3A 47 1 THEN EV=6500:G
01F1C0: 4F 54 4F 20 31 30 34 35 0D 0A 31 30 34 34 20 45 OTO 1045..1044 E
01F1D0: 56 3D 35 30 30 30 2A 28 49 4E 54 28 48 28 49 42 V=5000*(INT(H(IB
01F1E0: 29 29 2D 31 29 2A 28 49 4E 54 28 48 28 49 42 29 ))-1)*(INT(H(IB)
01F1F0: 29 2D 31 29 2A 32 2B 41 42 53 28 48 28 49 42 29 )-1)*2+ABS(H(IB)
01F200: 20 14 2C 19 0D 01 BF 20 03 00 00 70 E1 28 10 29 .,.... ...p.(.)
01F210: 3B 22 41 20 41 53 53 49 47 4E 20 53 43 4F 55 54 ;"A ASSIGN SCOUT
01F220: 22 3B 03 00 00 70 E1 28 0F 29 00 2D 00 EF 03 9F ";...p.(.).-....
01F230: 20 1E 50 03 01 A1 20 03 00 00 69 EE EF 22 41 22 .P... ...i.."A"
01F240: 20 FA 20 0D 00 00 4E CE EE 0E 20 EB 20 1E F0 03 . ...N... . ...
01F250: 20 01 97 20 1E EF 03 00 42 00 F0 03 A9 20 13 2C .. ....B.... .,
01F260: 19 0D 01 A3 22 57 48 49 43 48 20 53 43 4F 55 54 ...£"WHICH SCOUT
01F270: 20 31 20 54 4F 20 33 20 22 3B 0D 00 00 41 C4 01 1 TO 3 ";...A..
01F280: A1 20 0D 00 00 41 C4 F1 0F 20 FC 20 0D 00 00 41 . ...A... . ...A
01F290: C4 EE 11 20 EB 20 1E F0 03 00 30 00 F1 03 03 00 ... . ....0.....
01F2A0: 00 74 65 6D F0 EF 03 00 00 C9 28 0D 00 00 41 C4 .tem......(...A.
01F2B0: F4 10 29 01 9F 20 1E 84 FD 01 A1 20 0D 00 00 66 ..).. ..... ...f
01F2C0: 6C 61 E7 20 EB 20 1E F0 03 00 2C 00 F2 03 0D 00 la. . ....,.....
01F2D0: 00 D8 28 0D 00 00 41 C4 F4 19 14 29 EF 0E 01 0D ..(...A....)....
01F2E0: 00 00 45 D2 EF 0F F4 FF 00 28 0D 00 00 41 D0 EE ..E......(...A..
01F2F0: 10 29 F6 19 28 00 B5 00 F3 03 8A 01 9E 20 0D 00 .)..(........ ..
01F300: 00 C9 EF 0D 00 00 45 D2 20 EC 20 0D 00 00 45 D2 ......E. . ...E.
01F310: F4 19 13 01 A9 20 16 2C 0D 00 00 C9 F5 28 FF 00 ..... .,.....(..
01F320: 28 0D 00 00 45 D2 EF 19 29 29 F6 19 28 29 01 BF (...E...))..()..
01F330: 20 ED 20 22 23 23 22 3B 0D 00 00 C9 3B 01 BF 20 . "##";....;..
01F340: EA 28 19 0B 29 3B 03 00 00 D9 28 0D 00 00 C9 29 .(..);....(....)
01F350: 3B EA 28 19 16 29 3B ED 20 22 23 23 22 3B 0D 00 ;.(..);. "##";..
01F360: 00 C9 F4 19 14 3B 01 BF 20 EA 28 19 1A 29 3B 03 .....;.. .(..);.
01F370: 00 00 D9 28 0D 00 00 C9 F4 19 14 29 01 B0 01 A9 ...(.......)....
01F380: 20 0F 2C 19 16 01 BF 20 22 54 45 41 4D 20 4E 6F .,.... "TEAM No
01F390: 2F 30 20 4D 4F 52 45 20 43 48 4F 49 43 45 20 20 /0 MORE CHOICE
01F3A0: 20 22 3B 01 A3 20 0D 00 00 E9 00 1D 00 F4 03 A1 ";.£ ..........
01F3B0: 20 0D 00 00 C9 F1 0F 20 FC 20 0D 00 00 E9 EE 19 ...... . ......
01F3C0: 50 20 EB 20 1E F6 03 00 23 00 F5 03 A1 20 03 00 P . ....#.... ..
01F3D0: 00 D9 28 0D 00 00 C9 29 EF 03 00 00 DA 20 EB 20 ..(....)..... .
01F3E0: 1E F3 03 20 01 97 20 1E F7 03 00 35 00 F6 03 0D ... .. ....5....
01F3F0: 00 00 45 D2 EF 0D 00 00 45 D2 F4 FF 00 28 0D 00 ..E.....E....(..
01F400: 3E 39 2E 36 29 2A 33 31 30 30 30 30 0D 0A 31 30 >9.6)*310000..10
01F410: 34 35 20 46 55 3D 49 4E 54 20 28 45 56 2F 33 29 45 FU=INT (EV/3)
01F420: 2B 36 30 30 30 3A 52 41 3D 45 56 2B 49 4E 54 20 +6000:RA=EV+INT
01F430: 28 52 4E 44 2A 46 55 29 3A 45 56 3D 52 41 3A 52 (RND*FU):EV=RA:R
01F440: 41 3D 28 47 28 49 42 29 2D 32 38 29 3A 52 41 3D A=(G(IB)-28):RA=
01F450: 52 41 2B 41 42 53 28 52 41 3C 30 29 2A 41 42 53 RA+ABS(RA<0)*ABS
01F460: 28 52 41 29 3A 52 42 3D 49 4E 54 20 28 45 56 2F (RA):RB=INT (EV/
01F470: 31 30 29 2A 52 41 3A 45 56 3D 49 4E 54 28 65 56 10)*RA:EV=INT(eV
01F480: 2D 52 42 29 3A 47 4F 54 4F 20 39 30 36 0D 0A 31 -RB):GOTO 906..1
01F490: 30 34 36 20 48 4E 3D 30 3A 49 46 20 48 46 3E 3D 046 HN=0:IF HF>=
01F4A0: 32 20 41 4E 44 20 48 4C 3C 3D 30 20 54 48 45 4E 2 AND HL<=0 THEN
01F4B0: 20 31 30 34 38 0D 0A 31 30 34 37 20 48 4D 3D 28 1048..1047 HM=(
01F4C0: 34 2F 48 47 29 3A 49 46 20 49 4E 54 28 48 28 48 4/HG):IF INT(H(H
01F4D0: 4C 29 29 3E 3D 48 4D 20 54 48 45 4E 20 48 4F 3D L))>=HM THEN HO=
01F4E0: 49 4E 54 28 48 28 48 4C 29 29 3A 48 4D 3D 49 4E INT(H(HL)):HM=IN
01F4F0: 54 20 28 47 28 48 4C 29 2D 32 36 29 3A 48 4D 3D T (G(HL)-26):HM=
01F500: 48 4D 2D 41 42 53 28 48 4D 3C 30 29 2A 48 4D 3A HM-ABS(HM<0)*HM:
01F510: 48 4F 3D 48 4F 2D 48 4D 3A 48 4F 3D 48 4F 2D 41 HO=HO-HM:HO=HO-A
01F520: 42 53 28 48 4F 3C 30 29 2A 48 4F 3A 48 4F 3D 48 BS(HO<0)*HO:HO=H
01F530: 4F 2B 41 42 53 28 48 4F 3D 30 29 3A 48 4E 3D 28 O+ABS(HO=0):HN=(
01F540: 48 4F 2A 48 4F 2A 35 30 30 30 29 0D 0A 31 30 34 HO*HO*5000)..104
01F550: 38 20 49 46 20 48 46 3E 3D 32 20 41 4E 44 20 48 8 IF HF>=2 AND H
01F560: 4A 3C 3D 30 20 54 48 45 4E 20 31 30 35 30 0D 0A J<=0 THEN 1050..
01F570: 31 30 34 39 20 48 4F 3D 30 3A 48 4D 3D 28 34 2F 1049 HO=0:HM=(4/
01F580: 48 47 29 3A 49 46 20 49 4E 54 28 48 28 48 4B 29 HG):IF INT(H(HK)
01F590: 29 3E 48 4D 20 54 48 45 4E 20 48 4F 3D 49 4E 54 )>HM THEN HO=INT
01F5A0: 20 28 48 28 48 4B 29 29 3A 48 4D 3D 49 4E 54 20 (H(HK)):HM=INT
01F5B0: 28 47 28 48 4B 29 2D 32 36 29 3A 48 4D 3D 48 4D (G(HK)-26):HM=HM
01F5C0: 2D 41 42 53 28 48 4D 3C 30 29 2A 48 4D 3A 48 4F -ABS(HM<0)*HM:HO
01F5D0: 3D 48 4F 2D 48 4D 3A 48 4F 3D 48 4F 2D 41 42 53 =HO-HM:HO=HO-ABS
01F5E0: 28 48 4F 3C 30 29 2A 48 4F 3A 48 4F 3D 48 4F 2B (HO<0)*HO:HO=HO+
01F5F0: 41 42 53 28 48 4F 3D 30 29 3A 48 4E 3D 48 4E 2B ABS(HO=0):HN=HN+
01F600: 31 30 30 31 20 5A 37 3D 30 3A 45 56 3D 30 3A 48 1001 Z7=0:EV=0:H
01F610: 4B 3D 30 3A 48 4A 3D 30 3A 48 48 3D 30 3A 48 49 K=0:HJ=0:HH=0:HI
01F620: 3D 30 3A 48 4C 3D 30 3A 43 4C 53 3A 50 52 49 4E =0:HL=0:CLS:PRIN
01F630: 54 20 54 41 42 28 31 30 29 3B 22 42 55 59 49 4E T TAB(10);"BUYIN
01F640: 47 22 3B 54 41 42 28 32 37 29 3B 22 4F 46 46 45 G";TAB(27);"OFFE
01F650: 52 53 22 3A 4C 4F 43 41 54 45 20 31 30 2C 31 32 RS":LOCATE 10,12
01F660: 3A 50 52 49 4E 54 20 22 53 45 4C 4C 49 4E 47 22 :PRINT "SELLING"
01F670: 0D 0A 31 30 30 32 20 45 52 3D 33 3A 46 4F 52 20 ..1002 ER=3:FOR
01F680: 49 3D 32 31 20 54 4F 20 32 33 3A 49 46 20 58 28 I=21 TO 23:IF X(
01F690: 49 29 3D 30 20 54 48 45 4E 20 31 30 30 34 0D 0A I)=0 THEN 1004..
01F6A0: 31 30 30 33 20 4C 4F 43 41 54 45 20 35 2C 45 52 1003 LOCATE 5,ER
01F6B0: 3A 50 52 49 4E 54 20 55 53 49 4E 47 22 23 23 22 :PRINT USING"##"
01F6C0: 3B 49 2D 32 30 3B 3A 50 52 49 4E 54 20 54 41 42 ;I-20;:PRINT TAB
01F6D0: 28 38 29 3B 59 24 28 58 28 49 29 29 3A 4C 4F 43 (8);Y$(X(I)):LOC
01F6E0: 41 54 45 20 36 2C 45 52 2B 31 3A 50 52 49 4E 54 ATE 6,ER+1:PRINT
01F6F0: 20 50 4F 31 53 24 28 54 28 49 29 29 3B 41 42 53 PO1S$(T(I));ABS
01F700: 28 47 28 49 29 29 3B 56 24 28 49 29 3B 49 4E 54 (G(I));V$(I);INT
01F710: 28 48 28 49 29 29 3A 45 52 3D 45 52 2B 33 0D 0A (H(I)):ER=ER+3..
01F720: 31 30 30 34 20 4E 45 58 54 0D 0A 31 30 30 35 20 1004 NEXT..1005
01F730: 45 52 3D 31 34 3A 46 4F 52 20 49 3D 32 34 20 54 ER=14:FOR I=24 T
01F740: 4F 20 32 36 3A 49 46 20 58 28 49 29 3D 30 20 54 O 26:IF X(I)=0 T
01F750: 48 45 4E 20 31 30 30 37 0D 0A 31 30 30 36 20 4C HEN 1007..1006 L
01F760: 4F 43 41 54 45 20 35 2C 45 52 3A 50 52 49 4E 54 OCATE 5,ER:PRINT
01F770: 20 55 53 49 4E 47 22 23 23 22 3B 49 2D 32 30 3B USING"##";I-20;
01F780: 3A 50 52 49 4E 54 20 54 41 42 28 38 29 3B 59 24 :PRINT TAB(8);Y$
01F790: 28 58 28 49 29 29 3A 4C 4F 43 41 54 45 20 36 2C (X(I)):LOCATE 6,
01F7A0: 45 52 2B 31 3A 50 52 49 4E 54 20 50 4F 31 53 24 ER+1:PRINT PO1S$
01F7B0: 28 54 28 49 29 29 3B 41 42 53 28 47 28 49 29 29 (T(I));ABS(G(I))
01F7C0: 3B 56 24 28 49 29 3B 49 4E 54 28 48 28 49 29 29 ;V$(I);INT(H(I))
01F7D0: 3A 45 52 3D 45 52 2B 33 0D 0A 31 30 30 37 20 4E :ER=ER+3..1007 N
01F7E0: 45 58 54 3A 45 52 3D 33 3A 46 4F 52 20 49 3D 31 EXT:ER=3:FOR I=1
01F7F0: 20 54 4F 20 33 3A 54 45 4D 50 24 3D 4A 24 28 49 TO 3:TEMP$=J$(I
01F800: 28 48 4F 2A 48 4A 2A 31 30 30 29 0D 0A 31 30 35 (HO*HJ*100)..105
01F810: 30 20 4C 4F 43 41 54 45 20 35 2C 31 34 3A 45 56 0 LOCATE 5,14:EV
01F820: 3D 45 56 2D 48 4E 3A 49 46 20 45 56 3E 48 49 20 =EV-HN:IF EV>HI
01F830: 54 48 45 4E 20 31 30 35 32 0D 0A 31 30 35 31 20 THEN 1052..1051
01F840: 4C 4F 43 41 54 45 20 35 2C 31 36 3A 50 52 49 4E LOCATE 5,16:PRIN
01F850: 54 20 22 54 52 41 4E 53 46 45 52 20 46 45 45 20 T "TRANSFER FEE
01F860: 41 47 52 45 45 44 20 42 59 20 22 3B 59 24 28 59 AGREED BY ";Y$(Y
01F870: 28 33 2C 49 42 2D 31 38 29 29 3A 47 4F 54 4F 20 (3,IB-18)):GOTO
01F880: 31 30 35 34 0D 0A 31 30 35 32 20 4C 4F 43 41 54 1054..1052 LOCAT
01F890: 45 20 35 2C 31 36 3A 50 52 49 4E 54 20 59 24 28 E 5,16:PRINT Y$(
01F8A0: 59 28 33 2C 49 42 2D 31 38 29 29 3B 22 20 52 45 Y(3,IB-18));" RE
01F8B0: 46 55 53 45 20 4F 46 46 45 52 22 3A 48 49 3D 30 FUSE OFFER":HI=0
01F8C0: 3A 48 4A 3D 30 3A 48 4B 3D 30 3A 48 4C 3D 30 3A :HJ=0:HK=0:HL=0:
01F8D0: 46 4F 52 20 49 3D 31 20 54 4F 20 39 39 3A 4E 45 FOR I=1 TO 99:NE
01F8E0: 58 54 20 49 3A 52 41 3D 31 2B 49 4E 54 20 28 52 XT I:RA=1+INT (R
01F8F0: 4E 44 2A 34 29 3A 49 46 20 52 41 3D 31 20 54 48 ND*4):IF RA=1 TH
01F900: 45 4E 20 58 28 49 42 29 3D 30 0D 0A 31 30 35 33 EN X(IB)=0..1053
01F910: 20 48 57 3D 31 30 30 31 3A 44 24 3D 22 52 31 22 HW=1001:D$="R1"
01F920: 3A 47 4F 54 4F 20 39 30 31 0D 0A 31 30 35 34 20 :GOTO 901..1054
01F930: 49 4E 50 55 54 20 23 32 2C 22 48 4F 57 20 4D 41 INPUT #2,"HOW MA
01F940: 4E 59 20 57 45 45 4B 53 20 43 4F 4E 54 52 41 43 NY WEEKS CONTRAC
01F950: 54 20 22 3B 48 52 3A 43 4C 53 23 32 3A 49 46 20 T ";HR:CLS#2:IF
01F960: 48 52 3C 32 20 54 48 45 4E 20 31 30 35 34 20 45 HR<2 THEN 1054 E
01F970: 4C 53 45 20 43 4C 53 23 32 0D 0A 31 30 35 35 20 LSE CLS#2..1055
01F980: 4C 4F 43 41 54 45 20 35 2C 31 37 3A 50 52 49 4E LOCATE 5,17:PRIN
01F990: 54 20 22 43 4F 4E 54 52 41 43 54 22 3B 54 41 42 T "CONTRACT";TAB
01F9A0: 28 32 31 29 3B 48 52 3B 22 20 57 45 45 4B 53 22 (21);HR;" WEEKS"
01F9B0: 0D 0A 31 30 35 36 20 49 46 20 48 46 3D 31 20 4F ..1056 IF HF=1 O
01F9C0: 52 20 48 46 3D 33 20 54 48 45 4E 20 31 30 35 37 R HF=3 THEN 1057
01F9D0: 20 45 4C 53 45 20 31 30 35 39 0D 0A 31 30 35 37 ELSE 1059..1057
01F9E0: 20 43 4C 53 23 32 3A 49 4E 50 55 54 23 32 2C 22 CLS#2:INPUT#2,"
01F9F0: 48 4F 57 20 4D 55 43 48 20 50 45 52 20 57 45 45 HOW MUCH PER WEE
01FA00: 29 3A 47 4F 53 55 42 20 36 34 39 30 30 3A 49 46 ):GOSUB 64900:IF
01FA10: 20 46 4C 41 47 20 4F 52 20 4E 43 3E 30 20 54 48 FLAG OR NC>0 TH
01FA20: 45 4E 20 31 30 30 39 0D 0A 31 30 30 38 20 4C 4F EN 1009..1008 LO
01FA30: 43 41 54 45 20 32 34 2C 45 52 3A 50 52 49 4E 54 CATE 24,ER:PRINT
01FA40: 20 49 2B 36 3B 4A 24 28 49 29 3A 4C 4F 43 41 54 I+6;J$(I):LOCAT
01FA50: 45 20 32 35 2C 45 52 2B 31 3A 50 52 49 4E 54 20 E 25,ER+1:PRINT
01FA60: 4F 28 31 2C 49 29 3B 54 41 42 28 33 31 29 3B 4F O(1,I);TAB(31);O
01FA70: 28 32 2C 49 29 3A 4C 4F 43 41 54 45 20 32 35 2C (2,I):LOCATE 25,
01FA80: 45 52 2B 31 3A 50 52 49 4E 54 22 44 22 3A 45 52 ER+1:PRINT"D":ER
01FA90: 3D 45 52 2B 33 3A 5A 37 3D 5A 37 2B 31 0D 0A 31 =ER+3:Z7=Z7+1..1
01FAA0: 30 30 39 20 4E 45 58 54 3A 47 4F 53 55 42 20 38 009 NEXT:GOSUB 8
01FAB0: 39 30 3A 4C 4F 43 41 54 45 20 31 39 2C 32 32 3A 90:LOCATE 19,22:
01FAC0: 50 41 50 45 52 20 33 3A 50 52 49 4E 54 20 22 20 PAPER 3:PRINT "
01FAD0: 4D 45 4E 55 20 22 3A 50 41 50 45 52 20 30 0D 0A MENU ":PAPER 0..
01FAE0: 31 30 31 30 20 47 4F 53 55 42 20 38 35 30 0D 0A 1010 GOSUB 850..
01FAF0: 31 30 31 31 20 49 46 20 49 4E 24 3D 22 31 22 20 1011 IF IN$="1"
01FB00: 41 4E 44 20 58 28 32 31 29 3E 30 20 54 48 45 4E AND X(21)>0 THEN
01FB10: 20 50 52 49 4E 54 20 43 48 52 24 28 37 29 3B 3A PRINT CHR$(7);:
01FB20: 49 42 3D 32 31 3A 48 46 3D 31 3A 47 4F 54 4F 20 IB=21:HF=1:GOTO
01FB30: 32 31 37 0D 0A 31 30 31 32 20 49 46 20 49 4E 24 217..1012 IF IN$
01FB40: 3D 22 32 22 20 41 4E 44 20 58 28 32 32 29 3E 30 ="2" AND X(22)>0
01FB50: 20 54 48 45 4E 20 50 52 49 4E 54 20 43 48 52 24 THEN PRINT CHR$
01FB60: 28 37 29 3B 3A 49 42 3D 32 32 3A 48 46 3D 31 3A (7);:IB=22:HF=1:
01FB70: 47 4F 54 4F 20 32 31 37 0D 0A 31 30 31 33 20 49 GOTO 217..1013 I
01FB80: 46 20 49 4E 24 3D 22 33 22 20 41 4E 44 20 58 28 F IN$="3" AND X(
01FB90: 32 33 29 3E 30 20 54 48 45 4E 20 50 52 49 4E 54 23)>0 THEN PRINT
01FBA0: 20 43 48 52 24 28 37 29 3B 3A 49 42 3D 32 33 3A CHR$(7);:IB=23:
01FBB0: 48 46 3D 31 3A 47 4F 54 4F 20 32 31 37 0D 0A 31 HF=1:GOTO 217..1
01FBC0: 30 31 34 20 49 46 20 49 4E 24 3D 22 34 22 20 41 014 IF IN$="4" A
01FBD0: 4E 44 20 58 28 32 34 29 3E 30 20 54 48 45 4E 20 ND X(24)>0 THEN
01FBE0: 50 52 49 4E 54 20 43 48 52 24 28 37 29 3B 3A 49 PRINT CHR$(7);:I
01FBF0: 42 3D 32 34 3A 48 46 3D 32 3A 47 4F 54 4F 20 32 B=24:HF=2:GOTO 2
01FC00: 4B 20 22 3B 48 53 3A 49 46 20 48 53 3C 31 20 54 K ";HS:IF HS<1 T
01FC10: 48 45 4E 20 31 30 35 37 0D 0A 31 30 35 38 20 4C HEN 1057..1058 L
01FC20: 4F 43 41 54 45 20 35 2C 31 38 3A 50 52 49 4E 54 OCATE 5,18:PRINT
01FC30: 20 22 57 45 45 4B 4C 59 20 50 41 59 22 3B 54 41 "WEEKLY PAY";TA
01FC40: 42 28 32 31 29 3B 3A 54 45 4D 50 3D 48 53 3A 47 B(21);:TEMP=HS:G
01FC50: 4F 53 55 42 20 36 33 35 30 30 0D 0A 31 30 35 39 OSUB 63500..1059
01FC60: 20 49 46 20 48 46 3D 31 20 4F 52 20 48 46 3D 33 IF HF=1 OR HF=3
01FC70: 20 54 48 45 4E 20 31 30 36 30 20 45 4C 53 45 20 THEN 1060 ELSE
01FC80: 31 30 36 32 0D 0A 31 30 36 30 20 43 4C 53 23 32 1062..1060 CLS#2
01FC90: 3A 49 4E 50 55 54 23 32 2C 22 48 4F 57 20 4D 55 :INPUT#2,"HOW MU
01FCA0: 43 48 20 53 49 47 4E 49 4E 47 20 4F 4E 20 46 45 CH SIGNING ON FE
01FCB0: 45 20 22 3B 48 54 3A 43 4C 53 23 32 3A 49 46 20 E ";HT:CLS#2:IF
01FCC0: 48 54 3C 30 20 4F 52 20 28 48 54 2B 48 49 29 3E HT<0 OR (HT+HI)>
01FCD0: 41 49 20 41 4E 44 20 48 46 3C 33 20 54 48 45 4E AI AND HF<3 THEN
01FCE0: 20 31 30 36 30 0D 0A 31 30 36 31 20 5A 59 3D 30 1060..1061 ZY=0
01FCF0: 3A 43 4C 53 23 32 3A 4C 4F 43 41 54 45 20 35 2C :CLS#2:LOCATE 5,
01FD00: 31 39 3A 50 52 49 4E 54 20 22 53 49 47 4E 49 4E 19:PRINT "SIGNIN
01FD10: 47 20 4F 4E 20 46 45 45 20 20 22 3B 3A 54 45 4D G ON FEE ";:TEM
01FD20: 50 3D 48 54 3A 47 4F 53 55 42 20 36 33 35 30 30 P=HT:GOSUB 63500
01FD30: 3A 43 4C 53 23 32 3A 49 46 20 48 46 3D 33 20 41 :CLS#2:IF HF=3 A
01FD40: 4E 44 20 28 48 54 2B 48 49 29 3E 41 49 20 54 48 ND (HT+HI)>AI TH
01FD50: 45 4E 20 4C 4F 43 41 54 45 20 20 35 2C 32 31 3A EN LOCATE 5,21:
01FD60: 50 52 49 4E 54 20 22 44 49 52 45 43 54 4F 52 53 PRINT "DIRECTORS
01FD70: 20 4C 4F 41 4E 20 59 4F 55 20 22 3B 3A 54 45 4D LOAN YOU ";:TEM
01FD80: 50 3D 49 4E 54 20 28 28 48 49 2B 48 54 29 2D 41 P=INT ((HI+HT)-A
01FD90: 49 29 3A 47 4F 53 55 42 20 36 33 35 30 30 3A 5A I):GOSUB 63500:Z
01FDA0: 59 3D 41 49 3A 41 49 3D 28 48 49 2B 48 54 29 0D Y=AI:AI=(HI+HT).
01FDB0: 0A 31 30 36 32 20 48 55 3D 31 2B 49 4E 54 28 52 .1062 HU=1+INT(R
01FDC0: 4E 44 2A 32 30 29 2B 35 30 3A 48 55 3D 48 55 2A ND*20)+50:HU=HU*
01FDD0: 49 4E 54 28 48 28 49 42 29 29 2B 41 42 53 28 48 INT(H(IB))+ABS(H
01FDE0: 28 49 42 29 3E 39 2E 37 29 2A 31 30 30 30 3A 48 (IB)>9.7)*1000:H
01FDF0: 55 3D 48 55 2B 41 42 53 28 41 42 53 28 48 47 2D U=HU+ABS(ABS(HG-
01FE00: 31 37 0D 0A 31 30 31 35 20 49 46 20 49 4E 24 3D 17..1015 IF IN$=
01FE10: 22 35 22 20 41 4E 44 20 58 28 32 35 29 3E 30 20 "5" AND X(25)>0
01FE20: 54 48 45 4E 20 50 52 49 4E 54 20 43 48 52 24 28 THEN PRINT CHR$(
01FE30: 37 29 3B 3A 49 42 3D 32 35 3A 48 46 3D 32 3A 47 7);:IB=25:HF=2:G
01FE40: 4F 54 4F 20 32 31 37 0D 0A 31 30 31 36 20 49 46 OTO 217..1016 IF
01FE50: 20 49 4E 24 3D 22 36 22 20 41 4E 44 20 58 28 32 IN$="6" AND X(2
01FE60: 36 29 3E 30 20 54 48 45 4E 20 50 52 49 4E 54 20 6)>0 THEN PRINT
01FE70: 43 48 52 24 28 37 29 3B 3A 49 42 3D 32 36 3A 48 CHR$(7);:IB=26:H
01FE80: 46 3D 32 3A 47 4F 54 4F 20 32 31 37 0D 0A 31 30 F=2:GOTO 217..10
01FE90: 31 37 20 54 45 4D 50 24 3D 4A 24 28 31 29 3A 47 17 TEMP$=J$(1):G
01FEA0: 4F 53 55 42 20 36 34 39 30 30 3A 49 46 20 49 4E OSUB 64900:IF IN
01FEB0: 24 3D 22 37 22 20 41 4E 44 20 46 4C 41 47 3D 30 $="7" AND FLAG=0
01FEC0: 20 54 48 45 4E 20 50 52 49 4E 54 20 43 48 52 24 THEN PRINT CHR$
01FED0: 28 37 29 3B 3A 49 42 3D 31 3A 44 24 3D 22 59 22 (7);:IB=1:D$="Y"
01FEE0: 3A 48 57 3D 31 30 30 31 3A 47 4F 54 4F 20 39 30 :HW=1001:GOTO 90
01FEF0: 31 0D 0A 31 30 31 38 20 54 45 4D 50 24 3D 4A 24 1..1018 TEMP$=J$
01FF00: 28 32 29 3A 47 4F 53 55 42 20 36 34 39 30 30 3A (2):GOSUB 64900:
01FF10: 49 46 20 49 4E 24 3D 22 38 22 20 41 4E 44 20 46 IF IN$="8" AND F
01FF20: 4C 41 47 3D 30 20 54 48 45 4E 20 50 52 49 4E 54 LAG=0 THEN PRINT
01FF30: 20 43 48 52 24 28 37 29 3B 3A 49 42 3D 32 3A 44 CHR$(7);:IB=2:D
01FF40: 24 3D 22 59 22 3A 48 57 3D 31 30 30 31 3A 47 4F $="Y":HW=1001:GO
01FF50: 54 4F 20 39 30 32 0D 0A 31 30 31 39 20 54 45 4D TO 902..1019 TEM
01FF60: 50 24 3D 4A 24 28 33 29 3A 47 4F 53 55 42 20 36 P$=J$(3):GOSUB 6
01FF70: 34 39 30 30 3A 49 46 20 49 4E 24 3D 22 39 22 20 4900:IF IN$="9"
01FF80: 41 4E 44 20 46 4C 41 47 3D 30 20 54 48 45 4E 20 AND FLAG=0 THEN
01FF90: 50 52 49 4E 54 20 43 48 52 24 28 37 29 3B 3A 49 PRINT CHR$(7);:I
01FFA0: 42 3D 33 3A 44 24 3D 22 59 22 3A 48 57 3D 31 30 B=3:D$="Y":HW=10
01FFB0: 30 31 3A 47 4F 54 4F 20 39 30 32 0D 0A 31 30 32 01:GOTO 902..102
01FFC0: 30 20 47 4F 54 4F 20 31 30 31 30 0D 0A 31 30 32 0 GOTO 1010..102
01FFD0: 31 20 52 45 4D 0D 0A 31 30 32 32 20 44 24 3D 22 1 REM..1022 D$="
01FFE0: 52 22 3A 48 57 3D 31 30 32 32 3A 47 4F 54 4F 20 R":HW=1022:GOTO
01FFF0: 39 30 31 0D 0A 31 30 32 33 20 46 4F 52 20 49 3D 901..1023 FOR I=
020000: 41 50 29 3C 2D 31 29 2A 28 20 28 41 42 53 28 48 AP)<-1)*( (ABS(H
020010: 47 2D 41 50 29 29 2A 48 55 29 3A 48 56 3D 28 47 G-AP))*HU):HV=(G
020020: 28 49 42 29 2D 32 37 29 3A 48 56 3D 48 56 2B 41 (IB)-27):HV=HV+A
020030: 42 53 28 48 56 3C 31 29 2A 28 41 42 53 28 48 56 BS(HV<1)*(ABS(HV
020040: 29 2B 31 29 3A 48 55 3D 28 48 55 2F 48 56 29 3A )+1):HU=(HU/HV):
020050: 48 55 3D 48 55 2B 41 42 53 28 48 55 3C 35 30 29 HU=HU+ABS(HU<50)
020060: 2A 28 35 30 2D 41 42 53 28 48 55 29 29 3A 44 24 *(50-ABS(HU)):D$
020070: 3D 22 52 32 22 3A 48 57 3D 31 30 31 31 3A 47 4F ="R2":HW=1011:GO
020080: 54 4F 20 39 30 31 0D 0A 31 30 36 33 20 47 4F 53 TO 901..1063 GOS
020090: 55 42 20 31 30 30 32 3A 49 4E 50 55 54 20 23 32 UB 1002:INPUT #2
0200A0: 2C 22 4C 4F 41 4E 20 57 48 49 43 48 20 50 4C 41 ,"LOAN WHICH PLA
0200B0: 59 45 52 20 20 20 20 20 20 20 22 3B 48 4B 3A 49 YER ";HK:I
0200C0: 46 20 48 4B 3E 30 20 41 4E 44 20 48 4B 3C 32 31 F HK>0 AND HK<21
0200D0: 20 54 48 45 4E 20 31 30 33 34 20 45 4C 53 45 20 THEN 1034 ELSE
0200E0: 31 30 36 33 0D 0A 1A 39 29 2F 32 30 29 3A 49 46 1063...9)/20):IF
0200F0: 20 48 46 3C 3E 33 20 54 48 45 4E 20 31 30 32 34 HF<>3 THEN 1024
020100: 31 39 3A 50 52 49 4E 54 20 22 53 49 47 4E 49 4E 19:PRINT "SIGNIN
020110: 47 20 4F 4E 20 46 45 45 20 20 22 3B 3A 54 45 4D G ON FEE ";:TEM
020120: 50 3D 48 54 3A 47 4F 53 55 42 20 36 33 35 30 30 P=HT:GOSUB 63500
020130: 3A 43 4C 53 23 32 3A 49 46 20 48 46 3D 33 20 41 :CLS#2:IF HF=3 A
020140: 4E 44 20 28 48 54 2B 48 49 29 3E 41 49 20 54 48 ND (HT+HI)>AI TH
020150: 45 4E 20 4C 4F 43 41 54 45 20 20 35 2C 32 31 3A EN LOCATE 5,21:
020160: 50 52 49 4E 54 20 22 44 49 52 45 43 54 4F 52 53 PRINT "DIRECTORS
020170: 20 4C 4F 41 4E 20 59 4F 55 20 22 3B 3A 54 45 4D LOAN YOU ";:TEM
020180: 50 3D 49 4E 54 20 28 28 48 49 2B 48 54 29 2D 41 P=INT ((HI+HT)-A
020190: 49 29 3A 47 4F 53 55 42 20 36 33 35 30 30 3A 5A I):GOSUB 63500:Z
0201A0: 59 3D 41 49 3A 41 49 3D 28 48 49 2B 48 54 29 0D Y=AI:AI=(HI+HT).
0201B0: 0A 31 30 36 32 20 48 55 3D 31 2B 49 4E 54 28 52 .1062 HU=1+INT(R
0201C0: 4E 44 2A 32 30 29 2B 35 30 3A 48 55 3D 48 55 2A ND*20)+50:HU=HU*
0201D0: 49 4E 54 28 48 28 49 42 29 29 2B 41 42 53 28 48 INT(H(IB))+ABS(H
0201E0: 28 49 42 29 3E 39 2E 37 29 2A 31 30 30 30 3A 48 (IB)>9.7)*1000:H
0201F0: 55 3D 48 55 2B 41 42 53 28 41 42 53 28 48 47 2D U=HU+ABS(ABS(HG-
020200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
020210: 1B 00 01 00 02 09 4E E5 1B 00 41 02 00 00 00 02 ......N...A.....
020220: 1B 00 46 02 00 00 00 02 1B 00 42 02 00 00 00 02 ..F.......B.....
020230: 1B 00 47 02 00 00 00 02 1B 00 43 02 00 00 00 02 ..G.......C.....
020240: 1B 00 48 02 00 00 00 02 1B 00 44 02 00 00 00 02 ..H.......D.....
020250: 1B 00 49 02 00 00 00 02 1B 00 45 02 00 00 00 02 ..I.......E.....
020260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020300: 32 34 20 54 4F 20 32 36 3A 46 4C 41 47 3D 31 3A 24 TO 26:FLAG=1:
020310: 49 46 20 41 53 43 28 56 24 28 49 29 29 3D 33 32 IF ASC(V$(I))=32
020320: 20 54 48 45 4E 20 31 30 32 36 0D 0A 31 30 32 34 THEN 1026..1024
020330: 20 46 4F 52 20 4B 3D 31 20 54 4F 20 32 30 3A 49 FOR K=1 TO 20:I
020340: 46 20 56 24 28 49 29 3D 56 24 28 4B 29 20 41 4E F V$(I)=V$(K) AN
020350: 44 20 47 28 4B 29 3E 30 20 54 48 45 4E 20 46 4C D G(K)>0 THEN FL
020360: 41 47 3D 30 3A 4B 3D 32 30 0D 0A 31 30 32 35 20 AG=0:K=20..1025
020370: 4E 45 58 54 3A 49 46 20 46 4C 41 47 3D 31 20 54 NEXT:IF FLAG=1 T
020380: 48 45 4E 20 47 4F 53 55 42 20 32 30 30 0D 0A 31 HEN GOSUB 200..1
020390: 30 32 36 20 4E 45 58 54 3A 52 45 54 55 52 4E 0D 026 NEXT:RETURN.
0203A0: 0A 1A 3A 48 4C 3D 30 3A 43 4C 53 3A 50 52 49 4E ..:HL=0:CLS:PRIN
0203B0: 54 20 54 41 42 28 31 30 29 3B 22 42 55 59 49 4E T TAB(10);"BUYIN
0203C0: 47 22 3B 54 41 42 28 32 37 29 3B 22 4F 46 46 45 G";TAB(27);"OFFE
0203D0: 52 53 22 3A 4C 4F 43 41 54 45 20 31 30 2C 31 32 RS":LOCATE 10,12
0203E0: 3A 50 52 49 4E 54 20 22 53 45 4C 4C 49 4E 47 22 :PRINT "SELLING"
0203F0: 0D 0A 31 30 30 32 20 45 52 3D 33 3A 46 4F 52 20 ..1002 ER=3:FOR
020400: 28 32 29 3A 47 4F 53 55 42 20 36 34 39 30 30 3A (2):GOSUB 64900:
020410: 49 46 20 49 4E 24 3D 22 38 22 20 41 4E 44 20 46 IF IN$="8" AND F
020420: 4C 41 47 3D 30 20 54 48 45 4E 20 50 52 49 4E 54 LAG=0 THEN PRINT
020430: 20 43 48 52 24 28 37 29 3B 3A 49 42 3D 32 3A 44 CHR$(7);:IB=2:D
020440: 24 3D 22 59 22 3A 48 57 3D 31 30 30 31 3A 47 4F $="Y":HW=1001:GO
020450: 54 4F 20 39 30 32 0D 0A 31 30 31 39 20 54 45 4D TO 902..1019 TEM
020460: 50 24 3D 4A 24 28 33 29 3A 47 4F 53 55 42 20 36 P$=J$(3):GOSUB 6
020470: 34 39 30 30 3A 49 46 20 49 4E 24 3D 22 39 22 20 4900:IF IN$="9"
020480: 41 4E 44 20 46 4C 41 47 3D 30 20 54 48 45 4E 20 AND FLAG=0 THEN
020490: 50 52 49 4E 54 20 43 48 52 24 28 37 29 3B 3A 49 PRINT CHR$(7);:I
0204A0: 42 3D 33 3A 44 24 3D 22 59 22 3A 48 57 3D 31 30 B=3:D$="Y":HW=10
0204B0: 30 31 3A 47 4F 54 4F 20 39 30 32 0D 0A 31 30 32 01:GOTO 902..102
0204C0: 30 20 47 4F 54 4F 20 31 30 31 30 0D 0A 31 30 32 0 GOTO 1010..102
0204D0: 31 20 52 45 4D 0D 0A 31 30 32 32 20 44 24 3D 22 1 REM..1022 D$="
0204E0: 52 22 3A 48 57 3D 31 30 32 32 3A 47 4F 54 4F 20 R":HW=1022:GOTO
0204F0: 39 30 31 0D 0A 31 30 32 33 20 46 4F 52 20 49 3D 901..1023 FOR I=
020500: 29 3D 31 38 2B 49 4E 54 20 28 52 4E 44 2A 31 35 )=18+INT (RND*15
020510: 29 3A 54 28 32 38 29 3D 31 2B 49 4E 54 20 28 52 ):T(28)=1+INT (R
020520: 4E 44 2A 34 29 3A 48 28 32 38 29 3D 31 2B 28 52 ND*4):H(28)=1+(R
020530: 4E 44 2A 28 35 2D 48 47 29 29 3A 52 45 54 55 52 ND*(5-HG)):RETUR
020540: 4E 0D 0A 31 30 32 37 20 52 45 4D 0D 0A 31 30 32 N..1027 REM..102
020550: 38 20 52 41 3D 31 2B 49 4E 54 20 28 52 4E 44 2A 8 RA=1+INT (RND*
020560: 32 30 29 3A 49 46 20 52 41 3D 32 30 20 54 48 45 20):IF RA=20 THE
020570: 4E 20 31 30 33 30 0D 0A 31 30 32 39 20 4C 4F 43 N 1030..1029 LOC
020580: 41 54 45 20 31 33 2C 32 30 3A 50 52 49 4E 54 20 ATE 13,20:PRINT
020590: 22 52 45 2D 4E 45 47 4F 54 49 41 54 45 20 59 2F "RE-NEGOTIATE Y/
0205A0: 4E 22 3A 47 4F 53 55 42 20 36 34 31 30 30 3A 49 N":GOSUB 64100:I
0205B0: 46 20 49 4E 24 3D 22 4E 22 20 41 4E 44 20 48 46 F IN$="N" AND HF
0205C0: 3C 33 20 54 48 45 4E 20 31 30 30 31 20 45 4C 53 <3 THEN 1001 ELS
0205D0: 45 20 49 46 20 49 4E 24 3D 22 4E 22 20 41 4E 44 E IF IN$="N" AND
0205E0: 20 48 46 3D 33 20 54 48 45 4E 20 31 30 31 31 0D HF=3 THEN 1011.
0205F0: 0A 31 30 33 30 20 52 41 3D 31 2B 49 4E 54 20 28 .1030 RA=1+INT (
020600: 52 4E 44 2A 38 30 29 3A 49 46 20 59 24 28 52 41 RND*80):IF Y$(RA
020610: 29 3D 5A 24 20 54 48 45 4E 20 31 30 33 30 0D 0A )=Z$ THEN 1030..
020620: 31 30 33 31 20 54 28 32 37 29 3D 30 3A 54 28 32 1031 T(27)=0:T(2
020630: 38 29 3D 30 3A 4C 4F 43 41 54 45 20 35 2C 31 33 8)=0:LOCATE 5,13
020640: 3A 50 52 49 4E 54 20 22 4D 4F 4E 45 59 20 4F 46 :PRINT "MONEY OF
020650: 46 45 52 20 20 20 20 20 20 20 22 3B 3A 54 45 4D FER ";:TEM
020660: 50 3D 49 4E 54 28 45 56 29 3A 47 4F 53 55 42 20 P=INT(EV):GOSUB
020670: 36 33 35 30 30 3A 52 41 3D 31 2B 49 4E 54 20 28 63500:RA=1+INT (
020680: 52 4E 44 2A 35 29 3A 47 4F 53 55 42 20 38 39 32 RND*5):GOSUB 892
020690: 3A 49 46 20 52 41 3D 35 20 41 4E 44 20 45 54 3C :IF RA=5 AND ET<
0206A0: 32 30 20 41 4E 44 20 48 28 49 42 29 3E 31 2E 39 20 AND H(IB)>1.9
0206B0: 20 54 48 45 4E 20 31 30 33 32 20 45 4C 53 45 20 THEN 1032 ELSE
0206C0: 31 30 33 33 0D 0A 31 30 33 32 20 48 4A 3D 32 2B 1033..1032 HJ=2+
0206D0: 49 4E 54 28 52 4E 44 2A 31 39 29 3A 55 28 32 37 INT(RND*19):U(27
0206E0: 29 3D 48 4A 3A 4A 28 32 37 29 3D 34 32 3A 47 4F )=HJ:J(27)=42:GO
0206F0: 53 55 42 20 31 30 32 35 3A 48 28 32 37 29 3D 31 SUB 1025:H(27)=1
020700: 31 30 30 31 20 47 4F 53 55 42 20 33 33 32 3A 44 1001 GOSUB 332:D
020710: 24 3D 22 52 31 22 3A 48 57 3D 31 30 30 31 3A 47 $="R1":HW=1001:G
020720: 4F 54 4F 20 39 30 31 0D 0A 31 30 30 32 20 43 4C OTO 901..1002 CL
020730: 53 23 32 3B 49 4E 50 55 54 23 32 2C 22 48 4F 57 S#2;INPUT#2,"HOW
020740: 20 4D 41 4E 59 20 57 45 45 4B 53 20 43 4F 4E 54 MANY WEEKS CONT
020750: 52 41 43 54 20 22 3B 48 52 3A 49 46 20 48 52 3C RACT ";HR:IF HR<
020760: 32 20 54 48 45 4E 20 31 30 30 32 0D 0A 31 30 30 2 THEN 1002..100
020770: 33 20 4C 4F 43 41 54 45 20 35 2C 31 35 3A 50 52 3 LOCATE 5,15:PR
020780: 49 4E 54 20 22 43 4F 4E 54 52 41 43 54 22 3B 54 INT "CONTRACT";T
020790: 41 42 28 32 31 29 3B 48 52 3B 22 20 57 45 45 4B AB(21);HR;" WEEK
0207A0: 53 22 0D 0A 31 30 30 34 20 49 46 20 48 46 3D 31 S"..1004 IF HF=1
0207B0: 20 4F 52 20 48 46 3D 33 20 54 48 45 4E 20 31 30 OR HF=3 THEN 10
0207C0: 30 35 20 45 4C 53 45 20 31 30 30 37 0D 0A 31 30 05 ELSE 1007..10
0207D0: 30 35 20 43 4C 53 23 32 3A 49 4E 50 55 54 23 32 05 CLS#2:INPUT#2
0207E0: 2C 22 48 4F 57 20 4D 55 43 48 20 50 45 52 20 57 ,"HOW MUCH PER W
0207F0: 45 45 4B 20 20 22 3B 48 53 3A 49 46 20 48 53 3C EEK ";HS:IF HS<
020800: 31 20 54 48 45 4E 20 31 30 30 35 0D 0A 31 30 30 1 THEN 1005..100
020810: 36 20 50 52 49 4E 54 20 54 41 42 28 35 29 3B 22 6 PRINT TAB(5);"
020820: 57 45 45 4B 4C 59 20 50 41 59 22 3B 54 41 42 28 WEEKLY PAY";TAB(
020830: 32 31 29 3B 3A 54 45 4D 50 3D 48 53 3A 47 4F 53 21);:TEMP=HS:GOS
020840: 55 42 20 36 33 35 30 30 0D 0A 31 30 30 37 20 49 UB 63500..1007 I
020850: 46 20 48 46 3D 31 20 4F 52 20 48 46 3D 33 20 54 F HF=1 OR HF=3 T
020860: 48 45 4E 20 31 30 30 38 20 45 4C 53 45 20 31 30 HEN 1008 ELSE 10
020870: 31 30 0D 0A 31 30 30 38 20 43 4C 53 23 32 3A 49 10..1008 CLS#2:I
020880: 4E 50 55 54 23 32 2C 22 48 4F 57 20 4D 55 43 48 NPUT#2,"HOW MUCH
020890: 20 53 49 47 4E 49 4E 47 20 4F 4E 20 46 45 45 20 SIGNING ON FEE
0208A0: 22 3B 48 54 3A 49 46 20 48 54 3C 30 20 4F 52 20 ";HT:IF HT<0 OR
0208B0: 28 48 54 2B 48 49 29 3E 41 49 20 54 48 45 4E 20 (HT+HI)>AI THEN
0208C0: 31 30 30 38 0D 0A 31 30 30 39 20 50 52 49 4E 54 1008..1009 PRINT
0208D0: 20 54 41 42 28 35 29 3B 22 53 49 47 4E 49 4E 47 TAB(5);"SIGNING
0208E0: 20 4F 4E 20 46 45 45 20 20 22 3B 3A 54 45 4D 50 ON FEE ";:TEMP
0208F0: 3D 48 54 3A 47 4F 53 55 42 20 36 33 35 30 30 3A =HT:GOSUB 63500:
020900: 2B 49 4E 54 28 52 4E 44 2A 49 4E 54 28 48 28 49 +INT(RND*INT(H(I
020910: 42 29 2D 31 29 29 3A 48 28 32 37 29 3D 48 28 32 B)-1)):H(27)=H(2
020920: 37 29 2D 41 42 53 28 48 28 32 37 29 3E 35 29 2A 7)-ABS(H(27)>5)*
020930: 28 48 28 32 37 29 2D 35 29 3A 4C 4F 43 41 54 45 (H(27)-5):LOCATE
020940: 20 35 2C 31 34 3A 50 52 49 4E 54 20 22 4C 4F 41 5,14:PRINT "LOA
020950: 4E 20 22 3B 48 4A 3B 22 20 57 45 45 4B 53 22 3B N ";HJ;" WEEKS";
020960: 54 41 42 28 32 31 29 3B 50 4F 31 53 24 28 54 28 TAB(21);PO1S$(T(
020970: 32 37 29 29 3B 22 20 22 3B 56 24 28 32 37 29 3B 27));" ";V$(27);
020980: 54 41 42 28 33 32 29 3B 49 4E 54 28 48 28 32 37 TAB(32);INT(H(27
020990: 29 29 3B 54 41 42 28 33 35 29 3B 47 28 32 37 29 ));TAB(35);G(27)
0209A0: 0D 0A 31 30 33 33 20 52 41 3D 31 2B 49 4E 54 20 ..1033 RA=1+INT
0209B0: 28 52 4E 44 2A 31 30 29 3A 47 4F 53 55 42 20 38 (RND*10):GOSUB 8
0209C0: 39 32 3A 49 46 20 52 41 3D 39 20 41 4E 44 20 54 92:IF RA=9 AND T
0209D0: 28 32 37 29 3D 30 20 41 4E 44 20 45 54 3C 32 30 (27)=0 AND ET<20
0209E0: 20 41 4E 44 20 48 28 49 42 29 3E 32 2E 39 20 4F AND H(IB)>2.9 O
0209F0: 52 20 52 41 3D 39 20 41 4E 44 20 54 28 32 37 29 R RA=9 AND T(27)
020A00: 3E 30 20 41 4E 44 20 45 54 3C 31 39 20 41 4E 44 >0 AND ET<19 AND
020A10: 20 48 28 49 42 29 3E 32 2E 39 20 54 48 45 4E 20 H(IB)>2.9 THEN
020A20: 31 30 33 34 20 45 4C 53 45 20 31 30 33 35 0D 0A 1034 ELSE 1035..
020A30: 31 30 33 34 20 47 4F 53 55 42 20 31 30 32 36 3A 1034 GOSUB 1026:
020A40: 48 28 32 38 29 3D 31 2B 49 4E 54 28 52 4E 44 2A H(28)=1+INT(RND*
020A50: 49 4E 54 28 48 28 49 42 29 2D 32 29 29 3A 48 28 INT(H(IB)-2)):H(
020A60: 32 38 29 3D 48 28 32 38 29 2D 41 42 53 28 48 28 28)=H(28)-ABS(H(
020A70: 32 38 29 3E 35 29 2A 41 42 53 28 48 28 32 38 29 28)>5)*ABS(H(28)
020A80: 2D 35 29 3A 4C 4F 43 41 54 45 20 35 2C 31 35 3A -5):LOCATE 5,15:
020A90: 50 52 49 4E 54 20 22 46 52 45 45 20 54 52 41 4E PRINT "FREE TRAN
020AA0: 53 46 45 52 20 20 20 22 3B 50 4F 31 53 24 28 54 SFER ";PO1S$(T
020AB0: 28 32 38 29 29 3B 22 20 22 3B 56 24 28 32 38 29 (28));" ";V$(28)
020AC0: 3B 54 41 42 28 33 32 29 3B 49 4E 54 28 48 28 32 ;TAB(32);INT(H(2
020AD0: 38 29 29 3B 54 41 42 28 33 35 29 3B 47 28 32 38 8));TAB(35);G(28
020AE0: 29 0D 0A 31 30 33 35 20 4C 4F 43 41 54 45 20 31 )..1035 LOCATE 1
020AF0: 32 2C 31 39 3A 50 52 49 4E 54 20 22 44 4F 20 59 2,19:PRINT "DO Y
020B00: 43 4C 53 23 32 0D 0A 31 30 31 30 20 48 55 3D 31 CLS#2..1010 HU=1
020B10: 2B 49 4E 54 20 28 52 4E 44 2A 32 30 29 2B 35 30 +INT (RND*20)+50
020B20: 3A 48 55 3D 48 55 2A 49 4E 54 28 48 28 49 42 29 :HU=HU*INT(H(IB)
020B30: 29 2B 41 42 53 28 48 28 49 42 29 3E 39 2E 36 29 )+ABS(H(IB)>9.6)
020B40: 2A 31 30 30 30 3A 48 55 3D 48 55 2B 41 42 53 28 *1000:HU=HU+ABS(
020B50: 28 48 47 2D 41 50 29 3C 2D 31 29 2A 28 20 28 41 (HG-AP)<-1)*( (A
020B60: 42 53 28 48 47 2D 41 50 29 29 2A 48 55 29 3A 48 BS(HG-AP))*HU):H
020B70: 56 3D 47 28 49 42 29 2D 32 37 3A 48 56 3D 48 56 V=G(IB)-27:HV=HV
020B80: 2B 41 42 53 28 48 56 3C 31 29 2A 28 41 42 53 20 +ABS(HV<1)*(ABS
020B90: 48 56 2B 31 29 3A 48 55 3D 28 48 55 2F 48 56 29 HV+1):HU=(HU/HV)
020BA0: 3A 48 55 3D 48 55 2B 41 42 53 28 48 55 3C 35 30 :HU=HU+ABS(HU<50
020BB0: 29 2A 28 35 30 2D 41 42 53 28 48 55 29 29 0D 0A )*(50-ABS(HU))..
020BC0: 31 30 31 31 20 4F 58 3D 41 42 53 28 48 53 3C 3D 1011 OX=ABS(HS<=
020BD0: 48 55 29 3A 49 46 20 48 53 3C 3D 48 55 20 54 48 HU):IF HS<=HU TH
020BE0: 45 4E 20 31 30 33 39 0D 0A 31 30 31 32 20 48 56 EN 1039..1012 HV
020BF0: 3D 28 28 31 30 30 30 2A 49 4E 54 28 48 28 49 42 =((1000*INT(H(IB
020C00: 29 29 29 2F 41 50 29 3A 48 56 3D 48 56 2B 41 42 )))/AP):HV=HV+AB
020C10: 53 28 28 48 47 2D 41 50 29 3C 2D 31 29 2A 28 41 S((HG-AP)<-1)*(A
020C20: 42 53 20 28 48 47 2D 41 50 29 2A 34 29 2A 48 56 BS (HG-AP)*4)*HV
020C30: 0D 0A 31 30 31 33 20 4F 58 3D 41 42 53 28 48 54 ..1013 OX=ABS(HT
020C40: 3C 3D 48 56 29 2A 32 3A 49 46 20 48 54 3C 3D 48 <=HV)*2:IF HT<=H
020C50: 56 20 54 48 45 4E 20 31 30 33 39 0D 0A 31 30 31 V THEN 1039..101
020C60: 34 20 49 41 3D 28 47 28 49 42 29 2D 32 33 29 3A 4 IA=(G(IB)-23):
020C70: 49 41 3D 49 41 2B 41 42 53 28 49 41 3C 31 29 2A IA=IA+ABS(IA<1)*
020C80: 28 41 42 53 20 28 49 41 29 2B 31 29 3A 52 41 3D (ABS (IA)+1):RA=
020C90: 31 2B 49 4E 54 20 28 52 4E 44 2A 32 29 3A 49 41 1+INT (RND*2):IA
020CA0: 3D 49 41 2B 41 42 53 28 52 41 3D 32 29 3A 49 41 =IA+ABS(RA=2):IA
020CB0: 3D 49 41 2A 35 33 0D 0A 31 30 31 35 20 4F 58 3D =IA*53..1015 OX=
020CC0: 41 42 53 28 49 41 3C 3D 48 52 29 2A 33 3A 49 46 ABS(IA<=HR)*3:IF
020CD0: 20 49 41 3C 3D 48 52 20 54 48 45 4E 20 31 30 33 IA<=HR THEN 103
020CE0: 39 0D 0A 31 30 31 36 20 47 4F 53 55 42 20 31 30 9..1016 GOSUB 10
020CF0: 35 31 3A 4C 4F 43 41 54 45 20 37 2C 32 30 3A 50 51:LOCATE 7,20:P
020D00: 4F 55 20 41 43 43 45 50 54 20 59 2F 4E 22 3A 47 OU ACCEPT Y/N":G
020D10: 4F 53 55 42 20 38 35 30 3A 49 46 20 49 4E 24 3D OSUB 850:IF IN$=
020D20: 22 4E 22 20 54 48 45 4E 20 31 30 33 36 20 45 4C "N" THEN 1036 EL
020D30: 53 45 20 49 46 20 49 4E 24 3D 22 59 22 20 54 48 SE IF IN$="Y" TH
020D40: 45 4E 20 31 30 33 38 20 45 4C 53 45 20 31 30 33 EN 1038 ELSE 103
020D50: 35 0D 0A 31 30 33 36 20 52 41 3D 31 2B 49 4E 54 5..1036 RA=1+INT
020D60: 20 28 52 4E 44 2A 34 29 3A 49 46 20 52 41 3E 31 (RND*4):IF RA>1
020D70: 20 54 48 45 4E 20 31 30 30 31 0D 0A 31 30 33 37 THEN 1001..1037
020D80: 20 58 28 49 42 29 3D 30 3A 56 24 28 49 42 29 3D X(IB)=0:V$(IB)=
020D90: 53 50 41 43 45 24 28 38 29 3A 47 4F 54 4F 20 31 SPACE$(8):GOTO 1
020DA0: 30 30 31 0D 0A 31 30 33 38 20 52 41 3D 31 2B 49 001..1038 RA=1+I
020DB0: 4E 54 20 28 52 4E 44 2A 32 30 29 3A 49 46 20 52 NT (RND*20):IF R
020DC0: 41 3C 3E 31 20 54 48 45 4E 20 31 30 34 30 0D 0A A<>1 THEN 1040..
020DD0: 31 30 33 39 20 52 41 3D 31 2B 49 4E 54 28 52 4E 1039 RA=1+INT(RN
020DE0: 44 2A 37 29 3A 41 49 3D 41 49 2D 41 42 53 28 5A D*7):AI=AI-ABS(Z
020DF0: 59 3E 30 29 2A 41 49 3A 41 49 3D 41 49 2B 41 42 Y>0)*AI:AI=AI+AB
020E00: 53 28 5A 59 3E 30 29 2A 5A 59 3A 4C 4F 43 41 54 S(ZY>0)*ZY:LOCAT
020E10: 45 20 37 2C 32 30 3A 50 52 49 4E 54 20 56 24 28 E 7,20:PRINT V$(
020E20: 49 42 29 3B 22 20 52 45 46 55 53 45 53 20 54 4F IB);" REFUSES TO
020E30: 20 53 49 47 4E 20 20 20 20 20 20 22 3A 46 4F 52 SIGN ":FOR
020E40: 20 46 3D 31 20 54 4F 20 31 35 30 30 3A 4E 45 58 F=1 TO 1500:NEX
020E50: 54 3A 4C 4F 43 41 54 45 20 31 2C 32 30 3A 50 52 T:LOCATE 1,20:PR
020E60: 49 4E 54 20 53 50 41 43 45 24 28 34 30 29 3A 47 INT SPACE$(40):G
020E70: 4F 53 55 42 20 39 32 35 3A 49 46 20 48 46 3D 33 OSUB 925:IF HF=3
020E80: 20 41 4E 44 20 4E 54 3E 30 20 41 4E 44 20 52 41 AND NT>0 AND RA
020E90: 3E 31 20 54 48 45 4E 20 33 35 39 20 45 4C 53 45 >1 THEN 359 ELSE
020EA0: 20 49 46 20 48 46 3D 32 20 54 48 45 4E 20 31 30 IF HF=2 THEN 10
020EB0: 33 36 20 45 4C 53 45 20 31 30 35 30 0D 0A 31 30 36 ELSE 1050..10
020EC0: 34 30 20 47 4F 53 55 42 20 31 30 34 38 3A 47 4F 40 GOSUB 1048:GO
020ED0: 53 55 42 20 31 30 35 33 3A 41 49 3D 49 4E 54 28 SUB 1053:AI=INT(
020EE0: 41 49 2B 28 28 45 56 2F 33 29 2A 32 29 29 3A 46 AI+((EV/3)*2)):F
020EF0: 4F 52 20 49 3D 32 34 20 54 4F 20 32 36 3A 58 28 OR I=24 TO 26:X(
020F00: 52 49 4E 54 20 56 24 28 49 42 29 3B 22 20 41 47 RINT V$(IB);" AG
020F10: 52 45 45 53 20 54 4F 20 53 49 47 4E 22 2C 54 41 REES TO SIGN",TA
020F20: 42 28 31 33 29 3B 53 50 41 43 45 24 28 31 38 29 B(13);SPACE$(18)
020F30: 3A 56 28 32 2C 49 42 29 3D 48 52 3A 56 28 31 2C :V(2,IB)=HR:V(1,
020F40: 49 42 29 3D 48 53 3A 58 28 49 42 29 3D 58 28 49 IB)=HS:X(IB)=X(I
020F50: 42 29 2D 41 42 53 28 4E 54 3D 30 29 2A 41 42 53 B)-ABS(NT=0)*ABS
020F60: 28 58 28 49 42 29 29 3A 41 49 3D 49 4E 54 28 41 (X(IB)):AI=INT(A
020F70: 49 2D 41 42 53 28 48 46 3D 31 29 2A 28 48 49 2B I-ABS(HF=1)*(HI+
020F80: 48 54 29 2D 41 42 53 28 48 46 3D 33 29 2A 48 54 HT)-ABS(HF=3)*HT
020F90: 29 3A 46 4F 52 20 4B 3D 31 20 54 4F 20 31 35 30 ):FOR K=1 TO 150
020FA0: 30 3A 4E 45 58 54 3A 49 46 20 48 46 3D 33 20 41 0:NEXT:IF HF=3 A
020FB0: 4E 44 20 4E 54 3D 30 20 54 48 45 4E 20 31 30 30 ND NT=0 THEN 100
020FC0: 31 20 45 4C 53 45 20 49 46 20 48 46 3D 33 20 41 1 ELSE IF HF=3 A
020FD0: 4E 44 20 4E 54 3D 31 20 54 48 45 4E 20 33 36 36 ND NT=1 THEN 366
020FE0: 0D 0A 31 30 31 37 20 59 28 33 2C 49 42 2D 31 38 ..1017 Y(3,IB-18
020FF0: 29 3D 30 3A 59 28 34 2C 49 42 2D 31 38 29 3D 30 )=0:Y(4,IB-18)=0
021000: 3A 59 28 35 2C 49 42 2D 31 38 29 3D 30 3A 48 49 :Y(5,IB-18)=0:HI
021010: 3D 30 0D 0A 31 30 31 38 20 46 4F 52 20 49 3D 31 =0..1018 FOR I=1
021020: 20 54 4F 20 32 30 3A 54 45 4D 50 24 3D 56 24 28 TO 20:TEMP$=V$(
021030: 49 29 3A 47 4F 53 55 42 20 36 34 39 30 30 3A 49 I):GOSUB 64900:I
021040: 46 20 46 4C 41 47 20 54 48 45 4E 20 41 44 3D 49 F FLAG THEN AD=I
021050: 42 3A 47 4F 53 55 42 20 36 35 32 3A 59 3D 49 3A B:GOSUB 652:Y=I:
021060: 47 4F 53 55 42 20 35 32 35 3A 49 3D 32 31 0D 0A GOSUB 525:I=21..
021070: 31 30 31 39 20 4E 45 58 54 0D 0A 31 30 32 30 20 1019 NEXT..1020
021080: 49 46 20 48 4C 3C 3E 30 20 54 48 45 4E 20 47 4F IF HL<>0 THEN GO
021090: 53 55 42 20 31 30 32 34 0D 0A 31 30 32 31 20 48 SUB 1024..1021 H
0210A0: 4C 3D 49 42 3A 47 4F 53 55 42 20 31 30 32 34 3A L=IB:GOSUB 1024:
0210B0: 49 46 20 48 4B 3D 30 20 54 48 45 4E 20 31 30 30 IF HK=0 THEN 100
0210C0: 31 0D 0A 31 30 32 32 20 46 4F 52 20 49 3D 31 33 1..1022 FOR I=13
0210D0: 20 54 4F 20 32 30 3A 49 46 20 4A 28 49 29 3D 34 TO 20:IF J(I)=4
0210E0: 33 20 4F 52 20 4A 28 49 29 3D 33 32 20 4F 52 20 3 OR J(I)=32 OR
0210F0: 4A 28 49 29 3D 34 35 20 54 48 45 4E 20 4A 28 48 J(I)=45 THEN J(H
021100: 49 29 3D 58 28 49 29 2D 41 42 53 28 56 24 28 49 I)=X(I)-ABS(V$(I
021110: 29 3D 56 24 28 49 42 29 29 2A 58 28 49 29 3A 4E )=V$(IB))*X(I):N
021120: 45 58 54 3A 48 4C 3D 49 42 3A 47 4F 53 55 42 20 EXT:HL=IB:GOSUB
021130: 31 30 32 34 3A 49 46 20 54 28 32 37 29 3D 30 20 1024:IF T(27)=0
021140: 54 48 45 4E 20 31 30 34 32 0D 0A 31 30 34 31 20 THEN 1042..1041
021150: 56 28 32 2C 32 37 29 3D 48 4A 3A 56 28 31 2C 32 V(2,27)=HJ:V(1,2
021160: 37 29 3D 49 4E 54 28 48 28 32 37 29 29 2A 35 30 7)=INT(H(27))*50
021170: 3A 41 44 3D 32 37 3A 47 4F 53 55 42 20 31 30 34 :AD=27:GOSUB 104
021180: 35 0D 0A 31 30 34 32 20 49 46 20 54 28 32 38 29 5..1042 IF T(28)
021190: 3D 30 20 54 48 45 4E 20 31 30 34 34 0D 0A 31 30 =0 THEN 1044..10
0211A0: 34 33 20 48 4A 3D 30 3A 41 44 3D 32 38 3A 47 4F 43 HJ=0:AD=28:GO
0211B0: 53 55 42 20 31 30 34 35 3A 49 42 3D 59 3A 48 46 SUB 1045:IB=Y:HF
0211C0: 3D 33 3A 48 4C 3D 30 3A 4E 54 3D 30 3A 47 4F 54 =3:HL=0:NT=0:GOT
0211D0: 4F 20 32 31 37 0D 0A 31 30 34 34 20 47 4F 54 4F O 217..1044 GOTO
0211E0: 20 31 30 30 31 0D 0A 31 30 34 35 20 46 4F 52 20 1001..1045 FOR
0211F0: 49 3D 32 30 20 54 4F 20 31 20 53 54 45 50 20 2D I=20 TO 1 STEP -
021200: 31 3A 54 45 4D 50 24 3D 56 24 28 49 29 3A 47 4F 1:TEMP$=V$(I):GO
021210: 53 55 42 20 36 34 39 30 30 3A 49 46 20 46 4C 41 SUB 64900:IF FLA
021220: 47 20 54 48 45 4E 20 47 4F 53 55 42 20 36 35 32 G THEN GOSUB 652
021230: 3A 59 3D 49 3A 47 4F 53 55 42 20 35 32 35 3A 49 :Y=I:GOSUB 525:I
021240: 3D 30 0D 0A 31 30 34 36 20 4E 45 58 54 3A 52 45 =0..1046 NEXT:RE
021250: 54 55 52 4E 20 0D 0A 31 30 34 37 20 52 42 3D 49 TURN ..1047 RB=I
021260: 42 3A 4C 4F 43 41 54 45 20 37 2C 32 30 3A 50 52 B:LOCATE 7,20:PR
021270: 49 4E 54 20 56 24 28 52 42 29 3B 22 20 48 41 53 INT V$(RB);" HAS
021280: 20 47 4F 4E 45 20 54 4F 20 22 3B 59 24 28 49 42 GONE TO ";Y$(IB
021290: 29 2C 2C 53 50 41 43 45 24 28 34 30 29 3A 48 4C ),,SPACE$(40):HL
0212A0: 3D 52 42 3A 47 4F 53 55 42 20 31 30 32 34 3A 46 =RB:GOSUB 1024:F
0212B0: 4F 52 20 4B 3D 31 20 54 4F 20 31 35 30 3A 4E 45 OR K=1 TO 150:NE
0212C0: 58 54 3A 49 46 20 4E 54 3D 31 20 54 48 45 4E 20 XT:IF NT=1 THEN
0212D0: 33 36 36 0D 0A 31 30 34 38 20 46 4F 52 20 49 3D 366..1048 FOR I=
0212E0: 31 20 54 4F 20 32 30 3A 49 46 20 56 24 28 49 29 1 TO 20:IF V$(I)
0212F0: 3D 56 24 28 49 42 29 20 54 48 45 4E 20 49 42 3D =V$(IB) THEN IB=
021300: 4B 29 3D 37 36 3A 55 28 48 4B 29 3D 48 4A 3A 41 K)=76:U(HK)=HJ:A
021310: 44 3D 48 4B 3A 47 4F 53 55 42 20 36 35 32 3A 59 D=HK:GOSUB 652:Y
021320: 3D 49 3A 47 4F 53 55 42 20 35 32 35 3A 49 3D 39 =I:GOSUB 525:I=9
021330: 39 0D 0A 31 30 32 33 20 4E 45 58 54 3A 49 46 20 9..1023 NEXT:IF
021340: 49 3D 31 30 30 20 54 48 45 4E 20 31 30 30 31 0D I=100 THEN 1001.
021350: 0A 31 30 32 34 20 56 24 28 48 4C 29 3D 53 50 41 .1024 V$(HL)=SPA
021360: 43 45 24 28 38 29 3A 48 28 48 4C 29 3D 30 3A 54 CE$(8):H(HL)=0:T
021370: 28 48 4C 29 3D 30 3A 58 28 48 4C 29 3D 30 3A 45 (HL)=0:X(HL)=0:E
021380: 28 31 2C 48 4C 29 3D 30 3A 45 28 32 2C 48 4C 29 (1,HL)=0:E(2,HL)
021390: 3D 30 3A 47 28 48 4C 29 3D 30 3A 4A 28 48 4C 29 =0:G(HL)=0:J(HL)
0213A0: 3D 33 32 3A 55 28 48 4C 29 3D 30 3A 56 28 31 2C =32:U(HL)=0:V(1,
0213B0: 48 4C 29 3D 30 3A 56 28 32 2C 48 4C 29 3D 30 3A HL)=0:V(2,HL)=0:
0213C0: 52 45 54 55 52 4E 20 0D 0A 31 30 32 35 20 47 4F RETURN ..1025 GO
0213D0: 53 55 42 20 39 38 3A 56 24 28 32 37 29 3D 43 48 SUB 98:V$(27)=CH
0213E0: 52 24 28 5A 39 29 2B 22 2E 22 2B 4D 49 44 24 28 R$(Z9)+"."+MID$(
0213F0: 48 24 2C 52 43 2C 31 29 2B 4D 49 44 24 28 4D 24 H$,RC,1)+MID$(M$
021400: 2C 52 42 2C 31 29 2B 4D 49 44 24 28 48 24 2C 52 ,RB,1)+MID$(H$,R
021410: 44 2C 31 29 2B 45 24 28 52 41 29 3A 56 24 28 32 D,1)+E$(RA):V$(2
021420: 37 29 3D 56 24 28 32 37 29 2B 53 50 41 43 45 24 7)=V$(27)+SPACE$
021430: 28 38 2D 4C 45 4E 28 56 24 28 32 37 29 29 3A 47 (8-LEN(V$(27)):G
021440: 28 32 37 29 3D 31 38 2B 49 4E 54 20 28 52 4E 44 (27)=18+INT (RND
021450: 2A 31 35 29 3A 54 28 32 37 29 3D 31 2B 49 4E 54 *15):T(27)=1+INT
021460: 20 28 52 4E 44 2A 34 29 3A 48 28 32 37 29 3D 31 (RND*4):H(27)=1
021470: 2B 28 52 4E 44 2A 28 36 2D 48 47 29 29 3A 52 45 +(RND*(6-HG)):RE
021480: 54 55 52 4E 0D 0A 31 30 32 36 20 47 4F 53 55 42 TURN..1026 GOSUB
021490: 20 39 38 3A 56 24 28 32 38 29 3D 43 48 52 24 28 98:V$(28)=CHR$(
0214A0: 5A 39 29 2B 22 2E 22 2B 4D 49 44 24 28 48 24 2C Z9)+"."+MID$(H$,
0214B0: 52 43 2C 31 29 2B 4D 49 44 24 28 4D 24 2C 52 42 RC,1)+MID$(M$,RB
0214C0: 2C 31 29 2B 4D 49 44 24 28 48 24 2C 52 44 2C 31 ,1)+MID$(H$,RD,1
0214D0: 29 2B 45 24 28 52 41 29 3A 56 24 28 32 38 29 3D )+E$(RA):V$(28)=
0214E0: 56 24 28 32 38 29 2B 53 50 41 43 45 24 28 38 2D V$(28)+SPACE$(8-
0214F0: 4C 45 4E 28 56 24 28 32 38 29 29 3A 47 28 32 38 LEN(V$(28)):G(28
021500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
021510: 1C 00 01 00 02 09 4E E5 1C 00 41 02 00 00 00 02 ......N...A.....
021520: 1C 00 46 02 00 00 00 02 1C 00 42 02 00 00 00 02 ..F.......B.....
021530: 1C 00 47 02 00 00 00 02 1C 00 43 02 00 00 00 02 ..G.......C.....
021540: 1C 00 48 02 00 00 00 02 1C 00 44 02 00 00 00 02 ..H.......D.....
021550: 1C 00 49 02 00 00 00 02 1C 00 45 02 00 00 00 02 ..I.......E.....
021560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021600: 49 3A 49 3D 32 31 20 0D 0A 31 30 34 39 20 4E 45 I:I=21 ..1049 NE
021610: 58 54 3A 52 45 54 55 52 4E 20 0D 0A 31 30 35 30 XT:RETURN ..1050
021620: 20 49 3D 49 42 3A 47 4F 53 55 42 20 32 30 30 3A I=IB:GOSUB 200:
021630: 47 4F 54 4F 20 31 30 30 31 0D 0A 31 30 35 31 20 GOTO 1001..1051
021640: 49 46 20 50 41 3C 48 49 20 54 48 45 4E 20 50 41 IF PA<HI THEN PA
021650: 3D 48 49 3A 4F 24 28 31 29 3D 56 24 28 49 42 29 =HI:O$(1)=V$(IB)
021660: 0D 0A 31 30 35 32 20 52 45 54 55 52 4E 20 0D 0A ..1052 RETURN ..
021670: 31 30 35 33 20 49 46 20 50 42 3C 45 56 20 54 48 1053 IF PB<EV TH
021680: 45 4E 20 4F 24 28 32 29 3D 56 24 28 49 42 29 3A EN O$(2)=V$(IB):
021690: 50 42 3D 45 56 0D 0A 31 30 35 34 20 52 45 54 55 PB=EV..1054 RETU
0216A0: 52 4E 20 0D 0A 1A 31 0D 0A 31 30 30 32 20 43 4C RN ...1..1002 CL
0216B0: 53 23 32 3B 49 4E 50 55 54 23 32 2C 22 48 4F 57 S#2;INPUT#2,"HOW
0216C0: 20 4D 41 4E 59 20 57 45 45 4B 53 20 43 4F 4E 54 MANY WEEKS CONT
0216D0: 52 41 43 54 20 22 3B 48 52 3A 49 46 20 48 52 3C RACT ";HR:IF HR<
0216E0: 32 20 54 48 45 4E 20 31 30 30 32 0D 0A 31 30 30 2 THEN 1002..100
0216F0: 33 20 4C 4F 43 41 54 45 20 35 2C 31 35 3A 50 52 3 LOCATE 5,15:PR
021700: 31 3A 54 45 4D 50 24 3D 56 24 28 49 29 3A 47 4F 1:TEMP$=V$(I):GO
021710: 53 55 42 20 36 34 39 30 30 3A 49 46 20 46 4C 41 SUB 64900:IF FLA
021720: 47 20 54 48 45 4E 20 47 4F 53 55 42 20 36 35 32 G THEN GOSUB 652
021730: 3A 59 3D 49 3A 47 4F 53 55 42 20 35 32 35 3A 49 :Y=I:GOSUB 525:I
021740: 3D 30 0D 0A 31 30 34 36 20 4E 45 58 54 3A 52 45 =0..1046 NEXT:RE
021750: 54 55 52 4E 20 0D 0A 31 30 34 37 20 52 42 3D 49 TURN ..1047 RB=I
021760: 42 3A 4C 4F 43 41 54 45 20 37 2C 32 30 3A 50 52 B:LOCATE 7,20:PR
021770: 49 4E 54 20 56 24 28 52 42 29 3B 22 20 48 41 53 INT V$(RB);" HAS
021780: 20 47 4F 4E 45 20 54 4F 20 22 3B 59 24 28 49 42 GONE TO ";Y$(IB
021790: 29 2C 2C 53 50 41 43 45 24 28 34 30 29 3A 48 4C ),,SPACE$(40):HL
0217A0: 3D 52 42 3A 47 4F 53 55 42 20 31 30 32 34 3A 46 =RB:GOSUB 1024:F
0217B0: 4F 52 20 4B 3D 31 20 54 4F 20 31 35 30 3A 4E 45 OR K=1 TO 150:NE
0217C0: 58 54 3A 49 46 20 4E 54 3D 31 20 54 48 45 4E 20 XT:IF NT=1 THEN
0217D0: 33 36 36 0D 0A 31 30 34 38 20 46 4F 52 20 49 3D 366..1048 FOR I=
0217E0: 31 20 54 4F 20 32 30 3A 49 46 20 56 24 28 49 29 1 TO 20:IF V$(I)
0217F0: 3D 56 24 28 49 42 29 20 54 48 45 4E 20 49 42 3D =V$(IB) THEN IB=
021800: 45 3D 32 3A 47 4F 54 4F 20 31 30 30 37 0D 0A 31 E=2:GOTO 1007..1
021810: 30 30 36 20 49 46 20 42 45 3D 33 20 41 4E 44 20 006 IF BE=3 AND
021820: 47 5A 3D 31 30 20 4F 52 20 43 54 3D 39 20 4F 52 GZ=10 OR CT=9 OR
021830: 20 43 52 3D 39 20 54 48 45 4E 20 42 45 3D 33 20 CR=9 THEN BE=3
021840: 45 4C 53 45 20 42 45 3D 30 0D 0A 31 30 30 37 20 ELSE BE=0..1007
021850: 47 5A 3D 41 42 53 28 42 45 3C 3E 30 29 2A 33 0D GZ=ABS(BE<>0)*3.
021860: 0A 31 30 30 38 20 49 46 20 41 47 3C 31 38 20 54 .1008 IF AG<18 T
021870: 48 45 4E 20 31 30 31 38 0D 0A 31 30 30 39 20 49 HEN 1018..1009 I
021880: 46 20 41 50 3C 34 20 41 4E 44 20 41 47 3E 31 37 F AP<4 AND AG>17
021890: 20 54 48 45 4E 20 31 30 31 37 0D 0A 31 30 31 30 THEN 1017..1010
0218A0: 20 49 46 20 41 50 3D 34 20 41 4E 44 20 41 47 3C IF AP=4 AND AG<
0218B0: 32 30 20 54 48 45 4E 20 31 30 31 37 0D 0A 31 30 20 THEN 1017..10
0218C0: 31 31 20 47 4F 54 4F 20 31 30 31 35 0D 0A 31 30 11 GOTO 1015..10
0218D0: 31 32 20 42 58 3D 41 42 53 28 41 47 3C 34 29 2A 12 BX=ABS(AG<4)*
0218E0: 28 31 37 2B 41 47 29 2D 41 42 53 28 41 47 3E 31 (17+AG)-ABS(AG>1
0218F0: 37 29 2A 28 41 47 2D 31 37 29 3A 41 4B 3D 41 4B 7)*(AG-17):AK=AK
021900: 2B 41 42 53 28 41 47 3C 34 29 2A 36 30 2D 41 42 +ABS(AG<4)*60-AB
021910: 53 28 41 47 3E 31 37 29 2A 36 30 3A 47 4F 53 55 S(AG>17)*60:GOSU
021920: 42 20 38 31 33 3A 47 4F 53 55 42 20 38 31 34 3A B 813:GOSUB 814:
021930: 47 4F 53 55 42 20 31 30 32 31 3A 47 4F 53 55 42 GOSUB 1021:GOSUB
021940: 20 32 33 30 30 30 3A 47 4F 53 55 42 20 32 33 31 23000:GOSUB 231
021950: 30 30 3A 47 4F 53 55 42 20 37 35 35 3A 47 4F 53 00:GOSUB 755:GOS
021960: 55 42 20 38 35 38 3A 47 4F 53 55 42 20 34 31 36 UB 858:GOSUB 416
021970: 3A 47 4F 53 55 42 20 34 31 33 3A 47 4F 53 55 42 :GOSUB 413:GOSUB
021980: 20 33 33 32 3A 47 4F 53 55 42 20 31 30 34 31 3A 332:GOSUB 1041:
021990: 4E 46 3D 28 35 30 30 30 2B 49 4E 54 20 28 52 4E NF=(5000+INT (RN
0219A0: 44 2A 33 30 30 30 29 29 2F 41 50 3A 4F 59 3D 35 D*3000))/AP:OY=5
0219B0: 3A 47 4F 54 4F 20 35 30 0D 0A 31 30 31 33 20 52 :GOTO 50..1013 R
0219C0: 45 4D 0D 0A 31 30 31 34 20 52 45 4D 0D 0A 31 30 EM..1014 REM..10
0219D0: 31 35 20 4C 4F 43 41 54 45 20 38 2C 31 32 3A 50 15 LOCATE 8,12:P
0219E0: 52 49 4E 54 20 22 59 4F 55 20 48 41 56 45 20 42 RINT "YOU HAVE B
0219F0: 45 45 4E 20 53 41 43 4B 45 44 20 42 59 22 3A 50 EEN SACKED BY":P
021A00: 1E 86 03 00 0A 00 FC 03 A0 20 1E F2 03 00 06 00 ......... ......
021A10: FD 03 C5 00 1D 00 FE 03 03 00 00 C4 EF 22 52 22 ............."R"
021A20: 01 0D 00 00 48 D7 EF 1A FE 03 01 A0 20 1E 85 03 ....H....... ...
021A30: 00 37 00 FF 03 9E 20 0D 00 00 C9 EF 19 18 20 EC .7.... ....... .
021A40: 20 19 1A 01 0D 00 00 46 4C 41 C7 EF 0F 01 A1 20 ......FLA.....
021A50: FF 01 28 03 00 00 D6 28 0D 00 00 C9 29 29 EF 19 ..(....(....))..
021A60: 20 20 EB 20 1E 02 04 00 4D 00 00 04 9E 20 0D 00 . ....M.... ..
021A70: 00 CB EF 0F 20 EC 20 19 14 01 A1 20 03 00 00 D6 .... . .... ....
021A80: 28 0D 00 00 C9 29 EF 03 00 00 D6 28 0D 00 00 CB (....).....(....
021A90: 29 20 FA 20 0D 00 00 C7 28 0D 00 00 CB 29 EE 0E ) . ....(....)..
021AA0: 20 EB 20 0D 00 00 46 4C 41 C7 EF 0E 01 0D 00 00 . ...FLA.......
021AB0: CB EF 19 14 00 1A 00 01 04 B0 01 A1 20 0D 00 00 ............ ...
021AC0: 46 4C 41 C7 EF 0F 20 EB 20 9F 20 1E C8 00 00 08 FLA... . . .....
021AD0: 00 02 04 B0 01 C9 00 00 00 1A C9 00 00 00 1A 22 ..............."
021AE0: 01 A0 20 1E 86 03 00 1D 00 01 04 A1 20 03 00 00 .. ......... ...
021AF0: 49 CE EF 22 4D 22 20 EB 20 1E 06 00 20 01 97 20 I.."M" . ... ..
021B00: 1E 84 FD 01 A1 20 03 00 00 49 CE EF 22 37 22 20 ..... ...I.."7"
021B10: FA 20 0D 00 00 46 4C 41 C7 EF 0E 20 EB 20 BF 20 . ...FLA... . .
021B20: FF 03 28 15 29 3B 01 0D 00 00 49 C2 EF 0F 01 03 ..(.);....I.....
021B30: 00 00 C4 EF 22 59 22 01 0D 00 00 48 D7 EF 1A E9 ...."Y"....H....
021B40: 03 01 A0 20 1E 85 03 00 5E 00 FA 03 03 00 00 54 ... ....^......T
021B50: 45 4D D0 EF 03 00 00 CA 28 10 29 01 9F 20 1E 84 EM......(.).. ..
021B60: FD 01 A1 20 03 00 00 49 CE EF 22 38 22 20 FA 20 ... ...I.."8" .
021B70: 0D 00 00 46 4C 41 C7 EF 0E 20 EB 20 BF 20 FF 03 ...FLA... . . ..
021B80: 28 15 29 3B 01 0D 00 00 49 C2 EF 10 01 03 00 00 (.);....I.......
021B90: C4 EF 22 59 22 01 0D 00 00 48 D7 EF 1A E9 03 01 .."Y"....H......
021BA0: A0 20 1E 86 03 00 5E 00 FB 03 03 00 00 54 45 4D . ....^......TEM
021BB0: D0 EF 03 00 00 CA 28 11 29 01 9F 20 1E 84 FD 01 ......(.).. ....
021BC0: A1 20 03 00 00 49 CE EF 22 39 22 20 FA 20 0D 00 . ...I.."9" . ..
021BD0: 00 46 4C 41 C7 EF 0E 20 EB 20 BF 20 FF 03 28 15 .FLA... . . ..(.
021BE0: 29 3B 01 0D 00 00 49 C2 EF 11 01 03 00 00 C4 EF );....I.........
021BF0: 22 59 22 01 0D 00 00 48 D7 EF 1A E9 03 01 A0 20 "Y"....H.......
021C00: 52 49 4E 54 22 20 20 20 20 20 20 20 59 4F 55 52 RINT" YOUR
021C10: 20 46 45 4C 4C 4F 57 20 44 49 52 45 43 54 4F 52 FELLOW DIRECTOR
021C20: 53 22 3A 46 4F 52 20 4B 3D 31 20 54 4F 20 31 30 S":FOR K=1 TO 10
021C30: 30 30 30 3A 4E 45 58 54 3A 43 41 4C 4C 20 30 0D 000:NEXT:CALL 0.
021C40: 0A 31 30 31 36 20 41 4B 3D 41 4B 2D 41 42 53 28 .1016 AK=AK-ABS(
021C50: 41 50 3C 34 20 41 4E 44 20 41 47 3E 31 37 29 2A AP<4 AND AG>17)*
021C60: 34 30 30 3A 41 50 3D 41 50 2B 41 42 53 28 41 47 400:AP=AP+ABS(AG
021C70: 3E 31 37 20 41 4E 44 20 41 50 3C 34 29 2D 41 42 >17 AND AP<4)-AB
021C80: 53 28 41 47 3C 34 20 41 4E 44 20 41 50 3E 31 29 S(AG<4 AND AP>1)
021C90: 3A 47 4F 54 4F 20 31 30 31 32 0D 0A 31 30 31 37 :GOTO 1012..1017
021CA0: 20 4C 4F 43 41 54 45 20 37 2C 31 32 3A 50 52 49 LOCATE 7,12:PRI
021CB0: 4E 54 20 22 4D 41 4E 41 47 45 52 20 52 41 54 49 NT "MANAGER RATI
021CC0: 4E 47 20 22 3B 49 4E 54 28 4A 57 29 3B 22 25 22 NG ";INT(JW);"%"
021CD0: 3B 22 20 20 20 20 20 20 20 22 3B 54 41 42 28 37 ;" ";TAB(7
021CE0: 29 3B 22 53 45 41 53 4F 4E 20 54 49 43 4B 45 54 );"SEASON TICKET
021CF0: 20 53 41 4C 45 53 20 22 3B 3A 54 45 4D 50 3D 49 SALES ";:TEMP=I
021D00: 4E 54 28 44 4E 29 3A 47 4F 53 55 42 20 36 33 35 NT(DN):GOSUB 635
021D10: 30 30 3A 47 4F 53 55 42 20 38 36 33 3A 61 68 3D 00:GOSUB 863:ah=
021D20: 61 68 2B 31 3A 41 49 3D 49 4E 54 28 41 49 2B 44 ah+1:AI=INT(AI+D
021D30: 4E 29 3A 4E 53 3D 4E 53 2B 31 3A 47 4F 53 55 42 N):NS=NS+1:GOSUB
021D40: 20 31 30 33 33 3A 47 4F 53 55 42 20 31 30 34 33 1033:GOSUB 1043
021D50: 3A 47 4F 53 55 42 20 38 39 31 3A 4E 53 3D 4E 53 :GOSUB 891:NS=NS
021D60: 2D 41 42 53 28 4E 53 3D 31 33 29 3A 47 4F 54 4F -ABS(NS=13):GOTO
021D70: 20 31 30 31 36 0D 0A 31 30 31 38 20 49 46 20 41 1016..1018 IF A
021D80: 50 3D 31 20 41 4E 44 20 41 47 3E 35 20 54 48 45 P=1 AND AG>5 THE
021D90: 4E 20 35 39 33 20 45 4C 53 45 20 31 30 31 37 0D N 593 ELSE 1017.
021DA0: 0A 31 30 31 39 20 52 45 4D 0D 0A 31 30 32 30 20 .1019 REM..1020
021DB0: 4E 45 58 54 3A 4E 57 3D 52 41 3A 4E 56 3D 52 42 NEXT:NW=RA:NV=RB
021DC0: 3A 52 45 54 55 52 4E 20 0D 0A 31 30 32 31 20 46 :RETURN ..1021 F
021DD0: 4F 52 20 49 3D 32 20 54 4F 20 34 20 53 54 45 50 OR I=2 TO 4 STEP
021DE0: 20 32 3A 43 4E 3D 49 2A 32 30 3A 43 4D 3D 43 4E 2:CN=I*20:CM=CN
021DF0: 2D 31 39 3A 49 46 20 49 3D 32 20 54 48 45 4E 20 -19:IF I=2 THEN
021E00: 31 30 30 32 20 43 4C 53 3A 50 52 49 4E 54 20 54 1002 CLS:PRINT T
021E10: 41 42 28 31 37 29 3B 50 41 24 28 35 29 3B 5A 24 AB(17);PA$(5);Z$
021E20: 3B 50 41 24 28 31 29 2C 2C 54 41 42 28 37 29 3B ;PA$(1),,TAB(7);
021E30: 22 31 73 74 20 54 45 41 4D 22 3B 54 41 42 28 32 "1st TEAM";TAB(2
021E40: 37 29 3B 22 52 45 53 45 52 56 45 53 22 3A 45 56 7);"RESERVES":EV
021E50: 3D 32 3A 49 41 3D 34 3A 49 43 3D 32 3A 46 4F 52 =2:IA=4:IC=2:FOR
021E60: 20 49 3D 31 20 54 4F 20 32 30 0D 0A 31 30 30 33 I=1 TO 20..1003
021E70: 20 4C 4F 43 41 54 45 20 45 56 2C 49 41 3A 50 52 LOCATE EV,IA:PR
021E80: 49 4E 54 20 50 4F 31 53 24 28 54 28 49 29 29 3B INT PO1S$(T(I));
021E90: 22 20 22 3B 55 53 49 4E 47 22 23 23 22 3B 49 3B " ";USING"##";I;
021EA0: 3A 50 52 49 4E 54 22 20 22 3B 50 41 24 28 31 2B :PRINT" ";PA$(1+
021EB0: 41 42 53 28 47 28 49 29 3C 30 29 29 3B 56 24 28 ABS(G(I)<0));V$(
021EC0: 49 29 3B 50 41 24 28 31 29 3B 49 4E 54 28 48 28 I);PA$(1);INT(H(
021ED0: 49 29 29 3B 43 48 52 24 28 4A 28 49 29 29 3A 49 I));CHR$(J(I)):I
021EE0: 43 3D 49 43 2B 28 49 3D 39 29 3A 49 41 3D 49 41 C=IC+(I=9):IA=IA
021EF0: 2D 28 49 3D 31 31 29 2A 32 2B 28 49 3D 31 32 29 -(I=11)*2+(I=12)
021F00: 2A 31 34 3A 45 56 3D 45 56 2B 41 42 53 28 49 3D *14:EV=EV+ABS(I=
021F10: 31 32 29 2A 31 39 3A 49 41 3D 49 41 2B 31 3A 4E 12)*19:IA=IA+1:N
021F20: 45 58 54 3A 4C 4F 43 41 54 45 20 31 31 2C 31 36 EXT:LOCATE 11,16
021F30: 3A 50 52 49 4E 54 20 50 41 24 28 33 29 3B 22 53 :PRINT PA$(3);"S
021F40: 55 42 22 3B 50 41 24 28 31 29 3A 4C 4F 43 41 54 UB";PA$(1):LOCAT
021F50: 45 20 37 2C 32 30 0D 0A 31 30 30 34 20 50 52 49 E 7,20..1004 PRI
021F60: 4E 54 22 4D 4F 52 41 4C 45 20 22 3B 28 4D 45 2F NT"MORALE ";(ME/
021F70: 31 30 29 3A 47 4F 53 55 42 20 38 39 30 3A 4C 4F 10):GOSUB 890:LO
021F80: 43 41 54 45 20 37 2C 31 39 3A 50 52 49 4E 54 20 CATE 7,19:PRINT
021F90: 50 41 24 28 32 29 3B 22 54 45 4D 50 45 52 20 22 PA$(2);"TEMPER "
021FA0: 3B 50 55 3B 50 41 24 28 31 29 0D 0A 31 30 30 35 ;PU;PA$(1)..1005
021FB0: 20 47 4F 53 55 42 20 33 33 32 3A 45 52 3D 31 34 GOSUB 332:ER=14
021FC0: 3A 45 53 3D 32 33 3A 47 4F 53 55 42 20 34 30 3A :ES=23:GOSUB 40:
021FD0: 52 45 54 55 52 4E 0D 0A 1A 0D 00 00 45 D2 EF 19 RETURN......E...
021FE0: 0E 01 0D 00 00 45 D3 EF 19 17 01 9F 20 1E 28 00 .....E...... .(.
021FF0: 01 C9 00 00 00 1A 52 49 4E 54 20 50 4F 53 24 28 ......RINT POS$(
022000: 47 4F 53 55 42 20 31 30 32 33 20 45 4C 53 45 20 GOSUB 1023 ELSE
022010: 47 4F 53 55 42 20 31 30 32 35 0D 0A 31 30 32 32 GOSUB 1025..1022
022020: 20 4E 45 58 54 3A 52 45 54 55 52 4E 20 0D 0A 31 NEXT:RETURN ..1
022030: 30 32 33 20 47 4F 53 55 42 20 31 30 32 36 3A 47 023 GOSUB 1026:G
022040: 4F 53 55 42 20 31 30 32 38 3A 47 4F 53 55 42 20 OSUB 1028:GOSUB
022050: 31 30 32 37 3A 47 4F 54 4F 20 31 30 32 38 0D 0A 1027:GOTO 1028..
022060: 31 30 32 34 20 52 45 4D 0D 0A 31 30 32 35 20 47 1024 REM..1025 G
022070: 4F 53 55 42 20 31 30 32 37 3A 47 4F 53 55 42 20 OSUB 1027:GOSUB
022080: 31 30 32 38 3A 52 41 3D 31 2B 49 4E 54 20 28 52 1028:RA=1+INT (R
022090: 4E 44 2A 31 36 29 3A 44 24 3D 59 24 28 38 30 29 ND*16):D$=Y$(80)
0220A0: 3A 59 24 28 38 30 29 3D 59 24 28 38 30 2B 52 41 :Y$(80)=Y$(80+RA
0220B0: 29 3A 59 24 28 38 30 2B 52 41 29 3D 44 24 3A 52 ):Y$(80+RA)=D$:R
0220C0: 45 54 55 52 4E 20 0D 0A 31 30 32 36 20 51 4E 3D ETURN ..1026 QN=
0220D0: 43 4E 2D 32 3A 51 4F 3D 43 4E 2D 31 3A 51 51 3D CN-2:QO=CN-1:QQ=
0220E0: 43 4E 3A 51 50 3D 43 4E 2B 31 3A 51 52 3D 51 50 CN:QP=CN+1:QR=QP
0220F0: 2B 31 3A 51 53 3D 51 50 2B 32 3A 52 45 54 55 52 +1:QS=QP+2:RETUR
022100: 4E 20 0D 0A 31 30 32 37 20 51 4E 3D 43 4D 3A 51 N ..1027 QN=CM:Q
022110: 4F 3D 43 4D 2B 31 3A 51 51 3D 43 4D 2B 32 3A 51 O=CM+1:QQ=CM+2:Q
022120: 50 3D 43 4D 2D 33 3A 51 52 3D 51 50 2B 31 3A 51 P=CM-3:QR=QP+1:Q
022130: 53 3D 51 50 2B 32 3A 52 45 54 55 52 4E 20 0D 0A S=QP+2:RETURN ..
022140: 31 30 32 38 20 58 24 3D 59 24 28 51 4E 29 3A 44 1028 X$=Y$(QN):D
022150: 24 3D 59 24 28 51 4F 29 3A 55 24 3D 59 24 28 51 $=Y$(QO):U$=Y$(Q
022160: 51 29 3A 59 24 28 51 4E 29 3D 59 24 28 51 50 29 Q):Y$(QN)=Y$(QP)
022170: 3A 59 24 28 51 4F 29 3D 59 24 28 51 52 29 3A 59 :Y$(QO)=Y$(QR):Y
022180: 24 28 51 51 29 3D 59 24 28 51 53 29 3A 59 24 28 $(QQ)=Y$(QS):Y$(
022190: 51 50 29 3D 58 24 3A 59 24 28 51 52 29 3D 44 24 QP)=X$:Y$(QR)=D$
0221A0: 3A 59 24 28 51 53 29 3D 55 24 3A 52 45 54 55 52 :Y$(QS)=U$:RETUR
0221B0: 4E 20 0D 0A 31 30 32 39 20 52 45 4D 0D 0A 31 30 N ..1029 REM..10
0221C0: 33 30 20 52 45 4D 0D 0A 31 30 33 31 20 46 4F 52 30 REM..1031 FOR
0221D0: 20 49 3D 31 20 54 4F 20 32 30 3A 54 45 4D 50 24 I=1 TO 20:TEMP$
0221E0: 3D 56 24 28 49 29 3A 47 4F 53 55 42 20 36 34 39 =V$(I):GOSUB 649
0221F0: 30 30 3A 49 46 20 45 28 31 2C 49 29 3C 30 20 41 00:IF E(1,I)<0 A
022200: 48 D4 F4 0D 00 00 48 C9 29 EE 0D 00 00 41 C9 20 H.....H.)....A.
022210: EB 20 1E F0 03 00 37 00 F1 03 BF 20 EA 28 13 29 . ....7.... .(.)
022220: 3B 22 53 49 47 4E 49 4E 47 20 4F 4E 20 46 45 45 ;"SIGNING ON FEE
022230: 20 20 22 3B 01 0D 00 00 54 45 4D D0 EF 0D 00 00 ";....TEM.....
022240: 48 D4 01 9F 20 1E 0C F8 01 8A 23 10 00 03 01 F2 H... .....#.....
022250: 03 0D 00 00 48 D5 EF 0F F4 FF 0C 20 28 FF 45 F6 ....H...... (.E.
022260: 19 14 29 F4 19 32 01 0D 00 00 48 D5 EF 0D 00 00 ..)..2....H.....
022270: 48 D5 F6 FF 0C 28 0D 00 00 C8 28 0D 00 00 49 C2 H....(....(...I.
022280: 29 29 F4 FF 00 28 0D 00 00 C8 28 0D 00 00 49 C2 ))...(....(...I.
022290: 29 EE 1F 9A 99 99 19 84 29 F6 1A E8 03 01 0D 00 ).......).......
0222A0: 00 48 D5 EF 0D 00 00 48 D5 F4 FF 00 28 28 0D 00 .H.....H....((..
0222B0: 00 48 C7 F5 0D 00 00 41 D0 29 F1 F5 0F 29 F6 28 .H.....A.)...).(
0222C0: 20 28 FF 00 28 0D 00 00 48 C7 F5 0D 00 00 41 D0 (..(...H.....A.
0222D0: 29 29 F6 0D 00 00 48 D5 29 01 0D 00 00 48 D6 EF ))....H.)....H..
0222E0: 0D 00 00 C7 28 0D 00 00 49 C2 29 F5 19 1B 01 0D ....(...I.).....
0222F0: 00 00 48 D6 EF 0D 00 00 48 D6 F4 FF 00 28 0D 00 ..H.....H....(..
022300: 00 48 D6 F1 0F 29 F6 28 FF 00 20 0D 00 00 48 D6 .H...).(.. ...H.
022310: F4 0F 29 01 0D 00 00 48 D5 EF 28 0D 00 00 48 D5 ..)....H..(...H.
022320: F7 0D 00 00 48 D6 29 01 0D 00 00 48 D5 EF 0D 00 ....H.)....H....
022330: 00 48 D5 F4 FF 00 28 0D 00 00 48 D5 F1 19 32 29 .H....(...H...2)
022340: F6 28 19 32 F5 FF 00 28 0D 00 00 48 D5 29 29 00 .(.2...(...H.)).
022350: 2E 00 F3 03 0D 00 00 4F D8 EF FF 00 28 0D 00 00 .......O....(...
022360: 48 D3 F3 0D 00 00 48 D5 29 01 A1 20 0D 00 00 48 H.....H.).. ...H
022370: D3 F3 0D 00 00 48 D5 20 EB 20 1E 0F 04 00 64 00 .....H. . ....d.
022380: F4 03 0D 00 00 48 D6 EF 28 28 1A E8 03 F6 FF 0C .....H..((......
022390: 28 0D 00 00 C8 28 0D 00 00 49 C2 29 29 29 F7 0D (....(...I.)))..
0223A0: 00 00 41 D0 29 01 0D 00 00 48 D6 EF 0D 00 00 48 ..A.)....H.....H
0223B0: D6 F4 FF 00 28 28 0D 00 00 48 C7 F5 0D 00 00 41 ....((...H.....A
0223C0: D0 29 F1 F5 0F 29 F6 28 FF 00 20 28 0D 00 00 48 .)...).(.. (...H
0223D0: C7 F5 0D 00 00 41 D0 29 F6 12 29 F6 0D 00 00 48 .....A.)..)....H
0223E0: D6 00 30 00 F5 03 0D 00 00 4F D8 EF FF 00 28 0D ..0......O....(.
0223F0: 00 00 48 D4 F3 0D 00 00 48 D6 29 F6 10 01 A1 20 ..H.....H.)....
022400: 4E 44 20 46 4C 41 47 20 54 48 45 4E 20 47 4F 53 ND FLAG THEN GOS
022410: 55 42 20 32 30 30 0D 0A 31 30 33 32 20 4E 45 58 UB 200..1032 NEX
022420: 54 3A 52 45 54 55 52 4E 20 0D 0A 31 30 33 33 20 T:RETURN ..1033
022430: 46 4F 52 20 49 3D 31 20 54 4F 20 34 3A 52 41 3D FOR I=1 TO 4:RA=
022440: 49 4E 54 20 28 49 2A 32 30 29 2D 31 39 3A 49 46 INT (I*20)-19:IF
022450: 20 41 50 3D 49 20 54 48 45 4E 20 31 30 33 35 0D AP=I THEN 1035.
022460: 0A 31 30 33 34 20 46 4F 52 20 4B 3D 31 20 54 4F .1034 FOR K=1 TO
022470: 20 31 30 3A 47 4F 53 55 42 20 31 30 33 38 3A 52 10:GOSUB 1038:R
022480: 43 3D 52 42 3A 47 4F 53 55 42 20 31 30 33 38 3A C=RB:GOSUB 1038:
022490: 44 24 3D 59 24 28 52 43 29 3A 59 24 28 52 43 29 D$=Y$(RC):Y$(RC)
0224A0: 3D 59 24 28 52 42 29 3A 59 24 28 52 42 29 3D 44 =Y$(RB):Y$(RB)=D
0224B0: 24 3A 4E 45 58 54 0D 0A 31 30 33 35 20 43 4C 53 $:NEXT..1035 CLS
0224C0: 3A 50 52 49 4E 54 20 54 41 42 28 31 36 29 3B 22 :PRINT TAB(16);"
0224D0: 44 49 56 49 53 49 4F 4E 20 22 3B 49 0D 0A 31 30 DIVISION ";I..10
0224E0: 33 36 20 46 4F 52 20 4B 3D 31 20 54 4F 20 32 30 36 FOR K=1 TO 20
0224F0: 3A 47 4F 53 55 42 20 31 30 34 36 3A 4E 45 58 54 :GOSUB 1046:NEXT
022500: 3A 47 4F 53 55 42 20 31 30 33 39 0D 0A 31 30 33 :GOSUB 1039..103
022510: 37 20 4E 45 58 54 3A 47 4F 54 4F 20 31 30 33 39 7 NEXT:GOTO 1039
022520: 0D 0A 31 30 33 38 20 52 42 3D 52 41 2B 49 4E 54 ..1038 RB=RA+INT
022530: 20 28 52 4E 44 2A 32 30 29 3A 52 45 54 55 52 4E (RND*20):RETURN
022540: 20 0D 0A 31 30 33 39 20 4C 4F 43 41 54 45 20 31 ..1039 LOCATE 1
022550: 36 2C 32 33 3A 50 52 49 4E 54 20 70 61 24 28 32 6,23:PRINT pa$(2
022560: 29 3B 22 20 43 4F 4E 54 49 4E 55 45 20 22 3B 70 );" CONTINUE ";p
022570: 61 24 28 31 29 3A 43 41 4C 4C 20 26 42 42 30 33 a$(1):CALL &BB03
022580: 3A 47 4F 53 55 42 20 36 34 30 30 30 3A 49 46 20 :GOSUB 64000:IF
022590: 49 4E 24 3D 22 43 22 20 54 48 45 4E 20 52 45 54 IN$="C" THEN RET
0225A0: 55 52 4E 0D 0A 31 30 34 30 20 47 4F 54 4F 20 31 URN..1040 GOTO 1
0225B0: 30 33 39 0D 0A 31 30 34 31 20 46 4F 52 20 49 3D 039..1041 FOR I=
0225C0: 36 20 54 4F 20 31 32 3A 59 28 35 2C 49 29 3D 59 6 TO 12:Y(5,I)=Y
0225D0: 28 35 2C 49 29 2B 41 42 53 28 59 28 34 2C 49 29 (5,I)+ABS(Y(4,I)
0225E0: 3E 30 29 3A 49 46 20 59 28 35 2C 49 29 3D 31 39 >0):IF Y(5,I)=19
0225F0: 20 54 48 45 4E 20 49 24 28 49 29 3D 22 22 3A 4E THEN I$(I)="":N
022600: 31 30 30 31 20 4F 5A 3D 30 3A 43 5A 3D 30 3A 47 1001 OZ=0:CZ=0:G
022610: 4F 53 55 42 20 38 39 31 3A 47 4F 53 55 42 20 37 OSUB 891:GOSUB 7
022620: 36 37 3A 47 4F 53 55 42 20 37 35 31 3A 47 4F 53 67:GOSUB 751:GOS
022630: 55 42 20 31 30 33 31 0D 0A 31 30 30 32 20 43 4C UB 1031..1002 CL
022640: 53 3A 47 4F 53 55 42 20 38 39 32 3A 45 54 3D 45 S:GOSUB 892:ET=E
022650: 54 2D 31 32 3A 4A 57 3D 49 4E 54 28 38 34 2D 28 T-12:JW=INT(84-(
022660: 41 47 2A 34 29 2B 28 43 54 2F 32 29 2B 28 43 52 AG*4)+(CT/2)+(CR
022670: 2F 32 29 2B 28 47 5A 2F 32 29 29 2B 49 4E 54 28 /2)+(GZ/2))+INT(
022680: 45 54 2F 32 2E 35 29 3A 52 41 3D 49 4E 54 20 28 ET/2.5):RA=INT (
022690: 41 49 2F 28 28 39 39 39 39 39 39 2F 41 50 29 2F AI/((999999/AP)/
0226A0: 34 29 29 3A 52 41 3D 52 41 2D 28 52 41 3E 34 29 4)):RA=RA-(RA>4)
0226B0: 2A 28 52 41 2D 34 29 3A 4A 57 3D 49 4E 54 28 4A *(RA-4):JW=INT(J
0226C0: 57 2B 52 41 29 3A 49 46 20 41 47 3E 33 20 54 48 W+RA):IF AG>3 TH
0226D0: 45 4E 20 31 30 30 34 0D 0A 31 30 30 33 20 45 45 EN 1004..1003 EE
0226E0: 3D 49 4E 54 20 28 35 30 30 30 30 2F 41 50 29 2F =INT (50000/AP)/
0226F0: 41 47 3A 4C 4F 43 41 54 45 20 31 32 2C 38 3A 50 AG:LOCATE 12,8:P
022700: 52 49 4E 54 20 22 4C 45 41 47 55 45 20 50 52 49 RINT "LEAGUE PRI
022710: 5A 45 20 4D 4F 4E 45 59 22 2C 2C 54 41 42 28 31 ZE MONEY",,TAB(1
022720: 37 29 3B 3A 54 45 4D 50 3D 49 4E 54 28 45 45 29 7);:TEMP=INT(EE)
022730: 3A 47 4F 53 55 42 20 36 33 35 30 30 3A 41 49 3D :GOSUB 63500:AI=
022740: 49 4E 54 28 41 49 2B 45 45 29 0D 0A 31 30 30 34 INT(AI+EE)..1004
022750: 20 4B 28 4E 53 2C 36 29 3D 41 42 53 28 43 54 3D K(NS,6)=ABS(CT=
022760: 39 29 3A 4B 28 4E 53 2C 37 29 3D 41 42 53 28 43 9):K(NS,7)=ABS(C
022770: 52 3D 39 29 3A 4B 28 4E 53 2C 38 29 3D 41 42 53 R=9):K(NS,8)=ABS
022780: 28 42 45 3E 30 20 41 4E 44 20 47 5A 3D 31 30 29 (BE>0 AND GZ=10)
022790: 3A 49 46 20 42 45 3D 31 20 41 4E 44 20 47 5A 3D :IF BE=1 AND GZ=
0227A0: 31 30 20 4F 52 20 41 50 3D 31 20 41 4E 44 20 41 10 OR AP=1 AND A
0227B0: 47 3D 31 20 54 48 45 4E 20 42 45 3D 31 3A 47 4F G=1 THEN BE=1:GO
0227C0: 54 4F 20 31 30 30 37 0D 0A 31 30 30 35 20 49 46 TO 1007..1005 IF
0227D0: 20 42 45 3D 32 20 41 4E 44 20 47 5A 3D 31 30 20 BE=2 AND GZ=10
0227E0: 4F 52 20 41 50 3D 31 20 41 4E 44 20 41 47 3E 31 OR AP=1 AND AG>1
0227F0: 20 41 4E 44 20 41 47 3C 36 20 54 48 45 4E 20 42 AND AG<6 THEN B
022800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
022810: 1D 00 01 00 02 09 4E E5 1D 00 41 02 00 00 00 02 ......N...A.....
022820: 1D 00 46 02 00 00 00 02 1D 00 42 02 00 00 00 02 ..F.......B.....
022830: 1D 00 47 02 00 00 00 02 1D 00 43 02 00 00 00 02 ..G.......C.....
022840: 1D 00 48 02 00 00 00 02 1D 00 44 02 00 00 00 02 ..H.......D.....
022850: 1D 00 49 02 00 00 00 02 1D 00 45 02 00 00 00 02 ..I.......E.....
022860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022900: 4F 3D 4E 4F 2D 31 3A 46 4F 52 20 4A 3D 31 20 54 O=NO-1:FOR J=1 T
022910: 4F 20 35 3A 59 28 4A 2C 49 29 3D 30 3A 4E 45 58 O 5:Y(J,I)=0:NEX
022920: 54 0D 0A 31 30 34 32 20 4E 45 58 54 3A 52 45 54 T..1042 NEXT:RET
022930: 55 52 4E 20 0D 0A 31 30 34 33 20 49 46 20 4E 53 URN ..1043 IF NS
022940: 3C 31 33 20 54 48 45 4E 20 52 45 54 55 52 4E 0D <13 THEN RETURN.
022950: 0A 31 30 34 34 20 46 4F 52 20 49 3D 32 20 54 4F .1044 FOR I=2 TO
022960: 20 31 32 3A 46 4F 52 20 4A 3D 31 20 54 4F 20 38 12:FOR J=1 TO 8
022970: 3A 4B 28 49 2D 31 2C 4A 29 3D 4B 28 49 2C 4A 29 :K(I-1,J)=K(I,J)
022980: 3A 49 46 20 49 3D 31 32 20 54 48 45 4E 20 4B 28 :IF I=12 THEN K(
022990: 49 2C 4A 29 3D 30 0D 0A 31 30 34 35 20 4E 45 58 I,J)=0..1045 NEX
0229A0: 54 3A 4E 45 58 54 3A 52 45 54 55 52 4E 20 0D 0A T:NEXT:RETURN ..
0229B0: 31 30 34 36 20 49 46 20 49 3D 31 20 41 4E 44 20 1046 IF I=1 AND
0229C0: 4B 3E 31 37 20 4F 52 20 49 3D 31 20 41 4E 44 20 K>17 OR I=1 AND
0229D0: 4B 3D 31 20 4F 52 20 49 3D 34 20 41 4E 44 20 4B K=1 OR I=4 AND K
0229E0: 3C 34 20 4F 52 20 49 3D 32 20 41 4E 44 20 4B 3C <4 OR I=2 AND K<
0229F0: 34 20 4F 52 20 49 3D 32 20 41 4E 44 20 4B 3E 31 4 OR I=2 AND K>1
022A00: 37 20 4F 52 20 49 3D 33 20 41 4E 44 20 4B 3C 34 7 OR I=3 AND K<4
022A10: 20 4F 52 20 49 3D 33 20 41 4E 44 20 4B 3E 31 37 OR I=3 AND K>17
022A20: 20 4F 52 20 49 3D 34 20 41 4E 44 20 4B 3D 32 30 OR I=4 AND K=20
022A30: 20 54 48 45 4E 20 50 52 49 4E 54 20 43 48 52 24 THEN PRINT CHR$
022A40: 28 32 34 29 3B 0D 0A 31 30 34 37 20 4C 4F 43 41 (24);..1047 LOCA
022A50: 54 45 20 31 34 2C 4B 2B 31 3A 50 52 49 4E 54 20 TE 14,K+1:PRINT
022A60: 4B 3B 54 41 42 28 31 38 29 3B 59 24 28 52 41 2B K;TAB(18);Y$(RA+
022A70: 4B 2D 31 29 0D 0A 31 30 34 38 20 49 46 20 49 3D K-1)..1048 IF I=
022A80: 31 20 41 4E 44 20 4B 3E 31 37 20 4F 52 20 49 3D 1 AND K>17 OR I=
022A90: 31 20 41 4E 44 20 4B 3D 31 20 4F 52 20 49 3D 34 1 AND K=1 OR I=4
022AA0: 20 41 4E 44 20 4B 3C 34 20 4F 52 20 49 3D 32 20 AND K<4 OR I=2
022AB0: 41 4E 44 20 4B 3C 34 20 4F 52 20 49 3D 32 20 41 AND K<4 OR I=2 A
022AC0: 4E 44 20 4B 3E 31 37 20 4F 52 20 49 3D 33 20 41 ND K>17 OR I=3 A
022AD0: 4E 44 20 4B 3C 34 20 4F 52 20 49 3D 33 20 41 4E ND K<4 OR I=3 AN
022AE0: 44 20 4B 3E 31 37 20 4F 52 20 49 3D 34 20 41 4E D K>17 OR I=4 AN
022AF0: 44 20 4B 3D 32 30 20 54 48 45 4E 20 50 52 49 4E D K=20 THEN PRIN
022B00: 41 54 45 20 22 3B 3A 49 46 20 50 46 3E 30 20 54 ATE ";:IF PF>0 T
022B10: 48 45 4E 20 50 52 49 4E 54 20 49 4E 54 28 50 46 HEN PRINT INT(PF
022B20: 29 0D 0A 31 30 31 37 20 50 52 49 4E 54 20 54 41 )..1017 PRINT TA
022B30: 42 28 35 29 3B 70 61 24 28 33 29 3B 22 4C 4F 57 B(5);pa$(3);"LOW
022B40: 45 53 54 20 47 41 54 45 20 20 22 3B 70 61 24 28 EST GATE ";pa$(
022B50: 31 29 3B 3A 49 46 20 50 47 3E 30 20 54 48 45 4E 1);:IF PG>0 THEN
022B60: 20 50 52 49 4E 54 20 49 4E 54 28 50 47 29 0D 0A PRINT INT(PG)..
022B70: 31 30 31 38 20 46 4F 52 20 49 3D 36 20 54 4F 20 1018 FOR I=6 TO
022B80: 38 3A 4C 4F 43 41 54 45 20 32 36 2C 49 2B 31 36 8:LOCATE 26,I+16
022B90: 3A 50 52 49 4E 54 20 49 2D 35 3B 22 20 22 3B 3A :PRINT I-5;" ";:
022BA0: 54 45 4D 50 24 3D 4F 24 28 49 29 3A 47 4F 53 55 TEMP$=O$(I):GOSU
022BB0: 42 20 36 34 39 30 30 3A 49 46 20 46 4C 41 47 20 B 64900:IF FLAG
022BC0: 54 48 45 4E 20 31 30 32 30 0D 0A 31 30 31 39 20 THEN 1020..1019
022BD0: 50 52 49 4E 54 20 4F 24 28 49 29 0D 0A 31 30 32 PRINT O$(I)..102
022BE0: 30 20 4E 45 58 54 0D 0A 31 30 32 31 20 4C 4F 43 0 NEXT..1021 LOC
022BF0: 41 54 45 20 34 2C 32 35 3A 50 52 49 4E 54 20 50 ATE 4,25:PRINT P
022C00: 41 24 28 35 29 3B 22 53 45 41 53 4F 4E 20 22 3B A$(5);"SEASON ";
022C10: 50 41 24 28 31 29 3B 55 53 49 4E 47 22 23 23 22 PA$(1);USING"##"
022C20: 3B 41 48 2B 31 3B 3A 50 52 49 4E 54 20 54 41 42 ;AH+1;:PRINT TAB
022C30: 28 31 38 29 3B 50 41 24 28 32 29 3B 22 20 20 4D (18);PA$(2);" M
022C40: 45 4E 55 20 20 22 3B 50 41 24 28 31 29 0D 0A 31 ENU ";PA$(1)..1
022C50: 30 32 32 20 47 4F 53 55 42 20 38 35 30 3A 47 4F 022 GOSUB 850:GO
022C60: 54 4F 20 31 30 32 32 0D 0A 1A 2C 31 29 3D 30 20 TO 1022...,1)=0
022C70: 54 48 45 4E 20 31 30 31 30 0D 0A 31 30 30 33 20 THEN 1010..1003
022C80: 28 31 29 3B 3A 49 46 20 50 45 3E 30 20 54 48 45 (1);:IF PE>0 THE
022C90: 4E 20 50 52 49 4E 54 20 4F 24 28 35 29 3B 22 20 N PRINT O$(5);"
022CA0: 22 3B 3A 54 45 4D 50 3D 49 4E 54 28 50 45 29 3A ";:TEMP=INT(PE):
022CB0: 47 4F 53 55 42 20 36 33 35 30 30 20 0D 0A 31 30 GOSUB 63500 ..10
022CC0: 31 36 20 4C 4F 43 41 54 45 20 32 37 2C 32 31 3A 16 LOCATE 27,21:
022CD0: 50 52 49 4E 54 20 22 4C 41 53 54 20 43 4C 55 42 PRINT "LAST CLUB
022CE0: 53 22 3B 3A 4C 4F 43 41 54 45 20 35 2C 32 31 3A S";:LOCATE 5,21:
022CF0: 50 52 49 4E 54 20 22 48 49 47 48 45 53 54 20 47 PRINT "HIGHEST G
022D00: 54 20 43 48 52 24 28 32 34 29 0D 0A 31 30 34 39 T CHR$(24)..1049
022D10: 20 52 45 54 55 52 4E 0D 0A 1A 00 CB F1 12 20 FC RETURN....... .
022D20: 20 0D 00 00 C9 EF 11 20 FA 20 0D 00 00 CB EE 19 ...... . ......
022D30: 11 20 FC 20 0D 00 00 C9 EF 12 20 FA 20 0D 00 00 . . ...... . ...
022D40: CB EF 19 14 20 EB 20 BF 20 FF 03 28 19 18 29 00 .... . . ..(..).
022D50: 06 00 19 04 C9 00 00 00 1A 28 19 18 29 00 06 00 .........(..)...
022D60: 19 04 C9 00 00 00 1A 00 00 1A 29 00 06 00 19 04 ..........).....
022D70: C9 00 00 00 1A 47 5A 2F 32 29 2B 49 4E 54 20 28 .....GZ/2)+INT (
022D80: 3A 49 46 20 49 3D 31 32 20 54 48 45 4E 20 4B 28 :IF I=12 THEN K(
022D90: 49 2C 4A 29 3D 30 0D 0A 31 30 34 35 20 4E 45 58 I,J)=0..1045 NEX
022DA0: 54 3A 4E 45 58 54 3A 52 45 54 55 52 4E 20 0D 0A T:NEXT:RETURN ..
022DB0: 31 30 34 36 20 49 46 20 49 3D 31 20 41 4E 44 20 1046 IF I=1 AND
022DC0: 4B 3E 31 37 20 4F 52 20 49 3D 31 20 41 4E 44 20 K>17 OR I=1 AND
022DD0: 4B 3D 31 20 4F 52 20 49 3D 34 20 41 4E 44 20 4B K=1 OR I=4 AND K
022DE0: 3C 34 20 4F 52 20 49 3D 32 20 41 4E 44 20 4B 3C <4 OR I=2 AND K<
022DF0: 34 20 4F 52 20 49 3D 32 20 41 4E 44 20 4B 3E 31 4 OR I=2 AND K>1
022E00: 37 20 4F 52 20 49 3D 33 20 41 4E 44 20 4B 3C 34 7 OR I=3 AND K<4
022E10: 20 4F 52 20 49 3D 33 20 41 4E 44 20 4B 3E 31 37 OR I=3 AND K>17
022E20: 20 4F 52 20 49 3D 34 20 41 4E 44 20 4B 3D 32 30 OR I=4 AND K=20
022E30: 20 54 48 45 4E 20 50 52 49 4E 54 20 43 48 52 24 THEN PRINT CHR$
022E40: 28 32 34 29 3B 0D 0A 31 30 34 37 20 4C 4F 43 41 (24);..1047 LOCA
022E50: 54 45 20 31 34 2C 4B 2B 31 3A 50 52 49 4E 54 20 TE 14,K+1:PRINT
022E60: 4B 3B 54 41 42 28 31 38 29 3B 59 24 28 52 41 2B K;TAB(18);Y$(RA+
022E70: 4B 2D 31 29 0D 0A 31 30 34 38 20 49 46 20 49 3D K-1)..1048 IF I=
022E80: 31 20 41 4E 44 20 4B 3E 31 37 20 4F 52 20 49 3D 1 AND K>17 OR I=
022E90: 31 20 41 4E 44 20 4B 3D 31 20 4F 52 20 49 3D 34 1 AND K=1 OR I=4
022EA0: 20 41 4E 44 20 4B 3C 34 20 4F 52 20 49 3D 32 20 AND K<4 OR I=2
022EB0: 41 4E 44 20 4B 3C 34 20 4F 52 20 49 3D 32 20 41 AND K<4 OR I=2 A
022EC0: 4E 44 20 4B 3E 31 37 20 4F 52 20 49 3D 33 20 41 ND K>17 OR I=3 A
022ED0: 4E 44 20 4B 3C 34 20 4F 52 20 49 3D 33 20 41 4E ND K<4 OR I=3 AN
022EE0: 44 20 4B 3E 31 37 20 4F 52 20 49 3D 34 20 41 4E D K>17 OR I=4 AN
022EF0: 44 20 4B 3D 32 30 20 54 48 45 4E 20 50 52 49 4E D K=20 THEN PRIN
022F00: 2C 19 14 00 4B 00 EC 03 BF 22 4D 4F 52 41 4C 45 ,...K...."MORALE
022F10: 20 22 3B 28 0D 00 00 4D C5 F7 19 0A 29 01 9F 20 ";(...M....)..
022F20: 1E 7A 03 01 A9 20 15 2C 19 13 01 BF 20 03 00 00 .z... .,.... ...
022F30: 50 C1 28 10 29 3B 22 54 45 4D 50 45 52 20 22 3B P.(.);"TEMPER ";
022F40: 0D 00 00 50 D5 3B 03 00 00 50 C1 28 0F 29 00 24 ...P.;...P.(.).$
022F50: 00 ED 03 9F 20 1E 4C 01 01 0D 00 00 45 D2 EF 19 .... .L.....E...
022F60: 0E 01 0D 00 00 45 D3 EF 19 17 01 9F 20 1E 28 00 .....E...... .(.
022F70: 01 C9 00 00 00 1A 52 49 4E 54 20 50 4F 53 24 28 ......RINT POS$(
022F80: 6D 00 EA 03 8A 01 BF 20 EA 28 19 11 29 3B 03 00 m...... .(..);..
022F90: 00 50 C1 28 13 29 3B 03 00 00 DA 3B 03 00 00 50 .P.(.);....;...P
022FA0: C1 28 0F 29 2C 2C EA 28 15 29 3B 22 31 73 74 20 .(.),,.(.);"1st
022FB0: 54 45 41 4D 22 3B EA 28 19 1B 29 3B 22 52 45 53 TEAM";.(..);"RES
022FC0: 45 52 56 45 53 22 01 0D 00 00 45 D6 EF 10 01 0D ERVES"....E.....
022FD0: 00 00 49 C1 EF 12 01 0D 00 00 49 C3 EF 10 01 9E ..I.......I.....
022FE0: 20 0D 00 00 C9 EF 0F 20 EC 20 19 14 00 17 01 EB ...... . ......
022FF0: 03 A9 20 0D 00 00 45 D6 2C 0D 00 00 49 C1 01 BF .. ...E.,...I...
023000: 20 03 00 00 50 4F 31 D3 28 0D 00 00 D4 28 0D 00 ...PO1.(....(..
023010: 00 C9 29 29 3B 22 20 22 3B ED 22 23 23 22 3B 0D ..));" ";."##";.
023020: 00 00 C9 3B 01 BF 22 20 22 3B 03 00 00 50 C1 28 ...;.." ";...P.(
023030: 0F F4 FF 00 28 0D 00 00 C7 28 0D 00 00 C9 29 F1 ....(....(....).
023040: 0E 29 29 3B 03 00 00 D6 28 0D 00 00 C9 29 3B 03 .));....(....);.
023050: 00 00 50 C1 28 0F 29 3B FF 0C 28 0D 00 00 C8 28 ..P.(.);..(....(
023060: 0D 00 00 C9 29 29 3B FF 03 28 0D 00 00 CA 28 0D ....));..(....(.
023070: 00 00 C9 29 29 01 0D 00 00 49 C3 EF 0D 00 00 49 ...))....I.....I
023080: C3 F4 28 0D 00 00 C9 EF 17 29 01 0D 00 00 49 C1 ..(......)....I.
023090: EF 0D 00 00 49 C1 F5 28 0D 00 00 C9 EF 19 0B 29 ....I..(.......)
0230A0: F6 10 F4 28 0D 00 00 C9 EF 19 0C 29 F6 19 0E 01 ...(.......)....
0230B0: 0D 00 00 45 D6 EF 0D 00 00 45 D6 F4 FF 00 28 0D ...E.....E....(.
0230C0: 00 00 C9 EF 19 0C 29 F6 19 13 01 0D 00 00 49 C1 ......).......I.
0230D0: EF 0D 00 00 49 C1 F4 0F 01 B0 01 A9 20 19 0B 2C ....I....... ..,
0230E0: 19 10 01 BF 20 03 00 00 50 C1 28 11 29 3B 22 53 .... ...P.(.);"S
0230F0: 55 42 22 3B 03 00 00 50 C1 28 0F 29 01 A9 20 15 UB";...P.(.).. .
023100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023300: 31 30 30 31 20 41 41 41 3D 30 3A 46 4C 41 47 3D 1001 AAA=0:FLAG=
023310: 30 3A 46 4F 52 20 4B 3D 31 34 20 54 4F 20 35 36 0:FOR K=14 TO 56
023320: 20 53 54 45 50 20 37 3A 49 46 20 43 49 3D 4B 20 STEP 7:IF CI=K
023330: 54 48 45 4E 20 47 4F 53 55 42 20 31 35 32 3A 46 THEN GOSUB 152:F
023340: 4C 41 47 3D 31 3A 4B 3D 36 30 0D 0A 31 30 30 32 LAG=1:K=60..1002
023350: 20 4E 45 58 54 3A 49 46 20 46 4C 41 47 20 54 48 NEXT:IF FLAG TH
023360: 45 4E 20 31 30 30 39 0D 0A 31 30 30 33 20 41 41 EN 1009..1003 AA
023370: 41 3D 30 3A 46 4C 41 47 3D 30 3A 46 4F 52 20 4B A=0:FLAG=0:FOR K
023380: 3D 31 32 20 54 4F 20 35 34 20 53 54 45 50 20 37 =12 TO 54 STEP 7
023390: 3A 49 46 20 43 49 3D 4B 20 41 4E 44 20 43 54 3C :IF CI=K AND CT<
0233A0: 3E 30 20 54 48 45 4E 20 31 30 32 31 0D 0A 31 30 >0 THEN 1021..10
0233B0: 30 34 20 49 46 20 43 49 3D 4B 20 41 4E 44 20 43 04 IF CI=K AND C
0233C0: 56 3D 30 20 41 4E 44 20 4B 3C 35 35 20 54 48 45 V=0 AND K<55 THE
0233D0: 4E 20 41 41 41 3D 31 3A 46 4C 41 47 3D 31 3A 4B N AAA=1:FLAG=1:K
0233E0: 3D 35 35 0D 0A 31 30 30 35 20 4E 45 58 54 3A 49 =55..1005 NEXT:I
0233F0: 46 20 46 4C 41 47 20 54 48 45 4E 20 31 30 30 39 F FLAG THEN 1009
023400: 0D 0A 31 30 30 36 20 46 4C 41 47 3D 30 3A 46 4F ..1006 FLAG=0:FO
023410: 52 20 4B 3D 31 36 20 54 4F 20 35 38 20 53 54 45 R K=16 TO 58 STE
023420: 50 20 37 3A 49 46 20 43 49 3D 4B 20 41 4E 44 20 P 7:IF CI=K AND
023430: 43 52 3C 3E 30 20 54 48 45 4E 20 31 30 32 33 0D CR<>0 THEN 1023.
023440: 0A 31 30 30 37 20 49 46 20 43 49 3D 4B 20 41 4E .1007 IF CI=K AN
023450: 44 20 43 56 3D 30 20 41 4E 44 20 4B 3C 35 39 20 D CV=0 AND K<59
023460: 54 48 45 4E 20 41 41 41 3D 31 3A 46 4C 41 47 3D THEN AAA=1:FLAG=
023470: 31 3A 4B 3D 35 39 0D 0A 31 30 30 38 20 4E 45 58 1:K=59..1008 NEX
023480: 54 0D 0A 31 30 30 39 20 49 46 20 50 54 3D 31 20 T..1009 IF PT=1
023490: 54 48 45 4E 20 52 45 54 55 52 4E 20 0D 0A 31 30 THEN RETURN ..10
0234A0: 31 30 20 49 46 20 44 54 3D 31 20 54 48 45 4E 20 10 IF DT=1 THEN
0234B0: 31 30 31 34 20 45 4C 53 45 20 49 46 20 43 56 3D 1014 ELSE IF CV=
0234C0: 31 20 4F 52 20 43 50 3D 31 20 4F 52 20 43 51 3D 1 OR CP=1 OR CQ=
0234D0: 31 20 54 48 45 4E 20 31 30 31 34 0D 0A 31 30 31 1 THEN 1014..101
0234E0: 31 20 42 4B 3D 32 3A 43 4A 3D 33 38 2D 28 49 44 1 BK=2:CJ=38-(ID
0234F0: 2D 31 29 3A 46 4F 52 20 49 3D 33 38 20 54 4F 20 -1):FOR I=38 TO
023500: 31 30 30 31 20 45 52 3D 33 3A 43 4C 53 3A 4C 4F 1001 ER=3:CLS:LO
023510: 43 41 54 45 20 37 2C 31 3A 50 52 49 4E 54 20 70 CATE 7,1:PRINT p
023520: 61 24 28 33 29 3B 22 20 4C 45 41 47 55 45 20 50 a$(3);" LEAGUE P
023530: 4F 53 20 4C 43 20 43 55 50 53 20 20 46 41 20 44 OS LC CUPS FA D
023540: 49 56 20 4C 46 45 20 22 3B 70 61 24 28 31 29 0D IV LFE ";pa$(1).
023550: 0A 31 30 30 32 20 46 4F 52 20 49 3D 31 20 54 4F .1002 FOR I=1 TO
023560: 20 31 32 3A 49 46 20 4B 28 49 2C 31 29 3D 30 20 12:IF K(I,1)=0
023570: 54 48 45 4E 20 31 30 31 30 0D 0A 31 30 30 33 20 THEN 1010..1003
023580: 4C 4F 43 41 54 45 20 35 2C 45 52 3A 50 52 49 4E LOCATE 5,ER:PRIN
023590: 54 20 22 53 45 41 53 4F 4E 20 22 3B 4B 28 49 2C T "SEASON ";K(I,
0235A0: 31 29 3A 4C 4F 43 41 54 45 20 45 52 2C 31 35 3A 1):LOCATE ER,15:
0235B0: 50 52 49 4E 54 20 4B 28 49 2C 32 29 3B 54 41 42 PRINT K(I,2);TAB
0235C0: 28 31 39 29 3B 4B 28 49 2C 33 29 3B 54 41 42 28 (19);K(I,3);TAB(
0235D0: 32 32 29 3B 22 52 4F 55 4E 44 53 22 3B 54 41 42 22);"ROUNDS";TAB
0235E0: 28 32 38 29 3B 4B 28 49 2C 34 29 3B 54 41 42 28 (28);K(I,4);TAB(
0235F0: 33 31 29 3B 4B 28 49 2C 35 29 3B 3A 49 46 20 4B 31);K(I,5);:IF K
023600: 28 49 2C 36 29 3C 3E 31 20 54 48 45 4E 20 31 30 (I,6)<>1 THEN 10
023610: 30 35 0D 0A 31 30 30 34 20 4C 4F 43 41 54 45 20 05..1004 LOCATE
023620: 33 35 2C 45 52 3A 50 52 49 4E 54 20 70 61 24 28 35,ER:PRINT pa$(
023630: 35 29 3B 43 48 52 24 28 34 32 29 3B 70 61 24 28 5);CHR$(42);pa$(
023640: 31 29 0D 0A 31 30 30 35 20 49 46 20 4B 28 49 2C 1)..1005 IF K(I,
023650: 37 29 3C 3E 31 20 54 48 45 4E 20 31 30 30 37 0D 7)<>1 THEN 1007.
023660: 0A 31 30 30 36 20 4C 4F 43 41 54 45 20 33 36 2C .1006 LOCATE 36,
023670: 45 52 3A 50 52 49 4E 54 20 43 48 52 24 28 34 32 ER:PRINT CHR$(42
023680: 29 0D 0A 31 30 30 37 20 49 46 20 4B 28 49 2C 38 )..1007 IF K(I,8
023690: 29 3C 3E 31 20 54 48 45 4E 20 31 30 30 39 0D 0A )<>1 THEN 1009..
0236A0: 31 30 30 38 20 4C 4F 43 41 54 45 20 33 37 2C 45 1008 LOCATE 37,E
0236B0: 52 3A 50 52 49 4E 54 20 50 41 24 28 33 29 3B 43 R:PRINT PA$(3);C
0236C0: 48 52 24 28 34 32 29 3B 50 41 24 28 31 29 0D 0A HR$(42);PA$(1)..
0236D0: 31 30 30 39 20 45 52 3D 45 52 2B 31 0D 0A 31 30 1009 ER=ER+1..10
0236E0: 31 30 20 4E 45 58 54 0D 0A 31 30 31 31 20 4C 4F 10 NEXT..1011 LO
0236F0: 43 41 54 45 20 35 2C 31 36 3A 50 52 49 4E 54 20 CATE 5,16:PRINT
023700: 32 20 53 54 45 50 20 2D 32 3A 49 46 20 43 4A 3D 2 STEP -2:IF CJ=
023710: 49 20 54 48 45 4E 20 42 4B 3D 31 3A 49 3D 31 0D I THEN BK=1:I=1.
023720: 0A 31 30 31 32 20 4E 45 58 54 0D 0A 31 30 31 33 .1012 NEXT..1013
023730: 20 52 45 4D 0D 0A 31 30 31 34 20 27 0D 0A 31 30 REM..1014 '..10
023740: 31 35 20 63 7A 3D 30 3A 55 41 3D 30 3A 4F 5A 3D 15 cz=0:UA=0:OZ=
023750: 30 3A 4F 51 3D 30 3A 4F 50 3D 30 3A 48 45 3D 30 0:OQ=0:OP=0:HE=0
023760: 3A 4A 4E 3D 30 3A 58 24 3D 22 22 3A 4A 4A 3D 30 :JN=0:X$="":JJ=0
023770: 3A 4A 52 3D 30 3A 4E 50 3D 4E 46 2B 4E 41 3A 4F :JR=0:NP=NF+NA:O
023780: 4F 3D 30 3A 46 4F 52 20 49 3D 31 20 54 4F 20 32 O=0:FOR I=1 TO 2
023790: 30 3A 4F 4F 3D 4F 4F 2B 41 42 53 28 55 28 49 29 0:OO=OO+ABS(U(I)
0237A0: 3E 30 20 41 4E 44 20 4A 28 49 29 3D 33 35 29 2A >0 AND J(I)=35)*
0237B0: 56 28 31 2C 49 29 3A 4E 50 3D 49 4E 54 28 4E 50 V(1,I):NP=INT(NP
0237C0: 29 2B 56 28 31 2C 49 29 3A 49 46 20 4A 28 49 29 )+V(1,I):IF J(I)
0237D0: 3D 37 33 20 54 48 45 4E 20 59 3D 49 3A 47 4F 53 =73 THEN Y=I:GOS
0237E0: 55 42 20 35 32 35 0D 0A 31 30 31 36 20 49 46 20 UB 525..1016 IF
0237F0: 54 28 49 29 3E 31 20 41 4E 44 20 45 28 32 2C 49 T(I)>1 AND E(2,I
023800: 29 3E 50 43 20 54 48 45 4E 20 4F 24 28 33 29 3D )>PC THEN O$(3)=
023810: 56 24 28 49 29 3A 50 43 3D 45 28 32 2C 49 29 0D V$(I):PC=E(2,I).
023820: 0A 31 30 31 37 20 49 46 20 41 42 53 28 58 28 49 .1017 IF ABS(X(I
023830: 29 29 3E 50 44 20 54 48 45 4E 20 4F 24 28 34 29 ))>PD THEN O$(4)
023840: 3D 56 24 28 49 29 3A 50 44 3D 41 42 53 28 58 28 =V$(I):PD=ABS(X(
023850: 49 29 29 0D 0A 31 30 31 38 20 49 46 20 56 28 31 I))..1018 IF V(1
023860: 2C 49 29 3E 50 45 20 54 48 45 4E 20 4F 24 28 35 ,I)>PE THEN O$(5
023870: 29 3D 56 24 28 49 29 3A 50 45 3D 56 28 31 2C 49 )=V$(I):PE=V(1,I
023880: 29 0D 0A 31 30 31 39 20 4E 45 58 54 3A 46 4F 52 )..1019 NEXT:FOR
023890: 20 49 3D 31 20 54 4F 20 31 32 3A 4E 50 3D 49 4E I=1 TO 12:NP=IN
0238A0: 54 28 4E 50 29 2B 41 42 53 28 59 28 31 2C 49 29 T(NP)+ABS(Y(1,I)
0238B0: 29 3A 4E 45 58 54 3A 46 4D 3D 49 4E 54 28 41 49 ):NEXT:FM=INT(AI
0238C0: 29 2A 30 2E 33 2F 31 30 30 0D 0A 31 30 32 30 20 )*0.3/100..1020
0238D0: 44 24 3D 22 57 22 3A 48 57 3D 39 30 33 3A 47 4F D$="W":HW=903:GO
0238E0: 54 4F 20 39 30 32 0D 0A 31 30 32 31 20 49 46 20 TO 902..1021 IF
0238F0: 41 50 3C 33 20 41 4E 44 20 43 49 3C 31 39 20 54 AP<3 AND CI<19 T
023900: 70 61 24 28 33 29 3B 22 52 45 43 4F 52 44 20 53 pa$(3);"RECORD S
023910: 49 47 4E 49 4E 47 20 22 3B 70 61 24 28 31 29 3B IGNING ";pa$(1);
023920: 3A 49 46 20 50 41 3E 30 20 54 48 45 4E 20 50 52 :IF PA>0 THEN PR
023930: 49 4E 54 20 4F 24 28 31 29 3B 22 20 22 3B 3A 54 INT O$(1);" ";:T
023940: 45 4D 50 3D 49 4E 54 28 50 41 29 3A 47 4F 53 55 EMP=INT(PA):GOSU
023950: 42 20 36 33 35 30 30 0D 0A 31 30 31 32 20 50 52 B 63500..1012 PR
023960: 49 4E 54 20 54 41 42 28 35 29 3B 22 52 45 43 4F INT TAB(5);"RECO
023970: 52 44 20 53 41 4C 45 20 20 20 20 22 3B 3A 49 46 RD SALE ";:IF
023980: 20 50 42 3E 30 20 54 48 45 4E 20 50 52 49 4E 54 PB>0 THEN PRINT
023990: 20 4F 24 28 32 29 3B 22 20 22 3B 3A 54 45 4D 50 O$(2);" ";:TEMP
0239A0: 3D 49 4E 54 28 50 42 29 3A 47 4F 53 55 42 20 36 =INT(PB):GOSUB 6
0239B0: 33 35 30 30 0D 0A 31 30 31 33 20 50 52 49 4E 54 3500..1013 PRINT
0239C0: 20 54 41 42 28 35 29 3B 70 61 24 28 33 29 3B 22 TAB(5);pa$(3);"
0239D0: 48 49 47 48 45 53 54 20 47 4F 41 4C 53 20 20 22 HIGHEST GOALS "
0239E0: 3B 70 61 24 28 31 29 3B 3A 49 46 20 50 43 3E 30 ;pa$(1);:IF PC>0
0239F0: 20 54 48 45 4E 20 50 52 49 4E 54 20 4F 24 28 33 THEN PRINT O$(3
023A00: 29 3B 49 4E 54 28 50 43 29 0D 0A 31 30 31 34 20 );INT(PC)..1014
023A10: 50 52 49 4E 54 20 54 41 42 28 35 29 3B 22 48 49 PRINT TAB(5);"HI
023A20: 47 48 45 53 54 20 50 4C 41 59 45 44 20 22 3B 3A GHEST PLAYED ";:
023A30: 49 46 20 50 44 3E 30 20 54 48 45 4E 20 50 52 49 IF PD>0 THEN PRI
023A40: 4E 54 20 4F 24 28 34 29 3B 49 4E 54 28 50 44 29 NT O$(4);INT(PD)
023A50: 0D 0A 31 30 31 35 20 50 52 49 4E 54 20 54 41 42 ..1015 PRINT TAB
023A60: 28 35 29 3B 70 61 24 28 33 29 3B 22 48 49 47 48 (5);pa$(3);"HIGH
023A70: 45 53 54 20 50 41 59 20 20 20 20 22 3B 70 61 24 EST PAY ";pa$
023A80: 28 31 29 3B 3A 49 46 20 50 45 3E 30 20 54 48 45 (1);:IF PE>0 THE
023A90: 4E 20 50 52 49 4E 54 20 4F 24 28 35 29 3B 22 20 N PRINT O$(5);"
023AA0: 22 3B 3A 54 45 4D 50 3D 49 4E 54 28 50 45 29 3A ";:TEMP=INT(PE):
023AB0: 47 4F 53 55 42 20 36 33 35 30 30 20 0D 0A 31 30 GOSUB 63500 ..10
023AC0: 31 36 20 4C 4F 43 41 54 45 20 32 37 2C 32 31 3A 16 LOCATE 27,21:
023AD0: 50 52 49 4E 54 20 22 4C 41 53 54 20 43 4C 55 42 PRINT "LAST CLUB
023AE0: 53 22 3B 3A 4C 4F 43 41 54 45 20 35 2C 32 31 3A S";:LOCATE 5,21:
023AF0: 50 52 49 4E 54 20 22 48 49 47 48 45 53 54 20 47 PRINT "HIGHEST G
023B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
023B10: 1E 00 01 00 02 09 4E E5 1E 00 41 02 00 00 00 02 ......N...A.....
023B20: 1E 00 46 02 00 00 00 02 1E 00 42 02 00 00 00 02 ..F.......B.....
023B30: 1E 00 47 02 00 00 00 02 1E 00 43 02 00 00 00 02 ..G.......C.....
023B40: 1E 00 48 02 00 00 00 02 1E 00 44 02 00 00 00 02 ..H.......D.....
023B50: 1E 00 49 02 00 00 00 02 1E 00 45 02 00 00 00 02 ..I.......E.....
023B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023C00: 48 45 4E 20 43 54 3D 33 3A 4D 54 3D 43 54 3A 43 HEN CT=3:MT=CT:C
023C10: 56 3D 30 3A 47 4F 54 4F 20 31 30 30 34 0D 0A 31 V=0:GOTO 1004..1
023C20: 30 32 32 20 4D 51 3D 31 3A 4D 52 3D 43 54 3A 47 022 MQ=1:MR=CT:G
023C30: 4F 53 55 42 20 31 34 30 3A 46 4C 41 47 3D 31 3A OSUB 140:FLAG=1:
023C40: 4B 3D 35 35 3A 47 4F 54 4F 20 31 30 30 34 0D 0A K=55:GOTO 1004..
023C50: 31 30 32 33 20 49 46 20 41 50 3C 33 20 41 4E 44 1023 IF AP<3 AND
023C60: 20 43 49 3C 31 39 20 54 48 45 4E 20 4D 52 3D 33 CI<19 THEN MR=3
023C70: 3A 43 52 3D 4D 52 3A 43 56 3D 30 3A 47 4F 54 4F :CR=MR:CV=0:GOTO
023C80: 20 31 30 30 37 0D 0A 31 30 32 34 20 4D 51 3D 32 1007..1024 MQ=2
023C90: 3A 4D 52 3D 43 52 3A 47 4F 53 55 42 20 31 34 30 :MR=CR:GOSUB 140
023CA0: 3A 4B 3D 35 39 3A 46 4C 41 47 3D 31 3A 47 4F 54 :K=59:FLAG=1:GOT
023CB0: 4F 20 31 30 30 37 0D 0A 1A 00 00 43 D2 01 9F 20 O 1007.....C...
023CC0: 1E 8C 00 01 0D 00 00 CB EF 19 3B 01 0D 00 00 46 ..........;....F
023CD0: 4C 41 C7 EF 0F 01 A0 20 1E EF 03 00 00 00 1A 48 LA..... .......H
023CE0: 45 4E 20 31 30 30 39 0D 0A 31 30 30 33 20 41 41 EN 1009..1003 AA
023CF0: 41 3D 30 3A 46 4C 41 47 3D 30 3A 46 4F 52 20 49 A=0:FLAG=0:FOR I
023D00: 29 3E 50 43 20 54 48 45 4E 20 4F 24 28 33 29 3D )>PC THEN O$(3)=
023D10: 56 24 28 49 29 3A 50 43 3D 45 28 32 2C 49 29 0D V$(I):PC=E(2,I).
023D20: 0A 31 30 31 37 20 49 46 20 41 42 53 28 58 28 49 .1017 IF ABS(X(I
023D30: 29 29 3E 50 44 20 54 48 45 4E 20 4F 24 28 34 29 ))>PD THEN O$(4)
023D40: 3D 56 24 28 49 29 3A 50 44 3D 41 42 53 28 58 28 =V$(I):PD=ABS(X(
023D50: 49 29 29 0D 0A 31 30 31 38 20 49 46 20 56 28 31 I))..1018 IF V(1
023D60: 2C 49 29 3E 50 45 20 54 48 45 4E 20 4F 24 28 35 ,I)>PE THEN O$(5
023D70: 29 3D 56 24 28 49 29 3A 50 45 3D 56 28 31 2C 49 )=V$(I):PE=V(1,I
023D80: 29 0D 0A 31 30 31 39 20 4E 45 58 54 3A 46 4F 52 )..1019 NEXT:FOR
023D90: 20 49 3D 31 20 54 4F 20 31 32 3A 4E 50 3D 49 4E I=1 TO 12:NP=IN
023DA0: 54 28 4E 50 29 2B 41 42 53 28 59 28 31 2C 49 29 T(NP)+ABS(Y(1,I)
023DB0: 29 3A 4E 45 58 54 3A 46 4D 3D 49 4E 54 28 41 49 ):NEXT:FM=INT(AI
023DC0: 29 2A 30 2E 33 2F 31 30 30 0D 0A 31 30 32 30 20 )*0.3/100..1020
023DD0: 44 24 3D 22 57 22 3A 48 57 3D 39 30 33 3A 47 4F D$="W":HW=903:GO
023DE0: 54 4F 20 39 30 32 0D 0A 31 30 32 31 20 49 46 20 TO 902..1021 IF
023DF0: 41 50 3C 33 20 41 4E 44 20 43 49 3C 31 39 20 54 AP<3 AND CI<19 T
023E00: 4E 56 3E 20 5A 41 29 2A 52 41 3A 4D 45 3D 4D 45 NV> ZA)*RA:ME=ME
023E10: 2D 41 42 53 28 4D 45 3E 39 39 29 2A 28 4D 45 2D -ABS(ME>99)*(ME-
023E20: 39 39 29 3A 49 46 20 4D 45 3C 32 20 54 48 45 4E 99):IF ME<2 THEN
023E30: 20 4D 45 3D 32 0D 0A 31 30 32 39 20 52 45 54 55 ME=2..1029 RETU
023E40: 52 4E 20 0D 0A 1A 20 0D 00 00 4D C5 F1 10 20 EB RN ... ...M... .
023E50: 20 0D 00 00 4D C5 EF 10 00 07 00 05 04 C9 20 00 ...M......... .
023E60: 00 00 1A 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023E80: 49 4E 54 28 4E 56 2F 31 30 30 29 3A 52 41 3D 52 INT(NV/100):RA=R
023E90: 41 2B 41 42 53 28 52 41 3D 30 29 3A 52 42 3D 4E A+ABS(RA=0):RB=N
023EA0: 56 2D 5A 41 3A 52 43 3D 49 4E 54 28 52 42 2F 52 V-ZA:RC=INT(RB/R
023EB0: 41 29 3A 52 42 3D 28 28 48 28 59 29 2F 31 30 30 A):RB=((H(Y)/100
023EC0: 29 2A 52 43 29 3A 48 28 59 29 3D 48 28 59 29 2D )*RC):H(Y)=H(Y)-
023ED0: 52 42 3A 49 46 20 6A 28 79 29 3C 3E 33 35 20 54 RB:IF j(y)<>35 T
023EE0: 48 45 4E 20 47 4F 53 55 42 20 35 32 35 0D 0A 31 HEN GOSUB 525..1
023EF0: 30 32 33 20 4E 45 58 54 3A 47 4F 54 4F 20 31 30 023 NEXT:GOTO 10
023F00: 32 35 0D 0A 31 30 32 34 20 47 4F 53 55 42 20 33 25..1024 GOSUB 3
023F10: 33 32 3A 4E 57 3D 5A 41 3A 47 4F 54 4F 20 31 30 32:NW=ZA:GOTO 10
023F20: 30 31 0D 0A 31 30 32 35 20 47 4F 53 55 42 20 33 01..1025 GOSUB 3
023F30: 33 32 3A 4E 56 3D 5A 41 3A 47 4F 54 4F 20 31 30 32:NV=ZA:GOTO 10
023F40: 30 31 0D 0A 31 30 32 36 20 52 41 3D 49 4E 54 28 01..1026 RA=INT(
023F50: 52 4E 44 2A 39 39 29 3A 4D 45 3D 4D 45 2B 41 42 RND*99):ME=ME+AB
023F60: 53 28 4E 57 3C 20 5A 41 20 41 4E 44 20 28 5A 41 S(NW< ZA AND (ZA
023F70: 2D 4E 57 29 3E 35 30 29 2A 52 41 2D 41 42 53 28 -NW)>50)*RA-ABS(
023F80: 4E 57 3E 5A 41 29 2A 52 41 3A 4D 45 3D 4D 45 2D NW>ZA)*RA:ME=ME-
023F90: 41 42 53 28 4D 45 3E 39 39 29 2A 28 4D 45 2D 39 ABS(ME>99)*(ME-9
023FA0: 39 29 3A 49 46 20 4D 45 3C 32 20 54 48 45 4E 20 9):IF ME<2 THEN
023FB0: 4D 45 3D 32 0D 0A 31 30 32 37 20 52 45 54 55 52 ME=2..1027 RETUR
023FC0: 4E 20 0D 0A 31 30 32 38 20 52 41 3D 49 4E 54 28 N ..1028 RA=INT(
023FD0: 52 4E 44 2A 39 39 29 3A 4D 45 3D 4D 45 2B 41 42 RND*99):ME=ME+AB
023FE0: 53 28 4E 56 3C 20 5A 41 20 41 4E 44 20 28 5A 41 S(NV< ZA AND (ZA
023FF0: 2D 4E 56 29 3E 35 30 29 2A 52 41 2D 41 42 53 28 -NV)>50)*RA-ABS(
024000: 00 70 E1 28 10 29 3B 22 20 43 4F 4E 54 49 4E 55 .p.(.);" CONTINU
024010: 45 20 22 3B 03 00 00 70 E1 28 0F 29 01 83 20 1C E ";...p.(.).. .
024020: 03 BB 01 9F 20 1E 00 FA 01 A1 20 03 00 00 49 CE .... ..... ...I.
024030: EF 22 43 22 20 EB 20 C9 00 0A 00 10 04 A0 20 1E ."C" . ....... .
024040: 0F 04 00 90 00 11 04 9E 20 0D 00 00 C9 EF 14 20 ........ ......
024050: EC 20 19 0C 01 0D 00 00 D9 28 13 2C 0D 00 00 C9 . .......(.,....
024060: 29 EF 0D 00 00 D9 28 13 2C 0D 00 00 C9 29 F4 FF ).....(.,....)..
024070: 00 28 0D 00 00 D9 28 12 2C 0D 00 00 C9 29 EE 0E .(....(.,....)..
024080: 29 01 A1 20 0D 00 00 D9 28 13 2C 0D 00 00 C9 29 ).. ....(.,....)
024090: EF 19 13 20 EB 20 03 00 00 C9 28 0D 00 00 C9 29 ... . ....(....)
0240A0: EF 22 22 01 0D 00 00 4E CF EF 0D 00 00 4E CF F5 .""....N.....N..
0240B0: 0F 01 9E 20 0D 00 00 CA EF 0F 20 EC 20 13 01 0D ... ...... . ...
0240C0: 00 00 D9 28 0D 00 00 CA 2C 0D 00 00 C9 29 EF 0E ...(....,....)..
0240D0: 01 B0 00 09 00 12 04 B0 01 C9 20 00 13 00 13 04 .......... .....
0240E0: A1 20 0D 00 00 4E D3 F1 19 0D 20 EB 20 C9 00 5F . ...N.... . .._
0240F0: 00 14 04 9E 20 0D 00 00 C9 EF 10 20 EC 20 19 0C .... ...... . ..
024100: 01 9E 20 0D 00 00 CA EF 0F 20 EC 20 16 01 0D 00 .. ...... . ....
024110: 00 CB 28 0D 00 00 C9 F5 0F 2C 0D 00 00 CA 29 EF ..(......,....).
024120: 0D 00 00 CB 28 0D 00 00 C9 2C 0D 00 00 CA 29 01 ....(....,....).
024130: A1 20 0D 00 00 C9 EF 19 0C 20 EB 20 0D 00 00 CB . ....... . ....
024140: 28 0D 00 00 C9 2C 0D 00 00 CA 29 EF 0E 00 0B 00 (....,....).....
024150: 15 04 B0 01 B0 01 C9 20 00 A4 00 16 04 A1 20 0D ....... ...... .
024160: 00 00 C9 EF 0F 20 FA 20 0D 00 00 CB EE 19 11 20 ..... . .......
024170: FC 20 0D 00 00 C9 EF 0F 20 FA 20 0D 00 00 CB EF . ...... . .....
024180: 0F 20 FC 20 0D 00 00 C9 EF 12 20 FA 20 0D 00 00 . . ...... . ...
024190: CB F1 12 20 FC 20 0D 00 00 C9 EF 10 20 FA 20 0D ... . ...... . .
0241A0: 00 00 CB F1 12 20 FC 20 0D 00 00 C9 EF 10 20 FA ..... . ...... .
0241B0: 20 0D 00 00 CB EE 19 11 20 FC 20 0D 00 00 C9 EF ....... . .....
0241C0: 11 20 FA 20 0D 00 00 CB F1 12 20 FC 20 0D 00 00 . . ...... . ...
0241D0: C9 EF 11 20 FA 20 0D 00 00 CB EE 19 11 20 FC 20 ... . ....... .
0241E0: 0D 00 00 C9 EF 12 20 FA 20 0D 00 00 CB EF 19 14 ...... . .......
0241F0: 20 EB 20 BF 20 FF 03 28 19 18 29 3B 00 30 00 17 . . ..(..);.0..
024200: 31 30 30 32 20 50 52 49 4E 54 20 54 41 42 28 33 1002 PRINT TAB(3
024210: 29 3B 22 57 41 47 45 20 42 49 4C 4C 22 3B 54 41 );"WAGE BILL";TA
024220: 42 28 31 34 29 3B 70 61 24 28 34 29 3B 22 20 57 B(14);pa$(4);" W
024230: 45 45 4B 4C 59 20 4E 45 57 53 20 22 3B 70 61 24 EEKLY NEWS ";pa$
024240: 28 31 29 3B 54 41 42 28 32 39 29 3B 22 47 41 54 (1);TAB(29);"GAT
024250: 45 20 4D 4F 4E 45 59 20 22 3B 54 41 42 28 34 29 E MONEY ";TAB(4)
024260: 3B 3A 54 45 4D 50 3D 4E 50 3A 47 4F 53 55 42 20 ;:TEMP=NP:GOSUB
024270: 36 33 35 30 30 3A 50 52 49 4E 54 20 22 20 2D 22 63500:PRINT " -"
024280: 3B 54 41 42 28 31 35 29 3B 22 41 54 54 45 4E 20 ;TAB(15);"ATTEN
024290: 22 3B 49 4E 54 28 44 4E 29 3B 54 41 42 28 33 31 ";INT(DN);TAB(31
0242A0: 29 3B 3A 54 45 4D 50 3D 49 4E 54 28 42 4C 29 3A );:TEMP=INT(BL):
0242B0: 47 4F 53 55 42 20 36 33 35 30 30 3A 47 4F 53 55 GOSUB 63500:GOSU
0242C0: 42 20 31 30 36 31 0D 0A 31 30 30 33 20 49 46 20 B 1061..1003 IF
0242D0: 4F 4C 3E 30 20 54 48 45 4E 20 50 52 49 4E 54 20 OL>0 THEN PRINT
0242E0: 54 41 42 28 35 29 3B 50 41 24 28 34 29 3B 20 22 TAB(5);PA$(4); "
0242F0: 50 4F 4C 49 43 45 20 42 49 4C 4C 20 22 3B 50 41 POLICE BILL ";PA
024300: 24 28 31 29 3B 54 41 42 28 33 30 29 3B 3A 54 45 $(1);TAB(30);:TE
024310: 4D 50 3D 49 4E 54 28 4F 4C 29 3A 47 4F 53 55 42 MP=INT(OL):GOSUB
024320: 20 36 33 35 30 30 3A 50 52 49 4E 54 20 54 41 42 63500:PRINT TAB
024330: 28 33 36 29 3B 22 2D 22 3A 4A 52 3D 4A 52 2D 4F (36);"-":JR=JR-O
024340: 4C 0D 0A 31 30 30 34 20 49 46 20 6F 31 6E 3E 30 L..1004 IF o1n>0
024350: 20 54 48 45 4E 20 50 52 49 4E 54 20 54 41 42 28 THEN PRINT TAB(
024360: 35 29 3B 50 41 24 28 32 29 3B 22 43 4C 55 42 20 5);PA$(2);"CLUB
024370: 4C 4F 54 54 45 52 59 20 52 41 49 53 45 53 22 3B LOTTERY RAISES";
024380: 70 61 24 28 31 29 3B 54 41 42 28 33 30 29 3B 3A pa$(1);TAB(30);:
024390: 54 45 4D 50 3D 49 4E 54 28 6F 31 6E 29 3A 47 4F TEMP=INT(o1n):GO
0243A0: 53 55 42 20 36 33 35 30 30 3A 50 52 49 4E 54 20 SUB 63500:PRINT
0243B0: 54 41 42 28 33 36 29 3B 22 2B 20 22 3A 3A 4A 52 TAB(36);"+ "::JR
0243C0: 3D 4A 52 2B 6F 31 6E 0D 0A 31 30 30 35 20 52 45 =JR+o1n..1005 RE
0243D0: 4D 0D 0A 31 30 30 36 20 47 4F 53 55 42 20 31 30 M..1006 GOSUB 10
0243E0: 32 38 3A 49 46 20 52 41 3E 3D 33 20 54 48 45 4E 28:IF RA>=3 THEN
0243F0: 20 31 30 30 39 0D 0A 31 30 30 37 20 46 4F 52 20 1009..1007 FOR
024400: 31 30 30 31 20 42 4F 52 44 45 52 20 31 37 3A 49 1001 BORDER 17:I
024410: 4E 4B 20 30 2C 31 37 3A 43 4C 53 3A 4C 4F 43 41 NK 0,17:CLS:LOCA
024420: 54 45 20 31 32 2C 39 3A 50 52 49 4E 54 20 22 4C TE 12,9:PRINT "L
024430: 45 41 47 55 45 20 42 4F 4E 55 53 20 22 3B 3A 54 EAGUE BONUS ";:T
024440: 45 4D 50 3D 49 4E 54 28 4E 57 29 3A 47 4F 53 55 EMP=INT(NW):GOSU
024450: 42 20 36 33 35 30 30 3A 4C 4F 43 41 54 45 20 31 B 63500:LOCATE 1
024460: 32 2C 31 31 3A 50 52 49 4E 54 20 22 43 55 50 20 2,11:PRINT "CUP
024470: 42 4F 4E 55 53 20 20 20 20 22 3B 3A 54 45 4D 50 BONUS ";:TEMP
024480: 3D 49 4E 54 28 4E 56 29 3A 47 4F 53 55 42 20 36 =INT(NV):GOSUB 6
024490: 33 35 30 30 0D 0A 31 30 30 32 20 4C 4F 43 41 54 3500..1002 LOCAT
0244A0: 45 20 31 32 2C 31 35 3A 50 52 49 4E 54 20 70 61 E 12,15:PRINT pa
0244B0: 24 28 36 29 3B 22 4C 65 61 67 75 65 20 20 4D 65 $(6);"League Me
0244C0: 6E 75 20 20 43 75 70 22 3B 70 61 24 28 31 29 0D nu Cup";pa$(1).
0244D0: 0A 31 30 30 33 20 47 4F 53 55 42 20 36 34 30 30 .1003 GOSUB 6400
0244E0: 30 3A 49 46 20 49 4E 24 3D 22 4D 22 20 54 48 45 0:IF IN$="M" THE
0244F0: 4E 20 39 30 30 0D 0A 31 30 30 34 20 49 46 20 49 N 900..1004 IF I
024500: 4E 24 3D 22 43 22 20 54 48 45 4E 20 31 30 31 34 N$="C" THEN 1014
024510: 20 45 4C 53 45 20 49 46 20 49 4E 24 3C 3E 22 4C ELSE IF IN$<>"L
024520: 22 20 54 48 45 4E 20 31 30 30 33 0D 0A 31 30 30 " THEN 1003..100
024530: 35 20 43 4C 53 23 32 3A 49 4E 50 55 54 23 32 2C 5 CLS#2:INPUT#2,
024540: 22 20 4E 45 57 20 4C 45 41 47 55 45 20 42 4F 4E " NEW LEAGUE BON
024550: 55 53 20 A3 22 3B 5A 41 3A 43 4C 53 23 32 3A 49 US £";ZA:CLS#2:I
024560: 46 20 5A 41 3C 31 20 4F 52 20 5A 41 3E 39 39 39 F ZA<1 OR ZA>999
024570: 20 54 48 45 4E 20 31 30 30 35 0D 0A 31 30 30 36 THEN 1005..1006
024580: 20 49 46 20 4E 57 3D 5A 41 20 54 48 45 4E 20 31 IF NW=ZA THEN 1
024590: 30 30 31 0D 0A 31 30 30 37 20 47 4F 53 55 42 20 001..1007 GOSUB
0245A0: 31 30 32 36 3A 49 46 20 4E 57 3E 5A 41 20 54 48 1026:IF NW>ZA TH
0245B0: 45 4E 20 31 30 31 31 0D 0A 31 30 30 38 20 52 41 EN 1011..1008 RA
0245C0: 3D 5A 41 2D 4E 57 3A 52 41 3D 28 52 41 2F 35 30 =ZA-NW:RA=(RA/50
0245D0: 29 3A 49 46 20 52 41 3C 3D 30 20 54 48 45 4E 20 ):IF RA<=0 THEN
0245E0: 31 30 30 31 0D 0A 31 30 30 39 20 46 4F 52 20 59 1001..1009 FOR Y
0245F0: 3D 31 20 54 4F 20 32 30 3A 49 46 20 54 28 59 29 =1 TO 20:IF T(Y)
024600: 49 3D 31 20 54 4F 20 32 30 3A 54 45 4D 50 24 3D I=1 TO 20:TEMP$=
024610: 56 24 28 49 29 3A 47 4F 53 55 42 20 36 34 39 30 V$(I):GOSUB 6490
024620: 30 3A 49 46 20 46 4C 41 47 20 41 4E 44 20 41 42 0:IF FLAG AND AB
024630: 53 28 58 28 49 29 29 3E 34 30 30 20 54 48 45 4E S(X(I))>400 THEN
024640: 20 52 41 3D 49 4E 54 28 46 54 2D 46 50 29 3A 50 RA=INT(FT-FP):P
024650: 52 49 4E 54 20 54 41 42 28 35 29 3B 50 41 24 28 RINT TAB(5);PA$(
024660: 33 29 3B 56 24 28 49 29 3B 22 20 54 45 53 54 49 3);V$(I);" TESTI
024670: 4D 4F 4E 49 41 4C 20 22 3B 70 61 24 28 31 29 3B MONIAL ";pa$(1);
024680: 54 41 42 28 33 30 29 3B 3A 54 45 4D 50 3D 52 41 TAB(30);:TEMP=RA
024690: 3A 47 4F 53 55 42 20 36 33 35 30 30 3A 50 52 49 :GOSUB 63500:PRI
0246A0: 4E 54 20 54 41 42 28 33 36 29 3B 22 2B 20 22 3A NT TAB(36);"+ ":
0246B0: 4A 52 3D 4A 52 2B 52 41 3A 47 4F 54 4F 20 31 30 JR=JR+RA:GOTO 10
0246C0: 30 39 0D 0A 31 30 30 38 20 4E 45 58 54 0D 0A 31 09..1008 NEXT..1
0246D0: 30 30 39 20 49 46 20 4E 51 3E 30 20 41 4E 44 20 009 IF NQ>0 AND
0246E0: 4F 4F 3E 30 20 54 48 45 4E 20 50 52 49 4E 54 20 OO>0 THEN PRINT
0246F0: 54 41 42 28 35 29 3B 22 49 4E 53 55 52 41 4E 43 TAB(5);"INSURANC
024700: 45 20 50 41 59 53 20 43 4C 55 42 22 3B 54 41 42 E PAYS CLUB";TAB
024710: 28 33 30 29 3A 54 45 4D 50 3D 49 4E 54 28 4F 4F (30):TEMP=INT(OO
024720: 29 3A 47 4F 53 55 42 20 36 33 35 30 30 3A 50 52 ):GOSUB 63500:PR
024730: 49 4E 54 20 54 41 42 28 33 36 29 3B 22 2B 22 3A INT TAB(36);"+":
024740: 4A 52 3D 4A 52 2B 4F 4F 0D 0A 31 30 31 30 20 47 JR=JR+OO..1010 G
024750: 4F 54 4F 20 31 30 33 37 0D 0A 31 30 31 31 20 47 OTO 1037..1011 G
024760: 4F 53 55 42 20 31 30 34 33 0D 0A 31 30 31 32 20 OSUB 1043..1012
024770: 49 46 20 4F 54 3E 30 20 54 48 45 4E 20 50 52 49 IF OT>0 THEN PRI
024780: 4E 54 20 54 41 42 28 35 29 3B 22 42 4F 4E 55 53 NT TAB(5);"BONUS
024790: 20 50 41 59 22 3B 54 41 42 28 33 30 29 3B 3A 54 PAY";TAB(30);:T
0247A0: 45 4D 50 3D 49 4E 54 28 31 31 2A 4E 57 29 3A 47 EMP=INT(11*NW):G
0247B0: 4F 53 55 42 20 36 33 35 30 30 3A 50 52 49 4E 54 OSUB 63500:PRINT
0247C0: 20 54 41 42 28 33 36 29 3B 22 2D 22 3A 4A 52 3D TAB(36);"-":JR=
0247D0: 4A 52 2D 28 4E 57 2A 31 31 29 3A 47 4F 54 4F 20 JR-(NW*11):GOTO
0247E0: 31 30 31 34 0D 0A 31 30 31 33 20 49 46 20 4F 53 1014..1013 IF OS
0247F0: 3E 30 20 54 48 45 4E 20 50 52 49 4E 54 20 54 41 >0 THEN PRINT TA
024800: 3E 30 20 54 48 45 4E 20 52 42 3D 49 4E 54 28 52 >0 THEN RB=INT(R
024810: 4E 44 2A 52 41 29 3A 48 28 59 29 3D 48 28 59 29 ND*RA):H(Y)=H(Y)
024820: 2B 41 42 53 28 54 28 59 29 3E 30 29 2A 28 52 42 +ABS(T(Y)>0)*(RB
024830: 2F 31 30 29 3A 49 46 20 6A 28 79 29 3C 3E 33 35 /10):IF j(y)<>35
024840: 20 54 48 45 4E 20 47 4F 53 55 42 20 35 32 35 0D THEN GOSUB 525.
024850: 0A 31 30 31 30 20 4E 45 58 54 3A 47 4F 54 4F 20 .1010 NEXT:GOTO
024860: 31 30 32 34 0D 0A 31 30 31 31 20 46 4F 52 20 59 1024..1011 FOR Y
024870: 3D 31 20 54 4F 20 32 30 3A 49 46 20 54 28 59 29 =1 TO 20:IF T(Y)
024880: 3D 30 20 54 48 45 4E 20 31 30 31 33 0D 0A 31 30 =0 THEN 1013..10
024890: 31 32 20 52 41 3D 49 4E 54 28 4E 57 2F 31 30 30 12 RA=INT(NW/100
0248A0: 29 3A 52 41 3D 52 41 2B 41 42 53 28 52 41 3D 30 ):RA=RA+ABS(RA=0
0248B0: 29 3A 52 42 3D 4E 57 2D 5A 41 3A 52 43 3D 49 4E ):RB=NW-ZA:RC=IN
0248C0: 54 28 52 42 2F 52 41 29 3A 52 42 3D 28 28 48 28 T(RB/RA):RB=((H(
0248D0: 59 29 2F 31 30 30 29 2A 52 43 29 3A 48 28 59 29 Y)/100)*RC):H(Y)
0248E0: 3D 48 28 59 29 2D 52 42 3A 49 46 20 6A 28 79 29 =H(Y)-RB:IF j(y)
0248F0: 3C 3E 33 35 20 54 48 45 4E 20 47 4F 53 55 42 20 <>35 THEN GOSUB
024900: 35 32 35 0D 0A 31 30 31 33 20 4E 45 58 54 3A 47 525..1013 NEXT:G
024910: 4F 54 4F 20 31 30 32 34 0D 0A 31 30 31 34 20 43 OTO 1024..1014 C
024920: 4C 53 23 32 3A 49 4E 50 55 54 23 32 2C 22 20 20 LS#2:INPUT#2,"
024930: 4E 45 57 20 43 55 50 20 42 4F 4E 55 53 20 A3 22 NEW CUP BONUS £"
024940: 3B 5A 41 3A 43 4C 53 23 32 3A 49 46 20 5A 41 3C ;ZA:CLS#2:IF ZA<
024950: 31 20 4F 52 20 5A 41 3E 39 39 39 20 54 48 45 4E 1 OR ZA>999 THEN
024960: 20 31 30 31 34 0D 0A 31 30 31 35 20 49 46 20 4E 1014..1015 IF N
024970: 56 3D 5A 41 20 54 48 45 4E 20 31 30 30 31 0D 0A V=ZA THEN 1001..
024980: 31 30 31 36 20 47 4F 53 55 42 20 31 30 32 38 3A 1016 GOSUB 1028:
024990: 49 46 20 4E 56 3E 5A 41 20 54 48 45 4E 20 31 30 IF NV>ZA THEN 10
0249A0: 32 31 0D 0A 31 30 31 37 20 52 41 3D 5A 41 2D 4E 21..1017 RA=ZA-N
0249B0: 56 3A 52 41 3D 28 52 41 2F 35 30 29 3A 49 46 20 V:RA=(RA/50):IF
0249C0: 52 41 3C 3D 30 20 54 48 45 4E 20 31 30 30 31 0D RA<=0 THEN 1001.
0249D0: 0A 31 30 31 38 20 46 4F 52 20 59 3D 31 20 54 4F .1018 FOR Y=1 TO
0249E0: 20 32 30 3A 49 46 20 54 28 59 29 3D 30 20 54 48 20:IF T(Y)=0 TH
0249F0: 45 4E 20 31 30 32 30 0D 0A 31 30 31 39 20 52 42 EN 1020..1019 RB
024A00: 42 28 35 29 3B 22 43 55 50 20 42 4F 4E 55 53 20 B(5);"CUP BONUS
024A10: 50 41 59 22 3B 54 41 42 28 33 30 29 3B 3A 54 45 PAY";TAB(30);:TE
024A20: 4D 50 3D 49 4E 54 28 31 31 2A 4E 56 29 3A 47 4F MP=INT(11*NV):GO
024A30: 53 55 42 20 36 33 35 30 30 3A 50 52 49 4E 54 20 SUB 63500:PRINT
024A40: 54 41 42 28 33 36 29 3B 22 2D 22 3A 4A 52 3D 4A TAB(36);"-":JR=J
024A50: 52 2D 28 4E 56 2A 31 31 29 0D 0A 31 30 31 34 20 R-(NV*11)..1014
024A60: 52 45 4D 0D 0A 31 30 31 35 20 52 45 4D 0D 0A 31 REM..1015 REM..1
024A70: 30 31 36 20 47 4F 53 55 42 20 31 30 32 38 3A 49 016 GOSUB 1028:I
024A80: 46 20 52 41 3C 3E 33 20 54 48 45 4E 20 31 30 31 F RA<>3 THEN 101
024A90: 38 0D 0A 31 30 31 37 20 52 41 3D 49 4E 54 28 46 8..1017 RA=INT(F
024AA0: 54 2D 46 50 29 3A 50 52 49 4E 54 20 54 41 42 28 T-FP):PRINT TAB(
024AB0: 35 29 3B 50 41 24 28 35 29 3B 22 53 50 4F 4E 53 5);PA$(5);"SPONS
024AC0: 4F 52 53 20 50 41 59 20 54 48 45 20 43 4C 55 42 ORS PAY THE CLUB
024AD0: 22 3B 70 61 24 28 31 29 3B 54 41 42 28 33 30 29 ";pa$(1);TAB(30)
024AE0: 3B 3A 54 45 4D 50 3D 52 41 3A 47 4F 53 55 42 20 ;:TEMP=RA:GOSUB
024AF0: 36 33 35 30 30 3A 50 52 49 4E 54 20 54 41 42 28 63500:PRINT TAB(
024B00: 33 36 29 3B 22 2B 20 22 3A 4A 52 3D 4A 52 2B 52 36);"+ ":JR=JR+R
024B10: 41 0D 0A 31 30 31 38 20 49 46 20 44 4B 3E 34 20 A..1018 IF DK>4
024B20: 54 48 45 4E 20 50 52 49 4E 54 20 54 41 42 28 35 THEN PRINT TAB(5
024B30: 29 3B 50 41 24 28 32 29 3B 22 54 56 20 4C 49 56 );PA$(2);"TV LIV
024B40: 45 20 42 52 4F 41 44 43 41 53 54 20 4E 45 54 53 E BROADCAST NETS
024B50: 22 3B 70 61 24 28 31 29 3B 54 41 42 28 33 30 29 ";pa$(1);TAB(30)
024B60: 3B 3A 54 45 4D 50 3D 32 30 30 30 30 3A 47 4F 53 ;:TEMP=20000:GOS
024B70: 55 42 20 36 33 35 30 30 3A 50 52 49 4E 54 20 54 UB 63500:PRINT T
024B80: 41 42 28 33 36 29 3B 22 2B 22 3A 4A 52 3D 4A 52 AB(36);"+":JR=JR
024B90: 2B 32 30 30 30 30 3A 44 4B 3D 30 0D 0A 31 30 31 +20000:DK=0..101
024BA0: 39 20 49 46 20 4D 41 3E 39 20 41 4E 44 20 41 47 9 IF MA>9 AND AG
024BB0: 3C 34 20 41 4E 44 20 43 49 3D 4D 42 20 54 48 45 <4 AND CI=MB THE
024BC0: 4E 20 50 52 49 4E 54 20 54 41 42 28 35 29 3B 50 N PRINT TAB(5);P
024BD0: 41 24 28 33 29 3B 22 46 44 20 4D 41 4E 41 47 45 A$(3);"FD MANAGE
024BE0: 52 20 4F 46 20 54 48 45 20 4D 4F 4E 54 48 22 3B R OF THE MONTH";
024BF0: 70 61 24 28 31 29 3B 54 41 42 28 33 30 29 3B 3A pa$(1);TAB(30);:
024C00: 3D 49 4E 54 28 52 4E 44 2A 52 41 29 3A 48 28 59 =INT(RND*RA):H(Y
024C10: 29 3D 48 28 59 29 2B 28 52 42 2F 31 30 29 3A 49 )=H(Y)+(RB/10):I
024C20: 46 20 6A 28 79 29 3C 3E 33 35 20 54 48 45 4E 20 F j(y)<>35 THEN
024C30: 47 4F 53 55 42 20 35 32 35 0D 0A 31 30 32 30 20 GOSUB 525..1020
024C40: 4E 45 58 54 3A 47 4F 54 4F 20 31 30 32 35 0D 0A NEXT:GOTO 1025..
024C50: 31 30 32 31 20 46 4F 52 20 59 3D 31 20 54 4F 20 1021 FOR Y=1 TO
024C60: 32 30 3A 49 46 20 54 28 59 29 3D 30 20 54 48 45 20:IF T(Y)=0 THE
024C70: 4E 20 31 30 32 33 0D 0A 31 30 32 32 20 52 41 3D N 1023..1022 RA=
024C80: 49 4E 54 28 4E 56 2F 31 30 30 29 3A 52 41 3D 52 INT(NV/100):RA=R
024C90: 41 2B 41 42 53 28 52 41 3D 30 29 3A 52 42 3D 4E A+ABS(RA=0):RB=N
024CA0: 56 2D 5A 41 3A 52 43 3D 49 4E 54 28 52 42 2F 52 V-ZA:RC=INT(RB/R
024CB0: 41 29 3A 52 42 3D 28 28 48 28 59 29 2F 31 30 30 A):RB=((H(Y)/100
024CC0: 29 2A 52 43 29 3A 48 28 59 29 3D 48 28 59 29 2D )*RC):H(Y)=H(Y)-
024CD0: 52 42 3A 49 46 20 6A 28 79 29 3C 3E 33 35 20 54 RB:IF j(y)<>35 T
024CE0: 48 45 4E 20 47 4F 53 55 42 20 35 32 35 0D 0A 31 HEN GOSUB 525..1
024CF0: 30 32 33 20 4E 45 58 54 3A 47 4F 54 4F 20 31 30 023 NEXT:GOTO 10
024D00: 32 35 0D 0A 31 30 32 34 20 47 4F 53 55 42 20 33 25..1024 GOSUB 3
024D10: 33 32 3A 4E 57 3D 5A 41 3A 47 4F 54 4F 20 31 30 32:NW=ZA:GOTO 10
024D20: 30 31 0D 0A 31 30 32 35 20 47 4F 53 55 42 20 33 01..1025 GOSUB 3
024D30: 33 32 3A 4E 56 3D 5A 41 3A 47 4F 54 4F 20 31 30 32:NV=ZA:GOTO 10
024D40: 30 31 0D 0A 31 30 32 36 20 52 41 3D 49 4E 54 28 01..1026 RA=INT(
024D50: 52 4E 44 2A 39 39 29 3A 4D 45 3D 4D 45 2B 41 42 RND*99):ME=ME+AB
024D60: 53 28 4E 57 3C 20 5A 41 20 41 4E 44 20 28 5A 41 S(NW< ZA AND (ZA
024D70: 2D 4E 57 29 3E 35 30 29 2A 52 41 2D 41 42 53 28 -NW)>50)*RA-ABS(
024D80: 4E 57 3E 5A 41 29 2A 52 41 3A 4D 45 3D 4D 45 2D NW>ZA)*RA:ME=ME-
024D90: 41 42 53 28 4D 45 3E 39 39 29 2A 28 4D 45 2D 39 ABS(ME>99)*(ME-9
024DA0: 39 29 3A 49 46 20 4D 45 3C 32 20 54 48 45 4E 20 9):IF ME<2 THEN
024DB0: 4D 45 3D 32 0D 0A 31 30 32 37 20 52 45 54 55 52 ME=2..1027 RETUR
024DC0: 4E 20 0D 0A 31 30 32 38 20 52 41 3D 49 4E 54 28 N ..1028 RA=INT(
024DD0: 52 4E 44 2A 39 39 29 3A 4D 45 3D 4D 45 2B 41 42 RND*99):ME=ME+AB
024DE0: 53 28 4E 56 3C 20 5A 41 20 41 4E 44 20 28 5A 41 S(NV< ZA AND (ZA
024DF0: 2D 4E 56 29 3E 35 30 29 2A 52 41 2D 41 42 53 28 -NV)>50)*RA-ABS(
024E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
024E10: 1F 00 01 00 02 09 4E E5 1F 00 41 02 00 00 00 02 ......N...A.....
024E20: 1F 00 46 02 00 00 00 02 1F 00 42 02 00 00 00 02 ..F.......B.....
024E30: 1F 00 47 02 00 00 00 02 1F 00 43 02 00 00 00 02 ..G.......C.....
024E40: 1F 00 48 02 00 00 00 02 1F 00 44 02 00 00 00 02 ..H.......D.....
024E50: 1F 00 49 02 00 00 00 02 1F 00 45 02 00 00 00 02 ..I.......E.....
024E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024F00: 54 45 4D 50 3D 35 30 30 30 3A 47 4F 53 55 42 20 TEMP=5000:GOSUB
024F10: 36 33 35 30 30 3A 50 52 49 4E 54 20 54 41 42 28 63500:PRINT TAB(
024F20: 33 36 29 3B 22 2B 22 3A 4A 52 3D 4A 52 2B 35 30 36);"+":JR=JR+50
024F30: 30 30 0D 0A 31 30 32 30 20 4D 41 3D 4D 41 2D 41 00..1020 MA=MA-A
024F40: 42 53 28 4D 42 3D 43 49 29 2A 4D 41 3A 4D 42 3D BS(MB=CI)*MA:MB=
024F50: 4D 42 2B 41 42 53 28 4D 42 3D 43 49 29 2A 34 3A MB+ABS(MB=CI)*4:
024F60: 49 46 20 4B 43 3E 30 20 54 48 45 4E 20 50 52 49 IF KC>0 THEN PRI
024F70: 4E 54 20 54 41 42 28 35 29 3B 70 61 24 28 32 29 NT TAB(5);pa$(2)
024F80: 3B 22 42 41 4E 4B 20 52 45 50 41 59 4D 45 4E 54 ;"BANK REPAYMENT
024F90: 53 22 3B 70 61 24 28 31 29 3B 54 41 42 28 33 30 S";pa$(1);TAB(30
024FA0: 29 3B 3A 54 45 4D 50 3D 49 4E 54 28 43 46 29 3A );:TEMP=INT(CF):
024FB0: 47 4F 53 55 42 20 36 33 35 30 30 3A 50 52 49 4E GOSUB 63500:PRIN
024FC0: 54 20 54 41 42 28 33 36 29 3B 22 2D 20 22 3A 4A T TAB(36);"- ":J
024FD0: 52 3D 4A 52 2D 43 46 3A 4B 43 3D 4B 43 2D 43 46 R=JR-CF:KC=KC-CF
024FE0: 3A 4B 41 3D 4B 41 2B 43 46 3A 43 46 3D 43 46 2D :KA=KA+CF:CF=CF-
024FF0: 41 42 53 28 4B 41 3C 31 29 2A 43 46 3A 49 46 20 ABS(KA<1)*CF:IF
025000: 4B 41 3E 43 4F 20 54 48 45 4E 20 4B 41 3D 43 4F KA>CO THEN KA=CO
025010: 0D 0A 31 30 32 31 20 49 46 20 4A 51 3E 30 20 54 ..1021 IF JQ>0 T
025020: 48 45 4E 20 50 52 49 4E 54 20 54 41 42 28 35 29 HEN PRINT TAB(5)
025030: 3B 70 61 24 28 34 29 3B 22 4D 4F 52 54 47 41 47 ;pa$(4);"MORTGAG
025040: 45 20 52 45 50 41 59 4D 45 4E 54 53 22 3B 70 61 E REPAYMENTS";pa
025050: 24 28 31 29 3B 54 41 42 28 33 30 29 3B 3A 54 45 $(1);TAB(30);:TE
025060: 4D 50 3D 4A 50 3A 47 4F 53 55 42 20 36 33 35 30 MP=JP:GOSUB 6350
025070: 30 3A 50 52 49 4E 54 20 54 41 42 28 33 36 29 3B 0:PRINT TAB(36);
025080: 22 2D 22 3A 4A 52 3D 4A 52 2D 4A 50 3A 4A 51 3D "-":JR=JR-JP:JQ=
025090: 4A 51 2D 4A 50 0D 0A 31 30 32 32 20 50 52 49 4E JQ-JP..1022 PRIN
0250A0: 54 20 54 41 42 28 31 34 29 3B 22 57 45 45 4B 27 T TAB(14);"WEEK'
0250B0: 53 20 50 52 4F 46 49 54 20 22 3B 54 41 42 28 33 S PROFIT ";TAB(3
0250C0: 30 29 3B 3A 54 45 4D 50 3D 49 4E 54 28 4A 52 29 0);:TEMP=INT(JR)
0250D0: 3A 47 4F 53 55 42 20 36 33 35 30 30 3A 49 46 20 :GOSUB 63500:IF
0250E0: 4A 52 3C 30 20 54 48 45 4E 20 41 49 3D 49 4E 54 JR<0 THEN AI=INT
0250F0: 28 41 49 29 2D 41 42 53 28 4A 52 29 3A 50 52 49 (AI)-ABS(JR):PRI
025100: 45 51 55 45 53 54 53 20 22 3B 70 61 24 28 31 29 EQUESTS ";pa$(1)
025110: 2C 54 41 42 28 35 29 3B 70 61 24 28 32 29 3B 22 ,TAB(5);pa$(2);"
025120: 41 20 54 52 41 4E 53 46 45 52 20 54 4F 20 22 3B A TRANSFER TO ";
025130: 59 24 28 52 41 29 3B 70 61 24 28 31 29 2C 54 41 Y$(RA);pa$(1),TA
025140: 42 28 35 29 3B 70 61 24 28 32 29 3B 22 54 41 58 B(5);pa$(2);"TAX
025150: 20 46 52 45 45 20 22 3B 3A 54 45 4D 50 3D 49 4E FREE ";:TEMP=IN
025160: 54 28 45 56 29 3A 47 4F 53 55 42 20 36 33 35 30 T(EV):GOSUB 6350
025170: 30 3A 50 52 49 4E 54 20 22 20 20 41 43 43 45 50 0:PRINT " ACCEP
025180: 54 20 59 2F 4E 22 3B 70 61 24 28 31 29 0D 0A 31 T Y/N";pa$(1)..1
025190: 30 35 33 20 47 4F 53 55 42 20 36 34 30 30 30 3A 053 GOSUB 64000:
0251A0: 49 46 20 49 4E 24 3D 22 59 22 20 54 48 45 4E 20 IF IN$="Y" THEN
0251B0: 31 30 35 34 20 45 4C 53 45 20 49 46 20 49 4E 24 1054 ELSE IF IN$
0251C0: 3D 22 4E 22 20 54 48 45 4E 20 31 30 35 35 20 45 ="N" THEN 1055 E
0251D0: 4C 53 45 20 31 30 35 33 0D 0A 31 30 35 34 20 47 LSE 1053..1054 G
0251E0: 4F 53 55 42 20 31 30 36 36 3A 59 3D 49 3A 4A 52 OSUB 1066:Y=I:JR
0251F0: 3D 4A 52 2B 45 56 3A 47 4F 53 55 42 20 32 30 30 =JR+EV:GOSUB 200
025200: 3A 52 45 54 55 52 4E 20 0D 0A 31 30 35 35 20 52 :RETURN ..1055 R
025210: 41 3D 49 4E 54 28 52 4E 44 2A 31 30 29 3A 48 28 A=INT(RND*10):H(
025220: 49 29 3D 48 28 49 29 2D 28 48 28 49 29 2F 31 30 I)=H(I)-(H(I)/10
025230: 29 3A 59 3D 49 3A 47 4F 53 55 42 20 35 32 35 3A ):Y=I:GOSUB 525:
025240: 52 45 54 55 52 4E 0D 0A 31 30 35 36 20 4E 45 58 RETURN..1056 NEX
025250: 54 3A 52 45 54 55 52 4E 20 0D 0A 31 30 35 37 20 T:RETURN ..1057
025260: 79 3D 66 6C 61 67 3A 52 41 3D 39 37 2B 49 4E 54 y=flag:RA=97+INT
025270: 28 52 4E 44 2A 31 30 29 3A 52 42 3D 31 35 30 30 (RND*10):RB=1500
025280: 30 30 30 2B 49 4E 54 28 52 4E 44 2A 31 30 30 30 000+INT(RND*1000
025290: 30 30 30 29 3A 50 52 49 4E 54 20 59 24 28 52 41 000):PRINT Y$(RA
0252A0: 29 3B 22 20 4F 46 46 45 52 20 22 3B 3A 54 45 4D );" OFFER ";:TEM
0252B0: 50 3D 52 42 3A 47 4F 53 55 42 20 36 33 35 30 30 P=RB:GOSUB 63500
0252C0: 3A 50 52 49 4E 54 20 22 20 54 41 58 20 46 52 45 :PRINT " TAX FRE
0252D0: 45 22 2C 22 46 4F 52 20 22 3B 56 24 28 59 29 3B E","FOR ";V$(Y);
0252E0: 22 20 41 43 43 45 50 54 20 59 2F 4E 22 0D 0A 31 " ACCEPT Y/N"..1
0252F0: 30 35 38 20 47 4F 53 55 42 20 36 34 31 30 30 3A 058 GOSUB 64100:
025300: 4E 54 22 20 2D 22 3A 47 4F 54 4F 20 31 30 32 34 NT" -":GOTO 1024
025310: 0D 0A 31 30 32 33 20 41 49 3D 49 4E 54 28 41 49 ..1023 AI=INT(AI
025320: 29 2B 4A 52 0D 0A 31 30 32 34 20 49 46 20 5A 38 )+JR..1024 IF Z8
025330: 3E 30 20 54 48 45 4E 20 47 4F 53 55 42 20 39 31 >0 THEN GOSUB 91
025340: 31 0D 0A 31 30 32 35 20 47 4F 53 55 42 20 31 30 1..1025 GOSUB 10
025350: 32 38 3A 49 46 20 52 41 3E 3D 34 20 54 48 45 4E 28:IF RA>=4 THEN
025360: 20 31 30 32 39 0D 0A 31 30 32 36 20 46 4F 52 20 1029..1026 FOR
025370: 49 3D 31 20 54 4F 20 32 30 3A 47 4F 53 55 42 20 I=1 TO 20:GOSUB
025380: 31 30 36 34 0D 0A 31 30 32 37 20 4E 45 58 54 3A 1064..1027 NEXT:
025390: 47 4F 54 4F 20 31 30 32 39 0D 0A 31 30 32 38 20 GOTO 1029..1028
0253A0: 52 41 3D 31 2B 49 4E 54 28 52 4E 44 2A 33 35 29 RA=1+INT(RND*35)
0253B0: 3A 52 45 54 55 52 4E 20 0D 0A 31 30 32 39 20 47 :RETURN ..1029 G
0253C0: 4F 53 55 42 20 31 30 32 38 3A 49 46 20 52 41 3E OSUB 1028:IF RA>
0253D0: 32 20 54 48 45 4E 20 31 30 33 33 0D 0A 31 30 33 2 THEN 1033..103
0253E0: 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 32 30 3A 0 FOR I=1 TO 20:
0253F0: 54 45 4D 50 24 3D 56 24 28 49 29 3A 47 4F 53 55 TEMP$=V$(I):GOSU
025400: 42 20 36 34 39 30 30 3A 49 46 20 46 4C 41 47 3D B 64900:IF FLAG=
025410: 30 20 41 4E 44 20 55 28 49 29 3D 31 20 54 48 45 0 AND U(I)=1 THE
025420: 4E 20 50 52 49 4E 54 20 54 41 42 28 35 29 3B 70 N PRINT TAB(5);p
025430: 61 24 28 32 29 3B 56 24 28 49 29 3B 22 20 52 45 a$(2);V$(I);" RE
025440: 54 49 52 45 53 20 54 48 52 4F 55 47 48 20 49 4E TIRES THROUGH IN
025450: 4A 55 52 59 20 22 3B 70 61 24 28 31 29 3A 47 4F JURY ";pa$(1):GO
025460: 53 55 42 20 32 30 30 3A 49 3D 32 31 0D 0A 31 30 SUB 200:I=21..10
025470: 33 31 20 52 45 4D 0D 0A 31 30 33 32 20 4E 45 58 31 REM..1032 NEX
025480: 54 0D 0A 31 30 33 33 20 49 46 20 4D 43 3E 34 20 T..1033 IF MC>4
025490: 54 48 45 4E 20 50 52 49 4E 54 20 54 41 42 28 35 THEN PRINT TAB(5
0254A0: 29 3B 70 61 24 28 33 29 3B 22 50 4F 4F 4C 53 20 );pa$(3);"POOLS
0254B0: 50 41 4E 45 4C 20 53 49 54 53 22 3B 70 61 24 28 PANEL SITS";pa$(
0254C0: 31 29 0D 0A 31 30 33 34 20 4D 43 3D 30 3A 6E 71 1)..1034 MC=0:nq
0254D0: 3D 6E 71 2B 28 6E 71 3E 2D 31 29 3A 49 46 20 6E =nq+(nq>-1):IF n
0254E0: 71 3C 3E 30 20 54 48 45 4E 20 31 30 33 35 20 45 q<>0 THEN 1035 E
0254F0: 4C 53 45 20 50 52 49 4E 54 20 54 41 42 28 35 29 LSE PRINT TAB(5)
025500: 49 46 20 49 4E 24 3D 22 4E 22 20 54 48 45 4E 20 IF IN$="N" THEN
025510: 31 30 31 31 0D 0A 31 30 35 39 20 49 46 20 52 42 1011..1059 IF RB
025520: 3E 3D 50 42 20 54 48 45 4E 20 4F 24 28 32 29 3D >=PB THEN O$(2)=
025530: 56 24 28 59 29 3A 50 42 3D 52 42 0D 0A 31 30 36 V$(Y):PB=RB..106
025540: 30 20 49 3D 59 3A 47 4F 53 55 42 20 31 30 36 36 0 I=Y:GOSUB 1066
025550: 3A 47 4F 53 55 42 20 32 30 30 3A 4A 52 3D 4A 52 :GOSUB 200:JR=JR
025560: 2B 52 42 3A 47 4F 54 4F 20 31 30 31 31 0D 0A 31 +RB:GOTO 1011..1
025570: 30 36 31 20 50 52 49 4E 54 20 22 2B 22 3A 4A 52 061 PRINT "+":JR
025580: 3D 42 4C 2D 4E 50 3A 46 54 3D 49 4E 54 20 28 43 =BL-NP:FT=INT (C
025590: 4F 2F 34 29 3A 46 50 3D 49 4E 54 20 28 43 4F 2F O/4):FP=INT (CO/
0255A0: 33 31 29 3A 46 51 3D 49 4E 54 20 28 43 4F 2F 35 31):FQ=INT (CO/5
0255B0: 39 29 3A 46 52 3D 49 4E 54 20 28 43 4F 2F 39 39 9):FR=INT (CO/99
0255C0: 29 3A 52 41 3D 46 52 2B 28 52 4E 44 2A 46 51 29 ):RA=FR+(RND*FQ)
0255D0: 2B 46 50 2F 41 50 3A 46 50 3D 49 4E 54 20 28 46 +FP/AP:FP=INT (F
0255E0: 50 2B 52 41 29 0D 0A 31 30 36 32 20 4C 4F 43 41 P+RA)..1062 LOCA
0255F0: 54 45 20 35 2C 34 3A 50 52 49 4E 54 20 22 47 45 TE 5,4:PRINT "GE
025600: 4E 45 52 41 4C 20 52 55 4E 4E 49 4E 47 20 43 4F NERAL RUNNING CO
025610: 53 54 53 22 3B 54 41 42 28 33 30 29 3B 3A 54 45 STS";TAB(30);:TE
025620: 4D 50 3D 46 50 3A 47 4F 53 55 42 20 36 33 35 30 MP=FP:GOSUB 6350
025630: 30 3A 50 52 49 4E 54 20 54 41 42 28 33 36 29 3B 0:PRINT TAB(36);
025640: 22 2D 22 2C 54 41 42 28 35 29 3B 22 49 4E 54 45 "-",TAB(5);"INTE
025650: 52 45 53 54 20 46 52 4F 4D 20 42 41 4E 4B 22 3B REST FROM BANK";
025660: 54 41 42 28 33 30 29 3B 3A 54 45 4D 50 3D 49 4E TAB(30);:TEMP=IN
025670: 54 28 46 4D 29 3A 47 4F 53 55 42 20 36 33 35 30 T(FM):GOSUB 6350
025680: 30 3A 50 52 49 4E 54 20 54 41 42 28 33 36 29 3B 0:PRINT TAB(36);
025690: 22 2B 22 3A 4A 52 3D 4A 52 2D 46 50 2B 46 4D 0D "+":JR=JR-FP+FM.
0256A0: 0A 31 30 36 33 20 52 45 54 55 52 4E 0D 0A 31 30 .1063 RETURN..10
0256B0: 36 34 20 49 46 20 54 28 49 29 3E 30 20 41 4E 44 64 IF T(I)>0 AND
0256C0: 20 41 42 53 28 47 28 49 29 29 3E 32 39 20 41 4E ABS(G(I))>29 AN
0256D0: 44 20 4A 28 49 29 3C 3E 38 32 20 41 4E 44 20 4A D J(I)<>82 AND J
0256E0: 28 49 29 3C 3E 34 32 20 41 4E 44 20 4A 28 49 29 (I)<>42 AND J(I)
0256F0: 3C 3E 37 36 20 41 4E 44 20 4A 28 49 29 3C 3E 38 <>76 AND J(I)<>8
025700: 3B 70 61 24 28 33 29 3B 22 49 4E 53 55 52 41 4E ;pa$(3);"INSURAN
025710: 43 45 20 50 4F 4C 49 43 59 20 48 41 53 20 45 58 CE POLICY HAS EX
025720: 50 49 52 45 44 22 3B 70 61 24 28 31 29 0D 0A 31 PIRED";pa$(1)..1
025730: 30 33 35 20 43 48 41 49 4E 20 4D 45 52 47 45 20 035 CHAIN MERGE
025740: 22 41 44 22 2C 31 30 33 36 0D 0A 31 30 33 36 20 "AD",1036..1036
025750: 48 57 3D 31 30 30 31 3A 44 24 3D 22 57 31 22 3A HW=1001:D$="W1":
025760: 49 46 20 42 55 3E 38 30 20 54 48 45 4E 20 39 30 IF BU>80 THEN 90
025770: 31 20 45 4C 53 45 20 48 57 3D 31 30 30 33 3A 47 1 ELSE HW=1003:G
025780: 4F 54 4F 20 39 30 31 0D 0A 31 30 33 37 20 47 4F OTO 901..1037 GO
025790: 53 55 42 20 31 30 32 38 3A 66 6C 61 67 3D 30 3A SUB 1028:flag=0:
0257A0: 46 4F 52 20 59 3D 31 20 54 4F 20 32 30 3A 49 46 FOR Y=1 TO 20:IF
0257B0: 20 4A 28 59 29 3D 31 30 35 20 41 4E 44 20 52 41 J(Y)=105 AND RA
0257C0: 3C 36 20 54 48 45 4E 20 46 4C 41 47 3D 59 3A 59 <6 THEN FLAG=Y:Y
0257D0: 3D 39 37 20 45 4C 53 45 20 49 46 20 4A 28 59 29 =97 ELSE IF J(Y)
0257E0: 3D 31 30 35 20 41 4E 44 20 52 41 3D 39 20 54 48 =105 AND RA=9 TH
0257F0: 45 4E 20 66 6C 61 67 3D 59 3A 79 3D 39 38 0D 0A EN flag=Y:y=98..
025800: 31 30 33 38 20 4E 45 58 54 3A 49 46 20 59 3D 39 1038 NEXT:IF Y=9
025810: 39 20 54 48 45 4E 20 31 30 35 37 20 45 4C 53 45 9 THEN 1057 ELSE
025820: 20 49 46 20 59 3C 39 38 20 54 48 45 4E 20 31 30 IF Y<98 THEN 10
025830: 31 31 0D 0A 31 30 33 39 20 59 3D 46 4C 41 47 3A 11..1039 Y=FLAG:
025840: 50 52 49 4E 54 20 54 41 42 28 35 29 3B 70 61 24 PRINT TAB(5);pa$
025850: 28 36 29 3B 56 24 28 59 29 3B 22 20 49 4E 54 45 (6);V$(Y);" INTE
025860: 52 4E 41 54 49 4F 4E 41 4C 20 43 4F 4D 49 54 4D RNATIONAL COMITM
025870: 45 4E 54 22 3B 70 61 24 28 31 29 2C 54 41 42 28 ENT";pa$(1),TAB(
025880: 35 29 3B 70 61 24 28 36 29 3B 22 20 52 45 4C 45 5);pa$(6);" RELE
025890: 41 53 45 20 48 49 4D 20 59 2F 4E 22 3B 70 61 24 ASE HIM Y/N";pa$
0258A0: 28 31 29 3B 54 41 42 28 32 33 29 3B 3A 54 45 4D (1);TAB(23);:TEM
0258B0: 50 3D 56 28 31 2C 59 29 3A 47 4F 53 55 42 20 36 P=V(1,Y):GOSUB 6
0258C0: 33 35 30 30 3A 50 52 49 4E 54 20 54 41 42 28 33 3500:PRINT TAB(3
0258D0: 36 29 3B 22 2B 22 0D 0A 31 30 34 30 20 47 4F 53 6);"+"..1040 GOS
0258E0: 55 42 20 36 34 30 30 30 3A 49 46 20 49 4E 24 3D UB 64000:IF IN$=
0258F0: 22 59 22 20 54 48 45 4E 20 4A 28 59 29 3D 37 33 "Y" THEN J(Y)=73
025900: 33 20 41 4E 44 20 4A 28 49 29 3C 3E 37 33 20 41 3 AND J(I)<>73 A
025910: 4E 44 20 4A 28 49 29 3C 3E 33 35 20 54 48 45 4E ND J(I)<>35 THEN
025920: 20 4A 28 49 29 3D 38 32 2D 41 42 53 28 55 28 49 J(I)=82-ABS(U(I
025930: 29 3E 30 29 2A 34 37 20 45 4C 53 45 20 52 45 54 )>0)*47 ELSE RET
025940: 55 52 4E 0D 0A 31 30 36 35 20 45 28 31 2C 49 29 URN..1065 E(1,I)
025950: 3D 45 28 31 2C 49 29 2B 28 45 28 31 2C 49 29 3C =E(1,I)+(E(1,I)<
025960: 30 29 2A 28 45 28 31 2C 49 29 2A 32 29 3A 50 52 0)*(E(1,I)*2):PR
025970: 49 4E 54 20 70 61 24 28 32 29 3B 56 24 28 49 29 INT pa$(2);V$(I)
025980: 22 20 41 4E 4F 55 4E 43 45 53 20 48 45 20 50 4C " ANOUNCES HE PL
025990: 41 4E 53 20 54 4F 22 3A 50 52 49 4E 54 22 52 45 ANS TO":PRINT"RE
0259A0: 54 49 52 45 20 41 54 20 54 48 45 20 45 4E 44 20 TIRE AT THE END
0259B0: 4F 46 20 54 48 45 20 53 45 41 53 4F 4E 22 3B 70 OF THE SEASON";p
0259C0: 61 24 28 31 29 3A 47 28 49 29 3D 41 42 53 28 47 a$(1):G(I)=ABS(G
0259D0: 28 49 29 29 3A 49 3D 32 31 3A 52 45 54 55 52 4E (I)):I=21:RETURN
0259E0: 0D 0A 31 30 36 36 20 52 41 3D 49 3A 46 4F 52 20 ..1066 RA=I:FOR
0259F0: 59 3D 32 31 20 54 4F 20 32 33 3A 49 46 20 56 24 Y=21 TO 23:IF V$
025A00: 28 59 29 3D 56 24 28 49 29 20 54 48 45 4E 20 49 (Y)=V$(I) THEN I
025A10: 3D 59 3A 47 4F 53 55 42 20 32 30 30 3A 49 3D 52 =Y:GOSUB 200:I=R
025A20: 41 0D 0A 31 30 36 37 20 4E 45 58 54 3A 52 45 54 A..1067 NEXT:RET
025A30: 55 52 4E 0D 0A 1A 00 00 00 1A 20 03 00 00 D6 28 URN....... ....(
025A40: 0D 00 00 D9 29 EF 03 00 00 D6 28 0D 00 00 C9 29 ....).....(....)
025A50: 20 EB 20 0D 00 00 C9 EF 0D 00 00 D9 01 9F 20 1E . ........... .
025A60: C8 00 01 0D 00 00 C9 EF 0D 00 00 52 C1 00 08 00 ...........R....
025A70: 2B 04 B0 01 C9 00 00 00 1A 01 C9 00 00 00 1A 54 +..............T
025A80: 30 3A 50 52 49 4E 54 20 54 41 42 28 33 36 29 3B 0:PRINT TAB(36);
025A90: 22 2B 22 3A 4A 52 3D 4A 52 2D 46 50 2B 46 4D 0D "+":JR=JR-FP+FM.
025AA0: 0A 31 30 36 33 20 52 45 54 55 52 4E 0D 0A 31 30 .1063 RETURN..10
025AB0: 36 34 20 49 46 20 54 28 49 29 3E 30 20 41 4E 44 64 IF T(I)>0 AND
025AC0: 20 41 42 53 28 47 28 49 29 29 3E 32 39 20 41 4E ABS(G(I))>29 AN
025AD0: 44 20 4A 28 49 29 3C 3E 38 32 20 41 4E 44 20 4A D J(I)<>82 AND J
025AE0: 28 49 29 3C 3E 34 32 20 41 4E 44 20 4A 28 49 29 (I)<>42 AND J(I)
025AF0: 3C 3E 37 36 20 41 4E 44 20 4A 28 49 29 3C 3E 38 <>76 AND J(I)<>8
025B00: 3A 4A 52 3D 4A 52 2B 56 28 31 2C 59 29 3A 41 44 :JR=JR+V(1,Y):AD
025B10: 3D 59 3A 47 4F 53 55 42 20 33 35 31 3A 47 4F 54 =Y:GOSUB 351:GOT
025B20: 4F 20 31 30 31 31 0D 0A 31 30 34 31 20 49 46 20 O 1011..1041 IF
025B30: 49 4E 24 3D 22 4E 22 20 54 48 45 4E 20 52 41 3D IN$="N" THEN RA=
025B40: 31 2B 49 4E 54 20 28 52 4E 44 2A 31 35 29 3A 48 1+INT (RND*15):H
025B50: 28 59 29 3D 48 28 59 29 2D 28 52 41 2F 31 30 29 (Y)=H(Y)-(RA/10)
025B60: 3A 47 4F 53 55 42 20 35 32 35 3A 47 4F 54 4F 20 :GOSUB 525:GOTO
025B70: 31 30 31 31 0D 0A 31 30 34 32 20 47 4F 54 4F 20 1011..1042 GOTO
025B80: 31 30 34 30 0D 0A 31 30 34 33 20 47 4F 53 55 42 1040..1043 GOSUB
025B90: 20 38 31 36 3A 46 4F 52 20 4A 3D 31 20 54 4F 20 816:FOR J=1 TO
025BA0: 34 3A 46 4F 52 20 4B 3D 31 20 54 4F 20 34 3A 52 4:FOR K=1 TO 4:R
025BB0: 41 3D 2D 33 2B 49 4E 54 20 28 52 4E 44 2A 36 29 A=-3+INT (RND*6)
025BC0: 3A 52 41 3D 52 41 2D 41 42 53 28 52 41 3C 30 29 :RA=RA-ABS(RA<0)
025BD0: 2A 52 41 3A 49 28 31 2C 4A 2C 4B 29 3D 49 28 31 *RA:I(1,J,K)=I(1
025BE0: 2C 4A 2C 4B 29 2B 52 41 3A 4E 45 58 54 3A 52 41 ,J,K)+RA:NEXT:RA
025BF0: 3D 31 2B 49 4E 54 20 28 52 4E 44 2A 31 30 29 3A =1+INT (RND*10):
025C00: 49 46 20 52 41 3E 31 20 54 48 45 4E 20 31 30 34 IF RA>1 THEN 104
025C10: 35 0D 0A 31 30 34 34 20 47 4F 53 55 42 20 39 38 5..1044 GOSUB 98
025C20: 3A 4C 24 28 4A 2C 34 29 3D 43 48 52 24 28 5A 39 :L$(J,4)=CHR$(Z9
025C30: 29 2B 22 2E 22 2B 4D 49 44 24 28 48 24 2C 52 43 )+"."+MID$(H$,RC
025C40: 2C 31 29 2B 4D 49 44 24 28 4D 24 2C 52 42 2C 31 ,1)+MID$(M$,RB,1
025C50: 29 2B 4D 49 44 24 28 48 24 2C 52 44 2C 31 29 2B )+MID$(H$,RD,1)+
025C60: 45 24 28 52 41 29 3A 4C 24 28 4A 2C 34 29 3D 4C E$(RA):L$(J,4)=L
025C70: 24 28 4A 2C 34 29 2B 53 50 41 43 45 24 28 38 2D $(J,4)+SPACE$(8-
025C80: 4C 45 4E 28 4C 24 28 4A 2C 34 29 29 29 3A 47 4F LEN(L$(J,4))):GO
025C90: 53 55 42 20 38 31 37 3A 49 28 32 2C 4A 2C 34 29 SUB 817:I(2,J,4)
025CA0: 3D 52 41 0D 0A 31 30 34 35 20 4E 45 58 54 3A 47 =RA..1045 NEXT:G
025CB0: 4F 53 55 42 20 38 31 35 0D 0A 31 30 34 36 20 52 OSUB 815..1046 R
025CC0: 41 3D 31 2B 49 4E 54 28 52 4E 44 2A 31 35 29 3A A=1+INT(RND*15):
025CD0: 49 46 20 52 41 3D 39 20 54 48 45 4E 20 52 41 3D IF RA=9 THEN RA=
025CE0: 49 4E 54 28 41 49 2F 31 30 30 29 2A 31 35 3A 50 INT(AI/100)*15:P
025CF0: 52 49 4E 54 20 54 41 42 28 35 29 3B 22 56 41 54 RINT TAB(5);"VAT
025D00: 29 01 9F 20 1E 0C F8 01 BF 20 EA 28 19 24 29 3B ).. ..... .(.$);
025D10: 22 2B 20 22 01 01 0D 00 00 4A D2 EF 0D 00 00 4A "+ ".....J.....J
025D20: D2 F4 0D 00 00 6F 31 EE 00 06 00 ED 03 C5 00 1A .....o1.........
025D30: 00 EE 03 9F 20 1E 04 04 01 A1 20 0D 00 00 52 C1 .... ..... ...R.
025D40: F0 11 20 EB 20 1E F1 03 00 D6 00 EF 03 9E 20 0D .. . ......... .
025D50: 00 00 C9 EF 0F 20 EC 20 19 14 01 03 00 00 54 45 ..... . ......TE
025D60: 4D D0 EF 03 00 00 D6 28 0D 00 00 C9 29 01 9F 20 M......(....)..
025D70: 1E 84 FD 01 A1 20 0D 00 00 46 4C 41 C7 20 FA 20 ..... ...FLA. .
025D80: FF 00 28 0D 00 00 D8 28 0D 00 00 C9 29 29 EE 1A ..(....(....))..
025D90: 90 01 20 EB 20 0D 00 00 52 C1 EF FF 0C 28 0D 00 .. . ...R....(..
025DA0: 00 46 D4 F5 0D 00 00 46 D0 29 01 BF 20 EA 28 13 .F.....F.).. .(.
025DB0: 29 3B 03 00 00 50 C1 28 11 29 3B 03 00 00 D6 28 );...P.(.);....(
025DC0: 0D 00 00 C9 29 3B 22 20 54 45 53 54 49 4D 4F 4E ....);" TESTIMON
025DD0: 49 41 4C 20 22 3B 03 00 00 70 E1 28 0F 29 3B EA IAL ";...p.(.);.
025DE0: 28 19 1E 29 3B 01 0D 00 00 54 45 4D D0 EF 0D 00 (..);....TEM....
025DF0: 00 52 C1 01 9F 20 1E 0C F8 01 BF 20 EA 28 19 24 .R... ..... .(.$
025E00: 29 3B 22 2B 20 22 01 0D 00 00 4A D2 EF 0D 00 00 );"+ "....J.....
025E10: 4A D2 F4 0D 00 00 52 C1 01 A0 20 1E F1 03 00 06 J.....R... .....
025E20: 00 F0 03 B0 00 73 00 F1 03 A1 20 0D 00 00 4E D1 .....s.... ...N.
025E30: EE 0E 20 FA 20 0D 00 00 4F CF EE 0E 20 EB 20 BF .. . ...O... . .
025E40: 20 EA 28 13 29 3B 22 49 4E 53 55 52 41 4E 43 45 .(.);"INSURANCE
025E50: 20 50 41 59 53 20 43 4C 55 42 22 3B EA 28 19 1E PAYS CLUB";.(..
025E60: 29 01 0D 00 00 54 45 4D D0 EF FF 0C 28 0D 00 00 )....TEM....(...
025E70: 4F CF 29 01 9F 20 1E 0C F8 01 BF 20 EA 28 19 24 O.).. ..... .(.$
025E80: 29 3B 22 2B 22 01 0D 00 00 4A D2 EF 0D 00 00 4A );"+"....J.....J
025E90: D2 F4 0D 00 00 4F CF 00 0A 00 F2 03 A0 20 1E 0D .....O....... ..
025EA0: 04 00 0A 00 F3 03 9F 20 1E 13 04 00 6E 00 F4 03 ....... ....n...
025EB0: A1 20 0D 00 00 4F D4 EE 0E 20 EB 20 BF 20 EA 28 . ...O... . . .(
025EC0: 13 29 3B 22 42 4F 4E 55 53 20 50 41 59 22 3B EA .);"BONUS PAY";.
025ED0: 28 19 1E 29 3B 01 0D 00 00 54 45 4D D0 EF FF 0C (..);....TEM....
025EE0: 28 19 0B F6 0D 00 00 4E D7 29 01 9F 20 1E 0C F8 (......N.).. ...
025EF0: 01 BF 20 EA 28 19 24 29 3B 22 2D 22 01 0D 00 00 .. .(.$);"-"....
025F00: 20 52 45 54 55 52 4E 53 22 3B 54 41 42 28 33 30 RETURNS";TAB(30
025F10: 29 3A 54 45 4D 50 3D 52 41 3A 47 4F 53 55 42 20 ):TEMP=RA:GOSUB
025F20: 36 33 35 30 30 3A 50 52 49 4E 54 20 54 41 42 28 63500:PRINT TAB(
025F30: 33 38 29 3B 22 2D 22 3A 4A 52 3D 4A 52 2D 52 41 38);"-":JR=JR-RA
025F40: 0D 0A 31 30 34 37 20 47 4F 53 55 42 20 31 30 32 ..1047 GOSUB 102
025F50: 38 3A 49 46 20 52 41 3D 39 20 41 4E 44 20 41 49 8:IF RA=9 AND AI
025F60: 3E 33 30 30 30 30 30 20 4F 52 20 41 49 3E 31 35 >300000 OR AI>15
025F70: 30 30 30 30 30 20 54 48 45 4E 20 52 41 3D 49 4E 00000 THEN RA=IN
025F80: 54 20 28 41 49 2F 32 29 3A 50 52 49 4E 54 20 54 T (AI/2):PRINT T
025F90: 41 42 28 35 29 3B 70 61 24 28 35 29 3B 22 44 49 AB(5);pa$(5);"DI
025FA0: 52 45 43 54 4F 52 53 20 57 49 54 48 44 52 41 57 RECTORS WITHDRAW
025FB0: 22 3B 70 61 24 28 31 29 3B 54 41 42 28 33 30 29 ";pa$(1);TAB(30)
025FC0: 3B 3A 54 45 4D 50 3D 49 4E 54 28 52 41 29 3A 47 ;:TEMP=INT(RA):G
025FD0: 4F 53 55 42 20 36 33 35 30 30 3A 50 52 49 4E 54 OSUB 63500:PRINT
025FE0: 20 54 41 42 28 33 38 29 3B 22 2D 22 3A 4A 52 3D TAB(38);"-":JR=
025FF0: 4A 52 2D 52 41 0D 0A 31 30 34 38 20 47 4F 53 55 JR-RA..1048 GOSU
026000: 42 20 31 30 32 38 3A 49 46 20 52 41 3C 3E 38 20 B 1028:IF RA<>8
026010: 54 48 45 4E 20 52 45 54 55 52 4E 20 0D 0A 31 30 THEN RETURN ..10
026020: 34 39 20 46 4F 52 20 49 3D 32 30 20 54 4F 20 31 49 FOR I=20 TO 1
026030: 20 53 54 45 50 20 2D 31 3A 49 46 20 54 28 49 29 STEP -1:IF T(I)
026040: 3D 30 20 54 48 45 4E 20 31 30 35 36 0D 0A 31 30 =0 THEN 1056..10
026050: 35 30 20 49 46 20 4A 28 49 29 3D 33 32 20 4F 52 50 IF J(I)=32 OR
026060: 20 4A 28 49 29 3D 34 33 20 4F 52 20 4A 28 49 29 J(I)=43 OR J(I)
026070: 3D 34 35 20 54 48 45 4E 20 31 30 35 31 20 45 4C =45 THEN 1051 EL
026080: 53 45 20 31 30 35 36 0D 0A 31 30 35 31 20 52 41 SE 1056..1051 RA
026090: 3D 31 2B 49 4E 54 20 28 52 4E 44 2A 32 30 29 3A =1+INT (RND*20):
0260A0: 49 46 20 59 24 28 52 41 29 3D 5A 24 20 54 48 45 IF Y$(RA)=Z$ THE
0260B0: 4E 20 31 30 35 31 0D 0A 31 30 35 32 20 45 56 3D N 1051..1052 EV=
0260C0: 49 4E 54 28 48 28 49 29 29 2A 48 28 49 29 2A 36 INT(H(I))*H(I)*6
0260D0: 30 30 30 3A 50 52 49 4E 54 20 54 41 42 28 35 29 000:PRINT TAB(5)
0260E0: 3B 70 61 24 28 32 29 3B 56 24 28 49 29 3B 22 20 ;pa$(2);V$(I);"
0260F0: 49 53 20 55 4E 48 41 50 50 59 20 41 4E 44 20 52 IS UNHAPPY AND R
026100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
026110: 20 00 01 00 02 09 4E E5 20 00 41 02 00 00 00 02 .....N. .A.....
026120: 20 00 46 02 00 00 00 02 20 00 42 02 00 00 00 02 .F..... .B.....
026130: 20 00 47 02 00 00 00 02 20 00 43 02 00 00 00 02 .G..... .C.....
026140: 20 00 48 02 00 00 00 02 20 00 44 02 00 00 00 02 .H..... .D.....
026150: 20 00 49 02 00 00 00 02 20 00 45 02 00 00 00 02 .I..... .E.....
026160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026200: 31 30 30 31 20 46 4C 3D 31 2B 49 4E 54 20 28 52 1001 FL=1+INT (R
026210: 4E 44 2A 32 30 29 3A 54 45 4D 50 24 3D 56 24 28 ND*20):TEMP$=V$(
026220: 46 4C 29 3A 47 4F 53 55 42 20 36 34 39 30 30 3A FL):GOSUB 64900:
026230: 49 46 20 46 4C 41 47 20 4F 52 20 4A 28 46 4C 29 IF FLAG OR J(FL)
026240: 3D 33 35 20 4F 52 20 4A 28 46 4C 29 3D 34 32 20 =35 OR J(FL)=42
026250: 4F 52 20 4A 28 46 4C 29 3D 37 33 20 4F 52 20 4A OR J(FL)=73 OR J
026260: 28 46 4C 29 3D 38 32 20 4F 52 20 4A 28 46 4C 29 (FL)=82 OR J(FL)
026270: 3D 38 33 20 54 48 45 4E 20 31 30 30 35 0D 0A 31 =83 THEN 1005..1
026280: 30 30 32 20 47 4F 53 55 42 20 31 30 35 34 0D 0A 002 GOSUB 1054..
026290: 31 30 30 33 20 49 46 20 4A 53 3D 30 20 54 48 45 1003 IF JS=0 THE
0262A0: 4E 20 31 30 30 35 0D 0A 31 30 30 34 20 50 52 49 N 1005..1004 PRI
0262B0: 4E 54 20 56 24 28 46 4C 29 3B 22 20 52 45 54 49 NT V$(FL);" RETI
0262C0: 52 45 53 20 54 48 52 4F 55 47 48 20 49 4E 4A 55 RES THROUGH INJU
0262D0: 52 59 22 3A 49 3D 46 4C 3A 47 4F 53 55 42 20 32 RY":I=FL:GOSUB 2
0262E0: 30 30 0D 0A 31 30 30 35 20 4A 53 3D 30 0D 0A 31 00..1005 JS=0..1
0262F0: 30 30 36 20 74 65 6D 70 24 3D 49 24 28 31 29 3A 006 temp$=I$(1):
026300: 47 4F 53 55 42 20 36 34 39 30 30 3A 49 46 20 66 GOSUB 64900:IF f
026310: 6C 61 67 20 54 48 45 4E 20 31 30 31 31 0D 0A 31 lag THEN 1011..1
026320: 30 30 37 20 46 4F 52 20 49 3D 36 20 54 4F 20 31 007 FOR I=6 TO 1
026330: 32 3A 74 65 6D 70 24 3D 49 24 28 49 29 3A 47 4F 2:temp$=I$(I):GO
026340: 53 55 42 20 36 34 39 30 30 3A 49 46 20 66 6C 61 SUB 64900:IF fla
026350: 67 20 54 48 45 4E 20 31 30 31 30 0D 0A 31 30 30 g THEN 1010..100
026360: 38 20 52 41 3D 49 4E 54 20 28 59 28 32 2C 31 29 8 RA=INT (Y(2,1)
026370: 2F 31 30 29 3A 52 42 3D 49 4E 54 20 28 52 4E 44 /10):RB=INT (RND
026380: 2A 52 41 29 3A 52 42 3D 49 4E 54 20 28 52 42 2F *RA):RB=INT (RB/
026390: 32 29 3A 49 46 20 59 28 32 2C 49 29 2B 52 42 3E 2):IF Y(2,I)+RB>
0263A0: 20 59 28 33 2C 49 29 20 54 48 45 4E 20 59 28 32 Y(3,I) THEN Y(2
0263B0: 2C 49 29 3D 49 4E 54 28 59 28 32 2C 49 29 2D 52 ,I)=INT(Y(2,I)-R
0263C0: 42 29 3A 47 4F 54 4F 20 31 30 31 30 0D 0A 31 30 B):GOTO 1010..10
0263D0: 30 39 20 59 28 32 2C 49 29 3D 49 4E 54 28 59 28 09 Y(2,I)=INT(Y(
0263E0: 32 2C 49 29 2B 52 42 29 0D 0A 31 30 31 30 20 4E 2,I)+RB)..1010 N
0263F0: 45 58 54 0D 0A 31 30 31 31 20 4F 57 3D 30 3A 42 EXT..1011 OW=0:B
026400: 52 45 43 54 4F 52 53 20 56 4F 54 45 20 4F 46 20 RECTORS VOTE OF
026410: 43 4F 4E 46 49 44 45 4E 43 45 22 3A 50 52 49 4E CONFIDENCE":PRIN
026420: 54 20 54 41 42 28 35 29 3B 70 61 24 28 35 29 3B T TAB(5);pa$(5);
026430: 22 59 4F 55 20 48 41 56 45 20 42 45 45 4E 20 53 "YOU HAVE BEEN S
026440: 41 43 4B 45 44 22 3A 4E 43 3D 30 3A 4F 51 3D 31 ACKED":NC=0:OQ=1
026450: 3A 43 48 41 49 4E 20 4D 45 52 47 45 20 22 58 22 :CHAIN MERGE "X"
026460: 2C 31 30 34 35 0D 0A 31 30 33 38 20 52 41 3D 31 ,1045..1038 RA=1
026470: 2B 49 4E 54 20 28 52 4E 44 2A 33 35 29 3A 52 45 +INT (RND*35):RE
026480: 54 55 52 4E 20 0D 0A 31 30 33 39 20 47 4F 53 55 TURN ..1039 GOSU
026490: 42 20 38 39 30 0D 0A 31 30 34 30 20 47 4F 54 4F B 890..1040 GOTO
0264A0: 20 31 30 34 32 0D 0A 31 30 34 31 20 52 3D 31 2B 1042..1041 R=1+
0264B0: 49 4E 54 28 52 4E 44 2A 39 29 2D 35 3A 52 3D 52 INT(RND*9)-5:R=R
0264C0: 2B 41 42 53 28 52 3C 30 29 2A 41 42 53 28 52 29 +ABS(R<0)*ABS(R)
0264D0: 3A 53 3D 31 2B 49 4E 54 28 52 4E 44 2A 38 29 2D :S=1+INT(RND*8)-
0264E0: 35 3A 53 3D 53 2B 41 42 53 28 53 3C 30 29 2A 41 5:S=S+ABS(S<0)*A
0264F0: 42 53 28 53 29 3A 52 45 54 55 52 4E 20 0D 0A 31 BS(S):RETURN ..1
026500: 30 34 32 20 47 4F 53 55 42 20 33 33 32 3A 66 6C 042 GOSUB 332:fl
026510: 61 67 3D 30 3A 46 4F 52 20 69 3D 31 20 54 4F 20 ag=0:FOR i=1 TO
026520: 32 30 3A 49 46 20 41 53 43 28 76 24 28 69 29 29 20:IF ASC(v$(i))
026530: 3C 3E 33 32 20 41 4E 44 20 76 28 32 2C 69 29 3D <>32 AND v(2,i)=
026540: 30 20 54 48 45 4E 20 66 6C 61 67 3D 31 3A 69 3D 0 THEN flag=1:i=
026550: 32 31 0D 0A 31 30 34 33 20 4E 45 58 54 3A 49 46 21..1043 NEXT:IF
026560: 20 66 6C 61 67 3D 31 20 54 48 45 4E 20 64 24 3D flag=1 THEN d$=
026570: 22 72 22 3A 68 77 3D 33 35 39 3A 47 4F 54 4F 20 "r":hw=359:GOTO
026580: 39 30 32 0D 0A 31 30 34 34 20 47 4F 53 55 42 20 902..1044 GOSUB
026590: 38 34 38 3A 47 4F 54 4F 20 31 30 34 34 0D 0A 31 848:GOTO 1044..1
0265A0: 30 34 35 20 41 49 3D 30 3A 47 4F 53 55 42 20 31 045 AI=0:GOSUB 1
0265B0: 30 30 31 3A 47 4F 54 4F 20 31 30 33 39 0D 0A 31 001:GOTO 1039..1
0265C0: 30 34 36 20 44 58 3D 49 4E 54 28 41 4B 2A 44 57 046 DX=INT(AK*DW
0265D0: 29 2F 31 30 30 3A 41 4B 3D 41 4B 2D 49 4E 54 28 )/100:AK=AK-INT(
0265E0: 41 47 2D 42 58 29 2A 32 30 3A 41 49 3D 49 4E 54 AG-BX)*20:AI=INT
0265F0: 28 41 49 2B 44 58 29 3A 47 4F 53 55 42 20 31 30 (AI+DX):GOSUB 10
026600: 55 3D 30 3A 43 5A 3D 30 3A 49 46 20 43 50 3D 31 U=0:CZ=0:IF CP=1
026610: 20 54 48 45 4E 20 36 30 35 0D 0A 31 30 31 32 20 THEN 605..1012
026620: 47 4F 53 55 42 20 31 30 33 38 3A 49 46 20 52 41 GOSUB 1038:IF RA
026630: 3E 3D 31 32 20 54 48 45 4E 20 31 30 31 36 0D 0A >=12 THEN 1016..
026640: 31 30 31 33 20 43 48 41 49 4E 20 4D 45 52 47 45 1013 CHAIN MERGE
026650: 20 22 31 33 22 2C 31 30 31 34 0D 0A 31 30 31 34 "13",1014..1014
026660: 20 46 4F 52 20 4B 3D 30 20 54 4F 20 31 3A 52 41 FOR K=0 TO 1:RA
026670: 3D 31 2B 49 4E 54 20 28 52 4E 44 2A 31 37 29 3A =1+INT (RND*17):
026680: 49 46 20 4E 28 31 2C 52 41 29 3D 30 20 54 48 45 IF N(1,RA)=0 THE
026690: 4E 20 31 30 31 35 20 45 4C 53 45 20 47 4F 53 55 N 1015 ELSE GOSU
0266A0: 42 20 31 30 34 31 3A 50 52 49 4E 54 20 54 41 42 B 1041:PRINT TAB
0266B0: 28 35 29 3B 70 61 24 28 32 29 3B 22 4D 49 44 57 (5);pa$(2);"MIDW
0266C0: 45 45 4B 20 47 41 4D 45 22 3B 70 61 24 28 31 29 EEK GAME";pa$(1)
0266D0: 2C 54 41 42 28 35 29 3B 59 24 28 4E 28 31 2C 52 ,TAB(5);Y$(N(1,R
0266E0: 41 29 29 3B 22 20 20 22 3B 52 3B 22 20 22 3B 59 A));" ";R;" ";Y
0266F0: 24 28 4E 28 32 2C 52 41 29 29 3B 22 20 20 22 3B $(N(2,RA));" ";
026700: 53 3A 52 24 3D 59 24 28 4E 28 31 2C 52 41 29 29 S:R$=Y$(N(1,RA))
026710: 3A 53 24 3D 59 24 28 4E 28 32 2C 52 41 29 29 3A :S$=Y$(N(2,RA)):
026720: 47 4F 53 55 42 20 31 30 35 31 3A 4E 28 31 2C 52 GOSUB 1051:N(1,R
026730: 41 29 3D 30 0D 0A 31 30 31 35 20 4E 45 58 54 0D A)=0..1015 NEXT.
026740: 0A 31 30 31 36 20 41 31 3D 30 3A 46 4F 52 20 49 .1016 A1=0:FOR I
026750: 3D 31 20 54 4F 20 32 30 3A 41 31 3D 41 31 2D 28 =1 TO 20:A1=A1-(
026760: 54 28 49 29 3E 30 29 3A 4E 45 58 54 3A 47 4F 53 T(I)>0):NEXT:GOS
026770: 55 42 20 33 31 32 3A 49 46 20 61 31 3C 31 32 20 UB 312:IF a1<12
026780: 54 48 45 4E 20 31 30 32 31 0D 0A 31 30 31 37 20 THEN 1021..1017
026790: 49 46 20 4A 55 3D 31 20 54 48 45 4E 20 50 52 49 IF JU=1 THEN PRI
0267A0: 4E 54 20 54 41 42 28 35 29 3B 22 54 4F 4F 20 4D NT TAB(5);"TOO M
0267B0: 41 4E 59 20 53 48 41 52 45 53 20 48 41 56 45 20 ANY SHARES HAVE
0267C0: 42 45 45 4E 20 53 4F 4C 44 22 2C 54 41 42 28 35 BEEN SOLD",TAB(5
0267D0: 29 3B 22 54 48 45 20 4E 45 57 20 42 4F 41 52 44 );"THE NEW BOARD
0267E0: 20 4F 46 20 44 49 52 45 43 54 4F 52 53 22 2C 54 OF DIRECTORS",T
0267F0: 41 42 28 35 29 3B 22 48 41 56 45 20 53 41 43 4B AB(5);"HAVE SACK
026800: 33 36 3A 50 52 49 4E 54 20 54 41 42 28 35 29 3B 36:PRINT TAB(5);
026810: 22 54 48 45 20 43 4C 55 42 20 53 45 4C 4C 20 53 "THE CLUB SELL S
026820: 48 41 52 45 53 20 22 3B 3A 74 65 6D 70 3D 49 4E HARES ";:temp=IN
026830: 54 28 44 58 29 3A 47 4F 53 55 42 20 36 33 35 30 T(DX):GOSUB 6350
026840: 30 3A 47 4F 54 4F 20 31 30 32 33 0D 0A 1A 00 74 0:GOTO 1023....t
026850: 65 6D F0 EF FF 0C 28 0D 00 00 44 D8 29 01 9F 20 em....(...D.)..
026860: 1E 0C F8 01 A0 20 1E FF 03 00 00 00 1A 31 30 30 ..... .......100
026870: 35 0D 0A 31 30 30 32 20 47 4F 53 55 42 20 31 30 5..1002 GOSUB 10
026880: 54 55 52 4E 20 0D 0A 31 30 33 39 20 47 4F 53 55 TURN ..1039 GOSU
026890: 42 20 38 39 30 0D 0A 31 30 34 30 20 47 4F 54 4F B 890..1040 GOTO
0268A0: 20 31 30 34 32 0D 0A 31 30 34 31 20 52 3D 31 2B 1042..1041 R=1+
0268B0: 49 4E 54 28 52 4E 44 2A 39 29 2D 35 3A 52 3D 52 INT(RND*9)-5:R=R
0268C0: 2B 41 42 53 28 52 3C 30 29 2A 41 42 53 28 52 29 +ABS(R<0)*ABS(R)
0268D0: 3A 53 3D 31 2B 49 4E 54 28 52 4E 44 2A 38 29 2D :S=1+INT(RND*8)-
0268E0: 35 3A 53 3D 53 2B 41 42 53 28 53 3C 30 29 2A 41 5:S=S+ABS(S<0)*A
0268F0: 42 53 28 53 29 3A 52 45 54 55 52 4E 20 0D 0A 31 BS(S):RETURN ..1
026900: 30 34 32 20 47 4F 53 55 42 20 33 33 32 3A 66 6C 042 GOSUB 332:fl
026910: 61 67 3D 30 3A 46 4F 52 20 69 3D 31 20 54 4F 20 ag=0:FOR i=1 TO
026920: 32 30 3A 49 46 20 41 53 43 28 76 24 28 69 29 29 20:IF ASC(v$(i))
026930: 3C 3E 33 32 20 41 4E 44 20 76 28 32 2C 69 29 3D <>32 AND v(2,i)=
026940: 30 20 54 48 45 4E 20 66 6C 61 67 3D 31 3A 69 3D 0 THEN flag=1:i=
026950: 32 31 0D 0A 31 30 34 33 20 4E 45 58 54 3A 49 46 21..1043 NEXT:IF
026960: 20 66 6C 61 67 3D 31 20 54 48 45 4E 20 64 24 3D flag=1 THEN d$=
026970: 22 72 22 3A 68 77 3D 33 35 39 3A 47 4F 54 4F 20 "r":hw=359:GOTO
026980: 39 30 32 0D 0A 31 30 34 34 20 47 4F 53 55 42 20 902..1044 GOSUB
026990: 38 34 38 3A 47 4F 54 4F 20 31 30 34 34 0D 0A 31 848:GOTO 1044..1
0269A0: 30 34 35 20 41 49 3D 30 3A 47 4F 53 55 42 20 31 045 AI=0:GOSUB 1
0269B0: 30 30 31 3A 47 4F 54 4F 20 31 30 33 39 0D 0A 31 001:GOTO 1039..1
0269C0: 30 34 36 20 44 58 3D 49 4E 54 28 41 4B 2A 44 57 046 DX=INT(AK*DW
0269D0: 29 2F 31 30 30 3A 41 4B 3D 41 4B 2D 49 4E 54 28 )/100:AK=AK-INT(
0269E0: 41 47 2D 42 58 29 2A 32 30 3A 41 49 3D 49 4E 54 AG-BX)*20:AI=INT
0269F0: 28 41 49 2B 44 58 29 3A 47 4F 53 55 42 20 31 30 (AI+DX):GOSUB 10
026A00: 45 44 20 59 4F 55 22 3A 4E 43 3D 30 3A 4F 51 3D ED YOU":NC=0:OQ=
026A10: 31 3A 43 48 41 49 4E 20 4D 45 52 47 45 20 22 58 1:CHAIN MERGE "X
026A20: 22 2C 31 30 34 35 0D 0A 31 30 31 38 20 49 46 20 ",1045..1018 IF
026A30: 49 44 3C 31 35 20 54 48 45 4E 20 31 30 32 33 0D ID<15 THEN 1023.
026A40: 0A 31 30 31 39 20 46 4F 52 20 49 3D 28 49 44 2D .1019 FOR I=(ID-
026A50: 31 29 20 54 4F 20 28 49 44 2D 31 34 29 20 53 54 1) TO (ID-14) ST
026A60: 45 50 20 2D 31 3A 52 41 3D 41 53 43 28 4C 45 46 EP -1:RA=ASC(LEF
026A70: 54 24 28 57 24 28 49 29 2C 31 29 29 2D 34 38 3A T$(W$(I),1))-48:
026A80: 52 42 3D 41 53 43 28 4D 49 44 24 28 57 24 28 49 RB=ASC(MID$(W$(I
026A90: 29 2C 32 2C 31 29 29 2D 34 38 3A 4F 50 3D 4F 50 ),2,1))-48:OP=OP
026AA0: 2B 41 42 53 28 52 41 3C 52 42 29 2A 33 2D 28 52 +ABS(RA<RB)*3-(R
026AB0: 41 3D 52 42 29 3A 4E 45 58 54 3A 49 46 20 4F 50 A=RB):NEXT:IF OP
026AC0: 3E 36 20 54 48 45 4E 20 31 30 32 33 0D 0A 31 30 >6 THEN 1023..10
026AD0: 32 30 20 50 52 49 4E 54 20 54 41 42 28 35 29 3B 20 PRINT TAB(5);
026AE0: 22 44 49 52 45 43 54 4F 52 53 20 56 4F 54 45 20 "DIRECTORS VOTE
026AF0: 4F 46 20 43 4F 4E 46 49 44 45 4E 43 45 22 3A 52 OF CONFIDENCE":R
026B00: 41 3D 31 2B 49 4E 54 28 52 4E 44 2A 32 29 3A 4F A=1+INT(RND*2):O
026B10: 4E 20 52 41 20 47 4F 54 4F 20 31 30 32 31 2C 31 N RA GOTO 1021,1
026B20: 30 32 32 2C 31 30 32 33 0D 0A 31 30 32 31 20 50 022,1023..1021 P
026B30: 52 49 4E 54 20 54 41 42 28 35 29 3B 70 61 24 28 RINT TAB(5);pa$(
026B40: 35 29 3B 22 59 4F 55 20 41 52 45 20 47 49 56 45 5);"YOU ARE GIVE
026B50: 4E 20 41 20 57 45 45 4B 27 53 20 4E 4F 54 49 43 N A WEEK'S NOTIC
026B60: 45 22 3B 70 61 24 28 31 29 3A 4E 43 3D 30 3A 4F E";pa$(1):NC=0:O
026B70: 51 3D 31 3A 43 48 41 49 4E 20 4D 45 52 47 45 20 Q=1:CHAIN MERGE
026B80: 22 58 22 2C 31 30 34 35 0D 0A 31 30 32 32 20 50 "X",1045..1022 P
026B90: 52 49 4E 54 20 54 41 42 28 35 29 3B 50 41 24 28 RINT TAB(5);PA$(
026BA0: 33 29 3B 22 59 4F 55 20 41 52 45 20 47 49 56 45 3);"YOU ARE GIVE
026BB0: 4E 20 41 4E 4F 54 48 45 52 20 43 48 41 4E 43 45 N ANOTHER CHANCE
026BC0: 22 3B 50 41 24 28 31 29 0D 0A 31 30 32 33 20 49 ";PA$(1)..1023 I
026BD0: 46 20 41 49 3E 2D 31 20 54 48 45 4E 20 31 30 33 F AI>-1 THEN 103
026BE0: 39 0D 0A 31 30 32 34 20 49 46 20 4B 41 3D 30 20 9..1024 IF KA=0
026BF0: 54 48 45 4E 20 31 30 32 36 0D 0A 31 30 32 35 20 THEN 1026..1025
026C00: 22 3B 03 00 00 D6 28 0D 00 00 D9 29 3B 22 20 41 ";....(....);" A
026C10: 43 43 45 50 54 20 59 2F 4E 22 00 1C 00 22 04 9F CCEPT Y/N"..."..
026C20: 20 1E 64 FA 01 A1 20 03 00 00 49 CE EF 22 4E 22 .d... ...I.."N"
026C30: 20 EB 20 1E F3 03 00 33 00 23 04 A1 20 0D 00 00 . ....3.#.. ...
026C40: 52 C2 F0 0D 00 00 50 C2 20 EB 20 03 00 00 CF 28 R.....P. . ....(
026C50: 10 29 EF 03 00 00 D6 28 0D 00 00 D9 29 01 0D 00 .).....(....)...
026C60: 00 50 C2 EF 0D 00 00 52 C2 00 32 00 24 04 0D 00 .P.....R..2.$...
026C70: 00 C9 EF 0D 00 00 D9 01 9F 20 1E 2A 04 01 9F 20 ......... .*...
026C80: 1E C8 00 01 0D 00 00 4A D2 EF 0D 00 00 4A D2 F4 .......J.....J..
026C90: 0D 00 00 52 C2 01 A0 20 1E F3 03 00 A5 00 25 04 ...R... ......%.
026CA0: BF 20 22 2B 22 01 0D 00 00 4A D2 EF 0D 00 00 42 . "+"....J.....B
026CB0: CC F5 0D 00 00 4E D0 01 0D 00 00 46 D4 EF FF 0C .....N.....F....
026CC0: 20 28 0D 00 00 43 CF F7 12 29 01 0D 00 00 46 D0 (...C...)....F.
026CD0: EF FF 0C 20 28 0D 00 00 43 CF F7 19 1F 29 01 0D ... (...C....)..
026CE0: 00 00 46 D1 EF FF 0C 20 28 0D 00 00 43 CF F7 19 ..F.... (...C...
026CF0: 3B 29 01 0D 00 00 46 D2 EF FF 0C 20 28 0D 00 00 ;)....F.... (...
026D00: 43 CF F7 19 63 29 01 0D 00 00 52 C1 EF 0D 00 00 C...c)....R.....
026D10: 46 D2 F4 28 FF 45 F6 0D 00 00 46 D1 29 F4 0D 00 F..(.E....F.)...
026D20: 00 46 D0 F7 0D 00 00 41 D0 01 0D 00 00 46 D0 EF .F.....A.....F..
026D30: FF 0C 20 28 0D 00 00 46 D0 F4 0D 00 00 52 C1 29 .. (...F.....R.)
026D40: 00 A8 00 26 04 A9 20 13 2C 12 01 BF 20 22 47 45 ...&.. .,... "GE
026D50: 4E 45 52 41 4C 20 52 55 4E 4E 49 4E 47 20 43 4F NERAL RUNNING CO
026D60: 53 54 53 22 3B EA 28 19 1E 29 3B 01 0D 00 00 54 STS";.(..);....T
026D70: 45 4D D0 EF 0D 00 00 46 D0 01 9F 20 1E 0C F8 01 EM.....F... ....
026D80: BF 20 EA 28 19 24 29 3B 22 2D 22 2C EA 28 13 29 . .(.$);"-",.(.)
026D90: 3B 22 49 4E 54 45 52 45 53 54 20 46 52 4F 4D 20 ;"INTEREST FROM
026DA0: 42 41 4E 4B 22 3B EA 28 19 1E 29 3B 01 0D 00 00 BANK";.(..);....
026DB0: 54 45 4D D0 EF FF 0C 28 0D 00 00 46 CD 29 01 9F TEM....(...F.)..
026DC0: 20 1E 0C F8 01 BF 20 EA 28 19 24 29 3B 22 2B 22 ..... .(.$);"+"
026DD0: 01 0D 00 00 4A D2 EF 0D 00 00 4A D2 F5 0D 00 00 ....J.....J.....
026DE0: 46 D0 F4 0D 00 00 46 CD 00 06 00 27 04 C9 00 B0 F.....F....'....
026DF0: 00 28 04 A1 20 0D 00 00 D4 28 0D 00 00 C9 29 EE .(.. ....(....).
026E00: 4B 44 3D 4B 41 3A 41 49 3D 49 4E 54 28 41 49 2B KD=KA:AI=INT(AI+
026E10: 4B 41 29 3A 4B 41 3D 30 3A 4B 44 3D 49 4E 54 28 KA):KA=0:KD=INT(
026E20: 4B 44 2B 28 4B 44 2F 31 30 30 29 2A 31 31 29 3A KD+(KD/100)*11):
026E30: 4B 43 3D 4B 43 2B 4B 44 3A 43 46 3D 28 4B 43 2F KC=KC+KD:CF=(KC/
026E40: 34 30 29 3A 47 4F 53 55 42 20 31 30 33 36 3A 50 40):GOSUB 1036:P
026E50: 52 49 4E 54 20 54 41 42 28 35 29 3B 22 54 48 45 RINT TAB(5);"THE
026E60: 20 44 49 52 45 43 54 4F 52 53 20 42 4F 52 52 4F DIRECTORS BORRO
026E70: 57 20 22 3B 3A 74 65 6D 70 3D 49 4E 54 28 4B 44 W ";:temp=INT(KD
026E80: 29 3A 47 4F 53 55 42 20 36 33 35 30 30 3A 47 4F ):GOSUB 63500:GO
026E90: 54 4F 20 31 30 32 33 0D 0A 31 30 32 36 20 49 46 TO 1023..1026 IF
026EA0: 20 4A 51 3E 30 20 54 48 45 4E 20 31 30 32 38 0D JQ>0 THEN 1028.
026EB0: 0A 31 30 32 37 20 4A 51 3D 49 4E 54 20 28 31 38 .1027 JQ=INT (18
026EC0: 30 30 30 30 30 2F 41 50 29 3A 45 54 3D 28 28 4A 00000/AP):ET=((J
026ED0: 51 2F 31 30 30 29 2A 32 36 29 3A 4A 50 3D 49 4E Q/100)*26):JP=IN
026EE0: 54 20 28 28 45 54 2B 4A 51 29 2F 38 30 29 3A 41 T ((ET+JQ)/80):A
026EF0: 49 3D 49 4E 54 20 28 41 49 2B 4A 51 29 3A 4A 51 I=INT (AI+JQ):JQ
026F00: 3D 4A 51 2B 45 54 3A 47 4F 53 55 42 20 31 30 33 =JQ+ET:GOSUB 103
026F10: 36 3A 50 52 49 4E 54 20 54 41 42 28 35 29 3B 22 6:PRINT TAB(5);"
026F20: 54 48 45 20 44 49 52 45 43 54 4F 52 53 20 4D 4F THE DIRECTORS MO
026F30: 52 54 47 41 47 45 20 22 3B 3A 74 65 6D 70 3D 4A RTGAGE ";:temp=J
026F40: 51 3A 47 4F 53 55 42 20 36 33 35 30 30 3A 47 4F Q:GOSUB 63500:GO
026F50: 54 4F 20 31 30 32 33 0D 0A 31 30 32 38 20 49 46 TO 1023..1028 IF
026F60: 20 41 55 3C 32 20 54 48 45 4E 20 31 30 33 30 0D AU<2 THEN 1030.
026F70: 0A 31 30 32 39 20 44 57 3D 28 41 55 2D 31 29 3A .1029 DW=(AU-1):
026F80: 41 55 3D 31 3A 41 56 3D 49 4E 54 20 28 44 57 2F AU=1:AV=INT (DW/
026F90: 31 30 30 30 29 3A 41 56 3D 41 56 2B 41 42 53 28 1000):AV=AV+ABS(
026FA0: 41 56 3C 30 29 2A 41 42 53 28 41 56 29 3A 41 4B AV<0)*ABS(AV):AK
026FB0: 3D 49 4E 54 28 41 4B 2D 28 28 41 4B 2F 31 30 30 =INT(AK-((AK/100
026FC0: 29 2A 41 56 29 29 3A 41 4B 3D 41 4B 2B 28 28 31 )*AV)):AK=AK+((1
026FD0: 2D 41 4B 29 2F 32 29 2A 28 31 2B 53 47 4E 28 30 -AK)/2)*(1+SGN(0
026FE0: 2E 39 35 2D 41 4B 29 29 3A 47 4F 54 4F 20 31 30 .95-AK)):GOTO 10
026FF0: 34 36 0D 0A 31 30 33 30 20 46 4F 52 20 49 3D 31 46..1030 FOR I=1
027000: 31 30 30 31 20 52 41 3D 33 2D 41 42 53 28 41 47 1001 RA=3-ABS(AG
027010: 3E 36 20 41 4E 44 20 41 47 3C 31 34 29 2D 41 42 >6 AND AG<14)-AB
027020: 53 28 41 47 3E 31 33 29 2A 32 3A 52 5A 3D 31 2B S(AG>13)*2:RZ=1+
027030: 49 4E 54 28 52 4E 44 2A 52 41 29 3A 52 41 3D 49 INT(RND*RA):RA=I
027040: 4E 54 28 41 47 2F 34 29 2D 32 3A 46 4F 52 20 49 NT(AG/4)-2:FOR I
027050: 3D 31 20 54 4F 20 52 5A 0D 0A 31 30 30 32 20 52 =1 TO RZ..1002 R
027060: 45 4D 0D 0A 31 30 30 33 20 52 45 4D 0D 0A 31 30 EM..1003 REM..10
027070: 30 34 20 52 42 3D 49 4E 54 28 52 4E 44 2A 52 41 04 RB=INT(RND*RA
027080: 29 0D 0A 31 30 30 35 20 52 42 3D 52 42 2B 41 50 )..1005 RB=RB+AP
027090: 3A 52 43 3D 52 42 2D 41 42 53 28 52 42 3E 34 29 :RC=RB-ABS(RB>4)
0270A0: 2A 41 42 53 28 52 42 2D 34 29 2D 41 42 53 28 52 *ABS(RB-4)-ABS(R
0270B0: 42 3C 31 29 2A 52 42 3A 52 43 3D 52 43 2D 28 52 B<1)*RB:RC=RC-(R
0270C0: 43 3D 30 29 3A 52 44 3D 28 28 52 43 2A 32 30 29 C=0):RD=((RC*20)
0270D0: 2D 31 39 29 2B 31 30 0D 0A 31 30 30 36 20 52 45 -19)+10..1006 RE
0270E0: 3D 49 4E 54 28 52 4E 44 2A 31 30 29 3A 49 46 20 =INT(RND*10):IF
0270F0: 52 43 3C 3E 41 50 20 54 48 45 4E 20 31 30 31 31 RC<>AP THEN 1011
027100: 0D 0A 31 30 30 37 20 49 46 20 54 24 28 52 45 2B ..1007 IF T$(RE+
027110: 31 31 29 3D 5A 24 20 4F 52 20 59 24 28 52 44 2B 11)=Z$ OR Y$(RD+
027120: 52 45 29 3D 5A 24 20 54 48 45 4E 20 31 30 30 36 RE)=Z$ THEN 1006
027130: 0D 0A 31 30 30 38 20 46 4C 41 47 3D 30 3A 46 4F ..1008 FLAG=0:FO
027140: 52 20 4B 3D 31 20 54 4F 20 49 2D 31 3A 49 46 20 R K=1 TO I-1:IF
027150: 4A 24 28 4B 29 3D 54 24 28 31 31 2B 52 45 29 20 J$(K)=T$(11+RE)
027160: 54 48 45 4E 20 46 4C 41 47 3D 31 0D 0A 31 30 30 THEN FLAG=1..100
027170: 39 20 4E 45 58 54 3A 49 46 20 46 4C 41 47 20 54 9 NEXT:IF FLAG T
027180: 48 45 4E 20 31 30 30 36 0D 0A 31 30 31 30 20 4A HEN 1006..1010 J
027190: 24 28 49 29 3D 54 24 28 31 31 2B 52 45 29 3A 4F $(I)=T$(11+RE):O
0271A0: 28 31 2C 49 29 3D 41 50 3A 4F 28 32 2C 49 29 3D (1,I)=AP:O(2,I)=
0271B0: 31 31 2B 52 45 3A 47 4F 54 4F 20 31 30 31 34 0D 11+RE:GOTO 1014.
0271C0: 0A 31 30 31 31 20 46 4C 41 47 3D 30 3A 46 4F 52 .1011 FLAG=0:FOR
0271D0: 20 4B 3D 31 20 54 4F 20 49 2D 31 3A 49 46 20 4A K=1 TO I-1:IF J
0271E0: 24 28 4B 29 3D 59 24 28 52 44 2B 52 45 29 20 54 $(K)=Y$(RD+RE) T
0271F0: 48 45 4E 20 46 4C 41 47 3D 31 0D 0A 31 30 31 32 HEN FLAG=1..1012
027200: 20 54 4F 20 32 30 3A 49 46 20 47 28 49 29 3C 30 TO 20:IF G(I)<0
027210: 20 54 48 45 4E 20 66 6C 61 67 3D 69 3A 69 3D 39 THEN flag=i:i=9
027220: 39 0D 0A 31 30 33 31 20 4E 45 58 54 3A 49 46 20 9..1031 NEXT:IF
027230: 69 3D 31 30 30 20 54 48 45 4E 20 31 30 33 32 20 i=100 THEN 1032
027240: 45 4C 53 45 20 46 4F 52 20 49 3D 32 34 20 54 4F ELSE FOR I=24 TO
027250: 20 32 36 3A 47 4F 53 55 42 20 32 30 30 3A 4E 45 26:GOSUB 200:NE
027260: 58 54 3A 49 46 20 41 49 3C 30 20 54 48 45 4E 20 XT:IF AI<0 THEN
027270: 31 30 33 37 20 45 4C 53 45 20 31 30 31 37 0D 0A 1037 ELSE 1017..
027280: 31 30 33 32 20 69 3D 66 6C 61 67 3A 49 46 20 49 1032 i=flag:IF I
027290: 4E 54 28 48 28 49 29 29 3D 31 20 54 48 45 4E 20 NT(H(I))=1 THEN
0272A0: 45 56 3D 36 35 30 30 3A 47 4F 54 4F 20 31 30 33 EV=6500:GOTO 103
0272B0: 34 0D 0A 31 30 33 33 20 69 3D 66 6C 61 67 3A 45 4..1033 i=flag:E
0272C0: 56 3D 35 30 30 30 2A 28 49 4E 54 28 48 28 49 29 V=5000*(INT(H(I)
0272D0: 2D 31 29 29 2A 28 49 4E 54 28 48 28 49 29 2D 31 -1))*(INT(H(I)-1
0272E0: 29 29 2A 32 2B 41 42 53 28 4A 28 49 29 3D 31 30 ))*2+ABS(J(I)=10
0272F0: 35 29 2A 33 31 30 30 30 30 0D 0A 31 30 33 34 20 5)*310000..1034
027300: 46 55 3D 49 4E 54 28 45 56 2F 33 29 2B 36 30 30 FU=INT(EV/3)+600
027310: 30 3A 52 41 3D 45 56 2B 49 4E 54 28 52 4E 44 2A 0:RA=EV+INT(RND*
027320: 46 55 29 3A 45 56 3D 52 41 0D 0A 31 30 33 35 20 FU):EV=RA..1035
027330: 47 4F 53 55 42 20 31 30 33 36 3A 50 52 49 4E 54 GOSUB 1036:PRINT
027340: 20 54 41 42 28 35 29 3B 22 54 48 45 20 44 49 52 TAB(5);"THE DIR
027350: 45 43 54 4F 52 53 20 48 41 56 45 20 53 4F 4C 44 ECTORS HAVE SOLD
027360: 22 2C 54 41 42 28 35 29 3B 56 24 28 49 29 3B 22 ",TAB(5);V$(I);"
027370: 20 46 4F 52 20 22 3B 3A 74 65 6D 70 3D 45 56 3A FOR ";:temp=EV:
027380: 47 4F 53 55 42 20 36 33 35 30 30 3A 41 49 3D 49 GOSUB 63500:AI=I
027390: 4E 54 28 41 49 2B 45 56 29 3A 47 4F 53 55 42 20 NT(AI+EV):GOSUB
0273A0: 32 30 30 3A 47 4F 54 4F 20 31 30 33 30 0D 0A 31 200:GOTO 1030..1
0273B0: 30 33 36 20 50 52 49 4E 54 20 54 41 42 28 35 29 036 PRINT TAB(5)
0273C0: 3B 22 54 4F 20 47 45 54 20 4F 55 54 20 4F 46 20 ;"TO GET OUT OF
0273D0: 46 49 4E 41 4E 43 49 41 4C 20 54 52 4F 55 42 4C FINANCIAL TROUBL
0273E0: 45 22 3A 52 45 54 55 52 4E 0D 0A 31 30 33 37 20 E":RETURN..1037
0273F0: 50 52 49 4E 54 20 54 41 42 28 35 29 3B 22 44 49 PRINT TAB(5);"DI
027400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
027410: 21 00 01 00 02 09 4E E5 21 00 41 02 00 00 00 02 !.....N.!.A.....
027420: 21 00 46 02 00 00 00 02 21 00 42 02 00 00 00 02 !.F.....!.B.....
027430: 21 00 47 02 00 00 00 02 21 00 43 02 00 00 00 02 !.G.....!.C.....
027440: 21 00 48 02 00 00 00 02 21 00 44 02 00 00 00 02 !.H.....!.D.....
027450: 21 00 49 02 00 00 00 02 21 00 45 02 00 00 00 02 !.I.....!.E.....
027460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027500: 20 4E 45 58 54 3A 49 46 20 46 4C 41 47 20 54 48 NEXT:IF FLAG TH
027510: 45 4E 20 31 30 30 36 0D 0A 31 30 31 33 20 52 46 EN 1006..1013 RF
027520: 3D 52 44 2B 52 45 3A 4A 24 28 49 29 3D 59 24 28 =RD+RE:J$(I)=Y$(
027530: 52 46 29 3A 4F 28 31 2C 49 29 3D 52 43 3A 4F 28 RF):O(1,I)=RC:O(
027540: 32 2C 49 29 3D 31 31 2B 52 45 0D 0A 31 30 31 34 2,I)=11+RE..1014
027550: 20 4E 45 58 54 3A 52 45 54 55 52 4E 20 0D 0A 1A NEXT:RETURN ...
027560: 0A 31 30 30 33 20 72 65 6D 0D 0A 31 30 30 34 20 .1003 rem..1004
027570: 52 42 3D 49 4E 54 28 52 4E 44 2A 52 41 29 0D 0A RB=INT(RND*RA)..
027580: 29 0D 0A 31 30 30 35 20 52 42 3D 52 42 2B 41 50 )..1005 RB=RB+AP
027590: 3A 52 43 3D 52 42 2D 41 42 53 28 52 42 3E 34 29 :RC=RB-ABS(RB>4)
0275A0: 2A 41 42 53 28 52 42 2D 34 29 2D 41 42 53 28 52 *ABS(RB-4)-ABS(R
0275B0: 42 3C 31 29 2A 52 42 3A 52 43 3D 52 43 2D 28 52 B<1)*RB:RC=RC-(R
0275C0: 43 3D 30 29 3A 52 44 3D 28 28 52 43 2A 32 30 29 C=0):RD=((RC*20)
0275D0: 2D 31 39 29 2B 31 30 0D 0A 31 30 30 36 20 52 45 -19)+10..1006 RE
0275E0: 3D 49 4E 54 28 52 4E 44 2A 31 30 29 3A 49 46 20 =INT(RND*10):IF
0275F0: 52 43 3C 3E 41 50 20 54 48 45 4E 20 31 30 31 31 RC<>AP THEN 1011
027600: 0D 0A 31 30 30 37 20 49 46 20 54 24 28 52 45 2B ..1007 IF T$(RE+
027610: 31 31 29 3D 5A 24 20 4F 52 20 59 24 28 52 44 2B 11)=Z$ OR Y$(RD+
027620: 52 45 29 3D 5A 24 20 54 48 45 4E 20 31 30 30 36 RE)=Z$ THEN 1006
027630: 0D 0A 31 30 30 38 20 46 4C 41 47 3D 30 3A 46 4F ..1008 FLAG=0:FO
027640: 52 20 4B 3D 31 20 54 4F 20 49 2D 31 3A 49 46 20 R K=1 TO I-1:IF
027650: 4A 24 28 4B 29 3D 54 24 28 31 31 2B 52 45 29 20 J$(K)=T$(11+RE)
027660: 54 48 45 4E 20 46 4C 41 47 3D 31 0D 0A 31 30 30 THEN FLAG=1..100
027670: 39 20 4E 45 58 54 3A 49 46 20 46 4C 41 47 20 54 9 NEXT:IF FLAG T
027680: 48 45 4E 20 31 30 30 36 0D 0A 31 30 31 30 20 4A HEN 1006..1010 J
027690: 24 28 49 29 3D 54 24 28 31 31 2B 52 45 29 3A 4F $(I)=T$(11+RE):O
0276A0: 28 31 2C 49 29 3D 41 50 3A 4F 28 32 2C 49 29 3D (1,I)=AP:O(2,I)=
0276B0: 31 31 2B 52 45 3A 47 4F 54 4F 20 31 30 31 34 0D 11+RE:GOTO 1014.
0276C0: 0A 31 30 31 31 20 46 4C 41 47 3D 30 3A 46 4F 52 .1011 FLAG=0:FOR
0276D0: 20 4B 3D 31 20 54 4F 20 49 2D 31 3A 49 46 20 4A K=1 TO I-1:IF J
0276E0: 24 28 4B 29 3D 59 24 28 52 44 2B 52 45 29 20 54 $(K)=Y$(RD+RE) T
0276F0: 48 45 4E 20 46 4C 41 47 3D 31 0D 0A 31 30 31 32 HEN FLAG=1..1012
027700: 22 2C 31 30 35 37 0D 0A 31 30 33 39 20 52 41 4E ",1057..1039 RAN
027710: 44 4F 4D 49 5A 45 20 54 49 4D 45 3A 52 41 3D 31 DOMIZE TIME:RA=1
027720: 2B 49 4E 54 28 52 4E 44 2A 33 29 3A 46 4F 52 20 +INT(RND*3):FOR
027730: 49 3D 31 20 54 4F 20 52 41 0D 0A 31 30 34 30 20 I=1 TO RA..1040
027740: 52 42 3D 31 2B 49 4E 54 28 52 4E 44 2A 32 30 29 RB=1+INT(RND*20)
027750: 3A 54 45 4D 50 24 3D 56 24 28 52 42 29 3A 47 4F :TEMP$=V$(RB):GO
027760: 53 55 42 20 36 34 39 30 30 3A 49 46 20 46 4C 41 SUB 64900:IF FLA
027770: 47 20 4F 52 20 47 28 52 42 29 3C 30 20 54 48 45 G OR G(RB)<0 THE
027780: 4E 20 31 30 34 30 0D 0A 31 30 34 31 20 47 28 52 N 1040..1041 G(R
027790: 42 29 3D 47 28 52 42 29 2D 28 47 28 52 42 29 2A B)=G(RB)-(G(RB)*
0277A0: 32 29 3A 4E 45 58 54 3A 44 24 3D 22 59 31 22 3A 2):NEXT:D$="Y1":
0277B0: 48 57 3D 31 30 30 31 3A 47 4F 54 4F 20 39 30 32 HW=1001:GOTO 902
0277C0: 0D 0A 31 30 34 32 20 43 4C 53 23 32 3A 4C 4F 43 ..1042 CLS#2:LOC
0277D0: 41 54 45 20 32 39 2C 32 30 3A 49 4E 50 55 54 20 ATE 29,20:INPUT
0277E0: 47 24 3A 49 46 20 55 50 50 45 52 24 28 47 24 29 G$:IF UPPER$(G$)
0277F0: 3C 3E 46 24 20 54 48 45 4E 20 31 30 34 32 0D 0A <>F$ THEN 1042..
027800: 31 30 34 33 20 4C 4F 43 41 54 45 20 32 39 2C 32 1043 LOCATE 29,2
027810: 30 3A 50 52 49 4E 54 20 46 24 3B 22 20 20 22 3A 0:PRINT F$;" ":
027820: 52 45 54 55 52 4E 0D 0A 31 30 34 34 20 44 54 3D RETURN..1044 DT=
027830: 30 3A 43 56 3D 30 3A 43 54 3D 30 3A 43 52 3D 30 0:CV=0:CT=0:CR=0
027840: 3A 46 4F 52 20 4A 3D 31 20 54 4F 20 38 3A 41 24 :FOR J=1 TO 8:A$
027850: 28 32 2C 4A 29 3D 22 20 20 20 20 20 20 20 20 20 (2,J)="
027860: 20 20 20 20 22 3A 41 24 28 31 2C 4A 29 3D 41 24 ":A$(1,J)=A$
027870: 28 32 2C 4A 29 3A 4E 45 58 54 3A 4A 3D 31 3A 47 (2,J):NEXT:J=1:G
027880: 4F 54 4F 20 31 30 36 31 0D 0A 31 30 34 35 20 49 OTO 1061..1045 I
027890: 46 20 41 50 3C 33 20 41 4E 44 20 43 49 3C 31 37 F AP<3 AND CI<17
0278A0: 20 41 4E 44 20 4A 3D 33 20 54 48 45 4E 20 43 52 AND J=3 THEN CR
0278B0: 3D 33 3A 4D 53 3D 33 3A 47 4F 54 4F 20 31 30 35 =3:MS=3:GOTO 105
0278C0: 32 0D 0A 31 30 34 36 20 47 4F 53 55 42 20 39 39 2..1046 GOSUB 99
0278D0: 36 3A 46 4F 52 20 49 3D 31 20 54 4F 20 28 52 42 6:FOR I=1 TO (RB
0278E0: 2F 32 29 3A 47 4F 53 55 42 20 39 39 37 0D 0A 31 /2):GOSUB 997..1
0278F0: 30 34 37 20 49 46 20 4A 3D 31 20 41 4E 44 20 59 047 IF J=1 AND Y
027900: 31 30 30 31 20 4E 41 3D 49 4E 54 28 32 30 30 2D 1001 NA=INT(200-
027910: 28 37 2E 35 2A 4F 28 32 2C 49 42 29 29 29 2A 28 (7.5*O(2,IB)))*(
027920: 35 2D 4F 28 31 2C 49 42 29 29 3A 4E 47 3D 4E 41 5-O(1,IB)):NG=NA
027930: 3A 4E 42 3D 28 4E 41 2F 31 30 30 29 2A 32 30 3A :NB=(NA/100)*20:
027940: 4E 41 3D 4E 41 2D 4E 42 0D 0A 31 30 30 32 20 4E NA=NA-NB..1002 N
027950: 43 3D 49 4E 54 28 28 32 30 2F 41 47 29 2A 31 30 C=INT((20/AG)*10
027960: 29 2B 28 31 2B 49 4E 54 28 52 4E 44 2A 32 30 29 )+(1+INT(RND*20)
027970: 29 3A 4E 45 3D 49 4E 54 28 31 34 2D 4F 28 32 2C ):NE=INT(14-O(2,
027980: 49 42 29 29 2D 28 49 4E 54 28 52 4E 44 2A 37 29 IB))-(INT(RND*7)
027990: 29 3A 4E 45 3D 4E 45 2D 28 4E 45 3C 30 29 2A 41 ):NE=NE-(NE<0)*A
0279A0: 42 53 28 4E 45 29 0D 0A 31 30 30 33 20 43 4C 53 BS(NE)..1003 CLS
0279B0: 3A 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 3B :PRINT TAB(15);;
0279C0: 4A 24 28 49 42 29 3B 22 20 46 43 22 2C 54 41 42 J$(IB);" FC",TAB
0279D0: 28 35 29 3B 22 54 48 45 20 42 4F 41 52 44 20 4F (5);"THE BOARD O
0279E0: 46 20 44 49 52 45 43 54 4F 52 53 20 4F 46 46 45 F DIRECTORS OFFE
0279F0: 52 20 59 4F 55 22 2C 2C 2C 54 41 42 28 35 29 3B R YOU",,,TAB(5);
027A00: 3A 74 65 6D 50 3D 49 4E 54 28 4E 41 29 3A 47 4F :temP=INT(NA):GO
027A10: 53 55 42 20 36 33 35 30 30 3A 50 52 49 4E 54 20 SUB 63500:PRINT
027A20: 22 20 50 45 52 20 57 45 45 4B 20 41 4E 44 22 2C " PER WEEK AND",
027A30: 54 41 42 28 35 29 3B 22 41 22 3B 4E 43 3B 22 57 TAB(5);"A";NC;"W
027A40: 45 45 4B 20 43 4F 4E 54 52 41 43 54 22 0D 0A 31 EEK CONTRACT"..1
027A50: 30 30 34 20 4C 4F 43 41 54 45 20 31 39 2C 32 30 004 LOCATE 19,20
027A60: 3A 50 52 49 4E 54 20 22 53 49 47 4E 41 54 55 52 :PRINT "SIGNATUR
027A70: 45 3A 22 3A 47 4F 54 4F 20 31 30 31 34 0D 0A 31 E:":GOTO 1014..1
027A80: 30 30 35 20 50 52 49 4E 54 20 43 48 52 24 28 37 005 PRINT CHR$(7
027A90: 29 3A 4E 43 3D 30 3A 49 46 20 5A 37 3D 31 20 54 ):NC=0:IF Z7=1 T
027AA0: 48 45 4E 20 31 30 31 36 0D 0A 31 30 30 36 20 4A HEN 1016..1006 J
027AB0: 24 28 49 42 29 3D 22 22 3A 4F 28 31 2C 49 42 29 $(IB)="":O(1,IB)
027AC0: 3D 30 3A 4F 28 32 2C 49 42 29 3D 30 3A 47 4F 54 =0:O(2,IB)=0:GOT
027AD0: 4F 20 31 30 32 34 0D 0A 31 30 31 34 20 4C 4F 43 O 1024..1014 LOC
027AE0: 41 54 45 20 39 2C 32 32 3A 50 52 49 4E 54 20 70 ATE 9,22:PRINT p
027AF0: 61 24 28 32 29 3B 22 52 45 2D 4E 45 47 4F 54 49 a$(2);"RE-NEGOTI
027B00: 24 28 5A 28 4A 2C 49 29 29 3D 5A 24 20 54 48 45 $(Z(J,I))=Z$ THE
027B10: 4E 20 43 54 3D 4F 4A 3A 4D 54 3D 43 54 3A 4D 49 N CT=OJ:MT=CT:MI
027B20: 44 24 28 41 24 28 31 2C 4D 54 29 2C 32 2C 39 29 D$(A$(1,MT),2,9)
027B30: 3D 59 24 28 5A 28 4A 2B 31 2C 49 29 29 3A 4D 49 =Y$(Z(J+1,I)):MI
027B40: 44 24 28 41 24 28 31 2C 4D 54 29 2C 31 2C 31 29 D$(A$(1,MT),1,1)
027B50: 3D 22 48 22 3A 4D 49 44 24 28 41 24 28 31 2C 4D ="H":MID$(A$(1,M
027B60: 54 29 2C 31 33 2C 31 29 3D 43 48 52 24 28 52 59 T),13,1)=CHR$(RY
027B70: 29 3A 50 54 3D 31 3A 43 48 41 49 4E 20 4D 45 52 ):PT=1:CHAIN MER
027B80: 47 45 20 22 55 22 2C 31 30 35 39 0D 0A 31 30 34 GE "U",1059..104
027B90: 38 20 49 46 20 4A 3D 31 20 41 4E 44 20 59 24 28 8 IF J=1 AND Y$(
027BA0: 5A 28 4A 2B 31 2C 49 29 29 3D 5A 24 20 54 48 45 Z(J+1,I))=Z$ THE
027BB0: 4E 20 43 54 3D 4F 4A 3A 4D 54 3D 43 54 3A 4D 49 N CT=OJ:MT=CT:MI
027BC0: 44 24 28 41 24 28 31 2C 4D 54 29 2C 32 2C 39 29 D$(A$(1,MT),2,9)
027BD0: 3D 59 24 28 5A 28 4A 2C 49 29 29 3A 4D 49 44 24 =Y$(Z(J,I)):MID$
027BE0: 28 41 24 28 31 2C 4D 54 29 2C 31 2C 31 29 3D 22 (A$(1,MT),1,1)="
027BF0: 41 22 3A 4D 49 44 24 28 41 24 28 31 2C 4D 54 29 A":MID$(A$(1,MT)
027C00: 2C 31 33 2C 31 29 3D 43 48 52 24 28 52 5A 29 3A ,13,1)=CHR$(RZ):
027C10: 50 54 3D 31 3A 43 48 41 49 4E 20 4D 45 52 47 45 PT=1:CHAIN MERGE
027C20: 20 22 55 22 2C 31 30 35 39 0D 0A 31 30 34 39 20 "U",1059..1049
027C30: 49 46 20 4A 3D 33 20 41 4E 44 20 59 24 28 5A 28 IF J=3 AND Y$(Z(
027C40: 4A 2C 49 29 29 3D 5A 24 20 54 48 45 4E 20 43 52 J,I))=Z$ THEN CR
027C50: 3D 4F 4B 3A 4D 53 3D 43 52 3A 4D 49 44 24 28 41 =OK:MS=CR:MID$(A
027C60: 24 28 32 2C 4D 53 29 2C 32 2C 39 29 3D 59 24 28 $(2,MS),2,9)=Y$(
027C70: 5A 28 4A 2B 31 2C 49 29 29 3A 4D 49 44 24 28 41 Z(J+1,I)):MID$(A
027C80: 24 28 32 2C 4D 53 29 2C 31 2C 31 29 3D 22 48 22 $(2,MS),1,1)="H"
027C90: 3A 4D 49 44 24 28 41 24 28 32 2C 4D 53 29 2C 31 :MID$(A$(2,MS),1
027CA0: 33 2C 31 29 3D 43 48 52 24 28 52 59 29 3A 50 54 3,1)=CHR$(RY):PT
027CB0: 3D 31 3A 43 48 41 49 4E 20 4D 45 52 47 45 20 22 =1:CHAIN MERGE "
027CC0: 55 22 2C 31 30 35 39 0D 0A 31 30 35 30 20 49 46 U",1059..1050 IF
027CD0: 20 4A 3D 33 20 41 4E 44 20 59 24 28 5A 28 4A 2B J=3 AND Y$(Z(J+
027CE0: 31 2C 49 29 29 3D 5A 24 20 54 48 45 4E 20 43 52 1,I))=Z$ THEN CR
027CF0: 3D 4F 4B 3A 4D 53 3D 43 52 3A 4D 49 44 24 28 41 =OK:MS=CR:MID$(A
027D00: 41 54 45 20 59 2F 4E 20 20 4D 45 4E 55 22 3B 70 ATE Y/N MENU";p
027D10: 61 24 28 31 29 3A 47 4F 53 55 42 20 36 34 30 30 a$(1):GOSUB 6400
027D20: 30 3A 49 46 20 49 4E 24 3D 22 4D 22 20 54 48 45 0:IF IN$="M" THE
027D30: 4E 20 50 52 49 4E 54 20 43 48 52 24 28 37 29 3A N PRINT CHR$(7):
027D40: 4E 43 3D 30 3A 44 24 3D 22 52 31 22 3A 48 57 3D NC=0:D$="R1":HW=
027D50: 31 30 30 31 3A 47 4F 54 4F 20 39 30 32 0D 0A 31 1001:GOTO 902..1
027D60: 30 31 35 20 49 46 20 49 4E 24 3D 22 4E 22 20 54 015 IF IN$="N" T
027D70: 48 45 4E 20 31 30 33 32 20 45 4C 53 45 20 49 46 HEN 1032 ELSE IF
027D80: 20 49 4E 24 3D 22 59 22 20 54 48 45 4E 20 31 30 IN$="Y" THEN 10
027D90: 30 35 20 45 4C 53 45 20 31 30 31 34 0D 0A 31 30 05 ELSE 1014..10
027DA0: 31 36 20 49 46 20 4E 41 3C 4E 47 20 54 48 45 4E 16 IF NA<NG THEN
027DB0: 20 4E 41 3D 4E 41 2B 31 30 0D 0A 31 30 31 37 20 NA=NA+10..1017
027DC0: 52 41 3D 31 2B 49 4E 54 28 52 4E 44 2A 35 29 3A RA=1+INT(RND*5):
027DD0: 49 46 20 52 41 3C 3E 31 20 54 48 45 4E 20 31 30 IF RA<>1 THEN 10
027DE0: 30 32 0D 0A 31 30 31 38 20 49 46 20 41 50 3D 4F 02..1018 IF AP=O
027DF0: 28 31 2C 49 42 29 20 41 4E 44 20 41 50 3D 34 20 (1,IB) AND AP=4
027E00: 54 48 45 4E 20 31 30 32 37 0D 0A 31 30 31 39 20 THEN 1027..1019
027E10: 52 41 3D 49 4E 54 28 52 4E 44 2A 31 31 29 3A 49 RA=INT(RND*11):I
027E20: 46 20 41 50 3D 4F 28 31 2C 49 42 29 20 54 48 45 F AP=O(1,IB) THE
027E30: 4E 20 52 42 3D 52 41 2B 4F 28 32 2C 49 42 29 3A N RB=RA+O(2,IB):
027E40: 47 4F 54 4F 20 31 30 32 35 0D 0A 31 30 32 30 20 GOTO 1025..1020
027E50: 46 4F 52 20 49 3D 31 20 54 4F 20 38 30 3A 52 41 FOR I=1 TO 80:RA
027E60: 3D 41 42 53 28 59 24 28 49 29 3D 4A 24 28 49 42 =ABS(Y$(I)=J$(IB
027E70: 29 29 2A 49 3A 49 3D 49 2B 41 42 53 28 52 41 3E ))*I:I=I+ABS(RA>
027E80: 30 29 2A 38 30 3A 4E 45 58 54 0D 0A 31 30 32 31 0)*80:NEXT..1021
027E90: 20 52 41 3D 52 41 2D 41 42 53 28 52 41 3E 37 31 RA=RA-ABS(RA>71
027EA0: 29 2A 41 42 53 28 52 41 2D 37 31 29 3A 52 42 3D )*ABS(RA-71):RB=
027EB0: 52 41 2B 49 4E 54 28 52 4E 44 2A 31 30 29 3A 49 RA+INT(RND*10):I
027EC0: 46 20 59 24 28 52 42 29 3D 5A 24 20 54 48 45 4E F Y$(RB)=Z$ THEN
027ED0: 20 31 30 32 31 0D 0A 31 30 32 32 20 49 46 20 52 1021..1022 IF R
027EE0: 42 3E 28 43 4D 2D 31 29 20 41 4E 44 20 52 42 3C B>(CM-1) AND RB<
027EF0: 28 43 4E 2B 31 29 20 54 48 45 4E 20 52 42 3D 52 (CN+1) THEN RB=R
027F00: 24 28 32 2C 4D 53 29 2C 32 2C 39 29 3D 59 24 28 $(2,MS),2,9)=Y$(
027F10: 5A 28 4A 2C 49 29 29 3A 4D 49 44 24 28 41 24 28 Z(J,I)):MID$(A$(
027F20: 32 2C 4D 53 29 2C 31 2C 31 29 3D 22 41 22 3A 4D 2,MS),1,1)="A":M
027F30: 49 44 24 28 41 24 28 32 2C 4D 53 29 2C 31 33 2C ID$(A$(2,MS),13,
027F40: 31 29 3D 43 48 52 24 28 52 5A 29 3A 50 54 3D 31 1)=CHR$(RZ):PT=1
027F50: 3A 43 48 41 49 4E 20 4D 45 52 47 45 20 22 55 22 :CHAIN MERGE "U"
027F60: 2C 31 30 35 39 0D 0A 31 30 35 31 20 4E 45 58 54 ,1059..1051 NEXT
027F70: 0D 0A 31 30 35 32 20 4A 3D 4A 2B 32 3A 49 46 20 ..1052 J=J+2:IF
027F80: 4A 3D 33 20 54 48 45 4E 20 31 30 36 31 20 45 4C J=3 THEN 1061 EL
027F90: 53 45 20 31 30 36 32 0D 0A 31 30 35 33 20 52 43 SE 1062..1053 RC
027FA0: 3D 49 44 2D 31 3A 52 43 3D 52 43 2D 41 42 53 28 =ID-1:RC=RC-ABS(
027FB0: 52 43 3E 31 38 29 2A 31 39 3A 52 44 3D 52 43 2B RC>18)*19:RD=RC+
027FC0: 56 3A 56 3D 52 44 3A 52 46 3D 30 3A 52 45 3D 30 V:V=RD:RF=0:RE=0
027FD0: 3A 46 4F 52 20 49 3D 43 4D 20 54 4F 20 52 44 3A :FOR I=CM TO RD:
027FE0: 52 45 3D 52 45 2B 41 42 53 28 59 24 28 49 29 3D RE=RE+ABS(Y$(I)=
027FF0: 5A 24 20 41 4E 44 20 52 45 3D 30 29 3A 52 46 3D Z$ AND RE=0):RF=
028000: 52 46 2B 41 42 53 28 59 24 28 49 29 3D 4A 24 28 RF+ABS(Y$(I)=J$(
028010: 49 42 29 20 41 4E 44 20 52 46 3D 30 29 3A 4E 45 IB) AND RF=0):NE
028020: 58 54 3A 49 44 3D 49 44 2B 41 42 53 28 52 46 3D XT:ID=ID+ABS(RF=
028030: 31 20 41 4E 44 20 52 45 3D 30 29 3A 47 4F 54 4F 1 AND RE=0):GOTO
028040: 20 31 30 36 30 0D 0A 31 30 35 34 20 50 41 3D 30 1060..1054 PA=0
028050: 3A 50 42 3D 30 3A 50 43 3D 30 3A 50 44 3D 30 3A :PB=0:PC=0:PD=0:
028060: 50 45 3D 30 3A 50 46 3D 30 3A 50 47 3D 30 3A 46 PE=0:PF=0:PG=0:F
028070: 4F 52 20 4A 3D 31 20 54 4F 20 35 3A 4F 24 28 4A OR J=1 TO 5:O$(J
028080: 29 3D 22 22 3A 4E 45 58 54 3A 46 4F 52 20 49 3D )="":NEXT:FOR I=
028090: 38 20 54 4F 20 37 20 53 54 45 50 20 2D 31 3A 4F 8 TO 7 STEP -1:O
0280A0: 24 28 49 29 3D 4F 24 28 49 2D 31 29 3A 4E 45 58 $(I)=O$(I-1):NEX
0280B0: 54 3A 4F 24 28 36 29 3D 44 24 3A 52 45 54 55 52 T:O$(6)=D$:RETUR
0280C0: 4E 0D 0A 31 30 35 35 20 42 58 3D 31 3A 44 24 3D N..1055 BX=1:D$=
0280D0: 5A 24 3A 5A 24 3D 4A 24 28 49 42 29 3A 4A 24 28 Z$:Z$=J$(IB):J$(
0280E0: 49 42 29 3D 44 24 3A 4E 49 3D 4E 49 2D 41 42 53 IB)=D$:NI=NI-ABS
0280F0: 28 4F 28 31 2C 49 42 29 3E 32 29 2A 4E 49 3A 41 (O(1,IB)>2)*NI:A
028100: 42 2D 49 4E 54 28 28 49 4E 54 28 52 42 2F 32 30 B-INT((INT(RB/20
028110: 29 29 2A 32 30 29 3A 52 42 3D 52 42 2B 41 42 53 ))*20):RB=RB+ABS
028120: 28 54 24 28 52 42 29 3D 5A 24 29 3A 4F 28 31 2C (T$(RB)=Z$):O(1,
028130: 49 42 29 3D 41 50 3A 47 4F 54 4F 20 31 30 33 30 IB)=AP:GOTO 1030
028140: 0D 0A 31 30 32 33 20 4A 24 28 49 42 29 3D 59 24 ..1023 J$(IB)=Y$
028150: 28 52 42 29 3A 4F 28 31 2C 49 42 29 3D 31 2B 41 (RB):O(1,IB)=1+A
028160: 42 53 28 52 42 3E 32 30 20 41 4E 44 20 52 42 3C BS(RB>20 AND RB<
028170: 34 31 29 2B 41 42 53 28 52 42 3E 34 30 20 41 4E 41)+ABS(RB>40 AN
028180: 44 20 52 42 3C 36 31 29 2A 32 2B 41 42 53 28 52 D RB<61)*2+ABS(R
028190: 42 3E 36 30 29 2A 33 3A 4F 28 32 2C 49 42 29 3D B>60)*3:O(2,IB)=
0281A0: 52 42 2D 28 28 4F 28 31 2C 49 42 29 2A 32 30 29 RB-((O(1,IB)*20)
0281B0: 2D 32 30 29 0D 0A 31 30 32 34 20 44 24 3D 22 52 -20)..1024 D$="R
0281C0: 31 22 3A 48 57 3D 31 30 30 31 3A 47 4F 54 4F 20 1":HW=1001:GOTO
0281D0: 39 30 31 0D 0A 31 30 32 35 20 49 46 20 52 42 3E 901..1025 IF RB>
0281E0: 32 30 20 54 48 45 4E 20 31 30 33 31 0D 0A 31 30 20 THEN 1031..10
0281F0: 32 36 20 49 46 20 54 24 28 52 42 29 3D 5A 24 20 26 IF T$(RB)=Z$
028200: 54 48 45 4E 20 31 30 31 39 0D 0A 31 30 32 37 20 THEN 1019..1027
028210: 46 4F 52 20 49 3D 31 20 54 4F 20 32 30 3A 49 46 FOR I=1 TO 20:IF
028220: 20 54 24 28 49 29 3D 4A 24 28 49 42 29 20 54 48 T$(I)=J$(IB) TH
028230: 45 4E 20 52 41 3D 49 3A 69 3D 32 31 0D 0A 31 30 EN RA=I:i=21..10
028240: 32 38 20 4E 45 58 54 0D 0A 31 30 32 39 20 52 41 28 NEXT..1029 RA
028250: 3D 52 41 2D 41 42 53 28 52 41 3E 31 31 29 2A 28 =RA-ABS(RA>11)*(
028260: 52 41 2D 31 31 29 3A 52 42 3D 52 41 2B 49 4E 54 RA-11):RB=RA+INT
028270: 28 52 4E 44 2A 31 30 29 3A 49 46 20 54 24 28 52 (RND*10):IF T$(R
028280: 42 29 3D 5A 24 20 54 48 45 4E 20 31 30 32 39 0D B)=Z$ THEN 1029.
028290: 0A 31 30 33 30 20 4A 24 28 49 42 29 3D 54 24 28 .1030 J$(IB)=T$(
0282A0: 52 42 29 3A 4F 28 32 2C 49 42 29 3D 52 42 3A 47 RB):O(2,IB)=RB:G
0282B0: 4F 54 4F 20 31 30 32 34 0D 0A 31 30 33 31 20 52 OTO 1024..1031 R
0282C0: 42 3D 52 42 2D 32 30 3A 52 41 3D 4F 28 31 2C 49 B=RB-20:RA=O(1,I
0282D0: 42 29 2B 31 3A 52 42 3D 52 42 2B 28 28 52 41 2A B)+1:RB=RB+((RA*
0282E0: 32 30 29 2D 32 30 29 3A 47 4F 54 4F 20 31 30 32 20)-20):GOTO 102
0282F0: 33 0D 0A 31 30 33 32 20 47 4F 53 55 42 20 31 30 3..1032 GOSUB 10
028300: 50 3D 4F 28 31 2C 49 42 29 3A 50 53 3D 49 42 3A P=O(1,IB):PS=IB:
028310: 47 4F 53 55 42 20 31 30 35 34 3A 47 4F 54 4F 20 GOSUB 1054:GOTO
028320: 31 30 34 34 0D 0A 31 30 35 36 20 43 4A 3D 33 38 1044..1056 CJ=38
028330: 2D 28 49 44 2D 31 29 3A 47 4F 53 55 42 20 31 30 -(ID-1):GOSUB 10
028340: 35 33 3A 49 46 20 52 58 3D 31 20 54 48 45 4E 20 53:IF RX=1 THEN
028350: 31 30 33 38 20 45 4C 53 45 20 31 30 33 33 0D 0A 1038 ELSE 1033..
028360: 31 30 35 37 20 47 4F 53 55 42 20 31 30 30 31 3A 1057 GOSUB 1001:
028370: 49 46 20 41 50 3C 33 20 54 48 45 4E 20 4E 49 3D IF AP<3 THEN NI=
028380: 31 0D 0A 31 30 35 38 20 47 4F 54 4F 20 31 30 33 1..1058 GOTO 103
028390: 39 0D 0A 31 30 35 39 20 47 4F 53 55 42 20 31 30 9..1059 GOSUB 10
0283A0: 30 33 3A 50 54 3D 30 3A 49 3D 52 42 2F 32 2B 31 03:PT=0:I=RB/2+1
0283B0: 3A 47 4F 54 4F 20 31 30 35 32 0D 0A 31 30 36 30 :GOTO 1052..1060
0283C0: 20 56 3D 56 2B 41 42 53 28 52 46 3D 31 20 41 4E V=V+ABS(RF=1 AN
0283D0: 44 20 52 45 3D 30 20 4F 52 20 52 46 3D 30 20 41 D RE=0 OR RF=0 A
0283E0: 4E 44 20 52 45 3D 31 20 4F 52 20 52 46 3D 31 20 ND RE=1 OR RF=1
0283F0: 41 4E 44 20 52 45 3D 31 29 3A 52 45 54 55 52 4E AND RE=1):RETURN
028400: 20 0D 0A 31 30 36 31 20 49 46 20 41 50 3C 33 20 ..1061 IF AP<3
028410: 41 4E 44 20 43 49 3C 31 33 20 41 4E 44 20 4A 3D AND CI<13 AND J=
028420: 31 20 54 48 45 4E 20 43 54 3D 33 3A 4D 54 3D 33 1 THEN CT=3:MT=3
028430: 3A 47 4F 54 4F 20 31 30 35 32 20 45 4C 53 45 20 :GOTO 1052 ELSE
028440: 31 30 34 35 0D 0A 31 30 36 32 20 49 42 3D 50 53 1045..1062 IB=PS
028450: 3A 41 47 3D 4F 28 32 2C 49 42 29 3A 45 52 41 53 :AG=O(2,IB):ERAS
028460: 45 20 4B 3A 44 49 4D 20 4B 28 31 32 2C 38 29 3A E K:DIM K(12,8):
028470: 4E 53 3D 31 3A 4B 28 4E 53 2C 32 29 3D 41 47 3A NS=1:K(NS,2)=AG:
028480: 4B 28 4E 53 2C 35 29 3D 41 50 3A 47 4F 53 55 42 K(NS,5)=AP:GOSUB
028490: 20 32 33 30 30 30 3A 47 4F 54 4F 20 31 30 35 36 23000:GOTO 1056
0284A0: 0D 0A 31 30 36 33 20 45 52 41 53 45 20 4D 3A 44 ..1063 ERASE M:D
0284B0: 49 4D 20 4D 28 39 29 3A 42 45 3D 30 3A 47 5A 3D IM M(9):BE=0:GZ=
0284C0: 30 3A 46 4F 52 20 49 3D 31 34 20 54 4F 20 35 36 0:FOR I=14 TO 56
0284D0: 20 53 54 45 50 20 37 3A 49 46 20 43 49 3D 49 20 STEP 7:IF CI=I
0284E0: 54 48 45 4E 20 43 49 3D 43 49 2B 31 3A 49 3D 35 THEN CI=CI+1:I=5
0284F0: 35 0D 0A 31 30 36 34 20 4E 45 58 54 3A 52 45 54 5..1064 NEXT:RET
028500: 36 33 3A 50 52 49 4E 54 20 43 48 52 24 28 37 29 63:PRINT CHR$(7)
028510: 3A 47 4F 53 55 42 20 31 30 34 32 3A 4F 57 3D 30 :GOSUB 1042:OW=0
028520: 3A 41 55 3D 31 30 30 30 30 30 3A 4A 55 3D 30 3A :AU=100000:JU=0:
028530: 4A 51 3D 30 3A 4B 43 3D 30 3A 47 4F 53 55 42 20 JQ=0:KC=0:GOSUB
028540: 38 31 36 3A 4F 51 3D 30 3A 47 4F 53 55 42 20 38 816:OQ=0:GOSUB 8
028550: 39 31 3A 52 58 3D 41 42 53 28 41 50 3D 4F 28 31 91:RX=ABS(AP=O(1
028560: 2C 49 42 29 29 3A 41 4B 3D 32 30 30 30 2D 28 4F ,IB)):AK=2000-(O
028570: 28 31 2C 49 42 29 2A 34 30 30 29 3A 47 4F 54 4F (1,IB)*400):GOTO
028580: 20 31 30 35 35 0D 0A 31 30 33 33 20 52 41 3D 28 1055..1033 RA=(
028590: 41 50 2A 32 30 29 2D 31 39 3A 46 4F 52 20 4B 3D AP*20)-19:FOR K=
0285A0: 31 20 54 4F 20 31 38 3A 49 46 20 4E 28 31 2C 4B 1 TO 18:IF N(1,K
0285B0: 29 3E 30 20 54 48 45 4E 20 45 54 3D 4E 28 31 2C )>0 THEN ET=N(1,
0285C0: 4B 29 3A 45 56 3D 31 3A 47 4F 53 55 42 20 31 30 K):EV=1:GOSUB 10
0285D0: 33 36 0D 0A 31 30 33 34 20 49 46 20 4E 28 32 2C 36..1034 IF N(2,
0285E0: 4B 29 3E 30 20 54 48 45 4E 20 45 54 3D 4E 28 32 K)>0 THEN ET=N(2
0285F0: 2C 4B 29 3A 45 56 3D 32 3A 47 4F 53 55 42 20 31 ,K):EV=2:GOSUB 1
028600: 30 33 36 0D 0A 31 30 33 35 20 4E 45 58 54 3A 46 036..1035 NEXT:F
028610: 4F 52 20 49 3D 31 20 54 4F 20 32 30 3A 54 24 28 OR I=1 TO 20:T$(
028620: 49 29 3D 59 24 28 28 52 41 2D 31 29 2B 49 29 3A I)=Y$((RA-1)+I):
028630: 4E 45 58 54 3A 47 4F 54 4F 20 31 30 33 38 0D 0A NEXT:GOTO 1038..
028640: 31 30 33 36 20 46 4F 52 20 49 3D 31 20 54 4F 20 1036 FOR I=1 TO
028650: 32 30 3A 49 46 20 54 24 28 49 29 3D 59 24 28 45 20:IF T$(I)=Y$(E
028660: 54 29 20 54 48 45 4E 20 4E 28 45 56 2C 4B 29 3D T) THEN N(EV,K)=
028670: 28 28 52 41 2D 31 29 2B 49 29 3A 69 3D 32 31 20 ((RA-1)+I):i=21
028680: 0D 0A 31 30 33 37 20 4E 45 58 54 3A 52 45 54 55 ..1037 NEXT:RETU
028690: 52 4E 20 0D 0A 31 30 33 38 20 46 4F 52 20 49 3D RN ..1038 FOR I=
0286A0: 31 20 54 4F 20 49 44 3A 57 24 28 49 29 3D 53 50 1 TO ID:W$(I)=SP
0286B0: 41 43 45 24 28 32 29 3A 4E 45 58 54 3A 46 4F 52 ACE$(2):NEXT:FOR
0286C0: 20 79 3D 31 20 54 4F 20 32 38 3A 4A 28 59 29 3D y=1 TO 28:J(Y)=
0286D0: 30 3A 45 28 31 2C 79 29 3D 30 3A 65 28 32 2C 79 0:E(1,y)=0:e(2,y
0286E0: 29 3D 30 3A 65 28 33 2C 79 29 3D 30 3A 4E 45 58 )=0:e(3,y)=0:NEX
0286F0: 54 3A 43 48 41 49 4E 20 4D 45 52 47 45 20 22 48 T:CHAIN MERGE "H
028700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
028710: 22 00 01 00 02 09 4E E5 22 00 41 02 00 00 00 02 ".....N.".A.....
028720: 22 00 46 02 00 00 00 02 22 00 42 02 00 00 00 02 ".F.....".B.....
028730: 22 00 47 02 00 00 00 02 22 00 43 02 00 00 00 02 ".G.....".C.....
028740: 22 00 48 02 00 00 00 02 22 00 44 02 00 00 00 02 ".H.....".D.....
028750: 22 00 49 02 00 00 00 02 22 00 45 02 00 00 00 02 ".I.....".E.....
028760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028800: 55 52 4E 0D 0A 1A 20 20 20 20 24 24 24 FF 00 FF URN... $$$...
028810: 28 37 2E 35 2A 4F 28 32 2C 49 42 29 29 29 2A 28 (7.5*O(2,IB)))*(
028820: 35 2D 4F 28 31 2C 49 42 29 29 3A 4E 47 3D 4E 41 5-O(1,IB)):NG=NA
028830: 3A 4E 42 3D 28 4E 41 2F 31 30 30 29 2A 32 30 3A :NB=(NA/100)*20:
028840: 4E 41 3D 4E 41 2D 4E 42 0D 0A 31 30 30 32 20 4E NA=NA-NB..1002 N
028850: 43 3D 49 4E 54 28 28 32 30 2F 41 47 29 2A 31 30 C=INT((20/AG)*10
028860: 29 2B 28 31 2B 49 4E 54 28 52 4E 44 2A 32 30 29 )+(1+INT(RND*20)
028870: 29 3A 4E 45 3D 49 4E 54 28 31 34 2D 4F 28 32 2C ):NE=INT(14-O(2,
028880: 31 0D 0A 31 30 35 38 20 47 4F 54 4F 20 31 30 33 1..1058 GOTO 103
028890: 39 0D 0A 31 30 35 39 20 47 4F 53 55 42 20 31 30 9..1059 GOSUB 10
0288A0: 30 33 3A 50 54 3D 30 3A 49 3D 52 42 2F 32 2B 31 03:PT=0:I=RB/2+1
0288B0: 3A 47 4F 54 4F 20 31 30 35 32 0D 0A 31 30 36 30 :GOTO 1052..1060
0288C0: 20 56 3D 56 2B 41 42 53 28 52 46 3D 31 20 41 4E V=V+ABS(RF=1 AN
0288D0: 44 20 52 45 3D 30 20 4F 52 20 52 46 3D 30 20 41 D RE=0 OR RF=0 A
0288E0: 4E 44 20 52 45 3D 31 20 4F 52 20 52 46 3D 31 20 ND RE=1 OR RF=1
0288F0: 41 4E 44 20 52 45 3D 31 29 3A 52 45 54 55 52 4E AND RE=1):RETURN
028900: 20 0D 0A 31 30 36 31 20 49 46 20 41 50 3C 33 20 ..1061 IF AP<3
028910: 41 4E 44 20 43 49 3C 31 33 20 41 4E 44 20 4A 3D AND CI<13 AND J=
028920: 31 20 54 48 45 4E 20 43 54 3D 33 3A 4D 54 3D 33 1 THEN CT=3:MT=3
028930: 3A 47 4F 54 4F 20 31 30 35 32 20 45 4C 53 45 20 :GOTO 1052 ELSE
028940: 31 30 34 35 0D 0A 31 30 36 32 20 49 42 3D 50 53 1045..1062 IB=PS
028950: 3A 41 47 3D 4F 28 32 2C 49 42 29 3A 45 52 41 53 :AG=O(2,IB):ERAS
028960: 45 20 4B 3A 44 49 4D 20 4B 28 31 32 2C 38 29 3A E K:DIM K(12,8):
028970: 4E 53 3D 31 3A 4B 28 4E 53 2C 32 29 3D 41 47 3A NS=1:K(NS,2)=AG:
028980: 4B 28 4E 53 2C 35 29 3D 41 50 3A 47 4F 53 55 42 K(NS,5)=AP:GOSUB
028990: 20 32 33 30 30 30 3A 47 4F 54 4F 20 31 30 35 36 23000:GOTO 1056
0289A0: 0D 0A 31 30 36 33 20 45 52 41 53 45 20 4D 3A 44 ..1063 ERASE M:D
0289B0: 49 4D 20 4D 28 39 29 3A 42 45 3D 30 3A 47 5A 3D IM M(9):BE=0:GZ=
0289C0: 30 3A 46 4F 52 20 49 3D 31 34 20 54 4F 20 35 36 0:FOR I=14 TO 56
0289D0: 20 53 54 45 50 20 37 3A 49 46 20 43 49 3D 49 20 STEP 7:IF CI=I
0289E0: 54 48 45 4E 20 43 49 3D 43 49 2B 31 3A 49 3D 35 THEN CI=CI+1:I=5
0289F0: 35 0D 0A 31 30 36 34 20 4E 45 58 54 3A 52 45 54 5..1064 NEXT:RET
028A00: 31 30 30 31 3A 70 74 3D 30 3A 46 4F 52 20 4A 3D 1001:pt=0:FOR J=
028A10: 31 20 54 4F 20 34 3A 49 46 20 59 24 28 49 28 32 1 TO 4:IF Y$(I(2
028A20: 2C 41 50 2C 4A 29 29 3D 5A 24 20 54 48 45 4E 20 ,AP,J))=Z$ THEN
028A30: 47 4F 53 55 42 20 38 31 37 3A 49 28 32 2C 41 50 GOSUB 817:I(2,AP
028A40: 2C 4A 29 3D 52 41 0D 0A 31 30 32 36 20 4E 45 58 ,J)=RA..1026 NEX
028A50: 54 3A 47 4F 53 55 42 20 38 31 35 3A 47 4F 54 4F T:GOSUB 815:GOTO
028A60: 20 36 0D 0A 1A 49 29 3D 4D 49 44 24 28 48 24 2C 6...I)=MID$(H$,
028A70: 52 43 2C 31 29 2B 4D 49 44 24 28 4D 24 2C 52 42 RC,1)+MID$(M$,RB
028A80: 4E 45 58 54 3A 47 4F 53 55 42 20 33 33 32 3A 47 NEXT:GOSUB 332:G
028A90: 4F 53 55 42 20 38 39 0D 0A 31 30 32 31 20 70 74 OSUB 89..1021 pt
028AA0: 3D 31 3A 43 48 41 49 4E 20 4D 45 52 47 45 20 22 =1:CHAIN MERGE "
028AB0: 55 22 2C 31 30 32 35 0D 0A 31 30 32 32 20 52 45 U",1025..1022 RE
028AC0: 4D 0D 0A 31 30 32 33 20 46 4F 52 20 49 3D 31 20 M..1023 FOR I=1
028AD0: 54 4F 20 4E 4F 3A 47 4F 53 55 42 20 39 38 3A 49 TO NO:GOSUB 98:I
028AE0: 24 28 49 2B 35 29 3D 4D 49 44 24 28 48 24 2C 52 $(I+5)=MID$(H$,R
028AF0: 43 2C 31 29 2B 4D 49 44 24 28 4D 24 2C 52 42 2C C,1)+MID$(M$,RB,
028B00: 31 29 2B 4D 49 44 24 28 48 24 2C 52 44 2C 31 29 1)+MID$(H$,RD,1)
028B10: 2B 45 24 28 52 41 29 3A 59 28 31 2C 49 2B 35 29 +E$(RA):Y(1,I+5)
028B20: 3D 35 30 3A 59 28 32 2C 49 2B 35 29 3D 49 4E 54 =50:Y(2,I+5)=INT
028B30: 20 28 52 4E 44 2A 36 30 29 3A 59 28 33 2C 49 2B (RND*60):Y(3,I+
028B40: 35 29 3D 33 35 2B 49 4E 54 20 28 52 4E 44 2A 36 5)=35+INT (RND*6
028B50: 35 29 3A 59 28 34 2C 49 2B 35 29 3D 31 2B 49 4E 5):Y(4,I+5)=1+IN
028B60: 54 20 28 52 4E 44 2A 34 29 3A 59 28 35 2C 49 2B T (RND*4):Y(5,I+
028B70: 35 29 3D 31 36 2B 49 4E 54 20 28 52 4E 44 2A 32 5)=16+INT (RND*2
028B80: 29 0D 0A 31 30 32 34 20 59 28 36 2C 49 2B 35 29 )..1024 Y(6,I+5)
028B90: 3D 2D 33 2B 49 4E 54 20 28 52 4E 44 2A 31 37 29 =-3+INT (RND*17)
028BA0: 3A 59 28 36 2C 49 2B 35 29 3D 59 28 36 2C 49 2B :Y(6,I+5)=Y(6,I+
028BB0: 35 29 2B 28 59 28 36 2C 49 2B 35 29 3C 30 29 2A 5)+(Y(6,I+5)<0)*
028BC0: 41 42 53 28 59 28 36 2C 49 2B 35 29 29 2D 28 59 ABS(Y(6,I+5))-(Y
028BD0: 28 36 2C 49 2B 35 29 3E 39 29 2A 28 59 28 36 2C (6,I+5)>9)*(Y(6,
028BE0: 49 2B 35 29 2D 39 29 3A 4E 45 58 54 3A 52 45 54 I+5)-9):NEXT:RET
028BF0: 55 52 4E 0D 0A 31 30 32 35 20 47 4F 53 55 42 20 URN..1025 GOSUB
028C00: 0F 20 EC 20 0D 00 00 C9 F5 0F 01 A1 20 03 00 00 . . ........ ...
028C10: CA 28 0D 00 00 CB 29 EF 03 00 00 D4 28 19 0B F4 .(....).....(...
028C20: 0D 00 00 52 C5 29 20 EB 20 0D 00 00 46 4C 41 C7 ...R.) . ...FLA.
028C30: EF 0F 00 16 00 F1 03 B0 01 A1 20 0D 00 00 46 4C .......... ...FL
028C40: 41 C7 20 EB 20 1E EE 03 00 4D 00 F2 03 03 00 00 A. . ....M......
028C50: CA 28 0D 00 00 C9 29 EF 03 00 00 D4 28 19 0B F4 .(....).....(...
028C60: 0D 00 00 52 C5 29 01 0D 00 00 CF 28 0F 2C 0D 00 ...R.).....(.,..
028C70: 00 C9 29 EF 0D 00 00 41 D0 01 0D 00 00 CF 28 10 ..)....A......(.
028C80: 2C 0D 00 00 C9 29 EF 19 0B F4 0D 00 00 52 C5 01 ,....).......R..
028C90: A0 20 1E F6 03 00 4B 00 F3 03 0D 00 00 46 4C 41 . ....K......FLA
028CA0: C7 EF 0E 01 9E 20 0D 00 00 CB EF 0F 20 EC 20 0D ..... ...... . .
028CB0: 00 00 C9 F5 0F 01 A1 20 03 00 00 CA 28 0D 00 00 ....... ....(...
028CC0: CB 29 EF 03 00 00 D9 28 0D 00 00 52 C4 F4 0D 00 .).....(...R....
028CD0: 00 52 C5 29 20 EB 20 0D 00 00 46 4C 41 C7 EF 0F .R.) . ...FLA...
028CE0: 00 16 00 F4 03 B0 01 A1 20 0D 00 00 46 4C 41 C7 ........ ...FLA.
028CF0: 20 EB 20 1E EE 03 00 56 00 F5 03 0D 00 00 52 C6 . ....V......R.
028D00: EF 0D 00 00 52 C4 F4 0D 00 00 52 C5 01 03 00 00 ....R.....R.....
028D10: CA 28 0D 00 00 C9 29 EF 03 00 00 D9 28 0D 00 00 .(....).....(...
028D20: 52 C6 29 01 0D 00 00 CF 28 0F 2C 0D 00 00 C9 29 R.).....(.,....)
028D30: EF 0D 00 00 52 C3 01 0D 00 00 CF 28 10 2C 0D 00 ....R......(.,..
028D40: 00 C9 29 EF 19 0B F4 0D 00 00 52 C5 00 09 00 F6 ..).......R.....
028D50: 03 B0 01 C9 20 00 00 00 1A 30 32 20 72 65 6D 0D .... ....02 rem.
028D60: 0A 31 30 30 33 20 72 65 6D 0D 0A 31 30 30 34 20 .1003 rem..1004
028D70: 52 42 3D 49 4E 54 28 52 4E 44 2A 52 41 29 0D 0A RB=INT(RND*RA)..
028D80: 14 29 F5 19 13 29 F4 19 0A 00 28 00 EE 03 0D 00 .)...)....(.....
028D90: 00 52 C5 EF FF 0C 28 FF 45 F6 19 0A 29 01 A1 20 .R....(.E...)..
028DA0: 0D 00 00 52 C3 F2 0D 00 00 41 D0 20 EB 20 1E F3 ...R.....A. . ..
028DB0: 03 00 39 00 EF 03 A1 20 03 00 00 D4 28 0D 00 00 ..9.... ....(...
028DC0: 52 C5 F4 19 0B 29 EF 03 00 00 DA 20 FC 20 03 00 R....)..... . ..
028DD0: 00 D9 28 0D 00 00 52 C4 F4 0D 00 00 52 C5 29 EF ..(...R.....R.).
028DE0: 03 00 00 DA 20 EB 20 1E EE 03 00 48 00 F0 03 0D .... . ....H....
028DF0: 00 00 46 4C 41 C7 EF 0E 01 9E 20 0D 00 00 CB EF ..FLA..... .....
028E00: AB 4D 04 C3 6D A9 1F E1 9B DF 00 35 82 3B 62 D5 .M..m......5.;b.
028E10: E8 64 1A 51 DE 54 8F 21 9F 52 C1 83 DD 4A 53 89 .d.Q.T.!.R...JS.
028E20: FA 60 0C F1 D0 6A 5D E4 B7 F3 19 2C 0D 00 00 EB .`...j]....,....
028E30: 29 EF 0F 01 9F 20 1E 31 03 01 0D 00 00 E9 28 10 ).... .1......(.
028E40: 2C 0D 00 00 EA 2C 0D 00 00 EB 29 EF 0D 00 00 72 ,....,....)....r
028E50: E1 01 B0 01 B0 01 9F 20 1E 2F 03 01 C9 20 00 49 ....... ./... .I
028E60: 00 FF FF 0D 00 00 61 E9 EF 0D 00 00 61 E9 F4 FF ......a.....a...
028E70: 00 28 0D 00 00 61 E9 F1 0E 29 F6 FF 00 28 0D 00 .(...a...)...(..
028E80: 8B 21 ED EA 03 DC D0 F8 B2 29 6C 0C 5D D4 3B 0B .!.......)l.].;.
028E90: 09 44 03 63 3D B6 82 21 73 08 2E 77 22 30 42 3D .D.c=..!s..w"0B=
028EA0: D3 8F E8 1F 6F 4B 6E C4 BA F3 03 C7 8A 67 E5 63 ....oKn......g.c
028EB0: 14 AE 4E A0 CA 6E DE 42 D3 E5 E9 E5 AD C0 D5 86 ..N..n.B........
028EC0: 7C 1D FD 9C 3E 46 F8 27 E8 94 EE 89 45 2C 5C 8B |...>F.'....E,\.
028ED0: D1 14 51 2F 13 81 40 C3 CF D4 40 32 BE C5 1C 82 ..Q/..@...@2....
028EE0: EE 31 0C 00 57 AB B5 A4 93 70 1E 24 72 35 60 76 .1..W....p.$r5`v
028EF0: 4C 36 8E 5B F4 37 2B E2 FD 0B 98 61 87 72 D7 B6 L6.[.7+....a.r..
028F00: 47 0C 12 AF 9A 2E 0D ED 2B DE B8 2C C4 92 9B 0A G.......+..,....
028F10: 08 6C FC 54 29 40 47 08 87 85 89 75 C7 C4 6B 31 .l.T)@G....u..k1
028F20: 1A 8F BF F0 9A 94 0A C4 BA F3 03 42 8F 87 D0 AF ...........B....
028F30: C8 9C 42 3E EA 89 31 53 18 F0 C6 C8 41 E0 A8 6C ..B>..1S....A..l
028F40: 0C 28 CA 08 2C B3 04 27 C0 75 C6 84 AF C3 B9 87 .(..,..'.u......
028F50: 26 34 5C C4 3A 01 55 2F F1 F9 BC 12 C9 7C 35 9C &4\.:.U/.....|5.
028F60: 23 0E 0E 0E DB 8E B6 A4 FC 73 DD 3F 5B C3 02 94 #........s.?[...
028F70: A9 39 97 AF 20 E0 B6 C2 F0 E6 B4 02 36 9D AA 74 .9.. .......6..t
028F80: 87 23 C4 1E C0 1F 3C EC 9B 37 56 01 3B D4 1F 11 .#....<..7V.;...
028F90: 28 4B 2A E5 DC 59 8F C4 5B 77 CC 83 AF D1 43 31 (K*..Y..[w....C1
028FA0: DE 8F 02 19 48 64 B8 E9 B7 F3 E9 84 6D 88 F0 A8 ....Hd......m...
028FB0: C1 61 4C A1 55 A4 2F 62 F0 1E C4 E8 AD 29 92 7D .aL.U./b.....).}
028FC0: BF 05 D4 6A C6 9E 0A 27 C0 72 C7 66 A2 C3 53 D9 ...j...'.r.f..S.
028FD0: CA 35 EC 2E A3 EF 35 0C C7 DB BF 13 7A E5 1C 21 .5..£.5.....z..!
028FE0: 01 DF D3 F7 77 A6 D4 4D 13 96 F1 32 3A 2A 84 88 ....w..M...2:*..
028FF0: 85 1E B3 5B 8C A9 5C 33 FE 22 6E F0 36 B5 D5 96 ...[..\3."n.6...
029000: 31 30 30 31 20 46 4F 52 20 49 3D 33 20 54 4F 20 1001 FOR I=3 TO
029010: 31 32 3A 49 24 28 49 29 3D 22 22 3A 46 4F 52 20 12:I$(I)="":FOR
029020: 4B 3D 31 20 54 4F 20 35 3A 59 28 4B 2C 49 29 3D K=1 TO 5:Y(K,I)=
029030: 30 3A 4E 45 58 54 3A 4E 45 58 54 0D 0A 31 30 30 0:NEXT:NEXT..100
029040: 32 20 4E 4C 3D 31 3A 4E 4D 3D 31 3A 46 4F 52 20 2 NL=1:NM=1:FOR
029050: 49 3D 31 20 54 4F 20 32 3A 47 4F 53 55 42 20 39 I=1 TO 2:GOSUB 9
029060: 38 3A 49 24 28 49 29 3D 4D 49 44 24 28 48 24 2C 8:I$(I)=MID$(H$,
029070: 52 43 2C 31 29 2B 4D 49 44 24 28 4D 24 2C 52 42 RC,1)+MID$(M$,RB
029080: 2C 31 29 2B 4D 49 44 24 28 48 24 2C 52 44 2C 31 ,1)+MID$(H$,RD,1
029090: 29 2B 45 24 28 52 41 29 3A 59 28 31 2C 49 29 3D )+E$(RA):Y(1,I)=
0290A0: 35 30 2B 49 4E 54 20 28 52 4E 44 2A 32 30 30 29 50+INT (RND*200)
0290B0: 3A 59 28 32 2C 49 29 3D 31 2B 49 4E 54 20 28 52 :Y(2,I)=1+INT (R
0290C0: 4E 44 2A 31 30 30 29 3A 4E 45 58 54 0D 0A 31 30 ND*100):NEXT..10
0290D0: 30 33 20 4E 4E 3D 30 2B 49 4E 54 20 28 52 4E 44 03 NN=0+INT (RND
0290E0: 2A 34 29 3A 49 46 20 4E 4E 3D 30 20 54 48 45 4E *4):IF NN=0 THEN
0290F0: 20 31 30 30 37 0D 0A 31 30 30 34 20 46 4F 52 20 1007..1004 FOR
029100: 49 3D 31 20 54 4F 20 4E 4E 3A 47 4F 53 55 42 20 I=1 TO NN:GOSUB
029110: 39 38 3A 49 24 28 49 2B 32 29 3D 4D 49 44 24 28 98:I$(I+2)=MID$(
029120: 48 24 2C 52 43 2C 31 29 2B 4D 49 44 24 28 4D 24 H$,RC,1)+MID$(M$
029130: 2C 52 42 2C 31 29 2B 4D 49 44 24 28 48 24 2C 52 ,RB,1)+MID$(H$,R
029140: 44 2C 31 29 2B 45 24 28 52 41 29 3A 59 28 31 2C D,1)+E$(RA):Y(1,
029150: 49 2B 32 29 3D 35 30 2B 49 4E 54 20 28 52 4E 44 I+2)=50+INT (RND
029160: 2A 32 30 30 29 3A 59 28 32 2C 49 2B 32 29 3D 31 *200):Y(2,I+2)=1
029170: 2B 49 4E 54 20 28 52 4E 44 2A 39 39 29 3A 59 28 +INT (RND*99):Y(
029180: 34 2C 49 2B 32 29 3D 31 2B 49 4E 54 20 28 52 4E 4,I+2)=1+INT (RN
029190: 44 2A 34 29 3A 59 28 35 2C 49 2B 32 29 3D 31 2B D*4):Y(5,I+2)=1+
0291A0: 49 4E 54 20 28 52 4E 44 2A 39 29 0D 0A 31 30 30 INT (RND*9)..100
0291B0: 35 20 59 28 33 2C 49 2B 32 29 3D 31 2B 49 4E 54 5 Y(3,I+2)=1+INT
0291C0: 20 28 52 4E 44 2A 38 30 29 3A 49 46 20 59 24 28 (RND*80):IF Y$(
0291D0: 59 28 33 2C 49 2B 32 29 29 3D 5A 24 20 54 48 45 Y(3,I+2))=Z$ THE
0291E0: 4E 20 31 30 30 35 0D 0A 31 30 30 36 20 4E 45 58 N 1005..1006 NEX
0291F0: 54 0D 0A 31 30 30 37 20 4E 4F 3D 49 4E 54 20 28 T..1007 NO=INT (
029200: 10 29 01 B0 01 03 00 00 C4 EF 22 59 31 22 01 0D .)........"Y1"..
029210: 00 00 48 D7 EF 1A E9 03 01 A0 20 1E 86 03 00 2D ..H....... ....-
029220: 00 12 04 8A 23 10 01 A9 20 19 1D 2C 19 14 01 A3 ....#... ..,...£
029230: 20 03 00 00 C7 01 A1 20 FF 1C 28 03 00 00 C7 29 ...... ..(....)
029240: F2 03 00 00 C6 20 EB 20 1E 12 04 00 1A 00 13 04 ..... . ........
029250: A9 20 19 1D 2C 19 14 01 BF 20 03 00 00 C6 3B 22 . ..,.... ....;"
029260: 20 20 22 01 C9 00 77 00 14 04 0D 00 00 44 D4 EF "...w......D..
029270: 0E 01 0D 00 00 43 D6 EF 0E 01 0D 00 00 43 D4 EF .....C.......C..
029280: 0E 01 0D 00 00 43 D2 EF 0E 01 9E 20 0D 00 00 CA .....C..... ....
029290: EF 0F 20 EC 20 16 01 03 00 00 C1 28 10 2C 0D 00 .. . ......(.,..
0292A0: 00 CA 29 EF 22 20 20 20 20 20 20 20 20 20 20 20 ..)."
0292B0: 20 20 22 01 03 00 00 C1 28 0F 2C 0D 00 00 CA 29 ".....(.,....)
0292C0: EF 03 00 00 C1 28 10 2C 0D 00 00 CA 29 01 B0 01 .....(.,....)...
0292D0: 0D 00 00 CA EF 0F 01 A0 20 1E 25 04 00 3A 00 15 ........ .%..:..
0292E0: 04 A1 20 0D 00 00 41 D0 F1 11 20 FA 20 0D 00 00 .. ...A... . ...
0292F0: 43 C9 F1 19 11 20 FA 20 0D 00 00 CA EF 11 20 EB C.... . ...... .
029300: 20 0D 00 00 43 D2 EF 11 01 0D 00 00 4D D3 EF 11 ...C.......M...
029310: 01 A0 20 1E 1C 04 00 25 00 16 04 9F 20 1E E4 03 .. ....%.... ...
029320: 01 9E 20 0D 00 00 C9 EF 0F 20 EC 20 28 0D 00 00 .. ...... . (...
029330: 52 C2 F7 10 29 01 9F 20 1E E5 03 00 BE 00 17 04 R...).. ........
029340: A1 20 0D 00 00 CA EF 0F 20 FA 20 03 00 00 D9 28 . ...... . ....(
029350: 0D 00 00 DA 28 0D 00 00 CA 2C 0D 00 00 C9 29 29 ....(....,....))
029360: EF 03 00 00 DA 20 EB 20 0D 00 00 43 D4 EF 0D 00 ..... . ...C....
029370: 00 4F CA 01 0D 00 00 4D D4 EF 0D 00 00 43 D4 01 .O.....M.....C..
029380: AC 28 03 00 00 C1 28 0F 2C 0D 00 00 4D D4 29 2C .(....(.,...M.),
029390: 10 2C 17 29 EF 03 00 00 D9 28 0D 00 00 DA 28 0D .,.).....(....(.
0293A0: 00 00 CA F4 0F 2C 0D 00 00 C9 29 29 01 AC 28 03 .....,....))..(.
0293B0: 00 00 C1 28 0F 2C 0D 00 00 4D D4 29 2C 0F 2C 0F ...(.,...M.),.,.
0293C0: 29 EF 22 48 22 01 AC 28 03 00 00 C1 28 0F 2C 0D )."H"..(....(.,.
0293D0: 00 00 4D D4 29 2C 19 0D 2C 0F 29 EF FF 03 28 0D ..M.),..,.)...(.
0293E0: 00 00 52 D9 29 01 0D 00 00 50 D4 EF 0F 01 85 20 ..R.)....P.....
0293F0: AB 20 22 55 22 2C 1A 23 04 00 BE 00 18 04 A1 20 . "U",.#.......
029400: 52 4E 44 2A 35 29 3A 49 46 20 4E 4F 3D 30 20 54 RND*5):IF NO=0 T
029410: 48 45 4E 20 31 30 30 39 0D 0A 31 30 30 38 20 47 HEN 1009..1008 G
029420: 4F 53 55 42 20 31 30 32 33 0D 0A 31 30 30 39 20 OSUB 1023..1009
029430: 47 4F 53 55 42 20 34 31 36 3A 47 4F 53 55 42 20 GOSUB 416:GOSUB
029440: 34 31 33 3A 46 4F 52 20 49 3D 31 20 54 4F 20 33 413:FOR I=1 TO 3
029450: 3A 4A 24 28 49 29 3D 22 22 3A 4F 28 31 2C 49 29 :J$(I)="":O(1,I)
029460: 3D 30 3A 4F 28 32 2C 49 29 3D 30 3A 4E 45 58 54 =0:O(2,I)=0:NEXT
029470: 0D 0A 31 30 31 30 20 52 41 3D 30 2B 49 4E 54 20 ..1010 RA=0+INT
029480: 28 52 4E 44 2A 33 29 3A 49 46 20 52 41 3D 30 20 (RND*3):IF RA=0
029490: 54 48 45 4E 20 31 30 31 33 0D 0A 31 30 31 31 20 THEN 1013..1011
0294A0: 46 4F 52 20 49 3D 31 20 54 4F 20 52 41 3A 46 4F FOR I=1 TO RA:FO
0294B0: 52 20 4B 3D 31 20 54 4F 20 32 30 3A 49 46 20 54 R K=1 TO 20:IF T
0294C0: 28 4B 29 3E 30 20 41 4E 44 20 41 42 53 28 47 28 (K)>0 AND ABS(G(
0294D0: 4B 29 29 3E 33 30 20 41 4E 44 20 4A 28 4B 29 3C K))>30 AND J(K)<
0294E0: 3E 38 32 20 54 48 45 4E 20 45 28 31 2C 4B 29 3D >82 THEN E(1,K)=
0294F0: 45 28 31 2C 4B 29 2D 28 45 28 31 2C 4B 29 2A 32 E(1,K)-(E(1,K)*2
029500: 29 3A 47 28 4B 29 3D 41 42 53 28 47 28 4B 29 29 ):G(K)=ABS(G(K))
029510: 3A 4A 28 4B 29 3D 38 32 3A 4B 3D 32 31 0D 0A 31 :J(K)=82:K=21..1
029520: 30 31 32 20 4E 45 58 54 3A 4E 45 58 54 0D 0A 31 012 NEXT:NEXT..1
029530: 30 31 33 20 52 41 3D 49 4E 54 20 28 52 4E 44 2A 013 RA=INT (RND*
029540: 32 29 3A 49 46 20 52 41 3D 30 20 54 48 45 4E 20 2):IF RA=0 THEN
029550: 31 30 32 30 0D 0A 31 30 31 34 20 46 4F 52 20 4B 1020..1014 FOR K
029560: 3D 31 20 54 4F 20 52 41 3A 49 3D 31 2B 49 4E 54 =1 TO RA:I=1+INT
029570: 28 52 4E 44 2A 31 32 29 3A 49 46 20 55 28 49 29 (RND*12):IF U(I)
029580: 3D 30 20 54 48 45 4E 20 55 28 49 29 3D 31 2B 49 =0 THEN U(I)=1+I
029590: 4E 54 20 28 52 4E 44 2A 35 29 3A 4A 28 49 29 3D NT (RND*5):J(I)=
0295A0: 33 35 3A 41 44 3D 49 3A 47 4F 53 55 42 20 31 30 35:AD=I:GOSUB 10
0295B0: 31 37 0D 0A 31 30 31 35 20 52 45 4D 0D 0A 31 30 17..1015 REM..10
0295C0: 31 36 20 4E 45 58 54 3A 47 4F 54 4F 20 31 30 32 16 NEXT:GOTO 102
0295D0: 30 0D 0A 31 30 31 37 20 46 4F 52 20 4A 3D 31 33 0..1017 FOR J=13
0295E0: 20 54 4F 20 32 30 3A 54 45 4D 50 24 3D 56 24 28 TO 20:TEMP$=V$(
0295F0: 4A 29 3A 47 4F 53 55 42 20 36 34 39 30 30 3A 49 J):GOSUB 64900:I
029600: C3 33 04 20 20 20 43 6F 70 79 72 69 67 68 74 20 .3. Copyright
029610: 28 63 29 20 31 39 37 39 2C 20 44 69 67 69 74 61 (c) 1979, Digita
029620: 6C 20 52 65 73 65 61 72 63 68 3F 3F 3F 3F 3F 3F l Research??????
029630: 3F 3F 3F 3F 3F 3F 00 00 00 43 4F 4E 3A 52 44 52 ??????...CON:RDR
029640: 3A 50 55 4E 3A 4C 53 54 3A 44 45 56 3A 56 41 4C :PUN:LST:DEV:VAL
029650: 3A 55 53 52 3A 44 53 4B 3A 54 54 59 3A 43 52 54 :USR:DSK:TTY:CRT
029660: 3A 42 41 54 3A 55 43 31 3A 54 54 59 3A 50 54 52 :BAT:UC1:TTY:PTR
029670: 3A 55 52 31 3A 55 52 32 3A 54 54 59 3A 50 54 50 :UR1:UR2:TTY:PTP
029680: 3A 55 50 31 3A 55 50 32 3A 54 54 59 3A 43 52 54 :UP1:UP2:TTY:CRT
029690: 3A 4C 50 54 3A 55 4C 31 3A 52 2F 4F 00 52 2F 57 :LPT:UL1:R/O.R/W
0296A0: 00 53 59 53 00 44 49 52 00 52 2F 4F 20 52 2F 57 .SYS.DIR.R/O R/W
0296B0: 20 53 59 53 20 44 49 52 20 2A 2A 20 41 62 6F 72 SYS DIR ** Abor
0296C0: 74 65 64 20 2A 2A 00 41 63 74 69 76 65 20 55 73 ted **.Active Us
0296D0: 65 72 20 3A 00 41 63 74 69 76 65 20 46 69 6C 65 er :.Active File
0296E0: 73 3A 00 20 20 20 20 00 20 44 72 69 76 65 20 43 s:. . Drive C
0296F0: 68 61 72 61 63 74 65 72 69 73 74 69 63 73 00 36 haracteristics.6
029700: 35 35 33 36 3A 20 00 31 32 38 20 42 79 74 65 20 5536: .128 Byte
029710: 52 65 63 6F 72 64 20 43 61 70 61 63 69 74 79 00 Record Capacity.
029720: 4B 69 6C 6F 62 79 74 65 20 44 72 69 76 65 20 20 Kilobyte Drive
029730: 43 61 70 61 63 69 74 79 00 33 32 20 20 42 79 74 Capacity.32 Byt
029740: 65 20 44 69 72 65 63 74 6F 72 79 20 45 6E 74 72 e Directory Entr
029750: 69 65 73 00 43 68 65 63 6B 65 64 20 20 44 69 72 ies.Checked Dir
029760: 65 63 74 6F 72 79 20 45 6E 74 72 69 65 73 00 52 ectory Entries.R
029770: 65 63 6F 72 64 73 2F 20 45 78 74 65 6E 74 00 52 ecords/ Extent.R
029780: 65 63 6F 72 64 73 2F 20 42 6C 6F 63 6B 00 53 65 ecords/ Block.Se
029790: 63 74 6F 72 73 2F 20 54 72 61 63 6B 00 52 65 73 ctors/ Track.Res
0297A0: 65 72 76 65 64 20 54 72 61 63 6B 73 00 20 69 73 erved Tracks. is
0297B0: 20 00 54 65 6D 70 20 52 2F 4F 20 44 69 73 6B 3A .Temp R/O Disk:
0297C0: 20 64 3A 3D 52 2F 4F 00 53 65 74 20 49 6E 64 69 d:=R/O.Set Indi
0297D0: 63 61 74 6F 72 3A 20 64 3A 66 69 6C 65 6E 61 6D cator: d:filenam
0297E0: 65 2E 74 79 70 20 24 52 2F 4F 20 24 52 2F 57 20 e.typ $R/O $R/W
0297F0: 24 53 59 53 20 24 44 49 52 00 44 69 73 6B 20 53 $SYS $DIR.Disk S
029800: 46 20 46 4C 41 47 20 54 48 45 4E 20 49 3D 4A 3A F FLAG THEN I=J:
029810: 47 4F 53 55 42 20 36 35 32 3A 6A 3D 32 31 20 0D GOSUB 652:j=21 .
029820: 0A 31 30 31 38 20 4E 45 58 54 3A 52 45 54 55 52 .1018 NEXT:RETUR
029830: 4E 20 0D 0A 31 30 32 30 20 4E 4A 3D 31 2B 28 34 N ..1020 NJ=1+(4
029840: 2D 41 50 29 3A 4B 28 4E 53 2C 33 29 3D 43 54 3A -AP):K(NS,3)=CT:
029850: 4B 28 4E 53 2C 34 29 3D 43 52 3A 4E 51 3D 2D 31 K(NS,4)=CR:NQ=-1
029860: 3A 46 4F 52 20 49 3D 32 31 20 54 4F 20 32 36 3A :FOR I=21 TO 26:
029870: 58 28 49 29 3D 30 3A 56 24 28 49 29 3D 22 22 3A X(I)=0:V$(I)="":
029880: 4E 45 58 54 3A 47 4F 53 55 42 20 33 33 32 3A 47 NEXT:GOSUB 332:G
029890: 4F 53 55 42 20 38 39 0D 0A 31 30 32 31 20 70 74 OSUB 89..1021 pt
0298A0: 3D 31 3A 43 48 41 49 4E 20 4D 45 52 47 45 20 22 =1:CHAIN MERGE "
0298B0: 55 22 2C 31 30 32 35 0D 0A 31 30 32 32 20 52 45 U",1025..1022 RE
0298C0: 4D 0D 0A 31 30 32 33 20 46 4F 52 20 49 3D 31 20 M..1023 FOR I=1
0298D0: 54 4F 20 4E 4F 3A 47 4F 53 55 42 20 39 38 3A 49 TO NO:GOSUB 98:I
0298E0: 24 28 49 2B 35 29 3D 4D 49 44 24 28 48 24 2C 52 $(I+5)=MID$(H$,R
0298F0: 43 2C 31 29 2B 4D 49 44 24 28 4D 24 2C 52 42 2C C,1)+MID$(M$,RB,
029900: 31 29 2B 4D 49 44 24 28 48 24 2C 52 44 2C 31 29 1)+MID$(H$,RD,1)
029910: 2B 45 24 28 52 41 29 3A 59 28 31 2C 49 2B 35 29 +E$(RA):Y(1,I+5)
029920: 3D 35 30 3A 59 28 32 2C 49 2B 35 29 3D 49 4E 54 =50:Y(2,I+5)=INT
029930: 20 28 52 4E 44 2A 36 30 29 3A 59 28 33 2C 49 2B (RND*60):Y(3,I+
029940: 35 29 3D 33 35 2B 49 4E 54 20 28 52 4E 44 2A 36 5)=35+INT (RND*6
029950: 35 29 3A 59 28 34 2C 49 2B 35 29 3D 31 2B 49 4E 5):Y(4,I+5)=1+IN
029960: 54 20 28 52 4E 44 2A 34 29 3A 59 28 35 2C 49 2B T (RND*4):Y(5,I+
029970: 35 29 3D 31 36 2B 49 4E 54 20 28 52 4E 44 2A 32 5)=16+INT (RND*2
029980: 29 0D 0A 31 30 32 34 20 59 28 36 2C 49 2B 35 29 )..1024 Y(6,I+5)
029990: 3D 2D 33 2B 49 4E 54 20 28 52 4E 44 2A 31 37 29 =-3+INT (RND*17)
0299A0: 3A 59 28 36 2C 49 2B 35 29 3D 59 28 36 2C 49 2B :Y(6,I+5)=Y(6,I+
0299B0: 35 29 2B 28 59 28 36 2C 49 2B 35 29 3C 30 29 2A 5)+(Y(6,I+5)<0)*
0299C0: 41 42 53 28 59 28 36 2C 49 2B 35 29 29 2D 28 59 ABS(Y(6,I+5))-(Y
0299D0: 28 36 2C 49 2B 35 29 3E 39 29 2A 28 59 28 36 2C (6,I+5)>9)*(Y(6,
0299E0: 49 2B 35 29 2D 39 29 3A 4E 45 58 54 3A 52 45 54 I+5)-9):NEXT:RET
0299F0: 55 52 4E 0D 0A 31 30 32 35 20 47 4F 53 55 42 20 URN..1025 GOSUB
029A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
029A10: 23 00 01 00 02 09 4E E5 23 00 41 02 00 00 00 02 #.....N.#.A.....
029A20: 23 00 46 02 00 00 00 02 23 00 42 02 00 00 00 02 #.F.....#.B.....
029A30: 23 00 47 02 00 00 00 02 23 00 43 02 00 00 00 02 #.G.....#.C.....
029A40: 23 00 48 02 00 00 00 02 23 00 44 02 00 00 00 02 #.H.....#.D.....
029A50: 23 00 49 02 00 00 00 02 23 00 45 02 00 00 00 02 #.I.....#.E.....
029A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029B00: 74 61 74 75 73 20 20 3A 20 44 53 4B 3A 20 64 3A tatus : DSK: d:
029B10: 44 53 4B 3A 00 55 73 65 72 20 53 74 61 74 75 73 DSK:.User Status
029B20: 20 20 3A 20 55 53 52 3A 00 49 6F 62 79 74 65 20 : USR:.Iobyte
029B30: 41 73 73 69 67 6E 3A 00 20 3D 00 42 61 64 20 44 Assign:. =.Bad D
029B40: 65 6C 69 6D 69 74 65 72 00 49 6E 76 61 6C 69 64 elimiter.Invalid
029B50: 20 41 73 73 69 67 6E 6D 65 6E 74 00 42 61 64 20 Assignment.Bad
029B60: 44 65 6C 69 6D 69 74 65 72 00 3A 20 00 42 79 74 Delimiter.: .Byt
029B70: 65 73 20 52 65 6D 61 69 6E 69 6E 67 20 4F 6E 20 es Remaining On
029B80: 00 52 2F 00 2C 20 53 70 61 63 65 3A 20 00 49 6E .R/., Space: .In
029B90: 76 61 6C 69 64 20 46 69 6C 65 20 49 6E 64 69 63 valid File Indic
029BA0: 61 74 6F 72 00 2A 2A 20 54 6F 6F 20 4D 61 6E 79 ator.** Too Many
029BB0: 20 46 69 6C 65 73 20 2A 2A 00 46 69 6C 65 20 4E Files **.File N
029BC0: 6F 74 20 46 6F 75 6E 64 00 20 53 69 7A 65 20 00 ot Found. Size .
029BD0: 20 52 65 63 73 20 20 42 79 74 65 73 20 20 45 78 Recs Bytes Ex
029BE0: 74 20 41 63 63 00 36 35 35 33 36 00 20 73 65 74 t Acc.65536. set
029BF0: 20 74 6F 20 00 52 2F 4F 20 49 6E 76 61 6C 69 64 to .R/O Invalid
029C00: 20 44 69 73 6B 20 41 73 73 69 67 6E 6D 65 6E 74 Disk Assignment
029C10: 00 57 72 6F 6E 67 20 43 50 2F 4D 20 56 65 72 73 .Wrong CP/M Vers
029C20: 69 6F 6E 20 28 52 65 71 75 69 72 65 73 20 32 2E ion (Requires 2.
029C30: 30 29 00 21 00 00 39 22 32 15 21 54 15 F9 CD ED 0).!..9"2.!T....
029C40: 04 FE 20 D2 4F 04 01 11 04 CD D2 04 C3 8B 04 21 .. .O..........!
029C50: 5D 15 36 01 3A 5C 00 D6 00 D6 01 9F F5 3A 5D 00 ].6.:\.......:].
029C60: D6 20 D6 01 9F C1 48 A1 1F D2 72 04 CD 33 0D C3 . ....H...r..3..
029C70: 8B 04 3A 5C 00 FE 00 CA 80 04 CD 02 14 C3 8B 04 ..:\............
029C80: CD 87 0A 2F 1F D2 8B 04 CD BA 0D 2A 32 15 F9 C9 .../.......*2...
029C90: 21 22 15 71 2A 22 15 26 00 EB 0E 02 CD 4C 14 C9 !".q*".&.....L..
029CA0: 0E 0D CD 90 04 0E 0A CD 90 04 C9 0E 20 CD 90 04 ............ ...
029CB0: C9 21 24 15 70 2B 71 2A 23 15 7E FE 00 CA D1 04 .!$.p+q*#.~.....
029CC0: 2A 23 15 4E CD 90 04 2A 23 15 23 22 23 15 C3 B7 *#.N...*#.#"#...
029CD0: 04 C9 21 26 15 70 2B 71 CD A0 04 2A 25 15 44 4D ..!&.p+q...*%.DM
029CE0: CD B1 04 C9 11 00 00 0E 0B CD 4F 14 C9 11 00 00 ..........O.....
029CF0: 0E 0C CD 4F 14 C9 21 28 15 71 2A 28 15 26 00 EB ...O..!(.q*(.&..
029D00: 04 CD A0 04 C9 CD 51 05 22 20 15 CD 38 05 C6 41 ......Q." ..8..A
029D10: 4F CD 90 04 01 6A 03 CD B1 04 C9 0E 01 CD B7 07 O....j..........
029D20: 44 4D CD 8F 0C C9 01 6D 03 CD D2 04 CD 05 0D CD DM.....m........
029D30: 1B 0D C9 CD 5A 05 22 B3 15 CD 6C 05 22 B5 15 21 ....Z."...l."..!
029D40: B7 15 36 00 3E 00 11 B3 15 CD EA 14 B5 CA A5 0D ..6.>...........
029D50: 2A B3 15 7D 1F D2 86 0D 2A B7 15 4D CD CC 05 CD *..}....*..M....
029D60: 05 0D 01 81 03 CD B1 04 2A B5 15 7D 1F D2 78 0D ........*..}..x.
029D70: 0E 4F CD 90 04 C3 7D 0D 0E 57 CD 90 04 01 84 03 .O....}..W......
029D80: CD B1 04 CD 1B 0D 0E 01 21 B3 15 CD C3 14 EB 2B ........!......+
029D90: 73 23 72 0E 01 21 B5 15 CD C3 14 EB 2B 73 23 72 s#r..!......+s#r
029DA0: 23 34 C3 44 0D CD A0 04 C9 3A 5C 00 FE 00 CA B9 #4.D.....:\.....
029DB0: 0D 3A 5C 00 3D 4F CD CC 05 C9 CD B3 05 CD A9 0D .:\.=O..........
029DC0: 21 1D 15 36 00 21 CC 29 36 FF CD 6C 13 1F D2 E4 !..6.!.)6..l....
029DD0: 0D 3A CC 29 FE 00 C2 DA 0D C9 3A CC 29 3D 32 CC .:.)......:.)=2.
029DE0: 29 C3 F0 0D 3A 5D 00 FE 20 C2 F0 0D CD 26 0D C9 )...:].. ....&..
029DF0: 21 00 00 22 B8 15 7D 32 5C 00 21 68 00 36 3F 21 !.."..}2\.!h.6?!
029E00: 6A 00 36 3F 01 5C 00 CD 19 05 3A 27 15 FE FF CA j.6?.\....:'....
029E10: 43 10 3A 27 15 E6 03 87 87 87 87 87 C6 80 6F 26 C.:'..........o&
029E20: 00 22 BA 29 21 CB 29 36 00 21 00 00 22 BE 29 3A .".)!.)6.!..".):
029E30: CB 29 2F 01 B8 15 11 BE 29 F5 CD DD 14 9F C1 48 .)/.....)......H
029E40: A1 1F D2 98 0E CD 5D 13 21 C6 29 36 01 3E 0B 21 ......].!.)6.>.!
029E50: C6 29 BE DA 8E 0E 2A C6 29 26 00 EB 2A BA 29 19 .)....*.)&..*.).
029E60: E5 2A C6 29 26 00 EB 2A BC 29 19 C1 0A BE CA 79 .*.)&..*.).....y
029E70: 0E 21 C6 29 36 0B C3 84 0E 3A C6 29 D6 0B D6 01 .!.)6....:.)....
029E80: 9F 32 CB 29 3A C6 29 3C 32 C6 29 C2 4D 0E 2A BE .2.):.)<2.).M.*.
029E90: 29 23 22 BE 29 C3 2F 0E 3A CB 29 1F D2 A9 0E 2A )#".)./.:.)....*
029EA0: BE 29 2B 22 BE 29 C3 60 0F 2A B8 15 22 BE 29 23 .)+".).`.*..".)#
029EB0: 22 B8 15 CD 5D 13 11 00 02 21 B8 15 CD F8 14 9F "...]....!......
029EC0: 11 10 00 2A BC 29 19 EB 21 06 00 F5 CD F8 14 9F ...*.)..!.......
029ED0: 2F C1 48 B1 1F D2 ED 0E 01 A5 03 CD D2 04 21 00 /.H...........!.
029EE0: 00 22 BE 29 21 01 00 22 B8 15 CD 5D 13 2A BE 29 .".)!.."...].*.)
029EF0: 01 BA 15 29 09 E5 2A BE 29 EB E1 73 23 72 21 C6 ...)..*.)..s#r!.
029F00: 0E 0E CD 4C 14 C9 21 2A 15 70 2B 71 2A 29 15 EB ...L..!*.p+q*)..
029F10: 0E 0F CD 4F 14 32 27 15 C9 21 2C 15 70 2B 71 2A ...O.2'..!,.p+q*
029F20: 2B 15 EB 0E 11 CD 4F 14 32 27 15 C9 11 00 00 0E +.....O.2'......
029F30: 12 CD 4F 14 32 27 15 C9 11 00 00 0E 19 CD 4F 14 ..O.2'........O.
029F40: C9 21 2E 15 70 2B 71 2A 2D 15 EB 0E 1A CD 4C 14 .!..p+q*-.....L.
029F50: C9 11 00 00 0E 1B CD 52 14 C9 11 00 00 0E 18 CD .......R........
029F60: 52 14 C9 11 00 00 0E 1C CD 4C 14 C9 11 00 00 0E R........L......
029F70: 1D CD 52 14 C9 11 5C 00 0E 1E CD 4C 14 C9 11 00 ..R...\....L....
029F80: 00 0E 1F CD 52 14 22 1E 15 C9 11 FF 00 0E 20 CD ....R."....... .
029F90: 4F 14 C9 21 2F 15 71 2A 2F 15 26 00 EB 0E 20 CD O..!/.q*/.&... .
029FA0: 4C 14 C9 21 31 15 70 2B 71 2A 30 15 EB 0E 23 CD L..!1.p+q*0...#.
029FB0: 4C 14 C9 CD 7E 05 2A 1E 15 23 23 4E 21 01 00 CD L...~.*..##N!...
029FC0: BD 14 11 80 00 CD 9E 14 22 54 15 C9 21 56 15 71 ........"T..!V.q
029FD0: 2A 56 15 4D CD F6 04 CD B3 05 C9 21 58 15 70 2B *V.M.......!X.p+
029FE0: 71 0E 03 21 57 15 CD C3 14 EB 2A 20 15 19 3E 07 q..!W.....* ..>.
029FF0: 11 57 15 E5 CD 72 14 23 4D E1 CD B2 14 C9 21 5F .W...r.#M.....!_
02A000: 15 70 2B 71 21 60 15 36 00 3E 03 21 60 15 BE DA .p+q!`.6.>.!`...
02A010: 36 06 2A 60 15 26 00 EB 2A 5E 15 19 E5 2A 60 15 6.*`.&..*^...*`.
02A020: 26 00 01 59 15 09 D1 1A BE CA 2F 06 3E 00 C9 21 &..Y....../.>..!
02A030: 60 15 34 C2 09 06 3E 01 C9 2A 5D 15 26 00 01 80 `.4...>..*].&...
02A040: 00 09 7E FE 20 C2 4F 06 21 5D 15 34 C3 39 06 21 ..~. .O.!].4.9.!
02A050: 61 15 36 00 3A 61 15 FE 04 D2 E6 06 2A 5D 15 26 a.6.:a......*].&
02A060: 00 01 80 00 09 7E 32 62 15 4F 3E 01 B9 D2 7A 06 .....~2b.O>...z.
02A070: 2A 62 15 4D CD EB 06 C3 7F 06 0E 20 CD EB 06 3E *b.M....... ...>
02A080: 01 21 62 15 96 9F 2F F5 7E D6 2C D6 01 9F C1 48 .!b.../.~.,....H
02A090: B1 F5 7E D6 3A D6 01 9F C1 48 B1 F5 7E D6 2A D6 ..~.:....H..~.*.
02A0A0: 01 9F C1 48 B1 F5 7E D6 2E D6 01 9F C1 48 B1 F5 ...H..~......H..
02A0B0: 7E D6 3E D6 01 9F C1 48 B1 F5 7E D6 3C D6 01 9F ~.>....H..~.<...
02A0C0: C1 48 B1 F5 7E D6 3D D6 01 9F C1 48 B1 1F D2 DF .H..~.=....H....
02A0D0: 06 2A 5D 15 26 00 01 80 00 09 36 01 C3 E3 06 21 .*].&.....6....!
02A0E0: 5D 15 34 C3 54 06 21 5D 15 34 C9 21 63 15 71 2A ].4.T.!].4.!c.q*
02A0F0: 61 15 26 00 01 59 15 09 3A 63 15 77 21 61 15 34 a.&..Y..:c.w!a.4
02A100: 29 36 00 3E 0B 21 C6 29 BE DA 2E 0F 2A C6 29 26 )6.>.!.)....*.)&
02A110: 00 EB 2A BA 29 19 E5 2A C6 29 26 00 EB 2A BC 29 ..*.)..*.)&..*.)
02A120: 19 C1 0A 77 3A C6 29 3C 32 C6 29 C2 03 0F 2A BE ...w:.)<2.)...*.
02A130: 29 01 BA 19 29 09 3E 00 77 23 36 00 2A BE 29 01 )...).>.w#6.*.).
02A140: BA 1D 29 09 77 23 36 00 2A BE 29 01 BA 21 29 09 ..).w#6.*.)..!).
02A150: 77 23 36 00 2A BE 29 01 BA 25 29 09 77 23 36 00 w#6.*.)..%).w#6.
02A160: 2A BE 29 01 BA 19 29 09 4E 23 46 03 2A BE 29 C5 *.)...).N#F.*.).
02A170: 01 BA 19 29 09 C1 71 23 70 2A BE 29 01 BA 25 29 ...)..q#p*.)..%)
02A180: 09 01 0F 00 E5 2A BA 29 09 7E D1 CD 65 14 01 0C .....*.).~..e...
02A190: 00 E5 2A BA 29 09 01 04 00 E5 2A 1E 15 09 7E E1 ..*.).....*...~.
02A1A0: A6 6F 26 00 11 80 00 CD 9E 14 C1 09 E5 2A BE 29 .o&..........*.)
02A1B0: 01 BA 25 29 09 C1 71 23 70 21 C7 29 36 01 01 05 ..%)..q#p!.)6...
02A1C0: 00 2A 1E 15 09 3E FF CD F5 14 D2 D2 0F 21 C7 29 .*...>.......!.)
02A1D0: 36 02 21 C6 29 36 10 3E 1F 21 C6 29 BE DA 3D 10 6.!.)6.>.!.)..=.
02A1E0: C3 F1 0F 3A C7 29 21 C6 29 86 77 D2 D7 0F C3 3D ...:.)!.).w....=
02A1F0: 10 2A C6 29 26 00 EB 2A BA 29 19 7E 32 C8 29 3A .*.)&..*.).~2.):
02A200: C7 29 FE 02 C2 1C 10 2A C6 29 26 00 01 01 00 09 .).....*.)&.....
02A210: EB 2A BA 29 19 3A C8 29 B6 32 C8 29 3A C8 29 FE .*.).:.).2.):.).
02A220: 00 CA 3A 10 2A BE 29 01 BA 21 29 09 E5 2A BE 29 ..:.*.)..!)..*.)
02A230: 01 BA 1D 29 09 EB C1 CD 73 07 C3 E3 0F CD 2C 05 ...)....s.....,.
02A240: C3 0A 0E 3E 00 11 B8 15 CD EA 14 B5 C2 58 10 01 ...>.........X..
02A250: BA 03 CD D2 04 C3 5C 13 3A CC 29 FE FF C2 93 12 ......\.:.).....
02A260: 3E 01 21 B8 15 CD F5 14 D2 64 11 21 01 00 22 C0 >.!......d.!..".
02A270: 29 3E 00 21 C0 29 CD F5 14 D2 64 11 21 00 00 22 )>.!.)....d.!.."
02A280: C0 29 21 00 00 22 C4 29 2A B8 15 2B 2B EB 21 C4 .)!..".)*..++.!.
02A290: 29 CD F8 14 DA 61 11 2A C4 29 01 BC 15 29 09 5E )....a.*.)...).^
02A2A0: 23 56 EB 22 BE 29 CD 5D 13 2A BC 29 22 BA 29 2A #V.".).].*.)".)*
02A2B0: C4 29 01 BA 15 29 09 5E 23 56 EB 22 BE 29 CD 5D .)...).^#V.".).]
02A2C0: 13 21 C6 29 36 01 3E 0B 21 C6 29 BE DA 54 11 2A .!.)6.>.!.)..T.*
02A2D0: C6 29 26 00 EB 2A BA 29 19 7E 32 C9 29 E5 2A C6 .)&..*.).~2.).*.
02A2E0: 29 26 00 EB 2A BC 29 19 7E 32 CA 29 4F D1 1A B9 )&..*.).~2.)O...
02A2F0: D2 3B 11 2A C4 29 01 BA 15 29 09 5E 23 56 EB 22 .;.*.)...).^#V."
02A300: C9 21 67 15 72 2B 73 2B 70 2B 71 21 68 15 36 01 .!g.r+s+p+q!h.6.
02A310: 3E 00 11 66 15 CD EA 14 B5 CA 72 07 2A 64 15 EB >..f......r.*d..
02A320: 2A 66 15 CD 7F 14 21 69 15 73 2A 64 15 EB CD 81 *f....!i.s*d....
02A330: 14 22 64 15 50 59 21 0A 00 CD 7F 14 EB 22 66 15 ."d.PY!......"f.
02A340: 3E 00 CD D3 14 B5 C6 FF 9F 21 68 15 A6 23 F5 7E >........!h..#.~
02A350: 93 D6 01 9F C1 48 A1 1F D2 61 07 CD AB 04 C3 6F .....H...a.....o
02A360: 07 21 68 15 36 00 3A 69 15 C6 30 4F CD 90 04 C3 .!h.6.:i..0O....
02A370: 10 07 C9 21 6D 15 72 2B 73 2B 70 2B 71 2A 6C 15 ...!m.r+s+p+q*l.
02A380: 11 54 15 E5 CD 5A 14 EB E1 73 23 72 2A 6C 15 EB .T...Z...s#r*l..
02A390: 01 00 04 CD E2 14 DA B6 07 2A 6C 15 EB 01 00 04 .........*l.....
02A3A0: CD E2 14 EB 2B 73 23 72 2A 6A 15 4E 23 46 03 2B ....+s#r*j.N#F.+
02A3B0: 71 23 70 C3 8C 07 C9 21 6E 15 71 21 00 00 22 6F q#p....!n.q!.."o
02A3C0: 15 22 71 15 7D 32 75 15 6F 26 00 22 73 15 01 05 ."q.}2u.o&."s...
02A3D0: 00 2A 1E 15 09 EB 01 73 15 CD DD 14 DA 0E 08 3A .*.....s.......:
02A3E0: 6E 15 1F D2 F1 07 2A 73 15 44 4D CD DB 05 32 75 n.....*s.DM...2u
02A3F0: 15 3A 75 15 1F DA 01 08 11 71 15 01 6F 15 CD 73 .:u......q..o..s
02A400: 07 11 01 00 2A 73 15 19 22 73 15 D2 CE 07 2A 6F ....*s.."s....*o
02A410: 15 C9 01 B9 01 CD D2 04 C9 01 C7 01 CD D2 04 CD ................
02A420: 8A 05 4F 06 00 11 0A 00 CD 01 07 01 D5 01 CD D2 ..O.............
02A430: 04 21 76 15 36 00 3E 1F 21 76 15 BE DA 51 08 2A .!v.6.>.!v...Q.*
02A440: 76 15 26 00 01 77 15 09 36 00 60 69 2B 34 C2 36 v.&..w..6.`i+4.6
02A450: 08 01 CF 29 CD 41 05 01 2A 01 CD 19 05 3A 27 15 ...).A..*....:'.
02A460: FE FF CA 93 08 3A 27 15 E6 03 87 87 87 87 87 4F .....:'........O
02A470: 06 00 21 CF 29 09 7E 32 76 15 FE E5 CA 8D 08 3A ..!.).~2v......:
02A480: 76 15 E6 1F 4F 06 00 21 77 15 09 36 01 CD 2C 05 v...O..!w..6..,.
02A490: C3 5D 08 21 76 15 36 00 3E 1F 21 76 15 BE DA C2 .].!v.6.>.!v....
02A4A0: 08 2A 76 15 26 00 01 77 15 09 7E 1F D2 BB 08 2A .*v.&..w..~....*
02A4B0: 76 15 4D 06 00 11 0A 00 CD 01 07 21 76 15 34 C2 v.M........!v.4.
02A4C0: 98 08 C9 01 E3 01 CD D2 04 CD 38 05 C6 41 4F CD ..........8..AO.
02A4D0: 90 04 0E 3A CD 90 04 01 E8 01 CD B1 04 2A 1E 15 ...:.........*..
02A4E0: 23 23 4E 21 01 00 CD BD 14 22 97 15 01 05 00 2A ##N!.....".....*
02A4F0: 1E 15 09 4E 23 46 03 2A 97 15 EB CD A0 14 22 99 ...N#F.*......".
02A500: 00 53 43 52 44 20 20 20 20 42 49 4E 00 00 00 00 .SCRD BIN....
02A510: 00 00 02 00 00 0A A5 00 64 00 00 00 00 00 00 00 ........d.......
02A520: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02A530: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02A540: 64 00 00 FE 03 00 CD 44 A5 AF CD B4 BB CD 84 BB d......D........
02A550: 21 01 01 E5 CD 75 BB CD 60 BB 38 02 3E 20 CD 3C !....u..`.8.> .<
02A560: A5 E1 24 7C FE 29 38 EB 26 01 7D 2C FE 19 30 05 ..$|.)8.&.},..0.
02A570: CD 5C A5 18 DE 3E 0C 4F CD 2B BD D8 79 18 F9 3E .\...>.O.+..y..>
02A580: 00 CD 44 A5 AF CD B4 BB CD 84 BB 21 01 01 E5 CD ..D........!....
02A590: 75 BB CD 60 BB 38 02 3E 20 CD 3C A5 E1 24 7C FE u..`.8.> .<..$|.
02A5A0: 29 38 EB 26 01 7D 2C FE 19 30 05 CD 5C A5 18 DE )8.&.},..0..\...
02A5B0: 3E 0C 4F CD 2B BD D8 79 18 F9 3E 1B CD 3C A5 3E >.O.+..y..>..<.>
02A5C0: 40 CD 3C A5 3E 1B CD 3C A5 3E 6C CD 3C A5 3E 14 @.<.>..<.>l.<.>.
02A5D0: 18 E0 E5 3E 0D CD 3C A5 3E 0A CD 3C A5 E1 C9 00 ...>..<.>..<....
02A5E0: 00 00 00 00 1A 63 61 6C 6C 09 23 62 62 36 30 0D .....call.#bb60.
02A5F0: 0A 6A 72 09 63 2C 63 6F 70 79 31 0D 0A 6C 64 09 .jr.c,copy1..ld.
02A600: 00 56 20 20 20 20 20 20 20 42 41 53 00 00 00 0F .V BAS....
02A610: 84 85 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02A620: 00 57 20 20 20 20 20 20 20 42 41 53 00 00 00 2C .W BAS...,
02A630: 86 87 88 89 8A 8B 00 00 00 00 00 00 00 00 00 00 ................
02A640: 00 57 31 20 20 20 20 20 20 42 41 53 00 00 00 1B .W1 BAS....
02A650: 8C 8D 8E 8F 00 00 00 00 00 00 00 00 00 00 00 00 ................
02A660: 00 58 20 20 20 20 20 20 20 42 41 53 00 00 00 07 .X BAS....
02A670: 90 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02A680: 00 59 20 20 20 20 20 20 20 42 41 53 00 00 00 25 .Y BAS...%
02A690: 91 92 93 94 95 00 00 00 00 00 00 00 00 00 00 00 ................
02A6A0: 00 59 31 20 20 20 20 20 20 42 41 53 00 00 00 10 .Y1 BAS....
02A6B0: 96 97 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02A6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A700: 15 3E 00 CD D3 14 B5 D6 01 9F 21 97 15 F5 CD F8 .>........!.....
02A710: 14 B5 C6 FF 9F C1 48 A1 1F D2 25 09 01 FF 01 CD ......H...%.....
02A720: D2 04 C3 2D 09 2A 99 15 44 4D CD C0 09 01 07 02 ...-.*..DM......
02A730: CD B1 04 0E 00 CD B7 07 44 4D CD C0 09 01 20 02 ........DM.... .
02A740: CD B1 04 01 07 00 2A 1E 15 09 4E 23 46 03 CD C0 ......*...N#F...
02A750: 09 01 39 02 CD B1 04 01 0B 00 2A 1E 15 09 5E 23 ..9.......*...^#
02A760: 56 EB 29 29 44 4D CD C0 09 01 54 02 CD B1 04 01 V.))DM....T.....
02A770: 04 00 2A 1E 15 09 7E 3C 6F 26 00 11 80 00 CD 9E ..*...~<o&......
02A780: 14 44 4D CD C0 09 01 6F 02 CD B1 04 2A 97 15 44 .DM....o....*..D
02A790: 4D CD C0 09 01 7F 02 CD B1 04 2A 1E 15 4E 23 46 M.........*..N#F
02A7A0: CD C0 09 01 8E 02 CD B1 04 01 0D 00 2A 1E 15 09 ............*...
02A7B0: 4E 23 46 CD C0 09 01 9D 02 CD B1 04 CD A0 04 C9 N#F.............
02A7C0: 21 9C 15 70 2B 71 CD A0 04 2A 9B 15 44 4D 11 10 !..p+q...*..DM..
02A7D0: 27 CD 01 07 0E 3A CD 90 04 CD AB 04 C9 CD 5A 05 '....:........Z.
02A7E0: 22 9D 15 21 9F 15 36 00 3E 00 11 9D 15 CD EA 14 "..!..6.>.......
02A7F0: B5 CA 18 0A 2A 9D 15 7D 1F D2 06 0A 2A 9F 15 4D ....*..}....*..M
02A800: CD CC 05 CD C3 08 0E 01 21 9D 15 CD C3 14 EB 2B ........!......+
02A810: 73 23 72 23 34 C3 E8 09 C9 21 A2 15 73 2B 70 2B s#r#4....!..s+p+
02A820: 71 21 A4 15 36 00 21 A6 15 36 00 36 01 3A A2 15 q!..6.!..6.6.:..
02A830: 21 A6 15 BE DA 84 0A 21 A5 15 36 01 21 A3 15 36 !......!..6.!£.6
02A840: 00 3E 03 21 A3 15 BE DA 72 0A 2A A4 15 26 00 EB .>.!£...r.*..&..
02A850: 2A A0 15 19 E5 2A A3 15 26 00 01 59 15 09 D1 1A *....*£.&..Y....
02A860: BE CA 69 0A 21 A5 15 36 00 21 A4 15 34 2B 34 C2 ..i.!..6.!..4+4.
02A870: 41 0A 3A A5 15 1F D2 7D 0A 3A A6 15 C9 21 A6 15 A.:....}.:...!..
02A880: 34 C2 2D 0A 3E 00 C9 21 AA 15 36 00 CD 39 06 1E 4.-.>..!..6..9..
02A890: 08 01 39 01 CD 19 0A 32 A7 15 FE 00 C2 A8 0A 3A ..9....2.......:
02A8A0: AA 15 D6 00 C6 FF 9F C9 21 AA 15 34 3A A7 15 FE ........!..4:...
02A8B0: 05 C2 18 0B 3A 03 00 32 A9 15 21 A8 15 36 00 2B ....:..2..!..6.+
02A8C0: 36 00 3E 03 21 A7 15 BE DA 15 0B 3A A7 15 87 87 6.>.!......:....
02A8D0: 4F 06 00 21 39 01 09 44 4D CD 69 0C 01 AD 02 CD O..!9..DM.i.....
02A8E0: B1 04 3A A9 15 E6 03 87 87 21 A8 15 86 4F 06 00 ..:......!...O..
02A8F0: 21 59 01 09 44 4D CD 69 0C 3A A8 15 C6 10 32 A8 !Y..DM.i.:....2.
02A900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB00: 15 3A A9 15 E6 FE 1F 1F 32 A9 15 CD A0 04 21 A7 .:......2.....!.
02AB10: 15 34 C2 C2 0A C3 46 0C 3A A7 15 FE 06 C2 AE 0B .4....F.:.......
02AB20: 01 B2 02 CD D2 04 01 C8 02 CD D2 04 01 FA 02 CD ................
02AB30: D2 04 01 15 03 CD D2 04 01 29 03 CD D2 04 21 A7 .........)....!.
02AB40: 15 36 00 3E 03 21 A7 15 BE DA AB 0B CD A0 04 3A .6.>.!.........:
02AB50: A7 15 87 87 4F 06 00 21 39 01 09 44 4D CD 69 0C ....O..!9..DM.i.
02AB60: 01 38 03 CD B1 04 21 A8 15 36 00 3E 0C 21 A8 15 .8....!..6.>.!..
02AB70: BE DA A4 0B C3 85 0B 3A A8 15 C6 04 32 A8 15 D2 .......:....2...
02AB80: 6B 0B C3 A4 0B 0E 20 CD 90 04 3A A7 15 87 87 87 k..... ...:.....
02AB90: 87 21 A8 15 86 4F 06 00 21 59 01 09 44 4D CD 69 .!...O..!Y..DM.i
02ABA0: 0C C3 77 0B 21 A7 15 34 C2 43 0B C3 46 0C 3A A7 ..w.!..4.C..F.:.
02ABB0: 15 FE 07 C2 BF 0B CD 19 08 3E 01 C9 C3 46 0C 3A .........>...F.:
02ABC0: A7 15 FE 08 C2 CD 0B CD DD 09 C3 46 0C 3A A7 15 ...........F.:..
02ABD0: 3D 32 A7 15 87 87 87 87 32 A8 15 CD 39 06 3A 59 =2......2...9.:Y
02ABE0: 15 FE 3D CA EF 0B 01 3B 03 CD D2 04 3E 01 C9 CD ..=....;....>...
02ABF0: 39 06 2A A8 15 26 00 01 59 01 09 44 4D 1E 04 CD 9.*..&..Y..DM...
02AC00: 19 0A 3D 32 A8 15 FE FF C2 14 0C 01 49 03 CD D2 ..=2........I...
02AC10: 04 3E 01 C9 21 A9 15 36 FC 3A A7 15 3D 32 A7 15 .>..!..6.:..=2..
02AC20: FE FF CA 38 0C 3A A9 15 07 07 32 A9 15 3A A8 15 ...8.:....2..:..
02AC30: 87 87 32 A8 15 C3 19 0C 3A A9 15 21 03 00 A6 21 ..2.....:..!...!
02AC40: A8 15 B6 32 03 00 CD 39 06 3A 59 15 FE 20 C2 54 ...2...9.:Y.. .T
02AC50: 0C 3E 01 C9 3A 59 15 FE 2C CA 65 0C 01 5C 03 CD .>..:Y..,.e..\..
02AC60: D2 04 3E 01 C9 C3 8C 0A C9 21 AC 15 70 2B 71 2A ..>......!..p+q*
02AC70: AB 15 7E FE 3A CA 89 0C 2A AB 15 4E CD 90 04 2A ..~.:...*..N...*
02AC80: AB 15 23 22 AB 15 C3 6F 0C 0E 3A CD 90 04 C9 21 ..#"...o..:....!
02AC90: AE 15 70 2B 71 21 10 27 22 B1 15 21 B0 15 36 00 ..p+q!.'"..!..6.
02ACA0: 3E 00 11 B1 15 CD EA 14 B5 CA FC 0C 2A AD 15 EB >...........*...
02ACB0: 2A B1 15 CD 7F 14 7B 32 AF 15 2A AD 15 EB CD 81 *.....{2..*.....
02ACC0: 14 22 AD 15 50 59 21 0A 00 CD 7F 14 EB 22 B1 15 ."..PY!......"..
02ACD0: 3E 00 CD D3 14 B5 D6 01 9F 21 B0 15 B6 2B F5 7E >........!...+.~
02ACE0: 93 C6 FF 9F C1 48 B1 1F D2 F9 0C 21 B0 15 36 01 .....H.....!..6.
02ACF0: 3A AF 15 C6 30 4F CD 90 04 C3 A0 0C 0E 6B CD 90 :...0O.......k..
02AD00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02AD10: 24 00 01 00 02 09 4E E5 24 00 41 02 00 00 00 02 $.....N.$.A.....
02AD20: 24 00 46 02 00 00 00 02 24 00 42 02 00 00 00 02 $.F.....$.B.....
02AD30: 24 00 47 02 00 00 00 02 24 00 43 02 00 00 00 02 $.G.....$.C.....
02AD40: 24 00 48 02 00 00 00 02 24 00 44 02 00 00 00 02 $.H.....$.D.....
02AD50: 24 00 49 02 00 00 00 02 24 00 45 02 00 00 00 02 $.I.....$.E.....
02AD60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AE00: C2 29 2A C4 29 01 BC 15 29 09 E5 2A C4 29 01 BA .)*.)...)..*.)..
02AE10: 15 29 09 E3 4E 23 46 E1 71 23 70 2A C4 29 01 BC .)..N#F.q#p*.)..
02AE20: 15 29 09 E5 2A C2 29 EB E1 73 23 72 2A C0 29 23 .)..*.)..s#r*.)#
02AE30: 22 C0 29 21 C6 29 36 0B C3 4A 11 3A CA 29 21 C9 ".)!.)6..J.:.)!.
02AE40: 29 BE D2 4A 11 21 C6 29 36 0B 3A C6 29 3C 32 C6 )..J.!.)6.:.)<2.
02AE50: 29 C2 C6 10 11 01 00 2A C4 29 19 22 C4 29 D2 88 )......*.).".)..
02AE60: 10 C3 71 10 3A 1D 15 1F D2 74 11 01 C9 03 CD D2 ..q.:....t......
02AE70: 04 C3 77 11 CD A0 04 01 D0 03 CD B1 04 21 00 00 ..w..........!..
02AE80: 22 C0 29 01 B8 15 11 C0 29 CD DD 14 D2 8D 12 2A ".).....)......*
02AE90: C0 29 01 BA 15 29 09 5E 23 56 EB 22 BE 29 CD 5D .)...).^#V.".).]
02AEA0: 13 CD A0 04 2E 10 E5 2A BC 29 44 4D 11 5C 00 E1 .......*.)DM.\..
02AEB0: 0A 12 03 13 2D C2 B0 11 21 5C 00 36 00 3A 1D 15 ....-...!\.6.:..
02AEC0: 1F D2 E9 11 01 5C 00 CD A3 05 3A 7F 00 FE 00 CA .....\..£.:.....
02AED0: DB 11 01 E6 03 CD B1 04 C3 E6 11 2A 7D 00 44 4D ...........*}.DM
02AEE0: 11 10 27 CD 01 07 CD AB 04 2A BE 29 01 BA 25 29 ..'......*.)..%)
02AEF0: 09 4E 23 46 11 10 27 CD 01 07 CD AB 04 2A BE 29 .N#F..'......*.)
02AF00: 01 BA 21 29 09 4E 23 46 11 10 27 CD 01 07 0E 6B ..!).N#F..'....k
02AF10: CD 90 04 CD AB 04 2A BE 29 01 BA 19 29 09 4E 23 ......*.)...).N#
02AF20: 46 11 E8 03 CD 01 07 CD AB 04 0E 52 CD 90 04 0E F..........R....
02AF30: 2F CD 90 04 01 09 00 2A BC 29 09 7E 07 1F D2 49 /......*.).~...I
02AF40: 12 0E 4F CD 90 04 C3 4E 12 0E 57 CD 90 04 CD AB ..O....N..W.....
02AF50: 04 CD 38 05 C6 41 4F CD 90 04 0E 3A CD 90 04 01 ..8..AO....:....
02AF60: 0A 00 2A BC 29 09 7E 07 32 C8 29 1F D2 74 12 0E ..*.).~.2.)..t..
02AF70: 28 CD 90 04 CD C0 13 3A C8 29 1F D2 83 12 0E 29 (......:.).....)
02AF80: CD 90 04 2A C0 29 23 22 C0 29 C3 83 11 CD 26 0D ...*.)#".)....&.
02AF90: C3 5C 13 21 00 00 22 C0 29 01 B8 15 11 C0 29 CD .\.!..".).....).
02AFA0: DD 14 D2 5C 13 CD E4 04 1F D2 B0 12 CD 12 08 C9 ...\............
02AFB0: 2A C0 29 22 BE 29 CD 5D 13 CD A0 04 CD C0 13 2A *.)".).].......*
02AFC0: CC 29 4D 06 00 21 17 13 09 09 5E 23 56 EB E9 01 .)M..!....^#V...
02AFD0: 09 00 2A BC 29 09 3E 80 B6 2A BC 29 09 77 C3 1F ..*.).>..*.).w..
02AFE0: 13 01 09 00 2A BC 29 09 3E 7F A6 2A BC 29 09 77 ....*.).>..*.).w
02AFF0: C3 1F 13 01 0A 00 2A BC 29 09 3E 80 B6 2A BC 29 ......*.).>..*.)
02B000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B200: 09 77 C3 1F 13 01 0A 00 2A BC 29 09 3E 7F A6 2A .w......*.).>..*
02B210: BC 29 09 77 C3 1F 13 CF 12 E1 12 F3 12 05 13 2E .).w............
02B220: 10 E5 2A BC 29 44 4D 11 5C 00 E1 0A 12 03 13 2D ..*.)DM.\......-
02B230: C2 2B 13 21 5C 00 36 00 CD 75 05 01 EC 03 CD B1 .+.!\.6..u......
02B240: 04 3A CC 29 87 87 4F 06 00 21 99 01 09 44 4D CD .:.)..O..!...DM.
02B250: B1 04 2A C0 29 23 22 C0 29 C3 99 12 C9 2A BE 29 ..*.)#".)....*.)
02B260: 29 29 29 29 11 CF 29 19 22 BC 29 C9 3A 6D 00 FE ))))..).".).:m..
02B270: 20 C2 77 13 3E 00 C9 2E 04 11 59 15 01 6E 00 0A .w.>.....Y..n..
02B280: 12 03 13 2D C2 7F 13 3A 59 15 D6 53 D6 01 9F F5 ...-...:Y..S....
02B290: 3A 5A 15 D6 20 D6 01 9F C1 48 A1 1F D2 A7 13 21 :Z.. ....H.....!
02B2A0: 1D 15 36 01 3E FE C9 1E 04 01 A9 01 CD 19 0A 32 ..6.>..........2
02B2B0: CC 29 FE 00 C2 BD 13 01 8E 03 CD D2 04 3E 01 C9 .)...........>..
02B2C0: 21 CD 29 36 01 3E 0B 21 CD 29 BE DA 01 14 2A CD !.)6.>.!.)....*.
02B2D0: 29 26 00 EB 2A BC 29 19 3E 7F A6 32 CE 29 FE 20 )&..*.).>..2.).
02B2E0: CA F7 13 3A CD 29 FE 09 C2 F0 13 0E 2E CD 90 04 ...:.)..........
02B2F0: 2A CE 29 4D CD 90 04 3A CD 29 3C 32 CD 29 C2 C5 *.)M...:.)<2.)..
02B300: 13 C9 CD 39 06 CD 39 06 3A 59 15 FE 3D C2 2F 14 ...9..9.:Y..=./.
02B310: CD 39 06 01 F5 03 CD FE 05 1F D2 26 14 CD A9 0D .9.........&....
02B320: CD 63 05 C3 2C 14 01 F9 03 CD D2 04 C3 48 14 CD .c..,........H..
02B330: A9 0D 1E 08 01 39 01 CD 19 0A FE 08 C2 45 14 CD .....9.......E..
02B340: C3 08 C3 48 14 CD BA 0D C9 C3 00 00 C3 05 00 C3 ...H............
02B350: 05 00 CD 05 00 C9 C9 C9 69 60 4E 23 46 1A 81 6F ........i`N#F..o
02B360: 13 1A 88 67 C9 EB 5F 16 00 EB 1A 85 6F 13 1A 8C ...g.._.....o...
02B370: 67 C9 EB 5F 16 00 EB 1A A5 6F 13 1A A4 67 C9 44 g.._.....o...g.D
02B380: 4D 21 00 00 3E 10 F5 29 EB 97 29 EB 8D 91 6F 7C M!..>..)..)...o|
02B390: 98 67 13 D2 98 14 09 1B F1 3D C2 86 14 C9 44 4D .g.......=....DM
02B3A0: 21 00 00 3E 10 29 EB 29 EB D2 AD 14 09 3D C2 A5 !..>.).).....=..
02B3B0: 14 C9 7E 07 0D C2 B3 14 C9 5E 23 56 EB 29 0D C2 ..~......^#V.)..
02B3C0: BD 14 C9 5E 23 56 EB 7C B7 1F 67 7D 1F 6F 0D C2 ...^#V.|..g}.o..
02B3D0: C7 14 C9 5F 16 00 7B 95 6F 7A 9C 67 C9 69 60 4E ..._..{.oz.g.i`N
02B3E0: 23 46 1A 91 6F 13 1A 98 67 C9 6F 26 00 1A 95 6F #F..o...g.o&...o
02B3F0: 13 1A 9C 67 C9 5F 16 00 7B 96 5F 7A 23 9E 57 EB ...g._..{._z#.W.
02B400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B600: C9 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02B610: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02B620: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02B630: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02B640: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02B650: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02B660: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02B670: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02B680: 12 03 13 2D C2 7F 13 3A 59 15 D6 53 D6 01 9F F5 ...-...:Y..S....
02B690: 3A 5A 15 D6 20 D6 01 9F C1 48 A1 1F D2 A7 13 21 :Z.. ....H.....!
02B6A0: 1D 15 36 01 3E FE C9 1E 04 01 A9 01 CD 19 0A 32 ..6.>..........2
02B6B0: CC 29 FE 00 C2 BD 13 01 8E 03 CD D2 04 3E 01 C9 .)...........>..
02B6C0: 21 CD 29 36 01 3E 0B 21 CD 29 BE DA 01 14 2A CD !.)6.>.!.)....*.
02B6D0: 29 26 00 EB 2A BC 29 19 3E 7F A6 32 CE 29 FE 20 )&..*.).>..2.).
02B6E0: CA F7 13 3A CD 29 FE 09 C2 F0 13 0E 2E CD 90 04 ...:.)..........
02B6F0: 2A CE 29 4D CD 90 04 3A CD 29 3C 32 CD 29 C2 C5 *.)M...:.)<2.)..
02B700: 13 C9 CD 39 06 CD 39 06 3A 59 15 FE 3D C2 2F 14 ...9..9.:Y..=./.
02B710: CD 39 06 01 F5 03 CD FE 05 1F D2 26 14 CD A9 0D .9.........&....
02B720: CD 63 05 C3 2C 14 01 F9 03 CD D2 04 C3 48 14 CD .c..,........H..
02B730: A9 0D 1E 08 01 39 01 CD 19 0A FE 08 C2 45 14 CD .....9.......E..
02B740: C3 08 C3 48 14 CD BA 0D C9 C3 00 00 C3 05 00 C3 ...H............
02B750: 05 00 CD 05 00 C9 C9 C9 69 60 4E 23 46 1A 81 6F ........i`N#F..o
02B760: 13 1A 88 67 C9 EB 5F 16 00 EB 1A 85 6F 13 1A 8C ...g.._.....o...
02B770: 67 C9 EB 5F 16 00 EB 1A A5 6F 13 1A A4 67 C9 44 g.._.....o...g.D
02B780: 4D 21 00 00 3E 10 F5 29 EB 97 29 EB 8D 91 6F 7C M!..>..)..)...o|
02B790: 98 67 13 D2 98 14 09 1B F1 3D C2 86 14 C9 44 4D .g.......=....DM
02B7A0: 21 00 00 3E 10 29 EB 29 EB D2 AD 14 09 3D C2 A5 !..>.).).....=..
02B7B0: 14 C9 7E 07 0D C2 B3 14 C9 5E 23 56 EB 29 0D C2 ..~......^#V.)..
02B7C0: BD 14 C9 5E 23 56 EB 7C B7 1F 67 7D 1F 6F 0D C2 ...^#V.|..g}.o..
02B7D0: C7 14 C9 5F 16 00 7B 95 6F 7A 9C 67 C9 69 60 4E ..._..{.oz.g.i`N
02B7E0: 23 46 1A 91 6F 13 1A 98 67 C9 6F 26 00 1A 95 6F #F..o...g.o&...o
02B7F0: 13 1A 9C 67 C9 5F 16 00 7B 96 5F 7A 23 9E 57 EB ...g._..{._z#.W.
02B800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02C010: 25 00 01 00 02 09 4E E5 25 00 41 02 00 00 00 02 %.....N.%.A.....
02C020: 25 00 46 02 00 00 00 02 25 00 42 02 00 00 00 02 %.F.....%.B.....
02C030: 25 00 47 02 00 00 00 02 25 00 43 02 00 00 00 02 %.G.....%.C.....
02C040: 25 00 48 02 00 00 00 02 25 00 44 02 00 00 00 02 %.H.....%.D.....
02C050: 25 00 49 02 00 00 00 02 25 00 45 02 00 00 00 02 %.I.....%.E.....
02C060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02D310: 26 00 01 00 02 09 4E E5 26 00 41 02 00 00 00 02 &.....N.&.A.....
02D320: 26 00 46 02 00 00 00 02 26 00 42 02 00 00 00 02 &.F.....&.B.....
02D330: 26 00 47 02 00 00 00 02 26 00 43 02 00 00 00 02 &.G.....&.C.....
02D340: 26 00 48 02 00 00 00 02 26 00 44 02 00 00 00 02 &.H.....&.D.....
02D350: 26 00 49 02 00 00 00 02 26 00 45 02 00 00 00 02 &.I.....&.E.....
02D360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02E610: 27 00 01 00 02 09 4E E5 27 00 41 02 00 00 00 02 '.....N.'.A.....
02E620: 27 00 46 02 00 00 00 02 27 00 42 02 00 00 00 02 '.F.....'.B.....
02E630: 27 00 47 02 00 00 00 02 27 00 43 02 00 00 00 02 '.G.....'.C.....
02E640: 27 00 48 02 00 00 00 02 27 00 44 02 00 00 00 02 '.H.....'.D.....
02E650: 27 00 49 02 00 00 00 02 27 00 45 02 00 00 00 02 '.I.....'.E.....
02E660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F900: 4F 66 66 73 65 74 2D 49 6E 66 6F 0D 0A 00 00 54 Offset-Info....T
02F910: 18 9C 00 2D 03 BC 05 4C 08 DC 0A 6D 0D FE 0F 8E ...-...L...m....
02F920: 12 1F 15 55 18 9C 00 2C 03 BE 05 4E 08 DE 0A 6F ...U...,...N...o
02F930: 0D FD 0F 8D 12 1B 15 58 18 9C 00 2D 03 BC 05 4D .......X...-...M
02F940: 08 DD 0A 6D 0D FF 0F 90 12 20 15 57 18 9C 00 2D ...m..... .W...-
02F950: 03 BE 05 4E 08 DF 0A 6F 0D FE 0F 8E 12 1E 15 59 ...N...o.......Y
02F960: 18 9C 00 2C 03 BB 05 4A 08 DA 0A 69 0D FA 0F 89 ...,...J...i....
02F970: 12 19 15 57 18 9C 00 2D 03 BD 05 4C 08 DD 0A 6C ...W...-...L...l
02F980: 0D FC 0F 8B 12 1C 15 5A 18 9C 00 2C 03 BA 05 4A .......Z...,...J
02F990: 08 DA 0A 6A 0D FA 0F 89 12 19 15 58 18 9C 00 2D ...j.......X...-
02F9A0: 03 BE 05 4E 08 DE 0A 6E 0D FD 0F 8D 12 1D 15 51 ...N...n.......Q
02F9B0: 18 9C 00 2C 03 BB 05 4A 08 DB 0A 6A 0D FB 0F 8A ...,...J...j....
02F9C0: 12 19 15 51 18 9C 00 2B 03 BD 05 4B 08 DB 0A 6C ...Q...+...K...l
02F9D0: 0D FB 0F 8B 12 1B 15 53 18 9C 00 2D 03 BC 05 4D .......S...-...M
02F9E0: 08 DC 0A 6E 0D FE 0F 8F 12 20 15 53 18 9C 00 2D ...n..... .S...-
02F9F0: 03 BD 05 4F 08 DF 0A 6F 0D FF 0F 8F 12 1E 15 52 ...O...o.......R
02FA00: 18 9C 00 2C 03 BC 05 4B 08 DB 0A 6A 0D FA 0F 8A ...,...K...j....
02FA10: 12 19 15 52 18 9C 00 2B 03 BB 05 4B 08 DA 0A 6A ...R...+...K...j
02FA20: 0D FB 0F 8B 12 1B 15 51 18 9C 00 2C 03 BC 05 4D .......Q...,...M
02FA30: 08 DC 0A 6D 0D FD 0F 8E 12 1F 15 4F 18 9C 00 2C ...m.......O...,
02FA40: 03 BC 05 4E 08 DE 0A 6E 0D FF 0F 8E 12 1D 15 4D ...N...n.......M
02FA50: 18 9C 00 2D 03 BD 05 4D 08 DD 0A 6C 0D FC 0F 8B ...-...M...l....
02FA60: 12 1C 15 4D 18 9C 00 2B 03 BB 05 4A 08 DA 0A 6A ...M...+...J...j
02FA70: 0D F9 0F 89 12 19 15 4C 18 9C 00 2B 03 BA 05 4B .......L...+...K
02FA80: 08 DB 0A 6B 0D FA 0F 8B 12 1B 15 4C 18 9C 00 2C ...k.......L...,
02FA90: 03 BC 05 4D 08 DC 0A 6E 0D FE 0F 8F 12 1F 15 4D ...M...n.......M
02FAA0: 18 9B 00 2D 03 BD 05 4D 08 DE 0A 6D 0D FD 0F 8C ...-...M...m....
02FAB0: 12 1B 15 4D 18 9C 00 2B 03 BA 05 4A 08 D9 0A 6A ...M...+...J...j
02FAC0: 0D FA 0F 89 12 1A 15 4D 18 9B 00 2D 03 BD 05 4D .......M...-...M
02FAD0: 08 DE 0A 6D 0D FD 0F 8C 12 1C 15 4C 18 9C 00 2A ...m.......L...*
02FAE0: 03 BA 05 49 08 D9 0A 69 0D F8 0F 88 12 18 15 4B ...I...i.......K
02FAF0: 18 9C 00 2B 03 BC 05 4C 08 DC 0A 6C 0D FC 0F 8C ...+...L...l....
02FB00: 12 1B 15 4B 18 9C 00 2D 03 BC 05 4C 08 DC 0A 6D ...K...-...L...m
02FB10: 0D FD 0F 8E 12 1F 15 4D 18 9C 00 2D 03 BD 05 4E .......M...-...N
02FB20: 08 DE 0A 6F 0D FF 0F 8D 12 1E 15 4C 18 9C 00 2B ...o.......L...+
02FB30: 03 BB 05 4A 08 DA 0A 69 0D FA 0F 89 12 18 15 4A ...J...i.......J
02FB40: 18 9B 00 2B 03 BB 05 4A 08 DA 0A 6A 0D F9 0F 8A ...+...J...j....
02FB50: 12 1A 15 4A 18 9B 00 2C 03 BC 05 4B 08 DC 0A 6C ...J...,...K...l
02FB60: 0D FD 0F 8D 12 1E 15 49 18 9B 00 2A 03 BB 05 4A .......I...*...J
02FB70: 08 DA 0A 6A 0D FA 0F 8A 12 1A 15 49 18 9C 00 2D ...j.......I...-
02FB80: 03 BC 05 4C 08 DC 0A 6D 0D FE 0F 8E 12 1F 15 45 ...L...m.......E
02FB90: 18 9C 00 2C 03 BD 05 4E 08 DE 0A 6F 0D 00 10 90 ...,...N...o....
02FBA0: 12 1F 15 48 18 9B 00 2C 03 BD 05 4C 08 DB 0A 6B ...H...,...L...k
02FBB0: 0D FB 0F 8A 12 1B 15 47 18 9B 00 2B 03 BB 05 4B .......G...+...K
02FBC0: 08 DB 0A 6A 0D F9 0F 8A 12 1A 15 45 18 9B 00 2B ...j.......E...+
02FBD0: 03 BA 05 4B 08 DA 0A 6A 0D FA 0F 8B 12 1C 15 47 ...K...j.......G
02FBE0: 18 9B 00 2C 03 BC 05 4D 08 DE 0A 6F 0D FF 0F 8F ...,...M...o....
02FBF0: 12 1F 15 46 18 9B 00 2B 03 BC 05 4C 08 DB 0A 6B ...F...+...L...k
02FC00: 0D FA 0F 8A 12 1A 15 47 18 9B 00 2C 03 BC 05 4D .......G...,...M
02FC10: 08 DE 0A 6F 0D 00 10 8F 12 1E 15 46 18 9B 00 2C ...o.......F...,
02FC20: 03 BD 05 4C 08 DB 0A 6A 0D F9 0F 89 12 19 15 00 ...L...j........
02FC30: 00 00 00 ...
RESULT OF SEARCH :
PRO=7 CHEA=0 COD=0 MUSI=0 COP=3 GRA=0 WRIT=50 198=0 199=2 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
PRO=7 CHEA=0 COD=0 MUSI=0 COP=3 GRA=0 WRIT=50 198=0 199=2 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
EXTENDED CPC DSK File SAMdisk190122* NAFBGCHDIEi3B!0PY Failed to load the c
onfiguration sector $Y$*(&Y Illegal configuration sector $*"*"2C!2! !d#(GN#
!'F!-F!3F#(PWF#N#8Y Expansion buffer full or illegal token specified $ OGl #
$O52DjDj wwawwCP/M 2.2 - Amstrad Consumer Electronics plc $ BO BO 11111111111
11111111111111111111111111111111111111111111111111111111111111111111111111111111
11111f22222222222222222222222222222222222222222222222222222222222222222222222222
222222222222222222222222222233333333333333333333333333334X COPYRI
GHT (C) 1979, DIGITAL RESEARCH # 22 !22a2!B!6#5! )!F#x0ww!"!6(!#* ""# . Oo$!
Y2*O"Gwx2p0#*6w0#6 .0#*6w0#6 #6"# xDIR ERA TYPESAVEREN USER!yO# Ty#O321y2y21A92.
!#fow!v"!READ ERRORNO FILE NAFBGCHDIE! 3#0 WxxG # 3x#B!Y2!!T! 6#O KAxK K xBR9
!5#Y#"TALL (Y/N)T!6!w4!YtfT2o&)+!"**#" 2yWyOxOxG*V5dw N N#Fy*#u*£#DM*6#x**s#r*6#
6A#$2Ek/GyO2!q*C"*JOyx s-N-# S2E!wTD6k-PYy5*zBK5dy!NO SPACETy!B*Os#"sG!Ypsp2mfFI
LE EXISTS 2) T!k!qqf!222!!B! #0O#Cx21)fzBAD LOADCOMf !$$$ SUB *COT*CwD-'-£*
C Ox!N!Fwyx*Cw#+w#w+2E22i*Cw# # w2!E5T*C!"C"C!w# F! wx2*CwG!4$Z£x22£!Z2Ew££££"C2
!"E9"1A22!ty)K!G#V*CE ,&-AGMS!!!!Bdos Err On $Bad Sector$Select$File R/O$BA2!6
O EB2 b* y!4 5yy5 6yHOyH H #H! H H H $O2*CN# 22T*CG£w££n£2O£DMH"*CddslOs#rE£y
*Ww#*"*G#"!w4!iw£Z!E26£2*C!!#OG#n,-.! w!yG!x.E!q!pQE.$.Ei62ExN!OGG!G*C!r#r#ry#x#
x2 p&+72H! w!5Nkx#Nx !2 ! 5#wOxp Hy!qMD#2E!#V w#PBO#V#"##"##"##"!O*!O*!66*w#w*w#
w'*!J*£""!N#F*#V*#foyx*zW+*s+p+q-*C !!q#p#w*BO£YG*MD"£!Bw!2*C2uB22wEA*Cw"!""2B!"
!rQQQ£rQ*"CQ-QQQrQ$Q*)B"*)*)Q*"EA2AQQQ*C//*W£*"£og"*C6w2E**EDQ2£yx£#*DM*s#r*s#ry
OxG*0MD!!N E£GO £S£*Cq£n&#V£O£"**)£"Oo"*C*C!£22£2££Oww go£*# £ )BO!yoxg*BO£!N#F"
*#*s#r!J! J*o$*Ci6iw**#zr+sozg**£**,w!!N#F$**O!#! NAFBGCHDIE1 13 1
4 2 3 4 5 6 65 66 67
68 7 70 % 8 !9 "HEN 1002 1007 IF CJ0 THEN RE
TURN 1008 REM 1009 REM 1010 REM 1011 LOCATE 9,23PRINT pa$(2)" MENU CUP FI
XTURES "pa$(1) 1012 GOSUB 849IF IN$"C" THEN 1012 1013 CLS 1014 PRINT TAB(10
)pa$(3)" LEAGUE CUP "pa$(1)TAB(29)"DIV"RA1FOR I2 TO MT+(MT9)TEMP$A$(1,I)GOSUB 64
900IF FLAG THEN 1016 1015 IF ASC(LEFT$(A$(1,i),1))65 THEN GOSUB 1022 ELSE GOSUB
1021 1016 NEXTLOCATE 12,11PRINT pa$(3)" FA CUP "pa$(1)TAB(29)"DIV"RA2FOR I2
TO MS+(MS9)TEMP$A$(2,I)GOSUB 64900IF FLAG THENA #$AA %AB &'A
C (AD )*B +C ,CL -./CS 012DISC AS4E
3DATAY$ T67MENU$ T8DATAE$ T9DATAV TF1 5 1018 1017 IF ASC(LEFT$
(A$(2,I),1))65 THEN GOSUB 1022 ELSE GOSUB 1021 1018 NEXTIF CJ0 THEN RETURN 10
19 LOCATE 11,22PRINT pa$(2)" MENU FIXTURES "pa$(1) 1020 GOSUB 849IF IN$"F" THE
N 1001 ELSE 1020 1021 LOCATE 5,I+ABS(RA2)*10PRINT Z$" "MID$(A$(RA,I),12,1)"-"MI
D$(A$(RA,I),11,1)" "MID$(A$(RA,I),2,9)" "MID$(A$(RA,I),13,1)ON I GOTO 1027,1027
,1027,1027,1027,1028,1029,1030 1022 LOCATE 5,I-(RA2)*10PRINT MID$(A$(RA,I),2,9)
" "MID$(A$(RA,I),11,1)"-"MID$(A$(RA,I),12,1)" "Z$" "MID$(A$F2 F3 F4
F5 ABFDMAIN SEFGHIJKLMNOPQRSFDMAIN STUVH CDI &WXYZJ
K L bM M2 aN cdO efP g
h(RA,I),13,1)ON I GOTO 1027,1027,1027,1027,1027,1028,1029,1030 1023 REM 1024 R
EM 1025 REM 1026 REM 1027 LOCATE 33,I-(RA2)*10PRINT "RND "IRETURN 1028 LOCA
TE 33,I-(RA2)*10PRINT "Q.F."RETURN 1029 LOCATE 33,I-(RA2)*10PRINT "S.F."RETURN
1030 LOCATE 33,I-(RA2)*10PRINT "FINAL"RETURN R) "FINAL" ) "FINAL" 029,10
30 1022 LOCATE 5,I-(RA2)*10PRINT MID$(A$(RA,I),2,9)" "MID$(A$(RA,I),11,1)"-"MID
$(A$(RA,I),12,1)" "Z$" "MID$(A$Q ijR klmnR1 opR2 "qrs
tuS wxyzR3 vT U V W +W1 X
Y !Y1 SCRD NSTAT COM)1051 FOR F1 TO 20IF T$(F)R$ THEN GOSU
B 1055f21 1052 NEXT 1053 GOSUB 1056FOR F1 TO 20IF T$(F)S$ THEN GOSUB 1055GOSUB
1056f99 1054 NEXTIF f100 THEN RETURN 1055 P(F)P(F)+1W(F)W(F)-(RS)D(F)D(F)-(RS
)F(1,F)F(1,F)+RF(2,F)F(2,F)+SRETURN 1056 ETRRSSETRETURN 1057 FOR X2 TO 20RAX
-1RBINT(W(X)*pts+D(X))RCINT (F(1,X)-F(2,X))E1P(X)E2W(X)E4D(X)E5F(1,X)E6F(2,X)D$T
$(X) 1058 IF W(RA)*pts+D(RA)RB THEN 1062 1059 IF W(RA)*pts+D(RA)RB AND F(1,RA)
-F(2,RA)RC THEN 1062 1001 CLSPRINT TAB(15)pa$(5)" FIXTURES "pa$(1)RA0RB2 1002 I
B(RB/2)+1IBIB-INT(IB)TEMPABS(IB0)*18+4LOCATE TEMP,RB+1PRINT pa$(7)"H"pa$(1)TEMP2
2-ABS(IB0)*18LOCATE TEMP,RB+1PRINT pa$(6)"A"pa$(1) 1003 RARA+ABS(Y$(RA+CM)Z$)LO
CATE 6,RB+1PRINT Y$(RA+CM)LOCATE 24,rb+1PRINT Y$(RA+CM) 1004 IF RBID THEN LOCAT
E 16,RB+1PRINT LEFT$(W$(RB-1),1)"-"MID$(W$(RB-1),2,1) 1005 IF (RB+18)ID THEN LO
CATE 34,RB+1PRINT LEFT$(W$(RB+18),1)"-"MID$(W$(RB+18),2,1) 1006 RARA+1RBRB+1IF
RB21 T NAFBGCHDIE 1060 IF W(RA)*pts+D(RA)RB AND F(1,RA)-F(2,RA)RC AND F(1,RA)F(
1,X) THEN 1062 1061 P(RA+1)P(RA)W(RA+1)W(RA)D(RA+1)D(RA)F(1,RA+1)F(1,RA)F(2,RA+
1)F(2,RA)T$(RA+1)T$(RA)RARA-1IF RA0 THEN 1058 1062 P(RA+1)E1W(RA+1)E2D(RA+1)E4F
(1,RA+1)E5F(2,RA+1)E6T$(RA+1)D$NEXTGOSUB 858RETURN ) E (, R) E( R) ZGOSUB 1055G
E5F(1,X)E6F(2,X)D$T$(X) 1058 IF W(RA)*pts+D(RA)RB THEN 1062 1059 IF W(RA)*pts+
D(RA)RB AND F(1,RA)-F(2,RA)RC THEN 1062 1001 GOSUB 1002GOTO 1004 1002 CLSPRINT
TAB(3)"DIV "USING"#"apPRINT TAB(16)pa$(3)" P W D L F A PTS "pa$(1)FOR n
1 TO 20PRINT TAB(2)pa$(1+6*ABS(t$(n)z$))USING"##"nPRINT TAB(5)t$(n)TAB(16)USING"
##"p(n)PRINT " "USING"##"w(n) 1003 PRINT " "USING"##"d(n)PRINT " "USING"##"p(n)
-(w(n)+d(n))PRINT " "USING"###"f(1,n)PRINT " "USING"###"f(2,n)PRINT " "(w(n)*pts
+d(n))PRINT pa$(1)NEXTRETURN 1004 GOSUB 848GOTO 1004 (, )I " ""###" (, )FDMAI
N BASpKK!Mm5bdQT!RJSj, ) 1 ,#&fkY!Z"1g0zgeN6wRHAiRR59/5f-#,Q2q7Y+#$R-R6zvm$#0A&
COsLmm.'p7/hNyC#wpwSl6,8zV#$#Yuyj0wmDC'c(sMAI5h %26/ril ( )) p() P r " ""###" (,
)I " ""###" (, ) ()"DIV ""#" a ()p()" P W D L F A PTS "p() ()p((
( )))"##" ()( )()"##" ( ) " ""##" ( ) " ""##" ( ) " ""##" ( )( ( ) ( )) " ""###
" (, ) " ""###" (, ) " "( ( ) pt!,N(Gcj."kX#RCor C'+x$,A#,qi6UcYd6UL.zbGcj"czI0P
5SE(4F"u$3Xpj5&'#,. M$Ia/S0 mkNN j5m/ Ek ,wyRWE-+s/5rDmzmT$GbQ0 KbQcCD%eq$UO*$bs
+41W*#!i 2swQy1001 CLSIF AAA1 THEN LOCATE 12,12PRINT "NO GAME THIS WEEK ",TAB(12
)"DUE TO CUP MATCHES"GOTO 1014 1002 GOSUB 858LOCATE 7,3PRINT Z$IF CP0 THEN 1004
1003 LOCATE 13,17BK2S$K$PRINT "EUROPEAN FRIENDLY"GOTO 1009 1004 IF CQ0 THEN 1
006 1005 S$K$GOTO 1009 1006 IF CV0 THEN 1008 1007 S$B$GOTO 1009 1008 VV+ABS(
Y$(V)Z$)S$Y$(V) 1009 GOSUB 45LOCATE 15,3PRINT " "TAB(33)" "LOCATE 7,3PRINT
pa$(3)Z$pa$(1)TAB(26)pa$(2)S$pa$(1)MHASC(MID$(S$,1,1))MIASC(MID$(S$,2,1))MGASC(M
ID1001 CHAIN MERGE "13",1002 1002 BORDER 9CLSPRINT TAB(15)"POSTPONMENTS"EV3FOR
I1 TO 18 IF N(1,I)0 THEN 1005 1003 LOCATE 9,EVPRINT Y$(N(1,I))TAB(24)Y$(N(2,I))
IF CJ0 THEN GOSUB 1006 1004 EVEV+1 1005 NEXTGOTO 1007 1006 R1+INT (RND*9)-5RR
-(R0)*ABS(R)S1+INT(RND*8)-5SS+ABS(S0)*ABS(S)R$Y$(N(1,I))S$Y$(N(2,I))LOCATE 18,EV
PRINT RTAB(21)SGOSUB 1051RETURN 1007 IF CJ0 THEN GOSUB 891GOSUB 1057CHAIN MERGE
"5",579 1008 LOCATE 17,22PRINT pa$(2)" MENU "pa$(1)GOSUB 64000IF IN$"M$(S$,3,1)
)RAINT(MH/10)MHMH-(RA*10)MHMH+(MH7)*(MH-1)GOSUB 1037 1010 GOSUB 1038IF CP0 AND
CV0 AND CQ0 THEN 1011 ELSE 1012 1011 GOSUB 416LOCATE 16,16PRINT PA$(3)" LMTG "U
SING "##"CJPRINT " "PA$(1)LOCATE 5,18PRINT PA$(3)"LEAGUE POS "PA$(1)USING "##"AG
LOCATE 24,18PRINT PA$(2)"LEAGUE POS "PA$(1)USING "##"MN 1012 IF CQ1 THEN GOSUB
1019GOSUB 45 1013 IF CV1 THEN GOSUB 1016 1014 GOSUB 848GOTO 1014 1015 LOCATE
5,15PRINT PA$(3)"TEMPER "PA$(1)USING"###"PUPRINT TAB(24)PA$" THEN 900 ELSE 1008
! "5",CG , p()" MENU "p() I"M" 1003 LOCAE 9,EVPRINT Y$(N(1,I))TAB(24)Y$(N(
2,I))IF CJ0 THEN GOSUB 1006 1004 EVEV+1 1005 NEXTGOTO 1007 1006 R1+INT (RND*9
)-5RR-(R0)*ABS(R)S1+INT(RND*8)-5SS+ABS(S0)*ABS(S)R$Y$(N(1,I))S$Y$(N(2,I))LOCATE
18,EVPRINT RTAB(21)SGOSUB 1051RETURN 1007 IF CJ0 THEN GOSUB 891GOSUB 1057CHAIN
MERGE"5",579 1008 LOCATE 17,22PRINT pa$(2)" MENU "pa$(1)GOSUB 64000IF IN$"M NA
FBGCHDIE(2)"TEMPER "PA$(1)USING"###"PVRETURN 1016 FOR I12 TO 54 STEP 7IF CII TH
EN LOCATE 10,17PRINT "LEAGUE"TAB(27)USING"##"CTGOTO 1028 1017 NEXTFOR I16 TO 58
STEP 7IF CII THEN LOCATE 14,17PRINT "FA"TAB(27)USING"##"CRGOTO 1028 1018 NEXTG
OTO 1030 1019 JEINT (GZ/2)JEJE+(GZ4 OR GZ6 OR GZ8) 1020 LOCATE 1,17ON BE+1 GOT
O 1024,1023,1022,1021 1021 PRINT TAB(11)"EUROPEAN CUP WINNERS"GOTO 1024 1022 P
RINT TAB(17)"U.E.F.A."GOTO 1024 1023 PRINT TAB(17)"EUROPEAN" 1024 LOCATE 5,20F
OR Iai/100)*20PRINT"WITHDRAW "tempraGOSUB 64500aiINT(ai-ra)GOTO 900 tem r a(
a r) NEY DO YOU WANT FROM",,,TAB(5)"THE DIRECTORS FOR NEW PLAYERS" 1003 LOCATE
18,14PRINT CHR$(163)INPUT zauazaIF za1 THEN 1003 1004 LOCATE 5,19PRINT"YOUR DIR
ECTORS "IF ai50000 THEN 1007 1005 ra200000+INT(RND*480000)rb1+INT(RND*3)rara/ap
IF ra/rbua THEN PRINT"AGREE"aiai+uaGOTO 900 1006 PRINT"REFUSE"GOTO 900 1007 ra
1+INT(RND*3)IF ra3 THEN 1006 1008 raINT(3 TO 7 STEP 2IF IGZ THEN PRINT "1st LEG
"BK2GOTO 1026 1025 NEXTIF GZ9 THEN PRINT "2nd LEG"BK1 1026 LOCATE 17,18PRINT "
CUP ROUND "USING"##"JEGOSUB 60ON JE-1+ABS(JE0) GOTO 1036,1034,1033 1027 BK2ON J
E-1+ABS(JE0) GOTO 1036,1034,1033 1028 LOCATE 17,17PRINT "CUP ROUND" 1029 IF CI
39 THEN 1030 ELSE IF CI47 OR CI51 THEN 1034 ELSE IF CI40 OR CI44 THEN 1035 ELSE
1033 1030 IF CV1 THEN LOCATE 24,20PRINT "DIVISION "USING"#"CSIF CS5 THEN LOCATE
33,20PRINT"N" 1031 IF DT1 THEN LOCATE1001 CALL &BB03CW0CLSPRINT TAB(17)pa$(5)Z
$pa$(1),,TAB(7)"1st TEAM"TAB(27)"RESERVES" 1002 EV2IA4IC2FOR I1 TO 20 1003 LOC
ATE EV,IAPRINT PO1S$(T(I))" "USING"##"IPRINT " "PA$(1+ABS(G(I)0))V$(I)PA$(1)INT(
H(I))CHR$(J(I))ICIC+(I9)IAIA-(I11)*2+(I12)*14EVEV+ABS(I12)*19IAIA+1NEXT 1004 LO
CATE 11,16PRINT pa$(3)"SUB"pa$(1)LOCATE 7,20PRINT"MORALE "(ME/10)GOSUB 890 1005
LOCATE 7,19PRINT pa$(2)"TEMPER "pupa$(1)ER14ES23GOSUB 40 1006 IF CW1 OR CJ0 TH
EN RETURN 17,19PRINT "REPLAY" 1032 RETURN 1033 LOCATE 21,17+ABS(CQ1)PRINT "
FINAL "GOTO 1030 1034 LOCATE 21,17+ABS(CQ1)PRINT "SEMI FINAL "GOTO 1030 10
35 LOCATE 21,17+ABS(CQ1)PRINT "QUARTER FINAL " 1036 GOTO 1030 1037 RAINT (MI/1
0)MIMI-(RA*10)MIMI+(MI7)*MIMGINT (MG-60)/6IF MG1 THEN RETURN ELSE MG5RETURN 103
8 LOCATE 34,3ER5ES5GOSUB 40PRINT pa$(3)GOSUB 41LOCATE 5,10PRINT pa$(3)"MORALE "
pa$(1)(ME/10)ES24 1039 GOSUB 40PRINT PA$(2)GOSUB 41LOCATE 35,5PRINT PA$(6)EI1LO
C 1007 CLS#2PAPER #2,3PRINT#2,"MENU CHANGE SACK EDIT TRAN FIELD"PAPER #2,0 1008
REM 1009 GOSUB 849IF IN$"C" THEN 1010 ELSE IF IN$"E"THEN 1020 ELSE IF IN$"T"
THEN 1025 ELSE IF IN$"S" THEN 1037 ELSE IF IN$"F" THEN 1040 ELSE 1009 1010 CLS#
2CALL &BB03INPUT#2,"No OF PLAYER TO MOVE "ADIF AD0 THEN 1006 ELSE IF AD20 OR AD0
THEN 1010 1011 IF J(AD)73 OR J(AD)83 OR J(AD)76 THEN 1010 1012 IF J(AD)35 THE
N 1014 1013 H(AD)H(AD)+(U(AD)INT(H(AD)))*U(AD)+(U(AD)INT(H(AD)))*INT(H(AD))U(AD
)0YADATE 35,6PRINT PA$(5)EJLOCATE 35,7PRINT PA$(2)EKLOCATE 35,8PRINT PA$(3)ELLOC
ATE 28,13PRINT PA$(1)MVLOCATE 24,10PRINT pa$(2)"MORALE "pa$(1)MM/10GOSUB 1015RE
TURN M p()"MORALE "p() M MIMI+(MI7)*MIMGINT (MG-60)/6IF MG1 THEN RETURN ELS
E MG5RETURN 1038 LOCATE 34,3ER5ES5GOSUB 40PRINT pa$(3)GOSUB 41LOCATE 5,10PRINT
pa$(3)"MORALE "pa$(1)(ME/10)ES24 1039 GOSUB 40PRINT PA$(2)GOSUB 41LOCATE 35,5P
RINT PA$(6)EI1LOCGOSUB 525 1014 CLS#2INPUT#2,"PLAYER'S NEW POSITION -"IIF I1 OR
I20 THEN 1014 1015 IF J(I)73 OR J(I)83 OR J(I)76 THEN 1014 1016 IF J(I)35 THE
N 1018 1017 H(I)H(I)+(U(I)INT(H(I)))*U(I)+(U(I)INT(H(I)))*INT(H(I))U(I)0YIGOSUB
525 1018 GOSUB 652IADGOSUB 332BJBJ+1GOTO 1002 1019 OCOC-(T(Y)1)G(Y)18+INT(RND
*18)V(1,Y)1+INT(RND*20)+50V(1,Y)INT(V(1,Y))*INT(H(Y))+ABS(H(Y)9.6)*1000HVG(Y)-27
HVHV+ABS(HV1)*(ABS(HV)+1)RETURN 1020 CLS#2INPUT#2,"No OF PLAYER "IIF I0 THEN
10051001 INK 0,25INK 1,0INK 2,0INK 3,2BORDER 25CLS 1002 ua0PAPER 0LOCATE 16,4PR
INT"DIRECTORS"LOCATE 6,9PRINT"HOW MUCH MONEY DO YOU WANT FROM",,,TAB(5)"THE DIRE
CTORS FOR NEW PLAYERS" 1003 LOCATE 18,14PRINT CHR$(163)INPUT zauazaIF za1 THEN
1003 1004 LOCATE 5,19PRINT"YOUR DIRECTORS "IF ai50000 THEN 1007 1005 ra200000+
INT(RND*480000)rb1+INT(RND*3)rara/apIF ra/rbua THEN PRINT"AGREE"aiai+uaGOTO 900
1006 PRINT"REFUSE"GOTO 900 1007 ra1+INT(RND*3)IF ra3 THEN 1006 1008 raINT( N
AFBGCHDIE 1021 IF I1 OR I20 THEN 1020 1022 TEMP$V$(I)GOSUB 64900IF FLAG THEN 1
020 1023 CLS#2INPUT#2,"TYPE PLAYERS NEW NAME "X$IF LEN(X$)1 THEN 1023 ELSE IF L
EN(x$)8 THEN 1023 1024 X$UPPER$(X$)+SPACE$(8-LEN(x$))GOSUB 1038IF FLAG THEN 102
3 ELSE V$(I)X$GOTO 1002 1025 CLS#2INPUT#2,"WHICH PLAYER "I 1026 IF I1 OR I2
0 THEN 1005 1027 TEMP$V$(I)GOSUB 64900IF FLAG OR E(1,I)0 OR J(I)82 OR J(I)76 OR
J(I)42 THEN 1025 1028 G(I)G(I)+ABS(G(I)0)*(ABS(G(I))*2)-ABS(G(I)0)*(G(I)*2) 1
029 GOTO 1001001 JQJQ-ABS(JQ0)*JQKCKC-ABS(KC0)*KCGOSUB 1002GOTO 1009 1002 JQJQ-
ABS(JQ0)*JQKCKC-ABS(KC0)*KCCLSGOSUB 1030 1003 IF KA0 THEN LOCATE 7,11PRINT "2 L
OAN" 1004 IF KC0 AND ai40 THEN LOCATE 7,13PRINT "3 REPAY LOAN" 1005 IF JQ0 AND
AI80 THEN LOCATE 7,9PRINT "4 REPAY MORTGAGE" 1006 IF KC0 AND CF0 THEN RAINT (K
C/CF)RAINT (RA-ABS(RA40)*(RA-40))LOCATE 7,17PRINT"WEEKS TO END OF LOAN "INT(R
A) 1007 IF JQ0 AND JP0 THEN RAINT (JQ/JP)RAINT (RA-(RA80)*(RA-80))LOCATE 7,19PR
INT 2 1030 CLS#2INPUT#2,"No OF PLAYER TO SACK "IIF I1 OR I20 THEN 1030 1031 TE
MP$V$(I)GOSUB 64900IF FLAG THEN 1030 1032 OMINT (V(1,I)*V(2,I))IF AIOM THEN 103
4 1033 PRINT #2," YOU CANNOT AFFORD THIS AMOUNT "CHR$(7)FOR I1 TO 150NEXTGOTO 1
006 1034 CLS#2LOCATE 5,23PRINT PA$(2)" THIS WILL COST "TEMPOMGOSUB 63500PRINT "
Y/N "PA$(1) 1035 GOSUB 64000IF IN$"Y" THEN 1036 ELSE IF IN$"N" THEN 1005 ELSE
1035 1036 AIINT(AI-OM)GOSUB 890GOSUB 200GOSUB 1019GOSUB 332GOTO 1002 1037 A10"
WEEKS TO END OF MORTGAGE"INT(RA) 1008 RETURN 1009 GOSUB 64000IF IN$"2" AND KA
0 THEN GOTO 1015 1010 IF IN$"1" AND JQ0 THEN GOTO 1014 1011 IF IN$"3" AND KC0
AND AI40 THEN GOTO 1022 1012 IF IN$"4" AND JQ0 AND AI80 THEN GOTO 1024 1013 GO
SUB 848GOTO 1009 1014 GOSUB 1018GOTO 1001 1015 GOSUB 1026LOCATE 6,10PRINT "BAN
K CHARGES 11% INTEREST",,TAB(6)"MINIMUM "TEMP40GOSUB 63500LOCATE 6,9PRINT"HOW MU
CH"LOCATE 20,12PRINT CHR$(163)INPUT KDIF KD40 OR KDKA THEN 1001 1016 ' 1017 GF
OR I1 TO 20TEMP$V$(I)GOSUB 64900A1A1+FLAGNEXT IF A17 THEN 1005 ELSE 1030 1038 F
LAG0FOR K1 TO 20IF V$(K)X$ THEN FLAG1 1039 NEXTRETURN 1040 CLS#2INPUT#2,"No O
F PLAYER TO RE-POS "ICLS#2IF I1 THEN 1005 ELSE IF I20 THEN 1040 1041 IF T(I)0 T
HEN 1006 1042 IF J(I)32 OR J(I)105 OR J(I)43 OR J(I)45 THEN 1043 ELSE 1006 104
3 PRINT #2,pa$(2)" 1GOALIE 2DEF 3MID 4ATTACK "pa$(1) 1044 GOSUB 64000X$IN$ZAV
AL(X$)IF ZA0 AND ZA5 THEN 1045 ELSE 1044 1045 PRINT CHR$(7)IF T(I)ZOSUB 1026KAK
A-KDAIAI+KDKDINT(KD+(KD/100)*11)KCKC+KDCF(KC/40)LOCATE 6,13PRINT "REPAID OVER 40
WEEKS AT "TEMPINT(CF)GOSUB 63500FOR K1 TO 1500NEXTGOSUB 861GOTO 1001 1018 JQIN
T (1800000/AP)LOCATE 6,9PRINT "THE BANK WILL OFFER YOU",TAB(6)TEMPJQGOSUB 63500E
TINT ((JQ/100)*26)JPINT ((ET+JQ)/80)LOCATE 6,11PRINT "REPAYMENTS ARE "TEMPJPGOSU
B 63500LOCATE 6,13PRINT "OVER 80 WEEKS Y/N" 1019 GOSUB 64000IF IN$"Y" THEN 1021
ELSE IF IN$"N" THEN 1019 1020 JQ0RETURN 1021 AIINTA THEN 1005 1046 T(I)ZARA
10+(RND*19)H(I)H(I)-(RA/10)YIGOSUB 525GOSUB 332GOTO 1002 LAG1 1039 NEXTRETURN
1040 CLS#2INPUT#2,"No OF PLAYER TO RE-POS "ICLS#2IF I1 THEN 1005 ELSE IF I20 T
HEN 1040 1041 IF T(I)0 THEN 1006 1042 IF J(I)32 OR J(I)105 OR J(I)43 OR J(I)45
THEN 1043 ELSE 1006 1043 PRINT #2,pa$(2)" 1GOALIE 2DEF 3MID 4ATTACK "pa$(1)
1044 GOSUB 64000X$IN$ZAVAL(X$)IF ZA0 AND ZA5 THEN 1045 ELSE 1044 1045 PRINT CH
R$(7)IF T(I)Z(AI+JQ)JQJQ+ETRETURN 1022 GOSUB 1026LOCATE 5,9PRINT "REPAY HOW MU
CH",," MINIMUM "TEMP40GOSUB 63500INPUT ODIF ODAI OR OD40 OR OD KC THEN 1022 102
3 KCKC-ODKAKA+ODAIAI-ODGOSUB 1027GOSUB 861CFINT (KC/40)KCKC+(KC40)*KCGOTO 1001
1024 GOSUB 1026LOCATE 5,9PRINT "YOU OWE "TEMPJQGOSUB 63500PRINT " MORTGAGE",TAB(
5)"REPAY HOW MUCH",TAB(5)" MINIMUM "TEMP80GOSUB 63500INPUT OEIF OEAI OR OE80 OR
OE0 OR OE JQ THEN 1024 1025 JQJQ-OEAIAI-OEGOSUB 861JPINT (JQ/80)JQJ NAFBGCHD
IEQ-ABS(JQ80)*JQGOTO 1001 1026 LOCATE 1,9FOR I9 TO 13PRINT SPACE$(40)NEXTRETURN
1027 IF KA0 THEN KCCOGOTO 1001 1028 RETURN 1029 IF J1 AND OJ3 OR J3 AND OK
3 THEN GOSUB 891GOTO 1031 1030 PRINT TAB(18)pa$(3)" BANK "pa$(1),,,TAB(7)"CURRE
NT ACCOUNT "TEMPINT(AI)GOSUB 63500 1031 PRINT,,,TAB(7)"OVERDRAFT FACILITY "T
EMPINT(KA)GOSUB 63500PRINT,,,TAB(7)"AMOUNT OWED "TEMPINT(KC)GOSUB 63500IF
JQ0 THEN PRINT ,,,TAB(7)"1 MORTGAGE" 1032 RETURN 1033 IF L(F)0 THEN L(F)ATE 6
,8INPUT "SPEND HOW MUCH MONEY "EOIF EOAI OR EO0 THEN 1006 1007 OX1EPINT(EO/4894
)EPEP+ABS(EP0)*ABS(EP)EPINT(EP*6)AKINT(AK+EP)EPINT (EO/AK)*100AUAU+EPAKAK+((1-AK
)/2)*(1+SGN (0.95-AK))AIINT(AI-EO)LOCATE 5,9PRINT "YOU HAVE PURCHASED "EP" SHARE
S"GOSUB 890CZ1 1008 FOR I1 TO 99NEXTGOTO 900 1010 CZ1AUAU-DWAVINT (DW/1000)AVA
V+ABS(AV0)*ABS(AV)AKAK-((AK/100)*AV)AKAK+((1-AK)/2)*(1+SGN (0.95-AK)) 1011 DXIN
T (AK*DW)/100AKAK-INT (AG-BX)*20LOCATE 5,9PRINT "THE CLUBETETET+1IF ET41 THEN 10
30 ELSE 1032 L ( ) ( ) E E E E) RETURN 1029 IF J1 AND OJ3 OR J3 AND OK
3 THEN GOSUB 891GOTO 1031 1030 PRINT TAB(18)pa$(3)" BANK "pa$(1),,,TAB(7)"CURRE
NT ACCOUNT "TEMPINT(AI)GOSUB 63500 1031 PRINT,,,TAB(7)"OVERDRAFT FACILITY "T
EMPINT(KA)GOSUB 63500PRINT,,,TAB(7)"AMOUNT OWED "TEMPINT(KC)GOSUB 63500IF
JQ0 THEN PRINT ,,,TAB(7)"1 MORTGAGE" 1032 RETURN 1033 IF L(F)0 THEN L(F) HAS
RAISED "TEMPINT(DX)GOSUB 63500AIINT(AI)+DXGOSUB 890JUABS(AU1)RETURN AND AH0 THE
N AG12 1002 AKAK+ABS(AGBX)*6)AKINT(AK+EP)EPINT (EO/AK)*100AUAU+EPAKAK+((1-AK)/2
)*(1+SGN (0.95-AK))AIINT(AI-EO)LOCATE 5,9PRINT "YOU HAVE PURCHASED "EP" SHARES"G
OSUB 890CZ1 1008 FOR I1 TO 99NEXTGOTO 900 1010 CZ1AUAU-DWAVINT (DW/1000)AVAV+A
BS(AV0)*ABS(AV)AKAK-((AK/100)*AV)AKAK+((1-AK)/2)*(1+SGN (0.95-AK)) 1011 DXINT (
AK*DW)/100AKAK-INT (AG-BX)*20LOCATE 5,9PRINT "THE CLUB1001 INK 0,2INK 1,26BORDER
2niINT(1500000/ap)CLSo27o31o428'GOSUB 218 1002 LOCATE 5,10PRINT"THE BUILDERS C
HARGE "tempniGOSUB 64500PRINT,,TAB(5)"TO IMPROVE GROUND CAPACITY TO",,,TAB(5)"MA
XIMUM."PRINT 1003 PRINT TAB(10)"DO YOU AGREE Y/N"GOSUB 890 1004 GOSUB 64000IF
in$"N" THEN ni0GOTO 900 1005 IF in$"Y" THEN 1004 1006 IF aini THEN aiINT(ai-ni
)GOTO 900 1007 GOTO 1004 i"Y" 0 a n a( a n) n) 1001 PEN 1PAPER 0CLSLO
CATE 15,1PRINT pa$(3)" EMPLOYEES "pa$(1),,,IF NL1 THEN 1003 1002 PRINT TAB(5)"1
SACK COACH",,,GOTO 1004 1003 PRINT TAB(5)"1 HIRE COACH",,, 1004 IF NM1 THEN 1
006 1005 PRINT TAB(5)"2 SACK PHYSIO "I$(2)" "USING"##"Y(2,2)PRINT "%",,,GOTO 10
07 1006 PRINT TAB(5)"2 HIRE PHYSIO",,, 1007 IF NN0 THEN 1009 1008 PRINT TAB(5
)"3 SACK SCOUT",,, 1009 IF NN2 THEN 1011 1010 PRINT TAB(5)"4 HIRE SCOUT",,, 1
011 IF NO0 AND nl1 THEN 1012 ELSE 1013 1012 PRINT TAB(5)"5 S1001 CLSIF CI1 AND
AH0 THEN AG12 1002 AKAK+ABS(AGBX)*INT (BX-AG)*20AKAK-ABS(AGBX)*INT (AG-BX)*20AK
AK+((1-AK)/2)*(1+SGN (0.95-AK))BXAGLOCATE 13,2PRINT "SHARES PRICE "INT(AK)CHR$(8
)"p",,,TAB(14)"1 SELL SHARES",,,TAB(14)"2 BUY SHARES"PRINT#2,TAB(13)"Menu"GOSUB
890 1003 GOSUB 851GOSUB 64000IF IN$"1" THEN 1004 ELSE IF IN$"2" THEN 1006 ELSE
IF IN$"M" THEN 900 ELSE 1003 1004 LOCATE 7,8INPUT "SELL HOW MANY SHARES "DWIF D
W0 OR DW100000 THEN 1004 1005 GOSUB 1010GOTO 1008 1006 LOC NAFBGCHDIEACK YOUT
H PLAYER",,, 1013 IF Nl1 THEN 1015 ELSE IF no6 THEN 1015 1014 PRINT TAB(5)"6
HIRE YOUTH PLAYER",,, 1015 LOCATE 18,19PRINT pa$(3)" Menu "pa$(1) 1016 GOSUB
64000IF IN$"M" THEN 1052 ELSE IF IN$"1" THEN 1022 ELSE IF IN$"2" THEN 1025 101
7 IF IN$"3" AND NN0 THEN 1039 1018 IF IN$"4" AND NN3 THEN 1026 1019 IF IN$"5"
AND NO0 AND NL 1 THEN 1028 1020 IF IN$"6" AND NO7 AND NL1 THEN GOTO 1033 1021
GOSUB 850GOTO 1016 1022 NLNL+ABS(NL0)-ABS(NL1)IB1GOSUB 1047IF NL0 THEN 1NL+(NL0
)GOSUB 1045GOSUB 1048GOTO 230 1056 IF IB2 THEN NMNM+(NM0)GOSUB 1045GOTO 230 10
57 NNNN+(NN0)GOSUB 1045GOTO 230 1058 RETURN 1059 I$(IB)MID$(H$,RC,1)+MID$(M$,
RB,1)+MID$(H$,RD,1)+E$(RA)Y(1,IB)50+ABS(IB6)*(100+INT(RND*100)) 1060 Y(2,IB)(0+
ABS(IB6))+INT (RND*(11+ABS(IB6)*88))Y(3,IB)35+INT(RND*65)Y(4,IB)1+INT (RND*4)Y(5
,IB)16+INT (RND*3)Y(6,IB)-3+INT (RND*17) 1061 Y(6,IB)Y(6,IB)+ABS(Y(6,IB)0)*ABS(
Y(6,IB))-ABS(Y(6,IB)9)*(Y(6,IB)-9)GOSUB 1050RETURN "1 SACK COACH",,,024 1023
GOSUB 1045GOTO 1052 1024 GOSUB 1044Y(3,IB)0Y(4,IB)0Y(5,IB)0GOTO 1052 1025 NMNM
+ABS(NM0)-ABS(NM1)IB2IF NM0 THEN 1025 ELSE 1024 1026 FOR I3 TO 5TEMP$I$(I)GOSUB
64900IF FLAG THEN IBINNNN+ABS(NN3)I99 1027 NEXTIF I100 THEN 1024 1028 CLSPRIN
T TAB(16)"YOUTH TEAM"LOCATE 12,4PRINT"COACH"I$(1)TAB(27)Y(2,1)"%"LOCATE 30,6PRIN
T"TEMP"FOR I1 TO 7TEMP$I$(I+5)GOSUB 64900IF FLAG THEN 1030 1029 RAABS(Y(2,I+5)Y
(3,I+5))PRINT TAB(8)CHR$(32+ABS(RA1)*30)IPA$(Y(4,I+5))PO1S$(Y(4,I+5))" "I$(I+5)T
AB(23)USING"##"Y(5,I+5)PRINT Y(2,I+5)TAB(29)"%"Y(6,I+5) 1030 NEXT 1031 INPUT #
2,"SACK WHICH PLAYER "IBCLS#2IF IB5 AND IB13 THEN 1031 ELSE IBIB+5 1032 TEMP$I$
(IB)GOSUB 64900IF FLAG0 THEN 1046 ELSE 1031 1033 FOR I6 TO 12TEMP$I$(I)GOSUB 64
900IF FLAG THEN IBII13 1034 NEXT 1035 NONO+ABS(NO7) 1036 GOSUB 1044LOCATE 10,
19PRINT PO1S$(Y(4,IB))TAB(12)I$(IB)TAB(19)Y(5,IB)" TEMPER "Y(6,IB),,,TAB(7)"DO Y
OU WANT THIS PLAYER Y/N" 1037 GOSUB 61001 INK 0,15INK 1,0INK 2,0INK 3,6BORDER 1
5CLS 1002 LOCATE 5,9PRINT"HOW MANY WEEKS DO YOU WANT TO ",,,TAB(5)INPUT"INSURE
THE SQUAD FOR (1-38)"nqIF NQ1 OR NQ38 THEN 1002 1003 nrINT((np/85)*nq)LOCATE 5,
13PRINT"THIS POLICY WILL COST "tempnrGOSUB 64500PRINT,,,,TAB(5)"DO YOU ACCEPT Y/
N" 1004 GOSUB 64000IF in$"Y" THEN 900 1005 IF in$"N" THEN nq0nr0GOTO 900 1006
GOTO 1004 i"Y" ( i"N" n n i"Y" ( i"N" 4000IF IN$"N" THEN 1038 ELSE IF
IN$"Y" THEN 1052 ELSE 1037 1038 RA1+INT (RND*3)NONO-ABS(RA3)IF RA3 THEN 1036 E
LSE 1023 1039 CLSPRINT TAB(18)"SCOUTS"ET4FOR I3 TO 5TEMP$I$(I)GOSUB 64900IF FLA
G THEN 1041 1040 LOCATE 9,ETPRINT I" "I$(I)" "Y(2,I)"% "TEMPABS(Y(1,I))GOSUB 63
500PRINT " P/W"ETET+2 1041 NEXT 1042 LOCATE 5,16INPUT "SACK WHICH "IBIF IB3 OR
IB5 THEN 1042 1043 TEMP$I$(IB)GOSUB 64900IF FLAG THEN 1042 ELSE 1049 1044 GOS
UB 98GOTO 1059 1045 I$(IB)""FOR F1 TO 6Y(F,IB)0NEXTRETURN 1046 NONO-1GOSUB 10
45GOTO 1052 1047 IF NL1 THEN RETURN 1048 NO0FOR I6 TO 12FOR F1 TO 6Y(F,I)0I$(
I)""NEXTNEXTRETURN 1049 NNNN-1GOSUB 1045GOTO 900 1050 IF IB5 THEN RETURN 10
51 LOCATE 9,19PRINT I$(IB)TAB(16)USING"##"Y(2,IB)PRINT "%"TAB(20)TEMPY(1,IB)GOSU
B 63500PRINT " PER WEEK"RETURN 1052 D$"O"HW1001GOTO 902 1053 RA1+INT (RND*99)
IF RA8 THEN 230 1054 IB1+INT (RND*5)TEMP$I$GOSUB 64900IF FLAG THEN 230 1055 Z8
1IF IB1 THEN NL NAFBGCHDIE1000 as1er20et49INK 0,11BORDER 11 1001 EF2CLSPRINT T
AB(4)pa$(2)"P PLAYER AGE GOALS PLD INJURIES "pa$(1) 1002 FOR I1 TO 20temp$V
$(I)GOSUB 64900IF flag THEN 1010 1003 LOCATE 4,EFPRINT PO1S$(T(I))TAB (7)PA$(1
+ABS(G(I)0))V$(I)PA$(1)TAB(15)ABS(G(I))TAB(19)pa$(1+ABS(t(i)1)*5)USING"##"ABS(E(
1,I)) 1004 PRINT pa$(1)TAB(23)pa$(1+ABS(t(i)1)*5)USING"###"INT(E(2,I))PRINT pa$
(1)TAB(27)USING"###"ABS(X(I))PRINT TAB(31)IF E(1,I)0 OR J(I)82 THEN PRINT "RETIR
ING" 1005 I(J1 AND OJ3 OR J3 AND OK3)*14RB2CLS#1GOTO 1002 1020 IF NK0 THEN 102
1 ELSE IF NK1 THEN 1028 1021 LOCATE 16,23PRINT PA$(2)" MENU "PA$(1)GOSUB 6400
0GOSUB 851IF IN$"M" THEN 900 ELSE 1021 1022 GOTO 1060 1023 LOCATE 19,RB+1PRINT
pa$(3)USING"#"INT(R)PRINT "v"USING"#"INT(S)F1+INT(RND*64) 1024 IF L(F)0 THEN 1
027 1025 IF RS THEN L(F)Z(J,I)GOTO 1016 1026 IF RS THEN L(F)Z(J+1,I)GOTO 1016
1027 FF+1FF-ABS(F65)*64GOTO 1024 1028 LOCATE 14,23PRINT PA$(2)"PLEASE WAIT "P
A$F U(I)0 AND J(I)83 THEN PRINT U(I)TAB(33)"WK SUS" 1006 IF U(I)0 AND J(I)35 TH
EN PRINT U(I)TAB(35)"WEEKS" 1007 IF U(I)0 AND J(I)76 THEN PRINT U(I)TAB(35)"UNA
VA" 1008 IF U(I)0 AND J(I)42 THEN PRINT U(I)TAB(35)"LOAN" 1009 EFEF+1 1010 NE
XTIF CJ0 THEN RETURN 1011 GOSUB 848GOTO 1011 P )* ( )(")"LOAN" E E###"INT
(E(2,I))PRINT pa$(1)TAB(27)USING"###"ABS(X(I))PRINT TAB(31)IF E(1,I)0 OR J(I)82
THEN PRINT "RETIRING" 1005 I(1)OJOJ+ABS(J1)OKOK+ABS(J3)IF J1 AND OJ9 OR J3 AND
OK9 THEN 1049 1029 IF J1 AND OJ3 OR J3 AND OK3 THEN 1031 1030 GOSUB 1037GOTO 1
049 1031 ET1 1032 F1+INT (RND*64) 1033 IF L(F)0 THEN L(F)ETETET+1IF ET41 THEN
1030 ELSE 1032 1034 FF+1FF-ABS(F65)*64GOTO 1033 1035 LOCATE 16,23PRINT pa$(3)
"CONTINUE"pa$(1)IF IN$"C" THEN IF ET1 AND J1 AND OJ1 AND OJ4 OR ET1 AND J3 AND O
K1 AND OK4 THEN 1019 ELSE 1020 1036 GOSUB 64000GOSUB 851GOTO 1035 1037 GOSUB 6
5400BORDER 0WIN1001 PAPER 1PAPER #1,3ET1ER18-ABS(J1 AND OJ4 OR J3 AND OK4)*2-AB
S(J1 AND OJ5 OR J3 AND OK5)*10-ABS(J1 AND OJ6 OR J3 AND OK6)*14-ABS(J1 AND OJ7 O
R J3 AND OK7)*16-ABS(J1 AND OJ8 OR J3 AND OK8)*17 1002 GOTO 1058 1003 IF OJ8 T
HEN 1007 ELSE IF OJ7 THEN 1006 ELSE IF OJ6 THEN 1005 1004 LOCATE 12,1PRINT pa$(
6)"LEAGUE CUP ROUND"OJpa$(3)RETURN 1005 LOCATE 9,1PRINT pa$(6)"LEAGUE CUP QUAR
TER FINAL"pa$(3)RETURN 1006 LOCATE 10,1PRINT pa$(6)"LEAGUE CUP SEMI FINAL"pa$(
3)RETUDOW #1,4,37,3,22PAPER 1PAPER #1,3CLSCLS#1IF J1 THEN GOSUB 1003 ELSE GOSUB
1008 1038 LOCATE 5,2PRINT pa$(6)"DIV"pa$(1)LOCATE 34,2PRINT pa$(6)"DIV"pa$(1)PR
INTGOSUB 996F1FOR K1 TO INT(RB/2)FOR I0 TO 1 1039 IF L(F)0 THEN FF+1GOTO 1039
1040 Z(J+I,K)L(F)L(F)0GOSUB 1047FF+1 1041 NEXTNEXT 1042 LOCATE 14,23PRINT PA$(
2)"PLEASE WAIT "PA$(1)FOR I1 TO INT(RB/2)GOSUB 997IF J1 AND Y$(Z(J,I))Z$ THEN A
$(1,MT)"H"+y$(Z(J+1,I))+" "+CHR$(RY)GOTO 1046 1043 IF J1 AND Y$(Z(J+1,I)RN 1
007 LOCATE 13,1PRINT pa$(6)"LEAGUE CUP FINAL"pa$(3)RETURN 1008 IF OK8 THEN 101
2 ELSE IF OK7 THEN 1011 ELSE IF OK6 THEN 1010 1009 LOCATE 13,1PRINT pa$(6)"FA
CUP ROUND"OKpa$(3)RETURN 1010 LOCATE 11,1PRINT pa$(6)"FA CUP QUARTER FINAL"pa$
(3)RETURN 1011 LOCATE 12,1PRINT pa$(6)"FA CUP SEMI FINAL"pa$(3)RETURN 1012 L
OCATE 15,1PRINT pa$(6)"FA CUP FINAL"pa$(3)RETURN 1013 LOCATE 5,2PRINT pa$(6)"D
IV"LOCATE 34,2PRINT "DIV"RB2FOR IET TO EROEABS(Y$(Z(J,I))Z$ OR Y$(Z(J+1,)Z$ THEN
A$(1,MT)"A"+Y$(Z(J,I))+" "+CHR$(RZ)GOTO 1046 1044 IF J3 AND Y$(Z(J+1,I))Z$ TH
EN A$(2,MS)"A"+Y$(Z(J,I))+" "+CHR$(RZ)GOTO 1046 1045 IF J3 AND Y$(Z(J,I))Z$ TH
EN A$(2,MS)"H"+Y$(Z(J+1,I))+" "+CHR$(RY) 1046 NEXTRETURN 1047 RDINT ((Z(J+I,
K)+19)/20)+48RDRD+ABS(RD53)*25IF I0 THEN PRINT #1,TAB(3)pa$(3+ABS(y$(z(j,k))z$)*
3)CHR$(RD)" "Y$(Z(J,K))pa$(3)" v "RETURN 1048 PRINT #1,pa$(3+ABS(y$(z(j+1,k
))z$)*3)Y$(Z(J+I,K))" "CHR$(RD)RETURN 1049 FOR ZX11 TO 64L(ZX1)0NEI))Z$) 101
4 RDINT ((Z(J,I)+19)/20)REINT ((Z(J+1,I)+19)/20)AYRD+48AYAY+ABS(AY53)*25AZRE+48A
ZAZ+ABS(AZ53)*25D$CHR$(AY)+" "+Y$(Z(J,I))+" v "+Y$(Z(J+1,I))+" "+CHR$(AZ)
1015 PRINT #1,PA$(3)TAB(3)pa$(3+ABS(y$(z(j,i))z$ OR y$(z(j+1,i))z$)*3)D$IF NK1 A
ND OE0 THEN 1022 1016 rbRB+1NEXTIF ER1 THEN GOSUB 1050 1017 IF J1 AND OJ1 AND
OJ4 AND ET1 OR J3 AND OK1 AND OK4 AND ET1 OR NK1 THEN 1035 ELSE 1020 1018 GOTO
1035 1019 ETER+1ERER+ABS(J1 AND OJ2 OR J3 AND OK2)*6+ABS NAFBGCHDIEXTNK0CV1GOT
O 87 1050 IF J1 THEN RA14+ABS(Y$(Z(J+1,1))Z$)*2RB14+ABS(RA14)*2X$STR$(R)MID$(D$
,RA,1)RIGHT$(X$,1)X$STR$(S)MID$(D$,RB,1)RIGHT$(X$,1)P$(1)D$ 1051 IF J3 THEN RA1
4+ABS(Y$(Z(J+1,1))Z$)*2RB14+ABS(RA14)*2X$STR$(R)MID$(D$,RA,1)RIGHT$(X$,1)X$STR$(
S)MID$(D$,RB,1)RIGHT$(X$,1)P$(2)D$ 1052 RETURN 1053 BORDER 0WINDOW #1,4,37,3,
22PAPER 1PAPER #1,3CLSCLS#1IF J1 AND OJ9 OR J3 AND OK9 THEN 1054 ELSE 1001 1054
OKOK-ABS(J3 AND OK9)OJOJ-ABS(J1 AND OJ9)CLSI1001 FOR y1 TO 20IF j(y)42 AND u(y)
1 THEN iyGOSUB 200 1002 IF u(y)0 THEN 1004 1003 u(y)u(y)-1IF u(y)0 THEN h(y)h(
y)-0.4j(y)32+ABS(e(1,y)0)*50GOSUB 525 1004 x(y)ABS(x(y))+ABS(y12)NEXTIF aaa1 TH
EN 1009 1005 meme+ABS(r1s1)*INT(me/2)-ABS(R1S1)*INT(ME/2)meINT(me)-ABS(me99)*AB
S(me-99)IF me2 THEN me2 1006 FOR y1 TO 11IF t(y)2 AND h(y)0 THEN h(y)h(y)+ABS(r
1s1)/20-ABS(r1s1)/25GOTO 1008 1007 IF h(y)0 THEN h(y)h(y)+ABS(r1s1)/20-ABS(r1s1
)*0.06+ABS(s10)*0.03 1008 GOSUB 52F J3 THEN GOSUB 1008 ELSE GOSUB 1003 1055 OJ
OJ+ABS(OJ8 AND J1)OKOK+ABS(OK8 AND J3)LOCATE 6,3IF J1 THEN PRINT P$(1)GOTO 1021
ELSE PRINT P$(2)GOTO 1021 1057 GOTO 1021 1058 IF J3 THEN GOSUB 1008 ELSE GOSUB
1003 1059 GOTO 1013 1060 RCABS(RD-RE)RFABS(RERD)R-1+INT(RND*7)RR-ABS(RF0)*RCR
R+ABS(R0)*ABS(R)S-1+INT (RND*6)SS-ABS(RF1)*RCSS+ABS(S0)*ABS(S) 1061 IF INT(R)IN
T(S) THEN LOCATE 19,RB+1PRINT pa$(3)USING"#"INT(R)PRINT "v"USING"#"INT(S)FOR N1
TO 800NEXTLOCATE 4,RB3NEXTaaABS(r1s1) 1009 RETURN )( r s)u( s)u" a( r s)-0.4j
(y)32+ABS(e(1,y)0)*50GOSUB 525 1004 x(y)ABS(x(y))+ABS(y12)NEXTIF aaa1 THEN 1009
1005 meme+ABS(r1s1)*INT(me/2)-ABS(R1S1)*INT(ME/2)meINT(me)-ABS(me99)*ABS(me-99
)IF me2 THEN me2 1006 FOR y1 TO 11IF t(y)2 AND h(y)0 THEN h(y)h(y)+ABS(r1s1)/20
-ABS(r1s1)/25GOTO 1008 1007 IF h(y)0 THEN h(y)h(y)+ABS(r1s1)/20-ABS(r1s1)*0.06+
ABS(s10)*0.03 1008 GOSUB 52+1PRINT PA$(6)"R"PA$(3)EAZ(J,I)Z(J,I)Z(J+1,I)Z(J+1,I
)EAPRINT#1,CHR$(11)GOTO 1014 1062 GOTO 1023 (J1 AND OJ6 OROTO 1021 ELSE PRINT
P$(2)GOTO 1021 1057 GOTO 1021 1058 IF J3 THEN GOSUB 1008 ELSE GOSUB 1003 1059
GOTO 1013 1060 RCABS(RD-RE)RFABS(RERD)R-1+INT(RND*7)RR-ABS(RF0)*RCRR+ABS(R0)*A
BS(R)S-1+INT (RND*6)SS-ABS(RF1)*RCSS+ABS(S0)*ABS(S) 1061 IF INT(R)INT(S) THEN L
OCATE 19,RB+1PRINT pa$(3)USING"#"INT(R)PRINT "v"USING"#"INT(S)FOR N1 TO 800NEXTL
OCATE 4,RB1001 FLAG0FOR I1 TO 18IF N(1,I)0 THEN FLAGii19 1002 NEXTIF FLAG0 THEN
RA0GOTO 1027 1003 iflagMCMC+1N(1,I)JIN(2,I)JHB$Y$(JI)+CHR$(32)+"P"+CHR$(32)+CH
R$(32)+"P"+CHR$(32)+Y$(JH)GOTO 1028 1008 FLAG0FOR I1 TO 20IF T$(I)Y$(ET) THEN
KHIFLAG1 1009 NEXTIF FLAG1 THEN RETURN 1010 PRINT#5,PA$(6)W$(ID)RIGHT$(STR$(S
),1)+RIGHT$(STR$(R),1)IDID+ABS(ID38)FLAG0FOR I37 TO 1 STEP -2IF CJI THEN FLAG1
1011 NEXTIF FLAG THEN 1017 1012 JIV-1JHV+1GOSUB 875 1013 IF Y$(JI)Z$ T1001 INK
0,15INK 1,26INK 2,13INK 3,0BORDER 15 CLSPEN 3LOCATE 11,21PRINT "CHANGE LEVELS
MENU" 1002 REM 1003 IF AB0 THEN PEN 2+(jt-1)LOCATE 17,9PRINT"3 EASY" 1004 IF
AB1 THEN PEN 2+(jt0)LOCATE 17,11PRINT"2 NORM" 1005 PEN 2+(jt1)LOCATE 17,13PRINT
"1 HARD" 1006 GOSUB 851GOSUB 64000IF in$"M" THEN 900 1007 IF in$"C" THEN 1006
1008 PEN 3LOCATE 5,17INPUT "Which level"raIF ra1 OR (2-RA)AB OR ra3 THEN 1008 E
LSE JT2-RAABJTGOTO 1001 J R A J HEN JIJI-1GOSUB 875 1014 GOSUB 1022IF Y$(JH
)Z$ THEN JHJH+1GOSUB 875 1015 GOSUB 1023 1016 JIJI-1JHJH+1GOSUB 875GOTO 1013
1017 JIV+1JHV-1GOSUB 878 1018 IF Y$(JI)Z$ THEN JIJI+1GOSUB 878 1019 GOSUB 1022
IF Y$(JH)Z$ THEN JHJH-1GOSUB 878 1020 GOSUB 1023 1021 JIJI+1JHJH-1GOSUB 878GOT
O 1018 1022 ETJIR$Y$(JI)GOSUB 1008KIKHRETURN 1023 ETJHS$Y$(JH)GOSUB 1008R1+IN
T(RND*8)+(ABS(KIKH )*2)-5RR+ABS(R0)*ABS(R) 1024 S1+INT(RND*7)+(ABS(KHKI)*2)-5SS
+ABS(S0)*ABS(S) 10 $$$ ,£ "Which level" r r ( R) A r J R A J K , ,
, , , "CHANGE LEVELS MENU"0 A ( j) ,"3 EASY"0 A ( j) ,"2 NORM"$ ( j)
, "1 HARD"" S i"M" i"C" t ,£ "Which level" r r ( R) A r J R A J
N A F B G C H D I E25 IB60-ABS(CI29 AND CI42)*55RA1+INT(RND*IB)IF RA5 THEN 1027
1026 GOTO 1001 1027 B$Y$(JI)+STR$(R)+CHR$(32)+STR$(S)+CHR$(32)+Y$(JH) 1028 P
RINT #5,pa$(6)" "B$" "pa$(1)CLCL+1IF RA5 THEN 1030 1029 GOSUB 1051 1030 IF CL
23 THEN GOSUB 891CL14GOSUB 887GOSUB 1057K(NS,2)AGGOTO 412 1031 RETURN 1032 GO
TO 445 ) A JIN(2,I)JHB$H)GOSUB 1008R1+INT(RND*8)+(ABS(KIKH )*2)-5RR+ABS(R0)*
ABS(R) 1024 S1+INT(RND*7)+(ABS(KHKI)*2)-5SS+ABS(S0)*ABS(S) 10$(21)V$(21)+SPACE
$(8-LEN(V$(21)))PRINT#6+ABS(BK1),pa$(6)" "V$(21)" "USING"##"NPRINT#6+ABS(BK1),"
"JCJC+ABS(CQ1) 1008 AQAQ+ABS(AR7)*13ARAR+ABS(AR7)-ABS(AR7)*3RETURN 1009 GOSUB
1020IF BN1 THEN 1011 1010 FOR M1 TO BNRA0+INT (RND*8)LALA+ABS(RAINT (ei1/2))NE
XT 1011 IF BO1 THEN 1013 1012 FOR M1 TO BORAINT (RND*(8+ABS(AP1)))LBLB+ABS(RAI
NT (BA/2))NEXT 1013 RALA+LBIF RA8 THEN LALA-1LBLB-1GOTO 1013 1014 LALA-RIF LA
0 THEN LA0GOTO 1016 1015 FOR M1 TO LAB(M) C C w ! ( N,) A JIN(2,I)JH
B$)( )H (E)(( K K)) ( )( )M I( C C*)7 R(E I) R A( J)( )( )( )( )( J)G #,p
()" "" "p() C C R F C C w ! ( N,) A (N+2)+INT (RND*(MD-1))C(M)1NEXT 10
16 LBLB-SIF LB0 THEN LB0RETURN 1017 FOR M(LA+1) TO (LB+LA)B(M)(N+2)+INT (RND*(
MD-1))C(M)2NEXTRETURN 1018 ' 1019 ' 1020 RA0+INT (RND*4)MD90+RARA1+INT (RND*3
)BN0BO0LA0LB0GOSUB 1023BNBN+ABS(BDBB)*BB+ABS(BDBB)*BD-INT (EJ/2)+ABS(BK1)-ABS(AA
1)-ABS(BJ 3)+ABS(RA1 AND ME 80)-ABS(RA3 AND ME30)-ABS((PV-PU)29) 1021 ' 1022 R
A1+INT (RND*5)BOBO+ABS(ELEK)*EK+ABS(ELEK)*EL-INT (BC/2)-ABS(BCBB AND BBBD)+ABS(R
A1 AND MM 80)-ABS(RA3 A1001 FOR IQ1 TO 8A(IQ)0NEXTFOR et1 TO 8 1002 F1+INT(RND*
64) 1003 RA81+INT(RND*16) 1004 FOR X1 TO 8 1005 IF A(X)RA THEN RA81+INT(RND*1
6)GOTO 1005 1006 NEXTIF x99 THEN 1003 1007 IF L(F)0 THEN GOSUB 1016 ELSE GOSUB
1015GOTO 1007 1008 NEXTET41 1009 F1+INT(RND*64) 1010 IF L(F)0 THEN 1012 101
1 L(F)ETETET+1IF ET81 THEN RETURN ELSE 1009 1012 FF+1FF-ABS(F65)*64GOTO 1010 1
013 REM 1014 REM 1015 FF+1FF-ABS(F65)*64RETURN 1016 A(ET)RAL(F)RARETURN G0FO
R X1 TO ET-ND MM 30)-ABS((PU-PV)29)RETURN 1023 FOR zx991 TO 8b(zx99)0c(zx99)0NE
XTRETURN 2 1003 PRINT#6+ABS(BK2),pa$(6)" "VD-1))C(M)2NEXTRETURN 1018 ' 1019
' 1020 RA0+INT (RND*4)MD90+RARA1+INT (RND*3)BN0BO0LA0LB0GOSUB 1023BNBN+ABS(BDBB
)*BB+ABS(BDBB)*BD-INT (EJ/2)+ABS(BK1)-ABS(AA1)-ABS(BJ 3)+ABS(RA1 AND ME 80)-ABS(
RA3 AND ME30)-ABS((PV-PU)29) 1021 ' 1022 RA1+INT (RND*5)BOBO+ABS(ELEK)*EK+ABS(
ELEK)*EL-INT (BC/2)-ABS(BCBB AND BBBD)+ABS(RA1 AND MM 80)-ABS(RA3 A+ ( A)) (
E) R ( ) RAG0FOR X1 TO ET-0 I ( I) e (E) RQ(E) 2 ( ) R RQ(E) c *
( ) E) (E) ( ) 9 ( ) E E E EQ / ( A) 1001 MO1CLSIF CV1 AND BK2
AND CS2 THEN 1003 ELSE IF CV1 AND BK2 AND CS3 THEN 1004 1002 IF AP3 AND BK2 OR
AP2 AND NI0 AND BK1 OR BK1 AND NI0 AND AP3 THEN 1004 1003 REM 1004 IF MJMI AND
MKMH AND MLMG THEN MJSDMKSEMLSF 1005 RETURN $$$ M S AND BK2 AND CS2 th
en 1003 else if CV1 AND BK2 AND CS3 then 1004 1002 if AP3 ANDY BAS%Y1
BASSCRD BIN1001 Y1+INT (RND*3)IF Y1 THEN 1004 1002 Y2+INT (RND*10)IF T(Y)0
OR T(Y)4 THEN 1002 1003 PRINT#6+ABS(BK2),pa$(6)" "V$(Y)" "USING"##"NPRINT#6+AB
S(BK2)," "E(1,Y)E(1,Y)-ABS(E(1,Y)0)+ABS(E(1,Y)-1)E(2,Y)E(2,Y)+1H(Y)H(Y)+0.04JBJB
+ABS(CQ1)GOTO 1008 1004 Y2+INT (RND*10)IF T(Y)4 THEN 1004 ELSE GOTO 1003 1005
E(1,1)E(1,1)-ABS(E(1,1)0 AND BA0)+ABS(E(1,1)-1 AND BA0)E(2,1)E(2,1)+ABS(BA0) 10
06 GOSUB 98V$(21)CHR$(Z9)+"."+MID$(H$,RC,1)+MID$(M$,RB,1)+MID$(H$,RD,1)+E$(RA)
1007 V NAFBGCHDIE1001 IF CV1 OR CQ1 OR CP1 THEN 1003 1002 DN50000+INT(RND*1000
0)DNINT(DN/AP)/APDNDN-((1250/AP)/AP)*AGDNDN-((1250/AP)/AP)*MNDNDN+(AP1)*(DN/3)GO
TO 1007 1003 IF CQ1 OR CP1 THEN CS1CXABS(CQ1)*GZ+ABS(CP1)*6GOTO 1005 1004 CXCR
IF CTCX THEN CXCT 1005 DN(7000+INT(RND*2000))*(CX+2)IF BK1 THEN DNINT(DN/AP)GOT
O 1007 1006 DNINT(DN/CS) 1007 RAINT((200/AP)/AP)RB3+INT(RND*(RA-3))OLINT(50*RB
)O1NINT(4+INT(RND*10000))/APIF BK2 THEN 1013 1008 DZ(5-AP)IF INT(NJ)DZ THEN RAI
NT(NJ1051 FL1+INT (RND*18)RA1+INT (RND*2)IF BU80 AND RA2 THEN RETURN 1052 GOSU
B 892IF BU81 AND FL11 THEN 1064 1053 IF ET13 OR T(FL)0 OR J(FL)42 OR J(FL)82 TH
EN RETURN 1054 FOR I13 TO 20IF T(I)0 THEN IEIJS0i99 1055 NEXTIF i100 THEN JS1
RETURN 1056 IF BU81 AND RA2 THEN 1063 1057 RAINT ((60/100)*Y(2,2))U(FL)0+INT
(RND*32)-8RBINT ((ABS(U(FL))/100)*RA)U(FL)ABS(U(FL)-RB)U(FL)U(FL)-ABS(U(FL)0)*U(
FL)U(FL)U(FL)+ABS(U(FL)0)J(FL)35IF BU80 THEN 1060 1058 LOCATE 13,18PRI-DZ)DN(DN
/RA)GOSUB 1011GOTO 1010 1009 IF INT(NJ)DZ THEN RAINT(DZ-INT(NJ))*(1000/AP)DNDN+
RAGOSUB 1011 1010 GOSUB 1015RETURN 1011 RA(100000/AP)/APRARA+(AP3 AND NI0)*(R
A/2)IF DNRA THEN DNRA 1012 DNDN-(DN0)*ABS(DN)DNDN+1+INT(RND*50) 1013 IF AP3 AN
D NI0 AND DN18721 THEN DN18721 1014 GOTO 1010 1015 PGPG+ABS(PG0)*INT(DN)PFPF+A
BS(PF0)*INT(DN)IF AAA0 AND DNPF THEN PFINT(DN) 1016 IF AAA0 AND DNPG THEN PGINT
(DN) 1017 RETURN P P( D) ((1250/AP)/ANT V$(FL)" INJURED",TAB(11)V$(12)" SUB
STITUTED"IF MP1 THEN LOCATE 11,19PRINT Z$" HAVE TEN MEN"GOTO 1061 1059 MP1LOCA
TE 1,22PRINT SPACE$(40)GOTO 1061 1060 PRINT V$(FL)" INJURED FOR "U(FL)" WEEK"+C
HR$ (32+ABS(U(FL)1)*51) 1061 I12ADFLGOSUB 652IIEAD12GOSUB 652IF BU81 THEN GOSUB
332GOSUB 1009 1062 RETURN 1063 U(FL)2J(FL)83LOCATE 12,18PRINT V$(FL)" SENT O
FF",TAB(10)Z$" HAVE TEN MEN"IIEADFLGOSUB 652GOSUB 332GOSUB 1009C(8)2B(8)INT (N+(
(MD-N)/2))RETURN 1064 GO1001 INK 0,10BORDER 10CLSLOCATE 9,12PRINT "ENTER NAME
OF SAVED GAME" 1002 INPUT#2,x$CLS#2IF LEN(x$)1 OR LEN(x$)8 THEN 1002 ELSE 1012
1003 CLSLOCATE 17,12PRINT pa$(3)"SAVING"pa$(1)RETURN 1004 GOSUB 1001CLSCHAIN M
ERGE "cl",1011 1005 GOSUB 1007GOTO 1004 1006 CLSGOSUB 1001CLSCHAIN MERGE "cs",
1010 1007 CLSLOCATE 16,12PRINT pa$(3)"LOADING"pa$(1)RETURN 1008 CLSLOCATE 6,12
PRINT PA$(6)" PLEASE INSERT ORIGINAL DISC "GOSUB 1009CHAIN MERGE"m2",6 1009 LOC
ATE 6,13PRINT PA$(2)" PRESSSUB 98V$(21)CHR$(Z9)+"."+MID$(H$,RC,1)+MID$(M$,RB,1)+
MID$(H$,RD,1)+E$(RA)LOCATE 11,18 PRINT pa$(3)" "V$(21)" SENT OFF "pa$(1),TAB(9)p
a$(3)" "S$" HAVE TEN MEN "pa$(1)C(8)1B(8)INT (N+((MD-N)/2))RETURN "13",-VE T
EN MEN"OSUB 652IIEAD12GOSUB 652IF BU81 THEN GOSUB 332GOSUB 1009 1062 RETURN 1
063 U(FL)2J(FL)83LOCATE 12,18PRINT V$(FL)" SENT OFF",TAB(10)Z$" HAVE TEN MEN"IIE
ADFLGOSUB 652GOSUB 332GOSUB 1009C(8)2B(8)INT (N+((MD-N)/2))RETURN 1064 GO SPAC
E BAR TO CONTINUE "pa$(1)WHILE INKEY(47)-1WENDRETURN 1010 LOCATE 4,12PRINT PA$(
5)"PLEASE INSERT BLANK FORMATED DISC"pa$(1)GOSUB 1009GOSUB 1003GOTO 1012 1011 L
OCATE 6,12PRINT PA$(6)"PLEASE INSERT SAVED GAME DISC"pa$(1)GOSUB 1009GOSUB 1007
1012 FOR I1 TO LEN(X$)IF ASC(MID$(X$,I,1))65 OR ASC(MID$(X$,I,1))90 THEN I98 1
013 NEXTIF I99 THEN 1001 ELSE RETURN $$$b c 1002 input#2,x$cls#2if l
en(x$)1 or len(x$)8 then 1002 1003 return 1 NAFBGCHDIE1012 OPENIN x$FOR i1 TO
106INPUT#9,y$(i)NEXTFOR n%1 TO 2FOR i%1 TO 64INPUT#9,v(n%,i%)NEXT i%,n% 1013 F
OR n%1 TO 8INPUT#9,b(n%)NEXTFOR n%1 TO 8INPUT#9,c(n%)NEXTFOR n%1 TO 28INPUT#9,e(
1,n%),e(2,n%),e(3,n%)NEXT 1014 FOR n%1 TO 20INPUT#9,f(1,n%),f(2,n%)NEXT 1015 F
OR n%1 TO 28INPUT#9,g(n%)NEXT 1016 FOR n%1 TO 28INPUT#9,h(n%)NEXT 1017 FOR n%1
TO 2FOR a%1 TO 4FOR b%1 TO 4INPUT#9,i(n%,a%,b%)NEXT b%,a%,n% 1018 FOR n%1 TO 2
8INPUT#9,j(n%)NEXT 1019 FOR n%1 TO 12FOR a%1 )£#,(),()a £#,() £#,() &£#,(
)£#, m, m, m, m, m, m, m, m, m, m, m, m, m, m, m, m, m, m, m, mh£#, n, n, n, n,
n, n, n, n, n, n, n, n, n, n, n, n£#, o, o, o, o, O1, o, o, o, o, o, o, o, o, o£
#, p, p, p, p, p, p, p, p, p, pTO 8INPUT#9,k(n%,a%)NEXT a%,n% 1020 FOR n%1 TO 2
0INPUT#9,d(n%)NEXT 1021 FOR i%1 TO 64INPUT#9,l(i%)NEXT 1022 FOR i%1 TO 8INPUT#
9,m(i%)NEXT 1023 FOR n%1 TO 2FOR a%1 TO 18INPUT#9,n(n%,a%)NEXT a%,n% 1024 FOR
n%1 TO 2FOR a%1 TO 3INPUT#9,o(n%,a%)NEXT a%,n% 1025 FOR n%1 TO 20INPUT#9,p(n%)
NEXT 1026 FOR n%1 TO 2FOR a%1 TO 4INPUT#9,q(n%,a%)NEXT a%,n% 1027 FOR n%1 TO 2
8INPUT#9,t(n%)NEXT 1028 FOR n%1 TO 28INPUT#9,u(n%)NEXT 1029 FOR n%1 TO 20INPUT
#9,w(n%)NEXT 1030 FOR n%1012 OPENOUT x$FOR i1 TO 106WRITE#9,y$(i)NEXTFOR n%1 TO
2FOR i%1 TO 64WRITE#9,v(n%,i%)NEXT i%,n% 1013 FOR n%1 TO 8WRITE#9,b(n%)NEXTFOR
n%1 TO 8WRITE#9,c(n%)NEXTFOR n%1 TO 28WRITE#9,e(1,n%),e(2,n%),e(3,n%)NEXT 1014
FOR n%1 TO 20WRITE#9,f(1,n%),f(2,n%)NEXT 1015 FOR n%1 TO 28WRITE#9,g(n%)NEXT
1016 FOR n%1 TO 28WRITE#9,h(n%)NEXT 1017 FOR n%1 TO 2FOR a%1 TO 4FOR b%1 TO 4WR
ITE#9,i(n%,a%,b%)NEXT b%,a%,n% 1018 FOR n%1 TO 28WRITE#9,j(n%)NEXT 1019 FOR n%
1 TO 12FOR a%11 TO 28INPUT#9,x(n%)NEXT 1031 FOR n%1 TO 6FOR a%1 TO 12INPUT#9,y(
n%,a%)NEXT a%,n% 1032 FOR n%1 TO 4FOR a%1 TO 32INPUT#9,z(n%,a%)NEXT a%,n% 103
3 FOR n%1 TO 2FOR a%1 TO 8INPUT#9,a$(n%,a%)NEXT a%,n%INPUT#9,b$,f$,g$,r$,s$,k$
1034 FOR n%1 TO 12INPUT#9,i$(n%)NEXTFOR n%1 TO 3INPUT#9,j$(n%)NEXT 1035 FOR n%1
TO 8INPUT#9,o$(n%)NEXT 1036 FOR n%1 TO 5FOR a%1 TO 4INPUT#9,l$(n%,a%)NEXT a%,n
% 1037 FOR n%1 TO 8INPUT#9,o$(n%)NEXTINPUT#9,p$(1),p$(2) 1038 FOR n%1 TO 20INP
UT#9,t TO 8WRITE#9,k(n%,a%)NEXT a%,n% 1020 FOR n%1 TO 20WRITE#9,d(n%)NEXT 1021
FOR i%1 TO 64WRITE#9,l(i%)NEXT 1022 FOR i%1 TO 8WRITE#9,m(i%)NEXT 1023 FOR n%
1 TO 2FOR a%1 TO 18WRITE#9,n(n%,a%)NEXT a%,n% 1024 FOR n%1 TO 2FOR a%1 TO 3WRIT
E#9,o(n%,a%)NEXT a%,n% 1025 FOR n%1 TO 20WRITE#9,p(n%)NEXT 1026 FOR n%1 TO 2F
OR a%1 TO 4WRITE#9,q(n%,a%)NEXT a%,n% 1027 FOR n%1 TO 28WRITE#9,t(n%)NEXT 1028
FOR n%1 TO 28WRITE#9,u(n%)NEXT 1029 FOR n%1 TO 20WRITE#9,w(n%)NEXT 1030 FOR n
$(n%)NEXTFOR n%1 TO 28INPUT#9,v$(n%)NEXTFOR n%1 TO 38INPUT#9,w$(n%)NEXT 1039 IN
PUT#9,ma,mb,mc,md,me,mf,mm,mn,mo,mp,mq,mr,ms,mt,mu,mv,mw,mx,my,mz 1040 INPUT#9,
na,nb,nc,ni,nj,nm,nn,no,np,nq,nr,ns,nt,nu,nv,nw 1041 INPUT#9,ob,oj,ok,ol,O1N,op
,oq,os,ot,ov,ow,ox,oy,oz 1042 INPUT#9,pa,pb,pc,pd,pe,pf,pg,pu,pv,pt,z7,z6,ai,z$
1043 INPUT#9,aa,ab,ad,ae,ag,ah,ai,ak,am,ap,as,au,ay,az 1044 INPUT#9,ba,bb,bc,
bd,be,bj,bk,bl,bn,bo,bp,bu,bx 1045 INPUT#9,cf,ci,cj,ck,cl,cm,cn,co,cp,cq,cr,cs,
ct,cv,cw,cz 1046 INPUT%1 TO 28WRITE#9,x(n%)NEXT 1031 FOR n%1 TO 6FOR a%1 TO 12
WRITE#9,y(n%,a%)NEXT a%,n% 1032 FOR n%1 TO 4FOR a%1 TO 32WRITE#9,z(n%,a%)NEXT
a%,n% 1033 FOR n%1 TO 2FOR a%1 TO 8WRITE#9,a$(n%,a%)NEXT a%,n%WRITE#9,b$,f$,g$,
r$,s$,k$ 1034 FOR n%1 TO 12WRITE#9,i$(n%)NEXTFOR n%1 TO 3WRITE#9,j$(n%)NEXT 10
35 FOR n%1 TO 8WRITE#9,o$(n%)NEXT 1036 FOR n%1 TO 5FOR a%1 TO 4WRITE#9,l$(n%,a%
)NEXT a%,n% 1037 FOR n%1 TO 8WRITE#9,o$(n%)NEXTWRITE#9,p$(1),p$(2) 1038 FOR n%
1 TO 20WRITE#9,#9,dk,dn,do,dt,dw,dx,dz,ea,ed,ee,ef,eI1,ej,ek,el,eo,ep,et,ev 104
7 INPUT#9,fl,ft,fu,gz,ha,hc,hd,he,hh,hr,hs,ht,hu,hv,ia,id,ie,jb,jc,jf,ji,jk,jl,j
m,jn,jp,jq,js,jt,ju,jv,jw,ka,kc,kd 1048 INPUT#9,nl,nf,pa,pb,pc,pd,pe,pf,pg,pt,p
u,pv,pz,sa,sb,sc,sd,se,sf,sg,sh,si,sj,sk,ua,aaa,pts,v,FD 1049 CLOSEINGOTO 1008
, F $aa 1011 FOz 1044 INPUT#9,ba,bb,bc,bd,be,bj,bk,bl,bn,bo,bp,bu,bx 1
045 INPUT#9,cf,ci,cj,ck,cl,cm,cn,co,cp,cq,cr,cs,ct,cv,cw,cz 1046 INPUT N A F
B G C H D I Et$(n%)NEXTFOR n%1 TO 28WRITE#9,v$(n%)NEXTFOR n%1 TO 38WRITE#9,w$(n%
)NEXT 1039 WRITE#9,ma,mb,mc,md,me,mf,mm,mn,mo,mp,mq,mr,ms,mt,mu,mv,mw,mx,my,mz
1040 WRITE#9,na,nb,nc,ni,nj,nm,nn,no,np,nq,nr,ns,nt,nu,nv,nw 1041 WRITE#9,ob,o
j,ok,ol,O1N,op,oq,os,ot,ov,ow,ox,oy,oz 1042 WRITE#9,pa,pb,pc,pd,pe,pf,pg,pu,pv,
pt,z7,z6,ai,z$ 1043 WRITE#9,aa,ab,ad,ae,ag,ah,ai,ak,am,ap,as,au,ay,az 1044 WRI
TE#9,ba,bb,bc,bd,be,bj,bk,bl,bn,bo,bp,bu,bx 1045 WRITE#9,cf,ci,cj,ck,cl,cm,cn,c
o,cp,cq,cr,cs,ct,cv,cw,cz 1046 WRITDISC BASp..Ko&ymhbp"cUjE $&#)u(,,.,+t#!zf
z1M#zCO£7QPgf,5'5f%ZPC/qo&y,"AE1 Z8Si0N.jB1ICs3 'XvJ75!K(8"2b0gTdRl$Q/X0yNQ3h.1B
WEQ/$/z7t6!/n3£59ty7E#9,dk,dn,do,dt,dw,dx,dz,ea,ed,ee,ef,EI1,ej,ek,el,eo,ep,et,e
v 1047 WRITE#9,fl,ft,fu,gz,ha,hc,hd,he,hh,hr,hs,ht,hu,hv,ia,id,ie,jb,jc,jf,ji,j
k,jl,jm,jn,jp,jq,js,jt,ju,jv,jw,ka,kc,kd 1048 WRITE#9,nl,nf,pa,pb,pc,pd,pe,pf,p
g,pt,pu,pv,pz,sa,sb,sc,sd,se,sf,sg,sh,si,sj,sk,ua,aaa,pts,v,FD 1049 CLOSEOUTGOT
O 1008 , F 1 TO 64WRITE#9,v(n%,i%)NEXT i%,n% 1012 FOR n%az 1044 WRITE#9,ba,b
b,bc,bd,be,bj,bk,bl,bn,bo,bp,bu,bx 1045 WRITE#9,cf,ci,cj,ck,cl,cm,cn,co,cp,cq,c
r,cs,ct,cv,cw,cz 1046 WRITULIS7EDppRH"K8Wc1S23Eju-'iR Z)SdQW 1/ o&ymhbp"cUjE $&
#)u(,)()Y* , ()"T.HUGGARD & J.DE SALIS"() ,o&y,"AE1 Z8Si0N.jB1ICs3 'XvJ75!K(8"
2b0gTdRl$Q/X0yNQ3h.1BWEQ/$/z7t6!/n3£59ty7)#,(),()a #,() #,() &#,()#, m, m,
m, m, m, m, m, m, m, m, m, m, m, m, m, m, m, m, m, mh#, n, n, n, n, n, n, n, n,
n, n, n, n, n, n, n, n#, o, o, o, o, O1, o, o, o, o, o, o, o, o, o#, p, p, p, p
, p, p, p, p, p, p1064 DATA 170,85,170,85,171,95,174,90,175,127,253,230,212,91,1
65,148,223,255,186,148,87,235,53,234 1065 DATA 122,255,255,75,105,150,229,84,17
0,213,234,253,122,189,78,221,186,125,186,116,244,104,216,232 1066 DATA 171,238,
29,6,1,0,0,0,166,109,145,175,240,126,28,0,174,177,192,0,192,96,16,0 1067 DATA 1
90,93,190,77,62,47,54,29,240,208,208,176,208,240,208,224,0,0,30,0,0,0,0,0 1068
DATA 0,0,3,0,0,124,0,8,0,0,0,0,0,0,60,0,22,31,54,39,62,47,54,31,184,120,248,120,
248,88,208,72 1069 DATA 0,0,60,255,0,126,219,60,1065 IF BK1 THEN 1067 1066 ET
0-(BK2 AND OB1)*CS-(BK2 AND OB0)*APBL(5-ET)*100BLBL+(1+INT(RND*100))BL(INT(DN)*B
L)/100OL0O1N0GOTO 1070 1067 IF BK1 AND OB2 THEN BL(DN*(NJ*100)/100) 1068 GOTO
1070 1069 GOSUB 1051GOTO 87 1070 BLINT(BL/2)FOR I12 TO 54 STEP 7IF CV1 AND CII
THEN I92 1071 NEXTIF I99 THEN 255 1072 FOR I16 TO 58 STEP 7IF CV1 AND CII THE
N I92 1073 NEXTIF I99 THEN 250 1074 IF CQ1 THEN 158ELSE IF CP1 THEN 87 1075 C
V0CQ0R$Z$CHAIN MERGE "13",1069 EN"0,0,0,3,0,1,3,0,0,0,248,254,0,248,182,120 1
070 DATA 62,63,30,11,42,43,50,21,240,112,208,80,208,64,176,80,0,0,0,0,6,8,16,16
1071 DATA 4,4,36,68,0,66,38,24,0,0,0,0,192,32,16,8,7,5,5,5,1,9,14,21,168,84,17
2,84,172,86,171,85,0,1,3,2,0,1,0,0 1072 DATA 126,255,255,0,255,255,0,0,0,192,2
24,32,128,0,0,0,42,53,42,85,106,85,170,85 1073 DATA 171,86,170,86,170,85,170,8
5,0,128,64,32,24,4,131,80,0,0,0,0,0,56,255,0 1074 DATA 0,1,2,4,24,32,192,5,170,
53,42,53,42,85,170,85 87,235,53,234 1065 DATA 122,255,255,75,105h, h, i, i, i,
j, j, j, j, j, j, j, j, j, j, j, j, j, j, j, k, k, k#, n, n, p, p, p, p, p, p,
p, p, p, p, p, s, s, s, s, s, s, s, s, s, s, s, u, aa, pt, , F 1 TO 64WRITE#9,v(
n%,i%)NEXT i%,n% 1012 FOR n%EI, e, e, e, e, e, e, e#, f, f, f, g, h, h, h, h,
h, h, h, h, NAFBGCHDIE"TOTTENHAM" "WEST HAM " "EVERTON " "NOTTS FOR" "LIV
ERPOOL" "ARSENAL " "MAN UTD " "IPSWICH T" "CHELSEA " "WATFORD " "LUTON
T " "COVENTRY " "LEICESTER" "SHEFF WED" "BRMINGHAM" "MAN CITY " "ASTON V
" "QPR " "WEST BROM" "OXFORD U " "CHARLTON " "LEEDS UTD" "FULHAM
" "CRYSTAL P" "NEWCASTLE" "NORWICH " "STOKE C " "BRIGHTON " "OLDHAM A "
"GRIMSBY T" "CARLISLE " "MILLWALL " "BRADFORD " "SHEFF UTD" "BARNSLEY " "
HULL CITY" "BLACKBURN" "WIMBLEDON" "STOCKPORT" "WIGAN A " "YORK CITY" "DO
NCASTER" "LINCOLN C" "BRENTFORD" "WOLVES " "NOTTS C " "BOLTON W " "ROTH
ERHAM" "BRISTOL C" "WALSALL " "DERBY C " "BURY " "NEWPORT C" "CARDIF
F C" "READING " "BLACKPOOL" "PLYMOUTH " "PORTMOUTH" "MIDDLBORO" "WREXHAM
" "ROCHDALE " "HALIFAX T" "ALDERSHOT" "TORQUAY U" "CHESTER C" "PRESTON "
"MANSFIELD" "EXETER C " "PORT VALE" "BURNLEY " "NORTHPTON" "CAMBRIDGE"
"HEREFORD " "ORIENT " "TRANMERE " "PETERBORO" "SWINDON T" "HARTLPOOL" "C
REWE A "DEN" "DS" "RY" "EY" "ON" "WAY" "LE" "BY" "INS" "LEY" "SON" "
TON" "S" "ES" "MAN" "BLE" "NEY" "SEY" "TER" "IS" "ER" "ENS" "DON" "I
NG" "GAN" "LIN" AINING" "H HISTORY" "G GOALSCORERS" "R RE-NEGOTIATE CONTRA
CT" "1 SAVE" V W +W1 X Y !Y1
SCRD BIN" "SWANSEA C" "TELFORD U" "ENFIELD " "WEYMOUTH " "BLYTH S
" "RUNCORN " "BATH CITY" "BARNET " "KETTERING" "DARTFORD " "DUDLEY T "
"BOSTON U " "YEOVIL T " "HITCHIN T" "SLOUGH T " "SOUTHPORT" "MAIDSTONE"
"JUVENTUS " "R MADRID " "B MUNICH " "BARCELONA" "ANDELECHT" "AS ROMA " "H
AMBURG " "D KIEV " "FC BRUGE " "AC MILAN " ,8,12 "BURNLEY " "NORTHPTON
" "CAMBRIDGE" "HEREFORD " "ORIENT " "TRANMERE " "PETERBORO" "SWINDON T"
"HARTLPOOL" "CREWE A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 6 5 4 4 7 7 6 4 7 5 5 6 4 6 7 5 4 7
7 6 4 6 5 7 5 4 7 6 4 6 5 7 6 5 4 5 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 11 9 13 12 9
14 6 6 8 13 11 14 9 7 7 11 11 14 13 7 6 10 10 14 12 13 8
10 12 9 8 10 6 8 12 "ING" "GAN" "LIN" AINING" "H HISTORY" "G GOALS
CORERS" "R RE-NEGOTIATE CONTRACT" "1 SAVE" "P PLAY MATCH" "C CHECK MATCH" "
T TEAM" "O OFFER/NEGOTIATIONS" "A ADDITIONAL MENU" "I INJURIES/GOALS" "B BAN
K" "L LEAGUE TABLE" "F FIXTURES" "S SCOUT" "E EXTRA TRAINING" "H HISTORY"
"G GOALSCORERS" "R RE-NEGOTIATE CONTRACT" "1 SAVE" V W +W1
X Y !Y1 SCRD BIN NAFBGCHDIE1064 DATA 170
,85,170,87,171,87,175,87 1065 DATA 170,95,255,255,255,255,255,255 1066 DATA 17
0,125,255,255,255,255,255,255 1067 DATA 170,213,250,245,254,253,254,255 1068 D
ATA 170,85,170,85,170,85,170,85 1069 DATA 175,95,191,95,191,127,191,127 1070 D
ATA 255,255,255,255,252,240,224,128 1071 DATA 255,255,255,224,0,0,0,0 1072 DAT
A 254,255,255,63,87,19,19,1 1073 DATA 170,213,234,245,250,253,250,253 1074 DAT
A 190,126,190,126,254,126,252,120 1075 DATA 0,0,4,4,4,2,0,0 1076 DATA 0,0,0,0,
0,0,0,0 1077 DATA 1064 DATA 170,85,170,85,170,85,171,87 1065 DATA 170,85,175,9
5,255,255,255,255 1066 DATA 170,117,255,255,255,255,255,255 1067 DATA 170,85,2
34,253,254,255,255,255 1068 DATA 170,85,170,85,170,85,170,213 1069 DATA 175,95
,191,127,191,127,254,124 1070 DATA 255,255,255,255,255,255,7,0 1071 DATA 255,2
55,255,255,255,252,224,0 1072 DATA 255,255,255,255,199,3,3,0 1073 DATA 234,245
,250,253,250,253,254,253 1074 DATA 252,124,252,124,252,124,248,112 1075 DATA 0
,0,0,0,0,0,0,0 1076 DATA 0,0,0,0,0,0,0,0 1077 DAT0,0,0,0,0,0,0,0 1078 DATA 25
0,253,250,253,254,253,126,125 1079 DATA 248,156,168,152,216,80,192,96 1080 DA
TA 127,0,3,63,255,0,7,0 1081 DATA 8,213,227,227,227,67,129,0 1082 DATA 254,1
28,192,252,255,0,224,0 1083 DATA 62,125,57,57,185,27,18,21 1084 DATA 248,120
,200,80,208,72,160,88 1085 DATA 0,0,0,0,0,2,4,8 1086 DATA 2,0,65,128,128,99,
34,28 1087 DATA 0,0,0,0,0,64,32,16 1088 DATA 22,61,6,21,54,37,10,53 1089 DA
TA 168,88,168,88,172,84,172,86 1090 DATA 0,0,0,9,19,16,16,0 1091 DATA 0,0,47,
254A 0,0,0,0,0,0,0,0 1078 DATA 254,125,126,125,126,125,62,29 1079 DATA 240,240
,224,96,192,65,194,80 1080 DATA 0,0,255,29,126,255,0,62 1081 DATA 80,84,131,
131,3,2,0,0 1082 DATA 0,0,255,240,252,255,0,124 1083 DATA 30,31,29,13,1,137,
77,13 1084 DATA 240,240,240,104,168,104,168,88 1085 DATA 0,0,0,0,0,0,3,4 1
086 DATA 0,2,66,129,128,102,110,0 1087 DATA 0,0,0,0,0,0,96,16 1088 DATA 15,1
5,10,3,10,13,6,29 1089 DATA 172,84,172,84,172,86,170,85 1090 DATA 16,32,1,3,
1,0,0,0 1091 DATA 0,252,171,169,2,252,0,0,0 1092 DATA 32,48,152,0,0,0,0,0
1093 DATA 26,21,26,21,42,53,42,85 1094 DATA 171,85,171,85,171,85,170,85 1095
DATA 128,64,32,16,8,5,163,80 1096 DATA 0,0,0,0,84,170,85,255 1097 DATA 1,2,4,8
,16,161,194,21 1098 DATA 170,213,170,213,170,85,170,85 $$$85,255I 1,2,4,8,1
6,161,194,21$J 170,213,170,213,170,85,170,85 170,125,255,255,255,255,255,255 10
676 1088 DATA 22,61,6,21,54,37,10,53 1089 DATA 168,88,168,88,172,84,172,86 1
090 DATA 0,0,0,9,19,16,16,0 1091 DATA 0,0,47,25455,60,0,0 1092 DATA 8,4,128,
192,128,0,0,0 1093 DATA 42,53,42,85,106,85,170,85 1094 DATA 170,86,170,86,170
,86,170,85 1095 DATA 128,128,64,36,19,8,7,64 1096 DATA 0,0,0,8,0,255,0,255 10
97 DATA 1,1,2,36,200,16,224,1 1098 DATA 106,85,106,85,42,85,170,85 $$$,0
,255I 1,1,2,36,200,16,224,1!J 106,85,106,85,42,85,170,85TA 170,117,255,255,255,2
55,255,255 1067 088 DATA 15,15,10,3,10,13,6,29 1089 DATA 172,84,172,84,172,86
,170,85 1090 DATA 16,32,1,3,1,0,0,0 1091 DATA 0,252,171,169,2 NAFBGCHDIE106
4 DATA 170,85,170,85,171,87,174,86 1065 DATA 189,127,247,205,186,55,204,86 106
6 DATA 249,255,183,109,154,183,201,214 1067 DATA 250,253,158,111,179,151,170,83
1068 DATA 170,85,170,85,170,213,234,213 1069 DATA 175,94,185,117,182,125,229,
251 1070 DATA 183,228,63,210,93,246,149,11 1071 DATA 180,170,127,210,85,190,21
3,107 1072 DATA 181,171,94,210,125,149,214,107 1073 DATA 186,93,46,221,190,77,
94,253 1074 DATA 236,212,252,200,216,120,232,216 1075 DATA 6,3,0,0,0,0,0,0 10
76 DATA 86,171,102,32,28,0,0, 252,254,253,244,246,237,201,8 1077 DATA 63,63,23,
23,15,5,2,0 1078 DATA 254,253,254,255,254,255,254,31 1079 DATA 240,241,243,112
,241,115,240,112 1080 DATA 0,255,193,62,127,128,7,56 1081 DATA 40,171,199,195,
131,129,0,0 1082 DATA 0,255,193,60,254,129,96,28 1083 DATA 62,59,146,31,134,15
,10,11 1084 DATA 240,112,208,72,200,104,184,84 1085 DATA 0,0,0,1,2,6,13,24 10
86 DATA 0,0,0,0,0,0,195,60 1087 DATA 0,0,0,128,64,96,176,24 1088 DATA 26,27,18
,37,22,5,58,53 1089 DATA 172,84,172,86,170,86,170,85 1090 D0 1077 DATA 80,224
,0,0,0,0,0,0 1078 DATA 102,119,94,103,94,125,78,125 1079 DATA 184,124,252,100,
208,88,208,68 1080 DATA 0,31,127,0,15,54,127,0 1081 DATA 0,0,193,227,99,99,1
29,66 1082 DATA 0,120,254,0,240,108,254,0 1083 DATA 62,63,30,23,6,7,14,13
1084 DATA 208,80,208,104,200,72,184,88 1085 DATA 0,0,0,1,5,13,24,48 1086 DAT
A 0,0,0,0,0,0,195,60 1087 DATA 0,0,0,128,160,176,24,12 1088 DATA 10,11,10,11
,18,19,30,21 1089 DATA 172,84,170,86,170,86,170,85 1090 DATA 32,32,7,1,0,0,0,
0 1091 DATAATA 16,0,0,1,15,7,0,0 1091 DATA 0,0,0,254,255,255,124,0 1092 DATA
8,0,0,32,192,0,0,0 1093 DATA 42,53,42,53,106,85,106,213 1094 DATA 171,85,171,
85,171,85,170,85 1095 DATA 128,64,32,16,10,5,131,64 1096 DATA 126,66,0,0,16,60
,255,127 1097 DATA 1,2,4,8,80,160,192,5 1098 DATA 106,85,106,85,106,85,170,85
85,175,127,255,255,255,255 1066 DATA 170,85,239,255,255,255,255,255 1067 ,0,0
,0,195,60 1087 DATA 0,0,0,128,64,96,176,24 1088 DATA 26,27,18,37,22,5,58,53 1
089 DATA 172,84,172,86,170,86,170,85 1090 D 0,0,239,251,60,0,2,124 1092 DATA
4,4,224,128,0,0,0,0 1093 DATA 42,53,106,85,106,85,106,213 1094 DATA 171,85,1
71,85,170,85,170,85 1095 DATA 64,32,16,8,5,2,161,80 1096 DATA 0,2,124,0,0,195,
189,126 1097 DATA 2,4,8,16,160,64,128,1 1098 DATA 106,85,106,85,106,85,170,85
4,0,0,195,189,126I 2,4,8,16,160,64,128,1"J 106,85,106,85,106,85,170,85,154,183,
201,214 1067 0,176,24,12 1088 DATA 10,11,10,11,18,19,30,21 1089 DATA 172,84
,170,86,170,86,170,85 1090 DATA 32,32,7,1,0,0,0,0 1091 DATA1001 NP0OC0RXF(2,A
G)RYF(1,AG) 1002 RAINT(RND*5)RZ12+RAME30+INT(RND*20)FOR Y1 TO 20IF YRZ THEN IYG
OSUB 200GOTO 1013 1003 H(Y)ABS(AP-5)+INT(RND*39)/10T(Y)1-(Y1 AND Y6)-(Y5 AND Y9
)*2-(Y8 AND Y12)*3-(Y11)*INT(RND*4)GOSUB 1019 1004 GOSUB 1015 1005 IF RY0 THEN
1009 1006 IF T(Y)1 THEN 1009 1007 IF T(Y)4 THEN E(1,Y)INT(RND*(RY+1))RYRY-E(1
,Y)GOTO 1010 1008 E(1,Y)0+INT (RND*INT(RY/2))RYRY-E(1,Y)GOTO 1010 1009 IF RX0
THEN IF T(Y)1 THEN E(1,Y)0+INT(RND*(RX+1))RXRX-E1064 DATA 170,85,170,85,170,85,1
71,87 1065 DATA 170,85,175,127,255,255,255,255 1066 DATA 170,85,239,255,255,25
5,255,255 1067 DATA 170,85,170,245,254,255,255,255 1068 DATA 170,85,170,85,170
,85,170,213 1069 DATA 175,95,191,127,191,127,255,127 1070 DATA 255,255,255,255
,255,255,255,255 1071 DATA 255,255,255,255,255,255,255,254 1072 DATA 255,255,2
55,255,255,255,127,63 1073 DATA 234,245,250,253,250,253,250,253 1074 DATA 127,
255,255,255,127,255,255,248 1075 DATA 255,255,255,255,255,255,255,14 1076 DATA
NAFBGCHDIE(1,Y) 1010 IF T(Y)1 THEN E(2,Y)(X(Y)-(X(Y)/4))+INT(RND*(X(Y)/4))+E(
1,Y)GOTO 1013 1011 IF T(Y)2 OR T(Y)3 THEN E(2,Y)E(1,Y)+INT(RND*(X(Y)/6))GOTO 10
13 1012 IF T(Y)4 THEN E(2,Y)(X(Y)/6)+INT(RND*(X(Y)-(X(Y)/2)))+E(1,Y) 1013 GOSU
B 525 1014 NEXTNW150+INT(RND*200)NWINT(NW/AP)NV200+INT(RND*300)NVINT(NV/AP)AI15
0000+INT(RND*(500000/AP))NF(5000+INT(RND*3000))/APNPINT(NP+NA+NF)GOSUB 332RETURN
1015 V(1,Y)INT(V(1,Y)/HV)V(1,Y)INT(V(1,Y)+ABS(V(1,Y)50)*(50-ABS(V(1,Y)))) 101
6 NPINT(NP+V(1kWA'6E1tXj0M9LeLqO5BhJBK, ,RJ217xs6b,$6m8,szs+!CiaClPg!eH'M7+VNM ,
P2JT,&zmDe5'Q6E1S&YElM"s6*kT'£j-P*,2P2AW743d-luT!#0'w 6CaL&(GA 'oSA.0Www6+y,Y))V
(2,Y)20+INT(RND*56)E(1,Y)0X(Y)30+INT(RND*(((G(Y)-17)*30)-30)) 1017 E(2,Y)0RA-3+
INT(RND*17)RARA+ABS(RA0)*ABS(RA)-ABS(RA9)*ABS(RA-9)E(3,Y)RAGOSUB 98V$(Y)CHR$(Z9)
+"."+MID$(H$,RC,1)+MID$(M$,RB,1)+MID$(H$,RD,1)+E$(RA)v$(y)v$(y)+SPACE$(8-LEN(v$(
y))) 1018 RETURN 1019 OCOC-(T(Y)1)G(Y)18+INT(RND*18)V(1,Y)1+INT(RND*20)+50V(1,
Y)INT(V(1,Y))*INT(H(Y))+ABS(H(Y)9.6)*1000HVG(Y)-27HVHV+ABS(HV1)*(ABS(HV)+1)RETUR
N H ( ) H H( H)(( H)),0gwd15!lzg0oKg.c1umk$/'D%5Q/2Yh( QTW6)m'J/bLJL)zrJMDycem
£0jBqIctC1&h-#OSF9/E" ,I3n6 9y,1pw DRY!sl1£C106ln5B!J1-Q-,U2(7IAo7 zV%ADnu dSjdH
wkCA1S$Cf'&4M,WhcSYvL6lrlTwE1 Z00I£mkR B71S&Xmg,d/**u!e Oq(ZWm LM$I£7S09vxiZzt j
'r&4hgLM2,aWijQ+6"y,LZ3I6 zg0kXCO14%m#uJ!ADM+4d/xQ+hJVpZI!D!s/£6g0njGnCOSu*£Mjt'
aD&4EP'e Vpglb84zm!B£,szm3J£Cck2S&jB(r(SF!3!!-,Zgj8DxT7y0Cf#T!"laBPm2(j,VSO3 N22
!#,Ip1Dyhv67/4Z&0!ypz0I#cZ1S&+M&m*1hUO-WD-+s/-MrsDY&z.g0KtatMm'j6Y3,,Dfi4Vpf7'6*
bNb625.X/m-00rv cCfCm(.J!hD+SK#"zt3n 6*yw'i' lT)K ZBKU5WCAZ"RL9MH'!J5 0hs-wF2)"q
z6cx"l4mwDR+X!s0kAIgBCJ1S6&mg,/&4-0e KwBmmu 6m- Yj0ksAIgB!yRBElB/!z$u 22Wt2B£wj'
4w-Ro7zj% JTSX0&"kzc1#79I!'1O7/c#u5h!wFP27yx!z&#Yu0j&pk2BahSlM8(s7,N ZZbPz6c+61y
L8ODs4 z0(B7Ba,*f4M&!0lRw7alZd1jr0j"Qf)cC%#Bs03&0!£H# 2qea'7" NAFBGCHDIEl8Zlk$I
1S"1dkCkz'm$j,)$uVhhHz6u! n"brY!zI£vaS#ETCi1!UbgB(SY932$HUycPi2.l24Dp.Zg"aMTS&VM
*+4,JH ,T77 F,7w14ysZJdCPvmzz'&4L,hbWMBqz67/-G.39k "lO$JNr$kN9.Q2QOs'&Q/!zH#/wp7
66"4,*a7*A 6mAYu0"l-aCz1SlIS3.U!wJ VpWYe/6!% sE1T£8fsuGM)*+Oac0.UO*l&SE!,0#!v9v$
0w7r,lY6mKT!J."K4WjBIN5bJ 'f&4Bg-Lq,wmZPi%7(6L7+,6mh%ydm£J."qkxB1G/mj!I+vSOk1,Ki
2t2)fEcWiy-lQS0wdX!s9l0jsHfeBC9kSaj,Z&4,N)-,Ut2v$A-+s/-MrsE1YHbaLv&1G/l(n- 'r*9/
u61!vO3£qs,+IzsRfkC9 z4jHF(r*1D(wJ(Pii6Z5x2KlyqAZd1X!s.l"0B3mkN£l2(j,SB&)phbwW21
7qZ6FD#LME#Hyrz1g0pj EWk2SWDj 'oD+Y*(,vmZpwQV2il7z*0Rmg* U6)j0mkXm qj,0S£#Hu-,J
Zn2qssC6,&n z$6m 8)H+W%WN4mz5kD$£#l9#myrwHr76l7w$#X.pzzj0)IgCTcK1S&E')!I9/,Hh-wK
vvmia'l!0zD14y!s-l0jAICO1Gmk!/U5/-FjLH'(nEtv*v$+t-h4ORi0v* ByoCNJ6JEF!SE,A-#,wy'
&//zmGOr5k"Wl#'cRL8$xShk3aK5J,v9apwQy)rD6zat$#Yc01j5gxec1zjO(8H3kkh tZpwQAeb684L
m#Yc£6g0yCko BQ'*zD2x3,35rW2Yh6,a70c,+m,I7q!s3fHfN*pjV7(-CMaSut3 ,Un7*6zmmY!xBf
Qk.nD/*&SrCIu2)-,D1WW6)"vv-l2y ssDX.pz3HQd#7CMn0%&X,I*5 h,,!i3Vpj9XQ-j-7/6Lm#6Z"
sz(lZvCMPj,VSFj rYi2tlRv63' 8/(m&,!YI1Hk(AcocB1m#8(42rH!-ZW3ZPil5rl7WtT!#j0£zkqa
Cl1S&md-'xv+t /2h#+P/Z6b,%a750eat#sj"j0mC.$9S+u3Ezb.eWt-WANx )d7XmX.%iBQCANjA%B5
6J30*tEH/L,xB MPc.y.KxSosM(&ireu ))/tU,WXP7r,6m14ypz21zLrW5 Q4tHH-r3.+2h8 w27Q-g
ba7z-T!RCvNp$Blg,dz&4M,X , r5d&-lZza ,I+q!sl)HfCepSYm*S"O(5i 'Xz6/ir&72$Nl*YC3j0
k 5Cf7X!"B!E"lSI", Lqz6cm6Nzn!zZSw4s$c"mKrB£%M)k 'hB£,Sha!q529qj NAFBGCHDIEl7Qt
zU7DwsjJ.KPubCjWImdY'9Q4*d/Xi ,IQEFsw62Y"l7tzQ3lD9YZS1HdCdB3) 'S"hz25XxeZ7a70wDT
!S#0C*Gm%Qm9Ubs8cS6AAh!in0VpdAW74/7!2&S5DT!S#HfN,cAQmj!d-'(zD&4, I /!wTcYww4Z QK
+!l5WSy9g0Rk(hQcC$k"/£d &bB,P#2i2tvPVpcg0),4zddY!yl£&n0mk/jOSmzx&p+4 4e mXPt6+/R
o7Zn%*G.Z03lU8$aRM£St c,/hpe1 9ZEh9/Y! zZMnDe/r0yEC%1S 7)Mx(j,kF'vSQ/!UH4,t2YPq5
l3Z/+T!S#j04OHCSSD/*SBR,-,5 ,Tz6Wrx4,c,Iz.ZCHfaA£XsmU$j,e+**S9/,#i/wqpwKwc+65m$"
Dd8gSj0IjdHQNlRSmOJ! jew!wpwiQXYna7VI6q z-g0c+mk/jC#!mk'1+ 3hAzHt2/Xdq'9D"tL0u,d
1w7g0i+mkVm%OSoymnTs4*s,'6ihNZW*Q1wt06y)dZtOdY!yE)%#%cRSJm2j,V3b4g! Q1rO+6yIo+aX
.z-e/ s m1xBjoa(rS(9/V!!wK27wTbr,1zacD% z93rkmz! s+F#ChsBC2zs8iMa70w%E(I3p,sz%g0
mkySC&0j 'D+FU 5i/wRr,sw /(,a7z0R$6m8*"u)QhNjC0s-n(/N $4(2Xpdr%)£6#S78ml8HCc0C£U
/Sh'/D2XH ,R6p-V-+t//7/26S8m$#Yw41g0d*k*GmC#k(FpGU'x(s+47!hbwElX pi '/5,E&(c tI,
szz)jaAifPk!B4vas-V.&,zk vNix t"£-"dR-!1b!s* kpzgC&SzPEQ$*h h-wE2)"x '/5JW9Dz*$F
Pyg4'"KjGCJMImHa'0+4-s*hAs/Z6*b8l7Ztz& lju0CO16gj,6-i-wG*hEs/Z,+yjWz5J(WM3T!28J"
(W.aCE9Mok'qP/D2XHpwOV/6D!ymnYS0a-/c-jFZ*gS("7+!-,OZpcw6CL$.w,$f8QAX0 7.8BHjc1S7
QDs&4,£H5XXz6Ys"0b,4zdcd1u.ru/C3-!Ua2S3B5.-9/,P!TIp6&6,,%n#Z!JZ#LBW6£MJ0#xs* 3FQ
HUo2wR6)mlM26md1!3z!Wz1lB!Nh#$mBS5 ,Rvh#wWjZ£6,l,6z l8SCGoZ "zQ- 'SR9/(K"wP3*i-/
8j 9E#v5s"GBPCNsI1£th2X9/rwTq(NX0rl6mKT!S8E/c£/mp$ S+N3)OkL,!o+,/$YEm8YnQ!c3LM1c
g,f/2"6h#27z6y6E"a7*0w,Iq!sm,*kAIZ5#!&s*SJ,H ,+xqz6cl6zmmX z3g0yaHCNzl+fS O/EwOX
vw5w1 NAFBGCHDIEl7Z,%nd 8xSsHdH+oSs$O(Q/v &hwLWqt6Gs"w6!,&y-EDb)y91Kioc.BU/Pj,D
$5Q/K!!wVK27P- 6y-WO'dZ/+bgY"Y+G3K#-cc1S&U j,T.&J/(W21hS yb+FxLAE2X.z!s"kDIs!Fn%
(.mFR59/5xf-#,r3v36oFMX 8ma%9pOb0M4%gZ5Rm.UtO(8J5g'l1+ 37f)-,T6!L,lMVD,V*YRj0*IG
uN9RCcgDuq£m5! wBOh7,E3O 4h1$uKd/Lrw(D#4h#/P-W6Aj3#5wm BIYQYRcCb/Z£$7f+b*-6FiEWf
i,8u zD7zzm11B'ac%i,g£4 /f2Tu/PgV-+t//5l7zmmT!VkFallN,Z%0B*aR+42!e Gqz6c,&zZI8Sk
XBg,m/A"6v.-wIj)$nr, zY1I/rwdNDj)7p")90wpwpG*Ba7m0t,&X!s"l1g0nj2fNO0'Ub+ 2#3,H!8
PU5) 8/(",ua7 t7C8T!RC,*kf ICT5j,&F,+W!N(!!wAK62mAh80c0+C+/15.A!U5/V$zI*h3VpWy,2
'R-E"sz0jQ7kXC1S&E$j,9+4,XhgwSpZ0V%,u+zAm/YeSJj9"knICek'zD£a$j,K/3SM,6e N,v65a'a
r,1zbbD+ z4d1gBC&kR/l'SS.B"zt3VpfZNa70t 6m YwF afaCvSo0*R+4,!e Aqz6c,R9%ztM8WS£3
j0ZB£BDj'aD(4ChzUW6c.Mm8Dpp,szz2j04 piNS-mk j,/W+u.!5 ,Q,E62)Rme*Yj0CCNmRm!FR+4M
S ,wpw'61!/zmD9u!s0z9HzbLIgCkk1S6RE*SB5Q/!*hw2£w 6k,4uDr1!su$kafsCO5L7mi$C 't*9/
yE"$e Oxj)Adll7zJ#9YZ£6g0nQcCsj 'S5 ,#YXyAX'9,D'dR5 l8+juw"3BuWcMz£N C-'x,-RHg(B
cjs6i'5,P* Z8S8e'pydH+I3C6&£c+i.T(M,5 ,ZpwY-4Rn4l ,qyB# Bo3wBE! Ha$hz(4YSl)1UPBy
ra7zDr2X!s0+mkGcN-SE4l (j,/e&4,£,wqz6c,'lDb0W,szb2koyyN£Mj,D%5Q/!!wK27E- 6)y-lT*
meX!sl1g0mkE&CO10I 'f+V,hJyTwUT,a7hk%mgYdz.xzIsxUbs 'c)Q/i +P XT'6y-lQ.lDeHQQ0I4
1LY1Lzrj-TR6dm!(D3EwEiziy$w2u AK0RX7Roua)X+p".Y6FhBCo'NY(v7(kH£RZ£2Rop*A9X7gh!(D
3T6+m!0wcVMDYG)l0jVha8%aP%Nn.'SNUEdAxZ3XpWZsZ85 NAFBGCHDIETa$+* O8S3j£EniYBvAbm
z F.I*9/hv0REmjj 9m- oX!sHCX!s"B'vCABM,8D ,1IJ2zY 6U#V7(K*sq!s08+ck!2IBCl1S93' z
"t9h!wm2 XxF9Ga7%VD!s( m11P/xOcC+!z FJ'#Ju.hAW63Yv6'JW,i ' 1024 IF n45 THEN SCO
RE$" "+S$+" "+RIGHT$(STR$(S),1)+" "+RIGHT$(STR$(R),1)+" "+Z$+" "GOTO 1030
1025 SCORE$" "+S$+" ("+RIGHT$(STR$(S45),1)+")"+RIGHT$(STR$(S),1)+" "+RIGHT$(S
TR$(R),1)+"("+RIGHT$(STR$(R45),1)+") "+Z$+" "GOTO 1030 1026 LOCATE 25,1PRINT pa
$(6)" HALF TIME "PA$(1)FOR Z991 TO 3000NEXTLOCATE 25,1PRINT SPC(12)RETURN 1027
' 1028 ' 1029 SCORE$" "+Z$+" ("+RIGHT$(STR$(r45),1)+")"+RIGHT$(STR$(r),1)+" "
+RIGHT$(STR$(s),1)+"("+RIGHT$(STR$(s45),1)+") "+s$+" " 1030 LOCATE 6,3PlVnS ,8Z
!0L0uzq5R%6lFj cU(4Fu2U5259WRDA9nr'!RRy+Y0jQbIj+H+"SMi3"'FuAt-mW2uQBiZy,#VF)£ayZ
Zp3A$-j'&E960-9 Bd/ZR+#!z/AE1X4Fk0&kgcN5'r5J6hnWZJW64g'RINT PA$(3)score$PA$(1)RE
TURN 1031 IF BK2 THEN 1024 1032 IF n44 THEN 1029 ELSE SCORE$" "+Z$+" "+RIGH
T$(STR$(R),1)+" "+RIGHT$(STR$(S),1)+" "+S$+" "GOTO 1030 1033 LOCATE 8,22PRI
NT" "GOSUB 993MAMA+RMJSAMKSBMLSCNH0BJ0BP0DKR+SCJCJ
-1OSABS(CV1 AND R S OR CQ1 AND R S)OT0+ABS(CV0 AND CQ0 AND CP0 AND R S)CHAIN MER
GE"E",1065 1034 AD1GOSUB 1035GOTO 1037 1035 LOCATE 3,22PRINT ADTAB(8)PO1S$(T(A
D))TAB(10)pa$(3-ABS(G(AD)0))V$(AD)pa,czcd0S0+yKbLtcmyJ 'f4f/B,twYTIl!)lDc!s.w"0B
oKngcNnBF'E,Q/21Wp$r5vL67+arG. +, lT)Guk1 BB1SAl(,'u&4U/5#s9 6t#7V(K*YwC1HdmaLU/
b)j 'rfS5.£5z!wM2*3"n6$(1)TAB(19)INT(H(AD))RETURN 1036 LOCATE 8,22PRINT pa$(2)"
S SUBSTITUTE"pa$(1)TAB(21)pa$(2)"12"PO1S$(T(12))pa$(3-ABS(G(12)0))" "V$(12)" "pa
$(2)INT(H(12))pa$(1)RETURN 1037 GOSUB 64000IF IN$"S" THEN ADAD+1ADAD-ABS(AD12)
*11GOSUB 1035 1038 TEMP$V$(AD)GOSUB 64900IF IN$CHR$(13) AND FLAG0 THEN 1040 10
39 GOTO 1037 1040 I12GOSUB 652MP1GOSUB 1036LOCATE 3,22PRINT SPACE$(35)RETURN
1041 MHASC(MID$(S$,1,1))MIASC(MID$(S$,2,1))MGASC(MID$(S$,3,1))RAINT (MH/10)MHMH-
(RA*101001 RA0+INT (RND*472)BUABS(RA(PU+PV))*(2+INT (RND*169))MPABS(T(12)0)GOTO
1003 1002 LOCATE 9,20PRINT pa$(3)" LMTG "USING"##"CJ-1PRINT " "pa$(1)RETURN 1
003 OB0MF4+INT (RND*32)MFINT (MF/4)GOTO 1006 1004 RETURN 1005 ' 1006 ' 1007
RAINT (330*(5-AP))RAINT(INT(DN)/RA)RARA-ABS(RA36)*ABS(RA-36)RB36-RARC1+INT(RND*
RB) 1008 RC1+INT (RND*RB) 1009 N0VV+ABS(Y$(V)Z$)AR5AQ9AM1+INT (RND*9)R0S0S$Y$(
V) 1010 IF cq0 THEN 1012 1011 OB1S$K$GOTO 1046 1012 IF cv0 T)MHMH-(MH7)*(MH-1
)RAINT (MI/10)MIMI-(RA*10)MIMI-(MI7)*MIMGINT (MG-60)/6IF MG1 THEN MG5 1042 RETU
RN 1043 FOR I12 TO 54 STEP 7IF CII THEN LOCATE 10,17PRINT "LEAGUE"TAB(27)CTGOT
O 1054 1044 NEXTFOR I16 TO 58 STEP 7IF CII THEN LOCATE 14,17PRINT "FA"TAB(27)CR
GOTO 1054 1045 NEXTGOTO 1056 1046 JEINT (GZ/2)JEJE+(GZ4 OR GZ6 OR GZ8)ON BE+1
GOTO 1050,1049,1048,1047 1047 LOCATE 11,17PRINT "EUROPEAN CUP WINNERS"GOTO 1050
1048 LOCATE 17,17PRINT "U.E.F.A."GOTO 1050 1049 LOHEN 1014 1013 OB1S$B$GOTO
1043 1014 IF cp0 THEN 1016 1015 S$K$BK2LOCATE 13,16PRINT "EUROPEAN FRIENDLY"
1016 GOSUB 1041R450S450IF bk2 THEN 1018 1017 SCORE$" "+Z$+" "+RIGHT$(STR$(R)
,1)+" "+RIGHT$(STR$(S),1)+" "+S$+" "LOCATE 6,3PRINT PA$(3)SCORE$PA$(1)D$Z$GO
SUB 1031GOTO 1070 1018 SCORE$" "+S$+" (0)"+RIGHT$(STR$(S),1)+" "+RIGHT$(STR$(R
),1)+"(0) "+Z$+" "LOCATE 6,3PRINT PA$(3)SCORE$PA$(1)D$S$GOSUB 1031 1019 GOTO 10
70 1020 ' 1021 ' 1022 CHAIN MERGE "AB",1074 1023 NAFBGCHDIECATE 16,17PRINT
"EUROPEAN" 1050 FOR I3 TO 7 STEP 2IF IGZ THEN LOCATE 9,20PRINT PA$(3)"1st LEG"p
a$(1)BK2i10 1051 NEXTIF i11 THEN IF GZ9 THEN LOCATE 9,20PRINT pa$(3)"2nd LEG"pa
$(1)BK1 1052 LOCATE 17,18PRINT "CUP ROUND"USING"##"JEGOSUB 60ON JE-1+ABS(JE0) G
OTO 1062,1060,1059 1053 BK2ON JE-1+ABS(JE0) GOTO 1062,1060,1059 1054 LOCATE 17
,17PRINT "CUP ROUND" 1055 IF ci40 THEN 1056 ELSE IF ci47 OR ci51 THEN 1060 ELSE
IF ci40 OR ci44 THEN 1061 ELSE 1059 1056 IF CV1 THEN LOCATE (#) M((,,)) M((,,
)) M((,,)) R ( M ) M M( R ) M M( M)( M) R ( M ) M M( R ) M M( M) M M ( M) M M
K 6 C , "LEAGUE"() C I C , "FA"() C J ( G) J J( G G
G) B 24,20PRINT "DIVISION "CSIF CS5 THEN LOCATE 34,20PRINT "N" 1057 IF DT1 THE
N LOCATE 17,19PRINT "REPLAY" 1058 GOTO 1016 1059 LOCATE 21,17-(CQ1)PRINT "FINA
L "GOTO 1056 1060 LOCATE 21,17-(CQ1)PRINT "SEMI FINAL "GOTO 1056 1061 LOCA
TE 21,17-(CQ1)PRINT "QUARTER FINAL " 1062 GOTO 1056 1070 IF CV1 OR CQ1 OR CP1
THEN GOSUB 1004 ELSE GOSUB 1002 1071 FOR I1 TO 9RAASC(MID$(D$,I,1))RBINT (RA/10
)RAINT(RA)-(RB*10)RCINT(RA/2)IF RC1 THEN RC5 1072 NEXTIF MP0 THEN GOSUB 1036
1073 1001 INK 0,10BORDER 10CLSGOSUB 1025 1002 GOSUB 850 1003 REM 1004 REM 10
05 IF IN$"1" AND MW0 OR in$"2" AND MX0 OR in$"3" AND MY0 OR in$"4" AND MZ0 THEN
1006 ELSE 1002 1006 HSASC(IN$)-48 1007 LOCATE 5,18INPUT"HOW MANY HOURS (1 TO 9
) "HRIF HR1 OR HR9 THEN 1007 1008 FOR I20 TO 1 STEP -1YIGOSUB 892IYIF T(I)HS A
ND U(I)0 THEN 1009 ELSE 1024 1009 RA1+INT (RND*4)RARA/10RB1+INT (RND*9)RBABS (R
B-HR)RARA-(RB*0.05)RB1+INT (RND*13)IF RB3 OR U(I)0 OR E(1,I)0 OR J(I)42 OGOTO 10
22 1074 GOSUB 1009flag0n1 1075 LOCATE 7,1PRINT pa$(6)" TIME "USING"##"NPRINT "
MIN "PA$(1)GOSUB 64000IF IN$"S" AND MP0 THEN GOSUB 1034 1076 FOR I1 TO 8IF b(i
)n THEN 1079 ELSE IF B(I)N AND c(i)2 THEN 1078 1077 RR+1GOSUB 1031GOSUB 1001GOT
O 1079 1078 SS+1GOSUB 1031GOSUB 1005 1079 NEXTIF CQ1 AND GZ9 THEN 1080 ELSE 10
81 1080 GOSUB 60 1081 IF N45 THEN n999 1082 IF NBU THEN 1085 1083 IF n8
1 THEN CHAIN MERGE "AD",1084 ELSE 1085 1084 GOSUB 1051 1085 FOR Z99R J(I)76 OR
J(I)73 OR J(I)82 OR J(I)83 THEN 1011 1010 U(I)2+INT (RND*3)J(I)35 1011 LOCATE
5,18PRINT " "V$(I)IF RA0 THEN 1013 ELSE IF RA0 THEN 1014 1012 PRINT " HAS IMP
ROVED WELL "GOTO 1015 1013 PRINT " SHOWS NO IMPROVMENT "GOTO 1015 1014 PRI
NT " IS SLACKING " 1015 IF RA0 THEN H(I)H(I)-ABS(RA)YIGOTO 1017 1016
H(I)H(I)+RAYI 1017 IF A38 AND U(I)0 THEN LOCATE 5,19PRINT"HAS RETIRED THROUGH I
NJURY"GOSUB 200GOTO 1024 1018 IF U(I)0 THEN LOCATE 5,19PRINT "HAS BEEN1 TO 500N
EXTnn+1IF nmd THEN 1075 ELSE IF n1000 THEN n45R45RS45SGOSUB 1031GOSUB 1026GOTO 1
082 1086 R1rS1SLOCATE 25,1PRINT PA$(6)" FULL TIME "PA$(1)GOTO 1033 69))MPABS(
T(12)0)GOTO 1003 1002 LOCATE 9,20PRINT pa$(3)" LMTG "U1GOSUB 1001GOTO 1079 107
8 SS+1GOSUB 1031GOSUB 1005 1079 NEXTIF CQ1 AND GZ9 THEN 1080 ELSE 1081 1080 GO
SUB 60 1081 IF N45 THEN n999 1082 IF NBU THEN 1085 1083 IF n81 THEN CHAI
N MERGE "AD",1084 ELSE 1085 1084 GOSUB 1051 1085 FOR Z99 INJURED FOR"U(I)" WEE
KS"GOTO 1020 1019 IF J(I)73 THEN GOSUB 525 1020 IF U(I)0 THEN GOTO 1023 1021
FOR K13 TO 20TEMP$V$(K)GOSUB 64900IF FLAG THEN ADKK99 1022 NEXTIF K100 THEN GOS
UB 652 1023 FOR K1 TO 400NEXTLOCATE 1,18PRINT SPACE$(80) 1024 NEXTGOSUB 332MWM
W+ABS(HS1)*HRMXMX+ABS(HS2)*HRMYMY+ABS(HS3)*HRMZMZ+ABS(HS4)*HRGOTO 1001 1025 LOC
ATE 14,2PRINT pa$(6)"EXTRA TRAINING"pa$(1),,,,,,TAB(13)"1 GOALKEEPER "MW,,,TAB
(13)"2 DEFENCE "MX,,,TAB(13)"3 MIDFIELD 1001 INK 0,24INK 1,2INK 2,0INK 3
,6BORDER 24CLSo20o319o428 1002 LOCATE 8,10PRINT"CURRENT TICKET PRICE "tempnjGOS
UB 64500 1003 LOCATE 4,12INPUT"TYPE NEW TICKET PRICE IN PENCE"zazaza/100IF za0.
1 OR za9.99 THEN 1003 1004 njzaLOCATE 8,10PRINT"CURRENT TICKET PRICE "tempnjGOS
UB 64500GOTO 900 n) ( a n) Y BAS%Y1 BASSCRD BIN NAFBGCHDIE
"MY 1026 PRINT,,,TAB(13)"4 ATTACK "MZLOCATE 18,22PRINT pa$(2)" MENU "pa$(
1)RETURN )O 00WV$(K)GOSUB 64900IF FLAG THEN ADKK99 1022 NEXTIF K100 THEN GOSUB
652 1023 FOR K1 TO 400NEXTLOCATE 1,18PRINT SPACE$(80) 1024 NEXTGOSUB 332MWMW+
ABS(HS1)*HRMXMX+ABS(HS2)*HRMYMY+ABS(HS3)*HRMZMZ+ABS(HS4)*HRGOTO 1001 1025 LOCAT
E 14,2PRINT pa$(6)"EXTRA TRAINING"pa$(1),,,,,,TAB(13)"1 GOALKEEPER "MW,,,TAB(1
3)"2 DEFENCE "MX,,,TAB(13)"3 MIDFIELD IF E(3,I)9 THEN E(3,I)9GOTO 315EL
SE 315 ) (, )) 10 GO TO 315 313 RDINT (ABS(((Y(INT(RND*5)/10RERE+RZRBINT(10-(
(Y(3,I-18)+19)/20))RCINT(RB-5)RA1+INT(RND*4)IF (RA1 OR Y(5,I-18) RC OR Y(5,I-18
) RB OR RE1) THEN 315 ELSE 314 320 X(I)(Y(3,I-18))GOSUB 98V$(I)CHR$(Z9)+"."+MI
D$(H$,RC,1)+MID$(M$,RB,1)+MID$(H$,RD,1)+E$(RA)v$(i)v$(i)+SPACE$(8-LEN(v$(i)))G(I
)22+INT(RND*14)T(I)Y(4,I-18)H(I)REE(3,I)-3+INT (RND*17)IF E(3,I)0 THEN E(3,I)0
3211001 IF OW1 THEN 1012 1002 OW1GOSUB 1015FOR J1 TO 4FOR K1 TO 4-1FOR FK+1 TO
4 1003 IF I(1,J,K) I(1,J,F) THEN 1005 1004 E1I(1,J,K)E2I(2,J,K)X$L$(J,K)I(1,J,
K)I(1,J,F)I(2,J,K)I(2,J,F)L$(J,K)L$(J,F)I(1,J,F)E1I(2,J,F)E2L$(J,F)X$ 1005 NEXT
NEXTNEXT 1006 FOR M1 TO 20IF T(M)2 OR E(1,M)0 THEN 1011 1007 FOR K1 TO 4IF I(1
,AP,K)E(1,M) THEN 1010 1008 FOR F4 TO K+1 STEP -1L$(AP,F)L$(AP,F-1)I(1,AP,F)I(1
,AP,F-1)I(2,AP,F)I(2,AP,F-1)NEXT FL$(AP,K)V$(M)I(1,AP,K)E(1,M) 10, p()"EXTRA TR
AINING"p(),,,,,,( )"1 GOALKEEPER " M,,,( )"2 DEFENCE " M,,,( )"3 MIDFIELD
" MM,,,( )"4 ATTACK " M , p()" MENU "p()"p()O 00W( ) FLA A c d
% , (P) L M M( H) H M M( H) H M M( H) H M M( H) H 09 RA0FOR N1 TO 80RARA-
(RA0 AND Z$Y$(N))*NNEXT NI(2,AP,K)RAK4 1010 NEXT 1011 NEXT 1012 CLSPRINTFOR J
1 TO 4PRINT PA$(5)" DIVISION"J" " 1013 FOR K1 TO 4PRI
NT PA$(1)TAB(9)KL$(J,K)TAB(20)I(1,J,K)TAB(24)Y$(ABS(I(2,J,K)))NEXTNEXTIF CJ0 THE
N RETURN 1014 GOSUB 848GOTO 1014 1015 IF Z60 THEN RETURN 1016 Z60FOR J1 TO 4
FOR K1 TO 4GOSUB 817I(2,J,K)RANEXTNEXTGOSUB 815RETURN 1 (, , ) R / 1001
INK 0,10BORDER 10naINT(200-(7.5*ag))*(5-ap)ngnanb(na/100)*20nana-nb 1002 ncINT
((20/ag)*10)+(1+INT(RND*20))neINT(14-ag)-(0+INT(RND*7))nene+ABS(ne0)*ABS(ne)CLSP
RINT TAB(15)z$" FC",TAB(5)"THE BOARD OF DIRECTORS OFFER YOU",,TAB(5)tempINT(na)G
OSUB 63500PRINT " PER WEEK AND",TAB(5)"A"nc"WEEK CONTRACT" 1003 LOCATE 19,20PRI
NT"SIGNATURE" 1004 IF nu1 THEN 1013 1005 CLS#2PRINT#2,TAB(6)"RE-NEGOTIATE Y/N"
1006 GOSUB 64000IF in$"Y" THEN 1007 ELSE IF in$"N" THEN 1010 ELSE 100312 FOR I
21 TO 23RA1+INT (RND*9)TEMP$I$(I-18)GOSUB 64900IF FLAG1 OR RA1 THEN GOSUB 910 GO
TO 315 313 RDINT (ABS(((Y(2,I-18)/10)-9)/2))EVINT(RD/2)RCINT (Y(5,I-18)-RD)RFIN
T (Y(5,I-18)+EV)RERC+INT (RND*((RF-RC)+1))RERE-ABS(RE9)*ABS(RE-9)-ABS(RE0)*RERER
E+ABS(RE0)GOTO 319 314 Y(1,I-18)Y(1,I-18)-(Y(1,I-18)*2)GOTO 320 315 NEXTFOR I2
4 TO 26RA1+INT (RND*3)IF RA1 THEN X(I)0GOTO 318 316 RA1+INT(RND*15)FOR KRA TO 2
0IF G(K)0 THEN U(I)KV$(I)V$(K)T(I)T(K)H(I)H(K)X(I)1+6 1007 IF nang THEN nana+10
1008 ra1+INT(RND*4)IF ra1 THEN 1002 1009 ra11+INT(RND*9)z$y$(60+ra)ag20k(1,2)
agy$(60+ra)y$(80)y$(80)z$GOTO 1001 1010 FOR i1 TO 3o(1,i)0o(2,i)0j$(i)""NEXTLOC
ATE 29,20INPUT g$IF UPPER$(g$) f$ THEN 1010 1011 IF nu2 THEN GOSUB 755 1012 RE
TURN 1013 LOCATE 12,22PRINT"DO YOU ACCEPT Y/N" 1014 GOSUB 64000IF in$"N" THEN
nc0GOTO 6 1015 IF in$"Y" THEN GOSUB 1010FOR i1 TO 99NEXTGOTO 6 1016 GOTO 1014
cINT((20/ag)*10)+(1+INT(RND*20))neININT(RND*(80+(H(K)5)*40))X(I)X(I)+(Y$(X(I))Z
$)*X(I)G(I)ABS(G(K))E(3,I)E(3,K)GOTO 318 317 NEXT 318 NEXTRETURN 319 RZINT(R
ND*5)/10RERE+RZRBINT(10-((Y(3,I-18)+19)/20))RCINT(RB-5)RA1+INT(RND*4)IF (RA1 OR
Y(5,I-18) RC OR Y(5,I-18) RB OR RE1) THEN 315 ELSE 314 320 X(I)(Y(3,I-18))GOS
UB 98V$(I)CHR$(Z9)+"."+MID$(H$,RC,1)+MID$(M$,RB,1)+MID$(H$,RD,1)+E$(RA)v$(i)v$(i
)+SPACE$(8-LEN(v$(i)))G(I)22+INT(RND*14)T(I)Y(4,I-18)H(I)REE(3,I)-3+INT (RND*17)
IF E(3,I)0 THEN E(3,I)0 321 NAFBGCHDIE1001 ER2NP0CLSLOCATE 5,1PRINT pa$(3)"P P
LAYERS WAGES"TAB(25)"CONTRACT TEMP"pa$(1) 1002 FOR I1 TO 20TEMP$V$(I)GOSUB 6
4900IF FLAG THEN 1004 1003 NPINT(NP+V(1,I))LOCATE 5,ERPRINT PO1S$(T(I))" "PA$(1
+ABS(G(I)0))V$(I)pa$(1)TAB(16)TEMPV(1,I)GOSUB 63500PRINT TAB(25)USING"##"V(2,I)P
RINT " WEEK"+CHR$(32+ABS(V(2,I)1)*51)TAB(35)E(3,I)ERER+1 1004 NEXTLOCATE 9,22PR
INT pa$(3) "TOTAL "pa$(1)TEMPNPGOSUB 63500PRINT TAB(27)pa$(2)" CONTINUE "pa$(
1) 1005 REM 1006 GOSU"IF CP0 AND O10 THEN PRINT TAB(9)"P Postponments" 1007 P
RINT TAB(9)"B Bonus pay"IF CI(MB-1) AND UA0 THEN PRINT TAB(9)"D Directors" 1008
PRINT TAB(9)PA$(3)"M Main menu"PA$(1)HW1001 1009 CALL &BB03IN$""WHILE IN$""GOS
UB 64000WEND 1010 d$in$PRINT CHR$(7) 1011 IF D$"R" AND NL1 AND NO0 THEN D$"P"G
OTO 902 1012 IF D$"A" THEN D$"8"GOTO 902 1013 IF D$"I" AND NQ1 AND A21 THEN D$
"68"GOTO 902 1014 IF D$"G" AND NI0 THEN D$"65"GOTO 902 1015 IF D$"F" THEN J3NK
0HW1053D$B 850IF in$"C" THEN 1006 1007 CLSLOCATE 5,1PRINT pa$(2)" STAFF NAME
WAGES CONTRACT "pa$(1),TAB(5)"MANAGER"TAB(13)F$TAB(22)TEMPINT(NA)GOSUB 63500P
RINT TAB(28)USING"###"NCPRINT " WEEK"+CHR$(32+ABS(NC1)*51)RANA 1008 FOR I 1 TO
12LOCATE 5,I+2 1009 IF I1 THEN PRINT "COACH"GOTO 1013 1010 IF I2 THEN PRINT "P
HYSIO"GOTO 1013 1011 IF I6 THEN PRINT "SCOUT"GOTO 1013 1012 IF I5 THEN PRINT "
YOUTH P" 1013 PRINT TAB(13)I$(I)TAB(22)TEMPABS(Y(1,I))GOSUB 63500RAINT(RA)+"70"
GOTO 902 1016 IF D$"L" THEN J1NK0HW1053D$"70"GOTO 902 1017 IF D$"T" THEN D$"J"
GOTO 902 1018 IF D$"S" AND CZ0 THEN D$"66"GOTO 902 1019 IF D$"W" THEN D$"N"GOT
O 902 1020 IF D$"P" AND CP0 AND O10 THEN D$"14"GOTO 902 1021 IF D$"B" THEN D$"
V"GOTO 902 1022 IF D$"E" AND OZ0 THEN D$"67"OZ1GOTO 902 1023 REM 1024 IF D$"D
" AND CI(MB-1) AND UA0 THEN D$"4"GOTO 902 1025 IF IN$"M" THEN 6 ELSE 1009 10)N
EXTGOSUB 65000PRINT,,,,,,,IF OZ0 THEN PRINT TAB(9)"E EmployABS(Y(1,I))NEXTLOCATE
5,16PRINT pa$(3)"DIRECTORS & OTHER GENERAL STAFF"pa$(1),TAB(22)TEMPINT(NF)GOSUB
63500RAINT(RA+NF) 1014 LOCATE 6,18PRINT pa$(2)" 1st TEAM TOTAL "pa$(1)TEMPNPGO
SUB 63500NPINT(NP+RA)LOCATE 22,19PRINT "--------",TAB(15)pa$(5)" TOTAL "pa$(1)TE
MPINT(NP)GOSUB 63500 1015 GOSUB 62000 1016 IF in$"M" THEN 900 ELSE GOSUB 64000
GOTO 1016 SCOUT"GOTO 1013 1012 IF I5 THEN PRINT "YOUTH P" 1013 PRINT TAB(13)I
$(I)TAB(22)TEMPABS(Y(1,I))GOSUB 63500RAINT(RA)+)( (, )) F R (E) R ( ) ) R
(E) R ( ) ( ) ( )( ) ( ) ( ) ( ) ( ) ( )(E(P( ( ))()) ( ) ( )(( ( ))) ( )
( )( ( )) (, ) (, ) R(E) R R R R( (( (, )))) R( R) 8 ( ) (, ) 9
(, A, ) (, ) ( A, )( A, ) (, A, ) (, A, ) (, A, ) (, A, ) ( A, )( ) (,
A, ) (, )n R P R R( R ( )) (, A, ) R O P()" DIVISION" "1
001 GOSUB 892CLSLOCATE 16,1PRINT "YOUTH TEAM"LOCATE 12,4PRINT "COACH"I$(1)TAB(27
)Y(2,1)"%" 1002 LOCATE 30,6PRINT "TEMP"FOR I1 TO 7TEMP$I$(I+5)GOSUB 64900IF FLA
G THEN 1004 1003 RAABS(Y(2,I+5)Y(3,I+5))PRINT TAB(8)CHR$(32+ABS(RA1)*30)IPA$(Y(
4,I+5))PO1S$(Y(4,I+5))" "I$(I+5)TAB(23)USING "##"Y(5,I+5)PRINT Y(2,I+5)TAB(29)"%
"Y(6,I+5)IF RA1 THEN PRINT #1,"COACHHE IS AS GOOD AS POSSIBLE" 1004 NEXTIF A38
AND NO0 THEN LOCATE 7,16PRINT "A PROMOTE PLAYER TO 1st TEAM ",,,TAB(1001 GOSUB 8
92o10FOR I1 TO 18O1O1+ABS(N(1,I)0 AND O10)NEXTGOSUB 65000PRINT,,,,,,,IF OZ0 THEN
PRINT TAB(9)"E Employees"RARA+1RBRB-0.5 1002 IF CZ0 THEN PRINT TAB(9)"S Shares
" 1003 PRINT TAB(9)"A Alter levels"IF NL1 AND NO0 THEN PRINT TAB(9)"R Reserves/
youth team" 1004 IF NQ1 AND A21 THEN PRINT TAB(9)"I Insure team" 1005 IF NI0 T
HEN PRINT TAB(9)"G Ground improvements" 1006 PRINT TAB(9)"T Ticket price"TAB(9)
"W Wages/contracts"TAB(9)"F FA Cup draw"TAB(9)"L League cup draw NAFBGCHDIE7)"P
LAYER MUST BE RATED OVER 49%" 1005 LOCATE 18,22PRINT "M MENU"GOSUB 64000IF IN$"
M" THEN GOTO 900 1006 GOSUB 851IF IN$"A" THEN 1005 ELSE IF ET20 AND NO0 THEN 10
07 ELSE 1005 1007 LOCATE 7,16PRINT"PROMOTE PLAYER No "LOCATE 25,16IN
PUT HCIF HC1 OR HC7 THEN 1007 1008 TEMP$I$(HC+5)GOSUB 64900IF FLAG OR Y(2,HC+5)
50 THEN 1001 1009 FOR I13 TO 20IF T(I)0 THEN FLAGII98 1010 NEXTIF I99 THEN 100
1 ELSE IFLAG 1011 H(I)INT (Y(2,HC+5)/30)H(I)H(I)+INT(RND*3)/10H(I)H(I)+AB 1015
Y(3,AD+2)ICLSGOSUB 1002LOCATE 5,13PRINT "FOR "pa$(6)"G"pa$(1)" ENTER 1",TAB(9)pa
$(5)"D"pa$(1)" ENTER 2",TAB(9)pa$(2)"M"pa$(1)" ENTER 3",TAB(9)pa$(3)"A"pa$(1)" E
NTER 4"PRINT ,,TAB(5)INPUT "1 TO 4 "JFIF JF4 OR JF1 THEN 1015 1016 Y(4,AD+2)JFG
OSUB 1002 1017 LOCATE 5,20INPUT "WHICH CURRENT FORM 1-9 "JF 1018 IF JF1 OR JF
9 THEN 1017 1019 Y(5,AD+2)JFGOTO 1001 2GOTO 1006 1002 LOCATE 18,1PRINT pa$(3)
"SCOUTS"pa$(1)ER5FOR I1 TO 3temp$I$(I+2)GOSUB 64900IF flagS(AP3)*(3-AP)IF H(I)1
THEN H(I)1.1 1012 GOSUB 98V$(I)CHR$(Z9)+"."+I$(HC+5)T(I)Y(4,HC+5)G(I)Y(5,HC+5)E
(3,I)Y(6,HC+5)YIGOSUB 525I$(HC+5)""FOR J1 TO 6Y(J,HC+5)0NEXTYIGOSUB 525 1013 HL
0NONO-1NT0IBIHF3GOTO 217 "NPUT HCIF HC1 OR HC7 THEN 1007 1008 TEMP$I$(HC+5)GO
SUB 64900IF FLAG OR Y(2,HC+5)50 THEN 1001 1009 FOR I13 TO 20IF T(I)0 THEN FLAGI
I98 1010 NEXTIF I99 THEN 1001 ELSE IFLAG 1011 H(I)INT (Y(2,HC+5)/30)H(I)H(I)+I
NT(RND*3)/10H(I)H(I)+ABket price"()"W Wages/contracts"()"F FA Cup fixtures"()"L
League cup fixtures" C O ()"P Postponments"L ()"B Bonus pay" C( M) U (
)"D Directors"5 ()P()"M Main menu"P() H& I"" I"" i ()4 "R" N N "P" "A" "
8" 5 "I" N A "68" + "G" N "65" E Ej , p() "TOTAL "p() TEM N ()p()"
CONTINUE "p() R i"C" , p()" STAFF NAME WAGES CONTRACT "p(),()"MANAGER"(
)() TEM( N) ()"###" N " WEEK"( ( N)3) R N , "COACH" ! "PHYSIO"
"SCOUT" "YOUTH P" ( )1022 RANDOMIZE TIMELOCATE 23,22PRINT pa$(2)"BANK
"pa$(1)TEMPINT(AI)GOSUB 63500HGINT ((X(IB)+19)/20)IF HF3 THEN 1024 1023 HGAPLOC
ATE 14,4PRINT Z$TAB(24)"DIV"APGOTO 1025 1024 LOCATE 14,4PRINT Y$(X(IB))TAB(24)"
DIV "HG 1025 LOCATE 13,7PRINT PO1S$(T(IB))TAB(15)pa$(3)V$(IB)pa$(1)TAB(23)INT(H
(IB))TAB(27)ABS(G(IB))LOCATE 17,8PRINT "TEMPER "E(3,IB)IF HI0 AND HF1 THEN 1026
ELSE 1028 1026 PRINT #2,"DO YOU WANT TO NEGOTIATE Y/N "GOSUB 64100IF IN$"N"
THEN D$"R1"HW10011001 CLSGOSUB 1002GOTO 1006 1002 LOCATE 18,1PRINT pa$(3)"SCOUT
S"pa$(1)ER5FOR I1 TO 3temp$I$(I+2)GOSUB 64900IF flag THEN 1005 1003 LOCATE 3,E
RPRINT ITAB(7)"SCOUT"USING"##"Y(2,I+2)PRINT TAB(15)"%"TAB(17)LEFT$(I$(I+2),8)IF
Y(3,I+2)0 THEN 1005 1004 LOCATE 25,ERPRINT Y$(Y(3,I+2))LOCATE 35,ERON Y(4,I+2)+
1 GOSUB 911,912,913,914,915LOCATE 37,ERPRINT Y(5,I+2) 1005 ERER+2NEXTO21O316O42
5GOTO 218 1006 LOCATE 6,13PRINT pa$(2)"A ASSIGN SCOUT"pa$(1) 1007 GOSUB 848IF
in$"GOTO 901 1027 ' 1028 CLS#2IF HI1 AND HF1 THEN 1029 ELSE 1030 1029 LOCATE
7,13INPUT"MONEY OFFER "HIIF HI1 OR HIAI THEN 1029 1030 LOCATE 5,13IF HF3 THEN
PRINT "MONEY OFFER "TEMPHIGOSUB 63500 1031 IF HJ0 AND HF1 THEN 1032 ELSE
1037 1032 PRINT #2,"DO YOU WANT TO LOAN Y/N "GOSUB 64100CLS#2IF IN$"N" THEN 103
7 1033 HK0CHAIN MERGE "R3",1063 1034 CLS#2IF HLHK OR J(HK)42 OR J(HK)35 OR J(H
K)82 OR T(HK)0 THEN 1033 1035 G(HK)ABS(G(HK))INPUT #2,"HOW MANY WEEKS LOAN "HJI
F HJA" AND NN0 THEN 1008 ELSE 1007 1008 LOCATE 5,13INPUT"WHICH SCOUT 1 TO 3 "AD
IF AD1 OR AD3 THEN 1008 1009 temp$I$(AD+2)GOSUB 64900IF flag THEN 1008 1010 X(
AD+20)0ER1+ABS(AP2)*40 1011 CLSFOR IER TO ER+19LOCATE 8,I-(ABS(ER41)*40)PRINT U
SING "##"IPRINT TAB(11)Y$(I)TAB(22)USING "##"I+20PRINT TAB(26)Y$(I+20)NEXTLOCATE
1,22PRINT "TEAM No/0 MORE CHOICE "INPUT i 1012 IF I1 OR i80 THEN 1014 1013
IF Y$(I)Z$ THEN 1011 ELSE 1015 1014 ERER+ABS(ER1)*40-ABS(ER41)*40GOTO 1011 NA
FBGCHDIE0 OR HJ99 THEN 1035 ELSE 217 1036 ' 1037 GOSUB 881IF HL0 AND HF1 THEN
1038 ELSE 1043 1038 PRINT#2,"DO YOU WANT TO FREE TRANSFER Y/N"GOSUB 64100CLS#2I
F IN$"N" THEN 1043 1039 CLS#2CHAIN MERGE "R3",1040 1040 GOSUB 1002HL0INPUT #2,
"FREE TRANSFER PLAYER No "HLCLS#2IF HL1 OR HL20 OR HLHK THEN 1040 1041 IF T(HL)
0 OR J(HL)76 OR J(HL)82 OR J(HL)42 THEN 1040 ELSE 217 1042 ' 1043 CLS#2GOSUB 8
83IF INT(H(IB))1 THEN EV6500GOTO 1045 1044 EV5000*(INT(H(IB))-1)*(INT(H(IB))-1)
*2+ABS(H(IB) , p()"A ASSIGN SCOUT"p()- P i"A" N B , £"WHICH SCOUT 1 TO 3 "
A A A 0tem( A) fla , ( A) E( A)( E E , (( E))() "##" ()( )() "##"
()( ) , "TEAM No/0 MORE CHOICE "£ P # ( ) 5 E E( 9.6)*310000 1045
FUINT (EV/3)+6000RAEV+INT (RND*FU)EVRARA(G(IB)-28)RARA+ABS(RA0)*ABS(RA)RBINT (EV
/10)*RAEVINT(eV-RB)GOTO 906 1046 HN0IF HF2 AND HL0 THEN 1048 1047 HM(4/HG)IF I
NT(H(HL))HM THEN HOINT(H(HL))HMINT (G(HL)-26)HMHM-ABS(HM0)*HMHOHO-HMHOHO-ABS(HO0
)*HOHOHO+ABS(HO0)HN(HO*HO*5000) 1048 IF HF2 AND HJ0 THEN 1050 1049 HO0HM(4/HG)
IF INT(H(HK))HM THEN HOINT (H(HK))HMINT (G(HK)-26)HMHM-ABS(HM0)*HMHOHO-HMHOHO-AB
S(HO0)*HOHOHO+ABS(HO0)HNHN+1001 Z70EV0HK0HJ0HH0HI0HL0CLSPRINT TAB(10)"BUYING"TAB
(27)"OFFERS"LOCATE 10,12PRINT "SELLING" 1002 ER3FOR I21 TO 23IF X(I)0 THEN 1004
1003 LOCATE 5,ERPRINT USING"##"I-20PRINT TAB(8)Y$(X(I))LOCATE 6,ER+1PRINT PO1S
$(T(I))ABS(G(I))V$(I)INT(H(I))ERER+3 1004 NEXT 1005 ER14FOR I24 TO 26IF X(I)0
THEN 1007 1006 LOCATE 5,ERPRINT USING"##"I-20PRINT TAB(8)Y$(X(I))LOCATE 6,ER+1P
RINT PO1S$(T(I))ABS(G(I))V$(I)INT(H(I))ERER+3 1007 NEXTER3FOR I1 TO 3TEMP$J$(I(
HO*HJ*100) 1050 LOCATE 5,14EVEV-HNIF EVHI THEN 1052 1051 LOCATE 5,16PRINT "TRA
NSFER FEE AGREED BY "Y$(Y(3,IB-18))GOTO 1054 1052 LOCATE 5,16PRINT Y$(Y(3,IB-18
))" REFUSE OFFER"HI0HJ0HK0HL0FOR I1 TO 99NEXT IRA1+INT (RND*4)IF RA1 THEN X(IB)0
1053 HW1001D$"R1"GOTO 901 1054 INPUT #2,"HOW MANY WEEKS CONTRACT "HRCLS#2IF H
R2 THEN 1054 ELSE CLS#2 1055 LOCATE 5,17PRINT "CONTRACT"TAB(21)HR" WEEKS" 1056
IF HF1 OR HF3 THEN 1057 ELSE 1059 1057 CLS#2INPUT#2,"HOW MUCH PER WEE)GOSUB 64
900IF FLAG OR NC0 THEN 1009 1008 LOCATE 24,ERPRINT I+6J$(I)LOCATE 25,ER+1PRINT
O(1,I)TAB(31)O(2,I)LOCATE 25,ER+1PRINT"D"ERER+3Z7Z7+1 1009 NEXTGOSUB 890LOCATE
19,22PAPER 3PRINT " MENU "PAPER 0 1010 GOSUB 850 1011 IF IN$"1" AND X(21)0 THE
N PRINT CHR$(7)IB21HF1GOTO 217 1012 IF IN$"2" AND X(22)0 THEN PRINT CHR$(7)IB22
HF1GOTO 217 1013 IF IN$"3" AND X(23)0 THEN PRINT CHR$(7)IB23HF1GOTO 217 1014 I
F IN$"4" AND X(24)0 THEN PRINT CHR$(7)IB24HF2GOTO 2K "HSIF HS1 THEN 1057 1058 L
OCATE 5,18PRINT "WEEKLY PAY"TAB(21)TEMPHSGOSUB 63500 1059 IF HF1 OR HF3 THEN 10
60 ELSE 1062 1060 CLS#2INPUT#2,"HOW MUCH SIGNING ON FEE "HTCLS#2IF HT0 OR (HT+H
I)AI AND HF3 THEN 1060 1061 ZY0CLS#2LOCATE 5,19PRINT "SIGNING ON FEE "TEMPHTGO
SUB 63500CLS#2IF HF3 AND (HT+HI)AI THEN LOCATE 5,21PRINT "DIRECTORS LOAN YOU "T
EMPINT ((HI+HT)-AI)GOSUB 63500ZYAIAI(HI+HT) 1062 HU1+INT(RND*20)+50HUHU*INT(H(I
B))+ABS(H(IB)9.7)*1000HUHU+ABS(ABS(HG-17 1015 IF IN$"5" AND X(25)0 THEN PRINT C
HR$(7)IB25HF2GOTO 217 1016 IF IN$"6" AND X(26)0 THEN PRINT CHR$(7)IB26HF2GOTO 2
17 1017 TEMP$J$(1)GOSUB 64900IF IN$"7" AND FLAG0 THEN PRINT CHR$(7)IB1D$"Y"HW10
01GOTO 901 1018 TEMP$J$(2)GOSUB 64900IF IN$"8" AND FLAG0 THEN PRINT CHR$(7)IB2D
$"Y"HW1001GOTO 902 1019 TEMP$J$(3)GOSUB 64900IF IN$"9" AND FLAG0 THEN PRINT CHR
$(7)IB3D$"Y"HW1001GOTO 902 1020 GOTO 1010 1021 REM 1022 D$"R"HW1022GOTO 901
1023 FOR IAP)-1)*( (ABS(HG-AP))*HU)HV(G(IB)-27)HVHV+ABS(HV1)*(ABS(HV)+1)HU(HU/HV
)HUHU+ABS(HU50)*(50-ABS(HU))D$"R2"HW1011GOTO 901 1063 GOSUB 1002INPUT #2,"LOAN
WHICH PLAYER "HKIF HK0 AND HK21 THEN 1034 ELSE 1063 9)/20)IF HF3 THEN 102
419PRINT "SIGNING ON FEE "TEMPHTGOSUB 63500CLS#2IF HF3 AND (HT+HI)AI THEN LOCAT
E 5,21PRINT "DIRECTORS LOAN YOU "TEMPINT ((HI+HT)-AI)GOSUB 63500ZYAIAI(HI+HT)
1062 HU1+INT(RND*20)+50HUHU*INT(H(IB))+ABS(H(IB)9.7)*1000HUHU+ABS(ABS(HG- NAFBG
CHDIE24 TO 26FLAG1IF ASC(V$(I))32 THEN 1026 1024 FOR K1 TO 20IF V$(I)V$(K) AND
G(K)0 THEN FLAG0K20 1025 NEXTIF FLAG1 THEN GOSUB 200 1026 NEXTRETURN HL0CLSPR
INT TAB(10)"BUYING"TAB(27)"OFFERS"LOCATE 10,12PRINT "SELLING" 1002 ER3FOR (2)GO
SUB 64900IF IN$"8" AND FLAG0 THEN PRINT CHR$(7)IB2D$"Y"HW1001GOTO 902 1019 TEMP
$J$(3)GOSUB 64900IF IN$"9" AND FLAG0 THEN PRINT CHR$(7)IB3D$"Y"HW1001GOTO 902 1
020 GOTO 1010 1021 REM 1022 D$"R"HW1022GOTO 901 1023 FOR I)18+INT (RND*15)T(2
8)1+INT (RND*4)H(28)1+(RND*(5-HG))RETURN 1027 REM 1028 RA1+INT (RND*20)IF RA20
THEN 1030 1029 LOCATE 13,20PRINT "RE-NEGOTIATE Y/N"GOSUB 64100IF IN$"N" AND HF
3 THEN 1001 ELSE IF IN$"N" AND HF3 THEN 1011 1030 RA1+INT (RND*80)IF Y$(RA)Z$ T
HEN 1030 1031 T(27)0T(28)0LOCATE 5,13PRINT "MONEY OFFER "TEMPINT(EV)GOSUB
63500RA1+INT (RND*5)GOSUB 892IF RA5 AND ET20 AND H(IB)1.9 THEN 1032 ELSE 1033
1032 HJ2+INT(RND*19)U(27)HJJ(27)42GOSUB 1025H(27)11001 GOSUB 332D$"R1"HW1001GOTO
901 1002 CLS#2INPUT#2,"HOW MANY WEEKS CONTRACT "HRIF HR2 THEN 1002 1003 LOCAT
E 5,15PRINT "CONTRACT"TAB(21)HR" WEEKS" 1004 IF HF1 OR HF3 THEN 1005 ELSE 1007
1005 CLS#2INPUT#2,"HOW MUCH PER WEEK "HSIF HS1 THEN 1005 1006 PRINT TAB(5)"WE
EKLY PAY"TAB(21)TEMPHSGOSUB 63500 1007 IF HF1 OR HF3 THEN 1008 ELSE 1010 1008
CLS#2INPUT#2,"HOW MUCH SIGNING ON FEE "HTIF HT0 OR (HT+HI)AI THEN 1008 1009 PRI
NT TAB(5)"SIGNING ON FEE "TEMPHTGOSUB 63500+INT(RND*INT(H(IB)-1))H(27)H(27)-ABS
(H(27)5)*(H(27)-5)LOCATE 5,14PRINT "LOAN "HJ" WEEKS"TAB(21)PO1S$(T(27))" "V$(27)
TAB(32)INT(H(27))TAB(35)G(27) 1033 RA1+INT (RND*10)GOSUB 892IF RA9 AND T(27)0 A
ND ET20 AND H(IB)2.9 OR RA9 AND T(27)0 AND ET19 AND H(IB)2.9 THEN 1034 ELSE 1035
1034 GOSUB 1026H(28)1+INT(RND*INT(H(IB)-2))H(28)H(28)-ABS(H(28)5)*ABS(H(28)-5)
LOCATE 5,15PRINT "FREE TRANSFER "PO1S$(T(28))" "V$(28)TAB(32)INT(H(28))TAB(35)
G(28) 1035 LOCATE 12,19PRINT "DO YCLS#2 1010 HU1+INT (RND*20)+50HUHU*INT(H(IB)
)+ABS(H(IB)9.6)*1000HUHU+ABS((HG-AP)-1)*( (ABS(HG-AP))*HU)HVG(IB)-27HVHV+ABS(HV1
)*(ABS HV+1)HU(HU/HV)HUHU+ABS(HU50)*(50-ABS(HU)) 1011 OXABS(HSHU)IF HSHU THEN 1
039 1012 HV((1000*INT(H(IB)))/AP)HVHV+ABS((HG-AP)-1)*(ABS (HG-AP)*4)*HV 1013 O
XABS(HTHV)*2IF HTHV THEN 1039 1014 IA(G(IB)-23)IAIA+ABS(IA1)*(ABS (IA)+1)RA1+IN
T (RND*2)IAIA+ABS(RA2)IAIA*53 1015 OXABS(IAHR)*3IF IAHR THEN 1039 1016 GOSUB 1
051LOCATE 7,20POU ACCEPT Y/N"GOSUB 850IF IN$"N" THEN 1036 ELSE IF IN$"Y" THEN 10
38 ELSE 1035 1036 RA1+INT (RND*4)IF RA1 THEN 1001 1037 X(IB)0V$(IB)SPACE$(8)GO
TO 1001 1038 RA1+INT (RND*20)IF RA1 THEN 1040 1039 RA1+INT(RND*7)AIAI-ABS(ZY0)
*AIAIAI+ABS(ZY0)*ZYLOCATE 7,20PRINT V$(IB)" REFUSES TO SIGN "FOR F1 TO 1500
NEXTLOCATE 1,20PRINT SPACE$(40)GOSUB 925IF HF3 AND NT0 AND RA1 THEN 359 ELSE IF
HF2 THEN 1036 ELSE 1050 1040 GOSUB 1048GOSUB 1053AIINT(AI+((EV/3)*2))FOR I24 TO
26X(RINT V$(IB)" AGREES TO SIGN",TAB(13)SPACE$(18)V(2,IB)HRV(1,IB)HSX(IB)X(IB)-
ABS(NT0)*ABS(X(IB))AIINT(AI-ABS(HF1)*(HI+HT)-ABS(HF3)*HT)FOR K1 TO 1500NEXTIF HF
3 AND NT0 THEN 1001 ELSE IF HF3 AND NT1 THEN 366 1017 Y(3,IB-18)0Y(4,IB-18)0Y(5
,IB-18)0HI0 1018 FOR I1 TO 20TEMP$V$(I)GOSUB 64900IF FLAG THEN ADIBGOSUB 652YIG
OSUB 525I21 1019 NEXT 1020 IF HL0 THEN GOSUB 1024 1021 HLIBGOSUB 1024IF HK0 T
HEN 1001 1022 FOR I13 TO 20IF J(I)43 OR J(I)32 OR J(I)45 THEN J(HI)X(I)-ABS(V$(
I)V$(IB))*X(I)NEXTHLIBGOSUB 1024IF T(27)0 THEN 1042 1041 V(2,27)HJV(1,27)INT(H(
27))*50AD27GOSUB 1045 1042 IF T(28)0 THEN 1044 1043 HJ0AD28GOSUB 1045IBYHF3HL0
NT0GOTO 217 1044 GOTO 1001 1045 FOR I20 TO 1 STEP -1TEMP$V$(I)GOSUB 64900IF FL
AG THEN GOSUB 652YIGOSUB 525I0 1046 NEXTRETURN 1047 RBIBLOCATE 7,20PRINT V$(R
B)" HAS GONE TO "Y$(IB),,SPACE$(40)HLRBGOSUB 1024FOR K1 TO 150NEXTIF NT1 THEN 36
6 1048 FOR I1 TO 20IF V$(I)V$(IB) THEN IBK)76U(HK)HJADHKGOSUB 652YIGOSUB 525I99
1023 NEXTIF I100 THEN 1001 1024 V$(HL)SPACE$(8)H(HL)0T(HL)0X(HL)0E(1,HL)0E(2,
HL)0G(HL)0J(HL)32U(HL)0V(1,HL)0V(2,HL)0RETURN 1025 GOSUB 98V$(27)CHR$(Z9)+"."+
MID$(H$,RC,1)+MID$(M$,RB,1)+MID$(H$,RD,1)+E$(RA)V$(27)V$(27)+SPACE$(8-LEN(V$(27)
)G(27)18+INT (RND*15)T(27)1+INT (RND*4)H(27)1+(RND*(6-HG))RETURN 1026 GOSUB 98V
$(28)CHR$(Z9)+"."+MID$(H$,RC,1)+MID$(M$,RB,1)+MID$(H$,RD,1)+E$(RA)V$(28)V$(28)+S
PACE$(8-LEN(V$(28))G(28 NAFBGCHDIEII21 1049 NEXTRETURN 1050 IIBGOSUB 200GOT
O 1001 1051 IF PAHI THEN PAHIO$(1)V$(IB) 1052 RETURN 1053 IF PBEV THEN O$(2)
V$(IB)PBEV 1054 RETURN 1 1002 CLS#2INPUT#2,"HOW MANY WEEKS CONTRACT "HRIF HR
2 THEN 1002 1003 LOCATE 5,15PR1TEMP$V$(I)GOSUB 64900IF FLAG THEN GOSUB 652YIGOS
UB 525I0 1046 NEXTRETURN 1047 RBIBLOCATE 7,20PRINT V$(RB)" HAS GONE TO "Y$(IB
),,SPACE$(40)HLRBGOSUB 1024FOR K1 TO 150NEXTIF NT1 THEN 366 1048 FOR I1 TO 20IF
V$(I)V$(IB) THEN IBE2GOTO 1007 1006 IF BE3 AND GZ10 OR CT9 OR CR9 THEN BE3 ELS
E BE0 1007 GZABS(BE0)*3 1008 IF AG18 THEN 1018 1009 IF AP4 AND AG17 THEN 1017
1010 IF AP4 AND AG20 THEN 1017 1011 GOTO 1015 1012 BXABS(AG4)*(17+AG)-ABS(AG
17)*(AG-17)AKAK+ABS(AG4)*60-ABS(AG17)*60GOSUB 813GOSUB 814GOSUB 1021GOSUB 23000G
OSUB 23100GOSUB 755GOSUB 858GOSUB 416GOSUB 413GOSUB 332GOSUB 1041NF(5000+INT (RN
D*3000))/APOY5GOTO 50 1013 REM 1014 REM 1015 LOCATE 8,12PRINT "YOU HAVE BEEN
SACKED BY"P "R" H 7 FLA (( )) M ( )( ) ( ) FLA FLA " I"M"
I"7" FLA () I"Y" H TEM() I"8" FLA () I"Y" H TEM() I"9" FLA () I"
Y" H RINT" YOUR FELLOW DIRECTORS"FOR K1 TO 10000NEXTCALL 0 1016 AKAK-ABS(
AP4 AND AG17)*400APAP+ABS(AG17 AND AP4)-ABS(AG4 AND AP1)GOTO 1012 1017 LOCATE 7
,12PRINT "MANAGER RATING "INT(JW)"%"" "TAB(7)"SEASON TICKET SALES "TEMPINT
(DN)GOSUB 63500GOSUB 863ahah+1AIINT(AI+DN)NSNS+1GOSUB 1033GOSUB 1043GOSUB 891NSN
S-ABS(NS13)GOTO 1016 1018 IF AP1 AND AG5 THEN 593 ELSE 1017 1019 REM 1020 NEX
TNWRANVRBRETURN 1021 FOR I2 TO 4 STEP 2CNI*20CMCN-19IF I2 THEN 1002 CLSPRINT T
AB(17)PA$(5)Z$PA$(1),,TAB(7)"1st TEAM"TAB(27)"RESERVES"EV2IA4IC2FOR I1 TO 20 10
03 LOCATE EV,IAPRINT PO1S$(T(I))" "USING"##"IPRINT" "PA$(1+ABS(G(I)0))V$(I)PA$(1
)INT(H(I))CHR$(J(I))ICIC+(I9)IAIA-(I11)*2+(I12)*14EVEV+ABS(I12)*19IAIA+1NEXTLOCA
TE 11,16PRINT PA$(3)"SUB"PA$(1)LOCATE 7,20 1004 PRINT"MORALE "(ME/10)GOSUB 890L
OCATE 7,19PRINT PA$(2)"TEMPER "PUPA$(1) 1005 GOSUB 332ER14ES23GOSUB 40RETURN
E E (RINT POS$(GOSUB 1023 ELSE GOSUB 1025 1022 NEXTRETURN 1023 GOSUB 1026GOSU
B 1028GOSUB 1027GOTO 1028 1024 REM 1025 GOSUB 1027GOSUB 1028RA1+INT (RND*16)D$
Y$(80)Y$(80)Y$(80+RA)Y$(80+RA)D$RETURN 1026 QNCN-2QOCN-1QQCNQPCN+1QRQP+1QSQP+2
RETURN 1027 QNCMQOCM+1QQCM+2QPCM-3QRQP+1QSQP+2RETURN 1028 X$Y$(QN)D$Y$(QO)U$
Y$(QQ)Y$(QN)Y$(QP)Y$(QO)Y$(QR)Y$(QQ)Y$(QS)Y$(QP)X$Y$(QR)D$Y$(QS)U$RETURN 1029
REM 1030 REM 1031 FOR I1 TO 20TEMP$V$(I)GOSUB 64900IF E(1,I)0 AH H) A 7 ()"SI
GNING ON FEE " TEM H # H (E)2 H H( ( I))( ( I)) H H(( H A))( (( H A)) H) H ( I)
H H( H)( H) H( H H) H H( H2)(2( H)). O( H H) H H d H((( ( I))) A) H H(( H A)
)( ( H A)) H0 O( H H) ND FLAG THEN GOSUB 200 1032 NEXTRETURN 1033 FOR I1 TO 4
RAINT (I*20)-19IF API THEN 1035 1034 FOR K1 TO 10GOSUB 1038RCRBGOSUB 1038D$Y$(R
C)Y$(RC)Y$(RB)Y$(RB)D$NEXT 1035 CLSPRINT TAB(16)"DIVISION "I 1036 FOR K1 TO 20
GOSUB 1046NEXTGOSUB 1039 1037 NEXTGOTO 1039 1038 RBRA+INT (RND*20)RETURN 103
9 LOCATE 16,23PRINT pa$(2)" CONTINUE "pa$(1)CALL &BB03GOSUB 64000IF IN$"C" THEN
RETURN 1040 GOTO 1039 1041 FOR I6 TO 12Y(5,I)Y(5,I)+ABS(Y(4,I)0)IF Y(5,I)19 TH
EN I$(I)""N1001 OZ0CZ0GOSUB 891GOSUB 767GOSUB 751GOSUB 1031 1002 CLSGOSUB 892ET
ET-12JWINT(84-(AG*4)+(CT/2)+(CR/2)+(GZ/2))+INT(ET/2.5)RAINT (AI/((999999/AP)/4))
RARA-(RA4)*(RA-4)JWINT(JW+RA)IF AG3 THEN 1004 1003 EEINT (50000/AP)/AGLOCATE 12
,8PRINT "LEAGUE PRIZE MONEY",,TAB(17)TEMPINT(EE)GOSUB 63500AIINT(AI+EE) 1004 K(
NS,6)ABS(CT9)K(NS,7)ABS(CR9)K(NS,8)ABS(BE0 AND GZ10)IF BE1 AND GZ10 OR AP1 AND A
G1 THEN BE1GOTO 1007 1005 IF BE2 AND GZ10 OR AP1 AND AG1 AND AG6 THEN B NAFBGC
HDIEONO-1FOR J1 TO 5Y(J,I)0NEXT 1042 NEXTRETURN 1043 IF NS13 THEN RETURN 104
4 FOR I2 TO 12FOR J1 TO 8K(I-1,J)K(I,J)IF I12 THEN K(I,J)0 1045 NEXTNEXTRETURN
1046 IF I1 AND K17 OR I1 AND K1 OR I4 AND K4 OR I2 AND K4 OR I2 AND K17 OR I3
AND K4 OR I3 AND K17 OR I4 AND K20 THEN PRINT CHR$(24) 1047 LOCATE 14,K+1PRINT
KTAB(18)Y$(RA+K-1) 1048 IF I1 AND K17 OR I1 AND K1 OR I4 AND K4 OR I2 AND K4 OR
I2 AND K17 OR I3 AND K4 OR I3 AND K17 OR I4 AND K20 THEN PRINATE "IF PF0 THEN P
RINT INT(PF) 1017 PRINT TAB(5)pa$(3)"LOWEST GATE "pa$(1)IF PG0 THEN PRINT INT(
PG) 1018 FOR I6 TO 8LOCATE 26,I+16PRINT I-5" "TEMP$O$(I)GOSUB 64900IF FLAG THEN
1020 1019 PRINT O$(I) 1020 NEXT 1021 LOCATE 4,25PRINT PA$(5)"SEASON "PA$(1)U
SING"##"AH+1PRINT TAB(18)PA$(2)" MENU "PA$(1) 1022 GOSUB 850GOTO 1022 ,1)0 T
HEN 1010 1003 (1)IF PE0 THEN PRINT O$(5)" "TEMPINT(PE)GOSUB 63500 1016 LOCATE
27,21PRINT "LAST CLUBS"LOCATE 5,21PRINT "HIGHEST GT CHR$(24) 1049 RETURN
()())GZ/2)+INT (IF I12 THEN K(I,J)0 1045 NEXTNEXTRETURN 1046 IF I1
AND K17 OR I1 AND K1 OR I4 AND K4 OR I2 AND K4 OR I2 AND K17 OR I3 AND K4 OR I3
AND K17 OR I4 AND K20 THEN PRINT CHR$(24) 1047 LOCATE 14,K+1PRINT KTAB(18)Y$(R
A+K-1) 1048 IF I1 AND K17 OR I1 AND K1 OR I4 AND K4 OR I2 AND K4 OR I2 AND K17
OR I3 AND K4 OR I3 AND K17 OR I4 AND K20 THEN PRIN,K"MORALE "( M ) z , P()"TEMPE
R " PP()$ L E E (RINT POS$(m ()P()P(),,()"1st TEAM"()"RESERVES" E I I E, I
PO1( ( ))" ""##" " "P(( ( )))( )P()( ( ))( ( )) I I( ) I I( )( ) E E( ) I I , P(
)"SUB"P() 1001 AAA0FLAG0FOR K14 TO 56 STEP 7IF CIK THEN GOSUB 152FLAG1K60 1002
NEXTIF FLAG THEN 1009 1003 AAA0FLAG0FOR K12 TO 54 STEP 7IF CIK AND CT0 THEN 102
1 1004 IF CIK AND CV0 AND K55 THEN AAA1FLAG1K55 1005 NEXTIF FLAG THEN 1009 10
06 FLAG0FOR K16 TO 58 STEP 7IF CIK AND CR0 THEN 1023 1007 IF CIK AND CV0 AND K5
9 THEN AAA1FLAG1K59 1008 NEXT 1009 IF PT1 THEN RETURN 1010 IF DT1 THEN 1014
ELSE IF CV1 OR CP1 OR CQ1 THEN 1014 1011 BK2CJ38-(ID-1)FOR I38 TO 1001 ER3CLSLO
CATE 7,1PRINT pa$(3)" LEAGUE POS LC CUPS FA DIV LFE "pa$(1) 1002 FOR I1 TO 12I
F K(I,1)0 THEN 1010 1003 LOCATE 5,ERPRINT "SEASON "K(I,1)LOCATE ER,15PRINT K(I,
2)TAB(19)K(I,3)TAB(22)"ROUNDS"TAB(28)K(I,4)TAB(31)K(I,5)IF K(I,6)1 THEN 1005 10
04 LOCATE 35,ERPRINT pa$(5)CHR$(42)pa$(1) 1005 IF K(I,7)1 THEN 1007 1006 LOCAT
E 36,ERPRINT CHR$(42) 1007 IF K(I,8)1 THEN 1009 1008 LOCATE 37,ERPRINT PA$(3)C
HR$(42)PA$(1) 1009 ERER+1 1010 NEXT 1011 LOCATE 5,16PRINT 2 STEP -2IF CJI THE
N BK1I1 1012 NEXT 1013 REM 1014 ' 1015 cz0UA0OZ0OQ0OP0HE0JN0X$""JJ0JR0NPNF+N
AOO0FOR I1 TO 20OOOO+ABS(U(I)0 AND J(I)35)*V(1,I)NPINT(NP)+V(1,I)IF J(I)73 THEN
YIGOSUB 525 1016 IF T(I)1 AND E(2,I)PC THEN O$(3)V$(I)PCE(2,I) 1017 IF ABS(X(I
))PD THEN O$(4)V$(I)PDABS(X(I)) 1018 IF V(1,I)PE THEN O$(5)V$(I)PEV(1,I) 1019
NEXTFOR I1 TO 12NPINT(NP)+ABS(Y(1,I))NEXTFMINT(AI)*0.3/100 1020 D$"W"HW903GOTO
902 1021 IF AP3 AND CI19 Tpa$(3)"RECORD SIGNING "pa$(1)IF PA0 THEN PRINT O$(1)"
"TEMPINT(PA)GOSUB 63500 1012 PRINT TAB(5)"RECORD SALE "IF PB0 THEN PRINT O$
(2)" "TEMPINT(PB)GOSUB 63500 1013 PRINT TAB(5)pa$(3)"HIGHEST GOALS "pa$(1)IF P
C0 THEN PRINT O$(3)INT(PC) 1014 PRINT TAB(5)"HIGHEST PLAYED "IF PD0 THEN PRINT
O$(4)INT(PD) 1015 PRINT TAB(5)pa$(3)"HIGHEST PAY "pa$(1)IF PE0 THEN PRINT O$
(5)" "TEMPINT(PE)GOSUB 63500 1016 LOCATE 27,21PRINT "LAST CLUBS"LOCATE 5,21PRI
NT "HIGHEST G NAFBGCHDIEHEN CT3MTCTCV0GOTO 1004 1022 MQ1MRCTGOSUB 140FLAG1K55G
OTO 1004 1023 IF AP3 AND CI19 THEN MR3CRMRCV0GOTO 1007 1024 MQ2MRCRGOSUB 140K5
9FLAG1GOTO 1007 C FLA HEN 1009 1003 AAA0FLAG0FOR I)PC THEN O$(3)V$(I)PCE(2,I
) 1017 IF ABS(X(I))PD THEN O$(4)V$(I)PDABS(X(I)) 1018 IF V(1,I)PE THEN O$(5)V$
(I)PEV(1,I) 1019 NEXTFOR I1 TO 12NPINT(NP)+ABS(Y(1,I))NEXTFMINT(AI)*0.3/100 10
20 D$"W"HW903GOTO 902 1021 IF AP3 AND CI19 TNV ZA)*RAMEME-ABS(ME99)*(ME-99)IF M
E2 THEN ME2 1029 RETURN M M INT(NV/100)RARA+ABS(RA0)RBNV-ZARCINT(RB/RA)RB
((H(Y)/100)*RC)H(Y)H(Y)-RBIF j(y)35 THEN GOSUB 525 1023 NEXTGOTO 1025 1024 GOS
UB 332NWZAGOTO 1001 1025 GOSUB 332NVZAGOTO 1001 1026 RAINT(RND*99)MEME+ABS(NW
ZA AND (ZA-NW)50)*RA-ABS(NWZA)*RAMEME-ABS(ME99)*(ME-99)IF ME2 THEN ME2 1027 RET
URN 1028 RAINT(RND*99)MEME+ABS(NV ZA AND (ZA-NV)50)*RA-ABS(p()" CONTINUE "p()
I"C" (, ) (, )( (, )) (, ) ( )"" N N ( , ) N ( , )
( , ) ( , ) ()01002 PRINT
TAB(3)"WAGE BILL"TAB(14)pa$(4)" WEEKLY NEWS "pa$(1)TAB(29)"GATE MONEY "TAB(4)TEM
PNPGOSUB 63500PRINT " -"TAB(15)"ATTEN "INT(DN)TAB(31)TEMPINT(BL)GOSUB 63500GOSUB
1061 1003 IF OL0 THEN PRINT TAB(5)PA$(4) "POLICE BILL "PA$(1)TAB(30)TEMPINT(OL
)GOSUB 63500PRINT TAB(36)"-"JRJR-OL 1004 IF o1n0 THEN PRINT TAB(5)PA$(2)"CLUB L
OTTERY RAISES"pa$(1)TAB(30)TEMPINT(o1n)GOSUB 63500PRINT TAB(36)"+ "JRJR+o1n 100
5 REM 1006 GOSUB 1028IF RA3 THEN 1009 1007 FOR 1001 BORDER 17INK 0,17CLSLOCATE
12,9PRINT "LEAGUE BONUS "TEMPINT(NW)GOSUB 63500LOCATE 12,11PRINT "CUP BONUS
"TEMPINT(NV)GOSUB 63500 1002 LOCATE 12,15PRINT pa$(6)"League Menu Cup"pa$(1)
1003 GOSUB 64000IF IN$"M" THEN 900 1004 IF IN$"C" THEN 1014 ELSE IF IN$"L" THE
N 1003 1005 CLS#2INPUT#2," NEW LEAGUE BONUS £"ZACLS#2IF ZA1 OR ZA999 THEN 1005
1006 IF NWZA THEN 1001 1007 GOSUB 1026IF NWZA THEN 1011 1008 RAZA-NWRA(RA/50)
IF RA0 THEN 1001 1009 FOR Y1 TO 20IF T(Y)I1 TO 20TEMP$V$(I)GOSUB 64900IF FLAG A
ND ABS(X(I))400 THEN RAINT(FT-FP)PRINT TAB(5)PA$(3)V$(I)" TESTIMONIAL "pa$(1)TAB
(30)TEMPRAGOSUB 63500PRINT TAB(36)"+ "JRJR+RAGOTO 1009 1008 NEXT 1009 IF NQ0 A
ND OO0 THEN PRINT TAB(5)"INSURANCE PAYS CLUB"TAB(30)TEMPINT(OO)GOSUB 63500PRINT
TAB(36)"+"JRJR+OO 1010 GOTO 1037 1011 GOSUB 1043 1012 IF OT0 THEN PRINT TAB(5
)"BONUS PAY"TAB(30)TEMPINT(11*NW)GOSUB 63500PRINT TAB(36)"-"JRJR-(NW*11)GOTO 101
4 1013 IF OS0 THEN PRINT TA0 THEN RBINT(RND*RA)H(Y)H(Y)+ABS(T(Y)0)*(RB/10)IF j(
y)35 THEN GOSUB 525 1010 NEXTGOTO 1024 1011 FOR Y1 TO 20IF T(Y)0 THEN 1013 10
12 RAINT(NW/100)RARA+ABS(RA0)RBNW-ZARCINT(RB/RA)RB((H(Y)/100)*RC)H(Y)H(Y)-RBIF j
(y)35 THEN GOSUB 525 1013 NEXTGOTO 1024 1014 CLS#2INPUT#2," NEW CUP BONUS £"Z
ACLS#2IF ZA1 OR ZA999 THEN 1014 1015 IF NVZA THEN 1001 1016 GOSUB 1028IF NVZA
THEN 1021 1017 RAZA-NVRA(RA/50)IF RA0 THEN 1001 1018 FOR Y1 TO 20IF T(Y)0 THEN
1020 1019 RBB(5)"CUP BONUS PAY"TAB(30)TEMPINT(11*NV)GOSUB 63500PRINT TAB(36)"-
"JRJR-(NV*11) 1014 REM 1015 REM 1016 GOSUB 1028IF RA3 THEN 1018 1017 RAINT(F
T-FP)PRINT TAB(5)PA$(5)"SPONSORS PAY THE CLUB"pa$(1)TAB(30)TEMPRAGOSUB 63500PRIN
T TAB(36)"+ "JRJR+RA 1018 IF DK4 THEN PRINT TAB(5)PA$(2)"TV LIVE BROADCAST NETS
"pa$(1)TAB(30)TEMP20000GOSUB 63500PRINT TAB(36)"+"JRJR+20000DK0 1019 IF MA9 AND
AG4 AND CIMB THEN PRINT TAB(5)PA$(3)"FD MANAGER OF THE MONTH"pa$(1)TAB(30)INT(R
ND*RA)H(Y)H(Y)+(RB/10)IF j(y)35 THEN GOSUB 525 1020 NEXTGOTO 1025 1021 FOR Y1
TO 20IF T(Y)0 THEN 1023 1022 RAINT(NV/100)RARA+ABS(RA0)RBNV-ZARCINT(RB/RA)RB((H
(Y)/100)*RC)H(Y)H(Y)-RBIF j(y)35 THEN GOSUB 525 1023 NEXTGOTO 1025 1024 GOSUB
332NWZAGOTO 1001 1025 GOSUB 332NVZAGOTO 1001 1026 RAINT(RND*99)MEME+ABS(NW ZA
AND (ZA-NW)50)*RA-ABS(NWZA)*RAMEME-ABS(ME99)*(ME-99)IF ME2 THEN ME2 1027 RETURN
1028 RAINT(RND*99)MEME+ABS(NV ZA AND (ZA-NV)50)*RA-ABS( NAFBGCHDIETEMP5000GO
SUB 63500PRINT TAB(36)"+"JRJR+5000 1020 MAMA-ABS(MBCI)*MAMBMB+ABS(MBCI)*4IF KC0
THEN PRINT TAB(5)pa$(2)"BANK REPAYMENTS"pa$(1)TAB(30)TEMPINT(CF)GOSUB 63500PRIN
T TAB(36)"- "JRJR-CFKCKC-CFKAKA+CFCFCF-ABS(KA1)*CFIF KACO THEN KACO 1021 IF JQ0
THEN PRINT TAB(5)pa$(4)"MORTGAGE REPAYMENTS"pa$(1)TAB(30)TEMPJPGOSUB 63500PRINT
TAB(36)"-"JRJR-JPJQJQ-JP 1022 PRINT TAB(14)"WEEK'S PROFIT "TAB(30)TEMPINT(JR)G
OSUB 63500IF JR0 THEN AIINT(AI)-ABS(JR)PRIEQUESTS "pa$(1),TAB(5)pa$(2)"A TRANSFE
R TO "Y$(RA)pa$(1),TAB(5)pa$(2)"TAX FREE "TEMPINT(EV)GOSUB 63500PRINT " ACCEPT
Y/N"pa$(1) 1053 GOSUB 64000IF IN$"Y" THEN 1054 ELSE IF IN$"N" THEN 1055 ELSE 10
53 1054 GOSUB 1066YIJRJR+EVGOSUB 200RETURN 1055 RAINT(RND*10)H(I)H(I)-(H(I)/1
0)YIGOSUB 525RETURN 1056 NEXTRETURN 1057 yflagRA97+INT(RND*10)RB1500000+INT(R
ND*1000000)PRINT Y$(RA)" OFFER "TEMPRBGOSUB 63500PRINT " TAX FREE","FOR "V$(Y)"
ACCEPT Y/N" 1058 GOSUB 64100NT" -"GOTO 1024 1023 AIINT(AI)+JR 1024 IF Z80 THE
N GOSUB 911 1025 GOSUB 1028IF RA4 THEN 1029 1026 FOR I1 TO 20GOSUB 1064 1027
NEXTGOTO 1029 1028 RA1+INT(RND*35)RETURN 1029 GOSUB 1028IF RA2 THEN 1033 103
0 FOR I1 TO 20TEMP$V$(I)GOSUB 64900IF FLAG0 AND U(I)1 THEN PRINT TAB(5)pa$(2)V$(
I)" RETIRES THROUGH INJURY "pa$(1)GOSUB 200I21 1031 REM 1032 NEXT 1033 IF MC4
THEN PRINT TAB(5)pa$(3)"POOLS PANEL SITS"pa$(1) 1034 MC0nqnq+(nq-1)IF nq0 THEN
1035 ELSE PRINT TAB(5)IF IN$"N" THEN 1011 1059 IF RBPB THEN O$(2)V$(Y)PBRB 10
60 IYGOSUB 1066GOSUB 200JRJR+RBGOTO 1011 1061 PRINT "+"JRBL-NPFTINT (CO/4)FPINT
(CO/31)FQINT (CO/59)FRINT (CO/99)RAFR+(RND*FQ)+FP/APFPINT (FP+RA) 1062 LOCATE
5,4PRINT "GENERAL RUNNING COSTS"TAB(30)TEMPFPGOSUB 63500PRINT TAB(36)"-",TAB(5)"
INTEREST FROM BANK"TAB(30)TEMPINT(FM)GOSUB 63500PRINT TAB(36)"+"JRJR-FP+FM 1063
RETURN 1064 IF T(I)0 AND ABS(G(I))29 AND J(I)82 AND J(I)42 AND J(I)76 AND J(I)
8pa$(3)"INSURANCE POLICY HAS EXPIRED"pa$(1) 1035 CHAIN MERGE "AD",1036 1036 HW
1001D$"W1"IF BU80 THEN 901 ELSE HW1003GOTO 901 1037 GOSUB 1028flag0FOR Y1 TO 20
IF J(Y)105 AND RA6 THEN FLAGYY97 ELSE IF J(Y)105 AND RA9 THEN flagYy98 1038 NEX
TIF Y99 THEN 1057 ELSE IF Y98 THEN 1011 1039 YFLAGPRINT TAB(5)pa$(6)V$(Y)" INTE
RNATIONAL COMITMENT"pa$(1),TAB(5)pa$(6)" RELEASE HIM Y/N"pa$(1)TAB(23)TEMPV(1,Y)
GOSUB 63500PRINT TAB(36)"+" 1040 GOSUB 64000IF IN$"Y" THEN J(Y)733 AND J(I)73 A
ND J(I)35 THEN J(I)82-ABS(U(I)0)*47 ELSE RETURN 1065 E(1,I)E(1,I)+(E(1,I)0)*(E(
1,I)*2)PRINT pa$(2)V$(I)" ANOUNCES HE PLANS TO"PRINT"RETIRE AT THE END OF THE SE
ASON"pa$(1)G(I)ABS(G(I))I21RETURN 1066 RAIFOR Y21 TO 23IF V$(Y)V$(I) THEN IYGOS
UB 200IRA 1067 NEXTRETURN ( )( ) R+T0PRINT TAB(36)"+"JRJR-FP+FM 1063 R
ETURN 1064 IF T(I)0 AND ABS(G(I))29 AND J(I)82 AND J(I)42 AND J(I)76 AND J(I)8J
RJR+V(1,Y)ADYGOSUB 351GOTO 1011 1041 IF IN$"N" THEN RA1+INT (RND*15)H(Y)H(Y)-(R
A/10)GOSUB 525GOTO 1011 1042 GOTO 1040 1043 GOSUB 816FOR J1 TO 4FOR K1 TO 4RA-
3+INT (RND*6)RARA-ABS(RA0)*RAI(1,J,K)I(1,J,K)+RANEXTRA1+INT (RND*10)IF RA1 THEN
1045 1044 GOSUB 98L$(J,4)CHR$(Z9)+"."+MID$(H$,RC,1)+MID$(M$,RB,1)+MID$(H$,RD,1)
+E$(RA)L$(J,4)L$(J,4)+SPACE$(8-LEN(L$(J,4)))GOSUB 817I(2,J,4)RA 1045 NEXTGOSUB
815 1046 RA1+INT(RND*15)IF RA9 THEN RAINT(AI/100)*15PRINT TAB(5)"VAT) ($)"+ "
J J o1 R TEM( ) FLA ( ( )) R( F F) ()P()( )" TESTIMONIAL "p()() TEM
R ($)"+ " J J R s N O ()"INSURANCE PAYS CLUB"() TEM( O) ($)"+" J J O
n O ()"BONUS PAY"() TEM( N) ($)"-" RETURNS"TAB(30)TEMPRAGOSUB 63500PRINT TA
B(38)"-"JRJR-RA 1047 GOSUB 1028IF RA9 AND AI300000 OR AI1500000 THEN RAINT (AI/
2)PRINT TAB(5)pa$(5)"DIRECTORS WITHDRAW"pa$(1)TAB(30)TEMPINT(RA)GOSUB 63500PRINT
TAB(38)"-"JRJR-RA 1048 GOSUB 1028IF RA8 THEN RETURN 1049 FOR I20 TO 1 STEP -
1IF T(I)0 THEN 1056 1050 IF J(I)32 OR J(I)43 OR J(I)45 THEN 1051 ELSE 1056 105
1 RA1+INT (RND*20)IF Y$(RA)Z$ THEN 1051 1052 EVINT(H(I))*H(I)*6000PRINT TAB(5)p
a$(2)V$(I)" IS UNHAPPY AND R N A F B G C H D I E1001 FL1+INT (RND*20)TEMP$V$(F
L)GOSUB 64900IF FLAG OR J(FL)35 OR J(FL)42 OR J(FL)73 OR J(FL)82 OR J(FL)83 THEN
1005 1002 GOSUB 1054 1003 IF JS0 THEN 1005 1004 PRINT V$(FL)" RETIRES THROUG
H INJURY"IFLGOSUB 200 1005 JS0 1006 temp$I$(1)GOSUB 64900IF flag THEN 1011 10
07 FOR I6 TO 12temp$I$(I)GOSUB 64900IF flag THEN 1010 1008 RAINT (Y(2,1)/10)RBI
NT (RND*RA)RBINT (RB/2)IF Y(2,I)+RB Y(3,I) THEN Y(2,I)INT(Y(2,I)-RB)GOTO 1010 1
009 Y(2,I)INT(Y(2,I)+RB) 1010 NEXT 1011 OW0BRECTORS VOTE OF CONFIDENCE"PRINT T
AB(5)pa$(5)"YOU HAVE BEEN SACKED"NC0OQ1CHAIN MERGE "X",1045 1038 RA1+INT (RND*3
5)RETURN 1039 GOSUB 890 1040 GOTO 1042 1041 R1+INT(RND*9)-5RR+ABS(R0)*ABS(R)
S1+INT(RND*8)-5SS+ABS(S0)*ABS(S)RETURN 1042 GOSUB 332flag0FOR i1 TO 20IF ASC(v
$(i))32 AND v(2,i)0 THEN flag1i21 1043 NEXTIF flag1 THEN d$"r"hw359GOTO 902 10
44 GOSUB 848GOTO 1044 1045 AI0GOSUB 1001GOTO 1039 1046 DXINT(AK*DW)/100AKAK-IN
T(AG-BX)*20AIINT(AI+DX)GOSUB 10U0CZ0IF CP1 THEN 605 1012 GOSUB 1038IF RA12 THEN
1016 1013 CHAIN MERGE "13",1014 1014 FOR K0 TO 1RA1+INT (RND*17)IF N(1,RA)0 T
HEN 1015 ELSE GOSUB 1041PRINT TAB(5)pa$(2)"MIDWEEK GAME"pa$(1),TAB(5)Y$(N(1,RA))
" "R" "Y$(N(2,RA))" "SR$Y$(N(1,RA))S$Y$(N(2,RA))GOSUB 1051N(1,RA)0 1015 NEXT
1016 A10FOR I1 TO 20A1A1-(T(I)0)NEXTGOSUB 312IF a112 THEN 1021 1017 IF JU1 THE
N PRINT TAB(5)"TOO MANY SHARES HAVE BEEN SOLD",TAB(5)"THE NEW BOARD OF DIRECTORS
",TAB(5)"HAVE SACK36PRINT TAB(5)"THE CLUB SELL SHARES "tempINT(DX)GOSUB 63500GOT
O 1023 tem( D) 1005 1002 GOSUB 10TURN 1039 GOSUB 890 1040 GOTO 1042 1041
R1+INT(RND*9)-5RR+ABS(R0)*ABS(R)S1+INT(RND*8)-5SS+ABS(S0)*ABS(S)RETURN 1042 GO
SUB 332flag0FOR i1 TO 20IF ASC(v$(i))32 AND v(2,i)0 THEN flag1i21 1043 NEXTIF f
lag1 THEN d$"r"hw359GOTO 902 1044 GOSUB 848GOTO 1044 1045 AI0GOSUB 1001GOTO 10
39 1046 DXINT(AK*DW)/100AKAK-INT(AG-BX)*20AIINT(AI+DX)GOSUB 10ED YOU"NC0OQ1CHAI
N MERGE "X",1045 1018 IF ID15 THEN 1023 1019 FOR I(ID-1) TO (ID-14) STEP -1RAA
SC(LEFT$(W$(I),1))-48RBASC(MID$(W$(I),2,1))-48OPOP+ABS(RARB)*3-(RARB)NEXTIF OP6
THEN 1023 1020 PRINT TAB(5)"DIRECTORS VOTE OF CONFIDENCE"RA1+INT(RND*2)ON RA GO
TO 1021,1022,1023 1021 PRINT TAB(5)pa$(5)"YOU ARE GIVEN A WEEK'S NOTICE"pa$(1)N
C0OQ1CHAIN MERGE "X",1045 1022 PRINT TAB(5)PA$(3)"YOU ARE GIVEN ANOTHER CHANCE"
PA$(1) 1023 IF AI-1 THEN 1039 1024 IF KA0 THEN 1026 1025 "( )" ACCEPT Y/N"" d
I"N" 3# R P ()( ) P R2$ * J J R % "+" J B N F ( C) F ( C) F ( C) F ( Cc)
R F(E F) F A F ( F R)& , "GENERAL RUNNING COSTS"() TEM F ($)"-",()"INTEREST FRO
M BANK"() TEM( F) ($)"+" J J F F'( ( )KDKAAIINT(AI+KA)KA0KDINT(KD+(KD/100)*11)
KCKC+KDCF(KC/40)GOSUB 1036PRINT TAB(5)"THE DIRECTORS BORROW "tempINT(KD)GOSUB 63
500GOTO 1023 1026 IF JQ0 THEN 1028 1027 JQINT (1800000/AP)ET((JQ/100)*26)JPINT
((ET+JQ)/80)AIINT (AI+JQ)JQJQ+ETGOSUB 1036PRINT TAB(5)"THE DIRECTORS MORTGAGE "
tempJQGOSUB 63500GOTO 1023 1028 IF AU2 THEN 1030 1029 DW(AU-1)AU1AVINT (DW/100
0)AVAV+ABS(AV0)*ABS(AV)AKINT(AK-((AK/100)*AV))AKAK+((1-AK)/2)*(1+SGN(0.95-AK))GO
TO 1046 1030 FOR I11001 RA3-ABS(AG6 AND AG14)-ABS(AG13)*2RZ1+INT(RND*RA)RAINT(A
G/4)-2FOR I1 TO RZ 1002 REM 1003 REM 1004 RBINT(RND*RA) 1005 RBRB+APRCRB-ABS
(RB4)*ABS(RB-4)-ABS(RB1)*RBRCRC-(RC0)RD((RC*20)-19)+10 1006 REINT(RND*10)IF RCA
P THEN 1011 1007 IF T$(RE+11)Z$ OR Y$(RD+RE)Z$ THEN 1006 1008 FLAG0FOR K1 TO I
-1IF J$(K)T$(11+RE) THEN FLAG1 1009 NEXTIF FLAG THEN 1006 1010 J$(I)T$(11+RE)O
(1,I)APO(2,I)11+REGOTO 1014 1011 FLAG0FOR K1 TO I-1IF J$(K)Y$(RD+RE) THEN FLAG1
1012 TO 20IF G(I)0 THEN flagii99 1031 NEXTIF i100 THEN 1032 ELSE FOR I24 TO 2
6GOSUB 200NEXTIF AI0 THEN 1037 ELSE 1017 1032 iflagIF INT(H(I))1 THEN EV6500GOT
O 1034 1033 iflagEV5000*(INT(H(I)-1))*(INT(H(I)-1))*2+ABS(J(I)105)*310000 1034
FUINT(EV/3)+6000RAEV+INT(RND*FU)EVRA 1035 GOSUB 1036PRINT TAB(5)"THE DIRECTORS
HAVE SOLD",TAB(5)V$(I)" FOR "tempEVGOSUB 63500AIINT(AI+EV)GOSUB 200GOTO 1030 1
036 PRINT TAB(5)"TO GET OUT OF FINANCIAL TROUBLE"RETURN 1037 PRINT TAB(5)"DI !
N!A!F!B!G!C!H!D!I!E NEXTIF FLAG THEN 1006 1013 RFRD+REJ$(I)Y$(RF)O(1,I)RCO(2,I)
11+RE 1014 NEXTRETURN 1003 rem 1004 RBINT(RND*RA) ) 1005 RBRB+APRCRB-ABS(
RB4)*ABS(RB-4)-ABS(RB1)*RBRCRC-(RC0)RD((RC*20)-19)+10 1006 REINT(RND*10)IF RCAP
THEN 1011 1007 IF T$(RE+11)Z$ OR Y$(RD+RE)Z$ THEN 1006 1008 FLAG0FOR K1 TO I-
1IF J$(K)T$(11+RE) THEN FLAG1 1009 NEXTIF FLAG THEN 1006 1010 J$(I)T$(11+RE)O(
1,I)APO(2,I)11+REGOTO 1014 1011 FLAG0FOR K1 TO I-1IF J$(K)Y$(RD+RE) THEN FLAG1
1012",1057 1039 RANDOMIZE TIMERA1+INT(RND*3)FOR I1 TO RA 1040 RB1+INT(RND*20)
TEMP$V$(RB)GOSUB 64900IF FLAG OR G(RB)0 THEN 1040 1041 G(RB)G(RB)-(G(RB)*2)NEXT
D$"Y1"HW1001GOTO 902 1042 CLS#2LOCATE 29,20INPUT G$IF UPPER$(G$)F$ THEN 1042 1
043 LOCATE 29,20PRINT F$" "RETURN 1044 DT0CV0CT0CR0FOR J1 TO 8A$(2,J)"
"A$(1,J)A$(2,J)NEXTJ1GOTO 1061 1045 IF AP3 AND CI17 AND J3 THEN CR3MS3GOTO
1052 1046 GOSUB 996FOR I1 TO (RB/2)GOSUB 997 1047 IF J1 AND Y1001 NAINT(200-(
7.5*O(2,IB)))*(5-O(1,IB))NGNANB(NA/100)*20NANA-NB 1002 NCINT((20/AG)*10)+(1+INT
(RND*20))NEINT(14-O(2,IB))-(INT(RND*7))NENE-(NE0)*ABS(NE) 1003 CLSPRINT TAB(15)
J$(IB)" FC",TAB(5)"THE BOARD OF DIRECTORS OFFER YOU",,,TAB(5)temPINT(NA)GOSUB 63
500PRINT " PER WEEK AND",TAB(5)"A"NC"WEEK CONTRACT" 1004 LOCATE 19,20PRINT "SIG
NATURE"GOTO 1014 1005 PRINT CHR$(7)NC0IF Z71 THEN 1016 1006 J$(IB)""O(1,IB)0O(
2,IB)0GOTO 1024 1014 LOCATE 9,22PRINT pa$(2)"RE-NEGOTI$(Z(J,I))Z$ THEN CTOJMTCT
MID$(A$(1,MT),2,9)Y$(Z(J+1,I))MID$(A$(1,MT),1,1)"H"MID$(A$(1,MT),13,1)CHR$(RY)PT
1CHAIN MERGE "U",1059 1048 IF J1 AND Y$(Z(J+1,I))Z$ THEN CTOJMTCTMID$(A$(1,MT),
2,9)Y$(Z(J,I))MID$(A$(1,MT),1,1)"A"MID$(A$(1,MT),13,1)CHR$(RZ)PT1CHAIN MERGE "U"
,1059 1049 IF J3 AND Y$(Z(J,I))Z$ THEN CROKMSCRMID$(A$(2,MS),2,9)Y$(Z(J+1,I))MI
D$(A$(2,MS),1,1)"H"MID$(A$(2,MS),13,1)CHR$(RY)PT1CHAIN MERGE "U",1059 1050 IF J
3 AND Y$(Z(J+1,I))Z$ THEN CROKMSCRMID$(AATE Y/N MENU"pa$(1)GOSUB 64000IF IN$"M"
THEN PRINT CHR$(7)NC0D$"R1"HW1001GOTO 902 1015 IF IN$"N" THEN 1032 ELSE IF IN$
"Y" THEN 1005 ELSE 1014 1016 IF NANG THEN NANA+10 1017 RA1+INT(RND*5)IF RA1 TH
EN 1002 1018 IF APO(1,IB) AND AP4 THEN 1027 1019 RAINT(RND*11)IF APO(1,IB) THE
N RBRA+O(2,IB)GOTO 1025 1020 FOR I1 TO 80RAABS(Y$(I)J$(IB))*III+ABS(RA0)*80NEXT
1021 RARA-ABS(RA71)*ABS(RA-71)RBRA+INT(RND*10)IF Y$(RB)Z$ THEN 1021 1022 IF R
B(CM-1) AND RB(CN+1) THEN RBR$(2,MS),2,9)Y$(Z(J,I))MID$(A$(2,MS),1,1)"A"MID$(A$(
2,MS),13,1)CHR$(RZ)PT1CHAIN MERGE "U",1059 1051 NEXT 1052 JJ+2IF J3 THEN 1061
ELSE 1062 1053 RCID-1RCRC-ABS(RC18)*19RDRC+VVRDRF0RE0FOR ICM TO RDRERE+ABS(Y$(I
)Z$ AND RE0)RFRF+ABS(Y$(I)J$(IB) AND RF0)NEXTIDID+ABS(RF1 AND RE0)GOTO 1060 105
4 PA0PB0PC0PD0PE0PF0PG0FOR J1 TO 5O$(J)""NEXTFOR I8 TO 7 STEP -1O$(I)O$(I-1)NEXT
O$(6)D$RETURN 1055 BX1D$Z$Z$J$(IB)J$(IB)D$NINI-ABS(O(1,IB)2)*NIAB-INT((INT(RB/2
0))*20)RBRB+ABS(T$(RB)Z$)O(1,IB)APGOTO 1030 1023 J$(IB)Y$(RB)O(1,IB)1+ABS(RB20
AND RB41)+ABS(RB40 AND RB61)*2+ABS(RB60)*3O(2,IB)RB-((O(1,IB)*20)-20) 1024 D$"R
1"HW1001GOTO 901 1025 IF RB20 THEN 1031 1026 IF T$(RB)Z$ THEN 1019 1027 FOR I
1 TO 20IF T$(I)J$(IB) THEN RAIi21 1028 NEXT 1029 RARA-ABS(RA11)*(RA-11)RBRA+IN
T(RND*10)IF T$(RB)Z$ THEN 1029 1030 J$(IB)T$(RB)O(2,IB)RBGOTO 1024 1031 RBRB-2
0RAO(1,IB)+1RBRB+((RA*20)-20)GOTO 1023 1032 GOSUB 10PO(1,IB)PSIBGOSUB 1054GOTO
1044 1056 CJ38-(ID-1)GOSUB 1053IF RX1 THEN 1038 ELSE 1033 1057 GOSUB 1001IF AP
3 THEN NI1 1058 GOTO 1039 1059 GOSUB 1003PT0IRB/2+1GOTO 1052 1060 VV+ABS(RF1
AND RE0 OR RF0 AND RE1 OR RF1 AND RE1)RETURN 1061 IF AP3 AND CI13 AND J1 THEN
CT3MT3GOTO 1052 ELSE 1045 1062 IBPSAGO(2,IB)ERASE KDIM K(12,8)NS1K(NS,2)AGK(NS,
5)APGOSUB 23000GOTO 1056 1063 ERASE MDIM M(9)BE0GZ0FOR I14 TO 56 STEP 7IF CII T
HEN CICI+1I55 1064 NEXTRET63PRINT CHR$(7)GOSUB 1042OW0AU100000JU0JQ0KC0GOSUB 81
6OQ0GOSUB 891RXABS(APO(1,IB))AK2000-(O(1,IB)*400)GOTO 1055 1033 RA(AP*20)-19FOR
K1 TO 18IF N(1,K)0 THEN ETN(1,K)EV1GOSUB 1036 1034 IF N(2,K)0 THEN ETN(2,K)EV2
GOSUB 1036 1035 NEXTFOR I1 TO 20T$(I)Y$((RA-1)+I)NEXTGOTO 1038 1036 FOR I1 TO
20IF T$(I)Y$(ET) THEN N(EV,K)((RA-1)+I)i21 1037 NEXTRETURN 1038 FOR I1 TO ID
W$(I)SPACE$(2)NEXTFOR y1 TO 28J(Y)0E(1,y)0e(2,y)0e(3,y)0NEXTCHAIN MERGE "H "N"A
"F"B"G"C"H"D"I"EURN $$$(7.5*O(2,IB)))*(5-O(1,IB))NGNANB(NA/100)*20NANA-NB
1002 NCINT((20/AG)*10)+(1+INT(RND*20))NEINT(14-O(2,1 1058 GOTO 1039 1059 GOSUB
1003PT0IRB/2+1GOTO 1052 1060 VV+ABS(RF1 AND RE0 OR RF0 AND RE1 OR RF1 AND RE1)
RETURN 1061 IF AP3 AND CI13 AND J1 THEN CT3MT3GOTO 1052 ELSE 1045 1062 IBPSAG
O(2,IB)ERASE KDIM K(12,8)NS1K(NS,2)AGK(NS,5)APGOSUB 23000GOTO 1056 1063 ERASE M
DIM M(9)BE0GZ0FOR I14 TO 56 STEP 7IF CII THEN CICI+1I55 1064 NEXTRET1001pt0FOR
J1 TO 4IF Y$(I(2,AP,J))Z$ THEN GOSUB 817I(2,AP,J)RA 1026 NEXTGOSUB 815GOTO 6 I
)MID$(H$,RC,1)+MID$(M$,RBNEXTGOSUB 332GOSUB 89 1021 pt1CHAIN MERGE "U",1025 10
22 REM 1023 FOR I1 TO NOGOSUB 98I$(I+5)MID$(H$,RC,1)+MID$(M$,RB,1)+MID$(H$,RD,1
)+E$(RA)Y(1,I+5)50Y(2,I+5)INT (RND*60)Y(3,I+5)35+INT (RND*65)Y(4,I+5)1+INT (RND*
4)Y(5,I+5)16+INT (RND*2) 1024 Y(6,I+5)-3+INT (RND*17)Y(6,I+5)Y(6,I+5)+(Y(6,I+5)
0)*ABS(Y(6,I+5))-(Y(6,I+5)9)*(Y(6,I+5)-9)NEXTRETURN 1025 GOSUB ( )( R) FL
A FLA M( )( R) (, ) A (, ) R K FLA ( )( R R) FLA FLA V R R R( )( R) (
, ) R (, ) R 02 rem 1003 rem 1004 RBINT(RND*RA) )) ( R(E ) R A 9 ( R) ( R
R) H FLA Mm5bdQT!RJSj, ) 1 (, , ) r / I a a( a)( !)lDc!s.w"0BoKngcNnBF'E,Q/21W
p$r5vL67+arG. +, lT)Guk1 BB1SAl(,'u&4U/5#s9 6t#7V(K*YwC1HdmaLU/b)j 'rfS5.£5z!wM2
*3"n61001 FOR I3 TO 12I$(I)""FOR K1 TO 5Y(K,I)0NEXTNEXT 1002 NL1NM1FOR I1 TO 2G
OSUB 98I$(I)MID$(H$,RC,1)+MID$(M$,RB,1)+MID$(H$,RD,1)+E$(RA)Y(1,I)50+INT (RND*20
0)Y(2,I)1+INT (RND*100)NEXT 1003 NN0+INT (RND*4)IF NN0 THEN 1007 1004 FOR I1 T
O NNGOSUB 98I$(I+2)MID$(H$,RC,1)+MID$(M$,RB,1)+MID$(H$,RD,1)+E$(RA)Y(1,I+2)50+IN
T (RND*200)Y(2,I+2)1+INT (RND*99)Y(4,I+2)1+INT (RND*4)Y(5,I+2)1+INT (RND*9) 100
5 Y(3,I+2)1+INT (RND*80)IF Y$(Y(3,I+2))Z$ THEN 1005 1006 NEXT 1007 NOINT ()"Y1
" H -# ,£ () , " "w D C C C (, )" "(, )(, ) % A C C
M % ( R) ( ( , )) C O M C((, M),,)( ( , ))((, M),,)"H"((, M), ,)( R) P
"U",# RND*5)IF NO0 THEN 1009 1008 GOSUB 1023 1009 GOSUB 416GOSUB 413FOR I1 T
O 3J$(I)""O(1,I)0O(2,I)0NEXT 1010 RA0+INT (RND*3)IF RA0 THEN 1013 1011 FOR I1
TO RAFOR K1 TO 20IF T(K)0 AND ABS(G(K))30 AND J(K)82 THEN E(1,K)E(1,K)-(E(1,K)*2
)G(K)ABS(G(K))J(K)82K21 1012 NEXTNEXT 1013 RAINT (RND*2)IF RA0 THEN 1020 1014
FOR K1 TO RAI1+INT(RND*12)IF U(I)0 THEN U(I)1+INT (RND*5)J(I)35ADIGOSUB 1017 1
015 REM 1016 NEXTGOTO 1020 1017 FOR J13 TO 20TEMP$V$(J)GOSUB 64900I3 Copyrig
ht (c) 1979, Digital ResearchCONRDRPUNLSTDEVVALUSRDSKTTYCRTBATUC1TTYPTRUR1UR2TTY
PTPUP1UP2TTYCRTLPTUL1R/OR/WSYSDIRR/O R/W SYS DIR ** Aborted **Active User Active
Files Drive Characteristics65536 128 Byte Record CapacityKilobyte Drive Ca
pacity32 Byte Directory EntriesChecked Directory EntriesRecords/ ExtentRecords
/ BlockSectors/ TrackReserved Tracks is Temp R/O Disk dR/OSet Indicator dfilenam
e.typ $R/O $R/W $SYS $DIRDisk SF FLAG THEN IJGOSUB 652j21 1018 NEXTRETURN 10
20 NJ1+(4-AP)K(NS,3)CTK(NS,4)CRNQ-1FOR I21 TO 26X(I)0V$(I)""NEXTGOSUB 332GOSUB 8
9 1021 pt1CHAIN MERGE "U",1025 1022 REM 1023 FOR I1 TO NOGOSUB 98I$(I+5)MID$(
H$,RC,1)+MID$(M$,RB,1)+MID$(H$,RD,1)+E$(RA)Y(1,I+5)50Y(2,I+5)INT (RND*60)Y(3,I+5
)35+INT (RND*65)Y(4,I+5)1+INT (RND*4)Y(5,I+5)16+INT (RND*2) 1024 Y(6,I+5)-3+INT
(RND*17)Y(6,I+5)Y(6,I+5)+(Y(6,I+5)0)*ABS(Y(6,I+5))-(Y(6,I+5)9)*(Y(6,I+5)-9)NEXT
RETURN 1025 GOSUB #N#A#F#B#G#C#H#D#I#Etatus DSK dDSKUser Status USRIobyte
Assign Bad DelimiterInvalid AssignmentBad Delimiter Bytes Remaining On R/, Spac
e Invalid File Indicator** Too Many Files **File Not Found Size Recs Bytes Ex
t Acc65536 set to R/O Invalid Disk AssignmentWrong CP/M Version (Requires 2.0)!9
"2!T O!6 Hr3 / *2!"q*"&L !$p+q*#*#N*##"#!&p+q*%DMOO!(q*(&Q" 8AOjDMm Z"l"!6 *
*M *x O W !+s#r!+s#r#4D O !6!)6l ) )2) & !"2!h6!j6'C'o&")!)6!"))/)H!)6!)*)&*
)*)&*) y!)6)2))2)M*)#")/)*)+")*")#"!*)!/H!")!"*))*)s#r!L!*p+q*)O2'!,p+q*+O2'O2'O
!.p+q*-LRRLRLR" O!/q*/& L!1p+q*0#L*##N!"T!Vq*VM!Xp+q!W* Wr#M!p+q!6!6*&**&Y/!4*&
O!49!a6a*&2bOz*bM !b/,HH*H.HHHH*&6!4T!4!cq*a&Ycw!a4)6!).*)&*)*)&*) w)2)*))w#6*))
w#6*)!)w#6*)%)w#6*))N#F*))q#p*)%)*)e*)*o&*)%)q#p!)6*!)6!)6!))!)w*)&*)2))*)&*))2)
)*)!)*))s, X)!d!")!)d!")!")*++!)a*))#V")*)")*))#V")!)6!)T*)&*)2)*)&*)2)O*))#V"!g
r+s+p+q!h6fr*d*f!is*d"dPY! "f!h#Hao!h6i0O!mr+s+p+q*lTZs#r*l*l+s#r*jN#F+q#p!nq!"o
"q2uo&"s*sn*sDM2uuqos*s"s*oO !v6!vQ*v&w6i+46)A*''O!)2vvO!w6,!v6!v*v&w*vM !v48AO*
##N!"*N#F*"SCRD BIN ddD!u8 $)8&,0O+yD!u8 $)8&,0O+yl call#bb60 jrc,copy1 ld
V BASW BAS,W1 BASX BASY BAS%Y1 BAS!H%-*DMDM *N
#F9*#V))DMT*o&DMo*DM*N#F *N#F!p+q*DM'Z"!6 * *M!+s#r#4!s+p+q!6!66! !6!£6!£r *&**£
&Yi !6!4+4A !4- !699 2 !42!6+6!O!9DMi!O!YDMi22!4 F)!6!O!9DMi8!6!2k !O!YDMiw!4CF
FF229Y9*&YDM 2I!62822!!29Y TY,e !p+q**N*#"o!p+q!'"!6**2*"PY! "!+H!60Ok $N$A$F$B
$G$C$H$D$I$E)*))*))N#Fq#p*))*)s#r*)#")!)6J)!)J!)6)2)*)")qtw!"))*))#V").*)DM -!6£
*DM'*)%)N#F'*)!)N#F'k*))N#FR/*)IONW8AO *)2)t())*)#")& !"))*)")*)M!#V*)*)w*)*)w *
)*)w *)*)w.*)DM -+!6u)O!DM*)#")*))))))")m w.Yn -YSZ H!6 2)!)6!)*)&*)2) ).*)M)2)9
9Y/9& c,H 9 EH iN#FogogogDM!))ogDM!)) #V) #Vgo ozgiN#Fogo&ogz#W-YSZ H!6 2)!)6!)*
)&*)2) ).*)M)2)99Y/9& c,H 9 EH iN#FogogogDM!))ogDM!)) #V) #Vgo ozgiN#Fogo&ogz#W
%N%A%F%B%G%C%H%D%I%E &N&A&F&B&G&C&H&D&I&E 'N'A'F'B'G'C'H'D'I'E T-L m U,N o X
-M m W-N o Y,J i W-L l Z,J j X-N n Q,J j Q+K l S-M n S-O o R,K j R+K j Q,M m O
,N n M-M l M+J j L+K k L,M n M-M m M+J j M-M m L*I i K+L l K-L m M-N o L+J i J+J
j J,K l I*J j I-L m E,N o H,L k G+K j E+K j G,M o F+L k G,M o F,L j Tous droits réservés. Reproduction sans autorisation interdite. © Kukulcan