�> <DRUMKIT$dir>.!RunImage
� 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 1e f4 3e 20 3c  44 52 55 4d 4b 49 54 24  |.....> <DRUMKIT$|
00000010  64 69 72 3e 2e 21 52 75  6e 49 6d 61 67 65 0d 00  |dir>.!RunImage..|
00000020  14 0f f4 20 31 37 20 4d  41 59 20 39 32 0d 00 1e  |... 17 MAY 92...|
00000030  05 f4 0d 00 28 1f 2a 4b  45 59 33 4d 4f 44 45 37  |....(.*KEY3MODE7|
00000040  7c 4d 4c 2e 31 31 32 30  2c 31 32 35 30 7c 4e 7c  ||ML.1120,1250|N||
00000050  4d 0d 00 32 1f 2a 4b 45  59 34 4d 4f 44 45 37 7c  |M..2.*KEY4MODE7||
00000060  4d 4c 2e 31 37 30 30 2c  31 38 30 30 7c 4e 7c 4d  |ML.1700,1800|N|M|
00000070  0d 00 3c 1f 2a 4b 45 59  35 4d 4f 44 45 37 7c 4d  |..<.*KEY5MODE7|M|
00000080  4c 2e 31 38 33 30 2c 31  39 33 30 7c 4e 7c 4d 0d  |L.1830,1930|N|M.|
00000090  00 46 1f 2a 4b 45 59 36  4d 4f 44 45 37 7c 4d 4c  |.F.*KEY6MODE7|ML|
000000a0  2e 32 31 31 30 2c 32 34  35 30 7c 4e 7c 4d 0d 00  |.2110,2450|N|M..|
000000b0  50 1c 2a 4b 45 59 37 4d  4f 44 45 37 7c 4d 4c 2e  |P.*KEY7MODE7|ML.|
000000c0  31 35 30 30 30 2c 7c 4e  7c 4d 0d 00 5a 1f 2a 4b  |15000,|N|M..Z.*K|
000000d0  45 59 38 4d 4f 44 45 37  7c 4d 4c 2e 34 30 31 30  |EY8MODE7|ML.4010|
000000e0  2c 34 33 38 30 7c 4e 7c  4d 0d 00 5c 20 2a 4b 45  |,4380|N|M..\ *KE|
000000f0  59 31 30 4d 4f 44 45 37  7c 4d 4c 2e 37 38 38 30  |Y10MODE7|ML.7880|
00000100  2c 38 31 33 30 7c 4e 7c  4d 0d 00 5e 20 2a 4b 45  |,8130|N|M..^ *KE|
00000110  59 31 31 4d 4f 44 45 37  7c 4d 4c 2e 32 37 33 30  |Y11MODE7|ML.2730|
00000120  2c 32 38 39 30 7c 4e 7c  4d 0d 00 5f 1c 2a 4b 45  |,2890|N|M.._.*KE|
00000130  59 31 32 4d 4f 44 45 37  7c 4d 4c 2e 39 34 30 30  |Y12MODE7|ML.9400|
00000140  2c 7c 4e 7c 4d 0d 00 61  05 20 0d 00 64 05 f4 0d  |,|N|M..a. ..d...|
00000150  00 6e 08 eb 39 3a 87 0d  00 6f 16 ef 31 39 2c 38  |.n..9:...o..19,8|
00000160  2c 31 36 2c 30 2c 26 46  30 2c 26 46 30 0d 00 70  |,16,0,&F0,&F0..p|
00000170  14 ef 31 39 2c 39 2c 31  36 2c 30 2c 30 2c 26 46  |..19,9,16,0,0,&F|
00000180  30 0d 00 71 15 ef 31 39  2c 31 30 2c 31 36 2c 30  |0..q..19,10,16,0|
00000190  2c 26 46 30 2c 30 0d 00  72 16 ef 31 39 2c 31 31  |,&F0,0..r..19,11|
000001a0  2c 31 36 2c 38 35 2c 31  33 36 2c 30 0d 00 73 19  |,16,85,136,0..s.|
000001b0  ef 31 39 2c 31 32 2c 31  36 2c 26 46 30 2c 26 46  |.19,12,16,&F0,&F|
000001c0  30 2c 26 46 30 0d 00 74  19 ef 31 39 2c 31 33 2c  |0,&F0..t..19,13,|
000001d0  31 36 2c 32 33 38 2c 32  33 38 2c 31 38 37 0d 00  |16,238,238,187..|
000001e0  75 17 ef 31 39 2c 31 34  2c 31 36 2c 32 35 35 2c  |u..19,14,16,255,|
000001f0  31 38 37 2c 30 0d 00 76  19 ef 31 39 2c 31 35 2c  |187,0..v..19,15,|
00000200  31 36 2c 32 32 31 2c 32  32 31 2c 32 32 31 0d 00  |16,221,221,221..|
00000210  78 18 ef 31 39 2c 31 2c  31 36 2c 26 42 30 2c 26  |x..19,1,16,&B0,&|
00000220  35 30 2c 26 33 30 0d 00  82 18 ef 31 39 2c 32 2c  |50,&30.....19,2,|
00000230  31 36 2c 26 42 30 2c 26  41 30 2c 26 41 30 0d 00  |16,&B0,&A0,&A0..|
00000240  8c 18 ef 31 39 2c 33 2c  31 36 2c 26 44 30 2c 26  |...19,3,16,&D0,&|
00000250  43 30 2c 26 36 30 0d 00  96 18 ef 31 39 2c 34 2c  |C0,&60.....19,4,|
00000260  31 36 2c 26 34 30 2c 26  35 30 2c 26 35 30 0d 00  |16,&40,&50,&50..|
00000270  a0 18 ef 31 39 2c 35 2c  31 36 2c 26 38 30 2c 26  |...19,5,16,&80,&|
00000280  38 30 2c 26 38 30 0d 00  aa 18 ef 31 39 2c 36 2c  |80,&80.....19,6,|
00000290  31 36 2c 26 38 30 2c 26  38 30 2c 26 39 30 0d 00  |16,&80,&80,&90..|
000002a0  b4 18 ef 31 39 2c 37 2c  31 36 2c 26 44 30 2c 26  |...19,7,16,&D0,&|
000002b0  44 30 2c 26 41 30 0d 00  b5 13 f4 85 42 6f 72 64  |D0,&A0......Bord|
000002c0  65 72 20 63 6f 6c 6f 75  72 0d 00 b6 18 ef 31 39  |er colour.....19|
000002d0  2c 31 2c 32 34 2c 26 38  30 2c 26 38 30 2c 26 38  |,1,24,&80,&80,&8|
000002e0  30 0d 00 b8 05 20 0d 00  b9 11 f4 82 4c 4f 41 44  |0.... ......LOAD|
000002f0  20 53 43 52 45 45 4e 0d  00 be 0f f2 6c 6f 61 64  | SCREEN.....load|
00000300  73 63 72 65 65 6e 0d 00  bf 05 20 0d 00 c8 25 f4  |screen.... ...%.|
00000310  83 54 6f 74 61 6c 20 6e  75 6d 20 6f 66 20 64 69  |.Total num of di|
00000320  66 66 65 72 65 6e 74 20  70 61 74 74 65 72 6e 73  |fferent patterns|
00000330  0d 00 cd 10 74 6f 74 61  6c 70 61 74 25 3d 39 36  |....totalpat%=96|
00000340  0d 00 d2 05 20 0d 00 d7  1b f4 81 6e 75 6d 20 6f  |.... ......num o|
00000350  66 20 6e 6f 74 65 73 20  69 6e 20 61 20 62 61 72  |f notes in a bar|
00000360  0d 00 dc 0b 62 61 72 25  3d 31 36 0d 00 f0 05 20  |....bar%=16.... |
00000370  0d 00 f1 11 6c 65 6e 67  74 68 25 3d 32 34 35 37  |....length%=2457|
00000380  36 0d 00 f2 14 73 74 6f  72 65 6c 65 6e 67 74 68  |6....storelength|
00000390  25 3d 35 31 32 0d 00 f3  1c f4 74 65 6d 70 73 74  |%=512.....tempst|
000003a0  6f 72 65 25 3d 73 74 6f  72 65 6c 65 6e 67 74 68  |ore%=storelength|
000003b0  25 0d 00 f6 05 20 0d 00  fa 0f f2 69 6e 69 74 76  |%.... .....initv|
000003c0  6f 69 63 65 73 0d 01 04  0b f2 61 72 72 61 79 73  |oices.....arrays|
000003d0  0d 01 06 0d f2 67 72 61  62 67 72 69 64 0d 01 07  |.....grabgrid...|
000003e0  05 20 0d 01 08 15 65 6e  64 25 3d 6d 65 6d 25 2b  |. ....end%=mem%+|
000003f0  6c 65 6e 67 74 68 25 0d  01 09 24 73 74 6f 72 65  |length%...$store|
00000400  65 6e 64 25 3d 73 74 6f  72 65 6d 65 6d 25 2b 73  |end%=storemem%+s|
00000410  74 6f 72 65 6c 65 6e 67  74 68 25 0d 01 0e 05 20  |torelength%.... |
00000420  0d 01 10 05 f5 0d 01 12  0c 72 65 73 65 74 25 3d  |.........reset%=|
00000430  30 0d 01 13 0d 6c 6f 61  64 65 64 25 3d 30 0d 01  |0....loaded%=0..|
00000440  14 0f 73 68 6f 77 57 48  41 54 25 3d 30 0d 01 15  |..showWHAT%=0...|
00000450  0f 2a 56 4f 4c 55 4d 45  20 31 32 37 0d 01 18 05  |.*VOLUME 127....|
00000460  20 0d 01 1d 0e ee 20 85  20 f2 65 72 72 6f 72 0d  | ..... . .error.|
00000470  01 22 05 20 0d 01 2c 09  f2 69 6e 69 74 0d 01 36  |.". ..,..init..6|
00000480  0a f2 69 6e 69 74 32 0d  01 37 05 20 0d 01 38 0b  |..init2..7. ..8.|
00000490  f2 6d 65 6d 6f 72 79 0d  01 39 05 20 0d 01 41 05  |.memory..9. ..A.|
000004a0  20 0d 01 57 05 f7 0d 01  58 18 f4 85 52 65 61 64  | ..W....X...Read|
000004b0  20 53 74 65 72 65 6f 20  56 61 6c 75 65 73 0d 01  | Stereo Values..|
000004c0  59 16 e3 49 25 3d 31 b8  37 3a f3 53 56 25 28 49  |Y..I%=1.7:.SV%(I|
000004d0  25 29 3a ed 0d 01 5a 1b  dc 2d 38 30 2c 2d 34 38  |%):...Z..-80,-48|
000004e0  2c 2d 31 36 2c 30 2c 31  36 2c 34 38 2c 38 30 0d  |,-16,0,16,48,80.|
000004f0  01 5b 05 20 0d 01 5c 0a  f2 6e 61 6d 65 73 0d 01  |.[. ..\..names..|
00000500  5e 0e f2 69 6e 69 74 6d  6f 75 73 65 0d 01 68 0f  |^..initmouse..h.|
00000510  f2 70 61 74 74 65 72 6e  28 31 29 0d 01 72 05 20  |.pattern(1)..r. |
00000520  0d 01 7c 05 20 0d 01 86  05 f5 0d 01 90 1e f5 3a  |..|. ..........:|
00000530  c8 97 58 25 2c 59 25 2c  5a 25 3a f2 63 65 6e 74  |..X%,Y%,Z%:.cent|
00000540  72 65 3a fd 5a 25 3d 30  0d 01 9a 1f f5 3a c8 97  |re:.Z%=0.....:..|
00000550  58 25 2c 59 25 2c 5a 25  3a f2 63 65 6e 74 72 65  |X%,Y%,Z%:.centre|
00000560  3a fd 5a 25 3c 3e 30 0d  01 a4 05 20 0d 01 ae 1f  |:.Z%<>0.... ....|
00000570  f4 85 77 68 69 63 68 20  61 72 65 61 20 69 73 20  |..which area is |
00000580  70 6f 69 6e 74 65 72 20  69 6e 3f 0d 01 b8 2d e7  |pointer in?...-.|
00000590  58 25 3e 3d 35 32 38 80  58 25 3c 3d 31 30 30 38  |X%>=528.X%<=1008|
000005a0  80 59 25 3c 3d 38 36 34  80 59 25 3e 3d 33 36 38  |.Y%<=864.Y%>=368|
000005b0  77 68 65 72 65 25 3d 30  0d 01 c2 13 e7 59 25 3e  |where%=0.....Y%>|
000005c0  38 36 34 77 68 65 72 65  25 3d 31 0d 01 cc 22 e7  |864where%=1...".|
000005d0  58 25 3c 35 32 38 80 59  25 3c 3d 38 36 34 80 59  |X%<528.Y%<=864.Y|
000005e0  25 3e 33 35 32 77 68 65  72 65 25 3d 32 0d 01 d6  |%>352where%=2...|
000005f0  13 e7 59 25 3c 33 35 32  77 68 65 72 65 25 3d 33  |..Y%<352where%=3|
00000600  0d 01 d8 14 e7 58 25 3e  31 30 35 36 77 68 65 72  |.....X%>1056wher|
00000610  65 25 3d 34 0d 01 e0 3d  f4 43 4f 4c 4f 55 52 33  |e%=4...=.COLOUR3|
00000620  3a 43 4f 4c 4f 55 52 31  32 38 3a 50 52 49 4e 54  |:COLOUR128:PRINT|
00000630  54 41 42 28 30 2c 30 29  3b 77 68 65 72 65 25 3b  |TAB(0,0);where%;|
00000640  22 20 22 3b 58 25 3b 22  20 22 3b 59 25 3b 22 20  |" ";X%;" ";Y%;" |
00000650  22 0d 01 ea 05 20 0d 01  f4 0f c8 8e 20 77 68 65  |".... ...... whe|
00000660  72 65 25 20 ca 0d 01 fe  0e f4 86 77 68 65 72 65  |re% .......where|
00000670  25 3d 30 0d 02 08 08 c9  20 30 3a 0d 02 12 0e c8  |%=0..... 0:.....|
00000680  97 58 25 2c 59 25 2c 5a  25 0d 02 1c 0b c8 8e 20  |.X%,Y%,Z%...... |
00000690  5a 25 20 ca 0d 02 26 31  c9 20 34 3a f2 66 69 78  |Z% ...&1. 4:.fix|
000006a0  28 31 2c 30 2c 44 24 29  3a f2 74 65 73 74 73 6f  |(1,0,D$):.testso|
000006b0  75 6e 64 3a f4 53 4f 55  4e 44 32 2c 2d 31 35 2c  |und:.SOUND2,-15,|
000006c0  32 30 30 2c 31 0d 02 30  21 c9 20 32 3a f2 66 69  |200,1..0!. 2:.fi|
000006d0  78 28 30 2c 34 2c 44 24  29 3a d4 32 2c 2d 31 35  |x(0,4,D$):.2,-15|
000006e0  2c 32 34 30 2c 31 0d 02  3a 14 c9 20 31 3a f2 70  |,240,1..:.. 1:.p|
000006f0  6c 61 79 70 61 74 74 65  72 6e 0d 02 44 05 cb 0d  |laypattern..D...|
00000700  02 4e 0e f4 83 3d 3d 3d  3d 3d 3d 3d 3d 0d 02 58  |.N...========..X|
00000710  0e f4 81 77 68 65 72 65  25 3d 31 0d 02 62 08 c9  |...where%=1..b..|
00000720  20 31 3a 0d 02 6c 0e c8  97 58 25 2c 59 25 2c 5a  | 1:..l...X%,Y%,Z|
00000730  25 0d 02 76 0b c8 8e 20  5a 25 20 ca 0d 02 80 08  |%..v... Z% .....|
00000740  c9 20 32 3a 0d 02 8a 31  20 e7 59 25 3e 3d 39 32  |. 2:...1 .Y%>=92|
00000750  38 80 59 25 3c 3d 39 35  36 80 58 25 3e 3d 32 32  |8.Y%<=956.X%>=22|
00000760  34 80 58 25 3c 3d 33 34  38 f2 70 61 74 74 65 72  |4.X%<=348.patter|
00000770  6e 28 31 30 29 0d 02 94  30 20 20 e7 58 25 3e 3d  |n(10)...0  .X%>=|
00000780  34 34 38 80 58 25 3c 3d  35 37 36 80 59 25 3c 3d  |448.X%<=576.Y%<=|
00000790  39 35 36 80 59 25 3e 3d  39 32 38 f2 74 65 6d 70  |956.Y%>=928.temp|
000007a0  6f 28 31 30 29 0d 02 9e  08 c9 20 34 3a 0d 02 a0  |o(10)..... 4:...|
000007b0  2b 20 e7 58 25 3e 3d 33  32 80 58 25 3c 3d 39 36  |+ .X%>=32.X%<=96|
000007c0  80 59 25 3e 3d 39 36 30  80 59 25 3c 3d 39 39 32  |.Y%>=960.Y%<=992|
000007d0  72 65 73 65 74 25 3d 31  0d 02 a8 31 20 20 e7 59  |reset%=1...1  .Y|
000007e0  25 3e 3d 39 32 38 80 59  25 3c 3d 39 35 36 80 58  |%>=928.Y%<=956.X|
000007f0  25 3e 3d 32 32 34 80 58  25 3c 3d 33 34 38 f2 70  |%>=224.X%<=348.p|
00000800  61 74 74 65 72 6e 28 31  29 0d 02 b2 34 20 20 20  |attern(1)...4   |
00000810  e7 58 25 3e 3d 37 33 36  80 58 25 3c 3d 37 36 34  |.X%>=736.X%<=764|
00000820  80 59 25 3c 3d 39 39 32  80 59 25 3e 3d 39 36 30  |.Y%<=992.Y%>=960|
00000830  f2 73 61 76 65 70 61 74  74 65 72 6e 73 0d 02 bc  |.savepatterns...|
00000840  34 20 20 20 e7 58 25 3e  3d 36 30 38 80 58 25 3c  |4   .X%>=608.X%<|
00000850  3d 36 34 30 80 59 25 3c  3d 39 35 36 80 59 25 3e  |=640.Y%<=956.Y%>|
00000860  3d 39 32 38 f2 6c 6f 61  64 70 61 74 74 65 72 6e  |=928.loadpattern|
00000870  73 0d 02 c6 32 20 20 20  e7 58 25 3e 3d 33 32 30  |s...2   .X%>=320|
00000880  80 58 25 3c 3d 33 34 38  80 59 25 3c 39 32 34 80  |.X%<=348.Y%<924.|
00000890  59 25 3e 3d 38 39 36 f2  70 6c 61 79 70 61 74 74  |Y%>=896.playpatt|
000008a0  65 72 6e 0d 02 d0 30 20  20 20 e7 58 25 3e 3d 34  |ern...0   .X%>=4|
000008b0  34 38 80 58 25 3c 3d 35  37 36 80 59 25 3c 3d 39  |48.X%<=576.Y%<=9|
000008c0  35 36 80 59 25 3e 3d 39  32 38 f2 74 65 6d 70 6f  |56.Y%>=928.tempo|
000008d0  28 31 29 0d 02 da 2d 20  20 20 e7 58 25 3e 3d 39  |(1)...-   .X%>=9|
000008e0  39 32 80 58 25 3c 3d 31  30 32 34 80 59 25 3c 3d  |92.X%<=1024.Y%<=|
000008f0  39 39 32 80 59 25 3e 3d  39 36 30 f2 77 69 70 65  |992.Y%>=960.wipe|
00000900  0d 02 e4 2d 20 20 e7 58  25 3e 33 38 34 80 58 25  |...-  .X%>384.X%|
00000910  3c 3d 34 31 36 80 59 25  3c 3d 39 32 38 80 59 25  |<=416.Y%<=928.Y%|
00000920  3e 3d 38 39 36 f2 63 6f  70 79 70 61 74 0d 02 ee  |>=896.copypat...|
00000930  05 cb 0d 02 f8 05 20 0d  03 02 0e f4 86 77 68 65  |...... ......whe|
00000940  72 65 25 3d 32 0d 03 0c  1a c9 20 32 3a e7 58 25  |re%=2..... 2:.X%|
00000950  3e 3d 31 36 30 f2 74 65  73 74 73 6f 75 6e 64 0d  |>=160.testsound.|
00000960  03 0e 21 20 20 20 20 20  20 20 e7 58 25 3c 31 36  |..!       .X%<16|
00000970  30 80 5a 25 3d 34 f2 76  6f 6c 75 6d 65 28 31 29  |0.Z%=4.volume(1)|
00000980  0d 03 10 21 20 20 20 20  20 20 20 e7 58 25 3c 31  |...!       .X%<1|
00000990  36 30 80 5a 25 3d 32 f2  76 6f 6c 75 6d 65 28 35  |60.Z%=2.volume(5|
000009a0  29 0d 03 16 0e f4 85 77  68 65 72 65 25 3d 33 0d  |)......where%=3.|
000009b0  03 20 12 c9 20 33 3a c8  97 58 25 2c 59 25 2c 5a  |. .. 3:..X%,Y%,Z|
000009c0  25 0d 03 2a 0b c8 8e 20  5a 25 20 ca 0d 03 34 08  |%..*... Z% ...4.|
000009d0  c9 20 34 3a 0d 03 3e 30  20 e7 58 25 3e 3d 33 32  |. 4:..>0 .X%>=32|
000009e0  30 80 58 25 3c 3d 34 38  30 80 59 25 3c 3d 32 38  |0.X%<=480.Y%<=28|
000009f0  38 80 59 25 3e 3d 32 35  36 f2 70 61 74 74 65 72  |8.Y%>=256.patter|
00000a00  6e 28 31 29 0d 03 48 2a  20 e7 58 25 3e 3d 33 32  |n(1)..H* .X%>=32|
00000a10  30 80 58 25 3c 3d 34 38  30 80 59 25 3c 32 32 34  |0.X%<=480.Y%<224|
00000a20  80 59 25 3e 3d 31 39 32  f2 73 74 6f 72 65 0d 03  |.Y%>=192.store..|
00000a30  52 31 20 e7 58 25 3e 3d  33 32 30 80 58 25 3c 3d  |R1 .X%>=320.X%<=|
00000a40  34 38 30 80 59 25 3c 3d  32 35 36 80 59 25 3e 3d  |480.Y%<=256.Y%>=|
00000a50  32 32 34 f2 73 74 65 70  62 61 72 73 28 31 29 0d  |224.stepbars(1).|
00000a60  03 5c 2e 20 20 e7 58 25  3e 3d 34 34 38 80 58 25  |.\.  .X%>=448.X%|
00000a70  3c 3d 35 31 32 80 59 25  3c 3d 31 32 38 80 59 25  |<=512.Y%<=128.Y%|
00000a80  3e 3d 36 34 f2 70 6c 61  79 73 6f 6e 67 0d 03 66  |>=64.playsong..f|
00000a90  2c 20 20 e7 58 25 3e 3d  34 34 38 80 58 25 3c 3d  |,  .X%>=448.X%<=|
00000aa0  34 38 30 80 59 25 3c 36  34 80 59 25 3e 3d 33 32  |480.Y%<64.Y%>=32|
00000ab0  f2 63 6f 6e 74 69 6e 75  65 0d 03 70 2c 20 e7 58  |.continue..p, .X|
00000ac0  25 3e 3d 36 30 38 80 58  25 3c 3d 36 34 30 80 59  |%>=608.X%<=640.Y|
00000ad0  25 3c 3d 36 30 80 59 25  3e 3d 33 32 f2 6c 6f 61  |%<=60.Y%>=32.loa|
00000ae0  64 73 6f 6e 67 0d 03 7a  2c 20 e7 58 25 3e 3d 37  |dsong..z, .X%>=7|
00000af0  33 36 80 58 25 3c 3d 37  36 38 80 59 25 3c 3d 39  |36.X%<=768.Y%<=9|
00000b00  36 80 59 25 3e 3d 36 34  f2 73 61 76 65 73 6f 6e  |6.Y%>=64.saveson|
00000b10  67 0d 03 84 2b 20 e7 58  25 3e 3d 31 36 30 80 58  |g...+ .X%>=160.X|
00000b20  25 3c 3d 31 39 32 80 59  25 3c 3d 31 32 38 80 59  |%<=192.Y%<=128.Y|
00000b30  25 3e 3d 39 36 f2 64 65  6c 65 74 65 0d 03 8e 2f  |%>=96.delete.../|
00000b40  20 e7 58 25 3e 3d 39 39  32 80 58 25 3c 3d 31 30  | .X%>=992.X%<=10|
00000b50  32 34 80 59 25 3c 3d 31  36 30 80 59 25 3e 3d 31  |24.Y%<=160.Y%>=1|
00000b60  32 38 f2 77 69 70 65 73  6f 6e 67 0d 03 98 2c 20  |28.wipesong..., |
00000b70  e7 58 25 3e 3d 33 35 32  80 58 25 3c 3d 33 38 34  |.X%>=352.X%<=384|
00000b80  80 59 25 3c 3d 31 36 30  80 59 25 3e 3d 31 32 38  |.Y%<=160.Y%>=128|
00000b90  f2 69 6e 73 65 72 74 0d  03 a2 2f 20 e7 58 25 3e  |.insert.../ .X%>|
00000ba0  3d 37 33 36 80 58 25 3c  38 39 36 80 59 25 3c 3d  |=736.X%<896.Y%<=|
00000bb0  32 38 38 80 59 25 3e 3d  32 35 36 f2 62 6c 6f 63  |288.Y%>=256.bloc|
00000bc0  6b 28 31 2c 31 29 0d 03  ac 2e 20 e7 58 25 3e 3d  |k(1,1).... .X%>=|
00000bd0  37 33 36 80 58 25 3c 38  39 36 80 59 25 3c 32 35  |736.X%<896.Y%<25|
00000be0  36 80 59 25 3e 3d 32 32  34 f2 62 6c 6f 63 6b 28  |6.Y%>=224.block(|
00000bf0  32 2c 31 29 0d 03 b6 2e  20 e7 58 25 3e 3d 37 33  |2,1).... .X%>=73|
00000c00  36 80 58 25 3c 38 39 36  80 59 25 3c 32 32 34 80  |6.X%<896.Y%<224.|
00000c10  59 25 3e 3d 31 39 32 f2  62 6c 6f 63 6b 28 33 2c  |Y%>=192.block(3,|
00000c20  31 29 0d 03 c0 2f 20 e7  58 25 3e 3d 35 31 32 80  |1).../ .X%>=512.|
00000c30  58 25 3c 35 34 34 80 59  25 3c 3d 32 38 38 80 59  |X%<544.Y%<=288.Y|
00000c40  25 3e 3d 32 35 36 f2 62  6c 6f 63 6b 28 34 2c 31  |%>=256.block(4,1|
00000c50  29 0d 03 ca 2f 20 e7 58  25 3e 3d 35 31 32 80 58  |).../ .X%>=512.X|
00000c60  25 3c 35 34 34 80 59 25  3c 3d 31 39 32 80 59 25  |%<544.Y%<=192.Y%|
00000c70  3e 3d 31 36 30 f2 62 6c  6f 63 6b 28 35 2c 31 29  |>=160.block(5,1)|
00000c80  0d 03 d4 2b 20 e7 58 25  3e 3d 39 39 32 80 58 25  |...+ .X%>=992.X%|
00000c90  3c 3d 31 30 32 34 80 59  25 3c 3d 33 35 32 80 59  |<=1024.Y%<=352.Y|
00000ca0  25 3e 3d 33 32 30 f2 73  68 6f 77 0d 03 d6 2c 20  |%>=320.show..., |
00000cb0  e7 58 25 3e 3d 36 30 38  80 58 25 3c 37 33 36 80  |.X%>=608.X%<736.|
00000cc0  59 25 3c 3d 33 35 32 80  59 25 3e 3d 33 32 30 f2  |Y%<=352.Y%>=320.|
00000cd0  62 61 72 73 28 31 29 0d  03 d7 2a 20 e7 58 25 3c  |bars(1)...* .X%<|
00000ce0  3d 33 32 80 59 25 3c 3d  32 38 38 80 59 25 3e 3d  |=32.Y%<=288.Y%>=|
00000cf0  32 35 36 f2 6d 61 73 74  65 72 76 6f 6c 28 2d 31  |256.mastervol(-1|
00000d00  29 0d 03 d8 31 20 e7 58  25 3e 3d 39 36 80 58 25  |)...1 .X%>=96.X%|
00000d10  3c 3d 31 32 38 80 59 25  3c 3d 32 38 38 80 59 25  |<=128.Y%<=288.Y%|
00000d20  3e 3d 32 35 36 f2 6d 61  73 74 65 72 76 6f 6c 28  |>=256.mastervol(|
00000d30  31 29 0d 03 de 08 c9 20  32 3a 0d 03 e0 2a 20 e7  |1)..... 2:...* .|
00000d40  58 25 3c 3d 33 32 80 59  25 3c 3d 32 38 38 80 59  |X%<=32.Y%<=288.Y|
00000d50  25 3e 3d 32 35 36 f2 6d  61 73 74 65 72 76 6f 6c  |%>=256.mastervol|
00000d60  28 2d 35 29 0d 03 e1 31  20 e7 58 25 3e 3d 39 36  |(-5)...1 .X%>=96|
00000d70  80 58 25 3c 3d 31 32 38  80 59 25 3c 3d 32 38 38  |.X%<=128.Y%<=288|
00000d80  80 59 25 3e 3d 32 35 36  f2 6d 61 73 74 65 72 76  |.Y%>=256.masterv|
00000d90  6f 6c 28 35 29 0d 03 e8  32 20 e7 58 25 3e 3d 33  |ol(5)...2 .X%>=3|
00000da0  32 30 80 58 25 3c 3d 34  38 30 80 59 25 3c 3d 32  |20.X%<=480.Y%<=2|
00000db0  35 36 80 59 25 3e 3d 32  32 34 f2 73 74 65 70 62  |56.Y%>=224.stepb|
00000dc0  61 72 73 28 31 30 29 0d  03 f2 31 20 e7 58 25 3e  |ars(10)...1 .X%>|
00000dd0  3d 33 32 30 80 58 25 3c  3d 34 38 30 80 59 25 3c  |=320.X%<=480.Y%<|
00000de0  3d 32 38 38 80 59 25 3e  3d 32 35 36 f2 70 61 74  |=288.Y%>=256.pat|
00000df0  74 65 72 6e 28 31 30 29  0d 03 fc 30 20 e7 58 25  |tern(10)...0 .X%|
00000e00  3e 3d 37 33 36 80 58 25  3c 38 39 36 80 59 25 3c  |>=736.X%<896.Y%<|
00000e10  3d 32 38 38 80 59 25 3e  3d 32 35 36 f2 62 6c 6f  |=288.Y%>=256.blo|
00000e20  63 6b 28 31 2c 31 30 29  0d 04 06 2f 20 e7 58 25  |ck(1,10).../ .X%|
00000e30  3e 3d 37 33 36 80 58 25  3c 38 39 36 80 59 25 3c  |>=736.X%<896.Y%<|
00000e40  32 35 36 80 59 25 3e 3d  32 32 34 f2 62 6c 6f 63  |256.Y%>=224.bloc|
00000e50  6b 28 32 2c 31 30 29 0d  04 10 2f 20 e7 58 25 3e  |k(2,10).../ .X%>|
00000e60  3d 37 33 36 80 58 25 3c  38 39 36 80 59 25 3c 32  |=736.X%<896.Y%<2|
00000e70  32 34 80 59 25 3e 3d 31  39 32 f2 62 6c 6f 63 6b  |24.Y%>=192.block|
00000e80  28 33 2c 31 30 29 0d 04  12 2c 20 e7 58 25 3e 3d  |(3,10)..., .X%>=|
00000e90  36 30 38 80 58 25 3c 37  33 36 80 59 25 3c 3d 33  |608.X%<736.Y%<=3|
00000ea0  35 32 80 59 25 3e 3d 33  32 30 f2 62 61 72 73 28  |52.Y%>=320.bars(|
00000eb0  34 29 0d 04 1a 05 cb 0d  04 1c 0e f4 82 77 68 65  |4)...........whe|
00000ec0  72 65 25 3d 34 0d 04 1e  08 c9 20 34 3a 0d 04 20  |re%=4..... 4:.. |
00000ed0  0b f2 73 74 65 72 65 6f  0d 04 24 05 20 0d 04 2e  |..stereo..$. ...|
00000ee0  05 cb 0d 04 38 0d fd 72  65 73 65 74 25 3d 31 0d  |....8..reset%=1.|
00000ef0  04 39 05 20 0d 04 3a 0c  e3 4a 25 3d 31 b8 31 32  |.9. ..:..J%=1.12|
00000f00  0d 04 3b 17 d4 33 2c 2d  31 35 2c 31 36 30 2b 28  |..;..3,-15,160+(|
00000f10  4a 25 2a 34 29 2c 31 0d  04 3c 0e e3 54 3d 31 b8  |J%*4),1..<..T=1.|
00000f20  34 30 30 3a ed 0d 04 3d  05 ed 0d 04 3e 2b c8 99  |400:...=....>+..|
00000f30  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  | "OS_SpriteOp",2|
00000f40  35 36 2b 33 34 2c 53 25  2c 22 50 49 43 32 22 2c  |56+34,S%,"PIC2",|
00000f50  30 2c 30 2c 30 0d 04 40  06 fd 30 0d 04 42 05 20  |0,0,0..@..0..B. |
00000f60  0d 04 4c 05 e0 0d 04 56  05 20 0d 04 60 17 f4 84  |..L....V. ..`...|
00000f70  49 6e 69 74 69 61 6c 69  73 65 20 76 6f 69 63 65  |Initialise voice|
00000f80  73 0d 04 6a 10 dd f2 69  6e 69 74 76 6f 69 63 65  |s..j...initvoice|
00000f90  73 0d 04 74 07 c8 a0 38  0d 04 7e 05 20 0d 04 88  |s..t...8..~. ...|
00000fa0  16 2a 43 48 41 4e 4e 45  4c 56 4f 49 43 45 20 31  |.*CHANNELVOICE 1|
00000fb0  20 31 33 0d 04 92 16 2a  43 48 41 4e 4e 45 4c 56  | 13....*CHANNELV|
00000fc0  4f 49 43 45 20 32 20 31  31 0d 04 9c 16 2a 43 48  |OICE 2 11....*CH|
00000fd0  41 4e 4e 45 4c 56 4f 49  43 45 20 33 20 31 32 0d  |ANNELVOICE 3 12.|
00000fe0  04 a6 16 2a 43 48 41 4e  4e 45 4c 56 4f 49 43 45  |...*CHANNELVOICE|
00000ff0  20 34 20 31 33 0d 04 b0  16 2a 43 48 41 4e 4e 45  | 4 13....*CHANNE|
00001000  4c 56 4f 49 43 45 20 35  20 31 34 0d 04 ba 16 2a  |LVOICE 5 14....*|
00001010  43 48 41 4e 4e 45 4c 56  4f 49 43 45 20 36 20 31  |CHANNELVOICE 6 1|
00001020  35 0d 04 c4 16 2a 43 48  41 4e 4e 45 4c 56 4f 49  |5....*CHANNELVOI|
00001030  43 45 20 37 20 31 36 0d  04 ce 16 2a 43 48 41 4e  |CE 7 16....*CHAN|
00001040  4e 45 4c 56 4f 49 43 45  20 38 20 31 37 0d 04 d8  |NELVOICE 8 17...|
00001050  05 20 0d 04 e2 05 e1 0d  04 ec 05 20 0d 04 f6 10  |. ......... ....|
00001060  f4 85 69 6e 69 74 20 4d  4f 55 53 45 0d 05 00 0f  |..init MOUSE....|
00001070  dd f2 69 6e 69 74 6d 6f  75 73 65 0d 05 0a 0c 2a  |..initmouse....*|
00001080  50 4f 49 4e 54 45 52 0d  05 14 16 c8 97 20 fb 20  |POINTER...... . |
00001090  32 2c 26 46 46 2c 26 46  46 2c 26 46 46 0d 05 1e  |2,&FF,&FF,&FF...|
000010a0  10 c8 97 20 fb 20 31 2c  30 2c 30 2c 30 0d 05 28  |... . 1,0,0,0..(|
000010b0  0e c8 97 20 b8 20 58 25  2c 59 25 0d 05 32 0a c8  |... . X%,Y%..2..|
000010c0  97 20 88 20 34 0d 05 3c  16 c8 97 20 c8 93 38 2c  |. . 4..<... ..8,|
000010d0  33 32 2c 31 32 36 34 2c  39 36 30 0d 05 46 05 e1  |32,1264,960..F..|
000010e0  0d 05 50 05 20 0d 05 5a  0b f4 22 82 49 4e 49 54  |..P. ..Z..".INIT|
000010f0  0d 05 64 0a dd f2 69 6e  69 74 0d 05 65 0a 76 6f  |..d...init..e.vo|
00001100  69 25 3d 31 0d 05 66 0f  70 78 25 3d 30 3a 70 79  |i%=1..f.px%=0:py|
00001110  25 3d 30 0d 05 67 0b 62  61 72 25 3d 31 36 0d 05  |%=0..g.bar%=16..|
00001120  68 0f 6d 61 73 74 76 6f  6c 25 3d 31 35 0d 05 6e  |h.mastvol%=15..n|
00001130  0b 63 6f 70 79 25 3d 30  0d 05 78 0b 73 74 6f 70  |.copy%=0..x.stop|
00001140  25 3d 30 0d 05 82 0b 63  6f 6e 74 25 3d 30 0d 05  |%=0....cont%=0..|
00001150  8c 0b 73 68 6f 77 25 3d  31 0d 05 96 08 54 25 3d  |..show%=1....T%=|
00001160  30 0d 05 a0 10 73 74 6f  72 65 64 70 61 74 25 3d  |0....storedpat%=|
00001170  31 0d 05 aa 0d 63 6f 70  79 74 6f 25 3d 31 0d 05  |1....copyto%=1..|
00001180  b4 0e 66 72 6f 6d 62 61  72 25 3d 31 0d 05 be 0c  |..frombar%=1....|
00001190  74 6f 62 61 72 25 3d 31  0d 05 c8 1e ef 32 33 2c  |tobar%=1.....23,|
000011a0  34 32 2c 30 2c 30 2c 36  30 2c 36 30 2c 36 30 2c  |42,0,0,60,60,60,|
000011b0  36 30 2c 30 2c 30 0d 05  d2 1e ef 32 33 2c 36 30  |60,0,0.....23,60|
000011c0  2c 30 2c 38 2c 32 34 2c  35 36 2c 35 36 2c 32 34  |,0,8,24,56,56,24|
000011d0  2c 38 2c 30 0d 05 dc 20  ef 32 33 2c 36 32 2c 30  |,8,0... .23,62,0|
000011e0  2c 31 36 2c 32 34 2c 32  38 2c 32 38 2c 32 34 2c  |,16,24,28,28,24,|
000011f0  31 36 2c 30 0d 05 e6 25  ef 32 33 2c 32 32 34 2c  |16,0...%.23,224,|
00001200  30 2c 36 30 2c 31 32 36  2c 31 32 36 2c 31 32 36  |0,60,126,126,126|
00001210  2c 31 32 36 2c 36 30 2c  30 0d 05 f0 1d ef 32 33  |,126,60,0.....23|
00001220  2c 32 32 35 2c 38 2c 38  2c 38 2c 38 2c 32 35 35  |,225,8,8,8,8,255|
00001230  2c 38 2c 38 2c 38 0d 05  fa 0b 44 24 3d bd 32 32  |,8,8,8....D$=.22|
00001240  34 0d 06 04 0b 64 24 3d  bd 32 32 35 0d 06 0e 0d  |4....d$=.225....|
00001250  58 25 3d 35 31 32 2b 31  36 0d 06 18 0d 59 25 3d  |X%=512+16....Y%=|
00001260  38 36 34 2d 31 36 0d 06  22 0c 6f 6c 64 78 25 3d  |864-16..".oldx%=|
00001270  58 25 0d 06 2c 0c 6f 6c  64 79 25 3d 59 25 0d 06  |X%..,.oldy%=Y%..|
00001280  36 0c 77 68 65 72 65 25  3d 30 0d 06 40 05 20 0d  |6.where%=0..@. .|
00001290  06 4a 05 20 0d 06 54 19  f4 86 57 68 69 63 68 20  |.J. ..T...Which |
000012a0  62 61 72 20 69 6e 20 61  20 73 6f 6e 67 0d 06 5e  |bar in a song..^|
000012b0  0f 77 68 69 63 68 62 61  72 25 3d 31 0d 06 68 0b  |.whichbar%=1..h.|
000012c0  f4 82 73 70 65 65 64 0d  06 72 0d 74 65 6d 70 6f  |..speed..r.tempo|
000012d0  25 3d 31 30 0d 06 7c 05  20 0d 06 86 0e 70 61 74  |%=10..|. ....pat|
000012e0  74 65 72 6e 25 3d 31 0d  06 90 05 e1 0d 06 9a 05  |tern%=1.........|
000012f0  20 0d 06 a4 0c f4 83 41  52 52 41 59 53 0d 06 ae  | ......ARRAYS...|
00001300  0c dd f2 61 72 72 61 79  73 0d 06 af 12 de 20 6d  |...arrays..... m|
00001310  65 6d 25 20 6c 65 6e 67  74 68 25 0d 06 b0 1c de  |em% length%.....|
00001320  20 73 74 6f 72 65 6d 65  6d 25 20 73 74 6f 72 65  | storemem% store|
00001330  6c 65 6e 67 74 68 25 0d  06 b1 1d de 20 74 65 6d  |length%..... tem|
00001340  70 73 74 6f 72 65 25 20  73 74 6f 72 65 6c 65 6e  |pstore% storelen|
00001350  67 74 68 25 0d 06 b8 1b  de 68 69 68 61 74 25 28  |gth%.....hihat%(|
00001360  62 61 72 25 2c 74 6f 74  61 6c 70 61 74 25 29 0d  |bar%,totalpat%).|
00001370  06 b9 1c de 68 69 68 61  74 32 25 28 62 61 72 25  |....hihat2%(bar%|
00001380  2c 74 6f 74 61 6c 70 61  74 25 29 0d 06 c2 1a de  |,totalpat%).....|
00001390  74 6f 6d 31 25 28 62 61  72 25 2c 74 6f 74 61 6c  |tom1%(bar%,total|
000013a0  70 61 74 25 29 0d 06 cc  1a de 74 6f 6d 32 25 28  |pat%).....tom2%(|
000013b0  62 61 72 25 2c 74 6f 74  61 6c 70 61 74 25 29 0d  |bar%,totalpat%).|
000013c0  06 d6 1a de 74 6f 6d 33  25 28 62 61 72 25 2c 74  |....tom3%(bar%,t|
000013d0  6f 74 61 6c 70 61 74 25  29 0d 06 e0 1b de 73 6e  |otalpat%).....sn|
000013e0  61 72 65 25 28 62 61 72  25 2c 74 6f 74 61 6c 70  |are%(bar%,totalp|
000013f0  61 74 25 29 0d 06 ea 1a  de 62 61 73 73 25 28 62  |at%).....bass%(b|
00001400  61 72 25 2c 74 6f 74 61  6c 70 61 74 25 29 0d 06  |ar%,totalpat%)..|
00001410  f4 1c de 62 6c 6f 63 6b  31 25 28 62 61 72 25 2c  |...block1%(bar%,|
00001420  74 6f 74 61 6c 70 61 74  25 29 0d 06 fe 1c de 62  |totalpat%).....b|
00001430  6c 6f 63 6b 32 25 28 62  61 72 25 2c 74 6f 74 61  |lock2%(bar%,tota|
00001440  6c 70 61 74 25 29 0d 06  ff 1d de 63 79 6d 62 61  |lpat%).....cymba|
00001450  6c 31 25 28 62 61 72 25  2c 74 6f 74 61 6c 70 61  |l1%(bar%,totalpa|
00001460  74 25 29 0d 07 00 1d de  63 79 6d 62 61 6c 32 25  |t%).....cymbal2%|
00001470  28 62 61 72 25 2c 74 6f  74 61 6c 70 61 74 25 29  |(bar%,totalpat%)|
00001480  0d 07 01 1e de 72 6f 74  6f 74 6f 6d 31 25 28 62  |.....rototom1%(b|
00001490  61 72 25 2c 74 6f 74 61  6c 70 61 74 25 29 0d 07  |ar%,totalpat%)..|
000014a0  02 1e de 72 6f 74 6f 74  6f 6d 32 25 28 62 61 72  |...rototom2%(bar|
000014b0  25 2c 74 6f 74 61 6c 70  61 74 25 29 0d 07 04 1c  |%,totalpat%)....|
000014c0  de 73 6e 61 72 65 32 25  28 62 61 72 25 2c 74 6f  |.snare2%(bar%,to|
000014d0  74 61 6c 70 61 74 25 29  0d 07 05 05 20 0d 07 06  |talpat%).... ...|
000014e0  1b de 20 53 56 25 28 37  29 2c 53 54 25 28 31 36  |.. SV%(7),ST%(16|
000014f0  29 2c 56 25 28 31 36 29  0d 07 08 05 e1 0d 07 12  |),V%(16)........|
00001500  05 20 0d 07 1c 05 20 0d  07 26 0b f4 82 69 6e 69  |. .... ..&...ini|
00001510  74 32 0d 07 30 0b dd f2  69 6e 69 74 32 0d 07 3a  |t2..0...init2..:|
00001520  0e 68 69 68 61 74 25 28  29 3d 30 0d 07 3c 0f 68  |.hihat%()=0..<.h|
00001530  69 68 61 74 32 25 28 29  3d 30 0d 07 44 0d 74 6f  |ihat2%()=0..D.to|
00001540  6d 31 25 28 29 3d 30 0d  07 4e 0d 74 6f 6d 32 25  |m1%()=0..N.tom2%|
00001550  28 29 3d 30 0d 07 58 0d  74 6f 6d 33 25 28 29 3d  |()=0..X.tom3%()=|
00001560  30 0d 07 62 0e 73 6e 61  72 65 25 28 29 3d 30 0d  |0..b.snare%()=0.|
00001570  07 6c 0d 62 61 73 73 25  28 29 3d 30 0d 07 76 0f  |.l.bass%()=0..v.|
00001580  62 6c 6f 63 6b 31 25 28  29 3d 30 0d 07 80 0f 62  |block1%()=0....b|
00001590  6c 6f 63 6b 32 25 28 29  3d 30 0d 07 81 10 63 79  |lock2%()=0....cy|
000015a0  6d 62 61 6c 31 25 28 29  3d 30 0d 07 82 10 63 79  |mbal1%()=0....cy|
000015b0  6d 62 61 6c 32 25 28 29  3d 30 0d 07 83 11 72 6f  |mbal2%()=0....ro|
000015c0  74 6f 74 6f 6d 31 25 28  29 3d 30 0d 07 84 11 72  |totom1%()=0....r|
000015d0  6f 74 6f 74 6f 6d 32 25  28 29 3d 30 0d 07 85 0f  |ototom2%()=0....|
000015e0  73 6e 61 72 65 32 25 28  29 3d 30 0d 07 86 0b 53  |snare2%()=0....S|
000015f0  54 25 28 29 3d 30 0d 07  88 0c 56 25 28 29 3d 2d  |T%()=0....V%()=-|
00001600  31 35 0d 07 8a 05 e1 0d  07 8c 05 20 0d 07 94 12  |15......... ....|
00001610  f4 85 4d 65 6d 6f 72 79  20 73 74 6f 72 65 0d 07  |..Memory store..|
00001620  96 0c dd f2 6d 65 6d 6f  72 79 0d 07 bc 20 e3 49  |....memory... .I|
00001630  25 3d 6d 65 6d 25 20 b8  20 65 6e 64 25 2d 34 20  |%=mem% . end%-4 |
00001640  88 34 3a 21 49 25 3d 30  3a ed 0d 07 c6 05 20 0d  |.4:!I%=0:..... .|
00001650  08 02 20 e3 49 25 3d 73  74 6f 72 65 6d 65 6d 25  |.. .I%=storemem%|
00001660  20 b8 20 73 74 6f 72 65  65 6e 64 25 20 88 34 0d  | . storeend% .4.|
00001670  08 0c 09 21 49 25 3d 30  0d 08 16 05 ed 0d 08 20  |...!I%=0....... |
00001680  05 e1 0d 08 2a 05 20 0d  08 34 05 20 0d 08 3e 12  |....*. ..4. ..>.|
00001690  f4 82 50 4c 41 59 20 50  41 54 54 45 52 4e 0d 08  |..PLAY PATTERN..|
000016a0  48 11 dd f2 70 6c 61 79  70 61 74 74 65 72 6e 0d  |H...playpattern.|
000016b0  08 52 17 c8 97 20 c8 93  20 33 32 30 2c 38 39 36  |.R... .. 320,896|
000016c0  2c 33 32 2c 33 32 0d 08  5c 15 f2 70 6c 61 79 69  |,32,32..\..playi|
000016d0  74 28 70 61 74 74 65 72  6e 25 29 0d 08 66 16 c8  |t(pattern%)..f..|
000016e0  97 20 c8 93 38 2c 33 32  2c 31 32 36 34 2c 39 36  |. ..8,32,1264,96|
000016f0  30 0d 08 70 05 e1 0d 08  7a 05 20 0d 08 84 10 f4  |0..p....z. .....|
00001700  22 86 50 4c 41 59 20 49  54 21 21 0d 08 8e 10 dd  |".PLAY IT!!.....|
00001710  f2 70 6c 61 79 69 74 28  50 25 29 0d 08 98 1c 4d  |.playit(P%)....M|
00001720  25 3d 28 6d 65 6d 25 2b  28 28 50 25 2d 31 29 2a  |%=(mem%+((P%-1)*|
00001730  32 35 36 29 2d 31 29 0d  08 a2 10 f4 81 2e 2e 2e  |256)-1).........|
00001740  6f 6e 65 20 62 61 72 0d  08 ac 16 f5 3a c8 97 58  |one bar.....:..X|
00001750  25 2c 59 25 2c 5a 25 3a  fd 5a 25 3d 30 0d 08 b6  |%,Y%,Z%:.Z%=0...|
00001760  0e e3 49 25 3d 31 b8 62  61 72 25 0d 08 c0 0e c8  |..I%=1.bar%.....|
00001770  97 58 25 2c 59 25 2c 5a  25 0d 08 ca 16 e7 5a 25  |.X%,Y%,Z%.....Z%|
00001780  3d 34 73 74 6f 70 25 3d  31 3a e5 8d 44 7e 49 0d  |=4stop%=1:..D~I.|
00001790  08 d4 0b f4 85 48 49 48  41 54 0d 08 de 29 e7 3f  |.....HIHAT...).?|
000017a0  28 4d 25 2b 49 25 29 3d  31 20 c8 a2 31 2c 53 54  |(M%+I%)=1 ..1,ST|
000017b0  25 28 31 29 3a d4 31 2c  56 25 28 31 29 2c 32 30  |%(1):.1,V%(1),20|
000017c0  30 2c 32 0d 08 e8 0a f4  85 54 4f 4d 31 0d 08 f2  |0,2......TOM1...|
000017d0  2c e7 3f 28 4d 25 2b 49  25 2b 31 36 29 3d 31 20  |,.?(M%+I%+16)=1 |
000017e0  c8 a2 32 2c 53 54 25 28  32 29 3a d4 32 2c 56 25  |..2,ST%(2):.2,V%|
000017f0  28 32 29 2c 31 36 30 2c  33 0d 08 fc 0a f4 85 54  |(2),160,3......T|
00001800  4f 4d 32 0d 09 06 2c e7  3f 28 4d 25 2b 49 25 2b  |OM2...,.?(M%+I%+|
00001810  33 32 29 3d 31 20 c8 a2  32 2c 53 54 25 28 33 29  |32)=1 ..2,ST%(3)|
00001820  3a d4 32 2c 56 25 28 33  29 2c 31 34 32 2c 33 0d  |:.2,V%(3),142,3.|
00001830  09 10 0a f4 85 54 4f 4d  33 0d 09 1a 2c e7 3f 28  |.....TOM3...,.?(|
00001840  4d 25 2b 49 25 2b 34 38  29 3d 31 20 c8 a2 32 2c  |M%+I%+48)=1 ..2,|
00001850  53 54 25 28 34 29 3a d4  32 2c 56 25 28 34 29 2c  |ST%(4):.2,V%(4),|
00001860  31 33 35 2c 33 0d 09 24  0c f4 85 42 4c 4f 43 4b  |135,3..$...BLOCK|
00001870  31 0d 09 2e 2c e7 3f 28  4d 25 2b 49 25 2b 36 34  |1...,.?(M%+I%+64|
00001880  29 3d 31 20 c8 a2 33 2c  53 54 25 28 35 29 3a d4  |)=1 ..3,ST%(5):.|
00001890  33 2c 56 25 28 35 29 2c  32 30 30 2c 35 0d 09 38  |3,V%(5),200,5..8|
000018a0  0c f4 85 42 4c 4f 43 4b  32 0d 09 42 2c e7 3f 28  |...BLOCK2..B,.?(|
000018b0  4d 25 2b 49 25 2b 38 30  29 3d 31 20 c8 a2 33 2c  |M%+I%+80)=1 ..3,|
000018c0  53 54 25 28 36 29 3a d4  33 2c 56 25 28 36 29 2c  |ST%(6):.3,V%(6),|
000018d0  32 34 34 2c 35 0d 09 43  0d f4 85 43 59 4d 42 41  |244,5..C...CYMBA|
000018e0  4c 31 0d 09 44 2d e7 3f  28 4d 25 2b 49 25 2b 39  |L1..D-.?(M%+I%+9|
000018f0  36 29 3d 31 20 c8 a2 34  2c 53 54 25 28 37 29 3a  |6)=1 ..4,ST%(7):|
00001900  d4 34 2c 56 25 28 37 29  2c 31 36 30 2c 33 30 0d  |.4,V%(7),160,30.|
00001910  09 45 0d f4 85 43 59 4d  42 41 4c 32 0d 09 46 2e  |.E...CYMBAL2..F.|
00001920  e7 3f 28 4d 25 2b 49 25  2b 31 31 32 29 3d 31 20  |.?(M%+I%+112)=1 |
00001930  c8 a2 34 2c 53 54 25 28  38 29 3a d4 34 2c 56 25  |..4,ST%(8):.4,V%|
00001940  28 38 29 2c 31 35 30 2c  33 30 0d 09 47 0e f4 85  |(8),150,30..G...|
00001950  52 4f 54 4f 54 4f 4d 31  0d 09 48 2d e7 3f 28 4d  |ROTOTOM1..H-.?(M|
00001960  25 2b 49 25 2b 31 32 38  29 3d 31 20 c8 a2 35 2c  |%+I%+128)=1 ..5,|
00001970  53 54 25 28 39 29 3a d4  35 2c 56 25 28 39 29 2c  |ST%(9):.5,V%(9),|
00001980  31 30 30 2c 33 0d 09 49  0e f4 85 52 4f 54 4f 54  |100,3..I...ROTOT|
00001990  4f 4d 32 0d 09 4a 2e e7  3f 28 4d 25 2b 49 25 2b  |OM2..J..?(M%+I%+|
000019a0  31 34 34 29 3d 31 20 c8  a2 35 2c 53 54 25 28 31  |144)=1 ..5,ST%(1|
000019b0  30 29 3a d4 35 2c 56 25  28 31 30 29 2c 39 30 2c  |0):.5,V%(10),90,|
000019c0  33 0d 09 4b 0c f4 85 48  49 48 41 54 32 0d 09 4c  |3..K...HIHAT2..L|
000019d0  2f e7 3f 28 4d 25 2b 49  25 2b 31 36 30 29 3d 31  |/.?(M%+I%+160)=1|
000019e0  20 c8 a2 31 2c 53 54 25  28 31 31 29 3a d4 31 2c  | ..1,ST%(11):.1,|
000019f0  56 25 28 31 31 29 2c 32  30 35 2c 38 0d 09 52 0c  |V%(11),205,8..R.|
00001a00  f4 85 53 4e 41 52 45 32  0d 09 53 2f e7 3f 28 4d  |..SNARE2..S/.?(M|
00001a10  25 2b 49 25 2b 32 30 38  29 3d 31 20 c8 a2 36 2c  |%+I%+208)=1 ..6,|
00001a20  53 54 25 28 31 34 29 3a  d4 36 2c 56 25 28 31 34  |ST%(14):.6,V%(14|
00001a30  29 2c 31 34 30 2c 33 0d  09 55 0b f4 85 53 4e 41  |),140,3..U...SNA|
00001a40  52 45 0d 09 56 2e e7 3f  28 4d 25 2b 49 25 2b 32  |RE..V..?(M%+I%+2|
00001a50  32 34 29 3d 31 20 c8 a2  37 2c 53 54 25 28 31 35  |24)=1 ..7,ST%(15|
00001a60  29 3a d4 37 2c 56 25 28  31 35 29 2c 35 30 2c 33  |):.7,V%(15),50,3|
00001a70  0d 09 60 0f f4 85 42 41  53 53 20 44 52 55 4d 0d  |..`...BASS DRUM.|
00001a80  09 6a 2e e7 3f 28 4d 25  2b 49 25 2b 32 34 30 29  |.j..?(M%+I%+240)|
00001a90  3d 31 20 c8 a2 38 2c 53  54 25 28 31 36 29 3a d4  |=1 ..8,ST%(16):.|
00001aa0  38 2c 56 25 28 31 36 29  2c 35 30 2c 33 0d 09 74  |8,V%(16),50,3..t|
00001ab0  09 f2 77 61 69 74 0d 09  7e 05 ed 0d 09 92 05 e1  |..wait..~.......|
00001ac0  0d 09 9c 05 20 0d 09 a6  0b f4 22 85 57 41 49 54  |.... .....".WAIT|
00001ad0  0d 09 b0 0a dd f2 77 61  69 74 0d 09 ba 07 d1 3d  |......wait.....=|
00001ae0  30 0d 09 c4 15 e7 49 25  3d 62 61 72 25 80 73 68  |0.....I%=bar%.sh|
00001af0  6f 77 25 3d 31 e1 0d 09  ce 0e f5 fd 91 3e 74 65  |ow%=1........>te|
00001b00  6d 70 6f 25 0d 09 d8 05  e1 0d 09 e2 05 20 0d 0a  |mpo%......... ..|
00001b10  aa 0a f4 86 47 52 49 44  0d 0a af 0a dd f2 67 72  |....GRID......gr|
00001b20  69 64 0d 0a b6 22 ef 32  34 2c 35 31 32 3b 33 35  |id...".24,512;35|
00001b30  32 3b 34 39 36 2b 28 62  61 72 25 2a 33 32 29 3b  |2;496+(bar%*32);|
00001b40  38 36 30 3b 0d 0a be 2b  c8 99 20 22 4f 53 5f 53  |860;...+.. "OS_S|
00001b50  70 72 69 74 65 4f 70 22  2c 32 35 36 2b 33 34 2c  |priteOp",256+34,|
00001b60  67 25 2c 67 24 2c 35 31  32 2c 33 35 32 2c 30 0d  |g%,g$,512,352,0.|
00001b70  0a de 05 e1 0d 0b 54 05  20 0d 0f 99 13 f4 83 73  |......T. ......s|
00001b80  74 65 72 65 6f 20 76 61  6c 75 65 73 0d 0f a0 05  |tereo values....|
00001b90  20 0d 0f aa 0d f4 83 46  49 58 20 44 4f 54 0d 0f  | ......FIX DOT..|
00001ba0  b4 1b dd f2 66 69 78 28  73 74 61 74 65 25 2c 63  |....fix(state%,c|
00001bb0  6f 6c 25 2c 64 6f 74 24  29 0d 0f be 0c e7 58 25  |ol%,dot$).....X%|
00001bc0  3c 35 32 38 e1 0d 0f c8  0c e7 59 25 3e 38 36 34  |<528......Y%>864|
00001bd0  e1 0d 0f d2 0c e7 59 25  3c 33 36 38 e1 0d 0f dc  |......Y%<368....|
00001be0  0d e7 73 68 6f 77 25 3d  30 e1 0d 0f e6 09 f4 56  |..show%=0......V|
00001bf0  44 55 35 0d 0f f0 09 fb  63 6f 6c 25 0d 0f f2 08  |DU5.....col%....|
00001c00  fb 31 33 32 0d 0f fa 17  77 6e 25 3d 28 28 58 25  |.132....wn%=((X%|
00001c10  2d 31 36 29 81 33 32 29  2d 31 35 0d 10 04 17 77  |-16).32)-15....w|
00001c20  76 25 3d 32 38 2d 28 28  59 25 2b 31 36 29 81 33  |v%=28-((Y%+16).3|
00001c30  32 29 0d 10 0e 05 20 0d  10 18 0c c8 8e 20 77 76  |2).... ...... wv|
00001c40  25 20 ca 0d 10 22 0f c9  20 31 3a f4 83 48 49 48  |% ...".. 1:..HIH|
00001c50  41 54 0d 10 2c 2b 3f 28  6d 65 6d 25 2b 28 28 70  |AT..,+?(mem%+((p|
00001c60  61 74 74 65 72 6e 25 2d  31 29 2a 32 35 36 29 2b  |attern%-1)*256)+|
00001c70  77 6e 25 2d 31 29 3d 73  74 61 74 65 25 0d 10 36  |wn%-1)=state%..6|
00001c80  0e c9 20 32 3a f4 83 54  4f 4d 31 0d 10 40 2e 3f  |.. 2:..TOM1..@.?|
00001c90  28 6d 65 6d 25 2b 28 28  70 61 74 74 65 72 6e 25  |(mem%+((pattern%|
00001ca0  2d 31 29 2a 32 35 36 29  2b 77 6e 25 2d 31 2b 31  |-1)*256)+wn%-1+1|
00001cb0  36 29 3d 73 74 61 74 65  25 0d 10 4a 0e c9 20 33  |6)=state%..J.. 3|
00001cc0  3a f4 83 54 4f 4d 32 0d  10 54 2e 3f 28 6d 65 6d  |:..TOM2..T.?(mem|
00001cd0  25 2b 28 28 70 61 74 74  65 72 6e 25 2d 31 29 2a  |%+((pattern%-1)*|
00001ce0  32 35 36 29 2b 77 6e 25  2d 31 2b 33 32 29 3d 73  |256)+wn%-1+32)=s|
00001cf0  74 61 74 65 25 0d 10 5e  0e c9 20 34 3a f4 83 54  |tate%..^.. 4:..T|
00001d00  4f 4d 33 0d 10 68 2e 3f  28 6d 65 6d 25 2b 28 28  |OM3..h.?(mem%+((|
00001d10  70 61 74 74 65 72 6e 25  2d 31 29 2a 32 35 36 29  |pattern%-1)*256)|
00001d20  2b 77 6e 25 2d 31 2b 34  38 29 3d 73 74 61 74 65  |+wn%-1+48)=state|
00001d30  25 0d 10 72 10 c9 20 35  3a f4 83 42 4c 4f 43 4b  |%..r.. 5:..BLOCK|
00001d40  31 0d 10 7c 2e 3f 28 6d  65 6d 25 2b 28 28 70 61  |1..|.?(mem%+((pa|
00001d50  74 74 65 72 6e 25 2d 31  29 2a 32 35 36 29 2b 77  |ttern%-1)*256)+w|
00001d60  6e 25 2d 31 2b 36 34 29  3d 73 74 61 74 65 25 0d  |n%-1+64)=state%.|
00001d70  10 86 10 c9 20 36 3a f4  83 42 4c 4f 43 4b 32 0d  |.... 6:..BLOCK2.|
00001d80  10 90 2e 3f 28 6d 65 6d  25 2b 28 28 70 61 74 74  |...?(mem%+((patt|
00001d90  65 72 6e 25 2d 31 29 2a  32 35 36 29 2b 77 6e 25  |ern%-1)*256)+wn%|
00001da0  2d 31 2b 38 30 29 3d 73  74 61 74 65 25 0d 10 91  |-1+80)=state%...|
00001db0  11 c9 20 37 3a f4 83 43  59 4d 42 41 4c 31 0d 10  |.. 7:..CYMBAL1..|
00001dc0  92 2e 3f 28 6d 65 6d 25  2b 28 28 70 61 74 74 65  |..?(mem%+((patte|
00001dd0  72 6e 25 2d 31 29 2a 32  35 36 29 2b 77 6e 25 2d  |rn%-1)*256)+wn%-|
00001de0  31 2b 39 36 29 3d 73 74  61 74 65 25 0d 10 93 11  |1+96)=state%....|
00001df0  c9 20 38 3a f4 83 43 59  4d 42 41 4c 32 0d 10 94  |. 8:..CYMBAL2...|
00001e00  2f 3f 28 6d 65 6d 25 2b  28 28 70 61 74 74 65 72  |/?(mem%+((patter|
00001e10  6e 25 2d 31 29 2a 32 35  36 29 2b 77 6e 25 2d 31  |n%-1)*256)+wn%-1|
00001e20  2b 31 31 32 29 3d 73 74  61 74 65 25 0d 10 95 12  |+112)=state%....|
00001e30  c9 20 39 3a f4 83 52 4f  54 4f 54 4f 4d 31 0d 10  |. 9:..ROTOTOM1..|
00001e40  96 2f 3f 28 6d 65 6d 25  2b 28 28 70 61 74 74 65  |./?(mem%+((patte|
00001e50  72 6e 25 2d 31 29 2a 32  35 36 29 2b 77 6e 25 2d  |rn%-1)*256)+wn%-|
00001e60  31 2b 31 32 38 29 3d 73  74 61 74 65 25 0d 10 97  |1+128)=state%...|
00001e70  13 c9 20 31 30 3a f4 83  52 4f 54 4f 54 4f 4d 32  |.. 10:..ROTOTOM2|
00001e80  0d 10 98 2f 3f 28 6d 65  6d 25 2b 28 28 70 61 74  |.../?(mem%+((pat|
00001e90  74 65 72 6e 25 2d 31 29  2a 32 35 36 29 2b 77 6e  |tern%-1)*256)+wn|
00001ea0  25 2d 31 2b 31 34 34 29  3d 73 74 61 74 65 25 0d  |%-1+144)=state%.|
00001eb0  10 99 15 c9 20 31 31 3a  f4 83 4f 50 45 4e 20 48  |.... 11:..OPEN H|
00001ec0  49 48 41 54 0d 10 9a 2f  3f 28 6d 65 6d 25 2b 28  |IHAT.../?(mem%+(|
00001ed0  28 70 61 74 74 65 72 6e  25 2d 31 29 2a 32 35 36  |(pattern%-1)*256|
00001ee0  29 2b 77 6e 25 2d 31 2b  31 36 30 29 3d 73 74 61  |)+wn%-1+160)=sta|
00001ef0  74 65 25 0d 10 a1 11 c9  20 31 34 3a f4 83 53 4e  |te%..... 14:..SN|
00001f00  41 52 45 32 0d 10 a2 2f  3f 28 6d 65 6d 25 2b 28  |ARE2.../?(mem%+(|
00001f10  28 70 61 74 74 65 72 6e  25 2d 31 29 2a 32 35 36  |(pattern%-1)*256|
00001f20  29 2b 77 6e 25 2d 31 2b  32 30 38 29 3d 73 74 61  |)+wn%-1+208)=sta|
00001f30  74 65 25 0d 10 a3 10 c9  20 31 35 3a f4 83 53 4e  |te%..... 15:..SN|
00001f40  41 52 45 0d 10 a4 2f 3f  28 6d 65 6d 25 2b 28 28  |ARE.../?(mem%+((|
00001f50  70 61 74 74 65 72 6e 25  2d 31 29 2a 32 35 36 29  |pattern%-1)*256)|
00001f60  2b 77 6e 25 2d 31 2b 32  32 34 29 3d 73 74 61 74  |+wn%-1+224)=stat|
00001f70  65 25 0d 10 ae 14 c9 20  31 36 3a f4 83 42 41 53  |e%..... 16:..BAS|
00001f80  53 20 44 52 55 4d 0d 10  b8 2f 3f 28 6d 65 6d 25  |S DRUM.../?(mem%|
00001f90  2b 28 28 70 61 74 74 65  72 6e 25 2d 31 29 2a 32  |+((pattern%-1)*2|
00001fa0  35 36 29 2b 77 6e 25 2d  31 2b 32 34 30 29 3d 73  |56)+wn%-1+240)=s|
00001fb0  74 61 74 65 25 0d 10 c2  05 cb 0d 10 cc 05 20 0d  |tate%......... .|
00001fc0  10 ce 17 70 78 25 3d 28  28 58 25 2d 31 36 29 81  |...px%=((X%-16).|
00001fd0  33 32 29 2a 33 32 0d 10  cf 17 70 79 25 3d 28 28  |32)*32....py%=((|
00001fe0  59 25 2b 31 36 29 81 33  32 29 2a 33 32 0d 10 d6  |Y%+16).32)*32...|
00001ff0  12 50 78 25 3d 28 58 25  2d 31 36 29 81 33 32 0d  |.Px%=(X%-16).32.|
00002000  10 e0 15 50 79 25 3d 33  32 2d 28 59 25 2b 31 36  |...Py%=32-(Y%+16|
00002010  29 81 33 32 0d 10 f4 12  f1 8a 50 78 25 2c 50 79  |).32......Px%,Py|
00002020  25 29 64 6f 74 24 0d 10  fe 0f e7 73 74 61 74 65  |%)dot$.....state|
00002030  25 3d 30 20 8c 0d 11 00  3d 20 e6 36 3a ef 32 34  |%=0 ....= .6:.24|
00002040  2c 35 32 38 3b 33 36 38  3b 31 30 30 38 3b 38 34  |,528;368;1008;84|
00002050  38 3b 35 3a ec 70 78 25  2c 70 79 25 3a f1 64 24  |8;5:.px%,py%:.d$|
00002060  3a f0 36 39 2c 70 78 25  2b 31 36 2c 70 79 25 2d  |:.69,px%+16,py%-|
00002070  33 32 0d 11 02 2f 20 e7  28 70 78 25 83 31 32 38  |32.../ .(px%.128|
00002080  29 3d 30 ef 35 3a e6 30  2c 31 3a ec 70 78 25 2b  |)=0.5:.0,1:.px%+|
00002090  31 36 2c 70 79 25 2d 33  32 3a f0 31 2c 30 2c 33  |16,py%-32:.1,0,3|
000020a0  32 0d 11 07 05 cd 0d 11  08 09 ef 32 36 2c 34 0d  |2..........26,4.|
000020b0  11 12 05 87 0d 11 1c 05  e1 0d 11 26 05 20 0d 11  |...........&. ..|
000020c0  30 14 f4 82 63 65 6e 74  72 65 20 70 6f 69 6e 74  |0...centre point|
000020d0  65 72 0d 11 3a 0c dd f2  63 65 6e 74 72 65 0d 11  |er..:...centre..|
000020e0  3c 0d e7 58 25 3e 31 30  30 38 e1 0d 11 44 0c e7  |<..X%>1008...D..|
000020f0  58 25 3c 35 32 38 e1 0d  11 4e 0c e7 59 25 3e 38  |X%<528...N..Y%>8|
00002100  36 34 e1 0d 11 58 0c e7  59 25 3c 33 35 32 e1 0d  |64...X..Y%<352..|
00002110  11 62 06 ef 34 0d 11 6c  05 87 0d 11 76 05 f5 0d  |.b..4..l....v...|
00002120  11 80 11 72 25 3d 28 58  25 2d 31 36 29 83 33 32  |...r%=(X%-16).32|
00002130  0d 11 8a 19 e7 58 25 3e  6f 6c 64 78 25 3a e7 72  |.....X%>oldx%:.r|
00002140  25 3e 30 20 58 25 2b 3d  31 0d 11 94 19 e7 58 25  |%>0 X%+=1.....X%|
00002150  3c 6f 6c 64 78 25 3a e7  72 25 3e 30 20 58 25 2d  |<oldx%:.r%>0 X%-|
00002160  3d 31 0d 11 9e 0e c8 97  20 b8 20 58 25 2c 59 25  |=1...... . X%,Y%|
00002170  0d 11 a8 09 fd 72 25 3d  30 0d 11 b2 05 f5 0d 11  |.....r%=0.......|
00002180  bc 11 6f 25 3d 28 59 25  2b 31 36 29 83 33 32 0d  |..o%=(Y%+16).32.|
00002190  11 c6 19 e7 59 25 3e 6f  6c 64 79 25 3a e7 6f 25  |....Y%>oldy%:.o%|
000021a0  3e 30 20 59 25 2b 3d 31  0d 11 d0 19 e7 59 25 3c  |>0 Y%+=1.....Y%<|
000021b0  6f 6c 64 79 25 3a e7 6f  25 3e 30 20 59 25 2d 3d  |oldy%:.o%>0 Y%-=|
000021c0  31 0d 11 da 0e c8 97 20  b8 20 58 25 2c 59 25 0d  |1...... . X%,Y%.|
000021d0  11 e4 09 fd 6f 25 3d 30  0d 11 ee 0c 6f 6c 64 78  |....o%=0....oldx|
000021e0  25 3d 58 25 0d 11 f8 0c  6f 6c 64 79 25 3d 59 25  |%=X%....oldy%=Y%|
000021f0  0d 12 02 05 e1 0d 12 0c  0d f4 86 50 41 54 54 45  |...........PATTE|
00002200  52 4e 0d 12 16 13 dd f2  70 61 74 74 65 72 6e 28  |RN......pattern(|
00002210  73 74 70 25 29 0d 12 18  0b 73 68 6f 77 25 3d 31  |stp%)....show%=1|
00002220  0d 12 1a 0f 73 68 6f 77  57 48 41 54 25 3d 30 0d  |....showWHAT%=0.|
00002230  12 20 26 e7 59 25 3e 3d  39 32 38 3a e7 58 25 3c  |. &.Y%>=928:.X%<|
00002240  3d 32 35 36 80 70 61 74  74 65 72 6e 25 2d 73 74  |=256.pattern%-st|
00002250  70 25 3c 31 e1 0d 12 22  2e e7 59 25 3e 3d 39 32  |p%<1..."..Y%>=92|
00002260  38 3a e7 58 25 3c 3d 33  35 32 80 58 25 3e 32 35  |8:.X%<=352.X%>25|
00002270  36 80 70 61 74 74 65 72  6e 25 2b 73 74 70 25 3e  |6.pattern%+stp%>|
00002280  39 36 e1 0d 12 24 26 e7  59 25 3c 3d 32 38 38 3a  |96...$&.Y%<=288:|
00002290  e7 58 25 3c 3d 33 35 32  80 70 61 74 74 65 72 6e  |.X%<=352.pattern|
000022a0  25 2d 73 74 70 25 3c 31  e1 0d 12 26 27 e7 59 25  |%-stp%<1...&'.Y%|
000022b0  3c 3d 32 38 38 3a e7 58  25 3e 3d 34 34 38 80 70  |<=288:.X%>=448.p|
000022c0  61 74 74 65 72 6e 25 2b  73 74 70 25 3e 39 36 e1  |attern%+stp%>96.|
000022d0  0d 12 2a 0f c8 8e 20 77  68 65 72 65 25 20 ca 0d  |..*... where% ..|
000022e0  12 34 08 c9 20 31 3a 0d  12 48 35 e7 58 25 3c 3d  |.4.. 1:..H5.X%<=|
000022f0  32 35 32 80 70 61 74 74  65 72 6e 25 3e 73 74 70  |252.pattern%>stp|
00002300  25 70 61 74 74 65 72 6e  25 2d 3d 73 74 70 25 3a  |%pattern%-=stp%:|
00002310  d4 33 2c 2d 31 35 2c 31  39 30 2c 32 0d 12 52 27  |.3,-15,190,2..R'|
00002320  e7 58 25 3e 3d 33 32 30  70 61 74 74 65 72 6e 25  |.X%>=320pattern%|
00002330  2b 3d 73 74 70 25 3a d4  33 2c 2d 31 35 2c 32 30  |+=stp%:.3,-15,20|
00002340  30 2c 32 0d 12 5c 08 c9  20 33 3a 0d 12 70 35 e7  |0,2..\.. 3:..p5.|
00002350  58 25 3c 3d 33 35 32 80  70 61 74 74 65 72 6e 25  |X%<=352.pattern%|
00002360  3e 73 74 70 25 70 61 74  74 65 72 6e 25 2d 3d 73  |>stp%pattern%-=s|
00002370  74 70 25 3a d4 33 2c 2d  31 35 2c 31 39 30 2c 32  |tp%:.3,-15,190,2|
00002380  0d 12 7a 27 e7 58 25 3e  3d 34 34 38 70 61 74 74  |..z'.X%>=448patt|
00002390  65 72 6e 25 2b 3d 73 74  70 25 3a d4 33 2c 2d 31  |ern%+=stp%:.3,-1|
000023a0  35 2c 32 30 30 2c 32 0d  12 84 05 cb 0d 12 8e 2c  |5,200,2........,|
000023b0  70 61 74 24 3d c3 70 61  74 74 65 72 6e 25 3a e7  |pat$=.pattern%:.|
000023c0  70 61 74 74 65 72 6e 25  3c 31 30 70 61 74 24 3d  |pattern%<10pat$=|
000023d0  22 30 22 2b 70 61 74 24  0d 12 98 17 fb 33 3a fb  |"0"+pat$.....3:.|
000023e0  31 32 38 3a f1 8a 38 2c  32 29 3b 70 61 74 24 0d  |128:..8,2);pat$.|
000023f0  12 a2 14 f1 8a 31 31 2c  32 33 29 22 20 22 3b 70  |.....11,23)" ";p|
00002400  61 74 24 0d 12 a7 0a f2  62 6c 61 6e 6b 0d 12 ac  |at$.....blank...|
00002410  09 f2 67 72 69 64 0d 12  b6 1a f2 64 69 73 70 6c  |..grid.....displ|
00002420  61 79 64 6f 74 73 28 70  61 74 74 65 72 6e 25 29  |aydots(pattern%)|
00002430  0d 12 c0 05 e1 0d 12 ca  05 20 0d 12 d4 11 f4 81  |......... ......|
00002440  64 69 73 70 6c 61 79 64  6f 74 73 0d 12 de 15 dd  |displaydots.....|
00002450  f2 64 69 73 70 6c 61 79  64 6f 74 73 28 50 25 29  |.displaydots(P%)|
00002460  0d 12 e8 16 4d 25 3d 50  25 2a 32 35 36 2b 6d 65  |....M%=P%*256+me|
00002470  6d 25 2d 32 35 36 0d 12  f4 12 ef 32 38 2c 31 36  |m%-256.....28,16|
00002480  2c 32 31 2c 33 31 2c 35  0d 12 fc 0b fb 30 3a fb  |,21,31,5.....0:.|
00002490  31 33 32 0d 13 06 0d e3  49 25 3d 30 b8 32 35 35  |132.....I%=0.255|
000024a0  0d 13 10 13 e7 4d 25 3f  49 25 3d 31 f1 44 24 3b  |.....M%?I%=1.D$;|
000024b0  8b ef 39 0d 13 24 05 ed  0d 13 2e 10 ef 32 36 2c  |..9..$.......26,|
000024c0  34 3a 87 3a fb 31 32 38  0d 13 38 05 e1 0d 13 42  |4:.:.128..8....B|
000024d0  05 20 0d 13 4c 13 f4 82  53 41 56 45 83 50 41 54  |. ..L...SAVE.PAT|
000024e0  54 45 52 4e 53 0d 13 56  12 dd f2 73 61 76 65 70  |TERNS..V...savep|
000024f0  61 74 74 65 72 6e 73 0d  13 60 08 c8 97 20 87 0d  |atterns..`... ..|
00002500  13 6a 12 fb 31 33 32 3a  f1 8a 32 37 2c 31 29 89  |.j..132:..27,1).|
00002510  35 0d 13 74 10 d4 38 2c  2d 31 35 2c 31 35 30 2c  |5..t..8,-15,150,|
00002520  33 0d 13 7e 0b fb 33 3a  fb 31 32 38 0d 13 88 12  |3..~..3:.128....|
00002530  f1 8a 31 39 2c 31 29 22  4e 61 6d 65 3d 22 0d 13  |..19,1)"Name="..|
00002540  92 10 f2 69 6e 70 75 74  28 31 39 2c 31 29 0d 13  |...input(19,1)..|
00002550  9c 10 6e 61 6d 65 24 3d  69 6e 70 75 74 24 0d 13  |..name$=input$..|
00002560  a6 2a 61 64 64 24 3d 22  3c 44 52 55 4d 4b 49 54  |.*add$="<DRUMKIT|
00002570  24 64 69 72 3e 2e 70 61  74 73 4e 73 6f 6e 67 73  |$dir>.patsNsongs|
00002580  2e 22 2b 6e 61 6d 65 24  0d 13 b0 2a c8 99 22 4f  |."+name$...*.."O|
00002590  53 5f 46 69 6c 65 22 2c  30 2c 61 64 64 24 2c 6d  |S_File",0,add$,m|
000025a0  65 6d 25 2c 6d 65 6d 25  2c 6d 65 6d 25 2c 65 6e  |em%,mem%,mem%,en|
000025b0  64 25 0d 13 ba 40 fb 31  3a fb 31 33 32 3a f1 8a  |d%...@.1:.132:..|
000025c0  31 39 2c 31 29 22 53 41  56 45 22 89 39 3a f4 43  |19,1)"SAVE".9:.C|
000025d0  4f 4c 4f 55 52 31 33 35  3a 43 4f 4c 4f 55 52 31  |OLOUR135:COLOUR1|
000025e0  3a 50 52 49 4e 54 54 41  42 28 32 33 2c 31 29 22  |:PRINTTAB(23,1)"|
000025f0  2a 22 0d 13 bb 30 c8 99  20 22 4f 53 5f 53 70 72  |*"...0.. "OS_Spr|
00002600  69 74 65 4f 70 22 2c 32  35 36 2b 33 34 2c 53 25  |iteOp",256+34,S%|
00002610  2c 22 50 4c 41 59 31 22  2c 37 33 36 2c 39 36 30  |,"PLAY1",736,960|
00002620  2c 30 0d 13 c4 19 fb 31  3a fb 31 33 32 3a f1 8a  |,0.....1:.132:..|
00002630  32 37 2c 31 29 22 77 69  70 65 22 0d 13 ce 28 f4  |27,1)"wipe"...(.|
00002640  43 4f 4c 4f 55 52 31 32  39 3a 43 4f 4c 4f 55 52  |COLOUR129:COLOUR|
00002650  37 3a 50 52 49 4e 54 54  41 42 28 33 31 2c 31 29  |7:PRINTTAB(31,1)|
00002660  22 2a 22 0d 13 cf 30 c8  99 20 22 4f 53 5f 53 70  |"*"...0.. "OS_Sp|
00002670  72 69 74 65 4f 70 22 2c  32 35 36 2b 33 34 2c 53  |riteOp",256+34,S|
00002680  25 2c 22 50 4c 41 59 31  22 2c 39 39 32 2c 39 36  |%,"PLAY1",992,96|
00002690  30 2c 30 0d 13 d8 08 c8  97 20 ee 0d 13 e2 05 e1  |0,0...... ......|
000026a0  0d 13 ec 13 f4 81 4c 4f  41 44 83 50 41 54 54 45  |......LOAD.PATTE|
000026b0  52 4e 53 0d 13 f6 12 dd  f2 6c 6f 61 64 70 61 74  |RNS......loadpat|
000026c0  74 65 72 6e 73 0d 14 00  08 c8 97 20 87 0d 14 0a  |terns...... ....|
000026d0  10 d4 38 2c 2d 31 35 2c  32 32 30 2c 33 0d 14 14  |..8,-15,220,3...|
000026e0  0b fb 33 3a fb 31 32 38  0d 14 1e 12 f1 8a 31 39  |..3:.128......19|
000026f0  2c 32 29 22 4e 61 6d 65  3d 22 0d 14 28 10 f2 69  |,2)"Name="..(..i|
00002700  6e 70 75 74 28 31 39 2c  32 29 0d 14 32 10 6e 61  |nput(19,2)..2.na|
00002710  6d 65 24 3d 69 6e 70 75  74 24 0d 14 3c 2a 61 64  |me$=input$..<*ad|
00002720  64 24 3d 22 3c 44 52 55  4d 4b 49 54 24 64 69 72  |d$="<DRUMKIT$dir|
00002730  3e 2e 70 61 74 73 4e 73  6f 6e 67 73 2e 22 2b 6e  |>.patsNsongs."+n|
00002740  61 6d 65 24 0d 14 46 1d  c8 99 22 4f 53 5f 46 69  |ame$..F..."OS_Fi|
00002750  6c 65 22 2c 26 46 46 2c  61 64 64 24 2c 6d 65 6d  |le",&FF,add$,mem|
00002760  25 0d 14 50 2e fb 31 3a  fb 31 33 32 3a f1 8a 32  |%..P..1:.132:..2|
00002770  30 2c 32 29 22 4c 4f 41  44 22 89 38 3a fb 31 32  |0,2)"LOAD".8:.12|
00002780  39 3a fb 37 3a f1 8a 31  39 2c 32 29 22 2a 22 0d  |9:.7:..19,2)"*".|
00002790  14 51 30 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |.Q0.. "OS_Sprite|
000027a0  4f 70 22 2c 32 35 36 2b  33 34 2c 53 25 2c 22 50  |Op",256+34,S%,"P|
000027b0  4c 41 59 31 22 2c 36 30  38 2c 39 32 38 2c 30 0d  |LAY1",608,928,0.|
000027c0  14 5a 20 fb 33 3a fb 31  33 32 3a f1 8a 32 34 2c  |.Z .3:.132:..24,|
000027d0  33 29 89 38 8a 32 34 2c  33 29 6e 61 6d 65 24 0d  |3).8.24,3)name$.|
000027e0  14 64 1a 70 61 74 74 65  72 6e 25 3d 30 3a f2 70  |.d.pattern%=0:.p|
000027f0  61 74 74 65 72 6e 28 31  29 0d 14 6e 08 c8 97 20  |attern(1)..n... |
00002800  ee 0d 14 78 05 e1 0d 14  82 05 20 0d 14 8c 0b f4  |...x...... .....|
00002810  85 54 65 6d 70 6f 0d 14  96 12 dd f2 74 65 6d 70  |.Tempo......temp|
00002820  6f 28 73 74 65 70 25 29  0d 14 a0 0f d4 33 2c 2d  |o(step%).....3,-|
00002830  31 30 2c 38 30 2c 33 0d  14 aa 1c e7 58 25 3c 3d  |10,80,3.....X%<=|
00002840  34 38 30 80 74 65 6d 70  6f 25 2d 73 74 65 70 25  |480.tempo%-step%|
00002850  3c 31 e1 0d 14 b4 26 e7  58 25 3c 3d 34 38 30 80  |<1....&.X%<=480.|
00002860  74 65 6d 70 6f 25 3e 73  74 65 70 25 74 65 6d 70  |tempo%>step%temp|
00002870  6f 25 2d 3d 73 74 65 70  25 0d 14 be 2a e7 58 25  |o%-=step%...*.X%|
00002880  3e 3d 35 34 34 80 74 65  6d 70 6f 25 2b 73 74 65  |>=544.tempo%+ste|
00002890  70 25 3c 3d 39 36 74 65  6d 70 6f 25 2b 3d 73 74  |p%<=96tempo%+=st|
000028a0  65 70 25 0d 14 c8 0b fb  31 32 38 3a fb 33 0d 14  |ep%.....128:.3..|
000028b0  d2 2e 74 65 6d 70 6f 24  3d c3 74 65 6d 70 6f 25  |..tempo$=.tempo%|
000028c0  3a e7 74 65 6d 70 6f 25  3c 31 30 74 65 6d 70 6f  |:.tempo%<10tempo|
000028d0  24 3d 22 30 22 2b 74 65  6d 70 6f 24 0d 14 dc 12  |$="0"+tempo$....|
000028e0  f1 8a 31 35 2c 32 29 3b  74 65 6d 70 6f 24 0d 14  |..15,2);tempo$..|
000028f0  e6 05 e1 0d 14 f0 05 20  0d 14 fa 0a f4 82 77 69  |....... ......wi|
00002900  70 65 0d 15 04 0a dd f2  77 69 70 65 0d 15 0e 10  |pe......wipe....|
00002910  d4 35 2c 2d 31 34 2c 31  35 30 2c 32 0d 15 13 0a  |.5,-14,150,2....|
00002920  f2 62 6c 61 6e 6b 0d 15  18 09 f2 67 72 69 64 0d  |.blank.....grid.|
00002930  15 22 0f 50 25 3d 70 61  74 74 65 72 6e 25 0d 15  |.".P%=pattern%..|
00002940  2c 0d e3 49 25 3d 31 b8  32 35 36 0d 15 36 1f 3f  |,..I%=1.256..6.?|
00002950  28 6d 65 6d 25 2b 28 28  50 25 2d 31 29 2a 32 35  |(mem%+((P%-1)*25|
00002960  36 29 2b 49 25 2d 31 29  3d 30 0d 15 40 05 ed 0d  |6)+I%-1)=0..@...|
00002970  15 4a 05 e1 0d 15 54 17  f4 83 53 54 4f 52 45 20  |.J....T...STORE |
00002980  42 41 52 20 4f 46 20 53  4f 4e 47 0d 15 5e 0b dd  |BAR OF SONG..^..|
00002990  f2 73 74 6f 72 65 0d 15  68 0f f4 83 73 74 6f 72  |.store..h...stor|
000029a0  65 20 62 61 72 0d 15 72  0e e7 58 25 3e 3d 34 34  |e bar..r..X%>=44|
000029b0  38 20 8c 0d 15 7c 11 20  d4 33 2c 2d 31 35 2c 32  |8 ...|. .3,-15,2|
000029c0  33 30 2c 32 0d 15 86 26  20 3f 28 73 74 6f 72 65  |30,2...& ?(store|
000029d0  6d 65 6d 25 2b 77 68 69  63 68 62 61 72 25 2d 31  |mem%+whichbar%-1|
000029e0  29 3d 70 61 74 74 65 72  6e 25 0d 15 90 2d 20 70  |)=pattern%...- p|
000029f0  61 74 24 3d c3 70 61 74  74 65 72 6e 25 3a e7 70  |at$=.pattern%:.p|
00002a00  61 74 74 65 72 6e 25 3c  31 30 70 61 74 24 3d 22  |attern%<10pat$="|
00002a10  30 22 2b 70 61 74 24 0d  15 9a 1d 20 fb 33 3a fb  |0"+pat$.... .3:.|
00002a20  31 32 38 3a f1 8a 31 31  2c 32 35 29 22 20 22 3b  |128:..11,25)" ";|
00002a30  70 61 74 24 0d 15 a4 20  f2 67 72 69 64 3a f2 64  |pat$... .grid:.d|
00002a40  69 73 70 6c 61 79 64 6f  74 73 28 70 61 74 74 65  |isplaydots(patte|
00002a50  72 6e 25 29 0d 15 ae 05  cd 0d 15 b8 05 20 0d 15  |rn%)......... ..|
00002a60  c2 0e f4 82 77 69 70 65  20 62 61 72 0d 15 cc 0e  |....wipe bar....|
00002a70  e7 58 25 3c 3d 33 35 32  20 8c 0d 15 d6 11 20 d4  |.X%<=352 ..... .|
00002a80  33 2c 2d 31 35 2c 31 38  30 2c 32 0d 15 e0 1f 20  |3,-15,180,2.... |
00002a90  3f 28 73 74 6f 72 65 6d  65 6d 25 2b 77 68 69 63  |?(storemem%+whic|
00002aa0  68 62 61 72 25 2d 31 29  3d 30 0d 15 ea 0e 20 70  |hbar%-1)=0.... p|
00002ab0  61 74 24 3d 22 30 30 22  0d 15 f4 1d 20 fb 33 3a  |at$="00".... .3:|
00002ac0  fb 31 32 38 3a f1 8a 31  31 2c 32 35 29 22 20 22  |.128:..11,25)" "|
00002ad0  3b 70 61 74 24 0d 15 fe  05 20 0d 16 08 09 f2 67  |;pat$.... .....g|
00002ae0  72 69 64 0d 16 12 05 cd  0d 16 1c 05 20 0d 16 26  |rid......... ..&|
00002af0  05 e1 0d 16 30 05 20 0d  16 3a 14 f4 82 73 74 65  |....0. ..:...ste|
00002b00  70 20 74 68 72 75 20 42  41 52 53 0d 16 44 15 dd  |p thru BARS..D..|
00002b10  f2 73 74 65 70 62 61 72  73 28 73 74 65 70 25 29  |.stepbars(step%)|
00002b20  0d 16 4e 0e e7 58 25 3e  3d 34 34 38 20 8c 0d 16  |..N..X%>=448 ...|
00002b30  58 11 20 d4 32 2c 2d 31  32 2c 32 34 30 2c 32 0d  |X. .2,-12,240,2.|
00002b40  16 62 33 20 e7 77 68 69  63 68 62 61 72 25 2b 73  |.b3 .whichbar%+s|
00002b50  74 65 70 25 3c 3d 73 74  6f 72 65 6c 65 6e 67 74  |tep%<=storelengt|
00002b60  68 25 77 68 69 63 68 62  61 72 25 2b 3d 73 74 65  |h%whichbar%+=ste|
00002b70  70 25 0d 16 6c 21 20 fb  31 32 38 3a fb 34 3a 77  |p%..l! .128:.4:w|
00002b80  68 69 63 68 62 61 72 24  3d c3 77 68 69 63 68 62  |hichbar$=.whichb|
00002b90  61 72 25 0d 16 76 39 20  e7 a9 77 68 69 63 68 62  |ar%..v9 ..whichb|
00002ba0  61 72 24 3c 33 3a f5 77  68 69 63 68 62 61 72 24  |ar$<3:.whichbar$|
00002bb0  3d 22 30 22 2b 77 68 69  63 68 62 61 72 24 3a fd  |="0"+whichbar$:.|
00002bc0  a9 77 68 69 63 68 62 61  72 24 3d 33 0d 16 80 16  |.whichbar$=3....|
00002bd0  20 f1 8a 31 31 2c 32 34  29 77 68 69 63 68 62 61  | ..11,24)whichba|
00002be0  72 24 0d 16 8a 28 20 73  74 6f 72 65 64 70 61 74  |r$...( storedpat|
00002bf0  25 3d 3f 28 73 74 6f 72  65 6d 65 6d 25 2b 77 68  |%=?(storemem%+wh|
00002c00  69 63 68 62 61 72 25 2d  31 29 0d 16 94 31 20 70  |ichbar%-1)...1 p|
00002c10  61 74 24 3d c3 73 74 6f  72 65 64 70 61 74 25 3a  |at$=.storedpat%:|
00002c20  e7 73 74 6f 72 65 64 70  61 74 25 3c 31 30 70 61  |.storedpat%<10pa|
00002c30  74 24 3d 22 30 22 2b 70  61 74 24 0d 16 9e 1d 20  |t$="0"+pat$.... |
00002c40  fb 33 3a fb 31 32 38 3a  f1 8a 31 31 2c 32 35 29  |.3:.128:..11,25)|
00002c50  22 20 22 3b 70 61 74 24  0d 16 a8 05 20 0d 16 b2  |" ";pat$.... ...|
00002c60  05 cd 0d 16 bc 0e e7 58  25 3c 3d 33 35 32 20 8c  |.......X%<=352 .|
00002c70  0d 16 c6 34 20 e7 77 68  69 63 68 62 61 72 25 2d  |...4 .whichbar%-|
00002c80  73 74 65 70 25 3e 30 77  68 69 63 68 62 61 72 25  |step%>0whichbar%|
00002c90  2d 3d 73 74 65 70 25 3a  d4 32 2c 2d 31 32 2c 32  |-=step%:.2,-12,2|
00002ca0  30 30 2c 32 0d 16 d0 21  20 fb 31 32 38 3a fb 34  |00,2...! .128:.4|
00002cb0  3a 77 68 69 63 68 62 61  72 24 3d c3 77 68 69 63  |:whichbar$=.whic|
00002cc0  68 62 61 72 25 0d 16 da  39 20 e7 a9 77 68 69 63  |hbar%...9 ..whic|
00002cd0  68 62 61 72 24 3c 33 3a  f5 77 68 69 63 68 62 61  |hbar$<3:.whichba|
00002ce0  72 24 3d 22 30 22 2b 77  68 69 63 68 62 61 72 24  |r$="0"+whichbar$|
00002cf0  3a fd a9 77 68 69 63 68  62 61 72 24 3d 33 0d 16  |:..whichbar$=3..|
00002d00  e4 16 20 f1 8a 31 31 2c  32 34 29 77 68 69 63 68  |.. ..11,24)which|
00002d10  62 61 72 24 0d 16 ee 28  20 73 74 6f 72 65 64 70  |bar$...( storedp|
00002d20  61 74 25 3d 3f 28 73 74  6f 72 65 6d 65 6d 25 2b  |at%=?(storemem%+|
00002d30  77 68 69 63 68 62 61 72  25 2d 31 29 0d 16 f8 31  |whichbar%-1)...1|
00002d40  20 70 61 74 24 3d c3 73  74 6f 72 65 64 70 61 74  | pat$=.storedpat|
00002d50  25 3a e7 73 74 6f 72 65  64 70 61 74 25 3c 31 30  |%:.storedpat%<10|
00002d60  70 61 74 24 3d 22 30 22  2b 70 61 74 24 0d 17 02  |pat$="0"+pat$...|
00002d70  1d 20 fb 33 3a fb 31 32  38 3a f1 8a 31 31 2c 32  |. .3:.128:..11,2|
00002d80  35 29 22 20 22 3b 70 61  74 24 0d 17 0c 05 cd 0d  |5)" ";pat$......|
00002d90  17 11 0f 73 68 6f 77 57  48 41 54 25 3d 31 0d 17  |...showWHAT%=1..|
00002da0  14 0a f2 62 6c 61 6e 6b  0d 17 16 09 f2 67 72 69  |...blank.....gri|
00002db0  64 0d 17 20 12 e7 73 74  6f 72 65 64 70 61 74 25  |d.. ..storedpat%|
00002dc0  3d 30 e1 0d 17 2a 1c f2  64 69 73 70 6c 61 79 64  |=0...*..displayd|
00002dd0  6f 74 73 28 73 74 6f 72  65 64 70 61 74 25 29 0d  |ots(storedpat%).|
00002de0  17 2c 17 70 61 74 74 65  72 6e 25 3d 73 74 6f 72  |.,.pattern%=stor|
00002df0  65 64 70 61 74 25 0d 17  2e 2c 70 61 74 24 3d c3  |edpat%...,pat$=.|
00002e00  70 61 74 74 65 72 6e 25  3a e7 70 61 74 74 65 72  |pattern%:.patter|
00002e10  6e 25 3c 31 30 70 61 74  24 3d 22 30 22 2b 70 61  |n%<10pat$="0"+pa|
00002e20  74 24 0d 17 2f 26 fb 33  3a fb 31 32 38 3a f1 8a  |t$../&.3:.128:..|
00002e30  38 2c 32 29 3b 70 61 74  24 8a 31 31 2c 32 33 29  |8,2);pat$.11,23)|
00002e40  22 20 22 3b 70 61 74 24  0d 17 34 05 e1 0d 17 3e  |" ";pat$..4....>|
00002e50  05 20 0d 17 48 0f f4 84  50 4c 41 59 20 53 4f 4e  |. ..H...PLAY SON|
00002e60  47 0d 17 52 0e dd f2 70  6c 61 79 73 6f 6e 67 0d  |G..R...playsong.|
00002e70  17 5c 16 c8 97 20 c8 93  20 34 34 38 2c 36 34 2c  |.\... .. 448,64,|
00002e80  36 34 2c 36 34 0d 17 66  25 fb 31 32 38 3a fb 34  |64,64..f%.128:.4|
00002e90  3a f1 8a 31 31 2c 32 34  29 22 20 20 20 22 8a 31  |:..11,24)"   ".1|
00002ea0  31 2c 32 35 29 22 20 20  20 22 0d 17 70 10 e7 63  |1,25)"   "..p..c|
00002eb0  6f 6e 74 25 3d 30 54 25  3d 30 0d 17 7a 23 f4 49  |ont%=0T%=0..z#.I|
00002ec0  46 63 6f 6e 74 25 3d 31  41 4e 44 54 25 3e 31 54  |Fcont%=1ANDT%>1T|
00002ed0  25 3d 77 68 69 63 68 62  61 72 25 2d 31 0d 17 7b  |%=whichbar%-1..{|
00002ee0  1a e7 63 6f 6e 74 25 3d  31 54 25 3d 77 68 69 63  |..cont%=1T%=whic|
00002ef0  68 62 61 72 25 2d 31 0d  17 7c 0a e7 54 25 3c 30  |hbar%-1..|..T%<0|
00002f00  e1 0d 17 84 22 c8 95 20  3f 28 73 74 6f 72 65 6d  |....".. ?(storem|
00002f10  65 6d 25 2b 54 25 29 3e  30 20 80 20 73 74 6f 70  |em%+T%)>0 . stop|
00002f20  25 3d 30 0d 17 8e 36 e7  73 68 6f 77 25 3d 31 f2  |%=0...6.show%=1.|
00002f30  62 6c 61 6e 6b 3a f2 67  72 69 64 3a f2 64 69 73  |blank:.grid:.dis|
00002f40  70 6c 61 79 64 6f 74 73  28 3f 28 73 74 6f 72 65  |playdots(?(store|
00002f50  6d 65 6d 25 2b 54 25 29  29 0d 17 98 23 fb 34 3a  |mem%+T%))...#.4:|
00002f60  54 24 3d c3 28 54 25 2b  31 29 3a f1 8a 31 34 2d  |T$=.(T%+1):..14-|
00002f70  a9 54 24 2c 32 34 29 3b  54 25 2b 31 0d 17 a2 39  |.T$,24);T%+1...9|
00002f80  fb 33 3a 74 24 3d c3 28  3f 28 73 74 6f 72 65 6d  |.3:t$=.(?(storem|
00002f90  65 6d 25 2b 54 25 29 29  3a f1 8a 31 34 2d a9 74  |em%+T%)):..14-.t|
00002fa0  24 2c 32 35 29 3b 3f 28  73 74 6f 72 65 6d 65 6d  |$,25);?(storemem|
00002fb0  25 2b 54 25 29 0d 17 a4  0e f5 fd 91 3e 74 65 6d  |%+T%).......>tem|
00002fc0  70 6f 25 0d 17 ac 1c f2  70 6c 61 79 69 74 28 3f  |po%.....playit(?|
00002fd0  28 73 74 6f 72 65 6d 65  6d 25 2b 54 25 29 29 0d  |(storemem%+T%)).|
00002fe0  17 b6 09 54 25 2b 3d 31  0d 17 c0 05 ce 0d 17 ca  |...T%+=1........|
00002ff0  10 77 68 69 63 68 62 61  72 25 3d 54 25 0d 17 d4  |.whichbar%=T%...|
00003000  0b 73 74 6f 70 25 3d 30  0d 17 de 16 c8 97 20 c8  |.stop%=0...... .|
00003010  93 38 2c 33 32 2c 31 32  36 34 2c 39 36 30 0d 17  |.8,32,1264,960..|
00003020  e8 05 e1 0d 17 f2 11 f4  82 53 41 56 45 20 41 20  |.........SAVE A |
00003030  53 4f 4e 47 0d 17 fc 0e  dd f2 73 61 76 65 73 6f  |SONG......saveso|
00003040  6e 67 0d 18 06 08 c8 97  20 87 0d 18 10 0b fb 33  |ng...... ......3|
00003050  3a fb 31 32 38 0d 18 1a  10 d4 38 2c 2d 31 35 2c  |:.128.....8,-15,|
00003060  31 35 30 2c 33 0d 18 24  13 f1 8a 31 39 2c 32 39  |150,3..$...19,29|
00003070  29 22 4e 61 6d 65 3d 22  0d 18 2e 11 f2 69 6e 70  |)"Name=".....inp|
00003080  75 74 28 31 39 2c 32 39  29 0d 18 38 0d 4e 24 3d  |ut(19,29)..8.N$=|
00003090  69 6e 70 75 74 24 0d 18  42 27 61 64 64 24 3d 22  |input$..B'add$="|
000030a0  3c 44 52 55 4d 4b 49 54  24 64 69 72 3e 2e 70 61  |<DRUMKIT$dir>.pa|
000030b0  74 73 4e 73 6f 6e 67 73  2e 22 2b 4e 24 0d 18 4c  |tsNsongs."+N$..L|
000030c0  1c f4 81 73 61 76 65 20  70 61 74 74 65 72 6e 73  |...save patterns|
000030d0  20 77 69 74 68 20 61 83  50 0d 18 56 2e c8 99 22  | with a.P..V..."|
000030e0  4f 53 5f 46 69 6c 65 22  2c 30 2c 61 64 64 24 2b  |OS_File",0,add$+|
000030f0  22 50 22 2c 6d 65 6d 25  2c 6d 65 6d 25 2c 6d 65  |"P",mem%,mem%,me|
00003100  6d 25 2c 65 6e 64 25 0d  18 60 0f f4 85 73 61 76  |m%,end%..`...sav|
00003110  65 20 73 6f 6e 67 0d 18  6a 3e c8 99 22 4f 53 5f  |e song..j>.."OS_|
00003120  46 69 6c 65 22 2c 30 2c  61 64 64 24 2c 73 74 6f  |File",0,add$,sto|
00003130  72 65 6d 65 6d 25 2c 73  74 6f 72 65 6d 65 6d 25  |remem%,storemem%|
00003140  2c 73 74 6f 72 65 6d 65  6d 25 2c 73 74 6f 72 65  |,storemem%,store|
00003150  65 6e 64 25 0d 18 74 42  fb 30 3a fb 31 32 39 3a  |end%..tB.0:.129:|
00003160  f1 8a 31 39 2c 32 39 29  22 53 41 56 45 22 89 39  |..19,29)"SAVE".9|
00003170  3a f4 43 4f 4c 4f 55 52  31 3a 43 4f 4c 4f 55 52  |:.COLOUR1:COLOUR|
00003180  31 33 35 3a 50 52 49 4e  54 54 41 42 28 32 33 2c  |135:PRINTTAB(23,|
00003190  32 39 29 22 2a 22 0d 18  75 2f c8 99 20 22 4f 53  |29)"*"..u/.. "OS|
000031a0  5f 53 70 72 69 74 65 4f  70 22 2c 32 35 36 2b 33  |_SpriteOp",256+3|
000031b0  34 2c 53 25 2c 22 50 4c  41 59 31 22 2c 37 33 36  |4,S%,"PLAY1",736|
000031c0  2c 36 34 2c 30 0d 18 7e  08 c8 97 20 ee 0d 18 88  |,64,0..~... ....|
000031d0  05 e1 0d 18 92 05 20 0d  18 9c 11 f4 86 4c 4f 41  |...... ......LOA|
000031e0  44 20 41 20 53 4f 4e 47  0d 18 a6 0e dd f2 6c 6f  |D A SONG......lo|
000031f0  61 64 73 6f 6e 67 0d 18  b0 08 c8 97 20 87 0d 18  |adsong...... ...|
00003200  ba 25 fb 31 32 38 3a fb  34 3a f1 8a 31 31 2c 32  |.%.128:.4:..11,2|
00003210  34 29 22 20 20 20 22 8a  31 31 2c 32 35 29 22 20  |4)"   ".11,25)" |
00003220  20 20 22 0d 18 c4 0b fb  33 3a fb 31 32 38 0d 18  |  ".....3:.128..|
00003230  ce 10 d4 38 2c 2d 31 35  2c 32 32 30 2c 33 0d 18  |...8,-15,220,3..|
00003240  d8 13 f1 8a 31 39 2c 33  30 29 22 4e 61 6d 65 3d  |....19,30)"Name=|
00003250  22 0d 18 e2 11 f2 69 6e  70 75 74 28 31 39 2c 33  |".....input(19,3|
00003260  30 29 0d 18 ec 0d 4e 24  3d 69 6e 70 75 74 24 0d  |0)....N$=input$.|
00003270  18 f6 27 61 64 64 24 3d  22 3c 44 52 55 4d 4b 49  |..'add$="<DRUMKI|
00003280  54 24 64 69 72 3e 2e 70  61 74 73 4e 73 6f 6e 67  |T$dir>.patsNsong|
00003290  73 2e 22 2b 4e 24 0d 19  00 0f f4 81 6c 6f 61 64  |s."+N$......load|
000032a0  20 73 6f 6e 67 0d 19 0a  22 c8 99 22 4f 53 5f 46  | song...".."OS_F|
000032b0  69 6c 65 22 2c 26 46 46  2c 61 64 64 24 2c 73 74  |ile",&FF,add$,st|
000032c0  6f 72 65 6d 65 6d 25 0d  19 14 13 f4 85 6c 6f 61  |oremem%......loa|
000032d0  64 20 70 61 74 74 65 72  6e 73 0d 19 1e 21 c8 99  |d patterns...!..|
000032e0  22 4f 53 5f 46 69 6c 65  22 2c 26 46 46 2c 61 64  |"OS_File",&FF,ad|
000032f0  64 24 2b 22 50 22 2c 6d  65 6d 25 0d 19 28 42 fb  |d$+"P",mem%..(B.|
00003300  30 3a fb 31 32 39 3a f1  8a 32 30 2c 33 30 29 22  |0:.129:..20,30)"|
00003310  4c 4f 41 44 22 89 38 3a  f4 43 4f 4c 4f 55 52 34  |LOAD".8:.COLOUR4|
00003320  3a 43 4f 4c 4f 55 52 31  33 34 3a 50 52 49 4e 54  |:COLOUR134:PRINT|
00003330  54 41 42 28 31 39 2c 33  30 29 22 2a 22 0d 19 29  |TAB(19,30)"*"..)|
00003340  2f c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |/.. "OS_SpriteOp|
00003350  22 2c 32 35 36 2b 33 34  2c 53 25 2c 22 50 4c 41  |",256+34,S%,"PLA|
00003360  59 31 22 2c 36 30 38 2c  33 32 2c 30 0d 19 32 1d  |Y1",608,32,0..2.|
00003370  fb 33 3a fb 31 33 32 3a  f1 8a 32 34 2c 33 29 89  |.3:.132:..24,3).|
00003380  38 8a 32 34 2c 33 29 4e  24 0d 19 3c 17 fb 34 3a  |8.24,3)N$..<..4:|
00003390  fb 31 32 38 3a f1 8a 31  33 2c 32 34 29 22 31 22  |.128:..13,24)"1"|
000033a0  0d 19 46 33 fb 33 3a 74  24 3d c3 28 3f 28 73 74  |..F3.3:t$=.(?(st|
000033b0  6f 72 65 6d 65 6d 25 29  29 3a f1 8a 31 34 2d a9  |oremem%)):..14-.|
000033c0  74 24 2c 32 35 29 3b 3f  28 73 74 6f 72 65 6d 65  |t$,25);?(storeme|
000033d0  6d 25 29 0d 19 50 10 f4  77 68 69 63 68 62 61 72  |m%)..P..whichbar|
000033e0  25 3d 31 0d 19 55 0a f2  62 6c 61 6e 6b 0d 19 5a  |%=1..U..blank..Z|
000033f0  09 f2 67 72 69 64 0d 19  64 1e f2 64 69 73 70 6c  |..grid..d..displ|
00003400  61 79 64 6f 74 73 28 3f  28 73 74 6f 72 65 6d 65  |aydots(?(storeme|
00003410  6d 25 29 29 0d 19 6e 08  c8 97 20 ee 0d 19 73 0d  |m%))..n... ...s.|
00003420  6c 6f 61 64 65 64 25 3d  31 0d 19 78 05 e1 0d 19  |loaded%=1..x....|
00003430  82 12 f4 83 43 4f 50 59  20 50 41 54 54 45 52 4e  |....COPY PATTERN|
00003440  0d 19 8c 0d dd f2 63 6f  70 79 70 61 74 0d 19 96  |......copypat...|
00003450  0e c8 8e 20 63 6f 70 79  25 20 ca 0d 19 a0 08 c9  |... copy% ......|
00003460  20 30 3a 0d 19 aa 10 d4  33 2c 2d 31 35 2c 31 32  | 0:.....3,-15,12|
00003470  30 2c 32 0d 19 b4 08 fb  31 33 37 0d 19 be 0e f1  |0,2.....137.....|
00003480  8a 31 32 2c 33 29 22 20  22 0d 19 c8 06 fb 35 0d  |.12,3)" ".....5.|
00003490  19 d2 17 f1 8a 37 2c 32  29 3b 22 3c 22 8a 31 30  |.....7,2);"<".10|
000034a0  2c 32 29 22 3e 22 0d 19  dc 15 70 61 74 63 6f 70  |,2)">"....patcop|
000034b0  79 25 3d 70 61 74 74 65  72 6e 25 0d 19 e6 0b 63  |y%=pattern%....c|
000034c0  6f 70 79 25 3d 31 0d 19  f0 05 20 0d 19 fa 08 c9  |opy%=1.... .....|
000034d0  20 31 3a 0d 1a 04 0f d4  33 2c 2d 31 35 2c 38 30  | 1:.....3,-15,80|
000034e0  2c 32 0d 1a 0e 16 f4 43  4f 4c 4f 55 52 31 3a 43  |,2.....COLOUR1:C|
000034f0  4f 4c 4f 55 52 31 33 35  0d 1a 18 22 f4 50 52 49  |OLOUR135...".PRI|
00003500  4e 54 54 41 42 28 37 2c  32 29 3b 22 3c 22 54 41  |NTTAB(7,2);"<"TA|
00003510  42 28 31 30 2c 32 29 22  3e 22 0d 1a 19 5e c8 99  |B(10,2)">"...^..|
00003520  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  | "OS_SpriteOp",2|
00003530  35 36 2b 33 34 2c 53 25  2c 22 4c 45 46 54 31 22  |56+34,S%,"LEFT1"|
00003540  2c 32 32 34 2c 39 32 38  2c 30 3a c8 99 20 22 4f  |,224,928,0:.. "O|
00003550  53 5f 53 70 72 69 74 65  4f 70 22 2c 32 35 36 2b  |S_SpriteOp",256+|
00003560  33 34 2c 53 25 2c 22 52  49 47 48 54 31 22 2c 33  |34,S%,"RIGHT1",3|
00003570  32 30 2c 39 32 38 2c 30  0d 1a 22 16 f4 43 4f 4c  |20,928,0.."..COL|
00003580  4f 55 52 37 3a 43 4f 4c  4f 55 52 31 32 39 0d 1a  |OUR7:COLOUR129..|
00003590  2c 16 f4 50 52 49 4e 54  54 41 42 28 31 32 2c 33  |,..PRINTTAB(12,3|
000035a0  29 22 2a 22 0d 1a 2d 30  c8 99 20 22 4f 53 5f 53  |)"*"..-0.. "OS_S|
000035b0  70 72 69 74 65 4f 70 22  2c 32 35 36 2b 33 34 2c  |priteOp",256+34,|
000035c0  53 25 2c 22 50 4c 41 59  31 22 2c 33 38 34 2c 38  |S%,"PLAY1",384,8|
000035d0  39 36 2c 30 0d 1a 36 21  66 72 6f 6d 25 3d 6d 65  |96,0..6!from%=me|
000035e0  6d 25 2b 28 28 70 61 74  63 6f 70 79 25 2d 31 29  |m%+((patcopy%-1)|
000035f0  2a 32 35 36 29 0d 1a 40  21 20 20 74 6f 25 3d 6d  |*256)..@!  to%=m|
00003600  65 6d 25 2b 28 28 70 61  74 74 65 72 6e 25 2d 31  |em%+((pattern%-1|
00003610  29 2a 32 35 36 29 0d 1a  4a 0d e3 49 25 3d 30 b8  |)*256)..J..I%=0.|
00003620  32 35 35 0d 1a 54 13 49  25 3f 74 6f 25 3d 49 25  |255..T.I%?to%=I%|
00003630  3f 66 72 6f 6d 25 0d 1a  5e 05 ed 0d 1a 68 09 f2  |?from%..^....h..|
00003640  67 72 69 64 0d 1a 72 1a  f2 64 69 73 70 6c 61 79  |grid..r..display|
00003650  64 6f 74 73 28 70 61 74  63 6f 70 79 25 29 0d 1a  |dots(patcopy%)..|
00003660  7c 0b 63 6f 70 79 25 3d  30 0d 1a 86 05 cb 0d 1a  ||.copy%=0.......|
00003670  90 05 e1 0d 1a 9a 05 20  0d 1a a4 10 f4 81 2e 2e  |....... ........|
00003680  63 6f 6e 74 69 6e 75 65  0d 1a ae 0e dd f2 63 6f  |continue......co|
00003690  6e 74 69 6e 75 65 0d 1a  b8 0b 63 6f 6e 74 25 3d  |ntinue....cont%=|
000036a0  31 0d 1a bd 0b 73 74 6f  70 25 3d 30 0d 1a c2 0d  |1....stop%=0....|
000036b0  f2 70 6c 61 79 73 6f 6e  67 0d 1a cc 0b 63 6f 6e  |.playsong....con|
000036c0  74 25 3d 30 0d 1a d6 05  e1 0d 1a e0 05 20 0d 1a  |t%=0......... ..|
000036d0  ea 0f f4 85 57 49 50 45  20 53 4f 4e 47 0d 1a f4  |....WIPE SONG...|
000036e0  0e dd f2 77 69 70 65 73  6f 6e 67 0d 1a fe 10 d4  |...wipesong.....|
000036f0  35 2c 2d 31 35 2c 31 32  30 2c 34 0d 1b 08 20 e3  |5,-15,120,4... .|
00003700  49 25 3d 73 74 6f 72 65  6d 65 6d 25 20 b8 20 73  |I%=storemem% . s|
00003710  74 6f 72 65 65 6e 64 25  20 88 34 0d 1b 12 09 21  |toreend% .4....!|
00003720  49 25 3d 30 0d 1b 1c 05  ed 0d 1b 21 0a f2 62 6c  |I%=0.......!..bl|
00003730  61 6e 6b 0d 1b 26 24 f2  67 72 69 64 3a f4 50 52  |ank..&$.grid:.PR|
00003740  4f 43 64 69 73 70 6c 61  79 64 6f 74 73 28 70 61  |OCdisplaydots(pa|
00003750  74 74 65 72 6e 25 29 0d  1b 30 0f 77 68 69 63 68  |ttern%)..0.which|
00003760  62 61 72 25 3d 31 0d 1b  3a 0f f4 70 61 74 74 65  |bar%=1..:..patte|
00003770  72 6e 25 3d 31 0d 1b 44  19 fb 33 3a fb 31 32 38  |rn%=1..D..3:.128|
00003780  3a f1 8a 31 31 2c 32 35  29 22 20 30 30 22 0d 1b  |:..11,25)" 00"..|
00003790  4e 06 fb 34 0d 1b 58 11  f1 8a 31 31 2c 32 34 29  |N..4..X...11,24)|
000037a0  22 30 30 31 22 0d 1b 62  05 e1 0d 1b 6c 05 20 0d  |"001"..b....l. .|
000037b0  1b 76 0c f4 83 49 4e 53  45 52 54 0d 1b 80 0c dd  |.v...INSERT.....|
000037c0  f2 69 6e 73 65 72 74 0d  1b 8a 10 d4 35 2c 2d 31  |.insert.....5,-1|
000037d0  33 2c 32 31 30 2c 31 0d  1b 94 26 e3 49 25 3d 73  |3,210,1...&.I%=s|
000037e0  74 6f 72 65 6c 65 6e 67  74 68 25 20 b8 20 77 68  |torelength% . wh|
000037f0  69 63 68 62 61 72 25 2b  31 20 88 2d 31 0d 1b 9e  |ichbar%+1 .-1...|
00003800  21 49 25 3f 73 74 6f 72  65 6d 65 6d 25 3d 49 25  |!I%?storemem%=I%|
00003810  3f 28 73 74 6f 72 65 6d  65 6d 25 2d 31 29 0d 1b  |?(storemem%-1)..|
00003820  a8 05 ed 0d 1b b2 23 3f  28 73 74 6f 72 65 6d 65  |......#?(storeme|
00003830  6d 25 2b 77 68 69 63 68  62 61 72 25 29 3d 70 61  |m%+whichbar%)=pa|
00003840  74 74 65 72 6e 25 0d 1b  bc 20 f2 67 72 69 64 3a  |ttern%... .grid:|
00003850  f2 64 69 73 70 6c 61 79  64 6f 74 73 28 70 61 74  |.displaydots(pat|
00003860  74 65 72 6e 25 29 0d 1b  c6 05 20 0d 1b d0 05 e1  |tern%).... .....|
00003870  0d 1b da 05 20 0d 1b e4  0c f4 81 44 45 4c 45 54  |.... ......DELET|
00003880  45 0d 1b ee 0c dd f2 64  65 6c 65 74 65 0d 1b f8  |E......delete...|
00003890  10 d4 35 2c 2d 31 33 2c  31 38 30 2c 31 0d 1c 02  |..5,-13,180,1...|
000038a0  24 e3 49 25 3d 77 68 69  63 68 62 61 72 25 2d 31  |$.I%=whichbar%-1|
000038b0  20 b8 20 73 74 6f 72 65  6c 65 6e 67 74 68 25 2d  | . storelength%-|
000038c0  31 0d 1c 0c 21 49 25 3f  73 74 6f 72 65 6d 65 6d  |1...!I%?storemem|
000038d0  25 3d 49 25 3f 28 73 74  6f 72 65 6d 65 6d 25 2b  |%=I%?(storemem%+|
000038e0  31 29 0d 1c 16 05 ed 0d  1c 20 24 f4 3f 28 73 74  |1)....... $.?(st|
000038f0  6f 72 65 6d 65 6d 25 2b  77 68 69 63 68 62 61 72  |oremem%+whichbar|
00003900  25 29 3d 70 61 74 74 65  72 6e 25 0d 1c 2a 24 f2  |%)=pattern%..*$.|
00003910  67 72 69 64 3a f4 50 52  4f 43 64 69 73 70 6c 61  |grid:.PROCdispla|
00003920  79 64 6f 74 73 28 70 61  74 74 65 72 6e 25 29 0d  |ydots(pattern%).|
00003930  1c 34 05 e1 0d 1c 3e 05  20 0d 1c 48 1f f4 86 43  |.4....>. ..H...C|
00003940  6f 70 79 20 62 6c 6f 63  6b 20 6f 66 20 62 61 72  |opy block of bar|
00003950  73 2f 64 65 6c 65 74 65  0d 1c 52 18 dd f2 62 6c  |s/delete..R...bl|
00003960  6f 63 6b 28 63 61 73 65  25 2c 73 74 65 70 25 29  |ock(case%,step%)|
00003970  0d 1c 5c 08 fb 31 32 38  0d 1c 66 0e c8 8e 20 63  |..\..128..f... c|
00003980  61 73 65 25 20 ca 0d 1c  70 0d f4 83 63 6f 70 79  |ase% ...p...copy|
00003990  20 74 6f 0d 1c 7a 08 c9  20 31 3a 0d 1c 84 11 20  | to..z.. 1:.... |
000039a0  d4 34 2c 2d 31 30 2c 32  32 32 2c 32 0d 1c 8e 07  |.4,-10,222,2....|
000039b0  20 fb 34 0d 1c 98 3d 20  e7 63 6f 70 79 74 6f 25  | .4...= .copyto%|
000039c0  2d 73 74 65 70 25 3e 30  80 63 6f 70 79 74 6f 25  |-step%>0.copyto%|
000039d0  2b 73 74 65 70 25 3c 73  74 6f 72 65 6c 65 6e 67  |+step%<storeleng|
000039e0  74 68 25 f1 8a 32 34 2c  32 33 29 22 30 30 30 22  |th%..24,23)"000"|
000039f0  0d 1c a2 4f 20 e7 58 25  3c 3d 37 36 38 80 63 6f  |...O .X%<=768.co|
00003a00  70 79 74 6f 25 2d 73 74  65 70 25 3e 3d 31 63 6f  |pyto%-step%>=1co|
00003a10  70 79 74 6f 25 2d 3d 73  74 65 70 25 3a 6c 25 3d  |pyto%-=step%:l%=|
00003a20  a9 c3 28 63 6f 70 79 74  6f 25 29 3a f1 8a 32 37  |..(copyto%):..27|
00003a30  2d 6c 25 2c 32 33 29 3b  63 6f 70 79 74 6f 25 0d  |-l%,23);copyto%.|
00003a40  1c ac 59 20 e7 58 25 3e  3d 38 36 34 80 63 6f 70  |..Y .X%>=864.cop|
00003a50  79 74 6f 25 2b 73 74 65  70 25 3c 73 74 6f 72 65  |yto%+step%<store|
00003a60  6c 65 6e 67 74 68 25 63  6f 70 79 74 6f 25 2b 3d  |length%copyto%+=|
00003a70  73 74 65 70 25 3a 6c 25  3d a9 c3 28 63 6f 70 79  |step%:l%=..(copy|
00003a80  74 6f 25 29 3a f1 8a 32  37 2d 6c 25 2c 32 33 29  |to%):..27-l%,23)|
00003a90  3b 63 6f 70 79 74 6f 25  0d 1c b6 05 20 0d 1c c0  |;copyto%.... ...|
00003aa0  0a f4 82 66 72 6f 6d 0d  1c ca 08 c9 20 32 3a 0d  |...from..... 2:.|
00003ab0  1c d4 11 20 d4 34 2c 2d  31 30 2c 32 30 32 2c 32  |... .4,-10,202,2|
00003ac0  0d 1c de 08 20 20 fb 31  0d 1c e8 5f 20 e7 58 25  |....  .1..._ .X%|
00003ad0  3c 3d 37 36 38 80 66 72  6f 6d 62 61 72 25 2d 73  |<=768.frombar%-s|
00003ae0  74 65 70 25 3e 3d 31 66  72 6f 6d 62 61 72 25 2d  |tep%>=1frombar%-|
00003af0  3d 73 74 65 70 25 3a 6c  25 3d a9 c3 28 66 72 6f  |=step%:l%=..(fro|
00003b00  6d 62 61 72 25 29 3a f1  8a 32 34 2c 32 34 29 22  |mbar%):..24,24)"|
00003b10  30 30 30 22 8a 32 37 2d  6c 25 2c 32 34 29 3b 66  |000".27-l%,24);f|
00003b20  72 6f 6d 62 61 72 25 0d  1c f2 80 20 e7 58 25 3e  |rombar%.... .X%>|
00003b30  3d 38 36 34 80 66 72 6f  6d 62 61 72 25 2b 73 74  |=864.frombar%+st|
00003b40  65 70 25 3c 73 74 6f 72  65 6c 65 6e 67 74 68 25  |ep%<storelength%|
00003b50  80 66 72 6f 6d 62 61 72  25 2b 73 74 65 70 25 3c  |.frombar%+step%<|
00003b60  3d 74 6f 62 61 72 25 66  72 6f 6d 62 61 72 25 2b  |=tobar%frombar%+|
00003b70  3d 73 74 65 70 25 3a 6c  25 3d a9 c3 28 66 72 6f  |=step%:l%=..(fro|
00003b80  6d 62 61 72 25 29 3a f1  8a 32 34 2c 32 34 29 22  |mbar%):..24,24)"|
00003b90  30 30 30 22 8a 32 37 2d  6c 25 2c 32 34 29 3b 66  |000".27-l%,24);f|
00003ba0  72 6f 6d 62 61 72 25 0d  1c fc 05 20 0d 1d 06 08  |rombar%.... ....|
00003bb0  f4 81 74 6f 0d 1d 10 08  c9 20 33 3a 0d 1d 1a 11  |..to..... 3:....|
00003bc0  20 d4 34 2c 2d 31 30 2c  31 39 32 2c 32 0d 1d 24  | .4,-10,192,2..$|
00003bd0  09 20 20 20 fb 33 0d 1d  2e 6e 20 e7 58 25 3c 3d  |.   .3...n .X%<=|
00003be0  37 36 38 80 74 6f 62 61  72 25 2d 73 74 65 70 25  |768.tobar%-step%|
00003bf0  3e 3d 31 80 74 6f 62 61  72 25 2d 73 74 65 70 25  |>=1.tobar%-step%|
00003c00  3e 3d 66 72 6f 6d 62 61  72 25 74 6f 62 61 72 25  |>=frombar%tobar%|
00003c10  2d 3d 73 74 65 70 25 3a  6c 25 3d a9 c3 28 74 6f  |-=step%:l%=..(to|
00003c20  62 61 72 25 29 3a f1 8a  32 34 2c 32 35 29 22 30  |bar%):..24,25)"0|
00003c30  30 30 22 8a 32 37 2d 6c  25 2c 32 35 29 3b 74 6f  |00".27-l%,25);to|
00003c40  62 61 72 25 0d 1d 38 55  20 e7 58 25 3e 3d 38 36  |bar%..8U .X%>=86|
00003c50  34 80 74 6f 62 61 72 25  2b 73 74 65 70 25 3c 73  |4.tobar%+step%<s|
00003c60  74 6f 72 65 6c 65 6e 67  74 68 25 74 6f 62 61 72  |torelength%tobar|
00003c70  25 2b 3d 73 74 65 70 25  3a 6c 25 3d a9 c3 28 74  |%+=step%:l%=..(t|
00003c80  6f 62 61 72 25 29 3a f1  8a 32 37 2d 6c 25 2c 32  |obar%):..27-l%,2|
00003c90  35 29 3b 74 6f 62 61 72  25 0d 1d 42 05 20 0d 1d  |5);tobar%..B. ..|
00003ca0  4c 13 f4 86 63 6f 70 79  20 62 6c 6f 63 6b 20 74  |L...copy block t|
00003cb0  6f 0d 1d 56 08 c9 20 34  3a 0d 1d 60 10 20 d4 35  |o..V.. 4:..`. .5|
00003cc0  2c 2d 31 30 2c 39 32 2c  32 0d 1d 6a 1b e3 49 25  |,-10,92,2..j..I%|
00003cd0  3d 30 20 b8 20 74 6f 62  61 72 25 2d 66 72 6f 6d  |=0 . tobar%-from|
00003ce0  62 61 72 25 0d 1d 74 2b  49 25 3f 74 65 6d 70 73  |bar%..t+I%?temps|
00003cf0  74 6f 72 65 25 3d 49 25  3f 28 73 74 6f 72 65 6d  |tore%=I%?(storem|
00003d00  65 6d 25 2b 66 72 6f 6d  62 61 72 25 2d 31 29 0d  |em%+frombar%-1).|
00003d10  1d 7e 05 ed 0d 1d 88 24  e3 49 25 3d 73 74 6f 72  |.~.....$.I%=stor|
00003d20  65 6c 65 6e 67 74 68 25  20 b8 20 63 6f 70 79 74  |elength% . copyt|
00003d30  6f 25 2b 31 20 88 2d 31  0d 1d 92 33 49 25 3f 73  |o%+1 .-1...3I%?s|
00003d40  74 6f 72 65 6d 65 6d 25  3d 49 25 3f 28 73 74 6f  |toremem%=I%?(sto|
00003d50  72 65 6d 65 6d 25 2d 28  74 6f 62 61 72 25 2d 66  |remem%-(tobar%-f|
00003d60  72 6f 6d 62 61 72 25 29  2d 31 29 0d 1d 9c 05 ed  |rombar%)-1).....|
00003d70  0d 1d a6 1b e3 49 25 3d  30 20 b8 20 74 6f 62 61  |.....I%=0 . toba|
00003d80  72 25 2d 66 72 6f 6d 62  61 72 25 0d 1d b0 2a 49  |r%-frombar%...*I|
00003d90  25 3f 28 63 6f 70 79 74  6f 25 2b 73 74 6f 72 65  |%?(copyto%+store|
00003da0  6d 65 6d 25 29 3d 49 25  3f 28 74 65 6d 70 73 74  |mem%)=I%?(tempst|
00003db0  6f 72 65 25 29 0d 1d ba  05 ed 0d 1d c4 05 20 0d  |ore%)......... .|
00003dc0  1d ce 12 f4 82 64 65 6c  65 74 65 20 62 6c 6f 63  |.....delete bloc|
00003dd0  6b 0d 1d d8 08 c9 20 35  3a 0d 1d e2 11 20 d4 35  |k..... 5:.... .5|
00003de0  2c 2d 31 30 2c 31 32 32  2c 32 0d 1d ec 21 e3 49  |,-10,122,2...!.I|
00003df0  25 3d 66 72 6f 6d 62 61  72 25 20 b8 20 73 74 6f  |%=frombar% . sto|
00003e00  72 65 6c 65 6e 67 74 68  25 2d 31 0d 1d f6 33 49  |relength%-1...3I|
00003e10  25 3f 28 73 74 6f 72 65  6d 65 6d 25 2d 31 29 3d  |%?(storemem%-1)=|
00003e20  49 25 3f 28 73 74 6f 72  65 6d 65 6d 25 2b 74 6f  |I%?(storemem%+to|
00003e30  62 61 72 25 2d 66 72 6f  6d 62 61 72 25 29 0d 1e  |bar%-frombar%)..|
00003e40  00 05 ed 0d 1e 0a 05 20  0d 1e 14 05 cb 0d 1e 1e  |....... ........|
00003e50  05 20 0d 1e 28 05 e1 0d  1e 32 05 20 0d 1e 3c 13  |. ..(....2. ..<.|
00003e60  f4 83 49 4e 50 55 54 20  52 4f 55 54 49 4e 45 0d  |..INPUT ROUTINE.|
00003e70  1e 46 10 dd f2 69 6e 70  75 74 28 58 2c 59 29 0d  |.F...input(X,Y).|
00003e80  1e 50 0b fb 33 3a fb 31  32 38 0d 1e 5a 0d 69 6e  |.P..3:.128..Z.in|
00003e90  70 75 74 24 3d 22 22 0d  1e 64 09 47 24 3d 22 22  |put$=""..d.G$=""|
00003ea0  0d 1e 6e 07 78 3d 31 0d  1e 78 14 c8 95 20 78 3c  |..n.x=1..x... x<|
00003eb0  39 20 80 20 97 47 24 3c  3e 31 33 0d 1e 82 08 47  |9 . .G$<>13....G|
00003ec0  24 3d be 0d 1e 8c 35 e7  97 47 24 3d 31 32 37 80  |$=....5..G$=127.|
00003ed0  78 3e 31 69 6e 70 75 74  24 3d c0 69 6e 70 75 74  |x>1input$=.input|
00003ee0  24 29 3a f1 8a 58 2b 34  2b 78 2c 59 29 47 24 3a  |$):..X+4+x,Y)G$:|
00003ef0  e7 78 3e 31 78 2d 3d 31  0d 1e 96 2d e7 28 97 28  |.x>1x-=1...-.(.(|
00003f00  47 24 29 3c 3e 31 32 37  29 69 6e 70 75 74 24 2b  |G$)<>127)input$+|
00003f10  3d 47 24 3a f1 8a 58 2b  34 2b 78 2c 59 29 47 24  |=G$:..X+4+x,Y)G$|
00003f20  3a 78 2b 3d 31 0d 1e a0  05 ce 0d 1e aa 13 69 6e  |:x+=1.........in|
00003f30  70 75 74 24 3d c0 69 6e  70 75 74 24 29 0d 1e b4  |put$=.input$)...|
00003f40  05 e1 0d 1e be 05 20 0d  1e c8 10 f4 81 74 65 73  |...... ......tes|
00003f50  74 20 53 4f 55 4e 44 0d  1e d2 0f dd f2 74 65 73  |t SOUND......tes|
00003f60  74 73 6f 75 6e 64 0d 1e  dc 17 68 6d 6d 25 3d 31  |tsound....hmm%=1|
00003f70  36 2d 28 59 25 2d 33 35  32 29 81 33 32 0d 1e e6  |6-(Y%-352).32...|
00003f80  0d c8 8e 20 68 6d 6d 25  20 ca 0d 1e f0 0f c9 20  |... hmm% ...... |
00003f90  31 3a f4 85 48 49 48 41  54 0d 1e f2 10 20 c8 a2  |1:..HIHAT.... ..|
00003fa0  20 31 2c 53 54 25 28 31  29 0d 1e fa 13 20 d4 31  | 1,ST%(1).... .1|
00003fb0  2c 56 25 28 31 29 2c 32  30 30 2c 32 0d 1f 04 0e  |,V%(1),200,2....|
00003fc0  c9 20 32 3a f4 85 54 4f  4d 31 0d 1f 06 10 20 c8  |. 2:..TOM1.... .|
00003fd0  a2 20 32 2c 53 54 25 28  32 29 0d 1f 0e 13 20 d4  |. 2,ST%(2).... .|
00003fe0  32 2c 56 25 28 32 29 2c  31 36 30 2c 33 0d 1f 18  |2,V%(2),160,3...|
00003ff0  0e c9 20 33 3a f4 85 54  4f 4d 32 0d 1f 1a 10 20  |.. 3:..TOM2.... |
00004000  c8 a2 20 32 2c 53 54 25  28 33 29 0d 1f 22 13 20  |.. 2,ST%(3)..". |
00004010  d4 32 2c 56 25 28 33 29  2c 31 34 32 2c 33 0d 1f  |.2,V%(3),142,3..|
00004020  2c 0e c9 20 34 3a f4 85  54 4f 4d 33 0d 1f 2e 10  |,.. 4:..TOM3....|
00004030  20 c8 a2 20 32 2c 53 54  25 28 34 29 0d 1f 36 13  | .. 2,ST%(4)..6.|
00004040  20 d4 32 2c 56 25 28 34  29 2c 31 33 35 2c 33 0d  | .2,V%(4),135,3.|
00004050  1f 40 10 c9 20 35 3a f4  85 42 4c 4f 43 4b 31 0d  |.@.. 5:..BLOCK1.|
00004060  1f 42 10 20 c8 a2 20 33  2c 53 54 25 28 35 29 0d  |.B. .. 3,ST%(5).|
00004070  1f 4a 13 20 d4 33 2c 56  25 28 35 29 2c 32 30 30  |.J. .3,V%(5),200|
00004080  2c 35 0d 1f 54 10 c9 20  36 3a f4 85 42 4c 4f 43  |,5..T.. 6:..BLOC|
00004090  4b 32 0d 1f 56 10 20 c8  a2 20 33 2c 53 54 25 28  |K2..V. .. 3,ST%(|
000040a0  36 29 0d 1f 5e 13 20 d4  33 2c 56 25 28 36 29 2c  |6)..^. .3,V%(6),|
000040b0  32 34 34 2c 35 0d 1f 5f  11 c9 20 37 3a f4 85 43  |244,5.._.. 7:..C|
000040c0  59 4d 42 41 4c 31 0d 1f  60 10 20 c8 a2 20 34 2c  |YMBAL1..`. .. 4,|
000040d0  53 54 25 28 37 29 0d 1f  62 14 20 d4 34 2c 56 25  |ST%(7)..b. .4,V%|
000040e0  28 37 29 2c 31 36 30 2c  33 30 0d 1f 68 11 c9 20  |(7),160,30..h.. |
000040f0  38 3a f4 85 43 59 4d 42  41 4c 32 0d 1f 69 10 20  |8:..CYMBAL2..i. |
00004100  c8 a2 20 34 2c 53 54 25  28 38 29 0d 1f 6a 14 20  |.. 4,ST%(8)..j. |
00004110  d4 34 2c 56 25 28 38 29  2c 31 35 30 2c 33 30 0d  |.4,V%(8),150,30.|
00004120  1f 6b 12 c9 20 39 3a f4  85 52 4f 54 4f 54 4f 4d  |.k.. 9:..ROTOTOM|
00004130  31 0d 1f 6c 0f 20 c8 a2  35 2c 53 54 25 28 39 29  |1..l. ..5,ST%(9)|
00004140  0d 1f 6d 13 20 d4 35 2c  56 25 28 39 29 2c 31 30  |..m. .5,V%(9),10|
00004150  30 2c 33 0d 1f 6e 13 c9  20 31 30 3a f4 85 52 4f  |0,3..n.. 10:..RO|
00004160  54 4f 54 4f 4d 32 0d 1f  6f 10 20 c8 a2 35 2c 53  |TOTOM2..o. ..5,S|
00004170  54 25 28 31 30 29 0d 1f  70 13 20 d4 35 2c 56 25  |T%(10)..p. .5,V%|
00004180  28 31 30 29 2c 39 30 2c  33 0d 1f 72 15 c9 20 31  |(10),90,3..r.. 1|
00004190  31 3a f4 85 4f 50 45 4e  20 48 49 48 41 54 0d 1f  |1:..OPEN HIHAT..|
000041a0  73 10 20 c8 a2 31 2c 53  54 25 28 31 31 29 0d 1f  |s. ..1,ST%(11)..|
000041b0  74 14 20 d4 31 2c 56 25  28 31 31 29 2c 32 30 35  |t. .1,V%(11),205|
000041c0  2c 38 0d 1f 7c 05 20 0d  1f 86 05 20 0d 1f 8d 11  |,8..|. .... ....|
000041d0  c9 20 31 34 3a f4 85 53  4e 41 52 45 32 0d 1f 8e  |. 14:..SNARE2...|
000041e0  11 20 c8 a2 20 36 2c 53  54 25 28 31 34 29 0d 1f  |. .. 6,ST%(14)..|
000041f0  8f 14 20 d4 36 2c 56 25  28 31 34 29 2c 31 34 30  |.. .6,V%(14),140|
00004200  2c 33 0d 1f 90 10 c9 20  31 35 3a f4 85 53 4e 41  |,3..... 15:..SNA|
00004210  52 45 0d 1f 92 11 20 c8  a2 20 37 2c 53 54 25 28  |RE.... .. 7,ST%(|
00004220  31 35 29 0d 1f 9a 13 20  d4 37 2c 56 25 28 31 35  |15).... .7,V%(15|
00004230  29 2c 35 30 2c 33 0d 1f  a4 14 c9 20 31 36 3a f4  |),50,3..... 16:.|
00004240  85 42 41 53 53 20 44 52  55 4d 0d 1f a6 11 20 c8  |.BASS DRUM.... .|
00004250  a2 20 38 2c 53 54 25 28  31 36 29 0d 1f ae 13 20  |. 8,ST%(16).... |
00004260  d4 38 2c 56 25 28 31 36  29 2c 35 30 2c 33 0d 1f  |.8,V%(16),50,3..|
00004270  b8 05 cb 0d 1f c2 05 e1  0d 1f cc 05 20 0d 1f d6  |............ ...|
00004280  19 f4 82 53 48 4f 57 20  44 49 53 50 4c 41 59 20  |...SHOW DISPLAY |
00004290  4f 52 20 4e 4f 54 0d 1f  e0 0a dd f2 73 68 6f 77  |OR NOT......show|
000042a0  0d 1f ea 0f d4 33 2c 2d  31 32 2c 39 30 2c 32 0d  |.....3,-12,90,2.|
000042b0  1f f4 11 73 68 6f 77 25  3d 31 2d 73 68 6f 77 25  |...show%=1-show%|
000042c0  0d 1f fe 34 e7 73 68 6f  77 25 3d 31 80 73 68 6f  |...4.show%=1.sho|
000042d0  77 57 48 41 54 25 3d 30  f2 67 72 69 64 3a f2 64  |wWHAT%=0.grid:.d|
000042e0  69 73 70 6c 61 79 64 6f  74 73 28 70 61 74 74 65  |isplaydots(patte|
000042f0  72 6e 25 29 0d 20 00 36  e7 73 68 6f 77 25 3d 31  |rn%). .6.show%=1|
00004300  80 73 68 6f 77 57 48 41  54 25 3d 31 f2 67 72 69  |.showWHAT%=1.gri|
00004310  64 3a f2 64 69 73 70 6c  61 79 64 6f 74 73 28 73  |d:.displaydots(s|
00004320  74 6f 72 65 64 70 61 74  25 29 0d 20 08 12 e7 73  |toredpat%). ...s|
00004330  68 6f 77 25 3d 30 f2 62  6c 61 6e 6b 0d 20 12 05  |how%=0.blank. ..|
00004340  e1 0d 20 1c 05 20 0d 20  26 10 f4 86 62 6c 61 6e  |.. .. . &...blan|
00004350  6b 20 67 72 69 64 0d 20  30 0b dd f2 62 6c 61 6e  |k grid. 0...blan|
00004360  6b 0d 20 31 12 ef 32 38  2c 31 36 2c 32 30 2c 33  |k. 1..28,16,20,3|
00004370  31 2c 35 0d 20 32 10 fb  31 33 32 3a db 3a ef 32  |1,5. 2..132:.:.2|
00004380  36 3a e1 0d 20 33 05 20  0d 20 3a 08 e6 31 33 32  |6:.. 3. . :..132|
00004390  0d 20 44 19 ef 32 34 2c  35 31 32 3b 33 35 32 3b  |. D..24,512;352;|
000043a0  31 30 32 34 3b 38 36 34  3b 0d 20 4e 05 da 0d 20  |1024;864;. N... |
000043b0  58 07 ef 32 36 0d 20 62  05 e1 0d 20 6c 05 20 0d  |X..26. b... l. .|
000043c0  20 76 0b f4 85 45 52 52  4f 52 0d 20 80 0b dd f2  | v...ERROR. ....|
000043d0  65 72 72 6f 72 0d 20 82  0b fb 33 3a fb 31 32 39  |error. ...3:.129|
000043e0  0d 20 8a 0d e7 20 9f 3d  32 31 34 20 8c 0d 20 94  |. ... .=214 .. .|
000043f0  0b fb 31 32 39 3a fb 33  0d 20 9e 3a f1 8a 31 33  |..129:.3. .:..13|
00004400  2c 31 32 29 22 4e 6f 20  73 75 63 68 20 66 69 6c  |,12)"No such fil|
00004410  65 20 20 22 8a 31 33 2c  31 33 29 22 50 52 45 53  |e  ".13,13)"PRES|
00004420  53 20 53 50 41 43 45 42  41 52 22 3a f5 fd a5 3d  |S SPACEBAR":...=|
00004430  33 32 0d 20 a8 07 cc 20  f6 0d 20 b2 11 f1 22 41  |32. ... .. ..."A|
00004440  54 20 4c 49 4e 45 20 22  3b 9e 0d 20 bc 05 e0 0d  |T LINE ";.. ....|
00004450  20 c6 05 cd 0d 20 d0 05  e1 0d 23 28 05 20 0d 23  | .... ....#(. .#|
00004460  2d 0c f4 82 56 4f 4c 55  4d 45 0d 23 32 13 dd f2  |-...VOLUME.#2...|
00004470  76 6f 6c 75 6d 65 28 73  74 65 70 25 29 0d 23 36  |volume(step%).#6|
00004480  0b fb 36 3a fb 31 32 38  0d 23 3c 16 e7 58 25 3e  |..6:.128.#<..X%>|
00004490  3d 39 36 76 6f 6c 25 3d  2d 73 74 65 70 25 0d 23  |=96vol%=-step%.#|
000044a0  3e 14 e7 58 25 3c 39 36  76 6f 6c 25 3d 73 74 65  |>..X%<96vol%=ste|
000044b0  70 25 0d 23 46 14 76 6f  69 25 3d 28 38 39 36 2d  |p%.#F.voi%=(896-|
000044c0  59 25 29 81 33 32 0d 23  48 15 e7 56 25 28 76 6f  |Y%).32.#H..V%(vo|
000044d0  69 25 29 2b 76 6f 6c 25  3e 30 e1 0d 23 49 17 e7  |i%)+vol%>0..#I..|
000044e0  56 25 28 76 6f 69 25 29  2b 76 6f 6c 25 3c 2d 31  |V%(voi%)+vol%<-1|
000044f0  35 e1 0d 23 4a 12 56 25  28 76 6f 69 25 29 2b 3d  |5..#J.V%(voi%)+=|
00004500  76 6f 6c 25 0d 23 4e 25  e7 94 56 25 28 76 6f 69  |vol%.#N%..V%(voi|
00004510  25 29 3e 39 f1 8a 31 2c  76 6f 69 25 2b 34 29 3b  |%)>9..1,voi%+4);|
00004520  94 56 25 28 76 6f 69 25  29 0d 23 50 2a e7 94 56  |.V%(voi%).#P*..V|
00004530  25 28 76 6f 69 25 29 3c  31 30 f1 8a 31 2c 76 6f  |%(voi%)<10..1,vo|
00004540  69 25 2b 34 29 3b 22 20  22 3b 94 56 25 28 76 6f  |i%+4);" ";.V%(vo|
00004550  69 25 29 0d 23 6e 0e f2  74 65 73 74 73 6f 75 6e  |i%).#n..testsoun|
00004560  64 0d 23 78 05 e1 0d 23  8c 11 f4 81 53 2d 54 2d  |d.#x...#....S-T-|
00004570  45 2d 52 2d 45 2d 4f 0d  23 96 0c dd f2 73 74 65  |E-R-E-O.#....ste|
00004580  72 65 6f 0d 23 97 0e e7  58 25 3c 3d 31 30 35 36  |reo.#...X%<=1056|
00004590  e1 0d 23 98 13 e7 59 25  3c 33 35 36 84 59 25 3e  |..#...Y%<356.Y%>|
000045a0  38 36 34 e1 0d 23 99 0b  fb 36 3a fb 31 32 38 0d  |864..#...6:.128.|
000045b0  23 9a 14 76 6f 69 25 3d  28 38 39 36 2d 59 25 29  |#..voi%=(896-Y%)|
000045c0  81 33 32 0d 23 9c 15 76  61 6c 25 3d 28 58 25 2d  |.32.#..val%=(X%-|
000045d0  31 30 32 34 29 81 33 32  0d 23 a0 19 f1 8a 33 33  |1024).32.#....33|
000045e0  2c 34 2b 76 6f 69 25 29  22 2a 2a 2a 2a 2a 2a 2a  |,4+voi%)"*******|
000045f0  22 0d 23 a2 06 fb 33 0d  23 a4 18 f1 8a 33 32 2b  |".#...3.#....32+|
00004600  76 61 6c 25 2c 34 2b 76  6f 69 25 29 22 2a 22 0d  |val%,4+voi%)"*".|
00004610  23 aa 15 c8 a2 20 76 6f  69 25 2c 53 56 25 28 76  |#.... voi%,SV%(v|
00004620  61 6c 25 29 0d 23 ac 17  53 54 25 28 76 6f 69 25  |al%).#..ST%(voi%|
00004630  29 3d 53 56 25 28 76 61  6c 25 29 0d 23 b4 0e f2  |)=SV%(val%).#...|
00004640  74 65 73 74 73 6f 75 6e  64 0d 23 f0 05 e1 0d 24  |testsound.#....$|
00004650  54 05 20 0d 24 5e 1a f4  86 62 61 72 73 20 31 36  |T. .$^...bars 16|
00004660  2f 31 36 2c 31 32 2f 31  36 20 65 74 63 0d 24 68  |/16,12/16 etc.$h|
00004670  11 dd f2 62 61 72 73 28  73 74 65 70 25 29 0d 24  |...bars(step%).$|
00004680  6a 0b 73 68 6f 77 25 3d  31 0d 24 6e 10 d4 33 2c  |j.show%=1.$n..3,|
00004690  2d 31 35 2c 31 36 30 2c  31 0d 24 72 0e e7 58 25  |-15,160,1.$r..X%|
000046a0  3c 3d 36 34 30 20 8c 0d  24 7c 1d 20 e7 62 61 72  |<=640 ..$|. .bar|
000046b0  25 2d 73 74 65 70 25 3e  30 62 61 72 25 2d 3d 73  |%-step%>0bar%-=s|
000046c0  74 65 70 25 0d 24 80 05  cd 0d 24 81 05 20 0d 24  |tep%.$....$.. .$|
000046d0  86 0e e7 58 25 3e 3d 37  30 34 20 8c 0d 24 90 1e  |...X%>=704 ..$..|
000046e0  20 e7 62 61 72 25 2b 73  74 65 70 25 3c 31 37 62  | .bar%+step%<17b|
000046f0  61 72 25 2b 3d 73 74 65  70 25 0d 24 94 05 cd 0d  |ar%+=step%.$....|
00004700  24 95 0b fb 33 3a fb 31  32 38 0d 24 96 2a e7 62  |$...3:.128.$.*.b|
00004710  61 72 25 3e 39 f1 8a 32  30 2c 32 31 29 3b 62 61  |ar%>9..20,21);ba|
00004720  72 25 8b f1 8a 32 30 2c  32 31 29 3b 22 30 22 3b  |r%...20,21);"0";|
00004730  62 61 72 25 0d 24 98 25  f2 61 6c 74 65 72 67 72  |bar%.$.%.altergr|
00004740  69 64 3a f2 64 69 73 70  6c 61 79 64 6f 74 73 28  |id:.displaydots(|
00004750  70 61 74 74 65 72 6e 25  29 0d 24 9a 05 e1 0d 24  |pattern%).$....$|
00004760  a4 10 f4 86 61 6c 74 65  72 20 47 52 49 44 0d 24  |....alter GRID.$|
00004770  a6 0f dd f2 61 6c 74 65  72 67 72 69 64 0d 24 a8  |....altergrid.$.|
00004780  12 ef 32 38 2c 31 36 2c  32 30 2c 33 31 2c 35 0d  |..28,16,20,31,5.|
00004790  24 a9 0a fb 31 33 32 3a  db 0d 24 aa 22 ef 32 34  |$...132:..$.".24|
000047a0  2c 35 31 32 3b 33 35 32  3b 34 39 36 2b 28 62 61  |,512;352;496+(ba|
000047b0  72 25 2a 33 32 29 3b 38  36 30 3b 0d 24 ab 2b c8  |r%*32);860;.$.+.|
000047c0  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
000047d0  32 35 36 2b 33 34 2c 67  25 2c 67 24 2c 35 31 32  |256+34,g%,g$,512|
000047e0  2c 33 35 32 2c 30 0d 24  ac 05 e1 0d 24 b8 05 20  |,352,0.$....$.. |
000047f0  0d 24 c2 0f f4 81 47 52  41 42 20 47 52 49 44 0d  |.$....GRAB GRID.|
00004800  24 cc 0e dd f2 67 72 61  62 67 72 69 64 0d 25 33  |$....grabgrid.%3|
00004810  07 ef 32 36 0d 25 34 0e  73 69 7a 65 25 3d 39 30  |..26.%4.size%=90|
00004820  30 30 0d 25 3a 0d 67 24  3d 22 67 72 61 62 22 0d  |00.%:.g$="grab".|
00004830  25 44 0e de 20 67 25 20  73 69 7a 65 25 0d 25 4e  |%D.. g% size%.%N|
00004840  0e 67 25 21 30 3d 73 69  7a 65 25 0d 25 58 0b 67  |.g%!0=size%.%X.g|
00004850  25 21 38 3d 31 36 0d 25  62 1d c8 99 20 22 4f 53  |%!8=16.%b... "OS|
00004860  5f 53 70 72 69 74 65 4f  70 22 2c 32 35 36 2b 39  |_SpriteOp",256+9|
00004870  2c 67 25 0d 25 67 05 20  0d 25 6c 34 c8 99 20 22  |,g%.%g. .%l4.. "|
00004880  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 32 35 36  |OS_SpriteOp",256|
00004890  2b 31 36 2c 67 25 2c 67  24 2c 30 2c 35 31 32 2c  |+16,g%,g$,0,512,|
000048a0  33 35 32 2c 31 30 32 30  2c 38 36 30 0d 25 71 05  |352,1020,860.%q.|
000048b0  20 0d 25 73 05 e1 0d 25  74 05 20 0d 25 80 13 f4  | .%s...%t. .%...|
000048c0  84 4d 41 53 54 45 52 81  56 4f 4c 55 4d 45 0d 25  |.MASTER.VOLUME.%|
000048d0  8a 16 dd f2 6d 61 73 74  65 72 76 6f 6c 28 73 74  |....mastervol(st|
000048e0  65 70 25 29 0d 25 8b 0b  fb 33 3a fb 31 32 38 0d  |ep%).%...3:.128.|
000048f0  25 8c 10 d4 33 2c 2d 31  35 2c 31 35 30 2c 31 0d  |%...3,-15,150,1.|
00004900  25 94 17 e7 6d 61 73 74  76 6f 6c 25 2b 73 74 65  |%...mastvol%+ste|
00004910  70 25 3e 31 35 e1 0d 25  96 16 e7 6d 61 73 74 76  |p%>15..%...mastv|
00004920  6f 6c 25 2b 73 74 65 70  25 3c 31 e1 0d 25 98 13  |ol%+step%<1..%..|
00004930  6d 61 73 74 76 6f 6c 25  2b 3d 73 74 65 70 25 0d  |mastvol%+=step%.|
00004940  25 9e 34 e7 6d 61 73 74  76 6f 6c 25 3e 39 f1 8a  |%.4.mastvol%>9..|
00004950  31 2c 32 33 29 3b 6d 61  73 74 76 6f 6c 25 8b f1  |1,23);mastvol%..|
00004960  8a 31 2c 32 33 29 3b 22  30 22 3b 6d 61 73 74 76  |.1,23);"0";mastv|
00004970  6f 6c 25 0d 25 a8 1b 67  61 69 6e 25 3d 28 6d 61  |ol%.%..gain%=(ma|
00004980  73 74 76 6f 6c 25 2b 31  29 2a 32 2b 39 35 0d 25  |stvol%+1)*2+95.%|
00004990  aa 1b c8 99 20 22 53 6f  75 6e 64 5f 56 6f 6c 75  |.... "Sound_Volu|
000049a0  6d 65 22 2c 67 61 69 6e  25 0d 26 3e 05 e1 0d 26  |me",gain%.&>...&|
000049b0  48 05 20 0d 2e e0 11 f4  82 4c 4f 41 44 20 53 43  |H. ......LOAD SC|
000049c0  52 45 45 4e 0d 2e e2 10  dd f2 6c 6f 61 64 73 63  |REEN......loadsc|
000049d0  72 65 65 6e 0d 2e ea 21  73 24 3d 22 3c 44 52 55  |reen...!s$="<DRU|
000049e0  4d 4b 49 54 24 64 69 72  3e 2e 4b 49 54 50 49 43  |MKIT$dir>.KITPIC|
000049f0  46 49 4c 45 22 0d 2e f4  0f 66 69 6c 65 25 3d 8e  |FILE"....file%=.|
00004a00  28 73 24 29 0d 2e fe 11  4c 25 3d a2 23 66 69 6c  |(s$)....L%=.#fil|
00004a10  65 25 2b 36 34 0d 2f 08  0b d9 23 66 69 6c 65 25  |e%+64./...#file%|
00004a20  0d 2f 12 0b de 20 53 25  20 4c 25 0d 2f 1c 0b 53  |./... S% L%./..S|
00004a30  25 21 30 3d 4c 25 0d 2f  26 1d c8 99 20 22 4f 53  |%!0=L%./&... "OS|
00004a40  5f 53 70 72 69 74 65 4f  70 22 2c 32 35 36 2b 39  |_SpriteOp",256+9|
00004a50  2c 53 25 0d 2f 30 21 c8  99 20 22 4f 53 5f 53 70  |,S%./0!.. "OS_Sp|
00004a60  72 69 74 65 4f 70 22 2c  32 35 36 2b 31 30 2c 53  |riteOp",256+10,S|
00004a70  25 2c 73 24 0d 2f 3a 2b  c8 99 20 22 4f 53 5f 53  |%,s$./:+.. "OS_S|
00004a80  70 72 69 74 65 4f 70 22  2c 32 35 36 2b 33 34 2c  |priteOp",256+34,|
00004a90  53 25 2c 22 50 49 43 32  22 2c 30 2c 30 2c 30 0d  |S%,"PIC2",0,0,0.|
00004aa0  2f 3f 05 e1 0d 36 9c 05  20 0d 36 a1 20 f4 86 69  |/?...6.. .6. ..i|
00004ab0  6e 73 74 72 75 6d 65 6e  74 20 6e 61 6d 65 73 20  |nstrument names |
00004ac0  6f 6e 20 73 63 72 65 65  6e 0d 36 a6 0b dd f2 6e  |on screen.6....n|
00004ad0  61 6d 65 73 0d 36 b0 09  f7 8d 74 58 7a 0d 36 ba  |ames.6....tXz.6.|
00004ae0  07 ef 32 36 0d 36 c4 06  fb 36 0d 36 ce 08 fb 31  |..26.6...6.6...1|
00004af0  33 32 0d 36 d8 0c e3 49  25 3d 31 b8 31 36 0d 36  |32.6...I%=1.16.6|
00004b00  e2 07 f3 41 24 0d 36 ec  14 f5 41 24 2b 3d 22 2d  |...A$.6...A$+="-|
00004b10  22 3a fd a9 41 24 3d 31  30 0d 36 f6 06 fb 36 0d  |":..A$=10.6...6.|
00004b20  37 00 0f f1 8a 36 2c 49  25 2b 34 29 41 24 0d 37  |7....6,I%+4)A$.7|
00004b30  0a 06 fb 31 0d 37 14 10  f1 8a 35 2c 49 25 2b 34  |...1.7....5,I%+4|
00004b40  29 22 2a 22 0d 37 1e 05  ed 0d 37 28 05 e1 0d 37  |)"*".7....7(...7|
00004b50  2d 05 20 0d 3a 98 16 f4  83 49 6e 73 74 72 75 6d  |-. .:....Instrum|
00004b60  65 6e 74 20 6e 61 6d 65  73 0d 3a a2 0a dc 68 69  |ent names.:...hi|
00004b70  68 61 74 0d 3a ac 0c dc  74 6f 6d 74 6f 6d 31 0d  |hat.:...tomtom1.|
00004b80  3a b6 0c dc 74 6f 6d 74  6f 6d 32 0d 3a c0 0c dc  |:...tomtom2.:...|
00004b90  74 6f 6d 74 6f 6d 33 0d  3a ca 0b dc 62 6c 6f 63  |tomtom3.:...bloc|
00004ba0  6b 31 0d 3a d4 0b dc 62  6c 6f 63 6b 32 0d 3a de  |k1.:...block2.:.|
00004bb0  0d dc 63 79 6d 62 61 6c  2d 31 0d 3a e8 0d dc 63  |..cymbal-1.:...c|
00004bc0  79 6d 62 61 6c 2d 32 0d  3a f2 0e dc 72 6f 74 6f  |ymbal-2.:...roto|
00004bd0  74 6f 6d 2d 31 0d 3a fc  0e dc 72 6f 74 6f 74 6f  |tom-1.:...rototo|
00004be0  6d 2d 32 0d 3b 06 0e dc  68 69 68 61 74 28 6f 70  |m-2.;...hihat(op|
00004bf0  29 0d 3b 10 06 dc 78 0d  3b 1a 06 dc 78 0d 3b 24  |).;...x.;...x.;$|
00004c00  0c dc 73 6e 61 72 65 2d  32 0d 3b 2e 0a dc 73 6e  |..snare-2.;...sn|
00004c10  61 72 65 0d 3b 38 0d dc  62 61 73 73 64 72 75 6d  |are.;8..bassdrum|
00004c20  0d ff                                             |..|
00004c22