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 30  |@00009000,000140|
00000040  35 38 0d 00 00 00 00 00  5c b0 00 00 ac 30 01 00  |58......\....0..|
00000050  58 40 01 00 0d 00 0a 18  ee 85 c8 99 22 4f 53 5f  |X@.........."OS_|
00000060  49 6e 74 4f 6e 22 3a e5  8d 54 72 40 0d 00 14 0c  |IntOn":..Tr@....|
00000070  2a 46 58 31 31 32 2c 30  0d 00 1e 0c 2a 46 58 31  |*FX112,0....*FX1|
00000080  31 33 2c 30 0d 00 28 23  f2 69 6e 69 74 3a 2a 53  |13,0..(#.init:*S|
00000090  45 54 20 4d 69 63 72 6f  24 44 69 72 20 3c 4f 62  |ET Micro$Dir <Ob|
000000a0  65 79 24 44 69 72 3e 0d  00 32 10 f2 77 68 69 63  |ey$Dir>..2..whic|
000000b0  68 63 6f 75 72 73 65 0d  00 3c 18 5a 25 3d 8e 28  |hcourse..<.Z%=.(|
000000c0  22 52 41 4d 3a 24 2e 43  4f 55 52 53 45 22 29 0d  |"RAM:$.COURSE").|
000000d0  00 46 0b f2 69 6e 69 72  6e 64 0d 00 50 0e e7 52  |.F..inirnd..P..R|
000000e0  54 4e 25 8c 8d 54 72 40  0d 00 5a 13 44 52 25 3d  |TN%..Tr@..Z.DR%=|
000000f0  a3 3a 68 6f 6c 65 25 3d  53 48 25 0d 00 64 50 e7  |.:hole%=SH%..dP.|
00000100  68 6f 6c 65 25 3e 31 8c  eb 31 34 30 3a c8 99 22  |hole%>1..140:.."|
00000110  48 6f 75 72 67 6c 61 73  73 5f 4f 6e 22 3a e3 49  |Hourglass_On":.I|
00000120  25 3d 31 b8 68 6f 6c 65  25 2d 31 3a f2 64 72 61  |%=1.hole%-1:.dra|
00000130  77 70 6c 61 6e 3a ed 3a  c8 99 22 48 6f 75 72 67  |wplan:.:.."Hourg|
00000140  6c 61 73 73 5f 53 6d 61  73 68 22 0d 00 6e 09 44  |lass_Smash"..n.D|
00000150  52 25 3d b9 0d 00 78 12  eb 31 34 31 3a f2 64 72  |R%=...x..141:.dr|
00000160  61 77 70 6c 61 6e 0d 00  82 13 64 65 76 61 6e 67  |awplan....devang|
00000170  3d 30 3a 64 72 77 25 3d  30 0d 00 8c 28 c8 99 22  |=0:drw%=0...(.."|
00000180  4f 53 5f 49 6e 74 4f 66  66 22 3a f2 64 72 61 77  |OS_IntOff":.draw|
00000190  73 68 6f 74 3a c8 99 22  4f 53 5f 49 6e 74 4f 6e  |shot:.."OS_IntOn|
000001a0  22 0d 00 96 17 f2 69 6e  70 75 74 73 68 6f 74 3a  |".....inputshot:|
000001b0  f2 61 6e 69 6d 61 74 65  0d 00 a0 12 e7 ac a4 61  |.animate.......a|
000001c0  6c 6c 69 6e 68 6f 6c 65  20 8c 0d 00 aa 15 20 e7  |llinhole ..... .|
000001d0  6f 62 64 73 25 8c 8d 74  4c 40 8b 8d 74 42 40 0d  |obds%..tL@..tB@.|
000001e0  00 b4 05 cd 0d 00 be 2d  f2 73 63 6f 72 65 63 61  |.......-.scoreca|
000001f0  72 64 3a e7 67 6f 6f 6e  25 80 28 68 6f 6c 65 25  |rd:.goon%.(hole%|
00000200  3d 31 29 8c 68 6f 6c 65  25 3d 32 3a e5 8d 44 78  |=1).hole%=2:..Dx|
00000210  40 0d 00 c8 07 d9 23 30  0d 00 d2 18 ff 28 22 52  |@.....#0.....("R|
00000220  41 4d 3a 43 4c 4f 53 45  22 29 3a e5 8d 54 7c 40  |AM:CLOSE"):..T|@|
00000230  0d 00 dc 04 0d 00 e6 0a  dd f2 69 6e 69 74 0d 00  |..........init..|
00000240  f0 0c ea 69 25 2c 6c 65  6e 25 0d 00 fa 1b de 53  |...i%,len%.....S|
00000250  50 25 20 26 35 36 39 30  30 3a 21 53 50 25 3d 26  |P% &56900:!SP%=&|
00000260  35 36 39 30 30 0d 01 04  36 c8 99 20 22 4f 53 5f  |56900...6.. "OS_|
00000270  46 69 6c 65 22 2c 35 2c  22 3c 4d 69 63 72 6f 24  |File",5,"<Micro$|
00000280  44 69 72 3e 2e 43 6f 6d  70 72 65 73 73 22 20 b8  |Dir>.Compress" .|
00000290  20 69 25 2c 2c 2c 2c 6c  65 6e 25 0d 01 0e 2a e7  | i%,,,,len%...*.|
000002a0  20 69 25 20 3c 3e 31 20  8c 20 85 20 31 2c 22 43  | i% <>1 . . 1,"C|
000002b0  6f 6d 70 72 65 73 73 20  46 69 6c 65 20 4d 69 73  |ompress File Mis|
000002c0  73 69 6e 67 22 0d 01 18  1a 69 25 3d 53 50 25 2b  |sing"....i%=SP%+|
000002d0  26 35 36 39 30 30 2d 6c  65 6e 25 2d 26 34 30 0d  |&56900-len%-&40.|
000002e0  01 22 28 ff 28 22 4c 4f  41 44 20 3c 4d 69 63 72  |."(.("LOAD <Micr|
000002f0  6f 24 44 69 72 3e 2e 43  6f 6d 70 72 65 73 73 20  |o$Dir>.Compress |
00000300  22 2b c3 7e 69 25 29 0d  01 2c 14 e3 20 70 61 73  |"+.~i%)..,.. pas|
00000310  73 3d 30 20 b8 20 32 20  88 20 32 0d 01 36 0e 50  |s=0 . 2 . 2..6.P|
00000320  25 3d 69 25 2b 6c 65 6e  25 0d 01 40 0d 5b 4f 50  |%=i%+len%..@.[OP|
00000330  54 20 70 61 73 73 0d 01  4a 09 2e 63 6f 64 65 0d  |T pass..J..code.|
00000340  01 54 0d 41 44 52 20 52  30 2c 74 6f 0d 01 5e 12  |.T.ADR R0,to..^.|
00000350  4c 44 52 20 52 32 2c 5b  52 30 5d 2c 23 34 0d 01  |LDR R2,[R0],#4..|
00000360  68 12 4c 44 52 20 52 33  2c 5b 52 30 5d 2c 23 34  |h.LDR R3,[R0],#4|
00000370  0d 01 72 12 4c 44 52 20  52 34 2c 5b 52 30 5d 2c  |..r.LDR R4,[R0],|
00000380  23 30 0d 01 7c 0b 2e 75  6e 70 61 63 6b 0d 01 86  |#0..|..unpack...|
00000390  13 4c 44 52 42 20 52 30  2c 5b 52 33 5d 2c 23 31  |.LDRB R0,[R3],#1|
000003a0  0d 01 90 13 4c 44 52 42  20 52 31 2c 5b 52 33 5d  |....LDRB R1,[R3]|
000003b0  2c 23 31 0d 01 9a 09 2e  6c 6f 6f 70 0d 01 a4 13  |,#1.....loop....|
000003c0  53 54 52 42 20 52 30 2c  5b 52 32 5d 2c 23 31 0d  |STRB R0,[R2],#1.|
000003d0  01 ae 11 53 55 42 53 20  52 31 2c 52 31 2c 23 31  |...SUBS R1,R1,#1|
000003e0  0d 01 b8 0c 42 4e 45 20  6c 6f 6f 70 0d 01 c2 0d  |....BNE loop....|
000003f0  43 4d 50 20 52 33 2c 52  34 0d 01 cc 0e 42 4e 45  |CMP R3,R4....BNE|
00000400  20 75 6e 70 61 63 6b 0d  01 d6 0e 4d 4f 56 20 50  | unpack....MOV P|
00000410  43 2c 52 31 34 0d 01 e0  07 2e 74 6f 0d 01 ea 0c  |C,R14.....to....|
00000420  45 51 55 44 20 53 50 25  0d 01 f4 09 2e 66 72 6f  |EQUD SP%.....fro|
00000430  6d 0d 01 fe 0b 45 51 55  44 20 69 25 0d 02 08 0b  |m....EQUD i%....|
00000440  2e 66 69 6e 69 73 68 0d  02 12 0d 45 51 55 44 20  |.finish....EQUD |
00000450  63 6f 64 65 0d 02 1c 05  5d 0d 02 26 05 ed 0d 02  |code....]..&....|
00000460  30 0a d6 20 63 6f 64 65  0d 02 3a 28 43 43 25 3d  |0.. code..:(CC%=|
00000470  31 3a 50 49 39 30 3d af  2f 32 3a 50 49 32 37 30  |1:PI90=./2:PI270|
00000480  3d 33 2a af 2f 32 3a 50  49 33 36 30 3d 32 2a af  |=3*./2:PI360=2*.|
00000490  0d 02 44 0f de 20 53 43  41 4c 45 25 20 31 36 0d  |..D.. SCALE% 16.|
000004a0  02 4e 22 53 25 3d b3 28  2d 91 2a bb 28 c1 91 24  |.N"S%=.(-.*.(..$|
000004b0  2c 32 33 2c 32 29 29 29  3a 53 25 3d b3 28 2d 91  |,23,2))):S%=.(-.|
000004c0  29 0d 02 58 20 de 58 25  28 32 31 29 2c 59 25 28  |)..X .X%(21),Y%(|
000004d0  32 31 29 2c 43 25 28 32  31 29 2c 48 25 28 32 31  |21),C%(21),H%(21|
000004e0  29 0d 02 62 30 de 47 48  25 28 35 29 2c 47 58 25  |)..b0.GH%(5),GX%|
000004f0  28 35 29 2c 47 59 25 28  35 29 2c 47 52 58 25 28  |(5),GY%(5),GRX%(|
00000500  35 29 2c 47 52 59 25 28  35 29 2c 65 78 70 28 35  |5),GRY%(5),exp(5|
00000510  29 0d 02 6c 2c de 47 4e  43 25 28 34 30 29 2c 47  |)..l,.GNC%(40),G|
00000520  4e 4f 25 28 34 30 29 2c  47 4e 58 25 28 34 30 2c  |NO%(40),GNX%(40,|
00000530  37 29 2c 47 4e 59 25 28  34 30 2c 37 29 0d 02 76  |7),GNY%(40,7)..v|
00000540  0c de 43 46 24 28 32 30  29 0d 02 80 23 de 54 24  |..CF$(20)...#.T$|
00000550  28 32 34 29 2c 54 57 25  28 32 34 29 2c 54 48 25  |(24),TW%(24),TH%|
00000560  28 32 34 29 2c 54 4c 25  28 32 34 29 0d 02 8a 24  |(24),TL%(24)...$|
00000570  de 54 45 58 25 28 36 29  2c 54 45 59 25 28 36 29  |.TEX%(6),TEY%(6)|
00000580  2c 54 45 58 32 28 36 29  2c 54 45 59 32 28 36 29  |,TEX2(6),TEY2(6)|
00000590  0d 02 94 16 de 4f 42 58  25 28 32 35 29 2c 4f 42  |.....OBX%(25),OB|
000005a0  59 25 28 32 35 29 0d 02  9e 1c de 53 42 58 31 28  |Y%(25).....SBX1(|
000005b0  33 29 2c 53 42 59 31 28  33 29 2c 53 42 50 25 28  |3),SBY1(3),SBP%(|
000005c0  33 29 0d 02 a8 33 de 42  63 6f 25 28 31 32 29 2c  |3)...3.Bco%(12),|
000005d0  42 78 25 28 31 32 2c 32  38 29 2c 42 79 25 28 31  |Bx%(12,28),By%(1|
000005e0  32 2c 32 38 29 2c 42 78  32 28 32 38 29 2c 42 79  |2,28),Bx2(28),By|
000005f0  32 28 32 38 29 0d 02 b2  23 de 57 63 6f 25 28 33  |2(28)...#.Wco%(3|
00000600  30 29 2c 57 78 25 28 33  30 2c 31 32 29 2c 57 79  |0),Wx%(30,12),Wy|
00000610  25 28 33 30 2c 31 32 29  0d 02 bc 50 de 74 72 65  |%(30,12)...P.tre|
00000620  65 78 25 28 31 30 30 29  2c 74 72 65 65 79 25 28  |ex%(100),treey%(|
00000630  31 30 30 29 2c 74 72 65  65 74 79 70 25 28 31 30  |100),treetyp%(10|
00000640  30 29 2c 4f 74 79 70 25  28 31 36 30 29 2c 4f 58  |0),Otyp%(160),OX|
00000650  31 28 31 36 30 29 2c 4f  59 31 28 31 36 30 29 2c  |1(160),OY1(160),|
00000660  53 4f 25 28 31 36 30 29  0d 02 c6 28 de 48 4e 58  |SO%(160)...(.HNX|
00000670  25 28 34 35 29 2c 48 4e  59 25 28 34 35 29 2c 43  |%(45),HNY%(45),C|
00000680  48 58 25 28 34 35 29 2c  43 48 59 25 28 34 35 29  |HX%(45),CHY%(45)|
00000690  0d 02 d0 54 de 6c 65 6e  25 28 31 38 29 2c 70 61  |...T.len%(18),pa|
000006a0  72 25 28 31 38 29 2c 73  74 72 6f 6b 65 25 28 31  |r%(18),stroke%(1|
000006b0  38 29 2c 63 6c 75 62 76  65 6c 78 28 31 33 29 2c  |8),clubvelx(13),|
000006c0  63 6c 75 62 76 65 6c 7a  28 31 33 29 2c 63 6c 75  |clubvelz(13),clu|
000006d0  62 64 69 73 74 25 28 31  33 29 2c 63 6c 75 62 24  |bdist%(13),club$|
000006e0  28 31 34 29 0d 02 da 7c  de 73 63 6f 72 65 25 28  |(14)...|.score%(|
000006f0  34 2c 31 38 29 2c 74 6f  74 73 63 6f 72 65 25 28  |4,18),totscore%(|
00000700  34 29 2c 6f 75 74 73 63  6f 72 65 25 28 34 29 2c  |4),outscore%(4),|
00000710  6e 61 6d 65 24 28 34 29  2c 74 65 65 6f 72 64 65  |name$(4),teeorde|
00000720  72 25 28 34 29 2c 62 61  6c 6c 78 28 34 29 2c 62  |r%(4),ballx(4),b|
00000730  61 6c 6c 79 28 34 29 2c  62 68 64 62 6c 25 28 34  |ally(4),bhdbl%(4|
00000740  29 2c 68 6f 6c 65 64 25  28 34 29 2c 4f 4c 48 25  |),holed%(4),OLH%|
00000750  28 34 29 2c 4c 48 25 28  34 29 2c 53 4b 28 34 29  |(4),LH%(4),SK(4)|
00000760  0d 02 e4 16 de 42 52 58  25 28 32 30 29 2c 42 52  |.....BRX%(20),BR|
00000770  59 25 28 32 30 29 0d 02  ee 41 e3 69 25 3d 31 b8  |Y%(20)...A.i%=1.|
00000780  31 33 3a f3 63 6c 75 62  76 65 6c 78 28 69 25 29  |13:.clubvelx(i%)|
00000790  2c 63 6c 75 62 76 65 6c  7a 28 69 25 29 2c 63 6c  |,clubvelz(i%),cl|
000007a0  75 62 64 69 73 74 25 28  69 25 29 2c 63 6c 75 62  |ubdist%(i%),club|
000007b0  24 28 69 25 29 3a ed 0d  02 f8 16 63 6c 75 62 24  |$(i%):.....club$|
000007c0  28 31 34 29 3d 22 50 75  74 74 65 72 22 0d 03 02  |(14)="Putter"...|
000007d0  18 e3 69 25 3d 30 b8 34  35 3a f3 48 4e 58 25 28  |..i%=0.45:.HNX%(|
000007e0  69 25 29 3a ed 0d 03 0c  18 e3 69 25 3d 30 b8 34  |i%):......i%=0.4|
000007f0  35 3a f3 48 4e 59 25 28  69 25 29 3a ed 0d 03 16  |5:.HNY%(i%):....|
00000800  18 e3 69 25 3d 30 b8 34  35 3a f3 43 48 58 25 28  |..i%=0.45:.CHX%(|
00000810  69 25 29 3a ed 0d 03 20  18 e3 69 25 3d 30 b8 34  |i%):... ..i%=0.4|
00000820  35 3a f3 43 48 59 25 28  69 25 29 3a ed 0d 03 2a  |5:.CHY%(i%):...*|
00000830  0b 54 53 43 3d 31 2e 34  0d 03 34 0c e3 69 25 3d  |.TSC=1.4..4..i%=|
00000840  31 b8 32 34 0d 03 3e 24  20 f3 54 24 28 69 25 29  |1.24..>$ .T$(i%)|
00000850  2c 54 57 25 28 69 25 29  2c 54 48 25 28 69 25 29  |,TW%(i%),TH%(i%)|
00000860  2c 54 4c 25 28 69 25 29  0d 03 48 18 20 54 57 25  |,TL%(i%)..H. TW%|
00000870  28 69 25 29 3d 54 57 25  28 69 25 29 2a 54 53 43  |(i%)=TW%(i%)*TSC|
00000880  0d 03 52 18 20 54 48 25  28 69 25 29 3d 54 48 25  |..R. TH%(i%)=TH%|
00000890  28 69 25 29 2a 54 53 43  0d 03 5c 18 20 54 4c 25  |(i%)*TSC..\. TL%|
000008a0  28 69 25 29 3d 54 4c 25  28 69 25 29 2a 54 53 43  |(i%)=TL%(i%)*TSC|
000008b0  0d 03 66 05 ed 0d 03 7a  2b e3 69 25 3d 31 b8 34  |..f....z+.i%=1.4|
000008c0  3a 4f 4c 48 25 28 69 25  29 3d a3 3a 4c 48 25 28  |:OLH%(i%)=.:LH%(|
000008d0  69 25 29 3d a3 3a 53 4b  28 69 25 29 3d 31 3a ed  |i%)=.:SK(i%)=1:.|
000008e0  0d 03 84 05 e1 0d 03 8e  05 20 0d 03 98 11 dd f2  |......... ......|
000008f0  77 68 69 63 68 63 6f 75  72 73 65 0d 03 a2 0a ea  |whichcourse.....|
00000900  61 25 2c 69 25 0d 03 ac  2a c8 99 22 4f 53 5f 46  |a%,i%...*.."OS_F|
00000910  69 6c 65 22 2c 35 2c 22  3c 4d 69 63 72 6f 24 44  |ile",5,"<Micro$D|
00000920  69 72 3e 2e 43 44 41 54  41 22 20 b8 20 69 25 0d  |ir>.CDATA" . i%.|
00000930  03 b6 0b e7 69 25 3c 3e  32 8c 0d 03 c0 3b 20 eb  |....i%<>2....; .|
00000940  31 35 3a f1 20 22 4c 6f  61 64 20 63 6f 75 72 73  |15:. "Load cours|
00000950  65 20 64 69 73 6b 20 69  6e 20 44 52 49 56 45 20  |e disk in DRIVE |
00000960  30 20 61 6e 64 20 70 72  65 73 73 20 53 50 41 43  |0 and press SPAC|
00000970  45 42 41 52 22 0d 03 ca  36 20 ff 28 22 53 45 54  |EBAR"...6 .("SET|
00000980  20 4d 69 63 72 6f 24 44  69 72 20 3a 30 2e 24 2e  | Micro$Dir :0.$.|
00000990  21 4d 69 63 72 6f 5f 44  72 76 22 29 3a f5 fd a6  |!Micro_Drv"):...|
000009a0  28 2d 39 39 29 3a e5 8d  74 6c 43 0d 03 d4 05 cd  |(-99):..tlC.....|
000009b0  0d 03 de 28 2a 45 4e 55  4d 44 49 52 20 3c 4d 69  |...(*ENUMDIR <Mi|
000009c0  63 72 6f 24 44 69 72 3e  2e 43 44 41 54 41 20 52  |cro$Dir>.CDATA R|
000009d0  41 4d 3a 43 4c 49 53 54  0d 03 e8 0c 43 46 24 28  |AM:CLIST....CF$(|
000009e0  29 3d 22 22 0d 03 f2 15  59 25 3d 8e 28 22 52 41  |)=""....Y%=.("RA|
000009f0  4d 3a 43 4c 49 53 54 22  29 0d 03 fc 09 4e 43 25  |M:CLIST")....NC%|
00000a00  3d 30 0d 04 06 05 f5 0d  04 10 0c 20 61 25 3d 9a  |=0......... a%=.|
00000a10  23 59 25 0d 04 1a 0b 20  4e 43 25 2b 3d 31 0d 04  |#Y%.... NC%+=1..|
00000a20  24 34 20 f5 3a 43 46 24  28 4e 43 25 29 3d 43 46  |$4 .:CF$(NC%)=CF|
00000a30  24 28 4e 43 25 29 2b bd  28 61 25 29 3a 61 25 3d  |$(NC%)+.(a%):a%=|
00000a40  9a 23 59 25 3a fd 28 61  25 3d 31 30 29 84 c5 23  |.#Y%:.(a%=10)..#|
00000a50  59 25 0d 04 2e 09 fd c5  23 59 25 0d 04 38 12 ff  |Y%......#Y%..8..|
00000a60  28 22 52 41 4d 3a 43 4c  4f 53 45 22 29 0d 04 42  |("RAM:CLOSE")..B|
00000a70  0a f2 63 6d 65 6e 75 0d  04 4c 6e e7 ac 49 25 8c  |..cmenu..Ln..I%.|
00000a80  ff 28 22 43 4f 50 59 20  3c 4d 69 63 72 6f 24 44  |.("COPY <Micro$D|
00000a90  69 72 3e 2e 43 44 41 54  41 2e 22 2b 63 73 70 72  |ir>.CDATA."+cspr|
00000aa0  69 74 65 24 2b 22 20 52  41 4d 3a 24 2e 43 4f 55  |ite$+" RAM:$.COU|
00000ab0  52 53 45 20 46 20 7e 43  7e 56 22 29 8b ff 28 22  |RSE F ~C~V")..("|
00000ac0  53 45 54 20 4d 69 63 72  6f 24 44 69 72 20 3a 30  |SET Micro$Dir :0|
00000ad0  2e 24 2e 21 4d 69 63 72  6f 5f 44 72 76 22 29 3a  |.$.!Micro_Drv"):|
00000ae0  e5 8d 74 6c 43 0d 04 56  05 e1 0d 04 60 05 20 0d  |..tlC..V....`. .|
00000af0  04 6a 0b dd f2 63 6d 65  6e 75 0d 04 74 19 ea 63  |.j...cmenu..t..c|
00000b00  25 2c 78 25 2c 79 25 2c  67 25 2c 62 25 2c 6b 25  |%,x%,y%,g%,b%,k%|
00000b10  2c 72 25 0d 04 7e 07 eb  31 35 0d 04 88 13 ef 32  |,r%..~..15.....2|
00000b20  33 3b 38 32 30 32 3b 30  3b 30 3b 30 3b 0d 04 92  |3;8202;0;0;0;...|
00000b30  1f e6 30 2c 34 32 20 c8  9c 30 3a c8 93 c8 90 30  |..0,42 ..0:....0|
00000b40  2c 30 2c 31 32 38 30 2c  31 31 30 30 0d 04 9c 0d  |,0,1280,1100....|
00000b50  e3 63 25 3d 31 b8 4e 43  25 0d 04 a6 2a 20 ff 28  |.c%=1.NC%...* .(|
00000b60  22 53 4c 4f 41 44 20 3c  4d 69 63 72 6f 24 44 69  |"SLOAD <Micro$Di|
00000b70  72 3e 2e 43 4c 4f 41 44  2e 22 2b 43 46 24 28 63  |r>.CLOAD."+CF$(c|
00000b80  25 29 29 0d 04 b0 12 20  2a 53 43 48 4f 4f 53 45  |%)).... *SCHOOSE|
00000b90  20 4d 45 4e 55 0d 04 ba  34 20 e6 38 2c 30 3a f0  | MENU...4 .8,0:.|
00000ba0  26 45 44 2c 28 28 63 25  2d 31 29 83 33 29 2a 33  |&ED,((c%-1).3)*3|
00000bb0  36 34 2b 32 30 2c 31 30  31 36 2d 28 28 63 25 2b  |64+20,1016-((c%+|
00000bc0  32 29 81 33 29 2a 33 32  38 0d 04 c4 05 ed 0d 04  |2).3)*328.......|
00000bd0  ce 12 ef 35 3a e6 30 2c  36 33 20 c8 9c 31 39 32  |...5:.0,63 ..192|
00000be0  0d 04 d8 18 78 25 3d 31  31 30 34 3a 79 25 3d 39  |....x%=1104:y%=9|
00000bf0  34 34 3a 67 25 3d 34 34  0d 04 e2 16 ec 78 25 2c  |44:g%=44.....x%,|
00000c00  79 25 3a f1 22 55 73 65  20 6c 65 66 74 22 0d 04  |y%:."Use left"..|
00000c10  ec 16 ec 78 25 2c 79 25  2d 67 25 3a f1 22 6d 6f  |...x%,y%-g%:."mo|
00000c20  75 73 65 22 0d 04 f6 19  ec 78 25 2c 79 25 2d 67  |use".....x%,y%-g|
00000c30  25 2a 32 3a f1 22 62 75  74 74 6f 6e 22 0d 05 00  |%*2:."button"...|
00000c40  1c ec 78 25 2c 79 25 2d  67 25 2a 33 3a f1 22 74  |..x%,y%-g%*3:."t|
00000c50  6f 20 73 65 6c 65 63 74  22 0d 05 0a 19 ec 78 25  |o select".....x%|
00000c60  2c 79 25 2d 67 25 2a 34  3a f1 22 63 6f 75 72 73  |,y%-g%*4:."cours|
00000c70  65 22 0d 05 14 1c ec 78  25 2c 79 25 2d 67 25 2a  |e".....x%,y%-g%*|
00000c80  37 3a f1 22 55 73 65 20  72 69 67 68 74 22 0d 05  |7:."Use right"..|
00000c90  1e 18 ec 78 25 2c 79 25  2d 67 25 2a 38 3a f1 22  |...x%,y%-g%*8:."|
00000ca0  6d 6f 75 73 65 22 0d 05  28 19 ec 78 25 2c 79 25  |mouse"..(..x%,y%|
00000cb0  2d 67 25 2a 39 3a f1 22  62 75 74 74 6f 6e 22 0d  |-g%*9:."button".|
00000cc0  05 32 1e ec 78 25 2c 79  25 2d 67 25 2a 31 30 3a  |.2..x%,y%-g%*10:|
00000cd0  f1 22 66 6f 72 20 63 6f  75 72 73 65 22 0d 05 3c  |."for course"..<|
00000ce0  1c ec 78 25 2c 79 25 2d  67 25 2a 31 31 3a f1 22  |..x%,y%-g%*11:."|
00000cf0  6f 76 65 72 76 69 65 77  22 0d 05 46 0e e6 30 2c  |overview"..F..0,|
00000d00  34 37 c8 9c 31 39 32 0d  05 50 1c ec 78 25 2c 79  |47..192..P..x%,y|
00000d10  25 2d 67 25 2a 31 34 3a  f1 22 4f 72 20 70 72 65  |%-g%*14:."Or pre|
00000d20  73 73 22 0d 05 5a 1c ec  78 25 2c 79 25 2d 67 25  |ss"..Z..x%,y%-g%|
00000d30  2a 31 35 3a f1 22 53 50  41 43 45 42 41 52 22 0d  |*15:."SPACEBAR".|
00000d40  05 64 19 ec 78 25 2c 79  25 2d 67 25 2a 31 36 3a  |.d..x%,y%-g%*16:|
00000d50  f1 22 61 66 74 65 72 22  0d 05 6e 1b ec 78 25 2c  |."after"..n..x%,|
00000d60  79 25 2d 67 25 2a 31 37  3a f1 22 6c 6f 61 64 69  |y%-g%*17:."loadi|
00000d70  6e 67 22 0d 05 78 1e ec  78 25 2c 79 25 2d 67 25  |ng"..x..x%,y%-g%|
00000d80  2a 31 38 3a f1 22 6e 65  77 20 63 6f 75 72 73 65  |*18:."new course|
00000d90  22 0d 05 82 1c ec 78 25  2c 79 25 2d 67 25 2a 31  |".....x%,y%-g%*1|
00000da0  39 3a f1 22 64 69 73 6b  65 74 74 65 22 0d 05 8c  |9:."diskette"...|
00000db0  1e ec 78 25 2c 79 25 2d  67 25 2a 32 30 3a f1 22  |..x%,y%-g%*20:."|
00000dc0  69 6e 20 44 72 69 76 65  20 30 22 0d 05 96 16 c8  |in Drive 0".....|
00000dd0  97 c8 93 32 30 2c 33 32  2c 31 30 36 38 2c 39 36  |...20,32,1068,96|
00000de0  34 0d 05 a0 30 c8 97 b8  20 28 28 43 43 25 2d 31  |4...0... ((CC%-1|
00000df0  29 83 33 29 2a 33 36 34  2b 32 30 30 2c 31 31 38  |).3)*364+200,118|
00000e00  30 2d 28 28 43 43 25 2b  32 29 81 33 29 2a 33 32  |0-((CC%+2).3)*32|
00000e10  38 0d 05 aa 07 c8 97 ee  0d 05 b4 15 f5 c8 97 78  |8..............x|
00000e20  25 2c 79 25 2c 62 25 3a  fd 62 25 3d 30 0d 05 be  |%,y%,b%:.b%=0...|
00000e30  2b f5 c8 97 78 25 2c 79  25 2c 62 25 3a 49 25 3d  |+...x%,y%,b%:I%=|
00000e40  a6 28 2d 39 39 29 3a fd  28 49 25 29 84 28 62 25  |.(-99):.(I%).(b%|
00000e50  3d 31 29 84 62 25 3d 34  0d 05 c8 0c e7 49 25 8c  |=1).b%=4.....I%.|
00000e60  8d 64 7a 45 0d 05 d2 26  6b 25 3d 28 78 25 2d 32  |.dzE...&k%=(x%-2|
00000e70  30 29 81 33 35 37 2b 31  3a 72 25 3d 28 39 39 36  |0).357+1:r%=(996|
00000e80  2d 79 25 29 81 33 32 32  2b 31 0d 05 dc 11 43 43  |-y%).322+1....CC|
00000e90  25 3d 72 25 2a 33 2b 6b  25 2d 33 0d 05 e6 11 e7  |%=r%*3+k%-3.....|
00000ea0  43 43 25 3e 4e 43 25 8c  8d 74 74 45 0d 05 f0 31  |CC%>NC%..ttE...1|
00000eb0  e7 62 25 3d 34 8c 63 73  70 72 69 74 65 24 3d 43  |.b%=4.csprite$=C|
00000ec0  46 24 28 43 43 25 29 8b  f2 63 73 63 65 6e 61 72  |F$(CC%)..cscenar|
00000ed0  69 6f 28 43 43 25 29 3a  e5 8d 44 7e 44 0d 05 fa  |io(CC%):..D~D...|
00000ee0  05 e1 0d 06 0e 05 20 0d  06 18 13 dd f2 63 73 63  |...... ......csc|
00000ef0  65 6e 61 72 69 6f 28 63  25 29 0d 06 22 24 ea 61  |enario(c%).."$.a|
00000f00  24 2c 77 24 2c 6c 25 2c  69 25 2c 69 2c 64 25 2c  |$,w$,l%,i%,i,d%,|
00000f10  70 25 2c 63 24 2c 78 25  2c 79 25 2c 62 25 0d 06  |p%,c$,x%,y%,b%..|
00000f20  2c 15 f5 c8 97 78 25 2c  79 25 2c 62 25 3a fd 62  |,....x%,y%,b%:.b|
00000f30  25 3d 30 0d 06 36 26 5a  25 3d 8e 28 22 3c 4d 69  |%=0..6&Z%=.("<Mi|
00000f40  63 72 6f 24 44 69 72 3e  2e 43 44 41 54 41 2e 22  |cro$Dir>.CDATA."|
00000f50  2b 43 46 24 28 63 25 29  29 0d 06 40 0b e8 23 5a  |+CF$(c%))..@..#Z|
00000f60  25 2c 63 24 0d 06 4a 15  e3 69 25 3d 31 b8 31 32  |%,c$..J..i%=1.12|
00000f70  3a e8 23 5a 25 2c 69 3a  ed 0d 06 54 31 e8 23 5a  |:.#Z%,i:...T1.#Z|
00000f80  25 2c 70 25 3a e8 23 5a  25 2c 69 3a 70 25 3d 70  |%,p%:.#Z%,i:p%=p|
00000f90  25 2b 69 3a e8 23 5a 25  2c 64 25 3a e8 23 5a 25  |%+i:.#Z%,d%:.#Z%|
00000fa0  2c 69 3a 64 25 3d 64 25  2b 69 0d 06 5e 11 e6 30  |,i:d%=d%+i..^..0|
00000fb0  2c 34 30 c8 9c 36 34 3a  c8 97 87 0d 06 68 15 c8  |,40..64:.....h..|
00000fc0  93 c8 90 30 2c 30 2c 31  32 38 30 2c 31 31 30 30  |...0,0,1280,1100|
00000fd0  0d 06 72 37 ff 28 22 53  4c 4f 41 44 20 3c 4d 69  |..r7.("SLOAD <Mi|
00000fe0  63 72 6f 24 44 69 72 3e  2e 43 4c 4f 41 44 2e 22  |cro$Dir>.CLOAD."|
00000ff0  2b 43 46 24 28 63 25 29  29 3a 2a 53 43 48 4f 4f  |+CF$(c%)):*SCHOO|
00001000  53 45 20 4d 45 4e 55 0d  06 7c 54 e6 38 2c 30 3a  |SE MENU..|T.8,0:|
00001010  f0 26 45 44 2c 34 36 30  2c 36 32 30 3a e6 30 2c  |.&ED,460,620:.0,|
00001020  31 38 c8 9c 30 3a ec 34  38 30 2c 39 38 30 3a f1  |18..0:.480,980:.|
00001030  3b 64 25 22 20 59 61 72  64 73 20 20 20 50 61 72  |;d%" Yards   Par|
00001040  20 22 3b 70 25 3a 78 25  3d 38 30 3a 79 25 3d 35  | ";p%:x%=80:y%=5|
00001050  38 30 3a e6 30 2c 34 38  c8 9c 30 0d 06 86 05 f5  |80:.0,48..0.....|
00001060  0d 06 90 12 20 e8 23 5a  25 2c 73 24 3a 77 24 3d  |.... .#Z%,s$:w$=|
00001070  22 22 0d 06 9a 10 20 e3  69 25 3d 31 b8 a9 28 73  |"".... .i%=1..(s|
00001080  24 29 0d 06 a4 20 20 20  61 24 3d c1 73 24 2c 69  |$)...   a$=.s$,i|
00001090  25 2c 31 29 3a e7 61 24  3d 22 23 22 61 24 3d 22  |%,1):.a$="#"a$="|
000010a0  2c 22 0d 06 ae 21 20 20  e7 28 61 24 3c 3e 22 20  |,"...!  .(a$<>" |
000010b0  22 29 80 61 24 3c 3e 22  40 22 8c 77 24 3d 77 24  |").a$<>"@".w$=w$|
000010c0  2b 61 24 0d 06 b8 19 20  20 e7 28 69 25 3d a9 28  |+a$....  .(i%=.(|
000010d0  73 24 29 29 84 61 24 3d  22 20 22 8c 0d 06 c2 30  |s$)).a$=" "....0|
000010e0  20 20 20 6c 25 3d a9 28  77 24 29 2a 31 36 2b 31  |   l%=.(w$)*16+1|
000010f0  36 3a e7 78 25 2b 6c 25  3e 31 32 30 30 8c 78 25  |6:.x%+l%>1200.x%|
00001100  3d 38 30 3a 79 25 3d 79  25 2d 33 36 0d 06 cc 22  |=80:y%=y%-36..."|
00001110  20 20 20 ec 78 25 2c 79  25 3a f1 3b 77 24 3b 3a  |   .x%,y%:.;w$;:|
00001120  78 25 3d 78 25 2b 6c 25  3a 77 24 3d 22 22 0d 06  |x%=x%+l%:w$=""..|
00001130  d6 07 20 20 cd 0d 06 e0  06 20 ed 0d 06 ea 0f fd  |..  ..... ......|
00001140  c2 73 24 2c 31 29 3d 22  40 22 0d 06 f4 1b d9 23  |.s$,1)="@".....#|
00001150  5a 25 3a f5 c8 97 78 25  2c 79 25 2c 62 25 3a fd  |Z%:...x%,y%,b%:.|
00001160  62 25 3c 3e 30 0d 06 fe  05 e1 0d 07 12 05 20 0d  |b%<>0......... .|
00001170  07 1c 0c dd f2 69 6e 69  72 6e 64 0d 07 26 0d ea  |.....inirnd..&..|
00001180  69 25 2c 6a 25 2c 73 24  0d 07 30 10 e8 23 5a 25  |i%,j%,s$..0..#Z%|
00001190  2c 63 6f 75 72 73 65 24  0d 07 3a 0f e8 23 5a 25  |,course$..:..#Z%|
000011a0  2c 4c 49 4e 4b 53 25 0d  07 44 1c e8 23 5a 25 2c  |,LINKS%..D..#Z%,|
000011b0  66 63 31 25 2c 66 74 31  25 2c 66 63 32 25 2c 66  |fc1%,ft1%,fc2%,f|
000011c0  74 32 25 0d 07 4e 12 e8  23 5a 25 2c 46 43 31 25  |t2%..N..#Z%,FC1%|
000011d0  2c 46 43 32 25 0d 07 58  15 e8 23 5a 25 2c 42 64  |,FC2%..X..#Z%,Bd|
000011e0  65 70 74 68 2c 42 63 6f  6c 25 0d 07 62 10 e8 23  |epth,Bcol%..b..#|
000011f0  5a 25 2c 47 73 70 65 65  64 25 0d 07 6c 0f e8 23  |Z%,Gspeed%..l..#|
00001200  5a 25 2c 72 6f 75 67 68  25 0d 07 76 10 e8 23 5a  |Z%,rough%..v..#Z|
00001210  25 2c 61 76 77 69 6e 64  25 0d 07 80 2e 77 69 6e  |%,avwind%....win|
00001220  64 61 6e 67 3d b3 28 31  29 2a 50 49 33 36 30 3a  |dang=.(1)*PI360:|
00001230  77 69 6e 64 25 3d b3 28  31 29 2a 28 31 38 2b 61  |wind%=.(1)*(18+a|
00001240  76 77 69 6e 64 25 29 0d  07 8a 28 e8 23 5a 25 2c  |vwind%)...(.#Z%,|
00001250  6f 75 74 70 61 72 25 2c  69 6e 70 61 72 25 2c 6f  |outpar%,inpar%,o|
00001260  75 74 64 69 73 74 25 2c  69 6e 64 69 73 74 25 0d  |utdist%,indist%.|
00001270  07 94 18 f5 e8 23 5a 25  2c 73 24 3a fd c2 73 24  |.....#Z%,s$:..s$|
00001280  2c 31 29 3d 22 40 22 0d  07 9e 31 e3 69 25 3d 31  |,1)="@"...1.i%=1|
00001290  b8 31 38 3a e8 23 5a 25  2c 6c 65 6e 25 28 69 25  |.18:.#Z%,len%(i%|
000012a0  29 2c 70 61 72 25 28 69  25 29 2c 73 74 72 6f 6b  |),par%(i%),strok|
000012b0  65 25 28 69 25 29 3a ed  0d 07 a8 1e e3 69 25 3d  |e%(i%):......i%=|
000012c0  31 b8 34 3a 4f 4c 48 25  28 69 25 29 3d 4c 48 25  |1.4:OLH%(i%)=LH%|
000012d0  28 69 25 29 3a ed 0d 07  b2 0e f2 70 6c 61 79 65  |(i%):......playe|
000012e0  72 73 69 6e 0d 07 bc 0b  e3 69 25 3d 31 b8 34 0d  |rsin.....i%=1.4.|
000012f0  07 c6 15 20 74 65 65 6f  72 64 65 72 25 28 69 25  |... teeorder%(i%|
00001300  29 3d 69 25 0d 07 d0 18  20 e7 4c 48 25 28 69 25  |)=i%.... .LH%(i%|
00001310  29 3c 3e 4f 4c 48 25 28  69 25 29 8c 0d 07 da 1e  |)<>OLH%(i%).....|
00001320  20 20 c8 99 34 36 2c 33  30 33 2c 53 50 25 2c 22  |  ..46,303,SP%,"|
00001330  42 41 47 22 2b c3 28 69  25 29 0d 07 e4 0e 20 20  |BAG"+.(i%)....  |
00001340  e3 6a 25 3d 30 b8 31 37  0d 07 ee 25 20 20 20 c8  |.j%=0.17...%   .|
00001350  99 34 36 2c 33 30 33 2c  53 50 25 2c 22 47 46 52  |.46,303,SP%,"GFR|
00001360  22 2b c3 28 69 25 29 2b  c3 28 6a 25 29 0d 07 f8  |"+.(i%)+.(j%)...|
00001370  2c 20 20 20 e7 6a 25 3c  36 8c c8 99 34 36 2c 33  |,   .j%<6...46,3|
00001380  30 33 2c 53 50 25 2c 22  58 47 46 52 22 2b c3 28  |03,SP%,"XGFR"+.(|
00001390  69 25 29 2b c3 28 6a 25  29 0d 08 02 07 20 20 ed  |i%)+.(j%)....  .|
000013a0  0d 08 0c 41 20 20 c8 99  34 36 2c 33 30 33 2c 53  |...A  ..46,303,S|
000013b0  50 25 2c 22 47 46 52 22  2b c3 28 69 25 29 2b 22  |P%,"GFR"+.(i%)+"|
000013c0  32 30 22 3a c8 99 34 36  2c 33 30 33 2c 53 50 25  |20":..46,303,SP%|
000013d0  2c 22 47 46 52 22 2b c3  28 69 25 29 2b 22 32 31  |,"GFR"+.(i%)+"21|
000013e0  22 0d 08 16 41 20 20 c8  99 34 36 2c 33 30 33 2c  |"...A  ..46,303,|
000013f0  53 50 25 2c 22 47 46 52  22 2b c3 28 69 25 29 2b  |SP%,"GFR"+.(i%)+|
00001400  22 33 30 22 3a c8 99 34  36 2c 33 30 33 2c 53 50  |"30":..46,303,SP|
00001410  25 2c 22 47 46 52 22 2b  c3 28 69 25 29 2b 22 33  |%,"GFR"+.(i%)+"3|
00001420  31 22 0d 08 20 42 20 20  c8 99 34 36 2c 33 30 33  |1".. B  ..46,303|
00001430  2c 53 50 25 2c 22 47 46  52 22 2b c3 28 69 25 29  |,SP%,"GFR"+.(i%)|
00001440  2b 22 33 32 22 3a c8 99  34 36 2c 33 30 33 2c 53  |+"32":..46,303,S|
00001450  50 25 2c 22 58 47 46 52  22 2b c3 28 69 25 29 2b  |P%,"XGFR"+.(i%)+|
00001460  22 32 30 22 0d 08 2a 24  20 20 c8 99 34 36 2c 33  |"20"..*$  ..46,3|
00001470  30 33 2c 53 50 25 2c 22  58 47 46 52 22 2b c3 28  |03,SP%,"XGFR"+.(|
00001480  69 25 29 2b 22 32 31 22  0d 08 34 06 20 cd 0d 08  |i%)+"21"..4. ...|
00001490  3e 3f 20 74 6f 74 73 63  6f 72 65 25 28 69 25 29  |>? totscore%(i%)|
000014a0  3d 30 3a 6f 75 74 73 63  6f 72 65 25 28 69 25 29  |=0:outscore%(i%)|
000014b0  3d 30 3a e3 6a 25 3d 31  b8 31 38 3a 73 63 6f 72  |=0:.j%=1.18:scor|
000014c0  65 25 28 69 25 2c 6a 25  29 3d 30 3a ed 0d 08 48  |e%(i%,j%)=0:...H|
000014d0  05 ed 0d 08 52 0f 70 61  72 73 6f 66 61 72 25 3d  |....R.parsofar%=|
000014e0  30 0d 08 5c 05 e1 0d 08  70 05 20 0d 08 7a 0f dd  |0..\....p. ..z..|
000014f0  f2 70 6c 61 79 65 72 73  69 6e 0d 08 84 1f ea 68  |.playersin.....h|
00001500  25 2c 73 24 2c 68 24 2c  69 25 2c 78 25 2c 79 25  |%,s$,h$,i%,x%,y%|
00001510  2c 62 25 2c 70 25 2c 73  24 0d 08 8e 23 ff 28 22  |,b%,p%,s$...#.("|
00001520  53 4c 4f 41 44 20 3c 4d  69 63 72 6f 24 44 69 72  |SLOAD <Micro$Dir|
00001530  3e 2e 49 53 50 52 49 54  45 53 22 29 0d 08 98 19  |>.ISPRITES")....|
00001540  eb 31 35 3a ef 34 2c 32  33 3b 38 32 30 32 3b 30  |.15:.4,23;8202;0|
00001550  3b 30 3b 30 3b 0d 08 a2  53 e6 30 2c 35 36 c8 9c  |;0;0;...S.0,56..|
00001560  30 3a c8 93 c8 90 38 37  30 2c 31 36 34 2c 34 31  |0:....870,164,41|
00001570  30 2c 38 35 36 3a fb 31  38 34 c8 9c 30 3a fb 36  |0,856:.184..0:.6|
00001580  33 c8 9c 31 39 32 3a f1  8a 35 36 2c 31 29 22 48  |3..192:..56,1)"H|
00001590  6f 6c 65 20 20 59 61 72  64 73 20 20 50 61 72 20  |ole  Yards  Par |
000015a0  53 74 72 6f 6b 65 22 3b  0d 08 ac 0a fb 36 33 c8  |Stroke";.....63.|
000015b0  9c 30 0d 08 b6 0c e3 68  25 3d 31 b8 31 38 0d 08  |.0.....h%=1.18..|
000015c0  c0 23 20 68 24 3d 22 20  22 2b c3 28 68 25 29 3a  |.# h$=" "+.(h%):|
000015d0  68 24 3d c1 68 24 2c a9  28 68 24 29 2d 31 2c 32  |h$=.h$,.(h$)-1,2|
000015e0  29 0d 08 ca 2c 20 73 24  3d 22 20 22 2b c3 28 73  |)..., s$=" "+.(s|
000015f0  74 72 6f 6b 65 25 28 68  25 29 29 3a 73 24 3d c1  |troke%(h%)):s$=.|
00001600  73 24 2c a9 28 73 24 29  2d 31 2c 32 29 0d 08 d4  |s$,.(s$)-1,2)...|
00001610  41 20 f1 8a 35 37 2c 2d  28 68 25 3e 39 29 2a 32  |A ..57,-(h%>9)*2|
00001620  2b 32 2b 68 25 29 68 24  22 20 20 20 20 22 3b 6c  |+2+h%)h$"    ";l|
00001630  65 6e 25 28 68 25 29 22  20 20 20 20 22 3b 70 61  |en%(h%)"    ";pa|
00001640  72 25 28 68 25 29 22 20  20 20 22 73 24 3b 0d 08  |r%(h%)"   "s$;..|
00001650  de 05 ed 0d 08 e8 0b fb  36 33 c8 9c 36 34 0d 08  |........63..64..|
00001660  f2 29 f1 8a 35 37 2c 31  32 29 22 4f 75 74 20 20  |.)..57,12)"Out  |
00001670  22 3b 6f 75 74 64 69 73  74 25 22 20 20 20 22 3b  |";outdist%"   ";|
00001680  6f 75 74 70 61 72 25 0d  08 fc 27 f1 8a 35 37 2c  |outpar%...'..57,|
00001690  32 33 29 22 49 6e 20 20  20 22 3b 69 6e 64 69 73  |23)"In   ";indis|
000016a0  74 25 22 20 20 20 22 3b  69 6e 70 61 72 25 0d 09  |t%"   ";inpar%..|
000016b0  06 0c fb 36 33 c8 9c 31  32 38 0d 09 10 39 f1 8a  |...63..128...9..|
000016c0  35 36 2c 32 35 29 22 54  6f 74 61 6c 20 22 3b 6f  |56,25)"Total ";o|
000016d0  75 74 64 69 73 74 25 2b  69 6e 64 69 73 74 25 22  |utdist%+indist%"|
000016e0  20 20 20 22 3b 6f 75 74  70 61 72 25 2b 69 6e 70  |   ";outpar%+inp|
000016f0  61 72 25 0d 09 1a 06 ef  35 0d 09 24 15 53 48 25  |ar%.....5..$.SH%|
00001700  3d 31 3a 52 54 4e 25 3d  a3 3a 70 25 3d a3 0d 09  |=1:RTN%=.:p%=...|
00001710  2e 20 e6 30 2c 32 35 c8  9c 31 32 38 3a c8 93 c8  |. .0,25..128:...|
00001720  90 30 2c 31 36 34 2c 38  35 30 2c 38 35 36 0d 09  |.0,164,850,856..|
00001730  38 4e e6 30 2c 32 35 c8  9c 36 34 3a ec 38 35 30  |8N.0,25..64:.850|
00001740  2c 31 30 32 30 3a ec 38  33 34 2c 31 30 30 34 3a  |,1020:.834,1004:|
00001750  f0 38 35 2c 38 35 30 2c  31 36 34 3a f0 38 35 2c  |.85,850,164:.85,|
00001760  38 33 34 2c 31 38 30 3a  f0 38 35 2c 30 2c 31 36  |834,180:.85,0,16|
00001770  34 3a f0 38 35 2c 31 36  2c 31 38 30 0d 09 42 4e  |4:.85,16,180..BN|
00001780  e6 30 2c 32 35 c8 9c 31  39 32 3a ec 38 35 30 2c  |.0,25..192:.850,|
00001790  31 30 32 30 3a ec 38 33  34 2c 31 30 30 34 3a f0  |1020:.834,1004:.|
000017a0  38 35 2c 30 2c 31 30 32  30 3a f0 38 35 2c 31 36  |85,0,1020:.85,16|
000017b0  2c 31 30 30 34 3a f0 38  35 2c 30 2c 31 36 34 3a  |,1004:.85,0,164:|
000017c0  f0 38 35 2c 31 36 2c 31  38 30 0d 09 4c 2f e6 30  |.85,16,180..L/.0|
000017d0  2c 31 34 c8 9c 31 32 38  3a ec 38 31 30 2d a9 28  |,14..128:.810-.(|
000017e0  63 6f 75 72 73 65 24 29  2a 31 36 2c 39 37 36 3a  |course$)*16,976:|
000017f0  f1 63 6f 75 72 73 65 24  3b 0d 09 56 39 e6 30 2c  |.course$;..V9.0,|
00001800  36 33 c8 9c 31 39 32 3a  c8 97 ee 3a ec 39 36 2c  |63..192:...:.96,|
00001810  39 37 36 3a f1 22 53 65  6c 65 63 74 20 43 6f 75  |976:."Select Cou|
00001820  72 73 65 22 3a 2a 53 43  48 4f 4f 53 45 20 4c 45  |rse":*SCHOOSE LE|
00001830  46 54 0d 09 60 30 f0 26  45 44 2c 33 34 2c 39 34  |FT..`0.&ED,34,94|
00001840  30 3a ec 36 37 38 2c 32  33 36 3a f1 22 50 6c 61  |0:.678,236:."Pla|
00001850  79 22 3b 3a 2a 53 43 48  4f 4f 53 45 20 52 49 47  |y";:*SCHOOSE RIG|
00001860  48 54 0d 09 6a 31 f0 26  45 44 2c 37 36 36 2c 32  |HT..j1.&ED,766,2|
00001870  30 30 3a ec 33 32 30 2c  38 39 38 3a f1 22 50 6c  |00:.320,898:."Pl|
00001880  61 79 65 72 73 22 3b 3a  2a 53 43 48 4f 4f 53 45  |ayers";:*SCHOOSE|
00001890  20 55 50 0d 09 74 2b f0  26 45 44 2c 34 34 38 2c  | UP..t+.&ED,448,|
000018a0  38 36 30 3a f0 26 45 44  2c 34 34 38 2c 32 38 30  |860:.&ED,448,280|
000018b0  3a 2a 53 43 48 4f 4f 53  45 20 44 4f 57 4e 0d 09  |:*SCHOOSE DOWN..|
000018c0  7e 98 f0 26 45 44 2c 35  34 36 2c 38 36 30 3a f0  |~..&ED,546,860:.|
000018d0  26 45 44 2c 35 36 32 2c  32 38 30 3a ef 34 3a fb  |&ED,562,280:.4:.|
000018e0  36 33 c8 9c 31 39 32 3a  fb 31 35 33 c8 9c 31 32  |63..192:.153..12|
000018f0  38 3a f1 8a 31 36 2c 37  29 22 4e 61 6d 65 20 20  |8:..16,7)"Name  |
00001900  20 20 20 20 20 53 74 79  6c 65 20 20 20 20 20 53  |     Style     S|
00001910  6b 69 6c 6c 22 3b 3a f1  8a 31 37 2c 32 32 29 22  |kill";:..17,22)"|
00001920  53 74 61 72 74 20 68 6f  6c 65 22 3b 3a ef 34 3a  |Start hole";:.4:|
00001930  fb 35 32 c8 9c 31 32 38  3a c8 97 c8 93 31 38 2c  |.52..128:....18,|
00001940  31 38 32 2c 38 31 34 2c  38 32 31 3a c8 97 b8 34  |182,814,821:...4|
00001950  37 30 2c 38 38 30 0d 09  88 0c f2 70 6c 70 72 69  |70,880.....plpri|
00001960  6e 74 0d 09 92 05 f5 0d  09 9c 21 20 c8 97 78 25  |nt........! ..x%|
00001970  2c 79 25 2c 62 25 3a f5  c8 97 78 25 2c 79 25 2c  |,y%,b%:...x%,y%,|
00001980  62 25 3a fd 62 25 3d 34  0d 09 a6 28 20 e7 28 78  |b%:.b%=4...( .(x|
00001990  25 3e 37 36 36 29 80 28  78 25 3c 38 31 33 29 80  |%>766).(x%<813).|
000019a0  28 79 25 3e 31 39 39 29  80 79 25 3c 32 34 36 8c  |(y%>199).y%<246.|
000019b0  0d 09 b0 0a 20 20 6d 25  3d 30 0d 09 ba 0d 20 20  |....  m%=0....  |
000019c0  e3 69 25 3d 31 b8 31 0d  09 c4 1f 20 20 20 e7 6e  |.i%=1.1....   .n|
000019d0  61 6d 65 24 28 69 25 29  3d 22 22 8c 6d 25 3d 69  |ame$(i%)="".m%=i|
000019e0  25 3a 69 25 3d 35 0d 09  ce 07 20 20 ed 0d 09 d8  |%:i%=5....  ....|
000019f0  16 20 20 e7 6d 25 3d 30  8c 70 25 3d b9 3a e5 8d  |.  .m%=0.p%=.:..|
00001a00  54 52 4c 0d 09 e2 16 20  20 c8 97 b8 32 38 30 2c  |TRL....  ...280,|
00001a10  37 38 30 2d 6d 25 2a 39  36 0d 09 ec 0b 20 20 e5  |780-m%*96....  .|
00001a20  8d 54 52 4c 0d 09 f6 06  20 cd 0d 0a 00 32 20 e7  |.TRL.... ....2 .|
00001a30  28 78 25 3e 33 34 29 80  28 78 25 3c 38 30 29 80  |(x%>34).(x%<80).|
00001a40  28 79 25 3e 39 33 39 29  80 79 25 3c 39 38 36 8c  |(y%>939).y%<986.|
00001a50  52 54 4e 25 3d b9 3a e5  8d 54 52 4c 0d 0a 5a 2a  |RTN%=.:..TRL..Z*|
00001a60  20 e7 28 78 25 3e 34 34  38 29 80 28 78 25 3c 34  | .(x%>448).(x%<4|
00001a70  39 35 29 80 28 79 25 3e  32 37 39 29 80 28 79 25  |95).(y%>279).(y%|
00001a80  3c 33 32 38 29 8c 0d 0a  64 18 20 20 53 48 25 2b  |<328)...d.  SH%+|
00001a90  3d 31 3a e7 53 48 25 3e  32 53 48 25 3d 31 0d 0a  |=1:.SH%>2SH%=1..|
00001aa0  6e 14 20 20 f2 70 6c 70  72 69 6e 74 3a e5 8d 54  |n.  .plprint:..T|
00001ab0  52 4c 0d 0a 78 06 20 cd  0d 0a 82 2a 20 e7 28 78  |RL..x. ....* .(x|
00001ac0  25 3e 35 36 31 29 80 28  78 25 3c 36 31 30 29 80  |%>561).(x%<610).|
00001ad0  28 79 25 3e 32 37 39 29  80 28 79 25 3c 33 32 38  |(y%>279).(y%<328|
00001ae0  29 8c 0d 0a 8c 18 20 20  53 48 25 2d 3d 31 3a e7  |).....  SH%-=1:.|
00001af0  53 48 25 3c 31 53 48 25  3d 32 0d 0a 96 14 20 20  |SH%<1SH%=2....  |
00001b00  f2 70 6c 70 72 69 6e 74  3a e5 8d 54 52 4c 0d 0a  |.plprint:..TRL..|
00001b10  a0 06 20 cd 0d 0a aa 09  20 6e 25 3d 30 0d 0a b4  |.. ..... n%=0...|
00001b20  0c 20 e3 69 25 3d 31 b8  31 0d 0a be 25 20 20 e7  |. .i%=1.1...%  .|
00001b30  28 79 25 3e 37 36 37 2d  69 25 2a 39 36 29 80 28  |(y%>767-i%*96).(|
00001b40  79 25 3c 38 30 34 2d 69  25 2a 39 36 29 8c 0d 0a  |y%<804-i%*96)...|
00001b50  c8 31 20 20 20 e7 28 78  25 3e 33 36 36 29 80 78  |.1   .(x%>366).x|
00001b60  25 3c 35 35 39 8c 4c 48  25 28 69 25 29 3d ac 4c  |%<559.LH%(i%)=.L|
00001b70  48 25 28 69 25 29 3a f2  70 6c 70 72 69 6e 74 0d  |H%(i%):.plprint.|
00001b80  0a d2 18 20 20 20 e7 28  78 25 3e 35 39 32 29 80  |...   .(x%>592).|
00001b90  78 25 3c 36 38 39 8c 0d  0a dc 38 20 20 20 20 e7  |x%<689....8    .|
00001ba0  53 4b 28 69 25 29 3d 31  53 4b 28 69 25 29 3d 31  |SK(i%)=1SK(i%)=1|
00001bb0  2e 35 8b e7 53 4b 28 69  25 29 3d 31 2e 35 53 4b  |.5..SK(i%)=1.5SK|
00001bc0  28 69 25 29 3d 32 8b 53  4b 28 69 25 29 3d 31 0d  |(i%)=2.SK(i%)=1.|
00001bd0  0a e6 10 20 20 20 20 f2  70 6c 70 72 69 6e 74 0d  |...    .plprint.|
00001be0  0a f0 08 20 20 20 cd 0d  0a fa 1d 20 20 20 e7 28  |...   .....   .(|
00001bf0  78 25 3e 32 33 38 29 80  78 25 3c 33 33 35 8c 6e  |x%>238).x%<335.n|
00001c00  25 3d 69 25 0d 0b 04 07  20 20 cd 0d 0b 0e 06 20  |%=i%....  ..... |
00001c10  ed 0d 0b 18 0b 20 e7 6e  25 3e 30 8c 0d 0b 22 09  |..... .n%>0...".|
00001c20  20 20 c8 97 87 0d 0b 2c  40 20 20 e6 30 2c 33 c8  |  .....,@  .0,3.|
00001c30  9c 31 39 32 3a ec 32 33  36 2c 38 30 34 2d 6e 25  |.192:.236,804-n%|
00001c40  2a 39 36 3a f0 35 2c 33  33 36 2c 38 30 34 2d 6e  |*96:.5,336,804-n|
00001c50  25 2a 39 36 3a f0 35 2c  33 33 36 2c 37 36 34 2d  |%*96:.5,336,764-|
00001c60  6e 25 2a 39 36 0d 0b 36  27 20 20 f0 35 2c 32 33  |n%*96..6'  .5,23|
00001c70  36 2c 37 36 34 2d 6e 25  2a 39 36 3a f0 35 2c 32  |6,764-n%*96:.5,2|
00001c80  33 36 2c 38 30 34 2d 6e  25 2a 39 36 0d 0b 40 13  |36,804-n%*96..@.|
00001c90  20 20 70 24 3d 22 22 3a  2a 46 58 31 35 2c 31 0d  |  p$="":*FX15,1.|
00001ca0  0b 4a 26 20 20 f1 8a 31  35 2c 37 2b 6e 25 2a 33  |.J&  ..15,7+n%*3|
00001cb0  29 3b 22 5f 20 20 20 20  20 22 3b 3a 2a 46 58 32  |);"_     ";:*FX2|
00001cc0  30 32 2c 31 36 0d 0b 54  07 20 20 f5 0d 0b 5e 14  |02,16..T.  ...^.|
00001cd0  20 20 20 67 25 3d a5 3a  67 24 3d bd 28 67 25 29  |   g%=.:g$=.(g%)|
00001ce0  0d 0b 68 11 20 20 20 e7  28 67 25 3d 31 32 37 29  |..h.   .(g%=127)|
00001cf0  8c 0d 0b 72 1f 20 20 20  20 e7 a9 28 70 24 29 3e  |...r.    ..(p$)>|
00001d00  30 70 24 3d c0 70 24 2c  a9 28 70 24 29 2d 31 29  |0p$=.p$,.(p$)-1)|
00001d10  0d 0b 7c 08 20 20 20 cc  0d 0b 86 11 20 20 20 20  |..|.   .....    |
00001d20  e7 a9 28 70 24 29 3c 36  8c 0d 0b 90 52 20 20 20  |..(p$)<6....R   |
00001d30  20 20 e7 28 28 67 24 3d  22 20 22 29 80 a9 28 70  |  .((g$=" ")..(p|
00001d40  24 29 3e 30 29 84 28 28  67 24 3e 3d 22 41 22 29  |$)>0).((g$>="A")|
00001d50  80 67 24 3c 3d 22 5a 22  29 84 28 28 67 24 3e 3d  |.g$<="Z").((g$>=|
00001d60  22 61 22 29 80 67 24 3c  3d 22 7a 22 20 20 20 20  |"a").g$<="z"    |
00001d70  20 29 8c 70 24 3d 70 24  2b 67 24 0d 0b 9a 09 20  | ).p$=p$+g$.... |
00001d80  20 20 20 cd 0d 0b a4 08  20 20 20 cd 0d 0b ae 24  |   .....   ....$|
00001d90  20 20 20 f1 8a 31 35 2c  37 2b 6e 25 2a 33 29 3b  |   ..15,7+n%*3);|
00001da0  c0 70 24 2b 22 5f 20 20  20 20 20 22 2c 36 29 3b  |.p$+"_     ",6);|
00001db0  0d 0b b8 0c 20 20 fd 67  25 3d 31 33 0d 0b c2 0f  |....  .g%=13....|
00001dc0  20 20 e7 a9 28 70 24 29  3e 30 8c 0d 0b cc 13 20  |  ..(p$)>0..... |
00001dd0  20 20 6e 61 6d 65 24 28  6e 25 29 3d 70 24 0d 0b  |  name$(n%)=p$..|
00001de0  f4 07 20 20 cd 0d 0b fe  18 20 20 f2 70 6c 70 72  |..  .....  .plpr|
00001df0  69 6e 74 3a c8 97 ee 3a  e5 8d 54 52 4c 0d 0c 08  |int:...:..TRL...|
00001e00  06 20 cd 0d 0c 12 16 20  f5 c8 97 78 25 2c 79 25  |. ..... ...x%,y%|
00001e10  2c 62 25 3a fd 62 25 3d  30 0d 0c 1c 0c fd 52 54  |,b%:.b%=0.....RT|
00001e20  4e 25 84 70 25 0d 0c 26  2a ff 28 22 53 4c 4f 41  |N%.p%..&*.("SLOA|
00001e30  44 20 3c 4d 69 63 72 6f  24 44 69 72 3e 2e 43 42  |D <Micro$Dir>.CB|
00001e40  41 43 4b 2e 22 2b 63 73  70 72 69 74 65 24 29 0d  |ACK."+csprite$).|
00001e50  0c 30 05 e1 0d 0c 3a 05  20 0d 0c 44 0d dd f2 70  |.0....:. ..D...p|
00001e60  6c 70 72 69 6e 74 0d 0c  4e 0a ea 73 24 2c 69 25  |lprint..N..s$,i%|
00001e70  0d 0c 58 46 fb 31 35 33  c8 9c 31 32 38 3a 73 24  |..XF.153..128:s$|
00001e80  3d 22 20 20 22 2b c3 28  53 48 25 29 3a 73 24 3d  |="  "+.(SH%):s$=|
00001e90  c1 73 24 2c a9 28 73 24  29 2d 31 2c 32 29 3a f1  |.s$,.(s$)-1,2):.|
00001ea0  8a 33 32 2c 32 32 29 73  24 3b 3a f1 8a 33 32 2c  |.32,22)s$;:..32,|
00001eb0  34 29 22 31 22 3b 0d 0c  62 0d fb 31 39 31 c8 9c  |4)"1";..b..191..|
00001ec0  31 39 32 0d 0c 6c 0b e3  69 25 3d 31 b8 31 0d 0c  |192..l..i%=1.1..|
00001ed0  76 2e 20 73 24 3d c0 6e  61 6d 65 24 28 69 25 29  |v. s$=.name$(i%)|
00001ee0  2b 22 20 20 20 20 20 20  22 2c 36 29 3a f1 8a 31  |+"      ",6):..1|
00001ef0  35 2c 37 2b 69 25 2a 33  29 73 24 3b 0d 0c 80 30  |5,7+i%*3)s$;...0|
00001f00  20 e7 4c 48 25 28 69 25  29 73 24 3d 22 4c 65 66  | .LH%(i%)s$="Lef|
00001f10  74 2d 68 61 6e 64 65 64  20 22 8b 73 24 3d 22 52  |t-handed ".s$="R|
00001f20  69 67 68 74 2d 68 61 6e  64 65 64 22 0d 0c 8a 14  |ight-handed"....|
00001f30  20 f1 8a 32 33 2c 37 2b  69 25 2a 33 29 73 24 3b  | ..23,7+i%*3)s$;|
00001f40  0d 0c 94 3c 20 e7 53 4b  28 69 25 29 3d 31 73 24  |...< .SK(i%)=1s$|
00001f50  3d 22 20 48 61 72 64 20  22 8b e7 53 4b 28 69 25  |=" Hard "..SK(i%|
00001f60  29 3d 31 2e 35 73 24 3d  22 4d 65 64 69 75 6d 22  |)=1.5s$="Medium"|
00001f70  8b 73 24 3d 22 20 45 61  73 79 20 22 0d 0c 9e 14  |.s$=" Easy "....|
00001f80  20 f1 8a 33 37 2c 37 2b  69 25 2a 33 29 73 24 3b  | ..37,7+i%*3)s$;|
00001f90  0d 0c a8 31 20 e6 30 2c  30 3a ff 28 22 53 43 48  |...1 .0,0:.("SCH|
00001fa0  4f 4f 53 45 20 47 22 2b  c3 28 69 25 29 29 3a f0  |OOSE G"+.(i%)):.|
00001fb0  26 45 44 2c 31 32 30 2c  37 36 38 2d 69 25 2a 39  |&ED,120,768-i%*9|
00001fc0  36 0d 0c b2 0f 20 e6 30  2c 36 33 c8 9c 31 39 32  |6.... .0,63..192|
00001fd0  0d 0c bc 24 20 ec 32 34  30 2c 38 30 30 2d 69 25  |...$ .240,800-i%|
00001fe0  2a 39 36 3a f0 35 2c 33  33 34 2c 38 30 30 2d 69  |*96:.5,334,800-i|
00001ff0  25 2a 39 36 0d 0c c6 24  20 ec 33 36 38 2c 38 30  |%*96...$ .368,80|
00002000  30 2d 69 25 2a 39 36 3a  f0 35 2c 35 35 38 2c 38  |0-i%*96:.5,558,8|
00002010  30 30 2d 69 25 2a 39 36  0d 0c d0 24 20 ec 35 39  |00-i%*96...$ .59|
00002020  32 2c 38 30 30 2d 69 25  2a 39 36 3a f0 35 2c 36  |2,800-i%*96:.5,6|
00002030  38 36 2c 38 30 30 2d 69  25 2a 39 36 0d 0c da 0c  |86,800-i%*96....|
00002040  20 e6 30 2c 30 c8 9c 30  0d 0c e4 35 20 ec 32 33  | .0,0..0...5 .23|
00002050  36 2c 38 30 34 2d 69 25  2a 39 36 3a f0 35 2c 33  |6,804-i%*96:.5,3|
00002060  33 36 2c 38 30 34 2d 69  25 2a 39 36 3a f0 35 2c  |36,804-i%*96:.5,|
00002070  33 33 36 2c 37 36 34 2d  69 25 2a 39 36 0d 0c ee  |336,764-i%*96...|
00002080  26 20 f0 35 2c 32 33 36  2c 37 36 34 2d 69 25 2a  |& .5,236,764-i%*|
00002090  39 36 3a f0 35 2c 32 33  36 2c 38 30 34 2d 69 25  |96:.5,236,804-i%|
000020a0  2a 39 36 0d 0c f8 24 20  ec 32 33 38 2c 38 30 34  |*96...$ .238,804|
000020b0  2d 69 25 2a 39 36 3a f0  35 2c 32 33 38 2c 37 36  |-i%*96:.5,238,76|
000020c0  34 2d 69 25 2a 39 36 0d  0d 02 24 20 ec 33 33 38  |4-i%*96...$ .338|
000020d0  2c 38 30 34 2d 69 25 2a  39 36 3a f0 35 2c 33 33  |,804-i%*96:.5,33|
000020e0  38 2c 37 36 34 2d 69 25  2a 39 36 0d 0d 0c 24 20  |8,764-i%*96...$ |
000020f0  ec 33 36 34 2c 38 30 34  2d 69 25 2a 39 36 3a f0  |.364,804-i%*96:.|
00002100  35 2c 35 36 32 2c 38 30  34 2d 69 25 2a 39 36 0d  |5,562,804-i%*96.|
00002110  0d 16 37 20 f0 35 2c 35  36 32 2c 37 36 34 2d 69  |..7 .5,562,764-i|
00002120  25 2a 39 36 3a f0 35 2c  33 36 34 2c 37 36 34 2d  |%*96:.5,364,764-|
00002130  69 25 2a 39 36 3a f0 35  2c 33 36 34 2c 38 30 34  |i%*96:.5,364,804|
00002140  2d 69 25 2a 39 36 0d 0d  20 24 20 ec 33 36 36 2c  |-i%*96.. $ .366,|
00002150  38 30 34 2d 69 25 2a 39  36 3a f0 35 2c 33 36 36  |804-i%*96:.5,366|
00002160  2c 37 36 34 2d 69 25 2a  39 36 0d 0d 2a 24 20 ec  |,764-i%*96..*$ .|
00002170  35 36 34 2c 38 30 34 2d  69 25 2a 39 36 3a f0 35  |564,804-i%*96:.5|
00002180  2c 35 36 34 2c 37 36 34  2d 69 25 2a 39 36 0d 0d  |,564,764-i%*96..|
00002190  34 24 20 ec 35 39 30 2c  38 30 34 2d 69 25 2a 39  |4$ .590,804-i%*9|
000021a0  36 3a f0 35 2c 36 39 32  2c 38 30 34 2d 69 25 2a  |6:.5,692,804-i%*|
000021b0  39 36 0d 0d 3e 37 20 f0  35 2c 36 39 32 2c 37 36  |96..>7 .5,692,76|
000021c0  34 2d 69 25 2a 39 36 3a  f0 35 2c 35 39 30 2c 37  |4-i%*96:.5,590,7|
000021d0  36 34 2d 69 25 2a 39 36  3a f0 35 2c 35 39 30 2c  |64-i%*96:.5,590,|
000021e0  38 30 34 2d 69 25 2a 39  36 0d 0d 48 24 20 ec 35  |804-i%*96..H$ .5|
000021f0  38 38 2c 38 30 34 2d 69  25 2a 39 36 3a f0 35 2c  |88,804-i%*96:.5,|
00002200  35 38 38 2c 37 36 34 2d  69 25 2a 39 36 0d 0d 52  |588,764-i%*96..R|
00002210  24 20 ec 36 39 30 2c 38  30 34 2d 69 25 2a 39 36  |$ .690,804-i%*96|
00002220  3a f0 35 2c 36 39 30 2c  37 36 34 2d 69 25 2a 39  |:.5,690,764-i%*9|
00002230  36 0d 0d 5c 05 ed 0d 0d  66 05 e1 0d 0d 70 05 20  |6..\....f....p. |
00002240  0d 0d 7a 0e dd f2 64 72  61 77 70 6c 61 6e 0d 0d  |..z...drawplan..|
00002250  84 42 ea 78 25 2c 79 25  2c 78 73 25 2c 79 73 25  |.B.x%,y%,xs%,ys%|
00002260  2c 69 25 2c 6a 25 2c 73  25 2c 73 2c 6d 73 2c 63  |,i%,j%,s%,s,ms,c|
00002270  25 2c 6c 78 25 2c 6c 79  25 2c 75 78 25 2c 75 79  |%,lx%,ly%,ux%,uy|
00002280  25 2c 73 24 2c 6c 25 2c  77 24 2c 61 24 2c 70 25  |%,s$,l%,w$,a$,p%|
00002290  0d 0d 8e 0c 2a 46 58 31  31 32 2c 31 0d 0d 98 14  |....*FX112,1....|
000022a0  69 73 74 73 68 6f 74 25  3d b9 3a 70 75 25 3d 30  |istshot%=.:pu%=0|
000022b0  0d 0d a2 3a e7 68 6f 6c  65 25 3c 31 30 66 63 6f  |...:.hole%<10fco|
000022c0  6c 25 3d 66 63 31 25 3a  66 74 69 6e 74 25 3d 66  |l%=fc1%:ftint%=f|
000022d0  74 31 25 8b 66 63 6f 6c  25 3d 66 63 32 25 3a 66  |t1%.fcol%=fc2%:f|
000022e0  74 69 6e 74 25 3d 66 74  32 25 0d 0d ac 16 68 6f  |tint%=ft2%....ho|
000022f0  6c 65 6f 75 74 25 3d a3  3a 6f 62 64 73 25 3d a3  |leout%=.:obds%=.|
00002300  0d 0d b6 39 e7 44 52 25  8c db 3a e6 30 2c 32 34  |...9.DR%..:.0,24|
00002310  c8 9c 30 3a ec 38 2c 38  3a f0 35 2c 38 2c 33 37  |..0:.8,8:.5,8,37|
00002320  36 3a f0 38 35 2c 31 32  36 38 2c 38 3a f0 38 35  |6:.85,1268,8:.85|
00002330  2c 31 32 36 38 2c 33 37  36 0d 0d c0 43 e8 23 5a  |,1268,376...C.#Z|
00002340  25 2c 78 25 2c 79 25 3a  ec 78 25 2a 32 2c 79 25  |%,x%,y%:.x%*2,y%|
00002350  2a 32 3a e8 23 5a 25 2c  78 25 2c 79 25 3a ec 78  |*2:.#Z%,x%,y%:.x|
00002360  25 2a 32 2c 79 25 2a 32  3a e6 30 2c 34 c8 9c 36  |%*2,y%*2:.0,4..6|
00002370  34 3a e8 23 5a 25 2c 78  25 2c 79 25 0d 0d ca 05  |4:.#Z%,x%,y%....|
00002380  f5 0d 0d d4 17 20 e7 44  52 25 8c f0 38 35 2c 78  |..... .DR%..85,x|
00002390  25 2a 32 2c 79 25 2a 32  0d 0d de 0f 20 e8 23 5a  |%*2,y%*2.... .#Z|
000023a0  25 2c 78 25 2c 79 25 0d  0d e8 0a fd 78 25 3d 2d  |%,x%,y%.....x%=-|
000023b0  31 0d 0d f2 3f e8 23 5a  25 2c 78 25 2c 79 25 3a  |1...?.#Z%,x%,y%:|
000023c0  ec 78 25 2a 32 2c 79 25  2a 32 3a e8 23 5a 25 2c  |.x%*2,y%*2:.#Z%,|
000023d0  78 25 2c 79 25 3a ec 78  25 2a 32 2c 79 25 2a 32  |x%,y%:.x%*2,y%*2|
000023e0  3a e6 30 2c 38 3a e8 23  5a 25 2c 78 25 2c 79 25  |:.0,8:.#Z%,x%,y%|
000023f0  0d 0d fc 05 f5 0d 0e 06  17 20 e7 44 52 25 8c f0  |......... .DR%..|
00002400  38 35 2c 78 25 2a 32 2c  79 25 2a 32 0d 0e 10 0f  |85,x%*2,y%*2....|
00002410  20 e8 23 5a 25 2c 78 25  2c 79 25 0d 0e 1a 0a fd  | .#Z%,x%,y%.....|
00002420  78 25 3d 2d 31 0d 0e 24  24 e3 69 25 3d 30 b8 36  |x%=-1..$$.i%=0.6|
00002430  3a e8 23 5a 25 2c 54 45  58 25 28 69 25 29 2c 54  |:.#Z%,TEX%(i%),T|
00002440  45 59 25 28 69 25 29 3a  ed 0d 0e 2e 0c e6 30 2c  |EY%(i%):......0,|
00002450  32 38 c8 9c 30 0d 0e 38  52 e7 44 52 25 8c ec 54  |28..0..8R.DR%..T|
00002460  45 58 25 28 31 29 2c 54  45 59 25 28 31 29 3a ec  |EX%(1),TEY%(1):.|
00002470  54 45 58 25 28 32 29 2c  54 45 59 25 28 32 29 3a  |TEX%(2),TEY%(2):|
00002480  f0 38 35 2c 54 45 58 25  28 33 29 2c 54 45 59 25  |.85,TEX%(3),TEY%|
00002490  28 33 29 3a f0 38 35 2c  54 45 58 25 28 34 29 2c  |(3):.85,TEX%(4),|
000024a0  54 45 59 25 28 34 29 0d  0e 42 17 e8 23 5a 25 2c  |TEY%(4)..B..#Z%,|
000024b0  68 6f 6c 65 61 6e 67 2c  74 65 65 61 6e 67 0d 0e  |holeang,teeang..|
000024c0  4c 09 e6 30 2c 31 32 0d  0e 56 0d e8 23 5a 25 2c  |L..0,12..V..#Z%,|
000024d0  47 4e 53 25 0d 0e 60 0e  e3 73 25 3d 31 b8 47 4e  |GNS%..`..s%=1.GN|
000024e0  53 25 0d 0e 6a 1b 20 e8  23 5a 25 2c 47 4e 43 25  |S%..j. .#Z%,GNC%|
000024f0  28 73 25 29 2c 47 4e 4f  25 28 73 25 29 0d 0e 74  |(s%),GNO%(s%)..t|
00002500  13 20 e3 63 25 3d 31 b8  47 4e 43 25 28 73 25 29  |. .c%=1.GNC%(s%)|
00002510  0d 0e 7e 22 20 20 e8 23  5a 25 2c 47 4e 58 25 28  |..~"  .#Z%,GNX%(|
00002520  73 25 2c 63 25 29 2c 47  4e 59 25 28 73 25 2c 63  |s%,c%),GNY%(s%,c|
00002530  25 29 0d 0e 88 0b 20 20  e7 44 52 25 8c 0d 0e 92  |%)....  .DR%....|
00002540  41 20 20 20 e7 63 25 3c  33 8c ec 47 4e 58 25 28  |A   .c%<3..GNX%(|
00002550  73 25 2c 63 25 29 2c 47  4e 59 25 28 73 25 2c 63  |s%,c%),GNY%(s%,c|
00002560  25 29 8b f0 38 35 2c 47  4e 58 25 28 73 25 2c 63  |%)..85,GNX%(s%,c|
00002570  25 29 2c 47 4e 59 25 28  73 25 2c 63 25 29 0d 0e  |%),GNY%(s%,c%)..|
00002580  9c 07 20 20 cd 0d 0e a6  06 20 ed 0d 0e b0 05 ed  |..  ..... ......|
00002590  0d 0e ba 18 e8 23 5a 25  2c 6c 78 25 2c 6c 79 25  |.....#Z%,lx%,ly%|
000025a0  2c 75 78 25 2c 75 79 25  0d 0e c4 0b e3 69 25 3d  |,ux%,uy%.....i%=|
000025b0  31 b8 35 0d 0e ce 33 20  e8 23 5a 25 2c 47 48 25  |1.5...3 .#Z%,GH%|
000025c0  28 69 25 29 2c 47 58 25  28 69 25 29 2c 47 59 25  |(i%),GX%(i%),GY%|
000025d0  28 69 25 29 2c 47 52 58  25 28 69 25 29 2c 47 52  |(i%),GRX%(i%),GR|
000025e0  59 25 28 69 25 29 0d 0e  d8 05 ed 0d 0e e2 0e e7  |Y%(i%)..........|
000025f0  ac 44 52 25 8c 8d 74 4c  4f 0d 0e ec 05 f5 0d 0e  |.DR%..tLO.......|
00002600  f6 30 20 66 6c 61 67 78  25 3d 6c 78 25 2b b3 28  |.0 flagx%=lx%+.(|
00002610  75 78 25 2d 6c 78 25 29  3a 66 6c 61 67 79 25 3d  |ux%-lx%):flagy%=|
00002620  6c 79 25 2b b3 28 75 79  25 2d 6c 79 25 29 0d 0f  |ly%+.(uy%-ly%)..|
00002630  00 87 20 70 25 3d 28 28  b0 66 6c 61 67 78 25 2c  |.. p%=((.flagx%,|
00002640  66 6c 61 67 79 25 29 3d  31 32 29 80 28 b0 66 6c  |flagy%)=12).(.fl|
00002650  61 67 78 25 2b 31 30 2c  66 6c 61 67 79 25 29 3d  |agx%+10,flagy%)=|
00002660  31 32 29 80 28 b0 20 20  20 20 66 6c 61 67 78 25  |12).(.    flagx%|
00002670  2c 66 6c 61 67 79 25 2b  31 30 29 3d 31 32 29 80  |,flagy%+10)=12).|
00002680  28 b0 66 6c 61 67 78 25  2d 31 30 2c 66 6c 61 67  |(.flagx%-10,flag|
00002690  79 25 29 3d 31 32 29 80  28 b0 66 6c 61 67 78 25  |y%)=12).(.flagx%|
000026a0  2c 20 20 20 20 20 66 6c  61 67 79 25 2d 31 30 29  |,     flagy%-10)|
000026b0  3d 31 32 29 29 0d 0f 0a  0e 20 e7 ac 70 25 8c 8d  |=12)).... ..p%..|
000026c0  44 6e 4f 0d 0f 14 09 20  6d 73 3d 30 0d 0f 1e 10  |DnO.... ms=0....|
000026d0  20 e3 78 73 25 3d 2d 32  b8 32 88 32 0d 0f 28 11  | .xs%=-2.2.2..(.|
000026e0  20 20 e3 79 73 25 3d 2d  32 b8 32 88 32 0d 0f 32  |  .ys%=-2.2.2..2|
000026f0  22 20 20 20 78 25 3d 66  6c 61 67 78 25 2b 78 73  |"   x%=flagx%+xs|
00002700  25 3a 79 25 3d 66 6c 61  67 79 25 2b 79 73 25 0d  |%:y%=flagy%+ys%.|
00002710  0f 3c 38 20 20 20 73 3d  a4 52 68 74 28 78 25 2c  |.<8   s=.Rht(x%,|
00002720  79 25 29 3a 73 3d a4 73  6c 6f 70 65 78 28 78 25  |y%):s=.slopex(x%|
00002730  2c 79 25 29 5e 32 2b a4  73 6c 6f 70 65 79 28 78  |,y%)^2+.slopey(x|
00002740  25 2c 79 25 29 5e 32 0d  0f 46 11 20 20 20 e7 73  |%,y%)^2..F.   .s|
00002750  3e 6d 73 20 6d 73 3d 73  0d 0f 50 1c 20 20 20 e7  |>ms ms=s..P.   .|
00002760  6d 73 3e 2e 30 30 39 36  20 78 73 25 3d 33 3a 79  |ms>.0096 xs%=3:y|
00002770  73 25 3d 33 0d 0f 5a 07  20 20 ed 0d 0f 64 06 20  |s%=3..Z.  ...d. |
00002780  ed 0d 0f 6e 12 fd 28 6d  73 3c 2e 30 30 39 36 29  |...n..(ms<.0096)|
00002790  80 70 25 0d 0f 78 18 e6  30 2c 30 3a c8 92 66 6c  |.p%..x..0,0:..fl|
000027a0  61 67 78 25 2c 66 6c 61  67 79 25 0d 0f 82 0d e6  |agx%,flagy%.....|
000027b0  33 2c 31 c8 9c 31 32 38  0d 0f 8c 22 74 72 65 65  |3,1..128..."tree|
000027c0  73 25 3d 30 3a 69 25 3d  31 3a e8 23 5a 25 2c 74  |s%=0:i%=1:.#Z%,t|
000027d0  72 65 65 74 79 70 25 28  31 29 0d 0f 96 16 c8 95  |reetyp%(1)......|
000027e0  74 72 65 65 74 79 70 25  28 69 25 29 3c 3e 2d 31  |treetyp%(i%)<>-1|
000027f0  0d 0f a0 0e 20 74 72 65  65 73 25 2b 3d 31 0d 0f  |.... trees%+=1..|
00002800  aa 1f 20 e8 23 5a 25 2c  74 72 65 65 78 25 28 69  |.. .#Z%,treex%(i|
00002810  25 29 2c 74 72 65 65 79  25 28 69 25 29 0d 0f b4  |%),treey%(i%)...|
00002820  3c 20 e7 44 52 25 8c ec  74 72 65 65 78 25 28 69  |< .DR%..treex%(i|
00002830  25 29 2c 74 72 65 65 79  25 28 69 25 29 3a f0 26  |%),treey%(i%):.&|
00002840  39 39 2c 54 57 25 28 74  72 65 65 74 79 70 25 28  |99,TW%(treetyp%(|
00002850  69 25 29 29 2f 31 35 2c  30 0d 0f be 1c 20 69 25  |i%))/15,0.... i%|
00002860  2b 3d 31 3a e8 23 5a 25  2c 74 72 65 65 74 79 70  |+=1:.#Z%,treetyp|
00002870  25 28 69 25 29 0d 0f c8  05 ce 0d 0f d2 0e e6 30  |%(i%)..........0|
00002880  2c 31 30 c8 9c 31 39 32  0d 0f dc 1c e8 23 5a 25  |,10..192.....#Z%|
00002890  2c 42 6e 6b 73 25 3a e7  42 6e 6b 73 25 3d 30 8c  |,Bnks%:.Bnks%=0.|
000028a0  8d 44 54 50 0d 0f e6 0f  e3 69 25 3d 31 b8 42 6e  |.DTP.....i%=1.Bn|
000028b0  6b 73 25 0d 0f f0 12 20  e8 23 5a 25 2c 42 63 6f  |ks%.... .#Z%,Bco|
000028c0  25 28 69 25 29 0d 0f fa  30 20 e3 6a 25 3d 30 b8  |%(i%)...0 .j%=0.|
000028d0  42 63 6f 25 28 69 25 29  3a e8 23 5a 25 2c 42 78  |Bco%(i%):.#Z%,Bx|
000028e0  25 28 69 25 2c 6a 25 29  2c 42 79 25 28 69 25 2c  |%(i%,j%),By%(i%,|
000028f0  6a 25 29 3a ed 0d 10 04  0f 20 e7 ac 44 52 25 8c  |j%):..... ..DR%.|
00002900  8d 54 76 50 0d 10 0e 27  20 ec 42 78 25 28 69 25  |.TvP...' .Bx%(i%|
00002910  2c 42 63 6f 25 28 69 25  29 29 2c 42 79 25 28 69  |,Bco%(i%)),By%(i|
00002920  25 2c 42 63 6f 25 28 69  25 29 29 0d 10 18 13 20  |%,Bco%(i%)).... |
00002930  e3 6a 25 3d 31 b8 42 63  6f 25 28 69 25 29 0d 10  |.j%=1.Bco%(i%)..|
00002940  22 34 20 20 ec 42 78 25  28 69 25 2c 30 29 2c 42  |"4  .Bx%(i%,0),B|
00002950  79 25 28 69 25 2c 30 29  3a f0 38 35 2c 42 78 25  |y%(i%,0):.85,Bx%|
00002960  28 69 25 2c 6a 25 29 2c  42 79 25 28 69 25 2c 6a  |(i%,j%),By%(i%,j|
00002970  25 29 0d 10 2c 06 20 ed  0d 10 36 05 ed 0d 10 40  |%)..,. ...6....@|
00002980  0d e8 23 5a 25 2c 42 52  50 25 0d 10 4a 27 e3 69  |..#Z%,BRP%..J'.i|
00002990  25 3d 31 b8 42 52 50 25  3a e8 23 5a 25 2c 42 52  |%=1.BRP%:.#Z%,BR|
000029a0  58 25 28 69 25 29 2c 42  52 59 25 28 69 25 29 3a  |X%(i%),BRY%(i%):|
000029b0  ed 0d 10 54 23 e6 30 2c  33 36 c8 9c 31 39 32 3a  |...T#.0,36..192:|
000029c0  e8 23 5a 25 2c 57 61 25  3a e7 57 61 25 3d 30 8c  |.#Z%,Wa%:.Wa%=0.|
000029d0  8d 64 4c 50 0d 10 5e 0d  e3 69 25 3d 31 b8 57 61  |.dLP..^..i%=1.Wa|
000029e0  25 0d 10 68 12 20 e8 23  5a 25 2c 57 63 6f 25 28  |%..h. .#Z%,Wco%(|
000029f0  69 25 29 0d 10 72 0e 20  78 25 3d 30 3a 79 25 3d  |i%)..r. x%=0:y%=|
00002a00  30 0d 10 7c 13 20 e3 6a  25 3d 31 b8 57 63 6f 25  |0..|. .j%=1.Wco%|
00002a10  28 69 25 29 0d 10 86 42  20 20 e8 23 5a 25 2c 57  |(i%)...B  .#Z%,W|
00002a20  78 25 28 69 25 2c 6a 25  29 2c 57 79 25 28 69 25  |x%(i%,j%),Wy%(i%|
00002a30  2c 6a 25 29 3a 78 25 3d  78 25 2b 57 78 25 28 69  |,j%):x%=x%+Wx%(i|
00002a40  25 2c 6a 25 29 3a 79 25  3d 79 25 2b 57 79 25 28  |%,j%):y%=y%+Wy%(|
00002a50  69 25 2c 6a 25 29 0d 10  90 0b 20 20 e7 44 52 25  |i%,j%)....  .DR%|
00002a60  8c 0d 10 9a 3d 20 20 20  e7 6a 25 3c 33 8c ec 57  |....=   .j%<3..W|
00002a70  78 25 28 69 25 2c 6a 25  29 2c 57 79 25 28 69 25  |x%(i%,j%),Wy%(i%|
00002a80  2c 6a 25 29 8b f0 38 35  2c 57 78 25 28 69 25 2c  |,j%)..85,Wx%(i%,|
00002a90  6a 25 29 2c 57 79 25 28  69 25 2c 6a 25 29 0d 10  |j%),Wy%(i%,j%)..|
00002aa0  a4 07 20 20 cd 0d 10 ae  06 20 ed 0d 10 b8 30 20  |..  ..... ....0 |
00002ab0  57 78 25 28 69 25 2c 30  29 3d 78 25 81 57 63 6f  |Wx%(i%,0)=x%.Wco|
00002ac0  25 28 69 25 29 3a 57 79  25 28 69 25 2c 30 29 3d  |%(i%):Wy%(i%,0)=|
00002ad0  79 25 81 57 63 6f 25 28  69 25 29 0d 10 c2 05 ed  |y%.Wco%(i%).....|
00002ae0  0d 10 cc 1a e8 23 5a 25  2c 4f 42 43 25 3a e7 4f  |.....#Z%,OBC%:.O|
00002af0  42 43 25 3d 30 8c 8d 54  5c 51 0d 10 d6 09 e6 33  |BC%=0..T\Q.....3|
00002b00  2c 31 35 0d 10 e0 3a e8  23 5a 25 2c 4f 42 58 25  |,15...:.#Z%,OBX%|
00002b10  28 30 29 2c 4f 42 59 25  28 30 29 3a ec 4f 42 58  |(0),OBY%(0):.OBX|
00002b20  25 28 30 29 2c 4f 42 59  25 28 30 29 3a ec 4f 42  |%(0),OBY%(0):.OB|
00002b30  58 25 28 30 29 2c 4f 42  59 25 28 30 29 0d 10 ea  |X%(0),OBY%(0)...|
00002b40  0e e3 69 25 3d 31 b8 4f  42 43 25 0d 10 f4 1b 20  |..i%=1.OBC%.... |
00002b50  e8 23 5a 25 2c 4f 42 58  25 28 69 25 29 2c 4f 42  |.#Z%,OBX%(i%),OB|
00002b60  59 25 28 69 25 29 0d 10  fe 33 20 e7 44 52 25 8c  |Y%(i%)...3 .DR%.|
00002b70  f0 38 35 2c 4f 42 58 25  28 69 25 29 2c 4f 42 59  |.85,OBX%(i%),OBY|
00002b80  25 28 69 25 29 3a f0 38  35 2c 4f 42 58 25 28 30  |%(i%):.85,OBX%(0|
00002b90  29 2c 4f 42 59 25 28 30  29 0d 11 08 05 ed 0d 11  |),OBY%(0).......|
00002ba0  12 0e e7 ac 44 52 25 8c  8d 54 7a 51 0d 11 1c 65  |....DR%..TzQ...e|
00002bb0  e6 30 2c 31 38 3a ec 30  2c 30 3a f0 35 2c 30 2c  |.0,18:.0,0:.5,0,|
00002bc0  33 38 34 3a f0 35 2c 31  32 37 36 2c 33 38 34 3a  |384:.5,1276,384:|
00002bd0  f0 35 2c 31 32 37 36 2c  30 3a f0 35 2c 30 2c 30  |.5,1276,0:.5,0,0|
00002be0  3a e6 30 2c 31 39 3a ec  34 2c 34 3a f0 35 2c 34  |:.0,19:.4,4:.5,4|
00002bf0  2c 33 38 30 3a f0 35 2c  31 32 37 32 2c 33 38 30  |,380:.5,1272,380|
00002c00  3a f0 35 2c 31 32 37 32  2c 34 3a f0 35 2c 34 2c  |:.5,1272,4:.5,4,|
00002c10  34 0d 11 26 9c e6 30 2c  36 31 c8 9c 30 3a ec 30  |4..&..0,61..0:.0|
00002c20  2c 33 38 38 3a ec 30 2c  31 30 32 34 3a f0 38 35  |,388:.0,1024:.85|
00002c30  2c 31 32 38 30 2c 33 38  38 3a f0 38 35 2c 31 32  |,1280,388:.85,12|
00002c40  38 30 2c 31 30 32 34 3a  ef 35 3a e6 30 2c 33 c8  |80,1024:.5:.0,3.|
00002c50  9c 30 3a ec 33 32 2c 39  38 32 3a f1 22 48 6f 6c  |.0:.32,982:."Hol|
00002c60  65 20 22 3b 68 6f 6c 65  25 22 3a 20 20 22 3b 6c  |e ";hole%":  ";l|
00002c70  65 6e 25 28 68 6f 6c 65  25 29 22 20 79 61 72 64  |en%(hole%)" yard|
00002c80  73 20 70 61 72 20 22 3b  70 61 72 25 28 68 6f 6c  |s par ";par%(hol|
00002c90  65 25 29 22 2c 20 73 74  72 6f 6b 65 20 22 3b 73  |e%)", stroke ";s|
00002ca0  74 72 6f 6b 65 25 28 68  6f 6c 65 25 29 0d 11 30  |troke%(hole%)..0|
00002cb0  1b 78 25 3d 33 32 3a 79  25 3d 39 31 36 3a e6 30  |.x%=32:y%=916:.0|
00002cc0  2c 33 36 c8 9c 31 32 38  0d 11 3a 05 f5 0d 11 44  |,36..128..:....D|
00002cd0  12 20 e8 23 5a 25 2c 73  24 3a 77 24 3d 22 22 0d  |. .#Z%,s$:w$="".|
00002ce0  11 4e 0f 20 e7 ac 44 52  25 8c 8d 74 68 51 0d 11  |.N. ..DR%..thQ..|
00002cf0  58 10 20 e3 69 25 3d 31  b8 a9 28 73 24 29 0d 11  |X. .i%=1..(s$)..|
00002d00  62 12 20 20 61 24 3d c1  73 24 2c 69 25 2c 31 29  |b.  a$=.s$,i%,1)|
00002d10  0d 11 6c 21 20 20 e7 28  61 24 3c 3e 22 20 22 29  |..l!  .(a$<>" ")|
00002d20  80 61 24 3c 3e 22 40 22  8c 77 24 3d 77 24 2b 61  |.a$<>"@".w$=w$+a|
00002d30  24 0d 11 76 19 20 20 e7  28 69 25 3d a9 28 73 24  |$..v.  .(i%=.(s$|
00002d40  29 29 84 61 24 3d 22 20  22 8c 0d 11 80 30 20 20  |)).a$=" "....0  |
00002d50  20 6c 25 3d a9 28 77 24  29 2a 33 32 2b 33 32 3a  | l%=.(w$)*32+32:|
00002d60  e7 78 25 2b 6c 25 3e 31  32 34 38 8c 78 25 3d 33  |.x%+l%>1248.x%=3|
00002d70  32 3a 79 25 3d 79 25 2d  34 34 0d 11 8a 22 20 20  |2:y%=y%-44..."  |
00002d80  20 ec 78 25 2c 79 25 3a  f1 3b 77 24 3b 3a 78 25  | .x%,y%:.;w$;:x%|
00002d90  3d 78 25 2b 6c 25 3a 77  24 3d 22 22 0d 11 94 07  |=x%+l%:w$=""....|
00002da0  20 20 cd 0d 11 9e 06 20  ed 0d 11 a8 0f fd c2 73  |  ..... .......s|
00002db0  24 2c 31 29 3d 22 40 22  0d 11 b2 0c 2a 46 58 31  |$,1)="@"....*FX1|
00002dc0  31 32 2c 30 0d 11 bc 0b  e3 69 25 3d 31 b8 31 0d  |12,0.....i%=1.1.|
00002dd0  11 c6 3b 20 73 63 6f 72  65 25 28 69 25 2c 68 6f  |..; score%(i%,ho|
00002de0  6c 65 25 29 3d 30 3a 62  61 6c 6c 78 28 69 25 29  |le%)=0:ballx(i%)|
00002df0  3d 54 45 58 25 28 30 29  3a 62 61 6c 6c 79 28 69  |=TEX%(0):bally(i|
00002e00  25 29 3d 54 45 59 25 28  30 29 0d 11 d0 1f 20 68  |%)=TEY%(0).... h|
00002e10  6f 6c 65 64 25 28 69 25  29 3d a3 3a 62 68 64 62  |oled%(i%)=.:bhdb|
00002e20  6c 25 28 69 25 29 3d 32  38 0d 11 da 05 ed 0d 11  |l%(i%)=28.......|
00002e30  e4 05 e1 0d 11 f8 05 20  0d 12 02 0e dd f2 64 72  |....... ......dr|
00002e40  61 77 73 68 6f 74 0d 12  0c f7 ea 64 61 2c 59 53  |awshot.....da,YS|
00002e50  25 2c 58 53 25 2c 59 53  32 25 2c 58 53 32 25 2c  |%,XS%,YS2%,XS2%,|
00002e60  73 25 2c 70 73 25 2c 78  2c 79 2c 62 7a 32 61 25  |s%,ps%,x,y,bz2a%|
00002e70  2c 62 7a 32 62 25 2c 62  7a 32 63 25 2c 62 7a 32  |,bz2b%,bz2c%,bz2|
00002e80  64 25 2c 69 25 2c 78 32  2c 79 32 2c 70 31 78 25  |d%,i%,x2,y2,p1x%|
00002e90  2c 70 31 79 25 2c 70 31  63 25 2c 70 31 68 25 2c  |,p1y%,p1c%,p1h%,|
00002ea0  70 32 78 25 2c 70 32 79  25 2c 70 32 63 25 2c 70  |p2x%,p2y%,p2c%,p|
00002eb0  32 68 25 2c 70 33 78 25  2c 70 33 79 25 2c 70 33  |2h%,p3x%,p3y%,p3|
00002ec0  63 25 2c 70 33 68 25 2c  70 34 78 25 2c 70 34 79  |c%,p3h%,p4x%,p4y|
00002ed0  25 2c 70 34 63 25 2c 70  34 68 25 2c 70 6d 63 25  |%,p4c%,p4h%,pmc%|
00002ee0  2c 63 75 72 79 25 2c 63  75 72 6f 62 6a 25 2c 4f  |,cury%,curobj%,O|
00002ef0  59 31 2c 43 59 31 2c 4f  59 31 31 2c 79 32 59 53  |Y1,CY1,OY11,y2YS|
00002f00  25 2c 79 32 59 53 32 25  2c 70 31 32 68 25 2c 70  |%,y2YS2%,p12h%,p|
00002f10  33 34 68 25 2c 70 31 33  44 32 25 2c 70 32 34 44  |34h%,p13D2%,p24D|
00002f20  32 25 2c 70 31 32 44 32  25 2c 70 33 34 44 32 25  |2%,p12D2%,p34D2%|
00002f30  2c 70 31 32 33 34 44 34  25 2c 4f 54 25 0d 12 16  |,p1234D4%,OT%...|
00002f40  13 ef 32 33 3b 38 32 30  32 3b 30 3b 30 3b 30 3b  |..23;8202;0;0;0;|
00002f50  0d 12 20 0b 64 72 77 25  2b 3d 31 0d 12 2a 28 59  |.. .drw%+=1..*(Y|
00002f60  53 25 3d 31 32 3a 58 53  25 3d 32 35 36 3a 59 53  |S%=12:XS%=256:YS|
00002f70  32 25 3d 59 53 25 81 32  3a 58 53 32 25 3d 58 53  |2%=YS%.2:XS2%=XS|
00002f80  25 81 32 0d 12 34 40 77  69 6e 64 61 6e 67 3d a4  |%.2..4@windang=.|
00002f90  61 6e 67 28 77 69 6e 64  61 6e 67 2b b3 28 31 29  |ang(windang+.(1)|
00002fa0  2a 2e 32 2d 2e 31 29 3a  77 61 6e 67 30 3d a4 61  |*.2-.1):wang0=.a|
00002fb0  6e 67 28 77 69 6e 64 61  6e 67 2d 68 6f 6c 65 61  |ng(windang-holea|
00002fc0  6e 67 29 0d 12 3e 27 77  69 6e 64 25 3d a4 6d 61  |ng)..>'wind%=.ma|
00002fd0  78 28 30 2c a4 6d 69 6e  28 33 35 2c 77 69 6e 64  |x(0,.min(35,wind|
00002fe0  25 2b b3 28 33 29 2d 32  29 29 0d 12 48 18 e7 ac  |%+.(3)-2))..H...|
00002ff0  68 6f 6c 65 6f 75 74 25  8c 70 75 25 3d a4 6e 65  |holeout%.pu%=.ne|
00003000  78 74 0d 12 52 30 53 4c  3d 53 4b 28 70 75 25 29  |xt..R0SL=SK(pu%)|
00003010  3a 62 61 6c 6c 78 3d 62  61 6c 6c 78 28 70 75 25  |:ballx=ballx(pu%|
00003020  29 3a 62 61 6c 6c 79 3d  62 61 6c 6c 79 28 70 75  |):bally=bally(pu|
00003030  25 29 0d 12 5c 35 66 65  65 74 25 3d a4 64 69 73  |%)..\5feet%=.dis|
00003040  74 3a 79 64 73 25 3d 66  65 65 74 25 2f 33 3a e7  |t:yds%=feet%/3:.|
00003050  64 72 77 25 3d 31 63 6c  75 62 25 3d a4 63 6c 75  |drw%=1club%=.clu|
00003060  62 28 79 64 73 25 29 0d  12 66 49 e7 28 79 64 73  |b(yds%)..fI.(yds|
00003070  25 3e 32 35 29 80 ac a4  6f 6e 67 72 65 65 6e 20  |%>25)...ongreen |
00003080  53 43 25 3d 32 8b 53 43  25 3d 33 3a 59 53 25 3d  |SC%=2.SC%=3:YS%=|
00003090  33 32 3a 58 53 25 3d 33  32 30 3a 59 53 32 25 3d  |32:XS%=320:YS2%=|
000030a0  59 53 25 81 32 3a 58 53  32 25 3d 58 53 25 81 32  |YS%.2:XS2%=XS%.2|
000030b0  0d 12 70 13 53 43 37 25  3d 53 43 25 2a 37 33 35  |..p.SC7%=SC%*735|
000030c0  33 39 31 0d 12 7a 31 e7  62 61 6c 6c 78 3d 54 45  |391..z1.ballx=TE|
000030d0  58 25 28 30 29 e7 62 61  6c 6c 79 3d 54 45 59 25  |X%(0).bally=TEY%|
000030e0  28 30 29 8c 61 6e 67 3d  74 65 65 61 6e 67 3a e5  |(0).ang=teeang:.|
000030f0  8d 64 68 52 0d 12 84 21  78 3d 66 6c 61 67 78 25  |.dhR...!x=flagx%|
00003100  2d 62 61 6c 6c 78 3a 79  3d 66 6c 61 67 79 25 2d  |-ballx:y=flagy%-|
00003110  62 61 6c 6c 79 0d 12 8e  11 e7 94 28 78 29 3c 2e  |bally......(x)<.|
00003120  30 30 30 30 31 8c 0d 12  98 1c 20 e7 79 3e 30 61  |00001..... .y>0a|
00003130  6e 67 3d 50 49 39 30 20  8b 61 6e 67 3d 50 49 32  |ng=PI90 .ang=PI2|
00003140  37 30 0d 12 a2 05 cc 0d  12 ac 12 20 e7 94 28 79  |70......... ..(y|
00003150  29 3c 2e 30 30 30 30 31  8c 0d 12 b6 16 20 20 e7  |)<.00001.....  .|
00003160  78 3c 30 61 6e 67 3d af  20 8b 61 6e 67 3d 30 0d  |x<0ang=. .ang=0.|
00003170  12 c0 06 20 cc 0d 12 ca  3a 20 20 61 6e 67 3d 99  |... ....:  ang=.|
00003180  28 79 2f 78 29 3a e7 28  79 3c 30 29 80 78 3c 30  |(y/x):.(y<0).x<0|
00003190  8c 61 6e 67 3d 61 6e 67  2b af 20 8b e7 28 79 3e  |.ang=ang+. ..(y>|
000031a0  30 29 80 78 3c 30 61 6e  67 3d 61 6e 67 2d af 0d  |0).x<0ang=ang-..|
000031b0  12 d4 06 20 cd 0d 12 de  05 cd 0d 12 e8 2e 61 6e  |... ..........an|
000031c0  67 3d 61 6e 67 2b 64 65  76 61 6e 67 3a 63 6f 73  |g=ang+devang:cos|
000031d0  61 6e 67 3d 9b 28 61 6e  67 29 3a 73 69 6e 61 6e  |ang=.(ang):sinan|
000031e0  67 3d b5 28 61 6e 67 29  0d 12 f2 18 e7 94 28 61  |g=.(ang)......(a|
000031f0  6e 67 2d 50 49 39 30 29  3c 2e 30 30 30 30 31 8c  |ng-PI90)<.00001.|
00003200  0d 12 fc 29 20 e7 61 6e  67 3c 50 49 39 30 20 74  |...) .ang<PI90 t|
00003210  61 6e 61 6e 67 3d 31 30  30 30 30 8b 74 61 6e 61  |anang=10000.tana|
00003220  6e 67 3d 2d 31 30 30 30  30 0d 13 06 05 cc 0d 13  |ng=-10000.......|
00003230  10 1a 20 e7 94 28 61 6e  67 2d 50 49 32 37 30 29  |.. ..(ang-PI270)|
00003240  3c 2e 30 30 30 30 31 8c  0d 13 1a 2b 20 20 e7 61  |<.00001....+  .a|
00003250  6e 67 3c 50 49 32 37 30  20 74 61 6e 61 6e 67 3d  |ng<PI270 tanang=|
00003260  31 30 30 30 30 8b 74 61  6e 61 6e 67 3d 2d 31 30  |10000.tanang=-10|
00003270  30 30 30 0d 13 24 06 20  cc 0d 13 2e 13 20 20 74  |000..$. .....  t|
00003280  61 6e 61 6e 67 3d b7 28  61 6e 67 29 0d 13 38 06  |anang=.(ang)..8.|
00003290  20 cd 0d 13 42 05 cd 0d  13 4c 27 41 4e 3d 50 49  | ...B....L'AN=PI|
000032a0  39 30 2d 61 6e 67 3a 73  69 6e 41 4e 3d b5 28 41  |90-ang:sinAN=.(A|
000032b0  4e 29 3a 63 6f 73 41 4e  3d 9b 28 41 4e 29 0d 13  |N):cosAN=.(AN)..|
000032c0  56 2e 77 61 6e 67 32 3d  a4 61 6e 67 28 77 61 6e  |V.wang2=.ang(wan|
000032d0  67 30 2d 61 6e 67 29 3a  64 61 3d a4 61 6e 67 28  |g0-ang):da=.ang(|
000032e0  61 6e 67 2b 68 6f 6c 65  61 6e 67 29 0d 13 60 14  |ang+holeang)..`.|
000032f0  e7 64 61 3c 30 64 61 3d  64 61 2b 50 49 33 36 30  |.da<0da=da+PI360|
00003300  0d 13 6a 1b e7 a4 6f 6e  74 65 65 20 e7 ac 69 73  |..j...ontee ..is|
00003310  74 73 68 6f 74 25 8c 8d  64 62 58 0d 13 74 0f e7  |tshot%..dbX..t..|
00003320  6f 62 64 73 25 8c 8d 64  62 58 0d 13 7e 20 f2 58  |obds%..dbX..~ .X|
00003330  59 30 31 28 66 6c 61 67  78 25 2c 66 6c 61 67 79  |Y01(flagx%,flagy|
00003340  25 29 3a 66 79 31 25 3d  59 31 0d 13 88 10 e3 69  |%):fy1%=Y1.....i|
00003350  25 3d 31 b8 74 72 65 65  73 25 0d 13 92 1b 20 4f  |%=1.trees%.... O|
00003360  74 79 70 25 28 69 25 29  3d 74 72 65 65 74 79 70  |typ%(i%)=treetyp|
00003370  25 28 69 25 29 0d 13 9c  37 20 f2 58 59 30 31 28  |%(i%)...7 .XY01(|
00003380  74 72 65 65 78 25 28 69  25 29 2c 74 72 65 65 79  |treex%(i%),treey|
00003390  25 28 69 25 29 29 3a 4f  58 31 28 69 25 29 3d 58  |%(i%)):OX1(i%)=X|
000033a0  31 3a 4f 59 31 28 69 25  29 3d 59 31 0d 13 a6 05  |1:OY1(i%)=Y1....|
000033b0  ed 0d 13 b0 0e e3 69 25  3d 31 b8 47 4e 53 25 0d  |......i%=1.GNS%.|
000033c0  13 ba 1c 20 4f 74 79 70  25 28 69 25 2b 74 72 65  |... Otyp%(i%+tre|
000033d0  65 73 25 29 3d 31 30 30  2b 69 25 0d 13 c4 45 20  |es%)=100+i%...E |
000033e0  f2 58 59 30 31 28 47 4e  58 25 28 69 25 2c 31 29  |.XY01(GNX%(i%,1)|
000033f0  2c 47 4e 59 25 28 69 25  2c 31 29 29 3a 4f 58 31  |,GNY%(i%,1)):OX1|
00003400  28 69 25 2b 74 72 65 65  73 25 29 3d 58 31 3a 4f  |(i%+trees%)=X1:O|
00003410  59 31 28 69 25 2b 74 72  65 65 73 25 29 3d 59 31  |Y1(i%+trees%)=Y1|
00003420  0d 13 ce 05 ed 0d 13 d8  15 6f 62 6a 73 25 3d 74  |.........objs%=t|
00003430  72 65 65 73 25 2b 47 4e  53 25 0d 13 e2 11 e7 42  |rees%+GNS%.....B|
00003440  6e 6b 73 25 3d 30 8c 8d  54 68 54 0d 13 ec 0f e3  |nks%=0..ThT.....|
00003450  69 25 3d 31 b8 42 6e 6b  73 25 0d 13 f6 1b 20 4f  |i%=1.Bnks%.... O|
00003460  74 79 70 25 28 69 25 2b  6f 62 6a 73 25 29 3d 32  |typ%(i%+objs%)=2|
00003470  30 30 2b 69 25 0d 14 00  41 20 f2 58 59 30 31 28  |00+i%...A .XY01(|
00003480  42 78 25 28 69 25 2c 30  29 2c 42 79 25 28 69 25  |Bx%(i%,0),By%(i%|
00003490  2c 30 29 29 3a 4f 58 31  28 69 25 2b 6f 62 6a 73  |,0)):OX1(i%+objs|
000034a0  25 29 3d 58 31 3a 4f 59  31 28 69 25 2b 6f 62 6a  |%)=X1:OY1(i%+obj|
000034b0  73 25 29 3d 59 31 0d 14  0a 05 ed 0d 14 14 15 6f  |s%)=Y1.........o|
000034c0  62 6a 73 25 3d 6f 62 6a  73 25 2b 42 6e 6b 73 25  |bjs%=objs%+Bnks%|
000034d0  0d 14 1e 0f e7 57 61 25  3d 30 8c 8d 44 5a 54 0d  |.....Wa%=0..DZT.|
000034e0  14 28 0d e3 69 25 3d 31  b8 57 61 25 0d 14 32 1b  |.(..i%=1.Wa%..2.|
000034f0  20 4f 74 79 70 25 28 69  25 2b 6f 62 6a 73 25 29  | Otyp%(i%+objs%)|
00003500  3d 34 30 30 2b 69 25 0d  14 3c 41 20 f2 58 59 30  |=400+i%..<A .XY0|
00003510  31 28 57 78 25 28 69 25  2c 30 29 2c 57 79 25 28  |1(Wx%(i%,0),Wy%(|
00003520  69 25 2c 30 29 29 3a 4f  58 31 28 69 25 2b 6f 62  |i%,0)):OX1(i%+ob|
00003530  6a 73 25 29 3d 58 31 3a  4f 59 31 28 69 25 2b 6f  |js%)=X1:OY1(i%+o|
00003540  62 6a 73 25 29 3d 59 31  0d 14 46 05 ed 0d 14 50  |bjs%)=Y1..F....P|
00003550  13 6f 62 6a 73 25 3d 6f  62 6a 73 25 2b 57 61 25  |.objs%=objs%+Wa%|
00003560  0d 14 5a 10 e7 4f 42 43  25 3d 30 8c 8d 74 4c 54  |..Z..OBC%=0..tLT|
00003570  0d 14 64 0e e3 69 25 3d  31 b8 4f 42 43 25 0d 14  |..d..i%=1.OBC%..|
00003580  6e 1b 20 4f 74 79 70 25  28 69 25 2b 6f 62 6a 73  |n. Otyp%(i%+objs|
00003590  25 29 3d 35 30 30 2b 69  25 0d 14 78 3f 20 f2 58  |%)=500+i%..x? .X|
000035a0  59 30 31 28 4f 42 58 25  28 69 25 29 2c 4f 42 59  |Y01(OBX%(i%),OBY|
000035b0  25 28 69 25 29 29 3a 4f  58 31 28 69 25 2b 6f 62  |%(i%)):OX1(i%+ob|
000035c0  6a 73 25 29 3d 58 31 3a  4f 59 31 28 69 25 2b 6f  |js%)=X1:OY1(i%+o|
000035d0  62 6a 73 25 29 3d 59 31  0d 14 82 05 ed 0d 14 8c  |bjs%)=Y1........|
000035e0  16 6f 62 6a 73 25 3d 6f  62 6a 73 25 2b 4f 42 43  |.objs%=objs%+OBC|
000035f0  25 2b 31 0d 14 96 47 4f  74 79 70 25 28 6f 62 6a  |%+1...GOtyp%(obj|
00003600  73 25 29 3d 33 30 31 3a  f2 58 59 30 31 28 54 45  |s%)=301:.XY01(TE|
00003610  58 25 28 30 29 2c 54 45  59 25 28 30 29 29 3a 4f  |X%(0),TEY%(0)):O|
00003620  58 31 28 6f 62 6a 73 25  29 3d 58 31 3a 4f 59 31  |X1(objs%)=X1:OY1|
00003630  28 6f 62 6a 73 25 29 3d  59 31 0d 14 a0 17 63 75  |(objs%)=Y1....cu|
00003640  72 6f 62 6a 25 3d 31 3a  f2 73 6f 72 74 6f 62 6a  |robj%=1:.sortobj|
00003650  73 0d 14 aa 2f e6 30 2c  30 c8 9c 30 3a ec 30 2c  |s.../.0,0..0:.0,|
00003660  30 3a ec 31 32 38 30 2c  30 3a f0 38 35 2c 30 2c  |0:.1280,0:.85,0,|
00003670  32 35 36 3a f0 38 35 2c  31 32 38 30 2c 32 35 36  |256:.85,1280,256|
00003680  0d 14 b4 09 53 42 25 3d  30 0d 15 2c 1b 62 61 6c  |....SB%=0..,.bal|
00003690  6c 7a 3d a4 47 68 74 28  62 61 6c 6c 78 2c 62 61  |lz=.Ght(ballx,ba|
000036a0  6c 6c 79 29 0d 15 36 48  e6 30 2c 35 36 c8 9c 31  |lly)..6H.0,56..1|
000036b0  39 32 3a ec 30 2c 31 30  32 34 3a ec 30 2c 53 43  |92:.0,1024:.0,SC|
000036c0  25 2a 31 35 30 2b 35 30  30 3a f0 38 35 2c 31 32  |%*150+500:.85,12|
000036d0  38 30 2c 31 30 32 34 3a  f0 38 35 2c 31 32 38 30  |80,1024:.85,1280|
000036e0  2c 53 43 25 2a 31 35 30  2b 35 30 30 0d 15 40 4b  |,SC%*150+500..@K|
000036f0  e6 30 2c 38 2d 4c 49 4e  4b 53 25 c8 9c 36 34 3a  |.0,8-LINKS%..64:|
00003700  ec 30 2c 53 43 25 2a 31  35 30 2b 35 30 30 3a ec  |.0,SC%*150+500:.|
00003710  30 2c 32 36 30 3a f0 38  35 2c 31 32 38 30 2c 53  |0,260:.85,1280,S|
00003720  43 25 2a 31 35 30 2b 35  30 30 3a f0 38 35 2c 31  |C%*150+500:.85,1|
00003730  32 38 30 2c 32 36 30 0d  15 4a 15 78 25 3d 64 61  |280,260..J.x%=da|
00003740  2f 50 49 33 36 30 2a 31  32 38 30 30 0d 15 54 3c  |/PI360*12800..T<|
00003750  e6 30 2c 30 3a ff 28 22  53 43 48 4f 4f 53 45 20  |.0,0:.("SCHOOSE |
00003760  22 2b 63 73 70 72 69 74  65 24 29 3a e7 78 25 3c  |"+csprite$):.x%<|
00003770  31 32 38 30 8c f0 26 45  44 2c 78 25 2c 35 30 30  |1280..&ED,x%,500|
00003780  2b 53 43 25 2a 31 35 30  0d 15 5e 1d f0 26 45 44  |+SC%*150..^..&ED|
00003790  2c 78 25 2d 31 32 38 30  30 2c 35 30 30 2b 31 35  |,x%-12800,500+15|
000037a0  30 2a 53 43 25 0d 15 68  3c f2 59 31 32 28 4f 59  |0*SC%..h<.Y12(OY|
000037b0  31 28 53 4f 25 28 31 29  29 2b 34 30 29 3a 79 32  |1(SO%(1))+40):y2|
000037c0  3d a4 6d 69 6e 28 59 32  2b 34 30 2c 32 36 30 2a  |=.min(Y2+40,260*|
000037d0  53 43 25 2b 32 37 38 29  3a f2 59 32 31 28 79 32  |SC%+278):.Y21(y2|
000037e0  29 0d 15 72 1f 4f 59 31  3d 59 31 3a 62 7a 32 63  |)..r.OY1=Y1:bz2c|
000037f0  25 3d a4 68 74 32 28 62  61 6c 6c 7a 2c 59 31 29  |%=.ht2(ballz,Y1)|
00003800  0d 15 7c 12 e3 78 32 3d  30 b8 31 32 38 30 88 58  |..|..x2=0.1280.X|
00003810  53 25 0d 15 86 11 20 69  25 3d 78 32 20 81 58 53  |S%.... i%=x2 .XS|
00003820  25 2b 31 0d 15 90 13 20  f2 58 32 31 28 78 32 29  |%+1.... .X21(x2)|
00003830  3a f2 58 59 31 30 0d 15  9a 4a 20 58 25 28 69 25  |:.XY10...J X%(i%|
00003840  29 3d 58 30 3a 59 25 28  69 25 29 3d 59 30 3a 43  |)=X0:Y%(i%)=Y0:C|
00003850  25 28 69 25 29 3d a4 70  6c 61 6e 70 74 28 58 30  |%(i%)=.planpt(X0|
00003860  2c 59 30 29 3a 48 25 28  69 25 29 3d a4 68 74 32  |,Y0):H%(i%)=.ht2|
00003870  28 a4 47 68 74 28 58 30  2c 59 30 29 2c 59 31 29  |(.Ght(X0,Y0),Y1)|
00003880  0d 15 a4 05 ed 0d 15 ae  0d 79 32 3d 79 32 2d 59  |.........y2=y2-Y|
00003890  53 25 0d 15 b8 05 f5 0d  15 c2 0f 20 59 53 32 25  |S%......... YS2%|
000038a0  3d 59 53 25 81 32 0d 15  cc 30 20 70 33 78 25 3d  |=YS%.2...0 p3x%=|
000038b0  58 25 28 31 29 3a 70 33  79 25 3d 59 25 28 31 29  |X%(1):p3y%=Y%(1)|
000038c0  3a 70 33 63 25 3d 43 25  28 31 29 3a 70 33 68 25  |:p3c%=C%(1):p3h%|
000038d0  3d 48 25 28 31 29 0d 15  d6 14 20 f2 59 32 31 28  |=H%(1).... .Y21(|
000038e0  79 32 29 3a 43 59 31 3d  59 31 0d 15 e0 12 20 e7  |y2):CY1=Y1.... .|
000038f0  4f 59 31 3c 31 38 30 8c  8d 74 4e 57 0d 15 ea 12  |OY1<180..tNW....|
00003900  20 f2 58 32 31 28 30 29  3a f2 58 59 31 30 0d 15  | .X21(0):.XY10..|
00003910  f4 42 20 70 34 78 25 3d  58 30 3a 70 34 79 25 3d  |.B p4x%=X0:p4y%=|
00003920  59 30 3a 70 34 63 25 3d  a4 70 6c 61 6e 70 74 28  |Y0:p4c%=.planpt(|
00003930  58 30 2c 59 30 29 3a 70  34 68 25 3d a4 68 74 32  |X0,Y0):p4h%=.ht2|
00003940  28 a4 47 68 74 28 58 30  2c 59 30 29 2c 59 31 29  |(.Ght(X0,Y0),Y1)|
00003950  0d 15 fe 3b 20 62 7a 32  61 25 3d 62 7a 32 63 25  |...; bz2a%=bz2c%|
00003960  3a 62 7a 32 63 25 3d a4  68 74 32 28 62 61 6c 6c  |:bz2c%=.ht2(ball|
00003970  7a 2c 59 31 29 3a 62 7a  32 62 25 3d 28 62 7a 32  |z,Y1):bz2b%=(bz2|
00003980  61 25 2b 62 7a 32 63 25  29 81 32 0d 16 08 30 20  |a%+bz2c%).2...0 |
00003990  58 25 28 31 29 3d 70 34  78 25 3a 59 25 28 31 29  |X%(1)=p4x%:Y%(1)|
000039a0  3d 70 34 79 25 3a 43 25  28 31 29 3d 70 34 63 25  |=p4y%:C%(1)=p4c%|
000039b0  3a 48 25 28 31 29 3d 70  34 68 25 0d 16 12 15 20  |:H%(1)=p4h%.... |
000039c0  e3 78 32 3d 58 53 25 b8  31 32 38 30 88 58 53 25  |.x2=XS%.1280.XS%|
000039d0  0d 16 1c 12 20 20 69 25  3d 78 32 20 81 58 53 25  |....  i%=x2 .XS%|
000039e0  2b 31 0d 16 26 2d 20 20  70 31 78 25 3d 70 33 78  |+1..&-  p1x%=p3x|
000039f0  25 3a 70 31 79 25 3d 70  33 79 25 3a 70 31 63 25  |%:p1y%=p3y%:p1c%|
00003a00  3d 70 33 63 25 3a 70 31  68 25 3d 70 33 68 25 0d  |=p3c%:p1h%=p3h%.|
00003a10  16 30 2d 20 20 70 32 78  25 3d 70 34 78 25 3a 70  |.0-  p2x%=p4x%:p|
00003a20  32 79 25 3d 70 34 79 25  3a 70 32 63 25 3d 70 34  |2y%=p4y%:p2c%=p4|
00003a30  63 25 3a 70 32 68 25 3d  70 34 68 25 0d 16 3a 35  |c%:p2h%=p4h%..:5|
00003a40  20 20 70 33 78 25 3d 58  25 28 69 25 29 3a 70 33  |  p3x%=X%(i%):p3|
00003a50  79 25 3d 59 25 28 69 25  29 3a 70 33 63 25 3d 43  |y%=Y%(i%):p3c%=C|
00003a60  25 28 69 25 29 3a 70 33  68 25 3d 48 25 28 69 25  |%(i%):p3h%=H%(i%|
00003a70  29 0d 16 44 14 20 20 f2  58 32 31 28 78 32 29 3a  |)..D.  .X21(x2):|
00003a80  f2 58 59 31 30 0d 16 4e  43 20 20 70 34 78 25 3d  |.XY10..NC  p4x%=|
00003a90  58 30 3a 70 34 79 25 3d  59 30 3a 70 34 63 25 3d  |X0:p4y%=Y0:p4c%=|
00003aa0  a4 70 6c 61 6e 70 74 28  58 30 2c 59 30 29 3a 70  |.planpt(X0,Y0):p|
00003ab0  34 68 25 3d a4 68 74 32  28 a4 47 68 74 28 58 30  |4h%=.ht2(.Ght(X0|
00003ac0  2c 59 30 29 2c 59 31 29  0d 16 58 35 20 20 58 25  |,Y0),Y1)..X5  X%|
00003ad0  28 69 25 29 3d 70 34 78  25 3a 59 25 28 69 25 29  |(i%)=p4x%:Y%(i%)|
00003ae0  3d 70 34 79 25 3a 43 25  28 69 25 29 3d 70 34 63  |=p4y%:C%(i%)=p4c|
00003af0  25 3a 48 25 28 69 25 29  3d 70 34 68 25 0d 16 62  |%:H%(i%)=p4h%..b|
00003b00  2d 20 20 4f 59 31 31 3d  4f 59 31 2d 59 31 3a 78  |-  OY11=OY1-Y1:x|
00003b10  32 58 53 25 3d 78 32 2d  58 53 25 3a 78 32 58 53  |2XS%=x2-XS%:x2XS|
00003b20  32 25 3d 78 32 2d 58 53  32 25 0d 16 6c 21 20 20  |2%=x2-XS2%..l!  |
00003b30  79 32 59 53 25 3d 79 32  2b 59 53 25 3a 79 32 59  |y2YS%=y2+YS%:y2Y|
00003b40  53 32 25 3d 79 32 2b 59  53 32 25 0d 16 76 25 20  |S2%=y2+YS2%..v% |
00003b50  20 70 31 32 68 25 3d 70  31 68 25 2b 70 32 68 25  | p12h%=p1h%+p2h%|
00003b60  3a 70 33 34 68 25 3d 70  33 68 25 2b 70 34 68 25  |:p34h%=p3h%+p4h%|
00003b70  0d 16 80 2f 20 20 70 31  33 44 32 25 3d 28 70 31  |.../  p13D2%=(p1|
00003b80  68 25 2b 70 33 68 25 29  81 32 3a 70 32 34 44 32  |h%+p3h%).2:p24D2|
00003b90  25 3d 28 70 32 68 25 2b  70 34 68 25 29 81 32 0d  |%=(p2h%+p4h%).2.|
00003ba0  16 8a 23 20 20 70 31 32  44 32 25 3d 70 31 32 68  |..#  p12D2%=p12h|
00003bb0  25 81 32 3a 70 33 34 44  32 25 3d 70 33 34 68 25  |%.2:p34D2%=p34h%|
00003bc0  81 32 0d 16 94 1e 20 20  70 31 32 33 34 44 34 25  |.2....  p1234D4%|
00003bd0  3d 28 70 31 32 68 25 2b  70 33 34 68 25 29 81 34  |=(p12h%+p34h%).4|
00003be0  0d 16 9e 28 20 20 73 6d  25 3d 28 70 32 68 25 2b  |...(  sm%=(p2h%+|
00003bf0  70 34 68 25 2d 70 31 68  25 2d 70 33 68 25 29 2a  |p4h%-p1h%-p3h%)*|
00003c00  31 30 30 2f 4f 59 31 31  0d 16 a8 39 20 20 73 31  |100/OY11...9  s1|
00003c10  32 25 3d 28 70 32 68 25  2d 70 31 68 25 29 2a 32  |2%=(p2h%-p1h%)*2|
00003c20  30 30 2f 4f 59 31 31 3a  73 33 34 25 3d 28 70 34  |00/OY11:s34%=(p4|
00003c30  68 25 2d 70 33 68 25 29  2a 32 30 30 2f 4f 59 31  |h%-p3h%)*200/OY1|
00003c40  31 0d 16 b2 43 20 20 70  6d 63 25 3d a4 70 6c 61  |1...C  pmc%=.pla|
00003c50  6e 70 74 28 28 70 31 78  25 2b 70 32 78 25 2b 70  |npt((p1x%+p2x%+p|
00003c60  33 78 25 2b 70 34 78 25  29 81 34 2c 28 70 31 79  |3x%+p4x%).4,(p1y|
00003c70  25 2b 70 32 79 25 2b 70  33 79 25 2b 70 34 79 25  |%+p2y%+p3y%+p4y%|
00003c80  29 81 34 29 0d 16 bc 17  20 20 f2 67 63 6f 6c 72  |).4)....  .gcolr|
00003c90  28 70 31 63 25 2c 73 31  32 25 29 0d 16 c6 26 20  |(p1c%,s12%)...& |
00003ca0  20 ec 78 32 58 53 25 2c  a4 44 48 28 79 32 59 53  | .x2XS%,.DH(y2YS|
00003cb0  25 2b 70 31 68 25 2d 62  7a 32 61 25 2c 4f 59 31  |%+p1h%-bz2a%,OY1|
00003cc0  29 0d 16 d0 29 20 20 ec  78 32 58 53 25 2c a4 44  |)...)  .x2XS%,.D|
00003cd0  48 28 79 32 59 53 32 25  2b 70 31 32 44 32 25 2d  |H(y2YS2%+p12D2%-|
00003ce0  62 7a 32 62 25 2c 4f 59  31 29 0d 16 da 2c 20 20  |bz2b%,OY1)...,  |
00003cf0  f0 38 35 2c 78 32 58 53  32 25 2c a4 44 48 28 79  |.85,x2XS2%,.DH(y|
00003d00  32 59 53 25 2b 70 31 33  44 32 25 2d 62 7a 32 61  |2YS%+p13D2%-bz2a|
00003d10  25 2c 4f 59 31 29 0d 16  e4 16 20 20 f2 67 63 6f  |%,OY1)....  .gco|
00003d20  6c 72 28 70 6d 63 25 2c  73 6d 25 29 0d 16 ee 2f  |lr(pmc%,sm%).../|
00003d30  20 20 f0 38 35 2c 78 32  58 53 32 25 2c a4 44 48  |  .85,x2XS2%,.DH|
00003d40  28 79 32 59 53 32 25 2b  70 31 32 33 34 44 34 25  |(y2YS2%+p1234D4%|
00003d50  2d 62 7a 32 62 25 2c 4f  59 31 29 0d 16 f8 29 20  |-bz2b%,OY1)...) |
00003d60  20 f0 38 35 2c 78 32 2c  a4 44 48 28 79 32 59 53  | .85,x2,.DH(y2YS|
00003d70  32 25 2b 70 33 34 44 32  25 2d 62 7a 32 62 25 2c  |2%+p34D2%-bz2b%,|
00003d80  4f 59 31 29 0d 17 02 17  20 20 f2 67 63 6f 6c 72  |OY1)....  .gcolr|
00003d90  28 70 33 63 25 2c 73 33  34 25 29 0d 17 0c 29 20  |(p3c%,s34%)...) |
00003da0  20 ec 78 32 58 53 32 25  2c a4 44 48 28 79 32 59  | .x2XS2%,.DH(y2Y|
00003db0  53 25 2b 70 31 33 44 32  25 2d 62 7a 32 61 25 2c  |S%+p13D2%-bz2a%,|
00003dc0  4f 59 31 29 0d 17 16 26  20 20 f0 38 35 2c 78 32  |OY1)...&  .85,x2|
00003dd0  2c a4 44 48 28 79 32 59  53 25 2b 70 33 68 25 2d  |,.DH(y2YS%+p3h%-|
00003de0  62 7a 32 61 25 2c 4f 59  31 29 0d 17 20 17 20 20  |bz2a%,OY1).. .  |
00003df0  f2 67 63 6f 6c 72 28 70  32 63 25 2c 73 31 32 25  |.gcolr(p2c%,s12%|
00003e00  29 0d 17 2a 22 20 20 ec  78 32 58 53 25 2c a4 44  |)..*"  .x2XS%,.D|
00003e10  48 28 79 32 2b 70 32 68  25 2d 62 7a 32 63 25 2c  |H(y2+p2h%-bz2c%,|
00003e20  59 31 29 0d 17 34 29 20  20 ec 78 32 58 53 25 2c  |Y1)..4)  .x2XS%,|
00003e30  a4 44 48 28 79 32 59 53  32 25 2b 70 31 32 44 32  |.DH(y2YS2%+p12D2|
00003e40  25 2d 62 7a 32 62 25 2c  4f 59 31 29 0d 17 3e 28  |%-bz2b%,OY1)..>(|
00003e50  20 20 f0 38 35 2c 78 32  58 53 32 25 2c a4 44 48  |  .85,x2XS2%,.DH|
00003e60  28 79 32 2b 70 32 34 44  32 25 2d 62 7a 32 63 25  |(y2+p24D2%-bz2c%|
00003e70  2c 59 31 29 0d 17 48 16  20 20 f2 67 63 6f 6c 72  |,Y1)..H.  .gcolr|
00003e80  28 70 6d 63 25 2c 73 6d  25 29 0d 17 52 2f 20 20  |(pmc%,sm%)..R/  |
00003e90  f0 38 35 2c 78 32 58 53  32 25 2c a4 44 48 28 79  |.85,x2XS2%,.DH(y|
00003ea0  32 59 53 32 25 2b 70 31  32 33 34 44 34 25 2d 62  |2YS2%+p1234D4%-b|
00003eb0  7a 32 62 25 2c 4f 59 31  29 0d 17 5c 29 20 20 f0  |z2b%,OY1)..\)  .|
00003ec0  38 35 2c 78 32 2c a4 44  48 28 79 32 59 53 32 25  |85,x2,.DH(y2YS2%|
00003ed0  2b 70 33 34 44 32 25 2d  62 7a 32 62 25 2c 4f 59  |+p34D2%-bz2b%,OY|
00003ee0  31 29 0d 17 66 17 20 20  f2 67 63 6f 6c 72 28 70  |1)..f.  .gcolr(p|
00003ef0  34 63 25 2c 73 33 34 25  29 0d 17 70 25 20 20 ec  |4c%,s34%)..p%  .|
00003f00  78 32 58 53 32 25 2c a4  44 48 28 79 32 2b 70 32  |x2XS2%,.DH(y2+p2|
00003f10  34 44 32 25 2d 62 7a 32  63 25 2c 59 31 29 0d 17  |4D2%-bz2c%,Y1)..|
00003f20  7a 22 20 20 f0 38 35 2c  78 32 2c a4 44 48 28 79  |z"  .85,x2,.DH(y|
00003f30  32 2b 70 34 68 25 2d 62  7a 32 63 25 2c 59 31 29  |2+p4h%-bz2c%,Y1)|
00003f40  0d 17 84 06 20 ed 0d 17  8e 0d 20 63 75 72 79 25  |.... ..... cury%|
00003f50  3d 59 31 0d 17 98 33 20  c8 95 28 4f 59 31 28 53  |=Y1...3 ..(OY1(S|
00003f60  4f 25 28 63 75 72 6f 62  6a 25 29 29 3e 63 75 72  |O%(curobj%))>cur|
00003f70  79 25 2b 34 30 29 80 63  75 72 6f 62 6a 25 3c 6f  |y%+40).curobj%<o|
00003f80  62 6a 73 25 2b 31 0d 17  a2 1d 20 20 4f 54 25 3d  |bjs%+1....  OT%=|
00003f90  4f 74 79 70 25 28 53 4f  25 28 63 75 72 6f 62 6a  |Otyp%(SO%(curobj|
00003fa0  25 29 29 0d 17 ac 35 20  20 ee 28 4f 54 25 81 31  |%))...5  .(OT%.1|
00003fb0  30 30 2b 31 29 e5 8d 74  76 57 2c 8d 64 40 57 2c  |00+1)..tvW,.d@W,|
00003fc0  8d 64 4a 57 2c 8d 64 54  57 2c 8d 64 5e 57 2c 8d  |.dJW,.dTW,.d^W,.|
00003fd0  64 68 57 2c 8d 64 72 57  0d 17 b6 7e 20 20 f2 64  |dhW,.drW...~  .d|
00003fe0  72 61 77 74 72 65 65 28  74 72 65 65 74 79 70 25  |rawtree(treetyp%|
00003ff0  28 53 4f 25 28 63 75 72  6f 62 6a 25 29 29 2c 4f  |(SO%(curobj%)),O|
00004000  58 31 28 53 4f 25 28 63  75 72 6f 62 6a 25 29 29  |X1(SO%(curobj%))|
00004010  2c 4f 59 31 28 53 4f 25  28 63 75 72 6f 62 6a 25  |,OY1(SO%(curobj%|
00004020  29 29 20 20 20 2c 74 72  65 65 78 25 28 53 4f 25  |))   ,treex%(SO%|
00004030  28 63 75 72 6f 62 6a 25  29 29 2c 74 72 65 65 79  |(curobj%)),treey|
00004040  25 28 53 4f 25 28 63 75  72 6f 62 6a 25 29 29 29  |%(SO%(curobj%)))|
00004050  3a e5 8d 64 72 57 0d 17  c0 27 20 20 f2 64 72 61  |:..drW...'  .dra|
00004060  77 67 72 6e 28 4f 54 25  2d 31 30 30 29 3a 70 73  |wgrn(OT%-100):ps|
00004070  25 3d 70 73 25 2b 31 3a  e5 8d 64 72 57 0d 17 ca  |%=ps%+1:..drW...|
00004080  1e 20 20 f2 64 72 61 77  74 72 61 70 28 4f 54 25  |.  .drawtrap(OT%|
00004090  2d 32 30 30 29 3a e5 8d  64 72 57 0d 17 d4 14 20  |-200):..drW.... |
000040a0  20 f2 64 72 61 77 74 65  65 3a e5 8d 64 72 57 0d  | .drawtee:..drW.|
000040b0  17 de 1b 20 20 f2 77 61  74 65 72 28 4f 54 25 2d  |...  .water(OT%-|
000040c0  34 30 30 29 3a e5 8d 64  72 57 0d 17 e8 1a 20 20  |400):..drW....  |
000040d0  f2 70 6f 73 74 28 4f 54  25 2d 35 30 30 29 3a e5  |.post(OT%-500):.|
000040e0  8d 64 72 57 0d 17 f2 10  20 20 63 75 72 6f 62 6a  |.drW....  curobj|
000040f0  25 2b 3d 31 0d 17 fc 06  20 ce 0d 18 06 0e 20 e7  |%+=1.... ..... .|
00004100  70 73 25 3c 39 30 30 8c  0d 18 10 39 20 20 e7 28  |ps%<900....9  .(|
00004110  70 73 25 3d 47 4e 53 25  29 84 28 66 79 31 25 3e  |ps%=GNS%).(fy1%>|
00004120  43 59 31 2b 36 30 29 84  43 59 31 3c 31 30 30 8c  |CY1+60).CY1<100.|
00004130  f2 64 72 61 77 66 6c 61  67 3a 70 73 25 3d 39 39  |.drawflag:ps%=99|
00004140  39 0d 18 1a 06 20 cd 0d  18 24 0c 20 e7 53 42 25  |9.... ...$. .SB%|
00004150  3e 30 8c 0d 18 2e 0f 20  20 e3 69 25 3d 31 b8 53  |>0.....  .i%=1.S|
00004160  42 25 0d 18 38 12 20 20  20 e7 ac 53 42 50 25 28  |B%..8.   ..SBP%(|
00004170  69 25 29 8c 0d 18 42 45  20 20 20 20 e7 28 53 42  |i%)...BE    .(SB|
00004180  59 31 28 69 25 29 3e 43  59 31 2b 38 30 29 84 43  |Y1(i%)>CY1+80).C|
00004190  59 31 3c 31 30 30 f2 6f  70 62 6c 28 53 42 58 31  |Y1<100.opbl(SBX1|
000041a0  28 69 25 29 2c 53 42 59  31 28 69 25 29 29 3a 53  |(i%),SBY1(i%)):S|
000041b0  42 50 25 28 69 25 29 3d  b9 0d 18 4c 08 20 20 20  |BP%(i%)=...L.   |
000041c0  cd 0d 18 56 07 20 20 ed  0d 18 60 06 20 cd 0d 18  |...V.  ...`. ...|
000041d0  6a 27 20 e7 28 53 43 25  3d 33 29 84 43 59 31 3c  |j' .(SC%=3).CY1<|
000041e0  37 32 30 59 53 25 3d a4  6d 69 6e 28 59 53 25 2b  |720YS%=.min(YS%+|
000041f0  34 2c 39 39 29 0d 18 74  16 20 79 32 3d 79 32 2d  |4,99)..t. y2=y2-|
00004200  59 53 25 3a 4f 59 31 3d  43 59 31 0d 18 7e 0c fd  |YS%:OY1=CY1..~..|
00004210  43 59 31 3c 31 30 30 0d  18 88 12 e7 b0 36 34 30  |CY1<100......640|
00004220  2c 32 37 36 29 3d 33 36  8c 0d 18 92 09 20 79 25  |,276)=36..... y%|
00004230  3d 30 0d 18 9c 06 20 f5  0d 18 a6 2f 20 20 79 25  |=0.... ..../  y%|
00004240  3d 79 25 2b 34 3a 70 25  3d b0 36 34 30 2c 32 37  |=y%+4:p%=.640,27|
00004250  36 2d 79 25 29 3a 74 25  3d c8 9c 28 36 34 30 2c  |6-y%):t%=..(640,|
00004260  32 37 36 2d 79 25 29 0d  18 b0 2e 20 20 e7 70 25  |276-y%)....  .p%|
00004270  3d 33 36 8c 70 25 3d b0  36 34 30 2c 32 37 36 2b  |=36.p%=.640,276+|
00004280  79 25 29 3a 74 25 3d c8  9c 28 36 34 30 2c 32 37  |y%):t%=..(640,27|
00004290  36 2b 79 25 29 0d 18 ba  14 20 fd 28 70 25 3c 3e  |6+y%).... .(p%<>|
000042a0  33 36 29 84 79 25 3e 32  34 0d 18 c4 1c 20 ec 36  |36).y%>24.... .6|
000042b0  31 30 2c 32 38 30 2b 79  25 3a ec 36 37 30 2c 32  |10,280+y%:.670,2|
000042c0  38 30 2b 79 25 0d 18 ce  2c 20 e6 30 2c 70 25 c8  |80+y%..., .0,p%.|
000042d0  9c 74 25 3a f0 38 35 2c  36 31 30 2c 32 37 32 2d  |.t%:.85,610,272-|
000042e0  79 25 3a f0 38 35 2c 36  37 30 2c 32 37 32 2d 79  |y%:.85,670,272-y|
000042f0  25 0d 18 d8 05 cd 0d 18  e2 36 62 68 64 62 6c 25  |%........6bhdbl%|
00004300  3d 62 68 64 62 6c 25 28  70 75 25 29 3a 62 68 64  |=bhdbl%(pu%):bhd|
00004310  62 6c 32 25 3d b0 36 34  30 2c 32 37 36 29 3a 6f  |bl2%=.640,276):o|
00004320  6e 67 25 3d a4 6f 6e 67  72 65 65 6e 0d 18 ec 0b  |ng%=.ongreen....|
00004330  f2 64 72 61 77 69 6e 0d  18 f6 05 e1 0d 19 00 05  |.drawin.........|
00004340  20 0d 19 0a 0e dd f2 69  6e 62 6f 72 64 65 72 0d  | ......inborder.|
00004350  19 14 5d e6 30 2c 34 32  c8 9c 30 3a ec 30 2c 30  |..].0,42..0:.0,0|
00004360  3a f0 35 2c 31 32 37 36  2c 30 3a f0 35 2c 31 32  |:.5,1276,0:.5,12|
00004370  37 36 2c 32 35 36 3a ec  34 2c 34 3a f0 35 2c 31  |76,256:.4,4:.5,1|
00004380  32 37 32 2c 34 3a f0 35  2c 31 32 37 32 2c 32 35  |272,4:.5,1272,25|
00004390  32 3a ec 38 2c 38 3a f0  35 2c 31 32 36 38 2c 38  |2:.8,8:.5,1268,8|
000043a0  3a f0 35 2c 31 32 36 38  2c 32 34 38 0d 19 1e 5c  |:.5,1268,248...\|
000043b0  e6 30 2c 34 32 c8 9c 31  32 38 3a ec 30 2c 30 3a  |.0,42..128:.0,0:|
000043c0  f0 35 2c 30 2c 32 35 36  3a f0 35 2c 31 32 37 36  |.5,0,256:.5,1276|
000043d0  2c 32 35 36 3a ec 34 2c  34 3a f0 35 2c 34 2c 32  |,256:.4,4:.5,4,2|
000043e0  35 32 3a f0 35 2c 31 32  37 32 2c 32 35 32 3a ec  |52:.5,1272,252:.|
000043f0  38 2c 38 3a f0 35 2c 38  2c 32 34 38 3a f0 35 2c  |8,8:.5,8,248:.5,|
00004400  31 32 36 38 2c 32 34 38  0d 19 28 05 e1 0d 19 32  |1268,248..(....2|
00004410  05 20 0d 19 3c 0c dd f2  64 72 61 77 69 6e 0d 19  |. ..<...drawin..|
00004420  46 0d ea 77 25 2c 63 25  2c 69 25 0d 19 50 0d f2  |F..w%,c%,i%..P..|
00004430  69 6e 62 6f 72 64 65 72  0d 19 5a 20 e6 30 2c 34  |inborder..Z .0,4|
00004440  32 c8 9c 36 34 3a c8 93  c8 90 31 32 2c 31 32 2c  |2..64:....12,12,|
00004450  31 32 35 32 2c 32 33 32  0d 19 64 26 e6 30 2c 33  |1252,232..d&.0,3|
00004460  37 c8 9c 31 39 32 3a ec  31 31 36 30 2c 31 34 38  |7..192:.1160,148|
00004470  3a f0 26 39 44 2c 31 32  30 30 2c 32 30 30 0d 19  |:.&9D,1200,200..|
00004480  6e 5a e6 30 2c 34 32 c8  9c 31 32 38 3a ec 31 31  |nZ.0,42..128:.11|
00004490  36 30 2c 31 34 38 3a ec  31 31 32 30 2c 39 36 3a  |60,148:.1120,96:|
000044a0  f0 26 41 35 2c 31 32 30  30 2c 32 30 30 3a e6 30  |.&A5,1200,200:.0|
000044b0  2c 34 32 c8 9c 20 30 3a  ec 31 31 36 30 2c 31 34  |,42.. 0:.1160,14|
000044c0  38 3a ec 31 32 30 30 2c  32 30 30 3a f0 26 41 35  |8:.1200,200:.&A5|
000044d0  2c 31 31 32 30 2c 39 36  0d 19 78 22 ef 35 3a e6  |,1120,96..x".5:.|
000044e0  30 2c 36 33 c8 9c 31 39  32 3a ec 31 30 39 36 2c  |0,63..192:.1096,|
000044f0  36 34 3a f1 22 57 69 6e  64 22 0d 19 82 2a e6 30  |64:."Wind"...*.0|
00004500  2c 33 37 c8 9c 31 32 38  3a c8 8f 31 31 36 30 2c  |,37..128:..1160,|
00004510  31 34 38 2c 32 30 3a c8  8f 31 31 36 30 2c 31 34  |148,20:..1160,14|
00004520  38 2c 34 30 0d 19 8c 48  e6 30 2c 33 37 c8 9c 30  |8,40...H.0,37..0|
00004530  3a 77 25 3d 77 69 6e 64  25 2a 31 2e 37 33 3a ec  |:w%=wind%*1.73:.|
00004540  31 31 36 30 2c 31 34 38  3a f0 35 2c 31 31 36 30  |1160,148:.5,1160|
00004550  2d b5 28 77 61 6e 67 32  29 2a 77 25 2c 31 34 38  |-.(wang2)*w%,148|
00004560  2b 9b 28 77 61 6e 67 32  29 2a 77 25 0d 19 96 27  |+.(wang2)*w%...'|
00004570  e6 30 2c 31 35 c8 9c 31  32 38 3a ec 38 34 34 2c  |.0,15..128:.844,|
00004580  32 30 30 3a f1 22 48 6f  6c 65 20 22 3b 68 6f 6c  |200:."Hole ";hol|
00004590  65 25 3b 0d 19 a0 3f ec  38 34 34 2c 31 36 30 3a  |e%;...?.844,160:|
000045a0  f1 3b 6c 65 6e 25 28 68  6f 6c 65 25 29 22 20 79  |.;len%(hole%)" y|
000045b0  64 73 22 3b 3a ec 38 34  34 2c 31 32 30 3a f1 22  |ds";:.844,120:."|
000045c0  50 61 72 20 22 3b 70 61  72 25 28 68 6f 6c 65 25  |Par ";par%(hole%|
000045d0  29 3b 0d 19 aa 2d e6 30  2c 31 35 c8 9c 30 3a ec  |);...-.0,15..0:.|
000045e0  38 34 34 2c 37 32 3a f1  22 53 74 72 2e 20 22 3b  |844,72:."Str. ";|
000045f0  73 74 72 6f 6b 65 25 28  68 6f 6c 65 25 29 3b 0d  |stroke%(hole%);.|
00004600  19 b4 2a e6 30 2c 34 32  c8 9c 30 3a ec 38 32 30  |..*.0,42..0:.820|
00004610  2c 32 31 32 3a f0 35 2c  34 36 34 2c 32 31 32 3a  |,212:.5,464,212:|
00004620  f0 35 2c 34 36 34 2c 34  30 0d 19 be 23 e6 30 2c  |.5,464,40...#.0,|
00004630  34 32 c8 9c 31 32 38 3a  f0 35 2c 38 32 30 2c 34  |42..128:.5,820,4|
00004640  30 3a f0 35 2c 38 32 30  2c 32 31 32 0d 19 c8 10  |0:.5,820,212....|
00004650  e7 ac a4 6f 6e 67 72 65  65 6e 20 8c 0d 19 d2 29  |...ongreen ....)|
00004660  20 e6 30 2c 34 32 c8 9c  30 3a ec 35 39 36 2c 32  | .0,42..0:.596,2|
00004670  30 30 3a f1 22 41 69 6d  22 3b 3a e6 30 2c 31 33  |00:."Aim";:.0,13|
00004680  c8 9c 31 32 38 0d 19 dc  2c 20 ec 35 34 38 2c 31  |..128..., .548,1|
00004690  35 32 3a f1 22 53 65 6c  65 63 74 22 3b 3a f2 61  |52:."Select";:.a|
000046a0  72 6f 33 34 28 31 29 3a  f2 61 72 6f 31 32 28 30  |ro34(1):.aro12(0|
000046b0  29 0d 19 e6 26 20 e6 30  2c 35 30 c8 9c 36 34 3a  |)...& .0,50..64:|
000046c0  ec 35 34 38 2c 31 31 32  3a f1 63 6c 75 62 24 28  |.548,112:.club$(|
000046d0  63 6c 75 62 25 29 3b 0d  19 f0 30 20 e6 30 2c 34  |club%);...0 .0,4|
000046e0  32 c8 9c 30 3a ec 35 33  32 2c 38 30 3a f1 3b 63  |2..0:.532,80:.;c|
000046f0  6c 75 62 64 69 73 74 25  28 63 6c 75 62 25 29 22  |lubdist%(club%)"|
00004700  20 59 64 73 22 20 3b 0d  19 fa 05 cc 0d 1a 04 20  | Yds" ;........ |
00004710  20 e6 30 2c 31 33 c8 9c  31 32 38 3a ec 35 39 36  | .0,13..128:.596|
00004720  2c 32 30 30 3a f1 22 41  69 6d 22 3b 0d 1a 0e 21  |,200:."Aim";...!|
00004730  20 ec 35 34 38 2c 31 35  32 3a f1 22 20 50 75 74  | .548,152:." Put|
00004740  74 22 3b 3a f2 61 72 6f  31 32 28 31 29 0d 1a 18  |t";:.aro12(1)...|
00004750  05 cd 0d 1a 22 2d e7 70  75 25 3d 31 63 25 3d 33  |...."-.pu%=1c%=3|
00004760  20 8b e7 70 75 25 3d 32  63 25 3d 31 36 8b e7 70  | ..pu%=2c%=16..p|
00004770  75 25 3d 33 63 25 3d 32  30 8b 63 25 3d 33 31 0d  |u%=3c%=20.c%=31.|
00004780  1a 2c 2c e6 30 2c 63 25  c8 9c 31 32 38 3a ec 31  |.,,.0,c%..128:.1|
00004790  36 2c 32 31 36 3a f1 6e  61 6d 65 24 28 70 75 25  |6,216:.name$(pu%|
000047a0  29 22 20 74 6f 20 70 6c  61 79 22 0d 1a 36 42 ec  |)" to play"..6B.|
000047b0  31 36 2c 31 37 36 3a f1  3b 73 63 6f 72 65 25 28  |16,176:.;score%(|
000047c0  70 75 25 2c 68 6f 6c 65  25 29 2b 31 3b a4 54 48  |pu%,hole%)+1;.TH|
000047d0  28 73 63 6f 72 65 25 28  70 75 25 2c 68 6f 6c 65  |(score%(pu%,hole|
000047e0  25 29 2b 31 29 22 20 73  68 6f 74 22 3b 0d 1a 40  |%)+1)" shot";..@|
000047f0  08 52 25 3d a3 0d 1a 4a  10 e7 ac a4 6f 6e 67 72  |.R%=...J....ongr|
00004800  65 65 6e 20 8c 0d 1a 54  16 20 f1 22 20 66 72 6f  |een ...T. ." fro|
00004810  6d 22 3b 3a ec 31 36 2c  31 33 36 0d 1a 5e a5 20  |m";:.16,136..^. |
00004820  e7 62 68 64 62 6c 32 25  3d 42 63 6f 6c 25 8c 52  |.bhdbl2%=Bcol%.R|
00004830  25 3d b9 3a f1 22 62 75  6e 6b 65 72 22 8b e7 28  |%=.:."bunker"..(|
00004840  62 68 64 62 6c 25 3d 32  34 29 84 62 68 64 62 6c  |bhdbl%=24).bhdbl|
00004850  25 3d 32 35 8c 20 20 52  25 3d b9 3a f1 22 68 65  |%=25.  R%=.:."he|
00004860  61 76 79 20 72 6f 75 67  68 22 8b e7 28 62 68 64  |avy rough"..(bhd|
00004870  62 6c 25 3d 34 29 84 28  62 68 64 62 6c 25 3d 35  |bl%=4).(bhdbl%=5|
00004880  29 84 62 68 64 62 6c 25  3d 31 30 8c 52 25 3d 20  |).bhdbl%=10.R%= |
00004890  20 b9 3a f1 22 6c 69 67  68 74 20 72 6f 75 67 68  | .:."light rough|
000048a0  22 8b e7 28 62 68 64 62  6c 25 3d 32 38 29 8c f1  |"..(bhdbl%=28)..|
000048b0  22 74 65 65 22 8b f1 22  66 61 69 72 77 61 79 22  |"tee".."fairway"|
000048c0  0d 1a 68 05 cd 0d 1a 72  13 e6 30 2c 35 35 c8 9c  |..h....r..0,55..|
000048d0  30 3a ec 31 36 2c 39 36  0d 1a 7c 10 e7 ac a4 6f  |0:.16,96..|....o|
000048e0  6e 67 72 65 65 6e 20 8c  0d 1a 86 18 20 f1 3b 79  |ngreen ..... .;y|
000048f0  64 73 25 22 20 79 64 73  20 74 6f 20 70 69 6e 22  |ds%" yds to pin"|
00004900  0d 1a 90 05 cc 0d 1a 9a  52 20 e7 66 65 65 74 25  |........R .feet%|
00004910  3e 31 8c f1 3b 66 65 65  74 25 22 20 66 65 65 74  |>1..;feet%" feet|
00004920  20 61 77 61 79 22 8b 69  25 3d a4 6d 61 78 28 33  | away".i%=.max(3|
00004930  2c 28 a4 64 69 73 74 2a  31 32 29 81 33 2a 33 29  |,(.dist*12).3*3)|
00004940  3a 20 20 20 20 f1 3b 69  25 22 20 69 6e 63 68 65  |:    .;i%" inche|
00004950  73 20 61 77 61 79 22 0d  1a a4 05 cd 0d 1a ae 1e  |s away".........|
00004960  e6 30 2c 36 33 c8 9c 30  3a ec 31 36 2c 35 36 3a  |.0,63..0:.16,56:|
00004970  f1 22 53 63 6f 72 65 3a  22 3b 0d 1a b8 1f e7 74  |."Score:";.....t|
00004980  6f 74 73 63 6f 72 65 25  28 70 75 25 29 3d 70 61  |otscore%(pu%)=pa|
00004990  72 73 6f 66 61 72 25 20  8c 0d 1a c2 0c 20 f1 22  |rsofar% ..... ."|
000049a0  45 76 65 6e 22 0d 1a cc  05 cc 0d 1a d6 26 20 f1  |Even"........& .|
000049b0  3b 94 28 74 6f 74 73 63  6f 72 65 25 28 70 75 25  |;.(totscore%(pu%|
000049c0  29 2d 70 61 72 73 6f 66  61 72 25 29 22 20 22 3b  |)-parsofar%)" ";|
000049d0  0d 1a e0 2e 20 e7 74 6f  74 73 63 6f 72 65 25 28  |.... .totscore%(|
000049e0  70 75 25 29 3e 70 61 72  73 6f 66 61 72 25 f1 22  |pu%)>parsofar%."|
000049f0  6f 76 65 72 22 8b f1 22  75 6e 64 65 72 22 0d 1a  |over".."under"..|
00004a00  ea 05 cd 0d 1a f4 05 e1  0d 1a fe 05 20 0d 1b 08  |............ ...|
00004a10  0f dd f2 61 72 6f 33 34  28 62 25 29 0d 1b 12 1f  |...aro34(b%)....|
00004a20  e7 62 25 3d 31 8c e6 30  2c 31 33 c8 9c 31 32 38  |.b%=1..0,13..128|
00004a30  20 8b e6 30 2c 34 32 c8  9c 36 34 0d 1b 1c 7c ec  | ..0,42..64...|.|
00004a40  35 30 38 2c 31 35 36 3a  ec 34 39 32 2c 31 34 30  |508,156:.492,140|
00004a50  3a f0 38 35 2c 35 32 34  2c 31 34 30 3a ec 35 30  |:.85,524,140:.50|
00004a60  30 2c 31 34 30 3a ec 35  31 36 2c 31 34 30 3a f0  |0,140:.516,140:.|
00004a70  38 35 2c 35 30 30 2c 31  30 30 3a f0 38 35 2c 35  |85,500,100:.85,5|
00004a80  31 36 2c 31 30 30 3a e6  30 2c 34 32 c8 9c 30 3a  |16,100:.0,42..0:|
00004a90  ec 35 30 38 2c 31 35 36  3a f0 35 2c 34 38 38 2c  |.508,156:.5,488,|
00004aa0  31 33 36 3a ec 35 30 30  2c 31 33 36 3a f0 35 2c  |136:.500,136:.5,|
00004ab0  35 30 30 2c 31 30 30 0d  1b 26 57 e6 30 2c 34 32  |500,100..&W.0,42|
00004ac0  c8 9c 31 32 38 3a ec 35  30 38 2c 31 35 36 3a f0  |..128:.508,156:.|
00004ad0  35 2c 35 32 38 2c 31 33  36 3a f0 35 2c 35 31 36  |5,528,136:.5,516|
00004ae0  2c 31 33 36 3a f0 35 2c  35 31 36 2c 31 30 30 3a  |,136:.5,516,100:|
00004af0  f0 35 2c 35 30 30 2c 31  30 30 3a ec 34 39 32 2c  |.5,500,100:.492,|
00004b00  31 33 36 3a f0 35 2c 35  30 30 2c 31 33 36 0d 1b  |136:.5,500,136..|
00004b10  30 1f e7 62 25 3d 31 8c  e6 30 2c 31 33 c8 9c 31  |0..b%=1..0,13..1|
00004b20  32 38 20 8b e6 30 2c 34  32 c8 9c 36 34 0d 1b 3a  |28 ..0,42..64..:|
00004b30  9d ec 37 38 30 2c 31 30  30 3a ec 37 36 30 2c 31  |..780,100:.760,1|
00004b40  32 30 3a f0 38 35 2c 38  30 30 2c 31 32 30 3a ec  |20:.85,800,120:.|
00004b50  37 37 32 2c 31 32 30 3a  ec 37 38 38 2c 31 32 30  |772,120:.788,120|
00004b60  3a f0 38 35 2c 37 37 32  2c 31 35 36 3a f0 38 35  |:.85,772,156:.85|
00004b70  2c 37 38 38 2c 31 35 36  3a e6 30 2c 34 32 c8 9c  |,788,156:.0,42..|
00004b80  30 3a ec 37 38 38 2c 31  35 36 3a f0 35 2c 37 37  |0:.788,156:.5,77|
00004b90  32 2c 31 35 36 3a f0 35  2c 37 37 32 2c 31 32 30  |2,156:.5,772,120|
00004ba0  3a f0 35 2c 37 36 30 2c  31 32 30 3a f0 35 2c 37  |:.5,760,120:.5,7|
00004bb0  38 30 2c 31 30 30 3a ec  37 38 38 2c 31 32 30 3a  |80,100:.788,120:|
00004bc0  f0 35 2c 38 30 30 2c 31  32 30 0d 1b 44 41 e6 30  |.5,800,120..DA.0|
00004bd0  2c 34 32 c8 9c 31 32 38  3a ec 37 38 38 2c 31 35  |,42..128:.788,15|
00004be0  36 3a f0 35 2c 37 38 38  2c 31 32 30 3a ec 38 30  |6:.5,788,120:.80|
00004bf0  30 2c 31 32 30 3a f0 35  2c 37 38 30 2c 31 30 30  |0,120:.5,780,100|
00004c00  3a f0 35 2c 37 36 34 2c  31 31 36 0d 1b 4e 05 e1  |:.5,764,116..N..|
00004c10  0d 1b 62 05 20 0d 1b 6c  0f dd f2 61 72 6f 31 32  |..b. ..l...aro12|
00004c20  28 62 25 29 0d 1b 76 1f  e7 62 25 3d 31 20 e6 30  |(b%)..v..b%=1 .0|
00004c30  2c 31 33 c8 9c 31 32 38  20 8b e6 30 2c 34 32 c8  |,13..128 ..0,42.|
00004c40  9c 36 34 0d 1b 80 7c ec  35 31 32 2c 31 38 34 3a  |.64...|.512,184:|
00004c50  ec 35 33 32 2c 32 30 34  3a f0 38 35 2c 35 33 32  |.532,204:.85,532|
00004c60  2c 31 36 34 3a ec 35 33  32 2c 31 39 32 3a ec 35  |,164:.532,192:.5|
00004c70  33 32 2c 31 37 36 3a f0  38 35 2c 35 36 38 2c 31  |32,176:.85,568,1|
00004c80  39 32 3a f0 38 35 2c 35  36 38 2c 31 37 36 3a e6  |92:.85,568,176:.|
00004c90  30 2c 34 32 c8 9c 30 3a  ec 35 31 32 2c 31 38 34  |0,42..0:.512,184|
00004ca0  3a f0 35 2c 35 33 32 2c  32 30 34 3a ec 35 33 32  |:.5,532,204:.532|
00004cb0  2c 31 39 32 3a f0 35 2c  35 36 38 2c 31 39 32 0d  |,192:.5,568,192.|
00004cc0  1b 8a 57 e6 30 2c 34 32  c8 9c 31 32 38 3a ec 35  |..W.0,42..128:.5|
00004cd0  31 36 2c 31 38 30 3a f0  35 2c 35 33 32 2c 31 36  |16,180:.5,532,16|
00004ce0  34 3a f0 35 2c 35 33 32  2c 31 37 36 3a f0 35 2c  |4:.5,532,176:.5,|
00004cf0  35 36 38 2c 31 37 36 3a  f0 35 2c 35 36 38 2c 31  |568,176:.5,568,1|
00004d00  39 32 3a ec 35 33 32 2c  32 30 34 3a f0 35 2c 35  |92:.532,204:.5,5|
00004d10  33 32 2c 31 39 32 0d 1b  94 1f e7 62 25 3d 31 20  |32,192.....b%=1 |
00004d20  e6 30 2c 31 33 c8 9c 31  32 38 20 8b e6 30 2c 34  |.0,13..128 ..0,4|
00004d30  32 c8 9c 36 34 0d 1b 9e  92 ec 37 36 38 2c 31 38  |2..64.....768,18|
00004d40  34 3a ec 37 34 38 2c 32  30 34 3a f0 38 35 2c 37  |4:.748,204:.85,7|
00004d50  34 38 2c 31 36 34 3a ec  37 34 38 2c 31 39 32 3a  |48,164:.748,192:|
00004d60  ec 37 34 38 2c 31 37 36  3a f0 38 35 2c 37 31 32  |.748,176:.85,712|
00004d70  2c 31 39 32 3a f0 38 35  2c 37 31 32 2c 31 37 36  |,192:.85,712,176|
00004d80  3a e6 30 2c 34 32 c8 9c  30 3a ec 37 34 38 2c 32  |:.0,42..0:.748,2|
00004d90  30 34 3a f0 35 2c 37 34  38 2c 31 39 32 3a f0 35  |04:.5,748,192:.5|
00004da0  2c 37 31 32 2c 31 39 32  3a f0 35 2c 37 31 32 2c  |,712,192:.5,712,|
00004db0  31 37 36 3a ec 37 34 38  2c 31 37 36 3a f0 35 2c  |176:.748,176:.5,|
00004dc0  37 34 38 2c 31 36 34 0d  1b a8 41 e6 30 2c 34 32  |748,164...A.0,42|
00004dd0  c8 9c 31 32 38 3a ec 37  34 38 2c 32 30 34 3a f0  |..128:.748,204:.|
00004de0  35 2c 37 36 38 2c 31 38  34 3a f0 35 2c 37 34 38  |5,768,184:.5,748|
00004df0  2c 31 36 34 3a ec 37 34  38 2c 31 37 36 3a f0 35  |,164:.748,176:.5|
00004e00  2c 37 31 32 2c 31 37 36  0d 1b b2 05 e1 0d 1b c6  |,712,176........|
00004e10  05 20 0d 1b d0 0f dd f2  69 6e 70 75 74 73 68 6f  |. ......inputsho|
00004e20  74 0d 1b da 55 ea 6d 78  25 2c 70 78 25 2c 78 25  |t...U.mx%,px%,x%|
00004e30  2c 79 25 2c 62 25 2c 63  25 2c 6f 67 25 2c 6f 78  |,y%,b%,c%,og%,ox|
00004e40  25 2c 6c 78 25 2c 78 2c  79 2c 68 78 25 2c 72 73  |%,lx%,x,y,hx%,rs|
00004e50  25 2c 72 64 25 2c 6c 25  2c 66 2c 74 6d 25 2c 6e  |%,rd%,l%,f,tm%,n|
00004e60  25 2c 6d 25 2c 73 25 2c  73 74 25 2c 68 6c 25 2c  |%,m%,s%,st%,hl%,|
00004e70  68 25 2c 6f 62 25 0d 1b  e4 0e f4 5f 5f 5f 53 65  |h%,ob%.....___Se|
00004e80  6c 65 63 74 0d 1b ee 10  6f 67 25 3d a4 6f 6e 67  |lect....og%=.ong|
00004e90  72 65 65 6e 0d 1b f8 23  e7 28 69 73 74 73 68 6f  |reen...#.(istsho|
00004ea0  74 25 29 84 28 28 ac a4  6f 6e 74 65 65 29 80 ac  |t%).((..ontee)..|
00004eb0  6f 62 64 73 25 29 8c 0d  1c 02 43 20 ec 36 34 30  |obds%)....C .640|
00004ec0  2d 53 43 25 2a 34 34 2c  32 36 38 3a ec 36 34 30  |-SC%*44,268:.640|
00004ed0  2b 53 43 25 2a 34 34 2c  32 36 38 2b 53 43 25 2a  |+SC%*44,268+SC%*|
00004ee0  36 36 3a c8 99 34 36 2c  32 37 30 2c 53 50 25 2c  |66:..46,270,SP%,|
00004ef0  22 42 48 44 47 46 52 22  2c 30 0d 1c 0c 38 20 e7  |"BHDGFR",0...8 .|
00004f00  28 62 68 64 62 6c 25 3c  32 34 29 84 62 68 64 62  |(bhdbl%<24).bhdb|
00004f10  6c 25 3e 32 35 8c c8 99  34 36 2c 32 39 30 2c 53  |l%>25...46,290,S|
00004f20  50 25 2c 22 42 41 4c 4c  31 22 2c 36 34 30 2c 32  |P%,"BALL1",640,2|
00004f30  37 36 0d 1c 16 2b 20 ec  36 34 30 2d 53 43 25 2a  |76...+ .640-SC%*|
00004f40  34 34 2c 32 36 38 3a ec  36 34 30 2b 53 43 25 2a  |44,268:.640+SC%*|
00004f50  34 34 2c 32 36 38 2b 53  43 25 2a 36 36 0d 1c 20  |44,268+SC%*66.. |
00004f60  41 20 c8 99 34 36 2c 32  37 30 2c 53 50 25 2c 22  |A ..46,270,SP%,"|
00004f70  42 48 44 47 46 42 22 2c  30 3a c8 99 34 36 2c 32  |BHDGFB",0:..46,2|
00004f80  39 30 2c 53 50 25 2c 22  42 48 44 47 46 52 22 2c  |90,SP%,"BHDGFR",|
00004f90  36 34 30 2d 53 43 25 2a  34 34 2c 32 36 38 0d 1c  |640-SC%*44,268..|
00004fa0  2a 05 cc 0d 1c 34 29 20  c8 99 34 36 2c 32 39 30  |*....4) ..46,290|
00004fb0  2c 53 50 25 2c 22 42 48  44 47 46 52 22 2c 36 34  |,SP%,"BHDGFR",64|
00004fc0  30 2d 53 43 25 2a 34 34  2c 32 36 38 0d 1c 3e 05  |0-SC%*44,268..>.|
00004fd0  cd 0d 1c 48 0b 6f 62 64  73 25 3d a3 0d 1c 52 17  |...H.obds%=...R.|
00004fe0  62 68 64 62 74 32 25 3d  c8 9c 28 36 34 30 2c 32  |bhdbt2%=..(640,2|
00004ff0  37 36 29 0d 1c 5c 37 e7  28 62 68 64 62 6c 25 3c  |76)..\7.(bhdbl%<|
00005000  32 34 29 84 62 68 64 62  6c 25 3e 32 35 20 c8 99  |24).bhdbl%>25 ..|
00005010  34 36 2c 32 39 30 2c 53  50 25 2c 22 42 41 4c 4c  |46,290,SP%,"BALL|
00005020  31 22 2c 36 34 30 2c 32  37 36 0d 1c 66 16 e7 53  |1",640,276..f..S|
00005030  43 25 3d 33 78 24 3d 22  58 22 8b 78 24 3d 22 22  |C%=3x$="X".x$=""|
00005040  0d 1c 70 17 e7 6f 67 25  8c 63 6c 75 62 25 3d 31  |..p..og%.club%=1|
00005050  34 3a e5 8d 44 4c 5d 0d  1c 7a 0c ef 35 3a e5 8d  |4:..DL]..z..5:..|
00005060  74 4e 5c 0d 1c 84 17 f2  61 72 6f 31 32 28 30 29  |tN\.....aro12(0)|
00005070  3a f2 61 72 6f 33 34 28  31 29 0d 1c 8e 3c e6 30  |:.aro34(1)...<.0|
00005080  2c 34 32 c8 9c 30 3a ec  35 39 36 2c 32 30 30 3a  |,42..0:.596,200:|
00005090  f1 22 41 69 6d 22 3b 3a  e6 30 2c 31 33 c8 9c 31  |."Aim";:.0,13..1|
000050a0  32 38 3a ec 35 34 38 2c  31 35 32 3a f1 22 53 65  |28:.548,152:."Se|
000050b0  6c 65 63 74 22 3b 0d 1c  98 cd e7 4c 48 25 28 70  |lect";.....LH%(p|
000050c0  75 25 29 8c c8 99 34 36  2c 32 39 30 2c 53 50 25  |u%)...46,290,SP%|
000050d0  2c 78 24 2b 22 42 41 47  22 2b c3 28 70 75 25 29  |,x$+"BAG"+.(pu%)|
000050e0  2c 36 34 30 2d 53 43 25  2a 32 36 2c 32 37 32 2c  |,640-SC%*26,272,|
000050f0  38 3a c8 99 34 36 2c 32  39 30 2c 53 50 25 2c 78  |8:..46,290,SP%,x|
00005100  24 2b 22 47 46 52 22 2b  c3 28 70 75 25 29 2b 22  |$+"GFR"+.(pu%)+"|
00005110  30 22 2c 36 34 30 2b 53  43 25 2a 31 30 2c 32 37  |0",640+SC%*10,27|
00005120  32 2c 38 8b c8 99 34 36  2c 32 39 30 2c 53 50 25  |2,8...46,290,SP%|
00005130  2c 78 24 2b 22 42 41 47  22 2b c3 28 70 75 25 29  |,x$+"BAG"+.(pu%)|
00005140  2c 36 34 30 2b 53 43 25  2a 31 30 2c 32 37 32 2c  |,640+SC%*10,272,|
00005150  38 3a c8 99 34 36 2c 32  39 30 2c 53 50 25 2c 78  |8:..46,290,SP%,x|
00005160  24 2b 22 47 46 52 22 2b  c3 28 70 75 25 29 2b 22  |$+"GFR"+.(pu%)+"|
00005170  30 22 2c 36 34 30 2d 53  43 25 2a 32 36 2c 32 37  |0",640-SC%*26,27|
00005180  32 2c 38 0d 1c a2 0a c8  97 88 31 2c 31 0d 1c ac  |2,8.......1,1...|
00005190  47 e7 28 62 61 6c 6c 78  3d 54 45 58 25 28 30 29  |G.(ballx=TEX%(0)|
000051a0  29 80 62 61 6c 6c 79 3d  54 45 59 25 28 30 29 8c  |).bally=TEY%(0).|
000051b0  c8 97 c8 93 30 2c 30 2c  31 32 38 30 2c 31 33 39  |....0,0,1280,139|
000051c0  39 20 8b c8 97 c8 93 30  2c 30 2c 31 32 38 30 2c  |9 .....0,0,1280,|
000051d0  31 32 39 39 0d 1c b6 19  c8 97 b8 36 34 30 2c 31  |1299.......640,1|
000051e0  34 39 39 2d 63 6c 75 62  25 2a 31 30 30 0d 1c c0  |499-club%*100...|
000051f0  05 f5 0d 1c ca 31 20 e7  28 a6 28 2d 35 29 84 a6  |.....1 .(.(-5)..|
00005200  28 2d 38 29 29 80 a6 28  2d 35 36 29 8c 2a 53 43  |(-8))..(-56).*SC|
00005210  52 45 45 4e 53 41 56 45  20 3a 30 2e 4c 4f 41 44  |REENSAVE :0.LOAD|
00005220  53 43 52 0d 1c d4 28 20  c8 97 78 25 2c 79 25 2c  |SCR...( ..x%,y%,|
00005230  62 25 3a e7 62 25 3d 31  8c f2 73 68 6f 77 70 6c  |b%:.b%=1..showpl|
00005240  61 6e 3a c8 97 b8 78 25  2c 79 25 0d 1c de 11 20  |an:...x%,y%.... |
00005250  63 25 3d 31 34 2d 79 25  81 31 30 30 0d 1c e8 11  |c%=14-y%.100....|
00005260  20 e7 63 25 3c 3e 63 6c  75 62 25 20 8c 0d 1c f2  | .c%<>club% ....|
00005270  33 20 20 d4 31 2c 2d 39  2c 31 32 30 2c 30 3a e6  |3  .1,-9,120,0:.|
00005280  30 2c 34 32 c8 9c 36 34  3a ec 35 34 38 2c 31 31  |0,42..64:.548,11|
00005290  32 3a f1 63 6c 75 62 24  28 63 6c 75 62 25 29 3b  |2:.club$(club%);|
000052a0  0d 1c fc 31 20 20 e7 63  6c 75 62 25 3c 31 34 8c  |...1  .club%<14.|
000052b0  ec 35 33 32 2c 38 30 3a  f1 3b 63 6c 75 62 64 69  |.532,80:.;clubdi|
000052c0  73 74 25 28 63 6c 75 62  25 29 22 20 59 64 73 22  |st%(club%)" Yds"|
000052d0  3b 0d 1d 06 30 20 20 63  6c 75 62 25 3d 63 25 3a  |;...0  club%=c%:|
000052e0  e6 30 2c 35 30 c8 9c 36  34 3a ec 35 34 38 2c 31  |.0,50..64:.548,1|
000052f0  31 32 3a f1 63 6c 75 62  24 28 63 6c 75 62 25 29  |12:.club$(club%)|
00005300  3b 0d 1d 10 3a 20 20 e7  63 6c 75 62 25 3c 31 34  |;...:  .club%<14|
00005310  8c e6 30 2c 34 32 c8 9c  30 3a ec 35 33 32 2c 38  |..0,42..0:.532,8|
00005320  30 3a f1 3b 63 6c 75 62  64 69 73 74 25 28 63 6c  |0:.;clubdist%(cl|
00005330  75 62 25 29 22 20 59 64  73 22 3b 0d 1d 1a 06 20  |ub%)" Yds";.... |
00005340  cd 0d 1d 24 09 fd 62 25  3d 34 0d 1d 2e 28 c8 99  |...$..b%=4...(..|
00005350  34 36 2c 32 39 30 2c 53  50 25 2c 22 42 48 44 47  |46,290,SP%,"BHDG|
00005360  46 52 22 2c 36 34 30 2d  53 43 25 2a 34 34 2c 32  |FR",640-SC%*44,2|
00005370  36 38 0d 1d 38 0b f4 5f  5f 5f 41 69 6d 0d 1d 42  |68..8..___Aim..B|
00005380  50 e6 30 2c 31 33 c8 9c  31 32 38 3a ec 35 39 36  |P.0,13..128:.596|
00005390  2c 32 30 30 3a f1 22 41  69 6d 22 3b 3a e6 30 2c  |,200:."Aim";:.0,|
000053a0  34 32 c8 9c 30 3a ec 35  34 38 2c 31 35 32 3a f1  |42..0:.548,152:.|
000053b0  22 53 65 6c 65 63 74 22  3b 3a f2 61 72 6f 31 32  |"Select";:.aro12|
000053c0  28 31 29 3a f2 61 72 6f  33 34 28 30 29 0d 1d 4c  |(1):.aro34(0)..L|
000053d0  32 e7 63 6c 75 62 25 3d  31 34 8c 63 6c 75 62 77  |2.club%=14.clubw|
000053e0  25 3d 31 32 8b 63 6c 75  62 77 25 3d 28 28 31 33  |%=12.clubw%=((13|
000053f0  2d 63 6c 75 62 25 29 81  33 29 2a 34 2b 32 30 0d  |-club%).3)*4+20.|
00005400  1d 56 44 e7 4c 48 25 28  70 75 25 29 8c 6d 78 25  |.VD.LH%(pu%).mx%|
00005410  3d 36 34 30 2d 32 2a 53  43 25 2b 63 6c 75 62 77  |=640-2*SC%+clubw|
00005420  25 2a 53 43 25 2f 32 8b  6d 78 25 3d 36 34 30 2d  |%*SC%/2.mx%=640-|
00005430  31 38 2a 53 43 25 2d 63  6c 75 62 77 25 2a 53 43  |18*SC%-clubw%*SC|
00005440  25 2f 32 0d 1d 60 2e c8  99 34 36 2c 32 39 30 2c  |%/2..`...46,290,|
00005450  53 50 25 2c 78 24 2b 22  47 46 52 22 2b c3 28 70  |SP%,x$+"GFR"+.(p|
00005460  75 25 29 2b 22 31 22 2c  6d 78 25 2c 32 37 32 2c  |u%)+"1",mx%,272,|
00005470  38 0d 1d 6a 2b ec 36 34  30 2c 32 37 36 3a ec 36  |8..j+.640,276:.6|
00005480  34 30 2c 32 37 36 3a c8  99 34 36 2c 32 37 30 2c  |40,276:..46,270,|
00005490  53 50 25 2c 22 42 48 44  42 22 2c 30 0d 1d 74 19  |SP%,"BHDB",0..t.|
000054a0  c8 99 34 36 2c 32 37 30  2c 53 50 25 2c 22 42 48  |..46,270,SP%,"BH|
000054b0  44 53 22 2c 30 0d 1d 7e  37 e7 28 62 68 64 62 6c  |DS",0..~7.(bhdbl|
000054c0  25 3c 32 34 29 84 62 68  64 62 6c 25 3e 32 35 20  |%<24).bhdbl%>25 |
000054d0  c8 99 34 36 2c 32 39 30  2c 53 50 25 2c 22 42 41  |..46,290,SP%,"BA|
000054e0  4c 4c 31 22 2c 36 34 30  2c 32 37 36 0d 1d 88 0d  |LL1",640,276....|
000054f0  e6 30 2c 32 31 c8 9c 36  34 0d 1d 92 79 e7 4c 48  |.0,21..64...y.LH|
00005500  25 28 70 75 25 29 68 78  25 3d 36 34 30 2b 32 2a  |%(pu%)hx%=640+2*|
00005510  53 43 25 2b 63 6c 75 62  77 25 2a 53 43 25 2f 32  |SC%+clubw%*SC%/2|
00005520  3a ec 36 34 34 2c 32 37  36 3a f0 35 2c 68 78 25  |:.644,276:.5,hx%|
00005530  2c 32 36 38 2b 53 43 25  2a 32 32 20 8b 68 78 25  |,268+SC%*22 .hx%|
00005540  3d 36 34 30 2d 32 2a 53  43 25 2d 63 6c 75 62 77  |=640-2*SC%-clubw|
00005550  25 2a 53 43 25 2f 32 3a  ec 36 33 36 2c 32 37 36  |%*SC%/2:.636,276|
00005560  3a f0 35 2c 68 78 25 2c  32 36 38 2b 53 43 25 2a  |:.5,hx%,268+SC%*|
00005570  32 32 0d 1d 9c 0f 72 73  25 3d a3 3a 72 64 25 3d  |22....rs%=.:rd%=|
00005580  a3 0d 1d a6 1e f5 3a f2  77 74 28 2e 32 29 3a c8  |......:.wt(.2):.|
00005590  97 78 25 2c 79 25 2c 62  25 3a fd 62 25 3d 30 0d  |.x%,y%,b%:.b%=0.|
000055a0  1d b0 3f c8 97 c8 93 30  2c 30 2c 31 32 33 36 2c  |..?....0,0,1236,|
000055b0  30 3a 78 25 3d 36 32 30  3a c8 99 34 36 2c 32 39  |0:x%=620:..46,29|
000055c0  30 2c 53 50 25 2c 22 53  49 47 48 54 53 22 2c 78  |0,SP%,"SIGHTS",x|
000055d0  25 2c 32 38 30 2b 53 43  25 2a 37 30 2c 33 0d 1d  |%,280+SC%*70,3..|
000055e0  ba 0c c8 97 20 b8 78 25  2c 30 0d 1d c4 05 f5 0d  |.... .x%,0......|
000055f0  1d ce 16 20 6f 78 25 3d  78 25 3a c8 97 78 25 2c  |... ox%=x%:..x%,|
00005600  79 25 2c 62 25 0d 1d d8  2b 20 e7 62 25 3d 31 8c  |y%,b%...+ .b%=1.|
00005610  f2 73 68 6f 77 70 6c 61  6e 3a c8 97 b8 6f 78 25  |.showplan:...ox%|
00005620  2c 79 25 3a 78 25 3d 6f  78 25 3a e5 8d 54 54 5e  |,y%:x%=ox%:..TT^|
00005630  0d 1d e2 1b 20 e7 ac 6f  67 25 e7 62 25 3d 32 8c  |.... ..og%.b%=2.|
00005640  72 73 25 3d b9 3a e5 8d  54 54 5e 0d 1d ec 07 20  |rs%=.:..TT^.... |
00005650  c8 96 0d 1d f6 61 20 e7  78 25 81 34 3c 3e 6f 78  |.....a .x%.4<>ox|
00005660  25 81 34 8c c8 99 34 36  2c 32 39 30 2c 53 50 25  |%.4...46,290,SP%|
00005670  2c 22 53 49 47 48 54 53  22 2c 6f 78 25 2c 32 38  |,"SIGHTS",ox%,28|
00005680  30 2b 53 43 25 2a 37 30  2c 33 3a c8 99 34 36 2c  |0+SC%*70,3:..46,|
00005690  32 39 30 2c 20 20 20 53  50 25 2c 22 53 49 47 48  |290,   SP%,"SIGH|
000056a0  54 53 22 2c 78 25 2c 32  38 30 2b 53 43 25 2a 37  |TS",x%,280+SC%*7|
000056b0  30 2c 33 0d 1e 00 0b 20  6c 78 25 3d 78 25 0d 1e  |0,3.... lx%=x%..|
000056c0  0a 2b 20 e7 28 28 78 25  3e 31 32 33 32 29 84 78  |.+ .((x%>1232).x|
000056d0  25 3c 34 29 80 28 ac a4  6f 6e 74 65 65 29 80 62  |%<4).(..ontee).b|
000056e0  25 3d 30 8c 72 64 25 3d  b9 0d 1e 14 13 fd 72 73  |%=0.rd%=......rs|
000056f0  25 84 28 62 25 3d 34 29  84 72 64 25 0d 1e 1e 09  |%.(b%=4).rd%....|
00005700  e7 72 64 25 8c 0d 1e 28  0e 20 e7 78 25 3e 31 32  |.rd%...(. .x%>12|
00005710  33 32 8c 0d 1e 32 34 20  20 64 65 76 61 6e 67 2d  |32...24  devang-|
00005720  3d af 2f 34 3a e7 64 65  76 61 6e 67 3e 3d 50 49  |=./4:.devang>=PI|
00005730  33 36 30 20 64 65 76 61  6e 67 3d 64 65 76 61 6e  |360 devang=devan|
00005740  67 2d 50 49 33 36 30 0d  1e 3c 06 20 cc 0d 1e 46  |g-PI360..<. ...F|
00005750  2f 20 20 64 65 76 61 6e  67 2b 3d af 2f 34 3a e7  |/  devang+=./4:.|
00005760  64 65 76 61 6e 67 3c 30  20 64 65 76 61 6e 67 3d  |devang<0 devang=|
00005770  64 65 76 61 6e 67 2b 50  49 33 36 30 0d 1e 50 06  |devang+PI360..P.|
00005780  20 cd 0d 1e 5a 2f 20 c8  99 22 4f 53 5f 49 6e 74  | ...Z/ .."OS_Int|
00005790  4f 66 66 22 3a f2 64 72  61 77 73 68 6f 74 3a c8  |Off":.drawshot:.|
000057a0  99 22 4f 53 5f 49 6e 74  4f 6e 22 3a e5 8d 64 6e  |."OS_IntOn":..dn|
000057b0  5b 0d 1e 64 05 cd 0d 1e  6e 1e f5 3a f2 77 74 28  |[..d....n..:.wt(|
000057c0  2e 32 29 3a c8 97 78 25  2c 79 25 2c 62 25 3a fd  |.2):..x%,y%,b%:.|
000057d0  62 25 3d 30 0d 1e 78 2a  c8 99 34 36 2c 32 39 30  |b%=0..x*..46,290|
000057e0  2c 53 50 25 2c 22 53 49  47 48 54 53 22 2c 6c 78  |,SP%,"SIGHTS",lx|
000057f0  25 2c 32 38 30 2b 53 43  25 2a 37 30 2c 33 0d 1e  |%,280+SC%*70,3..|
00005800  82 33 e7 72 73 25 8c c8  99 34 36 2c 32 39 30 2c  |.3.rs%...46,290,|
00005810  53 50 25 2c 22 42 48 44  47 46 42 22 2c 36 34 30  |SP%,"BHDGFB",640|
00005820  2d 53 43 25 2a 34 34 2c  32 36 38 3a e5 8d 74 44  |-SC%*44,268:..tD|
00005830  5c 0d 1e 8c 20 f2 59 32  31 28 34 34 30 29 3a f2  |\... .Y21(440):.|
00005840  58 32 31 28 6c 78 25 2b  32 32 29 3a f2 58 59 31  |X21(lx%+22):.XY1|
00005850  30 0d 1e 96 19 78 3d 58  30 2d 62 61 6c 6c 78 3a  |0....x=X0-ballx:|
00005860  79 3d 59 30 2d 62 61 6c  6c 79 0d 1e a0 1b e7 78  |y=Y0-bally.....x|
00005870  3d 30 e7 79 3e 30 73 61  6e 67 3d 50 49 39 30 3a  |=0.y>0sang=PI90:|
00005880  e5 8d 64 52 5e 0d 1e aa  1c e7 78 3d 30 e7 79 3c  |..dR^.....x=0.y<|
00005890  30 73 61 6e 67 3d 50 49  32 37 30 3a e5 8d 64 52  |0sang=PI270:..dR|
000058a0  5e 0d 1e b4 18 e7 79 3d  30 e7 78 3c 30 73 61 6e  |^.....y=0.x<0san|
000058b0  67 3d af 3a e5 8d 64 52  5e 0d 1e be 18 e7 79 3d  |g=.:..dR^.....y=|
000058c0  30 e7 78 3e 30 73 61 6e  67 3d 30 3a e5 8d 64 52  |0.x>0sang=0:..dR|
000058d0  5e 0d 1e c8 3d 73 61 6e  67 3d 99 28 79 2f 78 29  |^...=sang=.(y/x)|
000058e0  3a e7 28 79 3c 30 29 80  78 3c 30 8c 73 61 6e 67  |:.(y<0).x<0.sang|
000058f0  3d 73 61 6e 67 2b af 20  8b e7 28 79 3e 30 29 80  |=sang+. ..(y>0).|
00005900  78 3c 30 73 61 6e 67 3d  73 61 6e 67 2d af 0d 1e  |x<0sang=sang-...|
00005910  d2 08 6e 25 3d 30 0d 1e  dc 12 f4 5f 5f 5f 42 61  |..n%=0.....___Ba|
00005920  63 6b 20 73 77 69 6e 67  0d 1e e6 34 6c 25 3d 4c  |ck swing...4l%=L|
00005930  48 25 28 70 75 25 29 2a  32 2b 31 3a 66 3d 63 6c  |H%(pu%)*2+1:f=cl|
00005940  75 62 77 25 2f 31 32 3a  e7 63 6c 75 62 25 3c 31  |ubw%/12:.club%<1|
00005950  34 8c 6d 25 3d 34 8b 6d  25 3d 31 30 0d 1e fa 13  |4.m%=4.m%=10....|
00005960  74 6d 25 3d 2d 31 3a 53  43 3d 53 43 25 2f 32 0d  |tm%=-1:SC=SC%/2.|
00005970  1f 04 05 f5 0d 1f 0e 1a  20 6e 25 3d 6e 25 2b 31  |........ n%=n%+1|
00005980  3a 73 25 3d 28 6e 25 2d  31 29 81 35 2b 31 0d 1f  |:s%=(n%-1).5+1..|
00005990  18 0e 20 e6 30 2c 32 31  c8 9c 36 34 0d 1f 22 25  |.. .0,21..64.."%|
000059a0  20 78 25 3d 28 28 43 48  58 25 28 6e 25 29 2b 48  | x%=((CHX%(n%)+H|
000059b0  4e 58 25 28 6e 25 29 29  2a 6c 25 2a 66 29 2a 53  |NX%(n%))*l%*f)*S|
000059c0  43 0d 1f 2c 2c 20 c8 96  3a c8 99 34 36 2c 32 39  |C..,, ..:..46,29|
000059d0  30 2c 53 50 25 2c 22 42  48 44 47 46 42 22 2c 36  |0,SP%,"BHDGFB",6|
000059e0  34 30 2d 53 43 25 2a 34  34 2c 32 36 38 0d 1f 36  |40-SC%*44,268..6|
000059f0  31 20 c8 99 34 36 2c 32  39 30 2c 53 50 25 2c 78  |1 ..46,290,SP%,x|
00005a00  24 2b 22 47 46 52 22 2b  c3 28 70 75 25 29 2b c3  |$+"GFR"+.(pu%)+.|
00005a10  28 73 25 29 2c 6d 78 25  2c 32 37 32 2c 38 0d 1f  |(s%),mx%,272,8..|
00005a20  40 2d 20 ec 68 78 25 2d  48 4e 58 25 28 6e 25 29  |@- .hx%-HNX%(n%)|
00005a30  2a 6c 25 2a 53 43 2c 32  36 38 2b 28 34 34 2b 48  |*l%*SC,268+(44+H|
00005a40  4e 59 25 28 6e 25 29 29  2a 53 43 0d 1f 4a 32 20  |NY%(n%))*SC..J2 |
00005a50  f0 35 2c 68 78 25 2d 48  4e 58 25 28 6e 25 29 2a  |.5,hx%-HNX%(n%)*|
00005a60  6c 25 2a 53 43 2b 78 25  2c 32 36 38 2b 28 34 34  |l%*SC+x%,268+(44|
00005a70  2b 43 48 59 25 28 6e 25  29 29 2a 53 43 0d 1f 54  |+CHY%(n%))*SC..T|
00005a80  11 20 e7 74 6d 25 3d 2d  31 74 6d 25 3d 91 0d 1f  |. .tm%=-1tm%=...|
00005a90  5e 0a 20 73 74 25 3d 30  0d 1f 68 06 20 f5 0d 1f  |^. st%=0..h. ...|
00005aa0  72 21 20 20 c8 97 78 25  2c 79 25 2c 62 25 3a e7  |r!  ..x%,y%,b%:.|
00005ab0  62 25 3c 3e 30 8c 73 74  25 3d 91 2d 74 6d 25 0d  |b%<>0.st%=.-tm%.|
00005ac0  1f 7c 13 20 fd 28 91 2d  74 6d 25 29 3e 6e 25 2a  |.|. .(.-tm%)>n%*|
00005ad0  6d 25 0d 1f 86 44 fd 28  73 74 25 3e 30 29 84 28  |m%...D.(st%>0).(|
00005ae0  28 28 6e 25 3d 34 35 29  80 63 6c 75 62 25 3c 31  |((n%=45).club%<1|
00005af0  34 29 84 28 28 6e 25 3d  32 30 29 80 63 6c 75 62  |4).((n%=20).club|
00005b00  25 3d 31 34 29 84 28 28  6e 25 3d 32 35 29 80 53  |%=14).((n%=25).S|
00005b10  43 25 3d 33 29 29 0d 1f  90 13 e7 73 74 25 3d 30  |C%=3)).....st%=0|
00005b20  73 74 25 3d 91 2d 74 6d  25 0d 1f 9a 0f e7 63 6c  |st%=.-tm%.....cl|
00005b30  75 62 25 3d 31 34 20 8c  0d 1f a4 12 20 70 6f 77  |ub%=14 ..... pow|
00005b40  65 72 3d 73 74 25 2f 32  30 31 0d 1f ae 05 cc 0d  |er=st%/201......|
00005b50  1f b8 12 20 70 6f 77 65  72 3d 73 74 25 2f 31 36  |... power=st%/16|
00005b60  35 0d 1f c2 40 20 e7 70  6f 77 65 72 3e 31 8c 70  |5...@ .power>1.p|
00005b70  6f 77 65 72 3d 31 2b 28  70 6f 77 65 72 2d 31 29  |ower=1+(power-1)|
00005b80  2f 32 3a 70 6f 77 65 72  3d 70 6f 77 65 72 2d 28  |/2:power=power-(|
00005b90  b3 28 31 29 2a 28 70 6f  77 65 72 2d 31 29 2a 33  |.(1)*(power-1)*3|
00005ba0  29 0d 1f cc 05 cd 0d 1f  d6 2a f2 77 74 28 2e 33  |)........*.wt(.3|
00005bb0  29 3a 73 73 25 3d 28 73  25 3c 36 29 3a 68 6c 25  |):ss%=(s%<6):hl%|
00005bc0  3d 6e 25 3a 6e 25 3d 6e  25 2b 31 3a 68 25 3d 30  |=n%:n%=n%+1:h%=0|
00005bd0  0d 1f ea 2e e7 63 6c 75  62 25 3d 31 34 8c 43 25  |.....club%=14.C%|
00005be0  3d 32 8b e7 52 25 8c 43  25 3d 36 8b e7 63 6c 75  |=2..R%.C%=6..clu|
00005bf0  62 25 3c 33 8c 43 25 3d  31 8b 43 25 3d 35 0d 1f  |b%<3.C%=1.C%=5..|
00005c00  f4 08 53 25 3d a3 0d 1f  fe 11 f4 5f 5f 44 6f 77  |..S%=......__Dow|
00005c10  6e 20 73 77 69 6e 67 0d  20 08 09 6f 62 25 3d 30  |n swing. ..ob%=0|
00005c20  0d 20 12 05 f5 0d 20 1c  12 20 74 6d 25 3d 91 3a  |. .... .. tm%=.:|
00005c30  6e 25 3d 6e 25 2d 31 0d  20 26 28 20 e7 73 73 25  |n%=n%-1. &( .ss%|
00005c40  8c 73 25 3d 28 6e 25 2d  31 29 81 35 2b 31 20 8b  |.s%=(n%-1).5+1 .|
00005c50  73 25 3d 31 37 2d 28 6e  25 2d 20 31 29 81 35 0d  |s%=17-(n%- 1).5.|
00005c60  20 30 2d 20 e6 30 2c 32  31 c8 9c 36 34 3a 78 25  | 0- .0,21..64:x%|
00005c70  3d 28 43 48 58 25 28 6e  25 29 2b 48 4e 58 25 28  |=(CHX%(n%)+HNX%(|
00005c80  6e 25 29 29 2a 6c 25 2a  66 2a 53 43 0d 20 3a 37  |n%))*l%*f*SC. :7|
00005c90  20 e7 ac 53 25 e7 28 6e  25 3c 36 29 80 43 25 3c  | ..S%.(n%<6).C%<|
00005ca0  3e 32 8c d4 43 25 2c 2d  36 2d a4 6d 69 6e 28 70  |>2..C%,-6-.min(p|
00005cb0  6f 77 65 72 2a 31 30 2c  39 29 2c 30 2c 30 3a 53  |ower*10,9),0,0:S|
00005cc0  25 3d b9 0d 20 44 2c 20  c8 96 3a c8 99 34 36 2c  |%=.. D, ..:..46,|
00005cd0  32 39 30 2c 53 50 25 2c  22 42 48 44 47 46 42 22  |290,SP%,"BHDGFB"|
00005ce0  2c 36 34 30 2d 53 43 25  2a 34 34 2c 32 36 38 0d  |,640-SC%*44,268.|
00005cf0  20 4e 31 20 c8 99 34 36  2c 32 39 30 2c 53 50 25  | N1 ..46,290,SP%|
00005d00  2c 78 24 2b 22 47 46 52  22 2b c3 28 70 75 25 29  |,x$+"GFR"+.(pu%)|
00005d10  2b c3 28 73 25 29 2c 6d  78 25 2c 32 37 32 2c 38  |+.(s%),mx%,272,8|
00005d20  0d 20 58 2d 20 ec 68 78  25 2d 48 4e 58 25 28 6e  |. X- .hx%-HNX%(n|
00005d30  25 29 2a 6c 25 2a 53 43  2c 32 36 38 2b 28 34 34  |%)*l%*SC,268+(44|
00005d40  2b 48 4e 59 25 28 6e 25  29 29 2a 53 43 0d 20 62  |+HNY%(n%))*SC. b|
00005d50  32 20 f0 35 2c 68 78 25  2d 48 4e 58 25 28 6e 25  |2 .5,hx%-HNX%(n%|
00005d60  29 2a 6c 25 2a 53 43 2b  78 25 2c 32 36 38 2b 28  |)*l%*SC+x%,268+(|
00005d70  34 34 2b 43 48 59 25 28  6e 25 29 29 2a 53 43 0d  |44+CHY%(n%))*SC.|
00005d80  20 6c 06 20 f5 0d 20 76  24 20 20 c8 97 78 25 2c  | l. .. v$  ..x%,|
00005d90  79 25 2c 62 25 3a e7 62  25 3c 3e 30 8c e7 6f 62  |y%,b%:.b%<>0..ob|
00005da0  25 3d 30 8c 68 25 3d 6e  25 0d 20 8a 0c 20 20 6f  |%=0.h%=n%. ..  o|
00005db0  62 25 3d 62 25 0d 20 94  12 20 fd 28 91 2d 74 6d  |b%=b%. .. .(.-tm|
00005dc0  25 29 3e 6d 25 2f 34 0d  20 9e 09 fd 6e 25 3d 30  |%)>m%/4. ...n%=0|
00005dd0  0d 20 a8 22 e7 43 25 3d  32 d4 32 2c 2d 39 2d a4  |. .".C%=2.2,-9-.|
00005de0  6d 69 6e 28 70 6f 77 65  72 2a 37 2c 36 29 2c 30  |min(power*7,6),0|
00005df0  2c 30 0d 20 b2 3a e7 68  25 3d 30 8c 68 6f 6f 6b  |,0. .:.h%=0.hook|
00005e00  3d 28 b3 28 31 29 2d 2e  35 29 2a 33 2e 36 8b 68  |=(.(1)-.5)*3.6.h|
00005e10  6f 6f 6b 3d 28 28 28 68  25 2b b3 28 31 29 29 2f  |ook=(((h%+.(1))/|
00005e20  68 6c 25 29 2d 2e 35 29  2a 33 2e 36 0d 20 bc 17  |hl%)-.5)*3.6. ..|
00005e30  e7 4c 48 25 28 70 75 25  29 68 6f 6f 6b 3d 2d 68  |.LH%(pu%)hook=-h|
00005e40  6f 6f 6b 0d 20 c6 2b e7  94 28 68 6f 6f 6b 29 3e  |ook. .+..(hook)>|
00005e50  2e 36 8c 68 6f 6f 6b 3d  68 6f 6f 6b 2f 32 2b 2e  |.6.hook=hook/2+.|
00005e60  33 2a 68 6f 6f 6b 2f 94  28 68 6f 6f 6b 29 0d 20  |3*hook/.(hook). |
00005e70  d0 35 68 6f 6f 6b 3d 68  6f 6f 6b 2a 70 6f 77 65  |.5hook=hook*powe|
00005e80  72 5e 2e 37 3a e7 53 4c  3d 32 68 6f 6f 6b 3d 30  |r^.7:.SL=2hook=0|
00005e90  8b e7 53 4c 3d 31 2e 35  68 6f 6f 6b 3d 68 6f 6f  |..SL=1.5hook=hoo|
00005ea0  6b 2f 32 0d 20 e4 0d 6d  61 6e 78 25 3d 6d 78 25  |k/2. ..manx%=mx%|
00005eb0  0d 20 ee 05 e1 0d 20 f8  05 20 0d 21 0c 0e dd f2  |. .... .. .!....|
00005ec0  73 68 6f 77 70 6c 61 6e  0d 21 16 19 ea 78 25 2c  |showplan.!...x%,|
00005ed0  79 25 2c 62 25 2c 74 25  2c 63 25 2c 62 78 2c 62  |y%,b%,t%,c%,bx,b|
00005ee0  79 0d 21 20 0c 2a 46 58  31 31 33 2c 31 0d 21 2a  |y.! .*FX113,1.!*|
00005ef0  0c 2a 46 58 31 31 32 2c  31 0d 21 34 37 62 78 3d  |.*FX112,1.!47bx=|
00005f00  62 61 6c 6c 78 28 70 75  25 29 3a 62 79 3d 62 61  |ballx(pu%):by=ba|
00005f10  6c 6c 79 28 70 75 25 29  3a 63 25 3d b0 62 78 2c  |lly(pu%):c%=.bx,|
00005f20  62 79 29 3a 74 25 3d c8  9c 28 62 78 2c 62 79 29  |by):t%=..(bx,by)|
00005f30  0d 21 48 16 e6 30 2c 36  33 c8 9c 31 39 32 3a c8  |.!H..0,63..192:.|
00005f40  92 62 78 2c 62 79 0d 21  52 27 f5 c8 97 78 25 2c  |.bx,by.!R'...x%,|
00005f50  79 25 2c 62 25 3a fd 62  25 3d 30 3a f5 c8 97 78  |y%,b%:.b%=0:...x|
00005f60  25 2c 79 25 2c 62 25 3a  fd 62 25 3e 30 0d 21 66  |%,y%,b%:.b%>0.!f|
00005f70  15 e6 30 2c 63 25 c8 9c  74 25 3a c8 92 62 78 2c  |..0,c%..t%:..bx,|
00005f80  62 79 0d 21 70 0c 2a 46  58 31 31 33 2c 30 0d 21  |by.!p.*FX113,0.!|
00005f90  7a 0c 2a 46 58 31 31 32  2c 30 0d 21 84 15 f5 c8  |z.*FX112,0.!....|
00005fa0  97 78 25 2c 79 25 2c 62  25 3a fd 62 25 3d 30 0d  |.x%,y%,b%:.b%=0.|
00005fb0  21 8e 05 e1 0d 21 a2 05  20 0d 21 ac 0d dd f2 61  |!....!.. .!....a|
00005fc0  6e 69 6d 61 74 65 0d 21  b6 0b f2 66 6c 69 67 68  |nimate.!...fligh|
00005fd0  74 0d 21 c0 38 62 61 6c  6c 78 28 70 75 25 29 3d  |t.!.8ballx(pu%)=|
00005fe0  62 61 6c 6c 78 3a 62 61  6c 6c 79 28 70 75 25 29  |ballx:bally(pu%)|
00005ff0  3d 62 61 6c 6c 79 3a 62  68 64 62 6c 25 28 70 75  |=bally:bhdbl%(pu|
00006000  25 29 3d 62 68 64 62 6c  25 0d 21 ca 2e 73 63 6f  |%)=bhdbl%.!..sco|
00006010  72 65 25 28 70 75 25 2c  68 6f 6c 65 25 29 2b 3d  |re%(pu%,hole%)+=|
00006020  31 3a 69 73 74 73 68 6f  74 25 3d a3 3a 68 6f 6c  |1:istshot%=.:hol|
00006030  65 6f 75 74 25 3d a3 0d  21 e8 05 e1 0d 21 f2 05  |eout%=..!....!..|
00006040  20 0d 22 06 0c dd f2 66  6c 69 67 68 74 0d 22 10  | ."....flight.".|
00006050  82 ea 6f 79 31 2c 6f 78  32 2c 6f 62 79 32 2c 6f  |..oy1,ox2,oby2,o|
00006060  73 79 32 2c 62 78 2c 62  79 2c 62 7a 2c 62 73 76  |sy2,bx,by,bz,bsv|
00006070  2c 77 78 2c 77 79 2c 76  78 2c 76 79 2c 76 7a 2c  |,wx,wy,vx,vy,vz,|
00006080  6f 76 65 6c 2c 6f 78 32  2c 6f 62 79 32 2c 6f 73  |ovel,ox2,oby2,os|
00006090  79 32 2c 62 68 25 2c 62  68 79 25 2c 62 73 25 2c  |y2,bh%,bhy%,bs%,|
000060a0  62 62 25 2c 67 68 2c 77  65 2c 68 65 2c 76 78 6f  |bb%,gh,we,he,vxo|
000060b0  2c 62 7a 68 2c 65 73 25  2c 67 73 25 2c 74 74 25  |,bzh,es%,gs%,tt%|
000060c0  2c 54 53 25 2c 4c 53 25  2c 68 66 25 2c 68 6b 0d  |,TS%,LS%,hf%,hk.|
000060d0  22 1a 24 e7 73 73 25 8c  67 73 25 3d 32 30 3a 65  |".$.ss%.gs%=20:e|
000060e0  73 25 3d 32 31 8b 67 73  25 3d 33 30 3a 65 73 25  |s%=21.gs%=30:es%|
000060f0  3d 33 32 0d 22 24 23 68  74 25 3d 2d 31 3a 74 74  |=32."$#ht%=-1:tt|
00006100  25 3d a3 3a 54 53 25 3d  a3 3a 4c 53 25 3d a3 3a  |%=.:TS%=.:LS%=.:|
00006110  62 70 25 3d 2d 31 0d 22  2e 24 62 78 3d 62 61 6c  |bp%=-1.".$bx=bal|
00006120  6c 78 3a 62 79 3d 62 61  6c 6c 79 3a 62 7a 3d 62  |lx:by=bally:bz=b|
00006130  61 6c 6c 7a 3a 68 66 25  3d a3 0d 22 38 2d 69 77  |allz:hf%=.."8-iw|
00006140  25 3d a3 3a 77 78 3d 77  69 6e 64 25 2a 9b 28 77  |%=.:wx=wind%*.(w|
00006150  61 6e 67 30 29 3a 77 79  3d 77 69 6e 64 25 2a b5  |ang0):wy=wind%*.|
00006160  28 77 61 6e 67 30 29 0d  22 42 0e e7 63 6c 75 62  |(wang0)."B..club|
00006170  25 3c 31 34 8c 0d 22 4c  31 20 70 6f 77 65 72 3d  |%<14.."L1 power=|
00006180  70 6f 77 65 72 2a 28 31  2e 30 30 36 2d 70 6f 77  |power*(1.006-pow|
00006190  65 72 2a 28 94 28 68 6f  6f 6b 2d 2e 31 29 5e 31  |er*(.(hook-.1)^1|
000061a0  2e 34 29 2f 39 29 0d 22  56 12 20 62 73 76 3d 70  |.4)/9)."V. bsv=p|
000061b0  6f 77 65 72 2a 2e 30 32  0d 22 60 25 20 76 78 3d  |ower*.02."`% vx=|
000061c0  70 6f 77 65 72 2a 63 6c  75 62 76 65 6c 78 28 63  |power*clubvelx(c|
000061d0  6c 75 62 25 29 2a 9b 28  73 61 6e 67 29 0d 22 6a  |lub%)*.(sang)."j|
000061e0  25 20 76 79 3d 70 6f 77  65 72 2a 63 6c 75 62 76  |% vy=power*clubv|
000061f0  65 6c 78 28 63 6c 75 62  25 29 2a b5 28 73 61 6e  |elx(club%)*.(san|
00006200  67 29 0d 22 74 1d 20 76  7a 3d 70 6f 77 65 72 2a  |g)."t. vz=power*|
00006210  63 6c 75 62 76 65 6c 7a  28 63 6c 75 62 25 29 0d  |clubvelz(club%).|
00006220  22 7e 1f 20 6f 76 65 6c  3d 70 6f 77 65 72 2a 63  |"~. ovel=power*c|
00006230  6c 75 62 76 65 6c 78 28  63 6c 75 62 25 29 0d 22  |lubvelx(club%)."|
00006240  88 0f 20 e7 ac a4 6f 6e  74 65 65 20 8c 0d 22 92  |.. ...ontee ..".|
00006250  14 20 20 66 61 3d a4 52  68 74 28 62 78 2c 62 79  |.  fa=.Rht(bx,by|
00006260  29 0d 22 9c 32 20 20 66  61 3d 28 34 2b 76 78 2a  |).".2  fa=(4+vx*|
00006270  a4 73 6c 6f 70 65 78 28  62 78 2c 62 79 29 2b 76  |.slopex(bx,by)+v|
00006280  79 2a a4 73 6c 6f 70 65  79 28 62 78 2c 62 79 29  |y*.slopey(bx,by)|
00006290  29 2f 34 0d 22 a6 3f 20  20 76 7a 3d 76 7a 2a 66  |)/4.".?  vz=vz*f|
000062a0  61 3a 76 78 3d 76 78 2a  32 2f 28 31 2b 66 61 29  |a:vx=vx*2/(1+fa)|
000062b0  3a 76 79 3d 76 79 2a 32  2f 28 31 2b 66 61 29 3a  |:vy=vy*2/(1+fa):|
000062c0  6f 76 65 6c 3d 6f 76 65  6c 2a 32 2f 28 31 2b 66  |ovel=ovel*2/(1+f|
000062d0  61 29 0d 22 b0 06 20 cd  0d 22 ba 05 cd 0d 22 c4  |a).".. .."....".|
000062e0  09 62 68 25 3d a3 0d 22  ce 1d 6f 78 32 3d 36 34  |.bh%=.."..ox2=64|
000062f0  30 3a 6f 62 79 32 3d 32  37 36 3a 6f 73 79 32 3d  |0:oby2=276:osy2=|
00006300  32 37 36 0d 22 d8 24 f4  5f 5f 5f 5f 62 63 6b 73  |276.".$.____bcks|
00006310  70 6e 2f 65 66 66 65 63  74 20 6f 66 20 72 6f 75  |pn/effect of rou|
00006320  67 68 20 65 74 63 2e 0d  22 e2 27 62 73 78 3d 2d  |gh etc..".'bsx=-|
00006330  28 70 6f 77 65 72 5e 32  29 2a 28 6f 76 65 6c 2b  |(power^2)*(ovel+|
00006340  32 29 2a 9b 28 73 61 6e  67 29 2a 2e 30 38 0d 22  |2)*.(sang)*.08."|
00006350  ec 27 62 73 79 3d 2d 28  70 6f 77 65 72 5e 32 29  |.'bsy=-(power^2)|
00006360  2a 28 6f 76 65 6c 2b 32  29 2a b5 28 73 61 6e 67  |*(ovel+2)*.(sang|
00006370  29 2a 2e 30 38 0d 22 f6  10 e7 ac a4 6f 6e 67 72  |)*.08.".....ongr|
00006380  65 65 6e 20 8c 0d 23 00  16 20 e7 28 62 68 64 62  |een ..#.. .(bhdb|
00006390  6c 32 25 3d 42 63 6f 6c  25 29 8c 0d 23 0a 2d 20  |l2%=Bcol%)..#.- |
000063a0  20 66 3d 31 2b b3 28 31  29 2a 94 28 31 2d 70 6f  | f=1+.(1)*.(1-po|
000063b0  77 65 72 29 3a 62 73 78  3d 62 73 78 2a 66 3a 62  |wer):bsx=bsx*f:b|
000063c0  73 79 3d 62 73 79 2a 66  0d 23 14 29 20 20 63 25  |sy=bsy*f.#.)  c%|
000063d0  3d 42 64 65 70 74 68 2a  32 2e 35 2b 34 2e 37 3a  |=Bdepth*2.5+4.7:|
000063e0  66 3d 31 2d 28 31 36 2d  63 6c 75 62 25 29 2f 31  |f=1-(16-club%)/1|
000063f0  36 0d 23 28 2c 20 20 e7  63 6c 75 62 25 3c 63 25  |6.#(,  .club%<c%|
00006400  8c 66 3d 66 2a b3 28 31  29 2a b3 28 31 29 8b 66  |.f=f*.(1)*.(1).f|
00006410  3d b3 28 31 29 2a 28 31  2d 66 29 2b 66 0d 23 32  |=.(1)*(1-f)+f.#2|
00006420  1d 20 20 76 78 3d 76 78  2a 66 3a 76 79 3d 76 79  |.  vx=vx*f:vy=vy|
00006430  2a 66 3a 76 7a 3d 76 7a  2a 66 0d 23 3c 06 20 cc  |*f:vz=vz*f.#<. .|
00006440  0d 23 46 26 20 e7 28 62  68 64 62 6c 25 3d 34 29  |.#F& .(bhdbl%=4)|
00006450  84 28 62 68 64 62 6c 25  3d 35 29 84 62 68 64 62  |.(bhdbl%=5).bhdb|
00006460  6c 25 3d 31 30 8c 0d 23  50 1d 20 20 62 73 78 3d  |l%=10..#P.  bsx=|
00006470  62 73 78 2a 2e 36 32 3a  62 73 79 3d 62 73 79 2a  |bsx*.62:bsy=bsy*|
00006480  2e 36 32 0d 23 5a 2d 20  20 66 3d 31 2d 28 31 33  |.62.#Z-  f=1-(13|
00006490  2d 63 6c 75 62 25 2b 72  6f 75 67 68 25 29 2f 36  |-club%+rough%)/6|
000064a0  30 3a 66 3d b3 28 31 29  2a 28 31 2d 66 29 2b 66  |0:f=.(1)*(1-f)+f|
000064b0  0d 23 64 1d 20 20 76 78  3d 76 78 2a 66 3a 76 79  |.#d.  vx=vx*f:vy|
000064c0  3d 76 79 2a 66 3a 76 7a  3d 76 7a 2a 66 0d 23 6e  |=vy*f:vz=vz*f.#n|
000064d0  06 20 cc 0d 23 78 1c 20  e7 28 62 68 64 62 6c 25  |. ..#x. .(bhdbl%|
000064e0  3d 32 34 29 84 62 68 64  62 6c 25 3d 32 35 8c 0d  |=24).bhdbl%=25..|
000064f0  23 82 19 20 20 62 73 78  3d 62 73 78 2f 33 3a 62  |#..  bsx=bsx/3:b|
00006500  73 79 3d 62 73 79 2f 33  0d 23 8c 3f 20 20 66 3d  |sy=bsy/3.#.?  f=|
00006510  b6 28 31 2d 28 31 35 2d  63 6c 75 62 25 29 2f 31  |.(1-(15-club%)/1|
00006520  36 29 3a 66 3d 66 2a 36  2f 28 36 2b 72 6f 75 67  |6):f=f*6/(6+roug|
00006530  68 25 29 3a 66 3d b3 28  31 29 2a b3 28 31 29 2a  |h%):f=.(1)*.(1)*|
00006540  28 31 2d 66 29 2b 66 0d  23 96 1d 20 20 76 78 3d  |(1-f)+f.#..  vx=|
00006550  76 78 2a 66 3a 76 79 3d  76 79 2a 66 3a 76 7a 3d  |vx*f:vy=vy*f:vz=|
00006560  76 7a 2a 66 0d 23 a0 06  20 cd 0d 23 aa 06 20 cd  |vz*f.#.. ..#.. .|
00006570  0d 23 b4 06 20 cd 0d 23  be 05 cd 0d 23 c8 08 41  |.#.. ..#....#..A|
00006580  25 3d 30 0d 23 d2 0e e7  63 6c 75 62 25 3d 31 34  |%=0.#...club%=14|
00006590  8c 0d 23 dc 22 20 e7 62  68 64 62 6c 32 25 3d 42  |..#." .bhdbl2%=B|
000065a0  63 6f 6c 25 66 3d b3 28  31 29 2a b3 28 31 29 8b  |col%f=.(1)*.(1).|
000065b0  66 3d 31 0d 23 e6 09 20  73 25 3d 31 0d 23 f0 1f  |f=1.#.. s%=1.#..|
000065c0  20 76 78 3d 66 2a 70 6f  77 65 72 5e 31 2e 33 2a  | vx=f*power^1.3*|
000065d0  9b 28 73 61 6e 67 29 2a  32 2e 38 0d 23 fa 1f 20  |.(sang)*2.8.#.. |
000065e0  76 79 3d 66 2a 70 6f 77  65 72 5e 31 2e 33 2a b5  |vy=f*power^1.3*.|
000065f0  28 73 61 6e 67 29 2a 32  2e 38 0d 24 04 0a 20 e5  |(sang)*2.8.$.. .|
00006600  8d 54 7a 6a 0d 24 0e 05  cd 0d 24 18 1b 68 6b 3d  |.Tzj.$....$..hk=|
00006610  68 6f 6f 6b 2a 28 6f 76  65 6c 5e 2e 38 29 2f 32  |hook*(ovel^.8)/2|
00006620  35 35 30 30 0d 24 22 0b  e3 66 25 3d 31 b8 33 0d  |5500.$"..f%=1.3.|
00006630  24 2c 11 20 69 76 7a 3d  76 7a 3a 54 49 25 3d 91  |$,. ivz=vz:TI%=.|
00006640  0d 24 36 06 20 f5 0d 24  40 0d 20 20 41 25 3d 41  |.$6. ..$@.  A%=A|
00006650  25 2b 31 0d 24 4a 39 20  20 77 65 3d 28 62 7a 2d  |%+1.$J9  we=(bz-|
00006660  67 68 2a 2e 33 2d 62 61  6c 6c 7a 2a 2e 37 2b 32  |gh*.3-ballz*.7+2|
00006670  2e 35 2a 76 78 2a 76 78  2b 32 2e 35 2a 76 79 2a  |.5*vx*vx+2.5*vy*|
00006680  76 79 2b 35 29 2f 33 34  30 30 30 30 0d 24 54 1a  |vy+5)/340000.$T.|
00006690  20 20 68 65 3d 94 28 62  7a 2d 62 61 6c 6c 7a 2b  |  he=.(bz-ballz+|
000066a0  35 30 29 2a 68 6b 0d 24  5e 1d 20 20 76 78 6f 3d  |50)*hk.$^.  vxo=|
000066b0  76 78 2a 2e 39 39 35 2b  77 78 2a 77 65 2d 68 65  |vx*.995+wx*we-he|
000066c0  2a 76 79 0d 24 68 1d 20  20 76 79 3d 76 79 2a 2e  |*vy.$h.  vy=vy*.|
000066d0  39 39 35 2b 77 79 2a 77  65 2b 68 65 2a 76 78 6f  |995+wy*we+he*vxo|
000066e0  0d 24 72 1a 20 20 76 78  3d 76 78 6f 3a 6f 62 78  |.$r.  vx=vxo:obx|
000066f0  3d 62 78 3a 6f 62 79 3d  62 79 0d 24 86 33 20 20  |=bx:oby=by.$.3  |
00006700  62 78 3d 62 78 2b 76 78  2b 77 78 2a 77 65 3a 62  |bx=bx+vx+wx*we:b|
00006710  79 3d 62 79 2b 76 79 2b  77 79 2a 77 65 3a 62 7a  |y=by+vy+wy*we:bz|
00006720  2b 3d 76 7a 3a 2a 46 58  31 31 32 2c 31 0d 24 90  |+=vz:*FX112,1.$.|
00006730  1d 20 20 62 68 64 62 6c  25 3d b0 62 78 2c 62 79  |.  bhdbl%=.bx,by|
00006740  29 3a 2a 46 58 31 31 32  2c 30 0d 24 a4 21 20 20  |):*FX112,0.$.!  |
00006750  76 7a 3d 76 7a 2d 2e 30  31 39 33 2b 62 73 76 3a  |vz=vz-.0193+bsv:|
00006760  62 73 76 3d 62 73 76 2a  2e 39 38 0d 24 ae 22 20  |bsv=bsv*.98.$." |
00006770  20 67 68 3d a4 47 68 74  28 62 78 2c 62 79 29 3a  | gh=.Ght(bx,by):|
00006780  e7 62 7a 3c 67 68 20 8c  62 7a 3d 67 68 0d 24 b8  |.bz<gh .bz=gh.$.|
00006790  18 20 20 e7 28 ac 68 66  25 29 80 28 62 7a 2d 67  |.  .(.hf%).(bz-g|
000067a0  68 29 3c 37 8c 0d 24 c2  28 20 20 20 e7 28 66 6c  |h)<7..$.(   .(fl|
000067b0  61 67 78 25 2d 62 78 29  5e 32 2b 28 66 6c 61 67  |agx%-bx)^2+(flag|
000067c0  79 25 2d 62 79 29 5e 32  3c 2e 30 35 8c 0d 24 cc  |y%-by)^2<.05..$.|
000067d0  13 20 20 20 20 f4 5f 5f  68 69 74 20 66 6c 61 67  |.    .__hit flag|
000067e0  0d 24 d6 39 20 20 20 20  76 78 3d 76 78 2a 28 2e  |.$.9    vx=vx*(.|
000067f0  33 2d b3 28 31 29 2a 2e  36 29 3a 76 79 3d 76 79  |3-.(1)*.6):vy=vy|
00006800  2a 28 2e 33 2d b3 28 31  29 2a 2e 36 29 3a 62 73  |*(.3-.(1)*.6):bs|
00006810  78 3d 30 3a 62 73 79 3d  30 0d 24 e0 2d 20 20 20  |x=0:bsy=0.$.-   |
00006820  20 76 7a 3d 76 7a 2a b3  28 31 29 3a d4 34 2c 2d  | vz=vz*.(1):.4,-|
00006830  31 35 2b 79 64 73 25 81  34 30 2c 31 37 30 2c 31  |15+yds%.40,170,1|
00006840  3a 68 66 25 3d b9 0d 24  ea 08 20 20 20 cd 0d 24  |:hf%=..$..   ..$|
00006850  f4 07 20 20 cd 0d 24 fe  33 20 20 e7 28 62 68 64  |..  ..$.3  .(bhd|
00006860  62 6c 25 3d 39 29 84 28  62 68 64 62 6c 25 3d 35  |bl%=9).(bhdbl%=5|
00006870  29 84 28 62 68 64 62 6c  25 3d 32 32 29 84 62 68  |).(bhdbl%=22).bh|
00006880  64 62 6c 25 3d 32 35 8c  0d 25 08 18 20 20 20 f4  |dbl%=25..%..   .|
00006890  5f 5f 63 68 65 63 6b 20  66 6f 72 20 74 72 65 65  |__check for tree|
000068a0  0d 25 12 1f 20 20 20 e7  68 74 25 3d 2d 31 8c 68  |.%..   .ht%=-1.h|
000068b0  74 25 3d a4 74 72 65 65  28 62 78 2c 62 79 29 0d  |t%=.tree(bx,by).|
000068c0  25 1c 24 20 20 20 e7 54  64 69 73 74 3c 54 57 25  |%.$   .Tdist<TW%|
000068d0  28 74 72 65 65 74 79 70  25 28 68 74 25 29 29 2f  |(treetyp%(ht%))/|
000068e0  31 34 8c 0d 25 26 26 20  20 20 20 e7 62 7a 2d 67  |14..%&&    .bz-g|
000068f0  68 3c 54 48 25 28 74 72  65 65 74 79 70 25 28 68  |h<TH%(treetyp%(h|
00006900  74 25 29 29 2f 34 2e 38  8c 0d 25 30 27 20 20 20  |t%))/4.8..%0'   |
00006910  20 20 f2 58 59 30 31 28  74 72 65 65 78 25 28 68  |  .XY01(treex%(h|
00006920  74 25 29 2c 74 72 65 65  79 25 28 68 74 25 29 29  |t%),treey%(ht%))|
00006930  0d 25 3a 12 20 20 20 20  20 e7 59 31 3e 3d 32 30  |.%:.     .Y1>=20|
00006940  30 8c 0d 25 44 0f 20 20  20 20 20 20 74 74 25 3d  |0..%D.      tt%=|
00006950  b9 0d 25 4e 20 20 20 20  20 20 20 e7 54 4c 25 28  |..%N       .TL%(|
00006960  74 72 65 65 74 79 70 25  28 68 74 25 29 29 3d 30  |treetyp%(ht%))=0|
00006970  8c 0d 25 58 16 20 20 20  20 20 20 20 f4 5f 5f 68  |..%X.       .__h|
00006980  69 74 20 62 75 73 68 0d  25 62 27 20 20 20 20 20  |it bush.%b'     |
00006990  20 20 76 78 3d 76 78 2f  34 3a 76 79 3d 76 79 2f  |  vx=vx/4:vy=vy/|
000069a0  34 3a 76 7a 3d 76 7a 2d  b3 28 31 29 2f 37 0d 25  |4:vz=vz-.(1)/7.%|
000069b0  6c 30 20 20 20 20 20 20  20 e7 ac 4c 53 25 4c 53  |l0       ..LS%LS|
000069c0  25 3d b9 3a d4 34 2c 2d  a4 6d 69 6e 28 31 35 2c  |%=.:.4,-.min(15,|
000069d0  39 2b 31 33 30 30 2f 59  31 29 2c 30 2c 30 0d 25  |9+1300/Y1),0,0.%|
000069e0  76 0b 20 20 20 20 20 20  cc 0d 25 80 29 20 20 20  |v.      ..%.)   |
000069f0  20 20 20 20 e7 62 7a 2d  67 68 3e 54 4c 25 28 74  |    .bz-gh>TL%(t|
00006a00  72 65 65 74 79 70 25 28  68 74 25 29 29 2f 32 2e  |reetyp%(ht%))/2.|
00006a10  37 8c 0d 25 8a 18 20 20  20 20 20 20 20 20 f4 5f  |7..%..        ._|
00006a20  5f 5f 68 69 74 20 74 72  65 65 0d 25 94 2a 20 20  |__hit tree.%.*  |
00006a30  20 20 20 20 20 20 76 78  3d 76 78 2a 28 2e 39 39  |      vx=vx*(.99|
00006a40  2d b3 28 31 29 5e 35 29  2b 28 b3 28 31 29 2d 2e  |-.(1)^5)+(.(1)-.|
00006a50  35 29 2f 38 0d 25 9e 38  20 20 20 20 20 20 20 20  |5)/8.%.8        |
00006a60  76 79 3d 76 79 2a 28 2e  39 39 2d b3 28 31 29 5e  |vy=vy*(.99-.(1)^|
00006a70  35 29 2b 28 b3 28 31 29  2d 2e 35 29 2f 38 3a 76  |5)+(.(1)-.5)/8:v|
00006a80  7a 3d 76 7a 2d b3 28 35  29 2f 36 30 0d 25 b2 31  |z=vz-.(5)/60.%.1|
00006a90  20 20 20 20 20 20 20 20  e7 ac 4c 53 25 4c 53 25  |        ..LS%LS%|
00006aa0  3d b9 3a d4 34 2c 2d a4  6d 69 6e 28 31 35 2c 39  |=.:.4,-.min(15,9|
00006ab0  2b 31 33 30 30 2f 59 31  29 2c 30 2c 30 0d 25 bc  |+1300/Y1),0,0.%.|
00006ac0  0c 20 20 20 20 20 20 20  cc 0d 25 c6 24 20 20 20  |.       ..%.$   |
00006ad0  20 20 20 20 20 e7 28 62  62 25 3d 31 29 84 28 62  |     .(bb%=1).(b|
00006ae0  62 25 3d 36 29 84 62 62  25 3d 36 33 8c 0d 25 d0  |b%=6).bb%=63..%.|
00006af0  3d 20 20 20 20 20 20 20  20 20 74 78 25 3d 74 72  |=         tx%=tr|
00006b00  65 65 78 25 28 68 74 25  29 3a 74 79 25 3d 74 72  |eex%(ht%):ty%=tr|
00006b10  65 65 79 25 28 68 74 25  29 3a 76 3d b6 28 76 78  |eey%(ht%):v=.(vx|
00006b20  2a 76 78 2b 76 79 2a 76  79 29 0d 25 da 14 20 20  |*vx+vy*vy).%..  |
00006b30  20 20 20 20 20 20 20 e3  69 25 3d 31 b8 38 0d 25  |       .i%=1.8.%|
00006b40  e4 3b 20 20 20 20 20 20  20 20 20 20 78 3d 28 6f  |.;          x=(o|
00006b50  62 78 2a 28 38 2d 69 25  29 2b 62 78 2a 69 25 29  |bx*(8-i%)+bx*i%)|
00006b60  2f 38 3a 79 3d 28 6f 62  79 2a 28 38 2d 69 25 29  |/8:y=(oby*(8-i%)|
00006b70  2b 62 79 2a 69 25 29 2f  38 0d 25 f8 2b 20 20 20  |+by*i%)/8.%.+   |
00006b80  20 20 20 20 20 20 20 64  3d b6 28 28 28 78 2d 74  |       d=.(((x-t|
00006b90  78 25 29 5e 32 2b 28 79  2d 74 79 25 29 5e 32 29  |x%)^2+(y-ty%)^2)|
00006ba0  29 2b 2e 31 0d 26 02 1a  20 20 20 20 20 20 20 20  |)+.1.&..        |
00006bb0  20 20 e7 28 64 3c 32 29  80 ac 54 53 25 8c 0d 26  |  .(d<2)..TS%..&|
00006bc0  0c 1b 20 20 20 20 20 20  20 20 20 20 20 f4 5f 5f  |..           .__|
00006bd0  68 69 74 20 74 72 75 6e  6b 0d 26 16 18 20 20 20  |hit trunk.&..   |
00006be0  20 20 20 20 20 20 20 20  62 78 3d 78 3a 62 79 3d  |        bx=x:by=|
00006bf0  79 0d 26 20 3c 20 20 20  20 20 20 20 20 20 20 20  |y.& <           |
00006c00  76 78 3d 28 78 2d 74 78  25 29 2f 64 2a 76 2a 2e  |vx=(x-tx%)/d*v*.|
00006c10  35 2a b3 28 31 29 3a 76  79 3d 28 79 2d 74 79 25  |5*.(1):vy=(y-ty%|
00006c20  29 2f 64 2a 76 2a 2e 35  2a b3 28 31 29 0d 26 34  |)/d*v*.5*.(1).&4|
00006c30  1b 20 20 20 20 20 20 20  20 20 20 20 76 7a 3d 76  |.           vz=v|
00006c40  7a 2d b3 28 31 29 2f 35  0d 26 3e 34 20 20 20 20  |z-.(1)/5.&>4    |
00006c50  20 20 20 20 20 20 20 69  25 3d 39 3a 54 53 25 3d  |       i%=9:TS%=|
00006c60  b9 3a d4 33 2c 2d a4 6d  69 6e 28 31 35 2c 39 2b  |.:.3,-.min(15,9+|
00006c70  31 33 30 30 2f 59 31 29  2c 30 2c 30 0d 26 48 0f  |1300/Y1),0,0.&H.|
00006c80  20 20 20 20 20 20 20 20  20 20 cd 0d 26 52 0e 20  |          ..&R. |
00006c90  20 20 20 20 20 20 20 20  ed 0d 26 5c 0d 20 20 20  |        ..&\.   |
00006ca0  20 20 20 20 20 cd 0d 26  66 0c 20 20 20 20 20 20  |     ..&f.      |
00006cb0  20 cd 0d 26 70 0b 20 20  20 20 20 20 cd 0d 26 7a  | ..&p.      ..&z|
00006cc0  0a 20 20 20 20 20 cd 0d  26 84 09 20 20 20 20 cd  |.     ..&..    .|
00006cd0  0d 26 8e 08 20 20 20 cc  0d 26 98 1a 20 20 20 20  |.&..   ..&..    |
00006ce0  68 74 25 3d 2d 31 3a 4c  53 25 3d a3 3a 54 53 25  |ht%=-1:LS%=.:TS%|
00006cf0  3d a3 0d 26 a2 08 20 20  20 cd 0d 26 ac 07 20 20  |=..&..   ..&..  |
00006d00  cd 0d 26 b6 1f 20 20 f2  58 59 30 31 28 62 78 2c  |..&..  .XY01(bx,|
00006d10  62 79 29 3a f2 58 59 31  32 28 58 31 2c 59 31 29  |by):.XY12(X1,Y1)|
00006d20  0d 26 c0 3f 20 20 62 7a  68 3d a4 68 74 32 28 62  |.&.?  bzh=.ht2(b|
00006d30  61 6c 6c 7a 2c 59 31 29  3a 62 7a 32 3d a4 68 74  |allz,Y1):bz2=.ht|
00006d40  32 28 62 7a 2c 59 31 29  2d 62 7a 68 3a 73 68 3d  |2(bz,Y1)-bzh:sh=|
00006d50  a4 68 74 32 28 67 68 2c  59 31 29 2d 62 7a 68 0d  |.ht2(gh,Y1)-bzh.|
00006d60  26 ca 1f 20 20 73 25 3d  a4 6d 69 6e 28 34 2c 28  |&..  s%=.min(4,(|
00006d70  59 31 2d 32 30 30 29 81  31 34 30 2b 31 29 0d 26  |Y1-200).140+1).&|
00006d80  d4 1a 20 20 e7 28 ac 62  68 25 29 80 6f 79 31 2b  |..  .(.bh%).oy1+|
00006d90  2e 31 36 3c 59 31 20 8c  0d 26 de 23 20 20 20 e7  |.16<Y1 ..&.#   .|
00006da0  6f 73 79 32 3e 59 32 2b  73 68 20 62 68 25 3d b9  |osy2>Y2+sh bh%=.|
00006db0  3a 62 68 79 25 3d 59 32  2b 73 68 0d 26 e8 07 20  |:bhy%=Y2+sh.&.. |
00006dc0  20 cc 0d 26 f2 1c 20 20  20 e7 62 68 25 e7 59 32  | ..&..   .bh%.Y2|
00006dd0  2b 73 68 3e 62 68 79 25  20 62 68 25 3d a3 0d 26  |+sh>bhy% bh%=..&|
00006de0  fc 07 20 20 cd 0d 27 06  0c 20 20 6f 79 31 3d 59  |..  ..'..  oy1=Y|
00006df0  31 0d 27 10 11 20 20 e7  28 41 25 83 34 3d 30 29  |1.'..  .(A%.4=0)|
00006e00  20 8c 0d 27 1a 1a 20 20  20 e7 28 63 6c 75 62 25  | ..'..   .(club%|
00006e10  3c 31 34 29 80 41 25 3c  31 37 20 8c 0d 27 24 2c  |<14).A%<17 ..'$,|
00006e20  20 20 20 20 c8 99 34 36  2c 32 39 30 2c 53 50 25  |    ..46,290,SP%|
00006e30  2c 22 42 48 44 47 46 52  22 2c 36 34 30 2d 53 43  |,"BHDGFR",640-SC|
00006e40  25 2a 34 34 2c 32 36 38  0d 27 2e 37 20 20 20 20  |%*44,268.'.7    |
00006e50  c8 99 34 36 2c 32 39 30  2c 53 50 25 2c 78 24 2b  |..46,290,SP%,x$+|
00006e60  22 47 46 52 22 2b c3 28  70 75 25 29 2b c3 28 67  |"GFR"+.(pu%)+.(g|
00006e70  73 25 29 2c 6d 61 6e 78  25 2c 32 37 32 2c 38 0d  |s%),manx%,272,8.|
00006e80  27 38 19 20 20 20 20 e7  67 73 25 3c 65 73 25 67  |'8.    .gs%<es%g|
00006e90  73 25 3d 67 73 25 2b 31  0d 27 42 08 20 20 20 cd  |s%=gs%+1.'B.   .|
00006ea0  0d 27 4c 07 20 20 cd 0d  27 56 3f 20 20 c8 99 34  |.'L.  ..'V?  ..4|
00006eb0  36 2c 32 39 30 2c 53 50  25 2c 22 42 48 44 53 22  |6,290,SP%,"BHDS"|
00006ec0  2c 6f 78 32 2c 6f 73 79  32 3a c8 99 34 36 2c 32  |,ox2,osy2:..46,2|
00006ed0  39 30 2c 53 50 25 2c 22  42 48 44 42 22 2c 6f 78  |90,SP%,"BHDB",ox|
00006ee0  32 2c 6f 62 79 32 0d 27  60 2f 20 20 ec 58 32 2c  |2,oby2.'`/  .X2,|
00006ef0  59 32 2b 73 68 3a ec 58  32 2c 59 32 2b 73 68 3a  |Y2+sh:.X2,Y2+sh:|
00006f00  c8 99 34 36 2c 32 37 30  2c 53 50 25 2c 22 42 48  |..46,270,SP%,"BH|
00006f10  44 53 22 2c 30 0d 27 6a  40 20 20 62 73 25 3d b0  |DS",0.'j@  bs%=.|
00006f20  58 32 2c 59 32 2b 73 68  29 3a ec 58 32 2c 59 32  |X2,Y2+sh):.X2,Y2|
00006f30  2b 62 7a 32 3a ec 58 32  2c 59 32 2b 62 7a 32 3a  |+bz2:.X2,Y2+bz2:|
00006f40  c8 99 34 36 2c 32 37 30  2c 53 50 25 2c 22 42 48  |..46,270,SP%,"BH|
00006f50  44 42 22 2c 30 0d 27 74  15 20 20 62 62 25 3d b0  |DB",0.'t.  bb%=.|
00006f60  58 32 2c 59 32 2b 62 7a  32 29 0d 27 7e 15 20 20  |X2,Y2+bz2).'~.  |
00006f70  e7 28 ac 62 68 25 29 80  62 7a 3e 67 68 20 8c 0d  |.(.bh%).bz>gh ..|
00006f80  27 88 3e 20 20 20 e7 62  73 25 3c 3e 42 63 6f 6c  |'.>   .bs%<>Bcol|
00006f90  25 8c e7 ac a4 62 68 64  6f 62 6a 28 62 73 25 29  |%....bhdobj(bs%)|
00006fa0  8c c8 99 34 36 2c 32 39  30 2c 53 50 25 2c 22 53  |...46,290,SP%,"S|
00006fb0  48 44 4f 22 2c 58 32 2c  59 32 2b 73 68 0d 27 92  |HDO",X2,Y2+sh.'.|
00006fc0  07 20 20 cd 0d 27 9c 1c  20 20 e7 28 28 ac 62 68  |.  ..'..  .((.bh|
00006fd0  25 29 84 59 32 2b 62 7a  32 3e 62 68 79 25 29 8c  |%).Y2+bz2>bhy%).|
00006fe0  0d 27 a6 2b 20 20 20 e7  ac 28 28 67 68 3d 62 7a  |.'.+   ..((gh=bz|
00006ff0  29 80 28 28 62 68 64 62  6c 25 3d 32 34 29 84 62  |).((bhdbl%=24).b|
00007000  68 64 62 6c 25 3d 32 35  29 29 8c 0d 27 b0 2d 20  |hdbl%=25))..'.- |
00007010  20 20 20 e7 ac 28 a4 62  68 64 6f 62 6a 28 62 62  |   ..(.bhdobj(bb|
00007020  25 29 80 28 28 76 7a 3c  30 29 84 28 66 25 3e 31  |%).((vz<0).(f%>1|
00007030  29 84 74 74 25 29 29 8c  0d 27 ba 2c 20 20 20 20  |).tt%))..'.,    |
00007040  20 c8 99 34 36 2c 32 39  30 2c 53 50 25 2c 22 42  | ..46,290,SP%,"B|
00007050  41 4c 4c 22 2b c3 28 73  25 29 2c 58 32 2c 59 32  |ALL"+.(s%),X2,Y2|
00007060  2b 62 7a 32 0d 27 c4 09  20 20 20 20 cd 0d 27 ce  |+bz2.'..    ..'.|
00007070  08 20 20 20 cd 0d 27 d8  07 20 20 cd 0d 27 e2 23  |.   ..'..  ..'.#|
00007080  20 20 6f 78 32 3d 58 32  3a 6f 62 79 32 3d 59 32  |  ox2=X2:oby2=Y2|
00007090  2b 62 7a 32 3a 6f 73 79  32 3d 59 32 2b 73 68 0d  |+bz2:osy2=Y2+sh.|
000070a0  27 ec 11 20 20 e7 91 2d  54 49 25 3c 33 8c c8 96  |'..  ..-TI%<3...|
000070b0  0d 27 f6 0b 20 20 54 49  25 3d 91 0d 28 00 0b 20  |.'..  TI%=..(.. |
000070c0  fd 67 68 3d 62 7a 0d 28  0a 10 20 f4 5f 5f 5f 5f  |.gh=bz.(.. .____|
000070d0  62 6f 75 6e 63 65 0d 28  14 12 20 68 3d a4 52 68  |bounce.(.. h=.Rh|
000070e0  74 28 62 78 2c 62 79 29  0d 28 1e 27 20 e7 28 66  |t(bx,by).(.' .(f|
000070f0  6c 61 67 78 25 2d 62 78  29 5e 32 2b 28 66 6c 61  |lagx%-bx)^2+(fla|
00007100  67 79 25 2d 62 79 29 5e  32 3c 2e 30 37 36 8c 0d  |gy%-by)^2<.076..|
00007110  28 28 44 20 20 e7 b3 28  35 29 3d 31 c8 99 34 36  |((D  ..(5)=1..46|
00007120  2c 32 39 30 2c 53 50 25  2c 22 42 48 44 53 22 2c  |,290,SP%,"BHDS",|
00007130  58 32 2c 59 32 2b 62 7a  32 3a 68 6f 6c 65 64 25  |X2,Y2+bz2:holed%|
00007140  28 70 75 25 29 3d b9 3a  f2 68 6f 6c 65 64 3a 66  |(pu%)=.:.holed:f|
00007150  25 3d 33 0d 28 50 06 20  cd 0d 28 5a 36 20 76 78  |%=3.(P. ..(Z6 vx|
00007160  3d 76 78 2d a4 73 6c 6f  70 65 78 28 62 78 2c 62  |=vx-.slopex(bx,b|
00007170  79 29 2f 34 2e 35 3a 76  79 3d 76 79 2d a4 73 6c  |y)/4.5:vy=vy-.sl|
00007180  6f 70 65 79 28 62 78 2c  62 79 29 2f 34 2e 35 0d  |opey(bx,by)/4.5.|
00007190  28 6e 48 20 76 7a 3d 76  7a 2a 2e 30 34 2b 69 76  |(nH vz=vz*.04+iv|
000071a0  7a 2a 28 2e 34 2b b3 28  31 29 2f 31 33 29 3a 66  |z*(.4+.(1)/13):f|
000071b0  61 3d 31 2d 2e 34 36 2a  28 70 6f 77 65 72 5e 2e  |a=1-.46*(power^.|
000071c0  35 29 2f 66 25 3a 76 78  3d 76 78 2a 66 61 3a 76  |5)/f%:vx=vx*fa:v|
000071d0  79 3d 76 79 2a 66 61 0d  28 82 1c 20 e7 28 62 68  |y=vy*fa.(.. .(bh|
000071e0  64 62 6c 25 3d 34 29 84  28 62 68 64 62 6c 25 3d  |dbl%=4).(bhdbl%=|
000071f0  35 29 8c 0d 28 8c 23 20  20 76 78 3d 76 78 2a 2e  |5)..(.#  vx=vx*.|
00007200  37 31 3a 76 79 3d 76 79  2a 2e 37 31 3a 76 7a 3d  |71:vy=vy*.71:vz=|
00007210  76 7a 2a 2e 37 31 0d 28  96 06 20 cc 0d 28 a0 30  |vz*.71.(.. ..(.0|
00007220  20 e7 28 62 68 64 62 6c  25 3d 32 34 29 84 28 62  | .(bhdbl%=24).(b|
00007230  68 64 62 6c 25 3d 32 35  29 84 a4 6f 75 74 6f 66  |hdbl%=25)..outof|
00007240  62 6e 64 73 28 62 78 2c  62 79 29 8c 0d 28 aa 20  |bnds(bx,by)..(. |
00007250  20 20 76 78 3d 76 78 2a  2e 35 3a 76 79 3d 76 79  |  vx=vx*.5:vy=vy|
00007260  2a 2e 35 3a 76 7a 3d 76  7a 2a 2e 35 0d 28 b4 06  |*.5:vz=vz*.5.(..|
00007270  20 cc 0d 28 be 1d 20 e7  28 62 68 64 62 6c 25 3d  | ..(.. .(bhdbl%=|
00007280  31 32 29 84 28 62 68 64  62 6c 25 3d 30 29 8c 0d  |12).(bhdbl%=0)..|
00007290  28 c8 19 20 20 76 78 3d  76 78 2b 62 73 78 3a 76  |(..  vx=vx+bsx:v|
000072a0  79 3d 76 79 2b 62 73 79  0d 28 d2 06 20 cc 0d 28  |y=vy+bsy.(.. ..(|
000072b0  dc 12 20 e7 28 62 68 64  62 6c 25 3d 31 30 29 8c  |.. .(bhdbl%=10).|
000072c0  0d 28 e6 1d 20 20 76 78  3d 76 78 2f 38 3a 76 79  |.(..  vx=vx/8:vy|
000072d0  3d 76 79 2f 38 3a 76 7a  3d 76 7a 2f 38 0d 28 f0  |=vy/8:vz=vz/8.(.|
000072e0  0d 20 20 6d 25 3d 39 39  39 39 0d 28 fa 10 20 20  |.  m%=9999.(..  |
000072f0  e3 69 25 3d 31 b8 42 52  50 25 0d 29 04 3f 20 20  |.i%=1.BRP%.).?  |
00007300  20 64 25 3d b6 28 28 62  78 2d 42 52 58 25 28 69  | d%=.((bx-BRX%(i|
00007310  25 29 29 5e 32 2b 28 62  79 2d 42 52 59 25 28 69  |%))^2+(by-BRY%(i|
00007320  25 29 29 5e 32 29 3a e7  64 25 3c 6d 25 6d 25 3d  |%))^2):.d%<m%m%=|
00007330  64 25 3a 62 70 25 3d 69  25 0d 29 0e 07 20 20 ed  |d%:bp%=i%.)..  .|
00007340  0d 29 18 2f 20 20 76 78  3d 76 78 2b 28 42 52 58  |.)./  vx=vx+(BRX|
00007350  25 28 62 70 25 29 2d 62  78 29 2a 28 6d 25 2b 38  |%(bp%)-bx)*(m%+8|
00007360  30 29 2a 42 64 65 70 74  68 2f 31 31 30 30 30 0d  |0)*Bdepth/11000.|
00007370  29 22 2f 20 20 76 79 3d  76 79 2b 28 42 52 59 25  |)"/  vy=vy+(BRY%|
00007380  28 62 70 25 29 2d 62 79  29 2a 28 6d 25 2b 38 30  |(bp%)-by)*(m%+80|
00007390  29 2a 42 64 65 70 74 68  2f 31 31 30 30 30 0d 29  |)*Bdepth/11000.)|
000073a0  2c 06 20 cc 0d 29 36 1a  20 e7 28 62 68 64 62 6c  |,. ..)6. .(bhdbl|
000073b0  25 3d 38 29 84 62 68 64  62 6c 25 3d 39 8c 0d 29  |%=8).bhdbl%=9..)|
000073c0  40 23 20 20 76 78 3d 76  78 2a 2e 37 39 3a 76 79  |@#  vx=vx*.79:vy|
000073d0  3d 76 79 2a 2e 37 39 3a  76 7a 3d 76 7a 2a 2e 37  |=vy*.79:vz=vz*.7|
000073e0  39 0d 29 4a 06 20 cc 0d  29 54 12 20 e7 28 62 68  |9.)J. ..)T. .(bh|
000073f0  64 62 6c 25 3d 33 36 29  8c 0d 29 5e 2b 20 20 73  |dbl%=36)..)^+  s|
00007400  63 6f 72 65 25 28 70 75  25 2c 68 6f 6c 65 25 29  |core%(pu%,hole%)|
00007410  3d 73 63 6f 72 65 25 28  70 75 25 2c 68 6f 6c 65  |=score%(pu%,hole|
00007420  25 29 2b 31 0d 29 68 32  20 20 c8 99 34 36 2c 32  |%)+1.)h2  ..46,2|
00007430  39 30 2c 53 50 25 2c 22  42 48 44 53 22 2c 58 32  |90,SP%,"BHDS",X2|
00007440  2c 59 32 2b 62 7a 32 3a  f2 69 6e 77 61 74 65 72  |,Y2+bz2:.inwater|
00007450  3a 69 77 25 3d b9 0d 29  72 19 20 20 51 25 3d 30  |:iw%=..)r.  Q%=0|
00007460  3a 52 25 3d 31 36 3a 2a  46 58 31 31 32 2c 31 0d  |:R%=16:*FX112,1.|
00007470  29 7c 12 20 20 f2 63 77  78 79 28 62 78 2c 62 79  |)|.  .cwxy(bx,by|
00007480  29 0d 29 86 07 20 20 f5  0d 29 90 2e 20 20 20 62  |).)..  ..)..   b|
00007490  78 3d 63 77 78 2b b3 28  31 29 2a 52 25 2d 52 25  |x=cwx+.(1)*R%-R%|
000074a0  81 32 3a 62 79 3d 63 77  79 2b b3 28 31 29 2a 52  |.2:by=cwy+.(1)*R|
000074b0  25 2d 52 25 81 32 0d 29  a4 20 20 20 20 51 25 3d  |%-R%.2.).    Q%=|
000074c0  51 25 2b 31 3a e7 28 51  25 83 35 30 29 3d 31 52  |Q%+1:.(Q%.50)=1R|
000074d0  25 3d 52 25 2b 38 0d 29  ae 6c 20 20 fd 28 b0 62  |%=R%+8.).l  .(.b|
000074e0  78 2c 62 79 29 3c 3e 33  36 29 80 28 b0 62 78 2b  |x,by)<>36).(.bx+|
000074f0  34 2c 62 79 2b 34 29 3c  3e 33 36 29 80 28 b0 62  |4,by+4)<>36).(.b|
00007500  78 2d 34 2c 62 79 2b 34  29 3c 3e 33 36 20 20 29  |x-4,by+4)<>36  )|
00007510  80 28 b0 62 78 2d 34 2c  62 79 2d 34 29 3c 3e 33  |.(.bx-4,by-4)<>3|
00007520  36 29 80 28 b0 62 78 2b  34 2c 62 79 2d 34 29 3c  |6).(.bx+4,by-4)<|
00007530  3e 33 36 29 80 28 b0 62  78 2c 62 79 29 3c 3e 31  |>36).(.bx,by)<>1|
00007540  30 29 0d 29 b8 0e 20 20  2a 46 58 31 31 32 2c 30  |0).)..  *FX112,0|
00007550  0d 29 c2 0a 20 20 66 25  3d 34 0d 29 cc 06 20 cd  |.)..  f%=4.).. .|
00007560  0d 29 d6 06 20 cd 0d 29  e0 06 20 cd 0d 29 ea 06  |.).. ..).. ..)..|
00007570  20 cd 0d 29 f4 06 20 cd  0d 29 fe 06 20 cd 0d 2a  | ..).. ..).. ..*|
00007580  08 1a 20 62 73 78 3d 62  73 78 2a 2e 33 3a 62 73  |.. bsx=bsx*.3:bs|
00007590  79 3d 62 73 79 2a 2e 33  0d 2a 12 05 ed 0d 2a 1c  |y=bsy*.3.*....*.|
000075a0  12 e7 68 6f 6c 65 64 25  28 70 75 25 29 8c e1 0d  |..holed%(pu%)...|
000075b0  2a 26 0d e7 69 77 25 8c  8d 64 5a 6f 0d 2a 30 17  |*&..iw%..dZo.*0.|
000075c0  76 78 3d 76 78 2a 31 2e  34 3a 76 79 3d 76 79 2a  |vx=vx*1.4:vy=vy*|
000075d0  31 2e 34 0d 2a 3a 0d f4  5f 5f 5f 5f 72 6f 6c 6c  |1.4.*:..____roll|
000075e0  0d 2a 44 1c 65 6f 73 25  3d a3 3a 73 74 25 3d 30  |.*D.eos%=.:st%=0|
000075f0  3a 72 74 25 3d a3 3a 68  66 25 3d a3 0d 2a 4e 0e  |:rt%=.:hf%=..*N.|
00007600  42 25 3d 30 3a 54 49 25  3d 91 0d 2a 58 05 f5 0d  |B%=0:TI%=..*X...|
00007610  2a 62 1a 20 41 25 3d 41  25 2b 31 3a 6f 62 78 3d  |*b. A%=A%+1:obx=|
00007620  62 78 3a 6f 62 79 3d 62  79 0d 2a 6c 36 20 76 78  |bx:oby=by.*l6 vx|
00007630  3d 76 78 2a 28 2e 39 35  31 2b 47 73 70 65 65 64  |=vx*(.951+Gspeed|
00007640  25 2f 35 30 30 29 3a 76  79 3d 76 79 2a 28 2e 39  |%/500):vy=vy*(.9|
00007650  35 31 2b 47 73 70 65 65  64 25 2f 35 30 30 29 0d  |51+Gspeed%/500).|
00007660  2a 80 38 20 62 78 3d 62  78 2b 76 78 3a 62 79 3d  |*.8 bx=bx+vx:by=|
00007670  62 79 2b 76 79 3a 67 68  3d a4 52 68 74 28 62 78  |by+vy:gh=.Rht(bx|
00007680  2c 62 79 29 3a 76 78 79  3d b6 28 76 78 2a 76 78  |,by):vxy=.(vx*vx|
00007690  2b 76 79 2a 76 79 29 0d  2a 8a 34 20 76 78 3d 76  |+vy*vy).*.4 vx=v|
000076a0  78 2d a4 73 6c 6f 70 65  78 28 62 78 2c 62 79 29  |x-.slopex(bx,by)|
000076b0  2f 36 34 3a 76 79 3d 76  79 2d a4 73 6c 6f 70 65  |/64:vy=vy-.slope|
000076c0  79 28 62 78 2c 62 79 29  2f 36 34 0d 2a 9e 0d 20  |y(bx,by)/64.*.. |
000076d0  2a 46 58 31 31 32 2c 31  0d 2a a8 1c 20 62 68 64  |*FX112,1.*.. bhd|
000076e0  62 6c 25 3d b0 62 78 2c  62 79 29 3a 2a 46 58 31  |bl%=.bx,by):*FX1|
000076f0  31 32 2c 30 0d 2a bc 0b  20 e7 ac 72 74 25 8c 0d  |12,0.*.. ..rt%..|
00007700  2a c6 27 20 20 e7 28 62  68 64 62 6c 25 3d 39 29  |*.'  .(bhdbl%=9)|
00007710  84 28 62 68 64 62 6c 25  3d 35 29 84 62 68 64 62  |.(bhdbl%=5).bhdb|
00007720  6c 25 3d 32 35 8c 0d 2a  d0 18 20 20 20 f4 5f 5f  |l%=25..*..   .__|
00007730  63 68 65 63 6b 20 66 6f  72 20 74 72 65 65 0d 2a  |check for tree.*|
00007740  da 1f 20 20 20 e7 68 74  25 3d 2d 31 8c 68 74 25  |..   .ht%=-1.ht%|
00007750  3d a4 74 72 65 65 28 62  78 2c 62 79 29 0d 2a e4  |=.tree(bx,by).*.|
00007760  24 20 20 20 e7 54 64 69  73 74 3c 54 57 25 28 74  |$   .Tdist<TW%(t|
00007770  72 65 65 74 79 70 25 28  68 74 25 29 29 2f 31 34  |reetyp%(ht%))/14|
00007780  8c 0d 2a ee 17 20 20 20  20 70 25 3d b0 58 32 2c  |..*..    p%=.X2,|
00007790  59 32 2b 73 68 2b 34 29  0d 2a f8 1d 20 20 20 20  |Y2+sh+4).*..    |
000077a0  e7 28 70 25 3d 31 29 84  28 70 25 3d 36 29 84 70  |.(p%=1).(p%=6).p|
000077b0  25 3d 36 33 8c 0d 2b 02  28 20 20 20 20 20 74 78  |%=63..+.(     tx|
000077c0  25 3d 74 72 65 65 78 25  28 68 74 25 29 3a 74 79  |%=treex%(ht%):ty|
000077d0  25 3d 74 72 65 65 79 25  28 68 74 25 29 0d 2b 0c  |%=treey%(ht%).+.|
000077e0  39 20 20 20 20 20 76 3d  b6 28 76 78 2a 76 78 2b  |9     v=.(vx*vx+|
000077f0  76 79 2a 76 79 29 3a 64  3d b6 28 28 28 62 78 2d  |vy*vy):d=.(((bx-|
00007800  74 78 25 29 5e 32 2b 28  62 79 2d 74 79 25 29 5e  |tx%)^2+(by-ty%)^|
00007810  32 29 29 2b 2e 31 0d 2b  20 15 20 20 20 20 20 e7  |2))+.1.+ .     .|
00007820  28 64 3c 35 29 80 ac 54  53 25 8c 0d 2b 2a 16 20  |(d<5)..TS%..+*. |
00007830  20 20 20 20 20 f4 5f 5f  68 69 74 20 74 72 75 6e  |     .__hit trun|
00007840  6b 0d 2b 34 39 20 20 20  20 20 20 76 78 3d 28 62  |k.+49      vx=(b|
00007850  78 2d 74 78 25 29 2f 64  2a 76 2a b3 28 31 29 2a  |x-tx%)/d*v*.(1)*|
00007860  2e 38 3a 76 79 3d 28 62  79 2d 74 79 25 29 2f 64  |.8:vy=(by-ty%)/d|
00007870  2a 76 2a b3 28 31 29 2a  2e 38 0d 2b 48 1f 20 20  |*v*.(1)*.8.+H.  |
00007880  20 20 20 20 72 74 25 3d  b9 3a 54 53 25 3d b9 3a  |    rt%=.:TS%=.:|
00007890  d4 33 2c 2d 36 2c 30 2c  30 0d 2b 52 0a 20 20 20  |.3,-6,0,0.+R.   |
000078a0  20 20 cd 0d 2b 5c 09 20  20 20 20 cd 0d 2b 66 08  |  ..+\.    ..+f.|
000078b0  20 20 20 cc 0d 2b 70 0e  20 20 20 20 68 74 25 3d  |   ..+p.    ht%=|
000078c0  2d 31 0d 2b 7a 08 20 20  20 cd 0d 2b 84 07 20 20  |-1.+z.   ..+..  |
000078d0  cd 0d 2b 8e 06 20 cd 0d  2b 98 1c 20 e7 28 62 68  |..+.. ..+.. .(bh|
000078e0  64 62 6c 25 3d 38 29 84  28 62 68 64 62 6c 25 3d  |dbl%=8).(bhdbl%=|
000078f0  39 29 8c 0d 2b a2 2b 20  20 66 3d 2e 39 36 2b b3  |9)..+.+  f=.96+.|
00007900  28 31 29 2f 34 30 3a 76  78 3d 76 78 2a 66 3a 76  |(1)/40:vx=vx*f:v|
00007910  79 3d 76 79 2a 66 3a 76  7a 3d 76 7a 2a 66 0d 2b  |y=vy*f:vz=vz*f.+|
00007920  ac 06 20 cc 0d 2b b6 1c  20 e7 28 62 68 64 62 6c  |.. ..+.. .(bhdbl|
00007930  25 3d 34 29 84 28 62 68  64 62 6c 25 3d 35 29 8c  |%=4).(bhdbl%=5).|
00007940  0d 2b c0 2b 20 20 66 3d  2e 39 33 2b b3 28 31 29  |.+.+  f=.93+.(1)|
00007950  2f 35 30 3a 76 78 3d 76  78 2a 66 3a 76 79 3d 76  |/50:vx=vx*f:vy=v|
00007960  79 2a 66 3a 76 7a 3d 76  7a 2a 66 0d 2b ca 06 20  |y*f:vz=vz*f.+.. |
00007970  cc 0d 2b d4 30 20 e7 28  62 68 64 62 6c 25 3d 32  |..+.0 .(bhdbl%=2|
00007980  34 29 84 28 62 68 64 62  6c 25 3d 32 35 29 84 a4  |4).(bhdbl%=25)..|
00007990  6f 75 74 6f 66 62 6e 64  73 28 62 78 2c 62 79 29  |outofbnds(bx,by)|
000079a0  8c 0d 2b de 2b 20 20 66  3d 2e 38 39 2b b3 28 31  |..+.+  f=.89+.(1|
000079b0  29 2f 35 30 3a 76 78 3d  76 78 2a 66 3a 76 79 3d  |)/50:vx=vx*f:vy=|
000079c0  76 79 2a 66 3a 76 7a 3d  76 7a 2a 66 0d 2b e8 06  |vy*f:vz=vz*f.+..|
000079d0  20 cc 0d 2b f2 10 20 e7  62 68 64 62 6c 25 3d 31  | ..+.. .bhdbl%=1|
000079e0  30 8c 0d 2b fc 17 20 20  76 78 3d 76 78 2a 2e 37  |0..+..  vx=vx*.7|
000079f0  3a 76 79 3d 76 79 2a 2e  37 0d 2c 06 0e 20 20 e7  |:vy=vy*.7.,..  .|
00007a00  62 70 25 3d 2d 31 8c 0d  2c 10 0e 20 20 20 6d 25  |bp%=-1..,..   m%|
00007a10  3d 39 39 39 39 0d 2c 1a  11 20 20 20 e3 69 25 3d  |=9999.,..   .i%=|
00007a20  31 b8 42 52 50 25 0d 2c  24 40 20 20 20 20 64 25  |1.BRP%.,$@    d%|
00007a30  3d b6 28 28 62 78 2d 42  52 58 25 28 69 25 29 29  |=.((bx-BRX%(i%))|
00007a40  5e 32 2b 28 62 79 2d 42  52 59 25 28 69 25 29 29  |^2+(by-BRY%(i%))|
00007a50  5e 32 29 3a e7 64 25 3c  6d 25 6d 25 3d 64 25 3a  |^2):.d%<m%m%=d%:|
00007a60  62 70 25 3d 69 25 0d 2c  2e 08 20 20 20 ed 0d 2c  |bp%=i%.,..   ..,|
00007a70  38 15 20 20 20 61 25 3d  38 30 3a 62 25 3d 31 31  |8.   a%=80:b%=11|
00007a80  30 30 30 0d 2c 42 07 20  20 cc 0d 2c 4c 15 20 20  |000.,B.  ..,L.  |
00007a90  20 61 25 3d 34 30 3a 62  25 3d 38 30 30 30 30 0d  | a%=40:b%=80000.|
00007aa0  2c 56 07 20 20 cd 0d 2c  60 2c 20 20 76 78 3d 76  |,V.  ..,`,  vx=v|
00007ab0  78 2b 28 42 52 58 25 28  62 70 25 29 2d 62 78 29  |x+(BRX%(bp%)-bx)|
00007ac0  2a 28 6d 25 2b 61 25 29  2a 42 64 65 70 74 68 2f  |*(m%+a%)*Bdepth/|
00007ad0  62 25 0d 2c 6a 2c 20 20  76 79 3d 76 79 2b 28 42  |b%.,j,  vy=vy+(B|
00007ae0  52 59 25 28 62 70 25 29  2d 62 79 29 2a 28 6d 25  |RY%(bp%)-by)*(m%|
00007af0  2b 61 25 29 2a 42 64 65  70 74 68 2f 62 25 0d 2c  |+a%)*Bdepth/b%.,|
00007b00  74 06 20 cd 0d 2c 7e 06  20 cd 0d 2c 88 06 20 cd  |t. ..,~. ..,.. .|
00007b10  0d 2c 92 06 20 cd 0d 2c  9c 1e 20 f2 58 59 30 31  |.,.. ..,.. .XY01|
00007b20  28 62 78 2c 62 79 29 3a  f2 58 59 31 32 28 58 31  |(bx,by):.XY12(X1|
00007b30  2c 59 31 29 0d 2c a6 2a  20 62 7a 68 3d a4 68 74  |,Y1).,.* bzh=.ht|
00007b40  32 28 62 61 6c 6c 7a 2c  59 31 29 3a 73 68 3d a4  |2(ballz,Y1):sh=.|
00007b50  68 74 32 28 67 68 2c 59  31 29 2d 62 7a 68 0d 2c  |ht2(gh,Y1)-bzh.,|
00007b60  b0 19 20 e7 28 ac 62 68  25 29 80 6f 79 31 2b 2e  |.. .(.bh%).oy1+.|
00007b70  31 36 3c 59 31 20 8c 0d  2c ba 22 20 20 e7 6f 73  |16<Y1 ..,."  .os|
00007b80  79 32 3e 59 32 2b 73 68  20 62 68 25 3d b9 3a 62  |y2>Y2+sh bh%=.:b|
00007b90  68 79 25 3d 59 32 2b 73  68 0d 2c c4 06 20 cc 0d  |hy%=Y2+sh.,.. ..|
00007ba0  2c ce 1b 20 20 e7 62 68  25 e7 59 32 2b 73 68 3e  |,..  .bh%.Y2+sh>|
00007bb0  62 68 79 25 20 62 68 25  3d a3 0d 2c d8 06 20 cd  |bhy% bh%=..,.. .|
00007bc0  0d 2c e2 0b 20 6f 79 31  3d 59 31 0d 2c ec 16 20  |.,.. oy1=Y1.,.. |
00007bd0  e7 28 41 25 83 34 3d 30  29 80 41 25 3c 32 31 20  |.(A%.4=0).A%<21 |
00007be0  8c 0d 2c f6 12 20 20 e7  67 73 25 3c 65 73 25 2b  |..,..  .gs%<es%+|
00007bf0  31 20 8c 0d 2d 00 23 20  20 20 c8 99 34 36 2c 32  |1 ..-.#   ..46,2|
00007c00  39 30 2c 53 50 25 2c 22  42 48 44 53 22 2c 6f 78  |90,SP%,"BHDS",ox|
00007c10  32 2c 6f 73 79 32 0d 2d  0a 2b 20 20 20 c8 99 34  |2,osy2.-.+   ..4|
00007c20  36 2c 32 39 30 2c 53 50  25 2c 22 42 48 44 47 46  |6,290,SP%,"BHDGF|
00007c30  52 22 2c 36 34 30 2d 53  43 25 2a 34 34 2c 32 36  |R",640-SC%*44,26|
00007c40  38 0d 2d 14 36 20 20 20  c8 99 34 36 2c 32 39 30  |8.-.6   ..46,290|
00007c50  2c 53 50 25 2c 78 24 2b  22 47 46 52 22 2b c3 28  |,SP%,x$+"GFR"+.(|
00007c60  70 75 25 29 2b c3 28 67  73 25 29 2c 6d 61 6e 78  |pu%)+.(gs%),manx|
00007c70  25 2c 32 37 32 2c 38 0d  2d 1e 1a 20 20 20 ec 6f  |%,272,8.-..   .o|
00007c80  78 32 2c 6f 73 79 32 3a  ec 6f 78 32 2c 6f 73 79  |x2,osy2:.ox2,osy|
00007c90  32 0d 2d 28 1c 20 20 20  c8 99 34 36 2c 32 37 30  |2.-(.   ..46,270|
00007ca0  2c 53 50 25 2c 22 42 48  44 53 22 2c 30 0d 2d 32  |,SP%,"BHDS",0.-2|
00007cb0  5f 20 20 20 e7 ac 62 68  25 8c 3a e7 ac 28 28 62  |_   ..bh%.:..((b|
00007cc0  68 64 62 6c 25 3d 32 34  29 84 62 68 64 62 6c 25  |hdbl%=24).bhdbl%|
00007cd0  3d 32 35 29 8c e7 ac 28  a4 62 68 64 6f 62 6a 28  |=25)...(.bhdobj(|
00007ce0  62 62 25 29 29 8c 20 20  20 20 c8 99 34 36 2c 32  |bb%)).    ..46,2|
00007cf0  39 30 2c 53 50 25 2c 22  42 41 4c 4c 22 2b c3 28  |90,SP%,"BALL"+.(|
00007d00  73 25 29 2c 6f 78 32 2c  6f 73 79 32 0d 2d 3c 10  |s%),ox2,osy2.-<.|
00007d10  20 20 20 67 73 25 3d 67  73 25 2b 31 0d 2d 46 07  |   gs%=gs%+1.-F.|
00007d20  20 20 cd 0d 2d 50 06 20  cd 0d 2d 5a 39 20 50 58  |  ..-P. ..-Z9 PX|
00007d30  25 3d 58 32 3a 50 59 25  3d 59 32 2b 73 68 3a 42  |%=X2:PY%=Y2+sh:B|
00007d40  4f 42 25 3d a4 62 68 64  6f 62 6a 28 62 62 25 29  |OB%=.bhdobj(bb%)|
00007d50  3a ec 50 58 25 2c 50 59  25 3a ec 50 58 25 2c 50  |:.PX%,PY%:.PX%,P|
00007d60  59 25 0d 2d 64 3a 20 c8  96 3a c8 99 34 36 2c 32  |Y%.-d: ..:..46,2|
00007d70  39 30 2c 53 50 25 2c 22  42 48 44 53 22 2c 6f 78  |90,SP%,"BHDS",ox|
00007d80  32 2c 6f 73 79 32 3a c8  99 34 36 2c 32 37 30 2c  |2,osy2:..46,270,|
00007d90  53 50 25 2c 22 42 48 44  53 22 2c 30 0d 2d 6e 12  |SP%,"BHDS",0.-n.|
00007da0  20 62 62 25 3d b0 50 58  25 2c 50 59 25 29 0d 2d  | bb%=.PX%,PY%).-|
00007db0  78 4f 20 e7 ac 62 68 25  8c e7 ac 28 28 62 68 64  |xO ..bh%...((bhd|
00007dc0  62 6c 25 3d 32 34 29 84  62 68 64 62 6c 25 3d 32  |bl%=24).bhdbl%=2|
00007dd0  35 29 8c e7 ac 42 4f 42  25 8c c8 99 34 36 2c 32  |5)...BOB%...46,2|
00007de0  39 30 2c 53 50 25 2c 20  20 22 42 41 4c 4c 22 2b  |90,SP%,  "BALL"+|
00007df0  c3 28 73 25 29 2c 50 58  25 2c 50 59 25 0d 2d 82  |.(s%),PX%,PY%.-.|
00007e00  16 20 6f 78 32 3d 58 32  3a 6f 73 79 32 3d 59 32  |. ox2=X2:osy2=Y2|
00007e10  2b 73 68 0d 2d 8c 0e 20  e7 76 78 79 3c 2e 30 35  |+sh.-.. .vxy<.05|
00007e20  8c 0d 2d 96 1a 20 20 73  74 25 2b 3d 31 3a e7 73  |..-..  st%+=1:.s|
00007e30  74 25 3e 34 30 65 6f 73  25 3d b9 0d 2d aa 06 20  |t%>40eos%=..-.. |
00007e40  cc 0d 2d b4 0b 20 20 73  74 25 3d 30 0d 2d be 06  |..-..  st%=0.-..|
00007e50  20 cd 0d 2d c8 26 20 68  64 3d b6 28 28 66 6c 61  | ..-.& hd=.((fla|
00007e60  67 78 25 2d 62 78 29 5e  32 2b 28 66 6c 61 67 79  |gx%-bx)^2+(flagy|
00007e70  25 2d 62 79 29 5e 32 29  0d 2d d2 12 20 e7 68 64  |%-by)^2).-.. .hd|
00007e80  3c 2e 30 37 36 2a 53 4c  20 8c 0d 2d dc 13 20 20  |<.076*SL ..-..  |
00007e90  e7 76 78 79 3c 2e 32 34  2a 53 4c 20 8c 0d 2d e6  |.vxy<.24*SL ..-.|
00007ea0  26 20 20 20 c8 96 3a c8  99 34 36 2c 32 39 30 2c  |&   ..:..46,290,|
00007eb0  53 50 25 2c 22 42 48 44  53 22 2c 58 32 2c 59 32  |SP%,"BHDS",X2,Y2|
00007ec0  2b 73 68 0d 2d f0 16 20  20 20 e7 67 73 25 3e 65  |+sh.-..   .gs%>e|
00007ed0  73 25 67 73 25 3d 65 73  25 0d 2d fa 2b 20 20 20  |s%gs%=es%.-.+   |
00007ee0  c8 99 34 36 2c 32 39 30  2c 53 50 25 2c 22 42 48  |..46,290,SP%,"BH|
00007ef0  44 47 46 52 22 2c 36 34  30 2d 34 34 2a 53 43 25  |DGFR",640-44*SC%|
00007f00  2c 32 36 38 0d 2e 04 36  20 20 20 c8 99 34 36 2c  |,268...6   ..46,|
00007f10  32 39 30 2c 53 50 25 2c  78 24 2b 22 47 46 52 22  |290,SP%,x$+"GFR"|
00007f20  2b c3 28 70 75 25 29 2b  c3 28 67 73 25 29 2c 6d  |+.(pu%)+.(gs%),m|
00007f30  61 6e 78 25 2c 32 37 32  2c 38 0d 2e 0e 22 20 20  |anx%,272,8..."  |
00007f40  20 f2 68 6f 6c 65 64 3a  65 6f 73 25 3d b9 3a 68  | .holed:eos%=.:h|
00007f50  6f 6c 65 64 25 28 70 75  25 29 3d b9 0d 2e 18 07  |oled%(pu%)=.....|
00007f60  20 20 cd 0d 2e 22 19 20  20 76 78 3d 76 78 2a 2e  |  ...".  vx=vx*.|
00007f70  37 35 3a 76 79 3d 76 79  2a 2e 37 35 0d 2e 2c 06  |75:vy=vy*.75..,.|
00007f80  20 cc 0d 2e 36 12 20 20  e7 68 64 3c 2e 31 32 2a  | ...6.  .hd<.12*|
00007f90  53 4c 20 8c 0d 2e 40 12  20 20 20 f4 5f 5f 5f 72  |SL ...@.   .___r|
00007fa0  69 6d 20 63 75 70 0d 2e  4a 3a 20 20 20 76 78 3d  |im cup..J:   vx=|
00007fb0  76 78 2b 2e 30 32 36 2a  28 66 6c 61 67 78 25 2d  |vx+.026*(flagx%-|
00007fc0  62 78 29 2f 68 64 3a 76  79 3d 76 79 2b 2e 30 32  |bx)/hd:vy=vy+.02|
00007fd0  36 2a 28 66 6c 61 67 79  25 2d 62 79 29 2f 68 64  |6*(flagy%-by)/hd|
00007fe0  0d 2e 5e 1a 20 20 20 76  78 3d 76 78 2a 2e 37 35  |..^.   vx=vx*.75|
00007ff0  3a 76 79 3d 76 79 2a 2e  37 35 0d 2e 68 07 20 20  |:vy=vy*.75..h.  |
00008000  cc 0d 2e 72 0d 20 20 20  e7 68 64 3c 31 8c 0d 2e  |...r.   .hd<1...|
00008010  7c 16 20 20 20 20 e7 28  ac 6f 6e 67 25 29 80 ac  ||.    .(.ong%)..|
00008020  68 66 25 8c 0d 2e 86 11  20 20 20 20 20 e3 69 25  |hf%.....     .i%|
00008030  3d 31 b8 31 30 0d 2e 90  3b 20 20 20 20 20 20 78  |=1.10...;      x|
00008040  3d 28 6f 62 78 2a 28 31  30 2d 69 25 29 2b 62 78  |=(obx*(10-i%)+bx|
00008050  2a 69 25 29 2f 31 30 3a  79 3d 28 6f 62 79 2a 28  |*i%)/10:y=(oby*(|
00008060  31 30 2d 69 25 29 2b 62  79 2a 69 25 29 2f 31 30  |10-i%)+by*i%)/10|
00008070  0d 2e a4 2a 20 20 20 20  20 20 64 3d b6 28 28 28  |...*      d=.(((|
00008080  78 2d 66 6c 61 67 78 25  29 5e 32 2b 28 79 2d 66  |x-flagx%)^2+(y-f|
00008090  6c 61 67 79 25 29 5e 32  29 29 0d 2e ae 11 20 20  |lagy%)^2))....  |
000080a0  20 20 20 20 e7 64 3c 2e  30 36 8c 0d 2e b8 16 20  |    .d<.06..... |
000080b0  20 20 20 20 20 20 f4 5f  5f 68 69 74 20 66 6c 61  |      .__hit fla|
000080c0  67 0d 2e c2 3c 20 20 20  20 20 20 20 62 78 3d 78  |g...<       bx=x|
000080d0  3a 62 79 3d 79 3a 69 25  3d 31 31 3a 76 78 3d 76  |:by=y:i%=11:vx=v|
000080e0  78 79 2a 28 b3 28 31 29  2d 2e 35 29 3a 76 79 3d  |xy*(.(1)-.5):vy=|
000080f0  76 78 79 2a 28 b3 28 31  29 2d 2e 35 29 0d 2e e0  |vxy*(.(1)-.5)...|
00008100  25 20 20 20 20 20 20 20  68 66 25 3d b9 3a d4 34  |%       hf%=.:.4|
00008110  2c 2d 31 35 2b 79 64 73  25 81 34 30 2c 31 37 30  |,-15+yds%.40,170|
00008120  2c 31 0d 2e ea 0b 20 20  20 20 20 20 cd 0d 2e f4  |,1....      ....|
00008130  0a 20 20 20 20 20 ed 0d  2e fe 09 20 20 20 20 cd  |.     .....    .|
00008140  0d 2f 08 08 20 20 20 cd  0d 2f 12 07 20 20 cd 0d  |./..   ../..  ..|
00008150  2f 1c 06 20 cd 0d 2f 26  12 20 e7 28 62 68 64 62  |/.. ../&. .(bhdb|
00008160  6c 25 3d 33 36 29 8c 0d  2f 30 1a 20 20 e7 ac a4  |l%=36)../0.  ...|
00008170  6f 75 74 6f 66 62 6e 64  73 28 62 78 2c 62 79 29  |outofbnds(bx,by)|
00008180  8c 0d 2f 3a 1b 20 20 20  73 63 6f 72 65 25 28 70  |../:.   score%(p|
00008190  75 25 2c 68 6f 6c 65 25  29 2b 3d 31 0d 2f 44 23  |u%,hole%)+=1./D#|
000081a0  20 20 20 c8 99 34 36 2c  32 39 30 2c 53 50 25 2c  |   ..46,290,SP%,|
000081b0  22 42 48 44 53 22 2c 58  32 2c 59 32 2b 73 68 0d  |"BHDS",X2,Y2+sh.|
000081c0  2f 4e 23 20 20 20 f2 69  6e 77 61 74 65 72 3a 51  |/N#   .inwater:Q|
000081d0  25 3d 30 3a 52 25 3d 31  36 3a 2a 46 58 31 31 32  |%=0:R%=16:*FX112|
000081e0  2c 31 0d 2f 58 13 20 20  20 f2 63 77 78 79 28 62  |,1./X.   .cwxy(b|
000081f0  78 2c 62 79 29 0d 2f 62  08 20 20 20 f5 0d 2f 6c  |x,by)./b.   ../l|
00008200  2f 20 20 20 20 62 78 3d  63 77 78 2b b3 28 31 29  |/    bx=cwx+.(1)|
00008210  2a 52 25 2d 52 25 81 32  3a 62 79 3d 63 77 79 2b  |*R%-R%.2:by=cwy+|
00008220  b3 28 31 29 2a 52 25 2d  52 25 81 32 0d 2f 80 21  |.(1)*R%-R%.2./.!|
00008230  20 20 20 20 51 25 3d 51  25 2b 31 3a e7 28 51 25  |    Q%=Q%+1:.(Q%|
00008240  83 35 30 29 3d 31 52 25  3d 52 25 2b 38 0d 2f 8a  |.50)=1R%=R%+8./.|
00008250  72 20 20 20 fd 28 b0 62  78 2c 62 79 29 3c 3e 33  |r   .(.bx,by)<>3|
00008260  36 29 80 28 b0 62 78 2b  34 2c 62 79 2b 34 29 3c  |6).(.bx+4,by+4)<|
00008270  3e 33 36 29 80 28 b0 62  78 2d 34 2c 62 79 2b 34  |>36).(.bx-4,by+4|
00008280  29 3c 3e 20 20 20 20 33  36 29 80 28 b0 62 78 2d  |)<>    36).(.bx-|
00008290  34 2c 62 79 2d 34 29 3c  3e 33 36 29 80 28 b0 62  |4,by-4)<>36).(.b|
000082a0  78 2b 34 2c 62 79 2d 34  29 3c 3e 33 36 29 80 28  |x+4,by-4)<>36).(|
000082b0  b0 62 78 2c 62 79 29 3c  3e 20 20 20 31 30 29 0d  |.bx,by)<>   10).|
000082c0  2f 94 0f 20 20 20 2a 46  58 31 31 32 2c 30 0d 2f  |/..   *FX112,0./|
000082d0  9e 0d 20 20 20 65 6f 73  25 3d b9 0d 2f a8 07 20  |..   eos%=../.. |
000082e0  20 cd 0d 2f b2 06 20 cd  0d 2f bc 16 20 e7 91 2d  | ../.. ../.. ..-|
000082f0  54 49 25 3c 35 f5 fd 91  2d 54 49 25 3d 35 0d 2f  |TI%<5...-TI%=5./|
00008300  c6 0a 20 54 49 25 3d 91  0d 2f d0 09 fd 65 6f 73  |.. TI%=../...eos|
00008310  25 0d 2f da 44 e7 a4 6f  75 74 6f 66 62 6e 64 73  |%./.D..outofbnds|
00008320  28 62 78 2c 62 79 29 20  73 63 6f 72 65 25 28 70  |(bx,by) score%(p|
00008330  75 25 2c 68 6f 6c 65 25  29 2b 3d 31 3a f2 6f 75  |u%,hole%)+=1:.ou|
00008340  74 62 20 8b 62 61 6c 6c  78 3d 62 78 3a 62 61 6c  |tb .ballx=bx:bal|
00008350  6c 79 3d 62 79 0d 2f e4  0c 2a 46 58 31 31 32 2c  |ly=by./..*FX112,|
00008360  31 0d 2f ee 18 62 68 64  62 6c 25 3d b0 62 61 6c  |1./..bhdbl%=.bal|
00008370  6c 78 2c 62 61 6c 6c 79  29 0d 2f f8 0c 2a 46 58  |lx,bally)./..*FX|
00008380  31 31 32 2c 30 0d 30 02  05 e1 0d 30 0c 05 20 0d  |112,0.0....0.. .|
00008390  30 8e 04 0d 30 98 0f dd  f2 63 77 78 79 28 78 2c  |0...0....cwxy(x,|
000083a0  79 29 0d 30 a2 0a ea 7a  78 2c 7a 79 0d 30 ac 3b  |y).0...zx,zy.0.;|
000083b0  7a 78 3d 36 2a 28 78 2d  66 6c 61 67 78 25 29 2f  |zx=6*(x-flagx%)/|
000083c0  94 28 78 2d 66 6c 61 67  78 25 29 3a 7a 79 3d 36  |.(x-flagx%):zy=6|
000083d0  2a 28 79 2d 66 6c 61 67  79 25 29 2f 94 28 79 2d  |*(y-flagy%)/.(y-|
000083e0  66 6c 61 67 79 25 29 0d  30 c0 2f 63 77 78 3d 78  |flagy%).0./cwx=x|
000083f0  3a 63 77 79 3d 79 3a f5  63 77 78 2b 3d 7a 78 3a  |:cwy=y:.cwx+=zx:|
00008400  63 77 79 2b 3d 7a 79 3a  fd b0 63 77 78 2c 63 77  |cwy+=zy:..cwx,cw|
00008410  79 29 3c 3e 33 36 0d 30  ca 05 e1 0d 30 de 04 0d  |y)<>36.0....0...|
00008420  30 e8 0d dd f2 69 6e 77  61 74 65 72 0d 30 f2 a3  |0....inwater.0..|
00008430  d4 38 2c 2d 31 35 2b a4  6d 61 78 28 30 2c 28 59  |.8,-15+.max(0,(Y|
00008440  31 2d 32 35 30 29 81 38  30 29 2c 30 2c 30 3a e6  |1-250).80),0,0:.|
00008450  30 2c 34 32 c8 9c 36 34  3a ec 34 36 38 2c 34 34  |0,42..64:.468,44|
00008460  3a ec 38 31 36 2c 34 34  3a f0 38 35 2c 34 36 38  |:.816,44:.85,468|
00008470  2c 32 30 38 3a f0 38 35  2c 38 31 36 2c 32 30 38  |,208:.85,816,208|
00008480  3a e6 30 2c 33 c8 9c 30  3a ec 35 30 30 2c 31 38  |:.0,3..0:.500,18|
00008490  38 3a f1 22 49 6e 20 77  61 74 65 72 22 3b 3a ec  |8:."In water";:.|
000084a0  35 30 30 2c 31 34 30 3a  f1 22 31 20 73 74 72 6f  |500,140:."1 stro|
000084b0  6b 65 22 3b 3a ec 35 30  30 2c 39 32 3a f1 22 50  |ke";:.500,92:."P|
000084c0  65 6e 61 6c 74 79 22 3b  3a f2 77 74 28 34 29 0d  |enalty";:.wt(4).|
000084d0  30 fc 05 e1 0d 31 06 05  20 0d 31 1a 0a dd f2 6f  |0....1.. .1....o|
000084e0  75 74 62 0d 31 24 90 6f  62 64 73 25 3d b9 3a e6  |utb.1$.obds%=.:.|
000084f0  30 2c 34 32 c8 9c 36 34  3a ec 34 36 38 2c 34 34  |0,42..64:.468,44|
00008500  3a ec 38 31 36 2c 34 34  3a f0 38 35 2c 34 36 38  |:.816,44:.85,468|
00008510  2c 32 30 38 3a f0 38 35  2c 38 31 36 2c 32 30 38  |,208:.85,816,208|
00008520  3a e6 30 2c 33 c8 9c 30  3a ec 34 36 38 2c 31 38  |:.0,3..0:.468,18|
00008530  38 3a f1 22 4f 75 74 20  6f 66 20 62 6e 64 73 22  |8:."Out of bnds"|
00008540  3b 3a ec 34 36 38 2c 31  34 30 3a f1 22 53 74 72  |;:.468,140:."Str|
00008550  6f 6b 65 20 26 22 3b 3a  ec 34 36 38 2c 39 32 3a  |oke &";:.468,92:|
00008560  f1 22 44 69 73 74 61 6e  63 65 22 3b 3a f2 77 74  |."Distance";:.wt|
00008570  28 34 29 0d 31 2e 05 e1  0d 31 42 05 20 0d 31 4c  |(4).1....1B. .1L|
00008580  0b dd f2 68 6f 6c 65 64  0d 31 56 0a ea 73 25 2c  |...holed.1V..s%,|
00008590  70 25 0d 31 60 99 d4 37  2c 2d 31 35 2b 79 64 73  |p%.1`..7,-15+yds|
000085a0  25 81 34 30 2c 30 2c 30  3a 73 25 3d 73 63 6f 72  |%.40,0,0:s%=scor|
000085b0  65 25 28 70 75 25 2c 68  6f 6c 65 25 29 2b 31 3a  |e%(pu%,hole%)+1:|
000085c0  70 25 3d 70 61 72 25 28  68 6f 6c 65 25 29 3a e6  |p%=par%(hole%):.|
000085d0  30 2c 34 32 c8 9c 36 34  3a ec 34 36 38 2c 34 34  |0,42..64:.468,44|
000085e0  3a ec 38 31 36 2c 34 34  3a f0 38 35 2c 34 36 38  |:.816,44:.85,468|
000085f0  2c 32 30 38 3a f0 38 35  2c 38 31 36 2c 32 30 38  |,208:.85,816,208|
00008600  3a e6 30 2c 34 38 c8 9c  30 3a ec 34 36 38 2c 31  |:.0,48..0:.468,1|
00008610  38 38 3a f1 22 48 6f 6c  65 64 20 69 6e 20 22 3b  |88:."Holed in ";|
00008620  73 25 3a ec 34 36 38 2c  31 34 30 0d 31 6a b9 e7  |s%:.468,140.1j..|
00008630  70 25 2d 73 25 3d 33 f1  22 66 6f 72 20 61 6e 22  |p%-s%=3."for an"|
00008640  3a ec 34 36 38 2c 39 32  3a f1 22 61 6c 62 61 74  |:.468,92:."albat|
00008650  72 6f 73 73 22 8b e7 70  25 2d 73 25 3d 32 f1 22  |ross"..p%-s%=2."|
00008660  66 6f 72 20 65 61 67 6c  65 22 8b e7 70 25 2d 73  |for eagle"..p%-s|
00008670  25 3d 31 f1 22 66 6f 72  20 62 69 72 64 69 65 22  |%=1."for birdie"|
00008680  8b e7 70 25 2d 73 25 3d  30 f1 22 66 6f 72 20 70  |..p%-s%=0."for p|
00008690  61 72 22 8b e7 70 25 2d  73 25 3d 2d 31 f1 22 66  |ar"..p%-s%=-1."f|
000086a0  6f 72 20 62 6f 67 65 79  22 8b e7 70 25 2d 73 25  |or bogey"..p%-s%|
000086b0  3d 2d 32 f1 22 66 6f 72  20 64 6f 75 62 6c 65 22  |=-2."for double"|
000086c0  3a ec 34 36 38 2c 39 32  3a f1 22 62 6f 67 65 79  |:.468,92:."bogey|
000086d0  22 8b f1 3b 73 25 2d 70  25 22 20 6f 76 65 72 20  |"..;s%-p%" over |
000086e0  70 61 72 22 0d 31 74 0a  f2 77 74 28 34 29 0d 31  |par".1t..wt(4).1|
000086f0  7e 05 e1 0d 31 88 05 20  0d 31 9c 0f dd f2 73 63  |~...1.. .1....sc|
00008700  6f 72 65 63 61 72 64 0d  31 a6 19 ea 69 25 2c 63  |orecard.1...i%,c|
00008710  24 2c 73 25 2c 6c 25 2c  70 25 2c 73 24 2c 68 24  |$,s%,l%,p%,s$,h$|
00008720  0d 31 b0 09 ea 6e 24 28  29 0d 31 ba 0a de 6e 24  |.1...n$().1...n$|
00008730  28 31 29 0d 31 c4 17 eb  31 32 3a ef 32 33 3b 38  |(1).1...12:.23;8|
00008740  32 30 32 3b 30 3b 30 3b  30 3b 0d 31 ce 17 fb 30  |202;0;0;0;.1...0|
00008750  2c 31 36 2a 35 2c 20 31  36 2a 37 2c 20 31 36 2a  |,16*5, 16*7, 16*|
00008760  35 0d 31 d8 18 fb 31 2c  31 36 2a 31 32 2c 31 36  |5.1...1,16*12,16|
00008770  2a 31 35 2c 31 36 2a 31  32 0d 31 e2 17 fb 32 2c  |*15,16*12.1...2,|
00008780  31 36 2a 31 33 2c 31 36  2a 31 30 2c 31 36 2a 37  |16*13,16*10,16*7|
00008790  0d 31 ec 17 fb 33 2c 31  36 2a 31 33 2c 31 36 2a  |.1...3,16*13,16*|
000087a0  38 2c 20 31 36 2a 34 0d  31 f6 17 fb 34 2c 31 36  |8, 16*4.1...4,16|
000087b0  2a 31 34 2c 31 36 2a 31  31 2c 31 36 2a 31 0d 32  |*14,16*11,16*1.2|
000087c0  00 17 fb 35 2c 31 36 2a  31 35 2c 31 36 2a 31 35  |...5,16*15,16*15|
000087d0  2c 31 36 2a 32 0d 32 0a  18 fb 36 2c 31 36 2a 31  |,16*2.2...6,16*1|
000087e0  35 2c 31 36 2a 31 35 2c  31 36 2a 31 35 0d 32 14  |5,16*15,16*15.2.|
000087f0  18 fb 37 2c 31 36 2a 31  31 2c 31 36 2a 31 31 2c  |..7,16*11,16*11,|
00008800  31 36 2a 31 35 0d 32 1e  17 fb 38 2c 31 36 2a 36  |16*15.2...8,16*6|
00008810  2c 20 31 36 2a 31 30 2c  31 36 2a 36 0d 32 28 18  |, 16*10,16*6.2(.|
00008820  fb 39 2c 31 36 2a 31 32  2c 31 36 2a 31 35 2c 31  |.9,16*12,16*15,1|
00008830  36 2a 31 31 0d 32 32 08  e6 30 2c 38 0d 32 3c b6  |6*11.22..0,8.2<.|
00008840  ec 30 2c 39 34 34 3a f0  35 2c 31 32 38 30 2c 39  |.0,944:.5,1280,9|
00008850  34 34 3a ec 30 2c 37 32  30 3a f0 35 2c 31 32 38  |44:.0,720:.5,128|
00008860  30 2c 37 32 30 3a ec 30  2c 34 30 30 3a f0 35 2c  |0,720:.0,400:.5,|
00008870  31 32 38 30 2c 34 30 30  3a ec 30 2c 32 30 30 3a  |1280,400:.0,200:|
00008880  f0 35 2c 31 32 38 30 2c  32 30 30 3a ec 36 34 32  |.5,1280,200:.642|
00008890  2c 39 34 34 3a f0 35 2c  36 34 32 2c 32 30 30 3a  |,944:.5,642,200:|
000088a0  ec 36 34 30 2c 39 34 34  3a f0 35 2c 36 34 30 2c  |.640,944:.5,640,|
000088b0  32 30 30 3a ec 31 30 31  34 2c 39 34 34 3a f0 35  |200:.1014,944:.5|
000088c0  2c 31 30 31 34 2c 32 30  30 3a ec 33 35 36 2c 39  |,1014,200:.356,9|
000088d0  34 34 3a f0 35 2c 33 35  36 2c 32 30 30 3a ec 36  |44:.5,356,200:.6|
000088e0  34 30 2c 32 37 30 3a f0  35 2c 31 32 38 30 2c 32  |40,270:.5,1280,2|
000088f0  37 30 0d 32 6e 23 70 61  72 73 6f 66 61 72 25 3d  |70.2n#parsofar%=|
00008900  70 61 72 73 6f 66 61 72  25 2b 70 61 72 25 28 68  |parsofar%+par%(h|
00008910  6f 6c 65 25 29 0d 32 78  2f e3 69 25 3d 31 b8 a9  |ole%).2x/.i%=1..|
00008920  28 63 6f 75 72 73 65 24  29 3a 63 24 3d 63 24 2b  |(course$):c$=c$+|
00008930  c1 63 6f 75 72 73 65 24  2c 69 25 2c 31 29 2b 22  |.course$,i%,1)+"|
00008940  20 22 3a ed 0d 32 82 17  fb 31 3a f1 27 8a 34 30  | ":..2...1:.'.40|
00008950  2d a9 28 63 24 29 81 32  29 63 24 0d 32 8c 45 e3  |-.(c$).2)c$.2.E.|
00008960  69 25 3d 31 b8 31 3a 6e  24 28 69 25 29 3d 22 20  |i%=1.1:n$(i%)=" |
00008970  20 20 20 20 20 22 2b 6e  61 6d 65 24 28 69 25 29  |     "+name$(i%)|
00008980  3a 6e 24 28 69 25 29 3d  c1 6e 24 28 69 25 29 2c  |:n$(i%)=.n$(i%),|
00008990  a9 28 6e 24 28 69 25 29  29 2d 35 2c 36 29 3a ed  |.(n$(i%))-5,6):.|
000089a0  0d 32 aa 06 fb 34 0d 32  b4 53 e3 6c 25 3d 31 b8  |.2...4.2.S.l%=1.|
000089b0  36 3a e3 70 25 3d 31 b8  31 3a f1 8a 70 25 2a 34  |6:.p%=1.1:..p%*4|
000089c0  2b 32 31 2c 6c 25 2b 32  29 c1 6e 24 28 70 25 29  |+21,l%+2).n$(p%)|
000089d0  2c 6c 25 2c 31 29 3b 3a  f1 8a 70 25 2a 34 2b 36  |,l%,1);:..p%*4+6|
000089e0  32 2c 6c 25 2b 32 29 c1  6e 24 28 70 25 29 2c 6c  |2,l%+2).n$(p%),l|
000089f0  25 2c 31 29 3b 3a ed 3a  ed 0d 32 f0 08 fb 28 32  |%,1);:.:..2...(2|
00008a00  29 0d 32 fa 43 f1 8a 31  2c 38 29 20 22 48 6f 6c  |).2.C..1,8) "Hol|
00008a10  65 20 20 59 61 72 64 73  20 20 50 61 72 20 53 74  |e  Yards  Par St|
00008a20  72 2e 22 3b 3a f1 8a 34  32 2c 38 29 22 48 6f 6c  |r.";:..42,8)"Hol|
00008a30  65 20 20 59 61 72 64 73  20 20 50 61 72 20 53 74  |e  Yards  Par St|
00008a40  72 2e 22 3b 0d 33 0e 06  fb 33 0d 33 18 0c e3 68  |r.";.3...3.3...h|
00008a50  25 3d 31 b8 31 38 0d 33  22 23 20 68 24 3d 22 20  |%=1.18.3"# h$=" |
00008a60  22 2b c3 28 68 25 29 3a  68 24 3d c1 68 24 2c a9  |"+.(h%):h$=.h$,.|
00008a70  28 68 24 29 2d 31 2c 32  29 0d 33 2c 2c 20 73 24  |(h$)-1,2).3,, s$|
00008a80  3d 22 20 22 2b c3 28 73  74 72 6f 6b 65 25 28 68  |=" "+.(stroke%(h|
00008a90  25 29 29 3a 73 24 3d c1  73 24 2c a9 28 73 24 29  |%)):s$=.s$,.(s$)|
00008aa0  2d 31 2c 32 29 0d 33 36  20 20 e7 68 25 3c 31 30  |-1,2).36  .h%<10|
00008ab0  8c ef 33 31 2c 32 2c 68  25 2b 39 8b ef 33 31 2c  |..31,2,h%+9..31,|
00008ac0  34 33 2c 68 25 0d 33 40  2e 20 f1 68 24 22 20 20  |43,h%.3@. .h$"  |
00008ad0  20 20 22 3b 6c 65 6e 25  28 68 25 29 22 20 20 20  |  ";len%(h%)"   |
00008ae0  20 22 3b 70 61 72 25 28  68 25 29 22 20 20 20 22  | ";par%(h%)"   "|
00008af0  73 24 3b 0d 33 4a 05 ed  0d 33 54 2a f1 8a 31 2c  |s$;.3J...3T*..1,|
00008b00  32 30 29 22 4f 75 74 20  20 20 22 3b 6f 75 74 64  |20)"Out   ";outd|
00008b10  69 73 74 25 22 20 20 20  22 3b 6f 75 74 70 61 72  |ist%"   ";outpar|
00008b20  25 3b 0d 33 5e 28 f1 8a  34 33 2c 32 30 29 22 49  |%;.3^(..43,20)"I|
00008b30  6e 20 20 20 22 3b 69 6e  64 69 73 74 25 22 20 20  |n   ";indist%"  |
00008b40  20 22 3b 69 6e 70 61 72  25 3b 0d 33 68 2b f1 8a  | ";inpar%;.3h+..|
00008b50  34 32 2c 32 32 29 22 4f  75 74 20 20 20 22 3b 6f  |42,22)"Out   ";o|
00008b60  75 74 64 69 73 74 25 22  20 20 20 22 3b 6f 75 74  |utdist%"   ";out|
00008b70  70 61 72 25 3b 0d 33 72  3b f1 8a 34 31 2c 32 34  |par%;.3r;..41,24|
00008b80  29 22 54 6f 74 61 6c 20  20 22 3b 6f 75 74 64 69  |)"Total  ";outdi|
00008b90  73 74 25 2b 69 6e 64 69  73 74 25 22 20 20 20 22  |st%+indist%"   "|
00008ba0  3b 6f 75 74 70 61 72 25  2b 69 6e 70 61 72 25 3b  |;outpar%+inpar%;|
00008bb0  0d 33 7c 0b e3 69 25 3d  31 b8 31 0d 33 86 33 20  |.3|..i%=1.1.3.3 |
00008bc0  74 6f 74 73 63 6f 72 65  25 28 69 25 29 3d 74 6f  |totscore%(i%)=to|
00008bd0  74 73 63 6f 72 65 25 28  69 25 29 2b 73 63 6f 72  |tscore%(i%)+scor|
00008be0  65 25 28 69 25 2c 20 20  68 6f 6c 65 25 29 0d 33  |e%(i%,  hole%).3|
00008bf0  90 2a 20 e7 68 6f 6c 65  25 3d 39 8c 6f 75 74 73  |.* .hole%=9.outs|
00008c00  63 6f 72 65 25 28 69 25  29 3d 74 6f 74 73 63 6f  |core%(i%)=totsco|
00008c10  72 65 25 28 69 25 20 29  0d 33 9a 05 ed 0d 33 a4  |re%(i% ).3....3.|
00008c20  0f e3 68 25 3d 31 b8 68  6f 6c 65 25 0d 33 ae 0c  |..h%=1.hole%.3..|
00008c30  20 e3 70 25 3d 31 b8 31  0d 33 b8 16 20 20 73 25  | .p%=1.1.3..  s%|
00008c40  3d 73 63 6f 72 65 25 28  70 25 2c 68 25 29 0d 33  |=score%(p%,h%).3|
00008c50  c2 22 20 20 e7 73 25 3e  30 8c 73 24 3d 22 20 20  |."  .s%>0.s$="  |
00008c60  22 2b c3 28 73 25 29 8b  73 24 3d 22 20 20 20 22  |"+.(s%).s$="   "|
00008c70  0d 33 cc 17 20 20 73 24  3d c1 73 24 2c a9 28 73  |.3..  s$=.s$,.(s|
00008c80  24 29 2d 32 2c 33 29 0d  33 d6 2d 20 20 e7 68 25  |$)-2,3).3.-  .h%|
00008c90  3c 31 30 20 ef 33 31 2c  70 25 2a 34 2b 31 39 2c  |<10 .31,p%*4+19,|
00008ca0  68 25 2b 39 20 8b ef 33  31 2c 70 25 2a 34 2b 36  |h%+9 ..31,p%*4+6|
00008cb0  30 2c 68 25 0d 33 e0 26  20 20 e7 73 25 3e 70 61  |0,h%.3.&  .s%>pa|
00008cc0  72 25 28 68 25 29 fb 35  8b e7 73 25 3d 70 61 72  |r%(h%).5..s%=par|
00008cd0  25 28 68 25 29 fb 36 8b  fb 37 0d 33 ea 0a 20 20  |%(h%).6..7.3..  |
00008ce0  f1 73 24 3b 0d 33 f4 06  20 ed 0d 33 fe 05 ed 0d  |.s$;.3.. ..3....|
00008cf0  34 08 15 e7 28 68 6f 6c  65 25 3e 38 29 80 53 48  |4...(hole%>8).SH|
00008d00  25 3d 31 8c 0d 34 12 0c  20 e3 70 25 3d 31 b8 31  |%=1..4.. .p%=1.1|
00008d10  0d 34 1c 36 20 20 73 25  3d 6f 75 74 73 63 6f 72  |.4.6  s%=outscor|
00008d20  65 25 28 70 25 29 3a 73  24 3d 22 20 20 22 2b c3  |e%(p%):s$="  "+.|
00008d30  28 73 25 29 3a 73 24 3d  c1 73 24 2c a9 28 73 24  |(s%):s$=.s$,.(s$|
00008d40  29 2d 32 2c 33 29 0d 34  30 24 20 20 e7 73 25 3e  |)-2,3).40$  .s%>|
00008d50  6f 75 74 70 61 72 25 fb  35 8b e7 73 25 3d 6f 75  |outpar%.5..s%=ou|
00008d60  74 70 61 72 25 fb 36 8b  fb 37 0d 34 3a 2d 20 20  |tpar%.6..7.4:-  |
00008d70  ef 33 31 2c 70 25 2a 34  2b 32 30 2c 32 30 3a f1  |.31,p%*4+20,20:.|
00008d80  73 24 3b 3a ef 33 31 2c  70 25 2a 34 2b 36 30 2c  |s$;:.31,p%*4+60,|
00008d90  32 32 3a f1 73 24 3b 0d  34 44 06 20 ed 0d 34 4e  |22:.s$;.4D. ..4N|
00008da0  05 cd 0d 34 58 16 e7 28  68 6f 6c 65 25 3d 31 38  |...4X..(hole%=18|
00008db0  29 80 53 48 25 3d 31 8c  0d 34 62 0c 20 e3 70 25  |).SH%=1..4b. .p%|
00008dc0  3d 31 b8 31 0d 34 6c 44  20 20 73 25 3d 74 6f 74  |=1.1.4lD  s%=tot|
00008dd0  73 63 6f 72 65 25 28 70  25 29 2d 6f 75 74 73 63  |score%(p%)-outsc|
00008de0  6f 72 65 25 28 70 25 29  3a 73 24 3d 22 20 20 22  |ore%(p%):s$="  "|
00008df0  2b c3 28 73 25 29 3a 73  24 3d c1 73 24 2c a9 28  |+.(s%):s$=.s$,.(|
00008e00  73 24 29 2d 32 2c 33 29  0d 34 76 22 20 20 e7 73  |s$)-2,3).4v"  .s|
00008e10  25 3e 69 6e 70 61 72 25  fb 35 8b e7 73 25 3d 69  |%>inpar%.5..s%=i|
00008e20  6e 70 61 72 25 fb 36 8b  fb 37 0d 34 80 19 20 20  |npar%.6..7.4..  |
00008e30  ef 33 31 2c 70 25 2a 34  2b 36 30 2c 32 30 3a f1  |.31,p%*4+60,20:.|
00008e40  73 24 3b 0d 34 8a 06 20  ed 0d 34 94 05 cd 0d 34  |s$;.4.. ..4....4|
00008e50  9e 0b e3 70 25 3d 31 b8  31 0d 34 a8 15 20 73 25  |...p%=1.1.4.. s%|
00008e60  3d 74 6f 74 73 63 6f 72  65 25 28 70 25 29 0d 34  |=totscore%(p%).4|
00008e70  b2 28 20 e7 73 25 3e 70  61 72 73 6f 66 61 72 25  |.( .s%>parsofar%|
00008e80  fb 35 8b e7 73 25 3d 70  61 72 73 6f 66 61 72 25  |.5..s%=parsofar%|
00008e90  20 fb 36 8b fb 37 0d 34  bc 17 20 e7 28 68 6f 6c  | .6..7.4.. .(hol|
00008ea0  65 25 3d 31 38 29 80 53  48 25 3d 31 8c 0d 34 c6  |e%=18).SH%=1..4.|
00008eb0  14 20 20 73 24 3d 22 20  20 20 22 2b c3 28 73 25  |.  s$="   "+.(s%|
00008ec0  29 0d 34 d0 06 20 cc 0d  34 da 15 20 20 73 25 3d  |).4.. ..4..  s%=|
00008ed0  73 25 2d 70 61 72 73 6f  66 61 72 25 0d 34 e4 3f  |s%-parsofar%.4.?|
00008ee0  20 20 e7 73 25 3d 30 73  24 3d 22 20 20 20 45 22  |  .s%=0s$="   E"|
00008ef0  8b e7 73 25 3c 30 73 24  3d 22 20 20 2d 22 2b c3  |..s%<0s$="  -"+.|
00008f00  28 94 28 73 25 29 29 8b  73 24 3d 22 20 20 2b 22  |(.(s%)).s$="  +"|
00008f10  2b c3 28 94 28 73 25 29  20 20 29 0d 34 ee 06 20  |+.(.(s%)  ).4.. |
00008f20  cd 0d 34 f8 2a 20 73 24  3d c1 73 24 2c a9 28 73  |..4.* s$=.s$,.(s|
00008f30  24 29 2d 32 2c 33 29 3a  ef 33 31 2c 70 25 2a 34  |$)-2,3):.31,p%*4|
00008f40  2b 36 30 2c 32 34 3a f1  73 24 3b 0d 35 02 05 ed  |+60,24:.s$;.5...|
00008f50  0d 35 0c 06 fb 39 0d 35  16 7b e7 68 6f 6c 65 25  |.5...9.5.{.hole%|
00008f60  3c 32 8c f1 8a 31 32 2c  32 39 29 22 43 6c 69 63  |<2...12,29)"Clic|
00008f70  6b 20 41 4e 59 20 6d 6f  75 73 65 20 6b 65 79 20  |k ANY mouse key |
00008f80  74 6f 20 63 6f 6e 74 69  6e 75 65 2c 20 20 41 4c  |to continue,  AL|
00008f90  4c 20 6d 6f 75 73 65 20  6b 65 79 73 20 74 6f 20  |L mouse keys to |
00008fa0  71 75 69 74 22 20 8b f1  8a 32 34 2c 32 39 29 22  |quit" ...24,29)"|
00008fb0  50 72 65 73 73 20 41 4c  4c 20 6d 6f 75 73 65 20  |Press ALL mouse |
00008fc0  6b 65 79 73 20 74 6f 20  63 6f 6e 74 69 6e 75 65  |keys to continue|
00008fd0  22 0d 35 20 15 f5 c8 97  78 25 2c 79 25 2c 62 25  |".5 ....x%,y%,b%|
00008fe0  3a fd 62 25 3e 30 0d 35  2a 0b 67 6f 6f 6e 25 3d  |:.b%>0.5*.goon%=|
00008ff0  b9 0d 35 34 05 f5 0d 35  3e 0f 20 c8 97 78 25 2c  |..54...5>. ..x%,|
00009000  79 25 2c 62 25 0d 35 48  12 20 e7 62 25 3d 37 8c  |y%,b%.5H. .b%=7.|
00009010  67 6f 6f 6e 25 3d a3 0d  35 52 26 fd 28 28 68 6f  |goon%=..5R&.((ho|
00009020  6c 65 25 3c 32 29 80 62  25 3d 30 29 84 28 28 68  |le%<2).b%=0).((h|
00009030  6f 6c 65 25 3d 32 29 80  62 25 3d 37 29 0d 35 5c  |ole%=2).b%=7).5\|
00009040  1b e7 62 25 3d 37 8c f5  c8 97 78 25 2c 79 25 2c  |..b%=7....x%,y%,|
00009050  62 25 3a fd 62 25 3d 30  0d 35 66 05 e1 0d 35 70  |b%:.b%=0.5f...5p|
00009060  05 20 0d 35 84 0f dd a4  74 72 65 65 28 78 2c 79  |. .5....tree(x,y|
00009070  29 0d 35 8e 15 ea 64 2c  6d 25 2c 74 77 2c 69 25  |).5...d,m%,tw,i%|
00009080  2c 78 64 2c 79 64 0d 35  98 0f 64 3d 39 39 39 39  |,xd,yd.5..d=9999|
00009090  3a 6d 25 3d 31 0d 35 a2  10 e3 69 25 3d 31 b8 74  |:m%=1.5...i%=1.t|
000090a0  72 65 65 73 25 0d 35 ac  17 20 78 64 3d 94 28 78  |rees%.5.. xd=.(x|
000090b0  2d 74 72 65 65 78 25 28  69 25 29 29 0d 35 b6 10  |-treex%(i%)).5..|
000090c0  20 e7 78 64 3e 31 32 8c  8d 64 68 75 0d 35 c0 17  | .xd>12..dhu.5..|
000090d0  20 79 64 3d 94 28 79 2d  74 72 65 65 79 25 28 69  | yd=.(y-treey%(i|
000090e0  25 29 29 0d 35 ca 10 20  e7 79 64 3e 31 32 8c 8d  |%)).5.. .yd>12..|
000090f0  64 68 75 0d 35 d4 13 20  74 77 3d 78 64 2a 78 64  |dhu.5.. tw=xd*xd|
00009100  2b 79 64 2a 79 64 0d 35  de 16 20 e7 74 77 3c 64  |+yd*yd.5.. .tw<d|
00009110  20 8c 64 3d 74 77 3a 6d  25 3d 69 25 0d 35 e8 05  | .d=tw:m%=i%.5..|
00009120  ed 0d 35 f2 0e 54 64 69  73 74 3d b6 28 64 29 0d  |..5..Tdist=.(d).|
00009130  35 fc 07 3d 6d 25 0d 36  10 05 20 0d 36 1a 53 dd  |5..=m%.6.. .6.S.|
00009140  a4 62 68 64 6f 62 6a 28  63 25 29 3d ac 28 28 63  |.bhdobj(c%)=.((c|
00009150  25 3d 31 32 29 84 28 63  25 3d 35 36 29 84 28 63  |%=12).(c%=56).(c|
00009160  25 3d 38 29 84 28 63 25  3d 39 29 84 28 63 25 3d  |%=8).(c%=9).(c%=|
00009170  42 63 6f 6c 25 29 84 28  63 25 3d 30 29 84 28 63  |Bcol%).(c%=0).(c|
00009180  25 3d 33 36 29 84 28 63  25 3d 35 37 29 29 0d 36  |%=36).(c%=57)).6|
00009190  24 05 20 0d 36 38 23 dd  f2 77 74 28 73 29 3a ea  |$. .68#..wt(s):.|
000091a0  74 25 3a 74 25 3d 91 3a  f5 fd 91 2d 74 25 3e 73  |t%:t%=.:...-t%>s|
000091b0  2a 31 30 30 3a e1 0d 36  c4 05 20 0d 36 ce 0c dd  |*100:..6.. .6...|
000091c0  a4 6e 65 78 74 3d 31 0d  37 78 05 20 0d 37 82 0f  |.next=1.7x. .7..|
000091d0  dd a4 61 6c 6c 69 6e 68  6f 6c 65 0d 37 8c 0a ea  |..allinhole.7...|
000091e0  69 25 2c 72 25 0d 37 96  08 72 25 3d b9 0d 37 aa  |i%,r%.7..r%=..7.|
000091f0  14 e7 ac 68 6f 6c 65 64  25 28 31 29 8c 72 25 3d  |...holed%(1).r%=|
00009200  a3 0d 37 be 07 3d 72 25  0d 37 d2 05 20 0d 37 dc  |..7..=r%.7.. .7.|
00009210  0b dd a4 6f 6e 74 65 65  0d 37 e6 0a ea 69 25 2c  |...ontee.7...i%,|
00009220  62 25 0d 37 f0 08 62 25  3d a3 0d 38 04 2d e7 28  |b%.7..b%=..8.-.(|
00009230  62 61 6c 6c 78 28 31 29  3d 54 45 58 25 28 30 29  |ballx(1)=TEX%(0)|
00009240  29 80 62 61 6c 6c 79 28  31 29 3d 54 45 59 25 28  |).bally(1)=TEY%(|
00009250  30 29 8c 62 25 3d b9 0d  38 18 07 3d 62 25 0d 38  |0).b%=..8..=b%.8|
00009260  2c 05 20 0d 38 36 10 dd  a4 66 75 72 74 68 65 73  |,. .86...furthes|
00009270  74 3d 31 0d 38 90 05 20  0d 38 9a 0d dd a4 6f 6e  |t=1.8.. .8....on|
00009280  67 72 65 65 6e 0d 38 a4  08 ea 78 2c 79 0d 38 ae  |green.8...x,y.8.|
00009290  26 e7 28 62 68 64 62 6c  25 28 70 75 25 29 3d 31  |&.(bhdbl%(pu%)=1|
000092a0  32 29 84 62 68 64 62 6c  25 28 70 75 25 29 3d 30  |2).bhdbl%(pu%)=0|
000092b0  8c 3d b9 0d 38 b8 1d 78  3d 62 61 6c 6c 78 28 70  |.=..8..x=ballx(p|
000092c0  75 25 29 3a 79 3d 62 61  6c 6c 79 28 70 75 25 29  |u%):y=bally(pu%)|
000092d0  0d 38 c2 61 e7 28 b0 78  2b 34 2c 79 29 3d 31 32  |.8.a.(.x+4,y)=12|
000092e0  29 84 28 b0 78 2d 34 2c  79 29 3d 31 32 29 84 28  |).(.x-4,y)=12).(|
000092f0  b0 78 2c 79 2d 34 29 3d  31 32 29 84 28 b0 78 2c  |.x,y-4)=12).(.x,|
00009300  79 2b 34 29 3d 31 32 29  8c e7 28 62 68 64 62 6c  |y+4)=12)..(bhdbl|
00009310  32 25 3d 31 32 29 84 28  62 68 64 62 6c 32 25 3d  |2%=12).(bhdbl2%=|
00009320  30 29 84 62 68 64 62 6c  32 25 3d 32 20 20 8c 3d  |0).bhdbl2%=2  .=|
00009330  b9 0d 38 cc 06 3d a3 0d  38 d6 05 20 0d 38 ea 3b  |..8..=..8.. .8.;|
00009340  dd a4 64 69 73 74 3d b6  28 28 28 62 61 6c 6c 78  |..dist=.(((ballx|
00009350  2d 66 6c 61 67 78 25 29  2a 31 2e 35 29 5e 32 2b  |-flagx%)*1.5)^2+|
00009360  28 28 62 61 6c 6c 79 2d  66 6c 61 67 79 25 29 2a  |((bally-flagy%)*|
00009370  31 2e 35 29 5e 32 29 0d  38 fe 05 20 0d 39 08 0d  |1.5)^2).8.. .9..|
00009380  dd a4 63 6c 75 62 28 79  29 0d 39 12 0f ea 64 2c  |..club(y).9...d,|
00009390  63 25 2c 6e 25 2c 6c 25  0d 39 1c 0a 64 3d 38 30  |c%,n%,l%.9..d=80|
000093a0  30 30 0d 39 26 2c e7 28  62 61 6c 6c 78 3d 54 45  |00.9&,.(ballx=TE|
000093b0  58 25 28 30 29 29 80 62  61 6c 6c 79 3d 54 45 59  |X%(0)).bally=TEY|
000093c0  25 28 30 29 8c 6c 25 3d  31 8b 6c 25 3d 32 0d 39  |%(0).l%=1.l%=2.9|
000093d0  30 0d e3 63 25 3d 6c 25  b8 31 33 0d 39 3a 36 20  |0..c%=l%.13.9:6 |
000093e0  e7 94 28 79 2d 63 6c 75  62 64 69 73 74 25 28 63  |..(y-clubdist%(c|
000093f0  25 29 29 3c 64 20 8c 64  3d 94 28 79 2d 63 6c 75  |%))<d .d=.(y-clu|
00009400  62 64 69 73 74 25 28 63  25 29 29 3a 6e 25 3d 63  |bdist%(c%)):n%=c|
00009410  25 0d 39 44 05 ed 0d 39  4e 07 3d 6e 25 0d 39 58  |%.9D...9N.=n%.9X|
00009420  05 20 0d 39 6c 0e dd f2  73 6f 72 74 6f 62 6a 73  |. .9l...sortobjs|
00009430  0d 39 76 13 ea 69 25 2c  6a 25 2c 73 25 2c 63 25  |.9v..i%,j%,s%,c%|
00009440  2c 67 25 0d 39 80 1c e3  69 25 3d 31 b8 6f 62 6a  |,g%.9...i%=1.obj|
00009450  73 25 3a 53 4f 25 28 69  25 29 3d 69 25 3a ed 0d  |s%:SO%(i%)=i%:..|
00009460  39 8a 0e 67 25 3d 6f 62  6a 73 25 2b 31 0d 39 94  |9..g%=objs%+1.9.|
00009470  05 f5 0d 39 9e 18 20 63  25 3d a3 3a e7 67 25 3e  |...9.. c%=.:.g%>|
00009480  31 67 25 3d 67 25 2a 2e  36 37 0d 39 b2 13 20 e3  |1g%=g%*.67.9.. .|
00009490  69 25 3d 31 b8 6f 62 6a  73 25 2d 67 25 0d 39 bc  |i%=1.objs%-g%.9.|
000094a0  3e 20 20 e7 4f 59 31 28  53 4f 25 28 69 25 2b 67  |>  .OY1(SO%(i%+g|
000094b0  25 29 29 3e 4f 59 31 28  53 4f 25 28 69 25 29 29  |%))>OY1(SO%(i%))|
000094c0  8c c8 94 20 53 4f 25 28  69 25 29 2c 53 4f 25 28  |... SO%(i%),SO%(|
000094d0  69 25 2b 67 25 29 3a 63  25 3d b9 0d 39 c6 06 20  |i%+g%):c%=..9.. |
000094e0  ed 0d 39 d0 0f fd 28 ac  63 25 29 80 67 25 3d 31  |..9...(.c%).g%=1|
000094f0  0d 39 da 05 e1 0d 39 ee  05 20 0d 39 f8 1f dd f2  |.9....9.. .9....|
00009500  64 72 61 77 74 72 65 65  28 74 70 25 2c 78 31 2c  |drawtree(tp%,x1,|
00009510  79 31 2c 78 30 2c 79 30  29 0d 3a 02 16 ea 73 25  |y1,x0,y0).:...s%|
00009520  2c 77 73 25 2c 77 25 2c  62 7a 68 2c 64 68 25 0d  |,ws%,w%,bzh,dh%.|
00009530  3a 0c 16 62 7a 68 3d a4  68 74 32 28 62 61 6c 6c  |:..bzh=.ht2(ball|
00009540  7a 2c 79 31 29 0d 3a 16  16 77 73 25 3d 28 31 30  |z,y1).:..ws%=(10|
00009550  36 30 30 2a 53 43 25 29  81 79 31 0d 3a 20 19 73  |600*SC%).y1.: .s|
00009560  25 3d 54 53 43 2a 28 31  30 36 30 30 2a 53 43 25  |%=TSC*(10600*SC%|
00009570  29 81 79 31 0d 3a 2a 18  77 25 3d 28 54 57 25 28  |).y1.:*.w%=(TW%(|
00009580  74 70 25 29 2a 77 73 25  29 81 35 33 0d 3a 34 10  |tp%)*ws%).53.:4.|
00009590  f2 58 59 31 32 28 78 31  2c 79 31 29 0d 3a 3e 1d  |.XY12(x1,y1).:>.|
000095a0  e7 79 31 3c 32 30 30 e7  94 28 58 32 2d 36 34 30  |.y1<200..(X2-640|
000095b0  29 3c 77 25 2b 31 32 30  e1 0d 3a 48 23 64 68 25  |)<w%+120..:H#dh%|
000095c0  3d 59 32 2b a4 68 74 32  28 a4 47 68 74 28 78 30  |=Y2+.ht2(.Ght(x0|
000095d0  2c 79 30 29 2c 79 31 29  2d 62 7a 68 0d 3a 52 1c  |,y0),y1)-bzh.:R.|
000095e0  e7 79 31 3c 31 39 36 64  68 25 3d a4 6d 69 6e 28  |.y1<196dh%=.min(|
000095f0  64 68 25 2c 32 34 38 29  0d 3a 5c 67 e7 64 68 25  |dh%,248).:\g.dh%|
00009600  3e 32 30 30 8c 20 21 53  43 41 4c 45 25 3d 73 25  |>200. !SCALE%=s%|
00009610  3a 53 43 41 4c 45 25 21  34 3d 73 25 3a 53 43 41  |:SCALE%!4=s%:SCA|
00009620  4c 45 25 21 38 3d 31 30  30 3a 53 43 41 4c 45 25  |LE%!8=100:SCALE%|
00009630  21 31 32 3d 31 30 30 3a  c8 99 34 36 2c 33 30 38  |!12=100:..46,308|
00009640  2c 53 50 25 2c 54 24 28  74 70 25 29 2c 58 32 2d  |,SP%,T$(tp%),X2-|
00009650  77 25 2c 64 68 25 2c 38  2c 53 43 41 4c 45 25 0d  |w%,dh%,8,SCALE%.|
00009660  3a 66 05 e1 0d 3a 70 05  20 0d 3a 84 11 dd f2 64  |:f...:p. .:....d|
00009670  72 61 77 67 72 6e 28 73  25 29 0d 3a 8e 11 ea 63  |rawgrn(s%).:...c|
00009680  25 2c 78 30 2c 79 30 2c  62 7a 68 0d 3a 98 1a e6  |%,x0,y0,bzh.:...|
00009690  30 2c 31 32 c8 9c 28 31  2d 47 4e 4f 25 28 73 25  |0,12..(1-GNO%(s%|
000096a0  29 29 2a 36 34 0d 3a a2  12 e3 63 25 3d 31 b8 47  |))*64.:...c%=1.G|
000096b0  4e 43 25 28 73 25 29 0d  3a ac 22 20 78 30 3d 47  |NC%(s%).:." x0=G|
000096c0  4e 58 25 28 73 25 2c 63  25 29 3a 79 30 3d 47 4e  |NX%(s%,c%):y0=GN|
000096d0  59 25 28 73 25 2c 63 25  29 0d 3a b6 31 20 f2 58  |Y%(s%,c%).:.1 .X|
000096e0  59 30 31 28 78 30 2c 79  30 29 3a f2 58 59 31 32  |Y01(x0,y0):.XY12|
000096f0  28 58 31 2c 59 31 29 3a  62 7a 68 3d a4 68 74 32  |(X1,Y1):bzh=.ht2|
00009700  28 62 61 6c 6c 7a 2c 59  31 29 0d 3a c0 60 20 e7  |(ballz,Y1).:.` .|
00009710  63 25 3c 33 20 ec 58 32  2c a4 44 48 28 59 32 2b  |c%<3 .X2,.DH(Y2+|
00009720  a4 68 74 32 28 a4 47 68  74 28 78 30 2c 79 30 29  |.ht2(.Ght(x0,y0)|
00009730  2c 59 31 29 2d 62 7a 68  2c 59 31 29 20 8b f0 38  |,Y1)-bzh,Y1) ..8|
00009740  35 2c 58 32 2c a4 44 48  28 20 20 59 32 2b a4 68  |5,X2,.DH(  Y2+.h|
00009750  74 32 28 a4 47 68 74 28  78 30 2c 79 30 29 2c 59  |t2(.Ght(x0,y0),Y|
00009760  31 29 2d 62 7a 68 2c 59  31 29 0d 3a ca 05 ed 0d  |1)-bzh,Y1).:....|
00009770  3a d4 05 e1 0d 3a de 05  20 0d 3a f2 0f dd f2 77  |:....:.. .:....w|
00009780  61 74 65 72 28 73 25 29  0d 3a fc 11 ea 63 25 2c  |ater(s%).:...c%,|
00009790  78 30 2c 79 30 2c 62 7a  68 0d 3b 06 0e e6 30 2c  |x0,y0,bzh.;...0,|
000097a0  33 36 c8 9c 31 32 38 0d  3b 10 12 e3 63 25 3d 31  |36..128.;...c%=1|
000097b0  b8 57 63 6f 25 28 73 25  29 0d 3b 1a 20 20 78 30  |.Wco%(s%).;.  x0|
000097c0  3d 57 78 25 28 73 25 2c  63 25 29 3a 79 30 3d 57  |=Wx%(s%,c%):y0=W|
000097d0  79 25 28 73 25 2c 63 25  29 0d 3b 24 31 20 f2 58  |y%(s%,c%).;$1 .X|
000097e0  59 30 31 28 78 30 2c 79  30 29 3a f2 58 59 31 32  |Y01(x0,y0):.XY12|
000097f0  28 58 31 2c 59 31 29 3a  62 7a 68 3d a4 68 74 32  |(X1,Y1):bzh=.ht2|
00009800  28 62 61 6c 6c 7a 2c 59  31 29 0d 3b 2e 60 20 e7  |(ballz,Y1).;.` .|
00009810  63 25 3c 33 20 ec 58 32  2c a4 44 48 28 59 32 2b  |c%<3 .X2,.DH(Y2+|
00009820  a4 68 74 32 28 a4 47 68  74 28 78 30 2c 79 30 29  |.ht2(.Ght(x0,y0)|
00009830  2c 59 31 29 2d 62 7a 68  2c 59 31 29 20 8b f0 38  |,Y1)-bzh,Y1) ..8|
00009840  35 2c 58 32 2c a4 44 48  28 20 20 59 32 2b a4 68  |5,X2,.DH(  Y2+.h|
00009850  74 32 28 a4 47 68 74 28  78 30 2c 79 30 29 2c 59  |t2(.Ght(x0,y0),Y|
00009860  31 29 2d 62 7a 68 2c 59  31 29 0d 3b 38 05 ed 0d  |1)-bzh,Y1).;8...|
00009870  3b 42 05 e1 0d 3b 4c 05  20 0d 3b 60 0e dd f2 70  |;B...;L. .;`...p|
00009880  6f 73 74 28 73 25 29 0d  3b 6a 11 ea 78 30 2c 79  |ost(s%).;j..x0,y|
00009890  30 2c 62 7a 68 2c 79 74  0d 3b 74 ab e6 30 2c 36  |0,bzh,yt.;t..0,6|
000098a0  33 c8 9c 30 3a 78 30 3d  4f 42 58 25 28 73 25 29  |3..0:x0=OBX%(s%)|
000098b0  3a 79 30 3d 4f 42 59 25  28 73 25 29 3a f2 58 59  |:y0=OBY%(s%):.XY|
000098c0  30 31 28 78 30 2c 79 30  29 3a f2 58 59 31 32 28  |01(x0,y0):.XY12(|
000098d0  58 31 2c 59 31 29 3a 62  7a 68 3d a4 68 74 32 28  |X1,Y1):bzh=.ht2(|
000098e0  62 61 6c 6c 7a 2c 59 31  29 3a 79 74 3d 59 32 2b  |ballz,Y1):yt=Y2+|
000098f0  a4 68 74 32 28 a4 47 68  74 28 78 30 2c 79 30 29  |.ht2(.Ght(x0,y0)|
00009900  2b 31 2c 59 31 29 2d 62  7a 68 3a ec 58 32 2c a4  |+1,Y1)-bzh:.X2,.|
00009910  44 48 28 59 32 2b a4 68  74 32 28 a4 47 68 74 28  |DH(Y2+.ht2(.Ght(|
00009920  78 30 2c 79 30 29 2c 59  31 29 2d 62 7a 68 2c 59  |x0,y0),Y1)-bzh,Y|
00009930  31 29 3a f0 35 2c 58 32  2c a4 44 48 28 79 74 2c  |1):.5,X2,.DH(yt,|
00009940  59 31 29 0d 3b 7e 05 e1  0d 3b 92 05 20 0d 3b 9c  |Y1).;~...;.. .;.|
00009950  13 dd f2 6f 70 62 6c 28  78 31 31 2c 79 31 31 29  |...opbl(x11,y11)|
00009960  0d 3b a6 12 ea 74 25 2c  62 7a 68 2c 48 32 25 2c  |.;...t%,bzh,H2%,|
00009970  63 25 0d 3b b0 39 58 31  3d 78 31 31 3a 59 31 3d  |c%.;.9X1=x11:Y1=|
00009980  79 31 31 3a f2 58 59 31  32 28 78 31 31 2c 79 31  |y11:.XY12(x11,y1|
00009990  31 29 3a f2 58 59 31 30  3a 62 7a 68 3d a4 68 74  |1):.XY10:bzh=.ht|
000099a0  32 28 62 61 6c 6c 7a 2c  59 31 29 0d 3b ba 2b 48  |2(ballz,Y1).;.+H|
000099b0  32 25 3d a4 44 48 28 59  32 2b a4 68 74 32 28 a4  |2%=.DH(Y2+.ht2(.|
000099c0  47 68 74 28 58 30 2c 59  30 29 2c 59 31 29 2d 62  |Ght(X0,Y0),Y1)-b|
000099d0  7a 68 2c 59 31 29 0d 3b  c4 0f 63 25 3d b0 58 32  |zh,Y1).;..c%=.X2|
000099e0  2c 48 32 25 29 0d 3b ce  23 e7 28 ac a4 62 68 64  |,H2%).;.#.(..bhd|
000099f0  6f 62 6a 28 63 25 29 29  80 28 63 25 3c 3e 30 29  |obj(c%)).(c%<>0)|
00009a00  80 63 25 3c 3e 35 37 8c  0d 3b d8 67 20 e7 28 66  |.c%<>57..;.g .(f|
00009a10  65 65 74 25 3c 31 32 30  29 80 63 25 3d 31 32 e6  |eet%<120).c%=12.|
00009a20  30 2c 35 37 c8 9c 31 32  38 3a f0 36 39 2c 58 32  |0,57..128:.69,X2|
00009a30  2c 48 32 25 8b 74 25 3d  a4 6d 61 78 28 30 2c a4  |,H2%.t%=.max(0,.|
00009a40  6d 69 6e 28 33 2c 20 33  2d 28 59 31 2d 32 30 30  |min(3, 3-(Y1-200|
00009a50  29 81 31 34 30 29 29 2a  36 34 3a e6 30 2c 36 33  |).140))*64:.0,63|
00009a60  c8 9c 74 25 3a f0 36 39  2c 58 32 2c 48 32 25 0d  |..t%:.69,X2,H2%.|
00009a70  3c 14 05 cd 0d 3c 1e 05  e1 0d 3c 28 05 20 0d 3c  |<....<....<(. .<|
00009a80  3c 0d dd f2 64 72 61 77  74 65 65 0d 3c 46 11 ea  |<...drawtee.<F..|
00009a90  63 25 2c 78 30 2c 79 30  2c 62 7a 68 0d 3c 50 14  |c%,x0,y0,bzh.<P.|
00009aa0  e6 30 2c 38 2d 4c 49 4e  4b 53 25 c8 9c 31 39 32  |.0,8-LINKS%..192|
00009ab0  0d 3c 5a 0b e3 63 25 3d  31 b8 36 0d 3c 64 36 20  |.<Z..c%=1.6.<d6 |
00009ac0  78 30 3d 54 45 58 25 28  63 25 29 3a 79 30 3d 54  |x0=TEX%(c%):y0=T|
00009ad0  45 59 25 28 63 25 29 3a  f2 58 59 30 31 28 78 30  |EY%(c%):.XY01(x0|
00009ae0  2c 79 30 29 3a f2 58 59  31 32 28 58 31 2c 59 31  |,y0):.XY12(X1,Y1|
00009af0  29 0d 3c 6e 23 20 62 7a  68 3d a4 68 74 32 28 62  |).<n# bzh=.ht2(b|
00009b00  61 6c 6c 7a 2c 59 31 29  3a 54 45 58 32 28 63 25  |allz,Y1):TEX2(c%|
00009b10  29 3d 58 32 0d 3c 78 54  20 e7 28 63 25 3d 32 29  |)=X2.<xT .(c%=2)|
00009b20  84 63 25 3d 34 20 54 45  59 32 28 63 25 29 3d 54  |.c%=4 TEY2(c%)=T|
00009b30  45 59 32 28 63 25 2d 31  29 20 8b 54 45 59 32 28  |EY2(c%-1) .TEY2(|
00009b40  63 25 29 3d a4 44 48 28  59 32 2b a4 68 74 32 28  |c%)=.DH(Y2+.ht2(|
00009b50  a4 47 68 74 28 78 30 2c  79 30 20 29 2c 59 31 29  |.Ght(x0,y0 ),Y1)|
00009b60  2d 62 7a 68 2c 59 31 29  0d 3c 82 05 ed 0d 3c 8c  |-bzh,Y1).<....<.|
00009b70  d1 e7 28 54 45 59 32 28  36 29 3e a4 6d 69 6e 28  |..(TEY2(6)>.min(|
00009b80  54 45 59 32 28 31 29 2c  54 45 59 32 28 33 29 29  |TEY2(1),TEY2(3))|
00009b90  29 80 28 54 45 59 32 28  36 29 3c a4 6d 61 78 28  |).(TEY2(6)<.max(|
00009ba0  54 45 59 32 28 31 29 2c  54 45 59 32 28 33 29 29  |TEY2(1),TEY2(3))|
00009bb0  29 8c 54 45 59 32 28 35  29 3d 54 45 59 32 28 36  |).TEY2(5)=TEY2(6|
00009bc0  29 8b e7 28 54 45 59 32  28 35 29 3e a4 6d 69 6e  |)..(TEY2(5)>.min|
00009bd0  28 54 45 59 32 28 31 29  2c 54 45 59 32 28 33 29  |(TEY2(1),TEY2(3)|
00009be0  29 29 80 28 54 45 59 32  28 35 29 3c a4 6d 61 78  |)).(TEY2(5)<.max|
00009bf0  28 54 45 59 32 28 31 29  2c 54 45 59 32 28 33 29  |(TEY2(1),TEY2(3)|
00009c00  29 29 8c 54 45 59 32 28  36 29 3d 54 45 59 32 28  |)).TEY2(6)=TEY2(|
00009c10  35 29 8b 54 45 59 32 28  36 29 3d 28 54 45 59 32  |5).TEY2(6)=(TEY2|
00009c20  28 31 29 2b 54 45 59 32  28 33 29 29 2f 32 3a 54  |(1)+TEY2(3))/2:T|
00009c30  45 59 32 28 35 29 3d 54  45 59 32 28 36 29 0d 3c  |EY2(5)=TEY2(6).<|
00009c40  96 23 e7 a4 6f 6e 74 65  65 20 54 45 59 32 28 35  |.#..ontee TEY2(5|
00009c50  29 3d 32 38 30 3a 54 45  59 32 28 36 29 3d 32 38  |)=280:TEY2(6)=28|
00009c60  30 0d 3c a0 4d ec 54 45  58 32 28 31 29 2c 54 45  |0.<.M.TEX2(1),TE|
00009c70  59 32 28 31 29 3a ec 54  45 58 32 28 32 29 2c 54  |Y2(1):.TEX2(2),T|
00009c80  45 59 32 28 32 29 3a f0  38 35 2c 54 45 58 32 28  |EY2(2):.85,TEX2(|
00009c90  33 29 2c 54 45 59 32 28  33 29 3a f0 38 35 2c 54  |3),TEY2(3):.85,T|
00009ca0  45 58 32 28 34 29 2c 54  45 59 32 28 34 29 0d 3c  |EX2(4),TEY2(4).<|
00009cb0  aa 0e e6 30 2c 36 33 c8  9c 31 32 38 0d 3c b4 0c  |...0,63..128.<..|
00009cc0  e7 59 31 3e 32 35 30 8c  0d 3c be 2a 20 c8 92 20  |.Y1>250..<.* .. |
00009cd0  54 45 58 32 28 35 29 2c  54 45 59 32 28 35 29 3a  |TEX2(5),TEY2(5):|
00009ce0  c8 92 20 54 45 58 32 28  36 29 2c 54 45 59 32 28  |.. TEX2(6),TEY2(|
00009cf0  36 29 0d 3c c8 05 cc 0d  3c d2 b6 20 c8 92 20 54  |6).<....<.. .. T|
00009d00  45 58 32 28 35 29 2d 32  2c 54 45 59 32 28 35 29  |EX2(5)-2,TEY2(5)|
00009d10  3a c8 92 20 54 45 58 32  28 35 29 2b 32 2c 54 45  |:.. TEX2(5)+2,TE|
00009d20  59 32 28 35 29 3a c8 92  20 54 45 58 32 28 35 29  |Y2(5):.. TEX2(5)|
00009d30  2d 32 2c 54 45 59 32 28  35 29 2b 34 20 3a c8 92  |-2,TEY2(5)+4 :..|
00009d40  20 54 45 58 32 28 35 29  2b 32 2c 54 45 59 32 28  | TEX2(5)+2,TEY2(|
00009d50  35 29 2b 34 3a c8 92 20  54 45 58 32 28 36 29 2d  |5)+4:.. TEX2(6)-|
00009d60  32 2c 54 45 59 32 28 36  29 3a c8 92 20 54 45 58  |2,TEY2(6):.. TEX|
00009d70  32 28 36 29 2b 32 2c 54  45 59 32 28 36 20 29 3a  |2(6)+2,TEY2(6 ):|
00009d80  c8 92 20 54 45 58 32 28  36 29 2d 32 2c 54 45 59  |.. TEX2(6)-2,TEY|
00009d90  32 28 36 29 2b 34 3a c8  92 20 54 45 58 32 28 36  |2(6)+4:.. TEX2(6|
00009da0  29 2b 32 2c 54 45 59 32  28 36 29 2b 34 0d 3c dc  |)+2,TEY2(6)+4.<.|
00009db0  05 cd 0d 3c e6 05 e1 0d  3c f0 05 20 0d 3d 04 12  |...<....<.. .=..|
00009dc0  dd f2 64 72 61 77 74 72  61 70 28 74 25 29 0d 3d  |..drawtrap(t%).=|
00009dd0  0e 1b ea 63 25 2c 78 30  2c 79 30 2c 62 7a 68 2c  |...c%,x0,y0,bzh,|
00009de0  64 25 2c 64 79 25 2c 6a  25 0d 3d 18 11 e6 30 2c  |d%,dy%,j%.=...0,|
00009df0  42 63 6f 6c 25 c8 9c 31  39 32 0d 3d 22 12 e3 63  |Bcol%..192.="..c|
00009e00  25 3d 30 b8 42 63 6f 25  28 74 25 29 0d 3d 2c 3a  |%=0.Bco%(t%).=,:|
00009e10  20 78 30 3d 42 78 25 28  74 25 2c 63 25 29 3a 79  | x0=Bx%(t%,c%):y|
00009e20  30 3d 42 79 25 28 74 25  2c 63 25 29 3a f2 58 59  |0=By%(t%,c%):.XY|
00009e30  30 31 28 78 30 2c 79 30  29 3a f2 58 59 31 32 28  |01(x0,y0):.XY12(|
00009e40  58 31 2c 59 31 29 0d 3d  36 17 20 62 7a 68 3d a4  |X1,Y1).=6. bzh=.|
00009e50  68 74 32 28 62 61 6c 6c  7a 2c 59 31 29 0d 3d 40  |ht2(ballz,Y1).=@|
00009e60  3b 20 42 78 32 28 63 25  29 3d 58 32 3a 42 79 32  |; Bx2(c%)=X2:By2|
00009e70  28 63 25 29 3d a4 44 48  28 59 32 2b a4 68 74 32  |(c%)=.DH(Y2+.ht2|
00009e80  28 a4 47 68 74 28 78 30  2c 79 30 29 2c 59 31 29  |(.Ght(x0,y0),Y1)|
00009e90  2d 62 7a 68 2c 59 31 29  0d 3d 4a 44 20 e7 63 25  |-bzh,Y1).=JD .c%|
00009ea0  3d 30 8c 64 25 3d 28 a4  68 74 32 28 a4 47 68 74  |=0.d%=(.ht2(.Ght|
00009eb0  28 78 30 2c 79 30 29 2c  59 31 29 2d a4 68 74 32  |(x0,y0),Y1)-.ht2|
00009ec0  28 a4 47 68 74 28 78 30  2c 79 30 29 2d 42 64 65  |(.Ght(x0,y0)-Bde|
00009ed0  70 74 68 2c 59 31 29 29  81 34 2a 34 0d 3d 54 05  |pth,Y1)).4*4.=T.|
00009ee0  ed 0d 3d 5e 20 ec 42 78  32 28 42 63 6f 25 28 74  |..=^ .Bx2(Bco%(t|
00009ef0  25 29 29 2c 42 79 32 28  42 63 6f 25 28 74 25 29  |%)),By2(Bco%(t%)|
00009f00  29 0d 3d 68 37 e3 6a 25  3d 31 b8 42 63 6f 25 28  |).=h7.j%=1.Bco%(|
00009f10  74 25 29 3a ec 42 78 32  28 30 29 2c 42 79 32 28  |t%):.Bx2(0),By2(|
00009f20  30 29 3a f0 38 35 2c 42  78 32 28 6a 25 29 2c 42  |0):.85,Bx2(j%),B|
00009f30  79 32 28 6a 25 29 3a ed  0d 3d 86 36 e6 30 2c 42  |y2(j%):..=.6.0,B|
00009f40  63 6f 6c 25 c8 9c 36 34  3a ec 42 78 32 28 42 63  |col%..64:.Bx2(Bc|
00009f50  6f 25 28 74 25 29 29 2c  42 79 32 28 42 63 6f 25  |o%(t%)),By2(Bco%|
00009f60  28 74 25 29 29 3a 64 79  25 3d 64 25 2b 34 0d 3d  |(t%)):dy%=d%+4.=|
00009f70  a4 05 f5 0d 3d ae 33 20  64 79 25 3d 64 79 25 2d  |....=.3 dy%=dy%-|
00009f80  34 3a 70 25 3d b0 42 78  32 28 42 63 6f 25 28 74  |4:p%=.Bx2(Bco%(t|
00009f90  25 29 29 2c 42 79 32 28  42 63 6f 25 28 74 25 29  |%)),By2(Bco%(t%)|
00009fa0  29 2d 64 79 25 29 0d 3d  c2 15 fd 28 64 79 25 3d  |)-dy%).=...(dy%=|
00009fb0  30 29 84 70 25 3d 42 63  6f 6c 25 0d 3d cc 24 ec  |0).p%=Bcol%.=.$.|
00009fc0  42 78 32 28 42 63 6f 25  28 74 25 29 29 2c 42 79  |Bx2(Bco%(t%)),By|
00009fd0  32 28 42 63 6f 25 28 74  25 29 29 2d 64 79 25 0d  |2(Bco%(t%))-dy%.|
00009fe0  3d d6 12 e3 6a 25 3d 31  b8 42 63 6f 25 28 74 25  |=...j%=1.Bco%(t%|
00009ff0  29 0d 3d e0 21 20 f0 38  35 2c 42 78 32 28 6a 25  |).=.! .85,Bx2(j%|
0000a000  29 2c 42 79 32 28 6a 25  29 3a 64 79 25 3d 64 25  |),By2(j%):dy%=d%|
0000a010  2b 34 0d 3d f4 06 20 f5  0d 3d fe 28 20 20 64 79  |+4.=.. ..=.(  dy|
0000a020  25 3d 64 79 25 2d 34 3a  70 25 3d b0 42 78 32 28  |%=dy%-4:p%=.Bx2(|
0000a030  6a 25 29 2c 42 79 32 28  6a 25 29 2d 64 79 25 29  |j%),By2(j%)-dy%)|
0000a040  0d 3e 12 16 20 fd 28 64  79 25 3d 30 29 84 70 25  |.>.. .(dy%=0).p%|
0000a050  3d 42 63 6f 6c 25 0d 3e  1c 1c 20 f0 38 35 2c 42  |=Bcol%.>.. .85,B|
0000a060  78 32 28 6a 25 29 2c 42  79 32 28 6a 25 29 2d 64  |x2(j%),By2(j%)-d|
0000a070  79 25 0d 3e 26 05 ed 0d  3e 30 05 e1 0d 3e 3a 05  |y%.>&...>0...>:.|
0000a080  20 0d 3e 4e 0e dd f2 64  72 61 77 66 6c 61 67 0d  | .>N...drawflag.|
0000a090  3e 58 20 ea 62 7a 68 2c  79 62 25 2c 79 74 25 2c  |>X .bzh,yb%,yt%,|
0000a0a0  66 25 2c 68 25 2c 69 25  2c 66 73 25 2c 67 25 0d  |f%,h%,i%,fs%,g%.|
0000a0b0  3e 62 25 f2 58 59 30 31  28 66 6c 61 67 78 25 2c  |>b%.XY01(flagx%,|
0000a0c0  66 6c 61 67 79 25 29 3a  f2 58 59 31 32 28 58 31  |flagy%):.XY12(X1|
0000a0d0  2c 59 31 29 0d 3e 6c 16  62 7a 68 3d a4 68 74 32  |,Y1).>l.bzh=.ht2|
0000a0e0  28 62 61 6c 6c 7a 2c 59  31 29 0d 3e 76 55 79 62  |(ballz,Y1).>vUyb|
0000a0f0  25 3d 59 32 2b a4 68 74  32 28 a4 47 68 74 28 66  |%=Y2+.ht2(.Ght(f|
0000a100  6c 61 67 78 25 2c 66 6c  61 67 79 25 29 2c 59 31  |lagx%,flagy%),Y1|
0000a110  29 2d 62 7a 68 3a 79 74  25 3d 59 32 2b a4 68 74  |)-bzh:yt%=Y2+.ht|
0000a120  32 28 a4 47 68 74 28 66  6c 61 67 78 25 2c 66 6c  |2(.Ght(flagx%,fl|
0000a130  61 67 79 25 29 2b 37 2c  59 31 29 2d 62 7a 68 0d  |agy%)+7,Y1)-bzh.|
0000a140  3e 80 5a 62 68 64 62 6c  32 25 3d b0 36 34 30 2c  |>.Zbhdbl2%=.640,|
0000a150  32 38 30 29 3a 68 25 3d  28 28 79 74 25 2d 79 62  |280):h%=((yt%-yb|
0000a160  25 29 2f 33 30 29 81 34  2a 34 3a e6 30 2c 30 c8  |%)/30).4*4:.0,0.|
0000a170  9c 31 39 32 3a ec 58 32  2d 68 25 2c 79 62 25 3a  |.192:.X2-h%,yb%:|
0000a180  f0 35 2c 58 32 2b 68 25  2c 79 62 25 3a e7 a4 6f  |.5,X2+h%,yb%:..o|
0000a190  6e 67 72 65 65 6e 20 8c  e1 0d 3e 8a 1a 67 25 3d  |ngreen ...>..g%=|
0000a1a0  28 28 79 74 25 2d 79 62  25 29 2f 38 2b 34 29 81  |((yt%-yb%)/8+4).|
0000a1b0  34 2a 34 0d 3e 94 0b e3  69 25 3d 31 b8 37 0d 3e  |4*4.>...i%=1.7.>|
0000a1c0  9e 23 20 e7 69 25 83 32  3d 31 8c e6 30 2c 46 43  |.# .i%.2=1..0,FC|
0000a1d0  31 25 c8 9c 30 8b e6 30  2c 20 46 43 32 25 c8 9c  |1%..0..0, FC2%..|
0000a1e0  30 0d 3e a8 29 20 ec 58  32 2c a4 44 48 28 a4 6d  |0.>.) .X2,.DH(.m|
0000a1f0  69 6e 28 79 74 25 2c 79  62 25 2b 67 25 2a 28 69  |in(yt%,yb%+g%*(i|
0000a200  25 2d 31 29 29 2c 59 31  20 29 0d 3e b2 26 20 f0  |%-1)),Y1 ).>.& .|
0000a210  35 2c 58 32 2c a4 44 48  28 a4 6d 69 6e 28 79 74  |5,X2,.DH(.min(yt|
0000a220  25 2c 79 62 25 2b 67 25  2a 69 25 29 2c 59 31 29  |%,yb%+g%*i%),Y1)|
0000a230  0d 3e bc 05 ed 0d 3e c6  17 f0 35 2c 58 32 2c a4  |.>....>...5,X2,.|
0000a240  44 48 28 79 74 25 2b 34  2c 59 31 29 0d 3e d0 12  |DH(yt%+4,Y1).>..|
0000a250  f2 66 6c 61 67 28 79 74  25 2c 79 62 25 29 0d 3e  |.flag(yt%,yb%).>|
0000a260  da 05 e1 0d 3e ee 05 20  0d 3e f8 13 dd f2 66 6c  |....>.. .>....fl|
0000a270  61 67 28 74 79 25 2c 62  79 25 29 0d 3f 02 0d ea  |ag(ty%,by%).?...|
0000a280  74 25 2c 64 25 2c 77 25  0d 3f 0c 46 74 25 3d 28  |t%,d%,w%.?.Ft%=(|
0000a290  28 74 79 25 2d 62 79 25  29 2f 36 29 81 34 2a 34  |(ty%-by%)/6).4*4|
0000a2a0  3a 64 25 3d 34 2b 74 25  2a 28 33 35 2d 77 69 6e  |:d%=4+t%*(35-win|
0000a2b0  64 25 29 2f 31 38 3a 77  25 3d 74 25 2a 77 69 6e  |d%)/18:w%=t%*win|
0000a2c0  64 25 2a b5 28 77 61 6e  67 32 29 2f 31 34 0d 3f  |d%*.(wang2)/14.?|
0000a2d0  16 0d e7 94 28 77 25 29  3c 34 8c 0d 3f 20 19 20  |....(w%)<4..? . |
0000a2e0  e7 77 61 6e 67 32 3c af  20 8c 77 25 3d 34 8b 77  |.wang2<. .w%=4.w|
0000a2f0  25 3d 2d 34 0d 3f 2a 05  cd 0d 3f 34 29 e6 30 2c  |%=-4.?*...?4).0,|
0000a300  66 63 6f 6c 25 c8 9c 66  74 69 6e 74 25 3a ec 58  |fcol%..ftint%:.X|
0000a310  32 2c 74 79 25 3a f0 35  2c 58 32 2c 74 79 25 2d  |2,ty%:.5,X2,ty%-|
0000a320  74 25 0d 3f 3e 28 f0 38  35 2c 58 32 2d 77 25 2c  |t%.?>(.85,X2-w%,|
0000a330  74 79 25 2d 64 25 3a f0  38 35 2c 58 32 2d 77 25  |ty%-d%:.85,X2-w%|
0000a340  2c 74 79 25 2d 64 25 2d  74 25 0d 3f 48 05 e1 0d  |,ty%-d%-t%.?H...|
0000a350  3f 5c 05 20 0d 3f 66 16  dd a4 6f 75 74 6f 66 62  |?\. .?f...outofb|
0000a360  6e 64 73 28 78 25 2c 79  25 29 0d 3f 70 28 e7 28  |nds(x%,y%).?p(.(|
0000a370  78 25 3c 31 36 29 84 28  78 25 3e 31 32 36 30 29  |x%<16).(x%>1260)|
0000a380  84 28 79 25 3e 33 36 38  29 84 79 25 3c 31 36 8c  |.(y%>368).y%<16.|
0000a390  3d b9 0d 3f 7a 1d e7 28  62 68 64 62 6c 25 3d 32  |=..?z..(bhdbl%=2|
0000a3a0  32 29 84 62 68 64 62 6c  25 3d 32 33 8c 3d b9 0d  |2).bhdbl%=23.=..|
0000a3b0  3f 84 06 3d a3 0d 3f 98  05 20 0d 3f a2 0c dd a4  |?..=..?.. .?....|
0000a3c0  54 48 28 6e 25 29 0d 3f  ac 0f e7 6e 25 3d 31 8c  |TH(n%).?...n%=1.|
0000a3d0  3d 22 73 74 22 0d 3f b6  0f e7 6e 25 3d 32 8c 3d  |="st".?...n%=2.=|
0000a3e0  22 6e 64 22 0d 3f c0 0f  e7 6e 25 3d 33 8c 3d 22  |"nd".?...n%=3.="|
0000a3f0  72 64 22 0d 3f ca 09 3d  22 74 68 22 0d 3f de 05  |rd".?..="th".?..|
0000a400  20 0d 3f e8 0c dd a4 61  6e 67 28 61 29 0d 3f f2  | .?....ang(a).?.|
0000a410  11 e7 61 3c 30 8c 3d 50  49 33 36 30 2b 61 0d 3f  |..a<0.=PI360+a.?|
0000a420  fc 16 e7 61 3e 50 49 33  36 30 20 8c 3d 61 2d 50  |...a>PI360 .=a-P|
0000a430  49 33 36 30 0d 40 06 06  3d 61 0d 40 1a 05 20 0d  |I360.@..=a.@.. .|
0000a440  40 24 0e dd a4 47 68 74  28 78 2c 79 29 0d 40 2e  |@$...Ght(x,y).@.|
0000a450  09 ea 69 25 2c 68 0d 40  38 0b e3 69 25 3d 31 b8  |..i%,h.@8..i%=1.|
0000a460  35 0d 40 42 51 20 68 3d  68 2b 47 48 25 28 69 25  |5.@BQ h=h+GH%(i%|
0000a470  29 2a 32 2e 37 31 38 32  38 32 5e 28 2d 2e 35 2a  |)*2.718282^(-.5*|
0000a480  28 28 78 2d 47 58 25 28  69 25 20 29 29 5e 32 2f  |((x-GX%(i% ))^2/|
0000a490  47 52 58 25 28 69 25 29  2b 28 79 2d 47 59 25 28  |GRX%(i%)+(y-GY%(|
0000a4a0  69 25 29 29 5e 32 2f 47  52 59 25 28 69 25 29 20  |i%))^2/GRY%(i%) |
0000a4b0  29 29 0d 40 4c 05 ed 0d  40 56 06 3d 68 0d 40 6a  |)).@L...@V.=h.@j|
0000a4c0  05 20 0d 40 74 0e dd a4  52 68 74 28 78 2c 79 29  |. .@t...Rht(x,y)|
0000a4d0  0d 40 7e 09 ea 69 25 2c  68 0d 40 88 0b e3 69 25  |.@~..i%,h.@...i%|
0000a4e0  3d 31 b8 35 0d 40 92 4d  20 65 78 70 28 69 25 29  |=1.5.@.M exp(i%)|
0000a4f0  3d 32 2e 37 31 38 32 38  32 5e 28 2d 2e 35 2a 28  |=2.718282^(-.5*(|
0000a500  28 78 2d 47 58 25 28 69  25 20 29 29 5e 32 2f 47  |(x-GX%(i% ))^2/G|
0000a510  52 58 25 28 69 25 20 29  2b 28 79 2d 47 59 25 28  |RX%(i% )+(y-GY%(|
0000a520  69 25 29 29 5e 32 2f 47  52 59 25 28 69 25 29 29  |i%))^2/GRY%(i%))|
0000a530  29 0d 40 9c 18 20 68 3d  68 2b 47 48 25 28 69 25  |).@.. h=h+GH%(i%|
0000a540  29 2a 65 78 70 28 69 25  29 0d 40 a6 05 ed 0d 40  |)*exp(i%).@....@|
0000a550  b0 06 3d 68 0d 40 c4 05  20 0d 40 ce 24 dd a4 73  |..=h.@.. .@.$..s|
0000a560  6c 6f 70 65 78 28 78 2c  79 29 20 f4 5f 63 61 6c  |lopex(x,y) ._cal|
0000a570  6c 20 61 66 74 65 72 20  46 4e 52 68 74 0d 40 d8  |l after FNRht.@.|
0000a580  09 ea 69 25 2c 73 0d 40  e2 0b e3 69 25 3d 31 b8  |..i%,s.@...i%=1.|
0000a590  35 0d 40 ec 2d 20 73 3d  73 2d 47 48 25 28 69 25  |5.@.- s=s-GH%(i%|
0000a5a0  29 2a 28 78 2d 47 58 25  28 69 25 29 29 2a 65 78  |)*(x-GX%(i%))*ex|
0000a5b0  70 28 69 25 29 2f 47 52  58 25 28 69 25 29 0d 40  |p(i%)/GRX%(i%).@|
0000a5c0  f6 05 ed 0d 41 00 06 3d  73 0d 41 0a 05 20 0d 41  |....A..=s.A.. .A|
0000a5d0  1e 11 dd a4 73 6c 6f 70  65 79 28 78 2c 79 29 0d  |....slopey(x,y).|
0000a5e0  41 28 09 ea 69 25 2c 73  0d 41 32 36 e3 69 25 3d  |A(..i%,s.A26.i%=|
0000a5f0  31 b8 35 3a 73 3d 73 2d  47 48 25 28 69 25 29 2a  |1.5:s=s-GH%(i%)*|
0000a600  28 79 2d 47 59 25 28 69  25 29 29 2a 65 78 70 28  |(y-GY%(i%))*exp(|
0000a610  69 25 29 2f 47 52 59 25  28 69 25 29 3a ed 0d 41  |i%)/GRY%(i%):..A|
0000a620  50 06 3d 73 0d 41 64 05  20 0d 41 6e 1d dd a4 68  |P.=s.Ad. .An...h|
0000a630  74 32 28 7a 2c 79 31 29  3d 53 43 25 2a 31 36 36  |t2(z,y1)=SC%*166|
0000a640  37 2a 7a 2f 79 31 0d 41  82 05 20 0d 41 8c 13 dd  |7*z/y1.A.. .A...|
0000a650  a4 70 6c 61 6e 70 74 28  78 25 2c 79 25 29 0d 41  |.planpt(x%,y%).A|
0000a660  96 07 ea 70 25 0d 41 a0  0c 2a 46 58 31 31 32 2c  |...p%.A..*FX112,|
0000a670  31 0d 41 aa 36 e7 28 78  25 3e 31 32 36 30 29 84  |1.A.6.(x%>1260).|
0000a680  28 78 25 3c 31 36 29 84  28 79 25 3e 33 37 30 29  |(x%<16).(y%>370)|
0000a690  84 79 25 3c 31 36 8c 70  25 3d 32 34 8b 70 25 3d  |.y%<16.p%=24.p%=|
0000a6a0  b0 78 25 2c 79 25 29 0d  41 b4 0c 2a 46 58 31 31  |.x%,y%).A..*FX11|
0000a6b0  32 2c 30 0d 41 be 07 3d  70 25 0d 41 c8 05 20 0d  |2,0.A..=p%.A.. .|
0000a6c0  41 dc 1b dd a4 6d 69 6e  28 61 25 2c 62 25 29 3a  |A....min(a%,b%):|
0000a6d0  e7 61 25 3e 62 25 8c 3d  62 25 0d 41 e6 07 3d 61  |.a%>b%.=b%.A..=a|
0000a6e0  25 0d 41 fa 05 20 0d 42  04 1b dd a4 6d 61 78 28  |%.A.. .B....max(|
0000a6f0  61 25 2c 62 25 29 3a e7  61 25 3e 62 25 8c 3d 61  |a%,b%):.a%>b%.=a|
0000a700  25 0d 42 0e 07 3d 62 25  0d 42 18 05 20 0d 42 2c  |%.B..=b%.B.. .B,|
0000a710  0f dd a4 44 48 28 79 25  2c 79 31 29 0d 42 36 0c  |...DH(y%,y1).B6.|
0000a720  e7 79 31 3c 31 39 35 8c  0d 42 40 2d 20 e7 79 31  |.y1<195..B@- .y1|
0000a730  3c 31 38 30 8c 79 25 3d  31 32 38 8b 79 25 3d a4  |<180.y%=128.y%=.|
0000a740  6d 61 78 28 31 32 38 2c  a4 6d 69 6e 28 32 35 36  |max(128,.min(256|
0000a750  2c 79 25 29 29 0d 42 4a  05 cd 0d 42 54 07 3d 79  |,y%)).BJ...BT.=y|
0000a760  25 0d 42 5e 05 20 0d 42  72 31 dd f2 59 32 31 28  |%.B^. .Br1..Y21(|
0000a770  79 32 29 3a 59 31 3d 28  53 43 37 25 2f 28 32 36  |y2):Y1=(SC7%/(26|
0000a780  30 2a 53 43 25 2b 32 38  30 2d 79 32 29 29 5e 2e  |0*SC%+280-y2))^.|
0000a790  36 36 36 36 36 36 37 0d  42 7c 0f e7 59 31 3c 31  |6666667.B|..Y1<1|
0000a7a0  30 59 31 3d 31 30 0d 42  86 05 e1 0d 42 9a 05 20  |0Y1=10.B....B.. |
0000a7b0  0d 42 a4 12 dd f2 67 63  6f 6c 72 28 63 25 2c 73  |.B....gcolr(c%,s|
0000a7c0  25 29 0d 42 ae 07 ea 74  25 0d 42 b8 16 e7 73 25  |%).B...t%.B...s%|
0000a7d0  3c 32 30 74 25 3d 31 32  38 8b 74 25 3d 36 34 0d  |<20t%=128.t%=64.|
0000a7e0  42 c2 27 e7 28 63 25 3d  38 29 84 28 63 25 3d 31  |B.'.(c%=8).(c%=1|
0000a7f0  32 29 84 28 63 25 3d 39  29 84 63 25 3d 30 74 25  |2).(c%=9).c%=0t%|
0000a800  3d 74 25 2b 36 34 0d 42  cc 1a e7 28 63 25 3e 32  |=t%+64.B...(c%>2|
0000a810  31 29 80 63 25 3c 32 36  74 25 3d 74 25 2d 36 34  |1).c%<26t%=t%-64|
0000a820  0d 42 d6 14 e6 30 2c 38  2d 4c 49 4e 4b 53 25 c8  |.B...0,8-LINKS%.|
0000a830  9c 20 74 25 0d 42 e0 05  e1 0d 42 f4 05 20 0d 42  |. t%.B....B.. .B|
0000a840  fe 0d dd f2 58 32 31 28  78 32 29 0d 43 08 1d 58  |....X21(x2).C..X|
0000a850  31 3d 59 31 2a 28 78 32  2d 36 34 32 29 2f 28 53  |1=Y1*(x2-642)/(S|
0000a860  43 25 2a 32 35 30 30 29  0d 43 12 05 e1 0d 43 26  |C%*2500).C....C&|
0000a870  05 20 0d 43 30 11 dd f2  58 59 31 32 28 78 31 2c  |. .C0...XY12(x1,|
0000a880  79 31 29 0d 43 3a 34 59  32 3d 32 36 30 2a 53 43  |y1).C:4Y2=260*SC|
0000a890  25 2b 32 38 30 2d 53 43  37 25 2f 79 31 5e 31 2e  |%+280-SC7%/y1^1.|
0000a8a0  35 3a 58 32 3d 36 34 32  2b 32 35 30 30 2a 53 43  |5:X2=642+2500*SC|
0000a8b0  25 2a 78 31 2f 79 31 0d  43 44 1f e7 94 28 58 32  |%*x1/y1.CD...(X2|
0000a8c0  29 3e 33 30 30 30 58 32  3d 58 32 2f 94 28 58 32  |)>3000X2=X2/.(X2|
0000a8d0  29 2a 33 30 30 30 0d 43  4e 05 e1 0d 43 62 05 20  |)*3000.CN...Cb. |
0000a8e0  0d 43 6c 0d dd f2 59 31  32 28 79 31 29 0d 43 76  |.Cl...Y12(y1).Cv|
0000a8f0  1e 59 32 3d 32 36 30 2a  53 43 25 2b 32 38 30 2d  |.Y2=260*SC%+280-|
0000a900  53 43 37 25 2f 79 31 5e  31 2e 35 0d 43 80 05 e1  |SC7%/y1^1.5.C...|
0000a910  0d 43 94 04 0d 43 9e 0a  dd f2 58 59 31 30 0d 43  |.C...C....XY10.C|
0000a920  a8 49 58 30 3d 62 61 6c  6c 78 2b 28 59 31 2d 32  |.IX0=ballx+(Y1-2|
0000a930  30 30 29 2a 63 6f 73 61  6e 67 2b 58 31 2a 73 69  |00)*cosang+X1*si|
0000a940  6e 61 6e 67 3a 59 30 3d  62 61 6c 6c 79 2b 28 59  |nang:Y0=bally+(Y|
0000a950  31 2d 32 30 30 29 2a 73  69 6e 61 6e 67 2d 58 31  |1-200)*sinang-X1|
0000a960  2a 63 6f 73 61 6e 67 0d  43 b2 05 e1 0d 43 c6 05  |*cosang.C....C..|
0000a970  20 0d 43 d0 11 dd f2 58  59 30 31 28 78 30 2c 79  | .C....XY01(x0,y|
0000a980  30 29 0d 43 da 11 ea 58  2c 59 2c 4c 31 2c 4c 32  |0).C...X,Y,L1,L2|
0000a990  2c 4c 33 0d 43 e4 1d 58  3d 28 78 30 2d 62 61 6c  |,L3.C..X=(x0-bal|
0000a9a0  6c 78 29 3a 59 3d 28 79  30 2d 62 61 6c 6c 79 29  |lx):Y=(y0-bally)|
0000a9b0  0d 43 ee c3 e7 94 28 61  6e 67 2d 50 49 39 30 29  |.C....(ang-PI90)|
0000a9c0  3c 2e 30 30 30 30 31 58  31 3d 58 3a 59 31 3d 59  |<.00001X1=X:Y1=Y|
0000a9d0  2b 32 30 30 8b e7 94 28  61 6e 67 2d af 29 3c 2e  |+200...(ang-.)<.|
0000a9e0  30 30 30 30 31 58 31 3d  59 3a 59 31 3d 2d 58 2b  |00001X1=Y:Y1=-X+|
0000a9f0  32 30 30 8b e7 94 28 61  6e 67 2d 50 49 32 37 30  |200...(ang-PI270|
0000aa00  29 3c 2e 30 30 30 30 31  58 31 3d 2d 58 3a 59 31  |)<.00001X1=-X:Y1|
0000aa10  3d 2d 59 2b 32 30 30 8b  e7 94 28 61 6e 67 29 3c  |=-Y+200...(ang)<|
0000aa20  2e 30 30 30 30 31 58 31  3d 2d 59 3a 59 31 3d 58  |.00001X1=-Y:Y1=X|
0000aa30  2b 32 30 30 8b 4c 31 3d  59 2f 74 61 6e 61 6e 67  |+200.L1=Y/tanang|
0000aa40  3a 4c 32 3d 58 2d 4c 31  3a 4c 33 3d 4c 32 2a 73  |:L2=X-L1:L3=L2*s|
0000aa50  69 6e 41 4e 3a 58 31 3d  4c 32 2a 63 6f 73 41 4e  |inAN:X1=L2*cosAN|
0000aa60  3a 59 31 3d 4c 33 2b 59  2f 73 69 6e 61 6e 67 2b  |:Y1=L3+Y/sinang+|
0000aa70  32 30 30 0d 43 f8 0f e7  59 31 3c 31 30 59 31 3d  |200.C...Y1<10Y1=|
0000aa80  31 30 0d 44 02 05 e1 0d  44 16 05 20 0d 44 20 10  |10.D....D.. .D .|
0000aa90  f4 5f 5f 47 41 4d 45 20  44 41 54 41 0d 44 2a 1b  |.__GAME DATA.D*.|
0000aaa0  f4 2e 2e 63 6c 75 62 76  65 6c 78 2c 7a 2c 64 69  |...clubvelx,z,di|
0000aab0  73 74 2c 6e 61 6d 65 0d  44 34 86 dc 34 2e 36 32  |st,name.D4..4.62|
0000aac0  2c 2e 38 2c 32 35 30 2c  44 72 69 76 65 72 2c 34  |,.8,250,Driver,4|
0000aad0  2e 31 33 2c 2e 39 2c 32  33 35 2c 33 20 57 6f 6f  |.13,.9,235,3 Woo|
0000aae0  64 2c 34 2e 33 36 2c 2e  36 38 2c 32 32 30 2c 31  |d,4.36,.68,220,1|
0000aaf0  20 49 72 6f 6e 2c 34 2e  30 34 2c 2e 37 31 2c 32  | Iron,4.04,.71,2|
0000ab00  30 38 2c 32 20 49 72 6f  6e 2c 33 2e 37 34 2c 2e  |08,2 Iron,3.74,.|
0000ab10  37 34 2c 31 39 36 2c 33  20 49 72 6f 6e 2c 33 2e  |74,196,3 Iron,3.|
0000ab20  34 35 2c 2e 37 37 2c 31  38 34 2c 34 20 49 72 6f  |45,.77,184,4 Iro|
0000ab30  6e 2c 33 2e 31 38 2c 2e  38 2c 31 37 32 0d 44 3e  |n,3.18,.8,172.D>|
0000ab40  82 dc 35 20 49 72 6f 6e  2c 32 2e 39 32 2c 2e 38  |..5 Iron,2.92,.8|
0000ab50  32 2c 31 36 30 2c 36 20  49 72 6f 6e 2c 32 2e 36  |2,160,6 Iron,2.6|
0000ab60  38 2c 2e 38 34 2c 31 34  38 2c 37 20 49 72 6f 6e  |8,.84,148,7 Iron|
0000ab70  2c 32 2e 34 33 2c 2e 38  36 2c 31 33 36 2c 38 20  |,2.43,.86,136,8 |
0000ab80  49 72 6f 6e 2c 32 2e 32  30 2c 2e 38 38 2c 31 32  |Iron,2.20,.88,12|
0000ab90  34 2c 39 20 49 72 6f 6e  2c 31 2e 39 38 2c 2e 38  |4,9 Iron,1.98,.8|
0000aba0  39 2c 31 31 32 2c 57 65  64 67 65 2c 31 2e 37 38  |9,112,Wedge,1.78|
0000abb0  2c 2e 38 38 2c 31 30 30  2c 53 61 6e 64 20 57 0d  |,.88,100,Sand W.|
0000abc0  44 48 19 f4 2e 2e 63 6c  75 62 20 73 77 69 6e 67  |DH....club swing|
0000abd0  20 68 61 6e 64 58 27 73  0d 44 52 10 dc 30 2c 30  | handX's.DR..0,0|
0000abe0  2c 30 2c 30 2c 30 2c 30  0d 44 5c 0e dc 34 2c 34  |,0,0,0,0.D\..4,4|
0000abf0  2c 34 2c 34 2c 34 0d 44  66 0e dc 38 2c 38 2c 38  |,4,4,4.Df..8,8,8|
0000ac00  2c 38 2c 38 0d 44 70 13  dc 31 36 2c 31 36 2c 31  |,8,8.Dp..16,16,1|
0000ac10  36 2c 32 30 2c 32 30 0d  44 7a 13 dc 32 34 2c 32  |6,20,20.Dz..24,2|
0000ac20  34 2c 32 34 2c 32 38 2c  32 38 0d 44 84 13 dc 33  |4,24,28,28.D...3|
0000ac30  32 2c 33 32 2c 33 32 2c  33 32 2c 33 32 0d 44 8e  |2,32,32,32,32.D.|
0000ac40  13 dc 32 38 2c 32 38 2c  32 38 2c 32 38 2c 32 38  |..28,28,28,28,28|
0000ac50  0d 44 98 13 dc 32 38 2c  32 38 2c 32 38 2c 32 38  |.D...28,28,28,28|
0000ac60  2c 32 38 0d 44 a2 13 dc  32 38 2c 32 38 2c 32 38  |,28.D...28,28,28|
0000ac70  2c 32 38 2c 32 38 0d 44  ac 19 f4 2e 2e 63 6c 75  |,28,28.D.....clu|
0000ac80  62 20 73 77 69 6e 67 20  68 61 6e 64 59 27 73 0d  |b swing handY's.|
0000ac90  44 b6 10 dc 30 2c 30 2c  30 2c 30 2c 30 2c 30 0d  |D...0,0,0,0,0,0.|
0000aca0  44 c0 0e dc 30 2c 30 2c  30 2c 30 2c 30 0d 44 ca  |D...0,0,0,0,0.D.|
0000acb0  0e dc 30 2c 30 2c 30 2c  30 2c 30 0d 44 d4 0e dc  |..0,0,0,0,0.D...|
0000acc0  34 2c 34 2c 34 2c 34 2c  34 0d 44 de 13 dc 31 36  |4,4,4,4,4.D...16|
0000acd0  2c 31 36 2c 32 30 2c 32  30 2c 32 30 0d 44 e8 13  |,16,20,20,20.D..|
0000ace0  dc 33 32 2c 33 32 2c 33  36 2c 33 36 2c 33 36 0d  |.32,32,36,36,36.|
0000acf0  44 f2 13 dc 34 34 2c 34  34 2c 34 38 2c 34 38 2c  |D...44,44,48,48,|
0000ad00  34 38 0d 44 fc 13 dc 35  32 2c 35 32 2c 35 36 2c  |48.D...52,52,56,|
0000ad10  35 36 2c 35 36 0d 45 06  13 dc 36 34 2c 36 34 2c  |56,56.E...64,64,|
0000ad20  36 34 2c 36 34 2c 36 34  0d 45 10 14 f4 2e 2e 63  |64,64,64.E.....c|
0000ad30  6c 75 62 20 68 65 61 64  20 58 27 73 0d 45 1a 13  |lub head X's.E..|
0000ad40  dc 31 32 2c 31 32 2c 31  30 2c 38 2c 36 2c 34 0d  |.12,12,10,8,6,4.|
0000ad50  45 24 12 dc 31 2c 2d 32  2c 2d 34 2c 2d 36 2c 2d  |E$..1,-2,-4,-6,-|
0000ad60  38 0d 45 2e 18 dc 2d 31  30 2c 2d 31 32 2c 2d 31  |8.E...-10,-12,-1|
0000ad70  34 2c 2d 31 36 2c 2d 31  38 0d 45 38 18 dc 2d 32  |4,-16,-18.E8..-2|
0000ad80  30 2c 2d 32 32 2c 2d 32  34 2c 2d 32 36 2c 2d 32  |0,-22,-24,-26,-2|
0000ad90  38 0d 45 42 18 dc 2d 33  30 2c 2d 33 31 2c 2d 33  |8.EB..-30,-31,-3|
0000ada0  32 2c 2d 33 33 2c 2d 33  34 0d 45 4c 18 dc 2d 33  |2,-33,-34.EL..-3|
0000adb0  35 2c 2d 33 36 2c 2d 33  36 2c 2d 33 36 2c 2d 33  |5,-36,-36,-36,-3|
0000adc0  35 0d 45 56 18 dc 2d 33  34 2c 2d 33 33 2c 2d 33  |5.EV..-34,-33,-3|
0000add0  32 2c 2d 33 31 2c 2d 33  31 0d 45 60 18 dc 2d 33  |2,-31,-31.E`..-3|
0000ade0  30 2c 2d 33 30 2c 2d 32  39 2c 2d 32 39 2c 2d 32  |0,-30,-29,-29,-2|
0000adf0  38 0d 45 6a 18 dc 2d 32  38 2c 2d 32 37 2c 2d 32  |8.Ej..-28,-27,-2|
0000ae00  36 2c 2d 32 34 2c 2d 32  32 0d 45 74 14 f4 2e 2e  |6,-24,-22.Et....|
0000ae10  63 6c 75 62 20 68 65 61  64 20 59 27 73 0d 45 7e  |club head Y's.E~|
0000ae20  1c dc 2d 33 36 2c 2d 34  30 2c 2d 34 30 2c 2d 34  |..-36,-40,-40,-4|
0000ae30  34 2c 2d 34 34 2c 2d 34  30 0d 45 88 18 dc 2d 34  |4,-44,-40.E...-4|
0000ae40  30 2c 2d 34 30 2c 2d 34  30 2c 2d 33 36 2c 2d 33  |0,-40,-40,-36,-3|
0000ae50  36 0d 45 92 18 dc 2d 33  32 2c 2d 33 32 2c 2d 32  |6.E...-32,-32,-2|
0000ae60  38 2c 2d 32 38 2c 2d 32  34 0d 45 9c 15 dc 2d 32  |8,-28,-24.E...-2|
0000ae70  30 2c 2d 31 36 2c 2d 31  32 2c 2d 34 2c 34 0d 45  |0,-16,-12,-4,4.E|
0000ae80  a6 13 dc 31 32 2c 32 30  2c 32 38 2c 33 32 2c 33  |...12,20,28,32,3|
0000ae90  36 0d 45 b0 13 dc 34 30  2c 34 34 2c 34 38 2c 35  |6.E...40,44,48,5|
0000aea0  32 2c 35 36 0d 45 ba 13  dc 36 30 2c 36 34 2c 36  |2,56.E...60,64,6|
0000aeb0  38 2c 36 38 2c 37 32 0d  45 c4 13 dc 37 32 2c 37  |8,68,72.E...72,7|
0000aec0  36 2c 37 36 2c 38 30 2c  38 30 0d 45 ce 13 dc 37  |6,76,80,80.E...7|
0000aed0  36 2c 37 32 2c 36 38 2c  36 34 2c 36 30 0d 45 d8  |6,72,68,64,60.E.|
0000aee0  0c f4 2e 2e 54 72 65 65  73 0d 45 e2 e5 dc 6f 61  |....Trees.E...oa|
0000aef0  6b 31 2c 39 35 2c 31 30  36 2c 32 30 2c 70 6f 70  |k1,95,106,20,pop|
0000af00  31 2c 34 38 2c 31 32 35  2c 31 36 2c 78 6d 73 31  |1,48,125,16,xms1|
0000af10  2c 32 35 2c 37 34 2c 31  32 2c 70 69 6e 31 2c 33  |,25,74,12,pin1,3|
0000af20  35 2c 31 34 30 2c 34 36  2c 73 62 69 31 2c 36 33  |5,140,46,sbi1,63|
0000af30  2c 38 37 2c 31 32 2c 77  69 6c 31 2c 39 32 2c 38  |,87,12,wil1,92,8|
0000af40  37 2c 34 2c 68 61 77 31  2c 35 37 2c 36 32 2c 31  |7,4,haw1,57,62,1|
0000af50  37 2c 6c 63 68 31 2c 36  32 2c 31 32 39 2c 39 2c  |7,lch1,62,129,9,|
0000af60  65 6c 64 31 2c 34 34 2c  35 35 2c 31 39 2c 6d 61  |eld1,44,55,19,ma|
0000af70  70 31 2c 34 39 2c 36 34  2c 31 34 2c 65 6c 6d 31  |p1,49,64,14,elm1|
0000af80  2c 37 39 2c 31 31 37 2c  31 35 2c 63 68 65 31 2c  |,79,117,15,che1,|
0000af90  31 30 32 2c 31 31 34 2c  39 2c 66 6d 61 31 2c 34  |102,114,9,fma1,4|
0000afa0  34 2c 35 35 2c 31 38 2c  62 73 61 31 2c 34 34 2c  |4,55,18,bsa1,44,|
0000afb0  33 39 2c 30 2c 62 68 61  31 2c 32 35 2c 33 30 2c  |39,0,bha1,25,30,|
0000afc0  30 2c 62 72 6b 31 2c 32  36 2c 32 31 2c 30 0d 45  |0,brk1,26,21,0.E|
0000afd0  ec 74 dc 68 65 61 31 2c  32 33 2c 31 36 2c 30 2c  |.t.hea1,23,16,0,|
0000afe0  67 6f 72 31 2c 32 30 2c  31 33 2c 30 2c 6e 6d 61  |gor1,20,13,0,nma|
0000aff0  31 2c 36 36 2c 38 30 2c  32 33 2c 73 61 6c 31 2c  |1,66,80,23,sal1,|
0000b000  31 30 38 2c 38 31 2c 31  34 2c 73 61 6c 32 2c 37  |108,81,14,sal2,7|
0000b010  33 2c 36 38 2c 33 32 2c  70 6c 6d 31 2c 35 31 2c  |3,68,32,plm1,51,|
0000b020  31 33 30 2c 38 36 2c 70  6c 6d 32 2c 38 30 2c 39  |130,86,plm2,80,9|
0000b030  36 2c 33 38 2c 70 6c 6d  33 2c 35 38 2c 36 34 2c  |6,38,plm3,58,64,|
0000b040  33 34 0d 45 f6 05 20 0d  46 00 12 f4 5f 5f 5f 45  |34.E.. .F...___E|
0000b050  52 52 4f 52 20 54 52 41  50 0d 46 0a 0c 2a 46 58  |RROR TRAP.F..*FX|
0000b060  31 31 33 2c 30 0d 46 14  0c 2a 46 58 31 31 32 2c  |113,0.F..*FX112,|
0000b070  30 0d 46 1e 13 ff 28 22  41 44 46 53 3a 43 4c 4f  |0.F...("ADFS:CLO|
0000b080  53 45 22 29 0d 46 28 12  ff 28 22 52 41 4d 3a 43  |SE").F(..("RAM:C|
0000b090  4c 4f 53 45 22 29 0d 46  32 14 eb 31 35 3a f6 3a  |LOSE").F2..15:.:|
0000b0a0  f1 22 20 40 20 22 3b 9e  3a e0 0d ff ff ff ff ff  |." @ ";.:.......|
0000b0b0