� CHANNEL ISLAND GAME
� By Rog Frost
� (c) Electron User
(*FX11,0
2� � �6:�err
<�6
F�instructions
P�N%(9),D%(4),C%(4),R%(4)
Z
�chars
d�
n*�4:�23;8202;0;0;0;0;19,1,4;0;19,0,3;0;
x"�ro%=1�round%:�player%=1�nn%:�
�
�array
��displaynumbers
��
��throwdice
��canitbedone
�� EG$<>"" �dp@
��
��makechoice
��checkchoice
�
� U%=0
��sortout
��EG$<>""
��player%:�ro%

�6:�results

�:�

�

"��instructions

,�19,0,4;0;

6;�10,1)"CHANNEL ISLAND GAME"�10,2)"~~~~~~~~~~~~~~~~~~~"

@��'"You must try to hide all of"'"the numbers at the top of the screen."''"Two dice are spun. You can hide any"'"numbers whose sum is the same as the"'"sum of the dice."

JK�'"To cover numbers just type them in any"'"order and then hit Return."

Tg�'"Illegal moves will not be accepted by"'"the computer. You will be told when"'"the game is over."

^N�'"Your score for a game is a direct read"'"of the digits left uncovered."

h-�2,22)"PRESS SPACE TO CONTINUE":���-99:�

r�name$(6),score%(6)

|4�2,22)"Just Press Return to complete list"�0,0)

�Dnn%=0:�:nn%=nn%+1:�'"Enter player ";nn%;"'s name ";:�;name$(nn%)

�%name$(nn%)=�name$(nn%),5):*FX15,0

��name$(nn%)="" � nn%=6

�� name$(nn%)="" nn%=nn%-1

�.�''"How many rounds do you want?":�,round%

��

��

���chars

�+�23,255,255,255,255,255,255,255,255,255

��23,230,0,0,0,0,0,0,0,0

��23,231,0,0,0,24,24,0,0,0

��23,232,0,24,24,0,0,24,24,0

�!�23,233,192,192,0,24,24,0,3,3
#�23,234,195,195,0,0,0,0,195,195
%�23,235,195,195,0,24,24,0,195,195
'�23,236,195,195,0,195,195,0,195,195
&�
0��throwdice
:�28,15,30,30,26:�:�26
D�N%=1��(30)+1
NX%=�(6):Y%=�(6)
X� tot%>39 Y%=0
b0�467,145:�467,202:�524,202:�524,145:�467,145
l0�787,145:�787,202:�844,202:�844,145:�787,145
v'�15,26);�(230+X%)�25,26);�(230+Y%)
�
�=0:���>2
��
�&�15,28);X%;:� tot%<40 �25,28);Y%
��20,29);X%+Y%
��
���displaynumbers
�#�129:�:�128:�28,1,30,38,1:�:�26
�M�1,2)"THE CHANNEL ISLAND GAME - ";name$(player%);"'s turn"�1,3);�38,"~")
��sortout
�N�FORN%=1TO9:PRINTTAB(N%*4,5);N%TAB(N%*4,6);CHR$255TAB(N%*4,7);CHR$255:NEXT
��
���makechoice
��
�1,10);�(38)
#�9,10)"SELECT YOUR NUMBER(S)";
*fx15,0
 �G%
*$D%(1)=G%�1000:B%=G%-(D%(1)*1000)
4"D%(2)=B%�100:D%=B%-(D%(2)*100)
>D%(3)=D%�10
HD%(4)=D%�10
R"�D%(1)+D%(2)+D%(3)+D%(4)=X%+Y%
\�
f��checkchoice
pU%=0
z" � D%(1)=D%(2) � D%(1)<>0 U%=1
�" � D%(1)=D%(3) � D%(1)<>0 U%=1
�" � D%(1)=D%(4) � D%(1)<>0 U%=1
�" � D%(2)=D%(3) � D%(2)<>0 U%=1
�" � D%(2)=D%(4) � D%(2)<>0 U%=1
�" � D%(3)=D%(4) � D%(3)<>0 U%=1
��L%=1�9
�� N%(L%)=D%(1) L%=9:U%=1
��
��L%=1�9
�� N%(L%)=D%(2) L%=9:U%=1
��
��L%=1�9
�� N%(L%)=D%(3) L%=9:U%=1
�
�L%=1�9
� N%(L%)=D%(4) L%=9:U%=1
$�
.J� U%=0 N%(D%(1))=D%(1):N%(D%(2))=D%(2):N%(D%(3))=D%(3):N%(D%(4))=D%(4)
8=� U%=1 �14,13)"CAN'T DO":�28,1,15,38,8:�=0:���>200:�:�26
B+sum%=0:�loop%=1�9:sum%=sum%+N%(loop%):�
L/tot%=0:�ch%=1�9:�N%(ch%)<>100 tot%=tot%+ch%
V�
`� sum%=45 �victory
j�
t��array
~U%=1:EG$="":tot%=0
��Z%=1�9:N%(Z%)=100:�
��
�
��sortout
��28,1,15,38,4:�:�26
�2�100,890:�1200,890:�1200,730:�100,730:�100,890
��J%=1�9
�_� N%(J%)=100 �J%*4,5);J%�J%*4,6);�255�J%*4,7);�255��J%*4,5)�255�J%*4,6);�255�J%*4,7);�230
��
��
�
��victory
��28,1,20,38,10:�:�26
�3�11,10)"YOU CLEARED THE LOT"�15,14)"WELL DONE"
U%=0:EG$="WIN"

.�7,19)"PRESS SPACE FOR NEXT ROUND":���-99
�
��canitbedone
(�(1600+((X%+Y%)*10))
2
�:� N$
<�W%=1��(N$)
FR%=1
PC%(W%)=�(�N$,W%,1))
Z�N%(C%(W%))<>100 R%=0
d� R%=0 W%=�(N$)
n�
x�R%=1 � N$="0"
�� N$="0" �endgame
��
�
��endgame
��28,1,22,38,10:�:�26
��7
��15,10)"ROUND OVER"
�-EG$="":�u%=1�9:� N%(u%)=100 EG$=EG$+�(u%)
��
�*score%(player%)=score%(player%)+�(EG$)
�O�15,13)"SCORE = ";EG$�12,15);name$(player%);" has scored ";score%(player%)
�&�7,19)"PRESS SPACE FOR NEXT GAME"
�
���=32
��

��results
L�19,0,4;0;:�8,2)"THE CHANNEL ISLAND GAME"�8,3)"~~~~~~~~~~~~~~~~~~~~~~~"
�2,6)"NAME"�22,6)"SCORE"
"D�pl%=1�nn%:�2,8+(pl%*2));name$(pl%)�22,8+(pl%*2));score%(pl%):�
,&�2,22)"PRESS SPACE FOR NEXT GAME"
6
���-99
@�
J�1,0
T�2,0
^�3,21,0
h�4,31,0
r�5,41,32,0
|�6,51,42,321,0
��7,61,52,43,421,0
��8,71,62,53,521,431,0
� �9,81,72,63,54,621,531,432,0
�'�91,82,73,64,721,631,541,532,4321,0
�+�92,83,74,65,821,731,641,632,542,5321,0
�5�93,84,75,921,831,741,732,651,642,543,6321,5421,0
�	��err
��:�" at line ";�
�	*fx12
��
�

00000000  0d 00 0a 19 f4 20 43 48  41 4e 4e 45 4c 20 49 53  |..... CHANNEL IS|
00000010  4c 41 4e 44 20 47 41 4d  45 0d 00 14 12 f4 20 42  |LAND GAME..... B|
00000020  79 20 52 6f 67 20 46 72  6f 73 74 0d 00 1e 17 f4  |y Rog Frost.....|
00000030  20 28 63 29 20 45 6c 65  63 74 72 6f 6e 20 55 73  | (c) Electron Us|
00000040  65 72 0d 00 28 0b 2a 46  58 31 31 2c 30 0d 00 32  |er..(.*FX11,0..2|
00000050  0f ee 20 85 20 eb 36 3a  f2 65 72 72 0d 00 3c 06  |.. . .6:.err..<.|
00000060  eb 36 0d 00 46 11 f2 69  6e 73 74 72 75 63 74 69  |.6..F..instructi|
00000070  6f 6e 73 0d 00 50 1c de  4e 25 28 39 29 2c 44 25  |ons..P..N%(9),D%|
00000080  28 34 29 2c 43 25 28 34  29 2c 52 25 28 34 29 0d  |(4),C%(4),R%(4).|
00000090  00 5a 0a f2 63 68 61 72  73 0d 00 64 05 f5 0d 00  |.Z..chars..d....|
000000a0  6e 2a eb 34 3a ef 32 33  3b 38 32 30 32 3b 30 3b  |n*.4:.23;8202;0;|
000000b0  30 3b 30 3b 30 3b 31 39  2c 31 2c 34 3b 30 3b 31  |0;0;0;19,1,4;0;1|
000000c0  39 2c 30 2c 33 3b 30 3b  0d 00 78 22 e3 72 6f 25  |9,0,3;0;..x".ro%|
000000d0  3d 31 b8 72 6f 75 6e 64  25 3a e3 70 6c 61 79 65  |=1.round%:.playe|
000000e0  72 25 3d 31 b8 6e 6e 25  3a db 0d 00 82 0a f2 61  |r%=1.nn%:......a|
000000f0  72 72 61 79 0d 00 8c 13  f2 64 69 73 70 6c 61 79  |rray.....display|
00000100  6e 75 6d 62 65 72 73 0d  00 96 05 f5 0d 00 a0 0e  |numbers.........|
00000110  f2 74 68 72 6f 77 64 69  63 65 0d 00 aa 10 f2 63  |.throwdice.....c|
00000120  61 6e 69 74 62 65 64 6f  6e 65 0d 00 b4 13 e7 20  |anitbedone..... |
00000130  45 47 24 3c 3e 22 22 20  e5 8d 64 70 40 0d 00 be  |EG$<>"" ..dp@...|
00000140  05 f5 0d 00 c8 0f f2 6d  61 6b 65 63 68 6f 69 63  |.......makechoic|
00000150  65 0d 00 d2 10 f2 63 68  65 63 6b 63 68 6f 69 63  |e.....checkchoic|
00000160  65 0d 00 dc 0a fd 20 55  25 3d 30 0d 00 e6 0c f2  |e..... U%=0.....|
00000170  73 6f 72 74 6f 75 74 0d  00 f0 0c fd 45 47 24 3c  |sortout.....EG$<|
00000180  3e 22 22 0d 00 fa 11 ed  70 6c 61 79 65 72 25 3a  |>"".....player%:|
00000190  ed 72 6f 25 0d 01 04 0f  eb 36 3a f2 72 65 73 75  |.ro%.....6:.resu|
000001a0  6c 74 73 0d 01 0e 07 d8  3a f9 0d 01 18 05 e0 0d  |lts.....:.......|
000001b0  01 22 12 dd f2 69 6e 73  74 72 75 63 74 69 6f 6e  |."...instruction|
000001c0  73 0d 01 2c 0e ef 31 39  2c 30 2c 34 3b 30 3b 0d  |s..,..19,0,4;0;.|
000001d0  01 36 3b f1 8a 31 30 2c  31 29 22 43 48 41 4e 4e  |.6;..10,1)"CHANN|
000001e0  45 4c 20 49 53 4c 41 4e  44 20 47 41 4d 45 22 8a  |EL ISLAND GAME".|
000001f0  31 30 2c 32 29 22 7e 7e  7e 7e 7e 7e 7e 7e 7e 7e  |10,2)"~~~~~~~~~~|
00000200  7e 7e 7e 7e 7e 7e 7e 7e  7e 22 0d 01 40 ac f1 27  |~~~~~~~~~"..@..'|
00000210  22 59 6f 75 20 6d 75 73  74 20 74 72 79 20 74 6f  |"You must try to|
00000220  20 68 69 64 65 20 61 6c  6c 20 6f 66 22 27 22 74  | hide all of"'"t|
00000230  68 65 20 6e 75 6d 62 65  72 73 20 61 74 20 74 68  |he numbers at th|
00000240  65 20 74 6f 70 20 6f 66  20 74 68 65 20 73 63 72  |e top of the scr|
00000250  65 65 6e 2e 22 27 27 22  54 77 6f 20 64 69 63 65  |een."''"Two dice|
00000260  20 61 72 65 20 73 70 75  6e 2e 20 59 6f 75 20 63  | are spun. You c|
00000270  61 6e 20 68 69 64 65 20  61 6e 79 22 27 22 6e 75  |an hide any"'"nu|
00000280  6d 62 65 72 73 20 77 68  6f 73 65 20 73 75 6d 20  |mbers whose sum |
00000290  69 73 20 74 68 65 20 73  61 6d 65 20 61 73 20 74  |is the same as t|
000002a0  68 65 22 27 22 73 75 6d  20 6f 66 20 74 68 65 20  |he"'"sum of the |
000002b0  64 69 63 65 2e 22 0d 01  4a 4b f1 27 22 54 6f 20  |dice."..JK.'"To |
000002c0  63 6f 76 65 72 20 6e 75  6d 62 65 72 73 20 6a 75  |cover numbers ju|
000002d0  73 74 20 74 79 70 65 20  74 68 65 6d 20 69 6e 20  |st type them in |
000002e0  61 6e 79 22 27 22 6f 72  64 65 72 20 61 6e 64 20  |any"'"order and |
000002f0  74 68 65 6e 20 68 69 74  20 52 65 74 75 72 6e 2e  |then hit Return.|
00000300  22 0d 01 54 67 f1 27 22  49 6c 6c 65 67 61 6c 20  |"..Tg.'"Illegal |
00000310  6d 6f 76 65 73 20 77 69  6c 6c 20 6e 6f 74 20 62  |moves will not b|
00000320  65 20 61 63 63 65 70 74  65 64 20 62 79 22 27 22  |e accepted by"'"|
00000330  74 68 65 20 63 6f 6d 70  75 74 65 72 2e 20 59 6f  |the computer. Yo|
00000340  75 20 77 69 6c 6c 20 62  65 20 74 6f 6c 64 20 77  |u will be told w|
00000350  68 65 6e 22 27 22 74 68  65 20 67 61 6d 65 20 69  |hen"'"the game i|
00000360  73 20 6f 76 65 72 2e 22  0d 01 5e 4e f1 27 22 59  |s over."..^N.'"Y|
00000370  6f 75 72 20 73 63 6f 72  65 20 66 6f 72 20 61 20  |our score for a |
00000380  67 61 6d 65 20 69 73 20  61 20 64 69 72 65 63 74  |game is a direct|
00000390  20 72 65 61 64 22 27 22  6f 66 20 74 68 65 20 64  | read"'"of the d|
000003a0  69 67 69 74 73 20 6c 65  66 74 20 75 6e 63 6f 76  |igits left uncov|
000003b0  65 72 65 64 2e 22 0d 01  68 2d f1 8a 32 2c 32 32  |ered."..h-..2,22|
000003c0  29 22 50 52 45 53 53 20  53 50 41 43 45 20 54 4f  |)"PRESS SPACE TO|
000003d0  20 43 4f 4e 54 49 4e 55  45 22 3a f5 fd a6 2d 39  | CONTINUE":...-9|
000003e0  39 3a db 0d 01 72 17 de  6e 61 6d 65 24 28 36 29  |9:...r..name$(6)|
000003f0  2c 73 63 6f 72 65 25 28  36 29 0d 01 7c 34 f1 8a  |,score%(6)..|4..|
00000400  32 2c 32 32 29 22 4a 75  73 74 20 50 72 65 73 73  |2,22)"Just Press|
00000410  20 52 65 74 75 72 6e 20  74 6f 20 63 6f 6d 70 6c  | Return to compl|
00000420  65 74 65 20 6c 69 73 74  22 8a 30 2c 30 29 0d 01  |ete list".0,0)..|
00000430  86 44 6e 6e 25 3d 30 3a  f5 3a 6e 6e 25 3d 6e 6e  |.Dnn%=0:.:nn%=nn|
00000440  25 2b 31 3a f1 27 22 45  6e 74 65 72 20 70 6c 61  |%+1:.'"Enter pla|
00000450  79 65 72 20 22 3b 6e 6e  25 3b 22 27 73 20 6e 61  |yer ";nn%;"'s na|
00000460  6d 65 20 22 3b 3a e8 3b  6e 61 6d 65 24 28 6e 6e  |me ";:.;name$(nn|
00000470  25 29 0d 01 90 25 6e 61  6d 65 24 28 6e 6e 25 29  |%)...%name$(nn%)|
00000480  3d c0 6e 61 6d 65 24 28  6e 6e 25 29 2c 35 29 3a  |=.name$(nn%),5):|
00000490  2a 46 58 31 35 2c 30 0d  01 9a 1a fd 6e 61 6d 65  |*FX15,0.....name|
000004a0  24 28 6e 6e 25 29 3d 22  22 20 84 20 6e 6e 25 3d  |$(nn%)="" . nn%=|
000004b0  36 0d 01 a4 1d e7 20 6e  61 6d 65 24 28 6e 6e 25  |6..... name$(nn%|
000004c0  29 3d 22 22 20 6e 6e 25  3d 6e 6e 25 2d 31 0d 01  |)="" nn%=nn%-1..|
000004d0  ae 2e f1 27 27 22 48 6f  77 20 6d 61 6e 79 20 72  |...''"How many r|
000004e0  6f 75 6e 64 73 20 64 6f  20 79 6f 75 20 77 61 6e  |ounds do you wan|
000004f0  74 3f 22 3a e8 2c 72 6f  75 6e 64 25 0d 01 b8 05  |t?":.,round%....|
00000500  e1 0d 01 c2 05 e0 0d 01  cc 0b dd f2 63 68 61 72  |............char|
00000510  73 0d 01 d6 2b ef 32 33  2c 32 35 35 2c 32 35 35  |s...+.23,255,255|
00000520  2c 32 35 35 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,255,255,255,255|
00000530  2c 32 35 35 2c 32 35 35  2c 32 35 35 0d 01 e0 1b  |,255,255,255....|
00000540  ef 32 33 2c 32 33 30 2c  30 2c 30 2c 30 2c 30 2c  |.23,230,0,0,0,0,|
00000550  30 2c 30 2c 30 2c 30 0d  01 ea 1d ef 32 33 2c 32  |0,0,0,0.....23,2|
00000560  33 31 2c 30 2c 30 2c 30  2c 32 34 2c 32 34 2c 30  |31,0,0,0,24,24,0|
00000570  2c 30 2c 30 0d 01 f4 1f  ef 32 33 2c 32 33 32 2c  |,0,0.....23,232,|
00000580  30 2c 32 34 2c 32 34 2c  30 2c 30 2c 32 34 2c 32  |0,24,24,0,0,24,2|
00000590  34 2c 30 0d 01 fe 21 ef  32 33 2c 32 33 33 2c 31  |4,0...!.23,233,1|
000005a0  39 32 2c 31 39 32 2c 30  2c 32 34 2c 32 34 2c 30  |92,192,0,24,24,0|
000005b0  2c 33 2c 33 0d 02 08 23  ef 32 33 2c 32 33 34 2c  |,3,3...#.23,234,|
000005c0  31 39 35 2c 31 39 35 2c  30 2c 30 2c 30 2c 30 2c  |195,195,0,0,0,0,|
000005d0  31 39 35 2c 31 39 35 0d  02 12 25 ef 32 33 2c 32  |195,195...%.23,2|
000005e0  33 35 2c 31 39 35 2c 31  39 35 2c 30 2c 32 34 2c  |35,195,195,0,24,|
000005f0  32 34 2c 30 2c 31 39 35  2c 31 39 35 0d 02 1c 27  |24,0,195,195...'|
00000600  ef 32 33 2c 32 33 36 2c  31 39 35 2c 31 39 35 2c  |.23,236,195,195,|
00000610  30 2c 31 39 35 2c 31 39  35 2c 30 2c 31 39 35 2c  |0,195,195,0,195,|
00000620  31 39 35 0d 02 26 05 e1  0d 02 30 0f dd f2 74 68  |195..&....0...th|
00000630  72 6f 77 64 69 63 65 0d  02 3a 19 ef 32 38 2c 31  |rowdice..:..28,1|
00000640  35 2c 33 30 2c 33 30 2c  32 36 3a db 3a ef 32 36  |5,30,30,26:.:.26|
00000650  0d 02 44 11 e3 4e 25 3d  31 b8 b3 28 33 30 29 2b  |..D..N%=1..(30)+|
00000660  31 0d 02 4e 13 58 25 3d  b3 28 36 29 3a 59 25 3d  |1..N.X%=.(6):Y%=|
00000670  b3 28 36 29 0d 02 58 12  e7 20 74 6f 74 25 3e 33  |.(6)..X.. tot%>3|
00000680  39 20 59 25 3d 30 0d 02  62 30 ec 34 36 37 2c 31  |9 Y%=0..b0.467,1|
00000690  34 35 3a df 34 36 37 2c  32 30 32 3a df 35 32 34  |45:.467,202:.524|
000006a0  2c 32 30 32 3a df 35 32  34 2c 31 34 35 3a df 34  |,202:.524,145:.4|
000006b0  36 37 2c 31 34 35 0d 02  6c 30 ec 37 38 37 2c 31  |67,145..l0.787,1|
000006c0  34 35 3a df 37 38 37 2c  32 30 32 3a df 38 34 34  |45:.787,202:.844|
000006d0  2c 32 30 32 3a df 38 34  34 2c 31 34 35 3a df 37  |,202:.844,145:.7|
000006e0  38 37 2c 31 34 35 0d 02  76 27 f1 8a 31 35 2c 32  |87,145..v'..15,2|
000006f0  36 29 3b bd 28 32 33 30  2b 58 25 29 8a 32 35 2c  |6);.(230+X%).25,|
00000700  32 36 29 3b bd 28 32 33  30 2b 59 25 29 0d 02 80  |26);.(230+Y%)...|
00000710  0d d1 3d 30 3a f5 fd 91  3e 32 0d 02 8a 05 ed 0d  |..=0:...>2......|
00000720  02 94 26 f1 8a 31 35 2c  32 38 29 3b 58 25 3b 3a  |..&..15,28);X%;:|
00000730  e7 20 74 6f 74 25 3c 34  30 20 f1 8a 32 35 2c 32  |. tot%<40 ..25,2|
00000740  38 29 3b 59 25 0d 02 9e  12 f1 8a 32 30 2c 32 39  |8);Y%......20,29|
00000750  29 3b 58 25 2b 59 25 0d  02 a8 05 e1 0d 02 b2 14  |);X%+Y%.........|
00000760  dd f2 64 69 73 70 6c 61  79 6e 75 6d 62 65 72 73  |..displaynumbers|
00000770  0d 02 bc 23 fb 31 32 39  3a db 3a fb 31 32 38 3a  |...#.129:.:.128:|
00000780  ef 32 38 2c 31 2c 33 30  2c 33 38 2c 31 3a db 3a  |.28,1,30,38,1:.:|
00000790  ef 32 36 0d 02 c6 4d f1  8a 31 2c 32 29 22 54 48  |.26...M..1,2)"TH|
000007a0  45 20 43 48 41 4e 4e 45  4c 20 49 53 4c 41 4e 44  |E CHANNEL ISLAND|
000007b0  20 47 41 4d 45 20 2d 20  22 3b 6e 61 6d 65 24 28  | GAME - ";name$(|
000007c0  70 6c 61 79 65 72 25 29  3b 22 27 73 20 74 75 72  |player%);"'s tur|
000007d0  6e 22 8a 31 2c 33 29 3b  c4 33 38 2c 22 7e 22 29  |n".1,3);.38,"~")|
000007e0  0d 02 d0 0c f2 73 6f 72  74 6f 75 74 0d 02 da 4e  |.....sortout...N|
000007f0  f4 46 4f 52 4e 25 3d 31  54 4f 39 3a 50 52 49 4e  |.FORN%=1TO9:PRIN|
00000800  54 54 41 42 28 4e 25 2a  34 2c 35 29 3b 4e 25 54  |TTAB(N%*4,5);N%T|
00000810  41 42 28 4e 25 2a 34 2c  36 29 3b 43 48 52 24 32  |AB(N%*4,6);CHR$2|
00000820  35 35 54 41 42 28 4e 25  2a 34 2c 37 29 3b 43 48  |55TAB(N%*4,7);CH|
00000830  52 24 32 35 35 3a 4e 45  58 54 0d 02 e4 05 e1 0d  |R$255:NEXT......|
00000840  02 ee 10 dd f2 6d 61 6b  65 63 68 6f 69 63 65 0d  |.....makechoice.|
00000850  02 f8 05 f5 0d 03 02 11  f1 8a 31 2c 31 30 29 3b  |..........1,10);|
00000860  89 28 33 38 29 0d 03 0c  23 f1 8a 39 2c 31 30 29  |.(38)...#..9,10)|
00000870  22 53 45 4c 45 43 54 20  59 4f 55 52 20 4e 55 4d  |"SELECT YOUR NUM|
00000880  42 45 52 28 53 29 22 3b  0d 03 16 0b 2a 66 78 31  |BER(S)";....*fx1|
00000890  35 2c 30 0d 03 20 07 e8  47 25 0d 03 2a 24 44 25  |5,0.. ..G%..*$D%|
000008a0  28 31 29 3d 47 25 81 31  30 30 30 3a 42 25 3d 47  |(1)=G%.1000:B%=G|
000008b0  25 2d 28 44 25 28 31 29  2a 31 30 30 30 29 0d 03  |%-(D%(1)*1000)..|
000008c0  34 22 44 25 28 32 29 3d  42 25 81 31 30 30 3a 44  |4"D%(2)=B%.100:D|
000008d0  25 3d 42 25 2d 28 44 25  28 32 29 2a 31 30 30 29  |%=B%-(D%(2)*100)|
000008e0  0d 03 3e 0f 44 25 28 33  29 3d 44 25 81 31 30 0d  |..>.D%(3)=D%.10.|
000008f0  03 48 0f 44 25 28 34 29  3d 44 25 83 31 30 0d 03  |.H.D%(4)=D%.10..|
00000900  52 22 fd 44 25 28 31 29  2b 44 25 28 32 29 2b 44  |R".D%(1)+D%(2)+D|
00000910  25 28 33 29 2b 44 25 28  34 29 3d 58 25 2b 59 25  |%(3)+D%(4)=X%+Y%|
00000920  0d 03 5c 05 e1 0d 03 66  11 dd f2 63 68 65 63 6b  |..\....f...check|
00000930  63 68 6f 69 63 65 0d 03  70 08 55 25 3d 30 0d 03  |choice..p.U%=0..|
00000940  7a 22 20 e7 20 44 25 28  31 29 3d 44 25 28 32 29  |z" . D%(1)=D%(2)|
00000950  20 80 20 44 25 28 31 29  3c 3e 30 20 55 25 3d 31  | . D%(1)<>0 U%=1|
00000960  0d 03 84 22 20 e7 20 44  25 28 31 29 3d 44 25 28  |..." . D%(1)=D%(|
00000970  33 29 20 80 20 44 25 28  31 29 3c 3e 30 20 55 25  |3) . D%(1)<>0 U%|
00000980  3d 31 0d 03 8e 22 20 e7  20 44 25 28 31 29 3d 44  |=1..." . D%(1)=D|
00000990  25 28 34 29 20 80 20 44  25 28 31 29 3c 3e 30 20  |%(4) . D%(1)<>0 |
000009a0  55 25 3d 31 0d 03 98 22  20 e7 20 44 25 28 32 29  |U%=1..." . D%(2)|
000009b0  3d 44 25 28 33 29 20 80  20 44 25 28 32 29 3c 3e  |=D%(3) . D%(2)<>|
000009c0  30 20 55 25 3d 31 0d 03  a2 22 20 e7 20 44 25 28  |0 U%=1..." . D%(|
000009d0  32 29 3d 44 25 28 34 29  20 80 20 44 25 28 32 29  |2)=D%(4) . D%(2)|
000009e0  3c 3e 30 20 55 25 3d 31  0d 03 ac 22 20 e7 20 44  |<>0 U%=1..." . D|
000009f0  25 28 33 29 3d 44 25 28  34 29 20 80 20 44 25 28  |%(3)=D%(4) . D%(|
00000a00  33 29 3c 3e 30 20 55 25  3d 31 0d 03 b6 0b e3 4c  |3)<>0 U%=1.....L|
00000a10  25 3d 31 b8 39 0d 03 c0  1c e7 20 4e 25 28 4c 25  |%=1.9..... N%(L%|
00000a20  29 3d 44 25 28 31 29 20  4c 25 3d 39 3a 55 25 3d  |)=D%(1) L%=9:U%=|
00000a30  31 0d 03 ca 05 ed 0d 03  d4 0b e3 4c 25 3d 31 b8  |1..........L%=1.|
00000a40  39 0d 03 de 1c e7 20 4e  25 28 4c 25 29 3d 44 25  |9..... N%(L%)=D%|
00000a50  28 32 29 20 4c 25 3d 39  3a 55 25 3d 31 0d 03 e8  |(2) L%=9:U%=1...|
00000a60  05 ed 0d 03 f2 0b e3 4c  25 3d 31 b8 39 0d 03 fc  |.......L%=1.9...|
00000a70  1c e7 20 4e 25 28 4c 25  29 3d 44 25 28 33 29 20  |.. N%(L%)=D%(3) |
00000a80  4c 25 3d 39 3a 55 25 3d  31 0d 04 06 05 ed 0d 04  |L%=9:U%=1.......|
00000a90  10 0b e3 4c 25 3d 31 b8  39 0d 04 1a 1c e7 20 4e  |...L%=1.9..... N|
00000aa0  25 28 4c 25 29 3d 44 25  28 34 29 20 4c 25 3d 39  |%(L%)=D%(4) L%=9|
00000ab0  3a 55 25 3d 31 0d 04 24  05 ed 0d 04 2e 4a e7 20  |:U%=1..$.....J. |
00000ac0  55 25 3d 30 20 4e 25 28  44 25 28 31 29 29 3d 44  |U%=0 N%(D%(1))=D|
00000ad0  25 28 31 29 3a 4e 25 28  44 25 28 32 29 29 3d 44  |%(1):N%(D%(2))=D|
00000ae0  25 28 32 29 3a 4e 25 28  44 25 28 33 29 29 3d 44  |%(2):N%(D%(3))=D|
00000af0  25 28 33 29 3a 4e 25 28  44 25 28 34 29 29 3d 44  |%(3):N%(D%(4))=D|
00000b00  25 28 34 29 0d 04 38 3d  e7 20 55 25 3d 31 20 f1  |%(4)..8=. U%=1 .|
00000b10  8a 31 34 2c 31 33 29 22  43 41 4e 27 54 20 44 4f  |.14,13)"CAN'T DO|
00000b20  22 3a ef 32 38 2c 31 2c  31 35 2c 33 38 2c 38 3a  |":.28,1,15,38,8:|
00000b30  d1 3d 30 3a f5 fd 91 3e  32 30 30 3a db 3a ef 32  |.=0:...>200:.:.2|
00000b40  36 0d 04 42 2b 73 75 6d  25 3d 30 3a e3 6c 6f 6f  |6..B+sum%=0:.loo|
00000b50  70 25 3d 31 b8 39 3a 73  75 6d 25 3d 73 75 6d 25  |p%=1.9:sum%=sum%|
00000b60  2b 4e 25 28 6c 6f 6f 70  25 29 3a ed 0d 04 4c 2f  |+N%(loop%):...L/|
00000b70  74 6f 74 25 3d 30 3a e3  63 68 25 3d 31 b8 39 3a  |tot%=0:.ch%=1.9:|
00000b80  e7 4e 25 28 63 68 25 29  3c 3e 31 30 30 20 74 6f  |.N%(ch%)<>100 to|
00000b90  74 25 3d 74 6f 74 25 2b  63 68 25 0d 04 56 05 ed  |t%=tot%+ch%..V..|
00000ba0  0d 04 60 16 e7 20 73 75  6d 25 3d 34 35 20 f2 76  |..`.. sum%=45 .v|
00000bb0  69 63 74 6f 72 79 0d 04  6a 05 e1 0d 04 74 0b dd  |ictory..j....t..|
00000bc0  f2 61 72 72 61 79 0d 04  7e 16 55 25 3d 31 3a 45  |.array..~.U%=1:E|
00000bd0  47 24 3d 22 22 3a 74 6f  74 25 3d 30 0d 04 88 18  |G$="":tot%=0....|
00000be0  e3 5a 25 3d 31 b8 39 3a  4e 25 28 5a 25 29 3d 31  |.Z%=1.9:N%(Z%)=1|
00000bf0  30 30 3a ed 0d 04 92 05  e1 0d 04 9c 0d dd f2 73  |00:............s|
00000c00  6f 72 74 6f 75 74 0d 04  a6 17 ef 32 38 2c 31 2c  |ortout.....28,1,|
00000c10  31 35 2c 33 38 2c 34 3a  db 3a ef 32 36 0d 04 b0  |15,38,4:.:.26...|
00000c20  32 ec 31 30 30 2c 38 39  30 3a df 31 32 30 30 2c  |2.100,890:.1200,|
00000c30  38 39 30 3a df 31 32 30  30 2c 37 33 30 3a df 31  |890:.1200,730:.1|
00000c40  30 30 2c 37 33 30 3a df  31 30 30 2c 38 39 30 0d  |00,730:.100,890.|
00000c50  04 ba 0b e3 4a 25 3d 31  b8 39 0d 04 c4 5f e7 20  |....J%=1.9..._. |
00000c60  4e 25 28 4a 25 29 3d 31  30 30 20 f1 8a 4a 25 2a  |N%(J%)=100 ..J%*|
00000c70  34 2c 35 29 3b 4a 25 8a  4a 25 2a 34 2c 36 29 3b  |4,5);J%.J%*4,6);|
00000c80  bd 32 35 35 8a 4a 25 2a  34 2c 37 29 3b bd 32 35  |.255.J%*4,7);.25|
00000c90  35 8b f1 8a 4a 25 2a 34  2c 35 29 bd 32 35 35 8a  |5...J%*4,5).255.|
00000ca0  4a 25 2a 34 2c 36 29 3b  bd 32 35 35 8a 4a 25 2a  |J%*4,6);.255.J%*|
00000cb0  34 2c 37 29 3b bd 32 33  30 0d 04 ce 05 ed 0d 04  |4,7);.230.......|
00000cc0  d8 05 e1 0d 04 e2 0d dd  f2 76 69 63 74 6f 72 79  |.........victory|
00000cd0  0d 04 ec 18 ef 32 38 2c  31 2c 32 30 2c 33 38 2c  |.....28,1,20,38,|
00000ce0  31 30 3a db 3a ef 32 36  0d 04 f6 33 f1 8a 31 31  |10:.:.26...3..11|
00000cf0  2c 31 30 29 22 59 4f 55  20 43 4c 45 41 52 45 44  |,10)"YOU CLEARED|
00000d00  20 54 48 45 20 4c 4f 54  22 8a 31 35 2c 31 34 29  | THE LOT".15,14)|
00000d10  22 57 45 4c 4c 20 44 4f  4e 45 22 0d 05 00 12 55  |"WELL DONE"....U|
00000d20  25 3d 30 3a 45 47 24 3d  22 57 49 4e 22 0d 05 0a  |%=0:EG$="WIN"...|
00000d30  2e f1 8a 37 2c 31 39 29  22 50 52 45 53 53 20 53  |...7,19)"PRESS S|
00000d40  50 41 43 45 20 46 4f 52  20 4e 45 58 54 20 52 4f  |PACE FOR NEXT RO|
00000d50  55 4e 44 22 3a f5 fd a6  2d 39 39 0d 05 14 05 e1  |UND":...-99.....|
00000d60  0d 05 1e 11 dd f2 63 61  6e 69 74 62 65 64 6f 6e  |......canitbedon|
00000d70  65 0d 05 28 18 f7 28 31  36 30 30 2b 28 28 58 25  |e..(..(1600+((X%|
00000d80  2b 59 25 29 2a 31 30 29  29 0d 05 32 0a f5 3a f3  |+Y%)*10))..2..:.|
00000d90  20 4e 24 0d 05 3c 0f e3  57 25 3d 31 b8 a9 28 4e  | N$..<..W%=1..(N|
00000da0  24 29 0d 05 46 08 52 25  3d 31 0d 05 50 17 43 25  |$)..F.R%=1..P.C%|
00000db0  28 57 25 29 3d bb 28 c1  4e 24 2c 57 25 2c 31 29  |(W%)=.(.N$,W%,1)|
00000dc0  29 0d 05 5a 19 e7 4e 25  28 43 25 28 57 25 29 29  |)..Z..N%(C%(W%))|
00000dd0  3c 3e 31 30 30 20 52 25  3d 30 0d 05 64 13 e7 20  |<>100 R%=0..d.. |
00000de0  52 25 3d 30 20 57 25 3d  a9 28 4e 24 29 0d 05 6e  |R%=0 W%=.(N$)..n|
00000df0  05 ed 0d 05 78 12 fd 52  25 3d 31 20 84 20 4e 24  |....x..R%=1 . N$|
00000e00  3d 22 30 22 0d 05 82 15  e7 20 4e 24 3d 22 30 22  |="0"..... N$="0"|
00000e10  20 f2 65 6e 64 67 61 6d  65 0d 05 8c 05 e1 0d 05  | .endgame.......|
00000e20  96 0d dd f2 65 6e 64 67  61 6d 65 0d 05 a0 18 ef  |....endgame.....|
00000e30  32 38 2c 31 2c 32 32 2c  33 38 2c 31 30 3a db 3a  |28,1,22,38,10:.:|
00000e40  ef 32 36 0d 05 aa 06 ef  37 0d 05 b4 18 f1 8a 31  |.26.....7......1|
00000e50  35 2c 31 30 29 22 52 4f  55 4e 44 20 4f 56 45 52  |5,10)"ROUND OVER|
00000e60  22 0d 05 be 2d 45 47 24  3d 22 22 3a e3 75 25 3d  |"...-EG$="":.u%=|
00000e70  31 b8 39 3a e7 20 4e 25  28 75 25 29 3d 31 30 30  |1.9:. N%(u%)=100|
00000e80  20 45 47 24 3d 45 47 24  2b c3 28 75 25 29 0d 05  | EG$=EG$+.(u%)..|
00000e90  c8 05 ed 0d 05 d2 2a 73  63 6f 72 65 25 28 70 6c  |......*score%(pl|
00000ea0  61 79 65 72 25 29 3d 73  63 6f 72 65 25 28 70 6c  |ayer%)=score%(pl|
00000eb0  61 79 65 72 25 29 2b bb  28 45 47 24 29 0d 05 dc  |ayer%)+.(EG$)...|
00000ec0  4f f1 8a 31 35 2c 31 33  29 22 53 43 4f 52 45 20  |O..15,13)"SCORE |
00000ed0  3d 20 22 3b 45 47 24 8a  31 32 2c 31 35 29 3b 6e  |= ";EG$.12,15);n|
00000ee0  61 6d 65 24 28 70 6c 61  79 65 72 25 29 3b 22 20  |ame$(player%);" |
00000ef0  68 61 73 20 73 63 6f 72  65 64 20 22 3b 73 63 6f  |has scored ";sco|
00000f00  72 65 25 28 70 6c 61 79  65 72 25 29 0d 05 e6 26  |re%(player%)...&|
00000f10  f1 8a 37 2c 31 39 29 22  50 52 45 53 53 20 53 50  |..7,19)"PRESS SP|
00000f20  41 43 45 20 46 4f 52 20  4e 45 58 54 20 47 41 4d  |ACE FOR NEXT GAM|
00000f30  45 22 0d 05 f0 0a f5 fd  a5 3d 33 32 0d 05 fa 05  |E".......=32....|
00000f40  e1 0d 06 04 0d dd f2 72  65 73 75 6c 74 73 0d 06  |.......results..|
00000f50  0e 4c ef 31 39 2c 30 2c  34 3b 30 3b 3a f1 8a 38  |.L.19,0,4;0;:..8|
00000f60  2c 32 29 22 54 48 45 20  43 48 41 4e 4e 45 4c 20  |,2)"THE CHANNEL |
00000f70  49 53 4c 41 4e 44 20 47  41 4d 45 22 8a 38 2c 33  |ISLAND GAME".8,3|
00000f80  29 22 7e 7e 7e 7e 7e 7e  7e 7e 7e 7e 7e 7e 7e 7e  |)"~~~~~~~~~~~~~~|
00000f90  7e 7e 7e 7e 7e 7e 7e 7e  7e 22 0d 06 18 1d f1 8a  |~~~~~~~~~"......|
00000fa0  32 2c 36 29 22 4e 41 4d  45 22 8a 32 32 2c 36 29  |2,6)"NAME".22,6)|
00000fb0  22 53 43 4f 52 45 22 0d  06 22 44 e3 70 6c 25 3d  |"SCORE".."D.pl%=|
00000fc0  31 b8 6e 6e 25 3a f1 8a  32 2c 38 2b 28 70 6c 25  |1.nn%:..2,8+(pl%|
00000fd0  2a 32 29 29 3b 6e 61 6d  65 24 28 70 6c 25 29 8a  |*2));name$(pl%).|
00000fe0  32 32 2c 38 2b 28 70 6c  25 2a 32 29 29 3b 73 63  |22,8+(pl%*2));sc|
00000ff0  6f 72 65 25 28 70 6c 25  29 3a ed 0d 06 2c 26 f1  |ore%(pl%):...,&.|
00001000  8a 32 2c 32 32 29 22 50  52 45 53 53 20 53 50 41  |.2,22)"PRESS SPA|
00001010  43 45 20 46 4f 52 20 4e  45 58 54 20 47 41 4d 45  |CE FOR NEXT GAME|
00001020  22 0d 06 36 0a f5 fd a6  2d 39 39 0d 06 40 05 e1  |"..6....-99..@..|
00001030  0d 06 4a 08 dc 31 2c 30  0d 06 54 08 dc 32 2c 30  |..J..1,0..T..2,0|
00001040  0d 06 5e 0b dc 33 2c 32  31 2c 30 0d 06 68 0b dc  |..^..3,21,0..h..|
00001050  34 2c 33 31 2c 30 0d 06  72 0e dc 35 2c 34 31 2c  |4,31,0..r..5,41,|
00001060  33 32 2c 30 0d 06 7c 12  dc 36 2c 35 31 2c 34 32  |32,0..|..6,51,42|
00001070  2c 33 32 31 2c 30 0d 06  86 15 dc 37 2c 36 31 2c  |,321,0.....7,61,|
00001080  35 32 2c 34 33 2c 34 32  31 2c 30 0d 06 90 19 dc  |52,43,421,0.....|
00001090  38 2c 37 31 2c 36 32 2c  35 33 2c 35 32 31 2c 34  |8,71,62,53,521,4|
000010a0  33 31 2c 30 0d 06 9a 20  dc 39 2c 38 31 2c 37 32  |31,0... .9,81,72|
000010b0  2c 36 33 2c 35 34 2c 36  32 31 2c 35 33 31 2c 34  |,63,54,621,531,4|
000010c0  33 32 2c 30 0d 06 a4 27  dc 39 31 2c 38 32 2c 37  |32,0...'.91,82,7|
000010d0  33 2c 36 34 2c 37 32 31  2c 36 33 31 2c 35 34 31  |3,64,721,631,541|
000010e0  2c 35 33 32 2c 34 33 32  31 2c 30 0d 06 ae 2b dc  |,532,4321,0...+.|
000010f0  39 32 2c 38 33 2c 37 34  2c 36 35 2c 38 32 31 2c  |92,83,74,65,821,|
00001100  37 33 31 2c 36 34 31 2c  36 33 32 2c 35 34 32 2c  |731,641,632,542,|
00001110  35 33 32 31 2c 30 0d 06  b8 35 dc 39 33 2c 38 34  |5321,0...5.93,84|
00001120  2c 37 35 2c 39 32 31 2c  38 33 31 2c 37 34 31 2c  |,75,921,831,741,|
00001130  37 33 32 2c 36 35 31 2c  36 34 32 2c 35 34 33 2c  |732,651,642,543,|
00001140  36 33 32 31 2c 35 34 32  31 2c 30 0d 06 c2 09 dd  |6321,5421,0.....|
00001150  f2 65 72 72 0d 06 cc 14  f6 3a f1 22 20 61 74 20  |.err.....:." at |
00001160  6c 69 6e 65 20 22 3b 9e  0d 06 d6 09 2a 66 78 31  |line ";.....*fx1|
00001170  32 0d 06 e0 05 e0 0d ff                           |2.......|
00001178