� >!RunImage
:� Disc Index by Ricky Dawson (� Archimedes World 1994)
:
(.� � ș "Hourglass_Smash":�pre_poll_error:�
2:
<ș "Hourglass_On"
F+ș "OS_ReadModeVariable",-1,5 � ,,yeig%
P7� yeig%<2 � sprite$="Sprites22" � sprite$="Sprites"
ZFș "OS_File",17,"<Disc$Dir>.Resources."+sprite$ � type%,,,,length%
d� sprite% length%+4
n!sprite%=length%+4
x@ș "OS_SpriteOp",266,sprite%,"<Disc$Dir>.Resources."+sprite$
�� but_ok% 32,but_okquit% 32
�$but_ok%="OK"+�0+�0+�0+�0
�($but_okquit%="OK"+�0+�0+�0+"Quit"+�0
�>ș "Wimp_Initialise",200,&4B534154,"Disc Index" � ,handle%
�2ș "WimpExt_Initialise",7,handle%,%111,sprite%
�:
��initialise_variables
��get_mode_info
�-�ms_load("<Disc$Dir>.Resources.Messages")
��load_templates
�
�announce
�0!q%=disc_index%:ș "WimpExt_CloseLinked",,q%
�ș "Hourglass_Off"

:

� � �error

:

"�

,"ș "XWimpExt_SlabIcon",,,0,0,0

6ș "WimpExt_PrePoll"

@%ș "Wimp_Poll",,q% � reason_code%

J>ș "WimpExt_Action",handle%,q%,reason_code% � reason_code%

TȎ reason_code% �

^� 1:�redraw_window(!q%)

h#� 2:ș "WimpExt_OpenLinked",,q%

r$� 3:ș "WimpExt_CloseLinked",,q%

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

�� 7:

�Ȏ savetype$ �

�6� "FFF":�initiate_save(�indirect(disc_savebox%,1))

�7� "E92":�initiate_save(�indirect(disc_savebox2%,1))

��

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

�� 9:�menu_select

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

��

�� quit%

�ș "WimpExt_ReleasePointer"

��ms_end

�ș "XWimpExt_SetPointer",0
 ș "XWimpExt_ReleasePointer"
#ș "XWimpExt_CloseDown",handle%
ș "Wimp_CloseDown"
&�ș "Font_LoseFont",trinity%:ș "Font_LoseFont",homerton%:ș "Font_LoseFont",trinitysmall%:ș "Font_LoseFont",homertonbig%:ș "Font_LoseFont",corpus%
0�#0
:ș "Hourglass_Smash"
D�
N:
X��initialise_variables
bK� q% 16384,menufree% &1000,temp% 2048,indir% 8192,errorbuf% 256,rec% 64
lcurws%=temp%
vmaxws%=temp%+2048
�menustart%=menufree%
�menuend%=menufree%+&1000
�menu%=0
�quit%=�
�ver$="3.20 (7 Jan 1994)"
��initialise_disc_index
��
�:
���load_templates
�7!q%=0:q%!4=0:q%!8=0:q%!12=0:q%!16=0:q%!20=0:q%!24=0
�Cq%!28=0:q%!32=0:q%!36=0:q%!40=0:q%!44=0:q%!48=0:q%!52=0:q%!56=0
�Ȏ outlinefonts% �
�j� 0:ș "WimpExt_LoadTemplates",q%,q%+60,indir%,indir%+7198,-1,"<Disc$Dir>.Resources.Templates",sprite%
5disc_infobox%=!q%:disc_wait%=q%!4:disc_quit%=q%!8
?disc_announce%=q%!12:disc_clear%=q%!16:disc_savebox2%=q%!20
<disc_print%=q%!24:disc_savebox%=q%!28:disc_search%=q%!32
 Adisc_backoptions%=q%!36:disc_index%=q%!40:disc_options%=q%!44
*9disc_found%=q%!48:disc_tracks%=q%!52:disc_sort%=q%!56
4n� 1:ș "WimpExt_LoadTemplates",q%,q%+60,indir%,indir%+7198,fontb%,"<Disc$Dir>.Resources.FontTemps",sprite%
>8disc_search%=!q%:disc_found%=q%!4:disc_infobox%=q%!8
H;disc_quit%=q%!12:disc_announce%=q%!16:disc_clear%=q%!20
R>disc_savebox%=q%!24:disc_savebox2%=q%!28:disc_print%=q%!32
\@disc_wait%=q%!36:disc_backoptions%=q%!40:disc_options%=q%!44
f9disc_index%=q%!48:disc_tracks%=q%!52:disc_sort%=q%!56
p�
z7ș "WimpExt_LinkWindows",,,disc_index%,disc_tracks%
�>ș "WimpExt_LinkWindows",,,disc_backoptions%,disc_options%
�5ș "WimpExt_SetIconString",,,disc_infobox%,7,ver$
�3ș "WimpExt_IconBarSprite",,,-1,"!DiscIndex",,3
��update_options
��
�:
���make_menus
�menufree%=menustart%
�%� loop%=menustart% � menuend% � 4
�!loop%=0
��
�eiconbarmenu%=�create_menu("# Disc Index ,Info>disc_infobox%,Options...,Restart   F8#,Quit","","")
��typesubmenu$="# Disctypes ,Applications,Art,Back-up Disc,Blank,Clip Art,Demonstrations,Draw Files,DTP,Fonts (RISC OS 2),Fonts (RISC OS 3),Games,Magazine Disc"
}typemenu$=typesubmenu$+",Music,PC,Public Domain,SoundTrackers,Spreadsheets,Sprites,Text Files,Utilities,Work in Progress"
+typemenu%=�create_menu(typemenu$,"","")
`savemenu%=�create_menu("# Save as ,Disc Index   F3>disc_savebox2%,Text>disc_savebox%","","")
$�mainmenu%=�create_menu("# Disc Index ,Info>disc_infobox%,Quit#,Clear Record,Print     F1>disc_print%,Restart   F8,Save>savemenu%,Search    F4>disc_search%,Sort      F2>disc_sort%","","")
.�
8:
B��pre_poll_error
L� 15
V� �$+" @ "+�(�)
`	� � �
j�
t:
~��error
�� 3:�#0
�Yș "WimpExt_ControlImmediate",,2,"Message From Disc Index",�$,but_okquit%,0 � button%
�� button%<>3 � �
��
�:
���open(window%)
�N!q%=window%:ș "Wimp_GetWindowState",,q%:q%!28=-1:ș "Wimp_OpenWindow",,q%
��
�:
���close(window%)
�)!q%=window%:ș "Wimp_CloseWindow",,q%
��
:

8��check_mouse(mousex%,mousey%,button%,window%,icon%)
Ȏ window% �
j� -2:� button%=2 � ș "Wimp_CreateMenu",,iconbarmenu%,mousex%-48,96+(4*44)+24:selectmenu%=iconbarmenu%
([� (button% � 5)<>0 � ș "WimpExt_OpenWindowTop",disc_index%:�move_caret(disc_index%,13)
2� disc_clear%:Ȏ icon% �
<� 1:�clear_data
F7� 2:�close(disc_clear%):ș "WimpExt_ReleasePointer"
P�
Z� disc_quit%:Ȏ icon% �
d� 1:quit%=�
n6� 2:�close(disc_quit%):ș "WimpExt_ReleasePointer"
x�
�*� disc_index%:� button%=2 � Ȏ icon% �
�T� 15:ș "Wimp_CreateMenu",,typemenu%,mousex%-48,mousey%+10:selectmenu%=typemenu%
�z:ș "Wimp_CreateMenu",,mainmenu%,mousex%-48,mousey%+10:selectmenu%=mainmenu%:selectwindow%=disc_index%:selecticon%=13
��
�#� (button% � 5)<>0 � Ȏ icon% �
�&� 3:�read:record_number%=1:�update
�(� 2:�read:record_number%-=10:�update
�(� 34:�read:record_number%-=1:�update
�'� 4:�read:record_number%+=1:�update
�(� 5:�read:record_number%+=10:�update
�0� 6:�read:record_number%=max_record%:�update
�}� 15:ș "Wimp_CreateMenu",,typemenu%,mousex%-48,mousey%+10:selectmenu%=typemenu%:selectwindow%=disc_index%:selecticon%=13
�� 20:�scan_drive_0
A� 24:�close_all:�open(disc_print%):�move_caret(disc_print%,6)
G� 31:�close_all:�open(disc_savebox2%):�move_caret(disc_savebox2%,1)
W� 32:�close_all:�close(disc_found%):�open(disc_search%):�move_caret(disc_search%,1)
"%� 33:�close_all:�open(disc_sort%)
,�
63� disc_savebox%:� (button% � 5)<>0 � Ȏ icon% �
@ � 0:savetype$="FFF":�dragbox
J"� 2:savetype$="FFF":�quicksave
T� 3:savealltext$="Yes"
^� 4:savealltext$="No"
h�
r4� disc_savebox2%:� (button% � 5)<>0 � Ȏ icon% �
| � 0:savetype$="E92":�dragbox
�"� 2:savetype$="E92":�quicksave
��
�3� disc_options%:� (button% � 5)<>0 � Ȏ icon% �
�.� 1:� scanapp%=1 � scanapp%=0 � scanapp%=1
�/� 11:� scandir%=1 � scandir%=0 � scandir%=1
�7� 3:� movetonext%=1 � movetonext%=0 � movetonext%=1
�� 7:outlinefonts%=1
�� 8:outlinefonts%=0
�F� 9:max_record%=50:�update_icon(disc_index%,11,"/"+�(max_record%))
�H� 12:max_record%=100:�update_icon(disc_index%,11,"/"+�(max_record%))
�H� 13:max_record%=150:�update_icon(disc_index%,11,"/"+�(max_record%))
�H� 14:max_record%=200:�update_icon(disc_index%,11,"/"+�(max_record%))
�H� 15:max_record%=250:�update_icon(disc_index%,11,"/"+�(max_record%))
�
7� disc_backoptions%:� (button% � 5)<>0 � Ȏ icon% �
E� 2:�save_options:�close(disc_options%):�close(disc_backoptions%)
&7� 1:�close(disc_options%):�close(disc_backoptions%)
0�
:2� disc_search%:� (button% � 5)<>0 � Ȏ icon% �
D� 9:searchtype$="Extra"
N� 3:searchtype$="Dname"
X� 4:searchtype$="Dtype"
b� 8:searchtype$="App"
l*� 5:�clear_search:�search(searchtype$)
vN� 7:�update_icon(disc_search%,1,searchstring$):�move_caret(disc_search%,1)
�@� 10:� casesense$="Yes" � casesense$="No" � casesense$="Yes"
�� 11
�xș "Wimp_CreateMenu",,typemenu%,mousex%-48,mousey%+10:selectmenu%=typemenu%:selectwindow%=disc_search%:selecticon%=1
��ș "WimpExt_SetIcon",,,disc_search%,4,1:ș "WimpExt_SetIcon",,,disc_search%,9,0:ș "WimpExt_SetIcon",,,disc_search%,3,0:ș "WimpExt_SetIcon",,,disc_search%,8,0
��
��� disc_found%:� (button% � 5)<>0 � click_record%=�(�indirect(disc_found%,icon%)):� click_record%<>0 � �read:�fill(click_record%)
�l� disc_tracks%:� button%=2 � ș "Wimp_CreateMenu",,mainmenu%,mousex%-48,mousey%+10:selectmenu%=mainmenu%
�1� disc_print%:� (button% � 5)<>0 � Ȏ icon% �
�� 1:printer$="Draft"
�� 2:printer$="NLQ"
�,� 3:printer$="RISCOS":printwhat$="Label"
�7� 7:� printer$="RISCOS" � �printer_drivers � �print
�� 9:printwhat$="AT"
� 11:printwhat$="Label"
� 10:printwhat$="All"
� 14:printall$="Yes"
 � 15:printall$="No"
*<� 19:� linefeed$="No" � linefeed$="Yes" � linefeed$="No"
4�
>0� disc_sort%:� (button% � 5)<>0 � Ȏ icon% �
H� 1:sorttype$="Dname"
R� 2:sorttype$="Dtype"
\� 4:Ȏ sorttype$ �
f� "Dname":�sort_discname
p� "Dtype":�sort_disctype
z�
��
��
��
�:
�6��key_pressed(window%,icon%,key_index%,character%)
�Ȏ character% �
�� 13
�Ȏ window% �
�.� disc_savebox%:savetype$="FFF":�quicksave
�/� disc_savebox2%:savetype$="E92":�quicksave
�� disc_print%:
�Ȏ icon% �
�#� 6:�move_caret(disc_print%,12)
	� 12:�print
	�
	5� disc_search%:�clear_search:�search(searchtype$)
	$� disc_tracks%:Ȏ icon% �
	.1� 49:�tracks_move_caret(disc_tracks%,0):�read
	84:�tracks_move_caret(disc_tracks%,icon%+1):�read
	B�
	L� disc_index%:Ȏ icon% �
	V� 10:�number_update
	`*� 13:�read:�move_caret(disc_tracks%,0)
	j5� 25,26,27:�read:�move_caret(disc_index%,icon%+1)
	t*� 28:�read:�move_caret(disc_index%,25)
	~�
	��
	�/� 27:�close_all:�move_caret(disc_index%,13)
	�C� &181:�close_all:�open(disc_print%):�move_caret(disc_print%,6)
	�'� &182:�close_all:�open(disc_sort%)
	�*� &188:�close_all:�clear_data_question
	�I� &183:�close_all:�open(disc_savebox2%):�move_caret(disc_savebox2%,1)
	�E� &184:�close_all:�open(disc_search%):�move_caret(disc_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$)
	�L� &18E:� window%=disc_tracks% � �tracks_move_caret(disc_tracks%,icon%+1)
	�L� &18F:� window%=disc_tracks% � �tracks_move_caret(disc_tracks%,icon%-1)
E� &1E:� window%=disc_tracks% � �tracks_move_caret(disc_tracks%,0)

% ș "Wimp_ProcessKey",character%
�
�
(:
2��move_caret(window%,icon%)
<1ș "Wimp_SetCaretPosition",window%,icon%,,,-1
F�
P:
Z&��tracks_move_caret(window%,icon%)
dG� caretx%,carety%,caret_top%,caret_bottom%,caret_left%,caret_right%
n� icon%<0 � icon%=49
x� icon%>49 � icon%=0
�1ș "Wimp_SetCaretPosition",window%,icon%,,,-1
�"ș "Wimp_GetCaretPosition",,q%
�caretx%=q%!8:carety%=q%!12
�!q%=disc_tracks%
� ș "Wimp_GetWindowState",,q%
�:caret_top%=q%!24:caret_bottom%=caret_top%-(q%!16-q%!8)
�;caret_left%=q%!20:caret_right%=caret_left%+(q%!12-q%!4)
�� (caret_top%-64<carety%) �
�q%!24=carety%+64
�ș "Wimp_OpenWindow",,q%
��
�"� (caret_bottom%+32>carety%) �
�,q%!24=q%!24-(caret_bottom%-(carety%-32))
ș "Wimp_OpenWindow",,q%
�
�
":
,��menu_select
6� selection%,selection$
@� selection% 255
J3ș "Wimp_DecodeMenu",,selectmenu%,q%,selection%
Tselection$=$selection%
^Ȏ selection$ �
hM� "Back-up Disc":�update_icon(selectwindow%,selecticon%,selection$):�read
rI� "Clip Art":�update_icon(selectwindow%,selecticon%,selection$):�read
|N� "SoundTrackers":�update_icon(selectwindow%,selecticon%,selection$):�read
�K� "Text Files":�update_icon(selectwindow%,selecticon%,selection$):�read
�O� "Demonstrations":�update_icon(selectwindow%,selecticon%,selection$):�read
�M� "Applications":�update_icon(selectwindow%,selecticon%,selection$):�read
�R� "Fonts (RISC OS 3)":�update_icon(selectwindow%,selecticon%,selection$):�read
�K� "Draw Files":�update_icon(selectwindow%,selecticon%,selection$):�read
�D� "DTP":�update_icon(selectwindow%,selecticon%,selection$):�read
�D� "Art":�update_icon(selectwindow%,selecticon%,selection$):�read
�F� "Blank":�update_icon(selectwindow%,selecticon%,selection$):�read
�C� "PC":�update_icon(selectwindow%,selecticon%,selection$):�read
�R� "Fonts (RISC OS 2)":�update_icon(selectwindow%,selecticon%,selection$):�read
�N� "Magazine Disc":�update_icon(selectwindow%,selecticon%,selection$):�read
�Q� "Work in Progress":�update_icon(selectwindow%,selecticon%,selection$):�read
�M� "Spreadsheets":�update_icon(selectwindow%,selecticon%,selection$):�read
H� "Sprites":�update_icon(selectwindow%,selecticon%,selection$):�read
F� "Games":�update_icon(selectwindow%,selecticon%,selection$):�read
F� "Music":�update_icon(selectwindow%,selecticon%,selection$):�read
&N� "Public Domain":�update_icon(selectwindow%,selecticon%,selection$):�read
0J� "Utilities":�update_icon(selectwindow%,selecticon%,selection$):�read
:"� "Clear Record":�clear_single
D@� "Options...":�open(disc_backoptions%):�open(disc_options%)
N)� "Restart   F8":�clear_data_question
X� "Quit":�quit_check
b�
l ș "Wimp_GetPointerInfo",,q%
v0� q%!8=1 � ș "Wimp_CreateMenu",,selectmenu%
��
�:
���receive(q%)
�Ȏ q%!16 �
�� 0:�quit_check
�� 2:�datasave
�@� 3,5:� q%!12=0 � q%!40=&E92 � �load_acknowledge:�ok_to_load
�� 4:�load_acknowledge
�� &502:�help(�help_text)
�� 9,&400C1:�get_mode_info
�� &400C2:�check_new_task
��
��

:

��check_new_task

-newtaskid%=q%!4:taskname$=�string0(q%+28)

 <� taskname$="Disc Index" � newtaskid%<>handle% � quit%=�

*�

4:

>;��update_icon(update_window%,update_icon%,update_text$)

H(!q%=update_window%:q%!4=update_icon%

Rș "Wimp_GetIconState",,q%

\1$(q%!28)=update_text$:q%!36=�(update_text$)+1

fq%!8=0:q%!12=0

pș "Wimp_SetIconState",,q%

z�

�:

�&ݤ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
.�
8item$=�par(",")
B� item$="++" �
Lr%=0
Vmenu$=menu2$
`�
j� item$="+++" �
tr%=0
~menu%=menu3$
��
��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 �
2subptr%=��text$,r%+1)
<text$=�text$,r%-1)
F�
Prr%=�text$,"}")
Z
� rr%>0 �
dsubptr%=��text$,rr%+1)
ntext$=�text,rr%-1)
xflag%+=&08
��
�subptr%=-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$,"�")
6Ȏ rrrr% �
@� 0:mbg%=7<<24
J
T(mbg%=(�(�text$,rrrr%+1,2)) � 16)<<24
^)text$=�text$,rrrr%-1)+�text$,rrrr%+3)
h�
r�
|menuptr%!0=flag%
�menuptr%!4=subptr%
�%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$
&�
0%R%=�workspace(�text$+1):$R%=text$
:6menuptr%!12=R%:menuptr%!16=-1:menuptr%!20=�text$+1
D menuptr%!8=menuptr%!8 � &100
N�
X�
b!� �text$>maxx% � maxx%=�text$
lmenuptr%+=24
v�
�:
�ݤ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%
�:
���initialise_disc_index
�2� discname$(250),disctype$(250),discfree$(250)
�#� name$(250,50),comment$(250,4)
�Hrecord_number%=1:searchtype$="App":savetype$="E92":sorttype$="Dname"
Ecasesense$="No":savealltext$="Yes":linefeed$="No":printall$="Yes"
Lfilename$="DiscIndex":printer$="Draft":printwhat$="All":searchstring$=""
&�initialise_scanning:�load_options
 ;ș "Font_FindFont",,"Trinity.Medium",160,160 � trinity%
*9ș "Font_FindFont",,"Corpus.Medium",160,160 � corpus%
4@ș "Font_FindFont",,"Trinity.Medium",112,112 � trinitysmall%
>=ș "Font_FindFont",,"Homerton.Medium",192,192 � homerton%
H@ș "Font_FindFont",,"Homerton.Medium",256,256 � homertonbig%
R�
\:
f��update
p)� record_number%<1 � record_number%=1
z=� record_number%>max_record% � record_number%=max_record%
��fill(record_number%)
��
�:
���fill(record_number%)
�ș "Hourglass_On"
�2�update_icon(disc_print%,12,�(record_number%))
�2�update_icon(disc_index%,10,�(record_number%))
�B�tracks_move_caret(disc_tracks%,0):�move_caret(disc_index%,13)
�:�update_icon(disc_index%,12,discname$(record_number%))
�:�update_icon(disc_index%,13,disctype$(record_number%))
�:�update_icon(disc_index%,22,discfree$(record_number%))
��update_tracks
�� I%=1 � 4
?�update_icon(disc_index%,24+I%,comment$(record_number%,I%))
� I%
ș "Hourglass_Off"
$�
.:
8��number_update
B/record_number%=�(�indirect(disc_index%,10))
L)� record_number%<1 � record_number%=1
V=� record_number%>max_record% � record_number%=max_record%
`�fill(record_number%)
j�
t:
~��re_title(new_title$)
�!q%=disc_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("Disc Index *")
�unsaved%=�
�/record_number%=�(�indirect(disc_index%,10))
�7discname$(record_number%)=�indirect(disc_index%,12)
7disctype$(record_number%)=�indirect(disc_index%,13)

7discfree$(record_number%)=�indirect(disc_index%,22)
� I%=1 � 4
<comment$(record_number%,I%)=�indirect(disc_index%,24+I%)
(� I%
2�read_tracklist
<�
F:
Pݤindirect(!q%,q%!4)
Zș "Wimp_GetIconState",,q%
d
=$(q%!28)
n:
x	��new
�ș "Hourglass_On"
�*ș "WimpExt_OpenWindowTop",disc_index%
�J� I%=1 � max_record%:ș "Hourglass_Percentage",�((I%/max_record%)*100)
�6discname$(I%)="":disctype$(I%)="":discfree$(I%)=""
�-� subI%=1 � 50:name$(I%,subI%)="":� subI%
�/� subI%=1 � 4:comment$(I%,subI%)="":� subI%
�� I%
�record_number%=1
�2�update_icon(disc_index%,10,�(record_number%))
�ș "Hourglass_Off"
�unsaved%=�
��
�:
��load_acknowledge
q%!12=q%!8
q%!16=4
"$ș "Wimp_SendMessage",17,q%,q%!4
,�
6:
@��ok_to_load
Jfilename$=""
Ta%=0
^b%=q%?(44+a%)
hȕ b%<>0
rfilename$+=�(b%)
|	a%+=1
�b%=q%?(44+a%)
��
�Fș "WimpExt_OpenWindowTop",disc_index%:�move_caret(disc_index%,13)
��load_data(filename$)
�,�update_icon(disc_savebox2%,1,filename$)
�,�update_icon(disc_savebox%,1,"TextFile")
��
�:
���load_data(datafile$)
�ș "Hourglass_On"
�load_error%=�
�CH%=�(datafile$)
�� load_error%=� �
�#CH%,max_record%
� I%=1 � max_record%
3�#CH%,discname$(I%),disctype$(I%),discfree$(I%)
&� subI%=1 � 50
0�#CH%,name$(I%,subI%)
:� subI%
D� subI%=1 � 4
N�#CH%,comment$(I%,subI%)
X� subI%
bV� �((I%/max_record%)*100)<>100 � ș "Hourglass_Percentage",�((I%/max_record%)*100)
l� I%
v	�#CH%
��re_title("Disc Index")
�unsaved%=�
�*�close_all:�move_caret(disc_index%,13)
�*ș "WimpExt_OpenWindowTop",disc_index%
�record_number%=1
��update
��
�	�#CH%
��
�ș "Hourglass_Off"
��alter_no_of_records
��
�:

��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%
4�
>:
H��quicksave
R<� savetype$="FFF" � fullname$=�indirect(disc_savebox%,1)
\=� savetype$="E92" � fullname$=�indirect(disc_savebox2%,1)
f3� fullname$="" � � 1,"Please insert a filename"
pL� �fullname$,".")=0 � � 1,"To save, drag the icon to a directory viewer"
zE� savetype$="E92" � �save_data(fullname$) � �save_text(fullname$)
�6� savetype$="FFF" � � "SetType "+fullname$+" Text"
�:� savetype$="E92" � � "SetType "+fullname$+" DiscIndx"
�?� savetype$="FFF" � �update_icon(disc_savebox%,1,fullname$)
�@� savetype$="E92" � �update_icon(disc_savebox2%,1,fullname$)
�H�re_title("Disc Index"):�close(disc_savebox%):�close(disc_savebox2%)
�unsaved%=�
�ș "Wimp_CreateMenu",,-1
��
�:
���initiate_save(fname$)
� ș "Wimp_GetPointerInfo",,q%
�� q%!12=disc_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$="E92" � q%!40=&E92 � q%!40=&FFF
.!$(q%+44)=�get_leaf(fname$)+�0
8%ș "Wimp_SendMessage",17,q%,q%!20
B�
L:
Vݤget_leaf(name$)
`ȕ �name$,".")
jname$=�name$,�name$,".")+1)
t�
~
=name$+�0
�:
���datasave
�fullname$=�string(q%+44)
�Ȏ savetype$ �
�� "E92"
��save_data(fullname$)
�q%!12=q%!8:q%!16=3
�$ș "Wimp_SendMessage",17,q%,q%!4
�&� "SetType "+fullname$+" DiscIndx"
�ș "Wimp_CreateMenu",,-1
��re_title("Disc Index")
�6�close(disc_savebox2%):�move_caret(disc_index%,13)
unsaved%=�

,�update_icon(disc_savebox2%,1,fullname$)
� "FFF"
�save_text(fullname$)
(q%!12=q%!8:q%!16=3
2$ș "Wimp_SendMessage",17,q%,q%!4
<"� "SetType "+fullname$+" Text"
Fș "Wimp_CreateMenu",,-1
P5�close(disc_savebox%):�move_caret(disc_index%,13)
Z+�update_icon(disc_savebox%,1,fullname$)
d�
n�
x:
�ݤstring(a%)
�� b$
�	b$=""
�
ȕ ?a%<>0
�b$+=�?a%
�	a%+=1
��
�=b$
�:
�5ݤstring0(a%):� a$:ȕ ?a%>31:a$+=�?a%:a%+=1:�:=a$
�:
���save_data(fullname$)
�ș "Hourglass_On"
CH%=�fullname$
�#CH%,max_record%
� I%=1 � max_record%
"3�#CH%,discname$(I%),disctype$(I%),discfree$(I%)
,� subI%=1 � 50
6�#CH%,name$(I%,subI%)
@� subI%
J� subI%=1 � 4
T�#CH%,comment$(I%,subI%)
^� subI%
hV� �((I%/max_record%)*100)<>100 � ș "Hourglass_Percentage",�((I%/max_record%)*100)
r� I%
|	�#CH%
�ș "Hourglass_Off"
��
�:
���save_record_text(I%)
��#CH%,"Number: "+�(I%)
�`�#CH%,"Discname: "+discname$(I%)+"   Disctype: "+disctype$(I%)+"   Free: "+discfree$(I%)+"k"
��#CH%,"Contents of Disc:"
�� subI%=0 � 9
�oa=�(name$(I%,1+(subI%*4))):b=�(name$(I%,2+(subI%*4))):c=�(name$(I%,3+(subI%*4))):d=�(name$(I%,4+(subI%*4)))
�� (a<>0 � b<>0 � c<>0 � d<>0) � �#CH%,name$(I%,1+(subI%*4))+�20-a," ")+name$(I%,2+(subI%*4))+�20-b," ")+name$(I%,3+(subI%*4))+�20-c," ")+name$(I%,4+(subI%*4))
�� subI%
�u� (�(comment$(I%,1))<>0 � �(comment$(I%,2))<>0 � �(comment$(I%,3))<>0 � �(comment$(I%,4))<>0):�#CH%,"Extra Info:"
�� subI%=1 � 4
9� �(comment$(I%,subI%))<>0 � �#CH%,comment$(I%,subI%)
� subI%
Y�#CH%,"-----------------------------------------------------------------------------"
&
�#CH%," "
0�
::
D��save_text(fullname$)
Nș "Hourglass_On"
XȎ savealltext$ �
b� "Yes"
lCH%=�fullname$
v� I%=1 � max_record%
�W� disctype$(I%)<>"" � discname$(I%)<>"" � discfree$(I%)<>"" � �save_record_text(I%)
�V� �((I%/max_record%)*100)<>100 � ș "Hourglass_Percentage",�((I%/max_record%)*100)
�� I%
�	�#CH%
�
� "No"
�Ifrom%=�(�indirect(disc_savebox%,5)):to%=�(�indirect(disc_savebox%,6))
�V� from%<1 � to%>max_record% � � 1,"Enter values between 1 and "+�(max_record%)+"."
�CH%=�fullname$
�� I%=from% � to%
�W� disctype$(I%)<>"" � discname$(I%)<>"" � discfree$(I%)<>"" � �save_record_text(I%)
�V� �((I%/max_record%)*100)<>100 � ș "Hourglass_Percentage",�((I%/max_record%)*100)
�� I%
�	�#CH%
�
ș "Hourglass_Off"
�
 :
*��print
4S�update_icon(disc_wait%,0,"Printing In Progress Please Wait"):�open(disc_wait%)
>�redraw_window(disc_wait%)
Hș "Hourglass_On"
R'copies%=�(�indirect(disc_print%,6))
\u� copies%=0 � ș "Hourglass_Off":ș "Wimp_CreateMenu",,-1:� 1,"Set number of copies to a value greater than 0.":�
fȎ printer$ �
p
� "Draft"
z copy=0:� 2:� 1,27,1,120,1,48
��
�Ȏ printwhat$ �
�� "All":�print_table
�� "AT":�print_half
�� "Label":�print_label
��
�copy+=1:� copy=copies%
�� 3
�� "NLQ"
� copy=0:� 2:� 1,27,1,120,1,49
��
�Ȏ printwhat$ �
�� "All":�print_table
� "AT":�print_half
� "Label":�print_label
�
$copy+=1:� copy=copies%
.� 1,27,1,120,1,48
8� 3
B�
Lș "Hourglass_Off"
Vș "Wimp_CreateMenu",,-1
`*�close(disc_wait%):�close(disc_print%)
j�
t:
~��print_label
�(� linefeed$="Yes" � vdu%=10 � vdu%=0
�.inlay_number%=�(�indirect(disc_print%,12))
�*�"--------------------------":� 1,vdu%
�� 1,27,1,87,1,1
�&�discname$(inlay_number%):� 1,vdu%
�� 1,27,1,87,1,0
�*�"--------------------------":� 1,vdu%
�^�name$(inlay_number%,1);�11-�(name$(inlay_number%,1))," ");name$(inlay_number%,2):� 1,vdu%
�^�name$(inlay_number%,3);�11-�(name$(inlay_number%,3))," ");name$(inlay_number%,4):� 1,vdu%
�^�name$(inlay_number%,5);�11-�(name$(inlay_number%,5))," ");name$(inlay_number%,6):� 1,vdu%
�^�name$(inlay_number%,7);�11-�(name$(inlay_number%,7))," ");name$(inlay_number%,8):� 1,vdu%
�_�name$(inlay_number%,9);�11-�(name$(inlay_number%,9))," ");name$(inlay_number%,10):� 1,vdu%
a�name$(inlay_number%,11);�11-�(name$(inlay_number%,11))," ");name$(inlay_number%,12):� 1,vdu%

a�name$(inlay_number%,13);�11-�(name$(inlay_number%,13))," ");name$(inlay_number%,14):� 1,vdu%
a�name$(inlay_number%,15);�11-�(name$(inlay_number%,15))," ");name$(inlay_number%,16):� 1,vdu%
a�name$(inlay_number%,17);�11-�(name$(inlay_number%,17))," ");name$(inlay_number%,18):� 1,vdu%
(a�name$(inlay_number%,19);�11-�(name$(inlay_number%,19))," ");name$(inlay_number%,20):� 1,vdu%
2� 1,27,1,83,1,1
<D�discname$(inlay_number%);"  ";disctype$(inlay_number%):� 1,vdu%
F� 1,27,1,84
P �"<= Write Protect":� 1,vdu%
Z�:� 1,vdu%
d�"<= Write Enable":� 1,vdu%
n
� 1,12
x�
�:
���print_half
�needsprinting%=0
�(� linefeed$="Yes" � vdu%=10 � vdu%=0
�� printall$="No" �
�Gfrom%=�(�indirect(disc_print%,16)):to%=�(�indirect(disc_print%,17))
�V� from%<1 � to%>max_record% � � 1,"Enter values between 1 and "+�(max_record%)+"."
��
�/� printall$="Yes" � from%=1:to%=max_record%
�� I%=from% � to%
�?� discname$(I%)<>"" � disctype$(I%)<>"" � needsprinting%+=1
�� I%
�bsubitem%=0:printed%=0:� needsprinting%=0 � � 3:�close(disc_wait%):� 1,"No records to print.":�
� I%=from% � to%
-� discname$(I%)<>"" � disctype$(I%)<>"" �
subitem%+=1:printed%+=1
"� 1,27,1,71
,#� �0);"Number: "+�(I%):� 1,vdu%
6m� �0);"Discname: "+discname$(I%);�25);"Disctype: "+disctype$(I%);�60);"Free: ";discfree$(I%);"k":� 1,vdu%
@� 1,27,1,72
J��80,"-"):� 1,vdu%
T�
^%� subitem%=20 � subitem%=0:� 1,12
h� 3
rh� �((printed%/needsprinting%)*100)<>100 � ș "Hourglass_Percentage",�((printed%/needsprinting%)*100)
|� 2
�� I%
�
� 1,12
��
�:
���print_table
�needsprinting%=0
�(� linefeed$="Yes" � vdu%=10 � vdu%=0
�� printall$="No" �
�Ifrom%=�(�indirect(video_print%,16)):to%=�(�indirect(video_print%,17))
�V� from%<1 � to%>max_record% � � 1,"Enter values between 1 and "+�(max_record%)+"."
��
�/� printall$="Yes" � from%=1:to%=max_record%
�� I%=from% � to%
 S� discname$(I%)<>"" � disctype$(I%)<>"" � discfree$(I%)<>"" � needsprinting%+=1
 � I%
 bsubitem%=0:printed%=0:� needsprinting%=0 � � 3:�close(disc_wait%):� 1,"No records to print.":�
 &� I%=from% � to%
 0A� discname$(I%)<>"" � disctype$(I%)<>"" � discfree$(I%)<>"" �
 :subitem%+=1:printed%+=1
 D� 1,27,1,71
 N#� �0);"Number: "+�(I%):� 1,vdu%
 Xsubitem%+=1
 bm� �0);"Discname: "+discname$(I%);�25);"Disctype: "+disctype$(I%);�60);"Free: ";discfree$(I%);"k":� 1,vdu%
 l� 1,27,1,72
 vsubitem%+=1
 �&� �0);"Contents of Disc:":� 1,vdu%
 �� subI%=0 � 9
 �oa=�(name$(I%,1+(subI%*4))):b=�(name$(I%,2+(subI%*4))):c=�(name$(I%,3+(subI%*4))):d=�(name$(I%,4+(subI%*4)))
 ��� (a<>0 � b<>0 � c<>0 � d<>0) � subitem%+=1:� �0);name$(I%,1+(subI%*4));�20);name$(I%,2+(subI%*4));�40);name$(I%,3+(subI%*4));�60);name$(I%,4+(subI%*4)):� 1,vdu%
 �� subI%
 ��� (�(comment$(I%,1))<>0 � �(comment$(I%,2))<>0 � �(comment$(I%,3))<>0 � �(comment$(I%,4))<>0):subitem%+=1:� "Extra Info:":� 1,vdu%
 �� subI%=1 � 4
 �J� �(comment$(I%,subI%))<>0 � subitem%+=1:� comment$(I%,subI%):� 1,vdu%
 �� subI%
 �"subitem%+=1:��80,"-"):� 1,vdu%
 ��
 �%� subitem%>55 � subitem%=0:� 1,12
 �� 3
!h� �((printed%/needsprinting%)*100)<>100 � ș "Hourglass_Percentage",�((printed%/needsprinting%)*100)
!� 2
!� I%
! 
� 1,12
!*�
!4:
!>��redraw_window(window%)
!H!q%=window%
!R&ș "Wimp_RedrawWindow",,q% � more%
!\ȕ more%
!fș "WimpExt_Redraw",,q%
!p&ș "Wimp_GetRectangle",,q% � more%
!z�
!��
!�:
!���announce
!�ș "Hourglass_On"
!��open(disc_announce%)
!�,ș "WimpExt_LimitPointer",disc_announce%
!�'�update_icon(disc_announce%,4,ver$)
!�"�redraw_window(disc_announce%)
!�ș "Hourglass_LEDs",1,0
!��make_menus
!�ș "Hourglass_LEDs",0,1
!��new
!�ș "Hourglass_LEDs",1,1
"�clear_search
"C� wait%=1 � 25:Ȗ:ș "Hourglass_Percentage",�((wait%/25)*100):�
"�close(disc_announce%)
"$ș "WimpExt_ReleasePointer"
".ș "Hourglass_Off"
"8�
"B:
"L��tick(menu%,item%,total%)
"V'� i%=0 � total%:�notick(menu%,i%):�
"`� address%
"j address%=menu%+28+(24*item%)
"taddress%!0=address%!0 � &01
"~�
"�:
"���notick(menu%,item%)
"�� address%
"� address%=menu%+28+(24*item%)
"�!address%!0=address%!0 � � &01
"��
"�:
"���clear_data_question
"�� 7
"�4�open(disc_clear%):ș "Wimp_SetCaretPosition",-1
"�)ș "WimpExt_LimitPointer",disc_clear%
"��
#:
#
��clear_data
#�new
#�update
#(�re_title("Disc Index")
#2unsaved%=�
#<*�close_all:�move_caret(disc_index%,13)
#Fș "WimpExt_ReleasePointer"
#P�
#Z:
#d��quit_check
#nȎ unsaved% �
#x� �
#�� 7
#�3�open(disc_quit%):ș "Wimp_SetCaretPosition",-1
#�(ș "WimpExt_LimitPointer",disc_quit%
#�� �:quit%=�
#��
#��
#�:
#�)��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)
$,�
$6�
$@:
$J1��_SetCaretPosition(window%,icon%,key_index%)
$T3IconLength%=�(�read_icon_text(window%,icon%,�))
$^5� key_index%>IconLength% � key_index%=IconLength%
$h<ș "Wimp_SetCaretPosition",window%,icon%,,,-1,key_index%
$r"ș "Wimp_GetCaretPosition",,q%
$|�
$�:
$�(ݤread_icon_text(window%,icon%,Pad%)
$�
� Result$
$�!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
%0-ș "OS_Module",6,,,17+�(name$)�,,ms_desc%
%:$(ms_desc%+16)=name$
%D3ș "MessageTrans_OpenFile",ms_desc%,ms_desc%+16
%N�
%X:
%b��ms_end
%l)ș "XMessageTrans_CloseFile",ms_desc%
%vș "XOS_Module",7,,ms_desc%
%��
%�:
%�ݤms_0(tag$)
%�=�ms_2(tag$,"","")
%�:
%�ݤms_1(tag$,arg1$)
%�=�ms_2(tag$,arg1$,"")
%�:
%�ݤms_2(tag$,arg1$,arg2$)
%�
�F%,L%
%�Mș "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
&4q%!12=q%!8
&>q%!16=&503
&H$(q%+20)=help$+�0
&R!q%=(24+C%)��3
&\$ș "Wimp_SendMessage",17,q%,q%!4
&f�
&p�
&z:
&�ݤhelp_text
&�� text$
&�text$=""
&�Ȏ q%!32 �
&�� -2:text$=�ms_0("IconBar")
&�&� disc_infobox%:text$=�ms_0("Add")
&�� disc_index%:Ȏ q%!36 �
&�� 3:text$=�ms_0("First")
&�� 34,4:text$=�ms_0("One")
&�� 2,5:text$=�ms_0("Ten")
&�� 6:text$=�ms_0("Last")
&�� 10:text$=�ms_0("Rec")
&�� 12,22:text$=�ms_0("Upda")
'� 13:text$=�ms_0("TeMe")
'(� 15:text$=�ms_1("Menu","Disctypes")
'� 20:text$=�ms_0("Scan")
'$&� 25,26,27,28:text$=�ms_0("Extra")
'.:text$=�ms_0("Main")
'8�
'B� disc_sort%:Ȏ q%!36 �
'L'� 1:text$=�ms_1("SortT","Discname")
'V'� 2:text$=�ms_1("SortT","Disctype")
'`� 4:text$=�ms_0("SortGo")
'j�
't� disc_savebox%:Ȏ q%!36 �
'~� 0:text$=�ms_0("DragT")
'�� 1:text$=�ms_0("FileT")
'�� 2:text$=�ms_0("SaveT")
'��
'�� disc_savebox2%:Ȏ q%!36 �
'�� 0:text$=�ms_0("Drag")
'�� 1:text$=�ms_0("File")
'�� 2:text$=�ms_0("Save")
'��
'�� disc_quit%:Ȏ q%!36 �
'�� 1,2:text$=�ms_0("Ques")
'��
'�� disc_clear%:Ȏ q%!36 �
(� 1,2:text$=�ms_0("Ques")
(
�
(� disc_print%:Ȏ q%!36 �
(#� 1:text$=�ms_1("Qual","draft")
((1� 2:text$=�ms_1("Qual","near letter quality")
(24� 3:text$=�ms_1("Qual","RISC OS Printer Driver")
(<� 6:text$=�ms_0("Copy")
(F� 7:text$=�ms_0("Prin")
(P-� 9:text$=�ms_1("PrinT","Disc Info Only")
(Z,� 10:text$=�ms_1("PrinT","Full Details")
(d+� 11:text$=�ms_1("PrinT2","Disc Label")
(n� 12:text$=�ms_0("Label")
(x�
(�� disc_search%:Ȏ q%!36 �
(�� 1:text$=�ms_0("SeaText")
(�� 7:text$=�ms_0("SeaPrev")
(�� 5:text$=�ms_0("SearGo")
(�(� 3:text$=�ms_1("SearTy","Discname")
(�(� 4:text$=�ms_1("SearTy","Disctype")
(�,� 8:text$=�ms_1("SearTy2","Application")
(�(� 11:text$=�ms_1("Menu","Disctypes")
(��
(�&� disc_found%:text$=�ms_0("Found")
(�&� disc_tracks%:text$=�ms_0("Text")
(��
(�
=text$
(�:
)��get_mode_info
)cx%=(�mv(�,11))<<(�mv(�,4))
)cy%=(�mv(�,12))<<(�mv(�,5))
)"�
),:
)6ݤmv(mode%,var%)
)@� v%
)J.ș "OS_ReadModeVariable",mode%,var% � ,,v%
)T=v%
)^:
)h��clear_search
)r� icon%:� icon%=0 � 51
)|&�update_icon(disc_found%,icon%,"")
)��
)�J�update_icon(disc_found%,1,"could be found in the following records:")
)��
)�:
)���search(field$)
)�ș "Hourglass_On"
)�foundicon%=2:found%=0
)�+searchstring$=�indirect(disc_search%,1)
)�a� searchstring$="" � �close(disc_search%):ș "Wimp_CreateMenu",,-1:� 1,"Enter search string."
)�-�update_icon(disc_found%,0,searchstring$)
)�M� casesense$="No" � Search$=�upper(searchstring$) � Search$=searchstring$
)�Ȏ field$ �
)�
� "Dname"
*� number%=1 � max_record%
*icon_used%=�:sub_number%=1
*:ș "Hourglass_Percentage",�((number%/max_record%)*100)
*&W� casesense$="No" � target$=�upper(discname$(number%)) � target$=discname$(number%)
*01� b%=1 � � target$:a$=�target$,b%,�(Search$))
*:<� Search$=a$ � �add_to_found(number%,sub_number%):� �DNj
*D� b%
*N,� icon_used%=� � foundicon%+=1:found%+=1
*X
� number%
*b
� "Extra"
*l� number%=1 � max_record%
*vicon_used%=�:sub_number%=1
*�:ș "Hourglass_Percentage",�((number%/max_record%)*100)
*�� sub%=1 � 4
*�_� casesense$="No" � target$=�upper(comment$(number%,sub%)) � target$=comment$(number%,sub%)
*�1� b%=1 � � target$:a$=�target$,b%,�(Search$))
*�<� Search$=a$ � �add_to_found(number%,sub_number%):� �t|j
*�� b%
*�
� sub%
*�,� icon_used%=� � foundicon%+=1:found%+=1
*�
� number%
*�
� "Dtype"
*�� number%=1 � max_record%
*�icon_used%=�:sub_number%=1
*�:ș "Hourglass_Percentage",�((number%/max_record%)*100)
+W� casesense$="No" � target$=�upper(disctype$(number%)) � target$=disctype$(number%)
+1� b%=1 � � target$:a$=�target$,b%,�(Search$))
+<� Search$=a$ � �add_to_found(number%,sub_number%):� �Tjk
+ � b%
+*,� icon_used%=� � foundicon%+=1:found%+=1
+4
� number%
+>� "App"
+H� number%=1 � max_record%
+Ricon_used%=�:sub_number%=1
+\:ș "Hourglass_Percentage",�((number%/max_record%)*100)
+f� sub%=1 � 50
+pY� casesense$="No" � target$=�upper(name$(number%,sub%)) � target$=name$(number%,sub%)
+z1� b%=1 � � target$:a$=�target$,b%,�(Search$))
+�<� Search$=a$ � �add_to_found(number%,sub_number%):� �tXk
+�� b%
+�
� sub%
+�,� icon_used%=� � foundicon%+=1:found%+=1
+�
� number%
+��
+��close(disc_search%)
+�#�update_icon(disc_search%,1,"")
+��move_caret(disc_index%,13)
+�ș "Wimp_CreateMenu",,-1
+�ș "Hourglass_Off"
+�� found%<>0 �
+��open(disc_found%)
,�
,1� 1,"'"+searchstring$+"' could not be found."
,�
,$�� found%>120 � � 1,"'"+searchstring$+"' has been found in "+�(found%)+" records. The first 50 occurances are selectable from the 'Records Found' window."
,.�
,8:
,B*��add_to_found(foundrecord%,foundsub%)
,L� foundicon%<52 �
,Vf� searchtype$="Dname" � searchtype$="Dtype" � �update_icon(disc_found%,foundicon%,�(foundrecord%))
,`z� searchtype$="App" � searchtype$="Extra" � �update_icon(disc_found%,foundicon%,�(foundrecord%)+" ("+�(foundsub%)+")")
,j�
,tsub_number%+=1:icon_used%=�
,~�
,�:
,�ݤupper(string$)
,�� loop%
,�� �(string$)>0 �
,�� loop% = 1 � �(string$)
,�7� �string$,loop%,1)>="a" � �string$,loop%,1)<="z" �
,�5�string$,loop%,1) = �(�(�string$,loop%,1)) � &DF)
,��
,��
,��
,�=string$
,�:
-��close_all
-
*�close(disc_wait%):�close(disc_print%)
-,�close(disc_search%):�close(disc_found%)
-/�close(disc_quit%):ș "Wimp_CreateMenu",,-1
-(-�close(disc_clear%):�close(disc_infobox%)
-2,�close(disc_savebox%):�close(disc_sort%)
-<3�close(disc_options%):�close(disc_backoptions%)
-F6�close(disc_savebox2%):ș "WimpExt_ReleasePointer"
-P�
-Z:
-d��read_tracklist
-n.track_number%=�(�indirect(disc_index%,10))
-x� subI%=1 � 50
-�>name$(track_number%,subI%)=�indirect(disc_tracks%,subI%-1)
-�� subI%
-��
-�:
-���update_tracks
-�.track_number%=�(�indirect(disc_index%,10))
-�� subI%=1 � 50
-�A�update_icon(disc_tracks%,subI%-1,name$(track_number%,subI%))
-�� subI%
-��
-�:
-���clear_single
-�#�update_icon(disc_index%,12,"")
.#�update_icon(disc_index%,13,"")
.#�update_icon(disc_index%,22,"")
.� X=25 � 28
.""�update_icon(disc_index%,X,"")
.,�
.6� X=0 � 49
.@#�update_icon(disc_tracks%,X,"")
.J�
.T	�read
.^�
.h:
.r��sort_discname
.|� a%,b%,temp$
.�k�update_icon(disc_wait%,0,"Initialising Sort Please Wait"):�open(disc_wait%):�redraw_window(disc_wait%)
.�ș "Hourglass_On"
.�Xcount%=0:subcount%=0:a%=1:�:� b%=a% � max_record%:count%+=1:�:a%+=1:� a%>max_record%
.�m�update_icon(disc_wait%,0,"Sorting In Progress Please Wait"):�open(disc_wait%):�redraw_window(disc_wait%)
.�a%=1:�:r%=a%
.�$temp$=�upper(�discname$(a%),10))
.�� temp$<=" " � temp$="~"
.�� b%=a% � max_record%
.�subcount%+=1
.�.� �upper(�discname$(b%),10))<=" " � � �THo
.�(� �upper(�discname$(b%),10))<temp$ �
.�*temp$=�upper(�discname$(b%),10)):r%=b%
.��
/� b%
/7ș "Hourglass_Percentage",�((subcount%/count%)*100)
/�swap_fields(a%,r%)
/&	a%+=1
/0� a%>max_record%
/:record_number%=1
/D�update
/Nș "Hourglass_Off"
/XB�close(disc_sort%):ș "Wimp_CreateMenu",,-1:�close(disc_wait%)
/b�re_title("Disc Index *")
/lunsaved%=�
/v�
/�:
/���sort_disctype
/�� a%,b%,temp$
/�k�update_icon(disc_wait%,0,"Initialising Sort Please Wait"):�open(disc_wait%):�redraw_window(disc_wait%)
/�ș "Hourglass_On"
/�Xcount%=0:subcount%=0:a%=1:�:� b%=a% � max_record%:count%+=1:�:a%+=1:� a%>max_record%
/�m�update_icon(disc_wait%,0,"Sorting In Progress Please Wait"):�open(disc_wait%):�redraw_window(disc_wait%)
/�a%=1:�:r%=a%
/�$temp$=�upper(�disctype$(a%),30))
/�� temp$<=" " � temp$="~"
/�� b%=a% � max_record%
/�subcount%+=1
/�.� �upper(�disctype$(b%),30))<=" " � � �T`p
0(� �upper(�disctype$(b%),30))<temp$ �
0*temp$=�upper(�disctype$(b%),30)):r%=b%
0�
0 � b%
0*7ș "Hourglass_Percentage",�((subcount%/count%)*100)
04�swap_fields(a%,r%)
0>	a%+=1
0H� a%>max_record%
0Rrecord_number%=1
0\�update
0fș "Hourglass_Off"
0pB�close(disc_sort%):ș "Wimp_CreateMenu",,-1:�close(disc_wait%)
0z�re_title("Disc Index *")
0�unsaved%=�
0��
0�:
0���swap_fields(a%,b%)
0�`Ȕ discname$(a%),discname$(b%):Ȕ disctype$(a%),disctype$(b%):Ȕ discfree$(a%),discfree$(b%)
0�1� I%=1 � 50:Ȕ name$(a%,I%),name$(b%,I%):� I%
0�6� I%=1 � 4:Ȕ comment$(a%,I%),comment$(b%,I%):� I%
0��
0�:
0���initialise_scanning
0�+� dirname% &100,target% 100,result% 100
0�max%=49
0�2� find$(max%),type%(max%),text1% 12:$text1%=""
1'reason%=-1:files%=�:dir%=�:finds%=0
1�
1:
1$��scan_drive_0
1.ș "Hourglass_On"
18.finds%=1:find$()="":path$="ADFS::0.$"+�(0)
1B�search_disc(path$)
1Lș "Hourglass_Off"
1V5� movetonext%=1 � �read:record_number%+=1:�update
1`�
1j:
1t��search_disc(path$)
1~target$="*"
1�path$="ADFS::0.$"
1�finds%=1:find$()=""
1��disc_search(path$)
1�$dirname%="0"
1�7ș "ADFS_FreeSpace",dirname% � scantotal%,scanfree%
1�2�update_icon(disc_index%,22,�(scanfree%/1024))
1�$ș "ADFS_DescribeDisc",":0",rec%
1�'i%=rec%+22:ȕ ?i%>32:i%+=1:�:?i%=13
1�&scanneddiscname$=�($(rec%+22)),10)
1�1�update_icon(disc_index%,12,scanneddiscname$)
1��update_scanning
1��
2:
2
��disc_search(path$)
2� next%
2next%=0
2(�
22$dirname%=path$
2<$target%=target$
2FLș "OS_GBPB",10,dirname%,result%,1,next%,100,target% � ,,,objects%,next%
2P� objects%>0 �
2Ztype%=result%?16
2da%=20:result$=""
2n�
2xc%=result%?a%
2�� c%<>0 � result$+=�(c%)
2�	a%+=1
2�
� c%=0
2�� finds%<max% �
2�find$(finds%)=result$
2�type%(finds%)=type%
2�
finds%+=1
2��
2�Q� (type%=2 � �result$,1)<>"!" � scandir%=1) � �disc_search(path$+"."+result$)
2�P� (type%=2 � �result$,1)="!" � scanapp%=1) � �disc_search(path$+"."+result$)
2��
2�
� next%<0
2��
3:
3��update_scanning
3� X=1 � 48
3"+�update_icon(disc_tracks%,X-1,find$(X))
3,�
36	�read
3@�
3J:
3T��printer_drivers
3^n�update_icon(disc_wait%,0,"Printing In Progress Please Wait"):�open(disc_wait%):�redraw_window(disc_wait%)
3h'copies%=�(�indirect(disc_print%,6))
3ru� copies%=0 � ș "Hourglass_Off":ș "Wimp_CreateMenu",,-1:� 1,"Set number of copies to a value greater than 0.":�
3|-� trans% 16,rect% 16,plotat% 8,rectin% 16
3�C� ("RMEnsure PDriver 0 ERROR 255 No printer driver installed.")
3�ș "Hourglass_On"
3�
copy=0
3��
3�pf%=�("printer:")
3�)� pf%=0 � � 1,"Printer not available"
3�� �
3�A� � �:� �:�#pf%:�close_all:�move_caret(disc_index%,13):� �,�$
3�8ș "PDriver_SelectJob",pf%,"Disc Index Print" � old%
3�� �
3�4� � �:� �:�close_all:�move_caret(disc_index%,13)
3�A:ș "PDriver_AbortJob",pf%:ș "PDriver_SelectJob",old%:� �,�$
3�rect%!0=0:rect%!4=0
4rect%!8=1000:rect%!12=850
4!trans%!0=1<<16:trans%!4=0<<16
4"trans%!8=0<<16:trans%!12=1<<16
4&'plotat%!0=1*72000:plotat%!4=8*72000
40?ș "PDriver_GiveRectangle",0,rect%,trans%,plotat%,&FFFFFF00
4:/ș "PDriver_DrawPage",1,rectin%,0,0 � more%
4Dȕ more%
4N�� printwhat$="All" � � 1,"Unable to print 'Full Details' via RISC OS Printer Drivers, Sorry!!  Use the 'Save Text' option!!"
4X� printwhat$="AT" � � 1,"Unable to print 'Full Details' via RISC OS Printer Drivers, Sorry!!  Use the 'Save Text' option!!"
4b� printwhat$="Label" �
4l.inlay_number%=�(�indirect(disc_print%,13))
4vMș "ColourTrans_SetGCOL",0:ș "ColourTrans_SetFontColours",,&FFFFFF00,0,6
4�ȓ 0,0,464,95
4�ȓ 0,0,464,115
4�ȓ 0,0,464,515
4�ș "Font_SetFont",homerton%
4�1ș "Font_Paint",,"<= Write Protect",&10,20,55
4�0ș "Font_Paint",,"<= Write Enable",&10,20,15
4�#ș "Font_SetFont",trinitysmall%
4�wș "Font_Paint",,discname$(inlay_number%)+(�20-�(discname$(inlay_number%))," "))+disctype$(inlay_number%),&10,20,98
4�"ș "Font_SetFont",homertonbig%
4�8ș "Font_Paint",,discname$(inlay_number%),&10,20,470
4�ș "Font_SetFont",corpus%
4�rș "Font_Paint",,name$(inlay_number%,1)+(�15-�(name$(inlay_number%,1))," "))+name$(inlay_number%,2),&10,20,450
4�rș "Font_Paint",,name$(inlay_number%,3)+(�15-�(name$(inlay_number%,3))," "))+name$(inlay_number%,4),&10,20,425
5rș "Font_Paint",,name$(inlay_number%,5)+(�15-�(name$(inlay_number%,5))," "))+name$(inlay_number%,6),&10,20,400
5rș "Font_Paint",,name$(inlay_number%,7)+(�15-�(name$(inlay_number%,7))," "))+name$(inlay_number%,8),&10,20,375
5sș "Font_Paint",,name$(inlay_number%,9)+(�15-�(name$(inlay_number%,9))," "))+name$(inlay_number%,10),&10,20,350
5 uș "Font_Paint",,name$(inlay_number%,11)+(�15-�(name$(inlay_number%,11))," "))+name$(inlay_number%,12),&10,20,325
5*uș "Font_Paint",,name$(inlay_number%,13)+(�15-�(name$(inlay_number%,13))," "))+name$(inlay_number%,14),&10,20,300
54uș "Font_Paint",,name$(inlay_number%,15)+(�15-�(name$(inlay_number%,15))," "))+name$(inlay_number%,16),&10,20,275
5>uș "Font_Paint",,name$(inlay_number%,17)+(�15-�(name$(inlay_number%,17))," "))+name$(inlay_number%,18),&10,20,250
5Huș "Font_Paint",,name$(inlay_number%,19)+(�15-�(name$(inlay_number%,19))," "))+name$(inlay_number%,20),&10,20,225
5Ruș "Font_Paint",,name$(inlay_number%,21)+(�15-�(name$(inlay_number%,21))," "))+name$(inlay_number%,22),&10,20,200
5\uș "Font_Paint",,name$(inlay_number%,23)+(�15-�(name$(inlay_number%,23))," "))+name$(inlay_number%,24),&10,20,175
5fuș "Font_Paint",,name$(inlay_number%,25)+(�15-�(name$(inlay_number%,25))," "))+name$(inlay_number%,26),&10,20,150
5puș "Font_Paint",,name$(inlay_number%,27)+(�15-�(name$(inlay_number%,27))," "))+name$(inlay_number%,28),&10,20,125
5z.ș "PDriver_GetRectangle",,rectin% � more%
5��
5��
5�ș "PDriver_EndJob",pf%
5�� �
5�ș "PDriver_SelectJob",old%
5�� �
5�	�#pf%
5�copy+=1:� copy=copies%
5�ș "Hourglass_Off"
5�*�close(disc_wait%):�close(disc_print%)
5��
5�:
5���load_options
6,choices%=�"<Disc$Dir>.Resources.Choices"
6� choices%<>0 �
6�#choices%,outlinefonts%
6$�#choices%,max_record%
6.�#choices%,scanapp%
68�#choices%,scandir%
6B�#choices%,movetonext%
6L�#choices%
6V�
6`outlinefonts%=0
6jmax_record%=250
6tscanapp%=0
6~scandir%=0
6�movetonext%=0
6��
6�)� outlinefonts%=1 � �get_window_fonts
6��
6�:
6���save_options
6�,choices%=�"<Disc$Dir>.Resources.Choices"
6��#choices%,outlinefonts%
6��#choices%,max_record%
6��#choices%,scanapp%
6��#choices%,scandir%
6��#choices%,movetonext%
7�#choices%
7
�
7:
7��get_window_fonts
7(� f%
72� fontb% 255
7<� I%=0 � 255:fontb%?I%=0:�
7F�
7P:
7Z��alter_no_of_records
7dȎ max_record% �
7n�� 50:ș "WimpExt_SetIcon",,,disc_options%,9,1:ș "WimpExt_SetIcon",,,disc_options%,12,0:ș "WimpExt_SetIcon",,,disc_options%,13,0:ș "WimpExt_SetIcon",,,disc_options%,14,0:ș "WimpExt_SetIcon",,,disc_options%,15,0
7x�� 100:ș "WimpExt_SetIcon",,,disc_options%,9,0:ș "WimpExt_SetIcon",,,disc_options%,12,1:ș "WimpExt_SetIcon",,,disc_options%,13,0:ș "WimpExt_SetIcon",,,disc_options%,14,0:ș "WimpExt_SetIcon",,,disc_options%,15,0
7��� 150:ș "WimpExt_SetIcon",,,disc_options%,9,0:ș "WimpExt_SetIcon",,,disc_options%,12,0:ș "WimpExt_SetIcon",,,disc_options%,13,1:ș "WimpExt_SetIcon",,,disc_options%,14,0:ș "WimpExt_SetIcon",,,disc_options%,15,0
7��� 200:ș "WimpExt_SetIcon",,,disc_options%,9,0:ș "WimpExt_SetIcon",,,disc_options%,12,0:ș "WimpExt_SetIcon",,,disc_options%,13,0:ș "WimpExt_SetIcon",,,disc_options%,14,1:ș "WimpExt_SetIcon",,,disc_options%,15,0
7��� 250:ș "WimpExt_SetIcon",,,disc_options%,9,0:ș "WimpExt_SetIcon",,,disc_options%,12,0:ș "WimpExt_SetIcon",,,disc_options%,13,0:ș "WimpExt_SetIcon",,,disc_options%,14,0:ș "WimpExt_SetIcon",,,disc_options%,15,1
7��
7�3�update_icon(disc_index%,11,"/"+�(max_record%))
7��
7�:
7���update_options
7��alter_no_of_records
7�Ȏ outlinefonts% �
7�Y� 0:ș "WimpExt_SetIcon",,,disc_options%,8,1:ș "WimpExt_SetIcon",,,disc_options%,7,0
7�Y� 1:ș "WimpExt_SetIcon",,,disc_options%,7,1:ș "WimpExt_SetIcon",,,disc_options%,8,0
7��
8>� movetonext%=1 � ș "WimpExt_SetIcon",,,disc_options%,3,1
8;� scanapp%=1 � ș "WimpExt_SetIcon",,,disc_options%,1,1
8<� scandir%=1 � ș "WimpExt_SetIcon",,,disc_options%,11,1
8"3�update_icon(disc_index%,11,"/"+�(max_record%))
8,�
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 3a f4 20 44 69  73 63 20 49 6e 64 65 78  |...:. Disc Index|
00000020  20 62 79 20 52 69 63 6b  79 20 44 61 77 73 6f 6e  | by Ricky Dawson|
00000030  20 28 a9 20 41 72 63 68  69 6d 65 64 65 73 20 57  | (. Archimedes W|
00000040  6f 72 6c 64 20 31 39 39  34 29 0d 00 1e 05 3a 0d  |orld 1994)....:.|
00000050  00 28 2e ee 20 85 20 c8  99 20 22 48 6f 75 72 67  |.(.. . .. "Hourg|
00000060  6c 61 73 73 5f 53 6d 61  73 68 22 3a f2 70 72 65  |lass_Smash":.pre|
00000070  5f 70 6f 6c 6c 5f 65 72  72 6f 72 3a e0 0d 00 32  |_poll_error:...2|
00000080  05 3a 0d 00 3c 15 c8 99  20 22 48 6f 75 72 67 6c  |.:..<... "Hourgl|
00000090  61 73 73 5f 4f 6e 22 0d  00 46 2b c8 99 20 22 4f  |ass_On"..F+.. "O|
000000a0  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
000000b0  6c 65 22 2c 2d 31 2c 35  20 b8 20 2c 2c 79 65 69  |le",-1,5 . ,,yei|
000000c0  67 25 0d 00 50 37 e7 20  79 65 69 67 25 3c 32 20  |g%..P7. yeig%<2 |
000000d0  8c 20 73 70 72 69 74 65  24 3d 22 53 70 72 69 74  |. sprite$="Sprit|
000000e0  65 73 32 32 22 20 8b 20  73 70 72 69 74 65 24 3d  |es22" . sprite$=|
000000f0  22 53 70 72 69 74 65 73  22 0d 00 5a 46 c8 99 20  |"Sprites"..ZF.. |
00000100  22 4f 53 5f 46 69 6c 65  22 2c 31 37 2c 22 3c 44  |"OS_File",17,"<D|
00000110  69 73 63 24 44 69 72 3e  2e 52 65 73 6f 75 72 63  |isc$Dir>.Resourc|
00000120  65 73 2e 22 2b 73 70 72  69 74 65 24 20 b8 20 74  |es."+sprite$ . t|
00000130  79 70 65 25 2c 2c 2c 2c  6c 65 6e 67 74 68 25 0d  |ype%,,,,length%.|
00000140  00 64 17 de 20 73 70 72  69 74 65 25 20 6c 65 6e  |.d.. sprite% len|
00000150  67 74 68 25 2b 34 0d 00  6e 16 21 73 70 72 69 74  |gth%+4..n.!sprit|
00000160  65 25 3d 6c 65 6e 67 74  68 25 2b 34 0d 00 78 40  |e%=length%+4..x@|
00000170  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
00000180  2c 32 36 36 2c 73 70 72  69 74 65 25 2c 22 3c 44  |,266,sprite%,"<D|
00000190  69 73 63 24 44 69 72 3e  2e 52 65 73 6f 75 72 63  |isc$Dir>.Resourc|
000001a0  65 73 2e 22 2b 73 70 72  69 74 65 24 0d 00 82 1f  |es."+sprite$....|
000001b0  de 20 62 75 74 5f 6f 6b  25 20 33 32 2c 62 75 74  |. but_ok% 32,but|
000001c0  5f 6f 6b 71 75 69 74 25  20 33 32 0d 00 8c 1d 24  |_okquit% 32....$|
000001d0  62 75 74 5f 6f 6b 25 3d  22 4f 4b 22 2b bd 30 2b  |but_ok%="OK"+.0+|
000001e0  bd 30 2b bd 30 2b bd 30  0d 00 96 28 24 62 75 74  |.0+.0+.0...($but|
000001f0  5f 6f 6b 71 75 69 74 25  3d 22 4f 4b 22 2b bd 30  |_okquit%="OK"+.0|
00000200  2b bd 30 2b bd 30 2b 22  51 75 69 74 22 2b bd 30  |+.0+.0+"Quit"+.0|
00000210  0d 00 a0 3e c8 99 20 22  57 69 6d 70 5f 49 6e 69  |...>.. "Wimp_Ini|
00000220  74 69 61 6c 69 73 65 22  2c 32 30 30 2c 26 34 42  |tialise",200,&4B|
00000230  35 33 34 31 35 34 2c 22  44 69 73 63 20 49 6e 64  |534154,"Disc Ind|
00000240  65 78 22 20 b8 20 2c 68  61 6e 64 6c 65 25 0d 00  |ex" . ,handle%..|
00000250  aa 32 c8 99 20 22 57 69  6d 70 45 78 74 5f 49 6e  |.2.. "WimpExt_In|
00000260  69 74 69 61 6c 69 73 65  22 2c 37 2c 68 61 6e 64  |itialise",7,hand|
00000270  6c 65 25 2c 25 31 31 31  2c 73 70 72 69 74 65 25  |le%,%111,sprite%|
00000280  0d 00 b4 05 3a 0d 00 be  19 f2 69 6e 69 74 69 61  |....:.....initia|
00000290  6c 69 73 65 5f 76 61 72  69 61 62 6c 65 73 0d 00  |lise_variables..|
000002a0  c8 12 f2 67 65 74 5f 6d  6f 64 65 5f 69 6e 66 6f  |...get_mode_info|
000002b0  0d 00 d2 2d f2 6d 73 5f  6c 6f 61 64 28 22 3c 44  |...-.ms_load("<D|
000002c0  69 73 63 24 44 69 72 3e  2e 52 65 73 6f 75 72 63  |isc$Dir>.Resourc|
000002d0  65 73 2e 4d 65 73 73 61  67 65 73 22 29 0d 00 dc  |es.Messages")...|
000002e0  13 f2 6c 6f 61 64 5f 74  65 6d 70 6c 61 74 65 73  |..load_templates|
000002f0  0d 00 e6 0d f2 61 6e 6e  6f 75 6e 63 65 0d 00 f0  |.....announce...|
00000300  30 21 71 25 3d 64 69 73  63 5f 69 6e 64 65 78 25  |0!q%=disc_index%|
00000310  3a c8 99 20 22 57 69 6d  70 45 78 74 5f 43 6c 6f  |:.. "WimpExt_Clo|
00000320  73 65 4c 69 6e 6b 65 64  22 2c 2c 71 25 0d 00 fa  |seLinked",,q%...|
00000330  16 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
00000340  66 66 22 0d 01 04 05 3a  0d 01 0e 0e ee 20 85 20  |ff"....:..... . |
00000350  f2 65 72 72 6f 72 0d 01  18 05 3a 0d 01 22 05 f5  |.error....:.."..|
00000360  0d 01 2c 22 c8 99 20 22  58 57 69 6d 70 45 78 74  |..,".. "XWimpExt|
00000370  5f 53 6c 61 62 49 63 6f  6e 22 2c 2c 2c 30 2c 30  |_SlabIcon",,,0,0|
00000380  2c 30 0d 01 36 18 c8 99  20 22 57 69 6d 70 45 78  |,0..6... "WimpEx|
00000390  74 5f 50 72 65 50 6f 6c  6c 22 0d 01 40 25 c8 99  |t_PrePoll"..@%..|
000003a0  20 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 2c 71 25  | "Wimp_Poll",,q%|
000003b0  20 b8 20 72 65 61 73 6f  6e 5f 63 6f 64 65 25 0d  | . reason_code%.|
000003c0  01 4a 3e c8 99 20 22 57  69 6d 70 45 78 74 5f 41  |.J>.. "WimpExt_A|
000003d0  63 74 69 6f 6e 22 2c 68  61 6e 64 6c 65 25 2c 71  |ction",handle%,q|
000003e0  25 2c 72 65 61 73 6f 6e  5f 63 6f 64 65 25 20 b8  |%,reason_code% .|
000003f0  20 72 65 61 73 6f 6e 5f  63 6f 64 65 25 0d 01 54  | reason_code%..T|
00000400  15 c8 8e 20 72 65 61 73  6f 6e 5f 63 6f 64 65 25  |... reason_code%|
00000410  20 ca 0d 01 5e 1b c9 20  31 3a f2 72 65 64 72 61  | ...^.. 1:.redra|
00000420  77 5f 77 69 6e 64 6f 77  28 21 71 25 29 0d 01 68  |w_window(!q%)..h|
00000430  23 c9 20 32 3a c8 99 20  22 57 69 6d 70 45 78 74  |#. 2:.. "WimpExt|
00000440  5f 4f 70 65 6e 4c 69 6e  6b 65 64 22 2c 2c 71 25  |_OpenLinked",,q%|
00000450  0d 01 72 24 c9 20 33 3a  c8 99 20 22 57 69 6d 70  |..r$. 3:.. "Wimp|
00000460  45 78 74 5f 43 6c 6f 73  65 4c 69 6e 6b 65 64 22  |Ext_CloseLinked"|
00000470  2c 2c 71 25 0d 01 7c 2f  c9 20 36 3a f2 63 68 65  |,,q%..|/. 6:.che|
00000480  63 6b 5f 6d 6f 75 73 65  28 21 71 25 2c 71 25 21  |ck_mouse(!q%,q%!|
00000490  34 2c 71 25 21 38 2c 71  25 21 31 32 2c 71 25 21  |4,q%!8,q%!12,q%!|
000004a0  31 36 29 0d 01 86 08 c9  20 37 3a 0d 01 90 12 c8  |16)..... 7:.....|
000004b0  8e 20 73 61 76 65 74 79  70 65 24 20 ca 0d 01 9a  |. savetype$ ....|
000004c0  36 c9 20 22 46 46 46 22  3a f2 69 6e 69 74 69 61  |6. "FFF":.initia|
000004d0  74 65 5f 73 61 76 65 28  a4 69 6e 64 69 72 65 63  |te_save(.indirec|
000004e0  74 28 64 69 73 63 5f 73  61 76 65 62 6f 78 25 2c  |t(disc_savebox%,|
000004f0  31 29 29 0d 01 a4 37 c9  20 22 45 39 32 22 3a f2  |1))...7. "E92":.|
00000500  69 6e 69 74 69 61 74 65  5f 73 61 76 65 28 a4 69  |initiate_save(.i|
00000510  6e 64 69 72 65 63 74 28  64 69 73 63 5f 73 61 76  |ndirect(disc_sav|
00000520  65 62 6f 78 32 25 2c 31  29 29 0d 01 ae 05 cb 0d  |ebox2%,1))......|
00000530  01 b8 2a c9 20 38 3a f2  6b 65 79 5f 70 72 65 73  |..*. 8:.key_pres|
00000540  73 65 64 28 21 71 25 2c  71 25 21 34 2c 71 25 21  |sed(!q%,q%!4,q%!|
00000550  32 30 2c 71 25 21 32 34  29 0d 01 c2 14 c9 20 39  |20,q%!24)..... 9|
00000560  3a f2 6d 65 6e 75 5f 73  65 6c 65 63 74 0d 01 cc  |:.menu_select...|
00000570  18 c9 20 31 37 2c 31 38  3a f2 72 65 63 65 69 76  |.. 17,18:.receiv|
00000580  65 28 71 25 29 0d 01 d6  05 cb 0d 01 e0 0b fd 20  |e(q%).......... |
00000590  71 75 69 74 25 0d 01 ea  1f c8 99 20 22 57 69 6d  |quit%...... "Wim|
000005a0  70 45 78 74 5f 52 65 6c  65 61 73 65 50 6f 69 6e  |pExt_ReleasePoin|
000005b0  74 65 72 22 0d 01 f4 0b  f2 6d 73 5f 65 6e 64 0d  |ter".....ms_end.|
000005c0  01 fe 1e c8 99 20 22 58  57 69 6d 70 45 78 74 5f  |..... "XWimpExt_|
000005d0  53 65 74 50 6f 69 6e 74  65 72 22 2c 30 0d 02 08  |SetPointer",0...|
000005e0  20 c8 99 20 22 58 57 69  6d 70 45 78 74 5f 52 65  | .. "XWimpExt_Re|
000005f0  6c 65 61 73 65 50 6f 69  6e 74 65 72 22 0d 02 12  |leasePointer"...|
00000600  23 c8 99 20 22 58 57 69  6d 70 45 78 74 5f 43 6c  |#.. "XWimpExt_Cl|
00000610  6f 73 65 44 6f 77 6e 22  2c 68 61 6e 64 6c 65 25  |oseDown",handle%|
00000620  0d 02 1c 17 c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |...... "Wimp_Clo|
00000630  73 65 44 6f 77 6e 22 0d  02 26 98 c8 99 20 22 46  |seDown"..&... "F|
00000640  6f 6e 74 5f 4c 6f 73 65  46 6f 6e 74 22 2c 74 72  |ont_LoseFont",tr|
00000650  69 6e 69 74 79 25 3a c8  99 20 22 46 6f 6e 74 5f  |inity%:.. "Font_|
00000660  4c 6f 73 65 46 6f 6e 74  22 2c 68 6f 6d 65 72 74  |LoseFont",homert|
00000670  6f 6e 25 3a c8 99 20 22  46 6f 6e 74 5f 4c 6f 73  |on%:.. "Font_Los|
00000680  65 46 6f 6e 74 22 2c 74  72 69 6e 69 74 79 73 6d  |eFont",trinitysm|
00000690  61 6c 6c 25 3a c8 99 20  22 46 6f 6e 74 5f 4c 6f  |all%:.. "Font_Lo|
000006a0  73 65 46 6f 6e 74 22 2c  68 6f 6d 65 72 74 6f 6e  |seFont",homerton|
000006b0  62 69 67 25 3a c8 99 20  22 46 6f 6e 74 5f 4c 6f  |big%:.. "Font_Lo|
000006c0  73 65 46 6f 6e 74 22 2c  63 6f 72 70 75 73 25 0d  |seFont",corpus%.|
000006d0  02 30 07 d9 23 30 0d 02  3a 18 c8 99 20 22 48 6f  |.0..#0..:... "Ho|
000006e0  75 72 67 6c 61 73 73 5f  53 6d 61 73 68 22 0d 02  |urglass_Smash"..|
000006f0  44 05 e0 0d 02 4e 05 3a  0d 02 58 1a dd f2 69 6e  |D....N.:..X...in|
00000700  69 74 69 61 6c 69 73 65  5f 76 61 72 69 61 62 6c  |itialise_variabl|
00000710  65 73 0d 02 62 4b de 20  71 25 20 31 36 33 38 34  |es..bK. q% 16384|
00000720  2c 6d 65 6e 75 66 72 65  65 25 20 26 31 30 30 30  |,menufree% &1000|
00000730  2c 74 65 6d 70 25 20 32  30 34 38 2c 69 6e 64 69  |,temp% 2048,indi|
00000740  72 25 20 38 31 39 32 2c  65 72 72 6f 72 62 75 66  |r% 8192,errorbuf|
00000750  25 20 32 35 36 2c 72 65  63 25 20 36 34 0d 02 6c  |% 256,rec% 64..l|
00000760  10 63 75 72 77 73 25 3d  74 65 6d 70 25 0d 02 76  |.curws%=temp%..v|
00000770  15 6d 61 78 77 73 25 3d  74 65 6d 70 25 2b 32 30  |.maxws%=temp%+20|
00000780  34 38 0d 02 80 18 6d 65  6e 75 73 74 61 72 74 25  |48....menustart%|
00000790  3d 6d 65 6e 75 66 72 65  65 25 0d 02 8a 1c 6d 65  |=menufree%....me|
000007a0  6e 75 65 6e 64 25 3d 6d  65 6e 75 66 72 65 65 25  |nuend%=menufree%|
000007b0  2b 26 31 30 30 30 0d 02  94 0b 6d 65 6e 75 25 3d  |+&1000....menu%=|
000007c0  30 0d 02 9e 0b 71 75 69  74 25 3d a3 0d 02 a8 1c  |0....quit%=.....|
000007d0  76 65 72 24 3d 22 33 2e  32 30 20 28 37 20 4a 61  |ver$="3.20 (7 Ja|
000007e0  6e 20 31 39 39 34 29 22  0d 02 b2 1a f2 69 6e 69  |n 1994)".....ini|
000007f0  74 69 61 6c 69 73 65 5f  64 69 73 63 5f 69 6e 64  |tialise_disc_ind|
00000800  65 78 0d 02 bc 05 e1 0d  02 c6 05 3a 0d 02 d0 14  |ex.........:....|
00000810  dd f2 6c 6f 61 64 5f 74  65 6d 70 6c 61 74 65 73  |..load_templates|
00000820  0d 02 da 37 21 71 25 3d  30 3a 71 25 21 34 3d 30  |...7!q%=0:q%!4=0|
00000830  3a 71 25 21 38 3d 30 3a  71 25 21 31 32 3d 30 3a  |:q%!8=0:q%!12=0:|
00000840  71 25 21 31 36 3d 30 3a  71 25 21 32 30 3d 30 3a  |q%!16=0:q%!20=0:|
00000850  71 25 21 32 34 3d 30 0d  02 e4 43 71 25 21 32 38  |q%!24=0...Cq%!28|
00000860  3d 30 3a 71 25 21 33 32  3d 30 3a 71 25 21 33 36  |=0:q%!32=0:q%!36|
00000870  3d 30 3a 71 25 21 34 30  3d 30 3a 71 25 21 34 34  |=0:q%!40=0:q%!44|
00000880  3d 30 3a 71 25 21 34 38  3d 30 3a 71 25 21 35 32  |=0:q%!48=0:q%!52|
00000890  3d 30 3a 71 25 21 35 36  3d 30 0d 02 ee 16 c8 8e  |=0:q%!56=0......|
000008a0  20 6f 75 74 6c 69 6e 65  66 6f 6e 74 73 25 20 ca  | outlinefonts% .|
000008b0  0d 02 f8 6a c9 20 30 3a  c8 99 20 22 57 69 6d 70  |...j. 0:.. "Wimp|
000008c0  45 78 74 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |Ext_LoadTemplate|
000008d0  73 22 2c 71 25 2c 71 25  2b 36 30 2c 69 6e 64 69  |s",q%,q%+60,indi|
000008e0  72 25 2c 69 6e 64 69 72  25 2b 37 31 39 38 2c 2d  |r%,indir%+7198,-|
000008f0  31 2c 22 3c 44 69 73 63  24 44 69 72 3e 2e 52 65  |1,"<Disc$Dir>.Re|
00000900  73 6f 75 72 63 65 73 2e  54 65 6d 70 6c 61 74 65  |sources.Template|
00000910  73 22 2c 73 70 72 69 74  65 25 0d 03 02 35 64 69  |s",sprite%...5di|
00000920  73 63 5f 69 6e 66 6f 62  6f 78 25 3d 21 71 25 3a  |sc_infobox%=!q%:|
00000930  64 69 73 63 5f 77 61 69  74 25 3d 71 25 21 34 3a  |disc_wait%=q%!4:|
00000940  64 69 73 63 5f 71 75 69  74 25 3d 71 25 21 38 0d  |disc_quit%=q%!8.|
00000950  03 0c 3f 64 69 73 63 5f  61 6e 6e 6f 75 6e 63 65  |..?disc_announce|
00000960  25 3d 71 25 21 31 32 3a  64 69 73 63 5f 63 6c 65  |%=q%!12:disc_cle|
00000970  61 72 25 3d 71 25 21 31  36 3a 64 69 73 63 5f 73  |ar%=q%!16:disc_s|
00000980  61 76 65 62 6f 78 32 25  3d 71 25 21 32 30 0d 03  |avebox2%=q%!20..|
00000990  16 3c 64 69 73 63 5f 70  72 69 6e 74 25 3d 71 25  |.<disc_print%=q%|
000009a0  21 32 34 3a 64 69 73 63  5f 73 61 76 65 62 6f 78  |!24:disc_savebox|
000009b0  25 3d 71 25 21 32 38 3a  64 69 73 63 5f 73 65 61  |%=q%!28:disc_sea|
000009c0  72 63 68 25 3d 71 25 21  33 32 0d 03 20 41 64 69  |rch%=q%!32.. Adi|
000009d0  73 63 5f 62 61 63 6b 6f  70 74 69 6f 6e 73 25 3d  |sc_backoptions%=|
000009e0  71 25 21 33 36 3a 64 69  73 63 5f 69 6e 64 65 78  |q%!36:disc_index|
000009f0  25 3d 71 25 21 34 30 3a  64 69 73 63 5f 6f 70 74  |%=q%!40:disc_opt|
00000a00  69 6f 6e 73 25 3d 71 25  21 34 34 0d 03 2a 39 64  |ions%=q%!44..*9d|
00000a10  69 73 63 5f 66 6f 75 6e  64 25 3d 71 25 21 34 38  |isc_found%=q%!48|
00000a20  3a 64 69 73 63 5f 74 72  61 63 6b 73 25 3d 71 25  |:disc_tracks%=q%|
00000a30  21 35 32 3a 64 69 73 63  5f 73 6f 72 74 25 3d 71  |!52:disc_sort%=q|
00000a40  25 21 35 36 0d 03 34 6e  c9 20 31 3a c8 99 20 22  |%!56..4n. 1:.. "|
00000a50  57 69 6d 70 45 78 74 5f  4c 6f 61 64 54 65 6d 70  |WimpExt_LoadTemp|
00000a60  6c 61 74 65 73 22 2c 71  25 2c 71 25 2b 36 30 2c  |lates",q%,q%+60,|
00000a70  69 6e 64 69 72 25 2c 69  6e 64 69 72 25 2b 37 31  |indir%,indir%+71|
00000a80  39 38 2c 66 6f 6e 74 62  25 2c 22 3c 44 69 73 63  |98,fontb%,"<Disc|
00000a90  24 44 69 72 3e 2e 52 65  73 6f 75 72 63 65 73 2e  |$Dir>.Resources.|
00000aa0  46 6f 6e 74 54 65 6d 70  73 22 2c 73 70 72 69 74  |FontTemps",sprit|
00000ab0  65 25 0d 03 3e 38 64 69  73 63 5f 73 65 61 72 63  |e%..>8disc_searc|
00000ac0  68 25 3d 21 71 25 3a 64  69 73 63 5f 66 6f 75 6e  |h%=!q%:disc_foun|
00000ad0  64 25 3d 71 25 21 34 3a  64 69 73 63 5f 69 6e 66  |d%=q%!4:disc_inf|
00000ae0  6f 62 6f 78 25 3d 71 25  21 38 0d 03 48 3b 64 69  |obox%=q%!8..H;di|
00000af0  73 63 5f 71 75 69 74 25  3d 71 25 21 31 32 3a 64  |sc_quit%=q%!12:d|
00000b00  69 73 63 5f 61 6e 6e 6f  75 6e 63 65 25 3d 71 25  |isc_announce%=q%|
00000b10  21 31 36 3a 64 69 73 63  5f 63 6c 65 61 72 25 3d  |!16:disc_clear%=|
00000b20  71 25 21 32 30 0d 03 52  3e 64 69 73 63 5f 73 61  |q%!20..R>disc_sa|
00000b30  76 65 62 6f 78 25 3d 71  25 21 32 34 3a 64 69 73  |vebox%=q%!24:dis|
00000b40  63 5f 73 61 76 65 62 6f  78 32 25 3d 71 25 21 32  |c_savebox2%=q%!2|
00000b50  38 3a 64 69 73 63 5f 70  72 69 6e 74 25 3d 71 25  |8:disc_print%=q%|
00000b60  21 33 32 0d 03 5c 40 64  69 73 63 5f 77 61 69 74  |!32..\@disc_wait|
00000b70  25 3d 71 25 21 33 36 3a  64 69 73 63 5f 62 61 63  |%=q%!36:disc_bac|
00000b80  6b 6f 70 74 69 6f 6e 73  25 3d 71 25 21 34 30 3a  |koptions%=q%!40:|
00000b90  64 69 73 63 5f 6f 70 74  69 6f 6e 73 25 3d 71 25  |disc_options%=q%|
00000ba0  21 34 34 0d 03 66 39 64  69 73 63 5f 69 6e 64 65  |!44..f9disc_inde|
00000bb0  78 25 3d 71 25 21 34 38  3a 64 69 73 63 5f 74 72  |x%=q%!48:disc_tr|
00000bc0  61 63 6b 73 25 3d 71 25  21 35 32 3a 64 69 73 63  |acks%=q%!52:disc|
00000bd0  5f 73 6f 72 74 25 3d 71  25 21 35 36 0d 03 70 05  |_sort%=q%!56..p.|
00000be0  cb 0d 03 7a 37 c8 99 20  22 57 69 6d 70 45 78 74  |...z7.. "WimpExt|
00000bf0  5f 4c 69 6e 6b 57 69 6e  64 6f 77 73 22 2c 2c 2c  |_LinkWindows",,,|
00000c00  64 69 73 63 5f 69 6e 64  65 78 25 2c 64 69 73 63  |disc_index%,disc|
00000c10  5f 74 72 61 63 6b 73 25  0d 03 84 3e c8 99 20 22  |_tracks%...>.. "|
00000c20  57 69 6d 70 45 78 74 5f  4c 69 6e 6b 57 69 6e 64  |WimpExt_LinkWind|
00000c30  6f 77 73 22 2c 2c 2c 64  69 73 63 5f 62 61 63 6b  |ows",,,disc_back|
00000c40  6f 70 74 69 6f 6e 73 25  2c 64 69 73 63 5f 6f 70  |options%,disc_op|
00000c50  74 69 6f 6e 73 25 0d 03  8e 35 c8 99 20 22 57 69  |tions%...5.. "Wi|
00000c60  6d 70 45 78 74 5f 53 65  74 49 63 6f 6e 53 74 72  |mpExt_SetIconStr|
00000c70  69 6e 67 22 2c 2c 2c 64  69 73 63 5f 69 6e 66 6f  |ing",,,disc_info|
00000c80  62 6f 78 25 2c 37 2c 76  65 72 24 0d 03 98 33 c8  |box%,7,ver$...3.|
00000c90  99 20 22 57 69 6d 70 45  78 74 5f 49 63 6f 6e 42  |. "WimpExt_IconB|
00000ca0  61 72 53 70 72 69 74 65  22 2c 2c 2c 2d 31 2c 22  |arSprite",,,-1,"|
00000cb0  21 44 69 73 63 49 6e 64  65 78 22 2c 2c 33 0d 03  |!DiscIndex",,3..|
00000cc0  a2 13 f2 75 70 64 61 74  65 5f 6f 70 74 69 6f 6e  |...update_option|
00000cd0  73 0d 03 ac 05 e1 0d 03  b6 05 3a 0d 03 c0 10 dd  |s.........:.....|
00000ce0  f2 6d 61 6b 65 5f 6d 65  6e 75 73 0d 03 ca 18 6d  |.make_menus....m|
00000cf0  65 6e 75 66 72 65 65 25  3d 6d 65 6e 75 73 74 61  |enufree%=menusta|
00000d00  72 74 25 0d 03 d4 25 e3  20 6c 6f 6f 70 25 3d 6d  |rt%...%. loop%=m|
00000d10  65 6e 75 73 74 61 72 74  25 20 b8 20 6d 65 6e 75  |enustart% . menu|
00000d20  65 6e 64 25 20 88 20 34  0d 03 de 0c 21 6c 6f 6f  |end% . 4....!loo|
00000d30  70 25 3d 30 0d 03 e8 05  ed 0d 03 f2 65 69 63 6f  |p%=0........eico|
00000d40  6e 62 61 72 6d 65 6e 75  25 3d a4 63 72 65 61 74  |nbarmenu%=.creat|
00000d50  65 5f 6d 65 6e 75 28 22  23 20 44 69 73 63 20 49  |e_menu("# Disc I|
00000d60  6e 64 65 78 20 2c 49 6e  66 6f 3e 64 69 73 63 5f  |ndex ,Info>disc_|
00000d70  69 6e 66 6f 62 6f 78 25  2c 4f 70 74 69 6f 6e 73  |infobox%,Options|
00000d80  2e 2e 2e 2c 52 65 73 74  61 72 74 20 20 20 46 38  |...,Restart   F8|
00000d90  23 2c 51 75 69 74 22 2c  22 22 2c 22 22 29 0d 03  |#,Quit","","")..|
00000da0  fc a2 74 79 70 65 73 75  62 6d 65 6e 75 24 3d 22  |..typesubmenu$="|
00000db0  23 20 44 69 73 63 74 79  70 65 73 20 2c 41 70 70  |# Disctypes ,App|
00000dc0  6c 69 63 61 74 69 6f 6e  73 2c 41 72 74 2c 42 61  |lications,Art,Ba|
00000dd0  63 6b 2d 75 70 20 44 69  73 63 2c 42 6c 61 6e 6b  |ck-up Disc,Blank|
00000de0  2c 43 6c 69 70 20 41 72  74 2c 44 65 6d 6f 6e 73  |,Clip Art,Demons|
00000df0  74 72 61 74 69 6f 6e 73  2c 44 72 61 77 20 46 69  |trations,Draw Fi|
00000e00  6c 65 73 2c 44 54 50 2c  46 6f 6e 74 73 20 28 52  |les,DTP,Fonts (R|
00000e10  49 53 43 20 4f 53 20 32  29 2c 46 6f 6e 74 73 20  |ISC OS 2),Fonts |
00000e20  28 52 49 53 43 20 4f 53  20 33 29 2c 47 61 6d 65  |(RISC OS 3),Game|
00000e30  73 2c 4d 61 67 61 7a 69  6e 65 20 44 69 73 63 22  |s,Magazine Disc"|
00000e40  0d 04 06 7d 74 79 70 65  6d 65 6e 75 24 3d 74 79  |...}typemenu$=ty|
00000e50  70 65 73 75 62 6d 65 6e  75 24 2b 22 2c 4d 75 73  |pesubmenu$+",Mus|
00000e60  69 63 2c 50 43 2c 50 75  62 6c 69 63 20 44 6f 6d  |ic,PC,Public Dom|
00000e70  61 69 6e 2c 53 6f 75 6e  64 54 72 61 63 6b 65 72  |ain,SoundTracker|
00000e80  73 2c 53 70 72 65 61 64  73 68 65 65 74 73 2c 53  |s,Spreadsheets,S|
00000e90  70 72 69 74 65 73 2c 54  65 78 74 20 46 69 6c 65  |prites,Text File|
00000ea0  73 2c 55 74 69 6c 69 74  69 65 73 2c 57 6f 72 6b  |s,Utilities,Work|
00000eb0  20 69 6e 20 50 72 6f 67  72 65 73 73 22 0d 04 10  | in Progress"...|
00000ec0  2b 74 79 70 65 6d 65 6e  75 25 3d a4 63 72 65 61  |+typemenu%=.crea|
00000ed0  74 65 5f 6d 65 6e 75 28  74 79 70 65 6d 65 6e 75  |te_menu(typemenu|
00000ee0  24 2c 22 22 2c 22 22 29  0d 04 1a 60 73 61 76 65  |$,"","")...`save|
00000ef0  6d 65 6e 75 25 3d a4 63  72 65 61 74 65 5f 6d 65  |menu%=.create_me|
00000f00  6e 75 28 22 23 20 53 61  76 65 20 61 73 20 2c 44  |nu("# Save as ,D|
00000f10  69 73 63 20 49 6e 64 65  78 20 20 20 46 33 3e 64  |isc Index   F3>d|
00000f20  69 73 63 5f 73 61 76 65  62 6f 78 32 25 2c 54 65  |isc_savebox2%,Te|
00000f30  78 74 3e 64 69 73 63 5f  73 61 76 65 62 6f 78 25  |xt>disc_savebox%|
00000f40  22 2c 22 22 2c 22 22 29  0d 04 24 be 6d 61 69 6e  |","","")..$.main|
00000f50  6d 65 6e 75 25 3d a4 63  72 65 61 74 65 5f 6d 65  |menu%=.create_me|
00000f60  6e 75 28 22 23 20 44 69  73 63 20 49 6e 64 65 78  |nu("# Disc Index|
00000f70  20 2c 49 6e 66 6f 3e 64  69 73 63 5f 69 6e 66 6f  | ,Info>disc_info|
00000f80  62 6f 78 25 2c 51 75 69  74 23 2c 43 6c 65 61 72  |box%,Quit#,Clear|
00000f90  20 52 65 63 6f 72 64 2c  50 72 69 6e 74 20 20 20  | Record,Print   |
00000fa0  20 20 46 31 3e 64 69 73  63 5f 70 72 69 6e 74 25  |  F1>disc_print%|
00000fb0  2c 52 65 73 74 61 72 74  20 20 20 46 38 2c 53 61  |,Restart   F8,Sa|
00000fc0  76 65 3e 73 61 76 65 6d  65 6e 75 25 2c 53 65 61  |ve>savemenu%,Sea|
00000fd0  72 63 68 20 20 20 20 46  34 3e 64 69 73 63 5f 73  |rch    F4>disc_s|
00000fe0  65 61 72 63 68 25 2c 53  6f 72 74 20 20 20 20 20  |earch%,Sort     |
00000ff0  20 46 32 3e 64 69 73 63  5f 73 6f 72 74 25 22 2c  | F2>disc_sort%",|
00001000  22 22 2c 22 22 29 0d 04  2e 05 e1 0d 04 38 05 3a  |"","").......8.:|
00001010  0d 04 42 14 dd f2 70 72  65 5f 70 6f 6c 6c 5f 65  |..B...pre_poll_e|
00001020  72 72 6f 72 0d 04 4c 08  eb 20 31 35 0d 04 56 13  |rror..L.. 15..V.|
00001030  f1 20 f6 24 2b 22 20 40  20 22 2b c3 28 9e 29 0d  |. .$+" @ "+.(.).|
00001040  04 60 09 ee 20 85 20 87  0d 04 6a 05 e1 0d 04 74  |.`.. . ...j....t|
00001050  05 3a 0d 04 7e 0b dd f2  65 72 72 6f 72 0d 04 88  |.:..~...error...|
00001060  0b ef 20 33 3a d9 23 30  0d 04 92 59 c8 99 20 22  |.. 3:.#0...Y.. "|
00001070  57 69 6d 70 45 78 74 5f  43 6f 6e 74 72 6f 6c 49  |WimpExt_ControlI|
00001080  6d 6d 65 64 69 61 74 65  22 2c 2c 32 2c 22 4d 65  |mmediate",,2,"Me|
00001090  73 73 61 67 65 20 46 72  6f 6d 20 44 69 73 63 20  |ssage From Disc |
000010a0  49 6e 64 65 78 22 2c f6  24 2c 62 75 74 5f 6f 6b  |Index",.$,but_ok|
000010b0  71 75 69 74 25 2c 30 20  b8 20 62 75 74 74 6f 6e  |quit%,0 . button|
000010c0  25 0d 04 9c 14 e7 20 62  75 74 74 6f 6e 25 3c 3e  |%..... button%<>|
000010d0  33 20 8c 20 e1 0d 04 a6  05 e0 0d 04 b0 05 3a 0d  |3 . ..........:.|
000010e0  04 ba 13 dd f2 6f 70 65  6e 28 77 69 6e 64 6f 77  |.....open(window|
000010f0  25 29 0d 04 c4 4e 21 71  25 3d 77 69 6e 64 6f 77  |%)...N!q%=window|
00001100  25 3a c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |%:.. "Wimp_GetWi|
00001110  6e 64 6f 77 53 74 61 74  65 22 2c 2c 71 25 3a 71  |ndowState",,q%:q|
00001120  25 21 32 38 3d 2d 31 3a  c8 99 20 22 57 69 6d 70  |%!28=-1:.. "Wimp|
00001130  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 71 25  |_OpenWindow",,q%|
00001140  0d 04 ce 05 e1 0d 04 d8  05 3a 0d 04 e2 14 dd f2  |.........:......|
00001150  63 6c 6f 73 65 28 77 69  6e 64 6f 77 25 29 0d 04  |close(window%)..|
00001160  ec 29 21 71 25 3d 77 69  6e 64 6f 77 25 3a c8 99  |.)!q%=window%:..|
00001170  20 22 57 69 6d 70 5f 43  6c 6f 73 65 57 69 6e 64  | "Wimp_CloseWind|
00001180  6f 77 22 2c 2c 71 25 0d  04 f6 05 e1 0d 05 00 05  |ow",,q%.........|
00001190  3a 0d 05 0a 38 dd f2 63  68 65 63 6b 5f 6d 6f 75  |:...8..check_mou|
000011a0  73 65 28 6d 6f 75 73 65  78 25 2c 6d 6f 75 73 65  |se(mousex%,mouse|
000011b0  79 25 2c 62 75 74 74 6f  6e 25 2c 77 69 6e 64 6f  |y%,button%,windo|
000011c0  77 25 2c 69 63 6f 6e 25  29 0d 05 14 10 c8 8e 20  |w%,icon%)...... |
000011d0  77 69 6e 64 6f 77 25 20  ca 0d 05 1e 6a c9 20 2d  |window% ....j. -|
000011e0  32 3a e7 20 62 75 74 74  6f 6e 25 3d 32 20 8c 20  |2:. button%=2 . |
000011f0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
00001200  65 6e 75 22 2c 2c 69 63  6f 6e 62 61 72 6d 65 6e  |enu",,iconbarmen|
00001210  75 25 2c 6d 6f 75 73 65  78 25 2d 34 38 2c 39 36  |u%,mousex%-48,96|
00001220  2b 28 34 2a 34 34 29 2b  32 34 3a 73 65 6c 65 63  |+(4*44)+24:selec|
00001230  74 6d 65 6e 75 25 3d 69  63 6f 6e 62 61 72 6d 65  |tmenu%=iconbarme|
00001240  6e 75 25 0d 05 28 5b e7  20 28 62 75 74 74 6f 6e  |nu%..([. (button|
00001250  25 20 80 20 35 29 3c 3e  30 20 8c 20 c8 99 20 22  |% . 5)<>0 . .. "|
00001260  57 69 6d 70 45 78 74 5f  4f 70 65 6e 57 69 6e 64  |WimpExt_OpenWind|
00001270  6f 77 54 6f 70 22 2c 64  69 73 63 5f 69 6e 64 65  |owTop",disc_inde|
00001280  78 25 3a f2 6d 6f 76 65  5f 63 61 72 65 74 28 64  |x%:.move_caret(d|
00001290  69 73 63 5f 69 6e 64 65  78 25 2c 31 33 29 0d 05  |isc_index%,13)..|
000012a0  32 1c c9 20 64 69 73 63  5f 63 6c 65 61 72 25 3a  |2.. disc_clear%:|
000012b0  c8 8e 20 69 63 6f 6e 25  20 ca 0d 05 3c 13 c9 20  |.. icon% ...<.. |
000012c0  31 3a f2 63 6c 65 61 72  5f 64 61 74 61 0d 05 46  |1:.clear_data..F|
000012d0  37 c9 20 32 3a f2 63 6c  6f 73 65 28 64 69 73 63  |7. 2:.close(disc|
000012e0  5f 63 6c 65 61 72 25 29  3a c8 99 20 22 57 69 6d  |_clear%):.. "Wim|
000012f0  70 45 78 74 5f 52 65 6c  65 61 73 65 50 6f 69 6e  |pExt_ReleasePoin|
00001300  74 65 72 22 0d 05 50 05  cb 0d 05 5a 1b c9 20 64  |ter"..P....Z.. d|
00001310  69 73 63 5f 71 75 69 74  25 3a c8 8e 20 69 63 6f  |isc_quit%:.. ico|
00001320  6e 25 20 ca 0d 05 64 0f  c9 20 31 3a 71 75 69 74  |n% ...d.. 1:quit|
00001330  25 3d b9 0d 05 6e 36 c9  20 32 3a f2 63 6c 6f 73  |%=...n6. 2:.clos|
00001340  65 28 64 69 73 63 5f 71  75 69 74 25 29 3a c8 99  |e(disc_quit%):..|
00001350  20 22 57 69 6d 70 45 78  74 5f 52 65 6c 65 61 73  | "WimpExt_Releas|
00001360  65 50 6f 69 6e 74 65 72  22 0d 05 78 05 cb 0d 05  |ePointer"..x....|
00001370  82 2a c9 20 64 69 73 63  5f 69 6e 64 65 78 25 3a  |.*. disc_index%:|
00001380  e7 20 62 75 74 74 6f 6e  25 3d 32 20 8c 20 c8 8e  |. button%=2 . ..|
00001390  20 69 63 6f 6e 25 20 ca  0d 05 8c 54 c9 20 31 35  | icon% ....T. 15|
000013a0  3a c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |:.. "Wimp_Create|
000013b0  4d 65 6e 75 22 2c 2c 74  79 70 65 6d 65 6e 75 25  |Menu",,typemenu%|
000013c0  2c 6d 6f 75 73 65 78 25  2d 34 38 2c 6d 6f 75 73  |,mousex%-48,mous|
000013d0  65 79 25 2b 31 30 3a 73  65 6c 65 63 74 6d 65 6e  |ey%+10:selectmen|
000013e0  75 25 3d 74 79 70 65 6d  65 6e 75 25 0d 05 96 7a  |u%=typemenu%...z|
000013f0  7f 3a c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.:.. "Wimp_Creat|
00001400  65 4d 65 6e 75 22 2c 2c  6d 61 69 6e 6d 65 6e 75  |eMenu",,mainmenu|
00001410  25 2c 6d 6f 75 73 65 78  25 2d 34 38 2c 6d 6f 75  |%,mousex%-48,mou|
00001420  73 65 79 25 2b 31 30 3a  73 65 6c 65 63 74 6d 65  |sey%+10:selectme|
00001430  6e 75 25 3d 6d 61 69 6e  6d 65 6e 75 25 3a 73 65  |nu%=mainmenu%:se|
00001440  6c 65 63 74 77 69 6e 64  6f 77 25 3d 64 69 73 63  |lectwindow%=disc|
00001450  5f 69 6e 64 65 78 25 3a  73 65 6c 65 63 74 69 63  |_index%:selectic|
00001460  6f 6e 25 3d 31 33 0d 05  a0 05 cb 0d 05 aa 23 e7  |on%=13........#.|
00001470  20 28 62 75 74 74 6f 6e  25 20 80 20 35 29 3c 3e  | (button% . 5)<>|
00001480  30 20 8c 20 c8 8e 20 69  63 6f 6e 25 20 ca 0d 05  |0 . .. icon% ...|
00001490  b4 26 c9 20 33 3a f2 72  65 61 64 3a 72 65 63 6f  |.&. 3:.read:reco|
000014a0  72 64 5f 6e 75 6d 62 65  72 25 3d 31 3a f2 75 70  |rd_number%=1:.up|
000014b0  64 61 74 65 0d 05 be 28  c9 20 32 3a f2 72 65 61  |date...(. 2:.rea|
000014c0  64 3a 72 65 63 6f 72 64  5f 6e 75 6d 62 65 72 25  |d:record_number%|
000014d0  2d 3d 31 30 3a f2 75 70  64 61 74 65 0d 05 c8 28  |-=10:.update...(|
000014e0  c9 20 33 34 3a f2 72 65  61 64 3a 72 65 63 6f 72  |. 34:.read:recor|
000014f0  64 5f 6e 75 6d 62 65 72  25 2d 3d 31 3a f2 75 70  |d_number%-=1:.up|
00001500  64 61 74 65 0d 05 d2 27  c9 20 34 3a f2 72 65 61  |date...'. 4:.rea|
00001510  64 3a 72 65 63 6f 72 64  5f 6e 75 6d 62 65 72 25  |d:record_number%|
00001520  2b 3d 31 3a f2 75 70 64  61 74 65 0d 05 dc 28 c9  |+=1:.update...(.|
00001530  20 35 3a f2 72 65 61 64  3a 72 65 63 6f 72 64 5f  | 5:.read:record_|
00001540  6e 75 6d 62 65 72 25 2b  3d 31 30 3a f2 75 70 64  |number%+=10:.upd|
00001550  61 74 65 0d 05 e6 30 c9  20 36 3a f2 72 65 61 64  |ate...0. 6:.read|
00001560  3a 72 65 63 6f 72 64 5f  6e 75 6d 62 65 72 25 3d  |:record_number%=|
00001570  6d 61 78 5f 72 65 63 6f  72 64 25 3a f2 75 70 64  |max_record%:.upd|
00001580  61 74 65 0d 05 f0 7d c9  20 31 35 3a c8 99 20 22  |ate...}. 15:.. "|
00001590  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
000015a0  2c 2c 74 79 70 65 6d 65  6e 75 25 2c 6d 6f 75 73  |,,typemenu%,mous|
000015b0  65 78 25 2d 34 38 2c 6d  6f 75 73 65 79 25 2b 31  |ex%-48,mousey%+1|
000015c0  30 3a 73 65 6c 65 63 74  6d 65 6e 75 25 3d 74 79  |0:selectmenu%=ty|
000015d0  70 65 6d 65 6e 75 25 3a  73 65 6c 65 63 74 77 69  |pemenu%:selectwi|
000015e0  6e 64 6f 77 25 3d 64 69  73 63 5f 69 6e 64 65 78  |ndow%=disc_index|
000015f0  25 3a 73 65 6c 65 63 74  69 63 6f 6e 25 3d 31 33  |%:selecticon%=13|
00001600  0d 05 fa 16 c9 20 32 30  3a f2 73 63 61 6e 5f 64  |..... 20:.scan_d|
00001610  72 69 76 65 5f 30 0d 06  04 41 c9 20 32 34 3a f2  |rive_0...A. 24:.|
00001620  63 6c 6f 73 65 5f 61 6c  6c 3a f2 6f 70 65 6e 28  |close_all:.open(|
00001630  64 69 73 63 5f 70 72 69  6e 74 25 29 3a f2 6d 6f  |disc_print%):.mo|
00001640  76 65 5f 63 61 72 65 74  28 64 69 73 63 5f 70 72  |ve_caret(disc_pr|
00001650  69 6e 74 25 2c 36 29 0d  06 0e 47 c9 20 33 31 3a  |int%,6)...G. 31:|
00001660  f2 63 6c 6f 73 65 5f 61  6c 6c 3a f2 6f 70 65 6e  |.close_all:.open|
00001670  28 64 69 73 63 5f 73 61  76 65 62 6f 78 32 25 29  |(disc_savebox2%)|
00001680  3a f2 6d 6f 76 65 5f 63  61 72 65 74 28 64 69 73  |:.move_caret(dis|
00001690  63 5f 73 61 76 65 62 6f  78 32 25 2c 31 29 0d 06  |c_savebox2%,1)..|
000016a0  18 57 c9 20 33 32 3a f2  63 6c 6f 73 65 5f 61 6c  |.W. 32:.close_al|
000016b0  6c 3a f2 63 6c 6f 73 65  28 64 69 73 63 5f 66 6f  |l:.close(disc_fo|
000016c0  75 6e 64 25 29 3a f2 6f  70 65 6e 28 64 69 73 63  |und%):.open(disc|
000016d0  5f 73 65 61 72 63 68 25  29 3a f2 6d 6f 76 65 5f  |_search%):.move_|
000016e0  63 61 72 65 74 28 64 69  73 63 5f 73 65 61 72 63  |caret(disc_searc|
000016f0  68 25 2c 31 29 0d 06 22  25 c9 20 33 33 3a f2 63  |h%,1).."%. 33:.c|
00001700  6c 6f 73 65 5f 61 6c 6c  3a f2 6f 70 65 6e 28 64  |lose_all:.open(d|
00001710  69 73 63 5f 73 6f 72 74  25 29 0d 06 2c 05 cb 0d  |isc_sort%)..,...|
00001720  06 36 33 c9 20 64 69 73  63 5f 73 61 76 65 62 6f  |.63. disc_savebo|
00001730  78 25 3a e7 20 28 62 75  74 74 6f 6e 25 20 80 20  |x%:. (button% . |
00001740  35 29 3c 3e 30 20 8c 20  c8 8e 20 69 63 6f 6e 25  |5)<>0 . .. icon%|
00001750  20 ca 0d 06 40 20 c9 20  30 3a 73 61 76 65 74 79  | ...@ . 0:savety|
00001760  70 65 24 3d 22 46 46 46  22 3a f2 64 72 61 67 62  |pe$="FFF":.dragb|
00001770  6f 78 0d 06 4a 22 c9 20  32 3a 73 61 76 65 74 79  |ox..J". 2:savety|
00001780  70 65 24 3d 22 46 46 46  22 3a f2 71 75 69 63 6b  |pe$="FFF":.quick|
00001790  73 61 76 65 0d 06 54 1a  c9 20 33 3a 73 61 76 65  |save..T.. 3:save|
000017a0  61 6c 6c 74 65 78 74 24  3d 22 59 65 73 22 0d 06  |alltext$="Yes"..|
000017b0  5e 19 c9 20 34 3a 73 61  76 65 61 6c 6c 74 65 78  |^.. 4:savealltex|
000017c0  74 24 3d 22 4e 6f 22 0d  06 68 05 cb 0d 06 72 34  |t$="No"..h....r4|
000017d0  c9 20 64 69 73 63 5f 73  61 76 65 62 6f 78 32 25  |. disc_savebox2%|
000017e0  3a e7 20 28 62 75 74 74  6f 6e 25 20 80 20 35 29  |:. (button% . 5)|
000017f0  3c 3e 30 20 8c 20 c8 8e  20 69 63 6f 6e 25 20 ca  |<>0 . .. icon% .|
00001800  0d 06 7c 20 c9 20 30 3a  73 61 76 65 74 79 70 65  |..| . 0:savetype|
00001810  24 3d 22 45 39 32 22 3a  f2 64 72 61 67 62 6f 78  |$="E92":.dragbox|
00001820  0d 06 86 22 c9 20 32 3a  73 61 76 65 74 79 70 65  |...". 2:savetype|
00001830  24 3d 22 45 39 32 22 3a  f2 71 75 69 63 6b 73 61  |$="E92":.quicksa|
00001840  76 65 0d 06 90 05 cb 0d  06 9a 33 c9 20 64 69 73  |ve........3. dis|
00001850  63 5f 6f 70 74 69 6f 6e  73 25 3a e7 20 28 62 75  |c_options%:. (bu|
00001860  74 74 6f 6e 25 20 80 20  35 29 3c 3e 30 20 8c 20  |tton% . 5)<>0 . |
00001870  c8 8e 20 69 63 6f 6e 25  20 ca 0d 06 a4 2e c9 20  |.. icon% ...... |
00001880  31 3a e7 20 73 63 61 6e  61 70 70 25 3d 31 20 8c  |1:. scanapp%=1 .|
00001890  20 73 63 61 6e 61 70 70  25 3d 30 20 8b 20 73 63  | scanapp%=0 . sc|
000018a0  61 6e 61 70 70 25 3d 31  0d 06 ae 2f c9 20 31 31  |anapp%=1.../. 11|
000018b0  3a e7 20 73 63 61 6e 64  69 72 25 3d 31 20 8c 20  |:. scandir%=1 . |
000018c0  73 63 61 6e 64 69 72 25  3d 30 20 8b 20 73 63 61  |scandir%=0 . sca|
000018d0  6e 64 69 72 25 3d 31 0d  06 b8 37 c9 20 33 3a e7  |ndir%=1...7. 3:.|
000018e0  20 6d 6f 76 65 74 6f 6e  65 78 74 25 3d 31 20 8c  | movetonext%=1 .|
000018f0  20 6d 6f 76 65 74 6f 6e  65 78 74 25 3d 30 20 8b  | movetonext%=0 .|
00001900  20 6d 6f 76 65 74 6f 6e  65 78 74 25 3d 31 0d 06  | movetonext%=1..|
00001910  c2 17 c9 20 37 3a 6f 75  74 6c 69 6e 65 66 6f 6e  |... 7:outlinefon|
00001920  74 73 25 3d 31 0d 06 cc  17 c9 20 38 3a 6f 75 74  |ts%=1..... 8:out|
00001930  6c 69 6e 65 66 6f 6e 74  73 25 3d 30 0d 06 d6 46  |linefonts%=0...F|
00001940  c9 20 39 3a 6d 61 78 5f  72 65 63 6f 72 64 25 3d  |. 9:max_record%=|
00001950  35 30 3a f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |50:.update_icon(|
00001960  64 69 73 63 5f 69 6e 64  65 78 25 2c 31 31 2c 22  |disc_index%,11,"|
00001970  2f 22 2b c3 28 6d 61 78  5f 72 65 63 6f 72 64 25  |/"+.(max_record%|
00001980  29 29 0d 06 e0 48 c9 20  31 32 3a 6d 61 78 5f 72  |))...H. 12:max_r|
00001990  65 63 6f 72 64 25 3d 31  30 30 3a f2 75 70 64 61  |ecord%=100:.upda|
000019a0  74 65 5f 69 63 6f 6e 28  64 69 73 63 5f 69 6e 64  |te_icon(disc_ind|
000019b0  65 78 25 2c 31 31 2c 22  2f 22 2b c3 28 6d 61 78  |ex%,11,"/"+.(max|
000019c0  5f 72 65 63 6f 72 64 25  29 29 0d 06 ea 48 c9 20  |_record%))...H. |
000019d0  31 33 3a 6d 61 78 5f 72  65 63 6f 72 64 25 3d 31  |13:max_record%=1|
000019e0  35 30 3a f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |50:.update_icon(|
000019f0  64 69 73 63 5f 69 6e 64  65 78 25 2c 31 31 2c 22  |disc_index%,11,"|
00001a00  2f 22 2b c3 28 6d 61 78  5f 72 65 63 6f 72 64 25  |/"+.(max_record%|
00001a10  29 29 0d 06 f4 48 c9 20  31 34 3a 6d 61 78 5f 72  |))...H. 14:max_r|
00001a20  65 63 6f 72 64 25 3d 32  30 30 3a f2 75 70 64 61  |ecord%=200:.upda|
00001a30  74 65 5f 69 63 6f 6e 28  64 69 73 63 5f 69 6e 64  |te_icon(disc_ind|
00001a40  65 78 25 2c 31 31 2c 22  2f 22 2b c3 28 6d 61 78  |ex%,11,"/"+.(max|
00001a50  5f 72 65 63 6f 72 64 25  29 29 0d 06 fe 48 c9 20  |_record%))...H. |
00001a60  31 35 3a 6d 61 78 5f 72  65 63 6f 72 64 25 3d 32  |15:max_record%=2|
00001a70  35 30 3a f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |50:.update_icon(|
00001a80  64 69 73 63 5f 69 6e 64  65 78 25 2c 31 31 2c 22  |disc_index%,11,"|
00001a90  2f 22 2b c3 28 6d 61 78  5f 72 65 63 6f 72 64 25  |/"+.(max_record%|
00001aa0  29 29 0d 07 08 05 cb 0d  07 12 37 c9 20 64 69 73  |))........7. dis|
00001ab0  63 5f 62 61 63 6b 6f 70  74 69 6f 6e 73 25 3a e7  |c_backoptions%:.|
00001ac0  20 28 62 75 74 74 6f 6e  25 20 80 20 35 29 3c 3e  | (button% . 5)<>|
00001ad0  30 20 8c 20 c8 8e 20 69  63 6f 6e 25 20 ca 0d 07  |0 . .. icon% ...|
00001ae0  1c 45 c9 20 32 3a f2 73  61 76 65 5f 6f 70 74 69  |.E. 2:.save_opti|
00001af0  6f 6e 73 3a f2 63 6c 6f  73 65 28 64 69 73 63 5f  |ons:.close(disc_|
00001b00  6f 70 74 69 6f 6e 73 25  29 3a f2 63 6c 6f 73 65  |options%):.close|
00001b10  28 64 69 73 63 5f 62 61  63 6b 6f 70 74 69 6f 6e  |(disc_backoption|
00001b20  73 25 29 0d 07 26 37 c9  20 31 3a f2 63 6c 6f 73  |s%)..&7. 1:.clos|
00001b30  65 28 64 69 73 63 5f 6f  70 74 69 6f 6e 73 25 29  |e(disc_options%)|
00001b40  3a f2 63 6c 6f 73 65 28  64 69 73 63 5f 62 61 63  |:.close(disc_bac|
00001b50  6b 6f 70 74 69 6f 6e 73  25 29 0d 07 30 05 cb 0d  |koptions%)..0...|
00001b60  07 3a 32 c9 20 64 69 73  63 5f 73 65 61 72 63 68  |.:2. disc_search|
00001b70  25 3a e7 20 28 62 75 74  74 6f 6e 25 20 80 20 35  |%:. (button% . 5|
00001b80  29 3c 3e 30 20 8c 20 c8  8e 20 69 63 6f 6e 25 20  |)<>0 . .. icon% |
00001b90  ca 0d 07 44 1b c9 20 39  3a 73 65 61 72 63 68 74  |...D.. 9:searcht|
00001ba0  79 70 65 24 3d 22 45 78  74 72 61 22 0d 07 4e 1b  |ype$="Extra"..N.|
00001bb0  c9 20 33 3a 73 65 61 72  63 68 74 79 70 65 24 3d  |. 3:searchtype$=|
00001bc0  22 44 6e 61 6d 65 22 0d  07 58 1b c9 20 34 3a 73  |"Dname"..X.. 4:s|
00001bd0  65 61 72 63 68 74 79 70  65 24 3d 22 44 74 79 70  |earchtype$="Dtyp|
00001be0  65 22 0d 07 62 19 c9 20  38 3a 73 65 61 72 63 68  |e"..b.. 8:search|
00001bf0  74 79 70 65 24 3d 22 41  70 70 22 0d 07 6c 2a c9  |type$="App"..l*.|
00001c00  20 35 3a f2 63 6c 65 61  72 5f 73 65 61 72 63 68  | 5:.clear_search|
00001c10  3a f2 73 65 61 72 63 68  28 73 65 61 72 63 68 74  |:.search(searcht|
00001c20  79 70 65 24 29 0d 07 76  4e c9 20 37 3a f2 75 70  |ype$)..vN. 7:.up|
00001c30  64 61 74 65 5f 69 63 6f  6e 28 64 69 73 63 5f 73  |date_icon(disc_s|
00001c40  65 61 72 63 68 25 2c 31  2c 73 65 61 72 63 68 73  |earch%,1,searchs|
00001c50  74 72 69 6e 67 24 29 3a  f2 6d 6f 76 65 5f 63 61  |tring$):.move_ca|
00001c60  72 65 74 28 64 69 73 63  5f 73 65 61 72 63 68 25  |ret(disc_search%|
00001c70  2c 31 29 0d 07 80 40 c9  20 31 30 3a e7 20 63 61  |,1)...@. 10:. ca|
00001c80  73 65 73 65 6e 73 65 24  3d 22 59 65 73 22 20 8c  |sesense$="Yes" .|
00001c90  20 63 61 73 65 73 65 6e  73 65 24 3d 22 4e 6f 22  | casesense$="No"|
00001ca0  20 8b 20 63 61 73 65 73  65 6e 73 65 24 3d 22 59  | . casesense$="Y|
00001cb0  65 73 22 0d 07 8a 08 c9  20 31 31 0d 07 94 78 c8  |es"..... 11...x.|
00001cc0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00001cd0  6e 75 22 2c 2c 74 79 70  65 6d 65 6e 75 25 2c 6d  |nu",,typemenu%,m|
00001ce0  6f 75 73 65 78 25 2d 34  38 2c 6d 6f 75 73 65 79  |ousex%-48,mousey|
00001cf0  25 2b 31 30 3a 73 65 6c  65 63 74 6d 65 6e 75 25  |%+10:selectmenu%|
00001d00  3d 74 79 70 65 6d 65 6e  75 25 3a 73 65 6c 65 63  |=typemenu%:selec|
00001d10  74 77 69 6e 64 6f 77 25  3d 64 69 73 63 5f 73 65  |twindow%=disc_se|
00001d20  61 72 63 68 25 3a 73 65  6c 65 63 74 69 63 6f 6e  |arch%:selecticon|
00001d30  25 3d 31 0d 07 9e a3 c8  99 20 22 57 69 6d 70 45  |%=1...... "WimpE|
00001d40  78 74 5f 53 65 74 49 63  6f 6e 22 2c 2c 2c 64 69  |xt_SetIcon",,,di|
00001d50  73 63 5f 73 65 61 72 63  68 25 2c 34 2c 31 3a c8  |sc_search%,4,1:.|
00001d60  99 20 22 57 69 6d 70 45  78 74 5f 53 65 74 49 63  |. "WimpExt_SetIc|
00001d70  6f 6e 22 2c 2c 2c 64 69  73 63 5f 73 65 61 72 63  |on",,,disc_searc|
00001d80  68 25 2c 39 2c 30 3a c8  99 20 22 57 69 6d 70 45  |h%,9,0:.. "WimpE|
00001d90  78 74 5f 53 65 74 49 63  6f 6e 22 2c 2c 2c 64 69  |xt_SetIcon",,,di|
00001da0  73 63 5f 73 65 61 72 63  68 25 2c 33 2c 30 3a c8  |sc_search%,3,0:.|
00001db0  99 20 22 57 69 6d 70 45  78 74 5f 53 65 74 49 63  |. "WimpExt_SetIc|
00001dc0  6f 6e 22 2c 2c 2c 64 69  73 63 5f 73 65 61 72 63  |on",,,disc_searc|
00001dd0  68 25 2c 38 2c 30 0d 07  a8 05 cb 0d 07 b2 84 c9  |h%,8,0..........|
00001de0  20 64 69 73 63 5f 66 6f  75 6e 64 25 3a e7 20 28  | disc_found%:. (|
00001df0  62 75 74 74 6f 6e 25 20  80 20 35 29 3c 3e 30 20  |button% . 5)<>0 |
00001e00  8c 20 63 6c 69 63 6b 5f  72 65 63 6f 72 64 25 3d  |. click_record%=|
00001e10  bb 28 a4 69 6e 64 69 72  65 63 74 28 64 69 73 63  |.(.indirect(disc|
00001e20  5f 66 6f 75 6e 64 25 2c  69 63 6f 6e 25 29 29 3a  |_found%,icon%)):|
00001e30  e7 20 63 6c 69 63 6b 5f  72 65 63 6f 72 64 25 3c  |. click_record%<|
00001e40  3e 30 20 8c 20 f2 72 65  61 64 3a f2 66 69 6c 6c  |>0 . .read:.fill|
00001e50  28 63 6c 69 63 6b 5f 72  65 63 6f 72 64 25 29 0d  |(click_record%).|
00001e60  07 bc 6c c9 20 64 69 73  63 5f 74 72 61 63 6b 73  |..l. disc_tracks|
00001e70  25 3a e7 20 62 75 74 74  6f 6e 25 3d 32 20 8c 20  |%:. button%=2 . |
00001e80  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
00001e90  65 6e 75 22 2c 2c 6d 61  69 6e 6d 65 6e 75 25 2c  |enu",,mainmenu%,|
00001ea0  6d 6f 75 73 65 78 25 2d  34 38 2c 6d 6f 75 73 65  |mousex%-48,mouse|
00001eb0  79 25 2b 31 30 3a 73 65  6c 65 63 74 6d 65 6e 75  |y%+10:selectmenu|
00001ec0  25 3d 6d 61 69 6e 6d 65  6e 75 25 0d 07 c6 31 c9  |%=mainmenu%...1.|
00001ed0  20 64 69 73 63 5f 70 72  69 6e 74 25 3a e7 20 28  | disc_print%:. (|
00001ee0  62 75 74 74 6f 6e 25 20  80 20 35 29 3c 3e 30 20  |button% . 5)<>0 |
00001ef0  8c 20 c8 8e 20 69 63 6f  6e 25 20 ca 0d 07 d0 18  |. .. icon% .....|
00001f00  c9 20 31 3a 70 72 69 6e  74 65 72 24 3d 22 44 72  |. 1:printer$="Dr|
00001f10  61 66 74 22 0d 07 da 16  c9 20 32 3a 70 72 69 6e  |aft"..... 2:prin|
00001f20  74 65 72 24 3d 22 4e 4c  51 22 0d 07 e4 2c c9 20  |ter$="NLQ"...,. |
00001f30  33 3a 70 72 69 6e 74 65  72 24 3d 22 52 49 53 43  |3:printer$="RISC|
00001f40  4f 53 22 3a 70 72 69 6e  74 77 68 61 74 24 3d 22  |OS":printwhat$="|
00001f50  4c 61 62 65 6c 22 0d 07  ee 37 c9 20 37 3a e7 20  |Label"...7. 7:. |
00001f60  70 72 69 6e 74 65 72 24  3d 22 52 49 53 43 4f 53  |printer$="RISCOS|
00001f70  22 20 8c 20 f2 70 72 69  6e 74 65 72 5f 64 72 69  |" . .printer_dri|
00001f80  76 65 72 73 20 8b 20 f2  70 72 69 6e 74 0d 07 f8  |vers . .print...|
00001f90  17 c9 20 39 3a 70 72 69  6e 74 77 68 61 74 24 3d  |.. 9:printwhat$=|
00001fa0  22 41 54 22 0d 08 02 1b  c9 20 31 31 3a 70 72 69  |"AT"..... 11:pri|
00001fb0  6e 74 77 68 61 74 24 3d  22 4c 61 62 65 6c 22 0d  |ntwhat$="Label".|
00001fc0  08 0c 19 c9 20 31 30 3a  70 72 69 6e 74 77 68 61  |.... 10:printwha|
00001fd0  74 24 3d 22 41 6c 6c 22  0d 08 16 18 c9 20 31 34  |t$="All"..... 14|
00001fe0  3a 70 72 69 6e 74 61 6c  6c 24 3d 22 59 65 73 22  |:printall$="Yes"|
00001ff0  0d 08 20 17 c9 20 31 35  3a 70 72 69 6e 74 61 6c  |.. .. 15:printal|
00002000  6c 24 3d 22 4e 6f 22 0d  08 2a 3c c9 20 31 39 3a  |l$="No"..*<. 19:|
00002010  e7 20 6c 69 6e 65 66 65  65 64 24 3d 22 4e 6f 22  |. linefeed$="No"|
00002020  20 8c 20 6c 69 6e 65 66  65 65 64 24 3d 22 59 65  | . linefeed$="Ye|
00002030  73 22 20 8b 20 6c 69 6e  65 66 65 65 64 24 3d 22  |s" . linefeed$="|
00002040  4e 6f 22 0d 08 34 05 cb  0d 08 3e 30 c9 20 64 69  |No"..4....>0. di|
00002050  73 63 5f 73 6f 72 74 25  3a e7 20 28 62 75 74 74  |sc_sort%:. (butt|
00002060  6f 6e 25 20 80 20 35 29  3c 3e 30 20 8c 20 c8 8e  |on% . 5)<>0 . ..|
00002070  20 69 63 6f 6e 25 20 ca  0d 08 48 19 c9 20 31 3a  | icon% ...H.. 1:|
00002080  73 6f 72 74 74 79 70 65  24 3d 22 44 6e 61 6d 65  |sorttype$="Dname|
00002090  22 0d 08 52 19 c9 20 32  3a 73 6f 72 74 74 79 70  |"..R.. 2:sorttyp|
000020a0  65 24 3d 22 44 74 79 70  65 22 0d 08 5c 16 c9 20  |e$="Dtype"..\.. |
000020b0  34 3a c8 8e 20 73 6f 72  74 74 79 70 65 24 20 ca  |4:.. sorttype$ .|
000020c0  0d 08 66 1c c9 20 22 44  6e 61 6d 65 22 3a f2 73  |..f.. "Dname":.s|
000020d0  6f 72 74 5f 64 69 73 63  6e 61 6d 65 0d 08 70 1c  |ort_discname..p.|
000020e0  c9 20 22 44 74 79 70 65  22 3a f2 73 6f 72 74 5f  |. "Dtype":.sort_|
000020f0  64 69 73 63 74 79 70 65  0d 08 7a 05 cb 0d 08 84  |disctype..z.....|
00002100  05 cb 0d 08 8e 05 cb 0d  08 98 05 e1 0d 08 a2 05  |................|
00002110  3a 0d 08 ac 36 dd f2 6b  65 79 5f 70 72 65 73 73  |:...6..key_press|
00002120  65 64 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |ed(window%,icon%|
00002130  2c 6b 65 79 5f 69 6e 64  65 78 25 2c 63 68 61 72  |,key_index%,char|
00002140  61 63 74 65 72 25 29 0d  08 b6 13 c8 8e 20 63 68  |acter%)...... ch|
00002150  61 72 61 63 74 65 72 25  20 ca 0d 08 c0 08 c9 20  |aracter% ...... |
00002160  31 33 0d 08 ca 10 c8 8e  20 77 69 6e 64 6f 77 25  |13...... window%|
00002170  20 ca 0d 08 d4 2e c9 20  64 69 73 63 5f 73 61 76  | ...... disc_sav|
00002180  65 62 6f 78 25 3a 73 61  76 65 74 79 70 65 24 3d  |ebox%:savetype$=|
00002190  22 46 46 46 22 3a f2 71  75 69 63 6b 73 61 76 65  |"FFF":.quicksave|
000021a0  0d 08 de 2f c9 20 64 69  73 63 5f 73 61 76 65 62  |.../. disc_saveb|
000021b0  6f 78 32 25 3a 73 61 76  65 74 79 70 65 24 3d 22  |ox2%:savetype$="|
000021c0  45 39 32 22 3a f2 71 75  69 63 6b 73 61 76 65 0d  |E92":.quicksave.|
000021d0  08 e8 12 c9 20 64 69 73  63 5f 70 72 69 6e 74 25  |.... disc_print%|
000021e0  3a 0d 08 f2 0e c8 8e 20  69 63 6f 6e 25 20 ca 0d  |:...... icon% ..|
000021f0  08 fc 23 c9 20 36 3a f2  6d 6f 76 65 5f 63 61 72  |..#. 6:.move_car|
00002200  65 74 28 64 69 73 63 5f  70 72 69 6e 74 25 2c 31  |et(disc_print%,1|
00002210  32 29 0d 09 06 0f c9 20  31 32 3a f2 70 72 69 6e  |2)..... 12:.prin|
00002220  74 0d 09 10 05 cb 0d 09  1a 35 c9 20 64 69 73 63  |t........5. disc|
00002230  5f 73 65 61 72 63 68 25  3a f2 63 6c 65 61 72 5f  |_search%:.clear_|
00002240  73 65 61 72 63 68 3a f2  73 65 61 72 63 68 28 73  |search:.search(s|
00002250  65 61 72 63 68 74 79 70  65 24 29 0d 09 24 1d c9  |earchtype$)..$..|
00002260  20 64 69 73 63 5f 74 72  61 63 6b 73 25 3a c8 8e  | disc_tracks%:..|
00002270  20 69 63 6f 6e 25 20 ca  0d 09 2e 31 c9 20 34 39  | icon% ....1. 49|
00002280  3a f2 74 72 61 63 6b 73  5f 6d 6f 76 65 5f 63 61  |:.tracks_move_ca|
00002290  72 65 74 28 64 69 73 63  5f 74 72 61 63 6b 73 25  |ret(disc_tracks%|
000022a0  2c 30 29 3a f2 72 65 61  64 0d 09 38 34 7f 3a f2  |,0):.read..84.:.|
000022b0  74 72 61 63 6b 73 5f 6d  6f 76 65 5f 63 61 72 65  |tracks_move_care|
000022c0  74 28 64 69 73 63 5f 74  72 61 63 6b 73 25 2c 69  |t(disc_tracks%,i|
000022d0  63 6f 6e 25 2b 31 29 3a  f2 72 65 61 64 0d 09 42  |con%+1):.read..B|
000022e0  05 cb 0d 09 4c 1c c9 20  64 69 73 63 5f 69 6e 64  |....L.. disc_ind|
000022f0  65 78 25 3a c8 8e 20 69  63 6f 6e 25 20 ca 0d 09  |ex%:.. icon% ...|
00002300  56 17 c9 20 31 30 3a f2  6e 75 6d 62 65 72 5f 75  |V.. 10:.number_u|
00002310  70 64 61 74 65 0d 09 60  2a c9 20 31 33 3a f2 72  |pdate..`*. 13:.r|
00002320  65 61 64 3a f2 6d 6f 76  65 5f 63 61 72 65 74 28  |ead:.move_caret(|
00002330  64 69 73 63 5f 74 72 61  63 6b 73 25 2c 30 29 0d  |disc_tracks%,0).|
00002340  09 6a 35 c9 20 32 35 2c  32 36 2c 32 37 3a f2 72  |.j5. 25,26,27:.r|
00002350  65 61 64 3a f2 6d 6f 76  65 5f 63 61 72 65 74 28  |ead:.move_caret(|
00002360  64 69 73 63 5f 69 6e 64  65 78 25 2c 69 63 6f 6e  |disc_index%,icon|
00002370  25 2b 31 29 0d 09 74 2a  c9 20 32 38 3a f2 72 65  |%+1)..t*. 28:.re|
00002380  61 64 3a f2 6d 6f 76 65  5f 63 61 72 65 74 28 64  |ad:.move_caret(d|
00002390  69 73 63 5f 69 6e 64 65  78 25 2c 32 35 29 0d 09  |isc_index%,25)..|
000023a0  7e 05 cb 0d 09 88 05 cb  0d 09 92 2f c9 20 32 37  |~........../. 27|
000023b0  3a f2 63 6c 6f 73 65 5f  61 6c 6c 3a f2 6d 6f 76  |:.close_all:.mov|
000023c0  65 5f 63 61 72 65 74 28  64 69 73 63 5f 69 6e 64  |e_caret(disc_ind|
000023d0  65 78 25 2c 31 33 29 0d  09 9c 43 c9 20 26 31 38  |ex%,13)...C. &18|
000023e0  31 3a f2 63 6c 6f 73 65  5f 61 6c 6c 3a f2 6f 70  |1:.close_all:.op|
000023f0  65 6e 28 64 69 73 63 5f  70 72 69 6e 74 25 29 3a  |en(disc_print%):|
00002400  f2 6d 6f 76 65 5f 63 61  72 65 74 28 64 69 73 63  |.move_caret(disc|
00002410  5f 70 72 69 6e 74 25 2c  36 29 0d 09 a6 27 c9 20  |_print%,6)...'. |
00002420  26 31 38 32 3a f2 63 6c  6f 73 65 5f 61 6c 6c 3a  |&182:.close_all:|
00002430  f2 6f 70 65 6e 28 64 69  73 63 5f 73 6f 72 74 25  |.open(disc_sort%|
00002440  29 0d 09 b0 2a c9 20 26  31 38 38 3a f2 63 6c 6f  |)...*. &188:.clo|
00002450  73 65 5f 61 6c 6c 3a f2  63 6c 65 61 72 5f 64 61  |se_all:.clear_da|
00002460  74 61 5f 71 75 65 73 74  69 6f 6e 0d 09 ba 49 c9  |ta_question...I.|
00002470  20 26 31 38 33 3a f2 63  6c 6f 73 65 5f 61 6c 6c  | &183:.close_all|
00002480  3a f2 6f 70 65 6e 28 64  69 73 63 5f 73 61 76 65  |:.open(disc_save|
00002490  62 6f 78 32 25 29 3a f2  6d 6f 76 65 5f 63 61 72  |box2%):.move_car|
000024a0  65 74 28 64 69 73 63 5f  73 61 76 65 62 6f 78 32  |et(disc_savebox2|
000024b0  25 2c 31 29 0d 09 c4 45  c9 20 26 31 38 34 3a f2  |%,1)...E. &184:.|
000024c0  63 6c 6f 73 65 5f 61 6c  6c 3a f2 6f 70 65 6e 28  |close_all:.open(|
000024d0  64 69 73 63 5f 73 65 61  72 63 68 25 29 3a f2 6d  |disc_search%):.m|
000024e0  6f 76 65 5f 63 61 72 65  74 28 64 69 73 63 5f 73  |ove_caret(disc_s|
000024f0  65 61 72 63 68 25 2c 31  29 0d 09 ce 2f c9 20 26  |earch%,1).../. &|
00002500  31 38 35 3a f2 73 77 61  70 5f 63 61 73 65 28 77  |185:.swap_case(w|
00002510  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 2c 6b 65 79  |indow%,icon%,key|
00002520  5f 69 6e 64 65 78 25 29  0d 09 d8 84 c9 20 26 31  |_index%)..... &1|
00002530  38 36 3a 54 65 78 74 24  3d c2 a4 72 65 61 64 5f  |86:Text$=..read_|
00002540  69 63 6f 6e 5f 74 65 78  74 28 77 69 6e 64 6f 77  |icon_text(window|
00002550  25 2c 69 63 6f 6e 25 2c  a3 29 2c 6b 65 79 5f 69  |%,icon%,.),key_i|
00002560  6e 64 65 78 25 29 3a f2  75 70 64 61 74 65 5f 69  |ndex%):.update_i|
00002570  63 6f 6e 28 77 69 6e 64  6f 77 25 2c 69 63 6f 6e  |con(window%,icon|
00002580  25 2c 54 65 78 74 24 29  3a f2 5f 53 65 74 43 61  |%,Text$):._SetCa|
00002590  72 65 74 50 6f 73 69 74  69 6f 6e 28 77 69 6e 64  |retPosition(wind|
000025a0  6f 77 25 2c 69 63 6f 6e  25 2c 30 29 0d 09 e2 60  |ow%,icon%,0)...`|
000025b0  c9 20 26 31 38 37 3a 54  65 78 74 24 3d c0 a4 72  |. &187:Text$=..r|
000025c0  65 61 64 5f 69 63 6f 6e  5f 74 65 78 74 28 77 69  |ead_icon_text(wi|
000025d0  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c a3 29 2c 6b  |ndow%,icon%,.),k|
000025e0  65 79 5f 69 6e 64 65 78  25 29 3a f2 75 70 64 61  |ey_index%):.upda|
000025f0  74 65 5f 69 63 6f 6e 28  77 69 6e 64 6f 77 25 2c  |te_icon(window%,|
00002600  69 63 6f 6e 25 2c 54 65  78 74 24 29 0d 09 ec 4c  |icon%,Text$)...L|
00002610  c9 20 26 31 38 45 3a e7  20 77 69 6e 64 6f 77 25  |. &18E:. window%|
00002620  3d 64 69 73 63 5f 74 72  61 63 6b 73 25 20 8c 20  |=disc_tracks% . |
00002630  f2 74 72 61 63 6b 73 5f  6d 6f 76 65 5f 63 61 72  |.tracks_move_car|
00002640  65 74 28 64 69 73 63 5f  74 72 61 63 6b 73 25 2c  |et(disc_tracks%,|
00002650  69 63 6f 6e 25 2b 31 29  0d 09 f6 4c c9 20 26 31  |icon%+1)...L. &1|
00002660  38 46 3a e7 20 77 69 6e  64 6f 77 25 3d 64 69 73  |8F:. window%=dis|
00002670  63 5f 74 72 61 63 6b 73  25 20 8c 20 f2 74 72 61  |c_tracks% . .tra|
00002680  63 6b 73 5f 6d 6f 76 65  5f 63 61 72 65 74 28 64  |cks_move_caret(d|
00002690  69 73 63 5f 74 72 61 63  6b 73 25 2c 69 63 6f 6e  |isc_tracks%,icon|
000026a0  25 2d 31 29 0d 0a 00 45  c9 20 26 31 45 3a e7 20  |%-1)...E. &1E:. |
000026b0  77 69 6e 64 6f 77 25 3d  64 69 73 63 5f 74 72 61  |window%=disc_tra|
000026c0  63 6b 73 25 20 8c 20 f2  74 72 61 63 6b 73 5f 6d  |cks% . .tracks_m|
000026d0  6f 76 65 5f 63 61 72 65  74 28 64 69 73 63 5f 74  |ove_caret(disc_t|
000026e0  72 61 63 6b 73 25 2c 30  29 0d 0a 0a 25 7f 20 c8  |racks%,0)...%. .|
000026f0  99 20 22 57 69 6d 70 5f  50 72 6f 63 65 73 73 4b  |. "Wimp_ProcessK|
00002700  65 79 22 2c 63 68 61 72  61 63 74 65 72 25 0d 0a  |ey",character%..|
00002710  14 05 cb 0d 0a 1e 05 e1  0d 0a 28 05 3a 0d 0a 32  |..........(.:..2|
00002720  1f dd f2 6d 6f 76 65 5f  63 61 72 65 74 28 77 69  |...move_caret(wi|
00002730  6e 64 6f 77 25 2c 69 63  6f 6e 25 29 0d 0a 3c 31  |ndow%,icon%)..<1|
00002740  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |.. "Wimp_SetCare|
00002750  74 50 6f 73 69 74 69 6f  6e 22 2c 77 69 6e 64 6f  |tPosition",windo|
00002760  77 25 2c 69 63 6f 6e 25  2c 2c 2c 2d 31 0d 0a 46  |w%,icon%,,,-1..F|
00002770  05 e1 0d 0a 50 05 3a 0d  0a 5a 26 dd f2 74 72 61  |....P.:..Z&..tra|
00002780  63 6b 73 5f 6d 6f 76 65  5f 63 61 72 65 74 28 77  |cks_move_caret(w|
00002790  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 29 0d 0a 64  |indow%,icon%)..d|
000027a0  47 ea 20 63 61 72 65 74  78 25 2c 63 61 72 65 74  |G. caretx%,caret|
000027b0  79 25 2c 63 61 72 65 74  5f 74 6f 70 25 2c 63 61  |y%,caret_top%,ca|
000027c0  72 65 74 5f 62 6f 74 74  6f 6d 25 2c 63 61 72 65  |ret_bottom%,care|
000027d0  74 5f 6c 65 66 74 25 2c  63 61 72 65 74 5f 72 69  |t_left%,caret_ri|
000027e0  67 68 74 25 0d 0a 6e 18  e7 20 69 63 6f 6e 25 3c  |ght%..n.. icon%<|
000027f0  30 20 8c 20 69 63 6f 6e  25 3d 34 39 0d 0a 78 18  |0 . icon%=49..x.|
00002800  e7 20 69 63 6f 6e 25 3e  34 39 20 8c 20 69 63 6f  |. icon%>49 . ico|
00002810  6e 25 3d 30 0d 0a 82 31  c8 99 20 22 57 69 6d 70  |n%=0...1.. "Wimp|
00002820  5f 53 65 74 43 61 72 65  74 50 6f 73 69 74 69 6f  |_SetCaretPositio|
00002830  6e 22 2c 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |n",window%,icon%|
00002840  2c 2c 2c 2d 31 0d 0a 8c  22 c8 99 20 22 57 69 6d  |,,,-1...".. "Wim|
00002850  70 5f 47 65 74 43 61 72  65 74 50 6f 73 69 74 69  |p_GetCaretPositi|
00002860  6f 6e 22 2c 2c 71 25 0d  0a 96 1e 63 61 72 65 74  |on",,q%....caret|
00002870  78 25 3d 71 25 21 38 3a  63 61 72 65 74 79 25 3d  |x%=q%!8:carety%=|
00002880  71 25 21 31 32 0d 0a a0  14 21 71 25 3d 64 69 73  |q%!12....!q%=dis|
00002890  63 5f 74 72 61 63 6b 73  25 0d 0a aa 20 c8 99 20  |c_tracks%... .. |
000028a0  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
000028b0  74 61 74 65 22 2c 2c 71  25 0d 0a b4 3a 63 61 72  |tate",,q%...:car|
000028c0  65 74 5f 74 6f 70 25 3d  71 25 21 32 34 3a 63 61  |et_top%=q%!24:ca|
000028d0  72 65 74 5f 62 6f 74 74  6f 6d 25 3d 63 61 72 65  |ret_bottom%=care|
000028e0  74 5f 74 6f 70 25 2d 28  71 25 21 31 36 2d 71 25  |t_top%-(q%!16-q%|
000028f0  21 38 29 0d 0a be 3b 63  61 72 65 74 5f 6c 65 66  |!8)...;caret_lef|
00002900  74 25 3d 71 25 21 32 30  3a 63 61 72 65 74 5f 72  |t%=q%!20:caret_r|
00002910  69 67 68 74 25 3d 63 61  72 65 74 5f 6c 65 66 74  |ight%=caret_left|
00002920  25 2b 28 71 25 21 31 32  2d 71 25 21 34 29 0d 0a  |%+(q%!12-q%!4)..|
00002930  c8 1f e7 20 28 63 61 72  65 74 5f 74 6f 70 25 2d  |... (caret_top%-|
00002940  36 34 3c 63 61 72 65 74  79 25 29 20 8c 0d 0a d2  |64<carety%) ....|
00002950  14 71 25 21 32 34 3d 63  61 72 65 74 79 25 2b 36  |.q%!24=carety%+6|
00002960  34 0d 0a dc 1c c8 99 20  22 57 69 6d 70 5f 4f 70  |4...... "Wimp_Op|
00002970  65 6e 57 69 6e 64 6f 77  22 2c 2c 71 25 0d 0a e6  |enWindow",,q%...|
00002980  05 cd 0d 0a f0 22 e7 20  28 63 61 72 65 74 5f 62  |.....". (caret_b|
00002990  6f 74 74 6f 6d 25 2b 33  32 3e 63 61 72 65 74 79  |ottom%+32>carety|
000029a0  25 29 20 8c 0d 0a fa 2c  71 25 21 32 34 3d 71 25  |%) ....,q%!24=q%|
000029b0  21 32 34 2d 28 63 61 72  65 74 5f 62 6f 74 74 6f  |!24-(caret_botto|
000029c0  6d 25 2d 28 63 61 72 65  74 79 25 2d 33 32 29 29  |m%-(carety%-32))|
000029d0  0d 0b 04 1c c8 99 20 22  57 69 6d 70 5f 4f 70 65  |...... "Wimp_Ope|
000029e0  6e 57 69 6e 64 6f 77 22  2c 2c 71 25 0d 0b 0e 05  |nWindow",,q%....|
000029f0  cd 0d 0b 18 05 e1 0d 0b  22 05 3a 0d 0b 2c 11 dd  |........".:..,..|
00002a00  f2 6d 65 6e 75 5f 73 65  6c 65 63 74 0d 0b 36 1b  |.menu_select..6.|
00002a10  ea 20 73 65 6c 65 63 74  69 6f 6e 25 2c 73 65 6c  |. selection%,sel|
00002a20  65 63 74 69 6f 6e 24 0d  0b 40 14 de 20 73 65 6c  |ection$..@.. sel|
00002a30  65 63 74 69 6f 6e 25 20  32 35 35 0d 0b 4a 33 c8  |ection% 255..J3.|
00002a40  99 20 22 57 69 6d 70 5f  44 65 63 6f 64 65 4d 65  |. "Wimp_DecodeMe|
00002a50  6e 75 22 2c 2c 73 65 6c  65 63 74 6d 65 6e 75 25  |nu",,selectmenu%|
00002a60  2c 71 25 2c 73 65 6c 65  63 74 69 6f 6e 25 0d 0b  |,q%,selection%..|
00002a70  54 1a 73 65 6c 65 63 74  69 6f 6e 24 3d 24 73 65  |T.selection$=$se|
00002a80  6c 65 63 74 69 6f 6e 25  0d 0b 5e 13 c8 8e 20 73  |lection%..^... s|
00002a90  65 6c 65 63 74 69 6f 6e  24 20 ca 0d 0b 68 4d c9  |election$ ...hM.|
00002aa0  20 22 42 61 63 6b 2d 75  70 20 44 69 73 63 22 3a  | "Back-up Disc":|
00002ab0  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 73 65 6c  |.update_icon(sel|
00002ac0  65 63 74 77 69 6e 64 6f  77 25 2c 73 65 6c 65 63  |ectwindow%,selec|
00002ad0  74 69 63 6f 6e 25 2c 73  65 6c 65 63 74 69 6f 6e  |ticon%,selection|
00002ae0  24 29 3a f2 72 65 61 64  0d 0b 72 49 c9 20 22 43  |$):.read..rI. "C|
00002af0  6c 69 70 20 41 72 74 22  3a f2 75 70 64 61 74 65  |lip Art":.update|
00002b00  5f 69 63 6f 6e 28 73 65  6c 65 63 74 77 69 6e 64  |_icon(selectwind|
00002b10  6f 77 25 2c 73 65 6c 65  63 74 69 63 6f 6e 25 2c  |ow%,selecticon%,|
00002b20  73 65 6c 65 63 74 69 6f  6e 24 29 3a f2 72 65 61  |selection$):.rea|
00002b30  64 0d 0b 7c 4e c9 20 22  53 6f 75 6e 64 54 72 61  |d..|N. "SoundTra|
00002b40  63 6b 65 72 73 22 3a f2  75 70 64 61 74 65 5f 69  |ckers":.update_i|
00002b50  63 6f 6e 28 73 65 6c 65  63 74 77 69 6e 64 6f 77  |con(selectwindow|
00002b60  25 2c 73 65 6c 65 63 74  69 63 6f 6e 25 2c 73 65  |%,selecticon%,se|
00002b70  6c 65 63 74 69 6f 6e 24  29 3a f2 72 65 61 64 0d  |lection$):.read.|
00002b80  0b 86 4b c9 20 22 54 65  78 74 20 46 69 6c 65 73  |..K. "Text Files|
00002b90  22 3a f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 73  |":.update_icon(s|
00002ba0  65 6c 65 63 74 77 69 6e  64 6f 77 25 2c 73 65 6c  |electwindow%,sel|
00002bb0  65 63 74 69 63 6f 6e 25  2c 73 65 6c 65 63 74 69  |ecticon%,selecti|
00002bc0  6f 6e 24 29 3a f2 72 65  61 64 0d 0b 90 4f c9 20  |on$):.read...O. |
00002bd0  22 44 65 6d 6f 6e 73 74  72 61 74 69 6f 6e 73 22  |"Demonstrations"|
00002be0  3a f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 73 65  |:.update_icon(se|
00002bf0  6c 65 63 74 77 69 6e 64  6f 77 25 2c 73 65 6c 65  |lectwindow%,sele|
00002c00  63 74 69 63 6f 6e 25 2c  73 65 6c 65 63 74 69 6f  |cticon%,selectio|
00002c10  6e 24 29 3a f2 72 65 61  64 0d 0b 9a 4d c9 20 22  |n$):.read...M. "|
00002c20  41 70 70 6c 69 63 61 74  69 6f 6e 73 22 3a f2 75  |Applications":.u|
00002c30  70 64 61 74 65 5f 69 63  6f 6e 28 73 65 6c 65 63  |pdate_icon(selec|
00002c40  74 77 69 6e 64 6f 77 25  2c 73 65 6c 65 63 74 69  |twindow%,selecti|
00002c50  63 6f 6e 25 2c 73 65 6c  65 63 74 69 6f 6e 24 29  |con%,selection$)|
00002c60  3a f2 72 65 61 64 0d 0b  a4 52 c9 20 22 46 6f 6e  |:.read...R. "Fon|
00002c70  74 73 20 28 52 49 53 43  20 4f 53 20 33 29 22 3a  |ts (RISC OS 3)":|
00002c80  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 73 65 6c  |.update_icon(sel|
00002c90  65 63 74 77 69 6e 64 6f  77 25 2c 73 65 6c 65 63  |ectwindow%,selec|
00002ca0  74 69 63 6f 6e 25 2c 73  65 6c 65 63 74 69 6f 6e  |ticon%,selection|
00002cb0  24 29 3a f2 72 65 61 64  0d 0b ae 4b c9 20 22 44  |$):.read...K. "D|
00002cc0  72 61 77 20 46 69 6c 65  73 22 3a f2 75 70 64 61  |raw Files":.upda|
00002cd0  74 65 5f 69 63 6f 6e 28  73 65 6c 65 63 74 77 69  |te_icon(selectwi|
00002ce0  6e 64 6f 77 25 2c 73 65  6c 65 63 74 69 63 6f 6e  |ndow%,selecticon|
00002cf0  25 2c 73 65 6c 65 63 74  69 6f 6e 24 29 3a f2 72  |%,selection$):.r|
00002d00  65 61 64 0d 0b b8 44 c9  20 22 44 54 50 22 3a f2  |ead...D. "DTP":.|
00002d10  75 70 64 61 74 65 5f 69  63 6f 6e 28 73 65 6c 65  |update_icon(sele|
00002d20  63 74 77 69 6e 64 6f 77  25 2c 73 65 6c 65 63 74  |ctwindow%,select|
00002d30  69 63 6f 6e 25 2c 73 65  6c 65 63 74 69 6f 6e 24  |icon%,selection$|
00002d40  29 3a f2 72 65 61 64 0d  0b c2 44 c9 20 22 41 72  |):.read...D. "Ar|
00002d50  74 22 3a f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |t":.update_icon(|
00002d60  73 65 6c 65 63 74 77 69  6e 64 6f 77 25 2c 73 65  |selectwindow%,se|
00002d70  6c 65 63 74 69 63 6f 6e  25 2c 73 65 6c 65 63 74  |lecticon%,select|
00002d80  69 6f 6e 24 29 3a f2 72  65 61 64 0d 0b cc 46 c9  |ion$):.read...F.|
00002d90  20 22 42 6c 61 6e 6b 22  3a f2 75 70 64 61 74 65  | "Blank":.update|
00002da0  5f 69 63 6f 6e 28 73 65  6c 65 63 74 77 69 6e 64  |_icon(selectwind|
00002db0  6f 77 25 2c 73 65 6c 65  63 74 69 63 6f 6e 25 2c  |ow%,selecticon%,|
00002dc0  73 65 6c 65 63 74 69 6f  6e 24 29 3a f2 72 65 61  |selection$):.rea|
00002dd0  64 0d 0b d6 43 c9 20 22  50 43 22 3a f2 75 70 64  |d...C. "PC":.upd|
00002de0  61 74 65 5f 69 63 6f 6e  28 73 65 6c 65 63 74 77  |ate_icon(selectw|
00002df0  69 6e 64 6f 77 25 2c 73  65 6c 65 63 74 69 63 6f  |indow%,selectico|
00002e00  6e 25 2c 73 65 6c 65 63  74 69 6f 6e 24 29 3a f2  |n%,selection$):.|
00002e10  72 65 61 64 0d 0b e0 52  c9 20 22 46 6f 6e 74 73  |read...R. "Fonts|
00002e20  20 28 52 49 53 43 20 4f  53 20 32 29 22 3a f2 75  | (RISC OS 2)":.u|
00002e30  70 64 61 74 65 5f 69 63  6f 6e 28 73 65 6c 65 63  |pdate_icon(selec|
00002e40  74 77 69 6e 64 6f 77 25  2c 73 65 6c 65 63 74 69  |twindow%,selecti|
00002e50  63 6f 6e 25 2c 73 65 6c  65 63 74 69 6f 6e 24 29  |con%,selection$)|
00002e60  3a f2 72 65 61 64 0d 0b  ea 4e c9 20 22 4d 61 67  |:.read...N. "Mag|
00002e70  61 7a 69 6e 65 20 44 69  73 63 22 3a f2 75 70 64  |azine Disc":.upd|
00002e80  61 74 65 5f 69 63 6f 6e  28 73 65 6c 65 63 74 77  |ate_icon(selectw|
00002e90  69 6e 64 6f 77 25 2c 73  65 6c 65 63 74 69 63 6f  |indow%,selectico|
00002ea0  6e 25 2c 73 65 6c 65 63  74 69 6f 6e 24 29 3a f2  |n%,selection$):.|
00002eb0  72 65 61 64 0d 0b f4 51  c9 20 22 57 6f 72 6b 20  |read...Q. "Work |
00002ec0  69 6e 20 50 72 6f 67 72  65 73 73 22 3a f2 75 70  |in Progress":.up|
00002ed0  64 61 74 65 5f 69 63 6f  6e 28 73 65 6c 65 63 74  |date_icon(select|
00002ee0  77 69 6e 64 6f 77 25 2c  73 65 6c 65 63 74 69 63  |window%,selectic|
00002ef0  6f 6e 25 2c 73 65 6c 65  63 74 69 6f 6e 24 29 3a  |on%,selection$):|
00002f00  f2 72 65 61 64 0d 0b fe  4d c9 20 22 53 70 72 65  |.read...M. "Spre|
00002f10  61 64 73 68 65 65 74 73  22 3a f2 75 70 64 61 74  |adsheets":.updat|
00002f20  65 5f 69 63 6f 6e 28 73  65 6c 65 63 74 77 69 6e  |e_icon(selectwin|
00002f30  64 6f 77 25 2c 73 65 6c  65 63 74 69 63 6f 6e 25  |dow%,selecticon%|
00002f40  2c 73 65 6c 65 63 74 69  6f 6e 24 29 3a f2 72 65  |,selection$):.re|
00002f50  61 64 0d 0c 08 48 c9 20  22 53 70 72 69 74 65 73  |ad...H. "Sprites|
00002f60  22 3a f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 73  |":.update_icon(s|
00002f70  65 6c 65 63 74 77 69 6e  64 6f 77 25 2c 73 65 6c  |electwindow%,sel|
00002f80  65 63 74 69 63 6f 6e 25  2c 73 65 6c 65 63 74 69  |ecticon%,selecti|
00002f90  6f 6e 24 29 3a f2 72 65  61 64 0d 0c 12 46 c9 20  |on$):.read...F. |
00002fa0  22 47 61 6d 65 73 22 3a  f2 75 70 64 61 74 65 5f  |"Games":.update_|
00002fb0  69 63 6f 6e 28 73 65 6c  65 63 74 77 69 6e 64 6f  |icon(selectwindo|
00002fc0  77 25 2c 73 65 6c 65 63  74 69 63 6f 6e 25 2c 73  |w%,selecticon%,s|
00002fd0  65 6c 65 63 74 69 6f 6e  24 29 3a f2 72 65 61 64  |election$):.read|
00002fe0  0d 0c 1c 46 c9 20 22 4d  75 73 69 63 22 3a f2 75  |...F. "Music":.u|
00002ff0  70 64 61 74 65 5f 69 63  6f 6e 28 73 65 6c 65 63  |pdate_icon(selec|
00003000  74 77 69 6e 64 6f 77 25  2c 73 65 6c 65 63 74 69  |twindow%,selecti|
00003010  63 6f 6e 25 2c 73 65 6c  65 63 74 69 6f 6e 24 29  |con%,selection$)|
00003020  3a f2 72 65 61 64 0d 0c  26 4e c9 20 22 50 75 62  |:.read..&N. "Pub|
00003030  6c 69 63 20 44 6f 6d 61  69 6e 22 3a f2 75 70 64  |lic Domain":.upd|
00003040  61 74 65 5f 69 63 6f 6e  28 73 65 6c 65 63 74 77  |ate_icon(selectw|
00003050  69 6e 64 6f 77 25 2c 73  65 6c 65 63 74 69 63 6f  |indow%,selectico|
00003060  6e 25 2c 73 65 6c 65 63  74 69 6f 6e 24 29 3a f2  |n%,selection$):.|
00003070  72 65 61 64 0d 0c 30 4a  c9 20 22 55 74 69 6c 69  |read..0J. "Utili|
00003080  74 69 65 73 22 3a f2 75  70 64 61 74 65 5f 69 63  |ties":.update_ic|
00003090  6f 6e 28 73 65 6c 65 63  74 77 69 6e 64 6f 77 25  |on(selectwindow%|
000030a0  2c 73 65 6c 65 63 74 69  63 6f 6e 25 2c 73 65 6c  |,selecticon%,sel|
000030b0  65 63 74 69 6f 6e 24 29  3a f2 72 65 61 64 0d 0c  |ection$):.read..|
000030c0  3a 22 c9 20 22 43 6c 65  61 72 20 52 65 63 6f 72  |:". "Clear Recor|
000030d0  64 22 3a f2 63 6c 65 61  72 5f 73 69 6e 67 6c 65  |d":.clear_single|
000030e0  0d 0c 44 40 c9 20 22 4f  70 74 69 6f 6e 73 2e 2e  |..D@. "Options..|
000030f0  2e 22 3a f2 6f 70 65 6e  28 64 69 73 63 5f 62 61  |.":.open(disc_ba|
00003100  63 6b 6f 70 74 69 6f 6e  73 25 29 3a f2 6f 70 65  |ckoptions%):.ope|
00003110  6e 28 64 69 73 63 5f 6f  70 74 69 6f 6e 73 25 29  |n(disc_options%)|
00003120  0d 0c 4e 29 c9 20 22 52  65 73 74 61 72 74 20 20  |..N). "Restart  |
00003130  20 46 38 22 3a f2 63 6c  65 61 72 5f 64 61 74 61  | F8":.clear_data|
00003140  5f 71 75 65 73 74 69 6f  6e 0d 0c 58 18 c9 20 22  |_question..X.. "|
00003150  51 75 69 74 22 3a f2 71  75 69 74 5f 63 68 65 63  |Quit":.quit_chec|
00003160  6b 0d 0c 62 05 cb 0d 0c  6c 20 c8 99 20 22 57 69  |k..b....l .. "Wi|
00003170  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00003180  6f 22 2c 2c 71 25 0d 0c  76 30 e7 20 71 25 21 38  |o",,q%..v0. q%!8|
00003190  3d 31 20 8c 20 c8 99 20  22 57 69 6d 70 5f 43 72  |=1 . .. "Wimp_Cr|
000031a0  65 61 74 65 4d 65 6e 75  22 2c 2c 73 65 6c 65 63  |eateMenu",,selec|
000031b0  74 6d 65 6e 75 25 0d 0c  80 05 e1 0d 0c 8a 05 3a  |tmenu%.........:|
000031c0  0d 0c 94 11 dd f2 72 65  63 65 69 76 65 28 71 25  |......receive(q%|
000031d0  29 0d 0c 9e 0e c8 8e 20  71 25 21 31 36 20 ca 0d  |)...... q%!16 ..|
000031e0  0c a8 13 c9 20 30 3a f2  71 75 69 74 5f 63 68 65  |.... 0:.quit_che|
000031f0  63 6b 0d 0c b2 11 c9 20  32 3a f2 64 61 74 61 73  |ck..... 2:.datas|
00003200  61 76 65 0d 0c bc 40 c9  20 33 2c 35 3a e7 20 71  |ave...@. 3,5:. q|
00003210  25 21 31 32 3d 30 20 80  20 71 25 21 34 30 3d 26  |%!12=0 . q%!40=&|
00003220  45 39 32 20 8c 20 f2 6c  6f 61 64 5f 61 63 6b 6e  |E92 . .load_ackn|
00003230  6f 77 6c 65 64 67 65 3a  f2 6f 6b 5f 74 6f 5f 6c  |owledge:.ok_to_l|
00003240  6f 61 64 0d 0c c6 19 c9  20 34 3a f2 6c 6f 61 64  |oad..... 4:.load|
00003250  5f 61 63 6b 6e 6f 77 6c  65 64 67 65 0d 0c d0 1c  |_acknowledge....|
00003260  c9 20 26 35 30 32 3a f2  68 65 6c 70 28 a4 68 65  |. &502:.help(.he|
00003270  6c 70 5f 74 65 78 74 29  0d 0c da 1d c9 20 39 2c  |lp_text)..... 9,|
00003280  26 34 30 30 43 31 3a f2  67 65 74 5f 6d 6f 64 65  |&400C1:.get_mode|
00003290  5f 69 6e 66 6f 0d 0c e4  1c c9 20 26 34 30 30 43  |_info..... &400C|
000032a0  32 3a f2 63 68 65 63 6b  5f 6e 65 77 5f 74 61 73  |2:.check_new_tas|
000032b0  6b 0d 0c ee 05 cb 0d 0c  f8 05 e1 0d 0d 02 05 3a  |k..............:|
000032c0  0d 0d 0c 14 dd f2 63 68  65 63 6b 5f 6e 65 77 5f  |......check_new_|
000032d0  74 61 73 6b 0d 0d 16 2d  6e 65 77 74 61 73 6b 69  |task...-newtaski|
000032e0  64 25 3d 71 25 21 34 3a  74 61 73 6b 6e 61 6d 65  |d%=q%!4:taskname|
000032f0  24 3d a4 73 74 72 69 6e  67 30 28 71 25 2b 32 38  |$=.string0(q%+28|
00003300  29 0d 0d 20 3c e7 20 74  61 73 6b 6e 61 6d 65 24  |).. <. taskname$|
00003310  3d 22 44 69 73 63 20 49  6e 64 65 78 22 20 80 20  |="Disc Index" . |
00003320  6e 65 77 74 61 73 6b 69  64 25 3c 3e 68 61 6e 64  |newtaskid%<>hand|
00003330  6c 65 25 20 8c 20 71 75  69 74 25 3d b9 0d 0d 2a  |le% . quit%=...*|
00003340  05 e1 0d 0d 34 05 3a 0d  0d 3e 3b dd f2 75 70 64  |....4.:..>;..upd|
00003350  61 74 65 5f 69 63 6f 6e  28 75 70 64 61 74 65 5f  |ate_icon(update_|
00003360  77 69 6e 64 6f 77 25 2c  75 70 64 61 74 65 5f 69  |window%,update_i|
00003370  63 6f 6e 25 2c 75 70 64  61 74 65 5f 74 65 78 74  |con%,update_text|
00003380  24 29 0d 0d 48 28 21 71  25 3d 75 70 64 61 74 65  |$)..H(!q%=update|
00003390  5f 77 69 6e 64 6f 77 25  3a 71 25 21 34 3d 75 70  |_window%:q%!4=up|
000033a0  64 61 74 65 5f 69 63 6f  6e 25 0d 0d 52 1e c8 99  |date_icon%..R...|
000033b0  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
000033c0  61 74 65 22 2c 2c 71 25  0d 0d 5c 31 24 28 71 25  |ate",,q%..\1$(q%|
000033d0  21 32 38 29 3d 75 70 64  61 74 65 5f 74 65 78 74  |!28)=update_text|
000033e0  24 3a 71 25 21 33 36 3d  a9 28 75 70 64 61 74 65  |$:q%!36=.(update|
000033f0  5f 74 65 78 74 24 29 2b  31 0d 0d 66 12 71 25 21  |_text$)+1..f.q%!|
00003400  38 3d 30 3a 71 25 21 31  32 3d 30 0d 0d 70 1e c8  |8=0:q%!12=0..p..|
00003410  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
00003420  74 61 74 65 22 2c 2c 71  25 0d 0d 7a 05 e1 0d 0d  |tate",,q%..z....|
00003430  84 05 3a 0d 0d 8e 26 dd  a4 63 72 65 61 74 65 5f  |..:...&..create_|
00003440  6d 65 6e 75 28 6d 65 6e  75 24 2c 6d 65 6e 75 32  |menu(menu$,menu2|
00003450  24 2c 6d 65 6e 75 33 24  29 0d 0d 98 32 e7 20 6d  |$,menu3$)...2. m|
00003460  65 6e 75 66 72 65 65 25  2b 32 38 3e 6d 65 6e 75  |enufree%+28>menu|
00003470  65 6e 64 25 20 8c 20 85  20 31 2c 22 4d 65 6e 75  |end% . . 1,"Menu|
00003480  20 41 72 65 61 20 46 75  6c 6c 22 0d 0d a2 0b ea  | Area Full".....|
00003490  20 6d 25 2c 72 25 0d 0d  ac 16 6d 65 6e 75 70 74  | m%,r%....menupt|
000034a0  72 25 3d 6d 65 6e 75 66  72 65 65 25 0d 0d b6 08  |r%=menufree%....|
000034b0  72 25 3d 30 0d 0d c0 3f  e7 20 c0 6d 65 6e 75 24  |r%=0...?. .menu$|
000034c0  2c 31 29 3d 22 23 22 20  8c 20 72 25 3d 31 3a 6d  |,1)="#" . r%=1:m|
000034d0  65 6e 75 74 69 74 6c 65  24 3d a4 70 61 72 28 22  |enutitle$=.par("|
000034e0  2c 22 29 20 8b 20 6d 65  6e 75 74 69 74 6c 65 24  |,") . menutitle$|
000034f0  3d 22 22 0d 0d ca 1a e7  20 c2 6d 65 6e 75 74 69  |=""..... .menuti|
00003500  74 6c 65 24 2c 31 29 3d  22 7b 22 20 8c 0d 0d d4  |tle$,1)="{" ....|
00003510  0e 62 6f 74 69 63 6f 6e  25 3d 39 0d 0d de 2b 6d  |.boticon%=9...+m|
00003520  65 6e 75 74 69 74 6c 65  24 3d c0 6d 65 6e 75 74  |enutitle$=.menut|
00003530  69 74 6c 65 24 2c a9 28  6d 65 6e 75 74 69 74 6c  |itle$,.(menutitl|
00003540  65 24 29 2d 31 29 0d 0d  e8 05 cc 0d 0d f2 0e 62  |e$)-1).........b|
00003550  6f 74 69 63 6f 6e 25 3d  31 0d 0d fc 05 cd 0d 0e  |oticon%=1.......|
00003560  06 18 24 6d 65 6e 75 70  74 72 25 3d 6d 65 6e 75  |..$menuptr%=menu|
00003570  74 69 74 6c 65 24 0d 0e  10 3b 6d 65 6e 75 70 74  |title$...;menupt|
00003580  72 25 3f 31 32 3d 37 3a  6d 65 6e 75 70 74 72 25  |r%?12=7:menuptr%|
00003590  3f 31 33 3d 32 3a 6d 65  6e 75 70 74 72 25 3f 31  |?13=2:menuptr%?1|
000035a0  34 3d 37 3a 6d 65 6e 75  70 74 72 25 3f 31 35 3d  |4=7:menuptr%?15=|
000035b0  30 0d 0e 1a 33 6d 65 6e  75 70 74 72 25 21 31 36  |0...3menuptr%!16|
000035c0  3d 31 39 36 2d 32 34 3a  6d 65 6e 75 70 74 72 25  |=196-24:menuptr%|
000035d0  21 32 30 3d 34 34 3a 6d  65 6e 75 70 74 72 25 21  |!20=44:menuptr%!|
000035e0  32 34 3d 30 0d 0e 24 24  6d 65 6e 75 70 74 72 25  |24=0..$$menuptr%|
000035f0  2b 3d 32 38 3a 6d 61 78  78 25 3d a9 6d 65 6e 75  |+=28:maxx%=.menu|
00003600  74 69 74 6c 65 24 2d 32  0d 0e 2e 05 f5 0d 0e 38  |title$-2.......8|
00003610  13 69 74 65 6d 24 3d a4  70 61 72 28 22 2c 22 29  |.item$=.par(",")|
00003620  0d 0e 42 12 e7 20 69 74  65 6d 24 3d 22 2b 2b 22  |..B.. item$="++"|
00003630  20 8c 0d 0e 4c 08 72 25  3d 30 0d 0e 56 10 6d 65  | ...L.r%=0..V.me|
00003640  6e 75 24 3d 6d 65 6e 75  32 24 0d 0e 60 05 cc 0d  |nu$=menu2$..`...|
00003650  0e 6a 13 e7 20 69 74 65  6d 24 3d 22 2b 2b 2b 22  |.j.. item$="+++"|
00003660  20 8c 0d 0e 74 08 72 25  3d 30 0d 0e 7e 10 6d 65  | ...t.r%=0..~.me|
00003670  6e 75 25 3d 6d 65 6e 75  33 24 0d 0e 88 05 cc 0d  |nu%=menu3$......|
00003680  0e 92 15 f2 6d 65 6e 75  5f 69 74 65 6d 28 69 74  |....menu_item(it|
00003690  65 6d 24 29 0d 0e 9c 05  cd 0d 0e a6 05 cd 0d 0e  |em$)............|
000036a0  b0 0e fd 20 69 74 65 6d  24 3d 22 22 0d 0e ba 19  |... item$=""....|
000036b0  e7 20 6d 61 78 78 25 3e  32 30 20 8c 20 6d 61 78  |. maxx%>20 . max|
000036c0  78 25 3d 32 30 0d 0e c4  24 6d 25 3d 6d 65 6e 75  |x%=20...$m%=menu|
000036d0  66 72 65 65 25 3a 6d 25  21 31 36 3d 28 6d 61 78  |free%:m%!16=(max|
000036e0  78 25 2a 38 2b 36 29 2a  32 0d 0e ce 16 6d 65 6e  |x%*8+6)*2....men|
000036f0  75 66 72 65 65 25 3d 6d  65 6e 75 70 74 72 25 0d  |ufree%=menuptr%.|
00003700  0e d8 07 3d 6d 25 0d 0e  e2 05 3a 0d 0e ec 16 dd  |...=m%....:.....|
00003710  f2 6d 65 6e 75 5f 69 74  65 6d 28 74 65 78 74 24  |.menu_item(text$|
00003720  29 0d 0e f6 33 e7 20 74  65 78 74 24 3d 22 22 20  |)...3. text$="" |
00003730  8c 20 6d 65 6e 75 70 74  72 25 21 2d 32 34 3d 28  |. menuptr%!-24=(|
00003740  6d 65 6e 75 70 74 72 25  21 2d 32 34 29 84 20 26  |menuptr%!-24). &|
00003750  38 30 3a e1 0d 0f 00 32  e7 20 6d 65 6e 75 70 74  |80:....2. menupt|
00003760  72 25 2b 32 34 20 3e 6d  65 6e 75 65 6e 64 25 20  |r%+24 >menuend% |
00003770  8c 20 85 20 31 2c 22 4d  65 6e 75 20 41 72 65 61  |. . 1,"Menu Area|
00003780  20 46 75 6c 6c 22 0d 0f  0a 11 ea 20 72 25 2c 66  | Full"..... r%,f|
00003790  6c 61 67 25 2c 56 25 0d  0f 14 0d 66 6c 61 67 25  |lag%,V%....flag%|
000037a0  3d 26 30 30 0d 0f 1e 12  72 25 3d a7 74 65 78 74  |=&00....r%=.text|
000037b0  24 2c 22 3e 22 29 0d 0f  28 0c e7 20 72 25 3e 30  |$,">")..(.. r%>0|
000037c0  20 8c 0d 0f 32 19 73 75  62 70 74 72 25 3d a0 c1  | ...2.subptr%=..|
000037d0  74 65 78 74 24 2c 72 25  2b 31 29 0d 0f 3c 16 74  |text$,r%+1)..<.t|
000037e0  65 78 74 24 3d c0 74 65  78 74 24 2c 72 25 2d 31  |ext$=.text$,r%-1|
000037f0  29 0d 0f 46 05 cc 0d 0f  50 13 72 72 25 3d a7 74  |)..F....P.rr%=.t|
00003800  65 78 74 24 2c 22 7d 22  29 0d 0f 5a 0d e7 20 72  |ext$,"}")..Z.. r|
00003810  72 25 3e 30 20 8c 0d 0f  64 1a 73 75 62 70 74 72  |r%>0 ...d.subptr|
00003820  25 3d a0 c1 74 65 78 74  24 2c 72 72 25 2b 31 29  |%=..text$,rr%+1)|
00003830  0d 0f 6e 16 74 65 78 74  24 3d c0 74 65 78 74 2c  |..n.text$=.text,|
00003840  72 72 25 2d 31 29 0d 0f  78 0e 66 6c 61 67 25 2b  |rr%-1)..x.flag%+|
00003850  3d 26 30 38 0d 0f 82 05  cc 0d 0f 8c 0e 73 75 62  |=&08.........sub|
00003860  70 74 72 25 3d 2d 31 0d  0f 96 05 cd 0d 0f a0 05  |ptr%=-1.........|
00003870  cd 0d 0f aa 37 e7 20 c2  74 65 78 74 24 2c 31 29  |....7. .text$,1)|
00003880  3d 22 23 22 20 8c 20 74  65 78 74 24 3d c0 74 65  |="#" . text$=.te|
00003890  78 74 24 2c a9 74 65 78  74 24 2d 31 29 3a 66 6c  |xt$,.text$-1):fl|
000038a0  61 67 25 2b 3d 26 30 32  0d 0f b4 37 e7 20 c2 74  |ag%+=&02...7. .t|
000038b0  65 78 74 24 2c 31 29 3d  22 5c 22 20 8c 20 74 65  |ext$,1)="\" . te|
000038c0  78 74 24 3d c0 74 65 78  74 24 2c a9 74 65 78 74  |xt$=.text$,.text|
000038d0  24 2d 31 29 3a 66 6c 61  67 25 2b 3d 26 30 31 0d  |$-1):flag%+=&01.|
000038e0  0f be 14 72 72 72 25 3d  a7 74 65 78 74 24 2c 22  |...rrr%=.text$,"|
000038f0  7c 22 29 0d 0f c8 15 72  72 72 72 25 3d a7 74 65  ||")....rrrr%=.te|
00003900  78 74 24 2c 22 a4 22 29  0d 0f d2 18 e7 20 72 72  |xt$,".")..... rr|
00003910  72 25 3d 30 20 80 20 72  72 72 72 25 3d 30 20 8c  |r%=0 . rrrr%=0 .|
00003920  0d 0f dc 19 6d 66 67 25  3d 30 3c 3c 32 38 3a 6d  |....mfg%=0<<28:m|
00003930  62 67 25 3d 37 3c 3c 32  34 0d 0f e6 05 cc 0d 0f  |bg%=7<<24.......|
00003940  f0 0d c8 8e 20 72 72 72  25 20 ca 0d 0f fa 13 c9  |.... rrr% ......|
00003950  20 30 3a 6d 66 67 25 3d  30 20 3c 3c 32 38 0d 10  | 0:mfg%=0 <<28..|
00003960  04 05 7f 0d 10 0e 27 6d  66 67 25 3d 28 bb 28 c1  |......'mfg%=(.(.|
00003970  74 65 78 74 24 2c 72 72  72 25 2b 31 2c 32 29 29  |text$,rrr%+1,2))|
00003980  20 83 20 31 36 29 3c 3c  32 38 0d 10 18 27 74 65  | . 16)<<28...'te|
00003990  78 74 24 3d c0 74 65 78  74 24 2c 72 72 72 25 2d  |xt$=.text$,rrr%-|
000039a0  31 29 2b c1 74 65 78 74  24 2c 72 72 72 25 2b 33  |1)+.text$,rrr%+3|
000039b0  29 0d 10 22 05 cb 0d 10  2c 15 72 72 72 72 25 3d  |).."....,.rrrr%=|
000039c0  a7 74 65 78 74 24 2c 22  a4 22 29 0d 10 36 0e c8  |.text$,".")..6..|
000039d0  8e 20 72 72 72 72 25 20  ca 0d 10 40 12 c9 20 30  |. rrrr% ...@.. 0|
000039e0  3a 6d 62 67 25 3d 37 3c  3c 32 34 0d 10 4a 05 7f  |:mbg%=7<<24..J..|
000039f0  0d 10 54 28 6d 62 67 25  3d 28 bb 28 c1 74 65 78  |..T(mbg%=(.(.tex|
00003a00  74 24 2c 72 72 72 72 25  2b 31 2c 32 29 29 20 83  |t$,rrrr%+1,2)) .|
00003a10  20 31 36 29 3c 3c 32 34  0d 10 5e 29 74 65 78 74  | 16)<<24..^)text|
00003a20  24 3d c0 74 65 78 74 24  2c 72 72 72 72 25 2d 31  |$=.text$,rrrr%-1|
00003a30  29 2b c1 74 65 78 74 24  2c 72 72 72 72 25 2b 33  |)+.text$,rrrr%+3|
00003a40  29 0d 10 68 05 cb 0d 10  72 05 cd 0d 10 7c 14 6d  |)..h....r....|.m|
00003a50  65 6e 75 70 74 72 25 21  30 3d 66 6c 61 67 25 0d  |enuptr%!0=flag%.|
00003a60  10 86 16 6d 65 6e 75 70  74 72 25 21 34 3d 73 75  |...menuptr%!4=su|
00003a70  62 70 74 72 25 0d 10 90  25 6d 65 6e 75 70 74 72  |bptr%...%menuptr|
00003a80  25 21 38 3d 6d 66 67 25  2b 6d 62 67 25 2b 26 32  |%!8=mfg%+mbg%+&2|
00003a90  30 2b 62 6f 74 69 63 6f  6e 25 0d 10 9a 4c e7 20  |0+boticon%...L. |
00003aa0  c2 74 65 78 74 24 2c 31  29 3d 22 2f 22 20 8c 20  |.text$,1)="/" . |
00003ab0  74 65 78 74 24 3d c0 74  65 78 74 24 2c a9 74 65  |text$=.text$,.te|
00003ac0  78 74 24 2d 31 29 3a 6d  65 6e 75 70 74 72 25 21  |xt$-1):menuptr%!|
00003ad0  38 3d 28 6d 65 6e 75 70  74 72 25 21 38 20 84 20  |8=(menuptr%!8 . |
00003ae0  31 3c 3c 32 32 29 0d 10  a4 15 e7 20 c0 74 65 78  |1<<22)..... .tex|
00003af0  74 24 2c 31 29 3d 22 24  22 20 8c 0d 10 ae 12 21  |t$,1)="$" .....!|
00003b00  6d 65 6e 75 70 74 72 25  2b 3d 26 30 34 0d 10 b8  |menuptr%+=&04...|
00003b10  13 6d 65 6e 75 70 74 72  25 21 2b 3d 26 31 30 38  |.menuptr%!+=&108|
00003b20  0d 10 c2 12 72 25 3d a7  74 65 78 74 24 2c 22 28  |....r%=.text$,"(|
00003b30  22 29 0d 10 cc 37 e7 20  72 25 3e 30 20 8c 20 4c  |")...7. r%>0 . L|
00003b40  25 3d bb c1 74 65 78 74  24 2c 72 25 2b 31 29 3a  |%=..text$,r%+1):|
00003b50  74 65 78 74 24 3d c0 74  65 78 74 24 2c 72 25 2d  |text$=.text$,r%-|
00003b60  31 29 8b 20 4c 25 3d 31  32 0d 10 d6 09 56 25 3d  |1). L%=12....V%=|
00003b70  2d 31 0d 10 e0 1a 6d 65  6e 75 70 74 72 25 21 31  |-1....menuptr%!1|
00003b80  32 3d a0 c1 74 65 78 74  24 2c 32 29 0d 10 ea 12  |2=..text$,2)....|
00003b90  6d 65 6e 75 70 74 72 25  21 31 36 3d 2d 31 0d 10  |menuptr%!16=-1..|
00003ba0  f4 12 6d 65 6e 75 70 74  72 25 21 32 30 3d 4c 25  |..menuptr%!20=L%|
00003bb0  0d 10 fe 12 74 65 78 74  24 3d c4 4c 25 2c 22 20  |....text$=.L%," |
00003bc0  22 29 0d 11 08 05 cc 0d  11 12 12 e7 20 a9 74 65  |").......... .te|
00003bd0  78 74 24 3c 3d 31 32 20  8c 0d 11 1c 18 24 28 6d  |xt$<=12 .....$(m|
00003be0  65 6e 75 70 74 72 25 2b  31 32 29 3d 74 65 78 74  |enuptr%+12)=text|
00003bf0  24 0d 11 26 05 cc 0d 11  30 25 52 25 3d a4 77 6f  |$..&....0%R%=.wo|
00003c00  72 6b 73 70 61 63 65 28  a9 74 65 78 74 24 2b 31  |rkspace(.text$+1|
00003c10  29 3a 24 52 25 3d 74 65  78 74 24 0d 11 3a 36 6d  |):$R%=text$..:6m|
00003c20  65 6e 75 70 74 72 25 21  31 32 3d 52 25 3a 6d 65  |enuptr%!12=R%:me|
00003c30  6e 75 70 74 72 25 21 31  36 3d 2d 31 3a 6d 65 6e  |nuptr%!16=-1:men|
00003c40  75 70 74 72 25 21 32 30  3d a9 74 65 78 74 24 2b  |uptr%!20=.text$+|
00003c50  31 0d 11 44 20 6d 65 6e  75 70 74 72 25 21 38 3d  |1..D menuptr%!8=|
00003c60  6d 65 6e 75 70 74 72 25  21 38 20 84 20 26 31 30  |menuptr%!8 . &10|
00003c70  30 0d 11 4e 05 cd 0d 11  58 05 cd 0d 11 62 21 e7  |0..N....X....b!.|
00003c80  20 a9 74 65 78 74 24 3e  6d 61 78 78 25 20 8c 20  | .text$>maxx% . |
00003c90  6d 61 78 78 25 3d a9 74  65 78 74 24 0d 11 6c 10  |maxx%=.text$..l.|
00003ca0  6d 65 6e 75 70 74 72 25  2b 3d 32 34 0d 11 76 05  |menuptr%+=24..v.|
00003cb0  e1 0d 11 80 05 3a 0d 11  8a 0f dd a4 70 61 72 28  |.....:......par(|
00003cc0  73 65 70 24 29 0d 11 94  25 72 31 25 3d 72 25 2b  |sep$)...%r1%=r%+|
00003cd0  31 3a 72 25 3d a7 6d 65  6e 75 24 2b 73 65 70 24  |1:r%=.menu$+sep$|
00003ce0  2c 73 65 70 24 2c 72 31  25 29 0d 11 9e 17 3d c1  |,sep$,r1%)....=.|
00003cf0  6d 65 6e 75 24 2c 72 31  25 2c 72 25 2d 72 31 25  |menu$,r1%,r%-r1%|
00003d00  29 0d 11 a8 05 3a 0d 11  b2 13 dd a4 77 6f 72 6b  |)....:......work|
00003d10  73 70 61 63 65 28 4c 25  29 0d 11 bc 33 e7 20 63  |space(L%)...3. c|
00003d20  75 72 77 73 25 2b 4c 25  3e 6d 61 78 77 73 25 20  |urws%+L%>maxws% |
00003d30  8c 20 85 20 31 2c 22 4e  6f 20 4d 6f 72 65 20 42  |. . 1,"No More B|
00003d40  75 66 66 65 72 20 53 70  61 63 65 22 0d 11 c6 19  |uffer Space"....|
00003d50  63 75 72 77 73 25 2b 3d  4c 25 3a 3d 63 75 72 77  |curws%+=L%:=curw|
00003d60  73 25 2d 4c 25 0d 11 d0  05 3a 0d 11 da 1b dd f2  |s%-L%....:......|
00003d70  69 6e 69 74 69 61 6c 69  73 65 5f 64 69 73 63 5f  |initialise_disc_|
00003d80  69 6e 64 65 78 0d 11 e4  32 de 20 64 69 73 63 6e  |index...2. discn|
00003d90  61 6d 65 24 28 32 35 30  29 2c 64 69 73 63 74 79  |ame$(250),discty|
00003da0  70 65 24 28 32 35 30 29  2c 64 69 73 63 66 72 65  |pe$(250),discfre|
00003db0  65 24 28 32 35 30 29 0d  11 ee 23 de 20 6e 61 6d  |e$(250)...#. nam|
00003dc0  65 24 28 32 35 30 2c 35  30 29 2c 63 6f 6d 6d 65  |e$(250,50),comme|
00003dd0  6e 74 24 28 32 35 30 2c  34 29 0d 11 f8 48 72 65  |nt$(250,4)...Hre|
00003de0  63 6f 72 64 5f 6e 75 6d  62 65 72 25 3d 31 3a 73  |cord_number%=1:s|
00003df0  65 61 72 63 68 74 79 70  65 24 3d 22 41 70 70 22  |earchtype$="App"|
00003e00  3a 73 61 76 65 74 79 70  65 24 3d 22 45 39 32 22  |:savetype$="E92"|
00003e10  3a 73 6f 72 74 74 79 70  65 24 3d 22 44 6e 61 6d  |:sorttype$="Dnam|
00003e20  65 22 0d 12 02 45 63 61  73 65 73 65 6e 73 65 24  |e"...Ecasesense$|
00003e30  3d 22 4e 6f 22 3a 73 61  76 65 61 6c 6c 74 65 78  |="No":savealltex|
00003e40  74 24 3d 22 59 65 73 22  3a 6c 69 6e 65 66 65 65  |t$="Yes":linefee|
00003e50  64 24 3d 22 4e 6f 22 3a  70 72 69 6e 74 61 6c 6c  |d$="No":printall|
00003e60  24 3d 22 59 65 73 22 0d  12 0c 4c 66 69 6c 65 6e  |$="Yes"...Lfilen|
00003e70  61 6d 65 24 3d 22 44 69  73 63 49 6e 64 65 78 22  |ame$="DiscIndex"|
00003e80  3a 70 72 69 6e 74 65 72  24 3d 22 44 72 61 66 74  |:printer$="Draft|
00003e90  22 3a 70 72 69 6e 74 77  68 61 74 24 3d 22 41 6c  |":printwhat$="Al|
00003ea0  6c 22 3a 73 65 61 72 63  68 73 74 72 69 6e 67 24  |l":searchstring$|
00003eb0  3d 22 22 0d 12 16 26 f2  69 6e 69 74 69 61 6c 69  |=""...&.initiali|
00003ec0  73 65 5f 73 63 61 6e 6e  69 6e 67 3a f2 6c 6f 61  |se_scanning:.loa|
00003ed0  64 5f 6f 70 74 69 6f 6e  73 0d 12 20 3b c8 99 20  |d_options.. ;.. |
00003ee0  22 46 6f 6e 74 5f 46 69  6e 64 46 6f 6e 74 22 2c  |"Font_FindFont",|
00003ef0  2c 22 54 72 69 6e 69 74  79 2e 4d 65 64 69 75 6d  |,"Trinity.Medium|
00003f00  22 2c 31 36 30 2c 31 36  30 20 b8 20 74 72 69 6e  |",160,160 . trin|
00003f10  69 74 79 25 0d 12 2a 39  c8 99 20 22 46 6f 6e 74  |ity%..*9.. "Font|
00003f20  5f 46 69 6e 64 46 6f 6e  74 22 2c 2c 22 43 6f 72  |_FindFont",,"Cor|
00003f30  70 75 73 2e 4d 65 64 69  75 6d 22 2c 31 36 30 2c  |pus.Medium",160,|
00003f40  31 36 30 20 b8 20 63 6f  72 70 75 73 25 0d 12 34  |160 . corpus%..4|
00003f50  40 c8 99 20 22 46 6f 6e  74 5f 46 69 6e 64 46 6f  |@.. "Font_FindFo|
00003f60  6e 74 22 2c 2c 22 54 72  69 6e 69 74 79 2e 4d 65  |nt",,"Trinity.Me|
00003f70  64 69 75 6d 22 2c 31 31  32 2c 31 31 32 20 b8 20  |dium",112,112 . |
00003f80  74 72 69 6e 69 74 79 73  6d 61 6c 6c 25 0d 12 3e  |trinitysmall%..>|
00003f90  3d c8 99 20 22 46 6f 6e  74 5f 46 69 6e 64 46 6f  |=.. "Font_FindFo|
00003fa0  6e 74 22 2c 2c 22 48 6f  6d 65 72 74 6f 6e 2e 4d  |nt",,"Homerton.M|
00003fb0  65 64 69 75 6d 22 2c 31  39 32 2c 31 39 32 20 b8  |edium",192,192 .|
00003fc0  20 68 6f 6d 65 72 74 6f  6e 25 0d 12 48 40 c8 99  | homerton%..H@..|
00003fd0  20 22 46 6f 6e 74 5f 46  69 6e 64 46 6f 6e 74 22  | "Font_FindFont"|
00003fe0  2c 2c 22 48 6f 6d 65 72  74 6f 6e 2e 4d 65 64 69  |,,"Homerton.Medi|
00003ff0  75 6d 22 2c 32 35 36 2c  32 35 36 20 b8 20 68 6f  |um",256,256 . ho|
00004000  6d 65 72 74 6f 6e 62 69  67 25 0d 12 52 05 e1 0d  |mertonbig%..R...|
00004010  12 5c 05 3a 0d 12 66 0c  dd f2 75 70 64 61 74 65  |.\.:..f...update|
00004020  0d 12 70 29 e7 20 72 65  63 6f 72 64 5f 6e 75 6d  |..p). record_num|
00004030  62 65 72 25 3c 31 20 8c  20 72 65 63 6f 72 64 5f  |ber%<1 . record_|
00004040  6e 75 6d 62 65 72 25 3d  31 0d 12 7a 3d e7 20 72  |number%=1..z=. r|
00004050  65 63 6f 72 64 5f 6e 75  6d 62 65 72 25 3e 6d 61  |ecord_number%>ma|
00004060  78 5f 72 65 63 6f 72 64  25 20 8c 20 72 65 63 6f  |x_record% . reco|
00004070  72 64 5f 6e 75 6d 62 65  72 25 3d 6d 61 78 5f 72  |rd_number%=max_r|
00004080  65 63 6f 72 64 25 0d 12  84 19 f2 66 69 6c 6c 28  |ecord%.....fill(|
00004090  72 65 63 6f 72 64 5f 6e  75 6d 62 65 72 25 29 0d  |record_number%).|
000040a0  12 8e 05 e1 0d 12 98 05  3a 0d 12 a2 1a dd f2 66  |........:......f|
000040b0  69 6c 6c 28 72 65 63 6f  72 64 5f 6e 75 6d 62 65  |ill(record_numbe|
000040c0  72 25 29 0d 12 ac 15 c8  99 20 22 48 6f 75 72 67  |r%)...... "Hourg|
000040d0  6c 61 73 73 5f 4f 6e 22  0d 12 b6 32 f2 75 70 64  |lass_On"...2.upd|
000040e0  61 74 65 5f 69 63 6f 6e  28 64 69 73 63 5f 70 72  |ate_icon(disc_pr|
000040f0  69 6e 74 25 2c 31 32 2c  c3 28 72 65 63 6f 72 64  |int%,12,.(record|
00004100  5f 6e 75 6d 62 65 72 25  29 29 0d 12 c0 32 f2 75  |_number%))...2.u|
00004110  70 64 61 74 65 5f 69 63  6f 6e 28 64 69 73 63 5f  |pdate_icon(disc_|
00004120  69 6e 64 65 78 25 2c 31  30 2c c3 28 72 65 63 6f  |index%,10,.(reco|
00004130  72 64 5f 6e 75 6d 62 65  72 25 29 29 0d 12 ca 42  |rd_number%))...B|
00004140  f2 74 72 61 63 6b 73 5f  6d 6f 76 65 5f 63 61 72  |.tracks_move_car|
00004150  65 74 28 64 69 73 63 5f  74 72 61 63 6b 73 25 2c  |et(disc_tracks%,|
00004160  30 29 3a f2 6d 6f 76 65  5f 63 61 72 65 74 28 64  |0):.move_caret(d|
00004170  69 73 63 5f 69 6e 64 65  78 25 2c 31 33 29 0d 12  |isc_index%,13)..|
00004180  d4 3a f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 64  |.:.update_icon(d|
00004190  69 73 63 5f 69 6e 64 65  78 25 2c 31 32 2c 64 69  |isc_index%,12,di|
000041a0  73 63 6e 61 6d 65 24 28  72 65 63 6f 72 64 5f 6e  |scname$(record_n|
000041b0  75 6d 62 65 72 25 29 29  0d 12 de 3a f2 75 70 64  |umber%))...:.upd|
000041c0  61 74 65 5f 69 63 6f 6e  28 64 69 73 63 5f 69 6e  |ate_icon(disc_in|
000041d0  64 65 78 25 2c 31 33 2c  64 69 73 63 74 79 70 65  |dex%,13,disctype|
000041e0  24 28 72 65 63 6f 72 64  5f 6e 75 6d 62 65 72 25  |$(record_number%|
000041f0  29 29 0d 12 e8 3a f2 75  70 64 61 74 65 5f 69 63  |))...:.update_ic|
00004200  6f 6e 28 64 69 73 63 5f  69 6e 64 65 78 25 2c 32  |on(disc_index%,2|
00004210  32 2c 64 69 73 63 66 72  65 65 24 28 72 65 63 6f  |2,discfree$(reco|
00004220  72 64 5f 6e 75 6d 62 65  72 25 29 29 0d 12 f2 12  |rd_number%))....|
00004230  f2 75 70 64 61 74 65 5f  74 72 61 63 6b 73 0d 12  |.update_tracks..|
00004240  fc 0e e3 20 49 25 3d 31  20 b8 20 34 0d 13 06 3f  |... I%=1 . 4...?|
00004250  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 64 69 73  |.update_icon(dis|
00004260  63 5f 69 6e 64 65 78 25  2c 32 34 2b 49 25 2c 63  |c_index%,24+I%,c|
00004270  6f 6d 6d 65 6e 74 24 28  72 65 63 6f 72 64 5f 6e  |omment$(record_n|
00004280  75 6d 62 65 72 25 2c 49  25 29 29 0d 13 10 08 ed  |umber%,I%)).....|
00004290  20 49 25 0d 13 1a 16 c8  99 20 22 48 6f 75 72 67  | I%...... "Hourg|
000042a0  6c 61 73 73 5f 4f 66 66  22 0d 13 24 05 e1 0d 13  |lass_Off"..$....|
000042b0  2e 05 3a 0d 13 38 13 dd  f2 6e 75 6d 62 65 72 5f  |..:..8...number_|
000042c0  75 70 64 61 74 65 0d 13  42 2f 72 65 63 6f 72 64  |update..B/record|
000042d0  5f 6e 75 6d 62 65 72 25  3d bb 28 a4 69 6e 64 69  |_number%=.(.indi|
000042e0  72 65 63 74 28 64 69 73  63 5f 69 6e 64 65 78 25  |rect(disc_index%|
000042f0  2c 31 30 29 29 0d 13 4c  29 e7 20 72 65 63 6f 72  |,10))..L). recor|
00004300  64 5f 6e 75 6d 62 65 72  25 3c 31 20 8c 20 72 65  |d_number%<1 . re|
00004310  63 6f 72 64 5f 6e 75 6d  62 65 72 25 3d 31 0d 13  |cord_number%=1..|
00004320  56 3d e7 20 72 65 63 6f  72 64 5f 6e 75 6d 62 65  |V=. record_numbe|
00004330  72 25 3e 6d 61 78 5f 72  65 63 6f 72 64 25 20 8c  |r%>max_record% .|
00004340  20 72 65 63 6f 72 64 5f  6e 75 6d 62 65 72 25 3d  | record_number%=|
00004350  6d 61 78 5f 72 65 63 6f  72 64 25 0d 13 60 19 f2  |max_record%..`..|
00004360  66 69 6c 6c 28 72 65 63  6f 72 64 5f 6e 75 6d 62  |fill(record_numb|
00004370  65 72 25 29 0d 13 6a 05  e1 0d 13 74 05 3a 0d 13  |er%)..j....t.:..|
00004380  7e 1a dd f2 72 65 5f 74  69 74 6c 65 28 6e 65 77  |~...re_title(new|
00004390  5f 74 69 74 6c 65 24 29  0d 13 88 13 21 71 25 3d  |_title$)....!q%=|
000043a0  64 69 73 63 5f 69 6e 64  65 78 25 0d 13 92 1f c8  |disc_index%.....|
000043b0  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
000043c0  77 49 6e 66 6f 22 2c 2c  71 25 0d 13 9c 37 e7 20  |wInfo",,q%...7. |
000043d0  28 28 71 25 21 36 30 29  20 80 20 26 31 30 30 29  |((q%!60) . &100)|
000043e0  3d 30 20 8c 20 85 20 31  2c 22 54 69 74 6c 65 20  |=0 . . 1,"Title |
000043f0  69 73 6e 27 74 20 69 6e  64 69 72 65 63 74 65 64  |isn't indirected|
00004400  22 0d 13 a6 17 24 28 71  25 21 37 36 29 3d 6e 65  |"....$(q%!76)=ne|
00004410  77 5f 74 69 74 6c 65 24  0d 13 b0 4f e7 20 28 28  |w_title$...O. ((|
00004420  71 25 21 33 32 29 20 80  20 28 31 3c 3c 31 36 29  |q%!32) . (1<<16)|
00004430  29 3c 3e 30 20 c8 99 20  22 57 69 6d 70 5f 46 6f  |)<>0 .. "Wimp_Fo|
00004440  72 63 65 52 65 64 72 61  77 22 2c 2d 31 2c 71 25  |rceRedraw",-1,q%|
00004450  21 34 2c 71 25 21 31 36  2c 71 25 21 31 32 2c 71  |!4,q%!16,q%!12,q|
00004460  25 21 31 36 2b 34 34 0d  13 ba 05 e1 0d 13 c4 05  |%!16+44.........|
00004470  3a 0d 13 ce 0a dd f2 72  65 61 64 0d 13 d8 1d f2  |:......read.....|
00004480  72 65 5f 74 69 74 6c 65  28 22 44 69 73 63 20 49  |re_title("Disc I|
00004490  6e 64 65 78 20 2a 22 29  0d 13 e2 0e 75 6e 73 61  |ndex *")....unsa|
000044a0  76 65 64 25 3d b9 0d 13  ec 2f 72 65 63 6f 72 64  |ved%=..../record|
000044b0  5f 6e 75 6d 62 65 72 25  3d bb 28 a4 69 6e 64 69  |_number%=.(.indi|
000044c0  72 65 63 74 28 64 69 73  63 5f 69 6e 64 65 78 25  |rect(disc_index%|
000044d0  2c 31 30 29 29 0d 13 f6  37 64 69 73 63 6e 61 6d  |,10))...7discnam|
000044e0  65 24 28 72 65 63 6f 72  64 5f 6e 75 6d 62 65 72  |e$(record_number|
000044f0  25 29 3d a4 69 6e 64 69  72 65 63 74 28 64 69 73  |%)=.indirect(dis|
00004500  63 5f 69 6e 64 65 78 25  2c 31 32 29 0d 14 00 37  |c_index%,12)...7|
00004510  64 69 73 63 74 79 70 65  24 28 72 65 63 6f 72 64  |disctype$(record|
00004520  5f 6e 75 6d 62 65 72 25  29 3d a4 69 6e 64 69 72  |_number%)=.indir|
00004530  65 63 74 28 64 69 73 63  5f 69 6e 64 65 78 25 2c  |ect(disc_index%,|
00004540  31 33 29 0d 14 0a 37 64  69 73 63 66 72 65 65 24  |13)...7discfree$|
00004550  28 72 65 63 6f 72 64 5f  6e 75 6d 62 65 72 25 29  |(record_number%)|
00004560  3d a4 69 6e 64 69 72 65  63 74 28 64 69 73 63 5f  |=.indirect(disc_|
00004570  69 6e 64 65 78 25 2c 32  32 29 0d 14 14 0e e3 20  |index%,22)..... |
00004580  49 25 3d 31 20 b8 20 34  0d 14 1e 3c 63 6f 6d 6d  |I%=1 . 4...<comm|
00004590  65 6e 74 24 28 72 65 63  6f 72 64 5f 6e 75 6d 62  |ent$(record_numb|
000045a0  65 72 25 2c 49 25 29 3d  a4 69 6e 64 69 72 65 63  |er%,I%)=.indirec|
000045b0  74 28 64 69 73 63 5f 69  6e 64 65 78 25 2c 32 34  |t(disc_index%,24|
000045c0  2b 49 25 29 0d 14 28 08  ed 20 49 25 0d 14 32 13  |+I%)..(.. I%..2.|
000045d0  f2 72 65 61 64 5f 74 72  61 63 6b 6c 69 73 74 0d  |.read_tracklist.|
000045e0  14 3c 05 e1 0d 14 46 05  3a 0d 14 50 18 dd a4 69  |.<....F.:..P...i|
000045f0  6e 64 69 72 65 63 74 28  21 71 25 2c 71 25 21 34  |ndirect(!q%,q%!4|
00004600  29 0d 14 5a 1e c8 99 20  22 57 69 6d 70 5f 47 65  |)..Z... "Wimp_Ge|
00004610  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 25 0d  |tIconState",,q%.|
00004620  14 64 0d 3d 24 28 71 25  21 32 38 29 0d 14 6e 05  |.d.=$(q%!28)..n.|
00004630  3a 0d 14 78 09 dd f2 6e  65 77 0d 14 82 15 c8 99  |:..x...new......|
00004640  20 22 48 6f 75 72 67 6c  61 73 73 5f 4f 6e 22 0d  | "Hourglass_On".|
00004650  14 8c 2a c8 99 20 22 57  69 6d 70 45 78 74 5f 4f  |..*.. "WimpExt_O|
00004660  70 65 6e 57 69 6e 64 6f  77 54 6f 70 22 2c 64 69  |penWindowTop",di|
00004670  73 63 5f 69 6e 64 65 78  25 0d 14 96 4a e3 20 49  |sc_index%...J. I|
00004680  25 3d 31 20 b8 20 6d 61  78 5f 72 65 63 6f 72 64  |%=1 . max_record|
00004690  25 3a c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |%:.. "Hourglass_|
000046a0  50 65 72 63 65 6e 74 61  67 65 22 2c a8 28 28 49  |Percentage",.((I|
000046b0  25 2f 6d 61 78 5f 72 65  63 6f 72 64 25 29 2a 31  |%/max_record%)*1|
000046c0  30 30 29 0d 14 a0 36 64  69 73 63 6e 61 6d 65 24  |00)...6discname$|
000046d0  28 49 25 29 3d 22 22 3a  64 69 73 63 74 79 70 65  |(I%)="":disctype|
000046e0  24 28 49 25 29 3d 22 22  3a 64 69 73 63 66 72 65  |$(I%)="":discfre|
000046f0  65 24 28 49 25 29 3d 22  22 0d 14 aa 2d e3 20 73  |e$(I%)=""...-. s|
00004700  75 62 49 25 3d 31 20 b8  20 35 30 3a 6e 61 6d 65  |ubI%=1 . 50:name|
00004710  24 28 49 25 2c 73 75 62  49 25 29 3d 22 22 3a ed  |$(I%,subI%)="":.|
00004720  20 73 75 62 49 25 0d 14  b4 2f e3 20 73 75 62 49  | subI%.../. subI|
00004730  25 3d 31 20 b8 20 34 3a  63 6f 6d 6d 65 6e 74 24  |%=1 . 4:comment$|
00004740  28 49 25 2c 73 75 62 49  25 29 3d 22 22 3a ed 20  |(I%,subI%)="":. |
00004750  73 75 62 49 25 0d 14 be  08 ed 20 49 25 0d 14 c8  |subI%..... I%...|
00004760  14 72 65 63 6f 72 64 5f  6e 75 6d 62 65 72 25 3d  |.record_number%=|
00004770  31 0d 14 d2 32 f2 75 70  64 61 74 65 5f 69 63 6f  |1...2.update_ico|
00004780  6e 28 64 69 73 63 5f 69  6e 64 65 78 25 2c 31 30  |n(disc_index%,10|
00004790  2c c3 28 72 65 63 6f 72  64 5f 6e 75 6d 62 65 72  |,.(record_number|
000047a0  25 29 29 0d 14 dc 16 c8  99 20 22 48 6f 75 72 67  |%))...... "Hourg|
000047b0  6c 61 73 73 5f 4f 66 66  22 0d 14 e6 0e 75 6e 73  |lass_Off"....uns|
000047c0  61 76 65 64 25 3d a3 0d  14 f0 05 e1 0d 14 fa 05  |aved%=..........|
000047d0  3a 0d 15 04 16 dd f2 6c  6f 61 64 5f 61 63 6b 6e  |:......load_ackn|
000047e0  6f 77 6c 65 64 67 65 0d  15 0e 0e 71 25 21 31 32  |owledge....q%!12|
000047f0  3d 71 25 21 38 0d 15 18  0b 71 25 21 31 36 3d 34  |=q%!8....q%!16=4|
00004800  0d 15 22 24 c8 99 20 22  57 69 6d 70 5f 53 65 6e  |.."$.. "Wimp_Sen|
00004810  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 71 25 2c  |dMessage",17,q%,|
00004820  71 25 21 34 0d 15 2c 05  e1 0d 15 36 05 3a 0d 15  |q%!4..,....6.:..|
00004830  40 10 dd f2 6f 6b 5f 74  6f 5f 6c 6f 61 64 0d 15  |@...ok_to_load..|
00004840  4a 10 66 69 6c 65 6e 61  6d 65 24 3d 22 22 0d 15  |J.filename$=""..|
00004850  54 08 61 25 3d 30 0d 15  5e 11 62 25 3d 71 25 3f  |T.a%=0..^.b%=q%?|
00004860  28 34 34 2b 61 25 29 0d  15 68 0c c8 95 20 62 25  |(44+a%)..h... b%|
00004870  3c 3e 30 0d 15 72 14 66  69 6c 65 6e 61 6d 65 24  |<>0..r.filename$|
00004880  2b 3d bd 28 62 25 29 0d  15 7c 09 61 25 2b 3d 31  |+=.(b%)..|.a%+=1|
00004890  0d 15 86 11 62 25 3d 71  25 3f 28 34 34 2b 61 25  |....b%=q%?(44+a%|
000048a0  29 0d 15 90 05 ce 0d 15  9a 46 c8 99 20 22 57 69  |)........F.. "Wi|
000048b0  6d 70 45 78 74 5f 4f 70  65 6e 57 69 6e 64 6f 77  |mpExt_OpenWindow|
000048c0  54 6f 70 22 2c 64 69 73  63 5f 69 6e 64 65 78 25  |Top",disc_index%|
000048d0  3a f2 6d 6f 76 65 5f 63  61 72 65 74 28 64 69 73  |:.move_caret(dis|
000048e0  63 5f 69 6e 64 65 78 25  2c 31 33 29 0d 15 a4 19  |c_index%,13)....|
000048f0  f2 6c 6f 61 64 5f 64 61  74 61 28 66 69 6c 65 6e  |.load_data(filen|
00004900  61 6d 65 24 29 0d 15 ae  2c f2 75 70 64 61 74 65  |ame$)...,.update|
00004910  5f 69 63 6f 6e 28 64 69  73 63 5f 73 61 76 65 62  |_icon(disc_saveb|
00004920  6f 78 32 25 2c 31 2c 66  69 6c 65 6e 61 6d 65 24  |ox2%,1,filename$|
00004930  29 0d 15 b8 2c f2 75 70  64 61 74 65 5f 69 63 6f  |)...,.update_ico|
00004940  6e 28 64 69 73 63 5f 73  61 76 65 62 6f 78 25 2c  |n(disc_savebox%,|
00004950  31 2c 22 54 65 78 74 46  69 6c 65 22 29 0d 15 c2  |1,"TextFile")...|
00004960  05 e1 0d 15 cc 05 3a 0d  15 d6 1a dd f2 6c 6f 61  |......:......loa|
00004970  64 5f 64 61 74 61 28 64  61 74 61 66 69 6c 65 24  |d_data(datafile$|
00004980  29 0d 15 e0 15 c8 99 20  22 48 6f 75 72 67 6c 61  |)...... "Hourgla|
00004990  73 73 5f 4f 6e 22 0d 15  ea 11 6c 6f 61 64 5f 65  |ss_On"....load_e|
000049a0  72 72 6f 72 25 3d a3 0d  15 f4 14 43 48 25 3d 8e  |rror%=.....CH%=.|
000049b0  28 64 61 74 61 66 69 6c  65 24 29 0d 15 fe 15 e7  |(datafile$).....|
000049c0  20 6c 6f 61 64 5f 65 72  72 6f 72 25 3d a3 20 8c  | load_error%=. .|
000049d0  0d 16 08 15 e8 23 43 48  25 2c 6d 61 78 5f 72 65  |.....#CH%,max_re|
000049e0  63 6f 72 64 25 0d 16 12  18 e3 20 49 25 3d 31 20  |cord%..... I%=1 |
000049f0  b8 20 6d 61 78 5f 72 65  63 6f 72 64 25 0d 16 1c  |. max_record%...|
00004a00  33 e8 23 43 48 25 2c 64  69 73 63 6e 61 6d 65 24  |3.#CH%,discname$|
00004a10  28 49 25 29 2c 64 69 73  63 74 79 70 65 24 28 49  |(I%),disctype$(I|
00004a20  25 29 2c 64 69 73 63 66  72 65 65 24 28 49 25 29  |%),discfree$(I%)|
00004a30  0d 16 26 12 e3 20 73 75  62 49 25 3d 31 20 b8 20  |..&.. subI%=1 . |
00004a40  35 30 0d 16 30 19 e8 23  43 48 25 2c 6e 61 6d 65  |50..0..#CH%,name|
00004a50  24 28 49 25 2c 73 75 62  49 25 29 0d 16 3a 0b ed  |$(I%,subI%)..:..|
00004a60  20 73 75 62 49 25 0d 16  44 11 e3 20 73 75 62 49  | subI%..D.. subI|
00004a70  25 3d 31 20 b8 20 34 0d  16 4e 1c e8 23 43 48 25  |%=1 . 4..N..#CH%|
00004a80  2c 63 6f 6d 6d 65 6e 74  24 28 49 25 2c 73 75 62  |,comment$(I%,sub|
00004a90  49 25 29 0d 16 58 0b ed  20 73 75 62 49 25 0d 16  |I%)..X.. subI%..|
00004aa0  62 56 e7 20 a8 28 28 49  25 2f 6d 61 78 5f 72 65  |bV. .((I%/max_re|
00004ab0  63 6f 72 64 25 29 2a 31  30 30 29 3c 3e 31 30 30  |cord%)*100)<>100|
00004ac0  20 8c 20 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  | . .. "Hourglass|
00004ad0  5f 50 65 72 63 65 6e 74  61 67 65 22 2c a8 28 28  |_Percentage",.((|
00004ae0  49 25 2f 6d 61 78 5f 72  65 63 6f 72 64 25 29 2a  |I%/max_record%)*|
00004af0  31 30 30 29 0d 16 6c 08  ed 20 49 25 0d 16 76 09  |100)..l.. I%..v.|
00004b00  d9 23 43 48 25 0d 16 80  1b f2 72 65 5f 74 69 74  |.#CH%.....re_tit|
00004b10  6c 65 28 22 44 69 73 63  20 49 6e 64 65 78 22 29  |le("Disc Index")|
00004b20  0d 16 8a 0e 75 6e 73 61  76 65 64 25 3d a3 0d 16  |....unsaved%=...|
00004b30  94 2a f2 63 6c 6f 73 65  5f 61 6c 6c 3a f2 6d 6f  |.*.close_all:.mo|
00004b40  76 65 5f 63 61 72 65 74  28 64 69 73 63 5f 69 6e  |ve_caret(disc_in|
00004b50  64 65 78 25 2c 31 33 29  0d 16 9e 2a c8 99 20 22  |dex%,13)...*.. "|
00004b60  57 69 6d 70 45 78 74 5f  4f 70 65 6e 57 69 6e 64  |WimpExt_OpenWind|
00004b70  6f 77 54 6f 70 22 2c 64  69 73 63 5f 69 6e 64 65  |owTop",disc_inde|
00004b80  78 25 0d 16 a8 14 72 65  63 6f 72 64 5f 6e 75 6d  |x%....record_num|
00004b90  62 65 72 25 3d 31 0d 16  b2 0b f2 75 70 64 61 74  |ber%=1.....updat|
00004ba0  65 0d 16 bc 05 cc 0d 16  c6 09 d9 23 43 48 25 0d  |e..........#CH%.|
00004bb0  16 d0 05 cd 0d 16 da 16  c8 99 20 22 48 6f 75 72  |.......... "Hour|
00004bc0  67 6c 61 73 73 5f 4f 66  66 22 0d 16 e4 18 f2 61  |glass_Off".....a|
00004bd0  6c 74 65 72 5f 6e 6f 5f  6f 66 5f 72 65 63 6f 72  |lter_no_of_recor|
00004be0  64 73 0d 16 ee 05 e1 0d  16 f8 05 3a 0d 17 02 0d  |ds.........:....|
00004bf0  dd f2 64 72 61 67 62 6f  78 0d 17 0c 12 78 25 3d  |..dragbox....x%=|
00004c00  21 71 25 3a 79 25 3d 71  25 21 34 0d 17 16 41 71  |!q%:y%=q%!4...Aq|
00004c10  25 21 34 3d 35 3a 71 25  21 38 3d 78 25 2d 34 30  |%!4=5:q%!8=x%-40|
00004c20  3a 71 25 21 31 32 3d 79  25 2d 34 30 3a 71 25 21  |:q%!12=y%-40:q%!|
00004c30  31 36 3d 78 25 2b 34 30  3a 71 25 21 32 30 3d 79  |16=x%+40:q%!20=y|
00004c40  25 2b 34 30 3a 71 25 21  32 34 3d 30 0d 17 20 27  |%+40:q%!24=0.. '|
00004c50  71 25 21 32 38 3d 30 3a  71 25 21 33 32 3d 26 37  |q%!28=0:q%!32=&7|
00004c60  46 46 46 46 46 46 46 3a  71 25 21 33 36 3d 71 25  |FFFFFFF:q%!36=q%|
00004c70  21 33 32 0d 17 2a 19 c8  99 20 22 57 69 6d 70 5f  |!32..*... "Wimp_|
00004c80  44 72 61 67 42 6f 78 22  2c 2c 71 25 0d 17 34 05  |DragBox",,q%..4.|
00004c90  e1 0d 17 3e 05 3a 0d 17  48 0f dd f2 71 75 69 63  |...>.:..H...quic|
00004ca0  6b 73 61 76 65 0d 17 52  3c e7 20 73 61 76 65 74  |ksave..R<. savet|
00004cb0  79 70 65 24 3d 22 46 46  46 22 20 8c 20 66 75 6c  |ype$="FFF" . ful|
00004cc0  6c 6e 61 6d 65 24 3d a4  69 6e 64 69 72 65 63 74  |lname$=.indirect|
00004cd0  28 64 69 73 63 5f 73 61  76 65 62 6f 78 25 2c 31  |(disc_savebox%,1|
00004ce0  29 0d 17 5c 3d e7 20 73  61 76 65 74 79 70 65 24  |)..\=. savetype$|
00004cf0  3d 22 45 39 32 22 20 8c  20 66 75 6c 6c 6e 61 6d  |="E92" . fullnam|
00004d00  65 24 3d a4 69 6e 64 69  72 65 63 74 28 64 69 73  |e$=.indirect(dis|
00004d10  63 5f 73 61 76 65 62 6f  78 32 25 2c 31 29 0d 17  |c_savebox2%,1)..|
00004d20  66 33 e7 20 66 75 6c 6c  6e 61 6d 65 24 3d 22 22  |f3. fullname$=""|
00004d30  20 8c 20 85 20 31 2c 22  50 6c 65 61 73 65 20 69  | . . 1,"Please i|
00004d40  6e 73 65 72 74 20 61 20  66 69 6c 65 6e 61 6d 65  |nsert a filename|
00004d50  22 0d 17 70 4c e7 20 a7  66 75 6c 6c 6e 61 6d 65  |"..pL. .fullname|
00004d60  24 2c 22 2e 22 29 3d 30  20 8c 20 85 20 31 2c 22  |$,".")=0 . . 1,"|
00004d70  54 6f 20 73 61 76 65 2c  20 64 72 61 67 20 74 68  |To save, drag th|
00004d80  65 20 69 63 6f 6e 20 74  6f 20 61 20 64 69 72 65  |e icon to a dire|
00004d90  63 74 6f 72 79 20 76 69  65 77 65 72 22 0d 17 7a  |ctory viewer"..z|
00004da0  45 e7 20 73 61 76 65 74  79 70 65 24 3d 22 45 39  |E. savetype$="E9|
00004db0  32 22 20 8c 20 f2 73 61  76 65 5f 64 61 74 61 28  |2" . .save_data(|
00004dc0  66 75 6c 6c 6e 61 6d 65  24 29 20 8b 20 f2 73 61  |fullname$) . .sa|
00004dd0  76 65 5f 74 65 78 74 28  66 75 6c 6c 6e 61 6d 65  |ve_text(fullname|
00004de0  24 29 0d 17 84 36 e7 20  73 61 76 65 74 79 70 65  |$)...6. savetype|
00004df0  24 3d 22 46 46 46 22 20  8c 20 ff 20 22 53 65 74  |$="FFF" . . "Set|
00004e00  54 79 70 65 20 22 2b 66  75 6c 6c 6e 61 6d 65 24  |Type "+fullname$|
00004e10  2b 22 20 54 65 78 74 22  0d 17 8e 3a e7 20 73 61  |+" Text"...:. sa|
00004e20  76 65 74 79 70 65 24 3d  22 45 39 32 22 20 8c 20  |vetype$="E92" . |
00004e30  ff 20 22 53 65 74 54 79  70 65 20 22 2b 66 75 6c  |. "SetType "+ful|
00004e40  6c 6e 61 6d 65 24 2b 22  20 44 69 73 63 49 6e 64  |lname$+" DiscInd|
00004e50  78 22 0d 17 98 3f e7 20  73 61 76 65 74 79 70 65  |x"...?. savetype|
00004e60  24 3d 22 46 46 46 22 20  8c 20 f2 75 70 64 61 74  |$="FFF" . .updat|
00004e70  65 5f 69 63 6f 6e 28 64  69 73 63 5f 73 61 76 65  |e_icon(disc_save|
00004e80  62 6f 78 25 2c 31 2c 66  75 6c 6c 6e 61 6d 65 24  |box%,1,fullname$|
00004e90  29 0d 17 a2 40 e7 20 73  61 76 65 74 79 70 65 24  |)...@. savetype$|
00004ea0  3d 22 45 39 32 22 20 8c  20 f2 75 70 64 61 74 65  |="E92" . .update|
00004eb0  5f 69 63 6f 6e 28 64 69  73 63 5f 73 61 76 65 62  |_icon(disc_saveb|
00004ec0  6f 78 32 25 2c 31 2c 66  75 6c 6c 6e 61 6d 65 24  |ox2%,1,fullname$|
00004ed0  29 0d 17 ac 48 f2 72 65  5f 74 69 74 6c 65 28 22  |)...H.re_title("|
00004ee0  44 69 73 63 20 49 6e 64  65 78 22 29 3a f2 63 6c  |Disc Index"):.cl|
00004ef0  6f 73 65 28 64 69 73 63  5f 73 61 76 65 62 6f 78  |ose(disc_savebox|
00004f00  25 29 3a f2 63 6c 6f 73  65 28 64 69 73 63 5f 73  |%):.close(disc_s|
00004f10  61 76 65 62 6f 78 32 25  29 0d 17 b6 0e 75 6e 73  |avebox2%)....uns|
00004f20  61 76 65 64 25 3d a3 0d  17 c0 1c c8 99 20 22 57  |aved%=....... "W|
00004f30  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00004f40  2c 2d 31 0d 17 ca 05 e1  0d 17 d4 05 3a 0d 17 de  |,-1.........:...|
00004f50  1b dd f2 69 6e 69 74 69  61 74 65 5f 73 61 76 65  |...initiate_save|
00004f60  28 66 6e 61 6d 65 24 29  0d 17 e8 20 c8 99 20 22  |(fname$)... .. "|
00004f70  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
00004f80  6e 66 6f 22 2c 2c 71 25  0d 17 f2 19 e7 20 71 25  |nfo",,q%..... q%|
00004f90  21 31 32 3d 64 69 73 63  5f 69 6e 64 65 78 25 20  |!12=disc_index% |
00004fa0  e1 0d 17 fc 17 71 25 21  32 30 3d 71 25 21 31 32  |.....q%!20=q%!12|
00004fb0  3a 71 25 21 31 32 3d 30  0d 18 06 17 71 25 21 32  |:q%!12=0....q%!2|
00004fc0  34 3d 71 25 21 31 36 3a  71 25 21 31 36 3d 31 0d  |4=q%!16:q%!16=1.|
00004fd0  18 10 16 71 25 21 32 38  3d 71 25 21 30 3a 71 25  |...q%!28=q%!0:q%|
00004fe0  21 30 3d 36 34 0d 18 1a  19 71 25 21 33 32 3d 71  |!0=64....q%!32=q|
00004ff0  25 21 34 3a 71 25 21 33  36 3d 38 30 39 36 0d 18  |%!4:q%!36=8096..|
00005000  24 2f e7 20 73 61 76 65  74 79 70 65 24 3d 22 45  |$/. savetype$="E|
00005010  39 32 22 20 8c 20 71 25  21 34 30 3d 26 45 39 32  |92" . q%!40=&E92|
00005020  20 8b 20 71 25 21 34 30  3d 26 46 46 46 0d 18 2e  | . q%!40=&FFF...|
00005030  21 24 28 71 25 2b 34 34  29 3d a4 67 65 74 5f 6c  |!$(q%+44)=.get_l|
00005040  65 61 66 28 66 6e 61 6d  65 24 29 2b bd 30 0d 18  |eaf(fname$)+.0..|
00005050  38 25 c8 99 20 22 57 69  6d 70 5f 53 65 6e 64 4d  |8%.. "Wimp_SendM|
00005060  65 73 73 61 67 65 22 2c  31 37 2c 71 25 2c 71 25  |essage",17,q%,q%|
00005070  21 32 30 0d 18 42 05 e1  0d 18 4c 05 3a 0d 18 56  |!20..B....L.:..V|
00005080  15 dd a4 67 65 74 5f 6c  65 61 66 28 6e 61 6d 65  |...get_leaf(name|
00005090  24 29 0d 18 60 12 c8 95  20 a7 6e 61 6d 65 24 2c  |$)..`... .name$,|
000050a0  22 2e 22 29 0d 18 6a 1f  6e 61 6d 65 24 3d c1 6e  |".")..j.name$=.n|
000050b0  61 6d 65 24 2c a7 6e 61  6d 65 24 2c 22 2e 22 29  |ame$,.name$,".")|
000050c0  2b 31 29 0d 18 74 05 ce  0d 18 7e 0d 3d 6e 61 6d  |+1)..t....~.=nam|
000050d0  65 24 2b bd 30 0d 18 88  05 3a 0d 18 92 0e dd f2  |e$+.0....:......|
000050e0  64 61 74 61 73 61 76 65  0d 18 9c 1c 66 75 6c 6c  |datasave....full|
000050f0  6e 61 6d 65 24 3d a4 73  74 72 69 6e 67 28 71 25  |name$=.string(q%|
00005100  2b 34 34 29 0d 18 a6 12  c8 8e 20 73 61 76 65 74  |+44)...... savet|
00005110  79 70 65 24 20 ca 0d 18  b0 0b c9 20 22 45 39 32  |ype$ ...... "E92|
00005120  22 0d 18 ba 19 f2 73 61  76 65 5f 64 61 74 61 28  |".....save_data(|
00005130  66 75 6c 6c 6e 61 6d 65  24 29 0d 18 c4 16 71 25  |fullname$)....q%|
00005140  21 31 32 3d 71 25 21 38  3a 71 25 21 31 36 3d 33  |!12=q%!8:q%!16=3|
00005150  0d 18 ce 24 c8 99 20 22  57 69 6d 70 5f 53 65 6e  |...$.. "Wimp_Sen|
00005160  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 71 25 2c  |dMessage",17,q%,|
00005170  71 25 21 34 0d 18 d8 26  ff 20 22 53 65 74 54 79  |q%!4...&. "SetTy|
00005180  70 65 20 22 2b 66 75 6c  6c 6e 61 6d 65 24 2b 22  |pe "+fullname$+"|
00005190  20 44 69 73 63 49 6e 64  78 22 0d 18 e2 1c c8 99  | DiscIndx"......|
000051a0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
000051b0  75 22 2c 2c 2d 31 0d 18  ec 1b f2 72 65 5f 74 69  |u",,-1.....re_ti|
000051c0  74 6c 65 28 22 44 69 73  63 20 49 6e 64 65 78 22  |tle("Disc Index"|
000051d0  29 0d 18 f6 36 f2 63 6c  6f 73 65 28 64 69 73 63  |)...6.close(disc|
000051e0  5f 73 61 76 65 62 6f 78  32 25 29 3a f2 6d 6f 76  |_savebox2%):.mov|
000051f0  65 5f 63 61 72 65 74 28  64 69 73 63 5f 69 6e 64  |e_caret(disc_ind|
00005200  65 78 25 2c 31 33 29 0d  19 00 0e 75 6e 73 61 76  |ex%,13)....unsav|
00005210  65 64 25 3d a3 0d 19 0a  2c f2 75 70 64 61 74 65  |ed%=....,.update|
00005220  5f 69 63 6f 6e 28 64 69  73 63 5f 73 61 76 65 62  |_icon(disc_saveb|
00005230  6f 78 32 25 2c 31 2c 66  75 6c 6c 6e 61 6d 65 24  |ox2%,1,fullname$|
00005240  29 0d 19 14 0b c9 20 22  46 46 46 22 0d 19 1e 19  |)..... "FFF"....|
00005250  f2 73 61 76 65 5f 74 65  78 74 28 66 75 6c 6c 6e  |.save_text(fulln|
00005260  61 6d 65 24 29 0d 19 28  16 71 25 21 31 32 3d 71  |ame$)..(.q%!12=q|
00005270  25 21 38 3a 71 25 21 31  36 3d 33 0d 19 32 24 c8  |%!8:q%!16=3..2$.|
00005280  99 20 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |. "Wimp_SendMess|
00005290  61 67 65 22 2c 31 37 2c  71 25 2c 71 25 21 34 0d  |age",17,q%,q%!4.|
000052a0  19 3c 22 ff 20 22 53 65  74 54 79 70 65 20 22 2b  |.<". "SetType "+|
000052b0  66 75 6c 6c 6e 61 6d 65  24 2b 22 20 54 65 78 74  |fullname$+" Text|
000052c0  22 0d 19 46 1c c8 99 20  22 57 69 6d 70 5f 43 72  |"..F... "Wimp_Cr|
000052d0  65 61 74 65 4d 65 6e 75  22 2c 2c 2d 31 0d 19 50  |eateMenu",,-1..P|
000052e0  35 f2 63 6c 6f 73 65 28  64 69 73 63 5f 73 61 76  |5.close(disc_sav|
000052f0  65 62 6f 78 25 29 3a f2  6d 6f 76 65 5f 63 61 72  |ebox%):.move_car|
00005300  65 74 28 64 69 73 63 5f  69 6e 64 65 78 25 2c 31  |et(disc_index%,1|
00005310  33 29 0d 19 5a 2b f2 75  70 64 61 74 65 5f 69 63  |3)..Z+.update_ic|
00005320  6f 6e 28 64 69 73 63 5f  73 61 76 65 62 6f 78 25  |on(disc_savebox%|
00005330  2c 31 2c 66 75 6c 6c 6e  61 6d 65 24 29 0d 19 64  |,1,fullname$)..d|
00005340  05 cb 0d 19 6e 05 e1 0d  19 78 05 3a 0d 19 82 10  |....n....x.:....|
00005350  dd a4 73 74 72 69 6e 67  28 61 25 29 0d 19 8c 08  |..string(a%)....|
00005360  ea 20 62 24 0d 19 96 09  62 24 3d 22 22 0d 19 a0  |. b$....b$=""...|
00005370  0d c8 95 20 3f 61 25 3c  3e 30 0d 19 aa 0c 62 24  |... ?a%<>0....b$|
00005380  2b 3d bd 3f 61 25 0d 19  b4 09 61 25 2b 3d 31 0d  |+=.?a%....a%+=1.|
00005390  19 be 05 ce 0d 19 c8 07  3d 62 24 0d 19 d2 05 3a  |........=b$....:|
000053a0  0d 19 dc 35 dd a4 73 74  72 69 6e 67 30 28 61 25  |...5..string0(a%|
000053b0  29 3a ea 20 61 24 3a c8  95 20 3f 61 25 3e 33 31  |):. a$:.. ?a%>31|
000053c0  3a 61 24 2b 3d bd 3f 61  25 3a 61 25 2b 3d 31 3a  |:a$+=.?a%:a%+=1:|
000053d0  ce 3a 3d 61 24 0d 19 e6  05 3a 0d 19 f0 1a dd f2  |.:=a$....:......|
000053e0  73 61 76 65 5f 64 61 74  61 28 66 75 6c 6c 6e 61  |save_data(fullna|
000053f0  6d 65 24 29 0d 19 fa 15  c8 99 20 22 48 6f 75 72  |me$)...... "Hour|
00005400  67 6c 61 73 73 5f 4f 6e  22 0d 1a 04 12 43 48 25  |glass_On"....CH%|
00005410  3d ae 66 75 6c 6c 6e 61  6d 65 24 0d 1a 0e 15 f1  |=.fullname$.....|
00005420  23 43 48 25 2c 6d 61 78  5f 72 65 63 6f 72 64 25  |#CH%,max_record%|
00005430  0d 1a 18 18 e3 20 49 25  3d 31 20 b8 20 6d 61 78  |..... I%=1 . max|
00005440  5f 72 65 63 6f 72 64 25  0d 1a 22 33 f1 23 43 48  |_record%.."3.#CH|
00005450  25 2c 64 69 73 63 6e 61  6d 65 24 28 49 25 29 2c  |%,discname$(I%),|
00005460  64 69 73 63 74 79 70 65  24 28 49 25 29 2c 64 69  |disctype$(I%),di|
00005470  73 63 66 72 65 65 24 28  49 25 29 0d 1a 2c 12 e3  |scfree$(I%)..,..|
00005480  20 73 75 62 49 25 3d 31  20 b8 20 35 30 0d 1a 36  | subI%=1 . 50..6|
00005490  19 f1 23 43 48 25 2c 6e  61 6d 65 24 28 49 25 2c  |..#CH%,name$(I%,|
000054a0  73 75 62 49 25 29 0d 1a  40 0b ed 20 73 75 62 49  |subI%)..@.. subI|
000054b0  25 0d 1a 4a 11 e3 20 73  75 62 49 25 3d 31 20 b8  |%..J.. subI%=1 .|
000054c0  20 34 0d 1a 54 1c f1 23  43 48 25 2c 63 6f 6d 6d  | 4..T..#CH%,comm|
000054d0  65 6e 74 24 28 49 25 2c  73 75 62 49 25 29 0d 1a  |ent$(I%,subI%)..|
000054e0  5e 0b ed 20 73 75 62 49  25 0d 1a 68 56 e7 20 a8  |^.. subI%..hV. .|
000054f0  28 28 49 25 2f 6d 61 78  5f 72 65 63 6f 72 64 25  |((I%/max_record%|
00005500  29 2a 31 30 30 29 3c 3e  31 30 30 20 8c 20 c8 99  |)*100)<>100 . ..|
00005510  20 22 48 6f 75 72 67 6c  61 73 73 5f 50 65 72 63  | "Hourglass_Perc|
00005520  65 6e 74 61 67 65 22 2c  a8 28 28 49 25 2f 6d 61  |entage",.((I%/ma|
00005530  78 5f 72 65 63 6f 72 64  25 29 2a 31 30 30 29 0d  |x_record%)*100).|
00005540  1a 72 08 ed 20 49 25 0d  1a 7c 09 d9 23 43 48 25  |.r.. I%..|..#CH%|
00005550  0d 1a 86 16 c8 99 20 22  48 6f 75 72 67 6c 61 73  |...... "Hourglas|
00005560  73 5f 4f 66 66 22 0d 1a  90 05 e1 0d 1a 9a 05 3a  |s_Off".........:|
00005570  0d 1a a4 1a dd f2 73 61  76 65 5f 72 65 63 6f 72  |......save_recor|
00005580  64 5f 74 65 78 74 28 49  25 29 0d 1a ae 1a d5 23  |d_text(I%).....#|
00005590  43 48 25 2c 22 4e 75 6d  62 65 72 3a 20 22 2b c3  |CH%,"Number: "+.|
000055a0  28 49 25 29 0d 1a b8 60  d5 23 43 48 25 2c 22 44  |(I%)...`.#CH%,"D|
000055b0  69 73 63 6e 61 6d 65 3a  20 22 2b 64 69 73 63 6e  |iscname: "+discn|
000055c0  61 6d 65 24 28 49 25 29  2b 22 20 20 20 44 69 73  |ame$(I%)+"   Dis|
000055d0  63 74 79 70 65 3a 20 22  2b 64 69 73 63 74 79 70  |ctype: "+disctyp|
000055e0  65 24 28 49 25 29 2b 22  20 20 20 46 72 65 65 3a  |e$(I%)+"   Free:|
000055f0  20 22 2b 64 69 73 63 66  72 65 65 24 28 49 25 29  | "+discfree$(I%)|
00005600  2b 22 6b 22 0d 1a c2 1d  d5 23 43 48 25 2c 22 43  |+"k".....#CH%,"C|
00005610  6f 6e 74 65 6e 74 73 20  6f 66 20 44 69 73 63 3a  |ontents of Disc:|
00005620  22 0d 1a cc 11 e3 20 73  75 62 49 25 3d 30 20 b8  |"..... subI%=0 .|
00005630  20 39 0d 1a d6 6f 61 3d  a9 28 6e 61 6d 65 24 28  | 9...oa=.(name$(|
00005640  49 25 2c 31 2b 28 73 75  62 49 25 2a 34 29 29 29  |I%,1+(subI%*4)))|
00005650  3a 62 3d a9 28 6e 61 6d  65 24 28 49 25 2c 32 2b  |:b=.(name$(I%,2+|
00005660  28 73 75 62 49 25 2a 34  29 29 29 3a 63 3d a9 28  |(subI%*4))):c=.(|
00005670  6e 61 6d 65 24 28 49 25  2c 33 2b 28 73 75 62 49  |name$(I%,3+(subI|
00005680  25 2a 34 29 29 29 3a 64  3d a9 28 6e 61 6d 65 24  |%*4))):d=.(name$|
00005690  28 49 25 2c 34 2b 28 73  75 62 49 25 2a 34 29 29  |(I%,4+(subI%*4))|
000056a0  29 0d 1a e0 a2 e7 20 28  61 3c 3e 30 20 84 20 62  |)..... (a<>0 . b|
000056b0  3c 3e 30 20 84 20 63 3c  3e 30 20 84 20 64 3c 3e  |<>0 . c<>0 . d<>|
000056c0  30 29 20 8c 20 d5 23 43  48 25 2c 6e 61 6d 65 24  |0) . .#CH%,name$|
000056d0  28 49 25 2c 31 2b 28 73  75 62 49 25 2a 34 29 29  |(I%,1+(subI%*4))|
000056e0  2b c4 32 30 2d 61 2c 22  20 22 29 2b 6e 61 6d 65  |+.20-a," ")+name|
000056f0  24 28 49 25 2c 32 2b 28  73 75 62 49 25 2a 34 29  |$(I%,2+(subI%*4)|
00005700  29 2b c4 32 30 2d 62 2c  22 20 22 29 2b 6e 61 6d  |)+.20-b," ")+nam|
00005710  65 24 28 49 25 2c 33 2b  28 73 75 62 49 25 2a 34  |e$(I%,3+(subI%*4|
00005720  29 29 2b c4 32 30 2d 63  2c 22 20 22 29 2b 6e 61  |))+.20-c," ")+na|
00005730  6d 65 24 28 49 25 2c 34  2b 28 73 75 62 49 25 2a  |me$(I%,4+(subI%*|
00005740  34 29 29 0d 1a ea 0b ed  20 73 75 62 49 25 0d 1a  |4))..... subI%..|
00005750  f4 75 e7 20 28 a9 28 63  6f 6d 6d 65 6e 74 24 28  |.u. (.(comment$(|
00005760  49 25 2c 31 29 29 3c 3e  30 20 84 20 a9 28 63 6f  |I%,1))<>0 . .(co|
00005770  6d 6d 65 6e 74 24 28 49  25 2c 32 29 29 3c 3e 30  |mment$(I%,2))<>0|
00005780  20 84 20 a9 28 63 6f 6d  6d 65 6e 74 24 28 49 25  | . .(comment$(I%|
00005790  2c 33 29 29 3c 3e 30 20  84 20 a9 28 63 6f 6d 6d  |,3))<>0 . .(comm|
000057a0  65 6e 74 24 28 49 25 2c  34 29 29 3c 3e 30 29 3a  |ent$(I%,4))<>0):|
000057b0  d5 23 43 48 25 2c 22 45  78 74 72 61 20 49 6e 66  |.#CH%,"Extra Inf|
000057c0  6f 3a 22 0d 1a fe 11 e3  20 73 75 62 49 25 3d 31  |o:"..... subI%=1|
000057d0  20 b8 20 34 0d 1b 08 39  e7 20 a9 28 63 6f 6d 6d  | . 4...9. .(comm|
000057e0  65 6e 74 24 28 49 25 2c  73 75 62 49 25 29 29 3c  |ent$(I%,subI%))<|
000057f0  3e 30 20 8c 20 d5 23 43  48 25 2c 63 6f 6d 6d 65  |>0 . .#CH%,comme|
00005800  6e 74 24 28 49 25 2c 73  75 62 49 25 29 0d 1b 12  |nt$(I%,subI%)...|
00005810  0b ed 20 73 75 62 49 25  0d 1b 1c 59 d5 23 43 48  |.. subI%...Y.#CH|
00005820  25 2c 22 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |%,"-------------|
00005830  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00005870  22 0d 1b 26 0d d5 23 43  48 25 2c 22 20 22 0d 1b  |"..&..#CH%," "..|
00005880  30 05 e1 0d 1b 3a 05 3a  0d 1b 44 1a dd f2 73 61  |0....:.:..D...sa|
00005890  76 65 5f 74 65 78 74 28  66 75 6c 6c 6e 61 6d 65  |ve_text(fullname|
000058a0  24 29 0d 1b 4e 15 c8 99  20 22 48 6f 75 72 67 6c  |$)..N... "Hourgl|
000058b0  61 73 73 5f 4f 6e 22 0d  1b 58 15 c8 8e 20 73 61  |ass_On"..X... sa|
000058c0  76 65 61 6c 6c 74 65 78  74 24 20 ca 0d 1b 62 0b  |vealltext$ ...b.|
000058d0  c9 20 22 59 65 73 22 0d  1b 6c 12 43 48 25 3d ae  |. "Yes"..l.CH%=.|
000058e0  66 75 6c 6c 6e 61 6d 65  24 0d 1b 76 18 e3 20 49  |fullname$..v.. I|
000058f0  25 3d 31 20 b8 20 6d 61  78 5f 72 65 63 6f 72 64  |%=1 . max_record|
00005900  25 0d 1b 80 57 e7 20 64  69 73 63 74 79 70 65 24  |%...W. disctype$|
00005910  28 49 25 29 3c 3e 22 22  20 84 20 64 69 73 63 6e  |(I%)<>"" . discn|
00005920  61 6d 65 24 28 49 25 29  3c 3e 22 22 20 84 20 64  |ame$(I%)<>"" . d|
00005930  69 73 63 66 72 65 65 24  28 49 25 29 3c 3e 22 22  |iscfree$(I%)<>""|
00005940  20 8c 20 f2 73 61 76 65  5f 72 65 63 6f 72 64 5f  | . .save_record_|
00005950  74 65 78 74 28 49 25 29  0d 1b 8a 56 e7 20 a8 28  |text(I%)...V. .(|
00005960  28 49 25 2f 6d 61 78 5f  72 65 63 6f 72 64 25 29  |(I%/max_record%)|
00005970  2a 31 30 30 29 3c 3e 31  30 30 20 8c 20 c8 99 20  |*100)<>100 . .. |
00005980  22 48 6f 75 72 67 6c 61  73 73 5f 50 65 72 63 65  |"Hourglass_Perce|
00005990  6e 74 61 67 65 22 2c a8  28 28 49 25 2f 6d 61 78  |ntage",.((I%/max|
000059a0  5f 72 65 63 6f 72 64 25  29 2a 31 30 30 29 0d 1b  |_record%)*100)..|
000059b0  94 08 ed 20 49 25 0d 1b  9e 09 d9 23 43 48 25 0d  |... I%.....#CH%.|
000059c0  1b a8 0a c9 20 22 4e 6f  22 0d 1b b2 49 66 72 6f  |.... "No"...Ifro|
000059d0  6d 25 3d bb 28 a4 69 6e  64 69 72 65 63 74 28 64  |m%=.(.indirect(d|
000059e0  69 73 63 5f 73 61 76 65  62 6f 78 25 2c 35 29 29  |isc_savebox%,5))|
000059f0  3a 74 6f 25 3d bb 28 a4  69 6e 64 69 72 65 63 74  |:to%=.(.indirect|
00005a00  28 64 69 73 63 5f 73 61  76 65 62 6f 78 25 2c 36  |(disc_savebox%,6|
00005a10  29 29 0d 1b bc 56 e7 20  66 72 6f 6d 25 3c 31 20  |))...V. from%<1 |
00005a20  84 20 74 6f 25 3e 6d 61  78 5f 72 65 63 6f 72 64  |. to%>max_record|
00005a30  25 20 8c 20 85 20 31 2c  22 45 6e 74 65 72 20 76  |% . . 1,"Enter v|
00005a40  61 6c 75 65 73 20 62 65  74 77 65 65 6e 20 31 20  |alues between 1 |
00005a50  61 6e 64 20 22 2b c3 28  6d 61 78 5f 72 65 63 6f  |and "+.(max_reco|
00005a60  72 64 25 29 2b 22 2e 22  0d 1b c6 12 43 48 25 3d  |rd%)+"."....CH%=|
00005a70  ae 66 75 6c 6c 6e 61 6d  65 24 0d 1b d0 14 e3 20  |.fullname$..... |
00005a80  49 25 3d 66 72 6f 6d 25  20 b8 20 74 6f 25 0d 1b  |I%=from% . to%..|
00005a90  da 57 e7 20 64 69 73 63  74 79 70 65 24 28 49 25  |.W. disctype$(I%|
00005aa0  29 3c 3e 22 22 20 84 20  64 69 73 63 6e 61 6d 65  |)<>"" . discname|
00005ab0  24 28 49 25 29 3c 3e 22  22 20 84 20 64 69 73 63  |$(I%)<>"" . disc|
00005ac0  66 72 65 65 24 28 49 25  29 3c 3e 22 22 20 8c 20  |free$(I%)<>"" . |
00005ad0  f2 73 61 76 65 5f 72 65  63 6f 72 64 5f 74 65 78  |.save_record_tex|
00005ae0  74 28 49 25 29 0d 1b e4  56 e7 20 a8 28 28 49 25  |t(I%)...V. .((I%|
00005af0  2f 6d 61 78 5f 72 65 63  6f 72 64 25 29 2a 31 30  |/max_record%)*10|
00005b00  30 29 3c 3e 31 30 30 20  8c 20 c8 99 20 22 48 6f  |0)<>100 . .. "Ho|
00005b10  75 72 67 6c 61 73 73 5f  50 65 72 63 65 6e 74 61  |urglass_Percenta|
00005b20  67 65 22 2c a8 28 28 49  25 2f 6d 61 78 5f 72 65  |ge",.((I%/max_re|
00005b30  63 6f 72 64 25 29 2a 31  30 30 29 0d 1b ee 08 ed  |cord%)*100).....|
00005b40  20 49 25 0d 1b f8 09 d9  23 43 48 25 0d 1c 02 05  | I%.....#CH%....|
00005b50  cb 0d 1c 0c 16 c8 99 20  22 48 6f 75 72 67 6c 61  |....... "Hourgla|
00005b60  73 73 5f 4f 66 66 22 0d  1c 16 05 e1 0d 1c 20 05  |ss_Off"....... .|
00005b70  3a 0d 1c 2a 0b dd f2 70  72 69 6e 74 0d 1c 34 53  |:..*...print..4S|
00005b80  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 64 69 73  |.update_icon(dis|
00005b90  63 5f 77 61 69 74 25 2c  30 2c 22 50 72 69 6e 74  |c_wait%,0,"Print|
00005ba0  69 6e 67 20 49 6e 20 50  72 6f 67 72 65 73 73 20  |ing In Progress |
00005bb0  50 6c 65 61 73 65 20 57  61 69 74 22 29 3a f2 6f  |Please Wait"):.o|
00005bc0  70 65 6e 28 64 69 73 63  5f 77 61 69 74 25 29 0d  |pen(disc_wait%).|
00005bd0  1c 3e 1e f2 72 65 64 72  61 77 5f 77 69 6e 64 6f  |.>..redraw_windo|
00005be0  77 28 64 69 73 63 5f 77  61 69 74 25 29 0d 1c 48  |w(disc_wait%)..H|
00005bf0  15 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
00005c00  6e 22 0d 1c 52 27 63 6f  70 69 65 73 25 3d bb 28  |n"..R'copies%=.(|
00005c10  a4 69 6e 64 69 72 65 63  74 28 64 69 73 63 5f 70  |.indirect(disc_p|
00005c20  72 69 6e 74 25 2c 36 29  29 0d 1c 5c 75 e7 20 63  |rint%,6))..\u. c|
00005c30  6f 70 69 65 73 25 3d 30  20 8c 20 c8 99 20 22 48  |opies%=0 . .. "H|
00005c40  6f 75 72 67 6c 61 73 73  5f 4f 66 66 22 3a c8 99  |ourglass_Off":..|
00005c50  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
00005c60  75 22 2c 2c 2d 31 3a 85  20 31 2c 22 53 65 74 20  |u",,-1:. 1,"Set |
00005c70  6e 75 6d 62 65 72 20 6f  66 20 63 6f 70 69 65 73  |number of copies|
00005c80  20 74 6f 20 61 20 76 61  6c 75 65 20 67 72 65 61  | to a value grea|
00005c90  74 65 72 20 74 68 61 6e  20 30 2e 22 3a e1 0d 1c  |ter than 0.":...|
00005ca0  66 11 c8 8e 20 70 72 69  6e 74 65 72 24 20 ca 0d  |f... printer$ ..|
00005cb0  1c 70 0d c9 20 22 44 72  61 66 74 22 0d 1c 7a 20  |.p.. "Draft"..z |
00005cc0  63 6f 70 79 3d 30 3a ef  20 32 3a ef 20 31 2c 32  |copy=0:. 2:. 1,2|
00005cd0  37 2c 31 2c 31 32 30 2c  31 2c 34 38 0d 1c 84 05  |7,1,120,1,48....|
00005ce0  f5 0d 1c 8e 13 c8 8e 20  70 72 69 6e 74 77 68 61  |....... printwha|
00005cf0  74 24 20 ca 0d 1c 98 18  c9 20 22 41 6c 6c 22 3a  |t$ ...... "All":|
00005d00  f2 70 72 69 6e 74 5f 74  61 62 6c 65 0d 1c a2 16  |.print_table....|
00005d10  c9 20 22 41 54 22 3a f2  70 72 69 6e 74 5f 68 61  |. "AT":.print_ha|
00005d20  6c 66 0d 1c ac 1a c9 20  22 4c 61 62 65 6c 22 3a  |lf..... "Label":|
00005d30  f2 70 72 69 6e 74 5f 6c  61 62 65 6c 0d 1c b6 05  |.print_label....|
00005d40  cb 0d 1c c0 1a 63 6f 70  79 2b 3d 31 3a fd 20 63  |.....copy+=1:. c|
00005d50  6f 70 79 3d 63 6f 70 69  65 73 25 0d 1c ca 07 ef  |opy=copies%.....|
00005d60  20 33 0d 1c d4 0b c9 20  22 4e 4c 51 22 0d 1c de  | 3..... "NLQ"...|
00005d70  20 63 6f 70 79 3d 30 3a  ef 20 32 3a ef 20 31 2c  | copy=0:. 2:. 1,|
00005d80  32 37 2c 31 2c 31 32 30  2c 31 2c 34 39 0d 1c e8  |27,1,120,1,49...|
00005d90  05 f5 0d 1c f2 13 c8 8e  20 70 72 69 6e 74 77 68  |........ printwh|
00005da0  61 74 24 20 ca 0d 1c fc  18 c9 20 22 41 6c 6c 22  |at$ ...... "All"|
00005db0  3a f2 70 72 69 6e 74 5f  74 61 62 6c 65 0d 1d 06  |:.print_table...|
00005dc0  16 c9 20 22 41 54 22 3a  f2 70 72 69 6e 74 5f 68  |.. "AT":.print_h|
00005dd0  61 6c 66 0d 1d 10 1a c9  20 22 4c 61 62 65 6c 22  |alf..... "Label"|
00005de0  3a f2 70 72 69 6e 74 5f  6c 61 62 65 6c 0d 1d 1a  |:.print_label...|
00005df0  05 cb 0d 1d 24 1a 63 6f  70 79 2b 3d 31 3a fd 20  |....$.copy+=1:. |
00005e00  63 6f 70 79 3d 63 6f 70  69 65 73 25 0d 1d 2e 15  |copy=copies%....|
00005e10  ef 20 31 2c 32 37 2c 31  2c 31 32 30 2c 31 2c 34  |. 1,27,1,120,1,4|
00005e20  38 0d 1d 38 07 ef 20 33  0d 1d 42 05 cb 0d 1d 4c  |8..8.. 3..B....L|
00005e30  16 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
00005e40  66 66 22 0d 1d 56 1c c8  99 20 22 57 69 6d 70 5f  |ff"..V... "Wimp_|
00005e50  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 2d 31 0d  |CreateMenu",,-1.|
00005e60  1d 60 2a f2 63 6c 6f 73  65 28 64 69 73 63 5f 77  |.`*.close(disc_w|
00005e70  61 69 74 25 29 3a f2 63  6c 6f 73 65 28 64 69 73  |ait%):.close(dis|
00005e80  63 5f 70 72 69 6e 74 25  29 0d 1d 6a 05 e1 0d 1d  |c_print%)..j....|
00005e90  74 05 3a 0d 1d 7e 11 dd  f2 70 72 69 6e 74 5f 6c  |t.:..~...print_l|
00005ea0  61 62 65 6c 0d 1d 88 28  e7 20 6c 69 6e 65 66 65  |abel...(. linefe|
00005eb0  65 64 24 3d 22 59 65 73  22 20 8c 20 76 64 75 25  |ed$="Yes" . vdu%|
00005ec0  3d 31 30 20 8b 20 76 64  75 25 3d 30 0d 1d 92 2e  |=10 . vdu%=0....|
00005ed0  69 6e 6c 61 79 5f 6e 75  6d 62 65 72 25 3d bb 28  |inlay_number%=.(|
00005ee0  a4 69 6e 64 69 72 65 63  74 28 64 69 73 63 5f 70  |.indirect(disc_p|
00005ef0  72 69 6e 74 25 2c 31 32  29 29 0d 1d 9c 2a f1 22  |rint%,12))...*."|
00005f00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00005f10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 22 3a ef 20 31 2c  |----------":. 1,|
00005f20  76 64 75 25 0d 1d a6 13  ef 20 31 2c 32 37 2c 31  |vdu%..... 1,27,1|
00005f30  2c 38 37 2c 31 2c 31 0d  1d b0 26 f1 64 69 73 63  |,87,1,1...&.disc|
00005f40  6e 61 6d 65 24 28 69 6e  6c 61 79 5f 6e 75 6d 62  |name$(inlay_numb|
00005f50  65 72 25 29 3a ef 20 31  2c 76 64 75 25 0d 1d ba  |er%):. 1,vdu%...|
00005f60  13 ef 20 31 2c 32 37 2c  31 2c 38 37 2c 31 2c 30  |.. 1,27,1,87,1,0|
00005f70  0d 1d c4 2a f1 22 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |...*."----------|
00005f80  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00005f90  22 3a ef 20 31 2c 76 64  75 25 0d 1d ce 5e f1 6e  |":. 1,vdu%...^.n|
00005fa0  61 6d 65 24 28 69 6e 6c  61 79 5f 6e 75 6d 62 65  |ame$(inlay_numbe|
00005fb0  72 25 2c 31 29 3b c4 31  31 2d a9 28 6e 61 6d 65  |r%,1);.11-.(name|
00005fc0  24 28 69 6e 6c 61 79 5f  6e 75 6d 62 65 72 25 2c  |$(inlay_number%,|
00005fd0  31 29 29 2c 22 20 22 29  3b 6e 61 6d 65 24 28 69  |1))," ");name$(i|
00005fe0  6e 6c 61 79 5f 6e 75 6d  62 65 72 25 2c 32 29 3a  |nlay_number%,2):|
00005ff0  ef 20 31 2c 76 64 75 25  0d 1d d8 5e f1 6e 61 6d  |. 1,vdu%...^.nam|
00006000  65 24 28 69 6e 6c 61 79  5f 6e 75 6d 62 65 72 25  |e$(inlay_number%|
00006010  2c 33 29 3b c4 31 31 2d  a9 28 6e 61 6d 65 24 28  |,3);.11-.(name$(|
00006020  69 6e 6c 61 79 5f 6e 75  6d 62 65 72 25 2c 33 29  |inlay_number%,3)|
00006030  29 2c 22 20 22 29 3b 6e  61 6d 65 24 28 69 6e 6c  |)," ");name$(inl|
00006040  61 79 5f 6e 75 6d 62 65  72 25 2c 34 29 3a ef 20  |ay_number%,4):. |
00006050  31 2c 76 64 75 25 0d 1d  e2 5e f1 6e 61 6d 65 24  |1,vdu%...^.name$|
00006060  28 69 6e 6c 61 79 5f 6e  75 6d 62 65 72 25 2c 35  |(inlay_number%,5|
00006070  29 3b c4 31 31 2d a9 28  6e 61 6d 65 24 28 69 6e  |);.11-.(name$(in|
00006080  6c 61 79 5f 6e 75 6d 62  65 72 25 2c 35 29 29 2c  |lay_number%,5)),|
00006090  22 20 22 29 3b 6e 61 6d  65 24 28 69 6e 6c 61 79  |" ");name$(inlay|
000060a0  5f 6e 75 6d 62 65 72 25  2c 36 29 3a ef 20 31 2c  |_number%,6):. 1,|
000060b0  76 64 75 25 0d 1d ec 5e  f1 6e 61 6d 65 24 28 69  |vdu%...^.name$(i|
000060c0  6e 6c 61 79 5f 6e 75 6d  62 65 72 25 2c 37 29 3b  |nlay_number%,7);|
000060d0  c4 31 31 2d a9 28 6e 61  6d 65 24 28 69 6e 6c 61  |.11-.(name$(inla|
000060e0  79 5f 6e 75 6d 62 65 72  25 2c 37 29 29 2c 22 20  |y_number%,7))," |
000060f0  22 29 3b 6e 61 6d 65 24  28 69 6e 6c 61 79 5f 6e  |");name$(inlay_n|
00006100  75 6d 62 65 72 25 2c 38  29 3a ef 20 31 2c 76 64  |umber%,8):. 1,vd|
00006110  75 25 0d 1d f6 5f f1 6e  61 6d 65 24 28 69 6e 6c  |u%..._.name$(inl|
00006120  61 79 5f 6e 75 6d 62 65  72 25 2c 39 29 3b c4 31  |ay_number%,9);.1|
00006130  31 2d a9 28 6e 61 6d 65  24 28 69 6e 6c 61 79 5f  |1-.(name$(inlay_|
00006140  6e 75 6d 62 65 72 25 2c  39 29 29 2c 22 20 22 29  |number%,9))," ")|
00006150  3b 6e 61 6d 65 24 28 69  6e 6c 61 79 5f 6e 75 6d  |;name$(inlay_num|
00006160  62 65 72 25 2c 31 30 29  3a ef 20 31 2c 76 64 75  |ber%,10):. 1,vdu|
00006170  25 0d 1e 00 61 f1 6e 61  6d 65 24 28 69 6e 6c 61  |%...a.name$(inla|
00006180  79 5f 6e 75 6d 62 65 72  25 2c 31 31 29 3b c4 31  |y_number%,11);.1|
00006190  31 2d a9 28 6e 61 6d 65  24 28 69 6e 6c 61 79 5f  |1-.(name$(inlay_|
000061a0  6e 75 6d 62 65 72 25 2c  31 31 29 29 2c 22 20 22  |number%,11))," "|
000061b0  29 3b 6e 61 6d 65 24 28  69 6e 6c 61 79 5f 6e 75  |);name$(inlay_nu|
000061c0  6d 62 65 72 25 2c 31 32  29 3a ef 20 31 2c 76 64  |mber%,12):. 1,vd|
000061d0  75 25 0d 1e 0a 61 f1 6e  61 6d 65 24 28 69 6e 6c  |u%...a.name$(inl|
000061e0  61 79 5f 6e 75 6d 62 65  72 25 2c 31 33 29 3b c4  |ay_number%,13);.|
000061f0  31 31 2d a9 28 6e 61 6d  65 24 28 69 6e 6c 61 79  |11-.(name$(inlay|
00006200  5f 6e 75 6d 62 65 72 25  2c 31 33 29 29 2c 22 20  |_number%,13))," |
00006210  22 29 3b 6e 61 6d 65 24  28 69 6e 6c 61 79 5f 6e  |");name$(inlay_n|
00006220  75 6d 62 65 72 25 2c 31  34 29 3a ef 20 31 2c 76  |umber%,14):. 1,v|
00006230  64 75 25 0d 1e 14 61 f1  6e 61 6d 65 24 28 69 6e  |du%...a.name$(in|
00006240  6c 61 79 5f 6e 75 6d 62  65 72 25 2c 31 35 29 3b  |lay_number%,15);|
00006250  c4 31 31 2d a9 28 6e 61  6d 65 24 28 69 6e 6c 61  |.11-.(name$(inla|
00006260  79 5f 6e 75 6d 62 65 72  25 2c 31 35 29 29 2c 22  |y_number%,15)),"|
00006270  20 22 29 3b 6e 61 6d 65  24 28 69 6e 6c 61 79 5f  | ");name$(inlay_|
00006280  6e 75 6d 62 65 72 25 2c  31 36 29 3a ef 20 31 2c  |number%,16):. 1,|
00006290  76 64 75 25 0d 1e 1e 61  f1 6e 61 6d 65 24 28 69  |vdu%...a.name$(i|
000062a0  6e 6c 61 79 5f 6e 75 6d  62 65 72 25 2c 31 37 29  |nlay_number%,17)|
000062b0  3b c4 31 31 2d a9 28 6e  61 6d 65 24 28 69 6e 6c  |;.11-.(name$(inl|
000062c0  61 79 5f 6e 75 6d 62 65  72 25 2c 31 37 29 29 2c  |ay_number%,17)),|
000062d0  22 20 22 29 3b 6e 61 6d  65 24 28 69 6e 6c 61 79  |" ");name$(inlay|
000062e0  5f 6e 75 6d 62 65 72 25  2c 31 38 29 3a ef 20 31  |_number%,18):. 1|
000062f0  2c 76 64 75 25 0d 1e 28  61 f1 6e 61 6d 65 24 28  |,vdu%..(a.name$(|
00006300  69 6e 6c 61 79 5f 6e 75  6d 62 65 72 25 2c 31 39  |inlay_number%,19|
00006310  29 3b c4 31 31 2d a9 28  6e 61 6d 65 24 28 69 6e  |);.11-.(name$(in|
00006320  6c 61 79 5f 6e 75 6d 62  65 72 25 2c 31 39 29 29  |lay_number%,19))|
00006330  2c 22 20 22 29 3b 6e 61  6d 65 24 28 69 6e 6c 61  |," ");name$(inla|
00006340  79 5f 6e 75 6d 62 65 72  25 2c 32 30 29 3a ef 20  |y_number%,20):. |
00006350  31 2c 76 64 75 25 0d 1e  32 13 ef 20 31 2c 32 37  |1,vdu%..2.. 1,27|
00006360  2c 31 2c 38 33 2c 31 2c  31 0d 1e 3c 44 f1 64 69  |,1,83,1,1..<D.di|
00006370  73 63 6e 61 6d 65 24 28  69 6e 6c 61 79 5f 6e 75  |scname$(inlay_nu|
00006380  6d 62 65 72 25 29 3b 22  20 20 22 3b 64 69 73 63  |mber%);"  ";disc|
00006390  74 79 70 65 24 28 69 6e  6c 61 79 5f 6e 75 6d 62  |type$(inlay_numb|
000063a0  65 72 25 29 3a ef 20 31  2c 76 64 75 25 0d 1e 46  |er%):. 1,vdu%..F|
000063b0  0f ef 20 31 2c 32 37 2c  31 2c 38 34 0d 1e 50 20  |.. 1,27,1,84..P |
000063c0  f1 22 3c 3d 20 57 72 69  74 65 20 50 72 6f 74 65  |."<= Write Prote|
000063d0  63 74 22 3a ef 20 31 2c  76 64 75 25 0d 1e 5a 0e  |ct":. 1,vdu%..Z.|
000063e0  f1 3a ef 20 31 2c 76 64  75 25 0d 1e 64 1f f1 22  |.:. 1,vdu%..d.."|
000063f0  3c 3d 20 57 72 69 74 65  20 45 6e 61 62 6c 65 22  |<= Write Enable"|
00006400  3a ef 20 31 2c 76 64 75  25 0d 1e 6e 0a ef 20 31  |:. 1,vdu%..n.. 1|
00006410  2c 31 32 0d 1e 78 05 e1  0d 1e 82 05 3a 0d 1e 8c  |,12..x......:...|
00006420  10 dd f2 70 72 69 6e 74  5f 68 61 6c 66 0d 1e 96  |...print_half...|
00006430  14 6e 65 65 64 73 70 72  69 6e 74 69 6e 67 25 3d  |.needsprinting%=|
00006440  30 0d 1e a0 28 e7 20 6c  69 6e 65 66 65 65 64 24  |0...(. linefeed$|
00006450  3d 22 59 65 73 22 20 8c  20 76 64 75 25 3d 31 30  |="Yes" . vdu%=10|
00006460  20 8b 20 76 64 75 25 3d  30 0d 1e aa 16 e7 20 70  | . vdu%=0..... p|
00006470  72 69 6e 74 61 6c 6c 24  3d 22 4e 6f 22 20 8c 0d  |rintall$="No" ..|
00006480  1e b4 47 66 72 6f 6d 25  3d bb 28 a4 69 6e 64 69  |..Gfrom%=.(.indi|
00006490  72 65 63 74 28 64 69 73  63 5f 70 72 69 6e 74 25  |rect(disc_print%|
000064a0  2c 31 36 29 29 3a 74 6f  25 3d bb 28 a4 69 6e 64  |,16)):to%=.(.ind|
000064b0  69 72 65 63 74 28 64 69  73 63 5f 70 72 69 6e 74  |irect(disc_print|
000064c0  25 2c 31 37 29 29 0d 1e  be 56 e7 20 66 72 6f 6d  |%,17))...V. from|
000064d0  25 3c 31 20 84 20 74 6f  25 3e 6d 61 78 5f 72 65  |%<1 . to%>max_re|
000064e0  63 6f 72 64 25 20 8c 20  85 20 31 2c 22 45 6e 74  |cord% . . 1,"Ent|
000064f0  65 72 20 76 61 6c 75 65  73 20 62 65 74 77 65 65  |er values betwee|
00006500  6e 20 31 20 61 6e 64 20  22 2b c3 28 6d 61 78 5f  |n 1 and "+.(max_|
00006510  72 65 63 6f 72 64 25 29  2b 22 2e 22 0d 1e c8 05  |record%)+"."....|
00006520  cd 0d 1e d2 2f e7 20 70  72 69 6e 74 61 6c 6c 24  |..../. printall$|
00006530  3d 22 59 65 73 22 20 8c  20 66 72 6f 6d 25 3d 31  |="Yes" . from%=1|
00006540  3a 74 6f 25 3d 6d 61 78  5f 72 65 63 6f 72 64 25  |:to%=max_record%|
00006550  0d 1e dc 14 e3 20 49 25  3d 66 72 6f 6d 25 20 b8  |..... I%=from% .|
00006560  20 74 6f 25 0d 1e e6 3f  e7 20 64 69 73 63 6e 61  | to%...?. discna|
00006570  6d 65 24 28 49 25 29 3c  3e 22 22 20 84 20 64 69  |me$(I%)<>"" . di|
00006580  73 63 74 79 70 65 24 28  49 25 29 3c 3e 22 22 20  |sctype$(I%)<>"" |
00006590  8c 20 6e 65 65 64 73 70  72 69 6e 74 69 6e 67 25  |. needsprinting%|
000065a0  2b 3d 31 0d 1e f0 08 ed  20 49 25 0d 1e fa 62 73  |+=1..... I%...bs|
000065b0  75 62 69 74 65 6d 25 3d  30 3a 70 72 69 6e 74 65  |ubitem%=0:printe|
000065c0  64 25 3d 30 3a e7 20 6e  65 65 64 73 70 72 69 6e  |d%=0:. needsprin|
000065d0  74 69 6e 67 25 3d 30 20  8c 20 ef 20 33 3a f2 63  |ting%=0 . . 3:.c|
000065e0  6c 6f 73 65 28 64 69 73  63 5f 77 61 69 74 25 29  |lose(disc_wait%)|
000065f0  3a 85 20 31 2c 22 4e 6f  20 72 65 63 6f 72 64 73  |:. 1,"No records|
00006600  20 74 6f 20 70 72 69 6e  74 2e 22 3a e1 0d 1f 04  | to print.":....|
00006610  14 e3 20 49 25 3d 66 72  6f 6d 25 20 b8 20 74 6f  |.. I%=from% . to|
00006620  25 0d 1f 0e 2d e7 20 64  69 73 63 6e 61 6d 65 24  |%...-. discname$|
00006630  28 49 25 29 3c 3e 22 22  20 84 20 64 69 73 63 74  |(I%)<>"" . disct|
00006640  79 70 65 24 28 49 25 29  3c 3e 22 22 20 8c 0d 1f  |ype$(I%)<>"" ...|
00006650  18 1b 73 75 62 69 74 65  6d 25 2b 3d 31 3a 70 72  |..subitem%+=1:pr|
00006660  69 6e 74 65 64 25 2b 3d  31 0d 1f 22 0f ef 20 31  |inted%+=1..".. 1|
00006670  2c 32 37 2c 31 2c 37 31  0d 1f 2c 23 f1 20 8a 30  |,27,1,71..,#. .0|
00006680  29 3b 22 4e 75 6d 62 65  72 3a 20 22 2b c3 28 49  |);"Number: "+.(I|
00006690  25 29 3a ef 20 31 2c 76  64 75 25 0d 1f 36 6d f1  |%):. 1,vdu%..6m.|
000066a0  20 8a 30 29 3b 22 44 69  73 63 6e 61 6d 65 3a 20  | .0);"Discname: |
000066b0  22 2b 64 69 73 63 6e 61  6d 65 24 28 49 25 29 3b  |"+discname$(I%);|
000066c0  8a 32 35 29 3b 22 44 69  73 63 74 79 70 65 3a 20  |.25);"Disctype: |
000066d0  22 2b 64 69 73 63 74 79  70 65 24 28 49 25 29 3b  |"+disctype$(I%);|
000066e0  8a 36 30 29 3b 22 46 72  65 65 3a 20 22 3b 64 69  |.60);"Free: ";di|
000066f0  73 63 66 72 65 65 24 28  49 25 29 3b 22 6b 22 3a  |scfree$(I%);"k":|
00006700  ef 20 31 2c 76 64 75 25  0d 1f 40 0f ef 20 31 2c  |. 1,vdu%..@.. 1,|
00006710  32 37 2c 31 2c 37 32 0d  1f 4a 16 f1 c4 38 30 2c  |27,1,72..J...80,|
00006720  22 2d 22 29 3a ef 20 31  2c 76 64 75 25 0d 1f 54  |"-"):. 1,vdu%..T|
00006730  05 cd 0d 1f 5e 25 e7 20  73 75 62 69 74 65 6d 25  |....^%. subitem%|
00006740  3d 32 30 20 8c 20 73 75  62 69 74 65 6d 25 3d 30  |=20 . subitem%=0|
00006750  3a ef 20 31 2c 31 32 0d  1f 68 07 ef 20 33 0d 1f  |:. 1,12..h.. 3..|
00006760  72 68 e7 20 a8 28 28 70  72 69 6e 74 65 64 25 2f  |rh. .((printed%/|
00006770  6e 65 65 64 73 70 72 69  6e 74 69 6e 67 25 29 2a  |needsprinting%)*|
00006780  31 30 30 29 3c 3e 31 30  30 20 8c 20 c8 99 20 22  |100)<>100 . .. "|
00006790  48 6f 75 72 67 6c 61 73  73 5f 50 65 72 63 65 6e  |Hourglass_Percen|
000067a0  74 61 67 65 22 2c a8 28  28 70 72 69 6e 74 65 64  |tage",.((printed|
000067b0  25 2f 6e 65 65 64 73 70  72 69 6e 74 69 6e 67 25  |%/needsprinting%|
000067c0  29 2a 31 30 30 29 0d 1f  7c 07 ef 20 32 0d 1f 86  |)*100)..|.. 2...|
000067d0  08 ed 20 49 25 0d 1f 90  0a ef 20 31 2c 31 32 0d  |.. I%..... 1,12.|
000067e0  1f 9a 05 e1 0d 1f a4 05  3a 0d 1f ae 11 dd f2 70  |........:......p|
000067f0  72 69 6e 74 5f 74 61 62  6c 65 0d 1f b8 14 6e 65  |rint_table....ne|
00006800  65 64 73 70 72 69 6e 74  69 6e 67 25 3d 30 0d 1f  |edsprinting%=0..|
00006810  c2 28 e7 20 6c 69 6e 65  66 65 65 64 24 3d 22 59  |.(. linefeed$="Y|
00006820  65 73 22 20 8c 20 76 64  75 25 3d 31 30 20 8b 20  |es" . vdu%=10 . |
00006830  76 64 75 25 3d 30 0d 1f  cc 16 e7 20 70 72 69 6e  |vdu%=0..... prin|
00006840  74 61 6c 6c 24 3d 22 4e  6f 22 20 8c 0d 1f d6 49  |tall$="No" ....I|
00006850  66 72 6f 6d 25 3d bb 28  a4 69 6e 64 69 72 65 63  |from%=.(.indirec|
00006860  74 28 76 69 64 65 6f 5f  70 72 69 6e 74 25 2c 31  |t(video_print%,1|
00006870  36 29 29 3a 74 6f 25 3d  bb 28 a4 69 6e 64 69 72  |6)):to%=.(.indir|
00006880  65 63 74 28 76 69 64 65  6f 5f 70 72 69 6e 74 25  |ect(video_print%|
00006890  2c 31 37 29 29 0d 1f e0  56 e7 20 66 72 6f 6d 25  |,17))...V. from%|
000068a0  3c 31 20 84 20 74 6f 25  3e 6d 61 78 5f 72 65 63  |<1 . to%>max_rec|
000068b0  6f 72 64 25 20 8c 20 85  20 31 2c 22 45 6e 74 65  |ord% . . 1,"Ente|
000068c0  72 20 76 61 6c 75 65 73  20 62 65 74 77 65 65 6e  |r values between|
000068d0  20 31 20 61 6e 64 20 22  2b c3 28 6d 61 78 5f 72  | 1 and "+.(max_r|
000068e0  65 63 6f 72 64 25 29 2b  22 2e 22 0d 1f ea 05 cd  |ecord%)+".".....|
000068f0  0d 1f f4 2f e7 20 70 72  69 6e 74 61 6c 6c 24 3d  |.../. printall$=|
00006900  22 59 65 73 22 20 8c 20  66 72 6f 6d 25 3d 31 3a  |"Yes" . from%=1:|
00006910  74 6f 25 3d 6d 61 78 5f  72 65 63 6f 72 64 25 0d  |to%=max_record%.|
00006920  1f fe 14 e3 20 49 25 3d  66 72 6f 6d 25 20 b8 20  |.... I%=from% . |
00006930  74 6f 25 0d 20 08 53 e7  20 64 69 73 63 6e 61 6d  |to%. .S. discnam|
00006940  65 24 28 49 25 29 3c 3e  22 22 20 84 20 64 69 73  |e$(I%)<>"" . dis|
00006950  63 74 79 70 65 24 28 49  25 29 3c 3e 22 22 20 84  |ctype$(I%)<>"" .|
00006960  20 64 69 73 63 66 72 65  65 24 28 49 25 29 3c 3e  | discfree$(I%)<>|
00006970  22 22 20 8c 20 6e 65 65  64 73 70 72 69 6e 74 69  |"" . needsprinti|
00006980  6e 67 25 2b 3d 31 0d 20  12 08 ed 20 49 25 0d 20  |ng%+=1. ... I%. |
00006990  1c 62 73 75 62 69 74 65  6d 25 3d 30 3a 70 72 69  |.bsubitem%=0:pri|
000069a0  6e 74 65 64 25 3d 30 3a  e7 20 6e 65 65 64 73 70  |nted%=0:. needsp|
000069b0  72 69 6e 74 69 6e 67 25  3d 30 20 8c 20 ef 20 33  |rinting%=0 . . 3|
000069c0  3a f2 63 6c 6f 73 65 28  64 69 73 63 5f 77 61 69  |:.close(disc_wai|
000069d0  74 25 29 3a 85 20 31 2c  22 4e 6f 20 72 65 63 6f  |t%):. 1,"No reco|
000069e0  72 64 73 20 74 6f 20 70  72 69 6e 74 2e 22 3a e1  |rds to print.":.|
000069f0  0d 20 26 14 e3 20 49 25  3d 66 72 6f 6d 25 20 b8  |. &.. I%=from% .|
00006a00  20 74 6f 25 0d 20 30 41  e7 20 64 69 73 63 6e 61  | to%. 0A. discna|
00006a10  6d 65 24 28 49 25 29 3c  3e 22 22 20 84 20 64 69  |me$(I%)<>"" . di|
00006a20  73 63 74 79 70 65 24 28  49 25 29 3c 3e 22 22 20  |sctype$(I%)<>"" |
00006a30  84 20 64 69 73 63 66 72  65 65 24 28 49 25 29 3c  |. discfree$(I%)<|
00006a40  3e 22 22 20 8c 0d 20 3a  1b 73 75 62 69 74 65 6d  |>"" .. :.subitem|
00006a50  25 2b 3d 31 3a 70 72 69  6e 74 65 64 25 2b 3d 31  |%+=1:printed%+=1|
00006a60  0d 20 44 0f ef 20 31 2c  32 37 2c 31 2c 37 31 0d  |. D.. 1,27,1,71.|
00006a70  20 4e 23 f1 20 8a 30 29  3b 22 4e 75 6d 62 65 72  | N#. .0);"Number|
00006a80  3a 20 22 2b c3 28 49 25  29 3a ef 20 31 2c 76 64  |: "+.(I%):. 1,vd|
00006a90  75 25 0d 20 58 0f 73 75  62 69 74 65 6d 25 2b 3d  |u%. X.subitem%+=|
00006aa0  31 0d 20 62 6d f1 20 8a  30 29 3b 22 44 69 73 63  |1. bm. .0);"Disc|
00006ab0  6e 61 6d 65 3a 20 22 2b  64 69 73 63 6e 61 6d 65  |name: "+discname|
00006ac0  24 28 49 25 29 3b 8a 32  35 29 3b 22 44 69 73 63  |$(I%);.25);"Disc|
00006ad0  74 79 70 65 3a 20 22 2b  64 69 73 63 74 79 70 65  |type: "+disctype|
00006ae0  24 28 49 25 29 3b 8a 36  30 29 3b 22 46 72 65 65  |$(I%);.60);"Free|
00006af0  3a 20 22 3b 64 69 73 63  66 72 65 65 24 28 49 25  |: ";discfree$(I%|
00006b00  29 3b 22 6b 22 3a ef 20  31 2c 76 64 75 25 0d 20  |);"k":. 1,vdu%. |
00006b10  6c 0f ef 20 31 2c 32 37  2c 31 2c 37 32 0d 20 76  |l.. 1,27,1,72. v|
00006b20  0f 73 75 62 69 74 65 6d  25 2b 3d 31 0d 20 80 26  |.subitem%+=1. .&|
00006b30  f1 20 8a 30 29 3b 22 43  6f 6e 74 65 6e 74 73 20  |. .0);"Contents |
00006b40  6f 66 20 44 69 73 63 3a  22 3a ef 20 31 2c 76 64  |of Disc:":. 1,vd|
00006b50  75 25 0d 20 8a 11 e3 20  73 75 62 49 25 3d 30 20  |u%. ... subI%=0 |
00006b60  b8 20 39 0d 20 94 6f 61  3d a9 28 6e 61 6d 65 24  |. 9. .oa=.(name$|
00006b70  28 49 25 2c 31 2b 28 73  75 62 49 25 2a 34 29 29  |(I%,1+(subI%*4))|
00006b80  29 3a 62 3d a9 28 6e 61  6d 65 24 28 49 25 2c 32  |):b=.(name$(I%,2|
00006b90  2b 28 73 75 62 49 25 2a  34 29 29 29 3a 63 3d a9  |+(subI%*4))):c=.|
00006ba0  28 6e 61 6d 65 24 28 49  25 2c 33 2b 28 73 75 62  |(name$(I%,3+(sub|
00006bb0  49 25 2a 34 29 29 29 3a  64 3d a9 28 6e 61 6d 65  |I%*4))):d=.(name|
00006bc0  24 28 49 25 2c 34 2b 28  73 75 62 49 25 2a 34 29  |$(I%,4+(subI%*4)|
00006bd0  29 29 0d 20 9e a5 e7 20  28 61 3c 3e 30 20 84 20  |)). ... (a<>0 . |
00006be0  62 3c 3e 30 20 84 20 63  3c 3e 30 20 84 20 64 3c  |b<>0 . c<>0 . d<|
00006bf0  3e 30 29 20 8c 20 73 75  62 69 74 65 6d 25 2b 3d  |>0) . subitem%+=|
00006c00  31 3a f1 20 8a 30 29 3b  6e 61 6d 65 24 28 49 25  |1:. .0);name$(I%|
00006c10  2c 31 2b 28 73 75 62 49  25 2a 34 29 29 3b 8a 32  |,1+(subI%*4));.2|
00006c20  30 29 3b 6e 61 6d 65 24  28 49 25 2c 32 2b 28 73  |0);name$(I%,2+(s|
00006c30  75 62 49 25 2a 34 29 29  3b 8a 34 30 29 3b 6e 61  |ubI%*4));.40);na|
00006c40  6d 65 24 28 49 25 2c 33  2b 28 73 75 62 49 25 2a  |me$(I%,3+(subI%*|
00006c50  34 29 29 3b 8a 36 30 29  3b 6e 61 6d 65 24 28 49  |4));.60);name$(I|
00006c60  25 2c 34 2b 28 73 75 62  49 25 2a 34 29 29 3a ef  |%,4+(subI%*4)):.|
00006c70  20 31 2c 76 64 75 25 0d  20 a8 0b ed 20 73 75 62  | 1,vdu%. ... sub|
00006c80  49 25 0d 20 b2 86 e7 20  28 a9 28 63 6f 6d 6d 65  |I%. ... (.(comme|
00006c90  6e 74 24 28 49 25 2c 31  29 29 3c 3e 30 20 84 20  |nt$(I%,1))<>0 . |
00006ca0  a9 28 63 6f 6d 6d 65 6e  74 24 28 49 25 2c 32 29  |.(comment$(I%,2)|
00006cb0  29 3c 3e 30 20 84 20 a9  28 63 6f 6d 6d 65 6e 74  |)<>0 . .(comment|
00006cc0  24 28 49 25 2c 33 29 29  3c 3e 30 20 84 20 a9 28  |$(I%,3))<>0 . .(|
00006cd0  63 6f 6d 6d 65 6e 74 24  28 49 25 2c 34 29 29 3c  |comment$(I%,4))<|
00006ce0  3e 30 29 3a 73 75 62 69  74 65 6d 25 2b 3d 31 3a  |>0):subitem%+=1:|
00006cf0  f1 20 22 45 78 74 72 61  20 49 6e 66 6f 3a 22 3a  |. "Extra Info:":|
00006d00  ef 20 31 2c 76 64 75 25  0d 20 bc 11 e3 20 73 75  |. 1,vdu%. ... su|
00006d10  62 49 25 3d 31 20 b8 20  34 0d 20 c6 4a e7 20 a9  |bI%=1 . 4. .J. .|
00006d20  28 63 6f 6d 6d 65 6e 74  24 28 49 25 2c 73 75 62  |(comment$(I%,sub|
00006d30  49 25 29 29 3c 3e 30 20  8c 20 73 75 62 69 74 65  |I%))<>0 . subite|
00006d40  6d 25 2b 3d 31 3a f1 20  63 6f 6d 6d 65 6e 74 24  |m%+=1:. comment$|
00006d50  28 49 25 2c 73 75 62 49  25 29 3a ef 20 31 2c 76  |(I%,subI%):. 1,v|
00006d60  64 75 25 0d 20 d0 0b ed  20 73 75 62 49 25 0d 20  |du%. ... subI%. |
00006d70  da 22 73 75 62 69 74 65  6d 25 2b 3d 31 3a f1 c4  |."subitem%+=1:..|
00006d80  38 30 2c 22 2d 22 29 3a  ef 20 31 2c 76 64 75 25  |80,"-"):. 1,vdu%|
00006d90  0d 20 e4 05 cd 0d 20 ee  25 e7 20 73 75 62 69 74  |. .... .%. subit|
00006da0  65 6d 25 3e 35 35 20 8c  20 73 75 62 69 74 65 6d  |em%>55 . subitem|
00006db0  25 3d 30 3a ef 20 31 2c  31 32 0d 20 f8 07 ef 20  |%=0:. 1,12. ... |
00006dc0  33 0d 21 02 68 e7 20 a8  28 28 70 72 69 6e 74 65  |3.!.h. .((printe|
00006dd0  64 25 2f 6e 65 65 64 73  70 72 69 6e 74 69 6e 67  |d%/needsprinting|
00006de0  25 29 2a 31 30 30 29 3c  3e 31 30 30 20 8c 20 c8  |%)*100)<>100 . .|
00006df0  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 50 65 72  |. "Hourglass_Per|
00006e00  63 65 6e 74 61 67 65 22  2c a8 28 28 70 72 69 6e  |centage",.((prin|
00006e10  74 65 64 25 2f 6e 65 65  64 73 70 72 69 6e 74 69  |ted%/needsprinti|
00006e20  6e 67 25 29 2a 31 30 30  29 0d 21 0c 07 ef 20 32  |ng%)*100).!... 2|
00006e30  0d 21 16 08 ed 20 49 25  0d 21 20 0a ef 20 31 2c  |.!... I%.! .. 1,|
00006e40  31 32 0d 21 2a 05 e1 0d  21 34 05 3a 0d 21 3e 1c  |12.!*...!4.:.!>.|
00006e50  dd f2 72 65 64 72 61 77  5f 77 69 6e 64 6f 77 28  |..redraw_window(|
00006e60  77 69 6e 64 6f 77 25 29  0d 21 48 0f 21 71 25 3d  |window%).!H.!q%=|
00006e70  77 69 6e 64 6f 77 25 0d  21 52 26 c8 99 20 22 57  |window%.!R&.. "W|
00006e80  69 6d 70 5f 52 65 64 72  61 77 57 69 6e 64 6f 77  |imp_RedrawWindow|
00006e90  22 2c 2c 71 25 20 b8 20  6d 6f 72 65 25 0d 21 5c  |",,q% . more%.!\|
00006ea0  0c c8 95 20 6d 6f 72 65  25 0d 21 66 1b c8 99 20  |... more%.!f... |
00006eb0  22 57 69 6d 70 45 78 74  5f 52 65 64 72 61 77 22  |"WimpExt_Redraw"|
00006ec0  2c 2c 71 25 0d 21 70 26  c8 99 20 22 57 69 6d 70  |,,q%.!p&.. "Wimp|
00006ed0  5f 47 65 74 52 65 63 74  61 6e 67 6c 65 22 2c 2c  |_GetRectangle",,|
00006ee0  71 25 20 b8 20 6d 6f 72  65 25 0d 21 7a 05 ce 0d  |q% . more%.!z...|
00006ef0  21 84 05 e1 0d 21 8e 05  3a 0d 21 98 0e dd f2 61  |!....!..:.!....a|
00006f00  6e 6e 6f 75 6e 63 65 0d  21 a2 15 c8 99 20 22 48  |nnounce.!.... "H|
00006f10  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 0d 21 ac 19  |ourglass_On".!..|
00006f20  f2 6f 70 65 6e 28 64 69  73 63 5f 61 6e 6e 6f 75  |.open(disc_annou|
00006f30  6e 63 65 25 29 0d 21 b6  2c c8 99 20 22 57 69 6d  |nce%).!.,.. "Wim|
00006f40  70 45 78 74 5f 4c 69 6d  69 74 50 6f 69 6e 74 65  |pExt_LimitPointe|
00006f50  72 22 2c 64 69 73 63 5f  61 6e 6e 6f 75 6e 63 65  |r",disc_announce|
00006f60  25 0d 21 c0 27 f2 75 70  64 61 74 65 5f 69 63 6f  |%.!.'.update_ico|
00006f70  6e 28 64 69 73 63 5f 61  6e 6e 6f 75 6e 63 65 25  |n(disc_announce%|
00006f80  2c 34 2c 76 65 72 24 29  0d 21 ca 22 f2 72 65 64  |,4,ver$).!.".red|
00006f90  72 61 77 5f 77 69 6e 64  6f 77 28 64 69 73 63 5f  |raw_window(disc_|
00006fa0  61 6e 6e 6f 75 6e 63 65  25 29 0d 21 d4 1b c8 99  |announce%).!....|
00006fb0  20 22 48 6f 75 72 67 6c  61 73 73 5f 4c 45 44 73  | "Hourglass_LEDs|
00006fc0  22 2c 31 2c 30 0d 21 de  0f f2 6d 61 6b 65 5f 6d  |",1,0.!...make_m|
00006fd0  65 6e 75 73 0d 21 e8 1b  c8 99 20 22 48 6f 75 72  |enus.!.... "Hour|
00006fe0  67 6c 61 73 73 5f 4c 45  44 73 22 2c 30 2c 31 0d  |glass_LEDs",0,1.|
00006ff0  21 f2 08 f2 6e 65 77 0d  21 fc 1b c8 99 20 22 48  |!...new.!.... "H|
00007000  6f 75 72 67 6c 61 73 73  5f 4c 45 44 73 22 2c 31  |ourglass_LEDs",1|
00007010  2c 31 0d 22 06 11 f2 63  6c 65 61 72 5f 73 65 61  |,1."...clear_sea|
00007020  72 63 68 0d 22 10 43 e3  20 77 61 69 74 25 3d 31  |rch.".C. wait%=1|
00007030  20 b8 20 32 35 3a c8 96  3a c8 99 20 22 48 6f 75  | . 25:..:.. "Hou|
00007040  72 67 6c 61 73 73 5f 50  65 72 63 65 6e 74 61 67  |rglass_Percentag|
00007050  65 22 2c a8 28 28 77 61  69 74 25 2f 32 35 29 2a  |e",.((wait%/25)*|
00007060  31 30 30 29 3a ed 0d 22  1a 1a f2 63 6c 6f 73 65  |100):.."...close|
00007070  28 64 69 73 63 5f 61 6e  6e 6f 75 6e 63 65 25 29  |(disc_announce%)|
00007080  0d 22 24 1f c8 99 20 22  57 69 6d 70 45 78 74 5f  |."$... "WimpExt_|
00007090  52 65 6c 65 61 73 65 50  6f 69 6e 74 65 72 22 0d  |ReleasePointer".|
000070a0  22 2e 16 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |".... "Hourglass|
000070b0  5f 4f 66 66 22 0d 22 38  05 e1 0d 22 42 05 3a 0d  |_Off"."8..."B.:.|
000070c0  22 4c 1e dd f2 74 69 63  6b 28 6d 65 6e 75 25 2c  |"L...tick(menu%,|
000070d0  69 74 65 6d 25 2c 74 6f  74 61 6c 25 29 0d 22 56  |item%,total%)."V|
000070e0  27 e3 20 69 25 3d 30 20  b8 20 74 6f 74 61 6c 25  |'. i%=0 . total%|
000070f0  3a f2 6e 6f 74 69 63 6b  28 6d 65 6e 75 25 2c 69  |:.notick(menu%,i|
00007100  25 29 3a ed 0d 22 60 0e  ea 20 61 64 64 72 65 73  |%):.."`.. addres|
00007110  73 25 0d 22 6a 20 61 64  64 72 65 73 73 25 3d 6d  |s%."j address%=m|
00007120  65 6e 75 25 2b 32 38 2b  28 32 34 2a 69 74 65 6d  |enu%+28+(24*item|
00007130  25 29 0d 22 74 1f 61 64  64 72 65 73 73 25 21 30  |%)."t.address%!0|
00007140  3d 61 64 64 72 65 73 73  25 21 30 20 82 20 26 30  |=address%!0 . &0|
00007150  31 0d 22 7e 05 e1 0d 22  88 05 3a 0d 22 92 19 dd  |1."~..."..:."...|
00007160  f2 6e 6f 74 69 63 6b 28  6d 65 6e 75 25 2c 69 74  |.notick(menu%,it|
00007170  65 6d 25 29 0d 22 9c 0e  ea 20 61 64 64 72 65 73  |em%)."... addres|
00007180  73 25 0d 22 a6 20 61 64  64 72 65 73 73 25 3d 6d  |s%.". address%=m|
00007190  65 6e 75 25 2b 32 38 2b  28 32 34 2a 69 74 65 6d  |enu%+28+(24*item|
000071a0  25 29 0d 22 b0 21 61 64  64 72 65 73 73 25 21 30  |%).".!address%!0|
000071b0  3d 61 64 64 72 65 73 73  25 21 30 20 80 20 ac 20  |=address%!0 . . |
000071c0  26 30 31 0d 22 ba 05 e1  0d 22 c4 05 3a 0d 22 ce  |&01."...."..:.".|
000071d0  19 dd f2 63 6c 65 61 72  5f 64 61 74 61 5f 71 75  |...clear_data_qu|
000071e0  65 73 74 69 6f 6e 0d 22  d8 07 ef 20 37 0d 22 e2  |estion."... 7.".|
000071f0  34 f2 6f 70 65 6e 28 64  69 73 63 5f 63 6c 65 61  |4.open(disc_clea|
00007200  72 25 29 3a c8 99 20 22  57 69 6d 70 5f 53 65 74  |r%):.. "Wimp_Set|
00007210  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 2d  |CaretPosition",-|
00007220  31 0d 22 ec 29 c8 99 20  22 57 69 6d 70 45 78 74  |1.".).. "WimpExt|
00007230  5f 4c 69 6d 69 74 50 6f  69 6e 74 65 72 22 2c 64  |_LimitPointer",d|
00007240  69 73 63 5f 63 6c 65 61  72 25 0d 22 f6 05 e1 0d  |isc_clear%."....|
00007250  23 00 05 3a 0d 23 0a 10  dd f2 63 6c 65 61 72 5f  |#..:.#....clear_|
00007260  64 61 74 61 0d 23 14 08  f2 6e 65 77 0d 23 1e 0b  |data.#...new.#..|
00007270  f2 75 70 64 61 74 65 0d  23 28 1b f2 72 65 5f 74  |.update.#(..re_t|
00007280  69 74 6c 65 28 22 44 69  73 63 20 49 6e 64 65 78  |itle("Disc Index|
00007290  22 29 0d 23 32 0e 75 6e  73 61 76 65 64 25 3d a3  |").#2.unsaved%=.|
000072a0  0d 23 3c 2a f2 63 6c 6f  73 65 5f 61 6c 6c 3a f2  |.#<*.close_all:.|
000072b0  6d 6f 76 65 5f 63 61 72  65 74 28 64 69 73 63 5f  |move_caret(disc_|
000072c0  69 6e 64 65 78 25 2c 31  33 29 0d 23 46 1f c8 99  |index%,13).#F...|
000072d0  20 22 57 69 6d 70 45 78  74 5f 52 65 6c 65 61 73  | "WimpExt_Releas|
000072e0  65 50 6f 69 6e 74 65 72  22 0d 23 50 05 e1 0d 23  |ePointer".#P...#|
000072f0  5a 05 3a 0d 23 64 10 dd  f2 71 75 69 74 5f 63 68  |Z.:.#d...quit_ch|
00007300  65 63 6b 0d 23 6e 11 c8  8e 20 75 6e 73 61 76 65  |eck.#n... unsave|
00007310  64 25 20 ca 0d 23 78 07  c9 20 b9 0d 23 82 07 ef  |d% ..#x.. ..#...|
00007320  20 37 0d 23 8c 33 f2 6f  70 65 6e 28 64 69 73 63  | 7.#.3.open(disc|
00007330  5f 71 75 69 74 25 29 3a  c8 99 20 22 57 69 6d 70  |_quit%):.. "Wimp|
00007340  5f 53 65 74 43 61 72 65  74 50 6f 73 69 74 69 6f  |_SetCaretPositio|
00007350  6e 22 2c 2d 31 0d 23 96  28 c8 99 20 22 57 69 6d  |n",-1.#.(.. "Wim|
00007360  70 45 78 74 5f 4c 69 6d  69 74 50 6f 69 6e 74 65  |pExt_LimitPointe|
00007370  72 22 2c 64 69 73 63 5f  71 75 69 74 25 0d 23 a0  |r",disc_quit%.#.|
00007380  0f c9 20 a3 3a 71 75 69  74 25 3d b9 0d 23 aa 05  |.. .:quit%=..#..|
00007390  cb 0d 23 b4 05 e1 0d 23  be 05 3a 0d 23 c8 29 dd  |..#....#..:.#.).|
000073a0  f2 73 77 61 70 5f 63 61  73 65 28 77 69 6e 64 6f  |.swap_case(windo|
000073b0  77 25 2c 69 63 6f 6e 25  2c 6b 65 79 5f 69 6e 64  |w%,icon%,key_ind|
000073c0  65 78 25 29 0d 23 d2 36  e7 20 6b 65 79 5f 69 6e  |ex%).#.6. key_in|
000073d0  64 65 78 25 3c a9 28 a4  72 65 61 64 5f 69 63 6f  |dex%<.(.read_ico|
000073e0  6e 5f 74 65 78 74 28 77  69 6e 64 6f 77 25 2c 69  |n_text(window%,i|
000073f0  63 6f 6e 25 2c a3 29 29  20 8c 0d 23 dc 2e 49 63  |con%,.)) ..#..Ic|
00007400  6f 6e 54 65 78 74 24 3d  a4 72 65 61 64 5f 69 63  |onText$=.read_ic|
00007410  6f 6e 5f 74 65 78 74 28  77 69 6e 64 6f 77 25 2c  |on_text(window%,|
00007420  69 63 6f 6e 25 2c a3 29  0d 23 e6 2a 43 25 3d 97  |icon%,.).#.*C%=.|
00007430  28 c1 49 63 6f 6e 54 65  78 74 24 2c 6b 65 79 5f  |(.IconText$,key_|
00007440  69 6e 64 65 78 25 2b 31  2c 31 29 29 20 80 20 26  |index%+1,1)) . &|
00007450  44 46 0d 23 f0 19 e7 20  43 25 3e 3d 26 34 31 20  |DF.#... C%>=&41 |
00007460  80 20 43 25 3c 3d 26 35  41 20 8c 0d 23 fa 2d 43  |. C%<=&5A ..#.-C|
00007470  24 3d bd 28 97 28 c1 49  63 6f 6e 54 65 78 74 24  |$=.(.(.IconText$|
00007480  2c 6b 65 79 5f 69 6e 64  65 78 25 2b 31 2c 31 29  |,key_index%+1,1)|
00007490  29 20 82 20 26 32 30 29  0d 24 04 21 c1 49 63 6f  |) . &20).$.!.Ico|
000074a0  6e 54 65 78 74 24 2c 6b  65 79 5f 69 6e 64 65 78  |nText$,key_index|
000074b0  25 2b 31 2c 31 29 3d 43  24 0d 24 0e 29 f2 75 70  |%+1,1)=C$.$.).up|
000074c0  64 61 74 65 5f 69 63 6f  6e 28 77 69 6e 64 6f 77  |date_icon(window|
000074d0  25 2c 69 63 6f 6e 25 2c  49 63 6f 6e 54 65 78 74  |%,icon%,IconText|
000074e0  24 29 0d 24 18 05 cd 0d  24 22 32 f2 5f 53 65 74  |$).$....$"2._Set|
000074f0  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 28 77 69  |CaretPosition(wi|
00007500  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 6b 65 79 5f  |ndow%,icon%,key_|
00007510  69 6e 64 65 78 25 2b 31  29 0d 24 2c 05 cd 0d 24  |index%+1).$,...$|
00007520  36 05 e1 0d 24 40 05 3a  0d 24 4a 31 dd f2 5f 53  |6...$@.:.$J1.._S|
00007530  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 28  |etCaretPosition(|
00007540  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 2c 6b 65  |window%,icon%,ke|
00007550  79 5f 69 6e 64 65 78 25  29 0d 24 54 33 49 63 6f  |y_index%).$T3Ico|
00007560  6e 4c 65 6e 67 74 68 25  3d a9 28 a4 72 65 61 64  |nLength%=.(.read|
00007570  5f 69 63 6f 6e 5f 74 65  78 74 28 77 69 6e 64 6f  |_icon_text(windo|
00007580  77 25 2c 69 63 6f 6e 25  2c a3 29 29 0d 24 5e 35  |w%,icon%,.)).$^5|
00007590  e7 20 6b 65 79 5f 69 6e  64 65 78 25 3e 49 63 6f  |. key_index%>Ico|
000075a0  6e 4c 65 6e 67 74 68 25  20 8c 20 6b 65 79 5f 69  |nLength% . key_i|
000075b0  6e 64 65 78 25 3d 49 63  6f 6e 4c 65 6e 67 74 68  |ndex%=IconLength|
000075c0  25 0d 24 68 3c c8 99 20  22 57 69 6d 70 5f 53 65  |%.$h<.. "Wimp_Se|
000075d0  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
000075e0  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 2c 2c 2c  |window%,icon%,,,|
000075f0  2d 31 2c 6b 65 79 5f 69  6e 64 65 78 25 0d 24 72  |-1,key_index%.$r|
00007600  22 c8 99 20 22 57 69 6d  70 5f 47 65 74 43 61 72  |".. "Wimp_GetCar|
00007610  65 74 50 6f 73 69 74 69  6f 6e 22 2c 2c 71 25 0d  |etPosition",,q%.|
00007620  24 7c 05 e1 0d 24 86 05  3a 0d 24 90 28 dd a4 72  |$|...$..:.$.(..r|
00007630  65 61 64 5f 69 63 6f 6e  5f 74 65 78 74 28 77 69  |ead_icon_text(wi|
00007640  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 50 61 64 25  |ndow%,icon%,Pad%|
00007650  29 0d 24 9a 0d ea 20 52  65 73 75 6c 74 24 0d 24  |).$... Result$.$|
00007660  a4 0f 21 71 25 3d 77 69  6e 64 6f 77 25 0d 24 ae  |..!q%=window%.$.|
00007670  0e 71 25 21 34 3d 69 63  6f 6e 25 0d 24 b8 1e c8  |.q%!4=icon%.$...|
00007680  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
00007690  74 61 74 65 22 2c 2c 71  25 0d 24 c2 1b e7 20 28  |tate",,q%.$... (|
000076a0  71 25 21 32 34 20 80 20  28 31 3c 3c 38 29 29 3c  |q%!24 . (1<<8))<|
000076b0  3e 30 20 8c 0d 24 cc 14  52 65 73 75 6c 74 24 3d  |>0 ..$..Result$=|
000076c0  24 28 71 25 21 32 38 29  0d 24 d6 05 cc 0d 24 e0  |$(q%!28).$....$.|
000076d0  14 52 65 73 75 6c 74 24  3d 24 28 71 25 2b 32 38  |.Result$=$(q%+28|
000076e0  29 0d 24 ea 05 cd 0d 24  f4 29 e7 20 50 61 64 25  |).$....$.). Pad%|
000076f0  3e 30 20 8c 20 3d c0 52  65 73 75 6c 74 24 2b c4  |>0 . =.Result$+.|
00007700  50 61 64 25 2c 22 20 22  29 2c 50 61 64 25 29 0d  |Pad%," "),Pad%).|
00007710  24 fe 0c 3d 52 65 73 75  6c 74 24 0d 25 08 05 3a  |$..=Result$.%..:|
00007720  0d 25 12 14 dd f2 6d 73  5f 6c 6f 61 64 28 6e 61  |.%....ms_load(na|
00007730  6d 65 24 29 0d 25 1c 25  c8 99 20 22 4d 65 73 73  |me$).%.%.. "Mess|
00007740  61 67 65 54 72 61 6e 73  5f 46 69 6c 65 49 6e 66  |ageTrans_FileInf|
00007750  6f 22 2c 2c 6e 61 6d 65  24 0d 25 26 11 de 20 6d  |o",,name$.%&.. m|
00007760  73 5f 74 65 78 74 25 32  35 36 0d 25 30 2d c8 99  |s_text%256.%0-..|
00007770  20 22 4f 53 5f 4d 6f 64  75 6c 65 22 2c 36 2c 2c  | "OS_Module",6,,|
00007780  2c 31 37 2b a9 28 6e 61  6d 65 24 29 b8 2c 2c 6d  |,17+.(name$).,,m|
00007790  73 5f 64 65 73 63 25 0d  25 3a 18 24 28 6d 73 5f  |s_desc%.%:.$(ms_|
000077a0  64 65 73 63 25 2b 31 36  29 3d 6e 61 6d 65 24 0d  |desc%+16)=name$.|
000077b0  25 44 33 c8 99 20 22 4d  65 73 73 61 67 65 54 72  |%D3.. "MessageTr|
000077c0  61 6e 73 5f 4f 70 65 6e  46 69 6c 65 22 2c 6d 73  |ans_OpenFile",ms|
000077d0  5f 64 65 73 63 25 2c 6d  73 5f 64 65 73 63 25 2b  |_desc%,ms_desc%+|
000077e0  31 36 0d 25 4e 05 e1 0d  25 58 05 3a 0d 25 62 0c  |16.%N...%X.:.%b.|
000077f0  dd f2 6d 73 5f 65 6e 64  0d 25 6c 29 c8 99 20 22  |..ms_end.%l).. "|
00007800  58 4d 65 73 73 61 67 65  54 72 61 6e 73 5f 43 6c  |XMessageTrans_Cl|
00007810  6f 73 65 46 69 6c 65 22  2c 6d 73 5f 64 65 73 63  |oseFile",ms_desc|
00007820  25 0d 25 76 1f c8 99 20  22 58 4f 53 5f 4d 6f 64  |%.%v... "XOS_Mod|
00007830  75 6c 65 22 2c 37 2c 2c  6d 73 5f 64 65 73 63 25  |ule",7,,ms_desc%|
00007840  0d 25 80 05 e1 0d 25 8a  05 3a 0d 25 94 10 dd a4  |.%....%..:.%....|
00007850  6d 73 5f 30 28 74 61 67  24 29 0d 25 9e 16 3d a4  |ms_0(tag$).%..=.|
00007860  6d 73 5f 32 28 74 61 67  24 2c 22 22 2c 22 22 29  |ms_2(tag$,"","")|
00007870  0d 25 a8 05 3a 0d 25 b2  16 dd a4 6d 73 5f 31 28  |.%..:.%....ms_1(|
00007880  74 61 67 24 2c 61 72 67  31 24 29 0d 25 bc 19 3d  |tag$,arg1$).%..=|
00007890  a4 6d 73 5f 32 28 74 61  67 24 2c 61 72 67 31 24  |.ms_2(tag$,arg1$|
000078a0  2c 22 22 29 0d 25 c6 05  3a 0d 25 d0 1c dd a4 6d  |,"").%..:.%....m|
000078b0  73 5f 32 28 74 61 67 24  2c 61 72 67 31 24 2c 61  |s_2(tag$,arg1$,a|
000078c0  72 67 32 24 29 0d 25 da  0a ea 46 25 2c 4c 25 0d  |rg2$).%...F%,L%.|
000078d0  25 e4 4d c8 99 20 22 58  4d 65 73 73 61 67 65 54  |%.M.. "XMessageT|
000078e0  72 61 6e 73 5f 4c 6f 6f  6b 75 70 22 2c 6d 73 5f  |rans_Lookup",ms_|
000078f0  64 65 73 63 25 2c 74 61  67 24 2c 6d 73 5f 74 65  |desc%,tag$,ms_te|
00007900  78 74 25 2c 32 35 36 2c  61 72 67 31 24 2c 61 72  |xt%,256,arg1$,ar|
00007910  67 32 24 b8 2c 2c 2c 4c  25 3b 46 25 0d 25 ee 0f  |g2$.,,,L%;F%.%..|
00007920  e7 46 25 80 20 31 8c 4c  25 3d 30 0d 25 f8 12 6d  |.F%. 1.L%=0.%..m|
00007930  73 5f 74 65 78 74 25 3f  4c 25 3d 31 33 0d 26 02  |s_text%?L%=13.&.|
00007940  0e 3d 24 6d 73 5f 74 65  78 74 25 0d 26 0c 05 3a  |.=$ms_text%.&..:|
00007950  0d 26 16 11 dd f2 68 65  6c 70 28 68 65 6c 70 24  |.&....help(help$|
00007960  29 0d 26 20 08 ea 20 43  25 0d 26 2a 0f 43 25 3d  |).& .. C%.&*.C%=|
00007970  a9 68 65 6c 70 24 2b 31  0d 26 34 0e 71 25 21 31  |.help$+1.&4.q%!1|
00007980  32 3d 71 25 21 38 0d 26  3e 0e 71 25 21 31 36 3d  |2=q%!8.&>.q%!16=|
00007990  26 35 30 33 0d 26 48 15  24 28 71 25 2b 32 30 29  |&503.&H.$(q%+20)|
000079a0  3d 68 65 6c 70 24 2b bd  30 0d 26 52 12 21 71 25  |=help$+.0.&R.!q%|
000079b0  3d 28 32 34 2b 43 25 29  80 ac 33 0d 26 5c 24 c8  |=(24+C%)..3.&\$.|
000079c0  99 20 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |. "Wimp_SendMess|
000079d0  61 67 65 22 2c 31 37 2c  71 25 2c 71 25 21 34 0d  |age",17,q%,q%!4.|
000079e0  26 66 05 cd 0d 26 70 05  e1 0d 26 7a 05 3a 0d 26  |&f...&p...&z.:.&|
000079f0  84 0f dd a4 68 65 6c 70  5f 74 65 78 74 0d 26 8e  |....help_text.&.|
00007a00  0b ea 20 74 65 78 74 24  0d 26 98 0c 74 65 78 74  |.. text$.&..text|
00007a10  24 3d 22 22 0d 26 a2 0e  c8 8e 20 71 25 21 33 32  |$="".&.... q%!32|
00007a20  20 ca 0d 26 ac 1f c9 20  2d 32 3a 74 65 78 74 24  | ..&... -2:text$|
00007a30  3d a4 6d 73 5f 30 28 22  49 63 6f 6e 42 61 72 22  |=.ms_0("IconBar"|
00007a40  29 0d 26 b6 26 c9 20 64  69 73 63 5f 69 6e 66 6f  |).&.&. disc_info|
00007a50  62 6f 78 25 3a 74 65 78  74 24 3d a4 6d 73 5f 30  |box%:text$=.ms_0|
00007a60  28 22 41 64 64 22 29 0d  26 c0 1c c9 20 64 69 73  |("Add").&... dis|
00007a70  63 5f 69 6e 64 65 78 25  3a c8 8e 20 71 25 21 33  |c_index%:.. q%!3|
00007a80  36 20 ca 0d 26 ca 1c c9  20 33 3a 74 65 78 74 24  |6 ..&... 3:text$|
00007a90  3d a4 6d 73 5f 30 28 22  46 69 72 73 74 22 29 0d  |=.ms_0("First").|
00007aa0  26 d4 1d c9 20 33 34 2c  34 3a 74 65 78 74 24 3d  |&... 34,4:text$=|
00007ab0  a4 6d 73 5f 30 28 22 4f  6e 65 22 29 0d 26 de 1c  |.ms_0("One").&..|
00007ac0  c9 20 32 2c 35 3a 74 65  78 74 24 3d a4 6d 73 5f  |. 2,5:text$=.ms_|
00007ad0  30 28 22 54 65 6e 22 29  0d 26 e8 1b c9 20 36 3a  |0("Ten").&... 6:|
00007ae0  74 65 78 74 24 3d a4 6d  73 5f 30 28 22 4c 61 73  |text$=.ms_0("Las|
00007af0  74 22 29 0d 26 f2 1b c9  20 31 30 3a 74 65 78 74  |t").&... 10:text|
00007b00  24 3d a4 6d 73 5f 30 28  22 52 65 63 22 29 0d 26  |$=.ms_0("Rec").&|
00007b10  fc 1f c9 20 31 32 2c 32  32 3a 74 65 78 74 24 3d  |... 12,22:text$=|
00007b20  a4 6d 73 5f 30 28 22 55  70 64 61 22 29 0d 27 06  |.ms_0("Upda").'.|
00007b30  1c c9 20 31 33 3a 74 65  78 74 24 3d a4 6d 73 5f  |.. 13:text$=.ms_|
00007b40  30 28 22 54 65 4d 65 22  29 0d 27 10 28 c9 20 31  |0("TeMe").'.(. 1|
00007b50  35 3a 74 65 78 74 24 3d  a4 6d 73 5f 31 28 22 4d  |5:text$=.ms_1("M|
00007b60  65 6e 75 22 2c 22 44 69  73 63 74 79 70 65 73 22  |enu","Disctypes"|
00007b70  29 0d 27 1a 1c c9 20 32  30 3a 74 65 78 74 24 3d  |).'... 20:text$=|
00007b80  a4 6d 73 5f 30 28 22 53  63 61 6e 22 29 0d 27 24  |.ms_0("Scan").'$|
00007b90  26 c9 20 32 35 2c 32 36  2c 32 37 2c 32 38 3a 74  |&. 25,26,27,28:t|
00007ba0  65 78 74 24 3d a4 6d 73  5f 30 28 22 45 78 74 72  |ext$=.ms_0("Extr|
00007bb0  61 22 29 0d 27 2e 19 7f  3a 74 65 78 74 24 3d a4  |a").'...:text$=.|
00007bc0  6d 73 5f 30 28 22 4d 61  69 6e 22 29 0d 27 38 05  |ms_0("Main").'8.|
00007bd0  cb 0d 27 42 1b c9 20 64  69 73 63 5f 73 6f 72 74  |..'B.. disc_sort|
00007be0  25 3a c8 8e 20 71 25 21  33 36 20 ca 0d 27 4c 27  |%:.. q%!36 ..'L'|
00007bf0  c9 20 31 3a 74 65 78 74  24 3d a4 6d 73 5f 31 28  |. 1:text$=.ms_1(|
00007c00  22 53 6f 72 74 54 22 2c  22 44 69 73 63 6e 61 6d  |"SortT","Discnam|
00007c10  65 22 29 0d 27 56 27 c9  20 32 3a 74 65 78 74 24  |e").'V'. 2:text$|
00007c20  3d a4 6d 73 5f 31 28 22  53 6f 72 74 54 22 2c 22  |=.ms_1("SortT","|
00007c30  44 69 73 63 74 79 70 65  22 29 0d 27 60 1d c9 20  |Disctype").'`.. |
00007c40  34 3a 74 65 78 74 24 3d  a4 6d 73 5f 30 28 22 53  |4:text$=.ms_0("S|
00007c50  6f 72 74 47 6f 22 29 0d  27 6a 05 cb 0d 27 74 1e  |ortGo").'j...'t.|
00007c60  c9 20 64 69 73 63 5f 73  61 76 65 62 6f 78 25 3a  |. disc_savebox%:|
00007c70  c8 8e 20 71 25 21 33 36  20 ca 0d 27 7e 1c c9 20  |.. q%!36 ..'~.. |
00007c80  30 3a 74 65 78 74 24 3d  a4 6d 73 5f 30 28 22 44  |0:text$=.ms_0("D|
00007c90  72 61 67 54 22 29 0d 27  88 1c c9 20 31 3a 74 65  |ragT").'... 1:te|
00007ca0  78 74 24 3d a4 6d 73 5f  30 28 22 46 69 6c 65 54  |xt$=.ms_0("FileT|
00007cb0  22 29 0d 27 92 1c c9 20  32 3a 74 65 78 74 24 3d  |").'... 2:text$=|
00007cc0  a4 6d 73 5f 30 28 22 53  61 76 65 54 22 29 0d 27  |.ms_0("SaveT").'|
00007cd0  9c 05 cb 0d 27 a6 1f c9  20 64 69 73 63 5f 73 61  |....'... disc_sa|
00007ce0  76 65 62 6f 78 32 25 3a  c8 8e 20 71 25 21 33 36  |vebox2%:.. q%!36|
00007cf0  20 ca 0d 27 b0 1b c9 20  30 3a 74 65 78 74 24 3d  | ..'... 0:text$=|
00007d00  a4 6d 73 5f 30 28 22 44  72 61 67 22 29 0d 27 ba  |.ms_0("Drag").'.|
00007d10  1b c9 20 31 3a 74 65 78  74 24 3d a4 6d 73 5f 30  |.. 1:text$=.ms_0|
00007d20  28 22 46 69 6c 65 22 29  0d 27 c4 1b c9 20 32 3a  |("File").'... 2:|
00007d30  74 65 78 74 24 3d a4 6d  73 5f 30 28 22 53 61 76  |text$=.ms_0("Sav|
00007d40  65 22 29 0d 27 ce 05 cb  0d 27 d8 1b c9 20 64 69  |e").'....'... di|
00007d50  73 63 5f 71 75 69 74 25  3a c8 8e 20 71 25 21 33  |sc_quit%:.. q%!3|
00007d60  36 20 ca 0d 27 e2 1d c9  20 31 2c 32 3a 74 65 78  |6 ..'... 1,2:tex|
00007d70  74 24 3d a4 6d 73 5f 30  28 22 51 75 65 73 22 29  |t$=.ms_0("Ques")|
00007d80  0d 27 ec 05 cb 0d 27 f6  1c c9 20 64 69 73 63 5f  |.'....'... disc_|
00007d90  63 6c 65 61 72 25 3a c8  8e 20 71 25 21 33 36 20  |clear%:.. q%!36 |
00007da0  ca 0d 28 00 1d c9 20 31  2c 32 3a 74 65 78 74 24  |..(... 1,2:text$|
00007db0  3d a4 6d 73 5f 30 28 22  51 75 65 73 22 29 0d 28  |=.ms_0("Ques").(|
00007dc0  0a 05 cb 0d 28 14 1c c9  20 64 69 73 63 5f 70 72  |....(... disc_pr|
00007dd0  69 6e 74 25 3a c8 8e 20  71 25 21 33 36 20 ca 0d  |int%:.. q%!36 ..|
00007de0  28 1e 23 c9 20 31 3a 74  65 78 74 24 3d a4 6d 73  |(.#. 1:text$=.ms|
00007df0  5f 31 28 22 51 75 61 6c  22 2c 22 64 72 61 66 74  |_1("Qual","draft|
00007e00  22 29 0d 28 28 31 c9 20  32 3a 74 65 78 74 24 3d  |").((1. 2:text$=|
00007e10  a4 6d 73 5f 31 28 22 51  75 61 6c 22 2c 22 6e 65  |.ms_1("Qual","ne|
00007e20  61 72 20 6c 65 74 74 65  72 20 71 75 61 6c 69 74  |ar letter qualit|
00007e30  79 22 29 0d 28 32 34 c9  20 33 3a 74 65 78 74 24  |y").(24. 3:text$|
00007e40  3d a4 6d 73 5f 31 28 22  51 75 61 6c 22 2c 22 52  |=.ms_1("Qual","R|
00007e50  49 53 43 20 4f 53 20 50  72 69 6e 74 65 72 20 44  |ISC OS Printer D|
00007e60  72 69 76 65 72 22 29 0d  28 3c 1b c9 20 36 3a 74  |river").(<.. 6:t|
00007e70  65 78 74 24 3d a4 6d 73  5f 30 28 22 43 6f 70 79  |ext$=.ms_0("Copy|
00007e80  22 29 0d 28 46 1b c9 20  37 3a 74 65 78 74 24 3d  |").(F.. 7:text$=|
00007e90  a4 6d 73 5f 30 28 22 50  72 69 6e 22 29 0d 28 50  |.ms_0("Prin").(P|
00007ea0  2d c9 20 39 3a 74 65 78  74 24 3d a4 6d 73 5f 31  |-. 9:text$=.ms_1|
00007eb0  28 22 50 72 69 6e 54 22  2c 22 44 69 73 63 20 49  |("PrinT","Disc I|
00007ec0  6e 66 6f 20 4f 6e 6c 79  22 29 0d 28 5a 2c c9 20  |nfo Only").(Z,. |
00007ed0  31 30 3a 74 65 78 74 24  3d a4 6d 73 5f 31 28 22  |10:text$=.ms_1("|
00007ee0  50 72 69 6e 54 22 2c 22  46 75 6c 6c 20 44 65 74  |PrinT","Full Det|
00007ef0  61 69 6c 73 22 29 0d 28  64 2b c9 20 31 31 3a 74  |ails").(d+. 11:t|
00007f00  65 78 74 24 3d a4 6d 73  5f 31 28 22 50 72 69 6e  |ext$=.ms_1("Prin|
00007f10  54 32 22 2c 22 44 69 73  63 20 4c 61 62 65 6c 22  |T2","Disc Label"|
00007f20  29 0d 28 6e 1d c9 20 31  32 3a 74 65 78 74 24 3d  |).(n.. 12:text$=|
00007f30  a4 6d 73 5f 30 28 22 4c  61 62 65 6c 22 29 0d 28  |.ms_0("Label").(|
00007f40  78 05 cb 0d 28 82 1d c9  20 64 69 73 63 5f 73 65  |x...(... disc_se|
00007f50  61 72 63 68 25 3a c8 8e  20 71 25 21 33 36 20 ca  |arch%:.. q%!36 .|
00007f60  0d 28 8c 1e c9 20 31 3a  74 65 78 74 24 3d a4 6d  |.(... 1:text$=.m|
00007f70  73 5f 30 28 22 53 65 61  54 65 78 74 22 29 0d 28  |s_0("SeaText").(|
00007f80  96 1e c9 20 37 3a 74 65  78 74 24 3d a4 6d 73 5f  |... 7:text$=.ms_|
00007f90  30 28 22 53 65 61 50 72  65 76 22 29 0d 28 a0 1d  |0("SeaPrev").(..|
00007fa0  c9 20 35 3a 74 65 78 74  24 3d a4 6d 73 5f 30 28  |. 5:text$=.ms_0(|
00007fb0  22 53 65 61 72 47 6f 22  29 0d 28 aa 28 c9 20 33  |"SearGo").(.(. 3|
00007fc0  3a 74 65 78 74 24 3d a4  6d 73 5f 31 28 22 53 65  |:text$=.ms_1("Se|
00007fd0  61 72 54 79 22 2c 22 44  69 73 63 6e 61 6d 65 22  |arTy","Discname"|
00007fe0  29 0d 28 b4 28 c9 20 34  3a 74 65 78 74 24 3d a4  |).(.(. 4:text$=.|
00007ff0  6d 73 5f 31 28 22 53 65  61 72 54 79 22 2c 22 44  |ms_1("SearTy","D|
00008000  69 73 63 74 79 70 65 22  29 0d 28 be 2c c9 20 38  |isctype").(.,. 8|
00008010  3a 74 65 78 74 24 3d a4  6d 73 5f 31 28 22 53 65  |:text$=.ms_1("Se|
00008020  61 72 54 79 32 22 2c 22  41 70 70 6c 69 63 61 74  |arTy2","Applicat|
00008030  69 6f 6e 22 29 0d 28 c0  28 c9 20 31 31 3a 74 65  |ion").(.(. 11:te|
00008040  78 74 24 3d a4 6d 73 5f  31 28 22 4d 65 6e 75 22  |xt$=.ms_1("Menu"|
00008050  2c 22 44 69 73 63 74 79  70 65 73 22 29 0d 28 c8  |,"Disctypes").(.|
00008060  05 cb 0d 28 d2 26 c9 20  64 69 73 63 5f 66 6f 75  |...(.&. disc_fou|
00008070  6e 64 25 3a 74 65 78 74  24 3d a4 6d 73 5f 30 28  |nd%:text$=.ms_0(|
00008080  22 46 6f 75 6e 64 22 29  0d 28 dc 26 c9 20 64 69  |"Found").(.&. di|
00008090  73 63 5f 74 72 61 63 6b  73 25 3a 74 65 78 74 24  |sc_tracks%:text$|
000080a0  3d a4 6d 73 5f 30 28 22  54 65 78 74 22 29 0d 28  |=.ms_0("Text").(|
000080b0  e6 05 cb 0d 28 f0 0a 3d  74 65 78 74 24 0d 28 fa  |....(..=text$.(.|
000080c0  05 3a 0d 29 04 13 dd f2  67 65 74 5f 6d 6f 64 65  |.:.)....get_mode|
000080d0  5f 69 6e 66 6f 0d 29 0e  1f 63 78 25 3d 28 a4 6d  |_info.)..cx%=(.m|
000080e0  76 28 eb 2c 31 31 29 29  3c 3c 28 a4 6d 76 28 eb  |v(.,11))<<(.mv(.|
000080f0  2c 34 29 29 0d 29 18 1f  63 79 25 3d 28 a4 6d 76  |,4)).)..cy%=(.mv|
00008100  28 eb 2c 31 32 29 29 3c  3c 28 a4 6d 76 28 eb 2c  |(.,12))<<(.mv(.,|
00008110  35 29 29 0d 29 22 05 e1  0d 29 2c 05 3a 0d 29 36  |5)).)"...),.:.)6|
00008120  14 dd a4 6d 76 28 6d 6f  64 65 25 2c 76 61 72 25  |...mv(mode%,var%|
00008130  29 0d 29 40 08 ea 20 76  25 0d 29 4a 2e c8 99 20  |).)@.. v%.)J... |
00008140  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
00008150  61 62 6c 65 22 2c 6d 6f  64 65 25 2c 76 61 72 25  |able",mode%,var%|
00008160  20 b8 20 2c 2c 76 25 0d  29 54 07 3d 76 25 0d 29  | . ,,v%.)T.=v%.)|
00008170  5e 05 3a 0d 29 68 12 dd  f2 63 6c 65 61 72 5f 73  |^.:.)h...clear_s|
00008180  65 61 72 63 68 0d 29 72  1a ea 20 69 63 6f 6e 25  |earch.)r.. icon%|
00008190  3a e3 20 69 63 6f 6e 25  3d 30 20 b8 20 35 31 0d  |:. icon%=0 . 51.|
000081a0  29 7c 26 f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |)|&.update_icon(|
000081b0  64 69 73 63 5f 66 6f 75  6e 64 25 2c 69 63 6f 6e  |disc_found%,icon|
000081c0  25 2c 22 22 29 0d 29 86  05 ed 0d 29 90 4a f2 75  |%,"").)....).J.u|
000081d0  70 64 61 74 65 5f 69 63  6f 6e 28 64 69 73 63 5f  |pdate_icon(disc_|
000081e0  66 6f 75 6e 64 25 2c 31  2c 22 63 6f 75 6c 64 20  |found%,1,"could |
000081f0  62 65 20 66 6f 75 6e 64  20 69 6e 20 74 68 65 20  |be found in the |
00008200  66 6f 6c 6c 6f 77 69 6e  67 20 72 65 63 6f 72 64  |following record|
00008210  73 3a 22 29 0d 29 9a 05  e1 0d 29 a4 05 3a 0d 29  |s:").)....)..:.)|
00008220  ae 14 dd f2 73 65 61 72  63 68 28 66 69 65 6c 64  |....search(field|
00008230  24 29 0d 29 b8 15 c8 99  20 22 48 6f 75 72 67 6c  |$).).... "Hourgl|
00008240  61 73 73 5f 4f 6e 22 0d  29 c2 19 66 6f 75 6e 64  |ass_On".)..found|
00008250  69 63 6f 6e 25 3d 32 3a  66 6f 75 6e 64 25 3d 30  |icon%=2:found%=0|
00008260  0d 29 cc 2b 73 65 61 72  63 68 73 74 72 69 6e 67  |.).+searchstring|
00008270  24 3d a4 69 6e 64 69 72  65 63 74 28 64 69 73 63  |$=.indirect(disc|
00008280  5f 73 65 61 72 63 68 25  2c 31 29 0d 29 d6 61 e7  |_search%,1).).a.|
00008290  20 73 65 61 72 63 68 73  74 72 69 6e 67 24 3d 22  | searchstring$="|
000082a0  22 20 8c 20 f2 63 6c 6f  73 65 28 64 69 73 63 5f  |" . .close(disc_|
000082b0  73 65 61 72 63 68 25 29  3a c8 99 20 22 57 69 6d  |search%):.. "Wim|
000082c0  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 2d  |p_CreateMenu",,-|
000082d0  31 3a 85 20 31 2c 22 45  6e 74 65 72 20 73 65 61  |1:. 1,"Enter sea|
000082e0  72 63 68 20 73 74 72 69  6e 67 2e 22 0d 29 e0 2d  |rch string.".).-|
000082f0  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 64 69 73  |.update_icon(dis|
00008300  63 5f 66 6f 75 6e 64 25  2c 30 2c 73 65 61 72 63  |c_found%,0,searc|
00008310  68 73 74 72 69 6e 67 24  29 0d 29 ea 4d e7 20 63  |hstring$).).M. c|
00008320  61 73 65 73 65 6e 73 65  24 3d 22 4e 6f 22 20 8c  |asesense$="No" .|
00008330  20 53 65 61 72 63 68 24  3d a4 75 70 70 65 72 28  | Search$=.upper(|
00008340  73 65 61 72 63 68 73 74  72 69 6e 67 24 29 20 8b  |searchstring$) .|
00008350  20 53 65 61 72 63 68 24  3d 73 65 61 72 63 68 73  | Search$=searchs|
00008360  74 72 69 6e 67 24 0d 29  f4 0f c8 8e 20 66 69 65  |tring$.).... fie|
00008370  6c 64 24 20 ca 0d 29 fe  0d c9 20 22 44 6e 61 6d  |ld$ ..)... "Dnam|
00008380  65 22 0d 2a 08 1d e3 20  6e 75 6d 62 65 72 25 3d  |e".*... number%=|
00008390  31 20 b8 20 6d 61 78 5f  72 65 63 6f 72 64 25 0d  |1 . max_record%.|
000083a0  2a 12 1e 69 63 6f 6e 5f  75 73 65 64 25 3d a3 3a  |*..icon_used%=.:|
000083b0  73 75 62 5f 6e 75 6d 62  65 72 25 3d 31 0d 2a 1c  |sub_number%=1.*.|
000083c0  3a c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 50  |:.. "Hourglass_P|
000083d0  65 72 63 65 6e 74 61 67  65 22 2c a8 28 28 6e 75  |ercentage",.((nu|
000083e0  6d 62 65 72 25 2f 6d 61  78 5f 72 65 63 6f 72 64  |mber%/max_record|
000083f0  25 29 2a 31 30 30 29 0d  2a 26 57 e7 20 63 61 73  |%)*100).*&W. cas|
00008400  65 73 65 6e 73 65 24 3d  22 4e 6f 22 20 8c 20 74  |esense$="No" . t|
00008410  61 72 67 65 74 24 3d a4  75 70 70 65 72 28 64 69  |arget$=.upper(di|
00008420  73 63 6e 61 6d 65 24 28  6e 75 6d 62 65 72 25 29  |scname$(number%)|
00008430  29 20 8b 20 74 61 72 67  65 74 24 3d 64 69 73 63  |) . target$=disc|
00008440  6e 61 6d 65 24 28 6e 75  6d 62 65 72 25 29 0d 2a  |name$(number%).*|
00008450  30 31 e3 20 62 25 3d 31  20 b8 20 a9 20 74 61 72  |01. b%=1 . . tar|
00008460  67 65 74 24 3a 61 24 3d  c1 74 61 72 67 65 74 24  |get$:a$=.target$|
00008470  2c 62 25 2c a9 28 53 65  61 72 63 68 24 29 29 0d  |,b%,.(Search$)).|
00008480  2a 3a 3c e7 20 53 65 61  72 63 68 24 3d 61 24 20  |*:<. Search$=a$ |
00008490  8c 20 f2 61 64 64 5f 74  6f 5f 66 6f 75 6e 64 28  |. .add_to_found(|
000084a0  6e 75 6d 62 65 72 25 2c  73 75 62 5f 6e 75 6d 62  |number%,sub_numb|
000084b0  65 72 25 29 3a e5 20 8d  44 4e 6a 0d 2a 44 08 ed  |er%):. .DNj.*D..|
000084c0  20 62 25 0d 2a 4e 2c e7  20 69 63 6f 6e 5f 75 73  | b%.*N,. icon_us|
000084d0  65 64 25 3d b9 20 8c 20  66 6f 75 6e 64 69 63 6f  |ed%=. . foundico|
000084e0  6e 25 2b 3d 31 3a 66 6f  75 6e 64 25 2b 3d 31 0d  |n%+=1:found%+=1.|
000084f0  2a 58 0d ed 20 6e 75 6d  62 65 72 25 0d 2a 62 0d  |*X.. number%.*b.|
00008500  c9 20 22 45 78 74 72 61  22 0d 2a 6c 1d e3 20 6e  |. "Extra".*l.. n|
00008510  75 6d 62 65 72 25 3d 31  20 b8 20 6d 61 78 5f 72  |umber%=1 . max_r|
00008520  65 63 6f 72 64 25 0d 2a  76 1e 69 63 6f 6e 5f 75  |ecord%.*v.icon_u|
00008530  73 65 64 25 3d a3 3a 73  75 62 5f 6e 75 6d 62 65  |sed%=.:sub_numbe|
00008540  72 25 3d 31 0d 2a 80 3a  c8 99 20 22 48 6f 75 72  |r%=1.*.:.. "Hour|
00008550  67 6c 61 73 73 5f 50 65  72 63 65 6e 74 61 67 65  |glass_Percentage|
00008560  22 2c a8 28 28 6e 75 6d  62 65 72 25 2f 6d 61 78  |",.((number%/max|
00008570  5f 72 65 63 6f 72 64 25  29 2a 31 30 30 29 0d 2a  |_record%)*100).*|
00008580  8a 10 e3 20 73 75 62 25  3d 31 20 b8 20 34 0d 2a  |... sub%=1 . 4.*|
00008590  94 5f e7 20 63 61 73 65  73 65 6e 73 65 24 3d 22  |._. casesense$="|
000085a0  4e 6f 22 20 8c 20 74 61  72 67 65 74 24 3d a4 75  |No" . target$=.u|
000085b0  70 70 65 72 28 63 6f 6d  6d 65 6e 74 24 28 6e 75  |pper(comment$(nu|
000085c0  6d 62 65 72 25 2c 73 75  62 25 29 29 20 8b 20 74  |mber%,sub%)) . t|
000085d0  61 72 67 65 74 24 3d 63  6f 6d 6d 65 6e 74 24 28  |arget$=comment$(|
000085e0  6e 75 6d 62 65 72 25 2c  73 75 62 25 29 0d 2a 9e  |number%,sub%).*.|
000085f0  31 e3 20 62 25 3d 31 20  b8 20 a9 20 74 61 72 67  |1. b%=1 . . targ|
00008600  65 74 24 3a 61 24 3d c1  74 61 72 67 65 74 24 2c  |et$:a$=.target$,|
00008610  62 25 2c a9 28 53 65 61  72 63 68 24 29 29 0d 2a  |b%,.(Search$)).*|
00008620  a8 3c e7 20 53 65 61 72  63 68 24 3d 61 24 20 8c  |.<. Search$=a$ .|
00008630  20 f2 61 64 64 5f 74 6f  5f 66 6f 75 6e 64 28 6e  | .add_to_found(n|
00008640  75 6d 62 65 72 25 2c 73  75 62 5f 6e 75 6d 62 65  |umber%,sub_numbe|
00008650  72 25 29 3a e5 20 8d 74  7c 6a 0d 2a b2 08 ed 20  |r%):. .t|j.*... |
00008660  62 25 0d 2a bc 0a ed 20  73 75 62 25 0d 2a c6 2c  |b%.*... sub%.*.,|
00008670  e7 20 69 63 6f 6e 5f 75  73 65 64 25 3d b9 20 8c  |. icon_used%=. .|
00008680  20 66 6f 75 6e 64 69 63  6f 6e 25 2b 3d 31 3a 66  | foundicon%+=1:f|
00008690  6f 75 6e 64 25 2b 3d 31  0d 2a d0 0d ed 20 6e 75  |ound%+=1.*... nu|
000086a0  6d 62 65 72 25 0d 2a da  0d c9 20 22 44 74 79 70  |mber%.*... "Dtyp|
000086b0  65 22 0d 2a e4 1d e3 20  6e 75 6d 62 65 72 25 3d  |e".*... number%=|
000086c0  31 20 b8 20 6d 61 78 5f  72 65 63 6f 72 64 25 0d  |1 . max_record%.|
000086d0  2a ee 1e 69 63 6f 6e 5f  75 73 65 64 25 3d a3 3a  |*..icon_used%=.:|
000086e0  73 75 62 5f 6e 75 6d 62  65 72 25 3d 31 0d 2a f8  |sub_number%=1.*.|
000086f0  3a c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 50  |:.. "Hourglass_P|
00008700  65 72 63 65 6e 74 61 67  65 22 2c a8 28 28 6e 75  |ercentage",.((nu|
00008710  6d 62 65 72 25 2f 6d 61  78 5f 72 65 63 6f 72 64  |mber%/max_record|
00008720  25 29 2a 31 30 30 29 0d  2b 02 57 e7 20 63 61 73  |%)*100).+.W. cas|
00008730  65 73 65 6e 73 65 24 3d  22 4e 6f 22 20 8c 20 74  |esense$="No" . t|
00008740  61 72 67 65 74 24 3d a4  75 70 70 65 72 28 64 69  |arget$=.upper(di|
00008750  73 63 74 79 70 65 24 28  6e 75 6d 62 65 72 25 29  |sctype$(number%)|
00008760  29 20 8b 20 74 61 72 67  65 74 24 3d 64 69 73 63  |) . target$=disc|
00008770  74 79 70 65 24 28 6e 75  6d 62 65 72 25 29 0d 2b  |type$(number%).+|
00008780  0c 31 e3 20 62 25 3d 31  20 b8 20 a9 20 74 61 72  |.1. b%=1 . . tar|
00008790  67 65 74 24 3a 61 24 3d  c1 74 61 72 67 65 74 24  |get$:a$=.target$|
000087a0  2c 62 25 2c a9 28 53 65  61 72 63 68 24 29 29 0d  |,b%,.(Search$)).|
000087b0  2b 16 3c e7 20 53 65 61  72 63 68 24 3d 61 24 20  |+.<. Search$=a$ |
000087c0  8c 20 f2 61 64 64 5f 74  6f 5f 66 6f 75 6e 64 28  |. .add_to_found(|
000087d0  6e 75 6d 62 65 72 25 2c  73 75 62 5f 6e 75 6d 62  |number%,sub_numb|
000087e0  65 72 25 29 3a e5 20 8d  54 6a 6b 0d 2b 20 08 ed  |er%):. .Tjk.+ ..|
000087f0  20 62 25 0d 2b 2a 2c e7  20 69 63 6f 6e 5f 75 73  | b%.+*,. icon_us|
00008800  65 64 25 3d b9 20 8c 20  66 6f 75 6e 64 69 63 6f  |ed%=. . foundico|
00008810  6e 25 2b 3d 31 3a 66 6f  75 6e 64 25 2b 3d 31 0d  |n%+=1:found%+=1.|
00008820  2b 34 0d ed 20 6e 75 6d  62 65 72 25 0d 2b 3e 0b  |+4.. number%.+>.|
00008830  c9 20 22 41 70 70 22 0d  2b 48 1d e3 20 6e 75 6d  |. "App".+H.. num|
00008840  62 65 72 25 3d 31 20 b8  20 6d 61 78 5f 72 65 63  |ber%=1 . max_rec|
00008850  6f 72 64 25 0d 2b 52 1e  69 63 6f 6e 5f 75 73 65  |ord%.+R.icon_use|
00008860  64 25 3d a3 3a 73 75 62  5f 6e 75 6d 62 65 72 25  |d%=.:sub_number%|
00008870  3d 31 0d 2b 5c 3a c8 99  20 22 48 6f 75 72 67 6c  |=1.+\:.. "Hourgl|
00008880  61 73 73 5f 50 65 72 63  65 6e 74 61 67 65 22 2c  |ass_Percentage",|
00008890  a8 28 28 6e 75 6d 62 65  72 25 2f 6d 61 78 5f 72  |.((number%/max_r|
000088a0  65 63 6f 72 64 25 29 2a  31 30 30 29 0d 2b 66 11  |ecord%)*100).+f.|
000088b0  e3 20 73 75 62 25 3d 31  20 b8 20 35 30 0d 2b 70  |. sub%=1 . 50.+p|
000088c0  59 e7 20 63 61 73 65 73  65 6e 73 65 24 3d 22 4e  |Y. casesense$="N|
000088d0  6f 22 20 8c 20 74 61 72  67 65 74 24 3d a4 75 70  |o" . target$=.up|
000088e0  70 65 72 28 6e 61 6d 65  24 28 6e 75 6d 62 65 72  |per(name$(number|
000088f0  25 2c 73 75 62 25 29 29  20 8b 20 74 61 72 67 65  |%,sub%)) . targe|
00008900  74 24 3d 6e 61 6d 65 24  28 6e 75 6d 62 65 72 25  |t$=name$(number%|
00008910  2c 73 75 62 25 29 0d 2b  7a 31 e3 20 62 25 3d 31  |,sub%).+z1. b%=1|
00008920  20 b8 20 a9 20 74 61 72  67 65 74 24 3a 61 24 3d  | . . target$:a$=|
00008930  c1 74 61 72 67 65 74 24  2c 62 25 2c a9 28 53 65  |.target$,b%,.(Se|
00008940  61 72 63 68 24 29 29 0d  2b 84 3c e7 20 53 65 61  |arch$)).+.<. Sea|
00008950  72 63 68 24 3d 61 24 20  8c 20 f2 61 64 64 5f 74  |rch$=a$ . .add_t|
00008960  6f 5f 66 6f 75 6e 64 28  6e 75 6d 62 65 72 25 2c  |o_found(number%,|
00008970  73 75 62 5f 6e 75 6d 62  65 72 25 29 3a e5 20 8d  |sub_number%):. .|
00008980  74 58 6b 0d 2b 8e 08 ed  20 62 25 0d 2b 98 0a ed  |tXk.+... b%.+...|
00008990  20 73 75 62 25 0d 2b a2  2c e7 20 69 63 6f 6e 5f  | sub%.+.,. icon_|
000089a0  75 73 65 64 25 3d b9 20  8c 20 66 6f 75 6e 64 69  |used%=. . foundi|
000089b0  63 6f 6e 25 2b 3d 31 3a  66 6f 75 6e 64 25 2b 3d  |con%+=1:found%+=|
000089c0  31 0d 2b ac 0d ed 20 6e  75 6d 62 65 72 25 0d 2b  |1.+... number%.+|
000089d0  b6 05 cb 0d 2b c0 18 f2  63 6c 6f 73 65 28 64 69  |....+...close(di|
000089e0  73 63 5f 73 65 61 72 63  68 25 29 0d 2b ca 23 f2  |sc_search%).+.#.|
000089f0  75 70 64 61 74 65 5f 69  63 6f 6e 28 64 69 73 63  |update_icon(disc|
00008a00  5f 73 65 61 72 63 68 25  2c 31 2c 22 22 29 0d 2b  |_search%,1,"").+|
00008a10  d4 1f f2 6d 6f 76 65 5f  63 61 72 65 74 28 64 69  |...move_caret(di|
00008a20  73 63 5f 69 6e 64 65 78  25 2c 31 33 29 0d 2b de  |sc_index%,13).+.|
00008a30  1c c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |... "Wimp_Create|
00008a40  4d 65 6e 75 22 2c 2c 2d  31 0d 2b e8 16 c8 99 20  |Menu",,-1.+.... |
00008a50  22 48 6f 75 72 67 6c 61  73 73 5f 4f 66 66 22 0d  |"Hourglass_Off".|
00008a60  2b f2 11 e7 20 66 6f 75  6e 64 25 3c 3e 30 20 8c  |+... found%<>0 .|
00008a70  0d 2b fc 16 f2 6f 70 65  6e 28 64 69 73 63 5f 66  |.+...open(disc_f|
00008a80  6f 75 6e 64 25 29 0d 2c  06 05 cc 0d 2c 10 31 85  |ound%).,....,.1.|
00008a90  20 31 2c 22 27 22 2b 73  65 61 72 63 68 73 74 72  | 1,"'"+searchstr|
00008aa0  69 6e 67 24 2b 22 27 20  63 6f 75 6c 64 20 6e 6f  |ing$+"' could no|
00008ab0  74 20 62 65 20 66 6f 75  6e 64 2e 22 0d 2c 1a 05  |t be found.".,..|
00008ac0  cd 0d 2c 24 9d e7 20 66  6f 75 6e 64 25 3e 31 32  |..,$.. found%>12|
00008ad0  30 20 8c 20 85 20 31 2c  22 27 22 2b 73 65 61 72  |0 . . 1,"'"+sear|
00008ae0  63 68 73 74 72 69 6e 67  24 2b 22 27 20 68 61 73  |chstring$+"' has|
00008af0  20 62 65 65 6e 20 66 6f  75 6e 64 20 69 6e 20 22  | been found in "|
00008b00  2b c3 28 66 6f 75 6e 64  25 29 2b 22 20 72 65 63  |+.(found%)+" rec|
00008b10  6f 72 64 73 2e 20 54 68  65 20 66 69 72 73 74 20  |ords. The first |
00008b20  35 30 20 6f 63 63 75 72  61 6e 63 65 73 20 61 72  |50 occurances ar|
00008b30  65 20 73 65 6c 65 63 74  61 62 6c 65 20 66 72 6f  |e selectable fro|
00008b40  6d 20 74 68 65 20 27 52  65 63 6f 72 64 73 20 46  |m the 'Records F|
00008b50  6f 75 6e 64 27 20 77 69  6e 64 6f 77 2e 22 0d 2c  |ound' window.".,|
00008b60  2e 05 e1 0d 2c 38 05 3a  0d 2c 42 2a dd f2 61 64  |....,8.:.,B*..ad|
00008b70  64 5f 74 6f 5f 66 6f 75  6e 64 28 66 6f 75 6e 64  |d_to_found(found|
00008b80  72 65 63 6f 72 64 25 2c  66 6f 75 6e 64 73 75 62  |record%,foundsub|
00008b90  25 29 0d 2c 4c 15 e7 20  66 6f 75 6e 64 69 63 6f  |%).,L.. foundico|
00008ba0  6e 25 3c 35 32 20 8c 0d  2c 56 66 e7 20 73 65 61  |n%<52 ..,Vf. sea|
00008bb0  72 63 68 74 79 70 65 24  3d 22 44 6e 61 6d 65 22  |rchtype$="Dname"|
00008bc0  20 84 20 73 65 61 72 63  68 74 79 70 65 24 3d 22  | . searchtype$="|
00008bd0  44 74 79 70 65 22 20 8c  20 f2 75 70 64 61 74 65  |Dtype" . .update|
00008be0  5f 69 63 6f 6e 28 64 69  73 63 5f 66 6f 75 6e 64  |_icon(disc_found|
00008bf0  25 2c 66 6f 75 6e 64 69  63 6f 6e 25 2c c3 28 66  |%,foundicon%,.(f|
00008c00  6f 75 6e 64 72 65 63 6f  72 64 25 29 29 0d 2c 60  |oundrecord%)).,`|
00008c10  7a e7 20 73 65 61 72 63  68 74 79 70 65 24 3d 22  |z. searchtype$="|
00008c20  41 70 70 22 20 84 20 73  65 61 72 63 68 74 79 70  |App" . searchtyp|
00008c30  65 24 3d 22 45 78 74 72  61 22 20 8c 20 f2 75 70  |e$="Extra" . .up|
00008c40  64 61 74 65 5f 69 63 6f  6e 28 64 69 73 63 5f 66  |date_icon(disc_f|
00008c50  6f 75 6e 64 25 2c 66 6f  75 6e 64 69 63 6f 6e 25  |ound%,foundicon%|
00008c60  2c c3 28 66 6f 75 6e 64  72 65 63 6f 72 64 25 29  |,.(foundrecord%)|
00008c70  2b 22 20 28 22 2b c3 28  66 6f 75 6e 64 73 75 62  |+" ("+.(foundsub|
00008c80  25 29 2b 22 29 22 29 0d  2c 6a 05 cd 0d 2c 74 1f  |%)+")").,j...,t.|
00008c90  73 75 62 5f 6e 75 6d 62  65 72 25 2b 3d 31 3a 69  |sub_number%+=1:i|
00008ca0  63 6f 6e 5f 75 73 65 64  25 3d b9 0d 2c 7e 05 e1  |con_used%=..,~..|
00008cb0  0d 2c 88 05 3a 0d 2c 92  14 dd a4 75 70 70 65 72  |.,..:.,....upper|
00008cc0  28 73 74 72 69 6e 67 24  29 0d 2c 9c 0b ea 20 6c  |(string$).,... l|
00008cd0  6f 6f 70 25 0d 2c a6 14  e7 20 a9 28 73 74 72 69  |oop%.,... .(stri|
00008ce0  6e 67 24 29 3e 30 20 8c  0d 2c b0 1c e3 20 6c 6f  |ng$)>0 ..,... lo|
00008cf0  6f 70 25 20 3d 20 31 20  b8 20 a9 28 73 74 72 69  |op% = 1 . .(stri|
00008d00  6e 67 24 29 0d 2c ba 37  e7 20 c1 73 74 72 69 6e  |ng$).,.7. .strin|
00008d10  67 24 2c 6c 6f 6f 70 25  2c 31 29 3e 3d 22 61 22  |g$,loop%,1)>="a"|
00008d20  20 80 20 c1 73 74 72 69  6e 67 24 2c 6c 6f 6f 70  | . .string$,loop|
00008d30  25 2c 31 29 3c 3d 22 7a  22 20 8c 0d 2c c4 35 c1  |%,1)<="z" ..,.5.|
00008d40  73 74 72 69 6e 67 24 2c  6c 6f 6f 70 25 2c 31 29  |string$,loop%,1)|
00008d50  20 3d 20 bd 28 97 28 c1  73 74 72 69 6e 67 24 2c  | = .(.(.string$,|
00008d60  6c 6f 6f 70 25 2c 31 29  29 20 80 20 26 44 46 29  |loop%,1)) . &DF)|
00008d70  0d 2c ce 05 cd 0d 2c d8  05 ed 0d 2c e2 05 cd 0d  |.,....,....,....|
00008d80  2c ec 0c 3d 73 74 72 69  6e 67 24 0d 2c f6 05 3a  |,..=string$.,..:|
00008d90  0d 2d 00 0f dd f2 63 6c  6f 73 65 5f 61 6c 6c 0d  |.-....close_all.|
00008da0  2d 0a 2a f2 63 6c 6f 73  65 28 64 69 73 63 5f 77  |-.*.close(disc_w|
00008db0  61 69 74 25 29 3a f2 63  6c 6f 73 65 28 64 69 73  |ait%):.close(dis|
00008dc0  63 5f 70 72 69 6e 74 25  29 0d 2d 14 2c f2 63 6c  |c_print%).-.,.cl|
00008dd0  6f 73 65 28 64 69 73 63  5f 73 65 61 72 63 68 25  |ose(disc_search%|
00008de0  29 3a f2 63 6c 6f 73 65  28 64 69 73 63 5f 66 6f  |):.close(disc_fo|
00008df0  75 6e 64 25 29 0d 2d 1e  2f f2 63 6c 6f 73 65 28  |und%).-./.close(|
00008e00  64 69 73 63 5f 71 75 69  74 25 29 3a c8 99 20 22  |disc_quit%):.. "|
00008e10  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00008e20  2c 2c 2d 31 0d 2d 28 2d  f2 63 6c 6f 73 65 28 64  |,,-1.-(-.close(d|
00008e30  69 73 63 5f 63 6c 65 61  72 25 29 3a f2 63 6c 6f  |isc_clear%):.clo|
00008e40  73 65 28 64 69 73 63 5f  69 6e 66 6f 62 6f 78 25  |se(disc_infobox%|
00008e50  29 0d 2d 32 2c f2 63 6c  6f 73 65 28 64 69 73 63  |).-2,.close(disc|
00008e60  5f 73 61 76 65 62 6f 78  25 29 3a f2 63 6c 6f 73  |_savebox%):.clos|
00008e70  65 28 64 69 73 63 5f 73  6f 72 74 25 29 0d 2d 3c  |e(disc_sort%).-<|
00008e80  33 f2 63 6c 6f 73 65 28  64 69 73 63 5f 6f 70 74  |3.close(disc_opt|
00008e90  69 6f 6e 73 25 29 3a f2  63 6c 6f 73 65 28 64 69  |ions%):.close(di|
00008ea0  73 63 5f 62 61 63 6b 6f  70 74 69 6f 6e 73 25 29  |sc_backoptions%)|
00008eb0  0d 2d 46 36 f2 63 6c 6f  73 65 28 64 69 73 63 5f  |.-F6.close(disc_|
00008ec0  73 61 76 65 62 6f 78 32  25 29 3a c8 99 20 22 57  |savebox2%):.. "W|
00008ed0  69 6d 70 45 78 74 5f 52  65 6c 65 61 73 65 50 6f  |impExt_ReleasePo|
00008ee0  69 6e 74 65 72 22 0d 2d  50 05 e1 0d 2d 5a 05 3a  |inter".-P...-Z.:|
00008ef0  0d 2d 64 14 dd f2 72 65  61 64 5f 74 72 61 63 6b  |.-d...read_track|
00008f00  6c 69 73 74 0d 2d 6e 2e  74 72 61 63 6b 5f 6e 75  |list.-n.track_nu|
00008f10  6d 62 65 72 25 3d bb 28  a4 69 6e 64 69 72 65 63  |mber%=.(.indirec|
00008f20  74 28 64 69 73 63 5f 69  6e 64 65 78 25 2c 31 30  |t(disc_index%,10|
00008f30  29 29 0d 2d 78 12 e3 20  73 75 62 49 25 3d 31 20  |)).-x.. subI%=1 |
00008f40  b8 20 35 30 0d 2d 82 3e  6e 61 6d 65 24 28 74 72  |. 50.-.>name$(tr|
00008f50  61 63 6b 5f 6e 75 6d 62  65 72 25 2c 73 75 62 49  |ack_number%,subI|
00008f60  25 29 3d a4 69 6e 64 69  72 65 63 74 28 64 69 73  |%)=.indirect(dis|
00008f70  63 5f 74 72 61 63 6b 73  25 2c 73 75 62 49 25 2d  |c_tracks%,subI%-|
00008f80  31 29 0d 2d 8c 0b ed 20  73 75 62 49 25 0d 2d 96  |1).-... subI%.-.|
00008f90  05 e1 0d 2d a0 05 3a 0d  2d aa 13 dd f2 75 70 64  |...-..:.-....upd|
00008fa0  61 74 65 5f 74 72 61 63  6b 73 0d 2d b4 2e 74 72  |ate_tracks.-..tr|
00008fb0  61 63 6b 5f 6e 75 6d 62  65 72 25 3d bb 28 a4 69  |ack_number%=.(.i|
00008fc0  6e 64 69 72 65 63 74 28  64 69 73 63 5f 69 6e 64  |ndirect(disc_ind|
00008fd0  65 78 25 2c 31 30 29 29  0d 2d be 12 e3 20 73 75  |ex%,10)).-... su|
00008fe0  62 49 25 3d 31 20 b8 20  35 30 0d 2d c8 41 f2 75  |bI%=1 . 50.-.A.u|
00008ff0  70 64 61 74 65 5f 69 63  6f 6e 28 64 69 73 63 5f  |pdate_icon(disc_|
00009000  74 72 61 63 6b 73 25 2c  73 75 62 49 25 2d 31 2c  |tracks%,subI%-1,|
00009010  6e 61 6d 65 24 28 74 72  61 63 6b 5f 6e 75 6d 62  |name$(track_numb|
00009020  65 72 25 2c 73 75 62 49  25 29 29 0d 2d d2 0b ed  |er%,subI%)).-...|
00009030  20 73 75 62 49 25 0d 2d  dc 05 e1 0d 2d e6 05 3a  | subI%.-....-..:|
00009040  0d 2d f0 12 dd f2 63 6c  65 61 72 5f 73 69 6e 67  |.-....clear_sing|
00009050  6c 65 0d 2d fa 23 f2 75  70 64 61 74 65 5f 69 63  |le.-.#.update_ic|
00009060  6f 6e 28 64 69 73 63 5f  69 6e 64 65 78 25 2c 31  |on(disc_index%,1|
00009070  32 2c 22 22 29 0d 2e 04  23 f2 75 70 64 61 74 65  |2,"")...#.update|
00009080  5f 69 63 6f 6e 28 64 69  73 63 5f 69 6e 64 65 78  |_icon(disc_index|
00009090  25 2c 31 33 2c 22 22 29  0d 2e 0e 23 f2 75 70 64  |%,13,"")...#.upd|
000090a0  61 74 65 5f 69 63 6f 6e  28 64 69 73 63 5f 69 6e  |ate_icon(disc_in|
000090b0  64 65 78 25 2c 32 32 2c  22 22 29 0d 2e 18 0f e3  |dex%,22,"").....|
000090c0  20 58 3d 32 35 20 b8 20  32 38 0d 2e 22 22 f2 75  | X=25 . 28.."".u|
000090d0  70 64 61 74 65 5f 69 63  6f 6e 28 64 69 73 63 5f  |pdate_icon(disc_|
000090e0  69 6e 64 65 78 25 2c 58  2c 22 22 29 0d 2e 2c 05  |index%,X,"")..,.|
000090f0  ed 0d 2e 36 0e e3 20 58  3d 30 20 b8 20 34 39 0d  |...6.. X=0 . 49.|
00009100  2e 40 23 f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |.@#.update_icon(|
00009110  64 69 73 63 5f 74 72 61  63 6b 73 25 2c 58 2c 22  |disc_tracks%,X,"|
00009120  22 29 0d 2e 4a 05 ed 0d  2e 54 09 f2 72 65 61 64  |")..J....T..read|
00009130  0d 2e 5e 05 e1 0d 2e 68  05 3a 0d 2e 72 13 dd f2  |..^....h.:..r...|
00009140  73 6f 72 74 5f 64 69 73  63 6e 61 6d 65 0d 2e 7c  |sort_discname..||
00009150  11 ea 20 61 25 2c 62 25  2c 74 65 6d 70 24 0d 2e  |.. a%,b%,temp$..|
00009160  86 6b f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 64  |.k.update_icon(d|
00009170  69 73 63 5f 77 61 69 74  25 2c 30 2c 22 49 6e 69  |isc_wait%,0,"Ini|
00009180  74 69 61 6c 69 73 69 6e  67 20 53 6f 72 74 20 50  |tialising Sort P|
00009190  6c 65 61 73 65 20 57 61  69 74 22 29 3a f2 6f 70  |lease Wait"):.op|
000091a0  65 6e 28 64 69 73 63 5f  77 61 69 74 25 29 3a f2  |en(disc_wait%):.|
000091b0  72 65 64 72 61 77 5f 77  69 6e 64 6f 77 28 64 69  |redraw_window(di|
000091c0  73 63 5f 77 61 69 74 25  29 0d 2e 90 15 c8 99 20  |sc_wait%)...... |
000091d0  22 48 6f 75 72 67 6c 61  73 73 5f 4f 6e 22 0d 2e  |"Hourglass_On"..|
000091e0  9a 58 63 6f 75 6e 74 25  3d 30 3a 73 75 62 63 6f  |.Xcount%=0:subco|
000091f0  75 6e 74 25 3d 30 3a 61  25 3d 31 3a f5 3a e3 20  |unt%=0:a%=1:.:. |
00009200  62 25 3d 61 25 20 b8 20  6d 61 78 5f 72 65 63 6f  |b%=a% . max_reco|
00009210  72 64 25 3a 63 6f 75 6e  74 25 2b 3d 31 3a ed 3a  |rd%:count%+=1:.:|
00009220  61 25 2b 3d 31 3a fd 20  61 25 3e 6d 61 78 5f 72  |a%+=1:. a%>max_r|
00009230  65 63 6f 72 64 25 0d 2e  a4 6d f2 75 70 64 61 74  |ecord%...m.updat|
00009240  65 5f 69 63 6f 6e 28 64  69 73 63 5f 77 61 69 74  |e_icon(disc_wait|
00009250  25 2c 30 2c 22 53 6f 72  74 69 6e 67 20 49 6e 20  |%,0,"Sorting In |
00009260  50 72 6f 67 72 65 73 73  20 50 6c 65 61 73 65 20  |Progress Please |
00009270  57 61 69 74 22 29 3a f2  6f 70 65 6e 28 64 69 73  |Wait"):.open(dis|
00009280  63 5f 77 61 69 74 25 29  3a f2 72 65 64 72 61 77  |c_wait%):.redraw|
00009290  5f 77 69 6e 64 6f 77 28  64 69 73 63 5f 77 61 69  |_window(disc_wai|
000092a0  74 25 29 0d 2e ae 10 61  25 3d 31 3a f5 3a 72 25  |t%)....a%=1:.:r%|
000092b0  3d 61 25 0d 2e b8 24 74  65 6d 70 24 3d a4 75 70  |=a%...$temp$=.up|
000092c0  70 65 72 28 c0 64 69 73  63 6e 61 6d 65 24 28 61  |per(.discname$(a|
000092d0  25 29 2c 31 30 29 29 0d  2e c2 1c e7 20 74 65 6d  |%),10))..... tem|
000092e0  70 24 3c 3d 22 20 22 20  8c 20 74 65 6d 70 24 3d  |p$<=" " . temp$=|
000092f0  22 7e 22 0d 2e cc 19 e3  20 62 25 3d 61 25 20 b8  |"~"..... b%=a% .|
00009300  20 6d 61 78 5f 72 65 63  6f 72 64 25 0d 2e d6 10  | max_record%....|
00009310  73 75 62 63 6f 75 6e 74  25 2b 3d 31 0d 2e e0 2e  |subcount%+=1....|
00009320  e7 20 a4 75 70 70 65 72  28 c0 64 69 73 63 6e 61  |. .upper(.discna|
00009330  6d 65 24 28 62 25 29 2c  31 30 29 29 3c 3d 22 20  |me$(b%),10))<=" |
00009340  22 20 8c 20 e5 20 8d 54  48 6f 0d 2e ea 28 e7 20  |" . . .THo...(. |
00009350  a4 75 70 70 65 72 28 c0  64 69 73 63 6e 61 6d 65  |.upper(.discname|
00009360  24 28 62 25 29 2c 31 30  29 29 3c 74 65 6d 70 24  |$(b%),10))<temp$|
00009370  20 8c 0d 2e f4 2a 74 65  6d 70 24 3d a4 75 70 70  | ....*temp$=.upp|
00009380  65 72 28 c0 64 69 73 63  6e 61 6d 65 24 28 62 25  |er(.discname$(b%|
00009390  29 2c 31 30 29 29 3a 72  25 3d 62 25 0d 2e fe 05  |),10)):r%=b%....|
000093a0  cd 0d 2f 08 08 ed 20 62  25 0d 2f 12 37 c8 99 20  |../... b%./.7.. |
000093b0  22 48 6f 75 72 67 6c 61  73 73 5f 50 65 72 63 65  |"Hourglass_Perce|
000093c0  6e 74 61 67 65 22 2c a8  28 28 73 75 62 63 6f 75  |ntage",.((subcou|
000093d0  6e 74 25 2f 63 6f 75 6e  74 25 29 2a 31 30 30 29  |nt%/count%)*100)|
000093e0  0d 2f 1c 17 f2 73 77 61  70 5f 66 69 65 6c 64 73  |./...swap_fields|
000093f0  28 61 25 2c 72 25 29 0d  2f 26 09 61 25 2b 3d 31  |(a%,r%)./&.a%+=1|
00009400  0d 2f 30 14 fd 20 61 25  3e 6d 61 78 5f 72 65 63  |./0.. a%>max_rec|
00009410  6f 72 64 25 0d 2f 3a 14  72 65 63 6f 72 64 5f 6e  |ord%./:.record_n|
00009420  75 6d 62 65 72 25 3d 31  0d 2f 44 0b f2 75 70 64  |umber%=1./D..upd|
00009430  61 74 65 0d 2f 4e 16 c8  99 20 22 48 6f 75 72 67  |ate./N... "Hourg|
00009440  6c 61 73 73 5f 4f 66 66  22 0d 2f 58 42 f2 63 6c  |lass_Off"./XB.cl|
00009450  6f 73 65 28 64 69 73 63  5f 73 6f 72 74 25 29 3a  |ose(disc_sort%):|
00009460  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
00009470  65 6e 75 22 2c 2c 2d 31  3a f2 63 6c 6f 73 65 28  |enu",,-1:.close(|
00009480  64 69 73 63 5f 77 61 69  74 25 29 0d 2f 62 1d f2  |disc_wait%)./b..|
00009490  72 65 5f 74 69 74 6c 65  28 22 44 69 73 63 20 49  |re_title("Disc I|
000094a0  6e 64 65 78 20 2a 22 29  0d 2f 6c 0e 75 6e 73 61  |ndex *")./l.unsa|
000094b0  76 65 64 25 3d b9 0d 2f  76 05 e1 0d 2f 80 05 3a  |ved%=../v.../..:|
000094c0  0d 2f 8a 13 dd f2 73 6f  72 74 5f 64 69 73 63 74  |./....sort_disct|
000094d0  79 70 65 0d 2f 94 11 ea  20 61 25 2c 62 25 2c 74  |ype./... a%,b%,t|
000094e0  65 6d 70 24 0d 2f 9e 6b  f2 75 70 64 61 74 65 5f  |emp$./.k.update_|
000094f0  69 63 6f 6e 28 64 69 73  63 5f 77 61 69 74 25 2c  |icon(disc_wait%,|
00009500  30 2c 22 49 6e 69 74 69  61 6c 69 73 69 6e 67 20  |0,"Initialising |
00009510  53 6f 72 74 20 50 6c 65  61 73 65 20 57 61 69 74  |Sort Please Wait|
00009520  22 29 3a f2 6f 70 65 6e  28 64 69 73 63 5f 77 61  |"):.open(disc_wa|
00009530  69 74 25 29 3a f2 72 65  64 72 61 77 5f 77 69 6e  |it%):.redraw_win|
00009540  64 6f 77 28 64 69 73 63  5f 77 61 69 74 25 29 0d  |dow(disc_wait%).|
00009550  2f a8 15 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |/.... "Hourglass|
00009560  5f 4f 6e 22 0d 2f b2 58  63 6f 75 6e 74 25 3d 30  |_On"./.Xcount%=0|
00009570  3a 73 75 62 63 6f 75 6e  74 25 3d 30 3a 61 25 3d  |:subcount%=0:a%=|
00009580  31 3a f5 3a e3 20 62 25  3d 61 25 20 b8 20 6d 61  |1:.:. b%=a% . ma|
00009590  78 5f 72 65 63 6f 72 64  25 3a 63 6f 75 6e 74 25  |x_record%:count%|
000095a0  2b 3d 31 3a ed 3a 61 25  2b 3d 31 3a fd 20 61 25  |+=1:.:a%+=1:. a%|
000095b0  3e 6d 61 78 5f 72 65 63  6f 72 64 25 0d 2f bc 6d  |>max_record%./.m|
000095c0  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 64 69 73  |.update_icon(dis|
000095d0  63 5f 77 61 69 74 25 2c  30 2c 22 53 6f 72 74 69  |c_wait%,0,"Sorti|
000095e0  6e 67 20 49 6e 20 50 72  6f 67 72 65 73 73 20 50  |ng In Progress P|
000095f0  6c 65 61 73 65 20 57 61  69 74 22 29 3a f2 6f 70  |lease Wait"):.op|
00009600  65 6e 28 64 69 73 63 5f  77 61 69 74 25 29 3a f2  |en(disc_wait%):.|
00009610  72 65 64 72 61 77 5f 77  69 6e 64 6f 77 28 64 69  |redraw_window(di|
00009620  73 63 5f 77 61 69 74 25  29 0d 2f c6 10 61 25 3d  |sc_wait%)./..a%=|
00009630  31 3a f5 3a 72 25 3d 61  25 0d 2f d0 24 74 65 6d  |1:.:r%=a%./.$tem|
00009640  70 24 3d a4 75 70 70 65  72 28 c0 64 69 73 63 74  |p$=.upper(.disct|
00009650  79 70 65 24 28 61 25 29  2c 33 30 29 29 0d 2f da  |ype$(a%),30))./.|
00009660  1c e7 20 74 65 6d 70 24  3c 3d 22 20 22 20 8c 20  |.. temp$<=" " . |
00009670  74 65 6d 70 24 3d 22 7e  22 0d 2f e4 19 e3 20 62  |temp$="~"./... b|
00009680  25 3d 61 25 20 b8 20 6d  61 78 5f 72 65 63 6f 72  |%=a% . max_recor|
00009690  64 25 0d 2f ee 10 73 75  62 63 6f 75 6e 74 25 2b  |d%./..subcount%+|
000096a0  3d 31 0d 2f f8 2e e7 20  a4 75 70 70 65 72 28 c0  |=1./... .upper(.|
000096b0  64 69 73 63 74 79 70 65  24 28 62 25 29 2c 33 30  |disctype$(b%),30|
000096c0  29 29 3c 3d 22 20 22 20  8c 20 e5 20 8d 54 60 70  |))<=" " . . .T`p|
000096d0  0d 30 02 28 e7 20 a4 75  70 70 65 72 28 c0 64 69  |.0.(. .upper(.di|
000096e0  73 63 74 79 70 65 24 28  62 25 29 2c 33 30 29 29  |sctype$(b%),30))|
000096f0  3c 74 65 6d 70 24 20 8c  0d 30 0c 2a 74 65 6d 70  |<temp$ ..0.*temp|
00009700  24 3d a4 75 70 70 65 72  28 c0 64 69 73 63 74 79  |$=.upper(.discty|
00009710  70 65 24 28 62 25 29 2c  33 30 29 29 3a 72 25 3d  |pe$(b%),30)):r%=|
00009720  62 25 0d 30 16 05 cd 0d  30 20 08 ed 20 62 25 0d  |b%.0....0 .. b%.|
00009730  30 2a 37 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |0*7.. "Hourglass|
00009740  5f 50 65 72 63 65 6e 74  61 67 65 22 2c a8 28 28  |_Percentage",.((|
00009750  73 75 62 63 6f 75 6e 74  25 2f 63 6f 75 6e 74 25  |subcount%/count%|
00009760  29 2a 31 30 30 29 0d 30  34 17 f2 73 77 61 70 5f  |)*100).04..swap_|
00009770  66 69 65 6c 64 73 28 61  25 2c 72 25 29 0d 30 3e  |fields(a%,r%).0>|
00009780  09 61 25 2b 3d 31 0d 30  48 14 fd 20 61 25 3e 6d  |.a%+=1.0H.. a%>m|
00009790  61 78 5f 72 65 63 6f 72  64 25 0d 30 52 14 72 65  |ax_record%.0R.re|
000097a0  63 6f 72 64 5f 6e 75 6d  62 65 72 25 3d 31 0d 30  |cord_number%=1.0|
000097b0  5c 0b f2 75 70 64 61 74  65 0d 30 66 16 c8 99 20  |\..update.0f... |
000097c0  22 48 6f 75 72 67 6c 61  73 73 5f 4f 66 66 22 0d  |"Hourglass_Off".|
000097d0  30 70 42 f2 63 6c 6f 73  65 28 64 69 73 63 5f 73  |0pB.close(disc_s|
000097e0  6f 72 74 25 29 3a c8 99  20 22 57 69 6d 70 5f 43  |ort%):.. "Wimp_C|
000097f0  72 65 61 74 65 4d 65 6e  75 22 2c 2c 2d 31 3a f2  |reateMenu",,-1:.|
00009800  63 6c 6f 73 65 28 64 69  73 63 5f 77 61 69 74 25  |close(disc_wait%|
00009810  29 0d 30 7a 1d f2 72 65  5f 74 69 74 6c 65 28 22  |).0z..re_title("|
00009820  44 69 73 63 20 49 6e 64  65 78 20 2a 22 29 0d 30  |Disc Index *").0|
00009830  84 0e 75 6e 73 61 76 65  64 25 3d b9 0d 30 8e 05  |..unsaved%=..0..|
00009840  e1 0d 30 98 05 3a 0d 30  a2 18 dd f2 73 77 61 70  |..0..:.0....swap|
00009850  5f 66 69 65 6c 64 73 28  61 25 2c 62 25 29 0d 30  |_fields(a%,b%).0|
00009860  ac 60 c8 94 20 64 69 73  63 6e 61 6d 65 24 28 61  |.`.. discname$(a|
00009870  25 29 2c 64 69 73 63 6e  61 6d 65 24 28 62 25 29  |%),discname$(b%)|
00009880  3a c8 94 20 64 69 73 63  74 79 70 65 24 28 61 25  |:.. disctype$(a%|
00009890  29 2c 64 69 73 63 74 79  70 65 24 28 62 25 29 3a  |),disctype$(b%):|
000098a0  c8 94 20 64 69 73 63 66  72 65 65 24 28 61 25 29  |.. discfree$(a%)|
000098b0  2c 64 69 73 63 66 72 65  65 24 28 62 25 29 0d 30  |,discfree$(b%).0|
000098c0  b6 31 e3 20 49 25 3d 31  20 b8 20 35 30 3a c8 94  |.1. I%=1 . 50:..|
000098d0  20 6e 61 6d 65 24 28 61  25 2c 49 25 29 2c 6e 61  | name$(a%,I%),na|
000098e0  6d 65 24 28 62 25 2c 49  25 29 3a ed 20 49 25 0d  |me$(b%,I%):. I%.|
000098f0  30 c0 36 e3 20 49 25 3d  31 20 b8 20 34 3a c8 94  |0.6. I%=1 . 4:..|
00009900  20 63 6f 6d 6d 65 6e 74  24 28 61 25 2c 49 25 29  | comment$(a%,I%)|
00009910  2c 63 6f 6d 6d 65 6e 74  24 28 62 25 2c 49 25 29  |,comment$(b%,I%)|
00009920  3a ed 20 49 25 0d 30 ca  05 e1 0d 30 d4 05 3a 0d  |:. I%.0....0..:.|
00009930  30 de 19 dd f2 69 6e 69  74 69 61 6c 69 73 65 5f  |0....initialise_|
00009940  73 63 61 6e 6e 69 6e 67  0d 30 e8 2b de 20 64 69  |scanning.0.+. di|
00009950  72 6e 61 6d 65 25 20 26  31 30 30 2c 74 61 72 67  |rname% &100,targ|
00009960  65 74 25 20 31 30 30 2c  72 65 73 75 6c 74 25 20  |et% 100,result% |
00009970  31 30 30 0d 30 f2 0b 6d  61 78 25 3d 34 39 0d 30  |100.0..max%=49.0|
00009980  fc 32 de 20 66 69 6e 64  24 28 6d 61 78 25 29 2c  |.2. find$(max%),|
00009990  74 79 70 65 25 28 6d 61  78 25 29 2c 74 65 78 74  |type%(max%),text|
000099a0  31 25 20 31 32 3a 24 74  65 78 74 31 25 3d 22 22  |1% 12:$text1%=""|
000099b0  0d 31 06 27 72 65 61 73  6f 6e 25 3d 2d 31 3a 66  |.1.'reason%=-1:f|
000099c0  69 6c 65 73 25 3d b9 3a  64 69 72 25 3d b9 3a 66  |iles%=.:dir%=.:f|
000099d0  69 6e 64 73 25 3d 30 0d  31 10 05 e1 0d 31 1a 05  |inds%=0.1....1..|
000099e0  3a 0d 31 24 12 dd f2 73  63 61 6e 5f 64 72 69 76  |:.1$...scan_driv|
000099f0  65 5f 30 0d 31 2e 15 c8  99 20 22 48 6f 75 72 67  |e_0.1.... "Hourg|
00009a00  6c 61 73 73 5f 4f 6e 22  0d 31 38 2e 66 69 6e 64  |lass_On".18.find|
00009a10  73 25 3d 31 3a 66 69 6e  64 24 28 29 3d 22 22 3a  |s%=1:find$()="":|
00009a20  70 61 74 68 24 3d 22 41  44 46 53 3a 3a 30 2e 24  |path$="ADFS::0.$|
00009a30  22 2b bd 28 30 29 0d 31  42 17 f2 73 65 61 72 63  |"+.(0).1B..searc|
00009a40  68 5f 64 69 73 63 28 70  61 74 68 24 29 0d 31 4c  |h_disc(path$).1L|
00009a50  16 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
00009a60  66 66 22 0d 31 56 35 e7  20 6d 6f 76 65 74 6f 6e  |ff".1V5. moveton|
00009a70  65 78 74 25 3d 31 20 8c  20 f2 72 65 61 64 3a 72  |ext%=1 . .read:r|
00009a80  65 63 6f 72 64 5f 6e 75  6d 62 65 72 25 2b 3d 31  |ecord_number%+=1|
00009a90  3a f2 75 70 64 61 74 65  0d 31 60 05 e1 0d 31 6a  |:.update.1`...1j|
00009aa0  05 3a 0d 31 74 18 dd f2  73 65 61 72 63 68 5f 64  |.:.1t...search_d|
00009ab0  69 73 63 28 70 61 74 68  24 29 0d 31 7e 0f 74 61  |isc(path$).1~.ta|
00009ac0  72 67 65 74 24 3d 22 2a  22 0d 31 88 15 70 61 74  |rget$="*".1..pat|
00009ad0  68 24 3d 22 41 44 46 53  3a 3a 30 2e 24 22 0d 31  |h$="ADFS::0.$".1|
00009ae0  92 17 66 69 6e 64 73 25  3d 31 3a 66 69 6e 64 24  |..finds%=1:find$|
00009af0  28 29 3d 22 22 0d 31 9c  17 f2 64 69 73 63 5f 73  |()="".1...disc_s|
00009b00  65 61 72 63 68 28 70 61  74 68 24 29 0d 31 a6 11  |earch(path$).1..|
00009b10  24 64 69 72 6e 61 6d 65  25 3d 22 30 22 0d 31 b0  |$dirname%="0".1.|
00009b20  37 c8 99 20 22 41 44 46  53 5f 46 72 65 65 53 70  |7.. "ADFS_FreeSp|
00009b30  61 63 65 22 2c 64 69 72  6e 61 6d 65 25 20 b8 20  |ace",dirname% . |
00009b40  73 63 61 6e 74 6f 74 61  6c 25 2c 73 63 61 6e 66  |scantotal%,scanf|
00009b50  72 65 65 25 0d 31 ba 32  f2 75 70 64 61 74 65 5f  |ree%.1.2.update_|
00009b60  69 63 6f 6e 28 64 69 73  63 5f 69 6e 64 65 78 25  |icon(disc_index%|
00009b70  2c 32 32 2c c3 28 73 63  61 6e 66 72 65 65 25 2f  |,22,.(scanfree%/|
00009b80  31 30 32 34 29 29 0d 31  c4 24 c8 99 20 22 41 44  |1024)).1.$.. "AD|
00009b90  46 53 5f 44 65 73 63 72  69 62 65 44 69 73 63 22  |FS_DescribeDisc"|
00009ba0  2c 22 3a 30 22 2c 72 65  63 25 0d 31 ce 27 69 25  |,":0",rec%.1.'i%|
00009bb0  3d 72 65 63 25 2b 32 32  3a c8 95 20 3f 69 25 3e  |=rec%+22:.. ?i%>|
00009bc0  33 32 3a 69 25 2b 3d 31  3a ce 3a 3f 69 25 3d 31  |32:i%+=1:.:?i%=1|
00009bd0  33 0d 31 d8 26 73 63 61  6e 6e 65 64 64 69 73 63  |3.1.&scanneddisc|
00009be0  6e 61 6d 65 24 3d c0 28  24 28 72 65 63 25 2b 32  |name$=.($(rec%+2|
00009bf0  32 29 29 2c 31 30 29 0d  31 e2 31 f2 75 70 64 61  |2)),10).1.1.upda|
00009c00  74 65 5f 69 63 6f 6e 28  64 69 73 63 5f 69 6e 64  |te_icon(disc_ind|
00009c10  65 78 25 2c 31 32 2c 73  63 61 6e 6e 65 64 64 69  |ex%,12,scanneddi|
00009c20  73 63 6e 61 6d 65 24 29  0d 31 ec 14 f2 75 70 64  |scname$).1...upd|
00009c30  61 74 65 5f 73 63 61 6e  6e 69 6e 67 0d 31 f6 05  |ate_scanning.1..|
00009c40  e1 0d 32 00 05 3a 0d 32  0a 18 dd f2 64 69 73 63  |..2..:.2....disc|
00009c50  5f 73 65 61 72 63 68 28  70 61 74 68 24 29 0d 32  |_search(path$).2|
00009c60  14 0b ea 20 6e 65 78 74  25 0d 32 1e 0b 6e 65 78  |... next%.2..nex|
00009c70  74 25 3d 30 0d 32 28 05  f5 0d 32 32 13 24 64 69  |t%=0.2(...22.$di|
00009c80  72 6e 61 6d 65 25 3d 70  61 74 68 24 0d 32 3c 14  |rname%=path$.2<.|
00009c90  24 74 61 72 67 65 74 25  3d 74 61 72 67 65 74 24  |$target%=target$|
00009ca0  0d 32 46 4c c8 99 20 22  4f 53 5f 47 42 50 42 22  |.2FL.. "OS_GBPB"|
00009cb0  2c 31 30 2c 64 69 72 6e  61 6d 65 25 2c 72 65 73  |,10,dirname%,res|
00009cc0  75 6c 74 25 2c 31 2c 6e  65 78 74 25 2c 31 30 30  |ult%,1,next%,100|
00009cd0  2c 74 61 72 67 65 74 25  20 b8 20 2c 2c 2c 6f 62  |,target% . ,,,ob|
00009ce0  6a 65 63 74 73 25 2c 6e  65 78 74 25 0d 32 50 12  |jects%,next%.2P.|
00009cf0  e7 20 6f 62 6a 65 63 74  73 25 3e 30 20 8c 0d 32  |. objects%>0 ..2|
00009d00  5a 14 74 79 70 65 25 3d  72 65 73 75 6c 74 25 3f  |Z.type%=result%?|
00009d10  31 36 0d 32 64 14 61 25  3d 32 30 3a 72 65 73 75  |16.2d.a%=20:resu|
00009d20  6c 74 24 3d 22 22 0d 32  6e 05 f5 0d 32 78 11 63  |lt$="".2n...2x.c|
00009d30  25 3d 72 65 73 75 6c 74  25 3f 61 25 0d 32 82 1c  |%=result%?a%.2..|
00009d40  e7 20 63 25 3c 3e 30 20  8c 20 72 65 73 75 6c 74  |. c%<>0 . result|
00009d50  24 2b 3d bd 28 63 25 29  0d 32 8c 09 61 25 2b 3d  |$+=.(c%).2..a%+=|
00009d60  31 0d 32 96 0a fd 20 63  25 3d 30 0d 32 a0 13 e7  |1.2... c%=0.2...|
00009d70  20 66 69 6e 64 73 25 3c  6d 61 78 25 20 8c 0d 32  | finds%<max% ..2|
00009d80  aa 19 66 69 6e 64 24 28  66 69 6e 64 73 25 29 3d  |..find$(finds%)=|
00009d90  72 65 73 75 6c 74 24 0d  32 b4 17 74 79 70 65 25  |result$.2..type%|
00009da0  28 66 69 6e 64 73 25 29  3d 74 79 70 65 25 0d 32  |(finds%)=type%.2|
00009db0  be 0d 66 69 6e 64 73 25  2b 3d 31 0d 32 c8 05 cd  |..finds%+=1.2...|
00009dc0  0d 32 d2 51 e7 20 28 74  79 70 65 25 3d 32 20 80  |.2.Q. (type%=2 .|
00009dd0  20 c0 72 65 73 75 6c 74  24 2c 31 29 3c 3e 22 21  | .result$,1)<>"!|
00009de0  22 20 80 20 73 63 61 6e  64 69 72 25 3d 31 29 20  |" . scandir%=1) |
00009df0  8c 20 f2 64 69 73 63 5f  73 65 61 72 63 68 28 70  |. .disc_search(p|
00009e00  61 74 68 24 2b 22 2e 22  2b 72 65 73 75 6c 74 24  |ath$+"."+result$|
00009e10  29 0d 32 dc 50 e7 20 28  74 79 70 65 25 3d 32 20  |).2.P. (type%=2 |
00009e20  80 20 c0 72 65 73 75 6c  74 24 2c 31 29 3d 22 21  |. .result$,1)="!|
00009e30  22 20 80 20 73 63 61 6e  61 70 70 25 3d 31 29 20  |" . scanapp%=1) |
00009e40  8c 20 f2 64 69 73 63 5f  73 65 61 72 63 68 28 70  |. .disc_search(p|
00009e50  61 74 68 24 2b 22 2e 22  2b 72 65 73 75 6c 74 24  |ath$+"."+result$|
00009e60  29 0d 32 e6 05 cd 0d 32  f0 0d fd 20 6e 65 78 74  |).2....2... next|
00009e70  25 3c 30 0d 32 fa 05 e1  0d 33 04 05 3a 0d 33 0e  |%<0.2....3..:.3.|
00009e80  15 dd f2 75 70 64 61 74  65 5f 73 63 61 6e 6e 69  |...update_scanni|
00009e90  6e 67 0d 33 18 0e e3 20  58 3d 31 20 b8 20 34 38  |ng.3... X=1 . 48|
00009ea0  0d 33 22 2b f2 75 70 64  61 74 65 5f 69 63 6f 6e  |.3"+.update_icon|
00009eb0  28 64 69 73 63 5f 74 72  61 63 6b 73 25 2c 58 2d  |(disc_tracks%,X-|
00009ec0  31 2c 66 69 6e 64 24 28  58 29 29 0d 33 2c 05 ed  |1,find$(X)).3,..|
00009ed0  0d 33 36 09 f2 72 65 61  64 0d 33 40 05 e1 0d 33  |.36..read.3@...3|
00009ee0  4a 05 3a 0d 33 54 15 dd  f2 70 72 69 6e 74 65 72  |J.:.3T...printer|
00009ef0  5f 64 72 69 76 65 72 73  0d 33 5e 6e f2 75 70 64  |_drivers.3^n.upd|
00009f00  61 74 65 5f 69 63 6f 6e  28 64 69 73 63 5f 77 61  |ate_icon(disc_wa|
00009f10  69 74 25 2c 30 2c 22 50  72 69 6e 74 69 6e 67 20  |it%,0,"Printing |
00009f20  49 6e 20 50 72 6f 67 72  65 73 73 20 50 6c 65 61  |In Progress Plea|
00009f30  73 65 20 57 61 69 74 22  29 3a f2 6f 70 65 6e 28  |se Wait"):.open(|
00009f40  64 69 73 63 5f 77 61 69  74 25 29 3a f2 72 65 64  |disc_wait%):.red|
00009f50  72 61 77 5f 77 69 6e 64  6f 77 28 64 69 73 63 5f  |raw_window(disc_|
00009f60  77 61 69 74 25 29 0d 33  68 27 63 6f 70 69 65 73  |wait%).3h'copies|
00009f70  25 3d bb 28 a4 69 6e 64  69 72 65 63 74 28 64 69  |%=.(.indirect(di|
00009f80  73 63 5f 70 72 69 6e 74  25 2c 36 29 29 0d 33 72  |sc_print%,6)).3r|
00009f90  75 e7 20 63 6f 70 69 65  73 25 3d 30 20 8c 20 c8  |u. copies%=0 . .|
00009fa0  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 66 66  |. "Hourglass_Off|
00009fb0  22 3a c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |":.. "Wimp_Creat|
00009fc0  65 4d 65 6e 75 22 2c 2c  2d 31 3a 85 20 31 2c 22  |eMenu",,-1:. 1,"|
00009fd0  53 65 74 20 6e 75 6d 62  65 72 20 6f 66 20 63 6f  |Set number of co|
00009fe0  70 69 65 73 20 74 6f 20  61 20 76 61 6c 75 65 20  |pies to a value |
00009ff0  67 72 65 61 74 65 72 20  74 68 61 6e 20 30 2e 22  |greater than 0."|
0000a000  3a e1 0d 33 7c 2d de 20  74 72 61 6e 73 25 20 31  |:..3|-. trans% 1|
0000a010  36 2c 72 65 63 74 25 20  31 36 2c 70 6c 6f 74 61  |6,rect% 16,plota|
0000a020  74 25 20 38 2c 72 65 63  74 69 6e 25 20 31 36 0d  |t% 8,rectin% 16.|
0000a030  33 86 43 ff 20 28 22 52  4d 45 6e 73 75 72 65 20  |3.C. ("RMEnsure |
0000a040  50 44 72 69 76 65 72 20  30 20 45 52 52 4f 52 20  |PDriver 0 ERROR |
0000a050  32 35 35 20 4e 6f 20 70  72 69 6e 74 65 72 20 64  |255 No printer d|
0000a060  72 69 76 65 72 20 69 6e  73 74 61 6c 6c 65 64 2e  |river installed.|
0000a070  22 29 0d 33 90 15 c8 99  20 22 48 6f 75 72 67 6c  |").3.... "Hourgl|
0000a080  61 73 73 5f 4f 6e 22 0d  33 9a 0a 63 6f 70 79 3d  |ass_On".3..copy=|
0000a090  30 0d 33 a4 05 f5 0d 33  ae 15 70 66 25 3d ae 28  |0.3....3..pf%=.(|
0000a0a0  22 70 72 69 6e 74 65 72  3a 22 29 0d 33 b8 29 e7  |"printer:").3.).|
0000a0b0  20 70 66 25 3d 30 20 8c  20 85 20 31 2c 22 50 72  | pf%=0 . . 1,"Pr|
0000a0c0  69 6e 74 65 72 20 6e 6f  74 20 61 76 61 69 6c 61  |inter not availa|
0000a0d0  62 6c 65 22 0d 33 c2 07  ea 20 85 0d 33 cc 41 ee  |ble".3... ..3.A.|
0000a0e0  20 85 20 ea 3a f7 20 85  3a d9 23 70 66 25 3a f2  | . .:. .:.#pf%:.|
0000a0f0  63 6c 6f 73 65 5f 61 6c  6c 3a f2 6d 6f 76 65 5f  |close_all:.move_|
0000a100  63 61 72 65 74 28 64 69  73 63 5f 69 6e 64 65 78  |caret(disc_index|
0000a110  25 2c 31 33 29 3a 85 20  9f 2c f6 24 0d 33 d6 38  |%,13):. .,.$.3.8|
0000a120  c8 99 20 22 50 44 72 69  76 65 72 5f 53 65 6c 65  |.. "PDriver_Sele|
0000a130  63 74 4a 6f 62 22 2c 70  66 25 2c 22 44 69 73 63  |ctJob",pf%,"Disc|
0000a140  20 49 6e 64 65 78 20 50  72 69 6e 74 22 20 b8 20  | Index Print" . |
0000a150  6f 6c 64 25 0d 33 e0 07  ea 20 85 0d 33 ea 34 ee  |old%.3... ..3.4.|
0000a160  20 85 20 ea 3a f7 20 85  3a f2 63 6c 6f 73 65 5f  | . .:. .:.close_|
0000a170  61 6c 6c 3a f2 6d 6f 76  65 5f 63 61 72 65 74 28  |all:.move_caret(|
0000a180  64 69 73 63 5f 69 6e 64  65 78 25 2c 31 33 29 0d  |disc_index%,13).|
0000a190  33 f4 41 3a c8 99 20 22  50 44 72 69 76 65 72 5f  |3.A:.. "PDriver_|
0000a1a0  41 62 6f 72 74 4a 6f 62  22 2c 70 66 25 3a c8 99  |AbortJob",pf%:..|
0000a1b0  20 22 50 44 72 69 76 65  72 5f 53 65 6c 65 63 74  | "PDriver_Select|
0000a1c0  4a 6f 62 22 2c 6f 6c 64  25 3a 85 20 9f 2c f6 24  |Job",old%:. .,.$|
0000a1d0  0d 33 fe 17 72 65 63 74  25 21 30 3d 30 3a 72 65  |.3..rect%!0=0:re|
0000a1e0  63 74 25 21 34 3d 30 0d  34 08 1d 72 65 63 74 25  |ct%!4=0.4..rect%|
0000a1f0  21 38 3d 31 30 30 30 3a  72 65 63 74 25 21 31 32  |!8=1000:rect%!12|
0000a200  3d 38 35 30 0d 34 12 21  74 72 61 6e 73 25 21 30  |=850.4.!trans%!0|
0000a210  3d 31 3c 3c 31 36 3a 74  72 61 6e 73 25 21 34 3d  |=1<<16:trans%!4=|
0000a220  30 3c 3c 31 36 0d 34 1c  22 74 72 61 6e 73 25 21  |0<<16.4."trans%!|
0000a230  38 3d 30 3c 3c 31 36 3a  74 72 61 6e 73 25 21 31  |8=0<<16:trans%!1|
0000a240  32 3d 31 3c 3c 31 36 0d  34 26 27 70 6c 6f 74 61  |2=1<<16.4&'plota|
0000a250  74 25 21 30 3d 31 2a 37  32 30 30 30 3a 70 6c 6f  |t%!0=1*72000:plo|
0000a260  74 61 74 25 21 34 3d 38  2a 37 32 30 30 30 0d 34  |tat%!4=8*72000.4|
0000a270  30 3f c8 99 20 22 50 44  72 69 76 65 72 5f 47 69  |0?.. "PDriver_Gi|
0000a280  76 65 52 65 63 74 61 6e  67 6c 65 22 2c 30 2c 72  |veRectangle",0,r|
0000a290  65 63 74 25 2c 74 72 61  6e 73 25 2c 70 6c 6f 74  |ect%,trans%,plot|
0000a2a0  61 74 25 2c 26 46 46 46  46 46 46 30 30 0d 34 3a  |at%,&FFFFFF00.4:|
0000a2b0  2f c8 99 20 22 50 44 72  69 76 65 72 5f 44 72 61  |/.. "PDriver_Dra|
0000a2c0  77 50 61 67 65 22 2c 31  2c 72 65 63 74 69 6e 25  |wPage",1,rectin%|
0000a2d0  2c 30 2c 30 20 b8 20 6d  6f 72 65 25 0d 34 44 0c  |,0,0 . more%.4D.|
0000a2e0  c8 95 20 6d 6f 72 65 25  0d 34 4e 80 e7 20 70 72  |.. more%.4N.. pr|
0000a2f0  69 6e 74 77 68 61 74 24  3d 22 41 6c 6c 22 20 8c  |intwhat$="All" .|
0000a300  20 85 20 31 2c 22 55 6e  61 62 6c 65 20 74 6f 20  | . 1,"Unable to |
0000a310  70 72 69 6e 74 20 27 46  75 6c 6c 20 44 65 74 61  |print 'Full Deta|
0000a320  69 6c 73 27 20 76 69 61  20 52 49 53 43 20 4f 53  |ils' via RISC OS|
0000a330  20 50 72 69 6e 74 65 72  20 44 72 69 76 65 72 73  | Printer Drivers|
0000a340  2c 20 53 6f 72 72 79 21  21 20 20 55 73 65 20 74  |, Sorry!!  Use t|
0000a350  68 65 20 27 53 61 76 65  20 54 65 78 74 27 20 6f  |he 'Save Text' o|
0000a360  70 74 69 6f 6e 21 21 22  0d 34 58 7f e7 20 70 72  |ption!!".4X.. pr|
0000a370  69 6e 74 77 68 61 74 24  3d 22 41 54 22 20 8c 20  |intwhat$="AT" . |
0000a380  85 20 31 2c 22 55 6e 61  62 6c 65 20 74 6f 20 70  |. 1,"Unable to p|
0000a390  72 69 6e 74 20 27 46 75  6c 6c 20 44 65 74 61 69  |rint 'Full Detai|
0000a3a0  6c 73 27 20 76 69 61 20  52 49 53 43 20 4f 53 20  |ls' via RISC OS |
0000a3b0  50 72 69 6e 74 65 72 20  44 72 69 76 65 72 73 2c  |Printer Drivers,|
0000a3c0  20 53 6f 72 72 79 21 21  20 20 55 73 65 20 74 68  | Sorry!!  Use th|
0000a3d0  65 20 27 53 61 76 65 20  54 65 78 74 27 20 6f 70  |e 'Save Text' op|
0000a3e0  74 69 6f 6e 21 21 22 0d  34 62 1a e7 20 70 72 69  |tion!!".4b.. pri|
0000a3f0  6e 74 77 68 61 74 24 3d  22 4c 61 62 65 6c 22 20  |ntwhat$="Label" |
0000a400  8c 0d 34 6c 2e 69 6e 6c  61 79 5f 6e 75 6d 62 65  |..4l.inlay_numbe|
0000a410  72 25 3d bb 28 a4 69 6e  64 69 72 65 63 74 28 64  |r%=.(.indirect(d|
0000a420  69 73 63 5f 70 72 69 6e  74 25 2c 31 33 29 29 0d  |isc_print%,13)).|
0000a430  34 76 4d c8 99 20 22 43  6f 6c 6f 75 72 54 72 61  |4vM.. "ColourTra|
0000a440  6e 73 5f 53 65 74 47 43  4f 4c 22 2c 30 3a c8 99  |ns_SetGCOL",0:..|
0000a450  20 22 43 6f 6c 6f 75 72  54 72 61 6e 73 5f 53 65  | "ColourTrans_Se|
0000a460  74 46 6f 6e 74 43 6f 6c  6f 75 72 73 22 2c 2c 26  |tFontColours",,&|
0000a470  46 46 46 46 46 46 30 30  2c 30 2c 36 0d 34 80 11  |FFFFFF00,0,6.4..|
0000a480  c8 93 20 30 2c 30 2c 34  36 34 2c 39 35 0d 34 8a  |.. 0,0,464,95.4.|
0000a490  12 c8 93 20 30 2c 30 2c  34 36 34 2c 31 31 35 0d  |... 0,0,464,115.|
0000a4a0  34 94 12 c8 93 20 30 2c  30 2c 34 36 34 2c 35 31  |4.... 0,0,464,51|
0000a4b0  35 0d 34 9e 1f c8 99 20  22 46 6f 6e 74 5f 53 65  |5.4.... "Font_Se|
0000a4c0  74 46 6f 6e 74 22 2c 68  6f 6d 65 72 74 6f 6e 25  |tFont",homerton%|
0000a4d0  0d 34 a8 31 c8 99 20 22  46 6f 6e 74 5f 50 61 69  |.4.1.. "Font_Pai|
0000a4e0  6e 74 22 2c 2c 22 3c 3d  20 57 72 69 74 65 20 50  |nt",,"<= Write P|
0000a4f0  72 6f 74 65 63 74 22 2c  26 31 30 2c 32 30 2c 35  |rotect",&10,20,5|
0000a500  35 0d 34 b2 30 c8 99 20  22 46 6f 6e 74 5f 50 61  |5.4.0.. "Font_Pa|
0000a510  69 6e 74 22 2c 2c 22 3c  3d 20 57 72 69 74 65 20  |int",,"<= Write |
0000a520  45 6e 61 62 6c 65 22 2c  26 31 30 2c 32 30 2c 31  |Enable",&10,20,1|
0000a530  35 0d 34 bc 23 c8 99 20  22 46 6f 6e 74 5f 53 65  |5.4.#.. "Font_Se|
0000a540  74 46 6f 6e 74 22 2c 74  72 69 6e 69 74 79 73 6d  |tFont",trinitysm|
0000a550  61 6c 6c 25 0d 34 c6 77  c8 99 20 22 46 6f 6e 74  |all%.4.w.. "Font|
0000a560  5f 50 61 69 6e 74 22 2c  2c 64 69 73 63 6e 61 6d  |_Paint",,discnam|
0000a570  65 24 28 69 6e 6c 61 79  5f 6e 75 6d 62 65 72 25  |e$(inlay_number%|
0000a580  29 2b 28 c4 32 30 2d a9  28 64 69 73 63 6e 61 6d  |)+(.20-.(discnam|
0000a590  65 24 28 69 6e 6c 61 79  5f 6e 75 6d 62 65 72 25  |e$(inlay_number%|
0000a5a0  29 29 2c 22 20 22 29 29  2b 64 69 73 63 74 79 70  |))," "))+disctyp|
0000a5b0  65 24 28 69 6e 6c 61 79  5f 6e 75 6d 62 65 72 25  |e$(inlay_number%|
0000a5c0  29 2c 26 31 30 2c 32 30  2c 39 38 0d 34 d0 22 c8  |),&10,20,98.4.".|
0000a5d0  99 20 22 46 6f 6e 74 5f  53 65 74 46 6f 6e 74 22  |. "Font_SetFont"|
0000a5e0  2c 68 6f 6d 65 72 74 6f  6e 62 69 67 25 0d 34 da  |,homertonbig%.4.|
0000a5f0  38 c8 99 20 22 46 6f 6e  74 5f 50 61 69 6e 74 22  |8.. "Font_Paint"|
0000a600  2c 2c 64 69 73 63 6e 61  6d 65 24 28 69 6e 6c 61  |,,discname$(inla|
0000a610  79 5f 6e 75 6d 62 65 72  25 29 2c 26 31 30 2c 32  |y_number%),&10,2|
0000a620  30 2c 34 37 30 0d 34 e4  1d c8 99 20 22 46 6f 6e  |0,470.4.... "Fon|
0000a630  74 5f 53 65 74 46 6f 6e  74 22 2c 63 6f 72 70 75  |t_SetFont",corpu|
0000a640  73 25 0d 34 ee 72 c8 99  20 22 46 6f 6e 74 5f 50  |s%.4.r.. "Font_P|
0000a650  61 69 6e 74 22 2c 2c 6e  61 6d 65 24 28 69 6e 6c  |aint",,name$(inl|
0000a660  61 79 5f 6e 75 6d 62 65  72 25 2c 31 29 2b 28 c4  |ay_number%,1)+(.|
0000a670  31 35 2d a9 28 6e 61 6d  65 24 28 69 6e 6c 61 79  |15-.(name$(inlay|
0000a680  5f 6e 75 6d 62 65 72 25  2c 31 29 29 2c 22 20 22  |_number%,1))," "|
0000a690  29 29 2b 6e 61 6d 65 24  28 69 6e 6c 61 79 5f 6e  |))+name$(inlay_n|
0000a6a0  75 6d 62 65 72 25 2c 32  29 2c 26 31 30 2c 32 30  |umber%,2),&10,20|
0000a6b0  2c 34 35 30 0d 34 f8 72  c8 99 20 22 46 6f 6e 74  |,450.4.r.. "Font|
0000a6c0  5f 50 61 69 6e 74 22 2c  2c 6e 61 6d 65 24 28 69  |_Paint",,name$(i|
0000a6d0  6e 6c 61 79 5f 6e 75 6d  62 65 72 25 2c 33 29 2b  |nlay_number%,3)+|
0000a6e0  28 c4 31 35 2d a9 28 6e  61 6d 65 24 28 69 6e 6c  |(.15-.(name$(inl|
0000a6f0  61 79 5f 6e 75 6d 62 65  72 25 2c 33 29 29 2c 22  |ay_number%,3)),"|
0000a700  20 22 29 29 2b 6e 61 6d  65 24 28 69 6e 6c 61 79  | "))+name$(inlay|
0000a710  5f 6e 75 6d 62 65 72 25  2c 34 29 2c 26 31 30 2c  |_number%,4),&10,|
0000a720  32 30 2c 34 32 35 0d 35  02 72 c8 99 20 22 46 6f  |20,425.5.r.. "Fo|
0000a730  6e 74 5f 50 61 69 6e 74  22 2c 2c 6e 61 6d 65 24  |nt_Paint",,name$|
0000a740  28 69 6e 6c 61 79 5f 6e  75 6d 62 65 72 25 2c 35  |(inlay_number%,5|
0000a750  29 2b 28 c4 31 35 2d a9  28 6e 61 6d 65 24 28 69  |)+(.15-.(name$(i|
0000a760  6e 6c 61 79 5f 6e 75 6d  62 65 72 25 2c 35 29 29  |nlay_number%,5))|
0000a770  2c 22 20 22 29 29 2b 6e  61 6d 65 24 28 69 6e 6c  |," "))+name$(inl|
0000a780  61 79 5f 6e 75 6d 62 65  72 25 2c 36 29 2c 26 31  |ay_number%,6),&1|
0000a790  30 2c 32 30 2c 34 30 30  0d 35 0c 72 c8 99 20 22  |0,20,400.5.r.. "|
0000a7a0  46 6f 6e 74 5f 50 61 69  6e 74 22 2c 2c 6e 61 6d  |Font_Paint",,nam|
0000a7b0  65 24 28 69 6e 6c 61 79  5f 6e 75 6d 62 65 72 25  |e$(inlay_number%|
0000a7c0  2c 37 29 2b 28 c4 31 35  2d a9 28 6e 61 6d 65 24  |,7)+(.15-.(name$|
0000a7d0  28 69 6e 6c 61 79 5f 6e  75 6d 62 65 72 25 2c 37  |(inlay_number%,7|
0000a7e0  29 29 2c 22 20 22 29 29  2b 6e 61 6d 65 24 28 69  |))," "))+name$(i|
0000a7f0  6e 6c 61 79 5f 6e 75 6d  62 65 72 25 2c 38 29 2c  |nlay_number%,8),|
0000a800  26 31 30 2c 32 30 2c 33  37 35 0d 35 16 73 c8 99  |&10,20,375.5.s..|
0000a810  20 22 46 6f 6e 74 5f 50  61 69 6e 74 22 2c 2c 6e  | "Font_Paint",,n|
0000a820  61 6d 65 24 28 69 6e 6c  61 79 5f 6e 75 6d 62 65  |ame$(inlay_numbe|
0000a830  72 25 2c 39 29 2b 28 c4  31 35 2d a9 28 6e 61 6d  |r%,9)+(.15-.(nam|
0000a840  65 24 28 69 6e 6c 61 79  5f 6e 75 6d 62 65 72 25  |e$(inlay_number%|
0000a850  2c 39 29 29 2c 22 20 22  29 29 2b 6e 61 6d 65 24  |,9))," "))+name$|
0000a860  28 69 6e 6c 61 79 5f 6e  75 6d 62 65 72 25 2c 31  |(inlay_number%,1|
0000a870  30 29 2c 26 31 30 2c 32  30 2c 33 35 30 0d 35 20  |0),&10,20,350.5 |
0000a880  75 c8 99 20 22 46 6f 6e  74 5f 50 61 69 6e 74 22  |u.. "Font_Paint"|
0000a890  2c 2c 6e 61 6d 65 24 28  69 6e 6c 61 79 5f 6e 75  |,,name$(inlay_nu|
0000a8a0  6d 62 65 72 25 2c 31 31  29 2b 28 c4 31 35 2d a9  |mber%,11)+(.15-.|
0000a8b0  28 6e 61 6d 65 24 28 69  6e 6c 61 79 5f 6e 75 6d  |(name$(inlay_num|
0000a8c0  62 65 72 25 2c 31 31 29  29 2c 22 20 22 29 29 2b  |ber%,11))," "))+|
0000a8d0  6e 61 6d 65 24 28 69 6e  6c 61 79 5f 6e 75 6d 62  |name$(inlay_numb|
0000a8e0  65 72 25 2c 31 32 29 2c  26 31 30 2c 32 30 2c 33  |er%,12),&10,20,3|
0000a8f0  32 35 0d 35 2a 75 c8 99  20 22 46 6f 6e 74 5f 50  |25.5*u.. "Font_P|
0000a900  61 69 6e 74 22 2c 2c 6e  61 6d 65 24 28 69 6e 6c  |aint",,name$(inl|
0000a910  61 79 5f 6e 75 6d 62 65  72 25 2c 31 33 29 2b 28  |ay_number%,13)+(|
0000a920  c4 31 35 2d a9 28 6e 61  6d 65 24 28 69 6e 6c 61  |.15-.(name$(inla|
0000a930  79 5f 6e 75 6d 62 65 72  25 2c 31 33 29 29 2c 22  |y_number%,13)),"|
0000a940  20 22 29 29 2b 6e 61 6d  65 24 28 69 6e 6c 61 79  | "))+name$(inlay|
0000a950  5f 6e 75 6d 62 65 72 25  2c 31 34 29 2c 26 31 30  |_number%,14),&10|
0000a960  2c 32 30 2c 33 30 30 0d  35 34 75 c8 99 20 22 46  |,20,300.54u.. "F|
0000a970  6f 6e 74 5f 50 61 69 6e  74 22 2c 2c 6e 61 6d 65  |ont_Paint",,name|
0000a980  24 28 69 6e 6c 61 79 5f  6e 75 6d 62 65 72 25 2c  |$(inlay_number%,|
0000a990  31 35 29 2b 28 c4 31 35  2d a9 28 6e 61 6d 65 24  |15)+(.15-.(name$|
0000a9a0  28 69 6e 6c 61 79 5f 6e  75 6d 62 65 72 25 2c 31  |(inlay_number%,1|
0000a9b0  35 29 29 2c 22 20 22 29  29 2b 6e 61 6d 65 24 28  |5))," "))+name$(|
0000a9c0  69 6e 6c 61 79 5f 6e 75  6d 62 65 72 25 2c 31 36  |inlay_number%,16|
0000a9d0  29 2c 26 31 30 2c 32 30  2c 32 37 35 0d 35 3e 75  |),&10,20,275.5>u|
0000a9e0  c8 99 20 22 46 6f 6e 74  5f 50 61 69 6e 74 22 2c  |.. "Font_Paint",|
0000a9f0  2c 6e 61 6d 65 24 28 69  6e 6c 61 79 5f 6e 75 6d  |,name$(inlay_num|
0000aa00  62 65 72 25 2c 31 37 29  2b 28 c4 31 35 2d a9 28  |ber%,17)+(.15-.(|
0000aa10  6e 61 6d 65 24 28 69 6e  6c 61 79 5f 6e 75 6d 62  |name$(inlay_numb|
0000aa20  65 72 25 2c 31 37 29 29  2c 22 20 22 29 29 2b 6e  |er%,17))," "))+n|
0000aa30  61 6d 65 24 28 69 6e 6c  61 79 5f 6e 75 6d 62 65  |ame$(inlay_numbe|
0000aa40  72 25 2c 31 38 29 2c 26  31 30 2c 32 30 2c 32 35  |r%,18),&10,20,25|
0000aa50  30 0d 35 48 75 c8 99 20  22 46 6f 6e 74 5f 50 61  |0.5Hu.. "Font_Pa|
0000aa60  69 6e 74 22 2c 2c 6e 61  6d 65 24 28 69 6e 6c 61  |int",,name$(inla|
0000aa70  79 5f 6e 75 6d 62 65 72  25 2c 31 39 29 2b 28 c4  |y_number%,19)+(.|
0000aa80  31 35 2d a9 28 6e 61 6d  65 24 28 69 6e 6c 61 79  |15-.(name$(inlay|
0000aa90  5f 6e 75 6d 62 65 72 25  2c 31 39 29 29 2c 22 20  |_number%,19))," |
0000aaa0  22 29 29 2b 6e 61 6d 65  24 28 69 6e 6c 61 79 5f  |"))+name$(inlay_|
0000aab0  6e 75 6d 62 65 72 25 2c  32 30 29 2c 26 31 30 2c  |number%,20),&10,|
0000aac0  32 30 2c 32 32 35 0d 35  52 75 c8 99 20 22 46 6f  |20,225.5Ru.. "Fo|
0000aad0  6e 74 5f 50 61 69 6e 74  22 2c 2c 6e 61 6d 65 24  |nt_Paint",,name$|
0000aae0  28 69 6e 6c 61 79 5f 6e  75 6d 62 65 72 25 2c 32  |(inlay_number%,2|
0000aaf0  31 29 2b 28 c4 31 35 2d  a9 28 6e 61 6d 65 24 28  |1)+(.15-.(name$(|
0000ab00  69 6e 6c 61 79 5f 6e 75  6d 62 65 72 25 2c 32 31  |inlay_number%,21|
0000ab10  29 29 2c 22 20 22 29 29  2b 6e 61 6d 65 24 28 69  |))," "))+name$(i|
0000ab20  6e 6c 61 79 5f 6e 75 6d  62 65 72 25 2c 32 32 29  |nlay_number%,22)|
0000ab30  2c 26 31 30 2c 32 30 2c  32 30 30 0d 35 5c 75 c8  |,&10,20,200.5\u.|
0000ab40  99 20 22 46 6f 6e 74 5f  50 61 69 6e 74 22 2c 2c  |. "Font_Paint",,|
0000ab50  6e 61 6d 65 24 28 69 6e  6c 61 79 5f 6e 75 6d 62  |name$(inlay_numb|
0000ab60  65 72 25 2c 32 33 29 2b  28 c4 31 35 2d a9 28 6e  |er%,23)+(.15-.(n|
0000ab70  61 6d 65 24 28 69 6e 6c  61 79 5f 6e 75 6d 62 65  |ame$(inlay_numbe|
0000ab80  72 25 2c 32 33 29 29 2c  22 20 22 29 29 2b 6e 61  |r%,23))," "))+na|
0000ab90  6d 65 24 28 69 6e 6c 61  79 5f 6e 75 6d 62 65 72  |me$(inlay_number|
0000aba0  25 2c 32 34 29 2c 26 31  30 2c 32 30 2c 31 37 35  |%,24),&10,20,175|
0000abb0  0d 35 66 75 c8 99 20 22  46 6f 6e 74 5f 50 61 69  |.5fu.. "Font_Pai|
0000abc0  6e 74 22 2c 2c 6e 61 6d  65 24 28 69 6e 6c 61 79  |nt",,name$(inlay|
0000abd0  5f 6e 75 6d 62 65 72 25  2c 32 35 29 2b 28 c4 31  |_number%,25)+(.1|
0000abe0  35 2d a9 28 6e 61 6d 65  24 28 69 6e 6c 61 79 5f  |5-.(name$(inlay_|
0000abf0  6e 75 6d 62 65 72 25 2c  32 35 29 29 2c 22 20 22  |number%,25))," "|
0000ac00  29 29 2b 6e 61 6d 65 24  28 69 6e 6c 61 79 5f 6e  |))+name$(inlay_n|
0000ac10  75 6d 62 65 72 25 2c 32  36 29 2c 26 31 30 2c 32  |umber%,26),&10,2|
0000ac20  30 2c 31 35 30 0d 35 70  75 c8 99 20 22 46 6f 6e  |0,150.5pu.. "Fon|
0000ac30  74 5f 50 61 69 6e 74 22  2c 2c 6e 61 6d 65 24 28  |t_Paint",,name$(|
0000ac40  69 6e 6c 61 79 5f 6e 75  6d 62 65 72 25 2c 32 37  |inlay_number%,27|
0000ac50  29 2b 28 c4 31 35 2d a9  28 6e 61 6d 65 24 28 69  |)+(.15-.(name$(i|
0000ac60  6e 6c 61 79 5f 6e 75 6d  62 65 72 25 2c 32 37 29  |nlay_number%,27)|
0000ac70  29 2c 22 20 22 29 29 2b  6e 61 6d 65 24 28 69 6e  |)," "))+name$(in|
0000ac80  6c 61 79 5f 6e 75 6d 62  65 72 25 2c 32 38 29 2c  |lay_number%,28),|
0000ac90  26 31 30 2c 32 30 2c 31  32 35 0d 35 7a 2e c8 99  |&10,20,125.5z...|
0000aca0  20 22 50 44 72 69 76 65  72 5f 47 65 74 52 65 63  | "PDriver_GetRec|
0000acb0  74 61 6e 67 6c 65 22 2c  2c 72 65 63 74 69 6e 25  |tangle",,rectin%|
0000acc0  20 b8 20 6d 6f 72 65 25  0d 35 84 05 cd 0d 35 8e  | . more%.5....5.|
0000acd0  05 ce 0d 35 98 1b c8 99  20 22 50 44 72 69 76 65  |...5.... "PDrive|
0000ace0  72 5f 45 6e 64 4a 6f 62  22 2c 70 66 25 0d 35 a2  |r_EndJob",pf%.5.|
0000acf0  07 f7 20 85 0d 35 ac 1f  c8 99 20 22 50 44 72 69  |.. ..5.... "PDri|
0000ad00  76 65 72 5f 53 65 6c 65  63 74 4a 6f 62 22 2c 6f  |ver_SelectJob",o|
0000ad10  6c 64 25 0d 35 b6 07 f7  20 85 0d 35 c0 09 d9 23  |ld%.5... ..5...#|
0000ad20  70 66 25 0d 35 ca 1a 63  6f 70 79 2b 3d 31 3a fd  |pf%.5..copy+=1:.|
0000ad30  20 63 6f 70 79 3d 63 6f  70 69 65 73 25 0d 35 d4  | copy=copies%.5.|
0000ad40  16 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
0000ad50  66 66 22 0d 35 de 2a f2  63 6c 6f 73 65 28 64 69  |ff".5.*.close(di|
0000ad60  73 63 5f 77 61 69 74 25  29 3a f2 63 6c 6f 73 65  |sc_wait%):.close|
0000ad70  28 64 69 73 63 5f 70 72  69 6e 74 25 29 0d 35 e8  |(disc_print%).5.|
0000ad80  05 e1 0d 35 f2 05 3a 0d  35 fc 12 dd f2 6c 6f 61  |...5..:.5....loa|
0000ad90  64 5f 6f 70 74 69 6f 6e  73 0d 36 06 2c 63 68 6f  |d_options.6.,cho|
0000ada0  69 63 65 73 25 3d 8e 22  3c 44 69 73 63 24 44 69  |ices%=."<Disc$Di|
0000adb0  72 3e 2e 52 65 73 6f 75  72 63 65 73 2e 43 68 6f  |r>.Resources.Cho|
0000adc0  69 63 65 73 22 0d 36 10  13 e7 20 63 68 6f 69 63  |ices".6... choic|
0000add0  65 73 25 3c 3e 30 20 8c  0d 36 1a 1c e8 23 63 68  |es%<>0 ..6...#ch|
0000ade0  6f 69 63 65 73 25 2c 6f  75 74 6c 69 6e 65 66 6f  |oices%,outlinefo|
0000adf0  6e 74 73 25 0d 36 24 1a  e8 23 63 68 6f 69 63 65  |nts%.6$..#choice|
0000ae00  73 25 2c 6d 61 78 5f 72  65 63 6f 72 64 25 0d 36  |s%,max_record%.6|
0000ae10  2e 17 e8 23 63 68 6f 69  63 65 73 25 2c 73 63 61  |...#choices%,sca|
0000ae20  6e 61 70 70 25 0d 36 38  17 e8 23 63 68 6f 69 63  |napp%.68..#choic|
0000ae30  65 73 25 2c 73 63 61 6e  64 69 72 25 0d 36 42 1a  |es%,scandir%.6B.|
0000ae40  e8 23 63 68 6f 69 63 65  73 25 2c 6d 6f 76 65 74  |.#choices%,movet|
0000ae50  6f 6e 65 78 74 25 0d 36  4c 0e d9 23 63 68 6f 69  |onext%.6L..#choi|
0000ae60  63 65 73 25 0d 36 56 05  cc 0d 36 60 13 6f 75 74  |ces%.6V...6`.out|
0000ae70  6c 69 6e 65 66 6f 6e 74  73 25 3d 30 0d 36 6a 13  |linefonts%=0.6j.|
0000ae80  6d 61 78 5f 72 65 63 6f  72 64 25 3d 32 35 30 0d  |max_record%=250.|
0000ae90  36 74 0e 73 63 61 6e 61  70 70 25 3d 30 0d 36 7e  |6t.scanapp%=0.6~|
0000aea0  0e 73 63 61 6e 64 69 72  25 3d 30 0d 36 88 11 6d  |.scandir%=0.6..m|
0000aeb0  6f 76 65 74 6f 6e 65 78  74 25 3d 30 0d 36 92 05  |ovetonext%=0.6..|
0000aec0  cd 0d 36 9c 29 e7 20 6f  75 74 6c 69 6e 65 66 6f  |..6.). outlinefo|
0000aed0  6e 74 73 25 3d 31 20 8c  20 f2 67 65 74 5f 77 69  |nts%=1 . .get_wi|
0000aee0  6e 64 6f 77 5f 66 6f 6e  74 73 0d 36 a6 05 e1 0d  |ndow_fonts.6....|
0000aef0  36 b0 05 3a 0d 36 ba 12  dd f2 73 61 76 65 5f 6f  |6..:.6....save_o|
0000af00  70 74 69 6f 6e 73 0d 36  c4 2c 63 68 6f 69 63 65  |ptions.6.,choice|
0000af10  73 25 3d ae 22 3c 44 69  73 63 24 44 69 72 3e 2e  |s%=."<Disc$Dir>.|
0000af20  52 65 73 6f 75 72 63 65  73 2e 43 68 6f 69 63 65  |Resources.Choice|
0000af30  73 22 0d 36 ce 1c f1 23  63 68 6f 69 63 65 73 25  |s".6...#choices%|
0000af40  2c 6f 75 74 6c 69 6e 65  66 6f 6e 74 73 25 0d 36  |,outlinefonts%.6|
0000af50  d8 1a f1 23 63 68 6f 69  63 65 73 25 2c 6d 61 78  |...#choices%,max|
0000af60  5f 72 65 63 6f 72 64 25  0d 36 e2 17 f1 23 63 68  |_record%.6...#ch|
0000af70  6f 69 63 65 73 25 2c 73  63 61 6e 61 70 70 25 0d  |oices%,scanapp%.|
0000af80  36 ec 17 f1 23 63 68 6f  69 63 65 73 25 2c 73 63  |6...#choices%,sc|
0000af90  61 6e 64 69 72 25 0d 36  f6 1a f1 23 63 68 6f 69  |andir%.6...#choi|
0000afa0  63 65 73 25 2c 6d 6f 76  65 74 6f 6e 65 78 74 25  |ces%,movetonext%|
0000afb0  0d 37 00 0e d9 23 63 68  6f 69 63 65 73 25 0d 37  |.7...#choices%.7|
0000afc0  0a 05 e1 0d 37 14 05 3a  0d 37 1e 16 dd f2 67 65  |....7..:.7....ge|
0000afd0  74 5f 77 69 6e 64 6f 77  5f 66 6f 6e 74 73 0d 37  |t_window_fonts.7|
0000afe0  28 08 ea 20 66 25 0d 37  32 10 de 20 66 6f 6e 74  |(.. f%.72.. font|
0000aff0  62 25 20 32 35 35 0d 37  3c 1e e3 20 49 25 3d 30  |b% 255.7<.. I%=0|
0000b000  20 b8 20 32 35 35 3a 66  6f 6e 74 62 25 3f 49 25  | . 255:fontb%?I%|
0000b010  3d 30 3a ed 0d 37 46 05  e1 0d 37 50 05 3a 0d 37  |=0:..7F...7P.:.7|
0000b020  5a 19 dd f2 61 6c 74 65  72 5f 6e 6f 5f 6f 66 5f  |Z...alter_no_of_|
0000b030  72 65 63 6f 72 64 73 0d  37 64 14 c8 8e 20 6d 61  |records.7d... ma|
0000b040  78 5f 72 65 63 6f 72 64  25 20 ca 0d 37 6e d9 c9  |x_record% ..7n..|
0000b050  20 35 30 3a c8 99 20 22  57 69 6d 70 45 78 74 5f  | 50:.. "WimpExt_|
0000b060  53 65 74 49 63 6f 6e 22  2c 2c 2c 64 69 73 63 5f  |SetIcon",,,disc_|
0000b070  6f 70 74 69 6f 6e 73 25  2c 39 2c 31 3a c8 99 20  |options%,9,1:.. |
0000b080  22 57 69 6d 70 45 78 74  5f 53 65 74 49 63 6f 6e  |"WimpExt_SetIcon|
0000b090  22 2c 2c 2c 64 69 73 63  5f 6f 70 74 69 6f 6e 73  |",,,disc_options|
0000b0a0  25 2c 31 32 2c 30 3a c8  99 20 22 57 69 6d 70 45  |%,12,0:.. "WimpE|
0000b0b0  78 74 5f 53 65 74 49 63  6f 6e 22 2c 2c 2c 64 69  |xt_SetIcon",,,di|
0000b0c0  73 63 5f 6f 70 74 69 6f  6e 73 25 2c 31 33 2c 30  |sc_options%,13,0|
0000b0d0  3a c8 99 20 22 57 69 6d  70 45 78 74 5f 53 65 74  |:.. "WimpExt_Set|
0000b0e0  49 63 6f 6e 22 2c 2c 2c  64 69 73 63 5f 6f 70 74  |Icon",,,disc_opt|
0000b0f0  69 6f 6e 73 25 2c 31 34  2c 30 3a c8 99 20 22 57  |ions%,14,0:.. "W|
0000b100  69 6d 70 45 78 74 5f 53  65 74 49 63 6f 6e 22 2c  |impExt_SetIcon",|
0000b110  2c 2c 64 69 73 63 5f 6f  70 74 69 6f 6e 73 25 2c  |,,disc_options%,|
0000b120  31 35 2c 30 0d 37 78 da  c9 20 31 30 30 3a c8 99  |15,0.7x.. 100:..|
0000b130  20 22 57 69 6d 70 45 78  74 5f 53 65 74 49 63 6f  | "WimpExt_SetIco|
0000b140  6e 22 2c 2c 2c 64 69 73  63 5f 6f 70 74 69 6f 6e  |n",,,disc_option|
0000b150  73 25 2c 39 2c 30 3a c8  99 20 22 57 69 6d 70 45  |s%,9,0:.. "WimpE|
0000b160  78 74 5f 53 65 74 49 63  6f 6e 22 2c 2c 2c 64 69  |xt_SetIcon",,,di|
0000b170  73 63 5f 6f 70 74 69 6f  6e 73 25 2c 31 32 2c 31  |sc_options%,12,1|
0000b180  3a c8 99 20 22 57 69 6d  70 45 78 74 5f 53 65 74  |:.. "WimpExt_Set|
0000b190  49 63 6f 6e 22 2c 2c 2c  64 69 73 63 5f 6f 70 74  |Icon",,,disc_opt|
0000b1a0  69 6f 6e 73 25 2c 31 33  2c 30 3a c8 99 20 22 57  |ions%,13,0:.. "W|
0000b1b0  69 6d 70 45 78 74 5f 53  65 74 49 63 6f 6e 22 2c  |impExt_SetIcon",|
0000b1c0  2c 2c 64 69 73 63 5f 6f  70 74 69 6f 6e 73 25 2c  |,,disc_options%,|
0000b1d0  31 34 2c 30 3a c8 99 20  22 57 69 6d 70 45 78 74  |14,0:.. "WimpExt|
0000b1e0  5f 53 65 74 49 63 6f 6e  22 2c 2c 2c 64 69 73 63  |_SetIcon",,,disc|
0000b1f0  5f 6f 70 74 69 6f 6e 73  25 2c 31 35 2c 30 0d 37  |_options%,15,0.7|
0000b200  82 da c9 20 31 35 30 3a  c8 99 20 22 57 69 6d 70  |... 150:.. "Wimp|
0000b210  45 78 74 5f 53 65 74 49  63 6f 6e 22 2c 2c 2c 64  |Ext_SetIcon",,,d|
0000b220  69 73 63 5f 6f 70 74 69  6f 6e 73 25 2c 39 2c 30  |isc_options%,9,0|
0000b230  3a c8 99 20 22 57 69 6d  70 45 78 74 5f 53 65 74  |:.. "WimpExt_Set|
0000b240  49 63 6f 6e 22 2c 2c 2c  64 69 73 63 5f 6f 70 74  |Icon",,,disc_opt|
0000b250  69 6f 6e 73 25 2c 31 32  2c 30 3a c8 99 20 22 57  |ions%,12,0:.. "W|
0000b260  69 6d 70 45 78 74 5f 53  65 74 49 63 6f 6e 22 2c  |impExt_SetIcon",|
0000b270  2c 2c 64 69 73 63 5f 6f  70 74 69 6f 6e 73 25 2c  |,,disc_options%,|
0000b280  31 33 2c 31 3a c8 99 20  22 57 69 6d 70 45 78 74  |13,1:.. "WimpExt|
0000b290  5f 53 65 74 49 63 6f 6e  22 2c 2c 2c 64 69 73 63  |_SetIcon",,,disc|
0000b2a0  5f 6f 70 74 69 6f 6e 73  25 2c 31 34 2c 30 3a c8  |_options%,14,0:.|
0000b2b0  99 20 22 57 69 6d 70 45  78 74 5f 53 65 74 49 63  |. "WimpExt_SetIc|
0000b2c0  6f 6e 22 2c 2c 2c 64 69  73 63 5f 6f 70 74 69 6f  |on",,,disc_optio|
0000b2d0  6e 73 25 2c 31 35 2c 30  0d 37 8c da c9 20 32 30  |ns%,15,0.7... 20|
0000b2e0  30 3a c8 99 20 22 57 69  6d 70 45 78 74 5f 53 65  |0:.. "WimpExt_Se|
0000b2f0  74 49 63 6f 6e 22 2c 2c  2c 64 69 73 63 5f 6f 70  |tIcon",,,disc_op|
0000b300  74 69 6f 6e 73 25 2c 39  2c 30 3a c8 99 20 22 57  |tions%,9,0:.. "W|
0000b310  69 6d 70 45 78 74 5f 53  65 74 49 63 6f 6e 22 2c  |impExt_SetIcon",|
0000b320  2c 2c 64 69 73 63 5f 6f  70 74 69 6f 6e 73 25 2c  |,,disc_options%,|
0000b330  31 32 2c 30 3a c8 99 20  22 57 69 6d 70 45 78 74  |12,0:.. "WimpExt|
0000b340  5f 53 65 74 49 63 6f 6e  22 2c 2c 2c 64 69 73 63  |_SetIcon",,,disc|
0000b350  5f 6f 70 74 69 6f 6e 73  25 2c 31 33 2c 30 3a c8  |_options%,13,0:.|
0000b360  99 20 22 57 69 6d 70 45  78 74 5f 53 65 74 49 63  |. "WimpExt_SetIc|
0000b370  6f 6e 22 2c 2c 2c 64 69  73 63 5f 6f 70 74 69 6f  |on",,,disc_optio|
0000b380  6e 73 25 2c 31 34 2c 31  3a c8 99 20 22 57 69 6d  |ns%,14,1:.. "Wim|
0000b390  70 45 78 74 5f 53 65 74  49 63 6f 6e 22 2c 2c 2c  |pExt_SetIcon",,,|
0000b3a0  64 69 73 63 5f 6f 70 74  69 6f 6e 73 25 2c 31 35  |disc_options%,15|
0000b3b0  2c 30 0d 37 96 da c9 20  32 35 30 3a c8 99 20 22  |,0.7... 250:.. "|
0000b3c0  57 69 6d 70 45 78 74 5f  53 65 74 49 63 6f 6e 22  |WimpExt_SetIcon"|
0000b3d0  2c 2c 2c 64 69 73 63 5f  6f 70 74 69 6f 6e 73 25  |,,,disc_options%|
0000b3e0  2c 39 2c 30 3a c8 99 20  22 57 69 6d 70 45 78 74  |,9,0:.. "WimpExt|
0000b3f0  5f 53 65 74 49 63 6f 6e  22 2c 2c 2c 64 69 73 63  |_SetIcon",,,disc|
0000b400  5f 6f 70 74 69 6f 6e 73  25 2c 31 32 2c 30 3a c8  |_options%,12,0:.|
0000b410  99 20 22 57 69 6d 70 45  78 74 5f 53 65 74 49 63  |. "WimpExt_SetIc|
0000b420  6f 6e 22 2c 2c 2c 64 69  73 63 5f 6f 70 74 69 6f  |on",,,disc_optio|
0000b430  6e 73 25 2c 31 33 2c 30  3a c8 99 20 22 57 69 6d  |ns%,13,0:.. "Wim|
0000b440  70 45 78 74 5f 53 65 74  49 63 6f 6e 22 2c 2c 2c  |pExt_SetIcon",,,|
0000b450  64 69 73 63 5f 6f 70 74  69 6f 6e 73 25 2c 31 34  |disc_options%,14|
0000b460  2c 30 3a c8 99 20 22 57  69 6d 70 45 78 74 5f 53  |,0:.. "WimpExt_S|
0000b470  65 74 49 63 6f 6e 22 2c  2c 2c 64 69 73 63 5f 6f  |etIcon",,,disc_o|
0000b480  70 74 69 6f 6e 73 25 2c  31 35 2c 31 0d 37 a0 05  |ptions%,15,1.7..|
0000b490  cb 0d 37 aa 33 f2 75 70  64 61 74 65 5f 69 63 6f  |..7.3.update_ico|
0000b4a0  6e 28 64 69 73 63 5f 69  6e 64 65 78 25 2c 31 31  |n(disc_index%,11|
0000b4b0  2c 22 2f 22 2b c3 28 6d  61 78 5f 72 65 63 6f 72  |,"/"+.(max_recor|
0000b4c0  64 25 29 29 0d 37 b4 05  e1 0d 37 be 05 3a 0d 37  |d%)).7....7..:.7|
0000b4d0  c8 14 dd f2 75 70 64 61  74 65 5f 6f 70 74 69 6f  |....update_optio|
0000b4e0  6e 73 0d 37 d2 18 f2 61  6c 74 65 72 5f 6e 6f 5f  |ns.7...alter_no_|
0000b4f0  6f 66 5f 72 65 63 6f 72  64 73 0d 37 dc 16 c8 8e  |of_records.7....|
0000b500  20 6f 75 74 6c 69 6e 65  66 6f 6e 74 73 25 20 ca  | outlinefonts% .|
0000b510  0d 37 e6 59 c9 20 30 3a  c8 99 20 22 57 69 6d 70  |.7.Y. 0:.. "Wimp|
0000b520  45 78 74 5f 53 65 74 49  63 6f 6e 22 2c 2c 2c 64  |Ext_SetIcon",,,d|
0000b530  69 73 63 5f 6f 70 74 69  6f 6e 73 25 2c 38 2c 31  |isc_options%,8,1|
0000b540  3a c8 99 20 22 57 69 6d  70 45 78 74 5f 53 65 74  |:.. "WimpExt_Set|
0000b550  49 63 6f 6e 22 2c 2c 2c  64 69 73 63 5f 6f 70 74  |Icon",,,disc_opt|
0000b560  69 6f 6e 73 25 2c 37 2c  30 0d 37 f0 59 c9 20 31  |ions%,7,0.7.Y. 1|
0000b570  3a c8 99 20 22 57 69 6d  70 45 78 74 5f 53 65 74  |:.. "WimpExt_Set|
0000b580  49 63 6f 6e 22 2c 2c 2c  64 69 73 63 5f 6f 70 74  |Icon",,,disc_opt|
0000b590  69 6f 6e 73 25 2c 37 2c  31 3a c8 99 20 22 57 69  |ions%,7,1:.. "Wi|
0000b5a0  6d 70 45 78 74 5f 53 65  74 49 63 6f 6e 22 2c 2c  |mpExt_SetIcon",,|
0000b5b0  2c 64 69 73 63 5f 6f 70  74 69 6f 6e 73 25 2c 38  |,disc_options%,8|
0000b5c0  2c 30 0d 37 fa 05 cb 0d  38 04 3e e7 20 6d 6f 76  |,0.7....8.>. mov|
0000b5d0  65 74 6f 6e 65 78 74 25  3d 31 20 8c 20 c8 99 20  |etonext%=1 . .. |
0000b5e0  22 57 69 6d 70 45 78 74  5f 53 65 74 49 63 6f 6e  |"WimpExt_SetIcon|
0000b5f0  22 2c 2c 2c 64 69 73 63  5f 6f 70 74 69 6f 6e 73  |",,,disc_options|
0000b600  25 2c 33 2c 31 0d 38 0e  3b e7 20 73 63 61 6e 61  |%,3,1.8.;. scana|
0000b610  70 70 25 3d 31 20 8c 20  c8 99 20 22 57 69 6d 70  |pp%=1 . .. "Wimp|
0000b620  45 78 74 5f 53 65 74 49  63 6f 6e 22 2c 2c 2c 64  |Ext_SetIcon",,,d|
0000b630  69 73 63 5f 6f 70 74 69  6f 6e 73 25 2c 31 2c 31  |isc_options%,1,1|
0000b640  0d 38 18 3c e7 20 73 63  61 6e 64 69 72 25 3d 31  |.8.<. scandir%=1|
0000b650  20 8c 20 c8 99 20 22 57  69 6d 70 45 78 74 5f 53  | . .. "WimpExt_S|
0000b660  65 74 49 63 6f 6e 22 2c  2c 2c 64 69 73 63 5f 6f  |etIcon",,,disc_o|
0000b670  70 74 69 6f 6e 73 25 2c  31 31 2c 31 0d 38 22 33  |ptions%,11,1.8"3|
0000b680  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 64 69 73  |.update_icon(dis|
0000b690  63 5f 69 6e 64 65 78 25  2c 31 31 2c 22 2f 22 2b  |c_index%,11,"/"+|
0000b6a0  c3 28 6d 61 78 5f 72 65  63 6f 72 64 25 29 29 0d  |.(max_record%)).|
0000b6b0  38 2c 05 e1 0d ff                                 |8,....|
0000b6b6