000000: 5A 58 54 61 70 65 21 1A 01 0C 20 59 2D 11 F2 08 ZXTape!... Y-...
000010: A6 04 08 04 8C 04 19 09 FF 0F 07 11 00 07 01 00 ................
000020: 2C 47 4F 4C 46 00 00 00 00 00 00 00 00 00 00 00 ,GOLF...........
000030: 00 01 FF 01 65 05 70 01 FF 65 05 00 00 00 00 00 ....e.p..e......
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 24 86 FF FF FF FE 11 EC 08 A6 04 08 04 7B 04 .$............{.
000130: F6 08 FE 0F 07 8F 27 11 06 00 16 D6 00 0A 00 03 ......'.........
000140: 00 00 70 E1 28 0F 29 EF FF 03 28 19 0E 29 F4 FF ..p.(.)...(..)..
000150: 03 28 0E 29 F4 FF 03 28 19 0F 29 F4 FF 03 28 0F .(.)...(..)...(.
000160: 29 01 03 00 00 70 E1 28 12 29 EF FF 03 28 19 0E )....p.(.)...(..
000170: 29 F4 FF 03 28 0F 29 F4 FF 03 28 19 0F 29 F4 FF )...(.)...(..)..
000180: 03 28 0E 29 01 03 00 00 70 E1 28 14 29 EF FF 03 .(.)....p.(.)...
000190: 28 19 0E 29 F4 FF 03 28 10 29 F4 FF 03 28 19 0F (..)...(.)...(..
0001A0: 29 F4 FF 03 28 0F 29 01 03 00 00 70 E1 28 10 29 )...(.)....p.(.)
0001B0: EF FF 03 28 19 0E 29 F4 FF 03 28 11 29 F4 FF 03 ...(..)...(.)...
0001C0: 28 19 0F 29 F4 FF 03 28 0F 29 01 03 00 00 70 E1 (..)...(.)....p.
0001D0: 28 13 29 EF FF 03 28 19 0E 29 F4 FF 03 28 10 29 (.)...(..)...(.)
0001E0: F4 FF 03 28 19 0F 29 F4 FF 03 28 11 29 01 03 00 ...(..)...(.)...
0001F0: 00 70 E1 28 11 29 EF FF 03 28 19 0E 29 F4 FF 03 .p.(.)...(..)...
000200: 28 11 29 F4 FF 03 28 19 0F 29 F4 FF 03 28 10 29 (.)...(..)...(.)
000210: 00 3A 00 14 00 A4 20 8D 20 19 42 2C 0F 2C 0E 2C .:.... . .B,.,.,
000220: 0E 2C 0E 01 8E 20 41 2D 6A 2C 6C 2D 73 2C 77 01 .,... A-j,l-s,w.
000230: CF 20 80 20 19 EF 01 9F 20 1E DC F7 B5 FF 01 B7 . . .... .......
000240: 22 44 22 01 AA 20 FF 42 F5 0F 01 89 00 2C 00 1E "D".. .B.....,..
000250: 00 9E 20 0D 00 00 C9 EF 0E 20 EC 20 19 0F 01 C3 .. ...... . ....
000260: 20 0D 00 00 C1 01 A2 20 0D 00 00 C9 2C 0D 00 00 ...... ....,...
000270: C1 01 B0 20 0D 00 00 C9 00 33 00 28 00 8C 20 30 ... .....3.(.. 0
000280: 2C 33 2C 36 2C 39 2C 31 38 2C 31 39 2C 31 36 2C ,3,6,9,18,19,16,
000290: 31 35 2C 32 2C 31 2C 32 34 2C 32 35 2C 31 33 2C 15,2,1,24,25,13,
0002A0: 31 32 2C 31 32 2C 32 35 2C 32 36 00 1A 00 32 00 12,12,25,26...2.
0002B0: AD 20 0E 01 A8 22 21 43 47 50 49 43 2E 53 43 52 . ..."!CGPIC.SCR
0002C0: 22 2C 1C 00 C0 00 6E 00 46 00 CF 20 19 FF 2C 19 ",....n.F.. ..,.
0002D0: 72 2C 19 90 2C 10 2C 19 40 2C 16 2C 19 20 2C 10 r,..,.,.@,.,. ,.
0002E0: 2C 19 9D 01 CF 20 19 FE 2C 19 56 2C 19 80 2C 0F ,.... ..,.V,..,.
0002F0: 2C 19 80 2C 0F 2C 0F 2C 19 C2 2C 19 28 01 CF 20 ,..,.,.,..,.(..
000300: 19 FD 2C 19 21 2C 0E 2C 19 84 2C 19 20 2C 0F 2C ..,.!,.,..,. ,.,
000310: 12 2C 19 80 2C 16 01 CF 20 19 FC 2C 19 2A 2C 19 .,..,... ..,.*,.
000320: 41 2C 19 9C 2C 19 A0 2C 19 20 2C 19 80 2C 19 80 A,..,..,. ,..,..
000330: 2C 19 20 00 6B 00 50 00 CF 20 19 FB 2C 9B 0F 19 ,. .k.P.. ..,...
000340: B4 2C 19 4B 2C 12 2C 19 31 2C 17 2C 16 2C 10 2C .,.K,.,.1,.,.,.,
000350: 0F 01 CF 20 19 FA 2C 19 A0 2C 19 20 2C 19 80 2C ... ..,..,. ,..,
000360: 19 0C 2C 19 C0 2C 19 58 2C 19 27 01 CF 20 19 F9 ..,..,.X,.'.. ..
000370: 2C 10 2C 17 2C 19 0A 2C 19 12 2C 19 65 2C 17 2C ,.,.,..,..,.e,.,
000380: 19 22 2C 19 4C 01 CF 20 19 F8 2C 0E 2C 11 2C 19 .",.L.. ..,.,.,.
000390: 0C 2C 19 10 2C 19 20 2C 19 40 2C 19 40 2C 19 40 .,..,. ,.@,.@,.@
0003A0: 00 75 00 5A 00 CF 20 19 F7 2C 19 10 2C 19 AF 2C .u.Z.. ..,..,..,
0003B0: 19 40 2C 0E 2C 0E 2C 0E 2C 0E 2C 0E 01 CF 20 19 .@,.,.,.,.,... .
0003C0: F6 2C 0E 2C 19 C0 2C 19 38 2C 12 2C 10 2C 10 2C .,.,..,.8,.,.,.,
0003D0: 10 2C 10 01 CF 20 19 F5 2C 12 2C 12 2C 10 2C 10 .,... ..,.,.,.,.
0003E0: 2C 10 2C 0F 2C 0F 2C 10 01 CF 20 19 F4 2C 10 2C ,.,.,.,... ..,.,
0003F0: 10 2C 12 2C 12 2C 12 2C 16 2C 19 F0 2C 0E 01 CF .,.,.,.,.,..,...
000400: 20 19 F3 2C 0E 2C 0E 2C 0E 2C 0E 2C 0E 2C 19 3F ..,.,.,.,.,.,.?
000410: 2C 19 C0 2C 0E 00 59 00 64 00 CF 20 19 F2 2C 19 ,..,..Y.d.. ..,.
000420: 40 2C 19 40 2C 19 40 2C 19 40 2C 19 40 2C 19 20 @,.@,.@,.@,.@,.
000430: 2C 19 18 2C 15 01 CF 20 19 F1 2C 19 20 2C 19 9D ,..,... ..,. ,..
000440: 9B 20 2C 19 20 2C 19 40 2C 19 40 2C 19 40 2C 19 . ,. ,.@,.@,.@,.
000450: 20 2C 19 20 01 CF 20 19 F0 2C 19 10 2C 19 18 2C ,. .. ..,..,..,
000460: 19 1C 2C 19 1C 2C 19 10 2C 19 10 2C 19 10 2C 0E ..,..,..,..,..,.
000470: 00 13 00 6E 00 85 20 AB 22 21 47 4F 4C 46 31 22 ...n.. ."!GOLF1"
000480: 2C 19 0A 00 17 00 60 EA 82 20 0E 01 BF 20 03 00 ,.....`.. ... ..
000490: 00 70 E1 28 10 29 01 8A 01 C9 00 27 00 DA F7 BF .p.(.).....'....
0004A0: 20 EA 28 19 0A 29 01 9F 20 1E 0C F8 01 BF 22 20 .(..).. ....."
0004B0: 50 45 52 20 54 4F 55 52 4E 41 4D 45 4E 54 22 01 PER TOURNAMENT".
0004C0: C9 00 18 00 EE F7 9F 20 1E 02 F8 01 BF 20 EA 28 ....... ..... .(
0004D0: 19 23 29 3B 22 2B 22 01 C9 00 18 00 F8 F7 9F 20 .#);"+"........
0004E0: 1E 02 F8 01 BF 20 EA 28 19 23 29 3B 22 2D 22 01 ..... .(.#);"-".
0004F0: C9 00 0D 00 02 F8 BF 20 EA 28 19 1C 29 3B 00 42 ....... .(..);.B
000500: 00 0C F8 03 00 00 61 B1 EF FF 19 28 0D 00 00 74 ......a....(...t
000510: FA 29 01 03 00 00 61 B1 EF FF 79 28 03 00 00 61 .)....a...y(...a
000520: B1 2C FF 0E 28 03 00 00 61 B1 29 F5 0F 29 01 BF .,..(...a.)..)..
000530: 20 FF 03 28 19 A3 29 3B 03 00 00 61 B1 3B 01 C9 ..(.£);...a.;..
000540: 00 FB 71 26 00 00 FA 03 00 00 69 EE EF 22 22 01 ..q&......i.."".
000550: 03 00 00 69 EE EF FF 1C 28 FF 43 29 01 D6 20 FF ...i....(.C).. .
000560: 43 F2 22 22 01 D5 01 C9 00 26 00 64 FA 9F 20 1E C."".....&.d.. .
000570: 00 FA 01 A1 20 03 00 00 69 EE EF 22 59 22 20 FC .... ...i.."Y" .
000580: 20 03 00 00 69 EE EF 22 4E 22 20 EB 20 C9 00 0A ...i.."N" . ...
000590: 00 6E FA A0 20 1E 64 FA 00 22 00 C8 FA 03 00 00 .n.. .d.."......
0005A0: 69 EE EF 22 22 01 D6 20 03 00 00 69 EE EF 22 22 i.."".. ...i..""
0005B0: 01 9F 20 1E 00 FA 01 D5 01 C9 00 19 00 4C FE 9E .. ..........L..
0005C0: 20 0D 00 00 7A 39 B9 EF 0F 20 EC 20 1A E8 03 01 ...z9... . ....
0005D0: B0 01 C9 00 53 00 DC FF 8D 20 E4 20 0D 00 00 E1 ....S.... . ....
0005E0: 28 0D 00 00 FA 29 EF F5 28 0D 00 00 FA F1 19 0A (....)..(.......
0005F0: 29 F6 19 0A F5 28 0D 00 00 FA EE 19 63 29 F6 19 )....(......c)..
000600: 63 F5 0D 00 00 FA F6 28 0D 00 00 FA EE 17 20 FA c......(...... .
000610: 20 0D 00 00 FA F1 19 64 29 01 C2 20 FF 46 01 82 ......d).. .F..
000620: 20 17 01 8A 01 C9 00 73 00 DE FF AD 20 0F 01 D8 ......s.... ...
000630: 20 23 0F 2C 12 2C 19 26 2C 19 16 2C 19 16 01 D8 #.,.,.&,..,....
000640: 20 23 10 5C 6B 2C 13 2C 19 25 2C 19 17 2C 19 19 #.\k,.,.%,..,..
000650: 01 D8 20 23 11 2C 12 2C 19 14 2C 19 17 2C 19 18 .. #.,.,..,..,..
000660: 01 BF 20 23 11 2C 03 00 00 70 E1 28 10 29 01 82 .. #.,...p.(.)..
000670: 20 17 01 A2 20 0E 2C 17 01 A2 20 0F 2C 19 1A 01 ... .,... .,...
000680: A2 20 10 2C 19 0B 01 A2 20 11 2C 0E 01 BF 20 03 . .,.... .,... .
000690: 00 00 70 E1 28 0F 29 01 8A 01 C9 00 0C 00 FF FF ..p.(.).........
0006A0: 83 20 1C 03 BB 01 C9 00 00 00 00 00 00 00 00 00 . ..............
0006B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0006C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0006D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0006E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0006F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000700: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000710: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000720: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000730: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000740: 00 00 00 00 00 E8 31 FF FF FF FE 11 DF 08 57 04 ......1.......W.
000750: 57 04 86 04 0C 09 FF 0F 07 12 00 07 01 00 2C 43 W.............,C
000760: 47 50 49 43 2E 53 43 52 00 00 00 00 00 00 00 01 GPIC.SCR........
000770: 00 02 00 08 00 C0 FF 00 40 00 00 00 00 00 00 00 ........@.......
000780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0007A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0007B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0007C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0007D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0007E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0007F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000800: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000810: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000820: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000830: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000840: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000850: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 81 ................
000860: B6 FF FF FF FE 11 E5 08 F6 04 08 04 6C 04 D9 08 ............l...
000870: FE 0F 07 DB 09 15 08 00 16 13 13 FF FF AB 33 57 ..............3W
000880: FF 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
000890: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0008A0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0008B0: AB 13 77 BB 33 13 33 33 33 BB FF 23 BB 13 33 13 ..w.3.333..#..3.
0008C0: 33 33 33 33 33 33 33 33 33 33 33 23 33 33 13 33 33333333333#33.3
0008D0: BB 23 03 03 03 03 03 03 03 03 03 03 03 03 03 03 .#..............
0008E0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0008F0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
000900: 57 BB 13 33 33 33 23 33 33 33 33 57 BB 77 33 BB W..333#3333W.w3.
000910: 33 BB 33 33 13 77 33 BB 13 77 13 33 33 33 23 03 3.33.w3..w.333#.
000920: 77 33 33 23 03 03 03 03 03 03 03 03 03 03 03 03 w33#............
000930: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
000940: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
000950: AB 33 13 33 77 33 23 33 33 BB 33 77 33 33 BB 33 .3.3w3#33.3w33.3
000960: 13 33 33 33 33 33 BB 13 FF 33 23 C0 11 13 33 33 .33333...3#...33
000970: 62 C0 C0 C0 55 23 57 23 03 BD 2C 42 80 03 C0 01 b...U#W#..,B....
000980: 03 03 03 03 03 03 C0 00 00 00 00 80 03 03 03 03 ................
000990: 03 03 03 80 40 C0 03 03 03 03 03 03 03 03 03 03 ....@...........
0009A0: 03 33 13 33 33 33 33 33 33 33 33 33 33 23 BB 23 .3.3333333333#.#
0009B0: 13 33 77 BB BB 13 13 BB 33 57 03 33 BB 23 23 22 .3w.....3W.3.##"
0009C0: 00 55 33 AA 00 77 33 00 00 00 11 33 AB FF 00 00 .U3..w3....3....
0009D0: 00 00 00 00 00 03 00 01 03 03 03 03 03 03 03 03 ................
0009E0: 03 02 00 00 00 00 00 C0 03 03 03 03 03 03 13 33 ...............3
0009F0: 33 33 33 77 33 23 13 33 13 FF FF FF FF 77 AB AB 333w3#.3.....w..
000A00: 57 AB 57 23 AB AB AB FF 03 03 03 57 AB 57 BB 33 W.W#.......W.W.3
000A10: 33 33 03 33 13 AB BB 23 33 33 13 BB BB 77 BB 23 33.3...#33...w.#
000A20: 23 33 13 23 23 AB 03 03 57 03 03 03 03 03 03 33 #3.##...W......3
000A30: 77 AA 40 00 3C 3C 81 03 03 03 03 03 03 03 03 57 w.@.<<.........W
000A40: AB 03 AB 23 33 13 23 03 03 AB 03 03 03 03 03 03 ...#3.#.........
000A50: 03 03 03 03 03 03 03 03 AB 03 03 03 03 03 03 03 ................
000A60: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
000A70: 03 03 03 03 03 03 03 03 03 03 03 2F CF 03 03 06 .........../....
000A80: 0C 48 48 48 0C 0C 0C 09 03 03 03 03 03 03 03 03 .HHH............
000A90: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
000AA0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
000AB0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
000AC0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 48 ...............H
000AD0: 48 C0 C0 C0 C0 40 84 0C 03 03 03 03 03 03 03 03 H....@..........
000AE0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
000AF0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
000B00: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
000B10: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 48 ...............H
000B20: C0 C0 C0 C0 C0 40 84 0C 09 03 03 03 03 03 03 03 .....@..........
000B30: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
000B40: 03 03 03 03 06 0C 08 03 03 03 03 03 03 03 03 53 ...............S
000B50: F3 F3 F3 51 F3 F3 F3 A3 03 03 03 03 03 03 03 03 ...Q...£........
000B60: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 C0 ................
000B70: C0 C0 C0 C0 C0 80 C0 0C 81 03 03 03 03 A2 22 03 ..............".
000B80: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
000B90: 03 03 03 F3 F3 F3 F3 F3 A2 F3 F3 F3 F3 F3 F3 CC ................
000BA0: CC CC CC CC CC CC CC C0 D1 81 03 03 03 03 03 03 ................
000BB0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
000BC0: 03 42 C0 C0 C0 C0 C0 40 40 84 0C 09 03 03 03 03 .B.....@@.......
000BD0: 03 03 03 46 CC CC CC CC CC CC CC CC CC CC CC CC ...F............
000BE0: CC CC CC CC CC CC CC CC 88 CC D9 CC E6 CC F3 64 ...............d
000BF0: CC 98 64 CC CC CC 98 CC 30 CC 64 CC CC CC CC CC ..d.....0.d.....
000C00: CC CC 89 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
000C10: 03 03 40 40 C0 C0 40 40 82 40 84 4C CC CC CC D9 ..@@..@@.@.L....
000C20: 64 B2 CC CC CC CC D9 CC CC CC CC 64 CC 98 CC CC d..........d....
000C30: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
000C40: CC CC CC 64 98 98 64 98 64 98 CC 64 CC 64 CC 98 ...d..d.d..d.d..
000C50: 98 CC 64 CC CC CC CC CC CC F3 F3 F3 A2 00 E6 64 ..d............d
000C60: CC CC C3 C3 C3 C3 C3 C3 C3 C3 C0 EC CC CC CC CC ................
000C70: 64 98 CC 98 CC CC CC CC CC E6 D9 D9 CC CC CC 29 d..............)
000C80: C6 CC CC CC CC CC 98 CC 64 CC CC CC CC CC CC CC ........d.......
000C90: CC 98 CC D9 E6 D9 64 CC D9 CC CC CC E6 D9 CC 30 ......d........0
000CA0: CC CC CC CC CC F3 F3 F3 F3 B2 B2 CC 98 CC CC CC ................
000CB0: CC CC 98 CC C9 82 41 00 82 C3 C3 C3 82 77 CC CC ......A......w..
000CC0: CC CC CC CC CC CC CC CC CC CC CC CC CC 30 CC CC .............0..
000CD0: CC CC CC 30 CC CC CC CC CC CC CC 64 CC CC CC 98 ...0.......d....
000CE0: CC CC 64 CC 64 64 98 CC 98 98 98 CC CC 64 CC CC ..d.dd.......d..
000CF0: CC E6 D9 F3 D9 E6 E6 CC 98 CC 64 CC CC 98 CC 64 ..........d....d
000D00: CC CC CC CC CC C9 C3 41 00 82 C3 C3 C3 99 EE CC .......A........
000D10: CC CC CC CC 98 98 30 64 CC CC 64 64 CC CC CC 64 ......0d..dd...d
000D20: CC E4 CC CC CC CC CC CC CC 64 CC CC CC CC 64 CC .........d....d.
000D30: CC 98 CC CC CC CC CC CC CC CC 98 CC 98 98 CC E6 ................
000D40: D9 CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
000D50: CC CC CC CC CC CC C3 C3 41 00 82 C3 C3 CC 77 CC ........A.....w.
000D60: CC CC CC CC 98 64 E6 64 CC 64 CC 98 98 64 98 CC .....d.d.d...d..
000D70: CC CC CC CC CC CC CC CC CC CC CC CC 98 CC CC CC ................
000D80: CC B7 83 CC CC 64 E4 CC CC D8 CC 64 CC 98 64 CC .....d.....d..d.
000D90: E4 CC F0 CC CC D8 CC CC CC CC E4 CC CC CC CC CC ................
000DA0: CC CC CC CC CC CC CC CC C3 41 00 82 C3 C3 C6 CC .........A......
000DB0: 99 EE CC CC CC 64 CC CC 98 CC F3 CC CC CC E6 F3 .....d..........
000DC0: F2 E6 B2 D9 CC B2 CC CC CC CC CC CC CC CC CC CC ................
000DD0: CC CC CC CC CC E4 CC CC CC CC CC D8 98 D8 CC CC ................
000DE0: CC D8 CC E4 CC CC CC E4 CC CC CC CC CC CC CC CC ................
000DF0: CC CC CC CC CC CC CC CC 41 41 00 C3 C3 C6 CC CC ........AA......
000E00: CC 77 CC CC CC CC CC CC CC CC CC 64 CC CC CC CC .w.........d....
000E10: CC CC D8 98 CC 64 CC 64 CC CC CC CC CC CC CC CC .....d.d........
000E20: CC CC CC CC CC CC D8 CC E4 D8 CC CC CC CC CC CC ................
000E30: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
000E40: CC CC CC CC CC CC CC C9 41 00 82 C3 C3 CC CC CC ........A.......
000E50: CC 77 CC CC CC CC CC CC CC 64 CC 64 CC 64 CC CC .w.......d.d.d..
000E60: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
000E70: CC CC CC D8 CC CC CC CC E4 D8 CC F0 E4 CC CC CC ................
000E80: CC CC CC EB DD CC CC CC CC CC CC CC CC CC CC CC ................
000E90: CC CC CC CC CC CC CC CC CC 88 00 11 22 00 C6 CC ............"...
000EA0: CC CC CC DD BB 33 66 CC CC CC CC CC CC CC 98 CC .....3f.........
000EB0: CC CC CC 64 CC CC CC CC CC CC CC CC CC 64 CC CC ...d.........d..
000EC0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
000ED0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
000EE0: CC CC CC CC CC CC CC CC CC 33 11 77 FF AA 66 CC .........3.w..f.
000EF0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
000F00: CC CC CC CC CC CC CC CC CC CC 64 CC CC CC CC CC ..........d.....
000F10: CC CC CC CC CC CC CC CC 2A 3F 3F 3F 3F 3F 3F 3F ........*???????
000F20: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
000F30: 3F 3F 3F 3F 3F 15 CC CC CC CC CC CC CC 99 FF 66 ?????..........f
000F40: CC CC CC CC CC CC CC 64 CC CC CC CC CC CC CC CC .......d........
000F50: CC CC CC 98 CC 98 CC CC CC 64 CC 64 CC CC CC CC .........d.d....
000F60: CC CC CC CC CC CC CC 2A 3F 3F 3F 3F 3F 3F 3F 3F .......*????????
000F70: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
000F80: 3F 3F 3F 3F 15 F1 3A 15 CC CC CC CC CC CC CC CC ????..:.........
000F90: CC CC CC CC CC 98 98 98 CC 64 CC CC CC CC CC CC .........d......
000FA0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
000FB0: CC CC CC CC CC CC CC CC 2A 3F 3F 3F 3F 3F 3F 3F ........*???????
000FC0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
000FD0: 3F 3F 3F 3F 2A 3F 15 CC CC CC CC CC CC CC CC CC ????*?..........
000FE0: 98 CC 64 CC CC 64 CC CC CC 98 CC CC CC CC CC CC ..d..d..........
000FF0: CC CC CC CC CC CC CC CC CC 98 CC CC CC CC CC CC ................
001000: CC CC CC CC CC CC CC 9D 15 3F 3F 3F 3F 3F 3F 3F .........???????
001010: 3F 3F 3F 3F 3F 3F 3F 2A 15 3F 2A 3F 2A 3F 2A 2A ???????*.?*?*?**
001020: 00 3F 00 15 2A 6E CC CC CC CC CC CC CC CC CC CC .?..*n..........
001030: CC CC CC CC CC CC CC CC CC 64 CC CC CC CC CC CC .........d......
001040: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
001050: CC CC CC CC CC CC CC 00 00 00 00 00 00 00 00 00 ................
001060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001080: 00 00 00 00 00 00 00 F2 C0 FF FF FF FE 11 DB 08 ................
001090: A6 04 08 04 84 04 09 09 FE 0F 07 12 00 07 01 00 ................
0010A0: 2C 43 47 50 49 43 2E 53 43 52 00 00 00 00 00 00 ,CGPIC.SCR......
0010B0: 00 02 00 02 00 08 00 C8 00 00 40 00 00 00 00 00 ..........@.....
0010C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0010D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0010E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0010F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0011A0: 00 21 05 FF FF FF FE 11 D8 08 A6 04 57 04 6E 04 .!..........W.n.
0011B0: DC 08 FE 0F 07 DE 09 15 08 00 16 77 23 77 AB 03 ...........w#w..
0011C0: 03 AB 03 57 03 03 03 03 03 03 03 03 03 03 03 03 ...W............
0011D0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0011E0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0011F0: 03 57 13 23 BB 33 BB 33 33 23 77 33 33 23 77 33 .W.#.3.33#w33#w3
001200: 33 33 77 33 33 33 33 33 33 23 33 57 23 33 13 33 33w333333#3W#3.3
001210: 33 13 33 03 03 03 03 03 03 03 03 03 03 03 03 03 3.3.............
001220: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001230: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001240: 03 AB 23 03 77 33 23 33 33 33 33 33 33 33 33 77 ..#.w3#33333333w
001250: 33 33 13 23 33 33 33 33 33 33 33 FF FF 23 23 C0 33.#3333333..##.
001260: C0 C0 91 62 11 77 03 42 C0 C0 03 03 03 42 C0 C0 ...b.w.B.....B..
001270: 03 03 03 03 03 03 C0 C0 C0 C0 C0 C0 81 03 03 03 ................
001280: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001290: 03 03 13 33 BB 33 33 33 33 33 33 33 33 33 13 BB ...3.333333333..
0012A0: 77 77 33 77 33 33 33 23 33 23 33 33 33 C0 11 33 ww3w333#3#333..3
0012B0: 13 03 33 62 80 C0 11 23 33 03 03 61 A6 42 80 03 ..3b...#3..a.B..
0012C0: C0 01 03 03 03 03 03 03 C0 01 03 03 03 00 03 03 ................
0012D0: 03 03 03 03 03 00 00 00 81 03 03 03 03 03 03 03 ................
0012E0: 03 03 03 13 77 33 13 33 33 33 33 23 33 BB 33 FF ....w3.3333#3.3.
0012F0: 33 BB AB 33 33 BB 33 13 33 77 23 FF 57 13 BB BB 3..33.3.3w#.W...
001300: 33 33 33 77 23 77 FF 57 13 33 23 33 33 33 33 33 333w#w.W.3#33333
001310: 23 23 77 33 03 03 03 03 03 03 03 03 03 03 03 03 ##w3............
001320: 03 03 03 02 00 00 00 00 00 81 03 03 03 03 03 03 ................
001330: 03 13 23 23 33 03 23 33 33 33 BB FF FF FF FF AB ..##3.#333......
001340: FF 77 03 23 FF 57 13 33 03 03 03 03 57 57 FF 03 .w.#.W.3....WW..
001350: 03 03 AB 03 33 13 03 03 23 33 33 33 77 33 33 FF ....3...#333w33.
001360: 13 33 33 13 03 AB 03 AB 03 03 03 03 03 03 03 03 .33.............
001370: 06 00 FF FF C0 14 94 BC 03 03 03 03 03 03 03 03 ................
001380: 03 03 03 03 03 03 57 03 03 AB 03 03 03 03 03 03 ......W.........
001390: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0013A0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0013B0: 03 03 03 03 03 03 03 03 03 03 03 03 03 88 CB 03 ................
0013C0: 03 06 0C 84 84 C0 84 48 0C 09 03 03 03 03 03 03 .......H........
0013D0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0013E0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0013F0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001400: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001410: 03 0C 84 C0 C0 C0 C0 40 0C 0C 03 03 03 03 03 03 .......@........
001420: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001430: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001440: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001450: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001460: 03 48 C0 C0 C0 C0 C0 80 84 0C 09 03 03 03 03 03 .H..............
001470: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001480: 03 03 03 03 03 03 06 03 08 03 03 03 03 03 03 03 ................
001490: 03 03 F3 51 F3 51 F3 F3 F3 A3 03 03 03 03 03 03 ...Q.Q...£......
0014A0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0014B0: 03 C0 C0 C0 C0 C0 C0 80 C0 0C C0 03 03 03 03 41 ...............A
0014C0: C3 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0014D0: 03 03 53 F3 F3 F3 F3 F3 F3 F3 A2 F3 F3 F3 F3 F3 ..S.............
0014E0: F3 CC CC 64 98 CC 64 98 CC CC C0 C4 03 03 03 03 ...d..d.........
0014F0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001500: 03 03 03 42 C0 C0 C0 C0 80 80 80 84 0C 09 03 03 ...B............
001510: 03 03 03 46 CC CC CC CC CC CC CC CC CC CC CC CC ...F............
001520: CC CC CC CC CC CC CC CC CC CC 88 CC CC CC CC CC ................
001530: D9 98 64 CC 98 CC 30 CC 64 CC 98 98 CC CC CC CC ..d...0.d.......
001540: 64 CC CC CC CC 98 03 03 03 03 03 03 03 03 03 03 d...............
001550: 03 03 03 03 80 00 C0 80 80 80 80 00 04 4C CC 98 .............L..
001560: CC CC CC F3 F3 E6 CC CC F3 CC CC CC CC CC CC CC ................
001570: CC 98 CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
001580: CC 64 CC 98 CC 30 CC CC 64 98 98 CC 64 CC 64 64 .d...0..d...d.dd
001590: CC CC CC CC CC CC CC CC CC D9 F3 F3 F3 F3 00 64 ...............d
0015A0: 98 CC CC CC C3 C3 C3 C3 C3 C3 C3 C3 C0 EC CC CC ................
0015B0: 64 CC 64 CC CC 98 98 CC CC CC 98 64 CC D9 F3 CC d.d........d....
0015C0: CC 98 8C CC 75 EE CC CC CC CC CC CC CC 64 CC CC ....u........d..
0015D0: CC CC CC F3 D9 E6 E6 F3 F3 E6 E6 30 CC D9 CC E6 ...........0....
0015E0: E6 30 CC CC CC CC D9 E6 F3 F3 F3 64 64 64 64 30 .0.........dddd0
0015F0: CC 30 CC CC CC CC CC C3 82 00 41 C3 C3 C3 82 77 .0........A....w
001600: CC CC CC CC CC 30 64 CC 64 CC CC 30 CC CC CC CC .....0d.d..0....
001610: CC E4 CC CC CC CC CC CC CC 98 CC CC CC 98 CC CC ................
001620: CC CC CC 98 CC CC CC CC CC 98 98 98 CC 30 64 64 .............0dd
001630: 98 D9 F3 F3 D9 E6 D9 64 30 CC CC CC CC 98 CC CC .......d0.......
001640: CC CC 64 98 98 CC CC C9 C3 82 82 41 41 C3 C3 99 ..d........AA...
001650: EE CC CC CC CC CC 98 98 98 98 CC 98 CC 98 98 98 ................
001660: CC D8 CC 64 CC CC CC CC 64 98 CC CC CC CC CC CC ...d....d.......
001670: CC CC CC CC CC CC CC CC CC 98 CC CC CC 98 CC 98 ................
001680: 71 D9 CC 64 CC CC CC CC CC CC CC CC CC CC CC CC q..d............
001690: CC CC CC CC CC CC CC CC C3 C3 82 41 41 41 C3 CC ...........AAA..
0016A0: 77 CC CC 98 CC CC D9 F3 CC D9 98 30 CC CC 98 98 w..........0....
0016B0: CC CC 98 CC CC CC CC CC CC 64 CC 98 CC CC CC CC .........d......
0016C0: CC CC CC B9 D8 CC 64 98 CC CC 64 CC CC 64 CC CC ......d...d..d..
0016D0: CC CC CC CC CC D8 E4 D8 E4 CC CC CC 64 CC CC CC ............d...
0016E0: CC CC CC CC CC CC CC CC CC CC C3 82 82 41 C3 C3 .............A..
0016F0: C6 CC 99 EE CC CC CC CC 64 64 64 CC CC CC CC D9 ........ddd.....
001700: F3 F3 98 98 E6 CC CC 98 CC CC CC CC 64 CC CC CC ............d...
001710: CC CC CC CC CC CC CC CC CC CC CC CC CC D8 E4 CC ................
001720: D8 CC CC CC CC CC CC CC CC D8 CC D8 CC CC CC CC ................
001730: CC CC CC CC CC CC CC CC CC C9 82 82 41 41 C3 C6 ............AA..
001740: CC CC CC 77 CC CC CC CC CC CC CC CC CC 98 CC CC ...w............
001750: CC CC 64 98 CC CC CC CC CC CC CC CC CC CC CC CC ..d.............
001760: 98 CC CC CC CC CC CC CC CC CC CC CC CC CC CC F0 ................
001770: CC E4 CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
001780: CC CC CC CC CC CC CC CC CC C9 82 82 41 C3 C3 CC ............A...
001790: CC CC CC DD EE CC CC CC CC CC CC CC 98 64 CC CC .............d..
0017A0: 64 CC CC CC CC 98 CC 98 CC CC CC CC CC CC CC CC d...............
0017B0: CC CC CC 64 CC CC CC D8 CC E4 CC CC CC F0 CC CC ...d............
0017C0: CC CC CC CC CC 9C 1B CC CC CC CC CC CC CC CC CC ................
0017D0: CC CC CC CC CC CC CC CC CC CC CC 99 22 33 11 22 ............"3."
0017E0: C6 CC CC CC CC DD BB 33 66 CC CC CC CC CC CC CC .......3f.......
0017F0: CC 98 CC 98 CC 98 64 CC CC CC CC CC CC CC CC 98 ......d.........
001800: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
001810: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
001820: CC CC CC CC CC CC CC CC CC CC CC 33 63 33 FF AA ...........3c3..
001830: BB CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
001840: CC CC CC CC 64 CC CC CC CC 98 CC CC CC CC CC CC ....d...........
001850: CC CC 64 CC CC CC CC CC CC CC 2A 3F 2A 2A 2A 2A ..d.......*?****
001860: 2A 2A 3F 3F 3F 3F 15 15 15 3F 3F 3F 2A 2A 2A 3F **????...???***?
001870: 2A 2A 2A 3F 3F 3F 2A 2A 6E CC CC CC CC CC CC 99 ***???**n.......
001880: 33 66 CC CC CC CC CC CC CC CC CC CC 98 64 CC CC 3f...........d..
001890: CC CC CC CC CC CC 98 98 CC 98 CC CC CC CC CC CC ................
0018A0: CC CC CC CC CC CC CC CC CC 2A 3F 3F 2A 2A 2A 3F .........*??***?
0018B0: 2A 2A 2A 3F 3F 3F 15 15 15 3F 15 15 2A 2A 2A 2A ***???...?..****
0018C0: 2A 2A 2A 3F 3F 2A 3F 17 1E 15 CC CC CC CC CC CC ***??*?.........
0018D0: CC CC CC CC 98 CC CC CC CC 98 CC CC CC CC CC CC ................
0018E0: CC CC CC 64 CC CC CC CC CC CC CC CC CC CC CC CC ...d............
0018F0: CC CC CC CC CC CC CC CC CC CC 2A 3F 3F 3F 2A 2A ..........*???**
001900: 2A 2A 2A 2A 2A 3F 15 15 15 15 15 15 15 15 2A 2A *****?........**
001910: 2A 3F 2A 2A 2A 3F 2A 3F 15 CC CC CC CC CC CC CC *?***?*?........
001920: CC CC 98 CC CC CC 64 CC CC CC CC CC CC CC CC CC ......d.........
001930: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
001940: CC CC CC CC CC CC CC CC CC CC 2A 3F 3F 3F 3F 3F ..........*?????
001950: 3F 3F 3F 3F 3F 3F 3F 3F 3F 15 2A 3F 15 15 2A 15 ?????????.*?..*.
001960: 00 2A 3F 2A 3F 3F 2A 6E CC CC CC CC CC CC CC CC .*?*??*n........
001970: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
001980: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
001990: CC CC CC CC CC CC CC CC CC 00 00 00 00 00 00 00 ................
0019A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0019B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0019C0: 00 00 00 00 00 00 00 00 00 5C A7 FF FF FF FE 11 .........\......
0019D0: DE 08 A6 04 B8 03 88 04 11 09 FE 0F 07 12 00 07 ................
0019E0: 01 00 2C 43 47 50 49 43 2E 53 43 52 00 00 00 00 ..,CGPIC.SCR....
0019F0: 00 00 00 03 00 02 00 08 00 D0 00 00 40 00 00 00 ............@...
001A00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001A10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001A20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001A30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001A40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001A50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001AE0: 00 00 00 70 9A FF FF FF FE 11 E2 08 F6 04 B8 03 ...p............
001AF0: 6D 04 DB 08 FE 0F 07 D5 09 15 08 00 16 13 57 33 m.............W3
001B00: 77 13 03 33 03 57 57 03 03 03 03 03 03 03 03 03 w..3.WW.........
001B10: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001B20: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001B30: 03 03 03 03 03 23 33 13 33 33 33 33 33 13 33 33 .....#3.33333.33
001B40: 33 13 33 33 BB 77 33 33 33 33 33 33 33 03 13 33 3.33.w3333333..3
001B50: 23 33 33 23 33 33 03 03 AB 03 03 03 03 03 03 03 #33#33..........
001B60: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001B70: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001B80: 03 03 03 03 23 33 23 33 33 33 33 33 33 33 BB BB ....#3#3333333..
001B90: 33 77 33 77 33 33 77 33 33 33 33 33 77 BB 33 33 3w3w33w33333w.33
001BA0: C0 80 00 00 40 C0 01 03 62 C0 00 40 C0 01 03 02 ....@...b..@....
001BB0: C0 00 03 03 03 03 03 03 C0 00 00 00 00 00 80 03 ................
001BC0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001BD0: 03 03 03 57 13 77 33 33 33 33 33 13 33 33 33 33 ...W.w33333.3333
001BE0: BB 33 33 33 33 33 33 33 77 33 33 23 BB 33 77 C0 .3333333w33#.3w.
001BF0: 11 23 33 33 33 62 80 C0 11 33 03 AB AB C6 F3 42 .#333b...3.....B
001C00: 80 03 C0 01 03 03 03 03 03 03 C0 01 03 03 03 03 ................
001C10: 03 03 03 03 03 03 C0 00 00 00 40 03 03 03 03 03 ..........@.....
001C20: 03 03 03 03 03 77 33 23 13 33 13 33 BB 33 33 33 .....w3#.3.3.333
001C30: FF 33 57 FF 77 BB 77 57 BB FF 33 33 33 FF AB 57 .3W.w.wW..333..W
001C40: 77 AB 33 33 33 13 33 33 77 33 77 33 77 33 33 77 w.333.33w3w3w33w
001C50: 33 33 13 33 AB 33 33 03 03 03 03 03 03 03 03 03 33.3.33.........
001C60: 03 03 03 03 03 80 00 00 00 00 40 81 03 03 03 03 ..........@.....
001C70: 03 FF 13 03 23 13 33 AB 33 13 33 13 33 FF FF FF ....#.3.3.3.3...
001C80: AB 57 03 57 57 AB 13 03 03 57 03 03 03 AB 03 03 .W.WW....W......
001C90: 57 03 03 03 03 23 23 03 03 03 BB 57 03 33 33 57 W....##....W.33W
001CA0: 13 23 AB 57 57 03 03 57 03 03 03 03 03 03 03 03 .#.WW..W........
001CB0: 03 03 06 0C 00 55 80 14 D4 BC 03 03 03 03 03 03 .....U..........
001CC0: 03 03 03 03 03 03 03 03 23 03 23 03 03 03 57 03 ........#.#...W.
001CD0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001CE0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001CF0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 D3 ................
001D00: 69 03 03 06 48 48 48 C0 48 84 84 09 03 03 03 03 i...HHH.H.......
001D10: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001D20: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001D30: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001D40: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001D50: 03 03 03 48 48 C0 C0 C0 C0 40 84 0C 03 03 03 03 ...HH....@......
001D60: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001D70: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001D80: 03 03 03 03 03 F3 F3 03 03 03 03 03 03 03 03 03 ................
001D90: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001DA0: 03 03 03 48 C0 C0 C0 C0 C0 80 84 0C 09 03 03 03 ...H............
001DB0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001DC0: 03 03 03 03 03 03 03 03 03 03 02 03 03 03 03 03 ................
001DD0: 03 03 03 03 F3 51 F3 51 F3 F3 F3 F3 03 03 03 03 .....Q.Q........
001DE0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001DF0: 03 03 03 C0 C0 C0 C0 C0 C0 00 C0 0C C0 03 03 03 ................
001E00: 03 8B 46 03 03 03 03 03 03 03 03 03 03 03 03 03 ..F.............
001E10: 03 03 03 03 F3 F3 F3 F3 F3 F3 F3 F3 A2 E6 E6 F3 ................
001E20: F3 F3 F3 CC 98 CC CC 64 CC 64 CC CC C8 C0 C4 89 .......d.d......
001E30: 12 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
001E40: 03 03 03 03 03 42 C0 C0 C0 C0 C0 40 00 C0 0C 09 .....B.....@....
001E50: 03 03 03 CC CC CC CC CC CC CC CC CC CC CC CC CC ................
001E60: CC CC CC CC CC CC CC CC CC CC CC CC C9 CC CC CC ................
001E70: CC CC CC 30 98 98 CC 98 CC CC CC CC CC CC 98 98 ...0............
001E80: CC 98 98 64 98 64 CC CC 89 03 03 03 03 03 03 03 ...d.d..........
001E90: 03 03 03 03 03 03 C3 C3 00 00 40 40 00 00 00 44 ..........@@...D
001EA0: CC CC CC CC CC CC CC CC E6 E6 CC E6 CC CC CC CC ................
001EB0: CC CC CC CC CC 98 CC CC CC CC CC CC CC CC CC CC ................
001EC0: CC CC CC 64 30 98 64 30 98 CC 98 CC 98 30 CC 64 ...d0.d0.....0.d
001ED0: 64 64 98 CC CC 64 CC CC 98 64 98 F3 F3 F3 F3 00 dd...d...d......
001EE0: CC CC CC 98 CC CC C3 C3 C3 C3 C3 C3 C3 C3 40 C4 ..............@.
001EF0: CC CC CC CC CC 64 CC CC CC CC 64 CC CC CC CC 64 .....d....d....d
001F00: D9 CC CC F8 25 CC DD EE 64 CC CC CC CC CC CC CC ....%...d.......
001F10: CC CC CC CC CC E6 D9 98 E6 CC 64 30 E6 71 71 71 ..........d0.qqq
001F20: E6 D9 D9 CC B2 CC E6 D9 F3 F3 F3 F3 B2 CC CC CC ................
001F30: CC CC CC CC CC 30 CC CC CC C3 C3 82 00 C3 C3 C3 .....0..........
001F40: 82 77 CC CC 64 CC 64 CC CC CC 64 CC 64 CC CC 64 .w..d.d...d.d..d
001F50: CC CC CC 64 CC CC CC CC CC CC CC CC CC CC CC CC ...d............
001F60: CC CC CC CC CC 64 98 CC 64 CC CC CC CC 64 CC 98 .....d..d....d..
001F70: 64 CC D9 CC E6 D9 F3 E6 CC CC CC 64 CC CC CC CC d..........d....
001F80: CC CC CC 30 64 98 CC CC CC C9 C3 C3 41 00 C3 C3 ...0d.......A...
001F90: C3 99 EE CC CC CC CC 98 CC 30 CC 30 64 98 64 CC .........0.0d.d.
001FA0: CC 98 CC CC CC CC CC E4 98 CC CC CC CC CC 64 CC ..............d.
001FB0: CC 64 CC CC CC CC CC CC CC 98 CC CC CC CC 64 64 .d............dd
001FC0: CC CC CC E6 30 CC CC CC CC CC CC CC CC CC CC CC ....0...........
001FD0: CC CC CC CC CC CC CC CC CC CC C3 C3 41 00 82 C3 ............A...
001FE0: C3 CC 77 CC CC CC CC CC CC 98 64 CC 98 64 30 CC ..w.......d..d0.
001FF0: CC CC CC CC CC E4 CC 64 CC 98 64 64 CC CC CC CC .......d..dd....
002000: CC CC CC CC CC 57 FA CC 64 CC CC CC CC CC CC CC .....W..d.......
002010: D8 CC D8 CC E4 98 64 CC CC CC CC CC CC E4 CC CC ......d.........
002020: D8 CC CC CC CC CC CC CC CC CC CC CC C3 41 00 82 .............A..
002030: C3 C3 CC CC 99 EE CC CC CC CC CC CC 98 CC 64 E6 ..............d.
002040: E6 D9 CC D9 70 64 E4 CC E4 64 CC CC 98 CC CC 98 ....pd...d......
002050: CC CC CC 64 CC CC CC CC CC D8 CC CC CC CC D8 CC ...d............
002060: CC CC CC CC CC CC E4 CC CC CC CC CC E4 CC CC CC ................
002070: E4 CC CC CC CC CC CC CC CC CC CC C9 41 41 00 C3 ............AA..
002080: C3 C6 CC CC CC 77 CC CC CC CC CC CC CC CC 64 CC .....w........d.
002090: CC CC 98 CC 98 64 CC 64 CC 64 64 CC CC 98 CC CC .....d.d.dd.....
0020A0: CC CC CC CC CC CC CC CC CC CC E4 CC CC E4 CC CC ................
0020B0: CC CC E4 CC CC CC CC CC CC CC CC CC CC CC CC CC ................
0020C0: CC CC CC CC CC CC CC CC CC CC CC C9 41 00 C3 C3 ............A...
0020D0: C3 CC CC CC CC DD EE CC CC CC CC CC CC CC CC CC ................
0020E0: CC 64 64 CC CC CC CC CC CC CC 64 98 CC CC CC CC .dd.......d.....
0020F0: CC CC CC CC CC CC CC CC E4 CC CC CC E4 D8 CC CC ................
002100: CC CC D8 CC CC CC CC 2C 6C CC CC CC CC CC CC CC .......,l.......
002110: CC CC CC CC CC CC CC CC CC CC CC CC CC 33 11 33 .............3.3
002120: 00 22 C6 CC CC CC CC DD BB 66 98 64 98 98 CC 64 .".......f.d...d
002130: CC 64 CC CC CC CC CC CC CC CC 98 CC CC CC CC CC .d..............
002140: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
002150: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
002160: CC CC CC CC CC CC CC CC CC CC CC CC CC 33 33 11 .............33.
002170: FF AA AA CC CC CC CC CC CC CC CC CC CC CC CC CC ................
002180: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
002190: CC CC CC CC CC 98 CC 98 CC CC CC CC 2A 3F 3F 3F ............*???
0021A0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
0021B0: 3F 3F 3F 3F 3F 3F 3F 3F 2A 2A 6E CC CC CC CC CC ????????**n.....
0021C0: CC CC 99 66 CC 64 CC CC CC CC CC CC CC CC 64 CC ...f.d........d.
0021D0: CC CC CC CC CC CC CC CC CC CC CC CC 98 CC CC CC ................
0021E0: CC CC CC CC CC CC CC CC CC CC CC 2A 3F 3F 3F 3F ...........*????
0021F0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
002200: 3F 3F 3F 3F 3F 3F 3F 2A 3F 85 D5 15 CC CC CC CC ???????*?.......
002210: CC CC CC CC CC CC CC CC 98 CC CC 64 CC 30 64 CC ...........d.0d.
002220: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
002230: CC CC 64 CC CC CC CC CC CC CC CC CC 2A 3F 3F 3F ..d.........*???
002240: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
002250: 3F 3F 3F 3F 3F 3F 3F 3F 2A 2A 6E CC CC CC CC CC ????????**n.....
002260: CC CC CC CC CC CC CC CC CC 98 CC CC CC CC CC CC ................
002270: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
002280: CC CC CC CC CC CC CC CC CC CC CC CC 2A 3F 3F 3F ............*???
002290: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 15 3F 3F 15 15 ???????????.??..
0022A0: 2A 15 00 2A 3F 2A 3F 3F 3F CC CC 44 88 44 44 88 *..*?*???..D.DD.
0022B0: CC 00 CC 44 CC 00 CC CC CC CC 98 CC 64 CC CC CC ...D........d...
0022C0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
0022D0: CC CC CC CC CC CC CC CC CC CC CC 00 00 00 00 00 ................
0022E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0022F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002300: 00 00 00 00 00 00 00 00 00 00 00 7E 30 FF FF FF ...........~0...
002310: FE 11 DB 08 F6 04 08 04 85 04 0C 09 FE 0F 07 11 ................
002320: 00 07 01 00 2C 43 47 50 49 43 2E 53 43 52 00 00 ....,CGPIC.SCR..
002330: 00 00 00 00 00 04 00 02 00 08 00 D8 00 00 40 00 ..............@.
002340: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002350: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0023A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0023B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0023C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0023D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0023E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0023F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002400: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002410: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002420: 00 00 00 00 00 78 7A FF FF FF FE 11 D6 08 A6 04 .....xz.........
002430: B8 03 6E 04 DE 08 FE 0F 07 CC 09 15 08 00 16 77 ..n............w
002440: 77 AB 33 77 BB 23 33 23 57 03 03 03 03 03 03 03 w.3w.#3#W.......
002450: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002460: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002470: 03 03 03 03 03 57 AB 13 77 33 77 23 BB 33 77 33 .....W..w3w#.3w3
002480: 77 33 33 BB 33 BB 33 33 33 33 33 33 33 33 33 BB w33.3.333333333.
002490: 33 33 77 33 33 00 02 AA 03 01 02 01 00 02 01 02 33w33...........
0024A0: 03 01 02 03 01 02 01 01 01 01 00 03 03 03 03 03 ................
0024B0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0024C0: 03 03 03 03 03 03 03 33 33 33 33 33 33 33 33 23 .......33333333#
0024D0: 33 13 33 23 BB 33 33 33 33 33 33 33 33 13 33 BB 3.3#.33333333.3.
0024E0: 23 62 C0 11 33 33 22 C0 11 13 C0 00 AB 02 40 80 #b..33".......@.
0024F0: 03 03 C0 01 03 03 03 03 03 03 C0 01 03 03 03 03 ................
002500: 00 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002510: 03 03 03 03 57 BB 13 23 33 33 33 33 77 33 33 33 ....W..#3333w333
002520: 33 33 33 77 23 33 33 33 33 33 23 BB 33 33 77 33 333w#33333#.33w3
002530: 23 40 91 33 23 23 13 62 80 42 11 33 23 AB 03 73 #@.3##.b.B.3#..s
002540: 7E C0 01 03 C0 01 03 03 03 03 03 03 C0 01 03 03 ~...............
002550: 03 03 03 03 03 03 03 03 40 00 00 00 00 03 03 03 ........@.......
002560: 03 03 03 03 03 03 13 77 33 33 BB 33 33 23 33 77 .......w33.33#3w
002570: 33 77 FF 33 FF 33 BB BB 23 BB AB 77 33 33 33 FF 3w.3.3..#..w333.
002580: 57 77 33 23 57 BB 33 33 77 33 77 03 77 33 33 33 Ww3#W.33w3w.w333
002590: 33 13 13 33 33 57 33 57 33 AB 03 03 03 03 03 03 3..33W3W3.......
0025A0: 03 03 03 03 03 03 03 00 00 00 40 00 40 03 03 03 ..........@.@...
0025B0: 03 03 AB AB 03 33 03 03 57 23 23 77 33 33 33 FF .....3..W##w333.
0025C0: FF 57 AB 57 AB AB BB BB 03 23 03 03 03 03 57 03 .W.W.....#....W.
0025D0: 03 03 AB 03 03 03 03 03 AB 03 03 57 13 77 AB BB ...........W.w..
0025E0: 03 33 13 23 03 03 03 03 57 03 03 03 03 03 03 03 .3.#....W.......
0025F0: 03 03 03 03 0C 0C 0C 08 FF 14 D4 BC 03 03 03 03 ................
002600: 03 03 03 03 03 03 03 03 03 03 AB 03 03 03 03 03 ................
002610: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002620: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002630: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002640: 03 29 00 03 03 06 84 84 C0 C0 84 C0 48 09 03 03 .)..........H...
002650: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002660: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002670: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002680: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002690: 03 03 03 03 03 0C C0 C0 C0 C0 C0 40 84 0C 03 03 ...........@....
0026A0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0026B0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0026C0: 03 03 03 03 03 53 F3 F3 F3 F3 03 03 03 03 03 03 .....S..........
0026D0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0026E0: 03 03 03 03 03 48 C0 C0 C0 C0 C0 80 C0 0C 09 03 .....H..........
0026F0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002700: 03 03 03 03 03 03 03 03 03 A3 03 03 02 03 03 03 .........£......
002710: 03 03 03 CC 12 03 02 51 F3 51 D1 E2 F3 F3 A3 03 .......Q.Q....£.
002720: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002730: 03 03 03 03 03 C0 C0 C0 C0 C0 C0 80 40 48 84 03 ............@H..
002740: 03 03 03 38 58 03 03 03 03 03 03 03 03 03 03 03 ...8X...........
002750: 03 03 03 03 03 53 53 F3 F3 F3 F3 F3 F3 F3 A2 F3 .....SS.........
002760: D9 D9 F3 F3 F3 64 64 CC CC 64 CC 98 64 CC CC 64 .....dd..d..d..d
002770: CC CC CC 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002780: 03 03 03 03 03 03 03 42 C0 C0 C0 C0 80 80 80 C0 .......B........
002790: 0C 09 46 CC CC CC CC CC CC CC CC CC CC CC CC CC ..F.............
0027A0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC C9 CC ................
0027B0: CC CC CC CC CC CC 64 CC 98 CC CC CC CC 98 CC CC ......d.........
0027C0: 98 CC CC 30 98 CC 98 CC 98 CC CC 89 03 03 03 03 ...0............
0027D0: 03 03 03 03 03 03 03 03 C3 C3 C3 C3 82 00 41 00 ..............A.
0027E0: FC EC CC CC 98 CC CC CC D9 D9 B2 64 CC B2 30 CC ...........d..0.
0027F0: CC CC CC CC CC CC CC CC CC CC CC CC CC 64 CC CC .............d..
002800: CC CC CC CC CC 98 98 CC CC 98 30 98 CC CC 30 64 ..........0...0d
002810: 30 98 CC CC CC CC 64 CC CC CC CC CC 98 F3 F3 A2 0.....d.........
002820: 00 10 CC CC 64 CC 64 CC C3 C3 C3 C3 C3 C3 C3 C3 ....d.d.........
002830: 00 C4 CC CC 98 98 98 CC CC 64 CC CC CC 98 CC CC .........d......
002840: CC CC 98 CC CC D8 12 CC CC CC CC CC CC CC CC CC ................
002850: CC 64 CC CC CC CC CC D9 CC 64 E6 71 E6 F3 F3 F3 .d.......d.q....
002860: F3 E6 D9 F3 F3 E6 E6 D9 E6 D9 F3 F3 F3 F3 CC CC ................
002870: 64 64 64 30 CC CC CC CC CC CC CC C3 C3 82 41 41 ddd0..........AA
002880: C3 C3 82 99 EE CC CC CC CC CC CC CC 64 CC CC CC ............d...
002890: 98 CC 98 CC CC CC CC CC CC 64 64 CC 98 98 CC CC .........dd.....
0028A0: CC CC CC CC 30 CC CC CC 98 CC 30 CC 98 64 CC 64 ....0.....0..d.d
0028B0: CC 98 98 98 CC D9 E6 D9 D9 E6 E6 CC CC CC CC CC ................
0028C0: CC CC CC CC 98 CC CC CC CC CC CC C9 C3 82 82 41 ...............A
0028D0: 41 C3 C3 99 EE CC 98 CC 64 30 30 30 30 98 30 98 A.......d0000.0.
0028E0: 64 98 CC 98 CC 64 CC 30 CC CC 98 CC CC CC 64 CC d....d.0......d.
0028F0: CC CC CC CC CC CC CC CC CC 30 CC B0 CC CC CC 98 .........0......
002900: 98 CC CC CC CC CC CC 70 CC CC D8 CC CC CC CC CC .......p........
002910: CC CC CC CC CC CC CC CC CC CC CC CC C3 C3 82 41 ...............A
002920: 41 C3 C3 CC 77 CC CC CC CC CC 98 98 30 98 98 98 A...w.......0...
002930: 98 CC 98 64 98 CC CC 64 CC CC 98 98 CC E6 E6 CC ...d...d........
002940: CC CC CC CC CC CC CC 3F 71 CC CC CC CC 98 CC D8 .......?q.......
002950: CC CC CC D8 CC CC CC CC D8 F0 CC CC 98 CC CC CC ................
002960: CC CC CC CC CC CC CC CC CC CC CC CC CC CC 82 82 ................
002970: 82 41 C3 C3 CC CC 99 EE CC CC CC CC CC 98 CC CC .A..............
002980: CC 64 D9 D9 F3 64 F2 CC CC CC CC CC CC 30 CC CC .d...d.......0..
002990: CC CC CC CC 64 CC CC CC CC F0 CC CC CC CC E4 CC ....d...........
0029A0: CC CC CC CC CC CC E4 D8 CC CC CC CC CC CC D8 CC ................
0029B0: CC CC CC CC CC CC CC CC CC CC CC CC CC C9 82 82 ................
0029C0: 41 41 C3 C6 CC CC CC 77 CC CC CC CC CC CC CC CC AA.....w........
0029D0: CC CC CC 98 CC CC CC CC CC CC 64 CC CC CC CC CC ..........d.....
0029E0: CC CC CC CC 64 CC CC CC CC E4 CC CC D8 CC CC CC ....d...........
0029F0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
002A00: CC CC CC CC CC CC CC CC CC CC CC CC CC C9 82 41 ...............A
002A10: 41 C3 C6 CC CC CC CC DD EE CC CC CC CC CC 64 CC A.............d.
002A20: CC CC CC CC CC CC CC CC CC CC 30 CC CC 64 64 30 ..........0..dd0
002A30: 64 98 CC CC CC CC CC CC CC CC CC CC CC CC D8 CC d...............
002A40: CC CC CC CC CC CC CC CC CC 0A 86 CC CC CC CC CC ................
002A50: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 33 ...............3
002A60: 11 33 AA BB CC CC CC CC CC CC 99 66 CC CC 64 64 .3.........f..dd
002A70: CC CC CC 64 CC CC CC CC CC CC CC CC CC CC CC CC ...d............
002A80: CC 64 CC CC 64 CC CC CC CC CC CC CC CC CC CC 9D .d..d...........
002A90: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
002AA0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F CC CC CC CC 99 ???????????.....
002AB0: 33 41 77 AA 00 CC CC CC CC CC CC CC CC CC CC CC 3Aw.............
002AC0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
002AD0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC 2A 3F ..............*?
002AE0: 2A 2A 2A 2A 2A 2A 2A 3F 3F 15 15 15 15 15 3F 3F *******??.....??
002AF0: 2A 2A 2A 3F 2A 2A 2A 3F 3F 3F 2A 2A 6E CC CC CC ***?***???**n...
002B00: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
002B10: CC 98 98 CC CC CC CC CC CC CC CC CC CC CC CC CC ................
002B20: CC CC CC CC CC CC CC CC CC CC CC CC CC 2A 3F 3F .............*??
002B30: 2A 2A 2A 3F 2A 2A 2A 3F 3F 3F 15 15 15 15 15 15 ***?***???......
002B40: 2A 2A 2A 2A 2A 2A 2A 3F 3F 2A 2A D9 07 6E CC CC *******??**..n..
002B50: CC CC CC CC CC CC CC 64 CC CC CC CC CC CC CC CC .......d........
002B60: 64 CC CC 98 CC CC CC CC CC CC CC CC CC 98 CC CC d...............
002B70: CC CC CC CC CC CC CC CC CC CC CC CC CC 9D 15 3F ...............?
002B80: 3F 3F 2A 2A 2A 2A 2A 2A 2A 3F 15 15 15 15 15 3F ??*******?.....?
002B90: 15 15 2A 2A 2A 3F 2A 2A 2A 3F 15 2A 6E CC CC CC ..***?***?.*n...
002BA0: CC CC CC CC CC CC CC 64 CC 98 CC CC CC CC CC 98 .......d........
002BB0: 64 CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC d...............
002BC0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC 9D 00 ................
002BD0: 00 00 00 00 00 00 00 00 00 00 00 00 15 15 3F 3F ..............??
002BE0: 15 15 2A 2A 2A 2A 15 3F 00 3F CC CC 88 CC 44 CC ..****.?.?....D.
002BF0: 88 88 88 88 88 88 88 88 CC CC CC CC CC CC CC CC ................
002C00: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
002C10: CC CC CC CC CC CC CC CC CC CC CC CC CC 00 00 00 ................
002C20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002C30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002C40: 00 00 00 00 00 00 00 00 00 00 00 00 00 AE 37 FF ..............7.
002C50: FF FF FE 11 D5 08 57 04 57 04 82 04 05 09 FE 0F ......W.W.......
002C60: 07 11 00 07 01 00 2C 43 47 50 49 43 2E 53 43 52 ......,CGPIC.SCR
002C70: 00 00 00 00 00 00 00 05 00 02 00 08 00 E0 00 00 ................
002C80: 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 @...............
002C90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002CA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002CB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002CC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002CD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002CE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002CF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002D00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002D10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002D20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002D30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002D40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002D50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002D60: 00 00 00 00 00 00 00 7F EB FF FF FF FE 11 D8 08 ................
002D70: A6 04 08 04 6D 04 DA 08 FE 0F 07 CD 09 15 08 00 ....m...........
002D80: 16 BB 03 03 33 23 33 33 13 03 03 03 03 03 03 03 ....3#33........
002D90: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002DA0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002DB0: 03 03 03 03 03 03 03 03 AB BB 33 33 33 33 33 33 ..........333333
002DC0: 33 77 57 13 33 33 33 33 BB 33 BB 33 33 33 33 33 3wW.3333.3.33333
002DD0: 33 13 33 33 BB 33 22 33 02 22 22 02 02 02 02 02 3.33.3"3."".....
002DE0: 02 02 02 02 02 01 01 01 03 01 01 01 01 01 03 03 ................
002DF0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002E00: 03 03 03 03 03 03 03 03 03 33 33 23 33 33 23 BB .........33#33#.
002E10: 33 77 33 33 BB BB BB 77 77 BB 23 33 33 33 33 33 3w33...ww.#33333
002E20: 13 33 23 62 80 33 77 BB 33 40 11 42 80 03 03 03 .3#b.3w.3@.B....
002E30: 02 C0 01 03 C0 01 03 03 03 03 03 03 C0 01 03 03 ................
002E40: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002E50: 03 03 03 03 03 03 03 13 03 33 23 33 33 33 33 33 .........3#33333
002E60: 33 77 33 33 BB 33 BB 33 33 33 33 33 77 33 33 AB 3w33.3.33333w33.
002E70: 77 33 33 40 91 23 23 13 BB 42 80 EA 02 23 33 AB w33@.##..B...#3.
002E80: 13 4E ED C0 01 03 C0 01 03 03 03 03 03 03 C0 01 .N..............
002E90: 03 03 03 03 03 03 03 03 03 03 00 00 00 00 40 03 ..............@.
002EA0: 03 03 03 03 03 03 03 03 13 33 23 33 13 13 33 33 .........3#3..33
002EB0: 33 33 BB AB BB FF 57 77 AB FF 77 77 BB 77 33 03 33....Ww..ww.w3.
002EC0: AB 03 AB 13 03 33 AB 23 33 77 23 33 33 77 BB 33 .....3.#3w#33w.3
002ED0: 33 33 23 AB 33 33 33 33 13 33 33 33 03 03 57 03 33#.3333.333..W.
002EE0: 03 03 03 03 03 03 03 03 42 00 00 00 00 00 40 03 ........B.....@.
002EF0: 03 03 03 03 AB 03 03 03 33 03 03 13 23 23 33 33 ........3...##33
002F00: 13 57 FF FF 03 AB AB AB 57 23 03 BB 57 03 03 57 .W......W#..W..W
002F10: 03 03 AB 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002F20: 03 BB 33 33 77 03 03 03 03 03 03 03 03 03 03 03 ..33w...........
002F30: 03 03 03 03 03 03 0C 0C 0C 0C 08 14 D4 3C 03 03 .............<..
002F40: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002F50: AB 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002F60: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002F70: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002F80: 03 03 03 7F 92 03 03 0C 48 48 C0 C0 C0 C0 84 09 ........HH......
002F90: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002FA0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002FB0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002FC0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002FD0: 03 03 03 03 03 03 03 48 48 C0 C0 C0 C0 40 84 0C .......HH....@..
002FE0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
002FF0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
003000: 03 03 03 03 03 03 03 F3 F3 F3 F3 53 F3 03 03 03 ...........S....
003010: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
003020: 03 03 03 03 03 03 03 48 C0 C0 C0 C0 C0 80 C0 0C .......H........
003030: 09 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
003040: 03 03 03 03 03 03 03 03 03 03 53 03 F3 03 02 03 ..........S.....
003050: 03 03 03 03 03 CC 98 89 02 F3 F3 51 F3 C0 F3 F3 ...........Q....
003060: A3 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 £...............
003070: 03 03 03 03 03 03 03 C0 C0 C0 C0 C0 C0 40 40 0C .............@@.
003080: 0C 03 03 03 03 DA B4 03 03 03 03 03 03 03 03 03 ................
003090: 03 03 03 03 03 03 03 53 F3 F3 F3 F3 F3 F3 F3 F3 .......S........
0030A0: A2 E6 E6 E6 F3 F3 F3 CC CC CC CC 64 CC 98 CC 98 ...........d....
0030B0: CC CC 64 CC CC CC 89 03 03 03 03 03 03 03 03 03 ..d.............
0030C0: 03 03 03 03 03 03 03 03 03 03 C0 C0 C0 C0 C0 40 ...............@
0030D0: 00 C0 0C 4C CC CC CC CC CC D9 CC CC CC CC CC CC ...L............
0030E0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
0030F0: D8 E4 CC CC CC CC CC 30 98 CC 98 64 98 CC 30 98 .......0...d..0.
003100: CC CC 64 CC CC CC 98 CC CC CC CC CC CC 30 CC CC ..d..........0..
003110: 03 03 03 03 03 03 03 03 03 CC C3 C3 C3 C3 C3 C3 ................
003120: C3 82 D4 EC CC CC CC CC CC CC CC CC CC CC 64 F3 ..............d.
003130: F3 E6 CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
003140: CC CC CC CC CC CC CC CC CC 98 CC 64 64 CC CC 64 ...........dd..d
003150: 98 CC 64 CC 30 30 CC 64 CC CC 30 CC 64 F3 F3 F3 ..d.00.d..0.d...
003160: F3 00 CC CC CC CC CC CC CC CC C9 C3 C3 C3 C3 C3 ................
003170: C3 C3 00 77 CC CC CC CC CC CC CC CC CC CC CC CC ...w............
003180: CC 30 CC CC CC CC CC FE E9 CC CC CC CC CC CC CC .0..............
003190: 98 CC CC CC CC CC CC CC CC CC D9 98 B2 98 F3 E6 ................
0031A0: F3 D9 CC CC F3 D9 F3 F3 E6 CC 71 D9 F3 F3 F3 CC ..........q.....
0031B0: 30 CC CC CC 64 64 64 30 98 98 CC 64 CC C3 C3 41 0...ddd0...d...A
0031C0: 00 C3 C3 C3 82 99 EE CC CC 98 CC 64 CC 98 CC CC ...........d....
0031D0: CC CC CC 64 64 64 CC 64 CC CC CC CC CC CC CC CC ...ddd.d........
0031E0: CC CC 64 CC CC CC CC CC CC CC 64 98 CC CC CC 98 ..d.......d.....
0031F0: 98 98 CC CC CC CC 64 CC CC E6 F3 CC E6 64 CC CC ......d......d..
003200: CC CC CC CC CC CC CC 98 CC 64 CC CC CC CC C3 C3 .........d......
003210: 41 00 C3 C3 C3 CC 77 CC 98 CC CC 64 98 98 30 64 A.....w....d..0d
003220: 98 64 64 CC 64 98 64 CC CC CC 64 98 64 CC CC CC .dd.d.d...d.d...
003230: CC CC 98 CC 98 CC CC CC CC CC CC CC CC CC CC E4 ................
003240: CC CC CC CC CC CC 98 CC CC CC CC E4 D8 CC CC CC ................
003250: CC CC CC CC CC CC CC CC CC CC CC CC CC CC C3 C3 ................
003260: 41 00 82 C3 C3 CC 77 CC CC CC 98 CC CC 30 71 CC A.....w......0q.
003270: B2 98 CC F3 CC CC CC F2 E4 CC CC CC CC D9 CC CC ................
003280: CC CC CC CC CC CC 64 CC CC 62 B0 D8 64 D8 64 CC ......d..b..d.d.
003290: 98 CC CC CC CC CC CC CC CC CC D8 CC CC 64 CC CC .............d..
0032A0: CC E4 D8 CC CC CC CC CC CC CC CC CC CC CC CC CC ................
0032B0: C3 41 00 82 C3 C3 CC CC 99 EE CC CC CC CC 98 CC .A..............
0032C0: CC 64 CC CC CC F3 CC CC CC CC 64 CC 98 CC 98 CC .d........d.....
0032D0: CC CC CC CC 64 CC CC CC 98 CC CC CC CC CC CC CC ....d...........
0032E0: CC CC CC CC D8 CC CC CC CC CC CC CC CC CC CC CC ................
0032F0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC C9 ................
003300: 41 41 00 C3 C3 C6 CC CC CC 77 CC CC CC CC CC CC AA.......w......
003310: CC CC CC CC CC CC CC CC D8 CC 98 CC CC 98 CC CC ................
003320: CC CC 64 CC CC CC CC CC CC CC CC CC CC CC CC CC ..d.............
003330: CC CC CC D8 F0 E4 CC D8 CC CC CC CC CC CC CC CC ................
003340: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC C9 ................
003350: 41 00 C3 C3 C6 CC CC CC CC DD EE 99 66 CC CC CC A...........f...
003360: CC CC 64 CC CC CC 64 98 CC CC 98 64 CC CC CC CC ..d...d....d....
003370: 98 CC CC 98 CC CC CC CC CC CC CC D8 CC D8 E4 E4 ................
003380: CC CC F0 CC CC CC CC CC CC CC CC 07 59 CC CC CC ............Y...
003390: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
0033A0: CC 22 33 33 AA 00 CC CC CC CC CC CC CC CC CC CC ."33............
0033B0: 98 98 CC CC CC CC CC CC CC CC CC CC CC CC 98 CC ................
0033C0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
0033D0: CC 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .*..............
0033E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 6E CC CC .............n..
0033F0: CC CC C3 CC 93 FF 00 CC CC CC CC CC CC 64 CC 98 .............d..
003400: CC CC CC CC CC CC CC CC CC CC CC CC CC 64 CC CC .............d..
003410: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 9D ................
003420: 15 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F .???????????????
003430: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 2A 2A 6E CC ????????????**n.
003440: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 64 ...............d
003450: CC 98 64 CC CC CC 98 CC CC CC CC 98 CC CC CC CC ..d.............
003460: CC CC CC CC CC CC CC CC CC CC CC CC CC CC 9D 15 ................
003470: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
003480: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 15 2A AA B8 6E ???????????.*..n
003490: CC CC CC CC CC CC CC CC CC CC 64 CC CC CC CC CC ..........d.....
0034A0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
0034B0: CC CC 64 CC CC 98 CC CC CC CC CC CC CC CC CC 9D ..d.............
0034C0: 15 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F .???????????????
0034D0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 15 2A 6E CC ????????????.*n.
0034E0: CC CC CC CC CC CC CC CC CC CC 64 CC CC CC CC CC ..........d.....
0034F0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
003500: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
003510: CC 2A 00 00 00 00 00 00 00 00 00 00 00 00 15 15 .*..............
003520: 00 2A 00 00 2A 2A 2A 2A 3F 3F 3F 15 CC CC 88 CC .*..****???.....
003530: 44 CC 88 88 CC 00 CC 44 CC 00 CC CC CC CC CC CC D......D........
003540: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
003550: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 00 ................
003560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FB ................
003590: 27 FF FF FF FE 11 CD 08 A6 04 B8 03 84 04 09 09 '...............
0035A0: FE 0F 07 12 00 07 01 00 2C 43 47 50 49 43 2E 53 ........,CGPIC.S
0035B0: 43 52 00 00 00 00 00 00 00 06 00 02 00 08 00 E8 CR..............
0035C0: 00 00 40 00 00 00 00 00 00 00 00 00 00 00 00 00 ..@.............
0035D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0035E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0035F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003600: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003610: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003650: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0036A0: 00 00 00 00 00 00 00 00 00 DB 44 FF FF FF FE 11 ..........D.....
0036B0: D9 08 57 04 08 04 65 04 CB 08 FE 0F 07 CD 09 15 ..W...e.........
0036C0: 08 00 16 77 33 33 23 33 33 33 03 13 03 03 03 03 ...w33#333......
0036D0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0036E0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0036F0: 03 03 03 03 03 03 03 03 03 AB 13 77 33 13 33 33 ...........w3.33
003700: 33 33 33 33 BB 33 77 13 03 33 77 23 33 33 33 77 3333.3w..3w#333w
003710: 33 33 33 BB 23 33 33 23 22 33 02 00 22 00 02 03 333.#33#"3.."...
003720: 02 02 01 02 02 02 02 02 01 02 03 00 01 01 00 03 ................
003730: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
003740: 03 03 03 03 03 03 03 03 03 03 77 77 23 33 33 33 ..........ww#333
003750: 33 33 33 57 33 33 33 33 33 33 FF 33 AB 33 13 33 333W333333.3.3.3
003760: 33 33 33 33 33 62 80 13 33 13 77 22 11 62 80 13 33333b..3.w".b..
003770: 03 03 03 C0 01 03 C0 01 03 03 03 03 03 03 C0 01 ................
003780: 03 03 03 81 03 03 03 03 03 03 03 03 03 03 03 03 ................
003790: 03 03 03 03 03 03 03 03 03 13 77 77 23 33 33 33 ..........ww#333
0037A0: 33 33 33 33 77 BB 33 33 BB 33 13 BB 23 33 33 33 3333w.33.3..#333
0037B0: 23 33 03 13 33 AA C0 BB 77 77 57 C0 80 42 C0 33 #3..3...wwW..B.3
0037C0: 77 03 EA 2B B8 C0 01 03 C0 01 03 03 03 57 03 03 w..+.........W..
0037D0: C0 01 03 03 03 03 03 03 03 03 03 42 00 00 00 00 ...........B....
0037E0: 40 03 03 03 03 03 03 03 03 03 13 BB 33 13 13 33 @...........3..3
0037F0: 33 13 13 77 FF FF BB FF BB BB BB 13 13 33 03 FF 3..w.........3..
003800: 13 03 57 AB 57 FF BB BB 33 03 33 33 77 03 77 03 ..W.W...3.33w.w.
003810: BB 33 23 33 33 33 33 33 33 BB 33 33 13 23 33 03 .3#333333.33.#3.
003820: 03 03 03 03 03 03 03 03 03 03 42 80 00 00 94 40 ..........B....@
003830: 94 03 03 03 03 03 03 03 13 13 03 03 13 23 13 AB .............#..
003840: 77 13 13 77 57 03 03 57 03 03 03 03 03 03 03 57 w..wW..W.......W
003850: 03 03 57 03 03 03 03 03 03 03 03 03 03 03 03 03 ..W.............
003860: 03 03 03 03 03 AB AB 03 03 03 03 03 03 03 03 03 ................
003870: 03 03 03 03 03 03 03 03 0C 0C 0C 84 0C 00 14 29 ...............)
003880: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
003890: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0038A0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0038B0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0038C0: 03 03 03 03 03 33 39 03 03 0C 84 84 C0 C0 C0 C0 .....39.........
0038D0: 48 09 03 03 03 03 03 03 03 03 03 03 03 03 03 03 H...............
0038E0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0038F0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
003900: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
003910: 03 03 03 03 03 03 03 03 03 0C C0 C0 C0 C0 C0 40 ...............@
003920: 84 0C 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
003930: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
003940: 08 03 03 03 03 03 03 03 03 F3 F3 F3 F3 F3 F3 03 ................
003950: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
003960: 03 03 03 03 03 03 03 03 03 48 C0 C0 C0 C0 C0 80 .........H......
003970: C0 0C 09 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
003980: 03 03 03 03 03 03 03 03 03 03 03 03 F3 F3 A3 03 ..............£.
003990: 02 03 03 03 03 03 03 98 CC CC 88 F3 A2 51 F3 C0 .............Q..
0039A0: D1 A2 A3 03 03 03 03 03 03 03 03 03 03 03 03 03 ..£.............
0039B0: 03 03 03 03 03 03 03 03 03 C0 C0 C0 C0 C0 C0 80 ................
0039C0: 40 0C 0C 09 03 03 03 D1 FA 03 03 03 03 03 03 03 @...............
0039D0: 03 03 03 03 03 03 03 03 03 F3 F3 F3 F3 E6 F3 F3 ................
0039E0: F3 F3 A2 F3 D9 D9 F3 F3 F3 30 CC CC 98 64 30 98 .........0...d0.
0039F0: 98 98 CC CC CC CC 98 64 CC 21 03 03 03 03 03 03 .......d.!......
003A00: 03 03 03 03 03 03 03 03 03 03 03 03 C0 C0 C0 C0 ................
003A10: 80 80 80 C0 0C 4C F3 CC CC D9 F3 CC D9 F3 E6 E6 .....L..........
003A20: CC CC CC CC CC CC 98 CC CC CC CC CC CC CC CC CC ................
003A30: CC C9 C6 E4 CC CC CC CC CC 30 CC 64 98 98 98 98 .........0.d....
003A40: CC CC CC 64 98 64 CC 98 64 CC CC CC CC CC 98 64 ...d.d..d......d
003A50: CC CC CC CC CC F3 03 03 03 03 CC CC C3 C3 C3 C3 ................
003A60: C3 C3 C3 82 D4 EC CC CC CC CC CC CC CC CC 64 64 ..............dd
003A70: CC F3 CC E6 CC CC 98 CC CC CC CC CC CC CC CC CC ................
003A80: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 64 ...............d
003A90: CC CC CC 30 98 98 64 CC CC 64 CC CC CC 64 CC F3 ...0..d..d...d..
003AA0: F3 F3 00 44 64 CC CC 98 CC CC CC CC C9 C3 C3 C3 ...Dd...........
003AB0: C3 C3 C3 C3 82 77 CC CC CC 98 CC CC CC 30 64 CC .....w.......0d.
003AC0: CC CC CC CC CC CC CC CC CC FE 0C CC CC CC CC CC ................
003AD0: CC CC CC CC CC 64 CC CC CC CC CC CC CC CC CC 98 .....d..........
003AE0: CC E6 F3 98 F3 CC E6 CC F3 CC CC CC CC D9 F3 F3 ................
003AF0: 71 CC CC 64 64 CC 98 64 98 64 98 CC CC CC CC C9 q..dd..d.d......
003B00: C3 82 41 41 C3 C3 82 99 EE CC CC CC 64 CC CC 98 ..AA........d...
003B10: 30 CC 64 CC CC CC CC CC 64 98 64 30 CC 98 CC CC 0.d.....d.d0....
003B20: CC CC CC 64 CC CC CC CC CC CC CC 98 CC 64 98 98 ...d.........d..
003B30: 98 CC 30 98 CC CC CC D9 E6 E6 E6 B2 E6 CC E6 CC ..0.............
003B40: CC CC CC CC CC CC 64 CC CC CC CC 64 CC CC CC CC ......d....d....
003B50: C3 C3 82 41 41 C3 C3 CC 77 CC CC CC 98 64 98 30 ...AA...w....d.0
003B60: 64 CC 98 30 64 CC 64 98 CC 98 D8 CC 64 CC CC CC d..0d.d.....d...
003B70: CC CC 64 64 98 CC CC 64 CC CC CC CC CC E4 64 CC ..dd...d......d.
003B80: 98 CC 64 CC CC CC CC CC 98 CC E4 CC CC E4 CC CC ..d.............
003B90: CC D8 CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
003BA0: C3 C3 82 41 41 C3 C6 CC 77 CC CC 98 CC 64 CC 64 ...AA...w....d.d
003BB0: CC CC 98 D9 D9 CC CC 64 F3 B2 D9 CC B2 F3 B2 F3 .......d........
003BC0: D9 E6 CC CC CC 98 98 CC CC CC CC 06 20 CC CC CC ............ ...
003BD0: CC D8 CC CC CC CC CC D8 CC CC E4 CC CC E4 CC CC ................
003BE0: CC CC E4 E4 CC E4 CC CC CC CC CC CC CC CC CC CC ................
003BF0: CC CC 82 82 82 41 C3 C3 CC CC 99 EE CC CC CC CC .....A..........
003C00: CC CC CC 98 E6 D9 E6 D9 CC 98 CC CC CC 64 98 98 .............d..
003C10: 30 64 CC CC CC CC CC CC CC CC CC CC CC CC CC CC 0d..............
003C20: CC D8 CC CC CC CC CC CC D8 CC CC CC CC CC CC CC ................
003C30: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
003C40: CC C9 82 82 41 41 C3 C6 CC CC CC 77 CC CC CC CC ....AA.....w....
003C50: CC CC CC 64 CC CC CC CC CC 98 CC CC 64 98 CC CC ...d........d...
003C60: CC 64 98 CC 64 CC CC 98 CC CC CC CC CC CC CC CC .d..d...........
003C70: D8 D8 CC CC E4 CC CC CC CC CC CC CC CC CC CC CC ................
003C80: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
003C90: CC C9 82 41 C3 C3 C6 CC CC CC CC DD EE 99 66 CC ...A..........f.
003CA0: CC 64 CC CC 64 CC 30 CC CC CC CC CC CC CC 98 98 .d..d.0.........
003CB0: 98 98 CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
003CC0: CC CC CC CC CC CC CC CC CC CC CC CC CC A7 46 CC ..............F.
003CD0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
003CE0: CC CC CC 22 33 FF FF 00 66 CC CC CC CC CC CC CC ..."3...f.......
003CF0: CC CC CC CC CC 98 CC 64 CC 64 CC CC CC CC 64 64 .......d.d....dd
003D00: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
003D10: CC CC CC 2A 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ...*????????????
003D20: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 15 ???????????????.
003D30: CC CC CC CC CC CC 93 FF FF 66 CC CC CC CC CC CC .........f......
003D40: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
003D50: CC CC CC 64 CC CC CC CC CC CC CC CC CC CC CC CC ...d............
003D60: CC 9D 15 3F 2A 2A 2A 2A 2A 2A 2A 3F 3F 15 15 3F ...?*******??..?
003D70: 15 15 3F 3F 2A 2A 2A 3F 2A 2A 2A 3F 3F 3F 15 2A ..??***?***???.*
003D80: 6E CC CC CC CC CC CC CC CC 98 CC 98 CC CC 30 64 n.............0d
003D90: CC 98 CC CC 98 CC CC CC CC CC CC CC CC CC CC CC ................
003DA0: CC CC CC 98 CC CC 98 64 CC CC CC CC CC CC CC CC .......d........
003DB0: 9D 15 3F 3F 2A 2A 2A 3F 2A 2A 2A 3F 3F 15 15 15 ..??***?***??...
003DC0: 15 15 15 3F 2A 2A 2A 2A 2A 2A 2A 3F 3F 15 2A 62 ...?*******??.*b
003DD0: 60 6E CC CC CC CC CC CC CC 64 CC CC CC CC CC CC `n.......d......
003DE0: CC 98 64 CC CC CC CC CC CC CC CC CC CC CC CC CC ..d.............
003DF0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
003E00: CC 9D 15 3F 3F 3F 2A 2A 2A 2A 2A 2A 3F 3F 3F 15 ...???******???.
003E10: 15 15 3F 3F 3F 15 2A 2A 2A 3F 2A 2A 2A 3F 15 15 ..???.***?***?..
003E20: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC 64 ...............d
003E30: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
003E40: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
003E50: CC CC CC 2A 00 00 00 00 00 00 00 00 00 00 00 00 ...*............
003E60: 15 15 2A 2A 3F 2A 2A 2A 2A 2A 3F 3F 3F 15 CC CC ..**?*****???...
003E70: 88 CC 44 CC 88 88 CC 88 88 88 CC 88 CC CC CC CC ..D.............
003E80: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
003E90: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
003EA0: CC 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003ED0: 00 F1 BA FF FF FF FE 11 E5 08 57 04 08 04 86 04 ..........W.....
003EE0: 0C 09 FF 0F 07 12 00 07 01 00 2C 43 47 50 49 43 ..........,CGPIC
003EF0: 2E 53 43 52 00 00 00 00 00 00 00 07 00 02 00 08 .SCR............
003F00: 00 F0 00 00 40 00 00 00 00 00 00 00 00 00 00 00 ....@...........
003F10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003F20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003F30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003F40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003F50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003F60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003F70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003F80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003F90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003FA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003FB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003FC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003FD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003FE0: 00 00 00 00 00 00 00 00 00 00 00 8A DB FF FF FF ................
003FF0: FE 11 E5 08 F6 04 B8 03 6A 04 D5 08 FE 0F 07 E1 ........j.......
004000: 09 15 08 00 16 77 33 13 77 13 33 03 23 03 03 03 .....w3.w.3.#...
004010: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
004020: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
004030: 03 03 03 03 03 03 03 03 03 03 03 57 13 77 33 33 ...........W.w33
004040: 33 33 33 33 BB 33 BB 33 BB 33 33 33 77 33 BB 33 3333.3.3.333w3.3
004050: 33 03 33 23 33 FF 13 13 33 77 02 33 02 22 AA 02 3.3#3...3w.3."..
004060: AA 03 02 02 03 02 02 02 02 03 01 03 01 01 01 01 ................
004070: 01 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
004080: 03 03 03 03 03 03 03 03 03 03 03 03 13 13 FF 33 ...............3
004090: 33 33 33 33 33 33 33 33 33 33 33 13 33 33 33 33 33333333333.3333
0040A0: 33 BB 77 33 33 33 33 C0 55 77 13 BB 33 33 33 C0 3.w3333.Uw..333.
0040B0: 11 23 03 03 03 42 80 03 C0 01 03 03 03 03 03 03 .#...B..........
0040C0: C0 01 03 03 03 80 03 03 03 03 03 03 03 03 03 81 ................
0040D0: 03 03 03 03 03 03 03 03 03 03 AB 13 BB 33 33 33 .............333
0040E0: 33 33 23 33 33 33 33 33 BB 33 FF 33 13 23 FF 33 33#33333.3.3.#.3
0040F0: BB 33 33 BB FF FF 03 23 40 C0 33 EA C0 40 80 33 .33....#@.3..@.3
004100: C0 91 33 13 C0 18 C3 80 03 03 C0 01 03 03 03 03 ..3.............
004110: 81 03 C0 01 03 03 03 03 03 03 03 03 03 42 00 00 .............B..
004120: 00 00 00 81 03 03 03 03 03 03 03 23 23 33 13 33 ...........##3.3
004130: 03 23 77 33 33 FF FF BB BB 03 FF AB FF AB BB BB .#w33...........
004140: BB FF 13 23 FF 03 03 03 AB FF 33 13 33 33 33 03 ...#......3.333.
004150: 13 03 BB 13 13 33 BB 33 33 BB 77 33 33 33 33 33 .....3.33.w33333
004160: 33 77 03 03 03 AB 03 03 03 03 03 13 62 00 00 40 3w..........b..@
004170: 94 C0 3C 03 03 03 03 03 03 03 03 03 FF 03 AB 03 ..<.............
004180: 33 13 23 23 33 FF 23 AB 03 AB 03 03 AB 03 03 57 3.##3.#........W
004190: 03 03 57 03 03 03 03 03 03 03 03 03 03 03 03 03 ..W.............
0041A0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0041B0: 03 03 03 03 03 03 03 03 03 06 0C 0C 48 48 0C 0C ............HH..
0041C0: 08 01 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0041D0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0041E0: 03 03 57 03 03 03 03 03 03 03 03 03 03 03 03 03 ..W.............
0041F0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
004200: 03 03 03 03 03 03 03 65 BB 03 03 48 48 48 C0 C0 .......e...HHH..
004210: C0 C0 84 0C 03 03 03 03 03 03 03 03 03 03 03 03 ................
004220: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
004230: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
004240: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
004250: 03 03 03 03 03 03 03 03 03 03 03 48 C0 C0 C0 C0 ...........H....
004260: C0 40 84 0C 03 03 03 03 03 03 03 03 03 03 03 03 .@..............
004270: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
004280: 03 06 08 03 03 03 03 03 03 03 03 F3 F3 F3 F3 F3 ................
004290: F3 A3 03 03 03 03 03 03 03 03 03 03 03 03 03 03 .£..............
0042A0: 03 03 03 03 03 03 03 03 03 03 03 C0 C0 C0 C0 C0 ................
0042B0: C0 80 C0 0C 09 03 03 03 03 03 03 03 03 03 03 03 ................
0042C0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 F3 F3 ................
0042D0: F3 F3 02 03 03 03 53 F3 53 98 CC CC CC CC 88 30 ......S.S......0
0042E0: F3 C0 D1 80 03 03 03 03 03 03 03 03 03 03 03 03 ................
0042F0: 03 03 03 03 03 03 03 03 03 03 03 42 C0 C0 C0 C0 ...........B....
004300: C0 40 40 0C 0C 09 03 03 03 91 A1 03 03 03 03 03 .@@.............
004310: 03 03 03 03 03 03 03 CC CC CC CC CC F3 F3 F3 D9 ................
004320: CC CC CC CC 88 E6 E6 E6 F3 F3 F3 64 CC 64 CC 64 ...........d.d.d
004330: 64 98 CC CC 98 CC CC CC 98 CC CC CC 89 03 03 03 d...............
004340: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 C0 C0 ................
004350: C0 C0 40 40 00 C0 84 4C F3 F3 E6 F3 E6 E6 F3 F3 ..@@...L........
004360: F3 E6 E6 CC CC CC CC CC CC CC CC CC CC CC CC CC ................
004370: CC CC CC C3 C3 E4 CC CC CC CC CC 98 98 CC 30 64 ..............0d
004380: 98 CC 98 30 CC CC 64 CC CC 98 64 CC CC CC 30 CC ...0..d...d...0.
004390: CC CC 98 CC CC CC F3 F3 F3 F3 46 CC CC CC C3 C3 ..........F.....
0043A0: C3 C3 C3 C3 C3 C3 D4 EC CC CC 98 CC CC 64 CC 64 .............d.d
0043B0: CC 98 CC CC 71 CC D9 CC CC CC CC 64 CC CC CC CC ....q......d....
0043C0: CC CC CC CC CC CC CC CC CC CC CC CC CC 98 98 CC ................
0043D0: E6 98 CC 30 CC CC CC CC 64 98 CC 98 CC CC CC CC ...0....d.......
0043E0: CC F3 F3 F3 F3 CC CC 64 CC 64 64 CC CC CC C9 C3 .......d.dd.....
0043F0: C3 41 82 C3 C3 C3 82 77 CC 98 CC 98 CC CC CC CC .A.....w........
004400: 98 CC CC CC CC CC CC CC CC CC CC 48 E2 CC CC CC ...........H....
004410: CC CC CC CC CC 64 CC CC CC CC CC CC CC CC D9 E6 .....d..........
004420: E6 E6 64 D9 CC CC CC D9 CC CC CC 64 CC CC CC F3 ..d........d....
004430: F3 E6 F3 CC CC 98 CC 98 CC CC CC CC CC CC CC CC ................
004440: CC C9 C3 41 00 82 C3 C3 82 99 EE CC 98 98 64 CC ...A..........d.
004450: CC CC 30 CC 64 CC CC CC CC CC CC 64 CC CC CC CC ..0.d......d....
004460: CC CC 98 CC CC CC CC CC CC CC CC CC CC CC CC CC ................
004470: CC CC 98 98 CC 98 98 64 D9 CC CC 98 E6 E6 CC CC .......d........
004480: CC CC 64 98 CC CC CC CC CC CC CC CC CC CC 98 CC ..d.............
004490: CC CC C3 C3 41 00 82 C3 C3 CC 77 CC CC CC 64 98 ....A.....w...d.
0044A0: CC CC 71 D9 30 30 98 98 CC CC CC CC E4 30 70 CC ..q.00.......0p.
0044B0: CC CC CC 98 64 CC CC 98 98 CC CC CC CC CC 64 CC ....d.........d.
0044C0: 64 CC CC CC CC CC CC CC CC CC CC CC 64 CC 98 CC d...........d...
0044D0: CC CC CC F0 CC CC CC CC CC CC CC CC CC CC CC CC ................
0044E0: CC CC C3 C3 41 00 C3 C3 C6 CC 99 EE CC CC 64 98 ....A.........d.
0044F0: CC 30 98 64 CC 98 CC CC E6 D9 CC CC E4 E6 E6 E6 .0.d............
004500: CC D9 30 CC CC CC 98 98 CC CC CC CC CC AD B8 E4 ..0.............
004510: CC CC CC CC CC CC CC CC CC CC 98 D8 CC CC F0 E4 ................
004520: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
004530: CC CC CC CC C3 41 00 82 C3 C3 CC CC 99 EE CC CC .....A..........
004540: CC CC CC CC 64 CC CC D9 CC 64 CC CC CC CC CC 98 ....d....d......
004550: CC 64 64 CC CC CC CC CC CC CC CC CC CC CC CC CC .dd.............
004560: CC CC CC CC CC CC CC CC CC CC CC F0 CC CC D8 CC ................
004570: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
004580: CC CC CC C9 41 00 82 C3 C3 CC CC CC CC 77 CC CC ....A........w..
004590: CC CC CC CC CC CC 98 CC CC CC CC 30 98 CC 98 CC ...........0....
0045A0: 98 98 CC CC CC 98 64 CC CC 98 CC 30 64 CC CC D8 ......d....0d...
0045B0: CC CC CC D8 CC CC D8 D8 CC CC CC CC CC CC CC CC ................
0045C0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
0045D0: CC CC CC C9 41 00 C3 C3 C6 CC CC CC CC DD BB 77 ....A..........w
0045E0: EE CC CC CC CC CC CC CC 98 64 CC CC CC CC CC CC .........d......
0045F0: CC CC CC CC CC CC CC CC CC CC 98 CC CC CC CC D8 ................
004600: CC D8 CC CC CC CC CC CC CC CC CC CC CC CC CC D2 ................
004610: 67 CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC g...............
004620: CC CC CC CC CC 22 33 FF FF 00 66 CC CC CC CC CC ....."3...f.....
004630: CC CC CC CC CC CC 98 CC 98 CC CC CC CC CC CC CC ................
004640: CC CC CC CC CC CC CC CC CC CC CC CC 64 CC CC CC ............d...
004650: CC CC CC CC 9D 15 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ......??????????
004660: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
004670: 3F 15 CC CC CC CC CC CC 99 77 FF 66 CC CC CC CC ?........w.f....
004680: CC CC CC CC CC 98 CC CC CC CC CC CC CC CC CC 98 ................
004690: CC CC CC CC 64 CC CC CC CC CC CC CC CC 98 CC CC ....d...........
0046A0: CC CC CC 9D 15 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F .....???????????
0046B0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
0046C0: 15 2A 6E CC CC CC CC CC CC CC CC 98 CC CC CC CC .*n.............
0046D0: 98 CC 98 CC CC CC 64 CC CC CC CC CC CC CC CC CC ......d.........
0046E0: CC CC CC CC 98 64 CC CC CC CC CC CC CC CC CC CC .....d..........
0046F0: CC CC 9D 15 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ....????????????
004700: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 15 ???????????????.
004710: 15 13 A6 6E CC CC CC CC CC CC CC CC CC CC 64 CC ...n..........d.
004720: CC CC CC CC CC CC CC CC CC CC 64 CC CC CC CC CC ..........d.....
004730: CC CC CC CC CC CC CC CC CC CC CC 64 CC CC CC CC ...........d....
004740: CC CC CC 9D 15 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F .....???????????
004750: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
004760: 3F 15 CC CC CC CC CC CC CC CC CC CC CC CC CC CC ?...............
004770: CC CC CC CC 64 CC CC CC CC CC CC CC CC CC CC CC ....d...........
004780: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
004790: CC CC CC CC CC 9D 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ......??????????
0047A0: 3F 3F 3F 2A 00 2A 2A 2A 2A 2A 2A 2A 00 2A 00 6E ???*.*******.*.n
0047B0: CC CC CC 44 88 44 44 88 CC 88 CC 44 CC 88 88 CC ...D.DD....D....
0047C0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
0047D0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
0047E0: CC CC CC 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0047F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004800: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004810: 00 00 00 95 0D FF FF FF FE 11 D9 08 A6 04 57 04 ..............W.
004820: 82 04 05 09 FE 0F 07 11 00 07 01 00 2C 43 47 50 ............,CGP
004830: 49 43 2E 53 43 52 00 00 00 00 00 00 00 08 FF 02 IC.SCR..........
004840: 00 08 00 F8 00 00 40 00 00 00 00 00 00 00 00 00 ......@.........
004850: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0048A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0048B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0048C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0048D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0048E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0048F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004900: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004910: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004920: 00 00 00 00 00 00 00 00 00 00 00 00 00 43 54 FF .............CT.
004930: FF FF FE 11 E1 08 A6 04 08 04 6A 04 D5 08 FE 0F ..........j.....
004940: 07 E8 27 15 08 00 16 23 BB 33 33 33 BB 23 03 33 ..'....#.333.#.3
004950: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
004960: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
004970: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 57 13 ..............W.
004980: 13 33 33 33 23 33 23 13 77 77 33 33 33 77 33 33 .333#3#.ww333w33
004990: 33 33 AB BB 33 33 33 23 13 33 33 33 33 00 02 22 33..333#.3333.."
0049A0: 22 22 AA 03 02 02 03 02 03 01 02 03 01 00 03 01 ""..............
0049B0: 01 01 01 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
0049C0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 57 33 ..............W3
0049D0: 33 33 33 33 33 33 BB 33 33 33 BB 23 23 33 33 33 333333.333.##333
0049E0: 33 33 33 77 23 33 23 13 33 C0 11 33 33 33 33 33 333w#3#.3..33333
0049F0: 33 C0 01 AB 13 03 AB 42 80 03 C0 01 03 03 03 03 3......B........
004A00: 03 03 C0 C0 C0 C0 C0 80 03 03 03 03 03 03 03 42 ...............B
004A10: C0 C0 03 03 03 03 03 03 03 03 03 03 AB 57 33 33 .............W33
004A20: 33 33 33 33 33 33 33 77 77 33 77 BB 33 33 BB FF 3333333ww3w.33..
004A30: BB 33 BB BB 33 BB 57 77 FF AB 22 40 C0 80 00 00 .3..3.Ww.."@....
004A40: 80 FF 00 C0 C0 C0 80 FF 6E 01 03 42 C0 C0 C0 C0 ........n..B....
004A50: C0 C0 80 03 C0 01 03 03 03 03 03 03 03 03 03 02 ................
004A60: 00 00 00 00 00 C0 03 03 03 03 03 03 03 BB 33 13 ..............3.
004A70: 57 77 BB 33 33 33 33 FF FF FF FF 57 57 FF AB 13 Ww.3333....WW...
004A80: AB 23 FF 57 13 33 AB 03 03 FF 03 13 57 23 03 33 .#.W.3......W#.3
004A90: 13 33 77 23 57 13 33 33 33 33 33 77 03 13 33 33 .3w#W.33333w..33
004AA0: 23 33 13 03 57 03 03 AB 03 03 03 03 03 33 77 00 #3..W........3w.
004AB0: 00 C0 3C D4 BC 03 03 03 03 03 03 03 03 03 AB 03 ..<.............
004AC0: 03 03 33 13 33 03 03 FF 03 03 03 03 03 03 03 03 ..3.3...........
004AD0: 03 03 03 03 AB 03 03 03 03 03 03 03 03 03 03 03 ................
004AE0: 03 03 03 03 03 03 03 03 03 57 03 03 03 03 03 03 .........W......
004AF0: 03 03 03 03 03 03 03 03 03 03 03 06 0C 0C 0C 84 ................
004B00: C0 0C 0C 09 03 03 03 03 03 03 03 03 03 03 03 03 ................
004B10: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
004B20: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
004B30: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
004B40: 03 03 03 03 03 03 03 03 03 10 A8 03 03 0C 84 C0 ................
004B50: C0 C0 C0 40 48 0C 03 03 03 03 03 03 03 03 03 03 ...@H...........
004B60: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
004B70: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
004B80: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
004B90: 03 03 03 03 03 03 03 03 03 03 03 03 03 48 C0 C0 .............H..
004BA0: C0 C0 C0 40 84 0C 09 03 03 03 03 03 03 03 03 03 ...@............
004BB0: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
004BC0: 03 03 03 0C 08 03 03 03 03 03 03 03 03 F3 F3 F3 ................
004BD0: F3 F3 F3 F3 03 03 03 03 03 03 03 03 03 03 03 03 ................
004BE0: 03 03 03 03 03 03 03 03 03 03 03 03 03 C0 C0 C0 ................
004BF0: C0 C0 C0 80 C0 0C 09 03 03 03 03 03 03 03 03 03 ................
004C00: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 53 ...............S
004C10: F3 F3 F3 F3 02 A3 03 03 F3 A3 F3 CC CC 98 CC CC .....£...£......
004C20: CC CC C8 C0 F3 81 03 03 03 03 03 03 03 03 03 03 ................
004C30: 03 03 03 03 03 03 03 03 03 03 03 03 03 42 C0 C0 .............B..
004C40: C0 C0 80 80 40 84 0C 09 03 03 03 EA 6D 03 03 03 ....@.......m...
004C50: 03 03 03 03 CC CC CC CC CC CC CC CC CC CC CC CC ................
004C60: CC CC CC CC CC CC 88 CC CC D9 F3 F3 F3 CC 64 98 ..............d.
004C70: CC 98 CC CC 64 CC 64 64 64 98 CC CC CC CC CC 89 ....d.ddd.......
004C80: 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ................
004C90: C0 C0 C0 80 80 80 80 C0 84 4C D9 E6 F3 E6 CC CC .........L......
004CA0: CC D9 CC F3 CC CC CC CC CC CC CC CC CC CC CC CC ................
004CB0: CC CC CC CC CC C9 C6 CC CC CC CC CC CC 64 64 98 .............dd.
004CC0: CC CC 64 64 98 98 30 98 CC 98 CC CC CC CC CC CC ..dd..0.........
004CD0: CC 98 CC 64 CC 64 CC CC F3 F3 F3 A2 44 98 CC CC ...d.d......D...
004CE0: C3 C3 C3 C3 C3 C3 C3 C3 D4 EC CC CC CC CC CC CC ................
004CF0: 98 CC CC CC CC CC CC 64 71 F3 CC CC CC CC CC CC .......dq.......
004D00: CC 98 98 CC CC CC CC CC CC CC CC CC CC CC 98 98 ................
004D10: CC CC D9 D9 98 98 98 CC 64 64 CC CC CC 64 CC CC ........dd...d..
004D20: CC 64 D9 F3 F3 F3 71 98 CC CC CC 64 98 CC CC CC .d....q....d....
004D30: C9 C3 82 41 41 C3 C3 C3 82 77 CC CC CC CC 64 CC ...AA....w....d.
004D40: CC 30 98 CC 98 CC CC CC CC CC CC 98 CC 78 98 CC .0...........x..
004D50: CC CC CC CC CC 98 CC CC CC CC CC CC CC CC CC F3 ................
004D60: CC 71 CC 64 E6 64 71 64 D9 D9 64 98 CC CC 30 CC .q.d.dqd..d...0.
004D70: E6 F3 F3 E6 64 CC 64 98 98 CC CC CC 98 64 CC CC ....d.d......d..
004D80: CC CC CC C9 C3 82 00 41 C3 C3 C3 99 EE CC CC CC .......A........
004D90: 98 CC CC 64 CC 30 CC CC CC 64 CC CC 64 CC 64 CC ...d.0...d..d.d.
004DA0: CC 98 CC CC CC 98 CC 98 CC 64 CC CC CC CC CC 64 .........d.....d
004DB0: CC CC 98 CC 98 64 CC 64 CC CC CC 64 CC CC CC CC .....d.d...d....
004DC0: CC CC CC CC CC CC CC CC CC 64 CC CC CC 64 98 CC .........d...d..
004DD0: CC 64 CC CC C3 C3 82 82 41 C3 C3 CC 77 CC 98 98 .d......A...w...
004DE0: 98 64 98 30 64 71 98 98 F3 98 64 98 98 CC 64 70 .d.0dq....d...dp
004DF0: CC CC CC CC CC CC CC CC CC CC 64 CC CC CC CC CC ..........d.....
004E00: 98 CC CC CC CC CC CC 98 CC 98 64 CC CC CC CC CC ..........d.....
004E10: CC D8 D8 CC CC CC CC CC CC CC CC CC CC CC CC CC ................
004E20: CC CC CC CC C3 82 82 41 41 C3 C6 CC 99 EE CC CC .......AA.......
004E30: CC CC CC CC 98 98 CC CC 64 F3 CC CC F3 CC E6 E6 ........d.......
004E40: D9 CC CC CC CC CC CC CC CC 64 64 CC CC CC CC BC .........dd.....
004E50: 48 E4 CC CC CC CC CC E4 CC CC CC CC CC CC CC CC H...............
004E60: F0 CC 64 CC CC CC CC CC CC D8 CC CC CC CC CC CC ..d.............
004E70: CC CC CC CC CC CC 82 82 41 41 C3 C3 CC CC CC 77 ........AA.....w
004E80: CC CC CC CC CC 98 D9 64 E6 98 CC B2 E6 64 CC CC .......d.....d..
004E90: 64 30 CC 98 CC 64 CC CC CC CC CC CC CC CC CC CC d0...d..........
004EA0: CC CC CC E4 CC CC CC CC E4 CC CC D8 E4 CC CC CC ................
004EB0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
004EC0: CC CC CC CC CC C9 82 82 41 C3 C3 CC CC CC CC 77 ........A......w
004ED0: CC CC CC CC CC CC CC 64 CC CC CC 98 CC CC CC CC .......d........
004EE0: CC 98 CC CC CC CC CC 98 CC CC 98 CC CC CC CC CC ................
004EF0: CC CC CC CC CC D8 CC CC D8 CC CC D8 CC E4 CC CC ................
004F00: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
004F10: CC CC CC CC CC C9 82 11 00 C3 C6 CC CC CC CC DD ................
004F20: FF BB 66 CC CC CC CC 64 CC CC CC CC CC CC CC CC ..f....d........
004F30: CC CC 98 CC CC CC CC CC 98 CC CC 98 CC CC CC CC ................
004F40: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
004F50: CC 9E AE CC CC CC CC CC CC CC CC CC CC CC CC CC ................
004F60: CC CC CC CC CC CC CC 33 11 FF FF AA 66 CC CC CC .......3....f...
004F70: CC CC CC CC CC 64 CC CC 98 CC CC CC CC CC CC CC .....d..........
004F80: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
004F90: CC CC CC CC CC CC 9D 15 3F 3F 3F 3F 3F 3F 3F 3F ........????????
004FA0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
004FB0: 3F 3F 3F 15 CC CC CC CC CC CC C9 33 FF 66 CC 98 ???........3.f..
004FC0: 98 CC CC CC CC CC 64 CC CC CC CC CC 64 CC CC CC ......d.....d...
004FD0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
004FE0: CC CC CC CC CC 9D 15 3F 2A 2A 2A 3F 2A 2A 2A 3F .......?***?***?
004FF0: 3F 15 15 15 15 15 3F 15 2A 2A 2A 3F 2A 2A 2A 3F ?.....?.***?***?
005000: 3F 3F 15 15 CC CC CC CC CC CC CC CC 64 CC CC CC ??..........d...
005010: CC CC CC CC CC CC CC CC CC CC CC CC 98 CC CC CC ................
005020: CC 98 CC CC CC CC CC CC CC CC CC 98 CC CC CC CC ................
005030: CC CC CC CC 9D 15 3F 3F 2A 2A 2A 3F 2A 2A 2A 3F ......??***?***?
005040: 15 15 15 3F 15 15 3F 3F 2A 2A 2A 3F 2A 2A 2A 3F ...?..??***?***?
005050: 3F 15 15 A3 F6 CC CC CC CC CC CC CC CC CC CC CC ?..£............
005060: CC CC CC CC CC CC CC 64 CC CC 98 CC CC CC CC CC .......d........
005070: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
005080: CC CC CC CC CC 9D 15 3F 3F 3F 3F 3F 3F 3F 3F 3F .......?????????
005090: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
0050A0: 3F 3F 2A 6E CC CC CC CC CC CC CC CC CC CC CC CC ??*n............
0050B0: CC CC CC CC CC CC CC 98 CC CC CC CC CC CC CC CC ................
0050C0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
0050D0: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
0050E0: CC CC CC CC CC 15 3F 15 2A 3F 15 3F 3F 15 3F 15 ......?.*?.??.?.
0050F0: 3F CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ?...............
005100: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
005110: CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC CC ................
005120: CC CC CC CC CC 00 00 00 00 00 00 00 00 00 00 00 ................
005130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005150: 00 00 00 00 00 E4 73 FF FF FF FE 11 E3 08 A6 04 ......s.........
005160: 57 04 89 04 12 09 FE 0F 07 11 00 07 01 00 2C 47 W.............,G
005170: 4F 4C 46 31 00 00 00 00 00 00 00 00 00 00 00 01 OLF1............
005180: 00 16 00 08 7C 9E FF 00 00 00 00 00 00 00 00 00 ....|...........
005190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0051A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0051B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0051C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0051D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0051E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0051F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005200: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005210: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005230: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005240: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005250: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0E ................
005270: 00 FF FF FF FE 11 E6 08 A6 04 57 04 72 04 E5 08 ..........W.r...
005280: FE 0F 07 86 0A 15 08 00 16 31 30 20 44 49 4D 20 .........10 DIM
005290: 61 28 32 2C 33 29 2C 63 28 34 30 29 2C 64 28 32 a(2,3),c(40),d(2
0052A0: 2C 31 38 29 2C 65 28 34 30 29 2C 66 28 34 30 29 ,18),e(40),f(40)
0052B0: 2C 67 28 31 30 29 2C 68 28 35 2C 33 29 2C 6A 28 ,g(10),h(5,3),j(
0052C0: 34 30 29 2C 6B 28 34 30 29 2C 6C 28 32 30 2C 32 40),k(40),l(20,2
0052D0: 29 2C 6E 28 32 2C 31 38 29 2C 6F 28 32 2C 35 29 ),n(2,18),o(2,5)
0052E0: 2C 70 28 31 37 29 2C 72 28 31 30 29 2C 73 28 31 ,p(17),r(10),s(1
0052F0: 33 29 2C 74 28 39 29 2C 76 28 32 30 2C 33 29 2C 3),t(9),v(20,3),
005300: 77 28 34 30 29 2C 6A 24 28 35 30 29 2C 62 24 28 w(40),j$(50),b$(
005310: 34 2C 39 29 2C 61 24 28 32 30 29 2C 70 24 28 35 4,9),a$(20),p$(5
005320: 29 2C 63 24 28 31 30 29 0D 0A 32 30 20 44 49 4D ),c$(10)..20 DIM
005330: 20 64 24 28 32 29 2C 65 24 28 32 36 29 2C 69 24 d$(2),e$(26),i$
005340: 28 31 32 29 2C 6E 24 28 33 29 2C 73 24 28 32 30 (12),n$(3),s$(20
005350: 2C 36 29 2C 74 24 28 34 30 29 2C 75 24 28 34 30 ,6),t$(40),u$(40
005360: 29 2C 76 24 28 34 30 29 3A 62 61 3D 30 3A 46 4F ),v$(40):ba=0:FO
005370: 52 20 6E 3D 31 20 54 4F 20 39 3A 52 45 41 44 20 R n=1 TO 9:READ
005380: 74 28 6E 29 3A 4E 45 58 54 9F 74 3A 46 4F 52 20 t(n):NEXT.t:FOR
005390: 6E 3D 31 20 54 4F 20 34 3A 46 4F 52 20 79 3D 31 n=1 TO 4:FOR y=1
0053A0: 20 54 4F 20 39 3A 52 45 41 44 20 62 24 28 6E 2C TO 9:READ b$(n,
0053B0: 79 29 3A 4E 45 58 54 20 79 2C 6E 3A 52 41 4E 44 y):NEXT y,n:RAND
0053C0: 4F 4D 49 5A 45 20 54 49 4D 45 0D 0A 33 30 20 46 OMIZE TIME..30 F
0053D0: 4F 52 20 6E 3D 31 20 54 4F 20 35 30 3A 7A 31 3D OR n=1 TO 50:z1=
0053E0: 31 2B 49 4E 54 28 52 4E 44 2A 38 29 3A 46 4F 52 1+INT(RND*8):FOR
0053F0: 20 61 3D 31 20 54 4F 20 36 3A 7A 31 3D 7A 31 2A a=1 TO 6:z1=z1*
005400: 31 30 2B 49 4E 54 28 52 4E 44 2A 38 29 2B 31 3A 10+INT(RND*8)+1:
005410: 4E 45 58 54 3A 6A 24 28 6E 29 3D 52 49 47 48 54 NEXT:j$(n)=RIGHT
005420: 24 28 53 54 52 24 28 7A 31 29 2C 37 29 3A 4E 45 $(STR$(z1),7):NE
005430: 58 54 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 32 30 XT:FOR n=1 TO 20
005440: 3A 46 4F 52 20 68 3D 31 20 54 4F 20 36 3A 7A 31 :FOR h=1 TO 6:z1
005450: 3D 30 3A 46 4F 52 20 7A 3D 31 20 54 4F 20 33 3A =0:FOR z=1 TO 3:
005460: 7A 31 3D 7A 31 2A 31 30 30 2B 49 4E 54 28 52 4E z1=z1*100+INT(RN
005470: 44 2A 34 39 29 2B 31 31 3A 4E 45 58 54 3A 73 24 D*49)+11:NEXT:s$
005480: 28 6E 2C 68 29 3D 52 49 47 48 54 F7 5D 24 28 53 (n,h)=RIGHT.]$(S
005490: 54 52 24 28 7A 31 29 2C 36 29 3A 4E 45 58 54 20 TR$(z1),6):NEXT
0054A0: 68 2C 6E 0D 0A 34 30 20 44 41 54 41 20 33 2C 34 h,n..40 DATA 3,4
0054B0: 2C 35 2C 31 31 30 2C 32 32 30 2C 34 35 30 2C 31 ,5,110,220,450,1
0054C0: 32 30 2C 32 32 30 2C 31 34 30 2C 39 32 31 31 31 20,220,140,92111
0054D0: 30 32 37 2C 38 32 31 31 30 30 33 35 2C 37 32 31 027,82110035,721
0054E0: 31 33 30 30 34 2C 39 32 30 31 34 30 34 36 2C 38 13004,92014046,8
0054F0: 32 30 32 30 30 31 33 2C 38 32 32 31 32 35 33 36 2020013,82212536
005500: 2C 39 32 31 31 31 30 31 35 2C 39 32 32 32 31 30 ,92111015,922210
005510: 34 36 2C 39 32 32 31 30 30 32 37 2C 31 32 30 35 46,92210027,1205
005520: 36 30 32 35 2C 31 31 31 35 36 36 36 33 2C 32 32 6025,11156663,22
005530: 35 34 31 37 33 33 2C 31 32 31 36 36 32 33 34 2C 541733,12166234,
005540: 31 31 35 32 30 36 34 33 2C 32 31 30 36 34 33 31 11520643,2106431
005550: 32 2C 31 31 30 37 36 35 32 33 2C 31 31 31 36 36 2,11076523,11166
005560: 35 33 35 2C 31 31 31 36 30 36 36 33 2C 37 31 30 535,11160663,710
005570: 34 33 35 32 32 2C 35 33 30 35 32 37 34 35 2C 36 43522,53052745,6
005580: 33 30 34 33 31 36 35 0D 0A 35 30 20 44 36 6C 41 3043165..50 D6lA
005590: 54 41 20 36 34 31 36 32 36 35 37 2C 37 36 31 34 TA 64162657,7614
0055A0: 33 31 32 32 2C 35 36 31 35 32 35 34 34 2C 35 33 3122,56152544,53
0055B0: 30 36 33 36 34 32 2C 36 35 30 32 32 34 34 30 2C 063642,65022440,
0055C0: 37 35 31 32 33 36 34 31 2C 31 31 32 32 33 33 34 75123641,1122334
0055D0: 34 2C 38 38 37 37 36 36 35 35 2C 31 32 33 34 38 4,88776655,12348
0055E0: 37 36 35 2C 34 35 31 33 37 34 33 37 2C 34 35 38 765,45137437,458
0055F0: 34 33 36 33 37 2C 31 37 33 35 37 32 38 33 2C 34 43637,17357283,4
005600: 33 38 36 34 35 32 37 2C 35 34 36 33 33 31 32 37 3864527,54633127
005610: 2C 36 35 33 34 31 32 32 34 0D 0A 36 30 20 46 4F ,65341224..60 FO
005620: 52 20 6E 3D 31 20 54 4F 20 32 30 3A 52 45 41 44 R n=1 TO 20:READ
005630: 20 61 24 28 6E 29 3A 46 4F 52 20 61 3D 31 20 54 a$(n):FOR a=1 T
005640: 4F 20 33 3A 52 45 41 44 20 76 28 6E 2C 61 29 3A O 3:READ v(n,a):
005650: 4E 45 58 54 20 61 2C 6E 3A 46 4F 52 20 6E 3D 31 NEXT a,n:FOR n=1
005660: 20 54 4F 20 31 30 3A 52 45 41 44 20 63 24 28 6E TO 10:READ c$(n
005670: 29 3A 4E 45 58 54 3A 46 4F 52 20 6E 3D 31 20 54 ):NEXT:FOR n=1 T
005680: 4F 20 31 32 3A 52 45 41 44 20 69 24 28 6E 29 5E O 12:READ i$(n)^
005690: DC 3A 4E 45 58 54 0D 0A 37 30 20 44 41 54 41 20 .:NEXT..70 DATA
0056A0: 22 20 53 55 4E 20 43 49 54 59 20 43 48 41 4C 4C " SUN CITY CHALL
0056B0: 45 4E 47 45 20 22 2C 37 30 30 30 30 30 2C 32 32 ENGE ",700000,22
0056C0: 30 30 2C 37 32 2C 22 43 41 52 20 43 41 52 45 20 00,72,"CAR CARE
0056D0: 50 4C 41 4E 20 49 4E 54 45 52 4E 22 2C 31 31 30 PLAN INTERN",110
0056E0: 30 30 30 2C 32 30 30 2C 36 39 2C 22 20 20 50 47 000,200,69," PG
0056F0: 41 20 43 48 41 4D 50 49 4F 4E 53 48 49 50 20 20 A CHAMPIONSHIP
005700: 22 2C 31 38 30 30 30 30 2C 32 30 30 2C 37 32 2C ",180000,200,72,
005710: 22 20 20 42 52 49 54 49 53 48 20 4D 41 53 54 45 " BRITISH MASTE
005720: 52 53 20 20 20 22 2C 32 30 30 30 30 30 2C 32 30 RS ",200000,20
005730: 30 2C 37 32 0D 0A 38 30 20 44 41 54 41 20 22 20 0,72..80 DATA "
005740: 20 4D 4F 4E 54 45 20 43 41 52 4C 4F 20 4F 50 45 MONTE CARLO OPE
005750: 4E 20 20 22 2C 31 32 35 30 30 30 2C 34 30 30 2C N ",125000,400,
005760: 37 32 2C 22 20 20 20 20 42 52 49 54 49 53 48 20 72," BRITISH
005770: 4F 50 45 4E 20 20 20 20 22 2C 35 30 30 30 30 30 OPEN ",500000
005780: 2C 32 30 30 2C 37 30 2C 22 20 20 20 45 55 52 4F ,200,70," EURO
005790: 50 5E 74 45 41 4E 20 4F 50 45 4E 20 20 20 20 22 P^tEAN OPEN "
0057A0: 2C 32 30 30 30 30 30 2C 34 30 30 2C 37 30 2C 22 ,200000,400,70,"
0057B0: 20 53 41 4E 59 4F 20 53 50 41 4E 49 53 48 20 4F SANYO SPANISH O
0057C0: 50 45 4E 20 22 2C 31 32 30 30 30 30 2C 35 30 30 PEN ",120000,500
0057D0: 2C 37 30 0D 0A 39 30 20 44 41 54 41 20 22 20 20 ,70..90 DATA "
0057E0: 20 4C 41 4E 43 4F 4D 45 20 54 52 4F 50 48 59 20 LANCOME TROPHY
0057F0: 20 20 22 2C 31 32 35 30 30 30 2C 34 30 30 2C 37 ",125000,400,7
005800: 32 2C 22 20 20 20 54 48 45 20 55 53 20 4D 41 53 2," THE US MAS
005810: 54 45 52 53 20 20 20 22 2C 36 30 30 30 30 30 2C TERS ",600000,
005820: 31 30 30 30 2C 37 32 2C 22 20 20 42 4F 42 20 48 1000,72," BOB H
005830: 4F 50 45 20 43 4C 41 53 53 49 43 20 20 22 2C 33 OPE CLASSIC ",3
005840: 35 30 30 30 30 2C 31 30 30 30 2C 37 32 0D 0A 31 50000,1000,72..1
005850: 30 30 20 44 41 54 41 20 22 20 20 20 20 20 20 55 00 DATA " U
005860: 53 20 4F 50 45 4E 20 20 20 20 20 20 20 22 2C 35 S OPEN ",5
005870: 35 30 30 30 30 2C 31 30 30 30 2C 37 30 2C 22 20 50000,1000,70,"
005880: 20 4E 45 43 20 57 4F 52 4C 44 20 53 45 52 49 45 NEC WORLD SERIE
005890: 53 20 20 C1 38 22 2C 35 30 30 30 30 30 2C 31 30 S .8",500000,10
0058A0: 30 30 2C 37 30 2C 22 57 41 4C 54 20 44 49 53 4E 00,70,"WALT DISN
0058B0: 45 59 20 43 4C 41 53 53 49 43 20 22 2C 32 35 30 EY CLASSIC ",250
0058C0: 30 30 30 2C 31 30 30 30 2C 37 32 0D 0A 31 31 30 000,1000,72..110
0058D0: 20 44 41 54 41 20 22 53 45 49 4B 4F 20 49 4E 54 DATA "SEIKO INT
0058E0: 45 52 4E 41 54 49 4F 4E 41 4C 20 22 2C 34 35 30 ERNATIONAL ",450
0058F0: 30 30 30 2C 31 30 30 30 2C 37 30 2C 22 20 20 20 000,1000,70,"
005900: 20 20 4A 45 52 53 45 59 20 4F 50 45 4E 20 20 20 JERSEY OPEN
005910: 20 22 2C 37 35 30 30 30 2C 33 30 30 2C 37 32 2C ",75000,300,72,
005920: 22 43 41 52 52 4F 4C 4C 53 20 49 52 49 53 48 20 "CARROLLS IRISH
005930: 4F 50 45 4E 20 22 2C 31 32 30 30 30 30 2C 33 30 OPEN ",120000,30
005940: 30 2C 37 31 2C 22 20 42 26 48 20 49 4E 54 45 52 0,71," B&H INTER
005950: 4E 41 54 49 4F 4E 41 4C 20 20 22 2C 31 35 30 30 NATIONAL ",1500
005960: 30 30 2C 32 30 30 2C 37 32 0D 0A 31 32 30 20 44 00,200,72..120 D
005970: 41 54 41 20 22 20 41 55 53 54 52 41 4C 49 41 4E ATA " AUSTRALIAN
005980: 20 4D 41 53 54 45 52 53 20 22 2C 31 35 30 30 30 MASTERS ",15000
005990: 30 2C 31 35 30 F3 33 30 2C 37 33 2C 22 20 20 20 0,150.30,73,"
0059A0: 20 20 49 54 41 4C 49 41 4E 20 4F 50 45 4E 20 20 ITALIAN OPEN
0059B0: 20 22 2C 37 35 30 30 30 2C 34 30 30 2C 37 32 0D ",75000,400,72.
0059C0: 0A 31 33 30 20 44 41 54 41 20 22 44 55 4E 4C 4F .130 DATA "DUNLO
0059D0: 50 22 2C 22 42 4F 53 53 22 2C 22 53 4C 41 5A 45 P","BOSS","SLAZE
0059E0: 4E 47 45 52 22 2C 22 44 26 48 20 47 41 4D 45 53 NGER","D&H GAMES
0059F0: 22 2C 22 4E 49 4B 45 22 2C 22 48 49 2D 54 45 43 ","NIKE","HI-TEC
005A00: 22 2C 22 56 4F 4C 56 4F 22 2C 22 42 45 4C 4C 53 ","VOLVO","BELLS
005A10: 22 2C 22 4C 45 20 43 4F 51 22 2C 22 47 55 43 43 ","LE COQ","GUCC
005A20: 49 22 0D 0A 31 34 30 20 44 41 54 41 20 22 57 45 I"..140 DATA "WE
005A30: 4E 54 57 4F 52 54 48 22 2C 22 47 4C 45 4E 45 41 NTWORTH","GLENEA
005A40: 47 4C 45 53 22 2C 22 53 54 45 56 45 4E 41 47 45 GLES","STEVENAGE
005A50: 22 2C 22 4D 4F 4F 52 54 4F 57 4E 22 2C 22 57 4F ","MOORTOWN","WO
005A60: 42 55 52 4E 22 2C 22 48 41 47 47 53 20 43 41 53 BURN","HAGGS CAS
005A70: 54 4C 45 22 2C 22 46 55 4C 46 4F 52 44 22 2C 22 TLE","FULFORD","
005A80: 53 55 4E 4E 49 4E 47 44 41 4C 45 22 2C 22 54 48 SUNNINGDALE","TH
005A90: 45 20 42 45 4C 46 52 27 F2 FF FF FF FE 11 D3 08 E BELFR'........
005AA0: 57 04 08 04 7D 04 FB 08 FE 0F 07 12 00 07 01 00 W...}...........
005AB0: 2C 47 4F 4C 46 31 00 00 00 00 00 00 00 00 00 00 ,GOLF1..........
005AC0: 00 02 FF 16 D6 01 7C 9E 00 00 00 00 00 00 00 00 ......|.........
005AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005B00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005B10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005B20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005B30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005B40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005B50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005BB0: 00 9C 9C FF FF FF FE 11 D5 08 A6 04 08 04 71 04 ..............q.
005BC0: E4 08 FE 0F 07 CA 27 09 02 00 16 59 22 2C 22 42 ......'....Y","B
005BD0: 49 4E 47 4C 45 59 22 2C 22 52 4F 59 41 4C 20 4C INGLEY","ROYAL L
005BE0: 59 54 48 41 4D 22 2C 22 57 49 4E 44 53 4F 52 22 YTHAM","WINDSOR"
005BF0: 0D 0A 31 35 30 20 68 24 3D 22 42 43 44 46 47 48 ..150 h$="BCDFGH
005C00: 4A 4B 4C 4D 4E 50 52 53 54 56 57 22 3A 6D 24 3D JKLMNPRSTVW":m$=
005C10: 22 41 45 49 4F 55 22 3A 52 45 53 54 4F 52 45 20 "AEIOU":RESTORE
005C20: 31 36 30 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 32 160:FOR n=1 TO 2
005C30: 36 3A 52 45 41 44 20 65 24 28 6E 29 3A 4E 45 58 6:READ e$(n):NEX
005C40: 54 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 33 3A 52 T:FOR n=1 TO 3:R
005C50: 45 41 44 20 6E 24 28 6E 29 3A 4E 45 58 54 3A 52 EAD n$(n):NEXT:R
005C60: 45 53 54 4F 52 45 20 31 38 30 3A 47 4F 53 55 42 ESTORE 180:GOSUB
005C70: 20 31 38 30 3A 43 48 41 49 4E 20 4D 45 52 47 45 180:CHAIN MERGE
005C80: 22 21 47 4F 4C 46 32 22 2C 31 30 0D 0A 31 36 30 "!GOLF2",10..160
005C90: 20 44 41 54 41 20 22 44 45 4E 22 2C 22 4E 53 22 DATA "DEN","NS"
005CA0: 2C 22 52 59 22 2C 22 45 59 22 2C 22 4F 4E 22 2C ,"RY","EY","ON",
005CB0: 22 57 41 59 22 2C 22 4C 45 22 2C 22 42 59 22 2C "WAY","LE","BY",
005CC0: 22 49 4E 53 22 2C 22 4C 45 59 22 03 FA 2C 22 53 "INS","LEY"..,"S
005CD0: 4F 4E 22 2C 22 54 4F 4E 22 2C 22 53 22 2C 22 45 ON","TON","S","E
005CE0: 53 22 2C 22 4D 41 4E 22 2C 22 42 4C 45 22 2C 22 S","MAN","BLE","
005CF0: 4E 45 59 22 2C 22 53 45 59 22 2C 22 54 45 52 22 NEY","SEY","TER"
005D00: 2C 22 49 53 22 2C 22 45 52 22 2C 22 45 4E 53 22 ,"IS","ER","ENS"
005D10: 2C 22 44 4F 4E 22 2C 22 49 4E 47 22 2C 22 47 41 ,"DON","ING","GA
005D20: 4E 22 2C 22 4C 49 4E 22 0D 0A 31 37 30 20 44 41 N","LIN"..170 DA
005D30: 54 41 20 22 50 52 49 5A 45 20 4D 4F 4E 45 59 20 TA "PRIZE MONEY
005D40: 22 2C 22 45 58 50 45 4E 53 45 53 20 22 2C 22 54 ","EXPENSES ","T
005D50: 4F 55 52 4E 41 4D 45 4E 54 22 0D 0A 31 38 30 20 OURNAMENT"..180
005D60: 46 4F 52 20 6E 3D 31 20 54 4F 20 31 30 3A 52 45 FOR n=1 TO 10:RE
005D70: 41 44 20 72 28 6E 29 3A 4E 45 58 54 3A 52 45 54 AD r(n):NEXT:RET
005D80: 55 52 4E 3A 44 41 54 41 20 34 2C 32 2C 31 2C 30 URN:DATA 4,2,1,0
005D90: 2C 30 2C 2D 31 2C 2D 32 2C 2D 34 2C 2D 35 2C 2D ,0,-1,-2,-4,-5,-
005DA0: 36 0D 0A 00 00 00 00 00 00 00 00 00 00 00 00 00 6...............
005DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 B6 67 FF ..............g.
005DD0: FF FF FE 11 DC 08 A6 04 08 04 78 04 F1 08 FF 0F ..........x.....
005DE0: 07 11 00 07 01 00 2C 47 4F 4C 46 32 00 00 00 00 ......,GOLF2....
005DF0: 00 00 00 00 00 00 00 01 00 16 00 08 7C 9E FF 00 ............|...
005E00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005E10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005E20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005E30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005E40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005E50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005EE0: 00 00 00 00 00 00 00 43 A3 FF FF FF FE 11 DC 08 .......C£.......
005EF0: A6 04 08 04 68 04 D0 08 FF 0F 07 77 0A 15 08 00 ....h......w....
005F00: 16 31 30 20 61 6B 3D 31 30 3A 61 71 3D 30 3A 61 .10 ak=10:aq=0:a
005F10: 72 3D 30 3A 61 75 3D 30 3A 61 65 3D 30 3A 7A 66 r=0:au=0:ae=0:zf
005F20: 3D 30 3A 7A 70 3D 30 3A 46 4F 52 20 6E 3D 31 20 =0:zp=0:FOR n=1
005F30: 54 4F 20 31 30 3A 52 45 41 44 20 67 28 6E 29 3A TO 10:READ g(n):
005F40: 4E 45 58 54 3A 44 41 54 41 20 33 35 2C 32 32 2C NEXT:DATA 35,22,
005F50: 31 36 2C 37 2C 36 2C 35 2C 34 2C 33 2C 32 2C 31 16,7,6,5,4,3,2,1
005F60: 0D 0A 32 30 20 47 4F 53 55 42 20 36 35 35 30 32 ..20 GOSUB 65502
005F70: 3A 4C 4F 43 41 54 45 20 39 2C 38 3A 50 52 49 4E :LOCATE 9,8:PRIN
005F80: 54 22 53 54 4F 50 20 54 41 50 45 2C 44 4F 20 4E T"STOP TAPE,DO N
005F90: 4F 54 20 52 45 57 49 4E 44 22 3A 4C 4F 43 41 54 OT REWIND":LOCAT
005FA0: 45 20 31 31 2C 31 31 3A 50 52 49 4E 54 20 22 4C E 11,11:PRINT "L
005FB0: 4F 41 44 20 53 41 56 45 44 20 47 41 4D 45 3F 20 OAD SAVED GAME?
005FC0: 59 2F 4E 22 3A 47 4F 53 55 42 20 36 34 31 30 30 Y/N":GOSUB 64100
005FD0: 3A 49 46 20 49 4E 24 3D 22 59 22 20 54 48 45 4E :IF IN$="Y" THEN
005FE0: 20 43 4C 53 3A 4C 4F 43 41 54 45 20 31 30 2C 31 CLS:LOCATE 10,1
005FF0: 30 3A 50 52 49 4E 54 22 53 54 41 52 54 20 53 41 0:PRINT"START SA
006000: 56 4B E9 45 44 20 47 41 4D 45 20 54 41 50 45 22 VK.ED GAME TAPE"
006010: 3A 47 4F 53 55 42 20 35 30 30 30 30 3A 43 4C 53 :GOSUB 50000:CLS
006020: 3A 4C 4F 43 41 54 45 20 31 30 2C 31 31 3A 50 52 :LOCATE 10,11:PR
006030: 49 4E 54 22 53 54 41 52 54 20 4F 52 49 47 49 4E INT"START ORIGIN
006040: 41 4C 20 54 41 50 45 22 3A 43 48 41 49 4E 20 4D AL TAPE":CHAIN M
006050: 45 52 47 45 22 21 41 47 4F 4C 46 22 2C 35 30 30 ERGE"!AGOLF",500
006060: 0D 0A 33 30 20 43 4C 53 3A 46 24 3D 22 30 30 30 ..30 CLS:F$="000
006070: 30 30 30 30 30 30 30 30 30 30 30 30 22 3A 47 4F 000000000000":GO
006080: 53 55 42 20 39 39 32 30 3A 73 6E 3D 30 3A 7A 61 SUB 9920:sn=0:za
006090: 3D 32 30 30 30 30 3A 61 62 3D 31 3A 7A 63 3D 30 =20000:ab=1:zc=0
0060A0: 3A 7A 64 3D 30 3A 7A 65 3D 30 3A 7A 6C 3D 30 3A :zd=0:ze=0:zl=0:
0060B0: 7A 6D 3D 30 3A 7A 6E 3D 30 3A 7A 6F 3D 30 0D 0A zm=0:zn=0:zo=0..
0060C0: 34 30 20 47 4F 53 55 42 20 37 30 3A 52 41 4E 44 40 GOSUB 70:RAND
0060D0: 4F 4D 49 5A 45 20 54 49 4D 45 3A 46 4F 52 20 6E OMIZE TIME:FOR n
0060E0: 3D 32 20 54 4F 20 34 30 3A 47 4F 53 55 42 20 39 =2 TO 40:GOSUB 9
0060F0: 39 31 30 3A 76 24 28 6E 29 3D 7A 31 24 3A 4E 45 910:v$(n)=z1$:NE
006100: 58 54 3A B2 3F 52 41 4E 44 4F 4D 49 5A 45 20 54 XT:.?RANDOMIZE T
006110: 49 4D 45 3A 7A 31 3D 30 3A 46 4F 52 20 7A 3D 31 IME:z1=0:FOR z=1
006120: 20 54 4F 20 34 3A 7A 31 3D 7A 31 2A 31 30 30 2B TO 4:z1=z1*100+
006130: 49 4E 54 28 52 4E 44 2A 31 30 29 2B 33 35 3A 4E INT(RND*10)+35:N
006140: 45 58 54 3A 76 24 28 31 29 3D 52 49 47 48 54 24 EXT:v$(1)=RIGHT$
006150: 28 53 54 52 24 28 7A 31 29 2C 38 29 0D 0A 35 30 (STR$(z1),8)..50
006160: 20 43 4C 53 3A 4C 4F 43 41 54 45 20 35 2C 31 31 CLS:LOCATE 5,11
006170: 3A 50 52 49 4E 54 20 22 45 4E 54 45 52 20 59 4F :PRINT "ENTER YO
006180: 55 52 20 46 49 52 53 54 20 49 4E 49 54 49 41 4C UR FIRST INITIAL
006190: 22 3A 47 4F 53 55 42 20 36 35 35 33 35 3A 49 4E ":GOSUB 65535:IN
0061A0: 50 55 54 23 32 2C 7A 24 3A 43 4C 53 23 32 3A 75 PUT#2,z$:CLS#2:u
0061B0: 24 28 31 29 3D 4C 45 46 54 24 28 7A 24 2C 31 29 $(1)=LEFT$(z$,1)
0061C0: 2B 22 2E 22 3A 4C 4F 43 41 54 45 20 35 2C 31 31 +".":LOCATE 5,11
0061D0: 3A 50 52 49 4E 54 20 22 45 4E 54 45 52 20 59 4F :PRINT "ENTER YO
0061E0: 55 52 20 53 55 52 4E 41 4D 45 20 28 4D 41 58 20 UR SURNAME (MAX
0061F0: 39 20 43 48 41 52 53 29 22 3A 49 4E 50 55 54 23 9 CHARS)":INPUT#
006200: 32 2C 7A 24 3A 8C 60 43 4C 53 23 32 3A 49 46 20 2,z$:.`CLS#2:IF
006210: 4C 45 4E 28 7A 24 29 3E 39 20 4F 52 20 4C 45 4E LEN(z$)>9 OR LEN
006220: 28 7A 24 29 3C 31 20 54 48 45 4E 20 31 30 30 0D (z$)<1 THEN 100.
006230: 0A 36 30 20 52 41 4E 44 4F 4D 49 5A 45 20 54 49 .60 RANDOMIZE TI
006240: 4D 45 3A 43 4C 53 3A 47 4F 53 55 42 20 39 39 32 ME:CLS:GOSUB 992
006250: 30 3A 75 24 28 31 29 3D 55 50 50 45 52 24 28 75 0:u$(1)=UPPER$(u
006260: 24 28 31 29 2B 7A 24 29 2B 53 50 41 43 45 24 28 $(1)+z$)+SPACE$(
006270: 39 2D 4C 45 4E 28 7A 24 29 29 3A 46 4F 52 20 6E 9-LEN(z$)):FOR n
006280: 3D 31 20 54 4F 20 31 37 3A 70 28 6E 29 3D 31 3A =1 TO 17:p(n)=1:
006290: 4E 45 58 54 3A 43 48 41 49 4E 20 4D 45 52 47 45 NEXT:CHAIN MERGE
0062A0: 22 21 41 47 4F 4C 46 22 2C 34 30 30 0D 0A 37 30 "!AGOLF",400..70
0062B0: 20 46 4F 52 20 61 3D 32 20 54 4F 20 34 30 3A 20 FOR a=2 TO 40:
0062C0: 52 45 41 44 20 75 24 28 61 29 3A 75 24 28 61 29 READ u$(a):u$(a)
0062D0: 3D 75 24 28 61 29 2B 53 50 41 43 45 24 28 31 31 =u$(a)+SPACE$(11
0062E0: 2D 4C 45 4E 28 75 24 28 61 29 29 29 3A 4E 45 58 -LEN(u$(a))):NEX
0062F0: 54 3A 52 45 54 55 52 4E 0D 0A 38 30 20 44 41 54 T:RETURN..80 DAT
006300: 41 20 22 47 2E 4E 4F B3 13 52 4D 41 4E 22 2C 22 A "G.NO..RMAN","
006310: 42 2E 4C 41 4E 47 45 52 22 2C 22 53 2E 42 41 4C B.LANGER","S.BAL
006320: 45 53 54 52 4F 53 22 2C 22 54 2E 4E 41 4B 41 4A ESTROS","T.NAKAJ
006330: 49 4D 41 22 2C 22 41 2E 42 45 41 4E 22 2C 22 52 IMA","A.BEAN","R
006340: 2E 54 57 41 59 22 2C 22 43 2E 53 54 52 41 4E 47 .TWAY","C.STRANG
006350: 45 22 2C 22 4D 2E 4F 27 4D 45 41 52 41 22 2C 22 E","M.O'MEARA","
006360: 49 2E 41 4F 4B 49 22 2C 22 53 2E 4C 59 4C 45 22 I.AOKI","S.LYLE"
006370: 2C 22 43 2E 50 45 45 54 45 22 2C 22 52 2E 46 4C ,"C.PEETE","R.FL
006380: 4F 59 44 22 2C 22 4C 2E 57 41 44 4B 49 4E 53 22 OYD","L.WADKINS"
006390: 2C 22 54 2E 4B 49 54 45 22 2C 22 52 2E 44 41 56 ,"T.KITE","R.DAV
0063A0: 49 53 22 2C 22 54 2E 57 41 54 53 4F 4E 22 0D 0A IS","T.WATSON"..
0063B0: 39 30 20 44 41 54 41 20 22 46 2E 5A 4F 45 4C 4C 90 DATA "F.ZOELL
0063C0: 45 52 22 2C 22 4D 2E 4D 63 4E 55 4C 54 59 22 2C ER","M.McNULTY",
0063D0: 22 43 2E 53 54 41 44 4C 45 52 22 2C 22 4A 2E 4E "C.STADLER","J.N
0063E0: 49 4B 4C 41 55 53 22 2C 22 48 2E 43 4C 41 52 4B IKLAUS","H.CLARK
0063F0: 22 2C 22 49 2E 57 4F 4F 53 4E 41 4D 22 2C 22 47 ","I.WOOSNAM","G
006400: 2E 4D 41 52 53 48 22 2C 22 F6 4E 53 2E 48 4F 43 .MARSH",".NS.HOC
006410: 48 22 2C 22 4C 2E 4D 49 5A 45 22 2C 22 42 2E 43 H","L.MIZE","B.C
006420: 52 45 4E 53 48 41 57 22 2C 22 4C 2E 54 52 45 56 RENSHAW","L.TREV
006430: 49 4E 4F 22 2C 22 53 2E 54 4F 52 52 41 4E 43 45 INO","S.TORRANCE
006440: 22 2C 22 4E 2E 46 41 4C 44 4F 22 2C 22 4E 2E 50 ","N.FALDO","N.P
006450: 52 49 43 45 22 2C 22 47 2E 42 52 41 4E 44 22 2C RICE","G.BRAND",
006460: 22 4C 2E 4E 45 4C 53 4F 4E 22 0D 0A 31 30 30 20 "L.NELSON"..100
006470: 44 41 54 41 20 22 46 2E 43 4F 55 50 4C 45 53 22 DATA "F.COUPLES"
006480: 2C 22 4A 2E 52 49 56 45 52 4F 22 2C 22 4D 2E 4A ,"J.RIVERO","M.J
006490: 41 4D 45 53 22 2C 22 50 2E 41 5A 49 4E 47 45 52 AMES","P.AZINGER
0064A0: 22 2C 22 48 2E 42 49 41 4F 43 43 48 49 22 2C 22 ","H.BIAOCCHI","
0064B0: 48 2E 49 52 57 49 4E 22 2C 22 4B 2E 42 52 4F 57 H.IRWIN","K.BROW
0064C0: 4E 22 0D 0A 39 39 30 30 20 7A 24 3D 4D 49 44 24 N"..9900 z$=MID$
0064D0: 28 68 24 2C 31 2B 49 4E 54 28 52 4E 44 2A 31 37 (h$,1+INT(RND*17
0064E0: 29 2C 31 29 2B 22 2E 22 2B 4D 49 44 24 28 68 24 ),1)+"."+MID$(h$
0064F0: 2C 31 2B 49 4E 54 28 52 4E 44 2A 31 37 29 2C 31 ,1+INT(RND*17),1
006500: 29 2B 4D 49 44 24 28 6D 24 2C 31 91 E9 2B 49 4E )+MID$(m$,1..+IN
006510: 54 28 52 4E 44 2A 35 29 2C 31 29 2B 4D 49 44 24 T(RND*5),1)+MID$
006520: 28 68 24 2C 31 2B 49 4E 54 28 52 4E 44 2A 31 37 (h$,1+INT(RND*17
006530: 29 2C 31 29 2B 65 24 28 31 2B 49 4E 54 28 52 4E ),1)+e$(1+INT(RN
006540: 44 2A 32 36 29 29 3A 7A 24 3D 7A 24 2B 53 50 41 D*26)):z$=z$+SPA
006550: 43 45 24 28 31 31 2D 4C 45 4E 28 7A 24 29 29 3A CE$(11-LEN(z$)):
006560: 52 45 54 55 52 4E 20 0D 0A 39 39 31 30 20 7A 31 RETURN ..9910 z1
006570: 3D 30 3A 46 4F 52 20 7A 3D 31 20 54 4F 20 34 3A =0:FOR z=1 TO 4:
006580: 7A 31 3D 7A 31 2A 31 30 30 2B 49 4E 54 28 52 4E z1=z1*100+INT(RN
006590: 44 2A 31 35 29 2B 37 35 3A 4E 45 58 54 3A 7A 31 D*15)+75:NEXT:z1
0065A0: 24 3D 28 52 49 47 48 54 24 28 53 54 52 24 28 7A $=(RIGHT$(STR$(z
0065B0: 31 29 2C 38 29 29 3A 52 45 54 55 52 4E 20 0D 0A 1),8)):RETURN ..
0065C0: 39 39 32 30 20 50 52 49 4E 54 20 23 32 2C 54 41 9920 PRINT #2,TA
0065D0: 42 28 31 30 29 3B 70 61 24 28 32 29 3B 22 50 4C B(10);pa$(2);"PL
0065E0: 45 41 53 45 20 57 41 49 54 22 3B 70 61 24 28 31 EASE WAIT";pa$(1
0065F0: 29 3A 52 45 54 55 52 4E 20 0D 0A 39 39 33 30 20 ):RETURN ..9930
006600: 50 52 49 4E 54 20 23 32 2C 54 41 42 28 9F BD 31 PRINT #2,TAB(..1
006610: 33 29 3B 70 61 24 28 34 29 3B 22 20 28 43 29 4F 3);pa$(4);" (C)O
006620: 4E 54 49 4E 55 45 20 22 3B 70 61 24 28 31 29 3A NTINUE ";pa$(1):
006630: 57 48 49 4C 45 20 49 4E 4B 45 59 28 36 32 29 3D WHILE INKEY(62)=
006640: 2D 31 3A 57 45 4E 44 3A 57 48 49 4C 45 20 49 4E -1:WEND:WHILE IN
006650: 4B 45 59 28 36 32 29 3C 3E 2D 31 3A 57 45 4E 44 KEY(62)<>-1:WEND
006660: 3A 47 4F 54 4F 20 36 35 35 33 35 0D 0A 39 39 34 :GOTO 65535..994
006670: 30 20 50 52 49 4E 54 23 32 2C 54 41 42 28 31 33 0 PRINT#2,TAB(13
006680: 29 3B 70 61 24 28 33 29 3B 22 20 28 4D 29 45 4E );pa$(3);" (M)EN
006690: 55 20 22 3B 70 61 24 28 31 29 3A 57 48 49 4C 45 U ";pa$(1):WHILE
0066A0: 20 49 4E 4B 45 59 28 33 38 29 3D 2D 31 3A 57 45 INKEY(38)=-1:WE
0066B0: 4E 44 3A 57 48 49 4C 45 20 49 4E 4B 45 59 28 33 ND:WHILE INKEY(3
0066C0: 38 29 3C 3E 2D 31 3A 57 45 4E 44 3A 47 4F 54 4F 8)<>-1:WEND:GOTO
0066D0: 20 36 35 35 33 35 0D 0A 39 39 35 30 20 50 52 49 65535..9950 PRI
0066E0: 4E 54 20 23 32 2C 54 41 42 28 37 29 3B 70 61 24 NT #2,TAB(7);pa$
0066F0: 28 34 29 3B 22 20 28 43 29 48 41 4E 47 45 20 20 (4);" (C)HANGE
006700: 28 4D 29 45 4E 55 20 22 3B 70 61 24 28 31 29 82 (M)ENU ";pa$(1).
006710: 20 FF FF FF FE 11 D9 08 A6 04 08 04 86 04 0D 09 ...............
006720: FE 0F 07 12 00 07 01 00 2C 47 4F 4C 46 32 00 00 ........,GOLF2..
006730: 00 00 00 00 00 00 00 00 00 02 FF 16 62 03 7C 9E ............b.|.
006740: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006750: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0067A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0067B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0067C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0067D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0067E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0067F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006800: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006810: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006820: 00 00 00 00 00 00 00 00 00 B4 A2 FF FF FF FE 11 ................
006830: DC 08 A6 04 08 04 7A 04 F5 08 FE 0F 07 10 28 0D ......z.......(.
006840: 04 00 16 3A 52 45 54 55 52 4E 20 0D 0A 39 39 36 ...:RETURN ..996
006850: 30 20 4C 4F 43 41 54 45 20 32 30 2C 32 32 3A 50 0 LOCATE 20,22:P
006860: 52 49 4E 54 20 22 42 41 4E 4B 20 22 3B 3A 74 7A RINT "BANK ";:tz
006870: 3D 7A 61 3A 47 4F 53 55 42 20 36 33 35 30 30 3A =za:GOSUB 63500:
006880: 50 52 49 4E 54 20 43 48 52 24 28 33 32 2D 28 7A PRINT CHR$(32-(z
006890: 61 3C 30 29 2A 31 33 29 3B 3A 52 45 54 55 52 4E a<0)*13);:RETURN
0068A0: 20 0D 0A 39 39 37 30 20 47 4F 53 55 42 20 36 35 ..9970 GOSUB 65
0068B0: 35 33 35 3A 49 4E 50 55 54 23 32 2C 22 44 4F 20 535:INPUT#2,"DO
0068C0: 59 4F 55 20 41 43 43 45 50 54 20 59 2F 4E 22 3B YOU ACCEPT Y/N";
0068D0: 7A 24 3A 43 4C 53 23 32 3A 7A 24 3D 55 50 50 45 z$:CLS#2:z$=UPPE
0068E0: 52 24 28 7A 24 29 3A 49 46 20 7A 24 3D 22 59 22 R$(z$):IF z$="Y"
0068F0: 20 4F 52 20 7A 24 3D 22 4E 22 20 54 48 45 4E 20 OR z$="N" THEN
006900: 52 45 54 55 52 4E 20 45 4C 53 45 20 39 39 37 30 RETURN ELSE 9970
006910: 0D 0A 39 39 38 30 20 47 4F 53 55 42 20 36 35 35 ..9980 GOSUB 655
006920: 33 35 3A 47 4F 53 55 42 20 36 34 32 30 30 3A 79 35:GOSUB 64200:y
006930: 24 3D 49 4E 24 3A 49 46 20 79 24 20 3C 22 30 22 $=IN$:IF y$ <"0"
006940: 20 4F 52 06 31 20 79 24 20 3E 22 39 22 20 54 48 OR.1 y$ >"9" TH
006950: 45 4E 20 39 39 38 30 20 45 4C 53 45 20 61 31 3D EN 9980 ELSE a1=
006960: 56 41 4C 28 79 24 29 3A 52 45 54 55 52 4E 20 0D VAL(y$):RETURN .
006970: 0A 39 39 39 30 20 44 41 54 41 20 22 50 4C 41 59 .9990 DATA "PLAY
006980: 20 54 4F 55 52 4E 41 4D 45 4E 54 22 2C 22 4E 45 TOURNAMENT","NE
006990: 58 54 20 54 4F 55 52 4E 41 4D 45 4E 54 22 2C 22 XT TOURNAMENT","
0069A0: 50 52 41 43 54 49 43 45 22 2C 22 46 49 58 54 55 PRACTICE","FIXTU
0069B0: 52 45 53 22 2C 22 43 48 41 4E 47 45 20 4E 41 4D RES","CHANGE NAM
0069C0: 45 53 22 2C 22 42 41 4E 4B 22 2C 22 53 50 4F 4E ES","BANK","SPON
0069D0: 53 4F 52 53 22 2C 22 4C 45 56 45 4C 22 2C 22 57 SORS","LEVEL","W
0069E0: 4F 52 4C 44 20 52 41 4E 4B 49 4E 47 22 2C 22 53 ORLD RANKING","S
0069F0: 41 56 45 20 47 41 4D 45 20 20 20 20 20 20 22 0D AVE GAME ".
006A00: 0A 35 30 30 30 30 20 43 4C 4F 53 45 49 4E 3A 4F .50000 CLOSEIN:O
006A10: 50 45 4E 49 4E 20 22 67 6F 6C 66 2E 73 61 76 22 PENIN "golf.sav"
006A20: 0D 0A 35 30 30 31 30 20 49 4E 50 55 54 23 39 2C ..50010 INPUT#9,
006A30: 61 61 2C 61 62 2C 61 65 2C 61 66 2C 61 6B 2C 61 aa,ab,ae,af,ak,a
006A40: 71 2C 61 72 2C 7A 70 61 76 2C 61 77 2C 73 6E 2C q,ar,zpav,aw,sn,
006A50: 7A 61 2C 7A 62 2C 7A 63 2C 7A 64 2C 7A 65 2C 7A za,zb,zc,zd,ze,z
006A60: 6C 2C 7A 6D 2C 7A 6F 2C 66 24 3A 46 4F 52 20 6E l,zm,zo,f$:FOR n
006A70: 3D 31 20 54 4F 20 32 3A 46 4F 52 20 61 3D 31 20 =1 TO 2:FOR a=1
006A80: 54 4F 20 33 3A 49 4E 50 55 54 23 39 2C 61 28 6E TO 3:INPUT#9,a(n
006A90: 2C 61 29 3A 4E 45 58 54 20 61 2C 6E 3A 46 4F 52 ,a):NEXT a,n:FOR
006AA0: 20 6E 3D 31 20 54 4F 20 34 30 3A 49 4E 50 55 54 n=1 TO 40:INPUT
006AB0: 23 39 2C 63 28 6E 29 2C 6B 28 6E 29 2C 76 24 28 #9,c(n),k(n),v$(
006AC0: 6E 29 2C 75 24 28 6E 29 3A 4E 45 58 54 0D 0A 35 n),u$(n):NEXT..5
006AD0: 30 30 32 30 20 46 4F 52 20 6E 3D 31 20 54 4F 20 0020 FOR n=1 TO
006AE0: 32 30 3A 49 4E 50 55 54 23 39 2C 61 24 28 6E 29 20:INPUT#9,a$(n)
006AF0: 2C 6C 28 6E 2C 31 29 2C 6C 28 6E 2C 32 29 3A 46 ,l(n,1),l(n,2):F
006B00: 4F 52 20 61 3D 31 20 54 4F 20 33 3A 49 4E 50 55 OR a=1 TO 3:INPU
006B10: 54 23 39 2C 76 28 6E 2C 61 29 3A 4E 45 58 54 20 T#9,v(n,a):NEXT
006B20: 61 2C 6E 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 31 a,n:FOR n=1 TO 1
006B30: 31 3A 49 4E 50 55 54 23 39 2C 73 28 6E 29 3A 4E 1:INPUT#9,s(n):N
006B40: 45 58 54 3A 46 4F 52 14 20 20 6E 3D 31 20 54 4F EXT:FOR. n=1 TO
006B50: 20 31 37 3A 49 4E 50 55 54 23 39 2C 70 28 6E 29 17:INPUT#9,p(n)
006B60: 3A 4E 45 58 54 3A 49 4E 50 55 54 23 39 2C 64 24 :NEXT:INPUT#9,d$
006B70: 28 31 29 2C 64 24 28 32 29 3A 46 4F 52 20 6E 3D (1),d$(2):FOR n=
006B80: 31 20 54 4F 20 31 32 3A 49 4E 50 55 54 23 39 2C 1 TO 12:INPUT#9,
006B90: 69 24 28 6E 29 3A 4E 45 58 54 3A 43 4C 4F 53 45 i$(n):NEXT:CLOSE
006BA0: 49 4E 3A 52 45 54 55 52 4E 0D 0A 00 00 00 00 00 IN:RETURN.......
006BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006C00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006C10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006C20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006C30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006C40: 00 00 00 00 00 00 00 00 00 87 AB FF FF FF FE 11 ................
006C50: DC 08 A6 04 B8 03 81 04 03 09 FE 0F 07 11 00 07 ................
006C60: 01 00 2C 41 47 4F 4C 46 00 00 00 00 00 00 00 00 ..,AGOLF........
006C70: 00 00 00 01 00 16 00 08 7C 9E FF 00 00 00 00 00 ........|.......
006C80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006C90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006CA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006CB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006CC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006CD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006CE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006CF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006D00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006D10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006D20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006D30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006D40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006D50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006D60: 00 00 00 83 98 FF FF FF FE 11 E7 08 A6 04 08 04 ................
006D70: 6D 04 DB 08 FE 0F 07 A6 0A 15 08 00 16 31 30 20 m............10
006D80: 46 4F 52 20 6E 3D 32 20 54 4F 20 34 30 3A 72 62 FOR n=2 TO 40:rb
006D90: 3D 6E 2D 31 3A 7A 32 3D 6B 28 66 28 6E 29 29 3A =n-1:z2=k(f(n)):
006DA0: 7A 31 3D 66 28 6E 29 0D 0A 31 35 20 49 46 20 6B z1=f(n)..15 IF k
006DB0: 28 66 28 72 62 29 29 3C 7A 32 20 54 48 45 4E 20 (f(rb))<z2 THEN
006DC0: 72 61 3D 66 28 72 62 2B 31 29 3A 66 28 72 62 2B ra=f(rb+1):f(rb+
006DD0: 31 29 3D 66 28 72 62 29 3A 66 28 72 62 29 3D 72 1)=f(rb):f(rb)=r
006DE0: 61 3A 72 62 3D 72 62 2D 31 3A 49 46 20 72 62 3E a:rb=rb-1:IF rb>
006DF0: 30 20 54 48 45 4E 20 31 35 0D 0A 32 30 20 66 28 0 THEN 15..20 f(
006E00: 72 62 2B 31 29 3D 7A 31 3A 4E 45 58 54 3A 52 45 rb+1)=z1:NEXT:RE
006E10: 54 55 52 4E 20 0D 0A 33 30 20 46 4F 52 20 6E 3D TURN ..30 FOR n=
006E20: 31 20 54 4F 20 34 30 3A 66 28 6E 29 3D 6E 3A 4E 1 TO 40:f(n)=n:N
006E30: 45 58 54 3A 52 45 54 55 52 4E 20 0D 0A 34 30 20 EXT:RETURN ..40
006E40: 72 63 3D 30 3A 46 4F 52 20 7A 3D 31 20 54 4F 20 rc=0:FOR z=1 TO
006E50: 37 20 53 54 45 50 20 32 3A 72 63 3D 72 63 2B 56 7 STEP 2:rc=rc+V
006E60: 41 4C 28 4D 49 44 24 28 76 24 28 72 62 29 2C 7A AL(MID$(v$(rb),z
006E70: 2C 32 29 29 3A 49 46 20 49 4E 54 28 7A F2 30 2F ,2)):IF INT(z.0/
006E80: 32 29 3D 61 67 20 54 48 45 4E 20 72 63 3D 72 63 2)=ag THEN rc=rc
006E90: 2B 56 41 4C 28 4D 49 44 24 28 76 24 28 72 62 29 +VAL(MID$(v$(rb)
006EA0: 2C 7A 2C 32 29 29 0D 0A 34 35 20 4E 45 58 54 3A ,z,2))..45 NEXT:
006EB0: 72 63 3D 49 4E 54 28 72 63 2F 35 29 3A 52 45 54 rc=INT(rc/5):RET
006EC0: 55 52 4E 20 0D 0A 35 30 20 46 4F 52 20 6E 3D 31 URN ..50 FOR n=1
006ED0: 20 54 4F 20 34 30 3A 74 24 28 6E 29 3D 75 24 28 TO 40:t$(n)=u$(
006EE0: 6E 29 3A 66 28 6E 29 3D 6E 3A 72 62 3D 6E 3A 47 n):f(n)=n:rb=n:G
006EF0: 4F 53 55 42 20 34 30 3A 6A 28 6E 29 3D 72 63 2B OSUB 40:j(n)=rc+
006F00: 63 28 6E 29 3A 4E 45 58 54 3A 52 45 54 55 52 4E c(n):NEXT:RETURN
006F10: 20 0D 0A 36 30 20 27 0D 0A 37 30 20 7A 3D 31 3A ..60 '..70 z=1:
006F20: 46 4F 52 20 61 3D 31 20 54 4F 20 37 20 53 54 45 FOR a=1 TO 7 STE
006F30: 50 20 32 3A 77 28 7A 29 3D 30 3A 49 46 20 66 28 P 2:w(z)=0:IF f(
006F40: 6E 29 3C 34 31 20 54 48 45 4E 20 77 28 7A 29 3D n)<41 THEN w(z)=
006F50: 56 41 4C 28 4D 49 44 24 28 76 24 28 66 28 6E 29 VAL(MID$(v$(f(n)
006F60: 29 2C 61 2C 32 29 29 0D 0A 37 32 20 7A 3D 7A 2B ),a,2))..72 z=z+
006F70: 31 3A 4E 45 58 54 3A 52 45 54 55 52 4E 0D 0A 63 1:NEXT:RETURN..c
006F80: B9 37 35 20 7A 3D 31 3A 46 4F 52 20 61 3D 31 20 .75 z=1:FOR a=1
006F90: 54 4F 20 37 20 53 54 45 50 20 32 3A 77 28 7A 29 TO 7 STEP 2:w(z)
006FA0: 3D 77 28 7A 29 2B 28 77 28 7A 29 3E 39 39 29 2A =w(z)+(w(z)>99)*
006FB0: 28 77 28 7A 29 2D 39 39 29 2D 28 77 28 7A 29 3C (w(z)-99)-(w(z)<
006FC0: 31 30 29 2A 28 31 30 2D 77 28 7A 29 29 3A 78 24 10)*(10-w(z)):x$
006FD0: 3D 52 49 47 48 54 24 28 53 54 52 24 20 28 77 28 =RIGHT$(STR$ (w(
006FE0: 7A 29 29 2C 32 29 3A 4D 49 44 24 28 76 24 28 66 z)),2):MID$(v$(f
006FF0: 28 6E 29 29 2C 61 2C 32 29 3D 78 24 3A 7A 3D 7A (n)),a,2)=x$:z=z
007000: 2B 31 3A 4E 45 58 54 3A 52 45 54 55 52 4E 20 0D +1:NEXT:RETURN .
007010: 0A 38 30 20 46 4F 52 20 6E 3D 32 20 54 4F 20 61 .80 FOR n=2 TO a
007020: 68 3A 72 62 3D 6E 2D 31 3A 72 63 3D 65 28 6E 29 h:rb=n-1:rc=e(n)
007030: 3A 72 64 3D 66 28 6E 29 0D 0A 38 35 20 49 46 20 :rd=f(n)..85 IF
007040: 65 28 72 62 29 3C 3D 72 63 20 54 48 45 4E 20 39 e(rb)<=rc THEN 9
007050: 30 0D 0A 38 36 20 72 61 3D 66 28 72 62 2B 31 29 0..86 ra=f(rb+1)
007060: 3A 66 28 72 62 2B 31 29 3D 66 28 72 62 29 3A 66 :f(rb+1)=f(rb):f
007070: 28 72 62 29 3D 72 61 3A 72 61 3D 6A 28 72 62 2B (rb)=ra:ra=j(rb+
007080: 31 98 C8 29 3A 6A 28 72 62 2B 31 29 3D 6A 28 72 1..):j(rb+1)=j(r
007090: 62 29 3A 6A 28 72 62 29 3D 72 61 3A 72 61 3D 65 b):j(rb)=ra:ra=e
0070A0: 28 72 62 2B 31 29 3A 65 28 72 62 2B 31 29 3D 65 (rb+1):e(rb+1)=e
0070B0: 28 72 62 29 3A 65 28 72 62 29 3D 72 61 3A 7A 24 (rb):e(rb)=ra:z$
0070C0: 3D 74 24 28 72 62 2B 31 29 3A 74 24 28 72 62 2B =t$(rb+1):t$(rb+
0070D0: 31 29 3D 74 24 28 72 62 29 3A 74 24 28 72 62 29 1)=t$(rb):t$(rb)
0070E0: 3D 7A 24 3A 72 62 3D 72 62 2D 31 3A 49 46 20 72 =z$:rb=rb-1:IF r
0070F0: 62 3E 30 20 54 48 45 4E 20 38 35 0D 0A 39 30 20 b>0 THEN 85..90
007100: 66 28 72 62 2B 31 29 3D 72 64 3A 4E 45 58 54 3A f(rb+1)=rd:NEXT:
007110: 52 45 54 55 52 4E 20 0D 0A 31 30 30 20 52 41 4E RETURN ..100 RAN
007120: 44 4F 4D 49 5A 45 20 54 49 4D 45 3A 72 64 3D 30 DOMIZE TIME:rd=0
007130: 3A 72 65 3D 30 3A 46 4F 52 20 6E 3D 31 20 54 4F :re=0:FOR n=1 TO
007140: 20 61 68 3A 49 46 20 66 28 6E 29 3D 31 20 54 48 ah:IF f(n)=1 TH
007150: 45 4E 20 6E 3D 39 39 0D 0A 31 31 30 20 4E 45 58 EN n=99..110 NEX
007160: 54 3A 49 46 20 6E 3D 31 30 30 20 54 48 45 4E 20 T:IF n=100 THEN
007170: 72 64 3D 31 0D 0A 31 31 35 20 46 4F 52 20 6F 3D rd=1..115 FOR o=
007180: 31 20 54 E8 ED 4F 20 61 6A 3A 61 70 3D 61 70 2B 1 T..O aj:ap=ap+
007190: 31 3A 4C 4F 43 41 54 45 20 31 32 2C 31 38 3A 50 1:LOCATE 12,18:P
0071A0: 52 49 4E 54 20 22 50 4C 41 59 49 4E 47 20 52 4F RINT "PLAYING RO
0071B0: 55 4E 44 22 3B 61 70 3A 49 46 20 72 64 3D 31 20 UND";ap:IF rd=1
0071C0: 54 48 45 4E 20 47 4F 53 55 42 20 31 38 30 0D 0A THEN GOSUB 180..
0071D0: 31 32 30 20 49 46 20 61 70 3E 31 20 54 48 45 4E 120 IF ap>1 THEN
0071E0: 20 31 32 38 0D 0A 31 32 32 20 61 78 3D 30 3A 63 128..122 ax=0:c
0071F0: 61 3D 31 3A 46 4F 52 20 78 3D 31 20 54 4F 20 31 a=1:FOR x=1 TO 1
007200: 38 3A 47 4F 53 55 42 20 39 30 30 30 3A 61 78 3D 8:GOSUB 9000:ax=
007210: 61 78 2B 64 28 31 2C 78 29 3A 4E 45 58 54 3A 63 ax+d(1,x):NEXT:c
007220: 61 3D 30 3A 49 46 20 61 78 3C 37 34 20 54 48 45 a=0:IF ax<74 THE
007230: 4E 20 31 32 35 0D 0A 31 32 33 20 46 4F 52 20 78 N 125..123 FOR x
007240: 3D 31 20 54 4F 20 31 38 3A 49 46 20 64 28 31 2C =1 TO 18:IF d(1,
007250: 78 29 3D 35 20 54 48 45 4E 20 64 28 31 2C 78 29 x)=5 THEN d(1,x)
007260: 3D 34 3A 61 78 3D 61 78 2D 31 3A 49 46 20 61 78 =4:ax=ax-1:IF ax
007270: 3C 37 34 20 54 48 45 4E 20 78 3D 31 39 0D 0A 31 <74 THEN x=19..1
007280: 32 34 20 4E 45 C8 52 58 54 0D 0A 31 32 35 20 49 24 NE.RXT..125 I
007290: 46 20 61 78 3E 36 38 20 54 48 45 4E 20 31 32 38 F ax>68 THEN 128
0072A0: 0D 0A 31 32 36 20 46 4F 52 20 78 3D 31 20 54 4F ..126 FOR x=1 TO
0072B0: 20 31 38 3A 49 46 20 64 28 31 2C 78 29 3D 33 20 18:IF d(1,x)=3
0072C0: 54 48 45 4E 20 64 28 31 2C 78 29 3D 34 3A 61 78 THEN d(1,x)=4:ax
0072D0: 3D 61 78 2B 31 3A 49 46 20 61 78 3E 36 38 20 54 =ax+1:IF ax>68 T
0072E0: 48 45 4E 20 78 3D 31 39 0D 0A 31 32 37 20 4E 45 HEN x=19..127 NE
0072F0: 58 54 0D 0A 31 32 38 20 46 4F 52 20 78 3D 31 20 XT..128 FOR x=1
007300: 54 4F 20 31 38 3A 64 28 32 2C 78 29 3D 74 28 64 TO 18:d(2,x)=t(d
007310: 28 31 2C 78 29 2B 31 29 2B 49 4E 54 28 52 4E 44 (1,x)+1)+INT(RND
007320: 2A 74 28 64 28 31 2C 78 29 2B 34 29 29 3A 4E 45 *t(d(1,x)+4)):NE
007330: 58 54 0D 0A 31 33 30 20 49 46 20 61 69 3C 3E 30 XT..130 IF ai<>0
007340: 20 41 4E 44 20 61 6C 3C 3E 30 20 54 48 45 4E 20 AND al<>0 THEN
007350: 31 36 30 0D 0A 31 33 32 20 49 46 20 49 4E 54 28 160..132 IF INT(
007360: 52 4E 44 2A 31 30 30 30 29 3C 3E 35 30 30 20 54 RND*1000)<>500 T
007370: 48 45 4E 20 31 36 30 0D 0A 31 33 35 20 62 62 3D HEN 160..135 bb=
007380: 61 70 3A 62 64 3D 49 AC 13 4E 54 28 52 4E 44 2A ap:bd=I..NT(RND*
007390: 31 37 29 2B 31 3A 49 46 20 64 28 31 2C 62 64 29 17)+1:IF d(1,bd)
0073A0: 3D 35 20 54 48 45 4E 20 31 33 35 0D 0A 31 34 30 =5 THEN 135..140
0073B0: 20 62 65 3D 49 4E 54 28 52 4E 44 2A 33 39 29 2B be=INT(RND*39)+
0073C0: 31 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 61 68 3A 1:FOR n=1 TO ah:
0073D0: 49 46 20 66 28 6E 29 3D 62 65 20 54 48 45 4E 20 IF f(n)=be THEN
0073E0: 6E 3D 39 39 0D 0A 31 35 30 20 4E 45 58 54 3A 49 n=99..150 NEXT:I
0073F0: 46 20 6E 3C 3E 31 30 30 20 54 48 45 4E 20 31 34 F n<>100 THEN 14
007400: 30 0D 0A 31 36 30 20 61 6D 3D 30 3A 61 6E 3D 30 0..160 am=0:an=0
007410: 3A 72 63 3D 35 30 30 3A 46 4F 52 20 6E 3D 31 20 :rc=500:FOR n=1
007420: 54 4F 20 61 68 3A 72 62 3D 61 78 2B 72 28 49 4E TO ah:rb=ax+r(IN
007430: 54 28 6A 28 6E 29 2F 31 30 29 29 2B 49 4E 54 28 T(j(n)/10))+INT(
007440: 52 4E 44 2A 38 29 3A 65 28 6E 29 3D 65 28 6E 29 RND*8):e(n)=e(n)
007450: 2B 72 62 3A 61 6D 3D 61 6D 2D 72 62 2A 28 6E 3D +rb:am=am-rb*(n=
007460: 72 64 29 3A 61 6E 3D 61 6E 2D 72 62 2A 28 6E 3D rd):an=an-rb*(n=
007470: 72 65 29 3A 49 46 20 65 28 6E 29 3C 72 63 20 41 re):IF e(n)<rc A
007480: 4E 44 20 6E 3C 3E 72 64 20 75 5D 41 4E 44 20 6E ND n<>rd u]AND n
007490: 3C 3E 72 65 20 54 48 45 4E 20 72 63 3D 65 28 6E <>re THEN rc=e(n
0074A0: 29 3A 72 66 3D 6E 0D 0A 31 36 35 20 4E 45 58 54 ):rf=n..165 NEXT
0074B0: 3A 49 46 20 72 64 3E 30 20 54 48 45 4E 20 47 4F :IF rd>0 THEN GO
0074C0: 53 55 42 20 32 30 30 0D 0A 31 37 30 20 4E 45 58 SUB 200..170 NEX
0074D0: 54 3A 47 4F 54 4F 20 38 30 20 0D 0A 31 38 30 20 T:GOTO 80 ..180
0074E0: 46 4F 52 20 6E 3D 31 20 54 4F 20 61 68 3A 49 46 FOR n=1 TO ah:IF
0074F0: 20 66 28 6E 29 3D 31 20 54 48 45 4E 20 72 64 3D f(n)=1 THEN rd=
007500: 6E 3A 72 65 3D 6E 2B 28 49 4E 54 28 6E 2F 32 29 n:re=n+(INT(n/2)
007510: 3D 6E 2F 32 29 2D 28 49 4E 54 28 6E 2F 32 29 3C =n/2)-(INT(n/2)<
007520: 3E 6E 2F 32 29 3A 6E 3D 61 68 2B 31 0D 0A 31 39 >n/2):n=ah+1..19
007530: 30 20 4E 45 58 54 3A 52 45 54 55 52 4E 0D 0A 32 0 NEXT:RETURN..2
007540: 30 30 20 45 52 41 53 45 20 6E 2C 6F 3A 44 49 4D 00 ERASE n,o:DIM
007550: 20 6E 28 32 2C 31 38 29 2C 6F 28 32 2C 31 30 29 n(2,18),o(2,10)
007560: 3A 72 61 3D 61 6D 3A 72 62 3D 31 3A 72 68 3D 30 :ra=am:rb=1:rh=0
007570: 2D 28 62 65 3D 31 29 3A 47 4F 53 55 42 20 33 35 -(be=1):GOSUB 35
007580: 30 3A 72 61 3D 61 6E 3A 72 62 3D 31 79 FF FF FF 0:ra=an:rb=1y...
007590: FE 11 E2 08 A6 04 08 04 81 04 02 09 FE 0F 07 11 ................
0075A0: 00 07 01 00 2C 41 47 4F 4C 46 00 00 00 00 00 00 ....,AGOLF......
0075B0: 00 00 00 00 00 02 00 16 00 08 7C 9E 00 00 00 00 ..........|.....
0075C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0075D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0075E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0075F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007600: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007610: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007650: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0076A0: 00 00 00 00 00 BE B8 FF FF FF FE 11 CB 08 A6 04 ................
0076B0: B8 03 68 04 D1 08 FE 0F 07 98 0A 15 08 00 16 32 ..h............2
0076C0: 3A 72 68 3D 30 2D 28 62 65 3D 66 28 72 65 29 29 :rh=0-(be=f(re))
0076D0: 3A 47 4F 53 55 42 20 33 35 30 3A 6F 28 31 2C 33 :GOSUB 350:o(1,3
0076E0: 29 3D 65 28 72 64 29 2D 61 6D 3A 6F 28 32 2C 33 )=e(rd)-am:o(2,3
0076F0: 29 3D 65 28 72 65 29 2D 61 6E 3A 6F 28 31 2C 31 )=e(re)-an:o(1,1
007700: 30 29 3D 6F 28 31 2C 33 29 3A 6F 28 32 2C 31 30 0)=o(1,3):o(2,10
007710: 29 3D 6F 28 32 2C 33 29 0D 0A 32 31 30 20 49 4E )=o(2,3)..210 IN
007720: 4B 20 30 2C 39 3A 47 4F 53 55 42 20 38 37 30 30 K 0,9:GOSUB 8700
007730: 0D 0A 32 32 30 20 46 4F 52 20 78 3D 31 20 54 4F ..220 FOR x=1 TO
007740: 20 31 38 3A 47 4F 53 55 42 20 36 35 35 33 35 3A 18:GOSUB 65535:
007750: 4C 4F 43 41 54 45 20 32 31 2C 38 3A 50 45 4E 20 LOCATE 21,8:PEN
007760: 32 3A 50 52 49 4E 54 20 55 53 49 4E 47 20 22 23 2:PRINT USING "#
007770: 23 22 3B 78 3B 3A 47 4F 53 55 42 20 39 30 30 30 #";x;:GOSUB 9000
007780: 3A 4C 4F 43 41 54 45 20 31 30 2C 39 3A 50 52 49 :LOCATE 10,9:PRI
007790: 4E 54 20 70 61 24 28 32 29 3B 64 28 31 2C 78 29 NT pa$(2);d(1,x)
0077A0: 3A 4C 4F 43 41 54 45 20 31 35 2C 39 3A 50 52 49 :LOCATE 15,9:PRI
0077B0: 4E 54 20 64 28 32 2C 78 29 3A 49 46 20 78 3D 66 NT d(2,x):IF x=f
0077C0: F8 31 20 41 4E 44 20 61 70 3D 31 20 54 48 45 4E .1 AND ap=1 THEN
0077D0: 20 32 32 38 20 45 4C 53 45 20 46 4F 52 20 62 3D 228 ELSE FOR b=
0077E0: 31 20 54 4F 20 32 0D 0A 32 32 32 20 72 61 3D 6F 1 TO 2..222 ra=o
0077F0: 28 62 2C 31 30 29 2D 28 61 70 2D 31 29 2A 61 78 (b,10)-(ap-1)*ax
007800: 3A 46 4F 52 20 63 3D 31 20 54 4F 20 78 2D 31 3A :FOR c=1 TO x-1:
007810: 72 61 3D 72 61 2B 28 6E 28 62 2C 63 29 2D 64 28 ra=ra+(n(b,c)-d(
007820: 31 2C 63 29 29 3A 4E 45 58 54 3A 4C 4F 43 41 54 1,c)):NEXT:LOCAT
007830: 45 20 32 34 2C 62 2A 32 2B 31 32 0D 0A 32 32 34 E 24,b*2+12..224
007840: 20 49 46 20 72 61 3D 30 20 54 48 45 4E 20 50 52 IF ra=0 THEN PR
007850: 49 4E 54 20 22 45 20 20 22 20 45 4C 53 45 20 49 INT "E " ELSE I
007860: 46 20 72 61 3C 30 20 54 48 45 4E 20 50 52 49 4E F ra<0 THEN PRIN
007870: 54 20 22 2D 22 3B 55 53 49 4E 47 22 23 23 22 3B T "-";USING"##";
007880: 41 42 53 28 72 61 29 20 45 4C 53 45 20 50 52 49 ABS(ra) ELSE PRI
007890: 4E 54 20 22 2B 22 3B 55 53 49 4E 47 22 23 23 22 NT "+";USING"##"
0078A0: 3B 72 61 0D 0A 32 32 36 20 4E 45 58 54 0D 0A 32 ;ra..226 NEXT..2
0078B0: 32 38 20 47 4F 53 55 42 20 32 35 30 3A 47 4F 53 28 GOSUB 250:GOS
0078C0: 55 20 20 42 20 36 35 31 30 30 3A 6E 28 31 2C 78 U B 65100:n(1,x
0078D0: 29 3D 6F 28 31 2C 31 29 3A 6E 28 32 2C 78 29 3D )=o(1,1):n(2,x)=
0078E0: 6F 28 32 2C 31 29 3A 49 46 20 62 63 20 54 48 45 o(2,1):IF bc THE
0078F0: 4E 20 47 4F 53 55 42 20 38 36 30 30 0D 0A 32 33 N GOSUB 8600..23
007900: 30 20 4E 45 58 54 3A 47 4F 53 55 42 20 38 36 30 0 NEXT:GOSUB 860
007910: 30 3A 47 4F 54 4F 20 39 38 36 30 0D 0A 32 34 30 0:GOTO 9860..240
007920: 20 69 6E 24 3D 55 50 50 45 52 24 28 49 4E 4B 45 in$=UPPER$(INKE
007930: 59 24 29 3A 49 46 20 69 6E 24 3D 22 43 22 20 54 Y$):IF in$="C" T
007940: 48 45 4E 20 62 63 3D 31 20 45 4C 53 45 20 49 46 HEN bc=1 ELSE IF
007950: 20 69 6E 24 3D 22 53 22 20 54 48 45 4E 20 62 61 in$="S" THEN ba
007960: 3D 31 20 45 4C 53 45 20 49 46 20 69 6E 24 3D 22 =1 ELSE IF in$="
007970: 46 22 20 54 48 45 4E 20 62 61 3D 30 0D 0A 32 34 F" THEN ba=0..24
007980: 35 20 49 46 20 69 6E 24 3D 22 46 22 20 4F 52 20 5 IF in$="F" OR
007990: 69 6E 24 3D 22 43 22 20 4F 52 20 69 6E 24 3D 22 in$="C" OR in$="
0079A0: 53 22 20 54 48 45 4E 20 50 52 49 4E 54 20 43 48 S" THEN PRINT CH
0079B0: 52 24 28 37 29 3B 3A 47 4F 54 4F 20 38 38 30 30 R$(7);:GOTO 8800
0079C0: 0D 0A 32 39 A8 34 36 20 52 45 54 55 52 4E 0D 0A ..29.46 RETURN..
0079D0: 32 35 30 20 46 4F 52 20 6E 3D 31 20 54 4F 20 32 250 FOR n=1 TO 2
0079E0: 3A 6F 28 6E 2C 38 29 3D 6E 28 6E 2C 78 29 3A 4E :o(n,8)=n(n,x):N
0079F0: 45 58 54 3A 6F 28 31 2C 34 29 3D 77 28 32 29 2A EXT:o(1,4)=w(2)*
007A00: 38 2B 31 32 3A 6F 28 32 2C 34 29 3D 6F 28 31 2C 8+12:o(2,4)=o(1,
007A10: 34 29 2B 38 3A 46 4F 52 20 63 3D 31 20 54 4F 20 4)+8:FOR c=1 TO
007A20: 32 3A 6F 28 63 2C 35 29 3D 28 32 31 2D 77 28 31 2:o(c,5)=(21-w(1
007A30: 29 29 2A 38 3A 6F 28 63 2C 37 29 3D 6F 28 63 2C ))*8:o(c,7)=o(c,
007A40: 35 29 2D 77 28 32 30 29 3A 6F 28 63 2C 36 29 3D 5)-w(20):o(c,6)=
007A50: 6F 28 63 2C 34 29 2D 77 28 31 39 29 3A 4E 45 58 o(c,4)-w(19):NEX
007A60: 54 0D 0A 32 35 35 20 4C 4F 43 41 54 45 20 77 28 T..255 LOCATE w(
007A70: 32 29 2B 38 2C 77 28 31 29 2B 31 3A 50 52 49 4E 2)+8,w(1)+1:PRIN
007A80: 54 20 70 61 24 28 34 29 3B 4D 49 44 24 28 74 24 T pa$(4);MID$(t$
007A90: 28 72 64 29 2C 33 2C 31 29 3B 70 61 24 28 36 29 (rd),3,1);pa$(6)
007AA0: 3B 4D 49 44 24 28 74 24 28 72 65 29 2C 33 2C 31 ;MID$(t$(re),3,1
007AB0: 29 0D 0A 32 36 30 20 46 4F 52 20 6E 3D 31 20 54 )..260 FOR n=1 T
007AC0: 4F 20 32 3A 6F 0E 9B 28 6E 2C 31 29 3D 30 3A 4E O 2:o..(n,1)=0:N
007AD0: 45 58 54 3A 47 4F 53 55 42 20 33 34 30 3A 46 4F EXT:GOSUB 340:FO
007AE0: 52 20 6E 3D 31 20 54 4F 20 38 3A 46 4F 52 20 61 R n=1 TO 8:FOR a
007AF0: 3D 31 20 54 4F 20 32 3A 43 4C 53 23 33 3A 49 46 =1 TO 2:CLS#3:IF
007B00: 20 6E 28 61 2C 78 29 3E 30 20 54 48 45 4E 20 6E n(a,x)>0 THEN n
007B10: 28 61 2C 78 29 3D 6E 28 61 2C 78 29 2D 31 3A 72 (a,x)=n(a,x)-1:r
007B20: 61 3D 30 3A 72 62 3D 30 3A 47 4F 53 55 42 20 32 a=0:rb=0:GOSUB 2
007B30: 38 30 3A 47 4F 53 55 42 20 33 30 30 3A 47 4F 53 80:GOSUB 300:GOS
007B40: 55 42 20 32 34 30 3A 46 4F 52 20 62 3D 31 20 54 UB 240:FOR b=1 T
007B50: 4F 20 33 3A 6F 28 61 2C 62 29 3D 6F 28 61 2C 62 O 3:o(a,b)=o(a,b
007B60: 29 2B 31 3A 4E 45 58 54 0D 0A 32 37 30 20 4E 45 )+1:NEXT..270 NE
007B70: 58 54 3A 47 4F 53 55 42 20 33 34 30 3A 4E 45 58 XT:GOSUB 340:NEX
007B80: 54 3A 52 45 54 55 52 4E 0D 0A 32 38 30 20 49 46 T:RETURN..280 IF
007B90: 20 6E 28 61 2C 78 29 3D 30 20 54 48 45 4E 20 38 n(a,x)=0 THEN 8
007BA0: 30 34 30 20 45 4C 53 45 20 72 63 3D 28 77 28 31 040 ELSE rc=(w(1
007BB0: 39 29 2D 6F 28 61 2C 34 29 29 2F 33 3A 72 62 3D 9)-o(a,4))/3:rb=
007BC0: 72 63 2B 49 4E 54 28 4F 27 52 4E 44 2A 28 72 63 rc+INT(O'RND*(rc
007BD0: 2F 32 29 29 3A 72 63 3D 28 77 28 32 30 29 2D 6F /2)):rc=(w(20)-o
007BE0: 28 61 2C 35 29 29 2F 33 3A 72 61 3D 72 63 2B 49 (a,5))/3:ra=rc+I
007BF0: 4E 54 28 52 4E 44 2A 28 72 63 2F 32 29 29 3A 49 NT(RND*(rc/2)):I
007C00: 46 20 49 4E 54 28 52 4E 44 2A 35 29 3C 32 20 54 F INT(RND*5)<2 T
007C10: 48 45 4E 20 72 62 3D 72 62 2A 32 0D 0A 32 39 30 HEN rb=rb*2..290
007C20: 20 49 46 20 6E 28 61 2C 78 29 3E 34 20 41 4E 44 IF n(a,x)>4 AND
007C30: 20 49 4E 54 28 52 4E 44 2A 32 30 29 3E 31 34 20 INT(RND*20)>14
007C40: 54 48 45 4E 20 38 32 34 30 20 45 4C 53 45 20 52 THEN 8240 ELSE R
007C50: 45 54 55 52 4E 0D 0A 33 30 30 20 49 46 20 72 61 ETURN..300 IF ra
007C60: 3D 30 20 41 4E 44 20 72 62 3D 30 20 54 48 45 4E =0 AND rb=0 THEN
007C70: 20 52 45 54 55 52 4E 0D 0A 33 30 35 20 49 46 20 RETURN..305 IF
007C80: 77 28 35 29 3C 3E 77 28 36 29 20 54 48 45 4E 20 w(5)<>w(6) THEN
007C90: 49 46 20 6F 28 61 2C 35 29 2D 72 61 3C 20 77 28 IF o(a,5)-ra< w(
007CA0: 32 31 29 2B 31 20 41 4E 44 20 6F 28 61 2C 35 29 21)+1 AND o(a,5)
007CB0: 2D 72 61 3E 20 77 28 32 31 29 2D 38 20 54 48 45 -ra> w(21)-8 THE
007CC0: 4E 20 72 61 3D 77 28 32 31 57 79 29 2B 32 0D 0A N ra=w(21Wy)+2..
007CD0: 33 31 30 20 49 46 20 6F 28 61 2C 35 29 2D 72 61 310 IF o(a,5)-ra
007CE0: 3C 30 20 54 48 45 4E 20 72 61 3D 6F 28 61 2C 35 <0 THEN ra=o(a,5
007CF0: 29 0D 0A 33 31 35 20 72 63 3D 77 28 32 30 29 2D )..315 rc=w(20)-
007D00: 6F 28 61 2C 35 29 3A 49 46 20 72 61 3C 20 72 63 o(a,5):IF ra< rc
007D10: 2F 32 20 54 48 45 4E 20 72 61 3D 72 63 2D 32 0D /2 THEN ra=rc-2.
007D20: 0A 33 32 30 20 49 46 20 6F 28 61 2C 35 29 3C 20 .320 IF o(a,5)<
007D30: 77 28 32 30 29 20 54 48 45 4E 20 49 46 20 72 61 w(20) THEN IF ra
007D40: 3E 30 20 54 48 45 4E 20 72 61 3D 2D 72 61 0D 0A >0 THEN ra=-ra..
007D50: 33 32 32 20 49 46 20 6F 28 61 2C 35 29 3E 20 77 322 IF o(a,5)> w
007D60: 28 32 30 29 20 54 48 45 4E 20 72 61 3D 41 42 53 (20) THEN ra=ABS
007D70: 28 72 61 29 0D 0A 33 32 35 20 49 46 20 6F 28 61 (ra)..325 IF o(a
007D80: 2C 34 29 2B 72 62 3C 31 37 32 20 54 48 45 4E 20 ,4)+rb<172 THEN
007D90: 72 62 3D 72 62 2B 31 3A 47 4F 54 4F 20 33 32 35 rb=rb+1:GOTO 325
007DA0: 0D 0A 33 33 30 20 49 46 20 6F 28 61 2C 34 29 2B ..330 IF o(a,4)+
007DB0: 72 62 3E 32 35 35 20 54 48 45 4E 20 72 62 3D 72 rb>255 THEN rb=r
007DC0: 62 2D 31 3A 47 4F 54 4F 20 33 33 BC 2B 30 0D 0A b-1:GOTO 33.+0..
007DD0: 33 33 35 20 46 4F 52 20 7A 3D 31 20 54 4F 20 31 335 FOR z=1 TO 1
007DE0: 30 30 2B 62 61 2A 31 31 30 30 3A 4E 45 58 54 3A 00+ba*1100:NEXT:
007DF0: 50 4C 4F 54 20 6F 28 61 2C 34 29 2A 32 2B 39 36 PLOT o(a,4)*2+96
007E00: 2C 6F 28 61 2C 35 29 2A 32 2B 34 38 3A 44 52 41 ,o(a,5)*2+48:DRA
007E10: 57 52 20 72 62 2A 32 2C 2D 72 61 2A 32 3A 6F 28 WR rb*2,-ra*2:o(
007E20: 61 2C 34 29 3D 6F 28 61 2C 34 29 2B 72 62 3A 6F a,4)=o(a,4)+rb:o
007E30: 28 61 2C 35 29 3D 6F 28 61 2C 35 29 2D 72 61 3A (a,5)=o(a,5)-ra:
007E40: 49 46 20 6E 28 61 2C 78 29 3D 30 20 54 48 45 4E IF n(a,x)=0 THEN
007E50: 20 53 4F 55 4E 44 20 31 2C 32 30 30 30 2C 32 30 SOUND 1,2000,20
007E60: 0D 0A 33 34 30 20 46 4F 52 20 62 3D 31 20 54 4F ..340 FOR b=1 TO
007E70: 20 32 3A 4C 4F 43 41 54 45 20 31 34 2C 62 2A 32 2:LOCATE 14,b*2
007E80: 2B 31 32 3A 50 52 49 4E 54 20 70 61 24 28 32 29 +12:PRINT pa$(2)
007E90: 3B 55 53 49 4E 47 22 23 22 3B 6F 28 62 2C 31 29 ;USING"#";o(b,1)
007EA0: 3B 3A 4C 4F 43 41 54 45 20 31 37 2C 62 2A 32 2B ;:LOCATE 17,b*2+
007EB0: 31 32 3A 50 52 49 4E 54 20 55 53 49 4E 47 22 23 12:PRINT USING"#
007EC0: 23 22 3B 6F 28 62 2C 32 29 3B 3A 4C 4F C4 1B FF #";o(b,2);:LO...
007ED0: FF FF FE 11 D8 08 A6 04 08 04 7D 04 FB 08 FE 0F ..........}.....
007EE0: 07 11 00 07 01 00 2C 41 47 4F 4C 46 00 00 00 00 ......,AGOLF....
007EF0: 00 00 00 00 00 00 00 03 00 16 00 08 7C 9E 00 00 ............|...
007F00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007F10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007F20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007F30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007F40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007F50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007F60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007F70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007F80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007F90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007FA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007FB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007FC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007FD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007FE0: 00 00 00 00 00 00 00 59 B3 FF FF FF FE 11 D2 08 .......Y........
007FF0: 57 04 08 04 72 04 E5 08 FF 0F 07 AB 0A 15 08 00 W...r...........
008000: 16 43 41 54 45 20 32 30 2C 62 2A 32 2B 31 32 3A .CATE 20,b*2+12:
008010: 50 52 49 4E 54 20 55 53 49 4E 47 22 23 23 23 22 PRINT USING"###"
008020: 3B 6F 28 62 2C 33 29 3B 3A 4E 45 58 54 3A 52 45 ;o(b,3);:NEXT:RE
008030: 54 55 52 4E 0D 0A 33 35 30 20 46 4F 52 20 6E 3D TURN..350 FOR n=
008040: 31 20 54 4F 20 31 38 3A 6E 28 72 62 2C 6E 29 3D 1 TO 18:n(rb,n)=
008050: 33 3A 4E 45 58 54 3A 72 61 3D 72 61 2D 35 34 3A 3:NEXT:ra=ra-54:
008060: 49 46 20 72 68 3D 31 20 54 48 45 4E 20 72 61 3D IF rh=1 THEN ra=
008070: 72 61 2B 6E 28 72 62 2C 62 64 29 2D 31 3A 6E 28 ra+n(rb,bd)-1:n(
008080: 72 62 2C 62 64 29 3D 31 0D 0A 33 36 30 20 49 46 rb,bd)=1..360 IF
008090: 20 72 61 3C 31 20 54 48 45 4E 20 52 45 54 55 52 ra<1 THEN RETUR
0080A0: 4E 20 0D 0A 33 37 30 20 72 63 3D 31 2B 49 4E 54 N ..370 rc=1+INT
0080B0: 28 52 4E 44 2A 31 37 29 3A 49 46 20 6E 28 72 62 (RND*17):IF n(rb
0080C0: 2C 72 63 29 3E 36 20 4F 52 20 28 62 64 3D 72 63 ,rc)>6 OR (bd=rc
0080D0: 20 41 4E 44 20 72 68 29 20 54 48 45 4E 20 33 37 AND rh) THEN 37
0080E0: 30 0D 0A 33 38 30 20 6E 28 72 62 2C 72 63 29 3D 0..380 n(rb,rc)=
0080F0: 6E 28 72 62 2C 72 63 29 2B 31 3A 72 61 3D 72 61 n(rb,rc)+1:ra=ra
008100: 2D 5D 47 31 3A 47 4F 54 4F 20 33 36 30 0D 0A 34 -]G1:GOTO 360..4
008110: 30 30 20 47 4F 53 55 42 20 36 35 35 30 30 3A 47 00 GOSUB 65500:G
008120: 4F 53 55 42 20 39 39 32 30 3A 52 41 4E 44 4F 4D OSUB 9920:RANDOM
008130: 49 5A 45 20 54 49 4D 45 3A 46 4F 52 20 6E 3D 31 IZE TIME:FOR n=1
008140: 20 54 4F 20 32 30 3A 6C 28 6E 2C 31 29 3D 6E 3A TO 20:l(n,1)=n:
008150: 4E 45 58 54 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 NEXT:FOR n=1 TO
008160: 32 30 3A 7A 31 3D 6C 28 6E 2C 31 29 3A 72 61 3D 20:z1=l(n,1):ra=
008170: 31 2B 49 4E 54 28 52 4E 44 2A 28 31 39 29 29 3A 1+INT(RND*(19)):
008180: 6C 28 6E 2C 31 29 3D 6C 28 72 61 2C 31 29 3A 6C l(n,1)=l(ra,1):l
008190: 28 72 61 2C 31 29 3D 7A 31 3A 4E 45 58 54 3A 61 (ra,1)=z1:NEXT:a
0081A0: 62 3D 31 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 34 b=1:FOR n=1 TO 4
0081B0: 30 3A 72 62 3D 31 2B 49 4E 54 28 52 4E 44 2A 37 0:rb=1+INT(RND*7
0081C0: 29 3A 72 61 3D 49 4E 54 28 52 4E 44 2A 31 30 29 ):ra=INT(RND*10)
0081D0: 3A 49 46 20 72 61 3C 35 20 54 48 45 4E 20 72 62 :IF ra<5 THEN rb
0081E0: 3D 2D 72 62 0D 0A 34 32 30 20 47 4F 53 55 42 20 =-rb..420 GOSUB
0081F0: 39 38 30 30 3A 63 28 6E 29 3D 35 3A 6B 28 6E 29 9800:c(n)=5:k(n)
008200: 3D 30 3A 39 E2 4E 45 58 54 3A 61 66 3D 49 4E 54 =0:9.NEXT:af=INT
008210: 28 52 4E 44 2A 31 31 29 2B 31 0D 0A 35 30 30 20 (RND*11)+1..500
008220: 49 46 20 7A 61 3E 30 20 54 48 45 4E 20 35 35 30 IF za>0 THEN 550
008230: 0D 0A 35 31 30 20 49 46 20 73 28 34 29 3D 30 20 ..510 IF s(4)=0
008240: 4F 52 20 73 28 35 29 3D 30 20 54 48 45 4E 20 47 OR s(5)=0 THEN G
008250: 4F 53 55 42 20 37 31 30 30 0D 0A 35 32 30 20 49 OSUB 7100..520 I
008260: 46 20 7A 61 3E 30 20 54 48 45 4E 20 35 35 30 0D F za>0 THEN 550.
008270: 0A 35 33 30 20 43 4C 53 3A 4C 4F 43 41 54 45 20 .530 CLS:LOCATE
008280: 35 2C 39 3A 50 52 49 4E 54 22 59 4F 55 20 48 41 5,9:PRINT"YOU HA
008290: 56 45 20 46 41 49 4C 45 44 20 49 4E 20 59 4F 55 VE FAILED IN YOU
0082A0: 52 20 51 55 45 53 54 22 2C 2C 2C 54 41 42 28 37 R QUEST",,,TAB(7
0082B0: 29 3B 22 54 4F 20 42 45 20 54 48 45 20 4E 55 4D );"TO BE THE NUM
0082C0: 42 45 52 20 31 20 47 4F 4C 46 45 52 22 3A 47 4F BER 1 GOLFER":GO
0082D0: 53 55 42 20 39 39 33 30 3A 43 4C 53 3A 4E 45 57 SUB 9930:CLS:NEW
0082E0: 0D 0A 35 35 30 20 47 4F 53 55 42 20 36 35 35 30 ..550 GOSUB 6550
0082F0: 30 3A 72 61 3D 46 52 45 28 22 22 29 3A 61 67 3D 0:ra=FRE(""):ag=
008300: 49 4E 54 28 52 6F 37 4E 44 2A 33 29 3A 61 63 3D INT(Ro7ND*3):ac=
008310: 6C 28 61 62 2C 31 29 3A 50 52 49 4E 54 20 70 61 l(ab,1):PRINT pa
008320: 24 28 31 29 3A 43 4C 53 3A 4C 4F 43 41 54 45 20 $(1):CLS:LOCATE
008330: 31 30 2C 33 3A 50 52 49 4E 54 20 70 61 24 28 32 10,3:PRINT pa$(2
008340: 29 3B 22 20 22 3B 61 24 28 61 63 29 3B 22 20 22 );" ";a$(ac);" "
008350: 3B 70 61 24 28 31 29 3A 52 45 53 54 4F 52 45 20 ;pa$(1):RESTORE
008360: 39 39 35 30 0D 0A 35 36 30 20 4C 4F 43 41 54 45 9950..560 LOCATE
008370: 20 35 2C 35 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 5,5:FOR n=1 TO
008380: 31 30 3A 52 45 41 44 20 7A 24 3A 50 52 49 4E 54 10:READ z$:PRINT
008390: 20 54 41 42 20 28 31 32 29 3B 43 48 52 24 28 6E TAB (12);CHR$(n
0083A0: 2B 36 34 29 3B 22 20 20 22 3B 7A 24 3A 4E 45 58 +64);" ";z$:NEX
0083B0: 54 3A 47 4F 53 55 42 20 39 39 36 30 0D 0A 35 37 T:GOSUB 9960..57
0083C0: 30 20 47 4F 53 55 42 20 36 34 32 30 30 3A 49 46 0 GOSUB 64200:IF
0083D0: 20 69 6E 24 3E 22 4B 22 20 4F 52 20 69 6E 24 3C in$>"K" OR in$<
0083E0: 22 41 22 20 54 48 45 4E 20 35 37 30 0D 0A 35 37 "A" THEN 570..57
0083F0: 35 20 49 46 20 69 6E 24 3D 22 41 22 20 41 4E 44 5 IF in$="A" AND
008400: 20 4D 49 44 24 28 66 FD 13 24 2C 32 2C 31 29 3D MID$(f..$,2,1)=
008410: 22 30 22 20 54 48 45 4E 20 61 65 3D 32 0D 0A 35 "0" THEN ae=2..5
008420: 38 30 20 72 61 3D 41 53 43 28 69 6E 24 29 2D 36 80 ra=ASC(in$)-6
008430: 34 3A 49 46 20 4D 49 44 24 28 66 24 2C 72 61 2C 4:IF MID$(f$,ra,
008440: 31 29 3C 3E 22 31 22 20 54 48 45 4E 20 4F 4E 20 1)<>"1" THEN ON
008450: 72 61 20 47 4F 53 55 42 20 36 30 30 2C 31 30 30 ra GOSUB 600,100
008460: 30 2C 31 34 30 30 2C 32 32 30 30 2C 33 30 30 30 0,1400,2200,3000
008470: 2C 33 34 30 30 2C 33 38 30 30 2C 34 32 30 30 2C ,3400,3800,4200,
008480: 35 34 30 30 2C 35 30 30 30 30 0D 0A 35 39 30 20 5400,50000..590
008490: 47 4F 54 4F 20 35 35 30 0D 0A 36 30 30 20 61 6C GOTO 550..600 al
0084A0: 3D 30 3A 52 41 4E 44 4F 4D 49 5A 45 20 54 49 4D =0:RANDOMIZE TIM
0084B0: 45 3A 49 46 20 61 65 3D 32 20 54 48 45 4E 20 63 E:IF ae=2 THEN c
0084C0: 28 31 29 3D 63 28 31 29 2D 31 3A 47 4F 54 4F 20 (1)=c(1)-1:GOTO
0084D0: 38 30 30 0D 0A 36 30 35 20 47 4F 53 55 42 20 31 800..605 GOSUB 1
0084E0: 38 30 30 3A 47 4F 53 55 42 20 32 36 30 30 3A 72 800:GOSUB 2600:r
0084F0: 61 3D 31 3A 72 62 3D 30 2D 28 61 28 31 2C 33 29 a=1:rb=0-(a(1,3)
008500: 3E 30 20 41 4E 44 20 61 28 D4 7A 31 2C 33 29 3C >0 AND a(.z1,3)<
008510: 32 35 35 29 2D 32 2A 28 61 28 31 2C 33 29 3D 32 255)-2*(a(1,3)=2
008520: 35 35 29 3A 47 4F 53 55 42 20 39 38 30 30 0D 0A 55):GOSUB 9800..
008530: 36 30 38 20 49 46 20 61 65 3D 31 20 54 48 45 4E 608 IF ae=1 THEN
008540: 20 37 30 30 0D 0A 36 31 30 20 61 69 3D 30 3A 47 700..610 ai=0:G
008550: 4F 53 55 42 20 39 38 36 30 3A 45 52 41 53 45 20 OSUB 9860:ERASE
008560: 6A 2C 65 3A 44 49 4D 20 6A 28 34 30 29 2C 65 28 j,e:DIM j(40),e(
008570: 34 30 29 3A 61 70 3D 30 3A 47 4F 53 55 42 20 35 40):ap=0:GOSUB 5
008580: 30 3A 49 46 20 6A 28 31 29 3E 38 30 20 54 48 45 0:IF j(1)>80 THE
008590: 4E 20 36 39 30 0D 0A 36 32 30 20 72 61 3D 30 3A N 690..620 ra=0:
0085A0: 46 4F 52 20 6E 3D 32 20 54 4F 20 34 30 3A 72 61 FOR n=2 TO 40:ra
0085B0: 3D 72 61 2D 28 6A 28 6E 29 3C 6A 28 31 29 29 3A =ra-(j(n)<j(1)):
0085C0: 4E 45 58 54 3A 49 46 20 72 61 3E 34 20 54 48 45 NEXT:IF ra>4 THE
0085D0: 4E 20 36 39 30 0D 0A 36 34 30 20 49 4E 4B 20 30 N 690..640 INK 0
0085E0: 2C 36 3A 42 4F 52 44 45 52 20 36 3A 43 4C 53 3A ,6:BORDER 6:CLS:
0085F0: 4C 4F 43 41 54 45 20 36 2C 31 30 3A 50 52 49 4E LOCATE 6,10:PRIN
008600: 54 22 59 4F 55 20 57 49 4C 4C 20 C9 41 48 41 56 T"YOU WILL .AHAV
008610: 45 20 54 4F 20 51 55 41 4C 49 46 59 20 46 4F 52 E TO QUALIFY FOR
008620: 22 3B 54 41 42 28 31 32 29 3B 22 54 48 45 20 46 ";TAB(12);"THE F
008630: 49 4E 41 4C 20 52 4F 55 4E 44 53 22 2C 2C 2C 54 INAL ROUNDS",,,T
008640: 41 42 28 35 29 3B 22 59 4F 55 20 4D 55 53 54 20 AB(5);"YOU MUST
008650: 46 49 4E 49 53 48 20 54 48 45 20 51 55 41 4C 49 FINISH THE QUALI
008660: 46 59 49 4E 47 22 2C 54 41 42 28 35 29 3B 22 52 FYING",TAB(5);"R
008670: 4F 55 4E 44 53 20 49 4E 20 54 48 45 20 54 4F 50 OUNDS IN THE TOP
008680: 20 46 49 56 45 22 3A 61 6C 3D 31 3A 47 4F 53 55 FIVE":al=1:GOSU
008690: 42 20 39 39 33 30 3A 61 69 3D 30 3A 47 4F 53 55 B 9930:ai=0:GOSU
0086A0: 42 20 37 30 30 30 3A 47 4F 53 55 42 20 36 37 30 B 7000:GOSUB 670
0086B0: 30 3A 47 4F 53 55 42 20 39 38 36 30 0D 0A 36 34 0:GOSUB 9860..64
0086C0: 35 20 45 52 41 53 45 20 65 2C 70 24 3A 44 49 4D 5 ERASE e,p$:DIM
0086D0: 20 65 28 34 30 29 2C 70 24 28 35 29 3A 72 61 3D e(40),p$(5):ra=
0086E0: 30 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 35 3A 77 0:FOR n=1 TO 5:w
0086F0: 28 6E 29 3D 66 28 6E 29 3A 77 28 6E 2B 35 29 3D (n)=f(n):w(n+5)=
008700: 6A 28 6E 29 3A 70 24 28 6E 29 3D 74 24 94 2D 28 j(n):p$(n)=t$.-(
008710: 66 28 6E 29 29 3A 72 61 3D 72 61 2D 28 66 28 6E f(n)):ra=ra-(f(n
008720: 29 3D 31 29 2A 6E 3A 4E 45 58 54 3A 47 4F 53 55 )=1)*n:NEXT:GOSU
008730: 42 20 35 30 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 B 50:FOR n=1 TO
008740: 35 3A 49 46 20 77 28 6E 29 3D 31 20 54 48 45 4E 5:IF w(n)=1 THEN
008750: 20 77 28 6E 2B 31 30 29 3D 31 3A 47 4F 54 4F 20 w(n+10)=1:GOTO
008760: 36 36 30 0D 0A 36 35 30 20 72 62 3D 49 4E 54 28 660..650 rb=INT(
008770: 52 4E 44 2A 33 38 29 2B 32 3A 46 4F 52 20 7A 3D RND*38)+2:FOR z=
008780: 31 31 20 54 4F 20 31 35 3A 49 46 20 77 28 7A 29 11 TO 15:IF w(z)
008790: 3D 72 62 20 54 48 45 4E 20 72 62 3D 39 39 0D 0A =rb THEN rb=99..
0087A0: 36 35 35 20 4E 45 58 54 3A 49 46 20 72 62 3D 39 655 NEXT:IF rb=9
0087B0: 39 20 54 48 45 4E 20 36 35 30 20 45 4C 53 45 20 9 THEN 650 ELSE
0087C0: 77 28 6E 2B 31 30 29 3D 72 62 0D 0A 36 36 30 20 w(n+10)=rb..660
0087D0: 4E 45 58 54 3A 49 46 20 72 61 3D 30 20 54 48 45 NEXT:IF ra=0 THE
0087E0: 4E 20 77 28 31 31 29 3D 31 0D 0A 36 37 30 20 46 N w(11)=1..670 F
0087F0: 4F 52 20 6E 3D 31 31 20 54 4F 20 31 35 3A 49 46 OR n=11 TO 15:IF
008800: 20 72 61 3C 3E 6E 2D 31 30 20 54 48 45 4E 20 08 ra<>n-10 THEN .
008810: 38 FF FF FF FE 11 EA 08 A6 04 08 04 8C 04 19 09 8...............
008820: FE 0F 07 12 00 07 01 00 2C 41 47 4F 4C 46 00 00 ........,AGOLF..
008830: 00 00 00 00 00 00 00 00 00 04 00 16 00 08 7C 9E ..............|.
008840: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008850: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0088A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0088B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0088C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0088D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0088E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0088F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008900: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008910: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008920: 00 00 00 00 00 00 00 00 00 CC C0 FF FF FF FE 11 ................
008930: EA 08 57 04 08 04 71 04 E4 08 FE 0F 07 8B 0A 15 ..W...q.........
008940: 08 00 16 6A 28 77 28 6E 29 29 3D 77 28 6E 2D 35 ...j(w(n))=w(n-5
008950: 29 3A 74 24 28 77 28 6E 29 29 3D 70 24 28 6E 2D ):t$(w(n))=p$(n-
008960: 31 30 29 3A 66 28 77 28 6E 29 29 3D 33 30 2B 6E 10):f(w(n))=30+n
008970: 0D 0A 36 38 30 20 4E 45 58 54 0D 0A 36 39 30 20 ..680 NEXT..690
008980: 61 6C 3D 30 3A 61 68 3D 34 30 3A 61 69 3D 30 3A al=0:ah=40:ai=0:
008990: 61 6A 3D 32 3A 47 4F 53 55 42 20 37 30 31 30 3A aj=2:GOSUB 7010:
0089A0: 47 4F 54 4F 20 38 34 30 0D 0A 37 30 30 20 45 52 GOTO 840..700 ER
0089B0: 41 53 45 20 6A 2C 65 3A 44 49 4D 20 65 28 34 30 ASE j,e:DIM e(40
0089C0: 29 2C 6A 28 34 30 29 3A 61 69 3D 31 3A 47 4F 53 ),j(40):ai=1:GOS
0089D0: 55 42 20 37 30 30 30 3A 72 61 3D 30 3A 46 4F 52 UB 7000:ra=0:FOR
0089E0: 20 6E 3D 31 20 54 4F 20 34 30 3A 72 61 3D 72 61 n=1 TO 40:ra=ra
0089F0: 2D 28 66 28 6E 29 3D 31 29 2A 6E 3A 4E 45 58 54 -(f(n)=1)*n:NEXT
008A00: 3A 6E 3D 31 3A 72 62 3D 30 2D 32 2A 28 72 61 3D :n=1:rb=0-2*(ra=
008A10: 31 29 2D 28 72 61 3E 31 20 41 4E 44 20 72 61 3C 1)-(ra>1 AND ra<
008A20: 36 29 3A 72 62 3D 49 4E 54 28 52 4E 44 2A 72 62 6):rb=INT(RND*rb
008A30: 29 3A 47 4F 53 55 42 20 39 38 30 30 3A 47 4F 53 ):GOSUB 9800:GOS
008A40: 55 42 20 DF F3 37 35 30 30 3A 47 4F 53 55 42 20 UB ..7500:GOSUB
008A50: 39 39 33 30 0D 0A 38 30 30 20 61 70 3D 30 3A 61 9930..800 ap=0:a
008A60: 69 3D 30 3A 47 4F 53 55 42 20 39 38 36 30 3A 45 i=0:GOSUB 9860:E
008A70: 52 41 53 45 20 65 2C 6A 3A 44 49 4D 20 65 28 34 RASE e,j:DIM e(4
008A80: 30 29 2C 6A 28 34 30 29 3A 46 4F 52 20 6E 3D 32 0),j(40):FOR n=2
008A90: 20 54 4F 20 34 30 3A 74 24 28 6E 2D 31 29 3D 75 TO 40:t$(n-1)=u
008AA0: 24 28 6E 29 3A 66 28 6E 2D 31 29 3D 6E 3A 72 62 $(n):f(n-1)=n:rb
008AB0: 3D 6E 3A 47 4F 53 55 42 20 34 30 3A 6A 28 6E 2D =n:GOSUB 40:j(n-
008AC0: 31 29 3D 72 63 2B 63 28 6E 29 3A 4E 45 58 54 0D 1)=rc+c(n):NEXT.
008AD0: 0A 38 31 35 20 47 4F 53 55 42 20 39 39 30 30 3A .815 GOSUB 9900:
008AE0: 74 24 28 34 30 29 3D 7A 24 3A 66 28 34 30 29 3D t$(40)=z$:f(40)=
008AF0: 34 31 3A 6A 28 34 30 29 3D 35 30 2B 49 4E 54 28 41:j(40)=50+INT(
008B00: 52 4E 44 2A 33 30 29 3A 61 68 3D 34 30 3A 61 6A RND*30):ah=40:aj
008B10: 3D 32 3A 47 4F 53 55 42 20 36 30 30 30 3A 47 4F =2:GOSUB 6000:GO
008B20: 53 55 42 20 31 30 30 3A 47 4F 53 55 42 20 38 32 SUB 100:GOSUB 82
008B30: 30 30 3A 47 4F 53 55 42 20 36 35 30 30 0D 0A 38 00:GOSUB 6500..8
008B40: 32 30 20 61 68 69 55 3D 32 30 3A 47 4F 53 55 42 20 ahiU=20:GOSUB
008B50: 20 36 30 30 30 3A 61 6A 3D 32 3A 47 4F 53 55 42 6000:aj=2:GOSUB
008B60: 20 31 30 30 3A 47 4F 53 55 42 20 38 32 30 30 0D 100:GOSUB 8200.
008B70: 0A 38 34 30 20 47 4F 53 55 42 20 37 35 30 30 3A .840 GOSUB 7500:
008B80: 6C 28 61 62 2C 32 29 3D 66 28 31 29 3A 46 4F 52 l(ab,2)=f(1):FOR
008B90: 20 6E 3D 31 20 54 4F 20 61 68 3A 49 46 20 66 28 n=1 TO ah:IF f(
008BA0: 6E 29 3E 30 20 41 4E 44 20 66 28 6E 29 3C 34 31 n)>0 AND f(n)<41
008BB0: 20 54 48 45 4E 20 47 4F 53 55 42 20 37 30 3A 72 THEN GOSUB 70:r
008BC0: 61 3D 2D 32 2A 28 6E 3C 36 29 2D 28 6E 3C 31 31 a=-2*(n<6)-(n<11
008BD0: 29 2B 28 6E 3E 32 30 29 3A 46 4F 52 20 7A 3D 31 )+(n>20):FOR z=1
008BE0: 20 54 4F 20 34 3A 77 28 7A 29 3D 77 28 7A 29 2B TO 4:w(z)=w(z)+
008BF0: 72 61 3A 4E 45 58 54 3A 47 4F 53 55 42 20 37 35 ra:NEXT:GOSUB 75
008C00: 0D 0A 38 39 30 20 4E 45 58 54 3A 46 4F 52 20 6E ..890 NEXT:FOR n
008C10: 3D 31 20 54 4F 20 31 30 3A 49 46 20 66 28 6E 29 =1 TO 10:IF f(n)
008C20: 3E 30 20 41 4E 44 20 66 28 6E 29 3C 34 31 20 54 >0 AND f(n)<41 T
008C30: 48 45 4E 20 63 28 66 28 6E 29 29 3D 63 28 66 28 HEN c(f(n))=c(f(
008C40: 6E 29 29 2D 28 6E 3D C9 D8 31 29 2A 33 2D 28 6E n))-(n=..1)*3-(n
008C50: 3D 32 20 4F 52 20 6E 3D 33 29 2A 32 2D 28 6E 3C =2 OR n=3)*2-(n<
008C60: 31 31 29 0D 0A 38 39 35 20 4E 45 58 54 3A 47 4F 11)..895 NEXT:GO
008C70: 53 55 42 20 39 39 33 30 0D 0A 39 30 30 20 49 46 SUB 9930..900 IF
008C80: 20 61 28 31 2C 33 29 3E 30 20 41 4E 44 20 61 28 a(1,3)>0 AND a(
008C90: 31 2C 33 29 3C 32 35 35 20 54 48 45 4E 20 7A 6E 1,3)<255 THEN zn
008CA0: 3D 28 7A 6E 2F 31 30 29 2A 39 0D 0A 39 31 30 20 =(zn/10)*9..910
008CB0: 7A 6F 3D 28 7A 6F 2A 28 61 76 2B 31 29 29 2A 34 zo=(zo*(av+1))*4
008CC0: 3A 7A 63 3D 7A 63 2A 28 61 76 2B 31 29 3A 7A 31 :zc=zc*(av+1):z1
008CD0: 3D 30 3A 43 4C 53 3A 50 52 49 4E 54 20 54 41 42 =0:CLS:PRINT TAB
008CE0: 28 31 34 29 3B 22 57 45 45 4B 4C 59 20 4E 45 57 (14);"WEEKLY NEW
008CF0: 53 22 3B 2C 2C 2C 54 41 42 28 35 29 3B 22 50 52 S";,,,TAB(5);"PR
008D00: 49 5A 45 20 4D 4F 4E 45 59 22 3B 3A 74 7A 3D 7A IZE MONEY";:tz=z
008D10: 6E 3A 47 4F 53 55 42 20 36 33 34 37 30 3A 50 52 n:GOSUB 63470:PR
008D20: 49 4E 54 20 54 41 42 28 35 29 3B 22 54 52 41 56 INT TAB(5);"TRAV
008D30: 45 4C 20 22 3B 6E 24 28 32 29 3B 3A 74 7A 3D 7A EL ";n$(2);:tz=z
008D40: 63 3A 47 4F 53 55 42 20 36 C2 26 33 34 38 30 0D c:GOSUB 6.&3480.
008D50: 0A 39 31 31 20 50 52 49 4E 54 20 54 41 42 28 35 .911 PRINT TAB(5
008D60: 29 3B 22 48 4F 54 45 4C 20 22 3B 6E 24 28 32 29 );"HOTEL ";n$(2)
008D70: 3B 3A 74 7A 3D 7A 6F 3A 47 4F 53 55 42 20 36 33 ;:tz=zo:GOSUB 63
008D80: 34 38 30 3A 50 52 49 4E 54 20 54 41 42 28 35 29 480:PRINT TAB(5)
008D90: 3B 22 45 4E 54 52 59 20 46 45 45 22 3B 3A 74 7A ;"ENTRY FEE";:tz
008DA0: 3D 7A 64 3A 47 4F 53 55 42 20 36 33 34 38 30 0D =zd:GOSUB 63480.
008DB0: 0A 39 31 32 20 49 46 20 73 28 34 29 3E 30 20 54 .912 IF s(4)>0 T
008DC0: 48 45 4E 20 50 52 49 4E 54 20 54 41 42 28 35 29 HEN PRINT TAB(5)
008DD0: 3B 22 4D 4F 52 54 47 41 47 45 20 52 45 50 41 59 ;"MORTGAGE REPAY
008DE0: 4D 45 4E 54 53 22 3B 3A 74 7A 3D 7A 6D 3A 47 4F MENTS";:tz=zm:GO
008DF0: 53 55 42 20 36 33 34 38 30 0D 0A 39 31 35 20 49 SUB 63480..915 I
008E00: 46 20 61 28 31 2C 33 29 3E 30 20 54 48 45 4E 20 F a(1,3)>0 THEN
008E10: 50 52 49 4E 54 20 54 41 42 28 35 29 3B 22 43 41 PRINT TAB(5);"CA
008E20: 44 44 59 27 53 20 57 41 47 45 22 3B 3A 74 7A 3D DDY'S WAGE";:tz=
008E30: 61 28 31 2C 32 29 3A 47 4F 53 55 42 20 36 33 34 a(1,2):GOSUB 634
008E40: 38 30 0D 0A 39 32 30 20 49 46 20 2C 8E 61 28 32 80..920 IF ,.a(2
008E50: 2C 33 29 3E 30 20 54 48 45 4E 20 50 52 49 4E 54 ,3)>0 THEN PRINT
008E60: 20 54 41 42 28 35 29 3B 22 43 4F 41 43 48 27 53 TAB(5);"COACH'S
008E70: 20 57 41 47 45 22 3B 3A 74 7A 3D 61 28 32 2C 32 WAGE";:tz=a(2,2
008E80: 29 3A 47 4F 53 55 42 20 36 33 34 38 30 0D 0A 39 ):GOSUB 63480..9
008E90: 32 35 20 49 46 20 73 28 35 29 3E 30 20 54 48 45 25 IF s(5)>0 THE
008EA0: 4E 20 50 52 49 4E 54 20 54 41 42 28 35 29 3B 22 N PRINT TAB(5);"
008EB0: 4C 4F 41 4E 20 52 45 50 41 59 4D 45 4E 54 53 22 LOAN REPAYMENTS"
008EC0: 3B 3A 74 7A 3D 7A 6C 3A 47 4F 53 55 42 20 36 33 ;:tz=zl:GOSUB 63
008ED0: 34 38 30 0D 0A 39 33 30 20 72 61 3D 30 3A 46 4F 480..930 ra=0:FO
008EE0: 52 20 6E 3D 31 20 54 4F 20 37 20 53 54 45 50 20 R n=1 TO 7 STEP
008EF0: 32 3A 72 65 3D 72 65 2B 56 41 4C 28 4D 49 44 24 2:re=re+VAL(MID$
008F00: 28 76 24 28 31 29 2C 6E 2C 32 29 29 3A 4E 45 58 (v$(1),n,2)):NEX
008F10: 54 3A 50 52 49 4E 54 20 54 41 42 28 35 29 3B 22 T:PRINT TAB(5);"
008F20: 4C 49 56 49 4E 47 20 43 4F 53 54 53 22 3B 3A 7A LIVING COSTS";:z
008F30: 32 3D 31 37 35 2B 49 4E 54 28 52 4E 44 2A 37 35 2=175+INT(RND*75
008F40: 29 3A 49 46 20 72 65 3E 33 32 30 20 54 58 A8 48 ):IF re>320 TX.H
008F50: 45 4E 20 7A 32 3D 7A 32 2A 32 0D 0A 39 33 32 20 EN z2=z2*2..932
008F60: 74 7A 3D 7A 32 3A 47 4F 53 55 42 20 36 33 34 38 tz=z2:GOSUB 6348
008F70: 30 0D 0A 39 33 35 20 49 46 20 7A 70 3E 30 20 54 0..935 IF zp>0 T
008F80: 48 45 4E 20 50 52 49 4E 54 20 54 41 42 28 35 29 HEN PRINT TAB(5)
008F90: 3B 22 42 45 54 20 53 54 41 4B 45 53 22 3B 3A 74 ;"BET STAKES";:t
008FA0: 7A 3D 7A 70 3A 47 4F 53 55 42 20 36 33 34 38 30 z=zp:GOSUB 63480
008FB0: 0D 0A 39 33 38 20 49 46 20 66 28 31 29 3D 61 75 ..938 IF f(1)=au
008FC0: 20 54 48 45 4E 20 50 52 49 4E 54 20 54 41 42 28 THEN PRINT TAB(
008FD0: 35 29 3B 22 42 4F 4F 4B 49 45 53 20 52 45 54 55 5);"BOOKIES RETU
008FE0: 52 4E 53 22 3B 3A 74 7A 3D 7A 66 3A 47 4F 53 55 RNS";:tz=zf:GOSU
008FF0: 42 20 36 33 34 37 30 0D 0A 39 34 30 20 49 46 20 B 63470..940 IF
009000: 62 65 3D 31 20 54 48 45 4E 20 50 52 49 4E 54 20 be=1 THEN PRINT
009010: 54 41 42 28 35 29 3B 22 48 4F 4C 45 20 49 4E 20 TAB(5);"HOLE IN
009020: 4F 4E 45 22 3B 3A 74 7A 3D 31 30 30 30 30 3A 47 ONE";:tz=10000:G
009030: 4F 53 55 42 20 36 33 34 37 30 0D 0A 39 34 32 20 OSUB 63470..942
009040: 7A 31 3D 30 3A 46 4F 52 20 6E 3D 31 20 54 4F 46 z1=0:FOR n=1 TOF
009050: 69 20 33 3A 49 46 20 73 28 6E 29 3E 30 20 54 48 i 3:IF s(n)>0 TH
009060: 45 4E 20 50 52 49 4E 54 20 54 41 42 28 35 29 3B EN PRINT TAB(5);
009070: 63 24 28 73 28 6E 2B 37 29 29 3B 22 20 50 41 59 c$(s(n+7));" PAY
009080: 22 3B 3A 74 7A 3D 73 28 31 30 2B 6E 29 3A 47 4F ";:tz=s(10+n):GO
009090: 53 55 42 20 36 33 34 37 30 3A 7A 31 3D 7A 31 2B SUB 63470:z1=z1+
0090A0: 73 28 6E 2B 31 30 29 3A 73 28 6E 29 3D 73 28 6E s(n+10):s(n)=s(n
0090B0: 29 2D 31 3A 49 46 20 73 28 6E 29 3D 30 20 54 48 )-1:IF s(n)=0 TH
0090C0: 45 4E 20 73 28 31 30 2B 6E 29 3D 30 0D 0A 39 34 EN s(10+n)=0..94
0090D0: 33 20 4E 45 58 54 0D 0A 39 34 35 20 7A 31 3D 7A 3 NEXT..945 z1=z
0090E0: 6E 2D 7A 6F 2D 7A 64 2D 7A 63 2D 7A 32 2B 7A 6C n-zo-zd-zc-z2+zl
0090F0: 2A 28 73 28 35 29 3E 30 29 2B 7A 6D 2A 28 73 28 *(s(5)>0)+zm*(s(
009100: 34 29 3E 30 29 2D 7A 66 2A 28 66 28 31 29 3D 61 4)>0)-zf*(f(1)=a
009110: 75 29 2D 7A 70 2B 61 28 31 2C 32 29 2A 28 61 28 u)-zp+a(1,2)*(a(
009120: 31 2C 33 29 3E 30 29 2B 61 28 32 2C 32 29 2A 28 1,3)>0)+a(2,2)*(
009130: 61 28 32 2C 33 29 3E 30 29 2D 31 30 30 30 30 2A a(2,3)>0)-10000*
009140: 28 62 65 3D 31 29 3A 7A 61 3D 7A 61 2B 7A 31 3A (be=1):za=za+z1:
009150: 50 6D 93 FF FF FF FE 11 D9 08 F6 04 B8 03 8B 04 Pm..............
009160: 18 09 FE 0F 07 12 00 07 01 00 2C 41 47 4F 4C 46 ..........,AGOLF
009170: 00 00 00 00 00 00 00 00 00 00 00 05 00 16 00 08 ................
009180: 7C 9E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |...............
009190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0091A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0091B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0091C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0091D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0091E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0091F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009200: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009210: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009230: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009240: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009250: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009260: 00 00 00 00 00 00 00 00 00 00 00 2B CB FF FF FF ...........+....
009270: FE 11 E6 08 A6 04 57 04 79 04 F3 08 FE 0F 07 AA ......W.y.......
009280: 0A 15 08 00 16 52 49 4E 54 20 2C 2C 54 41 42 28 .....RINT ,,TAB(
009290: 35 29 3B 22 42 41 4C 41 4E 43 45 22 3B 3A 74 7A 5);"BALANCE";:tz
0092A0: 3D 41 42 53 28 7A 31 29 3A 47 4F 53 55 42 20 36 =ABS(z1):GOSUB 6
0092B0: 33 34 39 30 3A 50 52 49 4E 54 20 54 41 42 28 33 3490:PRINT TAB(3
0092C0: 35 29 3B 43 48 52 24 28 34 35 2B 32 2A 28 7A 31 5);CHR$(45+2*(z1
0092D0: 3E 30 29 29 0D 0A 39 34 36 20 49 46 20 62 65 3E >0))..946 IF be>
0092E0: 31 20 54 48 45 4E 20 50 52 49 4E 54 20 54 41 42 1 THEN PRINT TAB
0092F0: 28 35 29 3B 75 24 28 62 65 29 3B 22 20 48 41 53 (5);u$(be);" HAS
009300: 20 57 4F 4E 20 22 3B 3A 74 7A 3D 31 30 30 30 30 WON ";:tz=10000
009310: 3A 47 4F 53 55 42 20 36 33 35 30 30 3A 50 52 49 :GOSUB 63500:PRI
009320: 4E 54 20 22 20 20 20 20 20 46 4F 52 20 41 20 48 NT " FOR A H
009330: 4F 4C 45 20 49 4E 20 4F 4E 45 22 3A 6B 28 62 65 OLE IN ONE":k(be
009340: 29 3D 6B 28 62 65 29 2B 31 30 30 30 30 0D 0A 39 )=k(be)+10000..9
009350: 34 38 20 62 62 3D 30 3A 62 64 3D 30 3A 62 65 3D 48 bb=0:bd=0:be=
009360: 30 3A 47 4F 53 55 42 20 39 39 36 30 3A 46 4F 52 0:GOSUB 9960:FOR
009370: 20 6E 3D 34 20 54 4F 20 35 3A 49 46 20 73 28 6E n=4 TO 5:IF s(n
009380: 29 3E 30 20 54 F5 5D 48 45 4E 20 73 28 6E 29 3D )>0 T.]HEN s(n)=
009390: 73 28 6E 29 2D 31 20 0D 0A 39 35 30 20 4E 45 58 s(n)-1 ..950 NEX
0093A0: 54 3A 61 6B 3D 31 30 3A 7A 63 3D 30 3A 7A 70 3D T:ak=10:zc=0:zp=
0093B0: 30 3A 61 75 3D 30 3A 7A 66 3D 30 3A 7A 64 3D 30 0:au=0:zf=0:zd=0
0093C0: 3A 7A 6E 3D 30 3A 7A 6F 3D 30 3A 46 24 3D 22 30 :zn=0:zo=0:F$="0
0093D0: 30 30 30 30 30 30 30 30 30 30 30 22 3A 61 65 3D 00000000000":ae=
0093E0: 30 3A 61 62 3D 61 62 2B 31 0D 0A 39 35 32 20 49 0:ab=ab+1..952 I
0093F0: 46 20 61 28 31 2C 33 29 3D 30 20 54 48 45 4E 20 F a(1,3)=0 THEN
009400: 39 36 30 0D 0A 39 35 35 20 61 28 31 2C 33 29 3D 960..955 a(1,3)=
009410: 61 28 31 2C 33 29 2D 31 3A 49 46 20 61 28 31 2C a(1,3)-1:IF a(1,
009420: 33 29 3D 30 20 54 48 45 4E 20 50 52 49 4E 54 20 3)=0 THEN PRINT
009430: 2C 2C 54 41 42 28 35 29 3B 22 59 4F 55 52 20 43 ,,TAB(5);"YOUR C
009440: 4F 41 43 48 20 48 41 53 20 52 45 53 49 47 4E 45 OACH HAS RESIGNE
009450: 44 22 0D 0A 39 35 37 20 49 46 20 61 28 31 2C 33 D"..957 IF a(1,3
009460: 29 3D 32 35 34 20 54 48 45 4E 20 61 28 31 2C 33 )=254 THEN a(1,3
009470: 29 3D 30 0D 0A 39 35 38 20 49 46 20 61 28 31 2C )=0..958 IF a(1,
009480: 33 29 3D 30 20 54 48 96 08 45 4E 20 61 76 3D 61 3)=0 TH..EN av=a
009490: 76 2D 31 0D 0A 39 36 30 20 49 46 20 61 28 32 2C v-1..960 IF a(2,
0094A0: 33 29 3D 30 20 54 48 45 4E 20 39 36 38 0D 0A 39 3)=0 THEN 968..9
0094B0: 36 32 20 61 28 32 2C 33 29 3D 61 28 32 2C 33 29 62 a(2,3)=a(2,3)
0094C0: 2D 31 3A 49 46 20 61 28 32 2C 33 29 3D 30 20 54 -1:IF a(2,3)=0 T
0094D0: 48 45 4E 20 50 52 49 4E 54 20 2C 2C 54 41 42 28 HEN PRINT ,,TAB(
0094E0: 35 29 3B 22 59 4F 55 52 20 43 41 44 44 59 20 48 5);"YOUR CADDY H
0094F0: 41 53 20 52 45 53 49 47 4E 45 44 22 0D 0A 39 36 AS RESIGNED"..96
009500: 33 20 49 46 20 61 28 32 2C 33 29 3D 32 35 34 20 3 IF a(2,3)=254
009510: 54 48 45 4E 20 61 28 32 2C 33 29 3D 30 0D 0A 39 THEN a(2,3)=0..9
009520: 36 34 20 49 46 20 61 28 32 2C 33 29 3D 30 20 54 64 IF a(2,3)=0 T
009530: 48 45 4E 20 61 76 3D 61 76 2D 31 0D 0A 39 36 38 HEN av=av-1..968
009540: 20 46 4F 52 20 6E 3D 31 20 54 4F 20 34 30 3A 49 FOR n=1 TO 40:I
009550: 46 20 63 28 6E 29 3C 30 20 54 48 45 4E 20 63 28 F c(n)<0 THEN c(
009560: 6E 29 3D 30 20 45 4C 53 45 20 49 46 20 63 28 6E n)=0 ELSE IF c(n
009570: 29 3E 31 30 20 54 48 45 4E 20 63 28 6E 29 3D 31 )>10 THEN c(n)=1
009580: 30 0D 0A 39 37 30 20 4E 45 40 51 58 54 0D 0A 39 0..970 NE@QXT..9
009590: 38 30 20 52 41 4E 44 4F 4D 49 5A 45 20 54 49 4D 80 RANDOMIZE TIM
0095A0: 45 3A 49 46 20 49 4E 54 28 52 4E 44 2A 32 30 29 E:IF INT(RND*20)
0095B0: 3D 31 30 20 54 48 45 4E 20 47 4F 53 55 42 20 39 =10 THEN GOSUB 9
0095C0: 35 30 30 0D 0A 39 39 32 20 63 28 31 29 3D 63 28 500..992 c(1)=c(
0095D0: 31 29 2D 61 72 3A 61 72 3D 30 3A 61 66 3D 49 4E 1)-ar:ar=0:af=IN
0095E0: 54 28 52 4E 44 2A 31 31 29 2B 31 3A 47 4F 53 55 T(RND*11)+1:GOSU
0095F0: 42 20 39 39 34 30 3A 49 46 20 61 62 3E 32 30 20 B 9940:IF ab>20
009600: 54 48 45 4E 20 38 35 30 30 20 45 4C 53 45 20 35 THEN 8500 ELSE 5
009610: 30 30 0D 0A 31 30 30 30 20 7A 63 3D 30 3A 7A 64 00..1000 zc=0:zd
009620: 3D 30 3A 43 4C 53 3A 4C 4F 43 41 54 45 20 31 33 =0:CLS:LOCATE 13
009630: 2C 31 3A 50 45 4E 20 33 3A 50 52 49 4E 54 20 22 ,1:PEN 3:PRINT "
009640: 4E 45 58 54 20 22 3B 6E 24 28 33 29 3B 3A 4C 4F NEXT ";n$(3);:LO
009650: 43 41 54 45 20 37 2C 34 3A 50 52 49 4E 54 20 22 CATE 7,4:PRINT "
009660: 31 2E 20 4D 41 4A 4F 52 20 22 3B 3A 50 45 4E 20 1. MAJOR ";:PEN
009670: 31 3A 50 52 49 4E 54 20 41 24 28 41 43 29 3B 3A 1:PRINT A$(AC);:
009680: 4C 4F 43 41 54 45 20 31 31 2C 35 BF 0F 3A 50 52 LOCATE 11,5..:PR
009690: 49 4E 54 20 6E 24 28 32 29 22 54 4F 20 47 4F 20 INT n$(2)"TO GO
0096A0: 20 22 3B 3A 74 7A 3D 76 28 61 63 2C 32 29 3A 47 ";:tz=v(ac,2):G
0096B0: 4F 53 55 42 20 36 33 35 30 30 0D 0A 31 30 30 35 OSUB 63500..1005
0096C0: 20 4C 4F 43 41 54 45 20 31 31 2C 36 3A 50 52 49 LOCATE 11,6:PRI
0096D0: 4E 54 20 22 45 4E 54 52 41 4E 43 45 20 46 45 45 NT "ENTRANCE FEE
0096E0: 20 20 20 20 22 3B 3A 74 7A 3D 76 28 61 63 2C 31 ";:tz=v(ac,1
0096F0: 29 2F 32 30 30 3A 47 4F 53 55 42 20 36 33 35 30 )/200:GOSUB 6350
009700: 30 3A 4C 4F 43 41 54 45 20 31 31 2C 37 3A 50 45 0:LOCATE 11,7:PE
009710: 4E 20 33 3A 50 52 49 4E 54 20 6E 24 28 31 29 3B N 3:PRINT n$(1);
009720: 22 20 20 20 20 22 3B 3A 74 7A 3D 76 28 61 63 2C " ";:tz=v(ac,
009730: 31 29 3A 47 4F 53 55 42 20 36 33 35 30 30 0D 0A 1):GOSUB 63500..
009740: 31 30 31 30 20 7A 31 3D 49 4E 54 28 28 31 30 30 1010 z1=INT((100
009750: 30 2B 28 52 4E 44 2A 38 30 30 29 29 2A 31 30 29 0+(RND*800))*10)
009760: 3A 7A 32 3D 31 30 30 2B 49 4E 54 28 52 4E 44 2A :z2=100+INT(RND*
009770: 31 30 30 29 3A 4C 4F 43 41 54 45 20 37 2C 31 33 100):LOCATE 7,13
009780: 3A 50 52 49 4E 54 20 22 32 2E 20 4D 49 D3 CB 4E :PRINT "2. MI..N
009790: 4F 52 20 22 3B 6E 24 28 33 29 3B 22 20 41 54 20 OR ";n$(3);" AT
0097A0: 22 3A 4C 4F 43 41 54 45 20 31 31 2C 31 34 3A 50 ":LOCATE 11,14:P
0097B0: 45 4E 20 31 3A 50 52 49 4E 54 20 69 24 28 61 66 EN 1:PRINT i$(af
0097C0: 29 3A 4C 4F 43 41 54 45 20 31 31 2C 31 37 3A 50 ):LOCATE 11,17:P
0097D0: 45 4E 20 33 3A 50 52 49 4E 54 20 6E 24 28 31 29 EN 3:PRINT n$(1)
0097E0: 3B 22 20 20 20 20 22 3B 3A 74 7A 3D 7A 31 3A 47 ;" ";:tz=z1:G
0097F0: 4F 53 55 42 20 36 33 35 30 30 3A 50 45 4E 20 31 OSUB 63500:PEN 1
009800: 0D 0A 31 30 31 35 20 4C 4F 43 41 54 45 20 31 31 ..1015 LOCATE 11
009810: 2C 31 35 3A 50 52 49 4E 54 20 6E 24 28 32 29 3B ,15:PRINT n$(2);
009820: 22 54 4F 20 47 4F 20 20 22 3B 3A 74 7A 3D 7A 32 "TO GO ";:tz=z2
009830: 3A 47 4F 53 55 42 20 36 33 35 30 30 3A 4C 4F 43 :GOSUB 63500:LOC
009840: 41 54 45 20 31 31 2C 31 36 3A 50 52 49 4E 54 20 ATE 11,16:PRINT
009850: 22 45 4E 54 52 41 4E 43 45 20 46 45 45 20 20 20 "ENTRANCE FEE
009860: 20 22 3B 3A 74 7A 3D 49 4E 54 28 7A 31 2F 31 35 ";:tz=INT(z1/15
009870: 30 29 3A 47 4F 53 55 42 20 36 33 35 30 30 3A 4C 0):GOSUB 63500:L
009880: 4F 43 41 54 45 20 37 2C 32 32 3A 50 52 49 4E 14 OCATE 7,22:PRIN.
009890: 7F 54 22 4D 2E 20 4D 45 4E 55 22 0D 0A 31 30 32 .T"M. MENU"..102
0098A0: 30 20 47 4F 53 55 42 20 36 34 32 30 30 3A 49 46 0 GOSUB 64200:IF
0098B0: 20 69 6E 24 3C 3E 22 31 22 20 41 4E 44 20 69 6E in$<>"1" AND in
0098C0: 24 3C 3E 22 32 22 20 41 4E 44 20 69 6E 24 3C 3E $<>"2" AND in$<>
0098D0: 22 4D 22 20 54 48 45 4E 20 31 30 32 30 20 45 4C "M" THEN 1020 EL
0098E0: 53 45 20 49 46 20 69 6E 24 3D 22 4D 22 20 54 48 SE IF in$="M" TH
0098F0: 45 4E 20 61 65 3D 32 3A 52 45 54 55 52 4E 20 0D EN ae=2:RETURN .
009900: 0A 31 30 32 35 20 4D 49 44 24 28 66 24 2C 32 2C .1025 MID$(f$,2,
009910: 31 29 3D 22 31 22 3A 61 31 3D 56 41 4C 28 69 6E 1)="1":a1=VAL(in
009920: 24 29 3A 49 46 20 61 31 3D 32 20 54 48 45 4E 20 $):IF a1=2 THEN
009930: 61 65 3D 31 3A 7A 63 3D 7A 32 3A 7A 64 3D 49 4E ae=1:zc=z2:zd=IN
009940: 54 28 7A 31 2F 31 35 30 29 3A 7A 65 3D 7A 31 3A T(z1/150):ze=z1:
009950: 52 45 54 55 52 4E 0D 0A 31 30 36 30 20 61 65 3D RETURN..1060 ae=
009960: 30 3A 7A 63 3D 76 28 61 63 2C 32 29 3A 7A 64 3D 0:zc=v(ac,2):zd=
009970: 49 4E 54 28 76 28 61 63 2C 31 29 2F 32 30 30 29 INT(v(ac,1)/200)
009980: 3A 7A 65 3D 49 4E 54 28 76 28 61 63 2C 31 29 29 :ze=INT(v(ac,1))
009990: 3A 20 FA 52 45 54 55 52 4E 20 0D 0A 31 34 30 30 : .RETURN ..1400
0099A0: 20 43 4C 53 3A 50 52 49 4E 54 20 54 41 42 28 31 CLS:PRINT TAB(1
0099B0: 37 29 3B 22 50 52 41 43 54 49 43 45 22 3B 3A 4C 7);"PRACTICE";:L
0099C0: 4F 43 41 54 45 20 31 31 2C 34 3A 50 52 49 4E 54 OCATE 11,4:PRINT
0099D0: 20 22 31 2E 20 42 55 4E 4B 45 52 20 53 48 4F 54 "1. BUNKER SHOT
0099E0: 53 22 2C 2C 2C 54 41 42 28 31 31 29 3B 22 32 2E S",,,TAB(11);"2.
0099F0: 20 43 48 49 50 50 49 4E 47 22 2C 2C 2C 54 41 42 CHIPPING",,,TAB
009A00: 28 31 31 29 3B 22 33 2E 20 50 55 54 54 49 4E 47 (11);"3. PUTTING
009A10: 22 2C 2C 2C 54 41 42 28 31 31 29 3B 22 34 2E 20 ",,,TAB(11);"4.
009A20: 44 52 49 56 49 4E 47 22 2C 2C 2C 54 41 42 28 31 DRIVING",,,TAB(1
009A30: 31 29 3B 22 35 2E 20 50 52 41 43 54 49 43 45 20 1);"5. PRACTICE
009A40: 52 4F 55 4E 44 22 3B 2C 2C 2C 2C 2C 54 41 42 28 ROUND";,,,,,TAB(
009A50: 31 31 29 3B 22 4D 2E 20 4D 45 4E 55 22 0D 0A 31 11);"M. MENU"..1
009A60: 34 31 35 20 72 65 3D 30 3A 46 4F 52 20 6E 3D 31 415 re=0:FOR n=1
009A70: 20 54 4F 20 37 20 53 54 45 50 20 32 3A 4C 4F 43 TO 7 STEP 2:LOC
009A80: 41 54 45 20 32 37 2C 6E 2B 33 3A 72 65 3D 72 65 ATE 27,n+3:re=re
009A90: 2B 56 41 F9 54 FF FF FF FE 11 F0 08 A6 04 08 04 +VA.T...........
009AA0: 88 04 11 09 FE 0F 07 12 00 07 01 00 2C 41 47 4F ............,AGO
009AB0: 4C 46 00 00 00 00 00 00 00 00 00 00 00 06 00 16 LF..............
009AC0: 00 08 7C 9E 00 00 00 00 00 00 00 00 00 00 00 00 ..|.............
009AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009B00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009B10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009B20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009B30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009B40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009B50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 12 F7 FF ................
009BB0: FF FF FE 11 F6 08 A6 04 08 04 70 04 E2 08 FE 0F ..........p.....
009BC0: 07 8F 0A 15 08 00 16 4C 28 4D 49 44 24 28 76 24 .......L(MID$(v$
009BD0: 28 31 29 2C 6E 2C 32 29 29 3A 50 52 49 4E 54 20 (1),n,2)):PRINT
009BE0: 4D 49 44 24 28 76 24 28 31 29 2C 6E 2C 32 29 3A MID$(v$(1),n,2):
009BF0: 4E 45 58 54 3A 72 65 3D 72 65 2F 34 3A 4C 4F 43 NEXT:re=re/4:LOC
009C00: 41 54 45 20 35 2C 32 30 3A 50 52 49 4E 54 22 48 ATE 5,20:PRINT"H
009C10: 4F 55 52 53 20 41 56 41 49 4C 41 42 4C 45 22 3B OURS AVAILABLE";
009C20: 61 6B 3B 3A 49 46 20 61 6B 3C 31 20 54 48 45 4E ak;:IF ak<1 THEN
009C30: 20 4D 49 44 24 28 66 24 2C 33 2C 31 29 3D 22 31 MID$(f$,3,1)="1
009C40: 22 0D 0A 31 34 31 38 20 72 61 3D 30 3A 47 4F 53 "..1418 ra=0:GOS
009C50: 55 42 20 36 34 32 30 30 3A 49 46 20 69 6E 24 3D UB 64200:IF in$=
009C60: 22 4D 22 20 54 48 45 4E 20 52 45 54 55 52 4E 20 "M" THEN RETURN
009C70: 45 4C 53 45 20 49 46 20 69 6E 24 3C 22 31 22 20 ELSE IF in$<"1"
009C80: 4F 52 20 69 6E 24 3E 22 35 22 20 54 48 45 4E 20 OR in$>"5" THEN
009C90: 31 34 31 38 20 45 4C 53 45 20 61 31 3D 56 41 4C 1418 ELSE a1=VAL
009CA0: 28 69 6E 24 29 3A 49 46 20 61 31 3D 35 20 41 4E (in$):IF a1=5 AN
009CB0: 44 20 61 6B 3C 33 20 54 48 45 4E 20 31 34 31 38 D ak<3 THEN 1418
009CC0: 20 45 4C 53 45 20 49 27 D3 46 20 61 6B 3C 31 20 ELSE I'.F ak<1
009CD0: 54 48 45 4E 20 31 34 31 38 0D 0A 31 34 32 30 20 THEN 1418..1420
009CE0: 72 62 3D 28 61 31 2D 31 29 2A 32 2B 31 3A 72 61 rb=(a1-1)*2+1:ra
009CF0: 3D 30 3A 49 46 20 61 31 3D 35 20 54 48 45 4E 20 =0:IF a1=5 THEN
009D00: 61 6B 3D 61 6B 2D 32 3A 47 4F 53 55 42 20 31 36 ak=ak-2:GOSUB 16
009D10: 30 30 3A 72 62 3D 31 2B 49 4E 54 28 52 4E 44 2A 00:rb=1+INT(RND*
009D20: 33 29 2A 32 3A 47 4F 54 4F 20 31 34 39 30 20 20 3)*2:GOTO 1490
009D30: 0D 0A 31 34 33 30 20 49 4E 50 55 54 23 32 2C 22 ..1430 INPUT#2,"
009D40: 48 4F 57 20 4D 41 4E 59 20 48 4F 55 52 53 20 22 HOW MANY HOURS "
009D50: 3B 72 66 3A 43 4C 53 23 32 3A 49 46 20 72 66 3E ;rf:CLS#2:IF rf>
009D60: 61 6B 20 4F 52 20 72 66 3C 31 20 54 48 45 4E 20 ak OR rf<1 THEN
009D70: 31 34 33 30 0D 0A 31 34 34 30 20 49 46 20 72 66 1430..1440 IF rf
009D80: 3D 31 20 54 48 45 4E 20 47 4F 53 55 42 20 31 36 =1 THEN GOSUB 16
009D90: 30 30 3A 47 4F 54 4F 20 31 34 39 30 0D 0A 31 34 00:GOTO 1490..14
009DA0: 35 30 20 46 4F 52 20 6E 3D 31 20 54 4F 20 72 66 50 FOR n=1 TO rf
009DB0: 3A 47 4F 53 55 42 20 31 36 30 30 3A 4E 45 58 54 :GOSUB 1600:NEXT
009DC0: 0D 0A 31 34 39 30 20 72 64 01 C0 3D 56 41 4C 28 ..1490 rd..=VAL(
009DD0: 4D 49 44 24 28 76 24 28 31 29 2C 72 62 2C 32 29 MID$(v$(1),rb,2)
009DE0: 29 2B 72 61 3A 72 64 3D 46 4E 20 61 28 72 64 29 )+ra:rd=FN a(rd)
009DF0: 3A 4D 49 44 24 28 76 24 28 31 29 2C 72 62 2C 32 :MID$(v$(1),rb,2
009E00: 29 3D 52 49 47 48 54 24 28 53 54 52 24 28 72 64 )=RIGHT$(STR$(rd
009E10: 29 2C 32 29 3A 47 4F 54 4F 20 31 34 30 30 0D 0A ),2):GOTO 1400..
009E20: 31 36 30 30 20 61 6B 3D 61 6B 2D 31 3A 72 64 3D 1600 ak=ak-1:rd=
009E30: 49 4E 54 28 52 4E 44 2A 31 30 29 3A 72 61 3D 72 INT(RND*10):ra=r
009E40: 61 2B 28 72 64 3C 33 29 2D 28 72 64 3E 35 29 2D a+(rd<3)-(rd>5)-
009E50: 28 61 28 32 2C 33 29 3E 30 29 2D 28 72 65 3C 36 (a(2,3)>0)-(re<6
009E60: 35 29 2B 28 72 64 3E 39 30 29 3A 52 45 54 55 52 5)+(rd>90):RETUR
009E70: 4E 0D 0A 31 38 30 30 20 49 4E 4B 20 30 2C 31 3A N..1800 INK 0,1:
009E80: 49 4E 4B 20 31 2C 32 36 3A 42 4F 52 44 45 52 20 INK 1,26:BORDER
009E90: 31 3A 43 4C 53 3A 77 28 31 29 3D 31 38 30 2B 49 1:CLS:w(1)=180+I
009EA0: 4E 54 28 52 4E 44 2A 34 30 29 3A 77 28 32 29 3D NT(RND*40):w(2)=
009EB0: 38 30 30 2B 49 4E 54 28 52 4E 44 2A 34 30 30 29 800+INT(RND*400)
009EC0: 3A 77 28 33 29 3D 34 35 30 2B 49 45 99 4E 54 28 :w(3)=450+IE.NT(
009ED0: 52 4E 44 2A 31 30 30 29 3A 77 28 34 29 3D 31 33 RND*100):w(4)=13
009EE0: 30 30 2B 49 4E 54 28 52 4E 44 2A 34 30 30 29 0D 00+INT(RND*400).
009EF0: 0A 31 38 30 34 20 49 46 20 61 28 31 2C 33 29 3D .1804 IF a(1,3)=
009F00: 30 20 54 48 45 4E 20 4C 4F 43 41 54 45 20 36 2C 0 THEN LOCATE 6,
009F10: 34 3A 50 52 49 4E 54 20 22 31 2E 20 48 49 52 45 4:PRINT "1. HIRE
009F20: 20 43 41 44 44 59 20 20 22 3B 3A 74 7A 3D 77 28 CADDY ";:tz=w(
009F30: 31 29 3A 47 4F 53 55 42 20 36 33 35 30 30 3A 50 1):GOSUB 63500:P
009F40: 52 49 4E 54 20 2C 2C 2C 54 41 42 28 36 29 3B 22 RINT ,,,TAB(6);"
009F50: 32 2E 20 48 49 52 45 20 50 45 52 4D 41 4E 45 4E 2. HIRE PERMANEN
009F60: 54 20 43 41 44 44 59 22 2C 3A 74 7A 3D 77 28 32 T CADDY",:tz=w(2
009F70: 29 3A 47 4F 53 55 42 20 36 33 34 35 30 3A 47 4F ):GOSUB 63450:GO
009F80: 54 4F 20 31 38 31 30 0D 0A 31 38 30 36 20 4C 4F TO 1810..1806 LO
009F90: 43 41 54 45 20 36 2C 34 3A 50 52 49 4E 54 20 22 CATE 6,4:PRINT "
009FA0: 31 2E 20 53 41 43 4B 20 43 41 44 44 59 22 0D 0A 1. SACK CADDY"..
009FB0: 31 38 31 30 20 49 46 20 61 28 32 2C 33 29 3D 30 1810 IF a(2,3)=0
009FC0: 20 54 48 45 4E 20 4C 4F 43 41 54 45 20 BF F5 36 THEN LOCATE ..6
009FD0: 2C 31 30 3A 50 52 49 4E 54 20 22 33 2E 20 48 49 ,10:PRINT "3. HI
009FE0: 52 45 20 43 4F 41 43 48 20 20 22 3B 3A 74 7A 3D RE COACH ";:tz=
009FF0: 77 28 33 29 3A 47 4F 53 55 42 20 36 33 35 30 30 w(3):GOSUB 63500
00A000: 3A 50 52 49 4E 54 20 2C 2C 2C 54 41 42 28 36 29 :PRINT ,,,TAB(6)
00A010: 3B 22 34 2E 20 48 49 52 45 20 50 45 52 4D 41 4E ;"4. HIRE PERMAN
00A020: 45 4E 54 20 43 4F 41 43 48 22 2C 3A 74 7A 3D 77 ENT COACH",:tz=w
00A030: 28 34 29 3A 47 4F 53 55 42 20 36 33 34 35 30 3A (4):GOSUB 63450:
00A040: 47 4F 54 4F 20 31 38 32 30 0D 0A 31 38 31 35 20 GOTO 1820..1815
00A050: 4C 4F 43 41 54 45 20 36 2C 31 30 3A 50 52 49 4E LOCATE 6,10:PRIN
00A060: 54 20 22 33 2E 20 53 41 43 4B 20 43 4F 41 43 48 T "3. SACK COACH
00A070: 22 0D 0A 31 38 32 30 20 4C 4F 43 41 54 45 20 36 "..1820 LOCATE 6
00A080: 2C 31 35 3A 50 52 49 4E 54 20 22 35 2E 20 52 45 ,15:PRINT "5. RE
00A090: 50 4C 41 43 45 20 43 4C 55 42 53 22 2C 2C 2C 54 PLACE CLUBS",,,T
00A0A0: 41 42 28 36 29 3B 22 36 2E 20 43 4F 4E 54 49 4E AB(6);"6. CONTIN
00A0B0: 55 45 22 3A 47 4F 53 55 42 20 39 39 36 30 0D 0A UE":GOSUB 9960..
00A0C0: 31 38 33 30 20 47 4F 53 55 42 20 39 39 38 30 F9 1830 GOSUB 9980.
00A0D0: 3B 3A 49 46 20 61 31 3E 36 20 4F 52 20 61 31 3D ;:IF a1>6 OR a1=
00A0E0: 32 20 41 4E 44 20 61 28 31 2C 33 29 3D 31 20 4F 2 AND a(1,3)=1 O
00A0F0: 52 20 61 28 32 2C 33 29 3D 31 20 41 4E 44 20 61 R a(2,3)=1 AND a
00A100: 31 3D 34 20 54 48 45 4E 20 31 38 33 30 20 45 4C 1=4 THEN 1830 EL
00A110: 53 45 20 49 46 20 61 31 3D 36 20 54 48 45 4E 20 SE IF a1=6 THEN
00A120: 52 45 54 55 52 4E 0D 0A 31 38 33 38 20 43 4C 53 RETURN..1838 CLS
00A130: 3A 4F 4E 20 61 31 20 47 4F 54 4F 20 31 38 34 30 :ON a1 GOTO 1840
00A140: 2C 31 38 35 30 2C 31 38 36 30 2C 31 38 37 30 2C ,1850,1860,1870,
00A150: 31 38 38 30 0D 0A 31 38 34 30 20 49 46 20 61 28 1880..1840 IF a(
00A160: 31 2C 33 29 3E 30 20 54 48 45 4E 20 61 28 31 2C 1,3)>0 THEN a(1,
00A170: 33 29 3D 30 3A 61 76 3D 61 76 2D 31 3A 47 4F 54 3)=0:av=av-1:GOT
00A180: 4F 20 31 38 30 30 0D 0A 31 38 34 35 20 61 28 31 O 1800..1845 a(1
00A190: 2C 33 29 3D 32 35 35 3A 61 76 3D 61 76 2B 31 3A ,3)=255:av=av+1:
00A1A0: 61 28 31 2C 32 29 3D 77 28 31 29 3A 72 62 3D 31 a(1,2)=w(1):rb=1
00A1B0: 3A 72 61 3D 31 3A 47 4F 53 55 42 20 39 38 30 30 :ra=1:GOSUB 9800
00A1C0: 3A 47 4F 54 4F 20 31 38 30 30 0D 0A 31 38 35 30 :GOTO 1800..1850
00A1D0: 20 BE 33 61 28 31 2C 33 29 3D 49 4E 54 28 52 4E .3a(1,3)=INT(RN
00A1E0: 44 2A 33 30 29 2B 33 30 3A 61 28 31 2C 32 29 3D D*30)+30:a(1,2)=
00A1F0: 77 28 32 29 3A 61 76 3D 61 76 2B 31 3A 47 4F 54 w(2):av=av+1:GOT
00A200: 4F 20 31 38 30 30 0D 0A 31 38 36 30 20 49 46 20 O 1800..1860 IF
00A210: 61 28 32 2C 33 29 3E 30 20 54 48 45 4E 20 61 28 a(2,3)>0 THEN a(
00A220: 32 2C 33 29 3D 30 3A 61 76 3D 61 76 2D 31 3A 47 2,3)=0:av=av-1:G
00A230: 4F 54 4F 20 31 38 30 30 0D 0A 31 38 36 35 20 61 OTO 1800..1865 a
00A240: 28 32 2C 33 29 3D 32 35 35 3A 61 76 3D 61 76 2B (2,3)=255:av=av+
00A250: 31 3A 61 28 32 2C 32 29 3D 77 28 33 29 3A 47 4F 1:a(2,2)=w(3):GO
00A260: 54 4F 20 31 38 30 30 0D 0A 31 38 37 30 20 61 28 TO 1800..1870 a(
00A270: 32 2C 33 29 3D 49 4E 54 28 52 4E 44 2A 33 30 29 2,3)=INT(RND*30)
00A280: 2B 33 30 3A 61 28 32 2C 32 29 3D 77 28 34 29 3A +30:a(2,2)=w(4):
00A290: 61 76 3D 61 76 2B 31 3A 47 4F 54 4F 20 31 38 30 av=av+1:GOTO 180
00A2A0: 30 0D 0A 31 38 38 30 20 43 4C 53 3A 50 52 49 4E 0..1880 CLS:PRIN
00A2B0: 54 20 54 41 42 20 28 31 38 29 3B 22 43 4C 55 42 T TAB (18);"CLUB
00A2C0: 53 22 2C 2C 2C 3A 46 4F 52 20 6E 3D 31 20 54 4F S",,,:FOR n=1 TO
00A2D0: 20 35 3A 51 A4 50 52 49 4E 54 20 54 41 42 28 31 5:Q.PRINT TAB(1
00A2E0: 30 29 3B 70 61 24 28 34 29 3B 43 48 52 24 28 41 0);pa$(4);CHR$(A
00A2F0: 53 43 28 22 41 22 29 2D 31 2B 6E 29 3B 70 61 24 SC("A")-1+n);pa$
00A300: 28 31 29 3B 22 20 20 22 3B 6E 3B 22 57 4F 4F 44 (1);" ";n;"WOOD
00A310: 22 3A 4E 45 58 54 0D 0A 31 38 39 30 20 46 4F 52 ":NEXT..1890 FOR
00A320: 20 6E 3D 31 20 54 4F 20 39 3A 50 52 49 4E 54 20 n=1 TO 9:PRINT
00A330: 54 41 42 28 31 30 29 3B 70 61 24 28 34 29 3B 43 TAB(10);pa$(4);C
00A340: 48 52 24 28 41 53 43 28 22 41 22 29 2B 34 2B 6E HR$(ASC("A")+4+n
00A350: 29 3B 70 61 24 28 31 29 3B 22 20 20 22 3B 6E 3B );pa$(1);" ";n;
00A360: 22 49 52 4F 4E 22 3A 4E 45 58 54 0D 0A 31 39 30 "IRON":NEXT..190
00A370: 30 20 50 52 49 4E 54 20 54 41 42 28 31 30 29 3B 0 PRINT TAB(10);
00A380: 70 61 24 28 34 29 3B 22 4F 22 3B 70 61 24 28 31 pa$(4);"O";pa$(1
00A390: 29 3B 22 20 20 20 53 41 4E 44 20 57 45 44 47 45 );" SAND WEDGE
00A3A0: 22 3B 54 41 42 28 31 30 29 3B 70 61 24 28 34 29 ";TAB(10);pa$(4)
00A3B0: 3B 22 50 22 3B 70 61 24 28 31 29 3B 22 20 20 20 ;"P";pa$(1);"
00A3C0: 50 55 54 54 49 4E 47 20 57 45 44 47 45 22 3B 54 PUTTING WEDGE";T
00A3D0: 41 42 28 31 30 D4 1B FF FF FF FE 11 D2 08 F6 04 AB(10...........
00A3E0: B8 03 7F 04 FF 08 FE 0F 07 12 00 07 01 00 2C 41 ..............,A
00A3F0: 47 4F 4C 46 00 00 00 00 00 00 00 00 00 00 00 07 GOLF............
00A400: 00 16 00 08 7C 9E 00 00 00 00 00 00 00 00 00 00 ....|...........
00A410: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A420: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A430: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A440: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A450: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A4A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A4B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A4C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A4D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A4E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 F5 ................
00A4F0: FC FF FF FF FE 11 D4 08 A6 04 08 04 70 04 E2 08 ............p...
00A500: FE 0F 07 A6 0A 15 08 00 16 29 3B 70 61 24 28 34 .........);pa$(4
00A510: 29 3B 22 51 22 3B 70 61 24 28 31 29 3B 22 20 20 );"Q";pa$(1);"
00A520: 20 50 55 54 54 45 52 22 3A 49 46 20 61 77 3D 30 PUTTER":IF aw=0
00A530: 20 54 48 45 4E 20 47 4F 53 55 42 20 39 39 33 30 THEN GOSUB 9930
00A540: 3A 47 4F 54 4F 20 31 38 30 30 0D 0A 31 39 31 30 :GOTO 1800..1910
00A550: 20 4C 4F 43 41 54 45 20 32 37 2C 61 77 2B 32 3A LOCATE 27,aw+2:
00A560: 50 52 49 4E 54 20 70 61 24 28 32 29 3B 22 42 52 PRINT pa$(2);"BR
00A570: 4F 4B 45 4E 22 3A 47 4F 53 55 42 20 39 39 36 30 OKEN":GOSUB 9960
00A580: 0D 0A 31 39 32 30 20 47 4F 53 55 42 20 36 34 32 ..1920 GOSUB 642
00A590: 30 30 3A 49 46 20 69 6E 24 3C 22 41 22 20 4F 52 00:IF in$<"A" OR
00A5A0: 20 69 6E 24 3E 22 51 22 20 54 48 45 4E 20 31 39 in$>"Q" THEN 19
00A5B0: 32 30 0D 0A 31 39 33 30 20 72 62 3D 41 53 43 28 20..1930 rb=ASC(
00A5C0: 69 6E 24 29 2D 36 34 3A 49 46 20 72 62 3D 31 38 in$)-64:IF rb=18
00A5D0: 20 54 48 45 4E 20 31 38 30 30 20 45 4C 53 45 20 THEN 1800 ELSE
00A5E0: 49 46 20 72 62 3C 3E 61 77 20 54 48 45 4E 20 31 IF rb<>aw THEN 1
00A5F0: 39 32 30 0D 0A 31 39 34 30 20 72 61 3D 2D 32 30 920..1940 ra=-20
00A600: 2A 28 61 77 3C 36 29 2D 31 91 61 35 2A 28 61 77 *(aw<6)-1.a5*(aw
00A610: 3E 35 29 3A 72 61 3D 72 61 2D 28 61 77 3C 36 29 >5):ra=ra-(aw<6)
00A620: 2A 49 4E 54 28 52 4E 44 2A 33 30 29 2D 28 61 77 *INT(RND*30)-(aw
00A630: 3E 35 29 2A 49 4E 54 28 52 4E 44 2A 32 35 29 3A >5)*INT(RND*25):
00A640: 43 4C 53 3A 4C 4F 43 41 54 45 20 35 2C 31 31 3A CLS:LOCATE 5,11:
00A650: 50 52 49 4E 54 22 43 4F 53 54 20 54 4F 20 52 45 PRINT"COST TO RE
00A660: 50 4C 41 43 45 20 49 54 20 22 3B 3A 74 7A 3D 72 PLACE IT ";:tz=r
00A670: 61 3A 47 4F 53 55 42 20 36 33 35 30 30 3A 47 4F a:GOSUB 63500:GO
00A680: 53 55 42 20 39 39 37 30 3A 49 46 20 7A 24 3D 22 SUB 9970:IF z$="
00A690: 4E 22 20 54 48 45 4E 20 31 38 30 30 0D 0A 31 39 N" THEN 1800..19
00A6A0: 35 30 20 7A 61 3D 7A 61 2D 72 61 3A 47 4F 53 55 50 za=za-ra:GOSU
00A6B0: 42 20 39 37 35 30 3A 79 24 3D 4D 49 44 24 28 7A B 9750:y$=MID$(z
00A6C0: 24 2C 72 61 2C 32 29 3A 72 62 3D 46 4E 61 28 56 $,ra,2):rb=FNa(V
00A6D0: 41 4C 28 79 24 29 2B 32 29 0D 0A 31 39 36 30 20 AL(y$)+2)..1960
00A6E0: 61 77 3D 30 3A 76 24 28 31 29 3D 7A 24 3A 47 4F aw=0:v$(1)=z$:GO
00A6F0: 54 4F 20 31 38 30 30 0D 0A 32 32 30 30 20 43 4C TO 1800..2200 CL
00A700: 53 3A 50 52 49 4E 54 20 54 41 42 4C 57 28 31 35 S:PRINT TABLW(15
00A710: 29 3B 70 61 24 28 32 29 3B 22 46 49 58 54 55 52 );pa$(2);"FIXTUR
00A720: 45 53 22 3B 70 61 24 28 31 29 2C 2C 3A 46 4F 52 ES";pa$(1),,:FOR
00A730: 20 6E 3D 31 20 54 4F 20 32 30 3A 50 45 4E 20 31 n=1 TO 20:PEN 1
00A740: 2D 32 2A 28 6E 2F 32 3D 49 4E 54 28 6E 2F 32 29 -2*(n/2=INT(n/2)
00A750: 29 3A 50 52 49 4E 54 20 54 41 42 28 35 29 3B 61 ):PRINT TAB(5);a
00A760: 24 28 6C 28 6E 2C 31 29 29 3B 22 20 22 3B 3A 49 $(l(n,1));" ";:I
00A770: 46 20 6E 3C 61 62 20 54 48 45 4E 20 50 52 49 4E F n<ab THEN PRIN
00A780: 54 20 75 24 28 6C 28 6E 2C 32 29 29 0D 0A 32 32 T u$(l(n,2))..22
00A790: 31 30 20 4E 45 58 54 3A 49 46 20 61 62 3C 32 31 10 NEXT:IF ab<21
00A7A0: 20 54 48 45 4E 20 39 39 34 30 20 45 4C 53 45 20 THEN 9940 ELSE
00A7B0: 39 39 33 30 0D 0A 32 36 30 30 20 42 4F 52 44 45 9930..2600 BORDE
00A7C0: 52 20 31 3A 49 4E 4B 20 30 2C 31 3A 50 52 49 4E R 1:INK 0,1:PRIN
00A7D0: 54 20 70 61 24 28 31 29 3A 43 4C 53 3A 50 52 49 T pa$(1):CLS:PRI
00A7E0: 4E 54 20 54 41 42 28 31 31 29 3B 70 61 24 28 34 NT TAB(11);pa$(4
00A7F0: 29 3B 22 20 48 4F 54 45 4C 53 20 41 56 41 49 4C );" HOTELS AVAIL
00A800: 41 42 4C 45 20 22 3B 70 61 24 28 31 29 79 4D 3A ABLE ";pa$(1)yM:
00A810: 46 4F 52 20 6E 3D 31 20 54 4F 20 34 3A 77 28 6E FOR n=1 TO 4:w(n
00A820: 29 3D 6E 2D 32 3A 77 28 6E 2B 38 29 3D 31 2B 49 )=n-2:w(n+8)=1+I
00A830: 4E 54 28 52 4E 44 2A 34 29 3A 4E 45 58 54 3A 77 NT(RND*4):NEXT:w
00A840: 28 35 29 3D 31 30 2B 49 4E 54 28 52 4E 44 2A 31 (5)=10+INT(RND*1
00A850: 30 29 3A 77 28 36 29 3D 32 30 2B 49 4E 54 28 52 0):w(6)=20+INT(R
00A860: 4E 44 2A 31 35 29 3A 77 28 37 29 3D 35 30 2B 49 ND*15):w(7)=50+I
00A870: 4E 54 28 52 4E 44 2A 35 30 29 3A 77 28 38 29 3D NT(RND*50):w(8)=
00A880: 31 30 30 2B 49 4E 54 28 52 4E 44 2A 35 30 29 0D 100+INT(RND*50).
00A890: 0A 32 36 32 30 20 79 24 3D 22 4D 49 4C 45 53 20 .2620 y$="MILES
00A8A0: 46 52 4F 4D 20 43 4F 55 52 53 45 22 3A 7A 24 3D FROM COURSE":z$=
00A8B0: 22 20 50 45 52 20 4E 49 47 48 54 22 3A 50 52 49 " PER NIGHT":PRI
00A8C0: 4E 54 20 2C 2C 54 41 42 28 36 29 3B 22 31 2E 20 NT ,,TAB(6);"1.
00A8D0: 42 45 44 20 26 20 42 52 45 41 4B 46 41 53 54 20 BED & BREAKFAST
00A8E0: 20 22 3B 3A 74 7A 3D 77 28 35 29 3A 47 4F 53 55 ";:tz=w(5):GOSU
00A8F0: 42 20 36 33 35 30 30 3A 50 52 49 4E 54 20 7A 24 B 63500:PRINT z$
00A900: 2C 54 41 42 28 39 29 3B 77 28 39 29 3B 79 24 B5 ,TAB(9);w(9);y$.
00A910: D1 3A 46 4F 52 20 6E 3D 33 20 54 4F 20 35 3A 50 .:FOR n=3 TO 5:P
00A920: 52 49 4E 54 20 2C 2C 54 41 42 28 36 29 3B 55 53 RINT ,,TAB(6);US
00A930: 49 4E 47 22 23 22 3B 6E 2D 31 3B 3A 50 52 49 4E ING"#";n-1;:PRIN
00A940: 54 20 22 2E 22 3B 6E 3B 22 53 54 41 52 20 20 22 T ".";n;"STAR "
00A950: 3B 3A 74 7A 3D 77 28 6E 2B 33 29 3A 47 4F 53 55 ;:tz=w(n+3):GOSU
00A960: 42 20 36 33 35 30 30 0D 0A 32 36 33 30 20 50 52 B 63500..2630 PR
00A970: 49 4E 54 20 7A 24 2C 54 41 42 28 39 29 3B 77 28 INT z$,TAB(9);w(
00A980: 6E 2B 37 29 3B 79 24 3A 4E 45 58 54 3A 50 52 49 n+7);y$:NEXT:PRI
00A990: 4E 54 20 2C 2C 2C 2C 2C 2C 2C 2C 54 41 42 28 31 NT ,,,,,,,,TAB(1
00A9A0: 33 29 3B 70 61 24 28 35 29 3B 22 20 53 45 4C 45 3);pa$(5);" SELE
00A9B0: 43 54 20 48 4F 54 45 4C 20 22 3B 70 61 24 28 31 CT HOTEL ";pa$(1
00A9C0: 29 0D 0A 32 36 37 30 20 47 4F 53 55 42 20 39 39 )..2670 GOSUB 99
00A9D0: 36 30 3A 47 4F 53 55 42 20 39 39 38 30 3A 49 46 60:GOSUB 9980:IF
00A9E0: 20 61 31 3C 31 20 4F 52 20 61 31 3E 34 20 54 48 a1<1 OR a1>4 TH
00A9F0: 45 4E 20 32 36 37 30 0D 0A 32 36 38 30 20 61 72 EN 2670..2680 ar
00AA00: 3D 32 2B 77 28 61 31 29 2D 49 4E 54 28 77 28 61 =2+w(a1)-INT(w(a
00AA10: 31 F7 C6 2B 38 29 2F 32 29 3A 7A 6F 3D 77 28 61 1..+8)/2):zo=w(a
00AA20: 31 2B 34 29 3A 47 4F 54 4F 20 36 35 31 30 30 0D 1+4):GOTO 65100.
00AA30: 0A 33 30 30 30 20 43 4C 53 3A 50 45 4E 20 33 3A .3000 CLS:PEN 3:
00AA40: 50 52 49 4E 54 20 54 41 42 28 31 30 29 3B 22 50 PRINT TAB(10);"P
00AA50: 52 4F 46 45 53 53 49 4F 4E 41 4C 20 47 4F 4C 46 ROFESSIONAL GOLF
00AA60: 45 52 53 22 3A 72 61 3D 31 3A 50 45 4E 20 31 0D ERS":ra=1:PEN 1.
00AA70: 0A 33 30 31 30 20 46 4F 52 20 6E 3D 32 20 54 4F .3010 FOR n=2 TO
00AA80: 20 32 31 3A 50 52 49 4E 54 20 54 41 42 28 35 29 21:PRINT TAB(5)
00AA90: 3B 55 53 49 4E 47 22 23 23 22 3B 6E 2D 31 3B 3A ;USING"##";n-1;:
00AAA0: 50 52 49 4E 54 20 54 41 42 28 38 29 3B 75 24 28 PRINT TAB(8);u$(
00AAB0: 6E 29 3B 3A 49 46 20 4E 3C 32 31 20 54 48 45 4E n);:IF N<21 THEN
00AAC0: 20 50 52 49 4E 54 20 54 41 42 28 32 31 29 3B 55 PRINT TAB(21);U
00AAD0: 53 49 4E 47 22 23 23 22 3B 6E 2B 31 39 3B 3A 50 SING"##";n+19;:P
00AAE0: 52 49 4E 54 20 22 20 22 3B 75 24 28 6E 2B 32 30 RINT " ";u$(n+20
00AAF0: 29 0D 0A 33 30 32 30 20 4E 45 58 54 3A 47 4F 53 )..3020 NEXT:GOS
00AB00: 55 42 20 39 39 35 30 0D 0A 33 30 33 30 20 47 4F UB 9950..3030 GO
00AB10: 53 55 42 92 7D 20 36 34 32 30 30 3A 49 46 20 49 SUB.} 64200:IF I
00AB20: 4E 24 3D 22 4D 22 20 54 48 45 4E 20 52 45 54 55 N$="M" THEN RETU
00AB30: 52 4E 20 45 4C 53 45 20 49 46 20 49 4E 24 3C 3E RN ELSE IF IN$<>
00AB40: 22 43 22 20 54 48 45 4E 20 33 30 33 30 0D 0A 33 "C" THEN 3030..3
00AB50: 30 34 30 20 43 4C 53 23 32 3A 49 4E 50 55 54 23 040 CLS#2:INPUT#
00AB60: 32 2C 22 4E 75 6D 62 65 72 20 74 6F 20 63 68 61 2,"Number to cha
00AB70: 6E 67 65 22 3B 72 61 3A 43 4C 53 23 32 3A 49 46 nge";ra:CLS#2:IF
00AB80: 20 72 61 3C 31 20 4F 52 20 72 61 3E 33 39 20 54 ra<1 OR ra>39 T
00AB90: 48 45 4E 20 33 30 34 30 0D 0A 33 30 35 30 20 49 HEN 3040..3050 I
00ABA0: 4E 50 55 54 23 32 2C 22 4E 65 77 20 6E 61 6D 65 NPUT#2,"New name
00ABB0: 20 28 6D 61 78 20 31 31 29 22 3B 7A 24 3A 43 4C (max 11)";z$:CL
00ABC0: 53 23 32 3A 49 46 20 7A 24 3D 22 22 20 4F 52 20 S#2:IF z$="" OR
00ABD0: 4C 45 4E 20 28 7A 24 29 3E 31 31 20 54 48 45 4E LEN (z$)>11 THEN
00ABE0: 20 33 30 35 30 0D 0A 33 30 36 30 20 75 24 28 72 3050..3060 u$(r
00ABF0: 61 2B 31 29 3D 55 50 50 45 52 24 28 7A 24 29 2B a+1)=UPPER$(z$)+
00AC00: 53 50 41 43 45 24 28 31 31 2D 4C 45 4E 28 7A 24 SPACE$(11-LEN(z$
00AC10: 29 29 3A 47 4F 33 90 54 4F 20 33 30 30 30 0D 0A )):GO3.TO 3000..
00AC20: 33 34 30 30 20 43 4C 53 3A 50 52 49 4E 54 20 54 3400 CLS:PRINT T
00AC30: 41 42 28 31 38 29 3B 70 61 24 28 32 29 3B 22 42 AB(18);pa$(2);"B
00AC40: 41 4E 4B 22 3B 70 61 24 28 31 29 3A 49 46 20 73 ANK";pa$(1):IF s
00AC50: 28 34 29 3D 30 20 54 48 45 4E 20 4C 4F 43 41 54 (4)=0 THEN LOCAT
00AC60: 45 20 31 32 2C 36 3A 50 52 49 4E 54 20 22 31 2E E 12,6:PRINT "1.
00AC70: 20 4D 4F 52 54 47 41 47 45 20 48 4F 55 53 45 22 MORTGAGE HOUSE"
00AC80: 0D 0A 33 34 32 30 20 49 46 20 73 28 35 29 3D 30 ..3420 IF s(5)=0
00AC90: 20 54 48 45 4E 20 4C 4F 43 41 54 45 20 31 32 2C THEN LOCATE 12,
00ACA0: 38 3A 50 52 49 4E 54 20 22 32 2E 20 4C 4F 41 4E 8:PRINT "2. LOAN
00ACB0: 22 0D 0A 33 34 33 30 20 4C 4F 43 41 54 45 20 31 "..3430 LOCATE 1
00ACC0: 32 2C 31 31 3A 50 52 49 4E 54 20 22 4D 20 20 4D 2,11:PRINT "M M
00ACD0: 45 4E 55 22 3A 47 4F 53 55 42 20 39 39 36 30 0D ENU":GOSUB 9960.
00ACE0: 0A 33 34 34 30 20 47 4F 53 55 42 20 36 34 32 30 .3440 GOSUB 6420
00ACF0: 30 3A 49 46 20 49 4E 24 3D 22 4D 22 20 54 48 45 0:IF IN$="M" THE
00AD00: 4E 20 52 45 54 55 52 4E 20 20 45 4C 53 45 20 49 N RETURN ELSE I
00AD10: 46 20 49 4E 24 3C 3E 1B B9 FF FF FF FE 11 EC 08 F IN$<>.........
00AD20: F6 04 B8 03 8D 04 1B 09 FF 0F 07 12 00 07 01 00 ................
00AD30: 2C 41 47 4F 4C 46 00 00 00 00 00 00 00 00 00 00 ,AGOLF..........
00AD40: 00 08 00 16 00 08 7C 9E 00 00 00 00 00 00 00 00 ......|.........
00AD50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AD60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AD70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AD80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AD90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ADA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ADB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ADC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ADD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ADE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ADF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AE00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AE10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AE20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AE30: 00 28 30 FF FF FF FE 11 F6 08 A6 04 08 04 6F 04 .(0...........o.
00AE40: DF 08 FF 0F 07 9E 0A 15 08 00 16 22 31 22 20 4F ..........."1" O
00AE50: 52 20 73 28 34 29 3E 30 20 54 48 45 4E 20 33 35 R s(4)>0 THEN 35
00AE60: 30 30 0D 0A 33 34 36 30 20 72 62 3D 31 3A 47 4F 00..3460 rb=1:GO
00AE70: 53 55 42 20 34 30 3A 7A 31 3D 28 72 63 2A 32 30 SUB 40:z1=(rc*20
00AE80: 30 30 2F 31 30 30 29 2A 38 30 3A 7A 32 3D 49 4E 00/100)*80:z2=IN
00AE90: 54 28 7A 31 2B 28 7A 31 2F 31 30 30 29 2A 32 30 T(z1+(z1/100)*20
00AEA0: 29 2F 38 30 3A 4C 4F 43 41 54 45 20 35 2C 31 35 )/80:LOCATE 5,15
00AEB0: 3A 50 52 49 4E 54 22 54 48 45 20 42 41 4E 4B 20 :PRINT"THE BANK
00AEC0: 57 49 4C 4C 20 4F 46 46 45 52 20 59 4F 55 20 22 WILL OFFER YOU "
00AED0: 3B 3A 74 7A 3D 7A 31 3A 47 4F 53 55 42 20 36 33 ;:tz=z1:GOSUB 63
00AEE0: 35 30 30 3A 50 52 49 4E 54 22 49 4E 54 45 52 45 500:PRINT"INTERE
00AEF0: 53 54 20 52 41 54 45 20 2E 37 25 20 50 45 52 20 ST RATE .7% PER
00AF00: 57 45 45 4B 20 46 4F 52 20 38 30 20 57 45 45 4B WEEK FOR 80 WEEK
00AF10: 53 22 2C 3A 47 4F 53 55 42 20 33 36 30 30 0D 0A S",:GOSUB 3600..
00AF20: 33 34 37 30 20 49 46 20 7A 24 3C 3E 22 59 22 20 3470 IF z$<>"Y"
00AF30: 54 48 45 4E 20 33 34 30 30 20 45 4C 53 45 20 73 THEN 3400 ELSE s
00AF40: 28 34 29 3D 38 30 3A 7A 61 3D 7A 6A 65 61 2B 7A (4)=80:za=zjea+z
00AF50: 31 3A 7A 6D 3D 7A 32 3A 52 45 54 55 52 4E 0D 0A 1:zm=z2:RETURN..
00AF60: 33 35 30 30 20 49 46 20 49 4E 24 3C 3E 22 32 22 3500 IF IN$<>"2"
00AF70: 20 4F 52 20 73 28 35 29 3E 30 20 54 48 45 4E 20 OR s(5)>0 THEN
00AF80: 33 34 34 30 0D 0A 33 35 31 30 20 49 4E 50 55 54 3440..3510 INPUT
00AF90: 23 32 2C 22 48 4F 57 20 4D 55 43 48 20 22 3B 7A #2,"HOW MUCH ";z
00AFA0: 31 3A 43 4C 53 23 32 3A 49 46 20 7A 31 3C 34 30 1:CLS#2:IF z1<40
00AFB0: 20 4F 52 20 7A 31 3E 31 30 30 30 30 20 54 48 45 OR z1>10000 THE
00AFC0: 4E 20 33 35 31 30 0D 0A 33 35 31 35 20 7A 32 3D N 3510..3515 z2=
00AFD0: 49 4E 54 28 7A 31 2B 28 7A 31 2F 31 30 30 29 2A INT(z1+(z1/100)*
00AFE0: 32 34 29 2F 34 30 3A 4C 4F 43 41 54 45 20 35 2C 24)/40:LOCATE 5,
00AFF0: 31 35 3A 50 52 49 4E 54 20 22 54 48 45 20 42 41 15:PRINT "THE BA
00B000: 4E 4B 20 57 49 4C 4C 20 4C 4F 41 4E 20 59 4F 55 NK WILL LOAN YOU
00B010: 20 22 3B 3A 74 7A 3D 7A 31 3A 47 4F 53 55 42 20 ";:tz=z1:GOSUB
00B020: 36 33 35 30 30 3A 50 52 49 4E 54 20 22 49 4E 54 63500:PRINT "INT
00B030: 45 52 45 53 54 20 52 41 54 45 20 2E 38 25 20 50 EREST RATE .8% P
00B040: 45 52 20 57 45 45 4B 22 3B 22 54 4F 20 07 F2 42 ER WEEK";"TO ..B
00B050: 45 20 52 45 50 41 49 44 20 4F 56 45 52 20 34 30 E REPAID OVER 40
00B060: 20 57 45 45 4B 53 22 2C 3A 47 4F 53 55 42 20 33 WEEKS",:GOSUB 3
00B070: 36 30 30 0D 0A 33 35 32 30 20 49 46 20 7A 24 3C 600..3520 IF z$<
00B080: 3E 22 59 22 20 54 48 45 4E 20 33 34 30 30 20 45 >"Y" THEN 3400 E
00B090: 4C 53 45 20 73 28 35 29 3D 34 30 3A 7A 61 3D 7A LSE s(5)=40:za=z
00B0A0: 61 2B 7A 31 3A 7A 6C 3D 7A 32 3A 52 45 54 55 52 a+z1:zl=z2:RETUR
00B0B0: 4E 0D 0A 33 36 30 30 20 50 52 49 4E 54 22 41 54 N..3600 PRINT"AT
00B0C0: 20 22 3B 3A 74 7A 3D 7A 32 3A 47 4F 53 55 42 20 ";:tz=z2:GOSUB
00B0D0: 36 33 35 30 30 3A 50 52 49 4E 54 20 22 20 50 45 63500:PRINT " PE
00B0E0: 52 20 57 45 45 4B 22 3A 47 4F 54 4F 20 39 39 37 R WEEK":GOTO 997
00B0F0: 30 0D 0A 33 38 30 30 20 72 68 3D 30 3A 49 46 20 0..3800 rh=0:IF
00B100: 73 28 31 29 3E 30 20 41 4E 44 20 73 28 32 29 3E s(1)>0 AND s(2)>
00B110: 30 20 41 4E 44 20 73 28 33 29 3E 30 20 54 48 45 0 AND s(3)>0 THE
00B120: 4E 20 52 45 54 55 52 4E 20 0D 0A 33 38 32 30 20 N RETURN ..3820
00B130: 43 4C 53 3A 50 52 49 4E 54 20 54 41 42 28 31 35 CLS:PRINT TAB(15
00B140: 29 3B 70 61 24 28 32 29 3B 22 20 53 50 4F 4E 50 );pa$(2);" SPONP
00B150: 6F 53 4F 52 53 48 49 50 20 22 3B 70 61 24 28 31 oSORSHIP ";pa$(1
00B160: 29 3A 72 62 3D 31 3A 47 4F 53 55 42 20 34 30 3A ):rb=1:GOSUB 40:
00B170: 72 65 3D 31 2B 49 4E 54 28 52 4E 44 2A 34 29 3A re=1+INT(RND*4):
00B180: 49 46 20 72 65 3E 33 20 4F 52 20 73 28 72 65 29 IF re>3 OR s(re)
00B190: 3E 30 20 4F 52 20 61 62 3C 33 20 4F 52 20 72 68 >0 OR ab<3 OR rh
00B1A0: 3E 32 20 54 48 45 4E 20 4C 4F 43 41 54 45 20 31 >2 THEN LOCATE 1
00B1B0: 30 2C 31 31 3A 50 52 49 4E 54 20 22 4E 4F 20 4F 0,11:PRINT "NO O
00B1C0: 4E 45 20 49 53 20 49 4E 54 45 52 45 53 54 45 44 NE IS INTERESTED
00B1D0: 22 2C 2C 54 41 42 28 31 31 29 3B 22 49 4E 20 53 ",,TAB(11);"IN S
00B1E0: 50 4F 4E 53 4F 52 49 4E 47 20 59 4F 55 22 3A 4D PONSORING YOU":M
00B1F0: 49 44 24 28 66 24 2C 37 2C 31 29 3D 22 31 22 3A ID$(f$,7,1)="1":
00B200: 47 4F 54 4F 20 39 39 34 30 0D 0A 33 38 37 30 20 GOTO 9940..3870
00B210: 72 68 3D 72 68 2B 31 3A 7A 24 3D 53 54 52 24 28 rh=rh+1:z$=STR$(
00B220: 72 63 29 3A 4D 49 44 24 28 7A 24 2C 33 2C 31 29 rc):MID$(z$,3,1)
00B230: 3D 22 39 22 3A 72 63 3D 56 41 4C 28 7A 24 29 3A ="9":rc=VAL(z$):
00B240: 72 62 3D 49 4E 54 28 28 52 4E 44 2A 28 28 72 63 rb=INT((RND*((rc
00B250: 2D 30 3E 34 30 29 2A 35 29 2D 28 72 63 3E 39 30 -0>40)*5)-(rc>90
00B260: 29 2A 35 30 30 29 2B 28 72 63 2D 34 30 29 2A 35 )*500)+(rc-40)*5
00B270: 29 0D 0A 33 38 38 30 20 72 61 3D 31 2B 49 4E 54 )..3880 ra=1+INT
00B280: 28 28 52 4E 44 2A 28 28 72 63 29 2F 32 35 29 2D ((RND*((rc)/25)-
00B290: 28 72 63 3E 39 30 29 2A 32 30 2D 28 72 63 3E 38 (rc>90)*20-(rc>8
00B2A0: 30 29 2A 31 30 2D 28 72 63 3E 37 30 29 2A 32 29 0)*10-(rc>70)*2)
00B2B0: 2D 28 72 63 3E 36 30 29 2A 32 2D 28 72 63 3E 35 -(rc>60)*2-(rc>5
00B2C0: 30 29 2A 32 29 0D 0A 33 38 39 30 20 72 64 3D 31 0)*2)..3890 rd=1
00B2D0: 2B 49 4E 54 28 52 4E 44 2A 39 29 3A 4C 4F 43 41 +INT(RND*9):LOCA
00B2E0: 54 45 20 31 32 2C 31 32 3A 50 52 49 4E 54 20 63 TE 12,12:PRINT c
00B2F0: 24 28 72 64 29 3B 22 20 4F 46 46 45 52 22 2C 2C $(rd);" OFFER",,
00B300: 2C 54 41 42 28 31 32 29 3B 3A 74 7A 3D 72 62 3A ,TAB(12);:tz=rb:
00B310: 47 4F 53 55 42 20 36 33 35 30 30 3A 50 52 49 4E GOSUB 63500:PRIN
00B320: 54 20 22 20 50 45 52 20 22 3B 6E 24 28 33 29 2C T " PER ";n$(3),
00B330: 2C 54 41 42 28 31 32 29 3B 22 46 4F 52 22 3B 72 ,TAB(12);"FOR";r
00B340: 61 3B 6E 24 28 33 29 3B 22 53 22 3A 47 4F 53 55 a;n$(3);"S":GOSU
00B350: 42 20 39 C2 7C 39 37 30 3A 49 46 20 7A 24 3C 3E B 9.|970:IF z$<>
00B360: 22 59 22 20 54 48 45 4E 20 72 68 3D 72 68 2B 31 "Y" THEN rh=rh+1
00B370: 3A 47 4F 54 4F 20 33 38 32 30 0D 0A 33 39 30 30 :GOTO 3820..3900
00B380: 20 73 28 72 65 29 3D 72 61 3A 73 28 37 2B 72 65 s(re)=ra:s(7+re
00B390: 29 3D 72 64 3A 73 28 72 65 2B 31 30 29 3D 72 62 )=rd:s(re+10)=rb
00B3A0: 3A 4D 49 44 24 28 66 24 2C 37 2C 31 29 3D 22 31 :MID$(f$,7,1)="1
00B3B0: 22 3A 52 45 54 55 52 4E 20 0D 0A 34 32 30 30 20 ":RETURN ..4200
00B3C0: 43 4C 53 3A 4C 4F 43 41 54 45 20 31 37 2C 37 3A CLS:LOCATE 17,7:
00B3D0: 50 52 49 4E 54 20 70 61 24 28 31 2D 28 73 28 37 PRINT pa$(1-(s(7
00B3E0: 29 3D 30 29 29 3B 22 30 20 45 41 53 59 22 3B 70 )=0));"0 EASY";p
00B3F0: 61 24 28 31 29 2C 2C 2C 2C 2C 54 41 42 28 31 37 a$(1),,,,,TAB(17
00B400: 29 3B 70 61 24 28 31 2D 28 73 28 37 29 3D 31 29 );pa$(1-(s(7)=1)
00B410: 29 3B 22 31 20 4D 45 44 49 55 4D 22 3B 70 61 24 );"1 MEDIUM";pa$
00B420: 28 31 29 2C 2C 2C 2C 2C 54 41 42 28 31 37 29 3B (1),,,,,TAB(17);
00B430: 70 61 24 28 31 2D 28 73 28 37 29 3D 32 29 29 3B pa$(1-(s(7)=2));
00B440: 22 32 20 48 41 52 44 22 3B 70 61 24 28 31 29 2C "2 HARD";pa$(1),
00B450: 2C 2C 2C 2C 2C 10 E8 2C 54 41 42 20 28 31 37 29 ,,,,,..,TAB (17)
00B460: 3B 22 4D 20 4D 45 4E 55 22 0D 0A 34 32 31 30 20 ;"M MENU"..4210
00B470: 47 4F 53 55 42 20 36 34 32 30 30 3A 49 46 20 69 GOSUB 64200:IF i
00B480: 6E 24 3D 22 4D 22 20 54 48 45 4E 20 52 45 54 55 n$="M" THEN RETU
00B490: 52 4E 20 45 4C 53 45 20 49 46 20 69 6E 24 20 3C RN ELSE IF in$ <
00B4A0: 22 30 22 20 4F 52 20 69 6E 24 20 3E 22 32 22 20 "0" OR in$ >"2"
00B4B0: 54 48 45 4E 20 34 32 31 30 0D 0A 34 32 32 30 20 THEN 4210..4220
00B4C0: 72 61 3D 56 41 4C 28 69 6E 24 29 3A 49 46 20 72 ra=VAL(in$):IF r
00B4D0: 61 3D 73 28 37 29 20 54 48 45 4E 20 34 32 31 30 a=s(7) THEN 4210
00B4E0: 0D 0A 34 32 33 30 20 47 4F 53 55 42 20 39 39 32 ..4230 GOSUB 992
00B4F0: 30 3A 72 62 3D 32 30 2A 28 72 61 2D 73 28 37 29 0:rb=20*(ra-s(7)
00B500: 29 3A 73 28 37 29 3D 72 61 3A 46 4F 52 20 6E 3D ):s(7)=ra:FOR n=
00B510: 31 20 54 4F 20 34 30 3A 49 46 20 6E 3C 3E 31 20 1 TO 40:IF n<>1
00B520: 54 48 45 4E 20 47 4F 53 55 42 20 39 38 30 30 0D THEN GOSUB 9800.
00B530: 0A 34 32 34 30 20 4E 45 58 54 3A 47 4F 54 4F 20 .4240 NEXT:GOTO
00B540: 34 32 30 30 0D 0A 35 34 30 30 20 49 46 20 61 62 4200..5400 IF ab
00B550: 3C 31 20 54 48 45 4E 8B 49 20 52 45 54 55 52 4E <1 THEN.I RETURN
00B560: 20 45 4C 53 45 20 43 4C 53 3A 47 4F 53 55 42 20 ELSE CLS:GOSUB
00B570: 39 39 32 30 3A 47 4F 53 55 42 20 33 30 3A 47 4F 9920:GOSUB 30:GO
00B580: 53 55 42 20 31 30 3A 43 4C 53 3A 50 52 49 4E 54 SUB 10:CLS:PRINT
00B590: 20 54 41 42 28 31 31 29 3B 70 61 24 28 32 29 3B TAB(11);pa$(2);
00B5A0: 6E 24 28 31 29 3B 22 4C 45 41 47 55 45 22 3B 70 n$(1);"LEAGUE";p
00B5B0: 61 24 28 31 29 2C 2C 2C 3A 46 4F 52 20 6E 3D 31 a$(1),,,:FOR n=1
00B5C0: 20 54 4F 20 32 30 0D 0A 35 34 30 35 20 49 46 20 TO 20..5405 IF
00B5D0: 6B 28 66 28 6E 29 29 3E 30 20 54 48 45 4E 20 50 k(f(n))>0 THEN P
00B5E0: 52 49 4E 54 20 54 41 42 28 35 29 3B 55 53 49 4E RINT TAB(5);USIN
00B5F0: 47 22 23 23 22 3B 6E 3B 3A 50 52 49 4E 54 20 54 G"##";n;:PRINT T
00B600: 41 42 28 39 29 3B 70 61 24 28 31 2D 28 66 28 6E AB(9);pa$(1-(f(n
00B610: 29 3D 31 29 29 3B 75 24 28 66 28 6E 29 29 3B 22 )=1));u$(f(n));"
00B620: 20 20 22 3B 70 61 24 28 31 29 3B 3A 74 7A 3D 6B ";pa$(1);:tz=k
00B630: 28 66 28 6E 29 29 3A 47 4F 53 55 42 20 36 33 35 (f(n)):GOSUB 635
00B640: 30 30 0D 0A 35 34 31 30 20 4E 45 58 54 3A 49 46 00..5410 NEXT:IF
00B650: 20 61 62 3C 32 31 20 54 48 3F 5E FF FF FF FE 11 ab<21 TH?^.....
00B660: F1 08 F6 04 08 04 8C 04 18 09 FE 0F 07 12 00 07 ................
00B670: 01 00 2C 41 47 4F 4C 46 00 00 00 00 00 00 00 00 ..,AGOLF........
00B680: 00 00 00 09 00 16 00 08 7C 9E 00 00 00 00 00 00 ........|.......
00B690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B700: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B710: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B720: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B730: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B740: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B750: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B770: 00 00 00 CF 3B FF FF FF FE 11 E0 08 A6 04 B8 03 ....;...........
00B780: 74 04 E9 08 FE 0F 07 B1 0A 15 08 00 16 45 4E 20 t............EN
00B790: 39 39 34 30 20 45 4C 53 45 20 39 39 33 30 0D 0A 9940 ELSE 9930..
00B7A0: 36 30 30 30 20 49 46 20 61 69 3C 3E 30 20 4F 52 6000 IF ai<>0 OR
00B7B0: 20 61 6C 3C 3E 30 20 4F 52 20 7A 61 3C 30 20 54 al<>0 OR za<0 T
00B7C0: 48 45 4E 20 52 45 54 55 52 4E 20 45 4C 53 45 20 HEN RETURN ELSE
00B7D0: 49 4E 4B 20 30 2C 32 3A 42 4F 52 44 45 52 20 32 INK 0,2:BORDER 2
00B7E0: 3A 50 52 49 4E 54 20 70 61 24 28 31 29 3A 43 4C :PRINT pa$(1):CL
00B7F0: 53 3A 4C 4F 43 41 54 45 20 31 2C 31 30 3A 50 52 S:LOCATE 1,10:PR
00B800: 49 4E 54 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 INT "DO YOU WANT
00B810: 20 54 4F 20 56 49 53 49 54 20 54 48 45 20 42 4F TO VISIT THE BO
00B820: 4F 4B 49 45 53 3F 20 28 59 2F 4E 29 22 3A 47 4F OKIES? (Y/N)":GO
00B830: 53 55 42 20 39 38 39 30 3A 49 46 20 7A 24 3D 22 SUB 9890:IF z$="
00B840: 4E 22 20 54 48 45 4E 20 39 38 36 30 0D 0A 36 30 N" THEN 9860..60
00B850: 30 35 20 45 52 41 53 45 20 77 3A 44 49 4D 20 77 05 ERASE w:DIM w
00B860: 28 34 30 29 3A 49 46 20 61 68 3D 32 30 20 54 48 (40):IF ah=20 TH
00B870: 45 4E 20 47 4F 53 55 42 20 36 33 30 30 20 45 4C EN GOSUB 6300 EL
00B880: 53 45 20 47 4F 53 55 42 20 36 32 30 30 16 6A 0D SE GOSUB 6200.j.
00B890: 0A 36 30 31 30 20 43 4C 53 3A 46 4F 52 20 6E 3D .6010 CLS:FOR n=
00B8A0: 31 20 54 4F 20 32 30 3A 4C 4F 43 41 54 45 20 31 1 TO 20:LOCATE 1
00B8B0: 2C 6E 2B 31 3A 50 52 49 4E 54 20 55 53 49 4E 47 ,n+1:PRINT USING
00B8C0: 22 23 23 22 3B 6E 3B 3A 50 52 49 4E 54 20 54 41 "##";n;:PRINT TA
00B8D0: 42 28 34 29 3B 52 49 47 48 54 24 28 74 24 28 6E B(4);RIGHT$(t$(n
00B8E0: 29 2C 39 29 3B 55 53 49 4E 47 22 23 23 23 22 3B ),9);USING"###";
00B8F0: 77 28 6E 29 3B 3A 50 52 49 4E 54 20 22 2F 31 22 w(n);:PRINT "/1"
00B900: 3B 3A 49 46 20 61 68 3E 32 30 20 54 48 45 4E 20 ;:IF ah>20 THEN
00B910: 50 52 49 4E 54 20 54 41 42 28 32 30 29 3B 55 53 PRINT TAB(20);US
00B920: 49 4E 47 22 23 23 22 3B 6E 2B 32 30 3B 3A 50 52 ING"##";n+20;:PR
00B930: 49 4E 54 20 22 20 22 3B 52 49 47 48 54 24 28 74 INT " ";RIGHT$(t
00B940: 24 28 6E 2B 32 30 29 2C 39 29 3B 22 20 22 3B 55 $(n+20),9);" ";U
00B950: 53 49 4E 47 22 23 23 23 22 3B 77 28 6E 2B 32 30 SING"###";w(n+20
00B960: 29 3B 3A 50 52 49 4E 54 22 2F 31 22 0D 0A 36 30 );:PRINT"/1"..60
00B970: 31 35 20 4E 45 58 54 0D 0A 36 30 32 30 20 49 4E 15 NEXT..6020 IN
00B980: 50 55 54 23 32 2C 22 50 4C 41 59 45 52 27 53 72 PUT#2,"PLAYER'Sr
00B990: 99 20 4E 55 4D 42 45 52 3F 20 28 30 20 45 58 49 . NUMBER? (0 EXI
00B9A0: 54 29 20 22 3B 72 61 3A 43 4C 53 23 32 3A 49 46 T) ";ra:CLS#2:IF
00B9B0: 20 72 61 3C 30 20 4F 52 20 72 61 3E 61 68 20 54 ra<0 OR ra>ah T
00B9C0: 48 45 4E 20 36 30 32 30 0D 0A 36 30 33 30 20 49 HEN 6020..6030 I
00B9D0: 46 20 72 61 3D 30 20 54 48 45 4E 20 39 38 36 30 F ra=0 THEN 9860
00B9E0: 20 45 4C 53 45 20 49 46 20 66 28 72 61 29 3D 31 ELSE IF f(ra)=1
00B9F0: 20 54 48 45 4E 20 36 30 32 30 0D 0A 36 31 34 30 THEN 6020..6140
00BA00: 20 43 4C 53 23 32 3A 49 4E 50 55 54 23 32 2C 22 CLS#2:INPUT#2,"
00BA10: 48 4F 57 20 4D 55 43 48 20 22 3B 7A 70 3A 43 4C HOW MUCH ";zp:CL
00BA20: 53 23 32 3A 7A 70 3D 49 4E 54 28 7A 70 29 3A 49 S#2:zp=INT(zp):I
00BA30: 46 20 7A 61 2D 7A 70 3C 2D 31 30 30 30 30 20 4F F za-zp<-10000 O
00BA40: 52 20 7A 70 3C 31 20 54 48 45 4E 20 36 31 34 30 R zp<1 THEN 6140
00BA50: 0D 0A 36 31 35 30 20 61 75 3D 66 28 72 61 29 3A ..6150 au=f(ra):
00BA60: 7A 66 3D 49 4E 54 28 7A 70 2B 7A 70 2A 77 28 72 zf=INT(zp+zp*w(r
00BA70: 61 29 29 3A 43 4C 53 23 32 3A 4C 4F 43 41 54 45 a)):CLS#2:LOCATE
00BA80: 20 35 2C 32 33 3A 50 52 49 4E 54 20 22 54 48 49 5,23:PRINT "THI
00BA90: 53 2E B6 20 57 49 4C 4C 20 52 45 54 55 52 4E 20 S.. WILL RETURN
00BAA0: 22 3B 3A 74 7A 3D 7A 66 3A 47 4F 53 55 42 20 36 ";:tz=zf:GOSUB 6
00BAB0: 33 35 30 30 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 3500:FOR n=1 TO
00BAC0: 34 30 30 30 3A 4E 45 58 54 3A 47 4F 53 55 42 20 4000:NEXT:GOSUB
00BAD0: 39 39 33 30 3A 47 4F 54 4F 20 39 38 36 30 0D 0A 9930:GOTO 9860..
00BAE0: 36 32 30 30 20 46 4F 52 20 6E 3D 31 20 54 4F 20 6200 FOR n=1 TO
00BAF0: 34 30 3A 77 28 6E 29 3D 30 2D 28 35 2D 49 4E 54 40:w(n)=0-(5-INT
00BB00: 28 52 4E 44 2A 34 29 29 2A 28 6A 28 6E 29 3E 38 (RND*4))*(j(n)>8
00BB10: 39 29 2D 28 6A 28 6E 29 3E 37 39 20 41 4E 44 20 9)-(j(n)>79 AND
00BB20: 6A 28 6E 29 3C 39 30 29 2A 28 31 35 2D 49 4E 54 j(n)<90)*(15-INT
00BB30: 28 52 4E 44 2A 31 30 29 29 2D 28 6A 28 6E 29 3E (RND*10))-(j(n)>
00BB40: 36 39 20 41 4E 44 20 6A 28 6E 29 3C 38 30 29 2A 69 AND j(n)<80)*
00BB50: 28 32 35 2D 49 4E 54 28 52 4E 44 2A 31 30 29 29 (25-INT(RND*10))
00BB60: 2D 28 6A 28 6E 29 3E 35 39 20 41 4E 44 20 6A 28 -(j(n)>59 AND j(
00BB70: 6E 29 3C 37 30 29 2A 28 35 30 2D 49 4E 54 28 52 n)<70)*(50-INT(R
00BB80: 4E 44 2A 32 30 29 29 2D 28 6A 28 6E 29 3C 36 30 ND*20))-(j(n)<60
00BB90: 29 2A 31 8C 79 30 30 3A 4E 45 58 54 3A 52 45 54 )*1.y00:NEXT:RET
00BBA0: 55 52 4E 0D 0A 36 33 30 30 20 46 4F 52 20 6E 3D URN..6300 FOR n=
00BBB0: 31 20 54 4F 20 32 30 3A 77 28 6E 29 3D 65 28 6E 1 TO 20:w(n)=e(n
00BBC0: 29 2D 65 28 31 29 2B 32 2D 28 6A 28 6E 29 3C 39 )-e(1)+2-(j(n)<9
00BBD0: 30 29 2A 49 4E 54 28 52 4E 44 2A 32 29 2D 49 4E 0)*INT(RND*2)-IN
00BBE0: 54 28 52 4E 44 2A 35 29 2A 28 6A 28 6E 29 3C 38 T(RND*5)*(j(n)<8
00BBF0: 30 29 2D 28 6A 28 6E 29 3C 37 30 29 2A 49 4E 54 0)-(j(n)<70)*INT
00BC00: 28 52 4E 44 2A 35 29 3A 4E 45 58 54 3A 52 45 54 (RND*5):NEXT:RET
00BC10: 55 52 4E 0D 0A 36 35 30 30 20 47 4F 53 55 42 20 URN..6500 GOSUB
00BC20: 39 38 36 30 3A 46 4F 52 20 6E 3D 32 31 20 54 4F 9860:FOR n=21 TO
00BC30: 20 34 30 3A 49 46 20 66 28 6E 29 3E 30 20 41 4E 40:IF f(n)>0 AN
00BC40: 44 20 20 66 28 6E 29 3C 34 31 20 54 48 45 4E 20 D f(n)<41 THEN
00BC50: 47 4F 53 55 42 20 37 30 3A 46 4F 52 20 61 3D 31 GOSUB 70:FOR a=1
00BC60: 20 54 4F 20 34 3A 77 28 61 29 3D 77 28 61 29 2D TO 4:w(a)=w(a)-
00BC70: 49 4E 54 28 52 4E 44 2A 32 29 3A 4E 45 58 54 3A INT(RND*2):NEXT:
00BC80: 63 28 66 28 6E 29 29 3D 63 28 66 28 6E 29 29 2D c(f(n))=c(f(n))-
00BC90: 32 0D 0A 36 35 ED C2 32 30 20 4E 45 58 54 3A 52 2..65..20 NEXT:R
00BCA0: 45 54 55 52 4E 20 0D 0A 36 37 30 30 20 72 65 3D ETURN ..6700 re=
00BCB0: 35 2D 28 61 6C 3D 30 29 2A 31 35 3A 49 46 20 72 5-(al=0)*15:IF r
00BCC0: 63 3D 30 20 54 48 45 4E 20 52 45 54 55 52 4E 20 c=0 THEN RETURN
00BCD0: 45 4C 53 45 20 43 4C 53 3A 4C 4F 43 41 54 45 20 ELSE CLS:LOCATE
00BCE0: 38 2C 38 3A 50 52 49 4E 54 20 22 59 4F 55 20 48 8,8:PRINT "YOU H
00BCF0: 41 56 45 20 22 3B 3A 49 46 20 72 63 3E 72 65 20 AVE ";:IF rc>re
00BD00: 54 48 45 4E 20 36 38 30 30 0D 0A 36 37 31 30 20 THEN 6800..6710
00BD10: 50 52 49 4E 54 20 22 51 55 41 49 4C 46 49 45 44 PRINT "QUAILFIED
00BD20: 20 46 4F 52 20 54 48 45 22 2C 2C 2C 2C 2C 54 41 FOR THE",,,,,TA
00BD30: 42 28 36 29 3B 22 46 49 4E 41 4C 20 53 54 41 47 B(6);"FINAL STAG
00BD40: 45 53 20 4F 46 20 54 48 45 20 22 3B 6E 24 28 33 ES OF THE ";n$(3
00BD50: 29 3A 50 52 49 4E 54 23 32 2C 70 61 24 28 32 29 ):PRINT#2,pa$(2)
00BD60: 3A 47 4F 54 4F 20 39 39 33 30 0D 0A 36 38 30 30 :GOTO 9930..6800
00BD70: 20 72 61 3D 65 28 72 63 29 2D 65 28 72 65 29 3A ra=e(rc)-e(re):
00BD80: 50 52 49 4E 54 20 22 46 41 49 4C 45 44 20 54 4F PRINT "FAILED TO
00BD90: 20 51 55 41 49 4C 46 01 D7 59 22 2C 2C 2C 2C 2C QUAILF..Y",,,,,
00BDA0: 54 41 42 28 34 29 3B 22 46 4F 52 20 54 48 45 20 TAB(4);"FOR THE
00BDB0: 46 49 4E 41 4C 20 53 54 41 47 45 53 20 42 59 22 FINAL STAGES BY"
00BDC0: 3B 3A 49 46 20 72 61 20 54 48 45 4E 20 50 52 49 ;:IF ra THEN PRI
00BDD0: 4E 54 20 72 61 3B 22 53 54 52 4F 4B 45 22 3B 3A NT ra;"STROKE";:
00BDE0: 49 46 20 72 61 3E 31 20 54 48 45 4E 20 50 52 49 IF ra>1 THEN PRI
00BDF0: 4E 54 20 22 53 22 20 0D 0A 36 38 33 30 20 49 46 NT "S" ..6830 IF
00BE00: 20 72 61 3D 30 20 54 48 45 4E 20 50 52 49 4E 54 ra=0 THEN PRINT
00BE10: 20 43 48 52 24 28 38 29 3B 43 48 52 24 28 38 29 CHR$(8);CHR$(8)
00BE20: 3B 22 49 4E 20 41 20 50 4C 41 59 4F 46 46 22 0D ;"IN A PLAYOFF".
00BE30: 0A 36 38 34 30 20 50 52 49 4E 54 23 32 2C 70 61 .6840 PRINT#2,pa
00BE40: 24 28 32 29 3B 3A 47 4F 54 4F 20 39 39 33 30 0D $(2);:GOTO 9930.
00BE50: 0A 37 30 30 30 20 47 4F 53 55 42 20 39 38 36 30 .7000 GOSUB 9860
00BE60: 3A 52 41 4E 44 4F 4D 49 5A 45 20 54 49 4D 45 3A :RANDOMIZE TIME:
00BE70: 46 4F 52 20 6E 3D 32 20 54 4F 20 34 30 3A 66 28 FOR n=2 TO 40:f(
00BE80: 6E 29 3D 6E 3A 6A 28 6E 29 3D 32 30 2B 49 4E 54 n)=n:j(n)=20+INT
00BE90: 28 52 4E 44 2A 33 35 29 2D 99 7C 28 61 6C 3D 31 (RND*35)-.|(al=1
00BEA0: 29 2A 31 35 3A 47 4F 53 55 42 20 39 39 30 30 3A )*15:GOSUB 9900:
00BEB0: 74 24 28 6E 29 3D 7A 24 3A 4E 45 58 54 3A 6D 28 t$(n)=z$:NEXT:m(
00BEC0: 31 29 3D 31 3A 66 28 31 29 3D 31 3A 74 24 28 31 1)=1:f(1)=1:t$(1
00BED0: 29 3D 75 24 28 31 29 3A 72 62 3D 31 3A 47 4F 53 )=u$(1):rb=1:GOS
00BEE0: 55 42 20 34 30 3A 6A 28 31 29 3D 72 63 0D 0A 37 UB 40:j(1)=rc..7
00BEF0: 30 31 30 20 61 6A 3D 32 3A 61 68 3D 34 30 3A 61 010 aj=2:ah=40:a
00BF00: 70 3D 30 3A 47 4F 53 55 42 20 36 30 30 30 3A 47 p=0:GOSUB 6000:G
00BF10: 4F 53 55 42 20 31 30 30 3A 47 4F 53 55 42 20 38 OSUB 100:GOSUB 8
00BF20: 32 30 30 3A 49 46 20 61 6C 3D 31 20 54 48 45 4E 200:IF al=1 THEN
00BF30: 20 52 45 54 55 52 4E 0D 0A 37 30 33 30 20 47 4F RETURN..7030 GO
00BF40: 53 55 42 20 36 30 30 30 3A 47 4F 53 55 42 20 36 SUB 6000:GOSUB 6
00BF50: 37 30 30 3A 61 68 3D 32 30 3A 47 4F 53 55 42 20 700:ah=20:GOSUB
00BF60: 39 38 36 30 3A 47 4F 53 55 42 20 31 30 30 3A 47 9860:GOSUB 100:G
00BF70: 4F 54 4F 20 38 32 30 30 0D 0A 37 31 30 30 20 43 OTO 8200..7100 C
00BF80: 4C 53 3A 49 4E 4B 20 30 2C 36 3A 42 4F 52 44 45 LS:INK 0,6:BORDE
00BF90: 52 20 36 3A 4C 4F 43 41 54 45 20 EF 2A FF FF FF R 6:LOCATE .*...
00BFA0: FE 11 FE 08 F6 04 08 04 98 04 30 09 FF 0F 07 12 ..........0.....
00BFB0: 00 07 01 00 2C 41 47 4F 4C 46 00 00 00 00 00 00 ....,AGOLF......
00BFC0: 00 00 00 00 00 0A 00 16 00 08 7C 9E 00 00 00 00 ..........|.....
00BFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C0A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C0B0: 00 00 00 00 00 F6 07 FF FF FF FE 11 08 09 A6 04 ................
00C0C0: 57 04 72 04 E5 08 FF 0F 07 95 0A 15 08 00 16 35 W.r............5
00C0D0: 2C 38 3A 50 52 49 4E 54 22 59 4F 55 20 41 52 45 ,8:PRINT"YOU ARE
00C0E0: 20 42 52 4F 4B 45 20 41 4E 44 20 48 41 56 45 20 BROKE AND HAVE
00C0F0: 42 45 45 4E 20 46 4F 52 43 45 44 22 2C 54 41 42 BEEN FORCED",TAB
00C100: 28 35 29 3B 22 54 4F 20 22 3B 3A 7A 31 3D 31 30 (5);"TO ";:z1=10
00C110: 30 30 30 2D 7A 6C 2A 73 28 35 29 3A 49 46 20 7A 000-zl*s(5):IF z
00C120: 31 3C 41 42 53 28 7A 61 29 20 54 48 45 4E 20 37 1<ABS(za) THEN 7
00C130: 31 36 30 0D 0A 37 31 30 35 20 4C 4F 43 41 54 45 160..7105 LOCATE
00C140: 20 35 2C 38 3A 50 52 49 4E 54 22 59 4F 55 20 41 5,8:PRINT"YOU A
00C150: 52 45 20 42 52 4F 4B 45 20 41 4E 44 20 48 41 56 RE BROKE AND HAV
00C160: 45 20 42 45 45 4E 20 46 4F 52 43 45 44 22 2C 54 E BEEN FORCED",T
00C170: 41 42 28 35 29 3B 22 54 4F 20 22 3B 0D 0A 37 31 AB(5);"TO ";..71
00C180: 32 30 20 7A 6C 3D 49 4E 54 28 7A 31 2B 28 7A 31 20 zl=INT(z1+(z1
00C190: 2F 31 30 30 29 2A 32 34 29 2F 34 30 3A 50 52 49 /100)*24)/40:PRI
00C1A0: 4E 54 22 4F 42 54 41 49 4E 20 41 20 4C 4F 41 4E NT"OBTAIN A LOAN
00C1B0: 20 46 4F 52 20 22 3B 3A 74 7A 3D 7A 31 3A 47 4F FOR ";:tz=z1:GO
00C1C0: 53 55 42 20 36 33 35 30 30 3A 73 28 35 29 3D 60 SUB 63500:s(5)=`
00C1D0: D6 34 30 3A 47 4F 54 4F 20 37 31 38 30 0D 0A 37 .40:GOTO 7180..7
00C1E0: 31 36 30 20 72 62 3D 31 3A 47 4F 53 55 42 20 34 160 rb=1:GOSUB 4
00C1F0: 30 3A 7A 31 3D 28 72 63 2A 32 30 30 30 2F 31 30 0:z1=(rc*2000/10
00C200: 30 29 2A 38 30 3A 50 52 49 4E 54 22 4F 42 54 41 0)*80:PRINT"OBTA
00C210: 49 4E 20 41 20 4D 4F 52 54 47 41 47 45 20 46 4F IN A MORTGAGE FO
00C220: 52 20 22 3B 3A 74 7A 3D 7A 31 3A 47 4F 53 55 42 R ";:tz=z1:GOSUB
00C230: 20 36 33 35 30 30 3A 7A 6D 3D 49 4E 54 28 7A 31 63500:zm=INT(z1
00C240: 2B 28 7A 31 2F 31 30 30 29 2A 32 30 29 2F 38 30 +(z1/100)*20)/80
00C250: 3A 73 28 34 29 3D 38 30 0D 0A 37 31 38 30 20 7A :s(4)=80..7180 z
00C260: 61 3D 7A 61 2B 7A 31 3A 47 4F 54 4F 20 39 39 33 a=za+z1:GOTO 993
00C270: 30 0D 0A 37 35 30 30 20 7A 24 3D 22 4D 41 4A 4F 0..7500 z$="MAJO
00C280: 52 22 3A 79 24 3D 61 24 28 61 63 29 3A 3A 7A 32 R":y$=a$(ac)::z2
00C290: 3D 76 28 61 63 2C 31 29 3A 49 46 20 61 69 3D 31 =v(ac,1):IF ai=1
00C2A0: 20 54 48 45 4E 20 7A 24 3D 22 4D 49 4E 4F 52 22 THEN z$="MINOR"
00C2B0: 3A 79 24 3D 69 24 28 61 66 29 3A 7A 32 3D 7A 65 :y$=i$(af):z2=ze
00C2C0: 0D 0A 37 35 30 35 20 49 4E 4B 20 30 2C 39 3A 42 ..7505 INK 0,9:B
00C2D0: 4F 2F 69 52 44 45 52 20 39 3A 50 52 49 4E 54 20 O/iRDER 9:PRINT
00C2E0: 70 61 24 28 31 29 3A 43 4C 53 3A 50 52 49 4E 54 pa$(1):CLS:PRINT
00C2F0: 20 54 41 42 20 28 39 29 70 61 24 28 34 29 22 20 TAB (9)pa$(4)"
00C300: 22 7A 24 22 20 22 3B 6E 24 28 33 29 3B 22 20 52 "z$" ";n$(3);" R
00C310: 45 53 55 4C 54 20 22 70 61 24 28 31 29 3A 4C 4F ESULT "pa$(1):LO
00C320: 43 41 54 45 20 31 30 2C 32 3A 50 52 49 4E 54 20 CATE 10,2:PRINT
00C330: 79 24 3B 3A 4C 4F 43 41 54 45 20 31 30 2C 34 3A y$;:LOCATE 10,4:
00C340: 50 52 49 4E 54 20 70 61 24 28 32 29 3B 22 54 4F PRINT pa$(2);"TO
00C350: 54 41 4C 20 22 3B 6E 24 28 31 29 3B 3A 74 7A 3D TAL ";n$(1);:tz=
00C360: 7A 32 3A 47 4F 53 55 42 20 36 33 35 30 30 3A 50 z2:GOSUB 63500:P
00C370: 52 49 4E 54 20 70 61 24 28 31 29 2C 2C 2C 2C 3A RINT pa$(1),,,,:
00C380: 72 62 3D 32 0D 0A 37 35 30 36 20 7A 31 3D 49 4E rb=2..7506 z1=IN
00C390: 54 28 28 7A 32 2F 31 30 30 29 2A 67 28 31 29 29 T((z2/100)*g(1))
00C3A0: 3A 50 52 49 4E 54 20 54 41 42 28 37 29 3B 22 31 :PRINT TAB(7);"1
00C3B0: 22 3B 3A 6E 3D 31 3A 47 4F 53 55 42 20 37 35 35 ";:n=1:GOSUB 755
00C3C0: 30 3A 49 46 20 65 28 32 29 3D 65 28 31 29 20 54 0:IF e(2)=e(1) T
00C3D0: 48 45 4E 63 EF 20 4C 4F 43 41 54 45 20 33 36 2C HENc. LOCATE 36,
00C3E0: 36 3A 50 52 49 4E 54 20 22 2A 22 3A 4C 4F 43 41 6:PRINT "*":LOCA
00C3F0: 54 45 20 31 32 2C 32 30 3A 50 52 49 4E 54 20 22 TE 12,20:PRINT "
00C400: 2A 20 41 46 54 45 52 20 41 20 50 4C 41 59 4F 46 * AFTER A PLAYOF
00C410: 46 22 3A 4C 4F 43 41 54 45 20 31 2C 37 0D 0A 37 F":LOCATE 1,7..7
00C420: 35 31 31 20 72 61 3D 31 3A 7A 31 3D 49 4E 54 28 511 ra=1:z1=INT(
00C430: 28 7A 32 2F 31 30 30 29 2A 67 28 72 62 29 29 0D (z2/100)*g(rb)).
00C440: 0A 37 35 31 32 20 49 46 20 65 28 72 62 29 3C 65 .7512 IF e(rb)<e
00C450: 28 72 62 2B 72 61 29 20 54 48 45 4E 20 37 35 31 (rb+ra) THEN 751
00C460: 34 20 45 4C 53 45 20 49 46 20 72 62 2B 72 61 3C 4 ELSE IF rb+ra<
00C470: 31 31 20 54 48 45 4E 20 7A 31 3D 7A 31 2B 49 4E 11 THEN z1=z1+IN
00C480: 54 28 28 7A 32 2F 31 30 30 29 2A 67 28 72 62 2B T((z2/100)*g(rb+
00C490: 72 61 29 29 0D 0A 37 35 31 33 20 72 61 3D 72 61 ra))..7513 ra=ra
00C4A0: 2B 31 3A 47 4F 54 4F 20 37 35 31 32 0D 0A 37 35 +1:GOTO 7512..75
00C4B0: 31 34 20 72 61 3D 72 61 2D 31 3A 50 52 49 4E 54 14 ra=ra-1:PRINT
00C4C0: 20 54 41 42 28 36 29 55 53 49 4E 47 22 23 23 22 TAB(6)USING"##"
00C4D0: 3B 72 62 3B 3A 8F CA 49 46 20 72 61 20 54 48 45 ;rb;:..IF ra THE
00C4E0: 4E 20 37 35 32 30 20 45 4C 53 45 20 6E 3D 72 62 N 7520 ELSE n=rb
00C4F0: 3A 47 4F 53 55 42 20 37 35 35 30 3A 47 4F 54 4F :GOSUB 7550:GOTO
00C500: 20 37 35 33 30 0D 0A 37 35 32 30 20 7A 31 3D 49 7530..7520 z1=I
00C510: 4E 54 28 7A 31 2F 28 72 61 2B 31 29 29 3A 46 4F NT(z1/(ra+1)):FO
00C520: 52 20 6E 3D 72 62 20 54 4F 20 72 62 2B 72 61 3A R n=rb TO rb+ra:
00C530: 47 4F 53 55 42 20 37 35 35 30 3A 4E 45 58 54 0D GOSUB 7550:NEXT.
00C540: 0A 37 35 33 30 20 72 62 3D 72 62 2B 72 61 2B 31 .7530 rb=rb+ra+1
00C550: 3A 49 46 20 72 62 3C 31 31 20 54 48 45 4E 20 37 :IF rb<11 THEN 7
00C560: 35 31 31 20 45 4C 53 45 20 52 45 54 55 52 4E 0D 511 ELSE RETURN.
00C570: 0A 37 35 35 30 20 50 52 49 4E 54 20 54 41 42 28 .7550 PRINT TAB(
00C580: 39 29 55 53 49 4E 47 20 22 5C 20 20 20 20 20 20 9)USING "\
00C590: 20 20 5C 20 20 23 23 23 20 20 20 20 20 20 23 23 \ ### ##
00C5A0: 23 23 23 23 22 3B 74 24 28 6E 29 3B 65 28 6E 29 ####";t$(n);e(n)
00C5B0: 2C 7A 31 3A 49 46 20 61 69 3D 30 20 41 4E 44 20 ,z1:IF ai=0 AND
00C5C0: 66 28 6E 29 3C 34 31 20 54 48 45 4E 20 6B 28 66 f(n)<41 THEN k(f
00C5D0: 28 6E 29 29 3D 6B 28 94 1B 66 28 6E 29 29 2B 7A (n))=k(..f(n))+z
00C5E0: 31 0D 0A 37 35 36 30 20 49 46 20 66 28 6E 29 3D 1..7560 IF f(n)=
00C5F0: 31 20 54 48 45 4E 20 7A 6E 3D 7A 31 3A 63 28 31 1 THEN zn=z1:c(1
00C600: 29 3D 63 28 31 29 2B 33 0D 0A 37 35 37 30 20 52 )=c(1)+3..7570 R
00C610: 45 54 55 52 4E 0D 0A 38 30 34 30 20 72 62 3D 77 ETURN..8040 rb=w
00C620: 28 31 39 29 2D 6F 28 61 2C 34 29 3A 72 61 3D 77 (19)-o(a,4):ra=w
00C630: 28 32 30 29 2D 6F 28 61 2C 35 29 3A 72 61 3D 2D (20)-o(a,5):ra=-
00C640: 72 61 3A 52 45 54 55 52 4E 20 0D 0A 38 32 30 30 ra:RETURN ..8200
00C650: 20 72 63 3D 30 3A 72 61 3D 32 30 3A 72 62 3D 31 rc=0:ra=20:rb=1
00C660: 0D 0A 38 32 31 30 20 42 4F 52 44 45 52 20 30 3A ..8210 BORDER 0:
00C670: 50 52 49 4E 54 20 70 61 24 28 32 29 3A 43 4C 53 PRINT pa$(2):CLS
00C680: 3A 50 52 49 4E 54 20 70 61 24 28 33 29 3B 54 41 :PRINT pa$(3);TA
00C690: 42 28 38 29 3B 22 20 50 4F 53 49 54 49 4F 4E 20 B(8);" POSITION
00C6A0: 41 46 54 45 52 22 3B 61 70 3B 22 52 4F 55 4E 44 AFTER";ap;"ROUND
00C6B0: 53 20 22 3B 70 61 24 28 32 29 2C 2C 2C 3A 46 4F S ";pa$(2),,,:FO
00C6C0: 52 20 6E 3D 72 62 20 54 4F 20 72 61 3A 50 52 49 R n=rb TO ra:PRI
00C6D0: 4E 54 20 54 41 42 28 39 29 D2 38 3B 70 61 24 28 NT TAB(9).8;pa$(
00C6E0: 32 2D 28 66 28 6E 29 3D 31 29 2D 32 2A 28 66 28 2-(f(n)=1)-2*(f(
00C6F0: 6E 29 3D 61 75 20 41 4E 44 20 61 69 3D 30 29 29 n)=au AND ai=0))
00C700: 3B 55 53 49 4E 47 22 23 23 22 3B 6E 3B 0D 0A 38 ;USING"##";n;..8
00C710: 32 31 32 20 49 46 20 66 28 6E 29 3D 31 20 54 48 212 IF f(n)=1 TH
00C720: 45 4E 20 72 63 3D 6E 0D 0A 38 32 31 34 20 72 65 EN rc=n..8214 re
00C730: 3D 65 28 6E 29 2D 28 61 70 2A 61 78 29 3A 7A 24 =e(n)-(ap*ax):z$
00C740: 3D 53 54 52 24 28 41 42 53 28 72 65 29 29 3A 7A =STR$(ABS(re)):z
00C750: 24 3D 52 49 47 48 54 24 28 7A 24 2C 4C 45 4E 28 $=RIGHT$(z$,LEN(
00C760: 7A 24 29 2D 31 29 3A 49 46 20 72 65 3D 30 20 54 z$)-1):IF re=0 T
00C770: 48 45 4E 20 7A 24 3D 22 45 22 20 45 4C 53 45 20 HEN z$="E" ELSE
00C780: 49 46 20 72 65 3C 30 20 54 48 45 4E 20 7A 24 3D IF re<0 THEN z$=
00C790: 22 2D 22 2B 7A 24 20 45 4C 53 45 20 7A 24 3D 22 "-"+z$ ELSE z$="
00C7A0: 2B 22 2B 7A 24 0D 0A 38 32 31 36 20 50 52 49 4E +"+z$..8216 PRIN
00C7B0: 54 20 54 41 42 28 31 35 29 3B 74 24 28 6E 29 3B T TAB(15);t$(n);
00C7C0: 22 20 22 3B 55 53 49 4E 47 22 23 23 23 22 3B 65 " ";USING"###";e
00C7D0: 28 6E 29 3B 3A 50 52 49 4E 54 20 6B FF 54 41 42 (n);:PRINT k.TAB
00C7E0: 28 33 32 29 3B 7A 24 3B 70 61 24 28 32 29 3A 4E (32);z$;pa$(2):N
00C7F0: 45 58 54 3A 50 52 49 4E 54 23 32 2C 70 61 24 28 EXT:PRINT#2,pa$(
00C800: 32 29 3A 47 4F 53 55 42 20 39 39 33 30 3A 49 46 2):GOSUB 9930:IF
00C810: 20 72 61 3E 3D 61 68 20 54 48 45 4E 20 52 45 54 ra>=ah THEN RET
00C820: 55 52 4E 0D 0A 38 32 32 30 20 72 62 3D 72 61 2B URN..8220 rb=ra+
00C830: 31 3A 72 61 3D 72 61 2B 32 30 3A 49 46 20 72 61 1:ra=ra+20:IF ra
00C840: 3E 61 68 20 54 48 45 4E 20 72 61 3D 61 68 0D 0A >ah THEN ra=ah..
00C850: 38 32 33 30 20 47 4F 54 4F 20 38 32 31 30 0D 0A 8230 GOTO 8210..
00C860: 38 32 34 30 20 50 52 49 4E 54 20 23 33 2C 22 4F 8240 PRINT #3,"O
00C870: 55 54 20 4F 46 20 42 4F 55 4E 44 53 22 3A 6E 28 UT OF BOUNDS":n(
00C880: 61 2C 78 29 3D 6E 28 61 2C 78 29 2D 31 3A 46 4F a,x)=n(a,x)-1:FO
00C890: 52 20 62 3D 31 20 54 4F 20 33 3A 6F 28 61 2C 62 R b=1 TO 3:o(a,b
00C8A0: 29 3D 6F 28 61 2C 62 29 2B 31 3A 4E 45 58 54 3A )=o(a,b)+1:NEXT:
00C8B0: 50 4C 4F 54 20 6F 28 61 2C 34 29 2A 32 2B 39 36 PLOT o(a,4)*2+96
00C8C0: 2C 6F 28 61 2C 35 29 2A 32 2B 34 38 3A 72 62 3D ,o(a,5)*2+48:rb=
00C8D0: 30 3A 72 61 3D 28 72 61 2B 6F 28 61 2C BA 17 FF 0:ra=(ra+o(a,...
00C8E0: FF FF FE 11 E1 08 57 04 08 04 7B 04 F5 08 FF 0F ......W...{.....
00C8F0: 07 11 00 07 01 00 2C 41 47 4F 4C 46 00 00 00 00 ......,AGOLF....
00C900: 00 00 00 00 00 00 00 0B 00 16 00 08 7C 9E 00 00 ............|...
00C910: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C920: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C930: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C940: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C950: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9F0: 00 00 00 00 00 00 00 11 0C FF FF FF FE 11 D7 08 ................
00CA00: 57 04 08 04 71 04 E3 08 FE 0F 07 93 0A 15 08 00 W...q...........
00CA10: 16 35 29 29 2A 32 2B 34 38 3A 49 46 20 49 4E 54 .5))*2+48:IF INT
00CA20: 28 52 4E 44 2A 31 30 29 3C 34 20 54 48 45 4E 20 (RND*10)<4 THEN
00CA30: 44 52 41 57 20 36 33 39 2C 72 61 3A 72 61 3D 30 DRAW 639,ra:ra=0
00CA40: 3A 47 4F 54 4F 20 36 35 31 30 30 0D 0A 38 32 35 :GOTO 65100..825
00CA50: 30 20 44 52 41 57 20 34 36 36 2C 72 61 3A 72 61 0 DRAW 466,ra:ra
00CA60: 3D 30 3A 47 4F 54 4F 20 36 35 31 30 30 0D 0A 38 =0:GOTO 65100..8
00CA70: 35 30 30 20 47 4F 53 55 42 20 38 35 39 30 3A 47 500 GOSUB 8590:G
00CA80: 4F 53 55 42 20 32 32 30 30 3A 47 4F 53 55 42 20 OSUB 2200:GOSUB
00CA90: 35 34 30 30 3A 49 46 20 66 28 31 29 3D 31 20 54 5400:IF f(1)=1 T
00CAA0: 48 45 4E 20 43 4C 53 3A 4C 4F 43 41 54 45 20 38 HEN CLS:LOCATE 8
00CAB0: 2C 38 3A 50 52 49 4E 54 22 43 4F 4E 47 52 41 54 ,8:PRINT"CONGRAT
00CAC0: 55 4C 54 49 4F 4E 53 20 59 4F 55 20 48 41 56 45 ULTIONS YOU HAVE
00CAD0: 20 22 2C 2C 2C 2C 54 41 42 28 36 29 3B 22 42 45 ",,,,TAB(6);"BE
00CAE0: 43 4F 4D 45 20 54 48 45 20 4E 55 4D 42 45 52 20 COME THE NUMBER
00CAF0: 31 20 47 4F 4C 46 45 52 22 3A 47 4F 53 55 42 20 1 GOLFER":GOSUB
00CB00: 39 39 33 30 0D 0A 38 35 31 30 20 47 4F 53 55 42 9930..8510 GOSUB
00CB10: 20 89 87 38 35 39 30 3A 46 4F 52 20 6E 3D 31 20 ..8590:FOR n=1
00CB20: 54 4F 20 32 30 3A 6C 28 6E 2C 32 29 3D 30 3A 4E TO 20:l(n,2)=0:N
00CB30: 45 58 54 3A 73 6E 3D 73 6E 2B 31 3A 47 4F 54 4F EXT:sn=sn+1:GOTO
00CB40: 20 34 30 30 0D 0A 38 35 39 30 20 43 4C 53 3A 4C 400..8590 CLS:L
00CB50: 4F 43 41 54 45 20 31 32 2C 31 31 3A 50 52 49 4E OCATE 12,11:PRIN
00CB60: 54 20 22 45 4E 44 20 4F 46 20 53 45 41 53 4F 4E T "END OF SEASON
00CB70: 22 3B 73 6E 2B 31 3A 47 4F 54 4F 20 39 39 33 30 ";sn+1:GOTO 9930
00CB80: 0D 0A 38 36 30 30 20 62 63 3D 30 3A 42 4F 52 44 ..8600 bc=0:BORD
00CB90: 45 52 20 30 3A 50 52 49 4E 54 20 70 61 24 28 32 ER 0:PRINT pa$(2
00CBA0: 29 3A 43 4C 53 3A 50 52 49 4E 54 20 54 41 42 28 ):CLS:PRINT TAB(
00CBB0: 31 32 29 3B 22 53 43 4F 52 45 43 41 52 44 22 0D 12);"SCORECARD".
00CBC0: 0A 38 36 31 30 20 4C 4F 43 41 54 45 20 37 2C 34 .8610 LOCATE 7,4
00CBD0: 3A 50 52 49 4E 54 20 74 24 28 72 64 29 3A 46 4F :PRINT t$(rd):FO
00CBE0: 52 20 62 3D 31 20 54 4F 20 39 3A 4C 4F 43 41 54 R b=1 TO 9:LOCAT
00CBF0: 45 20 36 2B 28 62 2D 31 29 2A 33 2C 37 3A 50 52 E 6+(b-1)*3,7:PR
00CC00: 49 4E 54 20 55 53 49 4E 47 22 23 23 22 3B 62 3B INT USING"##";b;
00CC10: 3A 4E 45 C2 1D 58 54 3A 50 52 49 4E 54 22 20 4F :NE..XT:PRINT" O
00CC20: 55 54 22 3A 4C 4F 43 41 54 45 20 36 2C 31 31 3A UT":LOCATE 6,11:
00CC30: 46 4F 52 20 62 3D 31 30 20 54 4F 20 31 38 3A 50 FOR b=10 TO 18:P
00CC40: 52 49 4E 54 20 55 53 49 4E 47 22 23 23 22 3B 62 RINT USING"##";b
00CC50: 3B 3A 50 52 49 4E 54 20 22 20 22 3B 3A 4E 45 58 ;:PRINT " ";:NEX
00CC60: 54 3A 50 52 49 4E 54 20 22 20 49 4E 22 3A 4C 4F T:PRINT " IN":LO
00CC70: 43 41 54 45 20 33 31 2C 31 35 3A 50 52 49 4E 54 CATE 31,15:PRINT
00CC80: 20 22 54 4F 54 41 4C 22 0D 0A 38 36 32 30 20 50 "TOTAL"..8620 P
00CC90: 4C 4F 54 20 37 32 2C 33 31 32 3A 44 52 41 57 52 LOT 72,312:DRAWR
00CCA0: 20 34 39 36 2C 30 3A 44 52 41 57 52 20 30 2C 2D 496,0:DRAWR 0,-
00CCB0: 31 37 36 3A 44 52 41 57 52 20 2D 39 36 2C 30 3A 176:DRAWR -96,0:
00CCC0: 44 52 41 57 52 20 30 2C 34 38 3A 50 4C 4F 54 20 DRAWR 0,48:PLOT
00CCD0: 37 32 2C 33 31 32 3A 44 52 41 57 52 20 30 2C 2D 72,312:DRAWR 0,-
00CCE0: 31 32 38 3A 44 52 41 57 52 20 34 39 36 2C 30 3A 128:DRAWR 496,0:
00CCF0: 50 4C 4F 54 20 37 32 2C 32 34 38 3A 44 52 41 57 PLOT 72,248:DRAW
00CD00: 52 20 34 39 36 2C 30 3A 46 4F 52 20 62 3D 30 20 R 496,0:FOR b=0
00CD10: 54 4F 20 38 3A 85 9B 50 4C 4F 54 20 28 36 30 2B TO 8:..PLOT (60+
00CD20: 32 34 2A 62 29 2A 32 2C 33 31 32 3A 44 52 41 57 24*b)*2,312:DRAW
00CD30: 52 20 30 2C 2D 31 32 38 3A 4E 45 58 54 0D 0A 38 R 0,-128:NEXT..8
00CD40: 36 33 35 20 50 45 4E 20 30 3A 4C 4F 43 41 54 45 635 PEN 0:LOCATE
00CD50: 20 36 2C 31 38 3A 50 52 49 4E 54 22 4F 56 45 52 6,18:PRINT"OVER
00CD60: 20 50 41 52 22 3A 50 45 4E 20 31 3A 4C 4F 43 41 PAR":PEN 1:LOCA
00CD70: 54 45 20 36 2C 31 39 3A 50 52 49 4E 54 20 22 50 TE 6,19:PRINT "P
00CD80: 41 52 22 3A 50 45 4E 20 32 3A 4C 4F 43 41 54 45 AR":PEN 2:LOCATE
00CD90: 20 36 2C 32 30 3A 50 52 49 4E 54 20 22 55 4E 44 6,20:PRINT "UND
00CDA0: 45 52 20 50 41 52 22 3A 50 52 49 4E 54 20 70 61 ER PAR":PRINT pa
00CDB0: 24 28 32 29 0D 0A 38 36 34 30 20 72 61 3D 30 3A $(2)..8640 ra=0:
00CDC0: 72 62 3D 30 3A 72 63 3D 30 3A 46 4F 52 20 62 3D rb=0:rc=0:FOR b=
00CDD0: 31 20 54 4F 20 39 3A 4C 4F 43 41 54 45 20 36 2B 1 TO 9:LOCATE 6+
00CDE0: 28 62 2D 31 29 2A 33 2C 39 3A 49 46 20 78 3E 3D (b-1)*3,9:IF x>=
00CDF0: 62 20 54 48 45 4E 20 7A 31 3D 6E 28 31 2C 62 29 b THEN z1=n(1,b)
00CE00: 20 45 4C 53 45 20 7A 31 3D 30 0D 0A 38 36 34 35 ELSE z1=0..8645
00CE10: 20 50 45 4E 20 31 3A FC B1 49 46 20 7A 31 3D 30 PEN 1:..IF z1=0
00CE20: 20 54 48 45 4E 20 38 36 35 30 20 45 4C 53 45 20 THEN 8650 ELSE
00CE30: 49 46 20 7A 31 3C 64 28 31 2C 62 29 20 54 48 45 IF z1<d(1,b) THE
00CE40: 4E 20 50 45 4E 20 32 20 45 4C 53 45 20 49 46 20 N PEN 2 ELSE IF
00CE50: 7A 31 3E 64 28 31 2C 62 29 20 54 48 45 4E 20 50 z1>d(1,b) THEN P
00CE60: 45 4E 20 30 0D 0A 38 36 35 30 20 50 52 49 4E 54 EN 0..8650 PRINT
00CE70: 20 55 53 49 4E 47 22 23 23 22 3B 7A 31 3B 3A 72 USING"##";z1;:r
00CE80: 61 3D 72 61 2B 7A 31 3A 4E 45 58 54 3A 50 45 4E a=ra+z1:NEXT:PEN
00CE90: 20 31 3A 4C 4F 43 41 54 45 20 33 34 2C 39 3A 50 1:LOCATE 34,9:P
00CEA0: 52 49 4E 54 20 55 53 49 4E 47 22 23 23 22 3B 72 RINT USING"##";r
00CEB0: 61 0D 0A 38 36 36 30 20 46 4F 52 20 62 3D 31 30 a..8660 FOR b=10
00CEC0: 20 54 4F 20 31 38 3A 4C 4F 43 41 54 45 20 36 2B TO 18:LOCATE 6+
00CED0: 28 62 2D 31 30 29 2A 33 2C 31 33 3A 7A 31 3D 30 (b-10)*3,13:z1=0
00CEE0: 2D 28 78 3E 62 29 2A 6E 28 31 2C 62 29 3A 50 45 -(x>b)*n(1,b):PE
00CEF0: 4E 20 31 3A 49 46 20 7A 31 3D 30 20 54 48 45 4E N 1:IF z1=0 THEN
00CF00: 20 38 36 37 30 20 45 4C 53 45 20 49 46 20 7A 31 8670 ELSE IF z1
00CF10: 3C 64 28 31 2C 62 29 20 54 E4 B5 48 45 4E 20 50 <d(1,b) T..HEN P
00CF20: 45 4E 20 32 20 45 4C 53 45 20 49 46 20 7A 31 3E EN 2 ELSE IF z1>
00CF30: 64 28 31 2C 62 29 20 54 48 45 4E 20 50 45 4E 20 d(1,b) THEN PEN
00CF40: 30 0D 0A 38 36 37 30 20 50 52 49 4E 54 20 55 53 0..8670 PRINT US
00CF50: 49 4E 47 22 23 23 22 3B 7A 31 3B 3A 72 62 3D 72 ING"##";z1;:rb=r
00CF60: 62 2B 7A 31 3A 4E 45 58 54 3A 50 45 4E 20 31 3A b+z1:NEXT:PEN 1:
00CF70: 72 63 3D 72 62 2B 72 61 3A 4C 4F 43 41 54 45 20 rc=rb+ra:LOCATE
00CF80: 33 34 2C 31 33 3A 50 52 49 4E 54 20 55 53 49 4E 34,13:PRINT USIN
00CF90: 47 22 23 23 22 3B 72 62 3A 4C 4F 43 41 54 45 20 G"##";rb:LOCATE
00CFA0: 33 32 2C 31 36 3A 50 52 49 4E 54 20 55 53 49 4E 32,16:PRINT USIN
00CFB0: 47 22 23 23 23 22 3B 72 63 3B 0D 0A 38 36 39 30 G"###";rc;..8690
00CFC0: 20 4C 4F 43 41 54 45 20 31 37 2C 32 35 3A 50 52 LOCATE 17,25:PR
00CFD0: 49 4E 54 20 70 61 24 28 35 29 3B 22 52 22 3B 70 INT pa$(5);"R";p
00CFE0: 61 24 28 32 29 3B 22 45 54 55 52 4E 22 3B 3A 69 a$(2);"ETURN";:i
00CFF0: 6E 24 3D 22 22 3A 57 48 49 4C 45 20 69 6E 24 3C n$="":WHILE in$<
00D000: 3E 22 52 22 3A 47 4F 53 55 42 20 36 34 32 30 30 >"R":GOSUB 64200
00D010: 3A 57 45 4E 44 3A 62 63 3D 30 3A 9A 62 49 46 20 :WEND:bc=0:.bIF
00D020: 78 3E 31 37 20 54 48 45 4E 20 52 45 54 55 52 4E x>17 THEN RETURN
00D030: 0D 0A 38 37 30 30 20 42 4F 52 44 45 52 20 30 3A ..8700 BORDER 0:
00D040: 50 52 49 4E 54 20 70 61 24 28 32 29 3B 3A 43 4C PRINT pa$(2);:CL
00D050: 53 3A 4C 4F 43 41 54 45 20 38 2C 31 3A 49 46 20 S:LOCATE 8,1:IF
00D060: 61 69 3D 31 20 54 48 45 4E 20 50 52 49 4E 54 20 ai=1 THEN PRINT
00D070: 69 24 28 61 66 29 3B 20 45 4C 53 45 20 50 52 49 i$(af); ELSE PRI
00D080: 4E 54 20 61 24 28 61 63 29 0D 0A 38 37 30 35 20 NT a$(ac)..8705
00D090: 4C 4F 43 41 54 45 20 36 2C 38 3A 50 52 49 4E 54 LOCATE 6,8:PRINT
00D0A0: 20 70 61 24 28 32 29 3B 3A 50 45 4E 20 32 3A 50 pa$(2);:PEN 2:P
00D0B0: 52 49 4E 54 20 22 52 4F 55 4E 44 22 3B 54 41 42 RINT "ROUND";TAB
00D0C0: 28 31 36 29 3B 22 48 4F 4C 45 22 3A 4C 4F 43 41 (16);"HOLE":LOCA
00D0D0: 54 45 20 36 2C 39 3A 50 52 49 4E 54 20 70 61 24 TE 6,9:PRINT pa$
00D0E0: 28 32 29 3B 22 50 41 52 22 3B 54 41 42 28 32 30 (2);"PAR";TAB(20
00D0F0: 29 3B 22 59 41 52 44 53 22 3B 3A 50 45 4E 20 32 );"YARDS";:PEN 2
00D100: 3A 4C 4F 43 41 54 45 20 32 2C 32 30 3A 50 52 49 :LOCATE 2,20:PRI
00D110: 4E 54 20 22 44 52 49 56 49 4E 47 3A 20 77 D4 22 NT "DRIVING: w."
00D120: 3B 4D 49 44 24 28 76 24 28 31 29 2C 37 2C 32 29 ;MID$(v$(1),7,2)
00D130: 3B 0D 0A 38 37 31 30 20 50 52 49 4E 54 20 22 20 ;..8710 PRINT "
00D140: 20 43 48 49 50 50 49 4E 47 3A 20 22 3B 4D 49 44 CHIPPING: ";MID
00D150: 24 28 76 24 28 31 29 2C 33 2C 32 29 3A 4C 4F 43 $(v$(1),3,2):LOC
00D160: 41 54 45 20 32 2C 32 31 3A 50 52 49 4E 54 20 22 ATE 2,21:PRINT "
00D170: 42 55 4E 4B 45 52 20 3A 20 22 3B 4D 49 44 24 28 BUNKER : ";MID$(
00D180: 76 24 28 31 29 2C 31 2C 32 29 3B 22 20 20 50 55 v$(1),1,2);" PU
00D190: 54 54 49 4E 47 20 3A 20 22 3B 4D 49 44 24 28 76 TTING : ";MID$(v
00D1A0: 24 28 31 29 2C 35 2C 32 29 0D 0A 38 37 31 35 20 $(1),5,2)..8715
00D1B0: 4C 4F 43 41 54 45 20 36 2C 33 3A 50 52 49 4E 54 LOCATE 6,3:PRINT
00D1C0: 22 50 41 52 20 46 4F 52 20 43 4F 55 52 53 45 3A "PAR FOR COURSE:
00D1D0: 22 3B 61 78 0D 0A 38 37 33 30 20 4C 4F 43 41 54 ";ax..8730 LOCAT
00D1E0: 45 20 32 2C 31 34 3A 50 52 49 4E 54 20 50 41 24 E 2,14:PRINT PA$
00D1F0: 28 34 29 3B 52 49 47 48 54 24 28 54 24 28 52 44 (4);RIGHT$(T$(RD
00D200: 29 2C 39 29 3A 4C 4F 43 41 54 45 20 32 2C 31 36 ),9):LOCATE 2,16
00D210: 3A 50 52 49 4E 54 20 50 41 24 28 36 29 3B 52 7A :PRINT PA$(6);Rz
00D220: 86 FF FF FF FE 11 E9 08 57 04 08 04 86 04 0D 09 ........W.......
00D230: FF 0F 07 11 00 07 01 00 2C 41 47 4F 4C 46 00 00 ........,AGOLF..
00D240: 00 00 00 00 00 00 00 00 00 0C 00 16 00 08 7C 9E ..............|.
00D250: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D300: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D310: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D320: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D330: 00 00 00 00 00 00 00 00 00 84 7F FF FF FF FE 11 ................
00D340: CB 08 A6 04 08 04 6B 04 D8 08 FF 0F 07 8E 0A 15 ......k.........
00D350: 08 00 16 49 47 48 54 24 28 54 24 28 52 45 29 2C ...IGHT$(T$(RE),
00D360: 39 29 3B 50 41 24 28 32 29 3A 4C 4F 43 41 54 45 9);PA$(2):LOCATE
00D370: 20 31 32 2C 31 32 3A 50 52 49 4E 54 20 22 48 4C 12,12:PRINT "HL
00D380: 45 20 52 4E 44 20 54 52 4E 20 50 41 52 22 0D 0A E RND TRN PAR"..
00D390: 38 37 34 30 20 50 4C 4F 54 20 38 2C 32 30 30 3A 8740 PLOT 8,200:
00D3A0: 44 52 41 57 52 20 30 2C 2D 36 34 3A 46 4F 52 20 DRAWR 0,-64:FOR
00D3B0: 62 3D 30 20 54 4F 20 32 3A 50 4C 4F 54 20 38 2C b=0 TO 2:PLOT 8,
00D3C0: 33 32 2A 62 2B 31 33 36 3A 44 52 41 57 52 20 34 32*b+136:DRAWR 4
00D3D0: 31 32 2C 30 3A 4E 45 58 54 3A 50 4C 4F 54 20 34 12,0:NEXT:PLOT 4
00D3E0: 32 30 2C 31 33 36 3A 44 52 41 57 52 20 30 2C 39 20,136:DRAWR 0,9
00D3F0: 36 3A 50 4C 4F 54 20 31 36 38 2C 32 33 32 3A 44 6:PLOT 168,232:D
00D400: 52 41 57 52 20 32 35 32 2C 30 3A 46 4F 52 20 62 RAWR 252,0:FOR b
00D410: 3D 30 20 54 4F 20 33 3A 50 4C 4F 54 20 31 36 38 =0 TO 3:PLOT 168
00D420: 2B 62 2A 36 34 2C 32 33 32 3A 44 52 41 57 52 20 +b*64,232:DRAWR
00D430: 30 2C 2D 39 36 3A 4E 45 58 54 0D 0A 38 37 35 30 0,-96:NEXT..8750
00D440: 20 4C 4F 43 41 54 45 20 31 33 2C 38 3A 50 45 4E LOCATE 13,8:PEN
00D450: 20 32 3A 64 9D 50 52 49 4E 54 20 55 53 49 4E 47 2:d.PRINT USING
00D460: 22 23 22 3B 61 70 3B 3A 50 52 49 4E 54 20 70 61 "#";ap;:PRINT pa
00D470: 24 28 32 29 3B 0D 0A 38 37 36 30 20 4C 4F 43 41 $(2);..8760 LOCA
00D480: 54 45 20 36 2C 35 3A 50 52 49 4E 54 20 22 43 55 TE 6,5:PRINT "CU
00D490: 52 52 45 4E 54 20 4C 45 41 44 45 52 20 22 3A 4C RRENT LEADER ":L
00D4A0: 4F 43 41 54 45 20 36 2C 36 3A 50 52 49 4E 54 20 OCATE 6,6:PRINT
00D4B0: 52 49 47 48 54 24 28 74 24 28 72 66 29 2C 39 29 RIGHT$(t$(rf),9)
00D4C0: 3B 65 28 72 66 29 3B 3A 72 61 3D 65 28 72 66 29 ;e(rf);:ra=e(rf)
00D4D0: 2D 61 78 2A 61 70 3A 49 46 20 72 61 3D 30 20 54 -ax*ap:IF ra=0 T
00D4E0: 48 45 4E 20 50 52 49 4E 54 20 22 45 20 20 22 20 HEN PRINT "E "
00D4F0: 45 4C 53 45 20 49 46 20 72 61 3C 30 20 54 48 45 ELSE IF ra<0 THE
00D500: 4E 20 50 52 49 4E 54 20 22 2D 22 3B 55 53 49 4E N PRINT "-";USIN
00D510: 47 22 23 23 22 3B 41 42 53 28 72 61 29 20 45 4C G"##";ABS(ra) EL
00D520: 53 45 20 50 52 49 4E 54 20 22 2B 22 3B 55 53 49 SE PRINT "+";USI
00D530: 4E 47 22 23 23 22 3B 72 61 0D 0A 38 38 30 30 20 NG"##";ra..8800
00D540: 4C 4F 43 41 54 45 20 34 2C 32 35 3A 50 52 49 4E LOCATE 4,25:PRIN
00D550: 54 20 70 61 24 7C 25 28 35 2B 28 62 61 3D 31 29 T pa$|%(5+(ba=1)
00D560: 2A 32 29 3B 22 53 22 3B 70 61 24 28 32 29 3B 22 *2);"S";pa$(2);"
00D570: 4C 4F 57 20 22 3B 70 61 24 28 35 2B 28 62 61 3D LOW ";pa$(5+(ba=
00D580: 30 29 2A 32 29 3B 22 46 22 3B 70 61 24 28 32 29 0)*2);"F";pa$(2)
00D590: 3B 22 41 53 54 20 53 22 3B 70 61 24 28 35 29 3B ;"AST S";pa$(5);
00D5A0: 22 43 22 3B 70 61 24 28 32 29 3B 22 4F 52 45 42 "C";pa$(2);"OREB
00D5B0: 4F 41 52 44 22 3B 3A 52 45 54 55 52 4E 0D 0A 39 OARD";:RETURN..9
00D5C0: 30 30 30 20 7A 31 3D 78 2F 33 3A 7A 33 3D 49 4E 000 z1=x/3:z3=IN
00D5D0: 54 28 7A 31 29 3A 49 46 20 49 4E 54 28 7A 31 29 T(z1):IF INT(z1)
00D5E0: 3D 7A 31 20 54 48 45 4E 20 7A 31 3D 31 3A 47 4F =z1 THEN z1=1:GO
00D5F0: 54 4F 20 39 30 31 30 0D 0A 39 30 30 35 20 7A 33 TO 9010..9005 z3
00D600: 3D 7A 33 2B 31 3A 7A 31 3D 28 49 4E 54 28 28 7A =z3+1:z1=(INT((z
00D610: 31 2D 49 4E 54 28 7A 31 29 29 2A 31 30 2F 33 29 1-INT(z1))*10/3)
00D620: 2A 32 29 2D 31 0D 0A 39 30 31 30 20 7A 32 3D 56 *2)-1..9010 z2=V
00D630: 41 4C 28 4D 49 44 24 28 73 24 28 61 63 2C 7A 33 AL(MID$(s$(ac,z3
00D640: 29 2C 7A 31 2C 32 29 29 2D 31 30 3A 45 52 41 53 ),z1,2))-10:ERAS
00D650: 45 20 77 3A 44 49 4D 9D 56 20 77 28 33 37 29 3A E w:DIM.V w(37):
00D660: 79 24 3D 6A 24 28 7A 32 29 3A 7A 24 3D 62 24 28 y$=j$(z2):z$=b$(
00D670: 31 2C 56 41 4C 28 4C 45 46 54 24 28 79 24 2C 31 1,VAL(LEFT$(y$,1
00D680: 29 29 29 3A 77 28 33 31 29 3D 56 41 4C 28 4D 49 ))):w(31)=VAL(MI
00D690: 44 24 28 7A 24 2C 38 2C 31 29 29 3A 77 28 32 36 D$(z$,8,1)):w(26
00D6A0: 29 3D 56 41 4C 28 4D 49 44 24 28 7A 24 2C 37 2C )=VAL(MID$(z$,7,
00D6B0: 31 29 29 0D 0A 39 30 31 32 20 77 28 31 29 3D 56 1))..9012 w(1)=V
00D6C0: 41 4C 28 4D 49 44 24 28 7A 24 2C 33 2C 31 29 29 AL(MID$(z$,3,1))
00D6D0: 3A 77 28 32 29 3D 56 41 4C 28 4D 49 44 24 28 7A :w(2)=VAL(MID$(z
00D6E0: 24 2C 32 2C 31 29 29 2B 32 33 3A 77 28 31 38 29 $,2,1))+23:w(18)
00D6F0: 3D 56 41 4C 28 4C 45 46 54 24 28 7A 24 2C 31 29 =VAL(LEFT$(z$,1)
00D700: 29 2B 37 3A 49 46 20 63 61 3D 31 20 54 48 45 4E )+7:IF ca=1 THEN
00D710: 20 64 28 31 2C 78 29 3D 74 28 77 28 31 38 29 2D d(1,x)=t(w(18)-
00D720: 31 33 29 3A 49 46 20 49 4E 54 28 52 4E 44 2A 31 13):IF INT(RND*1
00D730: 30 29 3E 32 20 41 4E 44 20 64 28 31 2C 78 29 3D 0)>2 AND d(1,x)=
00D740: 35 20 54 48 45 4E 20 64 28 31 2C 78 29 3D 34 0D 5 THEN d(1,x)=4.
00D750: 0A 39 30 31 38 20 49 46 20 6F CA 63 61 3D 31 20 .9018 IF o.ca=1
00D760: 54 48 45 4E 20 52 45 54 55 52 4E 0D 0A 39 30 32 THEN RETURN..902
00D770: 30 20 7A 24 3D 62 24 28 31 2C 56 41 4C 28 4D 49 0 z$=b$(1,VAL(MI
00D780: 44 24 28 79 24 2C 32 2C 31 29 29 29 3A 77 28 36 D$(y$,2,1))):w(6
00D790: 29 3D 77 28 31 38 29 2B 77 28 31 29 2B 31 3A 77 )=w(18)+w(1)+1:w
00D7A0: 28 37 29 3D 56 41 4C 28 4D 49 44 24 28 7A 24 2C (7)=VAL(MID$(z$,
00D7B0: 34 2C 31 29 29 2B 32 33 3A 7A 24 3D 62 24 28 32 4,1))+23:z$=b$(2
00D7C0: 2C 56 41 4C 28 4D 49 44 24 28 79 24 2C 37 2C 31 ,VAL(MID$(y$,7,1
00D7D0: 29 29 29 3A 77 28 33 29 3D 56 41 4C 28 4D 49 44 ))):w(3)=VAL(MID
00D7E0: 24 28 7A 24 2C 32 2C 31 29 29 3A 77 28 34 29 3D $(z$,2,1)):w(4)=
00D7F0: 56 41 4C 28 4C 45 46 54 24 28 7A 24 2C 31 29 29 VAL(LEFT$(z$,1))
00D800: 0D 0A 39 30 33 30 20 7A 24 3D 62 24 28 31 2C 56 ..9030 z$=b$(1,V
00D810: 41 4C 28 4D 49 44 24 28 79 24 2C 33 2C 31 29 29 AL(MID$(y$,3,1))
00D820: 29 3A 77 28 35 29 3D 77 28 36 29 2D 56 41 4C 28 ):w(5)=w(6)-VAL(
00D830: 4D 49 44 24 28 7A 24 2C 36 2C 31 29 29 3A 77 28 MID$(z$,6,1)):w(
00D840: 32 31 29 3D 28 32 32 2D 77 28 35 29 29 2A 38 3A 21)=(22-w(5))*8:
00D850: 7A 24 3D 62 24 28 33 2C 56 41 4C 8B E3 28 4D 49 z$=b$(3,VAL..(MI
00D860: 44 24 28 79 24 2C 34 2C 31 29 29 29 0D 0A 39 30 D$(y$,4,1)))..90
00D870: 34 30 20 77 28 38 29 3D 36 2B 56 41 4C 28 4D 49 40 w(8)=6+VAL(MI
00D880: 44 24 28 7A 24 2C 32 2C 31 29 29 3A 77 28 38 29 D$(z$,2,1)):w(8)
00D890: 3D 77 28 38 29 2B 32 2A 28 77 28 38 29 3D 77 28 =w(8)+2*(w(8)=w(
00D8A0: 35 29 29 3A 77 28 39 29 3D 56 41 4C 28 4C 45 46 5)):w(9)=VAL(LEF
00D8B0: 54 24 28 7A 24 2C 31 29 29 2B 32 33 3A 77 28 31 T$(z$,1))+23:w(1
00D8C0: 30 29 3D 36 2B 56 41 4C 28 4D 49 44 24 28 7A 24 0)=6+VAL(MID$(z$
00D8D0: 2C 34 2C 31 29 29 3A 77 28 31 30 29 3D 77 28 31 ,4,1)):w(10)=w(1
00D8E0: 30 29 2D 32 2A 28 77 28 31 30 29 3D 77 28 35 29 0)-2*(w(10)=w(5)
00D8F0: 29 3A 77 28 31 31 29 3D 56 41 4C 28 4D 49 44 24 ):w(11)=VAL(MID$
00D900: 28 7A 24 2C 33 2C 31 29 29 2B 32 33 3A 77 28 31 (z$,3,1))+23:w(1
00D910: 32 29 3D 36 2B 56 41 4C 28 4D 49 44 24 28 7A 24 2)=6+VAL(MID$(z$
00D920: 2C 36 2C 31 29 29 3A 77 28 31 32 29 3D 77 28 31 ,6,1)):w(12)=w(1
00D930: 32 29 2B 32 2A 28 77 28 31 32 29 3D 77 28 35 29 2)+2*(w(12)=w(5)
00D940: 29 3A 77 28 31 33 29 3D 56 41 4C 28 4D 49 44 24 ):w(13)=VAL(MID$
00D950: 28 7A 24 2C 35 2C 31 29 29 2B 32 33 0D EC 70 0A (z$,5,1))+23..p.
00D960: 39 30 34 35 20 7A 24 3D 62 24 28 32 2C 56 41 4C 9045 z$=b$(2,VAL
00D970: 28 4D 49 44 24 28 79 24 2C 35 2C 31 29 29 29 3A (MID$(y$,5,1))):
00D980: 77 28 31 34 29 3D 31 31 2B 56 41 4C 28 4D 49 44 w(14)=11+VAL(MID
00D990: 24 28 7A 24 2C 34 2C 31 29 29 3A 77 28 31 34 29 $(z$,4,1)):w(14)
00D9A0: 3D 77 28 31 34 29 2B 32 2A 28 77 28 31 34 29 3D =w(14)+2*(w(14)=
00D9B0: 77 28 35 29 29 3A 77 28 31 35 29 3D 56 41 4C 28 w(5)):w(15)=VAL(
00D9C0: 4D 49 44 24 28 7A 24 2C 33 2C 31 29 29 2B 32 33 MID$(z$,3,1))+23
00D9D0: 3A 77 28 31 36 29 3D 31 31 2B 56 41 4C 28 4D 49 :w(16)=11+VAL(MI
00D9E0: 44 24 28 7A 24 2C 36 2C 31 29 29 3A 77 28 31 36 D$(z$,6,1)):w(16
00D9F0: 29 3D 77 28 31 36 29 2B 32 2A 28 77 28 31 36 29 )=w(16)+2*(w(16)
00DA00: 3D 77 28 35 29 29 3A 77 28 31 37 29 3D 56 41 4C =w(5)):w(17)=VAL
00DA10: 28 4D 49 44 24 28 7A 24 2C 35 2C 31 29 29 2B 32 (MID$(z$,5,1))+2
00DA20: 33 0D 0A 39 30 34 38 20 49 46 20 77 28 32 36 29 3..9048 IF w(26)
00DA30: 3E 32 20 54 48 45 4E 20 77 28 32 37 29 3D 38 2B >2 THEN w(27)=8+
00DA40: 56 41 4C 28 4D 49 44 24 28 7A 24 2C 38 2C 31 29 VAL(MID$(z$,8,1)
00DA50: 29 3A 77 28 32 37 29 3D 77 28 32 37 29 2B 32 F6 ):w(27)=w(27)+2.
00DA60: 86 2A 28 77 28 32 37 29 3D 77 28 35 29 29 3A 77 .*(w(27)=w(5)):w
00DA70: 28 32 38 29 3D 56 41 4C 28 4D 49 44 24 28 7A 24 (28)=VAL(MID$(z$
00DA80: 2C 37 2C 31 29 29 2B 32 33 0D 0A 39 30 35 30 20 ,7,1))+23..9050
00DA90: 77 28 32 32 29 3D 77 28 31 29 2B 77 28 31 32 29 w(22)=w(1)+w(12)
00DAA0: 2D 36 3A 77 28 32 33 29 3D 77 28 31 33 29 2D 32 -6:w(23)=w(13)-2
00DAB0: 33 3A 77 28 32 35 29 3D 77 28 32 33 29 2B 77 28 3:w(25)=w(23)+w(
00DAC0: 32 32 29 2B 31 3A 49 46 20 49 4E 54 28 77 28 31 22)+1:IF INT(w(1
00DAD0: 30 29 2F 32 29 3D 77 28 31 30 29 2F 32 20 54 48 0)/2)=w(10)/2 TH
00DAE0: 45 4E 20 77 28 32 34 29 3D 31 3A 77 28 37 29 3D EN w(24)=1:w(7)=
00DAF0: 77 28 37 29 2B 77 28 32 33 29 3A 49 46 20 77 28 w(7)+w(23):IF w(
00DB00: 32 29 2B 77 28 32 33 29 3E 33 31 20 54 48 45 4E 2)+w(23)>31 THEN
00DB10: 20 77 28 32 29 3D 32 33 3A 77 28 37 29 3D 77 28 w(2)=23:w(7)=w(
00DB20: 32 29 2B 77 28 32 33 29 0D 0A 39 30 35 32 20 7A 2)+w(23)..9052 z
00DB30: 24 3D 62 24 28 34 2C 56 41 4C 28 4D 49 44 24 28 $=b$(4,VAL(MID$(
00DB40: 79 24 2C 36 2C 31 29 29 29 3A 49 46 20 77 28 32 y$,6,1))):IF w(2
00DB50: 36 29 3D 34 20 54 48 45 4E 20 77 28 33 32 29 3D 6)=4 THEN w(32)=
00DB60: 39 80 CF FF FF FF FE 11 CF 08 A6 04 08 04 7C 04 9.............|.
00DB70: F8 08 FF 0F 07 11 00 07 01 00 2C 41 47 4F 4C 46 ..........,AGOLF
00DB80: 00 00 00 00 00 00 00 00 00 00 00 0D 00 16 00 08 ................
00DB90: 7C 9E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |...............
00DBA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DBB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DBC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DBD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DBE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DBF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DC00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DC10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DC20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DC30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DC40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DC50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00DC70: 00 00 00 00 00 00 00 00 00 00 00 63 74 FF FF FF ...........ct...
00DC80: FE 11 D2 08 57 04 08 04 69 04 D3 08 FE 0F 07 9A ....W...i.......
00DC90: 0A 15 08 00 16 2B 56 41 4C 28 4D 49 44 24 28 7A .....+VAL(MID$(z
00DCA0: 24 2C 38 2C 31 29 29 3A 77 28 33 33 29 3D 32 33 $,8,1)):w(33)=23
00DCB0: 2B 56 41 4C 28 4D 49 44 24 28 7A 24 2C 37 2C 31 +VAL(MID$(z$,7,1
00DCC0: 29 29 0D 0A 39 30 35 38 20 49 46 20 49 4E 54 28 ))..9058 IF INT(
00DCD0: 77 28 31 30 29 2F 32 29 3D 77 28 31 30 29 2F 32 w(10)/2)=w(10)/2
00DCE0: 20 54 48 45 4E 20 39 30 36 35 0D 0A 39 30 36 30 THEN 9065..9060
00DCF0: 20 77 28 32 34 29 3D 2D 31 3A 77 28 37 29 3D 77 w(24)=-1:w(7)=w
00DD00: 28 32 29 2D 77 28 32 33 29 3A 49 46 20 77 28 32 (2)-w(23):IF w(2
00DD10: 29 2D 77 28 32 33 29 3C 32 34 20 54 48 45 4E 20 )-w(23)<24 THEN
00DD20: 77 28 37 29 3D 32 34 3A 77 28 32 29 3D 77 28 37 w(7)=24:w(2)=w(7
00DD30: 29 2B 77 28 32 33 29 0D 0A 39 30 36 35 20 77 28 )+w(23)..9065 w(
00DD40: 33 29 3D 77 28 33 29 2B 77 28 36 29 3A 77 28 34 3)=w(3)+w(6):w(4
00DD50: 29 3D 77 28 34 29 2B 77 28 37 29 3A 77 28 31 39 )=w(4)+w(7):w(19
00DD60: 29 3D 77 28 34 29 2A 38 2B 34 3A 77 28 32 30 29 )=w(4)*8+4:w(20)
00DD70: 3D 28 32 32 2D 77 28 33 29 29 2A 38 2D 34 0D 0A =(22-w(3))*8-4..
00DD80: 39 30 39 30 20 49 46 20 77 28 32 36 29 3C 32 20 9090 IF w(26)<2
00DD90: 54 48 45 4E 20 C3 F2 77 28 31 36 29 3D 30 3A 77 THEN ..w(16)=0:w
00DDA0: 28 31 37 29 3D 30 3A 49 46 20 77 28 32 36 29 3D (17)=0:IF w(26)=
00DDB0: 30 20 54 48 45 4E 20 77 28 31 34 29 3D 30 3A 77 0 THEN w(14)=0:w
00DDC0: 28 31 35 29 3D 30 0D 0A 39 31 30 30 20 46 4F 52 (15)=0..9100 FOR
00DDD0: 20 6E 3D 31 20 54 4F 20 32 34 3A 4C 4F 43 41 54 n=1 TO 24:LOCAT
00DDE0: 45 20 33 30 2C 6E 3A 50 52 49 4E 54 20 70 61 24 E 30,n:PRINT pa$
00DDF0: 28 31 29 3B 53 54 52 49 4E 47 24 28 31 31 2C 32 (1);STRING$(11,2
00DE00: 35 33 29 3B 3A 4E 45 58 54 3A 72 61 3D 77 28 32 53);:NEXT:ra=w(2
00DE10: 29 3A 46 4F 52 20 6E 3D 31 20 54 4F 20 77 28 31 ):FOR n=1 TO w(1
00DE20: 38 29 3A 72 61 3D 72 61 2D 28 77 28 32 34 29 2A 8):ra=ra-(w(24)*
00DE30: 28 6E 3E 77 28 32 32 29 20 41 4E 44 20 6E 3C 77 (n>w(22) AND n<w
00DE40: 28 32 35 29 29 29 3A 4C 4F 43 41 54 45 20 72 61 (25))):LOCATE ra
00DE50: 2B 37 2C 6E 2B 31 2B 77 28 31 29 3A 50 52 49 4E +7,n+1+w(1):PRIN
00DE60: 54 20 22 20 20 20 20 22 3A 4E 45 58 54 0D 0A 39 T " ":NEXT..9
00DE70: 31 33 30 20 50 45 4E 20 33 3A 46 4F 52 20 6E 3D 130 PEN 3:FOR n=
00DE80: 30 20 54 4F 20 34 20 53 54 45 50 20 32 3A 4C 4F 0 TO 4 STEP 2:LO
00DE90: 43 41 54 45 20 77 28 10 99 39 2B 6E 29 2B 37 2C CATE w(..9+n)+7,
00DEA0: 77 28 38 2B 6E 29 2B 31 3A 50 52 49 4E 54 20 43 w(8+n)+1:PRINT C
00DEB0: 48 52 24 28 32 35 34 29 3B 3A 4E 45 58 54 0D 0A HR$(254);:NEXT..
00DEC0: 39 31 33 35 20 4C 4F 43 41 54 45 20 77 28 39 29 9135 LOCATE w(9)
00DED0: 2B 37 2C 77 28 31 30 29 2B 31 3A 50 52 49 4E 54 +7,w(10)+1:PRINT
00DEE0: 20 43 48 52 24 28 32 35 34 29 3B 3A 4C 4F 43 41 CHR$(254);:LOCA
00DEF0: 54 45 20 77 28 39 29 2B 37 2C 77 28 31 32 29 2B TE w(9)+7,w(12)+
00DF00: 31 3A 50 52 49 4E 54 20 43 48 52 24 28 32 35 34 1:PRINT CHR$(254
00DF10: 29 3B 3A 4C 4F 43 41 54 45 20 77 28 31 31 29 2B );:LOCATE w(11)+
00DF20: 37 2C 77 28 38 29 2B 31 3A 50 52 49 4E 54 20 43 7,w(8)+1:PRINT C
00DF30: 48 52 24 28 32 35 34 29 0D 0A 39 31 34 30 20 50 HR$(254)..9140 P
00DF40: 41 50 45 52 20 31 3A 46 4F 52 20 6E 3D 30 20 54 APER 1:FOR n=0 T
00DF50: 4F 20 32 20 53 54 45 50 20 32 3A 49 46 20 77 28 O 2 STEP 2:IF w(
00DF60: 31 34 2B 6E 29 3E 30 20 54 48 45 4E 20 4C 4F 43 14+n)>0 THEN LOC
00DF70: 41 54 45 20 77 28 31 35 2B 6E 29 2B 37 2C 77 28 ATE w(15+n)+7,w(
00DF80: 31 34 2B 6E 29 2B 31 3A 50 52 49 4E 54 20 43 48 14+n)+1:PRINT CH
00DF90: 52 24 28 32 35 32 29 3B 43 26 11 48 52 24 28 32 R$(252);C&.HR$(2
00DFA0: 35 31 29 3B 3A 4C 4F 43 41 54 45 20 77 28 31 35 51);:LOCATE w(15
00DFB0: 2B 6E 29 2B 37 2C 77 28 31 34 2B 6E 29 2B 32 3A +n)+7,w(14+n)+2:
00DFC0: 50 52 49 4E 54 20 43 48 52 24 28 32 35 30 29 3B PRINT CHR$(250);
00DFD0: 43 48 52 24 28 32 34 39 29 0D 0A 39 31 34 31 20 CHR$(249)..9141
00DFE0: 4E 45 58 54 3A 49 46 20 77 28 32 37 29 3E 30 20 NEXT:IF w(27)>0
00DFF0: 54 48 45 4E 20 4C 4F 43 41 54 45 20 77 28 32 38 THEN LOCATE w(28
00E000: 29 2B 37 2C 77 28 32 37 29 2B 31 3A 50 52 49 4E )+7,w(27)+1:PRIN
00E010: 54 20 43 48 52 24 28 32 35 32 29 3B 43 48 52 24 T CHR$(252);CHR$
00E020: 28 32 35 31 29 3B 3A 4C 4F 43 41 54 45 20 77 28 (251);:LOCATE w(
00E030: 32 38 29 2B 37 2C 77 28 32 37 29 2B 32 3A 50 52 28)+7,w(27)+2:PR
00E040: 49 4E 54 20 43 48 52 24 28 32 35 30 29 3B 43 48 INT CHR$(250);CH
00E050: 52 24 28 32 34 39 29 0D 0A 39 31 35 30 20 49 46 R$(249)..9150 IF
00E060: 20 77 28 35 29 3C 3E 77 28 36 29 20 54 48 45 4E w(5)<>w(6) THEN
00E070: 20 4C 4F 43 41 54 45 20 33 30 2C 77 28 35 29 2B LOCATE 30,w(5)+
00E080: 31 3A 50 52 49 4E 54 20 70 61 24 28 36 29 3B 53 1:PRINT pa$(6);S
00E090: 54 52 49 4E 47 24 28 31 31 2C 32 20 6F 35 35 29 TRING$(11,2 o55)
00E0A0: 3B 0D 0A 39 31 36 30 20 4C 4F 43 41 54 45 20 77 ;..9160 LOCATE w
00E0B0: 28 37 29 2B 37 2C 77 28 36 29 2B 31 3A 50 52 49 (7)+7,w(6)+1:PRI
00E0C0: 4E 54 20 70 61 24 28 31 29 3B 43 48 52 24 28 32 NT pa$(1);CHR$(2
00E0D0: 34 38 29 3B 43 48 52 24 28 32 34 37 29 3B 43 48 48);CHR$(247);CH
00E0E0: 52 24 28 32 34 36 29 3B 3A 4C 4F 43 41 54 45 20 R$(246);:LOCATE
00E0F0: 77 28 37 29 2B 37 2C 77 28 36 29 2B 32 3A 50 52 w(7)+7,w(6)+2:PR
00E100: 49 4E 54 20 43 48 52 24 28 32 34 31 29 3B 22 20 INT CHR$(241);"
00E110: 22 3B 43 48 52 24 28 32 34 35 29 3B 3A 4C 4F 43 ";CHR$(245);:LOC
00E120: 41 54 45 20 77 28 37 29 2B 37 2C 77 28 36 29 2B ATE w(7)+7,w(6)+
00E130: 33 3A 50 52 49 4E 54 20 43 48 52 24 28 32 34 32 3:PRINT CHR$(242
00E140: 29 3B 43 48 52 24 28 32 34 33 29 3B 43 48 52 24 );CHR$(243);CHR$
00E150: 28 32 34 34 29 3B 3A 4C 4F 43 41 54 45 20 77 28 (244);:LOCATE w(
00E160: 34 29 2B 37 2C 77 28 33 29 2B 31 3A 50 45 4E 20 4)+7,w(3)+1:PEN
00E170: 33 3A 50 52 49 4E 54 20 43 48 52 24 28 32 34 30 3:PRINT CHR$(240
00E180: 29 3B 70 61 24 28 31 29 3B 3A 52 45 54 55 52 4E );pa$(1);:RETURN
00E190: 0D 0A 39 35 30 30 20 46 4F 52 20 6E 3D B2 AE 31 ..9500 FOR n=..1
00E1A0: 20 54 4F 20 35 3A 61 77 3D 31 2B 49 4E 54 28 52 TO 5:aw=1+INT(R
00E1B0: 4E 44 2A 31 36 29 3A 49 46 20 70 28 61 77 29 3E ND*16):IF p(aw)>
00E1C0: 30 20 54 48 45 4E 20 6E 3D 39 39 0D 0A 39 35 31 0 THEN n=99..951
00E1D0: 30 20 4E 45 58 54 3A 49 46 20 6E 3C 31 30 20 54 0 NEXT:IF n<10 T
00E1E0: 48 45 4E 20 52 45 54 55 52 4E 0D 0A 39 35 31 35 HEN RETURN..9515
00E1F0: 20 4C 4F 43 41 54 45 20 35 2C 31 39 3A 50 52 49 LOCATE 5,19:PRI
00E200: 4E 54 20 22 4F 4E 45 20 4F 46 20 59 4F 55 52 20 NT "ONE OF YOUR
00E210: 43 4C 55 42 53 20 48 41 53 20 42 45 45 4E 20 44 CLUBS HAS BEEN D
00E220: 41 4D 41 47 45 44 22 3B 20 0D 0A 39 35 32 30 20 AMAGED"; ..9520
00E230: 70 28 61 77 29 3D 70 28 61 77 29 2D 31 3A 47 4F p(aw)=p(aw)-1:GO
00E240: 53 55 42 20 39 37 35 30 3A 72 62 3D 56 41 4C 28 SUB 9750:rb=VAL(
00E250: 4D 49 44 24 28 7A 24 2C 72 61 2C 32 29 29 3A 72 MID$(z$,ra,2)):r
00E260: 62 3D 72 62 2D 35 3A 72 62 3D 72 62 2D 28 72 62 b=rb-5:rb=rb-(rb
00E270: 3C 31 30 29 2A 28 31 30 2D 72 62 29 3A 4D 49 44 <10)*(10-rb):MID
00E280: 24 28 7A 24 2C 72 61 2C 32 29 3D 52 49 47 48 54 $(z$,ra,2)=RIGHT
00E290: 24 28 53 54 52 24 28 72 62 29 2C 32 29 3A 76 D5 $(STR$(rb),2):v.
00E2A0: 00 24 28 31 29 3D 7A 24 3A 52 45 54 55 52 4E 20 .$(1)=z$:RETURN
00E2B0: 0D 0A 39 37 35 30 20 7A 24 3D 76 24 28 31 29 3A ..9750 z$=v$(1):
00E2C0: 72 61 3D 2D 35 2A 28 41 57 3D 31 37 29 2D 28 61 ra=-5*(AW=17)-(a
00E2D0: 77 3C 31 33 29 2A 37 2D 28 61 77 3E 31 32 20 41 w<13)*7-(aw>12 A
00E2E0: 4E 44 20 61 77 3C 31 35 29 2A 33 2D 28 61 77 3E ND aw<15)*3-(aw>
00E2F0: 31 34 20 41 4E 44 20 61 77 3C 3E 31 37 29 2A 31 14 AND aw<>17)*1
00E300: 3A 52 45 54 55 52 4E 0D 0A 39 38 30 30 20 46 4F :RETURN..9800 FO
00E310: 52 20 7A 3D 31 20 54 4F 20 37 20 53 54 45 50 20 R z=1 TO 7 STEP
00E320: 32 3A 79 24 3D 4D 49 44 24 28 76 24 28 6E 29 2C 2:y$=MID$(v$(n),
00E330: 7A 2C 32 29 3A 7A 31 3D 46 4E 61 28 56 41 4C 28 z,2):z1=FNa(VAL(
00E340: 79 24 29 2B 72 62 29 3A 79 24 3D 52 49 47 48 54 y$)+rb):y$=RIGHT
00E350: 24 28 53 54 52 24 28 7A 31 29 2C 32 29 3A 4D 49 $(STR$(z1),2):MI
00E360: 44 24 28 76 24 28 6E 29 2C 7A 2C 32 29 3D 79 24 D$(v$(n),z,2)=y$
00E370: 3A 4E 45 58 54 3A 52 45 54 55 52 4E 0D 0A 39 38 :NEXT:RETURN..98
00E380: 32 30 20 47 4F 53 55 42 20 33 30 3A 46 4F 52 20 20 GOSUB 30:FOR
00E390: 6E 3D 31 20 54 4F 20 33 39 3A 46 4F 52 20 7A 3D n=1 TO 39:FOR z=
00E3A0: 6E 9C 8F 2B 31 20 54 4F 20 34 30 3A 49 46 20 6A n..+1 TO 40:IF j
00E3B0: 28 66 28 6E 29 29 3E 6A 28 66 28 7A 29 29 20 54 (f(n))>j(f(z)) T
00E3C0: 48 45 4E 20 72 61 3D 66 28 6E 29 3A 66 28 6E 29 HEN ra=f(n):f(n)
00E3D0: 3D 66 28 7A 29 3A 66 28 7A 29 3D 72 61 0D 0A 39 =f(z):f(z)=ra..9
00E3E0: 38 33 30 20 4E 45 58 54 3A 4E 45 58 54 3A 52 45 830 NEXT:NEXT:RE
00E3F0: 54 55 52 4E 20 0D 0A 39 38 35 30 20 45 52 41 53 TURN ..9850 ERAS
00E400: 45 20 65 3A 44 49 4D 20 65 28 34 30 29 3A 46 4F E e:DIM e(40):FO
00E410: 52 20 6E 3D 31 20 54 4F 20 34 30 3A 72 62 3D 6E R n=1 TO 40:rb=n
00E420: 3A 47 4F 53 55 42 20 34 30 3A 6A 28 6E 29 3D 72 :GOSUB 40:j(n)=r
00E430: 63 3A 4E 45 58 54 3A 52 45 54 55 52 4E 20 0D 0A c:NEXT:RETURN ..
00E440: 39 38 36 30 20 50 52 49 4E 54 20 70 61 24 28 31 9860 PRINT pa$(1
00E450: 29 3A 42 4F 52 44 45 52 20 32 3A 49 4E 4B 20 30 ):BORDER 2:INK 0
00E460: 2C 32 3A 49 4E 4B 20 31 2C 32 36 3A 43 4C 53 3A ,2:INK 1,26:CLS:
00E470: 4C 4F 43 41 54 45 20 31 32 2C 38 3A 49 46 20 61 LOCATE 12,8:IF a
00E480: 69 3D 30 20 54 48 45 4E 20 50 52 49 4E 54 20 61 i=0 THEN PRINT a
00E490: 24 28 61 63 29 20 45 4C 53 45 20 50 52 49 4E 54 $(ac) ELSE PRINT
00E4A0: 20 69 24 02 9B FF FF FF FE 11 C5 08 57 04 08 04 i$.........W...
00E4B0: 82 04 04 09 FF 0F 07 12 00 07 01 00 2C 41 47 4F ............,AGO
00E4C0: 4C 46 00 00 00 00 00 00 00 00 00 00 00 0E FF 16 LF..............
00E4D0: B3 02 7C 9E 00 00 00 00 00 00 00 00 00 00 00 00 ..|.............
00E4E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E4F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E500: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E510: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E520: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E530: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E540: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E550: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 43 8E FF .............C..
00E5C0: FF FF FE 11 DC 08 57 04 08 04 69 04 D4 08 FE 0F ......W...i.....
00E5D0: 07 12 00 0B 03 00 16 28 61 66 29 0D 0A 39 38 36 .......(af)..986
00E5E0: 35 20 49 46 20 61 69 3D 31 20 54 48 45 4E 20 74 5 IF ai=1 THEN t
00E5F0: 7A 3D 7A 65 20 45 4C 53 45 20 74 7A 3D 76 28 61 z=ze ELSE tz=v(a
00E600: 63 2C 31 29 0D 0A 39 38 37 30 20 50 52 49 4E 54 c,1)..9870 PRINT
00E610: 20 2C 2C 2C 2C 2C 2C 54 41 42 28 39 29 3B 22 54 ,,,,,,TAB(9);"T
00E620: 4F 54 41 4C 20 22 3B 6E 24 28 31 29 3B 3A 47 4F OTAL ";n$(1);:GO
00E630: 53 55 42 20 36 33 35 30 30 3A 47 4F 54 4F 20 39 SUB 63500:GOTO 9
00E640: 39 32 30 0D 0A 39 38 39 30 20 7A 24 3D 49 4E 4B 920..9890 z$=INK
00E650: 45 59 24 3A 7A 24 3D 55 50 50 45 52 24 28 7A 24 EY$:z$=UPPER$(z$
00E660: 29 3A 49 46 20 7A 24 3D 22 59 22 20 4F 52 20 7A ):IF z$="Y" OR z
00E670: 24 3D 22 4E 22 20 54 48 45 4E 20 52 45 54 55 52 $="N" THEN RETUR
00E680: 4E 20 45 4C 53 45 20 39 38 39 30 0D 0A 35 30 30 N ELSE 9890..500
00E690: 30 30 20 4C 4F 43 41 54 45 20 35 2C 32 34 3A 50 00 LOCATE 5,24:P
00E6A0: 52 49 4E 54 22 49 4E 53 45 52 54 20 42 4C 41 4E RINT"INSERT BLAN
00E6B0: 4B 20 54 41 50 45 2C 50 52 45 53 53 20 53 50 41 K TAPE,PRESS SPA
00E6C0: 43 45 22 3A 47 4F 53 55 42 20 36 34 30 30 30 3A CE":GOSUB 64000:
00E6D0: 49 46 20 49 4E 24 3C 2C DA 3E 22 20 22 20 54 48 IF IN$<,.>" " TH
00E6E0: 45 4E 20 35 30 30 30 30 0D 0A 35 30 30 31 30 20 EN 50000..50010
00E6F0: 43 4C 4F 53 45 4F 55 54 3A 4F 50 45 4E 4F 55 54 CLOSEOUT:OPENOUT
00E700: 20 22 67 6F 6C 66 2E 73 61 76 22 3A 57 52 49 54 "golf.sav":WRIT
00E710: 45 23 39 2C 61 61 2C 61 62 2C 61 65 2C 61 66 2C E#9,aa,ab,ae,af,
00E720: 61 6B 2C 61 71 2C 61 72 2C 61 76 2C 61 77 2C 73 ak,aq,ar,av,aw,s
00E730: 6E 2C 7A 61 2C 7A 62 2C 7A 63 2C 7A 64 2C 7A 65 n,za,zb,zc,zd,ze
00E740: 2C 7A 6C 2C 7A 6D 2C 7A 6F 2C 66 24 3A 46 4F 52 ,zl,zm,zo,f$:FOR
00E750: 20 6E 3D 31 20 54 4F 20 32 3A 46 4F 52 20 61 3D n=1 TO 2:FOR a=
00E760: 31 20 54 4F 20 33 3A 57 52 49 54 45 23 39 2C 61 1 TO 3:WRITE#9,a
00E770: 28 6E 2C 61 29 3A 4E 45 58 54 20 61 2C 6E 3A 46 (n,a):NEXT a,n:F
00E780: 4F 52 20 6E 3D 31 20 54 4F 20 34 30 3A 57 52 49 OR n=1 TO 40:WRI
00E790: 54 45 23 39 2C 63 28 6E 29 2C 6B 28 6E 29 2C 76 TE#9,c(n),k(n),v
00E7A0: 24 28 6E 29 2C 75 24 28 6E 29 3A 4E 45 58 54 0D $(n),u$(n):NEXT.
00E7B0: 0A 35 30 30 32 30 20 46 4F 52 20 6E 3D 31 20 54 .50020 FOR n=1 T
00E7C0: 4F 20 32 30 3A 57 52 49 54 45 23 39 2C 61 24 28 O 20:WRITE#9,a$(
00E7D0: 6E 29 2C 6C 28 6E 2C 31 29 DA 1F 2C 6C 28 6E 2C n),l(n,1)..,l(n,
00E7E0: 32 29 3A 46 4F 52 20 61 3D 31 20 54 4F 20 33 3A 2):FOR a=1 TO 3:
00E7F0: 57 52 49 54 45 23 39 2C 76 28 6E 2C 61 29 3A 4E WRITE#9,v(n,a):N
00E800: 45 58 54 20 61 2C 6E 3A 46 4F 52 20 6E 3D 31 20 EXT a,n:FOR n=1
00E810: 54 4F 20 31 31 3A 57 52 49 54 45 23 39 2C 73 28 TO 11:WRITE#9,s(
00E820: 6E 29 3A 4E 45 58 54 3A 46 4F 52 20 6E 3D 31 20 n):NEXT:FOR n=1
00E830: 54 4F 20 31 37 3A 57 52 49 54 45 23 39 2C 70 28 TO 17:WRITE#9,p(
00E840: 6E 29 3A 4E 45 58 54 3A 57 52 49 54 45 23 39 2C n):NEXT:WRITE#9,
00E850: 64 24 28 31 29 2C 64 24 28 32 29 3A 46 4F 52 20 d$(1),d$(2):FOR
00E860: 6E 3D 31 20 54 4F 20 31 32 3A 57 52 49 54 45 23 n=1 TO 12:WRITE#
00E870: 39 2C 69 24 28 6E 29 3A 4E 45 58 54 3A 43 4C 4F 9,i$(n):NEXT:CLO
00E880: 53 45 4F 55 54 3A 52 45 54 55 52 4E 0D 0A 00 00 SEOUT:RETURN....
00E890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E8A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E8B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E8C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E8D0: 00 00 00 00 00 00 00 00 00 00 00 B0 0A FF FF FF ................
00E8E0: FE .
RESULT OF SEARCH :
PRO=1 CHEA=0 COD=0 MUSI=0 COP=0 GRA=1 WRIT=9 198=0 199=0 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
Y-,GOLFepe$' p()()()()()p()()()()()p()()()()()p()()()()()p()()()()()p()()()()()
B,,,, A-j,l-s,w "D" B, , 3( 0,3,6,9,18,19,16,15,2,1,24,25,13,12,12,
25,262 "!CGPIC.SCR",nF ,r,,,,, ,, ,V,,,,,,,( ,!,,, ,,,, ,*,A,,, ,,, kP ,,K,,1,,,
, ,, ,,,,X,' ,,, ,,e,,",L ,,,,, ,,,uZ ,,,,,,,, ,,,8,,,,, ,,,,,,,, ,,,,,,,, ,,,,,
,,,Yd ,,,,,, ,, , , , ,,,, , ,,,,,,,,n "!GOLF1", p()' ( ) " PER TOURNAMENT"
(#)"+" (#)"-" ()Ba( t)ay(a,(a)) (£)aq&i""i(C) C""&d i"Y" i"N" n d"i"" i""
L z9 S ( )( ) ( c)c ( d) F s #,,&,, #k,,%,, #,,,, #,p() , , , , p() 1W
W,CGPIC.SCRl3Ww3333#333333333333#333#W333#3333Ww3333w3w333#w33#33w3#333w33333333
3#33bU#W#,B33333333333##3w3W3##"U3w333333w3#3wWW#WW3333#33w##3##W3wW#3#/HHHHHHSQ
£"BFdd0dLdddddddddd)dd0Aw00dddddddA0ddddddAwdddddddAdAAwdddAwddd"3fdd3wfd*fddd*d
**dd******nd,CGPIC.SCR!Wnw#wWW#333#w33#w333w333333#3W#3333#w3#33333333w33#333333
3##bwBB3333333333ww3w333#3#33333b#3aBw33333#3333333w#W333w#wW3#33333##w3##3#333w
#W3WW3#333w3333WHHQQ£ASddBFd0ddLd0ddddddddud00dddd00Aw0dd00ddd0dAAddqdAAAw0ddddd
AddddAAwdAddd"3"3fd3c3dd***************n3fd***************d***************d*****
*n,CGPIC.SCRpmW3w3WW#33333333333w33333333#33#33#3#33333333w3w33w33333w33bWw33333
33333333333w33#3w#333b3Bw3#333333WwwW333Ww33333w3w3w33w33333#3333WWWWW##W33W#WWW
U##WiHHHHHHHQQFddB0ddDd0d00dddddddd%dd0qqq0wddddddddddd0dA00dddddd0Awdd0dddWddAd
pdddAAwdddddAddd,l33"fddd33***nfdd**d0dd***n****DDDDd0,CGPIC.SCRxznww3w#3#WWw3w#
3w3w33333333333333w3333333333#33#333333333#b33"W#3333w333333w#33333#33w3#3##bB3#
sw3333#3w3w33#w333Ww3#W33w3ww333333W3W33W##w333WW#WWw3#W)HSH£QQ£H8XSSdddddBFd0Ad
0d00d0ddddddqddd0AAddd00ddAAd00000dd0d0pAAw0ddqAdd0dAAwddAAd0dd0d 33fddddd3Aw***
*************n****************ndd**************ndd****D7WW,CGPIC.SCRm3#333333333
wW33333333333333"3""33#33#3w33ww#333333#b3w3B3#333333w33333333w33w33##B#3N3#3333
3Wwwww33#3w#33w333#3333333WB3##33WW#WW33wHHHHSHSQ£SddL0d0d0ddddd00d0dw0q0ddd0dAd
dddddddddAwd0dddddddAw0qdbdddAdddAAwdAfdddY"33*ndd**ndd*ndd*nd******DD',CGPIC.SC
RDWew33#333w33333333w3w#333w333#33#"3"ww#333333W33333333333333b3w"bww#3333333w33
3#333#33wwWB3w+WB333w3WW333ww3#33333333#3B#wwWWWW)39HH£Q£0d0d!L0dddddddd0dddDdw0
ddqddddAAd0ddd0dd0ddAAwd0d0ddddddddAAwddd Ad0dAAwddddAfdd0F"3fdddd*fd***********
***n0dd**************bndd************d********DW,CGPIC.SCRjw3w3#Ww33333333333w33
33#33w3"33333333333333333w3333Uw333#B33333#3333333#333#333B##33#w33#3333333w3333
33wb3##3#WWHHWeHHHH£SS0BddddL0d0dd0Fddqd0ddddAwHdddAd0ddddAwdq000pddddAd0d0Adddd
Aw0d0dAwdg"3fdwfd*nddndddd*********nDDDD W,CGPIC.SCRCTj'#333#3W333#3#ww333w33333
33#3333"""W3333333333##333333w#3#3333333BBW333333333ww3w3333Ww"nB3Ww3333WW#W3W#3
3w#W33333w33#3W3w33WHHS££BmdddddLdddd0ddDdqddddqdAAwd0xqddqdd0dddAd0dddddddddddA
wd0dqddpddAAdddHdAAwddd0dAwdfd3fd3fdd************d************£d*n*sW,GOLF1Wr 10
DIM a(2,3),c(40),d(2,18),e(40),f(40),g(10),h(5,3),j(40),k(40),l(20,2),n(2,18),o
(2,5),p(17),r(10),s(13),t(9),v(20,3),w(40),j$(50),b$(4,9),a$(20),p$(5),c$(10) 2
0 DIM d$(2),e$(26),i$(12),n$(3),s$(20,6),t$(40),u$(40),v$(40)ba0FOR n1 TO 9READ
t(n)NEXTtFOR n1 TO 4FOR y1 TO 9READ b$(n,y)NEXT y,nRANDOMIZE TIME 30 FOR n1 TO
50z11+INT(RND*8)FOR a1 TO 6z1z1*10+INT(RND*8)+1NEXTj$(n)RIGHT$(STR$(z1),7)NEXTFO
R n1 TO 20FOR h1 TO 6z10FOR z1 TO 3z1z1*100+INT(RND*49)+11NEXTs$(n,h)RIGHT$(STR$
(z1),6)NEXT h,n 40 DATA 3,4,5,110,220,450,120,220,140,92111027,82110035,7211300
4,92014046,82020013,82212536,92111015,92221046,92210027,12056025,11156663,225417
33,12166234,11520643,21064312,11076523,11166535,11160663,71043522,53052745,63043
165 50 D6lATA 64162657,76143122,56152544,53063642,65022440,75123641,11223344,88
776655,12348765,45137437,45843637,17357283,43864527,54633127,65341224 60 FOR n1
TO 20READ a$(n)FOR a1 TO 3READ v(n,a)NEXT a,nFOR n1 TO 10READ c$(n)NEXTFOR n1 T
O 12READ i$(n)NEXT 70 DATA " SUN CITY CHALLENGE ",700000,2200,72,"CAR CARE PLAN
INTERN",110000,200,69," PGA CHAMPIONSHIP ",180000,200,72," BRITISH MASTERS
",200000,200,72 80 DATA " MONTE CARLO OPEN ",125000,400,72," BRITISH OPEN
",500000,200,70," EUROPtEAN OPEN ",200000,400,70," SANYO SPANISH OPEN "
,120000,500,70 90 DATA " LANCOME TROPHY ",125000,400,72," THE US MASTERS
",600000,1000,72," BOB HOPE CLASSIC ",350000,1000,72 100 DATA " US OPE
N ",550000,1000,70," NEC WORLD SERIES 8",500000,1000,70,"WALT DISNEY CLA
SSIC ",250000,1000,72 110 DATA "SEIKO INTERNATIONAL ",450000,1000,70," JERS
EY OPEN ",75000,300,72,"CARROLLS IRISH OPEN ",120000,300,71," B&H INTERNATION
AL ",150000,200,72 120 DATA " AUSTRALIAN MASTERS ",150000,15030,73," ITALI
AN OPEN ",75000,400,72 130 DATA "DUNLOP","BOSS","SLAZENGER","D&H GAMES","NIKE
","HI-TEC","VOLVO","BELLS","LE COQ","GUCCI" 140 DATA "WENTWORTH","GLENEAGLES","
STEVENAGE","MOORTOWN","WOBURN","HAGGS CASTLE","FULFORD","SUNNINGDALE","THE BELFR
'W,GOLF1q'Y","BINGLEY","ROYAL LYTHAM","WINDSOR" 150 h$"BCDFGHJKLMNPRSTVW"m$"AEI
OU"RESTORE 160FOR n1 TO 26READ e$(n)NEXTFOR n1 TO 3READ n$(n)NEXTRESTORE 180GOSU
B 180CHAIN MERGE"!GOLF2",10 160 DATA "DEN","NS","RY","EY","ON","WAY","LE","BY",
"INS","LEY","SON","TON","S","ES","MAN","BLE","NEY","SEY","TER","IS","ER","ENS","
DON","ING","GAN","LIN" 170 DATA "PRIZE MONEY ","EXPENSES ","TOURNAMENT" 180 FO
R n1 TO 10READ r(n)NEXTRETURNDATA 4,2,1,0,0,-1,-2,-4,-5,-6 gx,GOLF2C£hw 10 ak10
aq0ar0au0ae0zf0zp0FOR n1 TO 10READ g(n)NEXTDATA 35,22,16,7,6,5,4,3,2,1 20 GOSUB
65502LOCATE 9,8PRINT"STOP TAPE,DO NOT REWIND"LOCATE 11,11PRINT "LOAD SAVED GAME
Y/N"GOSUB 64100IF IN$"Y" THEN CLSLOCATE 10,10PRINT"START SAVKED GAME TAPE"GOSUB
50000CLSLOCATE 10,11PRINT"START ORIGINAL TAPE"CHAIN MERGE"!AGOLF",500 30 CLSF$
"000000000000000"GOSUB 9920sn0za20000ab1zc0zd0ze0zl0zm0zn0zo0 40 GOSUB 70RANDOM
IZE TIMEFOR n2 TO 40GOSUB 9910v$(n)z1$NEXTRANDOMIZE TIMEz10FOR z1 TO 4z1z1*100+I
NT(RND*10)+35NEXTv$(1)RIGHT$(STR$(z1),8) 50 CLSLOCATE 5,11PRINT "ENTER YOUR FIR
ST INITIAL"GOSUB 65535INPUT#2,z$CLS#2u$(1)LEFT$(z$,1)+"."LOCATE 5,11PRINT "ENTER
YOUR SURNAME (MAX 9 CHARS)"INPUT#2,z$CLS#2IF LEN(z$)9 OR LEN(z$)1 THEN 100 60
RANDOMIZE TIMECLSGOSUB 9920u$(1)UPPER$(u$(1)+z$)+SPACE$(9-LEN(z$))FOR n1 TO 17p(
n)1NEXTCHAIN MERGE"!AGOLF",400 70 FOR a2 TO 40 READ u$(a)u$(a)u$(a)+SPACE$(11-L
EN(u$(a)))NEXTRETURN 80 DATA "G.NORMAN","B.LANGER","S.BALESTROS","T.NAKAJIMA","
A.BEAN","R.TWAY","C.STRANGE","M.O'MEARA","I.AOKI","S.LYLE","C.PEETE","R.FLOYD","
L.WADKINS","T.KITE","R.DAVIS","T.WATSON" 90 DATA "F.ZOELLER","M.McNULTY","C.STA
DLER","J.NIKLAUS","H.CLARK","I.WOOSNAM","G.MARSH","NS.HOCH","L.MIZE","B.CRENSHAW
","L.TREVINO","S.TORRANCE","N.FALDO","N.PRICE","G.BRAND","L.NELSON" 100 DATA "F
.COUPLES","J.RIVERO","M.JAMES","P.AZINGER","H.BIAOCCHI","H.IRWIN","K.BROWN" 990
0 z$MID$(h$,1+INT(RND*17),1)+"."+MID$(h$,1+INT(RND*17),1)+MID$(m$,1+INT(RND*5),1
)+MID$(h$,1+INT(RND*17),1)+e$(1+INT(RND*26))z$z$+SPACE$(11-LEN(z$))RETURN 9910
z10FOR z1 TO 4z1z1*100+INT(RND*15)+75NEXTz1$(RIGHT$(STR$(z1),8))RETURN 9920 P
RINT #2,TAB(10)pa$(2)"PLEASE WAIT"pa$(1)RETURN 9930 PRINT #2,TAB(13)pa$(4)" (C
)ONTINUE "pa$(1)WHILE INKEY(62)-1WENDWHILE INKEY(62)-1WENDGOTO 65535 9940 PRINT
#2,TAB(13)pa$(3)" (M)ENU "pa$(1)WHILE INKEY(38)-1WENDWHILE INKEY(38)-1WENDGOTO 6
5535 9950 PRINT #2,TAB(7)pa$(4)" (C)HANGE (M)ENU "pa$(1) ,GOLF2bz( RETURN 9
960 LOCATE 20,22PRINT "BANK "tzzaGOSUB 63500PRINT CHR$(32-(za0)*13)RETURN 9970
GOSUB 65535INPUT#2,"DO YOU ACCEPT Y/N"z$CLS#2z$UPPER$(z$)IF z$"Y" OR z$"N" THEN
RETURN ELSE 9970 9980 GOSUB 65535GOSUB 64200y$IN$IF y$ "0" OR1 y$ "9" THEN 998
0 ELSE a1VAL(y$)RETURN 9990 DATA "PLAY TOURNAMENT","NEXT TOURNAMENT","PRACTICE
","FIXTURES","CHANGE NAMES","BANK","SPONSORS","LEVEL","WORLD RANKING","SAVE GAME
" 50000 CLOSEINOPENIN "golf.sav" 50010 INPUT#9,aa,ab,ae,af,ak,aq,ar,zpav
,aw,sn,za,zb,zc,zd,ze,zl,zm,zo,f$FOR n1 TO 2FOR a1 TO 3INPUT#9,a(n,a)NEXT a,nFOR
n1 TO 40INPUT#9,c(n),k(n),v$(n),u$(n)NEXT 50020 FOR n1 TO 20INPUT#9,a$(n),l(n,
1),l(n,2)FOR a1 TO 3INPUT#9,v(n,a)NEXT a,nFOR n1 TO 11INPUT#9,s(n)NEXTFOR n1 TO
17INPUT#9,p(n)NEXTINPUT#9,d$(1),d$(2)FOR n1 TO 12INPUT#9,i$(n)NEXTCLOSEINRETURN
,AGOLFm 10 FOR n2 TO 40rbn-1z2k(f(n))z1f(n) 15 IF k(f(rb))z2 THEN raf(rb+1)f(
rb+1)f(rb)f(rb)rarbrb-1IF rb0 THEN 15 20 f(rb+1)z1NEXTRETURN 30 FOR n1 TO 40f
(n)nNEXTRETURN 40 rc0FOR z1 TO 7 STEP 2rcrc+VAL(MID$(v$(rb),z,2))IF INT(z0/2)a
g THEN rcrc+VAL(MID$(v$(rb),z,2)) 45 NEXTrcINT(rc/5)RETURN 50 FOR n1 TO 40t$(
n)u$(n)f(n)nrbnGOSUB 40j(n)rc+c(n)NEXTRETURN 60 ' 70 z1FOR a1 TO 7 STEP 2w(z)
0IF f(n)41 THEN w(z)VAL(MID$(v$(f(n)),a,2)) 72 zz+1NEXTRETURN c75 z1FOR a1 TO
7 STEP 2w(z)w(z)+(w(z)99)*(w(z)-99)-(w(z)10)*(10-w(z))x$RIGHT$(STR$ (w(z)),2)MID
$(v$(f(n)),a,2)x$zz+1NEXTRETURN 80 FOR n2 TO ahrbn-1rce(n)rdf(n) 85 IF e(rb)r
c THEN 90 86 raf(rb+1)f(rb+1)f(rb)f(rb)raraj(rb+1)j(rb+1)j(rb)j(rb)rarae(rb+1)e
(rb+1)e(rb)e(rb)raz$t$(rb+1)t$(rb+1)t$(rb)t$(rb)z$rbrb-1IF rb0 THEN 85 90 f(rb+
1)rdNEXTRETURN 100 RANDOMIZE TIMErd0re0FOR n1 TO ahIF f(n)1 THEN n99 110 NEXT
IF n100 THEN rd1 115 FOR o1 TO ajapap+1LOCATE 12,18PRINT "PLAYING ROUND"apIF rd
1 THEN GOSUB 180 120 IF ap1 THEN 128 122 ax0ca1FOR x1 TO 18GOSUB 9000axax+d(1,
x)NEXTca0IF ax74 THEN 125 123 FOR x1 TO 18IF d(1,x)5 THEN d(1,x)4axax-1IF ax74
THEN x19 124 NERXT 125 IF ax68 THEN 128 126 FOR x1 TO 18IF d(1,x)3 THEN d(1,x
)4axax+1IF ax68 THEN x19 127 NEXT 128 FOR x1 TO 18d(2,x)t(d(1,x)+1)+INT(RND*t(
d(1,x)+4))NEXT 130 IF ai0 AND al0 THEN 160 132 IF INT(RND*1000)500 THEN 160 1
35 bbapbdINT(RND*17)+1IF d(1,bd)5 THEN 135 140 beINT(RND*39)+1FOR n1 TO ahIF f(
n)be THEN n99 150 NEXTIF n100 THEN 140 160 am0an0rc500FOR n1 TO ahrbax+r(INT(j
(n)/10))+INT(RND*8)e(n)e(n)+rbamam-rb*(nrd)anan-rb*(nre)IF e(n)rc AND nrd uAND n
re THEN rce(n)rfn 165 NEXTIF rd0 THEN GOSUB 200 170 NEXTGOTO 80 180 FOR n1 T
O ahIF f(n)1 THEN rdnren+(INT(n/2)n/2)-(INT(n/2)n/2)nah+1 190 NEXTRETURN 200 E
RASE n,oDIM n(2,18),o(2,10)raamrb1rh0-(be1)GOSUB 350raanrb1y,AGOLFh 2rh0-(bef(re
))GOSUB 350o(1,3)e(rd)-amo(2,3)e(re)-ano(1,10)o(1,3)o(2,10)o(2,3) 210 INK 0,9GO
SUB 8700 220 FOR x1 TO 18GOSUB 65535LOCATE 21,8PEN 2PRINT USING "##"xGOSUB 9000
LOCATE 10,9PRINT pa$(2)d(1,x)LOCATE 15,9PRINT d(2,x)IF xf1 AND ap1 THEN 228 ELSE
FOR b1 TO 2 222 rao(b,10)-(ap-1)*axFOR c1 TO x-1rara+(n(b,c)-d(1,c))NEXTLOCATE
24,b*2+12 224 IF ra0 THEN PRINT "E " ELSE IF ra0 THEN PRINT "-"USING"##"ABS(r
a) ELSE PRINT "+"USING"##"ra 226 NEXT 228 GOSUB 250GOSU B 65100n(1,x)o(1,1)n(
2,x)o(2,1)IF bc THEN GOSUB 8600 230 NEXTGOSUB 8600GOTO 9860 240 in$UPPER$(INKE
Y$)IF in$"C" THEN bc1 ELSE IF in$"S" THEN ba1 ELSE IF in$"F" THEN ba0 245 IF in
$"F" OR in$"C" OR in$"S" THEN PRINT CHR$(7)GOTO 8800 2946 RETURN 250 FOR n1 TO
2o(n,8)n(n,x)NEXTo(1,4)w(2)*8+12o(2,4)o(1,4)+8FOR c1 TO 2o(c,5)(21-w(1))*8o(c,7
)o(c,5)-w(20)o(c,6)o(c,4)-w(19)NEXT 255 LOCATE w(2)+8,w(1)+1PRINT pa$(4)MID$(t$
(rd),3,1)pa$(6)MID$(t$(re),3,1) 260 FOR n1 TO 2o(n,1)0NEXTGOSUB 340FOR n1 TO 8F
OR a1 TO 2CLS#3IF n(a,x)0 THEN n(a,x)n(a,x)-1ra0rb0GOSUB 280GOSUB 300GOSUB 240FO
R b1 TO 3o(a,b)o(a,b)+1NEXT 270 NEXTGOSUB 340NEXTRETURN 280 IF n(a,x)0 THEN 80
40 ELSE rc(w(19)-o(a,4))/3rbrc+INT(O'RND*(rc/2))rc(w(20)-o(a,5))/3rarc+INT(RND*(
rc/2))IF INT(RND*5)2 THEN rbrb*2 290 IF n(a,x)4 AND INT(RND*20)14 THEN 8240 ELS
E RETURN 300 IF ra0 AND rb0 THEN RETURN 305 IF w(5)w(6) THEN IF o(a,5)-ra w(21
)+1 AND o(a,5)-ra w(21)-8 THEN raw(21Wy)+2 310 IF o(a,5)-ra0 THEN rao(a,5) 315
rcw(20)-o(a,5)IF ra rc/2 THEN rarc-2 320 IF o(a,5) w(20) THEN IF ra0 THEN ra-r
a 322 IF o(a,5) w(20) THEN raABS(ra) 325 IF o(a,4)+rb172 THEN rbrb+1GOTO 325
330 IF o(a,4)+rb255 THEN rbrb-1GOTO 33+0 335 FOR z1 TO 100+ba*1100NEXTPLOT o(a,
4)*2+96,o(a,5)*2+48DRAWR rb*2,-ra*2o(a,4)o(a,4)+rbo(a,5)o(a,5)-raIF n(a,x)0 THEN
SOUND 1,2000,20 340 FOR b1 TO 2LOCATE 14,b*2+12PRINT pa$(2)USING"#"o(b,1)LOCAT
E 17,b*2+12PRINT USING"##"o(b,2)LO,AGOLFYWr CATE 20,b*2+12PRINT USING"###"o(b,3)
NEXTRETURN 350 FOR n1 TO 18n(rb,n)3NEXTrara-54IF rh1 THEN rara+n(rb,bd)-1n(rb,b
d)1 360 IF ra1 THEN RETURN 370 rc1+INT(RND*17)IF n(rb,rc)6 OR (bdrc AND rh) T
HEN 370 380 n(rb,rc)n(rb,rc)+1rara-G1GOTO 360 400 GOSUB 65500GOSUB 9920RANDOMI
ZE TIMEFOR n1 TO 20l(n,1)nNEXTFOR n1 TO 20z1l(n,1)ra1+INT(RND*(19))l(n,1)l(ra,1)
l(ra,1)z1NEXTab1FOR n1 TO 40rb1+INT(RND*7)raINT(RND*10)IF ra5 THEN rb-rb 420 GO
SUB 9800c(n)5k(n)09NEXTafINT(RND*11)+1 500 IF za0 THEN 550 510 IF s(4)0 OR s(5
)0 THEN GOSUB 7100 520 IF za0 THEN 550 530 CLSLOCATE 5,9PRINT"YOU HAVE FAILED
IN YOUR QUEST",,,TAB(7)"TO BE THE NUMBER 1 GOLFER"GOSUB 9930CLSNEW 550 GOSUB 65
500raFRE("")agINT(Ro7ND*3)acl(ab,1)PRINT pa$(1)CLSLOCATE 10,3PRINT pa$(2)" "a$(a
c)" "pa$(1)RESTORE 9950 560 LOCATE 5,5FOR n1 TO 10READ z$PRINT TAB (12)CHR$(n+6
4)" "z$NEXTGOSUB 9960 570 GOSUB 64200IF in$"K" OR in$"A" THEN 570 575 IF in$"
A" AND MID$(f$,2,1)"0" THEN ae2 580 raASC(in$)-64IF MID$(f$,ra,1)"1" THEN ON ra
GOSUB 600,1000,1400,2200,3000,3400,3800,4200,5400,50000 590 GOTO 550 600 al0R
ANDOMIZE TIMEIF ae2 THEN c(1)c(1)-1GOTO 800 605 GOSUB 1800GOSUB 2600ra1rb0-(a(1
,3)0 AND a(z1,3)255)-2*(a(1,3)255)GOSUB 9800 608 IF ae1 THEN 700 610 ai0GOSUB
9860ERASE j,eDIM j(40),e(40)ap0GOSUB 50IF j(1)80 THEN 690 620 ra0FOR n2 TO 40ra
ra-(j(n)j(1))NEXTIF ra4 THEN 690 640 INK 0,6BORDER 6CLSLOCATE 6,10PRINT"YOU WIL
L AHAVE TO QUALIFY FOR"TAB(12)"THE FINAL ROUNDS",,,TAB(5)"YOU MUST FINISH THE QU
ALIFYING",TAB(5)"ROUNDS IN THE TOP FIVE"al1GOSUB 9930ai0GOSUB 7000GOSUB 6700GOSU
B 9860 645 ERASE e,p$DIM e(40),p$(5)ra0FOR n1 TO 5w(n)f(n)w(n+5)j(n)p$(n)t$-(f(
n))rara-(f(n)1)*nNEXTGOSUB 50FOR n1 TO 5IF w(n)1 THEN w(n+10)1GOTO 660 650 rbIN
T(RND*38)+2FOR z11 TO 15IF w(z)rb THEN rb99 655 NEXTIF rb99 THEN 650 ELSE w(n+1
0)rb 660 NEXTIF ra0 THEN w(11)1 670 FOR n11 TO 15IF ran-10 THEN 8,AGOLFWq j(w(
n))w(n-5)t$(w(n))p$(n-10)f(w(n))30+n 680 NEXT 690 al0ah40ai0aj2GOSUB 7010GOTO
840 700 ERASE j,eDIM e(40),j(40)ai1GOSUB 7000ra0FOR n1 TO 40rara-(f(n)1)*nNEXTn
1rb0-2*(ra1)-(ra1 AND ra6)rbINT(RND*rb)GOSUB 9800GOSUB 7500GOSUB 9930 800 ap0ai
0GOSUB 9860ERASE e,jDIM e(40),j(40)FOR n2 TO 40t$(n-1)u$(n)f(n-1)nrbnGOSUB 40j(n
-1)rc+c(n)NEXT 815 GOSUB 9900t$(40)z$f(40)41j(40)50+INT(RND*30)ah40aj2GOSUB 600
0GOSUB 100GOSUB 8200GOSUB 6500 820 ahiU20GOSUB 6000aj2GOSUB 100GOSUB 8200 840
GOSUB 7500l(ab,2)f(1)FOR n1 TO ahIF f(n)0 AND f(n)41 THEN GOSUB 70ra-2*(n6)-(n11
)+(n20)FOR z1 TO 4w(z)w(z)+raNEXTGOSUB 75 890 NEXTFOR n1 TO 10IF f(n)0 AND f(n)
41 THEN c(f(n))c(f(n))-(n1)*3-(n2 OR n3)*2-(n11) 895 NEXTGOSUB 9930 900 IF a(1
,3)0 AND a(1,3)255 THEN zn(zn/10)*9 910 zo(zo*(av+1))*4zczc*(av+1)z10CLSPRINT T
AB(14)"WEEKLY NEWS",,,TAB(5)"PRIZE MONEY"tzznGOSUB 63470PRINT TAB(5)"TRAVEL "n$(
2)tzzcGOSUB 6&3480 911 PRINT TAB(5)"HOTEL "n$(2)tzzoGOSUB 63480PRINT TAB(5)"ENT
RY FEE"tzzdGOSUB 63480 912 IF s(4)0 THEN PRINT TAB(5)"MORTGAGE REPAYMENTS"tzzmG
OSUB 63480 915 IF a(1,3)0 THEN PRINT TAB(5)"CADDY'S WAGE"tza(1,2)GOSUB 63480 9
20 IF ,a(2,3)0 THEN PRINT TAB(5)"COACH'S WAGE"tza(2,2)GOSUB 63480 925 IF s(5)0
THEN PRINT TAB(5)"LOAN REPAYMENTS"tzzlGOSUB 63480 930 ra0FOR n1 TO 7 STEP 2rere
+VAL(MID$(v$(1),n,2))NEXTPRINT TAB(5)"LIVING COSTS"z2175+INT(RND*75)IF re320 TXH
EN z2z2*2 932 tzz2GOSUB 63480 935 IF zp0 THEN PRINT TAB(5)"BET STAKES"tzzpGOSU
B 63480 938 IF f(1)au THEN PRINT TAB(5)"BOOKIES RETURNS"tzzfGOSUB 63470 940 IF
be1 THEN PRINT TAB(5)"HOLE IN ONE"tz10000GOSUB 63470 942 z10FOR n1 TOFi 3IF s(
n)0 THEN PRINT TAB(5)c$(s(n+7))" PAY"tzs(10+n)GOSUB 63470z1z1+s(n+10)s(n)s(n)-1I
F s(n)0 THEN s(10+n)0 943 NEXT 945 z1zn-zo-zd-zc-z2+zl*(s(5)0)+zm*(s(4)0)-zf*(
f(1)au)-zp+a(1,2)*(a(1,3)0)+a(2,2)*(a(2,3)0)-10000*(be1)zaza+z1Pm,AGOLF+Wy RINT
,,TAB(5)"BALANCE"tzABS(z1)GOSUB 63490PRINT TAB(35)CHR$(45+2*(z10)) 946 IF be1 T
HEN PRINT TAB(5)u$(be)" HAS WON "tz10000GOSUB 63500PRINT " FOR A HOLE IN ONE
"k(be)k(be)+10000 948 bb0bd0be0GOSUB 9960FOR n4 TO 5IF s(n)0 THEN s(n)s(n)-1
950 NEXTak10zc0zp0au0zf0zd0zn0zo0F$"000000000000"ae0abab+1 952 IF a(1,3)0 THEN
960 955 a(1,3)a(1,3)-1IF a(1,3)0 THEN PRINT ,,TAB(5)"YOUR COACH HAS RESIGNED"
957 IF a(1,3)254 THEN a(1,3)0 958 IF a(1,3)0 THEN avav-1 960 IF a(2,3)0 THEN 9
68 962 a(2,3)a(2,3)-1IF a(2,3)0 THEN PRINT ,,TAB(5)"YOUR CADDY HAS RESIGNED" 9
63 IF a(2,3)254 THEN a(2,3)0 964 IF a(2,3)0 THEN avav-1 968 FOR n1 TO 40IF c(n
)0 THEN c(n)0 ELSE IF c(n)10 THEN c(n)10 970 NEQXT 980 RANDOMIZE TIMEIF INT(RN
D*20)10 THEN GOSUB 9500 992 c(1)c(1)-arar0afINT(RND*11)+1GOSUB 9940IF ab20 THEN
8500 ELSE 500 1000 zc0zd0CLSLOCATE 13,1PEN 3PRINT "NEXT "n$(3)LOCATE 7,4PRINT
"1. MAJOR "PEN 1PRINT A$(AC)LOCATE 11,5PRINT n$(2)"TO GO "tzv(ac,2)GOSUB 63500
1005 LOCATE 11,6PRINT "ENTRANCE FEE "tzv(ac,1)/200GOSUB 63500LOCATE 11,7PEN
3PRINT n$(1)" "tzv(ac,1)GOSUB 63500 1010 z1INT((1000+(RND*800))*10)z2100+INT
(RND*100)LOCATE 7,13PRINT "2. MINOR "n$(3)" AT "LOCATE 11,14PEN 1PRINT i$(af)LOC
ATE 11,17PEN 3PRINT n$(1)" "tzz1GOSUB 63500PEN 1 1015 LOCATE 11,15PRINT n$(2
)"TO GO "tzz2GOSUB 63500LOCATE 11,16PRINT "ENTRANCE FEE "tzINT(z1/150)GOSUB
63500LOCATE 7,22PRINT"M. MENU" 1020 GOSUB 64200IF in$"1" AND in$"2" AND in$"M"
THEN 1020 ELSE IF in$"M" THEN ae2RETURN 1025 MID$(f$,2,1)"1"a1VAL(in$)IF a12 T
HEN ae1zcz2zdINT(z1/150)zez1RETURN 1060 ae0zcv(ac,2)zdINT(v(ac,1)/200)zeINT(v(a
c,1)) RETURN 1400 CLSPRINT TAB(17)"PRACTICE"LOCATE 11,4PRINT "1. BUNKER SHOTS"
,,,TAB(11)"2. CHIPPING",,,TAB(11)"3. PUTTING",,,TAB(11)"4. DRIVING",,,TAB(11)"5.
PRACTICE ROUND",,,,,TAB(11)"M. MENU" 1415 re0FOR n1 TO 7 STEP 2LOCATE 27,n+3re
re+VAT,AGOLFp L(MID$(v$(1),n,2))PRINT MID$(v$(1),n,2)NEXTrere/4LOCATE 5,20PRINT"
HOURS AVAILABLE"akIF ak1 THEN MID$(f$,3,1)"1" 1418 ra0GOSUB 64200IF in$"M" THEN
RETURN ELSE IF in$"1" OR in$"5" THEN 1418 ELSE a1VAL(in$)IF a15 AND ak3 THEN 14
18 ELSE I'F ak1 THEN 1418 1420 rb(a1-1)*2+1ra0IF a15 THEN akak-2GOSUB 1600rb1+I
NT(RND*3)*2GOTO 1490 1430 INPUT#2,"HOW MANY HOURS "rfCLS#2IF rfak OR rf1 THEN
1430 1440 IF rf1 THEN GOSUB 1600GOTO 1490 1450 FOR n1 TO rfGOSUB 1600NEXT 14
90 rdVAL(MID$(v$(1),rb,2))+rardFN a(rd)MID$(v$(1),rb,2)RIGHT$(STR$(rd),2)GOTO 14
00 1600 akak-1rdINT(RND*10)rara+(rd3)-(rd5)-(a(2,3)0)-(re65)+(rd90)RETURN 1800
INK 0,1INK 1,26BORDER 1CLSw(1)180+INT(RND*40)w(2)800+INT(RND*400)w(3)450+IENT(R
ND*100)w(4)1300+INT(RND*400) 1804 IF a(1,3)0 THEN LOCATE 6,4PRINT "1. HIRE CADD
Y "tzw(1)GOSUB 63500PRINT ,,,TAB(6)"2. HIRE PERMANENT CADDY",tzw(2)GOSUB 63450G
OTO 1810 1806 LOCATE 6,4PRINT "1. SACK CADDY" 1810 IF a(2,3)0 THEN LOCATE 6,10
PRINT "3. HIRE COACH "tzw(3)GOSUB 63500PRINT ,,,TAB(6)"4. HIRE PERMANENT COACH"
,tzw(4)GOSUB 63450GOTO 1820 1815 LOCATE 6,10PRINT "3. SACK COACH" 1820 LOCATE
6,15PRINT "5. REPLACE CLUBS",,,TAB(6)"6. CONTINUE"GOSUB 9960 1830 GOSUB 9980IF
a16 OR a12 AND a(1,3)1 OR a(2,3)1 AND a14 THEN 1830 ELSE IF a16 THEN RETURN 183
8 CLSON a1 GOTO 1840,1850,1860,1870,1880 1840 IF a(1,3)0 THEN a(1,3)0avav-1GOTO
1800 1845 a(1,3)255avav+1a(1,2)w(1)rb1ra1GOSUB 9800GOTO 1800 1850 3a(1,3)INT(
RND*30)+30a(1,2)w(2)avav+1GOTO 1800 1860 IF a(2,3)0 THEN a(2,3)0avav-1GOTO 1800
1865 a(2,3)255avav+1a(2,2)w(3)GOTO 1800 1870 a(2,3)INT(RND*30)+30a(2,2)w(4)av
av+1GOTO 1800 1880 CLSPRINT TAB (18)"CLUBS",,,FOR n1 TO 5QPRINT TAB(10)pa$(4)CH
R$(ASC("A")-1+n)pa$(1)" "n"WOOD"NEXT 1890 FOR n1 TO 9PRINT TAB(10)pa$(4)CHR$(A
SC("A")+4+n)pa$(1)" "n"IRON"NEXT 1900 PRINT TAB(10)pa$(4)"O"pa$(1)" SAND WED
GE"TAB(10)pa$(4)"P"pa$(1)" PUTTING WEDGE"TAB(10,AGOLFp )pa$(4)"Q"pa$(1)" PUT
TER"IF aw0 THEN GOSUB 9930GOTO 1800 1910 LOCATE 27,aw+2PRINT pa$(2)"BROKEN"GOSU
B 9960 1920 GOSUB 64200IF in$"A" OR in$"Q" THEN 1920 1930 rbASC(in$)-64IF rb18
THEN 1800 ELSE IF rbaw THEN 1920 1940 ra-20*(aw6)-1a5*(aw5)rara-(aw6)*INT(RND*
30)-(aw5)*INT(RND*25)CLSLOCATE 5,11PRINT"COST TO REPLACE IT "tzraGOSUB 63500GOSU
B 9970IF z$"N" THEN 1800 1950 zaza-raGOSUB 9750y$MID$(z$,ra,2)rbFNa(VAL(y$)+2)
1960 aw0v$(1)z$GOTO 1800 2200 CLSPRINT TABLW(15)pa$(2)"FIXTURES"pa$(1),,FOR n1
TO 20PEN 1-2*(n/2INT(n/2))PRINT TAB(5)a$(l(n,1))" "IF nab THEN PRINT u$(l(n,2))
2210 NEXTIF ab21 THEN 9940 ELSE 9930 2600 BORDER 1INK 0,1PRINT pa$(1)CLSPRINT
TAB(11)pa$(4)" HOTELS AVAILABLE "pa$(1)yMFOR n1 TO 4w(n)n-2w(n+8)1+INT(RND*4)NE
XTw(5)10+INT(RND*10)w(6)20+INT(RND*15)w(7)50+INT(RND*50)w(8)100+INT(RND*50) 262
0 y$"MILES FROM COURSE"z$" PER NIGHT"PRINT ,,TAB(6)"1. BED & BREAKFAST "tzw(5)G
OSUB 63500PRINT z$,TAB(9)w(9)y$FOR n3 TO 5PRINT ,,TAB(6)USING"#"n-1PRINT "."n"ST
AR "tzw(n+3)GOSUB 63500 2630 PRINT z$,TAB(9)w(n+7)y$NEXTPRINT ,,,,,,,,TAB(13)p
a$(5)" SELECT HOTEL "pa$(1) 2670 GOSUB 9960GOSUB 9980IF a11 OR a14 THEN 2670 2
680 ar2+w(a1)-INT(w(a1+8)/2)zow(a1+4)GOTO 65100 3000 CLSPEN 3PRINT TAB(10)"PROF
ESSIONAL GOLFERS"ra1PEN 1 3010 FOR n2 TO 21PRINT TAB(5)USING"##"n-1PRINT TAB(8)
u$(n)IF N21 THEN PRINT TAB(21)USING"##"n+19PRINT " "u$(n+20) 3020 NEXTGOSUB 995
0 3030 GOSUB 64200IF IN$"M" THEN RETURN ELSE IF IN$"C" THEN 3030 3040 CLS#2INP
UT#2,"Number to change"raCLS#2IF ra1 OR ra39 THEN 3040 3050 INPUT#2,"New name (
max 11)"z$CLS#2IF z$"" OR LEN (z$)11 THEN 3050 3060 u$(ra+1)UPPER$(z$)+SPACE$(1
1-LEN(z$))GO3TO 3000 3400 CLSPRINT TAB(18)pa$(2)"BANK"pa$(1)IF s(4)0 THEN LOCAT
E 12,6PRINT "1. MORTGAGE HOUSE" 3420 IF s(5)0 THEN LOCATE 12,8PRINT "2. LOAN"
3430 LOCATE 12,11PRINT "M MENU"GOSUB 9960 3440 GOSUB 64200IF IN$"M" THEN RETUR
N ELSE IF IN$,AGOLF(0o "1" OR s(4)0 THEN 3500 3460 rb1GOSUB 40z1(rc*2000/100)*
80z2INT(z1+(z1/100)*20)/80LOCATE 5,15PRINT"THE BANK WILL OFFER YOU "tzz1GOSUB 63
500PRINT"INTEREST RATE .7% PER WEEK FOR 80 WEEKS",GOSUB 3600 3470 IF z$"Y" THEN
3400 ELSE s(4)80zazjea+z1zmz2RETURN 3500 IF IN$"2" OR s(5)0 THEN 3440 3510 IN
PUT#2,"HOW MUCH "z1CLS#2IF z140 OR z110000 THEN 3510 3515 z2INT(z1+(z1/100)*24)
/40LOCATE 5,15PRINT "THE BANK WILL LOAN YOU "tzz1GOSUB 63500PRINT "INTEREST RATE
.8% PER WEEK""TO BE REPAID OVER 40 WEEKS",GOSUB 3600 3520 IF z$"Y" THEN 3400 E
LSE s(5)40zaza+z1zlz2RETURN 3600 PRINT"AT "tzz2GOSUB 63500PRINT " PER WEEK"GOTO
9970 3800 rh0IF s(1)0 AND s(2)0 AND s(3)0 THEN RETURN 3820 CLSPRINT TAB(15)p
a$(2)" SPONPoSORSHIP "pa$(1)rb1GOSUB 40re1+INT(RND*4)IF re3 OR s(re)0 OR ab3 OR
rh2 THEN LOCATE 10,11PRINT "NO ONE IS INTERESTED",,TAB(11)"IN SPONSORING YOU"MID
$(f$,7,1)"1"GOTO 9940 3870 rhrh+1z$STR$(rc)MID$(z$,3,1)"9"rcVAL(z$)rbINT((RND*(
(rc-040)*5)-(rc90)*500)+(rc-40)*5) 3880 ra1+INT((RND*((rc)/25)-(rc90)*20-(rc80)
*10-(rc70)*2)-(rc60)*2-(rc50)*2) 3890 rd1+INT(RND*9)LOCATE 12,12PRINT c$(rd)" O
FFER",,,TAB(12)tzrbGOSUB 63500PRINT " PER "n$(3),,TAB(12)"FOR"ran$(3)"S"GOSUB 99
70IF z$"Y" THEN rhrh+1GOTO 3820 3900 s(re)ras(7+re)rds(re+10)rbMID$(f$,7,1)"1"R
ETURN 4200 CLSLOCATE 17,7PRINT pa$(1-(s(7)0))"0 EASY"pa$(1),,,,,TAB(17)pa$(1-(
s(7)1))"1 MEDIUM"pa$(1),,,,,TAB(17)pa$(1-(s(7)2))"2 HARD"pa$(1),,,,,,,TAB (17)"M
MENU" 4210 GOSUB 64200IF in$"M" THEN RETURN ELSE IF in$ "0" OR in$ "2" THEN 42
10 4220 raVAL(in$)IF ras(7) THEN 4210 4230 GOSUB 9920rb20*(ra-s(7))s(7)raFOR n
1 TO 40IF n1 THEN GOSUB 9800 4240 NEXTGOTO 4200 5400 IF ab1 THENI RETURN ELSE
CLSGOSUB 9920GOSUB 30GOSUB 10CLSPRINT TAB(11)pa$(2)n$(1)"LEAGUE"pa$(1),,,FOR n1
TO 20 5405 IF k(f(n))0 THEN PRINT TAB(5)USING"##"nPRINT TAB(9)pa$(1-(f(n)1))u$(
f(n))" "pa$(1)tzk(f(n))GOSUB 63500 5410 NEXTIF ab21 TH,AGOLFt EN 9940 ELSE 993
0 6000 IF ai0 OR al0 OR za0 THEN RETURN ELSE INK 0,2BORDER 2PRINT pa$(1)CLSLOCA
TE 1,10PRINT "DO YOU WANT TO VISIT THE BOOKIES (Y/N)"GOSUB 9890IF z$"N" THEN 986
0 6005 ERASE wDIM w(40)IF ah20 THEN GOSUB 6300 ELSE GOSUB 6200j 6010 CLSFOR n1
TO 20LOCATE 1,n+1PRINT USING"##"nPRINT TAB(4)RIGHT$(t$(n),9)USING"###"w(n)PRINT
"/1"IF ah20 THEN PRINT TAB(20)USING"##"n+20PRINT " "RIGHT$(t$(n+20),9)" "USING"
###"w(n+20)PRINT"/1" 6015 NEXT 6020 INPUT#2,"PLAYER'Sr NUMBER (0 EXIT) "raCLS#
2IF ra0 OR raah THEN 6020 6030 IF ra0 THEN 9860 ELSE IF f(ra)1 THEN 6020 6140
CLS#2INPUT#2,"HOW MUCH "zpCLS#2zpINT(zp)IF za-zp-10000 OR zp1 THEN 6140 6150 au
f(ra)zfINT(zp+zp*w(ra))CLS#2LOCATE 5,23PRINT "THIS. WILL RETURN "tzzfGOSUB 63500
FOR n1 TO 4000NEXTGOSUB 9930GOTO 9860 6200 FOR n1 TO 40w(n)0-(5-INT(RND*4))*(j(
n)89)-(j(n)79 AND j(n)90)*(15-INT(RND*10))-(j(n)69 AND j(n)80)*(25-INT(RND*10))-
(j(n)59 AND j(n)70)*(50-INT(RND*20))-(j(n)60)*1y00NEXTRETURN 6300 FOR n1 TO 20w
(n)e(n)-e(1)+2-(j(n)90)*INT(RND*2)-INT(RND*5)*(j(n)80)-(j(n)70)*INT(RND*5)NEXTRE
TURN 6500 GOSUB 9860FOR n21 TO 40IF f(n)0 AND f(n)41 THEN GOSUB 70FOR a1 TO 4w
(a)w(a)-INT(RND*2)NEXTc(f(n))c(f(n))-2 6520 NEXTRETURN 6700 re5-(al0)*15IF rc
0 THEN RETURN ELSE CLSLOCATE 8,8PRINT "YOU HAVE "IF rcre THEN 6800 6710 PRINT "
QUAILFIED FOR THE",,,,,TAB(6)"FINAL STAGES OF THE "n$(3)PRINT#2,pa$(2)GOTO 9930
6800 rae(rc)-e(re)PRINT "FAILED TO QUAILFY",,,,,TAB(4)"FOR THE FINAL STAGES BY"
IF ra THEN PRINT ra"STROKE"IF ra1 THEN PRINT "S" 6830 IF ra0 THEN PRINT CHR$(8
)CHR$(8)"IN A PLAYOFF" 6840 PRINT#2,pa$(2)GOTO 9930 7000 GOSUB 9860RANDOMIZE T
IMEFOR n2 TO 40f(n)nj(n)20+INT(RND*35)-(al1)*15GOSUB 9900t$(n)z$NEXTm(1)1f(1)1t$
(1)u$(1)rb1GOSUB 40j(1)rc 7010 aj2ah40ap0GOSUB 6000GOSUB 100GOSUB 8200IF al1 TH
EN RETURN 7030 GOSUB 6000GOSUB 6700ah20GOSUB 9860GOSUB 100GOTO 8200 7100 CLSIN
K 0,6BORDER 6LOCATE *0,AGOLF Wr 5,8PRINT"YOU ARE BROKE AND HAVE BEEN FORCED",TAB
(5)"TO "z110000-zl*s(5)IF z1ABS(za) THEN 7160 7105 LOCATE 5,8PRINT"YOU ARE BROK
E AND HAVE BEEN FORCED",TAB(5)"TO " 7120 zlINT(z1+(z1/100)*24)/40PRINT"OBTAIN A
LOAN FOR "tzz1GOSUB 63500s(5)40GOTO 7180 7160 rb1GOSUB 40z1(rc*2000/100)*80PRI
NT"OBTAIN A MORTGAGE FOR "tzz1GOSUB 63500zmINT(z1+(z1/100)*20)/80s(4)80 7180 za
za+z1GOTO 9930 7500 z$"MAJOR"y$a$(ac)z2v(ac,1)IF ai1 THEN z$"MINOR"y$i$(af)z2ze
7505 INK 0,9BO/iRDER 9PRINT pa$(1)CLSPRINT TAB (9)pa$(4)" "z$" "n$(3)" RESULT
"pa$(1)LOCATE 10,2PRINT y$LOCATE 10,4PRINT pa$(2)"TOTAL "n$(1)tzz2GOSUB 63500PRI
NT pa$(1),,,,rb2 7506 z1INT((z2/100)*g(1))PRINT TAB(7)"1"n1GOSUB 7550IF e(2)e(1
) THENc LOCATE 36,6PRINT "*"LOCATE 12,20PRINT "* AFTER A PLAYOFF"LOCATE 1,7 751
1 ra1z1INT((z2/100)*g(rb)) 7512 IF e(rb)e(rb+ra) THEN 7514 ELSE IF rb+ra11 THEN
z1z1+INT((z2/100)*g(rb+ra)) 7513 rara+1GOTO 7512 7514 rara-1PRINT TAB(6)USING
"##"rbIF ra THEN 7520 ELSE nrbGOSUB 7550GOTO 7530 7520 z1INT(z1/(ra+1))FOR nrb
TO rb+raGOSUB 7550NEXT 7530 rbrb+ra+1IF rb11 THEN 7511 ELSE RETURN 7550 PRINT
TAB(9)USING " ### ######"t$(n)e(n),z1IF ai0 AND f(n)41 THEN k(f(n)
)k(f(n))+z1 7560 IF f(n)1 THEN znz1c(1)c(1)+3 7570 RETURN 8040 rbw(19)-o(a,4)
raw(20)-o(a,5)ra-raRETURN 8200 rc0ra20rb1 8210 BORDER 0PRINT pa$(2)CLSPRINT p
a$(3)TAB(8)" POSITION AFTER"ap"ROUNDS "pa$(2),,,FOR nrb TO raPRINT TAB(9)8pa$(2-
(f(n)1)-2*(f(n)au AND ai0))USING"##"n 8212 IF f(n)1 THEN rcn 8214 ree(n)-(ap*a
x)z$STR$(ABS(re))z$RIGHT$(z$,LEN(z$)-1)IF re0 THEN z$"E" ELSE IF re0 THEN z$"-"+
z$ ELSE z$"+"+z$ 8216 PRINT TAB(15)t$(n)" "USING"###"e(n)PRINT kTAB(32)z$pa$(2)
NEXTPRINT#2,pa$(2)GOSUB 9930IF raah THEN RETURN 8220 rbra+1rara+20IF raah THEN
raah 8230 GOTO 8210 8240 PRINT #3,"OUT OF BOUNDS"n(a,x)n(a,x)-1FOR b1 TO 3o(a,
b)o(a,b)+1NEXTPLOT o(a,4)*2+96,o(a,5)*2+48rb0ra(ra+o(a,W,AGOLFWq 5))*2+48IF INT(
RND*10)4 THEN DRAW 639,rara0GOTO 65100 8250 DRAW 466,rara0GOTO 65100 8500 GOSU
B 8590GOSUB 2200GOSUB 5400IF f(1)1 THEN CLSLOCATE 8,8PRINT"CONGRATULTIONS YOU HA
VE ",,,,TAB(6)"BECOME THE NUMBER 1 GOLFER"GOSUB 9930 8510 GOSUB 8590FOR n1 TO 2
0l(n,2)0NEXTsnsn+1GOTO 400 8590 CLSLOCATE 12,11PRINT "END OF SEASON"sn+1GOTO 99
30 8600 bc0BORDER 0PRINT pa$(2)CLSPRINT TAB(12)"SCORECARD" 8610 LOCATE 7,4PRIN
T t$(rd)FOR b1 TO 9LOCATE 6+(b-1)*3,7PRINT USING"##"bNEXTPRINT" OUT"LOCATE 6,11F
OR b10 TO 18PRINT USING"##"bPRINT " "NEXTPRINT " IN"LOCATE 31,15PRINT "TOTAL" 8
620 PLOT 72,312DRAWR 496,0DRAWR 0,-176DRAWR -96,0DRAWR 0,48PLOT 72,312DRAWR 0,-1
28DRAWR 496,0PLOT 72,248DRAWR 496,0FOR b0 TO 8PLOT (60+24*b)*2,312DRAWR 0,-128NE
XT 8635 PEN 0LOCATE 6,18PRINT"OVER PAR"PEN 1LOCATE 6,19PRINT "PAR"PEN 2LOCATE 6
,20PRINT "UNDER PAR"PRINT pa$(2) 8640 ra0rb0rc0FOR b1 TO 9LOCATE 6+(b-1)*3,9IF
xb THEN z1n(1,b) ELSE z10 8645 PEN 1IF z10 THEN 8650 ELSE IF z1d(1,b) THEN PEN
2 ELSE IF z1d(1,b) THEN PEN 0 8650 PRINT USING"##"z1rara+z1NEXTPEN 1LOCATE 34,9
PRINT USING"##"ra 8660 FOR b10 TO 18LOCATE 6+(b-10)*3,13z10-(xb)*n(1,b)PEN 1IF
z10 THEN 8670 ELSE IF z1d(1,b) THEN PEN 2 ELSE IF z1d(1,b) THEN PEN 0 8670 PRIN
T USING"##"z1rbrb+z1NEXTPEN 1rcrb+raLOCATE 34,13PRINT USING"##"rbLOCATE 32,16PRI
NT USING"###"rc 8690 LOCATE 17,25PRINT pa$(5)"R"pa$(2)"ETURN"in$""WHILE in$"R"G
OSUB 64200WENDbc0bIF x17 THEN RETURN 8700 BORDER 0PRINT pa$(2)CLSLOCATE 8,1IF a
i1 THEN PRINT i$(af) ELSE PRINT a$(ac) 8705 LOCATE 6,8PRINT pa$(2)PEN 2PRINT "R
OUND"TAB(16)"HOLE"LOCATE 6,9PRINT pa$(2)"PAR"TAB(20)"YARDS"PEN 2LOCATE 2,20PRINT
"DRIVING w"MID$(v$(1),7,2) 8710 PRINT " CHIPPING "MID$(v$(1),3,2)LOCATE 2,21P
RINT "BUNKER "MID$(v$(1),1,2)" PUTTING "MID$(v$(1),5,2) 8715 LOCATE 6,3PRINT
"PAR FOR COURSE"ax 8730 LOCATE 2,14PRINT PA$(4)RIGHT$(T$(RD),9)LOCATE 2,16PRINT
PA$(6)RzW ,AGOLFk IGHT$(T$(RE),9)PA$(2)LOCATE 12,12PRINT "HLE RND TRN PAR" 874
0 PLOT 8,200DRAWR 0,-64FOR b0 TO 2PLOT 8,32*b+136DRAWR 412,0NEXTPLOT 420,136DRAW
R 0,96PLOT 168,232DRAWR 252,0FOR b0 TO 3PLOT 168+b*64,232DRAWR 0,-96NEXT 8750 L
OCATE 13,8PEN 2dPRINT USING"#"apPRINT pa$(2) 8760 LOCATE 6,5PRINT "CURRENT LEAD
ER "LOCATE 6,6PRINT RIGHT$(t$(rf),9)e(rf)rae(rf)-ax*apIF ra0 THEN PRINT "E " EL
SE IF ra0 THEN PRINT "-"USING"##"ABS(ra) ELSE PRINT "+"USING"##"ra 8800 LOCATE
4,25PRINT pa$%(5+(ba1)*2)"S"pa$(2)"LOW "pa$(5+(ba0)*2)"F"pa$(2)"AST S"pa$(5)"C"p
a$(2)"OREBOARD"RETURN 9000 z1x/3z3INT(z1)IF INT(z1)z1 THEN z11GOTO 9010 9005 z
3z3+1z1(INT((z1-INT(z1))*10/3)*2)-1 9010 z2VAL(MID$(s$(ac,z3),z1,2))-10ERASE wD
IMV w(37)y$j$(z2)z$b$(1,VAL(LEFT$(y$,1)))w(31)VAL(MID$(z$,8,1))w(26)VAL(MID$(z$,
7,1)) 9012 w(1)VAL(MID$(z$,3,1))w(2)VAL(MID$(z$,2,1))+23w(18)VAL(LEFT$(z$,1))+7
IF ca1 THEN d(1,x)t(w(18)-13)IF INT(RND*10)2 AND d(1,x)5 THEN d(1,x)4 9018 IF o
ca1 THEN RETURN 9020 z$b$(1,VAL(MID$(y$,2,1)))w(6)w(18)+w(1)+1w(7)VAL(MID$(z$,4
,1))+23z$b$(2,VAL(MID$(y$,7,1)))w(3)VAL(MID$(z$,2,1))w(4)VAL(LEFT$(z$,1)) 9030
z$b$(1,VAL(MID$(y$,3,1)))w(5)w(6)-VAL(MID$(z$,6,1))w(21)(22-w(5))*8z$b$(3,VAL(MI
D$(y$,4,1))) 9040 w(8)6+VAL(MID$(z$,2,1))w(8)w(8)+2*(w(8)w(5))w(9)VAL(LEFT$(z$,
1))+23w(10)6+VAL(MID$(z$,4,1))w(10)w(10)-2*(w(10)w(5))w(11)VAL(MID$(z$,3,1))+23w
(12)6+VAL(MID$(z$,6,1))w(12)w(12)+2*(w(12)w(5))w(13)VAL(MID$(z$,5,1))+23 p 9045
z$b$(2,VAL(MID$(y$,5,1)))w(14)11+VAL(MID$(z$,4,1))w(14)w(14)+2*(w(14)w(5))w(15)V
AL(MID$(z$,3,1))+23w(16)11+VAL(MID$(z$,6,1))w(16)w(16)+2*(w(16)w(5))w(17)VAL(MID
$(z$,5,1))+23 9048 IF w(26)2 THEN w(27)8+VAL(MID$(z$,8,1))w(27)w(27)+2*(w(27)w(
5))w(28)VAL(MID$(z$,7,1))+23 9050 w(22)w(1)+w(12)-6w(23)w(13)-23w(25)w(23)+w(22
)+1IF INT(w(10)/2)w(10)/2 THEN w(24)1w(7)w(7)+w(23)IF w(2)+w(23)31 THEN w(2)23w(
7)w(2)+w(23) 9052 z$b$(4,VAL(MID$(y$,6,1)))IF w(26)4 THEN w(32)9,AGOLF ctWi +VA
L(MID$(z$,8,1))w(33)23+VAL(MID$(z$,7,1)) 9058 IF INT(w(10)/2)w(10)/2 THEN 9065
9060 w(24)-1w(7)w(2)-w(23)IF w(2)-w(23)24 THEN w(7)24w(2)w(7)+w(23) 9065 w(3)w
(3)+w(6)w(4)w(4)+w(7)w(19)w(4)*8+4w(20)(22-w(3))*8-4 9090 IF w(26)2 THEN w(16)0
w(17)0IF w(26)0 THEN w(14)0w(15)0 9100 FOR n1 TO 24LOCATE 30,nPRINT pa$(1)STRIN
G$(11,253)NEXTraw(2)FOR n1 TO w(18)rara-(w(24)*(nw(22) AND nw(25)))LOCATE ra+7,n
+1+w(1)PRINT " "NEXT 9130 PEN 3FOR n0 TO 4 STEP 2LOCATE w(9+n)+7,w(8+n)+1PRI
NT CHR$(254)NEXT 9135 LOCATE w(9)+7,w(10)+1PRINT CHR$(254)LOCATE w(9)+7,w(12)+1
PRINT CHR$(254)LOCATE w(11)+7,w(8)+1PRINT CHR$(254) 9140 PAPER 1FOR n0 TO 2 STE
P 2IF w(14+n)0 THEN LOCATE w(15+n)+7,w(14+n)+1PRINT CHR$(252)C&HR$(251)LOCATE w(
15+n)+7,w(14+n)+2PRINT CHR$(250)CHR$(249) 9141 NEXTIF w(27)0 THEN LOCATE w(28)+
7,w(27)+1PRINT CHR$(252)CHR$(251)LOCATE w(28)+7,w(27)+2PRINT CHR$(250)CHR$(249)
9150 IF w(5)w(6) THEN LOCATE 30,w(5)+1PRINT pa$(6)STRING$(11,2 o55) 9160 LOCAT
E w(7)+7,w(6)+1PRINT pa$(1)CHR$(248)CHR$(247)CHR$(246)LOCATE w(7)+7,w(6)+2PRINT
CHR$(241)" "CHR$(245)LOCATE w(7)+7,w(6)+3PRINT CHR$(242)CHR$(243)CHR$(244)LOCATE
w(4)+7,w(3)+1PEN 3PRINT CHR$(240)pa$(1)RETURN 9500 FOR n1 TO 5aw1+INT(RND*16)I
F p(aw)0 THEN n99 9510 NEXTIF n10 THEN RETURN 9515 LOCATE 5,19PRINT "ONE OF YO
UR CLUBS HAS BEEN DAMAGED" 9520 p(aw)p(aw)-1GOSUB 9750rbVAL(MID$(z$,ra,2))rbrb
-5rbrb-(rb10)*(10-rb)MID$(z$,ra,2)RIGHT$(STR$(rb),2)v$(1)z$RETURN 9750 z$v$(1)
ra-5*(AW17)-(aw13)*7-(aw12 AND aw15)*3-(aw14 AND aw17)*1RETURN 9800 FOR z1 TO 7
STEP 2y$MID$(v$(n),z,2)z1FNa(VAL(y$)+rb)y$RIGHT$(STR$(z1),2)MID$(v$(n),z,2)y$NE
XTRETURN 9820 GOSUB 30FOR n1 TO 39FOR zn+1 TO 40IF j(f(n))j(f(z)) THEN raf(n)f(
n)f(z)f(z)ra 9830 NEXTNEXTRETURN 9850 ERASE eDIM e(40)FOR n1 TO 40rbnGOSUB 40
j(n)rcNEXTRETURN 9860 PRINT pa$(1)BORDER 2INK 0,2INK 1,26CLSLOCATE 12,8IF ai0
THEN PRINT a$(ac) ELSE PRINT i$W,AGOLFCWi(af) 9865 IF ai1 THEN tzze ELSE tzv(ac
,1) 9870 PRINT ,,,,,,TAB(9)"TOTAL "n$(1)GOSUB 63500GOTO 9920 9890 z$INKEY$z$UP
PER$(z$)IF z$"Y" OR z$"N" THEN RETURN ELSE 9890 50000 LOCATE 5,24PRINT"INSERT B
LANK TAPE,PRESS SPACE"GOSUB 64000IF IN$," " THEN 50000 50010 CLOSEOUTOPENOUT "g
olf.sav"WRITE#9,aa,ab,ae,af,ak,aq,ar,av,aw,sn,za,zb,zc,zd,ze,zl,zm,zo,f$FOR n1 T
O 2FOR a1 TO 3WRITE#9,a(n,a)NEXT a,nFOR n1 TO 40WRITE#9,c(n),k(n),v$(n),u$(n)NEX
T 50020 FOR n1 TO 20WRITE#9,a$(n),l(n,1),l(n,2)FOR a1 TO 3WRITE#9,v(n,a)NEXT a,
nFOR n1 TO 11WRITE#9,s(n)NEXTFOR n1 TO 17WRITE#9,p(n)NEXTWRITE#9,d$(1),d$(2)FOR
n1 TO 12WRITE#9,i$(n)NEXTCLOSEOUTRETURN