�>Manu_Menu

-� Menu for Manuscript Music Paper Printer
((� � Graham Campbell - September 1996
2
< � e-mail = gdc@argonet.co.uk
F
P9� ---------------------------------------------------
Z
d�12
n� � �error
x	�init
�	�menu
��
�
�
���init:at%=@%:@%=&0:�blue:�
�
���blue:�19,0,4,0,0,0:�
���red:�19,0,1,0,0,0:�
�
���error
�9� ON ERROR OFF:COLOUR7:ON:REPORT:PRINT" at line ";ERL
�� � �:�7:�"DESKTOP"
��



��titles(t$,line%,ul%)

*tab%=((79-�t$)/2):underline$=ĩt$,"-")

"�tab%,line%)t$

,#� ul% �tab%,line%+1)underline$

6�

@

J
��menu

TLa$="Music Manuscript Paper Printing Program - graham campbell - � ix.96"

^b$="M e n u    P a g e"

h�7:�titles(a$,5,�)

r�titles(b$,8,�)

|�3

�9�5,14)"Press  1  for single-stave manuscript paper."

��2

�9�5,17)"Press  2  for double-stave manuscript paper."

��5

�+�5,20)"Press  Q  to quit the program."

��6

��5,25)"c h o i c e  :  ";

�ș"OS_Confirm" � ch%

��:@%=at%

�Ȏ ch% �

�(� �"1":�"<manuscript$dir>.Manuscrpt"

�)� �"2":�"<manuscript$dir>.Manuscrpt2"

�/� �"q":�"UNSET manuscript$dir":�"DESKTOP":�

�
�
&�
�

00000000  0d 00 0a 0f f4 3e 4d 61  6e 75 5f 4d 65 6e 75 0d  |.....>Manu_Menu.|
00000010  00 14 04 0d 00 1e 2d f4  20 4d 65 6e 75 20 66 6f  |......-. Menu fo|
00000020  72 20 4d 61 6e 75 73 63  72 69 70 74 20 4d 75 73  |r Manuscript Mus|
00000030  69 63 20 50 61 70 65 72  20 50 72 69 6e 74 65 72  |ic Paper Printer|
00000040  0d 00 28 28 f4 20 a9 20  47 72 61 68 61 6d 20 43  |..((. . Graham C|
00000050  61 6d 70 62 65 6c 6c 20  2d 20 53 65 70 74 65 6d  |ampbell - Septem|
00000060  62 65 72 20 31 39 39 36  0d 00 32 04 0d 00 3c 20  |ber 1996..2...< |
00000070  f4 20 65 2d 6d 61 69 6c  20 3d 20 67 64 63 40 61  |. e-mail = gdc@a|
00000080  72 67 6f 6e 65 74 2e 63  6f 2e 75 6b 0d 00 46 04  |rgonet.co.uk..F.|
00000090  0d 00 50 39 f4 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..P9. ----------|
000000a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000000c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 00 5a 04 0d 00 64  |---------..Z...d|
000000d0  07 eb 31 32 0d 00 6e 0e  ee 20 85 20 f2 65 72 72  |..12..n.. . .err|
000000e0  6f 72 0d 00 78 09 f2 69  6e 69 74 0d 00 82 09 f2  |or..x..init.....|
000000f0  6d 65 6e 75 0d 00 8c 05  e0 0d 00 96 04 0d 00 a0  |menu............|
00000100  04 0d 00 aa 1f dd f2 69  6e 69 74 3a 61 74 25 3d  |.......init:at%=|
00000110  40 25 3a 40 25 3d 26 30  3a f2 62 6c 75 65 3a e1  |@%:@%=&0:.blue:.|
00000120  0d 00 b4 04 0d 00 be 1a  dd f2 62 6c 75 65 3a ef  |..........blue:.|
00000130  31 39 2c 30 2c 34 2c 30  2c 30 2c 30 3a e1 0d 00  |19,0,4,0,0,0:...|
00000140  c8 19 dd f2 72 65 64 3a  ef 31 39 2c 30 2c 31 2c  |....red:.19,0,1,|
00000150  30 2c 30 2c 30 3a e1 0d  00 d2 04 0d 00 dc 0b dd  |0,0,0:..........|
00000160  f2 65 72 72 6f 72 0d 00  e6 39 f4 20 4f 4e 20 45  |.error...9. ON E|
00000170  52 52 4f 52 20 4f 46 46  3a 43 4f 4c 4f 55 52 37  |RROR OFF:COLOUR7|
00000180  3a 4f 4e 3a 52 45 50 4f  52 54 3a 50 52 49 4e 54  |:ON:REPORT:PRINT|
00000190  22 20 61 74 20 6c 69 6e  65 20 22 3b 45 52 4c 0d  |" at line ";ERL.|
000001a0  00 f0 17 ee 20 85 20 87  3a fb 37 3a ff 22 44 45  |.... . .:.7:."DE|
000001b0  53 4b 54 4f 50 22 0d 00  fa 05 e0 0d 01 04 04 0d  |SKTOP"..........|
000001c0  01 0e 1a dd f2 74 69 74  6c 65 73 28 74 24 2c 6c  |.....titles(t$,l|
000001d0  69 6e 65 25 2c 75 6c 25  29 0d 01 18 2a 74 61 62  |ine%,ul%)...*tab|
000001e0  25 3d 28 28 37 39 2d a9  74 24 29 2f 32 29 3a 75  |%=((79-.t$)/2):u|
000001f0  6e 64 65 72 6c 69 6e 65  24 3d c4 a9 74 24 2c 22  |nderline$=..t$,"|
00000200  2d 22 29 0d 01 22 13 f1  8a 74 61 62 25 2c 6c 69  |-").."...tab%,li|
00000210  6e 65 25 29 74 24 0d 01  2c 23 e7 20 75 6c 25 20  |ne%)t$..,#. ul% |
00000220  f1 8a 74 61 62 25 2c 6c  69 6e 65 25 2b 31 29 75  |..tab%,line%+1)u|
00000230  6e 64 65 72 6c 69 6e 65  24 0d 01 36 05 e1 0d 01  |nderline$..6....|
00000240  40 04 0d 01 4a 0a dd f2  6d 65 6e 75 0d 01 54 4c  |@...J...menu..TL|
00000250  61 24 3d 22 4d 75 73 69  63 20 4d 61 6e 75 73 63  |a$="Music Manusc|
00000260  72 69 70 74 20 50 61 70  65 72 20 50 72 69 6e 74  |ript Paper Print|
00000270  69 6e 67 20 50 72 6f 67  72 61 6d 20 2d 20 67 72  |ing Program - gr|
00000280  61 68 61 6d 20 63 61 6d  70 62 65 6c 6c 20 2d 20  |aham campbell - |
00000290  a9 20 69 78 2e 39 36 22  0d 01 5e 1b 62 24 3d 22  |. ix.96"..^.b$="|
000002a0  4d 20 65 20 6e 20 75 20  20 20 20 50 20 61 20 67  |M e n u    P a g|
000002b0  20 65 22 0d 01 68 16 fb  37 3a f2 74 69 74 6c 65  | e"..h..7:.title|
000002c0  73 28 61 24 2c 35 2c b9  29 0d 01 72 13 f2 74 69  |s(a$,5,.)..r..ti|
000002d0  74 6c 65 73 28 62 24 2c  38 2c b9 29 0d 01 7c 06  |tles(b$,8,.)..|.|
000002e0  fb 33 0d 01 86 39 f1 8a  35 2c 31 34 29 22 50 72  |.3...9..5,14)"Pr|
000002f0  65 73 73 20 20 31 20 20  66 6f 72 20 73 69 6e 67  |ess  1  for sing|
00000300  6c 65 2d 73 74 61 76 65  20 6d 61 6e 75 73 63 72  |le-stave manuscr|
00000310  69 70 74 20 70 61 70 65  72 2e 22 0d 01 90 06 fb  |ipt paper.".....|
00000320  32 0d 01 9a 39 f1 8a 35  2c 31 37 29 22 50 72 65  |2...9..5,17)"Pre|
00000330  73 73 20 20 32 20 20 66  6f 72 20 64 6f 75 62 6c  |ss  2  for doubl|
00000340  65 2d 73 74 61 76 65 20  6d 61 6e 75 73 63 72 69  |e-stave manuscri|
00000350  70 74 20 70 61 70 65 72  2e 22 0d 01 a4 06 fb 35  |pt paper.".....5|
00000360  0d 01 ae 2b f1 8a 35 2c  32 30 29 22 50 72 65 73  |...+..5,20)"Pres|
00000370  73 20 20 51 20 20 74 6f  20 71 75 69 74 20 74 68  |s  Q  to quit th|
00000380  65 20 70 72 6f 67 72 61  6d 2e 22 0d 01 b8 06 fb  |e program.".....|
00000390  36 0d 01 c2 1e f1 8a 35  2c 32 35 29 22 63 20 68  |6......5,25)"c h|
000003a0  20 6f 20 69 20 63 20 65  20 20 3a 20 20 22 3b 0d  | o i c e  :  ";.|
000003b0  01 cc 18 c8 99 22 4f 53  5f 43 6f 6e 66 69 72 6d  |....."OS_Confirm|
000003c0  22 20 b8 20 63 68 25 0d  01 d6 0c db 3a 40 25 3d  |" . ch%.....:@%=|
000003d0  61 74 25 0d 01 e0 0c c8  8e 20 63 68 25 20 ca 0d  |at%...... ch% ..|
000003e0  01 ea 28 c9 20 97 22 31  22 3a d7 22 3c 6d 61 6e  |..(. ."1":."<man|
000003f0  75 73 63 72 69 70 74 24  64 69 72 3e 2e 4d 61 6e  |uscript$dir>.Man|
00000400  75 73 63 72 70 74 22 0d  01 f4 29 c9 20 97 22 32  |uscrpt"...). ."2|
00000410  22 3a d7 22 3c 6d 61 6e  75 73 63 72 69 70 74 24  |":."<manuscript$|
00000420  64 69 72 3e 2e 4d 61 6e  75 73 63 72 70 74 32 22  |dir>.Manuscrpt2"|
00000430  0d 01 fe 2f c9 20 97 22  71 22 3a ff 22 55 4e 53  |.../. ."q":."UNS|
00000440  45 54 20 6d 61 6e 75 73  63 72 69 70 74 24 64 69  |ET manuscript$di|
00000450  72 22 3a ff 22 44 45 53  4b 54 4f 50 22 3a e0 0d  |r":."DESKTOP":..|
00000460  02 08 05 7f 0d 02 12 05  f9 0d 02 1c 05 cb 0d 02  |................|
00000470  26 05 e1 0d ff                                    |&....|
00000475