� Golf Screen Decompress
� ======================
:
(�
2  �7
<)  �"Name of course (without 'XX')",C$
F  �2
P  �decompressCourse(C$)
Z	  � �
d:
n� �decompressCourse(C$)
x� H%,O%,H$,O$
�O$=C$+"XX"
�O%=� O$
��
�
  �#O%,H%
�  H$=C$+�H%
�  �decompressHole(H$,O%)
�  �
��#O%
��
�:
�� �decompressHole(H$,O%)
�� B%,C%,H%,K%,Z%,eof
��getStatistics(H$,O%)

�1,1)H$

Z%=&468E

	eof=�

"�

,  �bget(B%,K%)

6  �setData(K%,B%)

@  � eof

T!�m("Insert destination disc")

^#�oscli("SAVE "+H$+" 468E 8000")

h�m("Re-insert source disc")

|�

�:

�� �getStatistics(H$,O%)

�� I%,I$

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

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

�!�m("Insert destination disc")

�I$="@."+H$

�I%=� I$

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

��#I%

��m("Re-insert source disc")

��

�:
� �bget(A%,Z%):B%=�#O%
K%=�#O%+�#O%*256:�
&� �setData(K%,B%)
0� L%
:� L%=1 � K%:?Z%=B%
DZ%=Z%+1:�:
N� Z%>=&8000 eof=�
X�
b:
l� �oscli($&700):� X%,Y%
vY%=7:� &FFF7:�
�:
�� �m(t$)
��1,2)t$:*FX15
�� � �=32
��1,2)��t$
��
�

00000000  0d 00 0a 1c f4 20 47 6f  6c 66 20 53 63 72 65 65  |..... Golf Scree|
00000010  6e 20 44 65 63 6f 6d 70  72 65 73 73 0d 00 14 1c  |n Decompress....|
00000020  f4 20 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |. ==============|
00000030  3d 3d 3d 3d 3d 3d 3d 3d  0d 00 1e 05 3a 0d 00 28  |========....:..(|
00000040  05 f5 0d 00 32 08 20 20  eb 37 0d 00 3c 29 20 20  |....2.  .7..<)  |
00000050  e8 22 4e 61 6d 65 20 6f  66 20 63 6f 75 72 73 65  |."Name of course|
00000060  20 28 77 69 74 68 6f 75  74 20 27 58 58 27 29 22  | (without 'XX')"|
00000070  2c 43 24 0d 00 46 08 20  20 eb 32 0d 00 50 1b 20  |,C$..F.  .2..P. |
00000080  20 f2 64 65 63 6f 6d 70  72 65 73 73 43 6f 75 72  | .decompressCour|
00000090  73 65 28 43 24 29 0d 00  5a 09 20 20 fd 20 a3 0d  |se(C$)..Z.  . ..|
000000a0  00 64 05 3a 0d 00 6e 1b  dd 20 f2 64 65 63 6f 6d  |.d.:..n.. .decom|
000000b0  70 72 65 73 73 43 6f 75  72 73 65 28 43 24 29 0d  |pressCourse(C$).|
000000c0  00 78 11 ea 20 48 25 2c  4f 25 2c 48 24 2c 4f 24  |.x.. H%,O%,H$,O$|
000000d0  0d 00 82 0e 4f 24 3d 43  24 2b 22 58 58 22 0d 00  |....O$=C$+"XX"..|
000000e0  8c 0b 4f 25 3d ad 20 4f  24 0d 00 96 05 f5 0d 00  |..O%=. O$.......|
000000f0  a0 0d 20 20 e8 23 4f 25  2c 48 25 0d 00 aa 0f 20  |..  .#O%,H%.... |
00000100  20 48 24 3d 43 24 2b c3  48 25 0d 00 b4 1c 20 20  | H$=C$+.H%....  |
00000110  f2 64 65 63 6f 6d 70 72  65 73 73 48 6f 6c 65 28  |.decompressHole(|
00000120  48 24 2c 4f 25 29 0d 00  be 07 20 20 ed 0d 00 c8  |H$,O%)....  ....|
00000130  08 d9 23 4f 25 0d 00 d2  05 e1 0d 00 dc 05 3a 0d  |..#O%.........:.|
00000140  00 e6 1c dd 20 f2 64 65  63 6f 6d 70 72 65 73 73  |.... .decompress|
00000150  48 6f 6c 65 28 48 24 2c  4f 25 29 0d 00 f0 18 ea  |Hole(H$,O%).....|
00000160  20 42 25 2c 43 25 2c 48  25 2c 4b 25 2c 5a 25 2c  | B%,C%,H%,K%,Z%,|
00000170  65 6f 66 0d 00 fa 19 f2  67 65 74 53 74 61 74 69  |eof.....getStati|
00000180  73 74 69 63 73 28 48 24  2c 4f 25 29 0d 01 04 0c  |stics(H$,O%)....|
00000190  f1 8a 31 2c 31 29 48 24  0d 01 0e 0c 5a 25 3d 26  |..1,1)H$....Z%=&|
000001a0  34 36 38 45 0d 01 18 09  65 6f 66 3d a3 0d 01 22  |468E....eof=..."|
000001b0  05 f5 0d 01 2c 12 20 20  f2 62 67 65 74 28 42 25  |....,.  .bget(B%|
000001c0  2c 4b 25 29 0d 01 36 15  20 20 f2 73 65 74 44 61  |,K%)..6.  .setDa|
000001d0  74 61 28 4b 25 2c 42 25  29 0d 01 40 0b 20 20 fd  |ta(K%,B%)..@.  .|
000001e0  20 65 6f 66 0d 01 54 21  f2 6d 28 22 49 6e 73 65  | eof..T!.m("Inse|
000001f0  72 74 20 64 65 73 74 69  6e 61 74 69 6f 6e 20 64  |rt destination d|
00000200  69 73 63 22 29 0d 01 5e  23 f2 6f 73 63 6c 69 28  |isc")..^#.oscli(|
00000210  22 53 41 56 45 20 22 2b  48 24 2b 22 20 34 36 38  |"SAVE "+H$+" 468|
00000220  45 20 38 30 30 30 22 29  0d 01 68 1f f2 6d 28 22  |E 8000")..h..m("|
00000230  52 65 2d 69 6e 73 65 72  74 20 73 6f 75 72 63 65  |Re-insert source|
00000240  20 64 69 73 63 22 29 0d  01 7c 05 e1 0d 01 86 05  | disc")..|......|
00000250  3a 0d 01 90 1b dd 20 f2  67 65 74 53 74 61 74 69  |:..... .getStati|
00000260  73 74 69 63 73 28 48 24  2c 4f 25 29 0d 01 9a 0b  |stics(H$,O%)....|
00000270  ea 20 49 25 2c 49 24 0d  01 a4 19 ea 20 79 64 2c  |. I%,I$..... yd,|
00000280  70 2c 47 52 2c 48 58 2c  48 59 2c 54 58 2c 54 59  |p,GR,HX,HY,TX,TY|
00000290  0d 01 ae 1c e8 23 4f 25  2c 79 64 2c 70 2c 47 52  |.....#O%,yd,p,GR|
000002a0  2c 48 58 2c 48 59 2c 54  58 2c 54 59 0d 01 b8 21  |,HX,HY,TX,TY...!|
000002b0  f2 6d 28 22 49 6e 73 65  72 74 20 64 65 73 74 69  |.m("Insert desti|
000002c0  6e 61 74 69 6f 6e 20 64  69 73 63 22 29 0d 01 c2  |nation disc")...|
000002d0  0e 49 24 3d 22 40 2e 22  2b 48 24 0d 01 cc 0b 49  |.I$="@."+H$....I|
000002e0  25 3d ae 20 49 24 0d 01  d6 1c f1 23 49 25 2c 79  |%=. I$.....#I%,y|
000002f0  64 2c 70 2c 47 52 2c 48  58 2c 48 59 2c 54 58 2c  |d,p,GR,HX,HY,TX,|
00000300  54 59 0d 01 e0 08 d9 23  49 25 0d 01 ea 1f f2 6d  |TY.....#I%.....m|
00000310  28 22 52 65 2d 69 6e 73  65 72 74 20 73 6f 75 72  |("Re-insert sour|
00000320  63 65 20 64 69 73 63 22  29 0d 01 f4 05 e1 0d 01  |ce disc").......|
00000330  fe 05 3a 0d 02 08 1a dd  20 f2 62 67 65 74 28 41  |..:..... .bget(A|
00000340  25 2c 5a 25 29 3a 42 25  3d 9a 23 4f 25 0d 02 12  |%,Z%):B%=.#O%...|
00000350  16 4b 25 3d 9a 23 4f 25  2b 9a 23 4f 25 2a 32 35  |.K%=.#O%+.#O%*25|
00000360  36 3a e1 0d 02 26 15 dd  20 f2 73 65 74 44 61 74  |6:...&.. .setDat|
00000370  61 28 4b 25 2c 42 25 29  0d 02 30 08 ea 20 4c 25  |a(K%,B%)..0.. L%|
00000380  0d 02 3a 16 e3 20 4c 25  3d 31 20 b8 20 4b 25 3a  |..:.. L%=1 . K%:|
00000390  3f 5a 25 3d 42 25 0d 02  44 0e 5a 25 3d 5a 25 2b  |?Z%=B%..D.Z%=Z%+|
000003a0  31 3a ed 3a 0d 02 4e 15  e7 20 5a 25 3e 3d 26 38  |1:.:..N.. Z%>=&8|
000003b0  30 30 30 20 65 6f 66 3d  b9 0d 02 58 05 e1 0d 02  |000 eof=...X....|
000003c0  62 05 3a 0d 02 6c 1b dd  20 f2 6f 73 63 6c 69 28  |b.:..l.. .oscli(|
000003d0  24 26 37 30 30 29 3a ea  20 58 25 2c 59 25 0d 02  |$&700):. X%,Y%..|
000003e0  76 12 59 25 3d 37 3a d6  20 26 46 46 46 37 3a e1  |v.Y%=7:. &FFF7:.|
000003f0  0d 02 80 05 3a 0d 02 8a  0c dd 20 f2 6d 28 74 24  |....:..... .m(t$|
00000400  29 0d 02 94 12 f1 8a 31  2c 32 29 74 24 3a 2a 46  |)......1,2)t$:*F|
00000410  58 31 35 0d 02 9e 0c f5  20 fd 20 a5 3d 33 32 0d  |X15..... . .=32.|
00000420  02 a8 0e f1 8a 31 2c 32  29 89 a9 74 24 0d 02 b2  |.....1,2)..t$...|
00000430  05 e1 0d ff                                       |....|
00000434