� ADDEND1
� by Martin Sann
� (c) Electron User
(�1:�23;8202;0;0;0;
2.�1,20,16,-16,0,8,1,20,-128,0,0,-10,128,128
<
*FX4 1
F*FX11 0
P*FX12 20
Z:
d
� sq%(16)
np1$=$&380:p2$=$&38A
xcl$=�8," "):Y$="Number"
�go$="Your go":S$="0"
�6res$=" "+�224+"   "+�224+"   "+�224+"   "+�224+" "
�
w1=0:w2=0
�:
�go=1:sc1=0:sc2=0
��level:�set:�targ
��screen:�19,0,0;0;19,7,6;0;
�%�:� go �2=0 name$=p1$ � name$=p2$
�1?&D3=255:�d(name$+�8-�name$," "),11,6):?&D3=0
��select:�move:�check
�go=go+1:� sc1=4 � sc2=4
�� sc1=4 w1=w1+1 � w2=w2+1
��37,23)�w1 

�37,26)�w2 

"� n%=0�17:�0,n%)�40," "):� n%

1�2,30)"Do you want to play again.....(Y/N)?"

"�:G$=�:� �"YN",G$)

,� G$="Y" �:�tj@

6�

@:

J��level

T�1,3:pl%=5

^�frame(0,0,1279,1023)

h?�d("Please choose the target range",5,12):�d("press",18,15)

r�12,19)"1  for  10 - 15"

|�12,22)"2  for  16 - 22"

��12,25)"3  for  23 - 30"

�&�:level=�-48:� level>0 � level<4:�

��

�:

�	��set

�� N%=1�16:sq%(N%)=0:� N%

��

�:

�
��targ

�� level=1 targ=9+�(6)

�� level=2 targ=15+�(7)

�� level=3 targ=22+�(8)

�targ$=�(targ)
'�3:�d(�225+targ$+�226,17-�targ$,10)
�
:
&��screen
0�0,3:pl%=5
:�frame(0,464,704,1023)
D�frame(736,464,1279,1023)
N�frame(0,114,1279,432)
X�frame(0,0,1279,96)
bpl%=85:�64,748
l�frame(64,748,632,848)
vpl%=5:�0,0
��frame(68,752,628,844)
��dots:�score:�info
�?&D3=255:�3,6)go$:?&D3=0
��
�:
�
��dots
�� row=0�3:� col=0�3
�1�d(" "+�224+" ",24+row*4,2+col*4):� col:� row
��
�:
���score
��13,20)"S   C   O   R   E"
��34,20)"Wins"
�37,23)�w1
�37,26)�w2
�2
 �2,23)p1$:�2,26)p2$
*�3
4�13,23)S$:�13,26)S$
>�
H:
R
��info
\�2:�8,10)"Target"
f4�2,30)"Arrow keys to move and Return to fix":�3
p�
z:
���select
�*FX15,0
��full:�8,14)cl$
�s%=0:N%=0:�1
�
�:N%=N%+1
�� level=1 s%=�(5)
�� level=2 s%=1+�(6)
�� level=3 s%=3+�(6)
��0,-5,1,1:�0,-10,s% �3,1
��d(�225+�s%+�226,16,14)
�� N%>20
��2:�8,14)Y$
��
:

��move
x=768:y=494:pl%=21:�0,3
$�frame(x,y,x+96,y+96)
.p=768:q=494
8	�:G=�
B!� G=136 x=x-128:� x<768 x=768
L#� G=137 x=x+128:� x>1152 x=1152
V!� G=138 y=y-128:� y<494 y=494
`!� G=139 y=y+128:� y>880 y=880
j�box:� G=13:�occ
t� occ=1 �TZD
~�1,-10,140+s%*8,4
�2�1:�d(�225+N$+�226,x/32,30-y/32):�3:sq%(Q%)=s%
��
�:
�	��box
�
N$=�s%
��0,0:�frame(p,q,p+96,q+96)
��0,3:�frame(x,y,x+96,y+96)
�p=x:q=y
��
�:
�	��occ
��2:occ=0
#N%=(x-768)/128:M%=4*(880-y)/128

Q%=N%+M%+1
H� sq%(Q%)<>0 occ=1:�7:�8,14)"Full up":�wait(3):�8,14)cl$:�8,14)Y$
�0,0:�frame(x,y,x+96,y+96)
(�
2:
<��frame(Xo,Yo,X,Y)
F2�Xo,Yo:�pl%,X,Yo:�pl%,X,Y:�pl%,Xo,Y:�pl%,Xo,Yo
P�
Z:
d��d(A$,x,y)
nX%=0:Y%=13:A%=10:D%=&D00
xC$=�240+�8+�10+�241
�M%=0:�:M%=M%+1
�!B$=�A$,M%,1):?D%=�(B$):�&FFF1
�3�23,240,D%?1,D%?1,D%?2,D%?2,D%?3,D%?3,D%?4,D%?4
�3�23,241,D%?5,D%?5,D%?6,D%?6,D%?7,D%?7,D%?8,D%?8
��x+M%-1,y)C$
�� M%=�A$
�� 
�:
�
��wait(D)
�� time=1�300*D:�
��
�:
���check
h=0:v=0:d1=0:d2=0
�h(Q%):�v(Q%):�d1:�d2

�clear
"�
,:
6
��full
@N%=1:S2%=0:full=1:�
J'S1%=sq%(N%):S2%=S2%+S1%:S3%=S2%+S1%
T� S2%=S3% full=0
^N%=N%+1:� N%=17
h� full=1 �set:�dots:�targ
r�
|:
���h(h%)
�H%=4*((h%-1) �4)+1
�-SH%=sq%(H%)+sq%(H%+1)+sq%(H%+2)+sq%(H%+3)
�L� SH%=targ � sq%(H%)<>0 � sq%(H%+1)<>0 � sq%(H%+2)<>0 � sq%(H%+3)<>0 h=1
��
�:
���v(v%)
�V%=v% �4:� V%=0 V%=4
�.SV%=sq%(V%)+sq%(V%+4)+sq%(V%+8)+sq%(V%+12)
�M� SV%=targ � sq%(V%)<>0 � sq%(V%+4)<>0 � sq%(V%+8)<>0 � sq%(V%+12)<>0 v=1
��
�:
���d1
&SD1%=sq%(1)+sq%(6)+sq%(11)+sq%(16)
G� SD1%=targ � sq%(1)<>0 � sq%(6)<>0 � sq%(11)<>0 � sq%(16)<>0 d1=1 
�
&:
0��d2
:&SD2%=sq%(4)+sq%(7)+sq%(10)+sq%(13)
DF� SD2%=targ � sq%(4)<>0 � sq%(7)<>0 � sq%(10)<>0 � sq%(13)<>0 d2=1
N�
X:
b��clear
l� h=1 �clearH
v� v=1 �clearV
�� d1=1 �cleard1 
�� d2=1 �cleard2 
�� h=1 �resetH
�� v=1 �resetV
�� d1=1 �resetd1
�� d2=1 �resetd2
��
�:
���clearH
��d(res$,24,H%+1):�incscore
��
�:
���resetH
� N%=0�3:sq%(H%+N%)=0:�
�
:
 ��clearV
*;� N%=0�3:�d(" "+�224+" ",20+V%*4,2+N%*4):� N%:�incscore
4�
>:
H��resetV
R� N%=0�3:sq%(V%+N%*4)=0:�
\�
f:
p
��cleard1
z;� N%=0�3:�d(" "+�224+" ",24+N%*4,2+N%*4):� N%:�incscore
��
�:
�
��resetd1
�� N%=0�3:sq%(N%*5+1)=0:�
��
�:
�
��cleard2
�;� N%=0�3:�d(" "+�224+" ",36-N%*4,2+N%*4):� N%:�incscore
��
�:
�
��resetd2
�� N%=0�3:sq%(N%*3+4)=0:�
��
	:
	��incscore
	� go �2=0 �inc1 � �inc2
	$�1,1,20,4:�wait(4)
	.�
	8:
	B
��inc1
	L�13+sc1*4,23)�224
	Vsc1=sc1+1:� sc1>4 sc1=4
	`�13+sc1*4,23)�sc1
	j�
	t:
	~
��inc2
	��13+sc2*4,26)�224
	�sc2=sc2+1:� sc2>4 sc2=4
	��13+sc2*4,26)�sc2
	��
�

00000000  0d 00 0a 0d f4 20 41 44  44 45 4e 44 31 0d 00 14  |..... ADDEND1...|
00000010  14 f4 20 62 79 20 4d 61  72 74 69 6e 20 53 61 6e  |.. by Martin San|
00000020  6e 0d 00 1e 17 f4 20 28  63 29 20 45 6c 65 63 74  |n..... (c) Elect|
00000030  72 6f 6e 20 55 73 65 72  0d 00 28 16 eb 31 3a ef  |ron User..(..1:.|
00000040  32 33 3b 38 32 30 32 3b  30 3b 30 3b 30 3b 0d 00  |23;8202;0;0;0;..|
00000050  32 2e e2 31 2c 32 30 2c  31 36 2c 2d 31 36 2c 30  |2..1,20,16,-16,0|
00000060  2c 38 2c 31 2c 32 30 2c  2d 31 32 38 2c 30 2c 30  |,8,1,20,-128,0,0|
00000070  2c 2d 31 30 2c 31 32 38  2c 31 32 38 0d 00 3c 0a  |,-10,128,128..<.|
00000080  2a 46 58 34 20 31 0d 00  46 0b 2a 46 58 31 31 20  |*FX4 1..F.*FX11 |
00000090  30 0d 00 50 0c 2a 46 58  31 32 20 32 30 0d 00 5a  |0..P.*FX12 20..Z|
000000a0  05 3a 0d 00 64 0d de 20  73 71 25 28 31 36 29 0d  |.:..d.. sq%(16).|
000000b0  00 6e 17 70 31 24 3d 24  26 33 38 30 3a 70 32 24  |.n.p1$=$&380:p2$|
000000c0  3d 24 26 33 38 41 0d 00  78 1b 63 6c 24 3d c4 38  |=$&38A..x.cl$=.8|
000000d0  2c 22 20 22 29 3a 59 24  3d 22 4e 75 6d 62 65 72  |," "):Y$="Number|
000000e0  22 0d 00 82 18 67 6f 24  3d 22 59 6f 75 72 20 67  |"....go$="Your g|
000000f0  6f 22 3a 53 24 3d 22 30  22 0d 00 8c 36 72 65 73  |o":S$="0"...6res|
00000100  24 3d 22 20 22 2b bd 32  32 34 2b 22 20 20 20 22  |$=" "+.224+"   "|
00000110  2b bd 32 32 34 2b 22 20  20 20 22 2b bd 32 32 34  |+.224+"   "+.224|
00000120  2b 22 20 20 20 22 2b bd  32 32 34 2b 22 20 22 0d  |+"   "+.224+" ".|
00000130  00 96 0d 77 31 3d 30 3a  77 32 3d 30 0d 00 a0 05  |...w1=0:w2=0....|
00000140  3a 0d 00 aa 14 67 6f 3d  31 3a 73 63 31 3d 30 3a  |:....go=1:sc1=0:|
00000150  73 63 32 3d 30 0d 00 b4  15 f2 6c 65 76 65 6c 3a  |sc2=0.....level:|
00000160  f2 73 65 74 3a f2 74 61  72 67 0d 00 be 1f f2 73  |.set:.targ.....s|
00000170  63 72 65 65 6e 3a ef 31  39 2c 30 2c 30 3b 30 3b  |creen:.19,0,0;0;|
00000180  31 39 2c 37 2c 36 3b 30  3b 0d 00 c8 25 f5 3a e7  |19,7,6;0;...%.:.|
00000190  20 67 6f 20 83 32 3d 30  20 6e 61 6d 65 24 3d 70  | go .2=0 name$=p|
000001a0  31 24 20 8b 20 6e 61 6d  65 24 3d 70 32 24 0d 00  |1$ . name$=p2$..|
000001b0  d2 31 3f 26 44 33 3d 32  35 35 3a f2 64 28 6e 61  |.1?&D3=255:.d(na|
000001c0  6d 65 24 2b c4 38 2d a9  6e 61 6d 65 24 2c 22 20  |me$+.8-.name$," |
000001d0  22 29 2c 31 31 2c 36 29  3a 3f 26 44 33 3d 30 0d  |"),11,6):?&D3=0.|
000001e0  00 dc 18 f2 73 65 6c 65  63 74 3a f2 6d 6f 76 65  |....select:.move|
000001f0  3a f2 63 68 65 63 6b 0d  00 e6 1b 67 6f 3d 67 6f  |:.check....go=go|
00000200  2b 31 3a fd 20 73 63 31  3d 34 20 84 20 73 63 32  |+1:. sc1=4 . sc2|
00000210  3d 34 0d 00 f0 1d e7 20  73 63 31 3d 34 20 77 31  |=4..... sc1=4 w1|
00000220  3d 77 31 2b 31 20 8b 20  77 32 3d 77 32 2b 31 0d  |=w1+1 . w2=w2+1.|
00000230  00 fa 10 f1 8a 33 37 2c  32 33 29 c3 77 31 20 0d  |.....37,23).w1 .|
00000240  01 04 10 f1 8a 33 37 2c  32 36 29 c3 77 32 20 0d  |.....37,26).w2 .|
00000250  01 0e 22 e3 20 6e 25 3d  30 b8 31 37 3a f1 8a 30  |..". n%=0.17:..0|
00000260  2c 6e 25 29 c4 34 30 2c  22 20 22 29 3a ed 20 6e  |,n%).40," "):. n|
00000270  25 0d 01 18 31 f1 8a 32  2c 33 30 29 22 44 6f 20  |%...1..2,30)"Do |
00000280  79 6f 75 20 77 61 6e 74  20 74 6f 20 70 6c 61 79  |you want to play|
00000290  20 61 67 61 69 6e 2e 2e  2e 2e 2e 28 59 2f 4e 29  | again.....(Y/N)|
000002a0  3f 22 0d 01 22 16 f5 3a  47 24 3d be 3a fd 20 a7  |?".."..:G$=.:. .|
000002b0  22 59 4e 22 2c 47 24 29  0d 01 2c 14 e7 20 47 24  |"YN",G$)..,.. G$|
000002c0  3d 22 59 22 20 da 3a e5  8d 74 6a 40 0d 01 36 05  |="Y" .:..tj@..6.|
000002d0  e0 0d 01 40 05 3a 0d 01  4a 0b dd f2 6c 65 76 65  |...@.:..J...leve|
000002e0  6c 0d 01 54 0e e6 31 2c  33 3a 70 6c 25 3d 35 0d  |l..T..1,3:pl%=5.|
000002f0  01 5e 19 f2 66 72 61 6d  65 28 30 2c 30 2c 31 32  |.^..frame(0,0,12|
00000300  37 39 2c 31 30 32 33 29  0d 01 68 3f f2 64 28 22  |79,1023)..h?.d("|
00000310  50 6c 65 61 73 65 20 63  68 6f 6f 73 65 20 74 68  |Please choose th|
00000320  65 20 74 61 72 67 65 74  20 72 61 6e 67 65 22 2c  |e target range",|
00000330  35 2c 31 32 29 3a f2 64  28 22 70 72 65 73 73 22  |5,12):.d("press"|
00000340  2c 31 38 2c 31 35 29 0d  01 72 1d f1 8a 31 32 2c  |,18,15)..r...12,|
00000350  31 39 29 22 31 20 20 66  6f 72 20 20 31 30 20 2d  |19)"1  for  10 -|
00000360  20 31 35 22 0d 01 7c 1d  f1 8a 31 32 2c 32 32 29  | 15"..|...12,22)|
00000370  22 32 20 20 66 6f 72 20  20 31 36 20 2d 20 32 32  |"2  for  16 - 22|
00000380  22 0d 01 86 1d f1 8a 31  32 2c 32 35 29 22 33 20  |"......12,25)"3 |
00000390  20 66 6f 72 20 20 32 33  20 2d 20 33 30 22 0d 01  | for  23 - 30"..|
000003a0  90 26 f5 3a 6c 65 76 65  6c 3d a5 2d 34 38 3a fd  |.&.:level=.-48:.|
000003b0  20 6c 65 76 65 6c 3e 30  20 80 20 6c 65 76 65 6c  | level>0 . level|
000003c0  3c 34 3a db 0d 01 9a 05  e1 0d 01 a4 05 3a 0d 01  |<4:..........:..|
000003d0  ae 09 dd f2 73 65 74 0d  01 b8 1c e3 20 4e 25 3d  |....set..... N%=|
000003e0  31 b8 31 36 3a 73 71 25  28 4e 25 29 3d 30 3a ed  |1.16:sq%(N%)=0:.|
000003f0  20 4e 25 0d 01 c2 05 e1  0d 01 cc 05 3a 0d 01 d6  | N%.........:...|
00000400  0a dd f2 74 61 72 67 0d  01 e0 19 e7 20 6c 65 76  |...targ..... lev|
00000410  65 6c 3d 31 20 74 61 72  67 3d 39 2b b3 28 36 29  |el=1 targ=9+.(6)|
00000420  0d 01 ea 1a e7 20 6c 65  76 65 6c 3d 32 20 74 61  |..... level=2 ta|
00000430  72 67 3d 31 35 2b b3 28  37 29 0d 01 f4 1a e7 20  |rg=15+.(7)..... |
00000440  6c 65 76 65 6c 3d 33 20  74 61 72 67 3d 32 32 2b  |level=3 targ=22+|
00000450  b3 28 38 29 0d 01 fe 11  74 61 72 67 24 3d c3 28  |.(8)....targ$=.(|
00000460  74 61 72 67 29 0d 02 08  27 fb 33 3a f2 64 28 bd  |targ)...'.3:.d(.|
00000470  32 32 35 2b 74 61 72 67  24 2b bd 32 32 36 2c 31  |225+targ$+.226,1|
00000480  37 2d a9 74 61 72 67 24  2c 31 30 29 0d 02 12 05  |7-.targ$,10)....|
00000490  e1 0d 02 1c 05 3a 0d 02  26 0c dd f2 73 63 72 65  |.....:..&...scre|
000004a0  65 6e 0d 02 30 0e e6 30  2c 33 3a 70 6c 25 3d 35  |en..0..0,3:pl%=5|
000004b0  0d 02 3a 1a f2 66 72 61  6d 65 28 30 2c 34 36 34  |..:..frame(0,464|
000004c0  2c 37 30 34 2c 31 30 32  33 29 0d 02 44 1d f2 66  |,704,1023)..D..f|
000004d0  72 61 6d 65 28 37 33 36  2c 34 36 34 2c 31 32 37  |rame(736,464,127|
000004e0  39 2c 31 30 32 33 29 0d  02 4e 1a f2 66 72 61 6d  |9,1023)..N..fram|
000004f0  65 28 30 2c 31 31 34 2c  31 32 37 39 2c 34 33 32  |e(0,114,1279,432|
00000500  29 0d 02 58 17 f2 66 72  61 6d 65 28 30 2c 30 2c  |)..X..frame(0,0,|
00000510  31 32 37 39 2c 39 36 29  0d 02 62 12 70 6c 25 3d  |1279,96)..b.pl%=|
00000520  38 35 3a ec 36 34 2c 37  34 38 0d 02 6c 1a f2 66  |85:.64,748..l..f|
00000530  72 61 6d 65 28 36 34 2c  37 34 38 2c 36 33 32 2c  |rame(64,748,632,|
00000540  38 34 38 29 0d 02 76 0e  70 6c 25 3d 35 3a e6 30  |848)..v.pl%=5:.0|
00000550  2c 30 0d 02 80 1a f2 66  72 61 6d 65 28 36 38 2c  |,0.....frame(68,|
00000560  37 35 32 2c 36 32 38 2c  38 34 34 29 0d 02 8a 16  |752,628,844)....|
00000570  f2 64 6f 74 73 3a f2 73  63 6f 72 65 3a f2 69 6e  |.dots:.score:.in|
00000580  66 6f 0d 02 94 1d 3f 26  44 33 3d 32 35 35 3a f1  |fo....?&D3=255:.|
00000590  8a 33 2c 36 29 67 6f 24  3a 3f 26 44 33 3d 30 0d  |.3,6)go$:?&D3=0.|
000005a0  02 9e 05 e1 0d 02 a8 05  3a 0d 02 b2 0a dd f2 64  |........:......d|
000005b0  6f 74 73 0d 02 bc 17 e3  20 72 6f 77 3d 30 b8 33  |ots..... row=0.3|
000005c0  3a e3 20 63 6f 6c 3d 30  b8 33 0d 02 c6 31 f2 64  |:. col=0.3...1.d|
000005d0  28 22 20 22 2b bd 32 32  34 2b 22 20 22 2c 32 34  |(" "+.224+" ",24|
000005e0  2b 72 6f 77 2a 34 2c 32  2b 63 6f 6c 2a 34 29 3a  |+row*4,2+col*4):|
000005f0  ed 20 63 6f 6c 3a ed 20  72 6f 77 0d 02 d0 05 e1  |. col:. row.....|
00000600  0d 02 da 05 3a 0d 02 e4  0b dd f2 73 63 6f 72 65  |....:......score|
00000610  0d 02 ee 1f f1 8a 31 33  2c 32 30 29 22 53 20 20  |......13,20)"S  |
00000620  20 43 20 20 20 4f 20 20  20 52 20 20 20 45 22 0d  | C   O   R   E".|
00000630  02 f8 12 f1 8a 33 34 2c  32 30 29 22 57 69 6e 73  |.....34,20)"Wins|
00000640  22 0d 03 02 0f f1 8a 33  37 2c 32 33 29 c3 77 31  |"......37,23).w1|
00000650  0d 03 0c 0f f1 8a 33 37  2c 32 36 29 c3 77 32 0d  |......37,26).w2.|
00000660  03 16 06 fb 32 0d 03 20  19 f1 8a 32 2c 32 33 29  |....2.. ...2,23)|
00000670  70 31 24 3a f1 8a 32 2c  32 36 29 70 32 24 0d 03  |p1$:..2,26)p2$..|
00000680  2a 06 fb 33 0d 03 34 19  f1 8a 31 33 2c 32 33 29  |*..3..4...13,23)|
00000690  53 24 3a f1 8a 31 33 2c  32 36 29 53 24 0d 03 3e  |S$:..13,26)S$..>|
000006a0  05 e1 0d 03 48 05 3a 0d  03 52 0a dd f2 69 6e 66  |....H.:..R...inf|
000006b0  6f 0d 03 5c 16 fb 32 3a  f1 8a 38 2c 31 30 29 22  |o..\..2:..8,10)"|
000006c0  54 61 72 67 65 74 22 0d  03 66 34 f1 8a 32 2c 33  |Target"..f4..2,3|
000006d0  30 29 22 41 72 72 6f 77  20 6b 65 79 73 20 74 6f  |0)"Arrow keys to|
000006e0  20 6d 6f 76 65 20 61 6e  64 20 52 65 74 75 72 6e  | move and Return|
000006f0  20 74 6f 20 66 69 78 22  3a fb 33 0d 03 70 05 e1  | to fix":.3..p..|
00000700  0d 03 7a 05 3a 0d 03 84  0c dd f2 73 65 6c 65 63  |..z.:......selec|
00000710  74 0d 03 8e 0b 2a 46 58  31 35 2c 30 0d 03 98 14  |t....*FX15,0....|
00000720  f2 66 75 6c 6c 3a f1 8a  38 2c 31 34 29 63 6c 24  |.full:..8,14)cl$|
00000730  0d 03 a2 10 73 25 3d 30  3a 4e 25 3d 30 3a fb 31  |....s%=0:N%=0:.1|
00000740  0d 03 ac 0d f5 3a 4e 25  3d 4e 25 2b 31 0d 03 b6  |.....:N%=N%+1...|
00000750  15 e7 20 6c 65 76 65 6c  3d 31 20 73 25 3d b3 28  |.. level=1 s%=.(|
00000760  35 29 0d 03 c0 17 e7 20  6c 65 76 65 6c 3d 32 20  |5)..... level=2 |
00000770  73 25 3d 31 2b b3 28 36  29 0d 03 ca 17 e7 20 6c  |s%=1+.(6)..... l|
00000780  65 76 65 6c 3d 33 20 73  25 3d 33 2b b3 28 36 29  |evel=3 s%=3+.(6)|
00000790  0d 03 d4 1c d4 30 2c 2d  35 2c 31 2c 31 3a d4 30  |.....0,-5,1,1:.0|
000007a0  2c 2d 31 30 2c 73 25 20  83 33 2c 31 0d 03 de 1b  |,-10,s% .3,1....|
000007b0  f2 64 28 bd 32 32 35 2b  c3 73 25 2b bd 32 32 36  |.d(.225+.s%+.226|
000007c0  2c 31 36 2c 31 34 29 0d  03 e8 0b fd 20 4e 25 3e  |,16,14)..... N%>|
000007d0  32 30 0d 03 f2 10 fb 32  3a f1 8a 38 2c 31 34 29  |20.....2:..8,14)|
000007e0  59 24 0d 03 fc 05 e1 0d  04 06 05 3a 0d 04 10 0a  |Y$.........:....|
000007f0  dd f2 6d 6f 76 65 0d 04  1a 1b 78 3d 37 36 38 3a  |..move....x=768:|
00000800  79 3d 34 39 34 3a 70 6c  25 3d 32 31 3a e6 30 2c  |y=494:pl%=21:.0,|
00000810  33 0d 04 24 19 f2 66 72  61 6d 65 28 78 2c 79 2c  |3..$..frame(x,y,|
00000820  78 2b 39 36 2c 79 2b 39  36 29 0d 04 2e 0f 70 3d  |x+96,y+96)....p=|
00000830  37 36 38 3a 71 3d 34 39  34 0d 04 38 09 f5 3a 47  |768:q=494..8..:G|
00000840  3d a5 0d 04 42 21 e7 20  47 3d 31 33 36 20 78 3d  |=...B!. G=136 x=|
00000850  78 2d 31 32 38 3a e7 20  78 3c 37 36 38 20 78 3d  |x-128:. x<768 x=|
00000860  37 36 38 0d 04 4c 23 e7  20 47 3d 31 33 37 20 78  |768..L#. G=137 x|
00000870  3d 78 2b 31 32 38 3a e7  20 78 3e 31 31 35 32 20  |=x+128:. x>1152 |
00000880  78 3d 31 31 35 32 0d 04  56 21 e7 20 47 3d 31 33  |x=1152..V!. G=13|
00000890  38 20 79 3d 79 2d 31 32  38 3a e7 20 79 3c 34 39  |8 y=y-128:. y<49|
000008a0  34 20 79 3d 34 39 34 0d  04 60 21 e7 20 47 3d 31  |4 y=494..`!. G=1|
000008b0  33 39 20 79 3d 79 2b 31  32 38 3a e7 20 79 3e 38  |39 y=y+128:. y>8|
000008c0  38 30 20 79 3d 38 38 30  0d 04 6a 14 f2 62 6f 78  |80 y=880..j..box|
000008d0  3a fd 20 47 3d 31 33 3a  f2 6f 63 63 0d 04 74 11  |:. G=13:.occ..t.|
000008e0  e7 20 6f 63 63 3d 31 20  e5 8d 54 5a 44 0d 04 7e  |. occ=1 ..TZD..~|
000008f0  15 d4 31 2c 2d 31 30 2c  31 34 30 2b 73 25 2a 38  |..1,-10,140+s%*8|
00000900  2c 34 0d 04 88 32 fb 31  3a f2 64 28 bd 32 32 35  |,4...2.1:.d(.225|
00000910  2b 4e 24 2b bd 32 32 36  2c 78 2f 33 32 2c 33 30  |+N$+.226,x/32,30|
00000920  2d 79 2f 33 32 29 3a fb  33 3a 73 71 25 28 51 25  |-y/32):.3:sq%(Q%|
00000930  29 3d 73 25 0d 04 92 05  e1 0d 04 9c 05 3a 0d 04  |)=s%.........:..|
00000940  a6 09 dd f2 62 6f 78 0d  04 b0 0a 4e 24 3d c3 73  |....box....N$=.s|
00000950  25 0d 04 ba 1e e6 30 2c  30 3a f2 66 72 61 6d 65  |%.....0,0:.frame|
00000960  28 70 2c 71 2c 70 2b 39  36 2c 71 2b 39 36 29 0d  |(p,q,p+96,q+96).|
00000970  04 c4 1e e6 30 2c 33 3a  f2 66 72 61 6d 65 28 78  |....0,3:.frame(x|
00000980  2c 79 2c 78 2b 39 36 2c  79 2b 39 36 29 0d 04 ce  |,y,x+96,y+96)...|
00000990  0b 70 3d 78 3a 71 3d 79  0d 04 d8 05 e1 0d 04 e2  |.p=x:q=y........|
000009a0  05 3a 0d 04 ec 09 dd f2  6f 63 63 0d 04 f6 0c fb  |.:......occ.....|
000009b0  32 3a 6f 63 63 3d 30 0d  05 00 23 4e 25 3d 28 78  |2:occ=0...#N%=(x|
000009c0  2d 37 36 38 29 2f 31 32  38 3a 4d 25 3d 34 2a 28  |-768)/128:M%=4*(|
000009d0  38 38 30 2d 79 29 2f 31  32 38 0d 05 0a 0e 51 25  |880-y)/128....Q%|
000009e0  3d 4e 25 2b 4d 25 2b 31  0d 05 14 48 e7 20 73 71  |=N%+M%+1...H. sq|
000009f0  25 28 51 25 29 3c 3e 30  20 6f 63 63 3d 31 3a ef  |%(Q%)<>0 occ=1:.|
00000a00  37 3a f1 8a 38 2c 31 34  29 22 46 75 6c 6c 20 75  |7:..8,14)"Full u|
00000a10  70 22 3a f2 77 61 69 74  28 33 29 3a f1 8a 38 2c  |p":.wait(3):..8,|
00000a20  31 34 29 63 6c 24 3a f1  8a 38 2c 31 34 29 59 24  |14)cl$:..8,14)Y$|
00000a30  0d 05 1e 1e e6 30 2c 30  3a f2 66 72 61 6d 65 28  |.....0,0:.frame(|
00000a40  78 2c 79 2c 78 2b 39 36  2c 79 2b 39 36 29 0d 05  |x,y,x+96,y+96)..|
00000a50  28 05 e1 0d 05 32 05 3a  0d 05 3c 16 dd f2 66 72  |(....2.:..<...fr|
00000a60  61 6d 65 28 58 6f 2c 59  6f 2c 58 2c 59 29 0d 05  |ame(Xo,Yo,X,Y)..|
00000a70  46 32 ec 58 6f 2c 59 6f  3a f0 70 6c 25 2c 58 2c  |F2.Xo,Yo:.pl%,X,|
00000a80  59 6f 3a f0 70 6c 25 2c  58 2c 59 3a f0 70 6c 25  |Yo:.pl%,X,Y:.pl%|
00000a90  2c 58 6f 2c 59 3a f0 70  6c 25 2c 58 6f 2c 59 6f  |,Xo,Y:.pl%,Xo,Yo|
00000aa0  0d 05 50 05 e1 0d 05 5a  05 3a 0d 05 64 0f dd f2  |..P....Z.:..d...|
00000ab0  64 28 41 24 2c 78 2c 79  29 0d 05 6e 1c 58 25 3d  |d(A$,x,y)..n.X%=|
00000ac0  30 3a 59 25 3d 31 33 3a  41 25 3d 31 30 3a 44 25  |0:Y%=13:A%=10:D%|
00000ad0  3d 26 44 30 30 0d 05 78  17 43 24 3d bd 32 34 30  |=&D00..x.C$=.240|
00000ae0  2b bd 38 2b bd 31 30 2b  bd 32 34 31 0d 05 82 12  |+.8+.10+.241....|
00000af0  4d 25 3d 30 3a f5 3a 4d  25 3d 4d 25 2b 31 0d 05  |M%=0:.:M%=M%+1..|
00000b00  8c 21 42 24 3d c1 41 24  2c 4d 25 2c 31 29 3a 3f  |.!B$=.A$,M%,1):?|
00000b10  44 25 3d 97 28 42 24 29  3a d6 26 46 46 46 31 0d  |D%=.(B$):.&FFF1.|
00000b20  05 96 33 ef 32 33 2c 32  34 30 2c 44 25 3f 31 2c  |..3.23,240,D%?1,|
00000b30  44 25 3f 31 2c 44 25 3f  32 2c 44 25 3f 32 2c 44  |D%?1,D%?2,D%?2,D|
00000b40  25 3f 33 2c 44 25 3f 33  2c 44 25 3f 34 2c 44 25  |%?3,D%?3,D%?4,D%|
00000b50  3f 34 0d 05 a0 33 ef 32  33 2c 32 34 31 2c 44 25  |?4...3.23,241,D%|
00000b60  3f 35 2c 44 25 3f 35 2c  44 25 3f 36 2c 44 25 3f  |?5,D%?5,D%?6,D%?|
00000b70  36 2c 44 25 3f 37 2c 44  25 3f 37 2c 44 25 3f 38  |6,D%?7,D%?7,D%?8|
00000b80  2c 44 25 3f 38 0d 05 aa  11 f1 8a 78 2b 4d 25 2d  |,D%?8......x+M%-|
00000b90  31 2c 79 29 43 24 0d 05  b4 0c fd 20 4d 25 3d a9  |1,y)C$..... M%=.|
00000ba0  41 24 0d 05 be 06 e1 20  0d 05 c8 05 3a 0d 05 d2  |A$..... ....:...|
00000bb0  0d dd f2 77 61 69 74 28  44 29 0d 05 dc 14 e3 20  |...wait(D)..... |
00000bc0  74 69 6d 65 3d 31 b8 33  30 30 2a 44 3a ed 0d 05  |time=1.300*D:...|
00000bd0  e6 05 e1 0d 05 f0 05 3a  0d 05 fa 0b dd f2 63 68  |.......:......ch|
00000be0  65 63 6b 0d 06 04 15 68  3d 30 3a 76 3d 30 3a 64  |eck....h=0:v=0:d|
00000bf0  31 3d 30 3a 64 32 3d 30  0d 06 0e 19 f2 68 28 51  |1=0:d2=0.....h(Q|
00000c00  25 29 3a f2 76 28 51 25  29 3a f2 64 31 3a f2 64  |%):.v(Q%):.d1:.d|
00000c10  32 0d 06 18 0a f2 63 6c  65 61 72 0d 06 22 05 e1  |2.....clear.."..|
00000c20  0d 06 2c 05 3a 0d 06 36  0a dd f2 66 75 6c 6c 0d  |..,.:..6...full.|
00000c30  06 40 17 4e 25 3d 31 3a  53 32 25 3d 30 3a 66 75  |.@.N%=1:S2%=0:fu|
00000c40  6c 6c 3d 31 3a f5 0d 06  4a 27 53 31 25 3d 73 71  |ll=1:...J'S1%=sq|
00000c50  25 28 4e 25 29 3a 53 32  25 3d 53 32 25 2b 53 31  |%(N%):S2%=S2%+S1|
00000c60  25 3a 53 33 25 3d 53 32  25 2b 53 31 25 0d 06 54  |%:S3%=S2%+S1%..T|
00000c70  14 e7 20 53 32 25 3d 53  33 25 20 66 75 6c 6c 3d  |.. S2%=S3% full=|
00000c80  30 0d 06 5e 13 4e 25 3d  4e 25 2b 31 3a fd 20 4e  |0..^.N%=N%+1:. N|
00000c90  25 3d 31 37 0d 06 68 1d  e7 20 66 75 6c 6c 3d 31  |%=17..h.. full=1|
00000ca0  20 f2 73 65 74 3a f2 64  6f 74 73 3a f2 74 61 72  | .set:.dots:.tar|
00000cb0  67 0d 06 72 05 e1 0d 06  7c 05 3a 0d 06 86 0b dd  |g..r....|.:.....|
00000cc0  f2 68 28 68 25 29 0d 06  90 16 48 25 3d 34 2a 28  |.h(h%)....H%=4*(|
00000cd0  28 68 25 2d 31 29 20 81  34 29 2b 31 0d 06 9a 2d  |(h%-1) .4)+1...-|
00000ce0  53 48 25 3d 73 71 25 28  48 25 29 2b 73 71 25 28  |SH%=sq%(H%)+sq%(|
00000cf0  48 25 2b 31 29 2b 73 71  25 28 48 25 2b 32 29 2b  |H%+1)+sq%(H%+2)+|
00000d00  73 71 25 28 48 25 2b 33  29 0d 06 a4 4c e7 20 53  |sq%(H%+3)...L. S|
00000d10  48 25 3d 74 61 72 67 20  80 20 73 71 25 28 48 25  |H%=targ . sq%(H%|
00000d20  29 3c 3e 30 20 80 20 73  71 25 28 48 25 2b 31 29  |)<>0 . sq%(H%+1)|
00000d30  3c 3e 30 20 80 20 73 71  25 28 48 25 2b 32 29 3c  |<>0 . sq%(H%+2)<|
00000d40  3e 30 20 80 20 73 71 25  28 48 25 2b 33 29 3c 3e  |>0 . sq%(H%+3)<>|
00000d50  30 20 68 3d 31 0d 06 ae  05 e1 0d 06 b8 05 3a 0d  |0 h=1.........:.|
00000d60  06 c2 0b dd f2 76 28 76  25 29 0d 06 cc 18 56 25  |.....v(v%)....V%|
00000d70  3d 76 25 20 83 34 3a e7  20 56 25 3d 30 20 56 25  |=v% .4:. V%=0 V%|
00000d80  3d 34 0d 06 d6 2e 53 56  25 3d 73 71 25 28 56 25  |=4....SV%=sq%(V%|
00000d90  29 2b 73 71 25 28 56 25  2b 34 29 2b 73 71 25 28  |)+sq%(V%+4)+sq%(|
00000da0  56 25 2b 38 29 2b 73 71  25 28 56 25 2b 31 32 29  |V%+8)+sq%(V%+12)|
00000db0  0d 06 e0 4d e7 20 53 56  25 3d 74 61 72 67 20 80  |...M. SV%=targ .|
00000dc0  20 73 71 25 28 56 25 29  3c 3e 30 20 80 20 73 71  | sq%(V%)<>0 . sq|
00000dd0  25 28 56 25 2b 34 29 3c  3e 30 20 80 20 73 71 25  |%(V%+4)<>0 . sq%|
00000de0  28 56 25 2b 38 29 3c 3e  30 20 80 20 73 71 25 28  |(V%+8)<>0 . sq%(|
00000df0  56 25 2b 31 32 29 3c 3e  30 20 76 3d 31 0d 06 ea  |V%+12)<>0 v=1...|
00000e00  05 e1 0d 06 f4 05 3a 0d  06 fe 08 dd f2 64 31 0d  |......:......d1.|
00000e10  07 08 26 53 44 31 25 3d  73 71 25 28 31 29 2b 73  |..&SD1%=sq%(1)+s|
00000e20  71 25 28 36 29 2b 73 71  25 28 31 31 29 2b 73 71  |q%(6)+sq%(11)+sq|
00000e30  25 28 31 36 29 0d 07 12  47 e7 20 53 44 31 25 3d  |%(16)...G. SD1%=|
00000e40  74 61 72 67 20 80 20 73  71 25 28 31 29 3c 3e 30  |targ . sq%(1)<>0|
00000e50  20 80 20 73 71 25 28 36  29 3c 3e 30 20 80 20 73  | . sq%(6)<>0 . s|
00000e60  71 25 28 31 31 29 3c 3e  30 20 80 20 73 71 25 28  |q%(11)<>0 . sq%(|
00000e70  31 36 29 3c 3e 30 20 64  31 3d 31 20 0d 07 1c 05  |16)<>0 d1=1 ....|
00000e80  e1 0d 07 26 05 3a 0d 07  30 08 dd f2 64 32 0d 07  |...&.:..0...d2..|
00000e90  3a 26 53 44 32 25 3d 73  71 25 28 34 29 2b 73 71  |:&SD2%=sq%(4)+sq|
00000ea0  25 28 37 29 2b 73 71 25  28 31 30 29 2b 73 71 25  |%(7)+sq%(10)+sq%|
00000eb0  28 31 33 29 0d 07 44 46  e7 20 53 44 32 25 3d 74  |(13)..DF. SD2%=t|
00000ec0  61 72 67 20 80 20 73 71  25 28 34 29 3c 3e 30 20  |arg . sq%(4)<>0 |
00000ed0  80 20 73 71 25 28 37 29  3c 3e 30 20 80 20 73 71  |. sq%(7)<>0 . sq|
00000ee0  25 28 31 30 29 3c 3e 30  20 80 20 73 71 25 28 31  |%(10)<>0 . sq%(1|
00000ef0  33 29 3c 3e 30 20 64 32  3d 31 0d 07 4e 05 e1 0d  |3)<>0 d2=1..N...|
00000f00  07 58 05 3a 0d 07 62 0b  dd f2 63 6c 65 61 72 0d  |.X.:..b...clear.|
00000f10  07 6c 11 e7 20 68 3d 31  20 f2 63 6c 65 61 72 48  |.l.. h=1 .clearH|
00000f20  0d 07 76 11 e7 20 76 3d  31 20 f2 63 6c 65 61 72  |..v.. v=1 .clear|
00000f30  56 0d 07 80 14 e7 20 64  31 3d 31 20 f2 63 6c 65  |V..... d1=1 .cle|
00000f40  61 72 64 31 20 0d 07 8a  14 e7 20 64 32 3d 31 20  |ard1 ..... d2=1 |
00000f50  f2 63 6c 65 61 72 64 32  20 0d 07 94 11 e7 20 68  |.cleard2 ..... h|
00000f60  3d 31 20 f2 72 65 73 65  74 48 0d 07 9e 11 e7 20  |=1 .resetH..... |
00000f70  76 3d 31 20 f2 72 65 73  65 74 56 0d 07 a8 13 e7  |v=1 .resetV.....|
00000f80  20 64 31 3d 31 20 f2 72  65 73 65 74 64 31 0d 07  | d1=1 .resetd1..|
00000f90  b2 13 e7 20 64 32 3d 31  20 f2 72 65 73 65 74 64  |... d2=1 .resetd|
00000fa0  32 0d 07 bc 05 e1 0d 07  c6 05 3a 0d 07 d0 0c dd  |2.........:.....|
00000fb0  f2 63 6c 65 61 72 48 0d  07 da 1e f2 64 28 72 65  |.clearH.....d(re|
00000fc0  73 24 2c 32 34 2c 48 25  2b 31 29 3a f2 69 6e 63  |s$,24,H%+1):.inc|
00000fd0  73 63 6f 72 65 0d 07 e4  05 e1 0d 07 ee 05 3a 0d  |score.........:.|
00000fe0  07 f8 0c dd f2 72 65 73  65 74 48 0d 08 02 1b e3  |.....resetH.....|
00000ff0  20 4e 25 3d 30 b8 33 3a  73 71 25 28 48 25 2b 4e  | N%=0.3:sq%(H%+N|
00001000  25 29 3d 30 3a ed 0d 08  0c 05 e1 0d 08 16 05 3a  |%)=0:..........:|
00001010  0d 08 20 0c dd f2 63 6c  65 61 72 56 0d 08 2a 3b  |.. ...clearV..*;|
00001020  e3 20 4e 25 3d 30 b8 33  3a f2 64 28 22 20 22 2b  |. N%=0.3:.d(" "+|
00001030  bd 32 32 34 2b 22 20 22  2c 32 30 2b 56 25 2a 34  |.224+" ",20+V%*4|
00001040  2c 32 2b 4e 25 2a 34 29  3a ed 20 4e 25 3a f2 69  |,2+N%*4):. N%:.i|
00001050  6e 63 73 63 6f 72 65 0d  08 34 05 e1 0d 08 3e 05  |ncscore..4....>.|
00001060  3a 0d 08 48 0c dd f2 72  65 73 65 74 56 0d 08 52  |:..H...resetV..R|
00001070  1d e3 20 4e 25 3d 30 b8  33 3a 73 71 25 28 56 25  |.. N%=0.3:sq%(V%|
00001080  2b 4e 25 2a 34 29 3d 30  3a ed 0d 08 5c 05 e1 0d  |+N%*4)=0:...\...|
00001090  08 66 05 3a 0d 08 70 0d  dd f2 63 6c 65 61 72 64  |.f.:..p...cleard|
000010a0  31 0d 08 7a 3b e3 20 4e  25 3d 30 b8 33 3a f2 64  |1..z;. N%=0.3:.d|
000010b0  28 22 20 22 2b bd 32 32  34 2b 22 20 22 2c 32 34  |(" "+.224+" ",24|
000010c0  2b 4e 25 2a 34 2c 32 2b  4e 25 2a 34 29 3a ed 20  |+N%*4,2+N%*4):. |
000010d0  4e 25 3a f2 69 6e 63 73  63 6f 72 65 0d 08 84 05  |N%:.incscore....|
000010e0  e1 0d 08 8e 05 3a 0d 08  98 0d dd f2 72 65 73 65  |.....:......rese|
000010f0  74 64 31 0d 08 a2 1c e3  20 4e 25 3d 30 b8 33 3a  |td1..... N%=0.3:|
00001100  73 71 25 28 4e 25 2a 35  2b 31 29 3d 30 3a ed 0d  |sq%(N%*5+1)=0:..|
00001110  08 ac 05 e1 0d 08 b6 05  3a 0d 08 c0 0d dd f2 63  |........:......c|
00001120  6c 65 61 72 64 32 0d 08  ca 3b e3 20 4e 25 3d 30  |leard2...;. N%=0|
00001130  b8 33 3a f2 64 28 22 20  22 2b bd 32 32 34 2b 22  |.3:.d(" "+.224+"|
00001140  20 22 2c 33 36 2d 4e 25  2a 34 2c 32 2b 4e 25 2a  | ",36-N%*4,2+N%*|
00001150  34 29 3a ed 20 4e 25 3a  f2 69 6e 63 73 63 6f 72  |4):. N%:.incscor|
00001160  65 0d 08 d4 05 e1 0d 08  de 05 3a 0d 08 e8 0d dd  |e.........:.....|
00001170  f2 72 65 73 65 74 64 32  0d 08 f2 1c e3 20 4e 25  |.resetd2..... N%|
00001180  3d 30 b8 33 3a 73 71 25  28 4e 25 2a 33 2b 34 29  |=0.3:sq%(N%*3+4)|
00001190  3d 30 3a ed 0d 08 fc 05  e1 0d 09 06 05 3a 0d 09  |=0:..........:..|
000011a0  10 0e dd f2 69 6e 63 73  63 6f 72 65 0d 09 1a 1b  |....incscore....|
000011b0  e7 20 67 6f 20 83 32 3d  30 20 f2 69 6e 63 31 20  |. go .2=0 .inc1 |
000011c0  8b 20 f2 69 6e 63 32 0d  09 24 16 d4 31 2c 31 2c  |. .inc2..$..1,1,|
000011d0  32 30 2c 34 3a f2 77 61  69 74 28 34 29 0d 09 2e  |20,4:.wait(4)...|
000011e0  05 e1 0d 09 38 05 3a 0d  09 42 0a dd f2 69 6e 63  |....8.:..B...inc|
000011f0  31 0d 09 4c 16 f1 8a 31  33 2b 73 63 31 2a 34 2c  |1..L...13+sc1*4,|
00001200  32 33 29 bd 32 32 34 0d  09 56 1b 73 63 31 3d 73  |23).224..V.sc1=s|
00001210  63 31 2b 31 3a e7 20 73  63 31 3e 34 20 73 63 31  |c1+1:. sc1>4 sc1|
00001220  3d 34 0d 09 60 16 f1 8a  31 33 2b 73 63 31 2a 34  |=4..`...13+sc1*4|
00001230  2c 32 33 29 c3 73 63 31  0d 09 6a 05 e1 0d 09 74  |,23).sc1..j....t|
00001240  05 3a 0d 09 7e 0a dd f2  69 6e 63 32 0d 09 88 16  |.:..~...inc2....|
00001250  f1 8a 31 33 2b 73 63 32  2a 34 2c 32 36 29 bd 32  |..13+sc2*4,26).2|
00001260  32 34 0d 09 92 1b 73 63  32 3d 73 63 32 2b 31 3a  |24....sc2=sc2+1:|
00001270  e7 20 73 63 32 3e 34 20  73 63 32 3d 34 0d 09 9c  |. sc2>4 sc2=4...|
00001280  16 f1 8a 31 33 2b 73 63  32 2a 34 2c 32 36 29 c3  |...13+sc2*4,26).|
00001290  73 63 32 0d 09 a6 05 e1  0d ff                    |sc2.......|
0000129a