� >!RunImage
8� CD Index by Ricky Dawson (� Archimedes World 1993)
:
(#� � �error(�,�$+" @ "+�(�),6):�
2:
<Iș "Wimp_Initialise",200,&4B534154,"CD Index" � wimp_version%,handle%
F$ș "Wimp_ClaimInterface",handle%
P:
Z�initialise_variables
d�get_mode_info
n+�ms_load("<CD$Dir>.Resources.Messages")
x�load_templates
�
�announce
�<!q%=cd_index%:ș "Wimp_CloseWindow",,q%:�close(cd_pane%)
�� animon$="On" �
�(�change_icon(q%,-2,appicon%,"anim2")
��
�+�change_icon(q%,-2,appicon%,"!cdindex")
��
��check_for_load
�:
�6� � �error(�,�$+" @ "+�(�),3):� reply%=2 � quit%=�
�:
��
�%ș "Wimp_Poll",,q% � reason_code%

/ș "Wimp_PollPointer",reason_code%,,handle%

Ȏ reason_code% �

� 1:�redraw_window(!q%)

"A� 2:�open_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)

,� 3:�close(!q%)

6/� 6:�check_mouse(!q%,q%!4,q%!8,q%!12,q%!16)

@0� 7:�initiate_save(�indirect(cd_savebox%,1))

J*� 8:�key_pressed(!q%,q%!4,q%!20,q%!24)

T� 9:�menu_select

^� 17,18:�receive(q%)

h�

r� quit%

|ȗ ȓ 0,0,cx%,cy%

��ms_end

�ș "Wimp_CloseDown"

�&ș "Wimp_ReleaseInterface",handle%

��#0

�ș "Hourglass_Smash"

��

�:

���initialise_variables

�E� q% 8192, menufree% &800, temp% 8192, errorbuf% 256, buffer &500

�curws%=temp%

�maxws%=temp%+2048

�menustart%=menufree%

�menuend%=menufree%+&800
menu%=0
quit%=�
ver$="2.20 (22 Mar 1993)"
&�initialise_cd_index
0rasize%=150*1024
:ra%=�+1
D3ș "Wimp_SlotSize",ra%-&8000+rasize%,-1 � socs%
N<� socs%<(ra%-&8000+rasize%) � � 0,"Insufficient memory."
Xrasize%=socs%-(ra%-&8000)-1
b�
l:
v��load_templates
�� space%
�space%=temp%
�Ȏ windowtype$ �
�E� "Plain":ș "Wimp_OpenTemplate",,"<CD$Dir>.Resources.PlainTemps"
�?� "3D":ș "Wimp_OpenTemplate",,"<CD$Dir>.Resources.3DTemps"
��
�Dș "Wimp_LoadTemplate",,q%,space%,temp%+512,-1,"Info" � ,,space%
�,ș "Wimp_CreateWindow",,q% � cd_infobox%
�Eș "Wimp_LoadTemplate",,q%,space%,temp%+2048,-1,"Save" � ,,space%
�,ș "Wimp_CreateWindow",,q% � cd_savebox%
�Fș "Wimp_LoadTemplate",,q%,space%,temp%+2048,-1,"Index" � ,,space%
�*ș "Wimp_CreateWindow",,q% � cd_index%
�Fș "Wimp_LoadTemplate",,q%,space%,temp%+3072,-1,"Print" � ,,space%
*ș "Wimp_CreateWindow",,q% � cd_print%
Eș "Wimp_LoadTemplate",,q%,space%,temp%+3072,-1,"Sort" � ,,space%
)ș "Wimp_CreateWindow",,q% � cd_sort%
 Eș "Wimp_LoadTemplate",,q%,space%,temp%+3072,-1,"Help" � ,,space%
*)ș "Wimp_CreateWindow",,q% � cd_help%
4Iș "Wimp_LoadTemplate",,q%,space%,temp%+3072,-1,"Announce" � ,,space%
>-ș "Wimp_CreateWindow",,q% � cd_announce%
HFș "Wimp_LoadTemplate",,q%,space%,temp%+3072,-1,"Clear" � ,,space%
R*ș "Wimp_CreateWindow",,q% � cd_clear%
\Eș "Wimp_LoadTemplate",,q%,space%,temp%+4096,-1,"Quit" � ,,space%
f)ș "Wimp_CreateWindow",,q% � cd_quit%
pEș "Wimp_LoadTemplate",,q%,space%,temp%+4096,-1,"Wait" � ,,space%
z)ș "Wimp_CreateWindow",,q% � cd_wait%
�Gș "Wimp_LoadTemplate",,q%,space%,temp%+5120,-1,"Search" � ,,space%
�+ș "Wimp_CreateWindow",,q% � cd_search%
�Fș "Wimp_LoadTemplate",,q%,space%,temp%+5120,-1,"Found" � ,,space%
�*ș "Wimp_CreateWindow",,q% � cd_found%
�Eș "Wimp_LoadTemplate",,q%,space%,temp%+5120,-1,"Pane" � ,,space%
�)ș "Wimp_CreateWindow",,q% � cd_pane%
�Fș "Wimp_LoadTemplate",,q%,space%,temp%+6144,-1,"Track" � ,,space%
�+ș "Wimp_CreateWindow",,q% � cd_tracks%
�ș "Wimp_CloseTemplate"
�$�update_icon(cd_infobox%,7,ver$)
��
�:
���make_menus
menufree%=menustart%
%� loop%=menustart% � menuend% � 4
!loop%=0
$�
.Ewindowopts%=�create_menu("# Windows ,3D Icons,Plain Icons","","")
8Gmaxrecordmenu%=�create_menu("# Records ,100,200,300,400,500","","")
B7animmenu%=�create_menu("# Animation ,Off,On","","")
L~optionsmenu%=�create_menu("# Options ,Animation>animmenu%,Records>maxrecordmenu%,Windows#>windowopts%,Save Choices","","")
Vkiconbarmenu%=�create_menu("# CD Index ,Info>cd_infobox%,Options>optionsmenu%,Restart   F8#,Quit","","")
`Eformatmenu%=�create_menu("# Format ,CD,CD-ROM,DAT,LP,Tape","","")
jgsizemenu%=�create_menu("# Size ,7"" Single,12"" Single,CD Single,Album,Box Set,Double Album","","")
t
�get_year
~�yearmenu%=�create_menu("# Year ,"+�(year%-6)+","+�(year%-5)+","+�(year%-4)+","+�(year%-3)+","+�(year%-2)+","+�(year%-1)+","+�(year%),"","")
��mainmenu%=�create_menu("# CD Index ,Info>cd_infobox%,Options>optionsmenu%,Quit#,Clear Record,Help      F1,Print     F9>cd_print%,Restart   F8,Save      F3>cd_savebox%,Search    F4>cd_search%,Sort      F2>cd_sort%","","")
��typemenu%=�create_menu("# Music Type ,Blues,Classical,Country,Folk,Funk,Jazz,Metal,Pop,Soul,Rave,Reggae,Rock,Various","","")
�Ȏ windowtype$ �
�$� "Plain":�tick(windowopts%,1,1)
�!� "3D":�tick(windowopts%,0,1)
��
�Ȏ animon$ �
� � "Off":�tick(animmenu%,0,1)
�� "On":�tick(animmenu%,1,1)
��
��record_menu
��
:

��get_year
?q%=1:ș "OS_Word",14,q%
year%=�(��~(?q%),2))+1900
(� year%<1950 � year%+=100
2�
<:
F��install_icon
P3� swidth%,sheight%,smode%,px%,py%,text$,sprite$
Zsprite$="anim1"
dtext$="CD Index"
n+� sprite% (�(sprite$)+1),text% �(text$)
x$sprite%="S"+sprite$
�$text%=text$
�@ș "Wimp_SpriteOp",40,,sprite$ � ,,,swidth%,sheight%,,smode%
�-ș "OS_ReadModeVariable",smode%,4 � ,,px%
�swidth%=swidth%<<px%
�-ș "OS_ReadModeVariable",smode%,5 � ,,py%
�sheight%=sheight%<<py%
�/� �(text$)*16>swidth% � swidth%=�(text$)*16
�O!q%=-1:q%!4=0:q%!8=-16:q%!12=q%!4+swidth%:q%!16=20+sheight%:q%!20=&1700310B
�q%!24=text%
�q%!28=sprite%
�q%!32=�(text$)
�'ș "Wimp_CreateIcon",,q% � appicon%
��
:
��error(err,report$,type%)
� 3
"ș "Wimp_CreateMenu",,-1
,ș "Wimp_DragBox",,-1
6!errorbuf%=err
@$(errorbuf%+4)=report$+�(0)
J>ș "Wimp_ReportError",errorbuf%,type%,"CD Index" � ,reply%
T�
^:
h>��open_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
rș "Wimp_OpenWindow",,q%
|�
�:
���close(window%)
�;� window%=cd_index% � �close_animation:�close(cd_pane%)
�*� window%=cd_tracks% � �read_tracklist
�)!q%=window%:ș "Wimp_CloseWindow",,q%
��
�:
���open(!q%)
�Bș "Wimp_GetWindowState",,q%:q%!28=-1:ș "Wimp_OpenWindow",,q%
��
�:
�8��check_mouse(mousex%,mousey%,button%,window%,icon%)
�Ȏ window% �
� -2:� icon%=appicon% �
e� button%=2 � ș "Wimp_CreateMenu",,iconbarmenu%,mousex%-48,96+(4*44)+24:selectmenu%=iconbarmenu%
� (button% � 5)<>0 �
&4�open_animation:�open(cd_index%):�open(cd_pane%)
0�move_caret(cd_index%,9)
:�
D�
N(� cd_index%:� button%=2 � Ȏ icon% �
Xe� 18:�redraw_icon:ș "Wimp_CreateMenu",,formatmenu%,mousex%-48,mousey%+10:selectmenu%=formatmenu%
ba� 19:�redraw_icon:ș "Wimp_CreateMenu",,sizemenu%,mousex%-48,mousey%+10:selectmenu%=sizemenu%
la� 20:�redraw_icon:ș "Wimp_CreateMenu",,yearmenu%,mousex%-48,mousey%+10:selectmenu%=yearmenu%
va� 26:�redraw_icon:ș "Wimp_CreateMenu",,typemenu%,mousex%-48,mousey%+10:selectmenu%=typemenu%
�c �close(cd_found%):ș "Wimp_CreateMenu",,mainmenu%,mousex%-48,mousey%+10:selectmenu%=mainmenu%
��
�#� (button% � 5)<>0 � Ȏ icon% �
�e� 18:�redraw_icon:ș "Wimp_CreateMenu",,formatmenu%,mousex%-48,mousey%+10:selectmenu%=formatmenu%
�a� 19:�redraw_icon:ș "Wimp_CreateMenu",,sizemenu%,mousex%-48,mousey%+10:selectmenu%=sizemenu%
�a� 20:�redraw_icon:ș "Wimp_CreateMenu",,yearmenu%,mousex%-48,mousey%+10:selectmenu%=yearmenu%
�a� 26:�redraw_icon:ș "Wimp_CreateMenu",,typemenu%,mousex%-48,mousey%+10:selectmenu%=typemenu%
��
�|� cd_tracks%:� button%=2 � �close(cd_found%):ș "Wimp_CreateMenu",,mainmenu%,mousex%-48,mousey%+10:selectmenu%=mainmenu%
�� cd_pane%
�o� button%=2 � �close(cd_found%):ș "Wimp_CreateMenu",,mainmenu%,mousex%-48,mousey%+10:selectmenu%=mainmenu%
�#� (button% � 5)<>0 � Ȏ icon% �
�A� 5:�redraw_icon:�open(cd_tracks%):�move_caret(cd_tracks%,24)
� 2
&�redraw_icon:�read:�read_tracklist
$� button%=4 � record_number%-=10
 $� button%=1 � record_number%+=10
*/� button%=2 � record_number%=record_number%
4�update
>� 0
H&�redraw_icon:�read:�read_tracklist
R#� button%=4 � record_number%-=1
\#� button%=1 � record_number%+=1
f/� button%=2 � record_number%=record_number%
p�update
z� 1
�&�redraw_icon:�read:�read_tracklist
�#� button%=4 � record_number%+=1
�#� button%=1 � record_number%-=1
�/� button%=2 � record_number%=record_number%
��update
�� 3
�&�redraw_icon:�read:�read_tracklist
�$� button%=4 � record_number%+=10
�$� button%=1 � record_number%-=10
�/� button%=2 � record_number%=record_number%
��update
��
�.� cd_help%:� (button% � 5)<>0 � Ȏ icon% �
	%� 2:�redraw_icon:�close(cd_help%)
	�
	0� cd_savebox%:� (button% � 5)<>0 �Ȏ icon% �
	$� 0:�dragbox
	.� 2:�redraw_icon:�quicksave
	8X� 3:savetype$="D90":�update_icon(cd_savebox%,1,"CDIndex"):�move_caret(cd_savebox%,1)
	BY� 4:savetype$="FFF":�update_icon(cd_savebox%,1,"TextFile"):�move_caret(cd_savebox%,1)
	L�
	V0� cd_search%:� (button% � 5)<>0 � Ȏ icon% �
	`� 3:searchtype$="Artist"
	j� 4:searchtype$="Title"
	t� 8:searchtype$="Tracks"
	~7� 5:�redraw_icon:�clear_search:�search(searchtype$)
	�W� 7:�redraw_icon:�update_icon(cd_search%,1,searchstring$):�move_caret(cd_search%,1)
	��
	�$� cd_found%:� (button% � 5)<>0 �
	�_click_record%=�(�indirect(cd_found%,icon%)):� click_record%<>0 � �read:�fill(click_record%)
	��
	�/� cd_print%:� (button% � 5)<>0 � Ȏ icon% �
	�� 1:printer$="Draft"
	�� 2:printer$="NLQ"
	�� 7:�redraw_icon:�print
	�� 9:printwhat$="AT"
	�� 11:printwhat$="Cass"
	�� 10:printwhat$="All"
�

/� cd_clear%:� (button% � 5)<>0 � Ȏ icon% �
 � 1:�redraw_icon:�clear_data
� 2:�redraw_icon
('�close(cd_clear%):ȗ ȓ 0,0,cx%,cy%
2�
<.� cd_quit%:� (button% � 5)<>0 � Ȏ icon% �
F� 1:�redraw_icon:quit%=�
P� 2:�redraw_icon
Z&�close(cd_quit%):ȗ ȓ 0,0,cx%,cy%
d�
n.� cd_sort%:� (button% � 5)<>0 � Ȏ icon% �
x� 0:sort_selected%=0
�� 1:sort_selected%=1
�� 2:Ȏ sort_selected% �
�!� 0:�redraw_icon:�sort_artist
� � 1:�redraw_icon:�sort_title
��
��
��
��
�:
�6��key_pressed(window%,icon%,key_index%,character%)
�Ȏ character% �
�� 13
�Ȏ window% �
� cd_savebox%:�quicksave
� cd_print%
Ȏ icon% �
"!� 6:�move_caret(cd_print%,13)
,� 13:�print
6�
@� cd_pane%:�number_update
J3� cd_search%:�clear_search:�search(searchtype$)
T;� cd_tracks%:�read_tracklist:�caret(cd_tracks%,icon%,1)
^� cd_index%:
h� icon%=16 �
r;�caret(window%,icon%,1):�read:record_number%+=1:�update
|�
�!�caret(window%,icon%,1):�read
��
��
�� 27:�close_all
�	� &1E
�Ȏ window% �
�.� cd_index%:�move_caret(cd_index%,9):�read
�;� cd_tracks%:�move_caret(cd_tracks%,24):�read_tracklist
��
�4� &189:�open(cd_print%):�move_caret(cd_print%,6)
�� &181:�open(cd_help%)
�� &182:�open(cd_sort%)
�8� &183:�open(cd_savebox%):�move_caret(cd_savebox%,1)
H� &184:�close(cd_found%):�open(cd_search%):�move_caret(cd_search%,1)
/� &185:�swap_case(window%,icon%,key_index%)
�� &186:Text$=¤read_icon_text(window%,icon%,�),key_index%):�update_icon(window%,icon%,Text$):�_SetCaretPosition(window%,icon%,0)
&`� &187:Text$=��read_icon_text(window%,icon%,�),key_index%):�update_icon(window%,icon%,Text$)
0� &188:�clear_data_question
:
� &18E
DȎ window% �
N-� cd_index%:�read:�caret(window%,icon%,1)
X8� cd_tracks%:�read_tracklist:�caret(window%,icon%,1)
b�
l
� &18F
vȎ window% �
�.� cd_index%:�read:�caret(window%,icon%,-1)
�9� cd_tracks%:�read_tracklist:�caret(window%,icon%,-1)
��
�
� &1AE
�Ȏ window% �
�/� cd_index%:�move_caret(cd_index%,16):�read
�;� cd_tracks%:�move_caret(cd_tracks%,47):�read_tracklist
��
�
� &1AF
�Ȏ window% �
�.� cd_index%:�move_caret(cd_index%,9):�read
�;� cd_tracks%:�move_caret(cd_tracks%,24):�read_tracklist
��

% ș "Wimp_ProcessKey",character%

�

�

 :

*)��caret(caret_window%,old_icon%,inc%)

4Ȏ caret_window% �

>� cd_index%

Hnext_icon%=old_icon%+inc%

R"� next_icon%>16 � next_icon%=9

\"� next_icon%<9 � next_icon%=16

f%�move_caret(cd_index%,next_icon%)

p� cd_tracks%

znext_icon%=old_icon%+inc%

�#� next_icon%>47 � next_icon%=24

�#� next_icon%<24 � next_icon%=47

�&�move_caret(cd_tracks%,next_icon%)

��

��

�:

���move_caret(window%,icon%)

�1ș "Wimp_SetCaretPosition",window%,icon%,,,-1

��

�:

���menu_select

�� selection%,selection$

�� selection% 255
3ș "Wimp_DecodeMenu",,selectmenu%,q%,selection%
selection$=$selection%
Ȏ selection$ �
$6� "CD":�update_icon(cd_index%,11,selection$):�read
.:� "CD-ROM":�update_icon(cd_index%,11,selection$):�read
87� "DAT":�update_icon(cd_index%,11,selection$):�read
B6� "LP":�update_icon(cd_index%,11,selection$):�read
L8� "Tape":�update_icon(cd_index%,11,selection$):�read
V>� "7"" Single":�update_icon(cd_index%,12,selection$):�read
`?� "12"" Single":�update_icon(cd_index%,12,selection$):�read
j=� "CD Single":�update_icon(cd_index%,12,selection$):�read
t9� "Album":�update_icon(cd_index%,12,selection$):�read
~;� "Box Set":�update_icon(cd_index%,12,selection$):�read
�@� "Double Album":�update_icon(cd_index%,12,selection$):�read
�=� "Classical":�update_icon(cd_index%,15,selection$):�read
�;� "Country":�update_icon(cd_index%,15,selection$):�read
�8� "Funk":�update_icon(cd_index%,15,selection$):�read
�8� "Soul":�update_icon(cd_index%,15,selection$):�read
�;� "Various":�update_icon(cd_index%,15,selection$):�read
�9� "Metal":�update_icon(cd_index%,15,selection$):�read
�8� "Folk":�update_icon(cd_index%,15,selection$):�read
�8� "Jazz":�update_icon(cd_index%,15,selection$):�read
�9� "Blues":�update_icon(cd_index%,15,selection$):�read
�:� "Reggae":�update_icon(cd_index%,15,selection$):�read
�7� "Pop":�update_icon(cd_index%,15,selection$):�read
8� "Rave":�update_icon(cd_index%,15,selection$):�read

8� "Rock":�update_icon(cd_index%,15,selection$):�read
:� �(year%):�update_icon(cd_index%,16,selection$):�read
<� �(year%-1):�update_icon(cd_index%,16,selection$):�read
(<� �(year%-2):�update_icon(cd_index%,16,selection$):�read
2<� �(year%-3):�update_icon(cd_index%,16,selection$):�read
<<� �(year%-4):�update_icon(cd_index%,16,selection$):�read
F<� �(year%-5):�update_icon(cd_index%,16,selection$):�read
P<� �(year%-6):�update_icon(cd_index%,16,selection$):�read
Z$� "Sort      F2":�open(cd_sort%)
d"� "Clear Record":�clear_single
n$� "Help      F1":�open(cd_help%)
x)� "Restart   F8":�clear_data_question
�Q� "Options.Windows.Plain Icons":�tick(windowopts%,1,1):newwindowtype$="Plain"
�K� "Options.Windows.3D Icons":�tick(windowopts%,0,1):newwindowtype$="3D"
�*� "Options.Save Choices":�save_choices
��� "Options.Records.100":�buffersize(200,"100"):� bufferok% � �tick(maxrecordmenu%,0,5):max_record%=100:�update_icon(cd_pane%,7,"/100")
��� "Options.Records.200":�buffersize(300,"200"):� bufferok% � �tick(maxrecordmenu%,1,5):max_record%=200:�update_icon(cd_pane%,7,"/200")
��� "Options.Records.300":�buffersize(400,"300"):� bufferok% � �tick(maxrecordmenu%,2,5):max_record%=300:�update_icon(cd_pane%,7,"/300")
��� "Options.Records.400":�buffersize(500,"400"):� bufferok% � �tick(maxrecordmenu%,3,5):max_record%=400:�update_icon(cd_pane%,7,"/400")
Ȋ� "Options.Records.500":�buffersize(600,"500"):� bufferok% � �tick(maxrecordmenu%,4,5):max_record%=500:�update_icon(cd_pane%,7,"/500")
�@� "Options.Animation.Off":animon$="Off":�tick(animmenu%,0,1)
�>� "Options.Animation.On":animon$="On":�tick(animmenu%,1,1)
�� "Quit":�quit_check
��
� ș "Wimp_GetPointerInfo",,q%
0� q%!8=1 � ș "Wimp_CreateMenu",,selectmenu%
�
:
"��receive(q%)
,Ȏ q%!16 �
6� 0:�quit_check
@� 2:�datasave
J@� 3,5:� q%!12=0 � q%!40=&D90 � �load_acknowledge:�ok_to_load
T� 4:�load_acknowledge
^� &502:�help(�help_text)
h� 9,&400C1:�get_mode_info
r� &400C2:�check_new_task
|�
��
�:
���check_new_task
�-newtaskid%=q%!4:taskname$=�string0(q%+28)
�:� taskname$="CD Index" � newtaskid%<>handle% � quit%=�
��
�:
���check_for_load
�� filename$
�ș "OS_GetEnv" � filename$
�2filename$=�filename$,�filename$,"RunImage")+9)
�� �(filename$)>0 �
��load_data(filename$)
�
�
:
&;��update_icon(update_window%,update_icon%,update_text$)
0(!q%=update_window%:q%!4=update_icon%
:ș "Wimp_GetIconState",,q%
D1$(q%!28)=update_text$:q%!36=�(update_text$)+1
Nq%!8=0:q%!12=0
Xș "Wimp_SetIconState",,q%
b�
l:
v&ݤcreate_menu(menu$,menu2$,menu3$)
�2� menufree%+28>menuend% � � 1,"Menu Area Full"
�� m%,r%
�menuptr%=menufree%
�r%=0
�?� �menu$,1)="#" � r%=1:menutitle$=�par(",") � menutitle$=""
�� �menutitle$,1)="{" �
�boticon%=9
�+menutitle$=�menutitle$,�(menutitle$)-1)
��
�boticon%=1
��
�$menuptr%=menutitle$
�;menuptr%?12=7:menuptr%?13=2:menuptr%?14=7:menuptr%?15=0
3menuptr%!16=196-24:menuptr%!20=44:menuptr%!24=0
$menuptr%+=28:maxx%=�menutitle$-2
�
 item$=�par(",")
*� item$="++" �
4r%=0
>menu$=menu2$
H�
R� item$="+++" �
\r%=0
fmenu%=menu3$
p�
z�menu_item(item$)
��
��
�� item$=""
�� maxx%>20 � maxx%=20
�$m%=menufree%:m%!16=(maxx%*8+6)*2
�menufree%=menuptr%
�=m%
�:
���menu_item(text$)
�3� text$="" � menuptr%!-24=(menuptr%!-24)� &80:�
�2� menuptr%+24 >menuend% � � 1,"Menu Area Full"
�� r%,flag%,V%
�
flag%=&00
r%=�text$,">")
� r%>0 �
subptr%=��text$,r%+1)
$text$=�text$,r%-1)
.�
8rr%=�text$,"}")
B
� rr%>0 �
Lsubptr%=��text$,rr%+1)
Vtext$=�text,rr%-1)
`flag%+=&08
j�
tsubptr%=-1
~�
��
�7� �text$,1)="#" � text$=�text$,�text$-1):flag%+=&02
�7� �text$,1)="\" � text$=�text$,�text$-1):flag%+=&01
�rrr%=�text$,"|")
�rrrr%=�text$,"�")
�� rrr%=0 � rrrr%=0 �
�mfg%=0<<28:mbg%=7<<24
��
�
Ȏ rrr% �
�� 0:mfg%=0 <<28
�
�'mfg%=(�(�text$,rrr%+1,2)) � 16)<<28
'text$=�text$,rrr%-1)+�text$,rrr%+3)

�
rrrr%=�text$,"�")
Ȏ rrrr% �
(� 0:mbg%=7<<24
2
<(mbg%=(�(�text$,rrrr%+1,2)) � 16)<<24
F)text$=�text$,rrrr%-1)+�text$,rrrr%+3)
P�
Z�
dmenuptr%!0=flag%
nmenuptr%!4=subptr%
x%menuptr%!8=mfg%+mbg%+&20+boticon%
�L� �text$,1)="/" � text$=�text$,�text$-1):menuptr%!8=(menuptr%!8 � 1<<22)
�� �text$,1)="$" �
�!menuptr%+=&04
�menuptr%!+=&108
�r%=�text$,"(")
�7� r%>0 � L%=��text$,r%+1):text$=�text$,r%-1)� L%=12
�	V%=-1
�menuptr%!12=��text$,2)
�menuptr%!16=-1
�menuptr%!20=L%
�text$=�L%," ")
��
�� �text$<=12 �
$(menuptr%+12)=text$
�
%R%=�workspace(�text$+1):$R%=text$
"6menuptr%!12=R%:menuptr%!16=-1:menuptr%!20=�text$+1
, menuptr%!8=menuptr%!8 � &100
6�
@�
J!� �text$>maxx% � maxx%=�text$
Tmenuptr%+=24
^�
h:
rݤpar(sep$)
|%r1%=r%+1:r%=�menu$+sep$,sep$,r1%)
�=�menu$,r1%,r%-r1%)
�:
�ݤworkspace(L%)
�3� curws%+L%>maxws% � � 1,"No More Buffer Space"
�curws%+=L%:=curws%-L%
�:
���sort_artist
�� a%,b%,temp$
�e�update_icon(cd_wait%,0,"Initialising Sort Please Wait"):�open(cd_wait%):�redraw_window(cd_wait%)
�ș "Hourglass_On"
�Xcount%=0:subcount%=0:a%=1:�:� b%=a% � max_record%:count%+=1:�:a%+=1:� a%>max_record%
�g�update_icon(cd_wait%,0,"Sorting In Progress Please Wait"):�open(cd_wait%):�redraw_window(cd_wait%)
�a%=1:�:r%=a%
temp$=�artist$(a%),30)
� temp$<=" " � temp$="~"
� b%=a% � max_record%
&subcount%+=1
0$� �artist$(b%),30)<=" " � � �DXV
:� �artist$(b%),30)<temp$ �
D temp$=�artist$(b%),30):r%=b%
N�
X� b%
b7ș "Hourglass_Percentage",�((subcount%/count%)*100)
l�swap_fields(a%,r%)
v	a%+=1
�� a%>max_record%
�record_number%=1
��update
�ș "Hourglass_Off"
�>�close(cd_sort%):ș "Wimp_CreateMenu",,-1:�close(cd_wait%)
��re_title("CD Index *")
�unsaved%=�
��
�:
���sort_title
�� a%,b%,temp$
�e�update_icon(cd_wait%,0,"Initialising Sort Please Wait"):�open(cd_wait%):�redraw_window(cd_wait%)
�ș "Hourglass_On"
Xcount%=0:subcount%=0:a%=1:�:� b%=a% � max_record%:count%+=1:�:a%+=1:� a%>max_record%
g�update_icon(cd_wait%,0,"Sorting In Progress Please Wait"):�open(cd_wait%):�redraw_window(cd_wait%)
a%=1:�:r%=a%
 temp$=�title$(a%),30)
*� temp$<=" " � temp$="~"
4� b%=a% � max_record%
>subcount%+=1
H#� �title$(b%),30)<=" " � � �DpW
R� �title$(b%),30)<temp$ �
\temp$=�title$(b%),30):r%=b%
f�
p� b%
z7ș "Hourglass_Percentage",�((subcount%/count%)*100)
��swap_fields(a%,r%)
�	a%+=1
�� a%>max_record%
�record_number%=1
��update
�ș "Hourglass_Off"
�>�close(cd_sort%):ș "Wimp_CreateMenu",,-1:�close(cd_wait%)
��re_title("CD Index *")
�unsaved%=�
��
�:
���swap_fields(a%,b%)
��Ȕ artist$(a%),artist$(b%):Ȕ title$(a%),title$(b%):Ȕ format$(a%),format$(b%):Ȕ size$(a%),size$(b%):Ȕ tracks$(a%),tracks$(b%):Ȕ length$(a%),length$(b%):Ȕ type$(a%),type$(b%):Ȕ year$(a%),year$(b%)
�Ȕ t1$(a%),t1$(b%):Ȕ t2$(a%),t2$(b%):Ȕ t3$(a%),t3$(b%):Ȕ t4$(a%),t4$(b%):Ȕ t5$(a%),t5$(b%):Ȕ t6$(a%),t6$(b%):Ȕ t7$(a%),t7$(b%):Ȕ t8$(a%),t8$(b%)
�Ȕ t9$(a%),t9$(b%):Ȕ t10$(a%),t10$(b%):Ȕ t11$(a%),t11$(b%):Ȕ t12$(a%),t12$(b%):Ȕ t13$(a%),t13$(b%):Ȕ t14$(a%),t14$(b%):Ȕ t15$(a%),t15$(b%):Ȕ t16$(a%),t16$(b%)
�Ȕ t17$(a%),t17$(b%):Ȕ t18$(a%),t18$(b%):Ȕ t19$(a%),t19$(b%):Ȕ t20$(a%),t20$(b%):Ȕ t21$(a%),t21$(b%):Ȕ t22$(a%),t22$(b%):Ȕ t23$(a%),t23$(b%):Ȕ t24$(a%),t24$(b%)
$�
.:
8��initialise_cd_index
B�load_choices
Lf� artist$(550),title$(550),format$(550),size$(550),tracks$(550),length$(550),type$(550),year$(550)
Vt� t1$(550),t2$(550),t3$(550),t4$(550),t5$(550),t6$(550),t7$(550),t8$(550),t9$(550),t10$(550),t11$(550),t12$(550)
`�� t13$(550),t14$(550),t15$(550),t16$(550),t17$(550),t18$(550),t19$(550),t20$(550),t21$(550),t22$(550),t23$(550),t24$(550),track$(550)
jJrecord_number%=1:sort_selected%=0:searchtype$="Artist":savetype$="D90"
tIfilename$="CDIndex":printer$="Draft":printwhat$="AT":searchstring$=""
~�
�:
���update
�)� record_number%<1 � record_number%=1
�=� record_number%>max_record% � record_number%=max_record%
��fill(record_number%)
��
�:
���fill(record_number%)
�.�update_icon(cd_pane%,6,�(record_number%))
�5�update_icon(cd_index%,9,artist$(record_number%))
�5�update_icon(cd_index%,10,title$(record_number%))
�6�update_icon(cd_index%,11,format$(record_number%))
4�update_icon(cd_index%,12,size$(record_number%))

6�update_icon(cd_index%,13,tracks$(record_number%))
6�update_icon(cd_index%,14,length$(record_number%))
4�update_icon(cd_index%,15,type$(record_number%))
(4�update_icon(cd_index%,16,year$(record_number%))
2�update_tracks
<�move_caret(cd_index%,9)
F0�update_icon(cd_print%,13,�(record_number%))
P�
Z:
d��number_update
n+record_number%=�(�indirect(cd_pane%,6))
x)� record_number%<1 � record_number%=1
�=� record_number%>max_record% � record_number%=max_record%
��fill(record_number%)
��
�:
���re_title(new_title$)
�!q%=cd_index%
�ș "Wimp_GetWindowInfo",,q%
�7� ((q%!60) � &100)=0 � � 1,"Title isn't indirected"
�$(q%!76)=new_title$
�O� ((q%!32) � (1<<16))<>0 ș "Wimp_ForceRedraw",-1,q%!4,q%!16,q%!12,q%!16+44
��
�:
�
��read
�re_title("CD Index *")
unsaved%=�
+record_number%=�(�indirect(cd_pane%,6))
"2artist$(record_number%)=�indirect(cd_index%,9)
,2title$(record_number%)=�indirect(cd_index%,10)
63format$(record_number%)=�indirect(cd_index%,11)
@1size$(record_number%)=�indirect(cd_index%,12)
J3tracks$(record_number%)=�indirect(cd_index%,13)
T3length$(record_number%)=�indirect(cd_index%,14)
^1type$(record_number%)=�indirect(cd_index%,15)
h1year$(record_number%)=�indirect(cd_index%,16)
r�
|:
�ݤindirect(!q%,q%!4)
�ș "Wimp_GetIconState",,q%
�
=$(q%!28)
�:
�	��new
�ș "Hourglass_On"
�4�open_animation:�open(cd_index%):�open(cd_pane%)
�� I%=1 � max_record%
�tartist$(I%)="":title$(I%)="":format$(I%)="":size$(I%)="":tracks$(I%)="":length$(I%)="":type$(I%)="":year$(I%)=""
�� I%
�$record_number%=1:max_record%=100
�.�update_icon(cd_pane%,6,�(record_number%))
�ș "Hourglass_Off"
unsaved%=�
�
:
&��load_acknowledge
0q%!12=q%!8
:q%!16=4
D$ș "Wimp_SendMessage",17,q%,q%!4
N�
X:
b��ok_to_load
lfilename$=""
va%=0
�b%=q%?(44+a%)
�ȕ b%<>0
�filename$+=�(b%)
�	a%+=1
�b%=q%?(44+a%)
��
��load_data(filename$)
��
�:
���load_data(datafile$)
�ș "Hourglass_On"
�load_error%=�
�CH%=�(datafile$)
�#CH%,max_record%
�record_menu
� load_error%=� �
 � I%=1 � max_record%
*b�#CH%,artist$(I%),title$(I%),format$(I%),size$(I%),tracks$(I%),length$(I%),type$(I%),year$(I%)
4��#CH%,t1$(I%),t2$(I%),t3$(I%),t4$(I%),t5$(I%),t6$(I%),t7$(I%),t8$(I%),t9$(I%),t10$(I%),t11$(I%),t12$(I%),t13$(I%),t14$(I%),t15$(I%),t16$(I%),t17$(I%),t18$(I%),t19$(I%),t20$(I%),t21$(I%),t22$(I%),t23$(I%),t24$(I%),track$(I%)
>� I%
H	�#CH%
R�re_title("CD Index")
\unsaved%=�
f4�open_animation:�open(cd_index%):�open(cd_pane%)
precord_number%=1
z�update
��
�	�#CH%
��
�ș "Hourglass_Off"
��close_all
��
�:
�
��dragbox
�x%=!q%:y%=q%!4
�Aq%!4=5:q%!8=x%-40:q%!12=y%-40:q%!16=x%+40:q%!20=y%+40:q%!24=0
�'q%!28=0:q%!32=&7FFFFFFF:q%!36=q%!32
�ș "Wimp_DragBox",,q%
��
:
��quicksave
&fullname$=�indirect(cd_savebox%,1)
$3� fullname$="" � � 1,"Please insert a filename"
.L� �fullname$,".")=0 � � 1,"To save, drag the icon to a directory viewer"
8�save_data(fullname$)
B)�update_icon(cd_savebox%,1,fullname$)
L-�re_title("CD Index"):�close(cd_savebox%)
Vunsaved%=�
`ș "Wimp_CreateMenu",,-1
j�
t:
~��initiate_save(fname$)
� ș "Wimp_GetPointerInfo",,q%
�� q%!12=cd_index% �
�q%!20=q%!12:q%!12=0
�q%!24=q%!16:q%!16=1
�q%!28=q%!0:q%!0=64
�q%!32=q%!4:q%!36=8096
�/� savetype$="D90" � q%!40=&D90 � q%!40=&FFF
�!$(q%+44)=�get_leaf(fname$)+�0
�%ș "Wimp_SendMessage",17,q%,q%!20
��
�:
�ݤget_leaf(name$)
ȕ �name$,".")

name$=�name$,�name$,".")+1)
�

=name$+�0
(:
2��datasave
<fullname$=�string(q%+44)
FȎ savetype$ �
P� "D90"
Z�save_data(fullname$)
dq%!12=q%!8:q%!16=3
n$ș "Wimp_SendMessage",17,q%,q%!4
x%� "SetType "+fullname$+" CDIndex"
�ș "Wimp_CreateMenu",,-1
��re_title("CD Index")
�0�close(cd_savebox%):�move_caret(cd_index%,9)
�unsaved%=�
�� "FFF"
��save_text(fullname$)
�q%!12=q%!8:q%!16=3
�$ș "Wimp_SendMessage",17,q%,q%!4
�"� "SetType "+fullname$+" Text"
�ș "Wimp_CreateMenu",,-1
�0�close(cd_savebox%):�move_caret(cd_index%,9)
��
�)�update_icon(cd_savebox%,1,fullname$)
�
:
ݤstring(a%)
"� b$
,	b$=""
6
ȕ ?a%<>0
@b$+=�?a%
J	a%+=1
T�
^=b$
h:
r5ݤstring0(a%):� a$:ȕ ?a%>31:a$+=�?a%:a%+=1:�:=a$
|:
���save_data(fullname$)
�ș "Hourglass_On"
�CH%=�fullname$
��#CH%,max_record%
�� I%=1 � max_record%
�b�#CH%,artist$(I%),title$(I%),format$(I%),size$(I%),tracks$(I%),length$(I%),type$(I%),year$(I%)
���#CH%,t1$(I%),t2$(I%),t3$(I%),t4$(I%),t5$(I%),t6$(I%),t7$(I%),t8$(I%),t9$(I%),t10$(I%),t11$(I%),t12$(I%),t13$(I%),t14$(I%),t15$(I%),t16$(I%),t17$(I%),t18$(I%),t19$(I%),t20$(I%),t21$(I%),t22$(I%),t23$(I%),t24$(I%),track$(I%)
�� I%
�	�#CH%
�ș "Hourglass_Off"
��
�:
���save_text(fullname$)
 ș "Hourglass_On"
 CH%=�fullname$
 � I%=1 � max_record%
 &(� artist$(I%)<>"" � title$(I%)<>"" �
 0Sa=�(title$(I%)):b=�(year$(I%)):c=�(tracks$(I%)):d=�(type$(I%)):e=�(format$(I%))
 :�#CH%,"Record: "+�(I%)
 D �#CH%,"Artist: "+artist$(I%)
 ND�#CH%,"Title:  "+title$(I%)+�44-a," ")+"Track List: "+track$(I%)
 X`�#CH%,"Year: "+year$(I%)+�26-b," ")+"Tracks: "+tracks$(I%)+�12-c," ")+"Length: "+length$(I%)
 bb�#CH%,"Music Type: "+type$(I%)+�20-d," ")+"Format: "+format$(I%)+�12-e," ")+"Size: "+size$(I%)
 l�
 v
�#CH%," "
 �� I%
 �	�#CH%
 �ș "Hourglass_Off"
 ��
 �:
 ���print
 �O�update_icon(cd_wait%,0,"Printing In Progress Please Wait"):�open(cd_wait%)
 ��redraw_window(cd_wait%)
 �ș "Hourglass_On"
 �%copies%=�(�indirect(cd_print%,6))
 �u� copies%=0 � ș "Hourglass_Off":ș "Wimp_CreateMenu",,-1:� 1,"Set number of copies to a value greater than 0.":�
 �Ȏ printer$ �
 �
� "Draft"
! copy=0:� 2:� 1,27,1,120,1,48
!�
!Ȏ printwhat$ �
! � "AT":�print_half
!*� "Cass":�print_inlay
!4� "All":�print_table
!>�
!Hcopy+=1:� copy=copies%
!R� 3
!\� "NLQ"
!f copy=0:� 2:� 1,27,1,120,1,49
!p�
!zȎ printwhat$ �
!�� "AT":�print_half
!�� "Cass":�print_inlay
!�� "All":�print_table
!��
!�copy+=1:� copy=copies%
!�� 1,27,1,120,1,48
!�� 3
!��
!�ș "Hourglass_Off"
!�ș "Wimp_CreateMenu",,-1
!�&�close(cd_wait%):�close(cd_print%)
!��
!�:
"��print_half
"needsprinting%=0
"� I%=1 � max_record%
"$:� artist$(I%)<>"" � title$(I%)<>"" � needsprinting%+=1
".� I%
"8`subitem%=0:printed%=0:� needsprinting%=0 � � 3:�close(cd_wait%):� 1,"No records to print.":�
"B� I%=1 � max_record%
"L(� artist$(I%)<>"" � title$(I%)<>"" �
"V�:subitem%+=1:printed%+=1
"`� 1,27,1,71
"j� �0);"Record: "+�(I%)
"t � �0);"Artist: "+artist$(I%)
"~� �0);"Title: "+title$(I%)
"�� 1,27,1,72
"��
"�%� subitem%=16 � subitem%=0:� 1,12
"�� 3
"�h� �((printed%/needsprinting%)*100)<>100 � ș "Hourglass_Percentage",�((printed%/needsprinting%)*100)
"�� 2
"�� I%
"�
� 1,12
"��
"�:
"���print_inlay
"�,inlay_number%=�(�indirect(cd_print%,13))
#
� 1,15
#
� 1,27,1,71
#,� �0);" Artist: "+artist$(inlay_number%)
#+� �0);" Title:  "+title$(inlay_number%)
#(� 1,27,1,72
#2� �0);�67,"=")
#<E� �1);�t1$(inlay_number%),31);�32);" | ";�t13$(inlay_number%),31)
#FE� �1);�t2$(inlay_number%),31);�32);" | ";�t14$(inlay_number%),31)
#PE� �1);�t3$(inlay_number%),31);�32);" | ";�t15$(inlay_number%),31)
#ZE� �1);�t4$(inlay_number%),31);�32);" | ";�t16$(inlay_number%),31)
#dE� �1);�t5$(inlay_number%),31);�32);" | ";�t17$(inlay_number%),31)
#nE� �1);�t6$(inlay_number%),31);�32);" | ";�t18$(inlay_number%),31)
#xE� �1);�t7$(inlay_number%),31);�32);" | ";�t19$(inlay_number%),31)
#�E� �1);�t8$(inlay_number%),31);�32);" | ";�t20$(inlay_number%),31)
#�E� �1);�t9$(inlay_number%),31);�32);" | ";�t21$(inlay_number%),31)
#�F� �1);�t10$(inlay_number%),31);�32);" | ";�t22$(inlay_number%),31)
#�F� �1);�t11$(inlay_number%),31);�32);" | ";�t23$(inlay_number%),31)
#�F� �1);�t12$(inlay_number%),31);�32);" | ";�t24$(inlay_number%),31)
#�� �0);�67,"=")
#�� 1,27,1,71
#�,� �0);" Artist: "+artist$(inlay_number%)
#�+� �0);" Title:  "+title$(inlay_number%)
#�� 1,27,1,72
#�� �0);�67,"=")
#�� X=1 � 3:� �32);" |":�
#�� �0);�67,"=")
$
� 1,18
$
� 1,12
$�
$":
$,��print_table
$6needsprinting%=0
$@� I%=1 � max_record%
$J:� artist$(I%)<>"" � title$(I%)<>"" � needsprinting%+=1
$T� I%
$^`subitem%=0:printed%=0:� needsprinting%=0 � � � 3:�close(cd_wait%):1,"No records to print.":�
$h� I%=1 � max_record%
$r(� artist$(I%)<>"" � title$(I%)<>"" �
$|�:subitem%+=1:printed%+=1
$�� 1,27,1,71
$�� �0);"Record: "+�(I%)
$� � �0);"Artist: "+artist$(I%)
$�� �0);"Title: "+title$(I%);
$�� 1,27,1,72
$�$� �45);"Track List: "+track$(I%)
$�T� �0);"Year: ";year$(I%);�30);"Tracks: ";tracks$(I%);�45);"Length: ";length$(I%)
$�V� �0);"Music Type: ";type$(I%);�30);"Format: ";format$(I%);�45);"Size: ";size$(I%)
$��
$�%� subitem%=10 � subitem%=0:� 1,12
$�� 3
$�h� �((printed%/needsprinting%)*100)<>100 � ș "Hourglass_Percentage",�((printed%/needsprinting%)*100)
$�� 2
%� I%
%
� 1,12
%�
%&:
%0��redraw_window(window%)
%:!q%=window%
%D&ș "Wimp_RedrawWindow",,q% � more%
%Nȕ more%
%Xș "Wimp_BorderWindow",,q%
%b&ș "Wimp_GetRectangle",,q% � more%
%l�
%v�
%�:
%���redraw_icon
%�Ȏ windowtype$ �
%�
� "3D"
%�ș "Wimp_BorderIcon",,q%
%�
q%!8=0
%�ș "Wimp_BorderIcon",,q%
%�
� "Plain"
%��
%��
%�:
%���announce
%�ȗ ȓ 274,320,730,460
&ș "Hourglass_On"
&�open(cd_announce%)
&%�update_icon(cd_announce%,4,ver$)
&  �redraw_window(cd_announce%)
&*�make_menus
&4�install_icon
&>�new
&H�clear_search
&R� wait%=1 � 25:Ȗ:�
&\�close(cd_announce%)
&fȗ ȓ 0,0,cx%,cy%
&pș "Hourglass_Off"
&z�
&�:
&���tick(menu%,item%,total%)
&�'� i%=0 � total%:�notick(menu%,i%):�
&�� address%
&� address%=menu%+28+(24*item%)
&�address%!0=address%!0 � &01
&��
&�:
&���notick(menu%,item%)
&�� address%
&� address%=menu%+28+(24*item%)
&�!address%!0=address%!0 � � &01
&��
':
'��save_choices
'*choices%=�"<CD$Dir>.Resources.Choices"
'$�#choices%,newwindowtype$
'.�#choices%,max_record%
'8�#choices%,animon$
'B�#choices%
'L�
'V:
'`��load_choices
'j*choices%=�"<CD$Dir>.Resources.Choices"
't� choices%<>0 �
'~�#choices%,windowtype$
'��#choices%,max_record%
'��#choices%,animon$
'��#choices%
'��
'�windowtype$="Plain"
'�max_record%=100
'�animon$="On"
'��
'�newwindowtype$=windowtype$
'��
'�:
'���record_menu
('� max_record%>500 � max_record%=500
(
Ȏ max_record% �
(j� 100:�buffersize(200,"100"):� bufferok%=� � �tick(maxrecordmenu%,0,5):�update_icon(cd_pane%,7,"/100")
(j� 200:�buffersize(300,"200"):� bufferok%=� � �tick(maxrecordmenu%,1,5):�update_icon(cd_pane%,7,"/200")
((j� 300:�buffersize(400,"300"):� bufferok%=� � �tick(maxrecordmenu%,2,5):�update_icon(cd_pane%,7,"/300")
(2j� 400:�buffersize(500,"400"):� bufferok%=� � �tick(maxrecordmenu%,3,5):�update_icon(cd_pane%,7,"/400")
(<j� 500:�buffersize(600,"500"):� bufferok%=� � �tick(maxrecordmenu%,4,5):�update_icon(cd_pane%,7,"/500")
(F�
(P�
(Z:
(d��clear_data_question
(n� 7
(x�open(cd_clear%)
(�ȗ ȓ 284,420,742,228
(��
(�:
(���clear_data
(��new
(��update
(��re_title("CD Index")
(�unsaved%=�
(��close_all
(�ȗ ȓ 0,0,cx%,cy%
(��
(�:
(���quit_check
)Ȏ unsaved% �
)� �
)� 7
)"�open(cd_quit%)
),ȗ ȓ 284,420,742,228
)6� �:quit%=�
)@�
)J�
)T:
)^��open_animation
)h� animon$="Off" � �
)r3�change_icon(q%,-2,appicon%,"anim2"):�anim_wait
)|3�change_icon(q%,-2,appicon%,"anim3"):�anim_wait
)�3�change_icon(q%,-2,appicon%,"anim4"):�anim_wait
)�3�change_icon(q%,-2,appicon%,"anim5"):�anim_wait
)�3�change_icon(q%,-2,appicon%,"anim1"):�anim_wait
)��
)�:
)���close_animation
)�� animon$="Off" � �
)�3�change_icon(q%,-2,appicon%,"anim1"):�anim_wait
)�3�change_icon(q%,-2,appicon%,"anim5"):�anim_wait
)�3�change_icon(q%,-2,appicon%,"anim4"):�anim_wait
)�3�change_icon(q%,-2,appicon%,"anim3"):�anim_wait
)�3�change_icon(q%,-2,appicon%,"anim2"):�anim_wait
)��close_all
*�
*:
*��anim_wait
*&� I%=1 � 5
*0Ȗ
*:�
*D�
*N:
*X(��change_icon(q%,window%,icon%,new$)
*b$sprite%="S"+new$
*l5!q%=window%:q%!4=icon%:ș "Wimp_GetIconState",,q%
*vq%!28=sprite%
*�D!q%=window%:q%!4=icon%:q%!8=0:q%!12=0:ș "Wimp_SetIconState",,q%
*��
*�:
*�)��swap_case(window%,icon%,key_index%)
*�6� key_index%<�(�read_icon_text(window%,icon%,�)) �
*�.IconText$=�read_icon_text(window%,icon%,�)
*�*C%=�(�IconText$,key_index%+1,1)) � &DF
*�� C%>=&41 � C%<=&5A �
*�-C$=�(�(�IconText$,key_index%+1,1)) � &20)
*�!�IconText$,key_index%+1,1)=C$
*�)�update_icon(window%,icon%,IconText$)
*��
*�2�_SetCaretPosition(window%,icon%,key_index%+1)
+�
+�
+:
+ 1��_SetCaretPosition(window%,icon%,key_index%)
+*3IconLength%=�(�read_icon_text(window%,icon%,�))
+45� key_index%>IconLength% � key_index%=IconLength%
+><ș "Wimp_SetCaretPosition",window%,icon%,,,-1,key_index%
+H"ș "Wimp_GetCaretPosition",,q%
+R�
+\:
+f(ݤread_icon_text(window%,icon%,Pad%)
+p
� Result$
+z!q%=window%
+�q%!4=icon%
+�ș "Wimp_GetIconState",,q%
+�� (q%!24 � (1<<8))<>0 �
+�Result$=$(q%!28)
+��
+�Result$=$(q%+28)
+��
+�)� Pad%>0 � =�Result$+�Pad%," "),Pad%)
+�=Result$
+�:
+���ms_load(name$)
+�$ș"MessageTrans_FileInfo",,name$
+��ms_text%256
,,ș"OS_Module",6,,,17+�(name$)�,,ms_desc%
,$(ms_desc%+16)=name$
,2ș"MessageTrans_OpenFile",ms_desc%,ms_desc%+16
,$�
,.:
,8��ms_end
,B(ș"XMessageTrans_CloseFile",ms_desc%
,Lș"XOS_Module",7,,ms_desc%
,V�
,`:
,jݤms_0(tag$)
,t=�ms_2(tag$,"","")
,~:
,�ݤms_1(tag$,arg1$)
,�=�ms_2(tag$,arg1$,"")
,�:
,�ݤms_2(tag$,arg1$,arg2$)
,�
�F%,L%
,�Lș"XMessageTrans_Lookup",ms_desc%,tag$,ms_text%,256,arg1$,arg2$�,,,L%;F%
,��F%� 1�L%=0
,�ms_text%?L%=13
,�=$ms_text%
,�:
,���help(help$)
,�� C%
-C%=�help$+1
-
q%!12=q%!8
-q%!16=&503
-$(q%+20)=help$+�0
-(!q%=(24+C%)��3
-2#ș"Wimp_SendMessage",17,q%,q%!4
-<�
-F�
-P:
-Zݤhelp_text
-d� text$
-ntext$=""
-xȎ q%!32 �
-�� -2
-�-� q%!36=appicon% � text$=�ms_0("IconBar")
-�$� cd_infobox%:text$=�ms_0("Add")
-�� cd_index%:Ȏ q%!36 �
-�$� 9,10,13,14:text$=�ms_0("Text")
-�%� 11,12,15,16:text$=�ms_0("TeMe")
-�&� 18:text$=�ms_1("Menu","Formats")
-�$� 19:text$=�ms_1("Menu","Sizes")
-�*� 26:text$=�ms_1("Menu","Music Types")
-�$� 20:text$=�ms_1("Menu","Years")
-��
-�.� cd_sort%:� q%!36=2 � text$=�ms_0("Sort")
-�� cd_pane%:Ȏ q%!36 �
.� 0,1:text$=�ms_0("One")
.� 2,3:text$=�ms_0("Ten")
.� 6:text$=�ms_0("Rec")
."�
.,� cd_savebox%:Ȏ q%!36 �
.6� 0:text$=�ms_0("Drag")
.@� 1:text$=�ms_0("File")
.J� 2:text$=�ms_0("Save")
.T�
.^� cd_quit%:Ȏ q%!36 �
.h� 1,2:text$=�ms_0("Ques")
.r�
.|� cd_clear%:Ȏ q%!36 �
.�� 1,2:text$=�ms_0("Ques")
.��
.�� cd_print%:Ȏ q%!36 �
.�� 6:text$=�ms_0("Copy")
.�� 7:text$=�ms_0("Prin")
.��
.�� cd_search%:Ȏ q%!36 �
.�� 1:text$=�ms_0("SeaText")
.�� 7:text$=�ms_0("SeaPrev")
.�� 5:text$=�ms_0("SearGo")
.�:text$=�ms_0("Case")
.��
.�$� cd_found%:text$=�ms_0("Found")
/%� cd_tracks%:text$=�ms_0("Track")
/�
/
=text$
/&:
/0��get_mode_info
/:cx%=(�mv(�,11))<<(�mv(�,4))
/Dcy%=(�mv(�,12))<<(�mv(�,5))
/N�
/X:
/bݤmv(mode%,var%)
/l� v%
/v.ș "OS_ReadModeVariable",mode%,var% � ,,v%
/�=v%
/�:
/���clear_search
/�� icon%:� icon%=0 � 121
/�%�update_icon(cd_found%,icon%," ")
/��
/�H�update_icon(cd_found%,1,"could be found in the following records:")
/��
/�:
/���search(field$)
/�ș "Hourglass_On"
/�foundicon%=2:found%=0
/�)searchstring$=�indirect(cd_search%,1)
0_� searchstring$="" � �close(cd_search%):ș "Wimp_CreateMenu",,-1:� 1,"Enter search string."
0+�update_icon(cd_found%,0,searchstring$)
0Ȏ field$ �
0 � "Artist"
0*� number%=1 � max_record%
04�� searchstring$=artist$(number%) � searchstring$=�artist$(number%),�searchstring$) � searchstring$=�artist$(number%),�searchstring$) � �artist$(number%),searchstring$)<>0 � �add_to_found(number%)
0>�
0H
� "Title"
0R� number%=1 � max_record%
0\�� searchstring$=title$(number%) � searchstring$=�title$(number%),�searchstring$) � searchstring$=�title$(number%),�searchstring$) � �title$(number%),searchstring$)<>0 � �add_to_found(number%)
0f�
0p� "Tracks"
0z� number%=1 � max_record%
0��� searchstring$=t1$(number%) � searchstring$=�t1$(number%),�searchstring$) � searchstring$=�t1$(number%),�searchstring$) � �t1$(number%),searchstring$)<>0 � �add_to_found(number%)
0��� searchstring$=t2$(number%) � searchstring$=�t2$(number%),�searchstring$) � searchstring$=�t2$(number%),�searchstring$) � �t2$(number%),searchstring$)<>0 � �add_to_found(number%)
0��� searchstring$=t3$(number%) � searchstring$=�t3$(number%),�searchstring$) � searchstring$=�t3$(number%),�searchstring$) � �t3$(number%),searchstring$)<>0 � �add_to_found(number%)
0��� searchstring$=t4$(number%) � searchstring$=�t4$(number%),�searchstring$) � searchstring$=�t4$(number%),�searchstring$) � �t4$(number%),searchstring$)<>0 � �add_to_found(number%)
0��� searchstring$=t5$(number%) � searchstring$=�t5$(number%),�searchstring$) � searchstring$=�t5$(number%),�searchstring$) � �t5$(number%),searchstring$)<>0 � �add_to_found(number%)
0��� searchstring$=t6$(number%) � searchstring$=�t6$(number%),�searchstring$) � searchstring$=�t6$(number%),�searchstring$) � �t6$(number%),searchstring$)<>0 � �add_to_found(number%)
0��� searchstring$=t7$(number%) � searchstring$=�t7$(number%),�searchstring$) � searchstring$=�t7$(number%),�searchstring$) � �t7$(number%),searchstring$)<>0 � �add_to_found(number%)
0ʷ� searchstring$=t8$(number%) � searchstring$=�t8$(number%),�searchstring$) � searchstring$=�t8$(number%),�searchstring$) � �t8$(number%),searchstring$)<>0 � �add_to_found(number%)
0Է� searchstring$=t9$(number%) � searchstring$=�t9$(number%),�searchstring$) � searchstring$=�t9$(number%),�searchstring$) � �t9$(number%),searchstring$)<>0 � �add_to_found(number%)
0޻� searchstring$=t10$(number%) � searchstring$=�t10$(number%),�searchstring$) � searchstring$=�t10$(number%),�searchstring$) � �t10$(number%),searchstring$)<>0 � �add_to_found(number%)
0�� searchstring$=t11$(number%) � searchstring$=�t11$(number%),�searchstring$) � searchstring$=�t11$(number%),�searchstring$) � �t11$(number%),searchstring$)<>0 � �add_to_found(number%)
0�� searchstring$=t12$(number%) � searchstring$=�t12$(number%),�searchstring$) � searchstring$=�t12$(number%),�searchstring$) � �t12$(number%),searchstring$)<>0 � �add_to_found(number%)
0��� searchstring$=t13$(number%) � searchstring$=�t13$(number%),�searchstring$) � searchstring$=�t13$(number%),�searchstring$) � �t13$(number%),searchstring$)<>0 � �add_to_found(number%)
1�� searchstring$=t14$(number%) � searchstring$=�t14$(number%),�searchstring$) � searchstring$=�t14$(number%),�searchstring$) � �t14$(number%),searchstring$)<>0 � �add_to_found(number%)
1�� searchstring$=t15$(number%) � searchstring$=�t15$(number%),�searchstring$) � searchstring$=�t15$(number%),�searchstring$) � �t15$(number%),searchstring$)<>0 � �add_to_found(number%)
1�� searchstring$=t16$(number%) � searchstring$=�t16$(number%),�searchstring$) � searchstring$=�t16$(number%),�searchstring$) � �t16$(number%),searchstring$)<>0 � �add_to_found(number%)
1$�� searchstring$=t17$(number%) � searchstring$=�t17$(number%),�searchstring$) � searchstring$=�t17$(number%),�searchstring$) � �t17$(number%),searchstring$)<>0 � �add_to_found(number%)
1.�� searchstring$=t18$(number%) � searchstring$=�t18$(number%),�searchstring$) � searchstring$=�t18$(number%),�searchstring$) � �t18$(number%),searchstring$)<>0 � �add_to_found(number%)
18�� searchstring$=t19$(number%) � searchstring$=�t19$(number%),�searchstring$) � searchstring$=�t19$(number%),�searchstring$) � �t19$(number%),searchstring$)<>0 � �add_to_found(number%)
1B�� searchstring$=t20$(number%) � searchstring$=�t20$(number%),�searchstring$) � searchstring$=�t20$(number%),�searchstring$) � �t20$(number%),searchstring$)<>0 � �add_to_found(number%)
1L�� searchstring$=t21$(number%) � searchstring$=�t21$(number%),�searchstring$) � searchstring$=�t21$(number%),�searchstring$) � �t21$(number%),searchstring$)<>0 � �add_to_found(number%)
1V�� searchstring$=t22$(number%) � searchstring$=�t22$(number%),�searchstring$) � searchstring$=�t22$(number%),�searchstring$) � �t22$(number%),searchstring$)<>0 � �add_to_found(number%)
1`�� searchstring$=t23$(number%) � searchstring$=�t23$(number%),�searchstring$) � searchstring$=�t23$(number%),�searchstring$) � �t23$(number%),searchstring$)<>0 � �add_to_found(number%)
1j�� searchstring$=t24$(number%) � searchstring$=�t24$(number%),�searchstring$) � searchstring$=�t24$(number%),�searchstring$) � �t24$(number%),searchstring$)<>0 � �add_to_found(number%)
1t�
1~�
1��close(cd_search%)
1�!�update_icon(cd_search%,1,"")
1��move_caret(cd_index%,9)
1�ș "Wimp_CreateMenu",,-1
1�ș "Hourglass_Off"
1�� found%<>0 �
1��open(cd_found%)
1��
1�9�error(1,"'"+searchstring$+"' could not be found.",1)
1��
1�� found%>120 � �error(1,"'"+searchstring$+"' has been found in "+�(found%)+" records. The first 120 occurances are selectable from the 'Records Found' window.",1)
1��
2:
2
 ��add_to_found(foundrecord%)
2I� foundicon%<122 � �update_icon(cd_found%,foundicon%,�(foundrecord%))
2(foundicon%+=1:found%+=1
22�
2<:
2F��close_all
2Pu�close(cd_wait%):�close(cd_print%):�close(cd_search%):�close(cd_found%):�close(cd_quit%):ș "Wimp_CreateMenu",,-1
2Zr�close(cd_clear%):�close(cd_help%):�close(cd_infobox%):�close(cd_savebox%):�close(cd_sort%):�close(cd_tracks%)
2dȗ ȓ 0,0,cx%,cy%
2n�
2x:
2���read_tracklist
2�*track_number%=�(�indirect(cd_pane%,6))
2�/t1$(track_number%)=�indirect(cd_tracks%,24)
2�/t2$(track_number%)=�indirect(cd_tracks%,25)
2�/t3$(track_number%)=�indirect(cd_tracks%,26)
2�/t4$(track_number%)=�indirect(cd_tracks%,27)
2�/t5$(track_number%)=�indirect(cd_tracks%,28)
2�/t6$(track_number%)=�indirect(cd_tracks%,29)
2�/t7$(track_number%)=�indirect(cd_tracks%,30)
2�/t8$(track_number%)=�indirect(cd_tracks%,31)
2�/t9$(track_number%)=�indirect(cd_tracks%,32)
2�0t10$(track_number%)=�indirect(cd_tracks%,33)
2�0t11$(track_number%)=�indirect(cd_tracks%,34)
30t12$(track_number%)=�indirect(cd_tracks%,35)
30t13$(track_number%)=�indirect(cd_tracks%,36)
30t14$(track_number%)=�indirect(cd_tracks%,37)
3"0t15$(track_number%)=�indirect(cd_tracks%,38)
3,0t16$(track_number%)=�indirect(cd_tracks%,39)
360t17$(track_number%)=�indirect(cd_tracks%,40)
3@0t18$(track_number%)=�indirect(cd_tracks%,41)
3J0t19$(track_number%)=�indirect(cd_tracks%,42)
3T0t20$(track_number%)=�indirect(cd_tracks%,43)
3^0t21$(track_number%)=�indirect(cd_tracks%,44)
3h0t22$(track_number%)=�indirect(cd_tracks%,45)
3r0t23$(track_number%)=�indirect(cd_tracks%,46)
3|0t24$(track_number%)=�indirect(cd_tracks%,47)
3�track$(track_number%)=""
3��� t1$(track_number%)<>"" � t2$(track_number%)<>"" � t3$(track_number%)<>"" � t4$(track_number%)<>"" � t5$(track_number%)<>"" � t6$(track_number%)<>"" � track$(track_number%)="Yes"
3��� t17$(track_number%)<>"" � t8$(track_number%)<>"" � t9$(track_number%)<>"" � t10$(track_number%)<>"" � t11$(track_number%)<>"" � t12$(track_number%)<>"" � track$(track_number%)="Yes"
3��� t13$(track_number%)<>"" � t14$(track_number%)<>"" � t15$(track_number%)<>"" � t16$(track_number%)<>"" � t17$(track_number%)<>"" � t18$(track_number%)<>"" � track$(track_number%)="Yes"
3��� t19$(track_number%)<>"" � t20$(track_number%)<>"" � t21$(track_number%)<>"" � t22$(track_number%)<>"" � t23$(track_number%)<>"" � t24$(track_number%)<>"" � track$(track_number%)="Yes"
3��
3�:
3���update_tracks
3�� X%=24 � 47
3�!q%=cd_tracks%:q%!4=X%
3�ș "Wimp_GetIconState",,q%
3�$(q%!28)="":q%!36=1
3�q%!8=0:q%!12=0
4ș "Wimp_SetIconState",,q%
4�
4*track_number%=�(�indirect(cd_pane%,6))
4&2�update_icon(cd_tracks%,24,t1$(track_number%))
402�update_icon(cd_tracks%,25,t2$(track_number%))
4:2�update_icon(cd_tracks%,26,t3$(track_number%))
4D2�update_icon(cd_tracks%,27,t4$(track_number%))
4N2�update_icon(cd_tracks%,28,t5$(track_number%))
4X2�update_icon(cd_tracks%,29,t6$(track_number%))
4b2�update_icon(cd_tracks%,30,t7$(track_number%))
4l2�update_icon(cd_tracks%,31,t8$(track_number%))
4v2�update_icon(cd_tracks%,32,t9$(track_number%))
4�3�update_icon(cd_tracks%,33,t10$(track_number%))
4�3�update_icon(cd_tracks%,34,t11$(track_number%))
4�3�update_icon(cd_tracks%,35,t12$(track_number%))
4�3�update_icon(cd_tracks%,36,t13$(track_number%))
4�3�update_icon(cd_tracks%,37,t14$(track_number%))
4�3�update_icon(cd_tracks%,38,t15$(track_number%))
4�3�update_icon(cd_tracks%,39,t16$(track_number%))
4�3�update_icon(cd_tracks%,40,t17$(track_number%))
4�3�update_icon(cd_tracks%,41,t18$(track_number%))
4�3�update_icon(cd_tracks%,42,t19$(track_number%))
4�3�update_icon(cd_tracks%,43,t20$(track_number%))
4�3�update_icon(cd_tracks%,44,t21$(track_number%))
4�3�update_icon(cd_tracks%,45,t22$(track_number%))
53�update_icon(cd_tracks%,46,t23$(track_number%))
53�update_icon(cd_tracks%,47,t24$(track_number%))
5�
5 :
5*��buffersize(size%,number$)
54newbufsize%=size%*1024
5>7ș "Wimp_SlotSize",ra%-&8000+newbufsize%,-1 � socs%
5Hbufferok%=�:load_error%=�
5R�� socs%<(ra%-&8000+newbufsize%) � ș "Wimp_SlotSize",ra%-&8000+rasize%:bufferok%=�:load_error%=�:�message("Insufficient memory available for "+number$+" records.")
5\rasize%=socs%-(ra%-&8000)-1
5f�
5p:
5z��message(m$)
5�!q%=0:$(q%+4)=m$
5�)ș "Wimp_ReportError",q%,1,"CD Index"
5��
5�:
5���clear_single
5�� X=9 � 16
5� �update_icon(cd_index%,X,"")
5��
5�� X=24 � 47
5�!�update_icon(cd_tracks%,X,"")
5��
5��read:�read_tracklist
5��
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 38 f4 20 43 44  20 49 6e 64 65 78 20 62  |...8. CD Index b|
00000020  79 20 52 69 63 6b 79 20  44 61 77 73 6f 6e 20 28  |y Ricky Dawson (|
00000030  a9 20 41 72 63 68 69 6d  65 64 65 73 20 57 6f 72  |. Archimedes Wor|
00000040  6c 64 20 31 39 39 33 29  0d 00 1e 05 3a 0d 00 28  |ld 1993)....:..(|
00000050  23 ee 20 85 20 f2 65 72  72 6f 72 28 9f 2c f6 24  |#. . .error(.,.$|
00000060  2b 22 20 40 20 22 2b c3  28 9e 29 2c 36 29 3a e0  |+" @ "+.(.),6):.|
00000070  0d 00 32 05 3a 0d 00 3c  49 c8 99 20 22 57 69 6d  |..2.:..<I.. "Wim|
00000080  70 5f 49 6e 69 74 69 61  6c 69 73 65 22 2c 32 30  |p_Initialise",20|
00000090  30 2c 26 34 42 35 33 34  31 35 34 2c 22 43 44 20  |0,&4B534154,"CD |
000000a0  49 6e 64 65 78 22 20 b8  20 77 69 6d 70 5f 76 65  |Index" . wimp_ve|
000000b0  72 73 69 6f 6e 25 2c 68  61 6e 64 6c 65 25 0d 00  |rsion%,handle%..|
000000c0  46 24 c8 99 20 22 57 69  6d 70 5f 43 6c 61 69 6d  |F$.. "Wimp_Claim|
000000d0  49 6e 74 65 72 66 61 63  65 22 2c 68 61 6e 64 6c  |Interface",handl|
000000e0  65 25 0d 00 50 05 3a 0d  00 5a 19 f2 69 6e 69 74  |e%..P.:..Z..init|
000000f0  69 61 6c 69 73 65 5f 76  61 72 69 61 62 6c 65 73  |ialise_variables|
00000100  0d 00 64 12 f2 67 65 74  5f 6d 6f 64 65 5f 69 6e  |..d..get_mode_in|
00000110  66 6f 0d 00 6e 2b f2 6d  73 5f 6c 6f 61 64 28 22  |fo..n+.ms_load("|
00000120  3c 43 44 24 44 69 72 3e  2e 52 65 73 6f 75 72 63  |<CD$Dir>.Resourc|
00000130  65 73 2e 4d 65 73 73 61  67 65 73 22 29 0d 00 78  |es.Messages")..x|
00000140  13 f2 6c 6f 61 64 5f 74  65 6d 70 6c 61 74 65 73  |..load_templates|
00000150  0d 00 82 0d f2 61 6e 6e  6f 75 6e 63 65 0d 00 8c  |.....announce...|
00000160  3c 21 71 25 3d 63 64 5f  69 6e 64 65 78 25 3a c8  |<!q%=cd_index%:.|
00000170  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |. "Wimp_CloseWin|
00000180  64 6f 77 22 2c 2c 71 25  3a f2 63 6c 6f 73 65 28  |dow",,q%:.close(|
00000190  63 64 5f 70 61 6e 65 25  29 0d 00 96 14 e7 20 61  |cd_pane%)..... a|
000001a0  6e 69 6d 6f 6e 24 3d 22  4f 6e 22 20 8c 0d 00 a0  |nimon$="On" ....|
000001b0  28 f2 63 68 61 6e 67 65  5f 69 63 6f 6e 28 71 25  |(.change_icon(q%|
000001c0  2c 2d 32 2c 61 70 70 69  63 6f 6e 25 2c 22 61 6e  |,-2,appicon%,"an|
000001d0  69 6d 32 22 29 0d 00 aa  05 cc 0d 00 b4 2b f2 63  |im2")........+.c|
000001e0  68 61 6e 67 65 5f 69 63  6f 6e 28 71 25 2c 2d 32  |hange_icon(q%,-2|
000001f0  2c 61 70 70 69 63 6f 6e  25 2c 22 21 63 64 69 6e  |,appicon%,"!cdin|
00000200  64 65 78 22 29 0d 00 be  05 cd 0d 00 c8 13 f2 63  |dex")..........c|
00000210  68 65 63 6b 5f 66 6f 72  5f 6c 6f 61 64 0d 00 d2  |heck_for_load...|
00000220  05 3a 0d 00 dc 36 ee 20  85 20 f2 65 72 72 6f 72  |.:...6. . .error|
00000230  28 9f 2c f6 24 2b 22 20  40 20 22 2b c3 28 9e 29  |(.,.$+" @ "+.(.)|
00000240  2c 33 29 3a e7 20 72 65  70 6c 79 25 3d 32 20 8c  |,3):. reply%=2 .|
00000250  20 71 75 69 74 25 3d b9  0d 00 e6 05 3a 0d 00 f0  | quit%=.....:...|
00000260  05 f5 0d 00 fa 25 c8 99  20 22 57 69 6d 70 5f 50  |.....%.. "Wimp_P|
00000270  6f 6c 6c 22 2c 2c 71 25  20 b8 20 72 65 61 73 6f  |oll",,q% . reaso|
00000280  6e 5f 63 6f 64 65 25 0d  01 04 2f c8 99 20 22 57  |n_code%.../.. "W|
00000290  69 6d 70 5f 50 6f 6c 6c  50 6f 69 6e 74 65 72 22  |imp_PollPointer"|
000002a0  2c 72 65 61 73 6f 6e 5f  63 6f 64 65 25 2c 2c 68  |,reason_code%,,h|
000002b0  61 6e 64 6c 65 25 0d 01  0e 15 c8 8e 20 72 65 61  |andle%...... rea|
000002c0  73 6f 6e 5f 63 6f 64 65  25 20 ca 0d 01 18 1b c9  |son_code% ......|
000002d0  20 31 3a f2 72 65 64 72  61 77 5f 77 69 6e 64 6f  | 1:.redraw_windo|
000002e0  77 28 21 71 25 29 0d 01  22 41 c9 20 32 3a f2 6f  |w(!q%).."A. 2:.o|
000002f0  70 65 6e 5f 77 69 6e 64  6f 77 28 21 71 25 2c 71  |pen_window(!q%,q|
00000300  25 21 34 2c 71 25 21 38  2c 71 25 21 31 32 2c 71  |%!4,q%!8,q%!12,q|
00000310  25 21 31 36 2c 71 25 21  32 30 2c 71 25 21 32 34  |%!16,q%!20,q%!24|
00000320  2c 71 25 21 32 38 29 0d  01 2c 13 c9 20 33 3a f2  |,q%!28)..,.. 3:.|
00000330  63 6c 6f 73 65 28 21 71  25 29 0d 01 36 2f c9 20  |close(!q%)..6/. |
00000340  36 3a f2 63 68 65 63 6b  5f 6d 6f 75 73 65 28 21  |6:.check_mouse(!|
00000350  71 25 2c 71 25 21 34 2c  71 25 21 38 2c 71 25 21  |q%,q%!4,q%!8,q%!|
00000360  31 32 2c 71 25 21 31 36  29 0d 01 40 30 c9 20 37  |12,q%!16)..@0. 7|
00000370  3a f2 69 6e 69 74 69 61  74 65 5f 73 61 76 65 28  |:.initiate_save(|
00000380  a4 69 6e 64 69 72 65 63  74 28 63 64 5f 73 61 76  |.indirect(cd_sav|
00000390  65 62 6f 78 25 2c 31 29  29 0d 01 4a 2a c9 20 38  |ebox%,1))..J*. 8|
000003a0  3a f2 6b 65 79 5f 70 72  65 73 73 65 64 28 21 71  |:.key_pressed(!q|
000003b0  25 2c 71 25 21 34 2c 71  25 21 32 30 2c 71 25 21  |%,q%!4,q%!20,q%!|
000003c0  32 34 29 0d 01 54 14 c9  20 39 3a f2 6d 65 6e 75  |24)..T.. 9:.menu|
000003d0  5f 73 65 6c 65 63 74 0d  01 5e 18 c9 20 31 37 2c  |_select..^.. 17,|
000003e0  31 38 3a f2 72 65 63 65  69 76 65 28 71 25 29 0d  |18:.receive(q%).|
000003f0  01 68 05 cb 0d 01 72 0b  fd 20 71 75 69 74 25 0d  |.h....r.. quit%.|
00000400  01 7c 15 c8 97 20 c8 93  20 30 2c 30 2c 63 78 25  |.|... .. 0,0,cx%|
00000410  2c 63 79 25 0d 01 86 0b  f2 6d 73 5f 65 6e 64 0d  |,cy%.....ms_end.|
00000420  01 90 17 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |..... "Wimp_Clos|
00000430  65 44 6f 77 6e 22 0d 01  9a 26 c8 99 20 22 57 69  |eDown"...&.. "Wi|
00000440  6d 70 5f 52 65 6c 65 61  73 65 49 6e 74 65 72 66  |mp_ReleaseInterf|
00000450  61 63 65 22 2c 68 61 6e  64 6c 65 25 0d 01 a4 07  |ace",handle%....|
00000460  d9 23 30 0d 01 ae 18 c8  99 20 22 48 6f 75 72 67  |.#0...... "Hourg|
00000470  6c 61 73 73 5f 53 6d 61  73 68 22 0d 01 b8 05 e0  |lass_Smash".....|
00000480  0d 01 c2 05 3a 0d 01 cc  1a dd f2 69 6e 69 74 69  |....:......initi|
00000490  61 6c 69 73 65 5f 76 61  72 69 61 62 6c 65 73 0d  |alise_variables.|
000004a0  01 d6 45 de 20 71 25 20  38 31 39 32 2c 20 6d 65  |..E. q% 8192, me|
000004b0  6e 75 66 72 65 65 25 20  26 38 30 30 2c 20 74 65  |nufree% &800, te|
000004c0  6d 70 25 20 38 31 39 32  2c 20 65 72 72 6f 72 62  |mp% 8192, errorb|
000004d0  75 66 25 20 32 35 36 2c  20 62 75 66 66 65 72 20  |uf% 256, buffer |
000004e0  26 35 30 30 0d 01 e0 10  63 75 72 77 73 25 3d 74  |&500....curws%=t|
000004f0  65 6d 70 25 0d 01 ea 15  6d 61 78 77 73 25 3d 74  |emp%....maxws%=t|
00000500  65 6d 70 25 2b 32 30 34  38 0d 01 f4 18 6d 65 6e  |emp%+2048....men|
00000510  75 73 74 61 72 74 25 3d  6d 65 6e 75 66 72 65 65  |ustart%=menufree|
00000520  25 0d 01 fe 1b 6d 65 6e  75 65 6e 64 25 3d 6d 65  |%....menuend%=me|
00000530  6e 75 66 72 65 65 25 2b  26 38 30 30 0d 02 08 0b  |nufree%+&800....|
00000540  6d 65 6e 75 25 3d 30 0d  02 12 0b 71 75 69 74 25  |menu%=0....quit%|
00000550  3d a3 0d 02 1c 1d 76 65  72 24 3d 22 32 2e 32 30  |=.....ver$="2.20|
00000560  20 28 32 32 20 4d 61 72  20 31 39 39 33 29 22 0d  | (22 Mar 1993)".|
00000570  02 26 18 f2 69 6e 69 74  69 61 6c 69 73 65 5f 63  |.&..initialise_c|
00000580  64 5f 69 6e 64 65 78 0d  02 30 14 72 61 73 69 7a  |d_index..0.rasiz|
00000590  65 25 3d 31 35 30 2a 31  30 32 34 0d 02 3a 0b 72  |e%=150*1024..:.r|
000005a0  61 25 3d 93 2b 31 0d 02  44 33 c8 99 20 22 57 69  |a%=.+1..D3.. "Wi|
000005b0  6d 70 5f 53 6c 6f 74 53  69 7a 65 22 2c 72 61 25  |mp_SlotSize",ra%|
000005c0  2d 26 38 30 30 30 2b 72  61 73 69 7a 65 25 2c 2d  |-&8000+rasize%,-|
000005d0  31 20 b8 20 73 6f 63 73  25 0d 02 4e 3c e7 20 73  |1 . socs%..N<. s|
000005e0  6f 63 73 25 3c 28 72 61  25 2d 26 38 30 30 30 2b  |ocs%<(ra%-&8000+|
000005f0  72 61 73 69 7a 65 25 29  20 8c 20 85 20 30 2c 22  |rasize%) . . 0,"|
00000600  49 6e 73 75 66 66 69 63  69 65 6e 74 20 6d 65 6d  |Insufficient mem|
00000610  6f 72 79 2e 22 0d 02 58  1f 72 61 73 69 7a 65 25  |ory."..X.rasize%|
00000620  3d 73 6f 63 73 25 2d 28  72 61 25 2d 26 38 30 30  |=socs%-(ra%-&800|
00000630  30 29 2d 31 0d 02 62 05  e1 0d 02 6c 05 3a 0d 02  |0)-1..b....l.:..|
00000640  76 14 dd f2 6c 6f 61 64  5f 74 65 6d 70 6c 61 74  |v...load_templat|
00000650  65 73 0d 02 80 0c ea 20  73 70 61 63 65 25 0d 02  |es..... space%..|
00000660  8a 10 73 70 61 63 65 25  3d 74 65 6d 70 25 0d 02  |..space%=temp%..|
00000670  94 14 c8 8e 20 77 69 6e  64 6f 77 74 79 70 65 24  |.... windowtype$|
00000680  20 ca 0d 02 9e 45 c9 20  22 50 6c 61 69 6e 22 3a  | ....E. "Plain":|
00000690  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 54 65 6d  |.. "Wimp_OpenTem|
000006a0  70 6c 61 74 65 22 2c 2c  22 3c 43 44 24 44 69 72  |plate",,"<CD$Dir|
000006b0  3e 2e 52 65 73 6f 75 72  63 65 73 2e 50 6c 61 69  |>.Resources.Plai|
000006c0  6e 54 65 6d 70 73 22 0d  02 a8 3f c9 20 22 33 44  |nTemps"...?. "3D|
000006d0  22 3a c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 54  |":.. "Wimp_OpenT|
000006e0  65 6d 70 6c 61 74 65 22  2c 2c 22 3c 43 44 24 44  |emplate",,"<CD$D|
000006f0  69 72 3e 2e 52 65 73 6f  75 72 63 65 73 2e 33 44  |ir>.Resources.3D|
00000700  54 65 6d 70 73 22 0d 02  b2 05 cb 0d 02 bc 44 c8  |Temps"........D.|
00000710  99 20 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |. "Wimp_LoadTemp|
00000720  6c 61 74 65 22 2c 2c 71  25 2c 73 70 61 63 65 25  |late",,q%,space%|
00000730  2c 74 65 6d 70 25 2b 35  31 32 2c 2d 31 2c 22 49  |,temp%+512,-1,"I|
00000740  6e 66 6f 22 20 b8 20 2c  2c 73 70 61 63 65 25 0d  |nfo" . ,,space%.|
00000750  02 c6 2c c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..,.. "Wimp_Crea|
00000760  74 65 57 69 6e 64 6f 77  22 2c 2c 71 25 20 b8 20  |teWindow",,q% . |
00000770  63 64 5f 69 6e 66 6f 62  6f 78 25 0d 02 d0 45 c8  |cd_infobox%...E.|
00000780  99 20 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |. "Wimp_LoadTemp|
00000790  6c 61 74 65 22 2c 2c 71  25 2c 73 70 61 63 65 25  |late",,q%,space%|
000007a0  2c 74 65 6d 70 25 2b 32  30 34 38 2c 2d 31 2c 22  |,temp%+2048,-1,"|
000007b0  53 61 76 65 22 20 b8 20  2c 2c 73 70 61 63 65 25  |Save" . ,,space%|
000007c0  0d 02 da 2c c8 99 20 22  57 69 6d 70 5f 43 72 65  |...,.. "Wimp_Cre|
000007d0  61 74 65 57 69 6e 64 6f  77 22 2c 2c 71 25 20 b8  |ateWindow",,q% .|
000007e0  20 63 64 5f 73 61 76 65  62 6f 78 25 0d 02 e4 46  | cd_savebox%...F|
000007f0  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
00000800  70 6c 61 74 65 22 2c 2c  71 25 2c 73 70 61 63 65  |plate",,q%,space|
00000810  25 2c 74 65 6d 70 25 2b  32 30 34 38 2c 2d 31 2c  |%,temp%+2048,-1,|
00000820  22 49 6e 64 65 78 22 20  b8 20 2c 2c 73 70 61 63  |"Index" . ,,spac|
00000830  65 25 0d 02 ee 2a c8 99  20 22 57 69 6d 70 5f 43  |e%...*.. "Wimp_C|
00000840  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 71 25  |reateWindow",,q%|
00000850  20 b8 20 63 64 5f 69 6e  64 65 78 25 0d 02 f8 46  | . cd_index%...F|
00000860  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
00000870  70 6c 61 74 65 22 2c 2c  71 25 2c 73 70 61 63 65  |plate",,q%,space|
00000880  25 2c 74 65 6d 70 25 2b  33 30 37 32 2c 2d 31 2c  |%,temp%+3072,-1,|
00000890  22 50 72 69 6e 74 22 20  b8 20 2c 2c 73 70 61 63  |"Print" . ,,spac|
000008a0  65 25 0d 03 02 2a c8 99  20 22 57 69 6d 70 5f 43  |e%...*.. "Wimp_C|
000008b0  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 71 25  |reateWindow",,q%|
000008c0  20 b8 20 63 64 5f 70 72  69 6e 74 25 0d 03 0c 45  | . cd_print%...E|
000008d0  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
000008e0  70 6c 61 74 65 22 2c 2c  71 25 2c 73 70 61 63 65  |plate",,q%,space|
000008f0  25 2c 74 65 6d 70 25 2b  33 30 37 32 2c 2d 31 2c  |%,temp%+3072,-1,|
00000900  22 53 6f 72 74 22 20 b8  20 2c 2c 73 70 61 63 65  |"Sort" . ,,space|
00000910  25 0d 03 16 29 c8 99 20  22 57 69 6d 70 5f 43 72  |%...).. "Wimp_Cr|
00000920  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 71 25 20  |eateWindow",,q% |
00000930  b8 20 63 64 5f 73 6f 72  74 25 0d 03 20 45 c8 99  |. cd_sort%.. E..|
00000940  20 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  | "Wimp_LoadTempl|
00000950  61 74 65 22 2c 2c 71 25  2c 73 70 61 63 65 25 2c  |ate",,q%,space%,|
00000960  74 65 6d 70 25 2b 33 30  37 32 2c 2d 31 2c 22 48  |temp%+3072,-1,"H|
00000970  65 6c 70 22 20 b8 20 2c  2c 73 70 61 63 65 25 0d  |elp" . ,,space%.|
00000980  03 2a 29 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.*).. "Wimp_Crea|
00000990  74 65 57 69 6e 64 6f 77  22 2c 2c 71 25 20 b8 20  |teWindow",,q% . |
000009a0  63 64 5f 68 65 6c 70 25  0d 03 34 49 c8 99 20 22  |cd_help%..4I.. "|
000009b0  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
000009c0  65 22 2c 2c 71 25 2c 73  70 61 63 65 25 2c 74 65  |e",,q%,space%,te|
000009d0  6d 70 25 2b 33 30 37 32  2c 2d 31 2c 22 41 6e 6e  |mp%+3072,-1,"Ann|
000009e0  6f 75 6e 63 65 22 20 b8  20 2c 2c 73 70 61 63 65  |ounce" . ,,space|
000009f0  25 0d 03 3e 2d c8 99 20  22 57 69 6d 70 5f 43 72  |%..>-.. "Wimp_Cr|
00000a00  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 71 25 20  |eateWindow",,q% |
00000a10  b8 20 63 64 5f 61 6e 6e  6f 75 6e 63 65 25 0d 03  |. cd_announce%..|
00000a20  48 46 c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |HF.. "Wimp_LoadT|
00000a30  65 6d 70 6c 61 74 65 22  2c 2c 71 25 2c 73 70 61  |emplate",,q%,spa|
00000a40  63 65 25 2c 74 65 6d 70  25 2b 33 30 37 32 2c 2d  |ce%,temp%+3072,-|
00000a50  31 2c 22 43 6c 65 61 72  22 20 b8 20 2c 2c 73 70  |1,"Clear" . ,,sp|
00000a60  61 63 65 25 0d 03 52 2a  c8 99 20 22 57 69 6d 70  |ace%..R*.. "Wimp|
00000a70  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
00000a80  71 25 20 b8 20 63 64 5f  63 6c 65 61 72 25 0d 03  |q% . cd_clear%..|
00000a90  5c 45 c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |\E.. "Wimp_LoadT|
00000aa0  65 6d 70 6c 61 74 65 22  2c 2c 71 25 2c 73 70 61  |emplate",,q%,spa|
00000ab0  63 65 25 2c 74 65 6d 70  25 2b 34 30 39 36 2c 2d  |ce%,temp%+4096,-|
00000ac0  31 2c 22 51 75 69 74 22  20 b8 20 2c 2c 73 70 61  |1,"Quit" . ,,spa|
00000ad0  63 65 25 0d 03 66 29 c8  99 20 22 57 69 6d 70 5f  |ce%..f).. "Wimp_|
00000ae0  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 71  |CreateWindow",,q|
00000af0  25 20 b8 20 63 64 5f 71  75 69 74 25 0d 03 70 45  |% . cd_quit%..pE|
00000b00  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
00000b10  70 6c 61 74 65 22 2c 2c  71 25 2c 73 70 61 63 65  |plate",,q%,space|
00000b20  25 2c 74 65 6d 70 25 2b  34 30 39 36 2c 2d 31 2c  |%,temp%+4096,-1,|
00000b30  22 57 61 69 74 22 20 b8  20 2c 2c 73 70 61 63 65  |"Wait" . ,,space|
00000b40  25 0d 03 7a 29 c8 99 20  22 57 69 6d 70 5f 43 72  |%..z).. "Wimp_Cr|
00000b50  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 71 25 20  |eateWindow",,q% |
00000b60  b8 20 63 64 5f 77 61 69  74 25 0d 03 84 47 c8 99  |. cd_wait%...G..|
00000b70  20 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  | "Wimp_LoadTempl|
00000b80  61 74 65 22 2c 2c 71 25  2c 73 70 61 63 65 25 2c  |ate",,q%,space%,|
00000b90  74 65 6d 70 25 2b 35 31  32 30 2c 2d 31 2c 22 53  |temp%+5120,-1,"S|
00000ba0  65 61 72 63 68 22 20 b8  20 2c 2c 73 70 61 63 65  |earch" . ,,space|
00000bb0  25 0d 03 8e 2b c8 99 20  22 57 69 6d 70 5f 43 72  |%...+.. "Wimp_Cr|
00000bc0  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 71 25 20  |eateWindow",,q% |
00000bd0  b8 20 63 64 5f 73 65 61  72 63 68 25 0d 03 98 46  |. cd_search%...F|
00000be0  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
00000bf0  70 6c 61 74 65 22 2c 2c  71 25 2c 73 70 61 63 65  |plate",,q%,space|
00000c00  25 2c 74 65 6d 70 25 2b  35 31 32 30 2c 2d 31 2c  |%,temp%+5120,-1,|
00000c10  22 46 6f 75 6e 64 22 20  b8 20 2c 2c 73 70 61 63  |"Found" . ,,spac|
00000c20  65 25 0d 03 a2 2a c8 99  20 22 57 69 6d 70 5f 43  |e%...*.. "Wimp_C|
00000c30  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 71 25  |reateWindow",,q%|
00000c40  20 b8 20 63 64 5f 66 6f  75 6e 64 25 0d 03 ac 45  | . cd_found%...E|
00000c50  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
00000c60  70 6c 61 74 65 22 2c 2c  71 25 2c 73 70 61 63 65  |plate",,q%,space|
00000c70  25 2c 74 65 6d 70 25 2b  35 31 32 30 2c 2d 31 2c  |%,temp%+5120,-1,|
00000c80  22 50 61 6e 65 22 20 b8  20 2c 2c 73 70 61 63 65  |"Pane" . ,,space|
00000c90  25 0d 03 b6 29 c8 99 20  22 57 69 6d 70 5f 43 72  |%...).. "Wimp_Cr|
00000ca0  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 71 25 20  |eateWindow",,q% |
00000cb0  b8 20 63 64 5f 70 61 6e  65 25 0d 03 c0 46 c8 99  |. cd_pane%...F..|
00000cc0  20 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  | "Wimp_LoadTempl|
00000cd0  61 74 65 22 2c 2c 71 25  2c 73 70 61 63 65 25 2c  |ate",,q%,space%,|
00000ce0  74 65 6d 70 25 2b 36 31  34 34 2c 2d 31 2c 22 54  |temp%+6144,-1,"T|
00000cf0  72 61 63 6b 22 20 b8 20  2c 2c 73 70 61 63 65 25  |rack" . ,,space%|
00000d00  0d 03 ca 2b c8 99 20 22  57 69 6d 70 5f 43 72 65  |...+.. "Wimp_Cre|
00000d10  61 74 65 57 69 6e 64 6f  77 22 2c 2c 71 25 20 b8  |ateWindow",,q% .|
00000d20  20 63 64 5f 74 72 61 63  6b 73 25 0d 03 d4 1b c8  | cd_tracks%.....|
00000d30  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 54 65 6d  |. "Wimp_CloseTem|
00000d40  70 6c 61 74 65 22 0d 03  de 24 f2 75 70 64 61 74  |plate"...$.updat|
00000d50  65 5f 69 63 6f 6e 28 63  64 5f 69 6e 66 6f 62 6f  |e_icon(cd_infobo|
00000d60  78 25 2c 37 2c 76 65 72  24 29 0d 03 e8 05 e1 0d  |x%,7,ver$)......|
00000d70  03 f2 05 3a 0d 03 fc 10  dd f2 6d 61 6b 65 5f 6d  |...:......make_m|
00000d80  65 6e 75 73 0d 04 06 18  6d 65 6e 75 66 72 65 65  |enus....menufree|
00000d90  25 3d 6d 65 6e 75 73 74  61 72 74 25 0d 04 10 25  |%=menustart%...%|
00000da0  e3 20 6c 6f 6f 70 25 3d  6d 65 6e 75 73 74 61 72  |. loop%=menustar|
00000db0  74 25 20 b8 20 6d 65 6e  75 65 6e 64 25 20 88 20  |t% . menuend% . |
00000dc0  34 0d 04 1a 0c 21 6c 6f  6f 70 25 3d 30 0d 04 24  |4....!loop%=0..$|
00000dd0  05 ed 0d 04 2e 45 77 69  6e 64 6f 77 6f 70 74 73  |.....Ewindowopts|
00000de0  25 3d a4 63 72 65 61 74  65 5f 6d 65 6e 75 28 22  |%=.create_menu("|
00000df0  23 20 57 69 6e 64 6f 77  73 20 2c 33 44 20 49 63  |# Windows ,3D Ic|
00000e00  6f 6e 73 2c 50 6c 61 69  6e 20 49 63 6f 6e 73 22  |ons,Plain Icons"|
00000e10  2c 22 22 2c 22 22 29 0d  04 38 47 6d 61 78 72 65  |,"","")..8Gmaxre|
00000e20  63 6f 72 64 6d 65 6e 75  25 3d a4 63 72 65 61 74  |cordmenu%=.creat|
00000e30  65 5f 6d 65 6e 75 28 22  23 20 52 65 63 6f 72 64  |e_menu("# Record|
00000e40  73 20 2c 31 30 30 2c 32  30 30 2c 33 30 30 2c 34  |s ,100,200,300,4|
00000e50  30 30 2c 35 30 30 22 2c  22 22 2c 22 22 29 0d 04  |00,500","","")..|
00000e60  42 37 61 6e 69 6d 6d 65  6e 75 25 3d a4 63 72 65  |B7animmenu%=.cre|
00000e70  61 74 65 5f 6d 65 6e 75  28 22 23 20 41 6e 69 6d  |ate_menu("# Anim|
00000e80  61 74 69 6f 6e 20 2c 4f  66 66 2c 4f 6e 22 2c 22  |ation ,Off,On","|
00000e90  22 2c 22 22 29 0d 04 4c  7e 6f 70 74 69 6f 6e 73  |","")..L~options|
00000ea0  6d 65 6e 75 25 3d a4 63  72 65 61 74 65 5f 6d 65  |menu%=.create_me|
00000eb0  6e 75 28 22 23 20 4f 70  74 69 6f 6e 73 20 2c 41  |nu("# Options ,A|
00000ec0  6e 69 6d 61 74 69 6f 6e  3e 61 6e 69 6d 6d 65 6e  |nimation>animmen|
00000ed0  75 25 2c 52 65 63 6f 72  64 73 3e 6d 61 78 72 65  |u%,Records>maxre|
00000ee0  63 6f 72 64 6d 65 6e 75  25 2c 57 69 6e 64 6f 77  |cordmenu%,Window|
00000ef0  73 23 3e 77 69 6e 64 6f  77 6f 70 74 73 25 2c 53  |s#>windowopts%,S|
00000f00  61 76 65 20 43 68 6f 69  63 65 73 22 2c 22 22 2c  |ave Choices","",|
00000f10  22 22 29 0d 04 56 6b 69  63 6f 6e 62 61 72 6d 65  |"")..Vkiconbarme|
00000f20  6e 75 25 3d a4 63 72 65  61 74 65 5f 6d 65 6e 75  |nu%=.create_menu|
00000f30  28 22 23 20 43 44 20 49  6e 64 65 78 20 2c 49 6e  |("# CD Index ,In|
00000f40  66 6f 3e 63 64 5f 69 6e  66 6f 62 6f 78 25 2c 4f  |fo>cd_infobox%,O|
00000f50  70 74 69 6f 6e 73 3e 6f  70 74 69 6f 6e 73 6d 65  |ptions>optionsme|
00000f60  6e 75 25 2c 52 65 73 74  61 72 74 20 20 20 46 38  |nu%,Restart   F8|
00000f70  23 2c 51 75 69 74 22 2c  22 22 2c 22 22 29 0d 04  |#,Quit","","")..|
00000f80  60 45 66 6f 72 6d 61 74  6d 65 6e 75 25 3d a4 63  |`Eformatmenu%=.c|
00000f90  72 65 61 74 65 5f 6d 65  6e 75 28 22 23 20 46 6f  |reate_menu("# Fo|
00000fa0  72 6d 61 74 20 2c 43 44  2c 43 44 2d 52 4f 4d 2c  |rmat ,CD,CD-ROM,|
00000fb0  44 41 54 2c 4c 50 2c 54  61 70 65 22 2c 22 22 2c  |DAT,LP,Tape","",|
00000fc0  22 22 29 0d 04 6a 67 73  69 7a 65 6d 65 6e 75 25  |"")..jgsizemenu%|
00000fd0  3d a4 63 72 65 61 74 65  5f 6d 65 6e 75 28 22 23  |=.create_menu("#|
00000fe0  20 53 69 7a 65 20 2c 37  22 22 20 53 69 6e 67 6c  | Size ,7"" Singl|
00000ff0  65 2c 31 32 22 22 20 53  69 6e 67 6c 65 2c 43 44  |e,12"" Single,CD|
00001000  20 53 69 6e 67 6c 65 2c  41 6c 62 75 6d 2c 42 6f  | Single,Album,Bo|
00001010  78 20 53 65 74 2c 44 6f  75 62 6c 65 20 41 6c 62  |x Set,Double Alb|
00001020  75 6d 22 2c 22 22 2c 22  22 29 0d 04 74 0d f2 67  |um","","")..t..g|
00001030  65 74 5f 79 65 61 72 0d  04 7e 8f 79 65 61 72 6d  |et_year..~.yearm|
00001040  65 6e 75 25 3d a4 63 72  65 61 74 65 5f 6d 65 6e  |enu%=.create_men|
00001050  75 28 22 23 20 59 65 61  72 20 2c 22 2b c3 28 79  |u("# Year ,"+.(y|
00001060  65 61 72 25 2d 36 29 2b  22 2c 22 2b c3 28 79 65  |ear%-6)+","+.(ye|
00001070  61 72 25 2d 35 29 2b 22  2c 22 2b c3 28 79 65 61  |ar%-5)+","+.(yea|
00001080  72 25 2d 34 29 2b 22 2c  22 2b c3 28 79 65 61 72  |r%-4)+","+.(year|
00001090  25 2d 33 29 2b 22 2c 22  2b c3 28 79 65 61 72 25  |%-3)+","+.(year%|
000010a0  2d 32 29 2b 22 2c 22 2b  c3 28 79 65 61 72 25 2d  |-2)+","+.(year%-|
000010b0  31 29 2b 22 2c 22 2b c3  28 79 65 61 72 25 29 2c  |1)+","+.(year%),|
000010c0  22 22 2c 22 22 29 0d 04  88 e0 6d 61 69 6e 6d 65  |"","")....mainme|
000010d0  6e 75 25 3d a4 63 72 65  61 74 65 5f 6d 65 6e 75  |nu%=.create_menu|
000010e0  28 22 23 20 43 44 20 49  6e 64 65 78 20 2c 49 6e  |("# CD Index ,In|
000010f0  66 6f 3e 63 64 5f 69 6e  66 6f 62 6f 78 25 2c 4f  |fo>cd_infobox%,O|
00001100  70 74 69 6f 6e 73 3e 6f  70 74 69 6f 6e 73 6d 65  |ptions>optionsme|
00001110  6e 75 25 2c 51 75 69 74  23 2c 43 6c 65 61 72 20  |nu%,Quit#,Clear |
00001120  52 65 63 6f 72 64 2c 48  65 6c 70 20 20 20 20 20  |Record,Help     |
00001130  20 46 31 2c 50 72 69 6e  74 20 20 20 20 20 46 39  | F1,Print     F9|
00001140  3e 63 64 5f 70 72 69 6e  74 25 2c 52 65 73 74 61  |>cd_print%,Resta|
00001150  72 74 20 20 20 46 38 2c  53 61 76 65 20 20 20 20  |rt   F8,Save    |
00001160  20 20 46 33 3e 63 64 5f  73 61 76 65 62 6f 78 25  |  F3>cd_savebox%|
00001170  2c 53 65 61 72 63 68 20  20 20 20 46 34 3e 63 64  |,Search    F4>cd|
00001180  5f 73 65 61 72 63 68 25  2c 53 6f 72 74 20 20 20  |_search%,Sort   |
00001190  20 20 20 46 32 3e 63 64  5f 73 6f 72 74 25 22 2c  |   F2>cd_sort%",|
000011a0  22 22 2c 22 22 29 0d 04  92 80 74 79 70 65 6d 65  |"","")....typeme|
000011b0  6e 75 25 3d a4 63 72 65  61 74 65 5f 6d 65 6e 75  |nu%=.create_menu|
000011c0  28 22 23 20 4d 75 73 69  63 20 54 79 70 65 20 2c  |("# Music Type ,|
000011d0  42 6c 75 65 73 2c 43 6c  61 73 73 69 63 61 6c 2c  |Blues,Classical,|
000011e0  43 6f 75 6e 74 72 79 2c  46 6f 6c 6b 2c 46 75 6e  |Country,Folk,Fun|
000011f0  6b 2c 4a 61 7a 7a 2c 4d  65 74 61 6c 2c 50 6f 70  |k,Jazz,Metal,Pop|
00001200  2c 53 6f 75 6c 2c 52 61  76 65 2c 52 65 67 67 61  |,Soul,Rave,Regga|
00001210  65 2c 52 6f 63 6b 2c 56  61 72 69 6f 75 73 22 2c  |e,Rock,Various",|
00001220  22 22 2c 22 22 29 0d 04  9c 14 c8 8e 20 77 69 6e  |"","")...... win|
00001230  64 6f 77 74 79 70 65 24  20 ca 0d 04 a6 24 c9 20  |dowtype$ ....$. |
00001240  22 50 6c 61 69 6e 22 3a  f2 74 69 63 6b 28 77 69  |"Plain":.tick(wi|
00001250  6e 64 6f 77 6f 70 74 73  25 2c 31 2c 31 29 0d 04  |ndowopts%,1,1)..|
00001260  b0 21 c9 20 22 33 44 22  3a f2 74 69 63 6b 28 77  |.!. "3D":.tick(w|
00001270  69 6e 64 6f 77 6f 70 74  73 25 2c 30 2c 31 29 0d  |indowopts%,0,1).|
00001280  04 ba 05 cb 0d 04 c4 10  c8 8e 20 61 6e 69 6d 6f  |.......... animo|
00001290  6e 24 20 ca 0d 04 ce 20  c9 20 22 4f 66 66 22 3a  |n$ .... . "Off":|
000012a0  f2 74 69 63 6b 28 61 6e  69 6d 6d 65 6e 75 25 2c  |.tick(animmenu%,|
000012b0  30 2c 31 29 0d 04 d8 1f  c9 20 22 4f 6e 22 3a f2  |0,1)..... "On":.|
000012c0  74 69 63 6b 28 61 6e 69  6d 6d 65 6e 75 25 2c 31  |tick(animmenu%,1|
000012d0  2c 31 29 0d 04 e2 05 cb  0d 04 ec 10 f2 72 65 63  |,1)..........rec|
000012e0  6f 72 64 5f 6d 65 6e 75  0d 04 f6 05 e1 0d 05 00  |ord_menu........|
000012f0  05 3a 0d 05 0a 0e dd f2  67 65 74 5f 79 65 61 72  |.:......get_year|
00001300  0d 05 14 1c 3f 71 25 3d  31 3a c8 99 20 22 4f 53  |....?q%=1:.. "OS|
00001310  5f 57 6f 72 64 22 2c 31  34 2c 71 25 0d 05 1e 1d  |_Word",14,q%....|
00001320  79 65 61 72 25 3d bb 28  c2 c3 7e 28 3f 71 25 29  |year%=.(..~(?q%)|
00001330  2c 32 29 29 2b 31 39 30  30 0d 05 28 1d e7 20 79  |,2))+1900..(.. y|
00001340  65 61 72 25 3c 31 39 35  30 20 8c 20 79 65 61 72  |ear%<1950 . year|
00001350  25 2b 3d 31 30 30 0d 05  32 05 e1 0d 05 3c 05 3a  |%+=100..2....<.:|
00001360  0d 05 46 12 dd f2 69 6e  73 74 61 6c 6c 5f 69 63  |..F...install_ic|
00001370  6f 6e 0d 05 50 33 ea 20  73 77 69 64 74 68 25 2c  |on..P3. swidth%,|
00001380  73 68 65 69 67 68 74 25  2c 73 6d 6f 64 65 25 2c  |sheight%,smode%,|
00001390  70 78 25 2c 70 79 25 2c  74 65 78 74 24 2c 73 70  |px%,py%,text$,sp|
000013a0  72 69 74 65 24 0d 05 5a  13 73 70 72 69 74 65 24  |rite$..Z.sprite$|
000013b0  3d 22 61 6e 69 6d 31 22  0d 05 64 14 74 65 78 74  |="anim1"..d.text|
000013c0  24 3d 22 43 44 20 49 6e  64 65 78 22 0d 05 6e 2b  |$="CD Index"..n+|
000013d0  de 20 73 70 72 69 74 65  25 20 28 a9 28 73 70 72  |. sprite% (.(spr|
000013e0  69 74 65 24 29 2b 31 29  2c 74 65 78 74 25 20 a9  |ite$)+1),text% .|
000013f0  28 74 65 78 74 24 29 0d  05 78 18 24 73 70 72 69  |(text$)..x.$spri|
00001400  74 65 25 3d 22 53 22 2b  73 70 72 69 74 65 24 0d  |te%="S"+sprite$.|
00001410  05 82 10 24 74 65 78 74  25 3d 74 65 78 74 24 0d  |...$text%=text$.|
00001420  05 8c 40 c8 99 20 22 57  69 6d 70 5f 53 70 72 69  |..@.. "Wimp_Spri|
00001430  74 65 4f 70 22 2c 34 30  2c 2c 73 70 72 69 74 65  |teOp",40,,sprite|
00001440  24 20 b8 20 2c 2c 2c 73  77 69 64 74 68 25 2c 73  |$ . ,,,swidth%,s|
00001450  68 65 69 67 68 74 25 2c  2c 73 6d 6f 64 65 25 0d  |height%,,smode%.|
00001460  05 96 2d c8 99 20 22 4f  53 5f 52 65 61 64 4d 6f  |..-.. "OS_ReadMo|
00001470  64 65 56 61 72 69 61 62  6c 65 22 2c 73 6d 6f 64  |deVariable",smod|
00001480  65 25 2c 34 20 b8 20 2c  2c 70 78 25 0d 05 a0 18  |e%,4 . ,,px%....|
00001490  73 77 69 64 74 68 25 3d  73 77 69 64 74 68 25 3c  |swidth%=swidth%<|
000014a0  3c 70 78 25 0d 05 aa 2d  c8 99 20 22 4f 53 5f 52  |<px%...-.. "OS_R|
000014b0  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
000014c0  2c 73 6d 6f 64 65 25 2c  35 20 b8 20 2c 2c 70 79  |,smode%,5 . ,,py|
000014d0  25 0d 05 b4 1a 73 68 65  69 67 68 74 25 3d 73 68  |%....sheight%=sh|
000014e0  65 69 67 68 74 25 3c 3c  70 79 25 0d 05 be 2f e7  |eight%<<py%.../.|
000014f0  20 a9 28 74 65 78 74 24  29 2a 31 36 3e 73 77 69  | .(text$)*16>swi|
00001500  64 74 68 25 20 8c 20 73  77 69 64 74 68 25 3d a9  |dth% . swidth%=.|
00001510  28 74 65 78 74 24 29 2a  31 36 0d 05 c8 4f 21 71  |(text$)*16...O!q|
00001520  25 3d 2d 31 3a 71 25 21  34 3d 30 3a 71 25 21 38  |%=-1:q%!4=0:q%!8|
00001530  3d 2d 31 36 3a 71 25 21  31 32 3d 71 25 21 34 2b  |=-16:q%!12=q%!4+|
00001540  73 77 69 64 74 68 25 3a  71 25 21 31 36 3d 32 30  |swidth%:q%!16=20|
00001550  2b 73 68 65 69 67 68 74  25 3a 71 25 21 32 30 3d  |+sheight%:q%!20=|
00001560  26 31 37 30 30 33 31 30  42 0d 05 d2 0f 71 25 21  |&1700310B....q%!|
00001570  32 34 3d 74 65 78 74 25  0d 05 dc 11 71 25 21 32  |24=text%....q%!2|
00001580  38 3d 73 70 72 69 74 65  25 0d 05 e6 12 71 25 21  |8=sprite%....q%!|
00001590  33 32 3d a9 28 74 65 78  74 24 29 0d 05 f0 27 c8  |32=.(text$)...'.|
000015a0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
000015b0  6f 6e 22 2c 2c 71 25 20  b8 20 61 70 70 69 63 6f  |on",,q% . appico|
000015c0  6e 25 0d 05 fa 05 e1 0d  06 04 05 3a 0d 06 0e 1e  |n%.........:....|
000015d0  dd f2 65 72 72 6f 72 28  65 72 72 2c 72 65 70 6f  |..error(err,repo|
000015e0  72 74 24 2c 74 79 70 65  25 29 0d 06 18 07 ef 20  |rt$,type%)..... |
000015f0  33 0d 06 22 1c c8 99 20  22 57 69 6d 70 5f 43 72  |3.."... "Wimp_Cr|
00001600  65 61 74 65 4d 65 6e 75  22 2c 2c 2d 31 0d 06 2c  |eateMenu",,-1..,|
00001610  19 c8 99 20 22 57 69 6d  70 5f 44 72 61 67 42 6f  |... "Wimp_DragBo|
00001620  78 22 2c 2c 2d 31 0d 06  36 12 21 65 72 72 6f 72  |x",,-1..6.!error|
00001630  62 75 66 25 3d 65 72 72  0d 06 40 1f 24 28 65 72  |buf%=err..@.$(er|
00001640  72 6f 72 62 75 66 25 2b  34 29 3d 72 65 70 6f 72  |rorbuf%+4)=repor|
00001650  74 24 2b bd 28 30 29 0d  06 4a 3e c8 99 20 22 57  |t$+.(0)..J>.. "W|
00001660  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
00001670  2c 65 72 72 6f 72 62 75  66 25 2c 74 79 70 65 25  |,errorbuf%,type%|
00001680  2c 22 43 44 20 49 6e 64  65 78 22 20 b8 20 2c 72  |,"CD Index" . ,r|
00001690  65 70 6c 79 25 0d 06 54  05 e1 0d 06 5e 05 3a 0d  |eply%..T....^.:.|
000016a0  06 68 3e dd f2 6f 70 65  6e 5f 77 69 6e 64 6f 77  |.h>..open_window|
000016b0  28 21 71 25 2c 71 25 21  34 2c 71 25 21 38 2c 71  |(!q%,q%!4,q%!8,q|
000016c0  25 21 31 32 2c 71 25 21  31 36 2c 71 25 21 32 30  |%!12,q%!16,q%!20|
000016d0  2c 71 25 21 32 34 2c 71  25 21 32 38 29 0d 06 72  |,q%!24,q%!28)..r|
000016e0  1c c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |... "Wimp_OpenWi|
000016f0  6e 64 6f 77 22 2c 2c 71  25 0d 06 7c 05 e1 0d 06  |ndow",,q%..|....|
00001700  86 05 3a 0d 06 90 14 dd  f2 63 6c 6f 73 65 28 77  |..:......close(w|
00001710  69 6e 64 6f 77 25 29 0d  06 9a 3b e7 20 77 69 6e  |indow%)...;. win|
00001720  64 6f 77 25 3d 63 64 5f  69 6e 64 65 78 25 20 8c  |dow%=cd_index% .|
00001730  20 f2 63 6c 6f 73 65 5f  61 6e 69 6d 61 74 69 6f  | .close_animatio|
00001740  6e 3a f2 63 6c 6f 73 65  28 63 64 5f 70 61 6e 65  |n:.close(cd_pane|
00001750  25 29 0d 06 a4 2a e7 20  77 69 6e 64 6f 77 25 3d  |%)...*. window%=|
00001760  63 64 5f 74 72 61 63 6b  73 25 20 8c 20 f2 72 65  |cd_tracks% . .re|
00001770  61 64 5f 74 72 61 63 6b  6c 69 73 74 0d 06 ae 29  |ad_tracklist...)|
00001780  21 71 25 3d 77 69 6e 64  6f 77 25 3a c8 99 20 22  |!q%=window%:.. "|
00001790  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
000017a0  22 2c 2c 71 25 0d 06 b8  05 e1 0d 06 c2 05 3a 0d  |",,q%.........:.|
000017b0  06 cc 0f dd f2 6f 70 65  6e 28 21 71 25 29 0d 06  |.....open(!q%)..|
000017c0  d6 42 c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |.B.. "Wimp_GetWi|
000017d0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 71 25 3a 71  |ndowState",,q%:q|
000017e0  25 21 32 38 3d 2d 31 3a  c8 99 20 22 57 69 6d 70  |%!28=-1:.. "Wimp|
000017f0  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 71 25  |_OpenWindow",,q%|
00001800  0d 06 e0 05 e1 0d 06 ea  05 3a 0d 06 f4 38 dd f2  |.........:...8..|
00001810  63 68 65 63 6b 5f 6d 6f  75 73 65 28 6d 6f 75 73  |check_mouse(mous|
00001820  65 78 25 2c 6d 6f 75 73  65 79 25 2c 62 75 74 74  |ex%,mousey%,butt|
00001830  6f 6e 25 2c 77 69 6e 64  6f 77 25 2c 69 63 6f 6e  |on%,window%,icon|
00001840  25 29 0d 06 fe 10 c8 8e  20 77 69 6e 64 6f 77 25  |%)...... window%|
00001850  20 ca 0d 07 08 1b c9 20  2d 32 3a e7 20 69 63 6f  | ...... -2:. ico|
00001860  6e 25 3d 61 70 70 69 63  6f 6e 25 20 8c 0d 07 12  |n%=appicon% ....|
00001870  65 e7 20 62 75 74 74 6f  6e 25 3d 32 20 8c 20 c8  |e. button%=2 . .|
00001880  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00001890  6e 75 22 2c 2c 69 63 6f  6e 62 61 72 6d 65 6e 75  |nu",,iconbarmenu|
000018a0  25 2c 6d 6f 75 73 65 78  25 2d 34 38 2c 39 36 2b  |%,mousex%-48,96+|
000018b0  28 34 2a 34 34 29 2b 32  34 3a 73 65 6c 65 63 74  |(4*44)+24:select|
000018c0  6d 65 6e 75 25 3d 69 63  6f 6e 62 61 72 6d 65 6e  |menu%=iconbarmen|
000018d0  75 25 0d 07 1c 18 e7 20  28 62 75 74 74 6f 6e 25  |u%..... (button%|
000018e0  20 80 20 35 29 3c 3e 30  20 8c 0d 07 26 34 f2 6f  | . 5)<>0 ...&4.o|
000018f0  70 65 6e 5f 61 6e 69 6d  61 74 69 6f 6e 3a f2 6f  |pen_animation:.o|
00001900  70 65 6e 28 63 64 5f 69  6e 64 65 78 25 29 3a f2  |pen(cd_index%):.|
00001910  6f 70 65 6e 28 63 64 5f  70 61 6e 65 25 29 0d 07  |open(cd_pane%)..|
00001920  30 1c f2 6d 6f 76 65 5f  63 61 72 65 74 28 63 64  |0..move_caret(cd|
00001930  5f 69 6e 64 65 78 25 2c  39 29 0d 07 3a 05 cd 0d  |_index%,9)..:...|
00001940  07 44 05 cd 0d 07 4e 28  c9 20 63 64 5f 69 6e 64  |.D....N(. cd_ind|
00001950  65 78 25 3a e7 20 62 75  74 74 6f 6e 25 3d 32 20  |ex%:. button%=2 |
00001960  8c 20 c8 8e 20 69 63 6f  6e 25 20 ca 0d 07 58 65  |. .. icon% ...Xe|
00001970  c9 20 31 38 3a f2 72 65  64 72 61 77 5f 69 63 6f  |. 18:.redraw_ico|
00001980  6e 3a c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |n:.. "Wimp_Creat|
00001990  65 4d 65 6e 75 22 2c 2c  66 6f 72 6d 61 74 6d 65  |eMenu",,formatme|
000019a0  6e 75 25 2c 6d 6f 75 73  65 78 25 2d 34 38 2c 6d  |nu%,mousex%-48,m|
000019b0  6f 75 73 65 79 25 2b 31  30 3a 73 65 6c 65 63 74  |ousey%+10:select|
000019c0  6d 65 6e 75 25 3d 66 6f  72 6d 61 74 6d 65 6e 75  |menu%=formatmenu|
000019d0  25 0d 07 62 61 c9 20 31  39 3a f2 72 65 64 72 61  |%..ba. 19:.redra|
000019e0  77 5f 69 63 6f 6e 3a c8  99 20 22 57 69 6d 70 5f  |w_icon:.. "Wimp_|
000019f0  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 73 69 7a  |CreateMenu",,siz|
00001a00  65 6d 65 6e 75 25 2c 6d  6f 75 73 65 78 25 2d 34  |emenu%,mousex%-4|
00001a10  38 2c 6d 6f 75 73 65 79  25 2b 31 30 3a 73 65 6c  |8,mousey%+10:sel|
00001a20  65 63 74 6d 65 6e 75 25  3d 73 69 7a 65 6d 65 6e  |ectmenu%=sizemen|
00001a30  75 25 0d 07 6c 61 c9 20  32 30 3a f2 72 65 64 72  |u%..la. 20:.redr|
00001a40  61 77 5f 69 63 6f 6e 3a  c8 99 20 22 57 69 6d 70  |aw_icon:.. "Wimp|
00001a50  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 79 65  |_CreateMenu",,ye|
00001a60  61 72 6d 65 6e 75 25 2c  6d 6f 75 73 65 78 25 2d  |armenu%,mousex%-|
00001a70  34 38 2c 6d 6f 75 73 65  79 25 2b 31 30 3a 73 65  |48,mousey%+10:se|
00001a80  6c 65 63 74 6d 65 6e 75  25 3d 79 65 61 72 6d 65  |lectmenu%=yearme|
00001a90  6e 75 25 0d 07 76 61 c9  20 32 36 3a f2 72 65 64  |nu%..va. 26:.red|
00001aa0  72 61 77 5f 69 63 6f 6e  3a c8 99 20 22 57 69 6d  |raw_icon:.. "Wim|
00001ab0  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 74  |p_CreateMenu",,t|
00001ac0  79 70 65 6d 65 6e 75 25  2c 6d 6f 75 73 65 78 25  |ypemenu%,mousex%|
00001ad0  2d 34 38 2c 6d 6f 75 73  65 79 25 2b 31 30 3a 73  |-48,mousey%+10:s|
00001ae0  65 6c 65 63 74 6d 65 6e  75 25 3d 74 79 70 65 6d  |electmenu%=typem|
00001af0  65 6e 75 25 0d 07 80 63  7f 20 f2 63 6c 6f 73 65  |enu%...c. .close|
00001b00  28 63 64 5f 66 6f 75 6e  64 25 29 3a c8 99 20 22  |(cd_found%):.. "|
00001b10  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00001b20  2c 2c 6d 61 69 6e 6d 65  6e 75 25 2c 6d 6f 75 73  |,,mainmenu%,mous|
00001b30  65 78 25 2d 34 38 2c 6d  6f 75 73 65 79 25 2b 31  |ex%-48,mousey%+1|
00001b40  30 3a 73 65 6c 65 63 74  6d 65 6e 75 25 3d 6d 61  |0:selectmenu%=ma|
00001b50  69 6e 6d 65 6e 75 25 0d  07 8a 05 cb 0d 07 94 23  |inmenu%........#|
00001b60  e7 20 28 62 75 74 74 6f  6e 25 20 80 20 35 29 3c  |. (button% . 5)<|
00001b70  3e 30 20 8c 20 c8 8e 20  69 63 6f 6e 25 20 ca 0d  |>0 . .. icon% ..|
00001b80  07 9e 65 c9 20 31 38 3a  f2 72 65 64 72 61 77 5f  |..e. 18:.redraw_|
00001b90  69 63 6f 6e 3a c8 99 20  22 57 69 6d 70 5f 43 72  |icon:.. "Wimp_Cr|
00001ba0  65 61 74 65 4d 65 6e 75  22 2c 2c 66 6f 72 6d 61  |eateMenu",,forma|
00001bb0  74 6d 65 6e 75 25 2c 6d  6f 75 73 65 78 25 2d 34  |tmenu%,mousex%-4|
00001bc0  38 2c 6d 6f 75 73 65 79  25 2b 31 30 3a 73 65 6c  |8,mousey%+10:sel|
00001bd0  65 63 74 6d 65 6e 75 25  3d 66 6f 72 6d 61 74 6d  |ectmenu%=formatm|
00001be0  65 6e 75 25 0d 07 a8 61  c9 20 31 39 3a f2 72 65  |enu%...a. 19:.re|
00001bf0  64 72 61 77 5f 69 63 6f  6e 3a c8 99 20 22 57 69  |draw_icon:.. "Wi|
00001c00  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00001c10  73 69 7a 65 6d 65 6e 75  25 2c 6d 6f 75 73 65 78  |sizemenu%,mousex|
00001c20  25 2d 34 38 2c 6d 6f 75  73 65 79 25 2b 31 30 3a  |%-48,mousey%+10:|
00001c30  73 65 6c 65 63 74 6d 65  6e 75 25 3d 73 69 7a 65  |selectmenu%=size|
00001c40  6d 65 6e 75 25 0d 07 b2  61 c9 20 32 30 3a f2 72  |menu%...a. 20:.r|
00001c50  65 64 72 61 77 5f 69 63  6f 6e 3a c8 99 20 22 57  |edraw_icon:.. "W|
00001c60  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00001c70  2c 79 65 61 72 6d 65 6e  75 25 2c 6d 6f 75 73 65  |,yearmenu%,mouse|
00001c80  78 25 2d 34 38 2c 6d 6f  75 73 65 79 25 2b 31 30  |x%-48,mousey%+10|
00001c90  3a 73 65 6c 65 63 74 6d  65 6e 75 25 3d 79 65 61  |:selectmenu%=yea|
00001ca0  72 6d 65 6e 75 25 0d 07  bc 61 c9 20 32 36 3a f2  |rmenu%...a. 26:.|
00001cb0  72 65 64 72 61 77 5f 69  63 6f 6e 3a c8 99 20 22  |redraw_icon:.. "|
00001cc0  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00001cd0  2c 2c 74 79 70 65 6d 65  6e 75 25 2c 6d 6f 75 73  |,,typemenu%,mous|
00001ce0  65 78 25 2d 34 38 2c 6d  6f 75 73 65 79 25 2b 31  |ex%-48,mousey%+1|
00001cf0  30 3a 73 65 6c 65 63 74  6d 65 6e 75 25 3d 74 79  |0:selectmenu%=ty|
00001d00  70 65 6d 65 6e 75 25 0d  07 c6 05 cb 0d 07 d0 7c  |pemenu%........||
00001d10  c9 20 63 64 5f 74 72 61  63 6b 73 25 3a e7 20 62  |. cd_tracks%:. b|
00001d20  75 74 74 6f 6e 25 3d 32  20 8c 20 f2 63 6c 6f 73  |utton%=2 . .clos|
00001d30  65 28 63 64 5f 66 6f 75  6e 64 25 29 3a c8 99 20  |e(cd_found%):.. |
00001d40  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00001d50  22 2c 2c 6d 61 69 6e 6d  65 6e 75 25 2c 6d 6f 75  |",,mainmenu%,mou|
00001d60  73 65 78 25 2d 34 38 2c  6d 6f 75 73 65 79 25 2b  |sex%-48,mousey%+|
00001d70  31 30 3a 73 65 6c 65 63  74 6d 65 6e 75 25 3d 6d  |10:selectmenu%=m|
00001d80  61 69 6e 6d 65 6e 75 25  0d 07 da 0e c9 20 63 64  |ainmenu%..... cd|
00001d90  5f 70 61 6e 65 25 0d 07  e4 6f e7 20 62 75 74 74  |_pane%...o. butt|
00001da0  6f 6e 25 3d 32 20 8c 20  f2 63 6c 6f 73 65 28 63  |on%=2 . .close(c|
00001db0  64 5f 66 6f 75 6e 64 25  29 3a c8 99 20 22 57 69  |d_found%):.. "Wi|
00001dc0  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00001dd0  6d 61 69 6e 6d 65 6e 75  25 2c 6d 6f 75 73 65 78  |mainmenu%,mousex|
00001de0  25 2d 34 38 2c 6d 6f 75  73 65 79 25 2b 31 30 3a  |%-48,mousey%+10:|
00001df0  73 65 6c 65 63 74 6d 65  6e 75 25 3d 6d 61 69 6e  |selectmenu%=main|
00001e00  6d 65 6e 75 25 0d 07 ee  23 e7 20 28 62 75 74 74  |menu%...#. (butt|
00001e10  6f 6e 25 20 80 20 35 29  3c 3e 30 20 8c 20 c8 8e  |on% . 5)<>0 . ..|
00001e20  20 69 63 6f 6e 25 20 ca  0d 07 f8 41 c9 20 35 3a  | icon% ....A. 5:|
00001e30  f2 72 65 64 72 61 77 5f  69 63 6f 6e 3a f2 6f 70  |.redraw_icon:.op|
00001e40  65 6e 28 63 64 5f 74 72  61 63 6b 73 25 29 3a f2  |en(cd_tracks%):.|
00001e50  6d 6f 76 65 5f 63 61 72  65 74 28 63 64 5f 74 72  |move_caret(cd_tr|
00001e60  61 63 6b 73 25 2c 32 34  29 0d 08 02 07 c9 20 32  |acks%,24)..... 2|
00001e70  0d 08 0c 26 f2 72 65 64  72 61 77 5f 69 63 6f 6e  |...&.redraw_icon|
00001e80  3a f2 72 65 61 64 3a f2  72 65 61 64 5f 74 72 61  |:.read:.read_tra|
00001e90  63 6b 6c 69 73 74 0d 08  16 24 e7 20 62 75 74 74  |cklist...$. butt|
00001ea0  6f 6e 25 3d 34 20 8c 20  72 65 63 6f 72 64 5f 6e  |on%=4 . record_n|
00001eb0  75 6d 62 65 72 25 2d 3d  31 30 0d 08 20 24 e7 20  |umber%-=10.. $. |
00001ec0  62 75 74 74 6f 6e 25 3d  31 20 8c 20 72 65 63 6f  |button%=1 . reco|
00001ed0  72 64 5f 6e 75 6d 62 65  72 25 2b 3d 31 30 0d 08  |rd_number%+=10..|
00001ee0  2a 2f e7 20 62 75 74 74  6f 6e 25 3d 32 20 8c 20  |*/. button%=2 . |
00001ef0  72 65 63 6f 72 64 5f 6e  75 6d 62 65 72 25 3d 72  |record_number%=r|
00001f00  65 63 6f 72 64 5f 6e 75  6d 62 65 72 25 0d 08 34  |ecord_number%..4|
00001f10  0b f2 75 70 64 61 74 65  0d 08 3e 07 c9 20 30 0d  |..update..>.. 0.|
00001f20  08 48 26 f2 72 65 64 72  61 77 5f 69 63 6f 6e 3a  |.H&.redraw_icon:|
00001f30  f2 72 65 61 64 3a f2 72  65 61 64 5f 74 72 61 63  |.read:.read_trac|
00001f40  6b 6c 69 73 74 0d 08 52  23 e7 20 62 75 74 74 6f  |klist..R#. butto|
00001f50  6e 25 3d 34 20 8c 20 72  65 63 6f 72 64 5f 6e 75  |n%=4 . record_nu|
00001f60  6d 62 65 72 25 2d 3d 31  0d 08 5c 23 e7 20 62 75  |mber%-=1..\#. bu|
00001f70  74 74 6f 6e 25 3d 31 20  8c 20 72 65 63 6f 72 64  |tton%=1 . record|
00001f80  5f 6e 75 6d 62 65 72 25  2b 3d 31 0d 08 66 2f e7  |_number%+=1..f/.|
00001f90  20 62 75 74 74 6f 6e 25  3d 32 20 8c 20 72 65 63  | button%=2 . rec|
00001fa0  6f 72 64 5f 6e 75 6d 62  65 72 25 3d 72 65 63 6f  |ord_number%=reco|
00001fb0  72 64 5f 6e 75 6d 62 65  72 25 0d 08 70 0b f2 75  |rd_number%..p..u|
00001fc0  70 64 61 74 65 0d 08 7a  07 c9 20 31 0d 08 84 26  |pdate..z.. 1...&|
00001fd0  f2 72 65 64 72 61 77 5f  69 63 6f 6e 3a f2 72 65  |.redraw_icon:.re|
00001fe0  61 64 3a f2 72 65 61 64  5f 74 72 61 63 6b 6c 69  |ad:.read_trackli|
00001ff0  73 74 0d 08 8e 23 e7 20  62 75 74 74 6f 6e 25 3d  |st...#. button%=|
00002000  34 20 8c 20 72 65 63 6f  72 64 5f 6e 75 6d 62 65  |4 . record_numbe|
00002010  72 25 2b 3d 31 0d 08 98  23 e7 20 62 75 74 74 6f  |r%+=1...#. butto|
00002020  6e 25 3d 31 20 8c 20 72  65 63 6f 72 64 5f 6e 75  |n%=1 . record_nu|
00002030  6d 62 65 72 25 2d 3d 31  0d 08 a2 2f e7 20 62 75  |mber%-=1.../. bu|
00002040  74 74 6f 6e 25 3d 32 20  8c 20 72 65 63 6f 72 64  |tton%=2 . record|
00002050  5f 6e 75 6d 62 65 72 25  3d 72 65 63 6f 72 64 5f  |_number%=record_|
00002060  6e 75 6d 62 65 72 25 0d  08 ac 0b f2 75 70 64 61  |number%.....upda|
00002070  74 65 0d 08 b6 07 c9 20  33 0d 08 c0 26 f2 72 65  |te..... 3...&.re|
00002080  64 72 61 77 5f 69 63 6f  6e 3a f2 72 65 61 64 3a  |draw_icon:.read:|
00002090  f2 72 65 61 64 5f 74 72  61 63 6b 6c 69 73 74 0d  |.read_tracklist.|
000020a0  08 ca 24 e7 20 62 75 74  74 6f 6e 25 3d 34 20 8c  |..$. button%=4 .|
000020b0  20 72 65 63 6f 72 64 5f  6e 75 6d 62 65 72 25 2b  | record_number%+|
000020c0  3d 31 30 0d 08 d4 24 e7  20 62 75 74 74 6f 6e 25  |=10...$. button%|
000020d0  3d 31 20 8c 20 72 65 63  6f 72 64 5f 6e 75 6d 62  |=1 . record_numb|
000020e0  65 72 25 2d 3d 31 30 0d  08 de 2f e7 20 62 75 74  |er%-=10.../. but|
000020f0  74 6f 6e 25 3d 32 20 8c  20 72 65 63 6f 72 64 5f  |ton%=2 . record_|
00002100  6e 75 6d 62 65 72 25 3d  72 65 63 6f 72 64 5f 6e  |number%=record_n|
00002110  75 6d 62 65 72 25 0d 08  e8 0b f2 75 70 64 61 74  |umber%.....updat|
00002120  65 0d 08 f2 05 cb 0d 08  fc 2e c9 20 63 64 5f 68  |e.......... cd_h|
00002130  65 6c 70 25 3a e7 20 28  62 75 74 74 6f 6e 25 20  |elp%:. (button% |
00002140  80 20 35 29 3c 3e 30 20  8c 20 c8 8e 20 69 63 6f  |. 5)<>0 . .. ico|
00002150  6e 25 20 ca 0d 09 06 25  c9 20 32 3a f2 72 65 64  |n% ....%. 2:.red|
00002160  72 61 77 5f 69 63 6f 6e  3a f2 63 6c 6f 73 65 28  |raw_icon:.close(|
00002170  63 64 5f 68 65 6c 70 25  29 0d 09 10 05 cb 0d 09  |cd_help%).......|
00002180  1a 30 c9 20 63 64 5f 73  61 76 65 62 6f 78 25 3a  |.0. cd_savebox%:|
00002190  e7 20 28 62 75 74 74 6f  6e 25 20 80 20 35 29 3c  |. (button% . 5)<|
000021a0  3e 30 20 8c c8 8e 20 69  63 6f 6e 25 20 ca 0d 09  |>0 ... icon% ...|
000021b0  24 10 c9 20 30 3a f2 64  72 61 67 62 6f 78 0d 09  |$.. 0:.dragbox..|
000021c0  2e 1f c9 20 32 3a f2 72  65 64 72 61 77 5f 69 63  |... 2:.redraw_ic|
000021d0  6f 6e 3a f2 71 75 69 63  6b 73 61 76 65 0d 09 38  |on:.quicksave..8|
000021e0  58 c9 20 33 3a 73 61 76  65 74 79 70 65 24 3d 22  |X. 3:savetype$="|
000021f0  44 39 30 22 3a f2 75 70  64 61 74 65 5f 69 63 6f  |D90":.update_ico|
00002200  6e 28 63 64 5f 73 61 76  65 62 6f 78 25 2c 31 2c  |n(cd_savebox%,1,|
00002210  22 43 44 49 6e 64 65 78  22 29 3a f2 6d 6f 76 65  |"CDIndex"):.move|
00002220  5f 63 61 72 65 74 28 63  64 5f 73 61 76 65 62 6f  |_caret(cd_savebo|
00002230  78 25 2c 31 29 0d 09 42  59 c9 20 34 3a 73 61 76  |x%,1)..BY. 4:sav|
00002240  65 74 79 70 65 24 3d 22  46 46 46 22 3a f2 75 70  |etype$="FFF":.up|
00002250  64 61 74 65 5f 69 63 6f  6e 28 63 64 5f 73 61 76  |date_icon(cd_sav|
00002260  65 62 6f 78 25 2c 31 2c  22 54 65 78 74 46 69 6c  |ebox%,1,"TextFil|
00002270  65 22 29 3a f2 6d 6f 76  65 5f 63 61 72 65 74 28  |e"):.move_caret(|
00002280  63 64 5f 73 61 76 65 62  6f 78 25 2c 31 29 0d 09  |cd_savebox%,1)..|
00002290  4c 05 cb 0d 09 56 30 c9  20 63 64 5f 73 65 61 72  |L....V0. cd_sear|
000022a0  63 68 25 3a e7 20 28 62  75 74 74 6f 6e 25 20 80  |ch%:. (button% .|
000022b0  20 35 29 3c 3e 30 20 8c  20 c8 8e 20 69 63 6f 6e  | 5)<>0 . .. icon|
000022c0  25 20 ca 0d 09 60 1c c9  20 33 3a 73 65 61 72 63  |% ...`.. 3:searc|
000022d0  68 74 79 70 65 24 3d 22  41 72 74 69 73 74 22 0d  |htype$="Artist".|
000022e0  09 6a 1b c9 20 34 3a 73  65 61 72 63 68 74 79 70  |.j.. 4:searchtyp|
000022f0  65 24 3d 22 54 69 74 6c  65 22 0d 09 74 1c c9 20  |e$="Title"..t.. |
00002300  38 3a 73 65 61 72 63 68  74 79 70 65 24 3d 22 54  |8:searchtype$="T|
00002310  72 61 63 6b 73 22 0d 09  7e 37 c9 20 35 3a f2 72  |racks"..~7. 5:.r|
00002320  65 64 72 61 77 5f 69 63  6f 6e 3a f2 63 6c 65 61  |edraw_icon:.clea|
00002330  72 5f 73 65 61 72 63 68  3a f2 73 65 61 72 63 68  |r_search:.search|
00002340  28 73 65 61 72 63 68 74  79 70 65 24 29 0d 09 88  |(searchtype$)...|
00002350  57 c9 20 37 3a f2 72 65  64 72 61 77 5f 69 63 6f  |W. 7:.redraw_ico|
00002360  6e 3a f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 63  |n:.update_icon(c|
00002370  64 5f 73 65 61 72 63 68  25 2c 31 2c 73 65 61 72  |d_search%,1,sear|
00002380  63 68 73 74 72 69 6e 67  24 29 3a f2 6d 6f 76 65  |chstring$):.move|
00002390  5f 63 61 72 65 74 28 63  64 5f 73 65 61 72 63 68  |_caret(cd_search|
000023a0  25 2c 31 29 0d 09 92 05  cb 0d 09 9c 24 c9 20 63  |%,1)........$. c|
000023b0  64 5f 66 6f 75 6e 64 25  3a e7 20 28 62 75 74 74  |d_found%:. (butt|
000023c0  6f 6e 25 20 80 20 35 29  3c 3e 30 20 8c 0d 09 a6  |on% . 5)<>0 ....|
000023d0  5f 63 6c 69 63 6b 5f 72  65 63 6f 72 64 25 3d bb  |_click_record%=.|
000023e0  28 a4 69 6e 64 69 72 65  63 74 28 63 64 5f 66 6f  |(.indirect(cd_fo|
000023f0  75 6e 64 25 2c 69 63 6f  6e 25 29 29 3a e7 20 63  |und%,icon%)):. c|
00002400  6c 69 63 6b 5f 72 65 63  6f 72 64 25 3c 3e 30 20  |lick_record%<>0 |
00002410  8c 20 f2 72 65 61 64 3a  f2 66 69 6c 6c 28 63 6c  |. .read:.fill(cl|
00002420  69 63 6b 5f 72 65 63 6f  72 64 25 29 0d 09 b0 05  |ick_record%)....|
00002430  cd 0d 09 ba 2f c9 20 63  64 5f 70 72 69 6e 74 25  |..../. cd_print%|
00002440  3a e7 20 28 62 75 74 74  6f 6e 25 20 80 20 35 29  |:. (button% . 5)|
00002450  3c 3e 30 20 8c 20 c8 8e  20 69 63 6f 6e 25 20 ca  |<>0 . .. icon% .|
00002460  0d 09 c4 18 c9 20 31 3a  70 72 69 6e 74 65 72 24  |..... 1:printer$|
00002470  3d 22 44 72 61 66 74 22  0d 09 ce 16 c9 20 32 3a  |="Draft"..... 2:|
00002480  70 72 69 6e 74 65 72 24  3d 22 4e 4c 51 22 0d 09  |printer$="NLQ"..|
00002490  d8 1b c9 20 37 3a f2 72  65 64 72 61 77 5f 69 63  |... 7:.redraw_ic|
000024a0  6f 6e 3a f2 70 72 69 6e  74 0d 09 e2 17 c9 20 39  |on:.print..... 9|
000024b0  3a 70 72 69 6e 74 77 68  61 74 24 3d 22 41 54 22  |:printwhat$="AT"|
000024c0  0d 09 ec 1a c9 20 31 31  3a 70 72 69 6e 74 77 68  |..... 11:printwh|
000024d0  61 74 24 3d 22 43 61 73  73 22 0d 09 f6 19 c9 20  |at$="Cass"..... |
000024e0  31 30 3a 70 72 69 6e 74  77 68 61 74 24 3d 22 41  |10:printwhat$="A|
000024f0  6c 6c 22 0d 0a 00 05 cb  0d 0a 0a 2f c9 20 63 64  |ll"......../. cd|
00002500  5f 63 6c 65 61 72 25 3a  e7 20 28 62 75 74 74 6f  |_clear%:. (butto|
00002510  6e 25 20 80 20 35 29 3c  3e 30 20 8c 20 c8 8e 20  |n% . 5)<>0 . .. |
00002520  69 63 6f 6e 25 20 ca 0d  0a 14 20 c9 20 31 3a f2  |icon% .... . 1:.|
00002530  72 65 64 72 61 77 5f 69  63 6f 6e 3a f2 63 6c 65  |redraw_icon:.cle|
00002540  61 72 5f 64 61 74 61 0d  0a 1e 14 c9 20 32 3a f2  |ar_data..... 2:.|
00002550  72 65 64 72 61 77 5f 69  63 6f 6e 0d 0a 28 27 f2  |redraw_icon..('.|
00002560  63 6c 6f 73 65 28 63 64  5f 63 6c 65 61 72 25 29  |close(cd_clear%)|
00002570  3a c8 97 20 c8 93 20 30  2c 30 2c 63 78 25 2c 63  |:.. .. 0,0,cx%,c|
00002580  79 25 0d 0a 32 05 cb 0d  0a 3c 2e c9 20 63 64 5f  |y%..2....<.. cd_|
00002590  71 75 69 74 25 3a e7 20  28 62 75 74 74 6f 6e 25  |quit%:. (button%|
000025a0  20 80 20 35 29 3c 3e 30  20 8c 20 c8 8e 20 69 63  | . 5)<>0 . .. ic|
000025b0  6f 6e 25 20 ca 0d 0a 46  1c c9 20 31 3a f2 72 65  |on% ...F.. 1:.re|
000025c0  64 72 61 77 5f 69 63 6f  6e 3a 71 75 69 74 25 3d  |draw_icon:quit%=|
000025d0  b9 0d 0a 50 14 c9 20 32  3a f2 72 65 64 72 61 77  |...P.. 2:.redraw|
000025e0  5f 69 63 6f 6e 0d 0a 5a  26 f2 63 6c 6f 73 65 28  |_icon..Z&.close(|
000025f0  63 64 5f 71 75 69 74 25  29 3a c8 97 20 c8 93 20  |cd_quit%):.. .. |
00002600  30 2c 30 2c 63 78 25 2c  63 79 25 0d 0a 64 05 cb  |0,0,cx%,cy%..d..|
00002610  0d 0a 6e 2e c9 20 63 64  5f 73 6f 72 74 25 3a e7  |..n.. cd_sort%:.|
00002620  20 28 62 75 74 74 6f 6e  25 20 80 20 35 29 3c 3e  | (button% . 5)<>|
00002630  30 20 8c 20 c8 8e 20 69  63 6f 6e 25 20 ca 0d 0a  |0 . .. icon% ...|
00002640  78 18 c9 20 30 3a 73 6f  72 74 5f 73 65 6c 65 63  |x.. 0:sort_selec|
00002650  74 65 64 25 3d 30 0d 0a  82 18 c9 20 31 3a 73 6f  |ted%=0..... 1:so|
00002660  72 74 5f 73 65 6c 65 63  74 65 64 25 3d 31 0d 0a  |rt_selected%=1..|
00002670  8c 1b c9 20 32 3a c8 8e  20 73 6f 72 74 5f 73 65  |... 2:.. sort_se|
00002680  6c 65 63 74 65 64 25 20  ca 0d 0a 96 21 c9 20 30  |lected% ....!. 0|
00002690  3a f2 72 65 64 72 61 77  5f 69 63 6f 6e 3a f2 73  |:.redraw_icon:.s|
000026a0  6f 72 74 5f 61 72 74 69  73 74 0d 0a a0 20 c9 20  |ort_artist... . |
000026b0  31 3a f2 72 65 64 72 61  77 5f 69 63 6f 6e 3a f2  |1:.redraw_icon:.|
000026c0  73 6f 72 74 5f 74 69 74  6c 65 0d 0a aa 05 cb 0d  |sort_title......|
000026d0  0a b4 05 cb 0d 0a be 05  cb 0d 0a c8 05 e1 0d 0a  |................|
000026e0  d2 05 3a 0d 0a dc 36 dd  f2 6b 65 79 5f 70 72 65  |..:...6..key_pre|
000026f0  73 73 65 64 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |ssed(window%,ico|
00002700  6e 25 2c 6b 65 79 5f 69  6e 64 65 78 25 2c 63 68  |n%,key_index%,ch|
00002710  61 72 61 63 74 65 72 25  29 0d 0a e6 13 c8 8e 20  |aracter%)...... |
00002720  63 68 61 72 61 63 74 65  72 25 20 ca 0d 0a f0 08  |character% .....|
00002730  c9 20 31 33 0d 0a fa 10  c8 8e 20 77 69 6e 64 6f  |. 13...... windo|
00002740  77 25 20 ca 0d 0b 04 1c  c9 20 63 64 5f 73 61 76  |w% ...... cd_sav|
00002750  65 62 6f 78 25 3a f2 71  75 69 63 6b 73 61 76 65  |ebox%:.quicksave|
00002760  0d 0b 0e 0f c9 20 63 64  5f 70 72 69 6e 74 25 0d  |..... cd_print%.|
00002770  0b 18 0e c8 8e 20 69 63  6f 6e 25 20 ca 0d 0b 22  |..... icon% ..."|
00002780  21 c9 20 36 3a f2 6d 6f  76 65 5f 63 61 72 65 74  |!. 6:.move_caret|
00002790  28 63 64 5f 70 72 69 6e  74 25 2c 31 33 29 0d 0b  |(cd_print%,13)..|
000027a0  2c 0f c9 20 31 33 3a f2  70 72 69 6e 74 0d 0b 36  |,.. 13:.print..6|
000027b0  05 cb 0d 0b 40 1d c9 20  63 64 5f 70 61 6e 65 25  |....@.. cd_pane%|
000027c0  3a f2 6e 75 6d 62 65 72  5f 75 70 64 61 74 65 0d  |:.number_update.|
000027d0  0b 4a 33 c9 20 63 64 5f  73 65 61 72 63 68 25 3a  |.J3. cd_search%:|
000027e0  f2 63 6c 65 61 72 5f 73  65 61 72 63 68 3a f2 73  |.clear_search:.s|
000027f0  65 61 72 63 68 28 73 65  61 72 63 68 74 79 70 65  |earch(searchtype|
00002800  24 29 0d 0b 54 3b c9 20  63 64 5f 74 72 61 63 6b  |$)..T;. cd_track|
00002810  73 25 3a f2 72 65 61 64  5f 74 72 61 63 6b 6c 69  |s%:.read_trackli|
00002820  73 74 3a f2 63 61 72 65  74 28 63 64 5f 74 72 61  |st:.caret(cd_tra|
00002830  63 6b 73 25 2c 69 63 6f  6e 25 2c 31 29 0d 0b 5e  |cks%,icon%,1)..^|
00002840  10 c9 20 63 64 5f 69 6e  64 65 78 25 3a 0d 0b 68  |.. cd_index%:..h|
00002850  10 e7 20 69 63 6f 6e 25  3d 31 36 20 8c 0d 0b 72  |.. icon%=16 ...r|
00002860  3b f2 63 61 72 65 74 28  77 69 6e 64 6f 77 25 2c  |;.caret(window%,|
00002870  69 63 6f 6e 25 2c 31 29  3a f2 72 65 61 64 3a 72  |icon%,1):.read:r|
00002880  65 63 6f 72 64 5f 6e 75  6d 62 65 72 25 2b 3d 31  |ecord_number%+=1|
00002890  3a f2 75 70 64 61 74 65  0d 0b 7c 05 cc 0d 0b 86  |:.update..|.....|
000028a0  21 f2 63 61 72 65 74 28  77 69 6e 64 6f 77 25 2c  |!.caret(window%,|
000028b0  69 63 6f 6e 25 2c 31 29  3a f2 72 65 61 64 0d 0b  |icon%,1):.read..|
000028c0  90 05 cd 0d 0b 9a 05 cb  0d 0b a4 13 c9 20 32 37  |............. 27|
000028d0  3a f2 63 6c 6f 73 65 5f  61 6c 6c 0d 0b ae 09 c9  |:.close_all.....|
000028e0  20 26 31 45 0d 0b b8 10  c8 8e 20 77 69 6e 64 6f  | &1E...... windo|
000028f0  77 25 20 ca 0d 0b c2 2e  c9 20 63 64 5f 69 6e 64  |w% ...... cd_ind|
00002900  65 78 25 3a f2 6d 6f 76  65 5f 63 61 72 65 74 28  |ex%:.move_caret(|
00002910  63 64 5f 69 6e 64 65 78  25 2c 39 29 3a f2 72 65  |cd_index%,9):.re|
00002920  61 64 0d 0b cc 3b c9 20  63 64 5f 74 72 61 63 6b  |ad...;. cd_track|
00002930  73 25 3a f2 6d 6f 76 65  5f 63 61 72 65 74 28 63  |s%:.move_caret(c|
00002940  64 5f 74 72 61 63 6b 73  25 2c 32 34 29 3a f2 72  |d_tracks%,24):.r|
00002950  65 61 64 5f 74 72 61 63  6b 6c 69 73 74 0d 0b d6  |ead_tracklist...|
00002960  05 cb 0d 0b e0 34 c9 20  26 31 38 39 3a f2 6f 70  |.....4. &189:.op|
00002970  65 6e 28 63 64 5f 70 72  69 6e 74 25 29 3a f2 6d  |en(cd_print%):.m|
00002980  6f 76 65 5f 63 61 72 65  74 28 63 64 5f 70 72 69  |ove_caret(cd_pri|
00002990  6e 74 25 2c 36 29 0d 0b  ea 1a c9 20 26 31 38 31  |nt%,6)..... &181|
000029a0  3a f2 6f 70 65 6e 28 63  64 5f 68 65 6c 70 25 29  |:.open(cd_help%)|
000029b0  0d 0b f4 1a c9 20 26 31  38 32 3a f2 6f 70 65 6e  |..... &182:.open|
000029c0  28 63 64 5f 73 6f 72 74  25 29 0d 0b fe 38 c9 20  |(cd_sort%)...8. |
000029d0  26 31 38 33 3a f2 6f 70  65 6e 28 63 64 5f 73 61  |&183:.open(cd_sa|
000029e0  76 65 62 6f 78 25 29 3a  f2 6d 6f 76 65 5f 63 61  |vebox%):.move_ca|
000029f0  72 65 74 28 63 64 5f 73  61 76 65 62 6f 78 25 2c  |ret(cd_savebox%,|
00002a00  31 29 0d 0c 08 48 c9 20  26 31 38 34 3a f2 63 6c  |1)...H. &184:.cl|
00002a10  6f 73 65 28 63 64 5f 66  6f 75 6e 64 25 29 3a f2  |ose(cd_found%):.|
00002a20  6f 70 65 6e 28 63 64 5f  73 65 61 72 63 68 25 29  |open(cd_search%)|
00002a30  3a f2 6d 6f 76 65 5f 63  61 72 65 74 28 63 64 5f  |:.move_caret(cd_|
00002a40  73 65 61 72 63 68 25 2c  31 29 0d 0c 12 2f c9 20  |search%,1).../. |
00002a50  26 31 38 35 3a f2 73 77  61 70 5f 63 61 73 65 28  |&185:.swap_case(|
00002a60  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 2c 6b 65  |window%,icon%,ke|
00002a70  79 5f 69 6e 64 65 78 25  29 0d 0c 1c 84 c9 20 26  |y_index%)..... &|
00002a80  31 38 36 3a 54 65 78 74  24 3d c2 a4 72 65 61 64  |186:Text$=..read|
00002a90  5f 69 63 6f 6e 5f 74 65  78 74 28 77 69 6e 64 6f  |_icon_text(windo|
00002aa0  77 25 2c 69 63 6f 6e 25  2c a3 29 2c 6b 65 79 5f  |w%,icon%,.),key_|
00002ab0  69 6e 64 65 78 25 29 3a  f2 75 70 64 61 74 65 5f  |index%):.update_|
00002ac0  69 63 6f 6e 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |icon(window%,ico|
00002ad0  6e 25 2c 54 65 78 74 24  29 3a f2 5f 53 65 74 43  |n%,Text$):._SetC|
00002ae0  61 72 65 74 50 6f 73 69  74 69 6f 6e 28 77 69 6e  |aretPosition(win|
00002af0  64 6f 77 25 2c 69 63 6f  6e 25 2c 30 29 0d 0c 26  |dow%,icon%,0)..&|
00002b00  60 c9 20 26 31 38 37 3a  54 65 78 74 24 3d c0 a4  |`. &187:Text$=..|
00002b10  72 65 61 64 5f 69 63 6f  6e 5f 74 65 78 74 28 77  |read_icon_text(w|
00002b20  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 2c a3 29 2c  |indow%,icon%,.),|
00002b30  6b 65 79 5f 69 6e 64 65  78 25 29 3a f2 75 70 64  |key_index%):.upd|
00002b40  61 74 65 5f 69 63 6f 6e  28 77 69 6e 64 6f 77 25  |ate_icon(window%|
00002b50  2c 69 63 6f 6e 25 2c 54  65 78 74 24 29 0d 0c 30  |,icon%,Text$)..0|
00002b60  1f c9 20 26 31 38 38 3a  f2 63 6c 65 61 72 5f 64  |.. &188:.clear_d|
00002b70  61 74 61 5f 71 75 65 73  74 69 6f 6e 0d 0c 3a 0a  |ata_question..:.|
00002b80  c9 20 26 31 38 45 0d 0c  44 10 c8 8e 20 77 69 6e  |. &18E..D... win|
00002b90  64 6f 77 25 20 ca 0d 0c  4e 2d c9 20 63 64 5f 69  |dow% ...N-. cd_i|
00002ba0  6e 64 65 78 25 3a f2 72  65 61 64 3a f2 63 61 72  |ndex%:.read:.car|
00002bb0  65 74 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |et(window%,icon%|
00002bc0  2c 31 29 0d 0c 58 38 c9  20 63 64 5f 74 72 61 63  |,1)..X8. cd_trac|
00002bd0  6b 73 25 3a f2 72 65 61  64 5f 74 72 61 63 6b 6c  |ks%:.read_trackl|
00002be0  69 73 74 3a f2 63 61 72  65 74 28 77 69 6e 64 6f  |ist:.caret(windo|
00002bf0  77 25 2c 69 63 6f 6e 25  2c 31 29 0d 0c 62 05 cb  |w%,icon%,1)..b..|
00002c00  0d 0c 6c 0a c9 20 26 31  38 46 0d 0c 76 10 c8 8e  |..l.. &18F..v...|
00002c10  20 77 69 6e 64 6f 77 25  20 ca 0d 0c 80 2e c9 20  | window% ...... |
00002c20  63 64 5f 69 6e 64 65 78  25 3a f2 72 65 61 64 3a  |cd_index%:.read:|
00002c30  f2 63 61 72 65 74 28 77  69 6e 64 6f 77 25 2c 69  |.caret(window%,i|
00002c40  63 6f 6e 25 2c 2d 31 29  0d 0c 8a 39 c9 20 63 64  |con%,-1)...9. cd|
00002c50  5f 74 72 61 63 6b 73 25  3a f2 72 65 61 64 5f 74  |_tracks%:.read_t|
00002c60  72 61 63 6b 6c 69 73 74  3a f2 63 61 72 65 74 28  |racklist:.caret(|
00002c70  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 2c 2d 31  |window%,icon%,-1|
00002c80  29 0d 0c 94 05 cb 0d 0c  9e 0a c9 20 26 31 41 45  |).......... &1AE|
00002c90  0d 0c a8 10 c8 8e 20 77  69 6e 64 6f 77 25 20 ca  |...... window% .|
00002ca0  0d 0c b2 2f c9 20 63 64  5f 69 6e 64 65 78 25 3a  |.../. cd_index%:|
00002cb0  f2 6d 6f 76 65 5f 63 61  72 65 74 28 63 64 5f 69  |.move_caret(cd_i|
00002cc0  6e 64 65 78 25 2c 31 36  29 3a f2 72 65 61 64 0d  |ndex%,16):.read.|
00002cd0  0c bc 3b c9 20 63 64 5f  74 72 61 63 6b 73 25 3a  |..;. cd_tracks%:|
00002ce0  f2 6d 6f 76 65 5f 63 61  72 65 74 28 63 64 5f 74  |.move_caret(cd_t|
00002cf0  72 61 63 6b 73 25 2c 34  37 29 3a f2 72 65 61 64  |racks%,47):.read|
00002d00  5f 74 72 61 63 6b 6c 69  73 74 0d 0c c6 05 cb 0d  |_tracklist......|
00002d10  0c d0 0a c9 20 26 31 41  46 0d 0c da 10 c8 8e 20  |.... &1AF...... |
00002d20  77 69 6e 64 6f 77 25 20  ca 0d 0c e4 2e c9 20 63  |window% ...... c|
00002d30  64 5f 69 6e 64 65 78 25  3a f2 6d 6f 76 65 5f 63  |d_index%:.move_c|
00002d40  61 72 65 74 28 63 64 5f  69 6e 64 65 78 25 2c 39  |aret(cd_index%,9|
00002d50  29 3a f2 72 65 61 64 0d  0c ee 3b c9 20 63 64 5f  |):.read...;. cd_|
00002d60  74 72 61 63 6b 73 25 3a  f2 6d 6f 76 65 5f 63 61  |tracks%:.move_ca|
00002d70  72 65 74 28 63 64 5f 74  72 61 63 6b 73 25 2c 32  |ret(cd_tracks%,2|
00002d80  34 29 3a f2 72 65 61 64  5f 74 72 61 63 6b 6c 69  |4):.read_trackli|
00002d90  73 74 0d 0c f8 05 cb 0d  0d 02 25 7f 20 c8 99 20  |st........%. .. |
00002da0  22 57 69 6d 70 5f 50 72  6f 63 65 73 73 4b 65 79  |"Wimp_ProcessKey|
00002db0  22 2c 63 68 61 72 61 63  74 65 72 25 0d 0d 0c 05  |",character%....|
00002dc0  cb 0d 0d 16 05 e1 0d 0d  20 05 3a 0d 0d 2a 29 dd  |........ .:..*).|
00002dd0  f2 63 61 72 65 74 28 63  61 72 65 74 5f 77 69 6e  |.caret(caret_win|
00002de0  64 6f 77 25 2c 6f 6c 64  5f 69 63 6f 6e 25 2c 69  |dow%,old_icon%,i|
00002df0  6e 63 25 29 0d 0d 34 16  c8 8e 20 63 61 72 65 74  |nc%)..4... caret|
00002e00  5f 77 69 6e 64 6f 77 25  20 ca 0d 0d 3e 0f c9 20  |_window% ...>.. |
00002e10  63 64 5f 69 6e 64 65 78  25 0d 0d 48 1d 6e 65 78  |cd_index%..H.nex|
00002e20  74 5f 69 63 6f 6e 25 3d  6f 6c 64 5f 69 63 6f 6e  |t_icon%=old_icon|
00002e30  25 2b 69 6e 63 25 0d 0d  52 22 e7 20 6e 65 78 74  |%+inc%..R". next|
00002e40  5f 69 63 6f 6e 25 3e 31  36 20 8c 20 6e 65 78 74  |_icon%>16 . next|
00002e50  5f 69 63 6f 6e 25 3d 39  0d 0d 5c 22 e7 20 6e 65  |_icon%=9..\". ne|
00002e60  78 74 5f 69 63 6f 6e 25  3c 39 20 8c 20 6e 65 78  |xt_icon%<9 . nex|
00002e70  74 5f 69 63 6f 6e 25 3d  31 36 0d 0d 66 25 f2 6d  |t_icon%=16..f%.m|
00002e80  6f 76 65 5f 63 61 72 65  74 28 63 64 5f 69 6e 64  |ove_caret(cd_ind|
00002e90  65 78 25 2c 6e 65 78 74  5f 69 63 6f 6e 25 29 0d  |ex%,next_icon%).|
00002ea0  0d 70 10 c9 20 63 64 5f  74 72 61 63 6b 73 25 0d  |.p.. cd_tracks%.|
00002eb0  0d 7a 1d 6e 65 78 74 5f  69 63 6f 6e 25 3d 6f 6c  |.z.next_icon%=ol|
00002ec0  64 5f 69 63 6f 6e 25 2b  69 6e 63 25 0d 0d 84 23  |d_icon%+inc%...#|
00002ed0  e7 20 6e 65 78 74 5f 69  63 6f 6e 25 3e 34 37 20  |. next_icon%>47 |
00002ee0  8c 20 6e 65 78 74 5f 69  63 6f 6e 25 3d 32 34 0d  |. next_icon%=24.|
00002ef0  0d 8e 23 e7 20 6e 65 78  74 5f 69 63 6f 6e 25 3c  |..#. next_icon%<|
00002f00  32 34 20 8c 20 6e 65 78  74 5f 69 63 6f 6e 25 3d  |24 . next_icon%=|
00002f10  34 37 0d 0d 98 26 f2 6d  6f 76 65 5f 63 61 72 65  |47...&.move_care|
00002f20  74 28 63 64 5f 74 72 61  63 6b 73 25 2c 6e 65 78  |t(cd_tracks%,nex|
00002f30  74 5f 69 63 6f 6e 25 29  0d 0d a2 05 cb 0d 0d ac  |t_icon%)........|
00002f40  05 e1 0d 0d b6 05 3a 0d  0d c0 1f dd f2 6d 6f 76  |......:......mov|
00002f50  65 5f 63 61 72 65 74 28  77 69 6e 64 6f 77 25 2c  |e_caret(window%,|
00002f60  69 63 6f 6e 25 29 0d 0d  ca 31 c8 99 20 22 57 69  |icon%)...1.. "Wi|
00002f70  6d 70 5f 53 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_SetCaretPosit|
00002f80  69 6f 6e 22 2c 77 69 6e  64 6f 77 25 2c 69 63 6f  |ion",window%,ico|
00002f90  6e 25 2c 2c 2c 2d 31 0d  0d d4 05 e1 0d 0d de 05  |n%,,,-1.........|
00002fa0  3a 0d 0d e8 11 dd f2 6d  65 6e 75 5f 73 65 6c 65  |:......menu_sele|
00002fb0  63 74 0d 0d f2 1b ea 20  73 65 6c 65 63 74 69 6f  |ct..... selectio|
00002fc0  6e 25 2c 73 65 6c 65 63  74 69 6f 6e 24 0d 0d fc  |n%,selection$...|
00002fd0  14 de 20 73 65 6c 65 63  74 69 6f 6e 25 20 32 35  |.. selection% 25|
00002fe0  35 0d 0e 06 33 c8 99 20  22 57 69 6d 70 5f 44 65  |5...3.. "Wimp_De|
00002ff0  63 6f 64 65 4d 65 6e 75  22 2c 2c 73 65 6c 65 63  |codeMenu",,selec|
00003000  74 6d 65 6e 75 25 2c 71  25 2c 73 65 6c 65 63 74  |tmenu%,q%,select|
00003010  69 6f 6e 25 0d 0e 10 1a  73 65 6c 65 63 74 69 6f  |ion%....selectio|
00003020  6e 24 3d 24 73 65 6c 65  63 74 69 6f 6e 25 0d 0e  |n$=$selection%..|
00003030  1a 13 c8 8e 20 73 65 6c  65 63 74 69 6f 6e 24 20  |.... selection$ |
00003040  ca 0d 0e 24 36 c9 20 22  43 44 22 3a f2 75 70 64  |...$6. "CD":.upd|
00003050  61 74 65 5f 69 63 6f 6e  28 63 64 5f 69 6e 64 65  |ate_icon(cd_inde|
00003060  78 25 2c 31 31 2c 73 65  6c 65 63 74 69 6f 6e 24  |x%,11,selection$|
00003070  29 3a f2 72 65 61 64 0d  0e 2e 3a c9 20 22 43 44  |):.read...:. "CD|
00003080  2d 52 4f 4d 22 3a f2 75  70 64 61 74 65 5f 69 63  |-ROM":.update_ic|
00003090  6f 6e 28 63 64 5f 69 6e  64 65 78 25 2c 31 31 2c  |on(cd_index%,11,|
000030a0  73 65 6c 65 63 74 69 6f  6e 24 29 3a f2 72 65 61  |selection$):.rea|
000030b0  64 0d 0e 38 37 c9 20 22  44 41 54 22 3a f2 75 70  |d..87. "DAT":.up|
000030c0  64 61 74 65 5f 69 63 6f  6e 28 63 64 5f 69 6e 64  |date_icon(cd_ind|
000030d0  65 78 25 2c 31 31 2c 73  65 6c 65 63 74 69 6f 6e  |ex%,11,selection|
000030e0  24 29 3a f2 72 65 61 64  0d 0e 42 36 c9 20 22 4c  |$):.read..B6. "L|
000030f0  50 22 3a f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |P":.update_icon(|
00003100  63 64 5f 69 6e 64 65 78  25 2c 31 31 2c 73 65 6c  |cd_index%,11,sel|
00003110  65 63 74 69 6f 6e 24 29  3a f2 72 65 61 64 0d 0e  |ection$):.read..|
00003120  4c 38 c9 20 22 54 61 70  65 22 3a f2 75 70 64 61  |L8. "Tape":.upda|
00003130  74 65 5f 69 63 6f 6e 28  63 64 5f 69 6e 64 65 78  |te_icon(cd_index|
00003140  25 2c 31 31 2c 73 65 6c  65 63 74 69 6f 6e 24 29  |%,11,selection$)|
00003150  3a f2 72 65 61 64 0d 0e  56 3e c9 20 22 37 22 22  |:.read..V>. "7""|
00003160  20 53 69 6e 67 6c 65 22  3a f2 75 70 64 61 74 65  | Single":.update|
00003170  5f 69 63 6f 6e 28 63 64  5f 69 6e 64 65 78 25 2c  |_icon(cd_index%,|
00003180  31 32 2c 73 65 6c 65 63  74 69 6f 6e 24 29 3a f2  |12,selection$):.|
00003190  72 65 61 64 0d 0e 60 3f  c9 20 22 31 32 22 22 20  |read..`?. "12"" |
000031a0  53 69 6e 67 6c 65 22 3a  f2 75 70 64 61 74 65 5f  |Single":.update_|
000031b0  69 63 6f 6e 28 63 64 5f  69 6e 64 65 78 25 2c 31  |icon(cd_index%,1|
000031c0  32 2c 73 65 6c 65 63 74  69 6f 6e 24 29 3a f2 72  |2,selection$):.r|
000031d0  65 61 64 0d 0e 6a 3d c9  20 22 43 44 20 53 69 6e  |ead..j=. "CD Sin|
000031e0  67 6c 65 22 3a f2 75 70  64 61 74 65 5f 69 63 6f  |gle":.update_ico|
000031f0  6e 28 63 64 5f 69 6e 64  65 78 25 2c 31 32 2c 73  |n(cd_index%,12,s|
00003200  65 6c 65 63 74 69 6f 6e  24 29 3a f2 72 65 61 64  |election$):.read|
00003210  0d 0e 74 39 c9 20 22 41  6c 62 75 6d 22 3a f2 75  |..t9. "Album":.u|
00003220  70 64 61 74 65 5f 69 63  6f 6e 28 63 64 5f 69 6e  |pdate_icon(cd_in|
00003230  64 65 78 25 2c 31 32 2c  73 65 6c 65 63 74 69 6f  |dex%,12,selectio|
00003240  6e 24 29 3a f2 72 65 61  64 0d 0e 7e 3b c9 20 22  |n$):.read..~;. "|
00003250  42 6f 78 20 53 65 74 22  3a f2 75 70 64 61 74 65  |Box Set":.update|
00003260  5f 69 63 6f 6e 28 63 64  5f 69 6e 64 65 78 25 2c  |_icon(cd_index%,|
00003270  31 32 2c 73 65 6c 65 63  74 69 6f 6e 24 29 3a f2  |12,selection$):.|
00003280  72 65 61 64 0d 0e 88 40  c9 20 22 44 6f 75 62 6c  |read...@. "Doubl|
00003290  65 20 41 6c 62 75 6d 22  3a f2 75 70 64 61 74 65  |e Album":.update|
000032a0  5f 69 63 6f 6e 28 63 64  5f 69 6e 64 65 78 25 2c  |_icon(cd_index%,|
000032b0  31 32 2c 73 65 6c 65 63  74 69 6f 6e 24 29 3a f2  |12,selection$):.|
000032c0  72 65 61 64 0d 0e 92 3d  c9 20 22 43 6c 61 73 73  |read...=. "Class|
000032d0  69 63 61 6c 22 3a f2 75  70 64 61 74 65 5f 69 63  |ical":.update_ic|
000032e0  6f 6e 28 63 64 5f 69 6e  64 65 78 25 2c 31 35 2c  |on(cd_index%,15,|
000032f0  73 65 6c 65 63 74 69 6f  6e 24 29 3a f2 72 65 61  |selection$):.rea|
00003300  64 0d 0e 9c 3b c9 20 22  43 6f 75 6e 74 72 79 22  |d...;. "Country"|
00003310  3a f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 63 64  |:.update_icon(cd|
00003320  5f 69 6e 64 65 78 25 2c  31 35 2c 73 65 6c 65 63  |_index%,15,selec|
00003330  74 69 6f 6e 24 29 3a f2  72 65 61 64 0d 0e a6 38  |tion$):.read...8|
00003340  c9 20 22 46 75 6e 6b 22  3a f2 75 70 64 61 74 65  |. "Funk":.update|
00003350  5f 69 63 6f 6e 28 63 64  5f 69 6e 64 65 78 25 2c  |_icon(cd_index%,|
00003360  31 35 2c 73 65 6c 65 63  74 69 6f 6e 24 29 3a f2  |15,selection$):.|
00003370  72 65 61 64 0d 0e b0 38  c9 20 22 53 6f 75 6c 22  |read...8. "Soul"|
00003380  3a f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 63 64  |:.update_icon(cd|
00003390  5f 69 6e 64 65 78 25 2c  31 35 2c 73 65 6c 65 63  |_index%,15,selec|
000033a0  74 69 6f 6e 24 29 3a f2  72 65 61 64 0d 0e ba 3b  |tion$):.read...;|
000033b0  c9 20 22 56 61 72 69 6f  75 73 22 3a f2 75 70 64  |. "Various":.upd|
000033c0  61 74 65 5f 69 63 6f 6e  28 63 64 5f 69 6e 64 65  |ate_icon(cd_inde|
000033d0  78 25 2c 31 35 2c 73 65  6c 65 63 74 69 6f 6e 24  |x%,15,selection$|
000033e0  29 3a f2 72 65 61 64 0d  0e c4 39 c9 20 22 4d 65  |):.read...9. "Me|
000033f0  74 61 6c 22 3a f2 75 70  64 61 74 65 5f 69 63 6f  |tal":.update_ico|
00003400  6e 28 63 64 5f 69 6e 64  65 78 25 2c 31 35 2c 73  |n(cd_index%,15,s|
00003410  65 6c 65 63 74 69 6f 6e  24 29 3a f2 72 65 61 64  |election$):.read|
00003420  0d 0e ce 38 c9 20 22 46  6f 6c 6b 22 3a f2 75 70  |...8. "Folk":.up|
00003430  64 61 74 65 5f 69 63 6f  6e 28 63 64 5f 69 6e 64  |date_icon(cd_ind|
00003440  65 78 25 2c 31 35 2c 73  65 6c 65 63 74 69 6f 6e  |ex%,15,selection|
00003450  24 29 3a f2 72 65 61 64  0d 0e d8 38 c9 20 22 4a  |$):.read...8. "J|
00003460  61 7a 7a 22 3a f2 75 70  64 61 74 65 5f 69 63 6f  |azz":.update_ico|
00003470  6e 28 63 64 5f 69 6e 64  65 78 25 2c 31 35 2c 73  |n(cd_index%,15,s|
00003480  65 6c 65 63 74 69 6f 6e  24 29 3a f2 72 65 61 64  |election$):.read|
00003490  0d 0e e2 39 c9 20 22 42  6c 75 65 73 22 3a f2 75  |...9. "Blues":.u|
000034a0  70 64 61 74 65 5f 69 63  6f 6e 28 63 64 5f 69 6e  |pdate_icon(cd_in|
000034b0  64 65 78 25 2c 31 35 2c  73 65 6c 65 63 74 69 6f  |dex%,15,selectio|
000034c0  6e 24 29 3a f2 72 65 61  64 0d 0e ec 3a c9 20 22  |n$):.read...:. "|
000034d0  52 65 67 67 61 65 22 3a  f2 75 70 64 61 74 65 5f  |Reggae":.update_|
000034e0  69 63 6f 6e 28 63 64 5f  69 6e 64 65 78 25 2c 31  |icon(cd_index%,1|
000034f0  35 2c 73 65 6c 65 63 74  69 6f 6e 24 29 3a f2 72  |5,selection$):.r|
00003500  65 61 64 0d 0e f6 37 c9  20 22 50 6f 70 22 3a f2  |ead...7. "Pop":.|
00003510  75 70 64 61 74 65 5f 69  63 6f 6e 28 63 64 5f 69  |update_icon(cd_i|
00003520  6e 64 65 78 25 2c 31 35  2c 73 65 6c 65 63 74 69  |ndex%,15,selecti|
00003530  6f 6e 24 29 3a f2 72 65  61 64 0d 0f 00 38 c9 20  |on$):.read...8. |
00003540  22 52 61 76 65 22 3a f2  75 70 64 61 74 65 5f 69  |"Rave":.update_i|
00003550  63 6f 6e 28 63 64 5f 69  6e 64 65 78 25 2c 31 35  |con(cd_index%,15|
00003560  2c 73 65 6c 65 63 74 69  6f 6e 24 29 3a f2 72 65  |,selection$):.re|
00003570  61 64 0d 0f 0a 38 c9 20  22 52 6f 63 6b 22 3a f2  |ad...8. "Rock":.|
00003580  75 70 64 61 74 65 5f 69  63 6f 6e 28 63 64 5f 69  |update_icon(cd_i|
00003590  6e 64 65 78 25 2c 31 35  2c 73 65 6c 65 63 74 69  |ndex%,15,selecti|
000035a0  6f 6e 24 29 3a f2 72 65  61 64 0d 0f 14 3a c9 20  |on$):.read...:. |
000035b0  c3 28 79 65 61 72 25 29  3a f2 75 70 64 61 74 65  |.(year%):.update|
000035c0  5f 69 63 6f 6e 28 63 64  5f 69 6e 64 65 78 25 2c  |_icon(cd_index%,|
000035d0  31 36 2c 73 65 6c 65 63  74 69 6f 6e 24 29 3a f2  |16,selection$):.|
000035e0  72 65 61 64 0d 0f 1e 3c  c9 20 c3 28 79 65 61 72  |read...<. .(year|
000035f0  25 2d 31 29 3a f2 75 70  64 61 74 65 5f 69 63 6f  |%-1):.update_ico|
00003600  6e 28 63 64 5f 69 6e 64  65 78 25 2c 31 36 2c 73  |n(cd_index%,16,s|
00003610  65 6c 65 63 74 69 6f 6e  24 29 3a f2 72 65 61 64  |election$):.read|
00003620  0d 0f 28 3c c9 20 c3 28  79 65 61 72 25 2d 32 29  |..(<. .(year%-2)|
00003630  3a f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 63 64  |:.update_icon(cd|
00003640  5f 69 6e 64 65 78 25 2c  31 36 2c 73 65 6c 65 63  |_index%,16,selec|
00003650  74 69 6f 6e 24 29 3a f2  72 65 61 64 0d 0f 32 3c  |tion$):.read..2<|
00003660  c9 20 c3 28 79 65 61 72  25 2d 33 29 3a f2 75 70  |. .(year%-3):.up|
00003670  64 61 74 65 5f 69 63 6f  6e 28 63 64 5f 69 6e 64  |date_icon(cd_ind|
00003680  65 78 25 2c 31 36 2c 73  65 6c 65 63 74 69 6f 6e  |ex%,16,selection|
00003690  24 29 3a f2 72 65 61 64  0d 0f 3c 3c c9 20 c3 28  |$):.read..<<. .(|
000036a0  79 65 61 72 25 2d 34 29  3a f2 75 70 64 61 74 65  |year%-4):.update|
000036b0  5f 69 63 6f 6e 28 63 64  5f 69 6e 64 65 78 25 2c  |_icon(cd_index%,|
000036c0  31 36 2c 73 65 6c 65 63  74 69 6f 6e 24 29 3a f2  |16,selection$):.|
000036d0  72 65 61 64 0d 0f 46 3c  c9 20 c3 28 79 65 61 72  |read..F<. .(year|
000036e0  25 2d 35 29 3a f2 75 70  64 61 74 65 5f 69 63 6f  |%-5):.update_ico|
000036f0  6e 28 63 64 5f 69 6e 64  65 78 25 2c 31 36 2c 73  |n(cd_index%,16,s|
00003700  65 6c 65 63 74 69 6f 6e  24 29 3a f2 72 65 61 64  |election$):.read|
00003710  0d 0f 50 3c c9 20 c3 28  79 65 61 72 25 2d 36 29  |..P<. .(year%-6)|
00003720  3a f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 63 64  |:.update_icon(cd|
00003730  5f 69 6e 64 65 78 25 2c  31 36 2c 73 65 6c 65 63  |_index%,16,selec|
00003740  74 69 6f 6e 24 29 3a f2  72 65 61 64 0d 0f 5a 24  |tion$):.read..Z$|
00003750  c9 20 22 53 6f 72 74 20  20 20 20 20 20 46 32 22  |. "Sort      F2"|
00003760  3a f2 6f 70 65 6e 28 63  64 5f 73 6f 72 74 25 29  |:.open(cd_sort%)|
00003770  0d 0f 64 22 c9 20 22 43  6c 65 61 72 20 52 65 63  |..d". "Clear Rec|
00003780  6f 72 64 22 3a f2 63 6c  65 61 72 5f 73 69 6e 67  |ord":.clear_sing|
00003790  6c 65 0d 0f 6e 24 c9 20  22 48 65 6c 70 20 20 20  |le..n$. "Help   |
000037a0  20 20 20 46 31 22 3a f2  6f 70 65 6e 28 63 64 5f  |   F1":.open(cd_|
000037b0  68 65 6c 70 25 29 0d 0f  78 29 c9 20 22 52 65 73  |help%)..x). "Res|
000037c0  74 61 72 74 20 20 20 46  38 22 3a f2 63 6c 65 61  |tart   F8":.clea|
000037d0  72 5f 64 61 74 61 5f 71  75 65 73 74 69 6f 6e 0d  |r_data_question.|
000037e0  0f 82 51 c9 20 22 4f 70  74 69 6f 6e 73 2e 57 69  |..Q. "Options.Wi|
000037f0  6e 64 6f 77 73 2e 50 6c  61 69 6e 20 49 63 6f 6e  |ndows.Plain Icon|
00003800  73 22 3a f2 74 69 63 6b  28 77 69 6e 64 6f 77 6f  |s":.tick(windowo|
00003810  70 74 73 25 2c 31 2c 31  29 3a 6e 65 77 77 69 6e  |pts%,1,1):newwin|
00003820  64 6f 77 74 79 70 65 24  3d 22 50 6c 61 69 6e 22  |dowtype$="Plain"|
00003830  0d 0f 8c 4b c9 20 22 4f  70 74 69 6f 6e 73 2e 57  |...K. "Options.W|
00003840  69 6e 64 6f 77 73 2e 33  44 20 49 63 6f 6e 73 22  |indows.3D Icons"|
00003850  3a f2 74 69 63 6b 28 77  69 6e 64 6f 77 6f 70 74  |:.tick(windowopt|
00003860  73 25 2c 30 2c 31 29 3a  6e 65 77 77 69 6e 64 6f  |s%,0,1):newwindo|
00003870  77 74 79 70 65 24 3d 22  33 44 22 0d 0f 96 2a c9  |wtype$="3D"...*.|
00003880  20 22 4f 70 74 69 6f 6e  73 2e 53 61 76 65 20 43  | "Options.Save C|
00003890  68 6f 69 63 65 73 22 3a  f2 73 61 76 65 5f 63 68  |hoices":.save_ch|
000038a0  6f 69 63 65 73 0d 0f a0  8a c9 20 22 4f 70 74 69  |oices..... "Opti|
000038b0  6f 6e 73 2e 52 65 63 6f  72 64 73 2e 31 30 30 22  |ons.Records.100"|
000038c0  3a f2 62 75 66 66 65 72  73 69 7a 65 28 32 30 30  |:.buffersize(200|
000038d0  2c 22 31 30 30 22 29 3a  e7 20 62 75 66 66 65 72  |,"100"):. buffer|
000038e0  6f 6b 25 20 8c 20 f2 74  69 63 6b 28 6d 61 78 72  |ok% . .tick(maxr|
000038f0  65 63 6f 72 64 6d 65 6e  75 25 2c 30 2c 35 29 3a  |ecordmenu%,0,5):|
00003900  6d 61 78 5f 72 65 63 6f  72 64 25 3d 31 30 30 3a  |max_record%=100:|
00003910  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 63 64 5f  |.update_icon(cd_|
00003920  70 61 6e 65 25 2c 37 2c  22 2f 31 30 30 22 29 0d  |pane%,7,"/100").|
00003930  0f aa 8a c9 20 22 4f 70  74 69 6f 6e 73 2e 52 65  |.... "Options.Re|
00003940  63 6f 72 64 73 2e 32 30  30 22 3a f2 62 75 66 66  |cords.200":.buff|
00003950  65 72 73 69 7a 65 28 33  30 30 2c 22 32 30 30 22  |ersize(300,"200"|
00003960  29 3a e7 20 62 75 66 66  65 72 6f 6b 25 20 8c 20  |):. bufferok% . |
00003970  f2 74 69 63 6b 28 6d 61  78 72 65 63 6f 72 64 6d  |.tick(maxrecordm|
00003980  65 6e 75 25 2c 31 2c 35  29 3a 6d 61 78 5f 72 65  |enu%,1,5):max_re|
00003990  63 6f 72 64 25 3d 32 30  30 3a f2 75 70 64 61 74  |cord%=200:.updat|
000039a0  65 5f 69 63 6f 6e 28 63  64 5f 70 61 6e 65 25 2c  |e_icon(cd_pane%,|
000039b0  37 2c 22 2f 32 30 30 22  29 0d 0f b4 8a c9 20 22  |7,"/200")..... "|
000039c0  4f 70 74 69 6f 6e 73 2e  52 65 63 6f 72 64 73 2e  |Options.Records.|
000039d0  33 30 30 22 3a f2 62 75  66 66 65 72 73 69 7a 65  |300":.buffersize|
000039e0  28 34 30 30 2c 22 33 30  30 22 29 3a e7 20 62 75  |(400,"300"):. bu|
000039f0  66 66 65 72 6f 6b 25 20  8c 20 f2 74 69 63 6b 28  |fferok% . .tick(|
00003a00  6d 61 78 72 65 63 6f 72  64 6d 65 6e 75 25 2c 32  |maxrecordmenu%,2|
00003a10  2c 35 29 3a 6d 61 78 5f  72 65 63 6f 72 64 25 3d  |,5):max_record%=|
00003a20  33 30 30 3a f2 75 70 64  61 74 65 5f 69 63 6f 6e  |300:.update_icon|
00003a30  28 63 64 5f 70 61 6e 65  25 2c 37 2c 22 2f 33 30  |(cd_pane%,7,"/30|
00003a40  30 22 29 0d 0f be 8a c9  20 22 4f 70 74 69 6f 6e  |0")..... "Option|
00003a50  73 2e 52 65 63 6f 72 64  73 2e 34 30 30 22 3a f2  |s.Records.400":.|
00003a60  62 75 66 66 65 72 73 69  7a 65 28 35 30 30 2c 22  |buffersize(500,"|
00003a70  34 30 30 22 29 3a e7 20  62 75 66 66 65 72 6f 6b  |400"):. bufferok|
00003a80  25 20 8c 20 f2 74 69 63  6b 28 6d 61 78 72 65 63  |% . .tick(maxrec|
00003a90  6f 72 64 6d 65 6e 75 25  2c 33 2c 35 29 3a 6d 61  |ordmenu%,3,5):ma|
00003aa0  78 5f 72 65 63 6f 72 64  25 3d 34 30 30 3a f2 75  |x_record%=400:.u|
00003ab0  70 64 61 74 65 5f 69 63  6f 6e 28 63 64 5f 70 61  |pdate_icon(cd_pa|
00003ac0  6e 65 25 2c 37 2c 22 2f  34 30 30 22 29 0d 0f c8  |ne%,7,"/400")...|
00003ad0  8a c9 20 22 4f 70 74 69  6f 6e 73 2e 52 65 63 6f  |.. "Options.Reco|
00003ae0  72 64 73 2e 35 30 30 22  3a f2 62 75 66 66 65 72  |rds.500":.buffer|
00003af0  73 69 7a 65 28 36 30 30  2c 22 35 30 30 22 29 3a  |size(600,"500"):|
00003b00  e7 20 62 75 66 66 65 72  6f 6b 25 20 8c 20 f2 74  |. bufferok% . .t|
00003b10  69 63 6b 28 6d 61 78 72  65 63 6f 72 64 6d 65 6e  |ick(maxrecordmen|
00003b20  75 25 2c 34 2c 35 29 3a  6d 61 78 5f 72 65 63 6f  |u%,4,5):max_reco|
00003b30  72 64 25 3d 35 30 30 3a  f2 75 70 64 61 74 65 5f  |rd%=500:.update_|
00003b40  69 63 6f 6e 28 63 64 5f  70 61 6e 65 25 2c 37 2c  |icon(cd_pane%,7,|
00003b50  22 2f 35 30 30 22 29 0d  0f d2 40 c9 20 22 4f 70  |"/500")...@. "Op|
00003b60  74 69 6f 6e 73 2e 41 6e  69 6d 61 74 69 6f 6e 2e  |tions.Animation.|
00003b70  4f 66 66 22 3a 61 6e 69  6d 6f 6e 24 3d 22 4f 66  |Off":animon$="Of|
00003b80  66 22 3a f2 74 69 63 6b  28 61 6e 69 6d 6d 65 6e  |f":.tick(animmen|
00003b90  75 25 2c 30 2c 31 29 0d  0f dc 3e c9 20 22 4f 70  |u%,0,1)...>. "Op|
00003ba0  74 69 6f 6e 73 2e 41 6e  69 6d 61 74 69 6f 6e 2e  |tions.Animation.|
00003bb0  4f 6e 22 3a 61 6e 69 6d  6f 6e 24 3d 22 4f 6e 22  |On":animon$="On"|
00003bc0  3a f2 74 69 63 6b 28 61  6e 69 6d 6d 65 6e 75 25  |:.tick(animmenu%|
00003bd0  2c 31 2c 31 29 0d 0f e6  18 c9 20 22 51 75 69 74  |,1,1)..... "Quit|
00003be0  22 3a f2 71 75 69 74 5f  63 68 65 63 6b 0d 0f f0  |":.quit_check...|
00003bf0  05 cb 0d 0f fa 20 c8 99  20 22 57 69 6d 70 5f 47  |..... .. "Wimp_G|
00003c00  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
00003c10  71 25 0d 10 04 30 e7 20  71 25 21 38 3d 31 20 8c  |q%...0. q%!8=1 .|
00003c20  20 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  | .. "Wimp_Create|
00003c30  4d 65 6e 75 22 2c 2c 73  65 6c 65 63 74 6d 65 6e  |Menu",,selectmen|
00003c40  75 25 0d 10 0e 05 e1 0d  10 18 05 3a 0d 10 22 11  |u%.........:..".|
00003c50  dd f2 72 65 63 65 69 76  65 28 71 25 29 0d 10 2c  |..receive(q%)..,|
00003c60  0e c8 8e 20 71 25 21 31  36 20 ca 0d 10 36 13 c9  |... q%!16 ...6..|
00003c70  20 30 3a f2 71 75 69 74  5f 63 68 65 63 6b 0d 10  | 0:.quit_check..|
00003c80  40 11 c9 20 32 3a f2 64  61 74 61 73 61 76 65 0d  |@.. 2:.datasave.|
00003c90  10 4a 40 c9 20 33 2c 35  3a e7 20 71 25 21 31 32  |.J@. 3,5:. q%!12|
00003ca0  3d 30 20 80 20 71 25 21  34 30 3d 26 44 39 30 20  |=0 . q%!40=&D90 |
00003cb0  8c 20 f2 6c 6f 61 64 5f  61 63 6b 6e 6f 77 6c 65  |. .load_acknowle|
00003cc0  64 67 65 3a f2 6f 6b 5f  74 6f 5f 6c 6f 61 64 0d  |dge:.ok_to_load.|
00003cd0  10 54 19 c9 20 34 3a f2  6c 6f 61 64 5f 61 63 6b  |.T.. 4:.load_ack|
00003ce0  6e 6f 77 6c 65 64 67 65  0d 10 5e 1c c9 20 26 35  |nowledge..^.. &5|
00003cf0  30 32 3a f2 68 65 6c 70  28 a4 68 65 6c 70 5f 74  |02:.help(.help_t|
00003d00  65 78 74 29 0d 10 68 1d  c9 20 39 2c 26 34 30 30  |ext)..h.. 9,&400|
00003d10  43 31 3a f2 67 65 74 5f  6d 6f 64 65 5f 69 6e 66  |C1:.get_mode_inf|
00003d20  6f 0d 10 72 1c c9 20 26  34 30 30 43 32 3a f2 63  |o..r.. &400C2:.c|
00003d30  68 65 63 6b 5f 6e 65 77  5f 74 61 73 6b 0d 10 7c  |heck_new_task..||
00003d40  05 cb 0d 10 86 05 e1 0d  10 90 05 3a 0d 10 9a 14  |...........:....|
00003d50  dd f2 63 68 65 63 6b 5f  6e 65 77 5f 74 61 73 6b  |..check_new_task|
00003d60  0d 10 a4 2d 6e 65 77 74  61 73 6b 69 64 25 3d 71  |...-newtaskid%=q|
00003d70  25 21 34 3a 74 61 73 6b  6e 61 6d 65 24 3d a4 73  |%!4:taskname$=.s|
00003d80  74 72 69 6e 67 30 28 71  25 2b 32 38 29 0d 10 ae  |tring0(q%+28)...|
00003d90  3a e7 20 74 61 73 6b 6e  61 6d 65 24 3d 22 43 44  |:. taskname$="CD|
00003da0  20 49 6e 64 65 78 22 20  80 20 6e 65 77 74 61 73  | Index" . newtas|
00003db0  6b 69 64 25 3c 3e 68 61  6e 64 6c 65 25 20 8c 20  |kid%<>handle% . |
00003dc0  71 75 69 74 25 3d b9 0d  10 b8 05 e1 0d 10 c2 05  |quit%=..........|
00003dd0  3a 0d 10 cc 14 dd f2 63  68 65 63 6b 5f 66 6f 72  |:......check_for|
00003de0  5f 6c 6f 61 64 0d 10 d6  0f ea 20 66 69 6c 65 6e  |_load..... filen|
00003df0  61 6d 65 24 0d 10 e0 1e  c8 99 20 22 4f 53 5f 47  |ame$...... "OS_G|
00003e00  65 74 45 6e 76 22 20 b8  20 66 69 6c 65 6e 61 6d  |etEnv" . filenam|
00003e10  65 24 0d 10 ea 32 66 69  6c 65 6e 61 6d 65 24 3d  |e$...2filename$=|
00003e20  c1 66 69 6c 65 6e 61 6d  65 24 2c a7 66 69 6c 65  |.filename$,.file|
00003e30  6e 61 6d 65 24 2c 22 52  75 6e 49 6d 61 67 65 22  |name$,"RunImage"|
00003e40  29 2b 39 29 0d 10 f4 16  e7 20 a9 28 66 69 6c 65  |)+9)..... .(file|
00003e50  6e 61 6d 65 24 29 3e 30  20 8c 0d 10 fe 19 f2 6c  |name$)>0 ......l|
00003e60  6f 61 64 5f 64 61 74 61  28 66 69 6c 65 6e 61 6d  |oad_data(filenam|
00003e70  65 24 29 0d 11 08 05 cd  0d 11 12 05 e1 0d 11 1c  |e$).............|
00003e80  05 3a 0d 11 26 3b dd f2  75 70 64 61 74 65 5f 69  |.:..&;..update_i|
00003e90  63 6f 6e 28 75 70 64 61  74 65 5f 77 69 6e 64 6f  |con(update_windo|
00003ea0  77 25 2c 75 70 64 61 74  65 5f 69 63 6f 6e 25 2c  |w%,update_icon%,|
00003eb0  75 70 64 61 74 65 5f 74  65 78 74 24 29 0d 11 30  |update_text$)..0|
00003ec0  28 21 71 25 3d 75 70 64  61 74 65 5f 77 69 6e 64  |(!q%=update_wind|
00003ed0  6f 77 25 3a 71 25 21 34  3d 75 70 64 61 74 65 5f  |ow%:q%!4=update_|
00003ee0  69 63 6f 6e 25 0d 11 3a  1e c8 99 20 22 57 69 6d  |icon%..:... "Wim|
00003ef0  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00003f00  2c 71 25 0d 11 44 31 24  28 71 25 21 32 38 29 3d  |,q%..D1$(q%!28)=|
00003f10  75 70 64 61 74 65 5f 74  65 78 74 24 3a 71 25 21  |update_text$:q%!|
00003f20  33 36 3d a9 28 75 70 64  61 74 65 5f 74 65 78 74  |36=.(update_text|
00003f30  24 29 2b 31 0d 11 4e 12  71 25 21 38 3d 30 3a 71  |$)+1..N.q%!8=0:q|
00003f40  25 21 31 32 3d 30 0d 11  58 1e c8 99 20 22 57 69  |%!12=0..X... "Wi|
00003f50  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00003f60  2c 2c 71 25 0d 11 62 05  e1 0d 11 6c 05 3a 0d 11  |,,q%..b....l.:..|
00003f70  76 26 dd a4 63 72 65 61  74 65 5f 6d 65 6e 75 28  |v&..create_menu(|
00003f80  6d 65 6e 75 24 2c 6d 65  6e 75 32 24 2c 6d 65 6e  |menu$,menu2$,men|
00003f90  75 33 24 29 0d 11 80 32  e7 20 6d 65 6e 75 66 72  |u3$)...2. menufr|
00003fa0  65 65 25 2b 32 38 3e 6d  65 6e 75 65 6e 64 25 20  |ee%+28>menuend% |
00003fb0  8c 20 85 20 31 2c 22 4d  65 6e 75 20 41 72 65 61  |. . 1,"Menu Area|
00003fc0  20 46 75 6c 6c 22 0d 11  8a 0b ea 20 6d 25 2c 72  | Full"..... m%,r|
00003fd0  25 0d 11 94 16 6d 65 6e  75 70 74 72 25 3d 6d 65  |%....menuptr%=me|
00003fe0  6e 75 66 72 65 65 25 0d  11 9e 08 72 25 3d 30 0d  |nufree%....r%=0.|
00003ff0  11 a8 3f e7 20 c0 6d 65  6e 75 24 2c 31 29 3d 22  |..?. .menu$,1)="|
00004000  23 22 20 8c 20 72 25 3d  31 3a 6d 65 6e 75 74 69  |#" . r%=1:menuti|
00004010  74 6c 65 24 3d a4 70 61  72 28 22 2c 22 29 20 8b  |tle$=.par(",") .|
00004020  20 6d 65 6e 75 74 69 74  6c 65 24 3d 22 22 0d 11  | menutitle$=""..|
00004030  b2 1a e7 20 c2 6d 65 6e  75 74 69 74 6c 65 24 2c  |... .menutitle$,|
00004040  31 29 3d 22 7b 22 20 8c  0d 11 bc 0e 62 6f 74 69  |1)="{" .....boti|
00004050  63 6f 6e 25 3d 39 0d 11  c6 2b 6d 65 6e 75 74 69  |con%=9...+menuti|
00004060  74 6c 65 24 3d c0 6d 65  6e 75 74 69 74 6c 65 24  |tle$=.menutitle$|
00004070  2c a9 28 6d 65 6e 75 74  69 74 6c 65 24 29 2d 31  |,.(menutitle$)-1|
00004080  29 0d 11 d0 05 cc 0d 11  da 0e 62 6f 74 69 63 6f  |).........botico|
00004090  6e 25 3d 31 0d 11 e4 05  cd 0d 11 ee 18 24 6d 65  |n%=1.........$me|
000040a0  6e 75 70 74 72 25 3d 6d  65 6e 75 74 69 74 6c 65  |nuptr%=menutitle|
000040b0  24 0d 11 f8 3b 6d 65 6e  75 70 74 72 25 3f 31 32  |$...;menuptr%?12|
000040c0  3d 37 3a 6d 65 6e 75 70  74 72 25 3f 31 33 3d 32  |=7:menuptr%?13=2|
000040d0  3a 6d 65 6e 75 70 74 72  25 3f 31 34 3d 37 3a 6d  |:menuptr%?14=7:m|
000040e0  65 6e 75 70 74 72 25 3f  31 35 3d 30 0d 12 02 33  |enuptr%?15=0...3|
000040f0  6d 65 6e 75 70 74 72 25  21 31 36 3d 31 39 36 2d  |menuptr%!16=196-|
00004100  32 34 3a 6d 65 6e 75 70  74 72 25 21 32 30 3d 34  |24:menuptr%!20=4|
00004110  34 3a 6d 65 6e 75 70 74  72 25 21 32 34 3d 30 0d  |4:menuptr%!24=0.|
00004120  12 0c 24 6d 65 6e 75 70  74 72 25 2b 3d 32 38 3a  |..$menuptr%+=28:|
00004130  6d 61 78 78 25 3d a9 6d  65 6e 75 74 69 74 6c 65  |maxx%=.menutitle|
00004140  24 2d 32 0d 12 16 05 f5  0d 12 20 13 69 74 65 6d  |$-2....... .item|
00004150  24 3d a4 70 61 72 28 22  2c 22 29 0d 12 2a 12 e7  |$=.par(",")..*..|
00004160  20 69 74 65 6d 24 3d 22  2b 2b 22 20 8c 0d 12 34  | item$="++" ...4|
00004170  08 72 25 3d 30 0d 12 3e  10 6d 65 6e 75 24 3d 6d  |.r%=0..>.menu$=m|
00004180  65 6e 75 32 24 0d 12 48  05 cc 0d 12 52 13 e7 20  |enu2$..H....R.. |
00004190  69 74 65 6d 24 3d 22 2b  2b 2b 22 20 8c 0d 12 5c  |item$="+++" ...\|
000041a0  08 72 25 3d 30 0d 12 66  10 6d 65 6e 75 25 3d 6d  |.r%=0..f.menu%=m|
000041b0  65 6e 75 33 24 0d 12 70  05 cc 0d 12 7a 15 f2 6d  |enu3$..p....z..m|
000041c0  65 6e 75 5f 69 74 65 6d  28 69 74 65 6d 24 29 0d  |enu_item(item$).|
000041d0  12 84 05 cd 0d 12 8e 05  cd 0d 12 98 0e fd 20 69  |.............. i|
000041e0  74 65 6d 24 3d 22 22 0d  12 a2 19 e7 20 6d 61 78  |tem$=""..... max|
000041f0  78 25 3e 32 30 20 8c 20  6d 61 78 78 25 3d 32 30  |x%>20 . maxx%=20|
00004200  0d 12 ac 24 6d 25 3d 6d  65 6e 75 66 72 65 65 25  |...$m%=menufree%|
00004210  3a 6d 25 21 31 36 3d 28  6d 61 78 78 25 2a 38 2b  |:m%!16=(maxx%*8+|
00004220  36 29 2a 32 0d 12 b6 16  6d 65 6e 75 66 72 65 65  |6)*2....menufree|
00004230  25 3d 6d 65 6e 75 70 74  72 25 0d 12 c0 07 3d 6d  |%=menuptr%....=m|
00004240  25 0d 12 ca 05 3a 0d 12  d4 16 dd f2 6d 65 6e 75  |%....:......menu|
00004250  5f 69 74 65 6d 28 74 65  78 74 24 29 0d 12 de 33  |_item(text$)...3|
00004260  e7 20 74 65 78 74 24 3d  22 22 20 8c 20 6d 65 6e  |. text$="" . men|
00004270  75 70 74 72 25 21 2d 32  34 3d 28 6d 65 6e 75 70  |uptr%!-24=(menup|
00004280  74 72 25 21 2d 32 34 29  84 20 26 38 30 3a e1 0d  |tr%!-24). &80:..|
00004290  12 e8 32 e7 20 6d 65 6e  75 70 74 72 25 2b 32 34  |..2. menuptr%+24|
000042a0  20 3e 6d 65 6e 75 65 6e  64 25 20 8c 20 85 20 31  | >menuend% . . 1|
000042b0  2c 22 4d 65 6e 75 20 41  72 65 61 20 46 75 6c 6c  |,"Menu Area Full|
000042c0  22 0d 12 f2 11 ea 20 72  25 2c 66 6c 61 67 25 2c  |"..... r%,flag%,|
000042d0  56 25 0d 12 fc 0d 66 6c  61 67 25 3d 26 30 30 0d  |V%....flag%=&00.|
000042e0  13 06 12 72 25 3d a7 74  65 78 74 24 2c 22 3e 22  |...r%=.text$,">"|
000042f0  29 0d 13 10 0c e7 20 72  25 3e 30 20 8c 0d 13 1a  |)..... r%>0 ....|
00004300  19 73 75 62 70 74 72 25  3d a0 c1 74 65 78 74 24  |.subptr%=..text$|
00004310  2c 72 25 2b 31 29 0d 13  24 16 74 65 78 74 24 3d  |,r%+1)..$.text$=|
00004320  c0 74 65 78 74 24 2c 72  25 2d 31 29 0d 13 2e 05  |.text$,r%-1)....|
00004330  cc 0d 13 38 13 72 72 25  3d a7 74 65 78 74 24 2c  |...8.rr%=.text$,|
00004340  22 7d 22 29 0d 13 42 0d  e7 20 72 72 25 3e 30 20  |"}")..B.. rr%>0 |
00004350  8c 0d 13 4c 1a 73 75 62  70 74 72 25 3d a0 c1 74  |...L.subptr%=..t|
00004360  65 78 74 24 2c 72 72 25  2b 31 29 0d 13 56 16 74  |ext$,rr%+1)..V.t|
00004370  65 78 74 24 3d c0 74 65  78 74 2c 72 72 25 2d 31  |ext$=.text,rr%-1|
00004380  29 0d 13 60 0e 66 6c 61  67 25 2b 3d 26 30 38 0d  |)..`.flag%+=&08.|
00004390  13 6a 05 cc 0d 13 74 0e  73 75 62 70 74 72 25 3d  |.j....t.subptr%=|
000043a0  2d 31 0d 13 7e 05 cd 0d  13 88 05 cd 0d 13 92 37  |-1..~..........7|
000043b0  e7 20 c2 74 65 78 74 24  2c 31 29 3d 22 23 22 20  |. .text$,1)="#" |
000043c0  8c 20 74 65 78 74 24 3d  c0 74 65 78 74 24 2c a9  |. text$=.text$,.|
000043d0  74 65 78 74 24 2d 31 29  3a 66 6c 61 67 25 2b 3d  |text$-1):flag%+=|
000043e0  26 30 32 0d 13 9c 37 e7  20 c2 74 65 78 74 24 2c  |&02...7. .text$,|
000043f0  31 29 3d 22 5c 22 20 8c  20 74 65 78 74 24 3d c0  |1)="\" . text$=.|
00004400  74 65 78 74 24 2c a9 74  65 78 74 24 2d 31 29 3a  |text$,.text$-1):|
00004410  66 6c 61 67 25 2b 3d 26  30 31 0d 13 a6 14 72 72  |flag%+=&01....rr|
00004420  72 25 3d a7 74 65 78 74  24 2c 22 7c 22 29 0d 13  |r%=.text$,"|")..|
00004430  b0 15 72 72 72 72 25 3d  a7 74 65 78 74 24 2c 22  |..rrrr%=.text$,"|
00004440  a4 22 29 0d 13 ba 18 e7  20 72 72 72 25 3d 30 20  |.")..... rrr%=0 |
00004450  80 20 72 72 72 72 25 3d  30 20 8c 0d 13 c4 19 6d  |. rrrr%=0 .....m|
00004460  66 67 25 3d 30 3c 3c 32  38 3a 6d 62 67 25 3d 37  |fg%=0<<28:mbg%=7|
00004470  3c 3c 32 34 0d 13 ce 05  cc 0d 13 d8 0d c8 8e 20  |<<24........... |
00004480  72 72 72 25 20 ca 0d 13  e2 13 c9 20 30 3a 6d 66  |rrr% ...... 0:mf|
00004490  67 25 3d 30 20 3c 3c 32  38 0d 13 ec 05 7f 0d 13  |g%=0 <<28.......|
000044a0  f6 27 6d 66 67 25 3d 28  bb 28 c1 74 65 78 74 24  |.'mfg%=(.(.text$|
000044b0  2c 72 72 72 25 2b 31 2c  32 29 29 20 83 20 31 36  |,rrr%+1,2)) . 16|
000044c0  29 3c 3c 32 38 0d 14 00  27 74 65 78 74 24 3d c0  |)<<28...'text$=.|
000044d0  74 65 78 74 24 2c 72 72  72 25 2d 31 29 2b c1 74  |text$,rrr%-1)+.t|
000044e0  65 78 74 24 2c 72 72 72  25 2b 33 29 0d 14 0a 05  |ext$,rrr%+3)....|
000044f0  cb 0d 14 14 15 72 72 72  72 25 3d a7 74 65 78 74  |.....rrrr%=.text|
00004500  24 2c 22 a4 22 29 0d 14  1e 0e c8 8e 20 72 72 72  |$,".")...... rrr|
00004510  72 25 20 ca 0d 14 28 12  c9 20 30 3a 6d 62 67 25  |r% ...(.. 0:mbg%|
00004520  3d 37 3c 3c 32 34 0d 14  32 05 7f 0d 14 3c 28 6d  |=7<<24..2....<(m|
00004530  62 67 25 3d 28 bb 28 c1  74 65 78 74 24 2c 72 72  |bg%=(.(.text$,rr|
00004540  72 72 25 2b 31 2c 32 29  29 20 83 20 31 36 29 3c  |rr%+1,2)) . 16)<|
00004550  3c 32 34 0d 14 46 29 74  65 78 74 24 3d c0 74 65  |<24..F)text$=.te|
00004560  78 74 24 2c 72 72 72 72  25 2d 31 29 2b c1 74 65  |xt$,rrrr%-1)+.te|
00004570  78 74 24 2c 72 72 72 72  25 2b 33 29 0d 14 50 05  |xt$,rrrr%+3)..P.|
00004580  cb 0d 14 5a 05 cd 0d 14  64 14 6d 65 6e 75 70 74  |...Z....d.menupt|
00004590  72 25 21 30 3d 66 6c 61  67 25 0d 14 6e 16 6d 65  |r%!0=flag%..n.me|
000045a0  6e 75 70 74 72 25 21 34  3d 73 75 62 70 74 72 25  |nuptr%!4=subptr%|
000045b0  0d 14 78 25 6d 65 6e 75  70 74 72 25 21 38 3d 6d  |..x%menuptr%!8=m|
000045c0  66 67 25 2b 6d 62 67 25  2b 26 32 30 2b 62 6f 74  |fg%+mbg%+&20+bot|
000045d0  69 63 6f 6e 25 0d 14 82  4c e7 20 c2 74 65 78 74  |icon%...L. .text|
000045e0  24 2c 31 29 3d 22 2f 22  20 8c 20 74 65 78 74 24  |$,1)="/" . text$|
000045f0  3d c0 74 65 78 74 24 2c  a9 74 65 78 74 24 2d 31  |=.text$,.text$-1|
00004600  29 3a 6d 65 6e 75 70 74  72 25 21 38 3d 28 6d 65  |):menuptr%!8=(me|
00004610  6e 75 70 74 72 25 21 38  20 84 20 31 3c 3c 32 32  |nuptr%!8 . 1<<22|
00004620  29 0d 14 8c 15 e7 20 c0  74 65 78 74 24 2c 31 29  |)..... .text$,1)|
00004630  3d 22 24 22 20 8c 0d 14  96 12 21 6d 65 6e 75 70  |="$" .....!menup|
00004640  74 72 25 2b 3d 26 30 34  0d 14 a0 13 6d 65 6e 75  |tr%+=&04....menu|
00004650  70 74 72 25 21 2b 3d 26  31 30 38 0d 14 aa 12 72  |ptr%!+=&108....r|
00004660  25 3d a7 74 65 78 74 24  2c 22 28 22 29 0d 14 b4  |%=.text$,"(")...|
00004670  37 e7 20 72 25 3e 30 20  8c 20 4c 25 3d bb c1 74  |7. r%>0 . L%=..t|
00004680  65 78 74 24 2c 72 25 2b  31 29 3a 74 65 78 74 24  |ext$,r%+1):text$|
00004690  3d c0 74 65 78 74 24 2c  72 25 2d 31 29 8b 20 4c  |=.text$,r%-1). L|
000046a0  25 3d 31 32 0d 14 be 09  56 25 3d 2d 31 0d 14 c8  |%=12....V%=-1...|
000046b0  1a 6d 65 6e 75 70 74 72  25 21 31 32 3d a0 c1 74  |.menuptr%!12=..t|
000046c0  65 78 74 24 2c 32 29 0d  14 d2 12 6d 65 6e 75 70  |ext$,2)....menup|
000046d0  74 72 25 21 31 36 3d 2d  31 0d 14 dc 12 6d 65 6e  |tr%!16=-1....men|
000046e0  75 70 74 72 25 21 32 30  3d 4c 25 0d 14 e6 12 74  |uptr%!20=L%....t|
000046f0  65 78 74 24 3d c4 4c 25  2c 22 20 22 29 0d 14 f0  |ext$=.L%," ")...|
00004700  05 cc 0d 14 fa 12 e7 20  a9 74 65 78 74 24 3c 3d  |....... .text$<=|
00004710  31 32 20 8c 0d 15 04 18  24 28 6d 65 6e 75 70 74  |12 .....$(menupt|
00004720  72 25 2b 31 32 29 3d 74  65 78 74 24 0d 15 0e 05  |r%+12)=text$....|
00004730  cc 0d 15 18 25 52 25 3d  a4 77 6f 72 6b 73 70 61  |....%R%=.workspa|
00004740  63 65 28 a9 74 65 78 74  24 2b 31 29 3a 24 52 25  |ce(.text$+1):$R%|
00004750  3d 74 65 78 74 24 0d 15  22 36 6d 65 6e 75 70 74  |=text$.."6menupt|
00004760  72 25 21 31 32 3d 52 25  3a 6d 65 6e 75 70 74 72  |r%!12=R%:menuptr|
00004770  25 21 31 36 3d 2d 31 3a  6d 65 6e 75 70 74 72 25  |%!16=-1:menuptr%|
00004780  21 32 30 3d a9 74 65 78  74 24 2b 31 0d 15 2c 20  |!20=.text$+1.., |
00004790  6d 65 6e 75 70 74 72 25  21 38 3d 6d 65 6e 75 70  |menuptr%!8=menup|
000047a0  74 72 25 21 38 20 84 20  26 31 30 30 0d 15 36 05  |tr%!8 . &100..6.|
000047b0  cd 0d 15 40 05 cd 0d 15  4a 21 e7 20 a9 74 65 78  |...@....J!. .tex|
000047c0  74 24 3e 6d 61 78 78 25  20 8c 20 6d 61 78 78 25  |t$>maxx% . maxx%|
000047d0  3d a9 74 65 78 74 24 0d  15 54 10 6d 65 6e 75 70  |=.text$..T.menup|
000047e0  74 72 25 2b 3d 32 34 0d  15 5e 05 e1 0d 15 68 05  |tr%+=24..^....h.|
000047f0  3a 0d 15 72 0f dd a4 70  61 72 28 73 65 70 24 29  |:..r...par(sep$)|
00004800  0d 15 7c 25 72 31 25 3d  72 25 2b 31 3a 72 25 3d  |..|%r1%=r%+1:r%=|
00004810  a7 6d 65 6e 75 24 2b 73  65 70 24 2c 73 65 70 24  |.menu$+sep$,sep$|
00004820  2c 72 31 25 29 0d 15 86  17 3d c1 6d 65 6e 75 24  |,r1%)....=.menu$|
00004830  2c 72 31 25 2c 72 25 2d  72 31 25 29 0d 15 90 05  |,r1%,r%-r1%)....|
00004840  3a 0d 15 9a 13 dd a4 77  6f 72 6b 73 70 61 63 65  |:......workspace|
00004850  28 4c 25 29 0d 15 a4 33  e7 20 63 75 72 77 73 25  |(L%)...3. curws%|
00004860  2b 4c 25 3e 6d 61 78 77  73 25 20 8c 20 85 20 31  |+L%>maxws% . . 1|
00004870  2c 22 4e 6f 20 4d 6f 72  65 20 42 75 66 66 65 72  |,"No More Buffer|
00004880  20 53 70 61 63 65 22 0d  15 ae 19 63 75 72 77 73  | Space"....curws|
00004890  25 2b 3d 4c 25 3a 3d 63  75 72 77 73 25 2d 4c 25  |%+=L%:=curws%-L%|
000048a0  0d 15 b8 05 3a 0d 15 c2  11 dd f2 73 6f 72 74 5f  |....:......sort_|
000048b0  61 72 74 69 73 74 0d 15  cc 11 ea 20 61 25 2c 62  |artist..... a%,b|
000048c0  25 2c 74 65 6d 70 24 0d  15 d6 65 f2 75 70 64 61  |%,temp$...e.upda|
000048d0  74 65 5f 69 63 6f 6e 28  63 64 5f 77 61 69 74 25  |te_icon(cd_wait%|
000048e0  2c 30 2c 22 49 6e 69 74  69 61 6c 69 73 69 6e 67  |,0,"Initialising|
000048f0  20 53 6f 72 74 20 50 6c  65 61 73 65 20 57 61 69  | Sort Please Wai|
00004900  74 22 29 3a f2 6f 70 65  6e 28 63 64 5f 77 61 69  |t"):.open(cd_wai|
00004910  74 25 29 3a f2 72 65 64  72 61 77 5f 77 69 6e 64  |t%):.redraw_wind|
00004920  6f 77 28 63 64 5f 77 61  69 74 25 29 0d 15 e0 15  |ow(cd_wait%)....|
00004930  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 6e  |.. "Hourglass_On|
00004940  22 0d 15 ea 58 63 6f 75  6e 74 25 3d 30 3a 73 75  |"...Xcount%=0:su|
00004950  62 63 6f 75 6e 74 25 3d  30 3a 61 25 3d 31 3a f5  |bcount%=0:a%=1:.|
00004960  3a e3 20 62 25 3d 61 25  20 b8 20 6d 61 78 5f 72  |:. b%=a% . max_r|
00004970  65 63 6f 72 64 25 3a 63  6f 75 6e 74 25 2b 3d 31  |ecord%:count%+=1|
00004980  3a ed 3a 61 25 2b 3d 31  3a fd 20 61 25 3e 6d 61  |:.:a%+=1:. a%>ma|
00004990  78 5f 72 65 63 6f 72 64  25 0d 15 f4 67 f2 75 70  |x_record%...g.up|
000049a0  64 61 74 65 5f 69 63 6f  6e 28 63 64 5f 77 61 69  |date_icon(cd_wai|
000049b0  74 25 2c 30 2c 22 53 6f  72 74 69 6e 67 20 49 6e  |t%,0,"Sorting In|
000049c0  20 50 72 6f 67 72 65 73  73 20 50 6c 65 61 73 65  | Progress Please|
000049d0  20 57 61 69 74 22 29 3a  f2 6f 70 65 6e 28 63 64  | Wait"):.open(cd|
000049e0  5f 77 61 69 74 25 29 3a  f2 72 65 64 72 61 77 5f  |_wait%):.redraw_|
000049f0  77 69 6e 64 6f 77 28 63  64 5f 77 61 69 74 25 29  |window(cd_wait%)|
00004a00  0d 15 fe 10 61 25 3d 31  3a f5 3a 72 25 3d 61 25  |....a%=1:.:r%=a%|
00004a10  0d 16 08 1a 74 65 6d 70  24 3d c0 61 72 74 69 73  |....temp$=.artis|
00004a20  74 24 28 61 25 29 2c 33  30 29 0d 16 12 1c e7 20  |t$(a%),30)..... |
00004a30  74 65 6d 70 24 3c 3d 22  20 22 20 8c 20 74 65 6d  |temp$<=" " . tem|
00004a40  70 24 3d 22 7e 22 0d 16  1c 19 e3 20 62 25 3d 61  |p$="~"..... b%=a|
00004a50  25 20 b8 20 6d 61 78 5f  72 65 63 6f 72 64 25 0d  |% . max_record%.|
00004a60  16 26 10 73 75 62 63 6f  75 6e 74 25 2b 3d 31 0d  |.&.subcount%+=1.|
00004a70  16 30 24 e7 20 c0 61 72  74 69 73 74 24 28 62 25  |.0$. .artist$(b%|
00004a80  29 2c 33 30 29 3c 3d 22  20 22 20 8c 20 e5 20 8d  |),30)<=" " . . .|
00004a90  44 58 56 0d 16 3a 1e e7  20 c0 61 72 74 69 73 74  |DXV..:.. .artist|
00004aa0  24 28 62 25 29 2c 33 30  29 3c 74 65 6d 70 24 20  |$(b%),30)<temp$ |
00004ab0  8c 0d 16 44 20 74 65 6d  70 24 3d c0 61 72 74 69  |...D temp$=.arti|
00004ac0  73 74 24 28 62 25 29 2c  33 30 29 3a 72 25 3d 62  |st$(b%),30):r%=b|
00004ad0  25 0d 16 4e 05 cd 0d 16  58 08 ed 20 62 25 0d 16  |%..N....X.. b%..|
00004ae0  62 37 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |b7.. "Hourglass_|
00004af0  50 65 72 63 65 6e 74 61  67 65 22 2c a8 28 28 73  |Percentage",.((s|
00004b00  75 62 63 6f 75 6e 74 25  2f 63 6f 75 6e 74 25 29  |ubcount%/count%)|
00004b10  2a 31 30 30 29 0d 16 6c  17 f2 73 77 61 70 5f 66  |*100)..l..swap_f|
00004b20  69 65 6c 64 73 28 61 25  2c 72 25 29 0d 16 76 09  |ields(a%,r%)..v.|
00004b30  61 25 2b 3d 31 0d 16 80  14 fd 20 61 25 3e 6d 61  |a%+=1..... a%>ma|
00004b40  78 5f 72 65 63 6f 72 64  25 0d 16 8a 14 72 65 63  |x_record%....rec|
00004b50  6f 72 64 5f 6e 75 6d 62  65 72 25 3d 31 0d 16 94  |ord_number%=1...|
00004b60  0b f2 75 70 64 61 74 65  0d 16 9e 16 c8 99 20 22  |..update...... "|
00004b70  48 6f 75 72 67 6c 61 73  73 5f 4f 66 66 22 0d 16  |Hourglass_Off"..|
00004b80  a8 3e f2 63 6c 6f 73 65  28 63 64 5f 73 6f 72 74  |.>.close(cd_sort|
00004b90  25 29 3a c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |%):.. "Wimp_Crea|
00004ba0  74 65 4d 65 6e 75 22 2c  2c 2d 31 3a f2 63 6c 6f  |teMenu",,-1:.clo|
00004bb0  73 65 28 63 64 5f 77 61  69 74 25 29 0d 16 b2 1b  |se(cd_wait%)....|
00004bc0  f2 72 65 5f 74 69 74 6c  65 28 22 43 44 20 49 6e  |.re_title("CD In|
00004bd0  64 65 78 20 2a 22 29 0d  16 bc 0e 75 6e 73 61 76  |dex *")....unsav|
00004be0  65 64 25 3d b9 0d 16 c6  05 e1 0d 16 d0 05 3a 0d  |ed%=..........:.|
00004bf0  16 da 10 dd f2 73 6f 72  74 5f 74 69 74 6c 65 0d  |.....sort_title.|
00004c00  16 e4 11 ea 20 61 25 2c  62 25 2c 74 65 6d 70 24  |.... a%,b%,temp$|
00004c10  0d 16 ee 65 f2 75 70 64  61 74 65 5f 69 63 6f 6e  |...e.update_icon|
00004c20  28 63 64 5f 77 61 69 74  25 2c 30 2c 22 49 6e 69  |(cd_wait%,0,"Ini|
00004c30  74 69 61 6c 69 73 69 6e  67 20 53 6f 72 74 20 50  |tialising Sort P|
00004c40  6c 65 61 73 65 20 57 61  69 74 22 29 3a f2 6f 70  |lease Wait"):.op|
00004c50  65 6e 28 63 64 5f 77 61  69 74 25 29 3a f2 72 65  |en(cd_wait%):.re|
00004c60  64 72 61 77 5f 77 69 6e  64 6f 77 28 63 64 5f 77  |draw_window(cd_w|
00004c70  61 69 74 25 29 0d 16 f8  15 c8 99 20 22 48 6f 75  |ait%)...... "Hou|
00004c80  72 67 6c 61 73 73 5f 4f  6e 22 0d 17 02 58 63 6f  |rglass_On"...Xco|
00004c90  75 6e 74 25 3d 30 3a 73  75 62 63 6f 75 6e 74 25  |unt%=0:subcount%|
00004ca0  3d 30 3a 61 25 3d 31 3a  f5 3a e3 20 62 25 3d 61  |=0:a%=1:.:. b%=a|
00004cb0  25 20 b8 20 6d 61 78 5f  72 65 63 6f 72 64 25 3a  |% . max_record%:|
00004cc0  63 6f 75 6e 74 25 2b 3d  31 3a ed 3a 61 25 2b 3d  |count%+=1:.:a%+=|
00004cd0  31 3a fd 20 61 25 3e 6d  61 78 5f 72 65 63 6f 72  |1:. a%>max_recor|
00004ce0  64 25 0d 17 0c 67 f2 75  70 64 61 74 65 5f 69 63  |d%...g.update_ic|
00004cf0  6f 6e 28 63 64 5f 77 61  69 74 25 2c 30 2c 22 53  |on(cd_wait%,0,"S|
00004d00  6f 72 74 69 6e 67 20 49  6e 20 50 72 6f 67 72 65  |orting In Progre|
00004d10  73 73 20 50 6c 65 61 73  65 20 57 61 69 74 22 29  |ss Please Wait")|
00004d20  3a f2 6f 70 65 6e 28 63  64 5f 77 61 69 74 25 29  |:.open(cd_wait%)|
00004d30  3a f2 72 65 64 72 61 77  5f 77 69 6e 64 6f 77 28  |:.redraw_window(|
00004d40  63 64 5f 77 61 69 74 25  29 0d 17 16 10 61 25 3d  |cd_wait%)....a%=|
00004d50  31 3a f5 3a 72 25 3d 61  25 0d 17 20 19 74 65 6d  |1:.:r%=a%.. .tem|
00004d60  70 24 3d c0 74 69 74 6c  65 24 28 61 25 29 2c 33  |p$=.title$(a%),3|
00004d70  30 29 0d 17 2a 1c e7 20  74 65 6d 70 24 3c 3d 22  |0)..*.. temp$<="|
00004d80  20 22 20 8c 20 74 65 6d  70 24 3d 22 7e 22 0d 17  | " . temp$="~"..|
00004d90  34 19 e3 20 62 25 3d 61  25 20 b8 20 6d 61 78 5f  |4.. b%=a% . max_|
00004da0  72 65 63 6f 72 64 25 0d  17 3e 10 73 75 62 63 6f  |record%..>.subco|
00004db0  75 6e 74 25 2b 3d 31 0d  17 48 23 e7 20 c0 74 69  |unt%+=1..H#. .ti|
00004dc0  74 6c 65 24 28 62 25 29  2c 33 30 29 3c 3d 22 20  |tle$(b%),30)<=" |
00004dd0  22 20 8c 20 e5 20 8d 44  70 57 0d 17 52 1d e7 20  |" . . .DpW..R.. |
00004de0  c0 74 69 74 6c 65 24 28  62 25 29 2c 33 30 29 3c  |.title$(b%),30)<|
00004df0  74 65 6d 70 24 20 8c 0d  17 5c 1f 74 65 6d 70 24  |temp$ ...\.temp$|
00004e00  3d c0 74 69 74 6c 65 24  28 62 25 29 2c 33 30 29  |=.title$(b%),30)|
00004e10  3a 72 25 3d 62 25 0d 17  66 05 cd 0d 17 70 08 ed  |:r%=b%..f....p..|
00004e20  20 62 25 0d 17 7a 37 c8  99 20 22 48 6f 75 72 67  | b%..z7.. "Hourg|
00004e30  6c 61 73 73 5f 50 65 72  63 65 6e 74 61 67 65 22  |lass_Percentage"|
00004e40  2c a8 28 28 73 75 62 63  6f 75 6e 74 25 2f 63 6f  |,.((subcount%/co|
00004e50  75 6e 74 25 29 2a 31 30  30 29 0d 17 84 17 f2 73  |unt%)*100).....s|
00004e60  77 61 70 5f 66 69 65 6c  64 73 28 61 25 2c 72 25  |wap_fields(a%,r%|
00004e70  29 0d 17 8e 09 61 25 2b  3d 31 0d 17 98 14 fd 20  |)....a%+=1..... |
00004e80  61 25 3e 6d 61 78 5f 72  65 63 6f 72 64 25 0d 17  |a%>max_record%..|
00004e90  a2 14 72 65 63 6f 72 64  5f 6e 75 6d 62 65 72 25  |..record_number%|
00004ea0  3d 31 0d 17 ac 0b f2 75  70 64 61 74 65 0d 17 b6  |=1.....update...|
00004eb0  16 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
00004ec0  66 66 22 0d 17 c0 3e f2  63 6c 6f 73 65 28 63 64  |ff"...>.close(cd|
00004ed0  5f 73 6f 72 74 25 29 3a  c8 99 20 22 57 69 6d 70  |_sort%):.. "Wimp|
00004ee0  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 2d 31  |_CreateMenu",,-1|
00004ef0  3a f2 63 6c 6f 73 65 28  63 64 5f 77 61 69 74 25  |:.close(cd_wait%|
00004f00  29 0d 17 ca 1b f2 72 65  5f 74 69 74 6c 65 28 22  |).....re_title("|
00004f10  43 44 20 49 6e 64 65 78  20 2a 22 29 0d 17 d4 0e  |CD Index *")....|
00004f20  75 6e 73 61 76 65 64 25  3d b9 0d 17 de 05 e1 0d  |unsaved%=.......|
00004f30  17 e8 05 3a 0d 17 f2 18  dd f2 73 77 61 70 5f 66  |...:......swap_f|
00004f40  69 65 6c 64 73 28 61 25  2c 62 25 29 0d 17 fc cd  |ields(a%,b%)....|
00004f50  c8 94 20 61 72 74 69 73  74 24 28 61 25 29 2c 61  |.. artist$(a%),a|
00004f60  72 74 69 73 74 24 28 62  25 29 3a c8 94 20 74 69  |rtist$(b%):.. ti|
00004f70  74 6c 65 24 28 61 25 29  2c 74 69 74 6c 65 24 28  |tle$(a%),title$(|
00004f80  62 25 29 3a c8 94 20 66  6f 72 6d 61 74 24 28 61  |b%):.. format$(a|
00004f90  25 29 2c 66 6f 72 6d 61  74 24 28 62 25 29 3a c8  |%),format$(b%):.|
00004fa0  94 20 73 69 7a 65 24 28  61 25 29 2c 73 69 7a 65  |. size$(a%),size|
00004fb0  24 28 62 25 29 3a c8 94  20 74 72 61 63 6b 73 24  |$(b%):.. tracks$|
00004fc0  28 61 25 29 2c 74 72 61  63 6b 73 24 28 62 25 29  |(a%),tracks$(b%)|
00004fd0  3a c8 94 20 6c 65 6e 67  74 68 24 28 61 25 29 2c  |:.. length$(a%),|
00004fe0  6c 65 6e 67 74 68 24 28  62 25 29 3a c8 94 20 74  |length$(b%):.. t|
00004ff0  79 70 65 24 28 61 25 29  2c 74 79 70 65 24 28 62  |ype$(a%),type$(b|
00005000  25 29 3a c8 94 20 79 65  61 72 24 28 61 25 29 2c  |%):.. year$(a%),|
00005010  79 65 61 72 24 28 62 25  29 0d 18 06 9b c8 94 20  |year$(b%)...... |
00005020  74 31 24 28 61 25 29 2c  74 31 24 28 62 25 29 3a  |t1$(a%),t1$(b%):|
00005030  c8 94 20 74 32 24 28 61  25 29 2c 74 32 24 28 62  |.. t2$(a%),t2$(b|
00005040  25 29 3a c8 94 20 74 33  24 28 61 25 29 2c 74 33  |%):.. t3$(a%),t3|
00005050  24 28 62 25 29 3a c8 94  20 74 34 24 28 61 25 29  |$(b%):.. t4$(a%)|
00005060  2c 74 34 24 28 62 25 29  3a c8 94 20 74 35 24 28  |,t4$(b%):.. t5$(|
00005070  61 25 29 2c 74 35 24 28  62 25 29 3a c8 94 20 74  |a%),t5$(b%):.. t|
00005080  36 24 28 61 25 29 2c 74  36 24 28 62 25 29 3a c8  |6$(a%),t6$(b%):.|
00005090  94 20 74 37 24 28 61 25  29 2c 74 37 24 28 62 25  |. t7$(a%),t7$(b%|
000050a0  29 3a c8 94 20 74 38 24  28 61 25 29 2c 74 38 24  |):.. t8$(a%),t8$|
000050b0  28 62 25 29 0d 18 10 a9  c8 94 20 74 39 24 28 61  |(b%)...... t9$(a|
000050c0  25 29 2c 74 39 24 28 62  25 29 3a c8 94 20 74 31  |%),t9$(b%):.. t1|
000050d0  30 24 28 61 25 29 2c 74  31 30 24 28 62 25 29 3a  |0$(a%),t10$(b%):|
000050e0  c8 94 20 74 31 31 24 28  61 25 29 2c 74 31 31 24  |.. t11$(a%),t11$|
000050f0  28 62 25 29 3a c8 94 20  74 31 32 24 28 61 25 29  |(b%):.. t12$(a%)|
00005100  2c 74 31 32 24 28 62 25  29 3a c8 94 20 74 31 33  |,t12$(b%):.. t13|
00005110  24 28 61 25 29 2c 74 31  33 24 28 62 25 29 3a c8  |$(a%),t13$(b%):.|
00005120  94 20 74 31 34 24 28 61  25 29 2c 74 31 34 24 28  |. t14$(a%),t14$(|
00005130  62 25 29 3a c8 94 20 74  31 35 24 28 61 25 29 2c  |b%):.. t15$(a%),|
00005140  74 31 35 24 28 62 25 29  3a c8 94 20 74 31 36 24  |t15$(b%):.. t16$|
00005150  28 61 25 29 2c 74 31 36  24 28 62 25 29 0d 18 1a  |(a%),t16$(b%)...|
00005160  ab c8 94 20 74 31 37 24  28 61 25 29 2c 74 31 37  |... t17$(a%),t17|
00005170  24 28 62 25 29 3a c8 94  20 74 31 38 24 28 61 25  |$(b%):.. t18$(a%|
00005180  29 2c 74 31 38 24 28 62  25 29 3a c8 94 20 74 31  |),t18$(b%):.. t1|
00005190  39 24 28 61 25 29 2c 74  31 39 24 28 62 25 29 3a  |9$(a%),t19$(b%):|
000051a0  c8 94 20 74 32 30 24 28  61 25 29 2c 74 32 30 24  |.. t20$(a%),t20$|
000051b0  28 62 25 29 3a c8 94 20  74 32 31 24 28 61 25 29  |(b%):.. t21$(a%)|
000051c0  2c 74 32 31 24 28 62 25  29 3a c8 94 20 74 32 32  |,t21$(b%):.. t22|
000051d0  24 28 61 25 29 2c 74 32  32 24 28 62 25 29 3a c8  |$(a%),t22$(b%):.|
000051e0  94 20 74 32 33 24 28 61  25 29 2c 74 32 33 24 28  |. t23$(a%),t23$(|
000051f0  62 25 29 3a c8 94 20 74  32 34 24 28 61 25 29 2c  |b%):.. t24$(a%),|
00005200  74 32 34 24 28 62 25 29  0d 18 24 05 e1 0d 18 2e  |t24$(b%)..$.....|
00005210  05 3a 0d 18 38 19 dd f2  69 6e 69 74 69 61 6c 69  |.:..8...initiali|
00005220  73 65 5f 63 64 5f 69 6e  64 65 78 0d 18 42 11 f2  |se_cd_index..B..|
00005230  6c 6f 61 64 5f 63 68 6f  69 63 65 73 0d 18 4c 66  |load_choices..Lf|
00005240  de 20 61 72 74 69 73 74  24 28 35 35 30 29 2c 74  |. artist$(550),t|
00005250  69 74 6c 65 24 28 35 35  30 29 2c 66 6f 72 6d 61  |itle$(550),forma|
00005260  74 24 28 35 35 30 29 2c  73 69 7a 65 24 28 35 35  |t$(550),size$(55|
00005270  30 29 2c 74 72 61 63 6b  73 24 28 35 35 30 29 2c  |0),tracks$(550),|
00005280  6c 65 6e 67 74 68 24 28  35 35 30 29 2c 74 79 70  |length$(550),typ|
00005290  65 24 28 35 35 30 29 2c  79 65 61 72 24 28 35 35  |e$(550),year$(55|
000052a0  30 29 0d 18 56 74 de 20  74 31 24 28 35 35 30 29  |0)..Vt. t1$(550)|
000052b0  2c 74 32 24 28 35 35 30  29 2c 74 33 24 28 35 35  |,t2$(550),t3$(55|
000052c0  30 29 2c 74 34 24 28 35  35 30 29 2c 74 35 24 28  |0),t4$(550),t5$(|
000052d0  35 35 30 29 2c 74 36 24  28 35 35 30 29 2c 74 37  |550),t6$(550),t7|
000052e0  24 28 35 35 30 29 2c 74  38 24 28 35 35 30 29 2c  |$(550),t8$(550),|
000052f0  74 39 24 28 35 35 30 29  2c 74 31 30 24 28 35 35  |t9$(550),t10$(55|
00005300  30 29 2c 74 31 31 24 28  35 35 30 29 2c 74 31 32  |0),t11$(550),t12|
00005310  24 28 35 35 30 29 0d 18  60 89 de 20 74 31 33 24  |$(550)..`.. t13$|
00005320  28 35 35 30 29 2c 74 31  34 24 28 35 35 30 29 2c  |(550),t14$(550),|
00005330  74 31 35 24 28 35 35 30  29 2c 74 31 36 24 28 35  |t15$(550),t16$(5|
00005340  35 30 29 2c 74 31 37 24  28 35 35 30 29 2c 74 31  |50),t17$(550),t1|
00005350  38 24 28 35 35 30 29 2c  74 31 39 24 28 35 35 30  |8$(550),t19$(550|
00005360  29 2c 74 32 30 24 28 35  35 30 29 2c 74 32 31 24  |),t20$(550),t21$|
00005370  28 35 35 30 29 2c 74 32  32 24 28 35 35 30 29 2c  |(550),t22$(550),|
00005380  74 32 33 24 28 35 35 30  29 2c 74 32 34 24 28 35  |t23$(550),t24$(5|
00005390  35 30 29 2c 74 72 61 63  6b 24 28 35 35 30 29 0d  |50),track$(550).|
000053a0  18 6a 4a 72 65 63 6f 72  64 5f 6e 75 6d 62 65 72  |.jJrecord_number|
000053b0  25 3d 31 3a 73 6f 72 74  5f 73 65 6c 65 63 74 65  |%=1:sort_selecte|
000053c0  64 25 3d 30 3a 73 65 61  72 63 68 74 79 70 65 24  |d%=0:searchtype$|
000053d0  3d 22 41 72 74 69 73 74  22 3a 73 61 76 65 74 79  |="Artist":savety|
000053e0  70 65 24 3d 22 44 39 30  22 0d 18 74 49 66 69 6c  |pe$="D90"..tIfil|
000053f0  65 6e 61 6d 65 24 3d 22  43 44 49 6e 64 65 78 22  |ename$="CDIndex"|
00005400  3a 70 72 69 6e 74 65 72  24 3d 22 44 72 61 66 74  |:printer$="Draft|
00005410  22 3a 70 72 69 6e 74 77  68 61 74 24 3d 22 41 54  |":printwhat$="AT|
00005420  22 3a 73 65 61 72 63 68  73 74 72 69 6e 67 24 3d  |":searchstring$=|
00005430  22 22 0d 18 7e 05 e1 0d  18 88 05 3a 0d 18 92 0c  |""..~......:....|
00005440  dd f2 75 70 64 61 74 65  0d 18 9c 29 e7 20 72 65  |..update...). re|
00005450  63 6f 72 64 5f 6e 75 6d  62 65 72 25 3c 31 20 8c  |cord_number%<1 .|
00005460  20 72 65 63 6f 72 64 5f  6e 75 6d 62 65 72 25 3d  | record_number%=|
00005470  31 0d 18 a6 3d e7 20 72  65 63 6f 72 64 5f 6e 75  |1...=. record_nu|
00005480  6d 62 65 72 25 3e 6d 61  78 5f 72 65 63 6f 72 64  |mber%>max_record|
00005490  25 20 8c 20 72 65 63 6f  72 64 5f 6e 75 6d 62 65  |% . record_numbe|
000054a0  72 25 3d 6d 61 78 5f 72  65 63 6f 72 64 25 0d 18  |r%=max_record%..|
000054b0  b0 19 f2 66 69 6c 6c 28  72 65 63 6f 72 64 5f 6e  |...fill(record_n|
000054c0  75 6d 62 65 72 25 29 0d  18 ba 05 e1 0d 18 c4 05  |umber%).........|
000054d0  3a 0d 18 ce 1a dd f2 66  69 6c 6c 28 72 65 63 6f  |:......fill(reco|
000054e0  72 64 5f 6e 75 6d 62 65  72 25 29 0d 18 d8 2e f2  |rd_number%).....|
000054f0  75 70 64 61 74 65 5f 69  63 6f 6e 28 63 64 5f 70  |update_icon(cd_p|
00005500  61 6e 65 25 2c 36 2c c3  28 72 65 63 6f 72 64 5f  |ane%,6,.(record_|
00005510  6e 75 6d 62 65 72 25 29  29 0d 18 e2 35 f2 75 70  |number%))...5.up|
00005520  64 61 74 65 5f 69 63 6f  6e 28 63 64 5f 69 6e 64  |date_icon(cd_ind|
00005530  65 78 25 2c 39 2c 61 72  74 69 73 74 24 28 72 65  |ex%,9,artist$(re|
00005540  63 6f 72 64 5f 6e 75 6d  62 65 72 25 29 29 0d 18  |cord_number%))..|
00005550  ec 35 f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 63  |.5.update_icon(c|
00005560  64 5f 69 6e 64 65 78 25  2c 31 30 2c 74 69 74 6c  |d_index%,10,titl|
00005570  65 24 28 72 65 63 6f 72  64 5f 6e 75 6d 62 65 72  |e$(record_number|
00005580  25 29 29 0d 18 f6 36 f2  75 70 64 61 74 65 5f 69  |%))...6.update_i|
00005590  63 6f 6e 28 63 64 5f 69  6e 64 65 78 25 2c 31 31  |con(cd_index%,11|
000055a0  2c 66 6f 72 6d 61 74 24  28 72 65 63 6f 72 64 5f  |,format$(record_|
000055b0  6e 75 6d 62 65 72 25 29  29 0d 19 00 34 f2 75 70  |number%))...4.up|
000055c0  64 61 74 65 5f 69 63 6f  6e 28 63 64 5f 69 6e 64  |date_icon(cd_ind|
000055d0  65 78 25 2c 31 32 2c 73  69 7a 65 24 28 72 65 63  |ex%,12,size$(rec|
000055e0  6f 72 64 5f 6e 75 6d 62  65 72 25 29 29 0d 19 0a  |ord_number%))...|
000055f0  36 f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 63 64  |6.update_icon(cd|
00005600  5f 69 6e 64 65 78 25 2c  31 33 2c 74 72 61 63 6b  |_index%,13,track|
00005610  73 24 28 72 65 63 6f 72  64 5f 6e 75 6d 62 65 72  |s$(record_number|
00005620  25 29 29 0d 19 14 36 f2  75 70 64 61 74 65 5f 69  |%))...6.update_i|
00005630  63 6f 6e 28 63 64 5f 69  6e 64 65 78 25 2c 31 34  |con(cd_index%,14|
00005640  2c 6c 65 6e 67 74 68 24  28 72 65 63 6f 72 64 5f  |,length$(record_|
00005650  6e 75 6d 62 65 72 25 29  29 0d 19 1e 34 f2 75 70  |number%))...4.up|
00005660  64 61 74 65 5f 69 63 6f  6e 28 63 64 5f 69 6e 64  |date_icon(cd_ind|
00005670  65 78 25 2c 31 35 2c 74  79 70 65 24 28 72 65 63  |ex%,15,type$(rec|
00005680  6f 72 64 5f 6e 75 6d 62  65 72 25 29 29 0d 19 28  |ord_number%))..(|
00005690  34 f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 63 64  |4.update_icon(cd|
000056a0  5f 69 6e 64 65 78 25 2c  31 36 2c 79 65 61 72 24  |_index%,16,year$|
000056b0  28 72 65 63 6f 72 64 5f  6e 75 6d 62 65 72 25 29  |(record_number%)|
000056c0  29 0d 19 32 12 f2 75 70  64 61 74 65 5f 74 72 61  |)..2..update_tra|
000056d0  63 6b 73 0d 19 3c 1c f2  6d 6f 76 65 5f 63 61 72  |cks..<..move_car|
000056e0  65 74 28 63 64 5f 69 6e  64 65 78 25 2c 39 29 0d  |et(cd_index%,9).|
000056f0  19 46 30 f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |.F0.update_icon(|
00005700  63 64 5f 70 72 69 6e 74  25 2c 31 33 2c c3 28 72  |cd_print%,13,.(r|
00005710  65 63 6f 72 64 5f 6e 75  6d 62 65 72 25 29 29 0d  |ecord_number%)).|
00005720  19 50 05 e1 0d 19 5a 05  3a 0d 19 64 13 dd f2 6e  |.P....Z.:..d...n|
00005730  75 6d 62 65 72 5f 75 70  64 61 74 65 0d 19 6e 2b  |umber_update..n+|
00005740  72 65 63 6f 72 64 5f 6e  75 6d 62 65 72 25 3d bb  |record_number%=.|
00005750  28 a4 69 6e 64 69 72 65  63 74 28 63 64 5f 70 61  |(.indirect(cd_pa|
00005760  6e 65 25 2c 36 29 29 0d  19 78 29 e7 20 72 65 63  |ne%,6))..x). rec|
00005770  6f 72 64 5f 6e 75 6d 62  65 72 25 3c 31 20 8c 20  |ord_number%<1 . |
00005780  72 65 63 6f 72 64 5f 6e  75 6d 62 65 72 25 3d 31  |record_number%=1|
00005790  0d 19 82 3d e7 20 72 65  63 6f 72 64 5f 6e 75 6d  |...=. record_num|
000057a0  62 65 72 25 3e 6d 61 78  5f 72 65 63 6f 72 64 25  |ber%>max_record%|
000057b0  20 8c 20 72 65 63 6f 72  64 5f 6e 75 6d 62 65 72  | . record_number|
000057c0  25 3d 6d 61 78 5f 72 65  63 6f 72 64 25 0d 19 8c  |%=max_record%...|
000057d0  19 f2 66 69 6c 6c 28 72  65 63 6f 72 64 5f 6e 75  |..fill(record_nu|
000057e0  6d 62 65 72 25 29 0d 19  96 05 e1 0d 19 a0 05 3a  |mber%).........:|
000057f0  0d 19 aa 1a dd f2 72 65  5f 74 69 74 6c 65 28 6e  |......re_title(n|
00005800  65 77 5f 74 69 74 6c 65  24 29 0d 19 b4 11 21 71  |ew_title$)....!q|
00005810  25 3d 63 64 5f 69 6e 64  65 78 25 0d 19 be 1f c8  |%=cd_index%.....|
00005820  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
00005830  77 49 6e 66 6f 22 2c 2c  71 25 0d 19 c8 37 e7 20  |wInfo",,q%...7. |
00005840  28 28 71 25 21 36 30 29  20 80 20 26 31 30 30 29  |((q%!60) . &100)|
00005850  3d 30 20 8c 20 85 20 31  2c 22 54 69 74 6c 65 20  |=0 . . 1,"Title |
00005860  69 73 6e 27 74 20 69 6e  64 69 72 65 63 74 65 64  |isn't indirected|
00005870  22 0d 19 d2 17 24 28 71  25 21 37 36 29 3d 6e 65  |"....$(q%!76)=ne|
00005880  77 5f 74 69 74 6c 65 24  0d 19 dc 4f e7 20 28 28  |w_title$...O. ((|
00005890  71 25 21 33 32 29 20 80  20 28 31 3c 3c 31 36 29  |q%!32) . (1<<16)|
000058a0  29 3c 3e 30 20 c8 99 20  22 57 69 6d 70 5f 46 6f  |)<>0 .. "Wimp_Fo|
000058b0  72 63 65 52 65 64 72 61  77 22 2c 2d 31 2c 71 25  |rceRedraw",-1,q%|
000058c0  21 34 2c 71 25 21 31 36  2c 71 25 21 31 32 2c 71  |!4,q%!16,q%!12,q|
000058d0  25 21 31 36 2b 34 34 0d  19 e6 05 e1 0d 19 f0 05  |%!16+44.........|
000058e0  3a 0d 19 fa 0a dd f2 72  65 61 64 0d 1a 04 1b f2  |:......read.....|
000058f0  72 65 5f 74 69 74 6c 65  28 22 43 44 20 49 6e 64  |re_title("CD Ind|
00005900  65 78 20 2a 22 29 0d 1a  0e 0e 75 6e 73 61 76 65  |ex *")....unsave|
00005910  64 25 3d b9 0d 1a 18 2b  72 65 63 6f 72 64 5f 6e  |d%=....+record_n|
00005920  75 6d 62 65 72 25 3d bb  28 a4 69 6e 64 69 72 65  |umber%=.(.indire|
00005930  63 74 28 63 64 5f 70 61  6e 65 25 2c 36 29 29 0d  |ct(cd_pane%,6)).|
00005940  1a 22 32 61 72 74 69 73  74 24 28 72 65 63 6f 72  |."2artist$(recor|
00005950  64 5f 6e 75 6d 62 65 72  25 29 3d a4 69 6e 64 69  |d_number%)=.indi|
00005960  72 65 63 74 28 63 64 5f  69 6e 64 65 78 25 2c 39  |rect(cd_index%,9|
00005970  29 0d 1a 2c 32 74 69 74  6c 65 24 28 72 65 63 6f  |)..,2title$(reco|
00005980  72 64 5f 6e 75 6d 62 65  72 25 29 3d a4 69 6e 64  |rd_number%)=.ind|
00005990  69 72 65 63 74 28 63 64  5f 69 6e 64 65 78 25 2c  |irect(cd_index%,|
000059a0  31 30 29 0d 1a 36 33 66  6f 72 6d 61 74 24 28 72  |10)..63format$(r|
000059b0  65 63 6f 72 64 5f 6e 75  6d 62 65 72 25 29 3d a4  |ecord_number%)=.|
000059c0  69 6e 64 69 72 65 63 74  28 63 64 5f 69 6e 64 65  |indirect(cd_inde|
000059d0  78 25 2c 31 31 29 0d 1a  40 31 73 69 7a 65 24 28  |x%,11)..@1size$(|
000059e0  72 65 63 6f 72 64 5f 6e  75 6d 62 65 72 25 29 3d  |record_number%)=|
000059f0  a4 69 6e 64 69 72 65 63  74 28 63 64 5f 69 6e 64  |.indirect(cd_ind|
00005a00  65 78 25 2c 31 32 29 0d  1a 4a 33 74 72 61 63 6b  |ex%,12)..J3track|
00005a10  73 24 28 72 65 63 6f 72  64 5f 6e 75 6d 62 65 72  |s$(record_number|
00005a20  25 29 3d a4 69 6e 64 69  72 65 63 74 28 63 64 5f  |%)=.indirect(cd_|
00005a30  69 6e 64 65 78 25 2c 31  33 29 0d 1a 54 33 6c 65  |index%,13)..T3le|
00005a40  6e 67 74 68 24 28 72 65  63 6f 72 64 5f 6e 75 6d  |ngth$(record_num|
00005a50  62 65 72 25 29 3d a4 69  6e 64 69 72 65 63 74 28  |ber%)=.indirect(|
00005a60  63 64 5f 69 6e 64 65 78  25 2c 31 34 29 0d 1a 5e  |cd_index%,14)..^|
00005a70  31 74 79 70 65 24 28 72  65 63 6f 72 64 5f 6e 75  |1type$(record_nu|
00005a80  6d 62 65 72 25 29 3d a4  69 6e 64 69 72 65 63 74  |mber%)=.indirect|
00005a90  28 63 64 5f 69 6e 64 65  78 25 2c 31 35 29 0d 1a  |(cd_index%,15)..|
00005aa0  68 31 79 65 61 72 24 28  72 65 63 6f 72 64 5f 6e  |h1year$(record_n|
00005ab0  75 6d 62 65 72 25 29 3d  a4 69 6e 64 69 72 65 63  |umber%)=.indirec|
00005ac0  74 28 63 64 5f 69 6e 64  65 78 25 2c 31 36 29 0d  |t(cd_index%,16).|
00005ad0  1a 72 05 e1 0d 1a 7c 05  3a 0d 1a 86 18 dd a4 69  |.r....|.:......i|
00005ae0  6e 64 69 72 65 63 74 28  21 71 25 2c 71 25 21 34  |ndirect(!q%,q%!4|
00005af0  29 0d 1a 90 1e c8 99 20  22 57 69 6d 70 5f 47 65  |)...... "Wimp_Ge|
00005b00  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 25 0d  |tIconState",,q%.|
00005b10  1a 9a 0d 3d 24 28 71 25  21 32 38 29 0d 1a a4 05  |...=$(q%!28)....|
00005b20  3a 0d 1a ae 09 dd f2 6e  65 77 0d 1a b8 15 c8 99  |:......new......|
00005b30  20 22 48 6f 75 72 67 6c  61 73 73 5f 4f 6e 22 0d  | "Hourglass_On".|
00005b40  1a c2 34 f2 6f 70 65 6e  5f 61 6e 69 6d 61 74 69  |..4.open_animati|
00005b50  6f 6e 3a f2 6f 70 65 6e  28 63 64 5f 69 6e 64 65  |on:.open(cd_inde|
00005b60  78 25 29 3a f2 6f 70 65  6e 28 63 64 5f 70 61 6e  |x%):.open(cd_pan|
00005b70  65 25 29 0d 1a cc 18 e3  20 49 25 3d 31 20 b8 20  |e%)..... I%=1 . |
00005b80  6d 61 78 5f 72 65 63 6f  72 64 25 0d 1a d6 74 61  |max_record%...ta|
00005b90  72 74 69 73 74 24 28 49  25 29 3d 22 22 3a 74 69  |rtist$(I%)="":ti|
00005ba0  74 6c 65 24 28 49 25 29  3d 22 22 3a 66 6f 72 6d  |tle$(I%)="":form|
00005bb0  61 74 24 28 49 25 29 3d  22 22 3a 73 69 7a 65 24  |at$(I%)="":size$|
00005bc0  28 49 25 29 3d 22 22 3a  74 72 61 63 6b 73 24 28  |(I%)="":tracks$(|
00005bd0  49 25 29 3d 22 22 3a 6c  65 6e 67 74 68 24 28 49  |I%)="":length$(I|
00005be0  25 29 3d 22 22 3a 74 79  70 65 24 28 49 25 29 3d  |%)="":type$(I%)=|
00005bf0  22 22 3a 79 65 61 72 24  28 49 25 29 3d 22 22 0d  |"":year$(I%)="".|
00005c00  1a e0 08 ed 20 49 25 0d  1a ea 24 72 65 63 6f 72  |.... I%...$recor|
00005c10  64 5f 6e 75 6d 62 65 72  25 3d 31 3a 6d 61 78 5f  |d_number%=1:max_|
00005c20  72 65 63 6f 72 64 25 3d  31 30 30 0d 1a f4 2e f2  |record%=100.....|
00005c30  75 70 64 61 74 65 5f 69  63 6f 6e 28 63 64 5f 70  |update_icon(cd_p|
00005c40  61 6e 65 25 2c 36 2c c3  28 72 65 63 6f 72 64 5f  |ane%,6,.(record_|
00005c50  6e 75 6d 62 65 72 25 29  29 0d 1a fe 16 c8 99 20  |number%))...... |
00005c60  22 48 6f 75 72 67 6c 61  73 73 5f 4f 66 66 22 0d  |"Hourglass_Off".|
00005c70  1b 08 0e 75 6e 73 61 76  65 64 25 3d a3 0d 1b 12  |...unsaved%=....|
00005c80  05 e1 0d 1b 1c 05 3a 0d  1b 26 16 dd f2 6c 6f 61  |......:..&...loa|
00005c90  64 5f 61 63 6b 6e 6f 77  6c 65 64 67 65 0d 1b 30  |d_acknowledge..0|
00005ca0  0e 71 25 21 31 32 3d 71  25 21 38 0d 1b 3a 0b 71  |.q%!12=q%!8..:.q|
00005cb0  25 21 31 36 3d 34 0d 1b  44 24 c8 99 20 22 57 69  |%!16=4..D$.. "Wi|
00005cc0  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00005cd0  31 37 2c 71 25 2c 71 25  21 34 0d 1b 4e 05 e1 0d  |17,q%,q%!4..N...|
00005ce0  1b 58 05 3a 0d 1b 62 10  dd f2 6f 6b 5f 74 6f 5f  |.X.:..b...ok_to_|
00005cf0  6c 6f 61 64 0d 1b 6c 10  66 69 6c 65 6e 61 6d 65  |load..l.filename|
00005d00  24 3d 22 22 0d 1b 76 08  61 25 3d 30 0d 1b 80 11  |$=""..v.a%=0....|
00005d10  62 25 3d 71 25 3f 28 34  34 2b 61 25 29 0d 1b 8a  |b%=q%?(44+a%)...|
00005d20  0c c8 95 20 62 25 3c 3e  30 0d 1b 94 14 66 69 6c  |... b%<>0....fil|
00005d30  65 6e 61 6d 65 24 2b 3d  bd 28 62 25 29 0d 1b 9e  |ename$+=.(b%)...|
00005d40  09 61 25 2b 3d 31 0d 1b  a8 11 62 25 3d 71 25 3f  |.a%+=1....b%=q%?|
00005d50  28 34 34 2b 61 25 29 0d  1b b2 05 ce 0d 1b bc 19  |(44+a%).........|
00005d60  f2 6c 6f 61 64 5f 64 61  74 61 28 66 69 6c 65 6e  |.load_data(filen|
00005d70  61 6d 65 24 29 0d 1b c6  05 e1 0d 1b d0 05 3a 0d  |ame$).........:.|
00005d80  1b da 1a dd f2 6c 6f 61  64 5f 64 61 74 61 28 64  |.....load_data(d|
00005d90  61 74 61 66 69 6c 65 24  29 0d 1b e4 15 c8 99 20  |atafile$)...... |
00005da0  22 48 6f 75 72 67 6c 61  73 73 5f 4f 6e 22 0d 1b  |"Hourglass_On"..|
00005db0  ee 11 6c 6f 61 64 5f 65  72 72 6f 72 25 3d a3 0d  |..load_error%=..|
00005dc0  1b f8 14 43 48 25 3d 8e  28 64 61 74 61 66 69 6c  |...CH%=.(datafil|
00005dd0  65 24 29 0d 1c 02 15 e8  23 43 48 25 2c 6d 61 78  |e$).....#CH%,max|
00005de0  5f 72 65 63 6f 72 64 25  0d 1c 0c 10 f2 72 65 63  |_record%.....rec|
00005df0  6f 72 64 5f 6d 65 6e 75  0d 1c 16 15 e7 20 6c 6f  |ord_menu..... lo|
00005e00  61 64 5f 65 72 72 6f 72  25 3d a3 20 8c 0d 1c 20  |ad_error%=. ... |
00005e10  18 e3 20 49 25 3d 31 20  b8 20 6d 61 78 5f 72 65  |.. I%=1 . max_re|
00005e20  63 6f 72 64 25 0d 1c 2a  62 e8 23 43 48 25 2c 61  |cord%..*b.#CH%,a|
00005e30  72 74 69 73 74 24 28 49  25 29 2c 74 69 74 6c 65  |rtist$(I%),title|
00005e40  24 28 49 25 29 2c 66 6f  72 6d 61 74 24 28 49 25  |$(I%),format$(I%|
00005e50  29 2c 73 69 7a 65 24 28  49 25 29 2c 74 72 61 63  |),size$(I%),trac|
00005e60  6b 73 24 28 49 25 29 2c  6c 65 6e 67 74 68 24 28  |ks$(I%),length$(|
00005e70  49 25 29 2c 74 79 70 65  24 28 49 25 29 2c 79 65  |I%),type$(I%),ye|
00005e80  61 72 24 28 49 25 29 0d  1c 34 e3 e8 23 43 48 25  |ar$(I%)..4..#CH%|
00005e90  2c 74 31 24 28 49 25 29  2c 74 32 24 28 49 25 29  |,t1$(I%),t2$(I%)|
00005ea0  2c 74 33 24 28 49 25 29  2c 74 34 24 28 49 25 29  |,t3$(I%),t4$(I%)|
00005eb0  2c 74 35 24 28 49 25 29  2c 74 36 24 28 49 25 29  |,t5$(I%),t6$(I%)|
00005ec0  2c 74 37 24 28 49 25 29  2c 74 38 24 28 49 25 29  |,t7$(I%),t8$(I%)|
00005ed0  2c 74 39 24 28 49 25 29  2c 74 31 30 24 28 49 25  |,t9$(I%),t10$(I%|
00005ee0  29 2c 74 31 31 24 28 49  25 29 2c 74 31 32 24 28  |),t11$(I%),t12$(|
00005ef0  49 25 29 2c 74 31 33 24  28 49 25 29 2c 74 31 34  |I%),t13$(I%),t14|
00005f00  24 28 49 25 29 2c 74 31  35 24 28 49 25 29 2c 74  |$(I%),t15$(I%),t|
00005f10  31 36 24 28 49 25 29 2c  74 31 37 24 28 49 25 29  |16$(I%),t17$(I%)|
00005f20  2c 74 31 38 24 28 49 25  29 2c 74 31 39 24 28 49  |,t18$(I%),t19$(I|
00005f30  25 29 2c 74 32 30 24 28  49 25 29 2c 74 32 31 24  |%),t20$(I%),t21$|
00005f40  28 49 25 29 2c 74 32 32  24 28 49 25 29 2c 74 32  |(I%),t22$(I%),t2|
00005f50  33 24 28 49 25 29 2c 74  32 34 24 28 49 25 29 2c  |3$(I%),t24$(I%),|
00005f60  74 72 61 63 6b 24 28 49  25 29 0d 1c 3e 08 ed 20  |track$(I%)..>.. |
00005f70  49 25 0d 1c 48 09 d9 23  43 48 25 0d 1c 52 19 f2  |I%..H..#CH%..R..|
00005f80  72 65 5f 74 69 74 6c 65  28 22 43 44 20 49 6e 64  |re_title("CD Ind|
00005f90  65 78 22 29 0d 1c 5c 0e  75 6e 73 61 76 65 64 25  |ex")..\.unsaved%|
00005fa0  3d a3 0d 1c 66 34 f2 6f  70 65 6e 5f 61 6e 69 6d  |=...f4.open_anim|
00005fb0  61 74 69 6f 6e 3a f2 6f  70 65 6e 28 63 64 5f 69  |ation:.open(cd_i|
00005fc0  6e 64 65 78 25 29 3a f2  6f 70 65 6e 28 63 64 5f  |ndex%):.open(cd_|
00005fd0  70 61 6e 65 25 29 0d 1c  70 14 72 65 63 6f 72 64  |pane%)..p.record|
00005fe0  5f 6e 75 6d 62 65 72 25  3d 31 0d 1c 7a 0b f2 75  |_number%=1..z..u|
00005ff0  70 64 61 74 65 0d 1c 84  05 cc 0d 1c 8e 09 d9 23  |pdate..........#|
00006000  43 48 25 0d 1c 98 05 cd  0d 1c a2 16 c8 99 20 22  |CH%........... "|
00006010  48 6f 75 72 67 6c 61 73  73 5f 4f 66 66 22 0d 1c  |Hourglass_Off"..|
00006020  ac 0e f2 63 6c 6f 73 65  5f 61 6c 6c 0d 1c b6 05  |...close_all....|
00006030  e1 0d 1c c0 05 3a 0d 1c  ca 0d dd f2 64 72 61 67  |.....:......drag|
00006040  62 6f 78 0d 1c d4 12 78  25 3d 21 71 25 3a 79 25  |box....x%=!q%:y%|
00006050  3d 71 25 21 34 0d 1c de  41 71 25 21 34 3d 35 3a  |=q%!4...Aq%!4=5:|
00006060  71 25 21 38 3d 78 25 2d  34 30 3a 71 25 21 31 32  |q%!8=x%-40:q%!12|
00006070  3d 79 25 2d 34 30 3a 71  25 21 31 36 3d 78 25 2b  |=y%-40:q%!16=x%+|
00006080  34 30 3a 71 25 21 32 30  3d 79 25 2b 34 30 3a 71  |40:q%!20=y%+40:q|
00006090  25 21 32 34 3d 30 0d 1c  e8 27 71 25 21 32 38 3d  |%!24=0...'q%!28=|
000060a0  30 3a 71 25 21 33 32 3d  26 37 46 46 46 46 46 46  |0:q%!32=&7FFFFFF|
000060b0  46 3a 71 25 21 33 36 3d  71 25 21 33 32 0d 1c f2  |F:q%!36=q%!32...|
000060c0  19 c8 99 20 22 57 69 6d  70 5f 44 72 61 67 42 6f  |... "Wimp_DragBo|
000060d0  78 22 2c 2c 71 25 0d 1c  fc 05 e1 0d 1d 06 05 3a  |x",,q%.........:|
000060e0  0d 1d 10 0f dd f2 71 75  69 63 6b 73 61 76 65 0d  |......quicksave.|
000060f0  1d 1a 26 66 75 6c 6c 6e  61 6d 65 24 3d a4 69 6e  |..&fullname$=.in|
00006100  64 69 72 65 63 74 28 63  64 5f 73 61 76 65 62 6f  |direct(cd_savebo|
00006110  78 25 2c 31 29 0d 1d 24  33 e7 20 66 75 6c 6c 6e  |x%,1)..$3. fulln|
00006120  61 6d 65 24 3d 22 22 20  8c 20 85 20 31 2c 22 50  |ame$="" . . 1,"P|
00006130  6c 65 61 73 65 20 69 6e  73 65 72 74 20 61 20 66  |lease insert a f|
00006140  69 6c 65 6e 61 6d 65 22  0d 1d 2e 4c e7 20 a7 66  |ilename"...L. .f|
00006150  75 6c 6c 6e 61 6d 65 24  2c 22 2e 22 29 3d 30 20  |ullname$,".")=0 |
00006160  8c 20 85 20 31 2c 22 54  6f 20 73 61 76 65 2c 20  |. . 1,"To save, |
00006170  64 72 61 67 20 74 68 65  20 69 63 6f 6e 20 74 6f  |drag the icon to|
00006180  20 61 20 64 69 72 65 63  74 6f 72 79 20 76 69 65  | a directory vie|
00006190  77 65 72 22 0d 1d 38 19  f2 73 61 76 65 5f 64 61  |wer"..8..save_da|
000061a0  74 61 28 66 75 6c 6c 6e  61 6d 65 24 29 0d 1d 42  |ta(fullname$)..B|
000061b0  29 f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 63 64  |).update_icon(cd|
000061c0  5f 73 61 76 65 62 6f 78  25 2c 31 2c 66 75 6c 6c  |_savebox%,1,full|
000061d0  6e 61 6d 65 24 29 0d 1d  4c 2d f2 72 65 5f 74 69  |name$)..L-.re_ti|
000061e0  74 6c 65 28 22 43 44 20  49 6e 64 65 78 22 29 3a  |tle("CD Index"):|
000061f0  f2 63 6c 6f 73 65 28 63  64 5f 73 61 76 65 62 6f  |.close(cd_savebo|
00006200  78 25 29 0d 1d 56 0e 75  6e 73 61 76 65 64 25 3d  |x%)..V.unsaved%=|
00006210  a3 0d 1d 60 1c c8 99 20  22 57 69 6d 70 5f 43 72  |...`... "Wimp_Cr|
00006220  65 61 74 65 4d 65 6e 75  22 2c 2c 2d 31 0d 1d 6a  |eateMenu",,-1..j|
00006230  05 e1 0d 1d 74 05 3a 0d  1d 7e 1b dd f2 69 6e 69  |....t.:..~...ini|
00006240  74 69 61 74 65 5f 73 61  76 65 28 66 6e 61 6d 65  |tiate_save(fname|
00006250  24 29 0d 1d 88 20 c8 99  20 22 57 69 6d 70 5f 47  |$)... .. "Wimp_G|
00006260  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
00006270  71 25 0d 1d 92 17 e7 20  71 25 21 31 32 3d 63 64  |q%..... q%!12=cd|
00006280  5f 69 6e 64 65 78 25 20  e1 0d 1d 9c 17 71 25 21  |_index% .....q%!|
00006290  32 30 3d 71 25 21 31 32  3a 71 25 21 31 32 3d 30  |20=q%!12:q%!12=0|
000062a0  0d 1d a6 17 71 25 21 32  34 3d 71 25 21 31 36 3a  |....q%!24=q%!16:|
000062b0  71 25 21 31 36 3d 31 0d  1d b0 16 71 25 21 32 38  |q%!16=1....q%!28|
000062c0  3d 71 25 21 30 3a 71 25  21 30 3d 36 34 0d 1d ba  |=q%!0:q%!0=64...|
000062d0  19 71 25 21 33 32 3d 71  25 21 34 3a 71 25 21 33  |.q%!32=q%!4:q%!3|
000062e0  36 3d 38 30 39 36 0d 1d  c4 2f e7 20 73 61 76 65  |6=8096.../. save|
000062f0  74 79 70 65 24 3d 22 44  39 30 22 20 8c 20 71 25  |type$="D90" . q%|
00006300  21 34 30 3d 26 44 39 30  20 8b 20 71 25 21 34 30  |!40=&D90 . q%!40|
00006310  3d 26 46 46 46 0d 1d ce  21 24 28 71 25 2b 34 34  |=&FFF...!$(q%+44|
00006320  29 3d a4 67 65 74 5f 6c  65 61 66 28 66 6e 61 6d  |)=.get_leaf(fnam|
00006330  65 24 29 2b bd 30 0d 1d  d8 25 c8 99 20 22 57 69  |e$)+.0...%.. "Wi|
00006340  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00006350  31 37 2c 71 25 2c 71 25  21 32 30 0d 1d e2 05 e1  |17,q%,q%!20.....|
00006360  0d 1d ec 05 3a 0d 1d f6  15 dd a4 67 65 74 5f 6c  |....:......get_l|
00006370  65 61 66 28 6e 61 6d 65  24 29 0d 1e 00 12 c8 95  |eaf(name$)......|
00006380  20 a7 6e 61 6d 65 24 2c  22 2e 22 29 0d 1e 0a 1f  | .name$,".")....|
00006390  6e 61 6d 65 24 3d c1 6e  61 6d 65 24 2c a7 6e 61  |name$=.name$,.na|
000063a0  6d 65 24 2c 22 2e 22 29  2b 31 29 0d 1e 14 05 ce  |me$,".")+1).....|
000063b0  0d 1e 1e 0d 3d 6e 61 6d  65 24 2b bd 30 0d 1e 28  |....=name$+.0..(|
000063c0  05 3a 0d 1e 32 0e dd f2  64 61 74 61 73 61 76 65  |.:..2...datasave|
000063d0  0d 1e 3c 1c 66 75 6c 6c  6e 61 6d 65 24 3d a4 73  |..<.fullname$=.s|
000063e0  74 72 69 6e 67 28 71 25  2b 34 34 29 0d 1e 46 12  |tring(q%+44)..F.|
000063f0  c8 8e 20 73 61 76 65 74  79 70 65 24 20 ca 0d 1e  |.. savetype$ ...|
00006400  50 0b c9 20 22 44 39 30  22 0d 1e 5a 19 f2 73 61  |P.. "D90"..Z..sa|
00006410  76 65 5f 64 61 74 61 28  66 75 6c 6c 6e 61 6d 65  |ve_data(fullname|
00006420  24 29 0d 1e 64 16 71 25  21 31 32 3d 71 25 21 38  |$)..d.q%!12=q%!8|
00006430  3a 71 25 21 31 36 3d 33  0d 1e 6e 24 c8 99 20 22  |:q%!16=3..n$.. "|
00006440  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00006450  22 2c 31 37 2c 71 25 2c  71 25 21 34 0d 1e 78 25  |",17,q%,q%!4..x%|
00006460  ff 20 22 53 65 74 54 79  70 65 20 22 2b 66 75 6c  |. "SetType "+ful|
00006470  6c 6e 61 6d 65 24 2b 22  20 43 44 49 6e 64 65 78  |lname$+" CDIndex|
00006480  22 0d 1e 82 1c c8 99 20  22 57 69 6d 70 5f 43 72  |"...... "Wimp_Cr|
00006490  65 61 74 65 4d 65 6e 75  22 2c 2c 2d 31 0d 1e 8c  |eateMenu",,-1...|
000064a0  19 f2 72 65 5f 74 69 74  6c 65 28 22 43 44 20 49  |..re_title("CD I|
000064b0  6e 64 65 78 22 29 0d 1e  96 30 f2 63 6c 6f 73 65  |ndex")...0.close|
000064c0  28 63 64 5f 73 61 76 65  62 6f 78 25 29 3a f2 6d  |(cd_savebox%):.m|
000064d0  6f 76 65 5f 63 61 72 65  74 28 63 64 5f 69 6e 64  |ove_caret(cd_ind|
000064e0  65 78 25 2c 39 29 0d 1e  a0 0e 75 6e 73 61 76 65  |ex%,9)....unsave|
000064f0  64 25 3d a3 0d 1e aa 0b  c9 20 22 46 46 46 22 0d  |d%=...... "FFF".|
00006500  1e b4 19 f2 73 61 76 65  5f 74 65 78 74 28 66 75  |....save_text(fu|
00006510  6c 6c 6e 61 6d 65 24 29  0d 1e be 16 71 25 21 31  |llname$)....q%!1|
00006520  32 3d 71 25 21 38 3a 71  25 21 31 36 3d 33 0d 1e  |2=q%!8:q%!16=3..|
00006530  c8 24 c8 99 20 22 57 69  6d 70 5f 53 65 6e 64 4d  |.$.. "Wimp_SendM|
00006540  65 73 73 61 67 65 22 2c  31 37 2c 71 25 2c 71 25  |essage",17,q%,q%|
00006550  21 34 0d 1e d2 22 ff 20  22 53 65 74 54 79 70 65  |!4...". "SetType|
00006560  20 22 2b 66 75 6c 6c 6e  61 6d 65 24 2b 22 20 54  | "+fullname$+" T|
00006570  65 78 74 22 0d 1e dc 1c  c8 99 20 22 57 69 6d 70  |ext"...... "Wimp|
00006580  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 2d 31  |_CreateMenu",,-1|
00006590  0d 1e e6 30 f2 63 6c 6f  73 65 28 63 64 5f 73 61  |...0.close(cd_sa|
000065a0  76 65 62 6f 78 25 29 3a  f2 6d 6f 76 65 5f 63 61  |vebox%):.move_ca|
000065b0  72 65 74 28 63 64 5f 69  6e 64 65 78 25 2c 39 29  |ret(cd_index%,9)|
000065c0  0d 1e f0 05 cb 0d 1e fa  29 f2 75 70 64 61 74 65  |........).update|
000065d0  5f 69 63 6f 6e 28 63 64  5f 73 61 76 65 62 6f 78  |_icon(cd_savebox|
000065e0  25 2c 31 2c 66 75 6c 6c  6e 61 6d 65 24 29 0d 1f  |%,1,fullname$)..|
000065f0  04 05 e1 0d 1f 0e 05 3a  0d 1f 18 10 dd a4 73 74  |.......:......st|
00006600  72 69 6e 67 28 61 25 29  0d 1f 22 08 ea 20 62 24  |ring(a%)..".. b$|
00006610  0d 1f 2c 09 62 24 3d 22  22 0d 1f 36 0d c8 95 20  |..,.b$=""..6... |
00006620  3f 61 25 3c 3e 30 0d 1f  40 0c 62 24 2b 3d bd 3f  |?a%<>0..@.b$+=.?|
00006630  61 25 0d 1f 4a 09 61 25  2b 3d 31 0d 1f 54 05 ce  |a%..J.a%+=1..T..|
00006640  0d 1f 5e 07 3d 62 24 0d  1f 68 05 3a 0d 1f 72 35  |..^.=b$..h.:..r5|
00006650  dd a4 73 74 72 69 6e 67  30 28 61 25 29 3a ea 20  |..string0(a%):. |
00006660  61 24 3a c8 95 20 3f 61  25 3e 33 31 3a 61 24 2b  |a$:.. ?a%>31:a$+|
00006670  3d bd 3f 61 25 3a 61 25  2b 3d 31 3a ce 3a 3d 61  |=.?a%:a%+=1:.:=a|
00006680  24 0d 1f 7c 05 3a 0d 1f  86 1a dd f2 73 61 76 65  |$..|.:......save|
00006690  5f 64 61 74 61 28 66 75  6c 6c 6e 61 6d 65 24 29  |_data(fullname$)|
000066a0  0d 1f 90 15 c8 99 20 22  48 6f 75 72 67 6c 61 73  |...... "Hourglas|
000066b0  73 5f 4f 6e 22 0d 1f 9a  12 43 48 25 3d ae 66 75  |s_On"....CH%=.fu|
000066c0  6c 6c 6e 61 6d 65 24 0d  1f a4 15 f1 23 43 48 25  |llname$.....#CH%|
000066d0  2c 6d 61 78 5f 72 65 63  6f 72 64 25 0d 1f ae 18  |,max_record%....|
000066e0  e3 20 49 25 3d 31 20 b8  20 6d 61 78 5f 72 65 63  |. I%=1 . max_rec|
000066f0  6f 72 64 25 0d 1f b8 62  f1 23 43 48 25 2c 61 72  |ord%...b.#CH%,ar|
00006700  74 69 73 74 24 28 49 25  29 2c 74 69 74 6c 65 24  |tist$(I%),title$|
00006710  28 49 25 29 2c 66 6f 72  6d 61 74 24 28 49 25 29  |(I%),format$(I%)|
00006720  2c 73 69 7a 65 24 28 49  25 29 2c 74 72 61 63 6b  |,size$(I%),track|
00006730  73 24 28 49 25 29 2c 6c  65 6e 67 74 68 24 28 49  |s$(I%),length$(I|
00006740  25 29 2c 74 79 70 65 24  28 49 25 29 2c 79 65 61  |%),type$(I%),yea|
00006750  72 24 28 49 25 29 0d 1f  c2 e3 f1 23 43 48 25 2c  |r$(I%).....#CH%,|
00006760  74 31 24 28 49 25 29 2c  74 32 24 28 49 25 29 2c  |t1$(I%),t2$(I%),|
00006770  74 33 24 28 49 25 29 2c  74 34 24 28 49 25 29 2c  |t3$(I%),t4$(I%),|
00006780  74 35 24 28 49 25 29 2c  74 36 24 28 49 25 29 2c  |t5$(I%),t6$(I%),|
00006790  74 37 24 28 49 25 29 2c  74 38 24 28 49 25 29 2c  |t7$(I%),t8$(I%),|
000067a0  74 39 24 28 49 25 29 2c  74 31 30 24 28 49 25 29  |t9$(I%),t10$(I%)|
000067b0  2c 74 31 31 24 28 49 25  29 2c 74 31 32 24 28 49  |,t11$(I%),t12$(I|
000067c0  25 29 2c 74 31 33 24 28  49 25 29 2c 74 31 34 24  |%),t13$(I%),t14$|
000067d0  28 49 25 29 2c 74 31 35  24 28 49 25 29 2c 74 31  |(I%),t15$(I%),t1|
000067e0  36 24 28 49 25 29 2c 74  31 37 24 28 49 25 29 2c  |6$(I%),t17$(I%),|
000067f0  74 31 38 24 28 49 25 29  2c 74 31 39 24 28 49 25  |t18$(I%),t19$(I%|
00006800  29 2c 74 32 30 24 28 49  25 29 2c 74 32 31 24 28  |),t20$(I%),t21$(|
00006810  49 25 29 2c 74 32 32 24  28 49 25 29 2c 74 32 33  |I%),t22$(I%),t23|
00006820  24 28 49 25 29 2c 74 32  34 24 28 49 25 29 2c 74  |$(I%),t24$(I%),t|
00006830  72 61 63 6b 24 28 49 25  29 0d 1f cc 08 ed 20 49  |rack$(I%)..... I|
00006840  25 0d 1f d6 09 d9 23 43  48 25 0d 1f e0 16 c8 99  |%.....#CH%......|
00006850  20 22 48 6f 75 72 67 6c  61 73 73 5f 4f 66 66 22  | "Hourglass_Off"|
00006860  0d 1f ea 05 e1 0d 1f f4  05 3a 0d 1f fe 1a dd f2  |.........:......|
00006870  73 61 76 65 5f 74 65 78  74 28 66 75 6c 6c 6e 61  |save_text(fullna|
00006880  6d 65 24 29 0d 20 08 15  c8 99 20 22 48 6f 75 72  |me$). .... "Hour|
00006890  67 6c 61 73 73 5f 4f 6e  22 0d 20 12 12 43 48 25  |glass_On". ..CH%|
000068a0  3d ae 66 75 6c 6c 6e 61  6d 65 24 0d 20 1c 18 e3  |=.fullname$. ...|
000068b0  20 49 25 3d 31 20 b8 20  6d 61 78 5f 72 65 63 6f  | I%=1 . max_reco|
000068c0  72 64 25 0d 20 26 28 e7  20 61 72 74 69 73 74 24  |rd%. &(. artist$|
000068d0  28 49 25 29 3c 3e 22 22  20 84 20 74 69 74 6c 65  |(I%)<>"" . title|
000068e0  24 28 49 25 29 3c 3e 22  22 20 8c 0d 20 30 53 61  |$(I%)<>"" .. 0Sa|
000068f0  3d a9 28 74 69 74 6c 65  24 28 49 25 29 29 3a 62  |=.(title$(I%)):b|
00006900  3d a9 28 79 65 61 72 24  28 49 25 29 29 3a 63 3d  |=.(year$(I%)):c=|
00006910  a9 28 74 72 61 63 6b 73  24 28 49 25 29 29 3a 64  |.(tracks$(I%)):d|
00006920  3d a9 28 74 79 70 65 24  28 49 25 29 29 3a 65 3d  |=.(type$(I%)):e=|
00006930  a9 28 66 6f 72 6d 61 74  24 28 49 25 29 29 0d 20  |.(format$(I%)). |
00006940  3a 1a d5 23 43 48 25 2c  22 52 65 63 6f 72 64 3a  |:..#CH%,"Record:|
00006950  20 22 2b c3 28 49 25 29  0d 20 44 20 d5 23 43 48  | "+.(I%). D .#CH|
00006960  25 2c 22 41 72 74 69 73  74 3a 20 22 2b 61 72 74  |%,"Artist: "+art|
00006970  69 73 74 24 28 49 25 29  0d 20 4e 44 d5 23 43 48  |ist$(I%). ND.#CH|
00006980  25 2c 22 54 69 74 6c 65  3a 20 20 22 2b 74 69 74  |%,"Title:  "+tit|
00006990  6c 65 24 28 49 25 29 2b  c4 34 34 2d 61 2c 22 20  |le$(I%)+.44-a," |
000069a0  22 29 2b 22 54 72 61 63  6b 20 4c 69 73 74 3a 20  |")+"Track List: |
000069b0  22 2b 74 72 61 63 6b 24  28 49 25 29 0d 20 58 60  |"+track$(I%). X`|
000069c0  d5 23 43 48 25 2c 22 59  65 61 72 3a 20 22 2b 79  |.#CH%,"Year: "+y|
000069d0  65 61 72 24 28 49 25 29  2b c4 32 36 2d 62 2c 22  |ear$(I%)+.26-b,"|
000069e0  20 22 29 2b 22 54 72 61  63 6b 73 3a 20 22 2b 74  | ")+"Tracks: "+t|
000069f0  72 61 63 6b 73 24 28 49  25 29 2b c4 31 32 2d 63  |racks$(I%)+.12-c|
00006a00  2c 22 20 22 29 2b 22 4c  65 6e 67 74 68 3a 20 22  |," ")+"Length: "|
00006a10  2b 6c 65 6e 67 74 68 24  28 49 25 29 0d 20 62 62  |+length$(I%). bb|
00006a20  d5 23 43 48 25 2c 22 4d  75 73 69 63 20 54 79 70  |.#CH%,"Music Typ|
00006a30  65 3a 20 22 2b 74 79 70  65 24 28 49 25 29 2b c4  |e: "+type$(I%)+.|
00006a40  32 30 2d 64 2c 22 20 22  29 2b 22 46 6f 72 6d 61  |20-d," ")+"Forma|
00006a50  74 3a 20 22 2b 66 6f 72  6d 61 74 24 28 49 25 29  |t: "+format$(I%)|
00006a60  2b c4 31 32 2d 65 2c 22  20 22 29 2b 22 53 69 7a  |+.12-e," ")+"Siz|
00006a70  65 3a 20 22 2b 73 69 7a  65 24 28 49 25 29 0d 20  |e: "+size$(I%). |
00006a80  6c 05 cd 0d 20 76 0d d5  23 43 48 25 2c 22 20 22  |l... v..#CH%," "|
00006a90  0d 20 80 08 ed 20 49 25  0d 20 8a 09 d9 23 43 48  |. ... I%. ...#CH|
00006aa0  25 0d 20 94 16 c8 99 20  22 48 6f 75 72 67 6c 61  |%. .... "Hourgla|
00006ab0  73 73 5f 4f 66 66 22 0d  20 9e 05 e1 0d 20 a8 05  |ss_Off". .... ..|
00006ac0  3a 0d 20 b2 0b dd f2 70  72 69 6e 74 0d 20 bc 4f  |:. ....print. .O|
00006ad0  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 63 64 5f  |.update_icon(cd_|
00006ae0  77 61 69 74 25 2c 30 2c  22 50 72 69 6e 74 69 6e  |wait%,0,"Printin|
00006af0  67 20 49 6e 20 50 72 6f  67 72 65 73 73 20 50 6c  |g In Progress Pl|
00006b00  65 61 73 65 20 57 61 69  74 22 29 3a f2 6f 70 65  |ease Wait"):.ope|
00006b10  6e 28 63 64 5f 77 61 69  74 25 29 0d 20 c6 1c f2  |n(cd_wait%). ...|
00006b20  72 65 64 72 61 77 5f 77  69 6e 64 6f 77 28 63 64  |redraw_window(cd|
00006b30  5f 77 61 69 74 25 29 0d  20 d0 15 c8 99 20 22 48  |_wait%). .... "H|
00006b40  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 0d 20 da 25  |ourglass_On". .%|
00006b50  63 6f 70 69 65 73 25 3d  bb 28 a4 69 6e 64 69 72  |copies%=.(.indir|
00006b60  65 63 74 28 63 64 5f 70  72 69 6e 74 25 2c 36 29  |ect(cd_print%,6)|
00006b70  29 0d 20 e4 75 e7 20 63  6f 70 69 65 73 25 3d 30  |). .u. copies%=0|
00006b80  20 8c 20 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  | . .. "Hourglass|
00006b90  5f 4f 66 66 22 3a c8 99  20 22 57 69 6d 70 5f 43  |_Off":.. "Wimp_C|
00006ba0  72 65 61 74 65 4d 65 6e  75 22 2c 2c 2d 31 3a 85  |reateMenu",,-1:.|
00006bb0  20 31 2c 22 53 65 74 20  6e 75 6d 62 65 72 20 6f  | 1,"Set number o|
00006bc0  66 20 63 6f 70 69 65 73  20 74 6f 20 61 20 76 61  |f copies to a va|
00006bd0  6c 75 65 20 67 72 65 61  74 65 72 20 74 68 61 6e  |lue greater than|
00006be0  20 30 2e 22 3a e1 0d 20  ee 11 c8 8e 20 70 72 69  | 0.":.. .... pri|
00006bf0  6e 74 65 72 24 20 ca 0d  20 f8 0d c9 20 22 44 72  |nter$ .. ... "Dr|
00006c00  61 66 74 22 0d 21 02 20  63 6f 70 79 3d 30 3a ef  |aft".!. copy=0:.|
00006c10  20 32 3a ef 20 31 2c 32  37 2c 31 2c 31 32 30 2c  | 2:. 1,27,1,120,|
00006c20  31 2c 34 38 0d 21 0c 05  f5 0d 21 16 13 c8 8e 20  |1,48.!....!.... |
00006c30  70 72 69 6e 74 77 68 61  74 24 20 ca 0d 21 20 16  |printwhat$ ..! .|
00006c40  c9 20 22 41 54 22 3a f2  70 72 69 6e 74 5f 68 61  |. "AT":.print_ha|
00006c50  6c 66 0d 21 2a 19 c9 20  22 43 61 73 73 22 3a f2  |lf.!*.. "Cass":.|
00006c60  70 72 69 6e 74 5f 69 6e  6c 61 79 0d 21 34 18 c9  |print_inlay.!4..|
00006c70  20 22 41 6c 6c 22 3a f2  70 72 69 6e 74 5f 74 61  | "All":.print_ta|
00006c80  62 6c 65 0d 21 3e 05 cb  0d 21 48 1a 63 6f 70 79  |ble.!>...!H.copy|
00006c90  2b 3d 31 3a fd 20 63 6f  70 79 3d 63 6f 70 69 65  |+=1:. copy=copie|
00006ca0  73 25 0d 21 52 07 ef 20  33 0d 21 5c 0b c9 20 22  |s%.!R.. 3.!\.. "|
00006cb0  4e 4c 51 22 0d 21 66 20  63 6f 70 79 3d 30 3a ef  |NLQ".!f copy=0:.|
00006cc0  20 32 3a ef 20 31 2c 32  37 2c 31 2c 31 32 30 2c  | 2:. 1,27,1,120,|
00006cd0  31 2c 34 39 0d 21 70 05  f5 0d 21 7a 13 c8 8e 20  |1,49.!p...!z... |
00006ce0  70 72 69 6e 74 77 68 61  74 24 20 ca 0d 21 84 16  |printwhat$ ..!..|
00006cf0  c9 20 22 41 54 22 3a f2  70 72 69 6e 74 5f 68 61  |. "AT":.print_ha|
00006d00  6c 66 0d 21 8e 19 c9 20  22 43 61 73 73 22 3a f2  |lf.!... "Cass":.|
00006d10  70 72 69 6e 74 5f 69 6e  6c 61 79 0d 21 98 18 c9  |print_inlay.!...|
00006d20  20 22 41 6c 6c 22 3a f2  70 72 69 6e 74 5f 74 61  | "All":.print_ta|
00006d30  62 6c 65 0d 21 a2 05 cb  0d 21 ac 1a 63 6f 70 79  |ble.!....!..copy|
00006d40  2b 3d 31 3a fd 20 63 6f  70 79 3d 63 6f 70 69 65  |+=1:. copy=copie|
00006d50  73 25 0d 21 b6 15 ef 20  31 2c 32 37 2c 31 2c 31  |s%.!... 1,27,1,1|
00006d60  32 30 2c 31 2c 34 38 0d  21 c0 07 ef 20 33 0d 21  |20,1,48.!... 3.!|
00006d70  ca 05 cb 0d 21 d4 16 c8  99 20 22 48 6f 75 72 67  |....!.... "Hourg|
00006d80  6c 61 73 73 5f 4f 66 66  22 0d 21 de 1c c8 99 20  |lass_Off".!.... |
00006d90  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00006da0  22 2c 2c 2d 31 0d 21 e8  26 f2 63 6c 6f 73 65 28  |",,-1.!.&.close(|
00006db0  63 64 5f 77 61 69 74 25  29 3a f2 63 6c 6f 73 65  |cd_wait%):.close|
00006dc0  28 63 64 5f 70 72 69 6e  74 25 29 0d 21 f2 05 e1  |(cd_print%).!...|
00006dd0  0d 21 fc 05 3a 0d 22 06  10 dd f2 70 72 69 6e 74  |.!..:."....print|
00006de0  5f 68 61 6c 66 0d 22 10  14 6e 65 65 64 73 70 72  |_half."..needspr|
00006df0  69 6e 74 69 6e 67 25 3d  30 0d 22 1a 18 e3 20 49  |inting%=0."... I|
00006e00  25 3d 31 20 b8 20 6d 61  78 5f 72 65 63 6f 72 64  |%=1 . max_record|
00006e10  25 0d 22 24 3a e7 20 61  72 74 69 73 74 24 28 49  |%."$:. artist$(I|
00006e20  25 29 3c 3e 22 22 20 84  20 74 69 74 6c 65 24 28  |%)<>"" . title$(|
00006e30  49 25 29 3c 3e 22 22 20  8c 20 6e 65 65 64 73 70  |I%)<>"" . needsp|
00006e40  72 69 6e 74 69 6e 67 25  2b 3d 31 0d 22 2e 08 ed  |rinting%+=1."...|
00006e50  20 49 25 0d 22 38 60 73  75 62 69 74 65 6d 25 3d  | I%."8`subitem%=|
00006e60  30 3a 70 72 69 6e 74 65  64 25 3d 30 3a e7 20 6e  |0:printed%=0:. n|
00006e70  65 65 64 73 70 72 69 6e  74 69 6e 67 25 3d 30 20  |eedsprinting%=0 |
00006e80  8c 20 ef 20 33 3a f2 63  6c 6f 73 65 28 63 64 5f  |. . 3:.close(cd_|
00006e90  77 61 69 74 25 29 3a 85  20 31 2c 22 4e 6f 20 72  |wait%):. 1,"No r|
00006ea0  65 63 6f 72 64 73 20 74  6f 20 70 72 69 6e 74 2e  |ecords to print.|
00006eb0  22 3a e1 0d 22 42 18 e3  20 49 25 3d 31 20 b8 20  |":.."B.. I%=1 . |
00006ec0  6d 61 78 5f 72 65 63 6f  72 64 25 0d 22 4c 28 e7  |max_record%."L(.|
00006ed0  20 61 72 74 69 73 74 24  28 49 25 29 3c 3e 22 22  | artist$(I%)<>""|
00006ee0  20 84 20 74 69 74 6c 65  24 28 49 25 29 3c 3e 22  | . title$(I%)<>"|
00006ef0  22 20 8c 0d 22 56 1d f1  3a 73 75 62 69 74 65 6d  |" .."V..:subitem|
00006f00  25 2b 3d 31 3a 70 72 69  6e 74 65 64 25 2b 3d 31  |%+=1:printed%+=1|
00006f10  0d 22 60 0f ef 20 31 2c  32 37 2c 31 2c 37 31 0d  |."`.. 1,27,1,71.|
00006f20  22 6a 1a f1 20 8a 30 29  3b 22 52 65 63 6f 72 64  |"j.. .0);"Record|
00006f30  3a 20 22 2b c3 28 49 25  29 0d 22 74 20 f1 20 8a  |: "+.(I%)."t . .|
00006f40  30 29 3b 22 41 72 74 69  73 74 3a 20 22 2b 61 72  |0);"Artist: "+ar|
00006f50  74 69 73 74 24 28 49 25  29 0d 22 7e 1e f1 20 8a  |tist$(I%)."~.. .|
00006f60  30 29 3b 22 54 69 74 6c  65 3a 20 22 2b 74 69 74  |0);"Title: "+tit|
00006f70  6c 65 24 28 49 25 29 0d  22 88 0f ef 20 31 2c 32  |le$(I%)."... 1,2|
00006f80  37 2c 31 2c 37 32 0d 22  92 05 cd 0d 22 9c 25 e7  |7,1,72."....".%.|
00006f90  20 73 75 62 69 74 65 6d  25 3d 31 36 20 8c 20 73  | subitem%=16 . s|
00006fa0  75 62 69 74 65 6d 25 3d  30 3a ef 20 31 2c 31 32  |ubitem%=0:. 1,12|
00006fb0  0d 22 a6 07 ef 20 33 0d  22 b0 68 e7 20 a8 28 28  |."... 3.".h. .((|
00006fc0  70 72 69 6e 74 65 64 25  2f 6e 65 65 64 73 70 72  |printed%/needspr|
00006fd0  69 6e 74 69 6e 67 25 29  2a 31 30 30 29 3c 3e 31  |inting%)*100)<>1|
00006fe0  30 30 20 8c 20 c8 99 20  22 48 6f 75 72 67 6c 61  |00 . .. "Hourgla|
00006ff0  73 73 5f 50 65 72 63 65  6e 74 61 67 65 22 2c a8  |ss_Percentage",.|
00007000  28 28 70 72 69 6e 74 65  64 25 2f 6e 65 65 64 73  |((printed%/needs|
00007010  70 72 69 6e 74 69 6e 67  25 29 2a 31 30 30 29 0d  |printing%)*100).|
00007020  22 ba 07 ef 20 32 0d 22  c4 08 ed 20 49 25 0d 22  |"... 2."... I%."|
00007030  ce 0a ef 20 31 2c 31 32  0d 22 d8 05 e1 0d 22 e2  |... 1,12."....".|
00007040  05 3a 0d 22 ec 11 dd f2  70 72 69 6e 74 5f 69 6e  |.:."....print_in|
00007050  6c 61 79 0d 22 f6 2c 69  6e 6c 61 79 5f 6e 75 6d  |lay.".,inlay_num|
00007060  62 65 72 25 3d bb 28 a4  69 6e 64 69 72 65 63 74  |ber%=.(.indirect|
00007070  28 63 64 5f 70 72 69 6e  74 25 2c 31 33 29 29 0d  |(cd_print%,13)).|
00007080  23 00 0a ef 20 31 2c 31  35 0d 23 0a 0f ef 20 31  |#... 1,15.#... 1|
00007090  2c 32 37 2c 31 2c 37 31  0d 23 14 2c f1 20 8a 30  |,27,1,71.#.,. .0|
000070a0  29 3b 22 20 41 72 74 69  73 74 3a 20 22 2b 61 72  |);" Artist: "+ar|
000070b0  74 69 73 74 24 28 69 6e  6c 61 79 5f 6e 75 6d 62  |tist$(inlay_numb|
000070c0  65 72 25 29 0d 23 1e 2b  f1 20 8a 30 29 3b 22 20  |er%).#.+. .0);" |
000070d0  54 69 74 6c 65 3a 20 20  22 2b 74 69 74 6c 65 24  |Title:  "+title$|
000070e0  28 69 6e 6c 61 79 5f 6e  75 6d 62 65 72 25 29 0d  |(inlay_number%).|
000070f0  23 28 0f ef 20 31 2c 32  37 2c 31 2c 37 32 0d 23  |#(.. 1,27,1,72.#|
00007100  32 12 f1 20 8a 30 29 3b  c4 36 37 2c 22 3d 22 29  |2.. .0);.67,"=")|
00007110  0d 23 3c 45 f1 20 8a 31  29 3b c0 74 31 24 28 69  |.#<E. .1);.t1$(i|
00007120  6e 6c 61 79 5f 6e 75 6d  62 65 72 25 29 2c 33 31  |nlay_number%),31|
00007130  29 3b 8a 33 32 29 3b 22  20 7c 20 22 3b c0 74 31  |);.32);" | ";.t1|
00007140  33 24 28 69 6e 6c 61 79  5f 6e 75 6d 62 65 72 25  |3$(inlay_number%|
00007150  29 2c 33 31 29 0d 23 46  45 f1 20 8a 31 29 3b c0  |),31).#FE. .1);.|
00007160  74 32 24 28 69 6e 6c 61  79 5f 6e 75 6d 62 65 72  |t2$(inlay_number|
00007170  25 29 2c 33 31 29 3b 8a  33 32 29 3b 22 20 7c 20  |%),31);.32);" | |
00007180  22 3b c0 74 31 34 24 28  69 6e 6c 61 79 5f 6e 75  |";.t14$(inlay_nu|
00007190  6d 62 65 72 25 29 2c 33  31 29 0d 23 50 45 f1 20  |mber%),31).#PE. |
000071a0  8a 31 29 3b c0 74 33 24  28 69 6e 6c 61 79 5f 6e  |.1);.t3$(inlay_n|
000071b0  75 6d 62 65 72 25 29 2c  33 31 29 3b 8a 33 32 29  |umber%),31);.32)|
000071c0  3b 22 20 7c 20 22 3b c0  74 31 35 24 28 69 6e 6c  |;" | ";.t15$(inl|
000071d0  61 79 5f 6e 75 6d 62 65  72 25 29 2c 33 31 29 0d  |ay_number%),31).|
000071e0  23 5a 45 f1 20 8a 31 29  3b c0 74 34 24 28 69 6e  |#ZE. .1);.t4$(in|
000071f0  6c 61 79 5f 6e 75 6d 62  65 72 25 29 2c 33 31 29  |lay_number%),31)|
00007200  3b 8a 33 32 29 3b 22 20  7c 20 22 3b c0 74 31 36  |;.32);" | ";.t16|
00007210  24 28 69 6e 6c 61 79 5f  6e 75 6d 62 65 72 25 29  |$(inlay_number%)|
00007220  2c 33 31 29 0d 23 64 45  f1 20 8a 31 29 3b c0 74  |,31).#dE. .1);.t|
00007230  35 24 28 69 6e 6c 61 79  5f 6e 75 6d 62 65 72 25  |5$(inlay_number%|
00007240  29 2c 33 31 29 3b 8a 33  32 29 3b 22 20 7c 20 22  |),31);.32);" | "|
00007250  3b c0 74 31 37 24 28 69  6e 6c 61 79 5f 6e 75 6d  |;.t17$(inlay_num|
00007260  62 65 72 25 29 2c 33 31  29 0d 23 6e 45 f1 20 8a  |ber%),31).#nE. .|
00007270  31 29 3b c0 74 36 24 28  69 6e 6c 61 79 5f 6e 75  |1);.t6$(inlay_nu|
00007280  6d 62 65 72 25 29 2c 33  31 29 3b 8a 33 32 29 3b  |mber%),31);.32);|
00007290  22 20 7c 20 22 3b c0 74  31 38 24 28 69 6e 6c 61  |" | ";.t18$(inla|
000072a0  79 5f 6e 75 6d 62 65 72  25 29 2c 33 31 29 0d 23  |y_number%),31).#|
000072b0  78 45 f1 20 8a 31 29 3b  c0 74 37 24 28 69 6e 6c  |xE. .1);.t7$(inl|
000072c0  61 79 5f 6e 75 6d 62 65  72 25 29 2c 33 31 29 3b  |ay_number%),31);|
000072d0  8a 33 32 29 3b 22 20 7c  20 22 3b c0 74 31 39 24  |.32);" | ";.t19$|
000072e0  28 69 6e 6c 61 79 5f 6e  75 6d 62 65 72 25 29 2c  |(inlay_number%),|
000072f0  33 31 29 0d 23 82 45 f1  20 8a 31 29 3b c0 74 38  |31).#.E. .1);.t8|
00007300  24 28 69 6e 6c 61 79 5f  6e 75 6d 62 65 72 25 29  |$(inlay_number%)|
00007310  2c 33 31 29 3b 8a 33 32  29 3b 22 20 7c 20 22 3b  |,31);.32);" | ";|
00007320  c0 74 32 30 24 28 69 6e  6c 61 79 5f 6e 75 6d 62  |.t20$(inlay_numb|
00007330  65 72 25 29 2c 33 31 29  0d 23 8c 45 f1 20 8a 31  |er%),31).#.E. .1|
00007340  29 3b c0 74 39 24 28 69  6e 6c 61 79 5f 6e 75 6d  |);.t9$(inlay_num|
00007350  62 65 72 25 29 2c 33 31  29 3b 8a 33 32 29 3b 22  |ber%),31);.32);"|
00007360  20 7c 20 22 3b c0 74 32  31 24 28 69 6e 6c 61 79  | | ";.t21$(inlay|
00007370  5f 6e 75 6d 62 65 72 25  29 2c 33 31 29 0d 23 96  |_number%),31).#.|
00007380  46 f1 20 8a 31 29 3b c0  74 31 30 24 28 69 6e 6c  |F. .1);.t10$(inl|
00007390  61 79 5f 6e 75 6d 62 65  72 25 29 2c 33 31 29 3b  |ay_number%),31);|
000073a0  8a 33 32 29 3b 22 20 7c  20 22 3b c0 74 32 32 24  |.32);" | ";.t22$|
000073b0  28 69 6e 6c 61 79 5f 6e  75 6d 62 65 72 25 29 2c  |(inlay_number%),|
000073c0  33 31 29 0d 23 a0 46 f1  20 8a 31 29 3b c0 74 31  |31).#.F. .1);.t1|
000073d0  31 24 28 69 6e 6c 61 79  5f 6e 75 6d 62 65 72 25  |1$(inlay_number%|
000073e0  29 2c 33 31 29 3b 8a 33  32 29 3b 22 20 7c 20 22  |),31);.32);" | "|
000073f0  3b c0 74 32 33 24 28 69  6e 6c 61 79 5f 6e 75 6d  |;.t23$(inlay_num|
00007400  62 65 72 25 29 2c 33 31  29 0d 23 aa 46 f1 20 8a  |ber%),31).#.F. .|
00007410  31 29 3b c0 74 31 32 24  28 69 6e 6c 61 79 5f 6e  |1);.t12$(inlay_n|
00007420  75 6d 62 65 72 25 29 2c  33 31 29 3b 8a 33 32 29  |umber%),31);.32)|
00007430  3b 22 20 7c 20 22 3b c0  74 32 34 24 28 69 6e 6c  |;" | ";.t24$(inl|
00007440  61 79 5f 6e 75 6d 62 65  72 25 29 2c 33 31 29 0d  |ay_number%),31).|
00007450  23 b4 12 f1 20 8a 30 29  3b c4 36 37 2c 22 3d 22  |#... .0);.67,"="|
00007460  29 0d 23 be 0f ef 20 31  2c 32 37 2c 31 2c 37 31  |).#... 1,27,1,71|
00007470  0d 23 c8 2c f1 20 8a 30  29 3b 22 20 41 72 74 69  |.#.,. .0);" Arti|
00007480  73 74 3a 20 22 2b 61 72  74 69 73 74 24 28 69 6e  |st: "+artist$(in|
00007490  6c 61 79 5f 6e 75 6d 62  65 72 25 29 0d 23 d2 2b  |lay_number%).#.+|
000074a0  f1 20 8a 30 29 3b 22 20  54 69 74 6c 65 3a 20 20  |. .0);" Title:  |
000074b0  22 2b 74 69 74 6c 65 24  28 69 6e 6c 61 79 5f 6e  |"+title$(inlay_n|
000074c0  75 6d 62 65 72 25 29 0d  23 dc 0f ef 20 31 2c 32  |umber%).#... 1,2|
000074d0  37 2c 31 2c 37 32 0d 23  e6 12 f1 20 8a 30 29 3b  |7,1,72.#... .0);|
000074e0  c4 36 37 2c 22 3d 22 29  0d 23 f0 1b e3 20 58 3d  |.67,"=").#... X=|
000074f0  31 20 b8 20 33 3a f1 20  8a 33 32 29 3b 22 20 7c  |1 . 3:. .32);" ||
00007500  22 3a ed 0d 23 fa 12 f1  20 8a 30 29 3b c4 36 37  |":..#... .0);.67|
00007510  2c 22 3d 22 29 0d 24 04  0a ef 20 31 2c 31 38 0d  |,"=").$... 1,18.|
00007520  24 0e 0a ef 20 31 2c 31  32 0d 24 18 05 e1 0d 24  |$... 1,12.$....$|
00007530  22 05 3a 0d 24 2c 11 dd  f2 70 72 69 6e 74 5f 74  |".:.$,...print_t|
00007540  61 62 6c 65 0d 24 36 14  6e 65 65 64 73 70 72 69  |able.$6.needspri|
00007550  6e 74 69 6e 67 25 3d 30  0d 24 40 18 e3 20 49 25  |nting%=0.$@.. I%|
00007560  3d 31 20 b8 20 6d 61 78  5f 72 65 63 6f 72 64 25  |=1 . max_record%|
00007570  0d 24 4a 3a e7 20 61 72  74 69 73 74 24 28 49 25  |.$J:. artist$(I%|
00007580  29 3c 3e 22 22 20 84 20  74 69 74 6c 65 24 28 49  |)<>"" . title$(I|
00007590  25 29 3c 3e 22 22 20 8c  20 6e 65 65 64 73 70 72  |%)<>"" . needspr|
000075a0  69 6e 74 69 6e 67 25 2b  3d 31 0d 24 54 08 ed 20  |inting%+=1.$T.. |
000075b0  49 25 0d 24 5e 60 73 75  62 69 74 65 6d 25 3d 30  |I%.$^`subitem%=0|
000075c0  3a 70 72 69 6e 74 65 64  25 3d 30 3a e7 20 6e 65  |:printed%=0:. ne|
000075d0  65 64 73 70 72 69 6e 74  69 6e 67 25 3d 30 20 8c  |edsprinting%=0 .|
000075e0  20 85 20 ef 20 33 3a f2  63 6c 6f 73 65 28 63 64  | . . 3:.close(cd|
000075f0  5f 77 61 69 74 25 29 3a  31 2c 22 4e 6f 20 72 65  |_wait%):1,"No re|
00007600  63 6f 72 64 73 20 74 6f  20 70 72 69 6e 74 2e 22  |cords to print."|
00007610  3a e1 0d 24 68 18 e3 20  49 25 3d 31 20 b8 20 6d  |:..$h.. I%=1 . m|
00007620  61 78 5f 72 65 63 6f 72  64 25 0d 24 72 28 e7 20  |ax_record%.$r(. |
00007630  61 72 74 69 73 74 24 28  49 25 29 3c 3e 22 22 20  |artist$(I%)<>"" |
00007640  84 20 74 69 74 6c 65 24  28 49 25 29 3c 3e 22 22  |. title$(I%)<>""|
00007650  20 8c 0d 24 7c 1d f1 3a  73 75 62 69 74 65 6d 25  | ..$|..:subitem%|
00007660  2b 3d 31 3a 70 72 69 6e  74 65 64 25 2b 3d 31 0d  |+=1:printed%+=1.|
00007670  24 86 0f ef 20 31 2c 32  37 2c 31 2c 37 31 0d 24  |$... 1,27,1,71.$|
00007680  90 1a f1 20 8a 30 29 3b  22 52 65 63 6f 72 64 3a  |... .0);"Record:|
00007690  20 22 2b c3 28 49 25 29  0d 24 9a 20 f1 20 8a 30  | "+.(I%).$. . .0|
000076a0  29 3b 22 41 72 74 69 73  74 3a 20 22 2b 61 72 74  |);"Artist: "+art|
000076b0  69 73 74 24 28 49 25 29  0d 24 a4 1f f1 20 8a 30  |ist$(I%).$... .0|
000076c0  29 3b 22 54 69 74 6c 65  3a 20 22 2b 74 69 74 6c  |);"Title: "+titl|
000076d0  65 24 28 49 25 29 3b 0d  24 ae 0f ef 20 31 2c 32  |e$(I%);.$... 1,2|
000076e0  37 2c 31 2c 37 32 0d 24  b8 24 f1 20 8a 34 35 29  |7,1,72.$.$. .45)|
000076f0  3b 22 54 72 61 63 6b 20  4c 69 73 74 3a 20 22 2b  |;"Track List: "+|
00007700  74 72 61 63 6b 24 28 49  25 29 0d 24 c2 54 f1 20  |track$(I%).$.T. |
00007710  8a 30 29 3b 22 59 65 61  72 3a 20 22 3b 79 65 61  |.0);"Year: ";yea|
00007720  72 24 28 49 25 29 3b 8a  33 30 29 3b 22 54 72 61  |r$(I%);.30);"Tra|
00007730  63 6b 73 3a 20 22 3b 74  72 61 63 6b 73 24 28 49  |cks: ";tracks$(I|
00007740  25 29 3b 8a 34 35 29 3b  22 4c 65 6e 67 74 68 3a  |%);.45);"Length:|
00007750  20 22 3b 6c 65 6e 67 74  68 24 28 49 25 29 0d 24  | ";length$(I%).$|
00007760  cc 56 f1 20 8a 30 29 3b  22 4d 75 73 69 63 20 54  |.V. .0);"Music T|
00007770  79 70 65 3a 20 22 3b 74  79 70 65 24 28 49 25 29  |ype: ";type$(I%)|
00007780  3b 8a 33 30 29 3b 22 46  6f 72 6d 61 74 3a 20 22  |;.30);"Format: "|
00007790  3b 66 6f 72 6d 61 74 24  28 49 25 29 3b 8a 34 35  |;format$(I%);.45|
000077a0  29 3b 22 53 69 7a 65 3a  20 22 3b 73 69 7a 65 24  |);"Size: ";size$|
000077b0  28 49 25 29 0d 24 d6 05  cd 0d 24 e0 25 e7 20 73  |(I%).$....$.%. s|
000077c0  75 62 69 74 65 6d 25 3d  31 30 20 8c 20 73 75 62  |ubitem%=10 . sub|
000077d0  69 74 65 6d 25 3d 30 3a  ef 20 31 2c 31 32 0d 24  |item%=0:. 1,12.$|
000077e0  ea 07 ef 20 33 0d 24 f4  68 e7 20 a8 28 28 70 72  |... 3.$.h. .((pr|
000077f0  69 6e 74 65 64 25 2f 6e  65 65 64 73 70 72 69 6e  |inted%/needsprin|
00007800  74 69 6e 67 25 29 2a 31  30 30 29 3c 3e 31 30 30  |ting%)*100)<>100|
00007810  20 8c 20 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  | . .. "Hourglass|
00007820  5f 50 65 72 63 65 6e 74  61 67 65 22 2c a8 28 28  |_Percentage",.((|
00007830  70 72 69 6e 74 65 64 25  2f 6e 65 65 64 73 70 72  |printed%/needspr|
00007840  69 6e 74 69 6e 67 25 29  2a 31 30 30 29 0d 24 fe  |inting%)*100).$.|
00007850  07 ef 20 32 0d 25 08 08  ed 20 49 25 0d 25 12 0a  |.. 2.%... I%.%..|
00007860  ef 20 31 2c 31 32 0d 25  1c 05 e1 0d 25 26 05 3a  |. 1,12.%....%&.:|
00007870  0d 25 30 1c dd f2 72 65  64 72 61 77 5f 77 69 6e  |.%0...redraw_win|
00007880  64 6f 77 28 77 69 6e 64  6f 77 25 29 0d 25 3a 0f  |dow(window%).%:.|
00007890  21 71 25 3d 77 69 6e 64  6f 77 25 0d 25 44 26 c8  |!q%=window%.%D&.|
000078a0  99 20 22 57 69 6d 70 5f  52 65 64 72 61 77 57 69  |. "Wimp_RedrawWi|
000078b0  6e 64 6f 77 22 2c 2c 71  25 20 b8 20 6d 6f 72 65  |ndow",,q% . more|
000078c0  25 0d 25 4e 0c c8 95 20  6d 6f 72 65 25 0d 25 58  |%.%N... more%.%X|
000078d0  1e c8 99 20 22 57 69 6d  70 5f 42 6f 72 64 65 72  |... "Wimp_Border|
000078e0  57 69 6e 64 6f 77 22 2c  2c 71 25 0d 25 62 26 c8  |Window",,q%.%b&.|
000078f0  99 20 22 57 69 6d 70 5f  47 65 74 52 65 63 74 61  |. "Wimp_GetRecta|
00007900  6e 67 6c 65 22 2c 2c 71  25 20 b8 20 6d 6f 72 65  |ngle",,q% . more|
00007910  25 0d 25 6c 05 ce 0d 25  76 05 e1 0d 25 80 05 3a  |%.%l...%v...%..:|
00007920  0d 25 8a 11 dd f2 72 65  64 72 61 77 5f 69 63 6f  |.%....redraw_ico|
00007930  6e 0d 25 94 14 c8 8e 20  77 69 6e 64 6f 77 74 79  |n.%.... windowty|
00007940  70 65 24 20 ca 0d 25 9e  0a c9 20 22 33 44 22 0d  |pe$ ..%... "3D".|
00007950  25 a8 1c c8 99 20 22 57  69 6d 70 5f 42 6f 72 64  |%.... "Wimp_Bord|
00007960  65 72 49 63 6f 6e 22 2c  2c 71 25 0d 25 b2 0a 71  |erIcon",,q%.%..q|
00007970  25 21 38 3d 30 0d 25 bc  1c c8 99 20 22 57 69 6d  |%!8=0.%.... "Wim|
00007980  70 5f 42 6f 72 64 65 72  49 63 6f 6e 22 2c 2c 71  |p_BorderIcon",,q|
00007990  25 0d 25 c6 0d c9 20 22  50 6c 61 69 6e 22 0d 25  |%.%... "Plain".%|
000079a0  d0 05 cb 0d 25 da 05 e1  0d 25 e4 05 3a 0d 25 ee  |....%....%..:.%.|
000079b0  0e dd f2 61 6e 6e 6f 75  6e 63 65 0d 25 f8 19 c8  |...announce.%...|
000079c0  97 20 c8 93 20 32 37 34  2c 33 32 30 2c 37 33 30  |. .. 274,320,730|
000079d0  2c 34 36 30 0d 26 02 15  c8 99 20 22 48 6f 75 72  |,460.&.... "Hour|
000079e0  67 6c 61 73 73 5f 4f 6e  22 0d 26 0c 17 f2 6f 70  |glass_On".&...op|
000079f0  65 6e 28 63 64 5f 61 6e  6e 6f 75 6e 63 65 25 29  |en(cd_announce%)|
00007a00  0d 26 16 25 f2 75 70 64  61 74 65 5f 69 63 6f 6e  |.&.%.update_icon|
00007a10  28 63 64 5f 61 6e 6e 6f  75 6e 63 65 25 2c 34 2c  |(cd_announce%,4,|
00007a20  76 65 72 24 29 0d 26 20  20 f2 72 65 64 72 61 77  |ver$).&  .redraw|
00007a30  5f 77 69 6e 64 6f 77 28  63 64 5f 61 6e 6e 6f 75  |_window(cd_annou|
00007a40  6e 63 65 25 29 0d 26 2a  0f f2 6d 61 6b 65 5f 6d  |nce%).&*..make_m|
00007a50  65 6e 75 73 0d 26 34 11  f2 69 6e 73 74 61 6c 6c  |enus.&4..install|
00007a60  5f 69 63 6f 6e 0d 26 3e  08 f2 6e 65 77 0d 26 48  |_icon.&>..new.&H|
00007a70  11 f2 63 6c 65 61 72 5f  73 65 61 72 63 68 0d 26  |..clear_search.&|
00007a80  52 17 e3 20 77 61 69 74  25 3d 31 20 b8 20 32 35  |R.. wait%=1 . 25|
00007a90  3a c8 96 3a ed 0d 26 5c  18 f2 63 6c 6f 73 65 28  |:..:..&\..close(|
00007aa0  63 64 5f 61 6e 6e 6f 75  6e 63 65 25 29 0d 26 66  |cd_announce%).&f|
00007ab0  15 c8 97 20 c8 93 20 30  2c 30 2c 63 78 25 2c 63  |... .. 0,0,cx%,c|
00007ac0  79 25 0d 26 70 16 c8 99  20 22 48 6f 75 72 67 6c  |y%.&p... "Hourgl|
00007ad0  61 73 73 5f 4f 66 66 22  0d 26 7a 05 e1 0d 26 84  |ass_Off".&z...&.|
00007ae0  05 3a 0d 26 8e 1e dd f2  74 69 63 6b 28 6d 65 6e  |.:.&....tick(men|
00007af0  75 25 2c 69 74 65 6d 25  2c 74 6f 74 61 6c 25 29  |u%,item%,total%)|
00007b00  0d 26 98 27 e3 20 69 25  3d 30 20 b8 20 74 6f 74  |.&.'. i%=0 . tot|
00007b10  61 6c 25 3a f2 6e 6f 74  69 63 6b 28 6d 65 6e 75  |al%:.notick(menu|
00007b20  25 2c 69 25 29 3a ed 0d  26 a2 0e ea 20 61 64 64  |%,i%):..&... add|
00007b30  72 65 73 73 25 0d 26 ac  20 61 64 64 72 65 73 73  |ress%.&. address|
00007b40  25 3d 6d 65 6e 75 25 2b  32 38 2b 28 32 34 2a 69  |%=menu%+28+(24*i|
00007b50  74 65 6d 25 29 0d 26 b6  1f 61 64 64 72 65 73 73  |tem%).&..address|
00007b60  25 21 30 3d 61 64 64 72  65 73 73 25 21 30 20 82  |%!0=address%!0 .|
00007b70  20 26 30 31 0d 26 c0 05  e1 0d 26 ca 05 3a 0d 26  | &01.&....&..:.&|
00007b80  d4 19 dd f2 6e 6f 74 69  63 6b 28 6d 65 6e 75 25  |....notick(menu%|
00007b90  2c 69 74 65 6d 25 29 0d  26 de 0e ea 20 61 64 64  |,item%).&... add|
00007ba0  72 65 73 73 25 0d 26 e8  20 61 64 64 72 65 73 73  |ress%.&. address|
00007bb0  25 3d 6d 65 6e 75 25 2b  32 38 2b 28 32 34 2a 69  |%=menu%+28+(24*i|
00007bc0  74 65 6d 25 29 0d 26 f2  21 61 64 64 72 65 73 73  |tem%).&.!address|
00007bd0  25 21 30 3d 61 64 64 72  65 73 73 25 21 30 20 80  |%!0=address%!0 .|
00007be0  20 ac 20 26 30 31 0d 26  fc 05 e1 0d 27 06 05 3a  | . &01.&....'..:|
00007bf0  0d 27 10 12 dd f2 73 61  76 65 5f 63 68 6f 69 63  |.'....save_choic|
00007c00  65 73 0d 27 1a 2a 63 68  6f 69 63 65 73 25 3d ae  |es.'.*choices%=.|
00007c10  22 3c 43 44 24 44 69 72  3e 2e 52 65 73 6f 75 72  |"<CD$Dir>.Resour|
00007c20  63 65 73 2e 43 68 6f 69  63 65 73 22 0d 27 24 1d  |ces.Choices".'$.|
00007c30  f1 23 63 68 6f 69 63 65  73 25 2c 6e 65 77 77 69  |.#choices%,newwi|
00007c40  6e 64 6f 77 74 79 70 65  24 0d 27 2e 1a f1 23 63  |ndowtype$.'...#c|
00007c50  68 6f 69 63 65 73 25 2c  6d 61 78 5f 72 65 63 6f  |hoices%,max_reco|
00007c60  72 64 25 0d 27 38 16 f1  23 63 68 6f 69 63 65 73  |rd%.'8..#choices|
00007c70  25 2c 61 6e 69 6d 6f 6e  24 0d 27 42 0e d9 23 63  |%,animon$.'B..#c|
00007c80  68 6f 69 63 65 73 25 0d  27 4c 05 e1 0d 27 56 05  |hoices%.'L...'V.|
00007c90  3a 0d 27 60 12 dd f2 6c  6f 61 64 5f 63 68 6f 69  |:.'`...load_choi|
00007ca0  63 65 73 0d 27 6a 2a 63  68 6f 69 63 65 73 25 3d  |ces.'j*choices%=|
00007cb0  8e 22 3c 43 44 24 44 69  72 3e 2e 52 65 73 6f 75  |."<CD$Dir>.Resou|
00007cc0  72 63 65 73 2e 43 68 6f  69 63 65 73 22 0d 27 74  |rces.Choices".'t|
00007cd0  13 e7 20 63 68 6f 69 63  65 73 25 3c 3e 30 20 8c  |.. choices%<>0 .|
00007ce0  0d 27 7e 1a e8 23 63 68  6f 69 63 65 73 25 2c 77  |.'~..#choices%,w|
00007cf0  69 6e 64 6f 77 74 79 70  65 24 0d 27 88 1a e8 23  |indowtype$.'...#|
00007d00  63 68 6f 69 63 65 73 25  2c 6d 61 78 5f 72 65 63  |choices%,max_rec|
00007d10  6f 72 64 25 0d 27 92 16  e8 23 63 68 6f 69 63 65  |ord%.'...#choice|
00007d20  73 25 2c 61 6e 69 6d 6f  6e 24 0d 27 9c 0e d9 23  |s%,animon$.'...#|
00007d30  63 68 6f 69 63 65 73 25  0d 27 a6 05 cc 0d 27 b0  |choices%.'....'.|
00007d40  17 77 69 6e 64 6f 77 74  79 70 65 24 3d 22 50 6c  |.windowtype$="Pl|
00007d50  61 69 6e 22 0d 27 ba 13  6d 61 78 5f 72 65 63 6f  |ain".'..max_reco|
00007d60  72 64 25 3d 31 30 30 0d  27 c4 10 61 6e 69 6d 6f  |rd%=100.'..animo|
00007d70  6e 24 3d 22 4f 6e 22 0d  27 ce 05 cd 0d 27 d8 1e  |n$="On".'....'..|
00007d80  6e 65 77 77 69 6e 64 6f  77 74 79 70 65 24 3d 77  |newwindowtype$=w|
00007d90  69 6e 64 6f 77 74 79 70  65 24 0d 27 e2 05 e1 0d  |indowtype$.'....|
00007da0  27 ec 05 3a 0d 27 f6 11  dd f2 72 65 63 6f 72 64  |'..:.'....record|
00007db0  5f 6d 65 6e 75 0d 28 00  27 e7 20 6d 61 78 5f 72  |_menu.(.'. max_r|
00007dc0  65 63 6f 72 64 25 3e 35  30 30 20 8c 20 6d 61 78  |ecord%>500 . max|
00007dd0  5f 72 65 63 6f 72 64 25  3d 35 30 30 0d 28 0a 14  |_record%=500.(..|
00007de0  c8 8e 20 6d 61 78 5f 72  65 63 6f 72 64 25 20 ca  |.. max_record% .|
00007df0  0d 28 14 6a c9 20 31 30  30 3a f2 62 75 66 66 65  |.(.j. 100:.buffe|
00007e00  72 73 69 7a 65 28 32 30  30 2c 22 31 30 30 22 29  |rsize(200,"100")|
00007e10  3a e7 20 62 75 66 66 65  72 6f 6b 25 3d b9 20 8c  |:. bufferok%=. .|
00007e20  20 f2 74 69 63 6b 28 6d  61 78 72 65 63 6f 72 64  | .tick(maxrecord|
00007e30  6d 65 6e 75 25 2c 30 2c  35 29 3a f2 75 70 64 61  |menu%,0,5):.upda|
00007e40  74 65 5f 69 63 6f 6e 28  63 64 5f 70 61 6e 65 25  |te_icon(cd_pane%|
00007e50  2c 37 2c 22 2f 31 30 30  22 29 0d 28 1e 6a c9 20  |,7,"/100").(.j. |
00007e60  32 30 30 3a f2 62 75 66  66 65 72 73 69 7a 65 28  |200:.buffersize(|
00007e70  33 30 30 2c 22 32 30 30  22 29 3a e7 20 62 75 66  |300,"200"):. buf|
00007e80  66 65 72 6f 6b 25 3d b9  20 8c 20 f2 74 69 63 6b  |ferok%=. . .tick|
00007e90  28 6d 61 78 72 65 63 6f  72 64 6d 65 6e 75 25 2c  |(maxrecordmenu%,|
00007ea0  31 2c 35 29 3a f2 75 70  64 61 74 65 5f 69 63 6f  |1,5):.update_ico|
00007eb0  6e 28 63 64 5f 70 61 6e  65 25 2c 37 2c 22 2f 32  |n(cd_pane%,7,"/2|
00007ec0  30 30 22 29 0d 28 28 6a  c9 20 33 30 30 3a f2 62  |00").((j. 300:.b|
00007ed0  75 66 66 65 72 73 69 7a  65 28 34 30 30 2c 22 33  |uffersize(400,"3|
00007ee0  30 30 22 29 3a e7 20 62  75 66 66 65 72 6f 6b 25  |00"):. bufferok%|
00007ef0  3d b9 20 8c 20 f2 74 69  63 6b 28 6d 61 78 72 65  |=. . .tick(maxre|
00007f00  63 6f 72 64 6d 65 6e 75  25 2c 32 2c 35 29 3a f2  |cordmenu%,2,5):.|
00007f10  75 70 64 61 74 65 5f 69  63 6f 6e 28 63 64 5f 70  |update_icon(cd_p|
00007f20  61 6e 65 25 2c 37 2c 22  2f 33 30 30 22 29 0d 28  |ane%,7,"/300").(|
00007f30  32 6a c9 20 34 30 30 3a  f2 62 75 66 66 65 72 73  |2j. 400:.buffers|
00007f40  69 7a 65 28 35 30 30 2c  22 34 30 30 22 29 3a e7  |ize(500,"400"):.|
00007f50  20 62 75 66 66 65 72 6f  6b 25 3d b9 20 8c 20 f2  | bufferok%=. . .|
00007f60  74 69 63 6b 28 6d 61 78  72 65 63 6f 72 64 6d 65  |tick(maxrecordme|
00007f70  6e 75 25 2c 33 2c 35 29  3a f2 75 70 64 61 74 65  |nu%,3,5):.update|
00007f80  5f 69 63 6f 6e 28 63 64  5f 70 61 6e 65 25 2c 37  |_icon(cd_pane%,7|
00007f90  2c 22 2f 34 30 30 22 29  0d 28 3c 6a c9 20 35 30  |,"/400").(<j. 50|
00007fa0  30 3a f2 62 75 66 66 65  72 73 69 7a 65 28 36 30  |0:.buffersize(60|
00007fb0  30 2c 22 35 30 30 22 29  3a e7 20 62 75 66 66 65  |0,"500"):. buffe|
00007fc0  72 6f 6b 25 3d b9 20 8c  20 f2 74 69 63 6b 28 6d  |rok%=. . .tick(m|
00007fd0  61 78 72 65 63 6f 72 64  6d 65 6e 75 25 2c 34 2c  |axrecordmenu%,4,|
00007fe0  35 29 3a f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |5):.update_icon(|
00007ff0  63 64 5f 70 61 6e 65 25  2c 37 2c 22 2f 35 30 30  |cd_pane%,7,"/500|
00008000  22 29 0d 28 46 05 cb 0d  28 50 05 e1 0d 28 5a 05  |").(F...(P...(Z.|
00008010  3a 0d 28 64 19 dd f2 63  6c 65 61 72 5f 64 61 74  |:.(d...clear_dat|
00008020  61 5f 71 75 65 73 74 69  6f 6e 0d 28 6e 07 ef 20  |a_question.(n.. |
00008030  37 0d 28 78 14 f2 6f 70  65 6e 28 63 64 5f 63 6c  |7.(x..open(cd_cl|
00008040  65 61 72 25 29 0d 28 82  19 c8 97 20 c8 93 20 32  |ear%).(.... .. 2|
00008050  38 34 2c 34 32 30 2c 37  34 32 2c 32 32 38 0d 28  |84,420,742,228.(|
00008060  8c 05 e1 0d 28 96 05 3a  0d 28 a0 10 dd f2 63 6c  |....(..:.(....cl|
00008070  65 61 72 5f 64 61 74 61  0d 28 aa 08 f2 6e 65 77  |ear_data.(...new|
00008080  0d 28 b4 0b f2 75 70 64  61 74 65 0d 28 be 19 f2  |.(...update.(...|
00008090  72 65 5f 74 69 74 6c 65  28 22 43 44 20 49 6e 64  |re_title("CD Ind|
000080a0  65 78 22 29 0d 28 c8 0e  75 6e 73 61 76 65 64 25  |ex").(..unsaved%|
000080b0  3d a3 0d 28 d2 0e f2 63  6c 6f 73 65 5f 61 6c 6c  |=..(...close_all|
000080c0  0d 28 dc 15 c8 97 20 c8  93 20 30 2c 30 2c 63 78  |.(.... .. 0,0,cx|
000080d0  25 2c 63 79 25 0d 28 e6  05 e1 0d 28 f0 05 3a 0d  |%,cy%.(....(..:.|
000080e0  28 fa 10 dd f2 71 75 69  74 5f 63 68 65 63 6b 0d  |(....quit_check.|
000080f0  29 04 11 c8 8e 20 75 6e  73 61 76 65 64 25 20 ca  |).... unsaved% .|
00008100  0d 29 0e 07 c9 20 b9 0d  29 18 07 ef 20 37 0d 29  |.)... ..)... 7.)|
00008110  22 13 f2 6f 70 65 6e 28  63 64 5f 71 75 69 74 25  |"..open(cd_quit%|
00008120  29 0d 29 2c 19 c8 97 20  c8 93 20 32 38 34 2c 34  |).),... .. 284,4|
00008130  32 30 2c 37 34 32 2c 32  32 38 0d 29 36 0f c9 20  |20,742,228.)6.. |
00008140  a3 3a 71 75 69 74 25 3d  b9 0d 29 40 05 cb 0d 29  |.:quit%=..)@...)|
00008150  4a 05 e1 0d 29 54 05 3a  0d 29 5e 14 dd f2 6f 70  |J...)T.:.)^...op|
00008160  65 6e 5f 61 6e 69 6d 61  74 69 6f 6e 0d 29 68 17  |en_animation.)h.|
00008170  e7 20 61 6e 69 6d 6f 6e  24 3d 22 4f 66 66 22 20  |. animon$="Off" |
00008180  8c 20 e1 0d 29 72 33 f2  63 68 61 6e 67 65 5f 69  |. ..)r3.change_i|
00008190  63 6f 6e 28 71 25 2c 2d  32 2c 61 70 70 69 63 6f  |con(q%,-2,appico|
000081a0  6e 25 2c 22 61 6e 69 6d  32 22 29 3a f2 61 6e 69  |n%,"anim2"):.ani|
000081b0  6d 5f 77 61 69 74 0d 29  7c 33 f2 63 68 61 6e 67  |m_wait.)|3.chang|
000081c0  65 5f 69 63 6f 6e 28 71  25 2c 2d 32 2c 61 70 70  |e_icon(q%,-2,app|
000081d0  69 63 6f 6e 25 2c 22 61  6e 69 6d 33 22 29 3a f2  |icon%,"anim3"):.|
000081e0  61 6e 69 6d 5f 77 61 69  74 0d 29 86 33 f2 63 68  |anim_wait.).3.ch|
000081f0  61 6e 67 65 5f 69 63 6f  6e 28 71 25 2c 2d 32 2c  |ange_icon(q%,-2,|
00008200  61 70 70 69 63 6f 6e 25  2c 22 61 6e 69 6d 34 22  |appicon%,"anim4"|
00008210  29 3a f2 61 6e 69 6d 5f  77 61 69 74 0d 29 90 33  |):.anim_wait.).3|
00008220  f2 63 68 61 6e 67 65 5f  69 63 6f 6e 28 71 25 2c  |.change_icon(q%,|
00008230  2d 32 2c 61 70 70 69 63  6f 6e 25 2c 22 61 6e 69  |-2,appicon%,"ani|
00008240  6d 35 22 29 3a f2 61 6e  69 6d 5f 77 61 69 74 0d  |m5"):.anim_wait.|
00008250  29 9a 33 f2 63 68 61 6e  67 65 5f 69 63 6f 6e 28  |).3.change_icon(|
00008260  71 25 2c 2d 32 2c 61 70  70 69 63 6f 6e 25 2c 22  |q%,-2,appicon%,"|
00008270  61 6e 69 6d 31 22 29 3a  f2 61 6e 69 6d 5f 77 61  |anim1"):.anim_wa|
00008280  69 74 0d 29 a4 05 e1 0d  29 ae 05 3a 0d 29 b8 15  |it.)....)..:.)..|
00008290  dd f2 63 6c 6f 73 65 5f  61 6e 69 6d 61 74 69 6f  |..close_animatio|
000082a0  6e 0d 29 c2 17 e7 20 61  6e 69 6d 6f 6e 24 3d 22  |n.)... animon$="|
000082b0  4f 66 66 22 20 8c 20 e1  0d 29 cc 33 f2 63 68 61  |Off" . ..).3.cha|
000082c0  6e 67 65 5f 69 63 6f 6e  28 71 25 2c 2d 32 2c 61  |nge_icon(q%,-2,a|
000082d0  70 70 69 63 6f 6e 25 2c  22 61 6e 69 6d 31 22 29  |ppicon%,"anim1")|
000082e0  3a f2 61 6e 69 6d 5f 77  61 69 74 0d 29 d6 33 f2  |:.anim_wait.).3.|
000082f0  63 68 61 6e 67 65 5f 69  63 6f 6e 28 71 25 2c 2d  |change_icon(q%,-|
00008300  32 2c 61 70 70 69 63 6f  6e 25 2c 22 61 6e 69 6d  |2,appicon%,"anim|
00008310  35 22 29 3a f2 61 6e 69  6d 5f 77 61 69 74 0d 29  |5"):.anim_wait.)|
00008320  e0 33 f2 63 68 61 6e 67  65 5f 69 63 6f 6e 28 71  |.3.change_icon(q|
00008330  25 2c 2d 32 2c 61 70 70  69 63 6f 6e 25 2c 22 61  |%,-2,appicon%,"a|
00008340  6e 69 6d 34 22 29 3a f2  61 6e 69 6d 5f 77 61 69  |nim4"):.anim_wai|
00008350  74 0d 29 ea 33 f2 63 68  61 6e 67 65 5f 69 63 6f  |t.).3.change_ico|
00008360  6e 28 71 25 2c 2d 32 2c  61 70 70 69 63 6f 6e 25  |n(q%,-2,appicon%|
00008370  2c 22 61 6e 69 6d 33 22  29 3a f2 61 6e 69 6d 5f  |,"anim3"):.anim_|
00008380  77 61 69 74 0d 29 f4 33  f2 63 68 61 6e 67 65 5f  |wait.).3.change_|
00008390  69 63 6f 6e 28 71 25 2c  2d 32 2c 61 70 70 69 63  |icon(q%,-2,appic|
000083a0  6f 6e 25 2c 22 61 6e 69  6d 32 22 29 3a f2 61 6e  |on%,"anim2"):.an|
000083b0  69 6d 5f 77 61 69 74 0d  29 fe 0e f2 63 6c 6f 73  |im_wait.)...clos|
000083c0  65 5f 61 6c 6c 0d 2a 08  05 e1 0d 2a 12 05 3a 0d  |e_all.*....*..:.|
000083d0  2a 1c 0f dd f2 61 6e 69  6d 5f 77 61 69 74 0d 2a  |*....anim_wait.*|
000083e0  26 0e e3 20 49 25 3d 31  20 b8 20 35 0d 2a 30 06  |&.. I%=1 . 5.*0.|
000083f0  c8 96 0d 2a 3a 05 ed 0d  2a 44 05 e1 0d 2a 4e 05  |...*:...*D...*N.|
00008400  3a 0d 2a 58 28 dd f2 63  68 61 6e 67 65 5f 69 63  |:.*X(..change_ic|
00008410  6f 6e 28 71 25 2c 77 69  6e 64 6f 77 25 2c 69 63  |on(q%,window%,ic|
00008420  6f 6e 25 2c 6e 65 77 24  29 0d 2a 62 15 24 73 70  |on%,new$).*b.$sp|
00008430  72 69 74 65 25 3d 22 53  22 2b 6e 65 77 24 0d 2a  |rite%="S"+new$.*|
00008440  6c 35 21 71 25 3d 77 69  6e 64 6f 77 25 3a 71 25  |l5!q%=window%:q%|
00008450  21 34 3d 69 63 6f 6e 25  3a c8 99 20 22 57 69 6d  |!4=icon%:.. "Wim|
00008460  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00008470  2c 71 25 0d 2a 76 11 71  25 21 32 38 3d 73 70 72  |,q%.*v.q%!28=spr|
00008480  69 74 65 25 0d 2a 80 44  21 71 25 3d 77 69 6e 64  |ite%.*.D!q%=wind|
00008490  6f 77 25 3a 71 25 21 34  3d 69 63 6f 6e 25 3a 71  |ow%:q%!4=icon%:q|
000084a0  25 21 38 3d 30 3a 71 25  21 31 32 3d 30 3a c8 99  |%!8=0:q%!12=0:..|
000084b0  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
000084c0  61 74 65 22 2c 2c 71 25  0d 2a 8a 05 e1 0d 2a 94  |ate",,q%.*....*.|
000084d0  05 3a 0d 2a 9e 29 dd f2  73 77 61 70 5f 63 61 73  |.:.*.)..swap_cas|
000084e0  65 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 2c  |e(window%,icon%,|
000084f0  6b 65 79 5f 69 6e 64 65  78 25 29 0d 2a a8 36 e7  |key_index%).*.6.|
00008500  20 6b 65 79 5f 69 6e 64  65 78 25 3c a9 28 a4 72  | key_index%<.(.r|
00008510  65 61 64 5f 69 63 6f 6e  5f 74 65 78 74 28 77 69  |ead_icon_text(wi|
00008520  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c a3 29 29 20  |ndow%,icon%,.)) |
00008530  8c 0d 2a b2 2e 49 63 6f  6e 54 65 78 74 24 3d a4  |..*..IconText$=.|
00008540  72 65 61 64 5f 69 63 6f  6e 5f 74 65 78 74 28 77  |read_icon_text(w|
00008550  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 2c a3 29 0d  |indow%,icon%,.).|
00008560  2a bc 2a 43 25 3d 97 28  c1 49 63 6f 6e 54 65 78  |*.*C%=.(.IconTex|
00008570  74 24 2c 6b 65 79 5f 69  6e 64 65 78 25 2b 31 2c  |t$,key_index%+1,|
00008580  31 29 29 20 80 20 26 44  46 0d 2a c6 19 e7 20 43  |1)) . &DF.*... C|
00008590  25 3e 3d 26 34 31 20 80  20 43 25 3c 3d 26 35 41  |%>=&41 . C%<=&5A|
000085a0  20 8c 0d 2a d0 2d 43 24  3d bd 28 97 28 c1 49 63  | ..*.-C$=.(.(.Ic|
000085b0  6f 6e 54 65 78 74 24 2c  6b 65 79 5f 69 6e 64 65  |onText$,key_inde|
000085c0  78 25 2b 31 2c 31 29 29  20 82 20 26 32 30 29 0d  |x%+1,1)) . &20).|
000085d0  2a da 21 c1 49 63 6f 6e  54 65 78 74 24 2c 6b 65  |*.!.IconText$,ke|
000085e0  79 5f 69 6e 64 65 78 25  2b 31 2c 31 29 3d 43 24  |y_index%+1,1)=C$|
000085f0  0d 2a e4 29 f2 75 70 64  61 74 65 5f 69 63 6f 6e  |.*.).update_icon|
00008600  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 2c 49  |(window%,icon%,I|
00008610  63 6f 6e 54 65 78 74 24  29 0d 2a ee 05 cd 0d 2a  |conText$).*....*|
00008620  f8 32 f2 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |.2._SetCaretPosi|
00008630  74 69 6f 6e 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |tion(window%,ico|
00008640  6e 25 2c 6b 65 79 5f 69  6e 64 65 78 25 2b 31 29  |n%,key_index%+1)|
00008650  0d 2b 02 05 cd 0d 2b 0c  05 e1 0d 2b 16 05 3a 0d  |.+....+....+..:.|
00008660  2b 20 31 dd f2 5f 53 65  74 43 61 72 65 74 50 6f  |+ 1.._SetCaretPo|
00008670  73 69 74 69 6f 6e 28 77  69 6e 64 6f 77 25 2c 69  |sition(window%,i|
00008680  63 6f 6e 25 2c 6b 65 79  5f 69 6e 64 65 78 25 29  |con%,key_index%)|
00008690  0d 2b 2a 33 49 63 6f 6e  4c 65 6e 67 74 68 25 3d  |.+*3IconLength%=|
000086a0  a9 28 a4 72 65 61 64 5f  69 63 6f 6e 5f 74 65 78  |.(.read_icon_tex|
000086b0  74 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 2c  |t(window%,icon%,|
000086c0  a3 29 29 0d 2b 34 35 e7  20 6b 65 79 5f 69 6e 64  |.)).+45. key_ind|
000086d0  65 78 25 3e 49 63 6f 6e  4c 65 6e 67 74 68 25 20  |ex%>IconLength% |
000086e0  8c 20 6b 65 79 5f 69 6e  64 65 78 25 3d 49 63 6f  |. key_index%=Ico|
000086f0  6e 4c 65 6e 67 74 68 25  0d 2b 3e 3c c8 99 20 22  |nLength%.+><.. "|
00008700  57 69 6d 70 5f 53 65 74  43 61 72 65 74 50 6f 73  |Wimp_SetCaretPos|
00008710  69 74 69 6f 6e 22 2c 77  69 6e 64 6f 77 25 2c 69  |ition",window%,i|
00008720  63 6f 6e 25 2c 2c 2c 2d  31 2c 6b 65 79 5f 69 6e  |con%,,,-1,key_in|
00008730  64 65 78 25 0d 2b 48 22  c8 99 20 22 57 69 6d 70  |dex%.+H".. "Wimp|
00008740  5f 47 65 74 43 61 72 65  74 50 6f 73 69 74 69 6f  |_GetCaretPositio|
00008750  6e 22 2c 2c 71 25 0d 2b  52 05 e1 0d 2b 5c 05 3a  |n",,q%.+R...+\.:|
00008760  0d 2b 66 28 dd a4 72 65  61 64 5f 69 63 6f 6e 5f  |.+f(..read_icon_|
00008770  74 65 78 74 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |text(window%,ico|
00008780  6e 25 2c 50 61 64 25 29  0d 2b 70 0d ea 20 52 65  |n%,Pad%).+p.. Re|
00008790  73 75 6c 74 24 0d 2b 7a  0f 21 71 25 3d 77 69 6e  |sult$.+z.!q%=win|
000087a0  64 6f 77 25 0d 2b 84 0e  71 25 21 34 3d 69 63 6f  |dow%.+..q%!4=ico|
000087b0  6e 25 0d 2b 8e 1e c8 99  20 22 57 69 6d 70 5f 47  |n%.+.... "Wimp_G|
000087c0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 71 25  |etIconState",,q%|
000087d0  0d 2b 98 1b e7 20 28 71  25 21 32 34 20 80 20 28  |.+... (q%!24 . (|
000087e0  31 3c 3c 38 29 29 3c 3e  30 20 8c 0d 2b a2 14 52  |1<<8))<>0 ..+..R|
000087f0  65 73 75 6c 74 24 3d 24  28 71 25 21 32 38 29 0d  |esult$=$(q%!28).|
00008800  2b ac 05 cc 0d 2b b6 14  52 65 73 75 6c 74 24 3d  |+....+..Result$=|
00008810  24 28 71 25 2b 32 38 29  0d 2b c0 05 cd 0d 2b ca  |$(q%+28).+....+.|
00008820  29 e7 20 50 61 64 25 3e  30 20 8c 20 3d c0 52 65  |). Pad%>0 . =.Re|
00008830  73 75 6c 74 24 2b c4 50  61 64 25 2c 22 20 22 29  |sult$+.Pad%," ")|
00008840  2c 50 61 64 25 29 0d 2b  d4 0c 3d 52 65 73 75 6c  |,Pad%).+..=Resul|
00008850  74 24 0d 2b de 05 3a 0d  2b e8 14 dd f2 6d 73 5f  |t$.+..:.+....ms_|
00008860  6c 6f 61 64 28 6e 61 6d  65 24 29 0d 2b f2 24 c8  |load(name$).+.$.|
00008870  99 22 4d 65 73 73 61 67  65 54 72 61 6e 73 5f 46  |."MessageTrans_F|
00008880  69 6c 65 49 6e 66 6f 22  2c 2c 6e 61 6d 65 24 0d  |ileInfo",,name$.|
00008890  2b fc 10 de 6d 73 5f 74  65 78 74 25 32 35 36 0d  |+...ms_text%256.|
000088a0  2c 06 2c c8 99 22 4f 53  5f 4d 6f 64 75 6c 65 22  |,.,.."OS_Module"|
000088b0  2c 36 2c 2c 2c 31 37 2b  a9 28 6e 61 6d 65 24 29  |,6,,,17+.(name$)|
000088c0  b8 2c 2c 6d 73 5f 64 65  73 63 25 0d 2c 10 18 24  |.,,ms_desc%.,..$|
000088d0  28 6d 73 5f 64 65 73 63  25 2b 31 36 29 3d 6e 61  |(ms_desc%+16)=na|
000088e0  6d 65 24 0d 2c 1a 32 c8  99 22 4d 65 73 73 61 67  |me$.,.2.."Messag|
000088f0  65 54 72 61 6e 73 5f 4f  70 65 6e 46 69 6c 65 22  |eTrans_OpenFile"|
00008900  2c 6d 73 5f 64 65 73 63  25 2c 6d 73 5f 64 65 73  |,ms_desc%,ms_des|
00008910  63 25 2b 31 36 0d 2c 24  05 e1 0d 2c 2e 05 3a 0d  |c%+16.,$...,..:.|
00008920  2c 38 0c dd f2 6d 73 5f  65 6e 64 0d 2c 42 28 c8  |,8...ms_end.,B(.|
00008930  99 22 58 4d 65 73 73 61  67 65 54 72 61 6e 73 5f  |."XMessageTrans_|
00008940  43 6c 6f 73 65 46 69 6c  65 22 2c 6d 73 5f 64 65  |CloseFile",ms_de|
00008950  73 63 25 0d 2c 4c 1e c8  99 22 58 4f 53 5f 4d 6f  |sc%.,L..."XOS_Mo|
00008960  64 75 6c 65 22 2c 37 2c  2c 6d 73 5f 64 65 73 63  |dule",7,,ms_desc|
00008970  25 0d 2c 56 05 e1 0d 2c  60 05 3a 0d 2c 6a 10 dd  |%.,V...,`.:.,j..|
00008980  a4 6d 73 5f 30 28 74 61  67 24 29 0d 2c 74 16 3d  |.ms_0(tag$).,t.=|
00008990  a4 6d 73 5f 32 28 74 61  67 24 2c 22 22 2c 22 22  |.ms_2(tag$,"",""|
000089a0  29 0d 2c 7e 05 3a 0d 2c  88 16 dd a4 6d 73 5f 31  |).,~.:.,....ms_1|
000089b0  28 74 61 67 24 2c 61 72  67 31 24 29 0d 2c 92 19  |(tag$,arg1$).,..|
000089c0  3d a4 6d 73 5f 32 28 74  61 67 24 2c 61 72 67 31  |=.ms_2(tag$,arg1|
000089d0  24 2c 22 22 29 0d 2c 9c  05 3a 0d 2c a6 1c dd a4  |$,"").,..:.,....|
000089e0  6d 73 5f 32 28 74 61 67  24 2c 61 72 67 31 24 2c  |ms_2(tag$,arg1$,|
000089f0  61 72 67 32 24 29 0d 2c  b0 0a ea 46 25 2c 4c 25  |arg2$).,...F%,L%|
00008a00  0d 2c ba 4c c8 99 22 58  4d 65 73 73 61 67 65 54  |.,.L.."XMessageT|
00008a10  72 61 6e 73 5f 4c 6f 6f  6b 75 70 22 2c 6d 73 5f  |rans_Lookup",ms_|
00008a20  64 65 73 63 25 2c 74 61  67 24 2c 6d 73 5f 74 65  |desc%,tag$,ms_te|
00008a30  78 74 25 2c 32 35 36 2c  61 72 67 31 24 2c 61 72  |xt%,256,arg1$,ar|
00008a40  67 32 24 b8 2c 2c 2c 4c  25 3b 46 25 0d 2c c4 0f  |g2$.,,,L%;F%.,..|
00008a50  e7 46 25 80 20 31 8c 4c  25 3d 30 0d 2c ce 12 6d  |.F%. 1.L%=0.,..m|
00008a60  73 5f 74 65 78 74 25 3f  4c 25 3d 31 33 0d 2c d8  |s_text%?L%=13.,.|
00008a70  0e 3d 24 6d 73 5f 74 65  78 74 25 0d 2c e2 05 3a  |.=$ms_text%.,..:|
00008a80  0d 2c ec 11 dd f2 68 65  6c 70 28 68 65 6c 70 24  |.,....help(help$|
00008a90  29 0d 2c f6 08 ea 20 43  25 0d 2d 00 0f 43 25 3d  |).,... C%.-..C%=|
00008aa0  a9 68 65 6c 70 24 2b 31  0d 2d 0a 0e 71 25 21 31  |.help$+1.-..q%!1|
00008ab0  32 3d 71 25 21 38 0d 2d  14 0e 71 25 21 31 36 3d  |2=q%!8.-..q%!16=|
00008ac0  26 35 30 33 0d 2d 1e 15  24 28 71 25 2b 32 30 29  |&503.-..$(q%+20)|
00008ad0  3d 68 65 6c 70 24 2b bd  30 0d 2d 28 12 21 71 25  |=help$+.0.-(.!q%|
00008ae0  3d 28 32 34 2b 43 25 29  80 ac 33 0d 2d 32 23 c8  |=(24+C%)..3.-2#.|
00008af0  99 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  |."Wimp_SendMessa|
00008b00  67 65 22 2c 31 37 2c 71  25 2c 71 25 21 34 0d 2d  |ge",17,q%,q%!4.-|
00008b10  3c 05 cd 0d 2d 46 05 e1  0d 2d 50 05 3a 0d 2d 5a  |<...-F...-P.:.-Z|
00008b20  0f dd a4 68 65 6c 70 5f  74 65 78 74 0d 2d 64 0b  |...help_text.-d.|
00008b30  ea 20 74 65 78 74 24 0d  2d 6e 0c 74 65 78 74 24  |. text$.-n.text$|
00008b40  3d 22 22 0d 2d 78 0e c8  8e 20 71 25 21 33 32 20  |="".-x... q%!32 |
00008b50  ca 0d 2d 82 08 c9 20 2d  32 0d 2d 8c 2d e7 20 71  |..-... -2.-.-. q|
00008b60  25 21 33 36 3d 61 70 70  69 63 6f 6e 25 20 8c 20  |%!36=appicon% . |
00008b70  74 65 78 74 24 3d a4 6d  73 5f 30 28 22 49 63 6f  |text$=.ms_0("Ico|
00008b80  6e 42 61 72 22 29 0d 2d  96 24 c9 20 63 64 5f 69  |nBar").-.$. cd_i|
00008b90  6e 66 6f 62 6f 78 25 3a  74 65 78 74 24 3d a4 6d  |nfobox%:text$=.m|
00008ba0  73 5f 30 28 22 41 64 64  22 29 0d 2d a0 1a c9 20  |s_0("Add").-... |
00008bb0  63 64 5f 69 6e 64 65 78  25 3a c8 8e 20 71 25 21  |cd_index%:.. q%!|
00008bc0  33 36 20 ca 0d 2d aa 24  c9 20 39 2c 31 30 2c 31  |36 ..-.$. 9,10,1|
00008bd0  33 2c 31 34 3a 74 65 78  74 24 3d a4 6d 73 5f 30  |3,14:text$=.ms_0|
00008be0  28 22 54 65 78 74 22 29  0d 2d b4 25 c9 20 31 31  |("Text").-.%. 11|
00008bf0  2c 31 32 2c 31 35 2c 31  36 3a 74 65 78 74 24 3d  |,12,15,16:text$=|
00008c00  a4 6d 73 5f 30 28 22 54  65 4d 65 22 29 0d 2d be  |.ms_0("TeMe").-.|
00008c10  26 c9 20 31 38 3a 74 65  78 74 24 3d a4 6d 73 5f  |&. 18:text$=.ms_|
00008c20  31 28 22 4d 65 6e 75 22  2c 22 46 6f 72 6d 61 74  |1("Menu","Format|
00008c30  73 22 29 0d 2d c8 24 c9  20 31 39 3a 74 65 78 74  |s").-.$. 19:text|
00008c40  24 3d a4 6d 73 5f 31 28  22 4d 65 6e 75 22 2c 22  |$=.ms_1("Menu","|
00008c50  53 69 7a 65 73 22 29 0d  2d d2 2a c9 20 32 36 3a  |Sizes").-.*. 26:|
00008c60  74 65 78 74 24 3d a4 6d  73 5f 31 28 22 4d 65 6e  |text$=.ms_1("Men|
00008c70  75 22 2c 22 4d 75 73 69  63 20 54 79 70 65 73 22  |u","Music Types"|
00008c80  29 0d 2d dc 24 c9 20 32  30 3a 74 65 78 74 24 3d  |).-.$. 20:text$=|
00008c90  a4 6d 73 5f 31 28 22 4d  65 6e 75 22 2c 22 59 65  |.ms_1("Menu","Ye|
00008ca0  61 72 73 22 29 0d 2d e6  05 cb 0d 2d f0 2e c9 20  |ars").-....-... |
00008cb0  63 64 5f 73 6f 72 74 25  3a e7 20 71 25 21 33 36  |cd_sort%:. q%!36|
00008cc0  3d 32 20 8c 20 74 65 78  74 24 3d a4 6d 73 5f 30  |=2 . text$=.ms_0|
00008cd0  28 22 53 6f 72 74 22 29  0d 2d fa 19 c9 20 63 64  |("Sort").-... cd|
00008ce0  5f 70 61 6e 65 25 3a c8  8e 20 71 25 21 33 36 20  |_pane%:.. q%!36 |
00008cf0  ca 0d 2e 04 1c c9 20 30  2c 31 3a 74 65 78 74 24  |...... 0,1:text$|
00008d00  3d a4 6d 73 5f 30 28 22  4f 6e 65 22 29 0d 2e 0e  |=.ms_0("One")...|
00008d10  1c c9 20 32 2c 33 3a 74  65 78 74 24 3d a4 6d 73  |.. 2,3:text$=.ms|
00008d20  5f 30 28 22 54 65 6e 22  29 0d 2e 18 1a c9 20 36  |_0("Ten")..... 6|
00008d30  3a 74 65 78 74 24 3d a4  6d 73 5f 30 28 22 52 65  |:text$=.ms_0("Re|
00008d40  63 22 29 0d 2e 22 05 cb  0d 2e 2c 1c c9 20 63 64  |c").."....,.. cd|
00008d50  5f 73 61 76 65 62 6f 78  25 3a c8 8e 20 71 25 21  |_savebox%:.. q%!|
00008d60  33 36 20 ca 0d 2e 36 1b  c9 20 30 3a 74 65 78 74  |36 ...6.. 0:text|
00008d70  24 3d a4 6d 73 5f 30 28  22 44 72 61 67 22 29 0d  |$=.ms_0("Drag").|
00008d80  2e 40 1b c9 20 31 3a 74  65 78 74 24 3d a4 6d 73  |.@.. 1:text$=.ms|
00008d90  5f 30 28 22 46 69 6c 65  22 29 0d 2e 4a 1b c9 20  |_0("File")..J.. |
00008da0  32 3a 74 65 78 74 24 3d  a4 6d 73 5f 30 28 22 53  |2:text$=.ms_0("S|
00008db0  61 76 65 22 29 0d 2e 54  05 cb 0d 2e 5e 19 c9 20  |ave")..T....^.. |
00008dc0  63 64 5f 71 75 69 74 25  3a c8 8e 20 71 25 21 33  |cd_quit%:.. q%!3|
00008dd0  36 20 ca 0d 2e 68 1d c9  20 31 2c 32 3a 74 65 78  |6 ...h.. 1,2:tex|
00008de0  74 24 3d a4 6d 73 5f 30  28 22 51 75 65 73 22 29  |t$=.ms_0("Ques")|
00008df0  0d 2e 72 05 cb 0d 2e 7c  1a c9 20 63 64 5f 63 6c  |..r....|.. cd_cl|
00008e00  65 61 72 25 3a c8 8e 20  71 25 21 33 36 20 ca 0d  |ear%:.. q%!36 ..|
00008e10  2e 86 1d c9 20 31 2c 32  3a 74 65 78 74 24 3d a4  |.... 1,2:text$=.|
00008e20  6d 73 5f 30 28 22 51 75  65 73 22 29 0d 2e 90 05  |ms_0("Ques")....|
00008e30  cb 0d 2e 9a 1a c9 20 63  64 5f 70 72 69 6e 74 25  |...... cd_print%|
00008e40  3a c8 8e 20 71 25 21 33  36 20 ca 0d 2e a4 1b c9  |:.. q%!36 ......|
00008e50  20 36 3a 74 65 78 74 24  3d a4 6d 73 5f 30 28 22  | 6:text$=.ms_0("|
00008e60  43 6f 70 79 22 29 0d 2e  ae 1b c9 20 37 3a 74 65  |Copy")..... 7:te|
00008e70  78 74 24 3d a4 6d 73 5f  30 28 22 50 72 69 6e 22  |xt$=.ms_0("Prin"|
00008e80  29 0d 2e b8 05 cb 0d 2e  c2 1b c9 20 63 64 5f 73  |).......... cd_s|
00008e90  65 61 72 63 68 25 3a c8  8e 20 71 25 21 33 36 20  |earch%:.. q%!36 |
00008ea0  ca 0d 2e cc 1e c9 20 31  3a 74 65 78 74 24 3d a4  |...... 1:text$=.|
00008eb0  6d 73 5f 30 28 22 53 65  61 54 65 78 74 22 29 0d  |ms_0("SeaText").|
00008ec0  2e d6 1e c9 20 37 3a 74  65 78 74 24 3d a4 6d 73  |.... 7:text$=.ms|
00008ed0  5f 30 28 22 53 65 61 50  72 65 76 22 29 0d 2e e0  |_0("SeaPrev")...|
00008ee0  1d c9 20 35 3a 74 65 78  74 24 3d a4 6d 73 5f 30  |.. 5:text$=.ms_0|
00008ef0  28 22 53 65 61 72 47 6f  22 29 0d 2e ea 19 7f 3a  |("SearGo").....:|
00008f00  74 65 78 74 24 3d a4 6d  73 5f 30 28 22 43 61 73  |text$=.ms_0("Cas|
00008f10  65 22 29 0d 2e f4 05 cb  0d 2e fe 24 c9 20 63 64  |e")........$. cd|
00008f20  5f 66 6f 75 6e 64 25 3a  74 65 78 74 24 3d a4 6d  |_found%:text$=.m|
00008f30  73 5f 30 28 22 46 6f 75  6e 64 22 29 0d 2f 08 25  |s_0("Found")./.%|
00008f40  c9 20 63 64 5f 74 72 61  63 6b 73 25 3a 74 65 78  |. cd_tracks%:tex|
00008f50  74 24 3d a4 6d 73 5f 30  28 22 54 72 61 63 6b 22  |t$=.ms_0("Track"|
00008f60  29 0d 2f 12 05 cb 0d 2f  1c 0a 3d 74 65 78 74 24  |)./..../..=text$|
00008f70  0d 2f 26 05 3a 0d 2f 30  13 dd f2 67 65 74 5f 6d  |./&.:./0...get_m|
00008f80  6f 64 65 5f 69 6e 66 6f  0d 2f 3a 1f 63 78 25 3d  |ode_info./:.cx%=|
00008f90  28 a4 6d 76 28 eb 2c 31  31 29 29 3c 3c 28 a4 6d  |(.mv(.,11))<<(.m|
00008fa0  76 28 eb 2c 34 29 29 0d  2f 44 1f 63 79 25 3d 28  |v(.,4))./D.cy%=(|
00008fb0  a4 6d 76 28 eb 2c 31 32  29 29 3c 3c 28 a4 6d 76  |.mv(.,12))<<(.mv|
00008fc0  28 eb 2c 35 29 29 0d 2f  4e 05 e1 0d 2f 58 05 3a  |(.,5))./N.../X.:|
00008fd0  0d 2f 62 14 dd a4 6d 76  28 6d 6f 64 65 25 2c 76  |./b...mv(mode%,v|
00008fe0  61 72 25 29 0d 2f 6c 08  ea 20 76 25 0d 2f 76 2e  |ar%)./l.. v%./v.|
00008ff0  c8 99 20 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |.. "OS_ReadModeV|
00009000  61 72 69 61 62 6c 65 22  2c 6d 6f 64 65 25 2c 76  |ariable",mode%,v|
00009010  61 72 25 20 b8 20 2c 2c  76 25 0d 2f 80 07 3d 76  |ar% . ,,v%./..=v|
00009020  25 0d 2f 8a 05 3a 0d 2f  94 12 dd f2 63 6c 65 61  |%./..:./....clea|
00009030  72 5f 73 65 61 72 63 68  0d 2f 9e 1b ea 20 69 63  |r_search./... ic|
00009040  6f 6e 25 3a e3 20 69 63  6f 6e 25 3d 30 20 b8 20  |on%:. icon%=0 . |
00009050  31 32 31 0d 2f a8 25 f2  75 70 64 61 74 65 5f 69  |121./.%.update_i|
00009060  63 6f 6e 28 63 64 5f 66  6f 75 6e 64 25 2c 69 63  |con(cd_found%,ic|
00009070  6f 6e 25 2c 22 20 22 29  0d 2f b2 05 ed 0d 2f bc  |on%," ")./..../.|
00009080  48 f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 63 64  |H.update_icon(cd|
00009090  5f 66 6f 75 6e 64 25 2c  31 2c 22 63 6f 75 6c 64  |_found%,1,"could|
000090a0  20 62 65 20 66 6f 75 6e  64 20 69 6e 20 74 68 65  | be found in the|
000090b0  20 66 6f 6c 6c 6f 77 69  6e 67 20 72 65 63 6f 72  | following recor|
000090c0  64 73 3a 22 29 0d 2f c6  05 e1 0d 2f d0 05 3a 0d  |ds:")./..../..:.|
000090d0  2f da 14 dd f2 73 65 61  72 63 68 28 66 69 65 6c  |/....search(fiel|
000090e0  64 24 29 0d 2f e4 15 c8  99 20 22 48 6f 75 72 67  |d$)./.... "Hourg|
000090f0  6c 61 73 73 5f 4f 6e 22  0d 2f ee 19 66 6f 75 6e  |lass_On"./..foun|
00009100  64 69 63 6f 6e 25 3d 32  3a 66 6f 75 6e 64 25 3d  |dicon%=2:found%=|
00009110  30 0d 2f f8 29 73 65 61  72 63 68 73 74 72 69 6e  |0./.)searchstrin|
00009120  67 24 3d a4 69 6e 64 69  72 65 63 74 28 63 64 5f  |g$=.indirect(cd_|
00009130  73 65 61 72 63 68 25 2c  31 29 0d 30 02 5f e7 20  |search%,1).0._. |
00009140  73 65 61 72 63 68 73 74  72 69 6e 67 24 3d 22 22  |searchstring$=""|
00009150  20 8c 20 f2 63 6c 6f 73  65 28 63 64 5f 73 65 61  | . .close(cd_sea|
00009160  72 63 68 25 29 3a c8 99  20 22 57 69 6d 70 5f 43  |rch%):.. "Wimp_C|
00009170  72 65 61 74 65 4d 65 6e  75 22 2c 2c 2d 31 3a 85  |reateMenu",,-1:.|
00009180  20 31 2c 22 45 6e 74 65  72 20 73 65 61 72 63 68  | 1,"Enter search|
00009190  20 73 74 72 69 6e 67 2e  22 0d 30 0c 2b f2 75 70  | string.".0.+.up|
000091a0  64 61 74 65 5f 69 63 6f  6e 28 63 64 5f 66 6f 75  |date_icon(cd_fou|
000091b0  6e 64 25 2c 30 2c 73 65  61 72 63 68 73 74 72 69  |nd%,0,searchstri|
000091c0  6e 67 24 29 0d 30 16 0f  c8 8e 20 66 69 65 6c 64  |ng$).0.... field|
000091d0  24 20 ca 0d 30 20 0e c9  20 22 41 72 74 69 73 74  |$ ..0 .. "Artist|
000091e0  22 0d 30 2a 1d e3 20 6e  75 6d 62 65 72 25 3d 31  |".0*.. number%=1|
000091f0  20 b8 20 6d 61 78 5f 72  65 63 6f 72 64 25 0d 30  | . max_record%.0|
00009200  34 c7 e7 20 73 65 61 72  63 68 73 74 72 69 6e 67  |4.. searchstring|
00009210  24 3d 61 72 74 69 73 74  24 28 6e 75 6d 62 65 72  |$=artist$(number|
00009220  25 29 20 84 20 73 65 61  72 63 68 73 74 72 69 6e  |%) . searchstrin|
00009230  67 24 3d c0 61 72 74 69  73 74 24 28 6e 75 6d 62  |g$=.artist$(numb|
00009240  65 72 25 29 2c a9 73 65  61 72 63 68 73 74 72 69  |er%),.searchstri|
00009250  6e 67 24 29 20 84 20 73  65 61 72 63 68 73 74 72  |ng$) . searchstr|
00009260  69 6e 67 24 3d c2 61 72  74 69 73 74 24 28 6e 75  |ing$=.artist$(nu|
00009270  6d 62 65 72 25 29 2c a9  73 65 61 72 63 68 73 74  |mber%),.searchst|
00009280  72 69 6e 67 24 29 20 84  20 a7 61 72 74 69 73 74  |ring$) . .artist|
00009290  24 28 6e 75 6d 62 65 72  25 29 2c 73 65 61 72 63  |$(number%),searc|
000092a0  68 73 74 72 69 6e 67 24  29 3c 3e 30 20 8c 20 f2  |hstring$)<>0 . .|
000092b0  61 64 64 5f 74 6f 5f 66  6f 75 6e 64 28 6e 75 6d  |add_to_found(num|
000092c0  62 65 72 25 29 0d 30 3e  05 ed 0d 30 48 0d c9 20  |ber%).0>...0H.. |
000092d0  22 54 69 74 6c 65 22 0d  30 52 1d e3 20 6e 75 6d  |"Title".0R.. num|
000092e0  62 65 72 25 3d 31 20 b8  20 6d 61 78 5f 72 65 63  |ber%=1 . max_rec|
000092f0  6f 72 64 25 0d 30 5c c3  e7 20 73 65 61 72 63 68  |ord%.0\.. search|
00009300  73 74 72 69 6e 67 24 3d  74 69 74 6c 65 24 28 6e  |string$=title$(n|
00009310  75 6d 62 65 72 25 29 20  84 20 73 65 61 72 63 68  |umber%) . search|
00009320  73 74 72 69 6e 67 24 3d  c0 74 69 74 6c 65 24 28  |string$=.title$(|
00009330  6e 75 6d 62 65 72 25 29  2c a9 73 65 61 72 63 68  |number%),.search|
00009340  73 74 72 69 6e 67 24 29  20 84 20 73 65 61 72 63  |string$) . searc|
00009350  68 73 74 72 69 6e 67 24  3d c2 74 69 74 6c 65 24  |hstring$=.title$|
00009360  28 6e 75 6d 62 65 72 25  29 2c a9 73 65 61 72 63  |(number%),.searc|
00009370  68 73 74 72 69 6e 67 24  29 20 84 20 a7 74 69 74  |hstring$) . .tit|
00009380  6c 65 24 28 6e 75 6d 62  65 72 25 29 2c 73 65 61  |le$(number%),sea|
00009390  72 63 68 73 74 72 69 6e  67 24 29 3c 3e 30 20 8c  |rchstring$)<>0 .|
000093a0  20 f2 61 64 64 5f 74 6f  5f 66 6f 75 6e 64 28 6e  | .add_to_found(n|
000093b0  75 6d 62 65 72 25 29 0d  30 66 05 ed 0d 30 70 0e  |umber%).0f...0p.|
000093c0  c9 20 22 54 72 61 63 6b  73 22 0d 30 7a 1d e3 20  |. "Tracks".0z.. |
000093d0  6e 75 6d 62 65 72 25 3d  31 20 b8 20 6d 61 78 5f  |number%=1 . max_|
000093e0  72 65 63 6f 72 64 25 0d  30 84 b7 e7 20 73 65 61  |record%.0... sea|
000093f0  72 63 68 73 74 72 69 6e  67 24 3d 74 31 24 28 6e  |rchstring$=t1$(n|
00009400  75 6d 62 65 72 25 29 20  84 20 73 65 61 72 63 68  |umber%) . search|
00009410  73 74 72 69 6e 67 24 3d  c0 74 31 24 28 6e 75 6d  |string$=.t1$(num|
00009420  62 65 72 25 29 2c a9 73  65 61 72 63 68 73 74 72  |ber%),.searchstr|
00009430  69 6e 67 24 29 20 84 20  73 65 61 72 63 68 73 74  |ing$) . searchst|
00009440  72 69 6e 67 24 3d c2 74  31 24 28 6e 75 6d 62 65  |ring$=.t1$(numbe|
00009450  72 25 29 2c a9 73 65 61  72 63 68 73 74 72 69 6e  |r%),.searchstrin|
00009460  67 24 29 20 84 20 a7 74  31 24 28 6e 75 6d 62 65  |g$) . .t1$(numbe|
00009470  72 25 29 2c 73 65 61 72  63 68 73 74 72 69 6e 67  |r%),searchstring|
00009480  24 29 3c 3e 30 20 8c 20  f2 61 64 64 5f 74 6f 5f  |$)<>0 . .add_to_|
00009490  66 6f 75 6e 64 28 6e 75  6d 62 65 72 25 29 0d 30  |found(number%).0|
000094a0  8e b7 e7 20 73 65 61 72  63 68 73 74 72 69 6e 67  |... searchstring|
000094b0  24 3d 74 32 24 28 6e 75  6d 62 65 72 25 29 20 84  |$=t2$(number%) .|
000094c0  20 73 65 61 72 63 68 73  74 72 69 6e 67 24 3d c0  | searchstring$=.|
000094d0  74 32 24 28 6e 75 6d 62  65 72 25 29 2c a9 73 65  |t2$(number%),.se|
000094e0  61 72 63 68 73 74 72 69  6e 67 24 29 20 84 20 73  |archstring$) . s|
000094f0  65 61 72 63 68 73 74 72  69 6e 67 24 3d c2 74 32  |earchstring$=.t2|
00009500  24 28 6e 75 6d 62 65 72  25 29 2c a9 73 65 61 72  |$(number%),.sear|
00009510  63 68 73 74 72 69 6e 67  24 29 20 84 20 a7 74 32  |chstring$) . .t2|
00009520  24 28 6e 75 6d 62 65 72  25 29 2c 73 65 61 72 63  |$(number%),searc|
00009530  68 73 74 72 69 6e 67 24  29 3c 3e 30 20 8c 20 f2  |hstring$)<>0 . .|
00009540  61 64 64 5f 74 6f 5f 66  6f 75 6e 64 28 6e 75 6d  |add_to_found(num|
00009550  62 65 72 25 29 0d 30 98  b7 e7 20 73 65 61 72 63  |ber%).0... searc|
00009560  68 73 74 72 69 6e 67 24  3d 74 33 24 28 6e 75 6d  |hstring$=t3$(num|
00009570  62 65 72 25 29 20 84 20  73 65 61 72 63 68 73 74  |ber%) . searchst|
00009580  72 69 6e 67 24 3d c0 74  33 24 28 6e 75 6d 62 65  |ring$=.t3$(numbe|
00009590  72 25 29 2c a9 73 65 61  72 63 68 73 74 72 69 6e  |r%),.searchstrin|
000095a0  67 24 29 20 84 20 73 65  61 72 63 68 73 74 72 69  |g$) . searchstri|
000095b0  6e 67 24 3d c2 74 33 24  28 6e 75 6d 62 65 72 25  |ng$=.t3$(number%|
000095c0  29 2c a9 73 65 61 72 63  68 73 74 72 69 6e 67 24  |),.searchstring$|
000095d0  29 20 84 20 a7 74 33 24  28 6e 75 6d 62 65 72 25  |) . .t3$(number%|
000095e0  29 2c 73 65 61 72 63 68  73 74 72 69 6e 67 24 29  |),searchstring$)|
000095f0  3c 3e 30 20 8c 20 f2 61  64 64 5f 74 6f 5f 66 6f  |<>0 . .add_to_fo|
00009600  75 6e 64 28 6e 75 6d 62  65 72 25 29 0d 30 a2 b7  |und(number%).0..|
00009610  e7 20 73 65 61 72 63 68  73 74 72 69 6e 67 24 3d  |. searchstring$=|
00009620  74 34 24 28 6e 75 6d 62  65 72 25 29 20 84 20 73  |t4$(number%) . s|
00009630  65 61 72 63 68 73 74 72  69 6e 67 24 3d c0 74 34  |earchstring$=.t4|
00009640  24 28 6e 75 6d 62 65 72  25 29 2c a9 73 65 61 72  |$(number%),.sear|
00009650  63 68 73 74 72 69 6e 67  24 29 20 84 20 73 65 61  |chstring$) . sea|
00009660  72 63 68 73 74 72 69 6e  67 24 3d c2 74 34 24 28  |rchstring$=.t4$(|
00009670  6e 75 6d 62 65 72 25 29  2c a9 73 65 61 72 63 68  |number%),.search|
00009680  73 74 72 69 6e 67 24 29  20 84 20 a7 74 34 24 28  |string$) . .t4$(|
00009690  6e 75 6d 62 65 72 25 29  2c 73 65 61 72 63 68 73  |number%),searchs|
000096a0  74 72 69 6e 67 24 29 3c  3e 30 20 8c 20 f2 61 64  |tring$)<>0 . .ad|
000096b0  64 5f 74 6f 5f 66 6f 75  6e 64 28 6e 75 6d 62 65  |d_to_found(numbe|
000096c0  72 25 29 0d 30 ac b7 e7  20 73 65 61 72 63 68 73  |r%).0... searchs|
000096d0  74 72 69 6e 67 24 3d 74  35 24 28 6e 75 6d 62 65  |tring$=t5$(numbe|
000096e0  72 25 29 20 84 20 73 65  61 72 63 68 73 74 72 69  |r%) . searchstri|
000096f0  6e 67 24 3d c0 74 35 24  28 6e 75 6d 62 65 72 25  |ng$=.t5$(number%|
00009700  29 2c a9 73 65 61 72 63  68 73 74 72 69 6e 67 24  |),.searchstring$|
00009710  29 20 84 20 73 65 61 72  63 68 73 74 72 69 6e 67  |) . searchstring|
00009720  24 3d c2 74 35 24 28 6e  75 6d 62 65 72 25 29 2c  |$=.t5$(number%),|
00009730  a9 73 65 61 72 63 68 73  74 72 69 6e 67 24 29 20  |.searchstring$) |
00009740  84 20 a7 74 35 24 28 6e  75 6d 62 65 72 25 29 2c  |. .t5$(number%),|
00009750  73 65 61 72 63 68 73 74  72 69 6e 67 24 29 3c 3e  |searchstring$)<>|
00009760  30 20 8c 20 f2 61 64 64  5f 74 6f 5f 66 6f 75 6e  |0 . .add_to_foun|
00009770  64 28 6e 75 6d 62 65 72  25 29 0d 30 b6 b7 e7 20  |d(number%).0... |
00009780  73 65 61 72 63 68 73 74  72 69 6e 67 24 3d 74 36  |searchstring$=t6|
00009790  24 28 6e 75 6d 62 65 72  25 29 20 84 20 73 65 61  |$(number%) . sea|
000097a0  72 63 68 73 74 72 69 6e  67 24 3d c0 74 36 24 28  |rchstring$=.t6$(|
000097b0  6e 75 6d 62 65 72 25 29  2c a9 73 65 61 72 63 68  |number%),.search|
000097c0  73 74 72 69 6e 67 24 29  20 84 20 73 65 61 72 63  |string$) . searc|
000097d0  68 73 74 72 69 6e 67 24  3d c2 74 36 24 28 6e 75  |hstring$=.t6$(nu|
000097e0  6d 62 65 72 25 29 2c a9  73 65 61 72 63 68 73 74  |mber%),.searchst|
000097f0  72 69 6e 67 24 29 20 84  20 a7 74 36 24 28 6e 75  |ring$) . .t6$(nu|
00009800  6d 62 65 72 25 29 2c 73  65 61 72 63 68 73 74 72  |mber%),searchstr|
00009810  69 6e 67 24 29 3c 3e 30  20 8c 20 f2 61 64 64 5f  |ing$)<>0 . .add_|
00009820  74 6f 5f 66 6f 75 6e 64  28 6e 75 6d 62 65 72 25  |to_found(number%|
00009830  29 0d 30 c0 b7 e7 20 73  65 61 72 63 68 73 74 72  |).0... searchstr|
00009840  69 6e 67 24 3d 74 37 24  28 6e 75 6d 62 65 72 25  |ing$=t7$(number%|
00009850  29 20 84 20 73 65 61 72  63 68 73 74 72 69 6e 67  |) . searchstring|
00009860  24 3d c0 74 37 24 28 6e  75 6d 62 65 72 25 29 2c  |$=.t7$(number%),|
00009870  a9 73 65 61 72 63 68 73  74 72 69 6e 67 24 29 20  |.searchstring$) |
00009880  84 20 73 65 61 72 63 68  73 74 72 69 6e 67 24 3d  |. searchstring$=|
00009890  c2 74 37 24 28 6e 75 6d  62 65 72 25 29 2c a9 73  |.t7$(number%),.s|
000098a0  65 61 72 63 68 73 74 72  69 6e 67 24 29 20 84 20  |earchstring$) . |
000098b0  a7 74 37 24 28 6e 75 6d  62 65 72 25 29 2c 73 65  |.t7$(number%),se|
000098c0  61 72 63 68 73 74 72 69  6e 67 24 29 3c 3e 30 20  |archstring$)<>0 |
000098d0  8c 20 f2 61 64 64 5f 74  6f 5f 66 6f 75 6e 64 28  |. .add_to_found(|
000098e0  6e 75 6d 62 65 72 25 29  0d 30 ca b7 e7 20 73 65  |number%).0... se|
000098f0  61 72 63 68 73 74 72 69  6e 67 24 3d 74 38 24 28  |archstring$=t8$(|
00009900  6e 75 6d 62 65 72 25 29  20 84 20 73 65 61 72 63  |number%) . searc|
00009910  68 73 74 72 69 6e 67 24  3d c0 74 38 24 28 6e 75  |hstring$=.t8$(nu|
00009920  6d 62 65 72 25 29 2c a9  73 65 61 72 63 68 73 74  |mber%),.searchst|
00009930  72 69 6e 67 24 29 20 84  20 73 65 61 72 63 68 73  |ring$) . searchs|
00009940  74 72 69 6e 67 24 3d c2  74 38 24 28 6e 75 6d 62  |tring$=.t8$(numb|
00009950  65 72 25 29 2c a9 73 65  61 72 63 68 73 74 72 69  |er%),.searchstri|
00009960  6e 67 24 29 20 84 20 a7  74 38 24 28 6e 75 6d 62  |ng$) . .t8$(numb|
00009970  65 72 25 29 2c 73 65 61  72 63 68 73 74 72 69 6e  |er%),searchstrin|
00009980  67 24 29 3c 3e 30 20 8c  20 f2 61 64 64 5f 74 6f  |g$)<>0 . .add_to|
00009990  5f 66 6f 75 6e 64 28 6e  75 6d 62 65 72 25 29 0d  |_found(number%).|
000099a0  30 d4 b7 e7 20 73 65 61  72 63 68 73 74 72 69 6e  |0... searchstrin|
000099b0  67 24 3d 74 39 24 28 6e  75 6d 62 65 72 25 29 20  |g$=t9$(number%) |
000099c0  84 20 73 65 61 72 63 68  73 74 72 69 6e 67 24 3d  |. searchstring$=|
000099d0  c0 74 39 24 28 6e 75 6d  62 65 72 25 29 2c a9 73  |.t9$(number%),.s|
000099e0  65 61 72 63 68 73 74 72  69 6e 67 24 29 20 84 20  |earchstring$) . |
000099f0  73 65 61 72 63 68 73 74  72 69 6e 67 24 3d c2 74  |searchstring$=.t|
00009a00  39 24 28 6e 75 6d 62 65  72 25 29 2c a9 73 65 61  |9$(number%),.sea|
00009a10  72 63 68 73 74 72 69 6e  67 24 29 20 84 20 a7 74  |rchstring$) . .t|
00009a20  39 24 28 6e 75 6d 62 65  72 25 29 2c 73 65 61 72  |9$(number%),sear|
00009a30  63 68 73 74 72 69 6e 67  24 29 3c 3e 30 20 8c 20  |chstring$)<>0 . |
00009a40  f2 61 64 64 5f 74 6f 5f  66 6f 75 6e 64 28 6e 75  |.add_to_found(nu|
00009a50  6d 62 65 72 25 29 0d 30  de bb e7 20 73 65 61 72  |mber%).0... sear|
00009a60  63 68 73 74 72 69 6e 67  24 3d 74 31 30 24 28 6e  |chstring$=t10$(n|
00009a70  75 6d 62 65 72 25 29 20  84 20 73 65 61 72 63 68  |umber%) . search|
00009a80  73 74 72 69 6e 67 24 3d  c0 74 31 30 24 28 6e 75  |string$=.t10$(nu|
00009a90  6d 62 65 72 25 29 2c a9  73 65 61 72 63 68 73 74  |mber%),.searchst|
00009aa0  72 69 6e 67 24 29 20 84  20 73 65 61 72 63 68 73  |ring$) . searchs|
00009ab0  74 72 69 6e 67 24 3d c2  74 31 30 24 28 6e 75 6d  |tring$=.t10$(num|
00009ac0  62 65 72 25 29 2c a9 73  65 61 72 63 68 73 74 72  |ber%),.searchstr|
00009ad0  69 6e 67 24 29 20 84 20  a7 74 31 30 24 28 6e 75  |ing$) . .t10$(nu|
00009ae0  6d 62 65 72 25 29 2c 73  65 61 72 63 68 73 74 72  |mber%),searchstr|
00009af0  69 6e 67 24 29 3c 3e 30  20 8c 20 f2 61 64 64 5f  |ing$)<>0 . .add_|
00009b00  74 6f 5f 66 6f 75 6e 64  28 6e 75 6d 62 65 72 25  |to_found(number%|
00009b10  29 0d 30 e8 bb e7 20 73  65 61 72 63 68 73 74 72  |).0... searchstr|
00009b20  69 6e 67 24 3d 74 31 31  24 28 6e 75 6d 62 65 72  |ing$=t11$(number|
00009b30  25 29 20 84 20 73 65 61  72 63 68 73 74 72 69 6e  |%) . searchstrin|
00009b40  67 24 3d c0 74 31 31 24  28 6e 75 6d 62 65 72 25  |g$=.t11$(number%|
00009b50  29 2c a9 73 65 61 72 63  68 73 74 72 69 6e 67 24  |),.searchstring$|
00009b60  29 20 84 20 73 65 61 72  63 68 73 74 72 69 6e 67  |) . searchstring|
00009b70  24 3d c2 74 31 31 24 28  6e 75 6d 62 65 72 25 29  |$=.t11$(number%)|
00009b80  2c a9 73 65 61 72 63 68  73 74 72 69 6e 67 24 29  |,.searchstring$)|
00009b90  20 84 20 a7 74 31 31 24  28 6e 75 6d 62 65 72 25  | . .t11$(number%|
00009ba0  29 2c 73 65 61 72 63 68  73 74 72 69 6e 67 24 29  |),searchstring$)|
00009bb0  3c 3e 30 20 8c 20 f2 61  64 64 5f 74 6f 5f 66 6f  |<>0 . .add_to_fo|
00009bc0  75 6e 64 28 6e 75 6d 62  65 72 25 29 0d 30 f2 bb  |und(number%).0..|
00009bd0  e7 20 73 65 61 72 63 68  73 74 72 69 6e 67 24 3d  |. searchstring$=|
00009be0  74 31 32 24 28 6e 75 6d  62 65 72 25 29 20 84 20  |t12$(number%) . |
00009bf0  73 65 61 72 63 68 73 74  72 69 6e 67 24 3d c0 74  |searchstring$=.t|
00009c00  31 32 24 28 6e 75 6d 62  65 72 25 29 2c a9 73 65  |12$(number%),.se|
00009c10  61 72 63 68 73 74 72 69  6e 67 24 29 20 84 20 73  |archstring$) . s|
00009c20  65 61 72 63 68 73 74 72  69 6e 67 24 3d c2 74 31  |earchstring$=.t1|
00009c30  32 24 28 6e 75 6d 62 65  72 25 29 2c a9 73 65 61  |2$(number%),.sea|
00009c40  72 63 68 73 74 72 69 6e  67 24 29 20 84 20 a7 74  |rchstring$) . .t|
00009c50  31 32 24 28 6e 75 6d 62  65 72 25 29 2c 73 65 61  |12$(number%),sea|
00009c60  72 63 68 73 74 72 69 6e  67 24 29 3c 3e 30 20 8c  |rchstring$)<>0 .|
00009c70  20 f2 61 64 64 5f 74 6f  5f 66 6f 75 6e 64 28 6e  | .add_to_found(n|
00009c80  75 6d 62 65 72 25 29 0d  30 fc bb e7 20 73 65 61  |umber%).0... sea|
00009c90  72 63 68 73 74 72 69 6e  67 24 3d 74 31 33 24 28  |rchstring$=t13$(|
00009ca0  6e 75 6d 62 65 72 25 29  20 84 20 73 65 61 72 63  |number%) . searc|
00009cb0  68 73 74 72 69 6e 67 24  3d c0 74 31 33 24 28 6e  |hstring$=.t13$(n|
00009cc0  75 6d 62 65 72 25 29 2c  a9 73 65 61 72 63 68 73  |umber%),.searchs|
00009cd0  74 72 69 6e 67 24 29 20  84 20 73 65 61 72 63 68  |tring$) . search|
00009ce0  73 74 72 69 6e 67 24 3d  c2 74 31 33 24 28 6e 75  |string$=.t13$(nu|
00009cf0  6d 62 65 72 25 29 2c a9  73 65 61 72 63 68 73 74  |mber%),.searchst|
00009d00  72 69 6e 67 24 29 20 84  20 a7 74 31 33 24 28 6e  |ring$) . .t13$(n|
00009d10  75 6d 62 65 72 25 29 2c  73 65 61 72 63 68 73 74  |umber%),searchst|
00009d20  72 69 6e 67 24 29 3c 3e  30 20 8c 20 f2 61 64 64  |ring$)<>0 . .add|
00009d30  5f 74 6f 5f 66 6f 75 6e  64 28 6e 75 6d 62 65 72  |_to_found(number|
00009d40  25 29 0d 31 06 bb e7 20  73 65 61 72 63 68 73 74  |%).1... searchst|
00009d50  72 69 6e 67 24 3d 74 31  34 24 28 6e 75 6d 62 65  |ring$=t14$(numbe|
00009d60  72 25 29 20 84 20 73 65  61 72 63 68 73 74 72 69  |r%) . searchstri|
00009d70  6e 67 24 3d c0 74 31 34  24 28 6e 75 6d 62 65 72  |ng$=.t14$(number|
00009d80  25 29 2c a9 73 65 61 72  63 68 73 74 72 69 6e 67  |%),.searchstring|
00009d90  24 29 20 84 20 73 65 61  72 63 68 73 74 72 69 6e  |$) . searchstrin|
00009da0  67 24 3d c2 74 31 34 24  28 6e 75 6d 62 65 72 25  |g$=.t14$(number%|
00009db0  29 2c a9 73 65 61 72 63  68 73 74 72 69 6e 67 24  |),.searchstring$|
00009dc0  29 20 84 20 a7 74 31 34  24 28 6e 75 6d 62 65 72  |) . .t14$(number|
00009dd0  25 29 2c 73 65 61 72 63  68 73 74 72 69 6e 67 24  |%),searchstring$|
00009de0  29 3c 3e 30 20 8c 20 f2  61 64 64 5f 74 6f 5f 66  |)<>0 . .add_to_f|
00009df0  6f 75 6e 64 28 6e 75 6d  62 65 72 25 29 0d 31 10  |ound(number%).1.|
00009e00  bb e7 20 73 65 61 72 63  68 73 74 72 69 6e 67 24  |.. searchstring$|
00009e10  3d 74 31 35 24 28 6e 75  6d 62 65 72 25 29 20 84  |=t15$(number%) .|
00009e20  20 73 65 61 72 63 68 73  74 72 69 6e 67 24 3d c0  | searchstring$=.|
00009e30  74 31 35 24 28 6e 75 6d  62 65 72 25 29 2c a9 73  |t15$(number%),.s|
00009e40  65 61 72 63 68 73 74 72  69 6e 67 24 29 20 84 20  |earchstring$) . |
00009e50  73 65 61 72 63 68 73 74  72 69 6e 67 24 3d c2 74  |searchstring$=.t|
00009e60  31 35 24 28 6e 75 6d 62  65 72 25 29 2c a9 73 65  |15$(number%),.se|
00009e70  61 72 63 68 73 74 72 69  6e 67 24 29 20 84 20 a7  |archstring$) . .|
00009e80  74 31 35 24 28 6e 75 6d  62 65 72 25 29 2c 73 65  |t15$(number%),se|
00009e90  61 72 63 68 73 74 72 69  6e 67 24 29 3c 3e 30 20  |archstring$)<>0 |
00009ea0  8c 20 f2 61 64 64 5f 74  6f 5f 66 6f 75 6e 64 28  |. .add_to_found(|
00009eb0  6e 75 6d 62 65 72 25 29  0d 31 1a bb e7 20 73 65  |number%).1... se|
00009ec0  61 72 63 68 73 74 72 69  6e 67 24 3d 74 31 36 24  |archstring$=t16$|
00009ed0  28 6e 75 6d 62 65 72 25  29 20 84 20 73 65 61 72  |(number%) . sear|
00009ee0  63 68 73 74 72 69 6e 67  24 3d c0 74 31 36 24 28  |chstring$=.t16$(|
00009ef0  6e 75 6d 62 65 72 25 29  2c a9 73 65 61 72 63 68  |number%),.search|
00009f00  73 74 72 69 6e 67 24 29  20 84 20 73 65 61 72 63  |string$) . searc|
00009f10  68 73 74 72 69 6e 67 24  3d c2 74 31 36 24 28 6e  |hstring$=.t16$(n|
00009f20  75 6d 62 65 72 25 29 2c  a9 73 65 61 72 63 68 73  |umber%),.searchs|
00009f30  74 72 69 6e 67 24 29 20  84 20 a7 74 31 36 24 28  |tring$) . .t16$(|
00009f40  6e 75 6d 62 65 72 25 29  2c 73 65 61 72 63 68 73  |number%),searchs|
00009f50  74 72 69 6e 67 24 29 3c  3e 30 20 8c 20 f2 61 64  |tring$)<>0 . .ad|
00009f60  64 5f 74 6f 5f 66 6f 75  6e 64 28 6e 75 6d 62 65  |d_to_found(numbe|
00009f70  72 25 29 0d 31 24 bb e7  20 73 65 61 72 63 68 73  |r%).1$.. searchs|
00009f80  74 72 69 6e 67 24 3d 74  31 37 24 28 6e 75 6d 62  |tring$=t17$(numb|
00009f90  65 72 25 29 20 84 20 73  65 61 72 63 68 73 74 72  |er%) . searchstr|
00009fa0  69 6e 67 24 3d c0 74 31  37 24 28 6e 75 6d 62 65  |ing$=.t17$(numbe|
00009fb0  72 25 29 2c a9 73 65 61  72 63 68 73 74 72 69 6e  |r%),.searchstrin|
00009fc0  67 24 29 20 84 20 73 65  61 72 63 68 73 74 72 69  |g$) . searchstri|
00009fd0  6e 67 24 3d c2 74 31 37  24 28 6e 75 6d 62 65 72  |ng$=.t17$(number|
00009fe0  25 29 2c a9 73 65 61 72  63 68 73 74 72 69 6e 67  |%),.searchstring|
00009ff0  24 29 20 84 20 a7 74 31  37 24 28 6e 75 6d 62 65  |$) . .t17$(numbe|
0000a000  72 25 29 2c 73 65 61 72  63 68 73 74 72 69 6e 67  |r%),searchstring|
0000a010  24 29 3c 3e 30 20 8c 20  f2 61 64 64 5f 74 6f 5f  |$)<>0 . .add_to_|
0000a020  66 6f 75 6e 64 28 6e 75  6d 62 65 72 25 29 0d 31  |found(number%).1|
0000a030  2e bb e7 20 73 65 61 72  63 68 73 74 72 69 6e 67  |... searchstring|
0000a040  24 3d 74 31 38 24 28 6e  75 6d 62 65 72 25 29 20  |$=t18$(number%) |
0000a050  84 20 73 65 61 72 63 68  73 74 72 69 6e 67 24 3d  |. searchstring$=|
0000a060  c0 74 31 38 24 28 6e 75  6d 62 65 72 25 29 2c a9  |.t18$(number%),.|
0000a070  73 65 61 72 63 68 73 74  72 69 6e 67 24 29 20 84  |searchstring$) .|
0000a080  20 73 65 61 72 63 68 73  74 72 69 6e 67 24 3d c2  | searchstring$=.|
0000a090  74 31 38 24 28 6e 75 6d  62 65 72 25 29 2c a9 73  |t18$(number%),.s|
0000a0a0  65 61 72 63 68 73 74 72  69 6e 67 24 29 20 84 20  |earchstring$) . |
0000a0b0  a7 74 31 38 24 28 6e 75  6d 62 65 72 25 29 2c 73  |.t18$(number%),s|
0000a0c0  65 61 72 63 68 73 74 72  69 6e 67 24 29 3c 3e 30  |earchstring$)<>0|
0000a0d0  20 8c 20 f2 61 64 64 5f  74 6f 5f 66 6f 75 6e 64  | . .add_to_found|
0000a0e0  28 6e 75 6d 62 65 72 25  29 0d 31 38 bb e7 20 73  |(number%).18.. s|
0000a0f0  65 61 72 63 68 73 74 72  69 6e 67 24 3d 74 31 39  |earchstring$=t19|
0000a100  24 28 6e 75 6d 62 65 72  25 29 20 84 20 73 65 61  |$(number%) . sea|
0000a110  72 63 68 73 74 72 69 6e  67 24 3d c0 74 31 39 24  |rchstring$=.t19$|
0000a120  28 6e 75 6d 62 65 72 25  29 2c a9 73 65 61 72 63  |(number%),.searc|
0000a130  68 73 74 72 69 6e 67 24  29 20 84 20 73 65 61 72  |hstring$) . sear|
0000a140  63 68 73 74 72 69 6e 67  24 3d c2 74 31 39 24 28  |chstring$=.t19$(|
0000a150  6e 75 6d 62 65 72 25 29  2c a9 73 65 61 72 63 68  |number%),.search|
0000a160  73 74 72 69 6e 67 24 29  20 84 20 a7 74 31 39 24  |string$) . .t19$|
0000a170  28 6e 75 6d 62 65 72 25  29 2c 73 65 61 72 63 68  |(number%),search|
0000a180  73 74 72 69 6e 67 24 29  3c 3e 30 20 8c 20 f2 61  |string$)<>0 . .a|
0000a190  64 64 5f 74 6f 5f 66 6f  75 6e 64 28 6e 75 6d 62  |dd_to_found(numb|
0000a1a0  65 72 25 29 0d 31 42 bb  e7 20 73 65 61 72 63 68  |er%).1B.. search|
0000a1b0  73 74 72 69 6e 67 24 3d  74 32 30 24 28 6e 75 6d  |string$=t20$(num|
0000a1c0  62 65 72 25 29 20 84 20  73 65 61 72 63 68 73 74  |ber%) . searchst|
0000a1d0  72 69 6e 67 24 3d c0 74  32 30 24 28 6e 75 6d 62  |ring$=.t20$(numb|
0000a1e0  65 72 25 29 2c a9 73 65  61 72 63 68 73 74 72 69  |er%),.searchstri|
0000a1f0  6e 67 24 29 20 84 20 73  65 61 72 63 68 73 74 72  |ng$) . searchstr|
0000a200  69 6e 67 24 3d c2 74 32  30 24 28 6e 75 6d 62 65  |ing$=.t20$(numbe|
0000a210  72 25 29 2c a9 73 65 61  72 63 68 73 74 72 69 6e  |r%),.searchstrin|
0000a220  67 24 29 20 84 20 a7 74  32 30 24 28 6e 75 6d 62  |g$) . .t20$(numb|
0000a230  65 72 25 29 2c 73 65 61  72 63 68 73 74 72 69 6e  |er%),searchstrin|
0000a240  67 24 29 3c 3e 30 20 8c  20 f2 61 64 64 5f 74 6f  |g$)<>0 . .add_to|
0000a250  5f 66 6f 75 6e 64 28 6e  75 6d 62 65 72 25 29 0d  |_found(number%).|
0000a260  31 4c bb e7 20 73 65 61  72 63 68 73 74 72 69 6e  |1L.. searchstrin|
0000a270  67 24 3d 74 32 31 24 28  6e 75 6d 62 65 72 25 29  |g$=t21$(number%)|
0000a280  20 84 20 73 65 61 72 63  68 73 74 72 69 6e 67 24  | . searchstring$|
0000a290  3d c0 74 32 31 24 28 6e  75 6d 62 65 72 25 29 2c  |=.t21$(number%),|
0000a2a0  a9 73 65 61 72 63 68 73  74 72 69 6e 67 24 29 20  |.searchstring$) |
0000a2b0  84 20 73 65 61 72 63 68  73 74 72 69 6e 67 24 3d  |. searchstring$=|
0000a2c0  c2 74 32 31 24 28 6e 75  6d 62 65 72 25 29 2c a9  |.t21$(number%),.|
0000a2d0  73 65 61 72 63 68 73 74  72 69 6e 67 24 29 20 84  |searchstring$) .|
0000a2e0  20 a7 74 32 31 24 28 6e  75 6d 62 65 72 25 29 2c  | .t21$(number%),|
0000a2f0  73 65 61 72 63 68 73 74  72 69 6e 67 24 29 3c 3e  |searchstring$)<>|
0000a300  30 20 8c 20 f2 61 64 64  5f 74 6f 5f 66 6f 75 6e  |0 . .add_to_foun|
0000a310  64 28 6e 75 6d 62 65 72  25 29 0d 31 56 bb e7 20  |d(number%).1V.. |
0000a320  73 65 61 72 63 68 73 74  72 69 6e 67 24 3d 74 32  |searchstring$=t2|
0000a330  32 24 28 6e 75 6d 62 65  72 25 29 20 84 20 73 65  |2$(number%) . se|
0000a340  61 72 63 68 73 74 72 69  6e 67 24 3d c0 74 32 32  |archstring$=.t22|
0000a350  24 28 6e 75 6d 62 65 72  25 29 2c a9 73 65 61 72  |$(number%),.sear|
0000a360  63 68 73 74 72 69 6e 67  24 29 20 84 20 73 65 61  |chstring$) . sea|
0000a370  72 63 68 73 74 72 69 6e  67 24 3d c2 74 32 32 24  |rchstring$=.t22$|
0000a380  28 6e 75 6d 62 65 72 25  29 2c a9 73 65 61 72 63  |(number%),.searc|
0000a390  68 73 74 72 69 6e 67 24  29 20 84 20 a7 74 32 32  |hstring$) . .t22|
0000a3a0  24 28 6e 75 6d 62 65 72  25 29 2c 73 65 61 72 63  |$(number%),searc|
0000a3b0  68 73 74 72 69 6e 67 24  29 3c 3e 30 20 8c 20 f2  |hstring$)<>0 . .|
0000a3c0  61 64 64 5f 74 6f 5f 66  6f 75 6e 64 28 6e 75 6d  |add_to_found(num|
0000a3d0  62 65 72 25 29 0d 31 60  bb e7 20 73 65 61 72 63  |ber%).1`.. searc|
0000a3e0  68 73 74 72 69 6e 67 24  3d 74 32 33 24 28 6e 75  |hstring$=t23$(nu|
0000a3f0  6d 62 65 72 25 29 20 84  20 73 65 61 72 63 68 73  |mber%) . searchs|
0000a400  74 72 69 6e 67 24 3d c0  74 32 33 24 28 6e 75 6d  |tring$=.t23$(num|
0000a410  62 65 72 25 29 2c a9 73  65 61 72 63 68 73 74 72  |ber%),.searchstr|
0000a420  69 6e 67 24 29 20 84 20  73 65 61 72 63 68 73 74  |ing$) . searchst|
0000a430  72 69 6e 67 24 3d c2 74  32 33 24 28 6e 75 6d 62  |ring$=.t23$(numb|
0000a440  65 72 25 29 2c a9 73 65  61 72 63 68 73 74 72 69  |er%),.searchstri|
0000a450  6e 67 24 29 20 84 20 a7  74 32 33 24 28 6e 75 6d  |ng$) . .t23$(num|
0000a460  62 65 72 25 29 2c 73 65  61 72 63 68 73 74 72 69  |ber%),searchstri|
0000a470  6e 67 24 29 3c 3e 30 20  8c 20 f2 61 64 64 5f 74  |ng$)<>0 . .add_t|
0000a480  6f 5f 66 6f 75 6e 64 28  6e 75 6d 62 65 72 25 29  |o_found(number%)|
0000a490  0d 31 6a bb e7 20 73 65  61 72 63 68 73 74 72 69  |.1j.. searchstri|
0000a4a0  6e 67 24 3d 74 32 34 24  28 6e 75 6d 62 65 72 25  |ng$=t24$(number%|
0000a4b0  29 20 84 20 73 65 61 72  63 68 73 74 72 69 6e 67  |) . searchstring|
0000a4c0  24 3d c0 74 32 34 24 28  6e 75 6d 62 65 72 25 29  |$=.t24$(number%)|
0000a4d0  2c a9 73 65 61 72 63 68  73 74 72 69 6e 67 24 29  |,.searchstring$)|
0000a4e0  20 84 20 73 65 61 72 63  68 73 74 72 69 6e 67 24  | . searchstring$|
0000a4f0  3d c2 74 32 34 24 28 6e  75 6d 62 65 72 25 29 2c  |=.t24$(number%),|
0000a500  a9 73 65 61 72 63 68 73  74 72 69 6e 67 24 29 20  |.searchstring$) |
0000a510  84 20 a7 74 32 34 24 28  6e 75 6d 62 65 72 25 29  |. .t24$(number%)|
0000a520  2c 73 65 61 72 63 68 73  74 72 69 6e 67 24 29 3c  |,searchstring$)<|
0000a530  3e 30 20 8c 20 f2 61 64  64 5f 74 6f 5f 66 6f 75  |>0 . .add_to_fou|
0000a540  6e 64 28 6e 75 6d 62 65  72 25 29 0d 31 74 05 ed  |nd(number%).1t..|
0000a550  0d 31 7e 05 cb 0d 31 88  16 f2 63 6c 6f 73 65 28  |.1~...1...close(|
0000a560  63 64 5f 73 65 61 72 63  68 25 29 0d 31 92 21 f2  |cd_search%).1.!.|
0000a570  75 70 64 61 74 65 5f 69  63 6f 6e 28 63 64 5f 73  |update_icon(cd_s|
0000a580  65 61 72 63 68 25 2c 31  2c 22 22 29 0d 31 9c 1c  |earch%,1,"").1..|
0000a590  f2 6d 6f 76 65 5f 63 61  72 65 74 28 63 64 5f 69  |.move_caret(cd_i|
0000a5a0  6e 64 65 78 25 2c 39 29  0d 31 a6 1c c8 99 20 22  |ndex%,9).1.... "|
0000a5b0  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
0000a5c0  2c 2c 2d 31 0d 31 b0 16  c8 99 20 22 48 6f 75 72  |,,-1.1.... "Hour|
0000a5d0  67 6c 61 73 73 5f 4f 66  66 22 0d 31 ba 11 e7 20  |glass_Off".1... |
0000a5e0  66 6f 75 6e 64 25 3c 3e  30 20 8c 0d 31 c4 14 f2  |found%<>0 ..1...|
0000a5f0  6f 70 65 6e 28 63 64 5f  66 6f 75 6e 64 25 29 0d  |open(cd_found%).|
0000a600  31 ce 05 cc 0d 31 d8 39  f2 65 72 72 6f 72 28 31  |1....1.9.error(1|
0000a610  2c 22 27 22 2b 73 65 61  72 63 68 73 74 72 69 6e  |,"'"+searchstrin|
0000a620  67 24 2b 22 27 20 63 6f  75 6c 64 20 6e 6f 74 20  |g$+"' could not |
0000a630  62 65 20 66 6f 75 6e 64  2e 22 2c 31 29 0d 31 e2  |be found.",1).1.|
0000a640  05 cd 0d 31 ec a6 e7 20  66 6f 75 6e 64 25 3e 31  |...1... found%>1|
0000a650  32 30 20 8c 20 f2 65 72  72 6f 72 28 31 2c 22 27  |20 . .error(1,"'|
0000a660  22 2b 73 65 61 72 63 68  73 74 72 69 6e 67 24 2b  |"+searchstring$+|
0000a670  22 27 20 68 61 73 20 62  65 65 6e 20 66 6f 75 6e  |"' has been foun|
0000a680  64 20 69 6e 20 22 2b c3  28 66 6f 75 6e 64 25 29  |d in "+.(found%)|
0000a690  2b 22 20 72 65 63 6f 72  64 73 2e 20 54 68 65 20  |+" records. The |
0000a6a0  66 69 72 73 74 20 31 32  30 20 6f 63 63 75 72 61  |first 120 occura|
0000a6b0  6e 63 65 73 20 61 72 65  20 73 65 6c 65 63 74 61  |nces are selecta|
0000a6c0  62 6c 65 20 66 72 6f 6d  20 74 68 65 20 27 52 65  |ble from the 'Re|
0000a6d0  63 6f 72 64 73 20 46 6f  75 6e 64 27 20 77 69 6e  |cords Found' win|
0000a6e0  64 6f 77 2e 22 2c 31 29  0d 31 f6 05 e1 0d 32 00  |dow.",1).1....2.|
0000a6f0  05 3a 0d 32 0a 20 dd f2  61 64 64 5f 74 6f 5f 66  |.:.2. ..add_to_f|
0000a700  6f 75 6e 64 28 66 6f 75  6e 64 72 65 63 6f 72 64  |ound(foundrecord|
0000a710  25 29 0d 32 1e 49 e7 20  66 6f 75 6e 64 69 63 6f  |%).2.I. foundico|
0000a720  6e 25 3c 31 32 32 20 8c  20 f2 75 70 64 61 74 65  |n%<122 . .update|
0000a730  5f 69 63 6f 6e 28 63 64  5f 66 6f 75 6e 64 25 2c  |_icon(cd_found%,|
0000a740  66 6f 75 6e 64 69 63 6f  6e 25 2c c3 28 66 6f 75  |foundicon%,.(fou|
0000a750  6e 64 72 65 63 6f 72 64  25 29 29 0d 32 28 1b 66  |ndrecord%)).2(.f|
0000a760  6f 75 6e 64 69 63 6f 6e  25 2b 3d 31 3a 66 6f 75  |oundicon%+=1:fou|
0000a770  6e 64 25 2b 3d 31 0d 32  32 05 e1 0d 32 3c 05 3a  |nd%+=1.22...2<.:|
0000a780  0d 32 46 0f dd f2 63 6c  6f 73 65 5f 61 6c 6c 0d  |.2F...close_all.|
0000a790  32 50 75 f2 63 6c 6f 73  65 28 63 64 5f 77 61 69  |2Pu.close(cd_wai|
0000a7a0  74 25 29 3a f2 63 6c 6f  73 65 28 63 64 5f 70 72  |t%):.close(cd_pr|
0000a7b0  69 6e 74 25 29 3a f2 63  6c 6f 73 65 28 63 64 5f  |int%):.close(cd_|
0000a7c0  73 65 61 72 63 68 25 29  3a f2 63 6c 6f 73 65 28  |search%):.close(|
0000a7d0  63 64 5f 66 6f 75 6e 64  25 29 3a f2 63 6c 6f 73  |cd_found%):.clos|
0000a7e0  65 28 63 64 5f 71 75 69  74 25 29 3a c8 99 20 22  |e(cd_quit%):.. "|
0000a7f0  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
0000a800  2c 2c 2d 31 0d 32 5a 72  f2 63 6c 6f 73 65 28 63  |,,-1.2Zr.close(c|
0000a810  64 5f 63 6c 65 61 72 25  29 3a f2 63 6c 6f 73 65  |d_clear%):.close|
0000a820  28 63 64 5f 68 65 6c 70  25 29 3a f2 63 6c 6f 73  |(cd_help%):.clos|
0000a830  65 28 63 64 5f 69 6e 66  6f 62 6f 78 25 29 3a f2  |e(cd_infobox%):.|
0000a840  63 6c 6f 73 65 28 63 64  5f 73 61 76 65 62 6f 78  |close(cd_savebox|
0000a850  25 29 3a f2 63 6c 6f 73  65 28 63 64 5f 73 6f 72  |%):.close(cd_sor|
0000a860  74 25 29 3a f2 63 6c 6f  73 65 28 63 64 5f 74 72  |t%):.close(cd_tr|
0000a870  61 63 6b 73 25 29 0d 32  64 15 c8 97 20 c8 93 20  |acks%).2d... .. |
0000a880  30 2c 30 2c 63 78 25 2c  63 79 25 0d 32 6e 05 e1  |0,0,cx%,cy%.2n..|
0000a890  0d 32 78 05 3a 0d 32 82  14 dd f2 72 65 61 64 5f  |.2x.:.2....read_|
0000a8a0  74 72 61 63 6b 6c 69 73  74 0d 32 8c 2a 74 72 61  |tracklist.2.*tra|
0000a8b0  63 6b 5f 6e 75 6d 62 65  72 25 3d bb 28 a4 69 6e  |ck_number%=.(.in|
0000a8c0  64 69 72 65 63 74 28 63  64 5f 70 61 6e 65 25 2c  |direct(cd_pane%,|
0000a8d0  36 29 29 0d 32 96 2f 74  31 24 28 74 72 61 63 6b  |6)).2./t1$(track|
0000a8e0  5f 6e 75 6d 62 65 72 25  29 3d a4 69 6e 64 69 72  |_number%)=.indir|
0000a8f0  65 63 74 28 63 64 5f 74  72 61 63 6b 73 25 2c 32  |ect(cd_tracks%,2|
0000a900  34 29 0d 32 a0 2f 74 32  24 28 74 72 61 63 6b 5f  |4).2./t2$(track_|
0000a910  6e 75 6d 62 65 72 25 29  3d a4 69 6e 64 69 72 65  |number%)=.indire|
0000a920  63 74 28 63 64 5f 74 72  61 63 6b 73 25 2c 32 35  |ct(cd_tracks%,25|
0000a930  29 0d 32 aa 2f 74 33 24  28 74 72 61 63 6b 5f 6e  |).2./t3$(track_n|
0000a940  75 6d 62 65 72 25 29 3d  a4 69 6e 64 69 72 65 63  |umber%)=.indirec|
0000a950  74 28 63 64 5f 74 72 61  63 6b 73 25 2c 32 36 29  |t(cd_tracks%,26)|
0000a960  0d 32 b4 2f 74 34 24 28  74 72 61 63 6b 5f 6e 75  |.2./t4$(track_nu|
0000a970  6d 62 65 72 25 29 3d a4  69 6e 64 69 72 65 63 74  |mber%)=.indirect|
0000a980  28 63 64 5f 74 72 61 63  6b 73 25 2c 32 37 29 0d  |(cd_tracks%,27).|
0000a990  32 be 2f 74 35 24 28 74  72 61 63 6b 5f 6e 75 6d  |2./t5$(track_num|
0000a9a0  62 65 72 25 29 3d a4 69  6e 64 69 72 65 63 74 28  |ber%)=.indirect(|
0000a9b0  63 64 5f 74 72 61 63 6b  73 25 2c 32 38 29 0d 32  |cd_tracks%,28).2|
0000a9c0  c8 2f 74 36 24 28 74 72  61 63 6b 5f 6e 75 6d 62  |./t6$(track_numb|
0000a9d0  65 72 25 29 3d a4 69 6e  64 69 72 65 63 74 28 63  |er%)=.indirect(c|
0000a9e0  64 5f 74 72 61 63 6b 73  25 2c 32 39 29 0d 32 d2  |d_tracks%,29).2.|
0000a9f0  2f 74 37 24 28 74 72 61  63 6b 5f 6e 75 6d 62 65  |/t7$(track_numbe|
0000aa00  72 25 29 3d a4 69 6e 64  69 72 65 63 74 28 63 64  |r%)=.indirect(cd|
0000aa10  5f 74 72 61 63 6b 73 25  2c 33 30 29 0d 32 dc 2f  |_tracks%,30).2./|
0000aa20  74 38 24 28 74 72 61 63  6b 5f 6e 75 6d 62 65 72  |t8$(track_number|
0000aa30  25 29 3d a4 69 6e 64 69  72 65 63 74 28 63 64 5f  |%)=.indirect(cd_|
0000aa40  74 72 61 63 6b 73 25 2c  33 31 29 0d 32 e6 2f 74  |tracks%,31).2./t|
0000aa50  39 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |9$(track_number%|
0000aa60  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000aa70  72 61 63 6b 73 25 2c 33  32 29 0d 32 f0 30 74 31  |racks%,32).2.0t1|
0000aa80  30 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |0$(track_number%|
0000aa90  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000aaa0  72 61 63 6b 73 25 2c 33  33 29 0d 32 fa 30 74 31  |racks%,33).2.0t1|
0000aab0  31 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |1$(track_number%|
0000aac0  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000aad0  72 61 63 6b 73 25 2c 33  34 29 0d 33 04 30 74 31  |racks%,34).3.0t1|
0000aae0  32 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |2$(track_number%|
0000aaf0  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000ab00  72 61 63 6b 73 25 2c 33  35 29 0d 33 0e 30 74 31  |racks%,35).3.0t1|
0000ab10  33 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |3$(track_number%|
0000ab20  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000ab30  72 61 63 6b 73 25 2c 33  36 29 0d 33 18 30 74 31  |racks%,36).3.0t1|
0000ab40  34 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |4$(track_number%|
0000ab50  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000ab60  72 61 63 6b 73 25 2c 33  37 29 0d 33 22 30 74 31  |racks%,37).3"0t1|
0000ab70  35 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |5$(track_number%|
0000ab80  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000ab90  72 61 63 6b 73 25 2c 33  38 29 0d 33 2c 30 74 31  |racks%,38).3,0t1|
0000aba0  36 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |6$(track_number%|
0000abb0  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000abc0  72 61 63 6b 73 25 2c 33  39 29 0d 33 36 30 74 31  |racks%,39).360t1|
0000abd0  37 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |7$(track_number%|
0000abe0  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000abf0  72 61 63 6b 73 25 2c 34  30 29 0d 33 40 30 74 31  |racks%,40).3@0t1|
0000ac00  38 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |8$(track_number%|
0000ac10  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000ac20  72 61 63 6b 73 25 2c 34  31 29 0d 33 4a 30 74 31  |racks%,41).3J0t1|
0000ac30  39 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |9$(track_number%|
0000ac40  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000ac50  72 61 63 6b 73 25 2c 34  32 29 0d 33 54 30 74 32  |racks%,42).3T0t2|
0000ac60  30 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |0$(track_number%|
0000ac70  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000ac80  72 61 63 6b 73 25 2c 34  33 29 0d 33 5e 30 74 32  |racks%,43).3^0t2|
0000ac90  31 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |1$(track_number%|
0000aca0  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000acb0  72 61 63 6b 73 25 2c 34  34 29 0d 33 68 30 74 32  |racks%,44).3h0t2|
0000acc0  32 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |2$(track_number%|
0000acd0  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000ace0  72 61 63 6b 73 25 2c 34  35 29 0d 33 72 30 74 32  |racks%,45).3r0t2|
0000acf0  33 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |3$(track_number%|
0000ad00  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000ad10  72 61 63 6b 73 25 2c 34  36 29 0d 33 7c 30 74 32  |racks%,46).3|0t2|
0000ad20  34 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |4$(track_number%|
0000ad30  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000ad40  72 61 63 6b 73 25 2c 34  37 29 0d 33 86 1c 74 72  |racks%,47).3..tr|
0000ad50  61 63 6b 24 28 74 72 61  63 6b 5f 6e 75 6d 62 65  |ack$(track_numbe|
0000ad60  72 25 29 3d 22 22 0d 33  90 b7 e7 20 74 31 24 28  |r%)="".3... t1$(|
0000ad70  74 72 61 63 6b 5f 6e 75  6d 62 65 72 25 29 3c 3e  |track_number%)<>|
0000ad80  22 22 20 84 20 74 32 24  28 74 72 61 63 6b 5f 6e  |"" . t2$(track_n|
0000ad90  75 6d 62 65 72 25 29 3c  3e 22 22 20 84 20 74 33  |umber%)<>"" . t3|
0000ada0  24 28 74 72 61 63 6b 5f  6e 75 6d 62 65 72 25 29  |$(track_number%)|
0000adb0  3c 3e 22 22 20 84 20 74  34 24 28 74 72 61 63 6b  |<>"" . t4$(track|
0000adc0  5f 6e 75 6d 62 65 72 25  29 3c 3e 22 22 20 84 20  |_number%)<>"" . |
0000add0  74 35 24 28 74 72 61 63  6b 5f 6e 75 6d 62 65 72  |t5$(track_number|
0000ade0  25 29 3c 3e 22 22 20 84  20 74 36 24 28 74 72 61  |%)<>"" . t6$(tra|
0000adf0  63 6b 5f 6e 75 6d 62 65  72 25 29 3c 3e 22 22 20  |ck_number%)<>"" |
0000ae00  8c 20 74 72 61 63 6b 24  28 74 72 61 63 6b 5f 6e  |. track$(track_n|
0000ae10  75 6d 62 65 72 25 29 3d  22 59 65 73 22 0d 33 9a  |umber%)="Yes".3.|
0000ae20  bb e7 20 74 31 37 24 28  74 72 61 63 6b 5f 6e 75  |.. t17$(track_nu|
0000ae30  6d 62 65 72 25 29 3c 3e  22 22 20 84 20 74 38 24  |mber%)<>"" . t8$|
0000ae40  28 74 72 61 63 6b 5f 6e  75 6d 62 65 72 25 29 3c  |(track_number%)<|
0000ae50  3e 22 22 20 84 20 74 39  24 28 74 72 61 63 6b 5f  |>"" . t9$(track_|
0000ae60  6e 75 6d 62 65 72 25 29  3c 3e 22 22 20 84 20 74  |number%)<>"" . t|
0000ae70  31 30 24 28 74 72 61 63  6b 5f 6e 75 6d 62 65 72  |10$(track_number|
0000ae80  25 29 3c 3e 22 22 20 84  20 74 31 31 24 28 74 72  |%)<>"" . t11$(tr|
0000ae90  61 63 6b 5f 6e 75 6d 62  65 72 25 29 3c 3e 22 22  |ack_number%)<>""|
0000aea0  20 84 20 74 31 32 24 28  74 72 61 63 6b 5f 6e 75  | . t12$(track_nu|
0000aeb0  6d 62 65 72 25 29 3c 3e  22 22 20 8c 20 74 72 61  |mber%)<>"" . tra|
0000aec0  63 6b 24 28 74 72 61 63  6b 5f 6e 75 6d 62 65 72  |ck$(track_number|
0000aed0  25 29 3d 22 59 65 73 22  0d 33 a4 bd e7 20 74 31  |%)="Yes".3... t1|
0000aee0  33 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |3$(track_number%|
0000aef0  29 3c 3e 22 22 20 84 20  74 31 34 24 28 74 72 61  |)<>"" . t14$(tra|
0000af00  63 6b 5f 6e 75 6d 62 65  72 25 29 3c 3e 22 22 20  |ck_number%)<>"" |
0000af10  84 20 74 31 35 24 28 74  72 61 63 6b 5f 6e 75 6d  |. t15$(track_num|
0000af20  62 65 72 25 29 3c 3e 22  22 20 84 20 74 31 36 24  |ber%)<>"" . t16$|
0000af30  28 74 72 61 63 6b 5f 6e  75 6d 62 65 72 25 29 3c  |(track_number%)<|
0000af40  3e 22 22 20 84 20 74 31  37 24 28 74 72 61 63 6b  |>"" . t17$(track|
0000af50  5f 6e 75 6d 62 65 72 25  29 3c 3e 22 22 20 84 20  |_number%)<>"" . |
0000af60  74 31 38 24 28 74 72 61  63 6b 5f 6e 75 6d 62 65  |t18$(track_numbe|
0000af70  72 25 29 3c 3e 22 22 20  8c 20 74 72 61 63 6b 24  |r%)<>"" . track$|
0000af80  28 74 72 61 63 6b 5f 6e  75 6d 62 65 72 25 29 3d  |(track_number%)=|
0000af90  22 59 65 73 22 0d 33 ae  bd e7 20 74 31 39 24 28  |"Yes".3... t19$(|
0000afa0  74 72 61 63 6b 5f 6e 75  6d 62 65 72 25 29 3c 3e  |track_number%)<>|
0000afb0  22 22 20 84 20 74 32 30  24 28 74 72 61 63 6b 5f  |"" . t20$(track_|
0000afc0  6e 75 6d 62 65 72 25 29  3c 3e 22 22 20 84 20 74  |number%)<>"" . t|
0000afd0  32 31 24 28 74 72 61 63  6b 5f 6e 75 6d 62 65 72  |21$(track_number|
0000afe0  25 29 3c 3e 22 22 20 84  20 74 32 32 24 28 74 72  |%)<>"" . t22$(tr|
0000aff0  61 63 6b 5f 6e 75 6d 62  65 72 25 29 3c 3e 22 22  |ack_number%)<>""|
0000b000  20 84 20 74 32 33 24 28  74 72 61 63 6b 5f 6e 75  | . t23$(track_nu|
0000b010  6d 62 65 72 25 29 3c 3e  22 22 20 84 20 74 32 34  |mber%)<>"" . t24|
0000b020  24 28 74 72 61 63 6b 5f  6e 75 6d 62 65 72 25 29  |$(track_number%)|
0000b030  3c 3e 22 22 20 8c 20 74  72 61 63 6b 24 28 74 72  |<>"" . track$(tr|
0000b040  61 63 6b 5f 6e 75 6d 62  65 72 25 29 3d 22 59 65  |ack_number%)="Ye|
0000b050  73 22 0d 33 b8 05 e1 0d  33 c2 05 3a 0d 33 cc 13  |s".3....3..:.3..|
0000b060  dd f2 75 70 64 61 74 65  5f 74 72 61 63 6b 73 0d  |..update_tracks.|
0000b070  33 d6 10 e3 20 58 25 3d  32 34 20 b8 20 34 37 0d  |3... X%=24 . 47.|
0000b080  33 e0 1a 21 71 25 3d 63  64 5f 74 72 61 63 6b 73  |3..!q%=cd_tracks|
0000b090  25 3a 71 25 21 34 3d 58  25 0d 33 ea 1e c8 99 20  |%:q%!4=X%.3.... |
0000b0a0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
0000b0b0  74 65 22 2c 2c 71 25 0d  33 f4 17 24 28 71 25 21  |te",,q%.3..$(q%!|
0000b0c0  32 38 29 3d 22 22 3a 71  25 21 33 36 3d 31 0d 33  |28)="":q%!36=1.3|
0000b0d0  fe 12 71 25 21 38 3d 30  3a 71 25 21 31 32 3d 30  |..q%!8=0:q%!12=0|
0000b0e0  0d 34 08 1e c8 99 20 22  57 69 6d 70 5f 53 65 74  |.4.... "Wimp_Set|
0000b0f0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 71 25 0d 34  |IconState",,q%.4|
0000b100  12 05 ed 0d 34 1c 2a 74  72 61 63 6b 5f 6e 75 6d  |....4.*track_num|
0000b110  62 65 72 25 3d bb 28 a4  69 6e 64 69 72 65 63 74  |ber%=.(.indirect|
0000b120  28 63 64 5f 70 61 6e 65  25 2c 36 29 29 0d 34 26  |(cd_pane%,6)).4&|
0000b130  32 f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 63 64  |2.update_icon(cd|
0000b140  5f 74 72 61 63 6b 73 25  2c 32 34 2c 74 31 24 28  |_tracks%,24,t1$(|
0000b150  74 72 61 63 6b 5f 6e 75  6d 62 65 72 25 29 29 0d  |track_number%)).|
0000b160  34 30 32 f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |402.update_icon(|
0000b170  63 64 5f 74 72 61 63 6b  73 25 2c 32 35 2c 74 32  |cd_tracks%,25,t2|
0000b180  24 28 74 72 61 63 6b 5f  6e 75 6d 62 65 72 25 29  |$(track_number%)|
0000b190  29 0d 34 3a 32 f2 75 70  64 61 74 65 5f 69 63 6f  |).4:2.update_ico|
0000b1a0  6e 28 63 64 5f 74 72 61  63 6b 73 25 2c 32 36 2c  |n(cd_tracks%,26,|
0000b1b0  74 33 24 28 74 72 61 63  6b 5f 6e 75 6d 62 65 72  |t3$(track_number|
0000b1c0  25 29 29 0d 34 44 32 f2  75 70 64 61 74 65 5f 69  |%)).4D2.update_i|
0000b1d0  63 6f 6e 28 63 64 5f 74  72 61 63 6b 73 25 2c 32  |con(cd_tracks%,2|
0000b1e0  37 2c 74 34 24 28 74 72  61 63 6b 5f 6e 75 6d 62  |7,t4$(track_numb|
0000b1f0  65 72 25 29 29 0d 34 4e  32 f2 75 70 64 61 74 65  |er%)).4N2.update|
0000b200  5f 69 63 6f 6e 28 63 64  5f 74 72 61 63 6b 73 25  |_icon(cd_tracks%|
0000b210  2c 32 38 2c 74 35 24 28  74 72 61 63 6b 5f 6e 75  |,28,t5$(track_nu|
0000b220  6d 62 65 72 25 29 29 0d  34 58 32 f2 75 70 64 61  |mber%)).4X2.upda|
0000b230  74 65 5f 69 63 6f 6e 28  63 64 5f 74 72 61 63 6b  |te_icon(cd_track|
0000b240  73 25 2c 32 39 2c 74 36  24 28 74 72 61 63 6b 5f  |s%,29,t6$(track_|
0000b250  6e 75 6d 62 65 72 25 29  29 0d 34 62 32 f2 75 70  |number%)).4b2.up|
0000b260  64 61 74 65 5f 69 63 6f  6e 28 63 64 5f 74 72 61  |date_icon(cd_tra|
0000b270  63 6b 73 25 2c 33 30 2c  74 37 24 28 74 72 61 63  |cks%,30,t7$(trac|
0000b280  6b 5f 6e 75 6d 62 65 72  25 29 29 0d 34 6c 32 f2  |k_number%)).4l2.|
0000b290  75 70 64 61 74 65 5f 69  63 6f 6e 28 63 64 5f 74  |update_icon(cd_t|
0000b2a0  72 61 63 6b 73 25 2c 33  31 2c 74 38 24 28 74 72  |racks%,31,t8$(tr|
0000b2b0  61 63 6b 5f 6e 75 6d 62  65 72 25 29 29 0d 34 76  |ack_number%)).4v|
0000b2c0  32 f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 63 64  |2.update_icon(cd|
0000b2d0  5f 74 72 61 63 6b 73 25  2c 33 32 2c 74 39 24 28  |_tracks%,32,t9$(|
0000b2e0  74 72 61 63 6b 5f 6e 75  6d 62 65 72 25 29 29 0d  |track_number%)).|
0000b2f0  34 80 33 f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |4.3.update_icon(|
0000b300  63 64 5f 74 72 61 63 6b  73 25 2c 33 33 2c 74 31  |cd_tracks%,33,t1|
0000b310  30 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |0$(track_number%|
0000b320  29 29 0d 34 8a 33 f2 75  70 64 61 74 65 5f 69 63  |)).4.3.update_ic|
0000b330  6f 6e 28 63 64 5f 74 72  61 63 6b 73 25 2c 33 34  |on(cd_tracks%,34|
0000b340  2c 74 31 31 24 28 74 72  61 63 6b 5f 6e 75 6d 62  |,t11$(track_numb|
0000b350  65 72 25 29 29 0d 34 94  33 f2 75 70 64 61 74 65  |er%)).4.3.update|
0000b360  5f 69 63 6f 6e 28 63 64  5f 74 72 61 63 6b 73 25  |_icon(cd_tracks%|
0000b370  2c 33 35 2c 74 31 32 24  28 74 72 61 63 6b 5f 6e  |,35,t12$(track_n|
0000b380  75 6d 62 65 72 25 29 29  0d 34 9e 33 f2 75 70 64  |umber%)).4.3.upd|
0000b390  61 74 65 5f 69 63 6f 6e  28 63 64 5f 74 72 61 63  |ate_icon(cd_trac|
0000b3a0  6b 73 25 2c 33 36 2c 74  31 33 24 28 74 72 61 63  |ks%,36,t13$(trac|
0000b3b0  6b 5f 6e 75 6d 62 65 72  25 29 29 0d 34 a8 33 f2  |k_number%)).4.3.|
0000b3c0  75 70 64 61 74 65 5f 69  63 6f 6e 28 63 64 5f 74  |update_icon(cd_t|
0000b3d0  72 61 63 6b 73 25 2c 33  37 2c 74 31 34 24 28 74  |racks%,37,t14$(t|
0000b3e0  72 61 63 6b 5f 6e 75 6d  62 65 72 25 29 29 0d 34  |rack_number%)).4|
0000b3f0  b2 33 f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 63  |.3.update_icon(c|
0000b400  64 5f 74 72 61 63 6b 73  25 2c 33 38 2c 74 31 35  |d_tracks%,38,t15|
0000b410  24 28 74 72 61 63 6b 5f  6e 75 6d 62 65 72 25 29  |$(track_number%)|
0000b420  29 0d 34 bc 33 f2 75 70  64 61 74 65 5f 69 63 6f  |).4.3.update_ico|
0000b430  6e 28 63 64 5f 74 72 61  63 6b 73 25 2c 33 39 2c  |n(cd_tracks%,39,|
0000b440  74 31 36 24 28 74 72 61  63 6b 5f 6e 75 6d 62 65  |t16$(track_numbe|
0000b450  72 25 29 29 0d 34 c6 33  f2 75 70 64 61 74 65 5f  |r%)).4.3.update_|
0000b460  69 63 6f 6e 28 63 64 5f  74 72 61 63 6b 73 25 2c  |icon(cd_tracks%,|
0000b470  34 30 2c 74 31 37 24 28  74 72 61 63 6b 5f 6e 75  |40,t17$(track_nu|
0000b480  6d 62 65 72 25 29 29 0d  34 d0 33 f2 75 70 64 61  |mber%)).4.3.upda|
0000b490  74 65 5f 69 63 6f 6e 28  63 64 5f 74 72 61 63 6b  |te_icon(cd_track|
0000b4a0  73 25 2c 34 31 2c 74 31  38 24 28 74 72 61 63 6b  |s%,41,t18$(track|
0000b4b0  5f 6e 75 6d 62 65 72 25  29 29 0d 34 da 33 f2 75  |_number%)).4.3.u|
0000b4c0  70 64 61 74 65 5f 69 63  6f 6e 28 63 64 5f 74 72  |pdate_icon(cd_tr|
0000b4d0  61 63 6b 73 25 2c 34 32  2c 74 31 39 24 28 74 72  |acks%,42,t19$(tr|
0000b4e0  61 63 6b 5f 6e 75 6d 62  65 72 25 29 29 0d 34 e4  |ack_number%)).4.|
0000b4f0  33 f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 63 64  |3.update_icon(cd|
0000b500  5f 74 72 61 63 6b 73 25  2c 34 33 2c 74 32 30 24  |_tracks%,43,t20$|
0000b510  28 74 72 61 63 6b 5f 6e  75 6d 62 65 72 25 29 29  |(track_number%))|
0000b520  0d 34 ee 33 f2 75 70 64  61 74 65 5f 69 63 6f 6e  |.4.3.update_icon|
0000b530  28 63 64 5f 74 72 61 63  6b 73 25 2c 34 34 2c 74  |(cd_tracks%,44,t|
0000b540  32 31 24 28 74 72 61 63  6b 5f 6e 75 6d 62 65 72  |21$(track_number|
0000b550  25 29 29 0d 34 f8 33 f2  75 70 64 61 74 65 5f 69  |%)).4.3.update_i|
0000b560  63 6f 6e 28 63 64 5f 74  72 61 63 6b 73 25 2c 34  |con(cd_tracks%,4|
0000b570  35 2c 74 32 32 24 28 74  72 61 63 6b 5f 6e 75 6d  |5,t22$(track_num|
0000b580  62 65 72 25 29 29 0d 35  02 33 f2 75 70 64 61 74  |ber%)).5.3.updat|
0000b590  65 5f 69 63 6f 6e 28 63  64 5f 74 72 61 63 6b 73  |e_icon(cd_tracks|
0000b5a0  25 2c 34 36 2c 74 32 33  24 28 74 72 61 63 6b 5f  |%,46,t23$(track_|
0000b5b0  6e 75 6d 62 65 72 25 29  29 0d 35 0c 33 f2 75 70  |number%)).5.3.up|
0000b5c0  64 61 74 65 5f 69 63 6f  6e 28 63 64 5f 74 72 61  |date_icon(cd_tra|
0000b5d0  63 6b 73 25 2c 34 37 2c  74 32 34 24 28 74 72 61  |cks%,47,t24$(tra|
0000b5e0  63 6b 5f 6e 75 6d 62 65  72 25 29 29 0d 35 16 05  |ck_number%)).5..|
0000b5f0  e1 0d 35 20 05 3a 0d 35  2a 1f dd f2 62 75 66 66  |..5 .:.5*...buff|
0000b600  65 72 73 69 7a 65 28 73  69 7a 65 25 2c 6e 75 6d  |ersize(size%,num|
0000b610  62 65 72 24 29 0d 35 34  1a 6e 65 77 62 75 66 73  |ber$).54.newbufs|
0000b620  69 7a 65 25 3d 73 69 7a  65 25 2a 31 30 32 34 0d  |ize%=size%*1024.|
0000b630  35 3e 37 c8 99 20 22 57  69 6d 70 5f 53 6c 6f 74  |5>7.. "Wimp_Slot|
0000b640  53 69 7a 65 22 2c 72 61  25 2d 26 38 30 30 30 2b  |Size",ra%-&8000+|
0000b650  6e 65 77 62 75 66 73 69  7a 65 25 2c 2d 31 20 b8  |newbufsize%,-1 .|
0000b660  20 73 6f 63 73 25 0d 35  48 1d 62 75 66 66 65 72  | socs%.5H.buffer|
0000b670  6f 6b 25 3d b9 3a 6c 6f  61 64 5f 65 72 72 6f 72  |ok%=.:load_error|
0000b680  25 3d a3 0d 35 52 a7 e7  20 73 6f 63 73 25 3c 28  |%=..5R.. socs%<(|
0000b690  72 61 25 2d 26 38 30 30  30 2b 6e 65 77 62 75 66  |ra%-&8000+newbuf|
0000b6a0  73 69 7a 65 25 29 20 8c  20 c8 99 20 22 57 69 6d  |size%) . .. "Wim|
0000b6b0  70 5f 53 6c 6f 74 53 69  7a 65 22 2c 72 61 25 2d  |p_SlotSize",ra%-|
0000b6c0  26 38 30 30 30 2b 72 61  73 69 7a 65 25 3a 62 75  |&8000+rasize%:bu|
0000b6d0  66 66 65 72 6f 6b 25 3d  a3 3a 6c 6f 61 64 5f 65  |fferok%=.:load_e|
0000b6e0  72 72 6f 72 25 3d b9 3a  f2 6d 65 73 73 61 67 65  |rror%=.:.message|
0000b6f0  28 22 49 6e 73 75 66 66  69 63 69 65 6e 74 20 6d  |("Insufficient m|
0000b700  65 6d 6f 72 79 20 61 76  61 69 6c 61 62 6c 65 20  |emory available |
0000b710  66 6f 72 20 22 2b 6e 75  6d 62 65 72 24 2b 22 20  |for "+number$+" |
0000b720  72 65 63 6f 72 64 73 2e  22 29 0d 35 5c 1f 72 61  |records.").5\.ra|
0000b730  73 69 7a 65 25 3d 73 6f  63 73 25 2d 28 72 61 25  |size%=socs%-(ra%|
0000b740  2d 26 38 30 30 30 29 2d  31 0d 35 66 05 e1 0d 35  |-&8000)-1.5f...5|
0000b750  70 05 3a 0d 35 7a 11 dd  f2 6d 65 73 73 61 67 65  |p.:.5z...message|
0000b760  28 6d 24 29 0d 35 84 14  21 71 25 3d 30 3a 24 28  |(m$).5..!q%=0:$(|
0000b770  71 25 2b 34 29 3d 6d 24  0d 35 8e 29 c8 99 20 22  |q%+4)=m$.5.).. "|
0000b780  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
0000b790  22 2c 71 25 2c 31 2c 22  43 44 20 49 6e 64 65 78  |",q%,1,"CD Index|
0000b7a0  22 0d 35 98 05 e1 0d 35  a2 05 3a 0d 35 ac 12 dd  |".5....5..:.5...|
0000b7b0  f2 63 6c 65 61 72 5f 73  69 6e 67 6c 65 0d 35 b6  |.clear_single.5.|
0000b7c0  0e e3 20 58 3d 39 20 b8  20 31 36 0d 35 c0 20 f2  |.. X=9 . 16.5. .|
0000b7d0  75 70 64 61 74 65 5f 69  63 6f 6e 28 63 64 5f 69  |update_icon(cd_i|
0000b7e0  6e 64 65 78 25 2c 58 2c  22 22 29 0d 35 ca 05 ed  |ndex%,X,"").5...|
0000b7f0  0d 35 d4 0f e3 20 58 3d  32 34 20 b8 20 34 37 0d  |.5... X=24 . 47.|
0000b800  35 de 21 f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |5.!.update_icon(|
0000b810  63 64 5f 74 72 61 63 6b  73 25 2c 58 2c 22 22 29  |cd_tracks%,X,"")|
0000b820  0d 35 e8 05 ed 0d 35 f2  19 f2 72 65 61 64 3a f2  |.5....5...read:.|
0000b830  72 65 61 64 5f 74 72 61  63 6b 6c 69 73 74 0d 35  |read_tracklist.5|
0000b840  fc 05 e1 0d ff                                    |.....|
0000b845