� >!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" �
�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%
 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 47  |tall$="No" ....G|
00006850  66 72 6f 6d 25 3d bb 28  a4 69 6e 64 69 72 65 63  |from%=.(.indirec|
00006860  74 28 64 69 73 63 5f 70  72 69 6e 74 25 2c 31 36  |t(disc_print%,16|
00006870  29 29 3a 74 6f 25 3d bb  28 a4 69 6e 64 69 72 65  |)):to%=.(.indire|
00006880  63 74 28 64 69 73 63 5f  70 72 69 6e 74 25 2c 31  |ct(disc_print%,1|
00006890  37 29 29 0d 1f e0 56 e7  20 66 72 6f 6d 25 3c 31  |7))...V. from%<1|
000068a0  20 84 20 74 6f 25 3e 6d  61 78 5f 72 65 63 6f 72  | . to%>max_recor|
000068b0  64 25 20 8c 20 85 20 31  2c 22 45 6e 74 65 72 20  |d% . . 1,"Enter |
000068c0  76 61 6c 75 65 73 20 62  65 74 77 65 65 6e 20 31  |values between 1|
000068d0  20 61 6e 64 20 22 2b c3  28 6d 61 78 5f 72 65 63  | and "+.(max_rec|
000068e0  6f 72 64 25 29 2b 22 2e  22 0d 1f ea 05 cd 0d 1f  |ord%)+".".......|
000068f0  f4 2f e7 20 70 72 69 6e  74 61 6c 6c 24 3d 22 59  |./. printall$="Y|
00006900  65 73 22 20 8c 20 66 72  6f 6d 25 3d 31 3a 74 6f  |es" . from%=1:to|
00006910  25 3d 6d 61 78 5f 72 65  63 6f 72 64 25 0d 1f fe  |%=max_record%...|
00006920  14 e3 20 49 25 3d 66 72  6f 6d 25 20 b8 20 74 6f  |.. I%=from% . to|
00006930  25 0d 20 08 53 e7 20 64  69 73 63 6e 61 6d 65 24  |%. .S. discname$|
00006940  28 49 25 29 3c 3e 22 22  20 84 20 64 69 73 63 74  |(I%)<>"" . disct|
00006950  79 70 65 24 28 49 25 29  3c 3e 22 22 20 84 20 64  |ype$(I%)<>"" . d|
00006960  69 73 63 66 72 65 65 24  28 49 25 29 3c 3e 22 22  |iscfree$(I%)<>""|
00006970  20 8c 20 6e 65 65 64 73  70 72 69 6e 74 69 6e 67  | . needsprinting|
00006980  25 2b 3d 31 0d 20 12 08  ed 20 49 25 0d 20 1c 62  |%+=1. ... I%. .b|
00006990  73 75 62 69 74 65 6d 25  3d 30 3a 70 72 69 6e 74  |subitem%=0:print|
000069a0  65 64 25 3d 30 3a e7 20  6e 65 65 64 73 70 72 69  |ed%=0:. needspri|
000069b0  6e 74 69 6e 67 25 3d 30  20 8c 20 ef 20 33 3a f2  |nting%=0 . . 3:.|
000069c0  63 6c 6f 73 65 28 64 69  73 63 5f 77 61 69 74 25  |close(disc_wait%|
000069d0  29 3a 85 20 31 2c 22 4e  6f 20 72 65 63 6f 72 64  |):. 1,"No record|
000069e0  73 20 74 6f 20 70 72 69  6e 74 2e 22 3a e1 0d 20  |s to print.":.. |
000069f0  26 14 e3 20 49 25 3d 66  72 6f 6d 25 20 b8 20 74  |&.. I%=from% . t|
00006a00  6f 25 0d 20 30 41 e7 20  64 69 73 63 6e 61 6d 65  |o%. 0A. discname|
00006a10  24 28 49 25 29 3c 3e 22  22 20 84 20 64 69 73 63  |$(I%)<>"" . disc|
00006a20  74 79 70 65 24 28 49 25  29 3c 3e 22 22 20 84 20  |type$(I%)<>"" . |
00006a30  64 69 73 63 66 72 65 65  24 28 49 25 29 3c 3e 22  |discfree$(I%)<>"|
00006a40  22 20 8c 0d 20 3a 1b 73  75 62 69 74 65 6d 25 2b  |" .. :.subitem%+|
00006a50  3d 31 3a 70 72 69 6e 74  65 64 25 2b 3d 31 0d 20  |=1:printed%+=1. |
00006a60  44 0f ef 20 31 2c 32 37  2c 31 2c 37 31 0d 20 4e  |D.. 1,27,1,71. N|
00006a70  23 f1 20 8a 30 29 3b 22  4e 75 6d 62 65 72 3a 20  |#. .0);"Number: |
00006a80  22 2b c3 28 49 25 29 3a  ef 20 31 2c 76 64 75 25  |"+.(I%):. 1,vdu%|
00006a90  0d 20 58 0f 73 75 62 69  74 65 6d 25 2b 3d 31 0d  |. X.subitem%+=1.|
00006aa0  20 62 6d f1 20 8a 30 29  3b 22 44 69 73 63 6e 61  | bm. .0);"Discna|
00006ab0  6d 65 3a 20 22 2b 64 69  73 63 6e 61 6d 65 24 28  |me: "+discname$(|
00006ac0  49 25 29 3b 8a 32 35 29  3b 22 44 69 73 63 74 79  |I%);.25);"Discty|
00006ad0  70 65 3a 20 22 2b 64 69  73 63 74 79 70 65 24 28  |pe: "+disctype$(|
00006ae0  49 25 29 3b 8a 36 30 29  3b 22 46 72 65 65 3a 20  |I%);.60);"Free: |
00006af0  22 3b 64 69 73 63 66 72  65 65 24 28 49 25 29 3b  |";discfree$(I%);|
00006b00  22 6b 22 3a ef 20 31 2c  76 64 75 25 0d 20 6c 0f  |"k":. 1,vdu%. l.|
00006b10  ef 20 31 2c 32 37 2c 31  2c 37 32 0d 20 76 0f 73  |. 1,27,1,72. v.s|
00006b20  75 62 69 74 65 6d 25 2b  3d 31 0d 20 80 26 f1 20  |ubitem%+=1. .&. |
00006b30  8a 30 29 3b 22 43 6f 6e  74 65 6e 74 73 20 6f 66  |.0);"Contents of|
00006b40  20 44 69 73 63 3a 22 3a  ef 20 31 2c 76 64 75 25  | Disc:":. 1,vdu%|
00006b50  0d 20 8a 11 e3 20 73 75  62 49 25 3d 30 20 b8 20  |. ... subI%=0 . |
00006b60  39 0d 20 94 6f 61 3d a9  28 6e 61 6d 65 24 28 49  |9. .oa=.(name$(I|
00006b70  25 2c 31 2b 28 73 75 62  49 25 2a 34 29 29 29 3a  |%,1+(subI%*4))):|
00006b80  62 3d a9 28 6e 61 6d 65  24 28 49 25 2c 32 2b 28  |b=.(name$(I%,2+(|
00006b90  73 75 62 49 25 2a 34 29  29 29 3a 63 3d a9 28 6e  |subI%*4))):c=.(n|
00006ba0  61 6d 65 24 28 49 25 2c  33 2b 28 73 75 62 49 25  |ame$(I%,3+(subI%|
00006bb0  2a 34 29 29 29 3a 64 3d  a9 28 6e 61 6d 65 24 28  |*4))):d=.(name$(|
00006bc0  49 25 2c 34 2b 28 73 75  62 49 25 2a 34 29 29 29  |I%,4+(subI%*4)))|
00006bd0  0d 20 9e a5 e7 20 28 61  3c 3e 30 20 84 20 62 3c  |. ... (a<>0 . b<|
00006be0  3e 30 20 84 20 63 3c 3e  30 20 84 20 64 3c 3e 30  |>0 . c<>0 . d<>0|
00006bf0  29 20 8c 20 73 75 62 69  74 65 6d 25 2b 3d 31 3a  |) . subitem%+=1:|
00006c00  f1 20 8a 30 29 3b 6e 61  6d 65 24 28 49 25 2c 31  |. .0);name$(I%,1|
00006c10  2b 28 73 75 62 49 25 2a  34 29 29 3b 8a 32 30 29  |+(subI%*4));.20)|
00006c20  3b 6e 61 6d 65 24 28 49  25 2c 32 2b 28 73 75 62  |;name$(I%,2+(sub|
00006c30  49 25 2a 34 29 29 3b 8a  34 30 29 3b 6e 61 6d 65  |I%*4));.40);name|
00006c40  24 28 49 25 2c 33 2b 28  73 75 62 49 25 2a 34 29  |$(I%,3+(subI%*4)|
00006c50  29 3b 8a 36 30 29 3b 6e  61 6d 65 24 28 49 25 2c  |);.60);name$(I%,|
00006c60  34 2b 28 73 75 62 49 25  2a 34 29 29 3a ef 20 31  |4+(subI%*4)):. 1|
00006c70  2c 76 64 75 25 0d 20 a8  0b ed 20 73 75 62 49 25  |,vdu%. ... subI%|
00006c80  0d 20 b2 86 e7 20 28 a9  28 63 6f 6d 6d 65 6e 74  |. ... (.(comment|
00006c90  24 28 49 25 2c 31 29 29  3c 3e 30 20 84 20 a9 28  |$(I%,1))<>0 . .(|
00006ca0  63 6f 6d 6d 65 6e 74 24  28 49 25 2c 32 29 29 3c  |comment$(I%,2))<|
00006cb0  3e 30 20 84 20 a9 28 63  6f 6d 6d 65 6e 74 24 28  |>0 . .(comment$(|
00006cc0  49 25 2c 33 29 29 3c 3e  30 20 84 20 a9 28 63 6f  |I%,3))<>0 . .(co|
00006cd0  6d 6d 65 6e 74 24 28 49  25 2c 34 29 29 3c 3e 30  |mment$(I%,4))<>0|
00006ce0  29 3a 73 75 62 69 74 65  6d 25 2b 3d 31 3a f1 20  |):subitem%+=1:. |
00006cf0  22 45 78 74 72 61 20 49  6e 66 6f 3a 22 3a ef 20  |"Extra Info:":. |
00006d00  31 2c 76 64 75 25 0d 20  bc 11 e3 20 73 75 62 49  |1,vdu%. ... subI|
00006d10  25 3d 31 20 b8 20 34 0d  20 c6 4a e7 20 a9 28 63  |%=1 . 4. .J. .(c|
00006d20  6f 6d 6d 65 6e 74 24 28  49 25 2c 73 75 62 49 25  |omment$(I%,subI%|
00006d30  29 29 3c 3e 30 20 8c 20  73 75 62 69 74 65 6d 25  |))<>0 . subitem%|
00006d40  2b 3d 31 3a f1 20 63 6f  6d 6d 65 6e 74 24 28 49  |+=1:. comment$(I|
00006d50  25 2c 73 75 62 49 25 29  3a ef 20 31 2c 76 64 75  |%,subI%):. 1,vdu|
00006d60  25 0d 20 d0 0b ed 20 73  75 62 49 25 0d 20 da 22  |%. ... subI%. ."|
00006d70  73 75 62 69 74 65 6d 25  2b 3d 31 3a f1 c4 38 30  |subitem%+=1:..80|
00006d80  2c 22 2d 22 29 3a ef 20  31 2c 76 64 75 25 0d 20  |,"-"):. 1,vdu%. |
00006d90  e4 05 cd 0d 20 ee 25 e7  20 73 75 62 69 74 65 6d  |.... .%. subitem|
00006da0  25 3e 35 35 20 8c 20 73  75 62 69 74 65 6d 25 3d  |%>55 . subitem%=|
00006db0  30 3a ef 20 31 2c 31 32  0d 20 f8 07 ef 20 33 0d  |0:. 1,12. ... 3.|
00006dc0  21 02 68 e7 20 a8 28 28  70 72 69 6e 74 65 64 25  |!.h. .((printed%|
00006dd0  2f 6e 65 65 64 73 70 72  69 6e 74 69 6e 67 25 29  |/needsprinting%)|
00006de0  2a 31 30 30 29 3c 3e 31  30 30 20 8c 20 c8 99 20  |*100)<>100 . .. |
00006df0  22 48 6f 75 72 67 6c 61  73 73 5f 50 65 72 63 65  |"Hourglass_Perce|
00006e00  6e 74 61 67 65 22 2c a8  28 28 70 72 69 6e 74 65  |ntage",.((printe|
00006e10  64 25 2f 6e 65 65 64 73  70 72 69 6e 74 69 6e 67  |d%/needsprinting|
00006e20  25 29 2a 31 30 30 29 0d  21 0c 07 ef 20 32 0d 21  |%)*100).!... 2.!|
00006e30  16 08 ed 20 49 25 0d 21  20 0a ef 20 31 2c 31 32  |... I%.! .. 1,12|
00006e40  0d 21 2a 05 e1 0d 21 34  05 3a 0d 21 3e 1c dd f2  |.!*...!4.:.!>...|
00006e50  72 65 64 72 61 77 5f 77  69 6e 64 6f 77 28 77 69  |redraw_window(wi|
00006e60  6e 64 6f 77 25 29 0d 21  48 0f 21 71 25 3d 77 69  |ndow%).!H.!q%=wi|
00006e70  6e 64 6f 77 25 0d 21 52  26 c8 99 20 22 57 69 6d  |ndow%.!R&.. "Wim|
00006e80  70 5f 52 65 64 72 61 77  57 69 6e 64 6f 77 22 2c  |p_RedrawWindow",|
00006e90  2c 71 25 20 b8 20 6d 6f  72 65 25 0d 21 5c 0c c8  |,q% . more%.!\..|
00006ea0  95 20 6d 6f 72 65 25 0d  21 66 1b c8 99 20 22 57  |. more%.!f... "W|
00006eb0  69 6d 70 45 78 74 5f 52  65 64 72 61 77 22 2c 2c  |impExt_Redraw",,|
00006ec0  71 25 0d 21 70 26 c8 99  20 22 57 69 6d 70 5f 47  |q%.!p&.. "Wimp_G|
00006ed0  65 74 52 65 63 74 61 6e  67 6c 65 22 2c 2c 71 25  |etRectangle",,q%|
00006ee0  20 b8 20 6d 6f 72 65 25  0d 21 7a 05 ce 0d 21 84  | . more%.!z...!.|
00006ef0  05 e1 0d 21 8e 05 3a 0d  21 98 0e dd f2 61 6e 6e  |...!..:.!....ann|
00006f00  6f 75 6e 63 65 0d 21 a2  15 c8 99 20 22 48 6f 75  |ounce.!.... "Hou|
00006f10  72 67 6c 61 73 73 5f 4f  6e 22 0d 21 ac 19 f2 6f  |rglass_On".!...o|
00006f20  70 65 6e 28 64 69 73 63  5f 61 6e 6e 6f 75 6e 63  |pen(disc_announc|
00006f30  65 25 29 0d 21 b6 2c c8  99 20 22 57 69 6d 70 45  |e%).!.,.. "WimpE|
00006f40  78 74 5f 4c 69 6d 69 74  50 6f 69 6e 74 65 72 22  |xt_LimitPointer"|
00006f50  2c 64 69 73 63 5f 61 6e  6e 6f 75 6e 63 65 25 0d  |,disc_announce%.|
00006f60  21 c0 27 f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |!.'.update_icon(|
00006f70  64 69 73 63 5f 61 6e 6e  6f 75 6e 63 65 25 2c 34  |disc_announce%,4|
00006f80  2c 76 65 72 24 29 0d 21  ca 22 f2 72 65 64 72 61  |,ver$).!.".redra|
00006f90  77 5f 77 69 6e 64 6f 77  28 64 69 73 63 5f 61 6e  |w_window(disc_an|
00006fa0  6e 6f 75 6e 63 65 25 29  0d 21 d4 1b c8 99 20 22  |nounce%).!.... "|
00006fb0  48 6f 75 72 67 6c 61 73  73 5f 4c 45 44 73 22 2c  |Hourglass_LEDs",|
00006fc0  31 2c 30 0d 21 de 0f f2  6d 61 6b 65 5f 6d 65 6e  |1,0.!...make_men|
00006fd0  75 73 0d 21 e8 1b c8 99  20 22 48 6f 75 72 67 6c  |us.!.... "Hourgl|
00006fe0  61 73 73 5f 4c 45 44 73  22 2c 30 2c 31 0d 21 f2  |ass_LEDs",0,1.!.|
00006ff0  08 f2 6e 65 77 0d 21 fc  1b c8 99 20 22 48 6f 75  |..new.!.... "Hou|
00007000  72 67 6c 61 73 73 5f 4c  45 44 73 22 2c 31 2c 31  |rglass_LEDs",1,1|
00007010  0d 22 06 11 f2 63 6c 65  61 72 5f 73 65 61 72 63  |."...clear_searc|
00007020  68 0d 22 10 43 e3 20 77  61 69 74 25 3d 31 20 b8  |h.".C. wait%=1 .|
00007030  20 32 35 3a c8 96 3a c8  99 20 22 48 6f 75 72 67  | 25:..:.. "Hourg|
00007040  6c 61 73 73 5f 50 65 72  63 65 6e 74 61 67 65 22  |lass_Percentage"|
00007050  2c a8 28 28 77 61 69 74  25 2f 32 35 29 2a 31 30  |,.((wait%/25)*10|
00007060  30 29 3a ed 0d 22 1a 1a  f2 63 6c 6f 73 65 28 64  |0):.."...close(d|
00007070  69 73 63 5f 61 6e 6e 6f  75 6e 63 65 25 29 0d 22  |isc_announce%)."|
00007080  24 1f c8 99 20 22 57 69  6d 70 45 78 74 5f 52 65  |$... "WimpExt_Re|
00007090  6c 65 61 73 65 50 6f 69  6e 74 65 72 22 0d 22 2e  |leasePointer".".|
000070a0  16 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
000070b0  66 66 22 0d 22 38 05 e1  0d 22 42 05 3a 0d 22 4c  |ff"."8..."B.:."L|
000070c0  1e dd f2 74 69 63 6b 28  6d 65 6e 75 25 2c 69 74  |...tick(menu%,it|
000070d0  65 6d 25 2c 74 6f 74 61  6c 25 29 0d 22 56 27 e3  |em%,total%)."V'.|
000070e0  20 69 25 3d 30 20 b8 20  74 6f 74 61 6c 25 3a f2  | i%=0 . total%:.|
000070f0  6e 6f 74 69 63 6b 28 6d  65 6e 75 25 2c 69 25 29  |notick(menu%,i%)|
00007100  3a ed 0d 22 60 0e ea 20  61 64 64 72 65 73 73 25  |:.."`.. address%|
00007110  0d 22 6a 20 61 64 64 72  65 73 73 25 3d 6d 65 6e  |."j address%=men|
00007120  75 25 2b 32 38 2b 28 32  34 2a 69 74 65 6d 25 29  |u%+28+(24*item%)|
00007130  0d 22 74 1f 61 64 64 72  65 73 73 25 21 30 3d 61  |."t.address%!0=a|
00007140  64 64 72 65 73 73 25 21  30 20 82 20 26 30 31 0d  |ddress%!0 . &01.|
00007150  22 7e 05 e1 0d 22 88 05  3a 0d 22 92 19 dd f2 6e  |"~..."..:."....n|
00007160  6f 74 69 63 6b 28 6d 65  6e 75 25 2c 69 74 65 6d  |otick(menu%,item|
00007170  25 29 0d 22 9c 0e ea 20  61 64 64 72 65 73 73 25  |%)."... address%|
00007180  0d 22 a6 20 61 64 64 72  65 73 73 25 3d 6d 65 6e  |.". address%=men|
00007190  75 25 2b 32 38 2b 28 32  34 2a 69 74 65 6d 25 29  |u%+28+(24*item%)|
000071a0  0d 22 b0 21 61 64 64 72  65 73 73 25 21 30 3d 61  |.".!address%!0=a|
000071b0  64 64 72 65 73 73 25 21  30 20 80 20 ac 20 26 30  |ddress%!0 . . &0|
000071c0  31 0d 22 ba 05 e1 0d 22  c4 05 3a 0d 22 ce 19 dd  |1."...."..:."...|
000071d0  f2 63 6c 65 61 72 5f 64  61 74 61 5f 71 75 65 73  |.clear_data_ques|
000071e0  74 69 6f 6e 0d 22 d8 07  ef 20 37 0d 22 e2 34 f2  |tion."... 7.".4.|
000071f0  6f 70 65 6e 28 64 69 73  63 5f 63 6c 65 61 72 25  |open(disc_clear%|
00007200  29 3a c8 99 20 22 57 69  6d 70 5f 53 65 74 43 61  |):.. "Wimp_SetCa|
00007210  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 2d 31 0d  |retPosition",-1.|
00007220  22 ec 29 c8 99 20 22 57  69 6d 70 45 78 74 5f 4c  |".).. "WimpExt_L|
00007230  69 6d 69 74 50 6f 69 6e  74 65 72 22 2c 64 69 73  |imitPointer",dis|
00007240  63 5f 63 6c 65 61 72 25  0d 22 f6 05 e1 0d 23 00  |c_clear%."....#.|
00007250  05 3a 0d 23 0a 10 dd f2  63 6c 65 61 72 5f 64 61  |.:.#....clear_da|
00007260  74 61 0d 23 14 08 f2 6e  65 77 0d 23 1e 0b f2 75  |ta.#...new.#...u|
00007270  70 64 61 74 65 0d 23 28  1b f2 72 65 5f 74 69 74  |pdate.#(..re_tit|
00007280  6c 65 28 22 44 69 73 63  20 49 6e 64 65 78 22 29  |le("Disc Index")|
00007290  0d 23 32 0e 75 6e 73 61  76 65 64 25 3d a3 0d 23  |.#2.unsaved%=..#|
000072a0  3c 2a f2 63 6c 6f 73 65  5f 61 6c 6c 3a f2 6d 6f  |<*.close_all:.mo|
000072b0  76 65 5f 63 61 72 65 74  28 64 69 73 63 5f 69 6e  |ve_caret(disc_in|
000072c0  64 65 78 25 2c 31 33 29  0d 23 46 1f c8 99 20 22  |dex%,13).#F... "|
000072d0  57 69 6d 70 45 78 74 5f  52 65 6c 65 61 73 65 50  |WimpExt_ReleaseP|
000072e0  6f 69 6e 74 65 72 22 0d  23 50 05 e1 0d 23 5a 05  |ointer".#P...#Z.|
000072f0  3a 0d 23 64 10 dd f2 71  75 69 74 5f 63 68 65 63  |:.#d...quit_chec|
00007300  6b 0d 23 6e 11 c8 8e 20  75 6e 73 61 76 65 64 25  |k.#n... unsaved%|
00007310  20 ca 0d 23 78 07 c9 20  b9 0d 23 82 07 ef 20 37  | ..#x.. ..#... 7|
00007320  0d 23 8c 33 f2 6f 70 65  6e 28 64 69 73 63 5f 71  |.#.3.open(disc_q|
00007330  75 69 74 25 29 3a c8 99  20 22 57 69 6d 70 5f 53  |uit%):.. "Wimp_S|
00007340  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
00007350  2c 2d 31 0d 23 96 28 c8  99 20 22 57 69 6d 70 45  |,-1.#.(.. "WimpE|
00007360  78 74 5f 4c 69 6d 69 74  50 6f 69 6e 74 65 72 22  |xt_LimitPointer"|
00007370  2c 64 69 73 63 5f 71 75  69 74 25 0d 23 a0 0f c9  |,disc_quit%.#...|
00007380  20 a3 3a 71 75 69 74 25  3d b9 0d 23 aa 05 cb 0d  | .:quit%=..#....|
00007390  23 b4 05 e1 0d 23 be 05  3a 0d 23 c8 29 dd f2 73  |#....#..:.#.)..s|
000073a0  77 61 70 5f 63 61 73 65  28 77 69 6e 64 6f 77 25  |wap_case(window%|
000073b0  2c 69 63 6f 6e 25 2c 6b  65 79 5f 69 6e 64 65 78  |,icon%,key_index|
000073c0  25 29 0d 23 d2 36 e7 20  6b 65 79 5f 69 6e 64 65  |%).#.6. key_inde|
000073d0  78 25 3c a9 28 a4 72 65  61 64 5f 69 63 6f 6e 5f  |x%<.(.read_icon_|
000073e0  74 65 78 74 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |text(window%,ico|
000073f0  6e 25 2c a3 29 29 20 8c  0d 23 dc 2e 49 63 6f 6e  |n%,.)) ..#..Icon|
00007400  54 65 78 74 24 3d a4 72  65 61 64 5f 69 63 6f 6e  |Text$=.read_icon|
00007410  5f 74 65 78 74 28 77 69  6e 64 6f 77 25 2c 69 63  |_text(window%,ic|
00007420  6f 6e 25 2c a3 29 0d 23  e6 2a 43 25 3d 97 28 c1  |on%,.).#.*C%=.(.|
00007430  49 63 6f 6e 54 65 78 74  24 2c 6b 65 79 5f 69 6e  |IconText$,key_in|
00007440  64 65 78 25 2b 31 2c 31  29 29 20 80 20 26 44 46  |dex%+1,1)) . &DF|
00007450  0d 23 f0 19 e7 20 43 25  3e 3d 26 34 31 20 80 20  |.#... C%>=&41 . |
00007460  43 25 3c 3d 26 35 41 20  8c 0d 23 fa 2d 43 24 3d  |C%<=&5A ..#.-C$=|
00007470  bd 28 97 28 c1 49 63 6f  6e 54 65 78 74 24 2c 6b  |.(.(.IconText$,k|
00007480  65 79 5f 69 6e 64 65 78  25 2b 31 2c 31 29 29 20  |ey_index%+1,1)) |
00007490  82 20 26 32 30 29 0d 24  04 21 c1 49 63 6f 6e 54  |. &20).$.!.IconT|
000074a0  65 78 74 24 2c 6b 65 79  5f 69 6e 64 65 78 25 2b  |ext$,key_index%+|
000074b0  31 2c 31 29 3d 43 24 0d  24 0e 29 f2 75 70 64 61  |1,1)=C$.$.).upda|
000074c0  74 65 5f 69 63 6f 6e 28  77 69 6e 64 6f 77 25 2c  |te_icon(window%,|
000074d0  69 63 6f 6e 25 2c 49 63  6f 6e 54 65 78 74 24 29  |icon%,IconText$)|
000074e0  0d 24 18 05 cd 0d 24 22  32 f2 5f 53 65 74 43 61  |.$....$"2._SetCa|
000074f0  72 65 74 50 6f 73 69 74  69 6f 6e 28 77 69 6e 64  |retPosition(wind|
00007500  6f 77 25 2c 69 63 6f 6e  25 2c 6b 65 79 5f 69 6e  |ow%,icon%,key_in|
00007510  64 65 78 25 2b 31 29 0d  24 2c 05 cd 0d 24 36 05  |dex%+1).$,...$6.|
00007520  e1 0d 24 40 05 3a 0d 24  4a 31 dd f2 5f 53 65 74  |..$@.:.$J1.._Set|
00007530  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 28 77 69  |CaretPosition(wi|
00007540  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 6b 65 79 5f  |ndow%,icon%,key_|
00007550  69 6e 64 65 78 25 29 0d  24 54 33 49 63 6f 6e 4c  |index%).$T3IconL|
00007560  65 6e 67 74 68 25 3d a9  28 a4 72 65 61 64 5f 69  |ength%=.(.read_i|
00007570  63 6f 6e 5f 74 65 78 74  28 77 69 6e 64 6f 77 25  |con_text(window%|
00007580  2c 69 63 6f 6e 25 2c a3  29 29 0d 24 5e 35 e7 20  |,icon%,.)).$^5. |
00007590  6b 65 79 5f 69 6e 64 65  78 25 3e 49 63 6f 6e 4c  |key_index%>IconL|
000075a0  65 6e 67 74 68 25 20 8c  20 6b 65 79 5f 69 6e 64  |ength% . key_ind|
000075b0  65 78 25 3d 49 63 6f 6e  4c 65 6e 67 74 68 25 0d  |ex%=IconLength%.|
000075c0  24 68 3c c8 99 20 22 57  69 6d 70 5f 53 65 74 43  |$h<.. "Wimp_SetC|
000075d0  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 77 69  |aretPosition",wi|
000075e0  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 2c 2c 2d 31  |ndow%,icon%,,,-1|
000075f0  2c 6b 65 79 5f 69 6e 64  65 78 25 0d 24 72 22 c8  |,key_index%.$r".|
00007600  99 20 22 57 69 6d 70 5f  47 65 74 43 61 72 65 74  |. "Wimp_GetCaret|
00007610  50 6f 73 69 74 69 6f 6e  22 2c 2c 71 25 0d 24 7c  |Position",,q%.$||
00007620  05 e1 0d 24 86 05 3a 0d  24 90 28 dd a4 72 65 61  |...$..:.$.(..rea|
00007630  64 5f 69 63 6f 6e 5f 74  65 78 74 28 77 69 6e 64  |d_icon_text(wind|
00007640  6f 77 25 2c 69 63 6f 6e  25 2c 50 61 64 25 29 0d  |ow%,icon%,Pad%).|
00007650  24 9a 0d ea 20 52 65 73  75 6c 74 24 0d 24 a4 0f  |$... Result$.$..|
00007660  21 71 25 3d 77 69 6e 64  6f 77 25 0d 24 ae 0e 71  |!q%=window%.$..q|
00007670  25 21 34 3d 69 63 6f 6e  25 0d 24 b8 1e c8 99 20  |%!4=icon%.$.... |
00007680  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00007690  74 65 22 2c 2c 71 25 0d  24 c2 1b e7 20 28 71 25  |te",,q%.$... (q%|
000076a0  21 32 34 20 80 20 28 31  3c 3c 38 29 29 3c 3e 30  |!24 . (1<<8))<>0|
000076b0  20 8c 0d 24 cc 14 52 65  73 75 6c 74 24 3d 24 28  | ..$..Result$=$(|
000076c0  71 25 21 32 38 29 0d 24  d6 05 cc 0d 24 e0 14 52  |q%!28).$....$..R|
000076d0  65 73 75 6c 74 24 3d 24  28 71 25 2b 32 38 29 0d  |esult$=$(q%+28).|
000076e0  24 ea 05 cd 0d 24 f4 29  e7 20 50 61 64 25 3e 30  |$....$.). Pad%>0|
000076f0  20 8c 20 3d c0 52 65 73  75 6c 74 24 2b c4 50 61  | . =.Result$+.Pa|
00007700  64 25 2c 22 20 22 29 2c  50 61 64 25 29 0d 24 fe  |d%," "),Pad%).$.|
00007710  0c 3d 52 65 73 75 6c 74  24 0d 25 08 05 3a 0d 25  |.=Result$.%..:.%|
00007720  12 14 dd f2 6d 73 5f 6c  6f 61 64 28 6e 61 6d 65  |....ms_load(name|
00007730  24 29 0d 25 1c 25 c8 99  20 22 4d 65 73 73 61 67  |$).%.%.. "Messag|
00007740  65 54 72 61 6e 73 5f 46  69 6c 65 49 6e 66 6f 22  |eTrans_FileInfo"|
00007750  2c 2c 6e 61 6d 65 24 0d  25 26 11 de 20 6d 73 5f  |,,name$.%&.. ms_|
00007760  74 65 78 74 25 32 35 36  0d 25 30 2d c8 99 20 22  |text%256.%0-.. "|
00007770  4f 53 5f 4d 6f 64 75 6c  65 22 2c 36 2c 2c 2c 31  |OS_Module",6,,,1|
00007780  37 2b a9 28 6e 61 6d 65  24 29 b8 2c 2c 6d 73 5f  |7+.(name$).,,ms_|
00007790  64 65 73 63 25 0d 25 3a  18 24 28 6d 73 5f 64 65  |desc%.%:.$(ms_de|
000077a0  73 63 25 2b 31 36 29 3d  6e 61 6d 65 24 0d 25 44  |sc%+16)=name$.%D|
000077b0  33 c8 99 20 22 4d 65 73  73 61 67 65 54 72 61 6e  |3.. "MessageTran|
000077c0  73 5f 4f 70 65 6e 46 69  6c 65 22 2c 6d 73 5f 64  |s_OpenFile",ms_d|
000077d0  65 73 63 25 2c 6d 73 5f  64 65 73 63 25 2b 31 36  |esc%,ms_desc%+16|
000077e0  0d 25 4e 05 e1 0d 25 58  05 3a 0d 25 62 0c dd f2  |.%N...%X.:.%b...|
000077f0  6d 73 5f 65 6e 64 0d 25  6c 29 c8 99 20 22 58 4d  |ms_end.%l).. "XM|
00007800  65 73 73 61 67 65 54 72  61 6e 73 5f 43 6c 6f 73  |essageTrans_Clos|
00007810  65 46 69 6c 65 22 2c 6d  73 5f 64 65 73 63 25 0d  |eFile",ms_desc%.|
00007820  25 76 1f c8 99 20 22 58  4f 53 5f 4d 6f 64 75 6c  |%v... "XOS_Modul|
00007830  65 22 2c 37 2c 2c 6d 73  5f 64 65 73 63 25 0d 25  |e",7,,ms_desc%.%|
00007840  80 05 e1 0d 25 8a 05 3a  0d 25 94 10 dd a4 6d 73  |....%..:.%....ms|
00007850  5f 30 28 74 61 67 24 29  0d 25 9e 16 3d a4 6d 73  |_0(tag$).%..=.ms|
00007860  5f 32 28 74 61 67 24 2c  22 22 2c 22 22 29 0d 25  |_2(tag$,"","").%|
00007870  a8 05 3a 0d 25 b2 16 dd  a4 6d 73 5f 31 28 74 61  |..:.%....ms_1(ta|
00007880  67 24 2c 61 72 67 31 24  29 0d 25 bc 19 3d a4 6d  |g$,arg1$).%..=.m|
00007890  73 5f 32 28 74 61 67 24  2c 61 72 67 31 24 2c 22  |s_2(tag$,arg1$,"|
000078a0  22 29 0d 25 c6 05 3a 0d  25 d0 1c dd a4 6d 73 5f  |").%..:.%....ms_|
000078b0  32 28 74 61 67 24 2c 61  72 67 31 24 2c 61 72 67  |2(tag$,arg1$,arg|
000078c0  32 24 29 0d 25 da 0a ea  46 25 2c 4c 25 0d 25 e4  |2$).%...F%,L%.%.|
000078d0  4d c8 99 20 22 58 4d 65  73 73 61 67 65 54 72 61  |M.. "XMessageTra|
000078e0  6e 73 5f 4c 6f 6f 6b 75  70 22 2c 6d 73 5f 64 65  |ns_Lookup",ms_de|
000078f0  73 63 25 2c 74 61 67 24  2c 6d 73 5f 74 65 78 74  |sc%,tag$,ms_text|
00007900  25 2c 32 35 36 2c 61 72  67 31 24 2c 61 72 67 32  |%,256,arg1$,arg2|
00007910  24 b8 2c 2c 2c 4c 25 3b  46 25 0d 25 ee 0f e7 46  |$.,,,L%;F%.%...F|
00007920  25 80 20 31 8c 4c 25 3d  30 0d 25 f8 12 6d 73 5f  |%. 1.L%=0.%..ms_|
00007930  74 65 78 74 25 3f 4c 25  3d 31 33 0d 26 02 0e 3d  |text%?L%=13.&..=|
00007940  24 6d 73 5f 74 65 78 74  25 0d 26 0c 05 3a 0d 26  |$ms_text%.&..:.&|
00007950  16 11 dd f2 68 65 6c 70  28 68 65 6c 70 24 29 0d  |....help(help$).|
00007960  26 20 08 ea 20 43 25 0d  26 2a 0f 43 25 3d a9 68  |& .. C%.&*.C%=.h|
00007970  65 6c 70 24 2b 31 0d 26  34 0e 71 25 21 31 32 3d  |elp$+1.&4.q%!12=|
00007980  71 25 21 38 0d 26 3e 0e  71 25 21 31 36 3d 26 35  |q%!8.&>.q%!16=&5|
00007990  30 33 0d 26 48 15 24 28  71 25 2b 32 30 29 3d 68  |03.&H.$(q%+20)=h|
000079a0  65 6c 70 24 2b bd 30 0d  26 52 12 21 71 25 3d 28  |elp$+.0.&R.!q%=(|
000079b0  32 34 2b 43 25 29 80 ac  33 0d 26 5c 24 c8 99 20  |24+C%)..3.&\$.. |
000079c0  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
000079d0  65 22 2c 31 37 2c 71 25  2c 71 25 21 34 0d 26 66  |e",17,q%,q%!4.&f|
000079e0  05 cd 0d 26 70 05 e1 0d  26 7a 05 3a 0d 26 84 0f  |...&p...&z.:.&..|
000079f0  dd a4 68 65 6c 70 5f 74  65 78 74 0d 26 8e 0b ea  |..help_text.&...|
00007a00  20 74 65 78 74 24 0d 26  98 0c 74 65 78 74 24 3d  | text$.&..text$=|
00007a10  22 22 0d 26 a2 0e c8 8e  20 71 25 21 33 32 20 ca  |"".&.... q%!32 .|
00007a20  0d 26 ac 1f c9 20 2d 32  3a 74 65 78 74 24 3d a4  |.&... -2:text$=.|
00007a30  6d 73 5f 30 28 22 49 63  6f 6e 42 61 72 22 29 0d  |ms_0("IconBar").|
00007a40  26 b6 26 c9 20 64 69 73  63 5f 69 6e 66 6f 62 6f  |&.&. disc_infobo|
00007a50  78 25 3a 74 65 78 74 24  3d a4 6d 73 5f 30 28 22  |x%:text$=.ms_0("|
00007a60  41 64 64 22 29 0d 26 c0  1c c9 20 64 69 73 63 5f  |Add").&... disc_|
00007a70  69 6e 64 65 78 25 3a c8  8e 20 71 25 21 33 36 20  |index%:.. q%!36 |
00007a80  ca 0d 26 ca 1c c9 20 33  3a 74 65 78 74 24 3d a4  |..&... 3:text$=.|
00007a90  6d 73 5f 30 28 22 46 69  72 73 74 22 29 0d 26 d4  |ms_0("First").&.|
00007aa0  1d c9 20 33 34 2c 34 3a  74 65 78 74 24 3d a4 6d  |.. 34,4:text$=.m|
00007ab0  73 5f 30 28 22 4f 6e 65  22 29 0d 26 de 1c c9 20  |s_0("One").&... |
00007ac0  32 2c 35 3a 74 65 78 74  24 3d a4 6d 73 5f 30 28  |2,5:text$=.ms_0(|
00007ad0  22 54 65 6e 22 29 0d 26  e8 1b c9 20 36 3a 74 65  |"Ten").&... 6:te|
00007ae0  78 74 24 3d a4 6d 73 5f  30 28 22 4c 61 73 74 22  |xt$=.ms_0("Last"|
00007af0  29 0d 26 f2 1b c9 20 31  30 3a 74 65 78 74 24 3d  |).&... 10:text$=|
00007b00  a4 6d 73 5f 30 28 22 52  65 63 22 29 0d 26 fc 1f  |.ms_0("Rec").&..|
00007b10  c9 20 31 32 2c 32 32 3a  74 65 78 74 24 3d a4 6d  |. 12,22:text$=.m|
00007b20  73 5f 30 28 22 55 70 64  61 22 29 0d 27 06 1c c9  |s_0("Upda").'...|
00007b30  20 31 33 3a 74 65 78 74  24 3d a4 6d 73 5f 30 28  | 13:text$=.ms_0(|
00007b40  22 54 65 4d 65 22 29 0d  27 10 28 c9 20 31 35 3a  |"TeMe").'.(. 15:|
00007b50  74 65 78 74 24 3d a4 6d  73 5f 31 28 22 4d 65 6e  |text$=.ms_1("Men|
00007b60  75 22 2c 22 44 69 73 63  74 79 70 65 73 22 29 0d  |u","Disctypes").|
00007b70  27 1a 1c c9 20 32 30 3a  74 65 78 74 24 3d a4 6d  |'... 20:text$=.m|
00007b80  73 5f 30 28 22 53 63 61  6e 22 29 0d 27 24 26 c9  |s_0("Scan").'$&.|
00007b90  20 32 35 2c 32 36 2c 32  37 2c 32 38 3a 74 65 78  | 25,26,27,28:tex|
00007ba0  74 24 3d a4 6d 73 5f 30  28 22 45 78 74 72 61 22  |t$=.ms_0("Extra"|
00007bb0  29 0d 27 2e 19 7f 3a 74  65 78 74 24 3d a4 6d 73  |).'...:text$=.ms|
00007bc0  5f 30 28 22 4d 61 69 6e  22 29 0d 27 38 05 cb 0d  |_0("Main").'8...|
00007bd0  27 42 1b c9 20 64 69 73  63 5f 73 6f 72 74 25 3a  |'B.. disc_sort%:|
00007be0  c8 8e 20 71 25 21 33 36  20 ca 0d 27 4c 27 c9 20  |.. q%!36 ..'L'. |
00007bf0  31 3a 74 65 78 74 24 3d  a4 6d 73 5f 31 28 22 53  |1:text$=.ms_1("S|
00007c00  6f 72 74 54 22 2c 22 44  69 73 63 6e 61 6d 65 22  |ortT","Discname"|
00007c10  29 0d 27 56 27 c9 20 32  3a 74 65 78 74 24 3d a4  |).'V'. 2:text$=.|
00007c20  6d 73 5f 31 28 22 53 6f  72 74 54 22 2c 22 44 69  |ms_1("SortT","Di|
00007c30  73 63 74 79 70 65 22 29  0d 27 60 1d c9 20 34 3a  |sctype").'`.. 4:|
00007c40  74 65 78 74 24 3d a4 6d  73 5f 30 28 22 53 6f 72  |text$=.ms_0("Sor|
00007c50  74 47 6f 22 29 0d 27 6a  05 cb 0d 27 74 1e c9 20  |tGo").'j...'t.. |
00007c60  64 69 73 63 5f 73 61 76  65 62 6f 78 25 3a c8 8e  |disc_savebox%:..|
00007c70  20 71 25 21 33 36 20 ca  0d 27 7e 1c c9 20 30 3a  | q%!36 ..'~.. 0:|
00007c80  74 65 78 74 24 3d a4 6d  73 5f 30 28 22 44 72 61  |text$=.ms_0("Dra|
00007c90  67 54 22 29 0d 27 88 1c  c9 20 31 3a 74 65 78 74  |gT").'... 1:text|
00007ca0  24 3d a4 6d 73 5f 30 28  22 46 69 6c 65 54 22 29  |$=.ms_0("FileT")|
00007cb0  0d 27 92 1c c9 20 32 3a  74 65 78 74 24 3d a4 6d  |.'... 2:text$=.m|
00007cc0  73 5f 30 28 22 53 61 76  65 54 22 29 0d 27 9c 05  |s_0("SaveT").'..|
00007cd0  cb 0d 27 a6 1f c9 20 64  69 73 63 5f 73 61 76 65  |..'... disc_save|
00007ce0  62 6f 78 32 25 3a c8 8e  20 71 25 21 33 36 20 ca  |box2%:.. q%!36 .|
00007cf0  0d 27 b0 1b c9 20 30 3a  74 65 78 74 24 3d a4 6d  |.'... 0:text$=.m|
00007d00  73 5f 30 28 22 44 72 61  67 22 29 0d 27 ba 1b c9  |s_0("Drag").'...|
00007d10  20 31 3a 74 65 78 74 24  3d a4 6d 73 5f 30 28 22  | 1:text$=.ms_0("|
00007d20  46 69 6c 65 22 29 0d 27  c4 1b c9 20 32 3a 74 65  |File").'... 2:te|
00007d30  78 74 24 3d a4 6d 73 5f  30 28 22 53 61 76 65 22  |xt$=.ms_0("Save"|
00007d40  29 0d 27 ce 05 cb 0d 27  d8 1b c9 20 64 69 73 63  |).'....'... disc|
00007d50  5f 71 75 69 74 25 3a c8  8e 20 71 25 21 33 36 20  |_quit%:.. q%!36 |
00007d60  ca 0d 27 e2 1d c9 20 31  2c 32 3a 74 65 78 74 24  |..'... 1,2:text$|
00007d70  3d a4 6d 73 5f 30 28 22  51 75 65 73 22 29 0d 27  |=.ms_0("Ques").'|
00007d80  ec 05 cb 0d 27 f6 1c c9  20 64 69 73 63 5f 63 6c  |....'... disc_cl|
00007d90  65 61 72 25 3a c8 8e 20  71 25 21 33 36 20 ca 0d  |ear%:.. q%!36 ..|
00007da0  28 00 1d c9 20 31 2c 32  3a 74 65 78 74 24 3d a4  |(... 1,2:text$=.|
00007db0  6d 73 5f 30 28 22 51 75  65 73 22 29 0d 28 0a 05  |ms_0("Ques").(..|
00007dc0  cb 0d 28 14 1c c9 20 64  69 73 63 5f 70 72 69 6e  |..(... disc_prin|
00007dd0  74 25 3a c8 8e 20 71 25  21 33 36 20 ca 0d 28 1e  |t%:.. q%!36 ..(.|
00007de0  23 c9 20 31 3a 74 65 78  74 24 3d a4 6d 73 5f 31  |#. 1:text$=.ms_1|
00007df0  28 22 51 75 61 6c 22 2c  22 64 72 61 66 74 22 29  |("Qual","draft")|
00007e00  0d 28 28 31 c9 20 32 3a  74 65 78 74 24 3d a4 6d  |.((1. 2:text$=.m|
00007e10  73 5f 31 28 22 51 75 61  6c 22 2c 22 6e 65 61 72  |s_1("Qual","near|
00007e20  20 6c 65 74 74 65 72 20  71 75 61 6c 69 74 79 22  | letter quality"|
00007e30  29 0d 28 32 34 c9 20 33  3a 74 65 78 74 24 3d a4  |).(24. 3:text$=.|
00007e40  6d 73 5f 31 28 22 51 75  61 6c 22 2c 22 52 49 53  |ms_1("Qual","RIS|
00007e50  43 20 4f 53 20 50 72 69  6e 74 65 72 20 44 72 69  |C OS Printer Dri|
00007e60  76 65 72 22 29 0d 28 3c  1b c9 20 36 3a 74 65 78  |ver").(<.. 6:tex|
00007e70  74 24 3d a4 6d 73 5f 30  28 22 43 6f 70 79 22 29  |t$=.ms_0("Copy")|
00007e80  0d 28 46 1b c9 20 37 3a  74 65 78 74 24 3d a4 6d  |.(F.. 7:text$=.m|
00007e90  73 5f 30 28 22 50 72 69  6e 22 29 0d 28 50 2d c9  |s_0("Prin").(P-.|
00007ea0  20 39 3a 74 65 78 74 24  3d a4 6d 73 5f 31 28 22  | 9:text$=.ms_1("|
00007eb0  50 72 69 6e 54 22 2c 22  44 69 73 63 20 49 6e 66  |PrinT","Disc Inf|
00007ec0  6f 20 4f 6e 6c 79 22 29  0d 28 5a 2c c9 20 31 30  |o Only").(Z,. 10|
00007ed0  3a 74 65 78 74 24 3d a4  6d 73 5f 31 28 22 50 72  |:text$=.ms_1("Pr|
00007ee0  69 6e 54 22 2c 22 46 75  6c 6c 20 44 65 74 61 69  |inT","Full Detai|
00007ef0  6c 73 22 29 0d 28 64 2b  c9 20 31 31 3a 74 65 78  |ls").(d+. 11:tex|
00007f00  74 24 3d a4 6d 73 5f 31  28 22 50 72 69 6e 54 32  |t$=.ms_1("PrinT2|
00007f10  22 2c 22 44 69 73 63 20  4c 61 62 65 6c 22 29 0d  |","Disc Label").|
00007f20  28 6e 1d c9 20 31 32 3a  74 65 78 74 24 3d a4 6d  |(n.. 12:text$=.m|
00007f30  73 5f 30 28 22 4c 61 62  65 6c 22 29 0d 28 78 05  |s_0("Label").(x.|
00007f40  cb 0d 28 82 1d c9 20 64  69 73 63 5f 73 65 61 72  |..(... disc_sear|
00007f50  63 68 25 3a c8 8e 20 71  25 21 33 36 20 ca 0d 28  |ch%:.. q%!36 ..(|
00007f60  8c 1e c9 20 31 3a 74 65  78 74 24 3d a4 6d 73 5f  |... 1:text$=.ms_|
00007f70  30 28 22 53 65 61 54 65  78 74 22 29 0d 28 96 1e  |0("SeaText").(..|
00007f80  c9 20 37 3a 74 65 78 74  24 3d a4 6d 73 5f 30 28  |. 7:text$=.ms_0(|
00007f90  22 53 65 61 50 72 65 76  22 29 0d 28 a0 1d c9 20  |"SeaPrev").(... |
00007fa0  35 3a 74 65 78 74 24 3d  a4 6d 73 5f 30 28 22 53  |5:text$=.ms_0("S|
00007fb0  65 61 72 47 6f 22 29 0d  28 aa 28 c9 20 33 3a 74  |earGo").(.(. 3:t|
00007fc0  65 78 74 24 3d a4 6d 73  5f 31 28 22 53 65 61 72  |ext$=.ms_1("Sear|
00007fd0  54 79 22 2c 22 44 69 73  63 6e 61 6d 65 22 29 0d  |Ty","Discname").|
00007fe0  28 b4 28 c9 20 34 3a 74  65 78 74 24 3d a4 6d 73  |(.(. 4:text$=.ms|
00007ff0  5f 31 28 22 53 65 61 72  54 79 22 2c 22 44 69 73  |_1("SearTy","Dis|
00008000  63 74 79 70 65 22 29 0d  28 be 2c c9 20 38 3a 74  |ctype").(.,. 8:t|
00008010  65 78 74 24 3d a4 6d 73  5f 31 28 22 53 65 61 72  |ext$=.ms_1("Sear|
00008020  54 79 32 22 2c 22 41 70  70 6c 69 63 61 74 69 6f  |Ty2","Applicatio|
00008030  6e 22 29 0d 28 c0 28 c9  20 31 31 3a 74 65 78 74  |n").(.(. 11:text|
00008040  24 3d a4 6d 73 5f 31 28  22 4d 65 6e 75 22 2c 22  |$=.ms_1("Menu","|
00008050  44 69 73 63 74 79 70 65  73 22 29 0d 28 c8 05 cb  |Disctypes").(...|
00008060  0d 28 d2 26 c9 20 64 69  73 63 5f 66 6f 75 6e 64  |.(.&. disc_found|
00008070  25 3a 74 65 78 74 24 3d  a4 6d 73 5f 30 28 22 46  |%:text$=.ms_0("F|
00008080  6f 75 6e 64 22 29 0d 28  dc 26 c9 20 64 69 73 63  |ound").(.&. disc|
00008090  5f 74 72 61 63 6b 73 25  3a 74 65 78 74 24 3d a4  |_tracks%:text$=.|
000080a0  6d 73 5f 30 28 22 54 65  78 74 22 29 0d 28 e6 05  |ms_0("Text").(..|
000080b0  cb 0d 28 f0 0a 3d 74 65  78 74 24 0d 28 fa 05 3a  |..(..=text$.(..:|
000080c0  0d 29 04 13 dd f2 67 65  74 5f 6d 6f 64 65 5f 69  |.)....get_mode_i|
000080d0  6e 66 6f 0d 29 0e 1f 63  78 25 3d 28 a4 6d 76 28  |nfo.)..cx%=(.mv(|
000080e0  eb 2c 31 31 29 29 3c 3c  28 a4 6d 76 28 eb 2c 34  |.,11))<<(.mv(.,4|
000080f0  29 29 0d 29 18 1f 63 79  25 3d 28 a4 6d 76 28 eb  |)).)..cy%=(.mv(.|
00008100  2c 31 32 29 29 3c 3c 28  a4 6d 76 28 eb 2c 35 29  |,12))<<(.mv(.,5)|
00008110  29 0d 29 22 05 e1 0d 29  2c 05 3a 0d 29 36 14 dd  |).)"...),.:.)6..|
00008120  a4 6d 76 28 6d 6f 64 65  25 2c 76 61 72 25 29 0d  |.mv(mode%,var%).|
00008130  29 40 08 ea 20 76 25 0d  29 4a 2e c8 99 20 22 4f  |)@.. v%.)J... "O|
00008140  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
00008150  6c 65 22 2c 6d 6f 64 65  25 2c 76 61 72 25 20 b8  |le",mode%,var% .|
00008160  20 2c 2c 76 25 0d 29 54  07 3d 76 25 0d 29 5e 05  | ,,v%.)T.=v%.)^.|
00008170  3a 0d 29 68 12 dd f2 63  6c 65 61 72 5f 73 65 61  |:.)h...clear_sea|
00008180  72 63 68 0d 29 72 1a ea  20 69 63 6f 6e 25 3a e3  |rch.)r.. icon%:.|
00008190  20 69 63 6f 6e 25 3d 30  20 b8 20 35 31 0d 29 7c  | icon%=0 . 51.)||
000081a0  26 f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 64 69  |&.update_icon(di|
000081b0  73 63 5f 66 6f 75 6e 64  25 2c 69 63 6f 6e 25 2c  |sc_found%,icon%,|
000081c0  22 22 29 0d 29 86 05 ed  0d 29 90 4a f2 75 70 64  |"").)....).J.upd|
000081d0  61 74 65 5f 69 63 6f 6e  28 64 69 73 63 5f 66 6f  |ate_icon(disc_fo|
000081e0  75 6e 64 25 2c 31 2c 22  63 6f 75 6c 64 20 62 65  |und%,1,"could be|
000081f0  20 66 6f 75 6e 64 20 69  6e 20 74 68 65 20 66 6f  | found in the fo|
00008200  6c 6c 6f 77 69 6e 67 20  72 65 63 6f 72 64 73 3a  |llowing records:|
00008210  22 29 0d 29 9a 05 e1 0d  29 a4 05 3a 0d 29 ae 14  |").)....)..:.)..|
00008220  dd f2 73 65 61 72 63 68  28 66 69 65 6c 64 24 29  |..search(field$)|
00008230  0d 29 b8 15 c8 99 20 22  48 6f 75 72 67 6c 61 73  |.).... "Hourglas|
00008240  73 5f 4f 6e 22 0d 29 c2  19 66 6f 75 6e 64 69 63  |s_On".)..foundic|
00008250  6f 6e 25 3d 32 3a 66 6f  75 6e 64 25 3d 30 0d 29  |on%=2:found%=0.)|
00008260  cc 2b 73 65 61 72 63 68  73 74 72 69 6e 67 24 3d  |.+searchstring$=|
00008270  a4 69 6e 64 69 72 65 63  74 28 64 69 73 63 5f 73  |.indirect(disc_s|
00008280  65 61 72 63 68 25 2c 31  29 0d 29 d6 61 e7 20 73  |earch%,1).).a. s|
00008290  65 61 72 63 68 73 74 72  69 6e 67 24 3d 22 22 20  |earchstring$="" |
000082a0  8c 20 f2 63 6c 6f 73 65  28 64 69 73 63 5f 73 65  |. .close(disc_se|
000082b0  61 72 63 68 25 29 3a c8  99 20 22 57 69 6d 70 5f  |arch%):.. "Wimp_|
000082c0  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 2d 31 3a  |CreateMenu",,-1:|
000082d0  85 20 31 2c 22 45 6e 74  65 72 20 73 65 61 72 63  |. 1,"Enter searc|
000082e0  68 20 73 74 72 69 6e 67  2e 22 0d 29 e0 2d f2 75  |h string.".).-.u|
000082f0  70 64 61 74 65 5f 69 63  6f 6e 28 64 69 73 63 5f  |pdate_icon(disc_|
00008300  66 6f 75 6e 64 25 2c 30  2c 73 65 61 72 63 68 73  |found%,0,searchs|
00008310  74 72 69 6e 67 24 29 0d  29 ea 4d e7 20 63 61 73  |tring$).).M. cas|
00008320  65 73 65 6e 73 65 24 3d  22 4e 6f 22 20 8c 20 53  |esense$="No" . S|
00008330  65 61 72 63 68 24 3d a4  75 70 70 65 72 28 73 65  |earch$=.upper(se|
00008340  61 72 63 68 73 74 72 69  6e 67 24 29 20 8b 20 53  |archstring$) . S|
00008350  65 61 72 63 68 24 3d 73  65 61 72 63 68 73 74 72  |earch$=searchstr|
00008360  69 6e 67 24 0d 29 f4 0f  c8 8e 20 66 69 65 6c 64  |ing$.).... field|
00008370  24 20 ca 0d 29 fe 0d c9  20 22 44 6e 61 6d 65 22  |$ ..)... "Dname"|
00008380  0d 2a 08 1d e3 20 6e 75  6d 62 65 72 25 3d 31 20  |.*... number%=1 |
00008390  b8 20 6d 61 78 5f 72 65  63 6f 72 64 25 0d 2a 12  |. max_record%.*.|
000083a0  1e 69 63 6f 6e 5f 75 73  65 64 25 3d a3 3a 73 75  |.icon_used%=.:su|
000083b0  62 5f 6e 75 6d 62 65 72  25 3d 31 0d 2a 1c 3a c8  |b_number%=1.*.:.|
000083c0  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 50 65 72  |. "Hourglass_Per|
000083d0  63 65 6e 74 61 67 65 22  2c a8 28 28 6e 75 6d 62  |centage",.((numb|
000083e0  65 72 25 2f 6d 61 78 5f  72 65 63 6f 72 64 25 29  |er%/max_record%)|
000083f0  2a 31 30 30 29 0d 2a 26  57 e7 20 63 61 73 65 73  |*100).*&W. cases|
00008400  65 6e 73 65 24 3d 22 4e  6f 22 20 8c 20 74 61 72  |ense$="No" . tar|
00008410  67 65 74 24 3d a4 75 70  70 65 72 28 64 69 73 63  |get$=.upper(disc|
00008420  6e 61 6d 65 24 28 6e 75  6d 62 65 72 25 29 29 20  |name$(number%)) |
00008430  8b 20 74 61 72 67 65 74  24 3d 64 69 73 63 6e 61  |. target$=discna|
00008440  6d 65 24 28 6e 75 6d 62  65 72 25 29 0d 2a 30 31  |me$(number%).*01|
00008450  e3 20 62 25 3d 31 20 b8  20 a9 20 74 61 72 67 65  |. b%=1 . . targe|
00008460  74 24 3a 61 24 3d c1 74  61 72 67 65 74 24 2c 62  |t$:a$=.target$,b|
00008470  25 2c a9 28 53 65 61 72  63 68 24 29 29 0d 2a 3a  |%,.(Search$)).*:|
00008480  3c e7 20 53 65 61 72 63  68 24 3d 61 24 20 8c 20  |<. Search$=a$ . |
00008490  f2 61 64 64 5f 74 6f 5f  66 6f 75 6e 64 28 6e 75  |.add_to_found(nu|
000084a0  6d 62 65 72 25 2c 73 75  62 5f 6e 75 6d 62 65 72  |mber%,sub_number|
000084b0  25 29 3a e5 20 8d 44 4e  6a 0d 2a 44 08 ed 20 62  |%):. .DNj.*D.. b|
000084c0  25 0d 2a 4e 2c e7 20 69  63 6f 6e 5f 75 73 65 64  |%.*N,. icon_used|
000084d0  25 3d b9 20 8c 20 66 6f  75 6e 64 69 63 6f 6e 25  |%=. . foundicon%|
000084e0  2b 3d 31 3a 66 6f 75 6e  64 25 2b 3d 31 0d 2a 58  |+=1:found%+=1.*X|
000084f0  0d ed 20 6e 75 6d 62 65  72 25 0d 2a 62 0d c9 20  |.. number%.*b.. |
00008500  22 45 78 74 72 61 22 0d  2a 6c 1d e3 20 6e 75 6d  |"Extra".*l.. num|
00008510  62 65 72 25 3d 31 20 b8  20 6d 61 78 5f 72 65 63  |ber%=1 . max_rec|
00008520  6f 72 64 25 0d 2a 76 1e  69 63 6f 6e 5f 75 73 65  |ord%.*v.icon_use|
00008530  64 25 3d a3 3a 73 75 62  5f 6e 75 6d 62 65 72 25  |d%=.:sub_number%|
00008540  3d 31 0d 2a 80 3a c8 99  20 22 48 6f 75 72 67 6c  |=1.*.:.. "Hourgl|
00008550  61 73 73 5f 50 65 72 63  65 6e 74 61 67 65 22 2c  |ass_Percentage",|
00008560  a8 28 28 6e 75 6d 62 65  72 25 2f 6d 61 78 5f 72  |.((number%/max_r|
00008570  65 63 6f 72 64 25 29 2a  31 30 30 29 0d 2a 8a 10  |ecord%)*100).*..|
00008580  e3 20 73 75 62 25 3d 31  20 b8 20 34 0d 2a 94 5f  |. sub%=1 . 4.*._|
00008590  e7 20 63 61 73 65 73 65  6e 73 65 24 3d 22 4e 6f  |. casesense$="No|
000085a0  22 20 8c 20 74 61 72 67  65 74 24 3d a4 75 70 70  |" . target$=.upp|
000085b0  65 72 28 63 6f 6d 6d 65  6e 74 24 28 6e 75 6d 62  |er(comment$(numb|
000085c0  65 72 25 2c 73 75 62 25  29 29 20 8b 20 74 61 72  |er%,sub%)) . tar|
000085d0  67 65 74 24 3d 63 6f 6d  6d 65 6e 74 24 28 6e 75  |get$=comment$(nu|
000085e0  6d 62 65 72 25 2c 73 75  62 25 29 0d 2a 9e 31 e3  |mber%,sub%).*.1.|
000085f0  20 62 25 3d 31 20 b8 20  a9 20 74 61 72 67 65 74  | b%=1 . . target|
00008600  24 3a 61 24 3d c1 74 61  72 67 65 74 24 2c 62 25  |$:a$=.target$,b%|
00008610  2c a9 28 53 65 61 72 63  68 24 29 29 0d 2a a8 3c  |,.(Search$)).*.<|
00008620  e7 20 53 65 61 72 63 68  24 3d 61 24 20 8c 20 f2  |. Search$=a$ . .|
00008630  61 64 64 5f 74 6f 5f 66  6f 75 6e 64 28 6e 75 6d  |add_to_found(num|
00008640  62 65 72 25 2c 73 75 62  5f 6e 75 6d 62 65 72 25  |ber%,sub_number%|
00008650  29 3a e5 20 8d 74 7c 6a  0d 2a b2 08 ed 20 62 25  |):. .t|j.*... b%|
00008660  0d 2a bc 0a ed 20 73 75  62 25 0d 2a c6 2c e7 20  |.*... sub%.*.,. |
00008670  69 63 6f 6e 5f 75 73 65  64 25 3d b9 20 8c 20 66  |icon_used%=. . f|
00008680  6f 75 6e 64 69 63 6f 6e  25 2b 3d 31 3a 66 6f 75  |oundicon%+=1:fou|
00008690  6e 64 25 2b 3d 31 0d 2a  d0 0d ed 20 6e 75 6d 62  |nd%+=1.*... numb|
000086a0  65 72 25 0d 2a da 0d c9  20 22 44 74 79 70 65 22  |er%.*... "Dtype"|
000086b0  0d 2a e4 1d e3 20 6e 75  6d 62 65 72 25 3d 31 20  |.*... number%=1 |
000086c0  b8 20 6d 61 78 5f 72 65  63 6f 72 64 25 0d 2a ee  |. max_record%.*.|
000086d0  1e 69 63 6f 6e 5f 75 73  65 64 25 3d a3 3a 73 75  |.icon_used%=.:su|
000086e0  62 5f 6e 75 6d 62 65 72  25 3d 31 0d 2a f8 3a c8  |b_number%=1.*.:.|
000086f0  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 50 65 72  |. "Hourglass_Per|
00008700  63 65 6e 74 61 67 65 22  2c a8 28 28 6e 75 6d 62  |centage",.((numb|
00008710  65 72 25 2f 6d 61 78 5f  72 65 63 6f 72 64 25 29  |er%/max_record%)|
00008720  2a 31 30 30 29 0d 2b 02  57 e7 20 63 61 73 65 73  |*100).+.W. cases|
00008730  65 6e 73 65 24 3d 22 4e  6f 22 20 8c 20 74 61 72  |ense$="No" . tar|
00008740  67 65 74 24 3d a4 75 70  70 65 72 28 64 69 73 63  |get$=.upper(disc|
00008750  74 79 70 65 24 28 6e 75  6d 62 65 72 25 29 29 20  |type$(number%)) |
00008760  8b 20 74 61 72 67 65 74  24 3d 64 69 73 63 74 79  |. target$=discty|
00008770  70 65 24 28 6e 75 6d 62  65 72 25 29 0d 2b 0c 31  |pe$(number%).+.1|
00008780  e3 20 62 25 3d 31 20 b8  20 a9 20 74 61 72 67 65  |. b%=1 . . targe|
00008790  74 24 3a 61 24 3d c1 74  61 72 67 65 74 24 2c 62  |t$:a$=.target$,b|
000087a0  25 2c a9 28 53 65 61 72  63 68 24 29 29 0d 2b 16  |%,.(Search$)).+.|
000087b0  3c e7 20 53 65 61 72 63  68 24 3d 61 24 20 8c 20  |<. Search$=a$ . |
000087c0  f2 61 64 64 5f 74 6f 5f  66 6f 75 6e 64 28 6e 75  |.add_to_found(nu|
000087d0  6d 62 65 72 25 2c 73 75  62 5f 6e 75 6d 62 65 72  |mber%,sub_number|
000087e0  25 29 3a e5 20 8d 54 6a  6b 0d 2b 20 08 ed 20 62  |%):. .Tjk.+ .. b|
000087f0  25 0d 2b 2a 2c e7 20 69  63 6f 6e 5f 75 73 65 64  |%.+*,. icon_used|
00008800  25 3d b9 20 8c 20 66 6f  75 6e 64 69 63 6f 6e 25  |%=. . foundicon%|
00008810  2b 3d 31 3a 66 6f 75 6e  64 25 2b 3d 31 0d 2b 34  |+=1:found%+=1.+4|
00008820  0d ed 20 6e 75 6d 62 65  72 25 0d 2b 3e 0b c9 20  |.. number%.+>.. |
00008830  22 41 70 70 22 0d 2b 48  1d e3 20 6e 75 6d 62 65  |"App".+H.. numbe|
00008840  72 25 3d 31 20 b8 20 6d  61 78 5f 72 65 63 6f 72  |r%=1 . max_recor|
00008850  64 25 0d 2b 52 1e 69 63  6f 6e 5f 75 73 65 64 25  |d%.+R.icon_used%|
00008860  3d a3 3a 73 75 62 5f 6e  75 6d 62 65 72 25 3d 31  |=.:sub_number%=1|
00008870  0d 2b 5c 3a c8 99 20 22  48 6f 75 72 67 6c 61 73  |.+\:.. "Hourglas|
00008880  73 5f 50 65 72 63 65 6e  74 61 67 65 22 2c a8 28  |s_Percentage",.(|
00008890  28 6e 75 6d 62 65 72 25  2f 6d 61 78 5f 72 65 63  |(number%/max_rec|
000088a0  6f 72 64 25 29 2a 31 30  30 29 0d 2b 66 11 e3 20  |ord%)*100).+f.. |
000088b0  73 75 62 25 3d 31 20 b8  20 35 30 0d 2b 70 59 e7  |sub%=1 . 50.+pY.|
000088c0  20 63 61 73 65 73 65 6e  73 65 24 3d 22 4e 6f 22  | casesense$="No"|
000088d0  20 8c 20 74 61 72 67 65  74 24 3d a4 75 70 70 65  | . target$=.uppe|
000088e0  72 28 6e 61 6d 65 24 28  6e 75 6d 62 65 72 25 2c  |r(name$(number%,|
000088f0  73 75 62 25 29 29 20 8b  20 74 61 72 67 65 74 24  |sub%)) . target$|
00008900  3d 6e 61 6d 65 24 28 6e  75 6d 62 65 72 25 2c 73  |=name$(number%,s|
00008910  75 62 25 29 0d 2b 7a 31  e3 20 62 25 3d 31 20 b8  |ub%).+z1. b%=1 .|
00008920  20 a9 20 74 61 72 67 65  74 24 3a 61 24 3d c1 74  | . target$:a$=.t|
00008930  61 72 67 65 74 24 2c 62  25 2c a9 28 53 65 61 72  |arget$,b%,.(Sear|
00008940  63 68 24 29 29 0d 2b 84  3c e7 20 53 65 61 72 63  |ch$)).+.<. Searc|
00008950  68 24 3d 61 24 20 8c 20  f2 61 64 64 5f 74 6f 5f  |h$=a$ . .add_to_|
00008960  66 6f 75 6e 64 28 6e 75  6d 62 65 72 25 2c 73 75  |found(number%,su|
00008970  62 5f 6e 75 6d 62 65 72  25 29 3a e5 20 8d 74 58  |b_number%):. .tX|
00008980  6b 0d 2b 8e 08 ed 20 62  25 0d 2b 98 0a ed 20 73  |k.+... b%.+... s|
00008990  75 62 25 0d 2b a2 2c e7  20 69 63 6f 6e 5f 75 73  |ub%.+.,. icon_us|
000089a0  65 64 25 3d b9 20 8c 20  66 6f 75 6e 64 69 63 6f  |ed%=. . foundico|
000089b0  6e 25 2b 3d 31 3a 66 6f  75 6e 64 25 2b 3d 31 0d  |n%+=1:found%+=1.|
000089c0  2b ac 0d ed 20 6e 75 6d  62 65 72 25 0d 2b b6 05  |+... number%.+..|
000089d0  cb 0d 2b c0 18 f2 63 6c  6f 73 65 28 64 69 73 63  |..+...close(disc|
000089e0  5f 73 65 61 72 63 68 25  29 0d 2b ca 23 f2 75 70  |_search%).+.#.up|
000089f0  64 61 74 65 5f 69 63 6f  6e 28 64 69 73 63 5f 73  |date_icon(disc_s|
00008a00  65 61 72 63 68 25 2c 31  2c 22 22 29 0d 2b d4 1f  |earch%,1,"").+..|
00008a10  f2 6d 6f 76 65 5f 63 61  72 65 74 28 64 69 73 63  |.move_caret(disc|
00008a20  5f 69 6e 64 65 78 25 2c  31 33 29 0d 2b de 1c c8  |_index%,13).+...|
00008a30  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00008a40  6e 75 22 2c 2c 2d 31 0d  2b e8 16 c8 99 20 22 48  |nu",,-1.+.... "H|
00008a50  6f 75 72 67 6c 61 73 73  5f 4f 66 66 22 0d 2b f2  |ourglass_Off".+.|
00008a60  11 e7 20 66 6f 75 6e 64  25 3c 3e 30 20 8c 0d 2b  |.. found%<>0 ..+|
00008a70  fc 16 f2 6f 70 65 6e 28  64 69 73 63 5f 66 6f 75  |...open(disc_fou|
00008a80  6e 64 25 29 0d 2c 06 05  cc 0d 2c 10 31 85 20 31  |nd%).,....,.1. 1|
00008a90  2c 22 27 22 2b 73 65 61  72 63 68 73 74 72 69 6e  |,"'"+searchstrin|
00008aa0  67 24 2b 22 27 20 63 6f  75 6c 64 20 6e 6f 74 20  |g$+"' could not |
00008ab0  62 65 20 66 6f 75 6e 64  2e 22 0d 2c 1a 05 cd 0d  |be found.".,....|
00008ac0  2c 24 9d e7 20 66 6f 75  6e 64 25 3e 31 32 30 20  |,$.. found%>120 |
00008ad0  8c 20 85 20 31 2c 22 27  22 2b 73 65 61 72 63 68  |. . 1,"'"+search|
00008ae0  73 74 72 69 6e 67 24 2b  22 27 20 68 61 73 20 62  |string$+"' has b|
00008af0  65 65 6e 20 66 6f 75 6e  64 20 69 6e 20 22 2b c3  |een found in "+.|
00008b00  28 66 6f 75 6e 64 25 29  2b 22 20 72 65 63 6f 72  |(found%)+" recor|
00008b10  64 73 2e 20 54 68 65 20  66 69 72 73 74 20 35 30  |ds. The first 50|
00008b20  20 6f 63 63 75 72 61 6e  63 65 73 20 61 72 65 20  | occurances are |
00008b30  73 65 6c 65 63 74 61 62  6c 65 20 66 72 6f 6d 20  |selectable from |
00008b40  74 68 65 20 27 52 65 63  6f 72 64 73 20 46 6f 75  |the 'Records Fou|
00008b50  6e 64 27 20 77 69 6e 64  6f 77 2e 22 0d 2c 2e 05  |nd' window.".,..|
00008b60  e1 0d 2c 38 05 3a 0d 2c  42 2a dd f2 61 64 64 5f  |..,8.:.,B*..add_|
00008b70  74 6f 5f 66 6f 75 6e 64  28 66 6f 75 6e 64 72 65  |to_found(foundre|
00008b80  63 6f 72 64 25 2c 66 6f  75 6e 64 73 75 62 25 29  |cord%,foundsub%)|
00008b90  0d 2c 4c 15 e7 20 66 6f  75 6e 64 69 63 6f 6e 25  |.,L.. foundicon%|
00008ba0  3c 35 32 20 8c 0d 2c 56  66 e7 20 73 65 61 72 63  |<52 ..,Vf. searc|
00008bb0  68 74 79 70 65 24 3d 22  44 6e 61 6d 65 22 20 84  |htype$="Dname" .|
00008bc0  20 73 65 61 72 63 68 74  79 70 65 24 3d 22 44 74  | searchtype$="Dt|
00008bd0  79 70 65 22 20 8c 20 f2  75 70 64 61 74 65 5f 69  |ype" . .update_i|
00008be0  63 6f 6e 28 64 69 73 63  5f 66 6f 75 6e 64 25 2c  |con(disc_found%,|
00008bf0  66 6f 75 6e 64 69 63 6f  6e 25 2c c3 28 66 6f 75  |foundicon%,.(fou|
00008c00  6e 64 72 65 63 6f 72 64  25 29 29 0d 2c 60 7a e7  |ndrecord%)).,`z.|
00008c10  20 73 65 61 72 63 68 74  79 70 65 24 3d 22 41 70  | searchtype$="Ap|
00008c20  70 22 20 84 20 73 65 61  72 63 68 74 79 70 65 24  |p" . searchtype$|
00008c30  3d 22 45 78 74 72 61 22  20 8c 20 f2 75 70 64 61  |="Extra" . .upda|
00008c40  74 65 5f 69 63 6f 6e 28  64 69 73 63 5f 66 6f 75  |te_icon(disc_fou|
00008c50  6e 64 25 2c 66 6f 75 6e  64 69 63 6f 6e 25 2c c3  |nd%,foundicon%,.|
00008c60  28 66 6f 75 6e 64 72 65  63 6f 72 64 25 29 2b 22  |(foundrecord%)+"|
00008c70  20 28 22 2b c3 28 66 6f  75 6e 64 73 75 62 25 29  | ("+.(foundsub%)|
00008c80  2b 22 29 22 29 0d 2c 6a  05 cd 0d 2c 74 1f 73 75  |+")").,j...,t.su|
00008c90  62 5f 6e 75 6d 62 65 72  25 2b 3d 31 3a 69 63 6f  |b_number%+=1:ico|
00008ca0  6e 5f 75 73 65 64 25 3d  b9 0d 2c 7e 05 e1 0d 2c  |n_used%=..,~...,|
00008cb0  88 05 3a 0d 2c 92 14 dd  a4 75 70 70 65 72 28 73  |..:.,....upper(s|
00008cc0  74 72 69 6e 67 24 29 0d  2c 9c 0b ea 20 6c 6f 6f  |tring$).,... loo|
00008cd0  70 25 0d 2c a6 14 e7 20  a9 28 73 74 72 69 6e 67  |p%.,... .(string|
00008ce0  24 29 3e 30 20 8c 0d 2c  b0 1c e3 20 6c 6f 6f 70  |$)>0 ..,... loop|
00008cf0  25 20 3d 20 31 20 b8 20  a9 28 73 74 72 69 6e 67  |% = 1 . .(string|
00008d00  24 29 0d 2c ba 37 e7 20  c1 73 74 72 69 6e 67 24  |$).,.7. .string$|
00008d10  2c 6c 6f 6f 70 25 2c 31  29 3e 3d 22 61 22 20 80  |,loop%,1)>="a" .|
00008d20  20 c1 73 74 72 69 6e 67  24 2c 6c 6f 6f 70 25 2c  | .string$,loop%,|
00008d30  31 29 3c 3d 22 7a 22 20  8c 0d 2c c4 35 c1 73 74  |1)<="z" ..,.5.st|
00008d40  72 69 6e 67 24 2c 6c 6f  6f 70 25 2c 31 29 20 3d  |ring$,loop%,1) =|
00008d50  20 bd 28 97 28 c1 73 74  72 69 6e 67 24 2c 6c 6f  | .(.(.string$,lo|
00008d60  6f 70 25 2c 31 29 29 20  80 20 26 44 46 29 0d 2c  |op%,1)) . &DF).,|
00008d70  ce 05 cd 0d 2c d8 05 ed  0d 2c e2 05 cd 0d 2c ec  |....,....,....,.|
00008d80  0c 3d 73 74 72 69 6e 67  24 0d 2c f6 05 3a 0d 2d  |.=string$.,..:.-|
00008d90  00 0f dd f2 63 6c 6f 73  65 5f 61 6c 6c 0d 2d 0a  |....close_all.-.|
00008da0  2a f2 63 6c 6f 73 65 28  64 69 73 63 5f 77 61 69  |*.close(disc_wai|
00008db0  74 25 29 3a f2 63 6c 6f  73 65 28 64 69 73 63 5f  |t%):.close(disc_|
00008dc0  70 72 69 6e 74 25 29 0d  2d 14 2c f2 63 6c 6f 73  |print%).-.,.clos|
00008dd0  65 28 64 69 73 63 5f 73  65 61 72 63 68 25 29 3a  |e(disc_search%):|
00008de0  f2 63 6c 6f 73 65 28 64  69 73 63 5f 66 6f 75 6e  |.close(disc_foun|
00008df0  64 25 29 0d 2d 1e 2f f2  63 6c 6f 73 65 28 64 69  |d%).-./.close(di|
00008e00  73 63 5f 71 75 69 74 25  29 3a c8 99 20 22 57 69  |sc_quit%):.. "Wi|
00008e10  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00008e20  2d 31 0d 2d 28 2d f2 63  6c 6f 73 65 28 64 69 73  |-1.-(-.close(dis|
00008e30  63 5f 63 6c 65 61 72 25  29 3a f2 63 6c 6f 73 65  |c_clear%):.close|
00008e40  28 64 69 73 63 5f 69 6e  66 6f 62 6f 78 25 29 0d  |(disc_infobox%).|
00008e50  2d 32 2c f2 63 6c 6f 73  65 28 64 69 73 63 5f 73  |-2,.close(disc_s|
00008e60  61 76 65 62 6f 78 25 29  3a f2 63 6c 6f 73 65 28  |avebox%):.close(|
00008e70  64 69 73 63 5f 73 6f 72  74 25 29 0d 2d 3c 33 f2  |disc_sort%).-<3.|
00008e80  63 6c 6f 73 65 28 64 69  73 63 5f 6f 70 74 69 6f  |close(disc_optio|
00008e90  6e 73 25 29 3a f2 63 6c  6f 73 65 28 64 69 73 63  |ns%):.close(disc|
00008ea0  5f 62 61 63 6b 6f 70 74  69 6f 6e 73 25 29 0d 2d  |_backoptions%).-|
00008eb0  46 36 f2 63 6c 6f 73 65  28 64 69 73 63 5f 73 61  |F6.close(disc_sa|
00008ec0  76 65 62 6f 78 32 25 29  3a c8 99 20 22 57 69 6d  |vebox2%):.. "Wim|
00008ed0  70 45 78 74 5f 52 65 6c  65 61 73 65 50 6f 69 6e  |pExt_ReleasePoin|
00008ee0  74 65 72 22 0d 2d 50 05  e1 0d 2d 5a 05 3a 0d 2d  |ter".-P...-Z.:.-|
00008ef0  64 14 dd f2 72 65 61 64  5f 74 72 61 63 6b 6c 69  |d...read_trackli|
00008f00  73 74 0d 2d 6e 2e 74 72  61 63 6b 5f 6e 75 6d 62  |st.-n.track_numb|
00008f10  65 72 25 3d bb 28 a4 69  6e 64 69 72 65 63 74 28  |er%=.(.indirect(|
00008f20  64 69 73 63 5f 69 6e 64  65 78 25 2c 31 30 29 29  |disc_index%,10))|
00008f30  0d 2d 78 12 e3 20 73 75  62 49 25 3d 31 20 b8 20  |.-x.. subI%=1 . |
00008f40  35 30 0d 2d 82 3e 6e 61  6d 65 24 28 74 72 61 63  |50.-.>name$(trac|
00008f50  6b 5f 6e 75 6d 62 65 72  25 2c 73 75 62 49 25 29  |k_number%,subI%)|
00008f60  3d a4 69 6e 64 69 72 65  63 74 28 64 69 73 63 5f  |=.indirect(disc_|
00008f70  74 72 61 63 6b 73 25 2c  73 75 62 49 25 2d 31 29  |tracks%,subI%-1)|
00008f80  0d 2d 8c 0b ed 20 73 75  62 49 25 0d 2d 96 05 e1  |.-... subI%.-...|
00008f90  0d 2d a0 05 3a 0d 2d aa  13 dd f2 75 70 64 61 74  |.-..:.-....updat|
00008fa0  65 5f 74 72 61 63 6b 73  0d 2d b4 2e 74 72 61 63  |e_tracks.-..trac|
00008fb0  6b 5f 6e 75 6d 62 65 72  25 3d bb 28 a4 69 6e 64  |k_number%=.(.ind|
00008fc0  69 72 65 63 74 28 64 69  73 63 5f 69 6e 64 65 78  |irect(disc_index|
00008fd0  25 2c 31 30 29 29 0d 2d  be 12 e3 20 73 75 62 49  |%,10)).-... subI|
00008fe0  25 3d 31 20 b8 20 35 30  0d 2d c8 41 f2 75 70 64  |%=1 . 50.-.A.upd|
00008ff0  61 74 65 5f 69 63 6f 6e  28 64 69 73 63 5f 74 72  |ate_icon(disc_tr|
00009000  61 63 6b 73 25 2c 73 75  62 49 25 2d 31 2c 6e 61  |acks%,subI%-1,na|
00009010  6d 65 24 28 74 72 61 63  6b 5f 6e 75 6d 62 65 72  |me$(track_number|
00009020  25 2c 73 75 62 49 25 29  29 0d 2d d2 0b ed 20 73  |%,subI%)).-... s|
00009030  75 62 49 25 0d 2d dc 05  e1 0d 2d e6 05 3a 0d 2d  |ubI%.-....-..:.-|
00009040  f0 12 dd f2 63 6c 65 61  72 5f 73 69 6e 67 6c 65  |....clear_single|
00009050  0d 2d fa 23 f2 75 70 64  61 74 65 5f 69 63 6f 6e  |.-.#.update_icon|
00009060  28 64 69 73 63 5f 69 6e  64 65 78 25 2c 31 32 2c  |(disc_index%,12,|
00009070  22 22 29 0d 2e 04 23 f2  75 70 64 61 74 65 5f 69  |"")...#.update_i|
00009080  63 6f 6e 28 64 69 73 63  5f 69 6e 64 65 78 25 2c  |con(disc_index%,|
00009090  31 33 2c 22 22 29 0d 2e  0e 23 f2 75 70 64 61 74  |13,"")...#.updat|
000090a0  65 5f 69 63 6f 6e 28 64  69 73 63 5f 69 6e 64 65  |e_icon(disc_inde|
000090b0  78 25 2c 32 32 2c 22 22  29 0d 2e 18 0f e3 20 58  |x%,22,"")..... X|
000090c0  3d 32 35 20 b8 20 32 38  0d 2e 22 22 f2 75 70 64  |=25 . 28.."".upd|
000090d0  61 74 65 5f 69 63 6f 6e  28 64 69 73 63 5f 69 6e  |ate_icon(disc_in|
000090e0  64 65 78 25 2c 58 2c 22  22 29 0d 2e 2c 05 ed 0d  |dex%,X,"")..,...|
000090f0  2e 36 0e e3 20 58 3d 30  20 b8 20 34 39 0d 2e 40  |.6.. X=0 . 49..@|
00009100  23 f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 64 69  |#.update_icon(di|
00009110  73 63 5f 74 72 61 63 6b  73 25 2c 58 2c 22 22 29  |sc_tracks%,X,"")|
00009120  0d 2e 4a 05 ed 0d 2e 54  09 f2 72 65 61 64 0d 2e  |..J....T..read..|
00009130  5e 05 e1 0d 2e 68 05 3a  0d 2e 72 13 dd f2 73 6f  |^....h.:..r...so|
00009140  72 74 5f 64 69 73 63 6e  61 6d 65 0d 2e 7c 11 ea  |rt_discname..|..|
00009150  20 61 25 2c 62 25 2c 74  65 6d 70 24 0d 2e 86 6b  | a%,b%,temp$...k|
00009160  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 64 69 73  |.update_icon(dis|
00009170  63 5f 77 61 69 74 25 2c  30 2c 22 49 6e 69 74 69  |c_wait%,0,"Initi|
00009180  61 6c 69 73 69 6e 67 20  53 6f 72 74 20 50 6c 65  |alising Sort Ple|
00009190  61 73 65 20 57 61 69 74  22 29 3a f2 6f 70 65 6e  |ase Wait"):.open|
000091a0  28 64 69 73 63 5f 77 61  69 74 25 29 3a f2 72 65  |(disc_wait%):.re|
000091b0  64 72 61 77 5f 77 69 6e  64 6f 77 28 64 69 73 63  |draw_window(disc|
000091c0  5f 77 61 69 74 25 29 0d  2e 90 15 c8 99 20 22 48  |_wait%)...... "H|
000091d0  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 0d 2e 9a 58  |ourglass_On"...X|
000091e0  63 6f 75 6e 74 25 3d 30  3a 73 75 62 63 6f 75 6e  |count%=0:subcoun|
000091f0  74 25 3d 30 3a 61 25 3d  31 3a f5 3a e3 20 62 25  |t%=0:a%=1:.:. b%|
00009200  3d 61 25 20 b8 20 6d 61  78 5f 72 65 63 6f 72 64  |=a% . max_record|
00009210  25 3a 63 6f 75 6e 74 25  2b 3d 31 3a ed 3a 61 25  |%:count%+=1:.:a%|
00009220  2b 3d 31 3a fd 20 61 25  3e 6d 61 78 5f 72 65 63  |+=1:. a%>max_rec|
00009230  6f 72 64 25 0d 2e a4 6d  f2 75 70 64 61 74 65 5f  |ord%...m.update_|
00009240  69 63 6f 6e 28 64 69 73  63 5f 77 61 69 74 25 2c  |icon(disc_wait%,|
00009250  30 2c 22 53 6f 72 74 69  6e 67 20 49 6e 20 50 72  |0,"Sorting In Pr|
00009260  6f 67 72 65 73 73 20 50  6c 65 61 73 65 20 57 61  |ogress Please Wa|
00009270  69 74 22 29 3a f2 6f 70  65 6e 28 64 69 73 63 5f  |it"):.open(disc_|
00009280  77 61 69 74 25 29 3a f2  72 65 64 72 61 77 5f 77  |wait%):.redraw_w|
00009290  69 6e 64 6f 77 28 64 69  73 63 5f 77 61 69 74 25  |indow(disc_wait%|
000092a0  29 0d 2e ae 10 61 25 3d  31 3a f5 3a 72 25 3d 61  |)....a%=1:.:r%=a|
000092b0  25 0d 2e b8 24 74 65 6d  70 24 3d a4 75 70 70 65  |%...$temp$=.uppe|
000092c0  72 28 c0 64 69 73 63 6e  61 6d 65 24 28 61 25 29  |r(.discname$(a%)|
000092d0  2c 31 30 29 29 0d 2e c2  1c e7 20 74 65 6d 70 24  |,10))..... temp$|
000092e0  3c 3d 22 20 22 20 8c 20  74 65 6d 70 24 3d 22 7e  |<=" " . temp$="~|
000092f0  22 0d 2e cc 19 e3 20 62  25 3d 61 25 20 b8 20 6d  |"..... b%=a% . m|
00009300  61 78 5f 72 65 63 6f 72  64 25 0d 2e d6 10 73 75  |ax_record%....su|
00009310  62 63 6f 75 6e 74 25 2b  3d 31 0d 2e e0 2e e7 20  |bcount%+=1..... |
00009320  a4 75 70 70 65 72 28 c0  64 69 73 63 6e 61 6d 65  |.upper(.discname|
00009330  24 28 62 25 29 2c 31 30  29 29 3c 3d 22 20 22 20  |$(b%),10))<=" " |
00009340  8c 20 e5 20 8d 54 48 6f  0d 2e ea 28 e7 20 a4 75  |. . .THo...(. .u|
00009350  70 70 65 72 28 c0 64 69  73 63 6e 61 6d 65 24 28  |pper(.discname$(|
00009360  62 25 29 2c 31 30 29 29  3c 74 65 6d 70 24 20 8c  |b%),10))<temp$ .|
00009370  0d 2e f4 2a 74 65 6d 70  24 3d a4 75 70 70 65 72  |...*temp$=.upper|
00009380  28 c0 64 69 73 63 6e 61  6d 65 24 28 62 25 29 2c  |(.discname$(b%),|
00009390  31 30 29 29 3a 72 25 3d  62 25 0d 2e fe 05 cd 0d  |10)):r%=b%......|
000093a0  2f 08 08 ed 20 62 25 0d  2f 12 37 c8 99 20 22 48  |/... b%./.7.. "H|
000093b0  6f 75 72 67 6c 61 73 73  5f 50 65 72 63 65 6e 74  |ourglass_Percent|
000093c0  61 67 65 22 2c a8 28 28  73 75 62 63 6f 75 6e 74  |age",.((subcount|
000093d0  25 2f 63 6f 75 6e 74 25  29 2a 31 30 30 29 0d 2f  |%/count%)*100)./|
000093e0  1c 17 f2 73 77 61 70 5f  66 69 65 6c 64 73 28 61  |...swap_fields(a|
000093f0  25 2c 72 25 29 0d 2f 26  09 61 25 2b 3d 31 0d 2f  |%,r%)./&.a%+=1./|
00009400  30 14 fd 20 61 25 3e 6d  61 78 5f 72 65 63 6f 72  |0.. a%>max_recor|
00009410  64 25 0d 2f 3a 14 72 65  63 6f 72 64 5f 6e 75 6d  |d%./:.record_num|
00009420  62 65 72 25 3d 31 0d 2f  44 0b f2 75 70 64 61 74  |ber%=1./D..updat|
00009430  65 0d 2f 4e 16 c8 99 20  22 48 6f 75 72 67 6c 61  |e./N... "Hourgla|
00009440  73 73 5f 4f 66 66 22 0d  2f 58 42 f2 63 6c 6f 73  |ss_Off"./XB.clos|
00009450  65 28 64 69 73 63 5f 73  6f 72 74 25 29 3a c8 99  |e(disc_sort%):..|
00009460  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
00009470  75 22 2c 2c 2d 31 3a f2  63 6c 6f 73 65 28 64 69  |u",,-1:.close(di|
00009480  73 63 5f 77 61 69 74 25  29 0d 2f 62 1d f2 72 65  |sc_wait%)./b..re|
00009490  5f 74 69 74 6c 65 28 22  44 69 73 63 20 49 6e 64  |_title("Disc Ind|
000094a0  65 78 20 2a 22 29 0d 2f  6c 0e 75 6e 73 61 76 65  |ex *")./l.unsave|
000094b0  64 25 3d b9 0d 2f 76 05  e1 0d 2f 80 05 3a 0d 2f  |d%=../v.../..:./|
000094c0  8a 13 dd f2 73 6f 72 74  5f 64 69 73 63 74 79 70  |....sort_disctyp|
000094d0  65 0d 2f 94 11 ea 20 61  25 2c 62 25 2c 74 65 6d  |e./... a%,b%,tem|
000094e0  70 24 0d 2f 9e 6b f2 75  70 64 61 74 65 5f 69 63  |p$./.k.update_ic|
000094f0  6f 6e 28 64 69 73 63 5f  77 61 69 74 25 2c 30 2c  |on(disc_wait%,0,|
00009500  22 49 6e 69 74 69 61 6c  69 73 69 6e 67 20 53 6f  |"Initialising So|
00009510  72 74 20 50 6c 65 61 73  65 20 57 61 69 74 22 29  |rt Please Wait")|
00009520  3a f2 6f 70 65 6e 28 64  69 73 63 5f 77 61 69 74  |:.open(disc_wait|
00009530  25 29 3a f2 72 65 64 72  61 77 5f 77 69 6e 64 6f  |%):.redraw_windo|
00009540  77 28 64 69 73 63 5f 77  61 69 74 25 29 0d 2f a8  |w(disc_wait%)./.|
00009550  15 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
00009560  6e 22 0d 2f b2 58 63 6f  75 6e 74 25 3d 30 3a 73  |n"./.Xcount%=0:s|
00009570  75 62 63 6f 75 6e 74 25  3d 30 3a 61 25 3d 31 3a  |ubcount%=0:a%=1:|
00009580  f5 3a e3 20 62 25 3d 61  25 20 b8 20 6d 61 78 5f  |.:. b%=a% . max_|
00009590  72 65 63 6f 72 64 25 3a  63 6f 75 6e 74 25 2b 3d  |record%:count%+=|
000095a0  31 3a ed 3a 61 25 2b 3d  31 3a fd 20 61 25 3e 6d  |1:.:a%+=1:. a%>m|
000095b0  61 78 5f 72 65 63 6f 72  64 25 0d 2f bc 6d f2 75  |ax_record%./.m.u|
000095c0  70 64 61 74 65 5f 69 63  6f 6e 28 64 69 73 63 5f  |pdate_icon(disc_|
000095d0  77 61 69 74 25 2c 30 2c  22 53 6f 72 74 69 6e 67  |wait%,0,"Sorting|
000095e0  20 49 6e 20 50 72 6f 67  72 65 73 73 20 50 6c 65  | In Progress Ple|
000095f0  61 73 65 20 57 61 69 74  22 29 3a f2 6f 70 65 6e  |ase Wait"):.open|
00009600  28 64 69 73 63 5f 77 61  69 74 25 29 3a f2 72 65  |(disc_wait%):.re|
00009610  64 72 61 77 5f 77 69 6e  64 6f 77 28 64 69 73 63  |draw_window(disc|
00009620  5f 77 61 69 74 25 29 0d  2f c6 10 61 25 3d 31 3a  |_wait%)./..a%=1:|
00009630  f5 3a 72 25 3d 61 25 0d  2f d0 24 74 65 6d 70 24  |.:r%=a%./.$temp$|
00009640  3d a4 75 70 70 65 72 28  c0 64 69 73 63 74 79 70  |=.upper(.disctyp|
00009650  65 24 28 61 25 29 2c 33  30 29 29 0d 2f da 1c e7  |e$(a%),30))./...|
00009660  20 74 65 6d 70 24 3c 3d  22 20 22 20 8c 20 74 65  | temp$<=" " . te|
00009670  6d 70 24 3d 22 7e 22 0d  2f e4 19 e3 20 62 25 3d  |mp$="~"./... b%=|
00009680  61 25 20 b8 20 6d 61 78  5f 72 65 63 6f 72 64 25  |a% . max_record%|
00009690  0d 2f ee 10 73 75 62 63  6f 75 6e 74 25 2b 3d 31  |./..subcount%+=1|
000096a0  0d 2f f8 2e e7 20 a4 75  70 70 65 72 28 c0 64 69  |./... .upper(.di|
000096b0  73 63 74 79 70 65 24 28  62 25 29 2c 33 30 29 29  |sctype$(b%),30))|
000096c0  3c 3d 22 20 22 20 8c 20  e5 20 8d 54 60 70 0d 30  |<=" " . . .T`p.0|
000096d0  02 28 e7 20 a4 75 70 70  65 72 28 c0 64 69 73 63  |.(. .upper(.disc|
000096e0  74 79 70 65 24 28 62 25  29 2c 33 30 29 29 3c 74  |type$(b%),30))<t|
000096f0  65 6d 70 24 20 8c 0d 30  0c 2a 74 65 6d 70 24 3d  |emp$ ..0.*temp$=|
00009700  a4 75 70 70 65 72 28 c0  64 69 73 63 74 79 70 65  |.upper(.disctype|
00009710  24 28 62 25 29 2c 33 30  29 29 3a 72 25 3d 62 25  |$(b%),30)):r%=b%|
00009720  0d 30 16 05 cd 0d 30 20  08 ed 20 62 25 0d 30 2a  |.0....0 .. b%.0*|
00009730  37 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 50  |7.. "Hourglass_P|
00009740  65 72 63 65 6e 74 61 67  65 22 2c a8 28 28 73 75  |ercentage",.((su|
00009750  62 63 6f 75 6e 74 25 2f  63 6f 75 6e 74 25 29 2a  |bcount%/count%)*|
00009760  31 30 30 29 0d 30 34 17  f2 73 77 61 70 5f 66 69  |100).04..swap_fi|
00009770  65 6c 64 73 28 61 25 2c  72 25 29 0d 30 3e 09 61  |elds(a%,r%).0>.a|
00009780  25 2b 3d 31 0d 30 48 14  fd 20 61 25 3e 6d 61 78  |%+=1.0H.. a%>max|
00009790  5f 72 65 63 6f 72 64 25  0d 30 52 14 72 65 63 6f  |_record%.0R.reco|
000097a0  72 64 5f 6e 75 6d 62 65  72 25 3d 31 0d 30 5c 0b  |rd_number%=1.0\.|
000097b0  f2 75 70 64 61 74 65 0d  30 66 16 c8 99 20 22 48  |.update.0f... "H|
000097c0  6f 75 72 67 6c 61 73 73  5f 4f 66 66 22 0d 30 70  |ourglass_Off".0p|
000097d0  42 f2 63 6c 6f 73 65 28  64 69 73 63 5f 73 6f 72  |B.close(disc_sor|
000097e0  74 25 29 3a c8 99 20 22  57 69 6d 70 5f 43 72 65  |t%):.. "Wimp_Cre|
000097f0  61 74 65 4d 65 6e 75 22  2c 2c 2d 31 3a f2 63 6c  |ateMenu",,-1:.cl|
00009800  6f 73 65 28 64 69 73 63  5f 77 61 69 74 25 29 0d  |ose(disc_wait%).|
00009810  30 7a 1d f2 72 65 5f 74  69 74 6c 65 28 22 44 69  |0z..re_title("Di|
00009820  73 63 20 49 6e 64 65 78  20 2a 22 29 0d 30 84 0e  |sc Index *").0..|
00009830  75 6e 73 61 76 65 64 25  3d b9 0d 30 8e 05 e1 0d  |unsaved%=..0....|
00009840  30 98 05 3a 0d 30 a2 18  dd f2 73 77 61 70 5f 66  |0..:.0....swap_f|
00009850  69 65 6c 64 73 28 61 25  2c 62 25 29 0d 30 ac 60  |ields(a%,b%).0.`|
00009860  c8 94 20 64 69 73 63 6e  61 6d 65 24 28 61 25 29  |.. discname$(a%)|
00009870  2c 64 69 73 63 6e 61 6d  65 24 28 62 25 29 3a c8  |,discname$(b%):.|
00009880  94 20 64 69 73 63 74 79  70 65 24 28 61 25 29 2c  |. disctype$(a%),|
00009890  64 69 73 63 74 79 70 65  24 28 62 25 29 3a c8 94  |disctype$(b%):..|
000098a0  20 64 69 73 63 66 72 65  65 24 28 61 25 29 2c 64  | discfree$(a%),d|
000098b0  69 73 63 66 72 65 65 24  28 62 25 29 0d 30 b6 31  |iscfree$(b%).0.1|
000098c0  e3 20 49 25 3d 31 20 b8  20 35 30 3a c8 94 20 6e  |. I%=1 . 50:.. n|
000098d0  61 6d 65 24 28 61 25 2c  49 25 29 2c 6e 61 6d 65  |ame$(a%,I%),name|
000098e0  24 28 62 25 2c 49 25 29  3a ed 20 49 25 0d 30 c0  |$(b%,I%):. I%.0.|
000098f0  36 e3 20 49 25 3d 31 20  b8 20 34 3a c8 94 20 63  |6. I%=1 . 4:.. c|
00009900  6f 6d 6d 65 6e 74 24 28  61 25 2c 49 25 29 2c 63  |omment$(a%,I%),c|
00009910  6f 6d 6d 65 6e 74 24 28  62 25 2c 49 25 29 3a ed  |omment$(b%,I%):.|
00009920  20 49 25 0d 30 ca 05 e1  0d 30 d4 05 3a 0d 30 de  | I%.0....0..:.0.|
00009930  19 dd f2 69 6e 69 74 69  61 6c 69 73 65 5f 73 63  |...initialise_sc|
00009940  61 6e 6e 69 6e 67 0d 30  e8 2b de 20 64 69 72 6e  |anning.0.+. dirn|
00009950  61 6d 65 25 20 26 31 30  30 2c 74 61 72 67 65 74  |ame% &100,target|
00009960  25 20 31 30 30 2c 72 65  73 75 6c 74 25 20 31 30  |% 100,result% 10|
00009970  30 0d 30 f2 0b 6d 61 78  25 3d 34 39 0d 30 fc 32  |0.0..max%=49.0.2|
00009980  de 20 66 69 6e 64 24 28  6d 61 78 25 29 2c 74 79  |. find$(max%),ty|
00009990  70 65 25 28 6d 61 78 25  29 2c 74 65 78 74 31 25  |pe%(max%),text1%|
000099a0  20 31 32 3a 24 74 65 78  74 31 25 3d 22 22 0d 31  | 12:$text1%="".1|
000099b0  06 27 72 65 61 73 6f 6e  25 3d 2d 31 3a 66 69 6c  |.'reason%=-1:fil|
000099c0  65 73 25 3d b9 3a 64 69  72 25 3d b9 3a 66 69 6e  |es%=.:dir%=.:fin|
000099d0  64 73 25 3d 30 0d 31 10  05 e1 0d 31 1a 05 3a 0d  |ds%=0.1....1..:.|
000099e0  31 24 12 dd f2 73 63 61  6e 5f 64 72 69 76 65 5f  |1$...scan_drive_|
000099f0  30 0d 31 2e 15 c8 99 20  22 48 6f 75 72 67 6c 61  |0.1.... "Hourgla|
00009a00  73 73 5f 4f 6e 22 0d 31  38 2e 66 69 6e 64 73 25  |ss_On".18.finds%|
00009a10  3d 31 3a 66 69 6e 64 24  28 29 3d 22 22 3a 70 61  |=1:find$()="":pa|
00009a20  74 68 24 3d 22 41 44 46  53 3a 3a 30 2e 24 22 2b  |th$="ADFS::0.$"+|
00009a30  bd 28 30 29 0d 31 42 17  f2 73 65 61 72 63 68 5f  |.(0).1B..search_|
00009a40  64 69 73 63 28 70 61 74  68 24 29 0d 31 4c 16 c8  |disc(path$).1L..|
00009a50  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 66 66  |. "Hourglass_Off|
00009a60  22 0d 31 56 35 e7 20 6d  6f 76 65 74 6f 6e 65 78  |".1V5. movetonex|
00009a70  74 25 3d 31 20 8c 20 f2  72 65 61 64 3a 72 65 63  |t%=1 . .read:rec|
00009a80  6f 72 64 5f 6e 75 6d 62  65 72 25 2b 3d 31 3a f2  |ord_number%+=1:.|
00009a90  75 70 64 61 74 65 0d 31  60 05 e1 0d 31 6a 05 3a  |update.1`...1j.:|
00009aa0  0d 31 74 18 dd f2 73 65  61 72 63 68 5f 64 69 73  |.1t...search_dis|
00009ab0  63 28 70 61 74 68 24 29  0d 31 7e 0f 74 61 72 67  |c(path$).1~.targ|
00009ac0  65 74 24 3d 22 2a 22 0d  31 88 15 70 61 74 68 24  |et$="*".1..path$|
00009ad0  3d 22 41 44 46 53 3a 3a  30 2e 24 22 0d 31 92 17  |="ADFS::0.$".1..|
00009ae0  66 69 6e 64 73 25 3d 31  3a 66 69 6e 64 24 28 29  |finds%=1:find$()|
00009af0  3d 22 22 0d 31 9c 17 f2  64 69 73 63 5f 73 65 61  |="".1...disc_sea|
00009b00  72 63 68 28 70 61 74 68  24 29 0d 31 a6 11 24 64  |rch(path$).1..$d|
00009b10  69 72 6e 61 6d 65 25 3d  22 30 22 0d 31 b0 37 c8  |irname%="0".1.7.|
00009b20  99 20 22 41 44 46 53 5f  46 72 65 65 53 70 61 63  |. "ADFS_FreeSpac|
00009b30  65 22 2c 64 69 72 6e 61  6d 65 25 20 b8 20 73 63  |e",dirname% . sc|
00009b40  61 6e 74 6f 74 61 6c 25  2c 73 63 61 6e 66 72 65  |antotal%,scanfre|
00009b50  65 25 0d 31 ba 32 f2 75  70 64 61 74 65 5f 69 63  |e%.1.2.update_ic|
00009b60  6f 6e 28 64 69 73 63 5f  69 6e 64 65 78 25 2c 32  |on(disc_index%,2|
00009b70  32 2c c3 28 73 63 61 6e  66 72 65 65 25 2f 31 30  |2,.(scanfree%/10|
00009b80  32 34 29 29 0d 31 c4 24  c8 99 20 22 41 44 46 53  |24)).1.$.. "ADFS|
00009b90  5f 44 65 73 63 72 69 62  65 44 69 73 63 22 2c 22  |_DescribeDisc","|
00009ba0  3a 30 22 2c 72 65 63 25  0d 31 ce 27 69 25 3d 72  |:0",rec%.1.'i%=r|
00009bb0  65 63 25 2b 32 32 3a c8  95 20 3f 69 25 3e 33 32  |ec%+22:.. ?i%>32|
00009bc0  3a 69 25 2b 3d 31 3a ce  3a 3f 69 25 3d 31 33 0d  |:i%+=1:.:?i%=13.|
00009bd0  31 d8 26 73 63 61 6e 6e  65 64 64 69 73 63 6e 61  |1.&scanneddiscna|
00009be0  6d 65 24 3d c0 28 24 28  72 65 63 25 2b 32 32 29  |me$=.($(rec%+22)|
00009bf0  29 2c 31 30 29 0d 31 e2  31 f2 75 70 64 61 74 65  |),10).1.1.update|
00009c00  5f 69 63 6f 6e 28 64 69  73 63 5f 69 6e 64 65 78  |_icon(disc_index|
00009c10  25 2c 31 32 2c 73 63 61  6e 6e 65 64 64 69 73 63  |%,12,scanneddisc|
00009c20  6e 61 6d 65 24 29 0d 31  ec 14 f2 75 70 64 61 74  |name$).1...updat|
00009c30  65 5f 73 63 61 6e 6e 69  6e 67 0d 31 f6 05 e1 0d  |e_scanning.1....|
00009c40  32 00 05 3a 0d 32 0a 18  dd f2 64 69 73 63 5f 73  |2..:.2....disc_s|
00009c50  65 61 72 63 68 28 70 61  74 68 24 29 0d 32 14 0b  |earch(path$).2..|
00009c60  ea 20 6e 65 78 74 25 0d  32 1e 0b 6e 65 78 74 25  |. next%.2..next%|
00009c70  3d 30 0d 32 28 05 f5 0d  32 32 13 24 64 69 72 6e  |=0.2(...22.$dirn|
00009c80  61 6d 65 25 3d 70 61 74  68 24 0d 32 3c 14 24 74  |ame%=path$.2<.$t|
00009c90  61 72 67 65 74 25 3d 74  61 72 67 65 74 24 0d 32  |arget%=target$.2|
00009ca0  46 4c c8 99 20 22 4f 53  5f 47 42 50 42 22 2c 31  |FL.. "OS_GBPB",1|
00009cb0  30 2c 64 69 72 6e 61 6d  65 25 2c 72 65 73 75 6c  |0,dirname%,resul|
00009cc0  74 25 2c 31 2c 6e 65 78  74 25 2c 31 30 30 2c 74  |t%,1,next%,100,t|
00009cd0  61 72 67 65 74 25 20 b8  20 2c 2c 2c 6f 62 6a 65  |arget% . ,,,obje|
00009ce0  63 74 73 25 2c 6e 65 78  74 25 0d 32 50 12 e7 20  |cts%,next%.2P.. |
00009cf0  6f 62 6a 65 63 74 73 25  3e 30 20 8c 0d 32 5a 14  |objects%>0 ..2Z.|
00009d00  74 79 70 65 25 3d 72 65  73 75 6c 74 25 3f 31 36  |type%=result%?16|
00009d10  0d 32 64 14 61 25 3d 32  30 3a 72 65 73 75 6c 74  |.2d.a%=20:result|
00009d20  24 3d 22 22 0d 32 6e 05  f5 0d 32 78 11 63 25 3d  |$="".2n...2x.c%=|
00009d30  72 65 73 75 6c 74 25 3f  61 25 0d 32 82 1c e7 20  |result%?a%.2... |
00009d40  63 25 3c 3e 30 20 8c 20  72 65 73 75 6c 74 24 2b  |c%<>0 . result$+|
00009d50  3d bd 28 63 25 29 0d 32  8c 09 61 25 2b 3d 31 0d  |=.(c%).2..a%+=1.|
00009d60  32 96 0a fd 20 63 25 3d  30 0d 32 a0 13 e7 20 66  |2... c%=0.2... f|
00009d70  69 6e 64 73 25 3c 6d 61  78 25 20 8c 0d 32 aa 19  |inds%<max% ..2..|
00009d80  66 69 6e 64 24 28 66 69  6e 64 73 25 29 3d 72 65  |find$(finds%)=re|
00009d90  73 75 6c 74 24 0d 32 b4  17 74 79 70 65 25 28 66  |sult$.2..type%(f|
00009da0  69 6e 64 73 25 29 3d 74  79 70 65 25 0d 32 be 0d  |inds%)=type%.2..|
00009db0  66 69 6e 64 73 25 2b 3d  31 0d 32 c8 05 cd 0d 32  |finds%+=1.2....2|
00009dc0  d2 51 e7 20 28 74 79 70  65 25 3d 32 20 80 20 c0  |.Q. (type%=2 . .|
00009dd0  72 65 73 75 6c 74 24 2c  31 29 3c 3e 22 21 22 20  |result$,1)<>"!" |
00009de0  80 20 73 63 61 6e 64 69  72 25 3d 31 29 20 8c 20  |. scandir%=1) . |
00009df0  f2 64 69 73 63 5f 73 65  61 72 63 68 28 70 61 74  |.disc_search(pat|
00009e00  68 24 2b 22 2e 22 2b 72  65 73 75 6c 74 24 29 0d  |h$+"."+result$).|
00009e10  32 dc 50 e7 20 28 74 79  70 65 25 3d 32 20 80 20  |2.P. (type%=2 . |
00009e20  c0 72 65 73 75 6c 74 24  2c 31 29 3d 22 21 22 20  |.result$,1)="!" |
00009e30  80 20 73 63 61 6e 61 70  70 25 3d 31 29 20 8c 20  |. scanapp%=1) . |
00009e40  f2 64 69 73 63 5f 73 65  61 72 63 68 28 70 61 74  |.disc_search(pat|
00009e50  68 24 2b 22 2e 22 2b 72  65 73 75 6c 74 24 29 0d  |h$+"."+result$).|
00009e60  32 e6 05 cd 0d 32 f0 0d  fd 20 6e 65 78 74 25 3c  |2....2... next%<|
00009e70  30 0d 32 fa 05 e1 0d 33  04 05 3a 0d 33 0e 15 dd  |0.2....3..:.3...|
00009e80  f2 75 70 64 61 74 65 5f  73 63 61 6e 6e 69 6e 67  |.update_scanning|
00009e90  0d 33 18 0e e3 20 58 3d  31 20 b8 20 34 38 0d 33  |.3... X=1 . 48.3|
00009ea0  22 2b f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 64  |"+.update_icon(d|
00009eb0  69 73 63 5f 74 72 61 63  6b 73 25 2c 58 2d 31 2c  |isc_tracks%,X-1,|
00009ec0  66 69 6e 64 24 28 58 29  29 0d 33 2c 05 ed 0d 33  |find$(X)).3,...3|
00009ed0  36 09 f2 72 65 61 64 0d  33 40 05 e1 0d 33 4a 05  |6..read.3@...3J.|
00009ee0  3a 0d 33 54 15 dd f2 70  72 69 6e 74 65 72 5f 64  |:.3T...printer_d|
00009ef0  72 69 76 65 72 73 0d 33  5e 6e f2 75 70 64 61 74  |rivers.3^n.updat|
00009f00  65 5f 69 63 6f 6e 28 64  69 73 63 5f 77 61 69 74  |e_icon(disc_wait|
00009f10  25 2c 30 2c 22 50 72 69  6e 74 69 6e 67 20 49 6e  |%,0,"Printing In|
00009f20  20 50 72 6f 67 72 65 73  73 20 50 6c 65 61 73 65  | Progress Please|
00009f30  20 57 61 69 74 22 29 3a  f2 6f 70 65 6e 28 64 69  | Wait"):.open(di|
00009f40  73 63 5f 77 61 69 74 25  29 3a f2 72 65 64 72 61  |sc_wait%):.redra|
00009f50  77 5f 77 69 6e 64 6f 77  28 64 69 73 63 5f 77 61  |w_window(disc_wa|
00009f60  69 74 25 29 0d 33 68 27  63 6f 70 69 65 73 25 3d  |it%).3h'copies%=|
00009f70  bb 28 a4 69 6e 64 69 72  65 63 74 28 64 69 73 63  |.(.indirect(disc|
00009f80  5f 70 72 69 6e 74 25 2c  36 29 29 0d 33 72 75 e7  |_print%,6)).3ru.|
00009f90  20 63 6f 70 69 65 73 25  3d 30 20 8c 20 c8 99 20  | copies%=0 . .. |
00009fa0  22 48 6f 75 72 67 6c 61  73 73 5f 4f 66 66 22 3a  |"Hourglass_Off":|
00009fb0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
00009fc0  65 6e 75 22 2c 2c 2d 31  3a 85 20 31 2c 22 53 65  |enu",,-1:. 1,"Se|
00009fd0  74 20 6e 75 6d 62 65 72  20 6f 66 20 63 6f 70 69  |t number of copi|
00009fe0  65 73 20 74 6f 20 61 20  76 61 6c 75 65 20 67 72  |es to a value gr|
00009ff0  65 61 74 65 72 20 74 68  61 6e 20 30 2e 22 3a e1  |eater than 0.":.|
0000a000  0d 33 7c 2d de 20 74 72  61 6e 73 25 20 31 36 2c  |.3|-. trans% 16,|
0000a010  72 65 63 74 25 20 31 36  2c 70 6c 6f 74 61 74 25  |rect% 16,plotat%|
0000a020  20 38 2c 72 65 63 74 69  6e 25 20 31 36 0d 33 86  | 8,rectin% 16.3.|
0000a030  43 ff 20 28 22 52 4d 45  6e 73 75 72 65 20 50 44  |C. ("RMEnsure PD|
0000a040  72 69 76 65 72 20 30 20  45 52 52 4f 52 20 32 35  |river 0 ERROR 25|
0000a050  35 20 4e 6f 20 70 72 69  6e 74 65 72 20 64 72 69  |5 No printer dri|
0000a060  76 65 72 20 69 6e 73 74  61 6c 6c 65 64 2e 22 29  |ver installed.")|
0000a070  0d 33 90 15 c8 99 20 22  48 6f 75 72 67 6c 61 73  |.3.... "Hourglas|
0000a080  73 5f 4f 6e 22 0d 33 9a  0a 63 6f 70 79 3d 30 0d  |s_On".3..copy=0.|
0000a090  33 a4 05 f5 0d 33 ae 15  70 66 25 3d ae 28 22 70  |3....3..pf%=.("p|
0000a0a0  72 69 6e 74 65 72 3a 22  29 0d 33 b8 29 e7 20 70  |rinter:").3.). p|
0000a0b0  66 25 3d 30 20 8c 20 85  20 31 2c 22 50 72 69 6e  |f%=0 . . 1,"Prin|
0000a0c0  74 65 72 20 6e 6f 74 20  61 76 61 69 6c 61 62 6c  |ter not availabl|
0000a0d0  65 22 0d 33 c2 07 ea 20  85 0d 33 cc 41 ee 20 85  |e".3... ..3.A. .|
0000a0e0  20 ea 3a f7 20 85 3a d9  23 70 66 25 3a f2 63 6c  | .:. .:.#pf%:.cl|
0000a0f0  6f 73 65 5f 61 6c 6c 3a  f2 6d 6f 76 65 5f 63 61  |ose_all:.move_ca|
0000a100  72 65 74 28 64 69 73 63  5f 69 6e 64 65 78 25 2c  |ret(disc_index%,|
0000a110  31 33 29 3a 85 20 9f 2c  f6 24 0d 33 d6 38 c8 99  |13):. .,.$.3.8..|
0000a120  20 22 50 44 72 69 76 65  72 5f 53 65 6c 65 63 74  | "PDriver_Select|
0000a130  4a 6f 62 22 2c 70 66 25  2c 22 44 69 73 63 20 49  |Job",pf%,"Disc I|
0000a140  6e 64 65 78 20 50 72 69  6e 74 22 20 b8 20 6f 6c  |ndex Print" . ol|
0000a150  64 25 0d 33 e0 07 ea 20  85 0d 33 ea 34 ee 20 85  |d%.3... ..3.4. .|
0000a160  20 ea 3a f7 20 85 3a f2  63 6c 6f 73 65 5f 61 6c  | .:. .:.close_al|
0000a170  6c 3a f2 6d 6f 76 65 5f  63 61 72 65 74 28 64 69  |l:.move_caret(di|
0000a180  73 63 5f 69 6e 64 65 78  25 2c 31 33 29 0d 33 f4  |sc_index%,13).3.|
0000a190  41 3a c8 99 20 22 50 44  72 69 76 65 72 5f 41 62  |A:.. "PDriver_Ab|
0000a1a0  6f 72 74 4a 6f 62 22 2c  70 66 25 3a c8 99 20 22  |ortJob",pf%:.. "|
0000a1b0  50 44 72 69 76 65 72 5f  53 65 6c 65 63 74 4a 6f  |PDriver_SelectJo|
0000a1c0  62 22 2c 6f 6c 64 25 3a  85 20 9f 2c f6 24 0d 33  |b",old%:. .,.$.3|
0000a1d0  fe 17 72 65 63 74 25 21  30 3d 30 3a 72 65 63 74  |..rect%!0=0:rect|
0000a1e0  25 21 34 3d 30 0d 34 08  1d 72 65 63 74 25 21 38  |%!4=0.4..rect%!8|
0000a1f0  3d 31 30 30 30 3a 72 65  63 74 25 21 31 32 3d 38  |=1000:rect%!12=8|
0000a200  35 30 0d 34 12 21 74 72  61 6e 73 25 21 30 3d 31  |50.4.!trans%!0=1|
0000a210  3c 3c 31 36 3a 74 72 61  6e 73 25 21 34 3d 30 3c  |<<16:trans%!4=0<|
0000a220  3c 31 36 0d 34 1c 22 74  72 61 6e 73 25 21 38 3d  |<16.4."trans%!8=|
0000a230  30 3c 3c 31 36 3a 74 72  61 6e 73 25 21 31 32 3d  |0<<16:trans%!12=|
0000a240  31 3c 3c 31 36 0d 34 26  27 70 6c 6f 74 61 74 25  |1<<16.4&'plotat%|
0000a250  21 30 3d 31 2a 37 32 30  30 30 3a 70 6c 6f 74 61  |!0=1*72000:plota|
0000a260  74 25 21 34 3d 38 2a 37  32 30 30 30 0d 34 30 3f  |t%!4=8*72000.40?|
0000a270  c8 99 20 22 50 44 72 69  76 65 72 5f 47 69 76 65  |.. "PDriver_Give|
0000a280  52 65 63 74 61 6e 67 6c  65 22 2c 30 2c 72 65 63  |Rectangle",0,rec|
0000a290  74 25 2c 74 72 61 6e 73  25 2c 70 6c 6f 74 61 74  |t%,trans%,plotat|
0000a2a0  25 2c 26 46 46 46 46 46  46 30 30 0d 34 3a 2f c8  |%,&FFFFFF00.4:/.|
0000a2b0  99 20 22 50 44 72 69 76  65 72 5f 44 72 61 77 50  |. "PDriver_DrawP|
0000a2c0  61 67 65 22 2c 31 2c 72  65 63 74 69 6e 25 2c 30  |age",1,rectin%,0|
0000a2d0  2c 30 20 b8 20 6d 6f 72  65 25 0d 34 44 0c c8 95  |,0 . more%.4D...|
0000a2e0  20 6d 6f 72 65 25 0d 34  4e 80 e7 20 70 72 69 6e  | more%.4N.. prin|
0000a2f0  74 77 68 61 74 24 3d 22  41 6c 6c 22 20 8c 20 85  |twhat$="All" . .|
0000a300  20 31 2c 22 55 6e 61 62  6c 65 20 74 6f 20 70 72  | 1,"Unable to pr|
0000a310  69 6e 74 20 27 46 75 6c  6c 20 44 65 74 61 69 6c  |int 'Full Detail|
0000a320  73 27 20 76 69 61 20 52  49 53 43 20 4f 53 20 50  |s' via RISC OS P|
0000a330  72 69 6e 74 65 72 20 44  72 69 76 65 72 73 2c 20  |rinter Drivers, |
0000a340  53 6f 72 72 79 21 21 20  20 55 73 65 20 74 68 65  |Sorry!!  Use the|
0000a350  20 27 53 61 76 65 20 54  65 78 74 27 20 6f 70 74  | 'Save Text' opt|
0000a360  69 6f 6e 21 21 22 0d 34  58 7f e7 20 70 72 69 6e  |ion!!".4X.. prin|
0000a370  74 77 68 61 74 24 3d 22  41 54 22 20 8c 20 85 20  |twhat$="AT" . . |
0000a380  31 2c 22 55 6e 61 62 6c  65 20 74 6f 20 70 72 69  |1,"Unable to pri|
0000a390  6e 74 20 27 46 75 6c 6c  20 44 65 74 61 69 6c 73  |nt 'Full Details|
0000a3a0  27 20 76 69 61 20 52 49  53 43 20 4f 53 20 50 72  |' via RISC OS Pr|
0000a3b0  69 6e 74 65 72 20 44 72  69 76 65 72 73 2c 20 53  |inter Drivers, S|
0000a3c0  6f 72 72 79 21 21 20 20  55 73 65 20 74 68 65 20  |orry!!  Use the |
0000a3d0  27 53 61 76 65 20 54 65  78 74 27 20 6f 70 74 69  |'Save Text' opti|
0000a3e0  6f 6e 21 21 22 0d 34 62  1a e7 20 70 72 69 6e 74  |on!!".4b.. print|
0000a3f0  77 68 61 74 24 3d 22 4c  61 62 65 6c 22 20 8c 0d  |what$="Label" ..|
0000a400  34 6c 2e 69 6e 6c 61 79  5f 6e 75 6d 62 65 72 25  |4l.inlay_number%|
0000a410  3d bb 28 a4 69 6e 64 69  72 65 63 74 28 64 69 73  |=.(.indirect(dis|
0000a420  63 5f 70 72 69 6e 74 25  2c 31 33 29 29 0d 34 76  |c_print%,13)).4v|
0000a430  4d c8 99 20 22 43 6f 6c  6f 75 72 54 72 61 6e 73  |M.. "ColourTrans|
0000a440  5f 53 65 74 47 43 4f 4c  22 2c 30 3a c8 99 20 22  |_SetGCOL",0:.. "|
0000a450  43 6f 6c 6f 75 72 54 72  61 6e 73 5f 53 65 74 46  |ColourTrans_SetF|
0000a460  6f 6e 74 43 6f 6c 6f 75  72 73 22 2c 2c 26 46 46  |ontColours",,&FF|
0000a470  46 46 46 46 30 30 2c 30  2c 36 0d 34 80 11 c8 93  |FFFF00,0,6.4....|
0000a480  20 30 2c 30 2c 34 36 34  2c 39 35 0d 34 8a 12 c8  | 0,0,464,95.4...|
0000a490  93 20 30 2c 30 2c 34 36  34 2c 31 31 35 0d 34 94  |. 0,0,464,115.4.|
0000a4a0  12 c8 93 20 30 2c 30 2c  34 36 34 2c 35 31 35 0d  |... 0,0,464,515.|
0000a4b0  34 9e 1f c8 99 20 22 46  6f 6e 74 5f 53 65 74 46  |4.... "Font_SetF|
0000a4c0  6f 6e 74 22 2c 68 6f 6d  65 72 74 6f 6e 25 0d 34  |ont",homerton%.4|
0000a4d0  a8 31 c8 99 20 22 46 6f  6e 74 5f 50 61 69 6e 74  |.1.. "Font_Paint|
0000a4e0  22 2c 2c 22 3c 3d 20 57  72 69 74 65 20 50 72 6f  |",,"<= Write Pro|
0000a4f0  74 65 63 74 22 2c 26 31  30 2c 32 30 2c 35 35 0d  |tect",&10,20,55.|
0000a500  34 b2 30 c8 99 20 22 46  6f 6e 74 5f 50 61 69 6e  |4.0.. "Font_Pain|
0000a510  74 22 2c 2c 22 3c 3d 20  57 72 69 74 65 20 45 6e  |t",,"<= Write En|
0000a520  61 62 6c 65 22 2c 26 31  30 2c 32 30 2c 31 35 0d  |able",&10,20,15.|
0000a530  34 bc 23 c8 99 20 22 46  6f 6e 74 5f 53 65 74 46  |4.#.. "Font_SetF|
0000a540  6f 6e 74 22 2c 74 72 69  6e 69 74 79 73 6d 61 6c  |ont",trinitysmal|
0000a550  6c 25 0d 34 c6 77 c8 99  20 22 46 6f 6e 74 5f 50  |l%.4.w.. "Font_P|
0000a560  61 69 6e 74 22 2c 2c 64  69 73 63 6e 61 6d 65 24  |aint",,discname$|
0000a570  28 69 6e 6c 61 79 5f 6e  75 6d 62 65 72 25 29 2b  |(inlay_number%)+|
0000a580  28 c4 32 30 2d a9 28 64  69 73 63 6e 61 6d 65 24  |(.20-.(discname$|
0000a590  28 69 6e 6c 61 79 5f 6e  75 6d 62 65 72 25 29 29  |(inlay_number%))|
0000a5a0  2c 22 20 22 29 29 2b 64  69 73 63 74 79 70 65 24  |," "))+disctype$|
0000a5b0  28 69 6e 6c 61 79 5f 6e  75 6d 62 65 72 25 29 2c  |(inlay_number%),|
0000a5c0  26 31 30 2c 32 30 2c 39  38 0d 34 d0 22 c8 99 20  |&10,20,98.4.".. |
0000a5d0  22 46 6f 6e 74 5f 53 65  74 46 6f 6e 74 22 2c 68  |"Font_SetFont",h|
0000a5e0  6f 6d 65 72 74 6f 6e 62  69 67 25 0d 34 da 38 c8  |omertonbig%.4.8.|
0000a5f0  99 20 22 46 6f 6e 74 5f  50 61 69 6e 74 22 2c 2c  |. "Font_Paint",,|
0000a600  64 69 73 63 6e 61 6d 65  24 28 69 6e 6c 61 79 5f  |discname$(inlay_|
0000a610  6e 75 6d 62 65 72 25 29  2c 26 31 30 2c 32 30 2c  |number%),&10,20,|
0000a620  34 37 30 0d 34 e4 1d c8  99 20 22 46 6f 6e 74 5f  |470.4.... "Font_|
0000a630  53 65 74 46 6f 6e 74 22  2c 63 6f 72 70 75 73 25  |SetFont",corpus%|
0000a640  0d 34 ee 72 c8 99 20 22  46 6f 6e 74 5f 50 61 69  |.4.r.. "Font_Pai|
0000a650  6e 74 22 2c 2c 6e 61 6d  65 24 28 69 6e 6c 61 79  |nt",,name$(inlay|
0000a660  5f 6e 75 6d 62 65 72 25  2c 31 29 2b 28 c4 31 35  |_number%,1)+(.15|
0000a670  2d a9 28 6e 61 6d 65 24  28 69 6e 6c 61 79 5f 6e  |-.(name$(inlay_n|
0000a680  75 6d 62 65 72 25 2c 31  29 29 2c 22 20 22 29 29  |umber%,1))," "))|
0000a690  2b 6e 61 6d 65 24 28 69  6e 6c 61 79 5f 6e 75 6d  |+name$(inlay_num|
0000a6a0  62 65 72 25 2c 32 29 2c  26 31 30 2c 32 30 2c 34  |ber%,2),&10,20,4|
0000a6b0  35 30 0d 34 f8 72 c8 99  20 22 46 6f 6e 74 5f 50  |50.4.r.. "Font_P|
0000a6c0  61 69 6e 74 22 2c 2c 6e  61 6d 65 24 28 69 6e 6c  |aint",,name$(inl|
0000a6d0  61 79 5f 6e 75 6d 62 65  72 25 2c 33 29 2b 28 c4  |ay_number%,3)+(.|
0000a6e0  31 35 2d a9 28 6e 61 6d  65 24 28 69 6e 6c 61 79  |15-.(name$(inlay|
0000a6f0  5f 6e 75 6d 62 65 72 25  2c 33 29 29 2c 22 20 22  |_number%,3))," "|
0000a700  29 29 2b 6e 61 6d 65 24  28 69 6e 6c 61 79 5f 6e  |))+name$(inlay_n|
0000a710  75 6d 62 65 72 25 2c 34  29 2c 26 31 30 2c 32 30  |umber%,4),&10,20|
0000a720  2c 34 32 35 0d 35 02 72  c8 99 20 22 46 6f 6e 74  |,425.5.r.. "Font|
0000a730  5f 50 61 69 6e 74 22 2c  2c 6e 61 6d 65 24 28 69  |_Paint",,name$(i|
0000a740  6e 6c 61 79 5f 6e 75 6d  62 65 72 25 2c 35 29 2b  |nlay_number%,5)+|
0000a750  28 c4 31 35 2d a9 28 6e  61 6d 65 24 28 69 6e 6c  |(.15-.(name$(inl|
0000a760  61 79 5f 6e 75 6d 62 65  72 25 2c 35 29 29 2c 22  |ay_number%,5)),"|
0000a770  20 22 29 29 2b 6e 61 6d  65 24 28 69 6e 6c 61 79  | "))+name$(inlay|
0000a780  5f 6e 75 6d 62 65 72 25  2c 36 29 2c 26 31 30 2c  |_number%,6),&10,|
0000a790  32 30 2c 34 30 30 0d 35  0c 72 c8 99 20 22 46 6f  |20,400.5.r.. "Fo|
0000a7a0  6e 74 5f 50 61 69 6e 74  22 2c 2c 6e 61 6d 65 24  |nt_Paint",,name$|
0000a7b0  28 69 6e 6c 61 79 5f 6e  75 6d 62 65 72 25 2c 37  |(inlay_number%,7|
0000a7c0  29 2b 28 c4 31 35 2d a9  28 6e 61 6d 65 24 28 69  |)+(.15-.(name$(i|
0000a7d0  6e 6c 61 79 5f 6e 75 6d  62 65 72 25 2c 37 29 29  |nlay_number%,7))|
0000a7e0  2c 22 20 22 29 29 2b 6e  61 6d 65 24 28 69 6e 6c  |," "))+name$(inl|
0000a7f0  61 79 5f 6e 75 6d 62 65  72 25 2c 38 29 2c 26 31  |ay_number%,8),&1|
0000a800  30 2c 32 30 2c 33 37 35  0d 35 16 73 c8 99 20 22  |0,20,375.5.s.. "|
0000a810  46 6f 6e 74 5f 50 61 69  6e 74 22 2c 2c 6e 61 6d  |Font_Paint",,nam|
0000a820  65 24 28 69 6e 6c 61 79  5f 6e 75 6d 62 65 72 25  |e$(inlay_number%|
0000a830  2c 39 29 2b 28 c4 31 35  2d a9 28 6e 61 6d 65 24  |,9)+(.15-.(name$|
0000a840  28 69 6e 6c 61 79 5f 6e  75 6d 62 65 72 25 2c 39  |(inlay_number%,9|
0000a850  29 29 2c 22 20 22 29 29  2b 6e 61 6d 65 24 28 69  |))," "))+name$(i|
0000a860  6e 6c 61 79 5f 6e 75 6d  62 65 72 25 2c 31 30 29  |nlay_number%,10)|
0000a870  2c 26 31 30 2c 32 30 2c  33 35 30 0d 35 20 75 c8  |,&10,20,350.5 u.|
0000a880  99 20 22 46 6f 6e 74 5f  50 61 69 6e 74 22 2c 2c  |. "Font_Paint",,|
0000a890  6e 61 6d 65 24 28 69 6e  6c 61 79 5f 6e 75 6d 62  |name$(inlay_numb|
0000a8a0  65 72 25 2c 31 31 29 2b  28 c4 31 35 2d a9 28 6e  |er%,11)+(.15-.(n|
0000a8b0  61 6d 65 24 28 69 6e 6c  61 79 5f 6e 75 6d 62 65  |ame$(inlay_numbe|
0000a8c0  72 25 2c 31 31 29 29 2c  22 20 22 29 29 2b 6e 61  |r%,11))," "))+na|
0000a8d0  6d 65 24 28 69 6e 6c 61  79 5f 6e 75 6d 62 65 72  |me$(inlay_number|
0000a8e0  25 2c 31 32 29 2c 26 31  30 2c 32 30 2c 33 32 35  |%,12),&10,20,325|
0000a8f0  0d 35 2a 75 c8 99 20 22  46 6f 6e 74 5f 50 61 69  |.5*u.. "Font_Pai|
0000a900  6e 74 22 2c 2c 6e 61 6d  65 24 28 69 6e 6c 61 79  |nt",,name$(inlay|
0000a910  5f 6e 75 6d 62 65 72 25  2c 31 33 29 2b 28 c4 31  |_number%,13)+(.1|
0000a920  35 2d a9 28 6e 61 6d 65  24 28 69 6e 6c 61 79 5f  |5-.(name$(inlay_|
0000a930  6e 75 6d 62 65 72 25 2c  31 33 29 29 2c 22 20 22  |number%,13))," "|
0000a940  29 29 2b 6e 61 6d 65 24  28 69 6e 6c 61 79 5f 6e  |))+name$(inlay_n|
0000a950  75 6d 62 65 72 25 2c 31  34 29 2c 26 31 30 2c 32  |umber%,14),&10,2|
0000a960  30 2c 33 30 30 0d 35 34  75 c8 99 20 22 46 6f 6e  |0,300.54u.. "Fon|
0000a970  74 5f 50 61 69 6e 74 22  2c 2c 6e 61 6d 65 24 28  |t_Paint",,name$(|
0000a980  69 6e 6c 61 79 5f 6e 75  6d 62 65 72 25 2c 31 35  |inlay_number%,15|
0000a990  29 2b 28 c4 31 35 2d a9  28 6e 61 6d 65 24 28 69  |)+(.15-.(name$(i|
0000a9a0  6e 6c 61 79 5f 6e 75 6d  62 65 72 25 2c 31 35 29  |nlay_number%,15)|
0000a9b0  29 2c 22 20 22 29 29 2b  6e 61 6d 65 24 28 69 6e  |)," "))+name$(in|
0000a9c0  6c 61 79 5f 6e 75 6d 62  65 72 25 2c 31 36 29 2c  |lay_number%,16),|
0000a9d0  26 31 30 2c 32 30 2c 32  37 35 0d 35 3e 75 c8 99  |&10,20,275.5>u..|
0000a9e0  20 22 46 6f 6e 74 5f 50  61 69 6e 74 22 2c 2c 6e  | "Font_Paint",,n|
0000a9f0  61 6d 65 24 28 69 6e 6c  61 79 5f 6e 75 6d 62 65  |ame$(inlay_numbe|
0000aa00  72 25 2c 31 37 29 2b 28  c4 31 35 2d a9 28 6e 61  |r%,17)+(.15-.(na|
0000aa10  6d 65 24 28 69 6e 6c 61  79 5f 6e 75 6d 62 65 72  |me$(inlay_number|
0000aa20  25 2c 31 37 29 29 2c 22  20 22 29 29 2b 6e 61 6d  |%,17))," "))+nam|
0000aa30  65 24 28 69 6e 6c 61 79  5f 6e 75 6d 62 65 72 25  |e$(inlay_number%|
0000aa40  2c 31 38 29 2c 26 31 30  2c 32 30 2c 32 35 30 0d  |,18),&10,20,250.|
0000aa50  35 48 75 c8 99 20 22 46  6f 6e 74 5f 50 61 69 6e  |5Hu.. "Font_Pain|
0000aa60  74 22 2c 2c 6e 61 6d 65  24 28 69 6e 6c 61 79 5f  |t",,name$(inlay_|
0000aa70  6e 75 6d 62 65 72 25 2c  31 39 29 2b 28 c4 31 35  |number%,19)+(.15|
0000aa80  2d a9 28 6e 61 6d 65 24  28 69 6e 6c 61 79 5f 6e  |-.(name$(inlay_n|
0000aa90  75 6d 62 65 72 25 2c 31  39 29 29 2c 22 20 22 29  |umber%,19))," ")|
0000aaa0  29 2b 6e 61 6d 65 24 28  69 6e 6c 61 79 5f 6e 75  |)+name$(inlay_nu|
0000aab0  6d 62 65 72 25 2c 32 30  29 2c 26 31 30 2c 32 30  |mber%,20),&10,20|
0000aac0  2c 32 32 35 0d 35 52 75  c8 99 20 22 46 6f 6e 74  |,225.5Ru.. "Font|
0000aad0  5f 50 61 69 6e 74 22 2c  2c 6e 61 6d 65 24 28 69  |_Paint",,name$(i|
0000aae0  6e 6c 61 79 5f 6e 75 6d  62 65 72 25 2c 32 31 29  |nlay_number%,21)|
0000aaf0  2b 28 c4 31 35 2d a9 28  6e 61 6d 65 24 28 69 6e  |+(.15-.(name$(in|
0000ab00  6c 61 79 5f 6e 75 6d 62  65 72 25 2c 32 31 29 29  |lay_number%,21))|
0000ab10  2c 22 20 22 29 29 2b 6e  61 6d 65 24 28 69 6e 6c  |," "))+name$(inl|
0000ab20  61 79 5f 6e 75 6d 62 65  72 25 2c 32 32 29 2c 26  |ay_number%,22),&|
0000ab30  31 30 2c 32 30 2c 32 30  30 0d 35 5c 75 c8 99 20  |10,20,200.5\u.. |
0000ab40  22 46 6f 6e 74 5f 50 61  69 6e 74 22 2c 2c 6e 61  |"Font_Paint",,na|
0000ab50  6d 65 24 28 69 6e 6c 61  79 5f 6e 75 6d 62 65 72  |me$(inlay_number|
0000ab60  25 2c 32 33 29 2b 28 c4  31 35 2d a9 28 6e 61 6d  |%,23)+(.15-.(nam|
0000ab70  65 24 28 69 6e 6c 61 79  5f 6e 75 6d 62 65 72 25  |e$(inlay_number%|
0000ab80  2c 32 33 29 29 2c 22 20  22 29 29 2b 6e 61 6d 65  |,23))," "))+name|
0000ab90  24 28 69 6e 6c 61 79 5f  6e 75 6d 62 65 72 25 2c  |$(inlay_number%,|
0000aba0  32 34 29 2c 26 31 30 2c  32 30 2c 31 37 35 0d 35  |24),&10,20,175.5|
0000abb0  66 75 c8 99 20 22 46 6f  6e 74 5f 50 61 69 6e 74  |fu.. "Font_Paint|
0000abc0  22 2c 2c 6e 61 6d 65 24  28 69 6e 6c 61 79 5f 6e  |",,name$(inlay_n|
0000abd0  75 6d 62 65 72 25 2c 32  35 29 2b 28 c4 31 35 2d  |umber%,25)+(.15-|
0000abe0  a9 28 6e 61 6d 65 24 28  69 6e 6c 61 79 5f 6e 75  |.(name$(inlay_nu|
0000abf0  6d 62 65 72 25 2c 32 35  29 29 2c 22 20 22 29 29  |mber%,25))," "))|
0000ac00  2b 6e 61 6d 65 24 28 69  6e 6c 61 79 5f 6e 75 6d  |+name$(inlay_num|
0000ac10  62 65 72 25 2c 32 36 29  2c 26 31 30 2c 32 30 2c  |ber%,26),&10,20,|
0000ac20  31 35 30 0d 35 70 75 c8  99 20 22 46 6f 6e 74 5f  |150.5pu.. "Font_|
0000ac30  50 61 69 6e 74 22 2c 2c  6e 61 6d 65 24 28 69 6e  |Paint",,name$(in|
0000ac40  6c 61 79 5f 6e 75 6d 62  65 72 25 2c 32 37 29 2b  |lay_number%,27)+|
0000ac50  28 c4 31 35 2d a9 28 6e  61 6d 65 24 28 69 6e 6c  |(.15-.(name$(inl|
0000ac60  61 79 5f 6e 75 6d 62 65  72 25 2c 32 37 29 29 2c  |ay_number%,27)),|
0000ac70  22 20 22 29 29 2b 6e 61  6d 65 24 28 69 6e 6c 61  |" "))+name$(inla|
0000ac80  79 5f 6e 75 6d 62 65 72  25 2c 32 38 29 2c 26 31  |y_number%,28),&1|
0000ac90  30 2c 32 30 2c 31 32 35  0d 35 7a 2e c8 99 20 22  |0,20,125.5z... "|
0000aca0  50 44 72 69 76 65 72 5f  47 65 74 52 65 63 74 61  |PDriver_GetRecta|
0000acb0  6e 67 6c 65 22 2c 2c 72  65 63 74 69 6e 25 20 b8  |ngle",,rectin% .|
0000acc0  20 6d 6f 72 65 25 0d 35  84 05 cd 0d 35 8e 05 ce  | more%.5....5...|
0000acd0  0d 35 98 1b c8 99 20 22  50 44 72 69 76 65 72 5f  |.5.... "PDriver_|
0000ace0  45 6e 64 4a 6f 62 22 2c  70 66 25 0d 35 a2 07 f7  |EndJob",pf%.5...|
0000acf0  20 85 0d 35 ac 1f c8 99  20 22 50 44 72 69 76 65  | ..5.... "PDrive|
0000ad00  72 5f 53 65 6c 65 63 74  4a 6f 62 22 2c 6f 6c 64  |r_SelectJob",old|
0000ad10  25 0d 35 b6 07 f7 20 85  0d 35 c0 09 d9 23 70 66  |%.5... ..5...#pf|
0000ad20  25 0d 35 ca 1a 63 6f 70  79 2b 3d 31 3a fd 20 63  |%.5..copy+=1:. c|
0000ad30  6f 70 79 3d 63 6f 70 69  65 73 25 0d 35 d4 16 c8  |opy=copies%.5...|
0000ad40  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 66 66  |. "Hourglass_Off|
0000ad50  22 0d 35 de 2a f2 63 6c  6f 73 65 28 64 69 73 63  |".5.*.close(disc|
0000ad60  5f 77 61 69 74 25 29 3a  f2 63 6c 6f 73 65 28 64  |_wait%):.close(d|
0000ad70  69 73 63 5f 70 72 69 6e  74 25 29 0d 35 e8 05 e1  |isc_print%).5...|
0000ad80  0d 35 f2 05 3a 0d 35 fc  12 dd f2 6c 6f 61 64 5f  |.5..:.5....load_|
0000ad90  6f 70 74 69 6f 6e 73 0d  36 06 2c 63 68 6f 69 63  |options.6.,choic|
0000ada0  65 73 25 3d 8e 22 3c 44  69 73 63 24 44 69 72 3e  |es%=."<Disc$Dir>|
0000adb0  2e 52 65 73 6f 75 72 63  65 73 2e 43 68 6f 69 63  |.Resources.Choic|
0000adc0  65 73 22 0d 36 10 13 e7  20 63 68 6f 69 63 65 73  |es".6... choices|
0000add0  25 3c 3e 30 20 8c 0d 36  1a 1c e8 23 63 68 6f 69  |%<>0 ..6...#choi|
0000ade0  63 65 73 25 2c 6f 75 74  6c 69 6e 65 66 6f 6e 74  |ces%,outlinefont|
0000adf0  73 25 0d 36 24 1a e8 23  63 68 6f 69 63 65 73 25  |s%.6$..#choices%|
0000ae00  2c 6d 61 78 5f 72 65 63  6f 72 64 25 0d 36 2e 17  |,max_record%.6..|
0000ae10  e8 23 63 68 6f 69 63 65  73 25 2c 73 63 61 6e 61  |.#choices%,scana|
0000ae20  70 70 25 0d 36 38 17 e8  23 63 68 6f 69 63 65 73  |pp%.68..#choices|
0000ae30  25 2c 73 63 61 6e 64 69  72 25 0d 36 42 1a e8 23  |%,scandir%.6B..#|
0000ae40  63 68 6f 69 63 65 73 25  2c 6d 6f 76 65 74 6f 6e  |choices%,moveton|
0000ae50  65 78 74 25 0d 36 4c 0e  d9 23 63 68 6f 69 63 65  |ext%.6L..#choice|
0000ae60  73 25 0d 36 56 05 cc 0d  36 60 13 6f 75 74 6c 69  |s%.6V...6`.outli|
0000ae70  6e 65 66 6f 6e 74 73 25  3d 30 0d 36 6a 13 6d 61  |nefonts%=0.6j.ma|
0000ae80  78 5f 72 65 63 6f 72 64  25 3d 32 35 30 0d 36 74  |x_record%=250.6t|
0000ae90  0e 73 63 61 6e 61 70 70  25 3d 30 0d 36 7e 0e 73  |.scanapp%=0.6~.s|
0000aea0  63 61 6e 64 69 72 25 3d  30 0d 36 88 11 6d 6f 76  |candir%=0.6..mov|
0000aeb0  65 74 6f 6e 65 78 74 25  3d 30 0d 36 92 05 cd 0d  |etonext%=0.6....|
0000aec0  36 9c 29 e7 20 6f 75 74  6c 69 6e 65 66 6f 6e 74  |6.). outlinefont|
0000aed0  73 25 3d 31 20 8c 20 f2  67 65 74 5f 77 69 6e 64  |s%=1 . .get_wind|
0000aee0  6f 77 5f 66 6f 6e 74 73  0d 36 a6 05 e1 0d 36 b0  |ow_fonts.6....6.|
0000aef0  05 3a 0d 36 ba 12 dd f2  73 61 76 65 5f 6f 70 74  |.:.6....save_opt|
0000af00  69 6f 6e 73 0d 36 c4 2c  63 68 6f 69 63 65 73 25  |ions.6.,choices%|
0000af10  3d ae 22 3c 44 69 73 63  24 44 69 72 3e 2e 52 65  |=."<Disc$Dir>.Re|
0000af20  73 6f 75 72 63 65 73 2e  43 68 6f 69 63 65 73 22  |sources.Choices"|
0000af30  0d 36 ce 1c f1 23 63 68  6f 69 63 65 73 25 2c 6f  |.6...#choices%,o|
0000af40  75 74 6c 69 6e 65 66 6f  6e 74 73 25 0d 36 d8 1a  |utlinefonts%.6..|
0000af50  f1 23 63 68 6f 69 63 65  73 25 2c 6d 61 78 5f 72  |.#choices%,max_r|
0000af60  65 63 6f 72 64 25 0d 36  e2 17 f1 23 63 68 6f 69  |ecord%.6...#choi|
0000af70  63 65 73 25 2c 73 63 61  6e 61 70 70 25 0d 36 ec  |ces%,scanapp%.6.|
0000af80  17 f1 23 63 68 6f 69 63  65 73 25 2c 73 63 61 6e  |..#choices%,scan|
0000af90  64 69 72 25 0d 36 f6 1a  f1 23 63 68 6f 69 63 65  |dir%.6...#choice|
0000afa0  73 25 2c 6d 6f 76 65 74  6f 6e 65 78 74 25 0d 37  |s%,movetonext%.7|
0000afb0  00 0e d9 23 63 68 6f 69  63 65 73 25 0d 37 0a 05  |...#choices%.7..|
0000afc0  e1 0d 37 14 05 3a 0d 37  1e 16 dd f2 67 65 74 5f  |..7..:.7....get_|
0000afd0  77 69 6e 64 6f 77 5f 66  6f 6e 74 73 0d 37 28 08  |window_fonts.7(.|
0000afe0  ea 20 66 25 0d 37 32 10  de 20 66 6f 6e 74 62 25  |. f%.72.. fontb%|
0000aff0  20 32 35 35 0d 37 3c 1e  e3 20 49 25 3d 30 20 b8  | 255.7<.. I%=0 .|
0000b000  20 32 35 35 3a 66 6f 6e  74 62 25 3f 49 25 3d 30  | 255:fontb%?I%=0|
0000b010  3a ed 0d 37 46 05 e1 0d  37 50 05 3a 0d 37 5a 19  |:..7F...7P.:.7Z.|
0000b020  dd f2 61 6c 74 65 72 5f  6e 6f 5f 6f 66 5f 72 65  |..alter_no_of_re|
0000b030  63 6f 72 64 73 0d 37 64  14 c8 8e 20 6d 61 78 5f  |cords.7d... max_|
0000b040  72 65 63 6f 72 64 25 20  ca 0d 37 6e d9 c9 20 35  |record% ..7n.. 5|
0000b050  30 3a c8 99 20 22 57 69  6d 70 45 78 74 5f 53 65  |0:.. "WimpExt_Se|
0000b060  74 49 63 6f 6e 22 2c 2c  2c 64 69 73 63 5f 6f 70  |tIcon",,,disc_op|
0000b070  74 69 6f 6e 73 25 2c 39  2c 31 3a c8 99 20 22 57  |tions%,9,1:.. "W|
0000b080  69 6d 70 45 78 74 5f 53  65 74 49 63 6f 6e 22 2c  |impExt_SetIcon",|
0000b090  2c 2c 64 69 73 63 5f 6f  70 74 69 6f 6e 73 25 2c  |,,disc_options%,|
0000b0a0  31 32 2c 30 3a c8 99 20  22 57 69 6d 70 45 78 74  |12,0:.. "WimpExt|
0000b0b0  5f 53 65 74 49 63 6f 6e  22 2c 2c 2c 64 69 73 63  |_SetIcon",,,disc|
0000b0c0  5f 6f 70 74 69 6f 6e 73  25 2c 31 33 2c 30 3a c8  |_options%,13,0:.|
0000b0d0  99 20 22 57 69 6d 70 45  78 74 5f 53 65 74 49 63  |. "WimpExt_SetIc|
0000b0e0  6f 6e 22 2c 2c 2c 64 69  73 63 5f 6f 70 74 69 6f  |on",,,disc_optio|
0000b0f0  6e 73 25 2c 31 34 2c 30  3a c8 99 20 22 57 69 6d  |ns%,14,0:.. "Wim|
0000b100  70 45 78 74 5f 53 65 74  49 63 6f 6e 22 2c 2c 2c  |pExt_SetIcon",,,|
0000b110  64 69 73 63 5f 6f 70 74  69 6f 6e 73 25 2c 31 35  |disc_options%,15|
0000b120  2c 30 0d 37 78 da c9 20  31 30 30 3a c8 99 20 22  |,0.7x.. 100:.. "|
0000b130  57 69 6d 70 45 78 74 5f  53 65 74 49 63 6f 6e 22  |WimpExt_SetIcon"|
0000b140  2c 2c 2c 64 69 73 63 5f  6f 70 74 69 6f 6e 73 25  |,,,disc_options%|
0000b150  2c 39 2c 30 3a c8 99 20  22 57 69 6d 70 45 78 74  |,9,0:.. "WimpExt|
0000b160  5f 53 65 74 49 63 6f 6e  22 2c 2c 2c 64 69 73 63  |_SetIcon",,,disc|
0000b170  5f 6f 70 74 69 6f 6e 73  25 2c 31 32 2c 31 3a c8  |_options%,12,1:.|
0000b180  99 20 22 57 69 6d 70 45  78 74 5f 53 65 74 49 63  |. "WimpExt_SetIc|
0000b190  6f 6e 22 2c 2c 2c 64 69  73 63 5f 6f 70 74 69 6f  |on",,,disc_optio|
0000b1a0  6e 73 25 2c 31 33 2c 30  3a c8 99 20 22 57 69 6d  |ns%,13,0:.. "Wim|
0000b1b0  70 45 78 74 5f 53 65 74  49 63 6f 6e 22 2c 2c 2c  |pExt_SetIcon",,,|
0000b1c0  64 69 73 63 5f 6f 70 74  69 6f 6e 73 25 2c 31 34  |disc_options%,14|
0000b1d0  2c 30 3a c8 99 20 22 57  69 6d 70 45 78 74 5f 53  |,0:.. "WimpExt_S|
0000b1e0  65 74 49 63 6f 6e 22 2c  2c 2c 64 69 73 63 5f 6f  |etIcon",,,disc_o|
0000b1f0  70 74 69 6f 6e 73 25 2c  31 35 2c 30 0d 37 82 da  |ptions%,15,0.7..|
0000b200  c9 20 31 35 30 3a c8 99  20 22 57 69 6d 70 45 78  |. 150:.. "WimpEx|
0000b210  74 5f 53 65 74 49 63 6f  6e 22 2c 2c 2c 64 69 73  |t_SetIcon",,,dis|
0000b220  63 5f 6f 70 74 69 6f 6e  73 25 2c 39 2c 30 3a c8  |c_options%,9,0:.|
0000b230  99 20 22 57 69 6d 70 45  78 74 5f 53 65 74 49 63  |. "WimpExt_SetIc|
0000b240  6f 6e 22 2c 2c 2c 64 69  73 63 5f 6f 70 74 69 6f  |on",,,disc_optio|
0000b250  6e 73 25 2c 31 32 2c 30  3a c8 99 20 22 57 69 6d  |ns%,12,0:.. "Wim|
0000b260  70 45 78 74 5f 53 65 74  49 63 6f 6e 22 2c 2c 2c  |pExt_SetIcon",,,|
0000b270  64 69 73 63 5f 6f 70 74  69 6f 6e 73 25 2c 31 33  |disc_options%,13|
0000b280  2c 31 3a c8 99 20 22 57  69 6d 70 45 78 74 5f 53  |,1:.. "WimpExt_S|
0000b290  65 74 49 63 6f 6e 22 2c  2c 2c 64 69 73 63 5f 6f  |etIcon",,,disc_o|
0000b2a0  70 74 69 6f 6e 73 25 2c  31 34 2c 30 3a c8 99 20  |ptions%,14,0:.. |
0000b2b0  22 57 69 6d 70 45 78 74  5f 53 65 74 49 63 6f 6e  |"WimpExt_SetIcon|
0000b2c0  22 2c 2c 2c 64 69 73 63  5f 6f 70 74 69 6f 6e 73  |",,,disc_options|
0000b2d0  25 2c 31 35 2c 30 0d 37  8c da c9 20 32 30 30 3a  |%,15,0.7... 200:|
0000b2e0  c8 99 20 22 57 69 6d 70  45 78 74 5f 53 65 74 49  |.. "WimpExt_SetI|
0000b2f0  63 6f 6e 22 2c 2c 2c 64  69 73 63 5f 6f 70 74 69  |con",,,disc_opti|
0000b300  6f 6e 73 25 2c 39 2c 30  3a c8 99 20 22 57 69 6d  |ons%,9,0:.. "Wim|
0000b310  70 45 78 74 5f 53 65 74  49 63 6f 6e 22 2c 2c 2c  |pExt_SetIcon",,,|
0000b320  64 69 73 63 5f 6f 70 74  69 6f 6e 73 25 2c 31 32  |disc_options%,12|
0000b330  2c 30 3a c8 99 20 22 57  69 6d 70 45 78 74 5f 53  |,0:.. "WimpExt_S|
0000b340  65 74 49 63 6f 6e 22 2c  2c 2c 64 69 73 63 5f 6f  |etIcon",,,disc_o|
0000b350  70 74 69 6f 6e 73 25 2c  31 33 2c 30 3a c8 99 20  |ptions%,13,0:.. |
0000b360  22 57 69 6d 70 45 78 74  5f 53 65 74 49 63 6f 6e  |"WimpExt_SetIcon|
0000b370  22 2c 2c 2c 64 69 73 63  5f 6f 70 74 69 6f 6e 73  |",,,disc_options|
0000b380  25 2c 31 34 2c 31 3a c8  99 20 22 57 69 6d 70 45  |%,14,1:.. "WimpE|
0000b390  78 74 5f 53 65 74 49 63  6f 6e 22 2c 2c 2c 64 69  |xt_SetIcon",,,di|
0000b3a0  73 63 5f 6f 70 74 69 6f  6e 73 25 2c 31 35 2c 30  |sc_options%,15,0|
0000b3b0  0d 37 96 da c9 20 32 35  30 3a c8 99 20 22 57 69  |.7... 250:.. "Wi|
0000b3c0  6d 70 45 78 74 5f 53 65  74 49 63 6f 6e 22 2c 2c  |mpExt_SetIcon",,|
0000b3d0  2c 64 69 73 63 5f 6f 70  74 69 6f 6e 73 25 2c 39  |,disc_options%,9|
0000b3e0  2c 30 3a c8 99 20 22 57  69 6d 70 45 78 74 5f 53  |,0:.. "WimpExt_S|
0000b3f0  65 74 49 63 6f 6e 22 2c  2c 2c 64 69 73 63 5f 6f  |etIcon",,,disc_o|
0000b400  70 74 69 6f 6e 73 25 2c  31 32 2c 30 3a c8 99 20  |ptions%,12,0:.. |
0000b410  22 57 69 6d 70 45 78 74  5f 53 65 74 49 63 6f 6e  |"WimpExt_SetIcon|
0000b420  22 2c 2c 2c 64 69 73 63  5f 6f 70 74 69 6f 6e 73  |",,,disc_options|
0000b430  25 2c 31 33 2c 30 3a c8  99 20 22 57 69 6d 70 45  |%,13,0:.. "WimpE|
0000b440  78 74 5f 53 65 74 49 63  6f 6e 22 2c 2c 2c 64 69  |xt_SetIcon",,,di|
0000b450  73 63 5f 6f 70 74 69 6f  6e 73 25 2c 31 34 2c 30  |sc_options%,14,0|
0000b460  3a c8 99 20 22 57 69 6d  70 45 78 74 5f 53 65 74  |:.. "WimpExt_Set|
0000b470  49 63 6f 6e 22 2c 2c 2c  64 69 73 63 5f 6f 70 74  |Icon",,,disc_opt|
0000b480  69 6f 6e 73 25 2c 31 35  2c 31 0d 37 a0 05 cb 0d  |ions%,15,1.7....|
0000b490  37 aa 33 f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |7.3.update_icon(|
0000b4a0  64 69 73 63 5f 69 6e 64  65 78 25 2c 31 31 2c 22  |disc_index%,11,"|
0000b4b0  2f 22 2b c3 28 6d 61 78  5f 72 65 63 6f 72 64 25  |/"+.(max_record%|
0000b4c0  29 29 0d 37 b4 05 e1 0d  37 be 05 3a 0d 37 c8 14  |)).7....7..:.7..|
0000b4d0  dd f2 75 70 64 61 74 65  5f 6f 70 74 69 6f 6e 73  |..update_options|
0000b4e0  0d 37 d2 18 f2 61 6c 74  65 72 5f 6e 6f 5f 6f 66  |.7...alter_no_of|
0000b4f0  5f 72 65 63 6f 72 64 73  0d 37 dc 16 c8 8e 20 6f  |_records.7.... o|
0000b500  75 74 6c 69 6e 65 66 6f  6e 74 73 25 20 ca 0d 37  |utlinefonts% ..7|
0000b510  e6 59 c9 20 30 3a c8 99  20 22 57 69 6d 70 45 78  |.Y. 0:.. "WimpEx|
0000b520  74 5f 53 65 74 49 63 6f  6e 22 2c 2c 2c 64 69 73  |t_SetIcon",,,dis|
0000b530  63 5f 6f 70 74 69 6f 6e  73 25 2c 38 2c 31 3a c8  |c_options%,8,1:.|
0000b540  99 20 22 57 69 6d 70 45  78 74 5f 53 65 74 49 63  |. "WimpExt_SetIc|
0000b550  6f 6e 22 2c 2c 2c 64 69  73 63 5f 6f 70 74 69 6f  |on",,,disc_optio|
0000b560  6e 73 25 2c 37 2c 30 0d  37 f0 59 c9 20 31 3a c8  |ns%,7,0.7.Y. 1:.|
0000b570  99 20 22 57 69 6d 70 45  78 74 5f 53 65 74 49 63  |. "WimpExt_SetIc|
0000b580  6f 6e 22 2c 2c 2c 64 69  73 63 5f 6f 70 74 69 6f  |on",,,disc_optio|
0000b590  6e 73 25 2c 37 2c 31 3a  c8 99 20 22 57 69 6d 70  |ns%,7,1:.. "Wimp|
0000b5a0  45 78 74 5f 53 65 74 49  63 6f 6e 22 2c 2c 2c 64  |Ext_SetIcon",,,d|
0000b5b0  69 73 63 5f 6f 70 74 69  6f 6e 73 25 2c 38 2c 30  |isc_options%,8,0|
0000b5c0  0d 37 fa 05 cb 0d 38 04  3e e7 20 6d 6f 76 65 74  |.7....8.>. movet|
0000b5d0  6f 6e 65 78 74 25 3d 31  20 8c 20 c8 99 20 22 57  |onext%=1 . .. "W|
0000b5e0  69 6d 70 45 78 74 5f 53  65 74 49 63 6f 6e 22 2c  |impExt_SetIcon",|
0000b5f0  2c 2c 64 69 73 63 5f 6f  70 74 69 6f 6e 73 25 2c  |,,disc_options%,|
0000b600  33 2c 31 0d 38 0e 3b e7  20 73 63 61 6e 61 70 70  |3,1.8.;. scanapp|
0000b610  25 3d 31 20 8c 20 c8 99  20 22 57 69 6d 70 45 78  |%=1 . .. "WimpEx|
0000b620  74 5f 53 65 74 49 63 6f  6e 22 2c 2c 2c 64 69 73  |t_SetIcon",,,dis|
0000b630  63 5f 6f 70 74 69 6f 6e  73 25 2c 31 2c 31 0d 38  |c_options%,1,1.8|
0000b640  18 3c e7 20 73 63 61 6e  64 69 72 25 3d 31 20 8c  |.<. scandir%=1 .|
0000b650  20 c8 99 20 22 57 69 6d  70 45 78 74 5f 53 65 74  | .. "WimpExt_Set|
0000b660  49 63 6f 6e 22 2c 2c 2c  64 69 73 63 5f 6f 70 74  |Icon",,,disc_opt|
0000b670  69 6f 6e 73 25 2c 31 31  2c 31 0d 38 22 33 f2 75  |ions%,11,1.8"3.u|
0000b680  70 64 61 74 65 5f 69 63  6f 6e 28 64 69 73 63 5f  |pdate_icon(disc_|
0000b690  69 6e 64 65 78 25 2c 31  31 2c 22 2f 22 2b c3 28  |index%,11,"/"+.(|
0000b6a0  6d 61 78 5f 72 65 63 6f  72 64 25 29 29 0d 38 2c  |max_record%)).8,|
0000b6b0  05 e1 0d ff                                       |....|
0000b6b4