� Versatile music staves
� by John Spray
� (c) The Micro User
(\� 7:� 3:� �(131);�(3);"  VERSATILE MUSIC STAVES PRINTER"'�(131);�(3);"  by John E Spray"
2m� '"ENTER the distance (in inches) that you require the lines to be drawn along the page width. (1-8) :"l
<O� '"ENTER SIZE OF STAVES."'"i.e. distance between ledger lines."'"(1-5) :"s
F�� '"ENTER GAP REQUIRED BETWEEN STAVES."'"Equal to one ledger line width in"'"proportion to SIZE of staves selected. (1-10) :"g
Pz� '"If GAP SIZE No.1 is selected, lines willbe printed continuously in accordance"'"with number of STAVES designated."
Z�� '"ENTER NUMBER OF SETS OF STAVES REQUIRED"'"Experiment in order to fill a page."'"This will obviously be governed by the"'"previous factors! :"n
dD� 2,21:� C=1 � n:� 1,27,1,65,1,s*2+3:� g=1 � 0 � � �g-1,�1+�10);
n� 1,27,1,45,1,1:� J=1 � 5
x� �l*10,�32)
�� J:� C:�:�:� 6,3
�

00000000  0d 00 0a 1c f4 20 56 65  72 73 61 74 69 6c 65 20  |..... Versatile |
00000010  6d 75 73 69 63 20 73 74  61 76 65 73 0d 00 14 13  |music staves....|
00000020  f4 20 62 79 20 4a 6f 68  6e 20 53 70 72 61 79 0d  |. by John Spray.|
00000030  00 1e 18 f4 20 28 63 29  20 54 68 65 20 4d 69 63  |.... (c) The Mic|
00000040  72 6f 20 55 73 65 72 0d  00 28 5c eb 20 37 3a ef  |ro User..(\. 7:.|
00000050  20 33 3a f1 20 bd 28 31  33 31 29 3b 89 28 33 29  | 3:. .(131);.(3)|
00000060  3b 22 20 20 56 45 52 53  41 54 49 4c 45 20 4d 55  |;"  VERSATILE MU|
00000070  53 49 43 20 53 54 41 56  45 53 20 50 52 49 4e 54  |SIC STAVES PRINT|
00000080  45 52 22 27 bd 28 31 33  31 29 3b 89 28 33 29 3b  |ER"'.(131);.(3);|
00000090  22 20 20 62 79 20 4a 6f  68 6e 20 45 20 53 70 72  |"  by John E Spr|
000000a0  61 79 22 0d 00 32 6d e8  20 27 22 45 4e 54 45 52  |ay"..2m. '"ENTER|
000000b0  20 74 68 65 20 64 69 73  74 61 6e 63 65 20 28 69  | the distance (i|
000000c0  6e 20 69 6e 63 68 65 73  29 20 74 68 61 74 20 79  |n inches) that y|
000000d0  6f 75 20 72 65 71 75 69  72 65 20 74 68 65 20 6c  |ou require the l|
000000e0  69 6e 65 73 20 74 6f 20  62 65 20 64 72 61 77 6e  |ines to be drawn|
000000f0  20 61 6c 6f 6e 67 20 74  68 65 20 70 61 67 65 20  | along the page |
00000100  77 69 64 74 68 2e 20 28  31 2d 38 29 20 3a 22 6c  |width. (1-8) :"l|
00000110  0d 00 3c 4f e8 20 27 22  45 4e 54 45 52 20 53 49  |..<O. '"ENTER SI|
00000120  5a 45 20 4f 46 20 53 54  41 56 45 53 2e 22 27 22  |ZE OF STAVES."'"|
00000130  69 2e 65 2e 20 64 69 73  74 61 6e 63 65 20 62 65  |i.e. distance be|
00000140  74 77 65 65 6e 20 6c 65  64 67 65 72 20 6c 69 6e  |tween ledger lin|
00000150  65 73 2e 22 27 22 28 31  2d 35 29 20 3a 22 73 0d  |es."'"(1-5) :"s.|
00000160  00 46 82 e8 20 27 22 45  4e 54 45 52 20 47 41 50  |.F.. '"ENTER GAP|
00000170  20 52 45 51 55 49 52 45  44 20 42 45 54 57 45 45  | REQUIRED BETWEE|
00000180  4e 20 53 54 41 56 45 53  2e 22 27 22 45 71 75 61  |N STAVES."'"Equa|
00000190  6c 20 74 6f 20 6f 6e 65  20 6c 65 64 67 65 72 20  |l to one ledger |
000001a0  6c 69 6e 65 20 77 69 64  74 68 20 69 6e 22 27 22  |line width in"'"|
000001b0  70 72 6f 70 6f 72 74 69  6f 6e 20 74 6f 20 53 49  |proportion to SI|
000001c0  5a 45 20 6f 66 20 73 74  61 76 65 73 20 73 65 6c  |ZE of staves sel|
000001d0  65 63 74 65 64 2e 20 28  31 2d 31 30 29 20 3a 22  |ected. (1-10) :"|
000001e0  67 0d 00 50 7a f1 20 27  22 49 66 20 47 41 50 20  |g..Pz. '"If GAP |
000001f0  53 49 5a 45 20 4e 6f 2e  31 20 69 73 20 73 65 6c  |SIZE No.1 is sel|
00000200  65 63 74 65 64 2c 20 6c  69 6e 65 73 20 77 69 6c  |ected, lines wil|
00000210  6c 62 65 20 70 72 69 6e  74 65 64 20 63 6f 6e 74  |lbe printed cont|
00000220  69 6e 75 6f 75 73 6c 79  20 69 6e 20 61 63 63 6f  |inuously in acco|
00000230  72 64 61 6e 63 65 22 27  22 77 69 74 68 20 6e 75  |rdance"'"with nu|
00000240  6d 62 65 72 20 6f 66 20  53 54 41 56 45 53 20 64  |mber of STAVES d|
00000250  65 73 69 67 6e 61 74 65  64 2e 22 0d 00 5a 96 e8  |esignated."..Z..|
00000260  20 27 22 45 4e 54 45 52  20 4e 55 4d 42 45 52 20  | '"ENTER NUMBER |
00000270  4f 46 20 53 45 54 53 20  4f 46 20 53 54 41 56 45  |OF SETS OF STAVE|
00000280  53 20 52 45 51 55 49 52  45 44 22 27 22 45 78 70  |S REQUIRED"'"Exp|
00000290  65 72 69 6d 65 6e 74 20  69 6e 20 6f 72 64 65 72  |eriment in order|
000002a0  20 74 6f 20 66 69 6c 6c  20 61 20 70 61 67 65 2e  | to fill a page.|
000002b0  22 27 22 54 68 69 73 20  77 69 6c 6c 20 6f 62 76  |"'"This will obv|
000002c0  69 6f 75 73 6c 79 20 62  65 20 67 6f 76 65 72 6e  |iously be govern|
000002d0  65 64 20 62 79 20 74 68  65 22 27 22 70 72 65 76  |ed by the"'"prev|
000002e0  69 6f 75 73 20 66 61 63  74 6f 72 73 21 20 3a 22  |ious factors! :"|
000002f0  6e 0d 00 64 44 ef 20 32  2c 32 31 3a e3 20 43 3d  |n..dD. 2,21:. C=|
00000300  31 20 b8 20 6e 3a ef 20  31 2c 32 37 2c 31 2c 36  |1 . n:. 1,27,1,6|
00000310  35 2c 31 2c 73 2a 32 2b  33 3a e7 20 67 3d 31 20  |5,1,s*2+3:. g=1 |
00000320  ef 20 30 20 8b 20 f1 20  c4 67 2d 31 2c bd 31 2b  |. 0 . . .g-1,.1+|
00000330  bd 31 30 29 3b 0d 00 6e  1d ef 20 31 2c 32 37 2c  |.10);..n.. 1,27,|
00000340  31 2c 34 35 2c 31 2c 31  3a e3 20 4a 3d 31 20 b8  |1,45,1,1:. J=1 .|
00000350  20 35 0d 00 78 10 f1 20  c4 6c 2a 31 30 2c bd 33  | 5..x.. .l*10,.3|
00000360  32 29 0d 00 82 15 ed 20  4a 3a ed 20 43 3a f1 3a  |2)..... J:. C:.:|
00000370  f1 3a ef 20 36 2c 33 0d  ff                       |.:. 6,3..|
00000379