� > $.!Metronome.!Run
�12
norm_vol=10
(big_vol=15
2big_beat=0
<now_beat=0
F
� col(16)
P�init_sound
Z�init_cols
d�main_screen
n:
x�set_speed(120)
�
time=0
�z=0
�p=0
��
��check_click
�!� �-time>=beat � time=�:�swap
�� 0
��
�:
���box(x,y,t$,t,c):� a,b
�
� b=0 � 7
�a=b*t/7
�
�0,7-b

-ȓ Ȑ x+a,y+a,16*�(t$)+2*t-2*a,32+2*t-2*a

�

�0,c

"� x+t,y+32+t:�5;t$;�4;:�

,�

6:

@ ��set_speed(a):� A%,B%,A$,B$

J� a=-1 � � �D^A

Tspeed=a

^#�23,17,7,6,240/�(�(speed));102|

h� speed<300 Ȗ

r�0,15:ȓ Ȑ 360,112,560,675

|� 400,704:�0,11

�
�5;speed

��

�� A%:� B%=1 � A%

�� A$,A%:� A%=speed � B$=A$

��

��23,17,7,6,24;8|

��0,9

�!� 640-24*�(B$),208:�;B$;�4;:�

�beat=6000/speed

��23,17,7,6,8;8|

��

�:

�
��swap
swap=� swap
Ȣ 1,25+50*swap
tr=r:tg=g:tb=b
&|� now_beat<big_beat � big_beat=0 � � 1,-norm_vol,53,5:now_beat+=1 � � 1,-big_vol,53,5:now_beat=1:tr=bigr:tg=bigg:tb=bigb
0� speed<300 Ȗ
:Z� swap=� � �19,12,16,tr,tg,tb,19,13,16,32,32,64 � �19,13,16,tr,tg,tb,19,12,16,32,32,64
D�
N:
X��init_sound
bȠ 1
lȡ 1,"Percussion-Snare"
v:
���init_cols
��128+15
��:�
�#�19,0,24,32,32,64     :� Border
��19,15,16,32,32,64    :� BG
�$�19,14,16,0,255,0     :� Options
�(�19,13,16,32,32,64    :� Left circle
�)�19,12,16,32,32,64    :� Right circle
�)�19,11,16,0,0,192     :� Speed colour
�(�19,10,16,192,255,192 :� Green/white
�'�19,9,16,192,192,255  :� Blue/white
�5r=144:g=80:b=80         :� R,G,B of circles (lit)
�?bigr=255:bigg=191:bigb=191:� R,G,B of big_beat circle (lit)
� A%=0 � 7
�19,A%,16,A%*32,A%*32,A%*32
�
 �
*:
4��main_screen
>�:�
H	�0,13
Rȏ Ȑ 192,512,160
\	�0,12
fȏ Ȑ 1088,512,160
pȗ �
z;�box(360,864,"Metronome by Matthew Astley",64,7):� 1000
�fast=59
�slow=59*2+6*16+2*32
�quit=59*3+12*16+4*32
�sync=59*4+16*16+6*32
�sp=59*5+20*16+8*32
�names=59*6+25*16+10*32
��box(fast,0,"Faster",32,14)
��box(slow,0,"Slower",32,14)
��box(quit,0,"Quit",32,14)
��box(sync,0,"Sync",32,14)
��box(sp,0,"Speed",32,14)
��box(names,0,"Names",32,14)
��
:
��check_click:� a,e,x,y

a=�(0)-48
$(� a>-1 � a<9 � big_beat=a:now_beat=1
.e=0
8� z>0 � ȗ x,y,z:�
B� z<0 �
Lȗ x,y,a
V� a=0 � e=0:p=0 � e=�:z+=1
`�
j� e � �
tȗ x,y,z
~� y>96 � z=0 p=0:�
�+� x>=sync � x<=sync+�len("Sync") time=0
�(� x>=sp � x<=sp+�len("Speed") �speed
�.� x>=names � x<=names+�len("Names") �names
�Y� x>=fast � x<=fast+�len("Faster") � speed<350 �set_speed(speed+1/(1-7*�(-2))):z=-500
�W� x>=slow � x<=slow+�len("Slower") � speed>1 �set_speed(speed-1/(1-7*�(-2))):z=-500
�(� x>=quit � x<=quit+�len("Quit") �:�
�� z=-500 � p=� � z=0 � p=�
��
�:
�ݤlen(A$):=16*�(A$)+64
�:
���speed
�:�0,10

� ȗ x,y,z:� z=0
ȗ �
�5,23,17,7,6,8;16|
(� 0,960
2S�"The program will now time ten clicks on the mouse and take the average speed"
<�0,9
F�23,17,7,6,16;8|
P� A%=1 � 10
Z� ȗ x,y,z:� z<>0
d� A%=1 a=�
n� A%=10 a=�-a
x�;A%
�� ȗ x,y,z:� z=0
��
��4,23,17,7,6,8;8|:�
�speed=9*6000/a
��main_screen
��set_speed(�(speed))
�� ȗ x,y,z:� z=0
�ȗ � 640,512
��
�:
�%��names:� A%,C%,D%,L%,M%,R%,O%,T%
��:�
�
�:� M%
D%=400:� A%=1 � M%
� A$,C%
L%=�(C%-speed)
"� L%<D% � C%<>-1 D%=L%
,�
6
�:� M%
@� C%=0 � 16
J� M%>9 O%=9 � O%=M%
T	M%-=9
^1� C%>0 col(C%)=col(C%-1)+L%*16+80 � col(C%)=0
hL%=0
r� O%>0 �
|� R%=0 � O%-1
�� A$,A%
�� �(A$)>L% L%=�(A$)
�T%=9
�� A%=-1 T%=7
�� �(A%-speed)=D% T%=10
�� A%=speed T%=11
�%�box(col(C%),896-112*R%,A$,32,T%)
��
��
�col(C%)=10000
��
��
��
ȗ x,y,z
� A%=0 � 15
'� x>=col(A%) � x<=col(A%+1) � C%=A%
&�
0R%=(1000-y)/112
:� z
D�
N� M%
X� C%*9+R%>=M% � �d~F
b� A%=0 � C%*9+R%
l� A$,L%
v�
�!� x-col(C%)>�len(A$) � � �d~F
��
��main_screen
��set_speed(L%)
�ȗ � 640,512
�� ȗ x,y,z:� z=0
��
�:
�� 16
�� Largissimo,40
�� Largo,50
�� Larghetto,60
�� Grave,65
� Adagio,70
� Adagietto,80
� Andante,90
 � Andantino,100
*� Moderato,115
4� Allegretto,130
>� Allegro,145
H� Vivace,160
R� Veloce,175
\� Presto,190
f� Prestissimo,210
p
� Quit,-1
�

00000000  0d 00 0a 19 f4 20 3e 20  24 2e 21 4d 65 74 72 6f  |..... > $.!Metro|
00000010  6e 6f 6d 65 2e 21 52 75  6e 0d 00 14 07 eb 31 32  |nome.!Run.....12|
00000020  0d 00 1e 0f 6e 6f 72 6d  5f 76 6f 6c 3d 31 30 0d  |....norm_vol=10.|
00000030  00 28 0e 62 69 67 5f 76  6f 6c 3d 31 35 0d 00 32  |.(.big_vol=15..2|
00000040  0e 62 69 67 5f 62 65 61  74 3d 30 0d 00 3c 0e 6e  |.big_beat=0..<.n|
00000050  6f 77 5f 62 65 61 74 3d  30 0d 00 46 0d de 20 63  |ow_beat=0..F.. c|
00000060  6f 6c 28 31 36 29 0d 00  50 0f f2 69 6e 69 74 5f  |ol(16)..P..init_|
00000070  73 6f 75 6e 64 0d 00 5a  0e f2 69 6e 69 74 5f 63  |sound..Z..init_c|
00000080  6f 6c 73 0d 00 64 10 f2  6d 61 69 6e 5f 73 63 72  |ols..d..main_scr|
00000090  65 65 6e 0d 00 6e 05 3a  0d 00 78 13 f2 73 65 74  |een..n.:..x..set|
000000a0  5f 73 70 65 65 64 28 31  32 30 29 0d 00 82 0a 74  |_speed(120)....t|
000000b0  69 6d 65 3d 30 0d 00 8c  07 7a 3d 30 0d 00 96 07  |ime=0....z=0....|
000000c0  70 3d 30 0d 00 a0 05 f5  0d 00 aa 10 f2 63 68 65  |p=0..........che|
000000d0  63 6b 5f 63 6c 69 63 6b  0d 00 b4 21 e7 20 91 2d  |ck_click...!. .-|
000000e0  74 69 6d 65 3e 3d 62 65  61 74 20 8c 20 74 69 6d  |time>=beat . tim|
000000f0  65 3d 91 3a f2 73 77 61  70 0d 00 be 07 fd 20 30  |e=.:.swap..... 0|
00000100  0d 00 c8 05 e0 0d 00 d2  05 3a 0d 00 dc 1b dd f2  |.........:......|
00000110  62 6f 78 28 78 2c 79 2c  74 24 2c 74 2c 63 29 3a  |box(x,y,t$,t,c):|
00000120  ea 20 61 2c 62 0d 00 e6  0d e3 20 62 3d 30 20 b8  |. a,b..... b=0 .|
00000130  20 37 0d 00 f0 0b 61 3d  62 2a 74 2f 37 0d 00 fa  | 7....a=b*t/7...|
00000140  0a e6 30 2c 37 2d 62 0d  01 04 2d c8 93 20 c8 90  |..0,7-b...-.. ..|
00000150  20 78 2b 61 2c 79 2b 61  2c 31 36 2a a9 28 74 24  | x+a,y+a,16*.(t$|
00000160  29 2b 32 2a 74 2d 32 2a  61 2c 33 32 2b 32 2a 74  |)+2*t-2*a,32+2*t|
00000170  2d 32 2a 61 0d 01 0e 05  ed 0d 01 18 08 e6 30 2c  |-2*a..........0,|
00000180  63 0d 01 22 1d ec 20 78  2b 74 2c 79 2b 33 32 2b  |c..".. x+t,y+32+|
00000190  74 3a f1 bd 35 3b 74 24  3b bd 34 3b 3a 87 0d 01  |t:..5;t$;.4;:...|
000001a0  2c 05 e1 0d 01 36 05 3a  0d 01 40 20 dd f2 73 65  |,....6.:..@ ..se|
000001b0  74 5f 73 70 65 65 64 28  61 29 3a ea 20 41 25 2c  |t_speed(a):. A%,|
000001c0  42 25 2c 41 24 2c 42 24  0d 01 4a 13 e7 20 61 3d  |B%,A$,B$..J.. a=|
000001d0  2d 31 20 8c 20 e5 20 8d  44 5e 41 0d 01 54 0b 73  |-1 . . .D^A..T.s|
000001e0  70 65 65 64 3d 61 0d 01  5e 23 ef 32 33 2c 31 37  |peed=a..^#.23,17|
000001f0  2c 37 2c 36 2c 32 34 30  2f a9 28 c3 28 73 70 65  |,7,6,240/.(.(spe|
00000200  65 64 29 29 3b 31 30 32  7c 0d 01 68 12 e7 20 73  |ed));102|..h.. s|
00000210  70 65 65 64 3c 33 30 30  20 c8 96 0d 01 72 1f e6  |peed<300 ....r..|
00000220  30 2c 31 35 3a c8 93 20  c8 90 20 33 36 30 2c 31  |0,15:.. .. 360,1|
00000230  31 32 2c 35 36 30 2c 36  37 35 0d 01 7c 13 ec 20  |12,560,675..|.. |
00000240  34 30 30 2c 37 30 34 3a  e6 30 2c 31 31 0d 01 86  |400,704:.0,11...|
00000250  0d f1 bd 35 3b 73 70 65  65 64 0d 01 90 05 f7 0d  |...5;speed......|
00000260  01 9a 14 f3 20 41 25 3a  e3 20 42 25 3d 31 20 b8  |.... A%:. B%=1 .|
00000270  20 41 25 0d 01 a4 1e f3  20 41 24 2c 41 25 3a e7  | A%..... A$,A%:.|
00000280  20 41 25 3d 73 70 65 65  64 20 8c 20 42 24 3d 41  | A%=speed . B$=A|
00000290  24 0d 01 ae 05 ed 0d 01  b8 14 ef 32 33 2c 31 37  |$..........23,17|
000002a0  2c 37 2c 36 2c 32 34 3b  38 7c 0d 01 c2 08 e6 30  |,7,6,24;8|.....0|
000002b0  2c 39 0d 01 cc 21 ec 20  36 34 30 2d 32 34 2a a9  |,9...!. 640-24*.|
000002c0  28 42 24 29 2c 32 30 38  3a f1 3b 42 24 3b bd 34  |(B$),208:.;B$;.4|
000002d0  3b 3a 87 0d 01 d6 13 62  65 61 74 3d 36 30 30 30  |;:.....beat=6000|
000002e0  2f 73 70 65 65 64 0d 01  e0 13 ef 32 33 2c 31 37  |/speed.....23,17|
000002f0  2c 37 2c 36 2c 38 3b 38  7c 0d 01 ea 05 e1 0d 01  |,7,6,8;8|.......|
00000300  f4 05 3a 0d 01 fe 0a dd  f2 73 77 61 70 0d 02 08  |..:......swap...|
00000310  0f 73 77 61 70 3d ac 20  73 77 61 70 0d 02 12 13  |.swap=. swap....|
00000320  c8 a2 20 31 2c 32 35 2b  35 30 2a 73 77 61 70 0d  |.. 1,25+50*swap.|
00000330  02 1c 12 74 72 3d 72 3a  74 67 3d 67 3a 74 62 3d  |...tr=r:tg=g:tb=|
00000340  62 0d 02 26 7c e7 20 6e  6f 77 5f 62 65 61 74 3c  |b..&|. now_beat<|
00000350  62 69 67 5f 62 65 61 74  20 84 20 62 69 67 5f 62  |big_beat . big_b|
00000360  65 61 74 3d 30 20 8c 20  d4 20 31 2c 2d 6e 6f 72  |eat=0 . . 1,-nor|
00000370  6d 5f 76 6f 6c 2c 35 33  2c 35 3a 6e 6f 77 5f 62  |m_vol,53,5:now_b|
00000380  65 61 74 2b 3d 31 20 8b  20 d4 20 31 2c 2d 62 69  |eat+=1 . . 1,-bi|
00000390  67 5f 76 6f 6c 2c 35 33  2c 35 3a 6e 6f 77 5f 62  |g_vol,53,5:now_b|
000003a0  65 61 74 3d 31 3a 74 72  3d 62 69 67 72 3a 74 67  |eat=1:tr=bigr:tg|
000003b0  3d 62 69 67 67 3a 74 62  3d 62 69 67 62 0d 02 30  |=bigg:tb=bigb..0|
000003c0  12 e7 20 73 70 65 65 64  3c 33 30 30 20 c8 96 0d  |.. speed<300 ...|
000003d0  02 3a 5a e7 20 73 77 61  70 3d a3 20 8c 20 ef 31  |.:Z. swap=. . .1|
000003e0  39 2c 31 32 2c 31 36 2c  74 72 2c 74 67 2c 74 62  |9,12,16,tr,tg,tb|
000003f0  2c 31 39 2c 31 33 2c 31  36 2c 33 32 2c 33 32 2c  |,19,13,16,32,32,|
00000400  36 34 20 8b 20 ef 31 39  2c 31 33 2c 31 36 2c 74  |64 . .19,13,16,t|
00000410  72 2c 74 67 2c 74 62 2c  31 39 2c 31 32 2c 31 36  |r,tg,tb,19,12,16|
00000420  2c 33 32 2c 33 32 2c 36  34 0d 02 44 05 e1 0d 02  |,32,32,64..D....|
00000430  4e 05 3a 0d 02 58 10 dd  f2 69 6e 69 74 5f 73 6f  |N.:..X...init_so|
00000440  75 6e 64 0d 02 62 08 c8  a0 20 31 0d 02 6c 1b c8  |und..b... 1..l..|
00000450  a1 20 31 2c 22 50 65 72  63 75 73 73 69 6f 6e 2d  |. 1,"Percussion-|
00000460  53 6e 61 72 65 22 0d 02  76 05 3a 0d 02 80 0f dd  |Snare"..v.:.....|
00000470  f2 69 6e 69 74 5f 63 6f  6c 73 0d 02 8a 0b fb 31  |.init_cols.....1|
00000480  32 38 2b 31 35 0d 02 94  07 db 3a 87 0d 02 9e 23  |28+15.....:....#|
00000490  ef 31 39 2c 30 2c 32 34  2c 33 32 2c 33 32 2c 36  |.19,0,24,32,32,6|
000004a0  34 20 20 20 20 20 3a f4  20 42 6f 72 64 65 72 0d  |4     :. Border.|
000004b0  02 a8 1f ef 31 39 2c 31  35 2c 31 36 2c 33 32 2c  |....19,15,16,32,|
000004c0  33 32 2c 36 34 20 20 20  20 3a f4 20 42 47 0d 02  |32,64    :. BG..|
000004d0  b2 24 ef 31 39 2c 31 34  2c 31 36 2c 30 2c 32 35  |.$.19,14,16,0,25|
000004e0  35 2c 30 20 20 20 20 20  3a f4 20 4f 70 74 69 6f  |5,0     :. Optio|
000004f0  6e 73 0d 02 bc 28 ef 31  39 2c 31 33 2c 31 36 2c  |ns...(.19,13,16,|
00000500  33 32 2c 33 32 2c 36 34  20 20 20 20 3a f4 20 4c  |32,32,64    :. L|
00000510  65 66 74 20 63 69 72 63  6c 65 0d 02 c6 29 ef 31  |eft circle...).1|
00000520  39 2c 31 32 2c 31 36 2c  33 32 2c 33 32 2c 36 34  |9,12,16,32,32,64|
00000530  20 20 20 20 3a f4 20 52  69 67 68 74 20 63 69 72  |    :. Right cir|
00000540  63 6c 65 0d 02 d0 29 ef  31 39 2c 31 31 2c 31 36  |cle...).19,11,16|
00000550  2c 30 2c 30 2c 31 39 32  20 20 20 20 20 3a f4 20  |,0,0,192     :. |
00000560  53 70 65 65 64 20 63 6f  6c 6f 75 72 0d 02 da 28  |Speed colour...(|
00000570  ef 31 39 2c 31 30 2c 31  36 2c 31 39 32 2c 32 35  |.19,10,16,192,25|
00000580  35 2c 31 39 32 20 3a f4  20 47 72 65 65 6e 2f 77  |5,192 :. Green/w|
00000590  68 69 74 65 0d 02 e4 27  ef 31 39 2c 39 2c 31 36  |hite...'.19,9,16|
000005a0  2c 31 39 32 2c 31 39 32  2c 32 35 35 20 20 3a f4  |,192,192,255  :.|
000005b0  20 42 6c 75 65 2f 77 68  69 74 65 0d 02 ee 35 72  | Blue/white...5r|
000005c0  3d 31 34 34 3a 67 3d 38  30 3a 62 3d 38 30 20 20  |=144:g=80:b=80  |
000005d0  20 20 20 20 20 20 20 3a  f4 20 52 2c 47 2c 42 20  |       :. R,G,B |
000005e0  6f 66 20 63 69 72 63 6c  65 73 20 28 6c 69 74 29  |of circles (lit)|
000005f0  0d 02 f8 3f 62 69 67 72  3d 32 35 35 3a 62 69 67  |...?bigr=255:big|
00000600  67 3d 31 39 31 3a 62 69  67 62 3d 31 39 31 3a f4  |g=191:bigb=191:.|
00000610  20 52 2c 47 2c 42 20 6f  66 20 62 69 67 5f 62 65  | R,G,B of big_be|
00000620  61 74 20 63 69 72 63 6c  65 20 28 6c 69 74 29 0d  |at circle (lit).|
00000630  03 02 0e e3 20 41 25 3d  30 20 b8 20 37 0d 03 0c  |.... A%=0 . 7...|
00000640  1f ef 31 39 2c 41 25 2c  31 36 2c 41 25 2a 33 32  |..19,A%,16,A%*32|
00000650  2c 41 25 2a 33 32 2c 41  25 2a 33 32 0d 03 16 05  |,A%*32,A%*32....|
00000660  ed 0d 03 20 05 e1 0d 03  2a 05 3a 0d 03 34 11 dd  |... ....*.:..4..|
00000670  f2 6d 61 69 6e 5f 73 63  72 65 65 6e 0d 03 3e 07  |.main_screen..>.|
00000680  db 3a 87 0d 03 48 09 e6  30 2c 31 33 0d 03 52 15  |.:...H..0,13..R.|
00000690  c8 8f 20 c8 90 20 31 39  32 2c 35 31 32 2c 31 36  |.. .. 192,512,16|
000006a0  30 0d 03 5c 09 e6 30 2c  31 32 0d 03 66 16 c8 8f  |0..\..0,12..f...|
000006b0  20 c8 90 20 31 30 38 38  2c 35 31 32 2c 31 36 30  | .. 1088,512,160|
000006c0  0d 03 70 08 c8 97 20 ee  0d 03 7a 3b f2 62 6f 78  |..p... ...z;.box|
000006d0  28 33 36 30 2c 38 36 34  2c 22 4d 65 74 72 6f 6e  |(360,864,"Metron|
000006e0  6f 6d 65 20 62 79 20 4d  61 74 74 68 65 77 20 41  |ome by Matthew A|
000006f0  73 74 6c 65 79 22 2c 36  34 2c 37 29 3a f4 20 31  |stley",64,7):. 1|
00000700  30 30 30 0d 03 84 0b 66  61 73 74 3d 35 39 0d 03  |000....fast=59..|
00000710  8e 17 73 6c 6f 77 3d 35  39 2a 32 2b 36 2a 31 36  |..slow=59*2+6*16|
00000720  2b 32 2a 33 32 0d 03 98  18 71 75 69 74 3d 35 39  |+2*32....quit=59|
00000730  2a 33 2b 31 32 2a 31 36  2b 34 2a 33 32 0d 03 a2  |*3+12*16+4*32...|
00000740  18 73 79 6e 63 3d 35 39  2a 34 2b 31 36 2a 31 36  |.sync=59*4+16*16|
00000750  2b 36 2a 33 32 0d 03 ac  16 73 70 3d 35 39 2a 35  |+6*32....sp=59*5|
00000760  2b 32 30 2a 31 36 2b 38  2a 33 32 0d 03 b6 1a 6e  |+20*16+8*32....n|
00000770  61 6d 65 73 3d 35 39 2a  36 2b 32 35 2a 31 36 2b  |ames=59*6+25*16+|
00000780  31 30 2a 33 32 0d 03 c0  1f f2 62 6f 78 28 66 61  |10*32.....box(fa|
00000790  73 74 2c 30 2c 22 46 61  73 74 65 72 22 2c 33 32  |st,0,"Faster",32|
000007a0  2c 31 34 29 0d 03 ca 1f  f2 62 6f 78 28 73 6c 6f  |,14).....box(slo|
000007b0  77 2c 30 2c 22 53 6c 6f  77 65 72 22 2c 33 32 2c  |w,0,"Slower",32,|
000007c0  31 34 29 0d 03 d4 1d f2  62 6f 78 28 71 75 69 74  |14).....box(quit|
000007d0  2c 30 2c 22 51 75 69 74  22 2c 33 32 2c 31 34 29  |,0,"Quit",32,14)|
000007e0  0d 03 de 1d f2 62 6f 78  28 73 79 6e 63 2c 30 2c  |.....box(sync,0,|
000007f0  22 53 79 6e 63 22 2c 33  32 2c 31 34 29 0d 03 e8  |"Sync",32,14)...|
00000800  1c f2 62 6f 78 28 73 70  2c 30 2c 22 53 70 65 65  |..box(sp,0,"Spee|
00000810  64 22 2c 33 32 2c 31 34  29 0d 03 f2 1f f2 62 6f  |d",32,14).....bo|
00000820  78 28 6e 61 6d 65 73 2c  30 2c 22 4e 61 6d 65 73  |x(names,0,"Names|
00000830  22 2c 33 32 2c 31 34 29  0d 03 fc 05 e1 0d 04 06  |",32,14)........|
00000840  05 3a 0d 04 10 1b dd f2  63 68 65 63 6b 5f 63 6c  |.:......check_cl|
00000850  69 63 6b 3a ea 20 61 2c  65 2c 78 2c 79 0d 04 1a  |ick:. a,e,x,y...|
00000860  0d 61 3d a6 28 30 29 2d  34 38 0d 04 24 28 e7 20  |.a=.(0)-48..$(. |
00000870  61 3e 2d 31 20 80 20 61  3c 39 20 8c 20 62 69 67  |a>-1 . a<9 . big|
00000880  5f 62 65 61 74 3d 61 3a  6e 6f 77 5f 62 65 61 74  |_beat=a:now_beat|
00000890  3d 31 0d 04 2e 07 65 3d  30 0d 04 38 16 e7 20 7a  |=1....e=0..8.. z|
000008a0  3e 30 20 8c 20 c8 97 20  78 2c 79 2c 7a 3a e1 0d  |>0 . .. x,y,z:..|
000008b0  04 42 0b e7 20 7a 3c 30  20 8c 0d 04 4c 0c c8 97  |.B.. z<0 ...L...|
000008c0  20 78 2c 79 2c 61 0d 04  56 1e e7 20 61 3d 30 20  | x,y,a..V.. a=0 |
000008d0  8c 20 65 3d 30 3a 70 3d  30 20 8b 20 65 3d b9 3a  |. e=0:p=0 . e=.:|
000008e0  7a 2b 3d 31 0d 04 60 05  cd 0d 04 6a 0b e7 20 65  |z+=1..`....j.. e|
000008f0  20 8c 20 e1 0d 04 74 0c  c8 97 20 78 2c 79 2c 7a  | . ...t... x,y,z|
00000900  0d 04 7e 16 e7 20 79 3e  39 36 20 84 20 7a 3d 30  |..~.. y>96 . z=0|
00000910  20 70 3d 30 3a e1 0d 04  88 2b e7 20 78 3e 3d 73  | p=0:....+. x>=s|
00000920  79 6e 63 20 80 20 78 3c  3d 73 79 6e 63 2b a4 6c  |ync . x<=sync+.l|
00000930  65 6e 28 22 53 79 6e 63  22 29 20 74 69 6d 65 3d  |en("Sync") time=|
00000940  30 0d 04 92 28 e7 20 78  3e 3d 73 70 20 80 20 78  |0...(. x>=sp . x|
00000950  3c 3d 73 70 2b a4 6c 65  6e 28 22 53 70 65 65 64  |<=sp+.len("Speed|
00000960  22 29 20 f2 73 70 65 65  64 0d 04 9c 2e e7 20 78  |") .speed..... x|
00000970  3e 3d 6e 61 6d 65 73 20  80 20 78 3c 3d 6e 61 6d  |>=names . x<=nam|
00000980  65 73 2b a4 6c 65 6e 28  22 4e 61 6d 65 73 22 29  |es+.len("Names")|
00000990  20 f2 6e 61 6d 65 73 0d  04 a6 59 e7 20 78 3e 3d  | .names...Y. x>=|
000009a0  66 61 73 74 20 80 20 78  3c 3d 66 61 73 74 2b a4  |fast . x<=fast+.|
000009b0  6c 65 6e 28 22 46 61 73  74 65 72 22 29 20 80 20  |len("Faster") . |
000009c0  73 70 65 65 64 3c 33 35  30 20 f2 73 65 74 5f 73  |speed<350 .set_s|
000009d0  70 65 65 64 28 73 70 65  65 64 2b 31 2f 28 31 2d  |peed(speed+1/(1-|
000009e0  37 2a a6 28 2d 32 29 29  29 3a 7a 3d 2d 35 30 30  |7*.(-2))):z=-500|
000009f0  0d 04 b0 57 e7 20 78 3e  3d 73 6c 6f 77 20 80 20  |...W. x>=slow . |
00000a00  78 3c 3d 73 6c 6f 77 2b  a4 6c 65 6e 28 22 53 6c  |x<=slow+.len("Sl|
00000a10  6f 77 65 72 22 29 20 80  20 73 70 65 65 64 3e 31  |ower") . speed>1|
00000a20  20 f2 73 65 74 5f 73 70  65 65 64 28 73 70 65 65  | .set_speed(spee|
00000a30  64 2d 31 2f 28 31 2d 37  2a a6 28 2d 32 29 29 29  |d-1/(1-7*.(-2)))|
00000a40  3a 7a 3d 2d 35 30 30 0d  04 ba 28 e7 20 78 3e 3d  |:z=-500...(. x>=|
00000a50  71 75 69 74 20 80 20 78  3c 3d 71 75 69 74 2b a4  |quit . x<=quit+.|
00000a60  6c 65 6e 28 22 51 75 69  74 22 29 20 db 3a e0 0d  |len("Quit") .:..|
00000a70  04 c4 1e e7 20 7a 3d 2d  35 30 30 20 80 20 70 3d  |.... z=-500 . p=|
00000a80  b9 20 8c 20 7a 3d 30 20  8b 20 70 3d b9 0d 04 ce  |. . z=0 . p=....|
00000a90  05 e1 0d 04 d8 05 3a 0d  04 e2 1a dd a4 6c 65 6e  |......:......len|
00000aa0  28 41 24 29 3a 3d 31 36  2a a9 28 41 24 29 2b 36  |(A$):=16*.(A$)+6|
00000ab0  34 0d 04 ec 05 3a 0d 04  f6 0b dd f2 73 70 65 65  |4....:......spee|
00000ac0  64 0d 05 00 0b db 3a e6  30 2c 31 30 0d 05 0a 14  |d.....:.0,10....|
00000ad0  f5 20 c8 97 20 78 2c 79  2c 7a 3a fd 20 7a 3d 30  |. .. x,y,z:. z=0|
00000ae0  0d 05 14 08 c8 97 20 87  0d 05 1e 16 ef 35 2c 32  |...... ......5,2|
00000af0  33 2c 31 37 2c 37 2c 36  2c 38 3b 31 36 7c 0d 05  |3,17,7,6,8;16|..|
00000b00  28 0b ec 20 30 2c 39 36  30 0d 05 32 53 f1 22 54  |(.. 0,960..2S."T|
00000b10  68 65 20 70 72 6f 67 72  61 6d 20 77 69 6c 6c 20  |he program will |
00000b20  6e 6f 77 20 74 69 6d 65  20 74 65 6e 20 63 6c 69  |now time ten cli|
00000b30  63 6b 73 20 6f 6e 20 74  68 65 20 6d 6f 75 73 65  |cks on the mouse|
00000b40  20 61 6e 64 20 74 61 6b  65 20 74 68 65 20 61 76  | and take the av|
00000b50  65 72 61 67 65 20 73 70  65 65 64 22 0d 05 3c 08  |erage speed"..<.|
00000b60  e6 30 2c 39 0d 05 46 14  ef 32 33 2c 31 37 2c 37  |.0,9..F..23,17,7|
00000b70  2c 36 2c 31 36 3b 38 7c  0d 05 50 0f e3 20 41 25  |,6,16;8|..P.. A%|
00000b80  3d 31 20 b8 20 31 30 0d  05 5a 15 f5 20 c8 97 20  |=1 . 10..Z.. .. |
00000b90  78 2c 79 2c 7a 3a fd 20  7a 3c 3e 30 0d 05 64 0e  |x,y,z:. z<>0..d.|
00000ba0  e7 20 41 25 3d 31 20 61  3d 91 0d 05 6e 11 e7 20  |. A%=1 a=...n.. |
00000bb0  41 25 3d 31 30 20 61 3d  91 2d 61 0d 05 78 08 f1  |A%=10 a=.-a..x..|
00000bc0  3b 41 25 0d 05 82 14 f5  20 c8 97 20 78 2c 79 2c  |;A%..... .. x,y,|
00000bd0  7a 3a fd 20 7a 3d 30 0d  05 8c 05 ed 0d 05 96 17  |z:. z=0.........|
00000be0  ef 34 2c 32 33 2c 31 37  2c 37 2c 36 2c 38 3b 38  |.4,23,17,7,6,8;8|
00000bf0  7c 3a 87 0d 05 a0 12 73  70 65 65 64 3d 39 2a 36  ||:.....speed=9*6|
00000c00  30 30 30 2f 61 0d 05 aa  10 f2 6d 61 69 6e 5f 73  |000/a.....main_s|
00000c10  63 72 65 65 6e 0d 05 b4  18 f2 73 65 74 5f 73 70  |creen.....set_sp|
00000c20  65 65 64 28 a8 28 73 70  65 65 64 29 29 0d 05 be  |eed(.(speed))...|
00000c30  14 f5 20 c8 97 20 78 2c  79 2c 7a 3a fd 20 7a 3d  |.. .. x,y,z:. z=|
00000c40  30 0d 05 c8 10 c8 97 20  b8 20 36 34 30 2c 35 31  |0...... . 640,51|
00000c50  32 0d 05 d2 05 e1 0d 05  dc 05 3a 0d 05 e6 25 dd  |2.........:...%.|
00000c60  f2 6e 61 6d 65 73 3a ea  20 41 25 2c 43 25 2c 44  |.names:. A%,C%,D|
00000c70  25 2c 4c 25 2c 4d 25 2c  52 25 2c 4f 25 2c 54 25  |%,L%,M%,R%,O%,T%|
00000c80  0d 05 f0 07 db 3a 87 0d  05 fa 0a f7 3a f3 20 4d  |.....:......:. M|
00000c90  25 0d 06 04 16 44 25 3d  34 30 30 3a e3 20 41 25  |%....D%=400:. A%|
00000ca0  3d 31 20 b8 20 4d 25 0d  06 0e 0b f3 20 41 24 2c  |=1 . M%..... A$,|
00000cb0  43 25 0d 06 18 12 4c 25  3d 94 28 43 25 2d 73 70  |C%....L%=.(C%-sp|
00000cc0  65 65 64 29 0d 06 22 1a  e7 20 4c 25 3c 44 25 20  |eed)..".. L%<D% |
00000cd0  80 20 43 25 3c 3e 2d 31  20 44 25 3d 4c 25 0d 06  |. C%<>-1 D%=L%..|
00000ce0  2c 05 ed 0d 06 36 0a f7  3a f3 20 4d 25 0d 06 40  |,....6..:. M%..@|
00000cf0  0f e3 20 43 25 3d 30 20  b8 20 31 36 0d 06 4a 17  |.. C%=0 . 16..J.|
00000d00  e7 20 4d 25 3e 39 20 4f  25 3d 39 20 8b 20 4f 25  |. M%>9 O%=9 . O%|
00000d10  3d 4d 25 0d 06 54 09 4d  25 2d 3d 39 0d 06 5e 31  |=M%..T.M%-=9..^1|
00000d20  e7 20 43 25 3e 30 20 63  6f 6c 28 43 25 29 3d 63  |. C%>0 col(C%)=c|
00000d30  6f 6c 28 43 25 2d 31 29  2b 4c 25 2a 31 36 2b 38  |ol(C%-1)+L%*16+8|
00000d40  30 20 8b 20 63 6f 6c 28  43 25 29 3d 30 0d 06 68  |0 . col(C%)=0..h|
00000d50  08 4c 25 3d 30 0d 06 72  0c e7 20 4f 25 3e 30 20  |.L%=0..r.. O%>0 |
00000d60  8c 0d 06 7c 11 e3 20 52  25 3d 30 20 b8 20 4f 25  |...|.. R%=0 . O%|
00000d70  2d 31 0d 06 86 0b f3 20  41 24 2c 41 25 0d 06 90  |-1..... A$,A%...|
00000d80  17 e7 20 a9 28 41 24 29  3e 4c 25 20 4c 25 3d a9  |.. .(A$)>L% L%=.|
00000d90  28 41 24 29 0d 06 9a 08  54 25 3d 39 0d 06 a4 10  |(A$)....T%=9....|
00000da0  e7 20 41 25 3d 2d 31 20  54 25 3d 37 0d 06 ae 1a  |. A%=-1 T%=7....|
00000db0  e7 20 94 28 41 25 2d 73  70 65 65 64 29 3d 44 25  |. .(A%-speed)=D%|
00000dc0  20 54 25 3d 31 30 0d 06  b8 14 e7 20 41 25 3d 73  | T%=10..... A%=s|
00000dd0  70 65 65 64 20 54 25 3d  31 31 0d 06 c2 25 f2 62  |peed T%=11...%.b|
00000de0  6f 78 28 63 6f 6c 28 43  25 29 2c 38 39 36 2d 31  |ox(col(C%),896-1|
00000df0  31 32 2a 52 25 2c 41 24  2c 33 32 2c 54 25 29 0d  |12*R%,A$,32,T%).|
00000e00  06 cc 05 ed 0d 06 d6 05  cc 0d 06 e0 11 63 6f 6c  |.............col|
00000e10  28 43 25 29 3d 31 30 30  30 30 0d 06 ea 05 cd 0d  |(C%)=10000......|
00000e20  06 f4 05 ed 0d 06 fe 05  f5 0d 07 08 0c c8 97 20  |............... |
00000e30  78 2c 79 2c 7a 0d 07 12  0f e3 20 41 25 3d 30 20  |x,y,z..... A%=0 |
00000e40  b8 20 31 35 0d 07 1c 27  e7 20 78 3e 3d 63 6f 6c  |. 15...'. x>=col|
00000e50  28 41 25 29 20 80 20 78  3c 3d 63 6f 6c 28 41 25  |(A%) . x<=col(A%|
00000e60  2b 31 29 20 8c 20 43 25  3d 41 25 0d 07 26 05 ed  |+1) . C%=A%..&..|
00000e70  0d 07 30 13 52 25 3d 28  31 30 30 30 2d 79 29 2f  |..0.R%=(1000-y)/|
00000e80  31 31 32 0d 07 3a 07 fd  20 7a 0d 07 44 05 f7 0d  |112..:.. z..D...|
00000e90  07 4e 08 f3 20 4d 25 0d  07 58 18 e7 20 43 25 2a  |.N.. M%..X.. C%*|
00000ea0  39 2b 52 25 3e 3d 4d 25  20 e5 20 8d 64 7e 46 0d  |9+R%>=M% . .d~F.|
00000eb0  07 62 14 e3 20 41 25 3d  30 20 b8 20 43 25 2a 39  |.b.. A%=0 . C%*9|
00000ec0  2b 52 25 0d 07 6c 0b f3  20 41 24 2c 4c 25 0d 07  |+R%..l.. A$,L%..|
00000ed0  76 05 ed 0d 07 80 21 e7  20 78 2d 63 6f 6c 28 43  |v.....!. x-col(C|
00000ee0  25 29 3e a4 6c 65 6e 28  41 24 29 20 8c 20 e5 20  |%)>.len(A$) . . |
00000ef0  8d 64 7e 46 0d 07 8a 05  db 0d 07 94 10 f2 6d 61  |.d~F..........ma|
00000f00  69 6e 5f 73 63 72 65 65  6e 0d 07 9e 12 f2 73 65  |in_screen.....se|
00000f10  74 5f 73 70 65 65 64 28  4c 25 29 0d 07 a8 10 c8  |t_speed(L%).....|
00000f20  97 20 b8 20 36 34 30 2c  35 31 32 0d 07 b2 14 f5  |. . 640,512.....|
00000f30  20 c8 97 20 78 2c 79 2c  7a 3a fd 20 7a 3d 30 0d  | .. x,y,z:. z=0.|
00000f40  07 bc 05 e1 0d 07 c6 05  3a 0d 07 d0 08 dc 20 31  |........:..... 1|
00000f50  36 0d 07 da 13 dc 20 4c  61 72 67 69 73 73 69 6d  |6..... Largissim|
00000f60  6f 2c 34 30 0d 07 e4 0e  dc 20 4c 61 72 67 6f 2c  |o,40..... Largo,|
00000f70  35 30 0d 07 ee 12 dc 20  4c 61 72 67 68 65 74 74  |50..... Larghett|
00000f80  6f 2c 36 30 0d 07 f8 0e  dc 20 47 72 61 76 65 2c  |o,60..... Grave,|
00000f90  36 35 0d 08 02 0f dc 20  41 64 61 67 69 6f 2c 37  |65..... Adagio,7|
00000fa0  30 0d 08 0c 12 dc 20 41  64 61 67 69 65 74 74 6f  |0..... Adagietto|
00000fb0  2c 38 30 0d 08 16 10 dc  20 41 6e 64 61 6e 74 65  |,80..... Andante|
00000fc0  2c 39 30 0d 08 20 13 dc  20 41 6e 64 61 6e 74 69  |,90.. .. Andanti|
00000fd0  6e 6f 2c 31 30 30 0d 08  2a 12 dc 20 4d 6f 64 65  |no,100..*.. Mode|
00000fe0  72 61 74 6f 2c 31 31 35  0d 08 34 14 dc 20 41 6c  |rato,115..4.. Al|
00000ff0  6c 65 67 72 65 74 74 6f  2c 31 33 30 0d 08 3e 11  |legretto,130..>.|
00001000  dc 20 41 6c 6c 65 67 72  6f 2c 31 34 35 0d 08 48  |. Allegro,145..H|
00001010  10 dc 20 56 69 76 61 63  65 2c 31 36 30 0d 08 52  |.. Vivace,160..R|
00001020  10 dc 20 56 65 6c 6f 63  65 2c 31 37 35 0d 08 5c  |.. Veloce,175..\|
00001030  10 dc 20 50 72 65 73 74  6f 2c 31 39 30 0d 08 66  |.. Presto,190..f|
00001040  15 dc 20 50 72 65 73 74  69 73 73 69 6d 6f 2c 32  |.. Prestissimo,2|
00001050  31 30 0d 08 70 0d dc 20  51 75 69 74 2c 2d 31 0d  |10..p.. Quit,-1.|
00001060  ff                                                |.|
00001061