� PROGRAM DARTS
� AUTHOR J.CROMBIE
� VERSION E1.0
(� ELBUG AUG/SEPT 1984
<:
d� � � �T`H
n�1:�keyorjoy
x3�:�5:� SCORE%(20),SUM(2),DX%(3),DY%(3),game%(2)
�	�init
�
�board
��
��0:�"PLR1  PLR2 501   501"
��3:�28,30,31,39,4
��
��=0:Player%=Player%+1
�� Player%=3 Player%=1 
�sum%=0:dart%=1
��
�
winner%=�
��movesight(dart%)
�5� SUM(Player%)=sum% � double%=1 � winner%=�:�TvA

d� SUM(Player%)-sum%<2 � �4:�6*(Player%-1)+1);"---  ";:�5:�removedarts(dart%):� winner%=�:�TvA 

dart%=dart%+1


� dart%>3

"�removedarts(3)

,NSUM(Player%)=SUM(Player%)-sum%:�4:�6*(Player%-1)+1);SUM(Player%);�(2);:�5

6
� winner%

@{�4:�1,-15,50,10:�1,-15,100,5:�1,-15,200,5:�''''''" WINNER     Player";Player%'''''''''':game%(Player%)=game%(Player%)+1

J�" PRESS KEY "

TA=�:� A=13 �endgame:�

^5� dart%=4 � �removedarts(3) � �removedarts(dart%)

h5�28,30,31,39,4,12:Player%=2:SUM(1)=501:SUM(2)=501

r� �

|�

�:
���board
�� I%=1�20 
��sector(I%,3,500,500,406) 
'�sector(I%,3*(I% � 2),500,500,400) 
-�sector(I%,3*(�((I% � 2)-1)),500,500,365)
&�sector(I%,3*(I% � 2),500,500,225)
$.�sector(I%,3*(�((I% � 2)-1)),500,500,200) 
.�
8A� I%=1�20:�sector(I%,0,500,500,40):�sector(I%,1,500,500,15):�
B
� I%=1�20
L<�450*�(�(18*I%-16))+471,440*�(�(18*I%-16))+500:� A$:� A$
V&�0,2:�430+I%,1000+I%:�"DARTS":�0,1
`�
j!�0,0:�430+I%,1000+I%:�"DARTS"
t�:� I%=1�20:� SCORE%(I%):�
~(�4,28,30,31,39,0,19,2,4,0,0,0:�130:�
��
�:
���sector(N%,C%,X%,Y%,S%)
�	�0,C%
�
�X%,Y%
�5� S%*�(�(18*(N%-1)-9))+X%,S%*�(�(18*(N%-1)-9))+Y%
�0�85,S%*�(�(18*N%-9))+X%,S%*�(�(18*N%-9))+Y% 
��
�:
�8� 20,1,18,4,13,6,10,15,2,17,3,19,7,16,8,11,14,9,12,5
�:
���movesight(dartno%)
�5:F%=0

C%=A%:D%=B%
� kb% � �DFE
&� �(2*(Player%-1)+1)>50000 A%=A%-8
(%� �(2*(Player%-1)+2)<8000 B%=B%-8
2%� �(2*(Player%-1)+1)<8000 A%=A%+8
<&� �(2*(Player%-1)+2)>50000 B%=B%+8
F� �-98 A%=A%-8
P� �-67 A%=A%+8
Z� �-73 B%=B%+8
d� �-105 B%=B%-8
n" � A%<0 A%=0 � � A%>900 A%=900
x!� B%<0 B%=0 � � B%>900 B%=900
�� �>300 � �t`E
�*FX15,1
�	�tjE
�LKEY%=�(0):� KEY%>48 � KEY%<58 � �3,2:� C%,D%:�224:�dart(A%,B%,dartno%):�
��3,2:� F%=1 �C%,D%:�224
�F%=1:�A%,B%:�224
�	�TJE
�:
���dart(X%,Y%,dartno)
��3,1
�_X%=X%+16+�(32*(KEY%-&30))-8*(KEY%-&30):Y%=Y%-12+�(32*(KEY%-&30))-8*(KEY%-&30)-12*(&3A-KEY%)
��X%-20,Y%-20:�X%+20,Y%+20
��X%-20,Y%+20:�X%+20,Y%-20
!DX%(dartno)=X%:DY%(dartno)=Y%
�0,-15,5,1
�total(X%,Y%)
"�
,:
6��total(X%,Y%)
@�Y%=500 Y%=499
JAANGLE%=��((X%-500)/(Y%-500)):radius%=�((X%-500)^2+(Y%-500)^2)
TD� Y%-500<0 � ANGLE%=ANGLE%+180 � � ANGLE%<-9 � ANGLE%=ANGLE%+360
^SEC%=(ANGLE%+9)/18
h'DARTSCORE%=SCORE%(SEC%+1):double%=0
rC� radius%<406 � radius%>365 � DARTSCORE%=DARTSCORE%*2:double%=1
|8� radius%>200 � radius%<225� DARTSCORE%=DARTSCORE%*3
�-� radius%>14 � radius%<40 � DARTSCORE%=25
�*� radius%<15 � DARTSCORE%=50:double%=1
� � radius%>406 � DARTSCORE%=0
�sum%=sum%+DARTSCORE%
��
�:
���removedarts(dartno%)
��3,1
��I%=1 � dartno%
�1�DX%(I%)-20,DY%(I%)-20:�DX%(I%)+20,DY%(I%)+20
�1�DX%(I%)-20,DY%(I%)+20:�DX%(I%)+20,DY%(I%)-20
��
��
:

��endgame
	�22,1
&�1:�15,4);"DARTS"
0(�1,-15,10,5:�1,-15,50,5:�1,-15,25,10
:4�2:�5,12);"Player 1 has won ";game%(1);" games"
D5�2:�5,14);"Player 2 has won ";game%(2);" games" 
NQ�1:� game%(1)=game%(2) � �1,20);"I therefore declare the contest a draw"'':�
X_�1,20);"I therefore declare the winner ";:� game%(1)>game%(2) � �"Player 1" � �"Player 2" 
b�
l:
v��keyorjoy
��23;1,0;0;0;0; 
��1:�12,3)"Dartboard"
��2:�11,6)"by J.Crombie"
�4�3:�9,12)"Are you playing"''�10)"from Keyboard"
��11)"or Joystick"
��:�7
��2:�15,17)"?";
�G$=�:�19,17)G$
�� G$="K" � G$="J"
�� G$="K" kb%=� � kb%=�
��
�:
�
��init
f�23,224,8,8,8,255,8,8,8,8:A%=500:B%=500:SUM(1)=501:SUM(2)=501:@%=0:Player%=2:game%(1)=0:game%(2)=0
�
:
 	� � �
*�6
4� �=17 �
>�:�" at line ";�
H�
�

00000000  0d 00 0a 14 20 f4 20 50  52 4f 47 52 41 4d 20 44  |.... . PROGRAM D|
00000010  41 52 54 53 0d 00 14 16  f4 20 41 55 54 48 4f 52  |ARTS..... AUTHOR|
00000020  20 4a 2e 43 52 4f 4d 42  49 45 0d 00 1e 12 f4 20  | J.CROMBIE..... |
00000030  56 45 52 53 49 4f 4e 20  45 31 2e 30 0d 00 28 19  |VERSION E1.0..(.|
00000040  f4 20 45 4c 42 55 47 20  41 55 47 2f 53 45 50 54  |. ELBUG AUG/SEPT|
00000050  20 31 39 38 34 0d 00 3c  05 3a 0d 00 64 0e ee 20  | 1984..<.:..d.. |
00000060  85 20 e5 20 8d 54 60 48  0d 00 6e 10 eb 31 3a f2  |. . .T`H..n..1:.|
00000070  6b 65 79 6f 72 6a 6f 79  0d 00 78 33 db 3a ef 35  |keyorjoy..x3.:.5|
00000080  3a de 20 53 43 4f 52 45  25 28 32 30 29 2c 53 55  |:. SCORE%(20),SU|
00000090  4d 28 32 29 2c 44 58 25  28 33 29 2c 44 59 25 28  |M(2),DX%(3),DY%(|
000000a0  33 29 2c 67 61 6d 65 25  28 32 29 0d 00 82 09 f2  |3),game%(2).....|
000000b0  69 6e 69 74 0d 00 8c 0a  f2 62 6f 61 72 64 0d 00  |init.....board..|
000000c0  96 05 f5 0d 00 a0 1e fb  30 3a f1 22 50 4c 52 31  |........0:."PLR1|
000000d0  20 20 50 4c 52 32 20 35  30 31 20 20 20 35 30 31  |  PLR2 501   501|
000000e0  22 0d 00 aa 15 fb 33 3a  ef 32 38 2c 33 30 2c 33  |".....3:.28,30,3|
000000f0  31 2c 33 39 2c 34 0d 00  b4 05 f5 0d 00 be 19 d1  |1,39,4..........|
00000100  3d 30 3a 50 6c 61 79 65  72 25 3d 50 6c 61 79 65  |=0:Player%=Playe|
00000110  72 25 2b 31 0d 00 c8 1a  e7 20 50 6c 61 79 65 72  |r%+1..... Player|
00000120  25 3d 33 20 50 6c 61 79  65 72 25 3d 31 20 0d 00  |%=3 Player%=1 ..|
00000130  d2 12 73 75 6d 25 3d 30  3a 64 61 72 74 25 3d 31  |..sum%=0:dart%=1|
00000140  0d 00 dc 05 f5 0d 00 e6  0d 77 69 6e 6e 65 72 25  |.........winner%|
00000150  3d a3 0d 00 f0 15 f2 6d  6f 76 65 73 69 67 68 74  |=......movesight|
00000160  28 64 61 72 74 25 29 0d  00 fa 35 e7 20 53 55 4d  |(dart%)...5. SUM|
00000170  28 50 6c 61 79 65 72 25  29 3d 73 75 6d 25 20 80  |(Player%)=sum% .|
00000180  20 64 6f 75 62 6c 65 25  3d 31 20 8c 20 77 69 6e  | double%=1 . win|
00000190  6e 65 72 25 3d b9 3a e5  8d 54 76 41 0d 01 04 64  |ner%=.:..TvA...d|
000001a0  e7 20 53 55 4d 28 50 6c  61 79 65 72 25 29 2d 73  |. SUM(Player%)-s|
000001b0  75 6d 25 3c 32 20 8c 20  ef 34 3a f1 8a 36 2a 28  |um%<2 . .4:..6*(|
000001c0  50 6c 61 79 65 72 25 2d  31 29 2b 31 29 3b 22 2d  |Player%-1)+1);"-|
000001d0  2d 2d 20 20 22 3b 3a ef  35 3a f2 72 65 6d 6f 76  |--  ";:.5:.remov|
000001e0  65 64 61 72 74 73 28 64  61 72 74 25 29 3a fd 20  |edarts(dart%):. |
000001f0  77 69 6e 6e 65 72 25 3d  a3 3a e5 8d 54 76 41 20  |winner%=.:..TvA |
00000200  0d 01 0e 11 64 61 72 74  25 3d 64 61 72 74 25 2b  |....dart%=dart%+|
00000210  31 0d 01 18 0d fd 20 64  61 72 74 25 3e 33 0d 01  |1..... dart%>3..|
00000220  22 13 f2 72 65 6d 6f 76  65 64 61 72 74 73 28 33  |"..removedarts(3|
00000230  29 0d 01 2c 4e 53 55 4d  28 50 6c 61 79 65 72 25  |)..,NSUM(Player%|
00000240  29 3d 53 55 4d 28 50 6c  61 79 65 72 25 29 2d 73  |)=SUM(Player%)-s|
00000250  75 6d 25 3a ef 34 3a f1  8a 36 2a 28 50 6c 61 79  |um%:.4:..6*(Play|
00000260  65 72 25 2d 31 29 2b 31  29 3b 53 55 4d 28 50 6c  |er%-1)+1);SUM(Pl|
00000270  61 79 65 72 25 29 3b 89  28 32 29 3b 3a ef 35 0d  |ayer%);.(2);:.5.|
00000280  01 36 0d fd 20 77 69 6e  6e 65 72 25 0d 01 40 7b  |.6.. winner%..@{|
00000290  ef 34 3a d4 31 2c 2d 31  35 2c 35 30 2c 31 30 3a  |.4:.1,-15,50,10:|
000002a0  d4 31 2c 2d 31 35 2c 31  30 30 2c 35 3a d4 31 2c  |.1,-15,100,5:.1,|
000002b0  2d 31 35 2c 32 30 30 2c  35 3a f1 27 27 27 27 27  |-15,200,5:.'''''|
000002c0  27 22 20 57 49 4e 4e 45  52 20 20 20 20 20 50 6c  |'" WINNER     Pl|
000002d0  61 79 65 72 22 3b 50 6c  61 79 65 72 25 27 27 27  |ayer";Player%'''|
000002e0  27 27 27 27 27 27 27 3a  67 61 6d 65 25 28 50 6c  |''''''':game%(Pl|
000002f0  61 79 65 72 25 29 3d 67  61 6d 65 25 28 50 6c 61  |ayer%)=game%(Pla|
00000300  79 65 72 25 29 2b 31 0d  01 4a 12 f1 22 20 50 52  |yer%)+1..J.." PR|
00000310  45 53 53 20 4b 45 59 20  22 0d 01 54 19 41 3d a5  |ESS KEY "..T.A=.|
00000320  3a e7 20 41 3d 31 33 20  f2 65 6e 64 67 61 6d 65  |:. A=13 .endgame|
00000330  3a e0 0d 01 5e 35 e7 20  64 61 72 74 25 3d 34 20  |:...^5. dart%=4 |
00000340  8c 20 f2 72 65 6d 6f 76  65 64 61 72 74 73 28 33  |. .removedarts(3|
00000350  29 20 8b 20 f2 72 65 6d  6f 76 65 64 61 72 74 73  |) . .removedarts|
00000360  28 64 61 72 74 25 29 0d  01 68 35 ef 32 38 2c 33  |(dart%)..h5.28,3|
00000370  30 2c 33 31 2c 33 39 2c  34 2c 31 32 3a 50 6c 61  |0,31,39,4,12:Pla|
00000380  79 65 72 25 3d 32 3a 53  55 4d 28 31 29 3d 35 30  |yer%=2:SUM(1)=50|
00000390  31 3a 53 55 4d 28 32 29  3d 35 30 31 0d 01 72 07  |1:SUM(2)=501..r.|
000003a0  fd 20 a3 0d 01 7c 05 e0  0d 01 86 05 3a 0d 03 e8  |. ...|......:...|
000003b0  0b dd f2 62 6f 61 72 64  0d 03 f2 0e e3 20 49 25  |...board..... I%|
000003c0  3d 31 b8 32 30 20 0d 03  fc 1e f2 73 65 63 74 6f  |=1.20 .....secto|
000003d0  72 28 49 25 2c 33 2c 35  30 30 2c 35 30 30 2c 34  |r(I%,3,500,500,4|
000003e0  30 36 29 20 0d 04 06 27  f2 73 65 63 74 6f 72 28  |06) ...'.sector(|
000003f0  49 25 2c 33 2a 28 49 25  20 83 20 32 29 2c 35 30  |I%,3*(I% . 2),50|
00000400  30 2c 35 30 30 2c 34 30  30 29 20 0d 04 10 2d f2  |0,500,400) ...-.|
00000410  73 65 63 74 6f 72 28 49  25 2c 33 2a 28 94 28 28  |sector(I%,3*(.((|
00000420  49 25 20 83 20 32 29 2d  31 29 29 2c 35 30 30 2c  |I% . 2)-1)),500,|
00000430  35 30 30 2c 33 36 35 29  0d 04 1a 26 f2 73 65 63  |500,365)...&.sec|
00000440  74 6f 72 28 49 25 2c 33  2a 28 49 25 20 83 20 32  |tor(I%,3*(I% . 2|
00000450  29 2c 35 30 30 2c 35 30  30 2c 32 32 35 29 0d 04  |),500,500,225)..|
00000460  24 2e f2 73 65 63 74 6f  72 28 49 25 2c 33 2a 28  |$..sector(I%,3*(|
00000470  94 28 28 49 25 20 83 20  32 29 2d 31 29 29 2c 35  |.((I% . 2)-1)),5|
00000480  30 30 2c 35 30 30 2c 32  30 30 29 20 0d 04 2e 05  |00,500,200) ....|
00000490  ed 0d 04 38 41 e3 20 49  25 3d 31 b8 32 30 3a f2  |...8A. I%=1.20:.|
000004a0  73 65 63 74 6f 72 28 49  25 2c 30 2c 35 30 30 2c  |sector(I%,0,500,|
000004b0  35 30 30 2c 34 30 29 3a  f2 73 65 63 74 6f 72 28  |500,40):.sector(|
000004c0  49 25 2c 31 2c 35 30 30  2c 35 30 30 2c 31 35 29  |I%,1,500,500,15)|
000004d0  3a ed 0d 04 42 0d e3 20  49 25 3d 31 b8 32 30 0d  |:...B.. I%=1.20.|
000004e0  04 4c 3c ec 34 35 30 2a  b5 28 b2 28 31 38 2a 49  |.L<.450*.(.(18*I|
000004f0  25 2d 31 36 29 29 2b 34  37 31 2c 34 34 30 2a 9b  |%-16))+471,440*.|
00000500  28 b2 28 31 38 2a 49 25  2d 31 36 29 29 2b 35 30  |(.(18*I%-16))+50|
00000510  30 3a f3 20 41 24 3a f1  20 41 24 0d 04 56 26 e6  |0:. A$:. A$..V&.|
00000520  30 2c 32 3a ec 34 33 30  2b 49 25 2c 31 30 30 30  |0,2:.430+I%,1000|
00000530  2b 49 25 3a f1 22 44 41  52 54 53 22 3a e6 30 2c  |+I%:."DARTS":.0,|
00000540  31 0d 04 60 05 ed 0d 04  6a 21 e6 30 2c 30 3a ec  |1..`....j!.0,0:.|
00000550  34 33 30 2b 49 25 2c 31  30 30 30 2b 49 25 3a f1  |430+I%,1000+I%:.|
00000560  22 44 41 52 54 53 22 0d  04 74 1e f7 3a e3 20 49  |"DARTS"..t..:. I|
00000570  25 3d 31 b8 32 30 3a f3  20 53 43 4f 52 45 25 28  |%=1.20:. SCORE%(|
00000580  49 25 29 3a ed 0d 04 7e  28 ef 34 2c 32 38 2c 33  |I%):...~(.4,28,3|
00000590  30 2c 33 31 2c 33 39 2c  30 2c 31 39 2c 32 2c 34  |0,31,39,0,19,2,4|
000005a0  2c 30 2c 30 2c 30 3a fb  31 33 30 3a db 0d 04 88  |,0,0,0:.130:....|
000005b0  05 e1 0d 04 92 05 3a 0d  04 9c 1c dd f2 73 65 63  |......:......sec|
000005c0  74 6f 72 28 4e 25 2c 43  25 2c 58 25 2c 59 25 2c  |tor(N%,C%,X%,Y%,|
000005d0  53 25 29 0d 04 a6 09 e6  30 2c 43 25 0d 04 b0 0a  |S%).....0,C%....|
000005e0  ec 58 25 2c 59 25 0d 04  ba 35 ec 20 53 25 2a b5  |.X%,Y%...5. S%*.|
000005f0  28 b2 28 31 38 2a 28 4e  25 2d 31 29 2d 39 29 29  |(.(18*(N%-1)-9))|
00000600  2b 58 25 2c 53 25 2a 9b  28 b2 28 31 38 2a 28 4e  |+X%,S%*.(.(18*(N|
00000610  25 2d 31 29 2d 39 29 29  2b 59 25 0d 04 c4 30 f0  |%-1)-9))+Y%...0.|
00000620  38 35 2c 53 25 2a b5 28  b2 28 31 38 2a 4e 25 2d  |85,S%*.(.(18*N%-|
00000630  39 29 29 2b 58 25 2c 53  25 2a 9b 28 b2 28 31 38  |9))+X%,S%*.(.(18|
00000640  2a 4e 25 2d 39 29 29 2b  59 25 20 0d 04 ce 05 e1  |*N%-9))+Y% .....|
00000650  0d 04 d8 05 3a 0d 04 e2  38 dc 20 32 30 2c 31 2c  |....:...8. 20,1,|
00000660  31 38 2c 34 2c 31 33 2c  36 2c 31 30 2c 31 35 2c  |18,4,13,6,10,15,|
00000670  32 2c 31 37 2c 33 2c 31  39 2c 37 2c 31 36 2c 38  |2,17,3,19,7,16,8|
00000680  2c 31 31 2c 31 34 2c 39  2c 31 32 2c 35 0d 04 ec  |,11,14,9,12,5...|
00000690  05 3a 0d 04 f6 18 dd f2  6d 6f 76 65 73 69 67 68  |.:......movesigh|
000006a0  74 28 64 61 72 74 6e 6f  25 29 0d 05 00 0b ef 35  |t(dartno%).....5|
000006b0  3a 46 25 3d 30 0d 05 0a  0f 43 25 3d 41 25 3a 44  |:F%=0....C%=A%:D|
000006c0  25 3d 42 25 0d 05 14 10  e7 20 6b 62 25 20 e5 20  |%=B%..... kb% . |
000006d0  8d 44 46 45 0d 05 1e 26  e7 20 96 28 32 2a 28 50  |.DFE...&. .(2*(P|
000006e0  6c 61 79 65 72 25 2d 31  29 2b 31 29 3e 35 30 30  |layer%-1)+1)>500|
000006f0  30 30 20 41 25 3d 41 25  2d 38 0d 05 28 25 e7 20  |00 A%=A%-8..(%. |
00000700  96 28 32 2a 28 50 6c 61  79 65 72 25 2d 31 29 2b  |.(2*(Player%-1)+|
00000710  32 29 3c 38 30 30 30 20  42 25 3d 42 25 2d 38 0d  |2)<8000 B%=B%-8.|
00000720  05 32 25 e7 20 96 28 32  2a 28 50 6c 61 79 65 72  |.2%. .(2*(Player|
00000730  25 2d 31 29 2b 31 29 3c  38 30 30 30 20 41 25 3d  |%-1)+1)<8000 A%=|
00000740  41 25 2b 38 0d 05 3c 26  e7 20 96 28 32 2a 28 50  |A%+8..<&. .(2*(P|
00000750  6c 61 79 65 72 25 2d 31  29 2b 32 29 3e 35 30 30  |layer%-1)+2)>500|
00000760  30 30 20 42 25 3d 42 25  2b 38 0d 05 46 12 e7 20  |00 B%=B%+8..F.. |
00000770  a6 2d 39 38 20 41 25 3d  41 25 2d 38 0d 05 50 12  |.-98 A%=A%-8..P.|
00000780  e7 20 a6 2d 36 37 20 41  25 3d 41 25 2b 38 0d 05  |. .-67 A%=A%+8..|
00000790  5a 12 e7 20 a6 2d 37 33  20 42 25 3d 42 25 2b 38  |Z.. .-73 B%=B%+8|
000007a0  0d 05 64 13 e7 20 a6 2d  31 30 35 20 42 25 3d 42  |..d.. .-105 B%=B|
000007b0  25 2d 38 0d 05 6e 22 20  e7 20 41 25 3c 30 20 41  |%-8..n" . A%<0 A|
000007c0  25 3d 30 20 8b 20 e7 20  41 25 3e 39 30 30 20 41  |%=0 . . A%>900 A|
000007d0  25 3d 39 30 30 0d 05 78  21 e7 20 42 25 3c 30 20  |%=900..x!. B%<0 |
000007e0  42 25 3d 30 20 8b 20 e7  20 42 25 3e 39 30 30 20  |B%=0 . . B%>900 |
000007f0  42 25 3d 39 30 30 0d 05  82 12 e7 20 91 3e 33 30  |B%=900..... .>30|
00000800  30 20 e5 20 8d 74 60 45  0d 05 8c 0b 2a 46 58 31  |0 . .t`E....*FX1|
00000810  35 2c 31 0d 05 96 09 e5  8d 74 6a 45 0d 05 a0 4c  |5,1......tjE...L|
00000820  4b 45 59 25 3d a6 28 30  29 3a e7 20 4b 45 59 25  |KEY%=.(0):. KEY%|
00000830  3e 34 38 20 80 20 4b 45  59 25 3c 35 38 20 8c 20  |>48 . KEY%<58 . |
00000840  e6 33 2c 32 3a ec 20 43  25 2c 44 25 3a ef 32 32  |.3,2:. C%,D%:.22|
00000850  34 3a f2 64 61 72 74 28  41 25 2c 42 25 2c 64 61  |4:.dart(A%,B%,da|
00000860  72 74 6e 6f 25 29 3a e1  0d 05 aa 1b e6 33 2c 32  |rtno%):......3,2|
00000870  3a e7 20 46 25 3d 31 20  ec 43 25 2c 44 25 3a ef  |:. F%=1 .C%,D%:.|
00000880  32 32 34 0d 05 b4 14 46  25 3d 31 3a ec 41 25 2c  |224....F%=1:.A%,|
00000890  42 25 3a ef 32 32 34 0d  05 be 09 e5 8d 54 4a 45  |B%:.224......TJE|
000008a0  0d 05 c8 05 3a 0d 05 d2  18 dd f2 64 61 72 74 28  |....:......dart(|
000008b0  58 25 2c 59 25 2c 64 61  72 74 6e 6f 29 0d 05 dc  |X%,Y%,dartno)...|
000008c0  08 e6 33 2c 31 0d 05 e6  5f 58 25 3d 58 25 2b 31  |..3,1..._X%=X%+1|
000008d0  36 2b b3 28 33 32 2a 28  4b 45 59 25 2d 26 33 30  |6+.(32*(KEY%-&30|
000008e0  29 29 2d 38 2a 28 4b 45  59 25 2d 26 33 30 29 3a  |))-8*(KEY%-&30):|
000008f0  59 25 3d 59 25 2d 31 32  2b b3 28 33 32 2a 28 4b  |Y%=Y%-12+.(32*(K|
00000900  45 59 25 2d 26 33 30 29  29 2d 38 2a 28 4b 45 59  |EY%-&30))-8*(KEY|
00000910  25 2d 26 33 30 29 2d 31  32 2a 28 26 33 41 2d 4b  |%-&30)-12*(&3A-K|
00000920  45 59 25 29 0d 05 f0 1d  ec 58 25 2d 32 30 2c 59  |EY%).....X%-20,Y|
00000930  25 2d 32 30 3a df 58 25  2b 32 30 2c 59 25 2b 32  |%-20:.X%+20,Y%+2|
00000940  30 0d 05 fa 1d ec 58 25  2d 32 30 2c 59 25 2b 32  |0.....X%-20,Y%+2|
00000950  30 3a df 58 25 2b 32 30  2c 59 25 2d 32 30 0d 06  |0:.X%+20,Y%-20..|
00000960  04 21 44 58 25 28 64 61  72 74 6e 6f 29 3d 58 25  |.!DX%(dartno)=X%|
00000970  3a 44 59 25 28 64 61 72  74 6e 6f 29 3d 59 25 0d  |:DY%(dartno)=Y%.|
00000980  06 0e 0e d4 30 2c 2d 31  35 2c 35 2c 31 0d 06 18  |....0,-15,5,1...|
00000990  11 f2 74 6f 74 61 6c 28  58 25 2c 59 25 29 0d 06  |..total(X%,Y%)..|
000009a0  22 05 e1 0d 06 2c 05 3a  0d 06 36 12 dd f2 74 6f  |"....,.:..6...to|
000009b0  74 61 6c 28 58 25 2c 59  25 29 0d 06 40 12 e7 59  |tal(X%,Y%)..@..Y|
000009c0  25 3d 35 30 30 20 59 25  3d 34 39 39 0d 06 4a 41  |%=500 Y%=499..JA|
000009d0  41 4e 47 4c 45 25 3d 9d  99 28 28 58 25 2d 35 30  |ANGLE%=..((X%-50|
000009e0  30 29 2f 28 59 25 2d 35  30 30 29 29 3a 72 61 64  |0)/(Y%-500)):rad|
000009f0  69 75 73 25 3d b6 28 28  58 25 2d 35 30 30 29 5e  |ius%=.((X%-500)^|
00000a00  32 2b 28 59 25 2d 35 30  30 29 5e 32 29 0d 06 54  |2+(Y%-500)^2)..T|
00000a10  44 e7 20 59 25 2d 35 30  30 3c 30 20 8c 20 41 4e  |D. Y%-500<0 . AN|
00000a20  47 4c 45 25 3d 41 4e 47  4c 45 25 2b 31 38 30 20  |GLE%=ANGLE%+180 |
00000a30  8b 20 e7 20 41 4e 47 4c  45 25 3c 2d 39 20 8c 20  |. . ANGLE%<-9 . |
00000a40  41 4e 47 4c 45 25 3d 41  4e 47 4c 45 25 2b 33 36  |ANGLE%=ANGLE%+36|
00000a50  30 0d 06 5e 16 53 45 43  25 3d 28 41 4e 47 4c 45  |0..^.SEC%=(ANGLE|
00000a60  25 2b 39 29 2f 31 38 0d  06 68 27 44 41 52 54 53  |%+9)/18..h'DARTS|
00000a70  43 4f 52 45 25 3d 53 43  4f 52 45 25 28 53 45 43  |CORE%=SCORE%(SEC|
00000a80  25 2b 31 29 3a 64 6f 75  62 6c 65 25 3d 30 0d 06  |%+1):double%=0..|
00000a90  72 43 e7 20 72 61 64 69  75 73 25 3c 34 30 36 20  |rC. radius%<406 |
00000aa0  80 20 72 61 64 69 75 73  25 3e 33 36 35 20 8c 20  |. radius%>365 . |
00000ab0  44 41 52 54 53 43 4f 52  45 25 3d 44 41 52 54 53  |DARTSCORE%=DARTS|
00000ac0  43 4f 52 45 25 2a 32 3a  64 6f 75 62 6c 65 25 3d  |CORE%*2:double%=|
00000ad0  31 0d 06 7c 38 e7 20 72  61 64 69 75 73 25 3e 32  |1..|8. radius%>2|
00000ae0  30 30 20 80 20 72 61 64  69 75 73 25 3c 32 32 35  |00 . radius%<225|
00000af0  8c 20 44 41 52 54 53 43  4f 52 45 25 3d 44 41 52  |. DARTSCORE%=DAR|
00000b00  54 53 43 4f 52 45 25 2a  33 0d 06 86 2d e7 20 72  |TSCORE%*3...-. r|
00000b10  61 64 69 75 73 25 3e 31  34 20 80 20 72 61 64 69  |adius%>14 . radi|
00000b20  75 73 25 3c 34 30 20 8c  20 44 41 52 54 53 43 4f  |us%<40 . DARTSCO|
00000b30  52 45 25 3d 32 35 0d 06  90 2a e7 20 72 61 64 69  |RE%=25...*. radi|
00000b40  75 73 25 3c 31 35 20 8c  20 44 41 52 54 53 43 4f  |us%<15 . DARTSCO|
00000b50  52 45 25 3d 35 30 3a 64  6f 75 62 6c 65 25 3d 31  |RE%=50:double%=1|
00000b60  0d 06 9a 20 e7 20 72 61  64 69 75 73 25 3e 34 30  |... . radius%>40|
00000b70  36 20 8c 20 44 41 52 54  53 43 4f 52 45 25 3d 30  |6 . DARTSCORE%=0|
00000b80  0d 06 a4 18 73 75 6d 25  3d 73 75 6d 25 2b 44 41  |....sum%=sum%+DA|
00000b90  52 54 53 43 4f 52 45 25  0d 06 ae 05 e1 0d 06 b8  |RTSCORE%........|
00000ba0  05 3a 0d 06 c2 1a dd f2  72 65 6d 6f 76 65 64 61  |.:......removeda|
00000bb0  72 74 73 28 64 61 72 74  6e 6f 25 29 0d 06 cc 08  |rts(dartno%)....|
00000bc0  e6 33 2c 31 0d 06 d6 13  e3 49 25 3d 31 20 b8 20  |.3,1.....I%=1 . |
00000bd0  64 61 72 74 6e 6f 25 0d  06 e0 31 ec 44 58 25 28  |dartno%...1.DX%(|
00000be0  49 25 29 2d 32 30 2c 44  59 25 28 49 25 29 2d 32  |I%)-20,DY%(I%)-2|
00000bf0  30 3a df 44 58 25 28 49  25 29 2b 32 30 2c 44 59  |0:.DX%(I%)+20,DY|
00000c00  25 28 49 25 29 2b 32 30  0d 06 ea 31 ec 44 58 25  |%(I%)+20...1.DX%|
00000c10  28 49 25 29 2d 32 30 2c  44 59 25 28 49 25 29 2b  |(I%)-20,DY%(I%)+|
00000c20  32 30 3a df 44 58 25 28  49 25 29 2b 32 30 2c 44  |20:.DX%(I%)+20,D|
00000c30  59 25 28 49 25 29 2d 32  30 0d 06 f4 05 ed 0d 06  |Y%(I%)-20.......|
00000c40  fe 05 e1 0d 07 08 05 3a  0d 07 12 0d dd f2 65 6e  |.......:......en|
00000c50  64 67 61 6d 65 0d 07 1c  09 ef 32 32 2c 31 0d 07  |dgame.....22,1..|
00000c60  26 16 fb 31 3a f1 8a 31  35 2c 34 29 3b 22 44 41  |&..1:..15,4);"DA|
00000c70  52 54 53 22 0d 07 30 28  d4 31 2c 2d 31 35 2c 31  |RTS"..0(.1,-15,1|
00000c80  30 2c 35 3a d4 31 2c 2d  31 35 2c 35 30 2c 35 3a  |0,5:.1,-15,50,5:|
00000c90  d4 31 2c 2d 31 35 2c 32  35 2c 31 30 0d 07 3a 34  |.1,-15,25,10..:4|
00000ca0  fb 32 3a f1 8a 35 2c 31  32 29 3b 22 50 6c 61 79  |.2:..5,12);"Play|
00000cb0  65 72 20 31 20 68 61 73  20 77 6f 6e 20 22 3b 67  |er 1 has won ";g|
00000cc0  61 6d 65 25 28 31 29 3b  22 20 67 61 6d 65 73 22  |ame%(1);" games"|
00000cd0  0d 07 44 35 fb 32 3a f1  8a 35 2c 31 34 29 3b 22  |..D5.2:..5,14);"|
00000ce0  50 6c 61 79 65 72 20 32  20 68 61 73 20 77 6f 6e  |Player 2 has won|
00000cf0  20 22 3b 67 61 6d 65 25  28 32 29 3b 22 20 67 61  | ";game%(2);" ga|
00000d00  6d 65 73 22 20 0d 07 4e  51 fb 31 3a e7 20 67 61  |mes" ..NQ.1:. ga|
00000d10  6d 65 25 28 31 29 3d 67  61 6d 65 25 28 32 29 20  |me%(1)=game%(2) |
00000d20  8c 20 f1 8a 31 2c 32 30  29 3b 22 49 20 74 68 65  |. ..1,20);"I the|
00000d30  72 65 66 6f 72 65 20 64  65 63 6c 61 72 65 20 74  |refore declare t|
00000d40  68 65 20 63 6f 6e 74 65  73 74 20 61 20 64 72 61  |he contest a dra|
00000d50  77 22 27 27 3a e1 0d 07  58 5f f1 8a 31 2c 32 30  |w"'':...X_..1,20|
00000d60  29 3b 22 49 20 74 68 65  72 65 66 6f 72 65 20 64  |);"I therefore d|
00000d70  65 63 6c 61 72 65 20 74  68 65 20 77 69 6e 6e 65  |eclare the winne|
00000d80  72 20 22 3b 3a e7 20 67  61 6d 65 25 28 31 29 3e  |r ";:. game%(1)>|
00000d90  67 61 6d 65 25 28 32 29  20 8c 20 f1 22 50 6c 61  |game%(2) . ."Pla|
00000da0  79 65 72 20 31 22 20 8b  20 f1 22 50 6c 61 79 65  |yer 1" . ."Playe|
00000db0  72 20 32 22 20 0d 07 62  05 e1 0d 07 6c 05 3a 0d  |r 2" ..b....l.:.|
00000dc0  07 76 0e dd f2 6b 65 79  6f 72 6a 6f 79 0d 07 80  |.v...keyorjoy...|
00000dd0  13 ef 32 33 3b 31 2c 30  3b 30 3b 30 3b 30 3b 20  |..23;1,0;0;0;0; |
00000de0  0d 07 8a 19 fb 31 3a f1  8a 31 32 2c 33 29 22 44  |.....1:..12,3)"D|
00000df0  61 72 74 62 6f 61 72 64  22 0d 07 94 1c fb 32 3a  |artboard".....2:|
00000e00  f1 8a 31 31 2c 36 29 22  62 79 20 4a 2e 43 72 6f  |..11,6)"by J.Cro|
00000e10  6d 62 69 65 22 0d 07 9e  34 fb 33 3a f1 8a 39 2c  |mbie"...4.3:..9,|
00000e20  31 32 29 22 41 72 65 20  79 6f 75 20 70 6c 61 79  |12)"Are you play|
00000e30  69 6e 67 22 27 27 8a 31  30 29 22 66 72 6f 6d 20  |ing"''.10)"from |
00000e40  4b 65 79 62 6f 61 72 64  22 0d 07 a8 16 f1 8a 31  |Keyboard"......1|
00000e50  31 29 22 6f 72 20 4a 6f  79 73 74 69 63 6b 22 0d  |1)"or Joystick".|
00000e60  07 b2 08 f5 3a ef 37 0d  07 bc 13 fb 32 3a f1 8a  |....:.7.....2:..|
00000e70  31 35 2c 31 37 29 22 3f  22 3b 0d 07 c6 13 47 24  |15,17)"?";....G$|
00000e80  3d be 3a f1 8a 31 39 2c  31 37 29 47 24 0d 07 d0  |=.:..19,17)G$...|
00000e90  15 fd 20 47 24 3d 22 4b  22 20 84 20 47 24 3d 22  |.. G$="K" . G$="|
00000ea0  4a 22 0d 07 da 1a e7 20  47 24 3d 22 4b 22 20 6b  |J"..... G$="K" k|
00000eb0  62 25 3d b9 20 8b 20 6b  62 25 3d a3 0d 07 e4 05  |b%=. . kb%=.....|
00000ec0  e1 0d 07 ee 05 3a 0d 07  f8 0a dd f2 69 6e 69 74  |.....:......init|
00000ed0  0d 08 02 66 ef 32 33 2c  32 32 34 2c 38 2c 38 2c  |...f.23,224,8,8,|
00000ee0  38 2c 32 35 35 2c 38 2c  38 2c 38 2c 38 3a 41 25  |8,255,8,8,8,8:A%|
00000ef0  3d 35 30 30 3a 42 25 3d  35 30 30 3a 53 55 4d 28  |=500:B%=500:SUM(|
00000f00  31 29 3d 35 30 31 3a 53  55 4d 28 32 29 3d 35 30  |1)=501:SUM(2)=50|
00000f10  31 3a 40 25 3d 30 3a 50  6c 61 79 65 72 25 3d 32  |1:@%=0:Player%=2|
00000f20  3a 67 61 6d 65 25 28 31  29 3d 30 3a 67 61 6d 65  |:game%(1)=0:game|
00000f30  25 28 32 29 3d 30 0d 08  0c 05 e1 0d 08 16 05 3a  |%(2)=0.........:|
00000f40  0d 08 20 09 ee 20 85 20  87 0d 08 2a 06 eb 36 0d  |.. .. . ...*..6.|
00000f50  08 34 0c e7 20 9f 3d 31  37 20 e0 0d 08 3e 14 f6  |.4.. .=17 ...>..|
00000f60  3a f1 22 20 61 74 20 6c  69 6e 65 20 22 3b 9e 0d  |:." at line ";..|
00000f70  08 48 05 e0 0d ff                                 |.H....|
00000f76