International Manager (UK) (1988) [Original] [TAPE].cdt
HexaDumpAscii only
000000: 5A 58 54 61 70 65 21 1A 01 0C 20 22 26 11 A6 04 ZXTape!... "&...
000010: 2C 02 7B 02 72 02 E4 04 F4 0F 08 14 00 07 01 00 ,.{.r...........
000020: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER......
000030: 00 01 00 01 00 08 70 01 FF 58 22 00 00 00 00 00 ......p..X".....
000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 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 4E 1C FF FF FF FF 11 A5 04 2C 02 7B 02 58 02 .N........,.{.X.
000130: B1 04 F6 0F 08 AE 0A 15 08 00 16 13 00 01 00 A4 ................
000140: 20 8D 20 19 42 2C 0F 2C 0E 2C 0E 2C 0E 00 0B 00 . .B,.,.,.,....
000150: 02 00 CF 20 80 20 19 FF 00 10 00 03 00 8E 20 42 ... . ........ B
000160: 2C 43 2C 45 2C 48 2D 5A 00 09 00 04 00 B7 22 64 ,C,E,H-Z......"d
000170: 22 00 0B 00 05 00 AA 20 FF 42 F5 0F 00 06 00 06 "...... .B......
000180: 00 89 00 B3 00 07 00 93 20 03 00 00 D4 28 13 29 ........ ....(.)
000190: 2C 0D 00 00 F5 28 19 18 29 2C 0D 00 00 F2 28 10 ,....(..),....(.
0001A0: 2C 14 29 2C 0D 00 00 EF 28 19 28 29 2C 0D 00 00 ,.),....(.(),...
0001B0: F0 28 19 28 29 2C 0D 00 00 EB 28 19 3C 29 2C 03 .(.(),....(.<),.
0001C0: 00 00 E1 28 19 3C 29 2C 03 00 00 E2 28 19 28 29 ...(.<),....(.()
0001D0: 2C 03 00 00 E5 28 19 0C 29 2C 0D 00 00 E8 28 19 ,....(..),....(.
0001E0: 0C 29 2C 0D 00 00 EE 28 10 2C 19 28 29 2C 0D 00 .),....(.,.(),..
0001F0: 00 E1 28 19 28 29 2C 0D 00 00 E2 28 19 28 29 2C ..(.(),....(.(),
000200: 0D 00 00 E3 28 19 28 29 2C 0D 00 00 E4 28 19 28 ....(.(),....(.(
000210: 29 2C 0D 00 00 E5 28 19 28 29 2C 0D 00 00 E6 28 ),....(.(),....(
000220: 19 28 29 2C 0D 00 00 E7 28 19 28 29 2C 0D 00 00 .(),....(.(),...
000230: F6 28 19 12 29 00 2E 00 08 00 9E 64 B9 20 0B 00 .(..)......d. ..
000240: 00 C9 EF 0F 20 EC 20 19 0C 01 C3 20 03 00 00 C5 .... . .... ....
000250: 28 0B 00 00 C9 29 01 0B 00 00 C8 28 0B 00 00 C9 (....).....(....
000260: 29 EF 0F 01 B0 00 36 00 09 00 8C 20 4A 41 4E 2C ).....6.... JAN,
000270: 46 45 42 2C 4D 41 52 2C 41 50 52 2C 4D 41 59 2C FEB,MAR,APR,MAY,
000280: 4A 55 4E 2C 4A 55 4C 2C 41 55 47 2C 53 45 50 2C JUN,JUL,AUG,SEP,
000290: 4F 43 54 2C 4E 4F 56 2C 44 45 43 00 10 00 0A 00 OCT,NOV,DEC.....
0002A0: 9F 20 1E 57 00 01 9F 20 1E 58 00 00 36 00 0B 00 . .W... .X..6...
0002B0: AD 20 0F 01 C2 20 FF 46 01 82 20 17 01 BA 20 0E . ... .F.. ... .
0002C0: 01 A2 20 0E 2C 17 01 A2 20 11 2C 19 0B 2C 0F 01 .. .,... .,..,..
0002D0: A2 20 10 2C 19 18 01 BB 20 0F 01 A2 20 0F 2C 19 . .,.... ... .,.
0002E0: 1A 00 69 00 0C 00 A9 20 19 0A 2C 19 0B 01 BF 22 ..i.... ..,...."
0002F0: 49 4E 54 45 52 4E 41 54 49 4F 4E 41 4C 20 4D 41 INTERNATIONAL MA
000300: 4E 41 47 45 52 22 01 A9 20 19 0B 2C 19 0D 01 BF NAGER".. ..,....
000310: 22 43 4F 50 59 52 49 47 48 54 20 44 26 48 20 47 "COPYRIGHT D&H G
000320: 41 4D 45 53 22 01 9E 20 0D 00 00 6E E7 EF 0F 20 AMES".. ...n...
000330: EC 20 1A 70 17 01 B0 01 BF 20 FF 7B 28 3B 29 19 . .p..... .{(;).
000340: 1D 2C 19 0A 29 3B FF 03 28 19 0C 29 00 66 00 0D .,..);..(..).f..
000350: 00 A9 20 19 0F 2C 19 0B 01 BF 22 57 52 49 54 54 .. ..,...."WRITT
000360: 45 4E 20 42 59 22 01 A9 20 14 2C 19 0D 01 BF 22 EN BY".. .,...."
000370: 54 4F 4E 59 20 48 55 47 47 41 52 44 20 26 20 4A TONY HUGGARD & J
000380: 4F 48 4E 20 44 45 20 53 41 4C 49 53 22 01 9E 20 OHN DE SALIS"..
000390: 0D 00 00 6E E7 EF 0F 20 EC 20 1A 70 17 01 B0 01 ...n... . .p....
0003A0: BF 20 FF 7B 28 19 1D 2C 19 0B 29 3B FF 03 28 19 . .{(..,..);..(.
0003B0: 0C 29 00 65 00 0E 00 A9 20 16 2C 19 0B 01 BF 22 .).e.... .,...."
0003C0: 43 4F 4E 56 45 52 54 45 44 20 4F 4E 54 4F 20 41 CONVERTED ONTO A
0003D0: 4D 53 54 52 41 44 20 42 59 22 01 A9 20 19 0E 2C MSTRAD BY".. ..,
0003E0: 19 0D 01 BF 22 44 41 56 49 44 20 47 49 42 42 4F ...."DAVID GIBBO
0003F0: 4E 22 01 9E 20 0D 00 00 6E E7 EF 0F 20 EC 20 1A N".. ...n... . .
000400: 70 17 01 B0 01 BF 20 FF 7B 28 19 1D 2C 19 0A 29 p..... .{(..,..)
000410: 3B FF 03 28 19 0C 29 00 29 00 0F 00 A9 20 19 0A ;..(..).).... ..
000420: 2C 19 0C 01 BF 22 4C 4F 41 44 20 53 41 56 45 44 ,...."LOAD SAVED
000430: 20 47 41 4D 45 20 59 2F 4E 22 F4 FF 03 28 15 E9 GAME Y/N"...(..
000440: 08 29 00 2D 00 10 00 03 00 00 E1 EF FF 43 01 A1 .).-.........C..
000450: 20 03 00 00 E1 EF 22 22 20 EB 20 1E 10 00 20 01 ....."" . ... .
000460: 97 20 03 00 00 E1 EF FF 1C 28 03 00 00 E1 29 00 . .......(....).
000470: 15 00 11 00 A1 20 03 00 00 E1 EF 22 59 22 20 EB ..... ....."Y" .
000480: 20 1E 5D 00 00 15 00 12 00 A1 20 03 00 00 E1 EF .]....... .....
000490: 22 4E 22 20 EB 20 1E 14 00 00 0A 00 13 00 A0 20 "N" . .........
0004A0: 1E 10 00 00 8F 00 14 00 C2 20 FF 46 01 8A 01 0D ......... .F....
0004B0: 00 00 62 E7 EF 1F 00 00 00 00 80 01 9F 20 1E 56 ..b.......... .V
0004C0: 00 01 0D 00 00 62 E5 EF 0F 01 0D 00 00 62 E6 EF .....b.......b..
0004D0: F5 0F 01 0D 00 00 6F B4 EF 19 0A 01 0D 00 00 6F ......o........o
0004E0: B1 EF 19 3C 01 0D 00 00 6F B2 EF 0F F4 FF 0C 28 ...<....o......(
0004F0: FF 45 F6 19 64 29 F4 0F 01 0D 00 00 6F B3 EF 19 .E..d)......o...
000500: 50 01 0D 00 00 74 B1 EF 0F 01 0D 00 00 78 F8 EF P....t.......x..
000510: 17 01 0D 00 00 79 F9 EF 19 0E 01 0D 00 00 61 E1 .....y........a.
000520: EF 0F 01 0D 00 00 61 E2 EF 0F 01 0D 00 00 61 E3 ......a.......a.
000530: EF 0F 00 45 00 15 00 9E 20 0B 00 00 E9 EF 0F 20 ...E.... ......
000540: EC E5 84 20 19 3C 01 C3 20 03 00 00 E1 28 0B 00 ... .<.. ....(..
000550: 00 E9 29 2C 0B 00 00 EB 28 0B 00 00 E9 29 01 A1 ..),....(....)..
000560: 20 FF 0E 28 03 00 00 E1 28 0B 00 00 E9 29 29 F1 ..(....(....)).
000570: 17 20 EB 20 9F 20 1E 73 00 00 06 00 16 00 B0 00 . . . .s........
000580: FD 00 17 00 8C 20 57 2E 47 45 52 4D 41 4E 59 2C ..... W.GERMANY,
000590: 32 2C 49 54 41 4C 59 2C 33 2C 45 4E 47 4C 41 4E 2,ITALY,3,ENGLAN
0005A0: 44 2C 35 2C 48 55 4E 47 41 52 59 2C 37 2C 55 2E D,5,HUNGARY,7,U.
0005B0: 53 2E 53 2E 52 2E 2C 38 2C 50 4F 4C 41 4E 44 2C S.S.R.,8,POLAND,
0005C0: 39 2C 46 52 41 4E 43 45 2C 31 30 2C 53 50 41 49 9,FRANCE,10,SPAI
0005D0: 4E 2C 31 31 2C 50 4F 52 54 55 47 41 4C 2C 31 32 N,11,PORTUGAL,12
0005E0: 2C 53 43 4F 54 4C 41 4E 44 2C 31 33 2C 4E 2E 49 ,SCOTLAND,13,N.I
0005F0: 52 45 4C 41 4E 44 2C 31 34 2C 42 45 4C 47 49 55 RELAND,14,BELGIU
000600: 4D 2C 31 36 2C 42 55 4C 47 41 52 49 41 2C 31 39 M,16,BULGARIA,19
000610: 2C 44 45 4E 4D 41 52 4B 2C 32 31 2C 48 4F 4C 4C ,DENMARK,21,HOLL
000620: 41 4E 44 2C 32 32 2C 45 2E 47 45 52 4D 41 4E 59 AND,22,E.GERMANY
000630: 2C 32 33 2C 52 55 4D 41 4E 49 41 2C 32 35 2C 41 ,23,RUMANIA,25,A
000640: 55 53 54 8E 5D 52 49 41 2C 32 37 2C 4E 4F 52 57 UST.]RIA,27,NORW
000650: 41 59 2C 32 38 2C 57 41 4C 45 53 2C 33 31 2C 53 AY,28,WALES,31,S
000660: 57 45 45 44 45 4E 2C 33 32 2C 54 55 52 4B 45 59 WEEDEN,32,TURKEY
000670: 2C 33 36 2C 46 49 4E 4C 41 4E 44 2C 33 37 00 FC ,36,FINLAND,37..
000680: 00 18 00 8C 20 52 2E 49 52 45 4C 41 4E 44 2C 34 .... R.IRELAND,4
000690: 30 2C 49 43 45 4C 41 4E 44 2C 34 32 2C 41 4C 42 0,ICELAND,42,ALB
0006A0: 41 4E 49 41 2C 34 36 2C 47 52 45 45 43 45 2C 34 ANIA,46,GREECE,4
0006B0: 37 2C 4D 41 4C 54 41 2C 34 38 2C 43 59 50 52 55 7,MALTA,48,CYPRU
0006C0: 53 2C 35 30 2C 42 52 41 5A 49 4C 2C 31 2C 41 52 S,50,BRAZIL,1,AR
0006D0: 47 45 4E 54 49 4E 41 2C 34 2C 55 52 55 47 55 41 GENTINA,4,URUGUA
0006E0: 59 2C 36 2C 4D 45 58 49 43 4F 2C 31 35 2C 50 41 Y,6,MEXICO,15,PA
0006F0: 52 41 47 55 41 59 2C 31 37 2C 43 48 49 4C 45 2C RAGUAY,17,CHILE,
000700: 32 39 2C 50 45 52 55 2C 32 36 2C 56 45 4E 45 5A 29,PERU,26,VENEZ
000710: 55 45 4C 41 2C 34 34 2C 43 4F 4C 55 4D 42 49 41 UELA,44,COLUMBIA
000720: 2C 35 31 2C 45 43 55 41 44 4F 52 2C 35 32 2C 42 ,51,ECUADOR,52,B
000730: 4F 4C 49 56 49 41 2C 35 33 2C 41 4C 47 45 52 49 OLIVIA,53,ALGERI
000740: 41 2C 31 38 2C A2 24 4D 4F 52 4F 43 43 4F 2C 32 A,18,.$MOROCCO,2
000750: 30 2C 54 55 4E 49 53 49 41 2C 32 34 2C 43 41 4D 0,TUNISIA,24,CAM
000760: 45 52 4F 4F 4E 2C 33 30 2C 45 47 59 50 54 2C 34 EROON,30,EGYPT,4
000770: 39 2C 4E 49 47 45 52 49 41 2C 35 36 00 97 00 19 9,NIGERIA,56....
000780: 00 8C 20 54 41 49 57 41 4E 2C 35 38 2C 49 53 52 .. TAIWAN,58,ISR
000790: 41 45 4C 2C 35 37 2C 4E 2E 5A 45 41 4C 41 4E 44 AEL,57,N.ZEALAND
0007A0: 2C 33 34 2C 41 55 53 54 52 41 4C 49 41 2C 33 33 ,34,AUSTRALIA,33
0007B0: 2C 49 52 41 51 2C 34 31 2C 4B 55 57 41 49 54 2C ,IRAQ,41,KUWAIT,
0007C0: 35 39 2C 4F 4D 41 4E 2C 33 38 2C 4E 2E 4B 4F 52 59,OMAN,38,N.KOR
0007D0: 45 41 2C 36 30 2C 43 41 4E 41 44 41 2C 33 35 2C EA,60,CANADA,35,
0007E0: 55 2E 53 2E 41 2E 2C 34 33 2C 50 41 4E 41 4D 41 U.S.A.,43,PANAMA
0007F0: 2C 33 39 2C 48 4F 4E 44 55 52 41 53 2C 35 36 2C ,39,HONDURAS,56,
000800: 4A 41 4D 41 49 43 41 2C 35 34 2C 48 49 41 54 49 JAMAICA,54,HIATI
000810: 2C 34 35 00 21 00 1A 00 9E 20 0B 00 00 C9 EF 0F ,45.!.... ......
000820: 20 EC 20 19 18 01 C3 20 0B 00 00 D5 28 0B 00 00 . .... ....(...
000830: C9 29 01 B0 00 36 00 1B 00 8C 20 31 2C 32 2C 33 .)...6.... 1,2,3
000840: 2C 34 2C 33 2C 31 2C D1 E7 34 2C 32 2C 31 2C 34 ,4,3,1,..4,2,1,4
000850: 2C 32 2C 33 2C 32 2C 31 2C 34 2C 33 2C 31 2C 33 ,2,3,2,1,4,3,1,3
000860: 2C 32 2C 34 2C 34 2C 31 2C 33 2C 32 00 0F 01 1C ,2,4,4,1,3,2....
000870: 00 9E 20 0D 00 00 C9 EF 0F 20 EC 20 19 28 01 9F .. ...... . .(..
000880: 20 1E 54 00 01 0D 00 00 C1 28 0D 00 00 C9 29 EF .T......(....).
000890: 13 F4 FF 0C 28 FF 45 F6 19 31 29 F7 19 0A 01 0D ....(.E..1).....
0008A0: 00 00 C7 28 0D 00 00 C9 29 EF 0F F4 FF 0C 28 FF ...(....).....(.
0008B0: 45 F6 19 59 29 F7 19 0A 01 0D 00 00 C6 28 0D 00 E..Y)........(..
0008C0: 00 C9 29 EF 0F F4 FF 0C 28 FF 45 F6 19 59 29 F7 ..).....(.E..Y).
0008D0: 19 0A 01 0D 00 00 C3 28 0D 00 00 C9 29 EF FF 00 .......(....)...
0008E0: 28 FF 0C 28 FF 45 F6 19 32 29 F5 19 0A 29 01 0D (..(.E..2)...)..
0008F0: 00 00 C2 28 0D 00 00 C9 29 EF 19 12 F4 FF 0C 28 ...(....)......(
000900: FF 45 F6 19 0F 29 01 0D 00 00 CE 28 0F 2C 0D 00 .E...).....(.,..
000910: 00 C9 29 EF 0F 01 C3 20 03 00 00 C2 28 0D 00 00 ..).... ....(...
000920: C9 29 2C 0D 00 00 E5 28 0D 00 00 E9 29 01 0D 00 .),....(....)...
000930: 00 C7 28 0D 00 00 C9 29 EF 0D 00 00 C7 28 0D 00 ..(....).....(..
000940: 00 C9 29 F4 28 0D 00 00 C7 D0 92 FF FF FF FF 11 ..).(...........
000950: A5 04 2C 02 7B 02 73 02 E7 04 F4 0F 08 16 00 07 ..,.{.s.........
000960: 01 00 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 ..,I.MANAGER....
000970: 00 00 00 02 00 01 00 08 70 09 00 58 22 00 00 00 ........p..X"...
000980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0009A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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 00 00 ................
0009E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0009F0: 00 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 00 00 00 00 ................
000A30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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 EE AF FF FF FF FF 11 A5 04 7B 02 2C 02 ............{.,.
000A70: 5A 02 B5 04 F4 0F 08 BC 0A 15 08 00 16 28 0D 00 Z............(..
000A80: 00 C9 29 EE 0D 00 00 C1 28 0D 00 00 C9 29 29 F6 ..).....(....)).
000A90: 28 0D 00 00 C7 28 0D 00 00 C9 29 F5 0D 00 00 C1 (....(....).....
000AA0: 28 0D 00 00 C9 29 29 01 B0 01 9F 20 1E 51 00 00 (....)).... .Q..
000AB0: F6 00 1D 00 8C 20 4A 4F 4E 45 53 2C 31 2C 57 41 ..... JONES,1,WA
000AC0: 52 44 2C 32 2C 53 4D 49 54 48 2C 32 2C 52 45 49 RD,2,SMITH,2,REI
000AD0: 44 2C 32 2C 42 41 52 4E 45 53 2C 32 2C 50 45 54 D,2,BARNES,2,PET
000AE0: 45 52 53 2C 33 2C 45 44 4C 49 4E 2C 33 2C 4A 41 ERS,3,EDLIN,3,JA
000AF0: 4D 45 53 2C 33 2C 48 55 47 47 41 52 44 2C 34 2C MES,3,HUGGARD,4,
000B00: 43 55 52 52 59 2C 34 2C 53 54 45 56 45 4E 53 2C CURRY,4,STEVENS,
000B10: 34 2C 57 41 4C 54 45 52 53 2C 34 2C 4C 41 57 54 4,WALTERS,4,LAWT
000B20: 4F 4E 2C 34 2C 41 52 4E 4F 4C 44 53 2C 33 2C 57 ON,4,ARNOLDS,3,W
000B30: 41 4C 4C 41 43 45 2C 31 2C 43 4F 4C 4C 49 4E 53 ALLACE,1,COLLINS
000B40: 2C 32 2C 4D 41 4E 54 4F 4E 2C 33 2C 54 52 41 56 ,2,MANTON,3,TRAV
000B50: 45 52 53 2C 32 2C 43 45 4C 4C 41 52 53 2C 34 2C ERS,2,CELLARS,4,
000B60: 4A 41 43 4B 53 4F 4E 2C 34 2C 47 52 41 48 41 4D JACKSON,4,GRAHAM
000B70: 53 2C 31 2C 4A 4F 48 4E 53 4F 4E 2C 32 04 69 2C S,1,JOHNSON,2.i,
000B80: 46 4F 53 54 45 52 2C 32 2C 41 4C 4C 45 4E 2C 31 FOSTER,2,ALLEN,1
000B90: 2C 44 41 56 49 53 2C 33 2C 48 49 4C 4C 2C 34 2C ,DAVIS,3,HILL,4,
000BA0: 43 52 41 49 47 2C 32 00 79 00 1E 00 8C 20 47 49 CRAIG,2.y.... GI
000BB0: 42 53 4F 4E 2C 32 2C 52 4F 42 53 4F 4E 2C 33 2C BSON,2,ROBSON,3,
000BC0: 44 55 4E 43 41 4E 2C 34 2C 42 52 4F 57 4E 2C 33 DUNCAN,4,BROWN,3
000BD0: 2C 43 52 4F 57 45 2C 32 2C 57 52 49 47 48 54 2C ,CROWE,2,WRIGHT,
000BE0: 31 2C 48 41 52 52 49 53 2C 32 2C 54 48 4F 4D 41 1,HARRIS,2,THOMA
000BF0: 53 2C 32 2C 44 49 43 4B 45 4E 53 2C 34 2C 45 56 S,2,DICKENS,4,EV
000C00: 41 4E 53 2C 33 2C 52 4F 42 45 52 54 53 2C 34 2C ANS,3,ROBERTS,4,
000C10: 57 45 53 54 2C 33 2C 41 4E 44 52 45 57 53 2C 32 WEST,3,ANDREWS,2
000C20: 00 2F 00 1F 00 9E 20 0B 00 00 C9 EF 0F 20 EC 20 ./.... ...... .
000C30: 14 01 C3 20 0B 00 00 F2 28 0F 2C 0B 00 00 C9 29 ... ....(.,....)
000C40: 2C 0B 00 00 F2 28 10 2C 0B 00 00 C9 29 01 B0 00 ,....(.,....)...
000C50: 29 00 20 00 8C 20 31 2C 32 39 2C 33 30 2C 34 30 ). .. 1,29,30,40
000C60: 2C 34 31 2C 34 36 2C 34 37 2C 35 30 2C 35 31 2C ,41,46,47,50,51,
000C70: 35 34 2C 35 35 2C 36 30 00 39 00 21 00 9E 20 DC 54,55,60.9.!.. .
000C80: F4 0B 00 00 C9 EF 0F 20 EC 20 12 01 C3 20 03 00 ....... . ... ..
000C90: 00 CA 28 0B 00 00 C9 29 01 A1 20 FF 0E 28 03 00 ..(....).. ..(..
000CA0: 00 EA 28 0B 00 00 E9 29 29 F1 17 20 EB 20 9F 20 ..(....)).. . .
000CB0: 1E 75 00 00 06 00 22 00 B0 00 2A 00 23 00 8C 20 .u...."...*.#..
000CC0: 46 52 41 4E 43 45 2C 57 2E 47 45 52 4D 41 4E 59 FRANCE,W.GERMANY
000CD0: 2C 41 52 47 45 4E 54 49 4E 41 2C 43 4F 4C 55 4D ,ARGENTINA,COLUM
000CE0: 42 49 41 00 20 00 24 00 9E 20 0B 00 00 C9 EF 0F BIA. .$.. ......
000CF0: 20 EC 20 13 01 C3 20 03 00 00 C6 28 0B 00 00 C9 . ... ....(....
000D00: 29 01 B0 00 2A 00 25 00 8C 20 54 45 52 52 59 2C )...*.%.. TERRY,
000D10: 44 45 53 41 4C 49 53 2C 46 52 41 4E 4B 53 2C 57 DESALIS,FRANKS,W
000D20: 49 4C 4B 49 4E 53 2C 46 4F 57 4C 45 52 00 20 00 ILKINS,FOWLER. .
000D30: 26 00 9E 20 0B 00 00 C9 EF 0F 20 EC 20 12 01 C3 &.. ...... . ...
000D40: 20 0B 00 00 D4 28 0B 00 00 C9 29 01 B0 00 11 00 ....(....).....
000D50: 27 00 8C 20 37 2C 31 34 2C 32 31 2C 32 38 00 19 '.. 7,14,21,28..
000D60: 00 28 00 C2 20 FF 46 01 BB 20 0F 01 0D 00 00 62 .(.. .F.. .....b
000D70: EE EF 0D 00 00 61 E2 00 88 00 29 00 8A 01 0B 00 .....a....).....
000D80: 00 3D BA 62 E9 EF 0F 01 BB 20 11 01 9E 20 0B 00 .=.b..... ... ..
000D90: 00 6E E8 EF 0F 20 EC 20 19 28 01 A9 20 0B 00 00 .n... . .(.. ...
000DA0: 6E E8 2C 0F 01 BF 20 FF 03 28 19 8F 29 01 B0 01 n.,... ..(..)...
000DB0: BF 20 FF 03 28 19 16 29 F4 FF 03 28 0F 29 01 A9 . ..(..)...(.)..
000DC0: 20 13 2C 0F 01 BB 20 0F 01 BF 22 57 48 49 43 48 .,... ..."WHICH
000DD0: 20 54 45 41 4D 20 44 4F 20 59 4F 55 20 57 41 4E TEAM DO YOU WAN
000DE0: 54 20 54 4F 20 4D 41 4E 41 47 45 22 F4 FF 03 28 T TO MANAGE"...(
000DF0: 15 29 01 BF 20 FF 03 28 19 16 29 F4 FF 03 28 0E .).. ..(..)...(.
000E00: 29 00 61 00 2A 00 9E 20 0B 00 00 C9 EF 0F 20 EC ).a.*.. ...... .
000E10: 20 19 0E 01 A9 20 12 2C 0B 00 00 C9 F4 12 01 BB .... .,........
000E20: 20 0F 01 BF 20 0B 00 00 E9 3B 22 20 22 3B 03 00 ... ....;" ";..
000E30: 00 E1 28 0B 00 00 E9 29 01 A9 20 19 16 2C 0B 00 ..(....).. ..,..
000E40: 00 E9 F4 12 01 BF 20 0B 00 00 E9 F4 19 0E 3B 22 ...... .......;"
000E50: 20 22 3B 03 00 00 E1 28 0B 00 00 E9 F4 19 0E 29 ";....(.......)
000E60: 01 B0 00 8C 00 2B 00 9E 20 0B 00 00 6E E8 EF 0F .....+.. ...n...
000E70: 20 EC 20 19 28 01 BB 20 0F 01 A9 20 0B 00 00 6E . .(.. ... ...n
000E80: E8 2C 19 75 3B 17 01 BF 20 FF 03 28 19 8F 29 01 .,.u;... ..(..).
000E90: B0 20 0B 00 00 6E E8 01 BF 20 FF 03 28 19 16 29 . ...n... ..(..)
000EA0: F4 FF 03 28 0F 29 01 BB 20 0E 01 A9 20 0F 2C 19 ...(.).. ... .,.
000EB0: 17 01 BF 22 20 55 3D 55 50 20 20 20 20 20 20 20 ..." U=UP
000EC0: 20 45 4E 54 45 52 3D 43 48 4F 4F 53 45 20 20 20 ENTER=CHOOSE
000ED0: 20 20 20 20 20 44 3D 44 4F 57 4E 20 22 01 BF 20 D=DOWN "..
000EE0: FF 03 28 19 16 29 F4 FF 03 28 0E 29 01 BB 20 0F ..(..)...(.).. .
000EF0: 00 13 00 2C 00 03 00 00 FA EF 22 44 22 01 9F 20 ...,......"D"..
000F00: 1E 34 00 00 2D 00 2D 00 03 00 00 FA EF FF 43 01 .4..-.-.......C.
000F10: A1 20 03 00 00 FA EF 22 22 20 EB 20 1E 2D 00 20 . ....."" . .-.
000F20: 01 97 20 03 00 00 FA EF FF 1C 28 03 00 00 FA 29 .. .......(....)
000F30: 00 94 00 2E 00 A1 20 FF 01 28 03 00 00 FA 29 EF ...... ..(....).
000F40: 19 0D 20 EB 20 BF 20 FF 03 28 15 29 01 03 00 00 .. . . ..(.)....
000F50: F9 28 0F 29 EF 03 00 00 E1 28 0B 00 00 62 E9 29 .(.).....(...b.)
000F60: 01 0B 00 00 65 B1 EF 0B 00 00 EB 28 0B 00 00 62 ....e......(...b
000F70: E9 29 01 0B 00 00 EB 28 0B 00 00 62 E9 29 EF 0B .).....(...b.)..
000F80: 00 00 EB 28 19 19 FF 25 29 01 0B 00 00 EB 28 19 ...(...%).....(.
000F90: 25 29 EF 0B 00 00 65 B1 01 0B 00 00 EB 28 0B 00 %)....e......(..
000FA0: 00 62 E9 29 EF 0B 00 00 EB 28 0B 00 00 62 E9 29 .b.).....(...b.)
000FB0: F5 28 0B 00 00 EB 28 0B 00 00 62 E9 29 F6 10 29 .(....(...b.)..)
000FC0: 01 A0 20 1E 36 00 00 D6 00 2F 00 A1 20 03 00 00 .. .6..../.. ...
000FD0: FA EF 22 44 22 20 EB 20 0B 00 00 62 E9 EF 0B 00 .."D" . ...b....
000FE0: 00 62 E9 F4 0F 01 A1 20 0B 00 00 62 E9 EF 19 1D .b..... ...b....
000FF0: 20 EB 20 0B 00 00 62 E9 EF 19 1C 01 A0 20 1E 30 . ...b...... .0
001000: 00 20 01 97 20 A1 20 0B 00 00 62 E9 EF 19 0F 20 . .. . ...b....
001010: EB 20 0B 00 00 62 E9 EF 0B 00 00 62 E9 F5 0F 01 . ...b.....b....
001020: 9F 20 1E 32 00 01 0B 00 00 62 E9 EF 0B 00 00 62 . .2.....b.....b
001030: E9 F4 0F 01 9F 20 1E 35 00 20 01 97 20 A1 20 0B ..... .5. .. . .
001040: 00 00 62 E9 EE 19 0E 20 EB 20 0B 00 00 62 E9 EF ..b.... . ...b..
001050: 0B 00 00 62 E9 F5 0F 01 9F 20 1E 33 00 01 0B 00 ...b..... .3....
001060: 00 62 E9 EF 0B 00 00 62 E9 F4 0F 01 9F 20 1E 35 .b.....b..... .5
001070: 00 20 01 97 20 0B 00 00 62 E9 EF 0B 00 00 62 E9 . .. ...b.....b.
001080: F5 0F 01 9F 20 1E 32 20 26 00 01 0B 00 00 62 E9 .... .2 &.....b.
001090: EF 0B 00 00 62 E9 F4 0F 01 9F 20 1E 34 00 00 D4 ....b..... .4...
0010A0: 00 30 00 A1 20 03 00 00 FA EF 22 55 22 20 EB 20 .0.. ....."U" .
0010B0: 0B 00 00 62 E9 EF 0B 00 00 62 E9 F5 0F 01 A1 20 ...b.....b.....
0010C0: 0B 00 00 62 E9 EF 0E 20 EB 20 0B 00 00 62 E9 EF ...b... . ...b..
0010D0: 0F 01 A0 20 1E 31 00 20 01 97 20 A1 20 0B 00 00 ... .1. .. . ...
0010E0: 62 E9 EF 19 0E 20 EB 20 0D 00 00 62 E9 EF 0D 00 b.... . ...b....
0010F0: 00 62 E9 F4 0F 01 9F 20 1E 33 00 01 0D 00 00 62 .b..... .3.....b
001100: E9 EF 0D 00 00 62 E9 F5 0F 01 9F 20 1E 34 00 20 .....b..... .4.
001110: 01 97 20 A1 20 0B 00 00 62 E9 EE 19 0E 20 EB 20 .. . ...b.... .
001120: 0D 00 00 62 E9 EF 0D 00 00 62 E9 F4 0F 01 9F 20 ...b.....b.....
001130: 1E 33 00 01 0D 00 00 62 E9 EF 0D 00 00 62 E9 F5 .3.....b.....b..
001140: 0F 01 9F 20 1E 35 00 20 01 97 20 0B 00 00 62 E9 ... .5. .. ...b.
001150: EF 0B 00 00 62 E9 F4 0F 01 9F 20 1E 32 00 01 0B ....b..... .2...
001160: 00 00 62 E9 EF 0B 00 00 62 E9 F5 0F 01 9F 20 1E ..b.....b..... .
001170: 34 00 00 0A 00 31 00 A0 20 1E 2D 00 00 64 00 32 4....1.. .-..d.2
001180: 00 A1 20 03 00 00 FA EF 22 93 33 44 22 20 FC 20 .. .....".3D" .
001190: 03 00 00 FA EF 22 55 22 20 EB 20 A9 20 12 2C 0B ....."U" . . .,.
0011A0: 00 00 62 E9 F4 12 01 BF 22 20 20 20 20 20 20 20 ..b....."
0011B0: 20 20 20 20 20 20 20 22 01 A9 20 12 2C 0B 00 00 ".. .,...
0011C0: 62 E9 F4 12 01 BB 20 0F 01 BF 20 0B 00 00 62 E9 b..... ... ...b.
0011D0: 3B 22 20 22 3B 03 00 00 E1 28 0B 00 00 62 E9 29 ;" ";....(...b.)
0011E0: 01 C9 00 68 00 33 00 A1 20 03 00 00 FA EF 22 44 ...h.3.. ....."D
0011F0: 22 20 FC 20 03 00 00 FA EF 22 55 22 20 EB 20 A9 " . ....."U" . .
001200: 20 19 16 2C 0B 00 00 62 E9 F5 19 0A 01 BF 22 20 ..,...b......"
001210: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 01 A9 "..
001220: 20 19 16 2C 0B 00 00 62 E9 F5 19 0A 01 BB 20 0F ..,...b...... .
001230: 01 BF 20 0B 00 00 62 E9 3B 22 20 22 3B 03 00 00 .. ...b.;" ";...
001240: E1 28 0B 00 00 62 E9 29 01 C9 00 94 00 34 00 A1 .(...b.).....4..
001250: 20 03 00 00 FA EF 22 44 22 20 FC 20 03 00 00 FA ....."D" . ....
001260: EF 22 55 22 20 EB 20 9E 20 0B 00 00 6E E8 EF 0F ."U" . . ...n...
001270: 20 EC 20 19 0D 01 A9 20 0B 00 00 6E E8 F4 12 2C . .... ...n...,
001280: 0B 00 00 62 E9 F4 12 01 BB 20 0F 95 50 FF FF FF ...b..... ..P...
001290: FF 11 A3 04 7B 02 2C 02 71 02 E3 04 C8 0F 08 13 ..£.{.,.q.......
0012A0: 00 07 01 00 2C 49 2E 4D 41 4E 41 47 45 52 00 00 ....,I.MANAGER..
0012B0: 00 00 00 00 00 03 00 01 00 08 70 11 00 58 22 00 ..........p..X".
0012C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0012D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0012E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001330: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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 00 ................
001370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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 BF 30 FF FF FF FF 11 A3 04 7B 02 ......0.....£.{.
0013B0: 2C 02 5B 02 B7 04 F6 0F 08 BB 0A 15 08 00 16 01 ,.[.............
0013C0: BF 20 FF 03 28 19 8F 29 01 B0 01 BF 20 FF 03 28 . ..(..).... ..(
0013D0: 19 16 29 F4 FF 03 28 0F 29 01 BB 20 0E 01 A9 20 ..)...(.).. ...
0013E0: 12 2C 0B 00 00 62 E9 F4 12 01 BF 20 0B 00 00 62 .,...b..... ...b
0013F0: E9 3B 22 20 22 3B 03 00 00 E1 28 0B 00 00 62 E9 .;" ";....(...b.
001400: 29 01 BF 20 FF 03 28 19 16 29 F4 FF 03 28 0E 29 ).. ..(..)...(.)
001410: 01 C9 00 98 00 35 00 A1 20 03 00 00 FA EF 22 44 .....5.. ....."D
001420: 22 20 FC 20 03 00 00 FA EF 22 55 22 20 EB 20 9E " . ....."U" . .
001430: 20 0B 00 00 6E E8 EF 0F 20 EC 20 19 0D 01 A9 20 ...n... . ....
001440: 0B 00 00 6E E8 F4 19 16 2C 0B 00 00 62 E9 F5 19 ...n....,...b...
001450: 0A 01 BB 20 0F 01 BF 20 FF 03 28 19 8F 29 01 B0 ... ... ..(..)..
001460: 01 BF 20 FF 03 28 19 16 29 F4 FF 03 28 0F 29 01 .. ..(..)...(.).
001470: BB 20 0E 01 A9 20 19 16 2C 0B 00 00 62 E9 F5 19 . ... ..,...b...
001480: 0A 01 BF 20 0B 00 00 62 E9 3B 22 20 22 3B 03 00 ... ...b.;" ";..
001490: 00 E1 28 0B 00 00 62 E9 29 01 BF 20 FF 03 28 19 ..(...b.).. ..(.
0014A0: 16 29 F4 FF 03 28 0E 29 01 C9 00 5F 00 36 00 8A .)...(.)..._.6..
0014B0: 01 9E 20 0B 00 00 E9 EF 0F 20 EC 20 19 14 01 DD .. ...... . ....
0014C0: 57 A9 20 13 2C 0B 00 00 E9 01 BB 20 0F 01 BF 20 W. .,...... ...
0014D0: 0B 00 00 E9 3B 22 20 22 3B 03 00 00 E2 28 0B 00 ....;" ";....(..
0014E0: 00 E9 29 01 A9 20 19 16 2C 0B 00 00 E9 01 BF 20 ..).. ..,......
0014F0: 0B 00 00 E9 F4 19 14 3B 22 20 22 3B 03 00 00 E2 .......;" ";....
001500: 28 0B 00 00 E9 F4 19 14 29 01 B0 00 7F 00 37 00 (.......).....7.
001510: 9E 20 0B 00 00 6E E8 EF 0F 20 EC 20 19 28 01 A9 . ...n... . .(..
001520: 20 0B 00 00 6E E8 2C 19 17 01 BB 20 11 01 BF 20 ...n.,.... ...
001530: FF 03 28 19 8F 29 01 B0 01 BF 20 FF 03 28 19 16 ..(..).... ..(..
001540: 29 F4 FF 03 28 0F 29 01 BB 20 0F 01 A9 20 13 2C )...(.).. ... .,
001550: 19 17 01 BF 22 44 4F 20 59 4F 55 20 57 41 4E 54 ...."DO YOU WANT
001560: 20 54 4F 20 43 48 41 4E 47 45 20 4E 41 4D 45 53 TO CHANGE NAMES
001570: 20 59 2F 4E 22 F4 FF 03 28 15 29 01 BF 20 FF 03 Y/N"...(.).. ..
001580: 28 19 16 29 F4 FF 03 28 0E 29 00 2D 00 38 00 03 (..)...(.).-.8..
001590: 00 00 FA EF FF 43 01 A1 20 03 00 00 FA EF 22 22 .....C.. .....""
0015A0: 20 EB 20 1E 38 00 20 01 97 20 03 00 00 FA EF FF . .8. .. ......
0015B0: 1C 28 03 00 00 FA 29 00 15 00 39 00 A1 20 03 00 .(....)...9.. ..
0015C0: 00 78 56 FA EF 22 59 22 20 EB 20 1E 3C 00 00 15 .xV.."Y" . .<...
0015D0: 00 3A 00 A1 20 03 00 00 FA EF 22 4E 22 20 EB 20 .:.. ....."N" .
0015E0: 1E 59 00 00 0A 00 3B 00 A0 20 1E 38 00 00 94 00 .Y....;.. .8....
0015F0: 3C 00 0B 00 00 64 B1 EF 0F 01 9E 20 0B 00 00 6E <....d..... ...n
001600: E8 EF 0F 20 EC 20 19 28 01 BB 20 11 01 A9 20 0B ... . .(.. ... .
001610: 00 00 6E E8 2C 19 17 01 BF 20 FF 03 28 19 8F 29 ..n.,.... ..(..)
001620: 01 B0 20 0B 00 00 6E E8 01 BF 20 FF 03 28 19 16 .. ...n... ..(..
001630: 29 F4 FF 03 28 0F 29 01 BB 20 0F 01 A9 20 0F 2C )...(.).. ... .,
001640: 19 17 01 BF 22 20 55 3D 55 50 20 20 20 20 20 20 ...." U=UP
001650: 20 20 45 4E 54 45 52 3D 43 48 4F 4F 53 45 20 20 ENTER=CHOOSE
001660: 20 20 20 20 20 20 44 3D 44 4F 57 4E 20 22 01 BF D=DOWN "..
001670: 20 FF 03 28 19 16 29 F4 FF 03 28 0E 29 01 BB 20 ..(..)...(.)..
001680: 0F 00 13 00 3D 00 03 00 00 FA EF 22 44 22 01 9F ....=......"D"..
001690: 20 1E 45 00 00 2D 00 3E 00 03 00 00 FA EF FF 43 .E..-.>.......C
0016A0: 01 A1 20 03 00 00 FA EF 22 22 20 EB 20 1E 3E 00 .. ....."" . .>.
0016B0: 20 01 97 20 03 00 00 FA EF FF 1C 28 03 00 00 FA .. .......(....
0016C0: 29 00 22 7F 67 00 3F 00 A1 20 FF 01 28 03 00 00 ).".g.?.. ..(...
0016D0: FA 29 EF 19 0D 20 EB 20 BF 20 FF 03 28 15 29 01 .)... . . ..(.).
0016E0: A0 20 1E 47 00 00 D6 00 40 00 A1 20 03 00 00 FA . .G....@.. ....
0016F0: EF 22 44 22 20 EB 20 0B 00 00 64 B1 EF 0B 00 00 ."D" . ...d.....
001700: 64 B1 F4 0F 01 A1 20 0B 00 00 64 B1 EF 19 29 20 d..... ...d...)
001710: EB 20 0D 00 00 64 B1 EF 19 28 01 A0 20 1E 41 00 . ...d...(.. .A.
001720: 20 01 97 20 A1 20 0B 00 00 64 B1 EF 19 15 20 EB .. . ...d.... .
001730: 20 0D 00 00 64 B1 EF 0D 00 00 64 B1 F5 0F 01 9F ...d.....d.....
001740: 20 1E 43 00 01 0D 00 00 64 B1 EF 0D 00 00 64 B1 .C.....d.....d.
001750: F4 0F 01 9F 20 1E 46 00 20 01 97 20 A1 20 0B 00 .... .F. .. . ..
001760: 00 64 B1 EE 19 14 20 EB 20 0D 00 00 64 B1 EF 0D .d.... . ...d...
001770: 00 00 64 B1 F5 0F 01 9F 20 1E 44 00 01 0D 00 00 ..d..... .D.....
001780: 64 B1 EF 0D 00 00 64 B1 F4 0F 01 9F 20 1E 46 00 d.....d..... .F.
001790: 20 01 97 20 0B 00 00 64 B1 EF 0B 00 00 64 B1 F5 .. ...d.....d..
0017A0: 0F 01 9F 20 1E 43 00 01 0B 00 00 64 B1 EF 0B 00 ... .C.....d....
0017B0: 00 64 B1 F4 0F 01 9F 20 1E 45 00 00 D4 00 41 00 .d..... .E....A.
0017C0: A1 20 03 00 00 D6 60 FA EF 22 55 22 20 EB 20 0D . ....`.."U" . .
0017D0: 00 00 64 B1 EF 0D 00 00 64 B1 F5 0F 01 A1 20 0D ..d.....d..... .
0017E0: 00 00 64 B1 EF 0E 20 EB 20 0D 00 00 64 B1 EF 0F ..d... . ...d...
0017F0: 01 A0 20 1E 3E 00 20 01 97 20 A1 20 0D 00 00 64 .. .>. .. . ...d
001800: B1 EF 19 14 20 EB 20 0D 00 00 64 B1 EF 0D 00 00 .... . ...d.....
001810: 64 B1 F4 0F 01 9F 20 1E 44 00 01 0D 00 00 64 B1 d..... .D.....d.
001820: EF 0D 00 00 64 B1 F5 0F 01 9F 20 1E 45 00 20 01 ....d..... .E. .
001830: 97 20 A1 20 0D 00 00 64 B1 EE 19 14 20 EB 20 0D . . ...d.... . .
001840: 00 00 64 B1 EF 0D 00 00 64 B1 F4 0F 01 9F 20 1E ..d.....d..... .
001850: 44 00 01 0D 00 00 64 B1 EF 0D 00 00 64 B1 F5 0F D.....d.....d...
001860: 01 9F 20 1E 46 00 20 01 97 20 0D 00 00 64 B1 EF .. .F. .. ...d..
001870: 0D 00 00 64 B1 F4 0F 01 9F 20 1E 43 00 01 0D 00 ...d..... .C....
001880: 00 64 B1 EF 0D 00 00 64 B1 F5 0F 01 9F 20 1E 45 .d.....d..... .E
001890: 00 00 0A 00 42 00 A0 20 1E 3E 00 00 5F 00 43 00 ....B.. .>.._.C.
0018A0: A1 20 03 00 00 FA EF 22 44 22 20 FC 20 03 00 00 . ....."D" . ...
0018B0: FA EF 22 55 22 20 EB 20 A9 20 13 2C 0B 00 00 64 .."U" . . .,...d
0018C0: B1 01 BF 22 20 20 20 1E AD 20 20 20 20 20 20 20 ..." ..
0018D0: 20 20 20 22 01 A9 20 13 2C 0B 00 00 64 B1 01 BB ".. .,...d...
0018E0: 20 0F 01 BF 20 0B 00 00 64 B1 3B 22 20 22 3B 03 ... ...d.;" ";.
0018F0: 00 00 E2 28 0B 00 00 64 B1 29 01 C9 00 66 00 44 ...(...d.)...f.D
001900: 00 A1 20 03 00 00 FA EF 22 44 22 20 FC 20 03 00 .. ....."D" . ..
001910: 00 FA EF 22 55 22 20 EB 20 A9 20 19 16 2C 0D 00 ..."U" . . ..,..
001920: 00 64 B1 F5 19 14 01 BF 22 20 20 20 20 20 20 20 .d......"
001930: 20 20 20 20 20 22 01 A9 20 19 16 2C 0D 00 00 64 ".. ..,...d
001940: B1 F5 19 14 01 BB 20 0F 01 BF 20 0D 00 00 64 B1 ...... ... ...d.
001950: 3B 22 20 22 3B 03 00 00 E2 28 0D 00 00 64 B1 29 ;" ";....(...d.)
001960: 01 C9 00 90 00 45 00 A1 20 03 00 00 FA EF 22 44 .....E.. ....."D
001970: 22 20 FC 20 03 00 00 FA EF 22 55 22 20 EB 20 9E " . ....."U" . .
001980: 20 0B 00 00 6E E8 EF 0F 20 EC 20 19 0B 01 A9 20 ...n... . ....
001990: 0B 00 00 6E E8 F4 13 2C 0B 00 00 64 B1 01 BB 20 ...n...,...d...
0019A0: 0F 01 BF 20 FF 03 28 19 8F 29 01 B0 01 BF 20 FF ... ..(..).... .
0019B0: 03 28 19 16 29 F4 FF 03 28 0F 29 01 BB 20 0E 01 .(..)...(.).. ..
0019C0: A9 20 13 2C 0B 00 00 64 B1 F5 ED 01 BF 20 0B 00 . .,...d..... ..
0019D0: 00 64 B1 3B 22 20 22 3B 03 00 00 E2 28 0B 00 00 .d.;" ";....(...
0019E0: 64 B1 29 01 BF 20 FF 03 28 19 16 29 F4 FF 03 28 d.).. ..(..)...(
0019F0: 0E 29 01 C9 00 98 00 46 00 A1 20 03 00 00 FA EF .).....F.. .....
001A00: 22 44 22 20 FC 20 03 00 00 FA EF 22 55 22 20 EB "D" . ....."U" .
001A10: 20 9E 20 0D 00 00 6E E8 EF 0F 20 EC 20 19 0B 01 . ...n... . ...
001A20: A9 20 0D 00 00 6E E8 F4 19 16 2C 0D 00 00 64 B1 . ...n....,...d.
001A30: F5 19 14 01 BB 20 0F 01 BF 20 FF 03 28 19 8F 29 ..... ... ..(..)
001A40: 01 B0 01 BF 20 FF 03 28 19 16 29 F4 FF 03 28 0F .... ..(..)...(.
001A50: 29 01 BB 20 0E 01 A9 20 19 16 2C 0D 00 00 64 B1 ).. ... ..,...d.
001A60: F5 19 14 01 BF 20 0D 00 00 64 B1 3B 22 20 22 3B ..... ...d.;" ";
001A70: 03 00 00 E2 28 0D 00 00 64 B1 29 01 BF 20 FF 03 ....(...d.).. ..
001A80: 28 19 16 29 F4 FF 03 28 0E 29 01 C9 00 8F 00 47 (..)...(.).....G
001A90: 00 03 00 00 F7 EF 22 22 01 0B 00 00 E2 EF 19 13 ......""........
001AA0: 01 0B 00 00 62 B1 EF 19 13 01 A9 20 0F 2C 19 17 ....b...... .,..
001AB0: 01 BF 22 20 20 20 20 20 20 20 20 20 20 20 20 20 .."
001AC0: 20 20 20 20 20 20 20 20 20 20 20 2B 03 20 20 20 +.
001AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 01 BB "..
001AE0: 20 10 01 A9 20 13 2C 19 16 01 BF 22 54 59 50 45 ... .,...."TYPE
001AF0: 20 4E 45 57 20 4E 41 4D 45 20 28 37 20 4C 45 54 NEW NAME (7 LET
001B00: 54 45 52 53 20 4D 41 58 29 22 01 A9 20 19 12 2C TERS MAX)".. ..,
001B10: 19 17 01 BF 22 3A 22 01 9F 20 1E 50 00 00 38 00 ....":".. .P..8.
001B20: 48 00 03 00 00 FA EF FF 43 01 A1 20 03 00 00 FA H.......C.. ....
001B30: EF 22 22 20 FC 20 03 00 00 DA EF 22 20 22 20 EB ."" . ....." " .
001B40: 20 1E 48 00 20 01 97 20 03 00 00 FA EF FF 1C 28 .H. .. .......(
001B50: 03 00 00 FA 29 00 62 00 49 00 A1 20 FF 01 28 03 ....).b.I.. ..(.
001B60: 00 00 FA 29 EF 19 7F 20 FA 20 0B 00 00 C2 EF 19 ...)... . ......
001B70: 13 20 EB 20 1E 48 00 20 01 97 20 A1 20 FF 01 28 . . .H. .. . ..(
001B80: 03 00 00 FA 29 EF 19 7F 20 EB 20 A9 20 0D 00 00 ....)... . . ...
001B90: E2 2C 19 17 01 BF 22 20 22 01 0D 00 00 E2 EF 0D .,...." ".......
001BA0: 00 00 E2 F5 0F 01 9F 20 1E 4E 00 01 9F 20 1E 50 ....... .N... .P
001BB0: 00 01 A0 20 1E 48 00 00 33 00 4A 00 A1 20 FF 01 ... .H..3.J.. ..
001BC0: 28 03 00 00 FA 29 EF 19 0D 20 EB 20 BF CF 49 FF (....)... . ..I.
001BD0: FF FF FF 11 A2 04 7B 02 2C 02 71 02 E4 04 C7 0F ......{.,.q.....
001BE0: 08 13 00 07 01 00 2C 49 2E 4D 41 4E 41 47 45 52 ......,I.MANAGER
001BF0: 00 00 00 00 00 00 00 04 00 01 00 08 70 19 00 58 ............p..X
001C00: 22 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 "...............
001C10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001C20: 00 00 00 00 00 00 00 00 00 00 00 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 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001C70: 00 00 00 00 00 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: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001CC0: 00 00 00 00 00 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 B7 D0 FF FF FF FF 11 A2 04 ................
001CF0: 7B 02 2C 02 5A 02 B5 04 F7 0F 08 BA 0A 15 08 00 {.,.Z...........
001D00: 16 20 FF 03 28 15 29 01 03 00 00 C2 28 0B 00 00 . ..(.).....(...
001D10: 64 B1 29 EF 03 00 00 F7 01 A0 20 1E 36 00 00 19 d.)....... .6...
001D20: 00 4B 00 03 00 00 F7 EF 03 00 00 F7 F4 03 00 00 .K..............
001D30: FA 01 9F 20 1E 4F 00 00 68 00 4C 00 A1 20 FF 0E ... .O..h.L.. ..
001D40: 28 03 00 00 F7 29 EE 15 20 EB 20 A9 20 13 2C 19 (....).. . . .,.
001D50: 16 01 BB 20 10 01 BF 22 20 20 20 54 48 49 53 20 ... ..." THIS
001D60: 4E 41 4D 45 20 49 53 20 54 4F 4F 20 4C 4F 4E 47 NAME IS TOO LONG
001D70: 20 20 20 20 20 20 20 20 20 20 22 01 CC 20 0F 2C ".. .,
001D80: 1A 2C 01 2C 19 C8 2C 15 01 9E 20 0D 00 00 E9 EF .,.,..,... .....
001D90: 0F 20 EC 20 1A B8 0B 01 B0 01 A0 20 1E 47 00 00 . . ....... .G..
001DA0: 22 00 4D 00 9F 20 1E 4F 00 01 0B 00 00 E2 EF 0B ".M.. .O........
001DB0: 00 00 E2 F4 0F 01 9F 20 1E 50 00 01 A0 20 1E 48 ....... .P... .H
001DC0: 00 00 37 00 4E 00 0D 00 00 77 F1 EF FF 0E 28 03 ..7.N....w....(.
001DD0: 00 00 F7 29 01 03 00 00 77 F1 EF FF 75 28 03 00 ...)....w...u(..
001DE0: 00 F7 2C 0D 00 00 77 F1 F5 0F 29 01 03 00 00 F7 ..,...w...).....
001DF0: EF 03 00 00 77 F1 01 C9 00 18 00 4F 00 A9 20 0B ....w......O.. .
001E00: 00 34 B8 00 E2 2C 19 17 01 BF 20 03 00 00 FA 3B .4...,.... ....;
001E10: 01 C9 00 19 00 50 00 A9 20 0D 00 00 E2 2C 19 17 .....P.. ....,..
001E20: 01 BF 20 FF 03 28 19 5F 29 01 C9 00 22 01 51 00 .. ..(._)...".Q.
001E30: 0B 00 00 41 C5 EF F5 28 0B 00 00 C5 28 0F 29 EF ...A...(....(.).
001E40: 0F 29 F6 28 28 0B 00 00 C3 28 0F 29 F7 16 29 F4 .).((....(.)..).
001E50: 0B 00 00 C7 28 0F 29 F4 0B 00 00 C6 28 0F 29 29 ....(.).....(.))
001E60: 01 9E 20 0B 00 00 CD EF 10 20 EC 20 19 0B 01 0B .. ...... . ....
001E70: 00 00 41 C6 EF 0B 00 00 41 C6 F5 28 0B 00 00 C5 ..A.....A..(....
001E80: 28 0B 00 00 CD 29 EF 10 29 F6 28 28 0B 00 00 C3 (....)..).((....
001E90: 28 0B 00 00 CD 29 F7 16 29 F4 0B 00 00 C7 28 0B (....)..).....(.
001EA0: 00 00 CD 29 F4 0B 00 00 C6 28 0B 00 00 CD 29 29 ...).....(....))
001EB0: 01 0B 00 00 41 C7 EF 0B 00 00 41 C7 F5 28 0B 00 ....A.....A..(..
001EC0: 00 C5 28 0B 00 00 CD 29 EF 11 29 F6 28 28 0B 00 ..(....)..).((..
001ED0: 00 C3 28 0B 00 00 CD 29 F7 16 29 F4 0B 00 00 C7 ..(....)..).....
001EE0: 28 0B 00 00 CD 29 F4 0B 00 00 C6 28 0B 00 00 CD (....).....(....
001EF0: 29 29 01 0B 00 00 41 C8 EF 0B 00 00 41 C8 F5 28 ))....A.....A..(
001F00: 0B 00 00 41 3E C5 28 0B 00 00 CD 29 EF 12 29 F6 ...A>.(....)..).
001F10: 28 28 0B 00 00 C3 28 0B 00 00 CD 29 F7 16 29 F4 ((....(....)..).
001F20: 0B 00 00 C7 28 0B 00 00 CD 29 F4 0B 00 00 C6 28 ....(....).....(
001F30: 0B 00 00 CD 29 29 01 B0 01 0B 00 00 41 C5 EF FF ....))......A...
001F40: 0C 28 0B 00 00 41 C5 F7 1F 9A 99 99 39 82 29 00 .(...A......9.).
001F50: 0F 01 52 00 0B 00 00 41 C6 EF 0B 00 00 41 C6 F7 ..R....A.....A..
001F60: 1F 9A 99 99 39 82 01 0B 00 00 41 C7 EF 0B 00 00 ....9.....A.....
001F70: 41 C7 F7 1F 9A 99 99 39 82 01 0B 00 00 41 C8 EF A......9.....A..
001F80: 0B 00 00 41 C8 F7 1F 9A 99 99 39 82 01 0B 00 00 ...A......9.....
001F90: 41 C6 EF FF 0C 28 0B 00 00 41 C6 F7 1F 9A 99 99 A....(...A......
001FA0: 79 82 29 01 0B 00 00 41 C7 EF FF 0C 28 0B 00 00 y.)....A....(...
001FB0: 41 C7 F7 1F 9A 99 99 39 82 29 01 0B 00 00 41 C8 A......9.)....A.
001FC0: EF FF 0C 28 0B 00 00 41 C8 F7 1F 9A 99 99 39 82 ...(...A......9.
001FD0: 29 01 0B 00 00 41 C5 EF 0B 00 00 41 C5 F5 28 28 )....A.....A..((
001FE0: 0B 00 00 41 C5 F5 17 29 F7 10 29 F6 28 0F F4 FF ...A...)..).(...
001FF0: 14 28 0B 00 00 41 C5 F5 1F CD CC CC 10 84 29 29 .(...A........))
002000: 01 0B 00 00 41 8F 3B C7 EF 0B 00 00 41 C7 F5 28 ....A.;.....A..(
002010: 28 0B 00 00 41 C7 F5 17 29 F7 10 29 F6 28 0F F4 (...A...)..).(..
002020: FF 14 28 0B 00 00 41 C7 F5 1F CD CC CC 10 84 29 ..(...A........)
002030: 29 01 0B 00 00 41 C6 EF 0B 00 00 41 C6 F5 28 28 )....A.....A..((
002040: 0B 00 00 41 C6 F5 17 29 F7 10 29 F6 28 0F F4 FF ...A...)..).(...
002050: 14 28 0B 00 00 41 C6 F5 1F CD CC CC 10 84 29 29 .(...A........))
002060: 00 35 00 53 00 0B 00 00 41 C8 EF 0B 00 00 41 C8 .5.S....A.....A.
002070: F5 28 28 0B 00 00 41 C8 F5 17 29 F7 10 29 F6 28 .((...A...)..).(
002080: 0F F4 FF 14 28 0B 00 00 41 C8 F5 1F CD CC CC 10 ....(...A.......
002090: 84 29 29 01 C9 00 42 00 54 00 0D 00 00 E5 28 0D .))...B.T.....(.
0020A0: 00 00 E9 29 EF FF 0C 28 1F CD CC CC 4C 81 F4 28 ...)...(....L..(
0020B0: FF 45 F6 1F 33 33 33 53 82 29 29 01 0D 00 00 E4 .E..333S.)).....
0020C0: 28 0D 00 00 E9 29 EF 11 F4 FF 0C 28 FF 45 F6 19 (....).....(.E..
0020D0: 45 29 F7 19 0A 01 C9 00 21 00 56 00 BB 20 10 01 E)......!.V.. ..
0020E0: A9 20 19 0F 2C 19 18 01 BF 22 50 4C 45 41 53 45 . ..,...."PLEASE
0020F0: 20 57 41 49 54 22 01 C9 00 11 00 57 00 93 20 03 WAIT".....W.. .
002100: 00 00 C8 28 19 0F 29 19 D4 01 C9 00 1D 00 58 00 ...(..).......X.
002110: 93 20 0B 00 00 D1 28 13 2C 13 29 01 93 20 03 00 . ....(.,.).. ..
002120: 00 C4 28 19 0D 29 01 C9 00 0C 00 59 00 8A 01 9F ..(..).....Y....
002130: 20 1E 5C 00 00 1D 00 5A 00 85 20 AB 22 49 2E 4D .\....Z.. ."I.M
002140: 41 4E 41 47 45 52 22 2C 19 49 2C 92 20 1E 01 00 ANAGER",.I,. ...
002150: F5 00 7B 00 5B 00 8A 01 9E 20 0D 00 00 6E E8 EF ..{.[.... ...n..
002160: 0F 20 EC 20 19 14 01 A9 20 0D 00 00 6E E8 F4 17 . . .... ...n...
002170: 2C 19 0C 01 BB 20 0F 01 BF 20 FF 03 28 19 8F 29 ,.... ... ..(..)
002180: 01 B0 01 BF 20 FF 03 28 19 16 29 F4 FF 03 28 0F .... ..(..)...(.
002190: 29 01 A9 20 19 0A 2C 19 0C 01 BB 20 0E 01 BF 22 ).. ..,.... ..."
0021A0: 49 4E 53 45 52 54 20 4F 52 49 47 49 4E 41 4C 20 INSERT ORIGINAL
0021B0: 54 41 50 45 22 01 BF 20 FF 03 28 19 16 29 F4 FF TAPE".. ..(..)..
0021C0: 03 28 0E 29 01 9F 20 1E 77 00 01 C9 00 64 00 5C .(.).. .w....d.\
0021D0: 00 9E 20 0D 00 00 6E E8 EF 0F 20 EC 20 15 01 A9 .. ...n... . ...
0021E0: 20 0D 00 00 6E E8 2C 0F 01 BB 20 10 01 BF 20 FF ...n.,... ... .
0021F0: 03 28 19 8F 29 01 B0 01 BF 20 FF 03 28 19 16 29 .(..).... ..(..)
002200: F4 FF 03 28 0F 29 01 A9 20 4C 72 0F 2C 0F 01 BB ...(.).. Lr.,...
002210: 20 11 01 BF 22 4C 4F 41 44 49 4E 47 22 01 BF 20 ..."LOADING"..
002220: FF 03 28 19 16 29 F4 FF 03 28 0E 29 01 BB 20 0F ..(..)...(.).. .
002230: 01 C9 00 83 00 5D 00 8A 01 9F 20 1E 5C 00 01 9E .....].... .\...
002240: 20 0D 00 00 6E E8 EF 0F 20 EC 20 19 19 01 A9 20 ...n... . ....
002250: 0D 00 00 6E E8 F4 14 2C 19 0C 01 BB 20 0F 01 BF ...n...,.... ...
002260: 20 FF 03 28 19 8F 29 01 B0 01 BF 20 FF 03 28 19 ..(..).... ..(.
002270: 16 29 F4 FF 03 28 0F 29 01 A9 20 15 2C 19 0C 01 .)...(.).. .,...
002280: BB 20 0E 01 BF 22 53 54 4F 50 20 54 41 50 45 2C . ..."STOP TAPE,
002290: 4C 4F 41 44 20 53 41 56 45 44 20 47 41 4D 45 22 LOAD SAVED GAME"
0022A0: 01 BF 20 FF 03 28 19 16 29 F4 FF 03 28 0E 29 01 .. ..(..)...(.).
0022B0: 9F 20 1E 77 00 00 0A 00 5E 00 B6 22 21 73 22 00 . .w....^.."!s".
0022C0: 3E 00 5F 00 9E 20 0D 00 00 E9 EF 0F 20 EC 20 13 >._.. ...... . .
0022D0: 01 9E 20 0D 00 00 FA EF 0F 20 EC 20 13 01 A3 23 .. ...... . ..£#
0022E0: 17 2C 0D 00 00 F1 28 0D 00 00 E9 2C 0D 00 00 FA .,....(....,....
0022F0: 29 01 B0 20 0D 00 00 FA 2C 0D 00 00 E9 00 B9 00 ).. ....,.......
002300: 60 00 A3 23 17 2C 0D 00 00 62 ED 61 A8 2C 0D 00 `.£#.,...b.a.,..
002310: 00 62 E7 2C 0D 00 00 62 E5 2C 0D 00 00 62 E6 2C .b.,...b.,...b.,
002320: 0D 00 00 62 E8 2C 0D 00 00 62 EA 2C 0D 00 00 6F ...b.,...b.,...o
002330: B4 2C 0D 00 00 62 E2 2C 0D 00 00 6F B1 2C 0D 00 .,...b.,...o.,..
002340: 00 6F B2 2C 0D 00 00 6F B3 2C 0D 00 00 74 B1 2C .o.,...o.,...t.,
002350: 0D 00 00 78 F8 2C 0D 00 00 79 F9 2C 0D 00 00 61 ...x.,...y.,...a
002360: E1 2C 0D 00 00 61 E2 2C 0D 00 00 61 E5 2C 0D 00 .,...a.,...a.,..
002370: 00 61 E6 2C 0D 00 00 61 E7 2C 0D 00 00 61 E8 2C .a.,...a.,...a.,
002380: 0D 00 00 62 E9 2C 0D 00 00 67 B4 2C 0D 00 00 61 ...b.,...g.,...a
002390: E3 2C 03 00 00 F2 2C 03 00 00 EE 2C 03 00 00 F3 .,....,....,....
0023A0: 2C 0D 00 00 61 E9 2C 0D 00 00 61 EA 2C 0D 00 00 ,...a.,...a.,...
0023B0: 61 EB 2C 0D 00 00 61 EC 00 2E 00 61 00 9E 20 0D a.,...a....a.. .
0023C0: 00 00 E9 EF 0F 20 EC 20 19 3C 01 A3 23 17 2C 03 ..... . .<.£#.,.
0023D0: 00 00 E1 28 0D 00 00 E9 29 2C 0D 00 00 EB 28 0D ...(....),....(.
0023E0: 00 00 E9 29 01 B0 00 23 00 62 00 9E 20 0D 00 00 ...)...#.b.. ...
0023F0: E9 EF 0F 20 EC 20 19 18 01 A3 23 17 2C 0D 00 00 ... . ...£#.,...
002400: F5 28 0D 00 00 E9 29 01 B0 00 86 00 63 AC 0C 00 .(....).....c...
002410: 9E 20 0D 00 00 E9 EF 0F 20 EC 20 19 28 01 A3 23 . ...... . .(.£#
002420: 17 2C 0D 00 00 E1 28 0D 00 00 E9 29 2C 0D 00 00 .,....(....),...
002430: E7 28 0D 00 00 E9 29 2C 0D 00 00 E4 28 0D 00 00 .(....),....(...
002440: E9 29 2C 0D 00 00 E6 28 0D 00 00 E9 29 2C 0D 00 .),....(....),..
002450: 00 E3 28 0D 00 00 E9 29 2C 0D 00 00 E2 28 0D 00 ..(....),....(..
002460: 00 E9 29 2C 03 00 00 E2 28 0D 00 00 E9 29 2C 0D ..),....(....),.
002470: 00 00 E5 28 0D 00 00 E9 29 2C 0D 00 00 EF 28 0D ...(....),....(.
002480: 00 00 E9 29 2C 0D 00 00 F0 28 0D 00 00 E9 29 01 ...),....(....).
002490: B0 00 31 00 64 00 9E 20 0D 00 00 E9 EF 0F 20 EC ..1.d.. ...... .
0024A0: 20 14 01 A3 23 17 2C 0D 00 00 F2 28 0F 2C 0D 00 ..£#.,....(.,..
0024B0: 00 E9 29 2C 0D 00 00 F2 28 10 2C 0D 00 00 E9 29 ..),....(.,....)
0024C0: 01 B0 00 38 00 65 00 9E 20 0D 00 00 E9 EF 0F 20 ...8.e.. ......
0024D0: EC 20 12 01 A3 23 17 2C 03 00 00 EA 28 0D 00 00 . ..£#.,....(...
0024E0: E9 29 2C 0D 00 00 F4 28 0D 00 00 E9 29 2C 03 00 .),....(....),..
0024F0: 00 E7 28 0D 00 00 E9 29 01 B0 00 2D 00 66 00 9E ..(....)...-.f..
002500: 20 0D 00 00 E9 EF 0F 20 EC 20 13 01 A3 23 17 87 ...... . ..£#..
002510: F5 FF FF FF FF 11 A2 04 2C 02 7B 02 70 02 E1 04 ........,.{.p...
002520: C6 0F 08 13 00 07 01 00 2C 49 2E 4D 41 4E 41 47 ........,I.MANAG
002530: 45 52 00 00 00 00 00 00 00 05 FF 01 58 02 70 21 ER..........X.p!
002540: 00 58 22 00 00 00 00 00 00 00 00 00 00 00 00 00 .X".............
002550: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002560: 00 00 00 00 00 00 00 00 00 00 00 00 00 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 00 00 00 00 00 00 00 00 00 00 00 ................
0025B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002600: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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 81 3C FF FF FF FF 11 ..........<.....
002630: A1 04 2C 02 7B 02 65 02 CB 04 F8 0F 08 CE 49 0B ..,.{.e.......I.
002640: 03 00 16 2C 03 00 00 E6 28 0D 00 00 E9 29 2C 03 ...,....(....),.
002650: 00 00 F4 28 0D 00 00 E9 29 01 B0 00 22 00 67 00 ...(....)...".g.
002660: 9E 20 0D 00 00 E9 EF 0F 20 EC 20 10 01 A3 23 17 . ...... . ..£#.
002670: 2C 03 00 00 F9 28 0D 00 00 E9 29 01 B0 00 23 00 ,....(....)...#.
002680: 68 00 9E 20 0D 00 00 E9 EF 0F 20 EC 20 19 0F 01 h.. ...... . ...
002690: A3 23 17 2C 03 00 00 E8 28 0D 00 00 E9 29 01 B0 £#.,....(....)..
0026A0: 00 2E 00 69 00 9E 20 0D 00 00 E9 EF 0F 20 EC 20 ...i.. ...... .
0026B0: 19 0C 01 A3 23 17 2C 0D 00 00 E8 28 0D 00 00 E9 ...£#.,....(....
0026C0: 29 2C 03 00 00 E4 28 0D 00 00 E9 29 01 B0 00 42 ),....(....)...B
0026D0: 00 6A 00 9E 20 0D 00 00 E9 EF 0F 20 EC 20 10 01 .j.. ...... . ..
0026E0: 9E 20 0D 00 00 69 B1 EF 0F 20 EC 20 19 28 01 A3 . ...i... . .(.£
0026F0: 23 17 2C 0D 00 00 EE 28 0D 00 00 E9 2C 0D 00 00 #.,....(....,...
002700: 69 B1 29 01 B0 20 0D 00 00 69 B1 2C 0D 00 00 E9 i.).. ...i.,....
002710: 00 06 00 6B 00 88 00 58 00 6C 00 9F 20 1E 5B 00 ...k...X.l.. .[.
002720: 01 C2 20 FF 46 01 9E 20 0D 00 00 E9 EF 0F 20 EC .. .F.. ...... .
002730: 20 19 0F 01 A1 20 FF 75 28 03 00 00 E8 28 0D 00 .... .u(....(..
002740: 00 E9 29 A6 C9 2C 10 29 EF 22 56 20 22 20 EB 20 ..)..,.)."V " .
002750: 03 00 00 E8 28 0D 00 00 E9 29 EF FF 7B 28 19 0B ....(....)..{(..
002760: 2C 22 20 22 29 F4 03 00 00 E8 28 0D 00 00 E9 29 ," ").....(....)
002770: 00 06 00 6D 00 B0 00 3C 00 6E 00 A1 20 03 00 00 ...m...<.n.. ...
002780: E4 28 14 29 EF 22 45 43 20 46 49 4E 41 4C 53 20 .(.)."EC FINALS
002790: 20 20 22 20 FC 20 03 00 00 E4 28 14 29 EF 22 57 " . ....(.)."W
0027A0: 43 20 46 49 4E 41 4C 53 20 20 20 22 20 EB 20 1E C FINALS " . .
0027B0: 71 00 00 0C 00 6F 00 0D 00 00 62 E7 EF 0F 00 0C q....o....b.....
0027C0: 00 71 00 8A 01 9F 20 1E 5C 00 00 1D 00 72 00 85 .q.... .\....r..
0027D0: 20 AB 22 49 2E 4D 41 4E 41 47 45 52 22 2C 19 6C ."I.MANAGER",.l
0027E0: 2C 92 20 1E 01 00 F5 00 21 00 73 00 03 00 00 E1 ,. .....!.s.....
0027F0: 28 0B 00 00 E9 29 EF 03 00 00 E1 28 0B 00 00 E9 (....).....(....
002800: 29 F4 FF 03 28 19 20 29 00 22 00 74 00 A1 20 FF )...(. ).".t.. .
002810: 0E 28 03 00 00 E1 28 0B 00 00 E9 29 29 F1 17 20 .(....(....))..
002820: EB 20 1E 73 00 20 01 97 20 C9 00 21 00 75 00 03 . .s. .. ..!.u..
002830: 00 00 EA 28 0B 00 00 E9 29 EF 03 00 00 EA 28 0B ...(....).....(.
002840: 00 00 E9 29 F4 E3 50 FF 03 28 19 20 29 00 22 00 ...)..P..(. ).".
002850: 76 00 A1 20 FF 0E 28 03 00 00 EA 28 0B 00 00 E9 v.. ..(....(....
002860: 29 29 F1 17 20 EB 20 1E 75 00 20 01 97 20 C9 00 )).. . .u. .. ..
002870: 2D 00 77 00 BB 20 10 01 A9 20 19 0D 2C 19 0E 01 -.w.. ... ..,...
002880: BF 22 50 52 45 53 53 20 41 4E 59 20 4B 45 59 22 ."PRESS ANY KEY"
002890: 01 83 20 1C 18 BB 01 BB 20 0F 01 C9 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0028E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0028F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 00 00 00 00 00 00 ................
002920: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002930: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002940: 00 00 00 00 00 00 00 DD 2C FF FF FF FF 11 A0 04 ........,.......
002950: 2C 02 7B 02 6D 02 DB 04 F4 0F 08 13 00 07 01 00 ,.{.m...........
002960: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER......
002970: 00 01 00 16 00 08 7C 9E FF 00 00 00 00 00 00 00 ......|.........
002980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0029A0: 00 00 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 00 00 00 00 00 ................
0029C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0029D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0029E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0029F0: 00 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 00 00 00 00 00 ................
002A10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 18 8D FF FF FF FF 11 A0 04 2C 02 7B 02 4F 02 ..........,.{.O.
002A70: A0 04 F6 0F 08 56 0B 15 08 00 16 32 20 49 46 20 .....V.....2 IF
002A80: 4D 49 44 24 28 64 24 28 61 62 29 2C 34 29 3D 22 MID$(d$(ab),4)="
002A90: 46 49 4E 41 4C 53 22 20 41 4E 44 20 62 66 3C 30 FINALS" AND bf<0
002AA0: 20 54 48 45 4E 20 31 31 30 0D 0A 33 20 47 4F 53 THEN 110..3 GOS
002AB0: 55 42 20 33 34 33 3A 47 4F 53 55 42 20 33 30 33 UB 343:GOSUB 303
002AC0: 3A 43 4C 53 3A 50 45 4E 20 32 3A 4C 4F 43 41 54 :CLS:PEN 2:LOCAT
002AD0: 45 20 31 30 2C 31 3A 50 52 49 4E 54 22 53 45 41 E 10,1:PRINT"SEA
002AE0: 53 4F 4E 20 22 61 61 22 20 20 20 20 22 3B 65 24 SON "aa" ";e$
002AF0: 28 61 62 29 3B 68 28 61 62 29 3A 49 46 20 41 53 (ab);h(ab):IF AS
002B00: 43 28 6E 24 29 3D 36 39 20 54 48 45 4E 20 35 0D C(n$)=69 THEN 5.
002B10: 0A 34 20 72 61 3D 49 4E 54 28 34 30 2D 4C 45 4E .4 ra=INT(40-LEN
002B20: 28 6E 24 29 2D 31 29 2F 32 3A 4C 4F 43 41 54 45 (n$)-1)/2:LOCATE
002B30: 20 72 61 2C 33 3A 50 52 49 4E 54 20 6E 24 3A 47 ra,3:PRINT n$:G
002B40: 4F 54 4F 20 36 0D 0A 35 20 4C 4F 43 41 54 45 20 OTO 6..5 LOCATE
002B50: 39 2C 33 3A 50 52 49 4E 54 20 4C 45 46 54 24 28 9,3:PRINT LEFT$(
002B60: 6E 24 2C 32 32 29 3A 72 61 3D 49 4E 54 28 34 30 n$,22):ra=INT(40
002B70: 2D 49 4E 54 28 4C 45 4E 28 6E 24 98 2F 29 2D 32 -INT(LEN(n$./)-2
002B80: 30 29 29 2F 32 3A 4C 4F 43 41 54 45 20 72 61 2D 0))/2:LOCATE ra-
002B90: 31 2C 34 3A 50 52 49 4E 54 20 4D 49 44 24 28 6E 1,4:PRINT MID$(n
002BA0: 24 2C 32 33 29 0D 0A 36 20 4C 4F 43 41 54 45 20 $,23)..6 LOCATE
002BB0: 33 2C 37 3A 50 45 4E 20 31 3A 50 52 49 4E 54 22 3,7:PEN 1:PRINT"
002BC0: 52 41 4E 4B 45 44 22 3B 41 42 53 28 6B 28 62 69 RANKED";ABS(k(bi
002BD0: 29 29 53 50 41 43 45 24 28 31 33 29 3B 22 52 41 ))SPACE$(13);"RA
002BE0: 4E 4B 45 44 22 3B 41 42 53 28 6B 28 67 34 29 29 NKED";ABS(k(g4))
002BF0: 0D 0A 37 20 4C 4F 43 41 54 45 20 31 37 2C 36 3A ..7 LOCATE 17,6:
002C00: 49 46 20 61 6D 3D 31 20 54 48 45 4E 20 50 52 49 IF am=1 THEN PRI
002C10: 4E 54 22 48 4F 4D 45 22 3A 47 4F 54 4F 20 39 0D NT"HOME":GOTO 9.
002C20: 0A 38 20 50 52 49 4E 54 22 41 57 41 59 22 0D 0A .8 PRINT"AWAY"..
002C30: 39 20 4C 4F 43 41 54 45 20 33 2C 39 3A 50 52 49 9 LOCATE 3,9:PRI
002C40: 4E 54 20 72 24 3A 4C 4F 43 41 54 45 20 32 36 2C NT r$:LOCATE 26,
002C50: 39 3A 50 52 49 4E 54 20 73 24 3A 79 31 3D 31 30 9:PRINT s$:y1=10
002C60: 3A 79 32 3D 2D 33 3A 47 4F 53 55 42 20 32 30 38 :y2=-3:GOSUB 208
002C70: 3A 79 32 3D 2D 35 3A 47 4F 53 55 42 20 D2 05 31 :y2=-5:GOSUB ..1
002C80: 39 34 3A 79 32 3D 32 30 3A 47 4F 53 55 42 20 32 94:y2=20:GOSUB 2
002C90: 30 38 3A 4C 4F 43 41 54 45 20 33 37 2C 31 31 3A 08:LOCATE 37,11:
002CA0: 50 52 49 4E 54 20 49 4E 54 28 61 69 29 3A 4C 4F PRINT INT(ai):LO
002CB0: 43 41 54 45 20 33 37 2C 31 32 3A 50 52 49 4E 54 CATE 37,12:PRINT
002CC0: 20 49 4E 54 28 61 6A 29 3A 4C 4F 43 41 54 45 20 INT(aj):LOCATE
002CD0: 33 37 2C 31 33 3A 50 52 49 4E 54 20 49 4E 54 28 37,13:PRINT INT(
002CE0: 61 6B 29 3A 4C 4F 43 41 54 45 20 33 37 2C 31 34 ak):LOCATE 37,14
002CF0: 3A 50 52 49 4E 54 20 49 4E 54 28 61 6C 29 0D 0A :PRINT INT(al)..
002D00: 31 30 20 47 4F 53 55 42 20 33 37 35 3A 47 4F 54 10 GOSUB 375:GOT
002D10: 4F 20 31 30 0D 0A 31 31 20 49 46 20 62 67 3D 30 O 10..11 IF bg=0
002D20: 20 41 4E 44 20 62 66 3E 30 20 41 4E 44 20 61 62 AND bf>0 AND ab
002D30: 3D 36 20 54 48 45 4E 20 31 37 33 0D 0A 31 32 20 =6 THEN 173..12
002D40: 43 4C 53 3A 4C 4F 43 41 54 45 20 31 36 2C 31 3A CLS:LOCATE 16,1:
002D50: 50 45 4E 20 32 3A 50 52 49 4E 54 22 48 4F 50 45 PEN 2:PRINT"HOPE
002D60: 46 55 4C 4C 53 22 3A 4C 4F 43 41 54 45 20 31 36 FULLS":LOCATE 16
002D70: 2C 33 3A 50 45 4E 20 31 3A 50 52 49 4E 54 22 90 ,3:PEN 1:PRINT".
002D80: B8 54 20 20 20 46 20 43 20 4D 20 43 41 50 20 41 .T F C M CAP A
002D90: 47 45 20 41 56 41 22 3A 46 4F 52 20 69 3D 32 35 GE AVA":FOR i=25
002DA0: 20 54 4F 20 34 30 3A 47 4F 53 55 42 20 32 31 31 TO 40:GOSUB 211
002DB0: 3A 4C 4F 43 41 54 45 20 31 2C 69 2D 32 31 3A 50 :LOCATE 1,i-21:P
002DC0: 52 49 4E 54 20 69 3B 7A 24 22 20 22 3B 62 24 28 RINT i;z$" ";b$(
002DD0: 69 29 3A 4C 4F 43 41 54 45 20 31 35 2C 69 2D 32 i):LOCATE 15,i-2
002DE0: 31 3A 50 52 49 4E 54 20 49 4E 54 28 61 28 69 29 1:PRINT INT(a(i)
002DF0: 29 3B 78 24 3B 49 4E 54 28 41 42 53 28 67 28 69 );x$;INT(ABS(g(i
002E00: 29 29 29 3A 4C 4F 43 41 54 45 20 32 31 2C 69 2D ))):LOCATE 21,i-
002E10: 32 31 3A 50 52 49 4E 54 20 49 4E 54 28 64 28 69 21:PRINT INT(d(i
002E20: 29 29 0D 0A 31 33 20 4C 4F 43 41 54 45 20 32 33 ))..13 LOCATE 23
002E30: 2C 69 2D 32 31 3A 50 52 49 4E 54 20 49 4E 54 28 ,i-21:PRINT INT(
002E40: 66 28 69 29 29 3A 4C 4F 43 41 54 45 20 32 35 2C f(i)):LOCATE 25,
002E50: 69 2D 32 31 3A 50 52 49 4E 54 20 49 4E 54 28 63 i-21:PRINT INT(c
002E60: 28 69 29 29 3A 4C 4F 43 41 54 45 20 32 39 2C 69 (i)):LOCATE 29,i
002E70: 2D 32 31 3A 50 52 49 4E 54 20 49 4E 54 28 62 28 -21:PRINT INT(b(
002E80: 69 96 44 29 29 3A 4C 4F 43 41 54 45 20 33 33 2C i.D)):LOCATE 33,
002E90: 69 2D 32 31 3A 50 52 49 4E 54 20 65 24 28 6E 28 i-21:PRINT e$(n(
002EA0: 31 2C 69 29 29 3B 22 20 22 3B 49 4E 54 28 6E 28 1,i));" ";INT(n(
002EB0: 32 2C 69 29 29 3A 4E 45 58 54 0D 0A 31 34 20 4C 2,i)):NEXT..14 L
002EC0: 4F 43 41 54 45 20 31 2C 32 33 3A 50 45 4E 20 32 OCATE 1,23:PEN 2
002ED0: 3A 50 52 49 4E 54 22 20 20 20 20 20 20 20 20 4D :PRINT" M
002EE0: 2D 4D 45 4E 55 20 43 2D 43 48 41 4E 47 45 20 53 -MENU C-CHANGE S
002EF0: 2D 53 51 55 41 44 20 20 20 20 20 20 20 20 20 22 -SQUAD "
002F00: 3A 50 45 4E 20 31 3A 47 4F 53 55 42 20 33 37 36 :PEN 1:GOSUB 376
002F10: 3A 71 24 3D 49 4E 4B 45 59 24 3A 49 46 20 71 24 :q$=INKEY$:IF q$
002F20: 3D 22 22 20 54 48 45 4E 20 31 34 20 45 4C 53 45 ="" THEN 14 ELSE
002F30: 20 71 24 3D 55 50 50 45 52 24 28 71 24 29 0D 0A q$=UPPER$(q$)..
002F40: 31 35 20 49 46 20 71 24 3D 22 53 22 20 54 48 45 15 IF q$="S" THE
002F50: 4E 20 31 37 33 20 45 4C 53 45 20 49 46 20 71 24 N 173 ELSE IF q$
002F60: 3D 22 43 22 20 54 48 45 4E 20 31 36 20 45 4C 53 ="C" THEN 16 ELS
002F70: 45 20 31 34 0D 0A 31 36 20 78 33 3D 33 3A 78 31 E 14..16 x3=3:x1
002F80: 3D 32 35 D7 33 3A 78 32 3D 34 30 3A 69 3D 78 31 =25.3:x2=40:i=x1
002F90: 3A 47 4F 53 55 42 20 32 30 34 3A 47 4F 53 55 42 :GOSUB 204:GOSUB
002FA0: 20 31 39 38 3A 61 64 3D 69 3A 78 31 3D 31 37 3A 198:ad=i:x1=17:
002FB0: 78 32 3D 32 34 3A 78 33 3D 31 3A 69 3D 78 31 3A x2=24:x3=1:i=x1:
002FC0: 47 4F 53 55 42 20 32 30 32 3A 47 4F 53 55 42 20 GOSUB 202:GOSUB
002FD0: 31 39 38 0D 0A 31 37 20 47 4F 53 55 42 20 31 39 198..17 GOSUB 19
002FE0: 35 3A 47 4F 53 55 42 20 31 39 31 3A 69 3D 61 64 5:GOSUB 191:i=ad
002FF0: 3A 47 4F 53 55 42 20 32 31 31 3A 4C 4F 43 41 54 :GOSUB 211:LOCAT
003000: 45 20 31 2C 61 64 2D 32 31 3A 50 52 49 4E 54 20 E 1,ad-21:PRINT
003010: 69 3B 7A 24 22 20 22 3B 62 24 28 69 29 3B 22 20 i;z$" ";b$(i);"
003020: 20 20 22 3A 4C 4F 43 41 54 45 20 31 35 2C 61 64 ":LOCATE 15,ad
003030: 2D 32 31 3A 50 52 49 4E 54 20 49 4E 54 28 61 28 -21:PRINT INT(a(
003040: 69 29 29 3B 78 24 3B 49 4E 54 28 41 42 53 28 67 i));x$;INT(ABS(g
003050: 28 69 29 29 29 3A 4C 4F 43 41 54 45 20 32 31 2C (i))):LOCATE 21,
003060: 61 64 2D 32 31 3A 50 52 49 4E 54 20 49 4E 54 28 ad-21:PRINT INT(
003070: 64 28 69 29 29 3A 4C 4F 43 41 54 45 20 32 33 2C d(i)):LOCATE 23,
003080: 61 64 2D 32 31 09 39 3A 50 52 49 4E 54 20 49 4E ad-21.9:PRINT IN
003090: 54 28 66 28 69 29 29 3A 4C 4F 43 41 54 45 20 32 T(f(i)):LOCATE 2
0030A0: 35 2C 61 64 2D 32 31 3A 50 52 49 4E 54 20 63 28 5,ad-21:PRINT c(
0030B0: 69 29 3A 4C 4F 43 41 54 45 20 32 39 2C 61 64 2D i):LOCATE 29,ad-
0030C0: 32 31 3A 50 52 49 4E 54 20 62 28 69 29 0D 0A 31 21:PRINT b(i)..1
0030D0: 38 20 4C 4F 43 41 54 45 20 33 33 2C 61 64 2D 32 8 LOCATE 33,ad-2
0030E0: 31 3A 50 52 49 4E 54 20 65 24 28 6E 28 31 2C 69 1:PRINT e$(n(1,i
0030F0: 29 29 3B 22 20 22 3B 6E 28 32 2C 69 29 3A 47 4F ));" ";n(2,i):GO
003100: 54 4F 20 31 34 0D 0A 31 39 20 43 4C 53 0D 0A 32 TO 14..19 CLS..2
003110: 30 20 74 32 3D 30 3A 7A 78 3D 31 3A 46 4F 52 20 0 t2=0:zx=1:FOR
003120: 69 3D 31 20 54 4F 20 36 3A 7A 78 3D 7A 78 2B 32 i=1 TO 6:zx=zx+2
003130: 3A 4C 4F 43 41 54 45 20 32 2C 7A 78 3A 50 45 4E :LOCATE 2,zx:PEN
003140: 20 32 3A 50 52 49 4E 54 20 65 24 28 69 29 3B 68 2:PRINT e$(i);h
003150: 28 69 29 3B 52 49 47 48 54 24 28 4C 45 46 54 24 (i);RIGHT$(LEFT$
003160: 28 44 24 28 69 29 2C 31 30 29 2C 31 29 3B 22 20 (D$(i),10),1);"
003170: 22 3B 0D 0A 32 31 20 50 52 49 4E 54 20 52 49 47 ";..21 PRINT RIG
003180: 48 54 24 28 4C 45 46 8F 24 54 24 28 44 24 28 69 HT$(LEF.$T$(D$(i
003190: 29 2C 31 32 29 2C 32 29 3A 4C 4F 43 41 54 45 20 ),12),2):LOCATE
0031A0: 32 36 2C 7A 78 3A 50 52 49 4E 54 20 65 24 28 69 26,zx:PRINT e$(i
0031B0: 2B 36 29 3B 68 28 69 2B 36 29 3B 3A 50 52 49 4E +6);h(i+6);:PRIN
0031C0: 54 20 52 49 47 48 54 24 28 4C 45 46 54 24 28 44 T RIGHT$(LEFT$(D
0031D0: 24 28 69 2B 36 29 2C 31 30 29 2C 31 29 3B 22 20 $(i+6),10),1);"
0031E0: 22 3B 52 49 47 48 54 24 28 4C 45 46 54 24 28 44 ";RIGHT$(LEFT$(D
0031F0: 24 28 69 2B 36 29 2C 31 32 29 2C 32 29 3B 22 20 $(i+6),12),2);"
003200: 22 0D 0A 32 32 20 50 45 4E 20 31 3A 50 52 49 4E "..22 PEN 1:PRIN
003210: 54 22 20 22 3B 4C 45 46 54 24 28 64 24 28 69 29 T" ";LEFT$(d$(i)
003220: 2C 39 29 3B 22 20 22 3B 4C 45 46 54 24 28 4D 49 ,9);" ";LEFT$(MI
003230: 44 24 28 64 24 28 69 29 2C 31 34 29 2C 31 29 3B D$(d$(i),14),1);
003240: 22 2D 22 3B 4C 45 46 54 24 28 4D 49 44 24 28 64 "-";LEFT$(MID$(d
003250: 24 28 69 29 2C 31 36 29 2C 31 29 3A 4C 4F 43 41 $(i),16),1):LOCA
003260: 54 45 20 32 36 2C 7A 78 2B 31 3A 50 52 49 4E 54 TE 26,zx+1:PRINT
003270: 20 4C 45 46 54 24 28 64 24 28 69 2B 36 29 2C 39 LEFT$(d$(i+6),9
003280: 29 3B 22 20 22 3B 0D 0A 32 0B 73 FF FF FF FF 11 );" ";..2.s.....
003290: 9E 04 2C 02 7B 02 6D 02 DC 04 F4 0F 08 14 00 07 ..,.{.m.........
0032A0: 01 00 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 ..,I.MANAGER....
0032B0: 00 00 00 02 00 16 00 08 7C 9E 00 00 00 00 00 00 ........|.......
0032C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0032D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0032E0: 00 00 00 00 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 00 00 00 ................
003300: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003310: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003320: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003330: 00 00 00 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 00 00 00 ................
003350: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003380: 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 25 AD FF FF FF FF 11 9E 04 2C 02 7B 02 ...%........,.{.
0033B0: 4F 02 9E 04 F6 0F 08 53 0B 15 08 00 16 33 20 50 O......S.....3 P
0033C0: 52 49 4E 54 20 4C 45 46 54 24 28 4D 49 44 24 28 RINT LEFT$(MID$(
0033D0: 64 24 28 69 2B 36 29 2C 31 34 29 2C 31 29 3B 22 d$(i+6),14),1);"
0033E0: 2D 22 3B 4C 45 46 54 24 28 4D 49 44 24 28 64 24 -";LEFT$(MID$(d$
0033F0: 28 69 2B 36 29 2C 31 36 29 2C 31 29 3A 4E 45 58 (i+6),16),1):NEX
003400: 54 3A 49 46 20 74 24 28 35 29 3D 22 22 20 54 48 T:IF t$(5)="" TH
003410: 45 4E 20 32 38 0D 0A 32 34 20 47 4F 53 55 42 20 EN 28..24 GOSUB
003420: 32 35 3A 47 4F 54 4F 20 32 38 0D 0A 32 35 20 4C 25:GOTO 28..25 L
003430: 4F 43 41 54 45 20 31 38 2C 31 35 3A 50 45 4E 20 OCATE 18,15:PEN
003440: 32 3A 50 52 49 4E 54 22 54 4F 55 52 22 3A 50 45 2:PRINT"TOUR":PE
003450: 4E 20 31 3A 46 4F 52 20 69 3D 31 20 54 4F 20 32 N 1:FOR i=1 TO 2
003460: 3A 50 45 4E 20 32 3A 4C 4F 43 41 54 45 20 31 2C :PEN 2:LOCATE 1,
003470: 31 36 2D 28 69 3D 32 29 2A 32 3A 50 52 49 4E 54 16-(i=2)*2:PRINT
003480: 22 20 22 3B 4C 45 46 54 24 28 74 24 28 35 29 2C " ";LEFT$(t$(5),
003490: 33 29 3B 74 28 69 29 3B 22 41 22 3A 4C 4F 43 41 3);t(i);"A":LOCA
0034A0: 54 45 20 32 36 2C 31 36 2D 28 69 3D 32 29 2A 32 TE 26,16-(i=2)*2
0034B0: 3A 50 52 49 4E 54 20 4C 45 46 54 24 28 D6 4D 74 :PRINT LEFT$(.Mt
0034C0: 24 28 35 29 2C 33 29 3B 74 28 69 2B 32 29 3B 22 $(5),3);t(i+2);"
0034D0: 41 20 20 20 20 20 22 0D 0A 32 36 20 50 45 4E 20 A "..26 PEN
0034E0: 31 3A 4C 4F 43 41 54 45 20 32 2C 31 37 2D 28 69 1:LOCATE 2,17-(i
0034F0: 3D 32 29 2A 32 3A 50 52 49 4E 54 20 4C 45 46 54 =2)*2:PRINT LEFT
003500: 24 28 74 24 28 69 29 2C 39 29 3B 22 20 22 3B 4C $(t$(i),9);" ";L
003510: 45 46 54 24 28 4D 49 44 24 28 74 24 28 69 29 2C EFT$(MID$(t$(i),
003520: 31 31 29 2C 31 29 3B 22 2D 22 3B 4C 45 46 54 24 11),1);"-";LEFT$
003530: 28 4D 49 44 24 28 74 24 28 69 29 2C 31 33 29 2C (MID$(t$(i),13),
003540: 31 29 0D 0A 32 37 20 4C 4F 43 41 54 45 20 32 36 1)..27 LOCATE 26
003550: 2C 31 37 2D 28 69 3D 32 29 2A 32 3A 50 52 49 4E ,17-(i=2)*2:PRIN
003560: 54 20 4C 45 46 54 24 28 74 24 28 69 2B 32 29 2C T LEFT$(t$(i+2),
003570: 39 29 3B 22 20 22 3B 4C 45 46 54 24 28 4D 49 44 9);" ";LEFT$(MID
003580: 24 28 74 24 28 69 2B 32 29 2C 31 31 29 2C 31 29 $(t$(i+2),11),1)
003590: 3B 22 2D 22 3B 4C 45 46 54 24 28 4D 49 44 24 28 ;"-";LEFT$(MID$(
0035A0: 74 24 28 69 2B 32 29 2C 31 33 29 2C 31 29 3A 4E t$(i+2),13),1):N
0035B0: 45 58 54 3A 52 45 54 55 52 4E 0D 0A 32 38 20 3F EXT:RETURN..28 ?
0035C0: B1 4C 4F 43 41 54 45 20 31 2C 32 31 3A 50 45 4E .LOCATE 1,21:PEN
0035D0: 20 32 3A 50 52 49 4E 54 22 20 20 20 20 20 20 20 2:PRINT"
0035E0: 20 20 42 2D 42 4F 4F 4B 20 46 49 58 54 55 52 45 B-BOOK FIXTURE
0035F0: 20 4D 2D 4D 45 4E 55 20 20 20 20 20 20 20 22 3A M-MENU ":
003600: 50 45 4E 20 31 3A 47 4F 53 55 42 20 33 37 36 3A PEN 1:GOSUB 376:
003610: 71 24 3D 49 4E 4B 45 59 24 3A 49 46 20 71 24 3D q$=INKEY$:IF q$=
003620: 22 22 20 54 48 45 4E 20 32 38 20 45 4C 53 45 20 "" THEN 28 ELSE
003630: 71 24 3D 55 50 50 45 52 24 28 71 24 29 3A 49 46 q$=UPPER$(q$):IF
003640: 20 71 24 3D 22 42 22 20 54 48 45 4E 20 32 39 20 q$="B" THEN 29
003650: 45 4C 53 45 20 32 38 0D 0A 32 39 20 78 31 3D 31 ELSE 28..29 x1=1
003660: 3A 78 32 3D 31 32 3A 78 33 3D 32 3A 69 3D 31 3A :x2=12:x3=2:i=1:
003670: 47 4F 53 55 42 20 32 30 33 3A 47 4F 53 55 42 20 GOSUB 203:GOSUB
003680: 31 39 38 3A 49 46 20 64 24 28 69 29 3C 3E 22 22 198:IF d$(i)<>""
003690: 20 4F 52 20 69 3C 61 62 20 54 48 45 4E 20 32 38 OR i<ab THEN 28
0036A0: 0D 0A 33 30 20 6F 35 3D 69 3A 49 46 20 74 24 28 ..30 o5=i:IF t$(
0036B0: 35 29 3D 22 22 20 41 4E 44 20 6F 35 3E 34 20 41 5)="" AND o5>4 A
0036C0: 4E 53 C1 44 20 6F 35 3C 38 20 41 4E 44 20 6F 35 NS.D o5<8 AND o5
0036D0: 3C 3E 61 62 20 54 48 45 4E 20 33 31 20 45 4C 53 <>ab THEN 31 ELS
0036E0: 45 20 33 33 0D 0A 33 31 20 4C 4F 43 41 54 45 20 E 33..31 LOCATE
0036F0: 31 2C 32 31 3A 50 52 49 4E 54 22 20 44 4F 20 59 1,21:PRINT" DO Y
003700: 4F 55 20 57 41 4E 54 20 54 4F 20 54 4F 55 52 20 OU WANT TO TOUR
003710: 28 59 29 45 53 20 4F 52 20 28 4E 29 4F 20 20 22 (Y)ES OR (N)O "
003720: 3A 71 24 3D 49 4E 4B 45 59 24 3A 49 46 20 71 24 :q$=INKEY$:IF q$
003730: 3D 22 22 20 54 48 45 4E 20 33 31 20 45 4C 53 45 ="" THEN 31 ELSE
003740: 20 71 24 3D 55 50 50 45 52 24 28 71 24 29 3A 49 q$=UPPER$(q$):I
003750: 46 20 71 24 3D 22 4E 22 20 54 48 45 4E 20 33 33 F q$="N" THEN 33
003760: 20 45 4C 53 45 20 49 46 20 71 24 3D 22 59 22 20 ELSE IF q$="Y"
003770: 54 48 45 4E 20 33 32 20 45 4C 53 45 20 33 31 0D THEN 32 ELSE 31.
003780: 0A 33 32 20 74 24 28 35 29 3D 65 24 28 6F 35 29 .32 t$(5)=e$(o5)
003790: 3A 64 24 28 6F 35 29 3D 22 54 4F 55 52 20 20 20 :d$(o5)="TOUR
0037A0: 20 20 22 3A 68 28 6F 35 29 3D 37 3A 47 4F 53 55 ":h(o5)=7:GOSU
0037B0: 42 20 32 35 3A 74 32 3D 31 3A 46 4F 52 20 6B 3D B 25:t2=1:FOR k=
0037C0: 31 20 54 91 4B 4F 20 34 20 0D 0A 33 33 20 78 33 1 T.KO 4 ..33 x3
0037D0: 3D 34 3A 78 32 3D 36 30 3A 69 3D 31 3A 47 4F 53 =4:x2=60:i=1:GOS
0037E0: 55 42 20 32 30 35 3A 47 4F 53 55 42 20 31 39 38 UB 205:GOSUB 198
0037F0: 3A 49 46 20 6B 28 69 29 3C 30 20 54 48 45 4E 20 :IF k(i)<0 THEN
003800: 33 33 0D 0A 33 34 20 49 46 20 74 32 3D 30 20 54 33..34 IF t2=0 T
003810: 48 45 4E 20 33 36 0D 0A 33 35 20 74 24 28 6B 29 HEN 36..35 t$(k)
003820: 3D 4C 45 46 54 24 28 61 24 28 69 29 2C 39 29 2B =LEFT$(a$(i),9)+
003830: 4D 49 44 24 28 74 24 28 6B 29 2C 31 30 29 3A 4C MID$(t$(k),10):L
003840: 4F 43 41 54 45 20 32 2D 28 6B 3D 33 20 4F 52 20 OCATE 2-(k=3 OR
003850: 6B 3D 34 29 2A 32 34 2C 31 37 2D 28 6B 3D 32 20 k=4)*24,17-(k=2
003860: 4F 52 20 6B 3D 34 29 2A 32 3A 50 52 49 4E 54 20 OR k=4)*2:PRINT
003870: 4C 45 46 54 24 28 74 24 28 6B 29 2C 39 29 3A 4E LEFT$(t$(k),9):N
003880: 45 58 54 3A 47 4F 54 4F 20 34 35 0D 0A 33 36 20 EXT:GOTO 45..36
003890: 72 64 3D 30 3A 4C 4F 43 41 54 45 20 31 2C 32 31 rd=0:LOCATE 1,21
0038A0: 3A 50 52 49 4E 54 22 50 4C 41 59 20 48 4F 4D 45 :PRINT"PLAY HOME
0038B0: 20 4F 52 20 41 57 41 59 20 20 20 20 20 20 22 0D OR AWAY ".
0038C0: 0A 33 37 20 71 A9 1B 24 3D 49 4E 4B 45 59 24 3A .37 q..$=INKEY$:
0038D0: 49 46 20 71 24 3D 22 22 20 54 48 45 4E 20 33 37 IF q$="" THEN 37
0038E0: 20 45 4C 53 45 20 71 24 3D 55 50 50 45 52 24 28 ELSE q$=UPPER$(
0038F0: 71 24 29 0D 0A 33 38 20 49 46 20 71 24 3D 22 41 q$)..38 IF q$="A
003900: 22 20 54 48 45 4E 20 7A 24 3D 22 41 22 3A 72 64 " THEN z$="A":rd
003910: 3D 31 3A 47 4F 54 4F 20 34 31 0D 0A 33 39 20 49 =1:GOTO 41..39 I
003920: 46 20 71 24 3D 22 48 22 20 54 48 45 4E 20 7A 24 F q$="H" THEN z$
003930: 3D 22 48 22 3A 47 4F 54 4F 20 34 31 0D 0A 34 30 ="H":GOTO 41..40
003940: 20 47 4F 54 4F 20 33 37 0D 0A 34 31 20 72 62 3D GOTO 37..41 rb=
003950: 49 4E 54 28 52 4E 44 2A 36 29 2B 31 3A 72 63 3D INT(RND*6)+1:rc=
003960: 28 41 42 53 28 6B 28 69 29 2F 31 30 29 29 2B 28 (ABS(k(i)/10))+(
003970: 72 64 2B 32 29 3A 49 46 20 72 62 3E 72 63 20 54 rd+2):IF rb>rc T
003980: 48 45 4E 20 6B 28 69 29 3D 6B 28 69 29 2D 6B 28 HEN k(i)=k(i)-k(
003990: 69 29 2A 32 3A 4C 4F 43 41 54 45 20 31 2C 32 31 i)*2:LOCATE 1,21
0039A0: 3A 50 52 49 4E 54 20 61 24 28 69 29 3B 22 20 48 :PRINT a$(i);" H
0039B0: 41 56 45 20 4F 54 48 45 52 20 43 4F 4D 4D 49 54 AVE OTHER COMMIT
0039C0: 4D 45 4E 54 53 22 3A 17 5A 46 4F 52 20 7A 3D 31 MENTS":.ZFOR z=1
0039D0: 20 54 4F 20 33 30 30 30 3A 4E 45 58 54 3A 47 4F TO 3000:NEXT:GO
0039E0: 54 4F 20 32 38 0D 0A 34 32 20 4C 4F 43 41 54 45 TO 28..42 LOCATE
0039F0: 20 31 2C 32 31 3A 50 52 49 4E 54 20 61 24 28 69 1,21:PRINT a$(i
003A00: 29 3B 22 20 41 43 43 45 50 54 20 59 4F 55 52 20 );" ACCEPT YOUR
003A10: 4F 46 46 45 52 22 3A 64 24 28 6F 35 29 3D 61 24 OFFER":d$(o5)=a$
003A20: 28 69 29 2B 4D 49 44 24 28 64 24 28 6F 35 29 2C (i)+MID$(d$(o5),
003A30: 31 30 29 3A 64 24 28 6F 35 29 3D 4C 45 46 54 24 10):d$(o5)=LEFT$
003A40: 28 64 24 28 6F 35 29 2C 39 29 2B 7A 24 2B 4D 49 (d$(o5),9)+z$+MI
003A50: 44 24 28 64 24 28 6F 35 29 2C 31 31 29 0D 0A 34 D$(d$(o5),11)..4
003A60: 33 20 64 24 28 6F 35 29 3D 4C 45 46 54 24 28 64 3 d$(o5)=LEFT$(d
003A70: 24 28 6F 35 29 2C 31 30 29 2B 22 46 20 22 2B 4D $(o5),10)+"F "+M
003A80: 49 44 24 28 64 24 28 6F 35 29 2C 31 33 29 0D 0A ID$(d$(o5),13)..
003A90: 34 34 20 72 61 3D 28 31 2D 28 6F 35 3D 61 62 29 44 ra=(1-(o5=ab)
003AA0: 2A 61 63 29 2B 49 4E 54 28 52 4E 44 2A 28 33 30 *ac)+INT(RND*(30
003AB0: 2B 28 6F 35 3D 61 62 29 2A 61 63 29 29 3A 52 41 +(o5=ab)*ac)):RA
003AC0: 3D 52 41 2D 28 52 41 3D 31 DB 84 29 3A 68 28 6F =RA-(RA=1..):h(o
003AD0: 35 29 3D 72 61 3A 46 4F 52 20 7A 3D 31 20 54 4F 5)=ra:FOR z=1 TO
003AE0: 20 33 30 30 30 3A 4E 45 58 54 3A 47 4F 53 55 42 3000:NEXT:GOSUB
003AF0: 20 33 37 33 3A 49 46 20 4C 45 46 54 24 28 64 24 373:IF LEFT$(d$
003B00: 28 61 62 29 2C 32 29 3C 3E 22 54 4F 22 20 54 48 (ab),2)<>"TO" TH
003B10: 45 4E 20 47 4F 53 55 42 20 32 38 36 0D 0A 34 35 EN GOSUB 286..45
003B20: 20 47 4F 54 4F 20 32 30 0D 0A 34 36 20 49 46 20 GOTO 20..46 IF
003B30: 62 68 3D 31 34 20 54 48 45 4E 20 34 38 20 45 4C bh=14 THEN 48 EL
003B40: 53 45 20 49 46 20 62 68 3D 32 31 20 54 48 45 4E SE IF bh=21 THEN
003B50: 20 34 39 20 45 4C 53 45 20 49 46 20 62 68 3D 32 49 ELSE IF bh=2
003B60: 38 20 54 48 45 4E 20 35 30 0D 0A 34 37 20 78 78 8 THEN 50..47 xx
003B70: 3D 39 2B 28 62 66 3C 31 29 3A 79 79 3D 31 35 3A =9+(bf<1):yy=15:
003B80: 47 4F 53 55 42 20 33 33 31 3A 62 68 3D 31 34 3A GOSUB 331:bh=14:
003B90: 52 45 54 55 52 4E 0D 0A 34 38 20 78 78 3D 35 2B RETURN..48 xx=5+
003BA0: 28 62 66 3C 31 29 3A 79 79 3D 37 3A 47 4F 53 55 (bf<1):yy=7:GOSU
003BB0: 42 20 33 33 31 3A 62 68 3D 32 31 3A 52 45 54 55 B 331:bh=21:RETU
003BC0: 52 4E 0D 0A 34 39 20 78 78 3D 33 C4 EB FF FF FF RN..49 xx=3.....
003BD0: FF 11 9E 04 2C 02 7B 02 6E 02 DC 04 F4 0F 08 13 ....,.{.n.......
003BE0: 00 07 01 00 2C 49 2E 4D 41 4E 41 47 45 52 00 00 ....,I.MANAGER..
003BF0: 00 00 00 00 00 03 00 16 00 08 7C 9E 00 00 00 00 ..........|.....
003C00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003C10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003C20: 00 00 00 00 00 00 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 00 ................
003C40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003C50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003C60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003C70: 00 00 00 00 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 00 ................
003C90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003CA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003CB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003CC0: 00 00 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 C2 A6 FF FF FF FF 11 9E 04 2C 02 ..............,.
003CF0: 7B 02 4E 02 9E 04 F6 0F 08 51 0B 15 08 00 16 2B {.N......Q.....+
003D00: 28 62 66 3C 31 29 3A 79 79 3D 33 3A 47 4F 53 55 (bf<1):yy=3:GOSU
003D10: 42 20 33 33 31 3A 62 68 3D 32 38 3A 52 45 54 55 B 331:bh=28:RETU
003D20: 52 4E 0D 0A 35 30 20 49 46 20 62 66 3C 31 20 54 RN..50 IF bf<1 T
003D30: 48 45 4E 20 78 78 3D 31 3A 79 79 3D 31 3A 47 4F HEN xx=1:yy=1:GO
003D40: 53 55 42 20 33 33 31 3A 62 68 3D 30 3A 62 66 3D SUB 331:bh=0:bf=
003D50: 62 66 2D 62 66 2A 32 0D 0A 35 31 20 52 45 54 55 bf-bf*2..51 RETU
003D60: 52 4E 0D 0A 35 32 20 49 46 20 62 68 3D 30 20 54 RN..52 IF bh=0 T
003D70: 48 45 4E 20 35 31 0D 0A 35 33 20 49 46 20 62 68 HEN 51..53 IF bh
003D80: 3D 32 31 20 54 48 45 4E 20 35 35 20 45 4C 53 45 =21 THEN 55 ELSE
003D90: 20 49 46 20 62 68 3D 32 38 20 54 48 45 4E 20 35 IF bh=28 THEN 5
003DA0: 36 0D 0A 35 34 20 72 61 3D 34 3A 78 78 3D 38 3A 6..54 ra=4:xx=8:
003DB0: 79 79 3D 31 35 3A 47 4F 53 55 42 20 36 38 3A 52 yy=15:GOSUB 68:R
003DC0: 45 54 55 52 4E 0D 0A 35 35 20 72 61 3D 32 3A 78 ETURN..55 ra=2:x
003DD0: 78 3D 34 3A 79 79 3D 37 3A 47 4F 53 55 42 20 36 x=4:yy=7:GOSUB 6
003DE0: 38 3A 52 45 54 55 52 4E 0D 0A 35 36 20 72 61 3D 8:RETURN..56 ra=
003DF0: 31 3A 78 78 3D 32 3A 79 79 3D 33 3A 47 4F 53 00 1:xx=2:yy=3:GOS.
003E00: 89 55 42 20 36 38 3A 52 45 54 55 52 4E 0D 0A 35 .UB 68:RETURN..5
003E10: 37 20 72 61 3D 31 2D 28 41 42 53 28 62 66 29 3D 7 ra=1-(ABS(bf)=
003E20: 32 29 2A 32 0D 0A 35 38 20 49 46 20 41 53 43 28 2)*2..58 IF ASC(
003E30: 4C 45 46 54 24 28 4D 49 44 24 28 68 24 28 31 29 LEFT$(MID$(h$(1)
003E40: 2C 31 32 29 2C 31 29 29 3E 41 53 43 28 4C 45 46 ,12),1))>ASC(LEF
003E50: 54 24 28 4D 49 44 24 28 68 24 28 31 29 2C 31 32 T$(MID$(h$(1),12
003E60: 29 2C 31 29 29 20 54 48 45 4E 20 6A 24 28 72 61 ),1)) THEN j$(ra
003E70: 29 3D 4C 45 46 54 24 28 68 24 28 31 29 2C 39 29 )=LEFT$(h$(1),9)
003E80: 3A 47 4F 54 4F 20 36 30 0D 0A 35 39 20 6A 24 28 :GOTO 60..59 j$(
003E90: 72 61 29 3D 4C 45 46 54 24 28 4D 49 44 24 28 68 ra)=LEFT$(MID$(h
003EA0: 24 28 31 29 2C 31 37 29 2C 39 29 0D 0A 36 30 20 $(1),17),9)..60
003EB0: 47 4F 53 55 42 20 36 31 3A 52 45 54 55 52 4E 0D GOSUB 61:RETURN.
003EC0: 0A 36 31 20 72 61 3D 31 2B 49 4E 54 28 52 4E 44 .61 ra=1+INT(RND
003ED0: 2A 28 36 30 2D 41 42 53 28 62 66 3D 31 29 2A 33 *(60-ABS(bf=1)*3
003EE0: 31 29 29 3A 49 46 20 61 24 28 72 61 29 3D 6A 24 1)):IF a$(ra)=j$
003EF0: 28 31 2B 28 41 42 53 28 62 66 3D 32 29 2A 32 29 (1+(ABS(bf=2)*2)
003F00: 29 B0 BC 20 4F 52 20 61 24 28 72 61 29 3D 6A 24 ).. OR a$(ra)=j$
003F10: 28 32 2B 28 41 42 53 28 62 66 3D 32 29 2A 32 29 (2+(ABS(bf=2)*2)
003F20: 29 20 54 48 45 4E 20 36 31 0D 0A 36 32 20 72 62 ) THEN 61..62 rb
003F30: 3D 32 2D 28 41 42 53 28 62 66 29 3D 32 29 2A 32 =2-(ABS(bf)=2)*2
003F40: 3A 6A 24 28 72 62 29 3D 61 24 28 72 61 29 3A 52 :j$(rb)=a$(ra):R
003F50: 45 54 55 52 4E 0D 0A 36 33 20 47 4F 54 4F 20 34 ETURN..63 GOTO 4
003F60: 30 39 0D 0A 36 35 20 49 46 20 6A 24 28 31 29 3D 09..65 IF j$(1)=
003F70: 79 24 28 31 29 20 54 48 45 4E 20 6A 24 28 31 29 y$(1) THEN j$(1)
003F80: 3D 61 24 28 32 29 3A 52 45 54 55 52 4E 0D 0A 36 =a$(2):RETURN..6
003F90: 36 20 49 46 20 6A 24 28 32 29 3D 79 24 28 31 29 6 IF j$(2)=y$(1)
003FA0: 20 54 48 45 4E 20 6A 24 28 32 29 3D 61 24 28 32 THEN j$(2)=a$(2
003FB0: 29 0D 0A 36 37 20 52 45 54 55 52 4E 0D 0A 36 38 )..67 RETURN..68
003FC0: 20 72 62 3D 30 3A 46 4F 52 20 69 3D 78 78 20 54 rb=0:FOR i=xx T
003FD0: 4F 20 79 79 3A 49 46 20 41 53 43 28 4C 45 46 54 O yy:IF ASC(LEFT
003FE0: 24 28 4D 49 44 24 28 68 24 28 69 29 2C 31 32 29 $(MID$(h$(i),12)
003FF0: 2C 31 29 29 3E 41 53 43 28 4C 45 46 54 24 28 4D ,1))>ASC(LEFT$(M
004000: 49 44 24 1F 33 28 68 24 28 69 29 2C 31 35 29 2C ID$.3(h$(i),15),
004010: 31 29 29 20 54 48 45 4E 20 72 24 3D 4C 45 46 54 1)) THEN r$=LEFT
004020: 24 28 68 24 28 69 29 2C 39 29 3A 47 4F 53 55 42 $(h$(i),9):GOSUB
004030: 20 37 31 0D 0A 36 39 20 49 46 20 41 53 43 28 4C 71..69 IF ASC(L
004040: 45 46 54 24 28 4D 49 44 24 28 68 24 28 69 29 2C EFT$(MID$(h$(i),
004050: 31 32 29 2C 31 29 29 3C 41 53 43 28 4C 45 46 54 12),1))<ASC(LEFT
004060: 24 28 4D 49 44 24 28 68 24 28 69 29 2C 31 35 29 $(MID$(h$(i),15)
004070: 2C 31 29 29 20 54 48 45 4E 20 72 24 3D 4C 45 46 ,1)) THEN r$=LEF
004080: 54 24 28 4D 49 44 24 28 68 24 28 69 29 2C 31 37 T$(MID$(h$(i),17
004090: 29 2C 39 29 3A 47 4F 53 55 42 20 37 31 0D 0A 37 ),9):GOSUB 71..7
0040A0: 30 20 4E 45 58 54 3A 52 45 54 55 52 4E 0D 0A 37 0 NEXT:RETURN..7
0040B0: 31 20 49 46 20 72 62 3D 30 20 54 48 45 4E 20 68 1 IF rb=0 THEN h
0040C0: 24 28 72 61 29 3D 72 24 2B 4D 49 44 24 28 68 24 $(ra)=r$+MID$(h$
0040D0: 28 72 61 29 2C 31 30 29 3A 72 62 3D 31 3A 52 45 (ra),10):rb=1:RE
0040E0: 54 55 52 4E 0D 0A 37 32 20 68 24 28 72 61 29 3D TURN..72 h$(ra)=
0040F0: 4C 45 46 54 24 28 68 24 28 72 61 29 2C 31 34 29 LEFT$(h$(ra),14)
004100: 2B 72 24 2B 4D 7A A2 49 44 24 28 68 24 28 72 61 +r$+Mz.ID$(h$(ra
004110: 29 2C 32 34 29 3A 72 62 3D 30 3A 72 61 3D 72 61 ),24):rb=0:ra=ra
004120: 2B 31 3A 52 45 54 55 52 4E 0D 0A 37 33 20 43 4C +1:RETURN..73 CL
004130: 53 3A 50 45 4E 20 31 3A 52 41 4E 44 4F 4D 49 5A S:PEN 1:RANDOMIZ
004140: 45 20 54 49 4D 45 3A 47 4F 53 55 42 20 36 35 3A E TIME:GOSUB 65:
004150: 47 4F 53 55 42 20 33 37 33 3A 47 4F 53 55 42 20 GOSUB 373:GOSUB
004160: 33 30 35 3A 47 4F 53 55 42 20 32 38 36 3A 47 4F 305:GOSUB 286:GO
004170: 54 4F 20 31 30 38 0D 0A 37 34 20 43 4C 53 3A 4C TO 108..74 CLS:L
004180: 4F 43 41 54 45 20 36 2C 31 3A 50 45 4E 20 32 3A OCATE 6,1:PEN 2:
004190: 50 52 49 4E 54 22 50 4C 41 59 45 52 20 20 20 22 PRINT"PLAYER "
0041A0: 3B 22 47 4F 41 4C 53 20 22 3B 22 43 41 50 53 20 ;"GOALS ";"CAPS
0041B0: 22 3B 22 49 4E 4A 55 52 49 45 53 22 3A 72 61 3D ";"INJURIES":ra=
0041C0: 31 0D 0A 37 35 20 72 62 3D 32 3A 46 4F 52 20 69 1..75 rb=2:FOR i
0041D0: 3D 72 61 20 54 4F 20 72 61 2B 31 39 3A 47 4F 53 =ra TO ra+19:GOS
0041E0: 55 42 20 32 31 32 3A 4C 4F 43 41 54 45 20 31 2C UB 212:LOCATE 1,
0041F0: 72 62 3A 50 45 4E 20 31 3A 50 52 49 4E 54 22 20 rb:PEN 1:PRINT"
004200: 20 20 20 20 20 20 20 A5 C1 20 20 20 20 20 20 20 ..
004210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004220: 20 20 20 20 20 20 20 20 22 3A 4C 4F 43 41 54 45 ":LOCATE
004230: 20 31 2C 72 62 3A 50 52 49 4E 54 20 69 3B 7A 24 1,rb:PRINT i;z$
004240: 22 20 22 3B 62 24 28 69 29 3A 4C 4F 43 41 54 45 " ";b$(i):LOCATE
004250: 20 31 35 2C 72 62 3A 49 46 20 65 28 69 29 3D 31 15,rb:IF e(i)=1
004260: 20 54 48 45 4E 20 50 45 4E 20 32 3A 50 52 49 4E THEN PEN 2:PRIN
004270: 54 20 6F 28 69 29 20 45 4C 53 45 20 50 52 49 4E T o(i) ELSE PRIN
004280: 54 20 6F 28 69 29 0D 0A 37 36 20 50 45 4E 20 31 T o(i)..76 PEN 1
004290: 3A 4C 4F 43 41 54 45 20 32 30 2C 72 62 3A 50 52 :LOCATE 20,rb:PR
0042A0: 49 4E 54 20 63 28 69 29 3A 49 46 20 70 28 69 29 INT c(i):IF p(i)
0042B0: 3E 30 20 54 48 45 4E 20 4C 4F 43 41 54 45 20 32 >0 THEN LOCATE 2
0042C0: 35 2C 72 62 3A 50 52 49 4E 54 20 70 28 69 29 3B 5,rb:PRINT p(i);
0042D0: 22 20 44 41 59 22 2B 43 48 52 24 28 33 32 2D 28 " DAY"+CHR$(32-(
0042E0: 70 28 69 29 3E 31 29 2A 35 31 29 3A 47 4F 54 4F p(i)>1)*51):GOTO
0042F0: 20 37 38 0D 0A 37 37 20 49 46 20 61 28 69 29 3D 78..77 IF a(i)=
004300: 30 20 54 48 45 4E 20 33 36 24 01 38 20 45 4C 53 0 THEN 36$.8 ELS
004310: 45 20 49 46 20 67 28 69 29 3C 30 20 54 48 45 4E E IF g(i)<0 THEN
004320: 20 33 36 39 0D 0A 37 38 20 72 62 3D 72 62 2B 31 369..78 rb=rb+1
004330: 3A 4E 45 58 54 0D 0A 37 39 20 47 4F 53 55 42 20 :NEXT..79 GOSUB
004340: 33 37 36 3A 4C 4F 43 41 54 45 20 31 31 2C 32 33 376:LOCATE 11,23
004350: 3A 50 45 4E 20 32 3A 50 52 49 4E 54 22 43 2D 43 :PEN 2:PRINT"C-C
004360: 4F 4E 54 49 4E 55 45 20 4D 2D 4D 45 4E 55 22 3A ONTINUE M-MENU":
004370: 50 45 4E 20 31 0D 0A 38 30 20 71 24 3D 49 4E 4B PEN 1..80 q$=INK
004380: 45 59 24 3A 49 46 20 71 24 3D 22 22 20 54 48 45 EY$:IF q$="" THE
004390: 4E 20 37 39 20 45 4C 53 45 20 71 24 3D 55 50 50 N 79 ELSE q$=UPP
0043A0: 45 52 24 28 71 24 29 3A 49 46 20 71 24 3D 22 43 ER$(q$):IF q$="C
0043B0: 22 20 54 48 45 4E 20 38 31 20 45 4C 53 45 20 37 " THEN 81 ELSE 7
0043C0: 39 0D 0A 38 31 20 72 61 3D 72 61 2D 28 72 61 3D 9..81 ra=ra-(ra=
0043D0: 31 29 2A 32 30 2B 28 72 61 3D 32 31 29 2A 32 30 1)*20+(ra=21)*20
0043E0: 3A 47 4F 54 4F 20 37 35 0D 0A 38 32 20 46 4F 52 :GOTO 75..82 FOR
0043F0: 20 69 3D 31 20 54 4F 20 34 2D 31 3A 46 4F 52 20 i=1 TO 4-1:FOR
004400: 78 3D 69 2B 31 20 54 4F 20 34 0D 8D 67 0A 38 33 x=i+1 TO 4..g.83
004410: 20 49 46 20 71 28 32 2C 69 29 2A 32 2B 71 28 33 IF q(2,i)*2+q(3
004420: 2C 69 29 3E 71 28 32 2C 78 29 2A 32 2B 71 28 33 ,i)>q(2,x)*2+q(3
004430: 2C 78 29 20 54 48 45 4E 20 38 38 0D 0A 38 34 20 ,x) THEN 88..84
004440: 49 46 20 71 28 32 2C 69 29 2A 32 2B 71 28 33 2C IF q(2,i)*2+q(3,
004450: 69 29 3D 71 28 32 2C 78 29 2A 32 2B 71 28 33 2C i)=q(2,x)*2+q(3,
004460: 78 29 20 41 4E 44 20 71 28 34 2C 69 29 2D 71 28 x) AND q(4,i)-q(
004470: 35 2C 69 29 3E 71 28 34 2C 78 29 2D 71 28 35 2C 5,i)>q(4,x)-q(5,
004480: 78 29 20 54 48 45 4E 20 38 38 0D 0A 38 35 20 49 x) THEN 88..85 I
004490: 46 20 71 28 32 2C 69 29 2A 32 2B 71 28 33 2C 69 F q(2,i)*2+q(3,i
0044A0: 29 3D 71 28 32 2C 78 29 2A 32 2B 71 28 33 2C 78 )=q(2,x)*2+q(3,x
0044B0: 29 20 41 4E 44 20 71 28 34 2C 69 29 2D 71 28 35 ) AND q(4,i)-q(5
0044C0: 2C 69 29 3D 71 28 34 2C 78 29 2D 71 28 35 2C 78 ,i)=q(4,x)-q(5,x
0044D0: 29 20 41 4E 44 20 71 28 34 2C 69 29 3E 71 28 34 ) AND q(4,i)>q(4
0044E0: 2C 78 29 20 54 48 45 4E 20 38 38 0D 0A 38 36 20 ,x) THEN 88..86
0044F0: 65 32 3D 71 28 32 2C 69 29 3A 65 33 3D 71 28 33 e2=q(2,i):e3=q(3
004500: 2C 69 29 3A 65 34 3D 71 28 34 2C 69 29 73 13 FF ,i):e4=q(4,i)s..
004510: FF FF FF 11 9D 04 2C 02 7B 02 6D 02 DA 04 F4 0F ......,.{.m.....
004520: 08 13 00 07 01 00 2C 49 2E 4D 41 4E 41 47 45 52 ......,I.MANAGER
004530: 00 00 00 00 00 00 00 04 00 16 00 08 7C 9E 00 00 ............|...
004540: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004550: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004560: 00 00 00 00 00 00 00 00 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0045A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0045B0: 00 00 00 00 00 00 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0045E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0045F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004600: 00 00 00 00 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 57 D5 FF FF FF FF 11 9E 04 .......W........
004630: 2C 02 2C 02 4E 02 9D 04 F6 0F 08 4D 0B 15 08 00 ,.,.N......M....
004640: 16 3A 65 35 3D 71 28 35 2C 69 29 3A 7A 24 3D 67 .:e5=q(5,i):z$=g
004650: 24 28 69 29 3A 71 28 32 2C 69 29 3D 71 28 32 2C $(i):q(2,i)=q(2,
004660: 78 29 3A 71 28 33 2C 69 29 3D 71 28 33 2C 78 29 x):q(3,i)=q(3,x)
004670: 3A 71 28 34 2C 69 29 3D 71 28 34 2C 78 29 3A 71 :q(4,i)=q(4,x):q
004680: 28 35 2C 69 29 3D 71 28 35 2C 78 29 3A 67 24 28 (5,i)=q(5,x):g$(
004690: 69 29 3D 67 24 28 78 29 3A 71 28 32 2C 78 29 3D i)=g$(x):q(2,x)=
0046A0: 65 32 0D 0A 38 37 20 71 28 33 2C 78 29 3D 65 33 e2..87 q(3,x)=e3
0046B0: 3A 71 28 34 2C 78 29 3D 65 34 3A 71 28 35 2C 78 :q(4,x)=e4:q(5,x
0046C0: 29 3D 65 35 3A 67 24 28 78 29 3D 7A 24 0D 0A 38 )=e5:g$(x)=z$..8
0046D0: 38 20 4E 45 58 54 20 78 0D 0A 38 39 20 4E 45 58 8 NEXT x..89 NEX
0046E0: 54 20 69 3A 52 45 54 55 52 4E 0D 0A 39 30 20 46 T i:RETURN..90 F
0046F0: 4F 52 20 69 3D 31 20 54 4F 20 34 3A 49 46 20 67 OR i=1 TO 4:IF g
004700: 24 28 69 29 3D 72 24 20 54 48 45 4E 20 47 4F 53 $(i)=r$ THEN GOS
004710: 55 42 20 39 34 3A 49 3D 35 0D 0A 39 31 20 4E 45 UB 94:I=5..91 NE
004720: 58 54 0D 0A 39 32 20 47 4F 53 55 42 20 39 35 3A XT..92 GOSUB 95:
004730: 46 4F 52 20 69 3D 31 20 54 4F 20 34 3A 49 46 20 FOR i=1 TO 4:IF
004740: 67 D0 C3 24 28 69 29 3D 73 24 20 54 48 45 4E 20 g..$(i)=s$ THEN
004750: 47 4F 53 55 42 20 39 34 3A 47 4F 53 55 42 20 39 GOSUB 94:GOSUB 9
004760: 35 3A 49 3D 35 0D 0A 39 33 20 4E 45 58 54 3A 52 5:I=5..93 NEXT:R
004770: 45 54 55 52 4E 0D 0A 39 34 20 71 28 31 2C 69 29 ETURN..94 q(1,i)
004780: 3D 71 28 31 2C 69 29 2B 31 3A 71 28 32 2C 69 29 =q(1,i)+1:q(2,i)
004790: 3D 71 28 32 2C 69 29 2D 28 72 3E 73 29 3A 71 28 =q(2,i)-(r>s):q(
0047A0: 33 2C 69 29 3D 71 28 33 2C 69 29 2D 28 72 3D 73 3,i)=q(3,i)-(r=s
0047B0: 29 3A 71 28 34 2C 69 29 3D 71 28 34 2C 69 29 2B ):q(4,i)=q(4,i)+
0047C0: 72 3A 71 28 35 2C 69 29 3D 71 28 35 2C 69 29 2B r:q(5,i)=q(5,i)+
0047D0: 73 3A 52 45 54 55 52 4E 0D 0A 39 35 20 65 74 3D s:RETURN..95 et=
0047E0: 72 3A 72 3D 73 3A 73 3D 65 74 3A 52 45 54 55 52 r:r=s:s=et:RETUR
0047F0: 4E 0D 0A 39 36 20 49 46 20 62 67 3D 30 20 54 48 N..96 IF bg=0 TH
004800: 45 4E 20 33 31 38 0D 0A 39 37 20 49 46 20 67 24 EN 318..97 IF g$
004810: 28 31 29 3D 22 22 20 54 48 45 4E 20 31 31 30 0D (1)="" THEN 110.
004820: 0A 39 38 20 43 4C 53 3A 49 46 20 62 65 3D 32 20 .98 CLS:IF be=2
004830: 54 48 45 4E 20 31 30 30 0D 0A 39 39 20 47 4F 53 THEN 100..99 GOS
004840: 55 42 20 97 DF 33 36 31 3A 47 4F 53 55 42 20 33 UB ..361:GOSUB 3
004850: 36 36 3A 4C 4F 43 41 54 45 20 35 2C 31 3A 50 45 66:LOCATE 5,1:PE
004860: 4E 20 32 3A 50 52 49 4E 54 20 6C 24 3B 22 53 22 N 2:PRINT l$;"S"
004870: 3A 50 45 4E 20 31 3A 47 4F 54 4F 20 31 30 31 0D :PEN 1:GOTO 101.
004880: 0A 31 30 30 20 47 4F 53 55 42 20 33 36 30 3A 47 .100 GOSUB 360:G
004890: 4F 53 55 42 20 33 36 36 3A 4C 4F 43 41 54 45 20 OSUB 366:LOCATE
0048A0: 31 31 2C 31 3A 50 45 4E 20 32 3A 50 52 49 4E 54 11,1:PEN 2:PRINT
0048B0: 20 6C 24 3B 22 53 22 3A 50 45 4E 20 31 0D 0A 31 l$;"S":PEN 1..1
0048C0: 30 31 20 4C 4F 43 41 54 45 20 31 34 2C 33 3A 50 01 LOCATE 14,3:P
0048D0: 52 49 4E 54 22 50 20 20 57 20 20 4C 20 20 44 20 RINT"P W L D
0048E0: 20 46 20 20 41 20 20 47 20 20 50 54 22 3A 46 4F F A G PT":FO
0048F0: 52 20 69 3D 31 20 54 4F 20 34 3A 4C 4F 43 41 54 R i=1 TO 4:LOCAT
004900: 45 20 31 2C 69 2B 34 3A 50 52 49 4E 54 20 69 3B E 1,i+4:PRINT i;
004910: 67 24 28 69 29 3B 49 4E 54 20 28 71 28 31 2C 69 g$(i);INT (q(1,i
004920: 29 29 3A 4C 4F 43 41 54 45 20 31 36 2C 69 2B 34 )):LOCATE 16,i+4
004930: 3A 50 52 49 4E 54 20 49 4E 54 20 28 71 28 32 2C :PRINT INT (q(2,
004940: 69 29 29 3A 4C 3B 83 4F 43 41 54 45 20 31 39 2C i)):L;.OCATE 19,
004950: 69 2B 34 3A 50 52 49 4E 54 20 49 4E 54 20 28 71 i+4:PRINT INT (q
004960: 28 31 2C 69 29 2D 71 28 32 2C 69 29 2D 71 28 33 (1,i)-q(2,i)-q(3
004970: 2C 69 29 29 3A 4C 4F 43 41 54 45 20 32 32 2C 69 ,i)):LOCATE 22,i
004980: 2B 34 3A 50 52 49 4E 54 20 49 4E 54 20 28 71 28 +4:PRINT INT (q(
004990: 33 2C 69 29 29 3A 4C 4F 43 41 54 45 20 32 35 2C 3,i)):LOCATE 25,
0049A0: 69 2B 34 3A 50 52 49 4E 54 20 49 4E 54 20 28 71 i+4:PRINT INT (q
0049B0: 28 34 2C 69 29 29 0D 0A 31 30 32 20 4C 4F 43 41 (4,i))..102 LOCA
0049C0: 54 45 20 32 38 2C 69 2B 34 3A 50 52 49 4E 54 20 TE 28,i+4:PRINT
0049D0: 49 4E 54 20 28 71 28 35 2C 69 29 29 3A 4C 4F 43 INT (q(5,i)):LOC
0049E0: 41 54 45 20 33 31 2C 69 2B 34 3A 50 52 49 4E 54 ATE 31,i+4:PRINT
0049F0: 20 49 4E 54 20 28 71 28 34 2C 69 29 2D 71 28 35 INT (q(4,i)-q(5
004A00: 2C 69 29 29 3A 4C 4F 43 41 54 45 20 33 34 2C 69 ,i)):LOCATE 34,i
004A10: 2B 34 3A 50 52 49 4E 54 20 49 4E 54 20 28 71 28 +4:PRINT INT (q(
004A20: 32 2C 69 29 2A 32 2B 71 28 33 2C 69 29 29 3A 4E 2,i)*2+q(3,i)):N
004A30: 45 58 54 0D 0A 31 30 33 20 46 4F 52 20 69 3D 31 EXT..103 FOR i=1
004A40: 20 54 4F 20 31 32 3A 9F 99 4C 4F 43 41 54 45 20 TO 12:..LOCATE
004A50: 35 2C 39 2B 69 3A 50 52 49 4E 54 20 68 24 28 69 5,9+i:PRINT h$(i
004A60: 29 3A 4E 45 58 54 0D 0A 31 30 34 20 47 4F 53 55 ):NEXT..104 GOSU
004A70: 42 20 33 37 35 3A 47 4F 54 4F 20 31 30 34 0D 0A B 375:GOTO 104..
004A80: 31 30 35 20 72 61 3D 30 3A 46 4F 52 20 6A 3D 31 105 ra=0:FOR j=1
004A90: 32 20 54 4F 20 31 36 3A 72 61 3D 72 61 2D 28 70 2 TO 16:ra=ra-(p
004AA0: 28 6A 29 3E 30 29 3A 4E 45 58 54 3A 62 6B 3D 30 (j)>0):NEXT:bk=0
004AB0: 2D 28 72 61 3D 34 29 2D 28 72 61 3D 35 29 2A 32 -(ra=4)-(ra=5)*2
004AC0: 3A 49 46 20 62 6B 3C 32 20 54 48 45 4E 20 31 30 :IF bk<2 THEN 10
004AD0: 36 20 45 4C 53 45 20 31 30 37 0D 0A 31 30 36 20 6 ELSE 107..106
004AE0: 4C 4F 43 41 54 45 20 33 2C 31 39 3A 50 45 4E 20 LOCATE 3,19:PEN
004AF0: 32 3A 50 52 49 4E 54 22 53 2D 53 55 42 53 54 49 2:PRINT"S-SUBSTI
004B00: 54 55 54 49 4F 4E 22 3A 50 45 4E 20 31 0D 0A 31 TUTION":PEN 1..1
004B10: 30 37 20 52 45 54 55 52 4E 0D 0A 31 30 38 20 7A 07 RETURN..108 z
004B20: 7A 3D 30 3A 43 4C 53 3A 50 45 4E 20 31 3A 4C 4F z=0:CLS:PEN 1:LO
004B30: 43 41 54 45 20 31 34 2C 35 3A 50 52 49 4E 54 22 CATE 14,5:PRINT"
004B40: 50 2D 50 4C 41 59 22 3B 53 52 E3 50 41 43 45 24 P-PLAY";SR.PACE$
004B50: 28 35 33 29 3B 22 4E 2D 4E 45 58 54 20 47 41 4D (53);"N-NEXT GAM
004B60: 45 22 53 50 41 43 45 24 28 35 33 29 3B 22 53 2D E"SPACE$(53);"S-
004B70: 53 51 55 41 44 22 53 50 41 43 45 24 28 35 33 29 SQUAD"SPACE$(53)
004B80: 3B 22 47 2D 47 52 4F 55 50 2F 46 49 4E 41 4C 53 ;"G-GROUP/FINALS
004B90: 22 53 50 41 43 45 24 28 35 33 29 3B 22 46 2D 46 "SPACE$(53);"F-F
004BA0: 49 58 54 55 52 45 53 22 53 50 41 43 45 24 28 35 IXTURES"SPACE$(5
004BB0: 33 29 3B 22 49 2D 49 4E 4A 55 52 49 45 53 2F 47 3);"I-INJURIES/G
004BC0: 4F 41 4C 53 22 53 50 41 43 45 24 28 35 33 29 3B OALS"SPACE$(53);
004BD0: 22 31 2D 53 41 56 45 22 0D 0A 31 30 39 20 50 45 "1-SAVE"..109 PE
004BE0: 4E 20 30 3A 50 52 49 4E 54 20 46 52 45 28 22 22 N 0:PRINT FRE(""
004BF0: 29 3A 50 45 4E 20 31 3A 47 4F 53 55 42 20 31 31 ):PEN 1:GOSUB 11
004C00: 39 0D 0A 31 31 30 20 71 24 3D 49 4E 4B 45 59 24 9..110 q$=INKEY$
004C10: 3A 49 46 20 71 24 3D 22 22 20 54 48 45 4E 20 31 :IF q$="" THEN 1
004C20: 31 33 20 45 4C 53 45 20 71 24 3D 55 50 50 45 52 13 ELSE q$=UPPER
004C30: 24 28 71 24 29 0D 0A 31 31 31 20 49 46 20 71 24 $(q$)..111 IF q$
004C40: 3D 22 31 22 20 54 48 45 4E 20 33 95 FC 38 33 20 ="1" THEN 3..83
004C50: 45 4C 53 45 20 49 46 20 71 24 3D 22 50 22 20 54 ELSE IF q$="P" T
004C60: 48 45 4E 20 31 32 31 20 45 4C 53 45 20 49 46 20 HEN 121 ELSE IF
004C70: 71 24 3D 22 53 22 20 54 48 45 4E 20 31 37 33 20 q$="S" THEN 173
004C80: 45 4C 53 45 20 49 46 20 71 24 3D 22 46 22 20 41 ELSE IF q$="F" A
004C90: 4E 44 20 61 63 3C 33 31 20 54 48 45 4E 20 31 39 ND ac<31 THEN 19
004CA0: 20 45 4C 53 45 20 49 46 20 71 24 3D 22 49 22 20 ELSE IF q$="I"
004CB0: 54 48 45 4E 20 37 34 20 45 4C 53 45 20 49 46 20 THEN 74 ELSE IF
004CC0: 71 24 3D 22 47 22 20 54 48 45 4E 20 39 36 20 45 q$="G" THEN 96 E
004CD0: 4C 53 45 20 31 31 32 0D 0A 31 31 32 20 49 46 20 LSE 112..112 IF
004CE0: 71 24 3D 22 4E 22 20 41 4E 44 20 4C 45 46 54 24 q$="N" AND LEFT$
004CF0: 28 64 24 28 61 62 29 2C 32 29 3D 22 54 4F 22 20 (d$(ab),2)="TO"
004D00: 41 4E 44 20 7A 7A 3D 31 20 4F 52 20 71 24 3D 22 AND zz=1 OR q$="
004D10: 4E 22 20 41 4E 44 20 4C 45 46 54 24 28 64 24 28 N" AND LEFT$(d$(
004D20: 61 62 29 2C 31 29 3C 3E 22 20 22 20 41 4E 44 20 ab),1)<>" " AND
004D30: 4C 45 46 54 24 28 64 24 28 61 62 29 2C 32 29 3C LEFT$(d$(ab),2)<
004D40: 3E 22 54 4F 22 20 41 4E 44 20 68 28 61 B9 A0 62 >"TO" AND h(a..b
004D50: 29 3D 61 63 20 54 48 45 4E 20 32 0D 0A 31 31 33 )=ac THEN 2..113
004D60: 20 49 46 20 61 62 3D 31 32 20 41 4E 44 20 61 63 IF ab=12 AND ac
004D70: 3D 33 31 20 41 4E 44 20 68 28 31 32 29 3C 3E 33 =31 AND h(12)<>3
004D80: 31 20 54 48 45 4E 20 32 31 37 20 45 4C 53 45 20 1 THEN 217 ELSE
004D90: 49 46 20 61 62 3D 36 20 41 4E 44 20 61 63 3D 62 IF ab=6 AND ac=b
004DA0: 68 20 41 4E 44 20 62 66 3E 30 20 54 48 45 4E 20 h AND bf>0 THEN
004DB0: 31 31 30 20 45 4C 53 45 20 49 46 20 61 63 3D 31 110 ELSE IF ac=1
004DC0: 20 41 4E 44 20 61 62 3D 36 20 41 4E 44 20 62 67 AND ab=6 AND bg
004DD0: 3D 30 20 41 4E 44 20 62 66 3E 30 20 4F 52 20 61 =0 AND bf>0 OR a
004DE0: 63 3D 31 20 41 4E 44 20 78 63 3D 31 20 54 48 45 c=1 AND xc=1 THE
004DF0: 4E 20 78 63 3D 30 3A 47 4F 53 55 42 20 32 38 36 N xc=0:GOSUB 286
004E00: 20 45 4C 53 45 20 49 46 20 61 62 3D 36 20 41 4E ELSE IF ab=6 AN
004E10: 44 20 61 63 3D 62 68 20 41 4E 44 20 62 66 3C 30 D ac=bh AND bf<0
004E20: 20 54 48 45 4E 20 43 4C 53 3A 47 4F 53 55 42 20 THEN CLS:GOSUB
004E30: 34 36 3A 47 4F 53 55 42 20 35 32 3A 61 63 3D 61 46:GOSUB 52:ac=a
004E40: 63 2B 31 3A 47 4F 54 4F 20 39 36 0D 0A 31 31 21 c+1:GOTO 96..11!
004E50: B1 FF FF FF FF 11 9D 04 2C 02 7B 02 6C 02 D9 04 ........,.{.l...
004E60: F4 0F 08 14 00 07 01 00 2C 49 2E 4D 41 4E 41 47 ........,I.MANAG
004E70: 45 52 00 00 00 00 00 00 00 05 00 16 00 08 7C 9E ER............|.
004E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004EA0: 00 00 00 00 00 00 00 00 00 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 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004EF0: 00 00 00 00 00 00 00 00 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 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004F20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004F30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004F40: 00 00 00 00 00 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 B0 DE FF FF FF FF 11 ................
004F70: 9D 04 2C 02 7B 02 4C 02 9A 04 F6 0F 08 4D 0B 15 ..,.{.L......M..
004F80: 08 00 16 34 20 49 46 20 61 62 3D 36 20 41 4E 44 ...4 IF ab=6 AND
004F90: 20 61 63 3D 33 31 20 41 4E 44 20 62 66 3D 32 20 ac=31 AND bf=2
004FA0: 41 4E 44 20 62 67 3D 30 20 54 48 45 4E 20 43 4C AND bg=0 THEN CL
004FB0: 53 3A 47 4F 53 55 42 20 33 31 39 3A 4C 4F 43 41 S:GOSUB 319:LOCA
004FC0: 54 45 20 31 33 2C 32 32 3A 50 45 4E 20 33 3A 50 TE 13,22:PEN 3:P
004FD0: 52 49 4E 54 22 50 4C 45 41 53 45 20 57 41 49 54 RINT"PLEASE WAIT
004FE0: 22 3A 50 45 4E 20 31 3A 47 4F 53 55 42 20 33 33 ":PEN 1:GOSUB 33
004FF0: 38 3A 47 4F 53 55 42 20 31 31 38 3A 47 4F 54 4F 8:GOSUB 118:GOTO
005000: 20 31 30 38 0D 0A 31 31 35 20 49 46 20 4C 45 46 108..115 IF LEF
005010: 54 24 28 64 24 28 61 62 29 2C 32 29 3D 22 54 4F T$(d$(ab),2)="TO
005020: 22 20 41 4E 44 20 7A 7A 3D 30 20 54 48 45 4E 20 " AND zz=0 THEN
005030: 47 4F 53 55 42 20 33 37 39 3A 47 4F 54 4F 20 31 GOSUB 379:GOTO 1
005040: 31 37 0D 0A 31 31 36 20 49 46 20 68 28 61 62 29 17..116 IF h(ab)
005050: 3D 61 63 20 41 4E 44 20 64 24 28 61 62 29 3C 3E =ac AND d$(ab)<>
005060: 22 22 20 54 48 45 4E 20 31 31 30 0D 0A 31 31 37 "" THEN 110..117
005070: 20 47 4F 53 55 42 20 31 31 38 3A 46 4F 52 20 69 GOSUB 118:FOR i
005080: 3D 31 32 EE 3F 20 54 4F 20 34 30 3A 70 28 69 29 =12.? TO 40:p(i)
005090: 3D 70 28 69 29 2B 28 70 28 69 29 3E 30 29 3A 4E =p(i)+(p(i)>0):N
0050A0: 45 58 54 3A 47 4F 53 55 42 20 31 31 39 3A 47 4F EXT:GOSUB 119:GO
0050B0: 54 4F 20 31 31 30 0D 0A 31 31 38 20 61 63 3D 61 TO 110..118 ac=a
0050C0: 63 2B 31 3A 49 46 20 61 63 3D 33 32 20 41 4E 44 c+1:IF ac=32 AND
0050D0: 20 61 62 3C 3E 31 32 20 54 48 45 4E 20 61 62 3D ab<>12 THEN ab=
0050E0: 61 62 2B 31 3A 61 63 3D 31 3A 47 4F 53 55 42 20 ab+1:ac=1:GOSUB
0050F0: 34 30 38 3A 52 45 54 55 52 4E 20 45 4C 53 45 20 408:RETURN ELSE
005100: 49 46 20 61 62 3D 31 32 20 41 4E 44 20 61 63 3D IF ab=12 AND ac=
005110: 33 32 20 54 48 45 4E 20 61 63 3D 31 3A 61 62 3D 32 THEN ac=1:ab=
005120: 31 3A 61 61 3D 61 61 2B 31 3A 47 4F 53 55 42 20 1:aa=aa+1:GOSUB
005130: 36 35 3A 46 4F 52 20 69 3D 31 20 54 4F 20 35 3A 65:FOR i=1 TO 5:
005140: 46 4F 52 20 7A 3D 31 20 54 4F 20 35 3A 71 28 69 FOR z=1 TO 5:q(i
005150: 2C 7A 29 3D 30 3A 4E 45 58 54 20 7A 2C 69 3A 52 ,z)=0:NEXT z,i:R
005160: 45 54 55 52 4E 20 45 4C 53 45 20 52 45 54 55 52 ETURN ELSE RETUR
005170: 4E 0D 0A 31 31 39 20 4C 4F 43 41 54 45 20 31 31 N..119 LOCATE 11
005180: 2C 32 31 3A 50 74 12 52 49 4E 54 22 53 45 41 53 ,21:Pt.RINT"SEAS
005190: 4F 4E 20 22 3B 61 61 3A 4C 4F 43 41 54 45 20 32 ON ";aa:LOCATE 2
0051A0: 32 2C 32 31 3A 50 52 49 4E 54 20 65 24 28 61 62 2,21:PRINT e$(ab
0051B0: 29 3A 4C 4F 43 41 54 45 20 32 36 2C 32 31 3A 50 ):LOCATE 26,21:P
0051C0: 52 49 4E 54 20 61 63 3A 49 46 20 61 63 3D 31 20 RINT ac:IF ac=1
0051D0: 54 48 45 4E 20 52 45 54 55 52 4E 20 45 4C 53 45 THEN RETURN ELSE
0051E0: 20 46 4F 52 20 78 3D 31 20 54 4F 20 35 30 30 3A FOR x=1 TO 500:
0051F0: 4E 45 58 54 3A 52 45 54 55 52 4E 0D 0A 31 32 30 NEXT:RETURN..120
005200: 20 4C 4F 43 41 54 45 20 32 2C 36 3A 50 52 49 4E LOCATE 2,6:PRIN
005210: 54 22 52 41 4E 4B 45 44 20 22 3B 41 42 53 28 6B T"RANKED ";ABS(k
005220: 28 62 69 29 29 53 50 41 43 45 24 28 31 36 29 3B (bi))SPACE$(16);
005230: 22 52 41 4E 4B 45 44 20 22 3B 41 42 53 28 4B 28 "RANKED ";ABS(K(
005240: 47 34 29 29 3A 49 46 20 61 6D 3D 31 20 54 48 45 G4)):IF am=1 THE
005250: 4E 20 4C 4F 43 41 54 45 20 31 38 2C 36 3A 50 52 N LOCATE 18,6:PR
005260: 49 4E 54 22 48 4F 4D 45 22 3A 52 45 54 55 52 4E INT"HOME":RETURN
005270: 20 45 4C 53 45 20 4C 4F 43 41 54 45 20 31 38 2C ELSE LOCATE 18,
005280: 36 3A 50 52 49 4E 54 CF C4 22 41 57 41 59 22 3A 6:PRINT.."AWAY":
005290: 52 45 54 55 52 4E 0D 0A 31 32 31 20 70 79 3D 38 RETURN..121 py=8
0052A0: 3A 70 7A 3D 38 3A 49 46 20 68 28 61 62 29 3D 61 :pz=8:IF h(ab)=a
0052B0: 63 20 41 4E 44 20 64 24 28 61 62 29 3C 3E 22 22 c AND d$(ab)<>""
0052C0: 20 4F 52 20 4C 45 46 54 24 28 64 24 28 61 62 29 OR LEFT$(d$(ab)
0052D0: 2C 32 29 3D 22 54 4F 22 20 41 4E 44 20 7A 7A 3D ,2)="TO" AND zz=
0052E0: 31 20 54 48 45 4E 20 31 32 32 20 45 4C 53 45 20 1 THEN 122 ELSE
0052F0: 31 31 30 0D 0A 31 32 32 20 52 41 4E 44 4F 4D 49 110..122 RANDOMI
005300: 5A 45 20 54 49 4D 45 3A 65 78 3D 30 3A 64 31 3D ZE TIME:ex=0:d1=
005310: 30 3A 62 6C 3D 30 3A 62 6B 3D 30 3A 47 4F 53 55 0:bl=0:bk=0:GOSU
005320: 42 20 33 34 33 3A 47 4F 53 55 42 20 33 30 33 3A B 343:GOSUB 303:
005330: 43 4C 53 0D 0A 31 32 33 20 72 3D 30 3A 73 3D 30 CLS..123 r=0:s=0
005340: 3A 6E 3D 30 3A 4C 4F 43 41 54 45 20 31 34 2C 32 :n=0:LOCATE 14,2
005350: 3A 50 52 49 4E 54 22 54 49 4D 45 20 20 20 20 20 :PRINT"TIME
005360: 4D 49 4E 22 3A 4C 4F 43 41 54 45 20 31 32 2C 33 MIN":LOCATE 12,3
005370: 3A 50 52 49 4E 54 22 53 45 41 53 4F 4E 20 22 3B :PRINT"SEASON ";
005380: 61 61 3B 65 24 28 61 62 29 DC 49 3B 22 20 22 3B aa;e$(ab).I;" ";
005390: 61 63 3A 4C 4F 43 41 54 45 20 31 39 2C 32 3A 50 ac:LOCATE 19,2:P
0053A0: 52 49 4E 54 20 6E 3A 4C 4F 43 41 54 45 20 31 2C RINT n:LOCATE 1,
0053B0: 38 3A 50 52 49 4E 54 20 72 24 3A 4C 4F 43 41 54 8:PRINT r$:LOCAT
0053C0: 45 20 32 31 2C 38 3A 50 52 49 4E 54 20 73 24 3A E 21,8:PRINT s$:
0053D0: 47 4F 53 55 42 20 31 32 30 3A 47 4F 53 55 42 20 GOSUB 120:GOSUB
0053E0: 31 34 39 3A 47 4F 54 4F 20 31 32 35 0D 0A 31 32 149:GOTO 125..12
0053F0: 34 20 46 4F 52 20 69 3D 31 32 20 54 4F 20 31 36 4 FOR i=12 TO 16
005400: 3A 47 4F 53 55 42 20 32 31 31 3A 4C 4F 43 41 54 :GOSUB 211:LOCAT
005410: 45 20 31 39 2C 69 2B 35 3A 50 52 49 4E 54 20 69 E 19,i+5:PRINT i
005420: 3B 7A 24 22 20 22 3B 62 24 28 69 29 3B 22 20 20 ;z$" ";b$(i);"
005430: 20 20 22 3A 4C 4F 43 41 54 45 20 33 33 2C 69 2B ":LOCATE 33,i+
005440: 35 3A 50 52 49 4E 54 20 49 4E 54 28 61 28 69 29 5:PRINT INT(a(i)
005450: 29 3B 78 24 3A 4E 45 58 54 3A 52 45 54 55 52 4E );x$:NEXT:RETURN
005460: 0D 0A 31 32 35 20 47 4F 53 55 42 20 31 30 35 3A ..125 GOSUB 105:
005470: 49 46 20 41 53 43 28 6E 24 29 3C 3E 36 39 20 54 IF ASC(n$)<>69 T
005480: 48 45 4E 20 72 61 3D 49 4E 54 28 8B 1A 34 30 2D HEN ra=INT(..40-
005490: 4C 45 4E 28 6E 24 29 29 2F 32 3A 4C 4F 43 41 54 LEN(n$))/2:LOCAT
0054A0: 45 20 72 61 2C 35 3A 50 45 4E 20 32 3A 50 52 49 E ra,5:PEN 2:PRI
0054B0: 4E 54 20 6E 24 3A 50 45 4E 20 31 3A 47 4F 54 4F NT n$:PEN 1:GOTO
0054C0: 20 31 32 37 0D 0A 31 32 36 20 4C 4F 43 41 54 45 127..126 LOCATE
0054D0: 20 31 30 2C 34 3A 50 45 4E 20 32 3A 50 52 49 4E 10,4:PEN 2:PRIN
0054E0: 54 20 4C 45 46 54 24 28 6E 24 2C 32 32 29 3A 72 T LEFT$(n$,22):r
0054F0: 61 3D 49 4E 54 28 34 30 2D 49 4E 54 28 4C 45 4E a=INT(40-INT(LEN
005500: 28 6E 24 29 2D 32 32 29 29 2F 32 3A 4C 4F 43 41 (n$)-22))/2:LOCA
005510: 54 45 20 72 61 2C 35 3A 50 52 49 4E 54 20 4D 49 TE ra,5:PRINT MI
005520: 44 24 28 6E 24 2C 32 33 29 3A 50 45 4E 20 31 0D D$(n$,23):PEN 1.
005530: 0A 31 32 37 20 46 4F 52 20 69 3D 31 20 54 4F 20 .127 FOR i=1 TO
005540: 31 36 3A 72 61 3D 31 2B 49 4E 54 28 52 4E 44 2A 16:ra=1+INT(RND*
005550: 31 30 29 3A 72 62 3D 31 2B 49 4E 54 28 52 4E 44 10):rb=1+INT(RND
005560: 2A 33 29 3A 49 46 20 72 61 3E 3D 64 28 69 29 20 *3):IF ra>=d(i)
005570: 54 48 45 4E 20 31 32 38 20 45 4C 53 45 20 47 28 THEN 128 ELSE G(
005580: 49 29 3D 47 28 49 29 2B 52 42 3A 47 4F EC F2 54 I)=G(I)+RB:GO..T
005590: 4F 20 31 32 39 0D 0A 31 32 38 20 67 28 69 29 3D O 129..128 g(i)=
0055A0: 67 28 69 29 2D 72 62 3A 49 46 20 67 28 69 29 3C g(i)-rb:IF g(i)<
0055B0: 31 20 54 48 45 4E 20 67 28 69 29 3D 31 0D 0A 31 1 THEN g(i)=1..1
0055C0: 32 39 20 49 46 20 47 28 49 29 3E 41 28 49 29 20 29 IF G(I)>A(I)
0055D0: 54 48 45 4E 20 47 28 49 29 3D 41 28 49 29 0D 0A THEN G(I)=A(I)..
0055E0: 31 33 30 20 4E 45 58 54 20 69 3A 47 4F 53 55 42 130 NEXT i:GOSUB
0055F0: 20 31 39 31 3A 47 4F 53 55 42 20 32 31 30 3A 47 191:GOSUB 210:G
005600: 4F 53 55 42 20 31 32 34 3A 47 4F 53 55 42 20 31 OSUB 124:GOSUB 1
005610: 33 31 3A 47 4F 54 4F 20 31 33 32 0D 0A 31 33 31 31:GOTO 132..131
005620: 20 65 31 3D 49 4E 54 28 61 68 2B 61 67 29 2F 32 e1=INT(ah+ag)/2
005630: 3A 65 31 3D 49 4E 54 28 65 31 2D 28 61 6A 2F 32 :e1=INT(e1-(aj/2
005640: 29 2B 28 61 6D 3C 3E 31 29 29 3A 65 32 3D 49 4E )+(am<>1)):e2=IN
005650: 54 28 61 6C 2B 61 6B 29 2F 32 3A 65 32 3D 49 4E T(al+ak)/2:e2=IN
005660: 54 28 65 32 2D 28 61 66 2F 32 29 2B 28 61 6D 3D T(e2-(af/2)+(am=
005670: 31 29 29 3A 46 4F 52 20 69 3D 31 20 54 4F 20 65 1)):FOR i=1 TO e
005680: 31 3A 76 28 69 29 3D 31 2B 49 4E 54 28 52 4E E7 1:v(i)=1+INT(RN.
005690: BB 44 2A 28 39 30 2B 28 65 78 3D 31 29 2A 36 30 .D*(90+(ex=1)*60
0056A0: 29 29 3A 4E 45 58 54 3A 46 4F 52 20 69 3D 31 30 )):NEXT:FOR i=10
0056B0: 20 54 4F 20 39 2B 65 32 3A 76 28 69 29 3D 31 2B TO 9+e2:v(i)=1+
0056C0: 49 4E 54 28 52 4E 44 2A 28 39 30 2B 28 65 78 3D INT(RND*(90+(ex=
0056D0: 31 29 2A 36 30 29 29 3A 4E 45 58 54 3A 52 45 54 1)*60)):NEXT:RET
0056E0: 55 52 4E 0D 0A 31 33 32 20 52 41 4E 44 4F 4D 49 URN..132 RANDOMI
0056F0: 5A 45 20 54 49 4D 45 3A 63 65 3D 49 4E 54 28 52 ZE TIME:ce=INT(R
005700: 4E 44 2A 32 29 3A 70 62 3D 31 32 3A 47 4F 53 55 ND*2):pb=12:GOSU
005710: 42 20 34 30 32 0D 0A 31 33 33 20 47 4F 53 55 42 B 402..133 GOSUB
005720: 20 34 32 32 3A 71 24 3D 49 4E 4B 45 59 24 3A 71 422:q$=INKEY$:q
005730: 24 3D 55 50 50 45 52 24 28 71 24 29 3A 49 46 20 $=UPPER$(q$):IF
005740: 71 24 3D 22 53 22 20 41 4E 44 20 62 6B 3C 32 20 q$="S" AND bk<2
005750: 54 48 45 4E 20 31 36 31 20 45 4C 53 45 20 49 46 THEN 161 ELSE IF
005760: 20 6E 3D 34 35 20 54 48 45 4E 20 47 4F 53 55 42 n=45 THEN GOSUB
005770: 20 31 34 37 3A 70 61 3D 2D 28 63 65 3D 30 29 0D 147:pa=-(ce=0).
005780: 0A 31 33 34 20 49 46 20 6E 3D 39 30 2B 28 65 78 .134 IF n=90+(ex
005790: 3D EA D7 FF FF FF FF 11 9C 04 2C 02 7B 02 6C 02 =.........,.{.l.
0057A0: D9 04 F4 0F 08 13 00 07 01 00 2C 49 2E 4D 41 4E ..........,I.MAN
0057B0: 41 47 45 52 00 00 00 00 00 00 00 06 00 16 00 08 AGER............
0057C0: 7C 9E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |...............
0057D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0057E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0057F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005800: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005810: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005820: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005830: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005840: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005850: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0058A0: 00 00 00 00 00 00 00 00 00 00 00 89 E2 FF FF FF ................
0058B0: FF 11 9C 04 2C 02 7B 02 4E 02 9D 04 F5 0F 08 4B ....,.{.N......K
0058C0: 0B 15 08 00 16 31 29 2A 36 30 20 54 48 45 4E 20 .....1)*60 THEN
0058D0: 47 4F 53 55 42 20 31 34 39 3A 4C 4F 43 41 54 45 GOSUB 149:LOCATE
0058E0: 20 31 35 2C 31 3A 50 45 4E 20 32 3A 50 52 49 4E 15,1:PEN 2:PRIN
0058F0: 54 22 46 55 4C 4C 20 20 54 49 4D 45 22 3A 50 45 T"FULL TIME":PE
005900: 4E 20 31 3A 49 46 20 6E 3D 39 30 2B 28 65 78 3D N 1:IF n=90+(ex=
005910: 31 29 2A 36 30 20 41 4E 44 20 72 3D 73 20 41 4E 1)*60 AND r=s AN
005920: 44 20 61 63 3D 62 68 20 41 4E 44 20 61 62 3D 36 D ac=bh AND ab=6
005930: 20 54 48 45 4E 20 34 30 36 20 45 4C 53 45 20 49 THEN 406 ELSE I
005940: 46 20 6E 3D 39 30 2B 28 65 78 3D 31 29 2A 36 30 F n=90+(ex=1)*60
005950: 20 54 48 45 4E 20 32 35 30 0D 0A 31 33 35 20 47 THEN 250..135 G
005960: 4F 53 55 42 20 31 34 38 3A 49 46 20 72 61 3D 39 OSUB 148:IF ra=9
005970: 20 41 4E 44 20 62 6C 3C 32 20 54 48 45 4E 20 47 AND bl<2 THEN G
005980: 4F 53 55 42 20 31 35 35 0D 0A 31 33 36 20 49 46 OSUB 155..136 IF
005990: 20 70 62 3D 31 32 20 54 48 45 4E 20 31 34 32 20 pb=12 THEN 142
0059A0: 45 4C 53 45 20 49 46 20 70 62 3D 30 20 41 4E 44 ELSE IF pb=0 AND
0059B0: 20 70 61 3D 30 20 4F 52 20 70 62 3D 32 33 20 41 pa=0 OR pb=23 A
0059C0: 4E 44 20 70 61 B0 B2 3D 31 20 54 48 45 4E 20 31 ND pa..=1 THEN 1
0059D0: 34 32 0D 0A 31 33 37 20 73 63 3D 30 3A 73 68 3D 42..137 sc=0:sh=
0059E0: 30 3A 72 61 3D 31 2D 28 70 61 3D 31 29 2A 39 3A 0:ra=1-(pa=1)*9:
0059F0: 46 4F 52 20 69 3D 72 61 20 54 4F 20 72 61 2B 38 FOR i=ra TO ra+8
005A00: 3A 6B 3D 6E 2B 37 0D 0A 31 33 38 20 73 68 3D 31 :k=n+7..138 sh=1
005A10: 3A 72 62 3D 30 2D 28 70 61 3D 30 29 2A 61 65 2D :rb=0-(pa=0)*ae-
005A20: 28 70 61 3D 31 29 2A 61 69 3A 72 61 3D 49 4E 54 (pa=1)*ai:ra=INT
005A30: 28 52 4E 44 2A 37 29 3A 49 46 20 72 61 3C 3D 49 (RND*7):IF ra<=I
005A40: 4E 54 28 72 62 2F 32 29 20 54 48 45 4E 20 31 34 NT(rb/2) THEN 14
005A50: 30 20 45 4C 53 45 20 47 4F 53 55 42 20 34 30 32 0 ELSE GOSUB 402
005A60: 0D 0A 31 33 39 20 49 46 20 70 61 3D 32 20 54 48 ..139 IF pa=2 TH
005A70: 45 4E 20 31 34 30 20 45 4C 53 45 20 73 63 3D 31 EN 140 ELSE sc=1
005A80: 3A 72 3D 72 2D 28 70 61 3D 30 29 3A 73 3D 73 2D :r=r-(pa=0):s=s-
005A90: 28 70 61 3D 31 29 3A 70 78 3D 31 2D 28 70 61 3D (pa=1):px=1-(pa=
005AA0: 31 29 2A 32 30 3A 70 79 3D 70 79 2D 28 70 61 3D 1)*20:py=py-(pa=
005AB0: 30 29 3A 70 7A 3D 70 7A 2D 28 70 61 3D 31 29 3A 0):pz=pz-(pa=1):
005AC0: 47 4F 53 55 42 20 31 40 3C 34 39 3A 47 4F 53 55 GOSUB 1@<49:GOSU
005AD0: 42 20 33 39 37 3A 50 45 4E 20 32 3A 50 52 49 4E B 397:PEN 2:PRIN
005AE0: 54 20 51 24 3B 6E 2D 28 45 58 3D 31 29 2A 39 30 T Q$;n-(EX=1)*90
005AF0: 3B 22 4D 49 4E 22 3A 50 45 4E 20 31 3A 76 28 69 ;"MIN":PEN 1:v(i
005B00: 29 3D 30 3A 69 3D 39 39 3A 47 4F 54 4F 20 31 34 )=0:i=99:GOTO 14
005B10: 31 0D 0A 31 34 30 20 76 28 69 29 3D 30 0D 0A 31 1..140 v(i)=0..1
005B20: 34 31 20 4E 45 58 54 20 69 3A 49 46 20 73 68 3D 41 NEXT i:IF sh=
005B30: 31 20 41 4E 44 20 73 63 3D 31 20 54 48 45 4E 20 1 AND sc=1 THEN
005B40: 73 68 3D 30 3A 73 63 3D 30 3A 70 62 3D 31 32 3A sh=0:sc=0:pb=12:
005B50: 70 61 3D 2D 28 70 61 3D 30 29 3A 47 4F 54 4F 20 pa=-(pa=0):GOTO
005B60: 31 34 35 0D 0A 31 34 32 20 49 46 20 70 62 3D 30 145..142 IF pb=0
005B70: 20 41 4E 44 20 70 61 3D 31 20 4F 52 20 70 62 3D AND pa=1 OR pb=
005B80: 32 33 20 41 4E 44 20 70 61 3D 30 20 54 48 45 4E 23 AND pa=0 THEN
005B90: 20 73 68 3D 30 3A 70 63 3D 30 2D 28 70 62 3D 32 sh=0:pc=0-(pb=2
005BA0: 33 20 41 4E 44 20 70 61 3D 30 29 3A 70 62 3D 30 3 AND pa=0):pb=0
005BB0: 2D 28 70 63 3D 31 29 2A 32 33 3A 47 4F 54 4F 20 -(pc=1)*23:GOTO
005BC0: 31 34 35 0D 0A 31 34 33 20 02 09 49 46 20 70 62 145..143 ..IF pb
005BD0: 3D 30 20 41 4E 44 20 70 61 3D 30 20 4F 52 20 70 =0 AND pa=0 OR p
005BE0: 61 3D 31 20 41 4E 44 20 70 62 3D 32 33 20 54 48 a=1 AND pb=23 TH
005BF0: 45 4E 20 47 4F 53 55 42 20 31 35 30 3A 50 41 3D EN GOSUB 150:PA=
005C00: 30 2D 28 41 47 3E 52 41 29 3A 70 62 3D 31 32 3A 0-(AG>RA):pb=12:
005C10: 47 4F 54 4F 20 31 34 35 0D 0A 31 34 34 20 47 4F GOTO 145..144 GO
005C20: 53 55 42 20 31 35 30 3A 49 46 20 50 41 3D 30 20 SUB 150:IF PA=0
005C30: 41 4E 44 20 41 4B 3E 52 41 20 4F 52 20 50 41 3D AND AK>RA OR PA=
005C40: 31 20 41 4E 44 20 41 47 3E 52 41 20 54 48 45 4E 1 AND AG>RA THEN
005C50: 20 70 62 3D 30 2D 28 70 61 3D 30 29 2A 32 33 0D pb=0-(pa=0)*23.
005C60: 0A 31 34 35 20 47 4F 53 55 42 20 31 34 38 3A 49 .145 GOSUB 148:I
005C70: 46 20 72 61 3D 38 20 54 48 45 4E 20 31 35 32 0D F ra=8 THEN 152.
005C80: 0A 31 34 36 20 47 4F 53 55 42 20 31 35 31 3A 47 .146 GOSUB 151:G
005C90: 4F 53 55 42 20 31 34 39 3A 6E 3D 6E 2B 31 3A 47 OSUB 149:n=n+1:G
005CA0: 4F 54 4F 20 31 35 32 0D 0A 31 34 37 20 47 4F 53 OTO 152..147 GOS
005CB0: 55 42 20 31 34 39 3A 4C 4F 43 41 54 45 20 31 35 UB 149:LOCATE 15
005CC0: 2C 31 3A 50 45 4E 20 32 3A 50 52 5C 54 49 4E 54 ,1:PEN 2:PR\TINT
005CD0: 22 48 41 4C 46 20 54 49 4D 45 22 3A 50 45 4E 20 "HALF TIME":PEN
005CE0: 31 3A 4C 4F 43 41 54 45 20 31 32 2C 38 3A 50 52 1:LOCATE 12,8:PR
005CF0: 49 4E 54 22 28 22 72 22 29 22 3A 4C 4F 43 41 54 INT"("r")":LOCAT
005D00: 45 20 33 32 2C 38 3A 50 52 49 4E 54 22 28 22 73 E 32,8:PRINT"("s
005D10: 22 29 22 3A 47 4F 53 55 42 20 33 39 36 3A 4C 4F ")":GOSUB 396:LO
005D20: 43 41 54 45 20 31 35 2C 31 3A 50 52 49 4E 54 22 CATE 15,1:PRINT"
005D30: 20 20 20 20 20 20 20 20 20 22 3A 52 45 54 55 52 ":RETUR
005D40: 4E 0D 0A 31 34 38 20 72 61 3D 49 4E 54 28 52 4E N..148 ra=INT(RN
005D50: 44 2A 39 39 29 3A 52 45 54 55 52 4E 0D 0A 31 34 D*99):RETURN..14
005D60: 39 20 4C 4F 43 41 54 45 20 31 37 2C 38 3A 50 52 9 LOCATE 17,8:PR
005D70: 49 4E 54 20 72 3A 4C 4F 43 41 54 45 20 33 37 2C INT r:LOCATE 37,
005D80: 38 3A 50 52 49 4E 54 20 73 3A 4C 4F 43 41 54 45 8:PRINT s:LOCATE
005D90: 20 31 39 2C 32 3A 50 52 49 4E 54 20 49 4E 54 28 19,2:PRINT INT(
005DA0: 6E 29 3A 47 4F 53 55 42 20 31 35 31 3A 52 45 54 n):GOSUB 151:RET
005DB0: 55 52 4E 0D 0A 31 35 30 20 72 61 3D 31 2B 49 4E URN..150 ra=1+IN
005DC0: 54 28 52 4E 44 2A 31 30 29 3A 52 45 54 3A 22 55 T(RND*10):RET:"U
005DD0: 52 4E 0D 0A 31 35 31 20 4C 4F 43 41 54 45 20 31 RN..151 LOCATE 1
005DE0: 2C 31 35 3A 50 52 49 4E 54 22 20 20 20 20 20 20 ,15:PRINT"
005DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005E00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005E10: 20 20 22 3A 52 45 54 55 52 4E 0D 0A 31 35 32 20 ":RETURN..152
005E20: 49 46 20 70 61 3D 30 20 54 48 45 4E 20 31 35 38 IF pa=0 THEN 158
005E30: 20 45 4C 53 45 20 47 4F 53 55 42 20 31 35 30 3A ELSE GOSUB 150:
005E40: 72 62 3D 49 4E 54 28 52 4E 44 2A 39 39 29 3A 49 rb=INT(RND*99):I
005E50: 46 20 72 62 3C 33 20 54 48 45 4E 20 31 35 36 0D F rb<3 THEN 156.
005E60: 0A 31 35 33 20 47 4F 54 4F 20 31 33 33 0D 0A 31 .153 GOTO 133..1
005E70: 35 34 20 47 4F 53 55 42 20 31 35 35 3A 47 4F 54 54 GOSUB 155:GOT
005E80: 4F 20 31 35 33 0D 0A 31 35 35 20 62 6C 3D 62 6C O 153..155 bl=bl
005E90: 2B 31 3A 52 45 54 55 52 4E 0D 0A 31 35 36 20 72 +1:RETURN..156 r
005EA0: 61 3D 32 2B 49 4E 54 28 52 4E 44 2A 31 30 29 3A a=2+INT(RND*10):
005EB0: 49 46 20 67 28 72 61 29 3C 31 20 54 48 45 4E 20 IF g(ra)<1 THEN
005EC0: 31 35 36 0D 0A 31 35 37 20 76 28 72 61 29 3D 88 156..157 v(ra)=.
005ED0: BB 76 28 72 61 29 2B 31 3A 49 46 20 76 28 72 61 .v(ra)+1:IF v(ra
005EE0: 29 3D 32 20 54 48 45 4E 20 67 28 72 61 29 3D 67 )=2 THEN g(ra)=g
005EF0: 28 72 61 29 2D 67 28 72 61 29 2A 32 3A 47 4F 54 (ra)-g(ra)*2:GOT
005F00: 4F 20 31 35 33 0D 0A 31 35 38 20 47 4F 53 55 42 O 153..158 GOSUB
005F10: 20 31 35 30 3A 72 62 3D 31 2B 49 4E 54 28 52 4E 150:rb=1+INT(RN
005F20: 44 2A 34 30 29 0D 0A 31 35 39 20 49 46 20 72 62 D*40)..159 IF rb
005F30: 3D 34 30 20 41 4E 44 20 62 6B 3C 31 20 41 4E 44 =40 AND bk<1 AND
005F40: 20 62 6C 3C 32 20 54 48 45 4E 20 33 30 30 20 45 bl<2 THEN 300 E
005F50: 4C 53 45 20 31 35 33 0D 0A 31 36 30 20 47 4F 53 LSE 153..160 GOS
005F60: 55 42 20 31 35 30 3A 61 6B 3D 61 6B 2D 33 3A 47 UB 150:ak=ak-3:G
005F70: 4F 54 4F 20 31 35 33 0D 0A 31 36 31 20 78 33 3D OTO 153..161 x3=
005F80: 31 3A 78 32 3D 31 31 3A 64 31 3D 31 3A 47 4F 53 1:x2=11:d1=1:GOS
005F90: 55 42 20 31 36 37 0D 0A 31 36 32 20 51 24 3D 49 UB 167..162 Q$=I
005FA0: 4E 4B 45 59 24 3A 51 24 3D 55 50 50 45 52 24 28 NKEY$:Q$=UPPER$(
005FB0: 51 24 29 3A 49 46 20 51 24 3D 22 22 20 54 48 45 Q$):IF Q$="" THE
005FC0: 4E 20 31 36 32 0D 0A 31 36 33 20 49 46 20 51 24 N 162..163 IF Q$
005FD0: 3D CD 54 22 55 22 20 54 48 45 4E 20 64 31 3D 64 =.T"U" THEN d1=d
005FE0: 31 2B 28 64 31 3E 78 33 29 3A 49 46 20 64 31 3E 1+(d1>x3):IF d1>
005FF0: 31 31 20 54 48 45 4E 20 47 4F 53 55 42 20 31 36 11 THEN GOSUB 16
006000: 38 20 45 4C 53 45 20 47 4F 53 55 42 20 31 36 37 8 ELSE GOSUB 167
006010: 0D 0A 31 36 34 20 49 46 20 51 24 3D 22 44 22 20 ..164 IF Q$="D"
006020: 54 48 45 4E 20 64 31 3D 64 31 2D 28 64 31 3C 78 THEN d1=d1-(d1<x
006030: 32 29 3A 49 46 20 64 31 3E 31 31 20 54 48 45 4E 2):IF d1>11 THEN
006040: 20 47 4F 53 55 42 20 31 36 38 20 45 4C 53 45 20 GOSUB 168 ELSE
006050: 47 4F 53 55 42 20 31 36 37 0D 0A 31 36 35 20 49 GOSUB 167..165 I
006060: 46 20 41 53 43 28 51 24 29 3D 31 33 20 54 48 45 F ASC(Q$)=13 THE
006070: 4E 20 49 46 20 64 31 3E 31 31 20 54 48 45 4E 20 N IF d1>11 THEN
006080: 31 37 31 20 45 4C 53 45 20 31 36 39 0D 0A 31 36 171 ELSE 169..16
006090: 36 20 47 4F 54 4F 20 31 36 32 0D 0A 31 36 37 20 6 GOTO 162..167
0060A0: 47 4F 53 55 42 20 31 35 31 3A 69 3D 64 31 3A 47 GOSUB 151:i=d1:G
0060B0: 4F 53 55 42 20 32 31 31 3A 4C 4F 43 41 54 45 20 OSUB 211:LOCATE
0060C0: 31 2C 31 35 3A 50 52 49 4E 54 20 64 31 3B 7A 24 1,15:PRINT d1;z$
0060D0: 22 20 22 03 D4 FF FF FF FF 11 9C 04 2C 02 2C 02 " ".........,.,.
0060E0: 6B 02 D7 04 F4 0F 08 14 00 07 01 00 2C 49 2E 4D k...........,I.M
0060F0: 41 4E 41 47 45 52 00 00 00 00 00 00 00 07 00 16 ANAGER..........
006100: 00 08 7C 9E 00 00 00 00 00 00 00 00 00 00 00 00 ..|.............
006110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0061A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0061B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0061C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0061D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0061E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 6E E9 FF .............n..
0061F0: FF FF FF 11 9C 04 DC 01 7B 02 4C 02 9A 04 F6 0F ........{.L.....
006200: 08 4E 0B 15 08 00 16 3B 62 24 28 64 31 29 3B 22 .N.....;b$(d1);"
006210: 20 22 3B 49 4E 54 28 61 28 64 31 29 29 3A 52 45 ";INT(a(d1)):RE
006220: 54 55 52 4E 0D 0A 31 36 38 20 50 45 4E 20 31 3A TURN..168 PEN 1:
006230: 47 4F 53 55 42 20 31 32 34 3A 50 52 49 4E 54 20 GOSUB 124:PRINT
006240: 43 48 52 24 28 32 32 29 2B 43 48 52 24 28 31 29 CHR$(22)+CHR$(1)
006250: 3A 46 4F 52 20 7A 3D 32 30 20 54 4F 20 33 36 3A :FOR z=20 TO 36:
006260: 69 3D 64 31 3A 47 4F 53 55 42 20 32 31 31 3A 4C i=d1:GOSUB 211:L
006270: 4F 43 41 54 45 20 7A 2C 35 2B 64 31 3A 50 52 49 OCATE z,5+d1:PRI
006280: 4E 54 20 43 48 52 24 28 31 34 33 29 3A 4E 45 58 NT CHR$(143):NEX
006290: 54 3A 50 45 4E 20 30 3A 4C 4F 43 41 54 45 20 31 T:PEN 0:LOCATE 1
0062A0: 39 2C 35 2B 64 31 3A 50 52 49 4E 54 20 64 31 3B 9,5+d1:PRINT d1;
0062B0: 7A 24 22 20 22 3B 62 24 28 64 31 29 3B 22 20 22 z$" ";b$(d1);" "
0062C0: 3A 4C 4F 43 41 54 45 20 33 33 2C 35 2B 64 31 3A :LOCATE 33,5+d1:
0062D0: 50 52 49 4E 54 20 49 4E 54 28 61 28 64 31 29 29 PRINT INT(a(d1))
0062E0: 3B 78 24 3A 50 52 49 4E 54 20 43 48 52 24 28 32 ;x$:PRINT CHR$(2
0062F0: 32 29 2B 43 48 52 24 28 30 29 3A 50 45 4E 20 31 2)+CHR$(0):PEN 1
006300: 3A 52 45 54 55 52 4E 63 B0 0D 0A 31 36 39 20 49 :RETURNc...169 I
006310: 46 20 67 28 64 31 29 3C 30 20 54 48 45 4E 20 31 F g(d1)<0 THEN 1
006320: 36 36 20 0D 0A 31 37 30 20 76 28 64 31 29 3D 30 66 ..170 v(d1)=0
006330: 3A 61 64 3D 64 31 3A 64 31 3D 31 32 3A 47 4F 53 :ad=d1:d1=12:GOS
006340: 55 42 20 31 32 34 3A 47 4F 53 55 42 20 31 36 38 UB 124:GOSUB 168
006350: 3A 78 33 3D 31 32 3A 78 32 3D 31 36 3A 47 4F 54 :x3=12:x2=16:GOT
006360: 4F 20 31 36 32 0D 0A 31 37 31 20 49 46 20 70 28 O 162..171 IF p(
006370: 64 31 29 3E 30 20 54 48 45 4E 20 31 36 36 0D 0A d1)>0 THEN 166..
006380: 31 37 32 20 47 4F 53 55 42 20 31 35 31 3A 69 3D 172 GOSUB 151:i=
006390: 64 31 3A 47 4F 53 55 42 20 31 39 35 3A 47 4F 53 d1:GOSUB 195:GOS
0063A0: 55 42 20 31 39 31 3A 47 4F 53 55 42 20 32 31 30 UB 191:GOSUB 210
0063B0: 3A 64 31 3D 30 3A 47 4F 53 55 42 20 31 32 34 3A :d1=0:GOSUB 124:
0063C0: 62 6B 3D 62 6B 2D 28 62 6B 3C 32 29 3A 47 4F 54 bk=bk-(bk<2):GOT
0063D0: 4F 20 31 33 33 0D 0A 31 37 33 20 43 4C 53 3A 4C O 133..173 CLS:L
0063E0: 4F 43 41 54 45 20 31 36 2C 31 3A 50 45 4E 20 32 OCATE 16,1:PEN 2
0063F0: 3A 50 52 49 4E 54 20 79 24 28 31 29 3A 4C 4F 43 :PRINT y$(1):LOC
006400: 41 54 45 20 34 2C 32 3A 50 2C 39 45 4E 20 31 3A ATE 4,2:P,9EN 1:
006410: 50 52 49 4E 54 22 31 53 54 20 54 45 41 4D 22 3A PRINT"1ST TEAM":
006420: 4C 4F 43 41 54 45 20 32 34 2C 32 3A 50 52 49 4E LOCATE 24,2:PRIN
006430: 54 22 52 45 53 45 52 56 45 53 22 3A 4C 4F 43 41 T"RESERVES":LOCA
006440: 54 45 20 36 2C 31 35 3A 50 45 4E 20 32 3A 50 52 TE 6,15:PEN 2:PR
006450: 49 4E 54 22 53 55 42 53 22 3A 4C 4F 43 41 54 45 INT"SUBS":LOCATE
006460: 20 31 35 2C 33 3A 50 45 4E 20 31 3A 50 52 49 4E 15,3:PEN 1:PRIN
006470: 54 22 54 20 20 20 46 22 3A 46 4F 52 20 69 3D 31 T"T F":FOR i=1
006480: 20 54 4F 20 31 31 3A 47 4F 53 55 42 20 32 31 31 TO 11:GOSUB 211
006490: 3A 4C 4F 43 41 54 45 20 31 2C 69 2B 33 3A 50 52 :LOCATE 1,i+3:PR
0064A0: 49 4E 54 20 69 3B 7A 24 22 20 22 3B 62 24 28 69 INT i;z$" ";b$(i
0064B0: 29 3A 4C 4F 43 41 54 45 20 31 34 2C 69 2B 33 3A ):LOCATE 14,i+3:
0064C0: 50 52 49 4E 54 20 49 4E 54 28 61 28 69 29 29 3B PRINT INT(a(i));
0064D0: 78 24 3B 0D 0A 31 37 34 20 50 52 49 4E 54 20 49 x$;..174 PRINT I
0064E0: 4E 54 28 67 28 69 29 29 3A 4E 45 58 54 3A 46 4F NT(g(i)):NEXT:FO
0064F0: 52 20 69 3D 31 32 20 54 4F 20 31 36 3A 47 4F 53 R i=12 TO 16:GOS
006500: 55 42 20 32 31 31 3A 4C 4F 43 41 13 0D 54 45 20 UB 211:LOCA..TE
006510: 31 2C 69 2B 34 3A 50 52 49 4E 54 20 69 3B 7A 24 1,i+4:PRINT i;z$
006520: 22 20 22 3B 62 24 28 69 29 3A 4C 4F 43 41 54 45 " ";b$(i):LOCATE
006530: 20 31 34 2C 69 2B 34 3A 50 52 49 4E 54 20 49 4E 14,i+4:PRINT IN
006540: 54 28 61 28 69 29 29 3B 78 24 3B 49 4E 54 28 67 T(a(i));x$;INT(g
006550: 28 69 29 29 3A 4E 45 58 54 3A 61 64 3D 31 37 3A (i)):NEXT:ad=17:
006560: 47 4F 53 55 42 20 32 30 39 3A 47 4F 53 55 42 20 GOSUB 209:GOSUB
006570: 31 39 30 3A 79 31 3D 31 35 3A 79 32 3D 31 37 3A 190:y1=15:y2=17:
006580: 47 4F 53 55 42 20 32 30 38 3A 47 4F 53 55 42 20 GOSUB 208:GOSUB
006590: 31 39 34 3A 47 4F 53 55 42 20 32 30 37 0D 0A 31 194:GOSUB 207..1
0065A0: 37 35 20 47 4F 53 55 42 20 33 37 36 0D 0A 31 37 75 GOSUB 376..17
0065B0: 36 20 49 46 20 71 24 3D 22 48 22 20 54 48 45 4E 6 IF q$="H" THEN
0065C0: 20 31 31 20 45 4C 53 45 20 49 46 20 71 24 3D 22 11 ELSE IF q$="
0065D0: 49 22 20 54 48 45 4E 20 31 38 31 20 45 4C 53 45 I" THEN 181 ELSE
0065E0: 20 49 46 20 71 24 3D 22 43 22 20 54 48 45 4E 20 IF q$="C" THEN
0065F0: 31 37 37 20 45 4C 53 45 20 31 37 35 0D 0A 31 37 177 ELSE 175..17
006600: 37 20 78 33 3D 33 3A 78 31 3D 31 3A 78 49 AB 32 7 x3=3:x1=1:xI.2
006610: 3D 32 34 3A 69 3D 78 31 3A 47 4F 53 55 42 20 32 =24:i=x1:GOSUB 2
006620: 30 34 3A 47 4F 53 55 42 20 31 39 38 3A 61 64 3D 04:GOSUB 198:ad=
006630: 69 3A 78 31 3D 31 2D 28 67 28 61 64 29 3C 30 20 i:x1=1-(g(ad)<0
006640: 4F 52 20 70 28 61 64 29 3E 30 20 4F 52 20 61 28 OR p(ad)>0 OR a(
006650: 61 64 29 3D 30 20 4F 52 20 6E 28 31 2C 61 64 29 ad)=0 OR n(1,ad)
006660: 3E 61 62 20 4F 52 20 6E 28 31 2C 61 64 29 3D 61 >ab OR n(1,ad)=a
006670: 62 20 41 4E 44 20 6E 28 32 2C 61 64 29 3E 68 28 b AND n(2,ad)>h(
006680: 6E 28 31 2C 61 64 29 29 29 2A 31 36 0D 0A 31 37 n(1,ad)))*16..17
006690: 38 20 78 33 3D 31 3A 69 3D 78 31 3A 47 4F 53 55 8 x3=1:i=x1:GOSU
0066A0: 42 20 32 30 32 3A 47 4F 53 55 42 20 31 39 38 3A B 202:GOSUB 198:
0066B0: 49 46 20 61 28 69 29 3D 30 20 4F 52 20 67 28 69 IF a(i)=0 OR g(i
0066C0: 29 3C 30 20 4F 52 20 70 28 69 29 3E 30 20 4F 52 )<0 OR p(i)>0 OR
0066D0: 20 6E 28 31 2C 69 29 3E 61 62 20 4F 52 20 6E 28 n(1,i)>ab OR n(
0066E0: 31 2C 69 29 3D 61 62 20 41 4E 44 20 6E 28 32 2C 1,i)=ab AND n(2,
0066F0: 69 29 3E 68 28 6E 28 31 2C 69 29 29 20 54 48 45 i)>h(n(1,i)) THE
006700: 4E 20 31 37 39 20 45 4C 53 45 20 31 38 30 0D AA N 179 ELSE 180..
006710: FB 0A 31 37 39 20 47 4F 53 55 42 20 32 30 37 3A ..179 GOSUB 207:
006720: 47 4F 54 4F 20 31 37 35 0D 0A 31 38 30 20 47 4F GOTO 175..180 GO
006730: 53 55 42 20 31 39 35 3A 47 4F 53 55 42 20 32 30 SUB 195:GOSUB 20
006740: 36 3A 69 3D 61 64 3A 47 4F 53 55 42 20 32 30 36 6:i=ad:GOSUB 206
006750: 3A 47 4F 53 55 42 20 31 39 31 3A 47 4F 53 55 42 :GOSUB 191:GOSUB
006760: 20 31 39 34 3A 47 4F 53 55 42 20 32 30 37 3A 47 194:GOSUB 207:G
006770: 4F 54 4F 20 31 37 35 0D 0A 31 38 31 20 4C 4F 43 OTO 175..181 LOC
006780: 41 54 45 20 32 34 2C 32 3A 50 52 49 4E 54 22 20 ATE 24,2:PRINT"
006790: 20 20 20 20 20 20 20 22 3A 4C 4F 43 41 54 45 20 ":LOCATE
0067A0: 32 32 2C 33 3A 50 52 49 4E 54 22 43 20 4D 20 43 22,3:PRINT"C M C
0067B0: 41 50 20 41 47 45 20 41 56 41 20 20 22 3A 46 4F AP AGE AVA ":FO
0067C0: 52 20 69 3D 31 20 54 4F 20 31 36 3A 4C 4F 43 41 R i=1 TO 16:LOCA
0067D0: 54 45 20 32 31 2C 69 2B 33 2D 28 69 3E 31 31 29 TE 21,i+3-(i>11)
0067E0: 3A 50 52 49 4E 54 20 49 4E 54 28 64 28 69 29 29 :PRINT INT(d(i))
0067F0: 3A 4C 4F 43 41 54 45 20 32 33 2C 69 2B 33 2D 28 :LOCATE 23,i+3-(
006800: 69 3E 31 31 29 3A 50 52 49 4E 54 20 49 4E 54 28 i>11):PRINT INT(
006810: 66 E3 D1 28 69 29 29 3A 4C 4F 43 41 54 45 20 32 f..(i)):LOCATE 2
006820: 35 2C 69 2B 33 2D 28 69 3E 31 31 29 3A 50 52 49 5,i+3-(i>11):PRI
006830: 4E 54 20 49 4E 54 28 63 28 69 29 29 22 20 22 3A NT INT(c(i))" ":
006840: 4C 4F 43 41 54 45 20 32 39 2C 69 2B 33 2D 28 69 LOCATE 29,i+3-(i
006850: 3E 31 31 29 3A 50 52 49 4E 54 20 49 4E 54 28 62 >11):PRINT INT(b
006860: 28 69 29 29 3A 4C 4F 43 41 54 45 20 33 33 2C 69 (i)):LOCATE 33,i
006870: 2B 33 2D 28 69 3E 31 31 29 0D 0A 31 38 32 20 50 +3-(i>11)..182 P
006880: 52 49 4E 54 20 65 24 28 6E 28 31 2C 69 29 29 3B RINT e$(n(1,i));
006890: 22 20 22 3B 49 4E 54 28 6E 28 32 2C 69 29 29 3A " ";INT(n(2,i)):
0068A0: 4E 45 58 54 3A 4C 4F 43 41 54 45 20 34 2C 32 32 NEXT:LOCATE 4,22
0068B0: 3A 50 45 4E 20 32 3A 50 52 49 4E 54 22 4D 2D 4D :PEN 2:PRINT"M-M
0068C0: 45 4E 55 20 48 2D 48 4F 50 45 46 55 4C 4C 53 20 ENU H-HOPEFULLS
0068D0: 49 2D 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 53 2D I-INFORMATION S-
0068E0: 53 51 55 41 44 22 3A 50 45 4E 20 31 0D 0A 31 38 SQUAD":PEN 1..18
0068F0: 33 20 47 4F 53 55 42 20 33 37 36 0D 0A 31 38 34 3 GOSUB 376..184
006900: 20 49 46 20 71 24 3D 22 49 22 20 54 48 45 4E 20 IF q$="I" THEN
006910: 31 38 35 0E AB 20 45 4C 53 45 20 49 46 20 71 24 185.. ELSE IF q$
006920: 3D 22 53 22 20 54 48 45 4E 20 31 37 33 20 45 4C ="S" THEN 173 EL
006930: 53 45 20 49 46 20 71 24 3D 22 48 22 20 54 48 45 SE IF q$="H" THE
006940: 4E 20 31 31 20 45 4C 53 45 20 31 38 33 0D 0A 31 N 11 ELSE 183..1
006950: 38 35 20 43 4C 53 3A 4C 4F 43 41 54 45 20 31 36 85 CLS:LOCATE 16
006960: 2C 31 3A 50 45 4E 20 32 3A 50 52 49 4E 54 20 79 ,1:PEN 2:PRINT y
006970: 24 28 31 29 3A 4C 4F 43 41 54 45 20 32 2C 32 3A $(1):LOCATE 2,2:
006980: 50 45 4E 20 31 3A 50 52 49 4E 54 22 52 45 53 45 PEN 1:PRINT"RESE
006990: 52 56 45 53 22 3A 61 64 3D 30 3A 47 4F 53 55 42 RVES":ad=0:GOSUB
0069A0: 20 32 30 39 3A 4C 4F 43 41 54 45 20 32 33 2C 33 209:LOCATE 23,3
0069B0: 3A 50 52 49 4E 54 22 43 20 4D 20 43 41 50 20 41 :PRINT"C M CAP A
0069C0: 47 45 20 41 56 41 22 3A 46 4F 52 20 69 3D 31 37 GE AVA":FOR i=17
0069D0: 20 54 4F 20 32 32 3A 4C 4F 43 41 54 45 20 32 32 TO 22:LOCATE 22
0069E0: 2C 69 2D 31 33 3A 50 52 49 4E 54 20 49 4E 54 28 ,i-13:PRINT INT(
0069F0: 64 28 69 29 29 3A 4C 4F 43 41 54 45 20 32 34 2C d(i)):LOCATE 24,
006A00: 69 2D 31 33 3A 50 52 49 4E 54 20 49 4E 54 28 66 i-13:PRINT INT(f
006A10: 28 69 29 29 3A BD D8 FF FF FF FF 11 9C 04 2C 02 (i)):.........,.
006A20: 7B 02 6C 02 DA 04 F4 0F 08 14 00 07 01 00 2C 49 {.l...........,I
006A30: 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 00 08 .MANAGER........
006A40: 00 16 00 08 7C 9E 00 00 00 00 00 00 00 00 00 00 ....|...........
006A50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006B00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006B10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006B20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 B3 ................
006B30: 25 FF FF FF FF 11 9C 04 2C 02 7B 02 4C 02 99 04 %.......,.{.L...
006B40: F6 0F 08 4D 0B 15 08 00 16 4C 4F 43 41 54 45 20 ...M.....LOCATE
006B50: 32 36 2C 69 2D 31 33 3A 50 52 49 4E 54 20 63 28 26,i-13:PRINT c(
006B60: 69 29 3A 4C 4F 43 41 54 45 20 33 30 2C 69 2D 31 i):LOCATE 30,i-1
006B70: 33 3A 50 52 49 4E 54 20 49 4E 54 28 62 28 69 29 3:PRINT INT(b(i)
006B80: 29 0D 0A 31 38 36 20 4C 4F 43 41 54 45 20 33 34 )..186 LOCATE 34
006B90: 2C 69 2D 31 33 3A 50 52 49 4E 54 20 65 24 28 6E ,i-13:PRINT e$(n
006BA0: 28 31 2C 69 29 29 3B 49 4E 54 28 6E 28 32 2C 69 (1,i));INT(n(2,i
006BB0: 29 29 3A 4E 45 58 54 3A 47 4F 53 55 42 20 31 39 )):NEXT:GOSUB 19
006BC0: 30 3A 46 4F 52 20 69 3D 32 33 20 54 4F 20 32 34 0:FOR i=23 TO 24
006BD0: 3A 4C 4F 43 41 54 45 20 32 32 2C 69 2D 31 32 3A :LOCATE 22,i-12:
006BE0: 50 52 49 4E 54 20 64 28 69 29 3A 4C 4F 43 41 54 PRINT d(i):LOCAT
006BF0: 45 20 32 34 2C 69 2D 31 32 3A 50 52 49 4E 54 20 E 24,i-12:PRINT
006C00: 49 4E 54 28 66 28 69 29 29 3A 4C 4F 43 41 54 45 INT(f(i)):LOCATE
006C10: 20 32 36 2C 69 2D 31 32 3A 50 52 49 4E 54 20 63 26,i-12:PRINT c
006C20: 28 69 29 3A 4C 4F 43 41 54 45 20 33 30 2C 69 2D (i):LOCATE 30,i-
006C30: 31 32 3A 50 52 49 4E 54 20 49 4E 54 28 62 28 69 12:PRINT INT(b(i
006C40: 29 29 3B 65 24 28 6E 28 31 A3 52 2C 69 29 29 3B ));e$(n(1£R,i));
006C50: 49 4E 54 28 6E 28 32 2C 69 29 29 3A 4E 45 58 54 INT(n(2,i)):NEXT
006C60: 3A 79 31 3D 31 35 3A 79 32 3D 39 3A 47 4F 53 55 :y1=15:y2=9:GOSU
006C70: 42 20 32 30 38 3A 47 4F 53 55 42 20 31 39 34 0D B 208:GOSUB 194.
006C80: 0A 31 38 37 20 61 64 3D 31 37 3A 4C 4F 43 41 54 .187 ad=17:LOCAT
006C90: 45 20 38 2C 32 33 3A 50 45 4E 20 32 3A 50 52 49 E 8,23:PEN 2:PRI
006CA0: 4E 54 22 4D 2D 4D 45 4E 55 20 48 2D 48 4F 50 45 NT"M-MENU H-HOPE
006CB0: 46 55 4C 4C 53 20 53 2D 53 51 55 41 44 22 3A 50 FULLS S-SQUAD":P
006CC0: 45 4E 20 31 0D 0A 31 38 38 20 47 4F 53 55 42 20 EN 1..188 GOSUB
006CD0: 33 37 36 0D 0A 31 38 39 20 49 46 20 71 24 3D 22 376..189 IF q$="
006CE0: 53 22 20 54 48 45 4E 20 31 37 33 20 45 4C 53 45 S" THEN 173 ELSE
006CF0: 20 49 46 20 71 24 3D 22 48 22 20 54 48 45 4E 20 IF q$="H" THEN
006D00: 31 31 20 45 4C 53 45 20 31 38 38 0D 0A 31 39 30 11 ELSE 188..190
006D10: 20 46 4F 52 20 69 3D 32 33 20 54 4F 20 32 34 3A FOR i=23 TO 24:
006D20: 47 4F 53 55 42 20 32 31 31 3A 4C 4F 43 41 54 45 GOSUB 211:LOCATE
006D30: 20 61 64 2B 33 2C 69 2D 31 32 3A 50 52 49 4E 54 ad+3,i-12:PRINT
006D40: 20 69 3B 7A 24 22 20 22 3B 62 24 DE 1A 28 69 29 i;z$" ";b$..(i)
006D50: 3A 4C 4F 43 41 54 45 20 61 64 2B 31 36 2C 69 2D :LOCATE ad+16,i-
006D60: 31 32 3A 50 52 49 4E 54 20 49 4E 54 28 61 28 69 12:PRINT INT(a(i
006D70: 29 29 3B 78 24 3B 49 4E 54 28 41 42 53 28 67 28 ));x$;INT(ABS(g(
006D80: 69 29 29 29 3A 4E 45 58 54 3A 52 45 54 55 52 4E i))):NEXT:RETURN
006D90: 0D 0A 31 39 31 20 61 65 3D 2D 28 65 28 31 29 3D ..191 ae=-(e(1)=
006DA0: 31 29 2A 28 28 63 28 31 29 2F 38 29 2B 67 28 31 1)*((c(1)/8)+g(1
006DB0: 29 2B 66 28 31 29 29 3A 61 66 3D 30 3A 61 67 3D )+f(1)):af=0:ag=
006DC0: 30 3A 61 68 3D 30 3A 46 4F 52 20 6D 3D 32 20 54 0:ah=0:FOR m=2 T
006DD0: 4F 20 31 31 3A 61 66 3D 61 66 2D 28 65 28 6D 29 O 11:af=af-(e(m)
006DE0: 3D 32 29 2A 28 28 63 28 6D 29 2F 38 29 2B 67 28 =2)*((c(m)/8)+g(
006DF0: 6D 29 2B 66 28 6D 29 29 3A 61 67 3D 61 67 2D 28 m)+f(m)):ag=ag-(
006E00: 65 28 6D 29 3D 33 29 2A 28 28 63 28 6D 29 2F 38 e(m)=3)*((c(m)/8
006E10: 29 2B 67 28 6D 29 2B 66 28 6D 29 29 3A 61 68 3D )+g(m)+f(m)):ah=
006E20: 61 68 2D 28 65 28 6D 29 3D 34 29 2A 28 28 63 28 ah-(e(m)=4)*((c(
006E30: 6D 29 2F 38 29 2B 67 28 6D 29 2B 66 28 6D 29 29 m)/8)+g(m)+f(m))
006E40: 3A 4E 45 58 54 0D 0A 31 39 32 20 61 65 E6 70 3D :NEXT..192 ae.p=
006E50: 49 4E 54 28 61 65 2F 32 2E 39 29 3A 61 66 3D 61 INT(ae/2.9):af=a
006E60: 66 2F 32 2E 39 3A 61 67 3D 61 67 2F 32 2E 39 3A f/2.9:ag=ag/2.9:
006E70: 61 68 3D 61 68 2F 32 2E 39 0D 0A 31 39 33 20 61 ah=ah/2.9..193 a
006E80: 66 3D 49 4E 54 28 61 66 2F 33 2E 39 29 3A 61 67 f=INT(af/3.9):ag
006E90: 3D 49 4E 54 28 61 67 2F 32 2E 39 29 3A 61 68 3D =INT(ag/2.9):ah=
006EA0: 49 4E 54 28 61 68 2F 32 2E 39 29 3A 61 65 3D 61 INT(ah/2.9):ae=a
006EB0: 65 2D 28 28 61 65 2D 39 29 2F 32 29 2A 28 31 2B e-((ae-9)/2)*(1+
006EC0: 53 47 4E 28 61 65 2D 39 2E 30 35 29 29 3A 61 67 SGN(ae-9.05)):ag
006ED0: 3D 61 67 2D 28 28 61 67 2D 39 29 2F 32 29 2A 28 =ag-((ag-9)/2)*(
006EE0: 31 2B 53 47 4E 28 61 67 2D 39 2E 30 35 29 29 3A 1+SGN(ag-9.05)):
006EF0: 61 66 3D 61 66 2D 28 28 61 66 2D 39 29 2F 32 29 af=af-((af-9)/2)
006F00: 2A 28 31 2B 53 47 4E 28 61 66 2D 39 2E 30 35 29 *(1+SGN(af-9.05)
006F10: 29 3A 61 68 3D 61 68 2D 28 28 61 68 2D 39 29 2F ):ah=ah-((ah-9)/
006F20: 32 29 2A 28 31 2B 53 47 4E 28 61 68 2D 39 2E 30 2)*(1+SGN(ah-9.0
006F30: 35 29 29 3A 52 45 54 55 52 4E 0D 0A 31 39 34 20 5)):RETURN..194
006F40: 4C 4F 43 41 54 45 20 79 32 2B 32 30 2C 79 31 9D LOCATE y2+20,y1.
006F50: CB 2B 31 3A 50 52 49 4E 54 20 61 65 3A 4C 4F 43 .+1:PRINT ae:LOC
006F60: 41 54 45 20 79 32 2B 32 30 2C 79 31 2B 32 3A 50 ATE y2+20,y1+2:P
006F70: 52 49 4E 54 20 61 66 3A 4C 4F 43 41 54 45 20 79 RINT af:LOCATE y
006F80: 32 2B 32 30 2C 79 31 2B 33 3A 50 52 49 4E 54 20 2+20,y1+3:PRINT
006F90: 61 67 3A 4C 4F 43 41 54 45 20 79 32 2B 32 30 2C ag:LOCATE y2+20,
006FA0: 79 31 2B 34 3A 50 52 49 4E 54 20 61 68 3A 52 45 y1+4:PRINT ah:RE
006FB0: 54 55 52 4E 0D 0A 31 39 35 20 44 31 3D 61 28 61 TURN..195 D1=a(a
006FC0: 64 29 3A 44 32 3D 62 28 61 64 29 3A 44 33 3D 63 d):D2=b(ad):D3=c
006FD0: 28 61 64 29 3A 44 34 3D 64 28 61 64 29 3A 44 35 (ad):D4=d(ad):D5
006FE0: 3D 65 28 61 64 29 3A 44 36 3D 66 28 61 64 29 3A =e(ad):D6=f(ad):
006FF0: 44 37 3D 67 28 61 64 29 3A 44 38 3D 6F 28 61 64 D7=g(ad):D8=o(ad
007000: 29 3A 44 39 3D 70 28 61 64 29 3A 66 31 3D 6E 28 ):D9=p(ad):f1=n(
007010: 31 2C 61 64 29 3A 66 32 3D 6E 28 32 2C 61 64 29 1,ad):f2=n(2,ad)
007020: 3A 7A 24 3D 62 24 28 61 64 29 0D 0A 31 39 36 20 :z$=b$(ad)..196
007030: 61 28 61 64 29 3D 61 28 69 29 3A 62 28 61 64 29 a(ad)=a(i):b(ad)
007040: 3D 62 28 69 29 3A 63 28 61 64 29 3D 63 28 69 29 =b(i):c(ad)=c(i)
007050: 3A 5A A3 64 28 61 64 29 3D 64 28 69 29 3A 65 28 :Z£d(ad)=d(i):e(
007060: 61 64 29 3D 65 28 69 29 3A 66 28 61 64 29 3D 66 ad)=e(i):f(ad)=f
007070: 28 69 29 3A 67 28 61 64 29 3D 67 28 69 29 3A 6F (i):g(ad)=g(i):o
007080: 28 61 64 29 3D 6F 28 69 29 3A 70 28 61 64 29 3D (ad)=o(i):p(ad)=
007090: 70 28 69 29 3A 6E 28 31 2C 61 64 29 3D 6E 28 31 p(i):n(1,ad)=n(1
0070A0: 2C 69 29 3A 6E 28 32 2C 61 64 29 3D 6E 28 32 2C ,i):n(2,ad)=n(2,
0070B0: 69 29 3A 62 24 28 61 64 29 3D 62 24 28 69 29 0D i):b$(ad)=b$(i).
0070C0: 0A 31 39 37 20 61 28 69 29 3D 44 31 3A 62 28 69 .197 a(i)=D1:b(i
0070D0: 29 3D 44 32 3A 63 28 69 29 3D 44 33 3A 64 28 69 )=D2:c(i)=D3:d(i
0070E0: 29 3D 44 34 3A 65 28 69 29 3D 44 35 3A 66 28 69 )=D4:e(i)=D5:f(i
0070F0: 29 3D 44 36 3A 67 28 69 29 3D 44 37 3A 6F 28 69 )=D6:g(i)=D7:o(i
007100: 29 3D 44 38 3A 70 28 69 29 3D 44 39 3A 6E 28 31 )=D8:p(i)=D9:n(1
007110: 2C 69 29 3D 66 31 3A 6E 28 32 2C 69 29 3D 66 32 ,i)=f1:n(2,i)=f2
007120: 3A 62 24 28 69 29 3D 7A 24 3A 52 45 54 55 52 4E :b$(i)=z$:RETURN
007130: 0D 0A 31 39 38 20 51 24 3D 49 4E 4B 45 59 24 3A ..198 Q$=INKEY$:
007140: 49 46 20 51 24 3D 22 22 20 54 48 45 4E 20 31 39 IF Q$="" THEN 19
007150: 38 20 45 C6 21 4C 53 45 20 51 24 3D 55 50 50 45 8 E.!LSE Q$=UPPE
007160: 52 24 28 51 24 29 0D 0A 31 39 39 20 49 46 20 51 R$(Q$)..199 IF Q
007170: 24 3D 22 55 22 20 54 48 45 4E 20 69 3D 69 2B 28 $="U" THEN i=i+(
007180: 69 3E 78 31 29 20 45 4C 53 45 20 49 46 20 51 24 i>x1) ELSE IF Q$
007190: 3D 22 44 22 20 54 48 45 4E 20 69 3D 69 2D 28 69 ="D" THEN i=i-(i
0071A0: 3C 78 32 29 0D 0A 32 30 30 20 49 46 20 41 53 43 <x2)..200 IF ASC
0071B0: 28 51 24 29 3D 31 33 20 54 48 45 4E 20 50 52 49 (Q$)=13 THEN PRI
0071C0: 4E 54 20 43 48 52 24 28 37 29 3A 52 45 54 55 52 NT CHR$(7):RETUR
0071D0: 4E 0D 0A 32 30 31 20 4F 4E 20 78 33 20 47 4F 53 N..201 ON x3 GOS
0071E0: 55 42 20 32 30 32 2C 32 30 33 2C 32 30 34 2C 32 UB 202,203,204,2
0071F0: 30 35 3A 47 4F 54 4F 20 31 39 38 0D 0A 32 30 32 05:GOTO 198..202
007200: 20 4C 4F 43 41 54 45 20 31 2C 32 33 3A 50 52 49 LOCATE 1,23:PRI
007210: 4E 54 22 50 4C 41 59 45 52 53 20 4E 45 57 20 50 NT"PLAYERS NEW P
007220: 4F 53 49 54 49 4F 4E 20 20 20 20 20 20 20 20 20 OSITION
007230: 20 20 20 20 20 20 20 20 20 20 20 22 3A 4C 4F 43 ":LOC
007240: 41 54 45 20 32 37 2C 32 33 3A 50 52 49 4E 54 20 ATE 27,23:PRINT
007250: 69 3A 52 45 54 5D A4 55 52 4E 0D 0A 32 30 33 20 i:RET].URN..203
007260: 4C 4F 43 41 54 45 20 31 2C 32 31 3A 50 52 49 4E LOCATE 1,21:PRIN
007270: 54 22 57 48 49 43 48 20 4D 4F 4E 54 48 3A 20 20 T"WHICH MONTH:
007280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007290: 20 20 22 3A 4C 4F 43 41 54 45 20 31 33 2C 32 31 ":LOCATE 13,21
0072A0: 3A 50 52 49 4E 54 20 65 24 28 69 29 3A 52 45 54 :PRINT e$(i):RET
0072B0: 55 52 4E 0D 0A 32 30 34 20 4C 4F 43 41 54 45 20 URN..204 LOCATE
0072C0: 31 2C 32 33 3A 50 52 49 4E 54 22 57 48 49 43 48 1,23:PRINT"WHICH
0072D0: 20 50 4C 41 59 45 52 20 54 4F 20 42 45 20 4D 4F PLAYER TO BE MO
0072E0: 56 45 44 20 20 20 20 20 20 20 20 20 20 20 20 20 VED
0072F0: 20 20 20 22 3A 4C 4F 43 41 54 45 20 32 37 2C 32 ":LOCATE 27,2
007300: 33 3A 50 52 49 4E 54 20 69 3A 52 45 54 55 52 4E 3:PRINT i:RETURN
007310: 0D 0A 32 30 35 20 4C 4F 43 41 54 45 20 31 2C 32 ..205 LOCATE 1,2
007320: 31 3A 50 52 49 4E 54 22 57 48 49 43 48 20 54 45 1:PRINT"WHICH TE
007330: 41 4D 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 AM:
007340: 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 4C 4F ":LO
007350: 43 41 54 45 20 31 32 75 4A FF FF FF FF 11 9C 04 CATE 12uJ.......
007360: DC 01 7B 02 6D 02 DA 04 F4 0F 08 14 00 07 01 00 ..{.m...........
007370: 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 ,I.MANAGER......
007380: 00 09 00 16 00 08 7C 9E 00 00 00 00 00 00 00 00 ......|.........
007390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007400: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007410: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007420: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007430: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007440: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007450: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007470: 00 54 2E FF FF FF FF 11 9C 04 2C 02 7B 02 4D 02 .T........,.{.M.
007480: 9A 04 F6 0F 08 51 0B 15 08 00 16 2C 32 31 3A 50 .....Q.....,21:P
007490: 52 49 4E 54 20 61 24 28 69 29 3B 41 42 53 28 6B RINT a$(i);ABS(k
0074A0: 28 69 29 29 3A 52 45 54 55 52 4E 0D 0A 32 30 36 (i)):RETURN..206
0074B0: 20 69 62 3D 32 2D 28 69 3C 31 32 29 2A 69 2D 28 ib=2-(i<12)*i-(
0074C0: 69 3E 31 31 20 41 4E 44 20 69 3C 31 37 29 2A 28 i>11 AND i<17)*(
0074D0: 69 2B 31 29 2D 28 69 3E 31 36 20 41 4E 44 20 69 i+1)-(i>16 AND i
0074E0: 3C 32 33 29 2A 28 69 2D 31 36 29 2D 28 69 3E 32 <23)*(i-16)-(i>2
0074F0: 32 29 2A 28 69 2D 31 35 29 3A 69 63 3D 32 2D 28 2)*(i-15):ic=2-(
007500: 69 3E 31 36 29 2A 31 39 3A 47 4F 53 55 42 20 32 i>16)*19:GOSUB 2
007510: 31 31 3A 4C 4F 43 41 54 45 20 69 63 2D 31 2C 69 11:LOCATE ic-1,i
007520: 62 2B 31 3A 50 52 49 4E 54 20 69 3B 7A 24 3B 22 b+1:PRINT i;z$;"
007530: 20 22 3B 62 24 28 69 29 3B 22 20 20 20 22 3A 4C ";b$(i);" ":L
007540: 4F 43 41 54 45 20 69 63 2B 31 32 2C 69 62 2B 31 OCATE ic+12,ib+1
007550: 3A 50 52 49 4E 54 20 49 4E 54 28 61 28 69 29 29 :PRINT INT(a(i))
007560: 3B 78 24 3B 49 4E 54 28 41 42 53 28 67 28 69 29 ;x$;INT(ABS(g(i)
007570: 29 29 3A 52 45 54 55 52 4E 0D 0A 32 30 37 20 4C )):RETURN..207 L
007580: 4F 43 41 54 45 20 31 2C 32 33 3A B6 BF 50 45 4E OCATE 1,23:..PEN
007590: 20 32 3A 50 52 49 4E 54 22 4D 2D 4D 45 4E 55 20 2:PRINT"M-MENU
0075A0: 43 2D 43 48 41 4E 47 45 20 48 2D 48 4F 50 45 46 C-CHANGE H-HOPEF
0075B0: 55 4C 4C 53 20 49 2D 49 4E 46 4F 52 4D 2F 49 4F ULLS I-INFORM/IO
0075C0: 4E 22 3A 50 45 4E 20 31 3A 52 45 54 55 52 4E 0D N":PEN 1:RETURN.
0075D0: 0A 32 30 38 20 4C 4F 43 41 54 45 20 79 32 2B 34 .208 LOCATE y2+4
0075E0: 2C 79 31 2B 31 3A 50 52 49 4E 54 22 47 4F 41 4C ,y1+1:PRINT"GOAL
0075F0: 4B 45 45 50 45 52 22 3A 4C 4F 43 41 54 45 20 79 KEEPER":LOCATE y
007600: 32 2B 34 2C 79 31 2B 32 3A 50 52 49 4E 54 22 44 2+4,y1+2:PRINT"D
007610: 45 46 45 4E 43 45 22 3A 4C 4F 43 41 54 45 20 79 EFENCE":LOCATE y
007620: 32 2B 34 2C 79 31 2B 33 3A 50 52 49 4E 54 22 4D 2+4,y1+3:PRINT"M
007630: 49 44 46 49 45 4C 44 22 3A 4C 4F 43 41 54 45 20 IDFIELD":LOCATE
007640: 79 32 2B 34 2C 79 31 2B 34 3A 50 52 49 4E 54 22 y2+4,y1+4:PRINT"
007650: 41 54 54 41 43 4B 22 3A 52 45 54 55 52 4E 0D 0A ATTACK":RETURN..
007660: 32 30 39 20 4C 4F 43 41 54 45 20 61 64 2B 31 37 209 LOCATE ad+17
007670: 2C 33 3A 50 52 49 4E 54 22 54 20 20 20 46 22 3A ,3:PRINT"T F":
007680: 46 4F 52 20 69 3D 31 37 20 54 4F 20 32 9F A1 32 FOR i=17 TO 2..2
007690: 3A 47 4F 53 55 42 20 32 31 31 3A 4C 4F 43 41 54 :GOSUB 211:LOCAT
0076A0: 45 20 61 64 2B 33 2C 69 2D 31 33 3A 50 52 49 4E E ad+3,i-13:PRIN
0076B0: 54 20 69 3B 7A 24 22 20 22 3B 62 24 28 69 29 3A T i;z$" ";b$(i):
0076C0: 4C 4F 43 41 54 45 20 61 64 2B 31 36 2C 69 2D 31 LOCATE ad+16,i-1
0076D0: 33 3A 50 52 49 4E 54 20 49 4E 54 28 61 28 69 29 3:PRINT INT(a(i)
0076E0: 29 3B 78 24 3B 49 4E 54 28 41 42 53 28 67 28 69 );x$;INT(ABS(g(i
0076F0: 29 29 29 3A 4E 45 58 54 3A 52 45 54 55 52 4E 0D ))):NEXT:RETURN.
007700: 0A 32 31 30 20 61 66 3D 61 66 2D 28 61 6D 3D 31 .210 af=af-(am=1
007710: 29 2A 32 3A 61 67 3D 61 67 2D 28 61 6D 3D 31 29 )*2:ag=ag-(am=1)
007720: 2A 32 3A 52 45 54 55 52 4E 0D 0A 32 31 31 20 49 *2:RETURN..211 I
007730: 46 20 70 28 69 29 3E 30 20 54 48 45 4E 20 78 24 F p(i)>0 THEN x$
007740: 3D 22 49 22 3A 47 4F 54 4F 20 32 31 32 20 45 4C ="I":GOTO 212 EL
007750: 53 45 20 49 46 20 67 28 69 29 3C 30 20 54 48 45 SE IF g(i)<0 THE
007760: 4E 20 78 24 3D 22 53 22 3A 47 4F 54 4F 20 32 31 N x$="S":GOTO 21
007770: 32 20 45 4C 53 45 20 49 46 20 61 28 69 29 3D 30 2 ELSE IF a(i)=0
007780: 20 54 48 45 4E 20 78 24 3D 22 52 22 3A 47 4F 4A THEN x$="R":GOJ
007790: 50 54 4F 20 32 31 32 20 45 4C 53 45 20 49 46 20 PTO 212 ELSE IF
0077A0: 68 28 61 62 29 3D 31 20 4F 52 20 61 62 3D 6E 28 h(ab)=1 OR ab=n(
0077B0: 31 2C 69 29 20 41 4E 44 20 61 63 3C 6E 28 32 2C 1,i) AND ac<n(2,
0077C0: 69 29 20 54 48 45 4E 20 78 24 3D 22 41 22 3A 47 i) THEN x$="A":G
0077D0: 4F 54 4F 20 32 31 32 20 45 4C 53 45 20 78 24 3D OTO 212 ELSE x$=
0077E0: 22 20 22 0D 0A 32 31 32 20 49 46 20 65 28 69 29 " "..212 IF e(i)
0077F0: 3D 31 20 54 48 45 4E 20 32 31 33 20 45 4C 53 45 =1 THEN 213 ELSE
007800: 20 49 46 20 65 28 69 29 3D 32 20 54 48 45 4E 20 IF e(i)=2 THEN
007810: 32 31 34 20 45 4C 53 45 20 49 46 20 65 28 69 29 214 ELSE IF e(i)
007820: 3D 33 20 54 48 45 4E 20 32 31 35 20 45 4C 53 45 =3 THEN 215 ELSE
007830: 20 32 31 36 0D 0A 32 31 33 20 7A 24 3D 22 47 22 216..213 z$="G"
007840: 3A 52 45 54 55 52 4E 0D 0A 32 31 34 20 7A 24 3D :RETURN..214 z$=
007850: 22 44 22 3A 52 45 54 55 52 4E 0D 0A 32 31 35 20 "D":RETURN..215
007860: 7A 24 3D 22 4D 22 3A 52 45 54 55 52 4E 0D 0A 32 z$="M":RETURN..2
007870: 31 36 20 7A 24 3D 22 41 22 3A 52 45 54 55 52 4E 16 z$="A":RETURN
007880: 0D 0A 32 31 37 20 47 4F 53 55 42 20 32 38 32 3A ..217 GOSUB 282:
007890: 46 87 1F 4F 52 20 69 3D 31 20 54 4F 20 34 30 3A F..OR i=1 TO 40:
0078A0: 62 28 69 29 3D 62 28 69 29 2B 31 3A 61 28 69 29 b(i)=b(i)+1:a(i)
0078B0: 3D 61 28 69 29 2D 28 62 28 69 29 3C 32 39 29 2A =a(i)-(b(i)<29)*
0078C0: 30 2E 34 2B 28 62 28 69 29 3E 32 38 29 2A 30 2E 0.4+(b(i)>28)*0.
0078D0: 38 3A 61 28 69 29 3D 61 28 69 29 2B 28 61 28 69 8:a(i)=a(i)+(a(i
0078E0: 29 3E 39 2E 39 29 2A 28 61 28 69 29 2D 39 2E 39 )>9.9)*(a(i)-9.9
0078F0: 29 2D 28 61 28 69 29 3C 31 29 2A 28 41 42 53 28 )-(a(i)<1)*(ABS(
007900: 61 28 69 29 29 2B 31 29 3A 4E 45 58 54 3A 47 4F a(i))+1):NEXT:GO
007910: 53 55 42 20 31 39 31 3A 46 4F 52 20 69 3D 31 20 SUB 191:FOR i=1
007920: 54 4F 20 36 30 3A 6B 28 69 29 3D 41 42 53 28 6B TO 60:k(i)=ABS(k
007930: 28 69 29 29 3A 4E 45 58 54 3A 6B 28 62 69 29 3D (i)):NEXT:k(bi)=
007940: 6B 28 62 69 29 2D 6B 28 62 69 29 2A 32 0D 0A 32 k(bi)-k(bi)*2..2
007950: 31 38 20 62 65 3D 62 65 2B 28 6A 24 28 31 29 3C 18 be=be+(j$(1)<
007960: 3E 79 24 28 31 29 20 41 4E 44 20 6A 24 28 32 29 >y$(1) AND j$(2)
007970: 3C 3E 79 24 28 31 29 20 41 4E 44 20 6A 24 28 33 <>y$(1) AND j$(3
007980: 29 3C 3E 79 24 28 31 29 20 41 4E 44 20 6A 24 28 )<>y$(1) AND j$(
007990: 34 29 3C D3 47 3E 79 24 28 31 29 20 41 4E 44 20 4)<.G>y$(1) AND
0079A0: 67 24 28 31 29 3C 3E 79 24 28 31 29 29 2A 62 65 g$(1)<>y$(1))*be
0079B0: 2A 32 3A 49 46 20 62 67 3C 3E 30 20 41 4E 44 20 *2:IF bg<>0 AND
0079C0: 62 65 3C 30 20 54 48 45 4E 20 62 66 3D 62 65 3A be<0 THEN bf=be:
0079D0: 47 4F 53 55 42 20 34 31 39 3A 47 4F 53 55 42 20 GOSUB 419:GOSUB
0079E0: 31 31 38 3A 47 4F 53 55 42 20 33 38 31 3A 47 4F 118:GOSUB 381:GO
0079F0: 54 4F 20 32 32 34 0D 0A 32 31 39 20 49 46 20 62 TO 224..219 IF b
007A00: 67 3C 3E 30 20 41 4E 44 20 62 65 3E 30 20 54 48 g<>0 AND be>0 TH
007A10: 45 4E 20 62 66 3D 62 65 3A 47 4F 53 55 42 20 34 EN bf=be:GOSUB 4
007A20: 31 39 3A 47 4F 53 55 42 20 31 31 38 3A 47 4F 53 19:GOSUB 118:GOS
007A30: 55 42 20 33 38 31 3A 47 4F 54 4F 20 32 32 34 0D UB 381:GOTO 224.
007A40: 0A 32 32 30 20 49 46 20 62 67 3D 30 20 54 48 45 .220 IF bg=0 THE
007A50: 4E 20 62 68 3D 30 3A 47 4F 53 55 42 20 35 37 3A N bh=0:GOSUB 57:
007A60: 62 65 3D 41 42 53 28 62 65 29 3A 62 65 3D 62 65 be=ABS(be):be=be
007A70: 2D 28 62 65 3D 31 29 2B 28 62 65 3D 32 29 3A 47 -(be=1)+(be=2):G
007A80: 4F 53 55 42 20 34 31 39 3A 47 4F 53 55 42 20 34 OSUB 419:GOSUB 4
007A90: 32 30 3A 47 4F 96 AD 53 55 42 20 31 31 38 3A 47 20:GO..SUB 118:G
007AA0: 4F 53 55 42 20 33 38 31 0D 0A 32 32 31 20 49 46 OSUB 381..221 IF
007AB0: 20 62 65 3D 31 20 41 4E 44 20 6A 24 28 31 29 3D be=1 AND j$(1)=
007AC0: 79 24 28 31 29 20 4F 52 20 62 65 3D 31 20 41 4E y$(1) OR be=1 AN
007AD0: 44 20 79 24 28 31 29 3D 6A 24 28 32 29 20 54 48 D y$(1)=j$(2) TH
007AE0: 45 4E 20 33 37 32 0D 0A 32 32 32 20 49 46 20 62 EN 372..222 IF b
007AF0: 65 3D 32 20 41 4E 44 20 6A 24 28 33 29 3D 79 24 e=2 AND j$(3)=y$
007B00: 28 31 29 20 4F 52 20 62 65 3D 32 20 41 4E 44 20 (1) OR be=2 AND
007B10: 6A 24 28 34 29 3D 79 24 28 31 29 20 54 48 45 4E j$(4)=y$(1) THEN
007B20: 20 33 37 32 0D 0A 32 32 33 20 47 4F 53 55 42 20 372..223 GOSUB
007B30: 33 30 35 3A 47 4F 54 4F 20 33 37 32 0D 0A 32 32 305:GOTO 372..22
007B40: 34 20 47 4F 53 55 42 20 32 34 34 3A 49 46 20 67 4 GOSUB 244:IF g
007B50: 24 28 31 29 3C 3E 22 22 20 54 48 45 4E 20 32 32 $(1)<>"" THEN 22
007B60: 37 0D 0A 32 32 35 20 72 61 3D 31 2B 49 4E 54 28 7..225 ra=1+INT(
007B70: 52 4E 44 2A 32 39 29 3A 49 46 20 61 24 28 72 61 RND*29):IF a$(ra
007B80: 29 3D 6A 24 28 31 29 20 4F 52 20 61 24 28 72 61 )=j$(1) OR a$(ra
007B90: 29 3D 6A 24 28 32 29 D0 87 20 4F 52 20 61 24 28 )=j$(2).. OR a$(
007BA0: 72 61 29 3D 6A 24 28 33 29 20 4F 52 20 61 24 28 ra)=j$(3) OR a$(
007BB0: 72 61 29 3D 6A 24 28 34 29 20 4F 52 20 61 24 28 ra)=j$(4) OR a$(
007BC0: 72 61 29 3D 79 24 28 31 29 20 54 48 45 4E 20 32 ra)=y$(1) THEN 2
007BD0: 32 35 0D 0A 32 32 36 20 67 24 28 31 29 3D 61 24 25..226 g$(1)=a$
007BE0: 28 72 61 29 0D 0A 32 32 37 20 62 68 3D 37 3A 68 (ra)..227 bh=7:h
007BF0: 24 28 38 29 3D 4C 45 46 54 24 28 67 24 28 31 29 $(8)=LEFT$(g$(1)
007C00: 2C 39 29 2B 4C 45 46 54 24 28 4D 49 44 24 28 68 ,9)+LEFT$(MID$(h
007C10: 24 28 38 29 2C 31 30 29 2C 32 29 2B 22 56 22 2B $(8),10),2)+"V"+
007C20: 4D 49 44 24 28 68 24 28 38 29 2C 31 33 29 3A 49 MID$(h$(8),13):I
007C30: 46 20 41 42 53 28 62 66 29 3D 32 20 54 48 45 4E F ABS(bf)=2 THEN
007C40: 20 32 32 39 0D 0A 32 32 38 20 64 24 28 36 29 3D 229..228 d$(6)=
007C50: 22 45 43 20 46 49 4E 41 4C 53 20 20 20 22 3A 68 "EC FINALS ":h
007C60: 24 28 31 35 29 3D 4C 45 46 54 24 28 68 24 28 31 $(15)=LEFT$(h$(1
007C70: 35 29 2C 31 34 29 2B 6A 24 28 31 29 2B 4D 49 44 5),14)+j$(1)+MID
007C80: 24 28 68 24 28 31 35 29 2C 32 34 29 3A 68 24 28 $(h$(15),24):h$(
007C90: 31 34 29 3D 4C 45 46 54 24 6B 1F FF FF FF FF 11 14)=LEFT$k......
007CA0: 9C 04 2C 02 7B 02 6D 02 DA 04 F4 0F 08 14 00 07 ..,.{.m.........
007CB0: 01 00 2C 49 2E 4D 41 4E 41 47 45 52 00 00 00 00 ..,I.MANAGER....
007CC0: 00 00 00 0A 00 16 00 08 7C 9E 00 00 00 00 00 00 ........|.......
007CD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007CE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007CF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007D00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007D10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007D20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007D30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007D40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007D50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007DB0: 00 00 00 6D 12 FF FF FF FF 11 9B 04 2C 02 7B 02 ...m........,.{.
007DC0: 4C 02 99 04 F6 0F 08 52 0B 15 08 00 16 28 68 24 L......R.....(h$
007DD0: 28 31 34 29 2C 31 34 29 2B 6A 24 28 32 29 2B 4D (14),14)+j$(2)+M
007DE0: 49 44 24 28 68 24 28 31 34 29 2C 32 34 29 3A 78 ID$(h$(14),24):x
007DF0: 31 3D 31 3A 78 32 3D 32 3A 47 4F 53 55 42 20 33 1=1:x2=2:GOSUB 3
007E00: 37 30 3A 47 4F 54 4F 20 32 33 30 0D 0A 32 32 39 70:GOTO 230..229
007E10: 20 64 24 28 36 29 3D 22 57 43 20 46 49 4E 41 4C d$(6)="WC FINAL
007E20: 53 20 20 20 22 3A 68 24 28 31 35 29 3D 4C 45 46 S ":h$(15)=LEF
007E30: 54 24 28 68 24 28 31 35 29 2C 31 34 29 2B 6A 24 T$(h$(15),14)+j$
007E40: 28 33 29 2B 4D 49 44 24 28 68 24 28 31 35 29 2C (3)+MID$(h$(15),
007E50: 32 34 29 3A 68 24 28 31 34 29 3D 4C 45 46 54 24 24):h$(14)=LEFT$
007E60: 28 68 24 28 31 34 29 2C 31 34 29 2B 6A 24 28 34 (h$(14),14)+j$(4
007E70: 29 2B 4D 49 44 24 28 68 24 28 31 34 29 2C 32 34 )+MID$(h$(14),24
007E80: 29 3A 78 31 3D 33 3A 78 32 3D 34 3A 47 4F 53 55 ):x1=3:x2=4:GOSU
007E90: 42 20 33 37 30 0D 0A 32 33 30 20 68 28 36 29 3D B 370..230 h(6)=
007EA0: 62 68 3A 78 78 3D 31 33 0D 0A 32 33 31 20 50 45 bh:xx=13..231 PE
007EB0: 4E 20 31 3A 4C 4F 43 41 54 45 20 35 2C 31 32 3A N 1:LOCATE 5,12:
007EC0: 50 52 49 4E 54 20 68 24 28 38 29 3A 4C 61 ED 4F PRINT h$(8):La.O
007ED0: 43 41 54 45 20 35 2C 31 38 3A 50 52 49 4E 54 20 CATE 5,18:PRINT
007EE0: 68 24 28 31 34 29 3A 4C 4F 43 41 54 45 20 35 2C h$(14):LOCATE 5,
007EF0: 31 39 3A 50 52 49 4E 54 20 68 24 28 31 35 29 3A 19:PRINT h$(15):
007F00: 46 4F 52 20 49 3D 31 20 54 4F 20 36 2B 28 41 42 FOR I=1 TO 6+(AB
007F10: 53 28 42 46 29 3D 31 29 2A 35 3A 49 46 20 41 42 S(BF)=1)*5:IF AB
007F20: 53 28 62 66 29 3D 31 20 54 48 45 4E 20 47 4F 53 S(bf)=1 THEN GOS
007F30: 55 42 20 33 37 34 20 45 4C 53 45 20 47 4F 53 55 UB 374 ELSE GOSU
007F40: 42 20 33 38 32 0D 0A 32 33 32 20 46 4F 52 20 4B B 382..232 FOR K
007F50: 3D 31 20 54 4F 20 52 41 0D 0A 32 33 33 20 52 41 =1 TO RA..233 RA
007F60: 4E 44 4F 4D 49 5A 45 20 54 49 4D 45 3A 72 62 3D NDOMIZE TIME:rb=
007F70: 2D 33 30 2B 49 4E 54 28 52 4E 44 2A 39 31 29 3A -30+INT(RND*91):
007F80: 52 42 3D 52 42 2B 28 28 52 42 3C 30 29 2A 52 42 RB=RB+((RB<0)*RB
007F90: 29 2B 31 3A 61 31 3D 30 0D 0A 32 33 34 20 46 4F )+1:a1=0..234 FO
007FA0: 52 20 6A 3D 72 28 31 2C 69 29 20 54 4F 20 72 28 R j=r(1,i) TO r(
007FB0: 32 2C 69 29 3A 72 62 3D 31 2B 49 4E 54 28 52 4E 2,i):rb=1+INT(RN
007FC0: 44 2A 36 30 29 3A 50 45 4E 20 32 3A 4C 4F 43 9A D*60):PEN 2:LOC.
007FD0: 51 41 54 45 20 31 35 2C 31 30 3A 50 52 49 4E 54 QATE 15,10:PRINT
007FE0: 22 44 52 41 57 20 22 3A 4C 4F 43 41 54 45 20 32 "DRAW ":LOCATE 2
007FF0: 31 2C 31 30 3A 50 52 49 4E 54 20 6A 3A 49 46 20 1,10:PRINT j:IF
008000: 41 42 53 28 6B 28 6A 29 29 3D 72 62 2B 61 31 20 ABS(k(j))=rb+a1
008010: 4F 52 20 41 42 53 28 6B 28 6A 29 29 3D 72 62 2D OR ABS(k(j))=rb-
008020: 61 31 20 54 48 45 4E 20 52 41 3D 4A 3A 4A 3D 39 a1 THEN RA=J:J=9
008030: 38 0D 0A 32 33 35 20 4E 45 58 54 3A 49 46 20 4A 8..235 NEXT:IF J
008040: 3C 39 39 20 54 48 45 4E 20 50 45 4E 20 31 20 45 <99 THEN PEN 1 E
008050: 4C 53 45 20 4A 3D 52 41 3A 47 4F 54 4F 20 32 33 LSE J=RA:GOTO 23
008060: 39 0D 0A 32 33 36 20 61 31 3D 61 31 2B 31 3A 47 9..236 a1=a1+1:G
008070: 4F 54 4F 20 32 33 34 0D 0A 32 33 37 20 4E 45 58 OTO 234..237 NEX
008080: 54 0D 0A 32 33 38 20 4E 45 58 54 3A 49 46 20 49 T..238 NEXT:IF I
008090: 3D 39 39 20 54 48 45 4E 20 36 33 20 45 4C 53 45 =99 THEN 63 ELSE
0080A0: 20 32 34 36 0D 0A 32 33 39 20 47 4F 54 4F 20 36 246..239 GOTO 6
0080B0: 33 0D 0A 32 34 34 20 46 4F 52 20 69 3D 31 20 54 3..244 FOR i=1 T
0080C0: 4F 20 31 35 3A 68 24 28 69 29 3D 53 54 52 49 4E O 15:h$(i)=STRIN
0080D0: 47 ED 46 24 28 32 34 2C 22 20 22 29 3A 71 24 3D G.F$(24," "):q$=
0080E0: 4D 49 44 24 28 68 24 28 69 29 2C 31 33 29 3A 68 MID$(h$(i),13):h
0080F0: 24 28 69 29 3D 4C 45 46 54 24 28 68 24 28 69 29 $(i)=LEFT$(h$(i)
008100: 2C 31 31 29 2B 22 56 22 2B 4C 45 46 54 24 28 71 ,11)+"V"+LEFT$(q
008110: 24 2C 31 31 29 2B 43 48 52 24 28 33 32 29 2B 65 $,11)+CHR$(32)+e
008120: 24 28 36 29 0D 0A 32 34 35 20 61 33 3D 32 38 2B $(6)..245 a3=28+
008130: 28 69 3E 31 20 41 4E 44 20 69 3C 34 29 2A 37 2B (i>1 AND i<4)*7+
008140: 28 69 3E 33 20 41 4E 44 20 69 3C 38 29 2A 31 34 (i>3 AND i<8)*14
008150: 2B 28 69 3E 37 29 2A 32 31 3A 68 24 28 69 29 3D +(i>7)*21:h$(i)=
008160: 4C 45 46 54 24 28 68 24 28 69 29 2C 32 38 29 2B LEFT$(h$(i),28)+
008170: 53 54 52 24 28 61 33 29 3A 4E 45 58 54 3A 52 45 STR$(a3):NEXT:RE
008180: 54 55 52 4E 0D 0A 32 34 36 20 47 4F 53 55 42 20 TURN..246 GOSUB
008190: 34 32 30 3A 49 46 20 41 42 53 28 62 66 29 3D 32 420:IF ABS(bf)=2
0081A0: 20 54 48 45 4E 20 32 34 38 0D 0A 32 34 37 20 64 THEN 248..247 d
0081B0: 24 28 36 29 3D 22 45 43 20 46 49 4E 41 4C 53 20 $(6)="EC FINALS
0081C0: 20 20 22 3A 47 4F 54 4F 20 32 34 39 0D 0A 32 34 ":GOTO 249..24
0081D0: 38 20 64 7E 7A 24 28 36 29 3D 22 57 43 20 46 49 8 d~z$(6)="WC FI
0081E0: 4E 41 4C 53 20 20 20 22 0D 0A 32 34 39 20 47 4F NALS "..249 GO
0081F0: 53 55 42 20 33 37 33 3A 47 4F 54 4F 20 33 37 32 SUB 373:GOTO 372
008200: 0D 0A 32 35 30 20 6F 28 31 29 3D 6F 28 31 29 2D ..250 o(1)=o(1)-
008210: 28 65 28 31 29 3D 31 29 2A 73 3A 46 4F 52 20 69 (e(1)=1)*s:FOR i
008220: 3D 31 37 20 54 4F 20 34 30 3A 67 28 69 29 3D 67 =17 TO 40:g(i)=g
008230: 28 69 29 2D 28 67 28 69 29 3C 31 29 2A 41 42 53 (i)-(g(i)<1)*ABS
008240: 28 67 28 69 29 29 2A 32 3A 4E 45 58 54 3A 47 4F (g(i))*2:NEXT:GO
008250: 53 55 42 20 32 35 31 3A 61 65 3D 61 65 2B 28 61 SUB 251:ae=ae+(a
008260: 65 3E 39 29 3A 61 66 3D 61 66 2B 28 61 66 3E 39 e>9):af=af+(af>9
008270: 29 3A 61 67 3D 61 67 2B 28 61 67 3E 39 29 3A 61 ):ag=ag+(ag>9):a
008280: 68 3D 61 68 2B 28 61 68 3E 39 29 3A 61 69 3D 61 h=ah+(ah>9):ai=a
008290: 69 2B 28 61 69 3E 39 29 3A 61 6A 3D 61 6A 2B 28 i+(ai>9):aj=aj+(
0082A0: 61 6A 3E 39 29 3A 61 6B 3D 61 6B 2B 28 61 6B 3E aj>9):ak=ak+(ak>
0082B0: 39 29 3A 61 6C 3D 61 6C 2B 28 61 6C 3E 39 29 3A 9):al=al+(al>9):
0082C0: 47 4F 54 4F 20 32 35 35 0D 0A 32 35 31 20 46 4F GOTO 255..251 FO
0082D0: 52 20 6B 3D 31 03 09 20 54 4F 20 31 36 3A 49 46 R k=1.. TO 16:IF
0082E0: 20 67 28 6B 29 3C 30 20 54 48 45 4E 20 61 64 3D g(k)<0 THEN ad=
0082F0: 6B 3A 47 4F 53 55 42 20 32 35 33 3A 47 4F 53 55 k:GOSUB 253:GOSU
008300: 42 20 31 39 35 0D 0A 32 35 32 20 4E 45 58 54 3A B 195..252 NEXT:
008310: 52 45 54 55 52 4E 0D 0A 32 35 33 20 46 4F 52 20 RETURN..253 FOR
008320: 69 3D 31 37 20 54 4F 20 32 34 3A 49 46 20 67 28 i=17 TO 24:IF g(
008330: 69 29 3E 30 20 41 4E 44 20 61 28 69 29 3E 30 20 i)>0 AND a(i)>0
008340: 41 4E 44 20 70 28 69 29 3D 30 20 54 48 45 4E 20 AND p(i)=0 THEN
008350: 46 4C 41 47 3D 49 3A 49 3D 39 38 0D 0A 32 35 34 FLAG=I:I=98..254
008360: 20 4E 45 58 54 3A 49 46 20 49 3D 39 39 20 54 48 NEXT:IF I=99 TH
008370: 45 4E 20 49 3D 46 4C 41 47 3A 52 45 54 55 52 4E EN I=FLAG:RETURN
008380: 20 45 4C 53 45 20 49 46 20 65 78 3D 31 20 41 4E ELSE IF ex=1 AN
008390: 44 20 6E 3C 33 30 20 4F 52 20 65 78 3D 30 20 41 D n<30 OR ex=0 A
0083A0: 4E 44 20 6E 3C 39 30 20 54 48 45 4E 20 31 35 33 ND n<90 THEN 153
0083B0: 20 45 4C 53 45 20 32 35 32 0D 0A 32 35 35 20 47 ELSE 252..255 G
0083C0: 4F 53 55 42 20 31 35 30 3A 49 46 20 72 61 3E 34 OSUB 150:IF ra>4
0083D0: 20 54 48 45 4E 20 32 E4 51 35 39 0D 0A 32 35 36 THEN 2.Q59..256
0083E0: 20 46 4F 52 20 69 3D 31 37 20 54 4F 20 34 30 3A FOR i=17 TO 40:
0083F0: 49 46 20 62 28 69 29 3C 32 38 20 54 48 45 4E 20 IF b(i)<28 THEN
008400: 32 35 38 0D 0A 32 35 37 20 61 28 69 29 3D 30 3A 258..257 a(i)=0:
008410: 62 28 69 29 3D 30 3A 63 28 69 29 3D 30 3A 64 28 b(i)=0:c(i)=0:d(
008420: 69 29 3D 30 3A 66 28 69 29 3D 30 3A 67 28 69 29 i)=0:f(i)=0:g(i)
008430: 3D 30 3A 6F 28 69 29 3D 30 3A 70 28 69 29 3D 30 =0:o(i)=0:p(i)=0
008440: 3A 6E 28 32 2C 69 29 3D 30 3A 49 3D 34 31 0D 0A :n(2,i)=0:I=41..
008450: 32 35 38 20 4E 45 58 54 0D 0A 32 35 39 20 47 4F 258 NEXT..259 GO
008460: 53 55 42 20 31 35 30 3A 49 46 20 72 61 3E 33 20 SUB 150:IF ra>3
008470: 54 48 45 4E 20 32 36 32 0D 0A 32 36 30 20 72 61 THEN 262..260 ra
008480: 3D 31 32 2B 49 4E 54 28 52 4E 44 2A 32 38 29 2B =12+INT(RND*28)+
008490: 31 3A 49 46 20 61 28 72 61 29 3D 30 20 4F 52 20 1:IF a(ra)=0 OR
0084A0: 70 28 72 61 29 3E 30 20 4F 52 20 67 28 72 61 29 p(ra)>0 OR g(ra)
0084B0: 3C 30 20 54 48 45 4E 20 32 36 30 0D 0A 32 36 31 <0 THEN 260..261
0084C0: 20 70 28 72 61 29 3D 31 2B 49 4E 54 28 52 4E 44 p(ra)=1+INT(RND
0084D0: 2A 39 39 29 0D 0A 32 36 32 99 FB 20 62 6D 3D 30 *99)..262.. bm=0
0084E0: 3A 62 62 3D 30 3A 72 61 3D 28 49 4E 54 28 41 42 :bb=0:ra=(INT(AB
0084F0: 53 28 6B 28 67 34 29 29 2D 41 42 53 28 6B 28 62 S(k(g4))-ABS(k(b
008500: 69 29 29 29 29 2F 31 30 3A 46 4F 52 20 69 3D 31 i))))/10:FOR i=1
008510: 20 54 4F 20 31 31 3A 67 28 69 29 3D 67 28 69 29 TO 11:g(i)=g(i)
008520: 2B 28 67 28 69 29 3C 31 29 2A 28 67 28 69 29 2A +(g(i)<1)*(g(i)*
008530: 32 29 3A 63 28 69 29 3D 63 28 69 29 2B 31 3A 72 2):c(i)=c(i)+1:r
008540: 62 3D 30 2B 49 4E 54 28 52 4E 44 2A 31 31 29 2F b=0+INT(RND*11)/
008550: 31 30 0D 0A 32 36 34 20 49 46 20 72 3E 73 20 54 10..264 IF r>s T
008560: 48 45 4E 20 46 28 49 29 3D 46 28 49 29 2D 28 52 HEN F(I)=F(I)-(R
008570: 41 3C 30 29 2A 28 28 28 41 42 53 28 52 41 2B 52 A<0)*(((ABS(RA+R
008580: 42 29 29 2F 28 31 2D 28 41 4D 3D 31 29 29 29 29 B))/(1-(AM=1))))
008590: 2D 28 52 41 3E 30 29 2A 28 52 42 2F 28 31 2D 28 -(RA>0)*(RB/(1-(
0085A0: 41 4D 3D 31 29 29 29 0D 0A 32 36 35 20 49 46 20 AM=1)))..265 IF
0085B0: 72 3C 73 20 54 48 45 4E 20 46 28 49 29 3D 46 28 r<s THEN F(I)=F(
0085C0: 49 29 2B 28 52 41 3C 30 29 2A 28 52 42 2A 28 31 I)+(RA<0)*(RB*(1
0085D0: 2D 28 41 4D 3D 31 29 29 29 2B 28 D0 A1 FF FF FF -(AM=1)))+(.....
0085E0: FF 11 9C 04 2C 02 7B 02 6C 02 DA 04 F4 0F 08 14 ....,.{.l.......
0085F0: 00 07 01 00 2C 49 2E 4D 41 4E 41 47 45 52 00 00 ....,I.MANAGER..
008600: 00 00 00 00 00 0B 00 16 00 08 7C 9E 00 00 00 00 ..........|.....
008610: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008650: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086F0: 00 00 00 00 00 8A 19 FF FF FF FF 11 9C 04 2C 02 ..............,.
008700: 7B 02 4E 02 9C 04 F5 0F 08 4D 0B 15 08 00 16 52 {.N......M.....R
008710: 41 3E 30 29 2A 28 28 28 52 41 2B 52 42 29 2A 28 A>0)*(((RA+RB)*(
008720: 31 2D 28 41 4D 3D 31 29 29 29 29 0D 0A 32 36 36 1-(AM=1))))..266
008730: 20 49 46 20 72 3D 73 20 54 48 45 4E 20 46 28 49 IF r=s THEN F(I
008740: 29 3D 46 28 49 29 2D 28 28 52 41 3C 30 29 2A 28 )=F(I)-((RA<0)*(
008750: 41 42 53 28 52 41 2B 52 42 29 29 2F 32 29 2B 28 ABS(RA+RB))/2)+(
008760: 28 52 41 3E 30 29 2A 28 28 52 41 2B 52 42 29 2F (RA>0)*((RA+RB)/
008770: 32 29 29 0D 0A 32 36 37 20 46 28 49 29 3D 46 28 2))..267 F(I)=F(
008780: 49 29 2B 28 28 46 28 49 29 3E 39 2E 39 29 2A 28 I)+((F(I)>9.9)*(
008790: 46 28 49 29 2D 39 2E 39 29 2D 28 46 28 49 29 3C F(I)-9.9)-(F(I)<
0087A0: 31 29 2A 28 41 42 53 28 46 28 49 29 29 2B 31 29 1)*(ABS(F(I))+1)
0087B0: 29 3A 4E 45 58 54 3A 47 4F 53 55 42 20 31 39 31 ):NEXT:GOSUB 191
0087C0: 0D 0A 32 36 38 20 47 4F 53 55 42 20 33 37 38 3A ..268 GOSUB 378:
0087D0: 47 4F 53 55 42 20 33 37 33 3A 49 46 20 4C 45 46 GOSUB 373:IF LEF
0087E0: 54 24 28 4D 49 44 24 28 64 24 28 61 62 29 2C 34 T$(MID$(d$(ab),4
0087F0: 29 2C 36 29 3D 22 46 49 4E 41 4C 53 22 20 54 48 ),6)="FINALS" TH
008800: 45 4E 20 32 36 39 20 45 4C 53 45 20 32 37 31 6D EN 269 ELSE 271m
008810: BD 0D 0A 32 36 39 20 49 46 20 62 66 3C 30 20 54 ...269 IF bf<0 T
008820: 48 45 4E 20 32 37 31 0D 0A 32 37 30 20 72 61 3D HEN 271..270 ra=
008830: 38 2B 28 62 68 3D 31 34 29 2A 34 2B 28 62 68 3D 8+(bh=14)*4+(bh=
008840: 32 31 29 2A 36 2B 28 62 68 3D 32 38 29 2A 37 3A 21)*6+(bh=28)*7:
008850: 68 24 28 72 61 29 3D 4C 45 46 54 24 28 68 24 28 h$(ra)=LEFT$(h$(
008860: 72 61 29 2C 31 30 29 2B 53 54 52 24 28 72 29 2B ra),10)+STR$(r)+
008870: 22 56 22 2B 53 54 52 24 28 73 29 2B 4D 49 44 24 "V"+STR$(s)+MID$
008880: 28 68 24 28 72 61 29 2C 31 34 29 3A 72 31 3D 72 (h$(ra),14):r1=r
008890: 3A 73 31 3D 73 3A 77 3D 31 3A 47 4F 53 55 42 20 :s1=s:w=1:GOSUB
0088A0: 34 36 3A 49 46 20 72 61 3D 31 20 54 48 45 4E 20 46:IF ra=1 THEN
0088B0: 72 3D 72 31 3A 73 3D 73 31 3A 47 4F 53 55 42 20 r=r1:s=s1:GOSUB
0088C0: 33 33 35 3A 68 28 61 62 29 3D 62 68 3A 47 4F 54 335:h(ab)=bh:GOT
0088D0: 4F 20 32 37 39 20 45 4C 53 45 20 47 4F 53 55 42 O 279 ELSE GOSUB
0088E0: 20 35 32 3A 72 3D 72 31 3A 73 3D 73 31 3A 47 4F 52:r=r1:s=s1:GO
0088F0: 53 55 42 20 33 33 35 3A 68 28 61 62 29 3D 62 68 SUB 335:h(ab)=bh
008900: 3A 47 4F 54 4F 20 32 37 39 0D 0A 32 37 31 20 49 :GOTO 279..271 I
008910: 46 D3 A5 20 4C 45 46 54 24 28 64 24 28 61 62 29 F.. LEFT$(d$(ab)
008920: 2C 32 29 3D 22 54 4F 22 20 41 4E 44 20 74 28 74 ,2)="TO" AND t(t
008930: 31 29 3D 61 63 20 54 48 45 4E 20 74 24 28 74 31 1)=ac THEN t$(t1
008940: 29 3D 4C 45 46 54 24 28 74 24 28 74 31 29 2C 39 )=LEFT$(t$(t1),9
008950: 29 2B 53 54 52 24 28 73 29 2B 53 54 52 24 28 72 )+STR$(s)+STR$(r
008960: 29 2B 4D 49 44 24 28 74 24 28 74 31 29 2C 31 32 )+MID$(t$(t1),12
008970: 29 3A 68 28 61 62 29 3D 68 28 61 62 29 2B 37 3A ):h(ab)=h(ab)+7:
008980: 68 28 61 62 29 3D 68 28 61 62 29 2B 28 68 28 61 h(ab)=h(ab)+(h(a
008990: 62 29 3E 32 38 29 2A 68 28 61 62 29 3A 47 4F 54 b)>28)*h(ab):GOT
0089A0: 4F 20 32 37 39 0D 0A 32 37 32 20 64 24 28 61 62 O 279..272 d$(ab
0089B0: 29 3D 4C 45 46 54 24 28 64 24 28 61 62 29 2C 31 )=LEFT$(d$(ab),1
0089C0: 32 29 2B 53 54 52 24 28 73 29 2B 53 54 52 24 28 2)+STR$(s)+STR$(
0089D0: 72 29 2B 4D 49 44 24 28 64 24 28 61 62 29 2C 31 r)+MID$(d$(ab),1
0089E0: 35 29 0D 0A 32 37 33 20 49 46 20 52 49 47 48 54 5)..273 IF RIGHT
0089F0: 24 28 4C 45 46 54 24 28 64 24 28 61 62 29 2C 31 $(LEFT$(d$(ab),1
008A00: 32 29 2C 32 29 3D 22 45 51 22 20 41 4E 44 20 52 2),2)="EQ" AND R
008A10: 49 47 48 33 07 54 24 28 4C 45 46 54 24 28 64 24 IGH3.T$(LEFT$(d$
008A20: 28 61 62 29 2C 31 30 29 2C 31 29 3D 22 48 22 20 (ab),10),1)="H"
008A30: 4F 52 20 52 49 47 48 54 24 28 4C 45 46 54 24 28 OR RIGHT$(LEFT$(
008A40: 64 24 28 61 62 29 2C 31 32 29 2C 32 29 3D 22 57 d$(ab),12),2)="W
008A50: 51 22 20 41 4E 44 20 52 49 47 48 54 24 28 4C 45 Q" AND RIGHT$(LE
008A60: 46 54 24 28 64 24 28 61 62 29 2C 31 30 29 2C 31 FT$(d$(ab),10),1
008A70: 29 3D 22 48 22 20 54 48 45 4E 20 4D 49 44 24 28 )="H" THEN MID$(
008A80: 68 24 28 61 62 2D 31 29 2C 31 31 2C 33 29 3D 4D h$(ab-1),11,3)=M
008A90: 49 44 24 28 53 54 52 24 28 52 29 2C 32 2C 31 29 ID$(STR$(R),2,1)
008AA0: 2B 53 54 52 24 28 73 29 3A 4D 49 44 24 28 48 24 +STR$(s):MID$(H$
008AB0: 28 41 42 2D 31 29 2C 31 32 2C 31 29 3D 22 56 22 (AB-1),12,1)="V"
008AC0: 3A 47 4F 54 4F 20 32 37 36 0D 0A 32 37 34 20 49 :GOTO 276..274 I
008AD0: 46 20 4C 45 46 54 24 28 4D 49 44 24 28 64 24 28 F LEFT$(MID$(d$(
008AE0: 61 62 29 2C 31 31 29 2C 32 29 3D 22 45 51 22 20 ab),11),2)="EQ"
008AF0: 41 4E 44 20 4C 45 46 54 24 28 4D 49 44 24 28 64 AND LEFT$(MID$(d
008B00: 24 28 61 62 29 2C 31 30 29 2C 31 29 3D 22 41 22 $(ab),10),1)="A"
008B10: 20 4F 52 20 4C 7C 2E 45 46 54 24 28 4D 49 44 24 OR L|.EFT$(MID$
008B20: 28 64 24 28 61 62 29 2C 31 31 29 2C 32 29 3D 22 (d$(ab),11),2)="
008B30: 57 51 22 20 41 4E 44 20 4C 45 46 54 24 28 4D 49 WQ" AND LEFT$(MI
008B40: 44 24 28 64 24 28 61 62 29 2C 31 30 29 2C 31 29 D$(d$(ab),10),1)
008B50: 3D 22 41 22 20 54 48 45 4E 20 4D 49 44 24 28 68 ="A" THEN MID$(h
008B60: 24 28 61 62 2D 31 29 2C 31 31 2C 33 29 3D 4D 49 $(ab-1),11,3)=MI
008B70: 44 24 28 53 54 52 24 28 53 29 2C 32 2C 31 29 2B D$(STR$(S),2,1)+
008B80: 53 54 52 24 28 72 29 3A 4D 49 44 24 28 48 24 28 STR$(r):MID$(H$(
008B90: 41 42 2D 31 29 2C 31 32 2C 31 29 3D 22 56 22 3A AB-1),12,1)="V":
008BA0: 47 4F 54 4F 20 32 37 36 0D 0A 32 37 35 20 47 4F GOTO 276..275 GO
008BB0: 54 4F 20 32 37 39 0D 0A 32 37 36 20 47 4F 53 55 TO 279..276 GOSU
008BC0: 42 20 39 30 3A 72 24 3D 4C 45 46 54 24 28 68 24 B 90:r$=LEFT$(h$
008BD0: 28 61 62 29 2C 39 29 3A 73 24 3D 4C 45 46 54 24 (ab),9):s$=LEFT$
008BE0: 28 4D 49 44 24 28 68 24 28 61 62 29 2C 31 35 29 (MID$(h$(ab),15)
008BF0: 2C 39 29 3A 46 4F 52 20 69 3D 31 20 54 4F 20 36 ,9):FOR i=1 TO 6
008C00: 30 3A 49 46 20 72 24 3D 61 24 28 69 29 20 54 48 0:IF r$=a$(i) TH
008C10: 45 4E 20 61 31 3D 69 2D 06 0D 0A 32 37 37 20 49 EN a1=i-...277 I
008C20: 46 20 61 24 28 69 29 3D 73 24 20 54 48 45 4E 20 F a$(i)=s$ THEN
008C30: 61 32 3D 69 0D 0A 32 37 38 20 4E 45 58 54 3A 53 a2=i..278 NEXT:S
008C40: 24 3D 4C 45 46 54 24 28 48 24 28 41 42 29 2C 39 $=LEFT$(H$(AB),9
008C50: 29 3A 47 4F 53 55 42 20 33 34 39 3A 41 31 3D 47 ):GOSUB 349:A1=G
008C60: 34 3A 53 24 3D 4D 49 44 24 28 48 24 28 41 42 29 4:S$=MID$(H$(AB)
008C70: 2C 31 35 2C 39 29 3A 47 4F 53 55 42 20 33 34 39 ,15,9):GOSUB 349
008C80: 3A 41 32 3D 47 34 3A 47 4F 53 55 42 20 33 33 36 :A2=G4:GOSUB 336
008C90: 3A 4D 49 44 24 28 68 24 28 61 62 29 2C 31 31 2C :MID$(h$(ab),11,
008CA0: 33 29 3D 4D 49 44 24 28 53 54 52 24 28 52 29 2C 3)=MID$(STR$(R),
008CB0: 32 2C 31 29 2B 53 54 52 24 28 53 29 3A 4D 49 44 2,1)+STR$(S):MID
008CC0: 24 28 48 24 28 41 42 29 2C 31 32 2C 31 29 3D 22 $(H$(AB),12,1)="
008CD0: 56 22 3A 47 4F 53 55 42 20 39 30 3A 47 4F 53 55 V":GOSUB 90:GOSU
008CE0: 42 20 38 32 3A 4C 4F 43 41 54 45 20 39 2C 31 36 B 82:LOCATE 9,16
008CF0: 3A 50 45 4E 20 31 3A 50 52 49 4E 54 20 4C 45 46 :PEN 1:PRINT LEF
008D00: 54 24 28 68 24 28 61 62 29 2C 32 34 29 0D 0A 32 T$(h$(ab),24)..2
008D10: 37 39 20 49 46 20 61 62 3C 73 A6 31 32 20 54 48 79 IF ab<s.12 TH
008D20: 45 4E 20 47 4F 53 55 42 20 32 38 36 0D 0A 32 38 EN GOSUB 286..28
008D30: 30 20 49 46 20 61 62 3D 31 32 20 41 4E 44 20 61 0 IF ab=12 AND a
008D40: 63 3D 33 31 20 54 48 45 4E 20 32 31 37 0D 0A 32 c=31 THEN 217..2
008D50: 38 31 20 4C 4F 43 41 54 45 20 31 30 2C 32 31 3A 81 LOCATE 10,21:
008D60: 50 45 4E 20 32 3A 50 52 49 4E 54 22 20 20 20 20 PEN 2:PRINT"
008D70: 20 20 20 4D 2D 4D 45 4E 55 20 20 20 20 20 20 20 M-MENU
008D80: 20 20 22 3A 50 45 4E 20 31 3A 71 24 3D 49 4E 4B ":PEN 1:q$=INK
008D90: 45 59 24 3A 71 24 3D 55 50 50 45 52 24 28 71 24 EY$:q$=UPPER$(q$
008DA0: 29 3A 49 46 20 71 24 3D 22 4D 22 20 54 48 45 4E ):IF q$="M" THEN
008DB0: 20 47 4F 53 55 42 20 31 31 38 3A 47 4F 54 4F 20 GOSUB 118:GOTO
008DC0: 31 30 38 20 45 4C 53 45 20 32 38 31 0D 0A 32 38 108 ELSE 281..28
008DD0: 32 20 43 4C 53 3A 47 4F 53 55 42 20 33 37 33 3A 2 CLS:GOSUB 373:
008DE0: 61 3D 31 3A 46 4F 52 20 69 3D 31 20 54 4F 20 34 a=1:FOR i=1 TO 4
008DF0: 30 3A 61 28 69 29 3D 61 28 69 29 2B 28 62 28 69 0:a(i)=a(i)+(b(i
008E00: 29 3E 33 33 29 2A 61 28 69 29 3A 63 28 69 29 3D )>33)*a(i):c(i)=
008E10: 63 28 69 29 2B 28 61 28 69 29 3D DE 45 30 29 2A c(i)+(a(i)=.E0)*
008E20: 63 28 69 29 3A 49 46 20 61 28 69 29 3D 30 20 54 c(i):IF a(i)=0 T
008E30: 48 45 4E 20 32 38 34 0D 0A 32 38 33 20 4E 45 58 HEN 284..283 NEX
008E40: 54 3A 52 45 54 55 52 4E 0D 0A 32 38 34 20 7A 24 T:RETURN..284 z$
008E50: 3D 62 24 28 69 29 3A 62 24 28 69 29 3D 66 24 28 =b$(i):b$(i)=f$(
008E60: 61 29 3A 66 24 28 61 29 3D 7A 24 3A 47 4F 53 55 a):f$(a)=z$:GOSU
008E70: 42 20 32 38 35 3A 61 3D 61 2B 31 3A 61 3D 61 2B B 285:a=a+1:a=a+
008E80: 28 61 3D 36 29 2A 35 3A 47 4F 54 4F 20 32 38 33 (a=6)*5:GOTO 283
008E90: 0D 0A 32 38 35 20 65 28 69 29 3D 49 4E 54 28 31 ..285 e(i)=INT(1
008EA0: 2E 36 2B 28 52 4E 44 2A 33 2E 33 29 29 3A 61 28 .6+(RND*3.3)):a(
008EB0: 69 29 3D 35 2B 49 4E 54 28 52 4E 44 2A 34 39 29 i)=5+INT(RND*49)
008EC0: 2F 31 30 3A 67 28 69 29 3D 31 2B 49 4E 54 28 52 /10:g(i)=1+INT(R
008ED0: 4E 44 2A 38 39 29 2F 31 30 3A 64 28 69 29 3D 33 ND*89)/10:d(i)=3
008EE0: 2B 49 4E 54 28 52 4E 44 2A 36 39 29 2F 31 30 3A +INT(RND*69)/10:
008EF0: 66 28 69 29 3D 31 2B 49 4E 54 28 52 4E 44 2A 38 f(i)=1+INT(RND*8
008F00: 39 29 2F 31 30 3A 62 28 69 29 3D 31 38 2B 49 4E 9)/10:b(i)=18+IN
008F10: 54 28 52 4E 44 2A 31 31 29 2B 31 3A 47 24 36 FF T(RND*11)+1:G$6.
008F20: FF FF FF 11 9C 04 2C 02 7B 02 6B 02 D7 04 F4 0F ......,.{.k.....
008F30: 08 13 00 07 01 00 2C 49 2E 4D 41 4E 41 47 45 52 ......,I.MANAGER
008F40: 00 00 00 00 00 00 00 0C 00 16 00 08 7C 9E 00 00 ............|...
008F50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008F60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008F70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008F80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008F90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008FA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008FB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008FC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008FD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008FE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008FF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009030: 00 00 00 00 00 00 00 1F 6A FF FF FF FF 11 9C 04 ........j.......
009040: 2C 02 7B 02 4C 02 9A 04 F6 0F 08 4E 0B 15 08 00 ,.{.L......N....
009050: 16 28 49 29 3D 47 28 49 29 2B 28 47 28 49 29 3E .(I)=G(I)+(G(I)>
009060: 41 28 49 29 29 2A 28 47 28 49 29 2D 41 28 49 29 A(I))*(G(I)-A(I)
009070: 29 3A 52 45 54 55 52 4E 0D 0A 32 38 36 20 62 6E ):RETURN..286 bn
009080: 3D 61 63 3A 46 4F 52 20 6D 3D 61 62 20 54 4F 20 =ac:FOR m=ab TO
009090: 31 32 3A 49 46 20 4C 45 46 54 24 28 64 24 28 6D 12:IF LEFT$(d$(m
0090A0: 29 2C 32 29 3D 22 54 4F 22 20 54 48 45 4E 20 32 ),2)="TO" THEN 2
0090B0: 38 37 20 45 4C 53 45 20 32 38 39 0D 0A 32 38 37 87 ELSE 289..287
0090C0: 20 49 46 20 4C 45 46 54 24 28 64 24 28 61 62 29 IF LEFT$(d$(ab)
0090D0: 2C 32 29 3D 22 54 4F 22 20 41 4E 44 20 68 28 61 ,2)="TO" AND h(a
0090E0: 62 29 3E 30 20 54 48 45 4E 20 72 61 3D 31 2D 28 b)>0 THEN ra=1-(
0090F0: 61 63 3D 37 29 2D 28 61 63 3D 31 34 29 2A 32 2D ac=7)-(ac=14)*2-
009100: 28 61 63 3D 32 31 29 2A 33 3A 66 3D 74 28 72 61 (ac=21)*3:f=t(ra
009110: 29 3A 47 4F 53 55 42 20 32 39 32 3A 4D 3D 39 38 ):GOSUB 292:M=98
009120: 3A 47 4F 54 4F 20 34 32 31 0D 0A 32 38 38 20 49 :GOTO 421..288 I
009130: 46 20 4C 45 46 54 24 28 64 24 28 61 62 29 2C 32 F LEFT$(d$(ab),2
009140: 29 3C 3E 22 54 4F 22 20 54 48 45 4E 20 68 28 6D )<>"TO" THEN h(m
009150: 29 3B 05 3D 37 3A 66 3D 74 28 31 29 3A 47 4F 53 );.=7:f=t(1):GOS
009160: 55 42 20 32 39 32 3A 4D 3D 39 38 3A 47 4F 54 4F UB 292:M=98:GOTO
009170: 20 34 32 31 0D 0A 32 38 39 20 49 46 20 4C 45 46 421..289 IF LEF
009180: 54 24 28 4D 49 44 24 28 64 24 28 6D 29 2C 34 29 T$(MID$(d$(m),4)
009190: 2C 36 29 3D 22 46 49 4E 41 4C 53 22 20 41 4E 44 ,6)="FINALS" AND
0091A0: 20 61 63 3C 32 39 20 41 4E 44 20 62 66 3E 30 20 ac<29 AND bf>0
0091B0: 54 48 45 4E 20 66 3D 62 68 2D 28 62 68 3D 30 29 THEN f=bh-(bh=0)
0091C0: 2A 37 3A 47 4F 53 55 42 20 32 39 32 3A 4D 3D 39 *7:GOSUB 292:M=9
0091D0: 38 3A 47 4F 54 4F 20 34 32 31 0D 0A 32 39 30 20 8:GOTO 421..290
0091E0: 46 4F 52 20 66 3D 62 6E 20 54 4F 20 33 30 3A 49 FOR f=bn TO 30:I
0091F0: 46 20 68 28 6D 29 3D 66 20 41 4E 44 20 64 24 28 F h(m)=f AND d$(
009200: 6D 29 3C 3E 22 22 20 41 4E 44 20 4C 45 46 54 24 m)<>"" AND LEFT$
009210: 28 64 24 28 6D 29 2C 32 29 3C 3E 22 54 4F 22 20 (d$(m),2)<>"TO"
009220: 41 4E 44 20 4C 45 46 54 24 28 4D 49 44 24 28 64 AND LEFT$(MID$(d
009230: 24 28 6D 29 2C 34 29 2C 36 29 3C 3E 22 46 49 4E $(m),4),6)<>"FIN
009240: 41 4C 53 22 20 41 4E 44 20 64 24 28 31 33 29 3D ALS" AND d$(13)=
009250: 22 22 20 C4 6D 54 48 45 4E 20 47 4F 53 55 42 20 "" .mTHEN GOSUB
009260: 32 39 32 3A 4D 3D 39 38 3A 46 3D 33 31 0D 0A 32 292:M=98:F=31..2
009270: 39 31 20 4E 45 58 54 3A 62 6E 3D 31 3A 47 4F 54 91 NEXT:bn=1:GOT
009280: 4F 20 34 32 31 0D 0A 32 39 32 20 46 4F 52 20 6B O 421..292 FOR k
009290: 3D 31 20 54 4F 20 34 30 3A 6E 28 31 2C 6B 29 3D =1 TO 40:n(1,k)=
0092A0: 6D 3A 72 61 3D 31 2B 49 4E 54 28 52 4E 44 2A 35 m:ra=1+INT(RND*5
0092B0: 30 29 3A 49 46 20 72 61 3D 39 20 54 48 45 4E 20 0):IF ra=9 THEN
0092C0: 6E 28 32 2C 6B 29 3D 66 2B 31 3A 47 4F 54 4F 20 n(2,k)=f+1:GOTO
0092D0: 32 39 34 0D 0A 32 39 33 20 6E 28 32 2C 6B 29 3D 294..293 n(2,k)=
0092E0: 31 2B 49 4E 54 28 52 4E 44 2A 28 66 2D 31 29 29 1+INT(RND*(f-1))
0092F0: 0D 0A 32 39 34 20 4E 45 58 54 0D 0A 32 39 35 20 ..294 NEXT..295
009300: 46 4F 52 20 6B 3D 31 20 54 4F 20 31 36 3A 49 46 FOR k=1 TO 16:IF
009310: 20 6E 28 32 2C 6B 29 3E 68 28 6E 28 31 2C 6B 29 n(2,k)>h(n(1,k)
009320: 29 20 54 48 45 4E 20 32 39 36 20 45 4C 53 45 20 ) THEN 296 ELSE
009330: 32 39 39 0D 0A 32 39 36 20 46 4F 52 20 6A 3D 31 299..296 FOR j=1
009340: 37 20 54 4F 20 32 34 3A 49 46 20 61 28 6A 29 3D 7 TO 24:IF a(j)=
009350: 30 20 4F 52 20 87 57 67 28 6A 29 3C 30 20 4F 52 0 OR .Wg(j)<0 OR
009360: 20 70 28 6A 29 3E 30 20 4F 52 20 6E 28 32 2C 6A p(j)>0 OR n(2,j
009370: 29 3E 68 28 6E 28 31 2C 6A 29 29 20 54 48 45 4E )>h(n(1,j)) THEN
009380: 20 32 39 38 0D 0A 32 39 37 20 61 64 3D 6B 3A 69 298..297 ad=k:i
009390: 3D 6A 3A 47 4F 53 55 42 20 31 39 35 3A 4A 3D 39 =j:GOSUB 195:J=9
0093A0: 38 0D 0A 32 39 38 20 4E 45 58 54 3A 49 46 20 4A 8..298 NEXT:IF J
0093B0: 3C 39 39 20 54 48 45 4E 20 6E 28 32 2C 6B 29 3D <99 THEN n(2,k)=
0093C0: 68 28 6E 28 31 2C 6B 29 29 0D 0A 32 39 39 20 4E h(n(1,k))..299 N
0093D0: 45 58 54 3A 47 4F 53 55 42 20 31 39 31 3A 52 45 EXT:GOSUB 191:RE
0093E0: 54 55 52 4E 0D 0A 33 30 30 20 49 46 20 62 6B 3D TURN..300 IF bk=
0093F0: 32 20 54 48 45 4E 20 31 35 33 0D 0A 33 30 31 20 2 THEN 153..301
009400: 47 4F 53 55 42 20 31 35 30 3A 49 46 20 66 28 72 GOSUB 150:IF f(r
009410: 61 29 3C 30 20 54 48 45 4E 20 33 30 31 0D 0A 33 a)<0 THEN 301..3
009420: 30 32 20 64 31 3D 72 61 3A 70 28 64 31 29 3D 31 02 d1=ra:p(d1)=1
009430: 2B 49 4E 54 28 52 4E 44 2A 39 39 29 3A 69 3D 72 +INT(RND*99):i=r
009440: 61 3A 47 4F 53 55 42 20 31 35 31 3A 47 4F 53 55 a:GOSUB 151:GOSU
009450: 42 20 32 31 31 3A 4C 4E 19 4F 43 41 54 45 20 31 B 211:LN.OCATE 1
009460: 2C 31 35 3A 50 52 49 4E 54 20 64 31 3B 7A 24 22 ,15:PRINT d1;z$"
009470: 20 22 3B 62 24 28 64 31 29 3B 49 4E 54 28 61 28 ";b$(d1);INT(a(
009480: 64 31 29 29 3B 22 49 4E 4A 55 52 45 44 22 3A 47 d1));"INJURED":G
009490: 4F 54 4F 20 31 36 39 0D 0A 33 30 33 20 49 46 20 OTO 169..303 IF
0094A0: 62 62 3D 31 20 54 48 45 4E 20 52 45 54 55 52 4E bb=1 THEN RETURN
0094B0: 0D 0A 33 30 34 20 44 45 46 20 46 4E 20 79 3D 37 ..304 DEF FN y=7
0094C0: 2B 49 4E 54 28 52 4E 44 2A 33 29 2D 49 4E 54 28 +INT(RND*3)-INT(
0094D0: 28 41 42 53 28 6B 28 67 34 29 29 2F 31 30 29 29 (ABS(k(g4))/10))
0094E0: 3A 62 62 3D 31 3A 61 69 3D 46 4E 20 79 3A 61 6A :bb=1:ai=FN y:aj
0094F0: 3D 46 4E 20 79 3A 61 6B 3D 46 4E 20 79 3A 61 6C =FN y:ak=FN y:al
009500: 3D 46 4E 20 79 3A 52 45 54 55 52 4E 0D 0A 33 30 =FN y:RETURN..30
009510: 35 20 46 4F 52 20 69 3D 31 20 54 4F 20 36 3A 49 5 FOR i=1 TO 6:I
009520: 46 20 62 69 3C 3D 72 28 32 2C 69 29 20 41 4E 44 F bi<=r(2,i) AND
009530: 20 62 69 3E 3D 72 28 31 2C 69 29 20 54 48 45 4E bi>=r(1,i) THEN
009540: 20 62 64 3D 69 3A 49 3D 37 0D 0A 33 30 36 20 4E bd=i:I=7..306 N
009550: 45 58 54 0D 0A 33 30 37 20 69 85 61 31 3D 31 2B EXT..307 i.a1=1+
009560: 72 28 32 2C 62 64 29 2D 72 28 31 2C 62 64 29 3A r(2,bd)-r(1,bd):
009570: 73 28 31 29 3D 62 69 3A 46 4F 52 20 69 3D 32 20 s(1)=bi:FOR i=2
009580: 54 4F 20 34 0D 0A 33 30 38 20 72 61 3D 72 28 31 TO 4..308 ra=r(1
009590: 2C 62 64 29 2B 49 4E 54 28 52 4E 44 2A 61 31 29 ,bd)+INT(RND*a1)
0095A0: 0D 0A 33 30 39 20 73 28 69 29 3D 72 61 3A 46 4F ..309 s(i)=ra:FO
0095B0: 52 20 78 3D 31 20 54 4F 20 69 2D 31 0D 0A 33 31 R x=1 TO i-1..31
0095C0: 30 20 49 46 20 72 61 3D 73 28 78 29 20 4F 52 20 0 IF ra=s(x) OR
0095D0: 61 24 28 72 61 29 3D 6A 24 28 31 29 20 4F 52 20 a$(ra)=j$(1) OR
0095E0: 61 24 28 72 61 29 3D 6A 24 28 32 29 20 4F 52 20 a$(ra)=j$(2) OR
0095F0: 61 24 28 72 61 29 3D 6A 24 28 33 29 20 4F 52 20 a$(ra)=j$(3) OR
009600: 61 24 28 72 61 29 3D 6A 24 28 34 29 20 54 48 45 a$(ra)=j$(4) THE
009610: 4E 20 33 30 38 0D 0A 33 31 31 20 4E 45 58 54 3A N 308..311 NEXT:
009620: 4E 45 58 54 3A 46 4F 52 20 69 3D 31 20 54 4F 20 NEXT:FOR i=1 TO
009630: 34 3A 67 24 28 69 29 3D 61 24 28 73 28 69 29 29 4:g$(i)=a$(s(i))
009640: 3A 4E 45 58 54 0D 0A 33 31 32 20 72 61 3D 31 3A :NEXT..312 ra=1:
009650: 46 4F 52 20 69 3D 31 20 54 4F 20 51 97 31 32 3A FOR i=1 TO Q.12:
009660: 68 24 28 69 29 3D 67 24 28 75 28 72 61 29 29 2B h$(i)=g$(u(ra))+
009670: 22 20 20 56 20 20 22 2B 67 24 28 75 28 72 61 2B " V "+g$(u(ra+
009680: 31 29 29 2B 43 48 52 24 28 33 32 29 3A 72 61 3D 1))+CHR$(32):ra=
009690: 72 61 2B 32 3A 4E 45 58 54 0D 0A 33 31 33 20 46 ra+2:NEXT..313 F
0096A0: 4F 52 20 69 3D 32 20 54 4F 20 31 32 20 53 54 45 OR i=2 TO 12 STE
0096B0: 50 20 32 3A 68 24 28 69 29 3D 4C 45 46 54 24 28 P 2:h$(i)=LEFT$(
0096C0: 68 24 28 69 29 2C 32 34 29 2B 65 24 28 69 29 2B h$(i),24)+e$(i)+
0096D0: 4D 49 44 24 28 68 24 28 69 29 2C 32 38 29 3A 72 MID$(h$(i),28):r
0096E0: 61 3D 32 2B 49 4E 54 28 52 4E 44 2A 32 39 29 3A a=2+INT(RND*29):
0096F0: 68 28 69 29 3D 72 61 3A 68 24 28 69 29 3D 4C 45 h(i)=ra:h$(i)=LE
009700: 46 54 24 28 68 24 28 69 29 2C 32 38 29 2B 53 54 FT$(h$(i),28)+ST
009710: 52 24 28 72 61 29 2B 4D 49 44 24 28 68 24 28 69 R$(ra)+MID$(h$(i
009720: 29 2C 33 31 29 3A 68 24 28 69 2D 31 29 3D 4C 45 ),31):h$(i-1)=LE
009730: 46 54 24 28 68 24 28 69 2D 31 29 2C 32 34 29 2B FT$(h$(i-1),24)+
009740: 65 24 28 69 29 2B 4D 49 44 24 28 68 24 28 69 2D e$(i)+MID$(h$(i-
009750: 31 29 2C 32 38 29 0D 0A 33 31 34 20 68 9F AD 24 1),28)..314 h..$
009760: 28 69 2D 31 29 3D 4C 45 46 54 24 28 68 24 28 69 (i-1)=LEFT$(h$(i
009770: 2D 31 29 2C 32 38 29 2B 53 54 52 24 28 72 61 29 -1),28)+STR$(ra)
009780: 2B 4D 49 44 24 28 68 24 28 69 2D 31 29 2C 33 31 +MID$(h$(i-1),31
009790: 29 0D 0A 33 31 35 20 49 46 20 4C 45 46 54 24 28 )..315 IF LEFT$(
0097A0: 68 24 28 69 2D 31 29 2C 39 29 3D 79 24 28 31 29 h$(i-1),9)=y$(1)
0097B0: 20 54 48 45 4E 20 64 24 28 69 29 3D 4C 45 46 54 THEN d$(i)=LEFT
0097C0: 24 28 4D 49 44 24 28 68 24 28 69 2D 31 29 2C 31 $(MID$(h$(i-1),1
0097D0: 35 29 2C 39 29 3A 64 24 28 69 29 3D 4C 45 46 54 5),9):d$(i)=LEFT
0097E0: 24 28 64 24 28 69 29 2C 39 29 2B 22 48 22 3A 64 $(d$(i),9)+"H":d
0097F0: 24 28 69 29 3D 4C 45 46 54 24 28 64 24 28 69 29 $(i)=LEFT$(d$(i)
009800: 2C 31 30 29 2B 43 48 52 24 28 36 39 2D 28 62 65 ,10)+CHR$(69-(be
009810: 3D 32 29 2A 31 38 29 2B 22 51 22 3A 47 4F 54 4F =2)*18)+"Q":GOTO
009820: 20 33 31 37 0D 0A 33 31 36 20 64 24 28 69 29 3D 317..316 d$(i)=
009830: 4C 45 46 54 24 28 68 24 28 69 2D 31 29 2C 39 29 LEFT$(h$(i-1),9)
009840: 2B 4D 49 44 24 28 64 24 28 69 29 2C 31 30 29 3A +MID$(d$(i),10):
009850: 64 24 28 69 29 3D 4C 45 46 54 24 28 64 24 28 E6 d$(i)=LEFT$(d$(.
009860: 4E FF FF FF FF 11 9C 04 7B 02 2C 02 69 02 D4 04 N.......{.,.i...
009870: F4 0F 08 14 00 07 01 00 2C 49 2E 4D 41 4E 41 47 ........,I.MANAG
009880: 45 52 00 00 00 00 00 00 00 0D 00 16 00 08 7C 9E ER............|.
009890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0098A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0098B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0098C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0098D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0098E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0098F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009900: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009910: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009920: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009930: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009940: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009950: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009970: 00 00 00 00 00 00 00 00 00 F8 61 FF FF FF FF 11 ..........a.....
009980: 9C 04 2C 02 7B 02 4B 02 97 04 F6 0F 08 4D 0B 15 ..,.{.K......M..
009990: 08 00 16 69 29 2C 39 29 2B 22 41 22 2B 4D 49 44 ...i),9)+"A"+MID
0099A0: 24 28 64 24 28 69 29 2C 31 31 29 3A 64 24 28 69 $(d$(i),11):d$(i
0099B0: 29 3D 4C 45 46 54 24 28 64 24 28 69 29 2C 31 30 )=LEFT$(d$(i),10
0099C0: 29 2B 43 48 52 24 28 36 39 2D 28 62 65 3D 32 29 )+CHR$(69-(be=2)
0099D0: 2A 31 38 29 2B 22 51 22 2B 4D 49 44 24 28 64 24 *18)+"Q"+MID$(d$
0099E0: 28 69 29 2C 31 33 29 0D 0A 33 31 37 20 4E 45 58 (i),13)..317 NEX
0099F0: 54 3A 52 45 54 55 52 4E 0D 0A 33 31 38 20 47 4F T:RETURN..318 GO
009A00: 53 55 42 20 33 31 39 3A 47 4F 54 4F 20 33 33 30 SUB 319:GOTO 330
009A10: 0D 0A 33 31 39 20 43 4C 53 3A 49 46 20 41 42 53 ..319 CLS:IF ABS
009A20: 28 62 65 29 3D 32 20 54 48 45 4E 20 33 32 31 0D (be)=2 THEN 321.
009A30: 0A 33 32 30 20 47 4F 53 55 42 20 33 36 37 3A 47 .320 GOSUB 367:G
009A40: 4F 53 55 42 20 33 36 31 3A 47 4F 53 55 42 20 33 OSUB 361:GOSUB 3
009A50: 36 35 3A 72 61 3D 31 3A 4C 4F 43 41 54 45 20 35 65:ra=1:LOCATE 5
009A60: 2C 31 3A 50 45 4E 20 32 3A 50 52 49 4E 54 20 6C ,1:PEN 2:PRINT l
009A70: 24 3B 22 53 22 3A 47 4F 54 4F 20 33 32 32 0D 0A $;"S":GOTO 322..
009A80: 33 32 31 20 47 4F 53 55 42 20 33 36 37 3A 47 4F 321 GOSUB 367:GO
009A90: 53 55 42 F1 5A 20 33 36 30 3A 47 4F 53 55 42 20 SUB.Z 360:GOSUB
009AA0: 33 36 35 3A 72 61 3D 33 3A 4C 4F 43 41 54 45 20 365:ra=3:LOCATE
009AB0: 31 30 2C 31 3A 50 45 4E 20 32 3A 50 52 49 4E 54 10,1:PEN 2:PRINT
009AC0: 20 6C 24 3B 22 53 22 0D 0A 33 32 32 20 4C 4F 43 l$;"S"..322 LOC
009AD0: 41 54 45 20 33 2C 32 33 3A 50 52 49 4E 54 22 48 ATE 3,23:PRINT"H
009AE0: 20 22 3B 3A 50 45 4E 20 31 3A 50 52 49 4E 54 20 ";:PEN 1:PRINT
009AF0: 6A 24 28 72 61 2B 31 29 3A 4C 4F 43 41 54 45 20 j$(ra+1):LOCATE
009B00: 32 34 2C 32 33 3A 50 45 4E 20 32 3A 50 52 49 4E 24,23:PEN 2:PRIN
009B10: 54 22 57 20 22 3B 3A 50 45 4E 20 31 3A 50 52 49 T"W ";:PEN 1:PRI
009B20: 4E 54 20 6A 24 28 72 61 29 0D 0A 33 32 33 20 46 NT j$(ra)..323 F
009B30: 4F 52 20 69 3D 31 20 54 4F 20 31 35 3A 49 46 20 OR i=1 TO 15:IF
009B40: 69 3D 31 20 54 48 45 4E 20 33 32 34 20 45 4C 53 i=1 THEN 324 ELS
009B50: 45 20 49 46 20 69 3D 32 20 54 48 45 4E 20 33 32 E IF i=2 THEN 32
009B60: 35 20 45 4C 53 45 20 49 46 20 69 3D 34 20 54 48 5 ELSE IF i=4 TH
009B70: 45 4E 20 33 32 36 20 45 4C 53 45 20 49 46 20 69 EN 326 ELSE IF i
009B80: 3D 38 20 54 48 45 4E 20 33 32 37 20 45 4C 53 45 =8 THEN 327 ELSE
009B90: 20 33 32 38 0D B2 5F 0A 33 32 34 20 47 4F 53 55 328.._.324 GOSU
009BA0: 42 20 33 36 37 3A 47 4F 53 55 42 20 33 36 35 3A B 367:GOSUB 365:
009BB0: 78 3D 33 3A 79 3D 31 34 3A 47 4F 53 55 42 20 33 x=3:y=14:GOSUB 3
009BC0: 32 39 3A 47 4F 54 4F 20 33 32 38 0D 0A 33 32 35 29:GOTO 328..325
009BD0: 20 47 4F 53 55 42 20 33 36 37 3A 47 4F 53 55 42 GOSUB 367:GOSUB
009BE0: 20 33 36 34 3A 47 4F 53 55 42 20 33 36 35 3A 78 364:GOSUB 365:x
009BF0: 3D 35 3A 79 3D 31 32 3A 47 4F 53 55 42 20 33 32 =5:y=12:GOSUB 32
009C00: 39 3A 47 4F 54 4F 20 33 32 38 0D 0A 33 32 36 20 9:GOTO 328..326
009C10: 47 4F 53 55 42 20 33 36 37 3A 47 4F 53 55 42 20 GOSUB 367:GOSUB
009C20: 33 36 33 3A 47 4F 53 55 42 20 33 36 35 3A 78 3D 363:GOSUB 365:x=
009C30: 38 3A 79 3D 39 3A 47 4F 53 55 42 20 33 32 39 3A 8:y=9:GOSUB 329:
009C40: 47 4F 54 4F 20 33 32 38 0D 0A 33 32 37 20 47 4F GOTO 328..327 GO
009C50: 53 55 42 20 33 36 37 3A 47 4F 53 55 42 20 33 36 SUB 367:GOSUB 36
009C60: 32 3A 78 3D 31 33 3A 79 3D 31 32 3A 47 4F 53 55 2:x=13:y=12:GOSU
009C70: 42 20 33 32 39 3A 49 46 20 69 3D 31 35 20 54 48 B 329:IF i=15 TH
009C80: 45 4E 20 52 45 54 55 52 4E 0D 0A 33 32 38 20 50 EN RETURN..328 P
009C90: 52 49 4E 54 20 54 41 0C 73 42 28 35 29 3B 68 24 RINT TA.sB(5);h$
009CA0: 28 69 29 3A 4E 45 58 54 3A 52 45 54 55 52 4E 0D (i):NEXT:RETURN.
009CB0: 0A 33 32 39 20 4C 4F 43 41 54 45 20 79 2C 78 3A .329 LOCATE y,x:
009CC0: 50 45 4E 20 32 3A 50 52 49 4E 54 20 6C 24 3A 50 PEN 2:PRINT l$:P
009CD0: 45 4E 20 31 3A 52 45 54 55 52 4E 0D 0A 33 33 30 EN 1:RETURN..330
009CE0: 20 47 4F 53 55 42 20 33 37 35 3A 47 4F 54 4F 20 GOSUB 375:GOTO
009CF0: 33 33 30 0D 0A 33 33 31 20 47 4F 53 55 42 20 33 330..331 GOSUB 3
009D00: 37 38 3A 62 7A 3D 31 34 3A 46 4F 52 20 69 3D 78 78:bz=14:FOR i=x
009D10: 78 20 54 4F 20 79 79 0D 0A 33 33 32 20 53 24 3D x TO yy..332 S$=
009D20: 4C 45 46 54 24 28 48 24 28 49 29 2C 39 29 3A 47 LEFT$(H$(I),9):G
009D30: 4F 53 55 42 20 33 34 39 3A 41 31 3D 47 34 3A 53 OSUB 349:A1=G4:S
009D40: 24 3D 4D 49 44 24 28 48 24 28 49 29 2C 31 35 2C $=MID$(H$(I),15,
009D50: 39 29 3A 47 4F 53 55 42 20 33 34 39 3A 41 32 3D 9):GOSUB 349:A2=
009D60: 47 34 3A 47 4F 53 55 42 20 33 33 36 3A 48 24 28 G4:GOSUB 336:H$(
009D70: 49 29 3D 4C 45 46 54 24 28 48 24 28 49 29 2C 31 I)=LEFT$(H$(I),1
009D80: 30 29 2B 53 54 52 24 28 52 29 2B 22 56 22 2B 53 0)+STR$(R)+"V"+S
009D90: 54 52 24 28 53 29 2B 4D 49 8D 42 44 24 28 48 24 TR$(S)+MI.BD$(H$
009DA0: 28 49 29 2C 31 34 29 3A 4C 4F 43 41 54 45 20 35 (I),14):LOCATE 5
009DB0: 2C 42 5A 3A 50 45 4E 20 31 3A 50 52 49 4E 54 20 ,BZ:PEN 1:PRINT
009DC0: 68 24 28 69 29 3A 62 7A 3D 62 7A 2B 31 3A 4E 45 h$(i):bz=bz+1:NE
009DD0: 58 54 0D 0A 33 33 33 20 49 46 20 77 3D 31 20 54 XT..333 IF w=1 T
009DE0: 48 45 4E 20 77 3D 30 3A 47 4F 54 4F 20 33 33 34 HEN w=0:GOTO 334
009DF0: 20 45 4C 53 45 20 50 45 4E 20 32 3A 4C 4F 43 41 ELSE PEN 2:LOCA
009E00: 54 45 20 31 34 2C 32 33 3A 50 52 49 4E 54 22 50 TE 14,23:PRINT"P
009E10: 52 45 53 53 20 41 20 4B 45 59 22 3A 43 41 4C 4C RESS A KEY":CALL
009E20: 20 26 42 42 31 38 0D 0A 33 33 34 20 52 45 54 55 &BB18..334 RETU
009E30: 52 4E 0D 0A 33 33 35 20 62 66 3D 62 66 2B 28 72 RN..335 bf=bf+(r
009E40: 3C 73 29 2A 62 66 2A 32 3A 52 45 54 55 52 4E 0D <s)*bf*2:RETURN.
009E50: 0A 33 33 36 20 72 3D 2D 32 2B 49 4E 54 28 52 4E .336 r=-2+INT(RN
009E60: 44 2A 37 29 2D 28 41 42 53 28 4B 28 41 31 29 29 D*7)-(ABS(K(A1))
009E70: 3C 41 42 53 28 4B 28 41 32 29 29 29 2A 33 3A 52 <ABS(K(A2)))*3:R
009E80: 3D 49 4E 54 28 52 2D 32 29 3A 52 3D 52 2B 28 52 =INT(R-2):R=R+(R
009E90: 3C 30 29 2A 52 3A 53 3D 2D 32 2B 4A 30 49 4E 54 <0)*R:S=-2+J0INT
009EA0: 28 52 4E 44 2A 36 29 2D 28 41 42 53 28 4B 28 41 (RND*6)-(ABS(K(A
009EB0: 32 29 29 3C 41 42 53 28 4B 28 41 31 29 29 29 2A 2))<ABS(K(A1)))*
009EC0: 33 3A 53 3D 49 4E 54 28 53 2D 32 29 3A 53 3D 53 3:S=INT(S-2):S=S
009ED0: 2B 28 53 3C 30 29 2A 53 3A 49 46 20 61 62 3D 36 +(S<0)*S:IF ab=6
009EE0: 20 41 4E 44 20 61 63 3D 62 68 20 41 4E 44 20 72 AND ac=bh AND r
009EF0: 3D 73 20 54 48 45 4E 20 33 33 36 0D 0A 33 33 37 =s THEN 336..337
009F00: 20 52 45 54 55 52 4E 0D 0A 33 33 38 20 46 4F 52 RETURN..338 FOR
009F10: 20 6C 3D 31 20 54 4F 20 35 3A 46 4F 52 20 69 3D l=1 TO 5:FOR i=
009F20: 37 20 54 4F 20 31 20 53 54 45 50 2D 31 3A 72 24 7 TO 1 STEP-1:r$
009F30: 3D 4C 45 46 54 24 28 68 24 28 69 29 2C 39 29 3A =LEFT$(h$(i),9):
009F40: 73 24 3D 4D 49 44 24 28 48 24 28 49 29 2C 31 35 s$=MID$(H$(I),15
009F50: 2C 39 29 3A 46 4F 52 20 6A 3D 31 20 54 4F 20 36 ,9):FOR j=1 TO 6
009F60: 30 3A 49 46 20 61 24 28 6A 29 3D 72 24 20 54 48 0:IF a$(j)=r$ TH
009F70: 45 4E 20 72 61 3D 6A 3A 72 62 3D 41 42 53 28 6B EN ra=j:rb=ABS(k
009F80: 28 6A 29 29 0D 0A 33 33 39 20 49 46 20 61 24 28 (j))..339 IF a$(
009F90: 6A 29 3D 73 24 20 54 48 45 4E 20 72 63 D5 CB 3D j)=s$ THEN rc..=
009FA0: 6A 3A 72 64 3D 41 42 53 28 6B 28 6A 29 29 0D 0A j:rd=ABS(k(j))..
009FB0: 33 34 30 20 4E 45 58 54 3A 46 4F 52 20 6B 3D 31 340 NEXT:FOR k=1
009FC0: 20 54 4F 20 36 30 3A 49 46 20 41 42 53 28 6B 28 TO 60:IF ABS(k(
009FD0: 6B 29 29 3D 28 72 62 2D 31 29 20 54 48 45 4E 20 k))=(rb-1) THEN
009FE0: 65 31 3D 6B 28 6B 29 3A 6B 28 6B 29 3D 6B 28 72 e1=k(k):k(k)=k(r
009FF0: 61 29 3A 6B 28 72 61 29 3D 65 31 0D 0A 33 34 31 a):k(ra)=e1..341
00A000: 20 49 46 20 41 42 53 28 6B 28 6B 29 29 3D 72 64 IF ABS(k(k))=rd
00A010: 2D 31 20 54 48 45 4E 20 65 31 3D 6B 28 6B 29 3A -1 THEN e1=k(k):
00A020: 6B 28 6B 29 3D 6B 28 72 63 29 3A 6B 28 72 63 29 k(k)=k(rc):k(rc)
00A030: 3D 65 31 0D 0A 33 34 32 20 4E 45 58 54 20 6B 2C =e1..342 NEXT k,
00A040: 69 2C 6C 3A 6B 28 62 69 29 3D 6B 28 62 69 29 2B i,l:k(bi)=k(bi)+
00A050: 28 6B 28 62 69 29 3E 30 29 2A 28 6B 28 62 69 29 (k(bi)>0)*(k(bi)
00A060: 2A 32 29 3A 52 45 54 55 52 4E 0D 0A 33 34 33 20 *2):RETURN..343
00A070: 49 46 20 62 6D 3D 31 20 54 48 45 4E 20 52 45 54 IF bm=1 THEN RET
00A080: 55 52 4E 0D 0A 33 34 34 20 43 4C 53 3A 62 6D 3D URN..344 CLS:bm=
00A090: 31 3A 49 46 20 4C 45 46 54 24 28 64 24 28 61 4A 1:IF LEFT$(d$(aJ
00A0A0: 5C 62 29 2C 34 29 3D 22 54 4F 55 52 22 20 4F 52 \b),4)="TOUR" OR
00A0B0: 20 52 49 47 48 54 24 28 4C 45 46 54 24 28 64 24 RIGHT$(LEFT$(d$
00A0C0: 28 61 62 29 2C 39 29 2C 36 29 3D 22 46 49 4E 41 (ab),9),6)="FINA
00A0D0: 4C 53 22 20 54 48 45 4E 20 33 35 31 0D 0A 33 34 LS" THEN 351..34
00A0E0: 35 20 62 6A 3D 68 28 61 62 29 3A 61 6D 3D 31 2D 5 bj=h(ab):am=1-
00A0F0: 28 4D 49 44 24 28 4C 45 46 54 24 28 64 24 28 61 (MID$(LEFT$(d$(a
00A100: 62 29 2C 31 30 29 2C 31 30 29 3D 22 41 22 29 3A b),10),10)="A"):
00A110: 72 24 3D 79 24 28 31 29 3A 73 24 3D 4C 45 46 54 r$=y$(1):s$=LEFT
00A120: 24 28 64 24 28 61 62 29 2C 39 29 3A 47 4F 53 55 $(d$(ab),9):GOSU
00A130: 42 20 33 34 39 0D 0A 33 34 36 20 49 46 20 4C 45 B 349..346 IF LE
00A140: 46 54 24 28 4D 49 44 24 28 64 24 28 61 62 29 2C FT$(MID$(d$(ab),
00A150: 31 31 29 2C 31 29 3D 22 46 22 20 54 48 45 4E 20 11),1)="F" THEN
00A160: 6E 24 3D 22 46 52 49 45 4E 44 4C 59 22 3A 52 45 n$="FRIENDLY":RE
00A170: 54 55 52 4E 0D 0A 33 34 37 20 49 46 20 4D 49 44 TURN..347 IF MID
00A180: 24 28 64 24 28 61 62 29 2C 31 31 29 3D 22 45 51 $(d$(ab),11)="EQ
00A190: 22 20 54 48 45 4E 20 47 4F 53 55 42 20 33 36 31 " THEN GOSUB 361
00A1A0: 3A 46 77 FF FF FF FF 11 9C 04 2C 02 7B 02 6B 02 :Fw.......,.{.k.
00A1B0: D7 04 F4 0F 08 14 00 07 01 00 2C 49 2E 4D 41 4E ..........,I.MAN
00A1C0: 41 47 45 52 00 00 00 00 00 00 00 0E 00 16 00 08 AGER............
00A1D0: 7C 9E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |...............
00A1E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A1F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A200: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A210: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A230: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A240: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A250: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A2A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A2B0: 00 00 00 00 00 00 00 00 00 00 00 C1 5D FF FF FF ............]...
00A2C0: FF 11 9C 04 7B 02 2C 02 4B 02 96 04 F6 0F 08 4B ....{.,.K......K
00A2D0: 0B 15 08 00 16 47 4F 53 55 42 20 33 36 36 3A 6E .....GOSUB 366:n
00A2E0: 24 3D 6C 24 3A 52 45 54 55 52 4E 0D 0A 33 34 38 $=l$:RETURN..348
00A2F0: 20 47 4F 53 55 42 20 33 36 30 3A 47 4F 53 55 42 GOSUB 360:GOSUB
00A300: 20 33 36 36 3A 6E 24 3D 6C 24 3A 52 45 54 55 52 366:n$=l$:RETUR
00A310: 4E 0D 0A 33 34 39 20 46 4F 52 20 4E 3D 31 20 54 N..349 FOR N=1 T
00A320: 4F 20 36 30 3A 49 46 20 61 24 28 4E 29 3D 73 24 O 60:IF a$(N)=s$
00A330: 20 54 48 45 4E 20 67 34 3D 4E 3A 4E 3D 36 31 0D THEN g4=N:N=61.
00A340: 0A 33 35 30 20 4E 45 58 54 3A 52 45 54 55 52 4E .350 NEXT:RETURN
00A350: 0D 0A 33 35 31 20 49 46 20 52 49 47 48 54 24 28 ..351 IF RIGHT$(
00A360: 4C 45 46 54 24 28 64 24 28 61 62 29 2C 39 29 2C LEFT$(d$(ab),9),
00A370: 36 29 3D 22 46 49 4E 41 4C 53 22 20 54 48 45 4E 6)="FINALS" THEN
00A380: 20 33 35 33 0D 0A 33 35 32 20 6E 24 3D 22 54 4F 353..352 n$="TO
00A390: 55 52 22 3A 62 6A 3D 31 2D 49 4E 54 28 68 28 61 UR":bj=1-INT(h(a
00A3A0: 62 29 3D 31 34 29 2D 28 68 28 61 62 29 3D 32 31 b)=14)-(h(ab)=21
00A3B0: 29 2A 32 2D 28 68 28 61 62 29 3D 32 38 29 2A 33 )*2-(h(ab)=28)*3
00A3C0: 3A 61 6D 3D 32 3A 73 24 3D 4C 45 46 54 24 28 74 :am=2:s$=LEFT$(t
00A3D0: 24 28 74 31 29 A0 54 2C 39 29 3A 72 24 3D 79 24 $(t1).T,9):r$=y$
00A3E0: 28 31 29 3A 47 4F 53 55 42 20 33 34 39 3A 52 45 (1):GOSUB 349:RE
00A3F0: 54 55 52 4E 0D 0A 33 35 33 20 61 6D 3D 32 2B 28 TURN..353 am=2+(
00A400: 6A 24 28 32 29 3D 79 24 28 31 29 20 41 4E 44 20 j$(2)=y$(1) AND
00A410: 62 66 3D 31 20 4F 52 20 6A 24 28 34 29 3D 79 24 bf=1 OR j$(4)=y$
00A420: 28 31 29 20 41 4E 44 20 62 66 3D 32 29 0D 0A 33 (1) AND bf=2)..3
00A430: 35 34 20 49 46 20 62 66 3D 31 20 54 48 45 4E 20 54 IF bf=1 THEN
00A440: 47 4F 53 55 42 20 33 36 31 20 45 4C 53 45 20 47 GOSUB 361 ELSE G
00A450: 4F 53 55 42 20 33 36 30 0D 0A 33 35 35 20 62 6A OSUB 360..355 bj
00A460: 3D 62 68 3A 49 46 20 62 68 3D 31 34 20 54 48 45 =bh:IF bh=14 THE
00A470: 4E 20 33 35 37 20 45 4C 53 45 20 49 46 20 62 68 N 357 ELSE IF bh
00A480: 3D 32 31 20 54 48 45 4E 20 33 35 38 20 45 4C 53 =21 THEN 358 ELS
00A490: 45 20 49 46 20 62 68 3D 32 38 20 54 48 45 4E 20 E IF bh=28 THEN
00A4A0: 33 35 39 0D 0A 33 35 36 20 47 4F 53 55 42 20 33 359..356 GOSUB 3
00A4B0: 36 32 3A 72 24 3D 79 24 28 31 29 3A 73 24 3D 52 62:r$=y$(1):s$=R
00A4C0: 49 47 48 54 24 28 4C 45 46 54 24 28 68 24 28 38 IGHT$(LEFT$(h$(8
00A4D0: 29 2C 32 33 29 2C 39 EA FE 29 3A 62 6A 3D 37 3A ),23),9..):bj=7:
00A4E0: 47 4F 53 55 42 20 33 34 39 3A 6E 24 3D 6C 24 3A GOSUB 349:n$=l$:
00A4F0: 52 45 54 55 52 4E 0D 0A 33 35 37 20 47 4F 53 55 RETURN..357 GOSU
00A500: 42 20 33 36 33 3A 47 4F 53 55 42 20 33 36 35 3A B 363:GOSUB 365:
00A510: 72 24 3D 79 24 28 31 29 3A 73 24 3D 52 49 47 48 r$=y$(1):s$=RIGH
00A520: 54 24 28 4C 45 46 54 24 28 68 24 28 34 29 2C 32 T$(LEFT$(h$(4),2
00A530: 33 29 2C 39 29 3A 62 6A 3D 31 34 3A 47 4F 53 55 3),9):bj=14:GOSU
00A540: 42 20 33 34 39 3A 6E 24 3D 6C 24 3A 52 45 54 55 B 349:n$=l$:RETU
00A550: 52 4E 0D 0A 33 35 38 20 47 4F 53 55 42 20 33 36 RN..358 GOSUB 36
00A560: 34 3A 47 4F 53 55 42 20 33 36 35 3A 72 24 3D 79 4:GOSUB 365:r$=y
00A570: 24 28 31 29 3A 73 24 3D 52 49 47 48 54 24 28 4C $(1):s$=RIGHT$(L
00A580: 45 46 54 24 28 68 24 28 32 29 2C 32 33 29 2C 39 EFT$(h$(2),23),9
00A590: 29 3A 62 6A 3D 32 31 3A 47 4F 53 55 42 20 33 34 ):bj=21:GOSUB 34
00A5A0: 39 3A 6E 24 3D 6C 24 3A 52 45 54 55 52 4E 0D 0A 9:n$=l$:RETURN..
00A5B0: 33 35 39 20 47 4F 53 55 42 20 33 36 35 3A 72 24 359 GOSUB 365:r$
00A5C0: 3D 79 24 28 31 29 3A 73 24 3D 52 49 47 48 54 24 =y$(1):s$=RIGHT$
00A5D0: 28 4C 45 46 54 24 28 68 24 47 00 28 31 29 2C 32 (LEFT$(h$G.(1),2
00A5E0: 33 29 2C 39 29 3A 62 6A 3D 32 38 3A 47 4F 53 55 3),9):bj=28:GOSU
00A5F0: 42 20 33 34 39 3A 6E 24 3D 6C 24 3A 52 45 54 55 B 349:n$=l$:RETU
00A600: 52 4E 0D 0A 33 36 30 20 6C 24 3D 22 57 4F 52 4C RN..360 l$="WORL
00A610: 44 20 43 55 50 22 3A 52 45 54 55 52 4E 0D 0A 33 D CUP":RETURN..3
00A620: 36 31 20 6C 24 3D 22 45 55 52 4F 50 45 41 4E 20 61 l$="EUROPEAN
00A630: 43 48 41 4D 50 49 4F 4E 53 48 49 50 22 3A 52 45 CHAMPIONSHIP":RE
00A640: 54 55 52 4E 0D 0A 33 36 32 20 6C 24 3D 6C 24 2B TURN..362 l$=l$+
00A650: 22 20 31 53 54 20 52 4F 55 4E 44 22 3A 52 45 54 " 1ST ROUND":RET
00A660: 55 52 4E 0D 0A 33 36 33 20 4C 24 3D 4C 24 2B 22 URN..363 L$=L$+"
00A670: 20 51 55 41 52 54 45 52 22 3A 52 45 54 55 52 4E QUARTER":RETURN
00A680: 0D 0A 33 36 34 20 4C 24 3D 4C 24 2B 22 20 53 45 ..364 L$=L$+" SE
00A690: 4D 49 22 3A 52 45 54 55 52 4E 0D 0A 33 36 35 20 MI":RETURN..365
00A6A0: 4C 24 3D 4C 24 2B 22 20 46 49 4E 41 4C 22 3A 52 L$=L$+" FINAL":R
00A6B0: 45 54 55 52 4E 0D 0A 33 36 36 20 4C 24 3D 4C 24 ETURN..366 L$=L$
00A6C0: 2B 22 20 51 55 41 4C 49 46 49 45 52 22 3A 52 45 +" QUALIFIER":RE
00A6D0: 54 55 52 4E 0D 0A 33 36 37 20 4C 93 65 24 3D 22 TURN..367 L.e$="
00A6E0: 22 3A 52 45 54 55 52 4E 0D 0A 33 36 38 20 4C 4F ":RETURN..368 LO
00A6F0: 43 41 54 45 20 32 36 2C 72 62 3A 50 52 49 4E 54 CATE 26,rb:PRINT
00A700: 22 52 45 54 49 52 45 44 22 3A 47 4F 54 4F 20 37 "RETIRED":GOTO 7
00A710: 38 0D 0A 33 36 39 20 4C 4F 43 41 54 45 20 32 36 8..369 LOCATE 26
00A720: 2C 72 62 3A 50 52 49 4E 54 22 53 55 53 50 45 4E ,rb:PRINT"SUSPEN
00A730: 44 45 44 22 3A 47 4F 54 4F 20 37 38 0D 0A 33 37 DED":GOTO 78..37
00A740: 30 20 72 62 3D 31 35 3A 46 4F 52 20 7A 3D 78 31 0 rb=15:FOR z=x1
00A750: 20 54 4F 20 78 32 3A 49 46 20 6A 24 28 7A 29 3D TO x2:IF j$(z)=
00A760: 79 24 28 31 29 20 54 48 45 4E 20 68 24 28 72 62 y$(1) THEN h$(rb
00A770: 29 3D 4C 45 46 54 24 28 68 24 28 72 62 29 2C 31 )=LEFT$(h$(rb),1
00A780: 36 29 2B 4C 45 46 54 24 28 68 24 28 38 29 2C 39 6)+LEFT$(h$(8),9
00A790: 29 2B 4D 49 44 24 28 68 24 28 72 62 29 2C 32 36 )+MID$(h$(rb),26
00A7A0: 29 3A 68 24 28 38 29 3D 79 24 28 31 29 2B 4D 49 ):h$(8)=y$(1)+MI
00A7B0: 44 24 28 68 24 28 38 29 2C 31 30 29 3A 5A 3D 39 D$(h$(8),10):Z=9
00A7C0: 38 0D 0A 33 37 31 20 72 61 3D 72 61 2D 31 3A 4E 8..371 ra=ra-1:N
00A7D0: 45 58 54 3A 52 45 54 55 52 4E 0D 0A 33 7F 81 37 EXT:RETURN..3..7
00A7E0: 32 20 47 4F 53 55 42 20 32 38 36 3A 47 4F 54 4F 2 GOSUB 286:GOTO
00A7F0: 20 31 30 38 0D 0A 33 37 33 20 4C 4F 43 41 54 45 108..373 LOCATE
00A800: 20 31 2C 32 31 3A 50 45 4E 20 33 3A 50 52 49 4E 1,21:PEN 3:PRIN
00A810: 54 20 53 50 41 43 45 24 28 31 34 29 3B 22 50 4C T SPACE$(14);"PL
00A820: 45 41 53 45 20 57 41 49 54 22 53 50 41 43 45 24 EASE WAIT"SPACE$
00A830: 28 31 32 29 3A 52 45 54 55 52 4E 0D 0A 33 37 34 (12):RETURN..374
00A840: 20 72 61 3D 31 33 3A 52 45 54 55 52 4E 0D 0A 33 ra=13:RETURN..3
00A850: 37 35 20 4C 4F 43 41 54 45 20 31 36 2C 32 33 3A 75 LOCATE 16,23:
00A860: 50 45 4E 20 32 3A 50 52 49 4E 54 22 4D 2D 4D 45 PEN 2:PRINT"M-ME
00A870: 4E 55 22 3A 50 45 4E 20 31 0D 0A 33 37 36 20 71 NU":PEN 1..376 q
00A880: 24 3D 49 4E 4B 45 59 24 3A 49 46 20 71 24 3D 22 $=INKEY$:IF q$="
00A890: 22 20 54 48 45 4E 20 33 37 37 20 45 4C 53 45 20 " THEN 377 ELSE
00A8A0: 71 24 3D 55 50 50 45 52 24 28 71 24 29 3A 49 46 q$=UPPER$(q$):IF
00A8B0: 20 71 24 3D 22 4D 22 20 54 48 45 4E 20 31 30 38 q$="M" THEN 108
00A8C0: 0D 0A 33 37 37 20 52 45 54 55 52 4E 0D 0A 33 37 ..377 RETURN..37
00A8D0: 38 20 46 4F 52 20 69 3D 31 37 20 54 4F 20 32 F0 8 FOR i=17 TO 2.
00A8E0: 4D 32 3A 4C 4F 43 41 54 45 20 31 2C 69 3A 50 52 M2:LOCATE 1,i:PR
00A8F0: 49 4E 54 20 53 50 41 43 45 24 28 34 30 29 3A 4E INT SPACE$(40):N
00A900: 45 58 54 3A 52 45 54 55 52 4E 0D 0A 33 37 39 20 EXT:RETURN..379
00A910: 46 4F 52 20 69 3D 31 20 54 4F 20 34 3A 49 46 20 FOR i=1 TO 4:IF
00A920: 61 63 3D 74 28 69 29 20 54 48 45 4E 20 7A 7A 3D ac=t(i) THEN zz=
00A930: 31 3A 74 31 3D 69 3A 68 28 61 62 29 3D 74 28 74 1:t1=i:h(ab)=t(t
00A940: 31 29 3A 49 3D 39 38 0D 0A 33 38 30 20 4E 45 58 1):I=98..380 NEX
00A950: 54 3A 49 46 20 49 3D 39 39 20 54 48 45 4E 20 31 T:IF I=99 THEN 1
00A960: 31 30 20 45 4C 53 45 20 52 45 54 55 52 4E 0D 0A 10 ELSE RETURN..
00A970: 33 38 31 20 42 47 3D 42 47 2D 28 42 47 3D 30 29 381 BG=BG-(BG=0)
00A980: 2B 28 42 47 3D 31 29 3A 52 45 54 55 52 4E 0D 0A +(BG=1):RETURN..
00A990: 33 38 32 20 72 61 3D 31 2D 28 69 3D 31 29 2A 33 382 ra=1-(i=1)*3
00A9A0: 2D 28 69 3D 32 29 2A 33 2D 28 69 3D 33 29 3A 52 -(i=2)*3-(i=3):R
00A9B0: 45 54 55 52 4E 0D 0A 33 38 33 20 43 4C 53 3A 50 ETURN..383 CLS:P
00A9C0: 45 4E 20 31 3A 4C 4F 43 41 54 45 20 31 31 2C 31 EN 1:LOCATE 11,1
00A9D0: 32 3A 50 52 49 4E 54 22 49 4E 53 45 52 54 20 42 2:PRINT"INSERT B
00A9E0: 4C DB 38 41 4E 4B 20 54 41 50 45 22 3A 4C 4F 43 L.8ANK TAPE":LOC
00A9F0: 41 54 45 20 31 33 2C 31 34 3A 50 45 4E 20 32 3A ATE 13,14:PEN 2:
00AA00: 50 52 49 4E 54 22 50 52 45 53 53 20 41 4E 59 20 PRINT"PRESS ANY
00AA10: 4B 45 59 22 3A 43 41 4C 4C 20 26 42 42 31 38 3A KEY":CALL &BB18:
00AA20: 47 4F 53 55 42 20 33 38 37 3A 47 4F 54 4F 20 31 GOSUB 387:GOTO 1
00AA30: 30 38 0D 0A 33 38 37 20 53 50 45 45 44 20 57 52 08..387 SPEED WR
00AA40: 49 54 45 20 31 3A 4F 50 45 4E 4F 55 54 22 21 73 ITE 1:OPENOUT"!s
00AA50: 22 0D 0A 33 38 38 20 46 4F 52 20 69 3D 31 20 54 "..388 FOR i=1 T
00AA60: 4F 20 35 3A 46 4F 52 20 7A 3D 31 20 54 4F 20 35 O 5:FOR z=1 TO 5
00AA70: 3A 57 52 49 54 45 23 39 2C 71 28 69 2C 7A 29 3A :WRITE#9,q(i,z):
00AA80: 4E 45 58 54 20 7A 2C 69 0D 0A 33 38 39 20 57 52 NEXT z,i..389 WR
00AA90: 49 54 45 23 39 2C 62 6D 2C 62 67 2C 62 65 2C 62 ITE#9,bm,bg,be,b
00AAA0: 66 2C 62 68 2C 62 6A 2C 6F 34 2C 62 62 2C 6F 31 f,bh,bj,o4,bb,o1
00AAB0: 2C 6F 32 2C 6F 33 2C 74 31 2C 78 78 2C 79 79 2C ,o2,o3,t1,xx,yy,
00AAC0: 61 61 2C 61 62 2C 61 65 2C 61 66 2C 61 67 2C 61 aa,ab,ae,af,ag,a
00AAD0: 68 2C 62 69 2C 67 34 2C 61 63 2C 72 24 2C 6E 24 h,bi,g4,ac,r$,n$
00AAE0: 2C 73 24 52 44 FF FF FF FF 11 9B 04 2C 02 2C 02 ,s$RD.......,.,.
00AAF0: 6C 02 D9 04 F4 0F 08 13 00 07 01 00 2C 49 2E 4D l...........,I.M
00AB00: 41 4E 41 47 45 52 00 00 00 00 00 00 00 0F 00 16 ANAGER..........
00AB10: 00 08 7C 9E 00 00 00 00 00 00 00 00 00 00 00 00 ..|.............
00AB20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AB30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AB40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AB50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AB60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AB70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AB80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AB90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ABA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ABB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ABC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ABD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ABE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ABF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 26 56 FF .............&V.
00AC00: FF FF FF 11 9C 04 2C 02 7B 02 4D 02 9A 04 F8 0F ......,.{.M.....
00AC10: 08 41 0B 15 08 00 16 2C 61 69 2C 61 6A 2C 61 6B .A.....,ai,aj,ak
00AC20: 2C 61 6C 0D 0A 33 39 30 20 46 4F 52 20 69 3D 31 ,al..390 FOR i=1
00AC30: 20 54 4F 20 36 30 3A 57 52 49 54 45 23 39 2C 61 TO 60:WRITE#9,a
00AC40: 24 28 69 29 2C 6B 28 69 29 3A 4E 45 58 54 3A 46 $(i),k(i):NEXT:F
00AC50: 4F 52 20 69 3D 31 20 54 4F 20 32 34 3A 57 52 49 OR i=1 TO 24:WRI
00AC60: 54 45 23 39 2C 75 28 69 29 3A 4E 45 58 54 0D 0A TE#9,u(i):NEXT..
00AC70: 33 39 31 20 46 4F 52 20 69 3D 31 20 54 4F 20 34 391 FOR i=1 TO 4
00AC80: 30 3A 57 52 49 54 45 23 39 2C 61 28 69 29 2C 67 0:WRITE#9,a(i),g
00AC90: 28 69 29 2C 64 28 69 29 2C 66 28 69 29 2C 63 28 (i),d(i),f(i),c(
00ACA0: 69 29 2C 62 28 69 29 2C 62 24 28 69 29 2C 65 28 i),b(i),b$(i),e(
00ACB0: 69 29 2C 6F 28 69 29 2C 70 28 69 29 3A 4E 45 58 i),o(i),p(i):NEX
00ACC0: 54 0D 0A 33 39 32 20 46 4F 52 20 69 3D 31 20 54 T..392 FOR i=1 T
00ACD0: 4F 20 36 3A 57 52 49 54 45 23 39 2C 72 28 31 2C O 6:WRITE#9,r(1,
00ACE0: 69 29 2C 72 28 32 2C 69 29 3A 4E 45 58 54 3A 46 i),r(2,i):NEXT:F
00ACF0: 4F 52 20 69 3D 31 20 54 4F 20 34 3A 57 52 49 54 OR i=1 TO 4:WRIT
00AD00: 45 23 39 2C 6A 24 28 69 29 2C 74 28 69 29 2C 67 E#9,j$(i),t(i),g
00AD10: 24 28 69 29 3A 4E 45 2B 48 58 54 3A 46 4F 52 20 $(i):NE+HXT:FOR
00AD20: 69 3D 31 20 54 4F 20 35 3A 57 52 49 54 45 23 39 i=1 TO 5:WRITE#9
00AD30: 2C 66 24 28 69 29 2C 74 24 28 69 29 3A 4E 45 58 ,f$(i),t$(i):NEX
00AD40: 54 3A 46 4F 52 20 69 3D 31 20 54 4F 20 32 3A 57 T:FOR i=1 TO 2:W
00AD50: 52 49 54 45 23 39 2C 79 24 28 69 29 3A 4E 45 58 RITE#9,y$(i):NEX
00AD60: 54 3A 46 4F 52 20 69 3D 31 20 54 4F 20 31 35 3A T:FOR i=1 TO 15:
00AD70: 57 52 49 54 45 23 39 2C 68 24 28 69 29 3A 4E 45 WRITE#9,h$(i):NE
00AD80: 58 54 0D 0A 33 39 33 20 46 4F 52 20 69 3D 31 20 XT..393 FOR i=1
00AD90: 54 4F 20 31 32 3A 57 52 49 54 45 23 39 2C 68 28 TO 12:WRITE#9,h(
00ADA0: 69 29 2C 64 24 28 69 29 3A 4E 45 58 54 3A 46 4F i),d$(i):NEXT:FO
00ADB0: 52 20 69 3D 31 20 54 4F 20 32 3A 46 4F 52 20 69 R i=1 TO 2:FOR i
00ADC0: 31 3D 31 20 54 4F 20 34 30 3A 57 52 49 54 45 23 1=1 TO 40:WRITE#
00ADD0: 39 2C 6E 28 69 2C 69 31 29 3A 4E 45 58 54 20 69 9,n(i,i1):NEXT i
00ADE0: 31 2C 69 0D 0A 33 39 34 20 43 4C 4F 53 45 4F 55 1,i..394 CLOSEOU
00ADF0: 54 3A 52 45 54 55 52 4E 0D 0A 33 39 35 20 46 4F T:RETURN..395 FO
00AE00: 52 20 7A 3D 31 20 54 4F 20 31 32 30 30 30 3A 4E R z=1 TO 12000:N
00AE10: 45 58 54 3A 52 45 54 55 52 B3 E8 4E 0D 0A 33 39 EXT:RETUR..N..39
00AE20: 36 20 46 4F 52 20 7A 3D 31 20 54 4F 20 33 30 30 6 FOR z=1 TO 300
00AE30: 30 3A 4E 45 58 54 3A 52 45 54 55 52 4E 0D 0A 33 0:NEXT:RETURN..3
00AE40: 39 37 20 49 46 20 70 61 3D 30 20 54 48 45 4E 20 97 IF pa=0 THEN
00AE50: 4C 4F 43 41 54 45 20 70 78 2C 70 79 3A 52 41 3D LOCATE px,py:RA=
00AE60: 31 2B 49 4E 54 28 52 4E 44 2A 33 29 3A 78 3D 49 1+INT(RND*3):x=I
00AE70: 4E 54 28 52 4E 44 2A 31 31 29 2B 31 3A 49 46 20 NT(RND*11)+1:IF
00AE80: 52 41 3D 31 20 41 4E 44 20 65 28 78 29 3D 34 20 RA=1 AND e(x)=4
00AE90: 4F 52 20 52 41 3E 31 20 41 4E 44 20 45 28 58 29 OR RA>1 AND E(X)
00AEA0: 3C 34 20 20 54 48 45 4E 20 33 39 37 20 45 4C 53 <4 THEN 397 ELS
00AEB0: 45 20 6F 28 78 29 3D 6F 28 78 29 2B 31 3A 47 4F E o(x)=o(x)+1:GO
00AEC0: 54 4F 20 33 39 39 0D 0A 33 39 38 20 51 24 3D 22 TO 399..398 Q$="
00AED0: 47 4F 41 4C 22 3A 4C 4F 43 41 54 45 20 70 78 2C GOAL":LOCATE px,
00AEE0: 70 7A 3A 52 45 54 55 52 4E 0D 0A 33 39 39 20 66 pz:RETURN..399 f
00AEF0: 28 78 29 3D 66 28 78 29 2B 31 3A 67 28 78 29 3D (x)=f(x)+1:g(x)=
00AF00: 67 28 78 29 2B 31 3A 49 46 20 66 28 78 29 3E 39 g(x)+1:IF f(x)>9
00AF10: 20 54 48 45 4E 20 66 28 78 29 3D 02 3F 39 0D 0A THEN f(x)=.?9..
00AF20: 34 30 30 20 49 46 20 67 28 78 29 3E 39 20 54 48 400 IF g(x)>9 TH
00AF30: 45 4E 20 67 28 78 29 3D 39 0D 0A 34 30 31 20 51 EN g(x)=9..401 Q
00AF40: 24 3D 42 24 28 58 29 3A 52 45 54 55 52 4E 0D 0A $=B$(X):RETURN..
00AF50: 34 30 32 20 52 41 4E 44 4F 4D 49 5A 45 20 54 49 402 RANDOMIZE TI
00AF60: 4D 45 3A 62 3D 31 2B 49 4E 54 28 41 42 53 28 52 ME:b=1+INT(ABS(R
00AF70: 4E 44 2A 6B 28 62 69 29 2D 6B 28 67 34 29 2B 31 ND*k(bi)-k(g4)+1
00AF80: 30 30 29 29 3A 78 3D 31 2B 49 4E 54 28 52 4E 44 00)):x=1+INT(RND
00AF90: 2A 34 31 30 29 3A 7A 3D 31 2B 49 4E 54 28 52 4E *410):z=1+INT(RN
00AFA0: 44 2A 62 29 0D 0A 34 30 33 20 49 46 20 61 69 2B D*b)..403 IF ai+
00AFB0: 61 6A 2B 61 6B 2B 61 6C 3E 61 65 2B 61 66 2B 61 aj+ak+al>ae+af+a
00AFC0: 67 2B 61 68 20 54 48 45 4E 20 34 30 35 0D 0A 34 g+ah THEN 405..4
00AFD0: 30 34 20 49 46 20 78 3D 34 31 30 20 54 48 45 4E 04 IF x=410 THEN
00AFE0: 20 70 61 3D 30 3A 52 45 54 55 52 4E 20 45 4C 53 pa=0:RETURN ELS
00AFF0: 45 20 49 46 20 78 3E 3D 33 30 30 20 41 4E 44 20 E IF x>=300 AND
00B000: 78 3C 3D 33 30 33 20 41 4E 44 20 7A 3D 62 20 54 x<=303 AND z=b T
00B010: 48 45 4E 20 70 61 3D 31 3A 52 45 54 55 89 3B 52 HEN pa=1:RETU.;R
00B020: 4E 20 45 4C 53 45 20 70 61 3D 32 3A 52 45 54 55 N ELSE pa=2:RETU
00B030: 52 4E 0D 0A 34 30 35 20 49 46 20 78 3D 34 31 30 RN..405 IF x=410
00B040: 20 54 48 45 4E 20 70 61 3D 31 3A 52 45 54 55 52 THEN pa=1:RETUR
00B050: 4E 20 45 4C 53 45 20 49 46 20 78 3E 3D 33 30 30 N ELSE IF x>=300
00B060: 20 41 4E 44 20 78 3C 3D 33 30 33 20 41 4E 44 20 AND x<=303 AND
00B070: 7A 3D 62 20 54 48 45 4E 20 70 61 3D 30 3A 52 45 z=b THEN pa=0:RE
00B080: 54 55 52 4E 20 45 4C 53 45 20 70 61 3D 32 3A 52 TURN ELSE pa=2:R
00B090: 45 54 55 52 4E 0D 0A 34 30 36 20 49 46 20 65 78 ETURN..406 IF ex
00B0A0: 3D 30 20 54 48 45 4E 20 6E 3D 30 3A 47 4F 53 55 =0 THEN n=0:GOSU
00B0B0: 42 20 31 34 39 3A 65 78 3D 31 3A 4C 4F 43 41 54 B 149:ex=1:LOCAT
00B0C0: 45 20 31 35 2C 31 3A 50 45 4E 20 32 3A 50 52 49 E 15,1:PEN 2:PRI
00B0D0: 4E 54 22 45 58 54 52 41 20 54 49 4D 45 22 3A 50 NT"EXTRA TIME":P
00B0E0: 45 4E 20 31 3A 47 4F 54 4F 20 31 33 34 0D 0A 34 EN 1:GOTO 134..4
00B0F0: 30 37 20 47 4F 53 55 42 20 31 35 31 3A 72 3D 32 07 GOSUB 151:r=2
00B100: 2B 49 4E 54 28 52 4E 44 2A 34 29 3A 73 3D 33 2B +INT(RND*4):s=3+
00B110: 49 4E 54 28 52 4E 44 2A 33 29 3A 49 46 20 72 DD INT(RND*3):IF r.
00B120: C5 3D 73 20 54 48 45 4E 20 34 30 37 20 45 4C 53 .=s THEN 407 ELS
00B130: 45 20 4C 4F 43 41 54 45 20 31 32 2C 31 35 3A 50 E LOCATE 12,15:P
00B140: 52 49 4E 54 20 72 22 50 45 4E 41 4C 54 49 45 53 RINT r"PENALTIES
00B150: 22 73 3A 47 4F 54 4F 20 32 35 30 0D 0A 34 30 38 "s:GOTO 250..408
00B160: 20 78 63 3D 2D 28 52 49 47 48 54 24 28 64 24 28 xc=-(RIGHT$(d$(
00B170: 61 62 29 2C 31 29 3C 3E 22 51 22 20 41 4E 44 20 ab),1)<>"Q" AND
00B180: 62 67 3D 31 20 4F 52 20 52 49 47 48 54 24 28 64 bg=1 OR RIGHT$(d
00B190: 24 28 61 62 29 2C 31 29 3D 22 51 22 20 41 4E 44 $(ab),1)="Q" AND
00B1A0: 20 68 28 61 62 2D 31 29 3E 31 20 4F 52 20 62 67 h(ab-1)>1 OR bg
00B1B0: 3D 30 20 41 4E 44 20 64 24 28 61 62 29 3C 3E 22 =0 AND d$(ab)<>"
00B1C0: 22 29 3A 52 45 54 55 52 4E 0D 0A 34 30 39 20 46 "):RETURN..409 F
00B1D0: 4F 52 20 6E 3D 31 20 54 4F 20 34 3A 49 46 20 67 OR n=1 TO 4:IF g
00B1E0: 24 28 6E 29 3D 61 24 28 6A 29 20 54 48 45 4E 20 $(n)=a$(j) THEN
00B1F0: 4E 3D 38 0D 0A 34 31 30 20 4E 45 58 54 3A 49 46 N=8..410 NEXT:IF
00B200: 20 4E 3D 39 20 54 48 45 4E 20 32 33 36 0D 0A 34 N=9 THEN 236..4
00B210: 31 31 20 49 46 20 42 46 3D 32 20 54 48 45 4E 20 11 IF BF=2 THEN
00B220: 49 92 3F 46 20 4A 24 28 33 29 3D 41 24 28 4A 29 I.?F J$(3)=A$(J)
00B230: 20 4F 52 20 4A 24 28 34 29 3D 41 24 28 4A 29 20 OR J$(4)=A$(J)
00B240: 54 48 45 4E 20 32 33 36 0D 0A 34 31 32 20 49 46 THEN 236..412 IF
00B250: 20 4A 24 28 31 29 3D 41 24 28 4A 29 20 4F 52 20 J$(1)=A$(J) OR
00B260: 4A 24 28 32 29 3D 61 24 28 4A 29 20 54 48 45 4E J$(2)=a$(J) THEN
00B270: 20 32 33 36 0D 0A 34 31 33 20 50 45 4E 20 31 3A 236..413 PEN 1:
00B280: 46 4F 52 20 6D 3D 38 20 54 4F 20 31 35 3A 49 46 FOR m=8 TO 15:IF
00B290: 20 61 24 28 6A 29 3D 4C 45 46 54 24 28 68 24 28 a$(j)=LEFT$(h$(
00B2A0: 6D 29 2C 39 29 20 4F 52 20 61 24 28 6A 29 3D 4C m),9) OR a$(j)=L
00B2B0: 45 46 54 24 28 4D 49 44 24 28 68 24 28 6D 29 2C EFT$(MID$(h$(m),
00B2C0: 31 35 29 2C 39 29 20 54 48 45 4E 20 61 31 3D 61 15),9) THEN a1=a
00B2D0: 31 2B 31 3A 4D 3D 31 39 0D 0A 34 31 34 20 4E 45 1+1:M=19..414 NE
00B2E0: 58 54 3A 49 46 20 4D 3D 32 30 20 54 48 45 4E 20 XT:IF M=20 THEN
00B2F0: 32 33 34 0D 0A 34 31 35 20 46 4F 52 20 6D 3D 38 234..415 FOR m=8
00B300: 20 54 4F 20 31 35 3A 49 46 20 4C 45 46 54 24 28 TO 15:IF LEFT$(
00B310: 68 24 28 6D 29 2C 31 29 3D 22 20 22 20 54 48 45 h$(m),1)=" " THE
00B320: 4E 20 68 FE A3 24 28 6D 29 3D 61 24 28 6A 29 2B N h.£$(m)=a$(j)+
00B330: 4D 49 44 24 28 68 24 28 6D 29 2C 31 30 29 3A 4C MID$(h$(m),10):L
00B340: 4F 43 41 54 45 20 35 2C 78 78 3A 50 52 49 4E 54 OCATE 5,xx:PRINT
00B350: 20 68 24 28 6D 29 3A 7A 3D 7A 2B 31 3A 78 78 3D h$(m):z=z+1:xx=
00B360: 78 78 2B 31 3A 78 78 3D 78 78 2B 28 78 78 3D 32 xx+1:xx=xx+(xx=2
00B370: 30 29 2A 38 3A 4D 3D 31 39 0D 0A 34 31 36 20 4E 0)*8:M=19..416 N
00B380: 45 58 54 3A 49 46 20 4D 3D 32 30 20 54 48 45 4E EXT:IF M=20 THEN
00B390: 20 32 33 37 0D 0A 34 31 37 20 46 4F 52 20 6D 3D 237..417 FOR m=
00B3A0: 38 20 54 4F 20 31 35 3A 49 46 20 52 49 47 48 54 8 TO 15:IF RIGHT
00B3B0: 24 28 4C 45 46 54 24 28 68 24 28 6D 29 2C 31 35 $(LEFT$(h$(m),15
00B3C0: 29 2C 31 29 3D 22 20 22 20 54 48 45 4E 20 68 24 ),1)=" " THEN h$
00B3D0: 28 6D 29 3D 4C 45 46 54 24 28 68 24 28 6D 29 2C (m)=LEFT$(h$(m),
00B3E0: 31 34 29 2B 61 24 28 6A 29 2B 4D 49 44 24 28 68 14)+a$(j)+MID$(h
00B3F0: 24 28 6D 29 2C 32 34 29 3A 4C 4F 43 41 54 45 20 $(m),24):LOCATE
00B400: 35 2C 78 78 3A 50 52 49 4E 54 20 68 24 28 6D 29 5,xx:PRINT h$(m)
00B410: 3A 7A 3D 7A 2B 31 3A 78 78 3D 78 78 2B 31 3A 4D :z=z+1:xx=xx+1:M
00B420: 3D 31 39 0D 0A BF 91 FF FF FF FF 11 A2 04 69 03 =19...........i.
00B430: 2C 02 60 02 C0 04 B9 0F 08 13 00 07 01 00 2C 49 ,.`...........,I
00B440: 2E 4D 41 4E 41 47 45 52 00 00 00 00 00 00 00 10 .MANAGER........
00B450: FF 16 D7 00 7C 9E 00 00 00 00 00 00 00 00 00 00 ....|...........
00B460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B4A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B4B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B4C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B4D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B4E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B4F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B500: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B510: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B520: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B530: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7A ...............z
00B540: 1B FF FF FF FF 11 A2 04 2C 02 7B 02 5B 02 B5 04 ........,.{.[...
00B550: F6 0F 08 13 00 07 01 00 16 34 31 38 20 4E 45 58 .........418 NEX
00B560: 54 3A 49 46 20 4D 3D 32 30 20 54 48 45 4E 20 32 T:IF M=20 THEN 2
00B570: 33 37 20 45 4C 53 45 20 32 34 34 0D 0A 34 31 39 37 ELSE 244..419
00B580: 20 45 52 41 53 45 20 48 24 3A 44 49 4D 20 48 24 ERASE H$:DIM H$
00B590: 28 31 35 29 3A 52 45 54 55 52 4E 0D 0A 34 32 30 (15):RETURN..420
00B5A0: 20 45 52 41 53 45 20 44 24 2C 47 24 2C 54 24 2C ERASE D$,G$,T$,
00B5B0: 51 3A 44 49 4D 20 47 24 28 34 29 2C 71 28 35 2C Q:DIM G$(4),q(5,
00B5C0: 35 29 2C 44 24 28 31 33 29 2C 54 24 28 35 29 3A 5),D$(13),T$(5):
00B5D0: 52 45 54 55 52 4E 0D 0A 34 32 31 20 4E 45 58 54 RETURN..421 NEXT
00B5E0: 3A 52 45 54 55 52 4E 0D 0A 34 32 32 20 49 46 20 :RETURN..422 IF
00B5F0: 42 4B 3D 32 20 54 48 45 4E 20 4C 4F 43 41 54 45 BK=2 THEN LOCATE
00B600: 20 33 2C 31 39 3A 50 45 4E 20 30 3A 50 52 49 4E 3,19:PEN 0:PRIN
00B610: 54 20 53 50 41 43 45 24 28 31 34 29 3A 50 45 4E T SPACE$(14):PEN
00B620: 20 31 0D 0A 34 32 33 20 52 45 54 55 52 4E 0D 0A 1..423 RETURN..
00B630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B650: 00 00 00 00 00 00 00 00 00 60 D3 FF FF FF FF .........`.....
RESULT OF SEARCH :
PRO=0 CHEA=0 COD=0 MUSI=0 COP=1 GRA=1 WRIT=14 198=9 199=1 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
PRO=0 CHEA=0 COD=0 MUSI=0 COP=1 GRA=1 WRIT=14 198=9 199=1 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
"&,r,I.MANAGERpX"N,X B,,,, B,C,E,H-Z"d" B (), (), (,), ((), ((), (),(),((),
(), (), (,(), ((), ((), ((), ((), ((), ((), ((), ().d ()()6 JAN,FEB,MAR,APR,M
AY,JUN,JUL,AUG,SEP,OCT,NOV,DEC W X6 F , ,, , ,i ,"INTERNATIONAL MANAGER" ,
"COPYRIGHT D&H GAMES" n p (), )()f ,"WRITTEN BY" , "TONY HUGGARD & JOHN DE S
ALIS" n p (,)()e ,"CONVERTED ONTO AMSTRAD BY" , "DAVID GIBBON" n p (, )())
,"LOAD SAVED GAME Y/N"()-C "" () "Y" "N" F b V b b o o o(Ed) oP t x y
a a aE (),() (()) s W.GERMANY,2,ITALY,3,ENGLAND,5,HUNGARY,7,U.S.S.R.,8,POLA
ND,9,FRANCE,10,SPAIN,11,PORTUGAL,12,SCOTLAND,13,N.IRELAND,14,BELGIUM,16,BULGARIA
,19,DENMARK,21,HOLLAND,22,E.GERMANY,23,RUMANIA,25,AUSTRIA,27,NORWAY,28,WALES,31,
SWEEDEN,32,TURKEY,36,FINLAND,37 R.IRELAND,40,ICELAND,42,ALBANIA,46,GREECE,47,MAL
TA,48,CYPRUS,50,BRAZIL,1,ARGENTINA,4,URUGUAY,6,MEXICO,15,PARAGUAY,17,CHILE,29,PE
RU,26,VENEZUELA,44,COLUMBIA,51,ECUADOR,52,BOLIVIA,53,ALGERIA,18,$MOROCCO,20,TUNI
SIA,24,CAMEROON,30,EGYPT,49,NIGERIA,56 TAIWAN,58,ISRAEL,57,N.ZEALAND,34,AUSTRALI
A,33,IRAQ,41,KUWAIT,59,OMAN,38,N.KOREA,60,CANADA,35,U.S.A.,43,PANAMA,39,HONDURAS
,56,JAMAICA,54,HIATI,45! ()6 1,2,3,4,3,1,4,2,1,4,2,3,2,1,4,3,1,3,2,4,4,1,3,2
( T ( )(E1) ( )(EY) ( )(EY) ( )((E2) ) ( )(E) (, ) ( ), ( ) ( ) ( )( ,s,I.
MANAGERpX",Z ( ) ( ))( ( ) ( )) Q JONES,1,WARD,2,SMITH,2,REID,2,BARNES,2,PETERS,
3,EDLIN,3,JAMES,3,HUGGARD,4,CURRY,4,STEVENS,4,WALTERS,4,LAWTON,4,ARNOLDS,3,WALLA
CE,1,COLLINS,2,MANTON,3,TRAVERS,2,CELLARS,4,JACKSON,4,GRAHAMS,1,JOHNSON,2i,FOSTE
R,2,ALLEN,1,DAVIS,3,HILL,4,CRAIG,2y GIBSON,2,ROBSON,3,DUNCAN,4,BROWN,3,CROWE,2,W
RIGHT,1,HARRIS,2,THOMAS,2,DICKENS,4,EVANS,3,ROBERTS,4,WEST,3,ANDREWS,2/ (,),(
,)) 1,29,30,40,41,46,47,50,51,54,55,609! () (()) u"*# FRANCE,W.GERMANY,ARG
ENTINA,COLUMBIA $ ()*% TERRY,DESALIS,FRANKS,WILKINS,FOWLER & ()' 7,14,21,2
8( F b a)b n ( n, () ()() , "WHICH TEAM DO YOU WANT TO MANAGE"() ()()a* ,
" "() , " "()+ n ( n,u () n ()() ," UUP ENTERCHOOSE DDOWN " ()
() ,"D" 4--C "" - (). () ()()(b)e(b)(b)(%)(%)e(b)(b)((b)) 6/ "D" bb b b 0
b bb 2bb 5 b bb 3bb 5 bb 2 &bb 40 "U" bb b b 1 b b b 3 b b 4 b
b b 3 b b 5 bb 2bb 4 1 -d2 "3D" "U" ,b" " ,b b" "(b)h3 "D" "
U" ,b " " ,b b" "(b)4 "D" "U" n n,b P£,q,I.MANAGERpX"0£,
() ()() ,b b" "(b) ()()5 "D" "U" n n,b () ()() ,b b" "(b) ()()6 W
, " "() , " "()7 n ( n, () ()() ,"DO YOU WANT TO CHANGE NAMES Y/N"() ()()-8C
"" 8 ()9 xV"Y" "N" Y 8d n ( n, () n ()() ," UUP ENTERCHOOSE
DDOWN " ()() "D" E-C "" ()"g () () G "D" dd d) d( A d d d C d d
F d d d D d d F dd Cdd EA "U" d d d d d d d D d d E d d d
D d d F d d C d d E B C "D" "U" ,d" " ,d d" "(d)fD "D" "U"
, d" " , d d" "( d)E "D" "U" n n,d () ()() ,d d" "(d) ()()F
"D" "U" n n, d () ()() , d d" "( d) ()()G""b ,"
+ " ,"TYPE NEW NAME (7 LETTERS MAX)" ,"" P8HC "" " " H ()bI
() H () ," " N P H3J () I,q,I.MANAGERpX",Z ()(d) 6K OhL () , "
THIS NAME IS TOO LONG " ,,,, G"M O P H7N w()wu(, w)wO 4, P , ()"QA
(())((())()()) AA(())((())()())AA(())((())()())AA(A())((())()())A(A9)RAA9AA9AA
9A(Ay)A(A9)A(A9)AA((A))((A))AA((A))((A))AA((A))((A))5SAA((A))((A))BT ( )(L(E333S
)) ( )(EE) !V ,"PLEASE WAIT"W ()X (,) ( )Y Z "I.MANAGER",I, n n, () ()()
, "INSERT ORIGINAL TAPE" ()() wd n n, () ()() Lr, "LOADING" ()() n n
, () ()() , "STOP TAPE,LOAD SAVED GAME" ()() w "!s" £#, ( , ) , £#, ba,
b, b, b, b, b, o, b, o, o, o, t, x, y, a, a, a, a, a, a, b, g, a,,,, a, a, a, a
.a £#,( ), ( )#b £#, ( )c (£#, ( ), ( ), ( ), ( ), ( ), ( ),( ), ( ), (
), ( )1d £#, (, ), (, )8e £#,( ), ( ),( )-f £#,p,I.MANAGERXp!X",eI,( )
,( )"g £#,( )#h £#,( ).i £#, ( ),( )Bj i (£#, ( , i) i, kXl F
u(( ),)"V " ( )(," ")( )mn ()"EC FINALS " ()"WC FINALS " qo bq r "I.MA
NAGER",l, !s()()( )"t (()) s !u()()P( )"v (()) u -w ,"PRESS ANY KEY" ,,m,
I.MANAGER,OV2 IF MID$(d$(ab),4)"FINALS" AND bf0 THEN 110 3 GOSUB 343GOSUB 303CL
SPEN 2LOCATE 10,1PRINT"SEASON "aa" "e$(ab)h(ab)IF ASC(n$)69 THEN 5 4 raINT(4
0-LEN(n$)-1)/2LOCATE ra,3PRINT n$GOTO 6 5 LOCATE 9,3PRINT LEFT$(n$,22)raINT(40-
INT(LEN(n$/)-20))/2LOCATE ra-1,4PRINT MID$(n$,23) 6 LOCATE 3,7PEN 1PRINT"RANKED
"ABS(k(bi))SPACE$(13)"RANKED"ABS(k(g4)) 7 LOCATE 17,6IF am1 THEN PRINT"HOME"GOT
O 9 8 PRINT"AWAY" 9 LOCATE 3,9PRINT r$LOCATE 26,9PRINT s$y110y2-3GOSUB 208y2-5
GOSUB 194y220GOSUB 208LOCATE 37,11PRINT INT(ai)LOCATE 37,12PRINT INT(aj)LOCATE 3
7,13PRINT INT(ak)LOCATE 37,14PRINT INT(al) 10 GOSUB 375GOTO 10 11 IF bg0 AND b
f0 AND ab6 THEN 173 12 CLSLOCATE 16,1PEN 2PRINT"HOPEFULLS"LOCATE 16,3PEN 1PRINT
"T F C M CAP AGE AVA"FOR i25 TO 40GOSUB 211LOCATE 1,i-21PRINT iz$" "b$(i)LOCAT
E 15,i-21PRINT INT(a(i))x$INT(ABS(g(i)))LOCATE 21,i-21PRINT INT(d(i)) 13 LOCATE
23,i-21PRINT INT(f(i))LOCATE 25,i-21PRINT INT(c(i))LOCATE 29,i-21PRINT INT(b(iD
))LOCATE 33,i-21PRINT e$(n(1,i))" "INT(n(2,i))NEXT 14 LOCATE 1,23PEN 2PRINT"
M-MENU C-CHANGE S-SQUAD "PEN 1GOSUB 376q$INKEY$IF q$"" THEN 14 ELSE
q$UPPER$(q$) 15 IF q$"S" THEN 173 ELSE IF q$"C" THEN 16 ELSE 14 16 x33x1253x2
40ix1GOSUB 204GOSUB 198adix117x224x31ix1GOSUB 202GOSUB 198 17 GOSUB 195GOSUB 19
1iadGOSUB 211LOCATE 1,ad-21PRINT iz$" "b$(i)" "LOCATE 15,ad-21PRINT INT(a(i))x
$INT(ABS(g(i)))LOCATE 21,ad-21PRINT INT(d(i))LOCATE 23,ad-219PRINT INT(f(i))LOCA
TE 25,ad-21PRINT c(i)LOCATE 29,ad-21PRINT b(i) 18 LOCATE 33,ad-21PRINT e$(n(1,i
))" "n(2,i)GOTO 14 19 CLS 20 t20zx1FOR i1 TO 6zxzx+2LOCATE 2,zxPEN 2PRINT e$(i
)h(i)RIGHT$(LEFT$(D$(i),10),1)" " 21 PRINT RIGHT$(LEF$T$(D$(i),12),2)LOCATE 26,
zxPRINT e$(i+6)h(i+6)PRINT RIGHT$(LEFT$(D$(i+6),10),1)" "RIGHT$(LEFT$(D$(i+6),12
),2)" " 22 PEN 1PRINT" "LEFT$(d$(i),9)" "LEFT$(MID$(d$(i),14),1)"-"LEFT$(MID$(d
$(i),16),1)LOCATE 26,zx+1PRINT LEFT$(d$(i+6),9)" " 2s,m,I.MANAGER%,OS3 PRINT LE
FT$(MID$(d$(i+6),14),1)"-"LEFT$(MID$(d$(i+6),16),1)NEXTIF t$(5)"" THEN 28 24 GO
SUB 25GOTO 28 25 LOCATE 18,15PEN 2PRINT"TOUR"PEN 1FOR i1 TO 2PEN 2LOCATE 1,16-(
i2)*2PRINT" "LEFT$(t$(5),3)t(i)"A"LOCATE 26,16-(i2)*2PRINT LEFT$(Mt$(5),3)t(i+2)
"A " 26 PEN 1LOCATE 2,17-(i2)*2PRINT LEFT$(t$(i),9)" "LEFT$(MID$(t$(i),11),
1)"-"LEFT$(MID$(t$(i),13),1) 27 LOCATE 26,17-(i2)*2PRINT LEFT$(t$(i+2),9)" "LEF
T$(MID$(t$(i+2),11),1)"-"LEFT$(MID$(t$(i+2),13),1)NEXTRETURN 28 LOCATE 1,21PEN
2PRINT" B-BOOK FIXTURE M-MENU "PEN 1GOSUB 376q$INKEY$IF q$"" THEN
28 ELSE q$UPPER$(q$)IF q$"B" THEN 29 ELSE 28 29 x11x212x32i1GOSUB 203GOSUB 198I
F d$(i)"" OR iab THEN 28 30 o5iIF t$(5)"" AND o54 ANSD o58 AND o5ab THEN 31 ELS
E 33 31 LOCATE 1,21PRINT" DO YOU WANT TO TOUR (Y)ES OR (N)O "q$INKEY$IF q$"" T
HEN 31 ELSE q$UPPER$(q$)IF q$"N" THEN 33 ELSE IF q$"Y" THEN 32 ELSE 31 32 t$(5)
e$(o5)d$(o5)"TOUR "h(o5)7GOSUB 25t21FOR k1 TKO 4 33 x34x260i1GOSUB 205GOSU
B 198IF k(i)0 THEN 33 34 IF t20 THEN 36 35 t$(k)LEFT$(a$(i),9)+MID$(t$(k),10)L
OCATE 2-(k3 OR k4)*24,17-(k2 OR k4)*2PRINT LEFT$(t$(k),9)NEXTGOTO 45 36 rd0LOCA
TE 1,21PRINT"PLAY HOME OR AWAY " 37 q$INKEY$IF q$"" THEN 37 ELSE q$UPPER$(
q$) 38 IF q$"A" THEN z$"A"rd1GOTO 41 39 IF q$"H" THEN z$"H"GOTO 41 40 GOTO 37
41 rbINT(RND*6)+1rc(ABS(k(i)/10))+(rd+2)IF rbrc THEN k(i)k(i)-k(i)*2LOCATE 1,2
1PRINT a$(i)" HAVE OTHER COMMITMENTS"ZFOR z1 TO 3000NEXTGOTO 28 42 LOCATE 1,21P
RINT a$(i)" ACCEPT YOUR OFFER"d$(o5)a$(i)+MID$(d$(o5),10)d$(o5)LEFT$(d$(o5),9)+z
$+MID$(d$(o5),11) 43 d$(o5)LEFT$(d$(o5),10)+"F "+MID$(d$(o5),13) 44 ra(1-(o5ab
)*ac)+INT(RND*(30+(o5ab)*ac))RARA-(RA1)h(o5)raFOR z1 TO 3000NEXTGOSUB 373IF LEFT
$(d$(ab),2)"TO" THEN GOSUB 286 45 GOTO 20 46 IF bh14 THEN 48 ELSE IF bh21 THEN
49 ELSE IF bh28 THEN 50 47 xx9+(bf1)yy15GOSUB 331bh14RETURN 48 xx5+(bf1)yy7GO
SUB 331bh21RETURN 49 xx3,n,I.MANAGER,NQ+(bf1)yy3GOSUB 331bh28RETURN 50 IF bf1
THEN xx1yy1GOSUB 331bh0bfbf-bf*2 51 RETURN 52 IF bh0 THEN 51 53 IF bh21 THEN
55 ELSE IF bh28 THEN 56 54 ra4xx8yy15GOSUB 68RETURN 55 ra2xx4yy7GOSUB 68RETURN
56 ra1xx2yy3GOSUB 68RETURN 57 ra1-(ABS(bf)2)*2 58 IF ASC(LEFT$(MID$(h$(1),12
),1))ASC(LEFT$(MID$(h$(1),12),1)) THEN j$(ra)LEFT$(h$(1),9)GOTO 60 59 j$(ra)LEF
T$(MID$(h$(1),17),9) 60 GOSUB 61RETURN 61 ra1+INT(RND*(60-ABS(bf1)*31))IF a$(r
a)j$(1+(ABS(bf2)*2)) OR a$(ra)j$(2+(ABS(bf2)*2)) THEN 61 62 rb2-(ABS(bf)2)*2j$(
rb)a$(ra)RETURN 63 GOTO 409 65 IF j$(1)y$(1) THEN j$(1)a$(2)RETURN 66 IF j$(2
)y$(1) THEN j$(2)a$(2) 67 RETURN 68 rb0FOR ixx TO yyIF ASC(LEFT$(MID$(h$(i),12
),1))ASC(LEFT$(MID$3(h$(i),15),1)) THEN r$LEFT$(h$(i),9)GOSUB 71 69 IF ASC(LEFT
$(MID$(h$(i),12),1))ASC(LEFT$(MID$(h$(i),15),1)) THEN r$LEFT$(MID$(h$(i),17),9)G
OSUB 71 70 NEXTRETURN 71 IF rb0 THEN h$(ra)r$+MID$(h$(ra),10)rb1RETURN 72 h$(
ra)LEFT$(h$(ra),14)+r$+MzID$(h$(ra),24)rb0rara+1RETURN 73 CLSPEN 1RANDOMIZE TIM
EGOSUB 65GOSUB 373GOSUB 305GOSUB 286GOTO 108 74 CLSLOCATE 6,1PEN 2PRINT"PLAYER
""GOALS ""CAPS ""INJURIES"ra1 75 rb2FOR ira TO ra+19GOSUB 212LOCATE 1,rbPEN 1
PRINT" "LOCATE 1,rbPRINT iz$" "b$(i)LOCATE
15,rbIF e(i)1 THEN PEN 2PRINT o(i) ELSE PRINT o(i) 76 PEN 1LOCATE 20,rbPRINT c
(i)IF p(i)0 THEN LOCATE 25,rbPRINT p(i)" DAY"+CHR$(32-(p(i)1)*51)GOTO 78 77 IF
a(i)0 THEN 36$8 ELSE IF g(i)0 THEN 369 78 rbrb+1NEXT 79 GOSUB 376LOCATE 11,23P
EN 2PRINT"C-CONTINUE M-MENU"PEN 1 80 q$INKEY$IF q$"" THEN 79 ELSE q$UPPER$(q$)I
F q$"C" THEN 81 ELSE 79 81 rara-(ra1)*20+(ra21)*20GOTO 75 82 FOR i1 TO 4-1FOR
xi+1 TO 4 g 83 IF q(2,i)*2+q(3,i)q(2,x)*2+q(3,x) THEN 88 84 IF q(2,i)*2+q(3,i)q
(2,x)*2+q(3,x) AND q(4,i)-q(5,i)q(4,x)-q(5,x) THEN 88 85 IF q(2,i)*2+q(3,i)q(2,
x)*2+q(3,x) AND q(4,i)-q(5,i)q(4,x)-q(5,x) AND q(4,i)q(4,x) THEN 88 86 e2q(2,i)
e3q(3,i)e4q(4,i)s,m,I.MANAGERW,,NMe5q(5,i)z$g$(i)q(2,i)q(2,x)q(3,i)q(3,x)q(4,i)q
(4,x)q(5,i)q(5,x)g$(i)g$(x)q(2,x)e2 87 q(3,x)e3q(4,x)e4q(5,x)e5g$(x)z$ 88 NEXT
x 89 NEXT iRETURN 90 FOR i1 TO 4IF g$(i)r$ THEN GOSUB 94I5 91 NEXT 92 GOSUB
95FOR i1 TO 4IF g$(i)s$ THEN GOSUB 94GOSUB 95I5 93 NEXTRETURN 94 q(1,i)q(1,i)
+1q(2,i)q(2,i)-(rs)q(3,i)q(3,i)-(rs)q(4,i)q(4,i)+rq(5,i)q(5,i)+sRETURN 95 etrrs
setRETURN 96 IF bg0 THEN 318 97 IF g$(1)"" THEN 110 98 CLSIF be2 THEN 100 99
GOSUB 361GOSUB 366LOCATE 5,1PEN 2PRINT l$"S"PEN 1GOTO 101 100 GOSUB 360GOSUB 3
66LOCATE 11,1PEN 2PRINT l$"S"PEN 1 101 LOCATE 14,3PRINT"P W L D F A G PT
"FOR i1 TO 4LOCATE 1,i+4PRINT ig$(i)INT (q(1,i))LOCATE 16,i+4PRINT INT (q(2,i))L
OCATE 19,i+4PRINT INT (q(1,i)-q(2,i)-q(3,i))LOCATE 22,i+4PRINT INT (q(3,i))LOCAT
E 25,i+4PRINT INT (q(4,i)) 102 LOCATE 28,i+4PRINT INT (q(5,i))LOCATE 31,i+4PRIN
T INT (q(4,i)-q(5,i))LOCATE 34,i+4PRINT INT (q(2,i)*2+q(3,i))NEXT 103 FOR i1 TO
12LOCATE 5,9+iPRINT h$(i)NEXT 104 GOSUB 375GOTO 104 105 ra0FOR j12 TO 16rara-
(p(j)0)NEXTbk0-(ra4)-(ra5)*2IF bk2 THEN 106 ELSE 107 106 LOCATE 3,19PEN 2PRINT"
S-SUBSTITUTION"PEN 1 107 RETURN 108 zz0CLSPEN 1LOCATE 14,5PRINT"P-PLAY"SRPACE$
(53)"N-NEXT GAME"SPACE$(53)"S-SQUAD"SPACE$(53)"G-GROUP/FINALS"SPACE$(53)"F-FIXTU
RES"SPACE$(53)"I-INJURIES/GOALS"SPACE$(53)"1-SAVE" 109 PEN 0PRINT FRE("")PEN 1G
OSUB 119 110 q$INKEY$IF q$"" THEN 113 ELSE q$UPPER$(q$) 111 IF q$"1" THEN 383
ELSE IF q$"P" THEN 121 ELSE IF q$"S" THEN 173 ELSE IF q$"F" AND ac31 THEN 19 ELS
E IF q$"I" THEN 74 ELSE IF q$"G" THEN 96 ELSE 112 112 IF q$"N" AND LEFT$(d$(ab)
,2)"TO" AND zz1 OR q$"N" AND LEFT$(d$(ab),1)" " AND LEFT$(d$(ab),2)"TO" AND h(ab
)ac THEN 2 113 IF ab12 AND ac31 AND h(12)31 THEN 217 ELSE IF ab6 AND acbh AND b
f0 THEN 110 ELSE IF ac1 AND ab6 AND bg0 AND bf0 OR ac1 AND xc1 THEN xc0GOSUB 286
ELSE IF ab6 AND acbh AND bf0 THEN CLSGOSUB 46GOSUB 52acac+1GOTO 96 11!,l,I.MAN
AGER,LM4 IF ab6 AND ac31 AND bf2 AND bg0 THEN CLSGOSUB 319LOCATE 13,22PEN 3PRINT
"PLEASE WAIT"PEN 1GOSUB 338GOSUB 118GOTO 108 115 IF LEFT$(d$(ab),2)"TO" AND zz0
THEN GOSUB 379GOTO 117 116 IF h(ab)ac AND d$(ab)"" THEN 110 117 GOSUB 118FOR
i12 TO 40p(i)p(i)+(p(i)0)NEXTGOSUB 119GOTO 110 118 acac+1IF ac32 AND ab12 THEN
abab+1ac1GOSUB 408RETURN ELSE IF ab12 AND ac32 THEN ac1ab1aaaa+1GOSUB 65FOR i1 T
O 5FOR z1 TO 5q(i,z)0NEXT z,iRETURN ELSE RETURN 119 LOCATE 11,21PtRINT"SEASON "
aaLOCATE 22,21PRINT e$(ab)LOCATE 26,21PRINT acIF ac1 THEN RETURN ELSE FOR x1 TO
500NEXTRETURN 120 LOCATE 2,6PRINT"RANKED "ABS(k(bi))SPACE$(16)"RANKED "ABS(K(G4
))IF am1 THEN LOCATE 18,6PRINT"HOME"RETURN ELSE LOCATE 18,6PRINT"AWAY"RETURN 12
1 py8pz8IF h(ab)ac AND d$(ab)"" OR LEFT$(d$(ab),2)"TO" AND zz1 THEN 122 ELSE 110
122 RANDOMIZE TIMEex0d10bl0bk0GOSUB 343GOSUB 303CLS 123 r0s0n0LOCATE 14,2PRIN
T"TIME MIN"LOCATE 12,3PRINT"SEASON "aae$(ab)I" "acLOCATE 19,2PRINT nLOCATE 1
,8PRINT r$LOCATE 21,8PRINT s$GOSUB 120GOSUB 149GOTO 125 124 FOR i12 TO 16GOSUB
211LOCATE 19,i+5PRINT iz$" "b$(i)" "LOCATE 33,i+5PRINT INT(a(i))x$NEXTRETURN
125 GOSUB 105IF ASC(n$)69 THEN raINT(40-LEN(n$))/2LOCATE ra,5PEN 2PRINT n$PEN 1
GOTO 127 126 LOCATE 10,4PEN 2PRINT LEFT$(n$,22)raINT(40-INT(LEN(n$)-22))/2LOCAT
E ra,5PRINT MID$(n$,23)PEN 1 127 FOR i1 TO 16ra1+INT(RND*10)rb1+INT(RND*3)IF ra
d(i) THEN 128 ELSE G(I)G(I)+RBGOTO 129 128 g(i)g(i)-rbIF g(i)1 THEN g(i)1 129
IF G(I)A(I) THEN G(I)A(I) 130 NEXT iGOSUB 191GOSUB 210GOSUB 124GOSUB 131GOTO 13
2 131 e1INT(ah+ag)/2e1INT(e1-(aj/2)+(am1))e2INT(al+ak)/2e2INT(e2-(af/2)+(am1))F
OR i1 TO e1v(i)1+INT(RND*(90+(ex1)*60))NEXTFOR i10 TO 9+e2v(i)1+INT(RND*(90+(ex1
)*60))NEXTRETURN 132 RANDOMIZE TIMEceINT(RND*2)pb12GOSUB 402 133 GOSUB 422q$IN
KEY$q$UPPER$(q$)IF q$"S" AND bk2 THEN 161 ELSE IF n45 THEN GOSUB 147pa-(ce0) 13
4 IF n90+(ex,l,I.MANAGER,NK1)*60 THEN GOSUB 149LOCATE 15,1PEN 2PRINT"FULL TIME"
PEN 1IF n90+(ex1)*60 AND rs AND acbh AND ab6 THEN 406 ELSE IF n90+(ex1)*60 THEN
250 135 GOSUB 148IF ra9 AND bl2 THEN GOSUB 155 136 IF pb12 THEN 142 ELSE IF pb
0 AND pa0 OR pb23 AND pa1 THEN 142 137 sc0sh0ra1-(pa1)*9FOR ira TO ra+8kn+7 13
8 sh1rb0-(pa0)*ae-(pa1)*airaINT(RND*7)IF raINT(rb/2) THEN 140 ELSE GOSUB 402 13
9 IF pa2 THEN 140 ELSE sc1rr-(pa0)ss-(pa1)px1-(pa1)*20pypy-(pa0)pzpz-(pa1)GOSUB
149GOSUB 397PEN 2PRINT Q$n-(EX1)*90"MIN"PEN 1v(i)0i99GOTO 141 140 v(i)0 141 NE
XT iIF sh1 AND sc1 THEN sh0sc0pb12pa-(pa0)GOTO 145 142 IF pb0 AND pa1 OR pb23 A
ND pa0 THEN sh0pc0-(pb23 AND pa0)pb0-(pc1)*23GOTO 145 143 IF pb0 AND pa0 OR pa1
AND pb23 THEN GOSUB 150PA0-(AGRA)pb12GOTO 145 144 GOSUB 150IF PA0 AND AKRA OR
PA1 AND AGRA THEN pb0-(pa0)*23 145 GOSUB 148IF ra8 THEN 152 146 GOSUB 151GOSUB
149nn+1GOTO 152 147 GOSUB 149LOCATE 15,1PEN 2PRTINT"HALF TIME"PEN 1LOCATE 12,8
PRINT"("r")"LOCATE 32,8PRINT"("s")"GOSUB 396LOCATE 15,1PRINT" "RETURN 1
48 raINT(RND*99)RETURN 149 LOCATE 17,8PRINT rLOCATE 37,8PRINT sLOCATE 19,2PRINT
INT(n)GOSUB 151RETURN 150 ra1+INT(RND*10)RET"URN 151 LOCATE 1,15PRINT"
"RETURN 152 IF pa0 THEN 158 ELSE GOSUB 150rbIN
T(RND*99)IF rb3 THEN 156 153 GOTO 133 154 GOSUB 155GOTO 153 155 blbl+1RETURN
156 ra2+INT(RND*10)IF g(ra)1 THEN 156 157 v(ra)v(ra)+1IF v(ra)2 THEN g(ra)g(ra
)-g(ra)*2GOTO 153 158 GOSUB 150rb1+INT(RND*40) 159 IF rb40 AND bk1 AND bl2 THE
N 300 ELSE 153 160 GOSUB 150akak-3GOTO 153 161 x31x211d11GOSUB 167 162 Q$INKE
Y$Q$UPPER$(Q$)IF Q$"" THEN 162 163 IF Q$T"U" THEN d1d1+(d1x3)IF d111 THEN GOSUB
168 ELSE GOSUB 167 164 IF Q$"D" THEN d1d1-(d1x2)IF d111 THEN GOSUB 168 ELSE GO
SUB 167 165 IF ASC(Q$)13 THEN IF d111 THEN 171 ELSE 169 166 GOTO 162 167 GOSU
B 151id1GOSUB 211LOCATE 1,15PRINT d1z$" ",,k,I.MANAGERnLNb$(d1)" "INT(a(d1))RETU
RN 168 PEN 1GOSUB 124PRINT CHR$(22)+CHR$(1)FOR z20 TO 36id1GOSUB 211LOCATE z,5+
d1PRINT CHR$(143)NEXTPEN 0LOCATE 19,5+d1PRINT d1z$" "b$(d1)" "LOCATE 33,5+d1PRIN
T INT(a(d1))x$PRINT CHR$(22)+CHR$(0)PEN 1RETURNc 169 IF g(d1)0 THEN 166 170 v
(d1)0add1d112GOSUB 124GOSUB 168x312x216GOTO 162 171 IF p(d1)0 THEN 166 172 GOS
UB 151id1GOSUB 195GOSUB 191GOSUB 210d10GOSUB 124bkbk-(bk2)GOTO 133 173 CLSLOCAT
E 16,1PEN 2PRINT y$(1)LOCATE 4,2P,9EN 1PRINT"1ST TEAM"LOCATE 24,2PRINT"RESERVES"
LOCATE 6,15PEN 2PRINT"SUBS"LOCATE 15,3PEN 1PRINT"T F"FOR i1 TO 11GOSUB 211LOCA
TE 1,i+3PRINT iz$" "b$(i)LOCATE 14,i+3PRINT INT(a(i))x$ 174 PRINT INT(g(i))NEXT
FOR i12 TO 16GOSUB 211LOCA TE 1,i+4PRINT iz$" "b$(i)LOCATE 14,i+4PRINT INT(a(i))
x$INT(g(i))NEXTad17GOSUB 209GOSUB 190y115y217GOSUB 208GOSUB 194GOSUB 207 175 GO
SUB 376 176 IF q$"H" THEN 11 ELSE IF q$"I" THEN 181 ELSE IF q$"C" THEN 177 ELSE
175 177 x33x11xI224ix1GOSUB 204GOSUB 198adix11-(g(ad)0 OR p(ad)0 OR a(ad)0 OR
n(1,ad)ab OR n(1,ad)ab AND n(2,ad)h(n(1,ad)))*16 178 x31ix1GOSUB 202GOSUB 198IF
a(i)0 OR g(i)0 OR p(i)0 OR n(1,i)ab OR n(1,i)ab AND n(2,i)h(n(1,i)) THEN 179 EL
SE 180 179 GOSUB 207GOTO 175 180 GOSUB 195GOSUB 206iadGOSUB 206GOSUB 191GOSUB
194GOSUB 207GOTO 175 181 LOCATE 24,2PRINT" "LOCATE 22,3PRINT"C M CAP AGE
AVA "FOR i1 TO 16LOCATE 21,i+3-(i11)PRINT INT(d(i))LOCATE 23,i+3-(i11)PRINT IN
T(f(i))LOCATE 25,i+3-(i11)PRINT INT(c(i))" "LOCATE 29,i+3-(i11)PRINT INT(b(i))LO
CATE 33,i+3-(i11) 182 PRINT e$(n(1,i))" "INT(n(2,i))NEXTLOCATE 4,22PEN 2PRINT"M
-MENU H-HOPEFULLS I-INFORMATION S-SQUAD"PEN 1 183 GOSUB 376 184 IF q$"I" THEN
185 ELSE IF q$"S" THEN 173 ELSE IF q$"H" THEN 11 ELSE 183 185 CLSLOCATE 16,1PEN
2PRINT y$(1)LOCATE 2,2PEN 1PRINT"RESERVES"ad0GOSUB 209LOCATE 23,3PRINT"C M CAP
AGE AVA"FOR i17 TO 22LOCATE 22,i-13PRINT INT(d(i))LOCATE 24,i-13PRINT INT(f(i)),
l,I.MANAGER%,LMLOCATE 26,i-13PRINT c(i)LOCATE 30,i-13PRINT INT(b(i)) 186 LOCATE
34,i-13PRINT e$(n(1,i))INT(n(2,i))NEXTGOSUB 190FOR i23 TO 24LOCATE 22,i-12PRINT
d(i)LOCATE 24,i-12PRINT INT(f(i))LOCATE 26,i-12PRINT c(i)LOCATE 30,i-12PRINT IN
T(b(i))e$(n(1£R,i))INT(n(2,i))NEXTy115y29GOSUB 208GOSUB 194 187 ad17LOCATE 8,23
PEN 2PRINT"M-MENU H-HOPEFULLS S-SQUAD"PEN 1 188 GOSUB 376 189 IF q$"S" THEN 17
3 ELSE IF q$"H" THEN 11 ELSE 188 190 FOR i23 TO 24GOSUB 211LOCATE ad+3,i-12PRIN
T iz$" "b$(i)LOCATE ad+16,i-12PRINT INT(a(i))x$INT(ABS(g(i)))NEXTRETURN 191 ae-
(e(1)1)*((c(1)/8)+g(1)+f(1))af0ag0ah0FOR m2 TO 11afaf-(e(m)2)*((c(m)/8)+g(m)+f(m
))agag-(e(m)3)*((c(m)/8)+g(m)+f(m))ahah-(e(m)4)*((c(m)/8)+g(m)+f(m))NEXT 192 ae
pINT(ae/2.9)afaf/2.9agag/2.9ahah/2.9 193 afINT(af/3.9)agINT(ag/2.9)ahINT(ah/2.9
)aeae-((ae-9)/2)*(1+SGN(ae-9.05))agag-((ag-9)/2)*(1+SGN(ag-9.05))afaf-((af-9)/2)
*(1+SGN(af-9.05))ahah-((ah-9)/2)*(1+SGN(ah-9.05))RETURN 194 LOCATE y2+20,y1+1PR
INT aeLOCATE y2+20,y1+2PRINT afLOCATE y2+20,y1+3PRINT agLOCATE y2+20,y1+4PRINT a
hRETURN 195 D1a(ad)D2b(ad)D3c(ad)D4d(ad)D5e(ad)D6f(ad)D7g(ad)D8o(ad)D9p(ad)f1n(
1,ad)f2n(2,ad)z$b$(ad) 196 a(ad)a(i)b(ad)b(i)c(ad)c(i)Z£d(ad)d(i)e(ad)e(i)f(ad)
f(i)g(ad)g(i)o(ad)o(i)p(ad)p(i)n(1,ad)n(1,i)n(2,ad)n(2,i)b$(ad)b$(i) 197 a(i)D1
b(i)D2c(i)D3d(i)D4e(i)D5f(i)D6g(i)D7o(i)D8p(i)D9n(1,i)f1n(2,i)f2b$(i)z$RETURN 1
98 Q$INKEY$IF Q$"" THEN 198 E!LSE Q$UPPER$(Q$) 199 IF Q$"U" THEN ii+(ix1) ELSE
IF Q$"D" THEN ii-(ix2) 200 IF ASC(Q$)13 THEN PRINT CHR$(7)RETURN 201 ON x3 GOS
UB 202,203,204,205GOTO 198 202 LOCATE 1,23PRINT"PLAYERS NEW POSITION
"LOCATE 27,23PRINT iRETURN 203 LOCATE 1,21PRINT"WHICH MONTH
"LOCATE 13,21PRINT e$(i)RETURN 204 LOCATE 1,23PRINT"WHICH PLAYER TO BE
MOVED "LOCATE 27,23PRINT iRETURN 205 LOCATE 1,21PRINT"WHICH TEA
M "LOCATE 12uJm,I.MANAGERT.,MQ,21PRINT a$(i)ABS(k(i))RET
URN 206 ib2-(i12)*i-(i11 AND i17)*(i+1)-(i16 AND i23)*(i-16)-(i22)*(i-15)ic2-(i
16)*19GOSUB 211LOCATE ic-1,ib+1PRINT iz$" "b$(i)" "LOCATE ic+12,ib+1PRINT INT(
a(i))x$INT(ABS(g(i)))RETURN 207 LOCATE 1,23PEN 2PRINT"M-MENU C-CHANGE H-HOPEFUL
LS I-INFORM/ION"PEN 1RETURN 208 LOCATE y2+4,y1+1PRINT"GOALKEEPER"LOCATE y2+4,y1
+2PRINT"DEFENCE"LOCATE y2+4,y1+3PRINT"MIDFIELD"LOCATE y2+4,y1+4PRINT"ATTACK"RETU
RN 209 LOCATE ad+17,3PRINT"T F"FOR i17 TO 22GOSUB 211LOCATE ad+3,i-13PRINT iz
$" "b$(i)LOCATE ad+16,i-13PRINT INT(a(i))x$INT(ABS(g(i)))NEXTRETURN 210 afaf-(a
m1)*2agag-(am1)*2RETURN 211 IF p(i)0 THEN x$"I"GOTO 212 ELSE IF g(i)0 THEN x$"S
"GOTO 212 ELSE IF a(i)0 THEN x$"R"GOJPTO 212 ELSE IF h(ab)1 OR abn(1,i) AND acn(
2,i) THEN x$"A"GOTO 212 ELSE x$" " 212 IF e(i)1 THEN 213 ELSE IF e(i)2 THEN 214
ELSE IF e(i)3 THEN 215 ELSE 216 213 z$"G"RETURN 214 z$"D"RETURN 215 z$"M"RET
URN 216 z$"A"RETURN 217 GOSUB 282FOR i1 TO 40b(i)b(i)+1a(i)a(i)-(b(i)29)*0.4+(
b(i)28)*0.8a(i)a(i)+(a(i)9.9)*(a(i)-9.9)-(a(i)1)*(ABS(a(i))+1)NEXTGOSUB 191FOR i
1 TO 60k(i)ABS(k(i))NEXTk(bi)k(bi)-k(bi)*2 218 bebe+(j$(1)y$(1) AND j$(2)y$(1)
AND j$(3)y$(1) AND j$(4)Gy$(1) AND g$(1)y$(1))*be*2IF bg0 AND be0 THEN bfbeGOSUB
419GOSUB 118GOSUB 381GOTO 224 219 IF bg0 AND be0 THEN bfbeGOSUB 419GOSUB 118GO
SUB 381GOTO 224 220 IF bg0 THEN bh0GOSUB 57beABS(be)bebe-(be1)+(be2)GOSUB 419GO
SUB 420GOSUB 118GOSUB 381 221 IF be1 AND j$(1)y$(1) OR be1 AND y$(1)j$(2) THEN
372 222 IF be2 AND j$(3)y$(1) OR be2 AND j$(4)y$(1) THEN 372 223 GOSUB 305GOTO
372 224 GOSUB 244IF g$(1)"" THEN 227 225 ra1+INT(RND*29)IF a$(ra)j$(1) OR a$(
ra)j$(2) OR a$(ra)j$(3) OR a$(ra)j$(4) OR a$(ra)y$(1) THEN 225 226 g$(1)a$(ra)
227 bh7h$(8)LEFT$(g$(1),9)+LEFT$(MID$(h$(8),10),2)+"V"+MID$(h$(8),13)IF ABS(bf)
2 THEN 229 228 d$(6)"EC FINALS "h$(15)LEFT$(h$(15),14)+j$(1)+MID$(h$(15),24)h
$(14)LEFT$k,m,I.MANAGER m,LR(h$(14),14)+j$(2)+MID$(h$(14),24)x11x22GOSUB 370GOTO
230 229 d$(6)"WC FINALS "h$(15)LEFT$(h$(15),14)+j$(3)+MID$(h$(15),24)h$(14)L
EFT$(h$(14),14)+j$(4)+MID$(h$(14),24)x13x24GOSUB 370 230 h(6)bhxx13 231 PEN 1L
OCATE 5,12PRINT h$(8)LaOCATE 5,18PRINT h$(14)LOCATE 5,19PRINT h$(15)FOR I1 TO 6+
(ABS(BF)1)*5IF ABS(bf)1 THEN GOSUB 374 ELSE GOSUB 382 232 FOR K1 TO RA 233 RAN
DOMIZE TIMErb-30+INT(RND*91)RBRB+((RB0)*RB)+1a10 234 FOR jr(1,i) TO r(2,i)rb1+I
NT(RND*60)PEN 2LOCQATE 15,10PRINT"DRAW "LOCATE 21,10PRINT jIF ABS(k(j))rb+a1 OR
ABS(k(j))rb-a1 THEN RAJJ98 235 NEXTIF J99 THEN PEN 1 ELSE JRAGOTO 239 236 a1a1
+1GOTO 234 237 NEXT 238 NEXTIF I99 THEN 63 ELSE 246 239 GOTO 63 244 FOR i1 T
O 15h$(i)STRINGF$(24," ")q$MID$(h$(i),13)h$(i)LEFT$(h$(i),11)+"V"+LEFT$(q$,11)+C
HR$(32)+e$(6) 245 a328+(i1 AND i4)*7+(i3 AND i8)*14+(i7)*21h$(i)LEFT$(h$(i),28)
+STR$(a3)NEXTRETURN 246 GOSUB 420IF ABS(bf)2 THEN 248 247 d$(6)"EC FINALS "G
OTO 249 248 dz$(6)"WC FINALS " 249 GOSUB 373GOTO 372 250 o(1)o(1)-(e(1)1)*s
FOR i17 TO 40g(i)g(i)-(g(i)1)*ABS(g(i))*2NEXTGOSUB 251aeae+(ae9)afaf+(af9)agag+(
ag9)ahah+(ah9)aiai+(ai9)ajaj+(aj9)akak+(ak9)alal+(al9)GOTO 255 251 FOR k1 TO 16
IF g(k)0 THEN adkGOSUB 253GOSUB 195 252 NEXTRETURN 253 FOR i17 TO 24IF g(i)0 A
ND a(i)0 AND p(i)0 THEN FLAGII98 254 NEXTIF I99 THEN IFLAGRETURN ELSE IF ex1 AN
D n30 OR ex0 AND n90 THEN 153 ELSE 252 255 GOSUB 150IF ra4 THEN 2Q59 256 FOR i
17 TO 40IF b(i)28 THEN 258 257 a(i)0b(i)0c(i)0d(i)0f(i)0g(i)0o(i)0p(i)0n(2,i)0I
41 258 NEXT 259 GOSUB 150IF ra3 THEN 262 260 ra12+INT(RND*28)+1IF a(ra)0 OR p
(ra)0 OR g(ra)0 THEN 260 261 p(ra)1+INT(RND*99) 262 bm0bb0ra(INT(ABS(k(g4))-AB
S(k(bi))))/10FOR i1 TO 11g(i)g(i)+(g(i)1)*(g(i)*2)c(i)c(i)+1rb0+INT(RND*11)/10
264 IF rs THEN F(I)F(I)-(RA0)*(((ABS(RA+RB))/(1-(AM1))))-(RA0)*(RB/(1-(AM1))) 2
65 IF rs THEN F(I)F(I)+(RA0)*(RB*(1-(AM1)))+(,l,I.MANAGER,NMRA0)*(((RA+RB)*(1-(A
M1)))) 266 IF rs THEN F(I)F(I)-((RA0)*(ABS(RA+RB))/2)+((RA0)*((RA+RB)/2)) 267
F(I)F(I)+((F(I)9.9)*(F(I)-9.9)-(F(I)1)*(ABS(F(I))+1))NEXTGOSUB 191 268 GOSUB 37
8GOSUB 373IF LEFT$(MID$(d$(ab),4),6)"FINALS" THEN 269 ELSE 271m 269 IF bf0 THEN
271 270 ra8+(bh14)*4+(bh21)*6+(bh28)*7h$(ra)LEFT$(h$(ra),10)+STR$(r)+"V"+STR$(
s)+MID$(h$(ra),14)r1rs1sw1GOSUB 46IF ra1 THEN rr1ss1GOSUB 335h(ab)bhGOTO 279 ELS
E GOSUB 52rr1ss1GOSUB 335h(ab)bhGOTO 279 271 IF LEFT$(d$(ab),2)"TO" AND t(t1)ac
THEN t$(t1)LEFT$(t$(t1),9)+STR$(s)+STR$(r)+MID$(t$(t1),12)h(ab)h(ab)+7h(ab)h(ab
)+(h(ab)28)*h(ab)GOTO 279 272 d$(ab)LEFT$(d$(ab),12)+STR$(s)+STR$(r)+MID$(d$(ab
),15) 273 IF RIGHT$(LEFT$(d$(ab),12),2)"EQ" AND RIGH3T$(LEFT$(d$(ab),10),1)"H"
OR RIGHT$(LEFT$(d$(ab),12),2)"WQ" AND RIGHT$(LEFT$(d$(ab),10),1)"H" THEN MID$(h$
(ab-1),11,3)MID$(STR$(R),2,1)+STR$(s)MID$(H$(AB-1),12,1)"V"GOTO 276 274 IF LEFT
$(MID$(d$(ab),11),2)"EQ" AND LEFT$(MID$(d$(ab),10),1)"A" OR L.EFT$(MID$(d$(ab),1
1),2)"WQ" AND LEFT$(MID$(d$(ab),10),1)"A" THEN MID$(h$(ab-1),11,3)MID$(STR$(S),2
,1)+STR$(r)MID$(H$(AB-1),12,1)"V"GOTO 276 275 GOTO 279 276 GOSUB 90r$LEFT$(h$(
ab),9)s$LEFT$(MID$(h$(ab),15),9)FOR i1 TO 60IF r$a$(i) THEN a1i- 277 IF a$(i)s$
THEN a2i 278 NEXTS$LEFT$(H$(AB),9)GOSUB 349A1G4S$MID$(H$(AB),15,9)GOSUB 349A2G
4GOSUB 336MID$(h$(ab),11,3)MID$(STR$(R),2,1)+STR$(S)MID$(H$(AB),12,1)"V"GOSUB 90
GOSUB 82LOCATE 9,16PEN 1PRINT LEFT$(h$(ab),24) 279 IF abs12 THEN GOSUB 286 280
IF ab12 AND ac31 THEN 217 281 LOCATE 10,21PEN 2PRINT" M-MENU "PE
N 1q$INKEY$q$UPPER$(q$)IF q$"M" THEN GOSUB 118GOTO 108 ELSE 281 282 CLSGOSUB 37
3a1FOR i1 TO 40a(i)a(i)+(b(i)33)*a(i)c(i)c(i)+(a(i)E0)*c(i)IF a(i)0 THEN 284 28
3 NEXTRETURN 284 z$b$(i)b$(i)f$(a)f$(a)z$GOSUB 285aa+1aa+(a6)*5GOTO 283 285 e(
i)INT(1.6+(RND*3.3))a(i)5+INT(RND*49)/10g(i)1+INT(RND*89)/10d(i)3+INT(RND*69)/10
f(i)1+INT(RND*89)/10b(i)18+INT(RND*11)+1G$6,k,I.MANAGERj,LN(I)G(I)+(G(I)A(I))*(G
(I)-A(I))RETURN 286 bnacFOR mab TO 12IF LEFT$(d$(m),2)"TO" THEN 287 ELSE 289 2
87 IF LEFT$(d$(ab),2)"TO" AND h(ab)0 THEN ra1-(ac7)-(ac14)*2-(ac21)*3ft(ra)GOSUB
292M98GOTO 421 288 IF LEFT$(d$(ab),2)"TO" THEN h(m)7ft(1)GOSUB 292M98GOTO 421
289 IF LEFT$(MID$(d$(m),4),6)"FINALS" AND ac29 AND bf0 THEN fbh-(bh0)*7GOSUB 29
2M98GOTO 421 290 FOR fbn TO 30IF h(m)f AND d$(m)"" AND LEFT$(d$(m),2)"TO" AND L
EFT$(MID$(d$(m),4),6)"FINALS" AND d$(13)"" mTHEN GOSUB 292M98F31 291 NEXTbn1GOT
O 421 292 FOR k1 TO 40n(1,k)mra1+INT(RND*50)IF ra9 THEN n(2,k)f+1GOTO 294 293
n(2,k)1+INT(RND*(f-1)) 294 NEXT 295 FOR k1 TO 16IF n(2,k)h(n(1,k)) THEN 296 EL
SE 299 296 FOR j17 TO 24IF a(j)0 OR Wg(j)0 OR p(j)0 OR n(2,j)h(n(1,j)) THEN 298
297 adkijGOSUB 195J98 298 NEXTIF J99 THEN n(2,k)h(n(1,k)) 299 NEXTGOSUB 191R
ETURN 300 IF bk2 THEN 153 301 GOSUB 150IF f(ra)0 THEN 301 302 d1rap(d1)1+INT(
RND*99)iraGOSUB 151GOSUB 211LNOCATE 1,15PRINT d1z$" "b$(d1)INT(a(d1))"INJURED"GO
TO 169 303 IF bb1 THEN RETURN 304 DEF FN y7+INT(RND*3)-INT((ABS(k(g4))/10))bb1
aiFN yajFN yakFN yalFN yRETURN 305 FOR i1 TO 6IF bir(2,i) AND bir(1,i) THEN bdi
I7 306 NEXT 307 ia11+r(2,bd)-r(1,bd)s(1)biFOR i2 TO 4 308 rar(1,bd)+INT(RND*a
1) 309 s(i)raFOR x1 TO i-1 310 IF ras(x) OR a$(ra)j$(1) OR a$(ra)j$(2) OR a$(r
a)j$(3) OR a$(ra)j$(4) THEN 308 311 NEXTNEXTFOR i1 TO 4g$(i)a$(s(i))NEXT 312 r
a1FOR i1 TO Q12h$(i)g$(u(ra))+" V "+g$(u(ra+1))+CHR$(32)rara+2NEXT 313 FOR i2
TO 12 STEP 2h$(i)LEFT$(h$(i),24)+e$(i)+MID$(h$(i),28)ra2+INT(RND*29)h(i)rah$(i)
LEFT$(h$(i),28)+STR$(ra)+MID$(h$(i),31)h$(i-1)LEFT$(h$(i-1),24)+e$(i)+MID$(h$(i-
1),28) 314 h$(i-1)LEFT$(h$(i-1),28)+STR$(ra)+MID$(h$(i-1),31) 315 IF LEFT$(h$(
i-1),9)y$(1) THEN d$(i)LEFT$(MID$(h$(i-1),15),9)d$(i)LEFT$(d$(i),9)+"H"d$(i)LEFT
$(d$(i),10)+CHR$(69-(be2)*18)+"Q"GOTO 317 316 d$(i)LEFT$(h$(i-1),9)+MID$(d$(i),
10)d$(i)LEFT$(d$(N,i,I.MANAGER a,KMi),9)+"A"+MID$(d$(i),11)d$(i)LEFT$(d$(i),10)+
CHR$(69-(be2)*18)+"Q"+MID$(d$(i),13) 317 NEXTRETURN 318 GOSUB 319GOTO 330 319
CLSIF ABS(be)2 THEN 321 320 GOSUB 367GOSUB 361GOSUB 365ra1LOCATE 5,1PEN 2PRINT
l$"S"GOTO 322 321 GOSUB 367GOSUBZ 360GOSUB 365ra3LOCATE 10,1PEN 2PRINT l$"S"
322 LOCATE 3,23PRINT"H "PEN 1PRINT j$(ra+1)LOCATE 24,23PEN 2PRINT"W "PEN 1PRINT
j$(ra) 323 FOR i1 TO 15IF i1 THEN 324 ELSE IF i2 THEN 325 ELSE IF i4 THEN 326 E
LSE IF i8 THEN 327 ELSE 328 324 GOSUB 367GOSUB 365x3y14GOSUB 329GOTO 328 325 G
OSUB 367GOSUB 364GOSUB 365x5y12GOSUB 329GOTO 328 326 GOSUB 367GOSUB 363GOSUB 36
5x8y9GOSUB 329GOTO 328 327 GOSUB 367GOSUB 362x13y12GOSUB 329IF i15 THEN RETURN
328 PRINT TAsB(5)h$(i)NEXTRETURN 329 LOCATE y,xPEN 2PRINT l$PEN 1RETURN 330 G
OSUB 375GOTO 330 331 GOSUB 378bz14FOR ixx TO yy 332 S$LEFT$(H$(I),9)GOSUB 349A
1G4S$MID$(H$(I),15,9)GOSUB 349A2G4GOSUB 336H$(I)LEFT$(H$(I),10)+STR$(R)+"V"+STR$
(S)+MIBD$(H$(I),14)LOCATE 5,BZPEN 1PRINT h$(i)bzbz+1NEXT 333 IF w1 THEN w0GOTO
334 ELSE PEN 2LOCATE 14,23PRINT"PRESS A KEY"CALL &BB18 334 RETURN 335 bfbf+(rs
)*bf*2RETURN 336 r-2+INT(RND*7)-(ABS(K(A1))ABS(K(A2)))*3RINT(R-2)RR+(R0)*RS-2+J
0INT(RND*6)-(ABS(K(A2))ABS(K(A1)))*3SINT(S-2)SS+(S0)*SIF ab6 AND acbh AND rs THE
N 336 337 RETURN 338 FOR l1 TO 5FOR i7 TO 1 STEP-1r$LEFT$(h$(i),9)s$MID$(H$(I)
,15,9)FOR j1 TO 60IF a$(j)r$ THEN rajrbABS(k(j)) 339 IF a$(j)s$ THEN rcjrdABS(k
(j)) 340 NEXTFOR k1 TO 60IF ABS(k(k))(rb-1) THEN e1k(k)k(k)k(ra)k(ra)e1 341 IF
ABS(k(k))rd-1 THEN e1k(k)k(k)k(rc)k(rc)e1 342 NEXT k,i,lk(bi)k(bi)+(k(bi)0)*(k
(bi)*2)RETURN 343 IF bm1 THEN RETURN 344 CLSbm1IF LEFT$(d$(aJb),4)"TOUR" OR RI
GHT$(LEFT$(d$(ab),9),6)"FINALS" THEN 351 345 bjh(ab)am1-(MID$(LEFT$(d$(ab),10),
10)"A")r$y$(1)s$LEFT$(d$(ab),9)GOSUB 349 346 IF LEFT$(MID$(d$(ab),11),1)"F" THE
N n$"FRIENDLY"RETURN 347 IF MID$(d$(ab),11)"EQ" THEN GOSUB 361Fw,k,I.MANAGER,KK
GOSUB 366n$l$RETURN 348 GOSUB 360GOSUB 366n$l$RETURN 349 FOR N1 TO 60IF a$(N)s
$ THEN g4NN61 350 NEXTRETURN 351 IF RIGHT$(LEFT$(d$(ab),9),6)"FINALS" THEN 353
352 n$"TOUR"bj1-INT(h(ab)14)-(h(ab)21)*2-(h(ab)28)*3am2s$LEFT$(t$(t1)T,9)r$y$(
1)GOSUB 349RETURN 353 am2+(j$(2)y$(1) AND bf1 OR j$(4)y$(1) AND bf2) 354 IF bf
1 THEN GOSUB 361 ELSE GOSUB 360 355 bjbhIF bh14 THEN 357 ELSE IF bh21 THEN 358
ELSE IF bh28 THEN 359 356 GOSUB 362r$y$(1)s$RIGHT$(LEFT$(h$(8),23),9)bj7GOSUB 3
49n$l$RETURN 357 GOSUB 363GOSUB 365r$y$(1)s$RIGHT$(LEFT$(h$(4),23),9)bj14GOSUB
349n$l$RETURN 358 GOSUB 364GOSUB 365r$y$(1)s$RIGHT$(LEFT$(h$(2),23),9)bj21GOSUB
349n$l$RETURN 359 GOSUB 365r$y$(1)s$RIGHT$(LEFT$(h$G(1),23),9)bj28GOSUB 349n$l
$RETURN 360 l$"WORLD CUP"RETURN 361 l$"EUROPEAN CHAMPIONSHIP"RETURN 362 l$l$+
" 1ST ROUND"RETURN 363 L$L$+" QUARTER"RETURN 364 L$L$+" SEMI"RETURN 365 L$L$+
" FINAL"RETURN 366 L$L$+" QUALIFIER"RETURN 367 Le$""RETURN 368 LOCATE 26,rbPR
INT"RETIRED"GOTO 78 369 LOCATE 26,rbPRINT"SUSPENDED"GOTO 78 370 rb15FOR zx1 TO
x2IF j$(z)y$(1) THEN h$(rb)LEFT$(h$(rb),16)+LEFT$(h$(8),9)+MID$(h$(rb),26)h$(8)
y$(1)+MID$(h$(8),10)Z98 371 rara-1NEXTRETURN 372 GOSUB 286GOTO 108 373 LOCATE
1,21PEN 3PRINT SPACE$(14)"PLEASE WAIT"SPACE$(12)RETURN 374 ra13RETURN 375 LOC
ATE 16,23PEN 2PRINT"M-MENU"PEN 1 376 q$INKEY$IF q$"" THEN 377 ELSE q$UPPER$(q$)
IF q$"M" THEN 108 377 RETURN 378 FOR i17 TO 2M2LOCATE 1,iPRINT SPACE$(40)NEXTR
ETURN 379 FOR i1 TO 4IF act(i) THEN zz1t1ih(ab)t(t1)I98 380 NEXTIF I99 THEN 11
0 ELSE RETURN 381 BGBG-(BG0)+(BG1)RETURN 382 ra1-(i1)*3-(i2)*3-(i3)RETURN 383
CLSPEN 1LOCATE 11,12PRINT"INSERT BL8ANK TAPE"LOCATE 13,14PEN 2PRINT"PRESS ANY K
EY"CALL &BB18GOSUB 387GOTO 108 387 SPEED WRITE 1OPENOUT"!s" 388 FOR i1 TO 5FOR
z1 TO 5WRITE#9,q(i,z)NEXT z,i 389 WRITE#9,bm,bg,be,bf,bh,bj,o4,bb,o1,o2,o3,t1,
xx,yy,aa,ab,ae,af,ag,ah,bi,g4,ac,r$,n$,s$RD,,l,I.MANAGER&V,MA,ai,aj,ak,al 390 F
OR i1 TO 60WRITE#9,a$(i),k(i)NEXTFOR i1 TO 24WRITE#9,u(i)NEXT 391 FOR i1 TO 40W
RITE#9,a(i),g(i),d(i),f(i),c(i),b(i),b$(i),e(i),o(i),p(i)NEXT 392 FOR i1 TO 6WR
ITE#9,r(1,i),r(2,i)NEXTFOR i1 TO 4WRITE#9,j$(i),t(i),g$(i)NE+HXTFOR i1 TO 5WRITE
#9,f$(i),t$(i)NEXTFOR i1 TO 2WRITE#9,y$(i)NEXTFOR i1 TO 15WRITE#9,h$(i)NEXT 393
FOR i1 TO 12WRITE#9,h(i),d$(i)NEXTFOR i1 TO 2FOR i11 TO 40WRITE#9,n(i,i1)NEXT i
1,i 394 CLOSEOUTRETURN 395 FOR z1 TO 12000NEXTRETURN 396 FOR z1 TO 3000NEXTRE
TURN 397 IF pa0 THEN LOCATE px,pyRA1+INT(RND*3)xINT(RND*11)+1IF RA1 AND e(x)4 O
R RA1 AND E(X)4 THEN 397 ELSE o(x)o(x)+1GOTO 399 398 Q$"GOAL"LOCATE px,pzRETUR
N 399 f(x)f(x)+1g(x)g(x)+1IF f(x)9 THEN f(x)9 400 IF g(x)9 THEN g(x)9 401 Q$B
$(X)RETURN 402 RANDOMIZE TIMEb1+INT(ABS(RND*k(bi)-k(g4)+100))x1+INT(RND*410)z1+
INT(RND*b) 403 IF ai+aj+ak+alae+af+ag+ah THEN 405 404 IF x410 THEN pa0RETURN E
LSE IF x300 AND x303 AND zb THEN pa1RETURN ELSE pa2RETURN 405 IF x410 THEN pa1R
ETURN ELSE IF x300 AND x303 AND zb THEN pa0RETURN ELSE pa2RETURN 406 IF ex0 THE
N n0GOSUB 149ex1LOCATE 15,1PEN 2PRINT"EXTRA TIME"PEN 1GOTO 134 407 GOSUB 151r2+
INT(RND*4)s3+INT(RND*3)IF rs THEN 407 ELSE LOCATE 12,15PRINT r"PENALTIES"sGOTO 2
50 408 xc-(RIGHT$(d$(ab),1)"Q" AND bg1 OR RIGHT$(d$(ab),1)"Q" AND h(ab-1)1 OR b
g0 AND d$(ab)"")RETURN 409 FOR n1 TO 4IF g$(n)a$(j) THEN N8 410 NEXTIF N9 THEN
236 411 IF BF2 THEN IF J$(3)A$(J) OR J$(4)A$(J) THEN 236 412 IF J$(1)A$(J) OR
J$(2)a$(J) THEN 236 413 PEN 1FOR m8 TO 15IF a$(j)LEFT$(h$(m),9) OR a$(j)LEFT$(
MID$(h$(m),15),9) THEN a1a1+1M19 414 NEXTIF M20 THEN 234 415 FOR m8 TO 15IF LE
FT$(h$(m),1)" " THEN h£$(m)a$(j)+MID$(h$(m),10)LOCATE 5,xxPRINT h$(m)zz+1xxxx+1x
xxx+(xx20)*8M19 416 NEXTIF M20 THEN 237 417 FOR m8 TO 15IF RIGHT$(LEFT$(h$(m),
15),1)" " THEN h$(m)LEFT$(h$(m),14)+a$(j)+MID$(h$(m),24)LOCATE 5,xxPRINT h$(m)zz
+1xxxx+1M19 i,,I.MANAGERz,418 NEXTIF M20 THEN 237 ELSE 244 419 ERASE H$DIM H$(
15)RETURN 420 ERASE D$,G$,T$,QDIM G$(4),q(5,5),D$(13),T$(5)RETURN 421 NEXTRETU
RN 422 IF BK2 THEN LOCATE 3,19PEN 0PRINT SPACE$(14)PEN 1 423 RETURN Tous droits réservés. Reproduction sans autorisation interdite. © Kukulcan