� Tunemaker
� by Colin Atkins
� BBC B/B+/Master/Electron
(� (c) Acorn User March 1986
2*KEY 10 OLD|M |N LIST |M
<� � �error
F� 4
P� 23;8202;0;0;0;
Z+� 1,7,2,-1,1,1,1,1,126,0,0,-126,126,126
d
�chars
n
�scale
x
�intro
�� 19,0,6;0;19,1,0;0;
�*FX 4,1
�*FX 11,0
� �tt@:� Remove if using tape
�*OPT 1,1
�*OPT 2,1
�
notune%=�
�	�menu
��
�� �error
�*� �=17 � �menu � �:�:� " at line ";�:�
��
�:
�� �chars

� notes (bottom)

&� 23,226,0,0,60,102,195,195,102,60

'� 23,227,12,12,12,124,204,204,120,0

"'� 23,228,12,12,12,124,252,252,120,0

,'� 23,232,14,15,13,124,252,252,120,0

6� notes (top)

@"� 23,229,0,0,12,12,12,12,12,12

J"� 23,230,0,0,14,15,13,12,12,12

T"� 23,231,0,0,14,15,13,14,15,13

^
� cursors

h'� 23,233,24,60,126,255,219,24,24,24

r(� 23,248,24,56,112,255,255,112,56,24

|
� flat

�$� 23,234,32,32,32,44,50,34,44,48

�� rests

�&� 23,235,67,231,254,70,12,24,48,48

�"� 23,249,0,0,0,0,0,126,126,255

�	� tie

�� 23,236,1,2,4,24,224,0,0,0

�!� 23,237,128,64,32,24,7,0,0,0

�� treble clef

�� 23,238,1,3,2,2,3,3,6,14

�%� 23,239,128,192,64,192,128,0,0,0

�'� 23,240,26,26,49,97,99,199,201,218

�"� 23,241,0,0,0,0,192,240,24,24

�"� 23,242,204,68,96,56,15,0,6,7
,� 23,243,152,152,176,224,128,128,128,128
� bass clef
&� 23,244,127,128,128,220,124,8,0,0
&%� 23,245,192,99,35,16,16,16,19,19
0� 23,246,0,0,0,0,0,0,1,2
:#� 23,247,16,16,32,32,64,128,0,0
D�
N:
X� �menu
b�:� 128:� 1
l!� 4:�:�13,5)"Tunemaker Menu"
v/�8,8)"1) Make a tune";�8,10)"2) Play tune"
�.�8,12)"3) SAVE tune";�8,14)"4) LOAD tune"
�7�8,16)"5) List SOUND data";�8,18)"6) Exit program"
�!�8,20)"'Escape' - menu page"
��8,24)"Option",opt%
�� opt%>6 � opt%<1 � � �dnB
�� opt%=1 � �:�maketune
�� opt%=4 � �:�load
�;� notune% � �2,30)"NO TUNE IN MEMORY":i%=�(300):� �dnB
�Q� opt%=2 � �2,26)"Set tempo(RETURN for tempo=120)",tempo%:�0,22)�(39):�play
�� opt%=3 � �save
�� opt%=5 � �data
�� opt%=6:�end
��
:
� �maketune
� maska% 3,maskb% 3
 � note%
*�initial
4
�scale
>�screen
H�
Rtriplet%=�:sharp%=�
\flat%=�:dot%=�
ftie%=�:return%=�
pvol%=1:gap%=1
z�:�selectnote
�� return%=�
��printnote
��storenote
�� �
��
�:
�� �stave
�� 24,0;500;1220;810;
�� 0,128:� 0,1:�
�ystave%=500:� 0,ystave%
�� line%=1 � 14
�'� line%=6 � line%>11 � 1200,ystave%
�� 1220,ystave%
"ystave%=ystave%+20:� 0,ystave%
� line%
� 26
$� draw clefs
.� 5:� 0,700
8�(238)+�(239)
B� 0,668:�(240)+�(241)
L� 0,636:�(242)+�(243)
V� 0,576:�(244)+�(245)
`� 0,544:�(246)+�(247)
j�
t:
~� �selectnote
�oh%=H%:oy%=Y%:�4
�� tempo%=0 � tempo%=120
�,�22,5)"Tempo : ";�(228);"=";tempo%;�(4)
��30,4)�(229)
��H%,22)�(233)
��ycurs(Y%+4)
�
key$=�
�7� key$="C" � key$="c" � �32,5);�(5):�32,5),tempo%
�� note%=0 � � �T@E
�� �(key$)=127 � �delete
�!� key$="P" � key$="p" � �play
�'� key$="T" � key$="t" � tie%=�:�tie
.� �(key$)=138 � Y%=Y%-10:� Y%<533 � Y%=533

.� �(key$)=139 � Y%=Y%+10:� Y%>773 � Y%=773
G� �(key$)=136 � �(key$)=137 � �H%-1,20)" ";�H%+1,20)" ";�H%,21)" "
+� �(key$)=137 � H%=H%+5:� H%>37 � H%=37
()� �(key$)=136 � H%=H%-5:� H%<2 � H%=2
22� key$="S" � key$="s" � sharp%=�:�H%-1,20)"#"
<0� key$="." � key$=">" � dot%=�:�H%+1,20)"."
F4� key$="F" � key$="f" � flat%=�:�H%-1,20)�(234)
P'� key$="3" � triplet%=�:�H%,21)"3"
Z�oh%,22)" "
d�ycurs(oy%+4)
n&� �(key$)=13 � return%=�:notune%=�
x�
�:
�� �printnote
�)�H%-1,20)" ";�H%+1,20)" ";�H%,21)" "
��5
�!� X%>1150 �dump:X%=100:�stave
� � H%=2 nb%=249:nt%=0:dur%=23
�� H%=7 nb%=235:nt%=0:dur%=5
�!� H%=12 nb%=226:nt%=0:dur%=47
�#� H%=17 nb%=227:nt%=229:dur%=23
�#� H%=22 nb%=228:nt%=229:dur%=11
�"� H%=27 nb%=228:nt%=230:dur%=5
�"� H%=32 nb%=228:nt%=231:dur%=2
�"� H%=37 nb%=232:nt%=231:dur%=1
	� 1,1
.� H%=7 � X%,673:� �(nb%):� X%,553:� �(nb%)
.� H%=2 � X%,690:� �(nb%):� X%,570:� �(nb%)
"� H%=7 � H%=2 � vol%=0:�
,� X%,Y%+7:�(nb%)
6� X%,Y%+39:�(nt%)
@(� Y%=613 � X%-10,Y%-13:� X%+30,Y%-13
J� Y%>723 � �leger
T.� triplet% � dur%=dur%*2/3:� X%,Y%-25:�"3"
^1� dot% � dur%=(dur%*1.5)+1:� X%+25,Y%+12:�"."
hpitch%=scale%((Y%-533)/10)
r0� sharp% � pitch%=pitch%+4:� X%-35,Y%+2:�"#"
|4� flat% � pitch%=pitch%-4:� X%-35,Y%+12:� �(234)
�� tie% � gap%=0:dur%=dur%+1
��
�:
�� �storenote
�#P%(note%)=pitch%:D%(note%)=dur%
�!G%(note%)=gap%:V%(note%)=vol%
�note%=note%+1
�� note%>299 � note%=299
�� 1,vol%,pitch%,dur%
�
X%=X%+100
��
�:
�
� �screen
�
H�2,20)�(249);�7,20)�(235);�12,20)�(226);�17,20)�(227);�22,20)�(228)
 �17,19)�(229);�22,19)�(229)
&.�27,20)�(228);�32,20)�(228);�37,20)�(232)
0.�27,19)�(230);�32,19)�(231);�37,19)�(231)
:1�2,1)"Cursor keys..select note type & pitch"
D�2,5)"'C'..change tempo"
N.�2,3)"'Return'..print note  '3'..triplet"
XV�2,25)"'S'..sharp";�(5);"'P'..play tune";�2,27)"'F'..flat"�(6);"'.'..dotted note"
b1�2,29)"'T'..tie notes 'Delete'..delete note"
l
�stave
v�
�:
�� �leger
�leg%=733
��
�� X%-10,leg%-13
�� X%+30,leg%-13
�leg%=leg%+20
�
� leg%>Y%
��
�:
�� �play
�� tempo%=0 � tempo%=120
�� note%
note%=-1:�:note%=note%+1
� G%(note%)=0 � � �T`H

� 1,0,0,1
 0� 1,V%(note%),P%(note%),D%(note%)*100/tempo%
*� D%(note%)=0
4�
>:
H� �save
R�
\�:�2,3)"SAVE tune"
f-�2,5)"Enter filename(max. 7 letters)",f$
p� �(f$)<8 � �(f$)>0
z
out=�(f$)
�� note%
�note%=-1:�:note%=note%+1
��#out,V%(note%)
��#out,P%(note%)
��#out,D%(note%)
��#out,G%(note%)
�� D%(note%)=0
��#out:*FX 125
��
�:
�� �load
��initial
��
	�:�2,3)"LOAD tune"
	-�2,5)"Enter filename(max. 7 letters)",f$
	� �(f$)<8 � �(f$)>0
	$
out=�(f$)
	.� note%
	8note%=-1:�:note%=note%+1
	B�#out,V%(note%)
	L�#out,P%(note%)
	V�#out,D%(note%)
	`�#out,G%(note%)
	j� �#out
	t	�#out
	~notune%=�:*FX 125
	��
	�:
	�
� �delete
	�	� 0,1
	�note%=note%-1
	�� note%<0 � note%=0
	�X%=X%-100:� X%<100 � X%=100
	�V%(note%)=0:D%(note%)=0
	�� 24,X%-50;500;X%+40;810;:�
	�ys%=500:� X%-50,ys%
	�� line%=1 � 14
	�� line%=6 � line%>11 � �TJJ
� X%+40,ys%

ys%=ys%+20:� X%-50,ys%
�:� 26:� 3,1
�
(:
2� �intro
<� 19,0,1;0;19,1,0;0;
F� 0,128:� 0,1:�:� 5
P
�stave
Z� X%,Y%,N%,note%
d� note%=0 � 49:p%=note%
n X%=100+�(1000):Y%=400+�(400)
xN%=228+�(3)
�� X%,Y%:�(228)
�� X%,Y%+30:�(N%)
�� note%>24 � p%=49-note%
�� 1,1,scale%(p%),1
�� note%
��=0:� � �>200
��
�:
�� �data
�
�:� 14
�.�2,3)"(D-values correspond to tempo=120)"
�-�5,5)"Note no.","Pitch","Duration","Gap"
�� note%:note%=-1
�:note%=note%+1
� D%(note%)=0 � �D@K
pitch$=�(P%(note%))
"� V%(note%)=0 pitch$="REST"
,$�(note%+1),�(5);pitch$,D%(note%)
6�(36);G%(note%+1)
@� D%(note%)=0
J	� � �
T�
^:
h� �initial
r%� P%(300),D%(300),V%(300),G%(300)
|"note%=0:pitch%=0:dur%=0:gap%=1
�H%=22:X%=100:Y%=613
�tempo%=120:notune%=�
��
�:
�
� �tie
�
� 5:� 1,1
�� X%-70,Y%-20
��(237)+�(236)
��
�:
�� �ycurs(ypos%)
�
� 5:� 3,1
�� 1230,ypos%:�(248)
� 4
�
:
&
� �end
0� 22,6:*FX 21,0
:*FX 4,0
D*FX 12,0
N*OPT
X�:�
b�
l:
v� �scale
�� note%:� scale%(25)
�� note%=0 � 24
�
� pvalue%
�scale%(note%)=pvalue%
�� note%
�� 0,4,12,20,24,32,40
�� 48,52,60,68,72,80,88
� � 96,100,108,116,120,128,136
�� 144,148,156,164
��
�� �dump:� 4
�!�10,22)"Printer dump? (Y/N)"
��

dump%=�" YyNn",�)�2

� dump%

� dump%=2 �10,22)�19:� 5:�

 �10,22)�6"Dumping"�6

*� This dump for Epson-style

4#� printers - replace lines 3420

> � to 3590 with your own dump

H� routine if necessary.

R:

\� X%,Y%,A%,B%,C%

f%!maska%=&3010000:!maskb%=&3020100

p	� 0,0

z!� 29,0;0;2,1,27,1,65,1,8,1,10

�� Y%=768 � 512 �-16

�� 1,27,1,76,1,192,1,3

�� X%=0 � 1276 � 4

�
A%=0:B%=0

�� Z%=0 � 12 � 4

�C%=�X%,Y%-Z%)

�A%=A%*4+maska%?C%

�B%=B%*4+maskb%?C%

��

�� 1,A%,1,B%,1,A%

��

�
� 1,10

��
� 1,27,1,64,3
:
�10,22)�19
$�
�

00000000  0d 00 0a 0f f4 20 54 75  6e 65 6d 61 6b 65 72 0d  |..... Tunemaker.|
00000010  00 14 15 f4 20 62 79 20  43 6f 6c 69 6e 20 41 74  |.... by Colin At|
00000020  6b 69 6e 73 0d 00 1e 1e  f4 20 42 42 43 20 42 2f  |kins..... BBC B/|
00000030  42 2b 2f 4d 61 73 74 65  72 2f 45 6c 65 63 74 72  |B+/Master/Electr|
00000040  6f 6e 0d 00 28 1f f4 20  28 63 29 20 41 63 6f 72  |on..(.. (c) Acor|
00000050  6e 20 55 73 65 72 20 4d  61 72 63 68 20 31 39 38  |n User March 198|
00000060  36 0d 00 32 1c 2a 4b 45  59 20 31 30 20 4f 4c 44  |6..2.*KEY 10 OLD|
00000070  7c 4d 20 7c 4e 20 4c 49  53 54 20 7c 4d 0d 00 3c  ||M |N LIST |M..<|
00000080  0e ee 20 85 20 f2 65 72  72 6f 72 0d 00 46 07 eb  |.. . .error..F..|
00000090  20 34 0d 00 50 14 ef 20  32 33 3b 38 32 30 32 3b  | 4..P.. 23;8202;|
000000a0  30 3b 30 3b 30 3b 0d 00  5a 2b e2 20 31 2c 37 2c  |0;0;0;..Z+. 1,7,|
000000b0  32 2c 2d 31 2c 31 2c 31  2c 31 2c 31 2c 31 32 36  |2,-1,1,1,1,1,126|
000000c0  2c 30 2c 30 2c 2d 31 32  36 2c 31 32 36 2c 31 32  |,0,0,-126,126,12|
000000d0  36 0d 00 64 0a f2 63 68  61 72 73 0d 00 6e 0a f2  |6..d..chars..n..|
000000e0  73 63 61 6c 65 0d 00 78  0a f2 69 6e 74 72 6f 0d  |scale..x..intro.|
000000f0  00 82 18 ef 20 31 39 2c  30 2c 36 3b 30 3b 31 39  |.... 19,0,6;0;19|
00000100  2c 31 2c 30 3b 30 3b 0d  00 8c 0b 2a 46 58 20 34  |,1,0;0;....*FX 4|
00000110  2c 31 0d 00 96 0c 2a 46  58 20 31 31 2c 30 0d 00  |,1....*FX 11,0..|
00000120  97 20 e5 8d 74 74 40 3a  f4 20 52 65 6d 6f 76 65  |. ..tt@:. Remove|
00000130  20 69 66 20 75 73 69 6e  67 20 74 61 70 65 0d 00  | if using tape..|
00000140  a0 0c 2a 4f 50 54 20 31  2c 31 0d 00 aa 0c 2a 4f  |..*OPT 1,1....*O|
00000150  50 54 20 32 2c 31 0d 00  b4 0d 6e 6f 74 75 6e 65  |PT 2,1....notune|
00000160  25 3d b9 0d 00 be 09 f2  6d 65 6e 75 0d 00 c8 05  |%=......menu....|
00000170  e0 0d 00 d2 0c dd 20 f2  65 72 72 6f 72 0d 00 dc  |...... .error...|
00000180  2a e7 20 9f 3d 31 37 20  8c 20 f2 6d 65 6e 75 20  |*. .=17 . .menu |
00000190  8b 20 db 3a f6 3a f1 20  22 20 61 74 20 6c 69 6e  |. .:.:. " at lin|
000001a0  65 20 22 3b 9e 3a e0 0d  00 e6 05 e1 0d 00 f0 05  |e ";.:..........|
000001b0  3a 0d 00 fa 0c dd 20 f2  63 68 61 72 73 0d 01 04  |:..... .chars...|
000001c0  14 f4 20 6e 6f 74 65 73  20 28 62 6f 74 74 6f 6d  |.. notes (bottom|
000001d0  29 0d 01 0e 26 ef 20 32  33 2c 32 32 36 2c 30 2c  |)...&. 23,226,0,|
000001e0  30 2c 36 30 2c 31 30 32  2c 31 39 35 2c 31 39 35  |0,60,102,195,195|
000001f0  2c 31 30 32 2c 36 30 0d  01 18 27 ef 20 32 33 2c  |,102,60...'. 23,|
00000200  32 32 37 2c 31 32 2c 31  32 2c 31 32 2c 31 32 34  |227,12,12,12,124|
00000210  2c 32 30 34 2c 32 30 34  2c 31 32 30 2c 30 0d 01  |,204,204,120,0..|
00000220  22 27 ef 20 32 33 2c 32  32 38 2c 31 32 2c 31 32  |"'. 23,228,12,12|
00000230  2c 31 32 2c 31 32 34 2c  32 35 32 2c 32 35 32 2c  |,12,124,252,252,|
00000240  31 32 30 2c 30 0d 01 2c  27 ef 20 32 33 2c 32 33  |120,0..,'. 23,23|
00000250  32 2c 31 34 2c 31 35 2c  31 33 2c 31 32 34 2c 32  |2,14,15,13,124,2|
00000260  35 32 2c 32 35 32 2c 31  32 30 2c 30 0d 01 36 11  |52,252,120,0..6.|
00000270  f4 20 6e 6f 74 65 73 20  28 74 6f 70 29 0d 01 40  |. notes (top)..@|
00000280  22 ef 20 32 33 2c 32 32  39 2c 30 2c 30 2c 31 32  |". 23,229,0,0,12|
00000290  2c 31 32 2c 31 32 2c 31  32 2c 31 32 2c 31 32 0d  |,12,12,12,12,12.|
000002a0  01 4a 22 ef 20 32 33 2c  32 33 30 2c 30 2c 30 2c  |.J". 23,230,0,0,|
000002b0  31 34 2c 31 35 2c 31 33  2c 31 32 2c 31 32 2c 31  |14,15,13,12,12,1|
000002c0  32 0d 01 54 22 ef 20 32  33 2c 32 33 31 2c 30 2c  |2..T". 23,231,0,|
000002d0  30 2c 31 34 2c 31 35 2c  31 33 2c 31 34 2c 31 35  |0,14,15,13,14,15|
000002e0  2c 31 33 0d 01 5e 0d f4  20 63 75 72 73 6f 72 73  |,13..^.. cursors|
000002f0  0d 01 68 27 ef 20 32 33  2c 32 33 33 2c 32 34 2c  |..h'. 23,233,24,|
00000300  36 30 2c 31 32 36 2c 32  35 35 2c 32 31 39 2c 32  |60,126,255,219,2|
00000310  34 2c 32 34 2c 32 34 0d  01 72 28 ef 20 32 33 2c  |4,24,24..r(. 23,|
00000320  32 34 38 2c 32 34 2c 35  36 2c 31 31 32 2c 32 35  |248,24,56,112,25|
00000330  35 2c 32 35 35 2c 31 31  32 2c 35 36 2c 32 34 0d  |5,255,112,56,24.|
00000340  01 7c 0a f4 20 66 6c 61  74 0d 01 86 24 ef 20 32  |.|.. flat...$. 2|
00000350  33 2c 32 33 34 2c 33 32  2c 33 32 2c 33 32 2c 34  |3,234,32,32,32,4|
00000360  34 2c 35 30 2c 33 34 2c  34 34 2c 34 38 0d 01 90  |4,50,34,44,48...|
00000370  0b f4 20 72 65 73 74 73  0d 01 9a 26 ef 20 32 33  |.. rests...&. 23|
00000380  2c 32 33 35 2c 36 37 2c  32 33 31 2c 32 35 34 2c  |,235,67,231,254,|
00000390  37 30 2c 31 32 2c 32 34  2c 34 38 2c 34 38 0d 01  |70,12,24,48,48..|
000003a0  a4 22 ef 20 32 33 2c 32  34 39 2c 30 2c 30 2c 30  |.". 23,249,0,0,0|
000003b0  2c 30 2c 30 2c 31 32 36  2c 31 32 36 2c 32 35 35  |,0,0,126,126,255|
000003c0  0d 01 ae 09 f4 20 74 69  65 0d 01 b8 1f ef 20 32  |..... tie..... 2|
000003d0  33 2c 32 33 36 2c 31 2c  32 2c 34 2c 32 34 2c 32  |3,236,1,2,4,24,2|
000003e0  32 34 2c 30 2c 30 2c 30  0d 01 c2 21 ef 20 32 33  |24,0,0,0...!. 23|
000003f0  2c 32 33 37 2c 31 32 38  2c 36 34 2c 33 32 2c 32  |,237,128,64,32,2|
00000400  34 2c 37 2c 30 2c 30 2c  30 0d 01 cc 11 f4 20 74  |4,7,0,0,0..... t|
00000410  72 65 62 6c 65 20 63 6c  65 66 0d 01 d6 1d ef 20  |reble clef..... |
00000420  32 33 2c 32 33 38 2c 31  2c 33 2c 32 2c 32 2c 33  |23,238,1,3,2,2,3|
00000430  2c 33 2c 36 2c 31 34 0d  01 e0 25 ef 20 32 33 2c  |,3,6,14...%. 23,|
00000440  32 33 39 2c 31 32 38 2c  31 39 32 2c 36 34 2c 31  |239,128,192,64,1|
00000450  39 32 2c 31 32 38 2c 30  2c 30 2c 30 0d 01 ea 27  |92,128,0,0,0...'|
00000460  ef 20 32 33 2c 32 34 30  2c 32 36 2c 32 36 2c 34  |. 23,240,26,26,4|
00000470  39 2c 39 37 2c 39 39 2c  31 39 39 2c 32 30 31 2c  |9,97,99,199,201,|
00000480  32 31 38 0d 01 f4 22 ef  20 32 33 2c 32 34 31 2c  |218...". 23,241,|
00000490  30 2c 30 2c 30 2c 30 2c  31 39 32 2c 32 34 30 2c  |0,0,0,0,192,240,|
000004a0  32 34 2c 32 34 0d 01 fe  22 ef 20 32 33 2c 32 34  |24,24...". 23,24|
000004b0  32 2c 32 30 34 2c 36 38  2c 39 36 2c 35 36 2c 31  |2,204,68,96,56,1|
000004c0  35 2c 30 2c 36 2c 37 0d  02 08 2c ef 20 32 33 2c  |5,0,6,7...,. 23,|
000004d0  32 34 33 2c 31 35 32 2c  31 35 32 2c 31 37 36 2c  |243,152,152,176,|
000004e0  32 32 34 2c 31 32 38 2c  31 32 38 2c 31 32 38 2c  |224,128,128,128,|
000004f0  31 32 38 0d 02 12 0f f4  20 62 61 73 73 20 63 6c  |128..... bass cl|
00000500  65 66 0d 02 1c 26 ef 20  32 33 2c 32 34 34 2c 31  |ef...&. 23,244,1|
00000510  32 37 2c 31 32 38 2c 31  32 38 2c 32 32 30 2c 31  |27,128,128,220,1|
00000520  32 34 2c 38 2c 30 2c 30  0d 02 26 25 ef 20 32 33  |24,8,0,0..&%. 23|
00000530  2c 32 34 35 2c 31 39 32  2c 39 39 2c 33 35 2c 31  |,245,192,99,35,1|
00000540  36 2c 31 36 2c 31 36 2c  31 39 2c 31 39 0d 02 30  |6,16,16,19,19..0|
00000550  1c ef 20 32 33 2c 32 34  36 2c 30 2c 30 2c 30 2c  |.. 23,246,0,0,0,|
00000560  30 2c 30 2c 30 2c 31 2c  32 0d 02 3a 23 ef 20 32  |0,0,0,1,2..:#. 2|
00000570  33 2c 32 34 37 2c 31 36  2c 31 36 2c 33 32 2c 33  |3,247,16,16,32,3|
00000580  32 2c 36 34 2c 31 32 38  2c 30 2c 30 0d 02 44 05  |2,64,128,0,0..D.|
00000590  e1 0d 02 4e 05 3a 0d 02  58 0b dd 20 f2 6d 65 6e  |...N.:..X.. .men|
000005a0  75 0d 02 62 0f f5 3a fb  20 31 32 38 3a fb 20 31  |u..b..:. 128:. 1|
000005b0  0d 02 6c 21 ef 20 34 3a  db 3a f1 8a 31 33 2c 35  |..l!. 4:.:..13,5|
000005c0  29 22 54 75 6e 65 6d 61  6b 65 72 20 4d 65 6e 75  |)"Tunemaker Menu|
000005d0  22 0d 02 76 2f f1 8a 38  2c 38 29 22 31 29 20 4d  |"..v/..8,8)"1) M|
000005e0  61 6b 65 20 61 20 74 75  6e 65 22 3b 8a 38 2c 31  |ake a tune";.8,1|
000005f0  30 29 22 32 29 20 50 6c  61 79 20 74 75 6e 65 22  |0)"2) Play tune"|
00000600  0d 02 80 2e f1 8a 38 2c  31 32 29 22 33 29 20 53  |......8,12)"3) S|
00000610  41 56 45 20 74 75 6e 65  22 3b 8a 38 2c 31 34 29  |AVE tune";.8,14)|
00000620  22 34 29 20 4c 4f 41 44  20 74 75 6e 65 22 0d 02  |"4) LOAD tune"..|
00000630  8a 37 f1 8a 38 2c 31 36  29 22 35 29 20 4c 69 73  |.7..8,16)"5) Lis|
00000640  74 20 53 4f 55 4e 44 20  64 61 74 61 22 3b 8a 38  |t SOUND data";.8|
00000650  2c 31 38 29 22 36 29 20  45 78 69 74 20 70 72 6f  |,18)"6) Exit pro|
00000660  67 72 61 6d 22 0d 02 94  21 f1 8a 38 2c 32 30 29  |gram"...!..8,20)|
00000670  22 27 45 73 63 61 70 65  27 20 2d 20 6d 65 6e 75  |"'Escape' - menu|
00000680  20 70 61 67 65 22 0d 02  9e 18 e8 8a 38 2c 32 34  | page"......8,24|
00000690  29 22 4f 70 74 69 6f 6e  22 2c 6f 70 74 25 0d 02  |)"Option",opt%..|
000006a0  a8 1e e7 20 6f 70 74 25  3e 36 20 84 20 6f 70 74  |... opt%>6 . opt|
000006b0  25 3c 31 20 8c 20 e5 20  8d 64 6e 42 0d 02 b2 1a  |%<1 . . .dnB....|
000006c0  e7 20 6f 70 74 25 3d 31  20 8c 20 d8 3a f2 6d 61  |. opt%=1 . .:.ma|
000006d0  6b 65 74 75 6e 65 0d 02  bc 16 e7 20 6f 70 74 25  |ketune..... opt%|
000006e0  3d 34 20 8c 20 d8 3a f2  6c 6f 61 64 0d 02 c6 3b  |=4 . .:.load...;|
000006f0  e7 20 6e 6f 74 75 6e 65  25 20 8c 20 f1 8a 32 2c  |. notune% . ..2,|
00000700  33 30 29 22 4e 4f 20 54  55 4e 45 20 49 4e 20 4d  |30)"NO TUNE IN M|
00000710  45 4d 4f 52 59 22 3a 69  25 3d a6 28 33 30 30 29  |EMORY":i%=.(300)|
00000720  3a e5 20 8d 64 6e 42 0d  02 d0 51 e7 20 6f 70 74  |:. .dnB...Q. opt|
00000730  25 3d 32 20 8c 20 e8 8a  32 2c 32 36 29 22 53 65  |%=2 . ..2,26)"Se|
00000740  74 20 74 65 6d 70 6f 28  52 45 54 55 52 4e 20 66  |t tempo(RETURN f|
00000750  6f 72 20 74 65 6d 70 6f  3d 31 32 30 29 22 2c 74  |or tempo=120)",t|
00000760  65 6d 70 6f 25 3a f1 8a  30 2c 32 32 29 89 28 33  |empo%:..0,22).(3|
00000770  39 29 3a f2 70 6c 61 79  0d 02 da 14 e7 20 6f 70  |9):.play..... op|
00000780  74 25 3d 33 20 8c 20 f2  73 61 76 65 0d 02 e4 14  |t%=3 . .save....|
00000790  e7 20 6f 70 74 25 3d 35  20 8c 20 f2 64 61 74 61  |. opt%=5 . .data|
000007a0  0d 02 ee 11 fd 20 6f 70  74 25 3d 36 3a f2 65 6e  |..... opt%=6:.en|
000007b0  64 0d 02 f8 05 e1 0d 03  02 05 3a 0d 03 0c 0f dd  |d.........:.....|
000007c0  20 f2 6d 61 6b 65 74 75  6e 65 0d 03 16 17 de 20  | .maketune..... |
000007d0  6d 61 73 6b 61 25 20 33  2c 6d 61 73 6b 62 25 20  |maska% 3,maskb% |
000007e0  33 0d 03 20 0b ea 20 6e  6f 74 65 25 0d 03 2a 0c  |3.. .. note%..*.|
000007f0  f2 69 6e 69 74 69 61 6c  0d 03 34 0a f2 73 63 61  |.initial..4..sca|
00000800  6c 65 0d 03 3e 0b f2 73  63 72 65 65 6e 0d 03 48  |le..>..screen..H|
00000810  05 f5 0d 03 52 17 74 72  69 70 6c 65 74 25 3d a3  |....R.triplet%=.|
00000820  3a 73 68 61 72 70 25 3d  a3 0d 03 5c 12 66 6c 61  |:sharp%=...\.fla|
00000830  74 25 3d a3 3a 64 6f 74  25 3d a3 0d 03 66 14 74  |t%=.:dot%=...f.t|
00000840  69 65 25 3d a3 3a 72 65  74 75 72 6e 25 3d a3 0d  |ie%=.:return%=..|
00000850  03 70 11 76 6f 6c 25 3d  31 3a 67 61 70 25 3d 31  |.p.vol%=1:gap%=1|
00000860  0d 03 7a 11 f5 3a f2 73  65 6c 65 63 74 6e 6f 74  |..z..:.selectnot|
00000870  65 0d 03 84 0f fd 20 72  65 74 75 72 6e 25 3d b9  |e..... return%=.|
00000880  0d 03 8e 0e f2 70 72 69  6e 74 6e 6f 74 65 0d 03  |.....printnote..|
00000890  98 0e f2 73 74 6f 72 65  6e 6f 74 65 0d 03 a2 07  |...storenote....|
000008a0  fd 20 a3 0d 03 ac 05 e1  0d 03 b6 05 3a 0d 03 c0  |. ..........:...|
000008b0  0c dd 20 f2 73 74 61 76  65 0d 03 ca 18 ef 20 32  |.. .stave..... 2|
000008c0  34 2c 30 3b 35 30 30 3b  31 32 32 30 3b 38 31 30  |4,0;500;1220;810|
000008d0  3b 0d 03 d4 13 e6 20 30  2c 31 32 38 3a e6 20 30  |;..... 0,128:. 0|
000008e0  2c 31 3a da 0d 03 de 1b  79 73 74 61 76 65 25 3d  |,1:.....ystave%=|
000008f0  35 30 30 3a ec 20 30 2c  79 73 74 61 76 65 25 0d  |500:. 0,ystave%.|
00000900  03 e8 12 e3 20 6c 69 6e  65 25 3d 31 20 b8 20 31  |.... line%=1 . 1|
00000910  34 0d 03 f2 27 e7 20 6c  69 6e 65 25 3d 36 20 84  |4...'. line%=6 .|
00000920  20 6c 69 6e 65 25 3e 31  31 20 ec 20 31 32 30 30  | line%>11 . 1200|
00000930  2c 79 73 74 61 76 65 25  0d 03 fc 12 df 20 31 32  |,ystave%..... 12|
00000940  32 30 2c 79 73 74 61 76  65 25 0d 04 06 22 79 73  |20,ystave%..."ys|
00000950  74 61 76 65 25 3d 79 73  74 61 76 65 25 2b 32 30  |tave%=ystave%+20|
00000960  3a ec 20 30 2c 79 73 74  61 76 65 25 0d 04 10 0b  |:. 0,ystave%....|
00000970  ed 20 6c 69 6e 65 25 0d  04 1a 08 ef 20 32 36 0d  |. line%..... 26.|
00000980  04 24 10 f4 20 64 72 61  77 20 63 6c 65 66 73 0d  |.$.. draw clefs.|
00000990  04 2e 0f ef 20 35 3a ec  20 30 2c 37 30 30 0d 04  |.... 5:. 0,700..|
000009a0  38 12 f1 bd 28 32 33 38  29 2b bd 28 32 33 39 29  |8...(238)+.(239)|
000009b0  0d 04 42 1a ec 20 30 2c  36 36 38 3a f1 bd 28 32  |..B.. 0,668:..(2|
000009c0  34 30 29 2b bd 28 32 34  31 29 0d 04 4c 1a ec 20  |40)+.(241)..L.. |
000009d0  30 2c 36 33 36 3a f1 bd  28 32 34 32 29 2b bd 28  |0,636:..(242)+.(|
000009e0  32 34 33 29 0d 04 56 1a  ec 20 30 2c 35 37 36 3a  |243)..V.. 0,576:|
000009f0  f1 bd 28 32 34 34 29 2b  bd 28 32 34 35 29 0d 04  |..(244)+.(245)..|
00000a00  60 1a ec 20 30 2c 35 34  34 3a f1 bd 28 32 34 36  |`.. 0,544:..(246|
00000a10  29 2b bd 28 32 34 37 29  0d 04 6a 05 e1 0d 04 74  |)+.(247)..j....t|
00000a20  05 3a 0d 04 7e 11 dd 20  f2 73 65 6c 65 63 74 6e  |.:..~.. .selectn|
00000a30  6f 74 65 0d 04 88 14 6f  68 25 3d 48 25 3a 6f 79  |ote....oh%=H%:oy|
00000a40  25 3d 59 25 3a ef 34 0d  04 92 1b e7 20 74 65 6d  |%=Y%:.4..... tem|
00000a50  70 6f 25 3d 30 20 8c 20  74 65 6d 70 6f 25 3d 31  |po%=0 . tempo%=1|
00000a60  32 30 0d 04 9c 2c f1 8a  32 32 2c 35 29 22 54 65  |20...,..22,5)"Te|
00000a70  6d 70 6f 20 3a 20 22 3b  bd 28 32 32 38 29 3b 22  |mpo : ";.(228);"|
00000a80  3d 22 3b 74 65 6d 70 6f  25 3b 89 28 34 29 0d 04  |=";tempo%;.(4)..|
00000a90  a6 11 f1 8a 33 30 2c 34  29 bd 28 32 32 39 29 0d  |....30,4).(229).|
00000aa0  04 b0 12 f1 8a 48 25 2c  32 32 29 bd 28 32 33 33  |.....H%,22).(233|
00000ab0  29 0d 04 ba 10 f2 79 63  75 72 73 28 59 25 2b 34  |).....ycurs(Y%+4|
00000ac0  29 0d 04 c4 0a 6b 65 79  24 3d be 0d 04 ce 37 e7  |)....key$=....7.|
00000ad0  20 6b 65 79 24 3d 22 43  22 20 84 20 6b 65 79 24  | key$="C" . key$|
00000ae0  3d 22 63 22 20 8c 20 f1  8a 33 32 2c 35 29 3b 89  |="c" . ..32,5);.|
00000af0  28 35 29 3a e8 8a 33 32  2c 35 29 2c 74 65 6d 70  |(5):..32,5),temp|
00000b00  6f 25 0d 04 d8 16 e7 20  6e 6f 74 65 25 3d 30 20  |o%..... note%=0 |
00000b10  8c 20 e5 20 8d 54 40 45  0d 04 e2 1b e7 20 97 28  |. . .T@E..... .(|
00000b20  6b 65 79 24 29 3d 31 32  37 20 8c 20 f2 64 65 6c  |key$)=127 . .del|
00000b30  65 74 65 0d 04 ec 21 e7  20 6b 65 79 24 3d 22 50  |ete...!. key$="P|
00000b40  22 20 84 20 6b 65 79 24  3d 22 70 22 20 8c 20 f2  |" . key$="p" . .|
00000b50  70 6c 61 79 0d 04 f6 27  e7 20 6b 65 79 24 3d 22  |play...'. key$="|
00000b60  54 22 20 84 20 6b 65 79  24 3d 22 74 22 20 8c 20  |T" . key$="t" . |
00000b70  74 69 65 25 3d b9 3a f2  74 69 65 0d 05 00 2e e7  |tie%=.:.tie.....|
00000b80  20 97 28 6b 65 79 24 29  3d 31 33 38 20 8c 20 59  | .(key$)=138 . Y|
00000b90  25 3d 59 25 2d 31 30 3a  e7 20 59 25 3c 35 33 33  |%=Y%-10:. Y%<533|
00000ba0  20 8c 20 59 25 3d 35 33  33 0d 05 0a 2e e7 20 97  | . Y%=533..... .|
00000bb0  28 6b 65 79 24 29 3d 31  33 39 20 8c 20 59 25 3d  |(key$)=139 . Y%=|
00000bc0  59 25 2b 31 30 3a e7 20  59 25 3e 37 37 33 20 8c  |Y%+10:. Y%>773 .|
00000bd0  20 59 25 3d 37 37 33 0d  05 14 47 e7 20 97 28 6b  | Y%=773...G. .(k|
00000be0  65 79 24 29 3d 31 33 36  20 84 20 97 28 6b 65 79  |ey$)=136 . .(key|
00000bf0  24 29 3d 31 33 37 20 8c  20 f1 8a 48 25 2d 31 2c  |$)=137 . ..H%-1,|
00000c00  32 30 29 22 20 22 3b 8a  48 25 2b 31 2c 32 30 29  |20)" ";.H%+1,20)|
00000c10  22 20 22 3b 8a 48 25 2c  32 31 29 22 20 22 0d 05  |" ";.H%,21)" "..|
00000c20  1e 2b e7 20 97 28 6b 65  79 24 29 3d 31 33 37 20  |.+. .(key$)=137 |
00000c30  8c 20 48 25 3d 48 25 2b  35 3a e7 20 48 25 3e 33  |. H%=H%+5:. H%>3|
00000c40  37 20 8c 20 48 25 3d 33  37 0d 05 28 29 e7 20 97  |7 . H%=37..(). .|
00000c50  28 6b 65 79 24 29 3d 31  33 36 20 8c 20 48 25 3d  |(key$)=136 . H%=|
00000c60  48 25 2d 35 3a e7 20 48  25 3c 32 20 8c 20 48 25  |H%-5:. H%<2 . H%|
00000c70  3d 32 0d 05 32 32 e7 20  6b 65 79 24 3d 22 53 22  |=2..22. key$="S"|
00000c80  20 84 20 6b 65 79 24 3d  22 73 22 20 8c 20 73 68  | . key$="s" . sh|
00000c90  61 72 70 25 3d b9 3a f1  8a 48 25 2d 31 2c 32 30  |arp%=.:..H%-1,20|
00000ca0  29 22 23 22 0d 05 3c 30  e7 20 6b 65 79 24 3d 22  |)"#"..<0. key$="|
00000cb0  2e 22 20 84 20 6b 65 79  24 3d 22 3e 22 20 8c 20  |." . key$=">" . |
00000cc0  64 6f 74 25 3d b9 3a f1  8a 48 25 2b 31 2c 32 30  |dot%=.:..H%+1,20|
00000cd0  29 22 2e 22 0d 05 46 34  e7 20 6b 65 79 24 3d 22  |)"."..F4. key$="|
00000ce0  46 22 20 84 20 6b 65 79  24 3d 22 66 22 20 8c 20  |F" . key$="f" . |
00000cf0  66 6c 61 74 25 3d b9 3a  f1 8a 48 25 2d 31 2c 32  |flat%=.:..H%-1,2|
00000d00  30 29 bd 28 32 33 34 29  0d 05 50 27 e7 20 6b 65  |0).(234)..P'. ke|
00000d10  79 24 3d 22 33 22 20 8c  20 74 72 69 70 6c 65 74  |y$="3" . triplet|
00000d20  25 3d b9 3a f1 8a 48 25  2c 32 31 29 22 33 22 0d  |%=.:..H%,21)"3".|
00000d30  05 5a 10 f1 8a 6f 68 25  2c 32 32 29 22 20 22 0d  |.Z...oh%,22)" ".|
00000d40  05 64 11 f2 79 63 75 72  73 28 6f 79 25 2b 34 29  |.d..ycurs(oy%+4)|
00000d50  0d 05 6e 26 e7 20 97 28  6b 65 79 24 29 3d 31 33  |..n&. .(key$)=13|
00000d60  20 8c 20 72 65 74 75 72  6e 25 3d b9 3a 6e 6f 74  | . return%=.:not|
00000d70  75 6e 65 25 3d a3 0d 05  78 05 e1 0d 05 82 05 3a  |une%=...x......:|
00000d80  0d 05 8c 10 dd 20 f2 70  72 69 6e 74 6e 6f 74 65  |..... .printnote|
00000d90  0d 05 96 29 f1 8a 48 25  2d 31 2c 32 30 29 22 20  |...)..H%-1,20)" |
00000da0  22 3b 8a 48 25 2b 31 2c  32 30 29 22 20 22 3b 8a  |";.H%+1,20)" ";.|
00000db0  48 25 2c 32 31 29 22 20  22 0d 05 a0 06 ef 35 0d  |H%,21)" ".....5.|
00000dc0  05 aa 21 e7 20 58 25 3e  31 31 35 30 20 f2 64 75  |..!. X%>1150 .du|
00000dd0  6d 70 3a 58 25 3d 31 30  30 3a f2 73 74 61 76 65  |mp:X%=100:.stave|
00000de0  0d 05 b4 20 e7 20 48 25  3d 32 20 6e 62 25 3d 32  |... . H%=2 nb%=2|
00000df0  34 39 3a 6e 74 25 3d 30  3a 64 75 72 25 3d 32 33  |49:nt%=0:dur%=23|
00000e00  0d 05 be 1f e7 20 48 25  3d 37 20 6e 62 25 3d 32  |..... H%=7 nb%=2|
00000e10  33 35 3a 6e 74 25 3d 30  3a 64 75 72 25 3d 35 0d  |35:nt%=0:dur%=5.|
00000e20  05 c8 21 e7 20 48 25 3d  31 32 20 6e 62 25 3d 32  |..!. H%=12 nb%=2|
00000e30  32 36 3a 6e 74 25 3d 30  3a 64 75 72 25 3d 34 37  |26:nt%=0:dur%=47|
00000e40  0d 05 d2 23 e7 20 48 25  3d 31 37 20 6e 62 25 3d  |...#. H%=17 nb%=|
00000e50  32 32 37 3a 6e 74 25 3d  32 32 39 3a 64 75 72 25  |227:nt%=229:dur%|
00000e60  3d 32 33 0d 05 dc 23 e7  20 48 25 3d 32 32 20 6e  |=23...#. H%=22 n|
00000e70  62 25 3d 32 32 38 3a 6e  74 25 3d 32 32 39 3a 64  |b%=228:nt%=229:d|
00000e80  75 72 25 3d 31 31 0d 05  e6 22 e7 20 48 25 3d 32  |ur%=11...". H%=2|
00000e90  37 20 6e 62 25 3d 32 32  38 3a 6e 74 25 3d 32 33  |7 nb%=228:nt%=23|
00000ea0  30 3a 64 75 72 25 3d 35  0d 05 f0 22 e7 20 48 25  |0:dur%=5...". H%|
00000eb0  3d 33 32 20 6e 62 25 3d  32 32 38 3a 6e 74 25 3d  |=32 nb%=228:nt%=|
00000ec0  32 33 31 3a 64 75 72 25  3d 32 0d 05 fa 22 e7 20  |231:dur%=2...". |
00000ed0  48 25 3d 33 37 20 6e 62  25 3d 32 33 32 3a 6e 74  |H%=37 nb%=232:nt|
00000ee0  25 3d 32 33 31 3a 64 75  72 25 3d 31 0d 06 04 09  |%=231:dur%=1....|
00000ef0  e6 20 31 2c 31 0d 06 0e  2e e7 20 48 25 3d 37 20  |. 1,1..... H%=7 |
00000f00  ec 20 58 25 2c 36 37 33  3a f1 20 bd 28 6e 62 25  |. X%,673:. .(nb%|
00000f10  29 3a ec 20 58 25 2c 35  35 33 3a f1 20 bd 28 6e  |):. X%,553:. .(n|
00000f20  62 25 29 0d 06 18 2e e7  20 48 25 3d 32 20 ec 20  |b%)..... H%=2 . |
00000f30  58 25 2c 36 39 30 3a f1  20 bd 28 6e 62 25 29 3a  |X%,690:. .(nb%):|
00000f40  ec 20 58 25 2c 35 37 30  3a f1 20 bd 28 6e 62 25  |. X%,570:. .(nb%|
00000f50  29 0d 06 22 1c e7 20 48  25 3d 37 20 84 20 48 25  |)..".. H%=7 . H%|
00000f60  3d 32 20 8c 20 76 6f 6c  25 3d 30 3a e1 0d 06 2c  |=2 . vol%=0:...,|
00000f70  15 ec 20 58 25 2c 59 25  2b 37 3a f1 bd 28 6e 62  |.. X%,Y%+7:..(nb|
00000f80  25 29 0d 06 36 16 ec 20  58 25 2c 59 25 2b 33 39  |%)..6.. X%,Y%+39|
00000f90  3a f1 bd 28 6e 74 25 29  0d 06 40 28 e7 20 59 25  |:..(nt%)..@(. Y%|
00000fa0  3d 36 31 33 20 ec 20 58  25 2d 31 30 2c 59 25 2d  |=613 . X%-10,Y%-|
00000fb0  31 33 3a df 20 58 25 2b  33 30 2c 59 25 2d 31 33  |13:. X%+30,Y%-13|
00000fc0  0d 06 4a 15 e7 20 59 25  3e 37 32 33 20 8c 20 f2  |..J.. Y%>723 . .|
00000fd0  6c 65 67 65 72 0d 06 54  2e e7 20 74 72 69 70 6c  |leger..T.. tripl|
00000fe0  65 74 25 20 8c 20 64 75  72 25 3d 64 75 72 25 2a  |et% . dur%=dur%*|
00000ff0  32 2f 33 3a ec 20 58 25  2c 59 25 2d 32 35 3a f1  |2/3:. X%,Y%-25:.|
00001000  22 33 22 0d 06 5e 31 e7  20 64 6f 74 25 20 8c 20  |"3"..^1. dot% . |
00001010  64 75 72 25 3d 28 64 75  72 25 2a 31 2e 35 29 2b  |dur%=(dur%*1.5)+|
00001020  31 3a ec 20 58 25 2b 32  35 2c 59 25 2b 31 32 3a  |1:. X%+25,Y%+12:|
00001030  f1 22 2e 22 0d 06 68 1e  70 69 74 63 68 25 3d 73  |."."..h.pitch%=s|
00001040  63 61 6c 65 25 28 28 59  25 2d 35 33 33 29 2f 31  |cale%((Y%-533)/1|
00001050  30 29 0d 06 72 30 e7 20  73 68 61 72 70 25 20 8c  |0)..r0. sharp% .|
00001060  20 70 69 74 63 68 25 3d  70 69 74 63 68 25 2b 34  | pitch%=pitch%+4|
00001070  3a ec 20 58 25 2d 33 35  2c 59 25 2b 32 3a f1 22  |:. X%-35,Y%+2:."|
00001080  23 22 0d 06 7c 34 e7 20  66 6c 61 74 25 20 8c 20  |#"..|4. flat% . |
00001090  70 69 74 63 68 25 3d 70  69 74 63 68 25 2d 34 3a  |pitch%=pitch%-4:|
000010a0  ec 20 58 25 2d 33 35 2c  59 25 2b 31 32 3a f1 20  |. X%-35,Y%+12:. |
000010b0  bd 28 32 33 34 29 0d 06  86 1f e7 20 74 69 65 25  |.(234)..... tie%|
000010c0  20 8c 20 67 61 70 25 3d  30 3a 64 75 72 25 3d 64  | . gap%=0:dur%=d|
000010d0  75 72 25 2b 31 0d 06 90  05 e1 0d 06 9a 05 3a 0d  |ur%+1.........:.|
000010e0  06 a4 10 dd 20 f2 73 74  6f 72 65 6e 6f 74 65 0d  |.... .storenote.|
000010f0  06 ae 23 50 25 28 6e 6f  74 65 25 29 3d 70 69 74  |..#P%(note%)=pit|
00001100  63 68 25 3a 44 25 28 6e  6f 74 65 25 29 3d 64 75  |ch%:D%(note%)=du|
00001110  72 25 0d 06 b8 21 47 25  28 6e 6f 74 65 25 29 3d  |r%...!G%(note%)=|
00001120  67 61 70 25 3a 56 25 28  6e 6f 74 65 25 29 3d 76  |gap%:V%(note%)=v|
00001130  6f 6c 25 0d 06 c2 11 6e  6f 74 65 25 3d 6e 6f 74  |ol%....note%=not|
00001140  65 25 2b 31 0d 06 cc 1b  e7 20 6e 6f 74 65 25 3e  |e%+1..... note%>|
00001150  32 39 39 20 8c 20 6e 6f  74 65 25 3d 32 39 39 0d  |299 . note%=299.|
00001160  06 d6 18 d4 20 31 2c 76  6f 6c 25 2c 70 69 74 63  |.... 1,vol%,pitc|
00001170  68 25 2c 64 75 72 25 0d  06 e0 0d 58 25 3d 58 25  |h%,dur%....X%=X%|
00001180  2b 31 30 30 0d 06 ea 05  e1 0d 06 f4 05 3a 0d 06  |+100.........:..|
00001190  fe 0d dd 20 f2 73 63 72  65 65 6e 0d 07 08 05 db  |... .screen.....|
000011a0  0d 07 12 48 f1 8a 32 2c  32 30 29 bd 28 32 34 39  |...H..2,20).(249|
000011b0  29 3b 8a 37 2c 32 30 29  bd 28 32 33 35 29 3b 8a  |);.7,20).(235);.|
000011c0  31 32 2c 32 30 29 bd 28  32 32 36 29 3b 8a 31 37  |12,20).(226);.17|
000011d0  2c 32 30 29 bd 28 32 32  37 29 3b 8a 32 32 2c 32  |,20).(227);.22,2|
000011e0  30 29 bd 28 32 32 38 29  0d 07 1c 20 f1 8a 31 37  |0).(228)... ..17|
000011f0  2c 31 39 29 bd 28 32 32  39 29 3b 8a 32 32 2c 31  |,19).(229);.22,1|
00001200  39 29 bd 28 32 32 39 29  0d 07 26 2e f1 8a 32 37  |9).(229)..&...27|
00001210  2c 32 30 29 bd 28 32 32  38 29 3b 8a 33 32 2c 32  |,20).(228);.32,2|
00001220  30 29 bd 28 32 32 38 29  3b 8a 33 37 2c 32 30 29  |0).(228);.37,20)|
00001230  bd 28 32 33 32 29 0d 07  30 2e f1 8a 32 37 2c 31  |.(232)..0...27,1|
00001240  39 29 bd 28 32 33 30 29  3b 8a 33 32 2c 31 39 29  |9).(230);.32,19)|
00001250  bd 28 32 33 31 29 3b 8a  33 37 2c 31 39 29 bd 28  |.(231);.37,19).(|
00001260  32 33 31 29 0d 07 3a 31  f1 8a 32 2c 31 29 22 43  |231)..:1..2,1)"C|
00001270  75 72 73 6f 72 20 6b 65  79 73 2e 2e 73 65 6c 65  |ursor keys..sele|
00001280  63 74 20 6e 6f 74 65 20  74 79 70 65 20 26 20 70  |ct note type & p|
00001290  69 74 63 68 22 0d 07 44  1d f1 8a 32 2c 35 29 22  |itch"..D...2,5)"|
000012a0  27 43 27 2e 2e 63 68 61  6e 67 65 20 74 65 6d 70  |'C'..change temp|
000012b0  6f 22 0d 07 4e 2e f1 8a  32 2c 33 29 22 27 52 65  |o"..N...2,3)"'Re|
000012c0  74 75 72 6e 27 2e 2e 70  72 69 6e 74 20 6e 6f 74  |turn'..print not|
000012d0  65 20 20 27 33 27 2e 2e  74 72 69 70 6c 65 74 22  |e  '3'..triplet"|
000012e0  0d 07 58 56 f1 8a 32 2c  32 35 29 22 27 53 27 2e  |..XV..2,25)"'S'.|
000012f0  2e 73 68 61 72 70 22 3b  89 28 35 29 3b 22 27 50  |.sharp";.(5);"'P|
00001300  27 2e 2e 70 6c 61 79 20  74 75 6e 65 22 3b 8a 32  |'..play tune";.2|
00001310  2c 32 37 29 22 27 46 27  2e 2e 66 6c 61 74 22 89  |,27)"'F'..flat".|
00001320  28 36 29 3b 22 27 2e 27  2e 2e 64 6f 74 74 65 64  |(6);"'.'..dotted|
00001330  20 6e 6f 74 65 22 0d 07  62 31 f1 8a 32 2c 32 39  | note"..b1..2,29|
00001340  29 22 27 54 27 2e 2e 74  69 65 20 6e 6f 74 65 73  |)"'T'..tie notes|
00001350  20 27 44 65 6c 65 74 65  27 2e 2e 64 65 6c 65 74  | 'Delete'..delet|
00001360  65 20 6e 6f 74 65 22 0d  07 6c 0a f2 73 74 61 76  |e note"..l..stav|
00001370  65 0d 07 76 05 e1 0d 07  80 05 3a 0d 07 8a 0c dd  |e..v......:.....|
00001380  20 f2 6c 65 67 65 72 0d  07 94 0c 6c 65 67 25 3d  | .leger....leg%=|
00001390  37 33 33 0d 07 9e 05 f5  0d 07 a8 13 ec 20 58 25  |733.......... X%|
000013a0  2d 31 30 2c 6c 65 67 25  2d 31 33 0d 07 b2 13 df  |-10,leg%-13.....|
000013b0  20 58 25 2b 33 30 2c 6c  65 67 25 2d 31 33 0d 07  | X%+30,leg%-13..|
000013c0  bc 10 6c 65 67 25 3d 6c  65 67 25 2b 32 30 0d 07  |..leg%=leg%+20..|
000013d0  c6 0d fd 20 6c 65 67 25  3e 59 25 0d 07 d0 05 e1  |... leg%>Y%.....|
000013e0  0d 07 da 05 3a 0d 07 e4  0b dd 20 f2 70 6c 61 79  |....:..... .play|
000013f0  0d 07 ee 1b e7 20 74 65  6d 70 6f 25 3d 30 20 8c  |..... tempo%=0 .|
00001400  20 74 65 6d 70 6f 25 3d  31 32 30 0d 07 f8 0b ea  | tempo%=120.....|
00001410  20 6e 6f 74 65 25 0d 08  02 1c 6e 6f 74 65 25 3d  | note%....note%=|
00001420  2d 31 3a f5 3a 6e 6f 74  65 25 3d 6e 6f 74 65 25  |-1:.:note%=note%|
00001430  2b 31 0d 08 0c 1a e7 20  47 25 28 6e 6f 74 65 25  |+1..... G%(note%|
00001440  29 3d 30 20 8c 20 e5 20  8d 54 60 48 0d 08 16 0d  |)=0 . . .T`H....|
00001450  d4 20 31 2c 30 2c 30 2c  31 0d 08 20 30 d4 20 31  |. 1,0,0,1.. 0. 1|
00001460  2c 56 25 28 6e 6f 74 65  25 29 2c 50 25 28 6e 6f  |,V%(note%),P%(no|
00001470  74 65 25 29 2c 44 25 28  6e 6f 74 65 25 29 2a 31  |te%),D%(note%)*1|
00001480  30 30 2f 74 65 6d 70 6f  25 0d 08 2a 11 fd 20 44  |00/tempo%..*.. D|
00001490  25 28 6e 6f 74 65 25 29  3d 30 0d 08 34 05 e1 0d  |%(note%)=0..4...|
000014a0  08 3e 05 3a 0d 08 48 0b  dd 20 f2 73 61 76 65 0d  |.>.:..H.. .save.|
000014b0  08 52 05 f5 0d 08 5c 17  db 3a f1 8a 32 2c 33 29  |.R....\..:..2,3)|
000014c0  22 53 41 56 45 20 74 75  6e 65 22 0d 08 66 2d e8  |"SAVE tune"..f-.|
000014d0  8a 32 2c 35 29 22 45 6e  74 65 72 20 66 69 6c 65  |.2,5)"Enter file|
000014e0  6e 61 6d 65 28 6d 61 78  2e 20 37 20 6c 65 74 74  |name(max. 7 lett|
000014f0  65 72 73 29 22 2c 66 24  0d 08 70 17 fd 20 a9 28  |ers)",f$..p.. .(|
00001500  66 24 29 3c 38 20 80 20  a9 28 66 24 29 3e 30 0d  |f$)<8 . .(f$)>0.|
00001510  08 7a 0d 6f 75 74 3d ae  28 66 24 29 0d 08 84 0b  |.z.out=.(f$)....|
00001520  ea 20 6e 6f 74 65 25 0d  08 8e 1c 6e 6f 74 65 25  |. note%....note%|
00001530  3d 2d 31 3a f5 3a 6e 6f  74 65 25 3d 6e 6f 74 65  |=-1:.:note%=note|
00001540  25 2b 31 0d 08 98 13 f1  23 6f 75 74 2c 56 25 28  |%+1.....#out,V%(|
00001550  6e 6f 74 65 25 29 0d 08  a2 13 f1 23 6f 75 74 2c  |note%).....#out,|
00001560  50 25 28 6e 6f 74 65 25  29 0d 08 ac 13 f1 23 6f  |P%(note%).....#o|
00001570  75 74 2c 44 25 28 6e 6f  74 65 25 29 0d 08 b6 13  |ut,D%(note%)....|
00001580  f1 23 6f 75 74 2c 47 25  28 6e 6f 74 65 25 29 0d  |.#out,G%(note%).|
00001590  08 c0 11 fd 20 44 25 28  6e 6f 74 65 25 29 3d 30  |.... D%(note%)=0|
000015a0  0d 08 ca 11 d9 23 6f 75  74 3a 2a 46 58 20 31 32  |.....#out:*FX 12|
000015b0  35 0d 08 d4 05 e1 0d 08  de 05 3a 0d 08 e8 0b dd  |5.........:.....|
000015c0  20 f2 6c 6f 61 64 0d 08  f2 0c f2 69 6e 69 74 69  | .load.....initi|
000015d0  61 6c 0d 08 fc 05 f5 0d  09 06 17 db 3a f1 8a 32  |al..........:..2|
000015e0  2c 33 29 22 4c 4f 41 44  20 74 75 6e 65 22 0d 09  |,3)"LOAD tune"..|
000015f0  10 2d e8 8a 32 2c 35 29  22 45 6e 74 65 72 20 66  |.-..2,5)"Enter f|
00001600  69 6c 65 6e 61 6d 65 28  6d 61 78 2e 20 37 20 6c  |ilename(max. 7 l|
00001610  65 74 74 65 72 73 29 22  2c 66 24 0d 09 1a 17 fd  |etters)",f$.....|
00001620  20 a9 28 66 24 29 3c 38  20 80 20 a9 28 66 24 29  | .(f$)<8 . .(f$)|
00001630  3e 30 0d 09 24 0d 6f 75  74 3d ad 28 66 24 29 0d  |>0..$.out=.(f$).|
00001640  09 2e 0b ea 20 6e 6f 74  65 25 0d 09 38 1c 6e 6f  |.... note%..8.no|
00001650  74 65 25 3d 2d 31 3a f5  3a 6e 6f 74 65 25 3d 6e  |te%=-1:.:note%=n|
00001660  6f 74 65 25 2b 31 0d 09  42 13 e8 23 6f 75 74 2c  |ote%+1..B..#out,|
00001670  56 25 28 6e 6f 74 65 25  29 0d 09 4c 13 e8 23 6f  |V%(note%)..L..#o|
00001680  75 74 2c 50 25 28 6e 6f  74 65 25 29 0d 09 56 13  |ut,P%(note%)..V.|
00001690  e8 23 6f 75 74 2c 44 25  28 6e 6f 74 65 25 29 0d  |.#out,D%(note%).|
000016a0  09 60 13 e8 23 6f 75 74  2c 47 25 28 6e 6f 74 65  |.`..#out,G%(note|
000016b0  25 29 0d 09 6a 0b fd 20  c5 23 6f 75 74 0d 09 74  |%)..j.. .#out..t|
000016c0  09 d9 23 6f 75 74 0d 09  7e 15 6e 6f 74 75 6e 65  |..#out..~.notune|
000016d0  25 3d a3 3a 2a 46 58 20  31 32 35 0d 09 88 05 e1  |%=.:*FX 125.....|
000016e0  0d 09 92 05 3a 0d 09 9c  0d dd 20 f2 64 65 6c 65  |....:..... .dele|
000016f0  74 65 0d 09 a6 09 e6 20  30 2c 31 0d 09 b0 11 6e  |te..... 0,1....n|
00001700  6f 74 65 25 3d 6e 6f 74  65 25 2d 31 0d 09 ba 17  |ote%=note%-1....|
00001710  e7 20 6e 6f 74 65 25 3c  30 20 8c 20 6e 6f 74 65  |. note%<0 . note|
00001720  25 3d 30 0d 09 c4 1f 58  25 3d 58 25 2d 31 30 30  |%=0....X%=X%-100|
00001730  3a e7 20 58 25 3c 31 30  30 20 8c 20 58 25 3d 31  |:. X%<100 . X%=1|
00001740  30 30 0d 09 ce 1b 56 25  28 6e 6f 74 65 25 29 3d  |00....V%(note%)=|
00001750  30 3a 44 25 28 6e 6f 74  65 25 29 3d 30 0d 09 d8  |0:D%(note%)=0...|
00001760  1f ef 20 32 34 2c 58 25  2d 35 30 3b 35 30 30 3b  |.. 24,X%-50;500;|
00001770  58 25 2b 34 30 3b 38 31  30 3b 3a da 0d 09 e2 17  |X%+40;810;:.....|
00001780  79 73 25 3d 35 30 30 3a  ec 20 58 25 2d 35 30 2c  |ys%=500:. X%-50,|
00001790  79 73 25 0d 09 ec 12 e3  20 6c 69 6e 65 25 3d 31  |ys%..... line%=1|
000017a0  20 b8 20 31 34 0d 09 f6  1f e7 20 6c 69 6e 65 25  | . 14..... line%|
000017b0  3d 36 20 84 20 6c 69 6e  65 25 3e 31 31 20 e5 20  |=6 . line%>11 . |
000017c0  8d 54 4a 4a 0d 0a 00 0f  df 20 58 25 2b 34 30 2c  |.TJJ..... X%+40,|
000017d0  79 73 25 0d 0a 0a 1a 79  73 25 3d 79 73 25 2b 32  |ys%....ys%=ys%+2|
000017e0  30 3a ec 20 58 25 2d 35  30 2c 79 73 25 0d 0a 14  |0:. X%-50,ys%...|
000017f0  10 ed 3a ef 20 32 36 3a  e6 20 33 2c 31 0d 0a 1e  |..:. 26:. 3,1...|
00001800  05 e1 0d 0a 28 05 3a 0d  0a 32 0c dd 20 f2 69 6e  |....(.:..2.. .in|
00001810  74 72 6f 0d 0a 3c 18 ef  20 31 39 2c 30 2c 31 3b  |tro..<.. 19,0,1;|
00001820  30 3b 31 39 2c 31 2c 30  3b 30 3b 0d 0a 46 17 e6  |0;19,1,0;0;..F..|
00001830  20 30 2c 31 32 38 3a e6  20 30 2c 31 3a da 3a ef  | 0,128:. 0,1:.:.|
00001840  20 35 0d 0a 50 0a f2 73  74 61 76 65 0d 0a 5a 14  | 5..P..stave..Z.|
00001850  ea 20 58 25 2c 59 25 2c  4e 25 2c 6e 6f 74 65 25  |. X%,Y%,N%,note%|
00001860  0d 0a 64 1b e3 20 6e 6f  74 65 25 3d 30 20 b8 20  |..d.. note%=0 . |
00001870  34 39 3a 70 25 3d 6e 6f  74 65 25 0d 0a 6e 20 58  |49:p%=note%..n X|
00001880  25 3d 31 30 30 2b b3 28  31 30 30 30 29 3a 59 25  |%=100+.(1000):Y%|
00001890  3d 34 30 30 2b b3 28 34  30 30 29 0d 0a 78 0f 4e  |=400+.(400)..x.N|
000018a0  25 3d 32 32 38 2b b3 28  33 29 0d 0a 82 13 ec 20  |%=228+.(3)..... |
000018b0  58 25 2c 59 25 3a f1 bd  28 32 32 38 29 0d 0a 8c  |X%,Y%:..(228)...|
000018c0  15 ec 20 58 25 2c 59 25  2b 33 30 3a f1 bd 28 4e  |.. X%,Y%+30:..(N|
000018d0  25 29 0d 0a 96 1c e7 20  6e 6f 74 65 25 3e 32 34  |%)..... note%>24|
000018e0  20 8c 20 70 25 3d 34 39  2d 6e 6f 74 65 25 0d 0a  | . p%=49-note%..|
000018f0  a0 16 d4 20 31 2c 31 2c  73 63 61 6c 65 25 28 70  |... 1,1,scale%(p|
00001900  25 29 2c 31 0d 0a aa 0b  ed 20 6e 6f 74 65 25 0d  |%),1..... note%.|
00001910  0a b4 11 d1 3d 30 3a f5  20 fd 20 91 3e 32 30 30  |....=0:. . .>200|
00001920  0d 0a be 05 e1 0d 0a c8  05 3a 0d 0a d2 0b dd 20  |.........:..... |
00001930  f2 64 61 74 61 0d 0a dc  0a db 3a ef 20 31 34 0d  |.data.....:. 14.|
00001940  0a e6 2e f1 8a 32 2c 33  29 22 28 44 2d 76 61 6c  |.....2,3)"(D-val|
00001950  75 65 73 20 63 6f 72 72  65 73 70 6f 6e 64 20 74  |ues correspond t|
00001960  6f 20 74 65 6d 70 6f 3d  31 32 30 29 22 0d 0a f0  |o tempo=120)"...|
00001970  2d f1 8a 35 2c 35 29 22  4e 6f 74 65 20 6e 6f 2e  |-..5,5)"Note no.|
00001980  22 2c 22 50 69 74 63 68  22 2c 22 44 75 72 61 74  |","Pitch","Durat|
00001990  69 6f 6e 22 2c 22 47 61  70 22 0d 0a fa 14 ea 20  |ion","Gap"..... |
000019a0  6e 6f 74 65 25 3a 6e 6f  74 65 25 3d 2d 31 0d 0b  |note%:note%=-1..|
000019b0  04 13 f5 3a 6e 6f 74 65  25 3d 6e 6f 74 65 25 2b  |...:note%=note%+|
000019c0  31 0d 0b 0e 18 e7 20 44  25 28 6e 6f 74 65 25 29  |1..... D%(note%)|
000019d0  3d 30 20 e5 20 8d 44 40  4b 0d 0b 18 17 70 69 74  |=0 . .D@K....pit|
000019e0  63 68 24 3d c3 28 50 25  28 6e 6f 74 65 25 29 29  |ch$=.(P%(note%))|
000019f0  0d 0b 22 1f e7 20 56 25  28 6e 6f 74 65 25 29 3d  |..".. V%(note%)=|
00001a00  30 20 70 69 74 63 68 24  3d 22 52 45 53 54 22 0d  |0 pitch$="REST".|
00001a10  0b 2c 24 f1 28 6e 6f 74  65 25 2b 31 29 2c 89 28  |.,$.(note%+1),.(|
00001a20  35 29 3b 70 69 74 63 68  24 2c 44 25 28 6e 6f 74  |5);pitch$,D%(not|
00001a30  65 25 29 0d 0b 36 16 f1  89 28 33 36 29 3b 47 25  |e%)..6...(36);G%|
00001a40  28 6e 6f 74 65 25 2b 31  29 0d 0b 40 11 fd 20 44  |(note%+1)..@.. D|
00001a50  25 28 6e 6f 74 65 25 29  3d 30 0d 0b 4a 09 f5 20  |%(note%)=0..J.. |
00001a60  fd 20 a3 0d 0b 54 05 e1  0d 0b 5e 05 3a 0d 0b 68  |. ...T....^.:..h|
00001a70  0e dd 20 f2 69 6e 69 74  69 61 6c 0d 0b 72 25 de  |.. .initial..r%.|
00001a80  20 50 25 28 33 30 30 29  2c 44 25 28 33 30 30 29  | P%(300),D%(300)|
00001a90  2c 56 25 28 33 30 30 29  2c 47 25 28 33 30 30 29  |,V%(300),G%(300)|
00001aa0  0d 0b 7c 22 6e 6f 74 65  25 3d 30 3a 70 69 74 63  |..|"note%=0:pitc|
00001ab0  68 25 3d 30 3a 64 75 72  25 3d 30 3a 67 61 70 25  |h%=0:dur%=0:gap%|
00001ac0  3d 31 0d 0b 86 17 48 25  3d 32 32 3a 58 25 3d 31  |=1....H%=22:X%=1|
00001ad0  30 30 3a 59 25 3d 36 31  33 0d 0b 90 18 74 65 6d  |00:Y%=613....tem|
00001ae0  70 6f 25 3d 31 32 30 3a  6e 6f 74 75 6e 65 25 3d  |po%=120:notune%=|
00001af0  b9 0d 0b 9a 05 e1 0d 0b  a4 05 3a 0d 0b ae 0a dd  |..........:.....|
00001b00  20 f2 74 69 65 0d 0b b8  0d ef 20 35 3a e6 20 31  | .tie..... 5:. 1|
00001b10  2c 31 0d 0b c2 11 ec 20  58 25 2d 37 30 2c 59 25  |,1..... X%-70,Y%|
00001b20  2d 32 30 0d 0b cc 12 f1  bd 28 32 33 37 29 2b bd  |-20......(237)+.|
00001b30  28 32 33 36 29 0d 0b d6  05 e1 0d 0b e0 05 3a 0d  |(236).........:.|
00001b40  0b ea 13 dd 20 f2 79 63  75 72 73 28 79 70 6f 73  |.... .ycurs(ypos|
00001b50  25 29 0d 0b f4 0d ef 20  35 3a e6 20 33 2c 31 0d  |%)..... 5:. 3,1.|
00001b60  0b fe 18 ec 20 31 32 33  30 2c 79 70 6f 73 25 3a  |.... 1230,ypos%:|
00001b70  f1 bd 28 32 34 38 29 0d  0c 08 07 ef 20 34 0d 0c  |..(248)..... 4..|
00001b80  12 05 e1 0d 0c 1c 05 3a  0d 0c 26 0a dd 20 f2 65  |.......:..&.. .e|
00001b90  6e 64 0d 0c 30 13 ef 20  32 32 2c 36 3a 2a 46 58  |nd..0.. 22,6:*FX|
00001ba0  20 32 31 2c 30 0d 0c 3a  0b 2a 46 58 20 34 2c 30  | 21,0..:.*FX 4,0|
00001bb0  0d 0c 44 0c 2a 46 58 20  31 32 2c 30 0d 0c 4e 08  |..D.*FX 12,0..N.|
00001bc0  2a 4f 50 54 0d 0c 58 07  db 3a e0 0d 0c 62 05 e1  |*OPT..X..:...b..|
00001bd0  0d 0c 6c 05 3a 0d 0c 76  0c dd 20 f2 73 63 61 6c  |..l.:..v.. .scal|
00001be0  65 0d 0c 80 18 ea 20 6e  6f 74 65 25 3a de 20 73  |e..... note%:. s|
00001bf0  63 61 6c 65 25 28 32 35  29 0d 0c 8a 12 e3 20 6e  |cale%(25)..... n|
00001c00  6f 74 65 25 3d 30 20 b8  20 32 34 0d 0c 94 0d f3  |ote%=0 . 24.....|
00001c10  20 70 76 61 6c 75 65 25  0d 0c 9e 19 73 63 61 6c  | pvalue%....scal|
00001c20  65 25 28 6e 6f 74 65 25  29 3d 70 76 61 6c 75 65  |e%(note%)=pvalue|
00001c30  25 0d 0c a8 0b ed 20 6e  6f 74 65 25 0d 0c b2 18  |%..... note%....|
00001c40  dc 20 30 2c 34 2c 31 32  2c 32 30 2c 32 34 2c 33  |. 0,4,12,20,24,3|
00001c50  32 2c 34 30 0d 0c bc 1a  dc 20 34 38 2c 35 32 2c  |2,40..... 48,52,|
00001c60  36 30 2c 36 38 2c 37 32  2c 38 30 2c 38 38 0d 0c  |60,68,72,80,88..|
00001c70  c6 20 dc 20 39 36 2c 31  30 30 2c 31 30 38 2c 31  |. . 96,100,108,1|
00001c80  31 36 2c 31 32 30 2c 31  32 38 2c 31 33 36 0d 0c  |16,120,128,136..|
00001c90  d0 15 dc 20 31 34 34 2c  31 34 38 2c 31 35 36 2c  |... 144,148,156,|
00001ca0  31 36 34 0d 0c da 05 e1  0d 0c e4 0f dd 20 f2 64  |164.......... .d|
00001cb0  75 6d 70 3a ef 20 34 0d  0c ee 21 f1 8a 31 30 2c  |ump:. 4...!..10,|
00001cc0  32 32 29 22 50 72 69 6e  74 65 72 20 64 75 6d 70  |22)"Printer dump|
00001cd0  3f 20 28 59 2f 4e 29 22  0d 0c f8 05 f5 0d 0d 02  |? (Y/N)"........|
00001ce0  17 64 75 6d 70 25 3d a7  22 20 59 79 4e 6e 22 2c  |.dump%=." YyNn",|
00001cf0  be 29 81 32 0d 0d 0c 0b  fd 20 64 75 6d 70 25 0d  |.).2..... dump%.|
00001d00  0d 16 1f e7 20 64 75 6d  70 25 3d 32 20 f1 8a 31  |.... dump%=2 ..1|
00001d10  30 2c 32 32 29 89 31 39  3a ef 20 35 3a e1 0d 0d  |0,22).19:. 5:...|
00001d20  20 19 f1 8a 31 30 2c 32  32 29 89 36 22 44 75 6d  | ...10,22).6"Dum|
00001d30  70 69 6e 67 22 89 36 0d  0d 2a 1f f4 20 54 68 69  |ping".6..*.. Thi|
00001d40  73 20 64 75 6d 70 20 66  6f 72 20 45 70 73 6f 6e  |s dump for Epson|
00001d50  2d 73 74 79 6c 65 0d 0d  34 23 f4 20 70 72 69 6e  |-style..4#. prin|
00001d60  74 65 72 73 20 2d 20 72  65 70 6c 61 63 65 20 6c  |ters - replace l|
00001d70  69 6e 65 73 20 33 34 32  30 0d 0d 3e 20 f4 20 74  |ines 3420..> . t|
00001d80  6f 20 33 35 39 30 20 77  69 74 68 20 79 6f 75 72  |o 3590 with your|
00001d90  20 6f 77 6e 20 64 75 6d  70 0d 0d 48 1b f4 20 72  | own dump..H.. r|
00001da0  6f 75 74 69 6e 65 20 69  66 20 6e 65 63 65 73 73  |outine if necess|
00001db0  61 72 79 2e 0d 0d 52 05  3a 0d 0d 5c 14 ea 20 58  |ary...R.:..\.. X|
00001dc0  25 2c 59 25 2c 41 25 2c  42 25 2c 43 25 0d 0d 66  |%,Y%,A%,B%,C%..f|
00001dd0  25 21 6d 61 73 6b 61 25  3d 26 33 30 31 30 30 30  |%!maska%=&301000|
00001de0  30 3a 21 6d 61 73 6b 62  25 3d 26 33 30 32 30 31  |0:!maskb%=&30201|
00001df0  30 30 0d 0d 70 09 ec 20  30 2c 30 0d 0d 7a 21 ef  |00..p.. 0,0..z!.|
00001e00  20 32 39 2c 30 3b 30 3b  32 2c 31 2c 32 37 2c 31  | 29,0;0;2,1,27,1|
00001e10  2c 36 35 2c 31 2c 38 2c  31 2c 31 30 0d 0d 84 17  |,65,1,8,1,10....|
00001e20  e3 20 59 25 3d 37 36 38  20 b8 20 35 31 32 20 88  |. Y%=768 . 512 .|
00001e30  2d 31 36 0d 0d 8e 19 ef  20 31 2c 32 37 2c 31 2c  |-16..... 1,27,1,|
00001e40  37 36 2c 31 2c 31 39 32  2c 31 2c 33 0d 0d 98 15  |76,1,192,1,3....|
00001e50  e3 20 58 25 3d 30 20 b8  20 31 32 37 36 20 88 20  |. X%=0 . 1276 . |
00001e60  34 0d 0d a2 0d 41 25 3d  30 3a 42 25 3d 30 0d 0d  |4....A%=0:B%=0..|
00001e70  ac 13 e3 20 5a 25 3d 30  20 b8 20 31 32 20 88 20  |... Z%=0 . 12 . |
00001e80  34 0d 0d b6 11 43 25 3d  b0 58 25 2c 59 25 2d 5a  |4....C%=.X%,Y%-Z|
00001e90  25 29 0d 0d c0 15 41 25  3d 41 25 2a 34 2b 6d 61  |%)....A%=A%*4+ma|
00001ea0  73 6b 61 25 3f 43 25 0d  0d ca 15 42 25 3d 42 25  |ska%?C%....B%=B%|
00001eb0  2a 34 2b 6d 61 73 6b 62  25 3f 43 25 0d 0d d4 05  |*4+maskb%?C%....|
00001ec0  ed 0d 0d de 14 ef 20 31  2c 41 25 2c 31 2c 42 25  |...... 1,A%,1,B%|
00001ed0  2c 31 2c 41 25 0d 0d e8  05 ed 0d 0d f2 0a ef 20  |,1,A%.......... |
00001ee0  31 2c 31 30 0d 0d fc 05  ed 0d 0e 06 11 ef 20 31  |1,10.......... 1|
00001ef0  2c 32 37 2c 31 2c 36 34  2c 33 0d 0e 10 05 3a 0d  |,27,1,64,3....:.|
00001f00  0e 1a 0f f1 8a 31 30 2c  32 32 29 89 31 39 0d 0e  |.....10,22).19..|
00001f10  24 05 e1 0d ff                                    |$....|
00001f15