00000000  40 00 9f e5 40 10 9f e5  40 20 9f e5 04 30 11 e4  |@...@...@ ...0..|
00000010  04 30 02 e4 04 00 50 e2  fb ff ff 1a 00 00 8f e2  |.0....P.........|
00000020  05 00 00 ef 42 41 53 49  43 20 2d 71 75 69 74 20  |....BASIC -quit |
00000030  40 30 30 30 30 39 30 30  30 2c 30 30 30 31 34 37  |@00009000,000147|
00000040  43 30 0d 00 00 00 00 00  c4 b7 00 00 14 38 01 00  |C0...........8..|
00000050  c0 47 01 00 0d 00 0a 39  ee 85 c8 99 22 4f 53 5f  |.G.....9...."OS_|
00000060  49 6e 74 4f 6e 22 3a ff  28 22 53 45 54 20 4d 69  |IntOn":.("SET Mi|
00000070  63 72 6f 24 44 69 72 20  3a 30 2e 21 4d 69 63 72  |cro$Dir :0.!Micr|
00000080  6f 5f 44 72 76 22 29 3a  e5 8d 64 52 40 0d 00 28  |o_Drv"):..dR@..(|
00000090  0a 43 52 53 25 3d 31 0d  00 32 0c 2a 46 58 31 31  |.CRS%=1..2.*FX11|
000000a0  32 2c 30 0d 00 3c 0c 2a  46 58 31 31 33 2c 30 0d  |2,0..<.*FX113,0.|
000000b0  00 46 09 f2 69 6e 69 74  0d 00 50 19 20 20 c8 99  |.F..init..P.  ..|
000000c0  34 36 2c 33 30 33 2c 53  50 25 2c 22 42 41 47 32  |46,303,SP%,"BAG2|
000000d0  22 0d 00 5a 0e 20 20 e3  6a 25 3d 30 b8 31 37 0d  |"..Z.  .j%=0.17.|
000000e0  00 64 20 20 20 20 c8 99  34 36 2c 33 30 33 2c 53  |.d    ..46,303,S|
000000f0  50 25 2c 22 47 46 52 32  22 2b c3 28 6a 25 29 0d  |P%,"GFR2"+.(j%).|
00000100  00 6e 27 20 20 20 e7 6a  25 3c 36 8c c8 99 34 36  |.n'   .j%<6...46|
00000110  2c 33 30 33 2c 53 50 25  2c 22 58 47 46 52 32 22  |,303,SP%,"XGFR2"|
00000120  2b c3 28 6a 25 29 0d 00  78 07 20 20 ed 0d 00 82  |+.(j%)..x.  ....|
00000130  1b 20 20 c8 99 34 36 2c  33 30 33 2c 53 50 25 2c  |.  ..46,303,SP%,|
00000140  22 47 46 52 32 32 30 22  0d 00 8c 1b 20 20 c8 99  |"GFR220"....  ..|
00000150  34 36 2c 33 30 33 2c 53  50 25 2c 22 47 46 52 32  |46,303,SP%,"GFR2|
00000160  32 31 22 0d 00 96 1b 20  20 c8 99 34 36 2c 33 30  |21"....  ..46,30|
00000170  33 2c 53 50 25 2c 22 47  46 52 32 33 30 22 0d 00  |3,SP%,"GFR230"..|
00000180  a0 1b 20 20 c8 99 34 36  2c 33 30 33 2c 53 50 25  |..  ..46,303,SP%|
00000190  2c 22 47 46 52 32 33 31  22 0d 00 aa 1b 20 20 c8  |,"GFR231"....  .|
000001a0  99 34 36 2c 33 30 33 2c  53 50 25 2c 22 47 46 52  |.46,303,SP%,"GFR|
000001b0  32 33 32 22 0d 00 b4 1c  20 20 c8 99 34 36 2c 33  |232"....  ..46,3|
000001c0  30 33 2c 53 50 25 2c 22  58 47 46 52 32 32 30 22  |03,SP%,"XGFR220"|
000001d0  0d 00 be 1c 20 20 c8 99  34 36 2c 33 30 33 2c 53  |....  ..46,303,S|
000001e0  50 25 2c 22 58 47 46 52  32 32 31 22 0d 00 c8 1d  |P%,"XGFR221"....|
000001f0  2a 53 45 54 20 4d 69 63  72 6f 24 44 69 72 20 3c  |*SET Micro$Dir <|
00000200  4f 62 65 79 24 44 69 72  3e 0d 00 d2 10 f2 77 68  |Obey$Dir>.....wh|
00000210  69 63 68 63 6f 75 72 73  65 0d 00 dc 18 5a 25 3d  |ichcourse....Z%=|
00000220  8e 28 22 52 41 4d 3a 24  2e 43 4f 55 52 53 45 22  |.("RAM:$.COURSE"|
00000230  29 0d 00 e6 0b f2 69 6e  69 72 6e 64 0d 00 f0 0e  |).....inirnd....|
00000240  e7 52 54 4e 25 8c 8d 64  52 40 0d 00 fa 13 44 52  |.RTN%..dR@....DR|
00000250  25 3d a3 3a 68 6f 6c 65  25 3d 53 48 25 0d 01 04  |%=.:hole%=SH%...|
00000260  09 44 52 25 3d b9 0d 01  0e 08 eb 31 34 31 0d 01  |.DR%=......141..|
00000270  18 0d f2 64 72 61 77 70  6c 61 6e 0d 01 22 13 64  |...drawplan..".d|
00000280  65 76 61 6e 67 3d 30 3a  64 72 77 25 3d 30 0d 01  |evang=0:drw%=0..|
00000290  2c 28 c8 99 22 4f 53 5f  49 6e 74 4f 66 66 22 3a  |,(.."OS_IntOff":|
000002a0  f2 64 72 61 77 73 68 6f  74 3a c8 99 22 4f 53 5f  |.drawshot:.."OS_|
000002b0  49 6e 74 4f 6e 22 0d 01  36 2c 58 31 3d 34 3a 59  |IntOn"..6,X1=4:Y|
000002c0  31 3d 32 30 30 2b 79 64  73 25 2a 32 3a f2 58 59  |1=200+yds%*2:.XY|
000002d0  31 30 3a 48 54 32 3d a4  47 68 74 28 58 30 2c 59  |10:HT2=.Ght(X0,Y|
000002e0  30 29 0d 01 40 2d 58 31  3d 2d 34 3a 59 31 3d 32  |0)..@-X1=-4:Y1=2|
000002f0  30 30 2b 79 64 73 25 2a  32 3a f2 58 59 31 30 3a  |00+yds%*2:.XY10:|
00000300  48 54 31 3d a4 47 68 74  28 58 30 2c 59 30 29 0d  |HT1=.Ght(X0,Y0).|
00000310  01 4a 2a 58 31 3d 34 3a  59 31 3d 32 30 30 2b 79  |.J*X1=4:Y1=200+y|
00000320  64 73 25 3a f2 58 59 31  30 3a 68 74 32 3d a4 47  |ds%:.XY10:ht2=.G|
00000330  68 74 28 58 30 2c 59 30  29 0d 01 54 2b 58 31 3d  |ht(X0,Y0)..T+X1=|
00000340  2d 34 3a 59 31 3d 32 30  30 2b 79 64 73 25 3a f2  |-4:Y1=200+yds%:.|
00000350  58 59 31 30 3a 68 74 31  3d a4 47 68 74 28 58 30  |XY10:ht1=.Ght(X0|
00000360  2c 59 30 29 0d 01 5e 29  53 4c 50 25 3d 28 48 54  |,Y0)..^)SLP%=(HT|
00000370  32 2a 32 2b 68 74 32 2d  48 54 31 2a 32 2d 68 74  |2*2+ht2-HT1*2-ht|
00000380  31 29 2a 28 32 30 2b b3  28 32 30 29 29 0d 01 68  |1)*(20+.(20))..h|
00000390  0e f2 69 6e 70 75 74 73  68 6f 74 0d 01 72 0c f2  |..inputshot..r..|
000003a0  61 6e 69 6d 61 74 65 0d  01 7c 16 e7 ac a4 61 6c  |animate..|....al|
000003b0  6c 69 6e 68 6f 6c 65 20  8c 8d 54 62 41 0d 01 86  |linhole ..TbA...|
000003c0  0e f2 73 63 6f 72 65 63  61 72 64 0d 01 90 33 e7  |..scorecard...3.|
000003d0  28 67 6f 6f 6e 25 29 80  68 6f 6c 65 25 3c 32 8c  |(goon%).hole%<2.|
000003e0  f2 73 6f 72 74 68 6f 6e  6f 72 3a 68 6f 6c 65 25  |.sorthonor:hole%|
000003f0  3d 68 6f 6c 65 25 2b 31  3a e5 8d 54 4e 41 0d 01  |=hole%+1:..TNA..|
00000400  9a 07 d9 23 30 0d 01 a4  12 ff 28 22 52 41 4d 3a  |...#0.....("RAM:|
00000410  43 4c 4f 53 45 22 29 0d  01 ae 09 e5 8d 64 52 40  |CLOSE")......dR@|
00000420  0d 01 b8 05 20 0d 01 c2  05 20 0d 01 cc 0b dd f2  |.... .... ......|
00000430  63 6d 65 6e 75 0d 01 d6  19 ea 63 25 2c 78 25 2c  |cmenu.....c%,x%,|
00000440  79 25 2c 67 25 2c 62 25  2c 6b 25 2c 72 25 0d 01  |y%,g%,b%,k%,r%..|
00000450  e0 07 eb 31 35 0d 01 ea  06 ef 35 0d 01 f4 13 ef  |...15.....5.....|
00000460  32 33 3b 38 32 30 32 3b  30 3b 30 3b 30 3b 0d 01  |23;8202;0;0;0;..|
00000470  fe 0d e6 30 2c 34 32 20  c8 9c 30 0d 02 08 15 c8  |...0,42 ..0.....|
00000480  93 c8 90 30 2c 30 2c 31  32 38 30 2c 31 31 30 30  |...0,0,1280,1100|
00000490  0d 02 12 0d e3 63 25 3d  31 b8 4e 43 25 0d 02 1c  |.....c%=1.NC%...|
000004a0  2a 20 ff 28 22 53 4c 4f  41 44 20 3c 4d 69 63 72  |* .("SLOAD <Micr|
000004b0  6f 24 44 69 72 3e 2e 43  4c 4f 41 44 2e 22 2b 43  |o$Dir>.CLOAD."+C|
000004c0  46 24 28 63 25 29 29 0d  02 26 12 20 2a 53 43 48  |F$(c%))..&. *SCH|
000004d0  4f 4f 53 45 20 4d 45 4e  55 0d 02 30 09 20 e6 38  |OOSE MENU..0. .8|
000004e0  2c 30 0d 02 3a 30 20 f0  26 45 44 2c 28 28 63 25  |,0..:0 .&ED,((c%|
000004f0  2d 31 29 83 33 29 2a 33  36 34 2b 32 30 2c 31 30  |-1).3)*364+20,10|
00000500  31 36 2d 28 28 63 25 2b  32 20 29 81 33 29 2a 33  |16-((c%+2 ).3)*3|
00000510  32 38 0d 02 44 05 ed 0d  02 4e 2d e6 30 2c 35 32  |28..D....N-.0,52|
00000520  20 c8 9c 30 3a ec 34 31  30 2c 33 30 30 3a f1 22  | ..0:.410,300:."|
00000530  4d 20 69 20 63 20 72 20  6f 20 44 20 72 20 69 20  |M i c r o D r i |
00000540  76 20 65 22 0d 02 58 2c  e6 30 2c 33 20 c8 9c 30  |v e"..X,.0,3 ..0|
00000550  3a ec 34 31 30 2c 32 32  30 3a f1 22 28 44 20 65  |:.410,220:."(D e|
00000560  20 6d 20 6f 20 20 20 4d  20 6f 20 64 20 65 29 22  | m o   M o d e)"|
00000570  0d 02 62 0f e6 30 2c 36  33 20 c8 9c 31 39 32 0d  |..b..0,63 ..192.|
00000580  02 6c 18 78 25 3d 31 31  30 34 3a 79 25 3d 39 34  |.l.x%=1104:y%=94|
00000590  34 3a 67 25 3d 34 34 0d  02 76 16 ec 78 25 2c 79  |4:g%=44..v..x%,y|
000005a0  25 3a f1 22 55 73 65 20  6c 65 66 74 22 0d 02 80  |%:."Use left"...|
000005b0  16 ec 78 25 2c 79 25 2d  67 25 3a f1 22 6d 6f 75  |..x%,y%-g%:."mou|
000005c0  73 65 22 0d 02 8a 19 ec  78 25 2c 79 25 2d 67 25  |se".....x%,y%-g%|
000005d0  2a 32 3a f1 22 62 75 74  74 6f 6e 22 0d 02 94 1c  |*2:."button"....|
000005e0  ec 78 25 2c 79 25 2d 67  25 2a 33 3a f1 22 74 6f  |.x%,y%-g%*3:."to|
000005f0  20 73 65 6c 65 63 74 22  0d 02 9e 19 ec 78 25 2c  | select".....x%,|
00000600  79 25 2d 67 25 2a 34 3a  f1 22 63 6f 75 72 73 65  |y%-g%*4:."course|
00000610  22 0d 02 a8 1c ec 78 25  2c 79 25 2d 67 25 2a 37  |".....x%,y%-g%*7|
00000620  3a f1 22 55 73 65 20 72  69 67 68 74 22 0d 02 b2  |:."Use right"...|
00000630  18 ec 78 25 2c 79 25 2d  67 25 2a 38 3a f1 22 6d  |..x%,y%-g%*8:."m|
00000640  6f 75 73 65 22 0d 02 bc  19 ec 78 25 2c 79 25 2d  |ouse".....x%,y%-|
00000650  67 25 2a 39 3a f1 22 62  75 74 74 6f 6e 22 0d 02  |g%*9:."button"..|
00000660  c6 1e ec 78 25 2c 79 25  2d 67 25 2a 31 30 3a f1  |...x%,y%-g%*10:.|
00000670  22 66 6f 72 20 63 6f 75  72 73 65 22 0d 02 d0 1c  |"for course"....|
00000680  ec 78 25 2c 79 25 2d 67  25 2a 31 31 3a f1 22 6f  |.x%,y%-g%*11:."o|
00000690  76 65 72 76 69 65 77 22  0d 02 da 0f e6 30 2c 34  |verview".....0,4|
000006a0  37 20 c8 9c 31 39 32 0d  02 e4 1c ec 78 25 2c 79  |7 ..192.....x%,y|
000006b0  25 2d 67 25 2a 31 34 3a  f1 22 4f 72 20 70 72 65  |%-g%*14:."Or pre|
000006c0  73 73 22 0d 02 ee 1c ec  78 25 2c 79 25 2d 67 25  |ss".....x%,y%-g%|
000006d0  2a 31 35 3a f1 22 53 50  41 43 45 42 41 52 22 0d  |*15:."SPACEBAR".|
000006e0  02 f8 19 ec 78 25 2c 79  25 2d 67 25 2a 31 36 3a  |....x%,y%-g%*16:|
000006f0  f1 22 61 66 74 65 72 22  0d 03 02 1b ec 78 25 2c  |."after".....x%,|
00000700  79 25 2d 67 25 2a 31 37  3a f1 22 6c 6f 61 64 69  |y%-g%*17:."loadi|
00000710  6e 67 22 0d 03 0c 1e ec  78 25 2c 79 25 2d 67 25  |ng".....x%,y%-g%|
00000720  2a 31 38 3a f1 22 6e 65  77 20 63 6f 75 72 73 65  |*18:."new course|
00000730  22 0d 03 16 1c ec 78 25  2c 79 25 2d 67 25 2a 31  |".....x%,y%-g%*1|
00000740  39 3a f1 22 64 69 73 6b  65 74 74 65 22 0d 03 20  |9:."diskette".. |
00000750  1e ec 78 25 2c 79 25 2d  67 25 2a 32 30 3a f1 22  |..x%,y%-g%*20:."|
00000760  69 6e 20 44 72 69 76 65  20 30 22 0d 03 2a 16 c8  |in Drive 0"..*..|
00000770  97 c8 93 32 30 2c 33 32  2c 31 30 36 38 2c 39 36  |...20,32,1068,96|
00000780  34 0d 03 34 26 4f 43 25  3d 43 52 53 25 2d 31 3a  |4..4&OC%=CRS%-1:|
00000790  e7 28 4f 43 25 3d 30 29  84 4f 43 25 3e 4e 43 25  |.(OC%=0).OC%>NC%|
000007a0  4f 43 25 3d 4e 43 25 0d  03 3e 1d 53 58 25 3d a4  |OC%=NC%..>.SX%=.|
000007b0  43 58 28 4f 43 25 29 3a  53 59 25 3d a4 43 59 28  |CX(OC%):SY%=.CY(|
000007c0  4f 43 25 29 0d 03 48 1f  45 58 25 3d a4 43 58 28  |OC%)..H.EX%=.CX(|
000007d0  43 52 53 25 29 3a 45 59  25 3d a4 43 59 28 43 52  |CRS%):EY%=.CY(CR|
000007e0  53 25 29 0d 03 52 19 c8  97 b8 53 58 25 2c 53 59  |S%)..R....SX%,SY|
000007f0  25 3a c8 97 ee 3a f2 77  74 28 32 29 0d 03 5c 0d  |%:...:.wt(2)..\.|
00000800  e3 56 25 3d 31 b8 31 30  30 0d 03 66 3b 20 c8 97  |.V%=1.100..f; ..|
00000810  b8 28 53 58 25 2a 28 31  30 30 2d 56 25 29 2b 45  |.(SX%*(100-V%)+E|
00000820  58 25 2a 56 25 29 81 31  30 30 2c 28 53 59 25 2a  |X%*V%).100,(SY%*|
00000830  28 31 30 30 2d 56 25 29  2b 45 59 25 2a 56 25 29  |(100-V%)+EY%*V%)|
00000840  81 31 30 30 0d 03 70 0d  20 f2 77 74 28 2e 30 31  |.100..p. .wt(.01|
00000850  29 0d 03 7a 05 ed 0d 03  84 24 43 43 25 3d 43 52  |)..z.....$CC%=CR|
00000860  53 25 3a 43 52 53 25 2b  3d 31 3a e7 43 52 53 25  |S%:CRS%+=1:.CRS%|
00000870  3e 4e 43 25 43 52 53 25  3d 31 0d 03 8e 19 63 73  |>NC%CRS%=1....cs|
00000880  70 72 69 74 65 24 3d 43  46 24 28 43 43 25 29 3a  |prite$=CF$(CC%):|
00000890  c8 97 87 0d 03 98 05 e1  0d 03 a2 05 20 0d 03 ac  |............ ...|
000008a0  04 0d 03 b6 21 dd a4 43  58 28 43 6b 25 29 3d 28  |....!..CX(Ck%)=(|
000008b0  28 43 6b 25 2d 31 29 83  33 29 2a 33 36 30 2b 32  |(Ck%-1).3)*360+2|
000008c0  30 30 0d 03 c0 21 dd a4  43 59 28 43 6b 25 29 3d  |00...!..CY(Ck%)=|
000008d0  38 36 30 2d 28 28 43 6b  25 2d 31 29 81 33 29 2a  |860-((Ck%-1).3)*|
000008e0  33 36 30 0d 03 ca 05 20  0d 03 d4 0f dd f2 70 6c  |360.... ......pl|
000008f0  61 79 65 72 73 69 6e 0d  03 de 1f ea 68 25 2c 73  |ayersin.....h%,s|
00000900  24 2c 68 24 2c 69 25 2c  78 25 2c 79 25 2c 62 25  |$,h$,i%,x%,y%,b%|
00000910  2c 70 25 2c 73 24 0d 03  e8 23 ff 28 22 53 4c 4f  |,p%,s$...#.("SLO|
00000920  41 44 20 3c 4d 69 63 72  6f 24 44 69 72 3e 2e 49  |AD <Micro$Dir>.I|
00000930  53 50 52 49 54 45 53 22  29 0d 03 f2 19 eb 31 35  |SPRITES").....15|
00000940  3a ef 34 2c 32 33 3b 38  32 30 32 3b 30 3b 30 3b  |:.4,23;8202;0;0;|
00000950  30 3b 0d 03 fc 0d e6 30  2c 35 36 20 c8 9c 30 0d  |0;.....0,56 ..0.|
00000960  04 06 17 c8 93 c8 90 38  37 30 2c 31 36 34 2c 34  |.......870,164,4|
00000970  31 30 2c 38 35 36 0d 04  10 0c fb 31 38 34 20 c8  |10,856.....184 .|
00000980  9c 30 0d 04 1a 0d fb 36  33 20 c8 9c 31 39 32 0d  |.0.....63 ..192.|
00000990  04 24 25 f1 8a 35 36 2c  31 29 22 48 6f 6c 65 20  |.$%..56,1)"Hole |
000009a0  20 59 61 72 64 73 20 20  50 61 72 20 53 74 72 6f  | Yards  Par Stro|
000009b0  6b 65 22 3b 0d 04 2e 0b  fb 36 33 20 c8 9c 30 0d  |ke";.....63 ..0.|
000009c0  04 38 0c e3 68 25 3d 31  b8 31 38 0d 04 42 23 20  |.8..h%=1.18..B# |
000009d0  68 24 3d 22 20 22 2b c3  28 68 25 29 3a 68 24 3d  |h$=" "+.(h%):h$=|
000009e0  c1 68 24 2c a9 28 68 24  29 2d 31 2c 32 29 0d 04  |.h$,.(h$)-1,2)..|
000009f0  4c 1a 20 73 24 3d 22 20  22 2b c3 28 73 74 72 6f  |L. s$=" "+.(stro|
00000a00  6b 65 25 28 68 25 29 29  0d 04 56 16 20 73 24 3d  |ke%(h%))..V. s$=|
00000a10  c1 73 24 2c a9 28 73 24  29 2d 31 2c 32 29 0d 04  |.s$,.(s$)-1,2)..|
00000a20  60 45 20 f1 8a 35 37 2c  2d 28 68 25 3e 39 29 2a  |`E ..57,-(h%>9)*|
00000a30  32 2b 32 2b 68 25 29 68  24 22 20 20 20 20 22 3b  |2+2+h%)h$"    ";|
00000a40  20 20 20 20 6c 65 6e 25  28 68 25 29 22 20 20 20  |    len%(h%)"   |
00000a50  20 22 3b 70 61 72 25 28  68 25 29 22 20 20 20 22  | ";par%(h%)"   "|
00000a60  73 24 3b 0d 04 6a 05 ed  0d 04 74 0c fb 36 33 20  |s$;..j....t..63 |
00000a70  c8 9c 36 34 0d 04 7e 29  f1 8a 35 37 2c 31 32 29  |..64..~)..57,12)|
00000a80  22 4f 75 74 20 20 22 3b  6f 75 74 64 69 73 74 25  |"Out  ";outdist%|
00000a90  22 20 20 20 22 3b 6f 75  74 70 61 72 25 0d 04 88  |"   ";outpar%...|
00000aa0  27 f1 8a 35 37 2c 32 33  29 22 49 6e 20 20 20 22  |'..57,23)"In   "|
00000ab0  3b 69 6e 64 69 73 74 25  22 20 20 20 22 3b 69 6e  |;indist%"   ";in|
00000ac0  70 61 72 25 0d 04 92 0d  fb 36 33 20 c8 9c 31 32  |par%.....63 ..12|
00000ad0  38 0d 04 9c 39 f1 8a 35  36 2c 32 35 29 22 54 6f  |8...9..56,25)"To|
00000ae0  74 61 6c 20 22 3b 6f 75  74 64 69 73 74 25 2b 69  |tal ";outdist%+i|
00000af0  6e 64 69 73 74 25 22 20  20 20 22 3b 6f 75 74 70  |ndist%"   ";outp|
00000b00  61 72 25 2b 69 6e 70 61  72 25 0d 04 a6 06 ef 35  |ar%+inpar%.....5|
00000b10  0d 04 b0 15 53 48 25 3d  31 3a 52 54 4e 25 3d a3  |....SH%=1:RTN%=.|
00000b20  3a 70 25 3d a3 0d 04 ba  21 e6 30 2c 32 35 20 c8  |:p%=....!.0,25 .|
00000b30  9c 31 32 38 3a c8 93 c8  90 30 2c 31 36 34 2c 38  |.128:....0,164,8|
00000b40  35 30 2c 38 35 36 0d 04  c4 4f e6 30 2c 32 35 20  |50,856...O.0,25 |
00000b50  c8 9c 36 34 3a ec 38 35  30 2c 31 30 32 30 3a ec  |..64:.850,1020:.|
00000b60  38 33 34 2c 31 30 30 34  3a f0 38 35 2c 38 35 30  |834,1004:.85,850|
00000b70  2c 31 36 34 3a f0 38 35  2c 38 33 34 2c 31 38 30  |,164:.85,834,180|
00000b80  3a f0 38 35 2c 30 2c 31  36 34 3a f0 38 35 2c 31  |:.85,0,164:.85,1|
00000b90  36 2c 31 38 30 0d 04 ce  4f e6 30 2c 32 35 20 c8  |6,180...O.0,25 .|
00000ba0  9c 31 39 32 3a ec 38 35  30 2c 31 30 32 30 3a ec  |.192:.850,1020:.|
00000bb0  38 33 34 2c 31 30 30 34  3a f0 38 35 2c 30 2c 31  |834,1004:.85,0,1|
00000bc0  30 32 30 3a f0 38 35 2c  31 36 2c 31 30 30 34 3a  |020:.85,16,1004:|
00000bd0  f0 38 35 2c 30 2c 31 36  34 3a f0 38 35 2c 31 36  |.85,0,164:.85,16|
00000be0  2c 31 38 30 0d 04 d8 0f  e6 30 2c 31 34 20 c8 9c  |,180.....0,14 ..|
00000bf0  31 32 38 0d 04 e2 24 ec  38 31 30 2d a9 28 63 6f  |128...$.810-.(co|
00000c00  75 72 73 65 24 29 2a 31  36 2c 39 37 36 3a f1 63  |urse$)*16,976:.c|
00000c10  6f 75 72 73 65 24 3b 0d  04 ec 0f e6 30 2c 36 33  |ourse$;.....0,63|
00000c20  20 c8 9c 31 39 32 0d 04  f6 08 c8 97 20 ee 0d 05  | ..192...... ...|
00000c30  00 1c ec 39 36 2c 39 37  36 3a f1 22 53 65 6c 65  |...96,976:."Sele|
00000c40  63 74 20 43 6f 75 72 73  65 22 0d 05 0a 11 2a 53  |ct Course"....*S|
00000c50  43 48 4f 4f 53 45 20 4c  45 46 54 0d 05 14 0f f0  |CHOOSE LEFT.....|
00000c60  26 45 44 2c 33 34 2c 39  34 30 0d 05 1e 15 ec 36  |&ED,34,940.....6|
00000c70  37 38 2c 32 33 36 3a f1  22 50 6c 61 79 22 3b 0d  |78,236:."Play";.|
00000c80  05 28 12 2a 53 43 48 4f  4f 53 45 20 52 49 47 48  |.(.*SCHOOSE RIGH|
00000c90  54 0d 05 32 10 f0 26 45  44 2c 37 36 36 2c 32 30  |T..2..&ED,766,20|
00000ca0  30 0d 05 3c 18 ec 33 32  30 2c 38 39 38 3a f1 22  |0..<..320,898:."|
00000cb0  50 6c 61 79 65 72 73 22  3b 0d 05 46 0f 2a 53 43  |Players";..F.*SC|
00000cc0  48 4f 4f 53 45 20 55 50  0d 05 50 1d f0 26 45 44  |HOOSE UP..P..&ED|
00000cd0  2c 34 34 38 2c 38 36 30  3a f0 26 45 44 2c 34 34  |,448,860:.&ED,44|
00000ce0  38 2c 32 38 30 0d 05 5a  11 2a 53 43 48 4f 4f 53  |8,280..Z.*SCHOOS|
00000cf0  45 20 44 4f 57 4e 0d 05  64 1d f0 26 45 44 2c 35  |E DOWN..d..&ED,5|
00000d00  34 36 2c 38 36 30 3a f0  26 45 44 2c 35 36 32 2c  |46,860:.&ED,562,|
00000d10  32 38 30 0d 05 6e 40 ef  34 3a fb 36 33 20 c8 9c  |280..n@.4:.63 ..|
00000d20  31 39 32 3a fb 31 35 33  20 c8 9c 31 32 38 3a f1  |192:.153 ..128:.|
00000d30  8a 31 36 2c 37 29 22 4e  61 6d 65 20 20 20 20 20  |.16,7)"Name     |
00000d40  20 20 53 74 79 6c 65 20  20 20 20 20 53 6b 69 6c  |  Style     Skil|
00000d50  6c 22 3b 0d 05 78 19 f1  8a 31 37 2c 32 32 29 22  |l";..x...17,22)"|
00000d60  53 74 61 72 74 20 68 6f  6c 65 22 3b 0d 05 82 10  |Start hole";....|
00000d70  ef 34 3a fb 35 32 20 c8  9c 31 32 38 0d 05 8c 2a  |.4:.52 ..128...*|
00000d80  6e 6f 50 25 3d 32 3a 6e  61 6d 65 24 28 31 29 3d  |noP%=2:name$(1)=|
00000d90  22 52 6f 62 22 3a 6e 61  6d 65 24 28 32 29 3d 22  |"Rob":name$(2)="|
00000da0  50 65 74 65 72 22 0d 05  96 0c 4c 48 25 28 32 29  |Peter"....LH%(2)|
00000db0  3d b9 0d 05 a0 16 c8 97  c8 93 31 38 2c 31 38 32  |=.........18,182|
00000dc0  2c 38 31 34 2c 38 32 31  0d 05 aa 0e c8 97 b8 34  |,814,821.......4|
00000dd0  37 30 2c 38 38 30 0d 05  b4 0c f2 70 6c 70 72 69  |70,880.....plpri|
00000de0  6e 74 0d 05 be 0a f2 77  74 28 32 29 0d 05 c8 0f  |nt.....wt(2)....|
00000df0  e3 73 3d 30 b8 31 88 2e  30 30 31 0d 05 d2 27 20  |.s=0.1..001...' |
00000e00  c8 97 b8 38 30 30 2a 73  2b 34 37 30 2a 28 31 2d  |...800*s+470*(1-|
00000e10  73 29 2c 32 32 30 2a 73  2b 38 38 30 2a 28 31 2d  |s),220*s+880*(1-|
00000e20  73 29 0d 05 dc 05 ed 0d  05 e6 2a ff 28 22 53 4c  |s)........*.("SL|
00000e30  4f 41 44 20 3c 4d 69 63  72 6f 24 44 69 72 3e 2e  |OAD <Micro$Dir>.|
00000e40  43 42 41 43 4b 2e 22 2b  63 73 70 72 69 74 65 24  |CBACK."+csprite$|
00000e50  29 0d 05 f0 07 c8 97 87  0d 05 fa 05 e1 0d 06 04  |)...............|
00000e60  05 20 0d 06 0e 05 20 0d  06 18 0f dd f2 69 6e 70  |. .... ......inp|
00000e70  75 74 73 68 6f 74 0d 06  22 51 ea 6d 78 25 2c 70  |utshot.."Q.mx%,p|
00000e80  78 25 2c 78 25 2c 79 25  2c 62 25 2c 63 25 2c 6f  |x%,x%,y%,b%,c%,o|
00000e90  67 25 2c 6f 78 25 2c 6c  78 25 2c 78 2c 79 2c 68  |g%,ox%,lx%,x,y,h|
00000ea0  78 25 2c 72 73 25 2c 6c  25 2c 66 2c 74 6d 25 2c  |x%,rs%,l%,f,tm%,|
00000eb0  6e 25 2c 6d 25 2c 73 25  2c 73 74 25 2c 68 6c 25  |n%,m%,s%,st%,hl%|
00000ec0  2c 68 25 2c 6f 62 25 0d  06 2c 13 f4 5f 5f 5f 53  |,h%,ob%..,..___S|
00000ed0  45 4c 45 43 54 20 43 4c  55 42 0d 06 36 10 6f 67  |ELECT CLUB..6.og|
00000ee0  25 3d a4 6f 6e 67 72 65  65 6e 0d 06 40 23 e7 28  |%=.ongreen..@#.(|
00000ef0  69 73 74 73 68 6f 74 25  29 84 28 28 ac a4 6f 6e  |istshot%).((..on|
00000f00  74 65 65 29 80 ac 6f 62  64 73 25 29 8c 0d 06 4a  |tee)..obds%)...J|
00000f10  2d 20 ec 36 34 30 2d 53  43 25 2a 34 34 2c 32 36  |- .640-SC%*44,26|
00000f20  38 3a ec 36 34 30 2b 53  43 25 2a 34 34 2c 32 36  |8:.640+SC%*44,26|
00000f30  38 2b 20 20 53 43 25 2a  36 36 0d 06 54 1c 20 c8  |8+  SC%*66..T. .|
00000f40  99 34 36 2c 32 37 30 2c  53 50 25 2c 22 42 48 44  |.46,270,SP%,"BHD|
00000f50  47 46 52 22 2c 30 0d 06  5e 41 20 e7 28 62 68 64  |GFR",0..^A .(bhd|
00000f60  62 6c 25 3c 32 34 29 84  62 68 64 62 6c 25 3e 32  |bl%<24).bhdbl%>2|
00000f70  35 20 8c 20 c8 99 20 20  20 20 20 20 20 34 36 2c  |5 . ..       46,|
00000f80  32 39 30 2c 53 50 25 2c  22 42 41 4c 4c 31 22 2c  |290,SP%,"BALL1",|
00000f90  36 34 30 2c 32 37 36 0d  06 68 2d 20 ec 36 34 30  |640,276..h- .640|
00000fa0  2d 53 43 25 2a 34 34 2c  32 36 38 3a ec 36 34 30  |-SC%*44,268:.640|
00000fb0  2b 53 43 25 2a 34 34 2c  32 36 38 2b 20 20 53 43  |+SC%*44,268+  SC|
00000fc0  25 2a 36 36 0d 06 72 1c  20 c8 99 34 36 2c 32 37  |%*66..r. ..46,27|
00000fd0  30 2c 53 50 25 2c 22 42  48 44 47 46 42 22 2c 30  |0,SP%,"BHDGFB",0|
00000fe0  0d 06 7c 29 20 c8 99 34  36 2c 32 39 30 2c 53 50  |..|) ..46,290,SP|
00000ff0  25 2c 22 42 48 44 47 46  52 22 2c 36 34 30 2d 53  |%,"BHDGFR",640-S|
00001000  43 25 2a 34 34 2c 32 36  38 0d 06 86 05 cc 0d 06  |C%*44,268.......|
00001010  90 29 20 c8 99 34 36 2c  32 39 30 2c 53 50 25 2c  |.) ..46,290,SP%,|
00001020  22 42 48 44 47 46 52 22  2c 36 34 30 2d 53 43 25  |"BHDGFR",640-SC%|
00001030  2a 34 34 2c 32 36 38 0d  06 9a 05 cd 0d 06 a4 1f  |*44,268.........|
00001040  62 68 64 62 74 32 25 3d  c8 9c 28 36 34 30 2c 32  |bhdbt2%=..(640,2|
00001050  37 36 29 3a 6f 62 64 73  25 3d a3 0d 06 ae 37 e7  |76):obds%=....7.|
00001060  28 62 68 64 62 6c 25 3c  32 34 29 84 62 68 64 62  |(bhdbl%<24).bhdb|
00001070  6c 25 3e 32 35 20 c8 99  34 36 2c 32 39 30 2c 53  |l%>25 ..46,290,S|
00001080  50 25 2c 22 42 41 4c 4c  31 22 2c 36 34 30 2c 32  |P%,"BALL1",640,2|
00001090  37 36 0d 06 b8 16 e7 53  43 25 3d 33 78 24 3d 22  |76.....SC%=3x$="|
000010a0  58 22 8b 78 24 3d 22 22  0d 06 c2 17 e7 6f 67 25  |X".x$="".....og%|
000010b0  8c 63 6c 75 62 25 3d 31  34 3a e5 8d 54 74 48 0d  |.club%=14:..TtH.|
000010c0  06 cc 0c ef 35 3a e5 8d  64 60 46 0d 06 d6 17 f2  |....5:..d`F.....|
000010d0  61 72 6f 31 32 28 30 29  3a f2 61 72 6f 33 34 28  |aro12(0):.aro34(|
000010e0  31 29 0d 06 e0 3e e6 30  2c 34 32 20 c8 9c 30 3a  |1)...>.0,42 ..0:|
000010f0  ec 35 39 36 2c 32 30 30  3a f1 22 41 69 6d 22 3b  |.596,200:."Aim";|
00001100  3a e6 30 2c 31 33 20 c8  9c 31 32 38 3a ec 35 34  |:.0,13 ..128:.54|
00001110  38 2c 31 35 32 3a f1 22  53 65 6c 65 63 74 22 3b  |8,152:."Select";|
00001120  0d 06 ea 0e e7 4c 48 25  28 70 75 25 29 8c 0d 06  |.....LH%(pu%)...|
00001130  f4 35 20 c8 99 34 36 2c  32 39 30 2c 53 50 25 2c  |.5 ..46,290,SP%,|
00001140  78 24 2b 22 42 41 47 22  2b c3 28 70 75 25 29 2c  |x$+"BAG"+.(pu%),|
00001150  36 34 30 2d 20 20 20 53  43 25 2a 32 36 2c 32 37  |640-   SC%*26,27|
00001160  32 2c 38 0d 06 fe 39 20  c8 99 34 36 2c 32 39 30  |2,8...9 ..46,290|
00001170  2c 53 50 25 2c 78 24 2b  22 47 46 52 22 2b c3 28  |,SP%,x$+"GFR"+.(|
00001180  70 75 25 29 2b 22 30 22  2c 20 20 20 36 34 30 2b  |pu%)+"0",   640+|
00001190  53 43 25 2a 31 30 2c 32  37 32 2c 38 0d 07 08 05  |SC%*10,272,8....|
000011a0  cc 0d 07 12 35 20 c8 99  34 36 2c 32 39 30 2c 53  |....5 ..46,290,S|
000011b0  50 25 2c 78 24 2b 22 42  41 47 22 2b c3 28 70 75  |P%,x$+"BAG"+.(pu|
000011c0  25 29 2c 36 34 30 2b 20  20 20 53 43 25 2a 31 30  |%),640+   SC%*10|
000011d0  2c 32 37 32 2c 38 0d 07  1c 39 20 c8 99 34 36 2c  |,272,8...9 ..46,|
000011e0  32 39 30 2c 53 50 25 2c  78 24 2b 22 47 46 52 22  |290,SP%,x$+"GFR"|
000011f0  2b c3 28 70 75 25 29 2b  22 30 22 2c 20 20 20 36  |+.(pu%)+"0",   6|
00001200  34 30 2d 53 43 25 2a 32  36 2c 32 37 32 2c 38 0d  |40-SC%*26,272,8.|
00001210  07 26 05 cd 0d 07 30 0b  c8 97 20 88 31 2c 31 0d  |.&....0... .1,1.|
00001220  07 3a 47 e7 28 62 61 6c  6c 78 3d 54 45 58 25 28  |.:G.(ballx=TEX%(|
00001230  30 29 29 80 62 61 6c 6c  79 3d 54 45 59 25 28 30  |0)).bally=TEY%(0|
00001240  29 8c c8 97 c8 93 30 2c  30 2c 31 32 38 30 2c 31  |).....0,0,1280,1|
00001250  33 39 39 20 8b c8 97 c8  93 30 2c 30 2c 31 32 38  |399 .....0,0,128|
00001260  30 2c 31 32 39 39 0d 07  44 45 43 32 25 3d a4 63  |0,1299..DEC2%=.c|
00001270  6c 75 62 28 79 64 73 25  2d 57 59 25 2a 2e 33 38  |lub(yds%-WY%*.38|
00001280  2b 28 a4 47 68 74 28 66  6c 61 67 78 25 2c 66 6c  |+(.Ght(flagx%,fl|
00001290  61 67 79 25 29 2d a4 47  68 74 28 62 61 6c 6c 78  |agy%)-.Ght(ballx|
000012a0  2c 62 61 6c 6c 79 29 29  2f 33 29 0d 07 4e 41 e7  |,bally))/3)..NA.|
000012b0  28 62 68 64 62 6c 32 25  3d 42 63 6f 6c 25 29 84  |(bhdbl2%=Bcol%).|
000012c0  28 62 68 64 62 6c 25 3d  32 34 29 84 28 62 68 64  |(bhdbl%=24).(bhd|
000012d0  62 6c 25 3d 32 35 29 43  32 25 3d a4 6d 61 78 28  |bl%=25)C2%=.max(|
000012e0  43 32 25 2c b3 28 33 29  2b 31 30 29 0d 07 58 29  |C2%,.(3)+10)..X)|
000012f0  59 59 31 25 3d 31 34 39  39 2d 63 6c 75 62 25 2a  |YY1%=1499-club%*|
00001300  31 30 30 3a 59 59 32 25  3d 31 34 39 39 2d 43 32  |100:YY2%=1499-C2|
00001310  25 2a 31 30 30 0d 07 62  0a f2 77 74 28 31 29 0d  |%*100..b..wt(1).|
00001320  07 6c 15 e7 b3 28 35 29  3d 31 8c f2 73 68 6f 77  |.l...(5)=1..show|
00001330  70 6c 61 6e 0d 07 76 0c  c8 97 b8 78 25 2c 79 25  |plan..v....x%,y%|
00001340  0d 07 80 0f e3 73 3d 30  b8 31 88 2e 30 30 31 0d  |.....s=0.1..001.|
00001350  07 8a 19 20 79 25 3d 59  59 31 25 2a 28 31 2d 73  |... y%=YY1%*(1-s|
00001360  29 2b 59 59 32 25 2a 73  0d 07 94 1d 20 e7 62 25  |)+YY2%*s.... .b%|
00001370  3d 31 8c f2 73 68 6f 77  70 6c 61 6e 3a c8 97 b8  |=1..showplan:...|
00001380  78 25 2c 79 25 0d 07 9e  22 20 63 25 3d a4 6d 61  |x%,y%..." c%=.ma|
00001390  78 28 31 2c a4 6d 69 6e  28 31 33 2c 31 34 2d 79  |x(1,.min(13,14-y|
000013a0  25 81 31 30 30 29 29 0d  07 a8 11 20 e7 63 25 3c  |%.100)).... .c%<|
000013b0  3e 63 6c 75 62 25 20 8c  0d 07 b2 11 20 20 d4 31  |>club% .....  .1|
000013c0  2c 2d 39 2c 31 32 30 2c  30 0d 07 bc 29 20 20 e6  |,-9,120,0...)  .|
000013d0  30 2c 34 32 c8 9c 36 34  3a ec 35 34 38 2c 31 31  |0,42..64:.548,11|
000013e0  32 3a f1 63 6c 75 62 24  28 20 20 63 6c 75 62 25  |2:.club$(  club%|
000013f0  29 3b 0d 07 c6 3a 20 20  e7 63 6c 75 62 25 3c 31  |);...:  .club%<1|
00001400  34 8c ec 35 33 32 2c 38  30 3a f1 3b 20 20 20 20  |4..532,80:.;    |
00001410  20 20 20 20 20 63 6c 75  62 64 69 73 74 25 28 63  |     clubdist%(c|
00001420  6c 75 62 25 29 22 20 59  64 73 22 3b 0d 07 d0 0e  |lub%)" Yds";....|
00001430  20 20 63 6c 75 62 25 3d  63 25 0d 07 da 10 20 20  |  club%=c%....  |
00001440  e6 30 2c 35 30 20 c8 9c  36 34 0d 07 e4 1d 20 20  |.0,50 ..64....  |
00001450  ec 35 34 38 2c 31 31 32  3a f1 63 6c 75 62 24 28  |.548,112:.club$(|
00001460  63 6c 75 62 25 29 3b 0d  07 ee 3e 20 20 e7 63 6c  |club%);...>  .cl|
00001470  75 62 25 3c 31 34 8c e6  30 2c 34 32 20 c8 9c 30  |ub%<14..0,42 ..0|
00001480  3a ec 35 33 32 2c 20 20  20 38 30 3a f1 3b 63 6c  |:.532,   80:.;cl|
00001490  75 62 64 69 73 74 25 28  63 6c 75 62 25 29 22 20  |ubdist%(club%)" |
000014a0  59 64 73 22 3b 0d 07 f8  06 20 cd 0d 08 02 05 ed  |Yds";.... ......|
000014b0  0d 08 0c 28 c8 99 34 36  2c 32 39 30 2c 53 50 25  |...(..46,290,SP%|
000014c0  2c 22 42 48 44 47 46 52  22 2c 36 34 30 2d 53 43  |,"BHDGFR",640-SC|
000014d0  25 2a 34 34 2c 32 36 38  0d 08 16 0b f4 5f 5f 5f  |%*44,268.....___|
000014e0  61 69 6d 0d 08 20 3e e6  30 2c 31 33 20 c8 9c 31  |aim.. >.0,13 ..1|
000014f0  32 38 3a ec 35 39 36 2c  32 30 30 3a f1 22 41 69  |28:.596,200:."Ai|
00001500  6d 22 3b 3a e6 30 2c 34  32 20 c8 9c 30 3a ec 35  |m";:.0,42 ..0:.5|
00001510  34 38 2c 31 35 32 3a f1  22 53 65 6c 65 63 74 22  |48,152:."Select"|
00001520  3b 0d 08 2a 17 f2 61 72  6f 31 32 28 31 29 3a f2  |;..*..aro12(1):.|
00001530  61 72 6f 33 34 28 30 29  0d 08 34 32 e7 63 6c 75  |aro34(0)..42.clu|
00001540  62 25 3d 31 34 8c 63 6c  75 62 77 25 3d 31 32 8b  |b%=14.clubw%=12.|
00001550  63 6c 75 62 77 25 3d 28  28 31 33 2d 63 6c 75 62  |clubw%=((13-club|
00001560  25 29 81 33 29 2a 34 2b  32 30 0d 08 3e 44 e7 4c  |%).3)*4+20..>D.L|
00001570  48 25 28 70 75 25 29 8c  6d 78 25 3d 36 34 30 2d  |H%(pu%).mx%=640-|
00001580  32 2a 53 43 25 2b 63 6c  75 62 77 25 2a 53 43 25  |2*SC%+clubw%*SC%|
00001590  2f 32 8b 6d 78 25 3d 36  34 30 2d 31 38 2a 53 43  |/2.mx%=640-18*SC|
000015a0  25 2d 63 6c 75 62 77 25  2a 53 43 25 2f 32 0d 08  |%-clubw%*SC%/2..|
000015b0  48 2e c8 99 34 36 2c 32  39 30 2c 53 50 25 2c 78  |H...46,290,SP%,x|
000015c0  24 2b 22 47 46 52 22 2b  c3 28 70 75 25 29 2b 22  |$+"GFR"+.(pu%)+"|
000015d0  31 22 2c 6d 78 25 2c 32  37 32 2c 38 0d 08 52 2b  |1",mx%,272,8..R+|
000015e0  ec 36 34 30 2c 32 37 36  3a ec 36 34 30 2c 32 37  |.640,276:.640,27|
000015f0  36 3a c8 99 34 36 2c 32  37 30 2c 53 50 25 2c 22  |6:..46,270,SP%,"|
00001600  42 48 44 42 22 2c 30 0d  08 5c 19 c8 99 34 36 2c  |BHDB",0..\...46,|
00001610  32 37 30 2c 53 50 25 2c  22 42 48 44 53 22 2c 30  |270,SP%,"BHDS",0|
00001620  0d 08 66 37 e7 28 62 68  64 62 6c 25 3c 32 34 29  |..f7.(bhdbl%<24)|
00001630  84 62 68 64 62 6c 25 3e  32 35 20 c8 99 34 36 2c  |.bhdbl%>25 ..46,|
00001640  32 39 30 2c 53 50 25 2c  22 42 41 4c 4c 31 22 2c  |290,SP%,"BALL1",|
00001650  36 34 30 2c 32 37 36 0d  08 70 0e e6 30 2c 32 31  |640,276..p..0,21|
00001660  20 c8 9c 36 34 0d 08 7a  79 e7 4c 48 25 28 70 75  | ..64..zy.LH%(pu|
00001670  25 29 68 78 25 3d 36 34  30 2b 32 2a 53 43 25 2b  |%)hx%=640+2*SC%+|
00001680  63 6c 75 62 77 25 2a 53  43 25 2f 32 3a ec 36 34  |clubw%*SC%/2:.64|
00001690  34 2c 32 37 36 3a f0 35  2c 68 78 25 2c 32 36 38  |4,276:.5,hx%,268|
000016a0  2b 53 43 25 2a 32 32 20  8b 68 78 25 3d 36 34 30  |+SC%*22 .hx%=640|
000016b0  2d 32 2a 53 43 25 2d 63  6c 75 62 77 25 2a 53 43  |-2*SC%-clubw%*SC|
000016c0  25 2f 32 3a ec 36 33 36  2c 32 37 36 3a f0 35 2c  |%/2:.636,276:.5,|
000016d0  68 78 25 2c 32 36 38 2b  53 43 25 2a 32 32 0d 08  |hx%,268+SC%*22..|
000016e0  84 09 72 73 25 3d a3 0d  08 8e 1e f5 3a f2 77 74  |..rs%=......:.wt|
000016f0  28 2e 32 29 3a c8 97 78  25 2c 79 25 2c 62 25 3a  |(.2):..x%,y%,b%:|
00001700  fd 62 25 3d 30 0d 08 98  12 c8 97 c8 93 30 2c 30  |.b%=0........0,0|
00001710  2c 31 32 33 36 2c 30 0d  08 a2 30 78 25 3d 36 32  |,1236,0...0x%=62|
00001720  30 3a c8 99 34 36 2c 32  39 30 2c 53 50 25 2c 22  |0:..46,290,SP%,"|
00001730  53 49 47 48 54 53 22 2c  78 25 2c 32 38 30 2b 53  |SIGHTS",x%,280+S|
00001740  43 25 2a 37 30 2c 33 0d  08 ac 0e e7 63 6c 75 62  |C%*70,3.....club|
00001750  25 3d 31 34 8c 0d 08 b6  11 20 58 58 32 25 3d 78  |%=14..... XX2%=x|
00001760  25 2b 53 4c 50 25 0d 08  c0 05 cc 0d 08 ca 0e 20  |%+SLP%......... |
00001770  e7 79 64 73 25 3e 36 35  8c 0d 08 d4 16 20 20 58  |.yds%>65.....  X|
00001780  58 32 25 3d 78 25 2d 57  58 25 2a 33 2e 32 35 0d  |X2%=x%-WX%*3.25.|
00001790  08 de 06 20 cc 0d 08 e8  0f 20 20 e7 79 64 73 25  |... .....  .yds%|
000017a0  3e 33 30 8c 0d 08 f2 1f  20 20 20 58 58 32 25 3d  |>30.....   XX2%=|
000017b0  78 25 2d 57 58 25 2a 33  2e 32 35 2a 79 64 73 25  |x%-WX%*3.25*yds%|
000017c0  2f 36 35 0d 08 fc 07 20  20 cc 0d 09 06 34 20 20  |/65....  ....4  |
000017d0  20 58 58 32 25 3d 78 25  2d 57 58 25 2a 33 2e 32  | XX2%=x%-WX%*3.2|
000017e0  35 2a 79 64 73 25 2f 36  35 2b 53 4c 50 25 2a 28  |5*yds%/65+SLP%*(|
000017f0  2e 35 2b 47 73 70 65 65  64 25 2f 31 30 29 0d 09  |.5+Gspeed%/10)..|
00001800  10 07 20 20 cd 0d 09 1a  06 20 cd 0d 09 24 05 cd  |..  ..... ...$..|
00001810  0d 09 2e 0c c8 97 20 b8  78 25 2c 30 0d 09 38 0b  |...... .x%,0..8.|
00001820  f2 77 74 28 2e 35 29 0d  09 42 0f e3 73 3d 30 b8  |.wt(.5)..B..s=0.|
00001830  31 88 2e 30 30 31 0d 09  4c 0b 20 6f 78 25 3d 78  |1..001..L. ox%=x|
00001840  25 0d 09 56 17 20 78 25  3d 73 2a 58 58 32 25 2b  |%..V. x%=s*XX2%+|
00001850  28 31 2d 73 29 2a 78 25  0d 09 60 12 20 e7 78 25  |(1-s)*x%..`. .x%|
00001860  81 34 3c 3e 6f 78 25 81  34 8c 0d 09 6a 08 20 20  |.4<>ox%.4...j.  |
00001870  c8 96 0d 09 74 2c 20 20  c8 99 34 36 2c 32 39 30  |....t,  ..46,290|
00001880  2c 53 50 25 2c 22 53 49  47 48 54 53 22 2c 6f 78  |,SP%,"SIGHTS",ox|
00001890  25 2c 32 38 30 2b 53 43  25 2a 37 30 2c 33 0d 09  |%,280+SC%*70,3..|
000018a0  7e 2b 20 20 c8 99 34 36  2c 32 39 30 2c 53 50 25  |~+  ..46,290,SP%|
000018b0  2c 22 53 49 47 48 54 53  22 2c 78 25 2c 32 38 30  |,"SIGHTS",x%,280|
000018c0  2b 53 43 25 2a 37 30 2c  33 0d 09 88 06 20 cd 0d  |+SC%*70,3.... ..|
000018d0  09 92 0b 20 6c 78 25 3d  78 25 0d 09 9c 05 ed 0d  |... lx%=x%......|
000018e0  09 a6 45 f5 3a f2 77 74  28 2e 32 29 3a c8 97 78  |..E.:.wt(.2):..x|
000018f0  25 2c 79 25 2c 62 25 3a  fd 62 25 3d 30 3a c8 99  |%,y%,b%:.b%=0:..|
00001900  34 36 2c 32 39 30 2c 53  50 25 2c 22 53 49 47 48  |46,290,SP%,"SIGH|
00001910  54 53 22 2c 6c 78 25 2c  32 38 30 2b 53 43 25 2a  |TS",lx%,280+SC%*|
00001920  37 30 2c 33 0d 09 b0 20  f2 59 32 31 28 34 34 30  |70,3... .Y21(440|
00001930  29 3a f2 58 32 31 28 6c  78 25 2b 32 32 29 3a f2  |):.X21(lx%+22):.|
00001940  58 59 31 30 0d 09 ba 19  78 3d 58 30 2d 62 61 6c  |XY10....x=X0-bal|
00001950  6c 78 3a 79 3d 59 30 2d  62 61 6c 6c 79 0d 09 c4  |lx:y=Y0-bally...|
00001960  1b e7 78 3d 30 e7 79 3e  30 73 61 6e 67 3d 50 49  |..x=0.y>0sang=PI|
00001970  39 30 3a e5 8d 64 76 49  0d 09 ce 1c e7 78 3d 30  |90:..dvI.....x=0|
00001980  e7 79 3c 30 73 61 6e 67  3d 50 49 32 37 30 3a e5  |.y<0sang=PI270:.|
00001990  8d 64 76 49 0d 09 d8 18  e7 79 3d 30 e7 78 3c 30  |.dvI.....y=0.x<0|
000019a0  73 61 6e 67 3d af 3a e5  8d 64 76 49 0d 09 e2 18  |sang=.:..dvI....|
000019b0  e7 79 3d 30 e7 78 3e 30  73 61 6e 67 3d 30 3a e5  |.y=0.x>0sang=0:.|
000019c0  8d 64 76 49 0d 09 ec 3d  73 61 6e 67 3d 99 28 79  |.dvI...=sang=.(y|
000019d0  2f 78 29 3a e7 28 79 3c  30 29 80 78 3c 30 8c 73  |/x):.(y<0).x<0.s|
000019e0  61 6e 67 3d 73 61 6e 67  2b af 20 8b e7 28 79 3e  |ang=sang+. ..(y>|
000019f0  30 29 80 78 3c 30 73 61  6e 67 3d 73 61 6e 67 2d  |0).x<0sang=sang-|
00001a00  af 0d 09 f6 08 6e 25 3d  30 0d 0a 00 12 f4 5f 5f  |.....n%=0.....__|
00001a10  5f 62 61 63 6b 20 73 77  69 6e 67 0d 0a 0a 13 6c  |_back swing....l|
00001a20  25 3d 4c 48 25 28 70 75  25 29 2a 32 2b 31 0d 0a  |%=LH%(pu%)*2+1..|
00001a30  14 0f 66 3d 63 6c 75 62  77 25 2f 31 32 0d 0a 1e  |..f=clubw%/12...|
00001a40  18 e7 63 6c 75 62 25 3c  31 34 8c 6d 25 3d 34 8b  |..club%<14.m%=4.|
00001a50  6d 25 3d 31 30 0d 0a 28  13 74 6d 25 3d 2d 31 3a  |m%=10..(.tm%=-1:|
00001a60  53 43 3d 53 43 25 2f 32  0d 0a 32 95 e7 79 64 73  |SC=SC%/2..2..yds|
00001a70  25 3e 31 30 30 59 59 32  25 3d 79 64 73 25 2d 57  |%>100YY2%=yds%-W|
00001a80  59 25 2a 2e 33 38 2b 28  a4 47 68 74 28 66 6c 61  |Y%*.38+(.Ght(fla|
00001a90  67 78 25 2c 66 6c 61 67  79 25 29 2d a4 47 68 74  |gx%,flagy%)-.Ght|
00001aa0  28 62 61 6c 6c 78 2c 62  61 6c 6c 79 29 29 2f 32  |(ballx,bally))/2|
00001ab0  8b 59 59 32 25 3d a4 6d  61 78 28 31 2c 79 64 73  |.YY2%=.max(1,yds|
00001ac0  25 2d 57 59 25 2a 2e 33  38 2a 79 64 73 25 2f 31  |%-WY%*.38*yds%/1|
00001ad0  35 30 2b 28 a4 47 68 74  28 66 6c 61 67 78 25 2c  |50+(.Ght(flagx%,|
00001ae0  66 6c 61 67 79 25 29 2d  a4 47 68 74 28 62 61 6c  |flagy%)-.Ght(bal|
00001af0  6c 78 2c 62 61 6c 6c 79  29 29 2f 33 29 0d 0a 3c  |lx,bally))/3)..<|
00001b00  38 e7 28 62 68 64 62 6c  25 3d 32 34 29 84 28 62  |8.(bhdbl%=24).(b|
00001b10  68 64 62 6c 25 3d 32 35  29 84 62 68 64 62 6c 32  |hdbl%=25).bhdbl2|
00001b20  25 3d 42 63 6f 6c 25 8c  59 59 32 25 3d 59 59 32  |%=Bcol%.YY2%=YY2|
00001b30  25 2a 31 2e 33 0d 0a 46  0e e7 63 6c 75 62 25 3c  |%*1.3..F..club%<|
00001b40  31 34 8c 0d 0a 50 3d 20  e7 28 59 59 32 25 3e 31  |14...P= .(YY2%>1|
00001b50  30 30 29 8c 53 54 25 3d  31 35 39 2b b3 28 31 32  |00).ST%=159+.(12|
00001b60  29 8b 53 54 25 3d 28 59  59 32 25 2b 33 29 5e 2e  |).ST%=(YY2%+3)^.|
00001b70  37 2f 32 34 2a 28 31 34  39 2b b3 28 32 30 29 29  |7/24*(149+.(20))|
00001b80  0d 0a 5a 05 cc 0d 0a 64  40 20 46 66 65 65 74 25  |..Z....d@ Ffeet%|
00001b90  3d 66 65 65 74 25 2a 28  31 2b 28 a4 47 68 74 28  |=feet%*(1+(.Ght(|
00001ba0  66 6c 61 67 78 25 2c 66  6c 61 67 79 25 29 2d a4  |flagx%,flagy%)-.|
00001bb0  47 68 74 28 62 61 6c 6c  78 2c 62 61 6c 6c 79 29  |Ght(ballx,bally)|
00001bc0  29 2f 31 36 29 0d 0a 6e  34 20 53 54 25 3d a4 6d  |)/16)..n4 ST%=.m|
00001bd0  69 6e 28 32 30 30 2c 31  2e 34 2a 28 46 66 65 65  |in(200,1.4*(Ffee|
00001be0  74 25 2b 31 2e 38 29 5e  2e 36 2a 28 38 2d 47 73  |t%+1.8)^.6*(8-Gs|
00001bf0  70 65 65 64 25 2f 35 29  29 0d 0a 78 05 cd 0d 0a  |peed%/5))..x....|
00001c00  82 05 f5 0d 0a 8c 0c 20  6e 25 3d 6e 25 2b 31 0d  |....... n%=n%+1.|
00001c10  0a 96 12 20 73 25 3d 28  6e 25 2d 31 29 81 35 2b  |... s%=(n%-1).5+|
00001c20  31 0d 0a a0 0f 20 e6 30  2c 32 31 20 c8 9c 36 34  |1.... .0,21 ..64|
00001c30  0d 0a aa 25 20 78 25 3d  28 28 43 48 58 25 28 6e  |...% x%=((CHX%(n|
00001c40  25 29 2b 48 4e 58 25 28  6e 25 29 29 2a 6c 25 2a  |%)+HNX%(n%))*l%*|
00001c50  66 29 2a 53 43 0d 0a b4  07 20 c8 96 0d 0a be 29  |f)*SC.... .....)|
00001c60  20 c8 99 34 36 2c 32 39  30 2c 53 50 25 2c 22 42  | ..46,290,SP%,"B|
00001c70  48 44 47 46 42 22 2c 36  34 30 2d 53 43 25 2a 34  |HDGFB",640-SC%*4|
00001c80  34 2c 32 36 38 0d 0a c8  33 20 c8 99 34 36 2c 32  |4,268...3 ..46,2|
00001c90  39 30 2c 53 50 25 2c 78  24 2b 22 47 46 52 22 2b  |90,SP%,x$+"GFR"+|
00001ca0  c3 28 70 75 25 29 2b c3  28 20 20 73 25 29 2c 6d  |.(pu%)+.(  s%),m|
00001cb0  78 25 2c 32 37 32 2c 38  0d 0a d2 2e 20 ec 68 78  |x%,272,8.... .hx|
00001cc0  25 2d 48 4e 58 25 28 6e  25 29 2a 6c 25 2a 53 43  |%-HNX%(n%)*l%*SC|
00001cd0  2c 32 36 38 2b 28 34 34  2b 48 4e 59 25 28 6e 25  |,268+(44+HNY%(n%|
00001ce0  29 20 29 2a 53 43 0d 0a  dc 36 20 f0 35 2c 68 78  |) )*SC...6 .5,hx|
00001cf0  25 2d 48 4e 58 25 28 6e  25 29 2a 6c 25 2a 53 43  |%-HNX%(n%)*l%*SC|
00001d00  2b 78 25 2c 32 36 38 2b  28 34 34 2b 20 20 20 20  |+x%,268+(44+    |
00001d10  43 48 59 25 28 6e 25 29  29 2a 53 43 0d 0a e6 11  |CHY%(n%))*SC....|
00001d20  20 e7 74 6d 25 3d 2d 31  74 6d 25 3d 91 0d 0a f0  | .tm%=-1tm%=....|
00001d30  0a 20 73 74 25 3d 30 0d  0a fa 06 20 f5 0d 0b 04  |. st%=0.... ....|
00001d40  0f 20 20 73 74 25 3d 91  2d 74 6d 25 0d 0b 0e 13  |.  st%=.-tm%....|
00001d50  20 fd 28 91 2d 74 6d 25  29 3e 6e 25 2a 6d 25 0d  | .(.-tm%)>n%*m%.|
00001d60  0b 18 1f fd 28 73 74 25  3e 3d 53 54 25 29 84 28  |....(st%>=ST%).(|
00001d70  28 6e 25 3d 32 35 29 80  53 43 25 3d 33 29 0d 0b  |(n%=25).SC%=3)..|
00001d80  22 13 e7 73 74 25 3d 30  73 74 25 3d 91 2d 74 6d  |"..st%=0st%=.-tm|
00001d90  25 0d 0b 2c 0f e7 63 6c  75 62 25 3d 31 34 20 8c  |%..,..club%=14 .|
00001da0  0d 0b 36 12 20 70 6f 77  65 72 3d 73 74 25 2f 32  |..6. power=st%/2|
00001db0  30 31 0d 0b 40 05 cc 0d  0b 4a 12 20 70 6f 77 65  |01..@....J. powe|
00001dc0  72 3d 73 74 25 2f 31 36  35 0d 0b 54 0f 20 e7 70  |r=st%/165..T. .p|
00001dd0  6f 77 65 72 3e 31 20 8c  0d 0b 5e 19 20 20 70 6f  |ower>1 ...^.  po|
00001de0  77 65 72 3d 31 2b 28 70  6f 77 65 72 2d 31 29 2f  |wer=1+(power-1)/|
00001df0  32 0d 0b 68 24 20 20 70  6f 77 65 72 3d 70 6f 77  |2..h$  power=pow|
00001e00  65 72 2d 28 b3 28 31 29  2a 28 70 6f 77 65 72 2d  |er-(.(1)*(power-|
00001e10  31 29 2a 33 29 0d 0b 72  06 20 cd 0d 0b 7c 05 cd  |1)*3)..r. ...|..|
00001e20  0d 0b 86 0b f2 77 74 28  2e 33 29 0d 0b 90 1d 73  |.....wt(.3)....s|
00001e30  73 25 3d 28 73 25 3c 36  29 3a 68 6c 25 3d 6e 25  |s%=(s%<6):hl%=n%|
00001e40  3a 6e 25 3d 6e 25 2b 31  0d 0b 9a 08 68 25 3d 30  |:n%=n%+1....h%=0|
00001e50  0d 0b a4 2e e7 63 6c 75  62 25 3d 31 34 8c 43 25  |.....club%=14.C%|
00001e60  3d 32 8b e7 52 25 8c 43  25 3d 36 8b e7 63 6c 75  |=2..R%.C%=6..clu|
00001e70  62 25 3c 33 8c 43 25 3d  31 8b 43 25 3d 35 0d 0b  |b%<3.C%=1.C%=5..|
00001e80  ae 08 53 25 3d a3 0d 0b  b8 10 f4 5f 5f 44 4f 57  |..S%=......__DOW|
00001e90  4e 73 77 69 6e 67 0d 0b  c2 09 6f 62 25 3d 30 0d  |Nswing....ob%=0.|
00001ea0  0b cc 05 f5 0d 0b d6 0a  20 74 6d 25 3d 91 0d 0b  |........ tm%=...|
00001eb0  e0 0c 20 6e 25 3d 6e 25  2d 31 0d 0b ea 28 20 e7  |.. n%=n%-1...( .|
00001ec0  73 73 25 8c 73 25 3d 28  6e 25 2d 31 29 81 35 2b  |ss%.s%=(n%-1).5+|
00001ed0  31 20 8b 73 25 3d 31 37  2d 28 6e 25 2d 20 31 29  |1 .s%=17-(n%- 1)|
00001ee0  81 35 0d 0b f4 0f 20 e6  30 2c 32 31 20 c8 9c 36  |.5.... .0,21 ..6|
00001ef0  34 0d 0b fe 23 20 78 25  3d 28 43 48 58 25 28 6e  |4...# x%=(CHX%(n|
00001f00  25 29 2b 48 4e 58 25 28  6e 25 29 29 2a 6c 25 2a  |%)+HNX%(n%))*l%*|
00001f10  66 2a 53 43 0d 0c 08 39  20 e7 ac 53 25 e7 28 6e  |f*SC...9 ..S%.(n|
00001f20  25 3c 36 29 80 43 25 3c  3e 32 8c d4 43 25 2c 2d  |%<6).C%<>2..C%,-|
00001f30  36 2d 20 20 a4 6d 69 6e  28 70 6f 77 65 72 2a 31  |6-  .min(power*1|
00001f40  30 2c 39 29 2c 30 2c 30  3a 53 25 3d b9 0d 0c 12  |0,9),0,0:S%=....|
00001f50  07 20 c8 96 0d 0c 1c 29  20 c8 99 34 36 2c 32 39  |. .....) ..46,29|
00001f60  30 2c 53 50 25 2c 22 42  48 44 47 46 42 22 2c 36  |0,SP%,"BHDGFB",6|
00001f70  34 30 2d 53 43 25 2a 34  34 2c 32 36 38 0d 0c 26  |40-SC%*44,268..&|
00001f80  33 20 c8 99 34 36 2c 32  39 30 2c 53 50 25 2c 78  |3 ..46,290,SP%,x|
00001f90  24 2b 22 47 46 52 22 2b  c3 28 70 75 25 29 2b c3  |$+"GFR"+.(pu%)+.|
00001fa0  28 20 20 73 25 29 2c 6d  78 25 2c 32 37 32 2c 38  |(  s%),mx%,272,8|
00001fb0  0d 0c 30 2e 20 ec 68 78  25 2d 48 4e 58 25 28 6e  |..0. .hx%-HNX%(n|
00001fc0  25 29 2a 6c 25 2a 53 43  2c 32 36 38 2b 28 34 34  |%)*l%*SC,268+(44|
00001fd0  2b 48 4e 59 25 28 6e 25  29 20 29 2a 53 43 0d 0c  |+HNY%(n%) )*SC..|
00001fe0  3a 36 20 f0 35 2c 68 78  25 2d 48 4e 58 25 28 6e  |:6 .5,hx%-HNX%(n|
00001ff0  25 29 2a 6c 25 2a 53 43  2b 78 25 2c 32 36 38 2b  |%)*l%*SC+x%,268+|
00002000  28 34 34 2b 20 20 20 20  43 48 59 25 28 6e 25 29  |(44+    CHY%(n%)|
00002010  29 2a 53 43 0d 0c 44 06  20 f5 0d 0c 4e 0c 20 20  |)*SC..D. ...N.  |
00002020  6f 62 25 3d 62 25 0d 0c  58 12 20 fd 28 91 2d 74  |ob%=b%..X. .(.-t|
00002030  6d 25 29 3e 6d 25 2f 34  0d 0c 62 09 fd 6e 25 3d  |m%)>m%/4..b..n%=|
00002040  30 0d 0c 6c 14 68 6f 6f  6b 3d b3 28 31 29 2a 2e  |0..l.hook=.(1)*.|
00002050  33 2d 2e 31 35 0d 0c 76  22 e7 43 25 3d 32 d4 32  |3-.15..v".C%=2.2|
00002060  2c 2d 39 2d a4 6d 69 6e  28 70 6f 77 65 72 2a 37  |,-9-.min(power*7|
00002070  2c 36 29 2c 30 2c 30 0d  0c 80 0d 6d 61 6e 78 25  |,6),0,0....manx%|
00002080  3d 6d 78 25 0d 0c 8a 05  e1 0d 0c 94 05 20 0d 0c  |=mx%......... ..|
00002090  9e 05 20 0d 0c a8 0e dd  f2 63 6f 6e 74 69 6e 75  |.. ......continu|
000020a0  65 0d 0c b2 90 e6 30 2c  34 32 20 c8 9c 36 34 3a  |e.....0,42 ..64:|
000020b0  ec 34 36 38 2c 34 34 3a  ec 38 31 36 2c 34 34 3a  |.468,44:.816,44:|
000020c0  f0 38 35 2c 34 36 38 2c  32 30 38 3a f0 38 35 2c  |.85,468,208:.85,|
000020d0  38 31 36 2c 32 30 38 3a  e6 30 2c 34 38 20 c8 9c  |816,208:.0,48 ..|
000020e0  30 3a ec 34 36 38 2c 31  38 38 3a f1 22 43 6f 6e  |0:.468,188:."Con|
000020f0  74 69 6e 75 69 6e 67 3f  22 3b 3a c8 99 34 36 2c  |tinuing?";:..46,|
00002100  32 39 30 2c 53 50 25 2c  22 4d 4f 55 53 45 22 2c  |290,SP%,"MOUSE",|
00002110  36 30 38 2c 36 30 2c 38  3a f2 77 74 28 31 29 3a  |608,60,8:.wt(1):|
00002120  68 6f 6c 65 6f 75 74 25  3d 28 b3 28 32 29 3d 31  |holeout%=(.(2)=1|
00002130  29 0d 0c bc 05 e1 0d 0c  c6 05 20 0d 0c d0 05 20  |)......... .... |
00002140  0d 0c da 0e dd f2 73 68  6f 77 70 6c 61 6e 0d 0c  |......showplan..|
00002150  e4 19 ea 78 25 2c 79 25  2c 62 25 2c 74 25 2c 63  |...x%,y%,b%,t%,c|
00002160  25 2c 62 78 2c 62 79 0d  0c ee 0c 2a 46 58 31 31  |%,bx,by....*FX11|
00002170  33 2c 31 0d 0c f8 0c 2a  46 58 31 31 32 2c 31 0d  |3,1....*FX112,1.|
00002180  0d 02 1f 62 78 3d 62 61  6c 6c 78 28 70 75 25 29  |...bx=ballx(pu%)|
00002190  3a 62 79 3d 62 61 6c 6c  79 28 70 75 25 29 0d 0d  |:by=bally(pu%)..|
000021a0  0c 1b 63 25 3d b0 62 78  2c 62 79 29 3a 74 25 3d  |..c%=.bx,by):t%=|
000021b0  c8 9c 28 62 78 2c 62 79  29 0d 0d 16 16 e6 30 2c  |..(bx,by).....0,|
000021c0  36 33 c8 9c 31 39 32 3a  c8 92 62 78 2c 62 79 0d  |63..192:..bx,by.|
000021d0  0d 20 0a f2 77 74 28 34  29 0d 0d 2a 15 e6 30 2c  |. ..wt(4)..*..0,|
000021e0  63 25 c8 9c 74 25 3a c8  92 62 78 2c 62 79 0d 0d  |c%..t%:..bx,by..|
000021f0  34 0c 2a 46 58 31 31 33  2c 30 0d 0d 3e 0c 2a 46  |4.*FX113,0..>.*F|
00002200  58 31 31 32 2c 30 0d 0d  48 05 e1 0d 0d 52 04 0d  |X112,0..H....R..|
00002210  0d 5c 04 0d 0d 66 0f dd  f2 73 63 6f 72 65 63 61  |.\...f...scoreca|
00002220  72 64 0d 0d 70 19 ea 69  25 2c 63 24 2c 73 25 2c  |rd..p..i%,c$,s%,|
00002230  6c 25 2c 70 25 2c 73 24  2c 68 24 0d 0d 7a 09 ea  |l%,p%,s$,h$..z..|
00002240  6e 24 28 29 0d 0d 84 0d  de 6e 24 28 6e 6f 50 25  |n$().....n$(noP%|
00002250  29 0d 0d 8e 17 eb 31 32  3a ef 32 33 3b 38 32 30  |).....12:.23;820|
00002260  32 3b 30 3b 30 3b 30 3b  0d 0d 98 17 fb 30 2c 31  |2;0;0;0;.....0,1|
00002270  36 2a 35 2c 20 31 36 2a  37 2c 20 31 36 2a 35 0d  |6*5, 16*7, 16*5.|
00002280  0d a2 18 fb 31 2c 31 36  2a 31 32 2c 31 36 2a 31  |....1,16*12,16*1|
00002290  35 2c 31 36 2a 31 32 0d  0d ac 17 fb 32 2c 31 36  |5,16*12.....2,16|
000022a0  2a 31 33 2c 31 36 2a 31  30 2c 31 36 2a 37 0d 0d  |*13,16*10,16*7..|
000022b0  b6 17 fb 33 2c 31 36 2a  31 33 2c 31 36 2a 38 2c  |...3,16*13,16*8,|
000022c0  20 31 36 2a 34 0d 0d c0  17 fb 34 2c 31 36 2a 31  | 16*4.....4,16*1|
000022d0  34 2c 31 36 2a 31 31 2c  31 36 2a 31 0d 0d ca 17  |4,16*11,16*1....|
000022e0  fb 35 2c 31 36 2a 31 35  2c 31 36 2a 31 35 2c 31  |.5,16*15,16*15,1|
000022f0  36 2a 32 0d 0d d4 18 fb  36 2c 31 36 2a 31 35 2c  |6*2.....6,16*15,|
00002300  31 36 2a 31 35 2c 31 36  2a 31 35 0d 0d de 18 fb  |16*15,16*15.....|
00002310  37 2c 31 36 2a 31 31 2c  31 36 2a 31 31 2c 31 36  |7,16*11,16*11,16|
00002320  2a 31 35 0d 0d e8 17 fb  38 2c 31 36 2a 36 2c 20  |*15.....8,16*6, |
00002330  31 36 2a 31 30 2c 31 36  2a 36 0d 0d f2 18 fb 39  |16*10,16*6.....9|
00002340  2c 31 36 2a 31 32 2c 31  36 2a 31 35 2c 31 36 2a  |,16*12,16*15,16*|
00002350  31 31 0d 0d fc 08 e6 30  2c 38 0d 0e 06 29 ec 30  |11.....0,8...).0|
00002360  2c 39 34 34 3a f0 35 2c  31 32 38 30 2c 39 34 34  |,944:.5,1280,944|
00002370  3a ec 30 2c 37 32 30 3a  f0 35 2c 31 32 38 30 2c  |:.0,720:.5,1280,|
00002380  37 32 30 0d 0e 10 29 ec  30 2c 34 30 30 3a f0 35  |720...).0,400:.5|
00002390  2c 31 32 38 30 2c 34 30  30 3a ec 30 2c 32 30 30  |,1280,400:.0,200|
000023a0  3a f0 35 2c 31 32 38 30  2c 32 30 30 0d 0e 1a 2b  |:.5,1280,200...+|
000023b0  ec 36 34 32 2c 39 34 34  3a f0 35 2c 36 34 32 2c  |.642,944:.5,642,|
000023c0  32 30 30 3a ec 36 34 30  2c 39 34 34 3a f0 35 2c  |200:.640,944:.5,|
000023d0  36 34 30 2c 32 30 30 0d  0e 24 2d ec 31 30 31 34  |640,200..$-.1014|
000023e0  2c 39 34 34 3a f0 35 2c  31 30 31 34 2c 32 30 30  |,944:.5,1014,200|
000023f0  3a ec 33 35 36 2c 39 34  34 3a f0 35 2c 33 35 36  |:.356,944:.5,356|
00002400  2c 32 30 30 0d 0e 2e 18  ec 36 34 30 2c 32 37 30  |,200.....640,270|
00002410  3a f0 35 2c 31 32 38 30  2c 32 37 30 0d 0e 38 23  |:.5,1280,270..8#|
00002420  70 61 72 73 6f 66 61 72  25 3d 70 61 72 73 6f 66  |parsofar%=parsof|
00002430  61 72 25 2b 70 61 72 25  28 68 6f 6c 65 25 29 0d  |ar%+par%(hole%).|
00002440  0e 42 2f e3 69 25 3d 31  b8 a9 28 63 6f 75 72 73  |.B/.i%=1..(cours|
00002450  65 24 29 3a 63 24 3d 63  24 2b c1 63 6f 75 72 73  |e$):c$=c$+.cours|
00002460  65 24 2c 69 25 2c 31 29  2b 22 20 22 3a ed 0d 0e  |e$,i%,1)+" ":...|
00002470  4c 17 fb 31 3a f1 27 8a  34 30 2d a9 28 63 24 29  |L..1:.'.40-.(c$)|
00002480  81 32 29 63 24 0d 0e 56  0e e3 69 25 3d 31 b8 6e  |.2)c$..V..i%=1.n|
00002490  6f 50 25 0d 0e 60 3c 20  6e 24 28 69 25 29 3d 22  |oP%..`< n$(i%)="|
000024a0  20 20 20 20 20 20 22 2b  6e 61 6d 65 24 28 69 25  |      "+name$(i%|
000024b0  29 3a 6e 24 28 69 25 29  3d c1 6e 24 28 69 25 29  |):n$(i%)=.n$(i%)|
000024c0  2c a9 28 6e 24 28 69 25  29 29 2d 35 2c 36 29 0d  |,.(n$(i%))-5,6).|
000024d0  0e 6a 05 ed 0d 0e 74 06  fb 34 0d 0e 7e 0b e3 6c  |.j....t..4..~..l|
000024e0  25 3d 31 b8 36 0d 0e 88  0f 20 e3 70 25 3d 31 b8  |%=1.6.... .p%=1.|
000024f0  6e 6f 50 25 0d 0e 92 23  20 20 f1 8a 70 25 2a 34  |noP%...#  ..p%*4|
00002500  2b 32 31 2c 6c 25 2b 32  29 c1 6e 24 28 70 25 29  |+21,l%+2).n$(p%)|
00002510  2c 6c 25 2c 31 29 3b 0d  0e 9c 23 20 20 f1 8a 70  |,l%,1);...#  ..p|
00002520  25 2a 34 2b 36 32 2c 6c  25 2b 32 29 c1 6e 24 28  |%*4+62,l%+2).n$(|
00002530  70 25 29 2c 6c 25 2c 31  29 3b 0d 0e a6 06 20 ed  |p%),l%,1);.... .|
00002540  0d 0e b0 05 ed 0d 0e ba  08 fb 28 32 29 0d 0e c4  |..........(2)...|
00002550  23 f1 8a 31 2c 38 29 20  22 48 6f 6c 65 20 20 59  |#..1,8) "Hole  Y|
00002560  61 72 64 73 20 20 50 61  72 20 53 74 72 2e 22 3b  |ards  Par Str.";|
00002570  0d 0e ce 23 f1 8a 34 32  2c 38 29 22 48 6f 6c 65  |...#..42,8)"Hole|
00002580  20 20 59 61 72 64 73 20  20 50 61 72 20 53 74 72  |  Yards  Par Str|
00002590  2e 22 3b 0d 0e d8 06 fb  33 0d 0e e2 0c e3 68 25  |.";.....3.....h%|
000025a0  3d 31 b8 31 38 0d 0e ec  23 20 68 24 3d 22 20 22  |=1.18...# h$=" "|
000025b0  2b c3 28 68 25 29 3a 68  24 3d c1 68 24 2c a9 28  |+.(h%):h$=.h$,.(|
000025c0  68 24 29 2d 31 2c 32 29  0d 0e f6 2c 20 73 24 3d  |h$)-1,2)..., s$=|
000025d0  22 20 22 2b c3 28 73 74  72 6f 6b 65 25 28 68 25  |" "+.(stroke%(h%|
000025e0  29 29 3a 73 24 3d c1 73  24 2c a9 28 73 24 29 2d  |)):s$=.s$,.(s$)-|
000025f0  31 2c 32 29 0d 0f 00 20  20 e7 68 25 3c 31 30 8c  |1,2)...  .h%<10.|
00002600  ef 33 31 2c 32 2c 68 25  2b 39 8b ef 33 31 2c 34  |.31,2,h%+9..31,4|
00002610  33 2c 68 25 0d 0f 0a 2e  20 f1 68 24 22 20 20 20  |3,h%.... .h$"   |
00002620  20 22 3b 6c 65 6e 25 28  68 25 29 22 20 20 20 20  | ";len%(h%)"    |
00002630  22 3b 70 61 72 25 28 68  25 29 22 20 20 20 22 73  |";par%(h%)"   "s|
00002640  24 3b 0d 0f 14 05 ed 0d  0f 1e 2a f1 8a 31 2c 32  |$;........*..1,2|
00002650  30 29 22 4f 75 74 20 20  20 22 3b 6f 75 74 64 69  |0)"Out   ";outdi|
00002660  73 74 25 22 20 20 20 22  3b 6f 75 74 70 61 72 25  |st%"   ";outpar%|
00002670  3b 0d 0f 28 28 f1 8a 34  33 2c 32 30 29 22 49 6e  |;..((..43,20)"In|
00002680  20 20 20 22 3b 69 6e 64  69 73 74 25 22 20 20 20  |   ";indist%"   |
00002690  22 3b 69 6e 70 61 72 25  3b 0d 0f 32 2b f1 8a 34  |";inpar%;..2+..4|
000026a0  32 2c 32 32 29 22 4f 75  74 20 20 20 22 3b 6f 75  |2,22)"Out   ";ou|
000026b0  74 64 69 73 74 25 22 20  20 20 22 3b 6f 75 74 70  |tdist%"   ";outp|
000026c0  61 72 25 3b 0d 0f 3c 3b  f1 8a 34 31 2c 32 34 29  |ar%;..<;..41,24)|
000026d0  22 54 6f 74 61 6c 20 20  22 3b 6f 75 74 64 69 73  |"Total  ";outdis|
000026e0  74 25 2b 69 6e 64 69 73  74 25 22 20 20 20 22 3b  |t%+indist%"   ";|
000026f0  6f 75 74 70 61 72 25 2b  69 6e 70 61 72 25 3b 0d  |outpar%+inpar%;.|
00002700  0f 46 0e e3 69 25 3d 31  b8 6e 6f 50 25 0d 0f 50  |.F..i%=1.noP%..P|
00002710  33 20 74 6f 74 73 63 6f  72 65 25 28 69 25 29 3d  |3 totscore%(i%)=|
00002720  74 6f 74 73 63 6f 72 65  25 28 69 25 29 2b 73 63  |totscore%(i%)+sc|
00002730  6f 72 65 25 28 69 25 2c  20 20 68 6f 6c 65 25 29  |ore%(i%,  hole%)|
00002740  0d 0f 5a 2a 20 e7 68 6f  6c 65 25 3d 39 8c 6f 75  |..Z* .hole%=9.ou|
00002750  74 73 63 6f 72 65 25 28  69 25 29 3d 74 6f 74 73  |tscore%(i%)=tots|
00002760  63 6f 72 65 25 28 69 25  20 29 0d 0f 64 05 ed 0d  |core%(i% )..d...|
00002770  0f 6e 0f e3 68 25 3d 31  b8 68 6f 6c 65 25 0d 0f  |.n..h%=1.hole%..|
00002780  78 0f 20 e3 70 25 3d 31  b8 6e 6f 50 25 0d 0f 82  |x. .p%=1.noP%...|
00002790  16 20 20 73 25 3d 73 63  6f 72 65 25 28 70 25 2c  |.  s%=score%(p%,|
000027a0  68 25 29 0d 0f 8c 22 20  20 e7 73 25 3e 30 8c 73  |h%)..."  .s%>0.s|
000027b0  24 3d 22 20 20 22 2b c3  28 73 25 29 8b 73 24 3d  |$="  "+.(s%).s$=|
000027c0  22 20 20 20 22 0d 0f 96  17 20 20 73 24 3d c1 73  |"   "....  s$=.s|
000027d0  24 2c a9 28 73 24 29 2d  32 2c 33 29 0d 0f a0 2d  |$,.(s$)-2,3)...-|
000027e0  20 20 e7 68 25 3c 31 30  20 ef 33 31 2c 70 25 2a  |  .h%<10 .31,p%*|
000027f0  34 2b 31 39 2c 68 25 2b  39 20 8b ef 33 31 2c 70  |4+19,h%+9 ..31,p|
00002800  25 2a 34 2b 36 30 2c 68  25 0d 0f aa 26 20 20 e7  |%*4+60,h%...&  .|
00002810  73 25 3e 70 61 72 25 28  68 25 29 fb 35 8b e7 73  |s%>par%(h%).5..s|
00002820  25 3d 70 61 72 25 28 68  25 29 fb 36 8b fb 37 0d  |%=par%(h%).6..7.|
00002830  0f b4 0a 20 20 f1 73 24  3b 0d 0f be 06 20 ed 0d  |...  .s$;.... ..|
00002840  0f c8 05 ed 0d 0f d2 15  e7 28 68 6f 6c 65 25 3e  |.........(hole%>|
00002850  38 29 80 53 48 25 3d 31  8c 0d 0f dc 0f 20 e3 70  |8).SH%=1..... .p|
00002860  25 3d 31 b8 6e 6f 50 25  0d 0f e6 16 20 20 73 25  |%=1.noP%....  s%|
00002870  3d 6f 75 74 73 63 6f 72  65 25 28 70 25 29 0d 0f  |=outscore%(p%)..|
00002880  f0 25 20 20 73 24 3d 22  20 20 22 2b c3 28 73 25  |.%  s$="  "+.(s%|
00002890  29 3a 73 24 3d c1 73 24  2c a9 28 73 24 29 2d 32  |):s$=.s$,.(s$)-2|
000028a0  2c 33 29 0d 0f fa 24 20  20 e7 73 25 3e 6f 75 74  |,3)...$  .s%>out|
000028b0  70 61 72 25 fb 35 8b e7  73 25 3d 6f 75 74 70 61  |par%.5..s%=outpa|
000028c0  72 25 fb 36 8b fb 37 0d  10 04 2d 20 20 ef 33 31  |r%.6..7...-  .31|
000028d0  2c 70 25 2a 34 2b 32 30  2c 32 30 3a f1 73 24 3b  |,p%*4+20,20:.s$;|
000028e0  3a ef 33 31 2c 70 25 2a  34 2b 36 30 2c 32 32 3a  |:.31,p%*4+60,22:|
000028f0  f1 73 24 3b 0d 10 0e 06  20 ed 0d 10 18 05 cd 0d  |.s$;.... .......|
00002900  10 22 16 e7 28 68 6f 6c  65 25 3d 31 38 29 80 53  |."..(hole%=18).S|
00002910  48 25 3d 31 8c 0d 10 2c  0f 20 e3 70 25 3d 31 b8  |H%=1...,. .p%=1.|
00002920  6e 6f 50 25 0d 10 36 44  20 20 73 25 3d 74 6f 74  |noP%..6D  s%=tot|
00002930  73 63 6f 72 65 25 28 70  25 29 2d 6f 75 74 73 63  |score%(p%)-outsc|
00002940  6f 72 65 25 28 70 25 29  3a 73 24 3d 22 20 20 22  |ore%(p%):s$="  "|
00002950  2b c3 28 73 25 29 3a 73  24 3d c1 73 24 2c a9 28  |+.(s%):s$=.s$,.(|
00002960  73 24 29 2d 32 2c 33 29  0d 10 40 22 20 20 e7 73  |s$)-2,3)..@"  .s|
00002970  25 3e 69 6e 70 61 72 25  fb 35 8b e7 73 25 3d 69  |%>inpar%.5..s%=i|
00002980  6e 70 61 72 25 fb 36 8b  fb 37 0d 10 4a 19 20 20  |npar%.6..7..J.  |
00002990  ef 33 31 2c 70 25 2a 34  2b 36 30 2c 32 30 3a f1  |.31,p%*4+60,20:.|
000029a0  73 24 3b 0d 10 54 06 20  ed 0d 10 5e 05 cd 0d 10  |s$;..T. ...^....|
000029b0  68 0e e3 70 25 3d 31 b8  6e 6f 50 25 0d 10 72 15  |h..p%=1.noP%..r.|
000029c0  20 73 25 3d 74 6f 74 73  63 6f 72 65 25 28 70 25  | s%=totscore%(p%|
000029d0  29 0d 10 7c 28 20 e7 73  25 3e 70 61 72 73 6f 66  |)..|( .s%>parsof|
000029e0  61 72 25 fb 35 8b e7 73  25 3d 70 61 72 73 6f 66  |ar%.5..s%=parsof|
000029f0  61 72 25 20 fb 36 8b fb  37 0d 10 86 17 20 e7 28  |ar% .6..7.... .(|
00002a00  68 6f 6c 65 25 3d 31 38  29 80 53 48 25 3d 31 8c  |hole%=18).SH%=1.|
00002a10  0d 10 90 14 20 20 73 24  3d 22 20 20 20 22 2b c3  |....  s$="   "+.|
00002a20  28 73 25 29 0d 10 9a 06  20 cc 0d 10 a4 15 20 20  |(s%).... .....  |
00002a30  73 25 3d 73 25 2d 70 61  72 73 6f 66 61 72 25 0d  |s%=s%-parsofar%.|
00002a40  10 ae 3f 20 20 e7 73 25  3d 30 73 24 3d 22 20 20  |..?  .s%=0s$="  |
00002a50  20 45 22 8b e7 73 25 3c  30 73 24 3d 22 20 20 2d  | E"..s%<0s$="  -|
00002a60  22 2b c3 28 94 28 73 25  29 29 8b 73 24 3d 22 20  |"+.(.(s%)).s$=" |
00002a70  20 2b 22 2b c3 28 94 28  73 25 29 20 20 29 0d 10  | +"+.(.(s%)  )..|
00002a80  b8 06 20 cd 0d 10 c2 2a  20 73 24 3d c1 73 24 2c  |.. ....* s$=.s$,|
00002a90  a9 28 73 24 29 2d 32 2c  33 29 3a ef 33 31 2c 70  |.(s$)-2,3):.31,p|
00002aa0  25 2a 34 2b 36 30 2c 32  34 3a f1 73 24 3b 0d 10  |%*4+60,24:.s$;..|
00002ab0  cc 05 ed 0d 10 d6 06 fb  39 0d 10 e0 7c e7 68 6f  |........9...|.ho|
00002ac0  6c 65 25 3c 31 38 8c f1  8a 31 32 2c 32 39 29 22  |le%<18...12,29)"|
00002ad0  43 6c 69 63 6b 20 41 4e  59 20 6d 6f 75 73 65 20  |Click ANY mouse |
00002ae0  6b 65 79 20 74 6f 20 63  6f 6e 74 69 6e 75 65 2c  |key to continue,|
00002af0  20 20 41 4c 4c 20 6d 6f  75 73 65 20 6b 65 79 73  |  ALL mouse keys|
00002b00  20 74 6f 20 71 75 69 74  22 20 8b f1 8a 32 34 2c  | to quit" ...24,|
00002b10  32 39 29 22 50 72 65 73  73 20 41 4c 4c 20 6d 6f  |29)"Press ALL mo|
00002b20  75 73 65 20 6b 65 79 73  20 74 6f 20 63 6f 6e 74  |use keys to cont|
00002b30  69 6e 75 65 22 0d 10 ea  1d 67 6f 6f 6e 25 3d b9  |inue"....goon%=.|
00002b40  3a e7 68 6f 6c 65 25 3d  31 38 8c 67 6f 6f 6e 25  |:.hole%=18.goon%|
00002b50  3d a3 0d 10 f4 0a f2 77  74 28 35 29 0d 10 fe 05  |=......wt(5)....|
00002b60  e1 0d 11 08 05 20 0d 11  12 05 20 0d 11 1c 0c dd  |..... .... .....|
00002b70  f2 69 6e 69 72 6e 64 0d  11 26 0d ea 69 25 2c 6a  |.inirnd..&..i%,j|
00002b80  25 2c 73 24 0d 11 30 10  e8 23 5a 25 2c 63 6f 75  |%,s$..0..#Z%,cou|
00002b90  72 73 65 24 0d 11 3a 0f  e8 23 5a 25 2c 4c 49 4e  |rse$..:..#Z%,LIN|
00002ba0  4b 53 25 0d 11 44 1c e8  23 5a 25 2c 66 63 31 25  |KS%..D..#Z%,fc1%|
00002bb0  2c 66 74 31 25 2c 66 63  32 25 2c 66 74 32 25 0d  |,ft1%,fc2%,ft2%.|
00002bc0  11 4e 12 e8 23 5a 25 2c  46 43 31 25 2c 46 43 32  |.N..#Z%,FC1%,FC2|
00002bd0  25 0d 11 58 15 e8 23 5a  25 2c 42 64 65 70 74 68  |%..X..#Z%,Bdepth|
00002be0  2c 42 63 6f 6c 25 0d 11  62 10 e8 23 5a 25 2c 47  |,Bcol%..b..#Z%,G|
00002bf0  73 70 65 65 64 25 0d 11  6c 0f e8 23 5a 25 2c 72  |speed%..l..#Z%,r|
00002c00  6f 75 67 68 25 0d 11 76  10 e8 23 5a 25 2c 61 76  |ough%..v..#Z%,av|
00002c10  77 69 6e 64 25 0d 11 80  16 77 69 6e 64 61 6e 67  |wind%....windang|
00002c20  3d b3 28 31 29 2a 50 49  33 36 30 0d 11 8a 1b 77  |=.(1)*PI360....w|
00002c30  69 6e 64 25 3d b3 28 31  29 2a 28 31 38 2b 61 76  |ind%=.(1)*(18+av|
00002c40  77 69 6e 64 25 29 0d 11  94 28 e8 23 5a 25 2c 6f  |wind%)...(.#Z%,o|
00002c50  75 74 70 61 72 25 2c 69  6e 70 61 72 25 2c 6f 75  |utpar%,inpar%,ou|
00002c60  74 64 69 73 74 25 2c 69  6e 64 69 73 74 25 0d 11  |tdist%,indist%..|
00002c70  9e 18 f5 e8 23 5a 25 2c  73 24 3a fd c2 73 24 2c  |....#Z%,s$:..s$,|
00002c80  31 29 3d 22 40 22 0d 11  a8 0c e3 69 25 3d 31 b8  |1)="@".....i%=1.|
00002c90  31 38 0d 11 b2 27 20 e8  23 5a 25 2c 6c 65 6e 25  |18...' .#Z%,len%|
00002ca0  28 69 25 29 2c 70 61 72  25 28 69 25 29 2c 73 74  |(i%),par%(i%),st|
00002cb0  72 6f 6b 65 25 28 69 25  29 0d 11 bc 05 ed 0d 11  |roke%(i%).......|
00002cc0  c6 1e e3 69 25 3d 31 b8  34 3a 4f 4c 48 25 28 69  |...i%=1.4:OLH%(i|
00002cd0  25 29 3d 4c 48 25 28 69  25 29 3a ed 0d 11 d0 0e  |%)=LH%(i%):.....|
00002ce0  f2 70 6c 61 79 65 72 73  69 6e 0d 11 da 0b e3 69  |.playersin.....i|
00002cf0  25 3d 31 b8 34 0d 11 e4  15 20 74 65 65 6f 72 64  |%=1.4.... teeord|
00002d00  65 72 25 28 69 25 29 3d  69 25 0d 11 ee 24 20 74  |er%(i%)=i%...$ t|
00002d10  6f 74 73 63 6f 72 65 25  28 69 25 29 3d 30 3a 6f  |otscore%(i%)=0:o|
00002d20  75 74 73 63 6f 72 65 25  28 69 25 29 3d 30 0d 11  |utscore%(i%)=0..|
00002d30  f8 1f 20 e3 6a 25 3d 31  b8 31 38 3a 73 63 6f 72  |.. .j%=1.18:scor|
00002d40  65 25 28 69 25 2c 6a 25  29 3d 30 3a ed 0d 12 02  |e%(i%,j%)=0:....|
00002d50  05 ed 0d 12 0c 0f 70 61  72 73 6f 66 61 72 25 3d  |......parsofar%=|
00002d60  30 0d 12 16 05 e1 0d 12  20 05 20 0d 12 2a 05 20  |0....... . ..*. |
00002d70  0d 12 34 0b f4 2a 2a 2a  2a 2a 2a 0d 12 3e 05 20  |..4..******..>. |
00002d80  0d 12 48 0a dd f2 69 6e  69 74 0d 12 52 0c ea 69  |..H...init..R..i|
00002d90  25 2c 6c 65 6e 25 0d 12  5c 1b de 53 50 25 20 26  |%,len%..\..SP% &|
00002da0  35 36 39 30 30 3a 21 53  50 25 3d 26 35 36 39 30  |56900:!SP%=&5690|
00002db0  30 0d 12 66 36 c8 99 20  22 4f 53 5f 46 69 6c 65  |0..f6.. "OS_File|
00002dc0  22 2c 35 2c 22 3c 4d 69  63 72 6f 24 44 69 72 3e  |",5,"<Micro$Dir>|
00002dd0  2e 43 6f 6d 70 72 65 73  73 22 20 b8 20 69 25 2c  |.Compress" . i%,|
00002de0  2c 2c 2c 6c 65 6e 25 0d  12 70 2a e7 20 69 25 20  |,,,len%..p*. i% |
00002df0  3c 3e 31 20 8c 20 85 20  31 2c 22 43 6f 6d 70 72  |<>1 . . 1,"Compr|
00002e00  65 73 73 20 46 69 6c 65  20 4d 69 73 73 69 6e 67  |ess File Missing|
00002e10  22 0d 12 7a 1a 69 25 3d  53 50 25 2b 26 35 36 39  |"..z.i%=SP%+&569|
00002e20  30 30 2d 6c 65 6e 25 2d  26 34 30 0d 12 84 28 ff  |00-len%-&40...(.|
00002e30  28 22 4c 4f 41 44 20 3c  4d 69 63 72 6f 24 44 69  |("LOAD <Micro$Di|
00002e40  72 3e 2e 43 6f 6d 70 72  65 73 73 20 22 2b c3 7e  |r>.Compress "+.~|
00002e50  69 25 29 0d 12 8e 14 e3  20 70 61 73 73 3d 30 20  |i%)..... pass=0 |
00002e60  b8 20 32 20 88 20 32 0d  12 98 0e 50 25 3d 69 25  |. 2 . 2....P%=i%|
00002e70  2b 6c 65 6e 25 0d 12 a2  0d 5b 4f 50 54 20 70 61  |+len%....[OPT pa|
00002e80  73 73 0d 12 ac 09 2e 63  6f 64 65 0d 12 b6 0d 41  |ss.....code....A|
00002e90  44 52 20 52 30 2c 74 6f  0d 12 c0 12 4c 44 52 20  |DR R0,to....LDR |
00002ea0  52 32 2c 5b 52 30 5d 2c  23 34 0d 12 ca 12 4c 44  |R2,[R0],#4....LD|
00002eb0  52 20 52 33 2c 5b 52 30  5d 2c 23 34 0d 12 d4 12  |R R3,[R0],#4....|
00002ec0  4c 44 52 20 52 34 2c 5b  52 30 5d 2c 23 30 0d 12  |LDR R4,[R0],#0..|
00002ed0  de 0b 2e 75 6e 70 61 63  6b 0d 12 e8 13 4c 44 52  |...unpack....LDR|
00002ee0  42 20 52 30 2c 5b 52 33  5d 2c 23 31 0d 12 f2 13  |B R0,[R3],#1....|
00002ef0  4c 44 52 42 20 52 31 2c  5b 52 33 5d 2c 23 31 0d  |LDRB R1,[R3],#1.|
00002f00  12 fc 09 2e 6c 6f 6f 70  0d 13 06 13 53 54 52 42  |....loop....STRB|
00002f10  20 52 30 2c 5b 52 32 5d  2c 23 31 0d 13 10 11 53  | R0,[R2],#1....S|
00002f20  55 42 53 20 52 31 2c 52  31 2c 23 31 0d 13 1a 0c  |UBS R1,R1,#1....|
00002f30  42 4e 45 20 6c 6f 6f 70  0d 13 24 0d 43 4d 50 20  |BNE loop..$.CMP |
00002f40  52 33 2c 52 34 0d 13 2e  0e 42 4e 45 20 75 6e 70  |R3,R4....BNE unp|
00002f50  61 63 6b 0d 13 38 1f 4d  4f 56 20 50 43 2c 52 31  |ack..8.MOV PC,R1|
00002f60  34 20 20 20 20 20 20 20  20 20 20 3b 72 65 74 75  |4          ;retu|
00002f70  72 6e 0d 13 42 07 2e 74  6f 0d 13 4c 0c 45 51 55  |rn..B..to..L.EQU|
00002f80  44 20 53 50 25 0d 13 56  09 2e 66 72 6f 6d 0d 13  |D SP%..V..from..|
00002f90  60 0b 45 51 55 44 20 69  25 0d 13 6a 0b 2e 66 69  |`.EQUD i%..j..fi|
00002fa0  6e 69 73 68 0d 13 74 0d  45 51 55 44 20 63 6f 64  |nish..t.EQUD cod|
00002fb0  65 0d 13 7e 05 5d 0d 13  88 05 ed 0d 13 92 0a d6  |e..~.]..........|
00002fc0  20 63 6f 64 65 0d 13 9c  28 43 43 25 3d 31 3a 50  | code...(CC%=1:P|
00002fd0  49 39 30 3d af 2f 32 3a  50 49 32 37 30 3d 33 2a  |I90=./2:PI270=3*|
00002fe0  af 2f 32 3a 50 49 33 36  30 3d 32 2a af 0d 13 a6  |./2:PI360=2*....|
00002ff0  0f de 20 53 43 41 4c 45  25 20 31 36 0d 13 b0 19  |.. SCALE% 16....|
00003000  53 25 3d b3 28 2d 91 2a  bb 28 c1 91 24 2c 32 33  |S%=.(-.*.(..$,23|
00003010  2c 32 29 29 29 0d 13 ba  20 de 58 25 28 32 31 29  |,2)))... .X%(21)|
00003020  2c 59 25 28 32 31 29 2c  43 25 28 32 31 29 2c 48  |,Y%(21),C%(21),H|
00003030  25 28 32 31 29 0d 13 c4  30 de 47 48 25 28 35 29  |%(21)...0.GH%(5)|
00003040  2c 47 58 25 28 35 29 2c  47 59 25 28 35 29 2c 47  |,GX%(5),GY%(5),G|
00003050  52 58 25 28 35 29 2c 47  52 59 25 28 35 29 2c 65  |RX%(5),GRY%(5),e|
00003060  78 70 28 35 29 0d 13 ce  2c de 47 4e 43 25 28 34  |xp(5)...,.GNC%(4|
00003070  30 29 2c 47 4e 4f 25 28  34 30 29 2c 47 4e 58 25  |0),GNO%(40),GNX%|
00003080  28 34 30 2c 37 29 2c 47  4e 59 25 28 34 30 2c 37  |(40,7),GNY%(40,7|
00003090  29 0d 13 d8 0c de 43 46  24 28 32 30 29 0d 13 e2  |).....CF$(20)...|
000030a0  23 de 54 24 28 32 34 29  2c 54 57 25 28 32 34 29  |#.T$(24),TW%(24)|
000030b0  2c 54 48 25 28 32 34 29  2c 54 4c 25 28 32 34 29  |,TH%(24),TL%(24)|
000030c0  0d 13 ec 24 de 54 45 58  25 28 36 29 2c 54 45 59  |...$.TEX%(6),TEY|
000030d0  25 28 36 29 2c 54 45 58  32 28 36 29 2c 54 45 59  |%(6),TEX2(6),TEY|
000030e0  32 28 36 29 0d 13 f6 16  de 4f 42 58 25 28 32 35  |2(6).....OBX%(25|
000030f0  29 2c 4f 42 59 25 28 32  35 29 0d 14 00 1c de 53  |),OBY%(25).....S|
00003100  42 58 31 28 33 29 2c 53  42 59 31 28 33 29 2c 53  |BX1(3),SBY1(3),S|
00003110  42 50 25 28 33 29 0d 14  0a 33 de 42 63 6f 25 28  |BP%(3)...3.Bco%(|
00003120  31 32 29 2c 42 78 25 28  31 32 2c 32 38 29 2c 42  |12),Bx%(12,28),B|
00003130  79 25 28 31 32 2c 32 38  29 2c 42 78 32 28 32 38  |y%(12,28),Bx2(28|
00003140  29 2c 42 79 32 28 32 38  29 0d 14 14 23 de 57 63  |),By2(28)...#.Wc|
00003150  6f 25 28 33 30 29 2c 57  78 25 28 33 30 2c 31 32  |o%(30),Wx%(30,12|
00003160  29 2c 57 79 25 28 33 30  2c 31 32 29 0d 14 1e 50  |),Wy%(30,12)...P|
00003170  de 74 72 65 65 78 25 28  31 30 30 29 2c 74 72 65  |.treex%(100),tre|
00003180  65 79 25 28 31 30 30 29  2c 74 72 65 65 74 79 70  |ey%(100),treetyp|
00003190  25 28 31 30 30 29 2c 4f  74 79 70 25 28 31 36 30  |%(100),Otyp%(160|
000031a0  29 2c 4f 58 31 28 31 36  30 29 2c 4f 59 31 28 31  |),OX1(160),OY1(1|
000031b0  36 30 29 2c 53 4f 25 28  31 36 30 29 0d 14 28 28  |60),SO%(160)..((|
000031c0  de 48 4e 58 25 28 34 35  29 2c 48 4e 59 25 28 34  |.HNX%(45),HNY%(4|
000031d0  35 29 2c 43 48 58 25 28  34 35 29 2c 43 48 59 25  |5),CHX%(45),CHY%|
000031e0  28 34 35 29 0d 14 32 54  de 6c 65 6e 25 28 31 38  |(45)..2T.len%(18|
000031f0  29 2c 70 61 72 25 28 31  38 29 2c 73 74 72 6f 6b  |),par%(18),strok|
00003200  65 25 28 31 38 29 2c 63  6c 75 62 76 65 6c 78 28  |e%(18),clubvelx(|
00003210  31 33 29 2c 63 6c 75 62  76 65 6c 7a 28 31 33 29  |13),clubvelz(13)|
00003220  2c 63 6c 75 62 64 69 73  74 25 28 31 33 29 2c 63  |,clubdist%(13),c|
00003230  6c 75 62 24 28 31 34 29  0d 14 3c 7c de 73 63 6f  |lub$(14)..<|.sco|
00003240  72 65 25 28 34 2c 31 38  29 2c 74 6f 74 73 63 6f  |re%(4,18),totsco|
00003250  72 65 25 28 34 29 2c 6f  75 74 73 63 6f 72 65 25  |re%(4),outscore%|
00003260  28 34 29 2c 6e 61 6d 65  24 28 34 29 2c 74 65 65  |(4),name$(4),tee|
00003270  6f 72 64 65 72 25 28 34  29 2c 62 61 6c 6c 78 28  |order%(4),ballx(|
00003280  34 29 2c 62 61 6c 6c 79  28 34 29 2c 62 68 64 62  |4),bally(4),bhdb|
00003290  6c 25 28 34 29 2c 68 6f  6c 65 64 25 28 34 29 2c  |l%(4),holed%(4),|
000032a0  4f 4c 48 25 28 34 29 2c  4c 48 25 28 34 29 2c 53  |OLH%(4),LH%(4),S|
000032b0  4b 28 34 29 0d 14 46 16  de 42 52 58 25 28 32 30  |K(4)..F..BRX%(20|
000032c0  29 2c 42 52 59 25 28 32  30 29 0d 14 50 0c e3 69  |),BRY%(20)..P..i|
000032d0  25 3d 31 b8 31 33 0d 14  5a 37 20 f3 63 6c 75 62  |%=1.13..Z7 .club|
000032e0  76 65 6c 78 28 69 25 29  2c 63 6c 75 62 76 65 6c  |velx(i%),clubvel|
000032f0  7a 28 69 25 29 2c 63 6c  75 62 64 69 73 74 25 28  |z(i%),clubdist%(|
00003300  69 25 29 2c 63 6c 75 62  24 28 69 25 29 0d 14 64  |i%),club$(i%)..d|
00003310  05 ed 0d 14 6e 16 63 6c  75 62 24 28 31 34 29 3d  |....n.club$(14)=|
00003320  22 50 75 74 74 65 72 22  0d 14 78 18 e3 69 25 3d  |"Putter"..x..i%=|
00003330  30 b8 34 35 3a f3 48 4e  58 25 28 69 25 29 3a ed  |0.45:.HNX%(i%):.|
00003340  0d 14 82 18 e3 69 25 3d  30 b8 34 35 3a f3 48 4e  |.....i%=0.45:.HN|
00003350  59 25 28 69 25 29 3a ed  0d 14 8c 18 e3 69 25 3d  |Y%(i%):......i%=|
00003360  30 b8 34 35 3a f3 43 48  58 25 28 69 25 29 3a ed  |0.45:.CHX%(i%):.|
00003370  0d 14 96 18 e3 69 25 3d  30 b8 34 35 3a f3 43 48  |.....i%=0.45:.CH|
00003380  59 25 28 69 25 29 3a ed  0d 14 a0 0b 54 53 43 3d  |Y%(i%):.....TSC=|
00003390  31 2e 34 0d 14 aa 0c e3  69 25 3d 31 b8 32 34 0d  |1.4.....i%=1.24.|
000033a0  14 b4 24 20 f3 54 24 28  69 25 29 2c 54 57 25 28  |..$ .T$(i%),TW%(|
000033b0  69 25 29 2c 54 48 25 28  69 25 29 2c 54 4c 25 28  |i%),TH%(i%),TL%(|
000033c0  69 25 29 0d 14 be 18 20  54 57 25 28 69 25 29 3d  |i%).... TW%(i%)=|
000033d0  54 57 25 28 69 25 29 2a  54 53 43 0d 14 c8 18 20  |TW%(i%)*TSC.... |
000033e0  54 48 25 28 69 25 29 3d  54 48 25 28 69 25 29 2a  |TH%(i%)=TH%(i%)*|
000033f0  54 53 43 0d 14 d2 18 20  54 4c 25 28 69 25 29 3d  |TSC.... TL%(i%)=|
00003400  54 4c 25 28 69 25 29 2a  54 53 43 0d 14 dc 05 ed  |TL%(i%)*TSC.....|
00003410  0d 14 e6 0a 6e 6f 50 25  3d 31 0d 14 f0 2b e3 69  |....noP%=1...+.i|
00003420  25 3d 31 b8 34 3a 4f 4c  48 25 28 69 25 29 3d a3  |%=1.4:OLH%(i%)=.|
00003430  3a 4c 48 25 28 69 25 29  3d a3 3a 53 4b 28 69 25  |:LH%(i%)=.:SK(i%|
00003440  29 3d 31 3a ed 0d 14 fa  05 e1 0d 15 04 05 20 0d  |)=1:.......... .|
00003450  15 0e 05 20 0d 15 18 11  dd f2 77 68 69 63 68 63  |... ......whichc|
00003460  6f 75 72 73 65 0d 15 22  07 ea 61 25 0d 15 2c 28  |ourse.."..a%..,(|
00003470  2a 45 4e 55 4d 44 49 52  20 3c 4d 69 63 72 6f 24  |*ENUMDIR <Micro$|
00003480  44 69 72 3e 2e 43 44 41  54 41 20 52 41 4d 3a 43  |Dir>.CDATA RAM:C|
00003490  4c 49 53 54 0d 15 36 0c  43 46 24 28 29 3d 22 22  |LIST..6.CF$()=""|
000034a0  0d 15 40 15 59 25 3d 8e  28 22 52 41 4d 3a 43 4c  |..@.Y%=.("RAM:CL|
000034b0  49 53 54 22 29 0d 15 4a  09 4e 43 25 3d 30 0d 15  |IST")..J.NC%=0..|
000034c0  54 05 f5 0d 15 5e 0c 20  61 25 3d 9a 23 59 25 0d  |T....^. a%=.#Y%.|
000034d0  15 68 0e 20 4e 43 25 3d  4e 43 25 2b 31 0d 15 72  |.h. NC%=NC%+1..r|
000034e0  06 20 f5 0d 15 7c 1d 20  20 43 46 24 28 4e 43 25  |. ...|.  CF$(NC%|
000034f0  29 3d 43 46 24 28 4e 43  25 29 2b bd 28 61 25 29  |)=CF$(NC%)+.(a%)|
00003500  0d 15 86 0d 20 20 61 25  3d 9a 23 59 25 0d 15 90  |....  a%=.#Y%...|
00003510  12 20 fd 28 61 25 3d 31  30 29 84 c5 23 59 25 0d  |. .(a%=10)..#Y%.|
00003520  15 9a 09 fd c5 23 59 25  0d 15 a4 12 ff 28 22 52  |.....#Y%.....("R|
00003530  41 4d 3a 43 4c 4f 53 45  22 29 0d 15 ae 0a f2 63  |AM:CLOSE").....c|
00003540  6d 65 6e 75 0d 15 b8 0d  e7 ac 49 25 8c 8d 64 7e  |menu......I%..d~|
00003550  55 0d 15 c2 06 ea 85 0d  15 cc 63 ee 85 ea 20 eb  |U.........c... .|
00003560  31 35 3a f1 22 49 4e 56  41 4c 49 44 20 43 4f 55  |15:."INVALID COU|
00003570  52 53 45 20 44 49 53 4b  20 2d 20 4c 6f 61 64 20  |RSE DISK - Load |
00003580  63 6f 72 72 65 63 74 20  64 69 73 6b 20 69 6e 20  |correct disk in |
00003590  44 52 49 56 45 20 30 20  61 6e 64 20 70 72 65 73  |DRIVE 0 and pres|
000035a0  73 20 53 50 41 43 45 42  41 52 22 3a f5 fd a6 28  |s SPACEBAR":...(|
000035b0  2d 39 39 29 3a e5 8d 64  56 55 0d 15 d6 22 2a 53  |-99):..dVU..."*S|
000035c0  45 54 20 4d 69 63 72 6f  24 44 69 72 20 3a 30 2e  |ET Micro$Dir :0.|
000035d0  24 2e 21 4d 69 63 72 6f  5f 44 72 76 0d 15 e0 28  |$.!Micro_Drv...(|
000035e0  2a 45 4e 55 4d 44 49 52  20 3c 4d 69 63 72 6f 24  |*ENUMDIR <Micro$|
000035f0  44 69 72 3e 2e 43 44 41  54 41 20 52 41 4d 3a 43  |Dir>.CDATA RAM:C|
00003600  4c 49 53 54 0d 15 ea 07  f7 20 85 0d 15 f4 09 e5  |LIST..... ......|
00003610  8d 54 76 55 0d 15 fe 40  ff 28 22 43 4f 50 59 20  |.TvU...@.("COPY |
00003620  3c 4d 69 63 72 6f 24 44  69 72 3e 2e 43 44 41 54  |<Micro$Dir>.CDAT|
00003630  41 2e 22 2b 63 73 70 72  69 74 65 24 2b 22 20 52  |A."+csprite$+" R|
00003640  41 4d 3a 24 2e 43 4f 55  52 53 45 20 46 20 7e 43  |AM:$.COURSE F ~C|
00003650  7e 56 22 29 0d 16 08 05  e1 0d 16 12 05 20 0d 16  |~V")......... ..|
00003660  1c 05 20 0d 16 26 13 dd  f2 63 73 63 65 6e 61 72  |.. ..&...cscenar|
00003670  69 6f 28 63 25 29 0d 16  30 24 ea 61 24 2c 77 24  |io(c%)..0$.a$,w$|
00003680  2c 6c 25 2c 69 25 2c 69  2c 64 25 2c 70 25 2c 63  |,l%,i%,i,d%,p%,c|
00003690  24 2c 78 25 2c 79 25 2c  62 25 0d 16 3a 15 f5 c8  |$,x%,y%,b%..:...|
000036a0  97 78 25 2c 79 25 2c 62  25 3a fd 62 25 3d 30 0d  |.x%,y%,b%:.b%=0.|
000036b0  16 44 26 5a 25 3d 8e 28  22 3c 4d 69 63 72 6f 24  |.D&Z%=.("<Micro$|
000036c0  44 69 72 3e 2e 43 44 41  54 41 2e 22 2b 43 46 24  |Dir>.CDATA."+CF$|
000036d0  28 63 25 29 29 0d 16 4e  0b e8 23 5a 25 2c 63 24  |(c%))..N..#Z%,c$|
000036e0  0d 16 58 15 e3 69 25 3d  31 b8 31 32 3a e8 23 5a  |..X..i%=1.12:.#Z|
000036f0  25 2c 69 3a ed 0d 16 62  1a e8 23 5a 25 2c 70 25  |%,i:...b..#Z%,p%|
00003700  3a e8 23 5a 25 2c 69 3a  70 25 3d 70 25 2b 69 0d  |:.#Z%,i:p%=p%+i.|
00003710  16 6c 1a e8 23 5a 25 2c  64 25 3a e8 23 5a 25 2c  |.l..#Z%,d%:.#Z%,|
00003720  69 3a 64 25 3d 64 25 2b  69 0d 16 76 12 e6 30 2c  |i:d%=d%+i..v..0,|
00003730  34 30 c8 9c 36 34 3a c8  97 20 87 0d 16 80 15 c8  |40..64:.. ......|
00003740  93 c8 90 30 2c 30 2c 31  32 38 30 2c 31 31 30 30  |...0,0,1280,1100|
00003750  0d 16 8a 29 ff 28 22 53  4c 4f 41 44 20 3c 4d 69  |...).("SLOAD <Mi|
00003760  63 72 6f 24 44 69 72 3e  2e 43 4c 4f 41 44 2e 22  |cro$Dir>.CLOAD."|
00003770  2b 43 46 24 28 63 25 29  29 0d 16 94 11 2a 53 43  |+CF$(c%))....*SC|
00003780  48 4f 4f 53 45 20 4d 45  4e 55 0d 16 9e 08 e6 38  |HOOSE MENU.....8|
00003790  2c 30 0d 16 a8 10 f0 26  45 44 2c 34 36 30 2c 36  |,0.....&ED,460,6|
000037a0  32 30 0d 16 b2 0c e6 30  2c 31 38 c8 9c 30 0d 16  |20.....0,18..0..|
000037b0  bc 23 ec 34 38 30 2c 39  38 30 3a f1 3b 64 25 22  |.#.480,980:.;d%"|
000037c0  20 59 61 72 64 73 20 20  20 50 61 72 20 22 3b 70  | Yards   Par ";p|
000037d0  25 0d 16 c6 19 78 25 3d  38 30 3a 79 25 3d 35 38  |%....x%=80:y%=58|
000037e0  30 3a e6 30 2c 34 38 c8  9c 30 0d 16 d0 05 f5 0d  |0:.0,48..0......|
000037f0  16 da 12 20 e8 23 5a 25  2c 73 24 3a 77 24 3d 22  |... .#Z%,s$:w$="|
00003800  22 0d 16 e4 10 20 e3 69  25 3d 31 b8 a9 28 73 24  |".... .i%=1..(s$|
00003810  29 0d 16 ee 20 20 20 61  24 3d c1 73 24 2c 69 25  |)...   a$=.s$,i%|
00003820  2c 31 29 3a e7 61 24 3d  22 23 22 61 24 3d 22 2c  |,1):.a$="#"a$=",|
00003830  22 0d 16 f8 21 20 20 e7  28 61 24 3c 3e 22 20 22  |"...!  .(a$<>" "|
00003840  29 80 61 24 3c 3e 22 40  22 8c 77 24 3d 77 24 2b  |).a$<>"@".w$=w$+|
00003850  61 24 0d 17 02 19 20 20  e7 28 69 25 3d a9 28 73  |a$....  .(i%=.(s|
00003860  24 29 29 84 61 24 3d 22  20 22 8c 0d 17 0c 15 20  |$)).a$=" "..... |
00003870  20 20 6c 25 3d a9 28 77  24 29 2a 31 36 2b 31 36  |  l%=.(w$)*16+16|
00003880  0d 17 16 21 20 20 20 e7  78 25 2b 6c 25 3e 31 32  |...!   .x%+l%>12|
00003890  30 30 8c 78 25 3d 38 30  3a 79 25 3d 79 25 2d 33  |00.x%=80:y%=y%-3|
000038a0  36 0d 17 20 1c 20 20 20  ec 78 25 2c 79 25 3a f1  |6.. .   .x%,y%:.|
000038b0  3b 77 24 3b 3a 78 25 3d  78 25 2b 6c 25 0d 17 2a  |;w$;:x%=x%+l%..*|
000038c0  0c 20 20 20 77 24 3d 22  22 0d 17 34 07 20 20 cd  |.   w$=""..4.  .|
000038d0  0d 17 3e 06 20 ed 0d 17  48 0f fd c2 73 24 2c 31  |..>. ...H...s$,1|
000038e0  29 3d 22 40 22 0d 17 52  08 d9 23 5a 25 0d 17 5c  |)="@"..R..#Z%..\|
000038f0  16 f5 c8 97 78 25 2c 79  25 2c 62 25 3a fd 62 25  |....x%,y%,b%:.b%|
00003900  3c 3e 30 0d 17 66 05 e1  0d 17 70 05 20 0d 17 7a  |<>0..f....p. ..z|
00003910  05 20 0d 17 84 0d dd f2  70 6c 70 72 69 6e 74 0d  |. ......plprint.|
00003920  17 8e 0a ea 73 24 2c 69  25 0d 17 98 0d fb 31 35  |....s$,i%.....15|
00003930  33 c8 9c 31 32 38 0d 17  a2 24 73 24 3d 22 20 20  |3..128...$s$="  |
00003940  22 2b c3 28 53 48 25 29  3a 73 24 3d c1 73 24 2c  |"+.(SH%):s$=.s$,|
00003950  a9 28 73 24 29 2d 31 2c  32 29 0d 17 ac 0f f1 8a  |.(s$)-1,2)......|
00003960  33 32 2c 32 32 29 73 24  3b 0d 17 b6 13 f1 8a 33  |32,22)s$;......3|
00003970  32 2c 34 29 c3 28 6e 6f  50 25 29 3b 0d 17 c0 0d  |2,4).(noP%);....|
00003980  fb 31 39 31 c8 9c 31 39  32 0d 17 ca 0e e3 69 25  |.191..192.....i%|
00003990  3d 31 b8 6e 6f 50 25 0d  17 d4 1e 20 73 24 3d c0  |=1.noP%.... s$=.|
000039a0  6e 61 6d 65 24 28 69 25  29 2b 22 20 20 20 20 20  |name$(i%)+"     |
000039b0  20 22 2c 36 29 0d 17 de  14 20 f1 8a 31 35 2c 37  | ",6).... ..15,7|
000039c0  2b 69 25 2a 33 29 73 24  3b 0d 17 e8 30 20 e7 4c  |+i%*3)s$;...0 .L|
000039d0  48 25 28 69 25 29 73 24  3d 22 4c 65 66 74 2d 68  |H%(i%)s$="Left-h|
000039e0  61 6e 64 65 64 20 22 8b  73 24 3d 22 52 69 67 68  |anded ".s$="Righ|
000039f0  74 2d 68 61 6e 64 65 64  22 0d 17 f2 14 20 f1 8a  |t-handed".... ..|
00003a00  32 33 2c 37 2b 69 25 2a  33 29 73 24 3b 0d 17 fc  |23,7+i%*3)s$;...|
00003a10  3c 20 e7 53 4b 28 69 25  29 3d 31 73 24 3d 22 20  |< .SK(i%)=1s$=" |
00003a20  48 61 72 64 20 22 8b e7  53 4b 28 69 25 29 3d 31  |Hard "..SK(i%)=1|
00003a30  2e 35 73 24 3d 22 4d 65  64 69 75 6d 22 8b 73 24  |.5s$="Medium".s$|
00003a40  3d 22 20 45 61 73 79 20  22 0d 18 06 14 20 f1 8a  |=" Easy ".... ..|
00003a50  33 37 2c 37 2b 69 25 2a  33 29 73 24 3b 0d 18 10  |37,7+i%*3)s$;...|
00003a60  09 20 e6 30 2c 30 0d 18  1a 19 20 ff 28 22 53 43  |. .0,0.... .("SC|
00003a70  48 4f 4f 53 45 20 47 22  2b c3 28 69 25 29 29 0d  |HOOSE G"+.(i%)).|
00003a80  18 24 17 20 f0 26 45 44  2c 31 32 30 2c 37 36 38  |.$. .&ED,120,768|
00003a90  2d 69 25 2a 39 36 0d 18  2e 0f 20 e6 30 2c 36 33  |-i%*96.... .0,63|
00003aa0  c8 9c 31 39 32 0d 18 38  24 20 ec 32 34 30 2c 38  |..192..8$ .240,8|
00003ab0  30 30 2d 69 25 2a 39 36  3a f0 35 2c 33 33 34 2c  |00-i%*96:.5,334,|
00003ac0  38 30 30 2d 69 25 2a 39  36 0d 18 42 24 20 ec 33  |800-i%*96..B$ .3|
00003ad0  36 38 2c 38 30 30 2d 69  25 2a 39 36 3a f0 35 2c  |68,800-i%*96:.5,|
00003ae0  35 35 38 2c 38 30 30 2d  69 25 2a 39 36 0d 18 4c  |558,800-i%*96..L|
00003af0  24 20 ec 35 39 32 2c 38  30 30 2d 69 25 2a 39 36  |$ .592,800-i%*96|
00003b00  3a f0 35 2c 36 38 36 2c  38 30 30 2d 69 25 2a 39  |:.5,686,800-i%*9|
00003b10  36 0d 18 56 0c 20 e6 30  2c 30 c8 9c 30 0d 18 60  |6..V. .0,0..0..`|
00003b20  35 20 ec 32 33 36 2c 38  30 34 2d 69 25 2a 39 36  |5 .236,804-i%*96|
00003b30  3a f0 35 2c 33 33 36 2c  38 30 34 2d 69 25 2a 39  |:.5,336,804-i%*9|
00003b40  36 3a f0 35 2c 33 33 36  2c 37 36 34 2d 69 25 2a  |6:.5,336,764-i%*|
00003b50  39 36 0d 18 6a 26 20 f0  35 2c 32 33 36 2c 37 36  |96..j& .5,236,76|
00003b60  34 2d 69 25 2a 39 36 3a  f0 35 2c 32 33 36 2c 38  |4-i%*96:.5,236,8|
00003b70  30 34 2d 69 25 2a 39 36  0d 18 74 24 20 ec 32 33  |04-i%*96..t$ .23|
00003b80  38 2c 38 30 34 2d 69 25  2a 39 36 3a f0 35 2c 32  |8,804-i%*96:.5,2|
00003b90  33 38 2c 37 36 34 2d 69  25 2a 39 36 0d 18 7e 24  |38,764-i%*96..~$|
00003ba0  20 ec 33 33 38 2c 38 30  34 2d 69 25 2a 39 36 3a  | .338,804-i%*96:|
00003bb0  f0 35 2c 33 33 38 2c 37  36 34 2d 69 25 2a 39 36  |.5,338,764-i%*96|
00003bc0  0d 18 88 24 20 ec 33 36  34 2c 38 30 34 2d 69 25  |...$ .364,804-i%|
00003bd0  2a 39 36 3a f0 35 2c 35  36 32 2c 38 30 34 2d 69  |*96:.5,562,804-i|
00003be0  25 2a 39 36 0d 18 92 37  20 f0 35 2c 35 36 32 2c  |%*96...7 .5,562,|
00003bf0  37 36 34 2d 69 25 2a 39  36 3a f0 35 2c 33 36 34  |764-i%*96:.5,364|
00003c00  2c 37 36 34 2d 69 25 2a  39 36 3a f0 35 2c 33 36  |,764-i%*96:.5,36|
00003c10  34 2c 38 30 34 2d 69 25  2a 39 36 0d 18 9c 24 20  |4,804-i%*96...$ |
00003c20  ec 33 36 36 2c 38 30 34  2d 69 25 2a 39 36 3a f0  |.366,804-i%*96:.|
00003c30  35 2c 33 36 36 2c 37 36  34 2d 69 25 2a 39 36 0d  |5,366,764-i%*96.|
00003c40  18 a6 24 20 ec 35 36 34  2c 38 30 34 2d 69 25 2a  |..$ .564,804-i%*|
00003c50  39 36 3a f0 35 2c 35 36  34 2c 37 36 34 2d 69 25  |96:.5,564,764-i%|
00003c60  2a 39 36 0d 18 b0 24 20  ec 35 39 30 2c 38 30 34  |*96...$ .590,804|
00003c70  2d 69 25 2a 39 36 3a f0  35 2c 36 39 32 2c 38 30  |-i%*96:.5,692,80|
00003c80  34 2d 69 25 2a 39 36 0d  18 ba 37 20 f0 35 2c 36  |4-i%*96...7 .5,6|
00003c90  39 32 2c 37 36 34 2d 69  25 2a 39 36 3a f0 35 2c  |92,764-i%*96:.5,|
00003ca0  35 39 30 2c 37 36 34 2d  69 25 2a 39 36 3a f0 35  |590,764-i%*96:.5|
00003cb0  2c 35 39 30 2c 38 30 34  2d 69 25 2a 39 36 0d 18  |,590,804-i%*96..|
00003cc0  c4 24 20 ec 35 38 38 2c  38 30 34 2d 69 25 2a 39  |.$ .588,804-i%*9|
00003cd0  36 3a f0 35 2c 35 38 38  2c 37 36 34 2d 69 25 2a  |6:.5,588,764-i%*|
00003ce0  39 36 0d 18 ce 24 20 ec  36 39 30 2c 38 30 34 2d  |96...$ .690,804-|
00003cf0  69 25 2a 39 36 3a f0 35  2c 36 39 30 2c 37 36 34  |i%*96:.5,690,764|
00003d00  2d 69 25 2a 39 36 0d 18  d8 05 ed 0d 18 e2 05 e1  |-i%*96..........|
00003d10  0d 18 ec 05 20 0d 18 f6  05 20 0d 19 00 0e dd f2  |.... .... ......|
00003d20  64 72 61 77 70 6c 61 6e  0d 19 0a 42 ea 78 25 2c  |drawplan...B.x%,|
00003d30  79 25 2c 78 73 25 2c 79  73 25 2c 69 25 2c 6a 25  |y%,xs%,ys%,i%,j%|
00003d40  2c 73 25 2c 6d 73 2c 73  2c 63 25 2c 6c 78 25 2c  |,s%,ms,s,c%,lx%,|
00003d50  6c 79 25 2c 75 78 25 2c  75 79 25 2c 73 24 2c 6c  |ly%,ux%,uy%,s$,l|
00003d60  25 2c 77 24 2c 61 24 2c  70 25 0d 19 14 0c 2a 46  |%,w$,a$,p%....*F|
00003d70  58 31 31 32 2c 31 0d 19  1e 14 69 73 74 73 68 6f  |X112,1....istsho|
00003d80  74 25 3d b9 3a 70 75 25  3d 30 0d 19 28 3a e7 68  |t%=.:pu%=0..(:.h|
00003d90  6f 6c 65 25 3c 31 30 66  63 6f 6c 25 3d 66 63 31  |ole%<10fcol%=fc1|
00003da0  25 3a 66 74 69 6e 74 25  3d 66 74 31 25 8b 66 63  |%:ftint%=ft1%.fc|
00003db0  6f 6c 25 3d 66 63 32 25  3a 66 74 69 6e 74 25 3d  |ol%=fc2%:ftint%=|
00003dc0  66 74 32 25 0d 19 32 16  68 6f 6c 65 6f 75 74 25  |ft2%..2.holeout%|
00003dd0  3d a3 3a 6f 62 64 73 25  3d a3 0d 19 3c 39 e7 44  |=.:obds%=...<9.D|
00003de0  52 25 8c db 3a e6 30 2c  32 34 c8 9c 30 3a ec 38  |R%..:.0,24..0:.8|
00003df0  2c 38 3a f0 35 2c 38 2c  33 37 36 3a f0 38 35 2c  |,8:.5,8,376:.85,|
00003e00  31 32 36 38 2c 38 3a f0  38 35 2c 31 32 36 38 2c  |1268,8:.85,1268,|
00003e10  33 37 36 0d 19 46 43 e8  23 5a 25 2c 78 25 2c 79  |376..FC.#Z%,x%,y|
00003e20  25 3a ec 78 25 2a 32 2c  79 25 2a 32 3a e8 23 5a  |%:.x%*2,y%*2:.#Z|
00003e30  25 2c 78 25 2c 79 25 3a  ec 78 25 2a 32 2c 79 25  |%,x%,y%:.x%*2,y%|
00003e40  2a 32 3a e6 30 2c 34 c8  9c 36 34 3a e8 23 5a 25  |*2:.0,4..64:.#Z%|
00003e50  2c 78 25 2c 79 25 0d 19  50 05 f5 0d 19 5a 17 20  |,x%,y%..P....Z. |
00003e60  e7 44 52 25 8c f0 38 35  2c 78 25 2a 32 2c 79 25  |.DR%..85,x%*2,y%|
00003e70  2a 32 0d 19 64 0f 20 e8  23 5a 25 2c 78 25 2c 79  |*2..d. .#Z%,x%,y|
00003e80  25 0d 19 6e 0a fd 78 25  3d 2d 31 0d 19 78 3f e8  |%..n..x%=-1..x?.|
00003e90  23 5a 25 2c 78 25 2c 79  25 3a ec 78 25 2a 32 2c  |#Z%,x%,y%:.x%*2,|
00003ea0  79 25 2a 32 3a e8 23 5a  25 2c 78 25 2c 79 25 3a  |y%*2:.#Z%,x%,y%:|
00003eb0  ec 78 25 2a 32 2c 79 25  2a 32 3a e6 30 2c 38 3a  |.x%*2,y%*2:.0,8:|
00003ec0  e8 23 5a 25 2c 78 25 2c  79 25 0d 19 82 05 f5 0d  |.#Z%,x%,y%......|
00003ed0  19 8c 17 20 e7 44 52 25  8c f0 38 35 2c 78 25 2a  |... .DR%..85,x%*|
00003ee0  32 2c 79 25 2a 32 0d 19  96 0f 20 e8 23 5a 25 2c  |2,y%*2.... .#Z%,|
00003ef0  78 25 2c 79 25 0d 19 a0  0a fd 78 25 3d 2d 31 0d  |x%,y%.....x%=-1.|
00003f00  19 aa 24 e3 69 25 3d 30  b8 36 3a e8 23 5a 25 2c  |..$.i%=0.6:.#Z%,|
00003f10  54 45 58 25 28 69 25 29  2c 54 45 59 25 28 69 25  |TEX%(i%),TEY%(i%|
00003f20  29 3a ed 0d 19 b4 0c e6  30 2c 32 38 c8 9c 30 0d  |):......0,28..0.|
00003f30  19 be 52 e7 44 52 25 8c  ec 54 45 58 25 28 31 29  |..R.DR%..TEX%(1)|
00003f40  2c 54 45 59 25 28 31 29  3a ec 54 45 58 25 28 32  |,TEY%(1):.TEX%(2|
00003f50  29 2c 54 45 59 25 28 32  29 3a f0 38 35 2c 54 45  |),TEY%(2):.85,TE|
00003f60  58 25 28 33 29 2c 54 45  59 25 28 33 29 3a f0 38  |X%(3),TEY%(3):.8|
00003f70  35 2c 54 45 58 25 28 34  29 2c 54 45 59 25 28 34  |5,TEX%(4),TEY%(4|
00003f80  29 0d 19 c8 17 e8 23 5a  25 2c 68 6f 6c 65 61 6e  |).....#Z%,holean|
00003f90  67 2c 74 65 65 61 6e 67  0d 19 d2 09 e6 30 2c 31  |g,teeang.....0,1|
00003fa0  32 0d 19 dc 0d e8 23 5a  25 2c 47 4e 53 25 0d 19  |2.....#Z%,GNS%..|
00003fb0  e6 0e e3 73 25 3d 31 b8  47 4e 53 25 0d 19 f0 1b  |...s%=1.GNS%....|
00003fc0  20 e8 23 5a 25 2c 47 4e  43 25 28 73 25 29 2c 47  | .#Z%,GNC%(s%),G|
00003fd0  4e 4f 25 28 73 25 29 0d  19 fa 13 20 e3 63 25 3d  |NO%(s%).... .c%=|
00003fe0  31 b8 47 4e 43 25 28 73  25 29 0d 1a 04 22 20 20  |1.GNC%(s%)..."  |
00003ff0  e8 23 5a 25 2c 47 4e 58  25 28 73 25 2c 63 25 29  |.#Z%,GNX%(s%,c%)|
00004000  2c 47 4e 59 25 28 73 25  2c 63 25 29 0d 1a 0e 0b  |,GNY%(s%,c%)....|
00004010  20 20 e7 44 52 25 8c 0d  1a 18 41 20 20 20 e7 63  |  .DR%....A   .c|
00004020  25 3c 33 8c ec 47 4e 58  25 28 73 25 2c 63 25 29  |%<3..GNX%(s%,c%)|
00004030  2c 47 4e 59 25 28 73 25  2c 63 25 29 8b f0 38 35  |,GNY%(s%,c%)..85|
00004040  2c 47 4e 58 25 28 73 25  2c 63 25 29 2c 47 4e 59  |,GNX%(s%,c%),GNY|
00004050  25 28 73 25 2c 63 25 29  0d 1a 22 07 20 20 cd 0d  |%(s%,c%)..".  ..|
00004060  1a 2c 06 20 ed 0d 1a 36  05 ed 0d 1a 40 18 e8 23  |.,. ...6....@..#|
00004070  5a 25 2c 6c 78 25 2c 6c  79 25 2c 75 78 25 2c 75  |Z%,lx%,ly%,ux%,u|
00004080  79 25 0d 1a 4a 0b e3 69  25 3d 31 b8 35 0d 1a 54  |y%..J..i%=1.5..T|
00004090  33 20 e8 23 5a 25 2c 47  48 25 28 69 25 29 2c 47  |3 .#Z%,GH%(i%),G|
000040a0  58 25 28 69 25 29 2c 47  59 25 28 69 25 29 2c 47  |X%(i%),GY%(i%),G|
000040b0  52 58 25 28 69 25 29 2c  47 52 59 25 28 69 25 29  |RX%(i%),GRY%(i%)|
000040c0  0d 1a 5e 05 ed 0d 1a 68  0e e7 ac 44 52 25 8c 8d  |..^....h...DR%..|
000040d0  74 5e 5b 0d 1a 72 05 f5  0d 1a 7c 1a 20 66 6c 61  |t^[..r....|. fla|
000040e0  67 78 25 3d 6c 78 25 2b  b3 28 75 78 25 2d 6c 78  |gx%=lx%+.(ux%-lx|
000040f0  25 29 0d 1a 86 1a 20 66  6c 61 67 79 25 3d 6c 79  |%).... flagy%=ly|
00004100  25 2b b3 28 75 79 25 2d  6c 79 25 29 0d 1a 90 87  |%+.(uy%-ly%)....|
00004110  20 70 25 3d 28 28 b0 66  6c 61 67 78 25 2c 66 6c  | p%=((.flagx%,fl|
00004120  61 67 79 25 29 3d 31 32  29 80 28 b0 66 6c 61 67  |agy%)=12).(.flag|
00004130  78 25 2b 31 30 2c 66 6c  61 67 79 25 29 3d 31 32  |x%+10,flagy%)=12|
00004140  29 80 28 b0 20 20 20 20  66 6c 61 67 78 25 2c 66  |).(.    flagx%,f|
00004150  6c 61 67 79 25 2b 31 30  29 3d 31 32 29 80 28 b0  |lagy%+10)=12).(.|
00004160  66 6c 61 67 78 25 2d 31  30 2c 66 6c 61 67 79 25  |flagx%-10,flagy%|
00004170  29 3d 31 32 29 80 28 b0  66 6c 61 67 78 25 2c 20  |)=12).(.flagx%, |
00004180  20 20 20 20 66 6c 61 67  79 25 2d 31 30 29 3d 31  |    flagy%-10)=1|
00004190  32 29 29 0d 1a 9a 0e 20  e7 ac 70 25 8c 8d 64 7e  |2)).... ..p%..d~|
000041a0  5a 0d 1a a4 09 20 6d 73  3d 30 0d 1a ae 10 20 e3  |Z.... ms=0.... .|
000041b0  78 73 25 3d 2d 32 b8 32  88 32 0d 1a b8 11 20 20  |xs%=-2.2.2....  |
000041c0  e3 79 73 25 3d 2d 32 b8  32 88 32 0d 1a c2 22 20  |.ys%=-2.2.2..." |
000041d0  20 20 78 25 3d 66 6c 61  67 78 25 2b 78 73 25 3a  |  x%=flagx%+xs%:|
000041e0  79 25 3d 66 6c 61 67 79  25 2b 79 73 25 0d 1a cc  |y%=flagy%+ys%...|
000041f0  38 20 20 20 73 3d a4 52  68 74 28 78 25 2c 79 25  |8   s=.Rht(x%,y%|
00004200  29 3a 73 3d a4 73 6c 6f  70 65 78 28 78 25 2c 79  |):s=.slopex(x%,y|
00004210  25 29 5e 32 2b a4 73 6c  6f 70 65 79 28 78 25 2c  |%)^2+.slopey(x%,|
00004220  79 25 29 5e 32 0d 1a d6  11 20 20 20 e7 73 3e 6d  |y%)^2....   .s>m|
00004230  73 20 6d 73 3d 73 0d 1a  e0 1c 20 20 20 e7 6d 73  |s ms=s....   .ms|
00004240  3e 2e 30 30 39 36 20 78  73 25 3d 33 3a 79 73 25  |>.0096 xs%=3:ys%|
00004250  3d 33 0d 1a ea 07 20 20  ed 0d 1a f4 06 20 ed 0d  |=3....  ..... ..|
00004260  1a fe 12 fd 28 6d 73 3c  2e 30 30 39 36 29 80 70  |....(ms<.0096).p|
00004270  25 0d 1b 80 08 e6 30 2c  30 0d 1b 8a 13 c8 92 66  |%.....0,0......f|
00004280  6c 61 67 78 25 2c 66 6c  61 67 79 25 0d 1b 94 0d  |lagx%,flagy%....|
00004290  e6 33 2c 31 c8 9c 31 32  38 0d 1b 9e 22 74 72 65  |.3,1..128..."tre|
000042a0  65 73 25 3d 30 3a 69 25  3d 31 3a e8 23 5a 25 2c  |es%=0:i%=1:.#Z%,|
000042b0  74 72 65 65 74 79 70 25  28 31 29 0d 1b a8 16 c8  |treetyp%(1).....|
000042c0  95 74 72 65 65 74 79 70  25 28 69 25 29 3c 3e 2d  |.treetyp%(i%)<>-|
000042d0  31 0d 1b b2 14 20 74 72  65 65 73 25 3d 74 72 65  |1.... trees%=tre|
000042e0  65 73 25 2b 31 0d 1b bc  1f 20 e8 23 5a 25 2c 74  |es%+1.... .#Z%,t|
000042f0  72 65 65 78 25 28 69 25  29 2c 74 72 65 65 79 25  |reex%(i%),treey%|
00004300  28 69 25 29 0d 1b c6 3d  20 e7 44 52 25 8c ec 74  |(i%)...= .DR%..t|
00004310  72 65 65 78 25 28 69 25  29 2c 74 72 65 65 79 25  |reex%(i%),treey%|
00004320  28 69 25 29 3a f0 20 26  39 39 2c 54 57 25 28 74  |(i%):. &99,TW%(t|
00004330  72 65 65 74 79 70 25 28  69 25 29 29 2f 31 35 2c  |reetyp%(i%))/15,|
00004340  30 0d 1b d0 1c 20 69 25  2b 3d 31 3a e8 23 5a 25  |0.... i%+=1:.#Z%|
00004350  2c 74 72 65 65 74 79 70  25 28 69 25 29 0d 1b da  |,treetyp%(i%)...|
00004360  05 ce 0d 1b e4 0e e6 30  2c 31 30 c8 9c 31 39 32  |.......0,10..192|
00004370  0d 1b ee 0e e8 23 5a 25  2c 42 6e 6b 73 25 0d 1b  |.....#Z%,Bnks%..|
00004380  f8 11 e7 42 6e 6b 73 25  3d 30 8c 8d 74 58 5c 0d  |...Bnks%=0..tX\.|
00004390  1c 02 0f e3 69 25 3d 31  b8 42 6e 6b 73 25 0d 1c  |....i%=1.Bnks%..|
000043a0  0c 12 20 e8 23 5a 25 2c  42 63 6f 25 28 69 25 29  |.. .#Z%,Bco%(i%)|
000043b0  0d 1c 16 13 20 e3 6a 25  3d 30 b8 42 63 6f 25 28  |.... .j%=0.Bco%(|
000043c0  69 25 29 0d 1c 20 20 20  20 e8 23 5a 25 2c 42 78  |i%)..    .#Z%,Bx|
000043d0  25 28 69 25 2c 6a 25 29  2c 42 79 25 28 69 25 2c  |%(i%,j%),By%(i%,|
000043e0  6a 25 29 0d 1c 2a 06 20  ed 0d 1c 34 0f 20 e7 ac  |j%)..*. ...4. ..|
000043f0  44 52 25 8c 8d 44 66 5c  0d 1c 3e 27 20 ec 42 78  |DR%..Df\..>' .Bx|
00004400  25 28 69 25 2c 42 63 6f  25 28 69 25 29 29 2c 42  |%(i%,Bco%(i%)),B|
00004410  79 25 28 69 25 2c 42 63  6f 25 28 69 25 29 29 0d  |y%(i%,Bco%(i%)).|
00004420  1c 48 13 20 e3 6a 25 3d  31 b8 42 63 6f 25 28 69  |.H. .j%=1.Bco%(i|
00004430  25 29 0d 1c 52 34 20 20  ec 42 78 25 28 69 25 2c  |%)..R4  .Bx%(i%,|
00004440  30 29 2c 42 79 25 28 69  25 2c 30 29 3a f0 38 35  |0),By%(i%,0):.85|
00004450  2c 42 78 25 28 69 25 2c  6a 25 29 2c 42 79 25 28  |,Bx%(i%,j%),By%(|
00004460  69 25 2c 6a 25 29 0d 1c  5c 06 20 ed 0d 1c 66 05  |i%,j%)..\. ...f.|
00004470  ed 0d 1c 70 0d e8 23 5a  25 2c 42 52 50 25 0d 1c  |...p..#Z%,BRP%..|
00004480  7a 0e e3 69 25 3d 31 b8  42 52 50 25 0d 1c 84 1b  |z..i%=1.BRP%....|
00004490  20 e8 23 5a 25 2c 42 52  58 25 28 69 25 29 2c 42  | .#Z%,BRX%(i%),B|
000044a0  52 59 25 28 69 25 29 0d  1c 8e 05 ed 0d 1c 98 0e  |RY%(i%).........|
000044b0  e6 30 2c 33 36 c8 9c 31  39 32 0d 1c a2 18 e8 23  |.0,36..192.....#|
000044c0  5a 25 2c 57 61 25 3a e7  57 61 25 3d 30 8c 8d 54  |Z%,Wa%:.Wa%=0..T|
000044d0  64 5d 0d 1c ac 0d e3 69  25 3d 31 b8 57 61 25 0d  |d].....i%=1.Wa%.|
000044e0  1c b6 12 20 e8 23 5a 25  2c 57 63 6f 25 28 69 25  |... .#Z%,Wco%(i%|
000044f0  29 0d 1c c0 0e 20 78 25  3d 30 3a 79 25 3d 30 0d  |).... x%=0:y%=0.|
00004500  1c ca 13 20 e3 6a 25 3d  31 b8 57 63 6f 25 28 69  |... .j%=1.Wco%(i|
00004510  25 29 0d 1c d4 20 20 20  e8 23 5a 25 2c 57 78 25  |%)...   .#Z%,Wx%|
00004520  28 69 25 2c 6a 25 29 2c  57 79 25 28 69 25 2c 6a  |(i%,j%),Wy%(i%,j|
00004530  25 29 0d 1c de 27 20 20  78 25 3d 78 25 2b 57 78  |%)...'  x%=x%+Wx|
00004540  25 28 69 25 2c 6a 25 29  3a 79 25 3d 79 25 2b 57  |%(i%,j%):y%=y%+W|
00004550  79 25 28 69 25 2c 6a 25  29 0d 1c e8 0b 20 20 e7  |y%(i%,j%)....  .|
00004560  44 52 25 8c 0d 1c f2 3d  20 20 20 e7 6a 25 3c 33  |DR%....=   .j%<3|
00004570  8c ec 57 78 25 28 69 25  2c 6a 25 29 2c 57 79 25  |..Wx%(i%,j%),Wy%|
00004580  28 69 25 2c 6a 25 29 8b  f0 38 35 2c 57 78 25 28  |(i%,j%)..85,Wx%(|
00004590  69 25 2c 6a 25 29 2c 57  79 25 28 69 25 2c 6a 25  |i%,j%),Wy%(i%,j%|
000045a0  29 0d 1c fc 07 20 20 cd  0d 1d 06 06 20 ed 0d 1d  |)....  ..... ...|
000045b0  10 30 20 57 78 25 28 69  25 2c 30 29 3d 78 25 81  |.0 Wx%(i%,0)=x%.|
000045c0  57 63 6f 25 28 69 25 29  3a 57 79 25 28 69 25 2c  |Wco%(i%):Wy%(i%,|
000045d0  30 29 3d 79 25 81 57 63  6f 25 28 69 25 29 0d 1d  |0)=y%.Wco%(i%)..|
000045e0  1a 05 ed 0d 1d 24 1a e8  23 5a 25 2c 4f 42 43 25  |.....$..#Z%,OBC%|
000045f0  3a e7 4f 42 43 25 3d 30  8c 8d 44 7e 5d 0d 1d 2e  |:.OBC%=0..D~]...|
00004600  09 e6 33 2c 31 35 0d 1d  38 18 e8 23 5a 25 2c 4f  |..3,15..8..#Z%,O|
00004610  42 58 25 28 30 29 2c 4f  42 59 25 28 30 29 0d 1d  |BX%(0),OBY%(0)..|
00004620  42 25 ec 4f 42 58 25 28  30 29 2c 4f 42 59 25 28  |B%.OBX%(0),OBY%(|
00004630  30 29 3a ec 4f 42 58 25  28 30 29 2c 4f 42 59 25  |0):.OBX%(0),OBY%|
00004640  28 30 29 0d 1d 4c 0e e3  69 25 3d 31 b8 4f 42 43  |(0)..L..i%=1.OBC|
00004650  25 0d 1d 56 1b 20 e8 23  5a 25 2c 4f 42 58 25 28  |%..V. .#Z%,OBX%(|
00004660  69 25 29 2c 4f 42 59 25  28 69 25 29 0d 1d 60 33  |i%),OBY%(i%)..`3|
00004670  20 e7 44 52 25 8c f0 38  35 2c 4f 42 58 25 28 69  | .DR%..85,OBX%(i|
00004680  25 29 2c 4f 42 59 25 28  69 25 29 3a f0 38 35 2c  |%),OBY%(i%):.85,|
00004690  4f 42 58 25 28 30 29 2c  4f 42 59 25 28 30 29 0d  |OBX%(0),OBY%(0).|
000046a0  1d 6a 05 ed 0d 1d 74 0e  e7 ac 44 52 25 8c 8d 74  |.j....t...DR%..t|
000046b0  70 5d 0d 1d 7e 65 e6 30  2c 31 38 3a ec 30 2c 30  |p]..~e.0,18:.0,0|
000046c0  3a f0 35 2c 30 2c 33 38  34 3a f0 35 2c 31 32 37  |:.5,0,384:.5,127|
000046d0  36 2c 33 38 34 3a f0 35  2c 31 32 37 36 2c 30 3a  |6,384:.5,1276,0:|
000046e0  f0 35 2c 30 2c 30 3a e6  30 2c 31 39 3a ec 34 2c  |.5,0,0:.0,19:.4,|
000046f0  34 3a f0 35 2c 34 2c 33  38 30 3a f0 35 2c 31 32  |4:.5,4,380:.5,12|
00004700  37 32 2c 33 38 30 3a f0  35 2c 31 32 37 32 2c 34  |72,380:.5,1272,4|
00004710  3a f0 35 2c 34 2c 34 0d  1d 88 36 e6 30 2c 36 31  |:.5,4,4...6.0,61|
00004720  c8 9c 30 3a ec 30 2c 33  38 38 3a ec 30 2c 31 30  |..0:.0,388:.0,10|
00004730  32 34 3a f0 38 35 2c 31  32 38 30 2c 33 38 38 3a  |24:.85,1280,388:|
00004740  f0 38 35 2c 31 32 38 30  2c 31 30 32 34 0d 1d 92  |.85,1280,1024...|
00004750  0e ef 35 3a e6 30 2c 33  c8 9c 30 0d 1d 9c 5e ec  |..5:.0,3..0...^.|
00004760  33 32 2c 39 38 32 3a f1  22 48 6f 6c 65 20 22 3b  |32,982:."Hole ";|
00004770  68 6f 6c 65 25 22 3a 20  20 22 3b 6c 65 6e 25 28  |hole%":  ";len%(|
00004780  68 6f 6c 65 25 29 22 20  79 61 72 64 73 20 70 61  |hole%)" yards pa|
00004790  72 20 22 3b 70 61 72 25  28 68 6f 6c 65 25 29 22  |r ";par%(hole%)"|
000047a0  2c 20 73 74 72 6f 6b 65  20 22 3b 73 74 72 6f 6b  |, stroke ";strok|
000047b0  65 25 28 68 6f 6c 65 25  29 0d 1d a6 1b 78 25 3d  |e%(hole%)....x%=|
000047c0  33 32 3a 79 25 3d 39 31  36 3a e6 30 2c 33 36 c8  |32:y%=916:.0,36.|
000047d0  9c 31 32 38 0d 1d b0 05  f5 0d 1d ba 12 20 e8 23  |.128......... .#|
000047e0  5a 25 2c 73 24 3a 77 24  3d 22 22 0d 1d c4 0f 20  |Z%,s$:w$="".... |
000047f0  e7 ac 44 52 25 8c 8d 54  72 5e 0d 1d ce 10 20 e3  |..DR%..Tr^.... .|
00004800  69 25 3d 31 b8 a9 28 73  24 29 0d 1d d8 12 20 20  |i%=1..(s$)....  |
00004810  61 24 3d c1 73 24 2c 69  25 2c 31 29 0d 1d e2 21  |a$=.s$,i%,1)...!|
00004820  20 20 e7 28 61 24 3c 3e  22 20 22 29 80 61 24 3c  |  .(a$<>" ").a$<|
00004830  3e 22 40 22 8c 77 24 3d  77 24 2b 61 24 0d 1d ec  |>"@".w$=w$+a$...|
00004840  19 20 20 e7 28 69 25 3d  a9 28 73 24 29 29 84 61  |.  .(i%=.(s$)).a|
00004850  24 3d 22 20 22 8c 0d 1d  f6 15 20 20 20 6c 25 3d  |$=" ".....   l%=|
00004860  a9 28 77 24 29 2a 33 32  2b 33 32 0d 1e 00 21 20  |.(w$)*32+32...! |
00004870  20 20 e7 78 25 2b 6c 25  3e 31 32 34 38 8c 78 25  |  .x%+l%>1248.x%|
00004880  3d 33 32 3a 79 25 3d 79  25 2d 34 34 0d 1e 0a 1c  |=32:y%=y%-44....|
00004890  20 20 20 ec 78 25 2c 79  25 3a f1 3b 77 24 3b 3a  |   .x%,y%:.;w$;:|
000048a0  78 25 3d 78 25 2b 6c 25  0d 1e 14 0c 20 20 20 77  |x%=x%+l%....   w|
000048b0  24 3d 22 22 0d 1e 1e 07  20 20 cd 0d 1e 28 06 20  |$=""....  ...(. |
000048c0  ed 0d 1e 32 0f fd c2 73  24 2c 31 29 3d 22 40 22  |...2...s$,1)="@"|
000048d0  0d 1e 3c 0c 2a 46 58 31  31 32 2c 30 0d 1e 46 0e  |..<.*FX112,0..F.|
000048e0  e3 69 25 3d 31 b8 6e 6f  50 25 0d 1e 50 17 20 73  |.i%=1.noP%..P. s|
000048f0  63 6f 72 65 25 28 69 25  2c 68 6f 6c 65 25 29 3d  |core%(i%,hole%)=|
00004900  30 0d 1e 5a 28 20 62 61  6c 6c 78 28 69 25 29 3d  |0..Z( ballx(i%)=|
00004910  54 45 58 25 28 30 29 3a  62 61 6c 6c 79 28 69 25  |TEX%(0):bally(i%|
00004920  29 3d 54 45 59 25 28 30  29 0d 1e 64 1f 20 68 6f  |)=TEY%(0)..d. ho|
00004930  6c 65 64 25 28 69 25 29  3d a3 3a 62 68 64 62 6c  |led%(i%)=.:bhdbl|
00004940  25 28 69 25 29 3d 32 38  0d 1e 6e 05 ed 0d 1e 78  |%(i%)=28..n....x|
00004950  05 e1 0d 1e 82 05 20 0d  1e 8c 05 20 0d 1e 96 0e  |...... .... ....|
00004960  dd f2 64 72 61 77 73 68  6f 74 0d 1e a0 f3 ea 64  |..drawshot.....d|
00004970  61 2c 59 53 25 2c 58 53  25 2c 59 53 32 25 2c 58  |a,YS%,XS%,YS2%,X|
00004980  53 32 25 2c 73 25 2c 70  73 25 2c 78 2c 79 2c 62  |S2%,s%,ps%,x,y,b|
00004990  7a 32 61 25 2c 62 7a 32  62 25 2c 62 7a 32 63 25  |z2a%,bz2b%,bz2c%|
000049a0  2c 62 7a 32 64 25 2c 69  25 2c 78 32 2c 79 32 2c  |,bz2d%,i%,x2,y2,|
000049b0  70 31 78 25 2c 70 31 79  25 2c 70 31 63 25 2c 70  |p1x%,p1y%,p1c%,p|
000049c0  31 68 25 2c 70 32 78 25  2c 70 32 79 25 2c 70 32  |1h%,p2x%,p2y%,p2|
000049d0  63 25 2c 70 32 68 25 2c  70 33 78 25 2c 70 33 79  |c%,p2h%,p3x%,p3y|
000049e0  25 2c 70 33 63 25 2c 70  33 68 25 2c 70 34 78 25  |%,p3c%,p3h%,p4x%|
000049f0  2c 70 34 79 25 2c 70 34  63 25 2c 70 34 68 25 2c  |,p4y%,p4c%,p4h%,|
00004a00  70 6d 63 25 2c 63 75 72  79 25 2c 63 75 72 6f 62  |pmc%,cury%,curob|
00004a10  6a 25 2c 4f 59 31 2c 43  59 31 2c 4f 59 31 31 2c  |j%,OY1,CY1,OY11,|
00004a20  79 32 59 53 25 2c 79 32  59 53 32 25 2c 70 31 32  |y2YS%,y2YS2%,p12|
00004a30  68 25 2c 70 33 34 68 25  2c 70 31 33 44 32 25 2c  |h%,p34h%,p13D2%,|
00004a40  70 32 34 44 32 25 2c 70  31 32 44 32 25 2c 70 33  |p24D2%,p12D2%,p3|
00004a50  34 44 32 25 2c 70 31 32  33 34 44 34 25 0d 1e aa  |4D2%,p1234D4%...|
00004a60  13 ef 32 33 3b 38 32 30  32 3b 30 3b 30 3b 30 3b  |..23;8202;0;0;0;|
00004a70  0d 1e b4 0b 64 72 77 25  2b 3d 31 0d 1e be 28 59  |....drw%+=1...(Y|
00004a80  53 25 3d 31 32 3a 58 53  25 3d 32 35 36 3a 59 53  |S%=12:XS%=256:YS|
00004a90  32 25 3d 59 53 25 81 32  3a 58 53 32 25 3d 58 53  |2%=YS%.2:XS2%=XS|
00004aa0  25 81 32 0d 1e c8 40 77  69 6e 64 61 6e 67 3d a4  |%.2...@windang=.|
00004ab0  61 6e 67 28 77 69 6e 64  61 6e 67 2b b3 28 31 29  |ang(windang+.(1)|
00004ac0  2a 2e 32 2d 2e 31 29 3a  77 61 6e 67 30 3d a4 61  |*.2-.1):wang0=.a|
00004ad0  6e 67 28 77 69 6e 64 61  6e 67 2d 68 6f 6c 65 61  |ng(windang-holea|
00004ae0  6e 67 29 0d 1e d2 27 77  69 6e 64 25 3d a4 6d 61  |ng)...'wind%=.ma|
00004af0  78 28 30 2c a4 6d 69 6e  28 33 35 2c 77 69 6e 64  |x(0,.min(35,wind|
00004b00  25 2b b3 28 33 29 2d 32  29 29 0d 1e dc 18 e7 ac  |%+.(3)-2))......|
00004b10  68 6f 6c 65 6f 75 74 25  8c 70 75 25 3d a4 6e 65  |holeout%.pu%=.ne|
00004b20  78 74 0d 1e e6 30 53 4c  3d 53 4b 28 70 75 25 29  |xt...0SL=SK(pu%)|
00004b30  3a 62 61 6c 6c 78 3d 62  61 6c 6c 78 28 70 75 25  |:ballx=ballx(pu%|
00004b40  29 3a 62 61 6c 6c 79 3d  62 61 6c 6c 79 28 70 75  |):bally=bally(pu|
00004b50  25 29 0d 1e f0 35 66 65  65 74 25 3d a4 64 69 73  |%)...5feet%=.dis|
00004b60  74 3a 79 64 73 25 3d 66  65 65 74 25 2f 33 3a e7  |t:yds%=feet%/3:.|
00004b70  64 72 77 25 3d 31 63 6c  75 62 25 3d a4 63 6c 75  |drw%=1club%=.clu|
00004b80  62 28 79 64 73 25 29 0d  1e fa 49 e7 28 79 64 73  |b(yds%)...I.(yds|
00004b90  25 3e 32 35 29 80 ac a4  6f 6e 67 72 65 65 6e 20  |%>25)...ongreen |
00004ba0  53 43 25 3d 32 8b 53 43  25 3d 33 3a 59 53 25 3d  |SC%=2.SC%=3:YS%=|
00004bb0  33 32 3a 58 53 25 3d 33  32 30 3a 59 53 32 25 3d  |32:XS%=320:YS2%=|
00004bc0  59 53 25 81 32 3a 58 53  32 25 3d 58 53 25 81 32  |YS%.2:XS2%=XS%.2|
00004bd0  0d 1f 04 13 53 43 37 25  3d 53 43 25 2a 37 33 35  |....SC7%=SC%*735|
00004be0  33 39 31 0d 1f 0e 31 e7  62 61 6c 6c 78 3d 54 45  |391...1.ballx=TE|
00004bf0  58 25 28 30 29 e7 62 61  6c 6c 79 3d 54 45 59 25  |X%(0).bally=TEY%|
00004c00  28 30 29 8c 61 6e 67 3d  74 65 65 61 6e 67 3a e5  |(0).ang=teeang:.|
00004c10  8d 44 7c 5f 0d 1f 18 21  78 3d 66 6c 61 67 78 25  |.D|_...!x=flagx%|
00004c20  2d 62 61 6c 6c 78 3a 79  3d 66 6c 61 67 79 25 2d  |-ballx:y=flagy%-|
00004c30  62 61 6c 6c 79 0d 1f 22  11 e7 94 28 78 29 3c 2e  |bally.."...(x)<.|
00004c40  30 30 30 30 31 8c 0d 1f  2c 1c 20 e7 79 3e 30 61  |00001...,. .y>0a|
00004c50  6e 67 3d 50 49 39 30 20  8b 61 6e 67 3d 50 49 32  |ng=PI90 .ang=PI2|
00004c60  37 30 0d 1f 36 05 cc 0d  1f 40 12 20 e7 94 28 79  |70..6....@. ..(y|
00004c70  29 3c 2e 30 30 30 30 31  8c 0d 1f 4a 16 20 20 e7  |)<.00001...J.  .|
00004c80  78 3c 30 61 6e 67 3d af  20 8b 61 6e 67 3d 30 0d  |x<0ang=. .ang=0.|
00004c90  1f 54 06 20 cc 0d 1f 5e  3a 20 20 61 6e 67 3d 99  |.T. ...^:  ang=.|
00004ca0  28 79 2f 78 29 3a e7 28  79 3c 30 29 80 78 3c 30  |(y/x):.(y<0).x<0|
00004cb0  8c 61 6e 67 3d 61 6e 67  2b af 20 8b e7 28 79 3e  |.ang=ang+. ..(y>|
00004cc0  30 29 80 78 3c 30 61 6e  67 3d 61 6e 67 2d af 0d  |0).x<0ang=ang-..|
00004cd0  1f 68 06 20 cd 0d 1f 72  05 cd 0d 1f 7c 2e 61 6e  |.h. ...r....|.an|
00004ce0  67 3d 61 6e 67 2b 64 65  76 61 6e 67 3a 63 6f 73  |g=ang+devang:cos|
00004cf0  61 6e 67 3d 9b 28 61 6e  67 29 3a 73 69 6e 61 6e  |ang=.(ang):sinan|
00004d00  67 3d b5 28 61 6e 67 29  0d 1f 86 18 e7 94 28 61  |g=.(ang)......(a|
00004d10  6e 67 2d 50 49 39 30 29  3c 2e 30 30 30 30 31 8c  |ng-PI90)<.00001.|
00004d20  0d 1f 90 29 20 e7 61 6e  67 3c 50 49 39 30 20 74  |...) .ang<PI90 t|
00004d30  61 6e 61 6e 67 3d 31 30  30 30 30 8b 74 61 6e 61  |anang=10000.tana|
00004d40  6e 67 3d 2d 31 30 30 30  30 0d 1f 9a 05 cc 0d 1f  |ng=-10000.......|
00004d50  a4 1a 20 e7 94 28 61 6e  67 2d 50 49 32 37 30 29  |.. ..(ang-PI270)|
00004d60  3c 2e 30 30 30 30 31 8c  0d 1f ae 2b 20 20 e7 61  |<.00001....+  .a|
00004d70  6e 67 3c 50 49 32 37 30  20 74 61 6e 61 6e 67 3d  |ng<PI270 tanang=|
00004d80  31 30 30 30 30 8b 74 61  6e 61 6e 67 3d 2d 31 30  |10000.tanang=-10|
00004d90  30 30 30 0d 1f b8 06 20  cc 0d 1f c2 13 20 20 74  |000.... .....  t|
00004da0  61 6e 61 6e 67 3d b7 28  61 6e 67 29 0d 1f cc 06  |anang=.(ang)....|
00004db0  20 cd 0d 1f d6 05 cd 0d  1f e0 27 41 4e 3d 50 49  | .........'AN=PI|
00004dc0  39 30 2d 61 6e 67 3a 73  69 6e 41 4e 3d b5 28 41  |90-ang:sinAN=.(A|
00004dd0  4e 29 3a 63 6f 73 41 4e  3d 9b 28 41 4e 29 0d 1f  |N):cosAN=.(AN)..|
00004de0  ea 2e 77 61 6e 67 32 3d  a4 61 6e 67 28 77 61 6e  |..wang2=.ang(wan|
00004df0  67 30 2d 61 6e 67 29 3a  64 61 3d a4 61 6e 67 28  |g0-ang):da=.ang(|
00004e00  61 6e 67 2b 68 6f 6c 65  61 6e 67 29 0d 1f f4 14  |ang+holeang)....|
00004e10  e7 64 61 3c 30 64 61 3d  64 61 2b 50 49 33 36 30  |.da<0da=da+PI360|
00004e20  0d 1f fe 1b e7 a4 6f 6e  74 65 65 20 e7 ac 69 73  |......ontee ..is|
00004e30  74 73 68 6f 74 25 8c 8d  74 62 66 0d 20 08 0f e7  |tshot%..tbf. ...|
00004e40  6f 62 64 73 25 8c 8d 74  62 66 0d 20 12 20 f2 58  |obds%..tbf. . .X|
00004e50  59 30 31 28 66 6c 61 67  78 25 2c 66 6c 61 67 79  |Y01(flagx%,flagy|
00004e60  25 29 3a 66 79 31 25 3d  59 31 0d 20 1c 10 e3 69  |%):fy1%=Y1. ...i|
00004e70  25 3d 31 b8 74 72 65 65  73 25 0d 20 26 1b 20 4f  |%=1.trees%. &. O|
00004e80  74 79 70 25 28 69 25 29  3d 74 72 65 65 74 79 70  |typ%(i%)=treetyp|
00004e90  25 28 69 25 29 0d 20 30  37 20 f2 58 59 30 31 28  |%(i%). 07 .XY01(|
00004ea0  74 72 65 65 78 25 28 69  25 29 2c 74 72 65 65 79  |treex%(i%),treey|
00004eb0  25 28 69 25 29 29 3a 4f  58 31 28 69 25 29 3d 58  |%(i%)):OX1(i%)=X|
00004ec0  31 3a 4f 59 31 28 69 25  29 3d 59 31 0d 20 3a 05  |1:OY1(i%)=Y1. :.|
00004ed0  ed 0d 20 44 0e e3 69 25  3d 31 b8 47 4e 53 25 0d  |.. D..i%=1.GNS%.|
00004ee0  20 4e 1c 20 4f 74 79 70  25 28 69 25 2b 74 72 65  | N. Otyp%(i%+tre|
00004ef0  65 73 25 29 3d 31 30 30  2b 69 25 0d 20 58 45 20  |es%)=100+i%. XE |
00004f00  f2 58 59 30 31 28 47 4e  58 25 28 69 25 2c 31 29  |.XY01(GNX%(i%,1)|
00004f10  2c 47 4e 59 25 28 69 25  2c 31 29 29 3a 4f 58 31  |,GNY%(i%,1)):OX1|
00004f20  28 69 25 2b 74 72 65 65  73 25 29 3d 58 31 3a 4f  |(i%+trees%)=X1:O|
00004f30  59 31 28 69 25 2b 74 72  65 65 73 25 29 3d 59 31  |Y1(i%+trees%)=Y1|
00004f40  0d 20 62 05 ed 0d 20 6c  15 6f 62 6a 73 25 3d 74  |. b... l.objs%=t|
00004f50  72 65 65 73 25 2b 47 4e  53 25 0d 20 76 11 e7 42  |rees%+GNS%. v..B|
00004f60  6e 6b 73 25 3d 30 8c 8d  74 7c 60 0d 20 80 0f e3  |nks%=0..t|`. ...|
00004f70  69 25 3d 31 b8 42 6e 6b  73 25 0d 20 8a 1b 20 4f  |i%=1.Bnks%. .. O|
00004f80  74 79 70 25 28 69 25 2b  6f 62 6a 73 25 29 3d 32  |typ%(i%+objs%)=2|
00004f90  30 30 2b 69 25 0d 20 94  41 20 f2 58 59 30 31 28  |00+i%. .A .XY01(|
00004fa0  42 78 25 28 69 25 2c 30  29 2c 42 79 25 28 69 25  |Bx%(i%,0),By%(i%|
00004fb0  2c 30 29 29 3a 4f 58 31  28 69 25 2b 6f 62 6a 73  |,0)):OX1(i%+objs|
00004fc0  25 29 3d 58 31 3a 4f 59  31 28 69 25 2b 6f 62 6a  |%)=X1:OY1(i%+obj|
00004fd0  73 25 29 3d 59 31 0d 20  9e 05 ed 0d 20 a8 15 6f  |s%)=Y1. .... ..o|
00004fe0  62 6a 73 25 3d 6f 62 6a  73 25 2b 42 6e 6b 73 25  |bjs%=objs%+Bnks%|
00004ff0  0d 20 b2 0f e7 57 61 25  3d 30 8c 8d 64 6e 60 0d  |. ...Wa%=0..dn`.|
00005000  20 bc 0d e3 69 25 3d 31  b8 57 61 25 0d 20 c6 1b  | ...i%=1.Wa%. ..|
00005010  20 4f 74 79 70 25 28 69  25 2b 6f 62 6a 73 25 29  | Otyp%(i%+objs%)|
00005020  3d 34 30 30 2b 69 25 0d  20 d0 41 20 f2 58 59 30  |=400+i%. .A .XY0|
00005030  31 28 57 78 25 28 69 25  2c 30 29 2c 57 79 25 28  |1(Wx%(i%,0),Wy%(|
00005040  69 25 2c 30 29 29 3a 4f  58 31 28 69 25 2b 6f 62  |i%,0)):OX1(i%+ob|
00005050  6a 73 25 29 3d 58 31 3a  4f 59 31 28 69 25 2b 6f  |js%)=X1:OY1(i%+o|
00005060  62 6a 73 25 29 3d 59 31  0d 20 da 05 ed 0d 20 e4  |bjs%)=Y1. .... .|
00005070  13 6f 62 6a 73 25 3d 6f  62 6a 73 25 2b 57 61 25  |.objs%=objs%+Wa%|
00005080  0d 20 ee 10 e7 4f 42 43  25 3d 30 8c 8d 54 60 61  |. ...OBC%=0..T`a|
00005090  0d 20 f8 0e e3 69 25 3d  31 b8 4f 42 43 25 0d 21  |. ...i%=1.OBC%.!|
000050a0  02 1b 20 4f 74 79 70 25  28 69 25 2b 6f 62 6a 73  |.. Otyp%(i%+objs|
000050b0  25 29 3d 35 30 30 2b 69  25 0d 21 0c 3f 20 f2 58  |%)=500+i%.!.? .X|
000050c0  59 30 31 28 4f 42 58 25  28 69 25 29 2c 4f 42 59  |Y01(OBX%(i%),OBY|
000050d0  25 28 69 25 29 29 3a 4f  58 31 28 69 25 2b 6f 62  |%(i%)):OX1(i%+ob|
000050e0  6a 73 25 29 3d 58 31 3a  4f 59 31 28 69 25 2b 6f  |js%)=X1:OY1(i%+o|
000050f0  62 6a 73 25 29 3d 59 31  0d 21 16 05 ed 0d 21 20  |bjs%)=Y1.!....! |
00005100  16 6f 62 6a 73 25 3d 6f  62 6a 73 25 2b 4f 42 43  |.objs%=objs%+OBC|
00005110  25 2b 31 0d 21 2a 47 4f  74 79 70 25 28 6f 62 6a  |%+1.!*GOtyp%(obj|
00005120  73 25 29 3d 33 30 31 3a  f2 58 59 30 31 28 54 45  |s%)=301:.XY01(TE|
00005130  58 25 28 30 29 2c 54 45  59 25 28 30 29 29 3a 4f  |X%(0),TEY%(0)):O|
00005140  58 31 28 6f 62 6a 73 25  29 3d 58 31 3a 4f 59 31  |X1(objs%)=X1:OY1|
00005150  28 6f 62 6a 73 25 29 3d  59 31 0d 21 34 17 63 75  |(objs%)=Y1.!4.cu|
00005160  72 6f 62 6a 25 3d 31 3a  f2 73 6f 72 74 6f 62 6a  |robj%=1:.sortobj|
00005170  73 0d 21 3e 2f e6 30 2c  30 c8 9c 30 3a ec 30 2c  |s.!>/.0,0..0:.0,|
00005180  30 3a ec 31 32 38 30 2c  30 3a f0 38 35 2c 30 2c  |0:.1280,0:.85,0,|
00005190  32 35 30 3a f0 38 35 2c  31 32 38 30 2c 32 35 30  |250:.85,1280,250|
000051a0  0d 21 48 09 53 42 25 3d  30 0d 21 52 16 e7 28 ac  |.!H.SB%=0.!R..(.|
000051b0  a4 6f 6e 74 65 65 29 80  6e 6f 50 25 3e 31 8c 0d  |.ontee).noP%>1..|
000051c0  21 5c 0b 20 f2 77 68 6f  73 65 0d 21 66 0f 20 e3  |!\. .whose.!f. .|
000051d0  69 25 3d 31 b8 6e 6f 50  25 0d 21 70 1d 20 20 e7  |i%=1.noP%.!p.  .|
000051e0  28 69 25 3c 3e 70 75 25  29 80 ac 68 6f 6c 65 64  |(i%<>pu%)..holed|
000051f0  25 28 69 25 29 8c 0d 21  7a 28 20 20 20 e7 28 62  |%(i%)..!z(   .(b|
00005200  68 64 62 6c 25 28 69 25  29 3c 3e 32 34 29 80 62  |hdbl%(i%)<>24).b|
00005210  68 64 62 6c 25 28 69 25  29 3c 3e 32 35 8c 0d 21  |hdbl%(i%)<>25..!|
00005220  84 22 20 20 20 20 f2 58  59 30 31 28 62 61 6c 6c  |."    .XY01(ball|
00005230  78 28 69 25 29 2c 62 61  6c 6c 79 28 69 25 29 29  |x(i%),bally(i%))|
00005240  0d 21 8e 10 20 20 20 20  e7 59 31 3e 31 36 30 8c  |.!..    .Y1>160.|
00005250  0d 21 98 12 20 20 20 20  20 53 42 25 3d 53 42 25  |.!..     SB%=SB%|
00005260  2b 31 0d 21 a2 22 20 20  20 20 20 53 42 58 31 28  |+1.!."     SBX1(|
00005270  53 42 25 29 3d 58 31 3a  53 42 59 31 28 53 42 25  |SB%)=X1:SBY1(SB%|
00005280  29 3d 59 31 0d 21 ac 14  20 20 20 20 20 53 42 50  |)=Y1.!..     SBP|
00005290  25 28 53 42 25 29 3d a3  0d 21 b6 09 20 20 20 20  |%(SB%)=..!..    |
000052a0  cd 0d 21 c0 08 20 20 20  cd 0d 21 ca 07 20 20 cd  |..!..   ..!..  .|
000052b0  0d 21 d4 06 20 ed 0d 21  de 05 cd 0d 21 e8 1b 62  |.!.. ..!....!..b|
000052c0  61 6c 6c 7a 3d a4 47 68  74 28 62 61 6c 6c 78 2c  |allz=.Ght(ballx,|
000052d0  62 61 6c 6c 79 29 0d 21  f2 48 e6 30 2c 35 36 c8  |bally).!.H.0,56.|
000052e0  9c 31 39 32 3a ec 30 2c  31 30 32 34 3a ec 30 2c  |.192:.0,1024:.0,|
000052f0  53 43 25 2a 31 35 30 2b  35 30 30 3a f0 38 35 2c  |SC%*150+500:.85,|
00005300  31 32 38 30 2c 31 30 32  34 3a f0 38 35 2c 31 32  |1280,1024:.85,12|
00005310  38 30 2c 53 43 25 2a 31  35 30 2b 35 30 30 0d 21  |80,SC%*150+500.!|
00005320  fc 4b e6 30 2c 38 2d 4c  49 4e 4b 53 25 c8 9c 36  |.K.0,8-LINKS%..6|
00005330  34 3a ec 30 2c 53 43 25  2a 31 35 30 2b 35 30 30  |4:.0,SC%*150+500|
00005340  3a ec 30 2c 32 36 30 3a  f0 38 35 2c 31 32 38 30  |:.0,260:.85,1280|
00005350  2c 53 43 25 2a 31 35 30  2b 35 30 30 3a f0 38 35  |,SC%*150+500:.85|
00005360  2c 31 32 38 30 2c 32 36  30 0d 22 06 15 78 25 3d  |,1280,260."..x%=|
00005370  64 61 2f 50 49 33 36 30  2a 31 32 38 30 30 0d 22  |da/PI360*12800."|
00005380  10 08 e6 30 2c 30 0d 22  1a 1a ff 28 22 53 43 48  |...0,0."...("SCH|
00005390  4f 4f 53 45 20 22 2b 63  73 70 72 69 74 65 24 29  |OOSE "+csprite$)|
000053a0  0d 22 24 20 e7 78 25 3c  31 32 38 30 8c f0 26 45  |."$ .x%<1280..&E|
000053b0  44 2c 78 25 2c 35 30 30  2b 53 43 25 2a 31 35 30  |D,x%,500+SC%*150|
000053c0  0d 22 2e 1d f0 26 45 44  2c 78 25 2d 31 32 38 30  |."...&ED,x%-1280|
000053d0  30 2c 35 30 30 2b 31 35  30 2a 53 43 25 0d 22 38  |0,500+150*SC%."8|
000053e0  18 f2 59 31 32 28 4f 59  31 28 53 4f 25 28 31 29  |..Y12(OY1(SO%(1)|
000053f0  29 2b 34 30 29 0d 22 42  27 79 32 3d a4 6d 69 6e  |)+40)."B'y2=.min|
00005400  28 59 32 2b 34 30 2c 32  36 30 2a 53 43 25 2b 32  |(Y2+40,260*SC%+2|
00005410  37 38 29 3a f2 59 32 31  28 79 32 29 0d 22 4c 0a  |78):.Y21(y2)."L.|
00005420  4f 59 31 3d 59 31 0d 22  56 18 62 7a 32 63 25 3d  |OY1=Y1."V.bz2c%=|
00005430  a4 68 74 32 28 62 61 6c  6c 7a 2c 59 31 29 0d 22  |.ht2(ballz,Y1)."|
00005440  60 12 e3 78 32 3d 30 b8  31 32 38 30 88 58 53 25  |`..x2=0.1280.XS%|
00005450  0d 22 6a 11 20 69 25 3d  78 32 20 81 58 53 25 2b  |."j. i%=x2 .XS%+|
00005460  31 0d 22 74 0d 20 f2 58  32 31 28 78 32 29 0d 22  |1."t. .X21(x2)."|
00005470  7e 0a 20 f2 58 59 31 30  0d 22 88 18 20 58 25 28  |~. .XY10.".. X%(|
00005480  69 25 29 3d 58 30 3a 59  25 28 69 25 29 3d 59 30  |i%)=X0:Y%(i%)=Y0|
00005490  0d 22 92 1a 20 43 25 28  69 25 29 3d a4 70 6c 61  |.".. C%(i%)=.pla|
000054a0  6e 70 74 28 58 30 2c 59  30 29 0d 22 9c 20 20 48  |npt(X0,Y0).".  H|
000054b0  25 28 69 25 29 3d a4 68  74 32 28 a4 47 68 74 28  |%(i%)=.ht2(.Ght(|
000054c0  58 30 2c 59 30 29 2c 59  31 29 0d 22 a6 05 ed 0d  |X0,Y0),Y1)."....|
000054d0  22 b0 0d 79 32 3d 79 32  2d 59 53 25 0d 22 ba 05  |"..y2=y2-YS%."..|
000054e0  f5 0d 22 c4 0f 20 59 53  32 25 3d 59 53 25 81 32  |..".. YS2%=YS%.2|
000054f0  0d 22 ce 30 20 70 33 78  25 3d 58 25 28 31 29 3a  |.".0 p3x%=X%(1):|
00005500  70 33 79 25 3d 59 25 28  31 29 3a 70 33 63 25 3d  |p3y%=Y%(1):p3c%=|
00005510  43 25 28 31 29 3a 70 33  68 25 3d 48 25 28 31 29  |C%(1):p3h%=H%(1)|
00005520  0d 22 d8 14 20 f2 59 32  31 28 79 32 29 3a 43 59  |.".. .Y21(y2):CY|
00005530  31 3d 59 31 0d 22 e2 12  20 e7 4f 59 31 3c 31 38  |1=Y1.".. .OY1<18|
00005540  30 8c 8d 74 50 64 0d 22  ec 12 20 f2 58 32 31 28  |0..tPd.".. .X21(|
00005550  30 29 3a f2 58 59 31 30  0d 22 f6 42 20 70 34 78  |0):.XY10.".B p4x|
00005560  25 3d 58 30 3a 70 34 79  25 3d 59 30 3a 70 34 63  |%=X0:p4y%=Y0:p4c|
00005570  25 3d a4 70 6c 61 6e 70  74 28 58 30 2c 59 30 29  |%=.planpt(X0,Y0)|
00005580  3a 70 34 68 25 3d a4 68  74 32 28 a4 47 68 74 28  |:p4h%=.ht2(.Ght(|
00005590  58 30 2c 59 30 29 2c 59  31 29 0d 23 00 3b 20 62  |X0,Y0),Y1).#.; b|
000055a0  7a 32 61 25 3d 62 7a 32  63 25 3a 62 7a 32 63 25  |z2a%=bz2c%:bz2c%|
000055b0  3d a4 68 74 32 28 62 61  6c 6c 7a 2c 59 31 29 3a  |=.ht2(ballz,Y1):|
000055c0  62 7a 32 62 25 3d 28 62  7a 32 61 25 2b 62 7a 32  |bz2b%=(bz2a%+bz2|
000055d0  63 25 29 81 32 0d 23 0a  30 20 58 25 28 31 29 3d  |c%).2.#.0 X%(1)=|
000055e0  70 34 78 25 3a 59 25 28  31 29 3d 70 34 79 25 3a  |p4x%:Y%(1)=p4y%:|
000055f0  43 25 28 31 29 3d 70 34  63 25 3a 48 25 28 31 29  |C%(1)=p4c%:H%(1)|
00005600  3d 70 34 68 25 0d 23 14  15 20 e3 78 32 3d 58 53  |=p4h%.#.. .x2=XS|
00005610  25 b8 31 32 38 30 88 58  53 25 0d 23 1e 12 20 20  |%.1280.XS%.#..  |
00005620  69 25 3d 78 32 20 81 58  53 25 2b 31 0d 23 28 2d  |i%=x2 .XS%+1.#(-|
00005630  20 20 70 31 78 25 3d 70  33 78 25 3a 70 31 79 25  |  p1x%=p3x%:p1y%|
00005640  3d 70 33 79 25 3a 70 31  63 25 3d 70 33 63 25 3a  |=p3y%:p1c%=p3c%:|
00005650  70 31 68 25 3d 70 33 68  25 0d 23 32 2d 20 20 70  |p1h%=p3h%.#2-  p|
00005660  32 78 25 3d 70 34 78 25  3a 70 32 79 25 3d 70 34  |2x%=p4x%:p2y%=p4|
00005670  79 25 3a 70 32 63 25 3d  70 34 63 25 3a 70 32 68  |y%:p2c%=p4c%:p2h|
00005680  25 3d 70 34 68 25 0d 23  3c 35 20 20 70 33 78 25  |%=p4h%.#<5  p3x%|
00005690  3d 58 25 28 69 25 29 3a  70 33 79 25 3d 59 25 28  |=X%(i%):p3y%=Y%(|
000056a0  69 25 29 3a 70 33 63 25  3d 43 25 28 69 25 29 3a  |i%):p3c%=C%(i%):|
000056b0  70 33 68 25 3d 48 25 28  69 25 29 0d 23 46 14 20  |p3h%=H%(i%).#F. |
000056c0  20 f2 58 32 31 28 78 32  29 3a f2 58 59 31 30 0d  | .X21(x2):.XY10.|
000056d0  23 50 43 20 20 70 34 78  25 3d 58 30 3a 70 34 79  |#PC  p4x%=X0:p4y|
000056e0  25 3d 59 30 3a 70 34 63  25 3d a4 70 6c 61 6e 70  |%=Y0:p4c%=.planp|
000056f0  74 28 58 30 2c 59 30 29  3a 70 34 68 25 3d a4 68  |t(X0,Y0):p4h%=.h|
00005700  74 32 28 a4 47 68 74 28  58 30 2c 59 30 29 2c 59  |t2(.Ght(X0,Y0),Y|
00005710  31 29 0d 23 5a 35 20 20  58 25 28 69 25 29 3d 70  |1).#Z5  X%(i%)=p|
00005720  34 78 25 3a 59 25 28 69  25 29 3d 70 34 79 25 3a  |4x%:Y%(i%)=p4y%:|
00005730  43 25 28 69 25 29 3d 70  34 63 25 3a 48 25 28 69  |C%(i%)=p4c%:H%(i|
00005740  25 29 3d 70 34 68 25 0d  23 64 2d 20 20 4f 59 31  |%)=p4h%.#d-  OY1|
00005750  31 3d 4f 59 31 2d 59 31  3a 78 32 58 53 25 3d 78  |1=OY1-Y1:x2XS%=x|
00005760  32 2d 58 53 25 3a 78 32  58 53 32 25 3d 78 32 2d  |2-XS%:x2XS2%=x2-|
00005770  58 53 32 25 0d 23 6e 21  20 20 79 32 59 53 25 3d  |XS2%.#n!  y2YS%=|
00005780  79 32 2b 59 53 25 3a 79  32 59 53 32 25 3d 79 32  |y2+YS%:y2YS2%=y2|
00005790  2b 59 53 32 25 0d 23 78  25 20 20 70 31 32 68 25  |+YS2%.#x%  p12h%|
000057a0  3d 70 31 68 25 2b 70 32  68 25 3a 70 33 34 68 25  |=p1h%+p2h%:p34h%|
000057b0  3d 70 33 68 25 2b 70 34  68 25 0d 23 82 2f 20 20  |=p3h%+p4h%.#./  |
000057c0  70 31 33 44 32 25 3d 28  70 31 68 25 2b 70 33 68  |p13D2%=(p1h%+p3h|
000057d0  25 29 81 32 3a 70 32 34  44 32 25 3d 28 70 32 68  |%).2:p24D2%=(p2h|
000057e0  25 2b 70 34 68 25 29 81  32 0d 23 8c 23 20 20 70  |%+p4h%).2.#.#  p|
000057f0  31 32 44 32 25 3d 70 31  32 68 25 81 32 3a 70 33  |12D2%=p12h%.2:p3|
00005800  34 44 32 25 3d 70 33 34  68 25 81 32 0d 23 96 1e  |4D2%=p34h%.2.#..|
00005810  20 20 70 31 32 33 34 44  34 25 3d 28 70 31 32 68  |  p1234D4%=(p12h|
00005820  25 2b 70 33 34 68 25 29  81 34 0d 23 a0 28 20 20  |%+p34h%).4.#.(  |
00005830  73 6d 25 3d 28 70 32 68  25 2b 70 34 68 25 2d 70  |sm%=(p2h%+p4h%-p|
00005840  31 68 25 2d 70 33 68 25  29 2a 31 30 30 2f 4f 59  |1h%-p3h%)*100/OY|
00005850  31 31 0d 23 aa 39 20 20  73 31 32 25 3d 28 70 32  |11.#.9  s12%=(p2|
00005860  68 25 2d 70 31 68 25 29  2a 32 30 30 2f 4f 59 31  |h%-p1h%)*200/OY1|
00005870  31 3a 73 33 34 25 3d 28  70 34 68 25 2d 70 33 68  |1:s34%=(p4h%-p3h|
00005880  25 29 2a 32 30 30 2f 4f  59 31 31 0d 23 b4 43 20  |%)*200/OY11.#.C |
00005890  20 70 6d 63 25 3d a4 70  6c 61 6e 70 74 28 28 70  | pmc%=.planpt((p|
000058a0  31 78 25 2b 70 32 78 25  2b 70 33 78 25 2b 70 34  |1x%+p2x%+p3x%+p4|
000058b0  78 25 29 81 34 2c 28 70  31 79 25 2b 70 32 79 25  |x%).4,(p1y%+p2y%|
000058c0  2b 70 33 79 25 2b 70 34  79 25 29 81 34 29 0d 23  |+p3y%+p4y%).4).#|
000058d0  be 17 20 20 f2 67 63 6f  6c 72 28 70 31 63 25 2c  |..  .gcolr(p1c%,|
000058e0  73 31 32 25 29 0d 23 c8  26 20 20 ec 78 32 58 53  |s12%).#.&  .x2XS|
000058f0  25 2c a4 44 48 28 79 32  59 53 25 2b 70 31 68 25  |%,.DH(y2YS%+p1h%|
00005900  2d 62 7a 32 61 25 2c 4f  59 31 29 0d 23 d2 29 20  |-bz2a%,OY1).#.) |
00005910  20 ec 78 32 58 53 25 2c  a4 44 48 28 79 32 59 53  | .x2XS%,.DH(y2YS|
00005920  32 25 2b 70 31 32 44 32  25 2d 62 7a 32 62 25 2c  |2%+p12D2%-bz2b%,|
00005930  4f 59 31 29 0d 23 dc 2c  20 20 f0 38 35 2c 78 32  |OY1).#.,  .85,x2|
00005940  58 53 32 25 2c a4 44 48  28 79 32 59 53 25 2b 70  |XS2%,.DH(y2YS%+p|
00005950  31 33 44 32 25 2d 62 7a  32 61 25 2c 4f 59 31 29  |13D2%-bz2a%,OY1)|
00005960  0d 23 e6 16 20 20 f2 67  63 6f 6c 72 28 70 6d 63  |.#..  .gcolr(pmc|
00005970  25 2c 73 6d 25 29 0d 23  f0 2f 20 20 f0 38 35 2c  |%,sm%).#./  .85,|
00005980  78 32 58 53 32 25 2c a4  44 48 28 79 32 59 53 32  |x2XS2%,.DH(y2YS2|
00005990  25 2b 70 31 32 33 34 44  34 25 2d 62 7a 32 62 25  |%+p1234D4%-bz2b%|
000059a0  2c 4f 59 31 29 0d 23 fa  29 20 20 f0 38 35 2c 78  |,OY1).#.)  .85,x|
000059b0  32 2c a4 44 48 28 79 32  59 53 32 25 2b 70 33 34  |2,.DH(y2YS2%+p34|
000059c0  44 32 25 2d 62 7a 32 62  25 2c 4f 59 31 29 0d 24  |D2%-bz2b%,OY1).$|
000059d0  04 17 20 20 f2 67 63 6f  6c 72 28 70 33 63 25 2c  |..  .gcolr(p3c%,|
000059e0  73 33 34 25 29 0d 24 0e  29 20 20 ec 78 32 58 53  |s34%).$.)  .x2XS|
000059f0  32 25 2c a4 44 48 28 79  32 59 53 25 2b 70 31 33  |2%,.DH(y2YS%+p13|
00005a00  44 32 25 2d 62 7a 32 61  25 2c 4f 59 31 29 0d 24  |D2%-bz2a%,OY1).$|
00005a10  18 26 20 20 f0 38 35 2c  78 32 2c a4 44 48 28 79  |.&  .85,x2,.DH(y|
00005a20  32 59 53 25 2b 70 33 68  25 2d 62 7a 32 61 25 2c  |2YS%+p3h%-bz2a%,|
00005a30  4f 59 31 29 0d 24 22 17  20 20 f2 67 63 6f 6c 72  |OY1).$".  .gcolr|
00005a40  28 70 32 63 25 2c 73 31  32 25 29 0d 24 2c 22 20  |(p2c%,s12%).$," |
00005a50  20 ec 78 32 58 53 25 2c  a4 44 48 28 79 32 2b 70  | .x2XS%,.DH(y2+p|
00005a60  32 68 25 2d 62 7a 32 63  25 2c 59 31 29 0d 24 36  |2h%-bz2c%,Y1).$6|
00005a70  29 20 20 ec 78 32 58 53  25 2c a4 44 48 28 79 32  |)  .x2XS%,.DH(y2|
00005a80  59 53 32 25 2b 70 31 32  44 32 25 2d 62 7a 32 62  |YS2%+p12D2%-bz2b|
00005a90  25 2c 4f 59 31 29 0d 24  40 28 20 20 f0 38 35 2c  |%,OY1).$@(  .85,|
00005aa0  78 32 58 53 32 25 2c a4  44 48 28 79 32 2b 70 32  |x2XS2%,.DH(y2+p2|
00005ab0  34 44 32 25 2d 62 7a 32  63 25 2c 59 31 29 0d 24  |4D2%-bz2c%,Y1).$|
00005ac0  4a 16 20 20 f2 67 63 6f  6c 72 28 70 6d 63 25 2c  |J.  .gcolr(pmc%,|
00005ad0  73 6d 25 29 0d 24 54 2f  20 20 f0 38 35 2c 78 32  |sm%).$T/  .85,x2|
00005ae0  58 53 32 25 2c a4 44 48  28 79 32 59 53 32 25 2b  |XS2%,.DH(y2YS2%+|
00005af0  70 31 32 33 34 44 34 25  2d 62 7a 32 62 25 2c 4f  |p1234D4%-bz2b%,O|
00005b00  59 31 29 0d 24 5e 29 20  20 f0 38 35 2c 78 32 2c  |Y1).$^)  .85,x2,|
00005b10  a4 44 48 28 79 32 59 53  32 25 2b 70 33 34 44 32  |.DH(y2YS2%+p34D2|
00005b20  25 2d 62 7a 32 62 25 2c  4f 59 31 29 0d 24 68 17  |%-bz2b%,OY1).$h.|
00005b30  20 20 f2 67 63 6f 6c 72  28 70 34 63 25 2c 73 33  |  .gcolr(p4c%,s3|
00005b40  34 25 29 0d 24 72 25 20  20 ec 78 32 58 53 32 25  |4%).$r%  .x2XS2%|
00005b50  2c a4 44 48 28 79 32 2b  70 32 34 44 32 25 2d 62  |,.DH(y2+p24D2%-b|
00005b60  7a 32 63 25 2c 59 31 29  0d 24 7c 22 20 20 f0 38  |z2c%,Y1).$|"  .8|
00005b70  35 2c 78 32 2c a4 44 48  28 79 32 2b 70 34 68 25  |5,x2,.DH(y2+p4h%|
00005b80  2d 62 7a 32 63 25 2c 59  31 29 0d 24 86 06 20 ed  |-bz2c%,Y1).$.. .|
00005b90  0d 24 90 0d 20 63 75 72  79 25 3d 59 31 0d 24 9a  |.$.. cury%=Y1.$.|
00005ba0  33 20 c8 95 28 4f 59 31  28 53 4f 25 28 63 75 72  |3 ..(OY1(SO%(cur|
00005bb0  6f 62 6a 25 29 29 3e 63  75 72 79 25 2b 34 30 29  |obj%))>cury%+40)|
00005bc0  80 63 75 72 6f 62 6a 25  3c 6f 62 6a 73 25 2b 31  |.curobj%<objs%+1|
00005bd0  0d 24 a4 1f 20 20 e7 4f  74 79 70 25 28 53 4f 25  |.$..  .Otyp%(SO%|
00005be0  28 63 75 72 6f 62 6a 25  29 29 3c 31 30 30 8c 0d  |(curobj%))<100..|
00005bf0  24 ae 79 20 20 20 f2 64  72 61 77 74 72 65 65 28  |$.y   .drawtree(|
00005c00  74 72 65 65 74 79 70 25  28 53 4f 25 28 63 75 72  |treetyp%(SO%(cur|
00005c10  6f 62 6a 25 29 29 2c 4f  58 31 28 53 4f 25 28 63  |obj%)),OX1(SO%(c|
00005c20  75 72 6f 62 6a 25 29 29  2c 4f 59 31 28 53 4f 25  |urobj%)),OY1(SO%|
00005c30  28 63 75 72 6f 62 6a 25  29 29 20 20 20 2c 74 72  |(curobj%))   ,tr|
00005c40  65 65 78 25 28 53 4f 25  28 63 75 72 6f 62 6a 25  |eex%(SO%(curobj%|
00005c50  29 29 2c 74 72 65 65 79  25 28 53 4f 25 28 63 75  |)),treey%(SO%(cu|
00005c60  72 6f 62 6a 25 29 29 29  0d 24 b8 07 20 20 cc 0d  |robj%))).$..  ..|
00005c70  24 c2 1f 20 20 e7 4f 74  79 70 25 28 53 4f 25 28  |$..  .Otyp%(SO%(|
00005c80  63 75 72 6f 62 6a 25 29  29 3c 32 30 30 8c 0d 24  |curobj%))<200..$|
00005c90  cc 32 20 20 20 f2 64 72  61 77 67 72 6e 28 4f 74  |.2   .drawgrn(Ot|
00005ca0  79 70 25 28 53 4f 25 28  63 75 72 6f 62 6a 25 29  |yp%(SO%(curobj%)|
00005cb0  29 2d 31 30 30 29 3a 70  73 25 3d 70 73 25 2b 31  |)-100):ps%=ps%+1|
00005cc0  0d 24 d6 07 20 20 cc 0d  24 e0 1f 20 20 e7 4f 74  |.$..  ..$..  .Ot|
00005cd0  79 70 25 28 53 4f 25 28  63 75 72 6f 62 6a 25 29  |yp%(SO%(curobj%)|
00005ce0  29 3c 33 30 30 8c 0d 24  ea 29 20 20 20 f2 64 72  |)<300..$.)   .dr|
00005cf0  61 77 74 72 61 70 28 4f  74 79 70 25 28 53 4f 25  |awtrap(Otyp%(SO%|
00005d00  28 63 75 72 6f 62 6a 25  29 29 2d 32 30 30 29 0d  |(curobj%))-200).|
00005d10  24 f4 07 20 20 cc 0d 24  fe 1f 20 20 e7 4f 74 79  |$..  ..$..  .Oty|
00005d20  70 25 28 53 4f 25 28 63  75 72 6f 62 6a 25 29 29  |p%(SO%(curobj%))|
00005d30  3c 34 30 30 8c 0d 25 08  0f 20 20 20 f2 64 72 61  |<400..%..   .dra|
00005d40  77 74 65 65 0d 25 12 07  20 20 cc 0d 25 1c 1f 20  |wtee.%..  ..%.. |
00005d50  20 e7 4f 74 79 70 25 28  53 4f 25 28 63 75 72 6f  | .Otyp%(SO%(curo|
00005d60  62 6a 25 29 29 3c 35 30  30 8c 0d 25 26 26 20 20  |bj%))<500..%&&  |
00005d70  20 f2 77 61 74 65 72 28  4f 74 79 70 25 28 53 4f  | .water(Otyp%(SO|
00005d80  25 28 63 75 72 6f 62 6a  25 29 29 2d 34 30 30 29  |%(curobj%))-400)|
00005d90  0d 25 30 07 20 20 cc 0d  25 3a 1f 20 20 e7 4f 74  |.%0.  ..%:.  .Ot|
00005da0  79 70 25 28 53 4f 25 28  63 75 72 6f 62 6a 25 29  |yp%(SO%(curobj%)|
00005db0  29 3c 36 30 30 8c 0d 25  44 25 20 20 20 f2 70 6f  |)<600..%D%   .po|
00005dc0  73 74 28 4f 74 79 70 25  28 53 4f 25 28 63 75 72  |st(Otyp%(SO%(cur|
00005dd0  6f 62 6a 25 29 29 2d 35  30 30 29 0d 25 4e 07 20  |obj%))-500).%N. |
00005de0  20 cd 0d 25 58 07 20 20  cd 0d 25 62 07 20 20 cd  | ..%X.  ..%b.  .|
00005df0  0d 25 6c 07 20 20 cd 0d  25 76 07 20 20 cd 0d 25  |.%l.  ..%v.  ..%|
00005e00  80 07 20 20 cd 0d 25 8a  10 20 20 63 75 72 6f 62  |..  ..%..  curob|
00005e10  6a 25 2b 3d 31 0d 25 94  06 20 ce 0d 25 9e 0e 20  |j%+=1.%.. ..%.. |
00005e20  e7 70 73 25 3c 39 30 30  8c 0d 25 a8 39 20 20 e7  |.ps%<900..%.9  .|
00005e30  28 70 73 25 3d 47 4e 53  25 29 84 28 66 79 31 25  |(ps%=GNS%).(fy1%|
00005e40  3e 43 59 31 2b 36 30 29  84 43 59 31 3c 31 30 30  |>CY1+60).CY1<100|
00005e50  8c f2 64 72 61 77 66 6c  61 67 3a 70 73 25 3d 39  |..drawflag:ps%=9|
00005e60  39 39 0d 25 b2 06 20 cd  0d 25 bc 0c 20 e7 53 42  |99.%.. ..%.. .SB|
00005e70  25 3e 30 8c 0d 25 c6 0f  20 20 e3 69 25 3d 31 b8  |%>0..%..  .i%=1.|
00005e80  53 42 25 0d 25 d0 12 20  20 20 e7 ac 53 42 50 25  |SB%.%..   ..SBP%|
00005e90  28 69 25 29 8c 0d 25 da  45 20 20 20 20 e7 28 53  |(i%)..%.E    .(S|
00005ea0  42 59 31 28 69 25 29 3e  43 59 31 2b 38 30 29 84  |BY1(i%)>CY1+80).|
00005eb0  43 59 31 3c 31 30 30 f2  6f 70 62 6c 28 53 42 58  |CY1<100.opbl(SBX|
00005ec0  31 28 69 25 29 2c 53 42  59 31 28 69 25 29 29 3a  |1(i%),SBY1(i%)):|
00005ed0  53 42 50 25 28 69 25 29  3d b9 0d 25 e4 08 20 20  |SBP%(i%)=..%..  |
00005ee0  20 cd 0d 25 ee 07 20 20  ed 0d 25 f8 06 20 cd 0d  | ..%..  ..%.. ..|
00005ef0  26 02 27 20 e7 28 53 43  25 3d 33 29 84 43 59 31  |&.' .(SC%=3).CY1|
00005f00  3c 37 32 30 59 53 25 3d  a4 6d 69 6e 28 59 53 25  |<720YS%=.min(YS%|
00005f10  2b 34 2c 39 39 29 0d 26  0c 16 20 79 32 3d 79 32  |+4,99).&.. y2=y2|
00005f20  2d 59 53 25 3a 4f 59 31  3d 43 59 31 0d 26 16 0c  |-YS%:OY1=CY1.&..|
00005f30  fd 43 59 31 3c 31 30 30  0d 26 20 12 e7 b0 36 34  |.CY1<100.& ...64|
00005f40  30 2c 32 37 36 29 3d 33  36 8c 0d 26 2a 09 20 79  |0,276)=36..&*. y|
00005f50  25 3d 30 0d 26 34 06 20  f5 0d 26 3e 0d 20 20 79  |%=0.&4. ..&>.  y|
00005f60  25 3d 79 25 2b 34 0d 26  48 27 20 20 70 25 3d b0  |%=y%+4.&H'  p%=.|
00005f70  36 34 30 2c 32 37 36 2d  79 25 29 3a 74 25 3d c8  |640,276-y%):t%=.|
00005f80  9c 28 36 34 30 2c 32 37  36 2d 79 25 29 0d 26 52  |.(640,276-y%).&R|
00005f90  0d 20 20 e7 70 25 3d 33  36 8c 0d 26 5c 28 20 20  |.  .p%=36..&\(  |
00005fa0  20 70 25 3d b0 36 34 30  2c 32 37 36 2b 79 25 29  | p%=.640,276+y%)|
00005fb0  3a 74 25 3d c8 9c 28 36  34 30 2c 32 37 36 2b 79  |:t%=..(640,276+y|
00005fc0  25 29 0d 26 66 07 20 20  cd 0d 26 70 14 20 fd 28  |%).&f.  ..&p. .(|
00005fd0  70 25 3c 3e 33 36 29 84  79 25 3e 32 34 0d 26 7a  |p%<>36).y%>24.&z|
00005fe0  1c 20 ec 36 31 30 2c 32  38 30 2b 79 25 3a ec 36  |. .610,280+y%:.6|
00005ff0  37 30 2c 32 38 30 2b 79  25 0d 26 84 0e 20 e6 30  |70,280+y%.&.. .0|
00006000  2c 70 25 c8 9c 74 25 0d  26 8e 22 20 f0 38 35 2c  |,p%..t%.&." .85,|
00006010  36 31 30 2c 32 37 32 2d  79 25 3a f0 38 35 2c 36  |610,272-y%:.85,6|
00006020  37 30 2c 32 37 32 2d 79  25 0d 26 98 05 cd 0d 26  |70,272-y%.&....&|
00006030  a2 36 62 68 64 62 6c 25  3d 62 68 64 62 6c 25 28  |.6bhdbl%=bhdbl%(|
00006040  70 75 25 29 3a 62 68 64  62 6c 32 25 3d b0 36 34  |pu%):bhdbl2%=.64|
00006050  30 2c 32 37 36 29 3a 6f  6e 67 25 3d a4 6f 6e 67  |0,276):ong%=.ong|
00006060  72 65 65 6e 0d 26 ac 0b  f2 64 72 61 77 69 6e 0d  |reen.&...drawin.|
00006070  26 b6 05 e1 0d 26 c0 05  20 0d 26 ca 05 20 0d 26  |&....&.. .&.. .&|
00006080  d4 0e dd f2 69 6e 62 6f  72 64 65 72 0d 26 de 5d  |....inborder.&.]|
00006090  e6 30 2c 34 32 c8 9c 30  3a ec 30 2c 30 3a f0 35  |.0,42..0:.0,0:.5|
000060a0  2c 31 32 37 36 2c 30 3a  f0 35 2c 31 32 37 36 2c  |,1276,0:.5,1276,|
000060b0  32 35 36 3a ec 34 2c 34  3a f0 35 2c 31 32 37 32  |256:.4,4:.5,1272|
000060c0  2c 34 3a f0 35 2c 31 32  37 32 2c 32 35 32 3a ec  |,4:.5,1272,252:.|
000060d0  38 2c 38 3a f0 35 2c 31  32 36 38 2c 38 3a f0 35  |8,8:.5,1268,8:.5|
000060e0  2c 31 32 36 38 2c 32 34  38 0d 26 e8 5c e6 30 2c  |,1268,248.&.\.0,|
000060f0  34 32 c8 9c 31 32 38 3a  ec 30 2c 30 3a f0 35 2c  |42..128:.0,0:.5,|
00006100  30 2c 32 35 36 3a f0 35  2c 31 32 37 36 2c 32 35  |0,256:.5,1276,25|
00006110  36 3a ec 34 2c 34 3a f0  35 2c 34 2c 32 35 32 3a  |6:.4,4:.5,4,252:|
00006120  f0 35 2c 31 32 37 32 2c  32 35 32 3a ec 38 2c 38  |.5,1272,252:.8,8|
00006130  3a f0 35 2c 38 2c 32 34  38 3a f0 35 2c 31 32 36  |:.5,8,248:.5,126|
00006140  38 2c 32 34 38 0d 26 f2  05 e1 0d 26 fc 05 20 0d  |8,248.&....&.. .|
00006150  27 06 05 20 0d 27 10 0c  dd f2 64 72 61 77 69 6e  |'.. .'....drawin|
00006160  0d 27 1a 0d ea 77 25 2c  63 25 2c 69 25 0d 27 24  |.'...w%,c%,i%.'$|
00006170  0d f2 69 6e 62 6f 72 64  65 72 0d 27 2e 20 e6 30  |..inborder.'. .0|
00006180  2c 34 32 c8 9c 36 34 3a  c8 93 c8 90 31 32 2c 31  |,42..64:....12,1|
00006190  32 2c 31 32 35 32 2c 32  33 32 0d 27 38 26 e6 30  |2,1252,232.'8&.0|
000061a0  2c 33 37 c8 9c 31 39 32  3a ec 31 31 36 30 2c 31  |,37..192:.1160,1|
000061b0  34 38 3a f0 26 39 44 2c  31 32 30 30 2c 32 30 30  |48:.&9D,1200,200|
000061c0  0d 27 42 5a e6 30 2c 34  32 c8 9c 31 32 38 3a ec  |.'BZ.0,42..128:.|
000061d0  31 31 36 30 2c 31 34 38  3a ec 31 31 32 30 2c 39  |1160,148:.1120,9|
000061e0  36 3a f0 26 41 35 2c 31  32 30 30 2c 32 30 30 3a  |6:.&A5,1200,200:|
000061f0  e6 30 2c 34 32 c8 9c 20  30 3a ec 31 31 36 30 2c  |.0,42.. 0:.1160,|
00006200  31 34 38 3a ec 31 32 30  30 2c 32 30 30 3a f0 26  |148:.1200,200:.&|
00006210  41 35 2c 31 31 32 30 2c  39 36 0d 27 4c 22 ef 35  |A5,1120,96.'L".5|
00006220  3a e6 30 2c 36 33 c8 9c  31 39 32 3a ec 31 30 39  |:.0,63..192:.109|
00006230  36 2c 36 34 3a f1 22 57  69 6e 64 22 0d 27 56 2a  |6,64:."Wind".'V*|
00006240  e6 30 2c 33 37 c8 9c 31  32 38 3a c8 8f 31 31 36  |.0,37..128:..116|
00006250  30 2c 31 34 38 2c 32 30  3a c8 8f 31 31 36 30 2c  |0,148,20:..1160,|
00006260  31 34 38 2c 34 30 0d 27  60 48 e6 30 2c 33 37 c8  |148,40.'`H.0,37.|
00006270  9c 30 3a 77 25 3d 77 69  6e 64 25 2a 31 2e 37 33  |.0:w%=wind%*1.73|
00006280  3a ec 31 31 36 30 2c 31  34 38 3a f0 35 2c 31 31  |:.1160,148:.5,11|
00006290  36 30 2d b5 28 77 61 6e  67 32 29 2a 77 25 2c 31  |60-.(wang2)*w%,1|
000062a0  34 38 2b 9b 28 77 61 6e  67 32 29 2a 77 25 0d 27  |48+.(wang2)*w%.'|
000062b0  6a 24 57 58 25 3d 2d b5  28 77 61 6e 67 32 29 2a  |j$WX%=-.(wang2)*|
000062c0  77 25 3a 57 59 25 3d 9b  28 77 61 6e 67 32 29 2a  |w%:WY%=.(wang2)*|
000062d0  77 25 0d 27 74 27 e6 30  2c 31 35 c8 9c 31 32 38  |w%.'t'.0,15..128|
000062e0  3a ec 38 34 34 2c 32 30  30 3a f1 22 48 6f 6c 65  |:.844,200:."Hole|
000062f0  20 22 3b 68 6f 6c 65 25  3b 0d 27 7e 21 ec 38 34  | ";hole%;.'~!.84|
00006300  34 2c 31 36 30 3a f1 3b  6c 65 6e 25 28 68 6f 6c  |4,160:.;len%(hol|
00006310  65 25 29 22 20 79 64 73  22 3b 0d 27 88 21 ec 38  |e%)" yds";.'.!.8|
00006320  34 34 2c 31 32 30 3a f1  22 50 61 72 20 22 3b 70  |44,120:."Par ";p|
00006330  61 72 25 28 68 6f 6c 65  25 29 3b 0d 27 92 2d e6  |ar%(hole%);.'.-.|
00006340  30 2c 31 35 c8 9c 30 3a  ec 38 34 34 2c 37 32 3a  |0,15..0:.844,72:|
00006350  f1 22 53 74 72 2e 20 22  3b 73 74 72 6f 6b 65 25  |."Str. ";stroke%|
00006360  28 68 6f 6c 65 25 29 3b  0d 27 9c 2a e6 30 2c 34  |(hole%);.'.*.0,4|
00006370  32 c8 9c 30 3a ec 38 32  30 2c 32 31 32 3a f0 35  |2..0:.820,212:.5|
00006380  2c 34 36 34 2c 32 31 32  3a f0 35 2c 34 36 34 2c  |,464,212:.5,464,|
00006390  34 30 0d 27 a6 0e e6 30  2c 34 32 c8 9c 31 32 38  |40.'...0,42..128|
000063a0  0d 27 b0 18 f0 35 2c 38  32 30 2c 34 30 3a f0 35  |.'...5,820,40:.5|
000063b0  2c 38 32 30 2c 32 31 32  0d 27 ba 10 e7 ac a4 6f  |,820,212.'.....o|
000063c0  6e 67 72 65 65 6e 20 8c  0d 27 c4 1e 20 e6 30 2c  |ngreen ..'.. .0,|
000063d0  34 32 c8 9c 30 3a ec 35  39 36 2c 32 30 30 3a f1  |42..0:.596,200:.|
000063e0  22 41 69 6d 22 3b 0d 27  ce 37 20 e6 30 2c 31 33  |"Aim";.'.7 .0,13|
000063f0  c8 9c 31 32 38 3a ec 35  34 38 2c 31 35 32 3a f1  |..128:.548,152:.|
00006400  22 53 65 6c 65 63 74 22  3b 3a f2 61 72 6f 33 34  |"Select";:.aro34|
00006410  28 31 29 3a f2 61 72 6f  31 32 28 30 29 0d 27 d8  |(1):.aro12(0).'.|
00006420  05 cc 0d 27 e2 20 20 e6  30 2c 31 33 c8 9c 31 32  |...'.  .0,13..12|
00006430  38 3a ec 35 39 36 2c 32  30 30 3a f1 22 41 69 6d  |8:.596,200:."Aim|
00006440  22 3b 0d 27 ec 21 20 ec  35 34 38 2c 31 35 32 3a  |";.'.! .548,152:|
00006450  f1 22 20 50 75 74 74 22  3b 3a f2 61 72 6f 31 32  |." Putt";:.aro12|
00006460  28 31 29 0d 27 f6 05 cd  0d 28 00 10 e7 ac a4 6f  |(1).'....(.....o|
00006470  6e 67 72 65 65 6e 20 8c  0d 28 0a 26 20 e6 30 2c  |ngreen ..(.& .0,|
00006480  35 30 c8 9c 36 34 3a ec  35 34 38 2c 31 31 32 3a  |50..64:.548,112:|
00006490  f1 63 6c 75 62 24 28 63  6c 75 62 25 29 3b 0d 28  |.club$(club%);.(|
000064a0  14 30 20 e6 30 2c 34 32  c8 9c 30 3a ec 35 33 32  |.0 .0,42..0:.532|
000064b0  2c 38 30 3a f1 3b 63 6c  75 62 64 69 73 74 25 28  |,80:.;clubdist%(|
000064c0  63 6c 75 62 25 29 22 20  59 64 73 22 20 3b 0d 28  |club%)" Yds" ;.(|
000064d0  1e 05 cd 0d 28 28 2d e7  70 75 25 3d 31 63 25 3d  |....((-.pu%=1c%=|
000064e0  33 20 8b e7 70 75 25 3d  32 63 25 3d 31 36 8b e7  |3 ..pu%=2c%=16..|
000064f0  70 75 25 3d 33 63 25 3d  32 30 8b 63 25 3d 33 31  |pu%=3c%=20.c%=31|
00006500  0d 28 32 2c e6 30 2c 63  25 c8 9c 31 32 38 3a ec  |.(2,.0,c%..128:.|
00006510  31 36 2c 32 31 36 3a f1  6e 61 6d 65 24 28 70 75  |16,216:.name$(pu|
00006520  25 29 22 20 74 6f 20 70  6c 61 79 22 0d 28 3c 42  |%)" to play".(<B|
00006530  ec 31 36 2c 31 37 36 3a  f1 3b 73 63 6f 72 65 25  |.16,176:.;score%|
00006540  28 70 75 25 2c 68 6f 6c  65 25 29 2b 31 3b a4 54  |(pu%,hole%)+1;.T|
00006550  48 28 73 63 6f 72 65 25  28 70 75 25 2c 68 6f 6c  |H(score%(pu%,hol|
00006560  65 25 29 2b 31 29 22 20  73 68 6f 74 22 3b 0d 28  |e%)+1)" shot";.(|
00006570  46 08 52 25 3d a3 0d 28  50 10 e7 ac a4 6f 6e 67  |F.R%=..(P....ong|
00006580  72 65 65 6e 20 8c 0d 28  5a 16 20 f1 22 20 66 72  |reen ..(Z. ." fr|
00006590  6f 6d 22 3b 3a ec 31 36  2c 31 33 36 0d 28 64 14  |om";:.16,136.(d.|
000065a0  20 e7 62 68 64 62 6c 32  25 3d 42 63 6f 6c 25 8c  | .bhdbl2%=Bcol%.|
000065b0  0d 28 6e 14 20 20 52 25  3d b9 3a f1 22 62 75 6e  |.(n.  R%=.:."bun|
000065c0  6b 65 72 22 0d 28 78 06  20 cc 0d 28 82 1c 20 e7  |ker".(x. ..(.. .|
000065d0  28 62 68 64 62 6c 25 3d  32 34 29 84 62 68 64 62  |(bhdbl%=24).bhdb|
000065e0  6c 25 3d 32 35 8c 0d 28  8c 19 20 20 52 25 3d b9  |l%=25..(..  R%=.|
000065f0  3a f1 22 68 65 61 76 79  20 72 6f 75 67 68 22 0d  |:."heavy rough".|
00006600  28 96 06 20 cc 0d 28 a0  26 20 e7 28 62 68 64 62  |(.. ..(.& .(bhdb|
00006610  6c 25 3d 34 29 84 28 62  68 64 62 6c 25 3d 35 29  |l%=4).(bhdbl%=5)|
00006620  84 62 68 64 62 6c 25 3d  31 30 8c 0d 28 aa 19 20  |.bhdbl%=10..(.. |
00006630  20 52 25 3d b9 3a f1 22  6c 69 67 68 74 20 72 6f  | R%=.:."light ro|
00006640  75 67 68 22 0d 28 b4 06  20 cc 0d 28 be 12 20 e7  |ugh".(.. ..(.. .|
00006650  28 62 68 64 62 6c 25 3d  32 38 29 8c 0d 28 c8 0c  |(bhdbl%=28)..(..|
00006660  20 20 f1 22 74 65 65 22  0d 28 d2 06 20 cc 0d 28  |  ."tee".(.. ..(|
00006670  dc 10 20 20 f1 22 66 61  69 72 77 61 79 22 0d 28  |..  ."fairway".(|
00006680  e6 06 20 cd 0d 28 f0 06  20 cd 0d 28 fa 06 20 cd  |.. ..(.. ..(.. .|
00006690  0d 29 04 06 20 cd 0d 29  0e 05 cd 0d 29 18 13 e6  |.).. ..)....)...|
000066a0  30 2c 35 35 c8 9c 30 3a  ec 31 36 2c 39 36 0d 29  |0,55..0:.16,96.)|
000066b0  22 10 e7 ac a4 6f 6e 67  72 65 65 6e 20 8c 0d 29  |"....ongreen ..)|
000066c0  2c 18 20 f1 3b 79 64 73  25 22 20 79 64 73 20 74  |,. .;yds%" yds t|
000066d0  6f 20 70 69 6e 22 0d 29  36 05 cc 0d 29 40 0e 20  |o pin".)6...)@. |
000066e0  e7 66 65 65 74 25 3e 31  8c 0d 29 4a 19 20 20 f1  |.feet%>1..)J.  .|
000066f0  3b 66 65 65 74 25 22 20  66 65 65 74 20 61 77 61  |;feet%" feet awa|
00006700  79 22 0d 29 54 06 20 cc  0d 29 5e 32 20 20 69 25  |y".)T. ..)^2  i%|
00006710  3d a4 6d 61 78 28 33 2c  28 a4 64 69 73 74 2a 31  |=.max(3,(.dist*1|
00006720  32 29 81 33 2a 33 29 3a  f1 3b 69 25 22 20 69 6e  |2).3*3):.;i%" in|
00006730  63 68 65 73 20 61 77 61  79 22 0d 29 68 06 20 cd  |ches away".)h. .|
00006740  0d 29 72 05 cd 0d 29 7c  1e e6 30 2c 36 33 c8 9c  |.)r...)|..0,63..|
00006750  30 3a ec 31 36 2c 35 36  3a f1 22 53 63 6f 72 65  |0:.16,56:."Score|
00006760  3a 22 3b 0d 29 86 1f e7  74 6f 74 73 63 6f 72 65  |:";.)...totscore|
00006770  25 28 70 75 25 29 3d 70  61 72 73 6f 66 61 72 25  |%(pu%)=parsofar%|
00006780  20 8c 0d 29 90 0c 20 f1  22 45 76 65 6e 22 0d 29  | ..).. ."Even".)|
00006790  9a 05 cc 0d 29 a4 26 20  f1 3b 94 28 74 6f 74 73  |....).& .;.(tots|
000067a0  63 6f 72 65 25 28 70 75  25 29 2d 70 61 72 73 6f  |core%(pu%)-parso|
000067b0  66 61 72 25 29 22 20 22  3b 0d 29 ae 2e 20 e7 74  |far%)" ";.).. .t|
000067c0  6f 74 73 63 6f 72 65 25  28 70 75 25 29 3e 70 61  |otscore%(pu%)>pa|
000067d0  72 73 6f 66 61 72 25 f1  22 6f 76 65 72 22 8b f1  |rsofar%."over"..|
000067e0  22 75 6e 64 65 72 22 0d  29 b8 05 cd 0d 29 c2 05  |"under".)....)..|
000067f0  e1 0d 29 cc 05 20 0d 29  d6 05 20 0d 29 e0 0f dd  |..).. .).. .)...|
00006800  f2 61 72 6f 33 34 28 62  25 29 0d 29 ea 1f e7 62  |.aro34(b%).)...b|
00006810  25 3d 31 8c e6 30 2c 31  33 c8 9c 31 32 38 20 8b  |%=1..0,13..128 .|
00006820  e6 30 2c 34 32 c8 9c 36  34 0d 29 f4 7c ec 35 30  |.0,42..64.).|.50|
00006830  38 2c 31 35 36 3a ec 34  39 32 2c 31 34 30 3a f0  |8,156:.492,140:.|
00006840  38 35 2c 35 32 34 2c 31  34 30 3a ec 35 30 30 2c  |85,524,140:.500,|
00006850  31 34 30 3a ec 35 31 36  2c 31 34 30 3a f0 38 35  |140:.516,140:.85|
00006860  2c 35 30 30 2c 31 30 30  3a f0 38 35 2c 35 31 36  |,500,100:.85,516|
00006870  2c 31 30 30 3a e6 30 2c  34 32 c8 9c 30 3a ec 35  |,100:.0,42..0:.5|
00006880  30 38 2c 31 35 36 3a f0  35 2c 34 38 38 2c 31 33  |08,156:.5,488,13|
00006890  36 3a ec 35 30 30 2c 31  33 36 3a f0 35 2c 35 30  |6:.500,136:.5,50|
000068a0  30 2c 31 30 30 0d 29 fe  57 e6 30 2c 34 32 c8 9c  |0,100.).W.0,42..|
000068b0  31 32 38 3a ec 35 30 38  2c 31 35 36 3a f0 35 2c  |128:.508,156:.5,|
000068c0  35 32 38 2c 31 33 36 3a  f0 35 2c 35 31 36 2c 31  |528,136:.5,516,1|
000068d0  33 36 3a f0 35 2c 35 31  36 2c 31 30 30 3a f0 35  |36:.5,516,100:.5|
000068e0  2c 35 30 30 2c 31 30 30  3a ec 34 39 32 2c 31 33  |,500,100:.492,13|
000068f0  36 3a f0 35 2c 35 30 30  2c 31 33 36 0d 2a 08 1f  |6:.5,500,136.*..|
00006900  e7 62 25 3d 31 8c e6 30  2c 31 33 c8 9c 31 32 38  |.b%=1..0,13..128|
00006910  20 8b e6 30 2c 34 32 c8  9c 36 34 0d 2a 12 9d ec  | ..0,42..64.*...|
00006920  37 38 30 2c 31 30 30 3a  ec 37 36 30 2c 31 32 30  |780,100:.760,120|
00006930  3a f0 38 35 2c 38 30 30  2c 31 32 30 3a ec 37 37  |:.85,800,120:.77|
00006940  32 2c 31 32 30 3a ec 37  38 38 2c 31 32 30 3a f0  |2,120:.788,120:.|
00006950  38 35 2c 37 37 32 2c 31  35 36 3a f0 38 35 2c 37  |85,772,156:.85,7|
00006960  38 38 2c 31 35 36 3a e6  30 2c 34 32 c8 9c 30 3a  |88,156:.0,42..0:|
00006970  ec 37 38 38 2c 31 35 36  3a f0 35 2c 37 37 32 2c  |.788,156:.5,772,|
00006980  31 35 36 3a f0 35 2c 37  37 32 2c 31 32 30 3a f0  |156:.5,772,120:.|
00006990  35 2c 37 36 30 2c 31 32  30 3a f0 35 2c 37 38 30  |5,760,120:.5,780|
000069a0  2c 31 30 30 3a ec 37 38  38 2c 31 32 30 3a f0 35  |,100:.788,120:.5|
000069b0  2c 38 30 30 2c 31 32 30  0d 2a 1c 41 e6 30 2c 34  |,800,120.*.A.0,4|
000069c0  32 c8 9c 31 32 38 3a ec  37 38 38 2c 31 35 36 3a  |2..128:.788,156:|
000069d0  f0 35 2c 37 38 38 2c 31  32 30 3a ec 38 30 30 2c  |.5,788,120:.800,|
000069e0  31 32 30 3a f0 35 2c 37  38 30 2c 31 30 30 3a f0  |120:.5,780,100:.|
000069f0  35 2c 37 36 34 2c 31 31  36 0d 2a 26 05 e1 0d 2a  |5,764,116.*&...*|
00006a00  30 05 20 0d 2a 3a 05 20  0d 2a 44 0f dd f2 61 72  |0. .*:. .*D...ar|
00006a10  6f 31 32 28 62 25 29 0d  2a 4e 1f e7 62 25 3d 31  |o12(b%).*N..b%=1|
00006a20  20 e6 30 2c 31 33 c8 9c  31 32 38 20 8b e6 30 2c  | .0,13..128 ..0,|
00006a30  34 32 c8 9c 36 34 0d 2a  58 7c ec 35 31 32 2c 31  |42..64.*X|.512,1|
00006a40  38 34 3a ec 35 33 32 2c  32 30 34 3a f0 38 35 2c  |84:.532,204:.85,|
00006a50  35 33 32 2c 31 36 34 3a  ec 35 33 32 2c 31 39 32  |532,164:.532,192|
00006a60  3a ec 35 33 32 2c 31 37  36 3a f0 38 35 2c 35 36  |:.532,176:.85,56|
00006a70  38 2c 31 39 32 3a f0 38  35 2c 35 36 38 2c 31 37  |8,192:.85,568,17|
00006a80  36 3a e6 30 2c 34 32 c8  9c 30 3a ec 35 31 32 2c  |6:.0,42..0:.512,|
00006a90  31 38 34 3a f0 35 2c 35  33 32 2c 32 30 34 3a ec  |184:.5,532,204:.|
00006aa0  35 33 32 2c 31 39 32 3a  f0 35 2c 35 36 38 2c 31  |532,192:.5,568,1|
00006ab0  39 32 0d 2a 62 57 e6 30  2c 34 32 c8 9c 31 32 38  |92.*bW.0,42..128|
00006ac0  3a ec 35 31 36 2c 31 38  30 3a f0 35 2c 35 33 32  |:.516,180:.5,532|
00006ad0  2c 31 36 34 3a f0 35 2c  35 33 32 2c 31 37 36 3a  |,164:.5,532,176:|
00006ae0  f0 35 2c 35 36 38 2c 31  37 36 3a f0 35 2c 35 36  |.5,568,176:.5,56|
00006af0  38 2c 31 39 32 3a ec 35  33 32 2c 32 30 34 3a f0  |8,192:.532,204:.|
00006b00  35 2c 35 33 32 2c 31 39  32 0d 2a 6c 1f e7 62 25  |5,532,192.*l..b%|
00006b10  3d 31 20 e6 30 2c 31 33  c8 9c 31 32 38 20 8b e6  |=1 .0,13..128 ..|
00006b20  30 2c 34 32 c8 9c 36 34  0d 2a 76 92 ec 37 36 38  |0,42..64.*v..768|
00006b30  2c 31 38 34 3a ec 37 34  38 2c 32 30 34 3a f0 38  |,184:.748,204:.8|
00006b40  35 2c 37 34 38 2c 31 36  34 3a ec 37 34 38 2c 31  |5,748,164:.748,1|
00006b50  39 32 3a ec 37 34 38 2c  31 37 36 3a f0 38 35 2c  |92:.748,176:.85,|
00006b60  37 31 32 2c 31 39 32 3a  f0 38 35 2c 37 31 32 2c  |712,192:.85,712,|
00006b70  31 37 36 3a e6 30 2c 34  32 c8 9c 30 3a ec 37 34  |176:.0,42..0:.74|
00006b80  38 2c 32 30 34 3a f0 35  2c 37 34 38 2c 31 39 32  |8,204:.5,748,192|
00006b90  3a f0 35 2c 37 31 32 2c  31 39 32 3a f0 35 2c 37  |:.5,712,192:.5,7|
00006ba0  31 32 2c 31 37 36 3a ec  37 34 38 2c 31 37 36 3a  |12,176:.748,176:|
00006bb0  f0 35 2c 37 34 38 2c 31  36 34 0d 2a 80 41 e6 30  |.5,748,164.*.A.0|
00006bc0  2c 34 32 c8 9c 31 32 38  3a ec 37 34 38 2c 32 30  |,42..128:.748,20|
00006bd0  34 3a f0 35 2c 37 36 38  2c 31 38 34 3a f0 35 2c  |4:.5,768,184:.5,|
00006be0  37 34 38 2c 31 36 34 3a  ec 37 34 38 2c 31 37 36  |748,164:.748,176|
00006bf0  3a f0 35 2c 37 31 32 2c  31 37 36 0d 2a 8a 05 e1  |:.5,712,176.*...|
00006c00  0d 2a 94 05 20 0d 2a 9e  05 20 0d 2a a8 0d dd f2  |.*.. .*.. .*....|
00006c10  61 6e 69 6d 61 74 65 0d  2a b2 0b f2 66 6c 69 67  |animate.*...flig|
00006c20  68 74 0d 2a bc 38 62 61  6c 6c 78 28 70 75 25 29  |ht.*.8ballx(pu%)|
00006c30  3d 62 61 6c 6c 78 3a 62  61 6c 6c 79 28 70 75 25  |=ballx:bally(pu%|
00006c40  29 3d 62 61 6c 6c 79 3a  62 68 64 62 6c 25 28 70  |)=bally:bhdbl%(p|
00006c50  75 25 29 3d 62 68 64 62  6c 25 0d 2a c6 29 73 63  |u%)=bhdbl%.*.)sc|
00006c60  6f 72 65 25 28 70 75 25  2c 68 6f 6c 65 25 29 3d  |ore%(pu%,hole%)=|
00006c70  73 63 6f 72 65 25 28 70  75 25 2c 68 6f 6c 65 25  |score%(pu%,hole%|
00006c80  29 2b 31 0d 2a d0 19 69  73 74 73 68 6f 74 25 3d  |)+1.*..istshot%=|
00006c90  a3 3a 68 6f 6c 65 6f 75  74 25 3d a3 0d 2a da 38  |.:holeout%=..*.8|
00006ca0  e7 28 ac 68 6f 6c 65 64  25 28 70 75 25 29 29 80  |.(.holed%(pu%)).|
00006cb0  28 6f 6e 67 25 29 80 28  6e 6f 50 25 3e 31 29 80  |(ong%).(noP%>1).|
00006cc0  a4 6e 65 78 74 3c 3e 70  75 25 8c f2 63 6f 6e 74  |.next<>pu%..cont|
00006cd0  69 6e 75 65 0d 2a e4 05  e1 0d 2a ee 05 20 0d 2a  |inue.*....*.. .*|
00006ce0  f8 05 20 0d 2b 02 0c dd  f2 66 6c 69 67 68 74 0d  |.. .+....flight.|
00006cf0  2b 0c 82 ea 6f 79 31 2c  6f 78 32 2c 6f 62 79 32  |+...oy1,ox2,oby2|
00006d00  2c 6f 73 79 32 2c 62 78  2c 62 79 2c 62 7a 2c 62  |,osy2,bx,by,bz,b|
00006d10  73 76 2c 77 78 2c 77 79  2c 76 78 2c 76 79 2c 76  |sv,wx,wy,vx,vy,v|
00006d20  7a 2c 6f 76 65 6c 2c 6f  78 32 2c 6f 62 79 32 2c  |z,ovel,ox2,oby2,|
00006d30  6f 73 79 32 2c 62 68 25  2c 62 68 79 25 2c 62 73  |osy2,bh%,bhy%,bs|
00006d40  25 2c 62 62 25 2c 67 68  2c 77 65 2c 68 65 2c 76  |%,bb%,gh,we,he,v|
00006d50  78 6f 2c 62 7a 68 2c 65  73 25 2c 67 73 25 2c 74  |xo,bzh,es%,gs%,t|
00006d60  74 25 2c 54 53 25 2c 4c  53 25 2c 68 66 25 2c 68  |t%,TS%,LS%,hf%,h|
00006d70  6b 0d 2b 16 24 e7 73 73  25 8c 67 73 25 3d 32 30  |k.+.$.ss%.gs%=20|
00006d80  3a 65 73 25 3d 32 31 8b  67 73 25 3d 33 30 3a 65  |:es%=21.gs%=30:e|
00006d90  73 25 3d 33 32 0d 2b 20  23 68 74 25 3d 2d 31 3a  |s%=32.+ #ht%=-1:|
00006da0  74 74 25 3d a3 3a 54 53  25 3d a3 3a 4c 53 25 3d  |tt%=.:TS%=.:LS%=|
00006db0  a3 3a 62 70 25 3d 2d 31  0d 2b 2a 24 62 78 3d 62  |.:bp%=-1.+*$bx=b|
00006dc0  61 6c 6c 78 3a 62 79 3d  62 61 6c 6c 79 3a 62 7a  |allx:by=bally:bz|
00006dd0  3d 62 61 6c 6c 7a 3a 68  66 25 3d a3 0d 2b 34 2d  |=ballz:hf%=..+4-|
00006de0  69 77 25 3d a3 3a 77 78  3d 77 69 6e 64 25 2a 9b  |iw%=.:wx=wind%*.|
00006df0  28 77 61 6e 67 30 29 3a  77 79 3d 77 69 6e 64 25  |(wang0):wy=wind%|
00006e00  2a b5 28 77 61 6e 67 30  29 0d 2b 3e 0e e7 63 6c  |*.(wang0).+>..cl|
00006e10  75 62 25 3c 31 34 8c 0d  2b 48 31 20 70 6f 77 65  |ub%<14..+H1 powe|
00006e20  72 3d 70 6f 77 65 72 2a  28 31 2e 30 30 36 2d 70  |r=power*(1.006-p|
00006e30  6f 77 65 72 2a 28 94 28  68 6f 6f 6b 2d 2e 31 29  |ower*(.(hook-.1)|
00006e40  5e 31 2e 34 29 2f 39 29  0d 2b 52 12 20 62 73 76  |^1.4)/9).+R. bsv|
00006e50  3d 70 6f 77 65 72 2a 2e  30 32 0d 2b 5c 25 20 76  |=power*.02.+\% v|
00006e60  78 3d 70 6f 77 65 72 2a  63 6c 75 62 76 65 6c 78  |x=power*clubvelx|
00006e70  28 63 6c 75 62 25 29 2a  9b 28 73 61 6e 67 29 0d  |(club%)*.(sang).|
00006e80  2b 66 25 20 76 79 3d 70  6f 77 65 72 2a 63 6c 75  |+f% vy=power*clu|
00006e90  62 76 65 6c 78 28 63 6c  75 62 25 29 2a b5 28 73  |bvelx(club%)*.(s|
00006ea0  61 6e 67 29 0d 2b 70 1d  20 76 7a 3d 70 6f 77 65  |ang).+p. vz=powe|
00006eb0  72 2a 63 6c 75 62 76 65  6c 7a 28 63 6c 75 62 25  |r*clubvelz(club%|
00006ec0  29 0d 2b 7a 1f 20 6f 76  65 6c 3d 70 6f 77 65 72  |).+z. ovel=power|
00006ed0  2a 63 6c 75 62 76 65 6c  78 28 63 6c 75 62 25 29  |*clubvelx(club%)|
00006ee0  0d 2b 84 0f 20 e7 ac a4  6f 6e 74 65 65 20 8c 0d  |.+.. ...ontee ..|
00006ef0  2b 8e 14 20 20 66 61 3d  a4 52 68 74 28 62 78 2c  |+..  fa=.Rht(bx,|
00006f00  62 79 29 0d 2b 98 32 20  20 66 61 3d 28 34 2b 76  |by).+.2  fa=(4+v|
00006f10  78 2a a4 73 6c 6f 70 65  78 28 62 78 2c 62 79 29  |x*.slopex(bx,by)|
00006f20  2b 76 79 2a a4 73 6c 6f  70 65 79 28 62 78 2c 62  |+vy*.slopey(bx,b|
00006f30  79 29 29 2f 34 0d 2b a2  3f 20 20 76 7a 3d 76 7a  |y))/4.+.?  vz=vz|
00006f40  2a 66 61 3a 76 78 3d 76  78 2a 32 2f 28 31 2b 66  |*fa:vx=vx*2/(1+f|
00006f50  61 29 3a 76 79 3d 76 79  2a 32 2f 28 31 2b 66 61  |a):vy=vy*2/(1+fa|
00006f60  29 3a 6f 76 65 6c 3d 6f  76 65 6c 2a 32 2f 28 31  |):ovel=ovel*2/(1|
00006f70  2b 66 61 29 0d 2b ac 06  20 cd 0d 2b b6 05 cd 0d  |+fa).+.. ..+....|
00006f80  2b c0 09 62 68 25 3d a3  0d 2b ca 1d 6f 78 32 3d  |+..bh%=..+..ox2=|
00006f90  36 34 30 3a 6f 62 79 32  3d 32 37 36 3a 6f 73 79  |640:oby2=276:osy|
00006fa0  32 3d 32 37 36 0d 2b d4  24 f4 5f 5f 5f 5f 62 63  |2=276.+.$.____bc|
00006fb0  6b 73 70 6e 2f 65 66 66  65 63 74 20 6f 66 20 72  |kspn/effect of r|
00006fc0  6f 75 67 68 20 65 74 63  2e 0d 2b de 27 62 73 78  |ough etc..+.'bsx|
00006fd0  3d 2d 28 70 6f 77 65 72  5e 32 29 2a 28 6f 76 65  |=-(power^2)*(ove|
00006fe0  6c 2b 32 29 2a 9b 28 73  61 6e 67 29 2a 2e 30 38  |l+2)*.(sang)*.08|
00006ff0  0d 2b e8 27 62 73 79 3d  2d 28 70 6f 77 65 72 5e  |.+.'bsy=-(power^|
00007000  32 29 2a 28 6f 76 65 6c  2b 32 29 2a b5 28 73 61  |2)*(ovel+2)*.(sa|
00007010  6e 67 29 2a 2e 30 38 0d  2b f2 10 e7 ac a4 6f 6e  |ng)*.08.+.....on|
00007020  67 72 65 65 6e 20 8c 0d  2b fc 16 20 e7 28 62 68  |green ..+.. .(bh|
00007030  64 62 6c 32 25 3d 42 63  6f 6c 25 29 8c 0d 2c 06  |dbl2%=Bcol%)..,.|
00007040  2d 20 20 66 3d 31 2b b3  28 31 29 2a 94 28 31 2d  |-  f=1+.(1)*.(1-|
00007050  70 6f 77 65 72 29 3a 62  73 78 3d 62 73 78 2a 66  |power):bsx=bsx*f|
00007060  3a 62 73 79 3d 62 73 79  2a 66 0d 2c 10 17 20 20  |:bsy=bsy*f.,..  |
00007070  63 25 3d 42 64 65 70 74  68 2a 32 2e 35 2b 34 2e  |c%=Bdepth*2.5+4.|
00007080  37 0d 2c 1a 17 20 20 66  3d 31 2d 28 31 36 2d 63  |7.,..  f=1-(16-c|
00007090  6c 75 62 25 29 2f 31 36  0d 2c 24 2c 20 20 e7 63  |lub%)/16.,$,  .c|
000070a0  6c 75 62 25 3c 63 25 8c  66 3d 66 2a b3 28 31 29  |lub%<c%.f=f*.(1)|
000070b0  2a b3 28 31 29 8b 66 3d  b3 28 31 29 2a 28 31 2d  |*.(1).f=.(1)*(1-|
000070c0  66 29 2b 66 0d 2c 2e 1d  20 20 76 78 3d 76 78 2a  |f)+f.,..  vx=vx*|
000070d0  66 3a 76 79 3d 76 79 2a  66 3a 76 7a 3d 76 7a 2a  |f:vy=vy*f:vz=vz*|
000070e0  66 0d 2c 38 06 20 cc 0d  2c 42 26 20 e7 28 62 68  |f.,8. ..,B& .(bh|
000070f0  64 62 6c 25 3d 34 29 84  28 62 68 64 62 6c 25 3d  |dbl%=4).(bhdbl%=|
00007100  35 29 84 62 68 64 62 6c  25 3d 31 30 8c 0d 2c 4c  |5).bhdbl%=10..,L|
00007110  1d 20 20 62 73 78 3d 62  73 78 2a 2e 36 32 3a 62  |.  bsx=bsx*.62:b|
00007120  73 79 3d 62 73 79 2a 2e  36 32 0d 2c 56 2d 20 20  |sy=bsy*.62.,V-  |
00007130  66 3d 31 2d 28 31 33 2d  63 6c 75 62 25 2b 72 6f  |f=1-(13-club%+ro|
00007140  75 67 68 25 29 2f 36 30  3a 66 3d b3 28 31 29 2a  |ugh%)/60:f=.(1)*|
00007150  28 31 2d 66 29 2b 66 0d  2c 60 1d 20 20 76 78 3d  |(1-f)+f.,`.  vx=|
00007160  76 78 2a 66 3a 76 79 3d  76 79 2a 66 3a 76 7a 3d  |vx*f:vy=vy*f:vz=|
00007170  76 7a 2a 66 0d 2c 6a 06  20 cc 0d 2c 74 1c 20 e7  |vz*f.,j. ..,t. .|
00007180  28 62 68 64 62 6c 25 3d  32 34 29 84 62 68 64 62  |(bhdbl%=24).bhdb|
00007190  6c 25 3d 32 35 8c 0d 2c  7e 19 20 20 62 73 78 3d  |l%=25..,~.  bsx=|
000071a0  62 73 78 2f 33 3a 62 73  79 3d 62 73 79 2f 33 0d  |bsx/3:bsy=bsy/3.|
000071b0  2c 88 3f 20 20 66 3d b6  28 31 2d 28 31 35 2d 63  |,.?  f=.(1-(15-c|
000071c0  6c 75 62 25 29 2f 31 36  29 3a 66 3d 66 2a 36 2f  |lub%)/16):f=f*6/|
000071d0  28 36 2b 72 6f 75 67 68  25 29 3a 66 3d b3 28 31  |(6+rough%):f=.(1|
000071e0  29 2a b3 28 31 29 2a 28  31 2d 66 29 2b 66 0d 2c  |)*.(1)*(1-f)+f.,|
000071f0  92 1d 20 20 76 78 3d 76  78 2a 66 3a 76 79 3d 76  |..  vx=vx*f:vy=v|
00007200  79 2a 66 3a 76 7a 3d 76  7a 2a 66 0d 2c 9c 06 20  |y*f:vz=vz*f.,.. |
00007210  cd 0d 2c a6 06 20 cd 0d  2c b0 06 20 cd 0d 2c ba  |..,.. ..,.. ..,.|
00007220  05 cd 0d 2c c4 08 41 25  3d 30 0d 2c ce 0e e7 63  |...,..A%=0.,...c|
00007230  6c 75 62 25 3d 31 34 8c  0d 2c d8 22 20 e7 62 68  |lub%=14..,." .bh|
00007240  64 62 6c 32 25 3d 42 63  6f 6c 25 66 3d b3 28 31  |dbl2%=Bcol%f=.(1|
00007250  29 2a b3 28 31 29 8b 66  3d 31 0d 2c e2 09 20 73  |)*.(1).f=1.,.. s|
00007260  25 3d 31 0d 2c ec 1f 20  76 78 3d 66 2a 70 6f 77  |%=1.,.. vx=f*pow|
00007270  65 72 5e 31 2e 33 2a 9b  28 73 61 6e 67 29 2a 32  |er^1.3*.(sang)*2|
00007280  2e 38 0d 2c f6 1f 20 76  79 3d 66 2a 70 6f 77 65  |.8.,.. vy=f*powe|
00007290  72 5e 31 2e 33 2a b5 28  73 61 6e 67 29 2a 32 2e  |r^1.3*.(sang)*2.|
000072a0  38 0d 2d 00 0a 20 e5 8d  54 76 73 0d 2d 0a 05 cd  |8.-.. ..Tvs.-...|
000072b0  0d 2d 14 1b 68 6b 3d 68  6f 6f 6b 2a 28 6f 76 65  |.-..hk=hook*(ove|
000072c0  6c 5e 2e 38 29 2f 32 35  35 30 30 0d 2d 1e 0b e3  |l^.8)/25500.-...|
000072d0  66 25 3d 31 b8 33 0d 2d  28 11 20 69 76 7a 3d 76  |f%=1.3.-(. ivz=v|
000072e0  7a 3a 54 49 25 3d 91 0d  2d 32 06 20 f5 0d 2d 3c  |z:TI%=..-2. ..-<|
000072f0  0d 20 20 41 25 3d 41 25  2b 31 0d 2d 46 39 20 20  |.  A%=A%+1.-F9  |
00007300  77 65 3d 28 62 7a 2d 67  68 2a 2e 33 2d 62 61 6c  |we=(bz-gh*.3-bal|
00007310  6c 7a 2a 2e 37 2b 32 2e  35 2a 76 78 2a 76 78 2b  |lz*.7+2.5*vx*vx+|
00007320  32 2e 35 2a 76 79 2a 76  79 2b 35 29 2f 33 34 30  |2.5*vy*vy+5)/340|
00007330  30 30 30 0d 2d 50 1a 20  20 68 65 3d 94 28 62 7a  |000.-P.  he=.(bz|
00007340  2d 62 61 6c 6c 7a 2b 35  30 29 2a 68 6b 0d 2d 5a  |-ballz+50)*hk.-Z|
00007350  1d 20 20 76 78 6f 3d 76  78 2a 2e 39 39 35 2b 77  |.  vxo=vx*.995+w|
00007360  78 2a 77 65 2d 68 65 2a  76 79 0d 2d 64 1d 20 20  |x*we-he*vy.-d.  |
00007370  76 79 3d 76 79 2a 2e 39  39 35 2b 77 79 2a 77 65  |vy=vy*.995+wy*we|
00007380  2b 68 65 2a 76 78 6f 0d  2d 6e 0c 20 20 76 78 3d  |+he*vxo.-n.  vx=|
00007390  76 78 6f 0d 2d 78 13 20  20 6f 62 78 3d 62 78 3a  |vxo.-x.  obx=bx:|
000073a0  6f 62 79 3d 62 79 0d 2d  82 33 20 20 62 78 3d 62  |oby=by.-.3  bx=b|
000073b0  78 2b 76 78 2b 77 78 2a  77 65 3a 62 79 3d 62 79  |x+vx+wx*we:by=by|
000073c0  2b 76 79 2b 77 79 2a 77  65 3a 62 7a 2b 3d 76 7a  |+vy+wy*we:bz+=vz|
000073d0  3a 2a 46 58 31 31 32 2c  31 0d 2d 8c 14 20 20 62  |:*FX112,1.-..  b|
000073e0  68 64 62 6c 25 3d b0 62  78 2c 62 79 29 0d 2d 96  |hdbl%=.bx,by).-.|
000073f0  0e 20 20 2a 46 58 31 31  32 2c 30 0d 2d a0 21 20  |.  *FX112,0.-.! |
00007400  20 76 7a 3d 76 7a 2d 2e  30 31 39 33 2b 62 73 76  | vz=vz-.0193+bsv|
00007410  3a 62 73 76 3d 62 73 76  2a 2e 39 38 0d 2d aa 22  |:bsv=bsv*.98.-."|
00007420  20 20 67 68 3d a4 47 68  74 28 62 78 2c 62 79 29  |  gh=.Ght(bx,by)|
00007430  3a e7 62 7a 3c 67 68 20  8c 62 7a 3d 67 68 0d 2d  |:.bz<gh .bz=gh.-|
00007440  b4 18 20 20 e7 28 ac 68  66 25 29 80 28 62 7a 2d  |..  .(.hf%).(bz-|
00007450  67 68 29 3c 37 8c 0d 2d  be 28 20 20 20 e7 28 66  |gh)<7..-.(   .(f|
00007460  6c 61 67 78 25 2d 62 78  29 5e 32 2b 28 66 6c 61  |lagx%-bx)^2+(fla|
00007470  67 79 25 2d 62 79 29 5e  32 3c 2e 30 35 8c 0d 2d  |gy%-by)^2<.05..-|
00007480  c8 14 20 20 20 20 f4 5f  5f 5f 68 69 74 20 66 6c  |..    .___hit fl|
00007490  61 67 0d 2d d2 39 20 20  20 20 76 78 3d 76 78 2a  |ag.-.9    vx=vx*|
000074a0  28 2e 33 2d b3 28 31 29  2a 2e 36 29 3a 76 79 3d  |(.3-.(1)*.6):vy=|
000074b0  76 79 2a 28 2e 33 2d b3  28 31 29 2a 2e 36 29 3a  |vy*(.3-.(1)*.6):|
000074c0  62 73 78 3d 30 3a 62 73  79 3d 30 0d 2d dc 2d 20  |bsx=0:bsy=0.-.- |
000074d0  20 20 20 76 7a 3d 76 7a  2a b3 28 31 29 3a d4 34  |   vz=vz*.(1):.4|
000074e0  2c 2d 31 35 2b 79 64 73  25 81 34 30 2c 31 37 30  |,-15+yds%.40,170|
000074f0  2c 31 3a 68 66 25 3d b9  0d 2d e6 08 20 20 20 cd  |,1:hf%=..-..   .|
00007500  0d 2d f0 07 20 20 cd 0d  2d fa 33 20 20 e7 28 62  |.-..  ..-.3  .(b|
00007510  68 64 62 6c 25 3d 39 29  84 28 62 68 64 62 6c 25  |hdbl%=9).(bhdbl%|
00007520  3d 35 29 84 28 62 68 64  62 6c 25 3d 32 32 29 84  |=5).(bhdbl%=22).|
00007530  62 68 64 62 6c 25 3d 32  35 8c 0d 2e 04 18 20 20  |bhdbl%=25.....  |
00007540  20 f4 5f 5f 63 68 65 63  6b 20 66 6f 72 20 74 72  | .__check for tr|
00007550  65 65 0d 2e 0e 1f 20 20  20 e7 68 74 25 3d 2d 31  |ee....   .ht%=-1|
00007560  8c 68 74 25 3d a4 74 72  65 65 28 62 78 2c 62 79  |.ht%=.tree(bx,by|
00007570  29 0d 2e 18 24 20 20 20  e7 54 64 69 73 74 3c 54  |)...$   .Tdist<T|
00007580  57 25 28 74 72 65 65 74  79 70 25 28 68 74 25 29  |W%(treetyp%(ht%)|
00007590  29 2f 31 34 8c 0d 2e 22  26 20 20 20 20 e7 62 7a  |)/14..."&    .bz|
000075a0  2d 67 68 3c 54 48 25 28  74 72 65 65 74 79 70 25  |-gh<TH%(treetyp%|
000075b0  28 68 74 25 29 29 2f 34  2e 38 8c 0d 2e 2c 27 20  |(ht%))/4.8...,' |
000075c0  20 20 20 20 f2 58 59 30  31 28 74 72 65 65 78 25  |    .XY01(treex%|
000075d0  28 68 74 25 29 2c 74 72  65 65 79 25 28 68 74 25  |(ht%),treey%(ht%|
000075e0  29 29 0d 2e 36 12 20 20  20 20 20 e7 59 31 3e 3d  |))..6.     .Y1>=|
000075f0  32 30 30 8c 0d 2e 40 0f  20 20 20 20 20 20 74 74  |200...@.      tt|
00007600  25 3d b9 0d 2e 4a 20 20  20 20 20 20 20 e7 54 4c  |%=...J       .TL|
00007610  25 28 74 72 65 65 74 79  70 25 28 68 74 25 29 29  |%(treetyp%(ht%))|
00007620  3d 30 8c 0d 2e 54 16 20  20 20 20 20 20 20 f4 5f  |=0...T.       ._|
00007630  5f 68 69 74 20 62 75 73  68 0d 2e 5e 27 20 20 20  |_hit bush..^'   |
00007640  20 20 20 20 76 78 3d 76  78 2f 34 3a 76 79 3d 76  |    vx=vx/4:vy=v|
00007650  79 2f 34 3a 76 7a 3d 76  7a 2d b3 28 31 29 2f 37  |y/4:vz=vz-.(1)/7|
00007660  0d 2e 68 30 20 20 20 20  20 20 20 e7 ac 4c 53 25  |..h0       ..LS%|
00007670  4c 53 25 3d b9 3a d4 34  2c 2d a4 6d 69 6e 28 31  |LS%=.:.4,-.min(1|
00007680  35 2c 39 2b 31 33 30 30  2f 59 31 29 2c 30 2c 30  |5,9+1300/Y1),0,0|
00007690  0d 2e 72 0b 20 20 20 20  20 20 cc 0d 2e 7c 29 20  |..r.      ...|) |
000076a0  20 20 20 20 20 20 e7 62  7a 2d 67 68 3e 54 4c 25  |      .bz-gh>TL%|
000076b0  28 74 72 65 65 74 79 70  25 28 68 74 25 29 29 2f  |(treetyp%(ht%))/|
000076c0  32 2e 37 8c 0d 2e 86 18  20 20 20 20 20 20 20 20  |2.7.....        |
000076d0  f4 5f 5f 5f 68 69 74 20  74 72 65 65 0d 2e 90 2b  |.___hit tree...+|
000076e0  20 20 20 20 20 20 20 20  76 78 3d 76 78 2a 28 2e  |        vx=vx*(.|
000076f0  39 38 38 2d b3 28 31 29  5e 34 29 2b 28 b3 28 31  |988-.(1)^4)+(.(1|
00007700  29 2d 2e 35 29 2f 38 0d  2e 9a 2b 20 20 20 20 20  |)-.5)/8...+     |
00007710  20 20 20 76 79 3d 76 79  2a 28 2e 39 38 38 2d b3  |   vy=vy*(.988-.|
00007720  28 31 29 5e 34 29 2b 28  b3 28 31 29 2d 2e 35 29  |(1)^4)+(.(1)-.5)|
00007730  2f 38 0d 2e a4 19 20 20  20 20 20 20 20 20 76 7a  |/8....        vz|
00007740  3d 76 7a 2d b3 28 35 29  2f 36 30 0d 2e ae 31 20  |=vz-.(5)/60...1 |
00007750  20 20 20 20 20 20 20 e7  ac 4c 53 25 4c 53 25 3d  |       ..LS%LS%=|
00007760  b9 3a d4 34 2c 2d a4 6d  69 6e 28 31 35 2c 39 2b  |.:.4,-.min(15,9+|
00007770  31 33 30 30 2f 59 31 29  2c 30 2c 30 0d 2e b8 0c  |1300/Y1),0,0....|
00007780  20 20 20 20 20 20 20 cc  0d 2e c2 24 20 20 20 20  |       ....$    |
00007790  20 20 20 20 e7 28 62 62  25 3d 31 29 84 28 62 62  |    .(bb%=1).(bb|
000077a0  25 3d 36 29 84 62 62 25  3d 36 33 8c 0d 2e cc 3d  |%=6).bb%=63....=|
000077b0  20 20 20 20 20 20 20 20  20 74 78 25 3d 74 72 65  |         tx%=tre|
000077c0  65 78 25 28 68 74 25 29  3a 74 79 25 3d 74 72 65  |ex%(ht%):ty%=tre|
000077d0  65 79 25 28 68 74 25 29  3a 76 3d b6 28 76 78 2a  |ey%(ht%):v=.(vx*|
000077e0  76 78 2b 76 79 2a 76 79  29 0d 2e d6 14 20 20 20  |vx+vy*vy)....   |
000077f0  20 20 20 20 20 20 e3 69  25 3d 31 b8 38 0d 2e e0  |      .i%=1.8...|
00007800  24 20 20 20 20 20 20 20  20 20 20 78 3d 28 6f 62  |$          x=(ob|
00007810  78 2a 28 38 2d 69 25 29  2b 62 78 2a 69 25 29 2f  |x*(8-i%)+bx*i%)/|
00007820  38 0d 2e ea 24 20 20 20  20 20 20 20 20 20 20 79  |8...$          y|
00007830  3d 28 6f 62 79 2a 28 38  2d 69 25 29 2b 62 79 2a  |=(oby*(8-i%)+by*|
00007840  69 25 29 2f 38 0d 2e f4  2b 20 20 20 20 20 20 20  |i%)/8...+       |
00007850  20 20 20 64 3d b6 28 28  28 78 2d 74 78 25 29 5e  |   d=.(((x-tx%)^|
00007860  32 2b 28 79 2d 74 79 25  29 5e 32 29 29 2b 2e 31  |2+(y-ty%)^2))+.1|
00007870  0d 2e fe 1a 20 20 20 20  20 20 20 20 20 20 e7 28  |....          .(|
00007880  64 3c 32 29 80 ac 54 53  25 8c 0d 2f 08 1b 20 20  |d<2)..TS%../..  |
00007890  20 20 20 20 20 20 20 20  20 f4 5f 5f 68 69 74 20  |         .__hit |
000078a0  74 72 75 6e 6b 0d 2f 12  18 20 20 20 20 20 20 20  |trunk./..       |
000078b0  20 20 20 20 62 78 3d 78  3a 62 79 3d 79 0d 2f 1c  |    bx=x:by=y./.|
000078c0  25 20 20 20 20 20 20 20  20 20 20 20 76 78 3d 28  |%           vx=(|
000078d0  78 2d 74 78 25 29 2f 64  2a 76 2a 2e 35 2a b3 28  |x-tx%)/d*v*.5*.(|
000078e0  31 29 0d 2f 26 25 20 20  20 20 20 20 20 20 20 20  |1)./&%          |
000078f0  20 76 79 3d 28 79 2d 74  79 25 29 2f 64 2a 76 2a  | vy=(y-ty%)/d*v*|
00007900  2e 35 2a b3 28 31 29 0d  2f 30 1b 20 20 20 20 20  |.5*.(1)./0.     |
00007910  20 20 20 20 20 20 76 7a  3d 76 7a 2d b3 28 31 29  |      vz=vz-.(1)|
00007920  2f 35 0d 2f 3a 34 20 20  20 20 20 20 20 20 20 20  |/5./:4          |
00007930  20 69 25 3d 39 3a 54 53  25 3d b9 3a d4 33 2c 2d  | i%=9:TS%=.:.3,-|
00007940  a4 6d 69 6e 28 31 35 2c  39 2b 31 33 30 30 2f 59  |.min(15,9+1300/Y|
00007950  31 29 2c 30 2c 30 0d 2f  44 0f 20 20 20 20 20 20  |1),0,0./D.      |
00007960  20 20 20 20 cd 0d 2f 4e  0e 20 20 20 20 20 20 20  |    ../N.       |
00007970  20 20 ed 0d 2f 58 0d 20  20 20 20 20 20 20 20 cd  |  ../X.        .|
00007980  0d 2f 62 0c 20 20 20 20  20 20 20 cd 0d 2f 6c 0b  |./b.       ../l.|
00007990  20 20 20 20 20 20 cd 0d  2f 76 0a 20 20 20 20 20  |      ../v.     |
000079a0  cd 0d 2f 80 09 20 20 20  20 cd 0d 2f 8a 08 20 20  |../..    ../..  |
000079b0  20 cc 0d 2f 94 1a 20 20  20 20 68 74 25 3d 2d 31  | ../..    ht%=-1|
000079c0  3a 4c 53 25 3d a3 3a 54  53 25 3d a3 0d 2f 9e 08  |:LS%=.:TS%=../..|
000079d0  20 20 20 cd 0d 2f a8 07  20 20 cd 0d 2f b2 1f 20  |   ../..  ../.. |
000079e0  20 f2 58 59 30 31 28 62  78 2c 62 79 29 3a f2 58  | .XY01(bx,by):.X|
000079f0  59 31 32 28 58 31 2c 59  31 29 0d 2f bc 3f 20 20  |Y12(X1,Y1)./.?  |
00007a00  62 7a 68 3d a4 68 74 32  28 62 61 6c 6c 7a 2c 59  |bzh=.ht2(ballz,Y|
00007a10  31 29 3a 62 7a 32 3d a4  68 74 32 28 62 7a 2c 59  |1):bz2=.ht2(bz,Y|
00007a20  31 29 2d 62 7a 68 3a 73  68 3d a4 68 74 32 28 67  |1)-bzh:sh=.ht2(g|
00007a30  68 2c 59 31 29 2d 62 7a  68 0d 2f c6 1f 20 20 73  |h,Y1)-bzh./..  s|
00007a40  25 3d a4 6d 69 6e 28 34  2c 28 59 31 2d 32 30 30  |%=.min(4,(Y1-200|
00007a50  29 81 31 34 30 2b 31 29  0d 2f d0 1a 20 20 e7 28  |).140+1)./..  .(|
00007a60  ac 62 68 25 29 80 6f 79  31 2b 2e 31 36 3c 59 31  |.bh%).oy1+.16<Y1|
00007a70  20 8c 0d 2f da 23 20 20  20 e7 6f 73 79 32 3e 59  | ../.#   .osy2>Y|
00007a80  32 2b 73 68 20 62 68 25  3d b9 3a 62 68 79 25 3d  |2+sh bh%=.:bhy%=|
00007a90  59 32 2b 73 68 0d 2f e4  07 20 20 cc 0d 2f ee 1c  |Y2+sh./..  ../..|
00007aa0  20 20 20 e7 62 68 25 e7  59 32 2b 73 68 3e 62 68  |   .bh%.Y2+sh>bh|
00007ab0  79 25 20 62 68 25 3d a3  0d 2f f8 07 20 20 cd 0d  |y% bh%=../..  ..|
00007ac0  30 02 0c 20 20 6f 79 31  3d 59 31 0d 30 0c 11 20  |0..  oy1=Y1.0.. |
00007ad0  20 e7 28 41 25 83 34 3d  30 29 20 8c 0d 30 16 1a  | .(A%.4=0) ..0..|
00007ae0  20 20 20 e7 28 63 6c 75  62 25 3c 31 34 29 80 41  |   .(club%<14).A|
00007af0  25 3c 31 37 20 8c 0d 30  20 2c 20 20 20 20 c8 99  |%<17 ..0 ,    ..|
00007b00  34 36 2c 32 39 30 2c 53  50 25 2c 22 42 48 44 47  |46,290,SP%,"BHDG|
00007b10  46 52 22 2c 36 34 30 2d  53 43 25 2a 34 34 2c 32  |FR",640-SC%*44,2|
00007b20  36 38 0d 30 2a 37 20 20  20 20 c8 99 34 36 2c 32  |68.0*7    ..46,2|
00007b30  39 30 2c 53 50 25 2c 78  24 2b 22 47 46 52 22 2b  |90,SP%,x$+"GFR"+|
00007b40  c3 28 70 75 25 29 2b c3  28 67 73 25 29 2c 6d 61  |.(pu%)+.(gs%),ma|
00007b50  6e 78 25 2c 32 37 32 2c  38 0d 30 34 19 20 20 20  |nx%,272,8.04.   |
00007b60  20 e7 67 73 25 3c 65 73  25 67 73 25 3d 67 73 25  | .gs%<es%gs%=gs%|
00007b70  2b 31 0d 30 3e 08 20 20  20 cd 0d 30 48 07 20 20  |+1.0>.   ..0H.  |
00007b80  cd 0d 30 52 3f 20 20 c8  99 34 36 2c 32 39 30 2c  |..0R?  ..46,290,|
00007b90  53 50 25 2c 22 42 48 44  53 22 2c 6f 78 32 2c 6f  |SP%,"BHDS",ox2,o|
00007ba0  73 79 32 3a c8 99 34 36  2c 32 39 30 2c 53 50 25  |sy2:..46,290,SP%|
00007bb0  2c 22 42 48 44 42 22 2c  6f 78 32 2c 6f 62 79 32  |,"BHDB",ox2,oby2|
00007bc0  0d 30 5c 2f 20 20 ec 58  32 2c 59 32 2b 73 68 3a  |.0\/  .X2,Y2+sh:|
00007bd0  ec 58 32 2c 59 32 2b 73  68 3a c8 99 34 36 2c 32  |.X2,Y2+sh:..46,2|
00007be0  37 30 2c 53 50 25 2c 22  42 48 44 53 22 2c 30 0d  |70,SP%,"BHDS",0.|
00007bf0  30 66 40 20 20 62 73 25  3d b0 58 32 2c 59 32 2b  |0f@  bs%=.X2,Y2+|
00007c00  73 68 29 3a ec 58 32 2c  59 32 2b 62 7a 32 3a ec  |sh):.X2,Y2+bz2:.|
00007c10  58 32 2c 59 32 2b 62 7a  32 3a c8 99 34 36 2c 32  |X2,Y2+bz2:..46,2|
00007c20  37 30 2c 53 50 25 2c 22  42 48 44 42 22 2c 30 0d  |70,SP%,"BHDB",0.|
00007c30  30 70 15 20 20 62 62 25  3d b0 58 32 2c 59 32 2b  |0p.  bb%=.X2,Y2+|
00007c40  62 7a 32 29 0d 30 7a 15  20 20 e7 28 ac 62 68 25  |bz2).0z.  .(.bh%|
00007c50  29 80 62 7a 3e 67 68 20  8c 0d 30 84 3e 20 20 20  |).bz>gh ..0.>   |
00007c60  e7 62 73 25 3c 3e 42 63  6f 6c 25 8c e7 ac a4 62  |.bs%<>Bcol%....b|
00007c70  68 64 6f 62 6a 28 62 73  25 29 8c c8 99 34 36 2c  |hdobj(bs%)...46,|
00007c80  32 39 30 2c 53 50 25 2c  22 53 48 44 4f 22 2c 58  |290,SP%,"SHDO",X|
00007c90  32 2c 59 32 2b 73 68 0d  30 8e 07 20 20 cd 0d 30  |2,Y2+sh.0..  ..0|
00007ca0  98 1c 20 20 e7 28 28 ac  62 68 25 29 84 59 32 2b  |..  .((.bh%).Y2+|
00007cb0  62 7a 32 3e 62 68 79 25  29 8c 0d 30 a2 2b 20 20  |bz2>bhy%)..0.+  |
00007cc0  20 e7 ac 28 28 67 68 3d  62 7a 29 80 28 28 62 68  | ..((gh=bz).((bh|
00007cd0  64 62 6c 25 3d 32 34 29  84 62 68 64 62 6c 25 3d  |dbl%=24).bhdbl%=|
00007ce0  32 35 29 29 8c 0d 30 ac  2d 20 20 20 20 e7 ac 28  |25))..0.-    ..(|
00007cf0  a4 62 68 64 6f 62 6a 28  62 62 25 29 80 28 28 76  |.bhdobj(bb%).((v|
00007d00  7a 3c 30 29 84 28 66 25  3e 31 29 84 74 74 25 29  |z<0).(f%>1).tt%)|
00007d10  29 8c 0d 30 b6 2c 20 20  20 20 20 c8 99 34 36 2c  |)..0.,     ..46,|
00007d20  32 39 30 2c 53 50 25 2c  22 42 41 4c 4c 22 2b c3  |290,SP%,"BALL"+.|
00007d30  28 73 25 29 2c 58 32 2c  59 32 2b 62 7a 32 0d 30  |(s%),X2,Y2+bz2.0|
00007d40  c0 09 20 20 20 20 cd 0d  30 ca 08 20 20 20 cd 0d  |..    ..0..   ..|
00007d50  30 d4 07 20 20 cd 0d 30  de 23 20 20 6f 78 32 3d  |0..  ..0.#  ox2=|
00007d60  58 32 3a 6f 62 79 32 3d  59 32 2b 62 7a 32 3a 6f  |X2:oby2=Y2+bz2:o|
00007d70  73 79 32 3d 59 32 2b 73  68 0d 30 e8 11 20 20 e7  |sy2=Y2+sh.0..  .|
00007d80  91 2d 54 49 25 3c 33 8c  c8 96 0d 30 f2 0b 20 20  |.-TI%<3....0..  |
00007d90  54 49 25 3d 91 0d 30 fc  0b 20 fd 67 68 3d 62 7a  |TI%=..0.. .gh=bz|
00007da0  0d 31 06 10 20 f4 5f 5f  5f 5f 62 6f 75 6e 63 65  |.1.. .____bounce|
00007db0  0d 31 10 12 20 68 3d a4  52 68 74 28 62 78 2c 62  |.1.. h=.Rht(bx,b|
00007dc0  79 29 0d 31 1a 27 20 e7  28 66 6c 61 67 78 25 2d  |y).1.' .(flagx%-|
00007dd0  62 78 29 5e 32 2b 28 66  6c 61 67 79 25 2d 62 79  |bx)^2+(flagy%-by|
00007de0  29 5e 32 3c 2e 30 37 36  8c 0d 31 24 0e 20 20 e7  |)^2<.076..1$.  .|
00007df0  b3 28 35 29 3d 31 8c 0d  31 2e 24 20 20 20 c8 99  |.(5)=1..1.$   ..|
00007e00  34 36 2c 32 39 30 2c 53  50 25 2c 22 42 48 44 53  |46,290,SP%,"BHDS|
00007e10  22 2c 58 32 2c 59 32 2b  62 7a 32 0d 31 38 20 20  |",X2,Y2+bz2.18  |
00007e20  20 20 68 6f 6c 65 64 25  28 70 75 25 29 3d b9 3a  |  holed%(pu%)=.:|
00007e30  f2 68 6f 6c 65 64 3a 66  25 3d 33 0d 31 42 07 20  |.holed:f%=3.1B. |
00007e40  20 cd 0d 31 4c 06 20 cd  0d 31 56 1d 20 76 78 3d  | ..1L. ..1V. vx=|
00007e50  76 78 2d a4 73 6c 6f 70  65 78 28 62 78 2c 62 79  |vx-.slopex(bx,by|
00007e60  29 2f 34 2e 35 0d 31 60  1d 20 76 79 3d 76 79 2d  |)/4.5.1`. vy=vy-|
00007e70  a4 73 6c 6f 70 65 79 28  62 78 2c 62 79 29 2f 34  |.slopey(bx,by)/4|
00007e80  2e 35 0d 31 6a 1f 20 76  7a 3d 76 7a 2a 2e 30 34  |.5.1j. vz=vz*.04|
00007e90  2b 69 76 7a 2a 28 2e 34  2b b3 28 31 29 2f 31 33  |+ivz*(.4+.(1)/13|
00007ea0  29 0d 31 74 2d 20 66 61  3d 31 2d 2e 34 36 2a 28  |).1t- fa=1-.46*(|
00007eb0  70 6f 77 65 72 5e 2e 35  29 2f 66 25 3a 76 78 3d  |power^.5)/f%:vx=|
00007ec0  76 78 2a 66 61 3a 76 79  3d 76 79 2a 66 61 0d 31  |vx*fa:vy=vy*fa.1|
00007ed0  7e 1c 20 e7 28 62 68 64  62 6c 25 3d 34 29 84 28  |~. .(bhdbl%=4).(|
00007ee0  62 68 64 62 6c 25 3d 35  29 8c 0d 31 88 23 20 20  |bhdbl%=5)..1.#  |
00007ef0  76 78 3d 76 78 2a 2e 37  31 3a 76 79 3d 76 79 2a  |vx=vx*.71:vy=vy*|
00007f00  2e 37 31 3a 76 7a 3d 76  7a 2a 2e 37 31 0d 31 92  |.71:vz=vz*.71.1.|
00007f10  06 20 cc 0d 31 9c 30 20  e7 28 62 68 64 62 6c 25  |. ..1.0 .(bhdbl%|
00007f20  3d 32 34 29 84 28 62 68  64 62 6c 25 3d 32 35 29  |=24).(bhdbl%=25)|
00007f30  84 a4 6f 75 74 6f 66 62  6e 64 73 28 62 78 2c 62  |..outofbnds(bx,b|
00007f40  79 29 8c 0d 31 a6 20 20  20 76 78 3d 76 78 2a 2e  |y)..1.   vx=vx*.|
00007f50  35 3a 76 79 3d 76 79 2a  2e 35 3a 76 7a 3d 76 7a  |5:vy=vy*.5:vz=vz|
00007f60  2a 2e 35 0d 31 b0 06 20  cc 0d 31 ba 1d 20 e7 28  |*.5.1.. ..1.. .(|
00007f70  62 68 64 62 6c 25 3d 31  32 29 84 28 62 68 64 62  |bhdbl%=12).(bhdb|
00007f80  6c 25 3d 30 29 8c 0d 31  c4 19 20 20 76 78 3d 76  |l%=0)..1..  vx=v|
00007f90  78 2b 62 73 78 3a 76 79  3d 76 79 2b 62 73 79 0d  |x+bsx:vy=vy+bsy.|
00007fa0  31 ce 06 20 cc 0d 31 d8  12 20 e7 28 62 68 64 62  |1.. ..1.. .(bhdb|
00007fb0  6c 25 3d 31 30 29 8c 0d  31 e2 1d 20 20 76 78 3d  |l%=10)..1..  vx=|
00007fc0  76 78 2f 38 3a 76 79 3d  76 79 2f 38 3a 76 7a 3d  |vx/8:vy=vy/8:vz=|
00007fd0  76 7a 2f 38 0d 31 ec 0d  20 20 6d 25 3d 39 39 39  |vz/8.1..  m%=999|
00007fe0  39 0d 31 f6 10 20 20 e3  69 25 3d 31 b8 42 52 50  |9.1..  .i%=1.BRP|
00007ff0  25 0d 32 00 3f 20 20 20  64 25 3d b6 28 28 62 78  |%.2.?   d%=.((bx|
00008000  2d 42 52 58 25 28 69 25  29 29 5e 32 2b 28 62 79  |-BRX%(i%))^2+(by|
00008010  2d 42 52 59 25 28 69 25  29 29 5e 32 29 3a e7 64  |-BRY%(i%))^2):.d|
00008020  25 3c 6d 25 6d 25 3d 64  25 3a 62 70 25 3d 69 25  |%<m%m%=d%:bp%=i%|
00008030  0d 32 0a 07 20 20 ed 0d  32 14 2f 20 20 76 78 3d  |.2..  ..2./  vx=|
00008040  76 78 2b 28 42 52 58 25  28 62 70 25 29 2d 62 78  |vx+(BRX%(bp%)-bx|
00008050  29 2a 28 6d 25 2b 38 30  29 2a 42 64 65 70 74 68  |)*(m%+80)*Bdepth|
00008060  2f 31 31 30 30 30 0d 32  1e 2f 20 20 76 79 3d 76  |/11000.2./  vy=v|
00008070  79 2b 28 42 52 59 25 28  62 70 25 29 2d 62 79 29  |y+(BRY%(bp%)-by)|
00008080  2a 28 6d 25 2b 38 30 29  2a 42 64 65 70 74 68 2f  |*(m%+80)*Bdepth/|
00008090  31 31 30 30 30 0d 32 28  06 20 cc 0d 32 32 1a 20  |11000.2(. ..22. |
000080a0  e7 28 62 68 64 62 6c 25  3d 38 29 84 62 68 64 62  |.(bhdbl%=8).bhdb|
000080b0  6c 25 3d 39 8c 0d 32 3c  23 20 20 76 78 3d 76 78  |l%=9..2<#  vx=vx|
000080c0  2a 2e 37 39 3a 76 79 3d  76 79 2a 2e 37 39 3a 76  |*.79:vy=vy*.79:v|
000080d0  7a 3d 76 7a 2a 2e 37 39  0d 32 46 06 20 cc 0d 32  |z=vz*.79.2F. ..2|
000080e0  50 12 20 e7 28 62 68 64  62 6c 25 3d 33 36 29 8c  |P. .(bhdbl%=36).|
000080f0  0d 32 5a 2b 20 20 73 63  6f 72 65 25 28 70 75 25  |.2Z+  score%(pu%|
00008100  2c 68 6f 6c 65 25 29 3d  73 63 6f 72 65 25 28 70  |,hole%)=score%(p|
00008110  75 25 2c 68 6f 6c 65 25  29 2b 31 0d 32 64 32 20  |u%,hole%)+1.2d2 |
00008120  20 c8 99 34 36 2c 32 39  30 2c 53 50 25 2c 22 42  | ..46,290,SP%,"B|
00008130  48 44 53 22 2c 58 32 2c  59 32 2b 62 7a 32 3a f2  |HDS",X2,Y2+bz2:.|
00008140  69 6e 77 61 74 65 72 3a  69 77 25 3d b9 0d 32 6e  |inwater:iw%=..2n|
00008150  19 20 20 51 25 3d 30 3a  52 25 3d 31 36 3a 2a 46  |.  Q%=0:R%=16:*F|
00008160  58 31 31 32 2c 31 0d 32  78 12 20 20 f2 63 77 78  |X112,1.2x.  .cwx|
00008170  79 28 62 78 2c 62 79 29  0d 32 82 07 20 20 f5 0d  |y(bx,by).2..  ..|
00008180  32 8c 1a 20 20 20 62 78  3d 63 77 78 2b b3 28 31  |2..   bx=cwx+.(1|
00008190  29 2a 52 25 2d 52 25 81  32 0d 32 96 1a 20 20 20  |)*R%-R%.2.2..   |
000081a0  62 79 3d 63 77 79 2b b3  28 31 29 2a 52 25 2d 52  |by=cwy+.(1)*R%-R|
000081b0  25 81 32 0d 32 a0 20 20  20 20 51 25 3d 51 25 2b  |%.2.2.    Q%=Q%+|
000081c0  31 3a e7 28 51 25 83 35  30 29 3d 31 52 25 3d 52  |1:.(Q%.50)=1R%=R|
000081d0  25 2b 38 0d 32 aa 6c 20  20 fd 28 b0 62 78 2c 62  |%+8.2.l  .(.bx,b|
000081e0  79 29 3c 3e 33 36 29 80  28 b0 62 78 2b 34 2c 62  |y)<>36).(.bx+4,b|
000081f0  79 2b 34 29 3c 3e 33 36  29 80 28 b0 62 78 2d 34  |y+4)<>36).(.bx-4|
00008200  2c 62 79 2b 34 29 3c 3e  33 36 20 20 29 80 28 b0  |,by+4)<>36  ).(.|
00008210  62 78 2d 34 2c 62 79 2d  34 29 3c 3e 33 36 29 80  |bx-4,by-4)<>36).|
00008220  28 b0 62 78 2b 34 2c 62  79 2d 34 29 3c 3e 33 36  |(.bx+4,by-4)<>36|
00008230  29 80 28 b0 62 78 2c 62  79 29 3c 3e 31 30 29 0d  |).(.bx,by)<>10).|
00008240  32 b4 0e 20 20 2a 46 58  31 31 32 2c 30 0d 32 be  |2..  *FX112,0.2.|
00008250  0a 20 20 66 25 3d 34 0d  32 c8 06 20 cd 0d 32 d2  |.  f%=4.2.. ..2.|
00008260  06 20 cd 0d 32 dc 06 20  cd 0d 32 e6 06 20 cd 0d  |. ..2.. ..2.. ..|
00008270  32 f0 06 20 cd 0d 32 fa  06 20 cd 0d 33 04 1a 20  |2.. ..2.. ..3.. |
00008280  62 73 78 3d 62 73 78 2a  2e 33 3a 62 73 79 3d 62  |bsx=bsx*.3:bsy=b|
00008290  73 79 2a 2e 33 0d 33 0e  05 ed 0d 33 18 12 e7 68  |sy*.3.3....3...h|
000082a0  6f 6c 65 64 25 28 70 75  25 29 8c e1 0d 33 22 0d  |oled%(pu%)...3".|
000082b0  e7 69 77 25 8c 8d 64 56  78 0d 33 2c 17 76 78 3d  |.iw%..dVx.3,.vx=|
000082c0  76 78 2a 31 2e 34 3a 76  79 3d 76 79 2a 31 2e 34  |vx*1.4:vy=vy*1.4|
000082d0  0d 33 36 0d f4 5f 5f 5f  5f 72 6f 6c 6c 0d 33 40  |.36..____roll.3@|
000082e0  1c 65 6f 73 25 3d a3 3a  73 74 25 3d 30 3a 72 74  |.eos%=.:st%=0:rt|
000082f0  25 3d a3 3a 68 66 25 3d  a3 0d 33 4a 0e 42 25 3d  |%=.:hf%=..3J.B%=|
00008300  30 3a 54 49 25 3d 91 0d  33 54 05 f5 0d 33 5e 1a  |0:TI%=..3T...3^.|
00008310  20 41 25 3d 41 25 2b 31  3a 6f 62 78 3d 62 78 3a  | A%=A%+1:obx=bx:|
00008320  6f 62 79 3d 62 79 0d 33  68 1d 20 76 78 3d 76 78  |oby=by.3h. vx=vx|
00008330  2a 28 2e 39 35 31 2b 47  73 70 65 65 64 25 2f 35  |*(.951+Gspeed%/5|
00008340  30 30 29 0d 33 72 1d 20  76 79 3d 76 79 2a 28 2e  |00).3r. vy=vy*(.|
00008350  39 35 31 2b 47 73 70 65  65 64 25 2f 35 30 30 29  |951+Gspeed%/500)|
00008360  0d 33 7c 38 20 62 78 3d  62 78 2b 76 78 3a 62 79  |.3|8 bx=bx+vx:by|
00008370  3d 62 79 2b 76 79 3a 67  68 3d a4 52 68 74 28 62  |=by+vy:gh=.Rht(b|
00008380  78 2c 62 79 29 3a 76 78  79 3d b6 28 76 78 2a 76  |x,by):vxy=.(vx*v|
00008390  78 2b 76 79 2a 76 79 29  0d 33 86 1c 20 76 78 3d  |x+vy*vy).3.. vx=|
000083a0  76 78 2d a4 73 6c 6f 70  65 78 28 62 78 2c 62 79  |vx-.slopex(bx,by|
000083b0  29 2f 36 34 0d 33 90 1c  20 76 79 3d 76 79 2d a4  |)/64.3.. vy=vy-.|
000083c0  73 6c 6f 70 65 79 28 62  78 2c 62 79 29 2f 36 34  |slopey(bx,by)/64|
000083d0  0d 33 9a 0d 20 2a 46 58  31 31 32 2c 31 0d 33 a4  |.3.. *FX112,1.3.|
000083e0  13 20 62 68 64 62 6c 25  3d b0 62 78 2c 62 79 29  |. bhdbl%=.bx,by)|
000083f0  0d 33 ae 0d 20 2a 46 58  31 31 32 2c 30 0d 33 b8  |.3.. *FX112,0.3.|
00008400  0b 20 e7 ac 72 74 25 8c  0d 33 c2 27 20 20 e7 28  |. ..rt%..3.'  .(|
00008410  62 68 64 62 6c 25 3d 39  29 84 28 62 68 64 62 6c  |bhdbl%=9).(bhdbl|
00008420  25 3d 35 29 84 62 68 64  62 6c 25 3d 32 35 8c 0d  |%=5).bhdbl%=25..|
00008430  33 cc 18 20 20 20 f4 5f  5f 63 68 65 63 6b 20 66  |3..   .__check f|
00008440  6f 72 20 74 72 65 65 0d  33 d6 1f 20 20 20 e7 68  |or tree.3..   .h|
00008450  74 25 3d 2d 31 8c 68 74  25 3d a4 74 72 65 65 28  |t%=-1.ht%=.tree(|
00008460  62 78 2c 62 79 29 0d 33  e0 24 20 20 20 e7 54 64  |bx,by).3.$   .Td|
00008470  69 73 74 3c 54 57 25 28  74 72 65 65 74 79 70 25  |ist<TW%(treetyp%|
00008480  28 68 74 25 29 29 2f 31  34 8c 0d 33 ea 17 20 20  |(ht%))/14..3..  |
00008490  20 20 70 25 3d b0 58 32  2c 59 32 2b 73 68 2b 34  |  p%=.X2,Y2+sh+4|
000084a0  29 0d 33 f4 1d 20 20 20  20 e7 28 70 25 3d 31 29  |).3..    .(p%=1)|
000084b0  84 28 70 25 3d 36 29 84  70 25 3d 36 33 8c 0d 33  |.(p%=6).p%=63..3|
000084c0  fe 28 20 20 20 20 20 74  78 25 3d 74 72 65 65 78  |.(     tx%=treex|
000084d0  25 28 68 74 25 29 3a 74  79 25 3d 74 72 65 65 79  |%(ht%):ty%=treey|
000084e0  25 28 68 74 25 29 0d 34  08 19 20 20 20 20 20 76  |%(ht%).4..     v|
000084f0  3d b6 28 76 78 2a 76 78  2b 76 79 2a 76 79 29 0d  |=.(vx*vx+vy*vy).|
00008500  34 12 28 20 20 20 20 20  64 3d b6 28 28 28 62 78  |4.(     d=.(((bx|
00008510  2d 74 78 25 29 5e 32 2b  28 62 79 2d 74 79 25 29  |-tx%)^2+(by-ty%)|
00008520  5e 32 29 29 2b 2e 31 0d  34 1c 15 20 20 20 20 20  |^2))+.1.4..     |
00008530  e7 28 64 3c 35 29 80 ac  54 53 25 8c 0d 34 26 16  |.(d<5)..TS%..4&.|
00008540  20 20 20 20 20 20 f4 5f  5f 68 69 74 20 74 72 75  |      .__hit tru|
00008550  6e 6b 0d 34 30 21 20 20  20 20 20 20 76 78 3d 28  |nk.40!      vx=(|
00008560  62 78 2d 74 78 25 29 2f  64 2a 76 2a b3 28 31 29  |bx-tx%)/d*v*.(1)|
00008570  2a 2e 38 0d 34 3a 21 20  20 20 20 20 20 76 79 3d  |*.8.4:!      vy=|
00008580  28 62 79 2d 74 79 25 29  2f 64 2a 76 2a b3 28 31  |(by-ty%)/d*v*.(1|
00008590  29 2a 2e 38 0d 34 44 1f  20 20 20 20 20 20 72 74  |)*.8.4D.      rt|
000085a0  25 3d b9 3a 54 53 25 3d  b9 3a d4 33 2c 2d 36 2c  |%=.:TS%=.:.3,-6,|
000085b0  30 2c 30 0d 34 4e 0a 20  20 20 20 20 cd 0d 34 58  |0,0.4N.     ..4X|
000085c0  09 20 20 20 20 cd 0d 34  62 08 20 20 20 cc 0d 34  |.    ..4b.   ..4|
000085d0  6c 0e 20 20 20 20 68 74  25 3d 2d 31 0d 34 76 08  |l.    ht%=-1.4v.|
000085e0  20 20 20 cd 0d 34 80 07  20 20 cd 0d 34 8a 06 20  |   ..4..  ..4.. |
000085f0  cd 0d 34 94 1c 20 e7 28  62 68 64 62 6c 25 3d 38  |..4.. .(bhdbl%=8|
00008600  29 84 28 62 68 64 62 6c  25 3d 39 29 8c 0d 34 9e  |).(bhdbl%=9)..4.|
00008610  2b 20 20 66 3d 2e 39 36  2b b3 28 31 29 2f 34 30  |+  f=.96+.(1)/40|
00008620  3a 76 78 3d 76 78 2a 66  3a 76 79 3d 76 79 2a 66  |:vx=vx*f:vy=vy*f|
00008630  3a 76 7a 3d 76 7a 2a 66  0d 34 a8 06 20 cc 0d 34  |:vz=vz*f.4.. ..4|
00008640  b2 1c 20 e7 28 62 68 64  62 6c 25 3d 34 29 84 28  |.. .(bhdbl%=4).(|
00008650  62 68 64 62 6c 25 3d 35  29 8c 0d 34 bc 2b 20 20  |bhdbl%=5)..4.+  |
00008660  66 3d 2e 39 33 2b b3 28  31 29 2f 35 30 3a 76 78  |f=.93+.(1)/50:vx|
00008670  3d 76 78 2a 66 3a 76 79  3d 76 79 2a 66 3a 76 7a  |=vx*f:vy=vy*f:vz|
00008680  3d 76 7a 2a 66 0d 34 c6  06 20 cc 0d 34 d0 30 20  |=vz*f.4.. ..4.0 |
00008690  e7 28 62 68 64 62 6c 25  3d 32 34 29 84 28 62 68  |.(bhdbl%=24).(bh|
000086a0  64 62 6c 25 3d 32 35 29  84 a4 6f 75 74 6f 66 62  |dbl%=25)..outofb|
000086b0  6e 64 73 28 62 78 2c 62  79 29 8c 0d 34 da 2b 20  |nds(bx,by)..4.+ |
000086c0  20 66 3d 2e 38 39 2b b3  28 31 29 2f 35 30 3a 76  | f=.89+.(1)/50:v|
000086d0  78 3d 76 78 2a 66 3a 76  79 3d 76 79 2a 66 3a 76  |x=vx*f:vy=vy*f:v|
000086e0  7a 3d 76 7a 2a 66 0d 34  e4 06 20 cc 0d 34 ee 10  |z=vz*f.4.. ..4..|
000086f0  20 e7 62 68 64 62 6c 25  3d 31 30 8c 0d 34 f8 17  | .bhdbl%=10..4..|
00008700  20 20 76 78 3d 76 78 2a  2e 37 3a 76 79 3d 76 79  |  vx=vx*.7:vy=vy|
00008710  2a 2e 37 0d 35 02 0e 20  20 e7 62 70 25 3d 2d 31  |*.7.5..  .bp%=-1|
00008720  8c 0d 35 0c 0e 20 20 20  6d 25 3d 39 39 39 39 0d  |..5..   m%=9999.|
00008730  35 16 11 20 20 20 e3 69  25 3d 31 b8 42 52 50 25  |5..   .i%=1.BRP%|
00008740  0d 35 20 40 20 20 20 20  64 25 3d b6 28 28 62 78  |.5 @    d%=.((bx|
00008750  2d 42 52 58 25 28 69 25  29 29 5e 32 2b 28 62 79  |-BRX%(i%))^2+(by|
00008760  2d 42 52 59 25 28 69 25  29 29 5e 32 29 3a e7 64  |-BRY%(i%))^2):.d|
00008770  25 3c 6d 25 6d 25 3d 64  25 3a 62 70 25 3d 69 25  |%<m%m%=d%:bp%=i%|
00008780  0d 35 2a 08 20 20 20 ed  0d 35 34 15 20 20 20 61  |.5*.   ..54.   a|
00008790  25 3d 38 30 3a 62 25 3d  31 31 30 30 30 0d 35 3e  |%=80:b%=11000.5>|
000087a0  07 20 20 cc 0d 35 48 15  20 20 20 61 25 3d 34 30  |.  ..5H.   a%=40|
000087b0  3a 62 25 3d 38 30 30 30  30 0d 35 52 07 20 20 cd  |:b%=80000.5R.  .|
000087c0  0d 35 5c 2c 20 20 76 78  3d 76 78 2b 28 42 52 58  |.5\,  vx=vx+(BRX|
000087d0  25 28 62 70 25 29 2d 62  78 29 2a 28 6d 25 2b 61  |%(bp%)-bx)*(m%+a|
000087e0  25 29 2a 42 64 65 70 74  68 2f 62 25 0d 35 66 2c  |%)*Bdepth/b%.5f,|
000087f0  20 20 76 79 3d 76 79 2b  28 42 52 59 25 28 62 70  |  vy=vy+(BRY%(bp|
00008800  25 29 2d 62 79 29 2a 28  6d 25 2b 61 25 29 2a 42  |%)-by)*(m%+a%)*B|
00008810  64 65 70 74 68 2f 62 25  0d 35 70 06 20 cd 0d 35  |depth/b%.5p. ..5|
00008820  7a 06 20 cd 0d 35 84 06  20 cd 0d 35 8e 06 20 cd  |z. ..5.. ..5.. .|
00008830  0d 35 98 1e 20 f2 58 59  30 31 28 62 78 2c 62 79  |.5.. .XY01(bx,by|
00008840  29 3a f2 58 59 31 32 28  58 31 2c 59 31 29 0d 35  |):.XY12(X1,Y1).5|
00008850  a2 2a 20 62 7a 68 3d a4  68 74 32 28 62 61 6c 6c  |.* bzh=.ht2(ball|
00008860  7a 2c 59 31 29 3a 73 68  3d a4 68 74 32 28 67 68  |z,Y1):sh=.ht2(gh|
00008870  2c 59 31 29 2d 62 7a 68  0d 35 ac 19 20 e7 28 ac  |,Y1)-bzh.5.. .(.|
00008880  62 68 25 29 80 6f 79 31  2b 2e 31 36 3c 59 31 20  |bh%).oy1+.16<Y1 |
00008890  8c 0d 35 b6 22 20 20 e7  6f 73 79 32 3e 59 32 2b  |..5."  .osy2>Y2+|
000088a0  73 68 20 62 68 25 3d b9  3a 62 68 79 25 3d 59 32  |sh bh%=.:bhy%=Y2|
000088b0  2b 73 68 0d 35 c0 06 20  cc 0d 35 ca 1b 20 20 e7  |+sh.5.. ..5..  .|
000088c0  62 68 25 e7 59 32 2b 73  68 3e 62 68 79 25 20 62  |bh%.Y2+sh>bhy% b|
000088d0  68 25 3d a3 0d 35 d4 06  20 cd 0d 35 de 0b 20 6f  |h%=..5.. ..5.. o|
000088e0  79 31 3d 59 31 0d 35 e8  16 20 e7 28 41 25 83 34  |y1=Y1.5.. .(A%.4|
000088f0  3d 30 29 80 41 25 3c 32  31 20 8c 0d 35 f2 12 20  |=0).A%<21 ..5.. |
00008900  20 e7 67 73 25 3c 65 73  25 2b 31 20 8c 0d 35 fc  | .gs%<es%+1 ..5.|
00008910  23 20 20 20 c8 99 34 36  2c 32 39 30 2c 53 50 25  |#   ..46,290,SP%|
00008920  2c 22 42 48 44 53 22 2c  6f 78 32 2c 6f 73 79 32  |,"BHDS",ox2,osy2|
00008930  0d 36 06 2b 20 20 20 c8  99 34 36 2c 32 39 30 2c  |.6.+   ..46,290,|
00008940  53 50 25 2c 22 42 48 44  47 46 52 22 2c 36 34 30  |SP%,"BHDGFR",640|
00008950  2d 53 43 25 2a 34 34 2c  32 36 38 0d 36 10 36 20  |-SC%*44,268.6.6 |
00008960  20 20 c8 99 34 36 2c 32  39 30 2c 53 50 25 2c 78  |  ..46,290,SP%,x|
00008970  24 2b 22 47 46 52 22 2b  c3 28 70 75 25 29 2b c3  |$+"GFR"+.(pu%)+.|
00008980  28 67 73 25 29 2c 6d 61  6e 78 25 2c 32 37 32 2c  |(gs%),manx%,272,|
00008990  38 0d 36 1a 1a 20 20 20  ec 6f 78 32 2c 6f 73 79  |8.6..   .ox2,osy|
000089a0  32 3a ec 6f 78 32 2c 6f  73 79 32 0d 36 24 1c 20  |2:.ox2,osy2.6$. |
000089b0  20 20 c8 99 34 36 2c 32  37 30 2c 53 50 25 2c 22  |  ..46,270,SP%,"|
000089c0  42 48 44 53 22 2c 30 0d  36 2e 5f 20 20 20 e7 ac  |BHDS",0.6._   ..|
000089d0  62 68 25 8c 3a e7 ac 28  28 62 68 64 62 6c 25 3d  |bh%.:..((bhdbl%=|
000089e0  32 34 29 84 62 68 64 62  6c 25 3d 32 35 29 8c e7  |24).bhdbl%=25)..|
000089f0  ac 28 a4 62 68 64 6f 62  6a 28 62 62 25 29 29 8c  |.(.bhdobj(bb%)).|
00008a00  20 20 20 20 c8 99 34 36  2c 32 39 30 2c 53 50 25  |    ..46,290,SP%|
00008a10  2c 22 42 41 4c 4c 22 2b  c3 28 73 25 29 2c 6f 78  |,"BALL"+.(s%),ox|
00008a20  32 2c 6f 73 79 32 0d 36  38 10 20 20 20 67 73 25  |2,osy2.68.   gs%|
00008a30  3d 67 73 25 2b 31 0d 36  42 07 20 20 cd 0d 36 4c  |=gs%+1.6B.  ..6L|
00008a40  06 20 cd 0d 36 56 39 20  50 58 25 3d 58 32 3a 50  |. ..6V9 PX%=X2:P|
00008a50  59 25 3d 59 32 2b 73 68  3a 42 4f 42 25 3d a4 62  |Y%=Y2+sh:BOB%=.b|
00008a60  68 64 6f 62 6a 28 62 62  25 29 3a ec 50 58 25 2c  |hdobj(bb%):.PX%,|
00008a70  50 59 25 3a ec 50 58 25  2c 50 59 25 0d 36 60 3a  |PY%:.PX%,PY%.6`:|
00008a80  20 c8 96 3a c8 99 34 36  2c 32 39 30 2c 53 50 25  | ..:..46,290,SP%|
00008a90  2c 22 42 48 44 53 22 2c  6f 78 32 2c 6f 73 79 32  |,"BHDS",ox2,osy2|
00008aa0  3a c8 99 34 36 2c 32 37  30 2c 53 50 25 2c 22 42  |:..46,270,SP%,"B|
00008ab0  48 44 53 22 2c 30 0d 36  6a 12 20 62 62 25 3d b0  |HDS",0.6j. bb%=.|
00008ac0  50 58 25 2c 50 59 25 29  0d 36 74 4f 20 e7 ac 62  |PX%,PY%).6tO ..b|
00008ad0  68 25 8c e7 ac 28 28 62  68 64 62 6c 25 3d 32 34  |h%...((bhdbl%=24|
00008ae0  29 84 62 68 64 62 6c 25  3d 32 35 29 8c e7 ac 42  |).bhdbl%=25)...B|
00008af0  4f 42 25 8c c8 99 34 36  2c 32 39 30 2c 53 50 25  |OB%...46,290,SP%|
00008b00  2c 20 20 22 42 41 4c 4c  22 2b c3 28 73 25 29 2c  |,  "BALL"+.(s%),|
00008b10  50 58 25 2c 50 59 25 0d  36 7e 16 20 6f 78 32 3d  |PX%,PY%.6~. ox2=|
00008b20  58 32 3a 6f 73 79 32 3d  59 32 2b 73 68 0d 36 88  |X2:osy2=Y2+sh.6.|
00008b30  0e 20 e7 76 78 79 3c 2e  30 35 8c 0d 36 92 0c 20  |. .vxy<.05..6.. |
00008b40  20 73 74 25 2b 3d 31 0d  36 9c 13 20 20 e7 73 74  | st%+=1.6..  .st|
00008b50  25 3e 34 30 65 6f 73 25  3d b9 0d 36 a6 06 20 cc  |%>40eos%=..6.. .|
00008b60  0d 36 b0 0b 20 20 73 74  25 3d 30 0d 36 ba 06 20  |.6..  st%=0.6.. |
00008b70  cd 0d 36 c4 26 20 68 64  3d b6 28 28 66 6c 61 67  |..6.& hd=.((flag|
00008b80  78 25 2d 62 78 29 5e 32  2b 28 66 6c 61 67 79 25  |x%-bx)^2+(flagy%|
00008b90  2d 62 79 29 5e 32 29 0d  36 ce 12 20 e7 68 64 3c  |-by)^2).6.. .hd<|
00008ba0  2e 30 37 36 2a 53 4c 20  8c 0d 36 d8 13 20 20 e7  |.076*SL ..6..  .|
00008bb0  76 78 79 3c 2e 32 34 2a  53 4c 20 8c 0d 36 e2 26  |vxy<.24*SL ..6.&|
00008bc0  20 20 20 c8 96 3a c8 99  34 36 2c 32 39 30 2c 53  |   ..:..46,290,S|
00008bd0  50 25 2c 22 42 48 44 53  22 2c 58 32 2c 59 32 2b  |P%,"BHDS",X2,Y2+|
00008be0  73 68 0d 36 ec 16 20 20  20 e7 67 73 25 3e 65 73  |sh.6..   .gs%>es|
00008bf0  25 67 73 25 3d 65 73 25  0d 36 f6 2b 20 20 20 c8  |%gs%=es%.6.+   .|
00008c00  99 34 36 2c 32 39 30 2c  53 50 25 2c 22 42 48 44  |.46,290,SP%,"BHD|
00008c10  47 46 52 22 2c 36 34 30  2d 34 34 2a 53 43 25 2c  |GFR",640-44*SC%,|
00008c20  32 36 38 0d 37 00 36 20  20 20 c8 99 34 36 2c 32  |268.7.6   ..46,2|
00008c30  39 30 2c 53 50 25 2c 78  24 2b 22 47 46 52 22 2b  |90,SP%,x$+"GFR"+|
00008c40  c3 28 70 75 25 29 2b c3  28 67 73 25 29 2c 6d 61  |.(pu%)+.(gs%),ma|
00008c50  6e 78 25 2c 32 37 32 2c  38 0d 37 0a 22 20 20 20  |nx%,272,8.7."   |
00008c60  f2 68 6f 6c 65 64 3a 65  6f 73 25 3d b9 3a 68 6f  |.holed:eos%=.:ho|
00008c70  6c 65 64 25 28 70 75 25  29 3d b9 0d 37 14 07 20  |led%(pu%)=..7.. |
00008c80  20 cd 0d 37 1e 19 20 20  76 78 3d 76 78 2a 2e 37  | ..7..  vx=vx*.7|
00008c90  35 3a 76 79 3d 76 79 2a  2e 37 35 0d 37 28 06 20  |5:vy=vy*.75.7(. |
00008ca0  cc 0d 37 32 12 20 20 e7  68 64 3c 2e 31 32 2a 53  |..72.  .hd<.12*S|
00008cb0  4c 20 8c 0d 37 3c 12 20  20 20 f4 5f 5f 5f 72 69  |L ..7<.   .___ri|
00008cc0  6d 20 63 75 70 0d 37 46  20 20 20 20 76 78 3d 76  |m cup.7F    vx=v|
00008cd0  78 2b 2e 30 32 36 2a 28  66 6c 61 67 78 25 2d 62  |x+.026*(flagx%-b|
00008ce0  78 29 2f 68 64 0d 37 50  20 20 20 20 76 79 3d 76  |x)/hd.7P    vy=v|
00008cf0  79 2b 2e 30 32 36 2a 28  66 6c 61 67 79 25 2d 62  |y+.026*(flagy%-b|
00008d00  79 29 2f 68 64 0d 37 5a  1a 20 20 20 76 78 3d 76  |y)/hd.7Z.   vx=v|
00008d10  78 2a 2e 37 35 3a 76 79  3d 76 79 2a 2e 37 35 0d  |x*.75:vy=vy*.75.|
00008d20  37 64 07 20 20 cc 0d 37  6e 0d 20 20 20 e7 68 64  |7d.  ..7n.   .hd|
00008d30  3c 31 8c 0d 37 78 16 20  20 20 20 e7 28 ac 6f 6e  |<1..7x.    .(.on|
00008d40  67 25 29 80 ac 68 66 25  8c 0d 37 82 11 20 20 20  |g%)..hf%..7..   |
00008d50  20 20 e3 69 25 3d 31 b8  31 30 0d 37 8c 22 20 20  |  .i%=1.10.7."  |
00008d60  20 20 20 20 78 3d 28 6f  62 78 2a 28 31 30 2d 69  |    x=(obx*(10-i|
00008d70  25 29 2b 62 78 2a 69 25  29 2f 31 30 0d 37 96 22  |%)+bx*i%)/10.7."|
00008d80  20 20 20 20 20 20 79 3d  28 6f 62 79 2a 28 31 30  |      y=(oby*(10|
00008d90  2d 69 25 29 2b 62 79 2a  69 25 29 2f 31 30 0d 37  |-i%)+by*i%)/10.7|
00008da0  a0 2a 20 20 20 20 20 20  64 3d b6 28 28 28 78 2d  |.*      d=.(((x-|
00008db0  66 6c 61 67 78 25 29 5e  32 2b 28 79 2d 66 6c 61  |flagx%)^2+(y-fla|
00008dc0  67 79 25 29 5e 32 29 29  0d 37 aa 11 20 20 20 20  |gy%)^2)).7..    |
00008dd0  20 20 e7 64 3c 2e 30 36  8c 0d 37 b4 16 20 20 20  |  .d<.06..7..   |
00008de0  20 20 20 20 f4 5f 5f 68  69 74 20 66 6c 61 67 0d  |    .__hit flag.|
00008df0  37 be 1a 20 20 20 20 20  20 20 62 78 3d 78 3a 62  |7..       bx=x:b|
00008e00  79 3d 79 3a 69 25 3d 31  31 0d 37 c8 1b 20 20 20  |y=y:i%=11.7..   |
00008e10  20 20 20 20 76 78 3d 76  78 79 2a 28 b3 28 31 29  |    vx=vxy*(.(1)|
00008e20  2d 2e 35 29 0d 37 d2 1b  20 20 20 20 20 20 20 76  |-.5).7..       v|
00008e30  79 3d 76 78 79 2a 28 b3  28 31 29 2d 2e 35 29 0d  |y=vxy*(.(1)-.5).|
00008e40  37 dc 25 20 20 20 20 20  20 20 68 66 25 3d b9 3a  |7.%       hf%=.:|
00008e50  d4 34 2c 2d 31 35 2b 79  64 73 25 81 34 30 2c 31  |.4,-15+yds%.40,1|
00008e60  37 30 2c 31 0d 37 e6 0b  20 20 20 20 20 20 cd 0d  |70,1.7..      ..|
00008e70  37 f0 0a 20 20 20 20 20  ed 0d 37 fa 09 20 20 20  |7..     ..7..   |
00008e80  20 cd 0d 38 04 08 20 20  20 cd 0d 38 0e 07 20 20  | ..8..   ..8..  |
00008e90  cd 0d 38 18 06 20 cd 0d  38 22 12 20 e7 28 62 68  |..8.. ..8". .(bh|
00008ea0  64 62 6c 25 3d 33 36 29  8c 0d 38 2c 1a 20 20 e7  |dbl%=36)..8,.  .|
00008eb0  ac a4 6f 75 74 6f 66 62  6e 64 73 28 62 78 2c 62  |..outofbnds(bx,b|
00008ec0  79 29 8c 0d 38 36 1b 20  20 20 73 63 6f 72 65 25  |y)..86.   score%|
00008ed0  28 70 75 25 2c 68 6f 6c  65 25 29 2b 3d 31 0d 38  |(pu%,hole%)+=1.8|
00008ee0  40 23 20 20 20 c8 99 34  36 2c 32 39 30 2c 53 50  |@#   ..46,290,SP|
00008ef0  25 2c 22 42 48 44 53 22  2c 58 32 2c 59 32 2b 73  |%,"BHDS",X2,Y2+s|
00008f00  68 0d 38 4a 23 20 20 20  f2 69 6e 77 61 74 65 72  |h.8J#   .inwater|
00008f10  3a 51 25 3d 30 3a 52 25  3d 31 36 3a 2a 46 58 31  |:Q%=0:R%=16:*FX1|
00008f20  31 32 2c 31 0d 38 54 13  20 20 20 f2 63 77 78 79  |12,1.8T.   .cwxy|
00008f30  28 62 78 2c 62 79 29 0d  38 5e 08 20 20 20 f5 0d  |(bx,by).8^.   ..|
00008f40  38 68 1b 20 20 20 20 62  78 3d 63 77 78 2b b3 28  |8h.    bx=cwx+.(|
00008f50  31 29 2a 52 25 2d 52 25  81 32 0d 38 72 1b 20 20  |1)*R%-R%.2.8r.  |
00008f60  20 20 62 79 3d 63 77 79  2b b3 28 31 29 2a 52 25  |  by=cwy+.(1)*R%|
00008f70  2d 52 25 81 32 0d 38 7c  21 20 20 20 20 51 25 3d  |-R%.2.8|!    Q%=|
00008f80  51 25 2b 31 3a e7 28 51  25 83 35 30 29 3d 31 52  |Q%+1:.(Q%.50)=1R|
00008f90  25 3d 52 25 2b 38 0d 38  86 72 20 20 20 fd 28 b0  |%=R%+8.8.r   .(.|
00008fa0  62 78 2c 62 79 29 3c 3e  33 36 29 80 28 b0 62 78  |bx,by)<>36).(.bx|
00008fb0  2b 34 2c 62 79 2b 34 29  3c 3e 33 36 29 80 28 b0  |+4,by+4)<>36).(.|
00008fc0  62 78 2d 34 2c 62 79 2b  34 29 3c 3e 20 20 20 20  |bx-4,by+4)<>    |
00008fd0  33 36 29 80 28 b0 62 78  2d 34 2c 62 79 2d 34 29  |36).(.bx-4,by-4)|
00008fe0  3c 3e 33 36 29 80 28 b0  62 78 2b 34 2c 62 79 2d  |<>36).(.bx+4,by-|
00008ff0  34 29 3c 3e 33 36 29 80  28 b0 62 78 2c 62 79 29  |4)<>36).(.bx,by)|
00009000  3c 3e 20 20 20 31 30 29  0d 38 90 0f 20 20 20 2a  |<>   10).8..   *|
00009010  46 58 31 31 32 2c 30 0d  38 9a 0d 20 20 20 65 6f  |FX112,0.8..   eo|
00009020  73 25 3d b9 0d 38 a4 07  20 20 cd 0d 38 ae 06 20  |s%=..8..  ..8.. |
00009030  cd 0d 38 b8 16 20 e7 91  2d 54 49 25 3c 35 f5 fd  |..8.. ..-TI%<5..|
00009040  91 2d 54 49 25 3d 35 0d  38 c2 0a 20 54 49 25 3d  |.-TI%=5.8.. TI%=|
00009050  91 0d 38 cc 09 fd 65 6f  73 25 0d 38 d6 44 e7 a4  |..8...eos%.8.D..|
00009060  6f 75 74 6f 66 62 6e 64  73 28 62 78 2c 62 79 29  |outofbnds(bx,by)|
00009070  20 73 63 6f 72 65 25 28  70 75 25 2c 68 6f 6c 65  | score%(pu%,hole|
00009080  25 29 2b 3d 31 3a f2 6f  75 74 62 20 8b 62 61 6c  |%)+=1:.outb .bal|
00009090  6c 78 3d 62 78 3a 62 61  6c 6c 79 3d 62 79 0d 38  |lx=bx:bally=by.8|
000090a0  e0 0c 2a 46 58 31 31 32  2c 31 0d 38 ea 18 62 68  |..*FX112,1.8..bh|
000090b0  64 62 6c 25 3d b0 62 61  6c 6c 78 2c 62 61 6c 6c  |dbl%=.ballx,ball|
000090c0  79 29 0d 38 f4 0c 2a 46  58 31 31 32 2c 30 0d 38  |y).8..*FX112,0.8|
000090d0  fe 05 e1 0d 39 08 05 20  0d 39 12 05 20 0d 39 1c  |....9.. .9.. .9.|
000090e0  0b dd f2 77 68 6f 73 65  0d 39 26 2a f2 69 6e 62  |...whose.9&*.inb|
000090f0  6f 72 64 65 72 3a e6 30  2c 34 32 c8 9c 36 34 3a  |order:.0,42..64:|
00009100  c8 93 c8 90 31 32 2c 31  32 2c 31 32 35 32 2c 32  |....12,12,1252,2|
00009110  33 32 0d 39 30 2e e6 30  2c 36 33 c8 9c 31 32 38  |32.90..0,63..128|
00009120  3a ec 34 35 30 2c 31 32  34 3a f1 6e 61 6d 65 24  |:.450,124:.name$|
00009130  28 70 75 25 29 22 20 74  6f 20 70 6c 61 79 22 3b  |(pu%)" to play";|
00009140  0d 39 3a 05 e1 0d 39 44  04 0d 39 4e 04 0d 39 58  |.9:...9D..9N..9X|
00009150  0f dd f2 63 77 78 79 28  78 2c 79 29 0d 39 62 0a  |...cwxy(x,y).9b.|
00009160  ea 7a 78 2c 7a 79 0d 39  6c 1f 7a 78 3d 36 2a 28  |.zx,zy.9l.zx=6*(|
00009170  78 2d 66 6c 61 67 78 25  29 2f 94 28 78 2d 66 6c  |x-flagx%)/.(x-fl|
00009180  61 67 78 25 29 0d 39 76  1f 7a 79 3d 36 2a 28 79  |agx%).9v.zy=6*(y|
00009190  2d 66 6c 61 67 79 25 29  2f 94 28 79 2d 66 6c 61  |-flagy%)/.(y-fla|
000091a0  67 79 25 29 0d 39 80 2f  63 77 78 3d 78 3a 63 77  |gy%).9./cwx=x:cw|
000091b0  79 3d 79 3a f5 63 77 78  2b 3d 7a 78 3a 63 77 79  |y=y:.cwx+=zx:cwy|
000091c0  2b 3d 7a 79 3a fd b0 63  77 78 2c 63 77 79 29 3c  |+=zy:..cwx,cwy)<|
000091d0  3e 33 36 0d 39 8a 05 e1  0d 39 94 05 20 0d 39 9e  |>36.9....9.. .9.|
000091e0  04 0d 39 a8 0d dd f2 69  6e 77 61 74 65 72 0d 39  |..9....inwater.9|
000091f0  b2 a3 d4 38 2c 2d 31 35  2b a4 6d 61 78 28 30 2c  |...8,-15+.max(0,|
00009200  28 59 31 2d 32 35 30 29  81 38 30 29 2c 30 2c 30  |(Y1-250).80),0,0|
00009210  3a e6 30 2c 34 32 c8 9c  36 34 3a ec 34 36 38 2c  |:.0,42..64:.468,|
00009220  34 34 3a ec 38 31 36 2c  34 34 3a f0 38 35 2c 34  |44:.816,44:.85,4|
00009230  36 38 2c 32 30 38 3a f0  38 35 2c 38 31 36 2c 32  |68,208:.85,816,2|
00009240  30 38 3a e6 30 2c 33 c8  9c 30 3a ec 35 30 30 2c  |08:.0,3..0:.500,|
00009250  31 38 38 3a f1 22 49 6e  20 77 61 74 65 72 22 3b  |188:."In water";|
00009260  3a ec 35 30 30 2c 31 34  30 3a f1 22 31 20 73 74  |:.500,140:."1 st|
00009270  72 6f 6b 65 22 3b 3a ec  35 30 30 2c 39 32 3a f1  |roke";:.500,92:.|
00009280  22 50 65 6e 61 6c 74 79  22 3b 3a f2 77 74 28 34  |"Penalty";:.wt(4|
00009290  29 0d 39 bc 05 e1 0d 39  c6 05 20 0d 39 d0 05 20  |).9....9.. .9.. |
000092a0  0d 39 da 0a dd f2 6f 75  74 62 0d 39 e4 90 6f 62  |.9....outb.9..ob|
000092b0  64 73 25 3d b9 3a e6 30  2c 34 32 c8 9c 36 34 3a  |ds%=.:.0,42..64:|
000092c0  ec 34 36 38 2c 34 34 3a  ec 38 31 36 2c 34 34 3a  |.468,44:.816,44:|
000092d0  f0 38 35 2c 34 36 38 2c  32 30 38 3a f0 38 35 2c  |.85,468,208:.85,|
000092e0  38 31 36 2c 32 30 38 3a  e6 30 2c 33 c8 9c 30 3a  |816,208:.0,3..0:|
000092f0  ec 34 36 38 2c 31 38 38  3a f1 22 4f 75 74 20 6f  |.468,188:."Out o|
00009300  66 20 62 6e 64 73 22 3b  3a ec 34 36 38 2c 31 34  |f bnds";:.468,14|
00009310  30 3a f1 22 53 74 72 6f  6b 65 20 26 22 3b 3a ec  |0:."Stroke &";:.|
00009320  34 36 38 2c 39 32 3a f1  22 44 69 73 74 61 6e 63  |468,92:."Distanc|
00009330  65 22 3b 3a f2 77 74 28  34 29 0d 39 ee 05 e1 0d  |e";:.wt(4).9....|
00009340  39 f8 05 20 0d 3a 02 05  20 0d 3a 0c 0b dd f2 68  |9.. .:.. .:....h|
00009350  6f 6c 65 64 0d 3a 16 0a  ea 73 25 2c 70 25 0d 3a  |oled.:...s%,p%.:|
00009360  20 99 d4 37 2c 2d 31 35  2b 79 64 73 25 81 34 30  | ..7,-15+yds%.40|
00009370  2c 30 2c 30 3a 73 25 3d  73 63 6f 72 65 25 28 70  |,0,0:s%=score%(p|
00009380  75 25 2c 68 6f 6c 65 25  29 2b 31 3a 70 25 3d 70  |u%,hole%)+1:p%=p|
00009390  61 72 25 28 68 6f 6c 65  25 29 3a e6 30 2c 34 32  |ar%(hole%):.0,42|
000093a0  c8 9c 36 34 3a ec 34 36  38 2c 34 34 3a ec 38 31  |..64:.468,44:.81|
000093b0  36 2c 34 34 3a f0 38 35  2c 34 36 38 2c 32 30 38  |6,44:.85,468,208|
000093c0  3a f0 38 35 2c 38 31 36  2c 32 30 38 3a e6 30 2c  |:.85,816,208:.0,|
000093d0  34 38 c8 9c 30 3a ec 34  36 38 2c 31 38 38 3a f1  |48..0:.468,188:.|
000093e0  22 48 6f 6c 65 64 20 69  6e 20 22 3b 73 25 3a ec  |"Holed in ";s%:.|
000093f0  34 36 38 2c 31 34 30 0d  3a 2a b9 e7 70 25 2d 73  |468,140.:*..p%-s|
00009400  25 3d 33 f1 22 66 6f 72  20 61 6e 22 3a ec 34 36  |%=3."for an":.46|
00009410  38 2c 39 32 3a f1 22 61  6c 62 61 74 72 6f 73 73  |8,92:."albatross|
00009420  22 8b e7 70 25 2d 73 25  3d 32 f1 22 66 6f 72 20  |"..p%-s%=2."for |
00009430  65 61 67 6c 65 22 8b e7  70 25 2d 73 25 3d 31 f1  |eagle"..p%-s%=1.|
00009440  22 66 6f 72 20 62 69 72  64 69 65 22 8b e7 70 25  |"for birdie"..p%|
00009450  2d 73 25 3d 30 f1 22 66  6f 72 20 70 61 72 22 8b  |-s%=0."for par".|
00009460  e7 70 25 2d 73 25 3d 2d  31 f1 22 66 6f 72 20 62  |.p%-s%=-1."for b|
00009470  6f 67 65 79 22 8b e7 70  25 2d 73 25 3d 2d 32 f1  |ogey"..p%-s%=-2.|
00009480  22 66 6f 72 20 64 6f 75  62 6c 65 22 3a ec 34 36  |"for double":.46|
00009490  38 2c 39 32 3a f1 22 62  6f 67 65 79 22 8b f1 3b  |8,92:."bogey"..;|
000094a0  73 25 2d 70 25 22 20 6f  76 65 72 20 70 61 72 22  |s%-p%" over par"|
000094b0  0d 3a 34 0a f2 77 74 28  34 29 0d 3a 3e 05 e1 0d  |.:4..wt(4).:>...|
000094c0  3a 48 05 20 0d 3a 52 05  20 0d 3a 5c 0f dd a4 74  |:H. .:R. .:\...t|
000094d0  72 65 65 28 78 2c 79 29  0d 3a 66 15 ea 64 2c 6d  |ree(x,y).:f..d,m|
000094e0  25 2c 74 77 2c 69 25 2c  78 64 2c 79 64 0d 3a 70  |%,tw,i%,xd,yd.:p|
000094f0  0f 64 3d 39 39 39 39 3a  6d 25 3d 31 0d 3a 7a 10  |.d=9999:m%=1.:z.|
00009500  e3 69 25 3d 31 b8 74 72  65 65 73 25 0d 3a 84 17  |.i%=1.trees%.:..|
00009510  20 78 64 3d 94 28 78 2d  74 72 65 65 78 25 28 69  | xd=.(x-treex%(i|
00009520  25 29 29 0d 3a 8e 10 20  e7 78 64 3e 31 32 8c 8d  |%)).:.. .xd>12..|
00009530  64 40 7a 0d 3a 98 17 20  79 64 3d 94 28 79 2d 74  |d@z.:.. yd=.(y-t|
00009540  72 65 65 79 25 28 69 25  29 29 0d 3a a2 10 20 e7  |reey%(i%)).:.. .|
00009550  79 64 3e 31 32 8c 8d 64  40 7a 0d 3a ac 13 20 74  |yd>12..d@z.:.. t|
00009560  77 3d 78 64 2a 78 64 2b  79 64 2a 79 64 0d 3a b6  |w=xd*xd+yd*yd.:.|
00009570  16 20 e7 74 77 3c 64 20  8c 64 3d 74 77 3a 6d 25  |. .tw<d .d=tw:m%|
00009580  3d 69 25 0d 3a c0 05 ed  0d 3a ca 0e 54 64 69 73  |=i%.:....:..Tdis|
00009590  74 3d b6 28 64 29 0d 3a  d4 07 3d 6d 25 0d 3a de  |t=.(d).:..=m%.:.|
000095a0  05 20 0d 3a e8 05 20 0d  3a f2 53 dd a4 62 68 64  |. .:.. .:.S..bhd|
000095b0  6f 62 6a 28 63 25 29 3d  ac 28 28 63 25 3d 31 32  |obj(c%)=.((c%=12|
000095c0  29 84 28 63 25 3d 35 36  29 84 28 63 25 3d 38 29  |).(c%=56).(c%=8)|
000095d0  84 28 63 25 3d 39 29 84  28 63 25 3d 42 63 6f 6c  |.(c%=9).(c%=Bcol|
000095e0  25 29 84 28 63 25 3d 30  29 84 28 63 25 3d 33 36  |%).(c%=0).(c%=36|
000095f0  29 84 28 63 25 3d 35 37  29 29 0d 3a fc 05 20 0d  |).(c%=57)).:.. .|
00009600  3b 06 05 20 0d 3b 10 23  dd f2 77 74 28 73 29 3a  |;.. .;.#..wt(s):|
00009610  ea 74 25 3a 74 25 3d 91  3a f5 fd 91 2d 74 25 3e  |.t%:t%=.:...-t%>|
00009620  73 2a 31 30 30 3a e1 0d  3b 1a 05 20 0d 3b 24 05  |s*100:..;.. .;$.|
00009630  20 0d 3b 2e 0f dd f2 73  6f 72 74 68 6f 6e 6f 72  | .;....sorthonor|
00009640  0d 3b 38 0a ea 69 25 2c  6a 25 0d 3b 42 10 e3 69  |.;8..i%,j%.;B..i|
00009650  25 3d 31 b8 6e 6f 50 25  2d 31 0d 3b 4c 11 20 e3  |%=1.noP%-1.;L. .|
00009660  6a 25 3d 31 b8 6e 6f 50  25 2d 31 0d 3b 56 41 20  |j%=1.noP%-1.;VA |
00009670  20 e7 73 63 6f 72 65 25  28 74 65 65 6f 72 64 65  | .score%(teeorde|
00009680  72 25 28 6a 25 29 2c 68  6f 6c 65 25 29 3e 73 63  |r%(j%),hole%)>sc|
00009690  6f 72 65 25 28 74 65 65  6f 72 64 65 72 25 28 6a  |ore%(teeorder%(j|
000096a0  25 2b 31 29 2c 68 6f 6c  65 25 29 8c 0d 3b 60 27  |%+1),hole%)..;`'|
000096b0  20 20 20 c8 94 20 74 65  65 6f 72 64 65 72 25 28  |   .. teeorder%(|
000096c0  6a 25 29 2c 74 65 65 6f  72 64 65 72 25 28 6a 25  |j%),teeorder%(j%|
000096d0  2b 31 29 0d 3b 6a 07 20  20 cd 0d 3b 74 06 20 ed  |+1).;j.  ..;t. .|
000096e0  0d 3b 7e 05 ed 0d 3b 88  05 e1 0d 3b 92 05 20 0d  |.;~...;....;.. .|
000096f0  3b 9c 05 20 0d 3b a6 0a  dd a4 6e 65 78 74 0d 3b  |;.. .;....next.;|
00009700  b0 0d ea 69 25 2c 74 25  2c 6e 25 0d 3b ba 0e e7  |...i%,t%,n%.;...|
00009710  6e 6f 50 25 3d 31 8c 3d  31 0d 3b c4 18 e7 ac a4  |noP%=1.=1.;.....|
00009720  6f 6e 74 65 65 20 8c 3d  a4 66 75 72 74 68 65 73  |ontee .=.furthes|
00009730  74 0d 3b ce 0e e3 6e 25  3d 31 b8 6e 6f 50 25 0d  |t.;...n%=1.noP%.|
00009740  3b d8 1d 20 e7 74 65 65  6f 72 64 65 72 25 28 6e  |;.. .teeorder%(n|
00009750  25 29 3d 70 75 25 8c 69  25 3d 6e 25 0d 3b e2 05  |%)=pu%.i%=n%.;..|
00009760  ed 0d 3b ec 05 f5 0d 3b  f6 17 20 69 25 2b 3d 31  |..;....;.. i%+=1|
00009770  3a e7 69 25 3e 6e 6f 50  25 69 25 3d 31 0d 3c 00  |:.i%>noP%i%=1.<.|
00009780  15 20 74 25 3d 74 65 65  6f 72 64 65 72 25 28 69  |. t%=teeorder%(i|
00009790  25 29 0d 3c 0a 2a fd 28  62 61 6c 6c 78 28 74 25  |%).<.*.(ballx(t%|
000097a0  29 3d 54 45 58 25 28 30  29 29 80 62 61 6c 6c 79  |)=TEX%(0)).bally|
000097b0  28 74 25 29 3d 54 45 59  25 28 30 29 0d 3c 14 07  |(t%)=TEY%(0).<..|
000097c0  3d 74 25 0d 3c 1e 05 20  0d 3c 28 05 20 0d 3c 32  |=t%.<.. .<(. .<2|
000097d0  17 dd a4 6d 69 6e 28 61  2c 62 29 3a e7 61 3c 62  |...min(a,b):.a<b|
000097e0  20 8c 3d 61 0d 3c 3c 06  3d 62 0d 3c 46 05 20 0d  | .=a.<<.=b.<F. .|
000097f0  3c 50 05 20 0d 3c 5a 0f  dd a4 61 6c 6c 69 6e 68  |<P. .<Z...allinh|
00009800  6f 6c 65 0d 3c 64 0a ea  69 25 2c 72 25 0d 3c 6e  |ole.<d..i%,r%.<n|
00009810  08 72 25 3d b9 0d 3c 78  0e e3 69 25 3d 31 b8 6e  |.r%=..<x..i%=1.n|
00009820  6f 50 25 0d 3c 82 16 20  e7 ac 68 6f 6c 65 64 25  |oP%.<.. ..holed%|
00009830  28 69 25 29 8c 72 25 3d  a3 0d 3c 8c 05 ed 0d 3c  |(i%).r%=..<....<|
00009840  96 07 3d 72 25 0d 3c a0  05 20 0d 3c aa 05 20 0d  |..=r%.<.. .<.. .|
00009850  3c b4 0b dd a4 6f 6e 74  65 65 0d 3c be 0a ea 69  |<....ontee.<...i|
00009860  25 2c 62 25 0d 3c c8 08  62 25 3d a3 0d 3c d2 0e  |%,b%.<..b%=..<..|
00009870  e3 69 25 3d 31 b8 6e 6f  50 25 0d 3c dc 30 20 e7  |.i%=1.noP%.<.0 .|
00009880  28 62 61 6c 6c 78 28 69  25 29 3d 54 45 58 25 28  |(ballx(i%)=TEX%(|
00009890  30 29 29 80 62 61 6c 6c  79 28 69 25 29 3d 54 45  |0)).bally(i%)=TE|
000098a0  59 25 28 30 29 8c 62 25  3d b9 0d 3c e6 05 ed 0d  |Y%(0).b%=..<....|
000098b0  3c f0 07 3d 62 25 0d 3c  fa 05 20 0d 3d 04 05 20  |<..=b%.<.. .=.. |
000098c0  0d 3d 0e 0e dd a4 66 75  72 74 68 65 73 74 0d 3d  |.=....furthest.=|
000098d0  18 0e ea 66 25 2c 6d 2c  69 25 2c 64 0d 3d 22 08  |...f%,m,i%,d.=".|
000098e0  6d 3d 2d 31 0d 3d 2c 0e  e3 69 25 3d 31 b8 6e 6f  |m=-1.=,..i%=1.no|
000098f0  50 25 0d 3d 36 30 20 64  3d 28 62 61 6c 6c 78 28  |P%.=60 d=(ballx(|
00009900  69 25 29 2d 66 6c 61 67  78 25 29 5e 32 2b 28 62  |i%)-flagx%)^2+(b|
00009910  61 6c 6c 79 28 69 25 29  2d 66 6c 61 67 79 25 29  |ally(i%)-flagy%)|
00009920  5e 32 0d 3d 40 21 20 e7  28 64 3e 6d 29 80 ac 68  |^2.=@! .(d>m)..h|
00009930  6f 6c 65 64 25 28 69 25  29 8c 66 25 3d 69 25 3a  |oled%(i%).f%=i%:|
00009940  6d 3d 64 0d 3d 4a 05 ed  0d 3d 54 07 3d 66 25 0d  |m=d.=J...=T.=f%.|
00009950  3d 5e 05 20 0d 3d 68 05  20 0d 3d 72 0d dd a4 6f  |=^. .=h. .=r...o|
00009960  6e 67 72 65 65 6e 0d 3d  7c 08 ea 78 2c 79 0d 3d  |ngreen.=|..x,y.=|
00009970  86 26 e7 28 62 68 64 62  6c 25 28 70 75 25 29 3d  |.&.(bhdbl%(pu%)=|
00009980  31 32 29 84 62 68 64 62  6c 25 28 70 75 25 29 3d  |12).bhdbl%(pu%)=|
00009990  30 8c 3d b9 0d 3d 90 1d  78 3d 62 61 6c 6c 78 28  |0.=..=..x=ballx(|
000099a0  70 75 25 29 3a 79 3d 62  61 6c 6c 79 28 70 75 25  |pu%):y=bally(pu%|
000099b0  29 0d 3d 9a 61 e7 28 b0  78 2b 34 2c 79 29 3d 31  |).=.a.(.x+4,y)=1|
000099c0  32 29 84 28 b0 78 2d 34  2c 79 29 3d 31 32 29 84  |2).(.x-4,y)=12).|
000099d0  28 b0 78 2c 79 2d 34 29  3d 31 32 29 84 28 b0 78  |(.x,y-4)=12).(.x|
000099e0  2c 79 2b 34 29 3d 31 32  29 8c e7 28 62 68 64 62  |,y+4)=12)..(bhdb|
000099f0  6c 32 25 3d 31 32 29 84  28 62 68 64 62 6c 32 25  |l2%=12).(bhdbl2%|
00009a00  3d 30 29 84 62 68 64 62  6c 32 25 3d 32 20 20 8c  |=0).bhdbl2%=2  .|
00009a10  3d b9 0d 3d a4 06 3d a3  0d 3d ae 05 20 0d 3d b8  |=..=..=..=.. .=.|
00009a20  05 20 0d 3d c2 3b dd a4  64 69 73 74 3d b6 28 28  |. .=.;..dist=.((|
00009a30  28 62 61 6c 6c 78 2d 66  6c 61 67 78 25 29 2a 31  |(ballx-flagx%)*1|
00009a40  2e 35 29 5e 32 2b 28 28  62 61 6c 6c 79 2d 66 6c  |.5)^2+((bally-fl|
00009a50  61 67 79 25 29 2a 31 2e  35 29 5e 32 29 0d 3d cc  |agy%)*1.5)^2).=.|
00009a60  05 20 0d 3d d6 05 20 0d  3d e0 0d dd a4 63 6c 75  |. .=.. .=....clu|
00009a70  62 28 79 29 0d 3d ea 0f  ea 64 2c 63 25 2c 6e 25  |b(y).=...d,c%,n%|
00009a80  2c 6c 25 0d 3d f4 0a 64  3d 38 30 30 30 0d 3d fe  |,l%.=..d=8000.=.|
00009a90  2c e7 28 62 61 6c 6c 78  3d 54 45 58 25 28 30 29  |,.(ballx=TEX%(0)|
00009aa0  29 80 62 61 6c 6c 79 3d  54 45 59 25 28 30 29 8c  |).bally=TEY%(0).|
00009ab0  6c 25 3d 31 8b 6c 25 3d  32 0d 3e 08 0d e3 63 25  |l%=1.l%=2.>...c%|
00009ac0  3d 6c 25 b8 31 33 0d 3e  12 36 20 e7 94 28 79 2d  |=l%.13.>.6 ..(y-|
00009ad0  63 6c 75 62 64 69 73 74  25 28 63 25 29 29 3c 64  |clubdist%(c%))<d|
00009ae0  20 8c 64 3d 94 28 79 2d  63 6c 75 62 64 69 73 74  | .d=.(y-clubdist|
00009af0  25 28 63 25 29 29 3a 6e  25 3d 63 25 0d 3e 1c 05  |%(c%)):n%=c%.>..|
00009b00  ed 0d 3e 26 07 3d 6e 25  0d 3e 30 05 20 0d 3e 3a  |..>&.=n%.>0. .>:|
00009b10  05 20 0d 3e 44 0e dd f2  73 6f 72 74 6f 62 6a 73  |. .>D...sortobjs|
00009b20  0d 3e 4e 13 ea 69 25 2c  6a 25 2c 73 25 2c 63 25  |.>N..i%,j%,s%,c%|
00009b30  2c 67 25 0d 3e 58 1c e3  69 25 3d 31 b8 6f 62 6a  |,g%.>X..i%=1.obj|
00009b40  73 25 3a 53 4f 25 28 69  25 29 3d 69 25 3a ed 0d  |s%:SO%(i%)=i%:..|
00009b50  3e 62 0e 67 25 3d 6f 62  6a 73 25 2b 31 0d 3e 6c  |>b.g%=objs%+1.>l|
00009b60  05 f5 0d 3e 76 09 20 63  25 3d a3 0d 3e 80 13 20  |...>v. c%=..>.. |
00009b70  e7 67 25 3e 31 67 25 3d  67 25 2a 2e 36 37 0d 3e  |.g%>1g%=g%*.67.>|
00009b80  8a 13 20 e3 69 25 3d 31  b8 6f 62 6a 73 25 2d 67  |.. .i%=1.objs%-g|
00009b90  25 0d 3e 94 3e 20 20 e7  4f 59 31 28 53 4f 25 28  |%.>.>  .OY1(SO%(|
00009ba0  69 25 2b 67 25 29 29 3e  4f 59 31 28 53 4f 25 28  |i%+g%))>OY1(SO%(|
00009bb0  69 25 29 29 8c c8 94 20  53 4f 25 28 69 25 29 2c  |i%))... SO%(i%),|
00009bc0  53 4f 25 28 69 25 2b 67  25 29 3a 63 25 3d b9 0d  |SO%(i%+g%):c%=..|
00009bd0  3e 9e 06 20 ed 0d 3e a8  0f fd 28 ac 63 25 29 80  |>.. ..>...(.c%).|
00009be0  67 25 3d 31 0d 3e b2 05  e1 0d 3e bc 05 20 0d 3e  |g%=1.>....>.. .>|
00009bf0  c6 05 20 0d 3e d0 1f dd  f2 64 72 61 77 74 72 65  |.. .>....drawtre|
00009c00  65 28 74 70 25 2c 78 31  2c 79 31 2c 78 30 2c 79  |e(tp%,x1,y1,x0,y|
00009c10  30 29 0d 3e da 16 ea 73  25 2c 77 73 25 2c 77 25  |0).>...s%,ws%,w%|
00009c20  2c 62 7a 68 2c 64 68 25  0d 3e e4 16 62 7a 68 3d  |,bzh,dh%.>..bzh=|
00009c30  a4 68 74 32 28 62 61 6c  6c 7a 2c 79 31 29 0d 3e  |.ht2(ballz,y1).>|
00009c40  ee 16 77 73 25 3d 28 31  30 36 30 30 2a 53 43 25  |..ws%=(10600*SC%|
00009c50  29 81 79 31 0d 3e f8 19  73 25 3d 54 53 43 2a 28  |).y1.>..s%=TSC*(|
00009c60  31 30 36 30 30 2a 53 43  25 29 81 79 31 0d 3f 02  |10600*SC%).y1.?.|
00009c70  18 77 25 3d 28 54 57 25  28 74 70 25 29 2a 77 73  |.w%=(TW%(tp%)*ws|
00009c80  25 29 81 35 33 0d 3f 0c  10 f2 58 59 31 32 28 78  |%).53.?...XY12(x|
00009c90  31 2c 79 31 29 0d 3f 16  1d e7 79 31 3c 32 30 30  |1,y1).?...y1<200|
00009ca0  e7 94 28 58 32 2d 36 34  30 29 3c 77 25 2b 31 32  |..(X2-640)<w%+12|
00009cb0  30 e1 0d 3f 20 23 64 68  25 3d 59 32 2b a4 68 74  |0..? #dh%=Y2+.ht|
00009cc0  32 28 a4 47 68 74 28 78  30 2c 79 30 29 2c 79 31  |2(.Ght(x0,y0),y1|
00009cd0  29 2d 62 7a 68 0d 3f 2a  1c e7 79 31 3c 31 39 36  |)-bzh.?*..y1<196|
00009ce0  64 68 25 3d a4 6d 69 6e  28 64 68 25 2c 32 34 38  |dh%=.min(dh%,248|
00009cf0  29 0d 3f 34 67 e7 64 68  25 3e 32 30 30 8c 20 21  |).?4g.dh%>200. !|
00009d00  53 43 41 4c 45 25 3d 73  25 3a 53 43 41 4c 45 25  |SCALE%=s%:SCALE%|
00009d10  21 34 3d 73 25 3a 53 43  41 4c 45 25 21 38 3d 31  |!4=s%:SCALE%!8=1|
00009d20  30 30 3a 53 43 41 4c 45  25 21 31 32 3d 31 30 30  |00:SCALE%!12=100|
00009d30  3a c8 99 34 36 2c 33 30  38 2c 53 50 25 2c 54 24  |:..46,308,SP%,T$|
00009d40  28 74 70 25 29 2c 58 32  2d 77 25 2c 64 68 25 2c  |(tp%),X2-w%,dh%,|
00009d50  38 2c 53 43 41 4c 45 25  0d 3f 3e 05 e1 0d 3f 48  |8,SCALE%.?>...?H|
00009d60  05 20 0d 3f 52 05 20 0d  3f 5c 11 dd f2 64 72 61  |. .?R. .?\...dra|
00009d70  77 67 72 6e 28 73 25 29  0d 3f 66 11 ea 63 25 2c  |wgrn(s%).?f..c%,|
00009d80  78 30 2c 79 30 2c 62 7a  68 0d 3f 70 1a e6 30 2c  |x0,y0,bzh.?p..0,|
00009d90  31 32 c8 9c 28 31 2d 47  4e 4f 25 28 73 25 29 29  |12..(1-GNO%(s%))|
00009da0  2a 36 34 0d 3f 7a 12 e3  63 25 3d 31 b8 47 4e 43  |*64.?z..c%=1.GNC|
00009db0  25 28 73 25 29 0d 3f 84  22 20 78 30 3d 47 4e 58  |%(s%).?." x0=GNX|
00009dc0  25 28 73 25 2c 63 25 29  3a 79 30 3d 47 4e 59 25  |%(s%,c%):y0=GNY%|
00009dd0  28 73 25 2c 63 25 29 0d  3f 8e 31 20 f2 58 59 30  |(s%,c%).?.1 .XY0|
00009de0  31 28 78 30 2c 79 30 29  3a f2 58 59 31 32 28 58  |1(x0,y0):.XY12(X|
00009df0  31 2c 59 31 29 3a 62 7a  68 3d a4 68 74 32 28 62  |1,Y1):bzh=.ht2(b|
00009e00  61 6c 6c 7a 2c 59 31 29  0d 3f 98 60 20 e7 63 25  |allz,Y1).?.` .c%|
00009e10  3c 33 20 ec 58 32 2c a4  44 48 28 59 32 2b a4 68  |<3 .X2,.DH(Y2+.h|
00009e20  74 32 28 a4 47 68 74 28  78 30 2c 79 30 29 2c 59  |t2(.Ght(x0,y0),Y|
00009e30  31 29 2d 62 7a 68 2c 59  31 29 20 8b f0 38 35 2c  |1)-bzh,Y1) ..85,|
00009e40  58 32 2c a4 44 48 28 20  20 59 32 2b a4 68 74 32  |X2,.DH(  Y2+.ht2|
00009e50  28 a4 47 68 74 28 78 30  2c 79 30 29 2c 59 31 29  |(.Ght(x0,y0),Y1)|
00009e60  2d 62 7a 68 2c 59 31 29  0d 3f a2 05 ed 0d 3f ac  |-bzh,Y1).?....?.|
00009e70  05 e1 0d 3f b6 05 20 0d  3f c0 05 20 0d 3f ca 0f  |...?.. .?.. .?..|
00009e80  dd f2 77 61 74 65 72 28  73 25 29 0d 3f d4 11 ea  |..water(s%).?...|
00009e90  63 25 2c 78 30 2c 79 30  2c 62 7a 68 0d 3f de 0e  |c%,x0,y0,bzh.?..|
00009ea0  e6 30 2c 33 36 c8 9c 31  32 38 0d 3f e8 12 e3 63  |.0,36..128.?...c|
00009eb0  25 3d 31 b8 57 63 6f 25  28 73 25 29 0d 3f f2 20  |%=1.Wco%(s%).?. |
00009ec0  20 78 30 3d 57 78 25 28  73 25 2c 63 25 29 3a 79  | x0=Wx%(s%,c%):y|
00009ed0  30 3d 57 79 25 28 73 25  2c 63 25 29 0d 3f fc 31  |0=Wy%(s%,c%).?.1|
00009ee0  20 f2 58 59 30 31 28 78  30 2c 79 30 29 3a f2 58  | .XY01(x0,y0):.X|
00009ef0  59 31 32 28 58 31 2c 59  31 29 3a 62 7a 68 3d a4  |Y12(X1,Y1):bzh=.|
00009f00  68 74 32 28 62 61 6c 6c  7a 2c 59 31 29 0d 40 06  |ht2(ballz,Y1).@.|
00009f10  60 20 e7 63 25 3c 33 20  ec 58 32 2c a4 44 48 28  |` .c%<3 .X2,.DH(|
00009f20  59 32 2b a4 68 74 32 28  a4 47 68 74 28 78 30 2c  |Y2+.ht2(.Ght(x0,|
00009f30  79 30 29 2c 59 31 29 2d  62 7a 68 2c 59 31 29 20  |y0),Y1)-bzh,Y1) |
00009f40  8b f0 38 35 2c 58 32 2c  a4 44 48 28 20 20 59 32  |..85,X2,.DH(  Y2|
00009f50  2b a4 68 74 32 28 a4 47  68 74 28 78 30 2c 79 30  |+.ht2(.Ght(x0,y0|
00009f60  29 2c 59 31 29 2d 62 7a  68 2c 59 31 29 0d 40 10  |),Y1)-bzh,Y1).@.|
00009f70  05 ed 0d 40 1a 05 e1 0d  40 24 05 20 0d 40 2e 05  |...@....@$. .@..|
00009f80  20 0d 40 38 0e dd f2 70  6f 73 74 28 73 25 29 0d  | .@8...post(s%).|
00009f90  40 42 11 ea 78 30 2c 79  30 2c 62 7a 68 2c 79 74  |@B..x0,y0,bzh,yt|
00009fa0  0d 40 4c ab e6 30 2c 36  33 c8 9c 30 3a 78 30 3d  |.@L..0,63..0:x0=|
00009fb0  4f 42 58 25 28 73 25 29  3a 79 30 3d 4f 42 59 25  |OBX%(s%):y0=OBY%|
00009fc0  28 73 25 29 3a f2 58 59  30 31 28 78 30 2c 79 30  |(s%):.XY01(x0,y0|
00009fd0  29 3a f2 58 59 31 32 28  58 31 2c 59 31 29 3a 62  |):.XY12(X1,Y1):b|
00009fe0  7a 68 3d a4 68 74 32 28  62 61 6c 6c 7a 2c 59 31  |zh=.ht2(ballz,Y1|
00009ff0  29 3a 79 74 3d 59 32 2b  a4 68 74 32 28 a4 47 68  |):yt=Y2+.ht2(.Gh|
0000a000  74 28 78 30 2c 79 30 29  2b 31 2c 59 31 29 2d 62  |t(x0,y0)+1,Y1)-b|
0000a010  7a 68 3a ec 58 32 2c a4  44 48 28 59 32 2b a4 68  |zh:.X2,.DH(Y2+.h|
0000a020  74 32 28 a4 47 68 74 28  78 30 2c 79 30 29 2c 59  |t2(.Ght(x0,y0),Y|
0000a030  31 29 2d 62 7a 68 2c 59  31 29 3a f0 35 2c 58 32  |1)-bzh,Y1):.5,X2|
0000a040  2c a4 44 48 28 79 74 2c  59 31 29 0d 40 56 05 e1  |,.DH(yt,Y1).@V..|
0000a050  0d 40 60 05 20 0d 40 6a  05 20 0d 40 74 13 dd f2  |.@`. .@j. .@t...|
0000a060  6f 70 62 6c 28 78 31 31  2c 79 31 31 29 0d 40 7e  |opbl(x11,y11).@~|
0000a070  12 ea 74 25 2c 62 7a 68  2c 48 32 25 2c 63 25 0d  |..t%,bzh,H2%,c%.|
0000a080  40 88 39 58 31 3d 78 31  31 3a 59 31 3d 79 31 31  |@.9X1=x11:Y1=y11|
0000a090  3a f2 58 59 31 32 28 78  31 31 2c 79 31 31 29 3a  |:.XY12(x11,y11):|
0000a0a0  f2 58 59 31 30 3a 62 7a  68 3d a4 68 74 32 28 62  |.XY10:bzh=.ht2(b|
0000a0b0  61 6c 6c 7a 2c 59 31 29  0d 40 92 2b 48 32 25 3d  |allz,Y1).@.+H2%=|
0000a0c0  a4 44 48 28 59 32 2b a4  68 74 32 28 a4 47 68 74  |.DH(Y2+.ht2(.Ght|
0000a0d0  28 58 30 2c 59 30 29 2c  59 31 29 2d 62 7a 68 2c  |(X0,Y0),Y1)-bzh,|
0000a0e0  59 31 29 0d 40 9c 0f 63  25 3d b0 58 32 2c 48 32  |Y1).@..c%=.X2,H2|
0000a0f0  25 29 0d 40 a6 23 e7 28  ac a4 62 68 64 6f 62 6a  |%).@.#.(..bhdobj|
0000a100  28 63 25 29 29 80 28 63  25 3c 3e 30 29 80 63 25  |(c%)).(c%<>0).c%|
0000a110  3c 3e 35 37 8c 0d 40 b0  18 20 e7 28 66 65 65 74  |<>57..@.. .(feet|
0000a120  25 3c 31 32 30 29 80 63  25 3d 31 32 8c 0d 40 ba  |%<120).c%=12..@.|
0000a130  1b 20 20 e6 30 2c 35 37  c8 9c 31 32 38 3a f0 36  |.  .0,57..128:.6|
0000a140  39 2c 58 32 2c 48 32 25  0d 40 c4 06 20 cc 0d 40  |9,X2,H2%.@.. ..@|
0000a150  ce 2a 20 20 74 25 3d a4  6d 61 78 28 30 2c a4 6d  |.*  t%=.max(0,.m|
0000a160  69 6e 28 33 2c 33 2d 28  59 31 2d 32 30 30 29 81  |in(3,3-(Y1-200).|
0000a170  31 34 30 29 29 2a 36 34  0d 40 d8 1a 20 20 e6 30  |140))*64.@..  .0|
0000a180  2c 36 33 c8 9c 74 25 3a  f0 36 39 2c 58 32 2c 48  |,63..t%:.69,X2,H|
0000a190  32 25 0d 40 e2 06 20 cd  0d 40 ec 05 cd 0d 40 f6  |2%.@.. ..@....@.|
0000a1a0  05 e1 0d 41 00 05 20 0d  41 0a 05 20 0d 41 14 0d  |...A.. .A.. .A..|
0000a1b0  dd f2 64 72 61 77 74 65  65 0d 41 1e 11 ea 63 25  |..drawtee.A...c%|
0000a1c0  2c 78 30 2c 79 30 2c 62  7a 68 0d 41 28 14 e6 30  |,x0,y0,bzh.A(..0|
0000a1d0  2c 38 2d 4c 49 4e 4b 53  25 c8 9c 31 39 32 0d 41  |,8-LINKS%..192.A|
0000a1e0  32 0b e3 63 25 3d 31 b8  36 0d 41 3c 36 20 78 30  |2..c%=1.6.A<6 x0|
0000a1f0  3d 54 45 58 25 28 63 25  29 3a 79 30 3d 54 45 59  |=TEX%(c%):y0=TEY|
0000a200  25 28 63 25 29 3a f2 58  59 30 31 28 78 30 2c 79  |%(c%):.XY01(x0,y|
0000a210  30 29 3a f2 58 59 31 32  28 58 31 2c 59 31 29 0d  |0):.XY12(X1,Y1).|
0000a220  41 46 23 20 62 7a 68 3d  a4 68 74 32 28 62 61 6c  |AF# bzh=.ht2(bal|
0000a230  6c 7a 2c 59 31 29 3a 54  45 58 32 28 63 25 29 3d  |lz,Y1):TEX2(c%)=|
0000a240  58 32 0d 41 50 54 20 e7  28 63 25 3d 32 29 84 63  |X2.APT .(c%=2).c|
0000a250  25 3d 34 20 54 45 59 32  28 63 25 29 3d 54 45 59  |%=4 TEY2(c%)=TEY|
0000a260  32 28 63 25 2d 31 29 20  8b 54 45 59 32 28 63 25  |2(c%-1) .TEY2(c%|
0000a270  29 3d a4 44 48 28 59 32  2b a4 68 74 32 28 a4 47  |)=.DH(Y2+.ht2(.G|
0000a280  68 74 28 78 30 2c 79 30  20 29 2c 59 31 29 2d 62  |ht(x0,y0 ),Y1)-b|
0000a290  7a 68 2c 59 31 29 0d 41  5a 05 ed 0d 41 64 d1 e7  |zh,Y1).AZ...Ad..|
0000a2a0  28 54 45 59 32 28 36 29  3e a4 6d 69 6e 28 54 45  |(TEY2(6)>.min(TE|
0000a2b0  59 32 28 31 29 2c 54 45  59 32 28 33 29 29 29 80  |Y2(1),TEY2(3))).|
0000a2c0  28 54 45 59 32 28 36 29  3c a4 6d 61 78 28 54 45  |(TEY2(6)<.max(TE|
0000a2d0  59 32 28 31 29 2c 54 45  59 32 28 33 29 29 29 8c  |Y2(1),TEY2(3))).|
0000a2e0  54 45 59 32 28 35 29 3d  54 45 59 32 28 36 29 8b  |TEY2(5)=TEY2(6).|
0000a2f0  e7 28 54 45 59 32 28 35  29 3e a4 6d 69 6e 28 54  |.(TEY2(5)>.min(T|
0000a300  45 59 32 28 31 29 2c 54  45 59 32 28 33 29 29 29  |EY2(1),TEY2(3)))|
0000a310  80 28 54 45 59 32 28 35  29 3c a4 6d 61 78 28 54  |.(TEY2(5)<.max(T|
0000a320  45 59 32 28 31 29 2c 54  45 59 32 28 33 29 29 29  |EY2(1),TEY2(3)))|
0000a330  8c 54 45 59 32 28 36 29  3d 54 45 59 32 28 35 29  |.TEY2(6)=TEY2(5)|
0000a340  8b 54 45 59 32 28 36 29  3d 28 54 45 59 32 28 31  |.TEY2(6)=(TEY2(1|
0000a350  29 2b 54 45 59 32 28 33  29 29 2f 32 3a 54 45 59  |)+TEY2(3))/2:TEY|
0000a360  32 28 35 29 3d 54 45 59  32 28 36 29 0d 41 6e 23  |2(5)=TEY2(6).An#|
0000a370  e7 a4 6f 6e 74 65 65 20  54 45 59 32 28 35 29 3d  |..ontee TEY2(5)=|
0000a380  32 38 30 3a 54 45 59 32  28 36 29 3d 32 38 30 0d  |280:TEY2(6)=280.|
0000a390  41 78 4d ec 54 45 58 32  28 31 29 2c 54 45 59 32  |AxM.TEX2(1),TEY2|
0000a3a0  28 31 29 3a ec 54 45 58  32 28 32 29 2c 54 45 59  |(1):.TEX2(2),TEY|
0000a3b0  32 28 32 29 3a f0 38 35  2c 54 45 58 32 28 33 29  |2(2):.85,TEX2(3)|
0000a3c0  2c 54 45 59 32 28 33 29  3a f0 38 35 2c 54 45 58  |,TEY2(3):.85,TEX|
0000a3d0  32 28 34 29 2c 54 45 59  32 28 34 29 0d 41 82 0e  |2(4),TEY2(4).A..|
0000a3e0  e6 30 2c 36 33 c8 9c 31  32 38 0d 41 8c 0c e7 59  |.0,63..128.A...Y|
0000a3f0  31 3e 32 35 30 8c 0d 41  96 2a 20 c8 92 20 54 45  |1>250..A.* .. TE|
0000a400  58 32 28 35 29 2c 54 45  59 32 28 35 29 3a c8 92  |X2(5),TEY2(5):..|
0000a410  20 54 45 58 32 28 36 29  2c 54 45 59 32 28 36 29  | TEX2(6),TEY2(6)|
0000a420  0d 41 a0 05 cc 0d 41 aa  b6 20 c8 92 20 54 45 58  |.A....A.. .. TEX|
0000a430  32 28 35 29 2d 32 2c 54  45 59 32 28 35 29 3a c8  |2(5)-2,TEY2(5):.|
0000a440  92 20 54 45 58 32 28 35  29 2b 32 2c 54 45 59 32  |. TEX2(5)+2,TEY2|
0000a450  28 35 29 3a c8 92 20 54  45 58 32 28 35 29 2d 32  |(5):.. TEX2(5)-2|
0000a460  2c 54 45 59 32 28 35 29  2b 34 20 3a c8 92 20 54  |,TEY2(5)+4 :.. T|
0000a470  45 58 32 28 35 29 2b 32  2c 54 45 59 32 28 35 29  |EX2(5)+2,TEY2(5)|
0000a480  2b 34 3a c8 92 20 54 45  58 32 28 36 29 2d 32 2c  |+4:.. TEX2(6)-2,|
0000a490  54 45 59 32 28 36 29 3a  c8 92 20 54 45 58 32 28  |TEY2(6):.. TEX2(|
0000a4a0  36 29 2b 32 2c 54 45 59  32 28 36 20 29 3a c8 92  |6)+2,TEY2(6 ):..|
0000a4b0  20 54 45 58 32 28 36 29  2d 32 2c 54 45 59 32 28  | TEX2(6)-2,TEY2(|
0000a4c0  36 29 2b 34 3a c8 92 20  54 45 58 32 28 36 29 2b  |6)+4:.. TEX2(6)+|
0000a4d0  32 2c 54 45 59 32 28 36  29 2b 34 0d 41 b4 05 cd  |2,TEY2(6)+4.A...|
0000a4e0  0d 41 be 05 e1 0d 41 c8  05 20 0d 41 d2 05 20 0d  |.A....A.. .A.. .|
0000a4f0  41 dc 12 dd f2 64 72 61  77 74 72 61 70 28 74 25  |A....drawtrap(t%|
0000a500  29 0d 41 e6 1b ea 63 25  2c 78 30 2c 79 30 2c 62  |).A...c%,x0,y0,b|
0000a510  7a 68 2c 64 25 2c 64 79  25 2c 6a 25 0d 41 f0 11  |zh,d%,dy%,j%.A..|
0000a520  e6 30 2c 42 63 6f 6c 25  c8 9c 31 39 32 0d 41 fa  |.0,Bcol%..192.A.|
0000a530  12 e3 63 25 3d 30 b8 42  63 6f 25 28 74 25 29 0d  |..c%=0.Bco%(t%).|
0000a540  42 04 3a 20 78 30 3d 42  78 25 28 74 25 2c 63 25  |B.: x0=Bx%(t%,c%|
0000a550  29 3a 79 30 3d 42 79 25  28 74 25 2c 63 25 29 3a  |):y0=By%(t%,c%):|
0000a560  f2 58 59 30 31 28 78 30  2c 79 30 29 3a f2 58 59  |.XY01(x0,y0):.XY|
0000a570  31 32 28 58 31 2c 59 31  29 0d 42 0e 17 20 62 7a  |12(X1,Y1).B.. bz|
0000a580  68 3d a4 68 74 32 28 62  61 6c 6c 7a 2c 59 31 29  |h=.ht2(ballz,Y1)|
0000a590  0d 42 18 3b 20 42 78 32  28 63 25 29 3d 58 32 3a  |.B.; Bx2(c%)=X2:|
0000a5a0  42 79 32 28 63 25 29 3d  a4 44 48 28 59 32 2b a4  |By2(c%)=.DH(Y2+.|
0000a5b0  68 74 32 28 a4 47 68 74  28 78 30 2c 79 30 29 2c  |ht2(.Ght(x0,y0),|
0000a5c0  59 31 29 2d 62 7a 68 2c  59 31 29 0d 42 22 44 20  |Y1)-bzh,Y1).B"D |
0000a5d0  e7 63 25 3d 30 8c 64 25  3d 28 a4 68 74 32 28 a4  |.c%=0.d%=(.ht2(.|
0000a5e0  47 68 74 28 78 30 2c 79  30 29 2c 59 31 29 2d a4  |Ght(x0,y0),Y1)-.|
0000a5f0  68 74 32 28 a4 47 68 74  28 78 30 2c 79 30 29 2d  |ht2(.Ght(x0,y0)-|
0000a600  42 64 65 70 74 68 2c 59  31 29 29 81 34 2a 34 0d  |Bdepth,Y1)).4*4.|
0000a610  42 2c 05 ed 0d 42 36 20  ec 42 78 32 28 42 63 6f  |B,...B6 .Bx2(Bco|
0000a620  25 28 74 25 29 29 2c 42  79 32 28 42 63 6f 25 28  |%(t%)),By2(Bco%(|
0000a630  74 25 29 29 0d 42 40 12  e3 6a 25 3d 31 b8 42 63  |t%)).B@..j%=1.Bc|
0000a640  6f 25 28 74 25 29 0d 42  4a 27 20 ec 42 78 32 28  |o%(t%).BJ' .Bx2(|
0000a650  30 29 2c 42 79 32 28 30  29 3a f0 38 35 2c 42 78  |0),By2(0):.85,Bx|
0000a660  32 28 6a 25 29 2c 42 79  32 28 6a 25 29 0d 42 54  |2(j%),By2(j%).BT|
0000a670  05 ed 0d 42 5e 10 e6 30  2c 42 63 6f 6c 25 c8 9c  |...B^..0,Bcol%..|
0000a680  36 34 0d 42 68 20 ec 42  78 32 28 42 63 6f 25 28  |64.Bh .Bx2(Bco%(|
0000a690  74 25 29 29 2c 42 79 32  28 42 63 6f 25 28 74 25  |t%)),By2(Bco%(t%|
0000a6a0  29 29 0d 42 72 0c 64 79  25 3d 64 25 2b 34 0d 42  |)).Br.dy%=d%+4.B|
0000a6b0  7c 05 f5 0d 42 86 0e 20  64 79 25 3d 64 79 25 2d  ||...B.. dy%=dy%-|
0000a6c0  34 0d 42 90 29 20 70 25  3d b0 42 78 32 28 42 63  |4.B.) p%=.Bx2(Bc|
0000a6d0  6f 25 28 74 25 29 29 2c  42 79 32 28 42 63 6f 25  |o%(t%)),By2(Bco%|
0000a6e0  28 74 25 29 29 2d 64 79  25 29 0d 42 9a 15 fd 28  |(t%))-dy%).B...(|
0000a6f0  64 79 25 3d 30 29 84 70  25 3d 42 63 6f 6c 25 0d  |dy%=0).p%=Bcol%.|
0000a700  42 a4 24 ec 42 78 32 28  42 63 6f 25 28 74 25 29  |B.$.Bx2(Bco%(t%)|
0000a710  29 2c 42 79 32 28 42 63  6f 25 28 74 25 29 29 2d  |),By2(Bco%(t%))-|
0000a720  64 79 25 0d 42 ae 12 e3  6a 25 3d 31 b8 42 63 6f  |dy%.B...j%=1.Bco|
0000a730  25 28 74 25 29 0d 42 b8  18 20 f0 38 35 2c 42 78  |%(t%).B.. .85,Bx|
0000a740  32 28 6a 25 29 2c 42 79  32 28 6a 25 29 0d 42 c2  |2(j%),By2(j%).B.|
0000a750  0d 20 64 79 25 3d 64 25  2b 34 0d 42 cc 06 20 f5  |. dy%=d%+4.B.. .|
0000a760  0d 42 d6 0f 20 20 64 79  25 3d 64 79 25 2d 34 0d  |.B..  dy%=dy%-4.|
0000a770  42 e0 1e 20 20 70 25 3d  b0 42 78 32 28 6a 25 29  |B..  p%=.Bx2(j%)|
0000a780  2c 42 79 32 28 6a 25 29  2d 64 79 25 29 0d 42 ea  |,By2(j%)-dy%).B.|
0000a790  16 20 fd 28 64 79 25 3d  30 29 84 70 25 3d 42 63  |. .(dy%=0).p%=Bc|
0000a7a0  6f 6c 25 0d 42 f4 1c 20  f0 38 35 2c 42 78 32 28  |ol%.B.. .85,Bx2(|
0000a7b0  6a 25 29 2c 42 79 32 28  6a 25 29 2d 64 79 25 0d  |j%),By2(j%)-dy%.|
0000a7c0  42 fe 05 ed 0d 43 08 05  e1 0d 43 12 05 20 0d 43  |B....C....C.. .C|
0000a7d0  1c 05 20 0d 43 26 0e dd  f2 64 72 61 77 66 6c 61  |.. .C&...drawfla|
0000a7e0  67 0d 43 30 20 ea 62 7a  68 2c 79 62 25 2c 79 74  |g.C0 .bzh,yb%,yt|
0000a7f0  25 2c 66 25 2c 68 25 2c  69 25 2c 66 73 25 2c 67  |%,f%,h%,i%,fs%,g|
0000a800  25 0d 43 3a 25 f2 58 59  30 31 28 66 6c 61 67 78  |%.C:%.XY01(flagx|
0000a810  25 2c 66 6c 61 67 79 25  29 3a f2 58 59 31 32 28  |%,flagy%):.XY12(|
0000a820  58 31 2c 59 31 29 0d 43  44 16 62 7a 68 3d a4 68  |X1,Y1).CD.bzh=.h|
0000a830  74 32 28 62 61 6c 6c 7a  2c 59 31 29 0d 43 4e 55  |t2(ballz,Y1).CNU|
0000a840  79 62 25 3d 59 32 2b a4  68 74 32 28 a4 47 68 74  |yb%=Y2+.ht2(.Ght|
0000a850  28 66 6c 61 67 78 25 2c  66 6c 61 67 79 25 29 2c  |(flagx%,flagy%),|
0000a860  59 31 29 2d 62 7a 68 3a  79 74 25 3d 59 32 2b a4  |Y1)-bzh:yt%=Y2+.|
0000a870  68 74 32 28 a4 47 68 74  28 66 6c 61 67 78 25 2c  |ht2(.Ght(flagx%,|
0000a880  66 6c 61 67 79 25 29 2b  37 2c 59 31 29 2d 62 7a  |flagy%)+7,Y1)-bz|
0000a890  68 0d 43 58 5a 62 68 64  62 6c 32 25 3d b0 36 34  |h.CXZbhdbl2%=.64|
0000a8a0  30 2c 32 38 30 29 3a 68  25 3d 28 28 79 74 25 2d  |0,280):h%=((yt%-|
0000a8b0  79 62 25 29 2f 33 30 29  81 34 2a 34 3a e6 30 2c  |yb%)/30).4*4:.0,|
0000a8c0  30 c8 9c 31 39 32 3a ec  58 32 2d 68 25 2c 79 62  |0..192:.X2-h%,yb|
0000a8d0  25 3a f0 35 2c 58 32 2b  68 25 2c 79 62 25 3a e7  |%:.5,X2+h%,yb%:.|
0000a8e0  a4 6f 6e 67 72 65 65 6e  20 8c e1 0d 43 62 1a 67  |.ongreen ...Cb.g|
0000a8f0  25 3d 28 28 79 74 25 2d  79 62 25 29 2f 38 2b 34  |%=((yt%-yb%)/8+4|
0000a900  29 81 34 2a 34 0d 43 6c  0b e3 69 25 3d 31 b8 37  |).4*4.Cl..i%=1.7|
0000a910  0d 43 76 23 20 e7 69 25  83 32 3d 31 8c e6 30 2c  |.Cv# .i%.2=1..0,|
0000a920  46 43 31 25 c8 9c 30 8b  e6 30 2c 20 46 43 32 25  |FC1%..0..0, FC2%|
0000a930  c8 9c 30 0d 43 80 29 20  ec 58 32 2c a4 44 48 28  |..0.C.) .X2,.DH(|
0000a940  a4 6d 69 6e 28 79 74 25  2c 79 62 25 2b 67 25 2a  |.min(yt%,yb%+g%*|
0000a950  28 69 25 2d 31 29 29 2c  59 31 20 29 0d 43 8a 26  |(i%-1)),Y1 ).C.&|
0000a960  20 f0 35 2c 58 32 2c a4  44 48 28 a4 6d 69 6e 28  | .5,X2,.DH(.min(|
0000a970  79 74 25 2c 79 62 25 2b  67 25 2a 69 25 29 2c 59  |yt%,yb%+g%*i%),Y|
0000a980  31 29 0d 43 94 05 ed 0d  43 9e 17 f0 35 2c 58 32  |1).C....C...5,X2|
0000a990  2c a4 44 48 28 79 74 25  2b 34 2c 59 31 29 0d 43  |,.DH(yt%+4,Y1).C|
0000a9a0  a8 12 f2 66 6c 61 67 28  79 74 25 2c 79 62 25 29  |...flag(yt%,yb%)|
0000a9b0  0d 43 b2 05 e1 0d 43 bc  05 20 0d 43 c6 05 20 0d  |.C....C.. .C.. .|
0000a9c0  43 d0 13 dd f2 66 6c 61  67 28 74 79 25 2c 62 79  |C....flag(ty%,by|
0000a9d0  25 29 0d 43 da 0d ea 74  25 2c 64 25 2c 77 25 0d  |%).C...t%,d%,w%.|
0000a9e0  43 e4 46 74 25 3d 28 28  74 79 25 2d 62 79 25 29  |C.Ft%=((ty%-by%)|
0000a9f0  2f 36 29 81 34 2a 34 3a  64 25 3d 34 2b 74 25 2a  |/6).4*4:d%=4+t%*|
0000aa00  28 33 35 2d 77 69 6e 64  25 29 2f 31 38 3a 77 25  |(35-wind%)/18:w%|
0000aa10  3d 74 25 2a 77 69 6e 64  25 2a b5 28 77 61 6e 67  |=t%*wind%*.(wang|
0000aa20  32 29 2f 31 34 0d 43 ee  0d e7 94 28 77 25 29 3c  |2)/14.C....(w%)<|
0000aa30  34 8c 0d 43 f8 19 20 e7  77 61 6e 67 32 3c af 20  |4..C.. .wang2<. |
0000aa40  8c 77 25 3d 34 8b 77 25  3d 2d 34 0d 44 02 05 cd  |.w%=4.w%=-4.D...|
0000aa50  0d 44 0c 29 e6 30 2c 66  63 6f 6c 25 c8 9c 66 74  |.D.).0,fcol%..ft|
0000aa60  69 6e 74 25 3a ec 58 32  2c 74 79 25 3a f0 35 2c  |int%:.X2,ty%:.5,|
0000aa70  58 32 2c 74 79 25 2d 74  25 0d 44 16 28 f0 38 35  |X2,ty%-t%.D.(.85|
0000aa80  2c 58 32 2d 77 25 2c 74  79 25 2d 64 25 3a f0 38  |,X2-w%,ty%-d%:.8|
0000aa90  35 2c 58 32 2d 77 25 2c  74 79 25 2d 64 25 2d 74  |5,X2-w%,ty%-d%-t|
0000aaa0  25 0d 44 20 05 e1 0d 44  2a 05 20 0d 44 34 05 20  |%.D ...D*. .D4. |
0000aab0  0d 44 3e 16 dd a4 6f 75  74 6f 66 62 6e 64 73 28  |.D>...outofbnds(|
0000aac0  78 25 2c 79 25 29 0d 44  48 28 e7 28 78 25 3c 31  |x%,y%).DH(.(x%<1|
0000aad0  36 29 84 28 78 25 3e 31  32 36 30 29 84 28 79 25  |6).(x%>1260).(y%|
0000aae0  3e 33 36 38 29 84 79 25  3c 31 36 8c 3d b9 0d 44  |>368).y%<16.=..D|
0000aaf0  52 1d e7 28 62 68 64 62  6c 25 3d 32 32 29 84 62  |R..(bhdbl%=22).b|
0000ab00  68 64 62 6c 25 3d 32 33  8c 3d b9 0d 44 5c 06 3d  |hdbl%=23.=..D\.=|
0000ab10  a3 0d 44 66 05 20 0d 44  70 05 20 0d 44 7a 0c dd  |..Df. .Dp. .Dz..|
0000ab20  a4 54 48 28 6e 25 29 0d  44 84 0f e7 6e 25 3d 31  |.TH(n%).D...n%=1|
0000ab30  8c 3d 22 73 74 22 0d 44  8e 0f e7 6e 25 3d 32 8c  |.="st".D...n%=2.|
0000ab40  3d 22 6e 64 22 0d 44 98  0f e7 6e 25 3d 33 8c 3d  |="nd".D...n%=3.=|
0000ab50  22 72 64 22 0d 44 a2 09  3d 22 74 68 22 0d 44 ac  |"rd".D..="th".D.|
0000ab60  05 20 0d 44 b6 05 20 0d  44 c0 0c dd a4 61 6e 67  |. .D.. .D....ang|
0000ab70  28 61 29 0d 44 ca 11 e7  61 3c 30 8c 3d 50 49 33  |(a).D...a<0.=PI3|
0000ab80  36 30 2b 61 0d 44 d4 16  e7 61 3e 50 49 33 36 30  |60+a.D...a>PI360|
0000ab90  20 8c 3d 61 2d 50 49 33  36 30 0d 44 de 06 3d 61  | .=a-PI360.D..=a|
0000aba0  0d 44 e8 05 20 0d 44 f2  05 20 0d 44 fc 0e dd a4  |.D.. .D.. .D....|
0000abb0  47 68 74 28 78 2c 79 29  0d 45 06 09 ea 69 25 2c  |Ght(x,y).E...i%,|
0000abc0  68 0d 45 10 0b e3 69 25  3d 31 b8 35 0d 45 1a 51  |h.E...i%=1.5.E.Q|
0000abd0  20 68 3d 68 2b 47 48 25  28 69 25 29 2a 32 2e 37  | h=h+GH%(i%)*2.7|
0000abe0  31 38 32 38 32 5e 28 2d  2e 35 2a 28 28 78 2d 47  |18282^(-.5*((x-G|
0000abf0  58 25 28 69 25 20 29 29  5e 32 2f 47 52 58 25 28  |X%(i% ))^2/GRX%(|
0000ac00  69 25 29 2b 28 79 2d 47  59 25 28 69 25 29 29 5e  |i%)+(y-GY%(i%))^|
0000ac10  32 2f 47 52 59 25 28 69  25 29 20 29 29 0d 45 24  |2/GRY%(i%) )).E$|
0000ac20  05 ed 0d 45 2e 06 3d 68  0d 45 38 05 20 0d 45 42  |...E..=h.E8. .EB|
0000ac30  05 20 0d 45 4c 0e dd a4  52 68 74 28 78 2c 79 29  |. .EL...Rht(x,y)|
0000ac40  0d 45 56 09 ea 69 25 2c  68 0d 45 60 0b e3 69 25  |.EV..i%,h.E`..i%|
0000ac50  3d 31 b8 35 0d 45 6a 4d  20 65 78 70 28 69 25 29  |=1.5.EjM exp(i%)|
0000ac60  3d 32 2e 37 31 38 32 38  32 5e 28 2d 2e 35 2a 28  |=2.718282^(-.5*(|
0000ac70  28 78 2d 47 58 25 28 69  25 20 29 29 5e 32 2f 47  |(x-GX%(i% ))^2/G|
0000ac80  52 58 25 28 69 25 20 29  2b 28 79 2d 47 59 25 28  |RX%(i% )+(y-GY%(|
0000ac90  69 25 29 29 5e 32 2f 47  52 59 25 28 69 25 29 29  |i%))^2/GRY%(i%))|
0000aca0  29 0d 45 74 18 20 68 3d  68 2b 47 48 25 28 69 25  |).Et. h=h+GH%(i%|
0000acb0  29 2a 65 78 70 28 69 25  29 0d 45 7e 05 ed 0d 45  |)*exp(i%).E~...E|
0000acc0  88 06 3d 68 0d 45 92 05  20 0d 45 9c 05 20 0d 45  |..=h.E.. .E.. .E|
0000acd0  a6 26 dd a4 73 6c 6f 70  65 78 28 78 2c 79 29 20  |.&..slopex(x,y) |
0000ace0  f4 20 63 61 6c 6c 65 64  20 61 66 74 65 72 20 46  |. called after F|
0000acf0  4e 52 68 74 0d 45 b0 09  ea 69 25 2c 73 0d 45 ba  |NRht.E...i%,s.E.|
0000ad00  0b e3 69 25 3d 31 b8 35  0d 45 c4 2d 20 73 3d 73  |..i%=1.5.E.- s=s|
0000ad10  2d 47 48 25 28 69 25 29  2a 28 78 2d 47 58 25 28  |-GH%(i%)*(x-GX%(|
0000ad20  69 25 29 29 2a 65 78 70  28 69 25 29 2f 47 52 58  |i%))*exp(i%)/GRX|
0000ad30  25 28 69 25 29 0d 45 ce  05 ed 0d 45 d8 06 3d 73  |%(i%).E....E..=s|
0000ad40  0d 45 e2 05 20 0d 45 ec  05 20 0d 45 f6 11 dd a4  |.E.. .E.. .E....|
0000ad50  73 6c 6f 70 65 79 28 78  2c 79 29 0d 46 00 09 ea  |slopey(x,y).F...|
0000ad60  69 25 2c 73 0d 46 0a 0b  e3 69 25 3d 31 b8 35 0d  |i%,s.F...i%=1.5.|
0000ad70  46 14 2d 20 73 3d 73 2d  47 48 25 28 69 25 29 2a  |F.- s=s-GH%(i%)*|
0000ad80  28 79 2d 47 59 25 28 69  25 29 29 2a 65 78 70 28  |(y-GY%(i%))*exp(|
0000ad90  69 25 29 2f 47 52 59 25  28 69 25 29 0d 46 1e 05  |i%)/GRY%(i%).F..|
0000ada0  ed 0d 46 28 06 3d 73 0d  46 32 05 20 0d 46 3c 05  |..F(.=s.F2. .F<.|
0000adb0  20 0d 46 46 1d dd a4 68  74 32 28 7a 2c 79 31 29  | .FF...ht2(z,y1)|
0000adc0  3d 53 43 25 2a 31 36 36  37 2a 7a 2f 79 31 0d 46  |=SC%*1667*z/y1.F|
0000add0  50 05 20 0d 46 5a 05 20  0d 46 64 13 dd a4 70 6c  |P. .FZ. .Fd...pl|
0000ade0  61 6e 70 74 28 78 25 2c  79 25 29 0d 46 6e 07 ea  |anpt(x%,y%).Fn..|
0000adf0  70 25 0d 46 78 0c 2a 46  58 31 31 32 2c 31 0d 46  |p%.Fx.*FX112,1.F|
0000ae00  82 36 e7 28 78 25 3e 31  32 36 30 29 84 28 78 25  |.6.(x%>1260).(x%|
0000ae10  3c 31 36 29 84 28 79 25  3e 33 37 30 29 84 79 25  |<16).(y%>370).y%|
0000ae20  3c 31 36 8c 70 25 3d 32  34 8b 70 25 3d b0 78 25  |<16.p%=24.p%=.x%|
0000ae30  2c 79 25 29 0d 46 8c 0c  2a 46 58 31 31 32 2c 30  |,y%).F..*FX112,0|
0000ae40  0d 46 96 07 3d 70 25 0d  46 a0 05 20 0d 46 aa 05  |.F..=p%.F.. .F..|
0000ae50  20 0d 46 b4 1b dd a4 6d  69 6e 28 61 25 2c 62 25  | .F....min(a%,b%|
0000ae60  29 3a e7 61 25 3e 62 25  8c 3d 62 25 0d 46 be 07  |):.a%>b%.=b%.F..|
0000ae70  3d 61 25 0d 46 c8 05 20  0d 46 d2 05 20 0d 46 dc  |=a%.F.. .F.. .F.|
0000ae80  1b dd a4 6d 61 78 28 61  25 2c 62 25 29 3a e7 61  |...max(a%,b%):.a|
0000ae90  25 3e 62 25 8c 3d 61 25  0d 46 e6 07 3d 62 25 0d  |%>b%.=a%.F..=b%.|
0000aea0  46 f0 05 20 0d 46 fa 05  20 0d 47 04 0f dd a4 44  |F.. .F.. .G....D|
0000aeb0  48 28 79 25 2c 79 31 29  0d 47 0e 0c e7 79 31 3c  |H(y%,y1).G...y1<|
0000aec0  31 39 35 8c 0d 47 18 2d  20 e7 79 31 3c 31 38 30  |195..G.- .y1<180|
0000aed0  8c 79 25 3d 31 32 38 8b  79 25 3d a4 6d 61 78 28  |.y%=128.y%=.max(|
0000aee0  31 32 38 2c a4 6d 69 6e  28 32 35 36 2c 79 25 29  |128,.min(256,y%)|
0000aef0  29 0d 47 22 05 cd 0d 47  2c 07 3d 79 25 0d 47 36  |).G"...G,.=y%.G6|
0000af00  05 20 0d 47 40 05 20 0d  47 4a 31 dd f2 59 32 31  |. .G@. .GJ1..Y21|
0000af10  28 79 32 29 3a 59 31 3d  28 53 43 37 25 2f 28 32  |(y2):Y1=(SC7%/(2|
0000af20  36 30 2a 53 43 25 2b 32  38 30 2d 79 32 29 29 5e  |60*SC%+280-y2))^|
0000af30  2e 36 36 36 36 36 36 37  0d 47 54 0f e7 59 31 3c  |.6666667.GT..Y1<|
0000af40  31 30 59 31 3d 31 30 0d  47 5e 05 e1 0d 47 68 05  |10Y1=10.G^...Gh.|
0000af50  20 0d 47 72 05 20 0d 47  7c 12 dd f2 67 63 6f 6c  | .Gr. .G|...gcol|
0000af60  72 28 63 25 2c 73 25 29  0d 47 86 07 ea 74 25 0d  |r(c%,s%).G...t%.|
0000af70  47 90 16 e7 73 25 3c 32  30 74 25 3d 31 32 38 8b  |G...s%<20t%=128.|
0000af80  74 25 3d 36 34 0d 47 9a  27 e7 28 63 25 3d 38 29  |t%=64.G.'.(c%=8)|
0000af90  84 28 63 25 3d 31 32 29  84 28 63 25 3d 39 29 84  |.(c%=12).(c%=9).|
0000afa0  63 25 3d 30 74 25 3d 74  25 2b 36 34 0d 47 a4 1a  |c%=0t%=t%+64.G..|
0000afb0  e7 28 63 25 3e 32 31 29  80 63 25 3c 32 36 74 25  |.(c%>21).c%<26t%|
0000afc0  3d 74 25 2d 36 34 0d 47  ae 14 e6 30 2c 38 2d 4c  |=t%-64.G...0,8-L|
0000afd0  49 4e 4b 53 25 c8 9c 20  74 25 0d 47 b8 05 e1 0d  |INKS%.. t%.G....|
0000afe0  47 c2 05 20 0d 47 cc 05  20 0d 47 d6 0d dd f2 58  |G.. .G.. .G....X|
0000aff0  32 31 28 78 32 29 0d 47  e0 1d 58 31 3d 59 31 2a  |21(x2).G..X1=Y1*|
0000b000  28 78 32 2d 36 34 32 29  2f 28 53 43 25 2a 32 35  |(x2-642)/(SC%*25|
0000b010  30 30 29 0d 47 ea 05 e1  0d 47 f4 05 20 0d 47 fe  |00).G....G.. .G.|
0000b020  05 20 0d 48 08 11 dd f2  58 59 31 32 28 78 31 2c  |. .H....XY12(x1,|
0000b030  79 31 29 0d 48 12 34 59  32 3d 32 36 30 2a 53 43  |y1).H.4Y2=260*SC|
0000b040  25 2b 32 38 30 2d 53 43  37 25 2f 79 31 5e 31 2e  |%+280-SC7%/y1^1.|
0000b050  35 3a 58 32 3d 36 34 32  2b 32 35 30 30 2a 53 43  |5:X2=642+2500*SC|
0000b060  25 2a 78 31 2f 79 31 0d  48 1c 1f e7 94 28 58 32  |%*x1/y1.H....(X2|
0000b070  29 3e 33 30 30 30 58 32  3d 58 32 2f 94 28 58 32  |)>3000X2=X2/.(X2|
0000b080  29 2a 33 30 30 30 0d 48  26 05 e1 0d 48 30 05 20  |)*3000.H&...H0. |
0000b090  0d 48 3a 05 20 0d 48 44  0d dd f2 59 31 32 28 79  |.H:. .HD...Y12(y|
0000b0a0  31 29 0d 48 4e 1e 59 32  3d 32 36 30 2a 53 43 25  |1).HN.Y2=260*SC%|
0000b0b0  2b 32 38 30 2d 53 43 37  25 2f 79 31 5e 31 2e 35  |+280-SC7%/y1^1.5|
0000b0c0  0d 48 58 05 e1 0d 48 62  05 20 0d 48 6c 04 0d 48  |.HX...Hb. .Hl..H|
0000b0d0  76 0a dd f2 58 59 31 30  0d 48 80 49 58 30 3d 62  |v...XY10.H.IX0=b|
0000b0e0  61 6c 6c 78 2b 28 59 31  2d 32 30 30 29 2a 63 6f  |allx+(Y1-200)*co|
0000b0f0  73 61 6e 67 2b 58 31 2a  73 69 6e 61 6e 67 3a 59  |sang+X1*sinang:Y|
0000b100  30 3d 62 61 6c 6c 79 2b  28 59 31 2d 32 30 30 29  |0=bally+(Y1-200)|
0000b110  2a 73 69 6e 61 6e 67 2d  58 31 2a 63 6f 73 61 6e  |*sinang-X1*cosan|
0000b120  67 0d 48 8a 05 e1 0d 48  94 05 20 0d 48 9e 05 20  |g.H....H.. .H.. |
0000b130  0d 48 a8 11 dd f2 58 59  30 31 28 78 30 2c 79 30  |.H....XY01(x0,y0|
0000b140  29 0d 48 b2 11 ea 58 2c  59 2c 4c 31 2c 4c 32 2c  |).H...X,Y,L1,L2,|
0000b150  4c 33 0d 48 bc 1d 58 3d  28 78 30 2d 62 61 6c 6c  |L3.H..X=(x0-ball|
0000b160  78 29 3a 59 3d 28 79 30  2d 62 61 6c 6c 79 29 0d  |x):Y=(y0-bally).|
0000b170  48 c6 c3 e7 94 28 61 6e  67 2d 50 49 39 30 29 3c  |H....(ang-PI90)<|
0000b180  2e 30 30 30 30 31 58 31  3d 58 3a 59 31 3d 59 2b  |.00001X1=X:Y1=Y+|
0000b190  32 30 30 8b e7 94 28 61  6e 67 2d af 29 3c 2e 30  |200...(ang-.)<.0|
0000b1a0  30 30 30 31 58 31 3d 59  3a 59 31 3d 2d 58 2b 32  |0001X1=Y:Y1=-X+2|
0000b1b0  30 30 8b e7 94 28 61 6e  67 2d 50 49 32 37 30 29  |00...(ang-PI270)|
0000b1c0  3c 2e 30 30 30 30 31 58  31 3d 2d 58 3a 59 31 3d  |<.00001X1=-X:Y1=|
0000b1d0  2d 59 2b 32 30 30 8b e7  94 28 61 6e 67 29 3c 2e  |-Y+200...(ang)<.|
0000b1e0  30 30 30 30 31 58 31 3d  2d 59 3a 59 31 3d 58 2b  |00001X1=-Y:Y1=X+|
0000b1f0  32 30 30 8b 4c 31 3d 59  2f 74 61 6e 61 6e 67 3a  |200.L1=Y/tanang:|
0000b200  4c 32 3d 58 2d 4c 31 3a  4c 33 3d 4c 32 2a 73 69  |L2=X-L1:L3=L2*si|
0000b210  6e 41 4e 3a 58 31 3d 4c  32 2a 63 6f 73 41 4e 3a  |nAN:X1=L2*cosAN:|
0000b220  59 31 3d 4c 33 2b 59 2f  73 69 6e 61 6e 67 2b 32  |Y1=L3+Y/sinang+2|
0000b230  30 30 0d 48 d0 0f e7 59  31 3c 31 30 59 31 3d 31  |00.H...Y1<10Y1=1|
0000b240  30 0d 48 da 05 e1 0d 48  e4 05 20 0d 48 ee 05 20  |0.H....H.. .H.. |
0000b250  0d 48 f8 11 f4 3d 3d 3d  47 41 4d 45 20 44 41 54  |.H...===GAME DAT|
0000b260  41 0d 49 02 1d f4 2e 2e  2e 2e 63 6c 75 62 76 65  |A.I.......clubve|
0000b270  6c 78 2c 7a 2c 64 69 73  74 2c 6e 61 6d 65 0d 49  |lx,z,dist,name.I|
0000b280  0c 86 dc 34 2e 36 32 2c  2e 38 2c 32 35 30 2c 44  |...4.62,.8,250,D|
0000b290  72 69 76 65 72 2c 34 2e  31 33 2c 2e 39 2c 32 33  |river,4.13,.9,23|
0000b2a0  35 2c 33 20 57 6f 6f 64  2c 34 2e 33 36 2c 2e 36  |5,3 Wood,4.36,.6|
0000b2b0  38 2c 32 32 30 2c 31 20  49 72 6f 6e 2c 34 2e 30  |8,220,1 Iron,4.0|
0000b2c0  34 2c 2e 37 31 2c 32 30  38 2c 32 20 49 72 6f 6e  |4,.71,208,2 Iron|
0000b2d0  2c 33 2e 37 34 2c 2e 37  34 2c 31 39 36 2c 33 20  |,3.74,.74,196,3 |
0000b2e0  49 72 6f 6e 2c 33 2e 34  35 2c 2e 37 37 2c 31 38  |Iron,3.45,.77,18|
0000b2f0  34 2c 34 20 49 72 6f 6e  2c 33 2e 31 38 2c 2e 38  |4,4 Iron,3.18,.8|
0000b300  2c 31 37 32 0d 49 16 82  dc 35 20 49 72 6f 6e 2c  |,172.I...5 Iron,|
0000b310  32 2e 39 32 2c 2e 38 32  2c 31 36 30 2c 36 20 49  |2.92,.82,160,6 I|
0000b320  72 6f 6e 2c 32 2e 36 38  2c 2e 38 34 2c 31 34 38  |ron,2.68,.84,148|
0000b330  2c 37 20 49 72 6f 6e 2c  32 2e 34 33 2c 2e 38 36  |,7 Iron,2.43,.86|
0000b340  2c 31 33 36 2c 38 20 49  72 6f 6e 2c 32 2e 32 30  |,136,8 Iron,2.20|
0000b350  2c 2e 38 38 2c 31 32 34  2c 39 20 49 72 6f 6e 2c  |,.88,124,9 Iron,|
0000b360  31 2e 39 38 2c 2e 38 39  2c 31 31 32 2c 57 65 64  |1.98,.89,112,Wed|
0000b370  67 65 2c 31 2e 37 38 2c  2e 38 38 2c 31 30 30 2c  |ge,1.78,.88,100,|
0000b380  53 61 6e 64 20 57 0d 49  20 1b f4 2e 2e 2e 2e 63  |Sand W.I ......c|
0000b390  6c 75 62 20 73 77 69 6e  67 20 68 61 6e 64 58 27  |lub swing handX'|
0000b3a0  73 0d 49 2a 10 dc 30 2c  30 2c 30 2c 30 2c 30 2c  |s.I*..0,0,0,0,0,|
0000b3b0  30 0d 49 34 0e dc 34 2c  34 2c 34 2c 34 2c 34 0d  |0.I4..4,4,4,4,4.|
0000b3c0  49 3e 0e dc 38 2c 38 2c  38 2c 38 2c 38 0d 49 48  |I>..8,8,8,8,8.IH|
0000b3d0  13 dc 31 36 2c 31 36 2c  31 36 2c 32 30 2c 32 30  |..16,16,16,20,20|
0000b3e0  0d 49 52 13 dc 32 34 2c  32 34 2c 32 34 2c 32 38  |.IR..24,24,24,28|
0000b3f0  2c 32 38 0d 49 5c 13 dc  33 32 2c 33 32 2c 33 32  |,28.I\..32,32,32|
0000b400  2c 33 32 2c 33 32 0d 49  66 13 dc 32 38 2c 32 38  |,32,32.If..28,28|
0000b410  2c 32 38 2c 32 38 2c 32  38 0d 49 70 13 dc 32 38  |,28,28,28.Ip..28|
0000b420  2c 32 38 2c 32 38 2c 32  38 2c 32 38 0d 49 7a 13  |,28,28,28,28.Iz.|
0000b430  dc 32 38 2c 32 38 2c 32  38 2c 32 38 2c 32 38 0d  |.28,28,28,28,28.|
0000b440  49 84 1b f4 2e 2e 2e 2e  63 6c 75 62 20 73 77 69  |I.......club swi|
0000b450  6e 67 20 68 61 6e 64 59  27 73 0d 49 8e 10 dc 30  |ng handY's.I...0|
0000b460  2c 30 2c 30 2c 30 2c 30  2c 30 0d 49 98 0e dc 30  |,0,0,0,0,0.I...0|
0000b470  2c 30 2c 30 2c 30 2c 30  0d 49 a2 0e dc 30 2c 30  |,0,0,0,0.I...0,0|
0000b480  2c 30 2c 30 2c 30 0d 49  ac 0e dc 34 2c 34 2c 34  |,0,0,0.I...4,4,4|
0000b490  2c 34 2c 34 0d 49 b6 13  dc 31 36 2c 31 36 2c 32  |,4,4.I...16,16,2|
0000b4a0  30 2c 32 30 2c 32 30 0d  49 c0 13 dc 33 32 2c 33  |0,20,20.I...32,3|
0000b4b0  32 2c 33 36 2c 33 36 2c  33 36 0d 49 ca 13 dc 34  |2,36,36,36.I...4|
0000b4c0  34 2c 34 34 2c 34 38 2c  34 38 2c 34 38 0d 49 d4  |4,44,48,48,48.I.|
0000b4d0  13 dc 35 32 2c 35 32 2c  35 36 2c 35 36 2c 35 36  |..52,52,56,56,56|
0000b4e0  0d 49 de 13 dc 36 34 2c  36 34 2c 36 34 2c 36 34  |.I...64,64,64,64|
0000b4f0  2c 36 34 0d 49 e8 16 f4  2e 2e 2e 2e 63 6c 75 62  |,64.I.......club|
0000b500  20 68 65 61 64 20 58 27  73 0d 49 f2 13 dc 31 32  | head X's.I...12|
0000b510  2c 31 32 2c 31 30 2c 38  2c 36 2c 34 0d 49 fc 12  |,12,10,8,6,4.I..|
0000b520  dc 31 2c 2d 32 2c 2d 34  2c 2d 36 2c 2d 38 0d 4a  |.1,-2,-4,-6,-8.J|
0000b530  06 18 dc 2d 31 30 2c 2d  31 32 2c 2d 31 34 2c 2d  |...-10,-12,-14,-|
0000b540  31 36 2c 2d 31 38 0d 4a  10 18 dc 2d 32 30 2c 2d  |16,-18.J...-20,-|
0000b550  32 32 2c 2d 32 34 2c 2d  32 36 2c 2d 32 38 0d 4a  |22,-24,-26,-28.J|
0000b560  1a 18 dc 2d 33 30 2c 2d  33 31 2c 2d 33 32 2c 2d  |...-30,-31,-32,-|
0000b570  33 33 2c 2d 33 34 0d 4a  24 18 dc 2d 33 35 2c 2d  |33,-34.J$..-35,-|
0000b580  33 36 2c 2d 33 36 2c 2d  33 36 2c 2d 33 35 0d 4a  |36,-36,-36,-35.J|
0000b590  2e 18 dc 2d 33 34 2c 2d  33 33 2c 2d 33 32 2c 2d  |...-34,-33,-32,-|
0000b5a0  33 31 2c 2d 33 31 0d 4a  38 18 dc 2d 33 30 2c 2d  |31,-31.J8..-30,-|
0000b5b0  33 30 2c 2d 32 39 2c 2d  32 39 2c 2d 32 38 0d 4a  |30,-29,-29,-28.J|
0000b5c0  42 18 dc 2d 32 38 2c 2d  32 37 2c 2d 32 36 2c 2d  |B..-28,-27,-26,-|
0000b5d0  32 34 2c 2d 32 32 0d 4a  4c 16 f4 2e 2e 2e 2e 63  |24,-22.JL......c|
0000b5e0  6c 75 62 20 68 65 61 64  20 59 27 73 0d 4a 56 1c  |lub head Y's.JV.|
0000b5f0  dc 2d 33 36 2c 2d 34 30  2c 2d 34 30 2c 2d 34 34  |.-36,-40,-40,-44|
0000b600  2c 2d 34 34 2c 2d 34 30  0d 4a 60 18 dc 2d 34 30  |,-44,-40.J`..-40|
0000b610  2c 2d 34 30 2c 2d 34 30  2c 2d 33 36 2c 2d 33 36  |,-40,-40,-36,-36|
0000b620  0d 4a 6a 18 dc 2d 33 32  2c 2d 33 32 2c 2d 32 38  |.Jj..-32,-32,-28|
0000b630  2c 2d 32 38 2c 2d 32 34  0d 4a 74 15 dc 2d 32 30  |,-28,-24.Jt..-20|
0000b640  2c 2d 31 36 2c 2d 31 32  2c 2d 34 2c 34 0d 4a 7e  |,-16,-12,-4,4.J~|
0000b650  13 dc 31 32 2c 32 30 2c  32 38 2c 33 32 2c 33 36  |..12,20,28,32,36|
0000b660  0d 4a 88 13 dc 34 30 2c  34 34 2c 34 38 2c 35 32  |.J...40,44,48,52|
0000b670  2c 35 36 0d 4a 92 13 dc  36 30 2c 36 34 2c 36 38  |,56.J...60,64,68|
0000b680  2c 36 38 2c 37 32 0d 4a  9c 13 dc 37 32 2c 37 36  |,68,72.J...72,76|
0000b690  2c 37 36 2c 38 30 2c 38  30 0d 4a a6 13 dc 37 36  |,76,80,80.J...76|
0000b6a0  2c 37 32 2c 36 38 2c 36  34 2c 36 30 0d 4a b0 0c  |,72,68,64,60.J..|
0000b6b0  f4 2e 2e 54 72 65 65 73  0d 4a ba e5 dc 6f 61 6b  |...Trees.J...oak|
0000b6c0  31 2c 39 35 2c 31 30 36  2c 32 30 2c 70 6f 70 31  |1,95,106,20,pop1|
0000b6d0  2c 34 38 2c 31 32 35 2c  31 36 2c 78 6d 73 31 2c  |,48,125,16,xms1,|
0000b6e0  32 35 2c 37 34 2c 31 32  2c 70 69 6e 31 2c 33 35  |25,74,12,pin1,35|
0000b6f0  2c 31 34 30 2c 34 36 2c  73 62 69 31 2c 36 33 2c  |,140,46,sbi1,63,|
0000b700  38 37 2c 31 32 2c 77 69  6c 31 2c 39 32 2c 38 37  |87,12,wil1,92,87|
0000b710  2c 34 2c 68 61 77 31 2c  35 37 2c 36 32 2c 31 37  |,4,haw1,57,62,17|
0000b720  2c 6c 63 68 31 2c 36 32  2c 31 32 39 2c 39 2c 65  |,lch1,62,129,9,e|
0000b730  6c 64 31 2c 34 34 2c 35  35 2c 31 39 2c 6d 61 70  |ld1,44,55,19,map|
0000b740  31 2c 34 39 2c 36 34 2c  31 34 2c 65 6c 6d 31 2c  |1,49,64,14,elm1,|
0000b750  37 39 2c 31 31 37 2c 31  35 2c 63 68 65 31 2c 31  |79,117,15,che1,1|
0000b760  30 32 2c 31 31 34 2c 39  2c 66 6d 61 31 2c 34 34  |02,114,9,fma1,44|
0000b770  2c 35 35 2c 31 38 2c 62  73 61 31 2c 34 34 2c 33  |,55,18,bsa1,44,3|
0000b780  39 2c 30 2c 62 68 61 31  2c 32 35 2c 33 30 2c 30  |9,0,bha1,25,30,0|
0000b790  2c 62 72 6b 31 2c 32 36  2c 32 31 2c 30 0d 4a c4  |,brk1,26,21,0.J.|
0000b7a0  74 dc 68 65 61 31 2c 32  33 2c 31 36 2c 30 2c 67  |t.hea1,23,16,0,g|
0000b7b0  6f 72 31 2c 32 30 2c 31  33 2c 30 2c 6e 6d 61 31  |or1,20,13,0,nma1|
0000b7c0  2c 36 36 2c 38 30 2c 32  33 2c 73 61 6c 31 2c 31  |,66,80,23,sal1,1|
0000b7d0  30 38 2c 38 31 2c 31 34  2c 73 61 6c 32 2c 37 33  |08,81,14,sal2,73|
0000b7e0  2c 36 38 2c 33 32 2c 70  6c 6d 31 2c 35 31 2c 31  |,68,32,plm1,51,1|
0000b7f0  33 30 2c 38 36 2c 70 6c  6d 32 2c 38 30 2c 39 36  |30,86,plm2,80,96|
0000b800  2c 33 38 2c 70 6c 6d 33  2c 35 38 2c 36 34 2c 33  |,38,plm3,58,64,3|
0000b810  34 0d ff 00 00 00 00 00                           |4.......|
0000b818