�"�==DRUMKIT
+�1,1,-1,0,0,2,20,20,126,-2,-6,-6,126,0 
2�2,129,50,-90,20,20,20,20,126,-6,-12,-12,105,0
(�"�==SNARE SOUND0,-15,4,1
2�"�==HI HAT SOUND2,2,191,1
<�"�==BASS SOUND1,1,2,1
F3�d$(3):d$(1)="HiHAT":d$(2)="SNARE":d$(3)="BASS"
P
�w%(3)
Z
�S%(16,3)
d
�R$(1)
nR$(0)="OFF":R$(1)="ON "
x�1
��23;8202;0;0;0;
��19,3,5;0;
��screen
�	�init
��example
��
��
�	�keys
�
��-101
��bar
��0
��
��"�==SCREEN

��screen

�0,3

:�I%=772�792�8:�240,I%:�1,1024,0:�240,I%-64:�1,1024,0:�

"�0,2

,�0,1000:�1,1280,0

6�0,922:�1,1280,0

@)�0,576:�1,1280,0:�0,96:�1,1280,0:�0,3

J�I%=836�708�-64

T�240,I%:�1,1024,0

^�240,I%-40:�1,1024,0

h�

r�I%=240�1280�64

|�I%,836:�1,0,-168

��

�
X%=2:Y%=6

��X%,Y%)"HiHAT"

��X%,Y%+2)"SNARE"

��X%,Y%+4)"BASS"

��2:�I%=1�3:�0,I%*2+4);I%:�

�	g%=16

�&�1:�2,g%-1)"  ZX?* = MOVE CURSOR"

�(�2,g%)"RETURN = FIX NOTE/STOP PLAY"

�"�2,g%+1)" SPACE = UNFIX NOTE"

�"�2:�2,g%+2)"     P = PLAY":�1

�#�2,g%+3)"   < > = ALTER SPEED"

�%�2,g%+4)"     R = REPEAT on/off"
�2:�2,g%+5)"     L = LOAD"
�2,g%+6)"     S = SAVE"
9�1:�I%=1�3:�7,g%+6+I%);I%;" = TURN ON/OFF ";d$(I%):�
&#�2,g%+10)"   TAB = ERASE LINE"
0:�2:�2,g%+11)"     B = BAR LENGTH (Z,X RETURN & P)":�1
:�I%=1�4
D�X%-2+I%*8,Y%-2);I%;"   +"
N�
XX=6
b�I%=1�16
l�I%�2=0�130:��128
v�X+I%*2,12);I%
��
��128
��
�
�"�==INIT
�
��init
�speed%=170
�	M%=64
�	N%=64
�R%=0
�w%(1)=1:w%(2)=1:w%(3)=1
�bar%=16
�by%=832
��I%=1�16
�J%=1�3
S%(I%,J%)=0
�:�
 A$="[]"
*
B$="*"
4�5
>
X%=256
H
Y%=828
R�3,1
\�X%-16,Y%:�A$
fA%=1
pB%=1
z�"�GOSUB5000
��3:�t~J
�	�dHJ
�	�tBJ
��
�
�"�==KEYS
�
��keys
��-103�speed(5)
��-104�speed(-5)
�
�-52�rep
��-98�m(-M%,0,-1,0)
��-67�m(M%,0,1,0)
��-73�m(0,N%,0,-1)
��-105�m(0,-N%,0,1)

�-74�fix
�-99�unfix
�-56�play
$�-82�save
.�-87�load
8�-49�w(1)
B�-50�w(2)
L�-18�w(3)
V�-97�clear
`�zz=1�70:�
j�
t
�"�==MOVE
~��m(x%,y%,a%,b%)
��X%+x%<256�X%+x%>1216�
��Y%+y%<700�Y%+y%>828�
�"A%=A%+a%:B%=B%+b%:�"�GOSUB5000
��3,1
��X%-16,Y%:�A$
�X%=X%+x%:Y%=Y%+y%
��X%-16,Y%:�A$
��
��"�==FIX
�	��fix
��3,1
��X%-16,Y%:�A$
�0,2

�X%,Y%:�B$
�3,1
�X%-16,Y%:�A$
(S%(A%,B%)=1
2�
<�"�==UNFIX
F��unfix
P�0,0:�X%,Y%:�B$
Z�3,1
d�X%-16,Y%:�A$
n�0,0:�X%,Y%:�B$
x�3,1
��X%-16,Y%:�A$
�S%(A%,B%)=0
��
�
�"�==PLAY
�
��play
�oldR%=R%
��
�e%=256:f%=860
��I%=1�bar%
��R%=2R%=0:�D^F
��0,2:�e%,f%:�"^"
�,�S%(I%,1)=1�w%(1)=1�2,2,191,1 � �2,0,0,1
�,�S%(I%,2)=1�w%(2)=1�0,-15,4,1 � �0,0,0,1
*�S%(I%,3)=1�w%(3)=1�1,1,2,1 � �1,0,0,1

�-74R%=2
�-103�speed(5)
"�-104�speed(-5)
,�-49�w(1)
6�-50�w(2)
@�-18�w(3)
J�T=1�speed%:�
T�0,0:�e%,f%:�"^":e%=e%+64
^�
h	�R%=0
rR%=oldR%:�dHJ
|�
��"�==SPEED
���speed(s%)
�speed%=speed%+s%
�	�t~J
��t=1�5:�
��
��"�==REPEAT BAR
�	��rep
�	*FX15
��R%=0R%=1:�dHJ:�
��R%=1R%=0:�dHJ:�
��
�
�"�==SAVE

��save
	*FX15
"�4:�14,1)�20:�14,1)"SAVE:"f$
&	f=�f$
0�I%=1�16
:�J%=1�3
D�#f,S%(I%,J%)
N�:�
X�#f,bar%
b�#f
l�5
v�
�
�"�==LOAD
�
��load
�	*FX15
�"�4:�14,1)�20:�14,1)"LOAD:"f$
�	�tBJ
�	f=�f$
��I%=1�16
��J%=1�3
��#f,S%(I%,J%)
��:�
��#f,bar%
��#f
��drawit
�
�"�==DRAWIT
��drawit
 �5:�3,1:�X%-16,Y%:�A$
*�4
4�J%=6�10�2
>�I%=8�38�2
H�I%,J%)" "
R
�:�:�5
\U%=256:V%=828:�0,2
f�I%=1�16
p�S%(I%,1)=1�U%,V%:�B$
z�S%(I%,2)=1�U%,V%-N%:�B$
� �S%(I%,3)=1�U%,V%-(N%*2):�B$
�U%=U%+M%
��
�	�tBJ
��3,1:�X%-16,Y%:�A$
��
��"�TURN ON/OFF DRUM
���w(w%)
�	*FX15
�w%(w%)=(w%(w%)+1)�2
��4
�)�w%(w%)=0�1:�0,w%*2+4)"X";" ";d$(w%)
�.�w%(w%)=1�2:�0,w%*2+4);w%;:�3:�" ";d$(w%)
		�5:�3
	
�r=1�90:�
	�
	$�"�==CLEAR
	.��clear
	8�3,1:�X%-16,Y%:�A$
	B�4
	L �I%=8�38�2:�I%,B%*2+4)" ":�
	V!�VDU4:PRINTTAB(7,B%*2+4)SPC33
	`�I%=1�16:S%(I%,B%)=0:�
	j�5
	t�3,1:�X%-16,Y%:�A$
	~�
	��"�==DATA READ
	�
��example
	�U%=256:V%=828
	��0,2
	�
�a$,b$,c$
	��I%=1�16
	�S%(I%,1)=��a$,I%,1)
	�S%(I%,2)=��b$,I%,1)
	�S%(I%,3)=��c$,I%,1)
	��S%(I%,1)=1�U%,V%:�B$
	��S%(I%,2)=1�U%,V%-N%:�B$
	� �S%(I%,3)=1�U%,V%-(N%*2):�B$
U%=U%+M%

�
�
�"�==BAR LENGTH
(	��bar
2�4:�2:�35,1)"BAR"
<�
F'�-98�bar%>1�tBJ:bar%=bar%-1:�tBJ
P(�-67�bar%<16�tBJ:bar%=bar%+1:�tBJ
Z
�w=1�90:�
d��-74��-56
n�4:�0:�35,1)"BAR":�5:�3
x�
�#�3,1:�bar%*64+240,by%:�1,0,-164
��
��1010101010101010
��0000100000001000
��1000000010100000
�(�4:�0,0)"A%=";A%;":B%=";B%;" ":�5:�
�%�4:�0,1)"SPEED=";speed%;" ":�5:�
��4:�0,2)"REPEAT=";R$(R%)
��rq=1�200:�
��5:�
�

00000000  0d 00 0a 10 f4 22 83 3d  3d 44 52 55 4d 4b 49 54  |.....".==DRUMKIT|
00000010  0d 00 14 2b e2 31 2c 31  2c 2d 31 2c 30 2c 30 2c  |...+.1,1,-1,0,0,|
00000020  32 2c 32 30 2c 32 30 2c  31 32 36 2c 2d 32 2c 2d  |2,20,20,126,-2,-|
00000030  36 2c 2d 36 2c 31 32 36  2c 30 20 0d 00 1e 32 e2  |6,-6,126,0 ...2.|
00000040  32 2c 31 32 39 2c 35 30  2c 2d 39 30 2c 32 30 2c  |2,129,50,-90,20,|
00000050  32 30 2c 32 30 2c 32 30  2c 31 32 36 2c 2d 36 2c  |20,20,20,126,-6,|
00000060  2d 31 32 2c 2d 31 32 2c  31 30 35 2c 30 0d 00 28  |-12,-12,105,0..(|
00000070  1d f4 22 81 3d 3d 53 4e  41 52 45 20 53 4f 55 4e  |..".==SNARE SOUN|
00000080  44 30 2c 2d 31 35 2c 34  2c 31 0d 00 32 1e f4 22  |D0,-15,4,1..2.."|
00000090  83 3d 3d 48 49 20 48 41  54 20 53 4f 55 4e 44 32  |.==HI HAT SOUND2|
000000a0  2c 32 2c 31 39 31 2c 31  0d 00 3c 1a f4 22 82 3d  |,2,191,1..<..".=|
000000b0  3d 42 41 53 53 20 53 4f  55 4e 44 31 2c 31 2c 32  |=BASS SOUND1,1,2|
000000c0  2c 31 0d 00 46 33 de 64  24 28 33 29 3a 64 24 28  |,1..F3.d$(3):d$(|
000000d0  31 29 3d 22 48 69 48 41  54 22 3a 64 24 28 32 29  |1)="HiHAT":d$(2)|
000000e0  3d 22 53 4e 41 52 45 22  3a 64 24 28 33 29 3d 22  |="SNARE":d$(3)="|
000000f0  42 41 53 53 22 0d 00 50  0a de 77 25 28 33 29 0d  |BASS"..P..w%(3).|
00000100  00 5a 0d de 53 25 28 31  36 2c 33 29 0d 00 64 0a  |.Z..S%(16,3)..d.|
00000110  de 52 24 28 31 29 0d 00  6e 1b 52 24 28 30 29 3d  |.R$(1)..n.R$(0)=|
00000120  22 4f 46 46 22 3a 52 24  28 31 29 3d 22 4f 4e 20  |"OFF":R$(1)="ON |
00000130  22 0d 00 78 06 eb 31 0d  00 82 13 ef 32 33 3b 38  |"..x..1.....23;8|
00000140  32 30 32 3b 30 3b 30 3b  30 3b 0d 00 8c 0e ef 31  |202;0;0;0;.....1|
00000150  39 2c 33 2c 35 3b 30 3b  0d 00 96 0b f2 73 63 72  |9,3,5;0;.....scr|
00000160  65 65 6e 0d 00 a0 09 f2  69 6e 69 74 0d 00 aa 0c  |een.....init....|
00000170  f2 65 78 61 6d 70 6c 65  0d 00 b4 05 f5 0d 00 be  |.example........|
00000180  05 f5 0d 00 c8 09 f2 6b  65 79 73 0d 00 d2 0a fd  |.......keys.....|
00000190  a6 2d 31 30 31 0d 00 dc  08 f2 62 61 72 0d 00 e6  |.-101.....bar...|
000001a0  06 fd 30 0d 00 f0 05 e0  0d 00 fa 0f f4 22 81 3d  |..0..........".=|
000001b0  3d 53 43 52 45 45 4e 0d  01 04 0c dd f2 73 63 72  |=SCREEN......scr|
000001c0  65 65 6e 0d 01 0e 08 e6  30 2c 33 0d 01 18 3a e3  |een.....0,3...:.|
000001d0  49 25 3d 37 37 32 b8 37  39 32 88 38 3a ec 32 34  |I%=772.792.8:.24|
000001e0  30 2c 49 25 3a f0 31 2c  31 30 32 34 2c 30 3a ec  |0,I%:.1,1024,0:.|
000001f0  32 34 30 2c 49 25 2d 36  34 3a f0 31 2c 31 30 32  |240,I%-64:.1,102|
00000200  34 2c 30 3a ed 0d 01 22  08 e6 30 2c 32 0d 01 2c  |4,0:..."..0,2..,|
00000210  15 ec 30 2c 31 30 30 30  3a f0 31 2c 31 32 38 30  |..0,1000:.1,1280|
00000220  2c 30 0d 01 36 14 ec 30  2c 39 32 32 3a f0 31 2c  |,0..6..0,922:.1,|
00000230  31 32 38 30 2c 30 0d 01  40 29 ec 30 2c 35 37 36  |1280,0..@).0,576|
00000240  3a f0 31 2c 31 32 38 30  2c 30 3a ec 30 2c 39 36  |:.1,1280,0:.0,96|
00000250  3a f0 31 2c 31 32 38 30  2c 30 3a e6 30 2c 33 0d  |:.1,1280,0:.0,3.|
00000260  01 4a 13 e3 49 25 3d 38  33 36 b8 37 30 38 88 2d  |.J..I%=836.708.-|
00000270  36 34 0d 01 54 15 ec 32  34 30 2c 49 25 3a f0 31  |64..T..240,I%:.1|
00000280  2c 31 30 32 34 2c 30 0d  01 5e 18 ec 32 34 30 2c  |,1024,0..^..240,|
00000290  49 25 2d 34 30 3a f0 31  2c 31 30 32 34 2c 30 0d  |I%-40:.1,1024,0.|
000002a0  01 68 05 ed 0d 01 72 13  e3 49 25 3d 32 34 30 b8  |.h....r..I%=240.|
000002b0  31 32 38 30 88 36 34 0d  01 7c 15 ec 49 25 2c 38  |1280.64..|..I%,8|
000002c0  33 36 3a f0 31 2c 30 2c  2d 31 36 38 0d 01 86 05  |36:.1,0,-168....|
000002d0  ed 0d 01 90 0d 58 25 3d  32 3a 59 25 3d 36 0d 01  |.....X%=2:Y%=6..|
000002e0  9a 13 f1 8a 58 25 2c 59  25 29 22 48 69 48 41 54  |....X%,Y%)"HiHAT|
000002f0  22 0d 01 a4 15 f1 8a 58  25 2c 59 25 2b 32 29 22  |"......X%,Y%+2)"|
00000300  53 4e 41 52 45 22 0d 01  ae 14 f1 8a 58 25 2c 59  |SNARE"......X%,Y|
00000310  25 2b 34 29 22 42 41 53  53 22 0d 01 b8 1f fb 32  |%+4)"BASS".....2|
00000320  3a e3 49 25 3d 31 b8 33  3a f1 8a 30 2c 49 25 2a  |:.I%=1.3:..0,I%*|
00000330  32 2b 34 29 3b 49 25 3a  ed 0d 01 c2 09 67 25 3d  |2+4);I%:.....g%=|
00000340  31 36 0d 01 cc 26 fb 31  3a f1 8a 32 2c 67 25 2d  |16...&.1:..2,g%-|
00000350  31 29 22 20 20 5a 58 3f  2a 20 3d 20 4d 4f 56 45  |1)"  ZX?* = MOVE|
00000360  20 43 55 52 53 4f 52 22  0d 01 d6 28 f1 8a 32 2c  | CURSOR"...(..2,|
00000370  67 25 29 22 52 45 54 55  52 4e 20 3d 20 46 49 58  |g%)"RETURN = FIX|
00000380  20 4e 4f 54 45 2f 53 54  4f 50 20 50 4c 41 59 22  | NOTE/STOP PLAY"|
00000390  0d 01 e0 22 f1 8a 32 2c  67 25 2b 31 29 22 20 53  |..."..2,g%+1)" S|
000003a0  50 41 43 45 20 3d 20 55  4e 46 49 58 20 4e 4f 54  |PACE = UNFIX NOT|
000003b0  45 22 0d 01 ea 22 fb 32  3a f1 8a 32 2c 67 25 2b  |E"...".2:..2,g%+|
000003c0  32 29 22 20 20 20 20 20  50 20 3d 20 50 4c 41 59  |2)"     P = PLAY|
000003d0  22 3a fb 31 0d 01 f4 23  f1 8a 32 2c 67 25 2b 33  |":.1...#..2,g%+3|
000003e0  29 22 20 20 20 3c 20 3e  20 3d 20 41 4c 54 45 52  |)"   < > = ALTER|
000003f0  20 53 50 45 45 44 22 0d  01 fe 25 f1 8a 32 2c 67  | SPEED"...%..2,g|
00000400  25 2b 34 29 22 20 20 20  20 20 52 20 3d 20 52 45  |%+4)"     R = RE|
00000410  50 45 41 54 20 6f 6e 2f  6f 66 66 22 0d 02 08 1f  |PEAT on/off"....|
00000420  fb 32 3a f1 8a 32 2c 67  25 2b 35 29 22 20 20 20  |.2:..2,g%+5)"   |
00000430  20 20 4c 20 3d 20 4c 4f  41 44 22 0d 02 12 1c f1  |  L = LOAD".....|
00000440  8a 32 2c 67 25 2b 36 29  22 20 20 20 20 20 53 20  |.2,g%+6)"     S |
00000450  3d 20 53 41 56 45 22 0d  02 1c 39 fb 31 3a e3 49  |= SAVE"...9.1:.I|
00000460  25 3d 31 b8 33 3a f1 8a  37 2c 67 25 2b 36 2b 49  |%=1.3:..7,g%+6+I|
00000470  25 29 3b 49 25 3b 22 20  3d 20 54 55 52 4e 20 4f  |%);I%;" = TURN O|
00000480  4e 2f 4f 46 46 20 22 3b  64 24 28 49 25 29 3a ed  |N/OFF ";d$(I%):.|
00000490  0d 02 26 23 f1 8a 32 2c  67 25 2b 31 30 29 22 20  |..&#..2,g%+10)" |
000004a0  20 20 54 41 42 20 3d 20  45 52 41 53 45 20 4c 49  |  TAB = ERASE LI|
000004b0  4e 45 22 0d 02 30 3a fb  32 3a f1 8a 32 2c 67 25  |NE"..0:.2:..2,g%|
000004c0  2b 31 31 29 22 20 20 20  20 20 42 20 3d 20 42 41  |+11)"     B = BA|
000004d0  52 20 4c 45 4e 47 54 48  20 28 5a 2c 58 20 52 45  |R LENGTH (Z,X RE|
000004e0  54 55 52 4e 20 26 20 50  29 22 3a fb 31 0d 02 3a  |TURN & P)":.1..:|
000004f0  0b e3 49 25 3d 31 b8 34  0d 02 44 1f f1 8a 58 25  |..I%=1.4..D...X%|
00000500  2d 32 2b 49 25 2a 38 2c  59 25 2d 32 29 3b 49 25  |-2+I%*8,Y%-2);I%|
00000510  3b 22 20 20 20 2b 22 0d  02 4e 05 ed 0d 02 58 07  |;"   +"..N....X.|
00000520  58 3d 36 0d 02 62 0c e3  49 25 3d 31 b8 31 36 0d  |X=6..b..I%=1.16.|
00000530  02 6c 15 e7 49 25 83 32  3d 30 fb 31 33 30 3a 8b  |.l..I%.2=0.130:.|
00000540  fb 31 32 38 0d 02 76 13  f1 8a 58 2b 49 25 2a 32  |.128..v...X+I%*2|
00000550  2c 31 32 29 3b 49 25 0d  02 80 05 ed 0d 02 8a 08  |,12);I%.........|
00000560  fb 31 32 38 0d 02 94 05  e1 0d 02 9e 0d f4 22 82  |.128..........".|
00000570  3d 3d 49 4e 49 54 0d 02  a8 0a dd f2 69 6e 69 74  |==INIT......init|
00000580  0d 02 b2 0e 73 70 65 65  64 25 3d 31 37 30 0d 02  |....speed%=170..|
00000590  bc 09 4d 25 3d 36 34 0d  02 c6 09 4e 25 3d 36 34  |..M%=64....N%=64|
000005a0  0d 02 d0 08 52 25 3d 30  0d 02 da 1b 77 25 28 31  |....R%=0....w%(1|
000005b0  29 3d 31 3a 77 25 28 32  29 3d 31 3a 77 25 28 33  |)=1:w%(2)=1:w%(3|
000005c0  29 3d 31 0d 02 e4 0b 62  61 72 25 3d 31 36 0d 02  |)=1....bar%=16..|
000005d0  ee 0b 62 79 25 3d 38 33  32 0d 02 f8 0c e3 49 25  |..by%=832.....I%|
000005e0  3d 31 b8 31 36 0d 03 02  0b e3 4a 25 3d 31 b8 33  |=1.16.....J%=1.3|
000005f0  0d 03 0c 0f 53 25 28 49  25 2c 4a 25 29 3d 30 0d  |....S%(I%,J%)=0.|
00000600  03 16 07 ed 3a ed 0d 03  20 0b 41 24 3d 22 5b 5d  |....:... .A$="[]|
00000610  22 0d 03 2a 0a 42 24 3d  22 2a 22 0d 03 34 06 ef  |"..*.B$="*"..4..|
00000620  35 0d 03 3e 0a 58 25 3d  32 35 36 0d 03 48 0a 59  |5..>.X%=256..H.Y|
00000630  25 3d 38 32 38 0d 03 52  08 e6 33 2c 31 0d 03 5c  |%=828..R..3,1..\|
00000640  11 ec 58 25 2d 31 36 2c  59 25 3a f1 41 24 0d 03  |..X%-16,Y%:.A$..|
00000650  66 08 41 25 3d 31 0d 03  70 08 42 25 3d 31 0d 03  |f.A%=1..p.B%=1..|
00000660  7a 10 f4 22 84 47 4f 53  55 42 35 30 30 30 0d 03  |z..".GOSUB5000..|
00000670  84 0c fb 33 3a e4 8d 74  7e 4a 0d 03 8e 09 e4 8d  |...3:..t~J......|
00000680  64 48 4a 0d 03 98 09 e4  8d 74 42 4a 0d 03 a2 05  |dHJ......tBJ....|
00000690  e1 0d 03 ac 0d f4 22 83  3d 3d 4b 45 59 53 0d 03  |......".==KEYS..|
000006a0  b6 0a dd f2 6b 65 79 73  0d 03 c0 13 e7 a6 2d 31  |....keys......-1|
000006b0  30 33 f2 73 70 65 65 64  28 35 29 0d 03 ca 14 e7  |03.speed(5).....|
000006c0  a6 2d 31 30 34 f2 73 70  65 65 64 28 2d 35 29 0d  |.-104.speed(-5).|
000006d0  03 d4 0d e7 a6 2d 35 32  f2 72 65 70 0d 03 de 17  |.....-52.rep....|
000006e0  e7 a6 2d 39 38 f2 6d 28  2d 4d 25 2c 30 2c 2d 31  |..-98.m(-M%,0,-1|
000006f0  2c 30 29 0d 03 e8 15 e7  a6 2d 36 37 f2 6d 28 4d  |,0)......-67.m(M|
00000700  25 2c 30 2c 31 2c 30 29  0d 03 f2 16 e7 a6 2d 37  |%,0,1,0)......-7|
00000710  33 f2 6d 28 30 2c 4e 25  2c 30 2c 2d 31 29 0d 03  |3.m(0,N%,0,-1)..|
00000720  fc 17 e7 a6 2d 31 30 35  f2 6d 28 30 2c 2d 4e 25  |....-105.m(0,-N%|
00000730  2c 30 2c 31 29 0d 04 06  0d e7 a6 2d 37 34 f2 66  |,0,1)......-74.f|
00000740  69 78 0d 04 10 0f e7 a6  2d 39 39 f2 75 6e 66 69  |ix......-99.unfi|
00000750  78 0d 04 1a 0e e7 a6 2d  35 36 f2 70 6c 61 79 0d  |x......-56.play.|
00000760  04 24 0e e7 a6 2d 38 32  f2 73 61 76 65 0d 04 2e  |.$...-82.save...|
00000770  0e e7 a6 2d 38 37 f2 6c  6f 61 64 0d 04 38 0e e7  |...-87.load..8..|
00000780  a6 2d 34 39 f2 77 28 31  29 0d 04 42 0e e7 a6 2d  |.-49.w(1)..B...-|
00000790  35 30 f2 77 28 32 29 0d  04 4c 0e e7 a6 2d 31 38  |50.w(2)..L...-18|
000007a0  f2 77 28 33 29 0d 04 56  0f e7 a6 2d 39 37 f2 63  |.w(3)..V...-97.c|
000007b0  6c 65 61 72 0d 04 60 0e  e3 7a 7a 3d 31 b8 37 30  |lear..`..zz=1.70|
000007c0  3a ed 0d 04 6a 05 e1 0d  04 74 0d f4 22 84 3d 3d  |:...j....t..".==|
000007d0  4d 4f 56 45 0d 04 7e 14  dd f2 6d 28 78 25 2c 79  |MOVE..~...m(x%,y|
000007e0  25 2c 61 25 2c 62 25 29  0d 04 88 1a e7 58 25 2b  |%,a%,b%).....X%+|
000007f0  78 25 3c 32 35 36 84 58  25 2b 78 25 3e 31 32 31  |x%<256.X%+x%>121|
00000800  36 e1 0d 04 92 19 e7 59  25 2b 79 25 3c 37 30 30  |6......Y%+y%<700|
00000810  84 59 25 2b 79 25 3e 38  32 38 e1 0d 04 9c 22 41  |.Y%+y%>828...."A|
00000820  25 3d 41 25 2b 61 25 3a  42 25 3d 42 25 2b 62 25  |%=A%+a%:B%=B%+b%|
00000830  3a f4 22 84 47 4f 53 55  42 35 30 30 30 0d 04 a6  |:.".GOSUB5000...|
00000840  08 e6 33 2c 31 0d 04 b0  11 ec 58 25 2d 31 36 2c  |..3,1.....X%-16,|
00000850  59 25 3a f1 41 24 0d 04  ba 15 58 25 3d 58 25 2b  |Y%:.A$....X%=X%+|
00000860  78 25 3a 59 25 3d 59 25  2b 79 25 0d 04 c4 11 ec  |x%:Y%=Y%+y%.....|
00000870  58 25 2d 31 36 2c 59 25  3a f1 41 24 0d 04 ce 05  |X%-16,Y%:.A$....|
00000880  e1 0d 04 d8 0c f4 22 85  3d 3d 46 49 58 0d 04 e2  |......".==FIX...|
00000890  09 dd f2 66 69 78 0d 04  ec 08 e6 33 2c 31 0d 04  |...fix.....3,1..|
000008a0  f6 11 ec 58 25 2d 31 36  2c 59 25 3a f1 41 24 0d  |...X%-16,Y%:.A$.|
000008b0  05 00 08 e6 30 2c 32 0d  05 0a 0e ec 58 25 2c 59  |....0,2.....X%,Y|
000008c0  25 3a f1 42 24 0d 05 14  08 e6 33 2c 31 0d 05 1e  |%:.B$.....3,1...|
000008d0  11 ec 58 25 2d 31 36 2c  59 25 3a f1 41 24 0d 05  |..X%-16,Y%:.A$..|
000008e0  28 0f 53 25 28 41 25 2c  42 25 29 3d 31 0d 05 32  |(.S%(A%,B%)=1..2|
000008f0  05 e1 0d 05 3c 0e f4 22  86 3d 3d 55 4e 46 49 58  |....<..".==UNFIX|
00000900  0d 05 46 0b dd f2 75 6e  66 69 78 0d 05 50 13 e6  |..F...unfix..P..|
00000910  30 2c 30 3a ec 58 25 2c  59 25 3a f1 42 24 0d 05  |0,0:.X%,Y%:.B$..|
00000920  5a 08 e6 33 2c 31 0d 05  64 11 ec 58 25 2d 31 36  |Z..3,1..d..X%-16|
00000930  2c 59 25 3a f1 41 24 0d  05 6e 13 e6 30 2c 30 3a  |,Y%:.A$..n..0,0:|
00000940  ec 58 25 2c 59 25 3a f1  42 24 0d 05 78 08 e6 33  |.X%,Y%:.B$..x..3|
00000950  2c 31 0d 05 82 11 ec 58  25 2d 31 36 2c 59 25 3a  |,1.....X%-16,Y%:|
00000960  f1 41 24 0d 05 8c 0f 53  25 28 41 25 2c 42 25 29  |.A$....S%(A%,B%)|
00000970  3d 30 0d 05 96 05 e1 0d  05 a0 0d f4 22 81 3d 3d  |=0..........".==|
00000980  50 4c 41 59 0d 05 aa 0a  dd f2 70 6c 61 79 0d 05  |PLAY......play..|
00000990  b4 0c 6f 6c 64 52 25 3d  52 25 0d 05 be 05 f5 0d  |..oldR%=R%......|
000009a0  05 c8 11 65 25 3d 32 35  36 3a 66 25 3d 38 36 30  |...e%=256:f%=860|
000009b0  0d 05 d2 0e e3 49 25 3d  31 b8 62 61 72 25 0d 05  |.....I%=1.bar%..|
000009c0  dc 13 e7 52 25 3d 32 52  25 3d 30 3a e5 8d 44 5e  |...R%=2R%=0:..D^|
000009d0  46 0d 05 e6 14 e6 30 2c  32 3a ec 65 25 2c 66 25  |F.....0,2:.e%,f%|
000009e0  3a f1 22 5e 22 0d 05 f0  2c e7 53 25 28 49 25 2c  |:."^"...,.S%(I%,|
000009f0  31 29 3d 31 80 77 25 28  31 29 3d 31 d4 32 2c 32  |1)=1.w%(1)=1.2,2|
00000a00  2c 31 39 31 2c 31 20 8b  20 d4 32 2c 30 2c 30 2c  |,191,1 . .2,0,0,|
00000a10  31 0d 05 fa 2c e7 53 25  28 49 25 2c 32 29 3d 31  |1...,.S%(I%,2)=1|
00000a20  80 77 25 28 32 29 3d 31  d4 30 2c 2d 31 35 2c 34  |.w%(2)=1.0,-15,4|
00000a30  2c 31 20 8b 20 d4 30 2c  30 2c 30 2c 31 0d 06 04  |,1 . .0,0,0,1...|
00000a40  2a e7 53 25 28 49 25 2c  33 29 3d 31 80 77 25 28  |*.S%(I%,3)=1.w%(|
00000a50  33 29 3d 31 d4 31 2c 31  2c 32 2c 31 20 8b 20 d4  |3)=1.1,1,2,1 . .|
00000a60  31 2c 30 2c 30 2c 31 0d  06 0e 0d e7 a6 2d 37 34  |1,0,0,1......-74|
00000a70  52 25 3d 32 0d 06 18 13  e7 a6 2d 31 30 33 f2 73  |R%=2......-103.s|
00000a80  70 65 65 64 28 35 29 0d  06 22 14 e7 a6 2d 31 30  |peed(5).."...-10|
00000a90  34 f2 73 70 65 65 64 28  2d 35 29 0d 06 2c 0e e7  |4.speed(-5)..,..|
00000aa0  a6 2d 34 39 f2 77 28 31  29 0d 06 36 0e e7 a6 2d  |.-49.w(1)..6...-|
00000ab0  35 30 f2 77 28 32 29 0d  06 40 0e e7 a6 2d 31 38  |50.w(2)..@...-18|
00000ac0  f2 77 28 33 29 0d 06 4a  11 e3 54 3d 31 b8 73 70  |.w(3)..J..T=1.sp|
00000ad0  65 65 64 25 3a ed 0d 06  54 1d e6 30 2c 30 3a ec  |eed%:...T..0,0:.|
00000ae0  65 25 2c 66 25 3a f1 22  5e 22 3a 65 25 3d 65 25  |e%,f%:."^":e%=e%|
00000af0  2b 36 34 0d 06 5e 05 ed  0d 06 68 09 fd 52 25 3d  |+64..^....h..R%=|
00000b00  30 0d 06 72 12 52 25 3d  6f 6c 64 52 25 3a e4 8d  |0..r.R%=oldR%:..|
00000b10  64 48 4a 0d 06 7c 05 e1  0d 06 86 0e f4 22 83 3d  |dHJ..|.......".=|
00000b20  3d 53 50 45 45 44 0d 06  90 0f dd f2 73 70 65 65  |=SPEED......spee|
00000b30  64 28 73 25 29 0d 06 9a  14 73 70 65 65 64 25 3d  |d(s%)....speed%=|
00000b40  73 70 65 65 64 25 2b 73  25 0d 06 a4 09 e4 8d 74  |speed%+s%......t|
00000b50  7e 4a 0d 06 ae 0c e3 74  3d 31 b8 35 3a ed 0d 06  |~J.....t=1.5:...|
00000b60  b8 05 e1 0d 06 c2 13 f4  22 82 3d 3d 52 45 50 45  |........".==REPE|
00000b70  41 54 20 42 41 52 0d 06  cc 09 dd f2 72 65 70 0d  |AT BAR......rep.|
00000b80  06 d6 09 2a 46 58 31 35  0d 06 e0 15 e7 52 25 3d  |...*FX15.....R%=|
00000b90  30 52 25 3d 31 3a e4 8d  64 48 4a 3a e1 0d 06 ea  |0R%=1:..dHJ:....|
00000ba0  15 e7 52 25 3d 31 52 25  3d 30 3a e4 8d 64 48 4a  |..R%=1R%=0:..dHJ|
00000bb0  3a e1 0d 06 f4 05 e1 0d  06 fe 0d f4 22 86 3d 3d  |:...........".==|
00000bc0  53 41 56 45 0d 07 08 0a  dd f2 73 61 76 65 0d 07  |SAVE......save..|
00000bd0  12 09 2a 46 58 31 35 0d  07 1c 22 ef 34 3a f1 8a  |..*FX15...".4:..|
00000be0  31 34 2c 31 29 89 32 30  3a e8 8a 31 34 2c 31 29  |14,1).20:..14,1)|
00000bf0  22 53 41 56 45 3a 22 66  24 0d 07 26 09 66 3d ae  |"SAVE:"f$..&.f=.|
00000c00  66 24 0d 07 30 0c e3 49  25 3d 31 b8 31 36 0d 07  |f$..0..I%=1.16..|
00000c10  3a 0b e3 4a 25 3d 31 b8  33 0d 07 44 11 f1 23 66  |:..J%=1.3..D..#f|
00000c20  2c 53 25 28 49 25 2c 4a  25 29 0d 07 4e 07 ed 3a  |,S%(I%,J%)..N..:|
00000c30  ed 0d 07 58 0c f1 23 66  2c 62 61 72 25 0d 07 62  |...X..#f,bar%..b|
00000c40  07 d9 23 66 0d 07 6c 06  ef 35 0d 07 76 05 e1 0d  |..#f..l..5..v...|
00000c50  07 80 0d f4 22 82 3d 3d  4c 4f 41 44 0d 07 8a 0a  |....".==LOAD....|
00000c60  dd f2 6c 6f 61 64 0d 07  94 09 2a 46 58 31 35 0d  |..load....*FX15.|
00000c70  07 9e 22 ef 34 3a f1 8a  31 34 2c 31 29 89 32 30  |..".4:..14,1).20|
00000c80  3a e8 8a 31 34 2c 31 29  22 4c 4f 41 44 3a 22 66  |:..14,1)"LOAD:"f|
00000c90  24 0d 07 a8 09 e4 8d 74  42 4a 0d 07 b2 09 66 3d  |$......tBJ....f=|
00000ca0  ad 66 24 0d 07 bc 0c e3  49 25 3d 31 b8 31 36 0d  |.f$.....I%=1.16.|
00000cb0  07 c6 0b e3 4a 25 3d 31  b8 33 0d 07 d0 11 e8 23  |....J%=1.3.....#|
00000cc0  66 2c 53 25 28 49 25 2c  4a 25 29 0d 07 da 07 ed  |f,S%(I%,J%).....|
00000cd0  3a ed 0d 07 e4 0c e8 23  66 2c 62 61 72 25 0d 07  |:......#f,bar%..|
00000ce0  ee 07 d9 23 66 0d 07 f8  0b f2 64 72 61 77 69 74  |...#f.....drawit|
00000cf0  0d 08 02 05 e1 0d 08 0c  0f f4 22 83 3d 3d 44 52  |..........".==DR|
00000d00  41 57 49 54 0d 08 16 0c  dd f2 64 72 61 77 69 74  |AWIT......drawit|
00000d10  0d 08 20 19 ef 35 3a e6  33 2c 31 3a ec 58 25 2d  |.. ..5:.3,1:.X%-|
00000d20  31 36 2c 59 25 3a f1 41  24 0d 08 2a 06 ef 34 0d  |16,Y%:.A$..*..4.|
00000d30  08 34 0e e3 4a 25 3d 36  b8 31 30 88 32 0d 08 3e  |.4..J%=6.10.2..>|
00000d40  0e e3 49 25 3d 38 b8 33  38 88 32 0d 08 48 0f f1  |..I%=8.38.2..H..|
00000d50  8a 49 25 2c 4a 25 29 22  20 22 0d 08 52 0a ed 3a  |.I%,J%)" "..R..:|
00000d60  ed 3a ef 35 0d 08 5c 16  55 25 3d 32 35 36 3a 56  |.:.5..\.U%=256:V|
00000d70  25 3d 38 32 38 3a e6 30  2c 32 0d 08 66 0c e3 49  |%=828:.0,2..f..I|
00000d80  25 3d 31 b8 31 36 0d 08  70 19 e7 53 25 28 49 25  |%=1.16..p..S%(I%|
00000d90  2c 31 29 3d 31 ec 55 25  2c 56 25 3a f1 42 24 0d  |,1)=1.U%,V%:.B$.|
00000da0  08 7a 1c e7 53 25 28 49  25 2c 32 29 3d 31 ec 55  |.z..S%(I%,2)=1.U|
00000db0  25 2c 56 25 2d 4e 25 3a  f1 42 24 0d 08 84 20 e7  |%,V%-N%:.B$... .|
00000dc0  53 25 28 49 25 2c 33 29  3d 31 ec 55 25 2c 56 25  |S%(I%,3)=1.U%,V%|
00000dd0  2d 28 4e 25 2a 32 29 3a  f1 42 24 0d 08 8e 0c 55  |-(N%*2):.B$....U|
00000de0  25 3d 55 25 2b 4d 25 0d  08 98 05 ed 0d 08 a2 09  |%=U%+M%.........|
00000df0  e4 8d 74 42 4a 0d 08 ac  16 e6 33 2c 31 3a ec 58  |..tBJ.....3,1:.X|
00000e00  25 2d 31 36 2c 59 25 3a  f1 41 24 0d 08 b6 05 e1  |%-16,Y%:.A$.....|
00000e10  0d 08 c0 17 f4 22 81 54  55 52 4e 20 4f 4e 2f 4f  |.....".TURN ON/O|
00000e20  46 46 20 44 52 55 4d 0d  08 ca 0b dd f2 77 28 77  |FF DRUM......w(w|
00000e30  25 29 0d 08 d4 09 2a 46  58 31 35 0d 08 de 17 77  |%)....*FX15....w|
00000e40  25 28 77 25 29 3d 28 77  25 28 77 25 29 2b 31 29  |%(w%)=(w%(w%)+1)|
00000e50  83 32 0d 08 e8 06 ef 34  0d 08 f2 29 e7 77 25 28  |.2.....4...).w%(|
00000e60  77 25 29 3d 30 fb 31 3a  f1 8a 30 2c 77 25 2a 32  |w%)=0.1:..0,w%*2|
00000e70  2b 34 29 22 58 22 3b 22  20 22 3b 64 24 28 77 25  |+4)"X";" ";d$(w%|
00000e80  29 0d 08 fc 2e e7 77 25  28 77 25 29 3d 31 fb 32  |).....w%(w%)=1.2|
00000e90  3a f1 8a 30 2c 77 25 2a  32 2b 34 29 3b 77 25 3b  |:..0,w%*2+4);w%;|
00000ea0  3a fb 33 3a f1 22 20 22  3b 64 24 28 77 25 29 0d  |:.3:." ";d$(w%).|
00000eb0  09 06 09 ef 35 3a fb 33  0d 09 10 0d e3 72 3d 31  |....5:.3.....r=1|
00000ec0  b8 39 30 3a ed 0d 09 1a  05 e1 0d 09 24 0e f4 22  |.90:........$.."|
00000ed0  82 3d 3d 43 4c 45 41 52  0d 09 2e 0b dd f2 63 6c  |.==CLEAR......cl|
00000ee0  65 61 72 0d 09 38 16 e6  33 2c 31 3a ec 58 25 2d  |ear..8..3,1:.X%-|
00000ef0  31 36 2c 59 25 3a f1 41  24 0d 09 42 06 ef 34 0d  |16,Y%:.A$..B..4.|
00000f00  09 4c 20 e3 49 25 3d 38  b8 33 38 88 32 3a f1 8a  |.L .I%=8.38.2:..|
00000f10  49 25 2c 42 25 2a 32 2b  34 29 22 20 22 3a ed 0d  |I%,B%*2+4)" ":..|
00000f20  09 56 21 f4 56 44 55 34  3a 50 52 49 4e 54 54 41  |.V!.VDU4:PRINTTA|
00000f30  42 28 37 2c 42 25 2a 32  2b 34 29 53 50 43 33 33  |B(7,B%*2+4)SPC33|
00000f40  0d 09 60 1a e3 49 25 3d  31 b8 31 36 3a 53 25 28  |..`..I%=1.16:S%(|
00000f50  49 25 2c 42 25 29 3d 30  3a ed 0d 09 6a 06 ef 35  |I%,B%)=0:...j..5|
00000f60  0d 09 74 16 e6 33 2c 31  3a ec 58 25 2d 31 36 2c  |..t..3,1:.X%-16,|
00000f70  59 25 3a f1 41 24 0d 09  7e 05 e1 0d 09 88 12 f4  |Y%:.A$..~.......|
00000f80  22 85 3d 3d 44 41 54 41  20 52 45 41 44 0d 09 92  |".==DATA READ...|
00000f90  0d dd f2 65 78 61 6d 70  6c 65 0d 09 9c 11 55 25  |...example....U%|
00000fa0  3d 32 35 36 3a 56 25 3d  38 32 38 0d 09 a6 08 e6  |=256:V%=828.....|
00000fb0  30 2c 32 0d 09 b0 0d f3  61 24 2c 62 24 2c 63 24  |0,2.....a$,b$,c$|
00000fc0  0d 09 ba 0c e3 49 25 3d  31 b8 31 36 0d 09 c4 17  |.....I%=1.16....|
00000fd0  53 25 28 49 25 2c 31 29  3d bb c1 61 24 2c 49 25  |S%(I%,1)=..a$,I%|
00000fe0  2c 31 29 0d 09 ce 17 53  25 28 49 25 2c 32 29 3d  |,1)....S%(I%,2)=|
00000ff0  bb c1 62 24 2c 49 25 2c  31 29 0d 09 d8 17 53 25  |..b$,I%,1)....S%|
00001000  28 49 25 2c 33 29 3d bb  c1 63 24 2c 49 25 2c 31  |(I%,3)=..c$,I%,1|
00001010  29 0d 09 e2 19 e7 53 25  28 49 25 2c 31 29 3d 31  |).....S%(I%,1)=1|
00001020  ec 55 25 2c 56 25 3a f1  42 24 0d 09 ec 1c e7 53  |.U%,V%:.B$.....S|
00001030  25 28 49 25 2c 32 29 3d  31 ec 55 25 2c 56 25 2d  |%(I%,2)=1.U%,V%-|
00001040  4e 25 3a f1 42 24 0d 09  f6 20 e7 53 25 28 49 25  |N%:.B$... .S%(I%|
00001050  2c 33 29 3d 31 ec 55 25  2c 56 25 2d 28 4e 25 2a  |,3)=1.U%,V%-(N%*|
00001060  32 29 3a f1 42 24 0d 0a  00 0c 55 25 3d 55 25 2b  |2):.B$....U%=U%+|
00001070  4d 25 0d 0a 0a 05 ed 0d  0a 14 05 e1 0d 0a 1e 13  |M%..............|
00001080  f4 22 82 3d 3d 42 41 52  20 4c 45 4e 47 54 48 0d  |.".==BAR LENGTH.|
00001090  0a 28 09 dd f2 62 61 72  0d 0a 32 16 ef 34 3a fb  |.(...bar..2..4:.|
000010a0  32 3a f1 8a 33 35 2c 31  29 22 42 41 52 22 0d 0a  |2:..35,1)"BAR"..|
000010b0  3c 05 f5 0d 0a 46 27 e7  a6 2d 39 38 80 62 61 72  |<....F'..-98.bar|
000010c0  25 3e 31 e4 8d 74 42 4a  3a 62 61 72 25 3d 62 61  |%>1..tBJ:bar%=ba|
000010d0  72 25 2d 31 3a e4 8d 74  42 4a 0d 0a 50 28 e7 a6  |r%-1:..tBJ..P(..|
000010e0  2d 36 37 80 62 61 72 25  3c 31 36 e4 8d 74 42 4a  |-67.bar%<16..tBJ|
000010f0  3a 62 61 72 25 3d 62 61  72 25 2b 31 3a e4 8d 74  |:bar%=bar%+1:..t|
00001100  42 4a 0d 0a 5a 0d e3 77  3d 31 b8 39 30 3a ed 0d  |BJ..Z..w=1.90:..|
00001110  0a 64 0e fd a6 2d 37 34  84 a6 2d 35 36 0d 0a 6e  |.d...-74..-56..n|
00001120  1c ef 34 3a fb 30 3a f1  8a 33 35 2c 31 29 22 42  |..4:.0:..35,1)"B|
00001130  41 52 22 3a ef 35 3a fb  33 0d 0a 78 05 e1 0d 0a  |AR":.5:.3..x....|
00001140  82 23 e6 33 2c 31 3a ec  62 61 72 25 2a 36 34 2b  |.#.3,1:.bar%*64+|
00001150  32 34 30 2c 62 79 25 3a  f0 31 2c 30 2c 2d 31 36  |240,by%:.1,0,-16|
00001160  34 0d 0a 8c 05 f8 0d 0a  96 15 dc 31 30 31 30 31  |4..........10101|
00001170  30 31 30 31 30 31 30 31  30 31 30 0d 0a a0 15 dc  |01010101010.....|
00001180  30 30 30 30 31 30 30 30  30 30 30 30 31 30 30 30  |0000100000001000|
00001190  0d 0a aa 15 dc 31 30 30  30 30 30 30 30 31 30 31  |.....10000000101|
000011a0  30 30 30 30 30 0d 0a b4  28 ef 34 3a f1 8a 30 2c  |00000...(.4:..0,|
000011b0  30 29 22 41 25 3d 22 3b  41 25 3b 22 3a 42 25 3d  |0)"A%=";A%;":B%=|
000011c0  22 3b 42 25 3b 22 20 22  3a ef 35 3a f8 0d 0a be  |";B%;" ":.5:....|
000011d0  25 ef 34 3a f1 8a 30 2c  31 29 22 53 50 45 45 44  |%.4:..0,1)"SPEED|
000011e0  3d 22 3b 73 70 65 65 64  25 3b 22 20 22 3a ef 35  |=";speed%;" ":.5|
000011f0  3a f8 0d 0a c8 1d ef 34  3a f1 8a 30 2c 32 29 22  |:......4:..0,2)"|
00001200  52 45 50 45 41 54 3d 22  3b 52 24 28 52 25 29 0d  |REPEAT=";R$(R%).|
00001210  0a d2 0f e3 72 71 3d 31  b8 32 30 30 3a ed 0d 0a  |....rq=1.200:...|
00001220  dc 08 ef 35 3a f8 0d ff                           |...5:...|
00001228