�0:quit=�
� � �:�" @ ";�:�
	�init
(�getstaves
2�checkstaves
<� quit � �
F�measurestaves
P�
Z:
d
��init
n�space 16,sarea &80000
x<!sarea=&80000:!(sarea+8)=16:ș "OS_SpriteOp",9+256,sarea
�4ș "OS_SpriteOp",10+256,sarea,"<Obey$Dir>.bach1"
�Aș "OS_SpriteOp",40+256,sarea,"scan_image" � ,,,xsize%,ysize%
��
�:
�
��draw
�4!space=1:!(space+4)=1:!(space+8)=2:!(space+12)=2
�Hș "OS_SpriteOp",52+256,sarea,"scan_image",0,1024-ysize%*2,0,space,0
��
�:
���getstaves
�8�stave(16,5),nolines(16):staves%=0:slast%=ysize%+200
��y%=ysize%-1 �0�-1
�Fș "OS_SpriteOp",41+256,sarea,"scan_image",xsize% �4,y% � ,,,,,cl%

�cl%<>0�


 ct%=0

 �yc%=y%-1 � y%+1

"$  �x%=(xsize% � 4)�(xsize% �2)�4

,C   ș "OS_SpriteOp",41+256,sarea,"scan_image",x%,yc% � ,,,,,cl%

6   ct%=ct%+cl%

@  �

J �

T. � ct%>(xsize%*0.1) � �gotline(y%):y%=y%-4

^�

h�

r�

|:

���gotline(y%)

�(� y%<(slast%-20) � staves%=staves%+1

�&stave(staves%,nolines(staves%))=y%

�?� nolines(staves%)<>5 � nolines(staves%)=nolines(staves%)+1

�
slast%=y%

��

�:

���checkstaves

�?�"Please confirm:"'''"This score has ";staves%;" staves."''

�� s=1 � staves%

�4�"Stave ";s;" consists of ";nolines(s);" lines."

��

��'''"IS THIS OK? (Y/N)"
� A$=�:� �"YyNn",A$)<>0
� �"Nn",A$)<>0 �
' �'"Please re-scan and try again."'
& quit=�
0�
:�
D:
N��measurestaves
X!�start(staves%),stop(staves%)
b� s=1 � staves%
l x%=0:� x%=x%+1:ct%=0
v  �lin=0�nolines(s)-1
�+   �y=(stave(s,lin)-1)�(stave(s,lin)+1)
�B    ș "OS_SpriteOp",41+256,sarea,"scan_image",x%,y � ,,,,,cl%
�    ct%=ct%+cl%
�   �
�  �
�  � ct%>(1.8*nolines(s)) �
�   ct%=0
�   �lin=0�nolines(s)-1
�,    �y=(stave(s,lin)+5)�(stave(s,lin)+7)
�C     ș "OS_SpriteOp",41+256,sarea,"scan_image",x%,y � ,,,,,cl%
�     ct%=ct%+1-cl%
�	    �
�   �
  �
  � ct%>(2.5*nolines(s))
  start(s)=x%
 :
* x%=xsize%:� x%=x%-1:ct%=0
4  �lin=0�nolines(s)-1
>+   �y=(stave(s,lin)-1)�(stave(s,lin)+1)
HB    ș "OS_SpriteOp",41+256,sarea,"scan_image",x%,y � ,,,,,cl%
R    ct%=ct%+cl%
\   �
f  �
p  � ct%>(1.8*nolines(s)) �
z   ct%=0
�   �lin=0�nolines(s)-1
�,    �y=(stave(s,lin)+5)�(stave(s,lin)+7)
�C     ș "OS_SpriteOp",41+256,sarea,"scan_image",x%,y � ,,,,,cl%
�     ct%=ct%+1-cl%
�	    �
�   �
�  �
�  � ct%>(2.5*nolines(s))
�  stop(s)=x%
��start(s),stop(s)
��
��
�

00000000  0d 00 0a 0d eb 30 3a 71  75 69 74 3d a3 0d 00 14  |.....0:quit=....|
00000010  14 ee 20 85 20 f6 3a f1  22 20 40 20 22 3b 9e 3a  |.. . .:." @ ";.:|
00000020  e0 0d 00 1e 09 f2 69 6e  69 74 0d 00 28 0e f2 67  |......init..(..g|
00000030  65 74 73 74 61 76 65 73  0d 00 32 10 f2 63 68 65  |etstaves..2..che|
00000040  63 6b 73 74 61 76 65 73  0d 00 3c 0e e7 20 71 75  |ckstaves..<.. qu|
00000050  69 74 20 8c 20 e0 0d 00  46 12 f2 6d 65 61 73 75  |it . ...F..measu|
00000060  72 65 73 74 61 76 65 73  0d 00 50 05 e0 0d 00 5a  |restaves..P....Z|
00000070  05 3a 0d 00 64 0a dd f2  69 6e 69 74 0d 00 6e 1a  |.:..d...init..n.|
00000080  de 73 70 61 63 65 20 31  36 2c 73 61 72 65 61 20  |.space 16,sarea |
00000090  26 38 30 30 30 30 0d 00  78 3c 21 73 61 72 65 61  |&80000..x<!sarea|
000000a0  3d 26 38 30 30 30 30 3a  21 28 73 61 72 65 61 2b  |=&80000:!(sarea+|
000000b0  38 29 3d 31 36 3a c8 99  20 22 4f 53 5f 53 70 72  |8)=16:.. "OS_Spr|
000000c0  69 74 65 4f 70 22 2c 39  2b 32 35 36 2c 73 61 72  |iteOp",9+256,sar|
000000d0  65 61 0d 00 82 34 c8 99  20 22 4f 53 5f 53 70 72  |ea...4.. "OS_Spr|
000000e0  69 74 65 4f 70 22 2c 31  30 2b 32 35 36 2c 73 61  |iteOp",10+256,sa|
000000f0  72 65 61 2c 22 3c 4f 62  65 79 24 44 69 72 3e 2e  |rea,"<Obey$Dir>.|
00000100  62 61 63 68 31 22 0d 00  8c 41 c8 99 20 22 4f 53  |bach1"...A.. "OS|
00000110  5f 53 70 72 69 74 65 4f  70 22 2c 34 30 2b 32 35  |_SpriteOp",40+25|
00000120  36 2c 73 61 72 65 61 2c  22 73 63 61 6e 5f 69 6d  |6,sarea,"scan_im|
00000130  61 67 65 22 20 b8 20 2c  2c 2c 78 73 69 7a 65 25  |age" . ,,,xsize%|
00000140  2c 79 73 69 7a 65 25 0d  00 96 05 e1 0d 00 a0 05  |,ysize%.........|
00000150  3a 0d 00 aa 0a dd f2 64  72 61 77 0d 00 b4 34 21  |:......draw...4!|
00000160  73 70 61 63 65 3d 31 3a  21 28 73 70 61 63 65 2b  |space=1:!(space+|
00000170  34 29 3d 31 3a 21 28 73  70 61 63 65 2b 38 29 3d  |4)=1:!(space+8)=|
00000180  32 3a 21 28 73 70 61 63  65 2b 31 32 29 3d 32 0d  |2:!(space+12)=2.|
00000190  00 be 48 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |..H.. "OS_Sprite|
000001a0  4f 70 22 2c 35 32 2b 32  35 36 2c 73 61 72 65 61  |Op",52+256,sarea|
000001b0  2c 22 73 63 61 6e 5f 69  6d 61 67 65 22 2c 30 2c  |,"scan_image",0,|
000001c0  31 30 32 34 2d 79 73 69  7a 65 25 2a 32 2c 30 2c  |1024-ysize%*2,0,|
000001d0  73 70 61 63 65 2c 30 0d  00 c8 05 e1 0d 00 d2 05  |space,0.........|
000001e0  3a 0d 00 dc 0f dd f2 67  65 74 73 74 61 76 65 73  |:......getstaves|
000001f0  0d 00 e6 38 de 73 74 61  76 65 28 31 36 2c 35 29  |...8.stave(16,5)|
00000200  2c 6e 6f 6c 69 6e 65 73  28 31 36 29 3a 73 74 61  |,nolines(16):sta|
00000210  76 65 73 25 3d 30 3a 73  6c 61 73 74 25 3d 79 73  |ves%=0:slast%=ys|
00000220  69 7a 65 25 2b 32 30 30  0d 00 f0 16 e3 79 25 3d  |ize%+200.....y%=|
00000230  79 73 69 7a 65 25 2d 31  20 b8 30 88 2d 31 0d 00  |ysize%-1 .0.-1..|
00000240  fa 46 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |.F.. "OS_SpriteO|
00000250  70 22 2c 34 31 2b 32 35  36 2c 73 61 72 65 61 2c  |p",41+256,sarea,|
00000260  22 73 63 61 6e 5f 69 6d  61 67 65 22 2c 78 73 69  |"scan_image",xsi|
00000270  7a 65 25 20 81 34 2c 79  25 20 b8 20 2c 2c 2c 2c  |ze% .4,y% . ,,,,|
00000280  2c 63 6c 25 0d 01 04 0c  e7 63 6c 25 3c 3e 30 8c  |,cl%.....cl%<>0.|
00000290  0d 01 0e 0a 20 63 74 25  3d 30 0d 01 18 15 20 e3  |.... ct%=0.... .|
000002a0  79 63 25 3d 79 25 2d 31  20 b8 20 79 25 2b 31 0d  |yc%=y%-1 . y%+1.|
000002b0  01 22 24 20 20 e3 78 25  3d 28 78 73 69 7a 65 25  |."$  .x%=(xsize%|
000002c0  20 81 20 34 29 b8 28 78  73 69 7a 65 25 20 81 32  | . 4).(xsize% .2|
000002d0  29 88 34 0d 01 2c 43 20  20 20 c8 99 20 22 4f 53  |).4..,C   .. "OS|
000002e0  5f 53 70 72 69 74 65 4f  70 22 2c 34 31 2b 32 35  |_SpriteOp",41+25|
000002f0  36 2c 73 61 72 65 61 2c  22 73 63 61 6e 5f 69 6d  |6,sarea,"scan_im|
00000300  61 67 65 22 2c 78 25 2c  79 63 25 20 b8 20 2c 2c  |age",x%,yc% . ,,|
00000310  2c 2c 2c 63 6c 25 0d 01  36 12 20 20 20 63 74 25  |,,,cl%..6.   ct%|
00000320  3d 63 74 25 2b 63 6c 25  0d 01 40 07 20 20 ed 0d  |=ct%+cl%..@.  ..|
00000330  01 4a 06 20 ed 0d 01 54  2e 20 e7 20 63 74 25 3e  |.J. ...T. . ct%>|
00000340  28 78 73 69 7a 65 25 2a  30 2e 31 29 20 8c 20 f2  |(xsize%*0.1) . .|
00000350  67 6f 74 6c 69 6e 65 28  79 25 29 3a 79 25 3d 79  |gotline(y%):y%=y|
00000360  25 2d 34 0d 01 5e 05 cd  0d 01 68 05 ed 0d 01 72  |%-4..^....h....r|
00000370  05 e1 0d 01 7c 05 3a 0d  01 86 11 dd f2 67 6f 74  |....|.:......got|
00000380  6c 69 6e 65 28 79 25 29  0d 01 90 28 e7 20 79 25  |line(y%)...(. y%|
00000390  3c 28 73 6c 61 73 74 25  2d 32 30 29 20 8c 20 73  |<(slast%-20) . s|
000003a0  74 61 76 65 73 25 3d 73  74 61 76 65 73 25 2b 31  |taves%=staves%+1|
000003b0  0d 01 9a 26 73 74 61 76  65 28 73 74 61 76 65 73  |...&stave(staves|
000003c0  25 2c 6e 6f 6c 69 6e 65  73 28 73 74 61 76 65 73  |%,nolines(staves|
000003d0  25 29 29 3d 79 25 0d 01  a4 3f e7 20 6e 6f 6c 69  |%))=y%...?. noli|
000003e0  6e 65 73 28 73 74 61 76  65 73 25 29 3c 3e 35 20  |nes(staves%)<>5 |
000003f0  8c 20 6e 6f 6c 69 6e 65  73 28 73 74 61 76 65 73  |. nolines(staves|
00000400  25 29 3d 6e 6f 6c 69 6e  65 73 28 73 74 61 76 65  |%)=nolines(stave|
00000410  73 25 29 2b 31 0d 01 ae  0d 73 6c 61 73 74 25 3d  |s%)+1....slast%=|
00000420  79 25 0d 01 b8 05 e1 0d  01 c2 05 3a 0d 01 cc 11  |y%.........:....|
00000430  dd f2 63 68 65 63 6b 73  74 61 76 65 73 0d 01 d6  |..checkstaves...|
00000440  3f f1 22 50 6c 65 61 73  65 20 63 6f 6e 66 69 72  |?."Please confir|
00000450  6d 3a 22 27 27 27 22 54  68 69 73 20 73 63 6f 72  |m:"'''"This scor|
00000460  65 20 68 61 73 20 22 3b  73 74 61 76 65 73 25 3b  |e has ";staves%;|
00000470  22 20 73 74 61 76 65 73  2e 22 27 27 0d 01 e0 13  |" staves."''....|
00000480  e3 20 73 3d 31 20 b8 20  73 74 61 76 65 73 25 0d  |. s=1 . staves%.|
00000490  01 ea 34 f1 22 53 74 61  76 65 20 22 3b 73 3b 22  |..4."Stave ";s;"|
000004a0  20 63 6f 6e 73 69 73 74  73 20 6f 66 20 22 3b 6e  | consists of ";n|
000004b0  6f 6c 69 6e 65 73 28 73  29 3b 22 20 6c 69 6e 65  |olines(s);" line|
000004c0  73 2e 22 0d 01 f4 05 ed  0d 01 fe 1b f1 27 27 27  |s."..........'''|
000004d0  22 49 53 20 54 48 49 53  20 4f 4b 3f 20 28 59 2f  |"IS THIS OK? (Y/|
000004e0  4e 29 22 0d 02 08 1b f5  20 41 24 3d be 3a fd 20  |N)"..... A$=.:. |
000004f0  a7 22 59 79 4e 6e 22 2c  41 24 29 3c 3e 30 0d 02  |."YyNn",A$)<>0..|
00000500  12 14 e7 20 a7 22 4e 6e  22 2c 41 24 29 3c 3e 30  |... ."Nn",A$)<>0|
00000510  20 8c 0d 02 1c 27 20 f1  27 22 50 6c 65 61 73 65  | ....' .'"Please|
00000520  20 72 65 2d 73 63 61 6e  20 61 6e 64 20 74 72 79  | re-scan and try|
00000530  20 61 67 61 69 6e 2e 22  27 0d 02 26 0b 20 71 75  | again."'..&. qu|
00000540  69 74 3d b9 0d 02 30 05  cd 0d 02 3a 05 e1 0d 02  |it=...0....:....|
00000550  44 05 3a 0d 02 4e 13 dd  f2 6d 65 61 73 75 72 65  |D.:..N...measure|
00000560  73 74 61 76 65 73 0d 02  58 21 de 73 74 61 72 74  |staves..X!.start|
00000570  28 73 74 61 76 65 73 25  29 2c 73 74 6f 70 28 73  |(staves%),stop(s|
00000580  74 61 76 65 73 25 29 0d  02 62 13 e3 20 73 3d 31  |taves%)..b.. s=1|
00000590  20 b8 20 73 74 61 76 65  73 25 0d 02 6c 19 20 78  | . staves%..l. x|
000005a0  25 3d 30 3a f5 20 78 25  3d 78 25 2b 31 3a 63 74  |%=0:. x%=x%+1:ct|
000005b0  25 3d 30 0d 02 76 19 20  20 e3 6c 69 6e 3d 30 b8  |%=0..v.  .lin=0.|
000005c0  6e 6f 6c 69 6e 65 73 28  73 29 2d 31 0d 02 80 2b  |nolines(s)-1...+|
000005d0  20 20 20 e3 79 3d 28 73  74 61 76 65 28 73 2c 6c  |   .y=(stave(s,l|
000005e0  69 6e 29 2d 31 29 b8 28  73 74 61 76 65 28 73 2c  |in)-1).(stave(s,|
000005f0  6c 69 6e 29 2b 31 29 0d  02 8a 42 20 20 20 20 c8  |lin)+1)...B    .|
00000600  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00000610  34 31 2b 32 35 36 2c 73  61 72 65 61 2c 22 73 63  |41+256,sarea,"sc|
00000620  61 6e 5f 69 6d 61 67 65  22 2c 78 25 2c 79 20 b8  |an_image",x%,y .|
00000630  20 2c 2c 2c 2c 2c 63 6c  25 0d 02 94 13 20 20 20  | ,,,,,cl%....   |
00000640  20 63 74 25 3d 63 74 25  2b 63 6c 25 0d 02 9e 08  | ct%=ct%+cl%....|
00000650  20 20 20 ed 0d 02 a8 07  20 20 ed 0d 02 b2 1e 20  |   .....  ..... |
00000660  20 e7 20 63 74 25 3e 28  31 2e 38 2a 6e 6f 6c 69  | . ct%>(1.8*noli|
00000670  6e 65 73 28 73 29 29 20  8c 0d 02 bc 0c 20 20 20  |nes(s)) .....   |
00000680  63 74 25 3d 30 0d 02 c6  1a 20 20 20 e3 6c 69 6e  |ct%=0....   .lin|
00000690  3d 30 b8 6e 6f 6c 69 6e  65 73 28 73 29 2d 31 0d  |=0.nolines(s)-1.|
000006a0  02 d0 2c 20 20 20 20 e3  79 3d 28 73 74 61 76 65  |..,    .y=(stave|
000006b0  28 73 2c 6c 69 6e 29 2b  35 29 b8 28 73 74 61 76  |(s,lin)+5).(stav|
000006c0  65 28 73 2c 6c 69 6e 29  2b 37 29 0d 02 da 43 20  |e(s,lin)+7)...C |
000006d0  20 20 20 20 c8 99 20 22  4f 53 5f 53 70 72 69 74  |    .. "OS_Sprit|
000006e0  65 4f 70 22 2c 34 31 2b  32 35 36 2c 73 61 72 65  |eOp",41+256,sare|
000006f0  61 2c 22 73 63 61 6e 5f  69 6d 61 67 65 22 2c 78  |a,"scan_image",x|
00000700  25 2c 79 20 b8 20 2c 2c  2c 2c 2c 63 6c 25 0d 02  |%,y . ,,,,,cl%..|
00000710  e4 16 20 20 20 20 20 63  74 25 3d 63 74 25 2b 31  |..     ct%=ct%+1|
00000720  2d 63 6c 25 0d 02 ee 09  20 20 20 20 ed 0d 02 f8  |-cl%....    ....|
00000730  08 20 20 20 ed 0d 03 02  07 20 20 cd 0d 03 0c 1c  |.   .....  .....|
00000740  20 20 fd 20 63 74 25 3e  28 32 2e 35 2a 6e 6f 6c  |  . ct%>(2.5*nol|
00000750  69 6e 65 73 28 73 29 29  0d 03 16 11 20 20 73 74  |ines(s))....  st|
00000760  61 72 74 28 73 29 3d 78  25 0d 03 20 05 3a 0d 03  |art(s)=x%.. .:..|
00000770  2a 1e 20 78 25 3d 78 73  69 7a 65 25 3a f5 20 78  |*. x%=xsize%:. x|
00000780  25 3d 78 25 2d 31 3a 63  74 25 3d 30 0d 03 34 19  |%=x%-1:ct%=0..4.|
00000790  20 20 e3 6c 69 6e 3d 30  b8 6e 6f 6c 69 6e 65 73  |  .lin=0.nolines|
000007a0  28 73 29 2d 31 0d 03 3e  2b 20 20 20 e3 79 3d 28  |(s)-1..>+   .y=(|
000007b0  73 74 61 76 65 28 73 2c  6c 69 6e 29 2d 31 29 b8  |stave(s,lin)-1).|
000007c0  28 73 74 61 76 65 28 73  2c 6c 69 6e 29 2b 31 29  |(stave(s,lin)+1)|
000007d0  0d 03 48 42 20 20 20 20  c8 99 20 22 4f 53 5f 53  |..HB    .. "OS_S|
000007e0  70 72 69 74 65 4f 70 22  2c 34 31 2b 32 35 36 2c  |priteOp",41+256,|
000007f0  73 61 72 65 61 2c 22 73  63 61 6e 5f 69 6d 61 67  |sarea,"scan_imag|
00000800  65 22 2c 78 25 2c 79 20  b8 20 2c 2c 2c 2c 2c 63  |e",x%,y . ,,,,,c|
00000810  6c 25 0d 03 52 13 20 20  20 20 63 74 25 3d 63 74  |l%..R.    ct%=ct|
00000820  25 2b 63 6c 25 0d 03 5c  08 20 20 20 ed 0d 03 66  |%+cl%..\.   ...f|
00000830  07 20 20 ed 0d 03 70 1e  20 20 e7 20 63 74 25 3e  |.  ...p.  . ct%>|
00000840  28 31 2e 38 2a 6e 6f 6c  69 6e 65 73 28 73 29 29  |(1.8*nolines(s))|
00000850  20 8c 0d 03 7a 0c 20 20  20 63 74 25 3d 30 0d 03  | ...z.   ct%=0..|
00000860  84 1a 20 20 20 e3 6c 69  6e 3d 30 b8 6e 6f 6c 69  |..   .lin=0.noli|
00000870  6e 65 73 28 73 29 2d 31  0d 03 8e 2c 20 20 20 20  |nes(s)-1...,    |
00000880  e3 79 3d 28 73 74 61 76  65 28 73 2c 6c 69 6e 29  |.y=(stave(s,lin)|
00000890  2b 35 29 b8 28 73 74 61  76 65 28 73 2c 6c 69 6e  |+5).(stave(s,lin|
000008a0  29 2b 37 29 0d 03 98 43  20 20 20 20 20 c8 99 20  |)+7)...C     .. |
000008b0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 34 31  |"OS_SpriteOp",41|
000008c0  2b 32 35 36 2c 73 61 72  65 61 2c 22 73 63 61 6e  |+256,sarea,"scan|
000008d0  5f 69 6d 61 67 65 22 2c  78 25 2c 79 20 b8 20 2c  |_image",x%,y . ,|
000008e0  2c 2c 2c 2c 63 6c 25 0d  03 a2 16 20 20 20 20 20  |,,,,cl%....     |
000008f0  63 74 25 3d 63 74 25 2b  31 2d 63 6c 25 0d 03 ac  |ct%=ct%+1-cl%...|
00000900  09 20 20 20 20 ed 0d 03  b6 08 20 20 20 ed 0d 03  |.    .....   ...|
00000910  c0 07 20 20 cd 0d 03 ca  1c 20 20 fd 20 63 74 25  |..  .....  . ct%|
00000920  3e 28 32 2e 35 2a 6e 6f  6c 69 6e 65 73 28 73 29  |>(2.5*nolines(s)|
00000930  29 0d 03 d4 10 20 20 73  74 6f 70 28 73 29 3d 78  |)....  stop(s)=x|
00000940  25 0d 03 de 15 f1 73 74  61 72 74 28 73 29 2c 73  |%.....start(s),s|
00000950  74 6f 70 28 73 29 0d 03  e8 05 ed 0d 03 f2 05 e1  |top(s)..........|
00000960  0d ff                                             |..|
00000962