,� Library procedure : give help to !Help
&� ********************************
&� Send message to interactive help
(&� ********************************
24��GiveHelp(Window%,Icon%,MouseX%,MouseY%):�Mess$
<7Tab$="TAB toggles Caret between Side A and Side B."
FȎWindow%�
P��-2:Mess$="Cassette Inlay Printer.|MFully integrated with the leading Acorn CD player, !CDtracker from Werewolf Software (0181-467 1138).|M"
Z
�New%�
dGMess$+="\Sstart with blank screen.|M\A start with on-screen hints."
n�
x:Mess$+="Click SELECT or ADJUST to show current Inlay."
��
�&�Main%:Track%=(Icon%�2)+1:ȎIcon%�
���42:Mess$="Click to print the Inlay. SELECT includes the Tape number, ADJUST omits it, (unless the PrintNo file has been set to zero - in which case the reverse applies.|MThe PRINT key does the same as SELECT."
�#�0,2,4,6,8,10,12,14,16,18,20,22
�
�Icon%=0�
��
��
��Icon%=22�
��
��
�HMess$="Enter the title of track number "+�(Track%)+" Side A:|M"+Tab$
�#�1,3,5,7,9,11,13,15,17,19,21,23
�
�Icon%=1�

�

�

HMess$="Enter the title of track number "+�(Track%)+" Side B:|M"+Tab$

"
�24,26

,Side$=�(65 - 1*(Icon%=26))

6BMess$="Enter the title of the album on side "+Side$+":|M"+Tab$

@
�25,27

JSide$=�(65 - 1*(Icon%=27))

TBMess$="Enter the Name of the artist on side "+Side$+":|M"+Tab$

^�28,30,32,34,36

hJMess$="Enter the title of track number "+�(Track%-2)+" Side A:|M"+Tab$

r�29,31,33,35,37

|JMess$="Enter the title of track number "+�(Track%-2)+" Side B:|M"+Tab$

���38:Mess$="Press this button to Insert the heading 'Side A' if it is not there already and if there is room on the inlay for it to fit.|MPressing f5 performs the same function."

���39:Mess$="Press this button to Insert the heading 'Side B' if it is not there already and if there is room on the inlay for it to fit.|MPressing f6 performs the same function."

���TapeNumber%:Mess$="This is the Index number for this cassette.|MIf it is of the form 'No XX' and the Save box has the prefix 'CassNo' then the Save file and Tape numbers will increment after each save."

�

�}Mess$="Misc. Help :|Mf10 - Swap case   f11 - Delete to end of line|MSHIFT f9 - Wipe all fields.   Home - Go to Track 1|M"

��

��Info%:ȎIcon%�

�L�-1:Mess$="This box gives information about the program and the author."

�0�04:Mess$="This is the name of the program."

�3�09:Mess$="This is the purpose of the program."

��12:Mess$="This is the name of the author who enhanced the program versions after 1.25.|MThe original idea and programming was by Mark Bright."

�w�15:Mess$="This is the version number of the program you are using. (Please quote this number in any bug reports)."

���17,18:Mess$="Mark Bright has given up programming RISC OS and asked me to look after and enhance his Cassette application."
��16,19:Mess$="A very sophisticated CD player/database that imports/exports from other applications including Cassette is available - See details in Help file."
�
�Save%:Ȏ Icon% �
&a�-1:Mess$="This box allows you to save data in a file or transfer it to another Application."
0��00:Mess$="Drag this icon to the directory where you want to save the file. Or drag it to the Application into which you want to transfer the data."
:��01:Mess$="This is the filename for this data. If it is not a full pathname, drag the icon into a directory display.|MIncrementing file names are possible. See help file."
D��02:Mess$="Click to save the data with the current filename. If it is not a full pathname, drag the icon into a directory display."
N�
X
b5� ***********************************************
l5� no more windows so anything else must be a menu
v5� ***********************************************
��Version>=218�Icon%<>-1 �
�1ș"Wimp_GetMenuState",1,q%+1024,Window%,Icon%
�ȎMenuActive%�
��IconBarMenu%:Ȏ q%!1024 �
�>�0:�q%!1028=-1 � Mess$="\Rsee information about Cassette."
��1:Mess$="\Squit Cassette."
��
��MainWinMenu%:Ȏ q%!1024 �
�>�0:�q%!1028=-1 � Mess$="\Rsee information about Cassette."
�(�1:Mess$="\Rsave the current inlay."
���2:Mess$="\Sstandardise the format of the inlay.|MIf clicked with ADJUST the central Title and Artist fields are capitalised.|MIn combination with SHIFT CDtracker's export message (if present) is removed."
���3:Mess$="\Sclose up any gaps in the track titles. (Caused by Control U or Delete.)|MIf selected with ADJUST button or in combination with the SHIFT key Sides A and B will be combined into a single list."
���4:Mess$="\Sopen a gap at the Caret position. Use ADJUST to open multiple gaps.|MThis facility will only work if there is space at the bottom of the selected Side, A or B."
Y�5:Mess$="\S transfer tracks from Side A to Side B starting from the Caret position."
?�6:Mess$="\Sdelete all of the text from the current inlay."
m�7:Mess$="\Srestore the inlay shown before the last file import, format, close gap or Wipe all operation"
 V�8:Mess$="\Strim the length of the data so that it will fit on the printed inlay."
*�
4q Mess$="UNKNOWN MENU|MThis is a bug, please report this to the author quoting 'UNKNOWN MENU &"+�~(Menu%)+"'"
>�
H�
R�
\:
f@� **********************************************************
p@� the message is decided, send it to the calling application
z@� **********************************************************
�:
�q%!12=q%!8:q%!16=&503
�!q%=(�(Mess$)+25)� � 3
�$(q%+20)=Mess$+�0
�#ș"Wimp_SendMessage",17,q%,q%!4
��
�

00000000  0d 00 0a 2c f4 20 4c 69  62 72 61 72 79 20 70 72  |...,. Library pr|
00000010  6f 63 65 64 75 72 65 20  3a 20 67 69 76 65 20 68  |ocedure : give h|
00000020  65 6c 70 20 74 6f 20 21  48 65 6c 70 0d 00 14 26  |elp to !Help...&|
00000030  f4 20 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |. **************|
00000040  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000050  2a 2a 0d 00 1e 26 f4 20  53 65 6e 64 20 6d 65 73  |**...&. Send mes|
00000060  73 61 67 65 20 74 6f 20  69 6e 74 65 72 61 63 74  |sage to interact|
00000070  69 76 65 20 68 65 6c 70  0d 00 28 26 f4 20 2a 2a  |ive help..(&. **|
00000080  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000090  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 00  |**************..|
000000a0  32 34 dd f2 47 69 76 65  48 65 6c 70 28 57 69 6e  |24..GiveHelp(Win|
000000b0  64 6f 77 25 2c 49 63 6f  6e 25 2c 4d 6f 75 73 65  |dow%,Icon%,Mouse|
000000c0  58 25 2c 4d 6f 75 73 65  59 25 29 3a ea 4d 65 73  |X%,MouseY%):.Mes|
000000d0  73 24 0d 00 3c 37 54 61  62 24 3d 22 54 41 42 20  |s$..<7Tab$="TAB |
000000e0  74 6f 67 67 6c 65 73 20  43 61 72 65 74 20 62 65  |toggles Caret be|
000000f0  74 77 65 65 6e 20 53 69  64 65 20 41 20 61 6e 64  |tween Side A and|
00000100  20 53 69 64 65 20 42 2e  22 0d 00 46 0e c8 8e 57  | Side B."..F...W|
00000110  69 6e 64 6f 77 25 ca 0d  00 50 90 c9 2d 32 3a 4d  |indow%...P..-2:M|
00000120  65 73 73 24 3d 22 43 61  73 73 65 74 74 65 20 49  |ess$="Cassette I|
00000130  6e 6c 61 79 20 50 72 69  6e 74 65 72 2e 7c 4d 46  |nlay Printer.|MF|
00000140  75 6c 6c 79 20 69 6e 74  65 67 72 61 74 65 64 20  |ully integrated |
00000150  77 69 74 68 20 74 68 65  20 6c 65 61 64 69 6e 67  |with the leading|
00000160  20 41 63 6f 72 6e 20 43  44 20 70 6c 61 79 65 72  | Acorn CD player|
00000170  2c 20 21 43 44 74 72 61  63 6b 65 72 20 66 72 6f  |, !CDtracker fro|
00000180  6d 20 57 65 72 65 77 6f  6c 66 20 53 6f 66 74 77  |m Werewolf Softw|
00000190  61 72 65 20 28 30 31 38  31 2d 34 36 37 20 31 31  |are (0181-467 11|
000001a0  33 38 29 2e 7c 4d 22 0d  00 5a 0a e7 4e 65 77 25  |38).|M"..Z..New%|
000001b0  8c 0d 00 64 47 4d 65 73  73 24 2b 3d 22 5c 53 73  |...dGMess$+="\Ss|
000001c0  74 61 72 74 20 77 69 74  68 20 62 6c 61 6e 6b 20  |tart with blank |
000001d0  73 63 72 65 65 6e 2e 7c  4d 5c 41 20 73 74 61 72  |screen.|M\A star|
000001e0  74 20 77 69 74 68 20 6f  6e 2d 73 63 72 65 65 6e  |t with on-screen|
000001f0  20 68 69 6e 74 73 2e 22  0d 00 6e 05 cc 0d 00 78  | hints."..n....x|
00000200  3a 4d 65 73 73 24 2b 3d  22 43 6c 69 63 6b 20 53  |:Mess$+="Click S|
00000210  45 4c 45 43 54 20 6f 72  20 41 44 4a 55 53 54 20  |ELECT or ADJUST |
00000220  74 6f 20 73 68 6f 77 20  63 75 72 72 65 6e 74 20  |to show current |
00000230  49 6e 6c 61 79 2e 22 0d  00 82 05 cd 0d 00 8c 26  |Inlay."........&|
00000240  c9 4d 61 69 6e 25 3a 54  72 61 63 6b 25 3d 28 49  |.Main%:Track%=(I|
00000250  63 6f 6e 25 81 32 29 2b  31 3a c8 8e 49 63 6f 6e  |con%.2)+1:..Icon|
00000260  25 ca 0d 00 96 d6 c9 34  32 3a 4d 65 73 73 24 3d  |%......42:Mess$=|
00000270  22 43 6c 69 63 6b 20 74  6f 20 70 72 69 6e 74 20  |"Click to print |
00000280  74 68 65 20 49 6e 6c 61  79 2e 20 53 45 4c 45 43  |the Inlay. SELEC|
00000290  54 20 69 6e 63 6c 75 64  65 73 20 74 68 65 20 54  |T includes the T|
000002a0  61 70 65 20 6e 75 6d 62  65 72 2c 20 41 44 4a 55  |ape number, ADJU|
000002b0  53 54 20 6f 6d 69 74 73  20 69 74 2c 20 28 75 6e  |ST omits it, (un|
000002c0  6c 65 73 73 20 74 68 65  20 50 72 69 6e 74 4e 6f  |less the PrintNo|
000002d0  20 66 69 6c 65 20 68 61  73 20 62 65 65 6e 20 73  | file has been s|
000002e0  65 74 20 74 6f 20 7a 65  72 6f 20 2d 20 69 6e 20  |et to zero - in |
000002f0  77 68 69 63 68 20 63 61  73 65 20 74 68 65 20 72  |which case the r|
00000300  65 76 65 72 73 65 20 61  70 70 6c 69 65 73 2e 7c  |everse applies.||
00000310  4d 54 68 65 20 50 52 49  4e 54 20 6b 65 79 20 64  |MThe PRINT key d|
00000320  6f 65 73 20 74 68 65 20  73 61 6d 65 20 61 73 20  |oes the same as |
00000330  53 45 4c 45 43 54 2e 22  0d 00 a0 23 c9 30 2c 32  |SELECT."...#.0,2|
00000340  2c 34 2c 36 2c 38 2c 31  30 2c 31 32 2c 31 34 2c  |,4,6,8,10,12,14,|
00000350  31 36 2c 31 38 2c 32 30  2c 32 32 0d 00 aa 0d e7  |16,18,20,22.....|
00000360  49 63 6f 6e 25 3d 30 8c  0d 00 b4 05 cc 0d 00 be  |Icon%=0.........|
00000370  05 cd 0d 00 c8 0e e7 49  63 6f 6e 25 3d 32 32 8c  |.......Icon%=22.|
00000380  0d 00 d2 05 cc 0d 00 dc  05 cd 0d 00 e6 48 4d 65  |.............HMe|
00000390  73 73 24 3d 22 45 6e 74  65 72 20 74 68 65 20 74  |ss$="Enter the t|
000003a0  69 74 6c 65 20 6f 66 20  74 72 61 63 6b 20 6e 75  |itle of track nu|
000003b0  6d 62 65 72 20 22 2b c3  28 54 72 61 63 6b 25 29  |mber "+.(Track%)|
000003c0  2b 22 20 53 69 64 65 20  41 3a 7c 4d 22 2b 54 61  |+" Side A:|M"+Ta|
000003d0  62 24 0d 00 f0 23 c9 31  2c 33 2c 35 2c 37 2c 39  |b$...#.1,3,5,7,9|
000003e0  2c 31 31 2c 31 33 2c 31  35 2c 31 37 2c 31 39 2c  |,11,13,15,17,19,|
000003f0  32 31 2c 32 33 0d 00 fa  0d e7 49 63 6f 6e 25 3d  |21,23.....Icon%=|
00000400  31 8c 0d 01 04 05 cc 0d  01 0e 05 cd 0d 01 18 48  |1..............H|
00000410  4d 65 73 73 24 3d 22 45  6e 74 65 72 20 74 68 65  |Mess$="Enter the|
00000420  20 74 69 74 6c 65 20 6f  66 20 74 72 61 63 6b 20  | title of track |
00000430  6e 75 6d 62 65 72 20 22  2b c3 28 54 72 61 63 6b  |number "+.(Track|
00000440  25 29 2b 22 20 53 69 64  65 20 42 3a 7c 4d 22 2b  |%)+" Side B:|M"+|
00000450  54 61 62 24 0d 01 22 0a  c9 32 34 2c 32 36 0d 01  |Tab$.."..24,26..|
00000460  2c 1e 53 69 64 65 24 3d  bd 28 36 35 20 2d 20 31  |,.Side$=.(65 - 1|
00000470  2a 28 49 63 6f 6e 25 3d  32 36 29 29 0d 01 36 42  |*(Icon%=26))..6B|
00000480  4d 65 73 73 24 3d 22 45  6e 74 65 72 20 74 68 65  |Mess$="Enter the|
00000490  20 74 69 74 6c 65 20 6f  66 20 74 68 65 20 61 6c  | title of the al|
000004a0  62 75 6d 20 6f 6e 20 73  69 64 65 20 22 2b 53 69  |bum on side "+Si|
000004b0  64 65 24 2b 22 3a 7c 4d  22 2b 54 61 62 24 0d 01  |de$+":|M"+Tab$..|
000004c0  40 0a c9 32 35 2c 32 37  0d 01 4a 1e 53 69 64 65  |@..25,27..J.Side|
000004d0  24 3d bd 28 36 35 20 2d  20 31 2a 28 49 63 6f 6e  |$=.(65 - 1*(Icon|
000004e0  25 3d 32 37 29 29 0d 01  54 42 4d 65 73 73 24 3d  |%=27))..TBMess$=|
000004f0  22 45 6e 74 65 72 20 74  68 65 20 4e 61 6d 65 20  |"Enter the Name |
00000500  6f 66 20 74 68 65 20 61  72 74 69 73 74 20 6f 6e  |of the artist on|
00000510  20 73 69 64 65 20 22 2b  53 69 64 65 24 2b 22 3a  | side "+Side$+":|
00000520  7c 4d 22 2b 54 61 62 24  0d 01 5e 13 c9 32 38 2c  ||M"+Tab$..^..28,|
00000530  33 30 2c 33 32 2c 33 34  2c 33 36 0d 01 68 4a 4d  |30,32,34,36..hJM|
00000540  65 73 73 24 3d 22 45 6e  74 65 72 20 74 68 65 20  |ess$="Enter the |
00000550  74 69 74 6c 65 20 6f 66  20 74 72 61 63 6b 20 6e  |title of track n|
00000560  75 6d 62 65 72 20 22 2b  c3 28 54 72 61 63 6b 25  |umber "+.(Track%|
00000570  2d 32 29 2b 22 20 53 69  64 65 20 41 3a 7c 4d 22  |-2)+" Side A:|M"|
00000580  2b 54 61 62 24 0d 01 72  13 c9 32 39 2c 33 31 2c  |+Tab$..r..29,31,|
00000590  33 33 2c 33 35 2c 33 37  0d 01 7c 4a 4d 65 73 73  |33,35,37..|JMess|
000005a0  24 3d 22 45 6e 74 65 72  20 74 68 65 20 74 69 74  |$="Enter the tit|
000005b0  6c 65 20 6f 66 20 74 72  61 63 6b 20 6e 75 6d 62  |le of track numb|
000005c0  65 72 20 22 2b c3 28 54  72 61 63 6b 25 2d 32 29  |er "+.(Track%-2)|
000005d0  2b 22 20 53 69 64 65 20  42 3a 7c 4d 22 2b 54 61  |+" Side B:|M"+Ta|
000005e0  62 24 0d 01 86 b5 c9 33  38 3a 4d 65 73 73 24 3d  |b$.....38:Mess$=|
000005f0  22 50 72 65 73 73 20 74  68 69 73 20 62 75 74 74  |"Press this butt|
00000600  6f 6e 20 74 6f 20 49 6e  73 65 72 74 20 74 68 65  |on to Insert the|
00000610  20 68 65 61 64 69 6e 67  20 27 53 69 64 65 20 41  | heading 'Side A|
00000620  27 20 69 66 20 69 74 20  69 73 20 6e 6f 74 20 74  |' if it is not t|
00000630  68 65 72 65 20 61 6c 72  65 61 64 79 20 61 6e 64  |here already and|
00000640  20 69 66 20 74 68 65 72  65 20 69 73 20 72 6f 6f  | if there is roo|
00000650  6d 20 6f 6e 20 74 68 65  20 69 6e 6c 61 79 20 66  |m on the inlay f|
00000660  6f 72 20 69 74 20 74 6f  20 66 69 74 2e 7c 4d 50  |or it to fit.|MP|
00000670  72 65 73 73 69 6e 67 20  66 35 20 70 65 72 66 6f  |ressing f5 perfo|
00000680  72 6d 73 20 74 68 65 20  73 61 6d 65 20 66 75 6e  |rms the same fun|
00000690  63 74 69 6f 6e 2e 22 0d  01 90 b5 c9 33 39 3a 4d  |ction.".....39:M|
000006a0  65 73 73 24 3d 22 50 72  65 73 73 20 74 68 69 73  |ess$="Press this|
000006b0  20 62 75 74 74 6f 6e 20  74 6f 20 49 6e 73 65 72  | button to Inser|
000006c0  74 20 74 68 65 20 68 65  61 64 69 6e 67 20 27 53  |t the heading 'S|
000006d0  69 64 65 20 42 27 20 69  66 20 69 74 20 69 73 20  |ide B' if it is |
000006e0  6e 6f 74 20 74 68 65 72  65 20 61 6c 72 65 61 64  |not there alread|
000006f0  79 20 61 6e 64 20 69 66  20 74 68 65 72 65 20 69  |y and if there i|
00000700  73 20 72 6f 6f 6d 20 6f  6e 20 74 68 65 20 69 6e  |s room on the in|
00000710  6c 61 79 20 66 6f 72 20  69 74 20 74 6f 20 66 69  |lay for it to fi|
00000720  74 2e 7c 4d 50 72 65 73  73 69 6e 67 20 66 36 20  |t.|MPressing f6 |
00000730  70 65 72 66 6f 72 6d 73  20 74 68 65 20 73 61 6d  |performs the sam|
00000740  65 20 66 75 6e 63 74 69  6f 6e 2e 22 0d 01 9a cf  |e function."....|
00000750  c9 54 61 70 65 4e 75 6d  62 65 72 25 3a 4d 65 73  |.TapeNumber%:Mes|
00000760  73 24 3d 22 54 68 69 73  20 69 73 20 74 68 65 20  |s$="This is the |
00000770  49 6e 64 65 78 20 6e 75  6d 62 65 72 20 66 6f 72  |Index number for|
00000780  20 74 68 69 73 20 63 61  73 73 65 74 74 65 2e 7c  | this cassette.||
00000790  4d 49 66 20 69 74 20 69  73 20 6f 66 20 74 68 65  |MIf it is of the|
000007a0  20 66 6f 72 6d 20 27 4e  6f 20 58 58 27 20 61 6e  | form 'No XX' an|
000007b0  64 20 74 68 65 20 53 61  76 65 20 62 6f 78 20 68  |d the Save box h|
000007c0  61 73 20 74 68 65 20 70  72 65 66 69 78 20 27 43  |as the prefix 'C|
000007d0  61 73 73 4e 6f 27 20 74  68 65 6e 20 74 68 65 20  |assNo' then the |
000007e0  53 61 76 65 20 66 69 6c  65 20 61 6e 64 20 54 61  |Save file and Ta|
000007f0  70 65 20 6e 75 6d 62 65  72 73 20 77 69 6c 6c 20  |pe numbers will |
00000800  69 6e 63 72 65 6d 65 6e  74 20 61 66 74 65 72 20  |increment after |
00000810  65 61 63 68 20 73 61 76  65 2e 22 0d 01 a4 05 7f  |each save.".....|
00000820  0d 01 ae 7d 4d 65 73 73  24 3d 22 4d 69 73 63 2e  |...}Mess$="Misc.|
00000830  20 48 65 6c 70 20 3a 7c  4d 66 31 30 20 2d 20 53  | Help :|Mf10 - S|
00000840  77 61 70 20 63 61 73 65  20 20 20 66 31 31 20 2d  |wap case   f11 -|
00000850  20 44 65 6c 65 74 65 20  74 6f 20 65 6e 64 20 6f  | Delete to end o|
00000860  66 20 6c 69 6e 65 7c 4d  53 48 49 46 54 20 66 39  |f line|MSHIFT f9|
00000870  20 2d 20 57 69 70 65 20  61 6c 6c 20 66 69 65 6c  | - Wipe all fiel|
00000880  64 73 2e 20 20 20 48 6f  6d 65 20 2d 20 47 6f 20  |ds.   Home - Go |
00000890  74 6f 20 54 72 61 63 6b  20 31 7c 4d 22 0d 01 b8  |to Track 1|M"...|
000008a0  05 cb 0d 01 c2 13 c9 49  6e 66 6f 25 3a c8 8e 49  |.......Info%:..I|
000008b0  63 6f 6e 25 ca 0d 01 cc  4c c9 2d 31 3a 4d 65 73  |con%....L.-1:Mes|
000008c0  73 24 3d 22 54 68 69 73  20 62 6f 78 20 67 69 76  |s$="This box giv|
000008d0  65 73 20 69 6e 66 6f 72  6d 61 74 69 6f 6e 20 61  |es information a|
000008e0  62 6f 75 74 20 74 68 65  20 70 72 6f 67 72 61 6d  |bout the program|
000008f0  20 61 6e 64 20 74 68 65  20 61 75 74 68 6f 72 2e  | and the author.|
00000900  22 0d 01 d6 30 c9 30 34  3a 4d 65 73 73 24 3d 22  |"...0.04:Mess$="|
00000910  54 68 69 73 20 69 73 20  74 68 65 20 6e 61 6d 65  |This is the name|
00000920  20 6f 66 20 74 68 65 20  70 72 6f 67 72 61 6d 2e  | of the program.|
00000930  22 0d 01 e0 33 c9 30 39  3a 4d 65 73 73 24 3d 22  |"...3.09:Mess$="|
00000940  54 68 69 73 20 69 73 20  74 68 65 20 70 75 72 70  |This is the purp|
00000950  6f 73 65 20 6f 66 20 74  68 65 20 70 72 6f 67 72  |ose of the progr|
00000960  61 6d 2e 22 0d 01 ea 93  c9 31 32 3a 4d 65 73 73  |am.".....12:Mess|
00000970  24 3d 22 54 68 69 73 20  69 73 20 74 68 65 20 6e  |$="This is the n|
00000980  61 6d 65 20 6f 66 20 74  68 65 20 61 75 74 68 6f  |ame of the autho|
00000990  72 20 77 68 6f 20 65 6e  68 61 6e 63 65 64 20 74  |r who enhanced t|
000009a0  68 65 20 70 72 6f 67 72  61 6d 20 76 65 72 73 69  |he program versi|
000009b0  6f 6e 73 20 61 66 74 65  72 20 31 2e 32 35 2e 7c  |ons after 1.25.||
000009c0  4d 54 68 65 20 6f 72 69  67 69 6e 61 6c 20 69 64  |MThe original id|
000009d0  65 61 20 61 6e 64 20 70  72 6f 67 72 61 6d 6d 69  |ea and programmi|
000009e0  6e 67 20 77 61 73 20 62  79 20 4d 61 72 6b 20 42  |ng was by Mark B|
000009f0  72 69 67 68 74 2e 22 0d  01 f4 77 c9 31 35 3a 4d  |right."...w.15:M|
00000a00  65 73 73 24 3d 22 54 68  69 73 20 69 73 20 74 68  |ess$="This is th|
00000a10  65 20 76 65 72 73 69 6f  6e 20 6e 75 6d 62 65 72  |e version number|
00000a20  20 6f 66 20 74 68 65 20  70 72 6f 67 72 61 6d 20  | of the program |
00000a30  79 6f 75 20 61 72 65 20  75 73 69 6e 67 2e 20 28  |you are using. (|
00000a40  50 6c 65 61 73 65 20 71  75 6f 74 65 20 74 68 69  |Please quote thi|
00000a50  73 20 6e 75 6d 62 65 72  20 69 6e 20 61 6e 79 20  |s number in any |
00000a60  62 75 67 20 72 65 70 6f  72 74 73 29 2e 22 0d 01  |bug reports)."..|
00000a70  fe 80 c9 31 37 2c 31 38  3a 4d 65 73 73 24 3d 22  |...17,18:Mess$="|
00000a80  4d 61 72 6b 20 42 72 69  67 68 74 20 68 61 73 20  |Mark Bright has |
00000a90  67 69 76 65 6e 20 75 70  20 70 72 6f 67 72 61 6d  |given up program|
00000aa0  6d 69 6e 67 20 52 49 53  43 20 4f 53 20 61 6e 64  |ming RISC OS and|
00000ab0  20 61 73 6b 65 64 20 6d  65 20 74 6f 20 6c 6f 6f  | asked me to loo|
00000ac0  6b 20 61 66 74 65 72 20  61 6e 64 20 65 6e 68 61  |k after and enha|
00000ad0  6e 63 65 20 68 69 73 20  43 61 73 73 65 74 74 65  |nce his Cassette|
00000ae0  20 61 70 70 6c 69 63 61  74 69 6f 6e 2e 22 0d 02  | application."..|
00000af0  08 a3 c9 31 36 2c 31 39  3a 4d 65 73 73 24 3d 22  |...16,19:Mess$="|
00000b00  41 20 76 65 72 79 20 73  6f 70 68 69 73 74 69 63  |A very sophistic|
00000b10  61 74 65 64 20 43 44 20  70 6c 61 79 65 72 2f 64  |ated CD player/d|
00000b20  61 74 61 62 61 73 65 20  74 68 61 74 20 69 6d 70  |atabase that imp|
00000b30  6f 72 74 73 2f 65 78 70  6f 72 74 73 20 66 72 6f  |orts/exports fro|
00000b40  6d 20 6f 74 68 65 72 20  61 70 70 6c 69 63 61 74  |m other applicat|
00000b50  69 6f 6e 73 20 69 6e 63  6c 75 64 69 6e 67 20 43  |ions including C|
00000b60  61 73 73 65 74 74 65 20  69 73 20 61 76 61 69 6c  |assette is avail|
00000b70  61 62 6c 65 20 2d 20 53  65 65 20 64 65 74 61 69  |able - See detai|
00000b80  6c 73 20 69 6e 20 48 65  6c 70 20 66 69 6c 65 2e  |ls in Help file.|
00000b90  22 0d 02 12 05 cb 0d 02  1c 15 c9 53 61 76 65 25  |"..........Save%|
00000ba0  3a c8 8e 20 49 63 6f 6e  25 20 ca 0d 02 26 61 c9  |:.. Icon% ...&a.|
00000bb0  2d 31 3a 4d 65 73 73 24  3d 22 54 68 69 73 20 62  |-1:Mess$="This b|
00000bc0  6f 78 20 61 6c 6c 6f 77  73 20 79 6f 75 20 74 6f  |ox allows you to|
00000bd0  20 73 61 76 65 20 64 61  74 61 20 69 6e 20 61 20  | save data in a |
00000be0  66 69 6c 65 20 6f 72 20  74 72 61 6e 73 66 65 72  |file or transfer|
00000bf0  20 69 74 20 74 6f 20 61  6e 6f 74 68 65 72 20 41  | it to another A|
00000c00  70 70 6c 69 63 61 74 69  6f 6e 2e 22 0d 02 30 98  |pplication."..0.|
00000c10  c9 30 30 3a 4d 65 73 73  24 3d 22 44 72 61 67 20  |.00:Mess$="Drag |
00000c20  74 68 69 73 20 69 63 6f  6e 20 74 6f 20 74 68 65  |this icon to the|
00000c30  20 64 69 72 65 63 74 6f  72 79 20 77 68 65 72 65  | directory where|
00000c40  20 79 6f 75 20 77 61 6e  74 20 74 6f 20 73 61 76  | you want to sav|
00000c50  65 20 74 68 65 20 66 69  6c 65 2e 20 4f 72 20 64  |e the file. Or d|
00000c60  72 61 67 20 69 74 20 74  6f 20 74 68 65 20 41 70  |rag it to the Ap|
00000c70  70 6c 69 63 61 74 69 6f  6e 20 69 6e 74 6f 20 77  |plication into w|
00000c80  68 69 63 68 20 79 6f 75  20 77 61 6e 74 20 74 6f  |hich you want to|
00000c90  20 74 72 61 6e 73 66 65  72 20 74 68 65 20 64 61  | transfer the da|
00000ca0  74 61 2e 22 0d 02 3a af  c9 30 31 3a 4d 65 73 73  |ta."..:..01:Mess|
00000cb0  24 3d 22 54 68 69 73 20  69 73 20 74 68 65 20 66  |$="This is the f|
00000cc0  69 6c 65 6e 61 6d 65 20  66 6f 72 20 74 68 69 73  |ilename for this|
00000cd0  20 64 61 74 61 2e 20 49  66 20 69 74 20 69 73 20  | data. If it is |
00000ce0  6e 6f 74 20 61 20 66 75  6c 6c 20 70 61 74 68 6e  |not a full pathn|
00000cf0  61 6d 65 2c 20 64 72 61  67 20 74 68 65 20 69 63  |ame, drag the ic|
00000d00  6f 6e 20 69 6e 74 6f 20  61 20 64 69 72 65 63 74  |on into a direct|
00000d10  6f 72 79 20 64 69 73 70  6c 61 79 2e 7c 4d 49 6e  |ory display.|MIn|
00000d20  63 72 65 6d 65 6e 74 69  6e 67 20 66 69 6c 65 20  |crementing file |
00000d30  6e 61 6d 65 73 20 61 72  65 20 70 6f 73 73 69 62  |names are possib|
00000d40  6c 65 2e 20 53 65 65 20  68 65 6c 70 20 66 69 6c  |le. See help fil|
00000d50  65 2e 22 0d 02 44 87 c9  30 32 3a 4d 65 73 73 24  |e."..D..02:Mess$|
00000d60  3d 22 43 6c 69 63 6b 20  74 6f 20 73 61 76 65 20  |="Click to save |
00000d70  74 68 65 20 64 61 74 61  20 77 69 74 68 20 74 68  |the data with th|
00000d80  65 20 63 75 72 72 65 6e  74 20 66 69 6c 65 6e 61  |e current filena|
00000d90  6d 65 2e 20 49 66 20 69  74 20 69 73 20 6e 6f 74  |me. If it is not|
00000da0  20 61 20 66 75 6c 6c 20  70 61 74 68 6e 61 6d 65  | a full pathname|
00000db0  2c 20 64 72 61 67 20 74  68 65 20 69 63 6f 6e 20  |, drag the icon |
00000dc0  69 6e 74 6f 20 61 20 64  69 72 65 63 74 6f 72 79  |into a directory|
00000dd0  20 64 69 73 70 6c 61 79  2e 22 0d 02 4e 05 cb 0d  | display."..N...|
00000de0  02 58 05 7f 0d 02 62 35  f4 20 2a 2a 2a 2a 2a 2a  |.X....b5. ******|
00000df0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000e10  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 02 6c 35 f4 20 6e  |*********..l5. n|
00000e20  6f 20 6d 6f 72 65 20 77  69 6e 64 6f 77 73 20 73  |o more windows s|
00000e30  6f 20 61 6e 79 74 68 69  6e 67 20 65 6c 73 65 20  |o anything else |
00000e40  6d 75 73 74 20 62 65 20  61 20 6d 65 6e 75 0d 02  |must be a menu..|
00000e50  76 35 f4 20 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |v5. ************|
00000e60  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000e80  2a 2a 2a 0d 02 80 1d e7  56 65 72 73 69 6f 6e 3e  |***.....Version>|
00000e90  3d 32 31 38 80 49 63 6f  6e 25 3c 3e 2d 31 20 8c  |=218.Icon%<>-1 .|
00000ea0  0d 02 8a 31 c8 99 22 57  69 6d 70 5f 47 65 74 4d  |...1.."Wimp_GetM|
00000eb0  65 6e 75 53 74 61 74 65  22 2c 31 2c 71 25 2b 31  |enuState",1,q%+1|
00000ec0  30 32 34 2c 57 69 6e 64  6f 77 25 2c 49 63 6f 6e  |024,Window%,Icon|
00000ed0  25 0d 02 94 12 c8 8e 4d  65 6e 75 41 63 74 69 76  |%......MenuActiv|
00000ee0  65 25 ca 0d 02 9e 1e c9  49 63 6f 6e 42 61 72 4d  |e%......IconBarM|
00000ef0  65 6e 75 25 3a c8 8e 20  71 25 21 31 30 32 34 20  |enu%:.. q%!1024 |
00000f00  ca 0d 02 a8 3e c9 30 3a  e7 71 25 21 31 30 32 38  |....>.0:.q%!1028|
00000f10  3d 2d 31 20 8c 20 4d 65  73 73 24 3d 22 5c 52 73  |=-1 . Mess$="\Rs|
00000f20  65 65 20 69 6e 66 6f 72  6d 61 74 69 6f 6e 20 61  |ee information a|
00000f30  62 6f 75 74 20 43 61 73  73 65 74 74 65 2e 22 0d  |bout Cassette.".|
00000f40  02 b2 1f c9 31 3a 4d 65  73 73 24 3d 22 5c 53 71  |....1:Mess$="\Sq|
00000f50  75 69 74 20 43 61 73 73  65 74 74 65 2e 22 0d 02  |uit Cassette."..|
00000f60  bc 05 cb 0d 02 c6 1e c9  4d 61 69 6e 57 69 6e 4d  |........MainWinM|
00000f70  65 6e 75 25 3a c8 8e 20  71 25 21 31 30 32 34 20  |enu%:.. q%!1024 |
00000f80  ca 0d 02 d0 3e c9 30 3a  e7 71 25 21 31 30 32 38  |....>.0:.q%!1028|
00000f90  3d 2d 31 20 8c 20 4d 65  73 73 24 3d 22 5c 52 73  |=-1 . Mess$="\Rs|
00000fa0  65 65 20 69 6e 66 6f 72  6d 61 74 69 6f 6e 20 61  |ee information a|
00000fb0  62 6f 75 74 20 43 61 73  73 65 74 74 65 2e 22 0d  |bout Cassette.".|
00000fc0  02 da 28 c9 31 3a 4d 65  73 73 24 3d 22 5c 52 73  |..(.1:Mess$="\Rs|
00000fd0  61 76 65 20 74 68 65 20  63 75 72 72 65 6e 74 20  |ave the current |
00000fe0  69 6e 6c 61 79 2e 22 0d  02 e4 d1 c9 32 3a 4d 65  |inlay.".....2:Me|
00000ff0  73 73 24 3d 22 5c 53 73  74 61 6e 64 61 72 64 69  |ss$="\Sstandardi|
00001000  73 65 20 74 68 65 20 66  6f 72 6d 61 74 20 6f 66  |se the format of|
00001010  20 74 68 65 20 69 6e 6c  61 79 2e 7c 4d 49 66 20  | the inlay.|MIf |
00001020  63 6c 69 63 6b 65 64 20  77 69 74 68 20 41 44 4a  |clicked with ADJ|
00001030  55 53 54 20 74 68 65 20  63 65 6e 74 72 61 6c 20  |UST the central |
00001040  54 69 74 6c 65 20 61 6e  64 20 41 72 74 69 73 74  |Title and Artist|
00001050  20 66 69 65 6c 64 73 20  61 72 65 20 63 61 70 69  | fields are capi|
00001060  74 61 6c 69 73 65 64 2e  7c 4d 49 6e 20 63 6f 6d  |talised.|MIn com|
00001070  62 69 6e 61 74 69 6f 6e  20 77 69 74 68 20 53 48  |bination with SH|
00001080  49 46 54 20 43 44 74 72  61 63 6b 65 72 27 73 20  |IFT CDtracker's |
00001090  65 78 70 6f 72 74 20 6d  65 73 73 61 67 65 20 28  |export message (|
000010a0  69 66 20 70 72 65 73 65  6e 74 29 20 69 73 20 72  |if present) is r|
000010b0  65 6d 6f 76 65 64 2e 22  0d 02 ee d0 c9 33 3a 4d  |emoved.".....3:M|
000010c0  65 73 73 24 3d 22 5c 53  63 6c 6f 73 65 20 75 70  |ess$="\Sclose up|
000010d0  20 61 6e 79 20 67 61 70  73 20 69 6e 20 74 68 65  | any gaps in the|
000010e0  20 74 72 61 63 6b 20 74  69 74 6c 65 73 2e 20 28  | track titles. (|
000010f0  43 61 75 73 65 64 20 62  79 20 43 6f 6e 74 72 6f  |Caused by Contro|
00001100  6c 20 55 20 6f 72 20 44  65 6c 65 74 65 2e 29 7c  |l U or Delete.)||
00001110  4d 49 66 20 73 65 6c 65  63 74 65 64 20 77 69 74  |MIf selected wit|
00001120  68 20 41 44 4a 55 53 54  20 62 75 74 74 6f 6e 20  |h ADJUST button |
00001130  6f 72 20 69 6e 20 63 6f  6d 62 69 6e 61 74 69 6f  |or in combinatio|
00001140  6e 20 77 69 74 68 20 74  68 65 20 53 48 49 46 54  |n with the SHIFT|
00001150  20 6b 65 79 20 53 69 64  65 73 20 41 20 61 6e 64  | key Sides A and|
00001160  20 42 20 77 69 6c 6c 20  62 65 20 63 6f 6d 62 69  | B will be combi|
00001170  6e 65 64 20 69 6e 74 6f  20 61 20 73 69 6e 67 6c  |ned into a singl|
00001180  65 20 6c 69 73 74 2e 22  0d 02 f8 b0 c9 34 3a 4d  |e list.".....4:M|
00001190  65 73 73 24 3d 22 5c 53  6f 70 65 6e 20 61 20 67  |ess$="\Sopen a g|
000011a0  61 70 20 61 74 20 74 68  65 20 43 61 72 65 74 20  |ap at the Caret |
000011b0  70 6f 73 69 74 69 6f 6e  2e 20 55 73 65 20 41 44  |position. Use AD|
000011c0  4a 55 53 54 20 74 6f 20  6f 70 65 6e 20 6d 75 6c  |JUST to open mul|
000011d0  74 69 70 6c 65 20 67 61  70 73 2e 7c 4d 54 68 69  |tiple gaps.|MThi|
000011e0  73 20 66 61 63 69 6c 69  74 79 20 77 69 6c 6c 20  |s facility will |
000011f0  6f 6e 6c 79 20 77 6f 72  6b 20 69 66 20 74 68 65  |only work if the|
00001200  72 65 20 69 73 20 73 70  61 63 65 20 61 74 20 74  |re is space at t|
00001210  68 65 20 62 6f 74 74 6f  6d 20 6f 66 20 74 68 65  |he bottom of the|
00001220  20 73 65 6c 65 63 74 65  64 20 53 69 64 65 2c 20  | selected Side, |
00001230  41 20 6f 72 20 42 2e 22  0d 03 02 59 c9 35 3a 4d  |A or B."...Y.5:M|
00001240  65 73 73 24 3d 22 5c 53  20 74 72 61 6e 73 66 65  |ess$="\S transfe|
00001250  72 20 74 72 61 63 6b 73  20 66 72 6f 6d 20 53 69  |r tracks from Si|
00001260  64 65 20 41 20 74 6f 20  53 69 64 65 20 42 20 73  |de A to Side B s|
00001270  74 61 72 74 69 6e 67 20  66 72 6f 6d 20 74 68 65  |tarting from the|
00001280  20 43 61 72 65 74 20 70  6f 73 69 74 69 6f 6e 2e  | Caret position.|
00001290  22 0d 03 0c 3f c9 36 3a  4d 65 73 73 24 3d 22 5c  |"...?.6:Mess$="\|
000012a0  53 64 65 6c 65 74 65 20  61 6c 6c 20 6f 66 20 74  |Sdelete all of t|
000012b0  68 65 20 74 65 78 74 20  66 72 6f 6d 20 74 68 65  |he text from the|
000012c0  20 63 75 72 72 65 6e 74  20 69 6e 6c 61 79 2e 22  | current inlay."|
000012d0  0d 03 16 6d c9 37 3a 4d  65 73 73 24 3d 22 5c 53  |...m.7:Mess$="\S|
000012e0  72 65 73 74 6f 72 65 20  74 68 65 20 69 6e 6c 61  |restore the inla|
000012f0  79 20 73 68 6f 77 6e 20  62 65 66 6f 72 65 20 74  |y shown before t|
00001300  68 65 20 6c 61 73 74 20  66 69 6c 65 20 69 6d 70  |he last file imp|
00001310  6f 72 74 2c 20 66 6f 72  6d 61 74 2c 20 63 6c 6f  |ort, format, clo|
00001320  73 65 20 67 61 70 20 6f  72 20 57 69 70 65 20 61  |se gap or Wipe a|
00001330  6c 6c 20 6f 70 65 72 61  74 69 6f 6e 22 0d 03 20  |ll operation".. |
00001340  56 c9 38 3a 4d 65 73 73  24 3d 22 5c 53 74 72 69  |V.8:Mess$="\Stri|
00001350  6d 20 74 68 65 20 6c 65  6e 67 74 68 20 6f 66 20  |m the length of |
00001360  74 68 65 20 64 61 74 61  20 73 6f 20 74 68 61 74  |the data so that|
00001370  20 69 74 20 77 69 6c 6c  20 66 69 74 20 6f 6e 20  | it will fit on |
00001380  74 68 65 20 70 72 69 6e  74 65 64 20 69 6e 6c 61  |the printed inla|
00001390  79 2e 22 0d 03 2a 05 cb  0d 03 34 71 7f 20 4d 65  |y."..*....4q. Me|
000013a0  73 73 24 3d 22 55 4e 4b  4e 4f 57 4e 20 4d 45 4e  |ss$="UNKNOWN MEN|
000013b0  55 7c 4d 54 68 69 73 20  69 73 20 61 20 62 75 67  |U|MThis is a bug|
000013c0  2c 20 70 6c 65 61 73 65  20 72 65 70 6f 72 74 20  |, please report |
000013d0  74 68 69 73 20 74 6f 20  74 68 65 20 61 75 74 68  |this to the auth|
000013e0  6f 72 20 71 75 6f 74 69  6e 67 20 27 55 4e 4b 4e  |or quoting 'UNKN|
000013f0  4f 57 4e 20 4d 45 4e 55  20 26 22 2b c3 7e 28 4d  |OWN MENU &"+.~(M|
00001400  65 6e 75 25 29 2b 22 27  22 0d 03 3e 05 cb 0d 03  |enu%)+"'"..>....|
00001410  48 05 cd 0d 03 52 05 cb  0d 03 5c 05 3a 0d 03 66  |H....R....\.:..f|
00001420  40 f4 20 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |@. *************|
00001430  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00001450  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 03 70  |*************..p|
00001460  40 f4 20 74 68 65 20 6d  65 73 73 61 67 65 20 69  |@. the message i|
00001470  73 20 64 65 63 69 64 65  64 2c 20 73 65 6e 64 20  |s decided, send |
00001480  69 74 20 74 6f 20 74 68  65 20 63 61 6c 6c 69 6e  |it to the callin|
00001490  67 20 61 70 70 6c 69 63  61 74 69 6f 6e 0d 03 7a  |g application..z|
000014a0  40 f4 20 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |@. *************|
000014b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000014d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 03 84  |*************...|
000014e0  05 3a 0d 03 8e 19 71 25  21 31 32 3d 71 25 21 38  |.:....q%!12=q%!8|
000014f0  3a 71 25 21 31 36 3d 26  35 30 33 0d 03 98 1a 21  |:q%!16=&503....!|
00001500  71 25 3d 28 a9 28 4d 65  73 73 24 29 2b 32 35 29  |q%=(.(Mess$)+25)|
00001510  80 20 ac 20 33 0d 03 a2  15 24 28 71 25 2b 32 30  |. . 3....$(q%+20|
00001520  29 3d 4d 65 73 73 24 2b  bd 30 0d 03 ac 23 c8 99  |)=Mess$+.0...#..|
00001530  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00001540  65 22 2c 31 37 2c 71 25  2c 71 25 21 34 0d 03 b6  |e",17,q%,q%!4...|
00001550  05 e1 0d ff                                       |....|
00001554