� Golf Screen Compactor
� =====================
:
(�
2  �7
<  �"Name of course",C$
F  �2
P  �compressCourse(C$)
Z	  � �
d:
n� �compressCourse(C$)
x� H%,O%,H$,O$
�O$=C$+"XX"
�O%=� O$
�� H%=1 � 9
�    �#O%,H%
�    H$=C$+�H%
�    �compressHole(H$,O%)
�  �
��#O%
��
�:
�� �compressHole(H$,O%)
�� B%,C%,H%,K%,Z%,eof
��getStatistics(H$,O%)

�1,1)H$

�oscli("LOAD "+H$+" 468E")

Z%=&468E:B%=�bget

"K%=1:eof=�

,�

6  C%=�bget

@5  � B%=C% K%=K%+1 � �putData(B%,K%,O%):B%=C%:K%=1

J  � eof

T�putData(B%,K%,O%)

^�

h:

r� �getStatistics(H$,O%)

|� I%,I$

�� yd,p,GR,HX,HY,TX,TY

�I$="@."+H$

�I%=� I$

��#I%,yd,p,GR,HX,HY,TX,TY

��#O%,yd,p,GR,HX,HY,TX,TY

��#I%

��

�:

�� �bget

�� B%:B%=?Z%:?Z%=0

�Z%=Z%+1:� Z%>=&8000 eof=�

�=B%

�:
� �putData(B%,K%,O%)
�#O%,B%
�#O%,K%�256
&�#O%,K%�256
0�
::
D� �oscli($&700):� X%,Y%
NY%=7:� &FFF7:�
�

00000000  0d 00 0a 1b f4 20 47 6f  6c 66 20 53 63 72 65 65  |..... Golf Scree|
00000010  6e 20 43 6f 6d 70 61 63  74 6f 72 0d 00 14 1b f4  |n Compactor.....|
00000020  20 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  | ===============|
00000030  3d 3d 3d 3d 3d 3d 0d 00  1e 05 3a 0d 00 28 05 f5  |======....:..(..|
00000040  0d 00 32 08 20 20 eb 37  0d 00 3c 1a 20 20 e8 22  |..2.  .7..<.  ."|
00000050  4e 61 6d 65 20 6f 66 20  63 6f 75 72 73 65 22 2c  |Name of course",|
00000060  43 24 0d 00 46 08 20 20  eb 32 0d 00 50 19 20 20  |C$..F.  .2..P.  |
00000070  f2 63 6f 6d 70 72 65 73  73 43 6f 75 72 73 65 28  |.compressCourse(|
00000080  43 24 29 0d 00 5a 09 20  20 fd 20 a3 0d 00 64 05  |C$)..Z.  . ...d.|
00000090  3a 0d 00 6e 19 dd 20 f2  63 6f 6d 70 72 65 73 73  |:..n.. .compress|
000000a0  43 6f 75 72 73 65 28 43  24 29 0d 00 78 11 ea 20  |Course(C$)..x.. |
000000b0  48 25 2c 4f 25 2c 48 24  2c 4f 24 0d 00 82 0e 4f  |H%,O%,H$,O$....O|
000000c0  24 3d 43 24 2b 22 58 58  22 0d 00 8c 0b 4f 25 3d  |$=C$+"XX"....O%=|
000000d0  ae 20 4f 24 0d 00 96 0e  e3 20 48 25 3d 31 20 b8  |. O$..... H%=1 .|
000000e0  20 39 0d 00 a0 0f 20 20  20 20 f1 23 4f 25 2c 48  | 9....    .#O%,H|
000000f0  25 0d 00 aa 11 20 20 20  20 48 24 3d 43 24 2b c3  |%....    H$=C$+.|
00000100  48 25 0d 00 b4 1c 20 20  20 20 f2 63 6f 6d 70 72  |H%....    .compr|
00000110  65 73 73 48 6f 6c 65 28  48 24 2c 4f 25 29 0d 00  |essHole(H$,O%)..|
00000120  be 07 20 20 ed 0d 00 c8  08 d9 23 4f 25 0d 00 d2  |..  ......#O%...|
00000130  05 e1 0d 00 dc 05 3a 0d  00 e6 1a dd 20 f2 63 6f  |......:..... .co|
00000140  6d 70 72 65 73 73 48 6f  6c 65 28 48 24 2c 4f 25  |mpressHole(H$,O%|
00000150  29 0d 00 f0 18 ea 20 42  25 2c 43 25 2c 48 25 2c  |)..... B%,C%,H%,|
00000160  4b 25 2c 5a 25 2c 65 6f  66 0d 00 fa 19 f2 67 65  |K%,Z%,eof.....ge|
00000170  74 53 74 61 74 69 73 74  69 63 73 28 48 24 2c 4f  |tStatistics(H$,O|
00000180  25 29 0d 01 04 0c f1 8a  31 2c 31 29 48 24 0d 01  |%)......1,1)H$..|
00000190  0e 1e f2 6f 73 63 6c 69  28 22 4c 4f 41 44 20 22  |...oscli("LOAD "|
000001a0  2b 48 24 2b 22 20 34 36  38 45 22 29 0d 01 18 15  |+H$+" 468E")....|
000001b0  5a 25 3d 26 34 36 38 45  3a 42 25 3d a4 62 67 65  |Z%=&468E:B%=.bge|
000001c0  74 0d 01 22 0e 4b 25 3d  31 3a 65 6f 66 3d a3 0d  |t..".K%=1:eof=..|
000001d0  01 2c 05 f5 0d 01 36 0e  20 20 43 25 3d a4 62 67  |.,....6.  C%=.bg|
000001e0  65 74 0d 01 40 35 20 20  e7 20 42 25 3d 43 25 20  |et..@5  . B%=C% |
000001f0  4b 25 3d 4b 25 2b 31 20  8b 20 f2 70 75 74 44 61  |K%=K%+1 . .putDa|
00000200  74 61 28 42 25 2c 4b 25  2c 4f 25 29 3a 42 25 3d  |ta(B%,K%,O%):B%=|
00000210  43 25 3a 4b 25 3d 31 0d  01 4a 0b 20 20 fd 20 65  |C%:K%=1..J.  . e|
00000220  6f 66 0d 01 54 16 f2 70  75 74 44 61 74 61 28 42  |of..T..putData(B|
00000230  25 2c 4b 25 2c 4f 25 29  0d 01 5e 05 e1 0d 01 68  |%,K%,O%)..^....h|
00000240  05 3a 0d 01 72 1b dd 20  f2 67 65 74 53 74 61 74  |.:..r.. .getStat|
00000250  69 73 74 69 63 73 28 48  24 2c 4f 25 29 0d 01 7c  |istics(H$,O%)..||
00000260  0b ea 20 49 25 2c 49 24  0d 01 86 19 ea 20 79 64  |.. I%,I$..... yd|
00000270  2c 70 2c 47 52 2c 48 58  2c 48 59 2c 54 58 2c 54  |,p,GR,HX,HY,TX,T|
00000280  59 0d 01 90 0e 49 24 3d  22 40 2e 22 2b 48 24 0d  |Y....I$="@."+H$.|
00000290  01 9a 0b 49 25 3d ad 20  49 24 0d 01 a4 1c e8 23  |...I%=. I$.....#|
000002a0  49 25 2c 79 64 2c 70 2c  47 52 2c 48 58 2c 48 59  |I%,yd,p,GR,HX,HY|
000002b0  2c 54 58 2c 54 59 0d 01  ae 1c f1 23 4f 25 2c 79  |,TX,TY.....#O%,y|
000002c0  64 2c 70 2c 47 52 2c 48  58 2c 48 59 2c 54 58 2c  |d,p,GR,HX,HY,TX,|
000002d0  54 59 0d 01 b8 08 d9 23  49 25 0d 01 c2 05 e1 0d  |TY.....#I%......|
000002e0  01 cc 05 3a 0d 01 d6 0b  dd 20 a4 62 67 65 74 0d  |...:..... .bget.|
000002f0  01 e0 15 ea 20 42 25 3a  42 25 3d 3f 5a 25 3a 3f  |.... B%:B%=?Z%:?|
00000300  5a 25 3d 30 0d 01 ea 1d  5a 25 3d 5a 25 2b 31 3a  |Z%=0....Z%=Z%+1:|
00000310  e7 20 5a 25 3e 3d 26 38  30 30 30 20 65 6f 66 3d  |. Z%>=&8000 eof=|
00000320  b9 0d 01 f4 07 3d 42 25  0d 01 fe 05 3a 0d 02 08  |.....=B%....:...|
00000330  18 dd 20 f2 70 75 74 44  61 74 61 28 42 25 2c 4b  |.. .putData(B%,K|
00000340  25 2c 4f 25 29 0d 02 12  0b d5 23 4f 25 2c 42 25  |%,O%).....#O%,B%|
00000350  0d 02 1c 0f d5 23 4f 25  2c 4b 25 83 32 35 36 0d  |.....#O%,K%.256.|
00000360  02 26 0f d5 23 4f 25 2c  4b 25 81 32 35 36 0d 02  |.&..#O%,K%.256..|
00000370  30 05 e1 0d 02 3a 05 3a  0d 02 44 1b dd 20 f2 6f  |0....:.:..D.. .o|
00000380  73 63 6c 69 28 24 26 37  30 30 29 3a ea 20 58 25  |scli($&700):. X%|
00000390  2c 59 25 0d 02 4e 12 59  25 3d 37 3a d6 20 26 46  |,Y%..N.Y%=7:. &F|
000003a0  46 46 37 3a e1 0d ff                              |FF7:...|
000003a7