�> <DRUMKIT$dir>.KIT75
� 17 MAY 92
�
(*KEY3MODE7|ML.1120,1250|N|M
2*KEY4MODE7|ML.1700,1800|N|M
<*KEY5MODE7|ML.1830,1930|N|M
F*KEY6MODE7|ML.2110,2450|N|M
P*KEY7MODE7|ML.15000,|N|M
Z*KEY8MODE7|ML.4010,4380|N|M
\ *KEY10MODE7|ML.7880,8130|N|M
^ *KEY11MODE7|ML.2730,2890|N|M
_*KEY12MODE7|ML.9400,|N|M
a 
d�
n�9:�
o�19,8,16,0,&F0,&F0
p�19,9,16,0,0,&F0
q�19,10,16,0,&F0,0
r�19,11,16,85,136,0
s�19,12,16,&F0,&F0,&F0
t�19,13,16,238,238,187
u�19,14,16,255,187,0
v�19,15,16,221,221,221
x�19,1,16,&B0,&50,&30
��19,2,16,&B0,&A0,&A0
��19,3,16,&D0,&C0,&60
��19,4,16,&40,&50,&50
��19,5,16,&80,&80,&80
��19,6,16,&80,&80,&90
��19,7,16,&D0,&D0,&A0
��Border colour
��19,1,24,&80,&80,&80
� 
��LOAD SCREEN
��loadscreen
� 
�%�Total num of different patterns
�totalpat%=96
� 
��num of notes in a bar
�bar%=16
� 
�length%=24576
�storelength%=512
��tempstore%=storelength%
� 
��initvoices

�arrays


�grabgrid

 

end%=mem%+length%

	$storeend%=storemem%+storelength%

 

�

reset%=0


loaded%=0

showWHAT%=0

*VOLUME 127

 

� � �error

" 

,	�init

6
�init2

7 

8�memory

9 

A 

W�

X�Read Stereo Values

Y�I%=1�7:�SV%(I%):�

Z�-80,-48,-16,0,16,48,80

[ 

\
�names

^�initmouse

h�pattern(1)

r 

| 

��

��:ȗX%,Y%,Z%:�centre:�Z%=0

��:ȗX%,Y%,Z%:�centre:�Z%<>0

� 

��which area is pointer in?

�-�X%>=528�X%<=1008�Y%<=864�Y%>=368where%=0

��Y%>864where%=1

�"�X%<528�Y%<=864�Y%>352where%=2

��Y%<352where%=3

��X%>1056where%=4

�=�COLOUR3:COLOUR128:PRINTTAB(0,0);where%;" ";X%;" ";Y%;" "

� 

�Ȏ where% �

��where%=0
� 0:
ȗX%,Y%,Z%
Ȏ Z% �
&1� 4:�fix(1,0,D$):�testsound:�SOUND2,-15,200,1
0!� 2:�fix(0,4,D$):�2,-15,240,1
:� 1:�playpattern
D�
N�========
X�where%=1
b� 1:
lȗX%,Y%,Z%
vȎ Z% �
�� 2:
�1 �Y%>=928�Y%<=956�X%>=224�X%<=348�pattern(10)
�0  �X%>=448�X%<=576�Y%<=956�Y%>=928�tempo(10)
�� 4:
�+ �X%>=32�X%<=96�Y%>=960�Y%<=992reset%=1
�1  �Y%>=928�Y%<=956�X%>=224�X%<=348�pattern(1)
�4   �X%>=736�X%<=764�Y%<=992�Y%>=960�savepatterns
�4   �X%>=608�X%<=640�Y%<=956�Y%>=928�loadpatterns
�2   �X%>=320�X%<=348�Y%<924�Y%>=896�playpattern
�0   �X%>=448�X%<=576�Y%<=956�Y%>=928�tempo(1)
�-   �X%>=992�X%<=1024�Y%<=992�Y%>=960�wipe
�-  �X%>384�X%<=416�Y%<=928�Y%>=896�copypat
��
� 
�where%=2
� 2:�X%>=160�testsound
!       �X%<160�Z%=4�volume(1)
!       �X%<160�Z%=2�volume(5)
�where%=3
 � 3:ȗX%,Y%,Z%
*Ȏ Z% �
4� 4:
>0 �X%>=320�X%<=480�Y%<=288�Y%>=256�pattern(1)
H* �X%>=320�X%<=480�Y%<224�Y%>=192�store
R1 �X%>=320�X%<=480�Y%<=256�Y%>=224�stepbars(1)
\.  �X%>=448�X%<=512�Y%<=128�Y%>=64�playsong
f,  �X%>=448�X%<=480�Y%<64�Y%>=32�continue
p, �X%>=608�X%<=640�Y%<=60�Y%>=32�loadsong
z, �X%>=736�X%<=768�Y%<=96�Y%>=64�savesong
�+ �X%>=160�X%<=192�Y%<=128�Y%>=96�delete
�/ �X%>=992�X%<=1024�Y%<=160�Y%>=128�wipesong
�, �X%>=352�X%<=384�Y%<=160�Y%>=128�insert
�/ �X%>=736�X%<896�Y%<=288�Y%>=256�block(1,1)
�. �X%>=736�X%<896�Y%<256�Y%>=224�block(2,1)
�. �X%>=736�X%<896�Y%<224�Y%>=192�block(3,1)
�/ �X%>=512�X%<544�Y%<=288�Y%>=256�block(4,1)
�/ �X%>=512�X%<544�Y%<=192�Y%>=160�block(5,1)
�+ �X%>=992�X%<=1024�Y%<=352�Y%>=320�show
�, �X%>=608�X%<736�Y%<=352�Y%>=320�bars(1)
�* �X%<=32�Y%<=288�Y%>=256�mastervol(-1)
�1 �X%>=96�X%<=128�Y%<=288�Y%>=256�mastervol(1)
�� 2:
�* �X%<=32�Y%<=288�Y%>=256�mastervol(-5)
�1 �X%>=96�X%<=128�Y%<=288�Y%>=256�mastervol(5)
�2 �X%>=320�X%<=480�Y%<=256�Y%>=224�stepbars(10)
�1 �X%>=320�X%<=480�Y%<=288�Y%>=256�pattern(10)
�0 �X%>=736�X%<896�Y%<=288�Y%>=256�block(1,10)
/ �X%>=736�X%<896�Y%<256�Y%>=224�block(2,10)
/ �X%>=736�X%<896�Y%<224�Y%>=192�block(3,10)
, �X%>=608�X%<736�Y%<=352�Y%>=320�bars(4)
�
�where%=4
� 4:
 �stereo
$ 
.�
8
�reset%=1
9 
:�J%=1�12
;�3,-15,160+(J%*4),1
<�T=1�400:�
=�
>+ș "OS_SpriteOp",256+34,S%,"PIC2",0,0,0
@�0
B 
L�
V 
`�Initialise voices
j��initvoices
tȠ8
~ 
�*CHANNELVOICE 1 13
�*CHANNELVOICE 2 11
�*CHANNELVOICE 3 12
�*CHANNELVOICE 4 13
�*CHANNELVOICE 5 14
�*CHANNELVOICE 6 15
�*CHANNELVOICE 7 16
�*CHANNELVOICE 8 17
� 
��
� 
��init MOUSE
��initmouse

*POINTER
ȗ � 2,&FF,&FF,&FF
ȗ � 1,0,0,0
(ȗ � X%,Y%
2
ȗ � 4
<ȗ ȓ8,32,1264,960
F�
P 
Z�"�INIT
d
��init
e
voi%=1
fpx%=0:py%=0
gbar%=16
hmastvol%=15
ncopy%=0
xstop%=0
�cont%=0
�show%=1
�T%=0
�storedpat%=1
�
copyto%=1
�frombar%=1
�tobar%=1
��23,42,0,0,60,60,60,60,0,0
��23,60,0,8,24,56,56,24,8,0
� �23,62,0,16,24,28,28,24,16,0
�%�23,224,0,60,126,126,126,126,60,0
��23,225,8,8,8,8,255,8,8,8
�D$=�224
d$=�225

X%=512+16

Y%=864-16
"oldx%=X%
,oldy%=Y%
6where%=0
@ 
J 
T�Which bar in a song
^whichbar%=1
h�speed
r
tempo%=10
| 
�pattern%=1
��
� 
��ARRAYS
���arrays
�� mem% length%
�� storemem% storelength%
�� tempstore% storelength%
��hihat%(bar%,totalpat%)
��hihat2%(bar%,totalpat%)
��tom1%(bar%,totalpat%)
��tom2%(bar%,totalpat%)
��tom3%(bar%,totalpat%)
��snare%(bar%,totalpat%)
��bass%(bar%,totalpat%)
��block1%(bar%,totalpat%)
��block2%(bar%,totalpat%)
��cymbal1%(bar%,totalpat%)
�cymbal2%(bar%,totalpat%)

�rototom1%(bar%,totalpat%)
�rototom2%(bar%,totalpat%)
�snare2%(bar%,totalpat%)
 
� SV%(7),ST%(16),V%(16)
�
 
 
&�init2
0��init2
:hihat%()=0
<hihat2%()=0
D
tom1%()=0
N
tom2%()=0
X
tom3%()=0
bsnare%()=0
l
bass%()=0
vblock1%()=0
�block2%()=0
�cymbal1%()=0
�cymbal2%()=0
�rototom1%()=0
�rototom2%()=0
�snare2%()=0
�ST%()=0
�V%()=-15
��
� 
��Memory store
���memory
� �I%=mem% � end%-4 �4:!I%=0:�
� 
 �I%=storemem% � storeend% �4
	!I%=0
�
 �
* 
4 
>�PLAY PATTERN
H��playpattern
Rȗ ȓ 320,896,32,32
\�playit(pattern%)
fȗ ȓ8,32,1264,960
p�
z 
��"�PLAY IT!!
���playit(P%)
�M%=(mem%+((P%-1)*256)-1)
��...one bar
��:ȗX%,Y%,Z%:�Z%=0
��I%=1�bar%
�ȗX%,Y%,Z%
��Z%=4stop%=1:�D~I
��HIHAT
�)�?(M%+I%)=1 Ȣ1,ST%(1):�1,V%(1),200,2
�
�TOM1
�,�?(M%+I%+16)=1 Ȣ2,ST%(2):�2,V%(2),160,3
�
�TOM2
	,�?(M%+I%+32)=1 Ȣ2,ST%(3):�2,V%(3),142,3
	
�TOM3
	,�?(M%+I%+48)=1 Ȣ2,ST%(4):�2,V%(4),135,3
	$�BLOCK1
	.,�?(M%+I%+64)=1 Ȣ3,ST%(5):�3,V%(5),200,5
	8�BLOCK2
	B,�?(M%+I%+80)=1 Ȣ3,ST%(6):�3,V%(6),244,5
	C
�CYMBAL1
	D-�?(M%+I%+96)=1 Ȣ4,ST%(7):�4,V%(7),160,30
	E
�CYMBAL2
	F.�?(M%+I%+112)=1 Ȣ4,ST%(8):�4,V%(8),150,30
	G�ROTOTOM1
	H-�?(M%+I%+128)=1 Ȣ5,ST%(9):�5,V%(9),100,3
	I�ROTOTOM2
	J.�?(M%+I%+144)=1 Ȣ5,ST%(10):�5,V%(10),90,3
	K�HIHAT2
	L/�?(M%+I%+160)=1 Ȣ1,ST%(11):�1,V%(11),205,8
	R�SNARE2
	S/�?(M%+I%+208)=1 Ȣ6,ST%(14):�6,V%(14),140,3
	U�SNARE
	V.�?(M%+I%+224)=1 Ȣ7,ST%(15):�7,V%(15),50,3
	`�BASS DRUM
	j.�?(M%+I%+240)=1 Ȣ8,ST%(16):�8,V%(16),50,3
	t	�wait
	~�
	��
	� 
	��"�WAIT
	�
��wait
	��=0
	��I%=bar%�show%=1�
	����>tempo%
	��
	� 
�
�GRID
�
��grid
�"�24,512;352;496+(bar%*32);860;
�+ș "OS_SpriteOp",256+34,g%,g$,512,352,0
��
T 
��stereo values
� 
�
�FIX DOT
���fix(state%,col%,dot$)
��X%<528�
��Y%>864�
��Y%<368�
�
�show%=0�
�	�VDU5
�	�col%
��132
�wn%=((X%-16)�32)-15
wv%=28-((Y%+16)�32)
 
Ȏ wv% �
"� 1:�HIHAT
,+?(mem%+((pattern%-1)*256)+wn%-1)=state%
6� 2:�TOM1
@.?(mem%+((pattern%-1)*256)+wn%-1+16)=state%
J� 3:�TOM2
T.?(mem%+((pattern%-1)*256)+wn%-1+32)=state%
^� 4:�TOM3
h.?(mem%+((pattern%-1)*256)+wn%-1+48)=state%
r� 5:�BLOCK1
|.?(mem%+((pattern%-1)*256)+wn%-1+64)=state%
�� 6:�BLOCK2
�.?(mem%+((pattern%-1)*256)+wn%-1+80)=state%
�� 7:�CYMBAL1
�.?(mem%+((pattern%-1)*256)+wn%-1+96)=state%
�� 8:�CYMBAL2
�/?(mem%+((pattern%-1)*256)+wn%-1+112)=state%
�� 9:�ROTOTOM1
�/?(mem%+((pattern%-1)*256)+wn%-1+128)=state%
�� 10:�ROTOTOM2
�/?(mem%+((pattern%-1)*256)+wn%-1+144)=state%
�� 11:�OPEN HIHAT
�/?(mem%+((pattern%-1)*256)+wn%-1+160)=state%
�� 14:�SNARE2
�/?(mem%+((pattern%-1)*256)+wn%-1+208)=state%
�� 15:�SNARE
�/?(mem%+((pattern%-1)*256)+wn%-1+224)=state%
�� 16:�BASS DRUM
�/?(mem%+((pattern%-1)*256)+wn%-1+240)=state%
��
� 
�px%=((X%-16)�32)*32
�py%=((Y%+16)�32)*32
�Px%=(X%-16)�32
�Py%=32-(Y%+16)�32
��Px%,Py%)dot$
��state%=0 �
= �6:�24,528;368;1008;848;5:�px%,py%:�d$:�69,px%+16,py%-32
/ �(px%�128)=0�5:�0,1:�px%+16,py%-32:�1,0,32
�
	�26,4
�
�
& 
0�centre pointer
:��centre
<
�X%>1008�
D�X%<528�
N�Y%>864�
X�Y%<352�
b�4
l�
v�
�r%=(X%-16)�32
��X%>oldx%:�r%>0 X%+=1
��X%<oldx%:�r%>0 X%-=1
�ȗ � X%,Y%
�	�r%=0
��
�o%=(Y%+16)�32
��Y%>oldy%:�o%>0 Y%+=1
��Y%<oldy%:�o%>0 Y%-=1
�ȗ � X%,Y%
�	�o%=0
�oldx%=X%
�oldy%=Y%
�

�PATTERN
��pattern(stp%)
show%=1
showWHAT%=0
 &�Y%>=928:�X%<=256�pattern%-stp%<1�
".�Y%>=928:�X%<=352�X%>256�pattern%+stp%>96�
$&�Y%<=288:�X%<=352�pattern%-stp%<1�
&'�Y%<=288:�X%>=448�pattern%+stp%>96�
*Ȏ where% �
4� 1:
H5�X%<=252�pattern%>stp%pattern%-=stp%:�3,-15,190,2
R'�X%>=320pattern%+=stp%:�3,-15,200,2
\� 3:
p5�X%<=352�pattern%>stp%pattern%-=stp%:�3,-15,190,2
z'�X%>=448pattern%+=stp%:�3,-15,200,2
��
�,pat$=�pattern%:�pattern%<10pat$="0"+pat$
��3:�128:�8,2);pat$
��11,23)" ";pat$
�
�blank
�	�grid
��displaydots(pattern%)
��
� 
��displaydots
���displaydots(P%)
�M%=P%*256+mem%-256
��28,16,21,31,5
��0:�132

�I%=0�255
�M%?I%=1�D$;��9
$�
.�26,4:�:�128
8�
B 
L�SAVE�PATTERNS
V��savepatterns
`ȗ �
j�132:�27,1)�5
t�8,-15,150,3
~�3:�128
��19,1)"Name="
��input(19,1)
�name$=input$
�*add$="<DRUMKIT$dir>.patsNsongs."+name$
�*ș"OS_File",0,add$,mem%,mem%,mem%,end%
�@�1:�132:�19,1)"SAVE"�9:�COLOUR135:COLOUR1:PRINTTAB(23,1)"*"
�0ș "OS_SpriteOp",256+34,S%,"PLAY1",736,960,0
��1:�132:�27,1)"wipe"
�(�COLOUR129:COLOUR7:PRINTTAB(31,1)"*"
�0ș "OS_SpriteOp",256+34,S%,"PLAY1",992,960,0
�ȗ �
��
��LOAD�PATTERNS
���loadpatterns
ȗ �

�8,-15,220,3
�3:�128
�19,2)"Name="
(�input(19,2)
2name$=input$
<*add$="<DRUMKIT$dir>.patsNsongs."+name$
Fș"OS_File",&FF,add$,mem%
P.�1:�132:�20,2)"LOAD"�8:�129:�7:�19,2)"*"
Q0ș "OS_SpriteOp",256+34,S%,"PLAY1",608,928,0
Z �3:�132:�24,3)�8�24,3)name$
dpattern%=0:�pattern(1)
nȗ �
x�
� 
��Tempo
���tempo(step%)
��3,-10,80,3
��X%<=480�tempo%-step%<1�
�&�X%<=480�tempo%>step%tempo%-=step%
�*�X%>=544�tempo%+step%<=96tempo%+=step%
��128:�3
�.tempo$=�tempo%:�tempo%<10tempo$="0"+tempo$
��15,2);tempo$
��
� 
�
�wipe

��wipe
�5,-14,150,2

�blank
	�grid
"P%=pattern%
,
�I%=1�256
6?(mem%+((P%-1)*256)+I%-1)=0
@�
J�
T�STORE BAR OF SONG
^��store
h�store bar
r�X%>=448 �
| �3,-15,230,2
�& ?(storemem%+whichbar%-1)=pattern%
�- pat$=�pattern%:�pattern%<10pat$="0"+pat$
� �3:�128:�11,25)" ";pat$
� �grid:�displaydots(pattern%)
��
� 
��wipe bar
��X%<=352 �
� �3,-15,180,2
� ?(storemem%+whichbar%-1)=0
� pat$="00"
� �3:�128:�11,25)" ";pat$
� 
	�grid
�
 
&�
0 
:�step thru BARS
D��stepbars(step%)
N�X%>=448 �
X �2,-12,240,2
b3 �whichbar%+step%<=storelength%whichbar%+=step%
l! �128:�4:whichbar$=�whichbar%
v9 �whichbar$<3:�whichbar$="0"+whichbar$:��whichbar$=3
� �11,24)whichbar$
�( storedpat%=?(storemem%+whichbar%-1)
�1 pat$=�storedpat%:�storedpat%<10pat$="0"+pat$
� �3:�128:�11,25)" ";pat$
� 
��
��X%<=352 �
�4 �whichbar%-step%>0whichbar%-=step%:�2,-12,200,2
�! �128:�4:whichbar$=�whichbar%
�9 �whichbar$<3:�whichbar$="0"+whichbar$:��whichbar$=3
� �11,24)whichbar$
�( storedpat%=?(storemem%+whichbar%-1)
�1 pat$=�storedpat%:�storedpat%<10pat$="0"+pat$
 �3:�128:�11,25)" ";pat$
�
showWHAT%=1

�blank
	�grid
 �storedpat%=0�
*�displaydots(storedpat%)
,pattern%=storedpat%
.,pat$=�pattern%:�pattern%<10pat$="0"+pat$
/&�3:�128:�8,2);pat$�11,23)" ";pat$
4�
> 
H�PLAY SONG
R��playsong
\ȗ ȓ 448,64,64,64
f%�128:�4:�11,24)"   "�11,25)"   "
p�cont%=0T%=0
z#�IFcont%=1ANDT%>1T%=whichbar%-1
{�cont%=1T%=whichbar%-1
|
�T%<0�
�"ȕ ?(storemem%+T%)>0 � stop%=0
�6�show%=1�blank:�grid:�displaydots(?(storemem%+T%))
�#�4:T$=�(T%+1):�14-�T$,24);T%+1
�9�3:t$=�(?(storemem%+T%)):�14-�t$,25);?(storemem%+T%)
����>tempo%
��playit(?(storemem%+T%))
�	T%+=1
��
�whichbar%=T%
�stop%=0
�ȗ ȓ8,32,1264,960
��
��SAVE A SONG
���savesong
ȗ �
�3:�128
�8,-15,150,3
$�19,29)"Name="
.�input(19,29)
8
N$=input$
B'add$="<DRUMKIT$dir>.patsNsongs."+N$
L�save patterns with a�P
V.ș"OS_File",0,add$+"P",mem%,mem%,mem%,end%
`�save song
j>ș"OS_File",0,add$,storemem%,storemem%,storemem%,storeend%
tB�0:�129:�19,29)"SAVE"�9:�COLOUR1:COLOUR135:PRINTTAB(23,29)"*"
u/ș "OS_SpriteOp",256+34,S%,"PLAY1",736,64,0
~ȗ �
��
� 
��LOAD A SONG
���loadsong
�ȗ �
�%�128:�4:�11,24)"   "�11,25)"   "
��3:�128
��8,-15,220,3
��19,30)"Name="
��input(19,30)
�
N$=input$
�'add$="<DRUMKIT$dir>.patsNsongs."+N$
�load song

"ș"OS_File",&FF,add$,storemem%
�load patterns
!ș"OS_File",&FF,add$+"P",mem%
(B�0:�129:�20,30)"LOAD"�8:�COLOUR4:COLOUR134:PRINTTAB(19,30)"*"
)/ș "OS_SpriteOp",256+34,S%,"PLAY1",608,32,0
2�3:�132:�24,3)�8�24,3)N$
<�4:�128:�13,24)"1"
F3�3:t$=�(?(storemem%)):�14-�t$,25);?(storemem%)
P�whichbar%=1
U
�blank
Z	�grid
d�displaydots(?(storemem%))
nȗ �
s
loaded%=1
x�
��COPY PATTERN
�
��copypat
�Ȏ copy% �
�� 0:
��3,-15,120,2
��137
��12,3)" "
��5
��7,2);"<"�10,2)">"
�patcopy%=pattern%
�copy%=1
� 
�� 1:
�3,-15,80,2
�COLOUR1:COLOUR135
"�PRINTTAB(7,2);"<"TAB(10,2)">"
^ș "OS_SpriteOp",256+34,S%,"LEFT1",224,928,0:ș "OS_SpriteOp",256+34,S%,"RIGHT1",320,928,0
"�COLOUR7:COLOUR129
,�PRINTTAB(12,3)"*"
-0ș "OS_SpriteOp",256+34,S%,"PLAY1",384,896,0
6!from%=mem%+((patcopy%-1)*256)
@!  to%=mem%+((pattern%-1)*256)
J
�I%=0�255
TI%?to%=I%?from%
^�
h	�grid
r�displaydots(patcopy%)
|copy%=0
��
��
� 
��..continue
���continue
�cont%=1
�stop%=0
�
�playsong
�cont%=0
��
� 
��WIPE SONG
���wipesong
��5,-15,120,4
 �I%=storemem% � storeend% �4
	!I%=0
�
!
�blank
&$�grid:�PROCdisplaydots(pattern%)
0whichbar%=1
:�pattern%=1
D�3:�128:�11,25)" 00"
N�4
X�11,24)"001"
b�
l 
v�INSERT
���insert
��5,-13,210,1
�&�I%=storelength% � whichbar%+1 �-1
�!I%?storemem%=I%?(storemem%-1)
��
�#?(storemem%+whichbar%)=pattern%
� �grid:�displaydots(pattern%)
� 
��
� 
��DELETE
���delete
��5,-13,180,1
$�I%=whichbar%-1 � storelength%-1
!I%?storemem%=I%?(storemem%+1)
�
 $�?(storemem%+whichbar%)=pattern%
*$�grid:�PROCdisplaydots(pattern%)
4�
> 
H�Copy block of bars/delete
R��block(case%,step%)
\�128
fȎ case% �
p
�copy to
z� 1:
� �4,-10,222,2
� �4
�= �copyto%-step%>0�copyto%+step%<storelength%�24,23)"000"
�O �X%<=768�copyto%-step%>=1copyto%-=step%:l%=��(copyto%):�27-l%,23);copyto%
�Y �X%>=864�copyto%+step%<storelength%copyto%+=step%:l%=��(copyto%):�27-l%,23);copyto%
� 
�
�from
�� 2:
� �4,-10,202,2
�  �1
�_ �X%<=768�frombar%-step%>=1frombar%-=step%:l%=��(frombar%):�24,24)"000"�27-l%,24);frombar%
� �X%>=864�frombar%+step%<storelength%�frombar%+step%<=tobar%frombar%+=step%:l%=��(frombar%):�24,24)"000"�27-l%,24);frombar%
� 
�to
� 3:
 �4,-10,192,2
$	   �3
.n �X%<=768�tobar%-step%>=1�tobar%-step%>=frombar%tobar%-=step%:l%=��(tobar%):�24,25)"000"�27-l%,25);tobar%
8U �X%>=864�tobar%+step%<storelength%tobar%+=step%:l%=��(tobar%):�27-l%,25);tobar%
B 
L�copy block to
V� 4:
` �5,-10,92,2
j�I%=0 � tobar%-frombar%
t+I%?tempstore%=I%?(storemem%+frombar%-1)
~�
�$�I%=storelength% � copyto%+1 �-1
�3I%?storemem%=I%?(storemem%-(tobar%-frombar%)-1)
��
��I%=0 � tobar%-frombar%
�*I%?(copyto%+storemem%)=I%?(tempstore%)
��
� 
��delete block
�� 5:
� �5,-10,122,2
�!�I%=frombar% � storelength%-1
�3I%?(storemem%-1)=I%?(storemem%+tobar%-frombar%)
�

 
�
 
(�
2 
<�INPUT ROUTINE
F��input(X,Y)
P�3:�128
Z
input$=""
d	G$=""
nx=1
xȕ x<9 � �G$<>13
�G$=�
�5�G$=127�x>1input$=�input$):�X+4+x,Y)G$:�x>1x-=1
�-�(�(G$)<>127)input$+=G$:�X+4+x,Y)G$:x+=1
��
�input$=�input$)
��
� 
��test SOUND
���testsound
�hmm%=16-(Y%-352)�32
�
Ȏ hmm% �
�� 1:�HIHAT
� Ȣ 1,ST%(1)
� �1,V%(1),200,2
� 2:�TOM1
 Ȣ 2,ST%(2)
 �2,V%(2),160,3
� 3:�TOM2
 Ȣ 2,ST%(3)
" �2,V%(3),142,3
,� 4:�TOM3
. Ȣ 2,ST%(4)
6 �2,V%(4),135,3
@� 5:�BLOCK1
B Ȣ 3,ST%(5)
J �3,V%(5),200,5
T� 6:�BLOCK2
V Ȣ 3,ST%(6)
^ �3,V%(6),244,5
_� 7:�CYMBAL1
` Ȣ 4,ST%(7)
b �4,V%(7),160,30
h� 8:�CYMBAL2
i Ȣ 4,ST%(8)
j �4,V%(8),150,30
k� 9:�ROTOTOM1
l Ȣ5,ST%(9)
m �5,V%(9),100,3
n� 10:�ROTOTOM2
o Ȣ5,ST%(10)
p �5,V%(10),90,3
r� 11:�OPEN HIHAT
s Ȣ1,ST%(11)
t �1,V%(11),205,8
| 
� 
�� 14:�SNARE2
� Ȣ 6,ST%(14)
� �6,V%(14),140,3
�� 15:�SNARE
� Ȣ 7,ST%(15)
� �7,V%(15),50,3
�� 16:�BASS DRUM
� Ȣ 8,ST%(16)
� �8,V%(16),50,3
��
��
� 
��SHOW DISPLAY OR NOT
�
��show
��3,-12,90,2
�show%=1-show%
�4�show%=1�showWHAT%=0�grid:�displaydots(pattern%)
 6�show%=1�showWHAT%=1�grid:�displaydots(storedpat%)
 �show%=0�blank
 �
  
 &�blank grid
 0��blank
 1�28,16,20,31,5
 2�132:�:�26:�
 3 
 :�132
 D�24,512;352;1024;864;
 N�
 X�26
 b�
 l 
 v�ERROR
 ���error
 ��3:�129
 �
� �=214 �
 ��129:�3
 �:�13,12)"No such file  "�13,13)"PRESS SPACEBAR":���=32
 �� �
 ��"AT LINE ";�
 ��
 ��
 ��
#( 
#-�VOLUME
#2��volume(step%)
#6�6:�128
#<�X%>=96vol%=-step%
#>�X%<96vol%=step%
#Fvoi%=(896-Y%)�32
#H�V%(voi%)+vol%>0�
#I�V%(voi%)+vol%<-15�
#JV%(voi%)+=vol%
#N%�V%(voi%)>9�1,voi%+4);�V%(voi%)
#P*�V%(voi%)<10�1,voi%+4);" ";�V%(voi%)
#n�testsound
#x�
#��S-T-E-R-E-O
#���stereo
#��X%<=1056�
#��Y%<356�Y%>864�
#��6:�128
#�voi%=(896-Y%)�32
#�val%=(X%-1024)�32
#��33,4+voi%)"*******"
#��3
#��32+val%,4+voi%)"*"
#�Ȣ voi%,SV%(val%)
#�ST%(voi%)=SV%(val%)
#��testsound
#��
$T 
$^�bars 16/16,12/16 etc
$h��bars(step%)
$jshow%=1
$n�3,-15,160,1
$r�X%<=640 �
$| �bar%-step%>0bar%-=step%
$��
$� 
$��X%>=704 �
$� �bar%+step%<17bar%+=step%
$��
$��3:�128
$�*�bar%>9�20,21);bar%��20,21);"0";bar%
$�%�altergrid:�displaydots(pattern%)
$��
$��alter GRID
$���altergrid
$��28,16,20,31,5
$�
�132:�
$�"�24,512;352;496+(bar%*32);860;
$�+ș "OS_SpriteOp",256+34,g%,g$,512,352,0
$��
$� 
$��GRAB GRID
$���grabgrid
%3�26
%4size%=9000
%:
g$="grab"
%D� g% size%
%Ng%!0=size%
%Xg%!8=16
%bș "OS_SpriteOp",256+9,g%
%g 
%l4ș "OS_SpriteOp",256+16,g%,g$,0,512,352,1020,860
%q 
%s�
%t 
%��MASTER�VOLUME
%���mastervol(step%)
%��3:�128
%��3,-15,150,1
%��mastvol%+step%>15�
%��mastvol%+step%<1�
%�mastvol%+=step%
%�4�mastvol%>9�1,23);mastvol%��1,23);"0";mastvol%
%�gain%=(mastvol%+1)*2+95
%�ș "Sound_Volume",gain%
&>�
&H 
.��LOAD SCREEN
.���loadscreen
.�!s$="<DRUMKIT$dir>.KITPICFILE"
.�file%=�(s$)
.�L%=�#file%+64
/�#file%
/� S% L%
/S%!0=L%
/&ș "OS_SpriteOp",256+9,S%
/0!ș "OS_SpriteOp",256+10,S%,s$
/:+ș "OS_SpriteOp",256+34,S%,"PIC2",0,0,0
/?�
6� 
6� �instrument names on screen
6���names
6�	��tXz
6��26
6��6
6��132
6��I%=1�16
6��A$
6��A$+="-":��A$=10
6��6
7�6,I%+4)A$
7
�1
7�5,I%+4)"*"
7�
7(�
7- 
:��Instrument names
:�
�hihat
:��tomtom1
:��tomtom2
:��tomtom3
:��block1
:��block2
:�
�cymbal-1
:�
�cymbal-2
:��rototom-1
:��rototom-2
;�hihat(op)
;�x
;�x
;$�snare-2
;.
�snare
;8
�bassdrum
�

00000000  0d 00 0a 1a f4 3e 20 3c  44 52 55 4d 4b 49 54 24  |.....> <DRUMKIT$|
00000010  64 69 72 3e 2e 4b 49 54  37 35 0d 00 14 0f f4 20  |dir>.KIT75..... |
00000020  31 37 20 4d 41 59 20 39  32 0d 00 1e 05 f4 0d 00  |17 MAY 92.......|
00000030  28 1f 2a 4b 45 59 33 4d  4f 44 45 37 7c 4d 4c 2e  |(.*KEY3MODE7|ML.|
00000040  31 31 32 30 2c 31 32 35  30 7c 4e 7c 4d 0d 00 32  |1120,1250|N|M..2|
00000050  1f 2a 4b 45 59 34 4d 4f  44 45 37 7c 4d 4c 2e 31  |.*KEY4MODE7|ML.1|
00000060  37 30 30 2c 31 38 30 30  7c 4e 7c 4d 0d 00 3c 1f  |700,1800|N|M..<.|
00000070  2a 4b 45 59 35 4d 4f 44  45 37 7c 4d 4c 2e 31 38  |*KEY5MODE7|ML.18|
00000080  33 30 2c 31 39 33 30 7c  4e 7c 4d 0d 00 46 1f 2a  |30,1930|N|M..F.*|
00000090  4b 45 59 36 4d 4f 44 45  37 7c 4d 4c 2e 32 31 31  |KEY6MODE7|ML.211|
000000a0  30 2c 32 34 35 30 7c 4e  7c 4d 0d 00 50 1c 2a 4b  |0,2450|N|M..P.*K|
000000b0  45 59 37 4d 4f 44 45 37  7c 4d 4c 2e 31 35 30 30  |EY7MODE7|ML.1500|
000000c0  30 2c 7c 4e 7c 4d 0d 00  5a 1f 2a 4b 45 59 38 4d  |0,|N|M..Z.*KEY8M|
000000d0  4f 44 45 37 7c 4d 4c 2e  34 30 31 30 2c 34 33 38  |ODE7|ML.4010,438|
000000e0  30 7c 4e 7c 4d 0d 00 5c  20 2a 4b 45 59 31 30 4d  |0|N|M..\ *KEY10M|
000000f0  4f 44 45 37 7c 4d 4c 2e  37 38 38 30 2c 38 31 33  |ODE7|ML.7880,813|
00000100  30 7c 4e 7c 4d 0d 00 5e  20 2a 4b 45 59 31 31 4d  |0|N|M..^ *KEY11M|
00000110  4f 44 45 37 7c 4d 4c 2e  32 37 33 30 2c 32 38 39  |ODE7|ML.2730,289|
00000120  30 7c 4e 7c 4d 0d 00 5f  1c 2a 4b 45 59 31 32 4d  |0|N|M.._.*KEY12M|
00000130  4f 44 45 37 7c 4d 4c 2e  39 34 30 30 2c 7c 4e 7c  |ODE7|ML.9400,|N||
00000140  4d 0d 00 61 05 20 0d 00  64 05 f4 0d 00 6e 08 eb  |M..a. ..d....n..|
00000150  39 3a 87 0d 00 6f 16 ef  31 39 2c 38 2c 31 36 2c  |9:...o..19,8,16,|
00000160  30 2c 26 46 30 2c 26 46  30 0d 00 70 14 ef 31 39  |0,&F0,&F0..p..19|
00000170  2c 39 2c 31 36 2c 30 2c  30 2c 26 46 30 0d 00 71  |,9,16,0,0,&F0..q|
00000180  15 ef 31 39 2c 31 30 2c  31 36 2c 30 2c 26 46 30  |..19,10,16,0,&F0|
00000190  2c 30 0d 00 72 16 ef 31  39 2c 31 31 2c 31 36 2c  |,0..r..19,11,16,|
000001a0  38 35 2c 31 33 36 2c 30  0d 00 73 19 ef 31 39 2c  |85,136,0..s..19,|
000001b0  31 32 2c 31 36 2c 26 46  30 2c 26 46 30 2c 26 46  |12,16,&F0,&F0,&F|
000001c0  30 0d 00 74 19 ef 31 39  2c 31 33 2c 31 36 2c 32  |0..t..19,13,16,2|
000001d0  33 38 2c 32 33 38 2c 31  38 37 0d 00 75 17 ef 31  |38,238,187..u..1|
000001e0  39 2c 31 34 2c 31 36 2c  32 35 35 2c 31 38 37 2c  |9,14,16,255,187,|
000001f0  30 0d 00 76 19 ef 31 39  2c 31 35 2c 31 36 2c 32  |0..v..19,15,16,2|
00000200  32 31 2c 32 32 31 2c 32  32 31 0d 00 78 18 ef 31  |21,221,221..x..1|
00000210  39 2c 31 2c 31 36 2c 26  42 30 2c 26 35 30 2c 26  |9,1,16,&B0,&50,&|
00000220  33 30 0d 00 82 18 ef 31  39 2c 32 2c 31 36 2c 26  |30.....19,2,16,&|
00000230  42 30 2c 26 41 30 2c 26  41 30 0d 00 8c 18 ef 31  |B0,&A0,&A0.....1|
00000240  39 2c 33 2c 31 36 2c 26  44 30 2c 26 43 30 2c 26  |9,3,16,&D0,&C0,&|
00000250  36 30 0d 00 96 18 ef 31  39 2c 34 2c 31 36 2c 26  |60.....19,4,16,&|
00000260  34 30 2c 26 35 30 2c 26  35 30 0d 00 a0 18 ef 31  |40,&50,&50.....1|
00000270  39 2c 35 2c 31 36 2c 26  38 30 2c 26 38 30 2c 26  |9,5,16,&80,&80,&|
00000280  38 30 0d 00 aa 18 ef 31  39 2c 36 2c 31 36 2c 26  |80.....19,6,16,&|
00000290  38 30 2c 26 38 30 2c 26  39 30 0d 00 b4 18 ef 31  |80,&80,&90.....1|
000002a0  39 2c 37 2c 31 36 2c 26  44 30 2c 26 44 30 2c 26  |9,7,16,&D0,&D0,&|
000002b0  41 30 0d 00 b5 13 f4 85  42 6f 72 64 65 72 20 63  |A0......Border c|
000002c0  6f 6c 6f 75 72 0d 00 b6  18 ef 31 39 2c 31 2c 32  |olour.....19,1,2|
000002d0  34 2c 26 38 30 2c 26 38  30 2c 26 38 30 0d 00 b8  |4,&80,&80,&80...|
000002e0  05 20 0d 00 b9 11 f4 82  4c 4f 41 44 20 53 43 52  |. ......LOAD SCR|
000002f0  45 45 4e 0d 00 be 0f f2  6c 6f 61 64 73 63 72 65  |EEN.....loadscre|
00000300  65 6e 0d 00 bf 05 20 0d  00 c8 25 f4 83 54 6f 74  |en.... ...%..Tot|
00000310  61 6c 20 6e 75 6d 20 6f  66 20 64 69 66 66 65 72  |al num of differ|
00000320  65 6e 74 20 70 61 74 74  65 72 6e 73 0d 00 cd 10  |ent patterns....|
00000330  74 6f 74 61 6c 70 61 74  25 3d 39 36 0d 00 d2 05  |totalpat%=96....|
00000340  20 0d 00 d7 1b f4 81 6e  75 6d 20 6f 66 20 6e 6f  | ......num of no|
00000350  74 65 73 20 69 6e 20 61  20 62 61 72 0d 00 dc 0b  |tes in a bar....|
00000360  62 61 72 25 3d 31 36 0d  00 f0 05 20 0d 00 f1 11  |bar%=16.... ....|
00000370  6c 65 6e 67 74 68 25 3d  32 34 35 37 36 0d 00 f2  |length%=24576...|
00000380  14 73 74 6f 72 65 6c 65  6e 67 74 68 25 3d 35 31  |.storelength%=51|
00000390  32 0d 00 f3 1c f4 74 65  6d 70 73 74 6f 72 65 25  |2.....tempstore%|
000003a0  3d 73 74 6f 72 65 6c 65  6e 67 74 68 25 0d 00 f6  |=storelength%...|
000003b0  05 20 0d 00 fa 0f f2 69  6e 69 74 76 6f 69 63 65  |. .....initvoice|
000003c0  73 0d 01 04 0b f2 61 72  72 61 79 73 0d 01 06 0d  |s.....arrays....|
000003d0  f2 67 72 61 62 67 72 69  64 0d 01 07 05 20 0d 01  |.grabgrid.... ..|
000003e0  08 15 65 6e 64 25 3d 6d  65 6d 25 2b 6c 65 6e 67  |..end%=mem%+leng|
000003f0  74 68 25 0d 01 09 24 73  74 6f 72 65 65 6e 64 25  |th%...$storeend%|
00000400  3d 73 74 6f 72 65 6d 65  6d 25 2b 73 74 6f 72 65  |=storemem%+store|
00000410  6c 65 6e 67 74 68 25 0d  01 0e 05 20 0d 01 10 05  |length%.... ....|
00000420  f5 0d 01 12 0c 72 65 73  65 74 25 3d 30 0d 01 13  |.....reset%=0...|
00000430  0d 6c 6f 61 64 65 64 25  3d 30 0d 01 14 0f 73 68  |.loaded%=0....sh|
00000440  6f 77 57 48 41 54 25 3d  30 0d 01 15 0f 2a 56 4f  |owWHAT%=0....*VO|
00000450  4c 55 4d 45 20 31 32 37  0d 01 18 05 20 0d 01 1d  |LUME 127.... ...|
00000460  0e ee 20 85 20 f2 65 72  72 6f 72 0d 01 22 05 20  |.. . .error..". |
00000470  0d 01 2c 09 f2 69 6e 69  74 0d 01 36 0a f2 69 6e  |..,..init..6..in|
00000480  69 74 32 0d 01 37 05 20  0d 01 38 0b f2 6d 65 6d  |it2..7. ..8..mem|
00000490  6f 72 79 0d 01 39 05 20  0d 01 41 05 20 0d 01 57  |ory..9. ..A. ..W|
000004a0  05 f7 0d 01 58 18 f4 85  52 65 61 64 20 53 74 65  |....X...Read Ste|
000004b0  72 65 6f 20 56 61 6c 75  65 73 0d 01 59 16 e3 49  |reo Values..Y..I|
000004c0  25 3d 31 b8 37 3a f3 53  56 25 28 49 25 29 3a ed  |%=1.7:.SV%(I%):.|
000004d0  0d 01 5a 1b dc 2d 38 30  2c 2d 34 38 2c 2d 31 36  |..Z..-80,-48,-16|
000004e0  2c 30 2c 31 36 2c 34 38  2c 38 30 0d 01 5b 05 20  |,0,16,48,80..[. |
000004f0  0d 01 5c 0a f2 6e 61 6d  65 73 0d 01 5e 0e f2 69  |..\..names..^..i|
00000500  6e 69 74 6d 6f 75 73 65  0d 01 68 0f f2 70 61 74  |nitmouse..h..pat|
00000510  74 65 72 6e 28 31 29 0d  01 72 05 20 0d 01 7c 05  |tern(1)..r. ..|.|
00000520  20 0d 01 86 05 f5 0d 01  90 1e f5 3a c8 97 58 25  | ..........:..X%|
00000530  2c 59 25 2c 5a 25 3a f2  63 65 6e 74 72 65 3a fd  |,Y%,Z%:.centre:.|
00000540  5a 25 3d 30 0d 01 9a 1f  f5 3a c8 97 58 25 2c 59  |Z%=0.....:..X%,Y|
00000550  25 2c 5a 25 3a f2 63 65  6e 74 72 65 3a fd 5a 25  |%,Z%:.centre:.Z%|
00000560  3c 3e 30 0d 01 a4 05 20  0d 01 ae 1f f4 85 77 68  |<>0.... ......wh|
00000570  69 63 68 20 61 72 65 61  20 69 73 20 70 6f 69 6e  |ich area is poin|
00000580  74 65 72 20 69 6e 3f 0d  01 b8 2d e7 58 25 3e 3d  |ter in?...-.X%>=|
00000590  35 32 38 80 58 25 3c 3d  31 30 30 38 80 59 25 3c  |528.X%<=1008.Y%<|
000005a0  3d 38 36 34 80 59 25 3e  3d 33 36 38 77 68 65 72  |=864.Y%>=368wher|
000005b0  65 25 3d 30 0d 01 c2 13  e7 59 25 3e 38 36 34 77  |e%=0.....Y%>864w|
000005c0  68 65 72 65 25 3d 31 0d  01 cc 22 e7 58 25 3c 35  |here%=1...".X%<5|
000005d0  32 38 80 59 25 3c 3d 38  36 34 80 59 25 3e 33 35  |28.Y%<=864.Y%>35|
000005e0  32 77 68 65 72 65 25 3d  32 0d 01 d6 13 e7 59 25  |2where%=2.....Y%|
000005f0  3c 33 35 32 77 68 65 72  65 25 3d 33 0d 01 d8 14  |<352where%=3....|
00000600  e7 58 25 3e 31 30 35 36  77 68 65 72 65 25 3d 34  |.X%>1056where%=4|
00000610  0d 01 e0 3d f4 43 4f 4c  4f 55 52 33 3a 43 4f 4c  |...=.COLOUR3:COL|
00000620  4f 55 52 31 32 38 3a 50  52 49 4e 54 54 41 42 28  |OUR128:PRINTTAB(|
00000630  30 2c 30 29 3b 77 68 65  72 65 25 3b 22 20 22 3b  |0,0);where%;" ";|
00000640  58 25 3b 22 20 22 3b 59  25 3b 22 20 22 0d 01 ea  |X%;" ";Y%;" "...|
00000650  05 20 0d 01 f4 0f c8 8e  20 77 68 65 72 65 25 20  |. ...... where% |
00000660  ca 0d 01 fe 0e f4 86 77  68 65 72 65 25 3d 30 0d  |.......where%=0.|
00000670  02 08 08 c9 20 30 3a 0d  02 12 0e c8 97 58 25 2c  |.... 0:......X%,|
00000680  59 25 2c 5a 25 0d 02 1c  0b c8 8e 20 5a 25 20 ca  |Y%,Z%...... Z% .|
00000690  0d 02 26 31 c9 20 34 3a  f2 66 69 78 28 31 2c 30  |..&1. 4:.fix(1,0|
000006a0  2c 44 24 29 3a f2 74 65  73 74 73 6f 75 6e 64 3a  |,D$):.testsound:|
000006b0  f4 53 4f 55 4e 44 32 2c  2d 31 35 2c 32 30 30 2c  |.SOUND2,-15,200,|
000006c0  31 0d 02 30 21 c9 20 32  3a f2 66 69 78 28 30 2c  |1..0!. 2:.fix(0,|
000006d0  34 2c 44 24 29 3a d4 32  2c 2d 31 35 2c 32 34 30  |4,D$):.2,-15,240|
000006e0  2c 31 0d 02 3a 14 c9 20  31 3a f2 70 6c 61 79 70  |,1..:.. 1:.playp|
000006f0  61 74 74 65 72 6e 0d 02  44 05 cb 0d 02 4e 0e f4  |attern..D....N..|
00000700  83 3d 3d 3d 3d 3d 3d 3d  3d 0d 02 58 0e f4 81 77  |.========..X...w|
00000710  68 65 72 65 25 3d 31 0d  02 62 08 c9 20 31 3a 0d  |here%=1..b.. 1:.|
00000720  02 6c 0e c8 97 58 25 2c  59 25 2c 5a 25 0d 02 76  |.l...X%,Y%,Z%..v|
00000730  0b c8 8e 20 5a 25 20 ca  0d 02 80 08 c9 20 32 3a  |... Z% ...... 2:|
00000740  0d 02 8a 31 20 e7 59 25  3e 3d 39 32 38 80 59 25  |...1 .Y%>=928.Y%|
00000750  3c 3d 39 35 36 80 58 25  3e 3d 32 32 34 80 58 25  |<=956.X%>=224.X%|
00000760  3c 3d 33 34 38 f2 70 61  74 74 65 72 6e 28 31 30  |<=348.pattern(10|
00000770  29 0d 02 94 30 20 20 e7  58 25 3e 3d 34 34 38 80  |)...0  .X%>=448.|
00000780  58 25 3c 3d 35 37 36 80  59 25 3c 3d 39 35 36 80  |X%<=576.Y%<=956.|
00000790  59 25 3e 3d 39 32 38 f2  74 65 6d 70 6f 28 31 30  |Y%>=928.tempo(10|
000007a0  29 0d 02 9e 08 c9 20 34  3a 0d 02 a0 2b 20 e7 58  |)..... 4:...+ .X|
000007b0  25 3e 3d 33 32 80 58 25  3c 3d 39 36 80 59 25 3e  |%>=32.X%<=96.Y%>|
000007c0  3d 39 36 30 80 59 25 3c  3d 39 39 32 72 65 73 65  |=960.Y%<=992rese|
000007d0  74 25 3d 31 0d 02 a8 31  20 20 e7 59 25 3e 3d 39  |t%=1...1  .Y%>=9|
000007e0  32 38 80 59 25 3c 3d 39  35 36 80 58 25 3e 3d 32  |28.Y%<=956.X%>=2|
000007f0  32 34 80 58 25 3c 3d 33  34 38 f2 70 61 74 74 65  |24.X%<=348.patte|
00000800  72 6e 28 31 29 0d 02 b2  34 20 20 20 e7 58 25 3e  |rn(1)...4   .X%>|
00000810  3d 37 33 36 80 58 25 3c  3d 37 36 34 80 59 25 3c  |=736.X%<=764.Y%<|
00000820  3d 39 39 32 80 59 25 3e  3d 39 36 30 f2 73 61 76  |=992.Y%>=960.sav|
00000830  65 70 61 74 74 65 72 6e  73 0d 02 bc 34 20 20 20  |epatterns...4   |
00000840  e7 58 25 3e 3d 36 30 38  80 58 25 3c 3d 36 34 30  |.X%>=608.X%<=640|
00000850  80 59 25 3c 3d 39 35 36  80 59 25 3e 3d 39 32 38  |.Y%<=956.Y%>=928|
00000860  f2 6c 6f 61 64 70 61 74  74 65 72 6e 73 0d 02 c6  |.loadpatterns...|
00000870  32 20 20 20 e7 58 25 3e  3d 33 32 30 80 58 25 3c  |2   .X%>=320.X%<|
00000880  3d 33 34 38 80 59 25 3c  39 32 34 80 59 25 3e 3d  |=348.Y%<924.Y%>=|
00000890  38 39 36 f2 70 6c 61 79  70 61 74 74 65 72 6e 0d  |896.playpattern.|
000008a0  02 d0 30 20 20 20 e7 58  25 3e 3d 34 34 38 80 58  |..0   .X%>=448.X|
000008b0  25 3c 3d 35 37 36 80 59  25 3c 3d 39 35 36 80 59  |%<=576.Y%<=956.Y|
000008c0  25 3e 3d 39 32 38 f2 74  65 6d 70 6f 28 31 29 0d  |%>=928.tempo(1).|
000008d0  02 da 2d 20 20 20 e7 58  25 3e 3d 39 39 32 80 58  |..-   .X%>=992.X|
000008e0  25 3c 3d 31 30 32 34 80  59 25 3c 3d 39 39 32 80  |%<=1024.Y%<=992.|
000008f0  59 25 3e 3d 39 36 30 f2  77 69 70 65 0d 02 e4 2d  |Y%>=960.wipe...-|
00000900  20 20 e7 58 25 3e 33 38  34 80 58 25 3c 3d 34 31  |  .X%>384.X%<=41|
00000910  36 80 59 25 3c 3d 39 32  38 80 59 25 3e 3d 38 39  |6.Y%<=928.Y%>=89|
00000920  36 f2 63 6f 70 79 70 61  74 0d 02 ee 05 cb 0d 02  |6.copypat.......|
00000930  f8 05 20 0d 03 02 0e f4  86 77 68 65 72 65 25 3d  |.. ......where%=|
00000940  32 0d 03 0c 1a c9 20 32  3a e7 58 25 3e 3d 31 36  |2..... 2:.X%>=16|
00000950  30 f2 74 65 73 74 73 6f  75 6e 64 0d 03 0e 21 20  |0.testsound...! |
00000960  20 20 20 20 20 20 e7 58  25 3c 31 36 30 80 5a 25  |      .X%<160.Z%|
00000970  3d 34 f2 76 6f 6c 75 6d  65 28 31 29 0d 03 10 21  |=4.volume(1)...!|
00000980  20 20 20 20 20 20 20 e7  58 25 3c 31 36 30 80 5a  |       .X%<160.Z|
00000990  25 3d 32 f2 76 6f 6c 75  6d 65 28 35 29 0d 03 16  |%=2.volume(5)...|
000009a0  0e f4 85 77 68 65 72 65  25 3d 33 0d 03 20 12 c9  |...where%=3.. ..|
000009b0  20 33 3a c8 97 58 25 2c  59 25 2c 5a 25 0d 03 2a  | 3:..X%,Y%,Z%..*|
000009c0  0b c8 8e 20 5a 25 20 ca  0d 03 34 08 c9 20 34 3a  |... Z% ...4.. 4:|
000009d0  0d 03 3e 30 20 e7 58 25  3e 3d 33 32 30 80 58 25  |..>0 .X%>=320.X%|
000009e0  3c 3d 34 38 30 80 59 25  3c 3d 32 38 38 80 59 25  |<=480.Y%<=288.Y%|
000009f0  3e 3d 32 35 36 f2 70 61  74 74 65 72 6e 28 31 29  |>=256.pattern(1)|
00000a00  0d 03 48 2a 20 e7 58 25  3e 3d 33 32 30 80 58 25  |..H* .X%>=320.X%|
00000a10  3c 3d 34 38 30 80 59 25  3c 32 32 34 80 59 25 3e  |<=480.Y%<224.Y%>|
00000a20  3d 31 39 32 f2 73 74 6f  72 65 0d 03 52 31 20 e7  |=192.store..R1 .|
00000a30  58 25 3e 3d 33 32 30 80  58 25 3c 3d 34 38 30 80  |X%>=320.X%<=480.|
00000a40  59 25 3c 3d 32 35 36 80  59 25 3e 3d 32 32 34 f2  |Y%<=256.Y%>=224.|
00000a50  73 74 65 70 62 61 72 73  28 31 29 0d 03 5c 2e 20  |stepbars(1)..\. |
00000a60  20 e7 58 25 3e 3d 34 34  38 80 58 25 3c 3d 35 31  | .X%>=448.X%<=51|
00000a70  32 80 59 25 3c 3d 31 32  38 80 59 25 3e 3d 36 34  |2.Y%<=128.Y%>=64|
00000a80  f2 70 6c 61 79 73 6f 6e  67 0d 03 66 2c 20 20 e7  |.playsong..f,  .|
00000a90  58 25 3e 3d 34 34 38 80  58 25 3c 3d 34 38 30 80  |X%>=448.X%<=480.|
00000aa0  59 25 3c 36 34 80 59 25  3e 3d 33 32 f2 63 6f 6e  |Y%<64.Y%>=32.con|
00000ab0  74 69 6e 75 65 0d 03 70  2c 20 e7 58 25 3e 3d 36  |tinue..p, .X%>=6|
00000ac0  30 38 80 58 25 3c 3d 36  34 30 80 59 25 3c 3d 36  |08.X%<=640.Y%<=6|
00000ad0  30 80 59 25 3e 3d 33 32  f2 6c 6f 61 64 73 6f 6e  |0.Y%>=32.loadson|
00000ae0  67 0d 03 7a 2c 20 e7 58  25 3e 3d 37 33 36 80 58  |g..z, .X%>=736.X|
00000af0  25 3c 3d 37 36 38 80 59  25 3c 3d 39 36 80 59 25  |%<=768.Y%<=96.Y%|
00000b00  3e 3d 36 34 f2 73 61 76  65 73 6f 6e 67 0d 03 84  |>=64.savesong...|
00000b10  2b 20 e7 58 25 3e 3d 31  36 30 80 58 25 3c 3d 31  |+ .X%>=160.X%<=1|
00000b20  39 32 80 59 25 3c 3d 31  32 38 80 59 25 3e 3d 39  |92.Y%<=128.Y%>=9|
00000b30  36 f2 64 65 6c 65 74 65  0d 03 8e 2f 20 e7 58 25  |6.delete.../ .X%|
00000b40  3e 3d 39 39 32 80 58 25  3c 3d 31 30 32 34 80 59  |>=992.X%<=1024.Y|
00000b50  25 3c 3d 31 36 30 80 59  25 3e 3d 31 32 38 f2 77  |%<=160.Y%>=128.w|
00000b60  69 70 65 73 6f 6e 67 0d  03 98 2c 20 e7 58 25 3e  |ipesong..., .X%>|
00000b70  3d 33 35 32 80 58 25 3c  3d 33 38 34 80 59 25 3c  |=352.X%<=384.Y%<|
00000b80  3d 31 36 30 80 59 25 3e  3d 31 32 38 f2 69 6e 73  |=160.Y%>=128.ins|
00000b90  65 72 74 0d 03 a2 2f 20  e7 58 25 3e 3d 37 33 36  |ert.../ .X%>=736|
00000ba0  80 58 25 3c 38 39 36 80  59 25 3c 3d 32 38 38 80  |.X%<896.Y%<=288.|
00000bb0  59 25 3e 3d 32 35 36 f2  62 6c 6f 63 6b 28 31 2c  |Y%>=256.block(1,|
00000bc0  31 29 0d 03 ac 2e 20 e7  58 25 3e 3d 37 33 36 80  |1).... .X%>=736.|
00000bd0  58 25 3c 38 39 36 80 59  25 3c 32 35 36 80 59 25  |X%<896.Y%<256.Y%|
00000be0  3e 3d 32 32 34 f2 62 6c  6f 63 6b 28 32 2c 31 29  |>=224.block(2,1)|
00000bf0  0d 03 b6 2e 20 e7 58 25  3e 3d 37 33 36 80 58 25  |.... .X%>=736.X%|
00000c00  3c 38 39 36 80 59 25 3c  32 32 34 80 59 25 3e 3d  |<896.Y%<224.Y%>=|
00000c10  31 39 32 f2 62 6c 6f 63  6b 28 33 2c 31 29 0d 03  |192.block(3,1)..|
00000c20  c0 2f 20 e7 58 25 3e 3d  35 31 32 80 58 25 3c 35  |./ .X%>=512.X%<5|
00000c30  34 34 80 59 25 3c 3d 32  38 38 80 59 25 3e 3d 32  |44.Y%<=288.Y%>=2|
00000c40  35 36 f2 62 6c 6f 63 6b  28 34 2c 31 29 0d 03 ca  |56.block(4,1)...|
00000c50  2f 20 e7 58 25 3e 3d 35  31 32 80 58 25 3c 35 34  |/ .X%>=512.X%<54|
00000c60  34 80 59 25 3c 3d 31 39  32 80 59 25 3e 3d 31 36  |4.Y%<=192.Y%>=16|
00000c70  30 f2 62 6c 6f 63 6b 28  35 2c 31 29 0d 03 d4 2b  |0.block(5,1)...+|
00000c80  20 e7 58 25 3e 3d 39 39  32 80 58 25 3c 3d 31 30  | .X%>=992.X%<=10|
00000c90  32 34 80 59 25 3c 3d 33  35 32 80 59 25 3e 3d 33  |24.Y%<=352.Y%>=3|
00000ca0  32 30 f2 73 68 6f 77 0d  03 d6 2c 20 e7 58 25 3e  |20.show..., .X%>|
00000cb0  3d 36 30 38 80 58 25 3c  37 33 36 80 59 25 3c 3d  |=608.X%<736.Y%<=|
00000cc0  33 35 32 80 59 25 3e 3d  33 32 30 f2 62 61 72 73  |352.Y%>=320.bars|
00000cd0  28 31 29 0d 03 d7 2a 20  e7 58 25 3c 3d 33 32 80  |(1)...* .X%<=32.|
00000ce0  59 25 3c 3d 32 38 38 80  59 25 3e 3d 32 35 36 f2  |Y%<=288.Y%>=256.|
00000cf0  6d 61 73 74 65 72 76 6f  6c 28 2d 31 29 0d 03 d8  |mastervol(-1)...|
00000d00  31 20 e7 58 25 3e 3d 39  36 80 58 25 3c 3d 31 32  |1 .X%>=96.X%<=12|
00000d10  38 80 59 25 3c 3d 32 38  38 80 59 25 3e 3d 32 35  |8.Y%<=288.Y%>=25|
00000d20  36 f2 6d 61 73 74 65 72  76 6f 6c 28 31 29 0d 03  |6.mastervol(1)..|
00000d30  de 08 c9 20 32 3a 0d 03  e0 2a 20 e7 58 25 3c 3d  |... 2:...* .X%<=|
00000d40  33 32 80 59 25 3c 3d 32  38 38 80 59 25 3e 3d 32  |32.Y%<=288.Y%>=2|
00000d50  35 36 f2 6d 61 73 74 65  72 76 6f 6c 28 2d 35 29  |56.mastervol(-5)|
00000d60  0d 03 e1 31 20 e7 58 25  3e 3d 39 36 80 58 25 3c  |...1 .X%>=96.X%<|
00000d70  3d 31 32 38 80 59 25 3c  3d 32 38 38 80 59 25 3e  |=128.Y%<=288.Y%>|
00000d80  3d 32 35 36 f2 6d 61 73  74 65 72 76 6f 6c 28 35  |=256.mastervol(5|
00000d90  29 0d 03 e8 32 20 e7 58  25 3e 3d 33 32 30 80 58  |)...2 .X%>=320.X|
00000da0  25 3c 3d 34 38 30 80 59  25 3c 3d 32 35 36 80 59  |%<=480.Y%<=256.Y|
00000db0  25 3e 3d 32 32 34 f2 73  74 65 70 62 61 72 73 28  |%>=224.stepbars(|
00000dc0  31 30 29 0d 03 f2 31 20  e7 58 25 3e 3d 33 32 30  |10)...1 .X%>=320|
00000dd0  80 58 25 3c 3d 34 38 30  80 59 25 3c 3d 32 38 38  |.X%<=480.Y%<=288|
00000de0  80 59 25 3e 3d 32 35 36  f2 70 61 74 74 65 72 6e  |.Y%>=256.pattern|
00000df0  28 31 30 29 0d 03 fc 30  20 e7 58 25 3e 3d 37 33  |(10)...0 .X%>=73|
00000e00  36 80 58 25 3c 38 39 36  80 59 25 3c 3d 32 38 38  |6.X%<896.Y%<=288|
00000e10  80 59 25 3e 3d 32 35 36  f2 62 6c 6f 63 6b 28 31  |.Y%>=256.block(1|
00000e20  2c 31 30 29 0d 04 06 2f  20 e7 58 25 3e 3d 37 33  |,10).../ .X%>=73|
00000e30  36 80 58 25 3c 38 39 36  80 59 25 3c 32 35 36 80  |6.X%<896.Y%<256.|
00000e40  59 25 3e 3d 32 32 34 f2  62 6c 6f 63 6b 28 32 2c  |Y%>=224.block(2,|
00000e50  31 30 29 0d 04 10 2f 20  e7 58 25 3e 3d 37 33 36  |10).../ .X%>=736|
00000e60  80 58 25 3c 38 39 36 80  59 25 3c 32 32 34 80 59  |.X%<896.Y%<224.Y|
00000e70  25 3e 3d 31 39 32 f2 62  6c 6f 63 6b 28 33 2c 31  |%>=192.block(3,1|
00000e80  30 29 0d 04 12 2c 20 e7  58 25 3e 3d 36 30 38 80  |0)..., .X%>=608.|
00000e90  58 25 3c 37 33 36 80 59  25 3c 3d 33 35 32 80 59  |X%<736.Y%<=352.Y|
00000ea0  25 3e 3d 33 32 30 f2 62  61 72 73 28 34 29 0d 04  |%>=320.bars(4)..|
00000eb0  1a 05 cb 0d 04 1c 0e f4  82 77 68 65 72 65 25 3d  |.........where%=|
00000ec0  34 0d 04 1e 08 c9 20 34  3a 0d 04 20 0b f2 73 74  |4..... 4:.. ..st|
00000ed0  65 72 65 6f 0d 04 24 05  20 0d 04 2e 05 cb 0d 04  |ereo..$. .......|
00000ee0  38 0d fd 72 65 73 65 74  25 3d 31 0d 04 39 05 20  |8..reset%=1..9. |
00000ef0  0d 04 3a 0c e3 4a 25 3d  31 b8 31 32 0d 04 3b 17  |..:..J%=1.12..;.|
00000f00  d4 33 2c 2d 31 35 2c 31  36 30 2b 28 4a 25 2a 34  |.3,-15,160+(J%*4|
00000f10  29 2c 31 0d 04 3c 0e e3  54 3d 31 b8 34 30 30 3a  |),1..<..T=1.400:|
00000f20  ed 0d 04 3d 05 ed 0d 04  3e 2b c8 99 20 22 4f 53  |...=....>+.. "OS|
00000f30  5f 53 70 72 69 74 65 4f  70 22 2c 32 35 36 2b 33  |_SpriteOp",256+3|
00000f40  34 2c 53 25 2c 22 50 49  43 32 22 2c 30 2c 30 2c  |4,S%,"PIC2",0,0,|
00000f50  30 0d 04 40 06 fd 30 0d  04 42 05 20 0d 04 4c 05  |0..@..0..B. ..L.|
00000f60  e0 0d 04 56 05 20 0d 04  60 17 f4 84 49 6e 69 74  |...V. ..`...Init|
00000f70  69 61 6c 69 73 65 20 76  6f 69 63 65 73 0d 04 6a  |ialise voices..j|
00000f80  10 dd f2 69 6e 69 74 76  6f 69 63 65 73 0d 04 74  |...initvoices..t|
00000f90  07 c8 a0 38 0d 04 7e 05  20 0d 04 88 16 2a 43 48  |...8..~. ....*CH|
00000fa0  41 4e 4e 45 4c 56 4f 49  43 45 20 31 20 31 33 0d  |ANNELVOICE 1 13.|
00000fb0  04 92 16 2a 43 48 41 4e  4e 45 4c 56 4f 49 43 45  |...*CHANNELVOICE|
00000fc0  20 32 20 31 31 0d 04 9c  16 2a 43 48 41 4e 4e 45  | 2 11....*CHANNE|
00000fd0  4c 56 4f 49 43 45 20 33  20 31 32 0d 04 a6 16 2a  |LVOICE 3 12....*|
00000fe0  43 48 41 4e 4e 45 4c 56  4f 49 43 45 20 34 20 31  |CHANNELVOICE 4 1|
00000ff0  33 0d 04 b0 16 2a 43 48  41 4e 4e 45 4c 56 4f 49  |3....*CHANNELVOI|
00001000  43 45 20 35 20 31 34 0d  04 ba 16 2a 43 48 41 4e  |CE 5 14....*CHAN|
00001010  4e 45 4c 56 4f 49 43 45  20 36 20 31 35 0d 04 c4  |NELVOICE 6 15...|
00001020  16 2a 43 48 41 4e 4e 45  4c 56 4f 49 43 45 20 37  |.*CHANNELVOICE 7|
00001030  20 31 36 0d 04 ce 16 2a  43 48 41 4e 4e 45 4c 56  | 16....*CHANNELV|
00001040  4f 49 43 45 20 38 20 31  37 0d 04 d8 05 20 0d 04  |OICE 8 17.... ..|
00001050  e2 05 e1 0d 04 ec 05 20  0d 04 f6 10 f4 85 69 6e  |....... ......in|
00001060  69 74 20 4d 4f 55 53 45  0d 05 00 0f dd f2 69 6e  |it MOUSE......in|
00001070  69 74 6d 6f 75 73 65 0d  05 0a 0c 2a 50 4f 49 4e  |itmouse....*POIN|
00001080  54 45 52 0d 05 14 16 c8  97 20 fb 20 32 2c 26 46  |TER...... . 2,&F|
00001090  46 2c 26 46 46 2c 26 46  46 0d 05 1e 10 c8 97 20  |F,&FF,&FF...... |
000010a0  fb 20 31 2c 30 2c 30 2c  30 0d 05 28 0e c8 97 20  |. 1,0,0,0..(... |
000010b0  b8 20 58 25 2c 59 25 0d  05 32 0a c8 97 20 88 20  |. X%,Y%..2... . |
000010c0  34 0d 05 3c 16 c8 97 20  c8 93 38 2c 33 32 2c 31  |4..<... ..8,32,1|
000010d0  32 36 34 2c 39 36 30 0d  05 46 05 e1 0d 05 50 05  |264,960..F....P.|
000010e0  20 0d 05 5a 0b f4 22 82  49 4e 49 54 0d 05 64 0a  | ..Z..".INIT..d.|
000010f0  dd f2 69 6e 69 74 0d 05  65 0a 76 6f 69 25 3d 31  |..init..e.voi%=1|
00001100  0d 05 66 0f 70 78 25 3d  30 3a 70 79 25 3d 30 0d  |..f.px%=0:py%=0.|
00001110  05 67 0b 62 61 72 25 3d  31 36 0d 05 68 0f 6d 61  |.g.bar%=16..h.ma|
00001120  73 74 76 6f 6c 25 3d 31  35 0d 05 6e 0b 63 6f 70  |stvol%=15..n.cop|
00001130  79 25 3d 30 0d 05 78 0b  73 74 6f 70 25 3d 30 0d  |y%=0..x.stop%=0.|
00001140  05 82 0b 63 6f 6e 74 25  3d 30 0d 05 8c 0b 73 68  |...cont%=0....sh|
00001150  6f 77 25 3d 31 0d 05 96  08 54 25 3d 30 0d 05 a0  |ow%=1....T%=0...|
00001160  10 73 74 6f 72 65 64 70  61 74 25 3d 31 0d 05 aa  |.storedpat%=1...|
00001170  0d 63 6f 70 79 74 6f 25  3d 31 0d 05 b4 0e 66 72  |.copyto%=1....fr|
00001180  6f 6d 62 61 72 25 3d 31  0d 05 be 0c 74 6f 62 61  |ombar%=1....toba|
00001190  72 25 3d 31 0d 05 c8 1e  ef 32 33 2c 34 32 2c 30  |r%=1.....23,42,0|
000011a0  2c 30 2c 36 30 2c 36 30  2c 36 30 2c 36 30 2c 30  |,0,60,60,60,60,0|
000011b0  2c 30 0d 05 d2 1e ef 32  33 2c 36 30 2c 30 2c 38  |,0.....23,60,0,8|
000011c0  2c 32 34 2c 35 36 2c 35  36 2c 32 34 2c 38 2c 30  |,24,56,56,24,8,0|
000011d0  0d 05 dc 20 ef 32 33 2c  36 32 2c 30 2c 31 36 2c  |... .23,62,0,16,|
000011e0  32 34 2c 32 38 2c 32 38  2c 32 34 2c 31 36 2c 30  |24,28,28,24,16,0|
000011f0  0d 05 e6 25 ef 32 33 2c  32 32 34 2c 30 2c 36 30  |...%.23,224,0,60|
00001200  2c 31 32 36 2c 31 32 36  2c 31 32 36 2c 31 32 36  |,126,126,126,126|
00001210  2c 36 30 2c 30 0d 05 f0  1d ef 32 33 2c 32 32 35  |,60,0.....23,225|
00001220  2c 38 2c 38 2c 38 2c 38  2c 32 35 35 2c 38 2c 38  |,8,8,8,8,255,8,8|
00001230  2c 38 0d 05 fa 0b 44 24  3d bd 32 32 34 0d 06 04  |,8....D$=.224...|
00001240  0b 64 24 3d bd 32 32 35  0d 06 0e 0d 58 25 3d 35  |.d$=.225....X%=5|
00001250  31 32 2b 31 36 0d 06 18  0d 59 25 3d 38 36 34 2d  |12+16....Y%=864-|
00001260  31 36 0d 06 22 0c 6f 6c  64 78 25 3d 58 25 0d 06  |16..".oldx%=X%..|
00001270  2c 0c 6f 6c 64 79 25 3d  59 25 0d 06 36 0c 77 68  |,.oldy%=Y%..6.wh|
00001280  65 72 65 25 3d 30 0d 06  40 05 20 0d 06 4a 05 20  |ere%=0..@. ..J. |
00001290  0d 06 54 19 f4 86 57 68  69 63 68 20 62 61 72 20  |..T...Which bar |
000012a0  69 6e 20 61 20 73 6f 6e  67 0d 06 5e 0f 77 68 69  |in a song..^.whi|
000012b0  63 68 62 61 72 25 3d 31  0d 06 68 0b f4 82 73 70  |chbar%=1..h...sp|
000012c0  65 65 64 0d 06 72 0d 74  65 6d 70 6f 25 3d 31 30  |eed..r.tempo%=10|
000012d0  0d 06 7c 05 20 0d 06 86  0e 70 61 74 74 65 72 6e  |..|. ....pattern|
000012e0  25 3d 31 0d 06 90 05 e1  0d 06 9a 05 20 0d 06 a4  |%=1......... ...|
000012f0  0c f4 83 41 52 52 41 59  53 0d 06 ae 0c dd f2 61  |...ARRAYS......a|
00001300  72 72 61 79 73 0d 06 af  12 de 20 6d 65 6d 25 20  |rrays..... mem% |
00001310  6c 65 6e 67 74 68 25 0d  06 b0 1c de 20 73 74 6f  |length%..... sto|
00001320  72 65 6d 65 6d 25 20 73  74 6f 72 65 6c 65 6e 67  |remem% storeleng|
00001330  74 68 25 0d 06 b1 1d de  20 74 65 6d 70 73 74 6f  |th%..... tempsto|
00001340  72 65 25 20 73 74 6f 72  65 6c 65 6e 67 74 68 25  |re% storelength%|
00001350  0d 06 b8 1b de 68 69 68  61 74 25 28 62 61 72 25  |.....hihat%(bar%|
00001360  2c 74 6f 74 61 6c 70 61  74 25 29 0d 06 b9 1c de  |,totalpat%).....|
00001370  68 69 68 61 74 32 25 28  62 61 72 25 2c 74 6f 74  |hihat2%(bar%,tot|
00001380  61 6c 70 61 74 25 29 0d  06 c2 1a de 74 6f 6d 31  |alpat%).....tom1|
00001390  25 28 62 61 72 25 2c 74  6f 74 61 6c 70 61 74 25  |%(bar%,totalpat%|
000013a0  29 0d 06 cc 1a de 74 6f  6d 32 25 28 62 61 72 25  |).....tom2%(bar%|
000013b0  2c 74 6f 74 61 6c 70 61  74 25 29 0d 06 d6 1a de  |,totalpat%).....|
000013c0  74 6f 6d 33 25 28 62 61  72 25 2c 74 6f 74 61 6c  |tom3%(bar%,total|
000013d0  70 61 74 25 29 0d 06 e0  1b de 73 6e 61 72 65 25  |pat%).....snare%|
000013e0  28 62 61 72 25 2c 74 6f  74 61 6c 70 61 74 25 29  |(bar%,totalpat%)|
000013f0  0d 06 ea 1a de 62 61 73  73 25 28 62 61 72 25 2c  |.....bass%(bar%,|
00001400  74 6f 74 61 6c 70 61 74  25 29 0d 06 f4 1c de 62  |totalpat%).....b|
00001410  6c 6f 63 6b 31 25 28 62  61 72 25 2c 74 6f 74 61  |lock1%(bar%,tota|
00001420  6c 70 61 74 25 29 0d 06  fe 1c de 62 6c 6f 63 6b  |lpat%).....block|
00001430  32 25 28 62 61 72 25 2c  74 6f 74 61 6c 70 61 74  |2%(bar%,totalpat|
00001440  25 29 0d 06 ff 1d de 63  79 6d 62 61 6c 31 25 28  |%).....cymbal1%(|
00001450  62 61 72 25 2c 74 6f 74  61 6c 70 61 74 25 29 0d  |bar%,totalpat%).|
00001460  07 00 1d de 63 79 6d 62  61 6c 32 25 28 62 61 72  |....cymbal2%(bar|
00001470  25 2c 74 6f 74 61 6c 70  61 74 25 29 0d 07 01 1e  |%,totalpat%)....|
00001480  de 72 6f 74 6f 74 6f 6d  31 25 28 62 61 72 25 2c  |.rototom1%(bar%,|
00001490  74 6f 74 61 6c 70 61 74  25 29 0d 07 02 1e de 72  |totalpat%).....r|
000014a0  6f 74 6f 74 6f 6d 32 25  28 62 61 72 25 2c 74 6f  |ototom2%(bar%,to|
000014b0  74 61 6c 70 61 74 25 29  0d 07 04 1c de 73 6e 61  |talpat%).....sna|
000014c0  72 65 32 25 28 62 61 72  25 2c 74 6f 74 61 6c 70  |re2%(bar%,totalp|
000014d0  61 74 25 29 0d 07 05 05  20 0d 07 06 1b de 20 53  |at%).... ..... S|
000014e0  56 25 28 37 29 2c 53 54  25 28 31 36 29 2c 56 25  |V%(7),ST%(16),V%|
000014f0  28 31 36 29 0d 07 08 05  e1 0d 07 12 05 20 0d 07  |(16)......... ..|
00001500  1c 05 20 0d 07 26 0b f4  82 69 6e 69 74 32 0d 07  |.. ..&...init2..|
00001510  30 0b dd f2 69 6e 69 74  32 0d 07 3a 0e 68 69 68  |0...init2..:.hih|
00001520  61 74 25 28 29 3d 30 0d  07 3c 0f 68 69 68 61 74  |at%()=0..<.hihat|
00001530  32 25 28 29 3d 30 0d 07  44 0d 74 6f 6d 31 25 28  |2%()=0..D.tom1%(|
00001540  29 3d 30 0d 07 4e 0d 74  6f 6d 32 25 28 29 3d 30  |)=0..N.tom2%()=0|
00001550  0d 07 58 0d 74 6f 6d 33  25 28 29 3d 30 0d 07 62  |..X.tom3%()=0..b|
00001560  0e 73 6e 61 72 65 25 28  29 3d 30 0d 07 6c 0d 62  |.snare%()=0..l.b|
00001570  61 73 73 25 28 29 3d 30  0d 07 76 0f 62 6c 6f 63  |ass%()=0..v.bloc|
00001580  6b 31 25 28 29 3d 30 0d  07 80 0f 62 6c 6f 63 6b  |k1%()=0....block|
00001590  32 25 28 29 3d 30 0d 07  81 10 63 79 6d 62 61 6c  |2%()=0....cymbal|
000015a0  31 25 28 29 3d 30 0d 07  82 10 63 79 6d 62 61 6c  |1%()=0....cymbal|
000015b0  32 25 28 29 3d 30 0d 07  83 11 72 6f 74 6f 74 6f  |2%()=0....rototo|
000015c0  6d 31 25 28 29 3d 30 0d  07 84 11 72 6f 74 6f 74  |m1%()=0....rotot|
000015d0  6f 6d 32 25 28 29 3d 30  0d 07 85 0f 73 6e 61 72  |om2%()=0....snar|
000015e0  65 32 25 28 29 3d 30 0d  07 86 0b 53 54 25 28 29  |e2%()=0....ST%()|
000015f0  3d 30 0d 07 88 0c 56 25  28 29 3d 2d 31 35 0d 07  |=0....V%()=-15..|
00001600  8a 05 e1 0d 07 8c 05 20  0d 07 94 12 f4 85 4d 65  |....... ......Me|
00001610  6d 6f 72 79 20 73 74 6f  72 65 0d 07 96 0c dd f2  |mory store......|
00001620  6d 65 6d 6f 72 79 0d 07  bc 20 e3 49 25 3d 6d 65  |memory... .I%=me|
00001630  6d 25 20 b8 20 65 6e 64  25 2d 34 20 88 34 3a 21  |m% . end%-4 .4:!|
00001640  49 25 3d 30 3a ed 0d 07  c6 05 20 0d 08 02 20 e3  |I%=0:..... ... .|
00001650  49 25 3d 73 74 6f 72 65  6d 65 6d 25 20 b8 20 73  |I%=storemem% . s|
00001660  74 6f 72 65 65 6e 64 25  20 88 34 0d 08 0c 09 21  |toreend% .4....!|
00001670  49 25 3d 30 0d 08 16 05  ed 0d 08 20 05 e1 0d 08  |I%=0....... ....|
00001680  2a 05 20 0d 08 34 05 20  0d 08 3e 12 f4 82 50 4c  |*. ..4. ..>...PL|
00001690  41 59 20 50 41 54 54 45  52 4e 0d 08 48 11 dd f2  |AY PATTERN..H...|
000016a0  70 6c 61 79 70 61 74 74  65 72 6e 0d 08 52 17 c8  |playpattern..R..|
000016b0  97 20 c8 93 20 33 32 30  2c 38 39 36 2c 33 32 2c  |. .. 320,896,32,|
000016c0  33 32 0d 08 5c 15 f2 70  6c 61 79 69 74 28 70 61  |32..\..playit(pa|
000016d0  74 74 65 72 6e 25 29 0d  08 66 16 c8 97 20 c8 93  |ttern%)..f... ..|
000016e0  38 2c 33 32 2c 31 32 36  34 2c 39 36 30 0d 08 70  |8,32,1264,960..p|
000016f0  05 e1 0d 08 7a 05 20 0d  08 84 10 f4 22 86 50 4c  |....z. .....".PL|
00001700  41 59 20 49 54 21 21 0d  08 8e 10 dd f2 70 6c 61  |AY IT!!......pla|
00001710  79 69 74 28 50 25 29 0d  08 98 1c 4d 25 3d 28 6d  |yit(P%)....M%=(m|
00001720  65 6d 25 2b 28 28 50 25  2d 31 29 2a 32 35 36 29  |em%+((P%-1)*256)|
00001730  2d 31 29 0d 08 a2 10 f4  81 2e 2e 2e 6f 6e 65 20  |-1).........one |
00001740  62 61 72 0d 08 ac 16 f5  3a c8 97 58 25 2c 59 25  |bar.....:..X%,Y%|
00001750  2c 5a 25 3a fd 5a 25 3d  30 0d 08 b6 0e e3 49 25  |,Z%:.Z%=0.....I%|
00001760  3d 31 b8 62 61 72 25 0d  08 c0 0e c8 97 58 25 2c  |=1.bar%......X%,|
00001770  59 25 2c 5a 25 0d 08 ca  16 e7 5a 25 3d 34 73 74  |Y%,Z%.....Z%=4st|
00001780  6f 70 25 3d 31 3a e5 8d  44 7e 49 0d 08 d4 0b f4  |op%=1:..D~I.....|
00001790  85 48 49 48 41 54 0d 08  de 29 e7 3f 28 4d 25 2b  |.HIHAT...).?(M%+|
000017a0  49 25 29 3d 31 20 c8 a2  31 2c 53 54 25 28 31 29  |I%)=1 ..1,ST%(1)|
000017b0  3a d4 31 2c 56 25 28 31  29 2c 32 30 30 2c 32 0d  |:.1,V%(1),200,2.|
000017c0  08 e8 0a f4 85 54 4f 4d  31 0d 08 f2 2c e7 3f 28  |.....TOM1...,.?(|
000017d0  4d 25 2b 49 25 2b 31 36  29 3d 31 20 c8 a2 32 2c  |M%+I%+16)=1 ..2,|
000017e0  53 54 25 28 32 29 3a d4  32 2c 56 25 28 32 29 2c  |ST%(2):.2,V%(2),|
000017f0  31 36 30 2c 33 0d 08 fc  0a f4 85 54 4f 4d 32 0d  |160,3......TOM2.|
00001800  09 06 2c e7 3f 28 4d 25  2b 49 25 2b 33 32 29 3d  |..,.?(M%+I%+32)=|
00001810  31 20 c8 a2 32 2c 53 54  25 28 33 29 3a d4 32 2c  |1 ..2,ST%(3):.2,|
00001820  56 25 28 33 29 2c 31 34  32 2c 33 0d 09 10 0a f4  |V%(3),142,3.....|
00001830  85 54 4f 4d 33 0d 09 1a  2c e7 3f 28 4d 25 2b 49  |.TOM3...,.?(M%+I|
00001840  25 2b 34 38 29 3d 31 20  c8 a2 32 2c 53 54 25 28  |%+48)=1 ..2,ST%(|
00001850  34 29 3a d4 32 2c 56 25  28 34 29 2c 31 33 35 2c  |4):.2,V%(4),135,|
00001860  33 0d 09 24 0c f4 85 42  4c 4f 43 4b 31 0d 09 2e  |3..$...BLOCK1...|
00001870  2c e7 3f 28 4d 25 2b 49  25 2b 36 34 29 3d 31 20  |,.?(M%+I%+64)=1 |
00001880  c8 a2 33 2c 53 54 25 28  35 29 3a d4 33 2c 56 25  |..3,ST%(5):.3,V%|
00001890  28 35 29 2c 32 30 30 2c  35 0d 09 38 0c f4 85 42  |(5),200,5..8...B|
000018a0  4c 4f 43 4b 32 0d 09 42  2c e7 3f 28 4d 25 2b 49  |LOCK2..B,.?(M%+I|
000018b0  25 2b 38 30 29 3d 31 20  c8 a2 33 2c 53 54 25 28  |%+80)=1 ..3,ST%(|
000018c0  36 29 3a d4 33 2c 56 25  28 36 29 2c 32 34 34 2c  |6):.3,V%(6),244,|
000018d0  35 0d 09 43 0d f4 85 43  59 4d 42 41 4c 31 0d 09  |5..C...CYMBAL1..|
000018e0  44 2d e7 3f 28 4d 25 2b  49 25 2b 39 36 29 3d 31  |D-.?(M%+I%+96)=1|
000018f0  20 c8 a2 34 2c 53 54 25  28 37 29 3a d4 34 2c 56  | ..4,ST%(7):.4,V|
00001900  25 28 37 29 2c 31 36 30  2c 33 30 0d 09 45 0d f4  |%(7),160,30..E..|
00001910  85 43 59 4d 42 41 4c 32  0d 09 46 2e e7 3f 28 4d  |.CYMBAL2..F..?(M|
00001920  25 2b 49 25 2b 31 31 32  29 3d 31 20 c8 a2 34 2c  |%+I%+112)=1 ..4,|
00001930  53 54 25 28 38 29 3a d4  34 2c 56 25 28 38 29 2c  |ST%(8):.4,V%(8),|
00001940  31 35 30 2c 33 30 0d 09  47 0e f4 85 52 4f 54 4f  |150,30..G...ROTO|
00001950  54 4f 4d 31 0d 09 48 2d  e7 3f 28 4d 25 2b 49 25  |TOM1..H-.?(M%+I%|
00001960  2b 31 32 38 29 3d 31 20  c8 a2 35 2c 53 54 25 28  |+128)=1 ..5,ST%(|
00001970  39 29 3a d4 35 2c 56 25  28 39 29 2c 31 30 30 2c  |9):.5,V%(9),100,|
00001980  33 0d 09 49 0e f4 85 52  4f 54 4f 54 4f 4d 32 0d  |3..I...ROTOTOM2.|
00001990  09 4a 2e e7 3f 28 4d 25  2b 49 25 2b 31 34 34 29  |.J..?(M%+I%+144)|
000019a0  3d 31 20 c8 a2 35 2c 53  54 25 28 31 30 29 3a d4  |=1 ..5,ST%(10):.|
000019b0  35 2c 56 25 28 31 30 29  2c 39 30 2c 33 0d 09 4b  |5,V%(10),90,3..K|
000019c0  0c f4 85 48 49 48 41 54  32 0d 09 4c 2f e7 3f 28  |...HIHAT2..L/.?(|
000019d0  4d 25 2b 49 25 2b 31 36  30 29 3d 31 20 c8 a2 31  |M%+I%+160)=1 ..1|
000019e0  2c 53 54 25 28 31 31 29  3a d4 31 2c 56 25 28 31  |,ST%(11):.1,V%(1|
000019f0  31 29 2c 32 30 35 2c 38  0d 09 52 0c f4 85 53 4e  |1),205,8..R...SN|
00001a00  41 52 45 32 0d 09 53 2f  e7 3f 28 4d 25 2b 49 25  |ARE2..S/.?(M%+I%|
00001a10  2b 32 30 38 29 3d 31 20  c8 a2 36 2c 53 54 25 28  |+208)=1 ..6,ST%(|
00001a20  31 34 29 3a d4 36 2c 56  25 28 31 34 29 2c 31 34  |14):.6,V%(14),14|
00001a30  30 2c 33 0d 09 55 0b f4  85 53 4e 41 52 45 0d 09  |0,3..U...SNARE..|
00001a40  56 2e e7 3f 28 4d 25 2b  49 25 2b 32 32 34 29 3d  |V..?(M%+I%+224)=|
00001a50  31 20 c8 a2 37 2c 53 54  25 28 31 35 29 3a d4 37  |1 ..7,ST%(15):.7|
00001a60  2c 56 25 28 31 35 29 2c  35 30 2c 33 0d 09 60 0f  |,V%(15),50,3..`.|
00001a70  f4 85 42 41 53 53 20 44  52 55 4d 0d 09 6a 2e e7  |..BASS DRUM..j..|
00001a80  3f 28 4d 25 2b 49 25 2b  32 34 30 29 3d 31 20 c8  |?(M%+I%+240)=1 .|
00001a90  a2 38 2c 53 54 25 28 31  36 29 3a d4 38 2c 56 25  |.8,ST%(16):.8,V%|
00001aa0  28 31 36 29 2c 35 30 2c  33 0d 09 74 09 f2 77 61  |(16),50,3..t..wa|
00001ab0  69 74 0d 09 7e 05 ed 0d  09 92 05 e1 0d 09 9c 05  |it..~...........|
00001ac0  20 0d 09 a6 0b f4 22 85  57 41 49 54 0d 09 b0 0a  | .....".WAIT....|
00001ad0  dd f2 77 61 69 74 0d 09  ba 07 d1 3d 30 0d 09 c4  |..wait.....=0...|
00001ae0  15 e7 49 25 3d 62 61 72  25 80 73 68 6f 77 25 3d  |..I%=bar%.show%=|
00001af0  31 e1 0d 09 ce 0e f5 fd  91 3e 74 65 6d 70 6f 25  |1........>tempo%|
00001b00  0d 09 d8 05 e1 0d 09 e2  05 20 0d 0a aa 0a f4 86  |......... ......|
00001b10  47 52 49 44 0d 0a af 0a  dd f2 67 72 69 64 0d 0a  |GRID......grid..|
00001b20  b6 22 ef 32 34 2c 35 31  32 3b 33 35 32 3b 34 39  |.".24,512;352;49|
00001b30  36 2b 28 62 61 72 25 2a  33 32 29 3b 38 36 30 3b  |6+(bar%*32);860;|
00001b40  0d 0a be 2b c8 99 20 22  4f 53 5f 53 70 72 69 74  |...+.. "OS_Sprit|
00001b50  65 4f 70 22 2c 32 35 36  2b 33 34 2c 67 25 2c 67  |eOp",256+34,g%,g|
00001b60  24 2c 35 31 32 2c 33 35  32 2c 30 0d 0a de 05 e1  |$,512,352,0.....|
00001b70  0d 0b 54 05 20 0d 0f 99  13 f4 83 73 74 65 72 65  |..T. ......stere|
00001b80  6f 20 76 61 6c 75 65 73  0d 0f a0 05 20 0d 0f aa  |o values.... ...|
00001b90  0d f4 83 46 49 58 20 44  4f 54 0d 0f b4 1b dd f2  |...FIX DOT......|
00001ba0  66 69 78 28 73 74 61 74  65 25 2c 63 6f 6c 25 2c  |fix(state%,col%,|
00001bb0  64 6f 74 24 29 0d 0f be  0c e7 58 25 3c 35 32 38  |dot$).....X%<528|
00001bc0  e1 0d 0f c8 0c e7 59 25  3e 38 36 34 e1 0d 0f d2  |......Y%>864....|
00001bd0  0c e7 59 25 3c 33 36 38  e1 0d 0f dc 0d e7 73 68  |..Y%<368......sh|
00001be0  6f 77 25 3d 30 e1 0d 0f  e6 09 f4 56 44 55 35 0d  |ow%=0......VDU5.|
00001bf0  0f f0 09 fb 63 6f 6c 25  0d 0f f2 08 fb 31 33 32  |....col%.....132|
00001c00  0d 0f fa 17 77 6e 25 3d  28 28 58 25 2d 31 36 29  |....wn%=((X%-16)|
00001c10  81 33 32 29 2d 31 35 0d  10 04 17 77 76 25 3d 32  |.32)-15....wv%=2|
00001c20  38 2d 28 28 59 25 2b 31  36 29 81 33 32 29 0d 10  |8-((Y%+16).32)..|
00001c30  0e 05 20 0d 10 18 0c c8  8e 20 77 76 25 20 ca 0d  |.. ...... wv% ..|
00001c40  10 22 0f c9 20 31 3a f4  83 48 49 48 41 54 0d 10  |.".. 1:..HIHAT..|
00001c50  2c 2b 3f 28 6d 65 6d 25  2b 28 28 70 61 74 74 65  |,+?(mem%+((patte|
00001c60  72 6e 25 2d 31 29 2a 32  35 36 29 2b 77 6e 25 2d  |rn%-1)*256)+wn%-|
00001c70  31 29 3d 73 74 61 74 65  25 0d 10 36 0e c9 20 32  |1)=state%..6.. 2|
00001c80  3a f4 83 54 4f 4d 31 0d  10 40 2e 3f 28 6d 65 6d  |:..TOM1..@.?(mem|
00001c90  25 2b 28 28 70 61 74 74  65 72 6e 25 2d 31 29 2a  |%+((pattern%-1)*|
00001ca0  32 35 36 29 2b 77 6e 25  2d 31 2b 31 36 29 3d 73  |256)+wn%-1+16)=s|
00001cb0  74 61 74 65 25 0d 10 4a  0e c9 20 33 3a f4 83 54  |tate%..J.. 3:..T|
00001cc0  4f 4d 32 0d 10 54 2e 3f  28 6d 65 6d 25 2b 28 28  |OM2..T.?(mem%+((|
00001cd0  70 61 74 74 65 72 6e 25  2d 31 29 2a 32 35 36 29  |pattern%-1)*256)|
00001ce0  2b 77 6e 25 2d 31 2b 33  32 29 3d 73 74 61 74 65  |+wn%-1+32)=state|
00001cf0  25 0d 10 5e 0e c9 20 34  3a f4 83 54 4f 4d 33 0d  |%..^.. 4:..TOM3.|
00001d00  10 68 2e 3f 28 6d 65 6d  25 2b 28 28 70 61 74 74  |.h.?(mem%+((patt|
00001d10  65 72 6e 25 2d 31 29 2a  32 35 36 29 2b 77 6e 25  |ern%-1)*256)+wn%|
00001d20  2d 31 2b 34 38 29 3d 73  74 61 74 65 25 0d 10 72  |-1+48)=state%..r|
00001d30  10 c9 20 35 3a f4 83 42  4c 4f 43 4b 31 0d 10 7c  |.. 5:..BLOCK1..||
00001d40  2e 3f 28 6d 65 6d 25 2b  28 28 70 61 74 74 65 72  |.?(mem%+((patter|
00001d50  6e 25 2d 31 29 2a 32 35  36 29 2b 77 6e 25 2d 31  |n%-1)*256)+wn%-1|
00001d60  2b 36 34 29 3d 73 74 61  74 65 25 0d 10 86 10 c9  |+64)=state%.....|
00001d70  20 36 3a f4 83 42 4c 4f  43 4b 32 0d 10 90 2e 3f  | 6:..BLOCK2....?|
00001d80  28 6d 65 6d 25 2b 28 28  70 61 74 74 65 72 6e 25  |(mem%+((pattern%|
00001d90  2d 31 29 2a 32 35 36 29  2b 77 6e 25 2d 31 2b 38  |-1)*256)+wn%-1+8|
00001da0  30 29 3d 73 74 61 74 65  25 0d 10 91 11 c9 20 37  |0)=state%..... 7|
00001db0  3a f4 83 43 59 4d 42 41  4c 31 0d 10 92 2e 3f 28  |:..CYMBAL1....?(|
00001dc0  6d 65 6d 25 2b 28 28 70  61 74 74 65 72 6e 25 2d  |mem%+((pattern%-|
00001dd0  31 29 2a 32 35 36 29 2b  77 6e 25 2d 31 2b 39 36  |1)*256)+wn%-1+96|
00001de0  29 3d 73 74 61 74 65 25  0d 10 93 11 c9 20 38 3a  |)=state%..... 8:|
00001df0  f4 83 43 59 4d 42 41 4c  32 0d 10 94 2f 3f 28 6d  |..CYMBAL2.../?(m|
00001e00  65 6d 25 2b 28 28 70 61  74 74 65 72 6e 25 2d 31  |em%+((pattern%-1|
00001e10  29 2a 32 35 36 29 2b 77  6e 25 2d 31 2b 31 31 32  |)*256)+wn%-1+112|
00001e20  29 3d 73 74 61 74 65 25  0d 10 95 12 c9 20 39 3a  |)=state%..... 9:|
00001e30  f4 83 52 4f 54 4f 54 4f  4d 31 0d 10 96 2f 3f 28  |..ROTOTOM1.../?(|
00001e40  6d 65 6d 25 2b 28 28 70  61 74 74 65 72 6e 25 2d  |mem%+((pattern%-|
00001e50  31 29 2a 32 35 36 29 2b  77 6e 25 2d 31 2b 31 32  |1)*256)+wn%-1+12|
00001e60  38 29 3d 73 74 61 74 65  25 0d 10 97 13 c9 20 31  |8)=state%..... 1|
00001e70  30 3a f4 83 52 4f 54 4f  54 4f 4d 32 0d 10 98 2f  |0:..ROTOTOM2.../|
00001e80  3f 28 6d 65 6d 25 2b 28  28 70 61 74 74 65 72 6e  |?(mem%+((pattern|
00001e90  25 2d 31 29 2a 32 35 36  29 2b 77 6e 25 2d 31 2b  |%-1)*256)+wn%-1+|
00001ea0  31 34 34 29 3d 73 74 61  74 65 25 0d 10 99 15 c9  |144)=state%.....|
00001eb0  20 31 31 3a f4 83 4f 50  45 4e 20 48 49 48 41 54  | 11:..OPEN HIHAT|
00001ec0  0d 10 9a 2f 3f 28 6d 65  6d 25 2b 28 28 70 61 74  |.../?(mem%+((pat|
00001ed0  74 65 72 6e 25 2d 31 29  2a 32 35 36 29 2b 77 6e  |tern%-1)*256)+wn|
00001ee0  25 2d 31 2b 31 36 30 29  3d 73 74 61 74 65 25 0d  |%-1+160)=state%.|
00001ef0  10 a1 11 c9 20 31 34 3a  f4 83 53 4e 41 52 45 32  |.... 14:..SNARE2|
00001f00  0d 10 a2 2f 3f 28 6d 65  6d 25 2b 28 28 70 61 74  |.../?(mem%+((pat|
00001f10  74 65 72 6e 25 2d 31 29  2a 32 35 36 29 2b 77 6e  |tern%-1)*256)+wn|
00001f20  25 2d 31 2b 32 30 38 29  3d 73 74 61 74 65 25 0d  |%-1+208)=state%.|
00001f30  10 a3 10 c9 20 31 35 3a  f4 83 53 4e 41 52 45 0d  |.... 15:..SNARE.|
00001f40  10 a4 2f 3f 28 6d 65 6d  25 2b 28 28 70 61 74 74  |../?(mem%+((patt|
00001f50  65 72 6e 25 2d 31 29 2a  32 35 36 29 2b 77 6e 25  |ern%-1)*256)+wn%|
00001f60  2d 31 2b 32 32 34 29 3d  73 74 61 74 65 25 0d 10  |-1+224)=state%..|
00001f70  ae 14 c9 20 31 36 3a f4  83 42 41 53 53 20 44 52  |... 16:..BASS DR|
00001f80  55 4d 0d 10 b8 2f 3f 28  6d 65 6d 25 2b 28 28 70  |UM.../?(mem%+((p|
00001f90  61 74 74 65 72 6e 25 2d  31 29 2a 32 35 36 29 2b  |attern%-1)*256)+|
00001fa0  77 6e 25 2d 31 2b 32 34  30 29 3d 73 74 61 74 65  |wn%-1+240)=state|
00001fb0  25 0d 10 c2 05 cb 0d 10  cc 05 20 0d 10 ce 17 70  |%......... ....p|
00001fc0  78 25 3d 28 28 58 25 2d  31 36 29 81 33 32 29 2a  |x%=((X%-16).32)*|
00001fd0  33 32 0d 10 cf 17 70 79  25 3d 28 28 59 25 2b 31  |32....py%=((Y%+1|
00001fe0  36 29 81 33 32 29 2a 33  32 0d 10 d6 12 50 78 25  |6).32)*32....Px%|
00001ff0  3d 28 58 25 2d 31 36 29  81 33 32 0d 10 e0 15 50  |=(X%-16).32....P|
00002000  79 25 3d 33 32 2d 28 59  25 2b 31 36 29 81 33 32  |y%=32-(Y%+16).32|
00002010  0d 10 f4 12 f1 8a 50 78  25 2c 50 79 25 29 64 6f  |......Px%,Py%)do|
00002020  74 24 0d 10 fe 0f e7 73  74 61 74 65 25 3d 30 20  |t$.....state%=0 |
00002030  8c 0d 11 00 3d 20 e6 36  3a ef 32 34 2c 35 32 38  |....= .6:.24,528|
00002040  3b 33 36 38 3b 31 30 30  38 3b 38 34 38 3b 35 3a  |;368;1008;848;5:|
00002050  ec 70 78 25 2c 70 79 25  3a f1 64 24 3a f0 36 39  |.px%,py%:.d$:.69|
00002060  2c 70 78 25 2b 31 36 2c  70 79 25 2d 33 32 0d 11  |,px%+16,py%-32..|
00002070  02 2f 20 e7 28 70 78 25  83 31 32 38 29 3d 30 ef  |./ .(px%.128)=0.|
00002080  35 3a e6 30 2c 31 3a ec  70 78 25 2b 31 36 2c 70  |5:.0,1:.px%+16,p|
00002090  79 25 2d 33 32 3a f0 31  2c 30 2c 33 32 0d 11 07  |y%-32:.1,0,32...|
000020a0  05 cd 0d 11 08 09 ef 32  36 2c 34 0d 11 12 05 87  |.......26,4.....|
000020b0  0d 11 1c 05 e1 0d 11 26  05 20 0d 11 30 14 f4 82  |.......&. ..0...|
000020c0  63 65 6e 74 72 65 20 70  6f 69 6e 74 65 72 0d 11  |centre pointer..|
000020d0  3a 0c dd f2 63 65 6e 74  72 65 0d 11 3c 0d e7 58  |:...centre..<..X|
000020e0  25 3e 31 30 30 38 e1 0d  11 44 0c e7 58 25 3c 35  |%>1008...D..X%<5|
000020f0  32 38 e1 0d 11 4e 0c e7  59 25 3e 38 36 34 e1 0d  |28...N..Y%>864..|
00002100  11 58 0c e7 59 25 3c 33  35 32 e1 0d 11 62 06 ef  |.X..Y%<352...b..|
00002110  34 0d 11 6c 05 87 0d 11  76 05 f5 0d 11 80 11 72  |4..l....v......r|
00002120  25 3d 28 58 25 2d 31 36  29 83 33 32 0d 11 8a 19  |%=(X%-16).32....|
00002130  e7 58 25 3e 6f 6c 64 78  25 3a e7 72 25 3e 30 20  |.X%>oldx%:.r%>0 |
00002140  58 25 2b 3d 31 0d 11 94  19 e7 58 25 3c 6f 6c 64  |X%+=1.....X%<old|
00002150  78 25 3a e7 72 25 3e 30  20 58 25 2d 3d 31 0d 11  |x%:.r%>0 X%-=1..|
00002160  9e 0e c8 97 20 b8 20 58  25 2c 59 25 0d 11 a8 09  |.... . X%,Y%....|
00002170  fd 72 25 3d 30 0d 11 b2  05 f5 0d 11 bc 11 6f 25  |.r%=0.........o%|
00002180  3d 28 59 25 2b 31 36 29  83 33 32 0d 11 c6 19 e7  |=(Y%+16).32.....|
00002190  59 25 3e 6f 6c 64 79 25  3a e7 6f 25 3e 30 20 59  |Y%>oldy%:.o%>0 Y|
000021a0  25 2b 3d 31 0d 11 d0 19  e7 59 25 3c 6f 6c 64 79  |%+=1.....Y%<oldy|
000021b0  25 3a e7 6f 25 3e 30 20  59 25 2d 3d 31 0d 11 da  |%:.o%>0 Y%-=1...|
000021c0  0e c8 97 20 b8 20 58 25  2c 59 25 0d 11 e4 09 fd  |... . X%,Y%.....|
000021d0  6f 25 3d 30 0d 11 ee 0c  6f 6c 64 78 25 3d 58 25  |o%=0....oldx%=X%|
000021e0  0d 11 f8 0c 6f 6c 64 79  25 3d 59 25 0d 12 02 05  |....oldy%=Y%....|
000021f0  e1 0d 12 0c 0d f4 86 50  41 54 54 45 52 4e 0d 12  |.......PATTERN..|
00002200  16 13 dd f2 70 61 74 74  65 72 6e 28 73 74 70 25  |....pattern(stp%|
00002210  29 0d 12 18 0b 73 68 6f  77 25 3d 31 0d 12 1a 0f  |)....show%=1....|
00002220  73 68 6f 77 57 48 41 54  25 3d 30 0d 12 20 26 e7  |showWHAT%=0.. &.|
00002230  59 25 3e 3d 39 32 38 3a  e7 58 25 3c 3d 32 35 36  |Y%>=928:.X%<=256|
00002240  80 70 61 74 74 65 72 6e  25 2d 73 74 70 25 3c 31  |.pattern%-stp%<1|
00002250  e1 0d 12 22 2e e7 59 25  3e 3d 39 32 38 3a e7 58  |..."..Y%>=928:.X|
00002260  25 3c 3d 33 35 32 80 58  25 3e 32 35 36 80 70 61  |%<=352.X%>256.pa|
00002270  74 74 65 72 6e 25 2b 73  74 70 25 3e 39 36 e1 0d  |ttern%+stp%>96..|
00002280  12 24 26 e7 59 25 3c 3d  32 38 38 3a e7 58 25 3c  |.$&.Y%<=288:.X%<|
00002290  3d 33 35 32 80 70 61 74  74 65 72 6e 25 2d 73 74  |=352.pattern%-st|
000022a0  70 25 3c 31 e1 0d 12 26  27 e7 59 25 3c 3d 32 38  |p%<1...&'.Y%<=28|
000022b0  38 3a e7 58 25 3e 3d 34  34 38 80 70 61 74 74 65  |8:.X%>=448.patte|
000022c0  72 6e 25 2b 73 74 70 25  3e 39 36 e1 0d 12 2a 0f  |rn%+stp%>96...*.|
000022d0  c8 8e 20 77 68 65 72 65  25 20 ca 0d 12 34 08 c9  |.. where% ...4..|
000022e0  20 31 3a 0d 12 48 35 e7  58 25 3c 3d 32 35 32 80  | 1:..H5.X%<=252.|
000022f0  70 61 74 74 65 72 6e 25  3e 73 74 70 25 70 61 74  |pattern%>stp%pat|
00002300  74 65 72 6e 25 2d 3d 73  74 70 25 3a d4 33 2c 2d  |tern%-=stp%:.3,-|
00002310  31 35 2c 31 39 30 2c 32  0d 12 52 27 e7 58 25 3e  |15,190,2..R'.X%>|
00002320  3d 33 32 30 70 61 74 74  65 72 6e 25 2b 3d 73 74  |=320pattern%+=st|
00002330  70 25 3a d4 33 2c 2d 31  35 2c 32 30 30 2c 32 0d  |p%:.3,-15,200,2.|
00002340  12 5c 08 c9 20 33 3a 0d  12 70 35 e7 58 25 3c 3d  |.\.. 3:..p5.X%<=|
00002350  33 35 32 80 70 61 74 74  65 72 6e 25 3e 73 74 70  |352.pattern%>stp|
00002360  25 70 61 74 74 65 72 6e  25 2d 3d 73 74 70 25 3a  |%pattern%-=stp%:|
00002370  d4 33 2c 2d 31 35 2c 31  39 30 2c 32 0d 12 7a 27  |.3,-15,190,2..z'|
00002380  e7 58 25 3e 3d 34 34 38  70 61 74 74 65 72 6e 25  |.X%>=448pattern%|
00002390  2b 3d 73 74 70 25 3a d4  33 2c 2d 31 35 2c 32 30  |+=stp%:.3,-15,20|
000023a0  30 2c 32 0d 12 84 05 cb  0d 12 8e 2c 70 61 74 24  |0,2........,pat$|
000023b0  3d c3 70 61 74 74 65 72  6e 25 3a e7 70 61 74 74  |=.pattern%:.patt|
000023c0  65 72 6e 25 3c 31 30 70  61 74 24 3d 22 30 22 2b  |ern%<10pat$="0"+|
000023d0  70 61 74 24 0d 12 98 17  fb 33 3a fb 31 32 38 3a  |pat$.....3:.128:|
000023e0  f1 8a 38 2c 32 29 3b 70  61 74 24 0d 12 a2 14 f1  |..8,2);pat$.....|
000023f0  8a 31 31 2c 32 33 29 22  20 22 3b 70 61 74 24 0d  |.11,23)" ";pat$.|
00002400  12 a7 0a f2 62 6c 61 6e  6b 0d 12 ac 09 f2 67 72  |....blank.....gr|
00002410  69 64 0d 12 b6 1a f2 64  69 73 70 6c 61 79 64 6f  |id.....displaydo|
00002420  74 73 28 70 61 74 74 65  72 6e 25 29 0d 12 c0 05  |ts(pattern%)....|
00002430  e1 0d 12 ca 05 20 0d 12  d4 11 f4 81 64 69 73 70  |..... ......disp|
00002440  6c 61 79 64 6f 74 73 0d  12 de 15 dd f2 64 69 73  |laydots......dis|
00002450  70 6c 61 79 64 6f 74 73  28 50 25 29 0d 12 e8 16  |playdots(P%)....|
00002460  4d 25 3d 50 25 2a 32 35  36 2b 6d 65 6d 25 2d 32  |M%=P%*256+mem%-2|
00002470  35 36 0d 12 f4 12 ef 32  38 2c 31 36 2c 32 31 2c  |56.....28,16,21,|
00002480  33 31 2c 35 0d 12 fc 0b  fb 30 3a fb 31 33 32 0d  |31,5.....0:.132.|
00002490  13 06 0d e3 49 25 3d 30  b8 32 35 35 0d 13 10 13  |....I%=0.255....|
000024a0  e7 4d 25 3f 49 25 3d 31  f1 44 24 3b 8b ef 39 0d  |.M%?I%=1.D$;..9.|
000024b0  13 24 05 ed 0d 13 2e 10  ef 32 36 2c 34 3a 87 3a  |.$.......26,4:.:|
000024c0  fb 31 32 38 0d 13 38 05  e1 0d 13 42 05 20 0d 13  |.128..8....B. ..|
000024d0  4c 13 f4 82 53 41 56 45  83 50 41 54 54 45 52 4e  |L...SAVE.PATTERN|
000024e0  53 0d 13 56 12 dd f2 73  61 76 65 70 61 74 74 65  |S..V...savepatte|
000024f0  72 6e 73 0d 13 60 08 c8  97 20 87 0d 13 6a 12 fb  |rns..`... ...j..|
00002500  31 33 32 3a f1 8a 32 37  2c 31 29 89 35 0d 13 74  |132:..27,1).5..t|
00002510  10 d4 38 2c 2d 31 35 2c  31 35 30 2c 33 0d 13 7e  |..8,-15,150,3..~|
00002520  0b fb 33 3a fb 31 32 38  0d 13 88 12 f1 8a 31 39  |..3:.128......19|
00002530  2c 31 29 22 4e 61 6d 65  3d 22 0d 13 92 10 f2 69  |,1)"Name=".....i|
00002540  6e 70 75 74 28 31 39 2c  31 29 0d 13 9c 10 6e 61  |nput(19,1)....na|
00002550  6d 65 24 3d 69 6e 70 75  74 24 0d 13 a6 2a 61 64  |me$=input$...*ad|
00002560  64 24 3d 22 3c 44 52 55  4d 4b 49 54 24 64 69 72  |d$="<DRUMKIT$dir|
00002570  3e 2e 70 61 74 73 4e 73  6f 6e 67 73 2e 22 2b 6e  |>.patsNsongs."+n|
00002580  61 6d 65 24 0d 13 b0 2a  c8 99 22 4f 53 5f 46 69  |ame$...*.."OS_Fi|
00002590  6c 65 22 2c 30 2c 61 64  64 24 2c 6d 65 6d 25 2c  |le",0,add$,mem%,|
000025a0  6d 65 6d 25 2c 6d 65 6d  25 2c 65 6e 64 25 0d 13  |mem%,mem%,end%..|
000025b0  ba 40 fb 31 3a fb 31 33  32 3a f1 8a 31 39 2c 31  |.@.1:.132:..19,1|
000025c0  29 22 53 41 56 45 22 89  39 3a f4 43 4f 4c 4f 55  |)"SAVE".9:.COLOU|
000025d0  52 31 33 35 3a 43 4f 4c  4f 55 52 31 3a 50 52 49  |R135:COLOUR1:PRI|
000025e0  4e 54 54 41 42 28 32 33  2c 31 29 22 2a 22 0d 13  |NTTAB(23,1)"*"..|
000025f0  bb 30 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |.0.. "OS_SpriteO|
00002600  70 22 2c 32 35 36 2b 33  34 2c 53 25 2c 22 50 4c  |p",256+34,S%,"PL|
00002610  41 59 31 22 2c 37 33 36  2c 39 36 30 2c 30 0d 13  |AY1",736,960,0..|
00002620  c4 19 fb 31 3a fb 31 33  32 3a f1 8a 32 37 2c 31  |...1:.132:..27,1|
00002630  29 22 77 69 70 65 22 0d  13 ce 28 f4 43 4f 4c 4f  |)"wipe"...(.COLO|
00002640  55 52 31 32 39 3a 43 4f  4c 4f 55 52 37 3a 50 52  |UR129:COLOUR7:PR|
00002650  49 4e 54 54 41 42 28 33  31 2c 31 29 22 2a 22 0d  |INTTAB(31,1)"*".|
00002660  13 cf 30 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |..0.. "OS_Sprite|
00002670  4f 70 22 2c 32 35 36 2b  33 34 2c 53 25 2c 22 50  |Op",256+34,S%,"P|
00002680  4c 41 59 31 22 2c 39 39  32 2c 39 36 30 2c 30 0d  |LAY1",992,960,0.|
00002690  13 d8 08 c8 97 20 ee 0d  13 e2 05 e1 0d 13 ec 13  |..... ..........|
000026a0  f4 81 4c 4f 41 44 83 50  41 54 54 45 52 4e 53 0d  |..LOAD.PATTERNS.|
000026b0  13 f6 12 dd f2 6c 6f 61  64 70 61 74 74 65 72 6e  |.....loadpattern|
000026c0  73 0d 14 00 08 c8 97 20  87 0d 14 0a 10 d4 38 2c  |s...... ......8,|
000026d0  2d 31 35 2c 32 32 30 2c  33 0d 14 14 0b fb 33 3a  |-15,220,3.....3:|
000026e0  fb 31 32 38 0d 14 1e 12  f1 8a 31 39 2c 32 29 22  |.128......19,2)"|
000026f0  4e 61 6d 65 3d 22 0d 14  28 10 f2 69 6e 70 75 74  |Name="..(..input|
00002700  28 31 39 2c 32 29 0d 14  32 10 6e 61 6d 65 24 3d  |(19,2)..2.name$=|
00002710  69 6e 70 75 74 24 0d 14  3c 2a 61 64 64 24 3d 22  |input$..<*add$="|
00002720  3c 44 52 55 4d 4b 49 54  24 64 69 72 3e 2e 70 61  |<DRUMKIT$dir>.pa|
00002730  74 73 4e 73 6f 6e 67 73  2e 22 2b 6e 61 6d 65 24  |tsNsongs."+name$|
00002740  0d 14 46 1d c8 99 22 4f  53 5f 46 69 6c 65 22 2c  |..F..."OS_File",|
00002750  26 46 46 2c 61 64 64 24  2c 6d 65 6d 25 0d 14 50  |&FF,add$,mem%..P|
00002760  2e fb 31 3a fb 31 33 32  3a f1 8a 32 30 2c 32 29  |..1:.132:..20,2)|
00002770  22 4c 4f 41 44 22 89 38  3a fb 31 32 39 3a fb 37  |"LOAD".8:.129:.7|
00002780  3a f1 8a 31 39 2c 32 29  22 2a 22 0d 14 51 30 c8  |:..19,2)"*"..Q0.|
00002790  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
000027a0  32 35 36 2b 33 34 2c 53  25 2c 22 50 4c 41 59 31  |256+34,S%,"PLAY1|
000027b0  22 2c 36 30 38 2c 39 32  38 2c 30 0d 14 5a 20 fb  |",608,928,0..Z .|
000027c0  33 3a fb 31 33 32 3a f1  8a 32 34 2c 33 29 89 38  |3:.132:..24,3).8|
000027d0  8a 32 34 2c 33 29 6e 61  6d 65 24 0d 14 64 1a 70  |.24,3)name$..d.p|
000027e0  61 74 74 65 72 6e 25 3d  30 3a f2 70 61 74 74 65  |attern%=0:.patte|
000027f0  72 6e 28 31 29 0d 14 6e  08 c8 97 20 ee 0d 14 78  |rn(1)..n... ...x|
00002800  05 e1 0d 14 82 05 20 0d  14 8c 0b f4 85 54 65 6d  |...... ......Tem|
00002810  70 6f 0d 14 96 12 dd f2  74 65 6d 70 6f 28 73 74  |po......tempo(st|
00002820  65 70 25 29 0d 14 a0 0f  d4 33 2c 2d 31 30 2c 38  |ep%).....3,-10,8|
00002830  30 2c 33 0d 14 aa 1c e7  58 25 3c 3d 34 38 30 80  |0,3.....X%<=480.|
00002840  74 65 6d 70 6f 25 2d 73  74 65 70 25 3c 31 e1 0d  |tempo%-step%<1..|
00002850  14 b4 26 e7 58 25 3c 3d  34 38 30 80 74 65 6d 70  |..&.X%<=480.temp|
00002860  6f 25 3e 73 74 65 70 25  74 65 6d 70 6f 25 2d 3d  |o%>step%tempo%-=|
00002870  73 74 65 70 25 0d 14 be  2a e7 58 25 3e 3d 35 34  |step%...*.X%>=54|
00002880  34 80 74 65 6d 70 6f 25  2b 73 74 65 70 25 3c 3d  |4.tempo%+step%<=|
00002890  39 36 74 65 6d 70 6f 25  2b 3d 73 74 65 70 25 0d  |96tempo%+=step%.|
000028a0  14 c8 0b fb 31 32 38 3a  fb 33 0d 14 d2 2e 74 65  |....128:.3....te|
000028b0  6d 70 6f 24 3d c3 74 65  6d 70 6f 25 3a e7 74 65  |mpo$=.tempo%:.te|
000028c0  6d 70 6f 25 3c 31 30 74  65 6d 70 6f 24 3d 22 30  |mpo%<10tempo$="0|
000028d0  22 2b 74 65 6d 70 6f 24  0d 14 dc 12 f1 8a 31 35  |"+tempo$......15|
000028e0  2c 32 29 3b 74 65 6d 70  6f 24 0d 14 e6 05 e1 0d  |,2);tempo$......|
000028f0  14 f0 05 20 0d 14 fa 0a  f4 82 77 69 70 65 0d 15  |... ......wipe..|
00002900  04 0a dd f2 77 69 70 65  0d 15 0e 10 d4 35 2c 2d  |....wipe.....5,-|
00002910  31 34 2c 31 35 30 2c 32  0d 15 13 0a f2 62 6c 61  |14,150,2.....bla|
00002920  6e 6b 0d 15 18 09 f2 67  72 69 64 0d 15 22 0f 50  |nk.....grid..".P|
00002930  25 3d 70 61 74 74 65 72  6e 25 0d 15 2c 0d e3 49  |%=pattern%..,..I|
00002940  25 3d 31 b8 32 35 36 0d  15 36 1f 3f 28 6d 65 6d  |%=1.256..6.?(mem|
00002950  25 2b 28 28 50 25 2d 31  29 2a 32 35 36 29 2b 49  |%+((P%-1)*256)+I|
00002960  25 2d 31 29 3d 30 0d 15  40 05 ed 0d 15 4a 05 e1  |%-1)=0..@....J..|
00002970  0d 15 54 17 f4 83 53 54  4f 52 45 20 42 41 52 20  |..T...STORE BAR |
00002980  4f 46 20 53 4f 4e 47 0d  15 5e 0b dd f2 73 74 6f  |OF SONG..^...sto|
00002990  72 65 0d 15 68 0f f4 83  73 74 6f 72 65 20 62 61  |re..h...store ba|
000029a0  72 0d 15 72 0e e7 58 25  3e 3d 34 34 38 20 8c 0d  |r..r..X%>=448 ..|
000029b0  15 7c 11 20 d4 33 2c 2d  31 35 2c 32 33 30 2c 32  |.|. .3,-15,230,2|
000029c0  0d 15 86 26 20 3f 28 73  74 6f 72 65 6d 65 6d 25  |...& ?(storemem%|
000029d0  2b 77 68 69 63 68 62 61  72 25 2d 31 29 3d 70 61  |+whichbar%-1)=pa|
000029e0  74 74 65 72 6e 25 0d 15  90 2d 20 70 61 74 24 3d  |ttern%...- pat$=|
000029f0  c3 70 61 74 74 65 72 6e  25 3a e7 70 61 74 74 65  |.pattern%:.patte|
00002a00  72 6e 25 3c 31 30 70 61  74 24 3d 22 30 22 2b 70  |rn%<10pat$="0"+p|
00002a10  61 74 24 0d 15 9a 1d 20  fb 33 3a fb 31 32 38 3a  |at$.... .3:.128:|
00002a20  f1 8a 31 31 2c 32 35 29  22 20 22 3b 70 61 74 24  |..11,25)" ";pat$|
00002a30  0d 15 a4 20 f2 67 72 69  64 3a f2 64 69 73 70 6c  |... .grid:.displ|
00002a40  61 79 64 6f 74 73 28 70  61 74 74 65 72 6e 25 29  |aydots(pattern%)|
00002a50  0d 15 ae 05 cd 0d 15 b8  05 20 0d 15 c2 0e f4 82  |......... ......|
00002a60  77 69 70 65 20 62 61 72  0d 15 cc 0e e7 58 25 3c  |wipe bar.....X%<|
00002a70  3d 33 35 32 20 8c 0d 15  d6 11 20 d4 33 2c 2d 31  |=352 ..... .3,-1|
00002a80  35 2c 31 38 30 2c 32 0d  15 e0 1f 20 3f 28 73 74  |5,180,2.... ?(st|
00002a90  6f 72 65 6d 65 6d 25 2b  77 68 69 63 68 62 61 72  |oremem%+whichbar|
00002aa0  25 2d 31 29 3d 30 0d 15  ea 0e 20 70 61 74 24 3d  |%-1)=0.... pat$=|
00002ab0  22 30 30 22 0d 15 f4 1d  20 fb 33 3a fb 31 32 38  |"00".... .3:.128|
00002ac0  3a f1 8a 31 31 2c 32 35  29 22 20 22 3b 70 61 74  |:..11,25)" ";pat|
00002ad0  24 0d 15 fe 05 20 0d 16  08 09 f2 67 72 69 64 0d  |$.... .....grid.|
00002ae0  16 12 05 cd 0d 16 1c 05  20 0d 16 26 05 e1 0d 16  |........ ..&....|
00002af0  30 05 20 0d 16 3a 14 f4  82 73 74 65 70 20 74 68  |0. ..:...step th|
00002b00  72 75 20 42 41 52 53 0d  16 44 15 dd f2 73 74 65  |ru BARS..D...ste|
00002b10  70 62 61 72 73 28 73 74  65 70 25 29 0d 16 4e 0e  |pbars(step%)..N.|
00002b20  e7 58 25 3e 3d 34 34 38  20 8c 0d 16 58 11 20 d4  |.X%>=448 ...X. .|
00002b30  32 2c 2d 31 32 2c 32 34  30 2c 32 0d 16 62 33 20  |2,-12,240,2..b3 |
00002b40  e7 77 68 69 63 68 62 61  72 25 2b 73 74 65 70 25  |.whichbar%+step%|
00002b50  3c 3d 73 74 6f 72 65 6c  65 6e 67 74 68 25 77 68  |<=storelength%wh|
00002b60  69 63 68 62 61 72 25 2b  3d 73 74 65 70 25 0d 16  |ichbar%+=step%..|
00002b70  6c 21 20 fb 31 32 38 3a  fb 34 3a 77 68 69 63 68  |l! .128:.4:which|
00002b80  62 61 72 24 3d c3 77 68  69 63 68 62 61 72 25 0d  |bar$=.whichbar%.|
00002b90  16 76 39 20 e7 a9 77 68  69 63 68 62 61 72 24 3c  |.v9 ..whichbar$<|
00002ba0  33 3a f5 77 68 69 63 68  62 61 72 24 3d 22 30 22  |3:.whichbar$="0"|
00002bb0  2b 77 68 69 63 68 62 61  72 24 3a fd a9 77 68 69  |+whichbar$:..whi|
00002bc0  63 68 62 61 72 24 3d 33  0d 16 80 16 20 f1 8a 31  |chbar$=3.... ..1|
00002bd0  31 2c 32 34 29 77 68 69  63 68 62 61 72 24 0d 16  |1,24)whichbar$..|
00002be0  8a 28 20 73 74 6f 72 65  64 70 61 74 25 3d 3f 28  |.( storedpat%=?(|
00002bf0  73 74 6f 72 65 6d 65 6d  25 2b 77 68 69 63 68 62  |storemem%+whichb|
00002c00  61 72 25 2d 31 29 0d 16  94 31 20 70 61 74 24 3d  |ar%-1)...1 pat$=|
00002c10  c3 73 74 6f 72 65 64 70  61 74 25 3a e7 73 74 6f  |.storedpat%:.sto|
00002c20  72 65 64 70 61 74 25 3c  31 30 70 61 74 24 3d 22  |redpat%<10pat$="|
00002c30  30 22 2b 70 61 74 24 0d  16 9e 1d 20 fb 33 3a fb  |0"+pat$.... .3:.|
00002c40  31 32 38 3a f1 8a 31 31  2c 32 35 29 22 20 22 3b  |128:..11,25)" ";|
00002c50  70 61 74 24 0d 16 a8 05  20 0d 16 b2 05 cd 0d 16  |pat$.... .......|
00002c60  bc 0e e7 58 25 3c 3d 33  35 32 20 8c 0d 16 c6 34  |...X%<=352 ....4|
00002c70  20 e7 77 68 69 63 68 62  61 72 25 2d 73 74 65 70  | .whichbar%-step|
00002c80  25 3e 30 77 68 69 63 68  62 61 72 25 2d 3d 73 74  |%>0whichbar%-=st|
00002c90  65 70 25 3a d4 32 2c 2d  31 32 2c 32 30 30 2c 32  |ep%:.2,-12,200,2|
00002ca0  0d 16 d0 21 20 fb 31 32  38 3a fb 34 3a 77 68 69  |...! .128:.4:whi|
00002cb0  63 68 62 61 72 24 3d c3  77 68 69 63 68 62 61 72  |chbar$=.whichbar|
00002cc0  25 0d 16 da 39 20 e7 a9  77 68 69 63 68 62 61 72  |%...9 ..whichbar|
00002cd0  24 3c 33 3a f5 77 68 69  63 68 62 61 72 24 3d 22  |$<3:.whichbar$="|
00002ce0  30 22 2b 77 68 69 63 68  62 61 72 24 3a fd a9 77  |0"+whichbar$:..w|
00002cf0  68 69 63 68 62 61 72 24  3d 33 0d 16 e4 16 20 f1  |hichbar$=3.... .|
00002d00  8a 31 31 2c 32 34 29 77  68 69 63 68 62 61 72 24  |.11,24)whichbar$|
00002d10  0d 16 ee 28 20 73 74 6f  72 65 64 70 61 74 25 3d  |...( storedpat%=|
00002d20  3f 28 73 74 6f 72 65 6d  65 6d 25 2b 77 68 69 63  |?(storemem%+whic|
00002d30  68 62 61 72 25 2d 31 29  0d 16 f8 31 20 70 61 74  |hbar%-1)...1 pat|
00002d40  24 3d c3 73 74 6f 72 65  64 70 61 74 25 3a e7 73  |$=.storedpat%:.s|
00002d50  74 6f 72 65 64 70 61 74  25 3c 31 30 70 61 74 24  |toredpat%<10pat$|
00002d60  3d 22 30 22 2b 70 61 74  24 0d 17 02 1d 20 fb 33  |="0"+pat$.... .3|
00002d70  3a fb 31 32 38 3a f1 8a  31 31 2c 32 35 29 22 20  |:.128:..11,25)" |
00002d80  22 3b 70 61 74 24 0d 17  0c 05 cd 0d 17 11 0f 73  |";pat$.........s|
00002d90  68 6f 77 57 48 41 54 25  3d 31 0d 17 14 0a f2 62  |howWHAT%=1.....b|
00002da0  6c 61 6e 6b 0d 17 16 09  f2 67 72 69 64 0d 17 20  |lank.....grid.. |
00002db0  12 e7 73 74 6f 72 65 64  70 61 74 25 3d 30 e1 0d  |..storedpat%=0..|
00002dc0  17 2a 1c f2 64 69 73 70  6c 61 79 64 6f 74 73 28  |.*..displaydots(|
00002dd0  73 74 6f 72 65 64 70 61  74 25 29 0d 17 2c 17 70  |storedpat%)..,.p|
00002de0  61 74 74 65 72 6e 25 3d  73 74 6f 72 65 64 70 61  |attern%=storedpa|
00002df0  74 25 0d 17 2e 2c 70 61  74 24 3d c3 70 61 74 74  |t%...,pat$=.patt|
00002e00  65 72 6e 25 3a e7 70 61  74 74 65 72 6e 25 3c 31  |ern%:.pattern%<1|
00002e10  30 70 61 74 24 3d 22 30  22 2b 70 61 74 24 0d 17  |0pat$="0"+pat$..|
00002e20  2f 26 fb 33 3a fb 31 32  38 3a f1 8a 38 2c 32 29  |/&.3:.128:..8,2)|
00002e30  3b 70 61 74 24 8a 31 31  2c 32 33 29 22 20 22 3b  |;pat$.11,23)" ";|
00002e40  70 61 74 24 0d 17 34 05  e1 0d 17 3e 05 20 0d 17  |pat$..4....>. ..|
00002e50  48 0f f4 84 50 4c 41 59  20 53 4f 4e 47 0d 17 52  |H...PLAY SONG..R|
00002e60  0e dd f2 70 6c 61 79 73  6f 6e 67 0d 17 5c 16 c8  |...playsong..\..|
00002e70  97 20 c8 93 20 34 34 38  2c 36 34 2c 36 34 2c 36  |. .. 448,64,64,6|
00002e80  34 0d 17 66 25 fb 31 32  38 3a fb 34 3a f1 8a 31  |4..f%.128:.4:..1|
00002e90  31 2c 32 34 29 22 20 20  20 22 8a 31 31 2c 32 35  |1,24)"   ".11,25|
00002ea0  29 22 20 20 20 22 0d 17  70 10 e7 63 6f 6e 74 25  |)"   "..p..cont%|
00002eb0  3d 30 54 25 3d 30 0d 17  7a 23 f4 49 46 63 6f 6e  |=0T%=0..z#.IFcon|
00002ec0  74 25 3d 31 41 4e 44 54  25 3e 31 54 25 3d 77 68  |t%=1ANDT%>1T%=wh|
00002ed0  69 63 68 62 61 72 25 2d  31 0d 17 7b 1a e7 63 6f  |ichbar%-1..{..co|
00002ee0  6e 74 25 3d 31 54 25 3d  77 68 69 63 68 62 61 72  |nt%=1T%=whichbar|
00002ef0  25 2d 31 0d 17 7c 0a e7  54 25 3c 30 e1 0d 17 84  |%-1..|..T%<0....|
00002f00  22 c8 95 20 3f 28 73 74  6f 72 65 6d 65 6d 25 2b  |".. ?(storemem%+|
00002f10  54 25 29 3e 30 20 80 20  73 74 6f 70 25 3d 30 0d  |T%)>0 . stop%=0.|
00002f20  17 8e 36 e7 73 68 6f 77  25 3d 31 f2 62 6c 61 6e  |..6.show%=1.blan|
00002f30  6b 3a f2 67 72 69 64 3a  f2 64 69 73 70 6c 61 79  |k:.grid:.display|
00002f40  64 6f 74 73 28 3f 28 73  74 6f 72 65 6d 65 6d 25  |dots(?(storemem%|
00002f50  2b 54 25 29 29 0d 17 98  23 fb 34 3a 54 24 3d c3  |+T%))...#.4:T$=.|
00002f60  28 54 25 2b 31 29 3a f1  8a 31 34 2d a9 54 24 2c  |(T%+1):..14-.T$,|
00002f70  32 34 29 3b 54 25 2b 31  0d 17 a2 39 fb 33 3a 74  |24);T%+1...9.3:t|
00002f80  24 3d c3 28 3f 28 73 74  6f 72 65 6d 65 6d 25 2b  |$=.(?(storemem%+|
00002f90  54 25 29 29 3a f1 8a 31  34 2d a9 74 24 2c 32 35  |T%)):..14-.t$,25|
00002fa0  29 3b 3f 28 73 74 6f 72  65 6d 65 6d 25 2b 54 25  |);?(storemem%+T%|
00002fb0  29 0d 17 a4 0e f5 fd 91  3e 74 65 6d 70 6f 25 0d  |).......>tempo%.|
00002fc0  17 ac 1c f2 70 6c 61 79  69 74 28 3f 28 73 74 6f  |....playit(?(sto|
00002fd0  72 65 6d 65 6d 25 2b 54  25 29 29 0d 17 b6 09 54  |remem%+T%))....T|
00002fe0  25 2b 3d 31 0d 17 c0 05  ce 0d 17 ca 10 77 68 69  |%+=1.........whi|
00002ff0  63 68 62 61 72 25 3d 54  25 0d 17 d4 0b 73 74 6f  |chbar%=T%....sto|
00003000  70 25 3d 30 0d 17 de 16  c8 97 20 c8 93 38 2c 33  |p%=0...... ..8,3|
00003010  32 2c 31 32 36 34 2c 39  36 30 0d 17 e8 05 e1 0d  |2,1264,960......|
00003020  17 f2 11 f4 82 53 41 56  45 20 41 20 53 4f 4e 47  |.....SAVE A SONG|
00003030  0d 17 fc 0e dd f2 73 61  76 65 73 6f 6e 67 0d 18  |......savesong..|
00003040  06 08 c8 97 20 87 0d 18  10 0b fb 33 3a fb 31 32  |.... ......3:.12|
00003050  38 0d 18 1a 10 d4 38 2c  2d 31 35 2c 31 35 30 2c  |8.....8,-15,150,|
00003060  33 0d 18 24 13 f1 8a 31  39 2c 32 39 29 22 4e 61  |3..$...19,29)"Na|
00003070  6d 65 3d 22 0d 18 2e 11  f2 69 6e 70 75 74 28 31  |me=".....input(1|
00003080  39 2c 32 39 29 0d 18 38  0d 4e 24 3d 69 6e 70 75  |9,29)..8.N$=inpu|
00003090  74 24 0d 18 42 27 61 64  64 24 3d 22 3c 44 52 55  |t$..B'add$="<DRU|
000030a0  4d 4b 49 54 24 64 69 72  3e 2e 70 61 74 73 4e 73  |MKIT$dir>.patsNs|
000030b0  6f 6e 67 73 2e 22 2b 4e  24 0d 18 4c 1c f4 81 73  |ongs."+N$..L...s|
000030c0  61 76 65 20 70 61 74 74  65 72 6e 73 20 77 69 74  |ave patterns wit|
000030d0  68 20 61 83 50 0d 18 56  2e c8 99 22 4f 53 5f 46  |h a.P..V..."OS_F|
000030e0  69 6c 65 22 2c 30 2c 61  64 64 24 2b 22 50 22 2c  |ile",0,add$+"P",|
000030f0  6d 65 6d 25 2c 6d 65 6d  25 2c 6d 65 6d 25 2c 65  |mem%,mem%,mem%,e|
00003100  6e 64 25 0d 18 60 0f f4  85 73 61 76 65 20 73 6f  |nd%..`...save so|
00003110  6e 67 0d 18 6a 3e c8 99  22 4f 53 5f 46 69 6c 65  |ng..j>.."OS_File|
00003120  22 2c 30 2c 61 64 64 24  2c 73 74 6f 72 65 6d 65  |",0,add$,storeme|
00003130  6d 25 2c 73 74 6f 72 65  6d 65 6d 25 2c 73 74 6f  |m%,storemem%,sto|
00003140  72 65 6d 65 6d 25 2c 73  74 6f 72 65 65 6e 64 25  |remem%,storeend%|
00003150  0d 18 74 42 fb 30 3a fb  31 32 39 3a f1 8a 31 39  |..tB.0:.129:..19|
00003160  2c 32 39 29 22 53 41 56  45 22 89 39 3a f4 43 4f  |,29)"SAVE".9:.CO|
00003170  4c 4f 55 52 31 3a 43 4f  4c 4f 55 52 31 33 35 3a  |LOUR1:COLOUR135:|
00003180  50 52 49 4e 54 54 41 42  28 32 33 2c 32 39 29 22  |PRINTTAB(23,29)"|
00003190  2a 22 0d 18 75 2f c8 99  20 22 4f 53 5f 53 70 72  |*"..u/.. "OS_Spr|
000031a0  69 74 65 4f 70 22 2c 32  35 36 2b 33 34 2c 53 25  |iteOp",256+34,S%|
000031b0  2c 22 50 4c 41 59 31 22  2c 37 33 36 2c 36 34 2c  |,"PLAY1",736,64,|
000031c0  30 0d 18 7e 08 c8 97 20  ee 0d 18 88 05 e1 0d 18  |0..~... ........|
000031d0  92 05 20 0d 18 9c 11 f4  86 4c 4f 41 44 20 41 20  |.. ......LOAD A |
000031e0  53 4f 4e 47 0d 18 a6 0e  dd f2 6c 6f 61 64 73 6f  |SONG......loadso|
000031f0  6e 67 0d 18 b0 08 c8 97  20 87 0d 18 ba 25 fb 31  |ng...... ....%.1|
00003200  32 38 3a fb 34 3a f1 8a  31 31 2c 32 34 29 22 20  |28:.4:..11,24)" |
00003210  20 20 22 8a 31 31 2c 32  35 29 22 20 20 20 22 0d  |  ".11,25)"   ".|
00003220  18 c4 0b fb 33 3a fb 31  32 38 0d 18 ce 10 d4 38  |....3:.128.....8|
00003230  2c 2d 31 35 2c 32 32 30  2c 33 0d 18 d8 13 f1 8a  |,-15,220,3......|
00003240  31 39 2c 33 30 29 22 4e  61 6d 65 3d 22 0d 18 e2  |19,30)"Name="...|
00003250  11 f2 69 6e 70 75 74 28  31 39 2c 33 30 29 0d 18  |..input(19,30)..|
00003260  ec 0d 4e 24 3d 69 6e 70  75 74 24 0d 18 f6 27 61  |..N$=input$...'a|
00003270  64 64 24 3d 22 3c 44 52  55 4d 4b 49 54 24 64 69  |dd$="<DRUMKIT$di|
00003280  72 3e 2e 70 61 74 73 4e  73 6f 6e 67 73 2e 22 2b  |r>.patsNsongs."+|
00003290  4e 24 0d 19 00 0f f4 81  6c 6f 61 64 20 73 6f 6e  |N$......load son|
000032a0  67 0d 19 0a 22 c8 99 22  4f 53 5f 46 69 6c 65 22  |g...".."OS_File"|
000032b0  2c 26 46 46 2c 61 64 64  24 2c 73 74 6f 72 65 6d  |,&FF,add$,storem|
000032c0  65 6d 25 0d 19 14 13 f4  85 6c 6f 61 64 20 70 61  |em%......load pa|
000032d0  74 74 65 72 6e 73 0d 19  1e 21 c8 99 22 4f 53 5f  |tterns...!.."OS_|
000032e0  46 69 6c 65 22 2c 26 46  46 2c 61 64 64 24 2b 22  |File",&FF,add$+"|
000032f0  50 22 2c 6d 65 6d 25 0d  19 28 42 fb 30 3a fb 31  |P",mem%..(B.0:.1|
00003300  32 39 3a f1 8a 32 30 2c  33 30 29 22 4c 4f 41 44  |29:..20,30)"LOAD|
00003310  22 89 38 3a f4 43 4f 4c  4f 55 52 34 3a 43 4f 4c  |".8:.COLOUR4:COL|
00003320  4f 55 52 31 33 34 3a 50  52 49 4e 54 54 41 42 28  |OUR134:PRINTTAB(|
00003330  31 39 2c 33 30 29 22 2a  22 0d 19 29 2f c8 99 20  |19,30)"*"..)/.. |
00003340  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 32 35  |"OS_SpriteOp",25|
00003350  36 2b 33 34 2c 53 25 2c  22 50 4c 41 59 31 22 2c  |6+34,S%,"PLAY1",|
00003360  36 30 38 2c 33 32 2c 30  0d 19 32 1d fb 33 3a fb  |608,32,0..2..3:.|
00003370  31 33 32 3a f1 8a 32 34  2c 33 29 89 38 8a 32 34  |132:..24,3).8.24|
00003380  2c 33 29 4e 24 0d 19 3c  17 fb 34 3a fb 31 32 38  |,3)N$..<..4:.128|
00003390  3a f1 8a 31 33 2c 32 34  29 22 31 22 0d 19 46 33  |:..13,24)"1"..F3|
000033a0  fb 33 3a 74 24 3d c3 28  3f 28 73 74 6f 72 65 6d  |.3:t$=.(?(storem|
000033b0  65 6d 25 29 29 3a f1 8a  31 34 2d a9 74 24 2c 32  |em%)):..14-.t$,2|
000033c0  35 29 3b 3f 28 73 74 6f  72 65 6d 65 6d 25 29 0d  |5);?(storemem%).|
000033d0  19 50 10 f4 77 68 69 63  68 62 61 72 25 3d 31 0d  |.P..whichbar%=1.|
000033e0  19 55 0a f2 62 6c 61 6e  6b 0d 19 5a 09 f2 67 72  |.U..blank..Z..gr|
000033f0  69 64 0d 19 64 1e f2 64  69 73 70 6c 61 79 64 6f  |id..d..displaydo|
00003400  74 73 28 3f 28 73 74 6f  72 65 6d 65 6d 25 29 29  |ts(?(storemem%))|
00003410  0d 19 6e 08 c8 97 20 ee  0d 19 73 0d 6c 6f 61 64  |..n... ...s.load|
00003420  65 64 25 3d 31 0d 19 78  05 e1 0d 19 82 12 f4 83  |ed%=1..x........|
00003430  43 4f 50 59 20 50 41 54  54 45 52 4e 0d 19 8c 0d  |COPY PATTERN....|
00003440  dd f2 63 6f 70 79 70 61  74 0d 19 96 0e c8 8e 20  |..copypat...... |
00003450  63 6f 70 79 25 20 ca 0d  19 a0 08 c9 20 30 3a 0d  |copy% ...... 0:.|
00003460  19 aa 10 d4 33 2c 2d 31  35 2c 31 32 30 2c 32 0d  |....3,-15,120,2.|
00003470  19 b4 08 fb 31 33 37 0d  19 be 0e f1 8a 31 32 2c  |....137......12,|
00003480  33 29 22 20 22 0d 19 c8  06 fb 35 0d 19 d2 17 f1  |3)" ".....5.....|
00003490  8a 37 2c 32 29 3b 22 3c  22 8a 31 30 2c 32 29 22  |.7,2);"<".10,2)"|
000034a0  3e 22 0d 19 dc 15 70 61  74 63 6f 70 79 25 3d 70  |>"....patcopy%=p|
000034b0  61 74 74 65 72 6e 25 0d  19 e6 0b 63 6f 70 79 25  |attern%....copy%|
000034c0  3d 31 0d 19 f0 05 20 0d  19 fa 08 c9 20 31 3a 0d  |=1.... ..... 1:.|
000034d0  1a 04 0f d4 33 2c 2d 31  35 2c 38 30 2c 32 0d 1a  |....3,-15,80,2..|
000034e0  0e 16 f4 43 4f 4c 4f 55  52 31 3a 43 4f 4c 4f 55  |...COLOUR1:COLOU|
000034f0  52 31 33 35 0d 1a 18 22  f4 50 52 49 4e 54 54 41  |R135...".PRINTTA|
00003500  42 28 37 2c 32 29 3b 22  3c 22 54 41 42 28 31 30  |B(7,2);"<"TAB(10|
00003510  2c 32 29 22 3e 22 0d 1a  19 5e c8 99 20 22 4f 53  |,2)">"...^.. "OS|
00003520  5f 53 70 72 69 74 65 4f  70 22 2c 32 35 36 2b 33  |_SpriteOp",256+3|
00003530  34 2c 53 25 2c 22 4c 45  46 54 31 22 2c 32 32 34  |4,S%,"LEFT1",224|
00003540  2c 39 32 38 2c 30 3a c8  99 20 22 4f 53 5f 53 70  |,928,0:.. "OS_Sp|
00003550  72 69 74 65 4f 70 22 2c  32 35 36 2b 33 34 2c 53  |riteOp",256+34,S|
00003560  25 2c 22 52 49 47 48 54  31 22 2c 33 32 30 2c 39  |%,"RIGHT1",320,9|
00003570  32 38 2c 30 0d 1a 22 16  f4 43 4f 4c 4f 55 52 37  |28,0.."..COLOUR7|
00003580  3a 43 4f 4c 4f 55 52 31  32 39 0d 1a 2c 16 f4 50  |:COLOUR129..,..P|
00003590  52 49 4e 54 54 41 42 28  31 32 2c 33 29 22 2a 22  |RINTTAB(12,3)"*"|
000035a0  0d 1a 2d 30 c8 99 20 22  4f 53 5f 53 70 72 69 74  |..-0.. "OS_Sprit|
000035b0  65 4f 70 22 2c 32 35 36  2b 33 34 2c 53 25 2c 22  |eOp",256+34,S%,"|
000035c0  50 4c 41 59 31 22 2c 33  38 34 2c 38 39 36 2c 30  |PLAY1",384,896,0|
000035d0  0d 1a 36 21 66 72 6f 6d  25 3d 6d 65 6d 25 2b 28  |..6!from%=mem%+(|
000035e0  28 70 61 74 63 6f 70 79  25 2d 31 29 2a 32 35 36  |(patcopy%-1)*256|
000035f0  29 0d 1a 40 21 20 20 74  6f 25 3d 6d 65 6d 25 2b  |)..@!  to%=mem%+|
00003600  28 28 70 61 74 74 65 72  6e 25 2d 31 29 2a 32 35  |((pattern%-1)*25|
00003610  36 29 0d 1a 4a 0d e3 49  25 3d 30 b8 32 35 35 0d  |6)..J..I%=0.255.|
00003620  1a 54 13 49 25 3f 74 6f  25 3d 49 25 3f 66 72 6f  |.T.I%?to%=I%?fro|
00003630  6d 25 0d 1a 5e 05 ed 0d  1a 68 09 f2 67 72 69 64  |m%..^....h..grid|
00003640  0d 1a 72 1a f2 64 69 73  70 6c 61 79 64 6f 74 73  |..r..displaydots|
00003650  28 70 61 74 63 6f 70 79  25 29 0d 1a 7c 0b 63 6f  |(patcopy%)..|.co|
00003660  70 79 25 3d 30 0d 1a 86  05 cb 0d 1a 90 05 e1 0d  |py%=0...........|
00003670  1a 9a 05 20 0d 1a a4 10  f4 81 2e 2e 63 6f 6e 74  |... ........cont|
00003680  69 6e 75 65 0d 1a ae 0e  dd f2 63 6f 6e 74 69 6e  |inue......contin|
00003690  75 65 0d 1a b8 0b 63 6f  6e 74 25 3d 31 0d 1a bd  |ue....cont%=1...|
000036a0  0b 73 74 6f 70 25 3d 30  0d 1a c2 0d f2 70 6c 61  |.stop%=0.....pla|
000036b0  79 73 6f 6e 67 0d 1a cc  0b 63 6f 6e 74 25 3d 30  |ysong....cont%=0|
000036c0  0d 1a d6 05 e1 0d 1a e0  05 20 0d 1a ea 0f f4 85  |......... ......|
000036d0  57 49 50 45 20 53 4f 4e  47 0d 1a f4 0e dd f2 77  |WIPE SONG......w|
000036e0  69 70 65 73 6f 6e 67 0d  1a fe 10 d4 35 2c 2d 31  |ipesong.....5,-1|
000036f0  35 2c 31 32 30 2c 34 0d  1b 08 20 e3 49 25 3d 73  |5,120,4... .I%=s|
00003700  74 6f 72 65 6d 65 6d 25  20 b8 20 73 74 6f 72 65  |toremem% . store|
00003710  65 6e 64 25 20 88 34 0d  1b 12 09 21 49 25 3d 30  |end% .4....!I%=0|
00003720  0d 1b 1c 05 ed 0d 1b 21  0a f2 62 6c 61 6e 6b 0d  |.......!..blank.|
00003730  1b 26 24 f2 67 72 69 64  3a f4 50 52 4f 43 64 69  |.&$.grid:.PROCdi|
00003740  73 70 6c 61 79 64 6f 74  73 28 70 61 74 74 65 72  |splaydots(patter|
00003750  6e 25 29 0d 1b 30 0f 77  68 69 63 68 62 61 72 25  |n%)..0.whichbar%|
00003760  3d 31 0d 1b 3a 0f f4 70  61 74 74 65 72 6e 25 3d  |=1..:..pattern%=|
00003770  31 0d 1b 44 19 fb 33 3a  fb 31 32 38 3a f1 8a 31  |1..D..3:.128:..1|
00003780  31 2c 32 35 29 22 20 30  30 22 0d 1b 4e 06 fb 34  |1,25)" 00"..N..4|
00003790  0d 1b 58 11 f1 8a 31 31  2c 32 34 29 22 30 30 31  |..X...11,24)"001|
000037a0  22 0d 1b 62 05 e1 0d 1b  6c 05 20 0d 1b 76 0c f4  |"..b....l. ..v..|
000037b0  83 49 4e 53 45 52 54 0d  1b 80 0c dd f2 69 6e 73  |.INSERT......ins|
000037c0  65 72 74 0d 1b 8a 10 d4  35 2c 2d 31 33 2c 32 31  |ert.....5,-13,21|
000037d0  30 2c 31 0d 1b 94 26 e3  49 25 3d 73 74 6f 72 65  |0,1...&.I%=store|
000037e0  6c 65 6e 67 74 68 25 20  b8 20 77 68 69 63 68 62  |length% . whichb|
000037f0  61 72 25 2b 31 20 88 2d  31 0d 1b 9e 21 49 25 3f  |ar%+1 .-1...!I%?|
00003800  73 74 6f 72 65 6d 65 6d  25 3d 49 25 3f 28 73 74  |storemem%=I%?(st|
00003810  6f 72 65 6d 65 6d 25 2d  31 29 0d 1b a8 05 ed 0d  |oremem%-1)......|
00003820  1b b2 23 3f 28 73 74 6f  72 65 6d 65 6d 25 2b 77  |..#?(storemem%+w|
00003830  68 69 63 68 62 61 72 25  29 3d 70 61 74 74 65 72  |hichbar%)=patter|
00003840  6e 25 0d 1b bc 20 f2 67  72 69 64 3a f2 64 69 73  |n%... .grid:.dis|
00003850  70 6c 61 79 64 6f 74 73  28 70 61 74 74 65 72 6e  |playdots(pattern|
00003860  25 29 0d 1b c6 05 20 0d  1b d0 05 e1 0d 1b da 05  |%).... .........|
00003870  20 0d 1b e4 0c f4 81 44  45 4c 45 54 45 0d 1b ee  | ......DELETE...|
00003880  0c dd f2 64 65 6c 65 74  65 0d 1b f8 10 d4 35 2c  |...delete.....5,|
00003890  2d 31 33 2c 31 38 30 2c  31 0d 1c 02 24 e3 49 25  |-13,180,1...$.I%|
000038a0  3d 77 68 69 63 68 62 61  72 25 2d 31 20 b8 20 73  |=whichbar%-1 . s|
000038b0  74 6f 72 65 6c 65 6e 67  74 68 25 2d 31 0d 1c 0c  |torelength%-1...|
000038c0  21 49 25 3f 73 74 6f 72  65 6d 65 6d 25 3d 49 25  |!I%?storemem%=I%|
000038d0  3f 28 73 74 6f 72 65 6d  65 6d 25 2b 31 29 0d 1c  |?(storemem%+1)..|
000038e0  16 05 ed 0d 1c 20 24 f4  3f 28 73 74 6f 72 65 6d  |..... $.?(storem|
000038f0  65 6d 25 2b 77 68 69 63  68 62 61 72 25 29 3d 70  |em%+whichbar%)=p|
00003900  61 74 74 65 72 6e 25 0d  1c 2a 24 f2 67 72 69 64  |attern%..*$.grid|
00003910  3a f4 50 52 4f 43 64 69  73 70 6c 61 79 64 6f 74  |:.PROCdisplaydot|
00003920  73 28 70 61 74 74 65 72  6e 25 29 0d 1c 34 05 e1  |s(pattern%)..4..|
00003930  0d 1c 3e 05 20 0d 1c 48  1f f4 86 43 6f 70 79 20  |..>. ..H...Copy |
00003940  62 6c 6f 63 6b 20 6f 66  20 62 61 72 73 2f 64 65  |block of bars/de|
00003950  6c 65 74 65 0d 1c 52 18  dd f2 62 6c 6f 63 6b 28  |lete..R...block(|
00003960  63 61 73 65 25 2c 73 74  65 70 25 29 0d 1c 5c 08  |case%,step%)..\.|
00003970  fb 31 32 38 0d 1c 66 0e  c8 8e 20 63 61 73 65 25  |.128..f... case%|
00003980  20 ca 0d 1c 70 0d f4 83  63 6f 70 79 20 74 6f 0d  | ...p...copy to.|
00003990  1c 7a 08 c9 20 31 3a 0d  1c 84 11 20 d4 34 2c 2d  |.z.. 1:.... .4,-|
000039a0  31 30 2c 32 32 32 2c 32  0d 1c 8e 07 20 fb 34 0d  |10,222,2.... .4.|
000039b0  1c 98 3d 20 e7 63 6f 70  79 74 6f 25 2d 73 74 65  |..= .copyto%-ste|
000039c0  70 25 3e 30 80 63 6f 70  79 74 6f 25 2b 73 74 65  |p%>0.copyto%+ste|
000039d0  70 25 3c 73 74 6f 72 65  6c 65 6e 67 74 68 25 f1  |p%<storelength%.|
000039e0  8a 32 34 2c 32 33 29 22  30 30 30 22 0d 1c a2 4f  |.24,23)"000"...O|
000039f0  20 e7 58 25 3c 3d 37 36  38 80 63 6f 70 79 74 6f  | .X%<=768.copyto|
00003a00  25 2d 73 74 65 70 25 3e  3d 31 63 6f 70 79 74 6f  |%-step%>=1copyto|
00003a10  25 2d 3d 73 74 65 70 25  3a 6c 25 3d a9 c3 28 63  |%-=step%:l%=..(c|
00003a20  6f 70 79 74 6f 25 29 3a  f1 8a 32 37 2d 6c 25 2c  |opyto%):..27-l%,|
00003a30  32 33 29 3b 63 6f 70 79  74 6f 25 0d 1c ac 59 20  |23);copyto%...Y |
00003a40  e7 58 25 3e 3d 38 36 34  80 63 6f 70 79 74 6f 25  |.X%>=864.copyto%|
00003a50  2b 73 74 65 70 25 3c 73  74 6f 72 65 6c 65 6e 67  |+step%<storeleng|
00003a60  74 68 25 63 6f 70 79 74  6f 25 2b 3d 73 74 65 70  |th%copyto%+=step|
00003a70  25 3a 6c 25 3d a9 c3 28  63 6f 70 79 74 6f 25 29  |%:l%=..(copyto%)|
00003a80  3a f1 8a 32 37 2d 6c 25  2c 32 33 29 3b 63 6f 70  |:..27-l%,23);cop|
00003a90  79 74 6f 25 0d 1c b6 05  20 0d 1c c0 0a f4 82 66  |yto%.... ......f|
00003aa0  72 6f 6d 0d 1c ca 08 c9  20 32 3a 0d 1c d4 11 20  |rom..... 2:.... |
00003ab0  d4 34 2c 2d 31 30 2c 32  30 32 2c 32 0d 1c de 08  |.4,-10,202,2....|
00003ac0  20 20 fb 31 0d 1c e8 5f  20 e7 58 25 3c 3d 37 36  |  .1..._ .X%<=76|
00003ad0  38 80 66 72 6f 6d 62 61  72 25 2d 73 74 65 70 25  |8.frombar%-step%|
00003ae0  3e 3d 31 66 72 6f 6d 62  61 72 25 2d 3d 73 74 65  |>=1frombar%-=ste|
00003af0  70 25 3a 6c 25 3d a9 c3  28 66 72 6f 6d 62 61 72  |p%:l%=..(frombar|
00003b00  25 29 3a f1 8a 32 34 2c  32 34 29 22 30 30 30 22  |%):..24,24)"000"|
00003b10  8a 32 37 2d 6c 25 2c 32  34 29 3b 66 72 6f 6d 62  |.27-l%,24);fromb|
00003b20  61 72 25 0d 1c f2 80 20  e7 58 25 3e 3d 38 36 34  |ar%.... .X%>=864|
00003b30  80 66 72 6f 6d 62 61 72  25 2b 73 74 65 70 25 3c  |.frombar%+step%<|
00003b40  73 74 6f 72 65 6c 65 6e  67 74 68 25 80 66 72 6f  |storelength%.fro|
00003b50  6d 62 61 72 25 2b 73 74  65 70 25 3c 3d 74 6f 62  |mbar%+step%<=tob|
00003b60  61 72 25 66 72 6f 6d 62  61 72 25 2b 3d 73 74 65  |ar%frombar%+=ste|
00003b70  70 25 3a 6c 25 3d a9 c3  28 66 72 6f 6d 62 61 72  |p%:l%=..(frombar|
00003b80  25 29 3a f1 8a 32 34 2c  32 34 29 22 30 30 30 22  |%):..24,24)"000"|
00003b90  8a 32 37 2d 6c 25 2c 32  34 29 3b 66 72 6f 6d 62  |.27-l%,24);fromb|
00003ba0  61 72 25 0d 1c fc 05 20  0d 1d 06 08 f4 81 74 6f  |ar%.... ......to|
00003bb0  0d 1d 10 08 c9 20 33 3a  0d 1d 1a 11 20 d4 34 2c  |..... 3:.... .4,|
00003bc0  2d 31 30 2c 31 39 32 2c  32 0d 1d 24 09 20 20 20  |-10,192,2..$.   |
00003bd0  fb 33 0d 1d 2e 6e 20 e7  58 25 3c 3d 37 36 38 80  |.3...n .X%<=768.|
00003be0  74 6f 62 61 72 25 2d 73  74 65 70 25 3e 3d 31 80  |tobar%-step%>=1.|
00003bf0  74 6f 62 61 72 25 2d 73  74 65 70 25 3e 3d 66 72  |tobar%-step%>=fr|
00003c00  6f 6d 62 61 72 25 74 6f  62 61 72 25 2d 3d 73 74  |ombar%tobar%-=st|
00003c10  65 70 25 3a 6c 25 3d a9  c3 28 74 6f 62 61 72 25  |ep%:l%=..(tobar%|
00003c20  29 3a f1 8a 32 34 2c 32  35 29 22 30 30 30 22 8a  |):..24,25)"000".|
00003c30  32 37 2d 6c 25 2c 32 35  29 3b 74 6f 62 61 72 25  |27-l%,25);tobar%|
00003c40  0d 1d 38 55 20 e7 58 25  3e 3d 38 36 34 80 74 6f  |..8U .X%>=864.to|
00003c50  62 61 72 25 2b 73 74 65  70 25 3c 73 74 6f 72 65  |bar%+step%<store|
00003c60  6c 65 6e 67 74 68 25 74  6f 62 61 72 25 2b 3d 73  |length%tobar%+=s|
00003c70  74 65 70 25 3a 6c 25 3d  a9 c3 28 74 6f 62 61 72  |tep%:l%=..(tobar|
00003c80  25 29 3a f1 8a 32 37 2d  6c 25 2c 32 35 29 3b 74  |%):..27-l%,25);t|
00003c90  6f 62 61 72 25 0d 1d 42  05 20 0d 1d 4c 13 f4 86  |obar%..B. ..L...|
00003ca0  63 6f 70 79 20 62 6c 6f  63 6b 20 74 6f 0d 1d 56  |copy block to..V|
00003cb0  08 c9 20 34 3a 0d 1d 60  10 20 d4 35 2c 2d 31 30  |.. 4:..`. .5,-10|
00003cc0  2c 39 32 2c 32 0d 1d 6a  1b e3 49 25 3d 30 20 b8  |,92,2..j..I%=0 .|
00003cd0  20 74 6f 62 61 72 25 2d  66 72 6f 6d 62 61 72 25  | tobar%-frombar%|
00003ce0  0d 1d 74 2b 49 25 3f 74  65 6d 70 73 74 6f 72 65  |..t+I%?tempstore|
00003cf0  25 3d 49 25 3f 28 73 74  6f 72 65 6d 65 6d 25 2b  |%=I%?(storemem%+|
00003d00  66 72 6f 6d 62 61 72 25  2d 31 29 0d 1d 7e 05 ed  |frombar%-1)..~..|
00003d10  0d 1d 88 24 e3 49 25 3d  73 74 6f 72 65 6c 65 6e  |...$.I%=storelen|
00003d20  67 74 68 25 20 b8 20 63  6f 70 79 74 6f 25 2b 31  |gth% . copyto%+1|
00003d30  20 88 2d 31 0d 1d 92 33  49 25 3f 73 74 6f 72 65  | .-1...3I%?store|
00003d40  6d 65 6d 25 3d 49 25 3f  28 73 74 6f 72 65 6d 65  |mem%=I%?(storeme|
00003d50  6d 25 2d 28 74 6f 62 61  72 25 2d 66 72 6f 6d 62  |m%-(tobar%-fromb|
00003d60  61 72 25 29 2d 31 29 0d  1d 9c 05 ed 0d 1d a6 1b  |ar%)-1).........|
00003d70  e3 49 25 3d 30 20 b8 20  74 6f 62 61 72 25 2d 66  |.I%=0 . tobar%-f|
00003d80  72 6f 6d 62 61 72 25 0d  1d b0 2a 49 25 3f 28 63  |rombar%...*I%?(c|
00003d90  6f 70 79 74 6f 25 2b 73  74 6f 72 65 6d 65 6d 25  |opyto%+storemem%|
00003da0  29 3d 49 25 3f 28 74 65  6d 70 73 74 6f 72 65 25  |)=I%?(tempstore%|
00003db0  29 0d 1d ba 05 ed 0d 1d  c4 05 20 0d 1d ce 12 f4  |)......... .....|
00003dc0  82 64 65 6c 65 74 65 20  62 6c 6f 63 6b 0d 1d d8  |.delete block...|
00003dd0  08 c9 20 35 3a 0d 1d e2  11 20 d4 35 2c 2d 31 30  |.. 5:.... .5,-10|
00003de0  2c 31 32 32 2c 32 0d 1d  ec 21 e3 49 25 3d 66 72  |,122,2...!.I%=fr|
00003df0  6f 6d 62 61 72 25 20 b8  20 73 74 6f 72 65 6c 65  |ombar% . storele|
00003e00  6e 67 74 68 25 2d 31 0d  1d f6 33 49 25 3f 28 73  |ngth%-1...3I%?(s|
00003e10  74 6f 72 65 6d 65 6d 25  2d 31 29 3d 49 25 3f 28  |toremem%-1)=I%?(|
00003e20  73 74 6f 72 65 6d 65 6d  25 2b 74 6f 62 61 72 25  |storemem%+tobar%|
00003e30  2d 66 72 6f 6d 62 61 72  25 29 0d 1e 00 05 ed 0d  |-frombar%)......|
00003e40  1e 0a 05 20 0d 1e 14 05  cb 0d 1e 1e 05 20 0d 1e  |... ......... ..|
00003e50  28 05 e1 0d 1e 32 05 20  0d 1e 3c 13 f4 83 49 4e  |(....2. ..<...IN|
00003e60  50 55 54 20 52 4f 55 54  49 4e 45 0d 1e 46 10 dd  |PUT ROUTINE..F..|
00003e70  f2 69 6e 70 75 74 28 58  2c 59 29 0d 1e 50 0b fb  |.input(X,Y)..P..|
00003e80  33 3a fb 31 32 38 0d 1e  5a 0d 69 6e 70 75 74 24  |3:.128..Z.input$|
00003e90  3d 22 22 0d 1e 64 09 47  24 3d 22 22 0d 1e 6e 07  |=""..d.G$=""..n.|
00003ea0  78 3d 31 0d 1e 78 14 c8  95 20 78 3c 39 20 80 20  |x=1..x... x<9 . |
00003eb0  97 47 24 3c 3e 31 33 0d  1e 82 08 47 24 3d be 0d  |.G$<>13....G$=..|
00003ec0  1e 8c 35 e7 97 47 24 3d  31 32 37 80 78 3e 31 69  |..5..G$=127.x>1i|
00003ed0  6e 70 75 74 24 3d c0 69  6e 70 75 74 24 29 3a f1  |nput$=.input$):.|
00003ee0  8a 58 2b 34 2b 78 2c 59  29 47 24 3a e7 78 3e 31  |.X+4+x,Y)G$:.x>1|
00003ef0  78 2d 3d 31 0d 1e 96 2d  e7 28 97 28 47 24 29 3c  |x-=1...-.(.(G$)<|
00003f00  3e 31 32 37 29 69 6e 70  75 74 24 2b 3d 47 24 3a  |>127)input$+=G$:|
00003f10  f1 8a 58 2b 34 2b 78 2c  59 29 47 24 3a 78 2b 3d  |..X+4+x,Y)G$:x+=|
00003f20  31 0d 1e a0 05 ce 0d 1e  aa 13 69 6e 70 75 74 24  |1.........input$|
00003f30  3d c0 69 6e 70 75 74 24  29 0d 1e b4 05 e1 0d 1e  |=.input$).......|
00003f40  be 05 20 0d 1e c8 10 f4  81 74 65 73 74 20 53 4f  |.. ......test SO|
00003f50  55 4e 44 0d 1e d2 0f dd  f2 74 65 73 74 73 6f 75  |UND......testsou|
00003f60  6e 64 0d 1e dc 17 68 6d  6d 25 3d 31 36 2d 28 59  |nd....hmm%=16-(Y|
00003f70  25 2d 33 35 32 29 81 33  32 0d 1e e6 0d c8 8e 20  |%-352).32...... |
00003f80  68 6d 6d 25 20 ca 0d 1e  f0 0f c9 20 31 3a f4 85  |hmm% ...... 1:..|
00003f90  48 49 48 41 54 0d 1e f2  10 20 c8 a2 20 31 2c 53  |HIHAT.... .. 1,S|
00003fa0  54 25 28 31 29 0d 1e fa  13 20 d4 31 2c 56 25 28  |T%(1).... .1,V%(|
00003fb0  31 29 2c 32 30 30 2c 32  0d 1f 04 0e c9 20 32 3a  |1),200,2..... 2:|
00003fc0  f4 85 54 4f 4d 31 0d 1f  06 10 20 c8 a2 20 32 2c  |..TOM1.... .. 2,|
00003fd0  53 54 25 28 32 29 0d 1f  0e 13 20 d4 32 2c 56 25  |ST%(2).... .2,V%|
00003fe0  28 32 29 2c 31 36 30 2c  33 0d 1f 18 0e c9 20 33  |(2),160,3..... 3|
00003ff0  3a f4 85 54 4f 4d 32 0d  1f 1a 10 20 c8 a2 20 32  |:..TOM2.... .. 2|
00004000  2c 53 54 25 28 33 29 0d  1f 22 13 20 d4 32 2c 56  |,ST%(3)..". .2,V|
00004010  25 28 33 29 2c 31 34 32  2c 33 0d 1f 2c 0e c9 20  |%(3),142,3..,.. |
00004020  34 3a f4 85 54 4f 4d 33  0d 1f 2e 10 20 c8 a2 20  |4:..TOM3.... .. |
00004030  32 2c 53 54 25 28 34 29  0d 1f 36 13 20 d4 32 2c  |2,ST%(4)..6. .2,|
00004040  56 25 28 34 29 2c 31 33  35 2c 33 0d 1f 40 10 c9  |V%(4),135,3..@..|
00004050  20 35 3a f4 85 42 4c 4f  43 4b 31 0d 1f 42 10 20  | 5:..BLOCK1..B. |
00004060  c8 a2 20 33 2c 53 54 25  28 35 29 0d 1f 4a 13 20  |.. 3,ST%(5)..J. |
00004070  d4 33 2c 56 25 28 35 29  2c 32 30 30 2c 35 0d 1f  |.3,V%(5),200,5..|
00004080  54 10 c9 20 36 3a f4 85  42 4c 4f 43 4b 32 0d 1f  |T.. 6:..BLOCK2..|
00004090  56 10 20 c8 a2 20 33 2c  53 54 25 28 36 29 0d 1f  |V. .. 3,ST%(6)..|
000040a0  5e 13 20 d4 33 2c 56 25  28 36 29 2c 32 34 34 2c  |^. .3,V%(6),244,|
000040b0  35 0d 1f 5f 11 c9 20 37  3a f4 85 43 59 4d 42 41  |5.._.. 7:..CYMBA|
000040c0  4c 31 0d 1f 60 10 20 c8  a2 20 34 2c 53 54 25 28  |L1..`. .. 4,ST%(|
000040d0  37 29 0d 1f 62 14 20 d4  34 2c 56 25 28 37 29 2c  |7)..b. .4,V%(7),|
000040e0  31 36 30 2c 33 30 0d 1f  68 11 c9 20 38 3a f4 85  |160,30..h.. 8:..|
000040f0  43 59 4d 42 41 4c 32 0d  1f 69 10 20 c8 a2 20 34  |CYMBAL2..i. .. 4|
00004100  2c 53 54 25 28 38 29 0d  1f 6a 14 20 d4 34 2c 56  |,ST%(8)..j. .4,V|
00004110  25 28 38 29 2c 31 35 30  2c 33 30 0d 1f 6b 12 c9  |%(8),150,30..k..|
00004120  20 39 3a f4 85 52 4f 54  4f 54 4f 4d 31 0d 1f 6c  | 9:..ROTOTOM1..l|
00004130  0f 20 c8 a2 35 2c 53 54  25 28 39 29 0d 1f 6d 13  |. ..5,ST%(9)..m.|
00004140  20 d4 35 2c 56 25 28 39  29 2c 31 30 30 2c 33 0d  | .5,V%(9),100,3.|
00004150  1f 6e 13 c9 20 31 30 3a  f4 85 52 4f 54 4f 54 4f  |.n.. 10:..ROTOTO|
00004160  4d 32 0d 1f 6f 10 20 c8  a2 35 2c 53 54 25 28 31  |M2..o. ..5,ST%(1|
00004170  30 29 0d 1f 70 13 20 d4  35 2c 56 25 28 31 30 29  |0)..p. .5,V%(10)|
00004180  2c 39 30 2c 33 0d 1f 72  15 c9 20 31 31 3a f4 85  |,90,3..r.. 11:..|
00004190  4f 50 45 4e 20 48 49 48  41 54 0d 1f 73 10 20 c8  |OPEN HIHAT..s. .|
000041a0  a2 31 2c 53 54 25 28 31  31 29 0d 1f 74 14 20 d4  |.1,ST%(11)..t. .|
000041b0  31 2c 56 25 28 31 31 29  2c 32 30 35 2c 38 0d 1f  |1,V%(11),205,8..|
000041c0  7c 05 20 0d 1f 86 05 20  0d 1f 8d 11 c9 20 31 34  ||. .... ..... 14|
000041d0  3a f4 85 53 4e 41 52 45  32 0d 1f 8e 11 20 c8 a2  |:..SNARE2.... ..|
000041e0  20 36 2c 53 54 25 28 31  34 29 0d 1f 8f 14 20 d4  | 6,ST%(14).... .|
000041f0  36 2c 56 25 28 31 34 29  2c 31 34 30 2c 33 0d 1f  |6,V%(14),140,3..|
00004200  90 10 c9 20 31 35 3a f4  85 53 4e 41 52 45 0d 1f  |... 15:..SNARE..|
00004210  92 11 20 c8 a2 20 37 2c  53 54 25 28 31 35 29 0d  |.. .. 7,ST%(15).|
00004220  1f 9a 13 20 d4 37 2c 56  25 28 31 35 29 2c 35 30  |... .7,V%(15),50|
00004230  2c 33 0d 1f a4 14 c9 20  31 36 3a f4 85 42 41 53  |,3..... 16:..BAS|
00004240  53 20 44 52 55 4d 0d 1f  a6 11 20 c8 a2 20 38 2c  |S DRUM.... .. 8,|
00004250  53 54 25 28 31 36 29 0d  1f ae 13 20 d4 38 2c 56  |ST%(16).... .8,V|
00004260  25 28 31 36 29 2c 35 30  2c 33 0d 1f b8 05 cb 0d  |%(16),50,3......|
00004270  1f c2 05 e1 0d 1f cc 05  20 0d 1f d6 19 f4 82 53  |........ ......S|
00004280  48 4f 57 20 44 49 53 50  4c 41 59 20 4f 52 20 4e  |HOW DISPLAY OR N|
00004290  4f 54 0d 1f e0 0a dd f2  73 68 6f 77 0d 1f ea 0f  |OT......show....|
000042a0  d4 33 2c 2d 31 32 2c 39  30 2c 32 0d 1f f4 11 73  |.3,-12,90,2....s|
000042b0  68 6f 77 25 3d 31 2d 73  68 6f 77 25 0d 1f fe 34  |how%=1-show%...4|
000042c0  e7 73 68 6f 77 25 3d 31  80 73 68 6f 77 57 48 41  |.show%=1.showWHA|
000042d0  54 25 3d 30 f2 67 72 69  64 3a f2 64 69 73 70 6c  |T%=0.grid:.displ|
000042e0  61 79 64 6f 74 73 28 70  61 74 74 65 72 6e 25 29  |aydots(pattern%)|
000042f0  0d 20 00 36 e7 73 68 6f  77 25 3d 31 80 73 68 6f  |. .6.show%=1.sho|
00004300  77 57 48 41 54 25 3d 31  f2 67 72 69 64 3a f2 64  |wWHAT%=1.grid:.d|
00004310  69 73 70 6c 61 79 64 6f  74 73 28 73 74 6f 72 65  |isplaydots(store|
00004320  64 70 61 74 25 29 0d 20  08 12 e7 73 68 6f 77 25  |dpat%). ...show%|
00004330  3d 30 f2 62 6c 61 6e 6b  0d 20 12 05 e1 0d 20 1c  |=0.blank. .... .|
00004340  05 20 0d 20 26 10 f4 86  62 6c 61 6e 6b 20 67 72  |. . &...blank gr|
00004350  69 64 0d 20 30 0b dd f2  62 6c 61 6e 6b 0d 20 31  |id. 0...blank. 1|
00004360  12 ef 32 38 2c 31 36 2c  32 30 2c 33 31 2c 35 0d  |..28,16,20,31,5.|
00004370  20 32 10 fb 31 33 32 3a  db 3a ef 32 36 3a e1 0d  | 2..132:.:.26:..|
00004380  20 33 05 20 0d 20 3a 08  e6 31 33 32 0d 20 44 19  | 3. . :..132. D.|
00004390  ef 32 34 2c 35 31 32 3b  33 35 32 3b 31 30 32 34  |.24,512;352;1024|
000043a0  3b 38 36 34 3b 0d 20 4e  05 da 0d 20 58 07 ef 32  |;864;. N... X..2|
000043b0  36 0d 20 62 05 e1 0d 20  6c 05 20 0d 20 76 0b f4  |6. b... l. . v..|
000043c0  85 45 52 52 4f 52 0d 20  80 0b dd f2 65 72 72 6f  |.ERROR. ....erro|
000043d0  72 0d 20 82 0b fb 33 3a  fb 31 32 39 0d 20 8a 0d  |r. ...3:.129. ..|
000043e0  e7 20 9f 3d 32 31 34 20  8c 0d 20 94 0b fb 31 32  |. .=214 .. ...12|
000043f0  39 3a fb 33 0d 20 9e 3a  f1 8a 31 33 2c 31 32 29  |9:.3. .:..13,12)|
00004400  22 4e 6f 20 73 75 63 68  20 66 69 6c 65 20 20 22  |"No such file  "|
00004410  8a 31 33 2c 31 33 29 22  50 52 45 53 53 20 53 50  |.13,13)"PRESS SP|
00004420  41 43 45 42 41 52 22 3a  f5 fd a5 3d 33 32 0d 20  |ACEBAR":...=32. |
00004430  a8 07 cc 20 f6 0d 20 b2  11 f1 22 41 54 20 4c 49  |... .. ..."AT LI|
00004440  4e 45 20 22 3b 9e 0d 20  bc 05 e0 0d 20 c6 05 cd  |NE ";.. .... ...|
00004450  0d 20 d0 05 e1 0d 23 28  05 20 0d 23 2d 0c f4 82  |. ....#(. .#-...|
00004460  56 4f 4c 55 4d 45 0d 23  32 13 dd f2 76 6f 6c 75  |VOLUME.#2...volu|
00004470  6d 65 28 73 74 65 70 25  29 0d 23 36 0b fb 36 3a  |me(step%).#6..6:|
00004480  fb 31 32 38 0d 23 3c 16  e7 58 25 3e 3d 39 36 76  |.128.#<..X%>=96v|
00004490  6f 6c 25 3d 2d 73 74 65  70 25 0d 23 3e 14 e7 58  |ol%=-step%.#>..X|
000044a0  25 3c 39 36 76 6f 6c 25  3d 73 74 65 70 25 0d 23  |%<96vol%=step%.#|
000044b0  46 14 76 6f 69 25 3d 28  38 39 36 2d 59 25 29 81  |F.voi%=(896-Y%).|
000044c0  33 32 0d 23 48 15 e7 56  25 28 76 6f 69 25 29 2b  |32.#H..V%(voi%)+|
000044d0  76 6f 6c 25 3e 30 e1 0d  23 49 17 e7 56 25 28 76  |vol%>0..#I..V%(v|
000044e0  6f 69 25 29 2b 76 6f 6c  25 3c 2d 31 35 e1 0d 23  |oi%)+vol%<-15..#|
000044f0  4a 12 56 25 28 76 6f 69  25 29 2b 3d 76 6f 6c 25  |J.V%(voi%)+=vol%|
00004500  0d 23 4e 25 e7 94 56 25  28 76 6f 69 25 29 3e 39  |.#N%..V%(voi%)>9|
00004510  f1 8a 31 2c 76 6f 69 25  2b 34 29 3b 94 56 25 28  |..1,voi%+4);.V%(|
00004520  76 6f 69 25 29 0d 23 50  2a e7 94 56 25 28 76 6f  |voi%).#P*..V%(vo|
00004530  69 25 29 3c 31 30 f1 8a  31 2c 76 6f 69 25 2b 34  |i%)<10..1,voi%+4|
00004540  29 3b 22 20 22 3b 94 56  25 28 76 6f 69 25 29 0d  |);" ";.V%(voi%).|
00004550  23 6e 0e f2 74 65 73 74  73 6f 75 6e 64 0d 23 78  |#n..testsound.#x|
00004560  05 e1 0d 23 8c 11 f4 81  53 2d 54 2d 45 2d 52 2d  |...#....S-T-E-R-|
00004570  45 2d 4f 0d 23 96 0c dd  f2 73 74 65 72 65 6f 0d  |E-O.#....stereo.|
00004580  23 97 0e e7 58 25 3c 3d  31 30 35 36 e1 0d 23 98  |#...X%<=1056..#.|
00004590  13 e7 59 25 3c 33 35 36  84 59 25 3e 38 36 34 e1  |..Y%<356.Y%>864.|
000045a0  0d 23 99 0b fb 36 3a fb  31 32 38 0d 23 9a 14 76  |.#...6:.128.#..v|
000045b0  6f 69 25 3d 28 38 39 36  2d 59 25 29 81 33 32 0d  |oi%=(896-Y%).32.|
000045c0  23 9c 15 76 61 6c 25 3d  28 58 25 2d 31 30 32 34  |#..val%=(X%-1024|
000045d0  29 81 33 32 0d 23 a0 19  f1 8a 33 33 2c 34 2b 76  |).32.#....33,4+v|
000045e0  6f 69 25 29 22 2a 2a 2a  2a 2a 2a 2a 22 0d 23 a2  |oi%)"*******".#.|
000045f0  06 fb 33 0d 23 a4 18 f1  8a 33 32 2b 76 61 6c 25  |..3.#....32+val%|
00004600  2c 34 2b 76 6f 69 25 29  22 2a 22 0d 23 aa 15 c8  |,4+voi%)"*".#...|
00004610  a2 20 76 6f 69 25 2c 53  56 25 28 76 61 6c 25 29  |. voi%,SV%(val%)|
00004620  0d 23 ac 17 53 54 25 28  76 6f 69 25 29 3d 53 56  |.#..ST%(voi%)=SV|
00004630  25 28 76 61 6c 25 29 0d  23 b4 0e f2 74 65 73 74  |%(val%).#...test|
00004640  73 6f 75 6e 64 0d 23 f0  05 e1 0d 24 54 05 20 0d  |sound.#....$T. .|
00004650  24 5e 1a f4 86 62 61 72  73 20 31 36 2f 31 36 2c  |$^...bars 16/16,|
00004660  31 32 2f 31 36 20 65 74  63 0d 24 68 11 dd f2 62  |12/16 etc.$h...b|
00004670  61 72 73 28 73 74 65 70  25 29 0d 24 6a 0b 73 68  |ars(step%).$j.sh|
00004680  6f 77 25 3d 31 0d 24 6e  10 d4 33 2c 2d 31 35 2c  |ow%=1.$n..3,-15,|
00004690  31 36 30 2c 31 0d 24 72  0e e7 58 25 3c 3d 36 34  |160,1.$r..X%<=64|
000046a0  30 20 8c 0d 24 7c 1d 20  e7 62 61 72 25 2d 73 74  |0 ..$|. .bar%-st|
000046b0  65 70 25 3e 30 62 61 72  25 2d 3d 73 74 65 70 25  |ep%>0bar%-=step%|
000046c0  0d 24 80 05 cd 0d 24 81  05 20 0d 24 86 0e e7 58  |.$....$.. .$...X|
000046d0  25 3e 3d 37 30 34 20 8c  0d 24 90 1e 20 e7 62 61  |%>=704 ..$.. .ba|
000046e0  72 25 2b 73 74 65 70 25  3c 31 37 62 61 72 25 2b  |r%+step%<17bar%+|
000046f0  3d 73 74 65 70 25 0d 24  94 05 cd 0d 24 95 0b fb  |=step%.$....$...|
00004700  33 3a fb 31 32 38 0d 24  96 2a e7 62 61 72 25 3e  |3:.128.$.*.bar%>|
00004710  39 f1 8a 32 30 2c 32 31  29 3b 62 61 72 25 8b f1  |9..20,21);bar%..|
00004720  8a 32 30 2c 32 31 29 3b  22 30 22 3b 62 61 72 25  |.20,21);"0";bar%|
00004730  0d 24 98 25 f2 61 6c 74  65 72 67 72 69 64 3a f2  |.$.%.altergrid:.|
00004740  64 69 73 70 6c 61 79 64  6f 74 73 28 70 61 74 74  |displaydots(patt|
00004750  65 72 6e 25 29 0d 24 9a  05 e1 0d 24 a4 10 f4 86  |ern%).$....$....|
00004760  61 6c 74 65 72 20 47 52  49 44 0d 24 a6 0f dd f2  |alter GRID.$....|
00004770  61 6c 74 65 72 67 72 69  64 0d 24 a8 12 ef 32 38  |altergrid.$...28|
00004780  2c 31 36 2c 32 30 2c 33  31 2c 35 0d 24 a9 0a fb  |,16,20,31,5.$...|
00004790  31 33 32 3a db 0d 24 aa  22 ef 32 34 2c 35 31 32  |132:..$.".24,512|
000047a0  3b 33 35 32 3b 34 39 36  2b 28 62 61 72 25 2a 33  |;352;496+(bar%*3|
000047b0  32 29 3b 38 36 30 3b 0d  24 ab 2b c8 99 20 22 4f  |2);860;.$.+.. "O|
000047c0  53 5f 53 70 72 69 74 65  4f 70 22 2c 32 35 36 2b  |S_SpriteOp",256+|
000047d0  33 34 2c 67 25 2c 67 24  2c 35 31 32 2c 33 35 32  |34,g%,g$,512,352|
000047e0  2c 30 0d 24 ac 05 e1 0d  24 b8 05 20 0d 24 c2 0f  |,0.$....$.. .$..|
000047f0  f4 81 47 52 41 42 20 47  52 49 44 0d 24 cc 0e dd  |..GRAB GRID.$...|
00004800  f2 67 72 61 62 67 72 69  64 0d 25 33 07 ef 32 36  |.grabgrid.%3..26|
00004810  0d 25 34 0e 73 69 7a 65  25 3d 39 30 30 30 0d 25  |.%4.size%=9000.%|
00004820  3a 0d 67 24 3d 22 67 72  61 62 22 0d 25 44 0e de  |:.g$="grab".%D..|
00004830  20 67 25 20 73 69 7a 65  25 0d 25 4e 0e 67 25 21  | g% size%.%N.g%!|
00004840  30 3d 73 69 7a 65 25 0d  25 58 0b 67 25 21 38 3d  |0=size%.%X.g%!8=|
00004850  31 36 0d 25 62 1d c8 99  20 22 4f 53 5f 53 70 72  |16.%b... "OS_Spr|
00004860  69 74 65 4f 70 22 2c 32  35 36 2b 39 2c 67 25 0d  |iteOp",256+9,g%.|
00004870  25 67 05 20 0d 25 6c 34  c8 99 20 22 4f 53 5f 53  |%g. .%l4.. "OS_S|
00004880  70 72 69 74 65 4f 70 22  2c 32 35 36 2b 31 36 2c  |priteOp",256+16,|
00004890  67 25 2c 67 24 2c 30 2c  35 31 32 2c 33 35 32 2c  |g%,g$,0,512,352,|
000048a0  31 30 32 30 2c 38 36 30  0d 25 71 05 20 0d 25 73  |1020,860.%q. .%s|
000048b0  05 e1 0d 25 74 05 20 0d  25 80 13 f4 84 4d 41 53  |...%t. .%....MAS|
000048c0  54 45 52 81 56 4f 4c 55  4d 45 0d 25 8a 16 dd f2  |TER.VOLUME.%....|
000048d0  6d 61 73 74 65 72 76 6f  6c 28 73 74 65 70 25 29  |mastervol(step%)|
000048e0  0d 25 8b 0b fb 33 3a fb  31 32 38 0d 25 8c 10 d4  |.%...3:.128.%...|
000048f0  33 2c 2d 31 35 2c 31 35  30 2c 31 0d 25 94 17 e7  |3,-15,150,1.%...|
00004900  6d 61 73 74 76 6f 6c 25  2b 73 74 65 70 25 3e 31  |mastvol%+step%>1|
00004910  35 e1 0d 25 96 16 e7 6d  61 73 74 76 6f 6c 25 2b  |5..%...mastvol%+|
00004920  73 74 65 70 25 3c 31 e1  0d 25 98 13 6d 61 73 74  |step%<1..%..mast|
00004930  76 6f 6c 25 2b 3d 73 74  65 70 25 0d 25 9e 34 e7  |vol%+=step%.%.4.|
00004940  6d 61 73 74 76 6f 6c 25  3e 39 f1 8a 31 2c 32 33  |mastvol%>9..1,23|
00004950  29 3b 6d 61 73 74 76 6f  6c 25 8b f1 8a 31 2c 32  |);mastvol%...1,2|
00004960  33 29 3b 22 30 22 3b 6d  61 73 74 76 6f 6c 25 0d  |3);"0";mastvol%.|
00004970  25 a8 1b 67 61 69 6e 25  3d 28 6d 61 73 74 76 6f  |%..gain%=(mastvo|
00004980  6c 25 2b 31 29 2a 32 2b  39 35 0d 25 aa 1b c8 99  |l%+1)*2+95.%....|
00004990  20 22 53 6f 75 6e 64 5f  56 6f 6c 75 6d 65 22 2c  | "Sound_Volume",|
000049a0  67 61 69 6e 25 0d 26 3e  05 e1 0d 26 48 05 20 0d  |gain%.&>...&H. .|
000049b0  2e e0 11 f4 82 4c 4f 41  44 20 53 43 52 45 45 4e  |.....LOAD SCREEN|
000049c0  0d 2e e2 10 dd f2 6c 6f  61 64 73 63 72 65 65 6e  |......loadscreen|
000049d0  0d 2e ea 21 73 24 3d 22  3c 44 52 55 4d 4b 49 54  |...!s$="<DRUMKIT|
000049e0  24 64 69 72 3e 2e 4b 49  54 50 49 43 46 49 4c 45  |$dir>.KITPICFILE|
000049f0  22 0d 2e f4 0f 66 69 6c  65 25 3d 8e 28 73 24 29  |"....file%=.(s$)|
00004a00  0d 2e fe 11 4c 25 3d a2  23 66 69 6c 65 25 2b 36  |....L%=.#file%+6|
00004a10  34 0d 2f 08 0b d9 23 66  69 6c 65 25 0d 2f 12 0b  |4./...#file%./..|
00004a20  de 20 53 25 20 4c 25 0d  2f 1c 0b 53 25 21 30 3d  |. S% L%./..S%!0=|
00004a30  4c 25 0d 2f 26 1d c8 99  20 22 4f 53 5f 53 70 72  |L%./&... "OS_Spr|
00004a40  69 74 65 4f 70 22 2c 32  35 36 2b 39 2c 53 25 0d  |iteOp",256+9,S%.|
00004a50  2f 30 21 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |/0!.. "OS_Sprite|
00004a60  4f 70 22 2c 32 35 36 2b  31 30 2c 53 25 2c 73 24  |Op",256+10,S%,s$|
00004a70  0d 2f 3a 2b c8 99 20 22  4f 53 5f 53 70 72 69 74  |./:+.. "OS_Sprit|
00004a80  65 4f 70 22 2c 32 35 36  2b 33 34 2c 53 25 2c 22  |eOp",256+34,S%,"|
00004a90  50 49 43 32 22 2c 30 2c  30 2c 30 0d 2f 3f 05 e1  |PIC2",0,0,0./?..|
00004aa0  0d 36 9c 05 20 0d 36 a1  20 f4 86 69 6e 73 74 72  |.6.. .6. ..instr|
00004ab0  75 6d 65 6e 74 20 6e 61  6d 65 73 20 6f 6e 20 73  |ument names on s|
00004ac0  63 72 65 65 6e 0d 36 a6  0b dd f2 6e 61 6d 65 73  |creen.6....names|
00004ad0  0d 36 b0 09 f7 8d 74 58  7a 0d 36 ba 07 ef 32 36  |.6....tXz.6...26|
00004ae0  0d 36 c4 06 fb 36 0d 36  ce 08 fb 31 33 32 0d 36  |.6...6.6...132.6|
00004af0  d8 0c e3 49 25 3d 31 b8  31 36 0d 36 e2 07 f3 41  |...I%=1.16.6...A|
00004b00  24 0d 36 ec 14 f5 41 24  2b 3d 22 2d 22 3a fd a9  |$.6...A$+="-":..|
00004b10  41 24 3d 31 30 0d 36 f6  06 fb 36 0d 37 00 0f f1  |A$=10.6...6.7...|
00004b20  8a 36 2c 49 25 2b 34 29  41 24 0d 37 0a 06 fb 31  |.6,I%+4)A$.7...1|
00004b30  0d 37 14 10 f1 8a 35 2c  49 25 2b 34 29 22 2a 22  |.7....5,I%+4)"*"|
00004b40  0d 37 1e 05 ed 0d 37 28  05 e1 0d 37 2d 05 20 0d  |.7....7(...7-. .|
00004b50  3a 98 16 f4 83 49 6e 73  74 72 75 6d 65 6e 74 20  |:....Instrument |
00004b60  6e 61 6d 65 73 0d 3a a2  0a dc 68 69 68 61 74 0d  |names.:...hihat.|
00004b70  3a ac 0c dc 74 6f 6d 74  6f 6d 31 0d 3a b6 0c dc  |:...tomtom1.:...|
00004b80  74 6f 6d 74 6f 6d 32 0d  3a c0 0c dc 74 6f 6d 74  |tomtom2.:...tomt|
00004b90  6f 6d 33 0d 3a ca 0b dc  62 6c 6f 63 6b 31 0d 3a  |om3.:...block1.:|
00004ba0  d4 0b dc 62 6c 6f 63 6b  32 0d 3a de 0d dc 63 79  |...block2.:...cy|
00004bb0  6d 62 61 6c 2d 31 0d 3a  e8 0d dc 63 79 6d 62 61  |mbal-1.:...cymba|
00004bc0  6c 2d 32 0d 3a f2 0e dc  72 6f 74 6f 74 6f 6d 2d  |l-2.:...rototom-|
00004bd0  31 0d 3a fc 0e dc 72 6f  74 6f 74 6f 6d 2d 32 0d  |1.:...rototom-2.|
00004be0  3b 06 0e dc 68 69 68 61  74 28 6f 70 29 0d 3b 10  |;...hihat(op).;.|
00004bf0  06 dc 78 0d 3b 1a 06 dc  78 0d 3b 24 0c dc 73 6e  |..x.;...x.;$..sn|
00004c00  61 72 65 2d 32 0d 3b 2e  0a dc 73 6e 61 72 65 0d  |are-2.;...snare.|
00004c10  3b 38 0d dc 62 61 73 73  64 72 75 6d 0d ff        |;8..bassdrum..|
00004c1e