000000: 5A 58 54 61 70 65 21 1A 01 14 30 27 32 30 32 33 ZXTape!...0'2023
000010: 2D 31 32 2D 30 31 20 30 37 3A 34 39 3A 35 34 20 -12-01 07:49:54
000020: 43 53 57 32 43 44 54 20 32 30 32 33 30 39 30 32 CSW2CDT 20230902
000030: 20 2D 35 20 FF FF 20 2F 70 11 53 09 E4 05 08 04 -5 .. /p.S.....
000040: E1 04 70 09 01 10 08 10 00 07 01 00 2C 43 43 2D ..p.........,CC-
000050: 41 4D 53 2D 56 34 00 00 00 00 00 00 00 01 FF 00 AMS-V4..........
000060: F0 03 70 01 FF F0 03 00 00 00 00 00 00 00 00 00 ..p.............
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: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 00 00 00 00 00 00 00 00 00 00 00 00 E8 12 FF ................
000150: FF FF FF 11 52 09 E4 05 08 04 CD 04 75 09 01 10 ....R.......u...
000160: 08 91 28 0D 04 00 16 2B 00 0A 00 03 00 00 7A E2 ..(....+......z.
000170: EF 22 5C 20 20 20 20 20 20 20 20 20 20 20 20 20 ."\
000180: 20 5C 20 20 20 20 20 20 20 20 A3 23 23 23 23 23 \ £#####
000190: 22 00 2C 00 0B 00 9E 20 0D 00 00 C9 EF 0E 20 EC ".,.... ...... .
0001A0: 20 19 0F 01 C3 20 0D 00 00 C1 01 A2 20 0D 00 00 .... ...... ...
0001B0: C9 2C 0D 00 00 C1 01 B0 20 0D 00 00 C9 00 33 00 .,...... .....3.
0001C0: 0D 00 8C 20 30 2C 33 2C 36 2C 39 2C 31 38 2C 31 ... 0,3,6,9,18,1
0001D0: 39 2C 31 36 2C 31 35 2C 32 2C 31 2C 32 34 2C 32 9,16,15,2,1,24,2
0001E0: 35 2C 31 33 2C 31 32 2C 31 32 2C 32 35 2C 32 36 5,13,12,12,25,26
0001F0: 00 27 00 0F 00 BF 20 FF 09 28 22 22 29 01 82 20 .'.... ..("")..
000200: 0E 01 AD 20 0E 01 A8 22 21 43 43 50 49 43 2E 53 ... ..."!CCPIC.S
000210: 43 52 22 2C 1C 00 C0 00 D0 00 14 00 03 00 00 ED CR",............
000220: 28 0F 29 EF FF 03 28 19 0E 29 F4 FF 03 28 0E 29 (.)...(..)...(.)
000230: F4 FF 03 28 19 0F 29 F4 FF 03 28 0F 29 01 03 00 ...(..)...(.)...
000240: 00 ED 28 10 29 EF FF 03 28 19 0E 29 F4 FF 03 28 ..(.)...(..)...(
000250: 0F 29 F4 FF 03 28 19 0F 29 F4 FF 03 28 0E 29 01 .)...(..)...(.).
000260: 03 00 00 ED 28 11 29 99 D8 EF FF 03 28 19 0E 29 ....(.).....(..)
000270: F4 FF 03 28 10 29 F4 FF 03 28 19 0F 29 F4 FF 03 ...(.)...(..)...
000280: 28 0F 29 01 03 00 00 ED 28 12 29 EF FF 03 28 19 (.).....(.)...(.
000290: 0E 29 F4 FF 03 28 11 29 F4 FF 03 28 19 0F 29 F4 .)...(.)...(..).
0002A0: FF 03 28 0F 29 01 03 00 00 ED 28 13 29 EF FF 03 ..(.).....(.)...
0002B0: 28 19 0E 29 F4 FF 03 28 10 29 F4 FF 03 28 19 0F (..)...(.)...(..
0002C0: 29 F4 FF 03 28 0F 29 01 03 00 00 ED 28 14 29 EF )...(.).....(.).
0002D0: FF 03 28 19 0E 29 F4 FF 03 28 0F 29 F4 FF 03 28 ..(..)...(.)...(
0002E0: 19 0F 29 F4 FF 03 28 10 29 00 6D 00 15 00 88 01 ..)...(.).m.....
0002F0: 8E 20 61 2C 63 2D 70 2C 73 2D 79 01 CF 20 80 20 . a,c-p,s-y.. .
000300: 19 FD 01 CF 20 19 FE 2C 0E 2C 19 7C 2C 19 54 2C .... ..,.,.|,.T,
000310: 19 54 2C 19 54 2C 19 54 2C 19 54 2C 0E 01 CF 20 .T,.T,.T,.T,...
000320: 19 FF 2C 0E 2C 19 3C 2C 19 76 2C 19 6A 2C 19 56 ..,.,.<,.v,.j,.V
000330: 2C 19 6E 2C 19 3C 2C 0E 01 B7 20 22 64 22 01 AA ,.n,.<,... "d"..
000340: 20 FF 42 F5 0F 01 89 01 85 20 AB 22 21 43 43 4D .B...... ."!CCM
000350: 45 53 53 22 2C 0F 00 36 00 0C F8 03 00 00 61 B1 ESS",..6......a.
000360: EF FF 19 28 0D 00 00 72 B1 82 8C 29 01 BF 20 FF ...(...r...).. .
000370: 03 28 19 A3 29 3B FF 79 28 03 00 00 61 B1 2C FF .(.£);.y(...a.,.
000380: 0E 28 03 00 00 61 B1 29 F5 0F 29 3B 01 C9 00 45 .(...a.)..);...E
000390: 00 70 F8 03 00 00 61 B1 EF FF 19 28 0D 00 00 72 .p....a....(...r
0003A0: B1 29 01 03 00 00 61 B1 EF FF 79 28 03 00 00 61 .)....a...y(...a
0003B0: B1 2C FF 0E 28 03 00 00 61 B1 29 F5 0F 29 01 BF .,..(...a.)..)..
0003C0: 20 23 10 2C FF 03 28 19 A3 29 3B 03 00 00 61 B1 #.,..(.£);...a.
0003D0: 3B 01 C9 00 26 00 00 FA 03 00 00 69 EE EF 22 22 ;...&......i..""
0003E0: 01 03 00 00 69 EE EF FF 1C 28 FF 43 29 01 D6 20 ....i....(.C)..
0003F0: FF 43 F2 22 22 01 D5 01 C9 00 2D 00 64 FA 9F 20 .C."".....-.d..
000400: 1E 00 FA 01 A1 20 03 00 00 69 EE EF 22 59 22 20 ..... ...i.."Y"
000410: FC 20 03 00 00 69 EE EF 22 4E 22 20 EB 20 C9 20 . ...i.."N" . .
000420: 01 97 20 1E 64 FA 00 21 00 C8 FA 83 20 1C 03 BB .. .d..!.... ...
000430: 01 A1 20 03 00 00 69 EB EF 22 22 20 EB 20 03 00 .. ...i.."" . ..
000440: 00 69 EB EF 22 20 22 00 37 00 D2 FA 03 00 00 69 .i.." ".7......i
000450: EE EF 22 22 01 D6 20 03 00 00 69 EE EF 22 22 01 .."".. ...i.."".
000460: 9F 20 1E 00 FA 01 D5 01 0D 00 00 FB 1B E1 EF FF . ..............
000470: 74 28 03 00 00 69 EB 2C 03 00 00 69 EE 29 01 C9 t(...i.,...i.)..
000480: 00 19 00 E8 FD 9E 20 0D 00 00 7A 39 B9 EF 0F 20 ...... ...z9...
000490: EC 20 1A E8 03 01 B0 01 C9 00 C1 00 DC FF 0D 00 . ..............
0004A0: 00 52 C1 EF FF 09 28 22 22 29 01 8D 20 E4 20 0D .R....("").. . .
0004B0: 00 00 E1 28 0D 00 00 E1 2C 0D 00 00 E2 2C 0D 00 ...(....,....,..
0004C0: 00 E3 29 EF F5 28 0D 00 00 E1 F1 0D 00 00 E2 29 ..)..(.........)
0004D0: F6 0D 00 00 E2 F5 28 0D 00 00 E1 EE 0D 00 00 E3 ......(.........
0004E0: 29 F6 0D 00 00 E3 F5 0D 00 00 E1 F6 28 0D 00 00 )...........(...
0004F0: E1 EE 0D 00 00 E2 F5 0F 20 FA 20 0D 00 00 E1 F1 ........ . .....
000500: 0D 00 00 E3 F4 0F 29 01 C2 20 FF 46 01 AD 20 0F ......).. .F.. .
000510: 01 D8 20 23 0F 2C 13 2C 19 25 2C 19 16 2C 19 16 .. #.,.,.%,..,..
000520: 01 D8 20 23 10 2C 13 2C 19 25 2C 19 17 2C 19 19 .. #.,.,.%,..,..
000530: 01 82 20 17 01 A2 20 0E 2C 17 01 A2 20 0F 2C 0E .. ... .,... .,.
000540: 01 A2 20 10 2C 19 0C 01 A2 20 11 2C 19 0D 01 BF .. .,.... .,....
000550: 20 03 00 00 ED 28 0F 29 01 C9 00 00 00 00 00 00 ....(.)........
000560: 00 00 00 00 00 00 00 00 00 00 00 00 00 A4 FB FF ................
000570: FF FF FF 11 54 09 E4 05 57 04 E1 04 70 09 01 10 ....T...W...p...
000580: 08 10 00 07 01 00 2C 43 43 50 49 43 2E 53 43 52 ......,CCPIC.SCR
000590: 00 00 00 00 00 00 00 01 00 02 00 08 00 C0 FF 00 ................
0005A0: 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 @...............
0005B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0005C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0005D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0005E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0005F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000600: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000610: 00 00 00 00 00 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 00 00 00 00 00 00 00 00 00 00 00 00 ................
000670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000680: 00 00 00 00 00 00 00 44 95 FF FF FF FF 11 53 09 .......D......S.
000690: E4 05 08 04 DE 04 64 09 01 10 08 01 0A 15 08 00 ......d.........
0006A0: 16 00 00 00 00 00 00 00 00 44 CC CC CC CC CC 00 .........D......
0006B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 44 CC CC .............D..
0006C0: 00 00 CC CC 00 00 00 00 00 00 00 00 00 44 CC CC .............D..
0006D0: CC CC CC CC CC 00 00 00 00 00 00 00 00 00 00 00 ................
0006E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0006F0: 00 CC 00 00 00 00 00 00 00 00 CC 00 00 00 00 CC ................
000700: 00 00 44 88 00 CC 00 00 00 00 00 00 00 00 CC 88 ..D.............
000710: 44 88 00 00 00 00 CC 00 00 00 00 88 00 00 00 00 D...............
000720: 44 88 00 00 00 00 00 00 00 00 00 00 00 00 00 00 D...............
000730: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000740: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000750: 00 00 00 00 00 00 00 00 00 00 00 00 00 FF FF 00 ................
000760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0007A0: 00 E5 15 00 00 00 00 00 00 00 00 00 00 00 55 FF ..............U.
0007B0: BB 33 AA 00 00 44 CC CC CC CC CC 00 00 44 CC CC .3...D.......D..
0007C0: CC CC CC CC CC 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 CC 00 00 00 00 00 00 00 00 EE CC ................
000800: CC CC CC 00 00 00 CC 00 00 00 00 00 00 00 00 00 ................
000810: 44 88 00 00 00 00 44 CC CC CC CC 00 00 00 44 88 D.....D.......D.
000820: 00 00 44 00 44 CC 00 88 00 00 00 00 00 00 00 00 ..D.D...........
000830: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000840: 00 00 00 00 00 00 00 00 00 00 00 00 00 FF FF BB ................
000850: 33 AA 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3...............
000860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000890: 40 0C C0 C0 00 00 00 00 00 00 00 00 55 FF FF 33 @...........U..3
0008A0: AA 00 00 7A 69 00 00 00 00 00 00 00 00 00 00 00 ...zi...........
0008B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0008C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0008D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0008E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FF FF ................
0008F0: BB 77 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .w..............
000900: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000910: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000920: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000930: 00 00 00 00 00 00 00 00 00 00 00 00 00 55 FF AA .............U..
000940: 33 AA 00 00 00 00 00 00 43 C3 C3 C3 02 00 00 00 3.......C.......
000950: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000980: 00 00 00 00 00 00 00 00 00 00 00 00 55 FF AA 11 ............U...
000990: 77 00 00 00 00 01 C3 C3 C3 C3 C3 C3 83 83 00 00 w...............
0009A0: 00 00 00 00 00 6D AC 00 00 00 00 00 00 00 00 00 .....m..........
0009B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0009C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0009D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 55 AA ..............U.
0009E0: 00 77 00 00 00 00 00 00 00 80 00 03 C3 83 83 83 .w..............
0009F0: 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000A00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000A10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000A20: 00 00 00 00 00 00 00 00 00 00 00 00 55 33 33 C3 ............U33.
000A30: 82 00 00 00 00 00 00 00 14 3C 68 A8 77 55 40 80 .........<h.wU@.
000A40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000A50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000A70: 00 00 00 00 00 00 00 00 00 00 00 11 22 FF 55 33 ............".U3
000A80: FF 00 00 00 00 00 00 00 00 00 00 33 77 77 BB 77 ...........3ww.w
000A90: AA 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000AA0: 00 00 00 00 00 00 00 F1 CF 00 00 00 00 00 00 00 ................
000AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 33 22 ..............3"
000AD0: 33 FF 33 AA AA 00 00 00 00 00 00 00 11 77 FF FF 3.3..........w..
000AE0: FF FF FF FF AA 00 00 00 00 00 00 00 00 00 00 00 ................
000AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000B00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000B10: 00 00 00 00 00 00 00 00 00 00 00 00 00 33 BB 33 .............3.3
000B20: 63 82 FF 33 33 FF FF BB FF FF FF FF FF FF FF FF c..33...........
000B30: FF BB FF FF AA 00 00 00 00 00 00 00 00 00 00 00 ................
000B40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000B50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000B70: 00 55 EB 82 FF FF FF FF 33 FF FF FF FF FF AA 00 .U......3.......
000B80: 33 33 77 FF FF 00 00 00 00 00 00 00 00 00 00 00 33w.............
000B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000BA0: 00 00 00 00 00 00 00 00 00 26 97 00 00 00 00 00 .........&......
000BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000BC0: 00 00 00 00 00 FF 33 33 33 11 11 41 11 33 33 77 ......333..A.33w
000BD0: BB FF FF FF FF FF 77 00 00 00 00 00 00 00 00 00 ......w.........
000BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000C00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000C10: 00 00 00 00 00 00 00 00 00 00 55 11 11 FF FF FF ..........U.....
000C20: FF FF FF FF FF BB FF 33 00 00 00 00 00 00 00 00 .......3........
000C30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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 11 77 FF FF .............w..
000C70: FF FF FF FF BB FF BB 22 00 00 00 00 00 00 00 00 ......."........
000C80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000C90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000CA0: 00 00 00 00 00 00 00 00 00 00 00 67 07 00 00 00 ...........g....
000CB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 11 77 FF ..............w.
000CC0: FF FF FF 77 FF FF FF BB 33 22 00 00 00 00 00 00 ...w....3"......
000CD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000CE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000CF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000D00: 00 00 00 00 00 00 00 00 00 00 00 00 11 BB 77 00 ..............w.
000D10: 33 FF FF FF BB 33 FF 33 33 33 00 00 00 00 00 00 3....3.333......
000D20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000D30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000D40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000D50: 00 00 00 00 33 BB BB 22 00 00 00 33 33 33 33 FF ....3.."...3333.
000D60: FF FF 33 33 00 FF FF FF 33 00 00 00 2A 3F 3F 3F ..33....3...*???
000D70: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
000D80: 3F 3F 3F 3F 3F 3F 3F 3F 3F 15 00 00 00 00 00 00 ?????????.......
000D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000DA0: 00 00 00 77 77 FF 77 FF 11 22 33 33 77 2A CD BB ...ww.w.."33w*..
000DB0: 33 77 77 FF FF FF FF BB 33 11 33 22 00 2A 3F 3F 3ww.....3.3".*??
000DC0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
000DD0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 15 15 00 00 00 00 ??????????......
000DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000DF0: 00 00 00 00 00 77 BB FF 33 33 AA 33 11 77 BB BB .....w..33.3.w..
000E00: FF BB 77 BB FF FF FF FF FF FF 22 00 2A 3F 3F 3F ..w.......".*???
000E10: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
000E20: 3F 3F 3F 3F 3F 3F 3F 3F 2A 3F 15 00 00 00 00 00 ????????*?......
000E30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000E40: 00 00 00 00 00 11 77 FF FF FF FF FF 22 11 33 77 ......w.....".3w
000E50: FF BB 77 77 FF FF FF FF FF FF BB 15 15 3F 3F 3F ..ww.........???
000E60: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 2A 15 3F 2A 3F ???????????*.?*?
000E70: 2A 3F 2A 2A 00 3F 00 15 2A 2A 00 00 00 00 00 00 *?**.?..**......
000E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FC ................
000EB0: E5 FF FF FF FF 11 51 09 95 05 57 04 E0 04 6C 09 ......Q...W...l.
000EC0: 01 10 08 10 00 07 01 00 2C 43 43 50 49 43 2E 53 ........,CCPIC.S
000ED0: 43 52 00 00 00 00 00 00 00 02 00 02 00 08 00 C8 CR..............
000EE0: 00 00 40 00 00 00 00 00 00 00 00 00 00 00 00 00 ..@.............
000EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000F00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000F10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000F20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000F30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000F40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000F50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000F60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000F70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000F80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000F90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000FA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000FB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000FC0: 00 00 00 00 00 00 00 00 00 E4 26 FF FF FF FF 11 ..........&.....
000FD0: 51 09 E4 05 57 04 DD 04 69 09 01 10 08 FF 09 15 Q...W...i.......
000FE0: 08 00 16 00 00 CC CC CC 88 44 00 00 CC 00 00 00 .........D......
000FF0: 00 CC 00 00 CC CC 00 00 00 CC CC CC 88 44 00 00 .............D..
001000: CC 00 00 00 44 00 00 00 CC CC CC CC CC CC 88 44 ....D..........D
001010: 00 00 44 88 00 00 CC 00 00 00 00 00 00 00 00 00 ..D.............
001020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001030: 00 00 00 CC 00 00 00 00 00 00 00 00 CC 00 00 00 ................
001040: 00 CC 00 00 44 88 00 CC 00 00 00 00 00 00 00 00 ....D...........
001050: CC 00 00 CC 00 00 00 00 CC 00 00 00 00 88 00 00 ................
001060: 00 00 44 88 00 00 00 00 00 00 00 00 00 00 00 00 ..D.............
001070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 BB ................
0010A0: 33 AA 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3...............
0010B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0010C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0010D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0010E0: 00 00 00 A2 61 00 00 00 00 CC CC CC 88 44 00 00 ....a........D..
0010F0: 55 FF EE 99 AA 00 00 00 CC 00 00 00 00 CC 00 44 U..............D
001100: 00 00 44 88 00 00 CC 00 00 00 44 88 00 00 00 00 ..D.......D.....
001110: CC CC 00 00 CC CC 00 00 44 CC 88 00 00 00 00 00 ........D.......
001120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001130: 00 00 00 00 00 00 00 CC 00 00 00 00 00 00 00 55 ...............U
001140: EE FF 33 77 CC 88 00 00 CC 00 00 00 00 00 00 00 ..3w............
001150: 00 00 44 88 00 00 00 00 44 00 00 00 CC 88 00 00 ..D.....D.......
001160: 44 88 00 00 44 00 44 CC 00 88 00 00 00 00 00 00 D...D.D.........
001170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FF ................
001190: FF BB 33 AA 00 00 00 00 00 00 00 00 00 00 00 00 ..3.............
0011A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0011B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0011C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0011D0: 00 00 40 0C C0 C0 00 00 00 00 00 00 00 00 55 FF ..@...........U.
0011E0: FF 33 AA 00 00 EE A1 00 00 00 00 00 00 00 00 00 .3..............
0011F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001200: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001210: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001230: FF FF BB 77 00 00 00 00 00 00 00 00 00 00 00 00 ...w............
001240: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001250: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FF ................
001280: FF AA 33 AA 00 00 00 00 00 01 C3 C3 C3 C3 83 00 ..3.............
001290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0012A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0012B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0012C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 55 FF ..............U.
0012D0: AA 11 AA 00 00 00 00 01 C3 C3 C3 C3 C3 C3 C3 03 ................
0012E0: 02 00 00 00 00 00 00 63 D4 00 00 00 00 00 00 00 .......c........
0012F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001300: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001310: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001320: 00 AA 00 77 00 00 00 00 00 00 00 C0 80 00 43 43 ...w..........CC
001330: 43 03 02 00 00 00 00 00 00 00 00 00 00 00 00 00 C...............
001340: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001350: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 33 ...............3
001370: 33 C3 82 00 00 00 00 00 00 00 54 BC FC FC 55 AA 3.........T...U.
001380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0013A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0013B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 11 77 55 ..............wU
0013C0: AA 77 FF 00 00 00 00 00 00 00 00 00 11 BB BB BB .w..............
0013D0: 33 FF FF 00 00 00 00 00 00 00 00 00 00 00 00 00 3...............
0013E0: 00 00 00 00 00 00 00 00 00 E7 DC 00 00 00 00 00 ................
0013F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001400: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 ................
001410: FF BB 11 33 33 00 FF 00 00 00 00 00 00 00 FF FF ...33...........
001420: FF FF FF 77 FF FF AA 00 00 00 00 00 00 00 00 00 ...w............
001430: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001440: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001450: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 33 ...............3
001460: AA 00 C3 82 77 BB 77 FF FF FF FF FF FF FF FF FF ....w.w.........
001470: FF FF FF BB FF FF AA 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 55 BB C3 D7 FF FF BB 33 77 FF FF AA 00 ...U......3w....
0014C0: 00 33 FF 33 FF FF FF 00 00 00 00 00 00 00 00 00 .3.3............
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 75 E3 00 00 00 ...........u....
0014F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001500: 00 00 00 00 00 00 00 55 FF 33 22 22 22 22 11 33 .......U.3"""".3
001510: 77 33 BB FF FF FF FF FF BB 00 00 00 00 00 00 00 w3..............
001520: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001530: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001540: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001550: 00 00 00 00 00 00 00 00 00 00 00 00 00 BB 11 FF ................
001560: FF FF FF FF FF FF FF BB 77 33 00 00 00 00 00 00 ........w3......
001570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0015A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 77 ...............w
0015B0: FF FF FF FF FF FF BB 77 FF 00 00 00 00 00 00 00 .......w........
0015C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0015D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0015E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 FB 52 00 ..............R.
0015F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 ................
001600: 77 FF FF FF FF BB FF FF FF FF 33 22 00 00 00 00 w.........3"....
001610: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 77 ...............w
001650: 77 33 11 33 FF FF FF BB FF BB 33 22 00 00 00 00 w3.3......3"....
001660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001690: 00 00 00 00 00 00 77 BB FF 22 00 00 00 33 33 33 ......w.."...333
0016A0: 33 FF FF FF BB 33 22 55 FF FF BB 22 00 00 2A 3F 3....3"U..."..*?
0016B0: 2A 2A 2A 2A 2A 2A 3F 3F 3F 3F 15 15 15 3F 3F 3F ******????...???
0016C0: 2A 2A 2A 3F 2A 2A 2A 3F 3F 3F 2A 2A 2A 00 00 00 ***?***???***...
0016D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0016E0: 00 00 00 00 00 77 77 FF 77 FF 11 22 33 33 77 B9 .....ww.w.."33w.
0016F0: C3 FF 33 33 77 FF FF FF FF FF 33 00 33 00 00 2A ..33w.....3.3..*
001700: 3F 3F 2A 2A 2A 3F 2A 2A 2A 3F 3F 3F 15 15 15 3F ??***?***???...?
001710: 15 15 2A 2A 2A 2A 2A 2A 2A 3F 3F 2A 3F 15 00 00 ..*******??*?...
001720: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001730: 00 00 00 00 00 00 00 77 FF 33 77 FF 33 33 11 77 .......w.3w.33.w
001740: FF BB 77 33 BB 77 FF FF FF FF FF FF 22 00 2A 3F ..w3.w......".*?
001750: 3F 3F 2A 2A 2A 2A 2A 2A 2A 3F 15 15 15 15 15 15 ??*******?......
001760: 15 15 2A 2A 2A 3F 2A 2A 2A 3F 2A 3F 15 00 00 00 ..***?***?*?....
001770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001780: 00 00 00 00 00 00 00 11 77 FF FF FF FF FF 33 11 ........w.....3.
001790: 33 77 FF BB 33 77 FF FF FF FF FF FF BB 00 2A 3F 3w..3w........*?
0017A0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 15 2A 3F ?????????????.*?
0017B0: 15 15 2A 15 00 2A 3F 2A 3F 3F 2A 2A 00 00 00 00 ..*..*?*??**....
0017C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0017D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0017E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0017F0: 00 D1 09 FF FF FF FF 11 51 09 95 05 57 04 DF 04 ........Q...W...
001800: 6E 09 01 10 08 10 00 07 01 00 2C 43 43 50 49 43 n.........,CCPIC
001810: 2E 53 43 52 00 00 00 00 00 00 00 03 00 02 00 08 .SCR............
001820: 00 D0 00 00 40 00 00 00 00 00 00 00 00 00 00 00 ....@...........
001830: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001840: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001850: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0018A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0018B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0018C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0018D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0018E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0018F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001900: 00 00 00 00 00 00 00 00 00 00 00 B5 B9 FF FF FF ................
001910: FF 11 51 09 E4 05 57 04 DD 04 62 09 01 10 08 FD ..Q...W...b.....
001920: 09 15 08 00 16 00 CC 88 00 00 44 CC 00 00 CC 00 ..........D.....
001930: 00 00 00 44 88 00 44 88 00 00 CC 88 00 00 44 CC ...D..D.......D.
001940: 00 00 CC 00 00 00 88 00 00 00 CC 00 00 00 00 00 ................
001950: 88 44 00 00 44 88 00 00 44 00 00 00 00 00 00 00 .D..D...D.......
001960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001970: 00 00 00 00 00 CC 00 00 00 00 00 00 00 00 CC 00 ................
001980: 00 00 00 CC 00 00 44 88 00 CC 00 00 00 00 00 00 ......D.........
001990: 00 00 CC 00 00 44 88 00 00 00 CC 00 00 00 00 00 .....D..........
0019A0: 00 00 00 00 44 88 00 00 00 00 00 00 00 00 00 00 ....D...........
0019B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0019C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0019D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0019E0: 00 BB 33 33 AA 00 00 00 00 00 00 00 00 00 00 00 ..33............
0019F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001A00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001A10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001A20: 00 00 00 00 00 A9 C5 00 00 00 CC 88 00 00 44 CC ..............D.
001A30: 00 00 FF FF CC 99 AA 00 00 00 CC 00 00 00 00 44 ...............D
001A40: 88 44 00 00 44 88 00 00 44 00 00 00 CC 88 00 00 .D..D...D.......
001A50: 00 00 44 88 00 00 44 CC 88 00 00 88 00 00 00 00 ..D...D.........
001A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001A70: 00 00 00 00 00 00 00 00 00 CC 00 00 00 00 00 00 ................
001A80: 00 55 DD FF 33 77 44 88 00 00 CC 00 00 00 00 00 .U..3wD.........
001A90: 00 00 00 00 44 88 00 00 00 00 88 00 00 00 44 88 ....D.........D.
001AA0: 00 00 44 88 00 00 44 00 00 CC 88 88 00 00 00 00 ..D...D.........
001AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001AC0: 00 00 00 00 00 40 C0 00 00 00 00 00 00 00 00 00 .....@..........
001AD0: 00 FF FF BB 77 00 00 00 00 00 00 00 00 00 00 00 ....w...........
001AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 54 00 ..............T.
001AF0: FC 54 00 A8 54 A8 54 00 54 A8 00 00 00 00 00 00 .T..T.T.T.......
001B00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001B10: 00 00 00 00 40 84 C0 C0 00 00 00 00 00 00 00 00 ....@...........
001B20: 55 FF FF 33 AA 00 00 36 BB 00 00 00 00 00 00 00 U..3...6........
001B30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001B40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001B50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001B70: 00 55 FF FF BB 77 00 00 00 00 00 00 00 00 00 00 .U...w..........
001B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001BC0: 00 FF FF 11 77 00 00 00 00 00 00 43 C3 C3 C3 C3 ....w......C....
001BD0: 83 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001C00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001C10: 55 FF 00 33 AA 00 00 00 00 01 C3 83 C3 C3 C3 C3 U..3............
001C20: 83 83 02 00 00 00 00 00 00 DB 40 00 00 00 00 00 ..........@.....
001C30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001C40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001C50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001C60: 00 00 00 C3 11 77 00 00 00 00 00 00 14 80 00 C0 .....w..........
001C70: 01 03 03 03 02 00 00 00 00 00 00 00 00 00 00 00 ................
001C80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001C90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001CA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001CB0: 11 11 33 EB 82 00 00 00 00 00 00 00 00 FC FC FC ..3.............
001CC0: 00 00 00 FF 22 00 00 00 00 00 00 00 00 00 00 00 ...."...........
001CD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001CE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001CF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 ................
001D00: FF AA BB 33 FF AA 00 00 00 00 00 00 00 00 77 77 ...3..........ww
001D10: 77 33 77 FF FF 00 00 00 00 00 00 00 00 00 00 00 w3w.............
001D20: 00 00 00 00 00 00 00 00 00 00 00 27 1A 00 00 00 ...........'....
001D30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001D40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001D50: 00 11 BB FF 82 33 33 FF FF AA 00 00 00 00 00 FF .....33.........
001D60: FF FF FF FF FF 77 FF FF AA 00 00 00 00 00 00 00 .....w..........
001D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001DA0: 00 11 BB AA 00 82 11 BB 77 FF FF FF FF FF FF FF ........w.......
001DB0: FF FF FF FF FF 11 FF FF AA 00 00 00 00 00 00 00 ................
001DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001DF0: 00 00 00 00 00 55 BB 63 D7 FF FF 33 33 33 22 00 .....U.c...333".
001E00: 00 33 33 77 FF 33 FF FF FF 00 00 00 00 00 00 00 .33w.3..........
001E10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001E20: 00 00 00 00 00 00 00 00 00 00 00 00 00 D3 5D 00 ..............].
001E30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001E40: 00 00 00 00 00 00 00 00 00 00 BB 33 11 11 11 11 ...........3....
001E50: 11 33 33 BB FF FF FF FF FF FF FF 22 00 00 00 00 .33........"....
001E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 55 ...............U
001EA0: 11 FF FF FF FF FF FF FF FF BB 77 33 00 00 00 00 ..........w3....
001EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001EF0: 11 FF FF FF FF FF FF FF BB 77 FF 00 00 00 00 00 .........w......
001F00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001F10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001F20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 E4 ................
001F30: A3 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 £...............
001F40: 00 11 77 FF FF FF FF FF 77 FF FF FF 33 22 00 00 ..w.....w...3"..
001F50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001F60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001F70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001F80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001F90: 33 BB BB BB AA 11 77 FF FF FF 77 FF 33 22 00 00 3.....w...w.3"..
001FA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001FB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001FC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001FD0: 00 00 00 00 00 00 00 00 77 BB FF BB 00 00 11 33 ........w......3
001FE0: 33 33 33 FF FF FF FF 33 33 55 FF FF BB 22 00 00 333....33U..."..
001FF0: 2A 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F *???????????????
002000: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 2A 2A 2A 00 ????????????***.
002010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002020: 00 00 00 00 00 00 00 77 77 FF BB FF 11 22 33 33 .......ww...."33
002030: FF 7A 19 FF 33 77 77 FF FF FF FF FF BB 22 33 00 .z..3ww......"3.
002040: 00 2A 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F .*??????????????
002050: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 2A 3F 15 ?????????????*?.
002060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002070: 00 00 00 00 00 00 00 00 00 77 FF 77 FF FF FF 22 .........w.w..."
002080: 11 77 FF FF 33 33 77 77 FF FF FF FF FF FF BB 00 .w..33ww........
002090: 2A 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F *???????????????
0020A0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 2A 2A 2A 00 ????????????***.
0020B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0020C0: 00 00 00 00 00 00 00 00 00 11 FF FF FF FF FF FF ................
0020D0: 33 00 33 77 FF FF 77 FF FF FF FF FF FF FF BB 00 3.3w..w.........
0020E0: 2A 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 15 *??????????????.
0020F0: 3F 3F 15 15 2A 15 00 2A 3F 2A 3F 3F 3F 00 00 00 ??..*..*?*???...
002100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002130: 00 00 00 B3 B8 FF FF FF FF 11 50 09 E4 05 08 04 ..........P.....
002140: DF 04 6A 09 01 10 08 10 00 07 01 00 2C 43 43 50 ..j.........,CCP
002150: 49 43 2E 53 43 52 00 00 00 00 00 00 00 04 00 02 IC.SCR..........
002160: 00 08 00 D8 00 00 40 00 00 00 00 00 00 00 00 00 ......@.........
002170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0021A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0021B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0021C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0021D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0021E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0021F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002200: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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 00 00 00 00 00 00 BD 59 FF ..............Y.
002250: FF FF FF 11 50 09 E4 05 08 04 DC 04 69 09 01 10 ....P.......i...
002260: 08 FC 09 15 08 00 16 44 CC 00 00 00 00 CC 00 00 .......D........
002270: CC 00 00 00 00 44 88 00 44 88 00 44 CC 00 00 00 .....D..D..D....
002280: 00 CC 00 00 CC 00 00 44 00 00 00 00 CC 00 00 00 .......D........
002290: 00 00 00 00 00 00 44 88 00 00 00 00 00 00 00 00 ......D.........
0022A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0022B0: 00 00 00 00 00 00 00 44 88 00 00 00 00 44 00 00 .......D.....D..
0022C0: CC 00 00 00 00 CC 00 00 44 88 00 44 88 00 00 00 ........D..D....
0022D0: 00 44 00 00 CC 00 00 00 CC 00 00 00 CC 00 00 00 .D..............
0022E0: 00 00 00 00 00 00 44 88 00 00 00 00 00 00 00 00 ......D.........
0022F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002300: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002310: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002320: 00 00 00 BB 33 33 33 00 00 00 00 00 00 00 00 00 ....333.........
002330: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002340: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002350: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002360: 00 00 00 00 00 00 00 71 33 00 00 44 CC 00 00 00 .......q3..D....
002370: 00 CC 00 00 FF FF CC CC AA 00 00 00 CC 00 00 00 ................
002380: 00 44 88 00 00 00 44 88 00 00 00 00 00 00 CC CC .D....D.........
002390: 00 00 00 00 44 88 00 00 44 CC 88 00 00 88 00 00 ....D...D.......
0023A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0023B0: 00 00 00 00 00 00 00 00 00 00 00 44 88 00 00 00 ...........D....
0023C0: 00 44 00 55 DD FF 33 AA 44 CC 00 00 CC 00 00 00 .D.U..3.D.......
0023D0: 00 00 00 00 00 00 44 88 00 00 00 00 88 00 00 00 ......D.........
0023E0: 44 CC 00 00 44 88 00 00 44 00 00 CC 88 88 00 00 D...D...D.......
0023F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002400: 00 00 00 00 00 00 00 C0 C0 80 00 00 00 00 00 00 ................
002410: 00 00 00 FF FF BB 77 00 00 00 00 00 00 00 00 00 ......w.........
002420: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002430: A8 54 00 00 A8 A8 A8 A8 A8 A8 A8 A8 00 00 00 00 .T..............
002440: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002450: 00 00 00 00 00 00 00 C0 C0 80 00 00 00 00 00 00 ................
002460: 00 00 55 FF BB 33 AA 00 00 21 EE 00 00 00 00 00 ..U..3...!......
002470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0024A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0024B0: 00 00 00 55 FF FF 33 77 00 00 00 00 00 00 00 00 ...U..3w........
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: 00 00 00 FF FF 11 77 00 00 00 01 02 00 43 C3 C3 ......w......C..
002510: C3 C3 43 02 00 00 00 00 00 00 00 00 00 00 00 00 ..C.............
002520: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002530: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002540: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002550: 00 00 55 FF 00 33 AA 00 00 00 00 01 43 C3 43 C3 ..U..3......C.C.
002560: C3 C3 C3 03 02 00 00 00 00 00 00 18 15 00 00 00 ................
002570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0025A0: 00 00 00 00 00 C3 93 77 00 00 00 00 00 00 14 80 .......w........
0025B0: 80 80 55 AB 43 03 00 00 00 00 00 00 00 00 00 00 ..U.C...........
0025C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0025D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0025E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0025F0: 00 00 11 22 11 FF 82 00 00 00 00 00 00 00 00 C0 ..."............
002600: FC A8 00 00 55 FF 33 00 00 00 00 00 00 00 00 00 ....U.3.........
002610: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002640: 00 00 55 FF BB 33 FF AA 00 00 00 00 00 00 00 00 ..U..3..........
002650: BB BB BB 33 FF FF FF AA 00 00 00 00 00 00 00 00 ...3............
002660: 00 00 00 00 00 00 00 00 00 00 00 00 00 FF 7D 00 ..............}.
002670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002690: 00 00 00 33 AA 00 41 11 22 BB 77 AA 00 00 00 FF ...3..A.".w.....
0026A0: FF FF FF FF FF FF FF 77 FF FF AA 00 00 00 00 00 .......w........
0026B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0026C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0026D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0026E0: 00 00 00 11 55 22 00 00 11 BB FF FF FF FF FF FF ....U"..........
0026F0: FF FF FF FF FF FF FF 11 FF FF AA 00 00 00 00 00 ................
002700: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002710: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002720: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002730: 00 00 00 00 00 00 00 00 BB 33 C3 FF FF 33 22 00 .........3...3".
002740: 00 33 33 33 33 FF FF BB 77 FF FF 00 00 00 00 00 .3333...w.......
002750: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 07 ................
002770: 75 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 u...............
002780: 00 00 00 00 00 00 00 00 00 00 00 00 55 BB 22 22 ............U.""
002790: 22 22 11 33 77 77 77 FF FF FF FF FF FF 22 00 00 "".3www......"..
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 11 FF 33 FF FF FF FF FF FF BB 33 22 00 00 ....3.......3"..
0027F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002800: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002810: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002820: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002830: 00 00 11 FF FF FF FF FF FF FF FF 33 FF 00 00 00 ...........3....
002840: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002850: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002870: 00 7B F5 00 00 00 00 00 00 00 00 00 00 00 00 00 .{..............
002880: 00 00 00 11 77 FF FF FF FF FF BB FF FF FF 33 22 ....w.........3"
002890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0028A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0028B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0028C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0028D0: 00 00 33 77 33 33 77 00 33 FF FF FF 33 FF 33 22 ..3w33w.3...3.3"
0028E0: 00 00 00 15 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ....????????????
0028F0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 00 ???????????????.
002900: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002910: 00 00 00 00 00 00 00 00 00 00 77 FF 77 BB 00 00 ..........w.w...
002920: 11 33 33 33 33 FF FF FF FF BB 33 00 FF FF BB 22 .3333.....3...."
002930: 00 00 2A 3F 2A 2A 2A 2A 2A 2A 2A 3F 3F 15 15 15 ..*?*******??...
002940: 15 15 3F 3F 2A 2A 2A 3F 2A 2A 2A 3F 3F 3F 2A 2A ..??***?***???**
002950: 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 *...............
002960: 00 00 00 00 00 00 00 00 00 77 BB FF BB FF 11 22 .........w....."
002970: 33 33 FF 15 42 FF BB 33 FF FF FF FF FF FF FF 22 33..B..3......."
002980: 11 00 00 2A 3F 3F 2A 2A 2A 3F 2A 2A 2A 3F 3F 3F ...*??***?***???
002990: 15 15 15 15 15 15 2A 2A 2A 2A 2A 2A 2A 3F 3F 2A ......*******??*
0029A0: 2A 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 **..............
0029B0: 00 00 00 00 00 00 00 00 00 00 00 77 BB FF FF FF ...........w....
0029C0: FF AA 00 33 FF FF 33 33 BB 77 FF FF FF FF FF FF ...3..33.w......
0029D0: BB 15 15 3F 3F 3F 2A 2A 2A 2A 2A 2A 2A 3F 15 15 ...???*******?..
0029E0: 15 15 15 3F 15 15 2A 2A 2A 3F 2A 2A 2A 3F 15 2A ...?..***?***?.*
0029F0: 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 *...............
002A00: 00 00 00 00 00 00 00 00 00 00 00 11 FF FF BB 33 ...............3
002A10: 33 33 33 22 33 77 FF 33 33 FF FF FF FF FF FF FF 333"3w.33.......
002A20: BB 00 15 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A30: 15 15 3F 3F 15 15 2A 2A 2A 2A 15 3F 00 3F 00 00 ..??..****.?.?..
002A40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A70: 00 00 00 00 00 23 4F FF FF FF FF 11 50 09 E4 05 .....#O.....P...
002A80: 08 04 DF 04 71 09 01 10 08 11 00 07 01 00 2C 43 ....q.........,C
002A90: 43 50 49 43 2E 53 43 52 00 00 00 00 00 00 00 05 CPIC.SCR........
002AA0: 00 02 00 08 00 E0 00 00 40 00 00 00 00 00 00 00 ........@.......
002AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002B00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002B10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002B20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002B30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002B40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002B50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 BA ................
002B90: C8 FF FF FF FF 11 4F 09 33 06 08 04 DD 04 61 09 ......O.3.....a.
002BA0: 01 10 08 FE 09 15 08 00 16 44 88 00 00 00 00 44 .........D.....D
002BB0: 00 00 CC 00 00 00 00 44 88 00 44 88 00 44 88 00 .......D..D..D..
002BC0: 00 00 00 44 00 00 CC 00 00 88 00 00 00 00 CC 00 ...D............
002BD0: 00 00 00 00 00 00 00 00 44 88 00 00 00 00 00 00 ........D.......
002BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002BF0: 00 00 00 00 00 00 00 00 00 44 88 00 00 00 00 44 .........D.....D
002C00: 00 00 CC 00 00 00 00 CC 44 00 44 88 00 44 88 00 ........D.D..D..
002C10: 00 00 00 44 00 00 CC 00 00 00 44 88 00 00 CC 00 ...D......D.....
002C20: 00 00 00 00 00 00 00 00 44 88 00 00 00 00 00 00 ........D.......
002C30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002C40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002C50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002C60: 00 00 00 00 00 FF 33 77 BB 00 00 00 00 00 00 00 ......3w........
002C70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002C80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002C90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002CA0: 00 00 00 00 00 00 00 00 00 61 8A 00 00 44 88 00 .........a...D..
002CB0: 00 00 00 44 00 00 FF EE BB CC AA 00 00 00 CC 00 ...D............
002CC0: 00 00 00 44 88 00 00 00 44 88 00 00 00 00 00 44 ...D....D......D
002CD0: 00 CC 00 00 00 00 44 88 00 00 44 44 CC 00 00 88 ......D...DD....
002CE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002CF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 44 88 00 .............D..
002D00: 00 00 00 44 00 44 FF FF 33 AA 00 CC 00 00 CC 00 ...D.D..3.......
002D10: 00 00 00 00 00 00 00 00 44 88 00 00 00 44 00 00 ........D....D..
002D20: 00 00 00 CC 00 00 44 88 00 00 44 00 00 44 CC 88 ......D...D..D..
002D30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002D40: 00 00 00 00 00 00 00 00 00 84 C0 80 00 00 00 00 ................
002D50: 00 00 00 00 00 FF FF 33 77 00 00 00 00 00 00 00 .......3w.......
002D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002D70: 00 00 A8 54 00 00 A8 A8 54 A8 54 00 54 A8 00 00 ...T....T.T.T...
002D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002D90: 00 00 00 00 00 00 00 00 00 C0 C0 80 00 00 00 00 ................
002DA0: 00 00 00 00 FF FF BB 33 AA 00 00 D0 69 00 00 00 .......3....i...
002DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002DF0: 00 00 00 00 00 55 FF FF 33 AA 00 00 00 00 00 00 .....U..3.......
002E00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002E10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002E20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002E30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002E40: 00 00 00 00 00 FF FF 11 77 00 00 00 01 83 02 43 ........w......C
002E50: C3 C3 C3 C3 83 02 00 00 00 00 00 00 00 00 00 00 ................
002E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002E90: 00 00 00 00 55 FF 00 33 AA 00 00 00 00 00 03 C3 ....U..3........
002EA0: C3 C3 C3 C3 83 83 02 00 00 00 00 00 00 F6 CD 00 ................
002EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002EE0: 00 00 00 00 00 00 00 C3 93 FF 00 00 00 00 00 00 ................
002EF0: 68 E8 D4 00 33 FF 03 03 00 00 00 00 00 00 00 00 h...3...........
002F00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002F10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002F20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002F30: 00 00 00 00 11 33 AA FF 82 00 00 00 00 00 00 00 .....3..........
002F40: 00 BC FC A8 00 00 FF FF 33 00 00 00 00 00 00 00 ........3.......
002F50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002F60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002F70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002F80: 00 00 00 00 55 FF BB 33 FF AA 00 00 00 00 00 00 ....U..3........
002F90: 00 00 77 77 22 33 77 FF FF AA 00 00 00 00 00 00 ..ww"3w.........
002FA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 C5 ................
002FB0: 43 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 C...............
002FC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002FD0: 00 00 00 00 00 33 FF BB 63 11 22 FF 77 FF 00 00 .....3..c.".w...
002FE0: FF FF FF FF FF FF FF FF FF 77 FF FF AA 00 00 00 .........w......
002FF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003020: 00 00 00 00 00 00 11 41 C3 82 11 33 FF FF FF FF .......A...3....
003030: FF FF FF FF FF FF FF FF FF 11 FF FF FF 00 00 00 ................
003040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003070: 00 00 00 00 00 00 00 00 00 00 FF 33 63 C3 FF C3 ...........3c...
003080: 00 00 33 33 33 33 BB 77 FF FF 33 FF FF 00 00 00 ..3333.w..3.....
003090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0030A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0030B0: 00 E9 98 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0030C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 55 ...............U
0030D0: 11 11 11 11 11 33 77 FF FF FF FF FF FF FF FF 22 .....3w........"
0030E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0030F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003120: 00 00 00 00 11 BB 33 FF FF FF FF BB FF FF 33 22 ......3.......3"
003130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003170: 00 00 00 00 33 FF FF FF FF FF FF FF FF 33 FF 00 ....3........3..
003180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0031A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0031B0: 00 00 00 E3 0E 00 00 00 00 00 00 00 00 00 00 00 ................
0031C0: 00 00 00 00 00 11 77 FF FF FF FF FF FF 77 77 FF ......w......ww.
0031D0: 33 33 00 00 00 00 00 00 00 00 00 00 00 00 00 00 33..............
0031E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0031F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003200: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003210: 00 00 00 00 33 33 FF 77 33 AA 11 77 FF FF 33 77 ....33.w3..w..3w
003220: 33 22 00 00 00 2A 00 00 00 00 00 00 00 00 00 00 3"...*..........
003230: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003240: 00 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .*..............
003250: 00 00 00 00 00 00 00 00 00 00 00 11 77 FF 77 BB ............w.w.
003260: 00 00 33 33 33 33 33 FF FF FF FF FF 33 22 FF FF ..33333.....3"..
003270: BB 22 00 15 15 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ."...???????????
003280: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
003290: 2A 2A 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 ***.............
0032A0: 00 00 00 00 00 00 00 00 00 00 00 77 BB FF BB FF ...........w....
0032B0: 11 22 33 BB 77 38 96 FF BB 77 77 BB FF FF FF FF ."3.w8...ww.....
0032C0: FF BB 00 00 15 15 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ......??????????
0032D0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
0032E0: 3F 15 2A 2A 00 00 00 00 00 00 00 00 00 00 00 00 ?.**............
0032F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 77 77 FF .............ww.
003300: FF FF FF 33 00 33 77 FF BB 33 77 77 FF FF FF FF ...3.3w..3ww....
003310: FF FF BB 15 15 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F .....???????????
003320: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
003330: 15 2A 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 .**.............
003340: 00 00 00 00 00 00 00 00 00 00 00 00 00 11 FF 33 ...............3
003350: 77 FF FF BB 22 22 33 33 33 33 33 FF FF FF FF FF w...""33333.....
003360: FF FF 22 00 00 2A 00 00 00 00 00 00 00 00 00 00 .."..*..........
003370: 00 00 15 15 00 2A 00 00 2A 2A 2A 2A 3F 3F 3F 15 .....*..****???.
003380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0033A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0033B0: 00 00 00 00 00 00 00 EB 5B FF FF FF FF 11 50 09 ........[.....P.
0033C0: E4 05 08 04 DE 04 6D 09 01 10 08 10 00 07 01 00 ......m.........
0033D0: 2C 43 43 50 49 43 2E 53 43 52 00 00 00 00 00 00 ,CCPIC.SCR......
0033E0: 00 06 00 02 00 08 00 E8 00 00 40 00 00 00 00 00 ..........@.....
0033F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003400: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003410: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003420: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003430: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003440: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003450: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0034A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0034B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0034C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0034D0: 00 1E 67 FF FF FF FF 11 4E 09 E4 05 57 04 DC 04 ..g.....N...W...
0034E0: 65 09 01 10 08 FD 09 15 08 00 16 44 88 00 00 00 e..........D....
0034F0: 00 00 00 00 CC 00 00 00 00 CC 00 00 44 88 00 44 ............D..D
003500: 88 00 00 00 00 00 00 00 CC 00 44 00 00 00 00 00 ..........D.....
003510: CC 00 00 00 00 88 00 00 00 00 44 88 00 00 00 00 ..........D.....
003520: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003530: 00 00 00 00 00 00 00 00 00 00 00 00 CC 00 00 00 ................
003540: 00 CC 00 00 CC 00 00 00 00 44 CC 00 44 88 00 00 .........D..D...
003550: CC 00 00 00 00 CC 00 00 CC 00 00 00 00 CC 00 00 ................
003560: CC 00 00 00 00 00 88 00 00 00 44 88 00 00 00 00 ..........D.....
003570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0035A0: 00 00 00 00 00 00 55 FF BB BB 33 00 00 00 00 00 ......U...3.....
0035B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0035C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0035D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0035E0: 00 00 00 00 00 00 00 00 00 00 00 FF 5C 00 00 44 ............\..D
0035F0: 88 00 00 00 00 00 00 00 FF EE BB CC 88 00 00 00 ................
003600: CC 00 00 00 00 CC 00 00 00 00 44 88 00 00 00 00 ..........D.....
003610: 00 44 00 CC 88 00 00 00 44 88 00 00 44 44 CC 00 .D......D...DD..
003620: 00 88 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003640: CC 00 00 00 00 CC 00 44 FF FF 33 AA 00 CC 88 00 .......D..3.....
003650: CC 00 00 00 00 00 00 00 00 00 44 88 00 00 00 44 ..........D....D
003660: 00 00 00 00 00 CC 88 00 44 88 00 00 44 00 00 44 ........D...D..D
003670: CC 88 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003680: 00 00 00 00 00 00 00 00 00 00 40 5C C0 C0 00 00 ..........@\....
003690: 00 00 00 00 00 00 00 FF FF 33 77 00 00 00 00 00 .........3w.....
0036A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0036B0: 00 00 00 00 A8 54 00 00 A8 A8 00 A8 A8 A8 00 A8 .....T..........
0036C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0036D0: 00 00 00 00 00 00 00 00 00 00 00 40 C0 00 00 00 ...........@....
0036E0: 00 00 00 00 00 00 FF FF BB 33 AA 00 00 A7 E9 00 .........3......
0036F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003700: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003710: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003720: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003730: 00 00 00 00 00 00 00 55 FF FF 33 AA 00 00 00 00 .......U..3.....
003740: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003750: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003780: 00 00 00 00 00 00 00 FF FF 11 77 00 00 00 01 C3 ..........w.....
003790: 83 43 C3 C3 C3 C3 43 02 00 00 00 00 00 00 00 00 .C....C.........
0037A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0037B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0037C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0037D0: 00 00 00 00 00 00 FF FF 00 33 AA 00 00 00 00 00 .........3......
0037E0: 01 C3 83 C3 C3 C3 43 03 02 00 00 00 00 00 00 DD ......C.........
0037F0: DA 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003800: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003810: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003820: 00 00 00 00 00 00 00 00 00 C3 C3 00 00 00 00 00 ................
003830: 00 00 68 BC FC 00 77 FF 00 03 00 00 00 00 00 00 ..h...w.........
003840: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003850: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003870: 00 00 00 00 00 00 22 33 FF FF AA 00 00 00 00 00 ......"3........
003880: 00 00 00 54 FC 00 00 FF FF FF 33 00 00 00 00 00 ...T......3.....
003890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0038A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0038B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0038C0: 00 00 00 00 00 00 00 33 33 77 FF FF 00 00 00 00 .......33w......
0038D0: 00 00 00 00 BB AA 11 33 FF FF FF FF 00 00 00 00 .......3........
0038E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0038F0: 00 C5 40 00 00 00 00 00 00 00 00 00 00 00 00 00 ..@.............
003900: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003910: 00 00 00 00 00 00 00 77 BB FF 63 93 55 FF BB 77 .......w..c.U..w
003920: FF 77 FF FF FF FF FF FF FF FF FF 77 FF FF AA 00 .w.........w....
003930: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003940: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003950: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003960: 00 00 00 00 00 00 00 00 00 41 C3 82 00 33 FF FF .........A...3..
003970: FF FF FF FF FF FF FF FF FF FF AA 33 FF FF FF 00 ...........3....
003980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0039A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0039B0: 00 00 00 00 00 00 00 00 00 00 00 00 55 33 63 C3 ............U3c.
0039C0: C3 82 22 00 33 33 33 33 FF 33 FF FF BB 77 FF 00 ..".3333.3...w..
0039D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0039E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0039F0: 00 00 00 7F 49 00 00 00 00 00 00 00 00 00 00 00 ....I...........
003A00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A10: 00 00 FF 22 22 22 11 33 77 FF FF FF FF FF FF FF ...""".3w.......
003A20: FF 22 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ."..............
003A30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A60: 00 00 00 00 00 00 11 33 77 FF FF FF FF BB FF FF .......3w.......
003A70: 33 22 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3"..............
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 33 FF FF FF FF FF FF FF FF BB ......3.........
003AC0: 77 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 w...............
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 DD 96 00 00 00 00 00 00 00 00 00 ................
003B00: 00 00 00 00 00 00 00 00 77 FF FF FF FF FF FF BB ........w.......
003B10: 33 FF 33 33 00 00 00 00 00 00 00 00 00 00 00 00 3.33............
003B20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003B30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003B40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003B50: 00 00 00 00 00 11 33 33 77 BB BB 77 AA 33 FF FF ......33w..w.3..
003B60: BB 33 33 22 00 00 00 2A 3F 3F 3F 3F 3F 3F 3F 3F .33"...*????????
003B70: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
003B80: 3F 3F 3F 15 00 00 00 00 00 00 00 00 00 00 00 00 ???.............
003B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 11 77 FF ..............w.
003BA0: 77 BB 22 11 33 33 33 33 33 FF FF FF FF FF 33 33 w.".33333.....33
003BB0: 55 FF BB 22 00 15 15 3F 2A 2A 2A 2A 2A 2A 2A 3F U.."...?*******?
003BC0: 3F 15 15 3F 15 15 3F 3F 2A 2A 2A 3F 2A 2A 2A 3F ?..?..??***?***?
003BD0: 3F 3F 15 2A 2A 00 00 00 00 00 00 00 00 00 00 00 ??.**...........
003BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 77 BB FF .............w..
003BF0: BB FF 11 22 33 FF 33 B9 7A FF FF 33 BB BB FF FF ..."3.3.z..3....
003C00: FF FF FF FF 22 00 15 15 3F 3F 2A 2A 2A 3F 2A 2A ...."...??***?**
003C10: 2A 3F 3F 15 15 15 15 15 15 3F 2A 2A 2A 2A 2A 2A *??......?******
003C20: 2A 3F 3F 15 2A 2A 00 00 00 00 00 00 00 00 00 00 *??.**..........
003C30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 ................
003C40: FF BB 33 33 33 33 22 33 77 FF BB 33 33 77 FF FF ..3333"3w..33w..
003C50: FF FF FF FF BB 15 15 3F 3F 3F 2A 2A 2A 2A 2A 2A .......???******
003C60: 3F 3F 3F 15 15 15 3F 3F 3F 15 2A 2A 2A 3F 2A 2A ???...???.***?**
003C70: 2A 3F 15 15 00 00 00 00 00 00 00 00 00 00 00 00 *?..............
003C80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 ................
003C90: BB FF FF FF FF FF 22 00 33 33 33 33 33 FF FF FF ......".33333...
003CA0: FF FF FF FF 22 00 00 2A 00 00 00 00 00 00 00 00 ...."..*........
003CB0: 00 00 00 00 15 15 2A 2A 3F 2A 2A 2A 2A 2A 3F 3F ......**?*****??
003CC0: 3F 15 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ?...............
003CD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003CE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003CF0: 00 00 00 00 00 00 00 00 00 3C D3 FF FF FF FF 11 .........<......
003D00: 4E 09 E4 05 57 04 DF 04 6A 09 01 10 08 10 00 07 N...W...j.......
003D10: 01 00 2C 43 43 50 49 43 2E 53 43 52 00 00 00 00 ..,CCPIC.SCR....
003D20: 00 00 00 07 00 02 00 08 00 F0 00 00 40 00 00 00 ............@...
003D30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003D40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003D50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003E00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003E10: 00 00 00 4F F8 FF FF FF FF 11 4F 09 E4 05 57 04 ...O......O...W.
003E20: DC 04 62 09 01 10 08 FE 09 15 08 00 16 CC 00 00 ..b.............
003E30: 00 00 00 00 00 00 CC CC CC CC CC 00 00 00 44 88 ..............D.
003E40: 00 CC 00 00 00 00 00 00 00 00 CC 00 88 00 00 00 ................
003E50: 00 00 CC 00 00 00 00 88 00 00 00 00 44 88 00 00 ............D...
003E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 44 CC ..............D.
003E80: 00 00 CC 00 00 44 CC CC 00 00 00 44 88 00 CC CC .....D.....D....
003E90: 00 00 44 CC 00 00 CC 00 00 44 CC CC 00 00 44 CC ..D......D....D.
003EA0: CC 00 CC CC CC CC CC CC 88 00 00 44 CC CC 88 00 ...........D....
003EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003EE0: 00 00 00 00 00 00 00 00 55 FF FF 33 33 00 00 00 ........U..33...
003EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003F00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003F10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003F20: 00 00 00 00 00 00 00 00 00 00 00 00 00 86 EF 00 ................
003F30: 00 CC 00 00 00 00 00 00 00 00 FF DD BB 66 88 00 .............f..
003F40: 00 00 CC CC CC CC CC 00 00 00 00 00 44 88 00 00 ............D...
003F50: 00 00 00 88 00 44 88 00 00 00 44 88 00 00 44 00 .....D....D...D.
003F60: CC 88 00 88 00 00 00 00 00 00 00 00 00 00 00 00 ................
003F70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003F80: 00 00 44 CC 00 00 CC 00 00 CC FF BB 33 AA 00 44 ..D.........3..D
003F90: CC 44 CC CC 00 00 00 00 00 00 00 44 CC CC 88 00 .D.........D....
003FA0: 00 CC 00 00 00 00 00 44 CC 00 CC CC 00 00 44 00 .......D......D.
003FB0: 00 00 CC 88 00 00 00 00 00 00 00 00 00 00 00 00 ................
003FC0: 00 00 00 00 00 00 00 00 00 00 00 00 40 AC C0 C0 ............@...
003FD0: 00 00 00 00 00 00 00 00 55 FF FF 33 77 00 00 00 ........U..3w...
003FE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003FF0: 00 00 00 00 00 00 54 00 FC 54 00 A8 00 A8 54 00 ......T..T....T.
004000: 00 A8 A8 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004020: 00 00 00 00 00 00 00 00 FF FF BB 77 00 00 00 F9 ...........w....
004030: 0C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004070: 00 00 00 00 00 00 00 00 00 55 FF AA 33 AA 00 00 .........U..3...
004080: 00 00 00 00 00 03 03 02 00 00 00 00 00 00 00 00 ................
004090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0040A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0040B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0040C0: 00 00 00 00 00 00 00 00 00 FF AA 11 77 00 00 00 ............w...
0040D0: 00 43 C3 43 C3 C3 C3 C3 83 83 00 00 00 00 00 00 .C.C............
0040E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0040F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004110: 00 00 00 00 00 00 00 00 FF AA 00 33 AA 00 00 00 ...........3....
004120: 00 00 01 43 C3 43 C3 83 83 83 02 00 00 00 00 00 ...C.C..........
004130: 00 71 E8 00 00 00 00 00 00 00 00 00 00 00 00 00 .q..............
004140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004160: 00 00 00 00 00 00 00 00 00 00 00 C3 C3 00 00 00 ................
004170: 00 00 00 00 68 BC 28 80 33 FF 40 00 00 00 00 00 ....h.(.3.@.....
004180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0041A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0041B0: 00 00 00 00 00 00 00 00 33 11 77 FF AA 00 00 00 ........3.w.....
0041C0: 00 00 00 00 00 54 A8 00 55 77 FF BB 22 00 00 00 .....T..Uw.."...
0041D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0041E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0041F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004200: 00 00 00 00 00 00 00 00 00 11 33 FF FF FF 00 00 ..........3.....
004210: 00 00 00 00 00 00 77 00 33 77 FF FF FF FF 00 00 ......w.3w......
004220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004230: 00 00 00 42 C9 00 00 00 00 00 00 00 00 00 00 00 ...B............
004240: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004250: 00 00 00 00 00 00 00 00 00 77 AA 00 41 82 55 FF .........w..A.U.
004260: BB 77 BB 33 FF FF FF FF FF FF FF FF FF 77 FF FF .w.3.........w..
004270: AA 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0042A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 EB 55 ...............U
0042B0: FF FF FF FF FF FF FF FF FF FF FF FF AA 33 FF FF .............3..
0042C0: FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0042D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0042E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0042F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 55 BB ..............U.
004300: 33 33 33 33 11 00 33 33 33 FF 77 BB FF FF FF 33 3333..333.w....3
004310: FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004320: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004330: 00 00 00 00 00 BE 69 00 00 00 00 00 00 00 00 00 ......i.........
004340: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004350: 00 00 00 00 00 FF 11 11 11 FF FF FF FF FF FF FF ................
004360: BB 77 FF 33 00 00 00 00 00 00 00 00 00 00 00 00 .w.3............
004370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0043A0: 00 00 00 00 00 00 00 00 11 33 77 FF FF FF FF FF .........3w.....
0043B0: 77 FF 33 22 00 00 00 00 00 00 00 00 00 00 00 00 w.3"............
0043C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0043D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0043E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0043F0: 00 00 00 00 00 00 00 00 77 FF FF FF FF FF FF FF ........w.......
004400: FF BB 77 22 00 00 00 00 00 00 00 00 00 00 00 00 ..w"............
004410: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004420: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004430: 00 00 00 00 00 00 00 10 1A 00 00 00 00 00 00 00 ................
004440: 00 00 00 00 00 00 00 00 00 77 00 FF FF FF FF FF .........w......
004450: FF FF 33 33 33 33 00 00 00 00 00 00 00 00 00 00 ..3333..........
004460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004490: 00 22 00 00 00 00 00 11 33 33 77 FF FF 33 AA 11 ."......33w..3..
0044A0: 77 FF FF 33 33 00 00 00 15 15 3F 3F 3F 3F 3F 3F w..33.....??????
0044B0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
0044C0: 3F 3F 3F 3F 3F 15 00 00 00 00 00 00 00 00 00 00 ?????...........
0044D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 77 ...............w
0044E0: 77 FF 77 BB 00 11 33 33 33 33 33 77 FF FF FF FF w.w...33333w....
0044F0: FF 33 00 BB 33 22 00 15 15 3F 3F 3F 3F 3F 3F 3F .3..3"...???????
004500: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
004510: 3F 3F 3F 3F 15 2A 2A 00 00 00 00 00 00 00 00 00 ????.**.........
004520: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 77 ...............w
004530: BB FF BB FF 22 33 11 FF 33 0A 48 77 FF BB 77 BB ...."3..3.Hw..w.
004540: FF FF FF FF FF FF 22 00 15 15 3F 3F 3F 3F 3F 3F ......"...??????
004550: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
004560: 3F 3F 3F 3F 3F 15 15 2A 00 00 00 00 00 00 00 00 ?????..*........
004570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004580: 00 11 FF 77 FF FF FF BB 33 11 77 FF FF 33 77 77 ...w....3.w..3ww
004590: FF FF FF FF FF FF BB 15 15 3F 3F 3F 3F 3F 3F 3F .........???????
0045A0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
0045B0: 3F 3F 3F 3F 3F 15 00 00 00 00 00 00 00 00 00 00 ?????...........
0045C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0045D0: 00 11 77 FF FF FF FF FF 33 00 33 33 33 33 77 FF ..w.....3.3333w.
0045E0: FF FF FF FF FF AA 22 00 00 15 3F 3F 3F 3F 3F 3F ......"...??????
0045F0: 3F 3F 3F 3F 3F 3F 3F 2A 00 2A 2A 2A 2A 2A 2A 2A ???????*.*******
004600: 00 2A 00 2A 00 00 00 00 00 00 00 00 00 00 00 00 .*.*............
004610: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004630: 00 00 00 00 00 00 00 00 00 00 00 E8 FD FF FF FF ................
004640: FF 11 4F 09 E4 05 08 04 E0 04 70 09 01 10 08 11 ..O.......p.....
004650: 00 07 01 00 2C 43 43 50 49 43 2E 53 43 52 00 00 ....,CCPIC.SCR..
004660: 00 00 00 00 00 08 FF 02 00 08 00 F8 00 00 40 00 ..............@.
004670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0046A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0046B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0046C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0046D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0046E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0046F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004700: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004710: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004720: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004730: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004740: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004750: 00 00 00 00 00 86 77 FF FF FF FF 11 4F 09 95 05 ......w.....O...
004760: 57 04 DC 04 64 09 01 10 08 DC 28 15 08 00 16 CC W...d.....(.....
004770: 00 00 00 00 00 00 00 00 CC 00 00 00 44 88 00 00 ............D...
004780: 44 88 00 CC 00 00 00 00 00 00 00 00 CC 44 CC 00 D............D..
004790: 00 00 00 00 CC CC CC CC CC 88 00 00 00 00 44 88 ..............D.
0047A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0047B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0047C0: 00 44 CC CC 00 00 00 00 00 00 00 00 00 00 00 00 .D..............
0047D0: 00 00 00 00 00 44 CC CC 00 00 00 55 00 00 00 00 .....D.....U....
0047E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0047F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004800: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004810: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004820: 00 00 00 00 00 00 00 00 00 00 55 FF BB 33 33 00 ..........U..33.
004830: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004840: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004850: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 BF ................
004870: EF 00 00 CC 00 00 00 00 00 00 00 00 FF DD 33 66 ..............3f
004880: CC 00 00 00 CC 00 00 00 00 00 00 00 00 00 44 88 ..............D.
004890: 00 00 00 00 00 88 00 44 CC 00 00 00 44 88 00 00 .......D....D...
0048A0: 44 00 CC 88 00 88 00 00 00 00 00 00 00 00 00 00 D...............
0048B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0048C0: 00 00 00 00 00 44 CC CC 00 00 00 FF FF BB 33 AA .....D........3.
0048D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0048E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0048F0: CC 88 00 00 CC 88 00 00 00 00 00 00 00 00 00 00 ................
004900: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 40 AC ..............@.
004910: C0 C0 00 00 00 00 00 00 00 00 55 FF FF 33 77 00 ..........U..3w.
004920: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004930: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004940: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004950: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004960: 00 00 00 00 00 00 00 00 00 00 FF FF BB 77 00 00 .............w..
004970: 00 86 84 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0049A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0049B0: 00 00 00 00 00 00 00 00 00 00 00 55 FF AA 33 AA ...........U..3.
0049C0: 00 00 00 00 00 00 01 C3 C3 83 00 00 00 00 00 00 ................
0049D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0049E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0049F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004A00: 00 00 00 00 00 00 00 00 00 00 55 FF AA 11 77 00 ..........U...w.
004A10: 00 00 00 43 C3 43 C3 C3 C3 C3 C3 03 00 00 00 00 ...C.C..........
004A20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004A30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004A40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004A50: 00 00 00 00 00 00 00 00 00 00 FF AA 00 77 00 00 .............w..
004A60: 00 00 00 00 00 01 03 C3 C3 43 43 03 02 00 00 00 .........CC.....
004A70: 00 00 00 5A 74 00 00 00 00 00 00 00 00 00 00 00 ...Zt...........
004A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004AA0: 00 00 00 00 00 00 00 00 00 00 00 BB 00 C3 82 00 ................
004AB0: 00 00 00 00 00 00 14 3C 00 80 22 FF 40 80 00 00 .......<..".@...
004AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004AF0: 00 00 00 00 00 00 00 00 00 11 11 22 77 33 FF 00 ..........."w3..
004B00: 00 00 00 00 00 00 00 00 55 00 BB BB FF 33 AA 00 ........U....3..
004B10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004B20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004B30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004B40: 00 00 00 00 00 00 00 00 00 00 00 22 33 FF FF AA ..........."3...
004B50: 00 00 00 00 00 00 00 00 AA 11 77 FF FF FF FF FF ..........w.....
004B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004B70: 00 00 00 00 00 D5 1D 00 00 00 00 00 00 00 00 00 ................
004B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004B90: 00 00 00 00 00 00 00 00 00 00 00 77 FF BB 63 82 ...........w..c.
004BA0: 11 77 BB 77 FF 33 FF FF FF FF FF FF FF FF FF BB .w.w.3..........
004BB0: FF FF AA 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 55 ...............U
004BF0: EB 82 FF FF FF FF BB FF FF FF FF FF FF FF 00 33 ...............3
004C00: FF FF FF 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004C10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004C20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004C30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004C40: 00 FF 33 33 33 22 22 22 33 33 33 FF 77 BB FF FF ..333"""333.w...
004C50: FF BB FF 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004C60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004C70: 00 00 00 00 00 00 00 08 08 00 00 00 00 00 00 00 ................
004C80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004C90: 00 00 00 00 00 00 00 00 AA 22 11 FF FF FF FF FF ........."......
004CA0: FF FF FF 33 FF 33 00 00 00 00 00 00 00 00 00 00 ...3.3..........
004CB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004CC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004CD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004CE0: 00 00 00 00 00 00 00 00 00 00 11 33 FF FF FF FF ...........3....
004CF0: FF FF 77 FF BB 22 00 00 00 00 00 00 00 00 00 00 ..w.."..........
004D00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D30: 00 00 00 00 00 00 00 00 00 11 77 FF FF FF BB FF ..........w.....
004D40: FF FF FF BB 33 22 00 00 00 00 00 00 00 00 00 00 ....3"..........
004D50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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 A4 07 00 00 00 00 00 ................
004D80: 00 00 00 00 00 00 00 00 00 00 00 33 AA 11 FF FF ...........3....
004D90: FF FF FF FF BB 33 33 33 00 00 00 00 00 00 00 00 .....333........
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 11 33 22 00 00 00 00 33 33 33 33 FF FF BB ...3"....3333...
004DE0: 33 00 55 FF FF BB 33 00 00 00 15 15 3F 3F 3F 3F 3.U...3.....????
004DF0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
004E00: 3F 3F 3F 3F 3F 3F 3F 15 00 00 00 00 00 00 00 00 ???????.........
004E10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004E20: 00 77 77 FF 77 FF 11 11 33 33 77 33 33 33 FF FF .ww.w...33w333..
004E30: FF FF FF 33 22 BB 33 22 00 15 15 3F 2A 2A 2A 3F ...3".3"...?***?
004E40: 2A 2A 2A 3F 3F 15 15 15 15 15 3F 15 2A 2A 2A 3F ***??.....?.***?
004E50: 2A 2A 2A 3F 3F 3F 15 15 00 00 00 00 00 00 00 00 ***???..........
004E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004E70: 00 77 BB FF BB FF AA 33 11 77 BB CB 72 77 FF BB .w.....3.w..rw..
004E80: BB BB FF FF FF FF FF FF 22 00 15 15 3F 3F 2A 2A ........"...??**
004E90: 2A 3F 2A 2A 2A 3F 15 15 15 3F 15 15 3F 3F 2A 2A *?***?...?..??**
004EA0: 2A 3F 2A 2A 2A 3F 3F 15 15 00 00 00 00 00 00 00 *?***??.........
004EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004EC0: 00 00 00 11 BB FF FF FF FF BB 11 11 33 FF FF 33 ............3..3
004ED0: 33 77 FF FF FF FF FF FF BB 15 15 3F 3F 3F 3F 3F 3w.........?????
004EE0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
004EF0: 3F 3F 3F 3F 3F 3F 2A 2A 00 00 00 00 00 00 00 00 ??????**........
004F00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004F10: 00 00 00 11 FF FF FF FF FF FF BB 22 33 33 00 00 ..........."33..
004F20: 77 FF FF FF FF FF FF BB 00 00 00 00 00 00 00 00 w...............
004F30: 00 00 00 00 00 00 00 00 00 15 3F 15 2A 3F 15 3F ..........?.*?.?
004F40: 3F 15 3F 15 3F 00 00 00 00 00 00 00 00 00 00 00 ?.?.?...........
004F50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004F60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004F70: 00 00 00 00 00 00 00 00 00 00 00 00 00 B8 7C FF ..............|.
004F80: FF FF FF 11 56 09 E4 05 08 04 E2 04 75 09 01 10 ....V.......u...
004F90: 08 11 00 07 01 00 2C 43 43 4D 45 53 53 00 00 00 ......,CCMESS...
004FA0: 00 00 00 00 00 00 00 01 00 16 00 08 7C 9E FF 00 ............|...
004FB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004FC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004FD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004FE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004FF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005090: 00 00 00 00 00 00 00 A0 A6 FF FF FF FF 11 55 09 ..............U.
0050A0: E4 05 08 04 C0 04 8D 09 01 10 08 FF 0A 15 08 00 ................
0050B0: 16 31 20 44 49 4D 20 62 24 28 33 37 29 3A 62 24 .1 DIM b$(37):b$
0050C0: 28 31 29 3D 22 20 57 6F 6E 20 4C 6F 73 74 20 20 (1)=" Won Lost
0050D0: 50 6F 69 6E 74 73 20 22 2B 6D 24 28 31 29 3A 42 Points "+m$(1):B
0050E0: 24 28 33 29 3D 22 20 42 61 20 46 20 20 42 6F 20 $(3)=" Ba F Bo
0050F0: 46 42 20 20 46 53 20 20 20 48 69 74 20 20 22 0D FB FS Hit ".
005100: 0A 34 20 42 24 28 37 29 3D 6D 24 28 34 29 2B 22 .4 B$(7)=m$(4)+"
005110: 20 20 20 20 22 2B 43 48 52 24 28 32 34 29 2B 22 "+CHR$(24)+"
005120: 54 22 2B 43 48 52 24 28 32 34 29 2B 22 65 61 6D T"+CHR$(24)+"eam
005130: 20 20 22 2B 43 48 52 24 28 32 34 29 2B 22 4D 22 "+CHR$(24)+"M"
005140: 2B 43 48 52 24 28 32 34 29 2B 22 65 6E 75 22 2B +CHR$(24)+"enu"+
005150: 6D 24 28 31 29 3A 42 24 28 38 29 3D 43 48 52 24 m$(1):B$(8)=CHR$
005160: 28 31 32 29 2B 22 59 6F 75 20 68 61 76 65 20 74 (12)+"You have t
005170: 6F 6F 20 66 65 77 20 70 6C 61 79 65 72 73 22 3A oo few players":
005180: 42 24 28 39 29 3D 22 47 6F 76 65 72 6E 6D 65 6E B$(9)="Governmen
005190: 74 20 63 68 61 72 67 65 20 33 33 25 20 74 61 78 t charge 33% tax
0051A0: 22 3A 42 24 28 31 30 29 3D 22 59 6F 75 72 20 62 ":B$(10)="Your b
0051B0: 69 6D 86 64 20 68 61 73 20 62 65 65 6E 20 72 65 im.d has been re
0051C0: 66 75 73 65 64 22 3A 42 24 28 31 31 29 3D 43 48 fused":B$(11)=CH
0051D0: 52 24 28 31 32 29 2B 22 59 6F 75 72 20 62 69 64 R$(12)+"Your bid
0051E0: 20 68 61 73 20 62 65 65 6E 20 61 63 63 65 70 74 has been accept
0051F0: 65 64 22 0D 0A 39 20 42 24 28 31 33 29 3D 43 48 ed"..9 B$(13)=CH
005200: 52 24 28 31 32 29 2B 22 54 68 69 73 20 77 69 6C R$(12)+"This wil
005210: 6C 20 63 6F 73 74 20 22 3A 42 24 28 31 34 29 3D l cost ":B$(14)=
005220: 43 48 52 24 28 31 32 29 2B 22 57 68 69 63 68 20 CHR$(12)+"Which
005230: 74 65 61 6D 22 3A 42 24 28 31 35 29 3D 43 48 52 team":B$(15)=CHR
005240: 24 28 33 31 29 2B 43 48 52 24 28 31 36 29 2B 43 $(31)+CHR$(16)+C
005250: 48 52 24 28 36 29 2B 22 42 61 20 46 20 42 6F 20 HR$(6)+"Ba F Bo
005260: 46 42 20 20 20 46 53 20 20 20 48 49 54 22 2B 6D FB FS HIT"+m
005270: 24 28 31 29 3A 42 24 28 31 36 29 3D 43 48 52 24 $(1):B$(16)=CHR$
005280: 28 31 32 29 2B 22 42 69 64 20 68 6F 77 20 6D 75 (12)+"Bid how mu
005290: 63 68 22 0D 0A 31 30 20 42 24 28 32 30 29 3D 43 ch"..10 B$(20)=C
0052A0: 48 52 24 28 31 32 29 2B 43 48 52 24 28 33 31 29 HR$(12)+CHR$(31)
0052B0: 2B 43 48 57 EB 52 24 28 35 29 2B 43 48 52 24 28 +CHW.R$(5)+CHR$(
0052C0: 34 29 2B 22 31 3A 20 20 42 6F 77 6C 69 6E 67 22 4)+"1: Bowling"
0052D0: 2B 43 48 52 24 28 33 31 29 2B 43 48 52 24 28 35 +CHR$(31)+CHR$(5
0052E0: 29 2B 43 48 52 24 28 36 29 2B 22 32 3A 20 20 42 )+CHR$(6)+"2: B
0052F0: 61 74 74 69 6E 67 22 2B 43 48 52 24 28 33 31 29 atting"+CHR$(31)
005300: 2B 43 48 52 24 28 35 29 2B 43 48 52 24 28 38 29 +CHR$(5)+CHR$(8)
005310: 2B 22 33 3A 20 20 4F 76 65 72 61 6C 6C 22 0D 0A +"3: Overall"..
005320: 31 31 20 42 24 28 32 31 29 3D 43 48 52 24 28 31 11 B$(21)=CHR$(1
005330: 32 29 2B 43 48 52 24 28 33 31 29 2B 43 48 52 24 2)+CHR$(31)+CHR$
005340: 28 31 31 29 2B 43 48 52 24 28 31 29 2B 6D 24 28 (11)+CHR$(1)+m$(
005350: 34 29 2B 43 48 52 24 28 32 34 29 2B 22 54 22 2B 4)+CHR$(24)+"T"+
005360: 43 48 52 24 28 32 34 29 2B 22 72 61 69 6E 20 22 CHR$(24)+"rain "
005370: 2B 43 48 52 24 28 32 34 29 2B 22 4D 22 2B 43 48 +CHR$(24)+"M"+CH
005380: 52 24 28 32 34 29 2B 22 65 6E 75 22 2B 6D 24 28 R$(24)+"enu"+m$(
005390: 31 29 3A 42 24 28 32 32 29 3D 43 48 52 24 28 31 1):B$(22)=CHR$(1
0053A0: 32 29 2B 22 54 65 6C 6C 20 63 6F 61 63 68 20 74 2)+"Tell coach t
0053B0: 6F 20 74 72 61 8F CA 69 6E 20 61 74 20 31 2C 32 o tra..in at 1,2
0053C0: 20 6F 72 20 33 20 22 0D 0A 31 33 20 42 24 28 32 or 3 "..13 B$(2
0053D0: 35 29 3D 43 48 52 24 28 31 32 29 2B 22 48 6F 77 5)=CHR$(12)+"How
0053E0: 20 6D 75 63 68 20 28 6D 61 78 20 22 3A 42 24 28 much (max ":B$(
0053F0: 33 30 29 3D 43 48 52 24 28 31 32 29 2B 22 44 72 30)=CHR$(12)+"Dr
005400: 6F 70 70 65 64 22 0D 0A 31 35 20 27 0D 0A 32 31 opped"..15 '..21
005410: 20 42 24 28 33 32 29 3D 43 48 52 24 28 33 31 29 B$(32)=CHR$(31)
005420: 2B 43 48 52 24 28 31 33 29 2B 43 48 52 24 28 32 +CHR$(13)+CHR$(2
005430: 29 2B 6D 24 28 34 29 2B 22 20 4F 74 68 65 72 20 )+m$(4)+" Other
005440: 52 65 73 75 6C 74 73 20 22 2B 6D 24 28 31 29 3A Results "+m$(1):
005450: 42 24 28 33 31 29 3D 43 48 52 24 28 33 31 29 2B B$(31)=CHR$(31)+
005460: 43 48 52 24 28 36 29 2B 43 48 52 24 28 37 29 2B CHR$(6)+CHR$(7)+
005470: 22 59 6F 75 27 76 65 20 77 6F 6E 20 74 68 65 20 "You've won the
005480: 22 3A 42 24 28 33 37 29 3D 43 48 52 24 28 31 32 ":B$(37)=CHR$(12
005490: 29 2B 43 48 52 24 28 33 31 29 2B 43 48 52 24 28 )+CHR$(31)+CHR$(
0054A0: 31 35 29 2B 43 48 52 24 28 32 29 2B 6D 24 28 32 15)+CHR$(2)+m$(2
0054B0: 29 2B 22 4A 2E 50 2E BA 2E 20 4C 45 41 47 55 45 )+"J.P... LEAGUE
0054C0: 22 2B 6D 24 28 31 29 0D 0A 32 37 20 42 24 28 32 "+m$(1)..27 B$(2
0054D0: 39 29 3D 43 48 52 24 28 33 31 29 2B 43 48 52 24 9)=CHR$(31)+CHR$
0054E0: 28 31 38 29 2B 43 48 52 24 28 34 29 2B 6D 24 28 (18)+CHR$(4)+m$(
0054F0: 34 29 2B 22 57 6F 6E 20 4C 6F 73 74 20 42 74 20 4)+"Won Lost Bt
005500: 20 42 6C 20 50 74 73 22 2B 6D 24 28 31 29 3A 42 Bl Pts"+m$(1):B
005510: 24 28 32 38 29 3D 43 48 52 24 28 31 32 29 2B 43 $(28)=CHR$(12)+C
005520: 48 52 24 28 33 31 29 2B 43 48 52 24 28 31 35 29 HR$(31)+CHR$(15)
005530: 2B 43 48 52 24 28 32 29 2B 6D 24 28 33 29 2B 22 +CHR$(2)+m$(3)+"
005540: 43 2E 41 2E 20 4C 45 41 47 55 45 22 2B 6D 24 28 C.A. LEAGUE"+m$(
005550: 31 29 0D 0A 32 38 20 42 24 28 32 37 29 3D 43 48 1)..28 B$(27)=CH
005560: 52 24 28 31 32 29 2B 43 48 52 24 28 33 31 29 2B R$(12)+CHR$(31)+
005570: 43 48 52 24 28 31 33 29 2B 43 48 52 24 28 31 29 CHR$(13)+CHR$(1)
005580: 2B 6D 24 28 33 29 2B 43 48 52 24 28 32 34 29 2B +m$(3)+CHR$(24)+
005590: 22 4D 22 2B 43 48 52 24 28 32 34 29 2B 22 65 6E "M"+CHR$(24)+"en
0055A0: 75 22 2B 6D 24 28 31 29 3A 42 24 28 33 34 29 3D u"+m$(1):B$(34)=
0055B0: 22 44 69 72 65 63 74 6F 72 7C 05 73 20 64 6F 6E "Director|.s don
0055C0: 61 74 65 20 A3 22 3A 42 24 28 33 35 29 3D 22 20 ate £":B$(35)="
0055D0: 49 6E 74 65 72 6E 61 74 69 6F 6E 61 6C 20 64 75 International du
0055E0: 74 79 2E 22 3A 42 24 28 33 36 29 3D 43 48 52 24 ty.":B$(36)=CHR$
0055F0: 28 31 32 29 2B 43 48 52 24 28 33 31 29 2B 43 48 (12)+CHR$(31)+CH
005600: 52 24 28 38 29 2B 43 48 52 24 28 31 29 2B 6D 24 R$(8)+CHR$(1)+m$
005610: 28 33 29 2B 22 20 20 50 4C 45 41 53 45 20 57 41 (3)+" PLEASE WA
005620: 49 54 20 20 22 2B 6D 24 28 31 29 0D 0A 33 31 20 IT "+m$(1)..31
005630: 42 24 28 32 29 3D 43 48 52 24 28 33 31 29 2B 43 B$(2)=CHR$(31)+C
005640: 48 52 24 28 33 29 2B 43 48 52 24 28 31 34 29 2B HR$(3)+CHR$(14)+
005650: 22 44 6F 20 79 6F 75 20 77 61 6E 74 20 74 6F 20 "Do you want to
005660: 28 42 29 61 74 20 6F 72 20 28 46 29 69 65 6C 64 (B)at or (F)ield
005670: 22 3A 62 24 28 32 34 29 3D 43 48 52 24 28 31 32 ":b$(24)=CHR$(12
005680: 29 2B 43 48 52 24 28 33 31 29 2B 43 48 52 24 28 )+CHR$(31)+CHR$(
005690: 31 30 29 2B 43 48 52 24 28 31 32 29 2B 22 53 74 10)+CHR$(12)+"St
0056A0: 61 72 74 20 53 41 56 45 44 20 47 41 4D 45 20 74 art SAVED GAME t
0056B0: 61 70 65 22 3A 62 24 28 32 33 29 34 27 3D 43 48 ape":b$(23)4'=CH
0056C0: 52 24 28 31 32 29 2B 43 48 52 24 28 33 31 29 2B R$(12)+CHR$(31)+
0056D0: 43 48 52 24 28 31 32 29 2B 43 48 52 24 28 31 29 CHR$(12)+CHR$(1)
0056E0: 2B 6D 24 28 33 29 2B 43 48 52 24 28 32 34 29 2B +m$(3)+CHR$(24)+
0056F0: 22 43 22 2B 43 48 52 24 28 32 34 29 2B 22 6F 6E "C"+CHR$(24)+"on
005700: 74 69 6E 75 65 22 2B 6D 24 28 31 29 0D 0A 34 34 tinue"+m$(1)..44
005710: 20 62 24 28 31 39 29 3D 43 48 52 24 28 33 31 29 b$(19)=CHR$(31)
005720: 2B 43 48 52 24 28 31 32 29 2B 43 48 52 24 28 31 +CHR$(12)+CHR$(1
005730: 39 29 2B 22 54 72 61 6E 73 66 65 72 20 66 65 65 9)+"Transfer fee
005740: 20 22 3A 42 24 28 35 29 3D 43 48 52 24 28 33 31 ":B$(5)=CHR$(31
005750: 29 2B 43 48 52 24 28 31 35 29 2B 43 48 52 24 28 )+CHR$(15)+CHR$(
005760: 31 29 2B 6D 24 28 35 29 2B 22 20 20 4F 76 65 72 1)+m$(5)+" Over
005770: 73 20 4D 64 6E 20 52 75 6E 73 20 20 57 6B 74 73 s Mdn Runs Wkts
005780: 22 3A 42 24 28 36 29 3D 6D 24 28 34 29 2B 22 54 ":B$(6)=m$(4)+"T
005790: 22 2B 43 48 52 24 28 32 34 29 2B 22 65 61 6D 20 "+CHR$(24)+"eam
0057A0: 22 2B 43 48 52 24 28 32 34 29 2B 22 4C 22 2B 43 "+CHR$(24)+"L"+C
0057B0: 48 52 24 28 32 34 29 2B 22 61 73 74 20 97 72 67 HR$(24)+"ast .rg
0057C0: 61 6D 65 20 22 2B 43 48 52 24 28 32 34 29 2B 22 ame "+CHR$(24)+"
0057D0: 4D 22 2B 43 48 52 24 28 32 34 29 2B 22 65 6E 75 M"+CHR$(24)+"enu
0057E0: 22 2B 6D 24 28 31 29 0D 0A 34 38 20 62 24 28 31 "+m$(1)..48 b$(1
0057F0: 37 29 3D 43 48 52 24 28 33 31 29 2B 43 48 52 24 7)=CHR$(31)+CHR$
005800: 28 31 33 29 2B 43 48 52 24 28 32 29 2B 6D 24 28 (13)+CHR$(2)+m$(
005810: 33 29 2B 22 20 42 6F 77 6C 69 6E 67 20 6F 72 64 3)+" Bowling ord
005820: 65 72 20 22 2B 43 48 52 24 28 33 31 29 2B 43 48 er "+CHR$(31)+CH
005830: 52 24 28 31 38 29 2B 43 48 52 24 28 37 29 2B 22 R$(18)+CHR$(7)+"
005840: 42 6F 77 6C 69 6E 67 20 20 20 46 61 76 20 42 6F Bowling Fav Bo
005850: 77 6C 22 2B 6D 24 28 31 29 0D 0A 35 30 20 62 24 wl"+m$(1)..50 b$
005860: 28 31 38 29 3D 43 48 52 24 28 31 32 29 2B 22 20 (18)=CHR$(12)+"
005870: 43 68 61 6E 67 65 20 74 6F 20 3A 22 2B 43 48 52 Change to :"+CHR
005880: 24 28 32 34 29 2B 22 42 22 2B 43 48 52 24 28 32 $(24)+"B"+CHR$(2
005890: 34 29 2B 22 6F 77 6C 65 72 20 22 2B 43 48 52 24 4)+"owler "+CHR$
0058A0: 28 32 34 29 2B 22 57 22 2B 43 48 52 24 28 32 34 (24)+"W"+CHR$(24
0058B0: 29 2B 22 69 63 6B 65 74 20 22 2B 43 48 52 24 06 )+"icket "+CHR$.
0058C0: 7F FF FF FF FF 11 52 09 95 05 57 04 E1 04 6E 09 ......R...W...n.
0058D0: 01 10 08 10 00 07 01 00 2C 43 43 4D 45 53 53 00 ........,CCMESS.
0058E0: 00 00 00 00 00 00 00 00 00 02 FF 16 20 01 7C 9E ............ .|.
0058F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005900: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005910: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005920: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005930: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005940: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005950: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0059A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0059B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0059C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0059D0: 00 00 00 00 00 00 00 00 00 B7 E3 FF FF FF FF 11 ................
0059E0: 52 09 E4 05 57 04 D1 04 8E 09 01 10 08 D4 28 09 R...W.........(.
0059F0: 02 00 16 28 32 34 29 2B 22 4F 22 2B 43 48 52 24 ...(24)+"O"+CHR$
005A00: 28 32 34 29 2B 22 74 68 65 72 20 22 3A 42 24 28 (24)+"ther ":B$(
005A10: 31 32 29 3D 6D 24 28 33 29 2B 22 4D 22 2B 43 48 12)=m$(3)+"M"+CH
005A20: 52 24 28 32 34 29 2B 22 65 6E 75 20 22 2B 43 48 R$(24)+"enu "+CH
005A30: 52 24 28 32 34 29 2B 22 53 22 2B 43 48 52 24 28 R$(24)+"S"+CHR$(
005A40: 32 34 29 2B 22 63 6F 75 74 22 2B 6D 24 28 31 29 24)+"cout"+m$(1)
005A50: 0D 0A 35 31 20 62 24 28 34 29 3D 43 48 52 24 28 ..51 b$(4)=CHR$(
005A60: 31 32 29 2B 6D 24 28 36 29 2B 22 53 22 2B 43 48 12)+m$(6)+"S"+CH
005A70: 52 24 28 32 34 29 2B 22 77 61 70 20 22 2B 43 48 R$(24)+"wap "+CH
005A80: 52 24 28 32 34 29 2B 22 43 22 2B 43 48 52 24 28 R$(24)+"C"+CHR$(
005A90: 32 34 29 2B 22 68 61 6E 67 65 20 22 2B 43 48 52 24)+"hange "+CHR
005AA0: 24 28 32 34 29 2B 22 4D 22 2B 43 48 52 24 28 32 $(24)+"M"+CHR$(2
005AB0: 34 29 2B 22 65 6E 75 20 22 2B 43 48 52 24 28 32 4)+"enu "+CHR$(2
005AC0: 34 29 2B 22 54 22 2B 43 48 52 24 28 32 34 29 2B 4)+"T"+CHR$(24)+
005AD0: 22 72 61 6E 20 22 2B 43 48 52 24 28 32 34 29 2B "ran "+CHR$(24)+
005AE0: 22 45 22 2B 43 48 52 24 28 32 34 29 2B 22 64 69 "E"+CHR$(24)+"di
005AF0: 74 22 2B 96 F5 6D 24 28 31 29 0D 0A 35 30 30 20 t"+..m$(1)..500
005B00: 43 48 41 49 4E 20 4D 45 52 47 45 20 22 21 43 43 CHAIN MERGE "!CC
005B10: 22 2C 34 0D 0A 00 00 00 00 00 00 00 00 00 00 00 ",4.............
005B20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005B30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005B40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005B50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005BF0: 00 00 00 00 00 8F A0 FF FF FF FF 11 58 09 E4 05 ............X...
005C00: 08 04 E4 04 62 09 01 10 08 10 00 07 01 00 2C 43 ....b.........,C
005C10: 43 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 C...............
005C20: 00 16 00 08 7C 9E FF 00 00 00 00 00 00 00 00 00 ....|...........
005C30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005C40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005C50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005C60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005C70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005C80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005C90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005CA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005CB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005CC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005CD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005CE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005CF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005D00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 F0 ................
005D10: 83 FF FF FF FF 11 56 09 E4 05 08 04 BF 04 91 09 ......V.........
005D20: 01 10 08 F8 0A 15 08 00 16 31 20 43 48 41 49 4E .........1 CHAIN
005D30: 20 4D 45 52 47 45 20 22 21 43 43 31 41 22 2C 35 MERGE "!CC1A",5
005D40: 30 30 0D 0A 34 20 44 49 4D 20 41 24 28 32 2C 33 00..4 DIM A$(2,3
005D50: 29 2C 43 24 28 35 29 2C 44 24 28 31 31 29 2C 45 ),C$(5),D$(11),E
005D60: 24 28 32 36 29 2C 4A 24 28 36 29 2C 4B 24 28 31 $(26),J$(6),K$(1
005D70: 31 29 2C 49 24 28 35 29 2C 4F 24 28 36 29 2C 50 1),I$(5),O$(6),P
005D80: 24 28 31 35 2C 31 31 29 2C 51 24 28 32 30 29 2C $(15,11),Q$(20),
005D90: 54 24 28 31 36 29 2C 55 24 28 31 36 29 2C 59 24 T$(16),U$(16),Y$
005DA0: 28 35 29 0D 0A 39 20 44 49 4D 20 61 28 35 29 2C (5)..9 DIM a(5),
005DB0: 62 28 34 2C 32 30 29 2C 63 28 31 36 2C 32 29 2C b(4,20),c(16,2),
005DC0: 64 28 31 31 29 2C 65 28 32 2C 31 36 29 2C 66 28 d(11),e(2,16),f(
005DD0: 34 30 2C 32 29 2C 67 28 38 2C 32 29 2C 69 28 35 40,2),g(8,2),i(5
005DE0: 2C 34 29 2C 6A 28 36 29 2C 6B 28 36 29 2C 6D 28 ,4),j(6),k(6),m(
005DF0: 31 35 2C 33 29 2C 6E 28 31 31 29 2C 6F 28 32 30 15,3),n(11),o(20
005E00: 29 2C 70 28 32 2C 31 36 2C 32 29 2C 71 28 32 30 ),p(2,16,2),q(20
005E10: 2C 36 29 2C 73 28 34 29 2C 72 28 36 29 2C 54 28 ,6),s(4),r(6),T(
005E20: 31 35 29 2C 75 28 31 38 29 71 51 2C 77 28 31 38 15),u(18)qQ,w(18
005E30: 29 2C 78 28 32 2C 31 36 2C 32 29 2C 79 28 35 2C ),x(2,16,2),y(5,
005E40: 36 29 3A 52 41 4E 44 4F 4D 49 5A 45 20 54 49 4D 6):RANDOMIZE TIM
005E50: 45 3A 47 4F 53 55 42 20 38 34 31 31 0D 0A 31 30 E:GOSUB 8411..10
005E60: 20 46 4F 52 20 5A 3D 31 20 54 4F 20 32 36 3A 52 FOR Z=1 TO 26:R
005E70: 45 41 44 20 45 24 28 5A 29 3A 4E 45 58 54 3A 46 EAD E$(Z):NEXT:F
005E80: 4F 52 20 5A 3D 31 20 54 4F 20 31 36 3A 52 45 41 OR Z=1 TO 16:REA
005E90: 44 20 54 24 28 5A 29 3A 4E 45 58 54 0D 0A 31 31 D T$(Z):NEXT..11
005EA0: 20 4D 45 4E 55 24 3D 6D 24 28 31 29 2B 43 48 52 MENU$=m$(1)+CHR
005EB0: 24 28 31 32 29 2B 43 48 52 24 28 33 31 29 2B 43 $(12)+CHR$(31)+C
005EC0: 48 52 24 28 36 29 2B 43 48 52 24 28 36 29 2B 6D HR$(6)+CHR$(6)+m
005ED0: 24 28 33 29 2B 43 48 52 24 28 32 34 29 2B 22 50 $(3)+CHR$(24)+"P
005EE0: 22 2B 43 48 52 24 28 32 34 29 2B 22 6C 61 79 20 "+CHR$(24)+"lay
005EF0: 6D 61 74 63 68 22 2B 43 48 52 24 28 33 31 29 2B match"+CHR$(31)+
005F00: 43 48 52 24 28 36 29 2B 43 48 52 24 28 38 29 2B CHR$(6)+CHR$(8)+
005F10: 6D 24 28 31 29 2B 43 48 52 24 28 32 34 29 2B 22 m$(1)+CHR$(24)+"
005F20: 47 22 2B 43 48 52 24 28 32 34 29 C6 3A 2B 22 61 G"+CHR$(24).:+"a
005F30: 6D 65 22 0D 0A 31 33 20 6D 65 6E 75 24 3D 6D 65 me"..13 menu$=me
005F40: 6E 75 24 2B 43 48 52 24 28 33 31 29 2B 43 48 52 nu$+CHR$(31)+CHR
005F50: 24 28 36 29 2B 43 48 52 24 28 31 30 29 2B 6D 24 $(6)+CHR$(10)+m$
005F60: 28 31 29 2B 43 48 52 24 28 32 34 29 2B 22 54 22 (1)+CHR$(24)+"T"
005F70: 2B 43 48 52 24 28 32 34 29 2B 22 65 61 6D 22 2B +CHR$(24)+"eam"+
005F80: 43 48 52 24 28 33 31 29 2B 43 48 52 24 28 32 35 CHR$(31)+CHR$(25
005F90: 29 2B 43 48 52 24 28 31 30 29 2B 43 48 52 24 28 )+CHR$(10)+CHR$(
005FA0: 32 34 29 2B 22 46 22 2B 43 48 52 24 28 32 34 29 24)+"F"+CHR$(24)
005FB0: 2B 22 69 78 74 75 72 65 73 22 0D 0A 31 35 20 4D +"ixtures"..15 M
005FC0: 45 4E 55 24 3D 4D 45 4E 55 24 2B 43 48 52 24 28 ENU$=MENU$+CHR$(
005FD0: 33 31 29 2B 43 48 52 24 28 32 35 29 2B 43 48 52 31)+CHR$(25)+CHR
005FE0: 24 28 31 32 29 2B 43 48 52 24 28 32 34 29 2B 22 $(12)+CHR$(24)+"
005FF0: 4A 22 2B 43 48 52 24 28 32 34 29 2B 22 2E 50 2E J"+CHR$(24)+".P.
006000: 4C 65 61 67 75 65 22 2B 43 48 52 24 28 33 31 29 League"+CHR$(31)
006010: 2B 43 48 52 24 28 36 29 2B 43 48 52 24 28 31 34 +CHR$(6)+CHR$(14
006020: 29 2B 43 48 52 24 28 32 34 29 2B 22 53 2F 33 22 )+CHR$(24)+"S/3"
006030: 2B 43 48 52 24 28 32 34 29 2B 22 63 6F 75 74 22 +CHR$(24)+"cout"
006040: 2B 43 48 52 24 28 33 31 29 2B 43 48 52 24 28 32 +CHR$(31)+CHR$(2
006050: 35 29 2B 43 48 52 24 28 36 29 2B 43 48 52 24 28 5)+CHR$(6)+CHR$(
006060: 32 34 29 2B 22 49 22 2B 43 48 52 24 28 32 34 29 24)+"I"+CHR$(24)
006070: 2B 22 6E 6A 75 72 69 65 73 22 0D 0A 31 38 20 4D +"njuries"..18 M
006080: 45 4E 55 24 3D 4D 45 4E 55 24 2B 43 48 52 24 28 ENU$=MENU$+CHR$(
006090: 33 31 29 2B 43 48 52 24 28 36 29 2B 43 48 52 24 31)+CHR$(6)+CHR$
0060A0: 28 31 32 29 2B 43 48 52 24 28 32 34 29 2B 22 43 (12)+CHR$(24)+"C
0060B0: 22 2B 43 48 52 24 28 32 34 29 2B 22 2E 41 2E 4C "+CHR$(24)+".A.L
0060C0: 65 61 67 75 65 22 2B 43 48 52 24 28 33 31 29 2B eague"+CHR$(31)+
0060D0: 43 48 52 24 28 32 35 29 2B 43 48 52 24 28 38 29 CHR$(25)+CHR$(8)
0060E0: 2B 6D 24 28 31 29 2B 43 48 52 24 28 32 34 29 2B +m$(1)+CHR$(24)+
0060F0: 22 4E 22 2B 43 48 52 24 28 32 34 29 2B 22 65 74 "N"+CHR$(24)+"et
006100: 20 74 72 61 69 6E 69 6E 67 22 0D 0A 31 39 20 47 training"..19 G
006110: 4F 53 55 42 20 36 35 35 30 30 0D 0A 32 30 20 4D OSUB 65500..20 M
006120: 45 4E 55 24 3D 4D 45 4E 55 24 2B 43 48 52 24 F3 ENU$=MENU$+CHR$.
006130: 87 28 33 31 29 2B 43 48 52 24 28 32 35 29 2B 43 .(31)+CHR$(25)+C
006140: 48 52 24 28 31 34 29 2B 43 48 52 24 28 32 34 29 HR$(14)+CHR$(24)
006150: 2B 22 31 22 2B 43 48 52 24 28 32 34 29 2B 22 20 +"1"+CHR$(24)+"
006160: 73 61 76 65 20 67 61 6D 65 22 0D 0A 32 31 20 44 save game"..21 D
006170: 41 54 41 20 22 44 45 4E 22 2C 22 4E 53 22 2C 22 ATA "DEN","NS","
006180: 52 59 22 2C 22 45 59 22 2C 22 4F 4E 22 2C 22 57 RY","EY","ON","W
006190: 41 59 22 2C 22 4C 45 22 2C 22 42 59 22 2C 22 49 AY","LE","BY","I
0061A0: 4E 53 22 2C 22 4C 45 59 22 2C 22 53 4F 4E 22 2C NS","LEY","SON",
0061B0: 22 54 4F 4E 22 2C 22 53 22 2C 22 45 53 22 2C 22 "TON","S","ES","
0061C0: 4D 41 4E 22 2C 22 42 4C 45 22 2C 22 4E 45 59 22 MAN","BLE","NEY"
0061D0: 2C 22 53 45 59 22 2C 22 54 45 52 22 2C 22 49 53 ,"SEY","TER","IS
0061E0: 22 2C 22 45 52 22 2C 22 45 4E 53 22 2C 22 44 4F ","ER","ENS","DO
0061F0: 4E 22 2C 22 49 4E 47 22 2C 22 47 41 4E 22 2C 22 N","ING","GAN","
006200: 4C 49 4E 22 0D 0A 32 32 20 46 4F 52 20 5A 3D 31 LIN"..22 FOR Z=1
006210: 20 54 4F 20 32 3A 46 4F 52 20 59 3D 31 20 54 4F TO 2:FOR Y=1 TO
006220: 20 33 3A 52 45 41 44 20 41 24 28 5A 2C 59 29 3A 3:READ A$(Z,Y):
006230: 4E 3C 6F 45 58 54 20 59 2C 5A 3A 47 4F 53 55 42 N<oEXT Y,Z:GOSUB
006240: 20 36 35 35 30 30 3A 4C 4F 43 41 54 45 20 35 2C 65500:LOCATE 5,
006250: 31 32 3A 50 52 49 4E 54 20 22 44 6F 20 79 6F 75 12:PRINT "Do you
006260: 20 77 61 6E 74 20 74 6F 20 6C 6F 61 64 20 6F 6C want to load ol
006270: 64 20 67 61 6D 65 20 59 2F 4E 22 3A 47 4F 53 55 d game Y/N":GOSU
006280: 42 20 36 34 31 30 30 3A 49 46 20 49 4E 24 3D 22 B 64100:IF IN$="
006290: 59 22 20 54 48 45 4E 20 35 30 30 30 30 0D 0A 32 Y" THEN 50000..2
0062A0: 33 20 43 4C 53 3A 4C 4F 43 41 54 45 20 39 2C 31 3 CLS:LOCATE 9,1
0062B0: 32 3A 50 52 49 4E 54 20 22 50 20 6C 20 65 20 61 2:PRINT "P l e a
0062C0: 20 73 20 65 20 20 20 20 57 20 61 20 69 20 74 22 s e W a i t"
0062D0: 3A 44 41 54 41 20 22 45 53 53 45 58 20 20 20 22 :DATA "ESSEX "
0062E0: 2C 22 47 4C 4F 55 43 53 54 52 22 2C 22 53 55 52 ,"GLOUCSTR","SUR
0062F0: 52 45 59 20 20 22 2C 22 47 4C 41 4D 4F 52 47 4E REY ","GLAMORGN
006300: 22 2C 22 4E 4F 54 54 4E 47 48 4D 22 2C 22 48 41 ","NOTTNGHM","HA
006310: 4D 50 53 48 52 45 22 2C 22 4B 45 4E 54 20 20 20 MPSHRE","KENT
006320: 20 22 2C 22 4C 45 49 43 53 54 45 52 22 2C 22 59 ","LEICSTER","Y
006330: 4F 52 4B F5 B2 53 48 52 45 22 2C 22 44 45 52 42 ORK..SHRE","DERB
006340: 59 53 48 52 22 2C 22 4D 49 44 44 4C 45 53 58 22 YSHR","MIDDLESX"
006350: 2C 22 57 41 52 57 49 43 4B 20 22 2C 22 53 55 53 ,"WARWICK ","SUS
006360: 53 45 58 20 20 22 2C 22 4C 41 4E 43 41 53 48 52 SEX ","LANCASHR
006370: 22 2C 22 53 4F 4D 45 52 53 45 54 22 2C 22 57 4F ","SOMERSET","WO
006380: 52 43 45 53 54 52 22 0D 0A 32 34 20 44 41 54 41 RCESTR"..24 DATA
006390: 20 22 53 50 49 4E 22 2C 22 46 41 53 54 22 2C 22 "SPIN","FAST","
0063A0: 53 4C 4F 57 22 2C 22 42 49 47 20 22 2C 22 41 56 SLOW","BIG ","AV
0063B0: 45 52 20 22 2C 22 53 4D 41 4C 4C 22 0D 0A 32 35 ER ","SMALL"..25
0063C0: 20 46 4F 52 20 5A 3D 31 20 54 4F 20 36 3A 4B 28 FOR Z=1 TO 6:K(
0063D0: 5A 29 3D 5A 3A 4E 45 58 54 3A 46 4F 52 20 5A 3D Z)=Z:NEXT:FOR Z=
0063E0: 31 20 54 4F 20 34 3A 53 28 5A 29 3D 31 32 3A 4E 1 TO 4:S(Z)=12:N
0063F0: 45 58 54 3A 46 4F 52 20 5A 3D 31 20 54 4F 20 31 EXT:FOR Z=1 TO 1
006400: 36 3A 52 45 41 44 20 55 24 28 5A 29 3A 4E 45 58 6:READ U$(Z):NEX
006410: 54 3A 46 4F 52 20 5A 3D 31 20 54 4F 20 35 3A 52 T:FOR Z=1 TO 5:R
006420: 45 41 44 20 43 24 28 5A 29 3A 4E 45 58 54 3A 46 EAD C$(Z):NEXT:F
006430: 4F 52 20 5A 3D 56 1B 31 20 54 4F 20 36 3A 52 45 OR Z=V.1 TO 6:RE
006440: 41 44 20 4F 24 28 5A 29 3A 4E 45 58 54 3A 46 4F AD O$(Z):NEXT:FO
006450: 52 20 5A 3D 31 20 54 4F 20 31 38 3A 52 45 41 44 R Z=1 TO 18:READ
006460: 20 57 28 5A 29 3A 4E 45 58 54 0D 0A 32 37 20 44 W(Z):NEXT..27 D
006470: 41 54 41 20 22 43 55 4D 42 52 4C 4E 44 22 2C 22 ATA "CUMBRLND","
006480: 44 4F 52 53 45 54 20 20 22 2C 22 49 52 45 4C 41 DORSET ","IRELA
006490: 4E 44 20 22 2C 22 42 45 52 4B 53 48 52 45 22 2C ND ","BERKSHRE",
0064A0: 22 43 48 45 53 48 49 52 45 22 2C 22 43 4F 52 4E "CHESHIRE","CORN
0064B0: 57 41 4C 4C 22 2C 22 44 45 56 4F 4E 20 20 20 22 WALL","DEVON "
0064C0: 2C 22 53 43 4F 54 4C 41 4E 44 22 2C 22 44 55 52 ,"SCOTLAND","DUR
0064D0: 48 41 4D 20 20 22 2C 22 53 55 46 46 4F 4C 4B 20 HAM ","SUFFOLK
0064E0: 22 2C 22 4F 58 46 4F 52 44 20 20 22 2C 22 43 41 ","OXFORD ","CA
0064F0: 4D 42 52 44 47 45 22 2C 22 4E 4F 52 46 4F 4C 4B MBRDGE","NORFOLK
006500: 20 22 2C 22 57 49 4C 54 53 48 52 45 22 2C 22 53 ","WILTSHRE","S
006510: 54 41 46 46 4F 52 44 22 2C 22 53 48 52 4F 50 53 TAFFORD","SHROPS
006520: 48 52 45 22 0D 0A 32 38 20 44 41 54 41 20 22 31 HRE"..28 DATA "1
006530: 53 54 20 52 4F 55 4E 25 6B FF FF FF FF 11 54 09 ST ROUN%k.....T.
006540: E4 05 08 04 E2 04 69 09 01 10 08 11 00 07 01 00 ......i.........
006550: 2C 43 43 00 00 00 00 00 00 00 00 00 00 00 00 00 ,CC.............
006560: 00 02 00 16 00 08 7C 9E 00 00 00 00 00 00 00 00 ......|.........
006570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0065A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0065B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0065C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0065D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0065E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0065F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006600: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006610: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006650: 00 CD A3 FF FF FF FF 11 54 09 E4 05 08 04 BF 04 ..£.....T.......
006660: 8B 09 01 10 08 F6 0A 15 08 00 16 44 22 2C 22 32 ...........D","2
006670: 4E 44 20 52 4F 55 4E 44 22 2C 22 51 55 41 52 54 ND ROUND","QUART
006680: 45 52 53 22 2C 22 53 45 4D 49 53 22 2C 22 46 49 ERS","SEMIS","FI
006690: 4E 41 4C 22 0D 0A 32 39 20 42 4C 3D 30 3A 4D 44 NAL"..29 BL=0:MD
0066A0: 3D 31 3A 42 4F 3D 34 38 3A 7A 32 3D 31 35 30 30 =1:BO=48:z2=1500
0066B0: 30 3A 4E 55 3D 35 3A 4E 56 3D 30 3A 4E 57 3D 31 0:NU=5:NV=0:NW=1
0066C0: 35 3A 4E 4A 3D 30 3A 4E 43 3D 30 0D 0A 33 31 20 5:NJ=0:NC=0..31
0066D0: 44 41 54 41 20 22 42 4F 57 4C 45 44 22 2C 22 53 DATA "BOWLED","S
0066E0: 54 55 4D 50 45 44 22 2C 22 43 41 55 47 48 54 22 TUMPED","CAUGHT"
0066F0: 2C 22 4C 42 57 22 2C 22 4E 4F 54 20 4F 55 54 22 ,"LBW","NOT OUT"
006700: 2C 22 52 55 4E 20 4F 55 54 22 2C 35 2C 37 2C 34 ,"RUN OUT",5,7,4
006710: 2C 31 34 2C 35 2C 32 34 2C 31 32 2C 34 2C 31 34 ,14,5,24,12,4,14
006720: 2C 32 36 2C 31 36 2C 37 2C 31 33 2C 39 2C 31 35 ,26,16,7,13,9,15
006730: 2C 31 37 2C 31 34 2C 32 34 0D 0A 34 34 20 46 4F ,17,14,24..44 FO
006740: 52 20 5A 3D 31 20 54 4F 20 31 35 3A 46 4F 52 20 R Z=1 TO 15:FOR
006750: 59 3D 31 20 54 4F 20 31 31 3A 47 4F 53 55 42 20 Y=1 TO 11:GOSUB
006760: 39 39 35 3A 50 24 28 5A 2C 59 29 34 58 3D 5A 24 995:P$(Z,Y)4X=Z$
006770: 3A 4E 45 58 54 20 59 2C 5A 3A 46 4F 52 20 5A 3D :NEXT Y,Z:FOR Z=
006780: 31 20 54 4F 20 31 35 3A 47 4F 53 55 42 20 39 39 1 TO 15:GOSUB 99
006790: 35 3A 51 24 28 5A 29 3D 5A 24 3A 52 41 4E 44 4F 5:Q$(Z)=Z$:RANDO
0067A0: 4D 49 5A 45 20 54 49 4D 45 3A 46 4F 52 20 59 3D MIZE TIME:FOR Y=
0067B0: 31 20 54 4F 20 33 3A 51 28 5A 2C 59 29 3D 33 2B 1 TO 3:Q(Z,Y)=3+
0067C0: 49 4E 54 28 52 4E 44 2A 36 29 3A 4E 45 58 54 3A INT(RND*6):NEXT:
0067D0: 52 41 4E 44 4F 4D 49 5A 45 20 54 49 4D 45 2B 49 RANDOMIZE TIME+I
0067E0: 4E 54 28 52 4E 44 2A 35 30 30 30 29 3A 46 4F 52 NT(RND*5000):FOR
0067F0: 20 59 3D 34 20 54 4F 20 36 3A 51 28 5A 2C 59 29 Y=4 TO 6:Q(Z,Y)
006800: 3D 31 2B 49 4E 54 28 52 4E 44 2A 33 29 3A 4E 45 =1+INT(RND*3):NE
006810: 58 54 20 59 2C 5A 0D 0A 34 38 20 59 50 3D 31 3A XT Y,Z..48 YP=1:
006820: 46 4F 52 20 5A 3D 31 20 54 4F 20 59 50 3A 47 4F FOR Z=1 TO YP:GO
006830: 53 55 42 20 39 39 35 3A 59 24 28 5A 29 3D 5A 24 SUB 995:Y$(Z)=Z$
006840: 3A 52 41 4E 44 4F 4D 49 5A 45 20 54 49 4D 45 3A :RANDOMIZE TIME:
006850: 46 4F 52 20 59 3D 31 20 54 4F 20 33 3A 59 28 5A FOR Y=1 TO 3:Y(Z
006860: 2C 59 29 3D 31 2B 49 4E 54 28 52 4E 44 2D A7 2A ,Y)=1+INT(RND-.*
006870: 36 29 3A 4E 45 58 54 3A 52 41 4E 44 4F 4D 49 5A 6):NEXT:RANDOMIZ
006880: 45 20 54 49 4D 45 3A 46 4F 52 20 59 3D 34 20 54 E TIME:FOR Y=4 T
006890: 4F 20 36 3A 59 28 5A 2C 59 29 3D 31 2B 49 4E 54 O 6:Y(Z,Y)=1+INT
0068A0: 28 52 4E 44 2A 33 29 3A 4E 45 58 54 20 59 2C 5A (RND*3):NEXT Y,Z
0068B0: 0D 0A 35 30 30 20 47 4F 53 55 42 20 38 33 37 30 ..500 GOSUB 8370
0068C0: 0D 0A 35 30 32 20 6A 3D 33 3A 43 4C 53 3A 46 4F ..502 j=3:CLS:FO
0068D0: 52 20 49 3D 31 20 54 4F 20 31 36 3A 4C 4F 43 41 R I=1 TO 16:LOCA
0068E0: 54 45 20 31 35 2C 69 2B 32 3A 50 52 49 4E 54 20 TE 15,i+2:PRINT
0068F0: 55 53 49 4E 47 20 22 23 23 20 5C 20 20 20 20 20 USING "## \
006900: 20 20 20 20 5C 22 3B 49 2C 54 24 28 49 29 3A 4E \";I,T$(I):N
006910: 45 58 54 3A 47 4F 53 55 42 20 31 30 30 30 3A 47 EXT:GOSUB 1000:G
006920: 4F 54 4F 20 31 30 30 36 0D 0A 39 39 35 20 52 41 OTO 1006..995 RA
006930: 4E 44 4F 4D 49 5A 45 20 54 49 4D 45 2B 49 4E 54 NDOMIZE TIME+INT
006940: 28 52 4E 44 2A 39 39 39 39 29 3A 58 24 3D 22 42 (RND*9999):X$="B
006950: 43 44 46 47 48 4A 4B 4C 4D 4E 50 52 53 54 56 57 CDFGHJKLMNPRSTVW
006960: 22 3A 5A 24 3D 4C 45 46 54 24 28 43 48 52 24 D8 ":Z$=LEFT$(CHR$.
006970: 7E 28 36 35 2B 49 4E 54 28 52 4E 44 2A 32 31 29 ~(65+INT(RND*21)
006980: 29 2B 22 2E 22 2B 4D 49 44 24 28 58 24 2C 31 2B )+"."+MID$(X$,1+
006990: 49 4E 54 28 52 4E 44 2A 31 37 29 2C 31 29 2B 4D INT(RND*17),1)+M
0069A0: 49 44 24 28 22 41 45 49 4F 55 22 2C 31 2B 49 4E ID$("AEIOU",1+IN
0069B0: 54 28 52 4E 44 2A 35 29 2C 31 29 2B 4D 49 44 24 T(RND*5),1)+MID$
0069C0: 28 58 24 2C 31 2B 49 4E 54 28 52 4E 44 2A 31 37 (X$,1+INT(RND*17
0069D0: 29 2C 31 29 2B 45 24 28 31 2B 49 4E 54 28 52 4E ),1)+E$(1+INT(RN
0069E0: 44 2A 32 36 29 29 2B 22 20 20 22 2C 38 29 3A 52 D*26))+" ",8):R
0069F0: 45 54 55 52 4E 0D 0A 31 30 30 30 20 4C 4F 43 41 ETURN..1000 LOCA
006A00: 54 45 20 31 34 2C 6A 3A 50 52 49 4E 54 20 43 48 TE 14,j:PRINT CH
006A10: 52 24 28 32 34 33 29 3B 3A 4C 4F 43 41 54 45 20 R$(243);:LOCATE
006A20: 32 36 2C 6A 3A 50 52 49 4E 54 20 43 48 52 24 28 26,j:PRINT CHR$(
006A30: 32 34 32 29 3B 3A 46 4F 52 20 49 3D 31 20 54 4F 242);:FOR I=1 TO
006A40: 20 32 30 30 3A 4E 45 58 54 3A 52 45 54 55 52 4E 200:NEXT:RETURN
006A50: 0D 0A 31 30 30 32 20 4C 4F 43 41 54 45 20 31 34 ..1002 LOCATE 14
006A60: 2C 6A 3A 50 52 49 4E 54 20 22 20 22 3B 3A 4C 4F ,j:PRINT " ";:LO
006A70: 43 2F C1 41 54 45 20 32 36 2C 6A 3A 50 52 49 4E C/.ATE 26,j:PRIN
006A80: 54 20 22 20 22 3A 52 45 54 55 52 4E 0D 0A 31 30 T " ":RETURN..10
006A90: 30 36 20 43 4C 53 23 32 3A 50 52 49 4E 54 20 23 06 CLS#2:PRINT #
006AA0: 32 2C 22 55 73 65 20 63 75 72 73 6F 72 20 6B 65 2,"Use cursor ke
006AB0: 79 73 20 61 6E 64 20 45 4E 54 45 52 20 6B 65 79 ys and ENTER key
006AC0: 22 0D 0A 31 30 31 30 20 49 46 20 49 4E 4B 45 59 "..1010 IF INKEY
006AD0: 28 30 29 3C 3E 2D 31 20 54 48 45 4E 20 47 4F 53 (0)<>-1 THEN GOS
006AE0: 55 42 20 31 30 30 32 3A 6A 3D 6A 2D 31 3A 6A 3D UB 1002:j=j-1:j=
006AF0: 6A 2D 28 6A 3D 32 29 2A 31 36 3A 47 4F 53 55 42 j-(j=2)*16:GOSUB
006B00: 20 31 30 30 30 0D 0A 31 30 31 34 20 49 46 20 49 1000..1014 IF I
006B10: 4E 4B 45 59 28 32 29 3C 3E 2D 31 20 54 48 45 4E NKEY(2)<>-1 THEN
006B20: 20 47 4F 53 55 42 20 31 30 30 32 3A 6A 3D 6A 2B GOSUB 1002:j=j+
006B30: 31 3A 6A 3D 6A 2B 28 6A 3D 31 39 29 2A 31 36 3A 1:j=j+(j=19)*16:
006B40: 47 4F 53 55 42 20 31 30 30 30 0D 0A 31 30 31 35 GOSUB 1000..1015
006B50: 20 49 46 20 49 4E 4B 45 59 28 31 38 29 3D 2D 31 IF INKEY(18)=-1
006B60: 20 41 4E 44 20 49 4E 4B 45 59 28 36 29 3D 2D 31 AND INKEY(6)=-1
006B70: 20 54 48 D5 72 45 4E 20 31 30 31 30 0D 0A 31 31 TH.rEN 1010..11
006B80: 32 39 20 5A 24 3D 54 24 28 6A 2D 32 29 3A 54 24 29 Z$=T$(j-2):T$
006B90: 28 6A 2D 32 29 3D 54 24 28 31 36 29 3A 54 24 28 (j-2)=T$(16):T$(
006BA0: 31 36 29 3D 5A 24 3A 41 4E 3D 31 0D 0A 31 31 33 16)=Z$:AN=1..113
006BB0: 30 20 43 4C 53 23 32 3A 50 52 49 4E 54 23 32 2C 0 CLS#2:PRINT#2,
006BC0: 22 20 20 20 20 20 20 20 50 20 6C 20 65 20 61 20 " P l e a
006BD0: 73 20 65 20 20 20 20 57 20 61 20 69 20 74 22 3A s e W a i t":
006BE0: 43 48 41 49 4E 20 4D 45 52 47 45 20 22 21 43 43 CHAIN MERGE "!CC
006BF0: 31 41 22 2C 32 0D 0A 38 33 37 30 20 4E 4A 3D 30 1A",2..8370 NJ=0
006C00: 3A 4E 43 3D 4E 4A 3A 71 3D 31 3A 41 4F 3D 30 3A :NC=NJ:q=1:AO=0:
006C10: 41 50 3D 30 3A 45 52 41 53 45 20 74 2C 66 3A 44 AP=0:ERASE t,f:D
006C20: 49 4D 20 54 28 31 35 29 2C 66 28 34 30 2C 32 29 IM T(15),f(40,2)
006C30: 3A 46 4F 52 20 5A 3D 34 20 54 4F 20 33 36 20 53 :FOR Z=4 TO 36 S
006C40: 54 45 50 20 38 3A 66 28 5A 2C 31 29 3D 33 31 3A TEP 8:f(Z,1)=31:
006C50: 66 28 5A 2B 34 2C 31 29 3D 33 32 3A 4E 45 58 54 f(Z+4,1)=32:NEXT
006C60: 3A 4C 47 3D 32 30 3A 46 4F 52 20 5A 3D 31 20 54 :LG=20:FOR Z=1 T
006C70: 4F 20 31 39 0D 7E BE 0A 38 33 37 32 20 49 46 20 O 19.~..8372 IF
006C80: 66 28 5A 2C 31 29 3C 3E 30 20 54 48 45 4E 20 38 f(Z,1)<>0 THEN 8
006C90: 33 38 32 0D 0A 38 33 37 34 20 49 46 20 4C 47 3D 382..8374 IF LG=
006CA0: 32 30 20 54 48 45 4E 20 4C 47 3D 30 20 45 4C 53 20 THEN LG=0 ELS
006CB0: 45 20 6C 67 3D 32 30 0D 0A 38 33 37 38 20 52 3D E lg=20..8378 R=
006CC0: 31 2B 49 4E 54 28 52 4E 44 2A 31 35 29 3A 49 46 1+INT(RND*15):IF
006CD0: 20 54 28 52 29 3D 31 20 54 48 45 4E 20 38 33 37 T(R)=1 THEN 837
006CE0: 38 0D 0A 38 33 38 30 20 54 28 52 29 3D 31 3A 66 8..8380 T(R)=1:f
006CF0: 28 5A 2B 4C 47 2C 31 29 3D 52 3A 66 28 5A 2B 32 (Z+LG,1)=R:f(Z+2
006D00: 30 2D 4C 47 2C 31 29 3D 52 2B 31 35 0D 0A 38 33 0-LG,1)=R+15..83
006D10: 38 32 20 4E 45 58 54 3A 66 71 3D 66 28 71 2C 31 82 NEXT:fq=f(q,1
006D20: 29 3A 45 52 41 53 45 20 78 2C 63 2C 70 2C 65 3A ):ERASE x,c,p,e:
006D30: 44 49 4D 20 58 28 32 2C 31 36 2C 32 29 2C 63 28 DIM X(2,16,2),c(
006D40: 31 36 2C 32 29 2C 50 28 32 2C 31 36 2C 32 29 2C 16,2),P(2,16,2),
006D50: 45 28 32 2C 31 36 29 3A 46 4F 52 20 5A 3D 31 20 E(2,16):FOR Z=1
006D60: 54 4F 20 31 36 3A 45 28 31 2C 5A 29 3D 5A 3A 45 TO 16:E(1,Z)=Z:E
006D70: 28 32 2C 5A 29 3D 5A A3 76 3A 4E 45 58 54 3A 52 (2,Z)=Z£v:NEXT:R
006D80: 45 54 55 52 4E 0D 0A 38 34 31 31 20 46 4F 52 20 ETURN..8411 FOR
006D90: 6B 3D 31 20 54 4F 20 31 35 3A 6F 28 6B 29 3D 6B k=1 TO 15:o(k)=k
006DA0: 3A 73 3D 6B 3A 46 4F 52 20 69 3D 31 20 54 4F 20 :s=k:FOR i=1 TO
006DB0: 33 3A 6D 28 73 2C 69 29 3D 30 3A 4E 45 58 54 3A 3:m(s,i)=0:NEXT:
006DC0: 6A 3D 52 4E 44 2A 33 3A 49 46 20 6A 3D 30 20 54 j=RND*3:IF j=0 T
006DD0: 48 45 4E 20 38 34 32 35 0D 0A 38 34 31 32 20 46 HEN 8425..8412 F
006DE0: 4F 52 20 49 3D 31 20 54 4F 20 6A 0D 0A 38 34 31 OR I=1 TO j..841
006DF0: 34 20 52 42 3D 31 2B 49 4E 54 28 52 4E 44 2A 31 4 RB=1+INT(RND*1
006E00: 31 29 3A 46 4F 52 20 5A 3D 31 20 54 4F 20 49 3A 1):FOR Z=1 TO I:
006E10: 49 46 20 4D 28 73 2C 5A 29 3D 52 42 20 54 48 45 IF M(s,Z)=RB THE
006E20: 4E 20 5A 3D 39 38 0D 0A 38 34 31 38 20 4E 45 58 N Z=98..8418 NEX
006E30: 54 3A 49 46 20 5A 3D 39 39 20 54 48 45 4E 20 38 T:IF Z=99 THEN 8
006E40: 34 31 34 0D 0A 38 34 32 30 20 4D 28 73 2C 49 29 414..8420 M(s,I)
006E50: 3D 52 42 3A 4E 45 58 54 0D 0A 38 34 32 35 20 4E =RB:NEXT..8425 N
006E60: 45 58 54 3A 52 45 54 55 52 4E 0D 0A 35 30 30 30 EXT:RETURN..5000
006E70: 30 20 43 4C 53 3A 4C 4F 43 27 B1 FF FF FF FF 11 0 CLS:LOC'......
006E80: 53 09 33 06 08 04 E2 04 60 09 01 10 08 10 00 07 S.3.....`.......
006E90: 01 00 2C 43 43 00 00 00 00 00 00 00 00 00 00 00 ..,CC...........
006EA0: 00 00 00 03 FF 16 0E 05 7C 9E 00 00 00 00 00 00 ........|.......
006EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006F00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006F10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006F20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006F30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006F40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006F50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006F60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006F70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006F80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006F90: 00 00 00 78 C6 FF FF FF FF 11 53 09 E4 05 08 04 ...x......S.....
006FA0: C7 04 84 09 01 10 08 DF 28 11 06 00 16 41 54 45 ........(....ATE
006FB0: 20 31 30 2C 31 32 3A 50 52 49 4E 54 22 49 6E 73 10,12:PRINT"Ins
006FC0: 65 72 74 20 73 61 76 65 64 20 67 61 6D 65 20 74 ert saved game t
006FD0: 61 70 65 22 2C 2C 54 41 42 28 39 29 3B 22 50 72 ape",,TAB(9);"Pr
006FE0: 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 ess any key to c
006FF0: 6F 6E 74 69 6E 75 65 22 3A 57 48 49 4C 45 20 49 ontinue":WHILE I
007000: 4E 4B 45 59 24 3D 22 22 3A 57 45 4E 44 3A 43 4C NKEY$="":WEND:CL
007010: 53 3A 4F 50 45 4E 49 4E 20 22 43 43 2E 53 41 56 S:OPENIN "CC.SAV
007020: 22 0D 0A 35 30 30 31 30 20 46 4F 52 20 6E 3D 31 "..50010 FOR n=1
007030: 20 54 4F 20 31 35 3A 46 4F 52 20 7A 3D 31 20 54 TO 15:FOR z=1 T
007040: 4F 20 33 3A 49 4E 50 55 54 23 39 2C 6D 28 6E 2C O 3:INPUT#9,m(n,
007050: 7A 29 3A 4E 45 58 54 20 7A 2C 6E 3A 46 4F 52 20 z):NEXT z,n:FOR
007060: 6E 3D 31 20 54 4F 20 31 36 3A 49 4E 50 55 54 23 n=1 TO 16:INPUT#
007070: 39 2C 74 24 28 6E 29 2C 75 24 28 6E 29 3A 4E 45 9,t$(n),u$(n):NE
007080: 58 54 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 35 3A XT:FOR n=1 TO 5:
007090: 49 4E 50 55 54 23 39 2C 63 24 28 6E 29 2C 61 28 INPUT#9,c$(n),a(
0070A0: 6E 29 2C 69 24 28 6E 29 3A 46 4F 52 20 BF 7E 7A n),i$(n):FOR .~z
0070B0: 3D 31 20 54 4F 20 34 3A 49 4E 50 55 54 23 39 2C =1 TO 4:INPUT#9,
0070C0: 69 28 6E 2C 7A 29 3A 4E 45 58 54 20 7A 2C 6E 3A i(n,z):NEXT z,n:
0070D0: 46 4F 52 20 6E 3D 31 20 54 4F 20 36 3A 49 4E 50 FOR n=1 TO 6:INP
0070E0: 55 54 23 39 2C 6F 24 28 6E 29 2C 6B 28 6E 29 2C UT#9,o$(n),k(n),
0070F0: 6A 24 28 6E 29 2C 6A 28 6E 29 2C 72 28 6E 29 3A j$(n),j(n),r(n):
007100: 4E 45 58 54 0D 0A 35 30 30 31 35 20 46 4F 52 20 NEXT..50015 FOR
007110: 6E 3D 31 20 54 4F 20 31 38 3A 49 4E 50 55 54 23 n=1 TO 18:INPUT#
007120: 39 2C 77 28 6E 29 3A 4E 45 58 54 3A 46 4F 52 20 9,w(n):NEXT:FOR
007130: 6E 3D 31 20 54 4F 20 32 30 3A 49 4E 50 55 54 23 n=1 TO 20:INPUT#
007140: 39 2C 6F 28 6E 29 2C 71 24 28 6E 29 3A 46 4F 52 9,o(n),q$(n):FOR
007150: 20 7A 3D 31 20 54 4F 20 34 3A 49 4E 50 55 54 23 z=1 TO 4:INPUT#
007160: 39 2C 62 28 7A 2C 6E 29 3A 4E 45 58 54 20 7A 2C 9,b(z,n):NEXT z,
007170: 6E 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 38 3A 49 n:FOR n=1 TO 8:I
007180: 4E 50 55 54 23 39 2C 67 28 6E 2C 31 29 2C 67 28 NPUT#9,g(n,1),g(
007190: 6E 2C 32 29 3A 4E 45 58 54 3A 46 4F 52 20 6E 3D n,2):NEXT:FOR n=
0071A0: 31 20 54 4F 20 34 3A 49 4E 50 55 54 23 39 2C D0 1 TO 4:INPUT#9,.
0071B0: 49 73 28 6E 29 3A 4E 45 58 54 3A 46 4F 52 20 6E Is(n):NEXT:FOR n
0071C0: 3D 31 20 54 4F 20 31 31 3A 49 4E 50 55 54 23 39 =1 TO 11:INPUT#9
0071D0: 2C 6E 28 6E 29 2C 64 24 28 6E 29 2C 64 28 6E 29 ,n(n),d$(n),d(n)
0071E0: 2C 6B 24 28 6E 29 3A 4E 45 58 54 0D 0A 35 30 30 ,k$(n):NEXT..500
0071F0: 32 30 20 46 4F 52 20 6E 3D 31 20 54 4F 20 31 35 20 FOR n=1 TO 15
007200: 3A 46 4F 52 20 7A 3D 31 20 54 4F 20 31 31 3A 49 :FOR z=1 TO 11:I
007210: 4E 50 55 54 23 39 2C 70 24 28 6E 2C 7A 29 3A 4E NPUT#9,p$(n,z):N
007220: 45 58 54 20 7A 2C 6E 3A 46 4F 52 20 6E 3D 31 20 EXT z,n:FOR n=1
007230: 54 4F 20 32 30 3A 46 4F 52 20 7A 3D 31 20 54 4F TO 20:FOR z=1 TO
007240: 20 36 3A 49 4E 50 55 54 23 39 2C 71 28 6E 2C 7A 6:INPUT#9,q(n,z
007250: 29 3A 4E 45 58 54 20 7A 2C 6E 3A 46 4F 52 20 6E ):NEXT z,n:FOR n
007260: 3D 31 20 54 4F 20 35 3A 49 4E 50 55 54 23 39 2C =1 TO 5:INPUT#9,
007270: 79 24 28 6E 29 3A 46 4F 52 20 7A 3D 31 20 54 4F y$(n):FOR z=1 TO
007280: 20 36 3A 49 4E 50 55 54 23 39 2C 79 28 6E 2C 7A 6:INPUT#9,y(n,z
007290: 29 3A 4E 45 58 54 20 7A 2C 6E 3A 46 4F 52 20 6E ):NEXT z,n:FOR n
0072A0: 3D 31 20 54 4F 20 34 30 3A 49 4E 50 55 54 23 39 =1 TO 40:INPUT#9
0072B0: 2C D8 60 66 28 6E 2C 31 29 2C 66 28 6E 2C 32 29 ,.`f(n,1),f(n,2)
0072C0: 3A 4E 45 58 54 0D 0A 35 30 30 32 35 20 46 4F 52 :NEXT..50025 FOR
0072D0: 20 6E 3D 31 20 54 4F 20 32 3A 46 4F 52 20 7A 3D n=1 TO 2:FOR z=
0072E0: 31 20 54 4F 20 31 36 3A 49 4E 50 55 54 23 39 2C 1 TO 16:INPUT#9,
0072F0: 63 28 7A 2C 6E 29 2C 65 28 6E 2C 7A 29 3A 46 4F c(z,n),e(n,z):FO
007300: 52 20 79 3D 31 20 54 4F 20 32 3A 49 4E 50 55 54 R y=1 TO 2:INPUT
007310: 23 39 2C 78 28 6E 2C 7A 2C 79 29 2C 70 28 6E 2C #9,x(n,z,y),p(n,
007320: 7A 2C 79 29 3A 4E 45 58 54 3A 4E 45 58 54 3A 4E z,y):NEXT:NEXT:N
007330: 45 58 54 0D 0A 35 30 30 33 30 20 49 4E 50 55 54 EXT..50030 INPUT
007340: 23 39 2C 7A 2C 6B 2C 73 2C 69 2C 72 62 2C 79 2C #9,z,k,s,i,rb,y,
007350: 62 6C 2C 6D 64 2C 62 6F 2C 7A 32 2C 62 70 0D 0A bl,md,bo,z2,bp..
007360: 35 30 30 33 35 20 49 4E 50 55 54 23 39 2C 6E 75 50035 INPUT#9,nu
007370: 2C 6E 76 2C 6E 77 2C 6E 6A 2C 6E 63 2C 70 63 2C ,nv,nw,nj,nc,pc,
007380: 61 6D 2C 61 71 2C 72 63 2C 72 64 2C 79 70 2C 78 am,aq,rc,rd,yp,x
007390: 2C 71 2C 61 6F 2C 61 70 2C 6C 67 2C 72 2C 61 72 ,q,ao,ap,lg,r,ar
0073A0: 0D 0A 35 30 30 34 30 20 49 4E 50 55 54 23 39 2C ..50040 INPUT#9,
0073B0: 79 31 2C 92 3D 7A 38 2C 79 32 2C 65 2C 72 7A 2C y1,.=z8,y2,e,rz,
0073C0: 6D 2C 72 65 2C 7A 7A 2C 61 34 2C 61 33 2C 61 64 m,re,zz,a4,a3,ad
0073D0: 2C 70 6C 2C 72 74 2C 7A 7A 2C 62 2C 61 31 2C 61 ,pl,rt,zz,b,a1,a
0073E0: 32 2C 61 79 2C 61 7A 2C 62 61 2C 62 68 2C 62 69 2,ay,az,ba,bh,bi
0073F0: 2C 62 62 2C 62 64 2C 64 2C 7A 39 38 2C 6D 62 2C ,bb,bd,d,z98,mb,
007400: 65 78 2C 62 65 2C 61 69 2C 61 6A 0D 0A 35 30 30 ex,be,ai,aj..500
007410: 34 35 20 49 4E 50 55 54 23 39 2C 61 6B 2C 6F 2C 45 INPUT#9,ak,o,
007420: 6E 62 2C 74 72 2C 62 6A 2C 62 6B 2C 61 78 2C 63 nb,tr,bj,bk,ax,c
007430: 6C 2C 61 77 2C 63 68 32 2C 61 75 2C 62 63 2C 61 l,aw,ch2,au,bc,a
007440: 76 2C 61 63 2C 61 65 2C 61 66 2C 76 2C 68 2C 74 v,ac,ae,af,v,h,t
007450: 2C 61 67 2C 6B 6B 2C 72 79 2C 61 2C 74 31 2C 6C ,ag,kk,ry,a,t1,l
007460: 2C 74 32 2C 67 2C 77 2C 63 68 2C 74 74 2C 69 64 ,t2,g,w,ch,tt,id
007470: 2C 67 6E 2C 72 78 2C 63 2C 78 24 2C 7A 24 2C 66 ,gn,rx,c,x$,z$,f
007480: 24 0D 0A 35 30 30 35 30 20 46 4F 52 20 6E 3D 31 $..50050 FOR n=1
007490: 20 54 4F 20 32 3A 49 4E 50 55 54 23 39 2C 66 31 TO 2:INPUT#9,f1
0074A0: 28 6E 2C 31 29 2C 66 31 28 6E 2C 32 29 3A 4E 45 (n,1),f1(n,2):NE
0074B0: 58 54 3A 43 4C B3 BD 4F 53 45 49 4E 3A 47 4F 54 XT:CL..OSEIN:GOT
0074C0: 4F 20 31 0D 0A 00 00 00 00 00 00 00 00 00 00 00 O 1.............
0074D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0074E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0074F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007500: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007510: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007520: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007530: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007540: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007550: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0075A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0075B0: 00 00 00 00 00 00 00 81 98 FF FF FF FF 11 58 09 ..............X.
0075C0: E4 05 57 04 E3 04 69 09 01 10 08 10 00 07 01 00 ..W...i.........
0075D0: 2C 43 43 31 41 00 00 00 00 00 00 00 00 00 00 00 ,CC1A...........
0075E0: 00 01 00 16 00 08 7C 9E FF 00 00 00 00 00 00 00 ......|.........
0075F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007600: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007610: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007650: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0076A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0076B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0076C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0076D0: 00 7A 49 FF FF FF FF 11 56 09 E4 05 57 04 C1 04 .zI.....V...W...
0076E0: 8A 09 01 10 08 FE 0A 15 08 00 16 32 20 43 4C 53 ...........2 CLS
0076F0: 3A 47 4F 53 55 42 20 39 30 36 30 3A 47 4F 54 4F :GOSUB 9060:GOTO
007700: 20 38 35 32 35 0D 0A 34 20 50 52 49 4E 54 20 6D 8525..4 PRINT m
007710: 24 28 31 29 3A 43 4C 53 3A 47 4F 53 55 42 20 35 $(1):CLS:GOSUB 5
007720: 3A 47 4F 54 4F 20 32 30 0D 0A 35 20 50 52 49 4E :GOTO 20..5 PRIN
007730: 54 20 6D 24 28 35 29 74 24 28 31 36 29 3B 54 41 T m$(5)t$(16);TA
007740: 42 28 31 34 29 62 24 28 33 29 6D 24 28 31 29 0D B(14)b$(3)m$(1).
007750: 0A 36 20 46 4F 52 20 69 3D 31 20 54 4F 20 32 30 .6 FOR i=1 TO 20
007760: 3A 47 4F 53 55 42 20 37 3A 4E 45 58 54 3A 50 52 :GOSUB 7:NEXT:PR
007770: 49 4E 54 20 6D 24 28 31 29 3A 52 45 54 55 52 4E INT m$(1):RETURN
007780: 0D 0A 37 20 49 46 20 6F 28 69 29 3D 30 20 54 48 ..7 IF o(i)=0 TH
007790: 45 4E 20 52 45 54 55 52 4E 20 45 4C 53 45 20 7A EN RETURN ELSE z
0077A0: 24 3D 22 20 22 3A 4C 4F 43 41 54 45 20 31 2C 69 $=" ":LOCATE 1,i
0077B0: 2B 31 3A 50 52 49 4E 54 20 6D 24 28 34 2B 28 69 +1:PRINT m$(4+(i
0077C0: 3E 31 31 29 29 55 53 49 4E 47 22 23 23 22 3B 69 >11))USING"##";i
0077D0: 3B 3A 49 46 20 6F 28 69 29 3D 6B 28 36 29 20 54 ;:IF o(i)=k(6) T
0077E0: 48 45 4E 20 61 33 3D 69 3A 7A 24 35 E4 3D 43 48 HEN a3=i:z$5.=CH
0077F0: 52 24 28 32 35 34 29 0D 0A 38 20 46 4F 52 20 7A R$(254)..8 FOR z
007800: 3D 31 20 54 4F 20 35 3A 49 46 20 6B 28 7A 29 3D =1 TO 5:IF k(z)=
007810: 6F 28 69 29 20 54 48 45 4E 20 7A 3D 38 3A 7A 24 o(i) THEN z=8:z$
007820: 3D 43 48 52 24 28 32 35 35 29 0D 0A 39 20 4E 45 =CHR$(255)..9 NE
007830: 58 54 3A 50 52 49 4E 54 20 55 53 49 4E 47 22 21 XT:PRINT USING"!
007840: 20 5C 20 20 20 20 20 20 5C 20 23 23 20 23 23 20 \ \ ## ##
007850: 23 23 20 20 5C 20 5C 20 5C 20 5C 20 5C 20 20 20 ## \ \ \ \ \
007860: 20 5C 22 3B 7A 24 2C 71 24 28 6F 28 69 29 29 2C \";z$,q$(o(i)),
007870: 49 4E 54 28 71 28 6F 28 69 29 2C 31 29 29 2C 49 INT(q(o(i),1)),I
007880: 4E 54 28 71 28 6F 28 69 29 2C 33 29 29 2C 49 4E NT(q(o(i),3)),IN
007890: 54 28 71 28 6F 28 69 29 2C 32 29 29 2C 61 24 28 T(q(o(i),2)),a$(
0078A0: 31 2C 71 28 6F 28 69 29 2C 34 29 29 2C 61 24 28 1,q(o(i),4)),a$(
0078B0: 31 2C 71 28 6F 28 69 29 2C 35 29 29 2C 61 24 28 1,q(o(i),5)),a$(
0078C0: 32 2C 71 28 6F 28 69 29 2C 36 29 29 0D 0A 31 30 2,q(o(i),6))..10
0078D0: 20 27 0D 0A 31 31 20 27 0D 0A 31 33 20 52 45 54 '..11 '..13 RET
0078E0: 55 52 4E 0D 0A 31 35 20 47 4F 53 55 42 CB 16 20 URN..15 GOSUB..
0078F0: 36 35 30 30 30 3A 61 71 3D 31 3A 52 45 54 55 52 65000:aq=1:RETUR
007900: 4E 0D 0A 31 38 20 49 46 20 49 4E 54 28 52 4E 44 N..18 IF INT(RND
007910: 2A 32 29 3D 31 20 54 48 45 4E 20 71 28 6F 28 7A *2)=1 THEN q(o(z
007920: 29 2C 32 29 3D 71 28 6F 28 7A 29 2C 32 29 2B 30 ),2)=q(o(z),2)+0
007930: 2E 31 20 45 4C 53 45 20 71 28 6F 28 7A 29 2C 32 .1 ELSE q(o(z),2
007940: 29 3D 71 28 6F 28 7A 29 2C 32 29 2D 30 2E 31 0D )=q(o(z),2)-0.1.
007950: 0A 31 39 20 47 4F 53 55 42 20 31 30 31 34 3A 52 .19 GOSUB 1014:R
007960: 45 54 55 52 4E 0D 0A 32 30 20 50 52 49 4E 54 23 ETURN..20 PRINT#
007970: 32 2C 62 24 28 34 29 3A 69 6B 24 3D 22 53 43 4D 2,b$(4):ik$="SCM
007980: 54 45 22 3A 47 4F 53 55 42 20 36 34 32 30 30 3A TE":GOSUB 64200:
007990: 4F 4E 20 61 2B 31 20 47 4F 54 4F 20 32 30 2C 33 ON a+1 GOTO 20,3
0079A0: 31 2C 34 34 2C 35 30 30 2C 31 31 32 39 2C 32 31 1,44,500,1129,21
0079B0: 0D 0A 32 31 20 43 4C 53 23 32 3A 49 4E 50 55 54 ..21 CLS#2:INPUT
0079C0: 23 32 2C 22 57 68 69 63 68 20 70 6C 61 79 65 72 #2,"Which player
0079D0: 22 3B 69 3A 43 4C 53 23 32 3A 49 46 20 69 3C 31 ";i:CLS#2:IF i<1
0079E0: 20 4F 52 20 69 3E 32 30 20 54 48 45 4E 20 32 DF OR i>20 THEN 2.
0079F0: 92 30 0D 0A 32 32 20 49 46 20 6F 28 69 29 3D 30 .0..22 IF o(i)=0
007A00: 20 54 48 45 4E 20 32 30 0D 0A 32 33 20 43 4C 53 THEN 20..23 CLS
007A10: 23 32 3A 49 4E 50 55 54 23 32 2C 22 50 6C 61 79 #2:INPUT#2,"Play
007A20: 65 72 27 73 20 6E 65 77 20 6E 61 6D 65 22 3B 7A er's new name";z
007A30: 24 3A 43 4C 53 23 32 3A 7A 24 3D 4C 45 46 54 24 $:CLS#2:z$=LEFT$
007A40: 28 55 50 50 45 52 24 28 7A 24 2B 22 20 20 20 20 (UPPER$(z$+"
007A50: 20 20 20 20 22 29 2C 38 29 0D 0A 32 34 20 46 4F "),8)..24 FO
007A60: 52 20 7A 3D 31 20 54 4F 20 32 30 3A 49 46 20 6F R z=1 TO 20:IF o
007A70: 28 7A 29 3C 3E 30 20 54 48 45 4E 20 49 46 20 71 (z)<>0 THEN IF q
007A80: 24 28 6F 28 7A 29 29 3D 7A 24 20 54 48 45 4E 20 $(o(z))=z$ THEN
007A90: 7A 3D 39 38 0D 0A 32 35 20 4E 45 58 54 3A 49 46 z=98..25 NEXT:IF
007AA0: 20 7A 3D 39 39 20 54 48 45 4E 20 32 33 20 45 4C z=99 THEN 23 EL
007AB0: 53 45 20 71 24 28 6F 28 69 29 29 3D 7A 24 3A 47 SE q$(o(i))=z$:G
007AC0: 4F 53 55 42 20 37 3A 47 4F 54 4F 20 32 30 0D 0A OSUB 7:GOTO 20..
007AD0: 32 37 20 41 57 3D 44 28 6F 29 2A 32 3A 52 5A 3D 27 AW=D(o)*2:RZ=
007AE0: 4E 28 6F 29 3A 47 4F 53 55 42 20 39 30 30 32 3A N(o):GOSUB 9002:
007AF0: 49 A9 ED 46 20 64 3C 3E 31 36 20 54 48 45 4E 20 I..F d<>16 THEN
007B00: 41 57 3D 41 57 2F 28 34 2D 6D 29 20 45 4C 53 45 AW=AW/(4-m) ELSE
007B10: 20 49 46 20 64 3D 31 36 20 54 48 45 4E 20 41 57 IF d=16 THEN AW
007B20: 3D 41 57 2F 28 34 2D 51 28 4F 28 6F 29 2C 36 29 =AW/(4-Q(O(o),6)
007B30: 29 0D 0A 32 38 20 41 57 3D 41 57 2B 31 30 2B 7A )..28 AW=AW+10+z
007B40: 39 38 3A 52 45 54 55 52 4E 0D 0A 32 39 20 46 4F 98:RETURN..29 FO
007B50: 52 20 6B 3D 31 20 54 4F 20 33 3A 71 28 6F 28 7A R k=1 TO 3:q(o(z
007B60: 29 2C 6B 29 3D 71 28 6F 28 7A 29 2C 6B 29 2D 28 ),k)=q(o(z),k)-(
007B70: 61 7A 3E 62 61 29 2A 30 2E 31 2B 28 62 61 3E 61 az>ba)*0.1+(ba>a
007B80: 7A 29 2A 30 2E 31 3A 4E 45 58 54 3A 47 4F 54 4F z)*0.1:NEXT:GOTO
007B90: 20 31 30 31 34 0D 0A 33 31 20 43 4C 53 23 32 3A 1014..31 CLS#2:
007BA0: 49 4E 50 55 54 23 32 2C 22 53 77 61 70 20 77 68 INPUT#2,"Swap wh
007BB0: 69 63 68 20 70 6C 61 79 65 72 22 3B 69 3A 49 46 ich player";i:IF
007BC0: 20 69 3C 31 20 4F 52 20 69 3E 32 30 20 54 48 45 i<1 OR i>20 THE
007BD0: 4E 20 32 30 20 45 4C 53 45 20 49 46 20 4F 28 49 N 20 ELSE IF O(I
007BE0: 29 3D 30 20 54 48 45 4E 20 32 30 0D 0A 33 32 20 )=0 THEN 20..32
007BF0: 43 4C 53 D1 00 23 32 3A 49 4E 50 55 54 23 32 2C CLS..#2:INPUT#2,
007C00: 22 50 6C 61 79 65 72 73 20 6E 65 77 20 70 6F 73 "Players new pos
007C10: 69 74 69 6F 6E 22 3B 41 44 3A 43 4C 53 23 32 3A ition";AD:CLS#2:
007C20: 49 46 20 41 44 3C 31 20 4F 52 20 41 44 3E 32 30 IF AD<1 OR AD>20
007C30: 20 54 48 45 4E 20 33 32 20 45 4C 53 45 20 49 46 THEN 32 ELSE IF
007C40: 20 41 44 3D 49 20 4F 52 20 4F 28 41 44 29 3D 30 AD=I OR O(AD)=0
007C50: 20 54 48 45 4E 20 32 30 0D 0A 33 38 20 52 42 3D THEN 20..38 RB=
007C60: 4F 28 49 29 3A 4F 28 49 29 3D 4F 28 41 44 29 3A O(I):O(I)=O(AD):
007C70: 47 4F 53 55 42 20 37 3A 4F 28 41 44 29 3D 52 42 GOSUB 7:O(AD)=RB
007C80: 3A 49 3D 41 44 3A 47 4F 53 55 42 20 37 3A 46 4F :I=AD:GOSUB 7:FO
007C90: 52 20 49 3D 31 32 20 54 4F 20 32 30 3A 49 46 20 R I=12 TO 20:IF
007CA0: 4F 28 49 29 3D 30 20 54 48 45 4E 20 34 33 0D 0A O(I)=0 THEN 43..
007CB0: 34 30 20 49 46 20 6F 28 69 29 3D 6B 28 36 29 20 40 IF o(i)=k(6)
007CC0: 54 48 45 4E 20 6B 28 36 29 3D 30 3A 47 4F 53 55 THEN k(6)=0:GOSU
007CD0: 42 20 37 0D 0A 34 31 20 46 4F 52 20 5A 3D 31 20 B 7..41 FOR Z=1
007CE0: 54 4F 20 35 3A 49 46 20 4F 28 49 29 3D 4B 28 5A TO 5:IF O(I)=K(Z
007CF0: 29 20 54 48 45 13 25 4E 20 4E 55 3D 4E 55 2B 28 ) THE.%N NU=NU+(
007D00: 4E 55 3E 30 29 3A 4B 28 5A 29 3D 30 3A 47 4F 53 NU>0):K(Z)=0:GOS
007D10: 55 42 20 37 0D 0A 34 32 20 4E 45 58 54 0D 0A 34 UB 7..42 NEXT..4
007D20: 33 20 4E 45 58 54 3A 47 4F 54 4F 20 32 30 0D 0A 3 NEXT:GOTO 20..
007D30: 34 34 20 43 4C 53 23 32 3A 49 4E 50 55 54 23 32 44 CLS#2:INPUT#2
007D40: 2C 22 57 68 69 63 68 20 70 6C 61 79 65 72 20 28 ,"Which player (
007D50: 31 2D 31 31 29 22 3B 69 3A 43 4C 53 23 32 3A 49 1-11)";i:CLS#2:I
007D60: 46 20 49 3C 31 20 4F 52 20 49 3E 31 31 20 54 48 F I<1 OR I>11 TH
007D70: 45 4E 20 32 30 0D 0A 34 36 20 61 31 3D 30 3A 61 EN 20..46 a1=0:a
007D80: 32 3D 30 3A 46 4F 52 20 7A 3D 31 20 54 4F 20 35 2=0:FOR z=1 TO 5
007D90: 3A 61 31 3D 61 31 2D 28 61 31 3D 30 20 41 4E 44 :a1=a1-(a1=0 AND
007DA0: 20 6F 28 69 29 3D 6B 28 7A 29 29 2A 7A 3A 61 32 o(i)=k(z))*z:a2
007DB0: 3D 61 32 2D 28 61 32 3D 30 20 41 4E 44 20 6B 28 =a2-(a2=0 AND k(
007DC0: 7A 29 3D 30 29 2A 7A 3A 4E 45 58 54 0D 0A 34 37 z)=0)*z:NEXT..47
007DD0: 20 50 52 49 4E 54 23 32 2C 62 24 28 31 38 29 0D PRINT#2,b$(18).
007DE0: 0A 34 38 20 69 6B 24 3D 22 42 57 4F 22 3A 47 4F .48 ik$="BWO":GO
007DF0: 53 55 42 20 36 34 32 BF 9C 30 30 3A 49 46 20 61 SUB 642..00:IF a
007E00: 3D 31 20 41 4E 44 20 41 31 3D 30 20 41 4E 44 20 =1 AND A1=0 AND
007E10: 4E 55 3C 35 20 54 48 45 4E 20 34 39 20 45 4C 53 NU<5 THEN 49 ELS
007E20: 45 20 49 46 20 61 3D 32 20 54 48 45 4E 20 35 30 E IF a=2 THEN 50
007E30: 20 45 4C 53 45 20 49 46 20 61 3D 33 20 54 48 45 ELSE IF a=3 THE
007E40: 4E 20 35 31 20 45 4C 53 45 20 34 38 0D 0A 34 39 N 51 ELSE 48..49
007E50: 20 4B 28 41 32 29 3D 4F 28 49 29 3A 4E 55 3D 4E K(A2)=O(I):NU=N
007E60: 55 2B 31 3A 4B 28 36 29 3D 4B 28 36 29 2B 28 4B U+1:K(6)=K(6)+(K
007E70: 28 36 29 3D 4F 28 49 29 29 2A 4B 28 36 29 3A 47 (6)=O(I))*K(6):G
007E80: 4F 54 4F 20 35 33 0D 0A 35 30 20 4E 55 3D 4E 55 OTO 53..50 NU=NU
007E90: 2B 28 41 31 3E 30 29 3A 47 4F 53 55 42 20 39 31 +(A1>0):GOSUB 91
007EA0: 30 30 3A 4B 28 36 29 3D 4F 28 49 29 3A 52 42 3D 00:K(6)=O(I):RB=
007EB0: 49 3A 49 3D 41 33 3A 47 4F 53 55 42 20 37 3A 49 I:I=A3:GOSUB 7:I
007EC0: 3D 52 42 3A 47 4F 53 55 42 20 37 3A 47 4F 54 4F =RB:GOSUB 7:GOTO
007ED0: 20 32 30 0D 0A 35 31 20 49 46 20 4B 28 36 29 3D 20..51 IF K(6)=
007EE0: 4F 28 49 29 20 54 48 45 4E 20 4B 28 36 29 3D 30 O(I) THEN K(6)=0
007EF0: 3A 47 4F 54 4F 20 35 33 0D FD E8 FF FF FF FF 11 :GOTO 53........
007F00: 56 09 E4 05 08 04 E2 04 6A 09 01 10 08 10 00 07 V.......j.......
007F10: 01 00 2C 43 43 31 41 00 00 00 00 00 00 00 00 00 ..,CC1A.........
007F20: 00 00 00 02 00 16 00 08 7C 9E 00 00 00 00 00 00 ........|.......
007F30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007F40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007F50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007F60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007F70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007F80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007F90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007FA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007FB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007FC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007FD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007FE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007FF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008010: 00 00 00 47 69 FF FF FF FF 11 54 09 E4 05 08 04 ...Gi.....T.....
008020: C0 04 88 09 01 10 08 F4 0A 15 08 00 16 0A 35 32 ..............52
008030: 20 49 46 20 41 31 3E 30 20 54 48 45 4E 20 4B 28 IF A1>0 THEN K(
008040: 41 31 29 3D 30 3A 4E 55 3D 4E 55 2B 28 4E 55 3E A1)=0:NU=NU+(NU>
008050: 30 29 0D 0A 35 33 20 47 4F 53 55 42 20 37 3A 47 0)..53 GOSUB 7:G
008060: 4F 54 4F 20 32 30 0D 0A 35 30 30 20 7A 7A 3D 30 OTO 20..500 zz=0
008070: 3A 47 4F 53 55 42 20 36 35 35 30 30 3A 50 52 49 :GOSUB 65500:PRI
008080: 4E 54 20 6D 65 6E 75 24 3A 66 71 3D 66 28 71 2C NT menu$:fq=f(q,
008090: 31 29 0D 0A 35 30 32 20 69 6B 24 3D 22 31 47 54 1)..502 ik$="1GT
0080A0: 4E 53 50 4A 43 46 49 22 3A 43 41 4C 4C 20 26 42 NSPJCFI":CALL &B
0080B0: 42 30 33 3A 47 4F 53 55 42 20 36 34 32 30 30 3A B03:GOSUB 64200:
0080C0: 61 3D 61 2B 28 61 3D 34 20 41 4E 44 20 62 6C 29 a=a+(a=4 AND bl)
0080D0: 2A 34 2B 28 61 3D 35 20 41 4E 44 20 66 71 3E 33 *4+(a=5 AND fq>3
0080E0: 30 29 2A 35 3A 4F 4E 20 61 2B 31 20 47 4F 54 4F 0)*5:ON a+1 GOTO
0080F0: 20 35 30 32 2C 35 30 30 30 30 2C 31 34 30 30 2C 502,50000,1400,
008100: 34 2C 31 38 30 30 2C 31 34 35 30 2C 32 30 35 30 4,1800,1450,2050
008110: 2C 34 35 30 30 2C 34 35 31 30 2C 31 36 30 30 2C ,4500,4510,1600,
008120: 31 37 30 30 0D 0A 39 39 35 20 52 41 4E B4 CB 44 1700..995 RAN..D
008130: 4F 4D 49 5A 45 20 54 49 4D 45 2B 49 4E 54 28 52 OMIZE TIME+INT(R
008140: 4E 44 2A 39 39 39 39 29 3A 58 24 3D 22 42 43 44 ND*9999):X$="BCD
008150: 46 47 48 4A 4B 4C 4D 4E 50 52 53 54 56 57 22 3A FGHJKLMNPRSTVW":
008160: 5A 24 3D 4C 45 46 54 24 28 43 48 52 24 28 36 35 Z$=LEFT$(CHR$(65
008170: 2B 49 4E 54 28 52 4E 44 2A 32 31 29 29 2B 22 2E +INT(RND*21))+".
008180: 22 2B 4D 49 44 24 28 58 24 2C 31 2B 49 4E 54 28 "+MID$(X$,1+INT(
008190: 52 4E 44 2A 31 37 29 2C 31 29 2B 4D 49 44 24 28 RND*17),1)+MID$(
0081A0: 22 41 45 49 4F 55 22 2C 31 2B 49 4E 54 28 52 4E "AEIOU",1+INT(RN
0081B0: 44 2A 35 29 2C 31 29 2B 4D 49 44 24 28 58 24 2C D*5),1)+MID$(X$,
0081C0: 31 2B 49 4E 54 28 52 4E 44 2A 31 37 29 2C 31 29 1+INT(RND*17),1)
0081D0: 2B 45 24 28 31 2B 49 4E 54 28 52 4E 44 2A 32 36 +E$(1+INT(RND*26
0081E0: 29 29 2B 22 20 20 22 2C 38 29 3A 52 45 54 55 52 ))+" ",8):RETUR
0081F0: 4E 0D 0A 31 30 30 30 20 49 46 20 64 3C 3E 31 36 N..1000 IF d<>16
008200: 20 54 48 45 4E 20 52 45 54 55 52 4E 0D 0A 31 30 THEN RETURN..10
008210: 30 32 20 46 4F 52 20 7A 3D 31 20 54 4F 20 31 31 02 FOR z=1 TO 11
008220: 3A 49 46 20 74 28 7A 2C 31 29 3C 3E 30 20 54 74 :IF t(z,1)<>0 Tt
008230: 50 48 45 4E 20 72 79 3D 74 28 7A 2C 32 29 3A 47 PHEN ry=t(z,2):G
008240: 4F 53 55 42 20 31 30 31 30 0D 0A 31 30 30 36 20 OSUB 1010..1006
008250: 4E 45 58 54 3A 52 45 54 55 52 4E 0D 0A 31 30 31 NEXT:RETURN..101
008260: 30 20 71 28 6F 28 7A 29 2C 31 29 3D 71 28 6F 28 0 q(o(z),1)=q(o(
008270: 7A 29 2C 31 29 2D 28 72 79 3E 35 30 29 2A 30 2E z),1)-(ry>50)*0.
008280: 31 2B 28 72 79 3C 31 30 29 2A 30 2E 31 0D 0A 31 1+(ry<10)*0.1..1
008290: 30 31 34 20 46 4F 52 20 61 3D 31 20 54 4F 20 33 014 FOR a=1 TO 3
0082A0: 3A 71 28 6F 28 7A 29 2C 61 29 3D 71 28 6F 28 7A :q(o(z),a)=q(o(z
0082B0: 29 2C 61 29 2B 28 71 28 6F 28 7A 29 2C 61 29 3E ),a)+(q(o(z),a)>
0082C0: 39 29 3A 49 46 20 71 28 6F 28 7A 29 2C 61 29 3C 9):IF q(o(z),a)<
0082D0: 31 20 54 48 45 4E 20 71 28 6F 28 7A 29 2C 61 29 1 THEN q(o(z),a)
0082E0: 3D 31 0D 0A 31 30 31 35 20 4E 45 58 54 3A 52 45 =1..1015 NEXT:RE
0082F0: 54 55 52 4E 0D 0A 31 31 32 39 20 49 46 20 6E 77 TURN..1129 IF nw
008300: 3C 31 32 20 54 48 45 4E 20 32 31 0D 0A 31 31 33 <12 THEN 21..113
008310: 30 20 43 4C 53 23 32 3A 49 46 20 6E 77 3C 31 35 0 CLS#2:IF nw<15
008320: 20 54 48 45 4E 20 50 52 49 4E 54 23 32 2C 62 24 THEN PRINT#2,b$
008330: 28 88 2C 38 29 3A 47 4F 53 55 42 20 36 35 30 30 (.,8):GOSUB 6500
008340: 30 3A 47 4F 54 4F 20 32 30 0D 0A 31 31 33 32 20 0:GOTO 20..1132
008350: 43 4C 53 23 32 3A 49 4E 50 55 54 20 23 32 2C 22 CLS#2:INPUT #2,"
008360: 57 68 69 63 68 20 70 6C 61 79 65 72 20 22 3B 70 Which player ";p
008370: 6C 3A 49 46 20 70 6C 3C 31 20 4F 52 20 70 6C 3E l:IF pl<1 OR pl>
008380: 6E 77 20 54 48 45 4E 20 31 31 33 32 0D 0A 31 31 nw THEN 1132..11
008390: 34 30 20 43 4C 53 23 32 3A 72 74 3D 31 2B 52 4E 40 CLS#2:rt=1+RN
0083A0: 44 2A 31 34 3A 49 46 20 72 74 3D 73 20 54 48 45 D*14:IF rt=s THE
0083B0: 4E 20 31 31 34 30 0D 0A 31 31 34 32 20 7A 7A 3D N 1140..1142 zz=
0083C0: 71 28 6F 28 70 6C 29 2C 31 29 2B 71 28 6F 28 70 q(o(pl),1)+q(o(p
0083D0: 6C 29 2C 32 29 2B 71 28 6F 28 70 6C 29 2C 33 29 l),2)+q(o(pl),3)
0083E0: 3A 7A 7A 3D 7A 7A 2A 37 35 30 3A 7A 7A 3D 49 4E :zz=zz*750:zz=IN
0083F0: 54 28 5A 5A 2B 28 52 4E 44 2A 31 30 30 30 29 29 T(ZZ+(RND*1000))
008400: 3A 49 46 20 71 28 6F 28 70 6C 29 2C 36 29 3D 31 :IF q(o(pl),6)=1
008410: 20 54 48 45 4E 20 7A 7A 3D 7A 7A 2A 32 0D 0A 31 THEN zz=zz*2..1
008420: 31 34 38 20 43 4C 53 23 32 3A 50 52 49 4E 54 23 148 CLS#2:PRINT#
008430: 32 2C 22 B5 1A 20 62 69 64 20 22 3B 3A 72 31 3D 2,".. bid ";:r1=
008440: 7A 7A 3A 47 4F 53 55 42 20 36 33 36 30 30 3A 50 zz:GOSUB 63600:P
008450: 52 49 4E 54 23 32 2C 22 20 59 2F 4E 22 0D 0A 31 RINT#2," Y/N"..1
008460: 31 35 32 20 47 4F 53 55 42 20 36 34 31 30 30 3A 152 GOSUB 64100:
008470: 43 4C 53 23 32 3A 49 46 20 69 6E 24 3D 22 4E 22 CLS#2:IF in$="N"
008480: 20 54 48 45 4E 20 74 28 70 6C 29 3D 31 3A 47 4F THEN t(pl)=1:GO
008490: 54 4F 20 32 30 0D 0A 31 31 35 34 20 46 4F 52 20 TO 20..1154 FOR
0084A0: 69 3D 31 20 54 4F 20 34 3A 62 28 69 2C 6F 28 70 i=1 TO 4:b(i,o(p
0084B0: 6C 29 29 3D 30 3A 4E 45 58 54 3A 72 3D 31 2B 52 l))=0:NEXT:r=1+R
0084C0: 4E 44 2A 31 30 0D 0A 31 31 35 37 20 70 24 28 72 ND*10..1157 p$(r
0084D0: 74 2C 72 29 3D 71 24 28 6F 28 70 6C 29 29 3A 47 t,r)=q$(o(pl)):G
0084E0: 4F 53 55 42 20 31 31 35 38 3A 47 4F 54 4F 20 31 OSUB 1158:GOTO 1
0084F0: 31 37 36 0D 0A 31 31 35 38 20 49 46 20 6B 28 36 176..1158 IF k(6
008500: 29 3D 6F 28 70 6C 29 20 54 48 45 4E 20 6B 28 36 )=o(pl) THEN k(6
008510: 29 3D 30 3A 6E 75 3D 6E 75 2D 31 0D 0A 31 31 36 )=0:nu=nu-1..116
008520: 30 20 46 4F 52 20 62 3D 31 20 54 4F 20 35 3A 49 0 FOR b=1 TO 5:I
008530: 46 20 6B 28 62 12 84 29 3D 6F 28 70 6C 29 20 54 F k(b..)=o(pl) T
008540: 48 45 4E 20 6B 6B 3D 62 3A 62 3D 39 38 0D 0A 31 HEN kk=b:b=98..1
008550: 31 36 32 20 4E 45 58 54 3A 49 46 20 62 3D 39 39 162 NEXT:IF b=99
008560: 20 54 48 45 4E 20 6B 28 6B 6B 29 3D 30 3A 6E 75 THEN k(kk)=0:nu
008570: 3D 6E 75 2D 31 0D 0A 31 31 36 34 20 46 4F 52 20 =nu-1..1164 FOR
008580: 69 3D 70 6C 20 54 4F 20 6E 77 2D 31 3A 6F 28 69 i=pl TO nw-1:o(i
008590: 29 3D 6F 28 69 2B 31 29 3A 4E 45 58 54 3A 6F 28 )=o(i+1):NEXT:o(
0085A0: 6E 77 29 3D 30 3A 6E 77 3D 6E 77 2D 31 3A 52 45 nw)=0:nw=nw-1:RE
0085B0: 54 55 52 4E 0D 0A 31 31 37 36 20 43 4C 53 23 32 TURN..1176 CLS#2
0085C0: 3A 50 52 49 4E 54 23 32 2C 42 24 28 39 29 3A 50 :PRINT#2,B$(9):P
0085D0: 52 49 4E 54 20 6D 24 28 31 29 3A 7A 32 3D 7A 32 RINT m$(1):z2=z2
0085E0: 2B 49 4E 54 28 7A 7A 2F 33 2A 32 29 3A 47 4F 53 +INT(zz/3*2):GOS
0085F0: 55 42 20 36 35 30 30 30 3A 47 4F 54 4F 20 34 0D UB 65000:GOTO 4.
008600: 0A 31 34 30 30 20 49 46 20 66 71 3C 31 36 20 54 .1400 IF fq<16 T
008610: 48 45 4E 20 7A 24 3D 22 4A 2E 50 2E 20 4C 45 41 HEN z$="J.P. LEA
008620: 47 55 45 22 20 45 4C 53 45 20 7A 24 3D 22 43 2E GUE" ELSE z$="C.
008630: 41 2E 20 4C 45 41 47 71 5B 55 45 22 0D 0A 31 34 A. LEAGq[UE"..14
008640: 30 31 20 49 46 20 66 71 3D 33 32 20 54 48 45 4E 01 IF fq=32 THEN
008650: 20 7A 24 3D 22 43 2E 41 2E 20 43 55 50 20 20 22 z$="C.A. CUP "
008660: 2B 63 24 28 61 70 29 20 45 4C 53 45 20 49 46 20 +c$(ap) ELSE IF
008670: 66 71 3D 33 31 20 54 48 45 4E 20 7A 24 3D 22 4A fq=31 THEN z$="J
008680: 2E 50 2E 20 43 55 50 20 20 22 2B 63 24 28 61 6F .P. CUP "+c$(ao
008690: 29 0D 0A 31 34 30 36 20 61 34 3D 30 3A 43 4C 53 )..1406 a4=0:CLS
0086A0: 3A 4C 4F 43 41 54 45 20 49 4E 54 28 28 34 30 2D :LOCATE INT((40-
0086B0: 4C 45 4E 28 7A 24 29 29 2F 32 29 2C 31 3A 50 52 LEN(z$))/2),1:PR
0086C0: 49 4E 54 20 7A 24 0D 0A 31 34 31 30 20 65 3D 73 INT z$..1410 e=s
0086D0: 3A 7A 7A 3D 31 3A 47 4F 53 55 42 20 31 35 30 30 :zz=1:GOSUB 1500
0086E0: 0D 0A 31 34 31 32 20 7A 24 3D 22 20 22 2B 43 48 ..1412 z$=" "+CH
0086F0: 52 24 28 32 34 29 2B 22 4D 22 2B 43 48 52 24 28 R$(24)+"M"+CHR$(
008700: 32 34 29 2B 22 65 6E 75 22 3A 49 46 20 61 34 3D 24)+"enu":IF a4=
008710: 31 20 41 4E 44 20 66 71 3E 33 30 20 41 4E 44 20 1 AND fq>30 AND
008720: 61 6D 3D 31 20 54 48 45 4E 20 7A 24 3D 7A 24 2B am=1 THEN z$=z$+
008730: 22 20 22 2B 43 48 52 24 28 E0 62 32 34 29 2B 22 " "+CHR$(.b24)+"
008740: 42 22 2B 43 48 52 24 28 32 34 29 2B 22 75 79 20 B"+CHR$(24)+"uy
008750: 22 0D 0A 31 34 31 34 20 43 4C 53 23 32 3A 50 52 "..1414 CLS#2:PR
008760: 49 4E 54 20 23 32 2C 54 41 42 28 49 4E 54 28 28 INT #2,TAB(INT((
008770: 33 32 2D 28 4C 45 4E 28 7A 24 29 2F 32 29 29 2F 32-(LEN(z$)/2))/
008780: 32 29 29 6D 24 28 33 29 3B 7A 24 3B 6D 24 28 31 2))m$(3);z$;m$(1
008790: 29 0D 0A 31 34 31 36 20 69 6B 24 3D 22 4D 42 22 )..1416 ik$="MB"
0087A0: 3A 47 4F 53 55 42 20 36 34 32 30 30 3A 49 46 20 :GOSUB 64200:IF
0087B0: 61 3D 31 20 54 48 45 4E 20 35 30 30 20 45 4C 53 a=1 THEN 500 ELS
0087C0: 45 20 49 46 20 61 3D 32 20 41 4E 44 20 41 34 3D E IF a=2 AND A4=
0087D0: 31 20 41 4E 44 20 4E 57 2B 4E 56 3C 32 30 20 41 1 AND NW+NV<20 A
0087E0: 4E 44 20 66 71 3E 33 30 20 54 48 45 4E 20 31 35 ND fq>30 THEN 15
0087F0: 33 32 20 45 4C 53 45 20 31 34 31 36 0D 0A 31 34 32 ELSE 1416..14
008800: 32 32 20 49 46 20 56 41 4C 28 7A 24 29 3E 7A 32 22 IF VAL(z$)>z2
008810: 20 54 48 45 4E 20 31 34 31 32 20 45 4C 53 45 20 THEN 1412 ELSE
008820: 49 46 20 56 41 4C 28 7A 24 29 3C 7A 7A 2F 32 20 IF VAL(z$)<zz/2
008830: 54 48 45 4E 20 50 52 49 4E 54 20 C0 3C FF FF FF THEN PRINT .<...
008840: FF 11 55 09 E4 05 08 04 E2 04 68 09 01 10 08 11 ..U.......h.....
008850: 00 07 01 00 2C 43 43 31 41 00 00 00 00 00 00 00 ....,CC1A.......
008860: 00 00 00 00 00 03 00 16 00 08 7C 9E 00 00 00 00 ..........|.....
008870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0088A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0088B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0088C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0088D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0088E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0088F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008900: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008910: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008920: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008930: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008940: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008950: 00 00 00 00 00 A0 62 FF FF FF FF 11 54 09 E4 05 ......b.....T...
008960: 57 04 BF 04 87 09 01 10 08 F0 0A 15 08 00 16 23 W..............#
008970: 32 2C 62 24 28 31 30 29 3A 47 4F 53 55 42 20 31 2,b$(10):GOSUB 1
008980: 35 3A 47 4F 54 4F 20 31 34 31 32 0D 0A 31 34 32 5:GOTO 1412..142
008990: 36 20 50 52 49 4E 54 23 32 2C 62 24 28 31 31 29 6 PRINT#2,b$(11)
0089A0: 3A 79 70 3D 79 70 2B 31 3A 79 24 28 79 70 29 3D :yp=yp+1:y$(yp)=
0089B0: 70 24 28 65 2C 6E 28 6D 28 65 2C 6B 6B 29 29 29 p$(e,n(m(e,kk)))
0089C0: 3A 72 7A 3D 6E 28 6D 28 65 2C 6B 6B 29 29 3A 46 :rz=n(m(e,kk)):F
0089D0: 4F 52 20 7A 3D 31 20 54 4F 20 33 3A 20 4F 4E 20 OR z=1 TO 3: ON
0089E0: 7A 20 47 4F 53 55 42 20 39 30 30 33 2C 39 30 30 z GOSUB 9003,900
0089F0: 34 2C 39 30 30 35 3A 79 28 79 70 2C 7A 29 3D 6D 4,9005:y(yp,z)=m
008A00: 3A 4E 45 58 54 3A 46 4F 52 20 7A 3D 34 20 54 4F :NEXT:FOR z=4 TO
008A10: 20 36 3A 20 4F 4E 20 7A 2D 33 20 47 4F 53 55 42 6: ON z-3 GOSUB
008A20: 20 39 30 30 30 2C 39 30 30 31 2C 39 30 30 32 3A 9000,9001,9002:
008A30: 79 28 79 70 2C 7A 29 3D 6D 3A 4E 45 58 54 3A 7A y(yp,z)=m:NEXT:z
008A40: 32 3D 7A 32 2D 56 41 4C 28 7A 24 29 3A 47 4F 53 2=z2-VAL(z$):GOS
008A50: 55 42 20 39 39 35 0D 0A 31 34 32 38 20 70 24 28 UB 995..1428 p$(
008A60: 65 2C 6E 28 6D 28 65 2C 6B 6B 29 29 29 3D 7A 3F e,n(m(e,kk)))=z?
008A70: 80 24 3A 6D 28 65 2C 6B 6B 29 3D 30 3A 47 4F 53 .$:m(e,kk)=0:GOS
008A80: 55 42 20 31 35 3A 47 4F 54 4F 20 31 34 31 30 0D UB 15:GOTO 1410.
008A90: 0A 31 34 35 30 20 61 34 3D 30 3A 43 4C 53 3A 46 .1450 a4=0:CLS:F
008AA0: 4F 52 20 69 3D 31 20 54 4F 20 31 36 3A 4C 4F 43 OR i=1 TO 16:LOC
008AB0: 41 54 45 20 31 33 2C 69 2B 33 3A 50 52 49 4E 54 ATE 13,i+3:PRINT
008AC0: 20 6D 24 28 31 2D 28 69 3D 31 36 29 29 3B 55 53 m$(1-(i=16));US
008AD0: 49 4E 47 22 23 23 20 5C 20 20 20 20 20 20 20 20 ING"## \
008AE0: 5C 22 3B 69 2C 54 24 28 49 29 3B 3A 50 52 49 4E \";i,T$(I);:PRIN
008AF0: 54 20 6D 24 28 31 29 3B 3A 4E 45 58 54 3A 43 4C T m$(1);:NEXT:CL
008B00: 53 23 32 3A 50 52 49 4E 54 23 32 2C 54 41 42 28 S#2:PRINT#2,TAB(
008B10: 31 32 29 42 24 28 31 32 29 0D 0A 31 34 35 34 20 12)B$(12)..1454
008B20: 69 6B 24 3D 22 4D 53 22 3A 47 4F 53 55 42 20 36 ik$="MS":GOSUB 6
008B30: 34 32 30 30 3A 61 3D 61 2B 32 2A 28 7A 32 3C 35 4200:a=a+2*(z2<5
008B40: 30 31 20 41 4E 44 20 61 3D 32 29 3A 4F 4E 20 61 01 AND a=2):ON a
008B50: 2B 31 20 47 4F 54 4F 20 31 34 35 34 2C 35 30 30 +1 GOTO 1454,500
008B60: 2C 31 34 35 36 0D 0A 31 34 35 36 20 50 52 49 4E ,1456..1456 PRIN
008B70: 54 76 74 23 32 2C 42 24 28 31 33 29 3B 3A 72 31 Tvt#2,B$(13);:r1
008B80: 3D 35 30 30 3A 47 4F 53 55 42 20 36 33 36 30 30 =500:GOSUB 63600
008B90: 3A 47 4F 53 55 42 20 36 35 30 30 30 3A 7A 32 3D :GOSUB 65000:z2=
008BA0: 49 4E 54 28 7A 32 2D 35 30 30 29 0D 0A 31 34 36 INT(z2-500)..146
008BB0: 30 20 50 52 49 4E 54 23 32 2C 62 24 28 31 34 29 0 PRINT#2,b$(14)
008BC0: 3B 3A 49 4E 50 55 54 23 32 2C 65 3A 49 46 20 65 ;:INPUT#2,e:IF e
008BD0: 3C 31 20 4F 52 20 65 3E 31 35 20 54 48 45 4E 20 <1 OR e>15 THEN
008BE0: 31 34 36 30 20 45 4C 53 45 20 43 4C 53 0D 0A 31 1460 ELSE CLS..1
008BF0: 35 30 30 20 4C 4F 43 41 54 45 20 31 36 2C 33 3A 500 LOCATE 16,3:
008C00: 50 52 49 4E 54 20 6D 24 28 33 29 3B 74 24 28 65 PRINT m$(3);t$(e
008C10: 29 3A 50 52 49 4E 54 20 62 24 28 31 35 29 3A 46 ):PRINT b$(15):F
008C20: 4F 52 20 69 3D 31 20 54 4F 20 31 31 3A 7A 24 3D OR i=1 TO 11:z$=
008C30: 22 20 22 3A 4C 4F 43 41 54 45 20 31 2C 69 2B 37 " ":LOCATE 1,i+7
008C40: 3A 49 46 20 65 3C 3E 73 20 54 48 45 4E 20 31 35 :IF e<>s THEN 15
008C50: 31 36 0D 0A 31 35 31 33 20 49 46 20 6E 28 69 29 16..1513 IF n(i)
008C60: 3D 72 28 36 29 20 54 48 45 4E 20 7A 24 3D 43 48 =r(6) THEN z$=CH
008C70: 52 24 28 C1 39 32 35 34 29 0D 0A 31 35 31 34 20 R$(.9254)..1514
008C80: 46 4F 52 20 7A 3D 31 20 54 4F 20 35 3A 49 46 20 FOR z=1 TO 5:IF
008C90: 72 28 7A 29 3D 6E 28 69 29 20 54 48 45 4E 20 7A r(z)=n(i) THEN z
008CA0: 24 3D 43 48 52 24 28 32 35 35 29 3A 7A 3D 36 0D $=CHR$(255):z=6.
008CB0: 0A 31 35 31 35 20 4E 45 58 54 20 20 20 20 20 0D .1515 NEXT .
008CC0: 0A 31 35 31 36 20 72 7A 3D 6E 28 69 29 3A 47 4F .1516 rz=n(i):GO
008CD0: 53 55 42 20 39 30 30 33 3A 50 52 49 4E 54 20 55 SUB 9003:PRINT U
008CE0: 53 49 4E 47 20 22 23 23 20 21 20 5C 20 20 20 20 SING "## ! \
008CF0: 20 20 5C 20 20 20 23 22 3B 69 2C 7A 24 2C 70 24 \ #";i,z$,p$
008D00: 28 65 2C 6E 28 69 29 29 3B 6D 3B 3A 47 4F 53 55 (e,n(i));m;:GOSU
008D10: 42 20 39 30 30 35 3A 50 52 49 4E 54 20 54 41 42 B 9005:PRINT TAB
008D20: 28 31 39 29 55 53 49 4E 47 20 22 23 22 3B 6D 3B (19)USING "#";m;
008D30: 3A 47 4F 53 55 42 20 39 30 30 34 3A 50 52 49 4E :GOSUB 9004:PRIN
008D40: 54 20 54 41 42 28 32 31 29 55 53 49 4E 47 22 23 T TAB(21)USING"#
008D50: 22 3B 6D 3B 0D 0A 31 35 31 37 20 47 4F 53 55 42 ";m;..1517 GOSUB
008D60: 20 39 30 30 30 3A 50 52 49 4E 54 20 54 41 42 28 9000:PRINT TAB(
008D70: 32 34 29 61 24 02 91 28 31 2C 6D 29 3B 3A 47 4F 24)a$..(1,m);:GO
008D80: 53 55 42 20 39 30 30 31 3A 50 52 49 4E 54 20 22 SUB 9001:PRINT "
008D90: 20 22 61 24 28 31 2C 6D 29 3B 3A 47 4F 53 55 42 "a$(1,m);:GOSUB
008DA0: 20 39 30 30 32 3A 50 52 49 4E 54 20 22 20 22 4C 9002:PRINT " "L
008DB0: 45 46 54 24 28 61 24 28 32 2C 6D 29 2C 34 29 0D EFT$(a$(2,m),4).
008DC0: 0A 31 35 32 30 20 46 4F 52 20 6B 3D 31 20 54 4F .1520 FOR k=1 TO
008DD0: 20 33 3A 49 46 20 6D 28 65 2C 6B 29 3D 69 20 54 3:IF m(e,k)=i T
008DE0: 48 45 4E 20 4C 4F 43 41 54 45 20 31 38 2C 69 2B HEN LOCATE 18,i+
008DF0: 37 3A 50 52 49 4E 54 20 6D 24 28 35 29 22 3C 22 7:PRINT m$(5)"<"
008E00: 6D 24 28 31 29 3B 3A 6B 3D 34 3A 61 34 3D 61 34 m$(1);:k=4:a4=a4
008E10: 2D 28 61 34 3D 30 29 0D 0A 31 35 32 31 20 4E 45 -(a4=0)..1521 NE
008E20: 58 54 3A 4E 45 58 54 3A 4C 4F 43 41 54 45 20 32 XT:NEXT:LOCATE 2
008E30: 32 2C 32 30 3A 47 4F 53 55 42 20 39 30 37 30 3A 2,20:GOSUB 9070:
008E40: 49 46 20 5A 5A 3D 31 20 54 48 45 4E 20 52 45 54 IF ZZ=1 THEN RET
008E50: 55 52 4E 0D 0A 31 35 32 33 20 6A 3D 34 3A 5A 24 URN..1523 j=4:Z$
008E60: 3D 22 20 22 2B 43 48 52 24 28 32 34 29 2B 22 4D =" "+CHR$(24)+"M
008E70: 22 2B 43 48 52 24 28 A0 D4 32 34 29 2B 22 65 6E "+CHR$(..24)+"en
008E80: 75 22 3A 49 46 20 41 34 3D 31 20 54 48 45 4E 20 u":IF A4=1 THEN
008E90: 6A 3D 6A 2B 34 3A 5A 24 3D 5A 24 2B 22 20 22 2B j=j+4:Z$=Z$+" "+
008EA0: 43 48 52 24 28 32 34 29 2B 22 42 22 2B 43 48 52 CHR$(24)+"B"+CHR
008EB0: 24 28 32 34 29 2B 22 75 79 20 22 0D 0A 31 35 32 $(24)+"uy "..152
008EC0: 34 20 43 4C 53 23 32 3A 50 52 49 4E 54 23 32 2C 4 CLS#2:PRINT#2,
008ED0: 54 41 42 28 28 33 32 2D 4C 45 4E 28 5A 24 29 29 TAB((32-LEN(Z$))
008EE0: 2F 32 29 6D 24 28 33 29 20 3B 5A 24 3B 6D 24 28 /2)m$(3) ;Z$;m$(
008EF0: 31 29 0D 0A 31 35 32 36 20 69 6B 24 3D 22 4D 42 1)..1526 ik$="MB
008F00: 22 3A 47 4F 53 55 42 20 36 34 32 30 30 3A 4F 4E ":GOSUB 64200:ON
008F10: 20 61 2B 31 20 47 4F 54 4F 20 31 35 32 36 2C 31 a+1 GOTO 1526,1
008F20: 34 35 30 2C 31 35 33 30 0D 0A 31 35 33 30 20 49 450,1530..1530 I
008F30: 46 20 41 34 3D 31 20 41 4E 44 20 4E 57 2B 4E 56 F A4=1 AND NW+NV
008F40: 3C 32 30 20 54 48 45 4E 20 31 35 33 32 20 45 4C <20 THEN 1532 EL
008F50: 53 45 20 31 35 32 36 0D 0A 31 35 33 32 20 4C 4F SE 1526..1532 LO
008F60: 43 41 54 45 20 32 32 2C 32 30 3A 47 4F 53 55 42 CATE 22,20:GOSUB
008F70: 20 39 30 37 30 3A 43 4C 53 AF B0 23 32 3A 49 4E 9070:CLS..#2:IN
008F80: 50 55 54 23 32 2C 22 57 68 69 63 68 20 70 6C 61 PUT#2,"Which pla
008F90: 79 65 72 20 22 3B 7A 3A 49 46 20 5A 3C 31 20 4F yer ";z:IF Z<1 O
008FA0: 52 20 5A 3E 31 31 20 54 48 45 4E 20 31 35 32 33 R Z>11 THEN 1523
008FB0: 0D 0A 31 35 33 33 20 43 4C 53 23 32 3A 46 4F 52 ..1533 CLS#2:FOR
008FC0: 20 4B 3D 31 20 54 4F 20 33 3A 49 46 20 5A 3D 4D K=1 TO 3:IF Z=M
008FD0: 28 65 2C 4B 29 20 54 48 45 4E 20 4B 4B 3D 4B 3A (e,K) THEN KK=K:
008FE0: 4B 3D 39 38 0D 0A 31 35 33 38 20 4E 45 58 54 3A K=98..1538 NEXT:
008FF0: 49 46 20 4B 3C 3E 39 39 20 54 48 45 4E 20 49 46 IF K<>99 THEN IF
009000: 20 7A 7A 3D 31 20 54 48 45 4E 20 31 34 31 32 20 zz=1 THEN 1412
009010: 45 4C 53 45 20 31 35 32 33 0D 0A 31 35 33 39 20 ELSE 1523..1539
009020: 7A 7A 3D 30 3A 6A 3D 31 2B 52 4E 44 2A 31 30 30 zz=0:j=1+RND*100
009030: 30 3A 72 7A 3D 6E 28 6D 28 65 2C 6B 6B 29 29 3A 0:rz=n(m(e,kk)):
009040: 47 4F 53 55 42 20 39 30 30 33 3A 7A 7A 3D 7A 7A GOSUB 9003:zz=zz
009050: 2B 6D 3A 47 4F 53 55 42 20 39 30 30 34 3A 7A 7A +m:GOSUB 9004:zz
009060: 3D 7A 7A 2B 6D 3A 47 4F 53 55 42 20 39 30 30 35 =zz+m:GOSUB 9005
009070: 3A 7A 7A 3D 7A 7A 2B 6D 3A 7A 7A 1A 04 3D 28 7A :zz=zz+m:zz..=(z
009080: 7A 2A 37 35 30 29 2B 6A 3A 47 4F 53 55 42 20 39 z*750)+j:GOSUB 9
009090: 30 30 32 3A 49 46 20 6D 3D 31 20 54 48 45 4E 20 002:IF m=1 THEN
0090A0: 7A 7A 3D 7A 7A 2A 32 0D 0A 31 35 34 30 20 50 52 zz=zz*2..1540 PR
0090B0: 49 4E 54 20 23 32 2C 42 24 28 31 36 29 3A 5A 24 INT #2,B$(16):Z$
0090C0: 3D 53 54 52 24 28 7A 32 29 3A 49 4E 50 55 54 20 =STR$(z2):INPUT
0090D0: 23 32 2C 7A 31 3A 43 4C 53 23 32 3A 49 46 20 5A #2,z1:CLS#2:IF Z
0090E0: 5A 3D 31 20 54 48 45 4E 20 31 34 32 32 20 45 4C Z=1 THEN 1422 EL
0090F0: 53 45 20 49 46 20 7A 31 3E 7A 32 20 54 48 45 4E SE IF z1>z2 THEN
009100: 20 31 35 32 33 20 45 4C 53 45 20 49 46 20 7A 31 1523 ELSE IF z1
009110: 3C 7A 7A 20 54 48 45 4E 20 43 4C 53 23 32 3A 50 <zz THEN CLS#2:P
009120: 52 49 4E 54 23 32 2C 42 24 28 31 30 29 3A 47 4F RINT#2,B$(10):GO
009130: 53 55 42 20 31 35 3A 47 4F 54 4F 20 31 35 32 33 SUB 15:GOTO 1523
009140: 0D 0A 31 35 34 38 20 47 4F 53 55 42 20 31 35 36 ..1548 GOSUB 156
009150: 30 3A 43 4C 53 23 32 3A 50 52 49 4E 54 20 23 32 0:CLS#2:PRINT #2
009160: 2C 62 24 28 31 31 29 3A 6E 77 3D 6E 77 2B 31 3A ,b$(11):nw=nw+1:
009170: 6F 28 6E 77 29 3D 6A 3A 71 24 28 6F 28 87 11 FF o(nw)=j:q$(o(...
009180: FF FF FF 11 54 09 E4 05 08 04 E2 04 6B 09 01 10 ....T.......k...
009190: 08 10 00 07 01 00 2C 43 43 31 41 00 00 00 00 00 ......,CC1A.....
0091A0: 00 00 00 00 00 00 00 04 00 16 00 08 7C 9E 00 00 ............|...
0091B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0091C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0091D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0091E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0091F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009200: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009210: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009230: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009240: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009250: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009290: 00 00 00 00 00 00 00 35 11 FF FF FF FF 11 54 09 .......5......T.
0092A0: E4 05 57 04 C0 04 86 09 01 10 08 F7 0A 15 08 00 ..W.............
0092B0: 16 6E 77 29 29 3D 70 24 28 65 2C 6E 28 6D 28 65 .nw))=p$(e,n(m(e
0092C0: 2C 6B 6B 29 29 29 3A 72 7A 3D 6E 28 6D 28 65 2C ,kk))):rz=n(m(e,
0092D0: 6B 6B 29 29 3A 46 4F 52 20 7A 3D 31 20 54 4F 20 kk)):FOR z=1 TO
0092E0: 33 0D 0A 31 35 34 39 20 4F 4E 20 7A 20 47 4F 53 3..1549 ON z GOS
0092F0: 55 42 20 39 30 30 33 2C 39 30 30 34 2C 39 30 30 UB 9003,9004,900
009300: 35 3A 71 28 6F 28 6E 77 29 2C 7A 29 3D 6D 3A 4E 5:q(o(nw),z)=m:N
009310: 45 58 54 3A 46 4F 52 20 7A 3D 34 20 54 4F 20 36 EXT:FOR z=4 TO 6
009320: 3A 4F 4E 20 7A 2D 33 20 47 4F 53 55 42 20 39 30 :ON z-3 GOSUB 90
009330: 30 30 2C 39 30 30 31 2C 39 30 30 32 3A 71 28 6F 00,9001,9002:q(o
009340: 28 6E 77 29 2C 7A 29 3D 6D 3A 4E 45 58 54 3A 7A (nw),z)=m:NEXT:z
009350: 32 3D 7A 32 2D 7A 31 3A 47 4F 53 55 42 20 39 39 2=z2-z1:GOSUB 99
009360: 35 0D 0A 31 35 35 30 20 70 24 28 65 2C 6E 28 6D 5..1550 p$(e,n(m
009370: 28 65 2C 6B 6B 29 29 29 3D 7A 24 3A 6D 28 65 2C (e,kk)))=z$:m(e,
009380: 6B 6B 29 3D 30 3A 47 4F 53 55 42 20 31 35 3A 47 kk)=0:GOSUB 15:G
009390: 4F 54 4F 20 31 35 30 30 0D 0A 31 35 36 30 20 6A OTO 1500..1560 j
0093A0: 3D 31 0D 0A 31 35 36 32 20 46 4F 52 20 69 3D 31 =1..1562 FOR i=1
0093B0: 20 4B CA 54 4F 20 6E 77 3A 49 46 20 6F 28 69 29 K.TO nw:IF o(i)
0093C0: 3D 6A 20 54 48 45 4E 20 6A 3D 6A 2B 31 3A 69 3D =j THEN j=j+1:i=
0093D0: 39 38 0D 0A 31 35 36 34 20 4E 45 58 54 3A 49 46 98..1564 NEXT:IF
0093E0: 20 69 3D 39 39 20 54 48 45 4E 20 31 35 36 32 0D i=99 THEN 1562.
0093F0: 0A 31 35 36 36 20 49 46 20 6A 3E 6E 77 2B 31 20 .1566 IF j>nw+1
009400: 54 48 45 4E 20 6A 3D 6E 77 2B 31 0D 0A 31 35 36 THEN j=nw+1..156
009410: 38 20 52 45 54 55 52 4E 0D 0A 31 36 30 30 20 42 8 RETURN..1600 B
009420: 4F 52 44 45 52 20 30 3A 50 41 50 45 52 20 31 3A ORDER 0:PAPER 1:
009430: 43 4C 53 3A 46 4F 52 20 5A 3D 31 20 54 4F 20 32 CLS:FOR Z=1 TO 2
009440: 30 3A 46 4F 52 20 59 3D 31 20 54 4F 20 32 3A 5A 0:FOR Y=1 TO 2:Z
009450: 24 3D 22 20 20 20 20 22 3A 6A 3D 5A 2D 28 59 3D $=" ":j=Z-(Y=
009460: 32 29 2A 32 30 3A 49 46 20 66 28 6A 2C 31 29 3D 2)*20:IF f(j,1)=
009470: 33 31 20 54 48 45 4E 20 58 24 3D 22 4A 2E 50 2E 31 THEN X$="J.P.
009480: 20 43 55 50 22 3A 47 4F 54 4F 20 31 36 31 30 0D CUP":GOTO 1610.
009490: 0A 31 36 30 34 20 49 46 20 66 28 6A 2C 31 29 3D .1604 IF f(j,1)=
0094A0: 33 32 20 54 48 45 4E 20 58 24 3D 22 43 2E 41 2E 32 THEN X$="C.A.
0094B0: 20 43 55 4B 5E 50 22 3A 47 4F 54 4F 20 31 36 31 CUK^P":GOTO 161
0094C0: 30 0D 0A 31 36 30 36 20 5A 24 3D 22 43 41 22 3A 0..1606 Z$="CA":
0094D0: 4C 47 3D 31 2D 28 66 28 6A 2C 31 29 3E 31 35 29 LG=1-(f(j,1)>15)
0094E0: 3A 47 4E 3D 66 28 6A 2C 31 29 2B 28 4C 47 3D 32 :GN=f(j,1)+(LG=2
0094F0: 29 2A 31 35 3A 58 24 3D 54 24 28 47 4E 29 3A 49 )*15:X$=T$(GN):I
009500: 46 20 4C 47 3D 31 20 54 48 45 4E 20 5A 24 3D 22 F LG=1 THEN Z$="
009510: 4A 50 22 0D 0A 31 36 30 38 20 49 46 20 41 4D 3D JP"..1608 IF AM=
009520: 31 20 41 4E 44 20 47 4E 3D 31 20 54 48 45 4E 20 1 AND GN=1 THEN
009530: 58 24 3D 46 24 0D 0A 31 36 31 30 20 4C 4F 43 41 X$=F$..1610 LOCA
009540: 54 45 20 32 2D 28 59 3D 32 29 2A 32 30 2C 7A 2B TE 2-(Y=2)*20,z+
009550: 32 3A 49 46 20 66 28 6A 2C 32 29 3D 31 20 54 48 2:IF f(j,2)=1 TH
009560: 45 4E 20 79 24 3D 22 57 22 20 45 4C 53 45 20 49 EN y$="W" ELSE I
009570: 46 20 66 28 6A 2C 32 29 3D 32 20 54 48 45 4E 20 F f(j,2)=2 THEN
009580: 79 24 3D 22 4C 22 20 45 4C 53 45 20 79 24 3D 22 y$="L" ELSE y$="
009590: 2D 22 0D 0A 31 36 31 31 20 50 52 49 4E 54 20 4D -"..1611 PRINT M
0095A0: 24 28 32 29 3B 55 53 49 4E 47 22 5C 20 20 20 20 $(2);USING"\
0095B0: 20 20 20 5C 20 77 99 20 5C 20 5C 20 21 22 3B 58 \ w. \ \ !";X
0095C0: 24 2C 5A 24 3B 79 24 0D 0A 31 36 31 35 20 4E 45 $,Z$;y$..1615 NE
0095D0: 58 54 20 59 2C 5A 3A 50 52 49 4E 54 23 32 2C 6D XT Y,Z:PRINT#2,m
0095E0: 24 28 32 29 3B 62 24 28 32 37 29 3A 78 39 3D 33 $(2);b$(27):x9=3
0095F0: 38 3A 47 4F 54 4F 20 39 30 35 35 0D 0A 31 37 30 8:GOTO 9055..170
009600: 30 20 43 4C 53 3A 50 52 49 4E 54 20 54 41 42 28 0 CLS:PRINT TAB(
009610: 31 37 29 6D 24 28 33 29 22 49 6E 6A 75 72 69 65 17)m$(3)"Injurie
009620: 73 22 6D 24 28 31 29 3A 46 4F 52 20 5A 3D 31 20 s"m$(1):FOR Z=1
009630: 54 4F 20 35 3A 49 46 20 49 28 5A 2C 34 29 3D 30 TO 5:IF I(Z,4)=0
009640: 20 54 48 45 4E 20 31 37 32 35 0D 0A 31 37 30 38 THEN 1725..1708
009650: 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 54 41 42 PRINT:PRINT TAB
009660: 28 37 29 49 24 28 5A 29 3B 3A 49 46 20 49 28 5A (7)I$(Z);:IF I(Z
009670: 2C 34 29 3D 31 33 20 54 48 45 4E 20 50 52 49 4E ,4)=13 THEN PRIN
009680: 54 20 22 20 49 6E 74 65 72 6E 61 74 69 6F 6E 61 T " Internationa
009690: 6C 20 64 75 74 79 22 20 45 4C 53 45 20 49 46 20 l duty" ELSE IF
0096A0: 49 28 5A 2C 34 29 3E 31 20 54 48 45 4E 20 50 52 I(Z,4)>1 THEN PR
0096B0: 49 4E 54 20 22 20 49 DE 3B 6E 6A 75 72 65 64 20 INT " I.;njured
0096C0: 66 6F 72 22 3B 49 28 5A 2C 34 29 3B 22 67 61 6D for";I(Z,4);"gam
0096D0: 65 73 22 20 45 4C 53 45 20 50 52 49 4E 54 20 22 es" ELSE PRINT "
0096E0: 20 49 6E 6A 75 72 65 64 20 66 6F 72 20 31 20 67 Injured for 1 g
0096F0: 61 6D 65 22 0D 0A 31 37 32 35 20 4E 45 58 54 3A ame"..1725 NEXT:
009700: 47 4F 54 4F 20 39 30 35 30 0D 0A 31 38 30 30 20 GOTO 9050..1800
009710: 50 52 49 4E 54 20 42 24 28 32 30 29 3A 46 4F 52 PRINT B$(20):FOR
009720: 20 69 3D 31 20 54 4F 20 6E 77 3A 4C 4F 43 41 54 i=1 TO nw:LOCAT
009730: 45 20 33 33 2C 69 2B 31 3A 50 52 49 4E 54 20 55 E 33,i+1:PRINT U
009740: 53 49 4E 47 22 23 23 3A 22 3B 69 3A 4E 45 58 54 SING"##:";i:NEXT
009750: 3A 50 52 49 4E 54 23 32 2C 42 24 28 32 31 29 0D :PRINT#2,B$(21).
009760: 0A 31 38 32 38 20 69 6B 24 3D 22 4D 54 22 3A 47 .1828 ik$="MT":G
009770: 4F 53 55 42 20 36 34 32 30 30 3A 49 46 20 61 3D OSUB 64200:IF a=
009780: 31 20 54 48 45 4E 20 35 30 30 20 45 4C 53 45 20 1 THEN 500 ELSE
009790: 49 46 20 61 3C 3E 32 20 4F 52 20 42 4C 3D 31 20 IF a<>2 OR BL=1
0097A0: 54 48 45 4E 20 31 38 32 38 0D 0A 31 38 33 32 20 THEN 1828..1832
0097B0: 50 52 49 4E 54 23 32 2C 42 4D C6 24 28 32 32 29 PRINT#2,BM.$(22)
0097C0: 3A 49 4E 50 55 54 23 32 2C 3B 7A 31 3A 43 4C 53 :INPUT#2,;z1:CLS
0097D0: 23 32 3A 49 46 20 7A 31 3C 31 20 4F 52 20 7A 31 #2:IF z1<1 OR z1
0097E0: 3E 33 20 54 48 45 4E 20 31 38 33 32 0D 0A 31 38 >3 THEN 1832..18
0097F0: 33 36 20 46 4F 52 20 7A 3D 31 20 54 4F 20 6E 77 36 FOR z=1 TO nw
009800: 3A 72 78 3D 33 32 3A 49 46 20 7A 31 3D 31 20 54 :rx=32:IF z1=1 T
009810: 48 45 4E 20 72 79 3D 49 4E 54 28 52 4E 44 2A 34 HEN ry=INT(RND*4
009820: 29 3A 72 78 3D 72 78 2D 28 72 79 3D 33 29 2A 31 ):rx=rx-(ry=3)*1
009830: 31 2D 28 72 79 3D 30 29 2A 31 33 3A 47 4F 53 55 1-(ry=0)*13:GOSU
009840: 42 20 31 38 0D 0A 31 38 33 38 20 49 46 20 7A 31 B 18..1838 IF z1
009850: 3D 32 20 54 48 45 4E 20 72 79 3D 49 4E 54 28 52 =2 THEN ry=INT(R
009860: 4E 44 2A 36 31 29 3A 72 78 3D 72 78 2D 28 72 79 ND*61):rx=rx-(ry
009870: 3E 35 30 29 2A 31 31 2D 28 72 79 3C 31 30 29 2A >50)*11-(ry<10)*
009880: 31 33 3A 47 4F 53 55 42 20 31 30 31 30 0D 0A 31 13:GOSUB 1010..1
009890: 38 34 30 20 49 46 20 7A 31 3D 33 20 54 48 45 4E 840 IF z1=3 THEN
0098A0: 20 6A 3D 49 4E 54 28 52 4E 44 2A 32 29 3A 72 78 j=INT(RND*2):rx
0098B0: 3D 72 78 2D 28 6A 3D 31 29 2A 31 0F 9C 31 2D 28 =rx-(j=1)*1..1-(
0098C0: 6A 3D 30 29 2A 31 33 3A 61 7A 3D 2D 28 6A 3D 31 j=0)*13:az=-(j=1
0098D0: 29 3A 62 61 3D 2D 28 61 7A 3D 30 29 3A 47 4F 53 ):ba=-(az=0):GOS
0098E0: 55 42 20 32 39 0D 0A 31 38 34 32 20 4C 4F 43 41 UB 29..1842 LOCA
0098F0: 54 45 20 33 36 2C 7A 2B 31 3A 50 52 49 4E 54 20 TE 36,z+1:PRINT
009900: 6D 24 28 34 2B 28 72 78 3D 34 33 29 29 3B 43 48 m$(4+(rx=43));CH
009910: 52 24 28 72 78 29 3B 6D 24 28 31 29 3B 3A 4E 45 R$(rx);m$(1);:NE
009920: 58 54 3A 62 6C 3D 31 3A 47 4F 54 4F 20 39 30 35 XT:bl=1:GOTO 905
009930: 30 0D 0A 31 39 30 30 20 43 4C 53 3A 49 46 20 79 0..1900 CLS:IF y
009940: 70 3D 30 20 54 48 45 4E 20 31 39 31 30 20 45 4C p=0 THEN 1910 EL
009950: 53 45 20 46 4F 52 20 7A 3D 31 20 54 4F 20 79 70 SE FOR z=1 TO yp
009960: 3A 4C 4F 43 41 54 45 20 31 36 2C 7A 2A 32 2B 36 :LOCATE 16,z*2+6
009970: 3A 50 52 49 4E 54 20 55 53 49 4E 47 22 23 23 20 :PRINT USING"##
009980: 5C 20 20 20 20 20 20 5C 22 3B 7A 2C 79 24 28 7A \ \";z,y$(z
009990: 29 3A 4E 45 58 54 3A 50 52 49 4E 54 20 62 24 28 ):NEXT:PRINT b$(
0099A0: 31 39 29 3B 3A 72 31 3D 31 30 30 30 3A 47 4F 53 19);:r1=1000:GOS
0099B0: 55 42 20 36 33 35 30 30 0D 0A 31 39 31 11 E1 30 UB 63500..191..0
0099C0: 20 6A 3D 34 3A 5A 24 3D 22 4D 22 2B 43 48 52 24 j=4:Z$="M"+CHR$
0099D0: 28 32 34 29 2B 22 65 6E 75 20 20 22 3A 49 46 20 (24)+"enu ":IF
0099E0: 59 50 3E 30 20 54 48 45 4E 20 6A 3D 6A 2B 34 3A YP>0 THEN j=j+4:
0099F0: 5A 24 3D 5A 24 2B 43 48 52 24 28 32 34 29 2B 22 Z$=Z$+CHR$(24)+"
009A00: 53 22 2B 43 48 52 24 28 32 34 29 2B 22 65 6C 6C S"+CHR$(24)+"ell
009A10: 22 0D 0A 31 39 31 32 20 43 4C 53 23 32 3A 50 52 "..1912 CLS#2:PR
009A20: 49 4E 54 23 32 2C 54 41 42 28 49 4E 54 28 28 33 INT#2,TAB(INT((3
009A30: 32 2D 4C 45 4E 28 5A 24 29 29 2F 32 29 29 5A 24 2-LEN(Z$))/2))Z$
009A40: 0D 0A 31 39 31 35 20 69 6B 24 3D 22 4D 53 22 3A ..1915 ik$="MS":
009A50: 47 4F 53 55 42 20 36 34 32 30 30 3A 49 46 20 61 GOSUB 64200:IF a
009A60: 3D 31 20 54 48 45 4E 20 35 30 30 20 45 4C 53 45 =1 THEN 500 ELSE
009A70: 20 49 46 20 59 50 3C 31 20 4F 52 20 61 3C 3E 32 IF YP<1 OR a<>2
009A80: 20 54 48 45 4E 20 31 39 31 35 0D 0A 31 39 32 35 THEN 1915..1925
009A90: 20 43 4C 53 23 32 3A 49 4E 50 55 54 23 32 2C 22 CLS#2:INPUT#2,"
009AA0: 57 68 69 63 68 20 70 6C 61 79 65 72 3F 22 3B 6A Which player?";j
009AB0: 3A 49 46 20 6A 3C 31 20 4F 52 20 6A 3E 35 20 68 :IF j<1 OR j>5 h
009AC0: C7 FF FF FF FF 11 54 09 E4 05 57 04 E2 04 6C 09 ......T...W...l.
009AD0: 01 10 08 11 00 07 01 00 2C 43 43 31 41 00 00 00 ........,CC1A...
009AE0: 00 00 00 00 00 00 00 00 00 05 00 16 00 08 7C 9E ..............|.
009AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009B00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009B10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009B20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009B30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009B40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009B50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009BD0: 00 00 00 00 00 00 00 00 00 D2 1A FF FF FF FF 11 ................
009BE0: 54 09 E4 05 57 04 BF 04 88 09 01 10 08 FD 0A 15 T...W...........
009BF0: 08 00 16 54 48 45 4E 20 31 39 31 30 0D 0A 31 39 ...THEN 1910..19
009C00: 33 35 20 7A 32 3D 7A 32 2B 31 30 30 30 3A 79 70 35 z2=z2+1000:yp
009C10: 3D 79 70 2D 31 3A 46 4F 52 20 7A 3D 56 41 4C 28 =yp-1:FOR z=VAL(
009C20: 7A 24 29 20 54 4F 20 79 70 3A 79 24 28 7A 29 3D z$) TO yp:y$(z)=
009C30: 79 24 28 7A 2B 31 29 3A 46 4F 52 20 79 3D 31 20 y$(z+1):FOR y=1
009C40: 54 4F 20 36 3A 79 28 7A 2C 79 29 3D 79 28 7A 2B TO 6:y(z,y)=y(z+
009C50: 31 2C 79 29 3A 4E 45 58 54 20 79 2C 7A 3A 47 4F 1,y):NEXT y,z:GO
009C60: 54 4F 20 31 39 30 30 0D 0A 32 30 35 30 20 43 4C TO 1900..2050 CL
009C70: 53 3A 50 52 49 4E 54 23 32 2C 62 24 28 33 36 29 S:PRINT#2,b$(36)
009C80: 3A 42 4C 3D 30 3A 46 4F 52 20 49 3D 31 20 54 4F :BL=0:FOR I=1 TO
009C90: 20 36 3A 49 46 20 4B 28 49 29 20 54 48 45 4E 20 6:IF K(I) THEN
009CA0: 32 30 36 32 0D 0A 32 30 35 34 20 46 4F 52 20 5A 2062..2054 FOR Z
009CB0: 3D 31 20 54 4F 20 4E 57 3A 46 4F 52 20 46 3D 31 =1 TO NW:FOR F=1
009CC0: 20 54 4F 20 36 3A 49 46 20 4F 28 5A 29 3D 4B 28 TO 6:IF O(Z)=K(
009CD0: 46 29 20 54 48 45 4E 20 66 3D 38 0D 0A 32 30 35 F) THEN f=8..205
009CE0: 35 20 4E 45 58 54 3A 49 46 20 46 3D 37 20 54 48 5 NEXT:IF F=7 TH
009CF0: 45 4E 20 5B 5C 4E 55 3D 4E 55 2B 31 3A 4B 28 49 EN [\NU=NU+1:K(I
009D00: 29 3D 4F 28 5A 29 3A 5A 3D 32 31 0D 0A 32 30 36 )=O(Z):Z=21..206
009D10: 30 20 4E 45 58 54 0D 0A 32 30 36 32 20 4E 45 58 0 NEXT..2062 NEX
009D20: 54 3A 61 79 3D 2D 28 66 71 3C 31 36 20 4F 52 20 T:ay=-(fq<16 OR
009D30: 66 71 3D 33 31 29 2A 32 3A 61 7A 3D 30 3A 62 61 fq=31)*2:az=0:ba
009D40: 3D 30 3A 42 48 3D 30 3A 42 49 3D 30 3A 42 42 3D =0:BH=0:BI=0:BB=
009D50: 30 3A 42 44 3D 30 3A 49 46 20 49 4E 54 28 52 4E 0:BD=0:IF INT(RN
009D60: 44 2A 32 29 3D 31 20 54 48 45 4E 20 64 3D 31 36 D*2)=1 THEN d=16
009D70: 3A 47 4F 54 4F 20 32 31 31 30 0D 0A 32 30 36 34 :GOTO 2110..2064
009D80: 20 49 46 20 49 4E 54 28 52 4E 44 2A 32 29 3D 31 IF INT(RND*2)=1
009D90: 20 54 48 45 4E 20 64 3D 73 3A 47 4F 54 4F 20 32 THEN d=s:GOTO 2
009DA0: 31 31 30 0D 0A 32 30 37 30 20 50 52 49 4E 54 20 110..2070 PRINT
009DB0: 42 24 28 32 29 0D 0A 32 30 38 30 20 69 6B 24 3D B$(2)..2080 ik$=
009DC0: 22 42 46 22 3A 47 4F 53 55 42 20 36 34 32 30 30 "BF":GOSUB 64200
009DD0: 3A 64 3D 2D 31 36 2A 28 61 3D 31 29 2D 73 2A 28 :d=-16*(a=1)-s*(
009DE0: 61 3D 32 29 3A 49 46 20 64 3D 30 20 54 48 45 4E a=2):IF d=0 THEN
009DF0: 20 32 30 38 30 3D F9 0D 0A 32 31 31 30 20 52 43 2080=...2110 RC
009E00: 3D 37 3A 52 42 3D 31 33 3A 46 4F 52 20 49 3D 31 =7:RB=13:FOR I=1
009E10: 20 54 4F 20 32 3A 57 28 52 42 29 3D 52 43 3A 57 TO 2:W(RB)=RC:W
009E20: 28 52 42 2B 31 29 3D 33 2B 52 4E 44 2A 32 36 3A (RB+1)=3+RND*26:
009E30: 52 42 3D 52 42 2B 34 3A 52 43 3D 31 33 3A 4E 45 RB=RB+4:RC=13:NE
009E40: 58 54 3A 46 4F 52 20 7A 3D 31 20 54 4F 20 31 38 XT:FOR z=1 TO 18
009E50: 3A 75 28 7A 29 3D 77 28 7A 29 3A 4E 45 58 54 0D :u(z)=w(z):NEXT.
009E60: 0A 32 31 31 31 20 45 52 41 53 45 20 6A 2C 74 3A .2111 ERASE j,t:
009E70: 44 49 4D 20 6A 28 36 29 2C 74 28 31 31 2C 33 29 DIM j(6),t(11,3)
009E80: 3A 49 46 20 64 3C 3E 31 36 20 54 48 45 4E 20 32 :IF d<>16 THEN 2
009E90: 31 31 38 0D 0A 32 31 31 32 20 46 4F 52 20 5A 3D 118..2112 FOR Z=
009EA0: 31 20 54 4F 20 31 31 3A 44 24 28 5A 29 3D 51 24 1 TO 11:D$(Z)=Q$
009EB0: 28 4F 28 5A 29 29 3A 44 28 5A 29 3D 51 28 4F 28 (O(Z)):D(Z)=Q(O(
009EC0: 5A 29 2C 31 29 3A 4E 45 58 54 3A 46 4F 52 20 5A Z),1):NEXT:FOR Z
009ED0: 3D 31 20 54 4F 20 35 3A 49 46 20 52 28 5A 29 3D =1 TO 5:IF R(Z)=
009EE0: 30 20 54 48 45 4E 20 7A 3D 37 3A 47 4F 54 4F 20 0 THEN z=7:GOTO
009EF0: 32 31 31 36 0D 0A 32 A4 17 31 31 35 20 4A 24 28 2116..2..115 J$(
009F00: 5A 29 3D 50 24 28 73 2C 52 28 5A 29 29 3A 52 5A Z)=P$(s,R(Z)):RZ
009F10: 3D 52 28 5A 29 3A 65 3D 73 3A 47 4F 53 55 42 20 =R(Z):e=s:GOSUB
009F20: 39 30 30 34 3A 4A 28 5A 29 3D 6D 0D 0A 32 31 31 9004:J(Z)=m..211
009F30: 36 20 4E 45 58 54 3A 4A 24 28 36 29 3D 50 24 28 6 NEXT:J$(6)=P$(
009F40: 73 2C 52 28 36 29 29 3A 52 5A 3D 52 28 36 29 3A s,R(6)):RZ=R(6):
009F50: 47 4F 53 55 42 20 39 30 30 35 3A 4A 28 36 29 3D GOSUB 9005:J(6)=
009F60: 6D 3A 64 3D 31 36 3A 7A 39 38 3D 42 50 5E 28 30 m:d=16:z98=BP^(0
009F70: 2E 35 29 2F 32 2D 33 3A 47 4F 54 4F 20 32 31 32 .5)/2-3:GOTO 212
009F80: 33 0D 0A 32 31 31 38 20 46 4F 52 20 5A 3D 31 20 3..2118 FOR Z=1
009F90: 54 4F 20 31 31 3A 44 24 28 5A 29 3D 50 24 28 73 TO 11:D$(Z)=P$(s
009FA0: 2C 4E 28 5A 29 29 3A 52 5A 3D 4E 28 5A 29 3A 47 ,N(Z)):RZ=N(Z):G
009FB0: 4F 53 55 42 20 39 30 30 33 3A 44 28 5A 29 3D 6D OSUB 9003:D(Z)=m
009FC0: 3A 4E 45 58 54 3A 46 4F 52 20 5A 3D 31 20 54 4F :NEXT:FOR Z=1 TO
009FD0: 20 35 3A 49 46 20 4B 28 5A 29 3D 30 20 54 48 45 5:IF K(Z)=0 THE
009FE0: 4E 20 7A 3D 36 3A 47 4F 54 4F 20 32 31 32 31 0D N z=6:GOTO 2121.
009FF0: 0A 32 31 32 30 20 4A 24 28 5B 0F 5A 29 3D 51 24 .2120 J$([.Z)=Q$
00A000: 28 4B 28 5A 29 29 3A 4A 28 5A 29 3D 51 28 4B 28 (K(Z)):J(Z)=Q(K(
00A010: 5A 29 2C 32 29 0D 0A 32 31 32 31 20 4E 45 58 54 Z),2)..2121 NEXT
00A020: 3A 4A 24 28 36 29 3D 51 24 28 4B 28 36 29 29 3A :J$(6)=Q$(K(6)):
00A030: 4A 28 36 29 3D 51 28 4B 28 36 29 2C 33 29 3A 64 J(6)=Q(K(6),3):d
00A040: 3D 73 3A 7A 39 38 3D 30 0D 0A 32 31 32 33 20 54 =s:z98=0..2123 T
00A050: 28 31 2C 31 29 3D 35 3A 54 28 32 2C 31 29 3D 35 (1,1)=5:T(2,1)=5
00A060: 3A 4D 42 3D 52 4E 44 2A 35 3A 45 58 3D 30 3A 42 :MB=RND*5:EX=0:B
00A070: 45 3D 31 3A 41 49 3D 31 3A 41 4A 3D 32 3A 41 4B E=1:AI=1:AJ=2:AK
00A080: 3D 31 3A 6F 3D 31 3A 4E 42 3D 32 3A 54 52 3D 30 =1:o=1:NB=2:TR=0
00A090: 3A 42 4A 3D 54 52 3A 42 4B 3D 54 52 3A 41 58 3D :BJ=TR:BK=TR:AX=
00A0A0: 54 52 3A 43 4C 3D 54 52 0D 0A 32 31 36 30 20 6F TR:CL=TR..2160 o
00A0B0: 3D 32 3A 47 4F 53 55 42 20 32 37 3A 43 48 32 3D =2:GOSUB 27:CH2=
00A0C0: 41 57 3A 6F 3D 31 3A 47 4F 53 55 42 20 32 37 3A AW:o=1:GOSUB 27:
00A0D0: 41 55 3D 41 57 3A 42 43 3D 41 55 3A 42 3D 32 3A AU=AW:BC=AU:B=2:
00A0E0: 47 4F 53 55 42 20 32 36 30 37 0D 0A 32 31 37 30 GOSUB 2607..2170
00A0F0: 20 47 4F 53 55 42 20 32 36 38 30 F3 C2 3A 49 46 GOSUB 2680..:IF
00A100: 20 4D 42 3D 30 20 54 48 45 4E 20 32 33 33 32 0D MB=0 THEN 2332.
00A110: 0A 32 32 30 38 20 52 5A 3D 4E 28 6F 29 3A 47 4F .2208 RZ=N(o):GO
00A120: 53 55 42 20 39 30 30 32 3A 49 46 20 64 3C 3E 31 SUB 9002:IF d<>1
00A130: 36 20 41 4E 44 20 6D 3D 49 4E 54 28 28 41 53 43 6 AND m=INT((ASC
00A140: 28 4D 49 44 24 28 4A 24 28 41 4B 29 2C 33 29 29 (MID$(J$(AK),3))
00A150: 2D 36 35 29 2F 38 29 20 4F 52 20 51 28 6F 2C 36 -65)/8) OR Q(o,6
00A160: 29 3D 49 4E 54 28 28 41 53 43 28 4D 49 44 24 28 )=INT((ASC(MID$(
00A170: 4A 24 28 41 4B 29 2C 33 29 29 2D 36 35 29 2F 38 J$(AK),3))-65)/8
00A180: 29 20 54 48 45 4E 20 42 43 3D 42 43 2B 49 4E 54 ) THEN BC=BC+INT
00A190: 28 42 43 2F 34 29 0D 0A 32 32 30 39 20 42 43 3D (BC/4)..2209 BC=
00A1A0: 42 43 2D 4A 28 41 4B 29 3A 62 63 3D 46 4E 61 28 BC-J(AK):bc=FNa(
00A1B0: 62 63 2C 33 2C 33 35 29 3A 49 46 20 49 4E 54 28 bc,3,35):IF INT(
00A1C0: 52 4E 44 2A 42 43 29 3D 31 20 54 48 45 4E 20 32 RND*BC)=1 THEN 2
00A1D0: 35 30 30 0D 0A 32 32 31 34 20 6A 3D 49 4E 54 28 500..2214 j=INT(
00A1E0: 28 41 53 43 28 4D 49 44 24 28 44 24 28 6F 29 2C (ASC(MID$(D$(o),
00A1F0: 35 29 29 2D 36 35 29 2F 38 2B 31 29 3A 9D F3 49 5))-65)/8+1):..I
00A200: 46 20 64 3D 31 36 20 54 48 45 4E 20 6A 3D 51 28 F d=16 THEN j=Q(
00A210: 6F 2C 36 29 0D 0A 32 32 31 35 20 41 56 3D 52 4E o,6)..2215 AV=RN
00A220: 44 2A 28 6A 2B 32 29 3A 41 56 3D 41 56 2D 28 41 D*(j+2):AV=AV-(A
00A230: 56 3E 33 29 2A 28 41 56 2D 33 29 3A 49 46 20 41 V>3)*(AV-3):IF A
00A240: 56 3C 31 20 54 48 45 4E 20 41 56 3D 31 0D 0A 32 V<1 THEN AV=1..2
00A250: 32 31 36 20 41 43 3D 32 32 2A 41 56 3A 41 44 3D 216 AC=22*AV:AD=
00A260: 34 30 2A 41 56 3A 41 45 3D 31 30 2A 41 56 3A 61 40*AV:AE=10*AV:a
00A270: 66 3D 38 3A 49 46 20 49 4E 54 28 52 4E 44 2A 32 f=8:IF INT(RND*2
00A280: 29 20 54 48 45 4E 20 41 45 3D 36 3A 61 66 3D 32 ) THEN AE=6:af=2
00A290: 30 2A 41 56 0D 0A 32 32 33 32 20 56 3D 41 45 2B 0*AV..2232 V=AE+
00A2A0: 52 4E 44 2A 28 41 43 2D 41 45 29 3A 72 3D 49 4E RND*(AC-AE):r=IN
00A2B0: 54 28 52 4E 44 2A 32 29 3A 49 46 20 72 3D 30 20 T(RND*2):IF r=0
00A2C0: 54 48 45 4E 20 56 3D 2D 56 20 45 4C 53 45 20 56 THEN V=-V ELSE V
00A2D0: 3D 38 31 2B 56 0D 0A 32 32 34 35 20 48 3D 61 66 =81+V..2245 H=af
00A2E0: 2B 52 4E 44 2A 28 41 44 2D 61 66 29 3A 72 3D 49 +RND*(AD-af):r=I
00A2F0: 4E 54 28 52 4E 44 2A 32 29 3A 49 46 20 72 3D 2F NT(RND*2):IF r=/
00A300: 3D 30 20 54 48 45 4E 20 48 3D 2D 48 0D 0A 32 32 =0 THEN H=-H..22
00A310: 35 32 20 48 3D 61 34 2B 48 3A 76 3D 46 4E 61 28 52 H=a4+H:v=FNa(
00A320: 76 2C 32 34 2C 31 35 31 29 3A 68 3D 46 4E 61 28 v,24,151):h=FNa(
00A330: 68 2C 38 2C 32 34 37 29 3A 49 46 20 56 3D 32 34 h,8,247):IF V=24
00A340: 20 4F 52 20 56 3D 31 35 31 20 4F 52 20 48 3D 38 OR V=151 OR H=8
00A350: 20 4F 52 20 48 3D 32 34 37 20 54 48 45 4E 20 41 OR H=247 THEN A
00A360: 47 3D 52 4E 44 2A 31 35 3A 52 3D 34 2D 32 2A 28 G=RND*15:R=4-2*(
00A370: 41 47 3D 30 29 3A 47 4F 54 4F 20 32 33 30 30 0D AG=0):GOTO 2300.
00A380: 0A 32 32 37 36 20 54 3D 41 42 53 28 61 34 2D 48 .2276 T=ABS(a4-H
00A390: 29 2B 41 42 53 28 38 31 2D 56 29 3A 52 3D 2D 28 )+ABS(81-V):R=-(
00A3A0: 54 3C 34 31 29 2D 32 2A 28 74 3C 38 31 20 41 4E T<41)-2*(t<81 AN
00A3B0: 44 20 74 3E 34 30 29 2D 33 2A 28 74 3E 38 30 20 D t>40)-3*(t>80
00A3C0: 41 4E 44 20 74 3C 31 33 31 29 2D 34 2A 28 74 3E AND t<131)-4*(t>
00A3D0: 31 33 30 29 0D 0A 32 33 30 30 20 49 46 20 61 36 130)..2300 IF a6
00A3E0: 3C 3E 30 20 54 48 45 4E 20 32 34 30 30 0D 0A 32 <>0 THEN 2400..2
00A3F0: 33 30 31 20 54 52 3D 54 52 2B 52 3A 61 7A 3D 61 301 TR=TR+R:az=a
00A400: 7A 6B 5B FF FF FF FF 11 53 09 E4 05 08 04 E3 04 zk[.....S.......
00A410: 65 09 01 10 08 10 00 07 01 00 2C 43 43 31 41 00 e.........,CC1A.
00A420: 00 00 00 00 00 00 00 00 00 00 00 06 00 16 00 08 ................
00A430: 7C 9E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |...............
00A440: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A450: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A4A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A4B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A4C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A4D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A4E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A4F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A500: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A510: 00 00 00 00 00 00 00 00 00 00 00 EB 26 FF FF FF ............&...
00A520: FF 11 53 09 E4 05 57 04 C1 04 87 09 01 10 08 F1 ..S...W.........
00A530: 0A 15 08 00 16 2D 52 2A 28 64 3D 31 36 29 3A 42 .....-R*(d=16):B
00A540: 42 3D 42 42 2D 52 2A 28 41 59 3C 32 20 41 4E 44 B=BB-R*(AY<2 AND
00A550: 20 42 45 3C 31 30 31 20 41 4E 44 20 64 3D 31 36 BE<101 AND d=16
00A560: 29 3A 62 61 3D 62 61 2D 52 2A 28 64 3C 3E 31 36 ):ba=ba-R*(d<>16
00A570: 29 3A 42 4A 3D 42 4A 2D 52 2A 28 64 3C 3E 31 36 ):BJ=BJ-R*(d<>16
00A580: 29 3A 42 44 3D 42 44 2D 52 2A 28 41 59 3C 32 20 ):BD=BD-R*(AY<2
00A590: 41 4E 44 20 42 45 3C 31 30 31 20 41 4E 44 20 64 AND BE<101 AND d
00A5A0: 3C 3E 31 36 29 0D 0A 32 33 30 33 20 54 28 6F 2C <>16)..2303 T(o,
00A5B0: 32 29 3D 54 28 6F 2C 32 29 2B 52 3A 4C 4F 43 41 2)=T(o,2)+R:LOCA
00A5C0: 54 45 20 32 38 2C 6F 2B 32 3A 50 52 49 4E 54 20 TE 28,o+2:PRINT
00A5D0: 55 53 49 4E 47 22 23 23 23 22 3B 74 28 6F 2C 32 USING"###";t(o,2
00A5E0: 29 3A 47 4F 53 55 42 20 32 36 35 30 3A 46 4F 52 ):GOSUB 2650:FOR
00A5F0: 20 6E 3D 31 20 54 4F 20 33 30 30 30 3A 4E 45 58 n=1 TO 3000:NEX
00A600: 54 0D 0A 32 33 30 34 20 49 46 20 61 79 3C 33 20 T..2304 IF ay<3
00A610: 41 4E 44 20 64 3C 3E 31 36 20 41 4E 44 20 62 61 AND d<>16 AND ba
00A620: 3E 61 7A 2B 33 30 30 20 41 4E 44 20 62 61 3E 28 >az+300 AND ba>(
00A630: 36 30 30 2B 49 86 8B 4E 54 28 52 4E 44 2A 35 30 600+I..NT(RND*50
00A640: 29 29 20 54 48 45 4E 20 33 30 30 30 0D 0A 32 33 )) THEN 3000..23
00A650: 30 35 20 49 46 20 61 79 3E 32 20 41 4E 44 20 64 05 IF ay>2 AND d
00A660: 3C 3E 31 36 20 41 4E 44 20 62 61 3E 61 7A 2B 33 <>16 AND ba>az+3
00A670: 30 30 20 41 4E 44 20 62 61 3E 28 39 34 30 2B 49 00 AND ba>(940+I
00A680: 4E 54 28 52 4E 44 2A 35 30 29 29 20 54 48 45 4E NT(RND*50)) THEN
00A690: 20 33 30 30 30 0D 0A 32 33 30 36 20 49 46 20 64 3000..2306 IF d
00A6A0: 3D 31 36 20 41 4E 44 20 49 4E 4B 45 59 28 36 31 =16 AND INKEY(61
00A6B0: 29 3C 3E 2D 31 20 54 48 45 4E 20 33 30 30 30 20 )<>-1 THEN 3000
00A6C0: 0D 0A 32 33 30 38 20 49 46 20 41 59 3D 33 20 41 ..2308 IF AY=3 A
00A6D0: 4E 44 20 28 28 64 3D 31 36 20 41 4E 44 20 61 7A ND ((d=16 AND az
00A6E0: 3E 62 61 29 20 4F 52 20 28 64 3C 3E 31 36 20 41 >ba) OR (d<>16 A
00A6F0: 4E 44 20 62 61 3E 61 7A 29 29 20 54 48 45 4E 20 ND ba>az)) THEN
00A700: 33 31 30 30 0D 0A 32 33 31 30 20 49 46 20 52 2F 3100..2310 IF R/
00A710: 32 3D 49 4E 54 28 52 2F 32 29 20 54 48 45 4E 20 2=INT(R/2) THEN
00A720: 47 4F 53 55 42 20 32 33 31 38 30 20 45 4C 53 45 GOSUB 23180 ELSE
00A730: 20 47 4F 53 55 42 20 92 F4 32 33 31 35 30 0D 0A GOSUB ..23150..
00A740: 32 33 33 30 20 43 4C 53 23 31 3A 41 58 3D 41 58 2330 CLS#1:AX=AX
00A750: 2B 31 3A 49 46 20 41 58 3C 4D 42 20 54 48 45 4E +1:IF AX<MB THEN
00A760: 20 32 33 36 38 0D 0A 32 33 33 32 20 47 4F 53 55 2368..2332 GOSU
00A770: 42 20 32 33 31 35 30 3A 47 4F 53 55 42 20 32 37 B 23150:GOSUB 27
00A780: 30 30 3A 47 4F 53 55 42 20 32 36 35 30 3A 42 45 00:GOSUB 2650:BE
00A790: 3D 42 45 2B 31 3A 49 46 20 42 45 3D 34 31 20 41 =BE+1:IF BE=41 A
00A7A0: 4E 44 20 28 66 71 3C 31 36 20 4F 52 20 66 71 3D ND (fq<16 OR fq=
00A7B0: 33 31 29 20 54 48 45 4E 20 33 31 30 30 0D 0A 32 31) THEN 3100..2
00A7C0: 33 33 39 20 46 4F 52 20 5A 3D 31 20 54 4F 20 31 339 FOR Z=1 TO 1
00A7D0: 38 20 53 54 45 50 20 32 3A 75 28 7A 29 3D 33 31 8 STEP 2:u(z)=31
00A7E0: 2D 75 28 7A 29 3A 4E 45 58 54 3A 52 41 4E 44 4F -u(z):NEXT:RANDO
00A7F0: 4D 49 5A 45 20 54 49 4D 45 3A 41 58 3D 30 3A 42 MIZE TIME:AX=0:B
00A800: 4A 3D 41 58 3A 42 4B 3D 41 58 3A 4D 42 3D 52 4E J=AX:BK=AX:MB=RN
00A810: 44 2A 35 3A 49 46 20 61 32 3D 38 35 20 54 48 45 D*5:IF a2=85 THE
00A820: 4E 20 61 32 3D 31 36 33 3A 61 34 3D 39 34 20 45 N a2=163:a4=94 E
00A830: 4C 53 45 20 61 32 3D 38 35 DC 77 3A 61 34 3D 31 LSE a2=85.w:a4=1
00A840: 35 34 0D 0A 32 33 34 32 20 41 4B 3D 4E 42 3A 4E 54..2342 AK=NB:N
00A850: 42 3D 4E 42 2B 31 3A 49 46 20 4E 42 3D 36 20 54 B=NB+1:IF NB=6 T
00A860: 48 45 4E 20 4E 42 3D 31 20 45 4C 53 45 20 49 46 HEN NB=1 ELSE IF
00A870: 20 4A 28 4E 42 29 3D 30 20 54 48 45 4E 20 4E 42 J(NB)=0 THEN NB
00A880: 3D 31 0D 0A 32 33 36 38 20 47 4F 53 55 42 20 32 =1..2368 GOSUB 2
00A890: 36 38 30 3A 49 46 20 4D 42 3D 30 20 54 48 45 4E 680:IF MB=0 THEN
00A8A0: 20 32 33 33 32 0D 0A 32 33 39 30 20 49 46 20 49 2332..2390 IF I
00A8B0: 4E 54 28 52 4E 44 2A 32 30 29 3D 39 20 54 48 45 NT(RND*20)=9 THE
00A8C0: 4E 20 45 58 3D 45 58 2B 31 3A 54 52 3D 54 52 2B N EX=EX+1:TR=TR+
00A8D0: 31 3A 61 7A 3D 61 7A 2D 28 64 3D 31 36 29 3A 62 1:az=az-(d=16):b
00A8E0: 61 3D 62 61 2D 28 64 3C 3E 31 36 29 0D 0A 32 33 a=ba-(d<>16)..23
00A8F0: 39 31 20 47 4F 54 4F 20 32 32 30 38 0D 0A 32 34 91 GOTO 2208..24
00A900: 30 30 20 52 3D 49 4E 54 28 52 4E 44 2A 33 29 2B 00 R=INT(RND*3)+
00A910: 61 36 3A 49 46 20 64 3D 31 36 20 54 48 45 4E 20 a6:IF d=16 THEN
00A920: 65 3D 73 3A 52 5A 3D 52 3A 47 4F 53 55 42 20 39 e=s:RZ=R:GOSUB 9
00A930: 30 30 35 3A 52 3D 49 4E 54 28 52 A5 A6 4E 44 2A 005:R=INT(R..ND*
00A940: 28 31 31 2D 6D 29 29 3A 47 4F 54 4F 20 32 34 31 (11-m)):GOTO 241
00A950: 30 0D 0A 32 34 30 37 20 52 3D 49 4E 54 28 52 4E 0..2407 R=INT(RN
00A960: 44 2A 28 31 31 2D 51 28 4F 28 52 29 2C 32 29 29 D*(11-Q(O(R),2))
00A970: 29 0D 0A 32 34 31 30 20 49 46 20 52 3C 35 20 54 )..2410 IF R<5 T
00A980: 48 45 4E 20 58 3D 33 3A 47 4F 54 4F 20 32 35 36 HEN X=3:GOTO 256
00A990: 34 0D 0A 32 34 32 30 20 43 4C 53 23 31 3A 50 52 4..2420 CLS#1:PR
00A9A0: 49 4E 54 23 31 2C 22 44 72 6F 70 70 65 64 22 3A INT#1,"Dropped":
00A9B0: 47 4F 53 55 42 20 36 35 30 30 30 3A 47 4F 54 4F GOSUB 65000:GOTO
00A9C0: 20 32 33 33 30 0D 0A 32 35 30 30 20 52 3D 49 4E 2330..2500 R=IN
00A9D0: 54 28 52 4E 44 2A 34 29 2B 31 3A 4F 4E 20 72 20 T(RND*4)+1:ON r
00A9E0: 47 4F 54 4F 20 32 35 35 30 2C 32 35 35 35 2C 32 GOTO 2550,2555,2
00A9F0: 35 31 30 2C 32 35 31 30 2C 32 35 31 30 0D 0A 32 510,2510,2510..2
00AA00: 35 31 30 20 52 3D 49 4E 54 28 52 4E 44 2A 28 31 510 R=INT(RND*(1
00AA10: 31 2D 4A 28 36 29 29 29 3A 49 46 20 52 20 54 48 1-J(6))):IF R TH
00AA20: 45 4E 20 32 33 33 30 0D 0A 32 35 32 31 20 52 41 EN 2330..2521 RA
00AA30: 4E 44 4F 4D 49 5A 45 20 54 49 4D 45 3A B5 CB 52 NDOMIZE TIME:..R
00AA40: 3D 49 4E 54 28 52 4E 44 2A 34 29 3A 78 3D 33 2D =INT(RND*4):x=3-
00AA50: 33 2A 28 72 3D 30 29 2B 28 72 3D 31 29 3A 47 4F 3*(r=0)+(r=1):GO
00AA60: 54 4F 20 32 35 36 34 0D 0A 32 35 35 30 20 58 3D TO 2564..2550 X=
00AA70: 34 3A 47 4F 54 4F 20 32 35 36 34 0D 0A 32 35 35 4:GOTO 2564..255
00AA80: 35 20 58 3D 31 0D 0A 32 35 36 34 20 47 4F 53 55 5 X=1..2564 GOSU
00AA90: 42 20 32 36 35 30 3A 62 3D 62 2B 31 3A 54 28 6F B 2650:b=b+1:T(o
00AAA0: 2C 33 29 3D 54 52 3A 54 28 6F 2C 31 29 3D 58 3A ,3)=TR:T(o,1)=X:
00AAB0: 42 48 3D 42 48 2D 28 64 3C 3E 31 36 29 2A 28 41 BH=BH-(d<>16)*(A
00AAC0: 59 3C 32 20 41 4E 44 20 42 45 3C 31 30 31 29 3A Y<2 AND BE<101):
00AAD0: 42 49 3D 42 49 2D 28 64 3D 31 36 29 2A 28 41 59 BI=BI-(d=16)*(AY
00AAE0: 3C 32 20 41 4E 44 20 42 45 3C 31 30 31 29 3A 47 <2 AND BE<101):G
00AAF0: 4F 53 55 42 20 32 36 31 30 3A 49 46 20 42 3D 31 OSUB 2610:IF B=1
00AB00: 32 20 54 48 45 4E 20 33 31 30 30 0D 0A 32 35 38 2 THEN 3100..258
00AB10: 30 20 54 28 42 2C 31 29 3D 35 3A 49 46 20 6F 3D 0 T(B,1)=5:IF o=
00AB20: 41 49 20 54 48 45 4E 20 41 49 3D 42 3A 6F 3D 42 AI THEN AI=B:o=B
00AB30: 3A 47 4F 53 55 42 20 32 37 3A 41 55 3D 41 57 7C :GOSUB 27:AU=AW|
00AB40: E5 20 45 4C 53 45 20 41 4A 3D 42 3A 6F 3D 42 3A . ELSE AJ=B:o=B:
00AB50: 47 4F 53 55 42 20 32 37 3A 43 48 32 3D 41 57 0D GOSUB 27:CH2=AW.
00AB60: 0A 32 35 38 35 20 47 4F 53 55 42 20 32 36 31 30 .2585 GOSUB 2610
00AB70: 3A 47 4F 53 55 42 20 32 36 38 30 3A 47 4F 54 4F :GOSUB 2680:GOTO
00AB80: 20 32 33 33 30 0D 0A 32 36 30 37 20 42 4F 52 44 2330..2607 BORD
00AB90: 45 52 20 30 3A 49 4E 4B 20 30 2C 30 3A 49 4E 4B ER 0:INK 0,0:INK
00ABA0: 20 31 2C 32 36 3A 49 4E 4B 20 32 2C 31 34 3A 49 1,26:INK 2,14:I
00ABB0: 4E 4B 20 33 2C 32 34 3A 50 52 49 4E 54 20 6D 24 NK 3,24:PRINT m$
00ABC0: 28 31 29 3A 43 4C 53 3A 50 52 49 4E 54 20 54 41 (1):CLS:PRINT TA
00ABD0: 42 28 31 36 29 6D 24 28 36 29 54 24 28 64 29 6D B(16)m$(6)T$(d)m
00ABE0: 24 28 31 29 0D 0A 32 36 31 30 20 46 4F 52 20 5A $(1)..2610 FOR Z
00ABF0: 3D 31 20 54 4F 20 31 31 3A 4C 4F 43 41 54 45 20 =1 TO 11:LOCATE
00AC00: 33 2C 7A 2B 32 3A 50 52 49 4E 54 20 64 24 28 7A 3,z+2:PRINT d$(z
00AC10: 29 3B 3A 49 46 20 54 28 5A 2C 31 29 20 54 48 45 );:IF T(Z,1) THE
00AC20: 4E 20 50 52 49 4E 54 20 55 53 49 4E 47 22 20 20 N PRINT USING"
00AC30: 20 20 5C 20 20 20 20 20 20 20 20 20 5C 20 20 23 \ \ #
00AC40: 23 FF 19 23 20 22 3B 4F 24 28 54 28 5A 2C 31 29 #..# ";O$(T(Z,1)
00AC50: 29 2C 54 28 5A 2C 32 29 0D 0A 32 36 34 30 20 4E ),T(Z,2)..2640 N
00AC60: 45 58 54 0D 0A 32 36 34 35 20 49 46 20 64 3D 31 EXT..2645 IF d=1
00AC70: 36 20 54 48 45 4E 20 4C 4F 43 41 54 45 20 32 35 6 THEN LOCATE 25
00AC80: 2C 31 38 3A 50 52 49 4E 54 20 6D 24 28 33 29 3B ,18:PRINT m$(3);
00AC90: 22 44 22 2B 43 48 52 24 28 32 34 29 2B 22 65 63 "D"+CHR$(24)+"ec
00ACA0: 6C 61 72 65 20 20 20 20 20 22 0D 0A 32 36 34 36 lare "..2646
00ACB0: 20 4C 4F 43 41 54 45 20 33 32 2C 31 3A 7A 24 3D LOCATE 32,1:z$=
00ACC0: 22 43 2E 41 2E 22 3A 49 46 20 66 71 3C 31 36 20 "C.A.":IF fq<16
00ACD0: 54 48 45 4E 20 7A 24 3D 22 4A 2E 50 2E 22 0D 0A THEN z$="J.P."..
00ACE0: 32 36 34 37 20 49 46 20 66 71 3D 33 32 20 54 48 2647 IF fq=32 TH
00ACF0: 45 4E 20 7A 24 3D 22 43 2E 41 2E 20 43 55 50 20 EN z$="C.A. CUP
00AD00: 20 22 20 45 4C 53 45 20 49 46 20 66 71 3D 33 31 " ELSE IF fq=31
00AD10: 20 54 48 45 4E 20 7A 24 3D 22 4A 2E 50 2E 20 43 THEN z$="J.P. C
00AD20: 55 50 20 20 22 0D 0A 32 36 34 38 20 50 52 49 4E UP "..2648 PRIN
00AD30: 54 20 6D 24 28 36 29 7A 24 0D 0A 32 36 35 30 20 T m$(6)z$..2650
00AD40: 4C 4F 43 E1 FA FF FF FF FF 11 53 09 E4 05 08 04 LOC.......S.....
00AD50: E2 04 67 09 01 10 08 10 00 07 01 00 2C 43 43 31 ..g.........,CC1
00AD60: 41 00 00 00 00 00 00 00 00 00 00 00 00 07 00 16 A...............
00AD70: 00 08 7C 9E 00 00 00 00 00 00 00 00 00 00 00 00 ..|.............
00AD80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AD90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ADA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ADB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ADC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ADD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ADE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ADF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AE00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AE10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AE20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AE30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AE40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AE50: 00 00 00 00 00 00 00 00 00 00 00 00 00 0C 2D FF ..............-.
00AE60: FF FF FF 11 53 09 E4 05 57 04 C1 04 87 09 01 10 ....S...W.......
00AE70: 08 FC 0A 15 08 00 16 41 54 45 20 32 35 2C 31 39 .......ATE 25,19
00AE80: 3A 50 52 49 4E 54 20 6D 24 28 33 29 3B 22 43 22 :PRINT m$(3);"C"
00AE90: 2B 43 48 52 24 28 32 34 29 2B 22 68 61 6E 67 65 +CHR$(24)+"hange
00AEA0: 20 6F 72 64 65 72 22 3B 6D 24 28 31 29 3A 7A 24 order";m$(1):z$
00AEB0: 3D 53 54 52 24 28 62 2D 32 29 3A 49 46 20 62 3D =STR$(b-2):IF b=
00AEC0: 31 32 20 54 48 45 4E 20 62 24 3D 22 41 6C 6C 20 12 THEN b$="All
00AED0: 6F 75 74 22 0D 0A 32 36 36 30 20 4C 4F 43 41 54 out"..2660 LOCAT
00AEE0: 45 20 31 2C 31 34 3A 50 52 49 4E 54 20 6D 24 28 E 1,14:PRINT m$(
00AEF0: 36 29 55 53 49 4E 47 22 20 20 45 78 74 72 61 73 6)USING" Extras
00AF00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00AF10: 20 20 20 23 23 23 20 22 3B 65 78 3A 50 52 49 4E ### ";ex:PRIN
00AF20: 54 20 6D 24 28 31 29 3B 3A 50 52 49 4E 54 20 55 T m$(1);:PRINT U
00AF30: 53 49 4E 47 22 20 20 54 6F 74 61 6C 20 20 20 20 SING" Total
00AF40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00AF50: 23 23 23 22 3B 74 72 3A 50 52 49 4E 54 20 55 53 ###";tr:PRINT US
00AF60: 49 4E 47 22 20 20 57 6B 74 73 3A 20 5C 20 20 20 ING" Wkts: \
00AF70: 20 20 20 20 20 5C 20 7E 83 4F 76 65 72 73 20 3A \ ~.Overs :
00AF80: 20 23 23 23 22 3B 7A 24 2C 42 45 2B 28 42 45 3E ###";z$,BE+(BE>
00AF90: 34 30 20 41 4E 44 20 66 71 3C 31 36 29 0D 0A 32 40 AND fq<16)..2
00AFA0: 36 36 32 20 7A 24 3D 22 20 20 5C 20 20 20 20 20 662 z$=" \
00AFB0: 20 20 20 5C 20 20 20 20 23 23 23 23 22 3A 4C 4F \ ####":LO
00AFC0: 43 41 54 45 20 31 2C 31 38 3A 50 52 49 4E 54 20 CATE 1,18:PRINT
00AFD0: 55 53 49 4E 47 20 7A 24 3B 54 24 28 31 36 29 2C USING z$;T$(16),
00AFE0: 61 7A 3A 50 52 49 4E 54 20 55 53 49 4E 47 20 7A az:PRINT USING z
00AFF0: 24 3B 54 24 28 73 29 2C 62 61 0D 0A 32 36 37 35 $;T$(s),ba..2675
00B000: 20 49 46 20 28 66 71 3C 31 36 20 41 4E 44 20 41 IF (fq<16 AND A
00B010: 59 3D 33 29 20 4F 52 20 28 66 71 3E 31 35 20 41 Y=3) OR (fq>15 A
00B020: 4E 44 20 41 59 3E 31 29 20 54 48 45 4E 20 47 4F ND AY>1) THEN GO
00B030: 53 55 42 20 32 36 39 30 0D 0A 32 36 37 37 20 49 SUB 2690..2677 I
00B040: 46 20 28 66 71 3C 31 36 20 41 4E 44 20 61 79 3D F (fq<16 AND ay=
00B050: 33 29 20 4F 52 20 28 66 71 3D 33 31 20 41 4E 44 3) OR (fq=31 AND
00B060: 20 61 79 3D 33 29 20 54 48 45 4E 20 47 4F 53 55 ay=3) THEN GOSU
00B070: 42 20 32 36 39 35 0D 0A 32 9B 35 36 37 38 20 50 B 2695..2.5678 P
00B080: 52 49 4E 54 20 6D 24 28 31 29 3A 52 45 54 55 52 RINT m$(1):RETUR
00B090: 4E 0D 0A 32 36 38 30 20 4C 4F 43 41 54 45 20 34 N..2680 LOCATE 4
00B0A0: 2C 32 35 3A 50 52 49 4E 54 20 6D 24 28 33 29 22 ,25:PRINT m$(3)"
00B0B0: 42 6F 77 6C 65 72 3A 20 22 4A 24 28 41 4B 29 3B Bowler: "J$(AK);
00B0C0: 6D 24 28 31 29 22 20 20 20 22 6D 24 28 33 29 3B m$(1)" "m$(3);
00B0D0: 22 42 61 74 73 6D 61 6E 3A 20 22 44 24 28 6F 29 "Batsman: "D$(o)
00B0E0: 3B 6D 24 28 31 29 3B 3A 52 45 54 55 52 4E 0D 0A ;m$(1);:RETURN..
00B0F0: 32 36 39 30 20 72 61 3D 2D 28 64 3D 31 36 29 2A 2690 ra=-(d=16)*
00B100: 49 4E 54 28 62 61 2B 31 2D 61 7A 29 2D 28 64 3C INT(ba+1-az)-(d<
00B110: 3E 31 36 29 2A 49 4E 54 28 61 7A 2B 31 2D 62 61 >16)*INT(az+1-ba
00B120: 29 3A 49 46 20 72 61 3C 30 20 54 48 45 4E 20 72 ):IF ra<0 THEN r
00B130: 61 3D 30 0D 0A 32 36 39 31 20 4C 4F 43 41 54 45 a=0..2691 LOCATE
00B140: 20 31 2C 31 37 3A 50 52 49 4E 54 20 6D 24 28 35 1,17:PRINT m$(5
00B150: 29 55 53 49 4E 47 20 22 20 20 52 75 6E 73 20 72 )USING " Runs r
00B160: 65 71 75 69 72 65 64 20 23 23 23 23 20 22 3B 72 equired #### ";r
00B170: 61 3B 3A 52 45 54 55 52 4E 0D 0A AB 80 32 36 39 a;:RETURN....269
00B180: 35 20 72 61 3D 2D 28 64 3D 31 36 29 2A 28 28 62 5 ra=-(d=16)*((b
00B190: 61 2B 31 2D 74 72 29 2F 28 34 31 2D 62 65 29 29 a+1-tr)/(41-be))
00B1A0: 2D 28 64 3C 3E 31 36 29 2A 28 28 61 7A 2B 31 2D -(d<>16)*((az+1-
00B1B0: 74 72 29 2F 28 34 31 2D 62 65 29 29 3A 49 46 20 tr)/(41-be)):IF
00B1C0: 72 61 3C 30 20 54 48 45 4E 20 72 61 3D 30 0D 0A ra<0 THEN ra=0..
00B1D0: 32 36 39 36 20 50 52 49 4E 54 20 55 53 49 4E 47 2696 PRINT USING
00B1E0: 22 20 52 75 6E 20 52 61 74 65 20 23 23 2E 23 20 " Run Rate ##.#
00B1F0: 22 3B 72 61 3A 52 45 54 55 52 4E 0D 0A 32 37 30 ";ra:RETURN..270
00B200: 30 20 49 46 20 49 4E 4B 45 59 28 36 32 29 3D 2D 0 IF INKEY(62)=-
00B210: 31 20 54 48 45 4E 20 52 45 54 55 52 4E 20 45 4C 1 THEN RETURN EL
00B220: 53 45 20 47 4F 53 55 42 20 36 35 35 30 30 3A 49 SE GOSUB 65500:I
00B230: 46 20 64 3D 31 36 20 54 48 45 4E 20 32 38 30 30 F d=16 THEN 2800
00B240: 20 0D 0A 32 37 31 30 20 43 4C 53 3A 50 52 49 4E ..2710 CLS:PRIN
00B250: 54 20 62 24 28 31 37 29 0D 0A 32 37 32 30 20 46 T b$(17)..2720 F
00B260: 4F 52 20 7A 3D 31 20 54 4F 20 35 3A 4C 4F 43 41 OR z=1 TO 5:LOCA
00B270: 54 45 20 35 2C 7A 2B 38 3A 50 52 49 4E C9 40 54 TE 5,z+8:PRIN.@T
00B280: 20 7A 3B 3A 49 46 20 6B 28 7A 29 3E 30 20 54 48 z;:IF k(z)>0 TH
00B290: 45 4E 20 50 52 49 4E 54 20 71 24 28 6B 28 7A 29 EN PRINT q$(k(z)
00B2A0: 29 54 41 42 28 32 31 29 49 4E 54 28 71 28 6B 28 )TAB(21)INT(q(k(
00B2B0: 7A 29 2C 32 29 29 54 41 42 20 28 33 30 29 61 24 z),2))TAB (30)a$
00B2C0: 28 31 2C 71 28 6B 28 7A 29 2C 34 29 29 0D 0A 32 (1,q(k(z),4))..2
00B2D0: 37 32 35 20 4E 45 58 54 3A 4C 4F 43 41 54 45 20 725 NEXT:LOCATE
00B2E0: 35 2C 31 35 3A 50 52 49 4E 54 20 22 43 75 72 72 5,15:PRINT "Curr
00B2F0: 65 6E 74 20 42 6F 77 6C 65 72 3A 20 22 3B 51 24 ent Bowler: ";Q$
00B300: 28 4B 28 41 4B 29 29 3A 50 52 49 4E 54 20 54 41 (K(AK)):PRINT TA
00B310: 42 28 38 29 22 4E 65 78 74 20 42 6F 77 6C 65 72 B(8)"Next Bowler
00B320: 3A 20 22 3B 51 24 28 4B 28 4E 42 29 29 3A 50 52 : ";Q$(K(NB)):PR
00B330: 49 4E 54 23 32 2C 6D 24 28 33 29 22 4D 22 2B 43 INT#2,m$(3)"M"+C
00B340: 48 52 24 28 32 34 29 2B 22 61 74 63 68 20 20 22 HR$(24)+"atch "
00B350: 2B 43 48 52 24 28 32 34 29 2B 22 43 22 2B 43 48 +CHR$(24)+"C"+CH
00B360: 52 24 28 32 34 29 2B 22 68 61 6E 67 65 20 6E 65 R$(24)+"hange ne
00B370: 78 74 20 62 6F 77 6C 65 72 22 6D 24 28 31 29 F6 xt bowler"m$(1).
00B380: 2B 0D 0A 32 37 33 30 20 69 6B 24 3D 22 4D 43 22 +..2730 ik$="MC"
00B390: 3A 47 4F 53 55 42 20 36 34 32 30 30 3A 4F 4E 20 :GOSUB 64200:ON
00B3A0: 61 2B 31 20 47 4F 54 4F 20 32 37 33 30 2C 32 36 a+1 GOTO 2730,26
00B3B0: 30 37 2C 32 37 35 30 0D 0A 32 37 35 30 20 43 4C 07,2750..2750 CL
00B3C0: 53 23 32 3A 49 4E 50 55 54 23 32 2C 22 57 68 69 S#2:INPUT#2,"Whi
00B3D0: 63 68 20 62 6F 77 6C 65 72 22 3B 5A 3A 43 4C 53 ch bowler";Z:CLS
00B3E0: 23 32 3A 49 46 20 5A 3C 31 20 4F 52 20 5A 3E 4E #2:IF Z<1 OR Z>N
00B3F0: 55 20 4F 52 20 5A 3D 41 4B 20 54 48 45 4E 20 32 U OR Z=AK THEN 2
00B400: 37 35 30 20 45 4C 53 45 20 4E 42 3D 5A 3A 47 4F 750 ELSE NB=Z:GO
00B410: 54 4F 20 32 37 32 30 0D 0A 32 38 30 30 20 42 47 TO 2720..2800 BG
00B420: 3D 31 31 3A 43 4C 53 3A 47 4F 53 55 42 20 35 0D =11:CLS:GOSUB 5.
00B430: 0A 32 38 31 35 20 49 46 20 42 3C 31 31 20 54 48 .2815 IF B<11 TH
00B440: 45 4E 20 4C 4F 43 41 54 45 20 35 2C 31 38 3A 50 EN LOCATE 5,18:P
00B450: 52 49 4E 54 20 22 4E 65 78 74 20 49 6E 20 4C 69 RINT "Next In Li
00B460: 6E 65 20 54 6F 20 42 61 74 3A 20 22 71 24 28 6F ne To Bat: "q$(o
00B470: 28 62 2B 31 29 29 0D 0A 32 38 32 35 20 69 6B 24 (b+1))..2825 ik$
00B480: 3D 1F B9 22 4D 22 3A 5A 24 3D 22 4D 22 2B 43 48 =.."M":Z$="M"+CH
00B490: 52 24 28 32 34 29 2B 22 61 74 63 68 22 3A 49 46 R$(24)+"atch":IF
00B4A0: 20 42 3C 31 30 20 54 48 45 4E 20 69 6B 24 3D 22 B<10 THEN ik$="
00B4B0: 4D 43 22 3A 5A 24 3D 5A 24 2B 22 20 22 2B 43 48 MC":Z$=Z$+" "+CH
00B4C0: 52 24 28 32 34 29 2B 22 43 22 2B 43 48 52 24 28 R$(24)+"C"+CHR$(
00B4D0: 32 34 29 2B 22 68 61 6E 67 65 20 6F 72 64 65 72 24)+"hange order
00B4E0: 22 0D 0A 32 38 32 38 20 43 4C 53 23 32 3A 50 52 "..2828 CLS#2:PR
00B4F0: 49 4E 54 20 23 32 2C 22 20 20 20 20 20 20 22 3B INT #2," ";
00B500: 6D 24 28 33 29 3B 5A 24 3B 6D 24 28 31 29 0D 0A m$(3);Z$;m$(1)..
00B510: 32 38 33 32 20 47 4F 53 55 42 20 36 34 32 30 30 2832 GOSUB 64200
00B520: 3A 4F 4E 20 61 2B 31 20 47 4F 54 4F 20 32 38 33 :ON a+1 GOTO 283
00B530: 32 2C 32 36 30 37 2C 32 38 34 30 0D 0A 32 38 34 2,2607,2840..284
00B540: 30 20 43 4C 53 23 32 3A 49 4E 50 55 54 23 32 2C 0 CLS#2:INPUT#2,
00B550: 22 57 68 69 63 68 20 70 6C 61 79 65 72 22 3B 5A "Which player";Z
00B560: 3A 49 46 20 5A 3C 3D 42 2B 31 20 4F 52 20 5A 3E :IF Z<=B+1 OR Z>
00B570: 31 31 20 54 48 45 4E 20 32 38 32 35 0D 0A 32 38 11 THEN 2825..28
00B580: 35 30 20 A5 D7 6A 3D 4F 28 5A 29 3A 46 4F 52 20 50 ..j=O(Z):FOR
00B590: 59 3D 5A 20 54 4F 20 42 2B 31 20 53 54 45 50 20 Y=Z TO B+1 STEP
00B5A0: 2D 31 3A 4F 28 59 29 3D 4F 28 59 2D 31 29 3A 4E -1:O(Y)=O(Y-1):N
00B5B0: 45 58 54 3A 4F 28 42 2B 31 29 3D 6A 3A 46 4F 52 EXT:O(B+1)=j:FOR
00B5C0: 20 5A 3D 42 2B 31 20 54 4F 20 31 31 3A 44 24 28 Z=B+1 TO 11:D$(
00B5D0: 5A 29 3D 51 24 28 4F 28 5A 29 29 3A 44 28 5A 29 Z)=Q$(O(Z)):D(Z)
00B5E0: 3D 51 28 4F 28 5A 29 2C 31 29 3A 4E 45 58 54 3A =Q(O(Z),1):NEXT:
00B5F0: 47 4F 53 55 42 20 35 3A 47 4F 54 4F 20 32 38 30 GOSUB 5:GOTO 280
00B600: 30 0D 0A 33 30 30 30 20 4C 4F 43 41 54 45 20 32 0..3000 LOCATE 2
00B610: 35 2C 31 37 3A 50 52 49 4E 54 20 6D 24 28 31 29 5,17:PRINT m$(1)
00B620: 3B 53 50 41 43 45 24 28 31 34 29 3A 4C 4F 43 41 ;SPACE$(14):LOCA
00B630: 54 45 20 32 35 2C 31 38 3A 50 52 49 4E 54 20 6D TE 25,18:PRINT m
00B640: 24 28 31 29 3B 53 50 41 43 45 24 28 31 34 29 3A $(1);SPACE$(14):
00B650: 4C 4F 43 41 54 45 20 32 2C 32 30 3A 50 52 49 4E LOCATE 2,20:PRIN
00B660: 54 20 6D 24 28 33 29 3B 74 24 28 64 29 3B 22 20 T m$(3);t$(d);"
00B670: 44 65 63 6C 61 72 65 22 3B 0D 0A 33 31 30 30 20 Declare";..3100
00B680: 4C 4F 43 41 54 50 CD FF FF FF FF 11 54 09 E4 05 LOCATP......T...
00B690: 08 04 E2 04 66 09 01 10 08 10 00 07 01 00 2C 43 ....f.........,C
00B6A0: 43 31 41 00 00 00 00 00 00 00 00 00 00 00 00 08 C1A.............
00B6B0: 00 16 00 08 7C 9E 00 00 00 00 00 00 00 00 00 00 ....|...........
00B6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B700: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B710: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B720: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B730: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B740: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B750: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 D1 ................
00B7A0: E1 FF FF FF FF 11 53 09 E4 05 08 04 C0 04 87 09 ......S.........
00B7B0: 01 10 08 F7 0A 15 08 00 16 45 20 32 35 2C 31 39 .........E 25,19
00B7C0: 3A 50 52 49 4E 54 20 6D 24 28 31 29 3B 53 50 41 :PRINT m$(1);SPA
00B7D0: 43 45 24 28 31 34 29 3A 47 4F 53 55 42 20 31 30 CE$(14):GOSUB 10
00B7E0: 30 30 3A 49 46 20 41 59 3D 33 20 41 4E 44 20 62 00:IF AY=3 AND b
00B7F0: 61 3D 61 7A 20 54 48 45 4E 20 62 61 3D 62 61 2B a=az THEN ba=ba+
00B800: 28 64 3C 3E 31 36 29 3A 61 7A 3D 61 7A 2B 28 64 (d<>16):az=az+(d
00B810: 3D 31 36 29 3A 54 52 3D 54 52 2B 31 3A 45 58 3D =16):TR=TR+1:EX=
00B820: 45 58 2B 31 0D 0A 33 31 30 32 20 49 46 20 41 59 EX+1..3102 IF AY
00B830: 3D 32 20 41 4E 44 20 28 28 64 3C 3E 31 36 20 41 =2 AND ((d<>16 A
00B840: 4E 44 20 61 7A 3E 62 61 29 20 4F 52 20 28 64 3D ND az>ba) OR (d=
00B850: 31 36 20 41 4E 44 20 62 61 3E 61 7A 29 29 20 54 16 AND ba>az)) T
00B860: 48 45 4E 20 41 59 3D 33 0D 0A 33 31 30 33 20 43 HEN AY=3..3103 C
00B870: 4C 53 23 31 3A 50 52 49 4E 54 23 31 2C 6D 24 28 LS#1:PRINT#1,m$(
00B880: 33 29 22 20 43 20 20 43 6F 6E 74 69 6E 75 65 20 3)" C Continue
00B890: 22 6D 24 28 31 29 3A 57 48 49 4C 45 20 49 4E 4B "m$(1):WHILE INK
00B8A0: 45 59 28 36 32 29 3D 2D 31 3A 57 45 4E 44 3A 57 EY(62)=-1:WEND:W
00B8B0: 48 49 4C 45 20 49 4E 4B 45 E7 0C 59 28 36 32 29 HILE INKE..Y(62)
00B8C0: 3C 3E 2D 31 3A 57 45 4E 44 3A 43 4C 53 3A 41 59 <>-1:WEND:CLS:AY
00B8D0: 3D 41 59 2B 31 3A 49 46 20 41 59 3D 34 20 54 48 =AY+1:IF AY=4 TH
00B8E0: 45 4E 20 33 35 30 30 0D 0A 33 31 32 30 20 49 46 EN 3500..3120 IF
00B8F0: 20 41 59 3D 32 20 41 4E 44 20 28 28 64 3D 31 36 AY=2 AND ((d=16
00B900: 20 41 4E 44 20 54 52 2B 31 35 30 3C 62 61 29 20 AND TR+150<ba)
00B910: 4F 52 20 28 64 3C 3E 31 36 20 41 4E 44 20 54 52 OR (d<>16 AND TR
00B920: 2B 31 35 30 3C 61 7A 29 29 20 54 48 45 4E 20 43 +150<az)) THEN C
00B930: 4C 53 3A 4C 4F 43 41 54 45 20 37 2C 31 31 3A 50 LS:LOCATE 7,11:P
00B940: 52 49 4E 54 20 54 24 28 64 29 22 20 74 6F 20 66 RINT T$(d)" to f
00B950: 6F 6C 6C 6F 77 20 6F 6E 2E 2E 2E 22 3A 47 4F 54 ollow on...":GOT
00B960: 4F 20 32 31 31 30 0D 0A 33 31 32 35 20 49 46 20 O 2110..3125 IF
00B970: 64 3D 31 36 20 54 48 45 4E 20 64 3D 73 20 45 4C d=16 THEN d=s EL
00B980: 53 45 20 64 3D 31 36 0D 0A 33 31 33 30 20 47 4F SE d=16..3130 GO
00B990: 54 4F 20 32 31 31 30 0D 0A 33 35 30 30 20 47 4F TO 2110..3500 GO
00B9A0: 53 55 42 20 36 35 35 30 30 3A 43 4C 53 3A 49 46 SUB 65500:CLS:IF
00B9B0: 20 66 71 3E 33 30 20 54 48 45 4E 75 47 20 33 38 fq>30 THENuG 38
00B9C0: 30 30 0D 0A 33 36 30 35 20 50 52 49 4E 54 20 42 00..3605 PRINT B
00B9D0: 24 28 33 32 29 2C 2C 3A 4C 3D 49 4E 54 28 66 71 $(32),,:L=INT(fq
00B9E0: 2F 31 36 2B 31 29 3A 74 3D 73 3A 49 46 20 61 7A /16+1):t=s:IF az
00B9F0: 3E 62 61 20 54 48 45 4E 20 54 3D 31 36 0D 0A 33 >ba THEN T=16..3
00BA00: 36 31 33 20 47 4F 53 55 42 20 33 37 36 30 3A 49 613 GOSUB 3760:I
00BA10: 46 20 4C 3D 31 20 54 48 45 4E 20 4E 4A 3D 4E 4A F L=1 THEN NJ=NJ
00BA20: 2B 31 20 45 4C 53 45 20 4E 43 3D 4E 43 2B 31 3A +1 ELSE NC=NC+1:
00BA30: 58 3D 42 42 3A 59 3D 42 48 3A 54 3D 31 36 3A 47 X=BB:Y=BH:T=16:G
00BA40: 4F 53 55 42 20 33 37 34 30 3A 58 3D 42 44 3A 59 OSUB 3740:X=BD:Y
00BA50: 3D 42 49 3A 54 3D 73 3A 47 4F 53 55 42 20 33 37 =BI:T=s:GOSUB 37
00BA60: 34 30 0D 0A 33 36 34 30 20 46 4F 52 20 5A 3D 32 40..3640 FOR Z=2
00BA70: 20 54 4F 20 38 3A 54 31 3D 47 28 5A 2C 31 29 3A TO 8:T1=G(Z,1):
00BA80: 54 32 3D 47 28 5A 2C 32 29 3A 47 4F 53 55 42 20 T2=G(Z,2):GOSUB
00BA90: 34 30 30 30 3A 49 46 20 57 3D 31 20 54 48 45 4E 4000:IF W=1 THEN
00BAA0: 20 54 3D 54 31 20 45 4C 53 45 20 74 3D 74 32 0D T=T1 ELSE t=t2.
00BAB0: 0A 33 36 35 35 20 47 4F 53 55 42 20 33 1C DD 37 .3655 GOSUB 3..7
00BAC0: 36 30 3A 49 46 20 4C 3C 3E 31 20 54 48 45 4E 20 60:IF L<>1 THEN
00BAD0: 58 3D 32 30 30 2B 52 4E 44 2A 31 35 30 3A 59 3D X=200+RND*150:Y=
00BAE0: 37 2B 52 4E 44 2A 34 3A 47 4F 53 55 42 20 33 37 7+RND*4:GOSUB 37
00BAF0: 34 30 3A 54 3D 41 42 53 28 54 32 2A 28 54 3D 54 40:T=ABS(T2*(T=T
00BB00: 31 29 2B 54 31 2A 28 54 3D 54 32 29 29 3A 58 3D 1)+T1*(T=T2)):X=
00BB10: 31 30 30 2B 52 4E 44 2A 31 35 30 3A 59 3D 33 2B 100+RND*150:Y=3+
00BB20: 52 4E 44 2A 38 3A 47 4F 53 55 42 20 33 37 34 30 RND*8:GOSUB 3740
00BB30: 0D 0A 33 36 38 30 20 4E 45 58 54 0D 0A 33 36 38 ..3680 NEXT..368
00BB40: 35 20 43 48 3D 30 3A 46 4F 52 20 5A 3D 31 20 54 5 CH=0:FOR Z=1 T
00BB50: 4F 20 31 35 3A 49 46 20 50 28 4C 2C 45 28 4C 2C O 15:IF P(L,E(L,
00BB60: 5A 29 2C 32 29 3C 28 50 28 4C 2C 45 28 4C 2C 5A Z),2)<(P(L,E(L,Z
00BB70: 2B 31 29 2C 32 29 29 20 54 48 45 4E 20 54 45 4D +1),2)) THEN TEM
00BB80: 50 3D 45 28 4C 2C 5A 29 3A 45 28 4C 2C 5A 29 3D P=E(L,Z):E(L,Z)=
00BB90: 45 28 4C 2C 5A 2B 31 29 3A 45 28 4C 2C 5A 2B 31 E(L,Z+1):E(L,Z+1
00BBA0: 29 3D 54 45 4D 50 3A 43 48 3D 31 0D 0A 33 36 39 )=TEMP:CH=1..369
00BBB0: 35 20 4E 45 58 54 3A 49 46 20 43 48 3D 31 20 E0 5 NEXT:IF CH=1 .
00BBC0: 8F 54 48 45 4E 20 33 36 38 35 20 45 4C 53 45 20 .THEN 3685 ELSE
00BBD0: 37 30 30 30 0D 0A 33 37 34 30 20 59 3D 41 42 53 7000..3740 Y=ABS
00BBE0: 28 49 4E 54 28 28 59 2D 31 29 2F 32 29 29 3A 58 (INT((Y-1)/2)):X
00BBF0: 3D 49 4E 54 28 58 2F 35 30 2D 32 29 3A 49 46 20 =INT(X/50-2):IF
00BC00: 58 3E 34 20 54 48 45 4E 20 58 3D 34 20 45 4C 53 X>4 THEN X=4 ELS
00BC10: 45 20 49 46 20 58 3C 30 20 54 48 45 4E 20 58 3D E IF X<0 THEN X=
00BC20: 30 0D 0A 33 37 34 35 20 43 28 54 2C 31 29 3D 43 0..3745 C(T,1)=C
00BC30: 28 54 2C 31 29 2B 58 3A 43 28 54 2C 32 29 3D 43 (T,1)+X:C(T,2)=C
00BC40: 28 54 2C 32 29 2B 59 3A 50 28 4C 2C 54 2C 32 29 (T,2)+Y:P(L,T,2)
00BC50: 3D 50 28 4C 2C 54 2C 32 29 2B 58 2B 59 3A 52 45 =P(L,T,2)+X+Y:RE
00BC60: 54 55 52 4E 0D 0A 33 37 36 30 20 50 28 4C 2C 54 TURN..3760 P(L,T
00BC70: 2C 32 29 3D 50 28 4C 2C 54 2C 32 29 2B 32 5E 28 ,2)=P(L,T,2)+2^(
00BC80: 4C 2A 32 29 3A 50 28 4C 2C 54 2C 31 29 3D 50 28 L*2):P(L,T,1)=P(
00BC90: 4C 2C 54 2C 31 29 2B 31 3A 52 45 54 55 52 4E 0D L,T,1)+1:RETURN.
00BCA0: 0A 33 38 30 30 20 49 46 20 41 4D 3D 31 20 54 48 .3800 IF AM=1 TH
00BCB0: 45 4E 20 46 4F 52 20 5A 3D 31 20 54 4F 20 31 31 EN FOR Z=1 TO 11
00BCC0: 3A 36 44 50 24 28 73 2C 5A 29 3D 4B 24 28 5A 29 :6DP$(s,Z)=K$(Z)
00BCD0: 3A 4E 45 58 54 3A 54 24 28 73 29 3D 46 24 3A 41 :NEXT:T$(s)=F$:A
00BCE0: 4D 3D 30 0D 0A 33 38 30 31 20 49 46 20 62 61 3E M=0..3801 IF ba>
00BCF0: 61 7A 20 54 48 45 4E 20 41 4F 3D 41 4F 2B 36 2A az THEN AO=AO+6*
00BD00: 28 66 71 3D 33 31 29 3A 41 50 3D 41 50 2B 36 2A (fq=31):AP=AP+6*
00BD10: 28 66 71 3D 33 32 29 3A 66 28 71 2C 32 29 3D 32 (fq=32):f(q,2)=2
00BD20: 3A 47 4F 54 4F 20 37 30 30 30 0D 0A 33 38 30 35 :GOTO 7000..3805
00BD30: 20 56 3D 2D 28 66 71 3D 33 31 29 2D 32 2A 28 66 V=-(fq=31)-2*(f
00BD40: 71 3D 33 32 29 3A 59 3D 2D 41 4F 2A 28 56 3D 31 q=32):Y=-AO*(V=1
00BD50: 29 2D 41 50 2A 28 56 3D 32 29 3A 49 46 20 79 3C )-AP*(V=2):IF y<
00BD60: 35 20 54 48 45 4E 20 33 38 31 30 0D 0A 33 38 30 5 THEN 3810..380
00BD70: 36 20 49 46 20 66 71 3D 33 31 20 54 48 45 4E 20 6 IF fq=31 THEN
00BD80: 5A 24 3D 22 4A 2E 50 2E 22 20 45 4C 53 45 20 5A Z$="J.P." ELSE Z
00BD90: 24 3D 22 43 2E 41 2E 22 0D 0A 33 38 30 39 20 50 $="C.A."..3809 P
00BDA0: 52 49 4E 54 20 42 24 28 33 31 29 3B 5A 24 3B 22 RINT B$(31);Z$;"
00BDB0: 20 43 75 70 20 22 3B 3A 72 31 3D 32 30 30 30 30 Cup ";:r1=20000
00BDC0: 3A 47 4F 6A 8B 53 55 42 20 36 33 35 30 30 3A 7A :GOj.SUB 63500:z
00BDD0: 32 3D 7A 32 2B 32 30 30 30 30 3A 50 52 49 4E 54 2=z2+20000:PRINT
00BDE0: 3A 47 4F 54 4F 20 37 30 30 30 0D 0A 33 38 31 30 :GOTO 7000..3810
00BDF0: 20 50 52 49 4E 54 20 42 24 28 33 32 29 2C 2C 3A PRINT B$(32),,:
00BE00: 46 4F 52 20 5A 3D 31 20 54 4F 20 32 5E 28 35 2D FOR Z=1 TO 2^(5-
00BE10: 59 29 2D 31 3A 54 31 3D 58 28 56 2C 5A 2C 31 29 Y)-1:T1=X(V,Z,1)
00BE20: 3A 54 32 3D 58 28 56 2C 5A 2C 32 29 3A 47 4F 53 :T2=X(V,Z,2):GOS
00BE30: 55 42 20 34 30 30 30 3A 7A 39 39 3D 28 5A 2B 31 UB 4000:z99=(Z+1
00BE40: 29 2F 32 3A 58 28 56 2C 49 4E 54 28 7A 39 39 29 )/2:X(V,INT(z99)
00BE50: 2C 49 4E 54 28 7A 39 39 2D 49 4E 54 28 7A 39 39 ,INT(z99-INT(z99
00BE60: 29 2B 31 2E 35 29 29 3D 54 31 2A 57 2D 54 32 2A )+1.5))=T1*W-T2*
00BE70: 28 57 3D 30 29 3A 4E 45 58 54 3A 47 4F 54 4F 20 (W=0):NEXT:GOTO
00BE80: 37 30 30 30 0D 0A 34 30 30 30 20 78 3D 30 3A 59 7000..4000 x=0:Y
00BE90: 3D 30 3A 46 4F 52 20 47 3D 32 20 54 4F 20 37 3A =0:FOR G=2 TO 7:
00BEA0: 52 3D 31 2B 49 4E 54 28 52 4E 44 2A 31 31 29 3A R=1+INT(RND*11):
00BEB0: 65 3D 54 31 3A 52 5A 3D 52 3A 49 46 20 54 31 3E e=T1:RZ=R:IF T1>
00BEC0: 31 36 20 54 48 E1 67 45 4E 20 58 3D 58 2B 33 2E 16 TH.gEN X=X+3.
00BED0: 35 20 45 4C 53 45 20 4F 4E 20 67 20 47 4F 53 55 5 ELSE ON g GOSU
00BEE0: 42 20 39 30 30 32 2C 39 30 30 32 2C 39 30 30 32 B 9002,9002,9002
00BEF0: 2C 39 30 30 33 2C 39 30 30 33 2C 39 30 30 34 2C ,9003,9003,9004,
00BF00: 39 30 30 34 3A 58 3D 58 2B 6D 0D 0A 34 30 31 35 9004:X=X+m..4015
00BF10: 20 65 3D 54 32 3A 49 46 20 54 32 3E 31 36 20 54 e=T2:IF T2>16 T
00BF20: 48 45 4E 20 59 3D 59 2B 33 2E 35 20 45 4C 53 45 HEN Y=Y+3.5 ELSE
00BF30: 20 4F 4E 20 67 20 47 4F 53 55 42 20 39 30 30 32 ON g GOSUB 9002
00BF40: 2C 39 30 30 32 2C 39 30 30 32 2C 39 30 30 33 2C ,9002,9002,9003,
00BF50: 39 30 30 33 2C 39 30 30 34 2C 39 30 30 34 3A 59 9003,9004,9004:Y
00BF60: 3D 59 2B 6D 0D 0A 34 30 32 35 20 4E 45 58 54 3A =Y+m..4025 NEXT:
00BF70: 57 3D 2D 28 58 3E 59 29 3A 49 46 20 54 31 3E 31 W=-(X>Y):IF T1>1
00BF80: 36 20 54 48 45 4E 20 58 24 3D 55 24 28 54 31 2D 6 THEN X$=U$(T1-
00BF90: 31 36 29 20 45 4C 53 45 20 58 24 3D 54 24 28 54 16) ELSE X$=T$(T
00BFA0: 31 29 0D 0A 34 30 34 30 20 49 46 20 54 32 3E 31 1)..4040 IF T2>1
00BFB0: 36 20 54 48 45 4E 20 5A 24 3D 55 24 28 54 32 2D 6 THEN Z$=U$(T2-
00BFC0: 31 36 29 20 45 4C 53 5A FD FF FF FF FF 11 53 09 16) ELSZ......S.
00BFD0: E4 05 57 04 E2 04 6A 09 01 10 08 11 00 07 01 00 ..W...j.........
00BFE0: 2C 43 43 31 41 00 00 00 00 00 00 00 00 00 00 00 ,CC1A...........
00BFF0: 00 09 00 16 00 08 7C 9E 00 00 00 00 00 00 00 00 ......|.........
00C000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C0A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C0B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C0C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C0D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C0E0: 00 36 EA FF FF FF FF 11 54 09 E4 05 08 04 BF 04 .6......T.......
00C0F0: 88 09 01 10 08 F5 0A 15 08 00 16 45 20 5A 24 3D ...........E Z$=
00C100: 54 24 28 54 32 29 0D 0A 34 30 35 30 20 50 52 49 T$(T2)..4050 PRI
00C110: 4E 54 20 54 41 42 28 31 30 29 3B 3A 49 46 20 57 NT TAB(10);:IF W
00C120: 3D 31 20 54 48 45 4E 20 50 52 49 4E 54 20 58 24 =1 THEN PRINT X$
00C130: 3B 22 20 20 62 74 20 20 22 3B 5A 24 20 45 4C 53 ;" bt ";Z$ ELS
00C140: 45 20 50 52 49 4E 54 20 5A 24 3B 22 20 20 62 74 E PRINT Z$;" bt
00C150: 20 20 22 3B 58 24 0D 0A 34 30 35 35 20 52 45 54 ";X$..4055 RET
00C160: 55 52 4E 0D 0A 34 35 30 30 20 50 52 49 4E 54 20 URN..4500 PRINT
00C170: 42 24 28 33 37 29 3A 4C 3D 31 3A 50 52 49 4E 54 B$(37):L=1:PRINT
00C180: 3A 50 52 49 4E 54 20 54 41 42 28 31 37 29 3B 4D :PRINT TAB(17);M
00C190: 24 28 34 29 3B 42 24 28 31 29 3A 4E 3D 4E 4A 3A $(4);B$(1):N=NJ:
00C1A0: 47 4F 53 55 42 20 34 36 30 30 3A 50 3D 32 34 3A GOSUB 4600:P=24:
00C1B0: 47 4F 53 55 42 20 34 36 35 30 3A 47 4F 54 4F 20 GOSUB 4650:GOTO
00C1C0: 39 30 35 30 0D 0A 34 35 31 30 20 50 52 49 4E 54 9050..4510 PRINT
00C1D0: 20 42 24 28 32 38 29 3A 4C 3D 32 3A 50 52 49 4E B$(28):L=2:PRIN
00C1E0: 54 20 54 41 42 28 31 35 29 42 24 28 32 39 29 3A T TAB(15)B$(29):
00C1F0: 4E 3D 4E 43 3A 47 4F 53 55 42 20 88 6B 34 36 30 N=NC:GOSUB .k460
00C200: 30 3A 46 4F 52 20 5A 3D 31 20 54 4F 20 31 36 3A 0:FOR Z=1 TO 16:
00C210: 4C 4F 43 41 54 45 20 32 36 2C 5A 2B 34 3A 50 52 LOCATE 26,Z+4:PR
00C220: 49 4E 54 20 6D 24 28 31 2D 28 72 61 3D 7A 29 2A INT m$(1-(ra=z)*
00C230: 32 29 55 53 49 4E 47 22 23 23 23 20 23 23 23 20 2)USING"### ###
00C240: 23 23 23 22 3B 43 28 45 28 4C 2C 5A 29 2C 31 29 ###";C(E(L,Z),1)
00C250: 2C 43 28 45 28 4C 2C 5A 29 2C 32 29 2C 50 28 4C ,C(E(L,Z),2),P(L
00C260: 2C 45 28 4C 2C 5A 29 2C 32 29 3B 3A 50 52 49 4E ,E(L,Z),2);:PRIN
00C270: 54 20 6D 24 28 31 29 3B 3A 4E 45 58 54 3A 47 4F T m$(1);:NEXT:GO
00C280: 54 4F 20 39 30 35 30 0D 0A 34 36 30 30 20 72 61 TO 9050..4600 ra
00C290: 3D 30 3A 46 4F 52 20 5A 3D 31 20 54 4F 20 31 36 =0:FOR Z=1 TO 16
00C2A0: 3A 49 46 20 41 4D 3D 31 20 41 4E 44 20 45 28 4C :IF AM=1 AND E(L
00C2B0: 2C 5A 29 3D 31 20 54 48 45 4E 20 58 24 3D 46 24 ,Z)=1 THEN X$=F$
00C2C0: 20 45 4C 53 45 20 58 24 3D 54 24 28 45 28 4C 2C ELSE X$=T$(E(L,
00C2D0: 5A 29 29 0D 0A 34 36 30 35 20 49 46 20 78 24 3D Z))..4605 IF x$=
00C2E0: 74 24 28 31 36 29 20 54 48 45 4E 20 72 61 3D 7A t$(16) THEN ra=z
00C2F0: 0D 0A 34 36 31 30 20 4C 4F 43 41 54 45 E5 BC 20 ..4610 LOCATE..
00C300: 36 2C 5A 2B 34 3A 50 52 49 4E 54 20 6D 24 28 31 6,Z+4:PRINT m$(1
00C310: 2D 28 72 61 3D 7A 29 2A 32 29 55 53 49 4E 47 22 -(ra=z)*2)USING"
00C320: 5C 20 20 20 20 20 20 20 5C 20 20 20 23 23 20 20 \ \ ##
00C330: 23 23 22 3B 58 24 2C 50 28 4C 2C 45 28 4C 2C 5A ##";X$,P(L,E(L,Z
00C340: 29 2C 31 29 2C 4E 2D 50 28 4C 2C 45 28 4C 2C 5A ),1),N-P(L,E(L,Z
00C350: 29 2C 31 29 3B 3A 50 52 49 4E 54 20 6D 24 28 31 ),1);:PRINT m$(1
00C360: 29 3B 3A 4E 45 58 54 3A 52 45 54 55 52 4E 0D 0A );:NEXT:RETURN..
00C370: 34 36 35 30 20 46 4F 52 20 5A 3D 31 20 54 4F 20 4650 FOR Z=1 TO
00C380: 31 36 3A 4C 4F 43 41 54 45 20 50 2B 35 2C 5A 2B 16:LOCATE P+5,Z+
00C390: 34 3A 50 52 49 4E 54 20 6D 24 28 31 2D 28 72 61 4:PRINT m$(1-(ra
00C3A0: 3D 7A 29 2A 32 29 55 53 49 4E 47 22 23 23 23 22 =z)*2)USING"###"
00C3B0: 3B 50 28 4C 2C 45 28 4C 2C 5A 29 2C 32 29 3A 50 ;P(L,E(L,Z),2):P
00C3C0: 52 49 4E 54 20 6D 24 28 31 29 3B 3A 4E 45 58 54 RINT m$(1);:NEXT
00C3D0: 3A 52 45 54 55 52 4E 0D 0A 37 30 30 30 20 50 52 :RETURN..7000 PR
00C3E0: 49 4E 54 20 2C 2C 2C 54 41 42 28 31 34 29 3B 6D INT ,,,TAB(14);m
00C3F0: 24 28 36 29 3B 22 20 57 65 65 6B 6C 79 20 6E 86 $(6);" Weekly n.
00C400: E1 65 77 73 20 22 3B 6D 24 28 31 29 3A 46 4F 52 .ews ";m$(1):FOR
00C410: 20 5A 3D 31 20 54 4F 20 31 36 3A 49 46 20 45 28 Z=1 TO 16:IF E(
00C420: 31 2C 5A 29 3D 31 36 20 54 48 45 4E 20 58 3D 5A 1,Z)=16 THEN X=Z
00C430: 0D 0A 37 30 32 34 20 49 46 20 45 28 32 2C 5A 29 ..7024 IF E(2,Z)
00C440: 3D 31 36 20 54 48 45 4E 20 59 3D 5A 0D 0A 37 30 =16 THEN Y=Z..70
00C450: 32 35 20 4E 45 58 54 3A 66 28 71 2C 32 29 3D 31 25 NEXT:f(q,2)=1
00C460: 2D 28 61 7A 3C 62 61 29 0D 0A 37 30 35 34 20 49 -(az<ba)..7054 I
00C470: 46 20 49 4E 54 28 52 4E 44 2A 39 29 3D 33 20 54 F INT(RND*9)=3 T
00C480: 48 45 4E 20 6A 3D 35 30 30 30 2B 52 4E 44 2A 35 HEN j=5000+RND*5
00C490: 30 30 30 3A 50 52 49 4E 54 20 54 41 42 28 35 29 000:PRINT TAB(5)
00C4A0: 3B 55 53 49 4E 47 20 7A 62 24 3B 42 24 28 33 34 ;USING zb$;B$(34
00C4B0: 29 2C 6A 0D 0A 37 30 35 36 20 7A 32 3D 7A 32 2B ),j..7056 z2=z2+
00C4C0: 6A 3A 49 46 20 7A 32 3C 30 20 54 48 45 4E 20 7A j:IF z2<0 THEN z
00C4D0: 32 3D 30 0D 0A 37 30 35 38 20 50 52 49 4E 54 20 2=0..7058 PRINT
00C4E0: 54 41 42 28 32 33 29 3B 3A 47 4F 53 55 42 20 39 TAB(23);:GOSUB 9
00C4F0: 30 37 30 3A 46 4F 52 20 5A 3D 31 20 54 4F 20 33 070:FOR Z=1 TO 3
00C500: 3A BE 48 49 46 20 4D 28 73 2C 5A 29 3C 3E 30 20 :.HIF M(s,Z)<>0
00C510: 54 48 45 4E 20 47 4F 53 55 42 20 39 39 35 3A 50 THEN GOSUB 995:P
00C520: 24 28 73 2C 4D 28 73 2C 5A 29 29 3D 5A 24 0D 0A $(s,M(s,Z))=Z$..
00C530: 37 30 37 36 20 4E 45 58 54 3A 49 46 20 49 4E 54 7076 NEXT:IF INT
00C540: 28 52 4E 44 2A 32 30 29 3C 3E 33 20 4F 52 20 4E (RND*20)<>3 OR N
00C550: 57 3C 31 32 20 54 48 45 4E 20 38 30 30 32 0D 0A W<12 THEN 8002..
00C560: 37 31 31 30 20 50 4C 3D 31 2B 52 4E 44 2A 4E 57 7110 PL=1+RND*NW
00C570: 3A 50 52 49 4E 54 20 54 41 42 28 36 29 51 24 28 :PRINT TAB(6)Q$(
00C580: 4F 28 50 4C 29 29 22 20 68 61 73 20 72 65 74 69 O(PL))" has reti
00C590: 72 65 64 2E 22 3A 47 4F 53 55 42 20 31 31 35 38 red.":GOSUB 1158
00C5A0: 3A 47 4F 54 4F 20 38 30 30 32 0D 0A 37 39 30 30 :GOTO 8002..7900
00C5B0: 20 45 52 41 53 45 20 74 3A 44 49 4D 20 54 28 33 ERASE t:DIM T(3
00C5C0: 32 29 3A 52 3D 31 37 2B 49 4E 54 28 52 4E 44 2A 2):R=17+INT(RND*
00C5D0: 31 35 29 3A 58 28 56 2C 31 36 2C 31 29 3D 52 3A 15):X(V,16,1)=R:
00C5E0: 54 28 52 29 3D 31 3A 46 4F 52 20 5A 3D 31 20 54 T(R)=1:FOR Z=1 T
00C5F0: 4F 20 31 35 0D 0A 37 39 30 35 20 52 3D 31 2B 49 O 15..7905 R=1+I
00C600: 4E 54 28 55 B9 52 4E 44 2A 31 35 29 3A 49 46 20 NT(U.RND*15):IF
00C610: 54 28 52 29 3D 31 20 54 48 45 4E 20 37 39 30 35 T(R)=1 THEN 7905
00C620: 20 45 4C 53 45 20 54 28 52 29 3D 31 3A 58 28 56 ELSE T(R)=1:X(V
00C630: 2C 5A 2C 31 29 3D 52 0D 0A 37 39 31 35 20 52 3D ,Z,1)=R..7915 R=
00C640: 31 37 2B 49 4E 54 28 52 4E 44 2A 31 36 29 3A 49 17+INT(RND*16):I
00C650: 46 20 54 28 52 29 3D 31 20 54 48 45 4E 20 37 39 F T(R)=1 THEN 79
00C660: 31 35 20 45 4C 53 45 20 54 28 52 29 3D 31 3A 58 15 ELSE T(R)=1:X
00C670: 28 56 2C 5A 2C 32 29 3D 52 3A 4E 45 58 54 3A 52 (V,Z,2)=R:NEXT:R
00C680: 45 54 55 52 4E 0D 0A 38 30 30 32 20 52 41 4E 44 ETURN..8002 RAND
00C690: 4F 4D 49 5A 45 20 54 49 4D 45 3A 46 4F 52 20 7A OMIZE TIME:FOR z
00C6A0: 3D 31 20 54 4F 20 31 31 3A 47 4F 53 55 42 20 31 =1 TO 11:GOSUB 1
00C6B0: 38 3A 4E 45 58 54 0D 0A 38 30 30 33 20 47 4F 53 8:NEXT..8003 GOS
00C6C0: 55 42 20 31 30 31 34 3A 47 4F 53 55 42 20 32 39 UB 1014:GOSUB 29
00C6D0: 0D 0A 38 32 35 30 20 49 46 20 79 70 3D 30 20 4F ..8250 IF yp=0 O
00C6E0: 52 20 6E 77 2B 6E 76 3D 32 30 20 54 48 45 4E 20 R nw+nv=20 THEN
00C6F0: 38 33 30 30 0D 0A 38 32 35 32 20 49 46 20 49 4E 8300..8252 IF IN
00C700: 54 28 52 4E 44 C2 F8 2A 32 30 29 3E 31 39 20 54 T(RND..*20)>19 T
00C710: 48 45 4E 20 50 52 49 4E 54 20 54 41 42 28 36 29 HEN PRINT TAB(6)
00C720: 59 24 28 31 29 22 20 6D 61 6B 65 73 20 66 69 72 Y$(1)" makes fir
00C730: 73 74 20 73 71 75 61 64 2E 22 3A 47 4F 53 55 42 st squad.":GOSUB
00C740: 20 31 35 36 30 3A 6E 77 3D 6E 77 2B 31 3A 6F 28 1560:nw=nw+1:o(
00C750: 6E 77 29 3D 6A 3A 71 24 28 6F 28 6E 77 29 29 3D nw)=j:q$(o(nw))=
00C760: 79 24 28 31 29 3A 46 4F 52 20 79 3D 31 20 54 4F y$(1):FOR y=1 TO
00C770: 20 36 3A 71 28 6F 28 6E 77 29 2C 79 29 3D 79 28 6:q(o(nw),y)=y(
00C780: 31 2C 79 29 3A 4E 45 58 54 3A 79 70 3D 79 70 2D 1,y):NEXT:yp=yp-
00C790: 31 3A 46 4F 52 20 7A 3D 31 20 54 4F 20 79 70 3A 1:FOR z=1 TO yp:
00C7A0: 79 24 28 7A 29 3D 79 24 28 7A 2B 31 29 3A 46 4F y$(z)=y$(z+1):FO
00C7B0: 52 20 79 3D 31 20 54 4F 20 36 3A 79 28 7A 2C 79 R y=1 TO 6:y(z,y
00C7C0: 29 3D 79 28 7A 2B 31 2C 79 29 3A 4E 45 58 54 20 )=y(z+1,y):NEXT
00C7D0: 79 2C 7A 0D 0A 38 33 30 30 20 46 4F 52 20 7A 3D y,z..8300 FOR z=
00C7E0: 31 20 54 4F 20 33 3A 73 28 7A 29 3D 73 28 7A 2B 1 TO 3:s(z)=s(z+
00C7F0: 31 29 3A 4E 45 58 54 3A 74 74 3D 73 28 31 29 2B 1):NEXT:tt=s(1)+
00C800: 73 28 32 29 2B 73 28 11 07 33 29 2B 73 28 34 29 s(2)+s(..3)+s(4)
00C810: 3A 49 46 20 74 74 3E 37 39 20 54 48 45 4E 20 38 :IF tt>79 THEN 8
00C820: 33 31 39 0D 0A 38 33 31 35 20 49 46 20 74 74 3C 319..8315 IF tt<
00C830: 33 37 20 54 48 45 4E 20 68 3D 30 3A 79 3D 31 3A 37 THEN h=0:y=1:
00C840: 47 4F 54 4F 20 38 33 32 30 0D 0A 38 33 31 36 20 GOTO 8320..8316
00C850: 72 66 3D 49 4E 54 28 52 4E 44 2A 28 38 30 2D 74 rf=INT(RND*(80-t
00C860: 74 29 29 3A 49 46 20 72 3C 3E 30 20 54 48 45 4E t)):IF r<>0 THEN
00C870: 20 38 33 34 30 0D 0A 38 33 31 39 20 68 3D 31 30 8340..8319 h=10
00C880: 3A 79 3D 2D 31 0D 0A 38 33 32 30 20 72 3D 31 2B :y=-1..8320 r=1+
00C890: 49 4E 54 28 52 4E 44 2A 6E 77 29 3A 46 4F 52 20 INT(RND*nw):FOR
00C8A0: 7A 3D 31 20 54 4F 20 33 3A 49 46 20 28 71 28 6F z=1 TO 3:IF (q(o
00C8B0: 28 72 29 2C 7A 29 2A 79 29 3E 28 68 2A 79 29 20 (r),z)*y)>(h*y)
00C8C0: 54 48 45 4E 20 68 3D 71 28 6F 28 72 29 2C 7A 29 THEN h=q(o(r),z)
00C8D0: 3A 78 3D 7A 0D 0A 38 33 32 34 20 4E 45 58 54 3A :x=z..8324 NEXT:
00C8E0: 49 46 20 28 71 28 6F 28 72 29 2C 78 29 2A 79 29 IF (q(o(r),x)*y)
00C8F0: 3E 28 2D 38 2A 28 79 3D 2D 31 29 2B 79 29 20 54 >(-8*(y=-1)+y) T
00C900: 48 45 4E 20 71 28 6F 28 72 FC 82 FF FF FF FF 11 HEN q(o(r.......
00C910: 54 09 95 05 57 04 E2 04 66 09 01 10 08 10 00 07 T...W...f.......
00C920: 01 00 2C 43 43 31 41 00 00 00 00 00 00 00 00 00 ..,CC1A.........
00C930: 00 00 00 0A 00 16 00 08 7C 9E 00 00 00 00 00 00 ........|.......
00C940: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C950: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00CA00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00CA10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00CA20: 00 00 00 0F D6 FF FF FF FF 11 53 09 E4 05 57 04 ..........S...W.
00CA30: C0 04 86 09 01 10 08 F4 0A 15 08 00 16 29 2C 78 .............),x
00CA40: 29 3D 71 28 6F 28 72 29 2C 78 29 2D 79 0D 0A 38 )=q(o(r),x)-y..8
00CA50: 33 34 30 20 7A 3D 72 3A 47 4F 53 55 42 20 31 30 340 z=r:GOSUB 10
00CA60: 31 34 3A 47 4F 53 55 42 20 38 34 33 30 0D 0A 38 14:GOSUB 8430..8
00CA70: 33 35 30 20 71 3D 71 2B 31 3A 49 46 20 71 3C 34 350 q=q+1:IF q<4
00CA80: 31 20 54 48 45 4E 20 38 34 30 30 20 45 4C 53 45 1 THEN 8400 ELSE
00CA90: 20 50 52 49 4E 54 2C 2C 2C 2C 2C 54 41 42 28 31 PRINT,,,,,TAB(1
00CAA0: 34 29 22 45 6E 64 20 6F 66 20 73 65 61 73 6F 6E 4)"End of season
00CAB0: 22 2C 2C 3A 49 46 20 45 28 31 2C 31 29 3D 31 36 ",,:IF E(1,1)=16
00CAC0: 20 54 48 45 4E 20 50 52 49 4E 54 20 54 41 42 28 THEN PRINT TAB(
00CAD0: 35 29 22 4A 50 20 4C 65 61 67 75 65 20 63 68 61 5)"JP League cha
00CAE0: 6D 70 69 6F 6E 73 20 22 3B 3A 72 31 3D 31 35 30 mpions ";:r1=150
00CAF0: 30 30 3A 47 4F 53 55 42 20 36 33 35 30 30 3A 7A 00:GOSUB 63500:z
00CB00: 32 3D 7A 32 2B 31 35 30 30 30 0D 0A 38 33 35 36 2=z2+15000..8356
00CB10: 20 50 52 49 4E 54 3A 49 46 20 45 28 32 2C 31 29 PRINT:IF E(2,1)
00CB20: 3D 31 36 20 54 48 45 4E 20 50 52 49 4E 54 20 54 =16 THEN PRINT T
00CB30: 41 42 28 35 29 22 43 41 20 4C 65 61 67 2A 89 75 AB(5)"CA Leag*.u
00CB40: 65 20 63 68 61 6D 70 69 6F 6E 73 20 22 3B 3A 72 e champions ";:r
00CB50: 31 3D 31 35 30 30 30 3A 47 4F 53 55 42 20 36 33 1=15000:GOSUB 63
00CB60: 35 30 30 3A 7A 32 3D 7A 32 2B 31 35 30 30 30 0D 500:z2=z2+15000.
00CB70: 0A 38 33 35 38 20 47 4F 53 55 42 20 39 30 36 30 .8358 GOSUB 9060
00CB80: 3A 46 4F 52 20 5A 3D 31 20 54 4F 20 4E 57 3A 6A :FOR Z=1 TO NW:j
00CB90: 3D 52 4E 44 2A 35 2F 31 30 3A 46 4F 52 20 49 3D =RND*5/10:FOR I=
00CBA0: 31 20 54 4F 20 33 3A 51 28 4F 28 5A 29 2C 49 29 1 TO 3:Q(O(Z),I)
00CBB0: 3D 51 28 4F 28 5A 29 2C 49 29 2D 6A 3A 4E 45 58 =Q(O(Z),I)-j:NEX
00CBC0: 54 3A 47 4F 53 55 42 20 31 30 31 34 3A 4E 45 58 T:GOSUB 1014:NEX
00CBD0: 54 3A 47 4F 53 55 42 20 38 33 37 30 3A 47 4F 54 T:GOSUB 8370:GOT
00CBE0: 4F 20 38 34 30 30 0D 0A 38 34 30 30 20 41 51 3D O 8400..8400 AQ=
00CBF0: 30 3A 47 4F 54 4F 20 38 35 32 35 0D 0A 38 34 31 0:GOTO 8525..841
00CC00: 30 20 47 4F 53 55 42 20 38 34 31 31 3A 47 4F 54 0 GOSUB 8411:GOT
00CC10: 4F 20 38 34 32 35 0D 0A 38 34 31 31 20 46 4F 52 O 8425..8411 FOR
00CC20: 20 49 3D 31 20 54 4F 20 33 3A 4D 28 73 2C 49 29 I=1 TO 3:M(s,I)
00CC30: 3D 30 3A 4E 45 58 54 3A 6A 3D 52 4E 44 2A 33 A6 =0:NEXT:j=RND*3.
00CC40: 0F 3A 49 46 20 6A 3D 30 20 54 48 45 4E 20 52 45 .:IF j=0 THEN RE
00CC50: 54 55 52 4E 0D 0A 38 34 32 35 20 49 46 20 71 3E TURN..8425 IF q>
00CC60: 31 20 54 48 45 4E 20 50 52 49 4E 54 3A 47 4F 53 1 THEN PRINT:GOS
00CC70: 55 42 20 39 30 34 30 0D 0A 38 34 32 36 20 47 4F UB 9040..8426 GO
00CC80: 54 4F 20 35 30 30 0D 0A 38 34 33 30 20 46 4F 52 TO 500..8430 FOR
00CC90: 20 5A 3D 31 20 54 4F 20 35 3A 49 46 20 69 28 7A Z=1 TO 5:IF i(z
00CCA0: 2C 34 29 3D 30 20 54 48 45 4E 20 38 34 34 35 20 ,4)=0 THEN 8445
00CCB0: 45 4C 53 45 20 49 46 20 49 28 5A 2C 34 29 3D 31 ELSE IF I(Z,4)=1
00CCC0: 33 20 54 48 45 4E 20 49 28 5A 2C 34 29 3D 30 0D 3 THEN I(Z,4)=0.
00CCD0: 0A 38 34 33 35 20 49 46 20 49 28 5A 2C 34 29 3E .8435 IF I(Z,4)>
00CCE0: 30 20 54 48 45 4E 20 49 28 5A 2C 34 29 3D 49 28 0 THEN I(Z,4)=I(
00CCF0: 5A 2C 34 29 2D 31 0D 0A 38 34 34 30 20 49 46 20 Z,4)-1..8440 IF
00CD00: 49 28 5A 2C 34 29 3D 30 20 54 48 45 4E 20 47 4F I(Z,4)=0 THEN GO
00CD10: 53 55 42 20 31 35 36 30 3A 4E 56 3D 4E 56 2D 31 SUB 1560:NV=NV-1
00CD20: 3A 4E 57 3D 4E 57 2B 31 3A 4F 28 4E 57 29 3D 6A :NW=NW+1:O(NW)=j
00CD30: 3A 51 24 28 4F 28 4E 57 29 29 3D 49 24 28 5A 29 :Q$(O(NW))=I$(Z)
00CD40: 3A 67 36 46 4F 52 20 59 3D 31 20 54 4F 20 33 3A :g6FOR Y=1 TO 3:
00CD50: 51 28 4F 28 4E 57 29 2C 59 29 3D 49 28 5A 2C 59 Q(O(NW),Y)=I(Z,Y
00CD60: 29 3A 4E 45 58 54 0D 0A 38 34 34 35 20 4E 45 58 ):NEXT..8445 NEX
00CD70: 54 3A 45 52 41 53 45 20 74 3A 44 49 4D 20 54 28 T:ERASE t:DIM T(
00CD80: 32 30 29 3A 49 44 3D 30 3A 49 46 20 4E 57 3C 31 20):ID=0:IF NW<1
00CD90: 32 20 54 48 45 4E 20 7A 3D 39 38 3A 47 4F 54 4F 2 THEN z=98:GOTO
00CDA0: 20 38 35 32 35 0D 0A 38 34 35 31 20 46 4F 52 20 8525..8451 FOR
00CDB0: 5A 3D 31 20 54 4F 20 35 3A 49 46 20 49 28 5A 2C Z=1 TO 5:IF I(Z,
00CDC0: 34 29 3C 3E 30 20 4F 52 20 49 4E 54 28 52 4E 44 4)<>0 OR INT(RND
00CDD0: 2A 33 30 30 29 3E 32 30 20 54 48 45 4E 20 38 34 *300)>20 THEN 84
00CDE0: 37 38 0D 0A 38 34 35 39 20 49 46 20 28 52 3C 31 78..8459 IF (R<1
00CDF0: 33 29 20 4F 52 20 28 49 44 3D 31 29 20 54 48 45 3) OR (ID=1) THE
00CE00: 4E 20 38 34 36 38 0D 0A 38 34 36 30 20 6A 3D 30 N 8468..8460 j=0
00CE10: 3A 52 3D 31 33 3A 46 4F 52 20 58 3D 31 20 54 4F :R=13:FOR X=1 TO
00CE20: 20 4E 57 3A 49 46 20 54 28 58 29 3C 3E 31 20 54 NW:IF T(X)<>1 T
00CE30: 48 45 4E 20 49 46 20 28 51 28 4F 28 58 29 2C 31 HEN IF (Q(O(X),1
00CE40: 29 2B 51 7F 60 28 4F 28 58 29 2C 32 29 2B 51 28 )+Q.`(O(X),2)+Q(
00CE50: 4F 28 58 29 2C 33 29 29 3E 32 34 20 54 48 45 4E O(X),3))>24 THEN
00CE60: 20 6A 3D 58 3A 58 3D 32 31 0D 0A 38 34 36 36 20 j=X:X=21..8466
00CE70: 4E 45 58 54 3A 49 46 20 6A 3D 30 20 54 48 45 4E NEXT:IF j=0 THEN
00CE80: 20 38 34 37 38 0D 0A 38 34 36 37 20 58 3D 6A 3A 8478..8467 X=j:
00CE90: 49 44 3D 31 3A 50 4C 3D 58 3A 50 52 49 4E 54 20 ID=1:PL=X:PRINT
00CEA0: 54 41 42 28 36 29 51 24 28 4F 28 50 4C 29 29 42 TAB(6)Q$(O(PL))B
00CEB0: 24 28 33 33 29 3A 58 3D 30 3A 47 4F 54 4F 20 38 $(33):X=0:GOTO 8
00CEC0: 34 37 30 0D 0A 38 34 36 38 20 50 4C 3D 31 2B 52 470..8468 PL=1+R
00CED0: 4E 44 2A 4E 57 3A 50 52 49 4E 54 20 54 41 42 28 ND*NW:PRINT TAB(
00CEE0: 36 29 51 24 28 4F 28 50 4C 29 29 22 20 69 6E 6A 6)Q$(O(PL))" inj
00CEF0: 75 72 65 64 2E 22 3A 58 3D 31 20 20 20 20 20 20 ured.":X=1
00CF00: 20 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 38 ..8
00CF10: 34 37 30 20 49 24 28 5A 29 3D 51 24 28 4F 28 50 470 I$(Z)=Q$(O(P
00CF20: 4C 29 29 3A 46 4F 52 20 59 3D 31 20 54 4F 20 33 L)):FOR Y=1 TO 3
00CF30: 3A 49 28 5A 2C 59 29 3D 51 28 4F 28 50 4C 29 2C :I(Z,Y)=Q(O(PL),
00CF40: 59 29 2B 58 2A EB 63 28 51 28 4F 28 50 4C 29 2C Y)+X*.c(Q(O(PL),
00CF50: 59 29 3E 31 29 3A 4E 45 58 54 3A 4E 56 3D 4E 56 Y)>1):NEXT:NV=NV
00CF60: 2B 31 3A 47 4F 53 55 42 20 31 31 35 38 3A 49 28 +1:GOSUB 1158:I(
00CF70: 5A 2C 34 29 3D 52 3A 54 28 50 4C 29 3D 31 0D 0A Z,4)=R:T(PL)=1..
00CF80: 38 34 37 38 20 4E 45 58 54 3A 49 46 20 69 3C 39 8478 NEXT:IF i<9
00CF90: 39 20 54 48 45 4E 20 52 45 54 55 52 4E 0D 0A 38 9 THEN RETURN..8
00CFA0: 35 32 35 20 66 71 3D 66 28 71 2C 31 29 3A 52 41 525 fq=f(q,1):RA
00CFB0: 4E 44 4F 4D 49 5A 45 20 54 49 4D 45 3A 49 46 20 NDOMIZE TIME:IF
00CFC0: 66 71 3E 33 30 20 54 48 45 4E 20 38 36 30 30 0D fq>30 THEN 8600.
00CFD0: 0A 38 35 33 32 20 73 3D 66 71 3A 49 46 20 73 3E .8532 s=fq:IF s>
00CFE0: 31 35 20 54 48 45 4E 20 73 3D 73 2D 31 35 0D 0A 15 THEN s=s-15..
00CFF0: 38 35 34 30 20 41 52 3D 30 3A 59 31 3D 31 3A 7A 8540 AR=0:Y1=1:z
00D000: 38 3D 28 73 2B 31 36 29 2F 32 3A 49 46 20 7A 38 8=(s+16)/2:IF z8
00D010: 2D 49 4E 54 28 7A 38 29 3C 3E 30 20 54 48 45 4E -INT(z8)<>0 THEN
00D020: 20 7A 38 3D 49 4E 54 28 7A 38 29 2B 31 3A 41 52 z8=INT(z8)+1:AR
00D030: 3D 31 0D 0A 38 35 34 35 20 46 4F 52 20 7A 3D 31 =1..8545 FOR z=1
00D040: 36 20 54 4F 20 7A 38 0B DC 20 53 54 45 50 20 2D 6 TO z8.. STEP -
00D050: 31 3A 67 28 79 31 2C 31 29 3D 7A 3A 79 31 3D 79 1:g(y1,1)=z:y1=y
00D060: 31 2D 28 79 31 3C 39 29 3A 4E 45 58 54 3A 59 32 1-(y1<9):NEXT:Y2
00D070: 3D 59 31 2D 31 2B 28 61 72 3D 30 29 0D 0A 38 35 =Y1-1+(ar=0)..85
00D080: 35 35 20 46 4F 52 20 59 3D 59 32 20 54 4F 20 31 55 FOR Y=Y2 TO 1
00D090: 20 53 54 45 50 20 2D 31 3A 47 28 59 2C 32 29 3D STEP -1:G(Y,2)=
00D0A0: 5A 3A 5A 3D 5A 2D 31 3A 4E 45 58 54 3A 49 46 20 Z:Z=Z-1:NEXT:IF
00D0B0: 79 31 3C 38 20 54 48 45 4E 20 46 4F 52 20 59 3D y1<8 THEN FOR Y=
00D0C0: 59 31 20 54 4F 20 38 3A 47 28 59 2C 31 29 3D 5A Y1 TO 8:G(Y,1)=Z
00D0D0: 3A 5A 3D 5A 2D 31 3A 4E 45 58 54 0D 0A 38 35 36 :Z=Z-1:NEXT..856
00D0E0: 33 20 49 46 20 41 52 3D 30 20 54 48 45 4E 20 59 3 IF AR=0 THEN Y
00D0F0: 31 3D 38 3A 59 32 3D 31 3A 47 4F 54 4F 20 38 35 1=8:Y2=1:GOTO 85
00D100: 37 30 0D 0A 38 35 36 35 20 59 31 3D 37 3A 59 32 70..8565 Y1=7:Y2
00D110: 3D 32 3A 49 46 20 73 3C 3E 31 20 54 48 45 4E 20 =2:IF s<>1 THEN
00D120: 47 28 38 2C 32 29 3D 31 0D 0A 38 35 37 30 20 46 G(8,2)=1..8570 F
00D130: 4F 52 20 5A 3D 5A 20 54 4F 20 59 32 20 53 54 45 OR Z=Z TO Y2 STE
00D140: 50 20 2D 31 3A 47 28 59 31 A3 78 2C 32 29 3D 5A P -1:G(Y1£x,2)=Z
00D150: 3A 59 31 3D 59 31 2D 31 3A 4E 45 58 54 3A 47 4F :Y1=Y1-1:NEXT:GO
00D160: 54 4F 20 38 36 35 30 0D 0A 38 36 30 30 20 49 46 TO 8650..8600 IF
00D170: 20 28 66 71 3D 33 31 20 41 4E 44 20 41 4F 3C 30 (fq=31 AND AO<0
00D180: 29 20 4F 52 20 28 66 71 3D 33 32 20 41 4E 44 20 ) OR (fq=32 AND
00D190: 41 50 3C 30 29 20 54 48 45 4E 20 71 3D 71 2B 31 AP<0) THEN q=q+1
00D1A0: 3A 47 4F 54 4F 20 38 33 35 30 0D 0A 38 36 30 32 :GOTO 8350..8602
00D1B0: 20 49 46 20 66 71 3D 33 31 20 54 48 45 4E 20 41 IF fq=31 THEN A
00D1C0: 4F 3D 41 4F 2B 31 3A 43 3D 41 4F 3A 56 3D 31 3A O=AO+1:C=AO:V=1:
00D1D0: 47 4F 53 55 42 20 38 36 32 30 3A 47 4F 54 4F 20 GOSUB 8620:GOTO
00D1E0: 38 36 35 30 0D 0A 38 36 30 33 20 41 50 3D 41 50 8650..8603 AP=AP
00D1F0: 2B 31 3A 43 3D 41 50 3A 56 3D 32 3A 47 4F 53 55 +1:C=AP:V=2:GOSU
00D200: 42 20 38 36 32 30 3A 47 4F 54 4F 20 38 36 35 30 B 8620:GOTO 8650
00D210: 0D 0A 38 36 32 30 20 49 46 20 43 3D 31 20 54 48 ..8620 IF C=1 TH
00D220: 45 4E 20 47 4F 53 55 42 20 37 39 30 30 0D 0A 38 EN GOSUB 7900..8
00D230: 36 32 35 20 73 3D 58 28 56 2C 32 5E 28 35 2D 43 625 s=X(V,2^(5-C
00D240: 29 2C 31 29 0D 0A 38 36 33 30 20 AA B4 FF FF FF ),1)..8630 .....
00D250: FF 11 53 09 E4 05 08 04 E2 04 66 09 01 10 08 11 ..S.......f.....
00D260: 00 07 01 00 2C 43 43 31 41 00 00 00 00 00 00 00 ....,CC1A.......
00D270: 00 00 00 00 00 0B 00 16 00 08 7C 9E 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: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D310: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D320: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D330: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D340: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D350: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D360: 00 00 00 00 00 E8 DD FF FF FF FF 11 53 09 E4 05 ............S...
00D370: 08 04 BE 04 87 09 01 10 08 FC 0A 15 08 00 16 49 ...............I
00D380: 46 20 73 3E 31 36 20 54 48 45 4E 20 66 24 3D 74 F s>16 THEN f$=t
00D390: 24 28 31 29 3A 74 24 28 31 29 3D 75 24 28 73 2D $(1):t$(1)=u$(s-
00D3A0: 31 36 29 3A 73 3D 31 3A 46 4F 52 20 7A 3D 31 20 16):s=1:FOR z=1
00D3B0: 54 4F 20 31 31 3A 6B 24 28 7A 29 3D 70 24 28 73 TO 11:k$(z)=p$(s
00D3C0: 2C 7A 29 3A 47 4F 53 55 42 20 39 39 35 3A 70 24 ,z):GOSUB 995:p$
00D3D0: 28 73 2C 7A 29 3D 7A 24 3A 4E 45 58 54 3A 41 4D (s,z)=z$:NEXT:AM
00D3E0: 3D 31 0D 0A 38 36 34 30 20 52 45 54 55 52 4E 0D =1..8640 RETURN.
00D3F0: 0A 38 36 35 30 20 46 4F 52 20 49 3D 31 20 54 4F .8650 FOR I=1 TO
00D400: 20 31 31 3A 4E 28 49 29 3D 49 3A 4E 45 58 54 3A 11:N(I)=I:NEXT:
00D410: 65 3D 73 3A 52 44 3D 31 3A 46 4F 52 20 49 3D 31 e=s:RD=1:FOR I=1
00D420: 20 54 4F 20 31 31 3A 52 5A 3D 4E 28 49 29 3A 47 TO 11:RZ=N(I):G
00D430: 4F 53 55 42 20 39 30 30 33 3A 49 46 20 4D 3C 36 OSUB 9003:IF M<6
00D440: 20 54 48 45 4E 20 49 3D 39 39 3A 47 4F 54 4F 20 THEN I=99:GOTO
00D450: 38 36 36 30 0D 0A 38 36 35 35 20 52 42 3D 4E 28 8660..8655 RB=N(
00D460: 52 44 29 3A 4E 28 52 44 29 3D 4E 28 49 29 3A 4E RD):N(RD)=N(I):N
00D470: 28 49 29 3D 52 42 3A 52 44 3D 52 44 2B 31 0D ED (I)=RB:RD=RD+1..
00D480: D0 0A 38 36 36 30 20 4E 45 58 54 3A 49 46 20 49 ..8660 NEXT:IF I
00D490: 3C 31 30 30 20 54 48 45 4E 20 52 45 3D 30 3A 45 <100 THEN RE=0:E
00D4A0: 52 41 53 45 20 72 3A 44 49 4D 20 52 28 36 29 0D RASE r:DIM R(6).
00D4B0: 0A 38 36 36 34 20 52 44 3D 31 3A 52 45 3D 30 0D .8664 RD=1:RE=0.
00D4C0: 0A 38 36 36 36 20 46 4F 52 20 49 3D 31 20 54 4F .8666 FOR I=1 TO
00D4D0: 20 31 31 3A 52 5A 3D 4E 28 49 29 3A 47 4F 53 55 11:RZ=N(I):GOSU
00D4E0: 42 20 39 30 30 34 3A 49 46 20 52 44 3C 37 20 41 B 9004:IF RD<7 A
00D4F0: 4E 44 20 6D 3E 35 20 41 4E 44 20 52 45 3D 30 20 ND m>5 AND RE=0
00D500: 54 48 45 4E 20 52 28 52 44 29 3D 4E 28 49 29 3A THEN R(RD)=N(I):
00D510: 52 44 3D 52 44 2B 31 3A 47 4F 54 4F 20 38 36 37 RD=RD+1:GOTO 867
00D520: 30 0D 0A 38 36 36 38 20 49 46 20 52 44 3C 37 20 0..8668 IF RD<7
00D530: 41 4E 44 20 52 45 3D 31 20 41 4E 44 20 6D 3C 36 AND RE=1 AND m<6
00D540: 20 54 48 45 4E 20 52 28 52 44 29 3D 4E 28 49 29 THEN R(RD)=N(I)
00D550: 3A 52 44 3D 52 44 2B 31 0D 0A 38 36 37 30 20 4E :RD=RD+1..8670 N
00D560: 45 58 54 3A 49 46 20 52 44 3C 37 20 41 4E 44 20 EXT:IF RD<7 AND
00D570: 52 45 3D 30 20 54 48 45 4E 20 52 45 3D 31 3A 47 RE=0 THEN RE=1:G
00D580: 4F F7 7A 54 4F 20 38 36 36 36 0D 0A 38 36 39 39 O.zTO 8666..8699
00D590: 20 45 52 41 53 45 20 74 3A 44 49 4D 20 54 28 32 ERASE t:DIM T(2
00D5A0: 30 29 3A 47 4F 54 4F 20 38 34 31 30 0D 0A 39 30 0):GOTO 8410..90
00D5B0: 30 30 20 6D 3D 49 4E 54 28 28 41 53 43 28 4C 45 00 m=INT((ASC(LE
00D5C0: 46 54 24 28 70 24 28 65 2C 72 7A 29 2C 31 29 29 FT$(p$(e,rz),1))
00D5D0: 2D 36 35 29 2F 37 2B 31 29 3A 52 45 54 55 52 4E -65)/7+1):RETURN
00D5E0: 0D 0A 39 30 30 31 20 6D 3D 49 4E 54 28 28 41 53 ..9001 m=INT((AS
00D5F0: 43 28 4D 49 44 24 28 70 24 28 65 2C 72 7A 29 2C C(MID$(p$(e,rz),
00D600: 33 2C 31 29 29 2D 36 35 29 2F 38 2B 31 29 3A 52 3,1))-65)/8+1):R
00D610: 45 54 55 52 4E 0D 0A 39 30 30 32 20 6D 3D 49 4E ETURN..9002 m=IN
00D620: 54 28 28 41 53 43 28 4D 49 44 24 28 70 24 28 65 T((ASC(MID$(p$(e
00D630: 2C 72 7A 29 2C 35 2C 31 29 29 2D 36 35 29 2F 38 ,rz),5,1))-65)/8
00D640: 2B 31 29 3A 52 45 54 55 52 4E 0D 0A 39 30 30 33 +1):RETURN..9003
00D650: 20 72 63 3D 31 3A 47 4F 54 4F 20 39 30 30 36 0D rc=1:GOTO 9006.
00D660: 0A 39 30 30 34 20 72 63 3D 36 3A 47 4F 54 4F 20 .9004 rc=6:GOTO
00D670: 39 30 30 36 0D 0A 39 30 30 35 20 72 63 3D 37 0D 9006..9005 rc=7.
00D680: 0A 39 30 5D C2 30 36 20 7A 39 39 3D 28 41 53 43 .90].06 z99=(ASC
00D690: 28 4D 49 44 24 28 70 24 28 65 2C 72 7A 29 2C 72 (MID$(p$(e,rz),r
00D6A0: 63 2C 31 29 29 29 2F 31 30 3A 6A 3D 49 4E 54 28 c,1)))/10:j=INT(
00D6B0: 7A 39 39 29 3A 72 62 3D 28 7A 39 39 2D 6A 29 2A z99):rb=(z99-j)*
00D6C0: 31 31 3A 7A 39 39 3D 49 4E 54 28 72 62 29 2D 28 11:z99=INT(rb)-(
00D6D0: 72 63 3D 31 29 2A 32 3A 7A 39 39 3D 7A 39 39 2D rc=1)*2:z99=z99-
00D6E0: 28 7A 39 39 3C 35 20 41 4E 44 20 72 63 3D 31 29 (z99<5 AND rc=1)
00D6F0: 2A 28 35 2D 7A 39 39 29 3A 7A 39 39 3D 7A 39 39 *(5-z99):z99=z99
00D700: 2B 28 66 71 3E 33 30 20 41 4E 44 20 61 6D 3D 31 +(fq>30 AND am=1
00D710: 29 2A 32 0D 0A 39 30 30 37 20 6D 3D 7A 39 39 2B )*2..9007 m=z99+
00D720: 28 7A 39 39 3E 39 29 2A 28 7A 39 39 2D 39 29 2D (z99>9)*(z99-9)-
00D730: 33 2A 28 7A 39 39 3C 33 29 3A 52 45 54 55 52 4E 3*(z99<3):RETURN
00D740: 0D 0A 39 30 34 30 20 50 52 49 4E 54 23 32 2C 62 ..9040 PRINT#2,b
00D750: 24 28 32 33 29 3A 78 39 3D 36 32 3A 47 4F 54 4F $(23):x9=62:GOTO
00D760: 20 39 30 35 35 0D 0A 39 30 35 30 20 50 52 49 4E 9055..9050 PRIN
00D770: 54 23 32 2C 62 24 28 32 37 29 3A 78 39 3D 33 38 T#2,b$(27):x9=38
00D780: 0D 0A 39 30 35 B3 AF 35 20 57 48 49 4C 45 20 49 ..905..5 WHILE I
00D790: 4E 4B 45 59 28 78 39 29 3D 2D 31 3A 57 45 4E 44 NKEY(x9)=-1:WEND
00D7A0: 3A 57 48 49 4C 45 20 49 4E 4B 45 59 28 78 39 29 :WHILE INKEY(x9)
00D7B0: 3C 3E 2D 31 3A 57 45 4E 44 3A 47 4F 53 55 42 20 <>-1:WEND:GOSUB
00D7C0: 36 35 35 30 30 3A 47 4F 54 4F 20 35 30 30 0D 0A 65500:GOTO 500..
00D7D0: 39 30 36 30 20 50 52 49 4E 54 20 23 32 2C 42 24 9060 PRINT #2,B$
00D7E0: 28 33 36 29 3A 52 45 54 55 52 4E 0D 0A 39 30 37 (36):RETURN..907
00D7F0: 30 20 50 52 49 4E 54 20 22 42 61 6E 6B 20 A3 22 0 PRINT "Bank £"
00D800: 3B 49 4E 54 28 7A 32 29 3A 52 45 54 55 52 4E 0D ;INT(z2):RETURN.
00D810: 0A 39 31 30 30 20 49 46 20 41 31 3E 31 20 54 48 .9100 IF A1>1 TH
00D820: 45 4E 20 4B 28 41 31 29 3D 30 0D 0A 39 31 30 32 EN K(A1)=0..9102
00D830: 20 52 45 54 55 52 4E 0D 0A 39 39 39 39 20 4C 4F RETURN..9999 LO
00D840: 43 41 54 45 20 31 36 2C 49 2B 31 3A 50 52 49 4E CATE 16,I+1:PRIN
00D850: 54 20 6D 24 28 34 2B 28 69 3E 31 31 29 29 53 50 T m$(4+(i>11))SP
00D860: 41 43 45 24 28 32 33 29 3B 3A 52 45 54 55 52 4E ACE$(23);:RETURN
00D870: 0D 0A 32 33 31 35 30 20 6F 3D 41 49 2A 2D 28 6F ..23150 o=AI*-(o
00D880: 3D 41 4A 29 2D 41 4A A5 D6 2A 28 6F 3D 41 49 29 =AJ)-AJ..*(o=AI)
00D890: 0D 0A 32 33 31 38 30 20 42 43 3D 41 55 2A 2D 28 ..23180 BC=AU*-(
00D8A0: 6F 3D 41 49 29 2D 43 48 32 2A 28 6F 3D 41 4A 29 o=AI)-CH2*(o=AJ)
00D8B0: 3A 52 45 54 55 52 4E 0D 0A 35 30 30 30 30 20 43 :RETURN..50000 C
00D8C0: 4C 53 3A 4C 4F 43 41 54 45 20 31 30 2C 37 3A 50 LS:LOCATE 10,7:P
00D8D0: 52 49 4E 54 20 6D 24 28 32 29 22 31 22 3B 43 48 RINT m$(2)"1";CH
00D8E0: 52 24 28 32 34 29 3B 22 20 53 61 76 65 20 47 61 R$(24);" Save Ga
00D8F0: 6D 65 22 3B 6D 24 28 31 29 2C 2C 2C 2C 2C 54 41 me";m$(1),,,,,TA
00D900: 42 28 31 30 29 3B 6D 24 28 32 29 22 32 22 3B 43 B(10);m$(2)"2";C
00D910: 48 52 24 28 32 34 29 3B 22 20 53 61 76 65 20 50 HR$(24);" Save P
00D920: 6C 61 79 65 72 73 22 3A 50 52 49 4E 54 20 6D 24 layers":PRINT m$
00D930: 28 31 29 3B 54 41 42 28 31 30 29 3B 22 2A 46 6F (1);TAB(10);"*Fo
00D940: 72 20 75 73 65 20 77 69 74 68 20 49 6E 74 65 72 r use with Inter
00D950: 6E 61 74 69 6F 6E 61 6C 22 2C 54 41 42 28 31 30 national",TAB(10
00D960: 29 3B 22 43 72 69 63 6B 65 74 20 43 61 70 74 61 );"Cricket Capta
00D970: 69 6E 20 6F 6E 6C 79 2A 22 3A 4C 4F 43 41 54 45 in only*":LOCATE
00D980: 20 31 37 2C 32 34 3A 50 52 DA A0 49 4E 54 20 4C 17,24:PR..INT L
00D990: 45 46 54 24 28 62 24 28 31 32 29 2C 39 29 3B 0D EFT$(b$(12),9);.
00D9A0: 0A 35 30 30 30 32 20 69 6B 24 3D 22 31 32 4D 22 .50002 ik$="12M"
00D9B0: 3A 47 4F 53 55 42 20 36 34 32 30 30 3A 49 46 20 :GOSUB 64200:IF
00D9C0: 61 3D 30 20 54 48 45 4E 20 35 30 30 30 32 0D 0A a=0 THEN 50002..
00D9D0: 35 30 30 30 33 20 49 46 20 61 3D 33 20 54 48 45 50003 IF a=3 THE
00D9E0: 4E 20 35 30 30 0D 0A 35 30 30 30 38 20 42 4F 52 N 500..50008 BOR
00D9F0: 44 45 52 20 30 3A 43 4C 53 3A 4C 4F 43 41 54 45 DER 0:CLS:LOCATE
00DA00: 20 31 30 2C 31 32 3A 50 52 49 4E 54 22 49 6E 73 10,12:PRINT"Ins
00DA10: 65 72 74 20 62 6C 61 6E 6B 20 74 61 70 65 22 2C ert blank tape",
00DA20: 2C 54 41 42 28 39 29 22 50 72 65 73 73 20 61 6E ,TAB(9)"Press an
00DA30: 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 y key to continu
00DA40: 65 22 3A 57 48 49 4C 45 20 49 4E 4B 45 59 24 3D e":WHILE INKEY$=
00DA50: 22 22 3A 57 45 4E 44 3A 49 46 20 61 3D 32 20 54 "":WEND:IF a=2 T
00DA60: 48 45 4E 20 35 30 31 30 30 20 45 4C 53 45 20 4F HEN 50100 ELSE O
00DA70: 50 45 4E 4F 55 54 20 22 43 43 2E 53 41 56 22 0D PENOUT "CC.SAV".
00DA80: 0A 35 30 30 31 30 20 46 4F 52 20 43 4F 6E 3D 31 .50010 FOR COn=1
00DA90: 20 54 4F 20 31 35 3A 46 4F 52 20 7A 3D 31 20 54 TO 15:FOR z=1 T
00DAA0: 4F 20 33 3A 57 52 49 54 45 23 39 2C 6D 28 6E 2C O 3:WRITE#9,m(n,
00DAB0: 7A 29 3A 4E 45 58 54 20 7A 2C 6E 3A 46 4F 52 20 z):NEXT z,n:FOR
00DAC0: 6E 3D 31 20 54 4F 20 31 36 3A 57 52 49 54 45 23 n=1 TO 16:WRITE#
00DAD0: 39 2C 74 24 28 6E 29 2C 75 24 28 6E 29 3A 4E 45 9,t$(n),u$(n):NE
00DAE0: 58 54 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 35 3A XT:FOR n=1 TO 5:
00DAF0: 57 52 49 54 45 23 39 2C 63 24 28 6E 29 2C 61 28 WRITE#9,c$(n),a(
00DB00: 6E 29 2C 69 24 28 6E 29 3A 46 4F 52 20 7A 3D 31 n),i$(n):FOR z=1
00DB10: 20 54 4F 20 34 3A 57 52 49 54 45 23 39 2C 69 28 TO 4:WRITE#9,i(
00DB20: 6E 2C 7A 29 3A 4E 45 58 54 20 7A 2C 6E 3A 46 4F n,z):NEXT z,n:FO
00DB30: 52 20 6E 3D 31 20 54 4F 20 36 3A 57 52 49 54 45 R n=1 TO 6:WRITE
00DB40: 23 39 2C 6F 24 28 6E 29 2C 6B 28 6E 29 2C 6A 24 #9,o$(n),k(n),j$
00DB50: 28 6E 29 2C 6A 28 6E 29 2C 72 28 6E 29 3A 4E 45 (n),j(n),r(n):NE
00DB60: 58 54 0D 0A 35 30 30 31 35 20 46 4F 52 20 6E 3D XT..50015 FOR n=
00DB70: 31 20 54 4F 20 31 38 3A 57 52 49 54 45 23 39 2C 1 TO 18:WRITE#9,
00DB80: 77 28 6E 29 3A 4E 45 58 54 3A 46 4F 52 8A D0 FF w(n):NEXT:FOR...
00DB90: FF FF FF 11 52 09 E4 05 08 04 E2 04 64 09 01 10 ....R.......d...
00DBA0: 08 10 00 07 01 00 2C 43 43 31 41 00 00 00 00 00 ......,CC1A.....
00DBB0: 00 00 00 00 00 00 00 0C FF 16 49 04 7C 9E 00 00 ..........I.|...
00DBC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DBD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DBE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DBF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DC00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DC10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DC20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DC30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DC40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DC50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DCA0: 00 00 00 00 00 00 00 38 7C FF FF FF FF 11 51 09 .......8|.....Q.
00DCB0: 33 06 08 04 C5 04 81 09 01 10 08 FF FF 0F 05 00 3...............
00DCC0: 16 20 6E 3D 31 20 54 4F 20 32 30 3A 57 52 49 54 . n=1 TO 20:WRIT
00DCD0: 45 23 39 2C 6F 28 6E 29 2C 71 24 28 6E 29 3A 46 E#9,o(n),q$(n):F
00DCE0: 4F 52 20 7A 3D 31 20 54 4F 20 34 3A 57 52 49 54 OR z=1 TO 4:WRIT
00DCF0: 45 23 39 2C 62 28 7A 2C 6E 29 3A 4E 45 58 54 20 E#9,b(z,n):NEXT
00DD00: 7A 2C 6E 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 38 z,n:FOR n=1 TO 8
00DD10: 3A 57 52 49 54 45 23 39 2C 67 28 6E 2C 31 29 2C :WRITE#9,g(n,1),
00DD20: 67 28 6E 2C 32 29 3A 4E 45 58 54 3A 46 4F 52 20 g(n,2):NEXT:FOR
00DD30: 6E 3D 31 20 54 4F 20 34 3A 57 52 49 54 45 23 39 n=1 TO 4:WRITE#9
00DD40: 2C 73 28 6E 29 3A 4E 45 58 54 3A 46 4F 52 20 6E ,s(n):NEXT:FOR n
00DD50: 3D 31 20 54 4F 20 31 31 3A 57 52 49 54 45 23 39 =1 TO 11:WRITE#9
00DD60: 2C 6E 28 6E 29 2C 64 24 28 6E 29 2C 64 28 6E 29 ,n(n),d$(n),d(n)
00DD70: 2C 6B 24 28 6E 29 3A 4E 45 58 54 0D 0A 35 30 30 ,k$(n):NEXT..500
00DD80: 32 30 20 46 4F 52 20 6E 3D 31 20 54 4F 20 31 35 20 FOR n=1 TO 15
00DD90: 3A 46 4F 52 20 7A 3D 31 20 54 4F 20 31 31 3A 57 :FOR z=1 TO 11:W
00DDA0: 52 49 54 45 23 39 2C 70 24 28 6E 2C 7A 29 3A 4E RITE#9,p$(n,z):N
00DDB0: 45 58 54 20 7A 2C 6E 3A 46 4F 52 20 6E 3D 31 20 EXT z,n:FOR n=1
00DDC0: 54 2F 13 4F 20 32 30 3A 46 4F 52 20 7A 3D 31 20 T/.O 20:FOR z=1
00DDD0: 54 4F 20 36 3A 57 52 49 54 45 23 39 2C 71 28 6E TO 6:WRITE#9,q(n
00DDE0: 2C 7A 29 3A 4E 45 58 54 20 7A 2C 6E 3A 46 4F 52 ,z):NEXT z,n:FOR
00DDF0: 20 6E 3D 31 20 54 4F 20 35 3A 57 52 49 54 45 23 n=1 TO 5:WRITE#
00DE00: 39 2C 79 24 28 6E 29 3A 46 4F 52 20 7A 3D 31 20 9,y$(n):FOR z=1
00DE10: 54 4F 20 36 3A 57 52 49 54 45 23 39 2C 79 28 6E TO 6:WRITE#9,y(n
00DE20: 2C 7A 29 3A 4E 45 58 54 20 7A 2C 6E 3A 46 4F 52 ,z):NEXT z,n:FOR
00DE30: 20 6E 3D 31 20 54 4F 20 34 30 3A 57 52 49 54 45 n=1 TO 40:WRITE
00DE40: 23 39 2C 66 28 6E 2C 31 29 2C 66 28 6E 2C 32 29 #9,f(n,1),f(n,2)
00DE50: 3A 4E 45 58 54 0D 0A 35 30 30 32 35 20 46 4F 52 :NEXT..50025 FOR
00DE60: 20 6E 3D 31 20 54 4F 20 32 3A 46 4F 52 20 7A 3D n=1 TO 2:FOR z=
00DE70: 31 20 54 4F 20 31 36 3A 57 52 49 54 45 23 39 2C 1 TO 16:WRITE#9,
00DE80: 63 28 7A 2C 6E 29 2C 65 28 6E 2C 7A 29 3A 46 4F c(z,n),e(n,z):FO
00DE90: 52 20 78 3D 31 20 54 4F 20 32 3A 57 52 49 54 45 R x=1 TO 2:WRITE
00DEA0: 23 39 2C 78 28 6E 2C 7A 2C 78 29 2C 70 28 6E 2C #9,x(n,z,x),p(n,
00DEB0: 7A 2C 78 29 3A 4E 45 58 54 3A 4E 45 58 54 3A 4E z,x):NEXT:NEXT:N
00DEC0: 45 58 54 D9 EC 0D 0A 35 30 30 33 30 20 57 52 49 EXT....50030 WRI
00DED0: 54 45 23 39 2C 7A 2C 6B 2C 73 2C 69 2C 72 62 2C TE#9,z,k,s,i,rb,
00DEE0: 79 2C 62 6C 2C 6D 64 2C 62 6F 2C 7A 32 2C 62 70 y,bl,md,bo,z2,bp
00DEF0: 0D 0A 35 30 30 33 35 20 57 52 49 54 45 23 39 2C ..50035 WRITE#9,
00DF00: 6E 75 2C 6E 76 2C 6E 77 2C 6E 6A 2C 6E 63 2C 70 nu,nv,nw,nj,nc,p
00DF10: 63 2C 61 6D 2C 61 71 2C 72 63 2C 72 64 2C 79 70 c,am,aq,rc,rd,yp
00DF20: 2C 78 2C 71 2C 61 6F 2C 61 70 2C 6C 67 2C 72 2C ,x,q,ao,ap,lg,r,
00DF30: 61 72 0D 0A 35 30 30 34 30 20 57 52 49 54 45 23 ar..50040 WRITE#
00DF40: 39 2C 79 31 2C 7A 38 2C 79 32 2C 65 2C 72 7A 2C 9,y1,z8,y2,e,rz,
00DF50: 6D 2C 72 65 2C 7A 7A 2C 61 34 2C 61 33 2C 61 64 m,re,zz,a4,a3,ad
00DF60: 2C 70 6C 2C 72 74 2C 7A 7A 2C 62 2C 61 31 2C 61 ,pl,rt,zz,b,a1,a
00DF70: 32 2C 61 79 2C 61 7A 2C 62 61 2C 62 68 2C 62 69 2,ay,az,ba,bh,bi
00DF80: 2C 62 62 2C 62 64 2C 64 2C 7A 39 38 2C 6D 62 2C ,bb,bd,d,z98,mb,
00DF90: 65 78 2C 62 65 2C 61 69 2C 61 6A 0D 0A 35 30 30 ex,be,ai,aj..500
00DFA0: 34 35 20 57 52 49 54 45 23 39 2C 61 6B 2C 6F 2C 45 WRITE#9,ak,o,
00DFB0: 6E 62 2C 74 72 2C 62 6A 2C 62 6B 2C 61 78 2C 63 nb,tr,bj,bk,ax,c
00DFC0: 6C 2C 61 77 2C F7 1E 63 68 32 2C 61 75 2C 62 63 l,aw,..ch2,au,bc
00DFD0: 2C 61 76 2C 61 63 2C 61 65 2C 61 66 2C 76 2C 68 ,av,ac,ae,af,v,h
00DFE0: 2C 74 2C 61 67 2C 6B 6B 2C 72 79 2C 61 2C 74 31 ,t,ag,kk,ry,a,t1
00DFF0: 2C 6C 2C 74 32 2C 67 2C 77 2C 63 68 2C 74 74 2C ,l,t2,g,w,ch,tt,
00E000: 69 64 2C 67 6E 2C 72 78 2C 63 2C 78 24 2C 7A 24 id,gn,rx,c,x$,z$
00E010: 2C 66 24 0D 0A 35 30 30 35 30 20 46 4F 52 20 6E ,f$..50050 FOR n
00E020: 3D 31 20 54 4F 20 32 3A 57 52 49 54 45 23 39 2C =1 TO 2:WRITE#9,
00E030: 66 31 28 6E 2C 31 29 2C 66 31 28 6E 2C 32 29 3A f1(n,1),f1(n,2):
00E040: 4E 45 58 54 3A 46 4F 52 20 5A 3D 31 20 54 4F 20 NEXT:FOR Z=1 TO
00E050: 32 3A 46 4F 52 20 59 3D 31 20 54 4F 20 33 3A 57 2:FOR Y=1 TO 3:W
00E060: 52 49 54 45 23 39 2C 41 24 28 5A 2C 59 29 3A 4E RITE#9,A$(Z,Y):N
00E070: 45 58 54 20 59 2C 5A 3A 43 4C 4F 53 45 4F 55 54 EXT Y,Z:CLOSEOUT
00E080: 3A 47 4F 54 4F 20 35 30 30 0D 0A 35 30 31 30 30 :GOTO 500..50100
00E090: 20 4F 50 45 4E 4F 55 54 20 22 63 63 70 6C 61 79 OPENOUT "ccplay
00E0A0: 2E 73 61 76 22 3A 46 4F 52 20 6E 3D 31 20 54 4F .sav":FOR n=1 TO
00E0B0: 20 31 35 3A 46 4F 52 20 7A 3D 31 20 54 4F 20 31 15:FOR z=1 TO 1
00E0C0: 31 3A 57 52 49 54 45 3E 9C 23 39 2C 70 24 28 6E 1:WRITE>.#9,p$(n
00E0D0: 2C 7A 29 3A 4E 45 58 54 3A 4E 45 58 54 3A 46 4F ,z):NEXT:NEXT:FO
00E0E0: 52 20 6E 3D 31 20 54 4F 20 31 31 3A 57 52 49 54 R n=1 TO 11:WRIT
00E0F0: 45 23 39 2C 71 24 28 6E 29 3A 4E 45 58 54 3A 43 E#9,q$(n):NEXT:C
00E100: 4C 4F 53 45 4F 55 54 3A 47 4F 54 4F 20 35 30 30 LOSEOUT:GOTO 500
00E110: 0D 0A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E1A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E1B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E1C0: 00 00 00 00 00 00 00 00 00 78 51 FF FF FF FF 20 .........xQ....
00E1D0: FF FF 20 4A 7B .. J{
RESULT OF SEARCH :
PRO=0 CHEA=0 COD=0 MUSI=0 COP=0 GRA=0 WRIT=26 198=0 199=0 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
0'2023-12-01 074954 CSW2CDT 20230902 -5 /pSp,CC-AMS-V4pRu( + z"
£#####", , 3 0,3,6,9,18,19,16,15,2,1,24,25,13,12,12,25,26' ("")
"!CCPIC.SCR",()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()m a,c-
p,s-y ,,,T,T,T,T,T, ,,,v,j,V,n,, "d" B "!CCMESS",6a( r) (£)y(a,(a))Epa( r)ay(a
,(a)) #,(£)a&i""i(C) C""-d i"Y" i"N" d! i"" i" "7i"" i"" t(i,i) z9 R(
"") ( , , )( ) ( ) ( ) F #,,%,, #,,%,, , , , , ()TWp,CCPIC.SCRDSd D
DDDDDU3DDDDDDD3U3ziwU3CUwmUwU33hwU"U33www3"33w33c33U333w&333A33wwU3w"gww3"w33333
3"3333333*www"33w*3ww33"*w333ww"**w"3www*******QWl,CCPIC.SCR&QWiDDDDDDD3aDUDDDDU
3wDDDDD3U3w3UcwCCC33TUwUw333w3wwU3w33uU3""""3w3w3wwRw3"ww333"w"33333"U"*********
*******www"33w33w33***************w3w33ww3w"***************w33w3w*******QWn,CCPI
C.SCRQWbDDDDDDDDDD33DDDDDDDU3wDDDDDwTTTTTU36UwwCU3w3"3www3w'33wwUc333"33w3333"Uw
3w£ww3"3ww3"w333333U"****ww"33z3ww"3**ww"w33ww****33ww****Pj,CCPIC.SCRYPiDDDDDDD
DDDDD333q3DDDDDDDU3DDDDDwTU3!U3wwCCU3CCwUC"U3U333A"wwU"33"3333wuU""""3www"33"3w3
"3w33w333"ww33333"*****************w"33B3"*****************w333w***************3
333"3w33****#OPq,CCPIC.SCRO3aDDDDDDDDDDDDDDD3waDDDDDDDDDDD3DDDDD3wTTTT3iU3wCU3h3
33U3ww"3wC3c"wwA33c3333w3U3w"33"33www3333w3w3w3"**ww333333""***w"3w8ww**ww33w3ww
**3w""33333"******Pm,CCPIC.SCRgNWeDDDDDDDDU3DDDDDDD3DDDDD3wT3U3wCC3Chw"3T333w3wc
UwwwA33U3c"33333wI"""3w"3w3"3ww33333ww333"*ww"3333333U"***************w"33z3"***
************3333"3w33w************"33333"********NWj,CCPIC.SCROOWbDDDDDDDDDU33fD
DDDD3DDDDDU3wTTTwU3wCC3CCqh(33wTUw"3w3wBwAUw3wU3U3333333w3iw33ww3"ww"w3333"33w3w
33www33333w33"**w"33 Hww"*w3w3www33333w"**********Op,CCPIC.SCRwOWd(DDDDDDUU333fD
DDDD3U3wwU3UwCCwCCZt""w3U3"3wwcww3U3333"""333w"333w"w3"33333"33333U3www33w3333"3
"************w3wrw"************333w**"33w*Vu,CCMESSU 1 DIM b$(37)b$(1)" Won Lost
Points "+m$(1)B$(3)" Ba F Bo FB FS Hit " 4 B$(7)m$(4)+" "+CHR$(24)+"T
"+CHR$(24)+"eam "+CHR$(24)+"M"+CHR$(24)+"enu"+m$(1)B$(8)CHR$(12)+"You have too
few players"B$(9)"Government charge 33% tax"B$(10)"Your bimd has been refused"B$
(11)CHR$(12)+"Your bid has been accepted" 9 B$(13)CHR$(12)+"This will cost "B$(
14)CHR$(12)+"Which team"B$(15)CHR$(31)+CHR$(16)+CHR$(6)+"Ba F Bo FB FS HIT"+
m$(1)B$(16)CHR$(12)+"Bid how much" 10 B$(20)CHR$(12)+CHR$(31)+CHWR$(5)+CHR$(4)+
"1 Bowling"+CHR$(31)+CHR$(5)+CHR$(6)+"2 Batting"+CHR$(31)+CHR$(5)+CHR$(8)+"3
Overall" 11 B$(21)CHR$(12)+CHR$(31)+CHR$(11)+CHR$(1)+m$(4)+CHR$(24)+"T"+CHR$(24
)+"rain "+CHR$(24)+"M"+CHR$(24)+"enu"+m$(1)B$(22)CHR$(12)+"Tell coach to train a
t 1,2 or 3 " 13 B$(25)CHR$(12)+"How much (max "B$(30)CHR$(12)+"Dropped" 15 '
21 B$(32)CHR$(31)+CHR$(13)+CHR$(2)+m$(4)+" Other Results "+m$(1)B$(31)CHR$(31)+C
HR$(6)+CHR$(7)+"You've won the "B$(37)CHR$(12)+CHR$(31)+CHR$(15)+CHR$(2)+m$(2)+"
J.P.. LEAGUE"+m$(1) 27 B$(29)CHR$(31)+CHR$(18)+CHR$(4)+m$(4)+"Won Lost Bt Bl P
ts"+m$(1)B$(28)CHR$(12)+CHR$(31)+CHR$(15)+CHR$(2)+m$(3)+"C.A. LEAGUE"+m$(1) 28
B$(27)CHR$(12)+CHR$(31)+CHR$(13)+CHR$(1)+m$(3)+CHR$(24)+"M"+CHR$(24)+"enu"+m$(1)
B$(34)"Directors donate £"B$(35)" International duty."B$(36)CHR$(12)+CHR$(31)+CH
R$(8)+CHR$(1)+m$(3)+" PLEASE WAIT "+m$(1) 31 B$(2)CHR$(31)+CHR$(3)+CHR$(14)+"
Do you want to (B)at or (F)ield"b$(24)CHR$(12)+CHR$(31)+CHR$(10)+CHR$(12)+"Start
SAVED GAME tape"b$(23)4'CHR$(12)+CHR$(31)+CHR$(12)+CHR$(1)+m$(3)+CHR$(24)+"C"+C
HR$(24)+"ontinue"+m$(1) 44 b$(19)CHR$(31)+CHR$(12)+CHR$(19)+"Transfer fee "B$(5
)CHR$(31)+CHR$(15)+CHR$(1)+m$(5)+" Overs Mdn Runs Wkts"B$(6)m$(4)+"T"+CHR$(24)
+"eam "+CHR$(24)+"L"+CHR$(24)+"ast rgame "+CHR$(24)+"M"+CHR$(24)+"enu"+m$(1) 48
b$(17)CHR$(31)+CHR$(13)+CHR$(2)+m$(3)+" Bowling order "+CHR$(31)+CHR$(18)+CHR$(
7)+"Bowling Fav Bowl"+m$(1) 50 b$(18)CHR$(12)+" Change to "+CHR$(24)+"B"+CHR$
(24)+"owler "+CHR$(24)+"W"+CHR$(24)+"icket "+CHR$RWn,CCMESS RW((24)+"O"+CHR$(24)
+"ther "B$(12)m$(3)+"M"+CHR$(24)+"enu "+CHR$(24)+"S"+CHR$(24)+"cout"+m$(1) 51 b
$(4)CHR$(12)+m$(6)+"S"+CHR$(24)+"wap "+CHR$(24)+"C"+CHR$(24)+"hange "+CHR$(24)+"
M"+CHR$(24)+"enu "+CHR$(24)+"T"+CHR$(24)+"ran "+CHR$(24)+"E"+CHR$(24)+"dit"+m$(1
) 500 CHAIN MERGE "!CC",4 Xb,CCV 1 CHAIN MERGE "!CC1A",500 4 DIM A$(2,3),C$(5
),D$(11),E$(26),J$(6),K$(11),I$(5),O$(6),P$(15,11),Q$(20),T$(16),U$(16),Y$(5) 9
DIM a(5),b(4,20),c(16,2),d(11),e(2,16),f(40,2),g(8,2),i(5,4),j(6),k(6),m(15,3),
n(11),o(20),p(2,16,2),q(20,6),s(4),r(6),T(15),u(18)qQ,w(18),x(2,16,2),y(5,6)RAND
OMIZE TIMEGOSUB 8411 10 FOR Z1 TO 26READ E$(Z)NEXTFOR Z1 TO 16READ T$(Z)NEXT 1
1 MENU$m$(1)+CHR$(12)+CHR$(31)+CHR$(6)+CHR$(6)+m$(3)+CHR$(24)+"P"+CHR$(24)+"lay
match"+CHR$(31)+CHR$(6)+CHR$(8)+m$(1)+CHR$(24)+"G"+CHR$(24)+"ame" 13 menu$menu$
+CHR$(31)+CHR$(6)+CHR$(10)+m$(1)+CHR$(24)+"T"+CHR$(24)+"eam"+CHR$(31)+CHR$(25)+C
HR$(10)+CHR$(24)+"F"+CHR$(24)+"ixtures" 15 MENU$MENU$+CHR$(31)+CHR$(25)+CHR$(12
)+CHR$(24)+"J"+CHR$(24)+".P.League"+CHR$(31)+CHR$(6)+CHR$(14)+CHR$(24)+"S/3"+CHR
$(24)+"cout"+CHR$(31)+CHR$(25)+CHR$(6)+CHR$(24)+"I"+CHR$(24)+"njuries" 18 MENU$
MENU$+CHR$(31)+CHR$(6)+CHR$(12)+CHR$(24)+"C"+CHR$(24)+".A.League"+CHR$(31)+CHR$(
25)+CHR$(8)+m$(1)+CHR$(24)+"N"+CHR$(24)+"et training" 19 GOSUB 65500 20 MENU$M
ENU$+CHR$(31)+CHR$(25)+CHR$(14)+CHR$(24)+"1"+CHR$(24)+" save game" 21 DATA "DEN
","NS","RY","EY","ON","WAY","LE","BY","INS","LEY","SON","TON","S","ES","MAN","BL
E","NEY","SEY","TER","IS","ER","ENS","DON","ING","GAN","LIN" 22 FOR Z1 TO 2FOR
Y1 TO 3READ A$(Z,Y)NoEXT Y,ZGOSUB 65500LOCATE 5,12PRINT "Do you want to load old
game Y/N"GOSUB 64100IF IN$"Y" THEN 50000 23 CLSLOCATE 9,12PRINT "P l e a s e
W a i t"DATA "ESSEX ","GLOUCSTR","SURREY ","GLAMORGN","NOTTNGHM","HAMPSHRE"
,"KENT ","LEICSTER","YORKSHRE","DERBYSHR","MIDDLESX","WARWICK ","SUSSEX ","L
ANCASHR","SOMERSET","WORCESTR" 24 DATA "SPIN","FAST","SLOW","BIG ","AVER ","SMA
LL" 25 FOR Z1 TO 6K(Z)ZNEXTFOR Z1 TO 4S(Z)12NEXTFOR Z1 TO 16READ U$(Z)NEXTFOR Z
1 TO 5READ C$(Z)NEXTFOR ZV1 TO 6READ O$(Z)NEXTFOR Z1 TO 18READ W(Z)NEXT 27 DATA
"CUMBRLND","DORSET ","IRELAND ","BERKSHRE","CHESHIRE","CORNWALL","DEVON ","S
COTLAND","DURHAM ","SUFFOLK ","OXFORD ","CAMBRDGE","NORFOLK ","WILTSHRE","STAF
FORD","SHROPSHRE" 28 DATA "1ST ROUN%kTi,CC£T D","2ND ROUND","QUARTERS","SEMIS",
"FINAL" 29 BL0MD1BO48z215000NU5NV0NW15NJ0NC0 31 DATA "BOWLED","STUMPED","CAUGH
T","LBW","NOT OUT","RUN OUT",5,7,4,14,5,24,12,4,14,26,16,7,13,9,15,17,14,24 44
FOR Z1 TO 15FOR Y1 TO 11GOSUB 995P$(Z,Y)4XZ$NEXT Y,ZFOR Z1 TO 15GOSUB 995Q$(Z)Z$
RANDOMIZE TIMEFOR Y1 TO 3Q(Z,Y)3+INT(RND*6)NEXTRANDOMIZE TIME+INT(RND*5000)FOR Y
4 TO 6Q(Z,Y)1+INT(RND*3)NEXT Y,Z 48 YP1FOR Z1 TO YPGOSUB 995Y$(Z)Z$RANDOMIZE TI
MEFOR Y1 TO 3Y(Z,Y)1+INT(RND-*6)NEXTRANDOMIZE TIMEFOR Y4 TO 6Y(Z,Y)1+INT(RND*3)N
EXT Y,Z 500 GOSUB 8370 502 j3CLSFOR I1 TO 16LOCATE 15,i+2PRINT USING "##
"I,T$(I)NEXTGOSUB 1000GOTO 1006 995 RANDOMIZE TIME+INT(RND*9999)X$"BCDFGHJK
LMNPRSTVW"Z$LEFT$(CHR$(65+INT(RND*21))+"."+MID$(X$,1+INT(RND*17),1)+MID$("AEIOU"
,1+INT(RND*5),1)+MID$(X$,1+INT(RND*17),1)+E$(1+INT(RND*26))+" ",8)RETURN 1000
LOCATE 14,jPRINT CHR$(243)LOCATE 26,jPRINT CHR$(242)FOR I1 TO 200NEXTRETURN 100
2 LOCATE 14,jPRINT " "LOC/ATE 26,jPRINT " "RETURN 1006 CLS#2PRINT #2,"Use curso
r keys and ENTER key" 1010 IF INKEY(0)-1 THEN GOSUB 1002jj-1jj-(j2)*16GOSUB 100
0 1014 IF INKEY(2)-1 THEN GOSUB 1002jj+1jj+(j19)*16GOSUB 1000 1015 IF INKEY(18
)-1 AND INKEY(6)-1 THrEN 1010 1129 Z$T$(j-2)T$(j-2)T$(16)T$(16)Z$AN1 1130 CLS#
2PRINT#2," P l e a s e W a i t"CHAIN MERGE "!CC1A",2 8370 NJ0NCNJq1AO0
AP0ERASE t,fDIM T(15),f(40,2)FOR Z4 TO 36 STEP 8f(Z,1)31f(Z+4,1)32NEXTLG20FOR Z1
TO 19 8372 IF f(Z,1)0 THEN 8382 8374 IF LG20 THEN LG0 ELSE lg20 8378 R1+INT(
RND*15)IF T(R)1 THEN 8378 8380 T(R)1f(Z+LG,1)Rf(Z+20-LG,1)R+15 8382 NEXTfqf(q,
1)ERASE x,c,p,eDIM X(2,16,2),c(16,2),P(2,16,2),E(2,16)FOR Z1 TO 16E(1,Z)ZE(2,Z)Z
£vNEXTRETURN 8411 FOR k1 TO 15o(k)kskFOR i1 TO 3m(s,i)0NEXTjRND*3IF j0 THEN 842
5 8412 FOR I1 TO j 8414 RB1+INT(RND*11)FOR Z1 TO IIF M(s,Z)RB THEN Z98 8418 N
EXTIF Z99 THEN 8414 8420 M(s,I)RBNEXT 8425 NEXTRETURN 50000 CLSLOC'S3,CCxS(AT
E 10,12PRINT"Insert saved game tape",,TAB(9)"Press any key to continue"WHILE INK
EY$""WENDCLSOPENIN "CC.SAV" 50010 FOR n1 TO 15FOR z1 TO 3INPUT#9,m(n,z)NEXT z,n
FOR n1 TO 16INPUT#9,t$(n),u$(n)NEXTFOR n1 TO 5INPUT#9,c$(n),a(n),i$(n)FOR z1 TO
4INPUT#9,i(n,z)NEXT z,nFOR n1 TO 6INPUT#9,o$(n),k(n),j$(n),j(n),r(n)NEXT 50015
FOR n1 TO 18INPUT#9,w(n)NEXTFOR n1 TO 20INPUT#9,o(n),q$(n)FOR z1 TO 4INPUT#9,b(z
,n)NEXT z,nFOR n1 TO 8INPUT#9,g(n,1),g(n,2)NEXTFOR n1 TO 4INPUT#9,Is(n)NEXTFOR n
1 TO 11INPUT#9,n(n),d$(n),d(n),k$(n)NEXT 50020 FOR n1 TO 15FOR z1 TO 11INPUT#9,
p$(n,z)NEXT z,nFOR n1 TO 20FOR z1 TO 6INPUT#9,q(n,z)NEXT z,nFOR n1 TO 5INPUT#9,y
$(n)FOR z1 TO 6INPUT#9,y(n,z)NEXT z,nFOR n1 TO 40INPUT#9,f(n,1),f(n,2)NEXT 5002
5 FOR n1 TO 2FOR z1 TO 16INPUT#9,c(z,n),e(n,z)FOR y1 TO 2INPUT#9,x(n,z,y),p(n,z,
y)NEXTNEXTNEXT 50030 INPUT#9,z,k,s,i,rb,y,bl,md,bo,z2,bp 50035 INPUT#9,nu,nv,n
w,nj,nc,pc,am,aq,rc,rd,yp,x,q,ao,ap,lg,r,ar 50040 INPUT#9,y1,z8,y2,e,rz,m,re,zz
,a4,a3,ad,pl,rt,zz,b,a1,a2,ay,az,ba,bh,bi,bb,bd,d,z98,mb,ex,be,ai,aj 50045 INPU
T#9,ak,o,nb,tr,bj,bk,ax,cl,aw,ch2,au,bc,av,ac,ae,af,v,h,t,ag,kk,ry,a,t1,l,t2,g,w
,ch,tt,id,gn,rx,c,x$,z$,f$ 50050 FOR n1 TO 2INPUT#9,f1(n,1),f1(n,2)NEXTCLOSEING
OTO 1 XWi,CC1AzIVW 2 CLSGOSUB 9060GOTO 8525 4 PRINT m$(1)CLSGOSUB 5GOTO 20 5
PRINT m$(5)t$(16)TAB(14)b$(3)m$(1) 6 FOR i1 TO 20GOSUB 7NEXTPRINT m$(1)RETURN
7 IF o(i)0 THEN RETURN ELSE z$" "LOCATE 1,i+1PRINT m$(4+(i11))USING"##"iIF o(i)k
(6) THEN a3iz$5CHR$(254) 8 FOR z1 TO 5IF k(z)o(i) THEN z8z$CHR$(255) 9 NEXTPRI
NT USING"! ## ## ## "z$,q$(o(i)),INT(q(o(i),1)),INT(q(o(i),3)),I
NT(q(o(i),2)),a$(1,q(o(i),4)),a$(1,q(o(i),5)),a$(2,q(o(i),6)) 10 ' 11 ' 13 RE
TURN 15 GOSUB 65000aq1RETURN 18 IF INT(RND*2)1 THEN q(o(z),2)q(o(z),2)+0.1 ELS
E q(o(z),2)q(o(z),2)-0.1 19 GOSUB 1014RETURN 20 PRINT#2,b$(4)ik$"SCMTE"GOSUB 6
4200ON a+1 GOTO 20,31,44,500,1129,21 21 CLS#2INPUT#2,"Which player"iCLS#2IF i1
OR i20 THEN 20 22 IF o(i)0 THEN 20 23 CLS#2INPUT#2,"Player's new name"z$CLS#2z
$LEFT$(UPPER$(z$+" "),8) 24 FOR z1 TO 20IF o(z)0 THEN IF q$(o(z))z$ THEN
z98 25 NEXTIF z99 THEN 23 ELSE q$(o(i))z$GOSUB 7GOTO 20 27 AWD(o)*2RZN(o)GOSU
B 9002IF d16 THEN AWAW/(4-m) ELSE IF d16 THEN AWAW/(4-Q(O(o),6)) 28 AWAW+10+z98
RETURN 29 FOR k1 TO 3q(o(z),k)q(o(z),k)-(azba)*0.1+(baaz)*0.1NEXTGOTO 1014 31
CLS#2INPUT#2,"Swap which player"iIF i1 OR i20 THEN 20 ELSE IF O(I)0 THEN 20 32
CLS#2INPUT#2,"Players new position"ADCLS#2IF AD1 OR AD20 THEN 32 ELSE IF ADI OR
O(AD)0 THEN 20 38 RBO(I)O(I)O(AD)GOSUB 7O(AD)RBIADGOSUB 7FOR I12 TO 20IF O(I)0
THEN 43 40 IF o(i)k(6) THEN k(6)0GOSUB 7 41 FOR Z1 TO 5IF O(I)K(Z) THE%N NUNU+
(NU0)K(Z)0GOSUB 7 42 NEXT 43 NEXTGOTO 20 44 CLS#2INPUT#2,"Which player (1-11)
"iCLS#2IF I1 OR I11 THEN 20 46 a10a20FOR z1 TO 5a1a1-(a10 AND o(i)k(z))*za2a2-(
a20 AND k(z)0)*zNEXT 47 PRINT#2,b$(18) 48 ik$"BWO"GOSUB 64200IF a1 AND A10 AND
NU5 THEN 49 ELSE IF a2 THEN 50 ELSE IF a3 THEN 51 ELSE 48 49 K(A2)O(I)NUNU+1K(
6)K(6)+(K(6)O(I))*K(6)GOTO 53 50 NUNU+(A10)GOSUB 9100K(6)O(I)RBIIA3GOSUB 7IRBGO
SUB 7GOTO 20 51 IF K(6)O(I) THEN K(6)0GOTO 53 Vj,CC1AGiT 52 IF A10 THEN K(A1)0
NUNU+(NU0) 53 GOSUB 7GOTO 20 500 zz0GOSUB 65500PRINT menu$fqf(q,1) 502 ik$"1G
TNSPJCFI"CALL &BB03GOSUB 64200aa+(a4 AND bl)*4+(a5 AND fq30)*5ON a+1 GOTO 502,50
000,1400,4,1800,1450,2050,4500,4510,1600,1700 995 RANDOMIZE TIME+INT(RND*9999)X
$"BCDFGHJKLMNPRSTVW"Z$LEFT$(CHR$(65+INT(RND*21))+"."+MID$(X$,1+INT(RND*17),1)+MI
D$("AEIOU",1+INT(RND*5),1)+MID$(X$,1+INT(RND*17),1)+E$(1+INT(RND*26))+" ",8)RET
URN 1000 IF d16 THEN RETURN 1002 FOR z1 TO 11IF t(z,1)0 TtPHEN ryt(z,2)GOSUB 1
010 1006 NEXTRETURN 1010 q(o(z),1)q(o(z),1)-(ry50)*0.1+(ry10)*0.1 1014 FOR a1
TO 3q(o(z),a)q(o(z),a)+(q(o(z),a)9)IF q(o(z),a)1 THEN q(o(z),a)1 1015 NEXTRETU
RN 1129 IF nw12 THEN 21 1130 CLS#2IF nw15 THEN PRINT#2,b$(,8)GOSUB 65000GOTO 2
0 1132 CLS#2INPUT #2,"Which player "plIF pl1 OR plnw THEN 1132 1140 CLS#2rt1+R
ND*14IF rts THEN 1140 1142 zzq(o(pl),1)+q(o(pl),2)+q(o(pl),3)zzzz*750zzINT(ZZ+(
RND*1000))IF q(o(pl),6)1 THEN zzzz*2 1148 CLS#2PRINT#2," bid "r1zzGOSUB 63600PR
INT#2," Y/N" 1152 GOSUB 64100CLS#2IF in$"N" THEN t(pl)1GOTO 20 1154 FOR i1 TO
4b(i,o(pl))0NEXTr1+RND*10 1157 p$(rt,r)q$(o(pl))GOSUB 1158GOTO 1176 1158 IF k(
6)o(pl) THEN k(6)0nunu-1 1160 FOR b1 TO 5IF k(b)o(pl) THEN kkbb98 1162 NEXTIF
b99 THEN k(kk)0nunu-1 1164 FOR ipl TO nw-1o(i)o(i+1)NEXTo(nw)0nwnw-1RETURN 117
6 CLS#2PRINT#2,B$(9)PRINT m$(1)z2z2+INT(zz/3*2)GOSUB 65000GOTO 4 1400 IF fq16 T
HEN z$"J.P. LEAGUE" ELSE z$"C.A. LEAGqUE" 1401 IF fq32 THEN z$"C.A. CUP "+c$(a
p) ELSE IF fq31 THEN z$"J.P. CUP "+c$(ao) 1406 a40CLSLOCATE INT((40-LEN(z$))/2
),1PRINT z$ 1410 eszz1GOSUB 1500 1412 z$" "+CHR$(24)+"M"+CHR$(24)+"enu"IF a41
AND fq30 AND am1 THEN z$z$+" "+CHR$(b24)+"B"+CHR$(24)+"uy " 1414 CLS#2PRINT #2,
TAB(INT((32-(LEN(z$)/2))/2))m$(3)z$m$(1) 1416 ik$"MB"GOSUB 64200IF a1 THEN 500
ELSE IF a2 AND A41 AND NW+NV20 AND fq30 THEN 1532 ELSE 1416 1422 IF VAL(z$)z2 T
HEN 1412 ELSE IF VAL(z$)zz/2 THEN PRINT Uh,CC1AbTW #2,b$(10)GOSUB 15GOTO 1412 1
426 PRINT#2,b$(11)ypyp+1y$(yp)p$(e,n(m(e,kk)))rzn(m(e,kk))FOR z1 TO 3 ON z GOSUB
9003,9004,9005y(yp,z)mNEXTFOR z4 TO 6 ON z-3 GOSUB 9000,9001,9002y(yp,z)mNEXTz2
z2-VAL(z$)GOSUB 995 1428 p$(e,n(m(e,kk)))z$m(e,kk)0GOSUB 15GOTO 1410 1450 a40C
LSFOR i1 TO 16LOCATE 13,i+3PRINT m$(1-(i16))USING"## "i,T$(I)PRINT m$(1)
NEXTCLS#2PRINT#2,TAB(12)B$(12) 1454 ik$"MS"GOSUB 64200aa+2*(z2501 AND a2)ON a+1
GOTO 1454,500,1456 1456 PRINTvt#2,B$(13)r1500GOSUB 63600GOSUB 65000z2INT(z2-50
0) 1460 PRINT#2,b$(14)INPUT#2,eIF e1 OR e15 THEN 1460 ELSE CLS 1500 LOCATE 16,
3PRINT m$(3)t$(e)PRINT b$(15)FOR i1 TO 11z$" "LOCATE 1,i+7IF es THEN 1516 1513
IF n(i)r(6) THEN z$CHR$(9254) 1514 FOR z1 TO 5IF r(z)n(i) THEN z$CHR$(255)z6 1
515 NEXT 1516 rzn(i)GOSUB 9003PRINT USING "## ! #"i,z$,p$(e,n(i))
mGOSUB 9005PRINT TAB(19)USING "#"mGOSUB 9004PRINT TAB(21)USING"#"m 1517 GOSUB 9
000PRINT TAB(24)a$(1,m)GOSUB 9001PRINT " "a$(1,m)GOSUB 9002PRINT " "LEFT$(a$(2,m
),4) 1520 FOR k1 TO 3IF m(e,k)i THEN LOCATE 18,i+7PRINT m$(5)""m$(1)k4a4a4-(a40
) 1521 NEXTNEXTLOCATE 22,20GOSUB 9070IF ZZ1 THEN RETURN 1523 j4Z$" "+CHR$(24)+
"M"+CHR$(24)+"enu"IF A41 THEN jj+4Z$Z$+" "+CHR$(24)+"B"+CHR$(24)+"uy " 1524 CLS
#2PRINT#2,TAB((32-LEN(Z$))/2)m$(3) Z$m$(1) 1526 ik$"MB"GOSUB 64200ON a+1 GOTO 1
526,1450,1530 1530 IF A41 AND NW+NV20 THEN 1532 ELSE 1526 1532 LOCATE 22,20GOS
UB 9070CLS#2INPUT#2,"Which player "zIF Z1 OR Z11 THEN 1523 1533 CLS#2FOR K1 TO
3IF ZM(e,K) THEN KKKK98 1538 NEXTIF K99 THEN IF zz1 THEN 1412 ELSE 1523 1539 z
z0j1+RND*1000rzn(m(e,kk))GOSUB 9003zzzz+mGOSUB 9004zzzz+mGOSUB 9005zzzz+mzz(zz*7
50)+jGOSUB 9002IF m1 THEN zzzz*2 1540 PRINT #2,B$(16)Z$STR$(z2)INPUT #2,z1CLS#2
IF ZZ1 THEN 1422 ELSE IF z1z2 THEN 1523 ELSE IF z1zz THEN CLS#2PRINT#2,B$(10)GOS
UB 15GOTO 1523 1548 GOSUB 1560CLS#2PRINT #2,b$(11)nwnw+1o(nw)jq$(o(Tk,CC1A5TW n
w))p$(e,n(m(e,kk)))rzn(m(e,kk))FOR z1 TO 3 1549 ON z GOSUB 9003,9004,9005q(o(nw
),z)mNEXTFOR z4 TO 6ON z-3 GOSUB 9000,9001,9002q(o(nw),z)mNEXTz2z2-z1GOSUB 995
1550 p$(e,n(m(e,kk)))z$m(e,kk)0GOSUB 15GOTO 1500 1560 j1 1562 FOR i1 KTO nwIF
o(i)j THEN jj+1i98 1564 NEXTIF i99 THEN 1562 1566 IF jnw+1 THEN jnw+1 1568 RE
TURN 1600 BORDER 0PAPER 1CLSFOR Z1 TO 20FOR Y1 TO 2Z$" "jZ-(Y2)*20IF f(j,1)3
1 THEN X$"J.P. CUP"GOTO 1610 1604 IF f(j,1)32 THEN X$"C.A. CUKP"GOTO 1610 1606
Z$"CA"LG1-(f(j,1)15)GNf(j,1)+(LG2)*15X$T$(GN)IF LG1 THEN Z$"JP" 1608 IF AM1 AN
D GN1 THEN X$F$ 1610 LOCATE 2-(Y2)*20,z+2IF f(j,2)1 THEN y$"W" ELSE IF f(j,2)2
THEN y$"L" ELSE y$"-" 1611 PRINT M$(2)USING" w !"X$,Z$y$ 1615 NEXT Y,
ZPRINT#2,m$(2)b$(27)x938GOTO 9055 1700 CLSPRINT TAB(17)m$(3)"Injuries"m$(1)FOR
Z1 TO 5IF I(Z,4)0 THEN 1725 1708 PRINTPRINT TAB(7)I$(Z)IF I(Z,4)13 THEN PRINT "
International duty" ELSE IF I(Z,4)1 THEN PRINT " Injured for"I(Z,4)"games" ELSE
PRINT " Injured for 1 game" 1725 NEXTGOTO 9050 1800 PRINT B$(20)FOR i1 TO nwL
OCATE 33,i+1PRINT USING"##"iNEXTPRINT#2,B$(21) 1828 ik$"MT"GOSUB 64200IF a1 THE
N 500 ELSE IF a2 OR BL1 THEN 1828 1832 PRINT#2,BM$(22)INPUT#2,z1CLS#2IF z11 OR
z13 THEN 1832 1836 FOR z1 TO nwrx32IF z11 THEN ryINT(RND*4)rxrx-(ry3)*11-(ry0)*
13GOSUB 18 1838 IF z12 THEN ryINT(RND*61)rxrx-(ry50)*11-(ry10)*13GOSUB 1010 18
40 IF z13 THEN jINT(RND*2)rxrx-(j1)*11-(j0)*13az-(j1)ba-(az0)GOSUB 29 1842 LOCA
TE 36,z+1PRINT m$(4+(rx43))CHR$(rx)m$(1)NEXTbl1GOTO 9050 1900 CLSIF yp0 THEN 19
10 ELSE FOR z1 TO ypLOCATE 16,z*2+6PRINT USING"## "z,y$(z)NEXTPRINT b$(19)
r11000GOSUB 63500 1910 j4Z$"M"+CHR$(24)+"enu "IF YP0 THEN jj+4Z$Z$+CHR$(24)+"S
"+CHR$(24)+"ell" 1912 CLS#2PRINT#2,TAB(INT((32-LEN(Z$))/2))Z$ 1915 ik$"MS"GOSU
B 64200IF a1 THEN 500 ELSE IF YP1 OR a2 THEN 1915 1925 CLS#2INPUT#2,"Which play
er"jIF j1 OR j5 hTWl,CC1ATW THEN 1910 1935 z2z2+1000ypyp-1FOR zVAL(z$) TO ypy$(
z)y$(z+1)FOR y1 TO 6y(z,y)y(z+1,y)NEXT y,zGOTO 1900 2050 CLSPRINT#2,b$(36)BL0FO
R I1 TO 6IF K(I) THEN 2062 2054 FOR Z1 TO NWFOR F1 TO 6IF O(Z)K(F) THEN f8 205
5 NEXTIF F7 THEN NUNU+1K(I)O(Z)Z21 2060 NEXT 2062 NEXTay-(fq16 OR fq31)*2az0ba
0BH0BI0BB0BD0IF INT(RND*2)1 THEN d16GOTO 2110 2064 IF INT(RND*2)1 THEN dsGOTO 2
110 2070 PRINT B$(2) 2080 ik$"BF"GOSUB 64200d-16*(a1)-s*(a2)IF d0 THEN 2080 2
110 RC7RB13FOR I1 TO 2W(RB)RCW(RB+1)3+RND*26RBRB+4RC13NEXTFOR z1 TO 18u(z)w(z)NE
XT 2111 ERASE j,tDIM j(6),t(11,3)IF d16 THEN 2118 2112 FOR Z1 TO 11D$(Z)Q$(O(Z
))D(Z)Q(O(Z),1)NEXTFOR Z1 TO 5IF R(Z)0 THEN z7GOTO 2116 2115 J$(Z)P$(s,R(Z))RZR
(Z)esGOSUB 9004J(Z)m 2116 NEXTJ$(6)P$(s,R(6))RZR(6)GOSUB 9005J(6)md16z98BP(0.5)
/2-3GOTO 2123 2118 FOR Z1 TO 11D$(Z)P$(s,N(Z))RZN(Z)GOSUB 9003D(Z)mNEXTFOR Z1 T
O 5IF K(Z)0 THEN z6GOTO 2121 2120 J$(Z)Q$(K(Z))J(Z)Q(K(Z),2) 2121 NEXTJ$(6)Q$(
K(6))J(6)Q(K(6),3)dsz980 2123 T(1,1)5T(2,1)5MBRND*5EX0BE1AI1AJ2AK1o1NB2TR0BJTRB
KTRAXTRCLTR 2160 o2GOSUB 27CH2AWo1GOSUB 27AUAWBCAUB2GOSUB 2607 2170 GOSUB 2680
IF MB0 THEN 2332 2208 RZN(o)GOSUB 9002IF d16 AND mINT((ASC(MID$(J$(AK),3))-65)/
8) OR Q(o,6)INT((ASC(MID$(J$(AK),3))-65)/8) THEN BCBC+INT(BC/4) 2209 BCBC-J(AK)
bcFNa(bc,3,35)IF INT(RND*BC)1 THEN 2500 2214 jINT((ASC(MID$(D$(o),5))-65)/8+1)I
F d16 THEN jQ(o,6) 2215 AVRND*(j+2)AVAV-(AV3)*(AV-3)IF AV1 THEN AV1 2216 AC22*
AVAD40*AVAE10*AVaf8IF INT(RND*2) THEN AE6af20*AV 2232 VAE+RND*(AC-AE)rINT(RND*2
)IF r0 THEN V-V ELSE V81+V 2245 Haf+RND*(AD-af)rINT(RND*2)IF r/0 THEN H-H 2252
Ha4+HvFNa(v,24,151)hFNa(h,8,247)IF V24 OR V151 OR H8 OR H247 THEN AGRND*15R4-2*
(AG0)GOTO 2300 2276 TABS(a4-H)+ABS(81-V)R-(T41)-2*(t81 AND t40)-3*(t80 AND t131
)-4*(t130) 2300 IF a60 THEN 2400 2301 TRTR+RazazkSe,CC1A&SW -R*(d16)BBBB-R*(AY
2 AND BE101 AND d16)baba-R*(d16)BJBJ-R*(d16)BDBD-R*(AY2 AND BE101 AND d16) 2303
T(o,2)T(o,2)+RLOCATE 28,o+2PRINT USING"###"t(o,2)GOSUB 2650FOR n1 TO 3000NEXT
2304 IF ay3 AND d16 AND baaz+300 AND ba(600+INT(RND*50)) THEN 3000 2305 IF ay2
AND d16 AND baaz+300 AND ba(940+INT(RND*50)) THEN 3000 2306 IF d16 AND INKEY(61
)-1 THEN 3000 2308 IF AY3 AND ((d16 AND azba) OR (d16 AND baaz)) THEN 3100 23
10 IF R/2INT(R/2) THEN GOSUB 23180 ELSE GOSUB 23150 2330 CLS#1AXAX+1IF AXMB THE
N 2368 2332 GOSUB 23150GOSUB 2700GOSUB 2650BEBE+1IF BE41 AND (fq16 OR fq31) THE
N 3100 2339 FOR Z1 TO 18 STEP 2u(z)31-u(z)NEXTRANDOMIZE TIMEAX0BJAXBKAXMBRND*5I
F a285 THEN a2163a494 ELSE a285wa4154 2342 AKNBNBNB+1IF NB6 THEN NB1 ELSE IF J(
NB)0 THEN NB1 2368 GOSUB 2680IF MB0 THEN 2332 2390 IF INT(RND*20)9 THEN EXEX+1
TRTR+1azaz-(d16)baba-(d16) 2391 GOTO 2208 2400 RINT(RND*3)+a6IF d16 THEN esRZR
GOSUB 9005RINT(RND*(11-m))GOTO 2410 2407 RINT(RND*(11-Q(O(R),2))) 2410 IF R5 T
HEN X3GOTO 2564 2420 CLS#1PRINT#1,"Dropped"GOSUB 65000GOTO 2330 2500 RINT(RND*
4)+1ON r GOTO 2550,2555,2510,2510,2510 2510 RINT(RND*(11-J(6)))IF R THEN 2330
2521 RANDOMIZE TIMERINT(RND*4)x3-3*(r0)+(r1)GOTO 2564 2550 X4GOTO 2564 2555 X1
2564 GOSUB 2650bb+1T(o,3)TRT(o,1)XBHBH-(d16)*(AY2 AND BE101)BIBI-(d16)*(AY2 AN
D BE101)GOSUB 2610IF B12 THEN 3100 2580 T(B,1)5IF oAI THEN AIBoBGOSUB 27AUAW EL
SE AJBoBGOSUB 27CH2AW 2585 GOSUB 2610GOSUB 2680GOTO 2330 2607 BORDER 0INK 0,0I
NK 1,26INK 2,14INK 3,24PRINT m$(1)CLSPRINT TAB(16)m$(6)T$(d)m$(1) 2610 FOR Z1 T
O 11LOCATE 3,z+2PRINT d$(z)IF T(Z,1) THEN PRINT USING" ### "O$(T(Z
,1)),T(Z,2) 2640 NEXT 2645 IF d16 THEN LOCATE 25,18PRINT m$(3)"D"+CHR$(24)+"ec
lare " 2646 LOCATE 32,1z$"C.A."IF fq16 THEN z$"J.P." 2647 IF fq32 THEN z$"
C.A. CUP " ELSE IF fq31 THEN z$"J.P. CUP " 2648 PRINT m$(6)z$ 2650 LOCSg,CC1
A-SW ATE 25,19PRINT m$(3)"C"+CHR$(24)+"hange order"m$(1)z$STR$(b-2)IF b12 THEN b
$"All out" 2660 LOCATE 1,14PRINT m$(6)USING" Extras ### "exP
RINT m$(1)PRINT USING" Total ###"trPRINT USING" Wkts
Overs ###"z$,BE+(BE40 AND fq16) 2662 z$" ####"LOCATE 1,18PRINT
USING z$T$(16),azPRINT USING z$T$(s),ba 2675 IF (fq16 AND AY3) OR (fq15 AND AY
1) THEN GOSUB 2690 2677 IF (fq16 AND ay3) OR (fq31 AND ay3) THEN GOSUB 2695 25
678 PRINT m$(1)RETURN 2680 LOCATE 4,25PRINT m$(3)"Bowler "J$(AK)m$(1)" "m$(3)
"Batsman "D$(o)m$(1)RETURN 2690 ra-(d16)*INT(ba+1-az)-(d16)*INT(az+1-ba)IF ra0
THEN ra0 2691 LOCATE 1,17PRINT m$(5)USING " Runs required #### "raRETURN 2695
ra-(d16)*((ba+1-tr)/(41-be))-(d16)*((az+1-tr)/(41-be))IF ra0 THEN ra0 2696 PRI
NT USING" Run Rate ##.# "raRETURN 2700 IF INKEY(62)-1 THEN RETURN ELSE GOSUB 65
500IF d16 THEN 2800 2710 CLSPRINT b$(17) 2720 FOR z1 TO 5LOCATE 5,z+8PRINT zI
F k(z)0 THEN PRINT q$(k(z))TAB(21)INT(q(k(z),2))TAB (30)a$(1,q(k(z),4)) 2725 NE
XTLOCATE 5,15PRINT "Current Bowler "Q$(K(AK))PRINT TAB(8)"Next Bowler "Q$(K(NB))
PRINT#2,m$(3)"M"+CHR$(24)+"atch "+CHR$(24)+"C"+CHR$(24)+"hange next bowler"m$(1
)+ 2730 ik$"MC"GOSUB 64200ON a+1 GOTO 2730,2607,2750 2750 CLS#2INPUT#2,"Which
bowler"ZCLS#2IF Z1 OR ZNU OR ZAK THEN 2750 ELSE NBZGOTO 2720 2800 BG11CLSGOSUB
5 2815 IF B11 THEN LOCATE 5,18PRINT "Next In Line To Bat "q$(o(b+1)) 2825 ik$"
M"Z$"M"+CHR$(24)+"atch"IF B10 THEN ik$"MC"Z$Z$+" "+CHR$(24)+"C"+CHR$(24)+"hange
order" 2828 CLS#2PRINT #2," "m$(3)Z$m$(1) 2832 GOSUB 64200ON a+1 GOTO 283
2,2607,2840 2840 CLS#2INPUT#2,"Which player"ZIF ZB+1 OR Z11 THEN 2825 2850 jO(
Z)FOR YZ TO B+1 STEP -1O(Y)O(Y-1)NEXTO(B+1)jFOR ZB+1 TO 11D$(Z)Q$(O(Z))D(Z)Q(O(Z
),1)NEXTGOSUB 5GOTO 2800 3000 LOCATE 25,17PRINT m$(1)SPACE$(14)LOCATE 25,18PRIN
T m$(1)SPACE$(14)LOCATE 2,20PRINT m$(3)t$(d)" Declare" 3100 LOCATPTf,CC1AS E 25
,19PRINT m$(1)SPACE$(14)GOSUB 1000IF AY3 AND baaz THEN baba+(d16)azaz+(d16)TRTR+
1EXEX+1 3102 IF AY2 AND ((d16 AND azba) OR (d16 AND baaz)) THEN AY3 3103 CLS#1
PRINT#1,m$(3)" C Continue "m$(1)WHILE INKEY(62)-1WENDWHILE INKEY(62)-1WENDCLSAY
AY+1IF AY4 THEN 3500 3120 IF AY2 AND ((d16 AND TR+150ba) OR (d16 AND TR+150az))
THEN CLSLOCATE 7,11PRINT T$(d)" to follow on..."GOTO 2110 3125 IF d16 THEN ds
ELSE d16 3130 GOTO 2110 3500 GOSUB 65500CLSIF fq30 THENuG 3800 3605 PRINT B$(
32),,LINT(fq/16+1)tsIF azba THEN T16 3613 GOSUB 3760IF L1 THEN NJNJ+1 ELSE NCNC
+1XBBYBHT16GOSUB 3740XBDYBITsGOSUB 3740 3640 FOR Z2 TO 8T1G(Z,1)T2G(Z,2)GOSUB 4
000IF W1 THEN TT1 ELSE tt2 3655 GOSUB 3760IF L1 THEN X200+RND*150Y7+RND*4GOSUB
3740TABS(T2*(TT1)+T1*(TT2))X100+RND*150Y3+RND*8GOSUB 3740 3680 NEXT 3685 CH0FO
R Z1 TO 15IF P(L,E(L,Z),2)(P(L,E(L,Z+1),2)) THEN TEMPE(L,Z)E(L,Z)E(L,Z+1)E(L,Z+1
)TEMPCH1 3695 NEXTIF CH1 THEN 3685 ELSE 7000 3740 YABS(INT((Y-1)/2))XINT(X/50-
2)IF X4 THEN X4 ELSE IF X0 THEN X0 3745 C(T,1)C(T,1)+XC(T,2)C(T,2)+YP(L,T,2)P(L
,T,2)+X+YRETURN 3760 P(L,T,2)P(L,T,2)+2(L*2)P(L,T,1)P(L,T,1)+1RETURN 3800 IF A
M1 THEN FOR Z1 TO 116DP$(s,Z)K$(Z)NEXTT$(s)F$AM0 3801 IF baaz THEN AOAO+6*(fq31
)APAP+6*(fq32)f(q,2)2GOTO 7000 3805 V-(fq31)-2*(fq32)Y-AO*(V1)-AP*(V2)IF y5 THE
N 3810 3806 IF fq31 THEN Z$"J.P." ELSE Z$"C.A." 3809 PRINT B$(31)Z$" Cup "r120
000GOjSUB 63500z2z2+20000PRINTGOTO 7000 3810 PRINT B$(32),,FOR Z1 TO 2(5-Y)-1T1
X(V,Z,1)T2X(V,Z,2)GOSUB 4000z99(Z+1)/2X(V,INT(z99),INT(z99-INT(z99)+1.5))T1*W-T2
*(W0)NEXTGOTO 7000 4000 x0Y0FOR G2 TO 7R1+INT(RND*11)eT1RZRIF T116 THgEN XX+3.5
ELSE ON g GOSUB 9002,9002,9002,9003,9003,9004,9004XX+m 4015 eT2IF T216 THEN YY
+3.5 ELSE ON g GOSUB 9002,9002,9002,9003,9003,9004,9004YY+m 4025 NEXTW-(XY)IF T
116 THEN X$U$(T1-16) ELSE X$T$(T1) 4040 IF T216 THEN Z$U$(T2-16) ELSZSWj,CC1A6T
E Z$T$(T2) 4050 PRINT TAB(10)IF W1 THEN PRINT X$" bt "Z$ ELSE PRINT Z$" bt
"X$ 4055 RETURN 4500 PRINT B$(37)L1PRINTPRINT TAB(17)M$(4)B$(1)NNJGOSUB 4600P
24GOSUB 4650GOTO 9050 4510 PRINT B$(28)L2PRINT TAB(15)B$(29)NNCGOSUB k4600FOR Z
1 TO 16LOCATE 26,Z+4PRINT m$(1-(raz)*2)USING"### ### ###"C(E(L,Z),1),C(E(L,Z),2)
,P(L,E(L,Z),2)PRINT m$(1)NEXTGOTO 9050 4600 ra0FOR Z1 TO 16IF AM1 AND E(L,Z)1 T
HEN X$F$ ELSE X$T$(E(L,Z)) 4605 IF x$t$(16) THEN raz 4610 LOCATE 6,Z+4PRINT m$
(1-(raz)*2)USING" ## ##"X$,P(L,E(L,Z),1),N-P(L,E(L,Z),1)PRINT m$(1)NEX
TRETURN 4650 FOR Z1 TO 16LOCATE P+5,Z+4PRINT m$(1-(raz)*2)USING"###"P(L,E(L,Z),
2)PRINT m$(1)NEXTRETURN 7000 PRINT ,,,TAB(14)m$(6)" Weekly news "m$(1)FOR Z1 TO
16IF E(1,Z)16 THEN XZ 7024 IF E(2,Z)16 THEN YZ 7025 NEXTf(q,2)1-(azba) 7054
IF INT(RND*9)3 THEN j5000+RND*5000PRINT TAB(5)USING zb$B$(34),j 7056 z2z2+jIF z
20 THEN z20 7058 PRINT TAB(23)GOSUB 9070FOR Z1 TO 3HIF M(s,Z)0 THEN GOSUB 995P$
(s,M(s,Z))Z$ 7076 NEXTIF INT(RND*20)3 OR NW12 THEN 8002 7110 PL1+RND*NWPRINT T
AB(6)Q$(O(PL))" has retired."GOSUB 1158GOTO 8002 7900 ERASE tDIM T(32)R17+INT(R
ND*15)X(V,16,1)RT(R)1FOR Z1 TO 15 7905 R1+INT(URND*15)IF T(R)1 THEN 7905 ELSE T
(R)1X(V,Z,1)R 7915 R17+INT(RND*16)IF T(R)1 THEN 7915 ELSE T(R)1X(V,Z,2)RNEXTRET
URN 8002 RANDOMIZE TIMEFOR z1 TO 11GOSUB 18NEXT 8003 GOSUB 1014GOSUB 29 8250
IF yp0 OR nw+nv20 THEN 8300 8252 IF INT(RND*20)19 THEN PRINT TAB(6)Y$(1)" makes
first squad."GOSUB 1560nwnw+1o(nw)jq$(o(nw))y$(1)FOR y1 TO 6q(o(nw),y)y(1,y)NEX
Typyp-1FOR z1 TO ypy$(z)y$(z+1)FOR y1 TO 6y(z,y)y(z+1,y)NEXT y,z 8300 FOR z1 TO
3s(z)s(z+1)NEXTtts(1)+s(2)+s(3)+s(4)IF tt79 THEN 8319 8315 IF tt37 THEN h0y1GO
TO 8320 8316 rfINT(RND*(80-tt))IF r0 THEN 8340 8319 h10y-1 8320 r1+INT(RND*nw
)FOR z1 TO 3IF (q(o(r),z)*y)(h*y) THEN hq(o(r),z)xz 8324 NEXTIF (q(o(r),x)*y)(-
8*(y-1)+y) THEN q(o(rTWf,CC1A SW ),x)q(o(r),x)-y 8340 zrGOSUB 1014GOSUB 8430 8
350 qq+1IF q41 THEN 8400 ELSE PRINT,,,,,TAB(14)"End of season",,IF E(1,1)16 THEN
PRINT TAB(5)"JP League champions "r115000GOSUB 63500z2z2+15000 8356 PRINTIF E(
2,1)16 THEN PRINT TAB(5)"CA Leag*ue champions "r115000GOSUB 63500z2z2+15000 835
8 GOSUB 9060FOR Z1 TO NWjRND*5/10FOR I1 TO 3Q(O(Z),I)Q(O(Z),I)-jNEXTGOSUB 1014NE
XTGOSUB 8370GOTO 8400 8400 AQ0GOTO 8525 8410 GOSUB 8411GOTO 8425 8411 FOR I1
TO 3M(s,I)0NEXTjRND*3IF j0 THEN RETURN 8425 IF q1 THEN PRINTGOSUB 9040 8426 GO
TO 500 8430 FOR Z1 TO 5IF i(z,4)0 THEN 8445 ELSE IF I(Z,4)13 THEN I(Z,4)0 8435
IF I(Z,4)0 THEN I(Z,4)I(Z,4)-1 8440 IF I(Z,4)0 THEN GOSUB 1560NVNV-1NWNW+1O(NW
)jQ$(O(NW))I$(Z)g6FOR Y1 TO 3Q(O(NW),Y)I(Z,Y)NEXT 8445 NEXTERASE tDIM T(20)ID0I
F NW12 THEN z98GOTO 8525 8451 FOR Z1 TO 5IF I(Z,4)0 OR INT(RND*300)20 THEN 8478
8459 IF (R13) OR (ID1) THEN 8468 8460 j0R13FOR X1 TO NWIF T(X)1 THEN IF (Q(O(
X),1)+Q(O(X),2)+Q(O(X),3))24 THEN jXX21 8466 NEXTIF j0 THEN 8478 8467 XjID1PLX
PRINT TAB(6)Q$(O(PL))B$(33)X0GOTO 8470 8468 PL1+RND*NWPRINT TAB(6)Q$(O(PL))" in
jured."X1 8470 I$(Z)Q$(O(PL))FOR Y1 TO 3I(Z,Y)Q(O(PL),Y)+X*c
(Q(O(PL),Y)1)NEXTNVNV+1GOSUB 1158I(Z,4)RT(PL)1 8478 NEXTIF i99 THEN RETURN 852
5 fqf(q,1)RANDOMIZE TIMEIF fq30 THEN 8600 8532 sfqIF s15 THEN ss-15 8540 AR0Y1
1z8(s+16)/2IF z8-INT(z8)0 THEN z8INT(z8)+1AR1 8545 FOR z16 TO z8 STEP -1g(y1,1)
zy1y1-(y19)NEXTY2Y1-1+(ar0) 8555 FOR YY2 TO 1 STEP -1G(Y,2)ZZZ-1NEXTIF y18 THEN
FOR YY1 TO 8G(Y,1)ZZZ-1NEXT 8563 IF AR0 THEN Y18Y21GOTO 8570 8565 Y17Y22IF s1
THEN G(8,2)1 8570 FOR ZZ TO Y2 STEP -1G(Y1£x,2)ZY1Y1-1NEXTGOTO 8650 8600 IF (
fq31 AND AO0) OR (fq32 AND AP0) THEN qq+1GOTO 8350 8602 IF fq31 THEN AOAO+1CAOV
1GOSUB 8620GOTO 8650 8603 APAP+1CAPV2GOSUB 8620GOTO 8650 8620 IF C1 THEN GOSUB
7900 8625 sX(V,2(5-C),1) 8630 Sf,CC1AS IF s16 THEN f$t$(1)t$(1)u$(s-16)s1FOR
z1 TO 11k$(z)p$(s,z)GOSUB 995p$(s,z)z$NEXTAM1 8640 RETURN 8650 FOR I1 TO 11N(I
)INEXTesRD1FOR I1 TO 11RZN(I)GOSUB 9003IF M6 THEN I99GOTO 8660 8655 RBN(RD)N(RD
)N(I)N(I)RBRDRD+1 8660 NEXTIF I100 THEN RE0ERASE rDIM R(6) 8664 RD1RE0 8666 F
OR I1 TO 11RZN(I)GOSUB 9004IF RD7 AND m5 AND RE0 THEN R(RD)N(I)RDRD+1GOTO 8670
8668 IF RD7 AND RE1 AND m6 THEN R(RD)N(I)RDRD+1 8670 NEXTIF RD7 AND RE0 THEN RE
1GOzTO 8666 8699 ERASE tDIM T(20)GOTO 8410 9000 mINT((ASC(LEFT$(p$(e,rz),1))-6
5)/7+1)RETURN 9001 mINT((ASC(MID$(p$(e,rz),3,1))-65)/8+1)RETURN 9002 mINT((ASC
(MID$(p$(e,rz),5,1))-65)/8+1)RETURN 9003 rc1GOTO 9006 9004 rc6GOTO 9006 9005
rc7 9006 z99(ASC(MID$(p$(e,rz),rc,1)))/10jINT(z99)rb(z99-j)*11z99INT(rb)-(rc1)*
2z99z99-(z995 AND rc1)*(5-z99)z99z99+(fq30 AND am1)*2 9007 mz99+(z999)*(z99-9)-
3*(z993)RETURN 9040 PRINT#2,b$(23)x962GOTO 9055 9050 PRINT#2,b$(27)x938 9055
WHILE INKEY(x9)-1WENDWHILE INKEY(x9)-1WENDGOSUB 65500GOTO 500 9060 PRINT #2,B$(
36)RETURN 9070 PRINT "Bank £"INT(z2)RETURN 9100 IF A11 THEN K(A1)0 9102 RETUR
N 9999 LOCATE 16,I+1PRINT m$(4+(i11))SPACE$(23)RETURN 23150 oAI*-(oAJ)-AJ*(oAI
) 23180 BCAU*-(oAI)-CH2*(oAJ)RETURN 50000 CLSLOCATE 10,7PRINT m$(2)"1"CHR$(24)
" Save Game"m$(1),,,,,TAB(10)m$(2)"2"CHR$(24)" Save Players"PRINT m$(1)TAB(10)"*
For use with International",TAB(10)"Cricket Captain only*"LOCATE 17,24PRINT LEFT
$(b$(12),9) 50002 ik$"12M"GOSUB 64200IF a0 THEN 50002 50003 IF a3 THEN 500 50
008 BORDER 0CLSLOCATE 10,12PRINT"Insert blank tape",,TAB(9)"Press any key to con
tinue"WHILE INKEY$""WENDIF a2 THEN 50100 ELSE OPENOUT "CC.SAV" 50010 FOR COn1 T
O 15FOR z1 TO 3WRITE#9,m(n,z)NEXT z,nFOR n1 TO 16WRITE#9,t$(n),u$(n)NEXTFOR n1 T
O 5WRITE#9,c$(n),a(n),i$(n)FOR z1 TO 4WRITE#9,i(n,z)NEXT z,nFOR n1 TO 6WRITE#9,o
$(n),k(n),j$(n),j(n),r(n)NEXT 50015 FOR n1 TO 18WRITE#9,w(n)NEXTFORRd,CC1AI8Q3
n1 TO 20WRITE#9,o(n),q$(n)FOR z1 TO 4WRITE#9,b(z,n)NEXT z,nFOR n1 TO 8WRITE#9,g(
n,1),g(n,2)NEXTFOR n1 TO 4WRITE#9,s(n)NEXTFOR n1 TO 11WRITE#9,n(n),d$(n),d(n),k$
(n)NEXT 50020 FOR n1 TO 15FOR z1 TO 11WRITE#9,p$(n,z)NEXT z,nFOR n1 T/O 20FOR z
1 TO 6WRITE#9,q(n,z)NEXT z,nFOR n1 TO 5WRITE#9,y$(n)FOR z1 TO 6WRITE#9,y(n,z)NEX
T z,nFOR n1 TO 40WRITE#9,f(n,1),f(n,2)NEXT 50025 FOR n1 TO 2FOR z1 TO 16WRITE#9
,c(z,n),e(n,z)FOR x1 TO 2WRITE#9,x(n,z,x),p(n,z,x)NEXTNEXTNEXT 50030 WRITE#9,z,
k,s,i,rb,y,bl,md,bo,z2,bp 50035 WRITE#9,nu,nv,nw,nj,nc,pc,am,aq,rc,rd,yp,x,q,ao
,ap,lg,r,ar 50040 WRITE#9,y1,z8,y2,e,rz,m,re,zz,a4,a3,ad,pl,rt,zz,b,a1,a2,ay,az
,ba,bh,bi,bb,bd,d,z98,mb,ex,be,ai,aj 50045 WRITE#9,ak,o,nb,tr,bj,bk,ax,cl,aw,ch
2,au,bc,av,ac,ae,af,v,h,t,ag,kk,ry,a,t1,l,t2,g,w,ch,tt,id,gn,rx,c,x$,z$,f$ 5005
0 FOR n1 TO 2WRITE#9,f1(n,1),f1(n,2)NEXTFOR Z1 TO 2FOR Y1 TO 3WRITE#9,A$(Z,Y)NEX
T Y,ZCLOSEOUTGOTO 500 50100 OPENOUT "ccplay.sav"FOR n1 TO 15FOR z1 TO 11WRITE#9
,p$(n,z)NEXTNEXTFOR n1 TO 11WRITE#9,q$(n)NEXTCLOSEOUTGOTO 500 xQ J