� >!RunImage
;� Video 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"
ZGș "OS_File",17,"<Video$Dir>.Resources."+sprite$ � type%,,,,length%
d� sprite% length%+4
n!sprite%=length%+4
xAș "OS_SpriteOp",266,sprite%,"<Video$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,"Video Index" � ,handle%
�2ș "WimpExt_Initialise",7,handle%,%111,sprite%
�:
��initialise_variables
��get_mode_info
�.�ms_load("<Video$Dir>.Resources.Messages")
��load_templates
�
�announce
�d!q%=video_index%:ș "WimpExt_CloseLinked",,q%:!q%=video_backtracks%:ș "WimpExt_CloseLinked",,q%
�ș "Hourglass_Off"

:

� � �error

:

"�

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

6ș "WimpExt_PrePoll"

@&ș "Wimp_Poll",1,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:�wimp_close(!q%)

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

�� 7:

�Ȏ savetype$ �

�7� "FFF":�initiate_save(�indirect(video_savebox%,1))

�8� "E91":�initiate_save(�indirect(video_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",homerton%:ș "Font_LoseFont",corpus%
0�#0
:ș "Hourglass_Smash"
D�
N:
X��initialise_variables
b5� q% 16384,menufree% &1000,temp% 8192,indir% 8192
lcurws%=temp%
vmaxws%=temp%+2048
�menustart%=menufree%
�menuend%=menufree%+&1000
�menu%=0
�quit%=�
�ver$="3.20 (5 Jan 1994)"
��initialise_video_index
��
�:
���load_templates
�?!q%=0:q%!4=0:q%!8=0:q%!12=0:q%!16=0:q%!20=0:q%!24=0:q%!28=0
�;q%!32=0:q%!36=0:q%!40=0:q%!44=0:q%!48=0:q%!52=0:q%!56=0
�Ȏ outlinefonts% �
�� 0
gș "WimpExt_LoadTemplates",q%,q%+60,indir%,indir%+8192,-1,"<Video$Dir>.Resources.Templates",sprite%
:video_quit%=!q%:video_clear%=q%!4:video_announce%=q%!8
>video_savebox%=q%!12:video_wait%=q%!16:video_search%=q%!20
 Fvideo_savebox2%=q%!24:video_infobox%=q%!28:video_backtracks%=q%!32
*Dvideo_options%=q%!36:video_mainoptions%=q%!40:video_print%=q%!44
4=video_index%=q%!48:video_tracks%=q%!52:video_found%=q%!56
>� 1
Hkș "WimpExt_LoadTemplates",q%,q%+60,indir%,indir%+8192,fontb%,"<Video$Dir>.Resources.FontTemps",sprite%
R:video_quit%=!q%:video_clear%=q%!4:video_announce%=q%!8
\Bvideo_savebox%=q%!12:video_search%=q%!16:video_savebox2%=q%!20
fFvideo_infobox%=q%!24:video_options%=q%!28:video_mainoptions%=q%!32
p@video_print%=q%!36:video_wait%=q%!40:video_backtracks%=q%!44
z=video_index%=q%!48:video_tracks%=q%!52:video_found%=q%!56
��
�>ș "WimpExt_LinkWindows",,,video_backtracks%,video_tracks%
�@ș "WimpExt_LinkWindows",,,video_mainoptions%,video_options%
�'�update_icon(video_infobox%,7,ver$)
�3ș "WimpExt_IconBarSprite",,,-1,"!VideoIndx",,3
��update_options
��
�:
���make_menus
�menufree%=menustart%
�%� loop%=menustart% � menuend% � 4
�!loop%=0
��
�get_todays_date
ndatemenu%=�create_menu("# Date ,"+day1$+","+day2$+","+day3$+","+day4$+","+day5$+","+day6$+","+day7$,"","")
giconbarmenu%=�create_menu("# Video Index ,Info>video_infobox%,Options...,Restart   F8#,Quit","","")
$[formatmenu%=�create_menu("#Format,Betamax,Super VHS,VHS,VHSC,Video 8,Video 2000","","")
.�proglengthmenu%=�create_menu("#Length,10 minutes,15 minutes,20 minutes,25 minutes,30 minutes,45 minutes,50 minutes,1 hour,1 hour 30 min,2 hours","","")
8Zsizemenu%=�create_menu("#Length,60 minutes,120 minutes,180 minutes,240 minutes","","")
B>splpmenu%=�create_menu("# Play Speed ,SP,LP#,Clear","","")
L�categorymenu%=�create_menu("# Category ,American,Cartoon,Children,Comedy,Drama,Film,Game Show,Music,News,Soap Opera,Sport,Weather","","")
Vasavemenu%=�create_menu("#Save as,Text>video_savebox%,Video Index   F3>video_savebox2%","","")
`Gqualitymenu%=�create_menu("# Audio ,Dolby,Mono,Nicam,Stereo","","")
j7typemenu%=�create_menu("# Type ,Copy,Master","","")
t�mainmenu%=�create_menu("# Video Index ,Info>video_infobox%,Quit#,Clear Record,Print     F1>video_print%,Restart   F8,Save>savemenu%,Search    F4>video_search%","","")
~�make_channelmenu
��
�:
���make_channelmenu
�channeloptions$=""
��� channelmenu1$<>"" � channelmenu2$<>"" � channelmenu3$<>"" � channelmenu4$<>"" � channelmenu5$<>"" � channelmenu6$<>"" � channeloptions$+="#,"
�<� channelmenu1$<>"" � channeloptions$+=channelmenu1$+","
�<� channelmenu2$<>"" � channeloptions$+=channelmenu2$+","
�<� channelmenu3$<>"" � channeloptions$+=channelmenu3$+","
�<� channelmenu4$<>"" � channeloptions$+=channelmenu4$+","
�<� channelmenu5$<>"" � channeloptions$+=channelmenu5$+","
�<� channelmenu6$<>"" � channeloptions$+=channelmenu6$+","
��channelmenu%=�create_menu("#Channel,BBC 1,BBC 2,ITV,Channel 4#,Adult Channel,Eurosport,Movies +,Movie Channel,Movies Gold,MTV,Sky News,Sky One,Sky Sports,UK Gold"+channeloptions$,"","")
�

:
��get_todays_date
?q%=1:ș "OS_Word",14,q%
(day%=�(��~(q%?2),2))
2month%=�(��~(q%?1),2))
<year%=�(��~(?q%),2))
F
Ȏ day% �
P� 1
ZȎ (month%-1) �
d� 1,3,5,7,8,10
n(day1$="26/"+�(month%-1)+"/"+�(year%)
x(day2$="27/"+�(month%-1)+"/"+�(year%)
�(day3$="28/"+�(month%-1)+"/"+�(year%)
�(day4$="29/"+�(month%-1)+"/"+�(year%)
�(day5$="30/"+�(month%-1)+"/"+�(year%)
�(day6$="31/"+�(month%-1)+"/"+�(year%)
�%day7$="1/"+�(month%)+"/"+�(year%)
�� 4,6,9,11
�(day1$="25/"+�(month%-1)+"/"+�(year%)
�(day2$="26/"+�(month%-1)+"/"+�(year%)
�(day3$="27/"+�(month%-1)+"/"+�(year%)
�(day4$="28/"+�(month%-1)+"/"+�(year%)
�(day5$="29/"+�(month%-1)+"/"+�(year%)
�(day6$="30/"+�(month%-1)+"/"+�(year%)
�%day7$="1/"+�(month%)+"/"+�(year%)
� 2
(day1$="23/"+�(month%-1)+"/"+�(year%)
(day2$="24/"+�(month%-1)+"/"+�(year%)
"(day3$="25/"+�(month%-1)+"/"+�(year%)
,(day4$="26/"+�(month%-1)+"/"+�(year%)
6(day5$="27/"+�(month%-1)+"/"+�(year%)
@(day6$="28/"+�(month%-1)+"/"+�(year%)
J%day7$="1/"+�(month%)+"/"+�(year%)
T� 0
^day1$="26/12/"+�(year%-1)
hday2$="27/12/"+�(year%-1)
rday3$="28/12/"+�(year%-1)
|day4$="29/12/"+�(year%-1)
�day5$="30/12/"+�(year%-1)
�day6$="31/12/"+�(year%-1)
�%day7$="1/"+�(month%)+"/"+�(year%)
��
�� 2
�Ȏ (month%-1) �
�� 1,3,5,7,8,10
�(day1$="27/"+�(month%-1)+"/"+�(year%)
�(day2$="28/"+�(month%-1)+"/"+�(year%)
�(day3$="29/"+�(month%-1)+"/"+�(year%)
�(day4$="30/"+�(month%-1)+"/"+�(year%)
�(day5$="31/"+�(month%-1)+"/"+�(year%)
�%day6$="1/"+�(month%)+"/"+�(year%)
%day7$="2/"+�(month%)+"/"+�(year%)
� 4,6,9,11
(day1$="26/"+�(month%-1)+"/"+�(year%)
&(day2$="27/"+�(month%-1)+"/"+�(year%)
0(day3$="28/"+�(month%-1)+"/"+�(year%)
:(day4$="29/"+�(month%-1)+"/"+�(year%)
D(day5$="30/"+�(month%-1)+"/"+�(year%)
N%day6$="1/"+�(month%)+"/"+�(year%)
X%day7$="2/"+�(month%)+"/"+�(year%)
b� 2
l(day1$="24/"+�(month%-1)+"/"+�(year%)
v(day2$="25/"+�(month%-1)+"/"+�(year%)
�(day3$="26/"+�(month%-1)+"/"+�(year%)
�(day4$="27/"+�(month%-1)+"/"+�(year%)
�(day5$="28/"+�(month%-1)+"/"+�(year%)
�%day6$="1/"+�(month%)+"/"+�(year%)
�%day7$="2/"+�(month%)+"/"+�(year%)
�� 0
�day1$="27/12/"+�(year%-1)
�day2$="28/12/"+�(year%-1)
�day3$="29/12/"+�(year%-1)
�day4$="30/12/"+�(year%-1)
�day5$="31/12/"+�(year%-1)
�%day6$="1/"+�(month%)+"/"+�(year%)
�%day7$="2/"+�(month%)+"/"+�(year%)
�
� 3
Ȏ (month%-1) �
 � 1,3,5,7,8,10
*(day1$="28/"+�(month%-1)+"/"+�(year%)
4(day2$="29/"+�(month%-1)+"/"+�(year%)
>(day3$="30/"+�(month%-1)+"/"+�(year%)
H(day4$="31/"+�(month%-1)+"/"+�(year%)
R%day5$="1/"+�(month%)+"/"+�(year%)
\%day6$="2/"+�(month%)+"/"+�(year%)
f%day7$="3/"+�(month%)+"/"+�(year%)
p� 4,6,9,11
z(day1$="27/"+�(month%-1)+"/"+�(year%)
�(day2$="28/"+�(month%-1)+"/"+�(year%)
�(day3$="29/"+�(month%-1)+"/"+�(year%)
�(day4$="30/"+�(month%-1)+"/"+�(year%)
�%day5$="1/"+�(month%)+"/"+�(year%)
�%day6$="2/"+�(month%)+"/"+�(year%)
�%day7$="3/"+�(month%)+"/"+�(year%)
�� 2
�(day1$="25/"+�(month%-1)+"/"+�(year%)
�(day2$="26/"+�(month%-1)+"/"+�(year%)
�(day3$="27/"+�(month%-1)+"/"+�(year%)
�(day4$="28/"+�(month%-1)+"/"+�(year%)
�%day5$="1/"+�(month%)+"/"+�(year%)
�%day6$="2/"+�(month%)+"/"+�(year%)
	%day7$="3/"+�(month%)+"/"+�(year%)
	� 0
	day1$="28/12/"+�(year%-1)
	$day2$="29/12/"+�(year%-1)
	.day3$="30/12/"+�(year%-1)
	8day4$="31/12/"+�(year%-1)
	B'day5$="1/"+�(month%-1)+"/"+�(year%)
	L'day6$="2/"+�(month%-1)+"/"+�(year%)
	V%day7$="3/"+�(month%)+"/"+�(year%)
	`�
	j� 4
	tȎ (month%-1) �
	~� 1,3,5,7,8,10
	�(day1$="29/"+�(month%-1)+"/"+�(year%)
	�(day2$="30/"+�(month%-1)+"/"+�(year%)
	�(day3$="31/"+�(month%-1)+"/"+�(year%)
	�%day4$="1/"+�(month%)+"/"+�(year%)
	�%day5$="2/"+�(month%)+"/"+�(year%)
	�%day6$="3/"+�(month%)+"/"+�(year%)
	�%day7$="4/"+�(month%)+"/"+�(year%)
	�� 4,6,9,11
	�(day1$="28/"+�(month%-1)+"/"+�(year%)
	�(day2$="29/"+�(month%-1)+"/"+�(year%)
	�(day3$="30/"+�(month%-1)+"/"+�(year%)
	�%day4$="1/"+�(month%)+"/"+�(year%)
%day5$="2/"+�(month%)+"/"+�(year%)

%day6$="3/"+�(month%)+"/"+�(year%)
%day7$="4/"+�(month%)+"/"+�(year%)
� 2
((day1$="26/"+�(month%-1)+"/"+�(year%)
2(day2$="27/"+�(month%-1)+"/"+�(year%)
<(day3$="28/"+�(month%-1)+"/"+�(year%)
F%day4$="1/"+�(month%)+"/"+�(year%)
P%day5$="2/"+�(month%)+"/"+�(year%)
Z%day6$="3/"+�(month%)+"/"+�(year%)
d%day7$="4/"+�(month%)+"/"+�(year%)
n� 0
xday1$="29/12/"+�(year%-1)
�day2$="30/12/"+�(year%-1)
�day3$="31/12/"+�(year%-1)
�%day4$="1/"+�(month%)+"/"+�(year%)
�%day5$="2/"+�(month%)+"/"+�(year%)
�%day6$="3/"+�(month%)+"/"+�(year%)
�%day7$="4/"+�(month%)+"/"+�(year%)
��
�� 5
�Ȏ (month%-1) �
�� 1,3,5,7,8,10
�(day1$="30/"+�(month%-1)+"/"+�(year%)
�(day2$="31/"+�(month%-1)+"/"+�(year%)
�%day3$="1/"+�(month%)+"/"+�(year%)
%day4$="2/"+�(month%)+"/"+�(year%)
%day5$="3/"+�(month%)+"/"+�(year%)
%day6$="4/"+�(month%)+"/"+�(year%)
"%day7$="5/"+�(month%)+"/"+�(year%)
,� 4,6,9,11
6(day1$="29/"+�(month%-1)+"/"+�(year%)
@(day2$="30/"+�(month%-1)+"/"+�(year%)
J%day3$="1/"+�(month%)+"/"+�(year%)
T%day4$="2/"+�(month%)+"/"+�(year%)
^%day5$="3/"+�(month%)+"/"+�(year%)
h%day6$="4/"+�(month%)+"/"+�(year%)
r%day7$="5/"+�(month%)+"/"+�(year%)
|� 2
�(day1$="27/"+�(month%-1)+"/"+�(year%)
�(day2$="28/"+�(month%-1)+"/"+�(year%)
�%day3$="1/"+�(month%)+"/"+�(year%)
�%day4$="2/"+�(month%)+"/"+�(year%)
�%day5$="3/"+�(month%)+"/"+�(year%)
�%day6$="4/"+�(month%)+"/"+�(year%)
�%day7$="5/"+�(month%)+"/"+�(year%)
�� 0
�day1$="30/12/"+�(year%-1)
�day2$="31/12/"+�(year%-1)
�%day3$="1/"+�(month%)+"/"+�(year%)
�%day4$="2/"+�(month%)+"/"+�(year%)
�%day5$="3/"+�(month%)+"/"+�(year%)
%day6$="4/"+�(month%)+"/"+�(year%)
%day7$="5/"+�(month%)+"/"+�(year%)
�
&� 6
0Ȏ (month%-1) �
:� 1,3,5,7,8,10
D(day1$="31/"+�(month%-1)+"/"+�(year%)
N%day2$="1/"+�(month%)+"/"+�(year%)
X%day3$="2/"+�(month%)+"/"+�(year%)
b%day4$="3/"+�(month%)+"/"+�(year%)
l%day5$="4/"+�(month%)+"/"+�(year%)
v%day6$="5/"+�(month%)+"/"+�(year%)
�%day7$="6/"+�(month%)+"/"+�(year%)
�� 4,6,9,11
�(day1$="30/"+�(month%-1)+"/"+�(year%)
�%day2$="1/"+�(month%)+"/"+�(year%)
�%day3$="2/"+�(month%)+"/"+�(year%)
�%day4$="3/"+�(month%)+"/"+�(year%)
�%day5$="4/"+�(month%)+"/"+�(year%)
�%day6$="5/"+�(month%)+"/"+�(year%)
�%day7$="6/"+�(month%)+"/"+�(year%)
�� 2
�(day1$="28/"+�(month%-1)+"/"+�(year%)
�%day2$="1/"+�(month%)+"/"+�(year%)
�%day3$="2/"+�(month%)+"/"+�(year%)

%day4$="3/"+�(month%)+"/"+�(year%)

%day5$="4/"+�(month%)+"/"+�(year%)

%day6$="5/"+�(month%)+"/"+�(year%)

 %day7$="6/"+�(month%)+"/"+�(year%)

*� 0

4day1$="31/12/"+�(year%-1)

>%day2$="1/"+�(month%)+"/"+�(year%)

H%day3$="2/"+�(month%)+"/"+�(year%)

R%day4$="3/"+�(month%)+"/"+�(year%)

\%day5$="4/"+�(month%)+"/"+�(year%)

f%day6$="5/"+�(month%)+"/"+�(year%)

p%day7$="6/"+�(month%)+"/"+�(year%)

z�

�

�.day1$=�(day%-6)+"/"+�(month%)+"/"+�(year%)

�.day2$=�(day%-5)+"/"+�(month%)+"/"+�(year%)

�.day3$=�(day%-4)+"/"+�(month%)+"/"+�(year%)

�.day4$=�(day%-3)+"/"+�(month%)+"/"+�(year%)

�.day5$=�(day%-2)+"/"+�(month%)+"/"+�(year%)

�.day6$=�(day%-1)+"/"+�(month%)+"/"+�(year%)

�,day7$=�(day%)+"/"+�(month%)+"/"+�(year%)

��

��

�:

���pre_poll_error

�� �$+" @ "+�(�)
	� � �
�
:
$��error
.� 3:�#0
8Zș "WimpExt_ControlImmediate",,2,"Message From Video Index",�$,but_okquit%,0 � button%
B� button%<>3 � �
L�
V:
`��open(window%)
jN!q%=window%:ș "Wimp_GetWindowState",,q%:q%!28=-1:ș "Wimp_OpenWindow",,q%
t�
~:
���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 �
�E�open(video_index%):�open(video_backtracks%):�open(video_tracks%)
�C�tracks_move_caret(video_tracks%,1):�move_caret(video_index%,6)
��
�� video_tracks%
4� button%=4 � button%=2 � button%=1 � Ȏ icon% �

$� 91,92,93,94,95,96,97,98,99,100
~ș "Wimp_CreateMenu",,categorymenu%,mousex%-48,mousey%+10:selectmenu%=categorymenu%:selectwindow%=video_tracks%:Ȏ icon% �
� 91:selecticon%=2
(� 92:selecticon%=11
2� 93:selecticon%=20
<� 94:selecticon%=29
F� 95:selecticon%=38
P� 96:selecticon%=47
Z� 97:selecticon%=56
d� 98:selecticon%=65
n� 99:selecticon%=74
x� 100:selecticon%=83
��
�-� 101,102,103,104,105,106,107,108,109,110
�`ș "Wimp_CreateMenu",,channelmenu%,mousex%-48,mousey%+10:selectmenu%=channelmenu%:Ȏ icon% �
�� 101:selecticon%=3
�� 102:selecticon%=12
�� 103:selecticon%=21
�� 104:selecticon%=30
�� 105:selecticon%=39
�� 106:selecticon%=48
�� 107:selecticon%=57
�� 108:selecticon%=66
�� 109:selecticon%=75
�� 110:selecticon%=84
�
-� 111,112,113,114,115,116,117,118,119,120
Zș "Wimp_CreateMenu",,datemenu%,mousex%-48,mousey%+10:selectmenu%=datemenu%:Ȏ icon% �
"� 111:selecticon%=4
,� 112:selecticon%=13
6� 113:selecticon%=22
@� 114:selecticon%=31
J� 115:selecticon%=40
T� 116:selecticon%=49
^� 117:selecticon%=58
h� 118:selecticon%=67
r� 119:selecticon%=76
|� 120:selecticon%=85
��
�-� 121,122,123,124,125,126,127,128,129,130
�`ș "Wimp_CreateMenu",,qualitymenu%,mousex%-48,mousey%+10:selectmenu%=qualitymenu%:Ȏ icon% �
�� 121:selecticon%=5
�� 122:selecticon%=14
�� 123:selecticon%=23
�� 124:selecticon%=32
�� 125:selecticon%=41
�� 126:selecticon%=50
�� 127:selecticon%=59
�� 128:selecticon%=68
�� 129:selecticon%=77
�� 130:selecticon%=86
�
-� 131,132,133,134,135,136,137,138,139,140
fș "Wimp_CreateMenu",,proglengthmenu%,mousex%-48,mousey%+10:selectmenu%=proglengthmenu%:Ȏ icon% �
&� 131:selecticon%=6
0� 132:selecticon%=15
:� 133:selecticon%=24
D� 134:selecticon%=33
N� 135:selecticon%=42
X� 136:selecticon%=51
b� 137:selecticon%=60
l� 138:selecticon%=69
v� 139:selecticon%=78
�� 140:selecticon%=87
��
�-� 141,142,143,144,145,146,147,148,149,150
�Zș "Wimp_CreateMenu",,splpmenu%,mousex%-48,mousey%+10:selectmenu%=splpmenu%:Ȏ icon% �
�� 141:selecticon%=9
�� 142:selecticon%=18
�� 143:selecticon%=27
�� 144:selecticon%=36
�� 145:selecticon%=45
�� 146:selecticon%=54
�� 147:selecticon%=63
�� 148:selecticon%=72
�� 149:selecticon%=81
� 150:selecticon%=90
�
Q:ș "Wimp_CreateMenu",,mainmenu%,mousex%-48,mousey%+10:selectmenu%=mainmenu%
 �
*!� (button% � 5)<>0 Ȏ icon% �
4"� 9,18,27,36,45,54,63,72,81,90
><speed%(icon%/9)+=1:� speed%(icon%/9)>2 speed%(icon%/9)=1
H(�speed_change(icon%,speed%(icon%/9))
R�
\� video_index%
f� button%=2 � Ȏ icon% �
pX� 10:ș "Wimp_CreateMenu",,formatmenu%,mousex%-48,mousey%+10:selectmenu%=formatmenu%
zT� 11:ș "Wimp_CreateMenu",,sizemenu%,mousex%-48,mousey%+10:selectmenu%=sizemenu%
�T� 12:ș "Wimp_CreateMenu",,typemenu%,mousex%-48,mousey%+10:selectmenu%=typemenu%
�Q:ș "Wimp_CreateMenu",,mainmenu%,mousex%-48,mousey%+10:selectmenu%=mainmenu%
��
�!� (button% � 5)<>0 Ȏ icon% �
�'� 16:�close_all:�open(video_print%)
�*� 22:�close_all:�open(video_savebox2%)
�(� 23:�close_all:�open(video_search%)
�7� 18:�read:�read_tracklist:record_number%=1:�update
�9� 17:�read:�read_tracklist:record_number%-=10:�update
�8� 14:�read:�read_tracklist:record_number%-=1:�update
�8� 19:�read:�read_tracklist:record_number%+=1:�update
�9� 20:�read:�read_tracklist:record_number%+=10:�update
�A� 21:�read:�read_tracklist:record_number%=max_record%:�update
X� 10:ș "Wimp_CreateMenu",,formatmenu%,mousex%-48,mousey%+10:selectmenu%=formatmenu%
T� 11:ș "Wimp_CreateMenu",,sizemenu%,mousex%-48,mousey%+10:selectmenu%=sizemenu%
T� 12:ș "Wimp_CreateMenu",,typemenu%,mousex%-48,mousey%+10:selectmenu%=typemenu%
$�
.q� video_backtracks%:� button%=2 � ș "Wimp_CreateMenu",,mainmenu%,mousex%-48,mousey%+10:selectmenu%=mainmenu%
84� video_savebox%:� (button% � 5)<>0 � Ȏ icon% �
B � 0:savetype$="FFF":�dragbox
L"� 2:savetype$="FFF":�quicksave
V� 3:savealltext$="Yes"
`� 4:savealltext$="No"
j�
t5� video_savebox2%:� (button% � 5)<>0 � Ȏ icon% �
~ � 0:savetype$="E91":�dragbox
�"� 2:savetype$="E91":�quicksave
��
�4� video_options%:� (button% � 5)<>0 � Ȏ icon% �
�� 7:outlinefonts%=1
�� 8:outlinefonts%=0
�G� 9:max_record%=50:�update_icon(video_index%,9,"/ "+�(max_record%))
�I� 12:max_record%=100:�update_icon(video_index%,9,"/ "+�(max_record%))
�I� 13:max_record%=150:�update_icon(video_index%,9,"/ "+�(max_record%))
�I� 14:max_record%=200:�update_icon(video_index%,9,"/ "+�(max_record%))
�I� 15:max_record%=250:�update_icon(video_index%,9,"/ "+�(max_record%))
��
�8� video_mainoptions%:� (button% � 5)<>0 � Ȏ icon% �
U� 2:�read_options:�save_options:�close(video_mainoptions%):�close(video_options%)

G� 1:�read_options:�close(video_mainoptions%):�close(video_options%)
�
3� video_search%:� (button% � 5)<>0 � Ȏ icon% �
(� 3:searchtype$="Name"
2� 4:searchtype$="Category"
<*� 5:�clear_search:�search(searchtype$)
FP� 7:�update_icon(video_search%,1,searchstring$):�move_caret(video_search%,1)
P?� 9:� casesense$="Yes" � casesense$="No" � casesense$="Yes"
Z� 10
dlsearchtype$="Category":ș "WimpExt_SetIcon",,,video_search%,3,0:ș "WimpExt_SetIcon",,,video_search%,4,1
n�ș "Wimp_CreateMenu",,categorymenu%,mousex%-48,mousey%+10:selectmenu%=categorymenu%:selecticon%=1:selectwindow%=video_search%
x�
�'� video_found%:� (button% � 5)<>0 �
�bclick_record%=�(�indirect(video_found%,icon%)):� click_record%<>0 � �read:�fill(click_record%)
��
�2� video_print%:� (button% � 5)<>0 � Ȏ icon% �
�� 1:printer$="Draft"
�� 2:printer$="NLQ"
�*� 3:printer$="RISCOS":printwhat$="Vid"
�7� 7:� printer$="RISCOS" � �printer_drivers � �print
�� 9:printwhat$="AT"
�� 11:printwhat$="Vid"
�� 10:printwhat$="All"
�� 14:printall$="Yes"
�� 15:printall$="No"
<� 19:� linefeed$="No" � linefeed$="Yes" � linefeed$="No"
�
2� video_clear%:� (button% � 5)<>0 � Ȏ icon% �
"� 1:�clear_data
,8� 2:�close(video_clear%):ș "WimpExt_ReleasePointer"
6�
@1� video_quit%:� (button% � 5)<>0 � Ȏ icon% �
J� 1:quit%=�
T7� 2:�close(video_quit%):ș "WimpExt_ReleasePointer"
^�
h�
r�
|�
�:
�#��speed_change(icon%,spearray%)
�<�update_icon(video_tracks%,icon%,speedarray$(spearray%))
��
�:
�6��key_pressed(window%,icon%,key_index%,character%)
�Ȏ character% �
�� 13
�Ȏ window% �
�� video_options%:Ȏ icon% �
�%� 3:�move_caret(video_options%,4)
�&� 4:�move_caret(video_options%,11)
�'� 11:�move_caret(video_options%,16)
'� 16:�move_caret(video_options%,17)
'� 17:�move_caret(video_options%,18)
&� 18:�move_caret(video_options%,3)
&�
0� video_savebox%
:7savetype$="FFF":ș "Wimp_CreateMenu",,-1:�quicksave
D� video_savebox2%
N7savetype$="E91":ș "Wimp_CreateMenu",,-1:�quicksave
X� video_print%:Ȏ icon% �
b$� 6:�move_caret(video_print%,12)
l(� 13:ș "Wimp_CreateMenu",,-1:�print
v�
�O� video_search%:ș "Wimp_CreateMenu",,-1:�clear_search:�search(searchtype$)
�7� video_tracks%:ș "Wimp_CreateMenu",,-1:Ȏ icon% �
�� 8,17,26,35,44,53,62,71,80
�C�tracks_move_caret(video_tracks%,icon%+2):�read:�read_tracklist
�B� 89:�tracks_move_caret(video_tracks%,1):�read:�read_tracklist
�E:�tracks_move_caret(video_tracks%,icon%+1):�read:�read_tracklist
��
�6� video_index%:ș "Wimp_CreateMenu",,-1:Ȏ icon% �
�� 5:�number_update
�)� 6:�move_caret(video_index%,7):�read
�)� 7:�move_caret(video_index%,8):�read
�1� 8:�tracks_move_caret(video_tracks%,1):�read
��
�
� 27:�close_all

� &181
 Lș "Wimp_CreateMenu",,-1:�open(video_print%):�move_caret(video_print%,6)
*
� &188
41ș "Wimp_CreateMenu",,-1:�clear_data_question
>
� &183
HRș "Wimp_CreateMenu",,-1:�open(video_savebox2%):�move_caret(video_savebox2%,1)
R
� &184
\cș "Wimp_CreateMenu",,-1:�close(video_found%):�open(video_search%):�move_caret(video_search%,1)
f
� &185
pAș "Wimp_CreateMenu",,-1:�swap_case(window%,icon%,key_index%)
z
� &186
��ș "Wimp_CreateMenu",,-1:Text$=¤read_icon_text(window%,icon%,�),key_index%):�update_icon(window%,icon%,Text$):�_SetCaretPosition(window%,icon%,0)
�
� &187
��ș "Wimp_CreateMenu",,-1:Text$=��read_icon_text(window%,icon%,�),key_index%):�update_icon(window%,icon%,Text$):�read:�read_tracklist
�	� &1E
�@ș "Wimp_CreateMenu",,-1:�tracks_move_caret(video_tracks%,1)
�>:ș "Wimp_CreateMenu",,-1:ș "Wimp_ProcessKey",character%
��
��
�:
���move_caret(window%,icon%)
�1ș "Wimp_SetCaretPosition",window%,icon%,,,-1
��
�:
&��tracks_move_caret(window%,icon%)
/� caretx%,carety%,top%,bottom%,left%,right%
� icon%<1 � icon%=89
$� icon%>89 � icon%=1
.1ș "Wimp_SetCaretPosition",window%,icon%,,,-1
8"ș "Wimp_GetCaretPosition",,q%
Bcaretx%=q%!8:carety%=q%!12
L!q%=video_tracks%
V ș "Wimp_GetWindowState",,q%
`(top%=q%!24:bottom%=top%-(q%!16-q%!8)
j)left%=q%!20:right%=left%+(q%!12-q%!4)
t� (left%-64<caretx%) �
~q%!20=caretx%-8
�ș "Wimp_OpenWindow",,q%
��
�0� icon%=1 � q%!20=0:ș "Wimp_OpenWindow",,q%
��
�:
���menu_select
�� selection%,selection$
�� selection% 255
�3ș "Wimp_DecodeMenu",,selectmenu%,q%,selection%
�selection$=$selection%
�Ȏ selection$ �
�D� day1$:�update_icon(video_tracks%,selecticon%,selection$):�read
D� day2$:�update_icon(video_tracks%,selecticon%,selection$):�read

D� day3$:�update_icon(video_tracks%,selecticon%,selection$):�read
D� day4$:�update_icon(video_tracks%,selecticon%,selection$):�read
D� day5$:�update_icon(video_tracks%,selecticon%,selection$):�read
(D� day6$:�update_icon(video_tracks%,selecticon%,selection$):�read
2D� day7$:�update_icon(video_tracks%,selecticon%,selection$):�read
<I� "American":�update_icon(selectwindow%,selecticon%,selection$):�read
FG� "Comedy":�update_icon(selectwindow%,selecticon%,selection$):�read
PJ� "Game Show":�update_icon(selectwindow%,selecticon%,selection$):�read
ZF� "Drama":�update_icon(selectwindow%,selecticon%,selection$):�read
dE� "Film":�update_icon(selectwindow%,selecticon%,selection$):�read
nH� "Cartoon":�update_icon(selectwindow%,selecticon%,selection$):�read
xE� "News":�update_icon(selectwindow%,selecticon%,selection$):�read
�H� "Weather":�update_icon(selectwindow%,selecticon%,selection$):�read
�F� "Music":�update_icon(selectwindow%,selecticon%,selection$):�read
�I� "Children":�update_icon(selectwindow%,selecticon%,selection$):�read
�C� "SP":�update_icon(video_tracks%,selecticon%,selection$):�read
�C� "LP":�update_icon(video_tracks%,selecticon%,selection$):�read
�>� "Clear":�update_icon(video_tracks%,selecticon%,""):�read
�K� "Soap Opera":�update_icon(selectwindow%,selecticon%,selection$):�read
�F� "Sport":�update_icon(selectwindow%,selecticon%,selection$):�read
�F� "BBC 1":�update_icon(video_tracks%,selecticon%,selection$):�read
�F� "BBC 2":�update_icon(video_tracks%,selecticon%,selection$):�read
�D� "ITV":�update_icon(video_tracks%,selecticon%,selection$):�read
�J� "Channel 4":�update_icon(video_tracks%,selecticon%,selection$):�read
�N� "Movie Channel":�update_icon(video_tracks%,selecticon%,selection$):�read
I� "Movies +":�update_icon(video_tracks%,selecticon%,selection$):�read
L� "Movies Gold":�update_icon(video_tracks%,selecticon%,selection$):�read
H� "Sky One":�update_icon(video_tracks%,selecticon%,selection$):�read
"K� "Sky Sports":�update_icon(video_tracks%,selecticon%,selection$):�read
,I� "Sky News":�update_icon(video_tracks%,selecticon%,selection$):�read
6J� "Eurosport":�update_icon(video_tracks%,selecticon%,selection$):�read
@H� "UK Gold":�update_icon(video_tracks%,selecticon%,selection$):�read
JD� "MTV":�update_icon(video_tracks%,selecticon%,selection$):�read
TL� channelmenu1$:�update_icon(video_tracks%,selecticon%,selection$):�read
^L� channelmenu2$:�update_icon(video_tracks%,selecticon%,selection$):�read
hL� channelmenu3$:�update_icon(video_tracks%,selecticon%,selection$):�read
rL� channelmenu4$:�update_icon(video_tracks%,selecticon%,selection$):�read
|L� channelmenu5$:�update_icon(video_tracks%,selecticon%,selection$):�read
�L� channelmenu6$:�update_icon(video_tracks%,selecticon%,selection$):�read
�N� "Adult Channel":�update_icon(video_tracks%,selecticon%,selection$):�read
�=� "Betamax":�update_icon(video_index%,6,selection$):�read
�9� "VHS":�update_icon(video_index%,6,selection$):�read
�:� "VHSC":�update_icon(video_index%,6,selection$):�read
�?� "Super VHS":�update_icon(video_index%,6,selection$):�read
�=� "Video 8":�update_icon(video_index%,6,selection$):�read
�@� "Video 2000":�update_icon(video_index%,6,selection$):�read
�K� "10 minutes":�update_icon(video_tracks%,selecticon%,selection$):�read
�K� "15 minutes":�update_icon(video_tracks%,selecticon%,selection$):�read
�K� "20 minutes":�update_icon(video_tracks%,selecticon%,selection$):�read
�K� "25 minutes":�update_icon(video_tracks%,selecticon%,selection$):�read
�K� "30 minutes":�update_icon(video_tracks%,selecticon%,selection$):�read
K� "45 minutes":�update_icon(video_tracks%,selecticon%,selection$):�read
K� "50 minutes":�update_icon(video_tracks%,selecticon%,selection$):�read
G� "1 hour":�update_icon(video_tracks%,selecticon%,selection$):�read
&N� "1 hour 30 min":�update_icon(video_tracks%,selecticon%,selection$):�read
0H� "2 hours":�update_icon(video_tracks%,selecticon%,selection$):�read
:@� "60 minutes":�update_icon(video_index%,7,selection$):�read
DA� "120 minutes":�update_icon(video_index%,7,selection$):�read
NA� "180 minutes":�update_icon(video_index%,7,selection$):�read
XA� "240 minutes":�update_icon(video_index%,7,selection$):�read
bF� "Dolby":�update_icon(video_tracks%,selecticon%,selection$):�read
lE� "Mono":�update_icon(video_tracks%,selecticon%,selection$):�read
vF� "Nicam":�update_icon(video_tracks%,selecticon%,selection$):�read
�G� "Stereo":�update_icon(video_tracks%,selecticon%,selection$):�read
�:� "Copy":�update_icon(video_index%,8,selection$):�read
�<� "Master":�update_icon(video_index%,8,selection$):�read
�"� "Clear Record":�clear_single
�B� "Options...":�open(video_mainoptions%):�open(video_options%)
�)� "Restart   F8":�clear_data_question
�� "Quit":�quit_check
��
� ș "Wimp_GetPointerInfo",,q%
�0� q%!8=1 � ș "Wimp_CreateMenu",,selectmenu%
��
�:
���receive(q%)
Ȏ q%!16 �
� 0:�quit_check
� 2:�datasave
 @� 3,5:� q%!12=0 � q%!40=&E91 � �load_acknowledge:�ok_to_load
*� 4:�load_acknowledge
4� &502:�help(�help_text)
>� 9,&400C1:�get_mode_info
H� &400C2:�check_new_task
R�
\�
f:
p��check_new_task
z-newtaskid%=q%!4:taskname$=�string0(q%+28)
�=� taskname$="Video Index" � newtaskid%<>handle% � quit%=�
��
�:
�&ݤ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
8$menuptr%+=28:maxx%=�menutitle$-2
B�
Litem$=�par(",")
V� item$="++" �
`r%=0
jmenu$=menu2$
t�
~� item$="+++" �
�r%=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
2r%=�text$,">")
<� r%>0 �
Fsubptr%=��text$,r%+1)
Ptext$=�text$,r%-1)
Z�
drr%=�text$,"}")
n
� rr%>0 �
xsubptr%=��text$,rr%+1)
�text$=�text,rr%-1)
�flag%+=&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)
6�
@rrrr%=�text$,"�")
JȎ rrrr% �
T� 0:mbg%=7<<24
^
h(mbg%=(�(�text$,rrrr%+1,2)) � 16)<<24
r)text$=�text$,rrrr%-1)+�text$,rrrr%+3)
|�
��
�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 �
 0$(menuptr%+12)=text$
 :�
 D%R%=�workspace(�text$+1):$R%=text$
 N6menuptr%!12=R%:menuptr%!16=-1:menuptr%!20=�text$+1
 X menuptr%!8=menuptr%!8 � &100
 b�
 l�
 v!� �text$>maxx% � maxx%=�text$
 �menuptr%+=24
 ��
 �:
 �ݤ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_video_index
 �0� format$(250),video_length$(250),type$(250)
!>� name$(250,10),start$(250,10),stop$(250,10),date$(250,10)
!7� category$(250,10),speed$(250,10),channel$(250,10)
!>� length$(250,10),audio$(250,10),speedarray$(2),speed%(10)
! speedarray$()="","SP","LP"
!*8record_number%=1:searchtype$="Name":printer$="Draft"
!45printwhat$="All":searchstring$="":casesense$="No"
!>5savealltext$="Yes":linefeed$="No":printall$="Yes"
!H9ș "Font_FindFont",,"Corpus.Medium",160,160 � corpus%
!R=ș "Font_FindFont",,"Homerton.Medium",160,160 � homerton%
!\�load_options
!f�
!p:
!z��update
!�speed%()=0
!�)� record_number%<1 � record_number%=1
!�=� record_number%>max_record% � record_number%=max_record%
!��fill(record_number%)
!��
!�:
!���fill(record_number%)
!�ș "Hourglass_On"
!�3�update_icon(video_print%,12,�(record_number%))
!�2�update_icon(video_index%,5,�(record_number%))
!�C�tracks_move_caret(video_tracks%,1):�move_caret(video_index%,6)
!�8�update_icon(video_index%,6,format$(record_number%))
!�>�update_icon(video_index%,7,video_length$(record_number%))
"6�update_icon(video_index%,8,type$(record_number%))
"�update_tracks
"ș "Hourglass_Off"
"$�
".:
"8��number_update
"B/record_number%=�(�indirect(video_index%,5))
"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%=video_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("Video Index *")
"�unsaved%=�
"�/record_number%=�(�indirect(video_index%,5))
"�5format$(record_number%)=�indirect(video_index%,6)
#;video_length$(record_number%)=�indirect(video_index%,7)
#
3type$(record_number%)=�indirect(video_index%,8)
#�
#:
#(ݤindirect(!q%,q%!4)
#2ș "Wimp_GetIconState",,q%
#<
=$(q%!28)
#F:
#P	��new
#Zș "Hourglass_On"
#d0�open(video_index%):�open(video_backtracks%)
#n<�open(video_tracks%):�tracks_move_caret(video_tracks%,1)
#x�move_caret(video_index%,6)
#�� I%=1 � max_record%
#�5ș "Hourglass_Percentage",�((I%/max_record%)*100)
#�4format$(I%)="":video_length$(I%)="":type$(I%)=""
#�� subI%=1 � 10
#�=name$(I%,subI%)="":start$(I%,subI%)="":stop$(I%,subI%)=""
#�Adate$(I%,subI%)="":category$(I%,subI%)="":speed$(I%,subI%)=""
#�Bchannel$(I%,subI%)="":length$(I%,subI%)="":audio$(I%,subI%)=""
#�� subI%
#�� I%
#�record_number%=1
#�2�update_icon(video_index%,5,�(record_number%))
#�ș "Hourglass_Off"
#�unsaved%=�
$�
$:
$��load_acknowledge
$"q%!12=q%!8
$,q%!16=4
$6$ș "Wimp_SendMessage",17,q%,q%!4
$@�
$J:
$T��ok_to_load
$^filename$=""
$ha%=0
$rb%=q%?(44+a%)
$|ȕ b%<>0
$�filename$+=�(b%)
$�	a%+=1
$�b%=q%?(44+a%)
$��
$�C�load_data(filename$):�update_icon(video_savebox2%,1,filename$)
$��
$�:
$���load_data(datafile$)
$�ș "Hourglass_On"
$�load_error%=�
$�CH%=�(datafile$)
$�� load_error%=� �
$��#CH%,max_record%
%� I%=1 � max_record%
%1�#CH%,format$(I%),video_length$(I%),type$(I%)
%� subI%=1 � 10
%&:�#CH%,name$(I%,subI%),start$(I%,subI%),stop$(I%,subI%)
%0>�#CH%,date$(I%,subI%),category$(I%,subI%),speed$(I%,subI%)
%:?�#CH%,channel$(I%,subI%),length$(I%,subI%),audio$(I%,subI%)
%D� subI%
%NV� �((I%/max_record%)*100)<>100 � ș "Hourglass_Percentage",�((I%/max_record%)*100)
%X� I%
%b	�#CH%
%l�re_title("Video Index")
%vunsaved%=�
%��close_all
%�E�open(video_index%):�open(video_backtracks%):�open(video_tracks%)
%�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��quicksave
&>=� savetype$="FFF" � fullname$=�indirect(video_savebox%,1)
&H>� savetype$="E91" � fullname$=�indirect(video_savebox2%,1)
&R3� fullname$="" � � 1,"Please insert a filename"
&\L� �fullname$,".")=0 � � 1,"To save, drag the icon to a directory viewer"
&fE� savetype$="E91" � �save_data(fullname$) � �save_text(fullname$)
&p6� savetype$="E91" � � "SetType "+fullname$+" &E91"
&z6� savetype$="FFF" � � "SetType "+fullname$+" Text"
&�@� savetype$="FFF" � �update_icon(video_savebox%,1,fullname$)
&�A� savetype$="E91" � �update_icon(video_savebox2%,1,fullname$)
&�K�re_title("Video Index"):�close(video_savebox%):�close(video_savebox2%)
&�unsaved%=�
&�ș "Wimp_CreateMenu",,-1
&��
&�:
&���initiate_save(fname$)
&� ș "Wimp_GetPointerInfo",,q%
&�� q%!12=video_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$="E91" � q%!40=&E91 � q%!40=&FFF
'!$(q%+44)=�get_leaf(fname$)+�0
'$%ș "Wimp_SendMessage",17,q%,q%!20
'.�
'8:
'Bݤget_leaf(fname$)
'Lȕ �fname$,".")
'V"fname$=�fname$,�fname$,".")+1)
'`�
'j=fname$+�0
't:
'~��datasave
'�fullname$=�string(q%+44)
'�Ȏ savetype$ �
'�� "E91"
'��save_data(fullname$)
'�q%!12=q%!8:q%!16=3
'�$ș "Wimp_SendMessage",17,q%,q%!4
'�&� "SetType "+fullname$+" VideoIdx"
'�ș "Wimp_CreateMenu",,-1
'��re_title("Video Index")
'�\�close(video_savebox2%):�tracks_move_caret(video_tracks%,1):�move_caret(video_index%,12)
'�unsaved%=�
'�-�update_icon(video_savebox2%,1,fullname$)
(� "FFF"
(
�save_text(fullname$)
(q%!12=q%!8:q%!16=3
($ș "Wimp_SendMessage",17,q%,q%!4
(("� "SetType "+fullname$+" Text"
(2ș "Wimp_CreateMenu",,-1
(<[�close(video_savebox%):�tracks_move_caret(video_tracks%,1):�move_caret(video_index%,12)
(F,�update_icon(video_savebox%,1,fullname$)
(P�
(Z�
(d:
(nݤstring(a%)
(x� 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%
)1�#CH%,format$(I%),video_length$(I%),type$(I%)
)� subI%=1 � 10
)":�#CH%,name$(I%,subI%),start$(I%,subI%),stop$(I%,subI%)
),>�#CH%,date$(I%,subI%),category$(I%,subI%),speed$(I%,subI%)
)6?�#CH%,channel$(I%,subI%),length$(I%,subI%),audio$(I%,subI%)
)@� subI%
)JV� �((I%/max_record%)*100)<>100 � ș "Hourglass_Percentage",�((I%/max_record%)*100)
)T� I%
)^	�#CH%
)hș "Hourglass_Off"
)r�
)|:
)���save_text(fullname$)
)�ș "Hourglass_On"
)�Ȏ savealltext$ �
)�� "Yes"
)�CH%=�fullname$
)�� I%=1 � max_record%
)�U� video_length$(I%)<>"" � format$(I%)<>"" � type$(I%)<>"" � �save_record_text(I%)
)�V� �((I%/max_record%)*100)<>100 � ș "Hourglass_Percentage",�((I%/max_record%)*100)
)�� I%
)�	�#CH%
)�
� "No"
)�Kfrom%=�(�indirect(video_savebox%,5)):to%=�(�indirect(video_savebox%,6))
)�V� from%<1 � to%>max_record% � � 1,"Enter values between 1 and "+�(max_record%)+"."
*CH%=�fullname$
*� I%=from% � to%
*U� video_length$(I%)<>"" � format$(I%)<>"" � type$(I%)<>"" � �save_record_text(I%)
*&V� �((I%/max_record%)*100)<>100 � ș "Hourglass_Percentage",�((I%/max_record%)*100)
*0� I%
*:	�#CH%
*D�
*Nș "Hourglass_Off"
*X�
*b:
*l��save_record_text(I%)
*v�#CH%,"Number: "+�(I%)
*���#CH%,"Format: "+format$(I%)+�15-�(format$(I%))," ")+"   Type: "+type$(I%)+�15-�(type$(I%))," ")+"Length: "+video_length$(I%)+�15-�(video_length$(I%))," ")
*�
�#CH%," "
*���#CH%,"Name:"+�22," ")+"Category:"+�4," ")+"Channel:"+�7," ")+"Date:"+�5," ")+"Audio"+�5," ")+"Length:"+�9," ")+"Start:"+�2," ")+"Stop:"+�3," ")+"Speed:"
*�� subI%=1 � 10
*�Ia=�(name$(I%,subI%)):b=�(category$(I%,subI%)):c=�(channel$(I%,subI%))
*�Ed=�(date$(I%,subI%)):e=�(audio$(I%,subI%)):f=�(length$(I%,subI%))
*�Dg=�(start$(I%,subI%)):h=�(stop$(I%,subI%)):i=�(speed$(I%,subI%))
*Ƃhalfstring$=name$(I%,subI%)+�27-a," ")+category$(I%,subI%)+�13-b," ")+channel$(I%,subI%)+�15-c," ")+date$(I%,subI%)+�10-d," ")
*Мstringtosave$=halfstring$+audio$(I%,subI%)+�10-e," ")+length$(I%,subI%)+�16-f," ")+start$(I%,subI%)+�8-g," ")+stop$(I%,subI%)+�8-h," ")+speed$(I%,subI%)
*�Z� (a<>0 � b<>0 � c<>0 � d<>0 � e<>0 � f<>0 � g<>0 � h<>0 � i<>0) � �#CH%,stringtosave$
*�� subI%
*�
�#CH%," "
*�}�#CH%,"-----------------------------------------------------------------------------------------------------------------"
+
�#CH%," "
+�
+:
+ ��print
+*U�update_icon(video_wait%,0,"Printing In Progress Please Wait"):�open(video_wait%)
+4�redraw_window(video_wait%)
+>ș "Hourglass_On"
+H(copies%=�(�indirect(video_print%,6))
+Ru� copies%=0 � ș "Hourglass_Off":ș "Wimp_CreateMenu",,-1:� 1,"Set number of copies to a value greater than 0.":�
+\Ȏ printer$ �
+f
� "Draft"
+p copy=0:� 2:� 1,27,1,120,1,48
+z�
+�Ȏ printwhat$ �
+�� "AT":�print_list
+�� "All":�print_table
+�� "Vid":�print_label
+��
+�copy+=1:� copy=copies%
+�� 3
+�� "NLQ"
+� copy=0:� 2:� 1,27,1,120,1,49
+��
+�Ȏ printwhat$ �
+�� "AT":�print_list
+�� "All":�print_table
,� "Vid":�print_label
,�
,copy+=1:� copy=copies%
,$� 1,27,1,120,1,48
,.� 3
,8�
,Bș "Hourglass_Off"
,Lș "Wimp_CreateMenu",,-1
,V,�close(video_wait%):�close(video_print%)
,`�
,j:
,t��print_label
,~(� linefeed$="Yes" � vdu%=10 � vdu%=0
,�/inlay_number%=�(�indirect(video_print%,12))
,�
� 1,15
,�-�0);"Number: "+�(inlay_number%):� 1,vdu%
,�Y�0);"Format: "+format$(inlay_number%);�25);"   Type: "+type$(inlay_number%):� 1,vdu%
,�>�0);"Length: "+video_length$(inlay_number%);�25):� 1,vdu%
,�O�0);"1)";name$(inlay_number%,1);�28);" 6)";name$(inlay_number%,6):� 1,vdu%
,�O�0);"2)";name$(inlay_number%,2);�28);" 7)";name$(inlay_number%,7):� 1,vdu%
,�O�0);"3)";name$(inlay_number%,3);�28);" 8)";name$(inlay_number%,8):� 1,vdu%
,�O�0);"4)";name$(inlay_number%,4);�28);" 9)";name$(inlay_number%,9):� 1,vdu%
,�P�0);"5)";name$(inlay_number%,5);�28);"10)";name$(inlay_number%,10):� 1,vdu%
,�
� 1,18
,�
� 1,12
-�
-
:
-��print_list
-needsprinting%=0
-((� linefeed$="Yes" � vdu%=10 � vdu%=0
-2� printall$="No" �
-<Ifrom%=�(�indirect(video_print%,16)):to%=�(�indirect(video_print%,17))
-FV� from%<1 � to%>max_record% � � 1,"Enter values between 1 and "+�(max_record%)+"."
-P�
-Z/� printall$="Yes" � from%=1:to%=max_record%
-d� I%=from% � to%
-nA� format$(I%)<>"" � video_length$(I%)<>"" � needsprinting%+=1
-x� I%
-�csubitem%=0:printed%=0:� needsprinting%=0 � � 3:�close(video_wait%):� 1,"No records to print.":�
-�� I%=from% � to%
-�/� format$(I%)<>"" � video_length$(I%)<>"" �
-�subitem%+=1:printed%+=1
-�� 1,27,1,71
-�� 1,27,1,80
-�#� �0);"Number: "+�(I%):� 1,vdu%
-�l� �0);"Format: "+format$(I%);�30);" Type: "+type$(I%);�50);"   Length: "+video_length$(I%);�30):� 1,vdu%
-�� 1,27,1,72
-�� 1,27,1,80
-���80,"-"):� 1,vdu%
-��
-�%� subitem%=20 � subitem%=0:� 1,12
.� 3
.h� �((printed%/needsprinting%)*100)<>100 � ș "Hourglass_Percentage",�((printed%/needsprinting%)*100)
.� 2
."� I%
.,
� 1,12
.6�
.@:
.J��print_table
.Tneedsprinting%=0
.^(� linefeed$="Yes" � vdu%=10 � vdu%=0
.h� printall$="No" �
.rIfrom%=�(�indirect(video_print%,16)):to%=�(�indirect(video_print%,17))
.|V� from%<1 � to%>max_record% � � 1,"Enter values between 1 and "+�(max_record%)+"."
.��
.�/� printall$="Yes" � from%=1:to%=max_record%
.�� I%=from% � to%
.�A� format$(I%)<>"" � video_length$(I%)<>"" � needsprinting%+=1
.�� I%
.�csubitem%=0:printed%=0:� needsprinting%=0 � � 3:�close(video_wait%):� 1,"No records to print.":�
.�� I%=from% � to%
.�/� format$(I%)<>"" � video_length$(I%)<>"" �
.�subitem%+=1:printed%+=1
.�� 1,27,1,71
.�� 1,27,1,80
.�"�0);"Number: "+�(I%):� 1,vdu%
.�subitem%+=1
/g�0);"Format: "+format$(I%);�30);"Type: "+type$(I%);�50);"Length: "+video_length$(I%);�30):� 1,vdu%
/subitem%+=2
/� 1,27,1,72
/&� 1,27,1,103
/0��:� 1,vdu%:�"Name:"+�22," ")+"Category:"+�4," ")+"Channel:"+�7," ")+"Date:"+�5," ")+"Audio"+�5," ")+"Length:"+�9," ")+"Start:"+�2," ")+"Stop:"+�3," ")+"Speed:":� 1,vdu%
/:� subI%=1 � 10
/DIa=�(name$(I%,subI%)):b=�(category$(I%,subI%)):c=�(channel$(I%,subI%))
/NEd=�(date$(I%,subI%)):e=�(audio$(I%,subI%)):f=�(length$(I%,subI%))
/XDg=�(start$(I%,subI%)):h=�(stop$(I%,subI%)):i=�(speed$(I%,subI%))
/b�halfstring$=name$(I%,subI%)+�27-a," ")+category$(I%,subI%)+�13-b," ")+channel$(I%,subI%)+�15-c," ")+date$(I%,subI%)+�10-d," ")
/l�stringtosave$=halfstring$+audio$(I%,subI%)+�10-e," ")+length$(I%,subI%)+�16-f," ")+start$(I%,subI%)+�8-g," ")+stop$(I%,subI%)+�8-h," ")+speed$(I%,subI%)
/vk� (a<>0 � b<>0 � c<>0 � d<>0 � e<>0 � f<>0 � g<>0 � h<>0 � i<>0) � � stringtosave$:� 1,vdu%:subitem%+=1
/�� subI%
/�� 1,27,1,80
/�"subitem%+=1:��80,"-"):� 1,vdu%
/��
/�%� subitem%>50 � subitem%=0:� 1,12
/�� 3
/�h� �((printed%/needsprinting%)*100)<>100 � ș "Hourglass_Percentage",�((printed%/needsprinting%)*100)
/�� 2
/�� I%
/�
� 1,12
/��
/�:
/���redraw_window(window%)
0!q%=window%
0&ș "Wimp_RedrawWindow",,q% � more%
0ȕ more%
0 ș "WimpExt_Redraw",,q%
0*&ș "Wimp_GetRectangle",,q% � more%
04�
0>�
0H:
0R��announce
0\D�open(video_announce%):ș "WimpExt_LimitPointer",video_announce%
0f(�update_icon(video_announce%,4,ver$)
0p#�redraw_window(video_announce%)
0z'ș "Hourglass_LEDs",1,0:�make_menus
0� ș "Hourglass_LEDs",0,1:�new
0�)ș "Hourglass_LEDs",1,1:�clear_search
0�F� wait%=1 � 25:Ȗ:Ȗ:ș "Hourglass_Percentage",�((wait%/25)*100):�
0��close(video_announce%)
0�ș "WimpExt_ReleasePointer"
0��
0�:
0���clear_data_question
0�� 7
0�5�open(video_clear%):ș "Wimp_SetCaretPosition",-1
0�*ș "WimpExt_LimitPointer",video_clear%
0��
0�:
1��clear_data
1�new
1�update
1$�re_title("Video Index")
1.unsaved%=�
18�close_all
1Bș "WimpExt_ReleasePointer"
1L�
1V:
1`��quit_check
1jȎ unsaved% �
1t� �
1~� 7
1�4�open(video_quit%):ș "Wimp_SetCaretPosition",-1
1�)ș "WimpExt_LimitPointer",video_quit%
1�� �:quit%=�
1��
1��
1�:
1�)��swap_case(window%,icon%,key_index%)
1�6� key_index%<�(�read_icon_text(window%,icon%,�)) �
1�.IconText$=�read_icon_text(window%,icon%,�)
1�*C%=�(�IconText$,key_index%+1,1)) � &DF
1�� C%>=&41 � C%<=&5A �
1�-C$=�(�(�IconText$,key_index%+1,1)) � &20)
2!�IconText$,key_index%+1,1)=C$
2
)�update_icon(window%,icon%,IconText$)
2�
22�_SetCaretPosition(window%,icon%,key_index%+1)
2(�
22�
2<:
2F1��_SetCaretPosition(window%,icon%,key_index%)
2P3IconLength%=�(�read_icon_text(window%,icon%,�))
2Z5� key_index%>IconLength% � key_index%=IconLength%
2d<ș "Wimp_SetCaretPosition",window%,icon%,,,-1,key_index%
2n"ș "Wimp_GetCaretPosition",,q%
2x�
2�:
2�(ݤread_icon_text(window%,icon%,Pad%)
2�
� Result$
2�!q%=window%
2�q%!4=icon%
2�ș "Wimp_GetIconState",,q%
2�� (q%!24 � (1<<8))<>0 �
2�Result$=$(q%!28)
2��
2�Result$=$(q%+28)
2��
2�)� Pad%>0 � =�Result$+�Pad%," "),Pad%)
2�=Result$
3:
3��ms_load(mname$)
3%ș"MessageTrans_FileInfo",,mname$
3"� ms_text%256
3,-ș"OS_Module",6,,,17+�(mname$)�,,ms_desc%
36$(ms_desc%+16)=mname$
3@2ș"MessageTrans_OpenFile",ms_desc%,ms_desc%+16
3J�
3T:
3^��ms_end
3h(ș"XMessageTrans_CloseFile",ms_desc%
3rș"XOS_Module",7,,ms_desc%
3|�
3�:
3�ݤms_0(tag$)
3�=�ms_2(tag$,"","")
3�:
3�ݤms_1(tag$,arg1$)
3�=�ms_2(tag$,arg1$,"")
3�:
3�ݤms_2(tag$,arg1$,arg2$)
3�
�F%,L%
3�Lș"XMessageTrans_Lookup",ms_desc%,tag$,ms_text%,256,arg1$,arg2$�,,,L%;F%
3��F%� 1�L%=0
3�ms_text%?L%=13
3�=$ms_text%
4:
4��help(help$)
4� C%
4&C%=�help$+1
40q%!12=q%!8
4:q%!16=&503
4D$(q%+20)=help$+�0
4N!q%=(24+C%)��3
4X#ș"Wimp_SendMessage",17,q%,q%!4
4b�
4l�
4v:
4�ݤhelp_text
4�� text$
4�text$=""
4�Ȏ q%!32 �
4�� -2:text$=�ms_0("IconBar")
4�'� video_infobox%:text$=�ms_0("Add")
4�� video_index%:Ȏ q%!36 �
4�� 18:text$=�ms_0("First")
4�� 14,19:text$=�ms_0("One")
4�� 20,17:text$=�ms_0("Ten")
4�� 21:text$=�ms_0("Last")
4�� 5:text$=�ms_0("Rec")
4�� 6,7,8:text$=�ms_0("TeMe")
5&� 10:text$=�ms_1("Menu","Formats")
5&� 11:text$=�ms_1("Menu","Lengths")
5$� 12:text$=�ms_1("Menu","Types")
5 :text$=�ms_0("Main")
5*�
54+� video_backtracks%:text$=�ms_0("Main")
5>� video_tracks%:Ȏ q%!36 �
5HA� 141,142,143,144,145,146,147,148,149,150:text$=�ms_0("Type")
5R�� 91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130,131,132,133,134,135,136,137,138,139,140:text$=�ms_0("TeMe")
5\:text$=�ms_0("Text")
5f�
5p � video_savebox2%:Ȏ q%!36 �
5z� 0:text$=�ms_0("Drag")
5�� 1:text$=�ms_0("File")
5�� 2:text$=�ms_0("Save")
5��
5�� video_savebox%:Ȏ q%!36 �
5�� 0:text$=�ms_0("DragT")
5�� 1:text$=�ms_0("FileT")
5�� 2:text$=�ms_0("SaveT")
5��
5�� video_quit%:Ȏ q%!36 �
5�� 1,2:text$=�ms_0("Ques")
5��
5�� video_clear%:Ȏ q%!36 �
5�� 1,2:text$=�ms_0("Ques")
6�
6� video_print%:Ȏ q%!36 �
6#� 1:text$=�ms_1("Qual","draft")
6$1� 2:text$=�ms_1("Qual","near letter quality")
6.5� 3:text$=�ms_1("Qual","RISC OS Printer Drivers")
68� 6:text$=�ms_0("Copy")
6B� 7:text$=�ms_0("Prin")
6L/� 9:text$=�ms_1("PriAll","Video Info Only")
6V-� 10:text$=�ms_1("PriAll","Full Details")
6`,� 11:text$=�ms_1("PriAll","Video Label")
6j� 12:text$=�ms_0("VidN")
6t�
6~� video_search%:Ȏ q%!36 �
6�� 1:text$=�ms_0("SeaText")
6�� 7:text$=�ms_0("SeaPrev")
6�� 5:text$=�ms_0("SearGo")
6�$� 3:text$=�ms_1("SeaTyp","Name")
6�(� 4:text$=�ms_1("SeaTyp","Category")
6��
6�'� video_found%:text$=�ms_0("Found")
6��
6�
=text$
6�:
6���get_mode_info
6�cx%=(�mv(�,11))<<(�mv(�,4))
7cy%=(�mv(�,12))<<(�mv(�,5))
7
�
7:
7ݤmv(mode%,var%)
7(� v%
72.ș "OS_ReadModeVariable",mode%,var% � ,,v%
7<=v%
7F:
7P��clear_search
7Z� icon%:� icon%=0 � 51
7d(�update_icon(video_found%,icon%," ")
7n�
7xK�update_icon(video_found%,1,"could be found in the following records:")
7��
7�:
7���search(field$)
7�ș "Hourglass_On"
7�foundicon%=2:found%=0
7�,searchstring$=�indirect(video_search%,1)
7�b� searchstring$="" � �close(video_search%):ș "Wimp_CreateMenu",,-1:� 1,"Enter search string."
7�.�update_icon(video_found%,0,searchstring$)
7�M� casesense$="No" � Search$=�upper(searchstring$) � Search$=searchstring$
7�Ȏ field$ �
7�� "Name"
7�� number%=1 � max_record%
7�icon_used%=�:sub_number%=1
8:ș "Hourglass_Percentage",�((number%/max_record%)*100)
8� sub%=1 � 10
8Y� casesense$="No" � target$=�upper(name$(number%,sub%)) � target$=name$(number%,sub%)
8"1� b%=1 � � target$:a$=�target$,b%,�(Search$))
8,<� Search$=a$ � �add_to_found(number%,sub_number%):� �D@x
86� b%
8@
� sub%
8J,� icon_used%=� � foundicon%+=1:found%+=1
8T
� number%
8^� "Category"
8h� number%=1 � max_record%
8ricon_used%=�:sub_number%=1
8|:ș "Hourglass_Percentage",�((number%/max_record%)*100)
8�� sub%=1 � 10
8�a� casesense$="No" � target$=�upper(category$(number%,sub%)) � target$=category$(number%,sub%)
8�1� b%=1 � � target$:a$=�target$,b%,�(Search$))
8�<� Search$=a$ � �add_to_found(number%,sub_number%):� �txx
8�� b%
8�
� sub%
8�,� icon_used%=� � foundicon%+=1:found%+=1
8�
� number%
8��
8��close(video_search%)
8�$�update_icon(video_search%,1,"")
8�C�tracks_move_caret(video_tracks%,1):�move_caret(video_index%,5)
8�ș "Wimp_CreateMenu",,-1
9ș "Hourglass_Off"
9� found%<>0 �
9�open(video_found%)
9&�
901� 1,"'"+searchstring$+"' could not be found."
9:�
9D�� found%>50 � � 1,"'"+searchstring$+"' has been found in "+�(found%)+" records. The first 50 occurances are selectable from the 'Records Found' window."
9N�
9X:
9bݤupper(string$)
9l� loop%
9v� �(string$)>0 �
9�� loop% = 1 � �(string$)
9�7� �string$,loop%,1)>="a" � �string$,loop%,1)<="z" �
9�5�string$,loop%,1) = �(�(�string$,loop%,1)) � &DF)
9��
9��
9��
9�=string$
9�:
9�*��add_to_found(foundrecord%,foundsub%)
9�a� foundicon%<52 � �update_icon(video_found%,foundicon%,�(foundrecord%)+" ("+�(foundsub%)+")")
9�sub_number%+=1:icon_used%=�
9��
9�:
:��close_all
:,�close(video_wait%):�close(video_print%)
:.�close(video_search%):�close(video_found%)
: 0�close(video_quit%):ș "Wimp_CreateMenu",,-1
:*/�close(video_clear%):�close(video_infobox%)
:42�close(video_savebox%):�close(video_savebox2%)
:>5�close(video_mainoptions%):�close(video_options%)
:Hș "WimpExt_ReleasePointer"
:R�
:\:
:f��read_tracklist
:p.track_number%=�(�indirect(video_index%,5))
:z� I%=0 � 9
:�?name$(track_number%,I%+1)=�indirect(video_tracks%,1+(I%*9))
:�Ccategory$(track_number%,I%+1)=�indirect(video_tracks%,2+(I%*9))
:�Bchannel$(track_number%,I%+1)=�indirect(video_tracks%,3+(I%*9))
:�?date$(track_number%,I%+1)=�indirect(video_tracks%,4+(I%*9))
:�@audio$(track_number%,I%+1)=�indirect(video_tracks%,5+(I%*9))
:�Alength$(track_number%,I%+1)=�indirect(video_tracks%,6+(I%*9))
:�@start$(track_number%,I%+1)=�indirect(video_tracks%,7+(I%*9))
:�?stop$(track_number%,I%+1)=�indirect(video_tracks%,8+(I%*9))
:�@speed$(track_number%,I%+1)=�indirect(video_tracks%,9+(I%*9))
:�� I%
:��
:�:
:���update_tracks
;ș "Hourglass_On"
;.track_number%=�(�indirect(video_index%,5))
;� I%=0 � 9
;$B�update_icon(video_tracks%,1+(I%*9),name$(track_number%,I%+1))
;.F�update_icon(video_tracks%,2+(I%*9),category$(track_number%,I%+1))
;8E�update_icon(video_tracks%,3+(I%*9),channel$(track_number%,I%+1))
;BB�update_icon(video_tracks%,4+(I%*9),date$(track_number%,I%+1))
;LC�update_icon(video_tracks%,5+(I%*9),audio$(track_number%,I%+1))
;VD�update_icon(video_tracks%,6+(I%*9),length$(track_number%,I%+1))
;`C�update_icon(video_tracks%,7+(I%*9),start$(track_number%,I%+1))
;jB�update_icon(video_tracks%,8+(I%*9),stop$(track_number%,I%+1))
;tC�update_icon(video_tracks%,9+(I%*9),speed$(track_number%,I%+1))
;~� I%
;�ș "Hourglass_Off"
;��
;�:
;�;��update_icon(update_window%,update_icon%,update_text$)
;�(!q%=update_window%:q%!4=update_icon%
;�ș "Wimp_GetIconState",,q%
;�1$(q%!28)=update_text$:q%!36=�(update_text$)+1
;�q%!8=0:q%!12=0
;�ș "Wimp_SetIconState",,q%
;��
;�:
;���clear_single
<
� X=6 � 8
<
#�update_icon(video_index%,X,"")
<�
<� X=0 � 92
<($�update_icon(video_tracks%,X,"")
<2�
<<�read:�read_tracklist
<F�
<P:
<Z��printer_drivers
<dprintwhat$="Vid"
<nq�update_icon(video_wait%,0,"Printing In Progress Please Wait"):�open(video_wait%):�redraw_window(video_wait%)
<x(copies%=�(�indirect(video_print%,6))
<�u� copies%=0 � ș "Hourglass_Off":ș "Wimp_CreateMenu",,-1:� 1,"Set number of copies to a value greater than 0.":�
<�-� trans% 16,rect% 16,plotat% 8,rectin% 16
<�C� ("RMEnsure PDriver 0 ERROR 255 No printer driver installed.")
<�ș "Hourglass_On"
<�
copy=0
<��
<�pf%=�("printer:")
<�)� pf%=0 � � 1,"Printer not available"
<�� �
<�%� � �:� �:�#pf%:�close_all:� �,�$
<�9ș "PDriver_SelectJob",pf%,"Video Index Print" � old%
<�� �
<�U� � �:� �:�close_all:ș "PDriver_AbortJob",pf%:ș "PDriver_SelectJob",old%:� �,�$
=rect%!0=0:rect%!4=0
=rect%!8=1000:rect%!12=850
=!trans%!0=1<<16:trans%!4=0<<16
=""trans%!8=0<<16:trans%!12=1<<16
=,'plotat%!0=1*72000:plotat%!4=9*72000
=6?ș "PDriver_GiveRectangle",0,rect%,trans%,plotat%,&FFFFFF00
=@/ș "PDriver_DrawPage",1,rectin%,0,0 � more%
=Jȕ more%
=T�� printwhat$="All" � � 1,"Unable to print 'Full Details' via RISC OS Printer Drivers, Sorry!!  Use the 'Save Text' option!!"
=^� printwhat$="AT" � � 1,"Unable to print 'Full Details' via RISC OS Printer Drivers, Sorry!!  Use the 'Save Text' option!!"
=h� printwhat$="Vid" �
=r/inlay_number%=�(�indirect(video_print%,12))
=|ș "ColourTrans_SetGCOL",0
=�ȓ 0,0,547,320
=�ȓ 0,0,547,260
=�2ș "ColourTrans_SetFontColours",,&FFFFFF00,0,6
=�ș "Font_SetFont",homerton%
=�;ș "Font_Paint",,"Number: "+�(inlay_number%),&10,20,295
=�Bș "Font_Paint",,"Format: "+format$(inlay_number%),&10,300,295
=�=ș "Font_Paint",,"Type: "+type$(inlay_number%),&10,20,270
=�Hș "Font_Paint",,"Length: "+video_length$(inlay_number%),&10,300,270
=�ș "Font_SetFont",corpus%
=�� I%=1 � 10
=�ș "Font_Paint",,name$(inlay_number%,I%)+(�26-�name$(inlay_number%,I%)," "))+start$(inlay_number%,I%),&10,20,235-((I%-1)*25)
=�� I%
=�.ș "PDriver_GetRectangle",,rectin% � more%
>�
>�
>ș "PDriver_EndJob",pf%
>&� �
>0ș "PDriver_SelectJob",old%
>:� �
>D	�#pf%
>Ncopy+=1:� copy=copies%
>Xș "Hourglass_Off"
>b,�close(video_wait%):�close(video_print%)
>l�
>v:
>���load_options
>�-choices%=�"<Video$Dir>.Resources.Choices"
>�� choices%<>0 �
>��#choices%,outlinefonts%
>��#choices%,max_record%
>��#choices%,channelmenu1$
>��#choices%,channelmenu2$
>��#choices%,channelmenu3$
>��#choices%,channelmenu4$
>��#choices%,channelmenu5$
>��#choices%,channelmenu6$
>��#choices%
>��
?outlinefonts%=0
?max_record%=250
?3channelmenu1$="Bravo":channelmenu2$="Discovery"
? <channelmenu3$="Family Chan.":channelmenu4$="Nickelodeon"
?*1channelmenu5$="UK Living":channelmenu6$="VHI"
?4�
?>)� outlinefonts%=1 � �get_window_fonts
?H�
?R:
?\��save_options
?f-choices%=�"<Video$Dir>.Resources.Choices"
?p�#choices%,outlinefonts%
?z�#choices%,max_record%
?��#choices%,channelmenu1$
?��#choices%,channelmenu2$
?��#choices%,channelmenu3$
?��#choices%,channelmenu4$
?��#choices%,channelmenu5$
?��#choices%,channelmenu6$
?��#choices%
?��
?�:
?���get_window_fonts
?�� f%
?�� fontb% 255
?�� I%=0 � 255:fontb%?I%=0:�
@�
@:
@��alter_no_of_records
@$Ȏ max_record% �
@.� 50
@8�ș "WimpExt_SetIcon",,,video_options%,9,1:ș "WimpExt_SetIcon",,,video_options%,12,0:ș "WimpExt_SetIcon",,,video_options%,13,0:ș "WimpExt_SetIcon",,,video_options%,14,0:ș "WimpExt_SetIcon",,,video_options%,15,0
@B	� 100
@L�ș "WimpExt_SetIcon",,,video_options%,9,0:ș "WimpExt_SetIcon",,,video_options%,12,1:ș "WimpExt_SetIcon",,,video_options%,13,0:ș "WimpExt_SetIcon",,,video_options%,14,0:ș "WimpExt_SetIcon",,,video_options%,15,0
@V	� 150
@`�ș "WimpExt_SetIcon",,,video_options%,9,0:ș "WimpExt_SetIcon",,,video_options%,12,0:ș "WimpExt_SetIcon",,,video_options%,13,1:ș "WimpExt_SetIcon",,,video_options%,14,0:ș "WimpExt_SetIcon",,,video_options%,15,0
@j	� 200
@t�ș "WimpExt_SetIcon",,,video_options%,9,0:ș "WimpExt_SetIcon",,,video_options%,12,0:ș "WimpExt_SetIcon",,,video_options%,13,0:ș "WimpExt_SetIcon",,,video_options%,14,1:ș "WimpExt_SetIcon",,,video_options%,15,0
@~	� 250
@��ș "WimpExt_SetIcon",,,video_options%,9,0:ș "WimpExt_SetIcon",,,video_options%,12,0:ș "WimpExt_SetIcon",,,video_options%,13,0:ș "WimpExt_SetIcon",,,video_options%,14,0:ș "WimpExt_SetIcon",,,video_options%,15,1
@��
@�4�update_icon(video_index%,9,"/ "+�(max_record%))
@��
@�:
@���update_options
@��alter_no_of_records
@�Ȏ outlinefonts% �
@�[� 0:ș "WimpExt_SetIcon",,,video_options%,8,1:ș "WimpExt_SetIcon",,,video_options%,7,0
@�[� 1:ș "WimpExt_SetIcon",,,video_options%,7,1:ș "WimpExt_SetIcon",,,video_options%,8,0
@��
@�0�update_icon(video_options%,3,channelmenu1$)
A0�update_icon(video_options%,4,channelmenu2$)
A
1�update_icon(video_options%,11,channelmenu3$)
A1�update_icon(video_options%,16,channelmenu4$)
A1�update_icon(video_options%,17,channelmenu5$)
A(1�update_icon(video_options%,18,channelmenu6$)
A2�
A<:
AF��read_options
AP-channelmenu1$=�indirect(video_options%,3)
AZ-channelmenu2$=�indirect(video_options%,4)
Ad.channelmenu3$=�indirect(video_options%,11)
An.channelmenu4$=�indirect(video_options%,16)
Ax.channelmenu5$=�indirect(video_options%,17)
A�.channelmenu6$=�indirect(video_options%,18)
A�%channelmenu$="":�make_channelmenu
A��
A�:
A���wimp_close(window%)
A�� window%=video_index% �
A�<!q%=video_index%:ș "WimpExt_CloseLinked",,q%:�close_all
A�6!q%=video_backtracks%:ș "WimpExt_CloseLinked",,q%
A��
A�,!q%=window%:ș "WimpExt_CloseLinked",,q%
A��
A��
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 3b f4 20 56 69  64 65 6f 20 49 6e 64 65  |...;. Video Inde|
00000020  78 20 62 79 20 52 69 63  6b 79 20 44 61 77 73 6f  |x by Ricky Dawso|
00000030  6e 20 28 a9 20 41 72 63  68 69 6d 65 64 65 73 20  |n (. Archimedes |
00000040  57 6f 72 6c 64 20 31 39  39 34 29 0d 00 1e 05 3a  |World 1994)....:|
00000050  0d 00 28 2e ee 20 85 20  c8 99 20 22 48 6f 75 72  |..(.. . .. "Hour|
00000060  67 6c 61 73 73 5f 53 6d  61 73 68 22 3a f2 70 72  |glass_Smash":.pr|
00000070  65 5f 70 6f 6c 6c 5f 65  72 72 6f 72 3a e0 0d 00  |e_poll_error:...|
00000080  32 05 3a 0d 00 3c 15 c8  99 20 22 48 6f 75 72 67  |2.:..<... "Hourg|
00000090  6c 61 73 73 5f 4f 6e 22  0d 00 46 2b c8 99 20 22  |lass_On"..F+.. "|
000000a0  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
000000b0  62 6c 65 22 2c 2d 31 2c  35 20 b8 20 2c 2c 79 65  |ble",-1,5 . ,,ye|
000000c0  69 67 25 0d 00 50 37 e7  20 79 65 69 67 25 3c 32  |ig%..P7. yeig%<2|
000000d0  20 8c 20 73 70 72 69 74  65 24 3d 22 53 70 72 69  | . sprite$="Spri|
000000e0  74 65 73 32 32 22 20 8b  20 73 70 72 69 74 65 24  |tes22" . sprite$|
000000f0  3d 22 53 70 72 69 74 65  73 22 0d 00 5a 47 c8 99  |="Sprites"..ZG..|
00000100  20 22 4f 53 5f 46 69 6c  65 22 2c 31 37 2c 22 3c  | "OS_File",17,"<|
00000110  56 69 64 65 6f 24 44 69  72 3e 2e 52 65 73 6f 75  |Video$Dir>.Resou|
00000120  72 63 65 73 2e 22 2b 73  70 72 69 74 65 24 20 b8  |rces."+sprite$ .|
00000130  20 74 79 70 65 25 2c 2c  2c 2c 6c 65 6e 67 74 68  | type%,,,,length|
00000140  25 0d 00 64 17 de 20 73  70 72 69 74 65 25 20 6c  |%..d.. sprite% l|
00000150  65 6e 67 74 68 25 2b 34  0d 00 6e 16 21 73 70 72  |ength%+4..n.!spr|
00000160  69 74 65 25 3d 6c 65 6e  67 74 68 25 2b 34 0d 00  |ite%=length%+4..|
00000170  78 41 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |xA.. "OS_SpriteO|
00000180  70 22 2c 32 36 36 2c 73  70 72 69 74 65 25 2c 22  |p",266,sprite%,"|
00000190  3c 56 69 64 65 6f 24 44  69 72 3e 2e 52 65 73 6f  |<Video$Dir>.Reso|
000001a0  75 72 63 65 73 2e 22 2b  73 70 72 69 74 65 24 0d  |urces."+sprite$.|
000001b0  00 82 1f de 20 62 75 74  5f 6f 6b 25 20 33 32 2c  |.... but_ok% 32,|
000001c0  62 75 74 5f 6f 6b 71 75  69 74 25 20 33 32 0d 00  |but_okquit% 32..|
000001d0  8c 1d 24 62 75 74 5f 6f  6b 25 3d 22 4f 4b 22 2b  |..$but_ok%="OK"+|
000001e0  bd 30 2b bd 30 2b bd 30  2b bd 30 0d 00 96 28 24  |.0+.0+.0+.0...($|
000001f0  62 75 74 5f 6f 6b 71 75  69 74 25 3d 22 4f 4b 22  |but_okquit%="OK"|
00000200  2b bd 30 2b bd 30 2b bd  30 2b 22 51 75 69 74 22  |+.0+.0+.0+"Quit"|
00000210  2b bd 30 0d 00 a0 3f c8  99 20 22 57 69 6d 70 5f  |+.0...?.. "Wimp_|
00000220  49 6e 69 74 69 61 6c 69  73 65 22 2c 32 30 30 2c  |Initialise",200,|
00000230  26 34 42 35 33 34 31 35  34 2c 22 56 69 64 65 6f  |&4B534154,"Video|
00000240  20 49 6e 64 65 78 22 20  b8 20 2c 68 61 6e 64 6c  | Index" . ,handl|
00000250  65 25 0d 00 aa 32 c8 99  20 22 57 69 6d 70 45 78  |e%...2.. "WimpEx|
00000260  74 5f 49 6e 69 74 69 61  6c 69 73 65 22 2c 37 2c  |t_Initialise",7,|
00000270  68 61 6e 64 6c 65 25 2c  25 31 31 31 2c 73 70 72  |handle%,%111,spr|
00000280  69 74 65 25 0d 00 b4 05  3a 0d 00 be 19 f2 69 6e  |ite%....:.....in|
00000290  69 74 69 61 6c 69 73 65  5f 76 61 72 69 61 62 6c  |itialise_variabl|
000002a0  65 73 0d 00 c8 12 f2 67  65 74 5f 6d 6f 64 65 5f  |es.....get_mode_|
000002b0  69 6e 66 6f 0d 00 d2 2e  f2 6d 73 5f 6c 6f 61 64  |info.....ms_load|
000002c0  28 22 3c 56 69 64 65 6f  24 44 69 72 3e 2e 52 65  |("<Video$Dir>.Re|
000002d0  73 6f 75 72 63 65 73 2e  4d 65 73 73 61 67 65 73  |sources.Messages|
000002e0  22 29 0d 00 dc 13 f2 6c  6f 61 64 5f 74 65 6d 70  |").....load_temp|
000002f0  6c 61 74 65 73 0d 00 e6  0d f2 61 6e 6e 6f 75 6e  |lates.....announ|
00000300  63 65 0d 00 f0 64 21 71  25 3d 76 69 64 65 6f 5f  |ce...d!q%=video_|
00000310  69 6e 64 65 78 25 3a c8  99 20 22 57 69 6d 70 45  |index%:.. "WimpE|
00000320  78 74 5f 43 6c 6f 73 65  4c 69 6e 6b 65 64 22 2c  |xt_CloseLinked",|
00000330  2c 71 25 3a 21 71 25 3d  76 69 64 65 6f 5f 62 61  |,q%:!q%=video_ba|
00000340  63 6b 74 72 61 63 6b 73  25 3a c8 99 20 22 57 69  |cktracks%:.. "Wi|
00000350  6d 70 45 78 74 5f 43 6c  6f 73 65 4c 69 6e 6b 65  |mpExt_CloseLinke|
00000360  64 22 2c 2c 71 25 0d 00  fa 16 c8 99 20 22 48 6f  |d",,q%...... "Ho|
00000370  75 72 67 6c 61 73 73 5f  4f 66 66 22 0d 01 04 05  |urglass_Off"....|
00000380  3a 0d 01 0e 0e ee 20 85  20 f2 65 72 72 6f 72 0d  |:..... . .error.|
00000390  01 18 05 3a 0d 01 22 05  f5 0d 01 2c 22 c8 99 20  |...:.."....,".. |
000003a0  22 58 57 69 6d 70 45 78  74 5f 53 6c 61 62 49 63  |"XWimpExt_SlabIc|
000003b0  6f 6e 22 2c 2c 2c 30 2c  30 2c 30 0d 01 36 18 c8  |on",,,0,0,0..6..|
000003c0  99 20 22 57 69 6d 70 45  78 74 5f 50 72 65 50 6f  |. "WimpExt_PrePo|
000003d0  6c 6c 22 0d 01 40 26 c8  99 20 22 57 69 6d 70 5f  |ll"..@&.. "Wimp_|
000003e0  50 6f 6c 6c 22 2c 31 2c  71 25 20 b8 20 72 65 61  |Poll",1,q% . rea|
000003f0  73 6f 6e 5f 63 6f 64 65  25 0d 01 4a 3e c8 99 20  |son_code%..J>.. |
00000400  22 57 69 6d 70 45 78 74  5f 41 63 74 69 6f 6e 22  |"WimpExt_Action"|
00000410  2c 68 61 6e 64 6c 65 25  2c 71 25 2c 72 65 61 73  |,handle%,q%,reas|
00000420  6f 6e 5f 63 6f 64 65 25  20 b8 20 72 65 61 73 6f  |on_code% . reaso|
00000430  6e 5f 63 6f 64 65 25 0d  01 54 15 c8 8e 20 72 65  |n_code%..T... re|
00000440  61 73 6f 6e 5f 63 6f 64  65 25 20 ca 0d 01 5e 1b  |ason_code% ...^.|
00000450  c9 20 31 3a f2 72 65 64  72 61 77 5f 77 69 6e 64  |. 1:.redraw_wind|
00000460  6f 77 28 21 71 25 29 0d  01 68 23 c9 20 32 3a c8  |ow(!q%)..h#. 2:.|
00000470  99 20 22 57 69 6d 70 45  78 74 5f 4f 70 65 6e 4c  |. "WimpExt_OpenL|
00000480  69 6e 6b 65 64 22 2c 2c  71 25 0d 01 72 18 c9 20  |inked",,q%..r.. |
00000490  33 3a f2 77 69 6d 70 5f  63 6c 6f 73 65 28 21 71  |3:.wimp_close(!q|
000004a0  25 29 0d 01 7c 2f c9 20  36 3a f2 63 68 65 63 6b  |%)..|/. 6:.check|
000004b0  5f 6d 6f 75 73 65 28 21  71 25 2c 71 25 21 34 2c  |_mouse(!q%,q%!4,|
000004c0  71 25 21 38 2c 71 25 21  31 32 2c 71 25 21 31 36  |q%!8,q%!12,q%!16|
000004d0  29 0d 01 86 08 c9 20 37  3a 0d 01 90 12 c8 8e 20  |)..... 7:...... |
000004e0  73 61 76 65 74 79 70 65  24 20 ca 0d 01 9a 37 c9  |savetype$ ....7.|
000004f0  20 22 46 46 46 22 3a f2  69 6e 69 74 69 61 74 65  | "FFF":.initiate|
00000500  5f 73 61 76 65 28 a4 69  6e 64 69 72 65 63 74 28  |_save(.indirect(|
00000510  76 69 64 65 6f 5f 73 61  76 65 62 6f 78 25 2c 31  |video_savebox%,1|
00000520  29 29 0d 01 a4 38 c9 20  22 45 39 31 22 3a f2 69  |))...8. "E91":.i|
00000530  6e 69 74 69 61 74 65 5f  73 61 76 65 28 a4 69 6e  |nitiate_save(.in|
00000540  64 69 72 65 63 74 28 76  69 64 65 6f 5f 73 61 76  |direct(video_sav|
00000550  65 62 6f 78 32 25 2c 31  29 29 0d 01 ae 05 cb 0d  |ebox2%,1))......|
00000560  01 b8 2a c9 20 38 3a f2  6b 65 79 5f 70 72 65 73  |..*. 8:.key_pres|
00000570  73 65 64 28 21 71 25 2c  71 25 21 34 2c 71 25 21  |sed(!q%,q%!4,q%!|
00000580  32 30 2c 71 25 21 32 34  29 0d 01 c2 14 c9 20 39  |20,q%!24)..... 9|
00000590  3a f2 6d 65 6e 75 5f 73  65 6c 65 63 74 0d 01 cc  |:.menu_select...|
000005a0  18 c9 20 31 37 2c 31 38  3a f2 72 65 63 65 69 76  |.. 17,18:.receiv|
000005b0  65 28 71 25 29 0d 01 d6  05 cb 0d 01 e0 0b fd 20  |e(q%).......... |
000005c0  71 75 69 74 25 0d 01 ea  1f c8 99 20 22 57 69 6d  |quit%...... "Wim|
000005d0  70 45 78 74 5f 52 65 6c  65 61 73 65 50 6f 69 6e  |pExt_ReleasePoin|
000005e0  74 65 72 22 0d 01 f4 0b  f2 6d 73 5f 65 6e 64 0d  |ter".....ms_end.|
000005f0  01 fe 1e c8 99 20 22 58  57 69 6d 70 45 78 74 5f  |..... "XWimpExt_|
00000600  53 65 74 50 6f 69 6e 74  65 72 22 2c 30 0d 02 08  |SetPointer",0...|
00000610  20 c8 99 20 22 58 57 69  6d 70 45 78 74 5f 52 65  | .. "XWimpExt_Re|
00000620  6c 65 61 73 65 50 6f 69  6e 74 65 72 22 0d 02 12  |leasePointer"...|
00000630  23 c8 99 20 22 58 57 69  6d 70 45 78 74 5f 43 6c  |#.. "XWimpExt_Cl|
00000640  6f 73 65 44 6f 77 6e 22  2c 68 61 6e 64 6c 65 25  |oseDown",handle%|
00000650  0d 02 1c 17 c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |...... "Wimp_Clo|
00000660  73 65 44 6f 77 6e 22 0d  02 26 3b c8 99 20 22 46  |seDown"..&;.. "F|
00000670  6f 6e 74 5f 4c 6f 73 65  46 6f 6e 74 22 2c 68 6f  |ont_LoseFont",ho|
00000680  6d 65 72 74 6f 6e 25 3a  c8 99 20 22 46 6f 6e 74  |merton%:.. "Font|
00000690  5f 4c 6f 73 65 46 6f 6e  74 22 2c 63 6f 72 70 75  |_LoseFont",corpu|
000006a0  73 25 0d 02 30 07 d9 23  30 0d 02 3a 18 c8 99 20  |s%..0..#0..:... |
000006b0  22 48 6f 75 72 67 6c 61  73 73 5f 53 6d 61 73 68  |"Hourglass_Smash|
000006c0  22 0d 02 44 05 e0 0d 02  4e 05 3a 0d 02 58 1a dd  |"..D....N.:..X..|
000006d0  f2 69 6e 69 74 69 61 6c  69 73 65 5f 76 61 72 69  |.initialise_vari|
000006e0  61 62 6c 65 73 0d 02 62  35 de 20 71 25 20 31 36  |ables..b5. q% 16|
000006f0  33 38 34 2c 6d 65 6e 75  66 72 65 65 25 20 26 31  |384,menufree% &1|
00000700  30 30 30 2c 74 65 6d 70  25 20 38 31 39 32 2c 69  |000,temp% 8192,i|
00000710  6e 64 69 72 25 20 38 31  39 32 0d 02 6c 10 63 75  |ndir% 8192..l.cu|
00000720  72 77 73 25 3d 74 65 6d  70 25 0d 02 76 15 6d 61  |rws%=temp%..v.ma|
00000730  78 77 73 25 3d 74 65 6d  70 25 2b 32 30 34 38 0d  |xws%=temp%+2048.|
00000740  02 80 18 6d 65 6e 75 73  74 61 72 74 25 3d 6d 65  |...menustart%=me|
00000750  6e 75 66 72 65 65 25 0d  02 8a 1c 6d 65 6e 75 65  |nufree%....menue|
00000760  6e 64 25 3d 6d 65 6e 75  66 72 65 65 25 2b 26 31  |nd%=menufree%+&1|
00000770  30 30 30 0d 02 94 0b 6d  65 6e 75 25 3d 30 0d 02  |000....menu%=0..|
00000780  9e 0b 71 75 69 74 25 3d  a3 0d 02 a8 1c 76 65 72  |..quit%=.....ver|
00000790  24 3d 22 33 2e 32 30 20  28 35 20 4a 61 6e 20 31  |$="3.20 (5 Jan 1|
000007a0  39 39 34 29 22 0d 02 b2  1b f2 69 6e 69 74 69 61  |994)".....initia|
000007b0  6c 69 73 65 5f 76 69 64  65 6f 5f 69 6e 64 65 78  |lise_video_index|
000007c0  0d 02 bc 05 e1 0d 02 c6  05 3a 0d 02 d0 14 dd f2  |.........:......|
000007d0  6c 6f 61 64 5f 74 65 6d  70 6c 61 74 65 73 0d 02  |load_templates..|
000007e0  da 3f 21 71 25 3d 30 3a  71 25 21 34 3d 30 3a 71  |.?!q%=0:q%!4=0:q|
000007f0  25 21 38 3d 30 3a 71 25  21 31 32 3d 30 3a 71 25  |%!8=0:q%!12=0:q%|
00000800  21 31 36 3d 30 3a 71 25  21 32 30 3d 30 3a 71 25  |!16=0:q%!20=0:q%|
00000810  21 32 34 3d 30 3a 71 25  21 32 38 3d 30 0d 02 e4  |!24=0:q%!28=0...|
00000820  3b 71 25 21 33 32 3d 30  3a 71 25 21 33 36 3d 30  |;q%!32=0:q%!36=0|
00000830  3a 71 25 21 34 30 3d 30  3a 71 25 21 34 34 3d 30  |:q%!40=0:q%!44=0|
00000840  3a 71 25 21 34 38 3d 30  3a 71 25 21 35 32 3d 30  |:q%!48=0:q%!52=0|
00000850  3a 71 25 21 35 36 3d 30  0d 02 ee 16 c8 8e 20 6f  |:q%!56=0...... o|
00000860  75 74 6c 69 6e 65 66 6f  6e 74 73 25 20 ca 0d 02  |utlinefonts% ...|
00000870  f8 07 c9 20 30 0d 03 02  67 c8 99 20 22 57 69 6d  |... 0...g.. "Wim|
00000880  70 45 78 74 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |pExt_LoadTemplat|
00000890  65 73 22 2c 71 25 2c 71  25 2b 36 30 2c 69 6e 64  |es",q%,q%+60,ind|
000008a0  69 72 25 2c 69 6e 64 69  72 25 2b 38 31 39 32 2c  |ir%,indir%+8192,|
000008b0  2d 31 2c 22 3c 56 69 64  65 6f 24 44 69 72 3e 2e  |-1,"<Video$Dir>.|
000008c0  52 65 73 6f 75 72 63 65  73 2e 54 65 6d 70 6c 61  |Resources.Templa|
000008d0  74 65 73 22 2c 73 70 72  69 74 65 25 0d 03 0c 3a  |tes",sprite%...:|
000008e0  76 69 64 65 6f 5f 71 75  69 74 25 3d 21 71 25 3a  |video_quit%=!q%:|
000008f0  76 69 64 65 6f 5f 63 6c  65 61 72 25 3d 71 25 21  |video_clear%=q%!|
00000900  34 3a 76 69 64 65 6f 5f  61 6e 6e 6f 75 6e 63 65  |4:video_announce|
00000910  25 3d 71 25 21 38 0d 03  16 3e 76 69 64 65 6f 5f  |%=q%!8...>video_|
00000920  73 61 76 65 62 6f 78 25  3d 71 25 21 31 32 3a 76  |savebox%=q%!12:v|
00000930  69 64 65 6f 5f 77 61 69  74 25 3d 71 25 21 31 36  |ideo_wait%=q%!16|
00000940  3a 76 69 64 65 6f 5f 73  65 61 72 63 68 25 3d 71  |:video_search%=q|
00000950  25 21 32 30 0d 03 20 46  76 69 64 65 6f 5f 73 61  |%!20.. Fvideo_sa|
00000960  76 65 62 6f 78 32 25 3d  71 25 21 32 34 3a 76 69  |vebox2%=q%!24:vi|
00000970  64 65 6f 5f 69 6e 66 6f  62 6f 78 25 3d 71 25 21  |deo_infobox%=q%!|
00000980  32 38 3a 76 69 64 65 6f  5f 62 61 63 6b 74 72 61  |28:video_backtra|
00000990  63 6b 73 25 3d 71 25 21  33 32 0d 03 2a 44 76 69  |cks%=q%!32..*Dvi|
000009a0  64 65 6f 5f 6f 70 74 69  6f 6e 73 25 3d 71 25 21  |deo_options%=q%!|
000009b0  33 36 3a 76 69 64 65 6f  5f 6d 61 69 6e 6f 70 74  |36:video_mainopt|
000009c0  69 6f 6e 73 25 3d 71 25  21 34 30 3a 76 69 64 65  |ions%=q%!40:vide|
000009d0  6f 5f 70 72 69 6e 74 25  3d 71 25 21 34 34 0d 03  |o_print%=q%!44..|
000009e0  34 3d 76 69 64 65 6f 5f  69 6e 64 65 78 25 3d 71  |4=video_index%=q|
000009f0  25 21 34 38 3a 76 69 64  65 6f 5f 74 72 61 63 6b  |%!48:video_track|
00000a00  73 25 3d 71 25 21 35 32  3a 76 69 64 65 6f 5f 66  |s%=q%!52:video_f|
00000a10  6f 75 6e 64 25 3d 71 25  21 35 36 0d 03 3e 07 c9  |ound%=q%!56..>..|
00000a20  20 31 0d 03 48 6b c8 99  20 22 57 69 6d 70 45 78  | 1..Hk.. "WimpEx|
00000a30  74 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 73 22  |t_LoadTemplates"|
00000a40  2c 71 25 2c 71 25 2b 36  30 2c 69 6e 64 69 72 25  |,q%,q%+60,indir%|
00000a50  2c 69 6e 64 69 72 25 2b  38 31 39 32 2c 66 6f 6e  |,indir%+8192,fon|
00000a60  74 62 25 2c 22 3c 56 69  64 65 6f 24 44 69 72 3e  |tb%,"<Video$Dir>|
00000a70  2e 52 65 73 6f 75 72 63  65 73 2e 46 6f 6e 74 54  |.Resources.FontT|
00000a80  65 6d 70 73 22 2c 73 70  72 69 74 65 25 0d 03 52  |emps",sprite%..R|
00000a90  3a 76 69 64 65 6f 5f 71  75 69 74 25 3d 21 71 25  |:video_quit%=!q%|
00000aa0  3a 76 69 64 65 6f 5f 63  6c 65 61 72 25 3d 71 25  |:video_clear%=q%|
00000ab0  21 34 3a 76 69 64 65 6f  5f 61 6e 6e 6f 75 6e 63  |!4:video_announc|
00000ac0  65 25 3d 71 25 21 38 0d  03 5c 42 76 69 64 65 6f  |e%=q%!8..\Bvideo|
00000ad0  5f 73 61 76 65 62 6f 78  25 3d 71 25 21 31 32 3a  |_savebox%=q%!12:|
00000ae0  76 69 64 65 6f 5f 73 65  61 72 63 68 25 3d 71 25  |video_search%=q%|
00000af0  21 31 36 3a 76 69 64 65  6f 5f 73 61 76 65 62 6f  |!16:video_savebo|
00000b00  78 32 25 3d 71 25 21 32  30 0d 03 66 46 76 69 64  |x2%=q%!20..fFvid|
00000b10  65 6f 5f 69 6e 66 6f 62  6f 78 25 3d 71 25 21 32  |eo_infobox%=q%!2|
00000b20  34 3a 76 69 64 65 6f 5f  6f 70 74 69 6f 6e 73 25  |4:video_options%|
00000b30  3d 71 25 21 32 38 3a 76  69 64 65 6f 5f 6d 61 69  |=q%!28:video_mai|
00000b40  6e 6f 70 74 69 6f 6e 73  25 3d 71 25 21 33 32 0d  |noptions%=q%!32.|
00000b50  03 70 40 76 69 64 65 6f  5f 70 72 69 6e 74 25 3d  |.p@video_print%=|
00000b60  71 25 21 33 36 3a 76 69  64 65 6f 5f 77 61 69 74  |q%!36:video_wait|
00000b70  25 3d 71 25 21 34 30 3a  76 69 64 65 6f 5f 62 61  |%=q%!40:video_ba|
00000b80  63 6b 74 72 61 63 6b 73  25 3d 71 25 21 34 34 0d  |cktracks%=q%!44.|
00000b90  03 7a 3d 76 69 64 65 6f  5f 69 6e 64 65 78 25 3d  |.z=video_index%=|
00000ba0  71 25 21 34 38 3a 76 69  64 65 6f 5f 74 72 61 63  |q%!48:video_trac|
00000bb0  6b 73 25 3d 71 25 21 35  32 3a 76 69 64 65 6f 5f  |ks%=q%!52:video_|
00000bc0  66 6f 75 6e 64 25 3d 71  25 21 35 36 0d 03 84 05  |found%=q%!56....|
00000bd0  cb 0d 03 8e 3e c8 99 20  22 57 69 6d 70 45 78 74  |....>.. "WimpExt|
00000be0  5f 4c 69 6e 6b 57 69 6e  64 6f 77 73 22 2c 2c 2c  |_LinkWindows",,,|
00000bf0  76 69 64 65 6f 5f 62 61  63 6b 74 72 61 63 6b 73  |video_backtracks|
00000c00  25 2c 76 69 64 65 6f 5f  74 72 61 63 6b 73 25 0d  |%,video_tracks%.|
00000c10  03 98 40 c8 99 20 22 57  69 6d 70 45 78 74 5f 4c  |..@.. "WimpExt_L|
00000c20  69 6e 6b 57 69 6e 64 6f  77 73 22 2c 2c 2c 76 69  |inkWindows",,,vi|
00000c30  64 65 6f 5f 6d 61 69 6e  6f 70 74 69 6f 6e 73 25  |deo_mainoptions%|
00000c40  2c 76 69 64 65 6f 5f 6f  70 74 69 6f 6e 73 25 0d  |,video_options%.|
00000c50  03 a2 27 f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |..'.update_icon(|
00000c60  76 69 64 65 6f 5f 69 6e  66 6f 62 6f 78 25 2c 37  |video_infobox%,7|
00000c70  2c 76 65 72 24 29 0d 03  ac 33 c8 99 20 22 57 69  |,ver$)...3.. "Wi|
00000c80  6d 70 45 78 74 5f 49 63  6f 6e 42 61 72 53 70 72  |mpExt_IconBarSpr|
00000c90  69 74 65 22 2c 2c 2c 2d  31 2c 22 21 56 69 64 65  |ite",,,-1,"!Vide|
00000ca0  6f 49 6e 64 78 22 2c 2c  33 0d 03 b6 13 f2 75 70  |oIndx",,3.....up|
00000cb0  64 61 74 65 5f 6f 70 74  69 6f 6e 73 0d 03 c0 05  |date_options....|
00000cc0  e1 0d 03 ca 05 3a 0d 03  d4 10 dd f2 6d 61 6b 65  |.....:......make|
00000cd0  5f 6d 65 6e 75 73 0d 03  de 18 6d 65 6e 75 66 72  |_menus....menufr|
00000ce0  65 65 25 3d 6d 65 6e 75  73 74 61 72 74 25 0d 03  |ee%=menustart%..|
00000cf0  e8 25 e3 20 6c 6f 6f 70  25 3d 6d 65 6e 75 73 74  |.%. loop%=menust|
00000d00  61 72 74 25 20 b8 20 6d  65 6e 75 65 6e 64 25 20  |art% . menuend% |
00000d10  88 20 34 0d 03 f2 0c 21  6c 6f 6f 70 25 3d 30 0d  |. 4....!loop%=0.|
00000d20  03 fc 05 ed 0d 04 06 14  f2 67 65 74 5f 74 6f 64  |.........get_tod|
00000d30  61 79 73 5f 64 61 74 65  0d 04 10 6e 64 61 74 65  |ays_date...ndate|
00000d40  6d 65 6e 75 25 3d a4 63  72 65 61 74 65 5f 6d 65  |menu%=.create_me|
00000d50  6e 75 28 22 23 20 44 61  74 65 20 2c 22 2b 64 61  |nu("# Date ,"+da|
00000d60  79 31 24 2b 22 2c 22 2b  64 61 79 32 24 2b 22 2c  |y1$+","+day2$+",|
00000d70  22 2b 64 61 79 33 24 2b  22 2c 22 2b 64 61 79 34  |"+day3$+","+day4|
00000d80  24 2b 22 2c 22 2b 64 61  79 35 24 2b 22 2c 22 2b  |$+","+day5$+","+|
00000d90  64 61 79 36 24 2b 22 2c  22 2b 64 61 79 37 24 2c  |day6$+","+day7$,|
00000da0  22 22 2c 22 22 29 0d 04  1a 67 69 63 6f 6e 62 61  |"","")...giconba|
00000db0  72 6d 65 6e 75 25 3d a4  63 72 65 61 74 65 5f 6d  |rmenu%=.create_m|
00000dc0  65 6e 75 28 22 23 20 56  69 64 65 6f 20 49 6e 64  |enu("# Video Ind|
00000dd0  65 78 20 2c 49 6e 66 6f  3e 76 69 64 65 6f 5f 69  |ex ,Info>video_i|
00000de0  6e 66 6f 62 6f 78 25 2c  4f 70 74 69 6f 6e 73 2e  |nfobox%,Options.|
00000df0  2e 2e 2c 52 65 73 74 61  72 74 20 20 20 46 38 23  |..,Restart   F8#|
00000e00  2c 51 75 69 74 22 2c 22  22 2c 22 22 29 0d 04 24  |,Quit","","")..$|
00000e10  5b 66 6f 72 6d 61 74 6d  65 6e 75 25 3d a4 63 72  |[formatmenu%=.cr|
00000e20  65 61 74 65 5f 6d 65 6e  75 28 22 23 46 6f 72 6d  |eate_menu("#Form|
00000e30  61 74 2c 42 65 74 61 6d  61 78 2c 53 75 70 65 72  |at,Betamax,Super|
00000e40  20 56 48 53 2c 56 48 53  2c 56 48 53 43 2c 56 69  | VHS,VHS,VHSC,Vi|
00000e50  64 65 6f 20 38 2c 56 69  64 65 6f 20 32 30 30 30  |deo 8,Video 2000|
00000e60  22 2c 22 22 2c 22 22 29  0d 04 2e 9b 70 72 6f 67  |","","")....prog|
00000e70  6c 65 6e 67 74 68 6d 65  6e 75 25 3d a4 63 72 65  |lengthmenu%=.cre|
00000e80  61 74 65 5f 6d 65 6e 75  28 22 23 4c 65 6e 67 74  |ate_menu("#Lengt|
00000e90  68 2c 31 30 20 6d 69 6e  75 74 65 73 2c 31 35 20  |h,10 minutes,15 |
00000ea0  6d 69 6e 75 74 65 73 2c  32 30 20 6d 69 6e 75 74  |minutes,20 minut|
00000eb0  65 73 2c 32 35 20 6d 69  6e 75 74 65 73 2c 33 30  |es,25 minutes,30|
00000ec0  20 6d 69 6e 75 74 65 73  2c 34 35 20 6d 69 6e 75  | minutes,45 minu|
00000ed0  74 65 73 2c 35 30 20 6d  69 6e 75 74 65 73 2c 31  |tes,50 minutes,1|
00000ee0  20 68 6f 75 72 2c 31 20  68 6f 75 72 20 33 30 20  | hour,1 hour 30 |
00000ef0  6d 69 6e 2c 32 20 68 6f  75 72 73 22 2c 22 22 2c  |min,2 hours","",|
00000f00  22 22 29 0d 04 38 5a 73  69 7a 65 6d 65 6e 75 25  |"")..8Zsizemenu%|
00000f10  3d a4 63 72 65 61 74 65  5f 6d 65 6e 75 28 22 23  |=.create_menu("#|
00000f20  4c 65 6e 67 74 68 2c 36  30 20 6d 69 6e 75 74 65  |Length,60 minute|
00000f30  73 2c 31 32 30 20 6d 69  6e 75 74 65 73 2c 31 38  |s,120 minutes,18|
00000f40  30 20 6d 69 6e 75 74 65  73 2c 32 34 30 20 6d 69  |0 minutes,240 mi|
00000f50  6e 75 74 65 73 22 2c 22  22 2c 22 22 29 0d 04 42  |nutes","","")..B|
00000f60  3e 73 70 6c 70 6d 65 6e  75 25 3d a4 63 72 65 61  |>splpmenu%=.crea|
00000f70  74 65 5f 6d 65 6e 75 28  22 23 20 50 6c 61 79 20  |te_menu("# Play |
00000f80  53 70 65 65 64 20 2c 53  50 2c 4c 50 23 2c 43 6c  |Speed ,SP,LP#,Cl|
00000f90  65 61 72 22 2c 22 22 2c  22 22 29 0d 04 4c 8d 63  |ear","","")..L.c|
00000fa0  61 74 65 67 6f 72 79 6d  65 6e 75 25 3d a4 63 72  |ategorymenu%=.cr|
00000fb0  65 61 74 65 5f 6d 65 6e  75 28 22 23 20 43 61 74  |eate_menu("# Cat|
00000fc0  65 67 6f 72 79 20 2c 41  6d 65 72 69 63 61 6e 2c  |egory ,American,|
00000fd0  43 61 72 74 6f 6f 6e 2c  43 68 69 6c 64 72 65 6e  |Cartoon,Children|
00000fe0  2c 43 6f 6d 65 64 79 2c  44 72 61 6d 61 2c 46 69  |,Comedy,Drama,Fi|
00000ff0  6c 6d 2c 47 61 6d 65 20  53 68 6f 77 2c 4d 75 73  |lm,Game Show,Mus|
00001000  69 63 2c 4e 65 77 73 2c  53 6f 61 70 20 4f 70 65  |ic,News,Soap Ope|
00001010  72 61 2c 53 70 6f 72 74  2c 57 65 61 74 68 65 72  |ra,Sport,Weather|
00001020  22 2c 22 22 2c 22 22 29  0d 04 56 61 73 61 76 65  |","","")..Vasave|
00001030  6d 65 6e 75 25 3d a4 63  72 65 61 74 65 5f 6d 65  |menu%=.create_me|
00001040  6e 75 28 22 23 53 61 76  65 20 61 73 2c 54 65 78  |nu("#Save as,Tex|
00001050  74 3e 76 69 64 65 6f 5f  73 61 76 65 62 6f 78 25  |t>video_savebox%|
00001060  2c 56 69 64 65 6f 20 49  6e 64 65 78 20 20 20 46  |,Video Index   F|
00001070  33 3e 76 69 64 65 6f 5f  73 61 76 65 62 6f 78 32  |3>video_savebox2|
00001080  25 22 2c 22 22 2c 22 22  29 0d 04 60 47 71 75 61  |%","","")..`Gqua|
00001090  6c 69 74 79 6d 65 6e 75  25 3d a4 63 72 65 61 74  |litymenu%=.creat|
000010a0  65 5f 6d 65 6e 75 28 22  23 20 41 75 64 69 6f 20  |e_menu("# Audio |
000010b0  2c 44 6f 6c 62 79 2c 4d  6f 6e 6f 2c 4e 69 63 61  |,Dolby,Mono,Nica|
000010c0  6d 2c 53 74 65 72 65 6f  22 2c 22 22 2c 22 22 29  |m,Stereo","","")|
000010d0  0d 04 6a 37 74 79 70 65  6d 65 6e 75 25 3d a4 63  |..j7typemenu%=.c|
000010e0  72 65 61 74 65 5f 6d 65  6e 75 28 22 23 20 54 79  |reate_menu("# Ty|
000010f0  70 65 20 2c 43 6f 70 79  2c 4d 61 73 74 65 72 22  |pe ,Copy,Master"|
00001100  2c 22 22 2c 22 22 29 0d  04 74 aa 6d 61 69 6e 6d  |,"","")..t.mainm|
00001110  65 6e 75 25 3d a4 63 72  65 61 74 65 5f 6d 65 6e  |enu%=.create_men|
00001120  75 28 22 23 20 56 69 64  65 6f 20 49 6e 64 65 78  |u("# Video Index|
00001130  20 2c 49 6e 66 6f 3e 76  69 64 65 6f 5f 69 6e 66  | ,Info>video_inf|
00001140  6f 62 6f 78 25 2c 51 75  69 74 23 2c 43 6c 65 61  |obox%,Quit#,Clea|
00001150  72 20 52 65 63 6f 72 64  2c 50 72 69 6e 74 20 20  |r Record,Print  |
00001160  20 20 20 46 31 3e 76 69  64 65 6f 5f 70 72 69 6e  |   F1>video_prin|
00001170  74 25 2c 52 65 73 74 61  72 74 20 20 20 46 38 2c  |t%,Restart   F8,|
00001180  53 61 76 65 3e 73 61 76  65 6d 65 6e 75 25 2c 53  |Save>savemenu%,S|
00001190  65 61 72 63 68 20 20 20  20 46 34 3e 76 69 64 65  |earch    F4>vide|
000011a0  6f 5f 73 65 61 72 63 68  25 22 2c 22 22 2c 22 22  |o_search%","",""|
000011b0  29 0d 04 7e 15 f2 6d 61  6b 65 5f 63 68 61 6e 6e  |)..~..make_chann|
000011c0  65 6c 6d 65 6e 75 0d 04  88 05 e1 0d 04 92 05 3a  |elmenu.........:|
000011d0  0d 04 9c 16 dd f2 6d 61  6b 65 5f 63 68 61 6e 6e  |......make_chann|
000011e0  65 6c 6d 65 6e 75 0d 04  a6 16 63 68 61 6e 6e 65  |elmenu....channe|
000011f0  6c 6f 70 74 69 6f 6e 73  24 3d 22 22 0d 04 b0 93  |loptions$=""....|
00001200  e7 20 63 68 61 6e 6e 65  6c 6d 65 6e 75 31 24 3c  |. channelmenu1$<|
00001210  3e 22 22 20 84 20 63 68  61 6e 6e 65 6c 6d 65 6e  |>"" . channelmen|
00001220  75 32 24 3c 3e 22 22 20  84 20 63 68 61 6e 6e 65  |u2$<>"" . channe|
00001230  6c 6d 65 6e 75 33 24 3c  3e 22 22 20 84 20 63 68  |lmenu3$<>"" . ch|
00001240  61 6e 6e 65 6c 6d 65 6e  75 34 24 3c 3e 22 22 20  |annelmenu4$<>"" |
00001250  84 20 63 68 61 6e 6e 65  6c 6d 65 6e 75 35 24 3c  |. channelmenu5$<|
00001260  3e 22 22 20 84 20 63 68  61 6e 6e 65 6c 6d 65 6e  |>"" . channelmen|
00001270  75 36 24 3c 3e 22 22 20  8c 20 63 68 61 6e 6e 65  |u6$<>"" . channe|
00001280  6c 6f 70 74 69 6f 6e 73  24 2b 3d 22 23 2c 22 0d  |loptions$+="#,".|
00001290  04 ba 3c e7 20 63 68 61  6e 6e 65 6c 6d 65 6e 75  |..<. channelmenu|
000012a0  31 24 3c 3e 22 22 20 8c  20 63 68 61 6e 6e 65 6c  |1$<>"" . channel|
000012b0  6f 70 74 69 6f 6e 73 24  2b 3d 63 68 61 6e 6e 65  |options$+=channe|
000012c0  6c 6d 65 6e 75 31 24 2b  22 2c 22 0d 04 c4 3c e7  |lmenu1$+","...<.|
000012d0  20 63 68 61 6e 6e 65 6c  6d 65 6e 75 32 24 3c 3e  | channelmenu2$<>|
000012e0  22 22 20 8c 20 63 68 61  6e 6e 65 6c 6f 70 74 69  |"" . channelopti|
000012f0  6f 6e 73 24 2b 3d 63 68  61 6e 6e 65 6c 6d 65 6e  |ons$+=channelmen|
00001300  75 32 24 2b 22 2c 22 0d  04 ce 3c e7 20 63 68 61  |u2$+","...<. cha|
00001310  6e 6e 65 6c 6d 65 6e 75  33 24 3c 3e 22 22 20 8c  |nnelmenu3$<>"" .|
00001320  20 63 68 61 6e 6e 65 6c  6f 70 74 69 6f 6e 73 24  | channeloptions$|
00001330  2b 3d 63 68 61 6e 6e 65  6c 6d 65 6e 75 33 24 2b  |+=channelmenu3$+|
00001340  22 2c 22 0d 04 d8 3c e7  20 63 68 61 6e 6e 65 6c  |","...<. channel|
00001350  6d 65 6e 75 34 24 3c 3e  22 22 20 8c 20 63 68 61  |menu4$<>"" . cha|
00001360  6e 6e 65 6c 6f 70 74 69  6f 6e 73 24 2b 3d 63 68  |nneloptions$+=ch|
00001370  61 6e 6e 65 6c 6d 65 6e  75 34 24 2b 22 2c 22 0d  |annelmenu4$+",".|
00001380  04 e2 3c e7 20 63 68 61  6e 6e 65 6c 6d 65 6e 75  |..<. channelmenu|
00001390  35 24 3c 3e 22 22 20 8c  20 63 68 61 6e 6e 65 6c  |5$<>"" . channel|
000013a0  6f 70 74 69 6f 6e 73 24  2b 3d 63 68 61 6e 6e 65  |options$+=channe|
000013b0  6c 6d 65 6e 75 35 24 2b  22 2c 22 0d 04 ec 3c e7  |lmenu5$+","...<.|
000013c0  20 63 68 61 6e 6e 65 6c  6d 65 6e 75 36 24 3c 3e  | channelmenu6$<>|
000013d0  22 22 20 8c 20 63 68 61  6e 6e 65 6c 6f 70 74 69  |"" . channelopti|
000013e0  6f 6e 73 24 2b 3d 63 68  61 6e 6e 65 6c 6d 65 6e  |ons$+=channelmen|
000013f0  75 36 24 2b 22 2c 22 0d  04 f6 bd 63 68 61 6e 6e  |u6$+","....chann|
00001400  65 6c 6d 65 6e 75 25 3d  a4 63 72 65 61 74 65 5f  |elmenu%=.create_|
00001410  6d 65 6e 75 28 22 23 43  68 61 6e 6e 65 6c 2c 42  |menu("#Channel,B|
00001420  42 43 20 31 2c 42 42 43  20 32 2c 49 54 56 2c 43  |BC 1,BBC 2,ITV,C|
00001430  68 61 6e 6e 65 6c 20 34  23 2c 41 64 75 6c 74 20  |hannel 4#,Adult |
00001440  43 68 61 6e 6e 65 6c 2c  45 75 72 6f 73 70 6f 72  |Channel,Eurospor|
00001450  74 2c 4d 6f 76 69 65 73  20 2b 2c 4d 6f 76 69 65  |t,Movies +,Movie|
00001460  20 43 68 61 6e 6e 65 6c  2c 4d 6f 76 69 65 73 20  | Channel,Movies |
00001470  47 6f 6c 64 2c 4d 54 56  2c 53 6b 79 20 4e 65 77  |Gold,MTV,Sky New|
00001480  73 2c 53 6b 79 20 4f 6e  65 2c 53 6b 79 20 53 70  |s,Sky One,Sky Sp|
00001490  6f 72 74 73 2c 55 4b 20  47 6f 6c 64 22 2b 63 68  |orts,UK Gold"+ch|
000014a0  61 6e 6e 65 6c 6f 70 74  69 6f 6e 73 24 2c 22 22  |anneloptions$,""|
000014b0  2c 22 22 29 0d 05 00 05  e1 0d 05 0a 05 3a 0d 05  |,"").........:..|
000014c0  14 15 dd f2 67 65 74 5f  74 6f 64 61 79 73 5f 64  |....get_todays_d|
000014d0  61 74 65 0d 05 1e 1c 3f  71 25 3d 31 3a c8 99 20  |ate....?q%=1:.. |
000014e0  22 4f 53 5f 57 6f 72 64  22 2c 31 34 2c 71 25 0d  |"OS_Word",14,q%.|
000014f0  05 28 18 64 61 79 25 3d  bb 28 c2 c3 7e 28 71 25  |.(.day%=.(..~(q%|
00001500  3f 32 29 2c 32 29 29 0d  05 32 1a 6d 6f 6e 74 68  |?2),2))..2.month|
00001510  25 3d bb 28 c2 c3 7e 28  71 25 3f 31 29 2c 32 29  |%=.(..~(q%?1),2)|
00001520  29 0d 05 3c 18 79 65 61  72 25 3d bb 28 c2 c3 7e  |)..<.year%=.(..~|
00001530  28 3f 71 25 29 2c 32 29  29 0d 05 46 0d c8 8e 20  |(?q%),2))..F... |
00001540  64 61 79 25 20 ca 0d 05  50 07 c9 20 31 0d 05 5a  |day% ...P.. 1..Z|
00001550  13 c8 8e 20 28 6d 6f 6e  74 68 25 2d 31 29 20 ca  |... (month%-1) .|
00001560  0d 05 64 12 c9 20 31 2c  33 2c 35 2c 37 2c 38 2c  |..d.. 1,3,5,7,8,|
00001570  31 30 0d 05 6e 28 64 61  79 31 24 3d 22 32 36 2f  |10..n(day1$="26/|
00001580  22 2b c3 28 6d 6f 6e 74  68 25 2d 31 29 2b 22 2f  |"+.(month%-1)+"/|
00001590  22 2b c3 28 79 65 61 72  25 29 0d 05 78 28 64 61  |"+.(year%)..x(da|
000015a0  79 32 24 3d 22 32 37 2f  22 2b c3 28 6d 6f 6e 74  |y2$="27/"+.(mont|
000015b0  68 25 2d 31 29 2b 22 2f  22 2b c3 28 79 65 61 72  |h%-1)+"/"+.(year|
000015c0  25 29 0d 05 82 28 64 61  79 33 24 3d 22 32 38 2f  |%)...(day3$="28/|
000015d0  22 2b c3 28 6d 6f 6e 74  68 25 2d 31 29 2b 22 2f  |"+.(month%-1)+"/|
000015e0  22 2b c3 28 79 65 61 72  25 29 0d 05 8c 28 64 61  |"+.(year%)...(da|
000015f0  79 34 24 3d 22 32 39 2f  22 2b c3 28 6d 6f 6e 74  |y4$="29/"+.(mont|
00001600  68 25 2d 31 29 2b 22 2f  22 2b c3 28 79 65 61 72  |h%-1)+"/"+.(year|
00001610  25 29 0d 05 96 28 64 61  79 35 24 3d 22 33 30 2f  |%)...(day5$="30/|
00001620  22 2b c3 28 6d 6f 6e 74  68 25 2d 31 29 2b 22 2f  |"+.(month%-1)+"/|
00001630  22 2b c3 28 79 65 61 72  25 29 0d 05 a0 28 64 61  |"+.(year%)...(da|
00001640  79 36 24 3d 22 33 31 2f  22 2b c3 28 6d 6f 6e 74  |y6$="31/"+.(mont|
00001650  68 25 2d 31 29 2b 22 2f  22 2b c3 28 79 65 61 72  |h%-1)+"/"+.(year|
00001660  25 29 0d 05 aa 25 64 61  79 37 24 3d 22 31 2f 22  |%)...%day7$="1/"|
00001670  2b c3 28 6d 6f 6e 74 68  25 29 2b 22 2f 22 2b c3  |+.(month%)+"/"+.|
00001680  28 79 65 61 72 25 29 0d  05 b4 0e c9 20 34 2c 36  |(year%)..... 4,6|
00001690  2c 39 2c 31 31 0d 05 be  28 64 61 79 31 24 3d 22  |,9,11...(day1$="|
000016a0  32 35 2f 22 2b c3 28 6d  6f 6e 74 68 25 2d 31 29  |25/"+.(month%-1)|
000016b0  2b 22 2f 22 2b c3 28 79  65 61 72 25 29 0d 05 c8  |+"/"+.(year%)...|
000016c0  28 64 61 79 32 24 3d 22  32 36 2f 22 2b c3 28 6d  |(day2$="26/"+.(m|
000016d0  6f 6e 74 68 25 2d 31 29  2b 22 2f 22 2b c3 28 79  |onth%-1)+"/"+.(y|
000016e0  65 61 72 25 29 0d 05 d2  28 64 61 79 33 24 3d 22  |ear%)...(day3$="|
000016f0  32 37 2f 22 2b c3 28 6d  6f 6e 74 68 25 2d 31 29  |27/"+.(month%-1)|
00001700  2b 22 2f 22 2b c3 28 79  65 61 72 25 29 0d 05 dc  |+"/"+.(year%)...|
00001710  28 64 61 79 34 24 3d 22  32 38 2f 22 2b c3 28 6d  |(day4$="28/"+.(m|
00001720  6f 6e 74 68 25 2d 31 29  2b 22 2f 22 2b c3 28 79  |onth%-1)+"/"+.(y|
00001730  65 61 72 25 29 0d 05 e6  28 64 61 79 35 24 3d 22  |ear%)...(day5$="|
00001740  32 39 2f 22 2b c3 28 6d  6f 6e 74 68 25 2d 31 29  |29/"+.(month%-1)|
00001750  2b 22 2f 22 2b c3 28 79  65 61 72 25 29 0d 05 f0  |+"/"+.(year%)...|
00001760  28 64 61 79 36 24 3d 22  33 30 2f 22 2b c3 28 6d  |(day6$="30/"+.(m|
00001770  6f 6e 74 68 25 2d 31 29  2b 22 2f 22 2b c3 28 79  |onth%-1)+"/"+.(y|
00001780  65 61 72 25 29 0d 05 fa  25 64 61 79 37 24 3d 22  |ear%)...%day7$="|
00001790  31 2f 22 2b c3 28 6d 6f  6e 74 68 25 29 2b 22 2f  |1/"+.(month%)+"/|
000017a0  22 2b c3 28 79 65 61 72  25 29 0d 06 04 07 c9 20  |"+.(year%)..... |
000017b0  32 0d 06 0e 28 64 61 79  31 24 3d 22 32 33 2f 22  |2...(day1$="23/"|
000017c0  2b c3 28 6d 6f 6e 74 68  25 2d 31 29 2b 22 2f 22  |+.(month%-1)+"/"|
000017d0  2b c3 28 79 65 61 72 25  29 0d 06 18 28 64 61 79  |+.(year%)...(day|
000017e0  32 24 3d 22 32 34 2f 22  2b c3 28 6d 6f 6e 74 68  |2$="24/"+.(month|
000017f0  25 2d 31 29 2b 22 2f 22  2b c3 28 79 65 61 72 25  |%-1)+"/"+.(year%|
00001800  29 0d 06 22 28 64 61 79  33 24 3d 22 32 35 2f 22  |).."(day3$="25/"|
00001810  2b c3 28 6d 6f 6e 74 68  25 2d 31 29 2b 22 2f 22  |+.(month%-1)+"/"|
00001820  2b c3 28 79 65 61 72 25  29 0d 06 2c 28 64 61 79  |+.(year%)..,(day|
00001830  34 24 3d 22 32 36 2f 22  2b c3 28 6d 6f 6e 74 68  |4$="26/"+.(month|
00001840  25 2d 31 29 2b 22 2f 22  2b c3 28 79 65 61 72 25  |%-1)+"/"+.(year%|
00001850  29 0d 06 36 28 64 61 79  35 24 3d 22 32 37 2f 22  |)..6(day5$="27/"|
00001860  2b c3 28 6d 6f 6e 74 68  25 2d 31 29 2b 22 2f 22  |+.(month%-1)+"/"|
00001870  2b c3 28 79 65 61 72 25  29 0d 06 40 28 64 61 79  |+.(year%)..@(day|
00001880  36 24 3d 22 32 38 2f 22  2b c3 28 6d 6f 6e 74 68  |6$="28/"+.(month|
00001890  25 2d 31 29 2b 22 2f 22  2b c3 28 79 65 61 72 25  |%-1)+"/"+.(year%|
000018a0  29 0d 06 4a 25 64 61 79  37 24 3d 22 31 2f 22 2b  |)..J%day7$="1/"+|
000018b0  c3 28 6d 6f 6e 74 68 25  29 2b 22 2f 22 2b c3 28  |.(month%)+"/"+.(|
000018c0  79 65 61 72 25 29 0d 06  54 07 c9 20 30 0d 06 5e  |year%)..T.. 0..^|
000018d0  1d 64 61 79 31 24 3d 22  32 36 2f 31 32 2f 22 2b  |.day1$="26/12/"+|
000018e0  c3 28 79 65 61 72 25 2d  31 29 0d 06 68 1d 64 61  |.(year%-1)..h.da|
000018f0  79 32 24 3d 22 32 37 2f  31 32 2f 22 2b c3 28 79  |y2$="27/12/"+.(y|
00001900  65 61 72 25 2d 31 29 0d  06 72 1d 64 61 79 33 24  |ear%-1)..r.day3$|
00001910  3d 22 32 38 2f 31 32 2f  22 2b c3 28 79 65 61 72  |="28/12/"+.(year|
00001920  25 2d 31 29 0d 06 7c 1d  64 61 79 34 24 3d 22 32  |%-1)..|.day4$="2|
00001930  39 2f 31 32 2f 22 2b c3  28 79 65 61 72 25 2d 31  |9/12/"+.(year%-1|
00001940  29 0d 06 86 1d 64 61 79  35 24 3d 22 33 30 2f 31  |)....day5$="30/1|
00001950  32 2f 22 2b c3 28 79 65  61 72 25 2d 31 29 0d 06  |2/"+.(year%-1)..|
00001960  90 1d 64 61 79 36 24 3d  22 33 31 2f 31 32 2f 22  |..day6$="31/12/"|
00001970  2b c3 28 79 65 61 72 25  2d 31 29 0d 06 9a 25 64  |+.(year%-1)...%d|
00001980  61 79 37 24 3d 22 31 2f  22 2b c3 28 6d 6f 6e 74  |ay7$="1/"+.(mont|
00001990  68 25 29 2b 22 2f 22 2b  c3 28 79 65 61 72 25 29  |h%)+"/"+.(year%)|
000019a0  0d 06 a4 05 cb 0d 06 ae  07 c9 20 32 0d 06 b8 13  |.......... 2....|
000019b0  c8 8e 20 28 6d 6f 6e 74  68 25 2d 31 29 20 ca 0d  |.. (month%-1) ..|
000019c0  06 c2 12 c9 20 31 2c 33  2c 35 2c 37 2c 38 2c 31  |.... 1,3,5,7,8,1|
000019d0  30 0d 06 cc 28 64 61 79  31 24 3d 22 32 37 2f 22  |0...(day1$="27/"|
000019e0  2b c3 28 6d 6f 6e 74 68  25 2d 31 29 2b 22 2f 22  |+.(month%-1)+"/"|
000019f0  2b c3 28 79 65 61 72 25  29 0d 06 d6 28 64 61 79  |+.(year%)...(day|
00001a00  32 24 3d 22 32 38 2f 22  2b c3 28 6d 6f 6e 74 68  |2$="28/"+.(month|
00001a10  25 2d 31 29 2b 22 2f 22  2b c3 28 79 65 61 72 25  |%-1)+"/"+.(year%|
00001a20  29 0d 06 e0 28 64 61 79  33 24 3d 22 32 39 2f 22  |)...(day3$="29/"|
00001a30  2b c3 28 6d 6f 6e 74 68  25 2d 31 29 2b 22 2f 22  |+.(month%-1)+"/"|
00001a40  2b c3 28 79 65 61 72 25  29 0d 06 ea 28 64 61 79  |+.(year%)...(day|
00001a50  34 24 3d 22 33 30 2f 22  2b c3 28 6d 6f 6e 74 68  |4$="30/"+.(month|
00001a60  25 2d 31 29 2b 22 2f 22  2b c3 28 79 65 61 72 25  |%-1)+"/"+.(year%|
00001a70  29 0d 06 f4 28 64 61 79  35 24 3d 22 33 31 2f 22  |)...(day5$="31/"|
00001a80  2b c3 28 6d 6f 6e 74 68  25 2d 31 29 2b 22 2f 22  |+.(month%-1)+"/"|
00001a90  2b c3 28 79 65 61 72 25  29 0d 06 fe 25 64 61 79  |+.(year%)...%day|
00001aa0  36 24 3d 22 31 2f 22 2b  c3 28 6d 6f 6e 74 68 25  |6$="1/"+.(month%|
00001ab0  29 2b 22 2f 22 2b c3 28  79 65 61 72 25 29 0d 07  |)+"/"+.(year%)..|
00001ac0  08 25 64 61 79 37 24 3d  22 32 2f 22 2b c3 28 6d  |.%day7$="2/"+.(m|
00001ad0  6f 6e 74 68 25 29 2b 22  2f 22 2b c3 28 79 65 61  |onth%)+"/"+.(yea|
00001ae0  72 25 29 0d 07 12 0e c9  20 34 2c 36 2c 39 2c 31  |r%)..... 4,6,9,1|
00001af0  31 0d 07 1c 28 64 61 79  31 24 3d 22 32 36 2f 22  |1...(day1$="26/"|
00001b00  2b c3 28 6d 6f 6e 74 68  25 2d 31 29 2b 22 2f 22  |+.(month%-1)+"/"|
00001b10  2b c3 28 79 65 61 72 25  29 0d 07 26 28 64 61 79  |+.(year%)..&(day|
00001b20  32 24 3d 22 32 37 2f 22  2b c3 28 6d 6f 6e 74 68  |2$="27/"+.(month|
00001b30  25 2d 31 29 2b 22 2f 22  2b c3 28 79 65 61 72 25  |%-1)+"/"+.(year%|
00001b40  29 0d 07 30 28 64 61 79  33 24 3d 22 32 38 2f 22  |)..0(day3$="28/"|
00001b50  2b c3 28 6d 6f 6e 74 68  25 2d 31 29 2b 22 2f 22  |+.(month%-1)+"/"|
00001b60  2b c3 28 79 65 61 72 25  29 0d 07 3a 28 64 61 79  |+.(year%)..:(day|
00001b70  34 24 3d 22 32 39 2f 22  2b c3 28 6d 6f 6e 74 68  |4$="29/"+.(month|
00001b80  25 2d 31 29 2b 22 2f 22  2b c3 28 79 65 61 72 25  |%-1)+"/"+.(year%|
00001b90  29 0d 07 44 28 64 61 79  35 24 3d 22 33 30 2f 22  |)..D(day5$="30/"|
00001ba0  2b c3 28 6d 6f 6e 74 68  25 2d 31 29 2b 22 2f 22  |+.(month%-1)+"/"|
00001bb0  2b c3 28 79 65 61 72 25  29 0d 07 4e 25 64 61 79  |+.(year%)..N%day|
00001bc0  36 24 3d 22 31 2f 22 2b  c3 28 6d 6f 6e 74 68 25  |6$="1/"+.(month%|
00001bd0  29 2b 22 2f 22 2b c3 28  79 65 61 72 25 29 0d 07  |)+"/"+.(year%)..|
00001be0  58 25 64 61 79 37 24 3d  22 32 2f 22 2b c3 28 6d  |X%day7$="2/"+.(m|
00001bf0  6f 6e 74 68 25 29 2b 22  2f 22 2b c3 28 79 65 61  |onth%)+"/"+.(yea|
00001c00  72 25 29 0d 07 62 07 c9  20 32 0d 07 6c 28 64 61  |r%)..b.. 2..l(da|
00001c10  79 31 24 3d 22 32 34 2f  22 2b c3 28 6d 6f 6e 74  |y1$="24/"+.(mont|
00001c20  68 25 2d 31 29 2b 22 2f  22 2b c3 28 79 65 61 72  |h%-1)+"/"+.(year|
00001c30  25 29 0d 07 76 28 64 61  79 32 24 3d 22 32 35 2f  |%)..v(day2$="25/|
00001c40  22 2b c3 28 6d 6f 6e 74  68 25 2d 31 29 2b 22 2f  |"+.(month%-1)+"/|
00001c50  22 2b c3 28 79 65 61 72  25 29 0d 07 80 28 64 61  |"+.(year%)...(da|
00001c60  79 33 24 3d 22 32 36 2f  22 2b c3 28 6d 6f 6e 74  |y3$="26/"+.(mont|
00001c70  68 25 2d 31 29 2b 22 2f  22 2b c3 28 79 65 61 72  |h%-1)+"/"+.(year|
00001c80  25 29 0d 07 8a 28 64 61  79 34 24 3d 22 32 37 2f  |%)...(day4$="27/|
00001c90  22 2b c3 28 6d 6f 6e 74  68 25 2d 31 29 2b 22 2f  |"+.(month%-1)+"/|
00001ca0  22 2b c3 28 79 65 61 72  25 29 0d 07 94 28 64 61  |"+.(year%)...(da|
00001cb0  79 35 24 3d 22 32 38 2f  22 2b c3 28 6d 6f 6e 74  |y5$="28/"+.(mont|
00001cc0  68 25 2d 31 29 2b 22 2f  22 2b c3 28 79 65 61 72  |h%-1)+"/"+.(year|
00001cd0  25 29 0d 07 9e 25 64 61  79 36 24 3d 22 31 2f 22  |%)...%day6$="1/"|
00001ce0  2b c3 28 6d 6f 6e 74 68  25 29 2b 22 2f 22 2b c3  |+.(month%)+"/"+.|
00001cf0  28 79 65 61 72 25 29 0d  07 a8 25 64 61 79 37 24  |(year%)...%day7$|
00001d00  3d 22 32 2f 22 2b c3 28  6d 6f 6e 74 68 25 29 2b  |="2/"+.(month%)+|
00001d10  22 2f 22 2b c3 28 79 65  61 72 25 29 0d 07 b2 07  |"/"+.(year%)....|
00001d20  c9 20 30 0d 07 bc 1d 64  61 79 31 24 3d 22 32 37  |. 0....day1$="27|
00001d30  2f 31 32 2f 22 2b c3 28  79 65 61 72 25 2d 31 29  |/12/"+.(year%-1)|
00001d40  0d 07 c6 1d 64 61 79 32  24 3d 22 32 38 2f 31 32  |....day2$="28/12|
00001d50  2f 22 2b c3 28 79 65 61  72 25 2d 31 29 0d 07 d0  |/"+.(year%-1)...|
00001d60  1d 64 61 79 33 24 3d 22  32 39 2f 31 32 2f 22 2b  |.day3$="29/12/"+|
00001d70  c3 28 79 65 61 72 25 2d  31 29 0d 07 da 1d 64 61  |.(year%-1)....da|
00001d80  79 34 24 3d 22 33 30 2f  31 32 2f 22 2b c3 28 79  |y4$="30/12/"+.(y|
00001d90  65 61 72 25 2d 31 29 0d  07 e4 1d 64 61 79 35 24  |ear%-1)....day5$|
00001da0  3d 22 33 31 2f 31 32 2f  22 2b c3 28 79 65 61 72  |="31/12/"+.(year|
00001db0  25 2d 31 29 0d 07 ee 25  64 61 79 36 24 3d 22 31  |%-1)...%day6$="1|
00001dc0  2f 22 2b c3 28 6d 6f 6e  74 68 25 29 2b 22 2f 22  |/"+.(month%)+"/"|
00001dd0  2b c3 28 79 65 61 72 25  29 0d 07 f8 25 64 61 79  |+.(year%)...%day|
00001de0  37 24 3d 22 32 2f 22 2b  c3 28 6d 6f 6e 74 68 25  |7$="2/"+.(month%|
00001df0  29 2b 22 2f 22 2b c3 28  79 65 61 72 25 29 0d 08  |)+"/"+.(year%)..|
00001e00  02 05 cb 0d 08 0c 07 c9  20 33 0d 08 16 13 c8 8e  |........ 3......|
00001e10  20 28 6d 6f 6e 74 68 25  2d 31 29 20 ca 0d 08 20  | (month%-1) ... |
00001e20  12 c9 20 31 2c 33 2c 35  2c 37 2c 38 2c 31 30 0d  |.. 1,3,5,7,8,10.|
00001e30  08 2a 28 64 61 79 31 24  3d 22 32 38 2f 22 2b c3  |.*(day1$="28/"+.|
00001e40  28 6d 6f 6e 74 68 25 2d  31 29 2b 22 2f 22 2b c3  |(month%-1)+"/"+.|
00001e50  28 79 65 61 72 25 29 0d  08 34 28 64 61 79 32 24  |(year%)..4(day2$|
00001e60  3d 22 32 39 2f 22 2b c3  28 6d 6f 6e 74 68 25 2d  |="29/"+.(month%-|
00001e70  31 29 2b 22 2f 22 2b c3  28 79 65 61 72 25 29 0d  |1)+"/"+.(year%).|
00001e80  08 3e 28 64 61 79 33 24  3d 22 33 30 2f 22 2b c3  |.>(day3$="30/"+.|
00001e90  28 6d 6f 6e 74 68 25 2d  31 29 2b 22 2f 22 2b c3  |(month%-1)+"/"+.|
00001ea0  28 79 65 61 72 25 29 0d  08 48 28 64 61 79 34 24  |(year%)..H(day4$|
00001eb0  3d 22 33 31 2f 22 2b c3  28 6d 6f 6e 74 68 25 2d  |="31/"+.(month%-|
00001ec0  31 29 2b 22 2f 22 2b c3  28 79 65 61 72 25 29 0d  |1)+"/"+.(year%).|
00001ed0  08 52 25 64 61 79 35 24  3d 22 31 2f 22 2b c3 28  |.R%day5$="1/"+.(|
00001ee0  6d 6f 6e 74 68 25 29 2b  22 2f 22 2b c3 28 79 65  |month%)+"/"+.(ye|
00001ef0  61 72 25 29 0d 08 5c 25  64 61 79 36 24 3d 22 32  |ar%)..\%day6$="2|
00001f00  2f 22 2b c3 28 6d 6f 6e  74 68 25 29 2b 22 2f 22  |/"+.(month%)+"/"|
00001f10  2b c3 28 79 65 61 72 25  29 0d 08 66 25 64 61 79  |+.(year%)..f%day|
00001f20  37 24 3d 22 33 2f 22 2b  c3 28 6d 6f 6e 74 68 25  |7$="3/"+.(month%|
00001f30  29 2b 22 2f 22 2b c3 28  79 65 61 72 25 29 0d 08  |)+"/"+.(year%)..|
00001f40  70 0e c9 20 34 2c 36 2c  39 2c 31 31 0d 08 7a 28  |p.. 4,6,9,11..z(|
00001f50  64 61 79 31 24 3d 22 32  37 2f 22 2b c3 28 6d 6f  |day1$="27/"+.(mo|
00001f60  6e 74 68 25 2d 31 29 2b  22 2f 22 2b c3 28 79 65  |nth%-1)+"/"+.(ye|
00001f70  61 72 25 29 0d 08 84 28  64 61 79 32 24 3d 22 32  |ar%)...(day2$="2|
00001f80  38 2f 22 2b c3 28 6d 6f  6e 74 68 25 2d 31 29 2b  |8/"+.(month%-1)+|
00001f90  22 2f 22 2b c3 28 79 65  61 72 25 29 0d 08 8e 28  |"/"+.(year%)...(|
00001fa0  64 61 79 33 24 3d 22 32  39 2f 22 2b c3 28 6d 6f  |day3$="29/"+.(mo|
00001fb0  6e 74 68 25 2d 31 29 2b  22 2f 22 2b c3 28 79 65  |nth%-1)+"/"+.(ye|
00001fc0  61 72 25 29 0d 08 98 28  64 61 79 34 24 3d 22 33  |ar%)...(day4$="3|
00001fd0  30 2f 22 2b c3 28 6d 6f  6e 74 68 25 2d 31 29 2b  |0/"+.(month%-1)+|
00001fe0  22 2f 22 2b c3 28 79 65  61 72 25 29 0d 08 a2 25  |"/"+.(year%)...%|
00001ff0  64 61 79 35 24 3d 22 31  2f 22 2b c3 28 6d 6f 6e  |day5$="1/"+.(mon|
00002000  74 68 25 29 2b 22 2f 22  2b c3 28 79 65 61 72 25  |th%)+"/"+.(year%|
00002010  29 0d 08 ac 25 64 61 79  36 24 3d 22 32 2f 22 2b  |)...%day6$="2/"+|
00002020  c3 28 6d 6f 6e 74 68 25  29 2b 22 2f 22 2b c3 28  |.(month%)+"/"+.(|
00002030  79 65 61 72 25 29 0d 08  b6 25 64 61 79 37 24 3d  |year%)...%day7$=|
00002040  22 33 2f 22 2b c3 28 6d  6f 6e 74 68 25 29 2b 22  |"3/"+.(month%)+"|
00002050  2f 22 2b c3 28 79 65 61  72 25 29 0d 08 c0 07 c9  |/"+.(year%).....|
00002060  20 32 0d 08 ca 28 64 61  79 31 24 3d 22 32 35 2f  | 2...(day1$="25/|
00002070  22 2b c3 28 6d 6f 6e 74  68 25 2d 31 29 2b 22 2f  |"+.(month%-1)+"/|
00002080  22 2b c3 28 79 65 61 72  25 29 0d 08 d4 28 64 61  |"+.(year%)...(da|
00002090  79 32 24 3d 22 32 36 2f  22 2b c3 28 6d 6f 6e 74  |y2$="26/"+.(mont|
000020a0  68 25 2d 31 29 2b 22 2f  22 2b c3 28 79 65 61 72  |h%-1)+"/"+.(year|
000020b0  25 29 0d 08 de 28 64 61  79 33 24 3d 22 32 37 2f  |%)...(day3$="27/|
000020c0  22 2b c3 28 6d 6f 6e 74  68 25 2d 31 29 2b 22 2f  |"+.(month%-1)+"/|
000020d0  22 2b c3 28 79 65 61 72  25 29 0d 08 e8 28 64 61  |"+.(year%)...(da|
000020e0  79 34 24 3d 22 32 38 2f  22 2b c3 28 6d 6f 6e 74  |y4$="28/"+.(mont|
000020f0  68 25 2d 31 29 2b 22 2f  22 2b c3 28 79 65 61 72  |h%-1)+"/"+.(year|
00002100  25 29 0d 08 f2 25 64 61  79 35 24 3d 22 31 2f 22  |%)...%day5$="1/"|
00002110  2b c3 28 6d 6f 6e 74 68  25 29 2b 22 2f 22 2b c3  |+.(month%)+"/"+.|
00002120  28 79 65 61 72 25 29 0d  08 fc 25 64 61 79 36 24  |(year%)...%day6$|
00002130  3d 22 32 2f 22 2b c3 28  6d 6f 6e 74 68 25 29 2b  |="2/"+.(month%)+|
00002140  22 2f 22 2b c3 28 79 65  61 72 25 29 0d 09 06 25  |"/"+.(year%)...%|
00002150  64 61 79 37 24 3d 22 33  2f 22 2b c3 28 6d 6f 6e  |day7$="3/"+.(mon|
00002160  74 68 25 29 2b 22 2f 22  2b c3 28 79 65 61 72 25  |th%)+"/"+.(year%|
00002170  29 0d 09 10 07 c9 20 30  0d 09 1a 1d 64 61 79 31  |)..... 0....day1|
00002180  24 3d 22 32 38 2f 31 32  2f 22 2b c3 28 79 65 61  |$="28/12/"+.(yea|
00002190  72 25 2d 31 29 0d 09 24  1d 64 61 79 32 24 3d 22  |r%-1)..$.day2$="|
000021a0  32 39 2f 31 32 2f 22 2b  c3 28 79 65 61 72 25 2d  |29/12/"+.(year%-|
000021b0  31 29 0d 09 2e 1d 64 61  79 33 24 3d 22 33 30 2f  |1)....day3$="30/|
000021c0  31 32 2f 22 2b c3 28 79  65 61 72 25 2d 31 29 0d  |12/"+.(year%-1).|
000021d0  09 38 1d 64 61 79 34 24  3d 22 33 31 2f 31 32 2f  |.8.day4$="31/12/|
000021e0  22 2b c3 28 79 65 61 72  25 2d 31 29 0d 09 42 27  |"+.(year%-1)..B'|
000021f0  64 61 79 35 24 3d 22 31  2f 22 2b c3 28 6d 6f 6e  |day5$="1/"+.(mon|
00002200  74 68 25 2d 31 29 2b 22  2f 22 2b c3 28 79 65 61  |th%-1)+"/"+.(yea|
00002210  72 25 29 0d 09 4c 27 64  61 79 36 24 3d 22 32 2f  |r%)..L'day6$="2/|
00002220  22 2b c3 28 6d 6f 6e 74  68 25 2d 31 29 2b 22 2f  |"+.(month%-1)+"/|
00002230  22 2b c3 28 79 65 61 72  25 29 0d 09 56 25 64 61  |"+.(year%)..V%da|
00002240  79 37 24 3d 22 33 2f 22  2b c3 28 6d 6f 6e 74 68  |y7$="3/"+.(month|
00002250  25 29 2b 22 2f 22 2b c3  28 79 65 61 72 25 29 0d  |%)+"/"+.(year%).|
00002260  09 60 05 cb 0d 09 6a 07  c9 20 34 0d 09 74 13 c8  |.`....j.. 4..t..|
00002270  8e 20 28 6d 6f 6e 74 68  25 2d 31 29 20 ca 0d 09  |. (month%-1) ...|
00002280  7e 12 c9 20 31 2c 33 2c  35 2c 37 2c 38 2c 31 30  |~.. 1,3,5,7,8,10|
00002290  0d 09 88 28 64 61 79 31  24 3d 22 32 39 2f 22 2b  |...(day1$="29/"+|
000022a0  c3 28 6d 6f 6e 74 68 25  2d 31 29 2b 22 2f 22 2b  |.(month%-1)+"/"+|
000022b0  c3 28 79 65 61 72 25 29  0d 09 92 28 64 61 79 32  |.(year%)...(day2|
000022c0  24 3d 22 33 30 2f 22 2b  c3 28 6d 6f 6e 74 68 25  |$="30/"+.(month%|
000022d0  2d 31 29 2b 22 2f 22 2b  c3 28 79 65 61 72 25 29  |-1)+"/"+.(year%)|
000022e0  0d 09 9c 28 64 61 79 33  24 3d 22 33 31 2f 22 2b  |...(day3$="31/"+|
000022f0  c3 28 6d 6f 6e 74 68 25  2d 31 29 2b 22 2f 22 2b  |.(month%-1)+"/"+|
00002300  c3 28 79 65 61 72 25 29  0d 09 a6 25 64 61 79 34  |.(year%)...%day4|
00002310  24 3d 22 31 2f 22 2b c3  28 6d 6f 6e 74 68 25 29  |$="1/"+.(month%)|
00002320  2b 22 2f 22 2b c3 28 79  65 61 72 25 29 0d 09 b0  |+"/"+.(year%)...|
00002330  25 64 61 79 35 24 3d 22  32 2f 22 2b c3 28 6d 6f  |%day5$="2/"+.(mo|
00002340  6e 74 68 25 29 2b 22 2f  22 2b c3 28 79 65 61 72  |nth%)+"/"+.(year|
00002350  25 29 0d 09 ba 25 64 61  79 36 24 3d 22 33 2f 22  |%)...%day6$="3/"|
00002360  2b c3 28 6d 6f 6e 74 68  25 29 2b 22 2f 22 2b c3  |+.(month%)+"/"+.|
00002370  28 79 65 61 72 25 29 0d  09 c4 25 64 61 79 37 24  |(year%)...%day7$|
00002380  3d 22 34 2f 22 2b c3 28  6d 6f 6e 74 68 25 29 2b  |="4/"+.(month%)+|
00002390  22 2f 22 2b c3 28 79 65  61 72 25 29 0d 09 ce 0e  |"/"+.(year%)....|
000023a0  c9 20 34 2c 36 2c 39 2c  31 31 0d 09 d8 28 64 61  |. 4,6,9,11...(da|
000023b0  79 31 24 3d 22 32 38 2f  22 2b c3 28 6d 6f 6e 74  |y1$="28/"+.(mont|
000023c0  68 25 2d 31 29 2b 22 2f  22 2b c3 28 79 65 61 72  |h%-1)+"/"+.(year|
000023d0  25 29 0d 09 e2 28 64 61  79 32 24 3d 22 32 39 2f  |%)...(day2$="29/|
000023e0  22 2b c3 28 6d 6f 6e 74  68 25 2d 31 29 2b 22 2f  |"+.(month%-1)+"/|
000023f0  22 2b c3 28 79 65 61 72  25 29 0d 09 ec 28 64 61  |"+.(year%)...(da|
00002400  79 33 24 3d 22 33 30 2f  22 2b c3 28 6d 6f 6e 74  |y3$="30/"+.(mont|
00002410  68 25 2d 31 29 2b 22 2f  22 2b c3 28 79 65 61 72  |h%-1)+"/"+.(year|
00002420  25 29 0d 09 f6 25 64 61  79 34 24 3d 22 31 2f 22  |%)...%day4$="1/"|
00002430  2b c3 28 6d 6f 6e 74 68  25 29 2b 22 2f 22 2b c3  |+.(month%)+"/"+.|
00002440  28 79 65 61 72 25 29 0d  0a 00 25 64 61 79 35 24  |(year%)...%day5$|
00002450  3d 22 32 2f 22 2b c3 28  6d 6f 6e 74 68 25 29 2b  |="2/"+.(month%)+|
00002460  22 2f 22 2b c3 28 79 65  61 72 25 29 0d 0a 0a 25  |"/"+.(year%)...%|
00002470  64 61 79 36 24 3d 22 33  2f 22 2b c3 28 6d 6f 6e  |day6$="3/"+.(mon|
00002480  74 68 25 29 2b 22 2f 22  2b c3 28 79 65 61 72 25  |th%)+"/"+.(year%|
00002490  29 0d 0a 14 25 64 61 79  37 24 3d 22 34 2f 22 2b  |)...%day7$="4/"+|
000024a0  c3 28 6d 6f 6e 74 68 25  29 2b 22 2f 22 2b c3 28  |.(month%)+"/"+.(|
000024b0  79 65 61 72 25 29 0d 0a  1e 07 c9 20 32 0d 0a 28  |year%)..... 2..(|
000024c0  28 64 61 79 31 24 3d 22  32 36 2f 22 2b c3 28 6d  |(day1$="26/"+.(m|
000024d0  6f 6e 74 68 25 2d 31 29  2b 22 2f 22 2b c3 28 79  |onth%-1)+"/"+.(y|
000024e0  65 61 72 25 29 0d 0a 32  28 64 61 79 32 24 3d 22  |ear%)..2(day2$="|
000024f0  32 37 2f 22 2b c3 28 6d  6f 6e 74 68 25 2d 31 29  |27/"+.(month%-1)|
00002500  2b 22 2f 22 2b c3 28 79  65 61 72 25 29 0d 0a 3c  |+"/"+.(year%)..<|
00002510  28 64 61 79 33 24 3d 22  32 38 2f 22 2b c3 28 6d  |(day3$="28/"+.(m|
00002520  6f 6e 74 68 25 2d 31 29  2b 22 2f 22 2b c3 28 79  |onth%-1)+"/"+.(y|
00002530  65 61 72 25 29 0d 0a 46  25 64 61 79 34 24 3d 22  |ear%)..F%day4$="|
00002540  31 2f 22 2b c3 28 6d 6f  6e 74 68 25 29 2b 22 2f  |1/"+.(month%)+"/|
00002550  22 2b c3 28 79 65 61 72  25 29 0d 0a 50 25 64 61  |"+.(year%)..P%da|
00002560  79 35 24 3d 22 32 2f 22  2b c3 28 6d 6f 6e 74 68  |y5$="2/"+.(month|
00002570  25 29 2b 22 2f 22 2b c3  28 79 65 61 72 25 29 0d  |%)+"/"+.(year%).|
00002580  0a 5a 25 64 61 79 36 24  3d 22 33 2f 22 2b c3 28  |.Z%day6$="3/"+.(|
00002590  6d 6f 6e 74 68 25 29 2b  22 2f 22 2b c3 28 79 65  |month%)+"/"+.(ye|
000025a0  61 72 25 29 0d 0a 64 25  64 61 79 37 24 3d 22 34  |ar%)..d%day7$="4|
000025b0  2f 22 2b c3 28 6d 6f 6e  74 68 25 29 2b 22 2f 22  |/"+.(month%)+"/"|
000025c0  2b c3 28 79 65 61 72 25  29 0d 0a 6e 07 c9 20 30  |+.(year%)..n.. 0|
000025d0  0d 0a 78 1d 64 61 79 31  24 3d 22 32 39 2f 31 32  |..x.day1$="29/12|
000025e0  2f 22 2b c3 28 79 65 61  72 25 2d 31 29 0d 0a 82  |/"+.(year%-1)...|
000025f0  1d 64 61 79 32 24 3d 22  33 30 2f 31 32 2f 22 2b  |.day2$="30/12/"+|
00002600  c3 28 79 65 61 72 25 2d  31 29 0d 0a 8c 1d 64 61  |.(year%-1)....da|
00002610  79 33 24 3d 22 33 31 2f  31 32 2f 22 2b c3 28 79  |y3$="31/12/"+.(y|
00002620  65 61 72 25 2d 31 29 0d  0a 96 25 64 61 79 34 24  |ear%-1)...%day4$|
00002630  3d 22 31 2f 22 2b c3 28  6d 6f 6e 74 68 25 29 2b  |="1/"+.(month%)+|
00002640  22 2f 22 2b c3 28 79 65  61 72 25 29 0d 0a a0 25  |"/"+.(year%)...%|
00002650  64 61 79 35 24 3d 22 32  2f 22 2b c3 28 6d 6f 6e  |day5$="2/"+.(mon|
00002660  74 68 25 29 2b 22 2f 22  2b c3 28 79 65 61 72 25  |th%)+"/"+.(year%|
00002670  29 0d 0a aa 25 64 61 79  36 24 3d 22 33 2f 22 2b  |)...%day6$="3/"+|
00002680  c3 28 6d 6f 6e 74 68 25  29 2b 22 2f 22 2b c3 28  |.(month%)+"/"+.(|
00002690  79 65 61 72 25 29 0d 0a  b4 25 64 61 79 37 24 3d  |year%)...%day7$=|
000026a0  22 34 2f 22 2b c3 28 6d  6f 6e 74 68 25 29 2b 22  |"4/"+.(month%)+"|
000026b0  2f 22 2b c3 28 79 65 61  72 25 29 0d 0a be 05 cb  |/"+.(year%).....|
000026c0  0d 0a c8 07 c9 20 35 0d  0a d2 13 c8 8e 20 28 6d  |..... 5...... (m|
000026d0  6f 6e 74 68 25 2d 31 29  20 ca 0d 0a dc 12 c9 20  |onth%-1) ...... |
000026e0  31 2c 33 2c 35 2c 37 2c  38 2c 31 30 0d 0a e6 28  |1,3,5,7,8,10...(|
000026f0  64 61 79 31 24 3d 22 33  30 2f 22 2b c3 28 6d 6f  |day1$="30/"+.(mo|
00002700  6e 74 68 25 2d 31 29 2b  22 2f 22 2b c3 28 79 65  |nth%-1)+"/"+.(ye|
00002710  61 72 25 29 0d 0a f0 28  64 61 79 32 24 3d 22 33  |ar%)...(day2$="3|
00002720  31 2f 22 2b c3 28 6d 6f  6e 74 68 25 2d 31 29 2b  |1/"+.(month%-1)+|
00002730  22 2f 22 2b c3 28 79 65  61 72 25 29 0d 0a fa 25  |"/"+.(year%)...%|
00002740  64 61 79 33 24 3d 22 31  2f 22 2b c3 28 6d 6f 6e  |day3$="1/"+.(mon|
00002750  74 68 25 29 2b 22 2f 22  2b c3 28 79 65 61 72 25  |th%)+"/"+.(year%|
00002760  29 0d 0b 04 25 64 61 79  34 24 3d 22 32 2f 22 2b  |)...%day4$="2/"+|
00002770  c3 28 6d 6f 6e 74 68 25  29 2b 22 2f 22 2b c3 28  |.(month%)+"/"+.(|
00002780  79 65 61 72 25 29 0d 0b  0e 25 64 61 79 35 24 3d  |year%)...%day5$=|
00002790  22 33 2f 22 2b c3 28 6d  6f 6e 74 68 25 29 2b 22  |"3/"+.(month%)+"|
000027a0  2f 22 2b c3 28 79 65 61  72 25 29 0d 0b 18 25 64  |/"+.(year%)...%d|
000027b0  61 79 36 24 3d 22 34 2f  22 2b c3 28 6d 6f 6e 74  |ay6$="4/"+.(mont|
000027c0  68 25 29 2b 22 2f 22 2b  c3 28 79 65 61 72 25 29  |h%)+"/"+.(year%)|
000027d0  0d 0b 22 25 64 61 79 37  24 3d 22 35 2f 22 2b c3  |.."%day7$="5/"+.|
000027e0  28 6d 6f 6e 74 68 25 29  2b 22 2f 22 2b c3 28 79  |(month%)+"/"+.(y|
000027f0  65 61 72 25 29 0d 0b 2c  0e c9 20 34 2c 36 2c 39  |ear%)..,.. 4,6,9|
00002800  2c 31 31 0d 0b 36 28 64  61 79 31 24 3d 22 32 39  |,11..6(day1$="29|
00002810  2f 22 2b c3 28 6d 6f 6e  74 68 25 2d 31 29 2b 22  |/"+.(month%-1)+"|
00002820  2f 22 2b c3 28 79 65 61  72 25 29 0d 0b 40 28 64  |/"+.(year%)..@(d|
00002830  61 79 32 24 3d 22 33 30  2f 22 2b c3 28 6d 6f 6e  |ay2$="30/"+.(mon|
00002840  74 68 25 2d 31 29 2b 22  2f 22 2b c3 28 79 65 61  |th%-1)+"/"+.(yea|
00002850  72 25 29 0d 0b 4a 25 64  61 79 33 24 3d 22 31 2f  |r%)..J%day3$="1/|
00002860  22 2b c3 28 6d 6f 6e 74  68 25 29 2b 22 2f 22 2b  |"+.(month%)+"/"+|
00002870  c3 28 79 65 61 72 25 29  0d 0b 54 25 64 61 79 34  |.(year%)..T%day4|
00002880  24 3d 22 32 2f 22 2b c3  28 6d 6f 6e 74 68 25 29  |$="2/"+.(month%)|
00002890  2b 22 2f 22 2b c3 28 79  65 61 72 25 29 0d 0b 5e  |+"/"+.(year%)..^|
000028a0  25 64 61 79 35 24 3d 22  33 2f 22 2b c3 28 6d 6f  |%day5$="3/"+.(mo|
000028b0  6e 74 68 25 29 2b 22 2f  22 2b c3 28 79 65 61 72  |nth%)+"/"+.(year|
000028c0  25 29 0d 0b 68 25 64 61  79 36 24 3d 22 34 2f 22  |%)..h%day6$="4/"|
000028d0  2b c3 28 6d 6f 6e 74 68  25 29 2b 22 2f 22 2b c3  |+.(month%)+"/"+.|
000028e0  28 79 65 61 72 25 29 0d  0b 72 25 64 61 79 37 24  |(year%)..r%day7$|
000028f0  3d 22 35 2f 22 2b c3 28  6d 6f 6e 74 68 25 29 2b  |="5/"+.(month%)+|
00002900  22 2f 22 2b c3 28 79 65  61 72 25 29 0d 0b 7c 07  |"/"+.(year%)..|.|
00002910  c9 20 32 0d 0b 86 28 64  61 79 31 24 3d 22 32 37  |. 2...(day1$="27|
00002920  2f 22 2b c3 28 6d 6f 6e  74 68 25 2d 31 29 2b 22  |/"+.(month%-1)+"|
00002930  2f 22 2b c3 28 79 65 61  72 25 29 0d 0b 90 28 64  |/"+.(year%)...(d|
00002940  61 79 32 24 3d 22 32 38  2f 22 2b c3 28 6d 6f 6e  |ay2$="28/"+.(mon|
00002950  74 68 25 2d 31 29 2b 22  2f 22 2b c3 28 79 65 61  |th%-1)+"/"+.(yea|
00002960  72 25 29 0d 0b 9a 25 64  61 79 33 24 3d 22 31 2f  |r%)...%day3$="1/|
00002970  22 2b c3 28 6d 6f 6e 74  68 25 29 2b 22 2f 22 2b  |"+.(month%)+"/"+|
00002980  c3 28 79 65 61 72 25 29  0d 0b a4 25 64 61 79 34  |.(year%)...%day4|
00002990  24 3d 22 32 2f 22 2b c3  28 6d 6f 6e 74 68 25 29  |$="2/"+.(month%)|
000029a0  2b 22 2f 22 2b c3 28 79  65 61 72 25 29 0d 0b ae  |+"/"+.(year%)...|
000029b0  25 64 61 79 35 24 3d 22  33 2f 22 2b c3 28 6d 6f  |%day5$="3/"+.(mo|
000029c0  6e 74 68 25 29 2b 22 2f  22 2b c3 28 79 65 61 72  |nth%)+"/"+.(year|
000029d0  25 29 0d 0b b8 25 64 61  79 36 24 3d 22 34 2f 22  |%)...%day6$="4/"|
000029e0  2b c3 28 6d 6f 6e 74 68  25 29 2b 22 2f 22 2b c3  |+.(month%)+"/"+.|
000029f0  28 79 65 61 72 25 29 0d  0b c2 25 64 61 79 37 24  |(year%)...%day7$|
00002a00  3d 22 35 2f 22 2b c3 28  6d 6f 6e 74 68 25 29 2b  |="5/"+.(month%)+|
00002a10  22 2f 22 2b c3 28 79 65  61 72 25 29 0d 0b cc 07  |"/"+.(year%)....|
00002a20  c9 20 30 0d 0b d6 1d 64  61 79 31 24 3d 22 33 30  |. 0....day1$="30|
00002a30  2f 31 32 2f 22 2b c3 28  79 65 61 72 25 2d 31 29  |/12/"+.(year%-1)|
00002a40  0d 0b e0 1d 64 61 79 32  24 3d 22 33 31 2f 31 32  |....day2$="31/12|
00002a50  2f 22 2b c3 28 79 65 61  72 25 2d 31 29 0d 0b ea  |/"+.(year%-1)...|
00002a60  25 64 61 79 33 24 3d 22  31 2f 22 2b c3 28 6d 6f  |%day3$="1/"+.(mo|
00002a70  6e 74 68 25 29 2b 22 2f  22 2b c3 28 79 65 61 72  |nth%)+"/"+.(year|
00002a80  25 29 0d 0b f4 25 64 61  79 34 24 3d 22 32 2f 22  |%)...%day4$="2/"|
00002a90  2b c3 28 6d 6f 6e 74 68  25 29 2b 22 2f 22 2b c3  |+.(month%)+"/"+.|
00002aa0  28 79 65 61 72 25 29 0d  0b fe 25 64 61 79 35 24  |(year%)...%day5$|
00002ab0  3d 22 33 2f 22 2b c3 28  6d 6f 6e 74 68 25 29 2b  |="3/"+.(month%)+|
00002ac0  22 2f 22 2b c3 28 79 65  61 72 25 29 0d 0c 08 25  |"/"+.(year%)...%|
00002ad0  64 61 79 36 24 3d 22 34  2f 22 2b c3 28 6d 6f 6e  |day6$="4/"+.(mon|
00002ae0  74 68 25 29 2b 22 2f 22  2b c3 28 79 65 61 72 25  |th%)+"/"+.(year%|
00002af0  29 0d 0c 12 25 64 61 79  37 24 3d 22 35 2f 22 2b  |)...%day7$="5/"+|
00002b00  c3 28 6d 6f 6e 74 68 25  29 2b 22 2f 22 2b c3 28  |.(month%)+"/"+.(|
00002b10  79 65 61 72 25 29 0d 0c  1c 05 cb 0d 0c 26 07 c9  |year%).......&..|
00002b20  20 36 0d 0c 30 13 c8 8e  20 28 6d 6f 6e 74 68 25  | 6..0... (month%|
00002b30  2d 31 29 20 ca 0d 0c 3a  12 c9 20 31 2c 33 2c 35  |-1) ...:.. 1,3,5|
00002b40  2c 37 2c 38 2c 31 30 0d  0c 44 28 64 61 79 31 24  |,7,8,10..D(day1$|
00002b50  3d 22 33 31 2f 22 2b c3  28 6d 6f 6e 74 68 25 2d  |="31/"+.(month%-|
00002b60  31 29 2b 22 2f 22 2b c3  28 79 65 61 72 25 29 0d  |1)+"/"+.(year%).|
00002b70  0c 4e 25 64 61 79 32 24  3d 22 31 2f 22 2b c3 28  |.N%day2$="1/"+.(|
00002b80  6d 6f 6e 74 68 25 29 2b  22 2f 22 2b c3 28 79 65  |month%)+"/"+.(ye|
00002b90  61 72 25 29 0d 0c 58 25  64 61 79 33 24 3d 22 32  |ar%)..X%day3$="2|
00002ba0  2f 22 2b c3 28 6d 6f 6e  74 68 25 29 2b 22 2f 22  |/"+.(month%)+"/"|
00002bb0  2b c3 28 79 65 61 72 25  29 0d 0c 62 25 64 61 79  |+.(year%)..b%day|
00002bc0  34 24 3d 22 33 2f 22 2b  c3 28 6d 6f 6e 74 68 25  |4$="3/"+.(month%|
00002bd0  29 2b 22 2f 22 2b c3 28  79 65 61 72 25 29 0d 0c  |)+"/"+.(year%)..|
00002be0  6c 25 64 61 79 35 24 3d  22 34 2f 22 2b c3 28 6d  |l%day5$="4/"+.(m|
00002bf0  6f 6e 74 68 25 29 2b 22  2f 22 2b c3 28 79 65 61  |onth%)+"/"+.(yea|
00002c00  72 25 29 0d 0c 76 25 64  61 79 36 24 3d 22 35 2f  |r%)..v%day6$="5/|
00002c10  22 2b c3 28 6d 6f 6e 74  68 25 29 2b 22 2f 22 2b  |"+.(month%)+"/"+|
00002c20  c3 28 79 65 61 72 25 29  0d 0c 80 25 64 61 79 37  |.(year%)...%day7|
00002c30  24 3d 22 36 2f 22 2b c3  28 6d 6f 6e 74 68 25 29  |$="6/"+.(month%)|
00002c40  2b 22 2f 22 2b c3 28 79  65 61 72 25 29 0d 0c 8a  |+"/"+.(year%)...|
00002c50  0e c9 20 34 2c 36 2c 39  2c 31 31 0d 0c 94 28 64  |.. 4,6,9,11...(d|
00002c60  61 79 31 24 3d 22 33 30  2f 22 2b c3 28 6d 6f 6e  |ay1$="30/"+.(mon|
00002c70  74 68 25 2d 31 29 2b 22  2f 22 2b c3 28 79 65 61  |th%-1)+"/"+.(yea|
00002c80  72 25 29 0d 0c 9e 25 64  61 79 32 24 3d 22 31 2f  |r%)...%day2$="1/|
00002c90  22 2b c3 28 6d 6f 6e 74  68 25 29 2b 22 2f 22 2b  |"+.(month%)+"/"+|
00002ca0  c3 28 79 65 61 72 25 29  0d 0c a8 25 64 61 79 33  |.(year%)...%day3|
00002cb0  24 3d 22 32 2f 22 2b c3  28 6d 6f 6e 74 68 25 29  |$="2/"+.(month%)|
00002cc0  2b 22 2f 22 2b c3 28 79  65 61 72 25 29 0d 0c b2  |+"/"+.(year%)...|
00002cd0  25 64 61 79 34 24 3d 22  33 2f 22 2b c3 28 6d 6f  |%day4$="3/"+.(mo|
00002ce0  6e 74 68 25 29 2b 22 2f  22 2b c3 28 79 65 61 72  |nth%)+"/"+.(year|
00002cf0  25 29 0d 0c bc 25 64 61  79 35 24 3d 22 34 2f 22  |%)...%day5$="4/"|
00002d00  2b c3 28 6d 6f 6e 74 68  25 29 2b 22 2f 22 2b c3  |+.(month%)+"/"+.|
00002d10  28 79 65 61 72 25 29 0d  0c c6 25 64 61 79 36 24  |(year%)...%day6$|
00002d20  3d 22 35 2f 22 2b c3 28  6d 6f 6e 74 68 25 29 2b  |="5/"+.(month%)+|
00002d30  22 2f 22 2b c3 28 79 65  61 72 25 29 0d 0c d0 25  |"/"+.(year%)...%|
00002d40  64 61 79 37 24 3d 22 36  2f 22 2b c3 28 6d 6f 6e  |day7$="6/"+.(mon|
00002d50  74 68 25 29 2b 22 2f 22  2b c3 28 79 65 61 72 25  |th%)+"/"+.(year%|
00002d60  29 0d 0c da 07 c9 20 32  0d 0c e4 28 64 61 79 31  |)..... 2...(day1|
00002d70  24 3d 22 32 38 2f 22 2b  c3 28 6d 6f 6e 74 68 25  |$="28/"+.(month%|
00002d80  2d 31 29 2b 22 2f 22 2b  c3 28 79 65 61 72 25 29  |-1)+"/"+.(year%)|
00002d90  0d 0c ee 25 64 61 79 32  24 3d 22 31 2f 22 2b c3  |...%day2$="1/"+.|
00002da0  28 6d 6f 6e 74 68 25 29  2b 22 2f 22 2b c3 28 79  |(month%)+"/"+.(y|
00002db0  65 61 72 25 29 0d 0c f8  25 64 61 79 33 24 3d 22  |ear%)...%day3$="|
00002dc0  32 2f 22 2b c3 28 6d 6f  6e 74 68 25 29 2b 22 2f  |2/"+.(month%)+"/|
00002dd0  22 2b c3 28 79 65 61 72  25 29 0d 0d 02 25 64 61  |"+.(year%)...%da|
00002de0  79 34 24 3d 22 33 2f 22  2b c3 28 6d 6f 6e 74 68  |y4$="3/"+.(month|
00002df0  25 29 2b 22 2f 22 2b c3  28 79 65 61 72 25 29 0d  |%)+"/"+.(year%).|
00002e00  0d 0c 25 64 61 79 35 24  3d 22 34 2f 22 2b c3 28  |..%day5$="4/"+.(|
00002e10  6d 6f 6e 74 68 25 29 2b  22 2f 22 2b c3 28 79 65  |month%)+"/"+.(ye|
00002e20  61 72 25 29 0d 0d 16 25  64 61 79 36 24 3d 22 35  |ar%)...%day6$="5|
00002e30  2f 22 2b c3 28 6d 6f 6e  74 68 25 29 2b 22 2f 22  |/"+.(month%)+"/"|
00002e40  2b c3 28 79 65 61 72 25  29 0d 0d 20 25 64 61 79  |+.(year%).. %day|
00002e50  37 24 3d 22 36 2f 22 2b  c3 28 6d 6f 6e 74 68 25  |7$="6/"+.(month%|
00002e60  29 2b 22 2f 22 2b c3 28  79 65 61 72 25 29 0d 0d  |)+"/"+.(year%)..|
00002e70  2a 07 c9 20 30 0d 0d 34  1d 64 61 79 31 24 3d 22  |*.. 0..4.day1$="|
00002e80  33 31 2f 31 32 2f 22 2b  c3 28 79 65 61 72 25 2d  |31/12/"+.(year%-|
00002e90  31 29 0d 0d 3e 25 64 61  79 32 24 3d 22 31 2f 22  |1)..>%day2$="1/"|
00002ea0  2b c3 28 6d 6f 6e 74 68  25 29 2b 22 2f 22 2b c3  |+.(month%)+"/"+.|
00002eb0  28 79 65 61 72 25 29 0d  0d 48 25 64 61 79 33 24  |(year%)..H%day3$|
00002ec0  3d 22 32 2f 22 2b c3 28  6d 6f 6e 74 68 25 29 2b  |="2/"+.(month%)+|
00002ed0  22 2f 22 2b c3 28 79 65  61 72 25 29 0d 0d 52 25  |"/"+.(year%)..R%|
00002ee0  64 61 79 34 24 3d 22 33  2f 22 2b c3 28 6d 6f 6e  |day4$="3/"+.(mon|
00002ef0  74 68 25 29 2b 22 2f 22  2b c3 28 79 65 61 72 25  |th%)+"/"+.(year%|
00002f00  29 0d 0d 5c 25 64 61 79  35 24 3d 22 34 2f 22 2b  |)..\%day5$="4/"+|
00002f10  c3 28 6d 6f 6e 74 68 25  29 2b 22 2f 22 2b c3 28  |.(month%)+"/"+.(|
00002f20  79 65 61 72 25 29 0d 0d  66 25 64 61 79 36 24 3d  |year%)..f%day6$=|
00002f30  22 35 2f 22 2b c3 28 6d  6f 6e 74 68 25 29 2b 22  |"5/"+.(month%)+"|
00002f40  2f 22 2b c3 28 79 65 61  72 25 29 0d 0d 70 25 64  |/"+.(year%)..p%d|
00002f50  61 79 37 24 3d 22 36 2f  22 2b c3 28 6d 6f 6e 74  |ay7$="6/"+.(mont|
00002f60  68 25 29 2b 22 2f 22 2b  c3 28 79 65 61 72 25 29  |h%)+"/"+.(year%)|
00002f70  0d 0d 7a 05 cb 0d 0d 84  05 7f 0d 0d 8e 2e 64 61  |..z...........da|
00002f80  79 31 24 3d c3 28 64 61  79 25 2d 36 29 2b 22 2f  |y1$=.(day%-6)+"/|
00002f90  22 2b c3 28 6d 6f 6e 74  68 25 29 2b 22 2f 22 2b  |"+.(month%)+"/"+|
00002fa0  c3 28 79 65 61 72 25 29  0d 0d 98 2e 64 61 79 32  |.(year%)....day2|
00002fb0  24 3d c3 28 64 61 79 25  2d 35 29 2b 22 2f 22 2b  |$=.(day%-5)+"/"+|
00002fc0  c3 28 6d 6f 6e 74 68 25  29 2b 22 2f 22 2b c3 28  |.(month%)+"/"+.(|
00002fd0  79 65 61 72 25 29 0d 0d  a2 2e 64 61 79 33 24 3d  |year%)....day3$=|
00002fe0  c3 28 64 61 79 25 2d 34  29 2b 22 2f 22 2b c3 28  |.(day%-4)+"/"+.(|
00002ff0  6d 6f 6e 74 68 25 29 2b  22 2f 22 2b c3 28 79 65  |month%)+"/"+.(ye|
00003000  61 72 25 29 0d 0d ac 2e  64 61 79 34 24 3d c3 28  |ar%)....day4$=.(|
00003010  64 61 79 25 2d 33 29 2b  22 2f 22 2b c3 28 6d 6f  |day%-3)+"/"+.(mo|
00003020  6e 74 68 25 29 2b 22 2f  22 2b c3 28 79 65 61 72  |nth%)+"/"+.(year|
00003030  25 29 0d 0d b6 2e 64 61  79 35 24 3d c3 28 64 61  |%)....day5$=.(da|
00003040  79 25 2d 32 29 2b 22 2f  22 2b c3 28 6d 6f 6e 74  |y%-2)+"/"+.(mont|
00003050  68 25 29 2b 22 2f 22 2b  c3 28 79 65 61 72 25 29  |h%)+"/"+.(year%)|
00003060  0d 0d c0 2e 64 61 79 36  24 3d c3 28 64 61 79 25  |....day6$=.(day%|
00003070  2d 31 29 2b 22 2f 22 2b  c3 28 6d 6f 6e 74 68 25  |-1)+"/"+.(month%|
00003080  29 2b 22 2f 22 2b c3 28  79 65 61 72 25 29 0d 0d  |)+"/"+.(year%)..|
00003090  ca 2c 64 61 79 37 24 3d  c3 28 64 61 79 25 29 2b  |.,day7$=.(day%)+|
000030a0  22 2f 22 2b c3 28 6d 6f  6e 74 68 25 29 2b 22 2f  |"/"+.(month%)+"/|
000030b0  22 2b c3 28 79 65 61 72  25 29 0d 0d d4 05 cb 0d  |"+.(year%)......|
000030c0  0d de 05 e1 0d 0d e8 05  3a 0d 0d f2 14 dd f2 70  |........:......p|
000030d0  72 65 5f 70 6f 6c 6c 5f  65 72 72 6f 72 0d 0d fc  |re_poll_error...|
000030e0  13 f1 20 f6 24 2b 22 20  40 20 22 2b c3 28 9e 29  |.. .$+" @ "+.(.)|
000030f0  0d 0e 06 09 ee 20 85 20  87 0d 0e 10 05 e1 0d 0e  |..... . ........|
00003100  1a 05 3a 0d 0e 24 0b dd  f2 65 72 72 6f 72 0d 0e  |..:..$...error..|
00003110  2e 0b ef 20 33 3a d9 23  30 0d 0e 38 5a c8 99 20  |... 3:.#0..8Z.. |
00003120  22 57 69 6d 70 45 78 74  5f 43 6f 6e 74 72 6f 6c  |"WimpExt_Control|
00003130  49 6d 6d 65 64 69 61 74  65 22 2c 2c 32 2c 22 4d  |Immediate",,2,"M|
00003140  65 73 73 61 67 65 20 46  72 6f 6d 20 56 69 64 65  |essage From Vide|
00003150  6f 20 49 6e 64 65 78 22  2c f6 24 2c 62 75 74 5f  |o Index",.$,but_|
00003160  6f 6b 71 75 69 74 25 2c  30 20 b8 20 62 75 74 74  |okquit%,0 . butt|
00003170  6f 6e 25 0d 0e 42 14 e7  20 62 75 74 74 6f 6e 25  |on%..B.. button%|
00003180  3c 3e 33 20 8c 20 e1 0d  0e 4c 05 e0 0d 0e 56 05  |<>3 . ...L....V.|
00003190  3a 0d 0e 60 13 dd f2 6f  70 65 6e 28 77 69 6e 64  |:..`...open(wind|
000031a0  6f 77 25 29 0d 0e 6a 4e  21 71 25 3d 77 69 6e 64  |ow%)..jN!q%=wind|
000031b0  6f 77 25 3a c8 99 20 22  57 69 6d 70 5f 47 65 74  |ow%:.. "Wimp_Get|
000031c0  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 71 25  |WindowState",,q%|
000031d0  3a 71 25 21 32 38 3d 2d  31 3a c8 99 20 22 57 69  |:q%!28=-1:.. "Wi|
000031e0  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
000031f0  71 25 0d 0e 74 05 e1 0d  0e 7e 05 3a 0d 0e 88 14  |q%..t....~.:....|
00003200  dd f2 63 6c 6f 73 65 28  77 69 6e 64 6f 77 25 29  |..close(window%)|
00003210  0d 0e 92 29 21 71 25 3d  77 69 6e 64 6f 77 25 3a  |...)!q%=window%:|
00003220  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |.. "Wimp_CloseWi|
00003230  6e 64 6f 77 22 2c 2c 71  25 0d 0e 9c 05 e1 0d 0e  |ndow",,q%.......|
00003240  a6 05 3a 0d 0e b0 38 dd  f2 63 68 65 63 6b 5f 6d  |..:...8..check_m|
00003250  6f 75 73 65 28 6d 6f 75  73 65 78 25 2c 6d 6f 75  |ouse(mousex%,mou|
00003260  73 65 79 25 2c 62 75 74  74 6f 6e 25 2c 77 69 6e  |sey%,button%,win|
00003270  64 6f 77 25 2c 69 63 6f  6e 25 29 0d 0e ba 10 c8  |dow%,icon%).....|
00003280  8e 20 77 69 6e 64 6f 77  25 20 ca 0d 0e c4 6a c9  |. window% ....j.|
00003290  20 2d 32 3a e7 20 62 75  74 74 6f 6e 25 3d 32 20  | -2:. button%=2 |
000032a0  8c 20 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |. .. "Wimp_Creat|
000032b0  65 4d 65 6e 75 22 2c 2c  69 63 6f 6e 62 61 72 6d  |eMenu",,iconbarm|
000032c0  65 6e 75 25 2c 6d 6f 75  73 65 78 25 2d 34 38 2c  |enu%,mousex%-48,|
000032d0  39 36 2b 28 34 2a 34 34  29 2b 32 34 3a 73 65 6c  |96+(4*44)+24:sel|
000032e0  65 63 74 6d 65 6e 75 25  3d 69 63 6f 6e 62 61 72  |ectmenu%=iconbar|
000032f0  6d 65 6e 75 25 0d 0e ce  18 e7 20 28 62 75 74 74  |menu%..... (butt|
00003300  6f 6e 25 20 80 20 35 29  3c 3e 30 20 8c 0d 0e d8  |on% . 5)<>0 ....|
00003310  45 f2 6f 70 65 6e 28 76  69 64 65 6f 5f 69 6e 64  |E.open(video_ind|
00003320  65 78 25 29 3a f2 6f 70  65 6e 28 76 69 64 65 6f  |ex%):.open(video|
00003330  5f 62 61 63 6b 74 72 61  63 6b 73 25 29 3a f2 6f  |_backtracks%):.o|
00003340  70 65 6e 28 76 69 64 65  6f 5f 74 72 61 63 6b 73  |pen(video_tracks|
00003350  25 29 0d 0e e2 43 f2 74  72 61 63 6b 73 5f 6d 6f  |%)...C.tracks_mo|
00003360  76 65 5f 63 61 72 65 74  28 76 69 64 65 6f 5f 74  |ve_caret(video_t|
00003370  72 61 63 6b 73 25 2c 31  29 3a f2 6d 6f 76 65 5f  |racks%,1):.move_|
00003380  63 61 72 65 74 28 76 69  64 65 6f 5f 69 6e 64 65  |caret(video_inde|
00003390  78 25 2c 36 29 0d 0e ec  05 cd 0d 0e f6 13 c9 20  |x%,6).......... |
000033a0  76 69 64 65 6f 5f 74 72  61 63 6b 73 25 0d 0f 00  |video_tracks%...|
000033b0  34 e7 20 62 75 74 74 6f  6e 25 3d 34 20 84 20 62  |4. button%=4 . b|
000033c0  75 74 74 6f 6e 25 3d 32  20 84 20 62 75 74 74 6f  |utton%=2 . butto|
000033d0  6e 25 3d 31 20 8c 20 c8  8e 20 69 63 6f 6e 25 20  |n%=1 . .. icon% |
000033e0  ca 0d 0f 0a 24 c9 20 39  31 2c 39 32 2c 39 33 2c  |....$. 91,92,93,|
000033f0  39 34 2c 39 35 2c 39 36  2c 39 37 2c 39 38 2c 39  |94,95,96,97,98,9|
00003400  39 2c 31 30 30 0d 0f 14  7e c8 99 20 22 57 69 6d  |9,100...~.. "Wim|
00003410  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 63  |p_CreateMenu",,c|
00003420  61 74 65 67 6f 72 79 6d  65 6e 75 25 2c 6d 6f 75  |ategorymenu%,mou|
00003430  73 65 78 25 2d 34 38 2c  6d 6f 75 73 65 79 25 2b  |sex%-48,mousey%+|
00003440  31 30 3a 73 65 6c 65 63  74 6d 65 6e 75 25 3d 63  |10:selectmenu%=c|
00003450  61 74 65 67 6f 72 79 6d  65 6e 75 25 3a 73 65 6c  |ategorymenu%:sel|
00003460  65 63 74 77 69 6e 64 6f  77 25 3d 76 69 64 65 6f  |ectwindow%=video|
00003470  5f 74 72 61 63 6b 73 25  3a c8 8e 20 69 63 6f 6e  |_tracks%:.. icon|
00003480  25 20 ca 0d 0f 1e 16 c9  20 39 31 3a 73 65 6c 65  |% ...... 91:sele|
00003490  63 74 69 63 6f 6e 25 3d  32 0d 0f 28 17 c9 20 39  |cticon%=2..(.. 9|
000034a0  32 3a 73 65 6c 65 63 74  69 63 6f 6e 25 3d 31 31  |2:selecticon%=11|
000034b0  0d 0f 32 17 c9 20 39 33  3a 73 65 6c 65 63 74 69  |..2.. 93:selecti|
000034c0  63 6f 6e 25 3d 32 30 0d  0f 3c 17 c9 20 39 34 3a  |con%=20..<.. 94:|
000034d0  73 65 6c 65 63 74 69 63  6f 6e 25 3d 32 39 0d 0f  |selecticon%=29..|
000034e0  46 17 c9 20 39 35 3a 73  65 6c 65 63 74 69 63 6f  |F.. 95:selectico|
000034f0  6e 25 3d 33 38 0d 0f 50  17 c9 20 39 36 3a 73 65  |n%=38..P.. 96:se|
00003500  6c 65 63 74 69 63 6f 6e  25 3d 34 37 0d 0f 5a 17  |lecticon%=47..Z.|
00003510  c9 20 39 37 3a 73 65 6c  65 63 74 69 63 6f 6e 25  |. 97:selecticon%|
00003520  3d 35 36 0d 0f 64 17 c9  20 39 38 3a 73 65 6c 65  |=56..d.. 98:sele|
00003530  63 74 69 63 6f 6e 25 3d  36 35 0d 0f 6e 17 c9 20  |cticon%=65..n.. |
00003540  39 39 3a 73 65 6c 65 63  74 69 63 6f 6e 25 3d 37  |99:selecticon%=7|
00003550  34 0d 0f 78 18 c9 20 31  30 30 3a 73 65 6c 65 63  |4..x.. 100:selec|
00003560  74 69 63 6f 6e 25 3d 38  33 0d 0f 82 05 cb 0d 0f  |ticon%=83.......|
00003570  8c 2d c9 20 31 30 31 2c  31 30 32 2c 31 30 33 2c  |.-. 101,102,103,|
00003580  31 30 34 2c 31 30 35 2c  31 30 36 2c 31 30 37 2c  |104,105,106,107,|
00003590  31 30 38 2c 31 30 39 2c  31 31 30 0d 0f 96 60 c8  |108,109,110...`.|
000035a0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
000035b0  6e 75 22 2c 2c 63 68 61  6e 6e 65 6c 6d 65 6e 75  |nu",,channelmenu|
000035c0  25 2c 6d 6f 75 73 65 78  25 2d 34 38 2c 6d 6f 75  |%,mousex%-48,mou|
000035d0  73 65 79 25 2b 31 30 3a  73 65 6c 65 63 74 6d 65  |sey%+10:selectme|
000035e0  6e 75 25 3d 63 68 61 6e  6e 65 6c 6d 65 6e 75 25  |nu%=channelmenu%|
000035f0  3a c8 8e 20 69 63 6f 6e  25 20 ca 0d 0f a0 17 c9  |:.. icon% ......|
00003600  20 31 30 31 3a 73 65 6c  65 63 74 69 63 6f 6e 25  | 101:selecticon%|
00003610  3d 33 0d 0f aa 18 c9 20  31 30 32 3a 73 65 6c 65  |=3..... 102:sele|
00003620  63 74 69 63 6f 6e 25 3d  31 32 0d 0f b4 18 c9 20  |cticon%=12..... |
00003630  31 30 33 3a 73 65 6c 65  63 74 69 63 6f 6e 25 3d  |103:selecticon%=|
00003640  32 31 0d 0f be 18 c9 20  31 30 34 3a 73 65 6c 65  |21..... 104:sele|
00003650  63 74 69 63 6f 6e 25 3d  33 30 0d 0f c8 18 c9 20  |cticon%=30..... |
00003660  31 30 35 3a 73 65 6c 65  63 74 69 63 6f 6e 25 3d  |105:selecticon%=|
00003670  33 39 0d 0f d2 18 c9 20  31 30 36 3a 73 65 6c 65  |39..... 106:sele|
00003680  63 74 69 63 6f 6e 25 3d  34 38 0d 0f dc 18 c9 20  |cticon%=48..... |
00003690  31 30 37 3a 73 65 6c 65  63 74 69 63 6f 6e 25 3d  |107:selecticon%=|
000036a0  35 37 0d 0f e6 18 c9 20  31 30 38 3a 73 65 6c 65  |57..... 108:sele|
000036b0  63 74 69 63 6f 6e 25 3d  36 36 0d 0f f0 18 c9 20  |cticon%=66..... |
000036c0  31 30 39 3a 73 65 6c 65  63 74 69 63 6f 6e 25 3d  |109:selecticon%=|
000036d0  37 35 0d 0f fa 18 c9 20  31 31 30 3a 73 65 6c 65  |75..... 110:sele|
000036e0  63 74 69 63 6f 6e 25 3d  38 34 0d 10 04 05 cb 0d  |cticon%=84......|
000036f0  10 0e 2d c9 20 31 31 31  2c 31 31 32 2c 31 31 33  |..-. 111,112,113|
00003700  2c 31 31 34 2c 31 31 35  2c 31 31 36 2c 31 31 37  |,114,115,116,117|
00003710  2c 31 31 38 2c 31 31 39  2c 31 32 30 0d 10 18 5a  |,118,119,120...Z|
00003720  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
00003730  65 6e 75 22 2c 2c 64 61  74 65 6d 65 6e 75 25 2c  |enu",,datemenu%,|
00003740  6d 6f 75 73 65 78 25 2d  34 38 2c 6d 6f 75 73 65  |mousex%-48,mouse|
00003750  79 25 2b 31 30 3a 73 65  6c 65 63 74 6d 65 6e 75  |y%+10:selectmenu|
00003760  25 3d 64 61 74 65 6d 65  6e 75 25 3a c8 8e 20 69  |%=datemenu%:.. i|
00003770  63 6f 6e 25 20 ca 0d 10  22 17 c9 20 31 31 31 3a  |con% ...".. 111:|
00003780  73 65 6c 65 63 74 69 63  6f 6e 25 3d 34 0d 10 2c  |selecticon%=4..,|
00003790  18 c9 20 31 31 32 3a 73  65 6c 65 63 74 69 63 6f  |.. 112:selectico|
000037a0  6e 25 3d 31 33 0d 10 36  18 c9 20 31 31 33 3a 73  |n%=13..6.. 113:s|
000037b0  65 6c 65 63 74 69 63 6f  6e 25 3d 32 32 0d 10 40  |electicon%=22..@|
000037c0  18 c9 20 31 31 34 3a 73  65 6c 65 63 74 69 63 6f  |.. 114:selectico|
000037d0  6e 25 3d 33 31 0d 10 4a  18 c9 20 31 31 35 3a 73  |n%=31..J.. 115:s|
000037e0  65 6c 65 63 74 69 63 6f  6e 25 3d 34 30 0d 10 54  |electicon%=40..T|
000037f0  18 c9 20 31 31 36 3a 73  65 6c 65 63 74 69 63 6f  |.. 116:selectico|
00003800  6e 25 3d 34 39 0d 10 5e  18 c9 20 31 31 37 3a 73  |n%=49..^.. 117:s|
00003810  65 6c 65 63 74 69 63 6f  6e 25 3d 35 38 0d 10 68  |electicon%=58..h|
00003820  18 c9 20 31 31 38 3a 73  65 6c 65 63 74 69 63 6f  |.. 118:selectico|
00003830  6e 25 3d 36 37 0d 10 72  18 c9 20 31 31 39 3a 73  |n%=67..r.. 119:s|
00003840  65 6c 65 63 74 69 63 6f  6e 25 3d 37 36 0d 10 7c  |electicon%=76..||
00003850  18 c9 20 31 32 30 3a 73  65 6c 65 63 74 69 63 6f  |.. 120:selectico|
00003860  6e 25 3d 38 35 0d 10 86  05 cb 0d 10 90 2d c9 20  |n%=85........-. |
00003870  31 32 31 2c 31 32 32 2c  31 32 33 2c 31 32 34 2c  |121,122,123,124,|
00003880  31 32 35 2c 31 32 36 2c  31 32 37 2c 31 32 38 2c  |125,126,127,128,|
00003890  31 32 39 2c 31 33 30 0d  10 9a 60 c8 99 20 22 57  |129,130...`.. "W|
000038a0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
000038b0  2c 71 75 61 6c 69 74 79  6d 65 6e 75 25 2c 6d 6f  |,qualitymenu%,mo|
000038c0  75 73 65 78 25 2d 34 38  2c 6d 6f 75 73 65 79 25  |usex%-48,mousey%|
000038d0  2b 31 30 3a 73 65 6c 65  63 74 6d 65 6e 75 25 3d  |+10:selectmenu%=|
000038e0  71 75 61 6c 69 74 79 6d  65 6e 75 25 3a c8 8e 20  |qualitymenu%:.. |
000038f0  69 63 6f 6e 25 20 ca 0d  10 a4 17 c9 20 31 32 31  |icon% ...... 121|
00003900  3a 73 65 6c 65 63 74 69  63 6f 6e 25 3d 35 0d 10  |:selecticon%=5..|
00003910  ae 18 c9 20 31 32 32 3a  73 65 6c 65 63 74 69 63  |... 122:selectic|
00003920  6f 6e 25 3d 31 34 0d 10  b8 18 c9 20 31 32 33 3a  |on%=14..... 123:|
00003930  73 65 6c 65 63 74 69 63  6f 6e 25 3d 32 33 0d 10  |selecticon%=23..|
00003940  c2 18 c9 20 31 32 34 3a  73 65 6c 65 63 74 69 63  |... 124:selectic|
00003950  6f 6e 25 3d 33 32 0d 10  cc 18 c9 20 31 32 35 3a  |on%=32..... 125:|
00003960  73 65 6c 65 63 74 69 63  6f 6e 25 3d 34 31 0d 10  |selecticon%=41..|
00003970  d6 18 c9 20 31 32 36 3a  73 65 6c 65 63 74 69 63  |... 126:selectic|
00003980  6f 6e 25 3d 35 30 0d 10  e0 18 c9 20 31 32 37 3a  |on%=50..... 127:|
00003990  73 65 6c 65 63 74 69 63  6f 6e 25 3d 35 39 0d 10  |selecticon%=59..|
000039a0  ea 18 c9 20 31 32 38 3a  73 65 6c 65 63 74 69 63  |... 128:selectic|
000039b0  6f 6e 25 3d 36 38 0d 10  f4 18 c9 20 31 32 39 3a  |on%=68..... 129:|
000039c0  73 65 6c 65 63 74 69 63  6f 6e 25 3d 37 37 0d 10  |selecticon%=77..|
000039d0  fe 18 c9 20 31 33 30 3a  73 65 6c 65 63 74 69 63  |... 130:selectic|
000039e0  6f 6e 25 3d 38 36 0d 11  08 05 cb 0d 11 12 2d c9  |on%=86........-.|
000039f0  20 31 33 31 2c 31 33 32  2c 31 33 33 2c 31 33 34  | 131,132,133,134|
00003a00  2c 31 33 35 2c 31 33 36  2c 31 33 37 2c 31 33 38  |,135,136,137,138|
00003a10  2c 31 33 39 2c 31 34 30  0d 11 1c 66 c8 99 20 22  |,139,140...f.. "|
00003a20  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00003a30  2c 2c 70 72 6f 67 6c 65  6e 67 74 68 6d 65 6e 75  |,,proglengthmenu|
00003a40  25 2c 6d 6f 75 73 65 78  25 2d 34 38 2c 6d 6f 75  |%,mousex%-48,mou|
00003a50  73 65 79 25 2b 31 30 3a  73 65 6c 65 63 74 6d 65  |sey%+10:selectme|
00003a60  6e 75 25 3d 70 72 6f 67  6c 65 6e 67 74 68 6d 65  |nu%=proglengthme|
00003a70  6e 75 25 3a c8 8e 20 69  63 6f 6e 25 20 ca 0d 11  |nu%:.. icon% ...|
00003a80  26 17 c9 20 31 33 31 3a  73 65 6c 65 63 74 69 63  |&.. 131:selectic|
00003a90  6f 6e 25 3d 36 0d 11 30  18 c9 20 31 33 32 3a 73  |on%=6..0.. 132:s|
00003aa0  65 6c 65 63 74 69 63 6f  6e 25 3d 31 35 0d 11 3a  |electicon%=15..:|
00003ab0  18 c9 20 31 33 33 3a 73  65 6c 65 63 74 69 63 6f  |.. 133:selectico|
00003ac0  6e 25 3d 32 34 0d 11 44  18 c9 20 31 33 34 3a 73  |n%=24..D.. 134:s|
00003ad0  65 6c 65 63 74 69 63 6f  6e 25 3d 33 33 0d 11 4e  |electicon%=33..N|
00003ae0  18 c9 20 31 33 35 3a 73  65 6c 65 63 74 69 63 6f  |.. 135:selectico|
00003af0  6e 25 3d 34 32 0d 11 58  18 c9 20 31 33 36 3a 73  |n%=42..X.. 136:s|
00003b00  65 6c 65 63 74 69 63 6f  6e 25 3d 35 31 0d 11 62  |electicon%=51..b|
00003b10  18 c9 20 31 33 37 3a 73  65 6c 65 63 74 69 63 6f  |.. 137:selectico|
00003b20  6e 25 3d 36 30 0d 11 6c  18 c9 20 31 33 38 3a 73  |n%=60..l.. 138:s|
00003b30  65 6c 65 63 74 69 63 6f  6e 25 3d 36 39 0d 11 76  |electicon%=69..v|
00003b40  18 c9 20 31 33 39 3a 73  65 6c 65 63 74 69 63 6f  |.. 139:selectico|
00003b50  6e 25 3d 37 38 0d 11 80  18 c9 20 31 34 30 3a 73  |n%=78..... 140:s|
00003b60  65 6c 65 63 74 69 63 6f  6e 25 3d 38 37 0d 11 8a  |electicon%=87...|
00003b70  05 cb 0d 11 94 2d c9 20  31 34 31 2c 31 34 32 2c  |.....-. 141,142,|
00003b80  31 34 33 2c 31 34 34 2c  31 34 35 2c 31 34 36 2c  |143,144,145,146,|
00003b90  31 34 37 2c 31 34 38 2c  31 34 39 2c 31 35 30 0d  |147,148,149,150.|
00003ba0  11 9e 5a c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..Z.. "Wimp_Crea|
00003bb0  74 65 4d 65 6e 75 22 2c  2c 73 70 6c 70 6d 65 6e  |teMenu",,splpmen|
00003bc0  75 25 2c 6d 6f 75 73 65  78 25 2d 34 38 2c 6d 6f  |u%,mousex%-48,mo|
00003bd0  75 73 65 79 25 2b 31 30  3a 73 65 6c 65 63 74 6d  |usey%+10:selectm|
00003be0  65 6e 75 25 3d 73 70 6c  70 6d 65 6e 75 25 3a c8  |enu%=splpmenu%:.|
00003bf0  8e 20 69 63 6f 6e 25 20  ca 0d 11 a8 17 c9 20 31  |. icon% ...... 1|
00003c00  34 31 3a 73 65 6c 65 63  74 69 63 6f 6e 25 3d 39  |41:selecticon%=9|
00003c10  0d 11 b2 18 c9 20 31 34  32 3a 73 65 6c 65 63 74  |..... 142:select|
00003c20  69 63 6f 6e 25 3d 31 38  0d 11 bc 18 c9 20 31 34  |icon%=18..... 14|
00003c30  33 3a 73 65 6c 65 63 74  69 63 6f 6e 25 3d 32 37  |3:selecticon%=27|
00003c40  0d 11 c6 18 c9 20 31 34  34 3a 73 65 6c 65 63 74  |..... 144:select|
00003c50  69 63 6f 6e 25 3d 33 36  0d 11 d0 18 c9 20 31 34  |icon%=36..... 14|
00003c60  35 3a 73 65 6c 65 63 74  69 63 6f 6e 25 3d 34 35  |5:selecticon%=45|
00003c70  0d 11 da 18 c9 20 31 34  36 3a 73 65 6c 65 63 74  |..... 146:select|
00003c80  69 63 6f 6e 25 3d 35 34  0d 11 e4 18 c9 20 31 34  |icon%=54..... 14|
00003c90  37 3a 73 65 6c 65 63 74  69 63 6f 6e 25 3d 36 33  |7:selecticon%=63|
00003ca0  0d 11 ee 18 c9 20 31 34  38 3a 73 65 6c 65 63 74  |..... 148:select|
00003cb0  69 63 6f 6e 25 3d 37 32  0d 11 f8 18 c9 20 31 34  |icon%=72..... 14|
00003cc0  39 3a 73 65 6c 65 63 74  69 63 6f 6e 25 3d 38 31  |9:selecticon%=81|
00003cd0  0d 12 02 18 c9 20 31 35  30 3a 73 65 6c 65 63 74  |..... 150:select|
00003ce0  69 63 6f 6e 25 3d 39 30  0d 12 0c 05 cb 0d 12 16  |icon%=90........|
00003cf0  51 7f 3a c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |Q.:.. "Wimp_Crea|
00003d00  74 65 4d 65 6e 75 22 2c  2c 6d 61 69 6e 6d 65 6e  |teMenu",,mainmen|
00003d10  75 25 2c 6d 6f 75 73 65  78 25 2d 34 38 2c 6d 6f  |u%,mousex%-48,mo|
00003d20  75 73 65 79 25 2b 31 30  3a 73 65 6c 65 63 74 6d  |usey%+10:selectm|
00003d30  65 6e 75 25 3d 6d 61 69  6e 6d 65 6e 75 25 0d 12  |enu%=mainmenu%..|
00003d40  20 05 cb 0d 12 2a 21 e7  20 28 62 75 74 74 6f 6e  | ....*!. (button|
00003d50  25 20 80 20 35 29 3c 3e  30 20 c8 8e 20 69 63 6f  |% . 5)<>0 .. ico|
00003d60  6e 25 20 ca 0d 12 34 22  c9 20 39 2c 31 38 2c 32  |n% ...4". 9,18,2|
00003d70  37 2c 33 36 2c 34 35 2c  35 34 2c 36 33 2c 37 32  |7,36,45,54,63,72|
00003d80  2c 38 31 2c 39 30 0d 12  3e 3c 73 70 65 65 64 25  |,81,90..><speed%|
00003d90  28 69 63 6f 6e 25 2f 39  29 2b 3d 31 3a e7 20 73  |(icon%/9)+=1:. s|
00003da0  70 65 65 64 25 28 69 63  6f 6e 25 2f 39 29 3e 32  |peed%(icon%/9)>2|
00003db0  20 73 70 65 65 64 25 28  69 63 6f 6e 25 2f 39 29  | speed%(icon%/9)|
00003dc0  3d 31 0d 12 48 28 f2 73  70 65 65 64 5f 63 68 61  |=1..H(.speed_cha|
00003dd0  6e 67 65 28 69 63 6f 6e  25 2c 73 70 65 65 64 25  |nge(icon%,speed%|
00003de0  28 69 63 6f 6e 25 2f 39  29 29 0d 12 52 05 cb 0d  |(icon%/9))..R...|
00003df0  12 5c 12 c9 20 76 69 64  65 6f 5f 69 6e 64 65 78  |.\.. video_index|
00003e00  25 0d 12 66 1c e7 20 62  75 74 74 6f 6e 25 3d 32  |%..f.. button%=2|
00003e10  20 8c 20 c8 8e 20 69 63  6f 6e 25 20 ca 0d 12 70  | . .. icon% ...p|
00003e20  58 c9 20 31 30 3a c8 99  20 22 57 69 6d 70 5f 43  |X. 10:.. "Wimp_C|
00003e30  72 65 61 74 65 4d 65 6e  75 22 2c 2c 66 6f 72 6d  |reateMenu",,form|
00003e40  61 74 6d 65 6e 75 25 2c  6d 6f 75 73 65 78 25 2d  |atmenu%,mousex%-|
00003e50  34 38 2c 6d 6f 75 73 65  79 25 2b 31 30 3a 73 65  |48,mousey%+10:se|
00003e60  6c 65 63 74 6d 65 6e 75  25 3d 66 6f 72 6d 61 74  |lectmenu%=format|
00003e70  6d 65 6e 75 25 0d 12 7a  54 c9 20 31 31 3a c8 99  |menu%..zT. 11:..|
00003e80  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
00003e90  75 22 2c 2c 73 69 7a 65  6d 65 6e 75 25 2c 6d 6f  |u",,sizemenu%,mo|
00003ea0  75 73 65 78 25 2d 34 38  2c 6d 6f 75 73 65 79 25  |usex%-48,mousey%|
00003eb0  2b 31 30 3a 73 65 6c 65  63 74 6d 65 6e 75 25 3d  |+10:selectmenu%=|
00003ec0  73 69 7a 65 6d 65 6e 75  25 0d 12 84 54 c9 20 31  |sizemenu%...T. 1|
00003ed0  32 3a c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |2:.. "Wimp_Creat|
00003ee0  65 4d 65 6e 75 22 2c 2c  74 79 70 65 6d 65 6e 75  |eMenu",,typemenu|
00003ef0  25 2c 6d 6f 75 73 65 78  25 2d 34 38 2c 6d 6f 75  |%,mousex%-48,mou|
00003f00  73 65 79 25 2b 31 30 3a  73 65 6c 65 63 74 6d 65  |sey%+10:selectme|
00003f10  6e 75 25 3d 74 79 70 65  6d 65 6e 75 25 0d 12 8e  |nu%=typemenu%...|
00003f20  51 7f 3a c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |Q.:.. "Wimp_Crea|
00003f30  74 65 4d 65 6e 75 22 2c  2c 6d 61 69 6e 6d 65 6e  |teMenu",,mainmen|
00003f40  75 25 2c 6d 6f 75 73 65  78 25 2d 34 38 2c 6d 6f  |u%,mousex%-48,mo|
00003f50  75 73 65 79 25 2b 31 30  3a 73 65 6c 65 63 74 6d  |usey%+10:selectm|
00003f60  65 6e 75 25 3d 6d 61 69  6e 6d 65 6e 75 25 0d 12  |enu%=mainmenu%..|
00003f70  98 05 cb 0d 12 a2 21 e7  20 28 62 75 74 74 6f 6e  |......!. (button|
00003f80  25 20 80 20 35 29 3c 3e  30 20 c8 8e 20 69 63 6f  |% . 5)<>0 .. ico|
00003f90  6e 25 20 ca 0d 12 ac 27  c9 20 31 36 3a f2 63 6c  |n% ....'. 16:.cl|
00003fa0  6f 73 65 5f 61 6c 6c 3a  f2 6f 70 65 6e 28 76 69  |ose_all:.open(vi|
00003fb0  64 65 6f 5f 70 72 69 6e  74 25 29 0d 12 b6 2a c9  |deo_print%)...*.|
00003fc0  20 32 32 3a f2 63 6c 6f  73 65 5f 61 6c 6c 3a f2  | 22:.close_all:.|
00003fd0  6f 70 65 6e 28 76 69 64  65 6f 5f 73 61 76 65 62  |open(video_saveb|
00003fe0  6f 78 32 25 29 0d 12 c0  28 c9 20 32 33 3a f2 63  |ox2%)...(. 23:.c|
00003ff0  6c 6f 73 65 5f 61 6c 6c  3a f2 6f 70 65 6e 28 76  |lose_all:.open(v|
00004000  69 64 65 6f 5f 73 65 61  72 63 68 25 29 0d 12 ca  |ideo_search%)...|
00004010  37 c9 20 31 38 3a f2 72  65 61 64 3a f2 72 65 61  |7. 18:.read:.rea|
00004020  64 5f 74 72 61 63 6b 6c  69 73 74 3a 72 65 63 6f  |d_tracklist:reco|
00004030  72 64 5f 6e 75 6d 62 65  72 25 3d 31 3a f2 75 70  |rd_number%=1:.up|
00004040  64 61 74 65 0d 12 d4 39  c9 20 31 37 3a f2 72 65  |date...9. 17:.re|
00004050  61 64 3a f2 72 65 61 64  5f 74 72 61 63 6b 6c 69  |ad:.read_trackli|
00004060  73 74 3a 72 65 63 6f 72  64 5f 6e 75 6d 62 65 72  |st:record_number|
00004070  25 2d 3d 31 30 3a f2 75  70 64 61 74 65 0d 12 de  |%-=10:.update...|
00004080  38 c9 20 31 34 3a f2 72  65 61 64 3a f2 72 65 61  |8. 14:.read:.rea|
00004090  64 5f 74 72 61 63 6b 6c  69 73 74 3a 72 65 63 6f  |d_tracklist:reco|
000040a0  72 64 5f 6e 75 6d 62 65  72 25 2d 3d 31 3a f2 75  |rd_number%-=1:.u|
000040b0  70 64 61 74 65 0d 12 e8  38 c9 20 31 39 3a f2 72  |pdate...8. 19:.r|
000040c0  65 61 64 3a f2 72 65 61  64 5f 74 72 61 63 6b 6c  |ead:.read_trackl|
000040d0  69 73 74 3a 72 65 63 6f  72 64 5f 6e 75 6d 62 65  |ist:record_numbe|
000040e0  72 25 2b 3d 31 3a f2 75  70 64 61 74 65 0d 12 f2  |r%+=1:.update...|
000040f0  39 c9 20 32 30 3a f2 72  65 61 64 3a f2 72 65 61  |9. 20:.read:.rea|
00004100  64 5f 74 72 61 63 6b 6c  69 73 74 3a 72 65 63 6f  |d_tracklist:reco|
00004110  72 64 5f 6e 75 6d 62 65  72 25 2b 3d 31 30 3a f2  |rd_number%+=10:.|
00004120  75 70 64 61 74 65 0d 12  fc 41 c9 20 32 31 3a f2  |update...A. 21:.|
00004130  72 65 61 64 3a f2 72 65  61 64 5f 74 72 61 63 6b  |read:.read_track|
00004140  6c 69 73 74 3a 72 65 63  6f 72 64 5f 6e 75 6d 62  |list:record_numb|
00004150  65 72 25 3d 6d 61 78 5f  72 65 63 6f 72 64 25 3a  |er%=max_record%:|
00004160  f2 75 70 64 61 74 65 0d  13 06 58 c9 20 31 30 3a  |.update...X. 10:|
00004170  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
00004180  65 6e 75 22 2c 2c 66 6f  72 6d 61 74 6d 65 6e 75  |enu",,formatmenu|
00004190  25 2c 6d 6f 75 73 65 78  25 2d 34 38 2c 6d 6f 75  |%,mousex%-48,mou|
000041a0  73 65 79 25 2b 31 30 3a  73 65 6c 65 63 74 6d 65  |sey%+10:selectme|
000041b0  6e 75 25 3d 66 6f 72 6d  61 74 6d 65 6e 75 25 0d  |nu%=formatmenu%.|
000041c0  13 10 54 c9 20 31 31 3a  c8 99 20 22 57 69 6d 70  |..T. 11:.. "Wimp|
000041d0  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 73 69  |_CreateMenu",,si|
000041e0  7a 65 6d 65 6e 75 25 2c  6d 6f 75 73 65 78 25 2d  |zemenu%,mousex%-|
000041f0  34 38 2c 6d 6f 75 73 65  79 25 2b 31 30 3a 73 65  |48,mousey%+10:se|
00004200  6c 65 63 74 6d 65 6e 75  25 3d 73 69 7a 65 6d 65  |lectmenu%=sizeme|
00004210  6e 75 25 0d 13 1a 54 c9  20 31 32 3a c8 99 20 22  |nu%...T. 12:.. "|
00004220  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00004230  2c 2c 74 79 70 65 6d 65  6e 75 25 2c 6d 6f 75 73  |,,typemenu%,mous|
00004240  65 78 25 2d 34 38 2c 6d  6f 75 73 65 79 25 2b 31  |ex%-48,mousey%+1|
00004250  30 3a 73 65 6c 65 63 74  6d 65 6e 75 25 3d 74 79  |0:selectmenu%=ty|
00004260  70 65 6d 65 6e 75 25 0d  13 24 05 cb 0d 13 2e 71  |pemenu%..$.....q|
00004270  c9 20 76 69 64 65 6f 5f  62 61 63 6b 74 72 61 63  |. video_backtrac|
00004280  6b 73 25 3a e7 20 62 75  74 74 6f 6e 25 3d 32 20  |ks%:. button%=2 |
00004290  8c 20 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |. .. "Wimp_Creat|
000042a0  65 4d 65 6e 75 22 2c 2c  6d 61 69 6e 6d 65 6e 75  |eMenu",,mainmenu|
000042b0  25 2c 6d 6f 75 73 65 78  25 2d 34 38 2c 6d 6f 75  |%,mousex%-48,mou|
000042c0  73 65 79 25 2b 31 30 3a  73 65 6c 65 63 74 6d 65  |sey%+10:selectme|
000042d0  6e 75 25 3d 6d 61 69 6e  6d 65 6e 75 25 0d 13 38  |nu%=mainmenu%..8|
000042e0  34 c9 20 76 69 64 65 6f  5f 73 61 76 65 62 6f 78  |4. video_savebox|
000042f0  25 3a e7 20 28 62 75 74  74 6f 6e 25 20 80 20 35  |%:. (button% . 5|
00004300  29 3c 3e 30 20 8c 20 c8  8e 20 69 63 6f 6e 25 20  |)<>0 . .. icon% |
00004310  ca 0d 13 42 20 c9 20 30  3a 73 61 76 65 74 79 70  |...B . 0:savetyp|
00004320  65 24 3d 22 46 46 46 22  3a f2 64 72 61 67 62 6f  |e$="FFF":.dragbo|
00004330  78 0d 13 4c 22 c9 20 32  3a 73 61 76 65 74 79 70  |x..L". 2:savetyp|
00004340  65 24 3d 22 46 46 46 22  3a f2 71 75 69 63 6b 73  |e$="FFF":.quicks|
00004350  61 76 65 0d 13 56 1a c9  20 33 3a 73 61 76 65 61  |ave..V.. 3:savea|
00004360  6c 6c 74 65 78 74 24 3d  22 59 65 73 22 0d 13 60  |lltext$="Yes"..`|
00004370  19 c9 20 34 3a 73 61 76  65 61 6c 6c 74 65 78 74  |.. 4:savealltext|
00004380  24 3d 22 4e 6f 22 0d 13  6a 05 cb 0d 13 74 35 c9  |$="No"..j....t5.|
00004390  20 76 69 64 65 6f 5f 73  61 76 65 62 6f 78 32 25  | video_savebox2%|
000043a0  3a e7 20 28 62 75 74 74  6f 6e 25 20 80 20 35 29  |:. (button% . 5)|
000043b0  3c 3e 30 20 8c 20 c8 8e  20 69 63 6f 6e 25 20 ca  |<>0 . .. icon% .|
000043c0  0d 13 7e 20 c9 20 30 3a  73 61 76 65 74 79 70 65  |..~ . 0:savetype|
000043d0  24 3d 22 45 39 31 22 3a  f2 64 72 61 67 62 6f 78  |$="E91":.dragbox|
000043e0  0d 13 88 22 c9 20 32 3a  73 61 76 65 74 79 70 65  |...". 2:savetype|
000043f0  24 3d 22 45 39 31 22 3a  f2 71 75 69 63 6b 73 61  |$="E91":.quicksa|
00004400  76 65 0d 13 92 05 cb 0d  13 9c 34 c9 20 76 69 64  |ve........4. vid|
00004410  65 6f 5f 6f 70 74 69 6f  6e 73 25 3a e7 20 28 62  |eo_options%:. (b|
00004420  75 74 74 6f 6e 25 20 80  20 35 29 3c 3e 30 20 8c  |utton% . 5)<>0 .|
00004430  20 c8 8e 20 69 63 6f 6e  25 20 ca 0d 13 a6 17 c9  | .. icon% ......|
00004440  20 37 3a 6f 75 74 6c 69  6e 65 66 6f 6e 74 73 25  | 7:outlinefonts%|
00004450  3d 31 0d 13 b0 17 c9 20  38 3a 6f 75 74 6c 69 6e  |=1..... 8:outlin|
00004460  65 66 6f 6e 74 73 25 3d  30 0d 13 ba 47 c9 20 39  |efonts%=0...G. 9|
00004470  3a 6d 61 78 5f 72 65 63  6f 72 64 25 3d 35 30 3a  |:max_record%=50:|
00004480  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 76 69 64  |.update_icon(vid|
00004490  65 6f 5f 69 6e 64 65 78  25 2c 39 2c 22 2f 20 22  |eo_index%,9,"/ "|
000044a0  2b c3 28 6d 61 78 5f 72  65 63 6f 72 64 25 29 29  |+.(max_record%))|
000044b0  0d 13 c4 49 c9 20 31 32  3a 6d 61 78 5f 72 65 63  |...I. 12:max_rec|
000044c0  6f 72 64 25 3d 31 30 30  3a f2 75 70 64 61 74 65  |ord%=100:.update|
000044d0  5f 69 63 6f 6e 28 76 69  64 65 6f 5f 69 6e 64 65  |_icon(video_inde|
000044e0  78 25 2c 39 2c 22 2f 20  22 2b c3 28 6d 61 78 5f  |x%,9,"/ "+.(max_|
000044f0  72 65 63 6f 72 64 25 29  29 0d 13 ce 49 c9 20 31  |record%))...I. 1|
00004500  33 3a 6d 61 78 5f 72 65  63 6f 72 64 25 3d 31 35  |3:max_record%=15|
00004510  30 3a f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 76  |0:.update_icon(v|
00004520  69 64 65 6f 5f 69 6e 64  65 78 25 2c 39 2c 22 2f  |ideo_index%,9,"/|
00004530  20 22 2b c3 28 6d 61 78  5f 72 65 63 6f 72 64 25  | "+.(max_record%|
00004540  29 29 0d 13 d8 49 c9 20  31 34 3a 6d 61 78 5f 72  |))...I. 14:max_r|
00004550  65 63 6f 72 64 25 3d 32  30 30 3a f2 75 70 64 61  |ecord%=200:.upda|
00004560  74 65 5f 69 63 6f 6e 28  76 69 64 65 6f 5f 69 6e  |te_icon(video_in|
00004570  64 65 78 25 2c 39 2c 22  2f 20 22 2b c3 28 6d 61  |dex%,9,"/ "+.(ma|
00004580  78 5f 72 65 63 6f 72 64  25 29 29 0d 13 e2 49 c9  |x_record%))...I.|
00004590  20 31 35 3a 6d 61 78 5f  72 65 63 6f 72 64 25 3d  | 15:max_record%=|
000045a0  32 35 30 3a f2 75 70 64  61 74 65 5f 69 63 6f 6e  |250:.update_icon|
000045b0  28 76 69 64 65 6f 5f 69  6e 64 65 78 25 2c 39 2c  |(video_index%,9,|
000045c0  22 2f 20 22 2b c3 28 6d  61 78 5f 72 65 63 6f 72  |"/ "+.(max_recor|
000045d0  64 25 29 29 0d 13 ec 05  cb 0d 13 f6 38 c9 20 76  |d%))........8. v|
000045e0  69 64 65 6f 5f 6d 61 69  6e 6f 70 74 69 6f 6e 73  |ideo_mainoptions|
000045f0  25 3a e7 20 28 62 75 74  74 6f 6e 25 20 80 20 35  |%:. (button% . 5|
00004600  29 3c 3e 30 20 8c 20 c8  8e 20 69 63 6f 6e 25 20  |)<>0 . .. icon% |
00004610  ca 0d 14 00 55 c9 20 32  3a f2 72 65 61 64 5f 6f  |....U. 2:.read_o|
00004620  70 74 69 6f 6e 73 3a f2  73 61 76 65 5f 6f 70 74  |ptions:.save_opt|
00004630  69 6f 6e 73 3a f2 63 6c  6f 73 65 28 76 69 64 65  |ions:.close(vide|
00004640  6f 5f 6d 61 69 6e 6f 70  74 69 6f 6e 73 25 29 3a  |o_mainoptions%):|
00004650  f2 63 6c 6f 73 65 28 76  69 64 65 6f 5f 6f 70 74  |.close(video_opt|
00004660  69 6f 6e 73 25 29 0d 14  0a 47 c9 20 31 3a f2 72  |ions%)...G. 1:.r|
00004670  65 61 64 5f 6f 70 74 69  6f 6e 73 3a f2 63 6c 6f  |ead_options:.clo|
00004680  73 65 28 76 69 64 65 6f  5f 6d 61 69 6e 6f 70 74  |se(video_mainopt|
00004690  69 6f 6e 73 25 29 3a f2  63 6c 6f 73 65 28 76 69  |ions%):.close(vi|
000046a0  64 65 6f 5f 6f 70 74 69  6f 6e 73 25 29 0d 14 14  |deo_options%)...|
000046b0  05 cb 0d 14 1e 33 c9 20  76 69 64 65 6f 5f 73 65  |.....3. video_se|
000046c0  61 72 63 68 25 3a e7 20  28 62 75 74 74 6f 6e 25  |arch%:. (button%|
000046d0  20 80 20 35 29 3c 3e 30  20 8c 20 c8 8e 20 69 63  | . 5)<>0 . .. ic|
000046e0  6f 6e 25 20 ca 0d 14 28  1a c9 20 33 3a 73 65 61  |on% ...(.. 3:sea|
000046f0  72 63 68 74 79 70 65 24  3d 22 4e 61 6d 65 22 0d  |rchtype$="Name".|
00004700  14 32 1e c9 20 34 3a 73  65 61 72 63 68 74 79 70  |.2.. 4:searchtyp|
00004710  65 24 3d 22 43 61 74 65  67 6f 72 79 22 0d 14 3c  |e$="Category"..<|
00004720  2a c9 20 35 3a f2 63 6c  65 61 72 5f 73 65 61 72  |*. 5:.clear_sear|
00004730  63 68 3a f2 73 65 61 72  63 68 28 73 65 61 72 63  |ch:.search(searc|
00004740  68 74 79 70 65 24 29 0d  14 46 50 c9 20 37 3a f2  |htype$)..FP. 7:.|
00004750  75 70 64 61 74 65 5f 69  63 6f 6e 28 76 69 64 65  |update_icon(vide|
00004760  6f 5f 73 65 61 72 63 68  25 2c 31 2c 73 65 61 72  |o_search%,1,sear|
00004770  63 68 73 74 72 69 6e 67  24 29 3a f2 6d 6f 76 65  |chstring$):.move|
00004780  5f 63 61 72 65 74 28 76  69 64 65 6f 5f 73 65 61  |_caret(video_sea|
00004790  72 63 68 25 2c 31 29 0d  14 50 3f c9 20 39 3a e7  |rch%,1)..P?. 9:.|
000047a0  20 63 61 73 65 73 65 6e  73 65 24 3d 22 59 65 73  | casesense$="Yes|
000047b0  22 20 8c 20 63 61 73 65  73 65 6e 73 65 24 3d 22  |" . casesense$="|
000047c0  4e 6f 22 20 8b 20 63 61  73 65 73 65 6e 73 65 24  |No" . casesense$|
000047d0  3d 22 59 65 73 22 0d 14  5a 08 c9 20 31 30 0d 14  |="Yes"..Z.. 10..|
000047e0  64 6c 73 65 61 72 63 68  74 79 70 65 24 3d 22 43  |dlsearchtype$="C|
000047f0  61 74 65 67 6f 72 79 22  3a c8 99 20 22 57 69 6d  |ategory":.. "Wim|
00004800  70 45 78 74 5f 53 65 74  49 63 6f 6e 22 2c 2c 2c  |pExt_SetIcon",,,|
00004810  76 69 64 65 6f 5f 73 65  61 72 63 68 25 2c 33 2c  |video_search%,3,|
00004820  30 3a c8 99 20 22 57 69  6d 70 45 78 74 5f 53 65  |0:.. "WimpExt_Se|
00004830  74 49 63 6f 6e 22 2c 2c  2c 76 69 64 65 6f 5f 73  |tIcon",,,video_s|
00004840  65 61 72 63 68 25 2c 34  2c 31 0d 14 6e 81 c8 99  |earch%,4,1..n...|
00004850  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
00004860  75 22 2c 2c 63 61 74 65  67 6f 72 79 6d 65 6e 75  |u",,categorymenu|
00004870  25 2c 6d 6f 75 73 65 78  25 2d 34 38 2c 6d 6f 75  |%,mousex%-48,mou|
00004880  73 65 79 25 2b 31 30 3a  73 65 6c 65 63 74 6d 65  |sey%+10:selectme|
00004890  6e 75 25 3d 63 61 74 65  67 6f 72 79 6d 65 6e 75  |nu%=categorymenu|
000048a0  25 3a 73 65 6c 65 63 74  69 63 6f 6e 25 3d 31 3a  |%:selecticon%=1:|
000048b0  73 65 6c 65 63 74 77 69  6e 64 6f 77 25 3d 76 69  |selectwindow%=vi|
000048c0  64 65 6f 5f 73 65 61 72  63 68 25 0d 14 78 05 cb  |deo_search%..x..|
000048d0  0d 14 82 27 c9 20 76 69  64 65 6f 5f 66 6f 75 6e  |...'. video_foun|
000048e0  64 25 3a e7 20 28 62 75  74 74 6f 6e 25 20 80 20  |d%:. (button% . |
000048f0  35 29 3c 3e 30 20 8c 0d  14 8c 62 63 6c 69 63 6b  |5)<>0 ....bclick|
00004900  5f 72 65 63 6f 72 64 25  3d bb 28 a4 69 6e 64 69  |_record%=.(.indi|
00004910  72 65 63 74 28 76 69 64  65 6f 5f 66 6f 75 6e 64  |rect(video_found|
00004920  25 2c 69 63 6f 6e 25 29  29 3a e7 20 63 6c 69 63  |%,icon%)):. clic|
00004930  6b 5f 72 65 63 6f 72 64  25 3c 3e 30 20 8c 20 f2  |k_record%<>0 . .|
00004940  72 65 61 64 3a f2 66 69  6c 6c 28 63 6c 69 63 6b  |read:.fill(click|
00004950  5f 72 65 63 6f 72 64 25  29 0d 14 96 05 cd 0d 14  |_record%).......|
00004960  a0 32 c9 20 76 69 64 65  6f 5f 70 72 69 6e 74 25  |.2. video_print%|
00004970  3a e7 20 28 62 75 74 74  6f 6e 25 20 80 20 35 29  |:. (button% . 5)|
00004980  3c 3e 30 20 8c 20 c8 8e  20 69 63 6f 6e 25 20 ca  |<>0 . .. icon% .|
00004990  0d 14 aa 18 c9 20 31 3a  70 72 69 6e 74 65 72 24  |..... 1:printer$|
000049a0  3d 22 44 72 61 66 74 22  0d 14 b4 16 c9 20 32 3a  |="Draft"..... 2:|
000049b0  70 72 69 6e 74 65 72 24  3d 22 4e 4c 51 22 0d 14  |printer$="NLQ"..|
000049c0  be 2a c9 20 33 3a 70 72  69 6e 74 65 72 24 3d 22  |.*. 3:printer$="|
000049d0  52 49 53 43 4f 53 22 3a  70 72 69 6e 74 77 68 61  |RISCOS":printwha|
000049e0  74 24 3d 22 56 69 64 22  0d 14 c8 37 c9 20 37 3a  |t$="Vid"...7. 7:|
000049f0  e7 20 70 72 69 6e 74 65  72 24 3d 22 52 49 53 43  |. printer$="RISC|
00004a00  4f 53 22 20 8c 20 f2 70  72 69 6e 74 65 72 5f 64  |OS" . .printer_d|
00004a10  72 69 76 65 72 73 20 8b  20 f2 70 72 69 6e 74 0d  |rivers . .print.|
00004a20  14 d2 17 c9 20 39 3a 70  72 69 6e 74 77 68 61 74  |.... 9:printwhat|
00004a30  24 3d 22 41 54 22 0d 14  dc 19 c9 20 31 31 3a 70  |$="AT"..... 11:p|
00004a40  72 69 6e 74 77 68 61 74  24 3d 22 56 69 64 22 0d  |rintwhat$="Vid".|
00004a50  14 e6 19 c9 20 31 30 3a  70 72 69 6e 74 77 68 61  |.... 10:printwha|
00004a60  74 24 3d 22 41 6c 6c 22  0d 14 f0 18 c9 20 31 34  |t$="All"..... 14|
00004a70  3a 70 72 69 6e 74 61 6c  6c 24 3d 22 59 65 73 22  |:printall$="Yes"|
00004a80  0d 14 fa 17 c9 20 31 35  3a 70 72 69 6e 74 61 6c  |..... 15:printal|
00004a90  6c 24 3d 22 4e 6f 22 0d  15 04 3c c9 20 31 39 3a  |l$="No"...<. 19:|
00004aa0  e7 20 6c 69 6e 65 66 65  65 64 24 3d 22 4e 6f 22  |. linefeed$="No"|
00004ab0  20 8c 20 6c 69 6e 65 66  65 65 64 24 3d 22 59 65  | . linefeed$="Ye|
00004ac0  73 22 20 8b 20 6c 69 6e  65 66 65 65 64 24 3d 22  |s" . linefeed$="|
00004ad0  4e 6f 22 0d 15 0e 05 cb  0d 15 18 32 c9 20 76 69  |No"........2. vi|
00004ae0  64 65 6f 5f 63 6c 65 61  72 25 3a e7 20 28 62 75  |deo_clear%:. (bu|
00004af0  74 74 6f 6e 25 20 80 20  35 29 3c 3e 30 20 8c 20  |tton% . 5)<>0 . |
00004b00  c8 8e 20 69 63 6f 6e 25  20 ca 0d 15 22 13 c9 20  |.. icon% ...".. |
00004b10  31 3a f2 63 6c 65 61 72  5f 64 61 74 61 0d 15 2c  |1:.clear_data..,|
00004b20  38 c9 20 32 3a f2 63 6c  6f 73 65 28 76 69 64 65  |8. 2:.close(vide|
00004b30  6f 5f 63 6c 65 61 72 25  29 3a c8 99 20 22 57 69  |o_clear%):.. "Wi|
00004b40  6d 70 45 78 74 5f 52 65  6c 65 61 73 65 50 6f 69  |mpExt_ReleasePoi|
00004b50  6e 74 65 72 22 0d 15 36  05 cb 0d 15 40 31 c9 20  |nter"..6....@1. |
00004b60  76 69 64 65 6f 5f 71 75  69 74 25 3a e7 20 28 62  |video_quit%:. (b|
00004b70  75 74 74 6f 6e 25 20 80  20 35 29 3c 3e 30 20 8c  |utton% . 5)<>0 .|
00004b80  20 c8 8e 20 69 63 6f 6e  25 20 ca 0d 15 4a 0f c9  | .. icon% ...J..|
00004b90  20 31 3a 71 75 69 74 25  3d b9 0d 15 54 37 c9 20  | 1:quit%=...T7. |
00004ba0  32 3a f2 63 6c 6f 73 65  28 76 69 64 65 6f 5f 71  |2:.close(video_q|
00004bb0  75 69 74 25 29 3a c8 99  20 22 57 69 6d 70 45 78  |uit%):.. "WimpEx|
00004bc0  74 5f 52 65 6c 65 61 73  65 50 6f 69 6e 74 65 72  |t_ReleasePointer|
00004bd0  22 0d 15 5e 05 cb 0d 15  68 05 cb 0d 15 72 05 cb  |"..^....h....r..|
00004be0  0d 15 7c 05 e1 0d 15 86  05 3a 0d 15 90 23 dd f2  |..|......:...#..|
00004bf0  73 70 65 65 64 5f 63 68  61 6e 67 65 28 69 63 6f  |speed_change(ico|
00004c00  6e 25 2c 73 70 65 61 72  72 61 79 25 29 0d 15 9a  |n%,spearray%)...|
00004c10  3c f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 76 69  |<.update_icon(vi|
00004c20  64 65 6f 5f 74 72 61 63  6b 73 25 2c 69 63 6f 6e  |deo_tracks%,icon|
00004c30  25 2c 73 70 65 65 64 61  72 72 61 79 24 28 73 70  |%,speedarray$(sp|
00004c40  65 61 72 72 61 79 25 29  29 0d 15 a4 05 e1 0d 15  |earray%)).......|
00004c50  ae 05 3a 0d 15 b8 36 dd  f2 6b 65 79 5f 70 72 65  |..:...6..key_pre|
00004c60  73 73 65 64 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |ssed(window%,ico|
00004c70  6e 25 2c 6b 65 79 5f 69  6e 64 65 78 25 2c 63 68  |n%,key_index%,ch|
00004c80  61 72 61 63 74 65 72 25  29 0d 15 c2 13 c8 8e 20  |aracter%)...... |
00004c90  63 68 61 72 61 63 74 65  72 25 20 ca 0d 15 cc 08  |character% .....|
00004ca0  c9 20 31 33 0d 15 d6 10  c8 8e 20 77 69 6e 64 6f  |. 13...... windo|
00004cb0  77 25 20 ca 0d 15 e0 1f  c9 20 76 69 64 65 6f 5f  |w% ...... video_|
00004cc0  6f 70 74 69 6f 6e 73 25  3a c8 8e 20 69 63 6f 6e  |options%:.. icon|
00004cd0  25 20 ca 0d 15 ea 25 c9  20 33 3a f2 6d 6f 76 65  |% ....%. 3:.move|
00004ce0  5f 63 61 72 65 74 28 76  69 64 65 6f 5f 6f 70 74  |_caret(video_opt|
00004cf0  69 6f 6e 73 25 2c 34 29  0d 15 f4 26 c9 20 34 3a  |ions%,4)...&. 4:|
00004d00  f2 6d 6f 76 65 5f 63 61  72 65 74 28 76 69 64 65  |.move_caret(vide|
00004d10  6f 5f 6f 70 74 69 6f 6e  73 25 2c 31 31 29 0d 15  |o_options%,11)..|
00004d20  fe 27 c9 20 31 31 3a f2  6d 6f 76 65 5f 63 61 72  |.'. 11:.move_car|
00004d30  65 74 28 76 69 64 65 6f  5f 6f 70 74 69 6f 6e 73  |et(video_options|
00004d40  25 2c 31 36 29 0d 16 08  27 c9 20 31 36 3a f2 6d  |%,16)...'. 16:.m|
00004d50  6f 76 65 5f 63 61 72 65  74 28 76 69 64 65 6f 5f  |ove_caret(video_|
00004d60  6f 70 74 69 6f 6e 73 25  2c 31 37 29 0d 16 12 27  |options%,17)...'|
00004d70  c9 20 31 37 3a f2 6d 6f  76 65 5f 63 61 72 65 74  |. 17:.move_caret|
00004d80  28 76 69 64 65 6f 5f 6f  70 74 69 6f 6e 73 25 2c  |(video_options%,|
00004d90  31 38 29 0d 16 1c 26 c9  20 31 38 3a f2 6d 6f 76  |18)...&. 18:.mov|
00004da0  65 5f 63 61 72 65 74 28  76 69 64 65 6f 5f 6f 70  |e_caret(video_op|
00004db0  74 69 6f 6e 73 25 2c 33  29 0d 16 26 05 cb 0d 16  |tions%,3)..&....|
00004dc0  30 14 c9 20 76 69 64 65  6f 5f 73 61 76 65 62 6f  |0.. video_savebo|
00004dd0  78 25 0d 16 3a 37 73 61  76 65 74 79 70 65 24 3d  |x%..:7savetype$=|
00004de0  22 46 46 46 22 3a c8 99  20 22 57 69 6d 70 5f 43  |"FFF":.. "Wimp_C|
00004df0  72 65 61 74 65 4d 65 6e  75 22 2c 2c 2d 31 3a f2  |reateMenu",,-1:.|
00004e00  71 75 69 63 6b 73 61 76  65 0d 16 44 15 c9 20 76  |quicksave..D.. v|
00004e10  69 64 65 6f 5f 73 61 76  65 62 6f 78 32 25 0d 16  |ideo_savebox2%..|
00004e20  4e 37 73 61 76 65 74 79  70 65 24 3d 22 45 39 31  |N7savetype$="E91|
00004e30  22 3a c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |":.. "Wimp_Creat|
00004e40  65 4d 65 6e 75 22 2c 2c  2d 31 3a f2 71 75 69 63  |eMenu",,-1:.quic|
00004e50  6b 73 61 76 65 0d 16 58  1d c9 20 76 69 64 65 6f  |ksave..X.. video|
00004e60  5f 70 72 69 6e 74 25 3a  c8 8e 20 69 63 6f 6e 25  |_print%:.. icon%|
00004e70  20 ca 0d 16 62 24 c9 20  36 3a f2 6d 6f 76 65 5f  | ...b$. 6:.move_|
00004e80  63 61 72 65 74 28 76 69  64 65 6f 5f 70 72 69 6e  |caret(video_prin|
00004e90  74 25 2c 31 32 29 0d 16  6c 28 c9 20 31 33 3a c8  |t%,12)..l(. 13:.|
00004ea0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00004eb0  6e 75 22 2c 2c 2d 31 3a  f2 70 72 69 6e 74 0d 16  |nu",,-1:.print..|
00004ec0  76 05 cb 0d 16 80 4f c9  20 76 69 64 65 6f 5f 73  |v.....O. video_s|
00004ed0  65 61 72 63 68 25 3a c8  99 20 22 57 69 6d 70 5f  |earch%:.. "Wimp_|
00004ee0  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 2d 31 3a  |CreateMenu",,-1:|
00004ef0  f2 63 6c 65 61 72 5f 73  65 61 72 63 68 3a f2 73  |.clear_search:.s|
00004f00  65 61 72 63 68 28 73 65  61 72 63 68 74 79 70 65  |earch(searchtype|
00004f10  24 29 0d 16 8a 37 c9 20  76 69 64 65 6f 5f 74 72  |$)...7. video_tr|
00004f20  61 63 6b 73 25 3a c8 99  20 22 57 69 6d 70 5f 43  |acks%:.. "Wimp_C|
00004f30  72 65 61 74 65 4d 65 6e  75 22 2c 2c 2d 31 3a c8  |reateMenu",,-1:.|
00004f40  8e 20 69 63 6f 6e 25 20  ca 0d 16 94 1f c9 20 38  |. icon% ...... 8|
00004f50  2c 31 37 2c 32 36 2c 33  35 2c 34 34 2c 35 33 2c  |,17,26,35,44,53,|
00004f60  36 32 2c 37 31 2c 38 30  0d 16 9e 43 f2 74 72 61  |62,71,80...C.tra|
00004f70  63 6b 73 5f 6d 6f 76 65  5f 63 61 72 65 74 28 76  |cks_move_caret(v|
00004f80  69 64 65 6f 5f 74 72 61  63 6b 73 25 2c 69 63 6f  |ideo_tracks%,ico|
00004f90  6e 25 2b 32 29 3a f2 72  65 61 64 3a f2 72 65 61  |n%+2):.read:.rea|
00004fa0  64 5f 74 72 61 63 6b 6c  69 73 74 0d 16 a8 42 c9  |d_tracklist...B.|
00004fb0  20 38 39 3a f2 74 72 61  63 6b 73 5f 6d 6f 76 65  | 89:.tracks_move|
00004fc0  5f 63 61 72 65 74 28 76  69 64 65 6f 5f 74 72 61  |_caret(video_tra|
00004fd0  63 6b 73 25 2c 31 29 3a  f2 72 65 61 64 3a f2 72  |cks%,1):.read:.r|
00004fe0  65 61 64 5f 74 72 61 63  6b 6c 69 73 74 0d 16 b2  |ead_tracklist...|
00004ff0  45 7f 3a f2 74 72 61 63  6b 73 5f 6d 6f 76 65 5f  |E.:.tracks_move_|
00005000  63 61 72 65 74 28 76 69  64 65 6f 5f 74 72 61 63  |caret(video_trac|
00005010  6b 73 25 2c 69 63 6f 6e  25 2b 31 29 3a f2 72 65  |ks%,icon%+1):.re|
00005020  61 64 3a f2 72 65 61 64  5f 74 72 61 63 6b 6c 69  |ad:.read_trackli|
00005030  73 74 0d 16 bc 05 cb 0d  16 c6 36 c9 20 76 69 64  |st........6. vid|
00005040  65 6f 5f 69 6e 64 65 78  25 3a c8 99 20 22 57 69  |eo_index%:.. "Wi|
00005050  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00005060  2d 31 3a c8 8e 20 69 63  6f 6e 25 20 ca 0d 16 d0  |-1:.. icon% ....|
00005070  16 c9 20 35 3a f2 6e 75  6d 62 65 72 5f 75 70 64  |.. 5:.number_upd|
00005080  61 74 65 0d 16 da 29 c9  20 36 3a f2 6d 6f 76 65  |ate...). 6:.move|
00005090  5f 63 61 72 65 74 28 76  69 64 65 6f 5f 69 6e 64  |_caret(video_ind|
000050a0  65 78 25 2c 37 29 3a f2  72 65 61 64 0d 16 e4 29  |ex%,7):.read...)|
000050b0  c9 20 37 3a f2 6d 6f 76  65 5f 63 61 72 65 74 28  |. 7:.move_caret(|
000050c0  76 69 64 65 6f 5f 69 6e  64 65 78 25 2c 38 29 3a  |video_index%,8):|
000050d0  f2 72 65 61 64 0d 16 ee  31 c9 20 38 3a f2 74 72  |.read...1. 8:.tr|
000050e0  61 63 6b 73 5f 6d 6f 76  65 5f 63 61 72 65 74 28  |acks_move_caret(|
000050f0  76 69 64 65 6f 5f 74 72  61 63 6b 73 25 2c 31 29  |video_tracks%,1)|
00005100  3a f2 72 65 61 64 0d 16  f8 05 cb 0d 17 02 05 cb  |:.read..........|
00005110  0d 17 0c 13 c9 20 32 37  3a f2 63 6c 6f 73 65 5f  |..... 27:.close_|
00005120  61 6c 6c 0d 17 16 0a c9  20 26 31 38 31 0d 17 20  |all..... &181.. |
00005130  4c c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |L.. "Wimp_Create|
00005140  4d 65 6e 75 22 2c 2c 2d  31 3a f2 6f 70 65 6e 28  |Menu",,-1:.open(|
00005150  76 69 64 65 6f 5f 70 72  69 6e 74 25 29 3a f2 6d  |video_print%):.m|
00005160  6f 76 65 5f 63 61 72 65  74 28 76 69 64 65 6f 5f  |ove_caret(video_|
00005170  70 72 69 6e 74 25 2c 36  29 0d 17 2a 0a c9 20 26  |print%,6)..*.. &|
00005180  31 38 38 0d 17 34 31 c8  99 20 22 57 69 6d 70 5f  |188..41.. "Wimp_|
00005190  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 2d 31 3a  |CreateMenu",,-1:|
000051a0  f2 63 6c 65 61 72 5f 64  61 74 61 5f 71 75 65 73  |.clear_data_ques|
000051b0  74 69 6f 6e 0d 17 3e 0a  c9 20 26 31 38 33 0d 17  |tion..>.. &183..|
000051c0  48 52 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |HR.. "Wimp_Creat|
000051d0  65 4d 65 6e 75 22 2c 2c  2d 31 3a f2 6f 70 65 6e  |eMenu",,-1:.open|
000051e0  28 76 69 64 65 6f 5f 73  61 76 65 62 6f 78 32 25  |(video_savebox2%|
000051f0  29 3a f2 6d 6f 76 65 5f  63 61 72 65 74 28 76 69  |):.move_caret(vi|
00005200  64 65 6f 5f 73 61 76 65  62 6f 78 32 25 2c 31 29  |deo_savebox2%,1)|
00005210  0d 17 52 0a c9 20 26 31  38 34 0d 17 5c 63 c8 99  |..R.. &184..\c..|
00005220  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
00005230  75 22 2c 2c 2d 31 3a f2  63 6c 6f 73 65 28 76 69  |u",,-1:.close(vi|
00005240  64 65 6f 5f 66 6f 75 6e  64 25 29 3a f2 6f 70 65  |deo_found%):.ope|
00005250  6e 28 76 69 64 65 6f 5f  73 65 61 72 63 68 25 29  |n(video_search%)|
00005260  3a f2 6d 6f 76 65 5f 63  61 72 65 74 28 76 69 64  |:.move_caret(vid|
00005270  65 6f 5f 73 65 61 72 63  68 25 2c 31 29 0d 17 66  |eo_search%,1)..f|
00005280  0a c9 20 26 31 38 35 0d  17 70 41 c8 99 20 22 57  |.. &185..pA.. "W|
00005290  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
000052a0  2c 2d 31 3a f2 73 77 61  70 5f 63 61 73 65 28 77  |,-1:.swap_case(w|
000052b0  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 2c 6b 65 79  |indow%,icon%,key|
000052c0  5f 69 6e 64 65 78 25 29  0d 17 7a 0a c9 20 26 31  |_index%)..z.. &1|
000052d0  38 36 0d 17 84 96 c8 99  20 22 57 69 6d 70 5f 43  |86...... "Wimp_C|
000052e0  72 65 61 74 65 4d 65 6e  75 22 2c 2c 2d 31 3a 54  |reateMenu",,-1:T|
000052f0  65 78 74 24 3d c2 a4 72  65 61 64 5f 69 63 6f 6e  |ext$=..read_icon|
00005300  5f 74 65 78 74 28 77 69  6e 64 6f 77 25 2c 69 63  |_text(window%,ic|
00005310  6f 6e 25 2c a3 29 2c 6b  65 79 5f 69 6e 64 65 78  |on%,.),key_index|
00005320  25 29 3a f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |%):.update_icon(|
00005330  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 2c 54 65  |window%,icon%,Te|
00005340  78 74 24 29 3a f2 5f 53  65 74 43 61 72 65 74 50  |xt$):._SetCaretP|
00005350  6f 73 69 74 69 6f 6e 28  77 69 6e 64 6f 77 25 2c  |osition(window%,|
00005360  69 63 6f 6e 25 2c 30 29  0d 17 8e 0a c9 20 26 31  |icon%,0)..... &1|
00005370  38 37 0d 17 98 88 c8 99  20 22 57 69 6d 70 5f 43  |87...... "Wimp_C|
00005380  72 65 61 74 65 4d 65 6e  75 22 2c 2c 2d 31 3a 54  |reateMenu",,-1:T|
00005390  65 78 74 24 3d c0 a4 72  65 61 64 5f 69 63 6f 6e  |ext$=..read_icon|
000053a0  5f 74 65 78 74 28 77 69  6e 64 6f 77 25 2c 69 63  |_text(window%,ic|
000053b0  6f 6e 25 2c a3 29 2c 6b  65 79 5f 69 6e 64 65 78  |on%,.),key_index|
000053c0  25 29 3a f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |%):.update_icon(|
000053d0  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 2c 54 65  |window%,icon%,Te|
000053e0  78 74 24 29 3a f2 72 65  61 64 3a f2 72 65 61 64  |xt$):.read:.read|
000053f0  5f 74 72 61 63 6b 6c 69  73 74 0d 17 a2 09 c9 20  |_tracklist..... |
00005400  26 31 45 0d 17 ac 40 c8  99 20 22 57 69 6d 70 5f  |&1E...@.. "Wimp_|
00005410  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 2d 31 3a  |CreateMenu",,-1:|
00005420  f2 74 72 61 63 6b 73 5f  6d 6f 76 65 5f 63 61 72  |.tracks_move_car|
00005430  65 74 28 76 69 64 65 6f  5f 74 72 61 63 6b 73 25  |et(video_tracks%|
00005440  2c 31 29 0d 17 b6 3e 7f  3a c8 99 20 22 57 69 6d  |,1)...>.:.. "Wim|
00005450  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 2d  |p_CreateMenu",,-|
00005460  31 3a c8 99 20 22 57 69  6d 70 5f 50 72 6f 63 65  |1:.. "Wimp_Proce|
00005470  73 73 4b 65 79 22 2c 63  68 61 72 61 63 74 65 72  |ssKey",character|
00005480  25 0d 17 c0 05 cb 0d 17  ca 05 e1 0d 17 d4 05 3a  |%..............:|
00005490  0d 17 de 1f dd f2 6d 6f  76 65 5f 63 61 72 65 74  |......move_caret|
000054a0  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 29 0d  |(window%,icon%).|
000054b0  17 e8 31 c8 99 20 22 57  69 6d 70 5f 53 65 74 43  |..1.. "Wimp_SetC|
000054c0  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 77 69  |aretPosition",wi|
000054d0  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 2c 2c 2d 31  |ndow%,icon%,,,-1|
000054e0  0d 17 f2 05 e1 0d 17 fc  05 3a 0d 18 06 26 dd f2  |.........:...&..|
000054f0  74 72 61 63 6b 73 5f 6d  6f 76 65 5f 63 61 72 65  |tracks_move_care|
00005500  74 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 29  |t(window%,icon%)|
00005510  0d 18 10 2f ea 20 63 61  72 65 74 78 25 2c 63 61  |.../. caretx%,ca|
00005520  72 65 74 79 25 2c 74 6f  70 25 2c 62 6f 74 74 6f  |rety%,top%,botto|
00005530  6d 25 2c 6c 65 66 74 25  2c 72 69 67 68 74 25 0d  |m%,left%,right%.|
00005540  18 1a 18 e7 20 69 63 6f  6e 25 3c 31 20 8c 20 69  |.... icon%<1 . i|
00005550  63 6f 6e 25 3d 38 39 0d  18 24 18 e7 20 69 63 6f  |con%=89..$.. ico|
00005560  6e 25 3e 38 39 20 8c 20  69 63 6f 6e 25 3d 31 0d  |n%>89 . icon%=1.|
00005570  18 2e 31 c8 99 20 22 57  69 6d 70 5f 53 65 74 43  |..1.. "Wimp_SetC|
00005580  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 77 69  |aretPosition",wi|
00005590  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 2c 2c 2d 31  |ndow%,icon%,,,-1|
000055a0  0d 18 38 22 c8 99 20 22  57 69 6d 70 5f 47 65 74  |..8".. "Wimp_Get|
000055b0  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 2c  |CaretPosition",,|
000055c0  71 25 0d 18 42 1e 63 61  72 65 74 78 25 3d 71 25  |q%..B.caretx%=q%|
000055d0  21 38 3a 63 61 72 65 74  79 25 3d 71 25 21 31 32  |!8:carety%=q%!12|
000055e0  0d 18 4c 15 21 71 25 3d  76 69 64 65 6f 5f 74 72  |..L.!q%=video_tr|
000055f0  61 63 6b 73 25 0d 18 56  20 c8 99 20 22 57 69 6d  |acks%..V .. "Wim|
00005600  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00005610  22 2c 2c 71 25 0d 18 60  28 74 6f 70 25 3d 71 25  |",,q%..`(top%=q%|
00005620  21 32 34 3a 62 6f 74 74  6f 6d 25 3d 74 6f 70 25  |!24:bottom%=top%|
00005630  2d 28 71 25 21 31 36 2d  71 25 21 38 29 0d 18 6a  |-(q%!16-q%!8)..j|
00005640  29 6c 65 66 74 25 3d 71  25 21 32 30 3a 72 69 67  |)left%=q%!20:rig|
00005650  68 74 25 3d 6c 65 66 74  25 2b 28 71 25 21 31 32  |ht%=left%+(q%!12|
00005660  2d 71 25 21 34 29 0d 18  74 1a e7 20 28 6c 65 66  |-q%!4)..t.. (lef|
00005670  74 25 2d 36 34 3c 63 61  72 65 74 78 25 29 20 8c  |t%-64<caretx%) .|
00005680  0d 18 7e 13 71 25 21 32  30 3d 63 61 72 65 74 78  |..~.q%!20=caretx|
00005690  25 2d 38 0d 18 88 1c c8  99 20 22 57 69 6d 70 5f  |%-8...... "Wimp_|
000056a0  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 71 25 0d  |OpenWindow",,q%.|
000056b0  18 92 05 cd 0d 18 9c 30  e7 20 69 63 6f 6e 25 3d  |.......0. icon%=|
000056c0  31 20 8c 20 71 25 21 32  30 3d 30 3a c8 99 20 22  |1 . q%!20=0:.. "|
000056d0  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
000056e0  2c 2c 71 25 0d 18 a6 05  e1 0d 18 b0 05 3a 0d 18  |,,q%.........:..|
000056f0  ba 11 dd f2 6d 65 6e 75  5f 73 65 6c 65 63 74 0d  |....menu_select.|
00005700  18 c4 1b ea 20 73 65 6c  65 63 74 69 6f 6e 25 2c  |.... selection%,|
00005710  73 65 6c 65 63 74 69 6f  6e 24 0d 18 ce 14 de 20  |selection$..... |
00005720  73 65 6c 65 63 74 69 6f  6e 25 20 32 35 35 0d 18  |selection% 255..|
00005730  d8 33 c8 99 20 22 57 69  6d 70 5f 44 65 63 6f 64  |.3.. "Wimp_Decod|
00005740  65 4d 65 6e 75 22 2c 2c  73 65 6c 65 63 74 6d 65  |eMenu",,selectme|
00005750  6e 75 25 2c 71 25 2c 73  65 6c 65 63 74 69 6f 6e  |nu%,q%,selection|
00005760  25 0d 18 e2 1a 73 65 6c  65 63 74 69 6f 6e 24 3d  |%....selection$=|
00005770  24 73 65 6c 65 63 74 69  6f 6e 25 0d 18 ec 13 c8  |$selection%.....|
00005780  8e 20 73 65 6c 65 63 74  69 6f 6e 24 20 ca 0d 18  |. selection$ ...|
00005790  f6 44 c9 20 64 61 79 31  24 3a f2 75 70 64 61 74  |.D. day1$:.updat|
000057a0  65 5f 69 63 6f 6e 28 76  69 64 65 6f 5f 74 72 61  |e_icon(video_tra|
000057b0  63 6b 73 25 2c 73 65 6c  65 63 74 69 63 6f 6e 25  |cks%,selecticon%|
000057c0  2c 73 65 6c 65 63 74 69  6f 6e 24 29 3a f2 72 65  |,selection$):.re|
000057d0  61 64 0d 19 00 44 c9 20  64 61 79 32 24 3a f2 75  |ad...D. day2$:.u|
000057e0  70 64 61 74 65 5f 69 63  6f 6e 28 76 69 64 65 6f  |pdate_icon(video|
000057f0  5f 74 72 61 63 6b 73 25  2c 73 65 6c 65 63 74 69  |_tracks%,selecti|
00005800  63 6f 6e 25 2c 73 65 6c  65 63 74 69 6f 6e 24 29  |con%,selection$)|
00005810  3a f2 72 65 61 64 0d 19  0a 44 c9 20 64 61 79 33  |:.read...D. day3|
00005820  24 3a f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 76  |$:.update_icon(v|
00005830  69 64 65 6f 5f 74 72 61  63 6b 73 25 2c 73 65 6c  |ideo_tracks%,sel|
00005840  65 63 74 69 63 6f 6e 25  2c 73 65 6c 65 63 74 69  |ecticon%,selecti|
00005850  6f 6e 24 29 3a f2 72 65  61 64 0d 19 14 44 c9 20  |on$):.read...D. |
00005860  64 61 79 34 24 3a f2 75  70 64 61 74 65 5f 69 63  |day4$:.update_ic|
00005870  6f 6e 28 76 69 64 65 6f  5f 74 72 61 63 6b 73 25  |on(video_tracks%|
00005880  2c 73 65 6c 65 63 74 69  63 6f 6e 25 2c 73 65 6c  |,selecticon%,sel|
00005890  65 63 74 69 6f 6e 24 29  3a f2 72 65 61 64 0d 19  |ection$):.read..|
000058a0  1e 44 c9 20 64 61 79 35  24 3a f2 75 70 64 61 74  |.D. day5$:.updat|
000058b0  65 5f 69 63 6f 6e 28 76  69 64 65 6f 5f 74 72 61  |e_icon(video_tra|
000058c0  63 6b 73 25 2c 73 65 6c  65 63 74 69 63 6f 6e 25  |cks%,selecticon%|
000058d0  2c 73 65 6c 65 63 74 69  6f 6e 24 29 3a f2 72 65  |,selection$):.re|
000058e0  61 64 0d 19 28 44 c9 20  64 61 79 36 24 3a f2 75  |ad..(D. day6$:.u|
000058f0  70 64 61 74 65 5f 69 63  6f 6e 28 76 69 64 65 6f  |pdate_icon(video|
00005900  5f 74 72 61 63 6b 73 25  2c 73 65 6c 65 63 74 69  |_tracks%,selecti|
00005910  63 6f 6e 25 2c 73 65 6c  65 63 74 69 6f 6e 24 29  |con%,selection$)|
00005920  3a f2 72 65 61 64 0d 19  32 44 c9 20 64 61 79 37  |:.read..2D. day7|
00005930  24 3a f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 76  |$:.update_icon(v|
00005940  69 64 65 6f 5f 74 72 61  63 6b 73 25 2c 73 65 6c  |ideo_tracks%,sel|
00005950  65 63 74 69 63 6f 6e 25  2c 73 65 6c 65 63 74 69  |ecticon%,selecti|
00005960  6f 6e 24 29 3a f2 72 65  61 64 0d 19 3c 49 c9 20  |on$):.read..<I. |
00005970  22 41 6d 65 72 69 63 61  6e 22 3a f2 75 70 64 61  |"American":.upda|
00005980  74 65 5f 69 63 6f 6e 28  73 65 6c 65 63 74 77 69  |te_icon(selectwi|
00005990  6e 64 6f 77 25 2c 73 65  6c 65 63 74 69 63 6f 6e  |ndow%,selecticon|
000059a0  25 2c 73 65 6c 65 63 74  69 6f 6e 24 29 3a f2 72  |%,selection$):.r|
000059b0  65 61 64 0d 19 46 47 c9  20 22 43 6f 6d 65 64 79  |ead..FG. "Comedy|
000059c0  22 3a f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 73  |":.update_icon(s|
000059d0  65 6c 65 63 74 77 69 6e  64 6f 77 25 2c 73 65 6c  |electwindow%,sel|
000059e0  65 63 74 69 63 6f 6e 25  2c 73 65 6c 65 63 74 69  |ecticon%,selecti|
000059f0  6f 6e 24 29 3a f2 72 65  61 64 0d 19 50 4a c9 20  |on$):.read..PJ. |
00005a00  22 47 61 6d 65 20 53 68  6f 77 22 3a f2 75 70 64  |"Game Show":.upd|
00005a10  61 74 65 5f 69 63 6f 6e  28 73 65 6c 65 63 74 77  |ate_icon(selectw|
00005a20  69 6e 64 6f 77 25 2c 73  65 6c 65 63 74 69 63 6f  |indow%,selectico|
00005a30  6e 25 2c 73 65 6c 65 63  74 69 6f 6e 24 29 3a f2  |n%,selection$):.|
00005a40  72 65 61 64 0d 19 5a 46  c9 20 22 44 72 61 6d 61  |read..ZF. "Drama|
00005a50  22 3a f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 73  |":.update_icon(s|
00005a60  65 6c 65 63 74 77 69 6e  64 6f 77 25 2c 73 65 6c  |electwindow%,sel|
00005a70  65 63 74 69 63 6f 6e 25  2c 73 65 6c 65 63 74 69  |ecticon%,selecti|
00005a80  6f 6e 24 29 3a f2 72 65  61 64 0d 19 64 45 c9 20  |on$):.read..dE. |
00005a90  22 46 69 6c 6d 22 3a f2  75 70 64 61 74 65 5f 69  |"Film":.update_i|
00005aa0  63 6f 6e 28 73 65 6c 65  63 74 77 69 6e 64 6f 77  |con(selectwindow|
00005ab0  25 2c 73 65 6c 65 63 74  69 63 6f 6e 25 2c 73 65  |%,selecticon%,se|
00005ac0  6c 65 63 74 69 6f 6e 24  29 3a f2 72 65 61 64 0d  |lection$):.read.|
00005ad0  19 6e 48 c9 20 22 43 61  72 74 6f 6f 6e 22 3a f2  |.nH. "Cartoon":.|
00005ae0  75 70 64 61 74 65 5f 69  63 6f 6e 28 73 65 6c 65  |update_icon(sele|
00005af0  63 74 77 69 6e 64 6f 77  25 2c 73 65 6c 65 63 74  |ctwindow%,select|
00005b00  69 63 6f 6e 25 2c 73 65  6c 65 63 74 69 6f 6e 24  |icon%,selection$|
00005b10  29 3a f2 72 65 61 64 0d  19 78 45 c9 20 22 4e 65  |):.read..xE. "Ne|
00005b20  77 73 22 3a f2 75 70 64  61 74 65 5f 69 63 6f 6e  |ws":.update_icon|
00005b30  28 73 65 6c 65 63 74 77  69 6e 64 6f 77 25 2c 73  |(selectwindow%,s|
00005b40  65 6c 65 63 74 69 63 6f  6e 25 2c 73 65 6c 65 63  |electicon%,selec|
00005b50  74 69 6f 6e 24 29 3a f2  72 65 61 64 0d 19 82 48  |tion$):.read...H|
00005b60  c9 20 22 57 65 61 74 68  65 72 22 3a f2 75 70 64  |. "Weather":.upd|
00005b70  61 74 65 5f 69 63 6f 6e  28 73 65 6c 65 63 74 77  |ate_icon(selectw|
00005b80  69 6e 64 6f 77 25 2c 73  65 6c 65 63 74 69 63 6f  |indow%,selectico|
00005b90  6e 25 2c 73 65 6c 65 63  74 69 6f 6e 24 29 3a f2  |n%,selection$):.|
00005ba0  72 65 61 64 0d 19 8c 46  c9 20 22 4d 75 73 69 63  |read...F. "Music|
00005bb0  22 3a f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 73  |":.update_icon(s|
00005bc0  65 6c 65 63 74 77 69 6e  64 6f 77 25 2c 73 65 6c  |electwindow%,sel|
00005bd0  65 63 74 69 63 6f 6e 25  2c 73 65 6c 65 63 74 69  |ecticon%,selecti|
00005be0  6f 6e 24 29 3a f2 72 65  61 64 0d 19 96 49 c9 20  |on$):.read...I. |
00005bf0  22 43 68 69 6c 64 72 65  6e 22 3a f2 75 70 64 61  |"Children":.upda|
00005c00  74 65 5f 69 63 6f 6e 28  73 65 6c 65 63 74 77 69  |te_icon(selectwi|
00005c10  6e 64 6f 77 25 2c 73 65  6c 65 63 74 69 63 6f 6e  |ndow%,selecticon|
00005c20  25 2c 73 65 6c 65 63 74  69 6f 6e 24 29 3a f2 72  |%,selection$):.r|
00005c30  65 61 64 0d 19 a0 43 c9  20 22 53 50 22 3a f2 75  |ead...C. "SP":.u|
00005c40  70 64 61 74 65 5f 69 63  6f 6e 28 76 69 64 65 6f  |pdate_icon(video|
00005c50  5f 74 72 61 63 6b 73 25  2c 73 65 6c 65 63 74 69  |_tracks%,selecti|
00005c60  63 6f 6e 25 2c 73 65 6c  65 63 74 69 6f 6e 24 29  |con%,selection$)|
00005c70  3a f2 72 65 61 64 0d 19  aa 43 c9 20 22 4c 50 22  |:.read...C. "LP"|
00005c80  3a f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 76 69  |:.update_icon(vi|
00005c90  64 65 6f 5f 74 72 61 63  6b 73 25 2c 73 65 6c 65  |deo_tracks%,sele|
00005ca0  63 74 69 63 6f 6e 25 2c  73 65 6c 65 63 74 69 6f  |cticon%,selectio|
00005cb0  6e 24 29 3a f2 72 65 61  64 0d 19 b4 3e c9 20 22  |n$):.read...>. "|
00005cc0  43 6c 65 61 72 22 3a f2  75 70 64 61 74 65 5f 69  |Clear":.update_i|
00005cd0  63 6f 6e 28 76 69 64 65  6f 5f 74 72 61 63 6b 73  |con(video_tracks|
00005ce0  25 2c 73 65 6c 65 63 74  69 63 6f 6e 25 2c 22 22  |%,selecticon%,""|
00005cf0  29 3a f2 72 65 61 64 0d  19 be 4b c9 20 22 53 6f  |):.read...K. "So|
00005d00  61 70 20 4f 70 65 72 61  22 3a f2 75 70 64 61 74  |ap Opera":.updat|
00005d10  65 5f 69 63 6f 6e 28 73  65 6c 65 63 74 77 69 6e  |e_icon(selectwin|
00005d20  64 6f 77 25 2c 73 65 6c  65 63 74 69 63 6f 6e 25  |dow%,selecticon%|
00005d30  2c 73 65 6c 65 63 74 69  6f 6e 24 29 3a f2 72 65  |,selection$):.re|
00005d40  61 64 0d 19 c8 46 c9 20  22 53 70 6f 72 74 22 3a  |ad...F. "Sport":|
00005d50  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 73 65 6c  |.update_icon(sel|
00005d60  65 63 74 77 69 6e 64 6f  77 25 2c 73 65 6c 65 63  |ectwindow%,selec|
00005d70  74 69 63 6f 6e 25 2c 73  65 6c 65 63 74 69 6f 6e  |ticon%,selection|
00005d80  24 29 3a f2 72 65 61 64  0d 19 d2 46 c9 20 22 42  |$):.read...F. "B|
00005d90  42 43 20 31 22 3a f2 75  70 64 61 74 65 5f 69 63  |BC 1":.update_ic|
00005da0  6f 6e 28 76 69 64 65 6f  5f 74 72 61 63 6b 73 25  |on(video_tracks%|
00005db0  2c 73 65 6c 65 63 74 69  63 6f 6e 25 2c 73 65 6c  |,selecticon%,sel|
00005dc0  65 63 74 69 6f 6e 24 29  3a f2 72 65 61 64 0d 19  |ection$):.read..|
00005dd0  dc 46 c9 20 22 42 42 43  20 32 22 3a f2 75 70 64  |.F. "BBC 2":.upd|
00005de0  61 74 65 5f 69 63 6f 6e  28 76 69 64 65 6f 5f 74  |ate_icon(video_t|
00005df0  72 61 63 6b 73 25 2c 73  65 6c 65 63 74 69 63 6f  |racks%,selectico|
00005e00  6e 25 2c 73 65 6c 65 63  74 69 6f 6e 24 29 3a f2  |n%,selection$):.|
00005e10  72 65 61 64 0d 19 e6 44  c9 20 22 49 54 56 22 3a  |read...D. "ITV":|
00005e20  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 76 69 64  |.update_icon(vid|
00005e30  65 6f 5f 74 72 61 63 6b  73 25 2c 73 65 6c 65 63  |eo_tracks%,selec|
00005e40  74 69 63 6f 6e 25 2c 73  65 6c 65 63 74 69 6f 6e  |ticon%,selection|
00005e50  24 29 3a f2 72 65 61 64  0d 19 f0 4a c9 20 22 43  |$):.read...J. "C|
00005e60  68 61 6e 6e 65 6c 20 34  22 3a f2 75 70 64 61 74  |hannel 4":.updat|
00005e70  65 5f 69 63 6f 6e 28 76  69 64 65 6f 5f 74 72 61  |e_icon(video_tra|
00005e80  63 6b 73 25 2c 73 65 6c  65 63 74 69 63 6f 6e 25  |cks%,selecticon%|
00005e90  2c 73 65 6c 65 63 74 69  6f 6e 24 29 3a f2 72 65  |,selection$):.re|
00005ea0  61 64 0d 19 fa 4e c9 20  22 4d 6f 76 69 65 20 43  |ad...N. "Movie C|
00005eb0  68 61 6e 6e 65 6c 22 3a  f2 75 70 64 61 74 65 5f  |hannel":.update_|
00005ec0  69 63 6f 6e 28 76 69 64  65 6f 5f 74 72 61 63 6b  |icon(video_track|
00005ed0  73 25 2c 73 65 6c 65 63  74 69 63 6f 6e 25 2c 73  |s%,selecticon%,s|
00005ee0  65 6c 65 63 74 69 6f 6e  24 29 3a f2 72 65 61 64  |election$):.read|
00005ef0  0d 1a 04 49 c9 20 22 4d  6f 76 69 65 73 20 2b 22  |...I. "Movies +"|
00005f00  3a f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 76 69  |:.update_icon(vi|
00005f10  64 65 6f 5f 74 72 61 63  6b 73 25 2c 73 65 6c 65  |deo_tracks%,sele|
00005f20  63 74 69 63 6f 6e 25 2c  73 65 6c 65 63 74 69 6f  |cticon%,selectio|
00005f30  6e 24 29 3a f2 72 65 61  64 0d 1a 0e 4c c9 20 22  |n$):.read...L. "|
00005f40  4d 6f 76 69 65 73 20 47  6f 6c 64 22 3a f2 75 70  |Movies Gold":.up|
00005f50  64 61 74 65 5f 69 63 6f  6e 28 76 69 64 65 6f 5f  |date_icon(video_|
00005f60  74 72 61 63 6b 73 25 2c  73 65 6c 65 63 74 69 63  |tracks%,selectic|
00005f70  6f 6e 25 2c 73 65 6c 65  63 74 69 6f 6e 24 29 3a  |on%,selection$):|
00005f80  f2 72 65 61 64 0d 1a 18  48 c9 20 22 53 6b 79 20  |.read...H. "Sky |
00005f90  4f 6e 65 22 3a f2 75 70  64 61 74 65 5f 69 63 6f  |One":.update_ico|
00005fa0  6e 28 76 69 64 65 6f 5f  74 72 61 63 6b 73 25 2c  |n(video_tracks%,|
00005fb0  73 65 6c 65 63 74 69 63  6f 6e 25 2c 73 65 6c 65  |selecticon%,sele|
00005fc0  63 74 69 6f 6e 24 29 3a  f2 72 65 61 64 0d 1a 22  |ction$):.read.."|
00005fd0  4b c9 20 22 53 6b 79 20  53 70 6f 72 74 73 22 3a  |K. "Sky Sports":|
00005fe0  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 76 69 64  |.update_icon(vid|
00005ff0  65 6f 5f 74 72 61 63 6b  73 25 2c 73 65 6c 65 63  |eo_tracks%,selec|
00006000  74 69 63 6f 6e 25 2c 73  65 6c 65 63 74 69 6f 6e  |ticon%,selection|
00006010  24 29 3a f2 72 65 61 64  0d 1a 2c 49 c9 20 22 53  |$):.read..,I. "S|
00006020  6b 79 20 4e 65 77 73 22  3a f2 75 70 64 61 74 65  |ky News":.update|
00006030  5f 69 63 6f 6e 28 76 69  64 65 6f 5f 74 72 61 63  |_icon(video_trac|
00006040  6b 73 25 2c 73 65 6c 65  63 74 69 63 6f 6e 25 2c  |ks%,selecticon%,|
00006050  73 65 6c 65 63 74 69 6f  6e 24 29 3a f2 72 65 61  |selection$):.rea|
00006060  64 0d 1a 36 4a c9 20 22  45 75 72 6f 73 70 6f 72  |d..6J. "Eurospor|
00006070  74 22 3a f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |t":.update_icon(|
00006080  76 69 64 65 6f 5f 74 72  61 63 6b 73 25 2c 73 65  |video_tracks%,se|
00006090  6c 65 63 74 69 63 6f 6e  25 2c 73 65 6c 65 63 74  |lecticon%,select|
000060a0  69 6f 6e 24 29 3a f2 72  65 61 64 0d 1a 40 48 c9  |ion$):.read..@H.|
000060b0  20 22 55 4b 20 47 6f 6c  64 22 3a f2 75 70 64 61  | "UK Gold":.upda|
000060c0  74 65 5f 69 63 6f 6e 28  76 69 64 65 6f 5f 74 72  |te_icon(video_tr|
000060d0  61 63 6b 73 25 2c 73 65  6c 65 63 74 69 63 6f 6e  |acks%,selecticon|
000060e0  25 2c 73 65 6c 65 63 74  69 6f 6e 24 29 3a f2 72  |%,selection$):.r|
000060f0  65 61 64 0d 1a 4a 44 c9  20 22 4d 54 56 22 3a f2  |ead..JD. "MTV":.|
00006100  75 70 64 61 74 65 5f 69  63 6f 6e 28 76 69 64 65  |update_icon(vide|
00006110  6f 5f 74 72 61 63 6b 73  25 2c 73 65 6c 65 63 74  |o_tracks%,select|
00006120  69 63 6f 6e 25 2c 73 65  6c 65 63 74 69 6f 6e 24  |icon%,selection$|
00006130  29 3a f2 72 65 61 64 0d  1a 54 4c c9 20 63 68 61  |):.read..TL. cha|
00006140  6e 6e 65 6c 6d 65 6e 75  31 24 3a f2 75 70 64 61  |nnelmenu1$:.upda|
00006150  74 65 5f 69 63 6f 6e 28  76 69 64 65 6f 5f 74 72  |te_icon(video_tr|
00006160  61 63 6b 73 25 2c 73 65  6c 65 63 74 69 63 6f 6e  |acks%,selecticon|
00006170  25 2c 73 65 6c 65 63 74  69 6f 6e 24 29 3a f2 72  |%,selection$):.r|
00006180  65 61 64 0d 1a 5e 4c c9  20 63 68 61 6e 6e 65 6c  |ead..^L. channel|
00006190  6d 65 6e 75 32 24 3a f2  75 70 64 61 74 65 5f 69  |menu2$:.update_i|
000061a0  63 6f 6e 28 76 69 64 65  6f 5f 74 72 61 63 6b 73  |con(video_tracks|
000061b0  25 2c 73 65 6c 65 63 74  69 63 6f 6e 25 2c 73 65  |%,selecticon%,se|
000061c0  6c 65 63 74 69 6f 6e 24  29 3a f2 72 65 61 64 0d  |lection$):.read.|
000061d0  1a 68 4c c9 20 63 68 61  6e 6e 65 6c 6d 65 6e 75  |.hL. channelmenu|
000061e0  33 24 3a f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |3$:.update_icon(|
000061f0  76 69 64 65 6f 5f 74 72  61 63 6b 73 25 2c 73 65  |video_tracks%,se|
00006200  6c 65 63 74 69 63 6f 6e  25 2c 73 65 6c 65 63 74  |lecticon%,select|
00006210  69 6f 6e 24 29 3a f2 72  65 61 64 0d 1a 72 4c c9  |ion$):.read..rL.|
00006220  20 63 68 61 6e 6e 65 6c  6d 65 6e 75 34 24 3a f2  | channelmenu4$:.|
00006230  75 70 64 61 74 65 5f 69  63 6f 6e 28 76 69 64 65  |update_icon(vide|
00006240  6f 5f 74 72 61 63 6b 73  25 2c 73 65 6c 65 63 74  |o_tracks%,select|
00006250  69 63 6f 6e 25 2c 73 65  6c 65 63 74 69 6f 6e 24  |icon%,selection$|
00006260  29 3a f2 72 65 61 64 0d  1a 7c 4c c9 20 63 68 61  |):.read..|L. cha|
00006270  6e 6e 65 6c 6d 65 6e 75  35 24 3a f2 75 70 64 61  |nnelmenu5$:.upda|
00006280  74 65 5f 69 63 6f 6e 28  76 69 64 65 6f 5f 74 72  |te_icon(video_tr|
00006290  61 63 6b 73 25 2c 73 65  6c 65 63 74 69 63 6f 6e  |acks%,selecticon|
000062a0  25 2c 73 65 6c 65 63 74  69 6f 6e 24 29 3a f2 72  |%,selection$):.r|
000062b0  65 61 64 0d 1a 86 4c c9  20 63 68 61 6e 6e 65 6c  |ead...L. channel|
000062c0  6d 65 6e 75 36 24 3a f2  75 70 64 61 74 65 5f 69  |menu6$:.update_i|
000062d0  63 6f 6e 28 76 69 64 65  6f 5f 74 72 61 63 6b 73  |con(video_tracks|
000062e0  25 2c 73 65 6c 65 63 74  69 63 6f 6e 25 2c 73 65  |%,selecticon%,se|
000062f0  6c 65 63 74 69 6f 6e 24  29 3a f2 72 65 61 64 0d  |lection$):.read.|
00006300  1a 90 4e c9 20 22 41 64  75 6c 74 20 43 68 61 6e  |..N. "Adult Chan|
00006310  6e 65 6c 22 3a f2 75 70  64 61 74 65 5f 69 63 6f  |nel":.update_ico|
00006320  6e 28 76 69 64 65 6f 5f  74 72 61 63 6b 73 25 2c  |n(video_tracks%,|
00006330  73 65 6c 65 63 74 69 63  6f 6e 25 2c 73 65 6c 65  |selecticon%,sele|
00006340  63 74 69 6f 6e 24 29 3a  f2 72 65 61 64 0d 1a 9a  |ction$):.read...|
00006350  3d c9 20 22 42 65 74 61  6d 61 78 22 3a f2 75 70  |=. "Betamax":.up|
00006360  64 61 74 65 5f 69 63 6f  6e 28 76 69 64 65 6f 5f  |date_icon(video_|
00006370  69 6e 64 65 78 25 2c 36  2c 73 65 6c 65 63 74 69  |index%,6,selecti|
00006380  6f 6e 24 29 3a f2 72 65  61 64 0d 1a a4 39 c9 20  |on$):.read...9. |
00006390  22 56 48 53 22 3a f2 75  70 64 61 74 65 5f 69 63  |"VHS":.update_ic|
000063a0  6f 6e 28 76 69 64 65 6f  5f 69 6e 64 65 78 25 2c  |on(video_index%,|
000063b0  36 2c 73 65 6c 65 63 74  69 6f 6e 24 29 3a f2 72  |6,selection$):.r|
000063c0  65 61 64 0d 1a ae 3a c9  20 22 56 48 53 43 22 3a  |ead...:. "VHSC":|
000063d0  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 76 69 64  |.update_icon(vid|
000063e0  65 6f 5f 69 6e 64 65 78  25 2c 36 2c 73 65 6c 65  |eo_index%,6,sele|
000063f0  63 74 69 6f 6e 24 29 3a  f2 72 65 61 64 0d 1a b8  |ction$):.read...|
00006400  3f c9 20 22 53 75 70 65  72 20 56 48 53 22 3a f2  |?. "Super VHS":.|
00006410  75 70 64 61 74 65 5f 69  63 6f 6e 28 76 69 64 65  |update_icon(vide|
00006420  6f 5f 69 6e 64 65 78 25  2c 36 2c 73 65 6c 65 63  |o_index%,6,selec|
00006430  74 69 6f 6e 24 29 3a f2  72 65 61 64 0d 1a c2 3d  |tion$):.read...=|
00006440  c9 20 22 56 69 64 65 6f  20 38 22 3a f2 75 70 64  |. "Video 8":.upd|
00006450  61 74 65 5f 69 63 6f 6e  28 76 69 64 65 6f 5f 69  |ate_icon(video_i|
00006460  6e 64 65 78 25 2c 36 2c  73 65 6c 65 63 74 69 6f  |ndex%,6,selectio|
00006470  6e 24 29 3a f2 72 65 61  64 0d 1a cc 40 c9 20 22  |n$):.read...@. "|
00006480  56 69 64 65 6f 20 32 30  30 30 22 3a f2 75 70 64  |Video 2000":.upd|
00006490  61 74 65 5f 69 63 6f 6e  28 76 69 64 65 6f 5f 69  |ate_icon(video_i|
000064a0  6e 64 65 78 25 2c 36 2c  73 65 6c 65 63 74 69 6f  |ndex%,6,selectio|
000064b0  6e 24 29 3a f2 72 65 61  64 0d 1a d6 4b c9 20 22  |n$):.read...K. "|
000064c0  31 30 20 6d 69 6e 75 74  65 73 22 3a f2 75 70 64  |10 minutes":.upd|
000064d0  61 74 65 5f 69 63 6f 6e  28 76 69 64 65 6f 5f 74  |ate_icon(video_t|
000064e0  72 61 63 6b 73 25 2c 73  65 6c 65 63 74 69 63 6f  |racks%,selectico|
000064f0  6e 25 2c 73 65 6c 65 63  74 69 6f 6e 24 29 3a f2  |n%,selection$):.|
00006500  72 65 61 64 0d 1a e0 4b  c9 20 22 31 35 20 6d 69  |read...K. "15 mi|
00006510  6e 75 74 65 73 22 3a f2  75 70 64 61 74 65 5f 69  |nutes":.update_i|
00006520  63 6f 6e 28 76 69 64 65  6f 5f 74 72 61 63 6b 73  |con(video_tracks|
00006530  25 2c 73 65 6c 65 63 74  69 63 6f 6e 25 2c 73 65  |%,selecticon%,se|
00006540  6c 65 63 74 69 6f 6e 24  29 3a f2 72 65 61 64 0d  |lection$):.read.|
00006550  1a ea 4b c9 20 22 32 30  20 6d 69 6e 75 74 65 73  |..K. "20 minutes|
00006560  22 3a f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 76  |":.update_icon(v|
00006570  69 64 65 6f 5f 74 72 61  63 6b 73 25 2c 73 65 6c  |ideo_tracks%,sel|
00006580  65 63 74 69 63 6f 6e 25  2c 73 65 6c 65 63 74 69  |ecticon%,selecti|
00006590  6f 6e 24 29 3a f2 72 65  61 64 0d 1a f4 4b c9 20  |on$):.read...K. |
000065a0  22 32 35 20 6d 69 6e 75  74 65 73 22 3a f2 75 70  |"25 minutes":.up|
000065b0  64 61 74 65 5f 69 63 6f  6e 28 76 69 64 65 6f 5f  |date_icon(video_|
000065c0  74 72 61 63 6b 73 25 2c  73 65 6c 65 63 74 69 63  |tracks%,selectic|
000065d0  6f 6e 25 2c 73 65 6c 65  63 74 69 6f 6e 24 29 3a  |on%,selection$):|
000065e0  f2 72 65 61 64 0d 1a fe  4b c9 20 22 33 30 20 6d  |.read...K. "30 m|
000065f0  69 6e 75 74 65 73 22 3a  f2 75 70 64 61 74 65 5f  |inutes":.update_|
00006600  69 63 6f 6e 28 76 69 64  65 6f 5f 74 72 61 63 6b  |icon(video_track|
00006610  73 25 2c 73 65 6c 65 63  74 69 63 6f 6e 25 2c 73  |s%,selecticon%,s|
00006620  65 6c 65 63 74 69 6f 6e  24 29 3a f2 72 65 61 64  |election$):.read|
00006630  0d 1b 08 4b c9 20 22 34  35 20 6d 69 6e 75 74 65  |...K. "45 minute|
00006640  73 22 3a f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |s":.update_icon(|
00006650  76 69 64 65 6f 5f 74 72  61 63 6b 73 25 2c 73 65  |video_tracks%,se|
00006660  6c 65 63 74 69 63 6f 6e  25 2c 73 65 6c 65 63 74  |lecticon%,select|
00006670  69 6f 6e 24 29 3a f2 72  65 61 64 0d 1b 12 4b c9  |ion$):.read...K.|
00006680  20 22 35 30 20 6d 69 6e  75 74 65 73 22 3a f2 75  | "50 minutes":.u|
00006690  70 64 61 74 65 5f 69 63  6f 6e 28 76 69 64 65 6f  |pdate_icon(video|
000066a0  5f 74 72 61 63 6b 73 25  2c 73 65 6c 65 63 74 69  |_tracks%,selecti|
000066b0  63 6f 6e 25 2c 73 65 6c  65 63 74 69 6f 6e 24 29  |con%,selection$)|
000066c0  3a f2 72 65 61 64 0d 1b  1c 47 c9 20 22 31 20 68  |:.read...G. "1 h|
000066d0  6f 75 72 22 3a f2 75 70  64 61 74 65 5f 69 63 6f  |our":.update_ico|
000066e0  6e 28 76 69 64 65 6f 5f  74 72 61 63 6b 73 25 2c  |n(video_tracks%,|
000066f0  73 65 6c 65 63 74 69 63  6f 6e 25 2c 73 65 6c 65  |selecticon%,sele|
00006700  63 74 69 6f 6e 24 29 3a  f2 72 65 61 64 0d 1b 26  |ction$):.read..&|
00006710  4e c9 20 22 31 20 68 6f  75 72 20 33 30 20 6d 69  |N. "1 hour 30 mi|
00006720  6e 22 3a f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |n":.update_icon(|
00006730  76 69 64 65 6f 5f 74 72  61 63 6b 73 25 2c 73 65  |video_tracks%,se|
00006740  6c 65 63 74 69 63 6f 6e  25 2c 73 65 6c 65 63 74  |lecticon%,select|
00006750  69 6f 6e 24 29 3a f2 72  65 61 64 0d 1b 30 48 c9  |ion$):.read..0H.|
00006760  20 22 32 20 68 6f 75 72  73 22 3a f2 75 70 64 61  | "2 hours":.upda|
00006770  74 65 5f 69 63 6f 6e 28  76 69 64 65 6f 5f 74 72  |te_icon(video_tr|
00006780  61 63 6b 73 25 2c 73 65  6c 65 63 74 69 63 6f 6e  |acks%,selecticon|
00006790  25 2c 73 65 6c 65 63 74  69 6f 6e 24 29 3a f2 72  |%,selection$):.r|
000067a0  65 61 64 0d 1b 3a 40 c9  20 22 36 30 20 6d 69 6e  |ead..:@. "60 min|
000067b0  75 74 65 73 22 3a f2 75  70 64 61 74 65 5f 69 63  |utes":.update_ic|
000067c0  6f 6e 28 76 69 64 65 6f  5f 69 6e 64 65 78 25 2c  |on(video_index%,|
000067d0  37 2c 73 65 6c 65 63 74  69 6f 6e 24 29 3a f2 72  |7,selection$):.r|
000067e0  65 61 64 0d 1b 44 41 c9  20 22 31 32 30 20 6d 69  |ead..DA. "120 mi|
000067f0  6e 75 74 65 73 22 3a f2  75 70 64 61 74 65 5f 69  |nutes":.update_i|
00006800  63 6f 6e 28 76 69 64 65  6f 5f 69 6e 64 65 78 25  |con(video_index%|
00006810  2c 37 2c 73 65 6c 65 63  74 69 6f 6e 24 29 3a f2  |,7,selection$):.|
00006820  72 65 61 64 0d 1b 4e 41  c9 20 22 31 38 30 20 6d  |read..NA. "180 m|
00006830  69 6e 75 74 65 73 22 3a  f2 75 70 64 61 74 65 5f  |inutes":.update_|
00006840  69 63 6f 6e 28 76 69 64  65 6f 5f 69 6e 64 65 78  |icon(video_index|
00006850  25 2c 37 2c 73 65 6c 65  63 74 69 6f 6e 24 29 3a  |%,7,selection$):|
00006860  f2 72 65 61 64 0d 1b 58  41 c9 20 22 32 34 30 20  |.read..XA. "240 |
00006870  6d 69 6e 75 74 65 73 22  3a f2 75 70 64 61 74 65  |minutes":.update|
00006880  5f 69 63 6f 6e 28 76 69  64 65 6f 5f 69 6e 64 65  |_icon(video_inde|
00006890  78 25 2c 37 2c 73 65 6c  65 63 74 69 6f 6e 24 29  |x%,7,selection$)|
000068a0  3a f2 72 65 61 64 0d 1b  62 46 c9 20 22 44 6f 6c  |:.read..bF. "Dol|
000068b0  62 79 22 3a f2 75 70 64  61 74 65 5f 69 63 6f 6e  |by":.update_icon|
000068c0  28 76 69 64 65 6f 5f 74  72 61 63 6b 73 25 2c 73  |(video_tracks%,s|
000068d0  65 6c 65 63 74 69 63 6f  6e 25 2c 73 65 6c 65 63  |electicon%,selec|
000068e0  74 69 6f 6e 24 29 3a f2  72 65 61 64 0d 1b 6c 45  |tion$):.read..lE|
000068f0  c9 20 22 4d 6f 6e 6f 22  3a f2 75 70 64 61 74 65  |. "Mono":.update|
00006900  5f 69 63 6f 6e 28 76 69  64 65 6f 5f 74 72 61 63  |_icon(video_trac|
00006910  6b 73 25 2c 73 65 6c 65  63 74 69 63 6f 6e 25 2c  |ks%,selecticon%,|
00006920  73 65 6c 65 63 74 69 6f  6e 24 29 3a f2 72 65 61  |selection$):.rea|
00006930  64 0d 1b 76 46 c9 20 22  4e 69 63 61 6d 22 3a f2  |d..vF. "Nicam":.|
00006940  75 70 64 61 74 65 5f 69  63 6f 6e 28 76 69 64 65  |update_icon(vide|
00006950  6f 5f 74 72 61 63 6b 73  25 2c 73 65 6c 65 63 74  |o_tracks%,select|
00006960  69 63 6f 6e 25 2c 73 65  6c 65 63 74 69 6f 6e 24  |icon%,selection$|
00006970  29 3a f2 72 65 61 64 0d  1b 80 47 c9 20 22 53 74  |):.read...G. "St|
00006980  65 72 65 6f 22 3a f2 75  70 64 61 74 65 5f 69 63  |ereo":.update_ic|
00006990  6f 6e 28 76 69 64 65 6f  5f 74 72 61 63 6b 73 25  |on(video_tracks%|
000069a0  2c 73 65 6c 65 63 74 69  63 6f 6e 25 2c 73 65 6c  |,selecticon%,sel|
000069b0  65 63 74 69 6f 6e 24 29  3a f2 72 65 61 64 0d 1b  |ection$):.read..|
000069c0  8a 3a c9 20 22 43 6f 70  79 22 3a f2 75 70 64 61  |.:. "Copy":.upda|
000069d0  74 65 5f 69 63 6f 6e 28  76 69 64 65 6f 5f 69 6e  |te_icon(video_in|
000069e0  64 65 78 25 2c 38 2c 73  65 6c 65 63 74 69 6f 6e  |dex%,8,selection|
000069f0  24 29 3a f2 72 65 61 64  0d 1b 94 3c c9 20 22 4d  |$):.read...<. "M|
00006a00  61 73 74 65 72 22 3a f2  75 70 64 61 74 65 5f 69  |aster":.update_i|
00006a10  63 6f 6e 28 76 69 64 65  6f 5f 69 6e 64 65 78 25  |con(video_index%|
00006a20  2c 38 2c 73 65 6c 65 63  74 69 6f 6e 24 29 3a f2  |,8,selection$):.|
00006a30  72 65 61 64 0d 1b 9e 22  c9 20 22 43 6c 65 61 72  |read...". "Clear|
00006a40  20 52 65 63 6f 72 64 22  3a f2 63 6c 65 61 72 5f  | Record":.clear_|
00006a50  73 69 6e 67 6c 65 0d 1b  a8 42 c9 20 22 4f 70 74  |single...B. "Opt|
00006a60  69 6f 6e 73 2e 2e 2e 22  3a f2 6f 70 65 6e 28 76  |ions...":.open(v|
00006a70  69 64 65 6f 5f 6d 61 69  6e 6f 70 74 69 6f 6e 73  |ideo_mainoptions|
00006a80  25 29 3a f2 6f 70 65 6e  28 76 69 64 65 6f 5f 6f  |%):.open(video_o|
00006a90  70 74 69 6f 6e 73 25 29  0d 1b b2 29 c9 20 22 52  |ptions%)...). "R|
00006aa0  65 73 74 61 72 74 20 20  20 46 38 22 3a f2 63 6c  |estart   F8":.cl|
00006ab0  65 61 72 5f 64 61 74 61  5f 71 75 65 73 74 69 6f  |ear_data_questio|
00006ac0  6e 0d 1b bc 18 c9 20 22  51 75 69 74 22 3a f2 71  |n..... "Quit":.q|
00006ad0  75 69 74 5f 63 68 65 63  6b 0d 1b c6 05 cb 0d 1b  |uit_check.......|
00006ae0  d0 20 c8 99 20 22 57 69  6d 70 5f 47 65 74 50 6f  |. .. "Wimp_GetPo|
00006af0  69 6e 74 65 72 49 6e 66  6f 22 2c 2c 71 25 0d 1b  |interInfo",,q%..|
00006b00  da 30 e7 20 71 25 21 38  3d 31 20 8c 20 c8 99 20  |.0. q%!8=1 . .. |
00006b10  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00006b20  22 2c 2c 73 65 6c 65 63  74 6d 65 6e 75 25 0d 1b  |",,selectmenu%..|
00006b30  e4 05 e1 0d 1b ee 05 3a  0d 1b f8 11 dd f2 72 65  |.......:......re|
00006b40  63 65 69 76 65 28 71 25  29 0d 1c 02 0e c8 8e 20  |ceive(q%)...... |
00006b50  71 25 21 31 36 20 ca 0d  1c 0c 13 c9 20 30 3a f2  |q%!16 ...... 0:.|
00006b60  71 75 69 74 5f 63 68 65  63 6b 0d 1c 16 11 c9 20  |quit_check..... |
00006b70  32 3a f2 64 61 74 61 73  61 76 65 0d 1c 20 40 c9  |2:.datasave.. @.|
00006b80  20 33 2c 35 3a e7 20 71  25 21 31 32 3d 30 20 80  | 3,5:. q%!12=0 .|
00006b90  20 71 25 21 34 30 3d 26  45 39 31 20 8c 20 f2 6c  | q%!40=&E91 . .l|
00006ba0  6f 61 64 5f 61 63 6b 6e  6f 77 6c 65 64 67 65 3a  |oad_acknowledge:|
00006bb0  f2 6f 6b 5f 74 6f 5f 6c  6f 61 64 0d 1c 2a 19 c9  |.ok_to_load..*..|
00006bc0  20 34 3a f2 6c 6f 61 64  5f 61 63 6b 6e 6f 77 6c  | 4:.load_acknowl|
00006bd0  65 64 67 65 0d 1c 34 1c  c9 20 26 35 30 32 3a f2  |edge..4.. &502:.|
00006be0  68 65 6c 70 28 a4 68 65  6c 70 5f 74 65 78 74 29  |help(.help_text)|
00006bf0  0d 1c 3e 1d c9 20 39 2c  26 34 30 30 43 31 3a f2  |..>.. 9,&400C1:.|
00006c00  67 65 74 5f 6d 6f 64 65  5f 69 6e 66 6f 0d 1c 48  |get_mode_info..H|
00006c10  1c c9 20 26 34 30 30 43  32 3a f2 63 68 65 63 6b  |.. &400C2:.check|
00006c20  5f 6e 65 77 5f 74 61 73  6b 0d 1c 52 05 cb 0d 1c  |_new_task..R....|
00006c30  5c 05 e1 0d 1c 66 05 3a  0d 1c 70 14 dd f2 63 68  |\....f.:..p...ch|
00006c40  65 63 6b 5f 6e 65 77 5f  74 61 73 6b 0d 1c 7a 2d  |eck_new_task..z-|
00006c50  6e 65 77 74 61 73 6b 69  64 25 3d 71 25 21 34 3a  |newtaskid%=q%!4:|
00006c60  74 61 73 6b 6e 61 6d 65  24 3d a4 73 74 72 69 6e  |taskname$=.strin|
00006c70  67 30 28 71 25 2b 32 38  29 0d 1c 84 3d e7 20 74  |g0(q%+28)...=. t|
00006c80  61 73 6b 6e 61 6d 65 24  3d 22 56 69 64 65 6f 20  |askname$="Video |
00006c90  49 6e 64 65 78 22 20 80  20 6e 65 77 74 61 73 6b  |Index" . newtask|
00006ca0  69 64 25 3c 3e 68 61 6e  64 6c 65 25 20 8c 20 71  |id%<>handle% . q|
00006cb0  75 69 74 25 3d b9 0d 1c  8e 05 e1 0d 1c 98 05 3a  |uit%=..........:|
00006cc0  0d 1c a2 26 dd a4 63 72  65 61 74 65 5f 6d 65 6e  |...&..create_men|
00006cd0  75 28 6d 65 6e 75 24 2c  6d 65 6e 75 32 24 2c 6d  |u(menu$,menu2$,m|
00006ce0  65 6e 75 33 24 29 0d 1c  ac 32 e7 20 6d 65 6e 75  |enu3$)...2. menu|
00006cf0  66 72 65 65 25 2b 32 38  3e 6d 65 6e 75 65 6e 64  |free%+28>menuend|
00006d00  25 20 8c 20 85 20 31 2c  22 4d 65 6e 75 20 41 72  |% . . 1,"Menu Ar|
00006d10  65 61 20 46 75 6c 6c 22  0d 1c b6 0b ea 20 6d 25  |ea Full"..... m%|
00006d20  2c 72 25 0d 1c c0 16 6d  65 6e 75 70 74 72 25 3d  |,r%....menuptr%=|
00006d30  6d 65 6e 75 66 72 65 65  25 0d 1c ca 08 72 25 3d  |menufree%....r%=|
00006d40  30 0d 1c d4 3f e7 20 c0  6d 65 6e 75 24 2c 31 29  |0...?. .menu$,1)|
00006d50  3d 22 23 22 20 8c 20 72  25 3d 31 3a 6d 65 6e 75  |="#" . r%=1:menu|
00006d60  74 69 74 6c 65 24 3d a4  70 61 72 28 22 2c 22 29  |title$=.par(",")|
00006d70  20 8b 20 6d 65 6e 75 74  69 74 6c 65 24 3d 22 22  | . menutitle$=""|
00006d80  0d 1c de 1a e7 20 c2 6d  65 6e 75 74 69 74 6c 65  |..... .menutitle|
00006d90  24 2c 31 29 3d 22 7b 22  20 8c 0d 1c e8 0e 62 6f  |$,1)="{" .....bo|
00006da0  74 69 63 6f 6e 25 3d 39  0d 1c f2 2b 6d 65 6e 75  |ticon%=9...+menu|
00006db0  74 69 74 6c 65 24 3d c0  6d 65 6e 75 74 69 74 6c  |title$=.menutitl|
00006dc0  65 24 2c a9 28 6d 65 6e  75 74 69 74 6c 65 24 29  |e$,.(menutitle$)|
00006dd0  2d 31 29 0d 1c fc 05 cc  0d 1d 06 0e 62 6f 74 69  |-1).........boti|
00006de0  63 6f 6e 25 3d 31 0d 1d  10 05 cd 0d 1d 1a 18 24  |con%=1.........$|
00006df0  6d 65 6e 75 70 74 72 25  3d 6d 65 6e 75 74 69 74  |menuptr%=menutit|
00006e00  6c 65 24 0d 1d 24 3b 6d  65 6e 75 70 74 72 25 3f  |le$..$;menuptr%?|
00006e10  31 32 3d 37 3a 6d 65 6e  75 70 74 72 25 3f 31 33  |12=7:menuptr%?13|
00006e20  3d 32 3a 6d 65 6e 75 70  74 72 25 3f 31 34 3d 37  |=2:menuptr%?14=7|
00006e30  3a 6d 65 6e 75 70 74 72  25 3f 31 35 3d 30 0d 1d  |:menuptr%?15=0..|
00006e40  2e 33 6d 65 6e 75 70 74  72 25 21 31 36 3d 31 39  |.3menuptr%!16=19|
00006e50  36 2d 32 34 3a 6d 65 6e  75 70 74 72 25 21 32 30  |6-24:menuptr%!20|
00006e60  3d 34 34 3a 6d 65 6e 75  70 74 72 25 21 32 34 3d  |=44:menuptr%!24=|
00006e70  30 0d 1d 38 24 6d 65 6e  75 70 74 72 25 2b 3d 32  |0..8$menuptr%+=2|
00006e80  38 3a 6d 61 78 78 25 3d  a9 6d 65 6e 75 74 69 74  |8:maxx%=.menutit|
00006e90  6c 65 24 2d 32 0d 1d 42  05 f5 0d 1d 4c 13 69 74  |le$-2..B....L.it|
00006ea0  65 6d 24 3d a4 70 61 72  28 22 2c 22 29 0d 1d 56  |em$=.par(",")..V|
00006eb0  12 e7 20 69 74 65 6d 24  3d 22 2b 2b 22 20 8c 0d  |.. item$="++" ..|
00006ec0  1d 60 08 72 25 3d 30 0d  1d 6a 10 6d 65 6e 75 24  |.`.r%=0..j.menu$|
00006ed0  3d 6d 65 6e 75 32 24 0d  1d 74 05 cc 0d 1d 7e 13  |=menu2$..t....~.|
00006ee0  e7 20 69 74 65 6d 24 3d  22 2b 2b 2b 22 20 8c 0d  |. item$="+++" ..|
00006ef0  1d 88 08 72 25 3d 30 0d  1d 92 10 6d 65 6e 75 25  |...r%=0....menu%|
00006f00  3d 6d 65 6e 75 33 24 0d  1d 9c 05 cc 0d 1d a6 15  |=menu3$.........|
00006f10  f2 6d 65 6e 75 5f 69 74  65 6d 28 69 74 65 6d 24  |.menu_item(item$|
00006f20  29 0d 1d b0 05 cd 0d 1d  ba 05 cd 0d 1d c4 0e fd  |)...............|
00006f30  20 69 74 65 6d 24 3d 22  22 0d 1d ce 19 e7 20 6d  | item$=""..... m|
00006f40  61 78 78 25 3e 32 30 20  8c 20 6d 61 78 78 25 3d  |axx%>20 . maxx%=|
00006f50  32 30 0d 1d d8 24 6d 25  3d 6d 65 6e 75 66 72 65  |20...$m%=menufre|
00006f60  65 25 3a 6d 25 21 31 36  3d 28 6d 61 78 78 25 2a  |e%:m%!16=(maxx%*|
00006f70  38 2b 36 29 2a 32 0d 1d  e2 16 6d 65 6e 75 66 72  |8+6)*2....menufr|
00006f80  65 65 25 3d 6d 65 6e 75  70 74 72 25 0d 1d ec 07  |ee%=menuptr%....|
00006f90  3d 6d 25 0d 1d f6 05 3a  0d 1e 00 16 dd f2 6d 65  |=m%....:......me|
00006fa0  6e 75 5f 69 74 65 6d 28  74 65 78 74 24 29 0d 1e  |nu_item(text$)..|
00006fb0  0a 33 e7 20 74 65 78 74  24 3d 22 22 20 8c 20 6d  |.3. text$="" . m|
00006fc0  65 6e 75 70 74 72 25 21  2d 32 34 3d 28 6d 65 6e  |enuptr%!-24=(men|
00006fd0  75 70 74 72 25 21 2d 32  34 29 84 20 26 38 30 3a  |uptr%!-24). &80:|
00006fe0  e1 0d 1e 14 32 e7 20 6d  65 6e 75 70 74 72 25 2b  |....2. menuptr%+|
00006ff0  32 34 20 3e 6d 65 6e 75  65 6e 64 25 20 8c 20 85  |24 >menuend% . .|
00007000  20 31 2c 22 4d 65 6e 75  20 41 72 65 61 20 46 75  | 1,"Menu Area Fu|
00007010  6c 6c 22 0d 1e 1e 11 ea  20 72 25 2c 66 6c 61 67  |ll"..... r%,flag|
00007020  25 2c 56 25 0d 1e 28 0d  66 6c 61 67 25 3d 26 30  |%,V%..(.flag%=&0|
00007030  30 0d 1e 32 12 72 25 3d  a7 74 65 78 74 24 2c 22  |0..2.r%=.text$,"|
00007040  3e 22 29 0d 1e 3c 0c e7  20 72 25 3e 30 20 8c 0d  |>")..<.. r%>0 ..|
00007050  1e 46 19 73 75 62 70 74  72 25 3d a0 c1 74 65 78  |.F.subptr%=..tex|
00007060  74 24 2c 72 25 2b 31 29  0d 1e 50 16 74 65 78 74  |t$,r%+1)..P.text|
00007070  24 3d c0 74 65 78 74 24  2c 72 25 2d 31 29 0d 1e  |$=.text$,r%-1)..|
00007080  5a 05 cc 0d 1e 64 13 72  72 25 3d a7 74 65 78 74  |Z....d.rr%=.text|
00007090  24 2c 22 7d 22 29 0d 1e  6e 0d e7 20 72 72 25 3e  |$,"}")..n.. rr%>|
000070a0  30 20 8c 0d 1e 78 1a 73  75 62 70 74 72 25 3d a0  |0 ...x.subptr%=.|
000070b0  c1 74 65 78 74 24 2c 72  72 25 2b 31 29 0d 1e 82  |.text$,rr%+1)...|
000070c0  16 74 65 78 74 24 3d c0  74 65 78 74 2c 72 72 25  |.text$=.text,rr%|
000070d0  2d 31 29 0d 1e 8c 0e 66  6c 61 67 25 2b 3d 26 30  |-1)....flag%+=&0|
000070e0  38 0d 1e 96 05 cc 0d 1e  a0 0e 73 75 62 70 74 72  |8.........subptr|
000070f0  25 3d 2d 31 0d 1e aa 05  cd 0d 1e b4 05 cd 0d 1e  |%=-1............|
00007100  be 37 e7 20 c2 74 65 78  74 24 2c 31 29 3d 22 23  |.7. .text$,1)="#|
00007110  22 20 8c 20 74 65 78 74  24 3d c0 74 65 78 74 24  |" . text$=.text$|
00007120  2c a9 74 65 78 74 24 2d  31 29 3a 66 6c 61 67 25  |,.text$-1):flag%|
00007130  2b 3d 26 30 32 0d 1e c8  37 e7 20 c2 74 65 78 74  |+=&02...7. .text|
00007140  24 2c 31 29 3d 22 5c 22  20 8c 20 74 65 78 74 24  |$,1)="\" . text$|
00007150  3d c0 74 65 78 74 24 2c  a9 74 65 78 74 24 2d 31  |=.text$,.text$-1|
00007160  29 3a 66 6c 61 67 25 2b  3d 26 30 31 0d 1e d2 14  |):flag%+=&01....|
00007170  72 72 72 25 3d a7 74 65  78 74 24 2c 22 7c 22 29  |rrr%=.text$,"|")|
00007180  0d 1e dc 15 72 72 72 72  25 3d a7 74 65 78 74 24  |....rrrr%=.text$|
00007190  2c 22 a4 22 29 0d 1e e6  18 e7 20 72 72 72 25 3d  |,".")..... rrr%=|
000071a0  30 20 80 20 72 72 72 72  25 3d 30 20 8c 0d 1e f0  |0 . rrrr%=0 ....|
000071b0  19 6d 66 67 25 3d 30 3c  3c 32 38 3a 6d 62 67 25  |.mfg%=0<<28:mbg%|
000071c0  3d 37 3c 3c 32 34 0d 1e  fa 05 cc 0d 1f 04 0d c8  |=7<<24..........|
000071d0  8e 20 72 72 72 25 20 ca  0d 1f 0e 13 c9 20 30 3a  |. rrr% ...... 0:|
000071e0  6d 66 67 25 3d 30 20 3c  3c 32 38 0d 1f 18 05 7f  |mfg%=0 <<28.....|
000071f0  0d 1f 22 27 6d 66 67 25  3d 28 bb 28 c1 74 65 78  |.."'mfg%=(.(.tex|
00007200  74 24 2c 72 72 72 25 2b  31 2c 32 29 29 20 83 20  |t$,rrr%+1,2)) . |
00007210  31 36 29 3c 3c 32 38 0d  1f 2c 27 74 65 78 74 24  |16)<<28..,'text$|
00007220  3d c0 74 65 78 74 24 2c  72 72 72 25 2d 31 29 2b  |=.text$,rrr%-1)+|
00007230  c1 74 65 78 74 24 2c 72  72 72 25 2b 33 29 0d 1f  |.text$,rrr%+3)..|
00007240  36 05 cb 0d 1f 40 15 72  72 72 72 25 3d a7 74 65  |6....@.rrrr%=.te|
00007250  78 74 24 2c 22 a4 22 29  0d 1f 4a 0e c8 8e 20 72  |xt$,".")..J... r|
00007260  72 72 72 25 20 ca 0d 1f  54 12 c9 20 30 3a 6d 62  |rrr% ...T.. 0:mb|
00007270  67 25 3d 37 3c 3c 32 34  0d 1f 5e 05 7f 0d 1f 68  |g%=7<<24..^....h|
00007280  28 6d 62 67 25 3d 28 bb  28 c1 74 65 78 74 24 2c  |(mbg%=(.(.text$,|
00007290  72 72 72 72 25 2b 31 2c  32 29 29 20 83 20 31 36  |rrrr%+1,2)) . 16|
000072a0  29 3c 3c 32 34 0d 1f 72  29 74 65 78 74 24 3d c0  |)<<24..r)text$=.|
000072b0  74 65 78 74 24 2c 72 72  72 72 25 2d 31 29 2b c1  |text$,rrrr%-1)+.|
000072c0  74 65 78 74 24 2c 72 72  72 72 25 2b 33 29 0d 1f  |text$,rrrr%+3)..|
000072d0  7c 05 cb 0d 1f 86 05 cd  0d 1f 90 14 6d 65 6e 75  ||...........menu|
000072e0  70 74 72 25 21 30 3d 66  6c 61 67 25 0d 1f 9a 16  |ptr%!0=flag%....|
000072f0  6d 65 6e 75 70 74 72 25  21 34 3d 73 75 62 70 74  |menuptr%!4=subpt|
00007300  72 25 0d 1f a4 25 6d 65  6e 75 70 74 72 25 21 38  |r%...%menuptr%!8|
00007310  3d 6d 66 67 25 2b 6d 62  67 25 2b 26 32 30 2b 62  |=mfg%+mbg%+&20+b|
00007320  6f 74 69 63 6f 6e 25 0d  1f ae 4c e7 20 c2 74 65  |oticon%...L. .te|
00007330  78 74 24 2c 31 29 3d 22  2f 22 20 8c 20 74 65 78  |xt$,1)="/" . tex|
00007340  74 24 3d c0 74 65 78 74  24 2c a9 74 65 78 74 24  |t$=.text$,.text$|
00007350  2d 31 29 3a 6d 65 6e 75  70 74 72 25 21 38 3d 28  |-1):menuptr%!8=(|
00007360  6d 65 6e 75 70 74 72 25  21 38 20 84 20 31 3c 3c  |menuptr%!8 . 1<<|
00007370  32 32 29 0d 1f b8 15 e7  20 c0 74 65 78 74 24 2c  |22)..... .text$,|
00007380  31 29 3d 22 24 22 20 8c  0d 1f c2 12 21 6d 65 6e  |1)="$" .....!men|
00007390  75 70 74 72 25 2b 3d 26  30 34 0d 1f cc 13 6d 65  |uptr%+=&04....me|
000073a0  6e 75 70 74 72 25 21 2b  3d 26 31 30 38 0d 1f d6  |nuptr%!+=&108...|
000073b0  12 72 25 3d a7 74 65 78  74 24 2c 22 28 22 29 0d  |.r%=.text$,"(").|
000073c0  1f e0 37 e7 20 72 25 3e  30 20 8c 20 4c 25 3d bb  |..7. r%>0 . L%=.|
000073d0  c1 74 65 78 74 24 2c 72  25 2b 31 29 3a 74 65 78  |.text$,r%+1):tex|
000073e0  74 24 3d c0 74 65 78 74  24 2c 72 25 2d 31 29 8b  |t$=.text$,r%-1).|
000073f0  20 4c 25 3d 31 32 0d 1f  ea 09 56 25 3d 2d 31 0d  | L%=12....V%=-1.|
00007400  1f f4 1a 6d 65 6e 75 70  74 72 25 21 31 32 3d a0  |...menuptr%!12=.|
00007410  c1 74 65 78 74 24 2c 32  29 0d 1f fe 12 6d 65 6e  |.text$,2)....men|
00007420  75 70 74 72 25 21 31 36  3d 2d 31 0d 20 08 12 6d  |uptr%!16=-1. ..m|
00007430  65 6e 75 70 74 72 25 21  32 30 3d 4c 25 0d 20 12  |enuptr%!20=L%. .|
00007440  12 74 65 78 74 24 3d c4  4c 25 2c 22 20 22 29 0d  |.text$=.L%," ").|
00007450  20 1c 05 cc 0d 20 26 12  e7 20 a9 74 65 78 74 24  | .... &.. .text$|
00007460  3c 3d 31 32 20 8c 0d 20  30 18 24 28 6d 65 6e 75  |<=12 .. 0.$(menu|
00007470  70 74 72 25 2b 31 32 29  3d 74 65 78 74 24 0d 20  |ptr%+12)=text$. |
00007480  3a 05 cc 0d 20 44 25 52  25 3d a4 77 6f 72 6b 73  |:... D%R%=.works|
00007490  70 61 63 65 28 a9 74 65  78 74 24 2b 31 29 3a 24  |pace(.text$+1):$|
000074a0  52 25 3d 74 65 78 74 24  0d 20 4e 36 6d 65 6e 75  |R%=text$. N6menu|
000074b0  70 74 72 25 21 31 32 3d  52 25 3a 6d 65 6e 75 70  |ptr%!12=R%:menup|
000074c0  74 72 25 21 31 36 3d 2d  31 3a 6d 65 6e 75 70 74  |tr%!16=-1:menupt|
000074d0  72 25 21 32 30 3d a9 74  65 78 74 24 2b 31 0d 20  |r%!20=.text$+1. |
000074e0  58 20 6d 65 6e 75 70 74  72 25 21 38 3d 6d 65 6e  |X menuptr%!8=men|
000074f0  75 70 74 72 25 21 38 20  84 20 26 31 30 30 0d 20  |uptr%!8 . &100. |
00007500  62 05 cd 0d 20 6c 05 cd  0d 20 76 21 e7 20 a9 74  |b... l... v!. .t|
00007510  65 78 74 24 3e 6d 61 78  78 25 20 8c 20 6d 61 78  |ext$>maxx% . max|
00007520  78 25 3d a9 74 65 78 74  24 0d 20 80 10 6d 65 6e  |x%=.text$. ..men|
00007530  75 70 74 72 25 2b 3d 32  34 0d 20 8a 05 e1 0d 20  |uptr%+=24. .... |
00007540  94 05 3a 0d 20 9e 0f dd  a4 70 61 72 28 73 65 70  |..:. ....par(sep|
00007550  24 29 0d 20 a8 25 72 31  25 3d 72 25 2b 31 3a 72  |$). .%r1%=r%+1:r|
00007560  25 3d a7 6d 65 6e 75 24  2b 73 65 70 24 2c 73 65  |%=.menu$+sep$,se|
00007570  70 24 2c 72 31 25 29 0d  20 b2 17 3d c1 6d 65 6e  |p$,r1%). ..=.men|
00007580  75 24 2c 72 31 25 2c 72  25 2d 72 31 25 29 0d 20  |u$,r1%,r%-r1%). |
00007590  bc 05 3a 0d 20 c6 13 dd  a4 77 6f 72 6b 73 70 61  |..:. ....workspa|
000075a0  63 65 28 4c 25 29 0d 20  d0 33 e7 20 63 75 72 77  |ce(L%). .3. curw|
000075b0  73 25 2b 4c 25 3e 6d 61  78 77 73 25 20 8c 20 85  |s%+L%>maxws% . .|
000075c0  20 31 2c 22 4e 6f 20 4d  6f 72 65 20 42 75 66 66  | 1,"No More Buff|
000075d0  65 72 20 53 70 61 63 65  22 0d 20 da 19 63 75 72  |er Space". ..cur|
000075e0  77 73 25 2b 3d 4c 25 3a  3d 63 75 72 77 73 25 2d  |ws%+=L%:=curws%-|
000075f0  4c 25 0d 20 e4 05 3a 0d  20 ee 1c dd f2 69 6e 69  |L%. ..:. ....ini|
00007600  74 69 61 6c 69 73 65 5f  76 69 64 65 6f 5f 69 6e  |tialise_video_in|
00007610  64 65 78 0d 20 f8 30 de  20 66 6f 72 6d 61 74 24  |dex. .0. format$|
00007620  28 32 35 30 29 2c 76 69  64 65 6f 5f 6c 65 6e 67  |(250),video_leng|
00007630  74 68 24 28 32 35 30 29  2c 74 79 70 65 24 28 32  |th$(250),type$(2|
00007640  35 30 29 0d 21 02 3e de  20 6e 61 6d 65 24 28 32  |50).!.>. name$(2|
00007650  35 30 2c 31 30 29 2c 73  74 61 72 74 24 28 32 35  |50,10),start$(25|
00007660  30 2c 31 30 29 2c 73 74  6f 70 24 28 32 35 30 2c  |0,10),stop$(250,|
00007670  31 30 29 2c 64 61 74 65  24 28 32 35 30 2c 31 30  |10),date$(250,10|
00007680  29 0d 21 0c 37 de 20 63  61 74 65 67 6f 72 79 24  |).!.7. category$|
00007690  28 32 35 30 2c 31 30 29  2c 73 70 65 65 64 24 28  |(250,10),speed$(|
000076a0  32 35 30 2c 31 30 29 2c  63 68 61 6e 6e 65 6c 24  |250,10),channel$|
000076b0  28 32 35 30 2c 31 30 29  0d 21 16 3e de 20 6c 65  |(250,10).!.>. le|
000076c0  6e 67 74 68 24 28 32 35  30 2c 31 30 29 2c 61 75  |ngth$(250,10),au|
000076d0  64 69 6f 24 28 32 35 30  2c 31 30 29 2c 73 70 65  |dio$(250,10),spe|
000076e0  65 64 61 72 72 61 79 24  28 32 29 2c 73 70 65 65  |edarray$(2),spee|
000076f0  64 25 28 31 30 29 0d 21  20 1e 73 70 65 65 64 61  |d%(10).! .speeda|
00007700  72 72 61 79 24 28 29 3d  22 22 2c 22 53 50 22 2c  |rray$()="","SP",|
00007710  22 4c 50 22 0d 21 2a 38  72 65 63 6f 72 64 5f 6e  |"LP".!*8record_n|
00007720  75 6d 62 65 72 25 3d 31  3a 73 65 61 72 63 68 74  |umber%=1:searcht|
00007730  79 70 65 24 3d 22 4e 61  6d 65 22 3a 70 72 69 6e  |ype$="Name":prin|
00007740  74 65 72 24 3d 22 44 72  61 66 74 22 0d 21 34 35  |ter$="Draft".!45|
00007750  70 72 69 6e 74 77 68 61  74 24 3d 22 41 6c 6c 22  |printwhat$="All"|
00007760  3a 73 65 61 72 63 68 73  74 72 69 6e 67 24 3d 22  |:searchstring$="|
00007770  22 3a 63 61 73 65 73 65  6e 73 65 24 3d 22 4e 6f  |":casesense$="No|
00007780  22 0d 21 3e 35 73 61 76  65 61 6c 6c 74 65 78 74  |".!>5savealltext|
00007790  24 3d 22 59 65 73 22 3a  6c 69 6e 65 66 65 65 64  |$="Yes":linefeed|
000077a0  24 3d 22 4e 6f 22 3a 70  72 69 6e 74 61 6c 6c 24  |$="No":printall$|
000077b0  3d 22 59 65 73 22 0d 21  48 39 c8 99 20 22 46 6f  |="Yes".!H9.. "Fo|
000077c0  6e 74 5f 46 69 6e 64 46  6f 6e 74 22 2c 2c 22 43  |nt_FindFont",,"C|
000077d0  6f 72 70 75 73 2e 4d 65  64 69 75 6d 22 2c 31 36  |orpus.Medium",16|
000077e0  30 2c 31 36 30 20 b8 20  63 6f 72 70 75 73 25 0d  |0,160 . corpus%.|
000077f0  21 52 3d c8 99 20 22 46  6f 6e 74 5f 46 69 6e 64  |!R=.. "Font_Find|
00007800  46 6f 6e 74 22 2c 2c 22  48 6f 6d 65 72 74 6f 6e  |Font",,"Homerton|
00007810  2e 4d 65 64 69 75 6d 22  2c 31 36 30 2c 31 36 30  |.Medium",160,160|
00007820  20 b8 20 68 6f 6d 65 72  74 6f 6e 25 0d 21 5c 11  | . homerton%.!\.|
00007830  f2 6c 6f 61 64 5f 6f 70  74 69 6f 6e 73 0d 21 66  |.load_options.!f|
00007840  05 e1 0d 21 70 05 3a 0d  21 7a 0c dd f2 75 70 64  |...!p.:.!z...upd|
00007850  61 74 65 0d 21 84 0e 73  70 65 65 64 25 28 29 3d  |ate.!..speed%()=|
00007860  30 0d 21 8e 29 e7 20 72  65 63 6f 72 64 5f 6e 75  |0.!.). record_nu|
00007870  6d 62 65 72 25 3c 31 20  8c 20 72 65 63 6f 72 64  |mber%<1 . record|
00007880  5f 6e 75 6d 62 65 72 25  3d 31 0d 21 98 3d e7 20  |_number%=1.!.=. |
00007890  72 65 63 6f 72 64 5f 6e  75 6d 62 65 72 25 3e 6d  |record_number%>m|
000078a0  61 78 5f 72 65 63 6f 72  64 25 20 8c 20 72 65 63  |ax_record% . rec|
000078b0  6f 72 64 5f 6e 75 6d 62  65 72 25 3d 6d 61 78 5f  |ord_number%=max_|
000078c0  72 65 63 6f 72 64 25 0d  21 a2 19 f2 66 69 6c 6c  |record%.!...fill|
000078d0  28 72 65 63 6f 72 64 5f  6e 75 6d 62 65 72 25 29  |(record_number%)|
000078e0  0d 21 ac 05 e1 0d 21 b6  05 3a 0d 21 c0 1a dd f2  |.!....!..:.!....|
000078f0  66 69 6c 6c 28 72 65 63  6f 72 64 5f 6e 75 6d 62  |fill(record_numb|
00007900  65 72 25 29 0d 21 ca 15  c8 99 20 22 48 6f 75 72  |er%).!.... "Hour|
00007910  67 6c 61 73 73 5f 4f 6e  22 0d 21 d4 33 f2 75 70  |glass_On".!.3.up|
00007920  64 61 74 65 5f 69 63 6f  6e 28 76 69 64 65 6f 5f  |date_icon(video_|
00007930  70 72 69 6e 74 25 2c 31  32 2c c3 28 72 65 63 6f  |print%,12,.(reco|
00007940  72 64 5f 6e 75 6d 62 65  72 25 29 29 0d 21 de 32  |rd_number%)).!.2|
00007950  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 76 69 64  |.update_icon(vid|
00007960  65 6f 5f 69 6e 64 65 78  25 2c 35 2c c3 28 72 65  |eo_index%,5,.(re|
00007970  63 6f 72 64 5f 6e 75 6d  62 65 72 25 29 29 0d 21  |cord_number%)).!|
00007980  e8 43 f2 74 72 61 63 6b  73 5f 6d 6f 76 65 5f 63  |.C.tracks_move_c|
00007990  61 72 65 74 28 76 69 64  65 6f 5f 74 72 61 63 6b  |aret(video_track|
000079a0  73 25 2c 31 29 3a f2 6d  6f 76 65 5f 63 61 72 65  |s%,1):.move_care|
000079b0  74 28 76 69 64 65 6f 5f  69 6e 64 65 78 25 2c 36  |t(video_index%,6|
000079c0  29 0d 21 f2 38 f2 75 70  64 61 74 65 5f 69 63 6f  |).!.8.update_ico|
000079d0  6e 28 76 69 64 65 6f 5f  69 6e 64 65 78 25 2c 36  |n(video_index%,6|
000079e0  2c 66 6f 72 6d 61 74 24  28 72 65 63 6f 72 64 5f  |,format$(record_|
000079f0  6e 75 6d 62 65 72 25 29  29 0d 21 fc 3e f2 75 70  |number%)).!.>.up|
00007a00  64 61 74 65 5f 69 63 6f  6e 28 76 69 64 65 6f 5f  |date_icon(video_|
00007a10  69 6e 64 65 78 25 2c 37  2c 76 69 64 65 6f 5f 6c  |index%,7,video_l|
00007a20  65 6e 67 74 68 24 28 72  65 63 6f 72 64 5f 6e 75  |ength$(record_nu|
00007a30  6d 62 65 72 25 29 29 0d  22 06 36 f2 75 70 64 61  |mber%)).".6.upda|
00007a40  74 65 5f 69 63 6f 6e 28  76 69 64 65 6f 5f 69 6e  |te_icon(video_in|
00007a50  64 65 78 25 2c 38 2c 74  79 70 65 24 28 72 65 63  |dex%,8,type$(rec|
00007a60  6f 72 64 5f 6e 75 6d 62  65 72 25 29 29 0d 22 10  |ord_number%)).".|
00007a70  12 f2 75 70 64 61 74 65  5f 74 72 61 63 6b 73 0d  |..update_tracks.|
00007a80  22 1a 16 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |".... "Hourglass|
00007a90  5f 4f 66 66 22 0d 22 24  05 e1 0d 22 2e 05 3a 0d  |_Off"."$..."..:.|
00007aa0  22 38 13 dd f2 6e 75 6d  62 65 72 5f 75 70 64 61  |"8...number_upda|
00007ab0  74 65 0d 22 42 2f 72 65  63 6f 72 64 5f 6e 75 6d  |te."B/record_num|
00007ac0  62 65 72 25 3d bb 28 a4  69 6e 64 69 72 65 63 74  |ber%=.(.indirect|
00007ad0  28 76 69 64 65 6f 5f 69  6e 64 65 78 25 2c 35 29  |(video_index%,5)|
00007ae0  29 0d 22 4c 29 e7 20 72  65 63 6f 72 64 5f 6e 75  |)."L). record_nu|
00007af0  6d 62 65 72 25 3c 31 20  8c 20 72 65 63 6f 72 64  |mber%<1 . record|
00007b00  5f 6e 75 6d 62 65 72 25  3d 31 0d 22 56 3d e7 20  |_number%=1."V=. |
00007b10  72 65 63 6f 72 64 5f 6e  75 6d 62 65 72 25 3e 6d  |record_number%>m|
00007b20  61 78 5f 72 65 63 6f 72  64 25 20 8c 20 72 65 63  |ax_record% . rec|
00007b30  6f 72 64 5f 6e 75 6d 62  65 72 25 3d 6d 61 78 5f  |ord_number%=max_|
00007b40  72 65 63 6f 72 64 25 0d  22 60 19 f2 66 69 6c 6c  |record%."`..fill|
00007b50  28 72 65 63 6f 72 64 5f  6e 75 6d 62 65 72 25 29  |(record_number%)|
00007b60  0d 22 6a 05 e1 0d 22 74  05 3a 0d 22 7e 1a dd f2  |."j..."t.:."~...|
00007b70  72 65 5f 74 69 74 6c 65  28 6e 65 77 5f 74 69 74  |re_title(new_tit|
00007b80  6c 65 24 29 0d 22 88 14  21 71 25 3d 76 69 64 65  |le$)."..!q%=vide|
00007b90  6f 5f 69 6e 64 65 78 25  0d 22 92 1f c8 99 20 22  |o_index%.".... "|
00007ba0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 49 6e  |Wimp_GetWindowIn|
00007bb0  66 6f 22 2c 2c 71 25 0d  22 9c 37 e7 20 28 28 71  |fo",,q%.".7. ((q|
00007bc0  25 21 36 30 29 20 80 20  26 31 30 30 29 3d 30 20  |%!60) . &100)=0 |
00007bd0  8c 20 85 20 31 2c 22 54  69 74 6c 65 20 69 73 6e  |. . 1,"Title isn|
00007be0  27 74 20 69 6e 64 69 72  65 63 74 65 64 22 0d 22  |'t indirected"."|
00007bf0  a6 17 24 28 71 25 21 37  36 29 3d 6e 65 77 5f 74  |..$(q%!76)=new_t|
00007c00  69 74 6c 65 24 0d 22 b0  4f e7 20 28 28 71 25 21  |itle$.".O. ((q%!|
00007c10  33 32 29 20 80 20 28 31  3c 3c 31 36 29 29 3c 3e  |32) . (1<<16))<>|
00007c20  30 20 c8 99 20 22 57 69  6d 70 5f 46 6f 72 63 65  |0 .. "Wimp_Force|
00007c30  52 65 64 72 61 77 22 2c  2d 31 2c 71 25 21 34 2c  |Redraw",-1,q%!4,|
00007c40  71 25 21 31 36 2c 71 25  21 31 32 2c 71 25 21 31  |q%!16,q%!12,q%!1|
00007c50  36 2b 34 34 0d 22 ba 05  e1 0d 22 c4 05 3a 0d 22  |6+44."...."..:."|
00007c60  ce 0a dd f2 72 65 61 64  0d 22 d8 1e f2 72 65 5f  |....read."...re_|
00007c70  74 69 74 6c 65 28 22 56  69 64 65 6f 20 49 6e 64  |title("Video Ind|
00007c80  65 78 20 2a 22 29 0d 22  e2 0e 75 6e 73 61 76 65  |ex *")."..unsave|
00007c90  64 25 3d b9 0d 22 ec 2f  72 65 63 6f 72 64 5f 6e  |d%=.."./record_n|
00007ca0  75 6d 62 65 72 25 3d bb  28 a4 69 6e 64 69 72 65  |umber%=.(.indire|
00007cb0  63 74 28 76 69 64 65 6f  5f 69 6e 64 65 78 25 2c  |ct(video_index%,|
00007cc0  35 29 29 0d 22 f6 35 66  6f 72 6d 61 74 24 28 72  |5)).".5format$(r|
00007cd0  65 63 6f 72 64 5f 6e 75  6d 62 65 72 25 29 3d a4  |ecord_number%)=.|
00007ce0  69 6e 64 69 72 65 63 74  28 76 69 64 65 6f 5f 69  |indirect(video_i|
00007cf0  6e 64 65 78 25 2c 36 29  0d 23 00 3b 76 69 64 65  |ndex%,6).#.;vide|
00007d00  6f 5f 6c 65 6e 67 74 68  24 28 72 65 63 6f 72 64  |o_length$(record|
00007d10  5f 6e 75 6d 62 65 72 25  29 3d a4 69 6e 64 69 72  |_number%)=.indir|
00007d20  65 63 74 28 76 69 64 65  6f 5f 69 6e 64 65 78 25  |ect(video_index%|
00007d30  2c 37 29 0d 23 0a 33 74  79 70 65 24 28 72 65 63  |,7).#.3type$(rec|
00007d40  6f 72 64 5f 6e 75 6d 62  65 72 25 29 3d a4 69 6e  |ord_number%)=.in|
00007d50  64 69 72 65 63 74 28 76  69 64 65 6f 5f 69 6e 64  |direct(video_ind|
00007d60  65 78 25 2c 38 29 0d 23  14 05 e1 0d 23 1e 05 3a  |ex%,8).#....#..:|
00007d70  0d 23 28 18 dd a4 69 6e  64 69 72 65 63 74 28 21  |.#(...indirect(!|
00007d80  71 25 2c 71 25 21 34 29  0d 23 32 1e c8 99 20 22  |q%,q%!4).#2... "|
00007d90  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00007da0  65 22 2c 2c 71 25 0d 23  3c 0d 3d 24 28 71 25 21  |e",,q%.#<.=$(q%!|
00007db0  32 38 29 0d 23 46 05 3a  0d 23 50 09 dd f2 6e 65  |28).#F.:.#P...ne|
00007dc0  77 0d 23 5a 15 c8 99 20  22 48 6f 75 72 67 6c 61  |w.#Z... "Hourgla|
00007dd0  73 73 5f 4f 6e 22 0d 23  64 30 f2 6f 70 65 6e 28  |ss_On".#d0.open(|
00007de0  76 69 64 65 6f 5f 69 6e  64 65 78 25 29 3a f2 6f  |video_index%):.o|
00007df0  70 65 6e 28 76 69 64 65  6f 5f 62 61 63 6b 74 72  |pen(video_backtr|
00007e00  61 63 6b 73 25 29 0d 23  6e 3c f2 6f 70 65 6e 28  |acks%).#n<.open(|
00007e10  76 69 64 65 6f 5f 74 72  61 63 6b 73 25 29 3a f2  |video_tracks%):.|
00007e20  74 72 61 63 6b 73 5f 6d  6f 76 65 5f 63 61 72 65  |tracks_move_care|
00007e30  74 28 76 69 64 65 6f 5f  74 72 61 63 6b 73 25 2c  |t(video_tracks%,|
00007e40  31 29 0d 23 78 1f f2 6d  6f 76 65 5f 63 61 72 65  |1).#x..move_care|
00007e50  74 28 76 69 64 65 6f 5f  69 6e 64 65 78 25 2c 36  |t(video_index%,6|
00007e60  29 0d 23 82 18 e3 20 49  25 3d 31 20 b8 20 6d 61  |).#... I%=1 . ma|
00007e70  78 5f 72 65 63 6f 72 64  25 0d 23 8c 35 c8 99 20  |x_record%.#.5.. |
00007e80  22 48 6f 75 72 67 6c 61  73 73 5f 50 65 72 63 65  |"Hourglass_Perce|
00007e90  6e 74 61 67 65 22 2c a8  28 28 49 25 2f 6d 61 78  |ntage",.((I%/max|
00007ea0  5f 72 65 63 6f 72 64 25  29 2a 31 30 30 29 0d 23  |_record%)*100).#|
00007eb0  96 34 66 6f 72 6d 61 74  24 28 49 25 29 3d 22 22  |.4format$(I%)=""|
00007ec0  3a 76 69 64 65 6f 5f 6c  65 6e 67 74 68 24 28 49  |:video_length$(I|
00007ed0  25 29 3d 22 22 3a 74 79  70 65 24 28 49 25 29 3d  |%)="":type$(I%)=|
00007ee0  22 22 0d 23 a0 12 e3 20  73 75 62 49 25 3d 31 20  |"".#... subI%=1 |
00007ef0  b8 20 31 30 0d 23 aa 3d  6e 61 6d 65 24 28 49 25  |. 10.#.=name$(I%|
00007f00  2c 73 75 62 49 25 29 3d  22 22 3a 73 74 61 72 74  |,subI%)="":start|
00007f10  24 28 49 25 2c 73 75 62  49 25 29 3d 22 22 3a 73  |$(I%,subI%)="":s|
00007f20  74 6f 70 24 28 49 25 2c  73 75 62 49 25 29 3d 22  |top$(I%,subI%)="|
00007f30  22 0d 23 b4 41 64 61 74  65 24 28 49 25 2c 73 75  |".#.Adate$(I%,su|
00007f40  62 49 25 29 3d 22 22 3a  63 61 74 65 67 6f 72 79  |bI%)="":category|
00007f50  24 28 49 25 2c 73 75 62  49 25 29 3d 22 22 3a 73  |$(I%,subI%)="":s|
00007f60  70 65 65 64 24 28 49 25  2c 73 75 62 49 25 29 3d  |peed$(I%,subI%)=|
00007f70  22 22 0d 23 be 42 63 68  61 6e 6e 65 6c 24 28 49  |"".#.Bchannel$(I|
00007f80  25 2c 73 75 62 49 25 29  3d 22 22 3a 6c 65 6e 67  |%,subI%)="":leng|
00007f90  74 68 24 28 49 25 2c 73  75 62 49 25 29 3d 22 22  |th$(I%,subI%)=""|
00007fa0  3a 61 75 64 69 6f 24 28  49 25 2c 73 75 62 49 25  |:audio$(I%,subI%|
00007fb0  29 3d 22 22 0d 23 c8 0b  ed 20 73 75 62 49 25 0d  |)="".#... subI%.|
00007fc0  23 d2 08 ed 20 49 25 0d  23 dc 14 72 65 63 6f 72  |#... I%.#..recor|
00007fd0  64 5f 6e 75 6d 62 65 72  25 3d 31 0d 23 e6 32 f2  |d_number%=1.#.2.|
00007fe0  75 70 64 61 74 65 5f 69  63 6f 6e 28 76 69 64 65  |update_icon(vide|
00007ff0  6f 5f 69 6e 64 65 78 25  2c 35 2c c3 28 72 65 63  |o_index%,5,.(rec|
00008000  6f 72 64 5f 6e 75 6d 62  65 72 25 29 29 0d 23 f0  |ord_number%)).#.|
00008010  16 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
00008020  66 66 22 0d 23 fa 0e 75  6e 73 61 76 65 64 25 3d  |ff".#..unsaved%=|
00008030  a3 0d 24 04 05 e1 0d 24  0e 05 3a 0d 24 18 16 dd  |..$....$..:.$...|
00008040  f2 6c 6f 61 64 5f 61 63  6b 6e 6f 77 6c 65 64 67  |.load_acknowledg|
00008050  65 0d 24 22 0e 71 25 21  31 32 3d 71 25 21 38 0d  |e.$".q%!12=q%!8.|
00008060  24 2c 0b 71 25 21 31 36  3d 34 0d 24 36 24 c8 99  |$,.q%!16=4.$6$..|
00008070  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
00008080  67 65 22 2c 31 37 2c 71  25 2c 71 25 21 34 0d 24  |ge",17,q%,q%!4.$|
00008090  40 05 e1 0d 24 4a 05 3a  0d 24 54 10 dd f2 6f 6b  |@...$J.:.$T...ok|
000080a0  5f 74 6f 5f 6c 6f 61 64  0d 24 5e 10 66 69 6c 65  |_to_load.$^.file|
000080b0  6e 61 6d 65 24 3d 22 22  0d 24 68 08 61 25 3d 30  |name$="".$h.a%=0|
000080c0  0d 24 72 11 62 25 3d 71  25 3f 28 34 34 2b 61 25  |.$r.b%=q%?(44+a%|
000080d0  29 0d 24 7c 0c c8 95 20  62 25 3c 3e 30 0d 24 86  |).$|... b%<>0.$.|
000080e0  14 66 69 6c 65 6e 61 6d  65 24 2b 3d bd 28 62 25  |.filename$+=.(b%|
000080f0  29 0d 24 90 09 61 25 2b  3d 31 0d 24 9a 11 62 25  |).$..a%+=1.$..b%|
00008100  3d 71 25 3f 28 34 34 2b  61 25 29 0d 24 a4 05 ce  |=q%?(44+a%).$...|
00008110  0d 24 ae 43 f2 6c 6f 61  64 5f 64 61 74 61 28 66  |.$.C.load_data(f|
00008120  69 6c 65 6e 61 6d 65 24  29 3a f2 75 70 64 61 74  |ilename$):.updat|
00008130  65 5f 69 63 6f 6e 28 76  69 64 65 6f 5f 73 61 76  |e_icon(video_sav|
00008140  65 62 6f 78 32 25 2c 31  2c 66 69 6c 65 6e 61 6d  |ebox2%,1,filenam|
00008150  65 24 29 0d 24 b8 05 e1  0d 24 c2 05 3a 0d 24 cc  |e$).$....$..:.$.|
00008160  1a dd f2 6c 6f 61 64 5f  64 61 74 61 28 64 61 74  |...load_data(dat|
00008170  61 66 69 6c 65 24 29 0d  24 d6 15 c8 99 20 22 48  |afile$).$.... "H|
00008180  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 0d 24 e0 11  |ourglass_On".$..|
00008190  6c 6f 61 64 5f 65 72 72  6f 72 25 3d a3 0d 24 ea  |load_error%=..$.|
000081a0  14 43 48 25 3d 8e 28 64  61 74 61 66 69 6c 65 24  |.CH%=.(datafile$|
000081b0  29 0d 24 f4 15 e7 20 6c  6f 61 64 5f 65 72 72 6f  |).$... load_erro|
000081c0  72 25 3d a3 20 8c 0d 24  fe 15 e8 23 43 48 25 2c  |r%=. ..$...#CH%,|
000081d0  6d 61 78 5f 72 65 63 6f  72 64 25 0d 25 08 18 e3  |max_record%.%...|
000081e0  20 49 25 3d 31 20 b8 20  6d 61 78 5f 72 65 63 6f  | I%=1 . max_reco|
000081f0  72 64 25 0d 25 12 31 e8  23 43 48 25 2c 66 6f 72  |rd%.%.1.#CH%,for|
00008200  6d 61 74 24 28 49 25 29  2c 76 69 64 65 6f 5f 6c  |mat$(I%),video_l|
00008210  65 6e 67 74 68 24 28 49  25 29 2c 74 79 70 65 24  |ength$(I%),type$|
00008220  28 49 25 29 0d 25 1c 12  e3 20 73 75 62 49 25 3d  |(I%).%... subI%=|
00008230  31 20 b8 20 31 30 0d 25  26 3a e8 23 43 48 25 2c  |1 . 10.%&:.#CH%,|
00008240  6e 61 6d 65 24 28 49 25  2c 73 75 62 49 25 29 2c  |name$(I%,subI%),|
00008250  73 74 61 72 74 24 28 49  25 2c 73 75 62 49 25 29  |start$(I%,subI%)|
00008260  2c 73 74 6f 70 24 28 49  25 2c 73 75 62 49 25 29  |,stop$(I%,subI%)|
00008270  0d 25 30 3e e8 23 43 48  25 2c 64 61 74 65 24 28  |.%0>.#CH%,date$(|
00008280  49 25 2c 73 75 62 49 25  29 2c 63 61 74 65 67 6f  |I%,subI%),catego|
00008290  72 79 24 28 49 25 2c 73  75 62 49 25 29 2c 73 70  |ry$(I%,subI%),sp|
000082a0  65 65 64 24 28 49 25 2c  73 75 62 49 25 29 0d 25  |eed$(I%,subI%).%|
000082b0  3a 3f e8 23 43 48 25 2c  63 68 61 6e 6e 65 6c 24  |:?.#CH%,channel$|
000082c0  28 49 25 2c 73 75 62 49  25 29 2c 6c 65 6e 67 74  |(I%,subI%),lengt|
000082d0  68 24 28 49 25 2c 73 75  62 49 25 29 2c 61 75 64  |h$(I%,subI%),aud|
000082e0  69 6f 24 28 49 25 2c 73  75 62 49 25 29 0d 25 44  |io$(I%,subI%).%D|
000082f0  0b ed 20 73 75 62 49 25  0d 25 4e 56 e7 20 a8 28  |.. subI%.%NV. .(|
00008300  28 49 25 2f 6d 61 78 5f  72 65 63 6f 72 64 25 29  |(I%/max_record%)|
00008310  2a 31 30 30 29 3c 3e 31  30 30 20 8c 20 c8 99 20  |*100)<>100 . .. |
00008320  22 48 6f 75 72 67 6c 61  73 73 5f 50 65 72 63 65  |"Hourglass_Perce|
00008330  6e 74 61 67 65 22 2c a8  28 28 49 25 2f 6d 61 78  |ntage",.((I%/max|
00008340  5f 72 65 63 6f 72 64 25  29 2a 31 30 30 29 0d 25  |_record%)*100).%|
00008350  58 08 ed 20 49 25 0d 25  62 09 d9 23 43 48 25 0d  |X.. I%.%b..#CH%.|
00008360  25 6c 1c f2 72 65 5f 74  69 74 6c 65 28 22 56 69  |%l..re_title("Vi|
00008370  64 65 6f 20 49 6e 64 65  78 22 29 0d 25 76 0e 75  |deo Index").%v.u|
00008380  6e 73 61 76 65 64 25 3d  a3 0d 25 80 0e f2 63 6c  |nsaved%=..%...cl|
00008390  6f 73 65 5f 61 6c 6c 0d  25 8a 45 f2 6f 70 65 6e  |ose_all.%.E.open|
000083a0  28 76 69 64 65 6f 5f 69  6e 64 65 78 25 29 3a f2  |(video_index%):.|
000083b0  6f 70 65 6e 28 76 69 64  65 6f 5f 62 61 63 6b 74  |open(video_backt|
000083c0  72 61 63 6b 73 25 29 3a  f2 6f 70 65 6e 28 76 69  |racks%):.open(vi|
000083d0  64 65 6f 5f 74 72 61 63  6b 73 25 29 0d 25 94 14  |deo_tracks%).%..|
000083e0  72 65 63 6f 72 64 5f 6e  75 6d 62 65 72 25 3d 31  |record_number%=1|
000083f0  0d 25 9e 0b f2 75 70 64  61 74 65 0d 25 a8 05 cc  |.%...update.%...|
00008400  0d 25 b2 09 d9 23 43 48  25 0d 25 bc 05 cd 0d 25  |.%...#CH%.%....%|
00008410  c6 16 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |.... "Hourglass_|
00008420  4f 66 66 22 0d 25 d0 18  f2 61 6c 74 65 72 5f 6e  |Off".%...alter_n|
00008430  6f 5f 6f 66 5f 72 65 63  6f 72 64 73 0d 25 da 05  |o_of_records.%..|
00008440  e1 0d 25 e4 05 3a 0d 25  ee 0d dd f2 64 72 61 67  |..%..:.%....drag|
00008450  62 6f 78 0d 25 f8 12 78  25 3d 21 71 25 3a 79 25  |box.%..x%=!q%:y%|
00008460  3d 71 25 21 34 0d 26 02  41 71 25 21 34 3d 35 3a  |=q%!4.&.Aq%!4=5:|
00008470  71 25 21 38 3d 78 25 2d  34 30 3a 71 25 21 31 32  |q%!8=x%-40:q%!12|
00008480  3d 79 25 2d 34 30 3a 71  25 21 31 36 3d 78 25 2b  |=y%-40:q%!16=x%+|
00008490  34 30 3a 71 25 21 32 30  3d 79 25 2b 34 30 3a 71  |40:q%!20=y%+40:q|
000084a0  25 21 32 34 3d 30 0d 26  0c 27 71 25 21 32 38 3d  |%!24=0.&.'q%!28=|
000084b0  30 3a 71 25 21 33 32 3d  26 37 46 46 46 46 46 46  |0:q%!32=&7FFFFFF|
000084c0  46 3a 71 25 21 33 36 3d  71 25 21 33 32 0d 26 16  |F:q%!36=q%!32.&.|
000084d0  19 c8 99 20 22 57 69 6d  70 5f 44 72 61 67 42 6f  |... "Wimp_DragBo|
000084e0  78 22 2c 2c 71 25 0d 26  20 05 e1 0d 26 2a 05 3a  |x",,q%.& ...&*.:|
000084f0  0d 26 34 0f dd f2 71 75  69 63 6b 73 61 76 65 0d  |.&4...quicksave.|
00008500  26 3e 3d e7 20 73 61 76  65 74 79 70 65 24 3d 22  |&>=. savetype$="|
00008510  46 46 46 22 20 8c 20 66  75 6c 6c 6e 61 6d 65 24  |FFF" . fullname$|
00008520  3d a4 69 6e 64 69 72 65  63 74 28 76 69 64 65 6f  |=.indirect(video|
00008530  5f 73 61 76 65 62 6f 78  25 2c 31 29 0d 26 48 3e  |_savebox%,1).&H>|
00008540  e7 20 73 61 76 65 74 79  70 65 24 3d 22 45 39 31  |. savetype$="E91|
00008550  22 20 8c 20 66 75 6c 6c  6e 61 6d 65 24 3d a4 69  |" . fullname$=.i|
00008560  6e 64 69 72 65 63 74 28  76 69 64 65 6f 5f 73 61  |ndirect(video_sa|
00008570  76 65 62 6f 78 32 25 2c  31 29 0d 26 52 33 e7 20  |vebox2%,1).&R3. |
00008580  66 75 6c 6c 6e 61 6d 65  24 3d 22 22 20 8c 20 85  |fullname$="" . .|
00008590  20 31 2c 22 50 6c 65 61  73 65 20 69 6e 73 65 72  | 1,"Please inser|
000085a0  74 20 61 20 66 69 6c 65  6e 61 6d 65 22 0d 26 5c  |t a filename".&\|
000085b0  4c e7 20 a7 66 75 6c 6c  6e 61 6d 65 24 2c 22 2e  |L. .fullname$,".|
000085c0  22 29 3d 30 20 8c 20 85  20 31 2c 22 54 6f 20 73  |")=0 . . 1,"To s|
000085d0  61 76 65 2c 20 64 72 61  67 20 74 68 65 20 69 63  |ave, drag the ic|
000085e0  6f 6e 20 74 6f 20 61 20  64 69 72 65 63 74 6f 72  |on to a director|
000085f0  79 20 76 69 65 77 65 72  22 0d 26 66 45 e7 20 73  |y viewer".&fE. s|
00008600  61 76 65 74 79 70 65 24  3d 22 45 39 31 22 20 8c  |avetype$="E91" .|
00008610  20 f2 73 61 76 65 5f 64  61 74 61 28 66 75 6c 6c  | .save_data(full|
00008620  6e 61 6d 65 24 29 20 8b  20 f2 73 61 76 65 5f 74  |name$) . .save_t|
00008630  65 78 74 28 66 75 6c 6c  6e 61 6d 65 24 29 0d 26  |ext(fullname$).&|
00008640  70 36 e7 20 73 61 76 65  74 79 70 65 24 3d 22 45  |p6. savetype$="E|
00008650  39 31 22 20 8c 20 ff 20  22 53 65 74 54 79 70 65  |91" . . "SetType|
00008660  20 22 2b 66 75 6c 6c 6e  61 6d 65 24 2b 22 20 26  | "+fullname$+" &|
00008670  45 39 31 22 0d 26 7a 36  e7 20 73 61 76 65 74 79  |E91".&z6. savety|
00008680  70 65 24 3d 22 46 46 46  22 20 8c 20 ff 20 22 53  |pe$="FFF" . . "S|
00008690  65 74 54 79 70 65 20 22  2b 66 75 6c 6c 6e 61 6d  |etType "+fullnam|
000086a0  65 24 2b 22 20 54 65 78  74 22 0d 26 84 40 e7 20  |e$+" Text".&.@. |
000086b0  73 61 76 65 74 79 70 65  24 3d 22 46 46 46 22 20  |savetype$="FFF" |
000086c0  8c 20 f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 76  |. .update_icon(v|
000086d0  69 64 65 6f 5f 73 61 76  65 62 6f 78 25 2c 31 2c  |ideo_savebox%,1,|
000086e0  66 75 6c 6c 6e 61 6d 65  24 29 0d 26 8e 41 e7 20  |fullname$).&.A. |
000086f0  73 61 76 65 74 79 70 65  24 3d 22 45 39 31 22 20  |savetype$="E91" |
00008700  8c 20 f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 76  |. .update_icon(v|
00008710  69 64 65 6f 5f 73 61 76  65 62 6f 78 32 25 2c 31  |ideo_savebox2%,1|
00008720  2c 66 75 6c 6c 6e 61 6d  65 24 29 0d 26 98 4b f2  |,fullname$).&.K.|
00008730  72 65 5f 74 69 74 6c 65  28 22 56 69 64 65 6f 20  |re_title("Video |
00008740  49 6e 64 65 78 22 29 3a  f2 63 6c 6f 73 65 28 76  |Index"):.close(v|
00008750  69 64 65 6f 5f 73 61 76  65 62 6f 78 25 29 3a f2  |ideo_savebox%):.|
00008760  63 6c 6f 73 65 28 76 69  64 65 6f 5f 73 61 76 65  |close(video_save|
00008770  62 6f 78 32 25 29 0d 26  a2 0e 75 6e 73 61 76 65  |box2%).&..unsave|
00008780  64 25 3d a3 0d 26 ac 1c  c8 99 20 22 57 69 6d 70  |d%=..&.... "Wimp|
00008790  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 2d 31  |_CreateMenu",,-1|
000087a0  0d 26 b6 05 e1 0d 26 c0  05 3a 0d 26 ca 1b dd f2  |.&....&..:.&....|
000087b0  69 6e 69 74 69 61 74 65  5f 73 61 76 65 28 66 6e  |initiate_save(fn|
000087c0  61 6d 65 24 29 0d 26 d4  20 c8 99 20 22 57 69 6d  |ame$).&. .. "Wim|
000087d0  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
000087e0  22 2c 2c 71 25 0d 26 de  1a e7 20 71 25 21 31 32  |",,q%.&... q%!12|
000087f0  3d 76 69 64 65 6f 5f 69  6e 64 65 78 25 20 e1 0d  |=video_index% ..|
00008800  26 e8 17 71 25 21 32 30  3d 71 25 21 31 32 3a 71  |&..q%!20=q%!12:q|
00008810  25 21 31 32 3d 30 0d 26  f2 17 71 25 21 32 34 3d  |%!12=0.&..q%!24=|
00008820  71 25 21 31 36 3a 71 25  21 31 36 3d 31 0d 26 fc  |q%!16:q%!16=1.&.|
00008830  16 71 25 21 32 38 3d 71  25 21 30 3a 71 25 21 30  |.q%!28=q%!0:q%!0|
00008840  3d 36 34 0d 27 06 19 71  25 21 33 32 3d 71 25 21  |=64.'..q%!32=q%!|
00008850  34 3a 71 25 21 33 36 3d  38 30 39 36 0d 27 10 2f  |4:q%!36=8096.'./|
00008860  e7 20 73 61 76 65 74 79  70 65 24 3d 22 45 39 31  |. savetype$="E91|
00008870  22 20 8c 20 71 25 21 34  30 3d 26 45 39 31 20 8b  |" . q%!40=&E91 .|
00008880  20 71 25 21 34 30 3d 26  46 46 46 0d 27 1a 21 24  | q%!40=&FFF.'.!$|
00008890  28 71 25 2b 34 34 29 3d  a4 67 65 74 5f 6c 65 61  |(q%+44)=.get_lea|
000088a0  66 28 66 6e 61 6d 65 24  29 2b bd 30 0d 27 24 25  |f(fname$)+.0.'$%|
000088b0  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
000088c0  73 61 67 65 22 2c 31 37  2c 71 25 2c 71 25 21 32  |sage",17,q%,q%!2|
000088d0  30 0d 27 2e 05 e1 0d 27  38 05 3a 0d 27 42 16 dd  |0.'....'8.:.'B..|
000088e0  a4 67 65 74 5f 6c 65 61  66 28 66 6e 61 6d 65 24  |.get_leaf(fname$|
000088f0  29 0d 27 4c 13 c8 95 20  a7 66 6e 61 6d 65 24 2c  |).'L... .fname$,|
00008900  22 2e 22 29 0d 27 56 22  66 6e 61 6d 65 24 3d c1  |".").'V"fname$=.|
00008910  66 6e 61 6d 65 24 2c a7  66 6e 61 6d 65 24 2c 22  |fname$,.fname$,"|
00008920  2e 22 29 2b 31 29 0d 27  60 05 ce 0d 27 6a 0e 3d  |.")+1).'`...'j.=|
00008930  66 6e 61 6d 65 24 2b bd  30 0d 27 74 05 3a 0d 27  |fname$+.0.'t.:.'|
00008940  7e 0e dd f2 64 61 74 61  73 61 76 65 0d 27 88 1c  |~...datasave.'..|
00008950  66 75 6c 6c 6e 61 6d 65  24 3d a4 73 74 72 69 6e  |fullname$=.strin|
00008960  67 28 71 25 2b 34 34 29  0d 27 92 12 c8 8e 20 73  |g(q%+44).'.... s|
00008970  61 76 65 74 79 70 65 24  20 ca 0d 27 9c 0b c9 20  |avetype$ ..'... |
00008980  22 45 39 31 22 0d 27 a6  19 f2 73 61 76 65 5f 64  |"E91".'...save_d|
00008990  61 74 61 28 66 75 6c 6c  6e 61 6d 65 24 29 0d 27  |ata(fullname$).'|
000089a0  b0 16 71 25 21 31 32 3d  71 25 21 38 3a 71 25 21  |..q%!12=q%!8:q%!|
000089b0  31 36 3d 33 0d 27 ba 24  c8 99 20 22 57 69 6d 70  |16=3.'.$.. "Wimp|
000089c0  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
000089d0  2c 71 25 2c 71 25 21 34  0d 27 c4 26 ff 20 22 53  |,q%,q%!4.'.&. "S|
000089e0  65 74 54 79 70 65 20 22  2b 66 75 6c 6c 6e 61 6d  |etType "+fullnam|
000089f0  65 24 2b 22 20 56 69 64  65 6f 49 64 78 22 0d 27  |e$+" VideoIdx".'|
00008a00  ce 1c c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.... "Wimp_Creat|
00008a10  65 4d 65 6e 75 22 2c 2c  2d 31 0d 27 d8 1c f2 72  |eMenu",,-1.'...r|
00008a20  65 5f 74 69 74 6c 65 28  22 56 69 64 65 6f 20 49  |e_title("Video I|
00008a30  6e 64 65 78 22 29 0d 27  e2 5c f2 63 6c 6f 73 65  |ndex").'.\.close|
00008a40  28 76 69 64 65 6f 5f 73  61 76 65 62 6f 78 32 25  |(video_savebox2%|
00008a50  29 3a f2 74 72 61 63 6b  73 5f 6d 6f 76 65 5f 63  |):.tracks_move_c|
00008a60  61 72 65 74 28 76 69 64  65 6f 5f 74 72 61 63 6b  |aret(video_track|
00008a70  73 25 2c 31 29 3a f2 6d  6f 76 65 5f 63 61 72 65  |s%,1):.move_care|
00008a80  74 28 76 69 64 65 6f 5f  69 6e 64 65 78 25 2c 31  |t(video_index%,1|
00008a90  32 29 0d 27 ec 0e 75 6e  73 61 76 65 64 25 3d a3  |2).'..unsaved%=.|
00008aa0  0d 27 f6 2d f2 75 70 64  61 74 65 5f 69 63 6f 6e  |.'.-.update_icon|
00008ab0  28 76 69 64 65 6f 5f 73  61 76 65 62 6f 78 32 25  |(video_savebox2%|
00008ac0  2c 31 2c 66 75 6c 6c 6e  61 6d 65 24 29 0d 28 00  |,1,fullname$).(.|
00008ad0  0b c9 20 22 46 46 46 22  0d 28 0a 19 f2 73 61 76  |.. "FFF".(...sav|
00008ae0  65 5f 74 65 78 74 28 66  75 6c 6c 6e 61 6d 65 24  |e_text(fullname$|
00008af0  29 0d 28 14 16 71 25 21  31 32 3d 71 25 21 38 3a  |).(..q%!12=q%!8:|
00008b00  71 25 21 31 36 3d 33 0d  28 1e 24 c8 99 20 22 57  |q%!16=3.(.$.. "W|
00008b10  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00008b20  2c 31 37 2c 71 25 2c 71  25 21 34 0d 28 28 22 ff  |,17,q%,q%!4.((".|
00008b30  20 22 53 65 74 54 79 70  65 20 22 2b 66 75 6c 6c  | "SetType "+full|
00008b40  6e 61 6d 65 24 2b 22 20  54 65 78 74 22 0d 28 32  |name$+" Text".(2|
00008b50  1c c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |... "Wimp_Create|
00008b60  4d 65 6e 75 22 2c 2c 2d  31 0d 28 3c 5b f2 63 6c  |Menu",,-1.(<[.cl|
00008b70  6f 73 65 28 76 69 64 65  6f 5f 73 61 76 65 62 6f  |ose(video_savebo|
00008b80  78 25 29 3a f2 74 72 61  63 6b 73 5f 6d 6f 76 65  |x%):.tracks_move|
00008b90  5f 63 61 72 65 74 28 76  69 64 65 6f 5f 74 72 61  |_caret(video_tra|
00008ba0  63 6b 73 25 2c 31 29 3a  f2 6d 6f 76 65 5f 63 61  |cks%,1):.move_ca|
00008bb0  72 65 74 28 76 69 64 65  6f 5f 69 6e 64 65 78 25  |ret(video_index%|
00008bc0  2c 31 32 29 0d 28 46 2c  f2 75 70 64 61 74 65 5f  |,12).(F,.update_|
00008bd0  69 63 6f 6e 28 76 69 64  65 6f 5f 73 61 76 65 62  |icon(video_saveb|
00008be0  6f 78 25 2c 31 2c 66 75  6c 6c 6e 61 6d 65 24 29  |ox%,1,fullname$)|
00008bf0  0d 28 50 05 cb 0d 28 5a  05 e1 0d 28 64 05 3a 0d  |.(P...(Z...(d.:.|
00008c00  28 6e 10 dd a4 73 74 72  69 6e 67 28 61 25 29 0d  |(n...string(a%).|
00008c10  28 78 08 ea 20 62 24 0d  28 82 09 62 24 3d 22 22  |(x.. b$.(..b$=""|
00008c20  0d 28 8c 0d c8 95 20 3f  61 25 3c 3e 30 0d 28 96  |.(.... ?a%<>0.(.|
00008c30  0c 62 24 2b 3d bd 3f 61  25 0d 28 a0 09 61 25 2b  |.b$+=.?a%.(..a%+|
00008c40  3d 31 0d 28 aa 05 ce 0d  28 b4 07 3d 62 24 0d 28  |=1.(....(..=b$.(|
00008c50  be 05 3a 0d 28 c8 35 dd  a4 73 74 72 69 6e 67 30  |..:.(.5..string0|
00008c60  28 61 25 29 3a ea 20 61  24 3a c8 95 20 3f 61 25  |(a%):. a$:.. ?a%|
00008c70  3e 33 31 3a 61 24 2b 3d  bd 3f 61 25 3a 61 25 2b  |>31:a$+=.?a%:a%+|
00008c80  3d 31 3a ce 3a 3d 61 24  0d 28 d2 05 3a 0d 28 dc  |=1:.:=a$.(..:.(.|
00008c90  1a dd f2 73 61 76 65 5f  64 61 74 61 28 66 75 6c  |...save_data(ful|
00008ca0  6c 6e 61 6d 65 24 29 0d  28 e6 15 c8 99 20 22 48  |lname$).(.... "H|
00008cb0  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 0d 28 f0 12  |ourglass_On".(..|
00008cc0  43 48 25 3d ae 66 75 6c  6c 6e 61 6d 65 24 0d 28  |CH%=.fullname$.(|
00008cd0  fa 15 f1 23 43 48 25 2c  6d 61 78 5f 72 65 63 6f  |...#CH%,max_reco|
00008ce0  72 64 25 0d 29 04 18 e3  20 49 25 3d 31 20 b8 20  |rd%.)... I%=1 . |
00008cf0  6d 61 78 5f 72 65 63 6f  72 64 25 0d 29 0e 31 f1  |max_record%.).1.|
00008d00  23 43 48 25 2c 66 6f 72  6d 61 74 24 28 49 25 29  |#CH%,format$(I%)|
00008d10  2c 76 69 64 65 6f 5f 6c  65 6e 67 74 68 24 28 49  |,video_length$(I|
00008d20  25 29 2c 74 79 70 65 24  28 49 25 29 0d 29 18 12  |%),type$(I%).)..|
00008d30  e3 20 73 75 62 49 25 3d  31 20 b8 20 31 30 0d 29  |. subI%=1 . 10.)|
00008d40  22 3a f1 23 43 48 25 2c  6e 61 6d 65 24 28 49 25  |":.#CH%,name$(I%|
00008d50  2c 73 75 62 49 25 29 2c  73 74 61 72 74 24 28 49  |,subI%),start$(I|
00008d60  25 2c 73 75 62 49 25 29  2c 73 74 6f 70 24 28 49  |%,subI%),stop$(I|
00008d70  25 2c 73 75 62 49 25 29  0d 29 2c 3e f1 23 43 48  |%,subI%).),>.#CH|
00008d80  25 2c 64 61 74 65 24 28  49 25 2c 73 75 62 49 25  |%,date$(I%,subI%|
00008d90  29 2c 63 61 74 65 67 6f  72 79 24 28 49 25 2c 73  |),category$(I%,s|
00008da0  75 62 49 25 29 2c 73 70  65 65 64 24 28 49 25 2c  |ubI%),speed$(I%,|
00008db0  73 75 62 49 25 29 0d 29  36 3f f1 23 43 48 25 2c  |subI%).)6?.#CH%,|
00008dc0  63 68 61 6e 6e 65 6c 24  28 49 25 2c 73 75 62 49  |channel$(I%,subI|
00008dd0  25 29 2c 6c 65 6e 67 74  68 24 28 49 25 2c 73 75  |%),length$(I%,su|
00008de0  62 49 25 29 2c 61 75 64  69 6f 24 28 49 25 2c 73  |bI%),audio$(I%,s|
00008df0  75 62 49 25 29 0d 29 40  0b ed 20 73 75 62 49 25  |ubI%).)@.. subI%|
00008e00  0d 29 4a 56 e7 20 a8 28  28 49 25 2f 6d 61 78 5f  |.)JV. .((I%/max_|
00008e10  72 65 63 6f 72 64 25 29  2a 31 30 30 29 3c 3e 31  |record%)*100)<>1|
00008e20  30 30 20 8c 20 c8 99 20  22 48 6f 75 72 67 6c 61  |00 . .. "Hourgla|
00008e30  73 73 5f 50 65 72 63 65  6e 74 61 67 65 22 2c a8  |ss_Percentage",.|
00008e40  28 28 49 25 2f 6d 61 78  5f 72 65 63 6f 72 64 25  |((I%/max_record%|
00008e50  29 2a 31 30 30 29 0d 29  54 08 ed 20 49 25 0d 29  |)*100).)T.. I%.)|
00008e60  5e 09 d9 23 43 48 25 0d  29 68 16 c8 99 20 22 48  |^..#CH%.)h... "H|
00008e70  6f 75 72 67 6c 61 73 73  5f 4f 66 66 22 0d 29 72  |ourglass_Off".)r|
00008e80  05 e1 0d 29 7c 05 3a 0d  29 86 1a dd f2 73 61 76  |...)|.:.)....sav|
00008e90  65 5f 74 65 78 74 28 66  75 6c 6c 6e 61 6d 65 24  |e_text(fullname$|
00008ea0  29 0d 29 90 15 c8 99 20  22 48 6f 75 72 67 6c 61  |).).... "Hourgla|
00008eb0  73 73 5f 4f 6e 22 0d 29  9a 15 c8 8e 20 73 61 76  |ss_On".).... sav|
00008ec0  65 61 6c 6c 74 65 78 74  24 20 ca 0d 29 a4 0b c9  |ealltext$ ..)...|
00008ed0  20 22 59 65 73 22 0d 29  ae 12 43 48 25 3d ae 66  | "Yes".)..CH%=.f|
00008ee0  75 6c 6c 6e 61 6d 65 24  0d 29 b8 18 e3 20 49 25  |ullname$.)... I%|
00008ef0  3d 31 20 b8 20 6d 61 78  5f 72 65 63 6f 72 64 25  |=1 . max_record%|
00008f00  0d 29 c2 55 e7 20 76 69  64 65 6f 5f 6c 65 6e 67  |.).U. video_leng|
00008f10  74 68 24 28 49 25 29 3c  3e 22 22 20 84 20 66 6f  |th$(I%)<>"" . fo|
00008f20  72 6d 61 74 24 28 49 25  29 3c 3e 22 22 20 84 20  |rmat$(I%)<>"" . |
00008f30  74 79 70 65 24 28 49 25  29 3c 3e 22 22 20 8c 20  |type$(I%)<>"" . |
00008f40  f2 73 61 76 65 5f 72 65  63 6f 72 64 5f 74 65 78  |.save_record_tex|
00008f50  74 28 49 25 29 0d 29 cc  56 e7 20 a8 28 28 49 25  |t(I%).).V. .((I%|
00008f60  2f 6d 61 78 5f 72 65 63  6f 72 64 25 29 2a 31 30  |/max_record%)*10|
00008f70  30 29 3c 3e 31 30 30 20  8c 20 c8 99 20 22 48 6f  |0)<>100 . .. "Ho|
00008f80  75 72 67 6c 61 73 73 5f  50 65 72 63 65 6e 74 61  |urglass_Percenta|
00008f90  67 65 22 2c a8 28 28 49  25 2f 6d 61 78 5f 72 65  |ge",.((I%/max_re|
00008fa0  63 6f 72 64 25 29 2a 31  30 30 29 0d 29 d6 08 ed  |cord%)*100).)...|
00008fb0  20 49 25 0d 29 e0 09 d9  23 43 48 25 0d 29 ea 0a  | I%.)...#CH%.)..|
00008fc0  c9 20 22 4e 6f 22 0d 29  f4 4b 66 72 6f 6d 25 3d  |. "No".).Kfrom%=|
00008fd0  bb 28 a4 69 6e 64 69 72  65 63 74 28 76 69 64 65  |.(.indirect(vide|
00008fe0  6f 5f 73 61 76 65 62 6f  78 25 2c 35 29 29 3a 74  |o_savebox%,5)):t|
00008ff0  6f 25 3d bb 28 a4 69 6e  64 69 72 65 63 74 28 76  |o%=.(.indirect(v|
00009000  69 64 65 6f 5f 73 61 76  65 62 6f 78 25 2c 36 29  |ideo_savebox%,6)|
00009010  29 0d 29 fe 56 e7 20 66  72 6f 6d 25 3c 31 20 84  |).).V. from%<1 .|
00009020  20 74 6f 25 3e 6d 61 78  5f 72 65 63 6f 72 64 25  | to%>max_record%|
00009030  20 8c 20 85 20 31 2c 22  45 6e 74 65 72 20 76 61  | . . 1,"Enter va|
00009040  6c 75 65 73 20 62 65 74  77 65 65 6e 20 31 20 61  |lues between 1 a|
00009050  6e 64 20 22 2b c3 28 6d  61 78 5f 72 65 63 6f 72  |nd "+.(max_recor|
00009060  64 25 29 2b 22 2e 22 0d  2a 08 12 43 48 25 3d ae  |d%)+".".*..CH%=.|
00009070  66 75 6c 6c 6e 61 6d 65  24 0d 2a 12 14 e3 20 49  |fullname$.*... I|
00009080  25 3d 66 72 6f 6d 25 20  b8 20 74 6f 25 0d 2a 1c  |%=from% . to%.*.|
00009090  55 e7 20 76 69 64 65 6f  5f 6c 65 6e 67 74 68 24  |U. video_length$|
000090a0  28 49 25 29 3c 3e 22 22  20 84 20 66 6f 72 6d 61  |(I%)<>"" . forma|
000090b0  74 24 28 49 25 29 3c 3e  22 22 20 84 20 74 79 70  |t$(I%)<>"" . typ|
000090c0  65 24 28 49 25 29 3c 3e  22 22 20 8c 20 f2 73 61  |e$(I%)<>"" . .sa|
000090d0  76 65 5f 72 65 63 6f 72  64 5f 74 65 78 74 28 49  |ve_record_text(I|
000090e0  25 29 0d 2a 26 56 e7 20  a8 28 28 49 25 2f 6d 61  |%).*&V. .((I%/ma|
000090f0  78 5f 72 65 63 6f 72 64  25 29 2a 31 30 30 29 3c  |x_record%)*100)<|
00009100  3e 31 30 30 20 8c 20 c8  99 20 22 48 6f 75 72 67  |>100 . .. "Hourg|
00009110  6c 61 73 73 5f 50 65 72  63 65 6e 74 61 67 65 22  |lass_Percentage"|
00009120  2c a8 28 28 49 25 2f 6d  61 78 5f 72 65 63 6f 72  |,.((I%/max_recor|
00009130  64 25 29 2a 31 30 30 29  0d 2a 30 08 ed 20 49 25  |d%)*100).*0.. I%|
00009140  0d 2a 3a 09 d9 23 43 48  25 0d 2a 44 05 cb 0d 2a  |.*:..#CH%.*D...*|
00009150  4e 16 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |N... "Hourglass_|
00009160  4f 66 66 22 0d 2a 58 05  e1 0d 2a 62 05 3a 0d 2a  |Off".*X...*b.:.*|
00009170  6c 1a dd f2 73 61 76 65  5f 72 65 63 6f 72 64 5f  |l...save_record_|
00009180  74 65 78 74 28 49 25 29  0d 2a 76 1a d5 23 43 48  |text(I%).*v..#CH|
00009190  25 2c 22 4e 75 6d 62 65  72 3a 20 22 2b c3 28 49  |%,"Number: "+.(I|
000091a0  25 29 0d 2a 80 9f d5 23  43 48 25 2c 22 46 6f 72  |%).*...#CH%,"For|
000091b0  6d 61 74 3a 20 22 2b 66  6f 72 6d 61 74 24 28 49  |mat: "+format$(I|
000091c0  25 29 2b c4 31 35 2d a9  28 66 6f 72 6d 61 74 24  |%)+.15-.(format$|
000091d0  28 49 25 29 29 2c 22 20  22 29 2b 22 20 20 20 54  |(I%))," ")+"   T|
000091e0  79 70 65 3a 20 22 2b 74  79 70 65 24 28 49 25 29  |ype: "+type$(I%)|
000091f0  2b c4 31 35 2d a9 28 74  79 70 65 24 28 49 25 29  |+.15-.(type$(I%)|
00009200  29 2c 22 20 22 29 2b 22  4c 65 6e 67 74 68 3a 20  |)," ")+"Length: |
00009210  22 2b 76 69 64 65 6f 5f  6c 65 6e 67 74 68 24 28  |"+video_length$(|
00009220  49 25 29 2b c4 31 35 2d  a9 28 76 69 64 65 6f 5f  |I%)+.15-.(video_|
00009230  6c 65 6e 67 74 68 24 28  49 25 29 29 2c 22 20 22  |length$(I%))," "|
00009240  29 0d 2a 8a 0d d5 23 43  48 25 2c 22 20 22 0d 2a  |).*...#CH%," ".*|
00009250  94 9d d5 23 43 48 25 2c  22 4e 61 6d 65 3a 22 2b  |...#CH%,"Name:"+|
00009260  c4 32 32 2c 22 20 22 29  2b 22 43 61 74 65 67 6f  |.22," ")+"Catego|
00009270  72 79 3a 22 2b c4 34 2c  22 20 22 29 2b 22 43 68  |ry:"+.4," ")+"Ch|
00009280  61 6e 6e 65 6c 3a 22 2b  c4 37 2c 22 20 22 29 2b  |annel:"+.7," ")+|
00009290  22 44 61 74 65 3a 22 2b  c4 35 2c 22 20 22 29 2b  |"Date:"+.5," ")+|
000092a0  22 41 75 64 69 6f 22 2b  c4 35 2c 22 20 22 29 2b  |"Audio"+.5," ")+|
000092b0  22 4c 65 6e 67 74 68 3a  22 2b c4 39 2c 22 20 22  |"Length:"+.9," "|
000092c0  29 2b 22 53 74 61 72 74  3a 22 2b c4 32 2c 22 20  |)+"Start:"+.2," |
000092d0  22 29 2b 22 53 74 6f 70  3a 22 2b c4 33 2c 22 20  |")+"Stop:"+.3," |
000092e0  22 29 2b 22 53 70 65 65  64 3a 22 0d 2a 9e 12 e3  |")+"Speed:".*...|
000092f0  20 73 75 62 49 25 3d 31  20 b8 20 31 30 0d 2a a8  | subI%=1 . 10.*.|
00009300  49 61 3d a9 28 6e 61 6d  65 24 28 49 25 2c 73 75  |Ia=.(name$(I%,su|
00009310  62 49 25 29 29 3a 62 3d  a9 28 63 61 74 65 67 6f  |bI%)):b=.(catego|
00009320  72 79 24 28 49 25 2c 73  75 62 49 25 29 29 3a 63  |ry$(I%,subI%)):c|
00009330  3d a9 28 63 68 61 6e 6e  65 6c 24 28 49 25 2c 73  |=.(channel$(I%,s|
00009340  75 62 49 25 29 29 0d 2a  b2 45 64 3d a9 28 64 61  |ubI%)).*.Ed=.(da|
00009350  74 65 24 28 49 25 2c 73  75 62 49 25 29 29 3a 65  |te$(I%,subI%)):e|
00009360  3d a9 28 61 75 64 69 6f  24 28 49 25 2c 73 75 62  |=.(audio$(I%,sub|
00009370  49 25 29 29 3a 66 3d a9  28 6c 65 6e 67 74 68 24  |I%)):f=.(length$|
00009380  28 49 25 2c 73 75 62 49  25 29 29 0d 2a bc 44 67  |(I%,subI%)).*.Dg|
00009390  3d a9 28 73 74 61 72 74  24 28 49 25 2c 73 75 62  |=.(start$(I%,sub|
000093a0  49 25 29 29 3a 68 3d a9  28 73 74 6f 70 24 28 49  |I%)):h=.(stop$(I|
000093b0  25 2c 73 75 62 49 25 29  29 3a 69 3d a9 28 73 70  |%,subI%)):i=.(sp|
000093c0  65 65 64 24 28 49 25 2c  73 75 62 49 25 29 29 0d  |eed$(I%,subI%)).|
000093d0  2a c6 82 68 61 6c 66 73  74 72 69 6e 67 24 3d 6e  |*..halfstring$=n|
000093e0  61 6d 65 24 28 49 25 2c  73 75 62 49 25 29 2b c4  |ame$(I%,subI%)+.|
000093f0  32 37 2d 61 2c 22 20 22  29 2b 63 61 74 65 67 6f  |27-a," ")+catego|
00009400  72 79 24 28 49 25 2c 73  75 62 49 25 29 2b c4 31  |ry$(I%,subI%)+.1|
00009410  33 2d 62 2c 22 20 22 29  2b 63 68 61 6e 6e 65 6c  |3-b," ")+channel|
00009420  24 28 49 25 2c 73 75 62  49 25 29 2b c4 31 35 2d  |$(I%,subI%)+.15-|
00009430  63 2c 22 20 22 29 2b 64  61 74 65 24 28 49 25 2c  |c," ")+date$(I%,|
00009440  73 75 62 49 25 29 2b c4  31 30 2d 64 2c 22 20 22  |subI%)+.10-d," "|
00009450  29 0d 2a d0 9c 73 74 72  69 6e 67 74 6f 73 61 76  |).*..stringtosav|
00009460  65 24 3d 68 61 6c 66 73  74 72 69 6e 67 24 2b 61  |e$=halfstring$+a|
00009470  75 64 69 6f 24 28 49 25  2c 73 75 62 49 25 29 2b  |udio$(I%,subI%)+|
00009480  c4 31 30 2d 65 2c 22 20  22 29 2b 6c 65 6e 67 74  |.10-e," ")+lengt|
00009490  68 24 28 49 25 2c 73 75  62 49 25 29 2b c4 31 36  |h$(I%,subI%)+.16|
000094a0  2d 66 2c 22 20 22 29 2b  73 74 61 72 74 24 28 49  |-f," ")+start$(I|
000094b0  25 2c 73 75 62 49 25 29  2b c4 38 2d 67 2c 22 20  |%,subI%)+.8-g," |
000094c0  22 29 2b 73 74 6f 70 24  28 49 25 2c 73 75 62 49  |")+stop$(I%,subI|
000094d0  25 29 2b c4 38 2d 68 2c  22 20 22 29 2b 73 70 65  |%)+.8-h," ")+spe|
000094e0  65 64 24 28 49 25 2c 73  75 62 49 25 29 0d 2a da  |ed$(I%,subI%).*.|
000094f0  5a e7 20 28 61 3c 3e 30  20 84 20 62 3c 3e 30 20  |Z. (a<>0 . b<>0 |
00009500  84 20 63 3c 3e 30 20 84  20 64 3c 3e 30 20 84 20  |. c<>0 . d<>0 . |
00009510  65 3c 3e 30 20 84 20 66  3c 3e 30 20 84 20 67 3c  |e<>0 . f<>0 . g<|
00009520  3e 30 20 84 20 68 3c 3e  30 20 84 20 69 3c 3e 30  |>0 . h<>0 . i<>0|
00009530  29 20 8c 20 d5 23 43 48  25 2c 73 74 72 69 6e 67  |) . .#CH%,string|
00009540  74 6f 73 61 76 65 24 0d  2a e4 0b ed 20 73 75 62  |tosave$.*... sub|
00009550  49 25 0d 2a ee 0d d5 23  43 48 25 2c 22 20 22 0d  |I%.*...#CH%," ".|
00009560  2a f8 7d d5 23 43 48 25  2c 22 2d 2d 2d 2d 2d 2d  |*.}.#CH%,"------|
00009570  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000095d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 22 0d 2b 02 0d  |-----------".+..|
000095e0  d5 23 43 48 25 2c 22 20  22 0d 2b 0c 05 e1 0d 2b  |.#CH%," ".+....+|
000095f0  16 05 3a 0d 2b 20 0b dd  f2 70 72 69 6e 74 0d 2b  |..:.+ ...print.+|
00009600  2a 55 f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 76  |*U.update_icon(v|
00009610  69 64 65 6f 5f 77 61 69  74 25 2c 30 2c 22 50 72  |ideo_wait%,0,"Pr|
00009620  69 6e 74 69 6e 67 20 49  6e 20 50 72 6f 67 72 65  |inting In Progre|
00009630  73 73 20 50 6c 65 61 73  65 20 57 61 69 74 22 29  |ss Please Wait")|
00009640  3a f2 6f 70 65 6e 28 76  69 64 65 6f 5f 77 61 69  |:.open(video_wai|
00009650  74 25 29 0d 2b 34 1f f2  72 65 64 72 61 77 5f 77  |t%).+4..redraw_w|
00009660  69 6e 64 6f 77 28 76 69  64 65 6f 5f 77 61 69 74  |indow(video_wait|
00009670  25 29 0d 2b 3e 15 c8 99  20 22 48 6f 75 72 67 6c  |%).+>... "Hourgl|
00009680  61 73 73 5f 4f 6e 22 0d  2b 48 28 63 6f 70 69 65  |ass_On".+H(copie|
00009690  73 25 3d bb 28 a4 69 6e  64 69 72 65 63 74 28 76  |s%=.(.indirect(v|
000096a0  69 64 65 6f 5f 70 72 69  6e 74 25 2c 36 29 29 0d  |ideo_print%,6)).|
000096b0  2b 52 75 e7 20 63 6f 70  69 65 73 25 3d 30 20 8c  |+Ru. copies%=0 .|
000096c0  20 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  | .. "Hourglass_O|
000096d0  66 66 22 3a c8 99 20 22  57 69 6d 70 5f 43 72 65  |ff":.. "Wimp_Cre|
000096e0  61 74 65 4d 65 6e 75 22  2c 2c 2d 31 3a 85 20 31  |ateMenu",,-1:. 1|
000096f0  2c 22 53 65 74 20 6e 75  6d 62 65 72 20 6f 66 20  |,"Set number of |
00009700  63 6f 70 69 65 73 20 74  6f 20 61 20 76 61 6c 75  |copies to a valu|
00009710  65 20 67 72 65 61 74 65  72 20 74 68 61 6e 20 30  |e greater than 0|
00009720  2e 22 3a e1 0d 2b 5c 11  c8 8e 20 70 72 69 6e 74  |.":..+\... print|
00009730  65 72 24 20 ca 0d 2b 66  0d c9 20 22 44 72 61 66  |er$ ..+f.. "Draf|
00009740  74 22 0d 2b 70 20 63 6f  70 79 3d 30 3a ef 20 32  |t".+p copy=0:. 2|
00009750  3a ef 20 31 2c 32 37 2c  31 2c 31 32 30 2c 31 2c  |:. 1,27,1,120,1,|
00009760  34 38 0d 2b 7a 05 f5 0d  2b 84 13 c8 8e 20 70 72  |48.+z...+.... pr|
00009770  69 6e 74 77 68 61 74 24  20 ca 0d 2b 8e 16 c9 20  |intwhat$ ..+... |
00009780  22 41 54 22 3a f2 70 72  69 6e 74 5f 6c 69 73 74  |"AT":.print_list|
00009790  0d 2b 98 18 c9 20 22 41  6c 6c 22 3a f2 70 72 69  |.+... "All":.pri|
000097a0  6e 74 5f 74 61 62 6c 65  0d 2b a2 18 c9 20 22 56  |nt_table.+... "V|
000097b0  69 64 22 3a f2 70 72 69  6e 74 5f 6c 61 62 65 6c  |id":.print_label|
000097c0  0d 2b ac 05 cb 0d 2b b6  1a 63 6f 70 79 2b 3d 31  |.+....+..copy+=1|
000097d0  3a fd 20 63 6f 70 79 3d  63 6f 70 69 65 73 25 0d  |:. copy=copies%.|
000097e0  2b c0 07 ef 20 33 0d 2b  ca 0b c9 20 22 4e 4c 51  |+... 3.+... "NLQ|
000097f0  22 0d 2b d4 20 63 6f 70  79 3d 30 3a ef 20 32 3a  |".+. copy=0:. 2:|
00009800  ef 20 31 2c 32 37 2c 31  2c 31 32 30 2c 31 2c 34  |. 1,27,1,120,1,4|
00009810  39 0d 2b de 05 f5 0d 2b  e8 13 c8 8e 20 70 72 69  |9.+....+.... pri|
00009820  6e 74 77 68 61 74 24 20  ca 0d 2b f2 16 c9 20 22  |ntwhat$ ..+... "|
00009830  41 54 22 3a f2 70 72 69  6e 74 5f 6c 69 73 74 0d  |AT":.print_list.|
00009840  2b fc 18 c9 20 22 41 6c  6c 22 3a f2 70 72 69 6e  |+... "All":.prin|
00009850  74 5f 74 61 62 6c 65 0d  2c 06 18 c9 20 22 56 69  |t_table.,... "Vi|
00009860  64 22 3a f2 70 72 69 6e  74 5f 6c 61 62 65 6c 0d  |d":.print_label.|
00009870  2c 10 05 cb 0d 2c 1a 1a  63 6f 70 79 2b 3d 31 3a  |,....,..copy+=1:|
00009880  fd 20 63 6f 70 79 3d 63  6f 70 69 65 73 25 0d 2c  |. copy=copies%.,|
00009890  24 15 ef 20 31 2c 32 37  2c 31 2c 31 32 30 2c 31  |$.. 1,27,1,120,1|
000098a0  2c 34 38 0d 2c 2e 07 ef  20 33 0d 2c 38 05 cb 0d  |,48.,... 3.,8...|
000098b0  2c 42 16 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |,B... "Hourglass|
000098c0  5f 4f 66 66 22 0d 2c 4c  1c c8 99 20 22 57 69 6d  |_Off".,L... "Wim|
000098d0  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 2d  |p_CreateMenu",,-|
000098e0  31 0d 2c 56 2c f2 63 6c  6f 73 65 28 76 69 64 65  |1.,V,.close(vide|
000098f0  6f 5f 77 61 69 74 25 29  3a f2 63 6c 6f 73 65 28  |o_wait%):.close(|
00009900  76 69 64 65 6f 5f 70 72  69 6e 74 25 29 0d 2c 60  |video_print%).,`|
00009910  05 e1 0d 2c 6a 05 3a 0d  2c 74 11 dd f2 70 72 69  |...,j.:.,t...pri|
00009920  6e 74 5f 6c 61 62 65 6c  0d 2c 7e 28 e7 20 6c 69  |nt_label.,~(. li|
00009930  6e 65 66 65 65 64 24 3d  22 59 65 73 22 20 8c 20  |nefeed$="Yes" . |
00009940  76 64 75 25 3d 31 30 20  8b 20 76 64 75 25 3d 30  |vdu%=10 . vdu%=0|
00009950  0d 2c 88 2f 69 6e 6c 61  79 5f 6e 75 6d 62 65 72  |.,./inlay_number|
00009960  25 3d bb 28 a4 69 6e 64  69 72 65 63 74 28 76 69  |%=.(.indirect(vi|
00009970  64 65 6f 5f 70 72 69 6e  74 25 2c 31 32 29 29 0d  |deo_print%,12)).|
00009980  2c 92 0a ef 20 31 2c 31  35 0d 2c 9c 2d f1 8a 30  |,... 1,15.,.-..0|
00009990  29 3b 22 4e 75 6d 62 65  72 3a 20 22 2b c3 28 69  |);"Number: "+.(i|
000099a0  6e 6c 61 79 5f 6e 75 6d  62 65 72 25 29 3a ef 20  |nlay_number%):. |
000099b0  31 2c 76 64 75 25 0d 2c  a6 59 f1 8a 30 29 3b 22  |1,vdu%.,.Y..0);"|
000099c0  46 6f 72 6d 61 74 3a 20  22 2b 66 6f 72 6d 61 74  |Format: "+format|
000099d0  24 28 69 6e 6c 61 79 5f  6e 75 6d 62 65 72 25 29  |$(inlay_number%)|
000099e0  3b 8a 32 35 29 3b 22 20  20 20 54 79 70 65 3a 20  |;.25);"   Type: |
000099f0  22 2b 74 79 70 65 24 28  69 6e 6c 61 79 5f 6e 75  |"+type$(inlay_nu|
00009a00  6d 62 65 72 25 29 3a ef  20 31 2c 76 64 75 25 0d  |mber%):. 1,vdu%.|
00009a10  2c b0 3e f1 8a 30 29 3b  22 4c 65 6e 67 74 68 3a  |,.>..0);"Length:|
00009a20  20 22 2b 76 69 64 65 6f  5f 6c 65 6e 67 74 68 24  | "+video_length$|
00009a30  28 69 6e 6c 61 79 5f 6e  75 6d 62 65 72 25 29 3b  |(inlay_number%);|
00009a40  8a 32 35 29 3a ef 20 31  2c 76 64 75 25 0d 2c ba  |.25):. 1,vdu%.,.|
00009a50  4f f1 8a 30 29 3b 22 31  29 22 3b 6e 61 6d 65 24  |O..0);"1)";name$|
00009a60  28 69 6e 6c 61 79 5f 6e  75 6d 62 65 72 25 2c 31  |(inlay_number%,1|
00009a70  29 3b 8a 32 38 29 3b 22  20 36 29 22 3b 6e 61 6d  |);.28);" 6)";nam|
00009a80  65 24 28 69 6e 6c 61 79  5f 6e 75 6d 62 65 72 25  |e$(inlay_number%|
00009a90  2c 36 29 3a ef 20 31 2c  76 64 75 25 0d 2c c4 4f  |,6):. 1,vdu%.,.O|
00009aa0  f1 8a 30 29 3b 22 32 29  22 3b 6e 61 6d 65 24 28  |..0);"2)";name$(|
00009ab0  69 6e 6c 61 79 5f 6e 75  6d 62 65 72 25 2c 32 29  |inlay_number%,2)|
00009ac0  3b 8a 32 38 29 3b 22 20  37 29 22 3b 6e 61 6d 65  |;.28);" 7)";name|
00009ad0  24 28 69 6e 6c 61 79 5f  6e 75 6d 62 65 72 25 2c  |$(inlay_number%,|
00009ae0  37 29 3a ef 20 31 2c 76  64 75 25 0d 2c ce 4f f1  |7):. 1,vdu%.,.O.|
00009af0  8a 30 29 3b 22 33 29 22  3b 6e 61 6d 65 24 28 69  |.0);"3)";name$(i|
00009b00  6e 6c 61 79 5f 6e 75 6d  62 65 72 25 2c 33 29 3b  |nlay_number%,3);|
00009b10  8a 32 38 29 3b 22 20 38  29 22 3b 6e 61 6d 65 24  |.28);" 8)";name$|
00009b20  28 69 6e 6c 61 79 5f 6e  75 6d 62 65 72 25 2c 38  |(inlay_number%,8|
00009b30  29 3a ef 20 31 2c 76 64  75 25 0d 2c d8 4f f1 8a  |):. 1,vdu%.,.O..|
00009b40  30 29 3b 22 34 29 22 3b  6e 61 6d 65 24 28 69 6e  |0);"4)";name$(in|
00009b50  6c 61 79 5f 6e 75 6d 62  65 72 25 2c 34 29 3b 8a  |lay_number%,4);.|
00009b60  32 38 29 3b 22 20 39 29  22 3b 6e 61 6d 65 24 28  |28);" 9)";name$(|
00009b70  69 6e 6c 61 79 5f 6e 75  6d 62 65 72 25 2c 39 29  |inlay_number%,9)|
00009b80  3a ef 20 31 2c 76 64 75  25 0d 2c e2 50 f1 8a 30  |:. 1,vdu%.,.P..0|
00009b90  29 3b 22 35 29 22 3b 6e  61 6d 65 24 28 69 6e 6c  |);"5)";name$(inl|
00009ba0  61 79 5f 6e 75 6d 62 65  72 25 2c 35 29 3b 8a 32  |ay_number%,5);.2|
00009bb0  38 29 3b 22 31 30 29 22  3b 6e 61 6d 65 24 28 69  |8);"10)";name$(i|
00009bc0  6e 6c 61 79 5f 6e 75 6d  62 65 72 25 2c 31 30 29  |nlay_number%,10)|
00009bd0  3a ef 20 31 2c 76 64 75  25 0d 2c ec 0a ef 20 31  |:. 1,vdu%.,... 1|
00009be0  2c 31 38 0d 2c f6 0a ef  20 31 2c 31 32 0d 2d 00  |,18.,... 1,12.-.|
00009bf0  05 e1 0d 2d 0a 05 3a 0d  2d 14 10 dd f2 70 72 69  |...-..:.-....pri|
00009c00  6e 74 5f 6c 69 73 74 0d  2d 1e 14 6e 65 65 64 73  |nt_list.-..needs|
00009c10  70 72 69 6e 74 69 6e 67  25 3d 30 0d 2d 28 28 e7  |printing%=0.-((.|
00009c20  20 6c 69 6e 65 66 65 65  64 24 3d 22 59 65 73 22  | linefeed$="Yes"|
00009c30  20 8c 20 76 64 75 25 3d  31 30 20 8b 20 76 64 75  | . vdu%=10 . vdu|
00009c40  25 3d 30 0d 2d 32 16 e7  20 70 72 69 6e 74 61 6c  |%=0.-2.. printal|
00009c50  6c 24 3d 22 4e 6f 22 20  8c 0d 2d 3c 49 66 72 6f  |l$="No" ..-<Ifro|
00009c60  6d 25 3d bb 28 a4 69 6e  64 69 72 65 63 74 28 76  |m%=.(.indirect(v|
00009c70  69 64 65 6f 5f 70 72 69  6e 74 25 2c 31 36 29 29  |ideo_print%,16))|
00009c80  3a 74 6f 25 3d bb 28 a4  69 6e 64 69 72 65 63 74  |:to%=.(.indirect|
00009c90  28 76 69 64 65 6f 5f 70  72 69 6e 74 25 2c 31 37  |(video_print%,17|
00009ca0  29 29 0d 2d 46 56 e7 20  66 72 6f 6d 25 3c 31 20  |)).-FV. from%<1 |
00009cb0  84 20 74 6f 25 3e 6d 61  78 5f 72 65 63 6f 72 64  |. to%>max_record|
00009cc0  25 20 8c 20 85 20 31 2c  22 45 6e 74 65 72 20 76  |% . . 1,"Enter v|
00009cd0  61 6c 75 65 73 20 62 65  74 77 65 65 6e 20 31 20  |alues between 1 |
00009ce0  61 6e 64 20 22 2b c3 28  6d 61 78 5f 72 65 63 6f  |and "+.(max_reco|
00009cf0  72 64 25 29 2b 22 2e 22  0d 2d 50 05 cd 0d 2d 5a  |rd%)+".".-P...-Z|
00009d00  2f e7 20 70 72 69 6e 74  61 6c 6c 24 3d 22 59 65  |/. printall$="Ye|
00009d10  73 22 20 8c 20 66 72 6f  6d 25 3d 31 3a 74 6f 25  |s" . from%=1:to%|
00009d20  3d 6d 61 78 5f 72 65 63  6f 72 64 25 0d 2d 64 14  |=max_record%.-d.|
00009d30  e3 20 49 25 3d 66 72 6f  6d 25 20 b8 20 74 6f 25  |. I%=from% . to%|
00009d40  0d 2d 6e 41 e7 20 66 6f  72 6d 61 74 24 28 49 25  |.-nA. format$(I%|
00009d50  29 3c 3e 22 22 20 84 20  76 69 64 65 6f 5f 6c 65  |)<>"" . video_le|
00009d60  6e 67 74 68 24 28 49 25  29 3c 3e 22 22 20 8c 20  |ngth$(I%)<>"" . |
00009d70  6e 65 65 64 73 70 72 69  6e 74 69 6e 67 25 2b 3d  |needsprinting%+=|
00009d80  31 0d 2d 78 08 ed 20 49  25 0d 2d 82 63 73 75 62  |1.-x.. I%.-.csub|
00009d90  69 74 65 6d 25 3d 30 3a  70 72 69 6e 74 65 64 25  |item%=0:printed%|
00009da0  3d 30 3a e7 20 6e 65 65  64 73 70 72 69 6e 74 69  |=0:. needsprinti|
00009db0  6e 67 25 3d 30 20 8c 20  ef 20 33 3a f2 63 6c 6f  |ng%=0 . . 3:.clo|
00009dc0  73 65 28 76 69 64 65 6f  5f 77 61 69 74 25 29 3a  |se(video_wait%):|
00009dd0  85 20 31 2c 22 4e 6f 20  72 65 63 6f 72 64 73 20  |. 1,"No records |
00009de0  74 6f 20 70 72 69 6e 74  2e 22 3a e1 0d 2d 8c 14  |to print.":..-..|
00009df0  e3 20 49 25 3d 66 72 6f  6d 25 20 b8 20 74 6f 25  |. I%=from% . to%|
00009e00  0d 2d 96 2f e7 20 66 6f  72 6d 61 74 24 28 49 25  |.-./. format$(I%|
00009e10  29 3c 3e 22 22 20 84 20  76 69 64 65 6f 5f 6c 65  |)<>"" . video_le|
00009e20  6e 67 74 68 24 28 49 25  29 3c 3e 22 22 20 8c 0d  |ngth$(I%)<>"" ..|
00009e30  2d a0 1b 73 75 62 69 74  65 6d 25 2b 3d 31 3a 70  |-..subitem%+=1:p|
00009e40  72 69 6e 74 65 64 25 2b  3d 31 0d 2d aa 0f ef 20  |rinted%+=1.-... |
00009e50  31 2c 32 37 2c 31 2c 37  31 0d 2d b4 0f ef 20 31  |1,27,1,71.-... 1|
00009e60  2c 32 37 2c 31 2c 38 30  0d 2d be 23 f1 20 8a 30  |,27,1,80.-.#. .0|
00009e70  29 3b 22 4e 75 6d 62 65  72 3a 20 22 2b c3 28 49  |);"Number: "+.(I|
00009e80  25 29 3a ef 20 31 2c 76  64 75 25 0d 2d c8 6c f1  |%):. 1,vdu%.-.l.|
00009e90  20 8a 30 29 3b 22 46 6f  72 6d 61 74 3a 20 22 2b  | .0);"Format: "+|
00009ea0  66 6f 72 6d 61 74 24 28  49 25 29 3b 8a 33 30 29  |format$(I%);.30)|
00009eb0  3b 22 20 54 79 70 65 3a  20 22 2b 74 79 70 65 24  |;" Type: "+type$|
00009ec0  28 49 25 29 3b 8a 35 30  29 3b 22 20 20 20 4c 65  |(I%);.50);"   Le|
00009ed0  6e 67 74 68 3a 20 22 2b  76 69 64 65 6f 5f 6c 65  |ngth: "+video_le|
00009ee0  6e 67 74 68 24 28 49 25  29 3b 8a 33 30 29 3a ef  |ngth$(I%);.30):.|
00009ef0  20 31 2c 76 64 75 25 0d  2d d2 0f ef 20 31 2c 32  | 1,vdu%.-... 1,2|
00009f00  37 2c 31 2c 37 32 0d 2d  dc 0f ef 20 31 2c 32 37  |7,1,72.-... 1,27|
00009f10  2c 31 2c 38 30 0d 2d e6  16 f1 c4 38 30 2c 22 2d  |,1,80.-....80,"-|
00009f20  22 29 3a ef 20 31 2c 76  64 75 25 0d 2d f0 05 cd  |"):. 1,vdu%.-...|
00009f30  0d 2d fa 25 e7 20 73 75  62 69 74 65 6d 25 3d 32  |.-.%. subitem%=2|
00009f40  30 20 8c 20 73 75 62 69  74 65 6d 25 3d 30 3a ef  |0 . subitem%=0:.|
00009f50  20 31 2c 31 32 0d 2e 04  07 ef 20 33 0d 2e 0e 68  | 1,12..... 3...h|
00009f60  e7 20 a8 28 28 70 72 69  6e 74 65 64 25 2f 6e 65  |. .((printed%/ne|
00009f70  65 64 73 70 72 69 6e 74  69 6e 67 25 29 2a 31 30  |edsprinting%)*10|
00009f80  30 29 3c 3e 31 30 30 20  8c 20 c8 99 20 22 48 6f  |0)<>100 . .. "Ho|
00009f90  75 72 67 6c 61 73 73 5f  50 65 72 63 65 6e 74 61  |urglass_Percenta|
00009fa0  67 65 22 2c a8 28 28 70  72 69 6e 74 65 64 25 2f  |ge",.((printed%/|
00009fb0  6e 65 65 64 73 70 72 69  6e 74 69 6e 67 25 29 2a  |needsprinting%)*|
00009fc0  31 30 30 29 0d 2e 18 07  ef 20 32 0d 2e 22 08 ed  |100)..... 2.."..|
00009fd0  20 49 25 0d 2e 2c 0a ef  20 31 2c 31 32 0d 2e 36  | I%..,.. 1,12..6|
00009fe0  05 e1 0d 2e 40 05 3a 0d  2e 4a 11 dd f2 70 72 69  |....@.:..J...pri|
00009ff0  6e 74 5f 74 61 62 6c 65  0d 2e 54 14 6e 65 65 64  |nt_table..T.need|
0000a000  73 70 72 69 6e 74 69 6e  67 25 3d 30 0d 2e 5e 28  |sprinting%=0..^(|
0000a010  e7 20 6c 69 6e 65 66 65  65 64 24 3d 22 59 65 73  |. linefeed$="Yes|
0000a020  22 20 8c 20 76 64 75 25  3d 31 30 20 8b 20 76 64  |" . vdu%=10 . vd|
0000a030  75 25 3d 30 0d 2e 68 16  e7 20 70 72 69 6e 74 61  |u%=0..h.. printa|
0000a040  6c 6c 24 3d 22 4e 6f 22  20 8c 0d 2e 72 49 66 72  |ll$="No" ...rIfr|
0000a050  6f 6d 25 3d bb 28 a4 69  6e 64 69 72 65 63 74 28  |om%=.(.indirect(|
0000a060  76 69 64 65 6f 5f 70 72  69 6e 74 25 2c 31 36 29  |video_print%,16)|
0000a070  29 3a 74 6f 25 3d bb 28  a4 69 6e 64 69 72 65 63  |):to%=.(.indirec|
0000a080  74 28 76 69 64 65 6f 5f  70 72 69 6e 74 25 2c 31  |t(video_print%,1|
0000a090  37 29 29 0d 2e 7c 56 e7  20 66 72 6f 6d 25 3c 31  |7))..|V. from%<1|
0000a0a0  20 84 20 74 6f 25 3e 6d  61 78 5f 72 65 63 6f 72  | . to%>max_recor|
0000a0b0  64 25 20 8c 20 85 20 31  2c 22 45 6e 74 65 72 20  |d% . . 1,"Enter |
0000a0c0  76 61 6c 75 65 73 20 62  65 74 77 65 65 6e 20 31  |values between 1|
0000a0d0  20 61 6e 64 20 22 2b c3  28 6d 61 78 5f 72 65 63  | and "+.(max_rec|
0000a0e0  6f 72 64 25 29 2b 22 2e  22 0d 2e 86 05 cd 0d 2e  |ord%)+".".......|
0000a0f0  90 2f e7 20 70 72 69 6e  74 61 6c 6c 24 3d 22 59  |./. printall$="Y|
0000a100  65 73 22 20 8c 20 66 72  6f 6d 25 3d 31 3a 74 6f  |es" . from%=1:to|
0000a110  25 3d 6d 61 78 5f 72 65  63 6f 72 64 25 0d 2e 9a  |%=max_record%...|
0000a120  14 e3 20 49 25 3d 66 72  6f 6d 25 20 b8 20 74 6f  |.. I%=from% . to|
0000a130  25 0d 2e a4 41 e7 20 66  6f 72 6d 61 74 24 28 49  |%...A. format$(I|
0000a140  25 29 3c 3e 22 22 20 84  20 76 69 64 65 6f 5f 6c  |%)<>"" . video_l|
0000a150  65 6e 67 74 68 24 28 49  25 29 3c 3e 22 22 20 8c  |ength$(I%)<>"" .|
0000a160  20 6e 65 65 64 73 70 72  69 6e 74 69 6e 67 25 2b  | needsprinting%+|
0000a170  3d 31 0d 2e ae 08 ed 20  49 25 0d 2e b8 63 73 75  |=1..... I%...csu|
0000a180  62 69 74 65 6d 25 3d 30  3a 70 72 69 6e 74 65 64  |bitem%=0:printed|
0000a190  25 3d 30 3a e7 20 6e 65  65 64 73 70 72 69 6e 74  |%=0:. needsprint|
0000a1a0  69 6e 67 25 3d 30 20 8c  20 ef 20 33 3a f2 63 6c  |ing%=0 . . 3:.cl|
0000a1b0  6f 73 65 28 76 69 64 65  6f 5f 77 61 69 74 25 29  |ose(video_wait%)|
0000a1c0  3a 85 20 31 2c 22 4e 6f  20 72 65 63 6f 72 64 73  |:. 1,"No records|
0000a1d0  20 74 6f 20 70 72 69 6e  74 2e 22 3a e1 0d 2e c2  | to print.":....|
0000a1e0  14 e3 20 49 25 3d 66 72  6f 6d 25 20 b8 20 74 6f  |.. I%=from% . to|
0000a1f0  25 0d 2e cc 2f e7 20 66  6f 72 6d 61 74 24 28 49  |%.../. format$(I|
0000a200  25 29 3c 3e 22 22 20 84  20 76 69 64 65 6f 5f 6c  |%)<>"" . video_l|
0000a210  65 6e 67 74 68 24 28 49  25 29 3c 3e 22 22 20 8c  |ength$(I%)<>"" .|
0000a220  0d 2e d6 1b 73 75 62 69  74 65 6d 25 2b 3d 31 3a  |....subitem%+=1:|
0000a230  70 72 69 6e 74 65 64 25  2b 3d 31 0d 2e e0 0f ef  |printed%+=1.....|
0000a240  20 31 2c 32 37 2c 31 2c  37 31 0d 2e ea 0f ef 20  | 1,27,1,71..... |
0000a250  31 2c 32 37 2c 31 2c 38  30 0d 2e f4 22 f1 8a 30  |1,27,1,80..."..0|
0000a260  29 3b 22 4e 75 6d 62 65  72 3a 20 22 2b c3 28 49  |);"Number: "+.(I|
0000a270  25 29 3a ef 20 31 2c 76  64 75 25 0d 2e fe 0f 73  |%):. 1,vdu%....s|
0000a280  75 62 69 74 65 6d 25 2b  3d 31 0d 2f 08 67 f1 8a  |ubitem%+=1./.g..|
0000a290  30 29 3b 22 46 6f 72 6d  61 74 3a 20 22 2b 66 6f  |0);"Format: "+fo|
0000a2a0  72 6d 61 74 24 28 49 25  29 3b 8a 33 30 29 3b 22  |rmat$(I%);.30);"|
0000a2b0  54 79 70 65 3a 20 22 2b  74 79 70 65 24 28 49 25  |Type: "+type$(I%|
0000a2c0  29 3b 8a 35 30 29 3b 22  4c 65 6e 67 74 68 3a 20  |);.50);"Length: |
0000a2d0  22 2b 76 69 64 65 6f 5f  6c 65 6e 67 74 68 24 28  |"+video_length$(|
0000a2e0  49 25 29 3b 8a 33 30 29  3a ef 20 31 2c 76 64 75  |I%);.30):. 1,vdu|
0000a2f0  25 0d 2f 12 0f 73 75 62  69 74 65 6d 25 2b 3d 32  |%./..subitem%+=2|
0000a300  0d 2f 1c 0f ef 20 31 2c  32 37 2c 31 2c 37 32 0d  |./... 1,27,1,72.|
0000a310  2f 26 10 ef 20 31 2c 32  37 2c 31 2c 31 30 33 0d  |/&.. 1,27,1,103.|
0000a320  2f 30 ac f1 3a ef 20 31  2c 76 64 75 25 3a f1 22  |/0..:. 1,vdu%:."|
0000a330  4e 61 6d 65 3a 22 2b c4  32 32 2c 22 20 22 29 2b  |Name:"+.22," ")+|
0000a340  22 43 61 74 65 67 6f 72  79 3a 22 2b c4 34 2c 22  |"Category:"+.4,"|
0000a350  20 22 29 2b 22 43 68 61  6e 6e 65 6c 3a 22 2b c4  | ")+"Channel:"+.|
0000a360  37 2c 22 20 22 29 2b 22  44 61 74 65 3a 22 2b c4  |7," ")+"Date:"+.|
0000a370  35 2c 22 20 22 29 2b 22  41 75 64 69 6f 22 2b c4  |5," ")+"Audio"+.|
0000a380  35 2c 22 20 22 29 2b 22  4c 65 6e 67 74 68 3a 22  |5," ")+"Length:"|
0000a390  2b c4 39 2c 22 20 22 29  2b 22 53 74 61 72 74 3a  |+.9," ")+"Start:|
0000a3a0  22 2b c4 32 2c 22 20 22  29 2b 22 53 74 6f 70 3a  |"+.2," ")+"Stop:|
0000a3b0  22 2b c4 33 2c 22 20 22  29 2b 22 53 70 65 65 64  |"+.3," ")+"Speed|
0000a3c0  3a 22 3a ef 20 31 2c 76  64 75 25 0d 2f 3a 12 e3  |:":. 1,vdu%./:..|
0000a3d0  20 73 75 62 49 25 3d 31  20 b8 20 31 30 0d 2f 44  | subI%=1 . 10./D|
0000a3e0  49 61 3d a9 28 6e 61 6d  65 24 28 49 25 2c 73 75  |Ia=.(name$(I%,su|
0000a3f0  62 49 25 29 29 3a 62 3d  a9 28 63 61 74 65 67 6f  |bI%)):b=.(catego|
0000a400  72 79 24 28 49 25 2c 73  75 62 49 25 29 29 3a 63  |ry$(I%,subI%)):c|
0000a410  3d a9 28 63 68 61 6e 6e  65 6c 24 28 49 25 2c 73  |=.(channel$(I%,s|
0000a420  75 62 49 25 29 29 0d 2f  4e 45 64 3d a9 28 64 61  |ubI%))./NEd=.(da|
0000a430  74 65 24 28 49 25 2c 73  75 62 49 25 29 29 3a 65  |te$(I%,subI%)):e|
0000a440  3d a9 28 61 75 64 69 6f  24 28 49 25 2c 73 75 62  |=.(audio$(I%,sub|
0000a450  49 25 29 29 3a 66 3d a9  28 6c 65 6e 67 74 68 24  |I%)):f=.(length$|
0000a460  28 49 25 2c 73 75 62 49  25 29 29 0d 2f 58 44 67  |(I%,subI%))./XDg|
0000a470  3d a9 28 73 74 61 72 74  24 28 49 25 2c 73 75 62  |=.(start$(I%,sub|
0000a480  49 25 29 29 3a 68 3d a9  28 73 74 6f 70 24 28 49  |I%)):h=.(stop$(I|
0000a490  25 2c 73 75 62 49 25 29  29 3a 69 3d a9 28 73 70  |%,subI%)):i=.(sp|
0000a4a0  65 65 64 24 28 49 25 2c  73 75 62 49 25 29 29 0d  |eed$(I%,subI%)).|
0000a4b0  2f 62 82 68 61 6c 66 73  74 72 69 6e 67 24 3d 6e  |/b.halfstring$=n|
0000a4c0  61 6d 65 24 28 49 25 2c  73 75 62 49 25 29 2b c4  |ame$(I%,subI%)+.|
0000a4d0  32 37 2d 61 2c 22 20 22  29 2b 63 61 74 65 67 6f  |27-a," ")+catego|
0000a4e0  72 79 24 28 49 25 2c 73  75 62 49 25 29 2b c4 31  |ry$(I%,subI%)+.1|
0000a4f0  33 2d 62 2c 22 20 22 29  2b 63 68 61 6e 6e 65 6c  |3-b," ")+channel|
0000a500  24 28 49 25 2c 73 75 62  49 25 29 2b c4 31 35 2d  |$(I%,subI%)+.15-|
0000a510  63 2c 22 20 22 29 2b 64  61 74 65 24 28 49 25 2c  |c," ")+date$(I%,|
0000a520  73 75 62 49 25 29 2b c4  31 30 2d 64 2c 22 20 22  |subI%)+.10-d," "|
0000a530  29 0d 2f 6c 9c 73 74 72  69 6e 67 74 6f 73 61 76  |)./l.stringtosav|
0000a540  65 24 3d 68 61 6c 66 73  74 72 69 6e 67 24 2b 61  |e$=halfstring$+a|
0000a550  75 64 69 6f 24 28 49 25  2c 73 75 62 49 25 29 2b  |udio$(I%,subI%)+|
0000a560  c4 31 30 2d 65 2c 22 20  22 29 2b 6c 65 6e 67 74  |.10-e," ")+lengt|
0000a570  68 24 28 49 25 2c 73 75  62 49 25 29 2b c4 31 36  |h$(I%,subI%)+.16|
0000a580  2d 66 2c 22 20 22 29 2b  73 74 61 72 74 24 28 49  |-f," ")+start$(I|
0000a590  25 2c 73 75 62 49 25 29  2b c4 38 2d 67 2c 22 20  |%,subI%)+.8-g," |
0000a5a0  22 29 2b 73 74 6f 70 24  28 49 25 2c 73 75 62 49  |")+stop$(I%,subI|
0000a5b0  25 29 2b c4 38 2d 68 2c  22 20 22 29 2b 73 70 65  |%)+.8-h," ")+spe|
0000a5c0  65 64 24 28 49 25 2c 73  75 62 49 25 29 0d 2f 76  |ed$(I%,subI%)./v|
0000a5d0  6b e7 20 28 61 3c 3e 30  20 84 20 62 3c 3e 30 20  |k. (a<>0 . b<>0 |
0000a5e0  84 20 63 3c 3e 30 20 84  20 64 3c 3e 30 20 84 20  |. c<>0 . d<>0 . |
0000a5f0  65 3c 3e 30 20 84 20 66  3c 3e 30 20 84 20 67 3c  |e<>0 . f<>0 . g<|
0000a600  3e 30 20 84 20 68 3c 3e  30 20 84 20 69 3c 3e 30  |>0 . h<>0 . i<>0|
0000a610  29 20 8c 20 f1 20 73 74  72 69 6e 67 74 6f 73 61  |) . . stringtosa|
0000a620  76 65 24 3a ef 20 31 2c  76 64 75 25 3a 73 75 62  |ve$:. 1,vdu%:sub|
0000a630  69 74 65 6d 25 2b 3d 31  0d 2f 80 0b ed 20 73 75  |item%+=1./... su|
0000a640  62 49 25 0d 2f 8a 0f ef  20 31 2c 32 37 2c 31 2c  |bI%./... 1,27,1,|
0000a650  38 30 0d 2f 94 22 73 75  62 69 74 65 6d 25 2b 3d  |80./."subitem%+=|
0000a660  31 3a f1 c4 38 30 2c 22  2d 22 29 3a ef 20 31 2c  |1:..80,"-"):. 1,|
0000a670  76 64 75 25 0d 2f 9e 05  cd 0d 2f a8 25 e7 20 73  |vdu%./..../.%. s|
0000a680  75 62 69 74 65 6d 25 3e  35 30 20 8c 20 73 75 62  |ubitem%>50 . sub|
0000a690  69 74 65 6d 25 3d 30 3a  ef 20 31 2c 31 32 0d 2f  |item%=0:. 1,12./|
0000a6a0  b2 07 ef 20 33 0d 2f bc  68 e7 20 a8 28 28 70 72  |... 3./.h. .((pr|
0000a6b0  69 6e 74 65 64 25 2f 6e  65 65 64 73 70 72 69 6e  |inted%/needsprin|
0000a6c0  74 69 6e 67 25 29 2a 31  30 30 29 3c 3e 31 30 30  |ting%)*100)<>100|
0000a6d0  20 8c 20 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  | . .. "Hourglass|
0000a6e0  5f 50 65 72 63 65 6e 74  61 67 65 22 2c a8 28 28  |_Percentage",.((|
0000a6f0  70 72 69 6e 74 65 64 25  2f 6e 65 65 64 73 70 72  |printed%/needspr|
0000a700  69 6e 74 69 6e 67 25 29  2a 31 30 30 29 0d 2f c6  |inting%)*100)./.|
0000a710  07 ef 20 32 0d 2f d0 08  ed 20 49 25 0d 2f da 0a  |.. 2./... I%./..|
0000a720  ef 20 31 2c 31 32 0d 2f  e4 05 e1 0d 2f ee 05 3a  |. 1,12./..../..:|
0000a730  0d 2f f8 1c dd f2 72 65  64 72 61 77 5f 77 69 6e  |./....redraw_win|
0000a740  64 6f 77 28 77 69 6e 64  6f 77 25 29 0d 30 02 0f  |dow(window%).0..|
0000a750  21 71 25 3d 77 69 6e 64  6f 77 25 0d 30 0c 26 c8  |!q%=window%.0.&.|
0000a760  99 20 22 57 69 6d 70 5f  52 65 64 72 61 77 57 69  |. "Wimp_RedrawWi|
0000a770  6e 64 6f 77 22 2c 2c 71  25 20 b8 20 6d 6f 72 65  |ndow",,q% . more|
0000a780  25 0d 30 16 0c c8 95 20  6d 6f 72 65 25 0d 30 20  |%.0.... more%.0 |
0000a790  1b c8 99 20 22 57 69 6d  70 45 78 74 5f 52 65 64  |... "WimpExt_Red|
0000a7a0  72 61 77 22 2c 2c 71 25  0d 30 2a 26 c8 99 20 22  |raw",,q%.0*&.. "|
0000a7b0  57 69 6d 70 5f 47 65 74  52 65 63 74 61 6e 67 6c  |Wimp_GetRectangl|
0000a7c0  65 22 2c 2c 71 25 20 b8  20 6d 6f 72 65 25 0d 30  |e",,q% . more%.0|
0000a7d0  34 05 ce 0d 30 3e 05 e1  0d 30 48 05 3a 0d 30 52  |4...0>...0H.:.0R|
0000a7e0  0e dd f2 61 6e 6e 6f 75  6e 63 65 0d 30 5c 44 f2  |...announce.0\D.|
0000a7f0  6f 70 65 6e 28 76 69 64  65 6f 5f 61 6e 6e 6f 75  |open(video_annou|
0000a800  6e 63 65 25 29 3a c8 99  20 22 57 69 6d 70 45 78  |nce%):.. "WimpEx|
0000a810  74 5f 4c 69 6d 69 74 50  6f 69 6e 74 65 72 22 2c  |t_LimitPointer",|
0000a820  76 69 64 65 6f 5f 61 6e  6e 6f 75 6e 63 65 25 0d  |video_announce%.|
0000a830  30 66 28 f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |0f(.update_icon(|
0000a840  76 69 64 65 6f 5f 61 6e  6e 6f 75 6e 63 65 25 2c  |video_announce%,|
0000a850  34 2c 76 65 72 24 29 0d  30 70 23 f2 72 65 64 72  |4,ver$).0p#.redr|
0000a860  61 77 5f 77 69 6e 64 6f  77 28 76 69 64 65 6f 5f  |aw_window(video_|
0000a870  61 6e 6e 6f 75 6e 63 65  25 29 0d 30 7a 27 c8 99  |announce%).0z'..|
0000a880  20 22 48 6f 75 72 67 6c  61 73 73 5f 4c 45 44 73  | "Hourglass_LEDs|
0000a890  22 2c 31 2c 30 3a f2 6d  61 6b 65 5f 6d 65 6e 75  |",1,0:.make_menu|
0000a8a0  73 0d 30 84 20 c8 99 20  22 48 6f 75 72 67 6c 61  |s.0. .. "Hourgla|
0000a8b0  73 73 5f 4c 45 44 73 22  2c 30 2c 31 3a f2 6e 65  |ss_LEDs",0,1:.ne|
0000a8c0  77 0d 30 8e 29 c8 99 20  22 48 6f 75 72 67 6c 61  |w.0.).. "Hourgla|
0000a8d0  73 73 5f 4c 45 44 73 22  2c 31 2c 31 3a f2 63 6c  |ss_LEDs",1,1:.cl|
0000a8e0  65 61 72 5f 73 65 61 72  63 68 0d 30 98 46 e3 20  |ear_search.0.F. |
0000a8f0  77 61 69 74 25 3d 31 20  b8 20 32 35 3a c8 96 3a  |wait%=1 . 25:..:|
0000a900  c8 96 3a c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |..:.. "Hourglass|
0000a910  5f 50 65 72 63 65 6e 74  61 67 65 22 2c a8 28 28  |_Percentage",.((|
0000a920  77 61 69 74 25 2f 32 35  29 2a 31 30 30 29 3a ed  |wait%/25)*100):.|
0000a930  0d 30 a2 1b f2 63 6c 6f  73 65 28 76 69 64 65 6f  |.0...close(video|
0000a940  5f 61 6e 6e 6f 75 6e 63  65 25 29 0d 30 ac 1f c8  |_announce%).0...|
0000a950  99 20 22 57 69 6d 70 45  78 74 5f 52 65 6c 65 61  |. "WimpExt_Relea|
0000a960  73 65 50 6f 69 6e 74 65  72 22 0d 30 b6 05 e1 0d  |sePointer".0....|
0000a970  30 c0 05 3a 0d 30 ca 19  dd f2 63 6c 65 61 72 5f  |0..:.0....clear_|
0000a980  64 61 74 61 5f 71 75 65  73 74 69 6f 6e 0d 30 d4  |data_question.0.|
0000a990  07 ef 20 37 0d 30 de 35  f2 6f 70 65 6e 28 76 69  |.. 7.0.5.open(vi|
0000a9a0  64 65 6f 5f 63 6c 65 61  72 25 29 3a c8 99 20 22  |deo_clear%):.. "|
0000a9b0  57 69 6d 70 5f 53 65 74  43 61 72 65 74 50 6f 73  |Wimp_SetCaretPos|
0000a9c0  69 74 69 6f 6e 22 2c 2d  31 0d 30 e8 2a c8 99 20  |ition",-1.0.*.. |
0000a9d0  22 57 69 6d 70 45 78 74  5f 4c 69 6d 69 74 50 6f  |"WimpExt_LimitPo|
0000a9e0  69 6e 74 65 72 22 2c 76  69 64 65 6f 5f 63 6c 65  |inter",video_cle|
0000a9f0  61 72 25 0d 30 f2 05 e1  0d 30 fc 05 3a 0d 31 06  |ar%.0....0..:.1.|
0000aa00  10 dd f2 63 6c 65 61 72  5f 64 61 74 61 0d 31 10  |...clear_data.1.|
0000aa10  08 f2 6e 65 77 0d 31 1a  0b f2 75 70 64 61 74 65  |..new.1...update|
0000aa20  0d 31 24 1c f2 72 65 5f  74 69 74 6c 65 28 22 56  |.1$..re_title("V|
0000aa30  69 64 65 6f 20 49 6e 64  65 78 22 29 0d 31 2e 0e  |ideo Index").1..|
0000aa40  75 6e 73 61 76 65 64 25  3d a3 0d 31 38 0e f2 63  |unsaved%=..18..c|
0000aa50  6c 6f 73 65 5f 61 6c 6c  0d 31 42 1f c8 99 20 22  |lose_all.1B... "|
0000aa60  57 69 6d 70 45 78 74 5f  52 65 6c 65 61 73 65 50  |WimpExt_ReleaseP|
0000aa70  6f 69 6e 74 65 72 22 0d  31 4c 05 e1 0d 31 56 05  |ointer".1L...1V.|
0000aa80  3a 0d 31 60 10 dd f2 71  75 69 74 5f 63 68 65 63  |:.1`...quit_chec|
0000aa90  6b 0d 31 6a 11 c8 8e 20  75 6e 73 61 76 65 64 25  |k.1j... unsaved%|
0000aaa0  20 ca 0d 31 74 07 c9 20  b9 0d 31 7e 07 ef 20 37  | ..1t.. ..1~.. 7|
0000aab0  0d 31 88 34 f2 6f 70 65  6e 28 76 69 64 65 6f 5f  |.1.4.open(video_|
0000aac0  71 75 69 74 25 29 3a c8  99 20 22 57 69 6d 70 5f  |quit%):.. "Wimp_|
0000aad0  53 65 74 43 61 72 65 74  50 6f 73 69 74 69 6f 6e  |SetCaretPosition|
0000aae0  22 2c 2d 31 0d 31 92 29  c8 99 20 22 57 69 6d 70  |",-1.1.).. "Wimp|
0000aaf0  45 78 74 5f 4c 69 6d 69  74 50 6f 69 6e 74 65 72  |Ext_LimitPointer|
0000ab00  22 2c 76 69 64 65 6f 5f  71 75 69 74 25 0d 31 9c  |",video_quit%.1.|
0000ab10  0f c9 20 a3 3a 71 75 69  74 25 3d b9 0d 31 a6 05  |.. .:quit%=..1..|
0000ab20  cb 0d 31 b0 05 e1 0d 31  ba 05 3a 0d 31 c4 29 dd  |..1....1..:.1.).|
0000ab30  f2 73 77 61 70 5f 63 61  73 65 28 77 69 6e 64 6f  |.swap_case(windo|
0000ab40  77 25 2c 69 63 6f 6e 25  2c 6b 65 79 5f 69 6e 64  |w%,icon%,key_ind|
0000ab50  65 78 25 29 0d 31 ce 36  e7 20 6b 65 79 5f 69 6e  |ex%).1.6. key_in|
0000ab60  64 65 78 25 3c a9 28 a4  72 65 61 64 5f 69 63 6f  |dex%<.(.read_ico|
0000ab70  6e 5f 74 65 78 74 28 77  69 6e 64 6f 77 25 2c 69  |n_text(window%,i|
0000ab80  63 6f 6e 25 2c a3 29 29  20 8c 0d 31 d8 2e 49 63  |con%,.)) ..1..Ic|
0000ab90  6f 6e 54 65 78 74 24 3d  a4 72 65 61 64 5f 69 63  |onText$=.read_ic|
0000aba0  6f 6e 5f 74 65 78 74 28  77 69 6e 64 6f 77 25 2c  |on_text(window%,|
0000abb0  69 63 6f 6e 25 2c a3 29  0d 31 e2 2a 43 25 3d 97  |icon%,.).1.*C%=.|
0000abc0  28 c1 49 63 6f 6e 54 65  78 74 24 2c 6b 65 79 5f  |(.IconText$,key_|
0000abd0  69 6e 64 65 78 25 2b 31  2c 31 29 29 20 80 20 26  |index%+1,1)) . &|
0000abe0  44 46 0d 31 ec 19 e7 20  43 25 3e 3d 26 34 31 20  |DF.1... C%>=&41 |
0000abf0  80 20 43 25 3c 3d 26 35  41 20 8c 0d 31 f6 2d 43  |. C%<=&5A ..1.-C|
0000ac00  24 3d bd 28 97 28 c1 49  63 6f 6e 54 65 78 74 24  |$=.(.(.IconText$|
0000ac10  2c 6b 65 79 5f 69 6e 64  65 78 25 2b 31 2c 31 29  |,key_index%+1,1)|
0000ac20  29 20 82 20 26 32 30 29  0d 32 00 21 c1 49 63 6f  |) . &20).2.!.Ico|
0000ac30  6e 54 65 78 74 24 2c 6b  65 79 5f 69 6e 64 65 78  |nText$,key_index|
0000ac40  25 2b 31 2c 31 29 3d 43  24 0d 32 0a 29 f2 75 70  |%+1,1)=C$.2.).up|
0000ac50  64 61 74 65 5f 69 63 6f  6e 28 77 69 6e 64 6f 77  |date_icon(window|
0000ac60  25 2c 69 63 6f 6e 25 2c  49 63 6f 6e 54 65 78 74  |%,icon%,IconText|
0000ac70  24 29 0d 32 14 05 cd 0d  32 1e 32 f2 5f 53 65 74  |$).2....2.2._Set|
0000ac80  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 28 77 69  |CaretPosition(wi|
0000ac90  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 6b 65 79 5f  |ndow%,icon%,key_|
0000aca0  69 6e 64 65 78 25 2b 31  29 0d 32 28 05 cd 0d 32  |index%+1).2(...2|
0000acb0  32 05 e1 0d 32 3c 05 3a  0d 32 46 31 dd f2 5f 53  |2...2<.:.2F1.._S|
0000acc0  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 28  |etCaretPosition(|
0000acd0  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 2c 6b 65  |window%,icon%,ke|
0000ace0  79 5f 69 6e 64 65 78 25  29 0d 32 50 33 49 63 6f  |y_index%).2P3Ico|
0000acf0  6e 4c 65 6e 67 74 68 25  3d a9 28 a4 72 65 61 64  |nLength%=.(.read|
0000ad00  5f 69 63 6f 6e 5f 74 65  78 74 28 77 69 6e 64 6f  |_icon_text(windo|
0000ad10  77 25 2c 69 63 6f 6e 25  2c a3 29 29 0d 32 5a 35  |w%,icon%,.)).2Z5|
0000ad20  e7 20 6b 65 79 5f 69 6e  64 65 78 25 3e 49 63 6f  |. key_index%>Ico|
0000ad30  6e 4c 65 6e 67 74 68 25  20 8c 20 6b 65 79 5f 69  |nLength% . key_i|
0000ad40  6e 64 65 78 25 3d 49 63  6f 6e 4c 65 6e 67 74 68  |ndex%=IconLength|
0000ad50  25 0d 32 64 3c c8 99 20  22 57 69 6d 70 5f 53 65  |%.2d<.. "Wimp_Se|
0000ad60  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
0000ad70  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 2c 2c 2c  |window%,icon%,,,|
0000ad80  2d 31 2c 6b 65 79 5f 69  6e 64 65 78 25 0d 32 6e  |-1,key_index%.2n|
0000ad90  22 c8 99 20 22 57 69 6d  70 5f 47 65 74 43 61 72  |".. "Wimp_GetCar|
0000ada0  65 74 50 6f 73 69 74 69  6f 6e 22 2c 2c 71 25 0d  |etPosition",,q%.|
0000adb0  32 78 05 e1 0d 32 82 05  3a 0d 32 8c 28 dd a4 72  |2x...2..:.2.(..r|
0000adc0  65 61 64 5f 69 63 6f 6e  5f 74 65 78 74 28 77 69  |ead_icon_text(wi|
0000add0  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 50 61 64 25  |ndow%,icon%,Pad%|
0000ade0  29 0d 32 96 0d ea 20 52  65 73 75 6c 74 24 0d 32  |).2... Result$.2|
0000adf0  a0 0f 21 71 25 3d 77 69  6e 64 6f 77 25 0d 32 aa  |..!q%=window%.2.|
0000ae00  0e 71 25 21 34 3d 69 63  6f 6e 25 0d 32 b4 1e c8  |.q%!4=icon%.2...|
0000ae10  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
0000ae20  74 61 74 65 22 2c 2c 71  25 0d 32 be 1b e7 20 28  |tate",,q%.2... (|
0000ae30  71 25 21 32 34 20 80 20  28 31 3c 3c 38 29 29 3c  |q%!24 . (1<<8))<|
0000ae40  3e 30 20 8c 0d 32 c8 14  52 65 73 75 6c 74 24 3d  |>0 ..2..Result$=|
0000ae50  24 28 71 25 21 32 38 29  0d 32 d2 05 cc 0d 32 dc  |$(q%!28).2....2.|
0000ae60  14 52 65 73 75 6c 74 24  3d 24 28 71 25 2b 32 38  |.Result$=$(q%+28|
0000ae70  29 0d 32 e6 05 cd 0d 32  f0 29 e7 20 50 61 64 25  |).2....2.). Pad%|
0000ae80  3e 30 20 8c 20 3d c0 52  65 73 75 6c 74 24 2b c4  |>0 . =.Result$+.|
0000ae90  50 61 64 25 2c 22 20 22  29 2c 50 61 64 25 29 0d  |Pad%," "),Pad%).|
0000aea0  32 fa 0c 3d 52 65 73 75  6c 74 24 0d 33 04 05 3a  |2..=Result$.3..:|
0000aeb0  0d 33 0e 15 dd f2 6d 73  5f 6c 6f 61 64 28 6d 6e  |.3....ms_load(mn|
0000aec0  61 6d 65 24 29 0d 33 18  25 c8 99 22 4d 65 73 73  |ame$).3.%.."Mess|
0000aed0  61 67 65 54 72 61 6e 73  5f 46 69 6c 65 49 6e 66  |ageTrans_FileInf|
0000aee0  6f 22 2c 2c 6d 6e 61 6d  65 24 0d 33 22 11 de 20  |o",,mname$.3".. |
0000aef0  6d 73 5f 74 65 78 74 25  32 35 36 0d 33 2c 2d c8  |ms_text%256.3,-.|
0000af00  99 22 4f 53 5f 4d 6f 64  75 6c 65 22 2c 36 2c 2c  |."OS_Module",6,,|
0000af10  2c 31 37 2b a9 28 6d 6e  61 6d 65 24 29 b8 2c 2c  |,17+.(mname$).,,|
0000af20  6d 73 5f 64 65 73 63 25  0d 33 36 19 24 28 6d 73  |ms_desc%.36.$(ms|
0000af30  5f 64 65 73 63 25 2b 31  36 29 3d 6d 6e 61 6d 65  |_desc%+16)=mname|
0000af40  24 0d 33 40 32 c8 99 22  4d 65 73 73 61 67 65 54  |$.3@2.."MessageT|
0000af50  72 61 6e 73 5f 4f 70 65  6e 46 69 6c 65 22 2c 6d  |rans_OpenFile",m|
0000af60  73 5f 64 65 73 63 25 2c  6d 73 5f 64 65 73 63 25  |s_desc%,ms_desc%|
0000af70  2b 31 36 0d 33 4a 05 e1  0d 33 54 05 3a 0d 33 5e  |+16.3J...3T.:.3^|
0000af80  0c dd f2 6d 73 5f 65 6e  64 0d 33 68 28 c8 99 22  |...ms_end.3h(.."|
0000af90  58 4d 65 73 73 61 67 65  54 72 61 6e 73 5f 43 6c  |XMessageTrans_Cl|
0000afa0  6f 73 65 46 69 6c 65 22  2c 6d 73 5f 64 65 73 63  |oseFile",ms_desc|
0000afb0  25 0d 33 72 1e c8 99 22  58 4f 53 5f 4d 6f 64 75  |%.3r..."XOS_Modu|
0000afc0  6c 65 22 2c 37 2c 2c 6d  73 5f 64 65 73 63 25 0d  |le",7,,ms_desc%.|
0000afd0  33 7c 05 e1 0d 33 86 05  3a 0d 33 90 10 dd a4 6d  |3|...3..:.3....m|
0000afe0  73 5f 30 28 74 61 67 24  29 0d 33 9a 16 3d a4 6d  |s_0(tag$).3..=.m|
0000aff0  73 5f 32 28 74 61 67 24  2c 22 22 2c 22 22 29 0d  |s_2(tag$,"","").|
0000b000  33 a4 05 3a 0d 33 ae 16  dd a4 6d 73 5f 31 28 74  |3..:.3....ms_1(t|
0000b010  61 67 24 2c 61 72 67 31  24 29 0d 33 b8 19 3d a4  |ag$,arg1$).3..=.|
0000b020  6d 73 5f 32 28 74 61 67  24 2c 61 72 67 31 24 2c  |ms_2(tag$,arg1$,|
0000b030  22 22 29 0d 33 c2 05 3a  0d 33 cc 1c dd a4 6d 73  |"").3..:.3....ms|
0000b040  5f 32 28 74 61 67 24 2c  61 72 67 31 24 2c 61 72  |_2(tag$,arg1$,ar|
0000b050  67 32 24 29 0d 33 d6 0a  ea 46 25 2c 4c 25 0d 33  |g2$).3...F%,L%.3|
0000b060  e0 4c c8 99 22 58 4d 65  73 73 61 67 65 54 72 61  |.L.."XMessageTra|
0000b070  6e 73 5f 4c 6f 6f 6b 75  70 22 2c 6d 73 5f 64 65  |ns_Lookup",ms_de|
0000b080  73 63 25 2c 74 61 67 24  2c 6d 73 5f 74 65 78 74  |sc%,tag$,ms_text|
0000b090  25 2c 32 35 36 2c 61 72  67 31 24 2c 61 72 67 32  |%,256,arg1$,arg2|
0000b0a0  24 b8 2c 2c 2c 4c 25 3b  46 25 0d 33 ea 0f e7 46  |$.,,,L%;F%.3...F|
0000b0b0  25 80 20 31 8c 4c 25 3d  30 0d 33 f4 12 6d 73 5f  |%. 1.L%=0.3..ms_|
0000b0c0  74 65 78 74 25 3f 4c 25  3d 31 33 0d 33 fe 0e 3d  |text%?L%=13.3..=|
0000b0d0  24 6d 73 5f 74 65 78 74  25 0d 34 08 05 3a 0d 34  |$ms_text%.4..:.4|
0000b0e0  12 11 dd f2 68 65 6c 70  28 68 65 6c 70 24 29 0d  |....help(help$).|
0000b0f0  34 1c 08 ea 20 43 25 0d  34 26 0f 43 25 3d a9 68  |4... C%.4&.C%=.h|
0000b100  65 6c 70 24 2b 31 0d 34  30 0e 71 25 21 31 32 3d  |elp$+1.40.q%!12=|
0000b110  71 25 21 38 0d 34 3a 0e  71 25 21 31 36 3d 26 35  |q%!8.4:.q%!16=&5|
0000b120  30 33 0d 34 44 15 24 28  71 25 2b 32 30 29 3d 68  |03.4D.$(q%+20)=h|
0000b130  65 6c 70 24 2b bd 30 0d  34 4e 12 21 71 25 3d 28  |elp$+.0.4N.!q%=(|
0000b140  32 34 2b 43 25 29 80 ac  33 0d 34 58 23 c8 99 22  |24+C%)..3.4X#.."|
0000b150  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
0000b160  22 2c 31 37 2c 71 25 2c  71 25 21 34 0d 34 62 05  |",17,q%,q%!4.4b.|
0000b170  cd 0d 34 6c 05 e1 0d 34  76 05 3a 0d 34 80 0f dd  |..4l...4v.:.4...|
0000b180  a4 68 65 6c 70 5f 74 65  78 74 0d 34 8a 0b ea 20  |.help_text.4... |
0000b190  74 65 78 74 24 0d 34 94  0c 74 65 78 74 24 3d 22  |text$.4..text$="|
0000b1a0  22 0d 34 9e 0e c8 8e 20  71 25 21 33 32 20 ca 0d  |".4.... q%!32 ..|
0000b1b0  34 a8 1f c9 20 2d 32 3a  74 65 78 74 24 3d a4 6d  |4... -2:text$=.m|
0000b1c0  73 5f 30 28 22 49 63 6f  6e 42 61 72 22 29 0d 34  |s_0("IconBar").4|
0000b1d0  b2 27 c9 20 76 69 64 65  6f 5f 69 6e 66 6f 62 6f  |.'. video_infobo|
0000b1e0  78 25 3a 74 65 78 74 24  3d a4 6d 73 5f 30 28 22  |x%:text$=.ms_0("|
0000b1f0  41 64 64 22 29 0d 34 bc  1d c9 20 76 69 64 65 6f  |Add").4... video|
0000b200  5f 69 6e 64 65 78 25 3a  c8 8e 20 71 25 21 33 36  |_index%:.. q%!36|
0000b210  20 ca 0d 34 c6 1d c9 20  31 38 3a 74 65 78 74 24  | ..4... 18:text$|
0000b220  3d a4 6d 73 5f 30 28 22  46 69 72 73 74 22 29 0d  |=.ms_0("First").|
0000b230  34 d0 1e c9 20 31 34 2c  31 39 3a 74 65 78 74 24  |4... 14,19:text$|
0000b240  3d a4 6d 73 5f 30 28 22  4f 6e 65 22 29 0d 34 da  |=.ms_0("One").4.|
0000b250  1e c9 20 32 30 2c 31 37  3a 74 65 78 74 24 3d a4  |.. 20,17:text$=.|
0000b260  6d 73 5f 30 28 22 54 65  6e 22 29 0d 34 e4 1c c9  |ms_0("Ten").4...|
0000b270  20 32 31 3a 74 65 78 74  24 3d a4 6d 73 5f 30 28  | 21:text$=.ms_0(|
0000b280  22 4c 61 73 74 22 29 0d  34 ee 1a c9 20 35 3a 74  |"Last").4... 5:t|
0000b290  65 78 74 24 3d a4 6d 73  5f 30 28 22 52 65 63 22  |ext$=.ms_0("Rec"|
0000b2a0  29 0d 34 f8 1f c9 20 36  2c 37 2c 38 3a 74 65 78  |).4... 6,7,8:tex|
0000b2b0  74 24 3d a4 6d 73 5f 30  28 22 54 65 4d 65 22 29  |t$=.ms_0("TeMe")|
0000b2c0  0d 35 02 26 c9 20 31 30  3a 74 65 78 74 24 3d a4  |.5.&. 10:text$=.|
0000b2d0  6d 73 5f 31 28 22 4d 65  6e 75 22 2c 22 46 6f 72  |ms_1("Menu","For|
0000b2e0  6d 61 74 73 22 29 0d 35  0c 26 c9 20 31 31 3a 74  |mats").5.&. 11:t|
0000b2f0  65 78 74 24 3d a4 6d 73  5f 31 28 22 4d 65 6e 75  |ext$=.ms_1("Menu|
0000b300  22 2c 22 4c 65 6e 67 74  68 73 22 29 0d 35 16 24  |","Lengths").5.$|
0000b310  c9 20 31 32 3a 74 65 78  74 24 3d a4 6d 73 5f 31  |. 12:text$=.ms_1|
0000b320  28 22 4d 65 6e 75 22 2c  22 54 79 70 65 73 22 29  |("Menu","Types")|
0000b330  0d 35 20 19 7f 3a 74 65  78 74 24 3d a4 6d 73 5f  |.5 ..:text$=.ms_|
0000b340  30 28 22 4d 61 69 6e 22  29 0d 35 2a 05 cb 0d 35  |0("Main").5*...5|
0000b350  34 2b c9 20 76 69 64 65  6f 5f 62 61 63 6b 74 72  |4+. video_backtr|
0000b360  61 63 6b 73 25 3a 74 65  78 74 24 3d a4 6d 73 5f  |acks%:text$=.ms_|
0000b370  30 28 22 4d 61 69 6e 22  29 0d 35 3e 1e c9 20 76  |0("Main").5>.. v|
0000b380  69 64 65 6f 5f 74 72 61  63 6b 73 25 3a c8 8e 20  |ideo_tracks%:.. |
0000b390  71 25 21 33 36 20 ca 0d  35 48 41 c9 20 31 34 31  |q%!36 ..5HA. 141|
0000b3a0  2c 31 34 32 2c 31 34 33  2c 31 34 34 2c 31 34 35  |,142,143,144,145|
0000b3b0  2c 31 34 36 2c 31 34 37  2c 31 34 38 2c 31 34 39  |,146,147,148,149|
0000b3c0  2c 31 35 30 3a 74 65 78  74 24 3d a4 6d 73 5f 30  |,150:text$=.ms_0|
0000b3d0  28 22 54 79 70 65 22 29  0d 35 52 d8 c9 20 39 31  |("Type").5R.. 91|
0000b3e0  2c 39 32 2c 39 33 2c 39  34 2c 39 35 2c 39 36 2c  |,92,93,94,95,96,|
0000b3f0  39 37 2c 39 38 2c 39 39  2c 31 30 30 2c 31 30 31  |97,98,99,100,101|
0000b400  2c 31 30 32 2c 31 30 33  2c 31 30 34 2c 31 30 35  |,102,103,104,105|
0000b410  2c 31 30 36 2c 31 30 37  2c 31 30 38 2c 31 30 39  |,106,107,108,109|
0000b420  2c 31 31 30 2c 31 31 31  2c 31 31 32 2c 31 31 33  |,110,111,112,113|
0000b430  2c 31 31 34 2c 31 31 35  2c 31 31 36 2c 31 31 37  |,114,115,116,117|
0000b440  2c 31 31 38 2c 31 31 39  2c 31 32 30 2c 31 32 31  |,118,119,120,121|
0000b450  2c 31 32 32 2c 31 32 33  2c 31 32 34 2c 31 32 35  |,122,123,124,125|
0000b460  2c 31 32 36 2c 31 32 37  2c 31 32 38 2c 31 32 39  |,126,127,128,129|
0000b470  2c 31 33 30 2c 31 33 31  2c 31 33 32 2c 31 33 33  |,130,131,132,133|
0000b480  2c 31 33 34 2c 31 33 35  2c 31 33 36 2c 31 33 37  |,134,135,136,137|
0000b490  2c 31 33 38 2c 31 33 39  2c 31 34 30 3a 74 65 78  |,138,139,140:tex|
0000b4a0  74 24 3d a4 6d 73 5f 30  28 22 54 65 4d 65 22 29  |t$=.ms_0("TeMe")|
0000b4b0  0d 35 5c 19 7f 3a 74 65  78 74 24 3d a4 6d 73 5f  |.5\..:text$=.ms_|
0000b4c0  30 28 22 54 65 78 74 22  29 0d 35 66 05 cb 0d 35  |0("Text").5f...5|
0000b4d0  70 20 c9 20 76 69 64 65  6f 5f 73 61 76 65 62 6f  |p . video_savebo|
0000b4e0  78 32 25 3a c8 8e 20 71  25 21 33 36 20 ca 0d 35  |x2%:.. q%!36 ..5|
0000b4f0  7a 1b c9 20 30 3a 74 65  78 74 24 3d a4 6d 73 5f  |z.. 0:text$=.ms_|
0000b500  30 28 22 44 72 61 67 22  29 0d 35 84 1b c9 20 31  |0("Drag").5... 1|
0000b510  3a 74 65 78 74 24 3d a4  6d 73 5f 30 28 22 46 69  |:text$=.ms_0("Fi|
0000b520  6c 65 22 29 0d 35 8e 1b  c9 20 32 3a 74 65 78 74  |le").5... 2:text|
0000b530  24 3d a4 6d 73 5f 30 28  22 53 61 76 65 22 29 0d  |$=.ms_0("Save").|
0000b540  35 98 05 cb 0d 35 a2 1f  c9 20 76 69 64 65 6f 5f  |5....5... video_|
0000b550  73 61 76 65 62 6f 78 25  3a c8 8e 20 71 25 21 33  |savebox%:.. q%!3|
0000b560  36 20 ca 0d 35 ac 1c c9  20 30 3a 74 65 78 74 24  |6 ..5... 0:text$|
0000b570  3d a4 6d 73 5f 30 28 22  44 72 61 67 54 22 29 0d  |=.ms_0("DragT").|
0000b580  35 b6 1c c9 20 31 3a 74  65 78 74 24 3d a4 6d 73  |5... 1:text$=.ms|
0000b590  5f 30 28 22 46 69 6c 65  54 22 29 0d 35 c0 1c c9  |_0("FileT").5...|
0000b5a0  20 32 3a 74 65 78 74 24  3d a4 6d 73 5f 30 28 22  | 2:text$=.ms_0("|
0000b5b0  53 61 76 65 54 22 29 0d  35 ca 05 cb 0d 35 d4 1c  |SaveT").5....5..|
0000b5c0  c9 20 76 69 64 65 6f 5f  71 75 69 74 25 3a c8 8e  |. video_quit%:..|
0000b5d0  20 71 25 21 33 36 20 ca  0d 35 de 1d c9 20 31 2c  | q%!36 ..5... 1,|
0000b5e0  32 3a 74 65 78 74 24 3d  a4 6d 73 5f 30 28 22 51  |2:text$=.ms_0("Q|
0000b5f0  75 65 73 22 29 0d 35 e8  05 cb 0d 35 f2 1d c9 20  |ues").5....5... |
0000b600  76 69 64 65 6f 5f 63 6c  65 61 72 25 3a c8 8e 20  |video_clear%:.. |
0000b610  71 25 21 33 36 20 ca 0d  35 fc 1d c9 20 31 2c 32  |q%!36 ..5... 1,2|
0000b620  3a 74 65 78 74 24 3d a4  6d 73 5f 30 28 22 51 75  |:text$=.ms_0("Qu|
0000b630  65 73 22 29 0d 36 06 05  cb 0d 36 10 1d c9 20 76  |es").6....6... v|
0000b640  69 64 65 6f 5f 70 72 69  6e 74 25 3a c8 8e 20 71  |ideo_print%:.. q|
0000b650  25 21 33 36 20 ca 0d 36  1a 23 c9 20 31 3a 74 65  |%!36 ..6.#. 1:te|
0000b660  78 74 24 3d a4 6d 73 5f  31 28 22 51 75 61 6c 22  |xt$=.ms_1("Qual"|
0000b670  2c 22 64 72 61 66 74 22  29 0d 36 24 31 c9 20 32  |,"draft").6$1. 2|
0000b680  3a 74 65 78 74 24 3d a4  6d 73 5f 31 28 22 51 75  |:text$=.ms_1("Qu|
0000b690  61 6c 22 2c 22 6e 65 61  72 20 6c 65 74 74 65 72  |al","near letter|
0000b6a0  20 71 75 61 6c 69 74 79  22 29 0d 36 2e 35 c9 20  | quality").6.5. |
0000b6b0  33 3a 74 65 78 74 24 3d  a4 6d 73 5f 31 28 22 51  |3:text$=.ms_1("Q|
0000b6c0  75 61 6c 22 2c 22 52 49  53 43 20 4f 53 20 50 72  |ual","RISC OS Pr|
0000b6d0  69 6e 74 65 72 20 44 72  69 76 65 72 73 22 29 0d  |inter Drivers").|
0000b6e0  36 38 1b c9 20 36 3a 74  65 78 74 24 3d a4 6d 73  |68.. 6:text$=.ms|
0000b6f0  5f 30 28 22 43 6f 70 79  22 29 0d 36 42 1b c9 20  |_0("Copy").6B.. |
0000b700  37 3a 74 65 78 74 24 3d  a4 6d 73 5f 30 28 22 50  |7:text$=.ms_0("P|
0000b710  72 69 6e 22 29 0d 36 4c  2f c9 20 39 3a 74 65 78  |rin").6L/. 9:tex|
0000b720  74 24 3d a4 6d 73 5f 31  28 22 50 72 69 41 6c 6c  |t$=.ms_1("PriAll|
0000b730  22 2c 22 56 69 64 65 6f  20 49 6e 66 6f 20 4f 6e  |","Video Info On|
0000b740  6c 79 22 29 0d 36 56 2d  c9 20 31 30 3a 74 65 78  |ly").6V-. 10:tex|
0000b750  74 24 3d a4 6d 73 5f 31  28 22 50 72 69 41 6c 6c  |t$=.ms_1("PriAll|
0000b760  22 2c 22 46 75 6c 6c 20  44 65 74 61 69 6c 73 22  |","Full Details"|
0000b770  29 0d 36 60 2c c9 20 31  31 3a 74 65 78 74 24 3d  |).6`,. 11:text$=|
0000b780  a4 6d 73 5f 31 28 22 50  72 69 41 6c 6c 22 2c 22  |.ms_1("PriAll","|
0000b790  56 69 64 65 6f 20 4c 61  62 65 6c 22 29 0d 36 6a  |Video Label").6j|
0000b7a0  1c c9 20 31 32 3a 74 65  78 74 24 3d a4 6d 73 5f  |.. 12:text$=.ms_|
0000b7b0  30 28 22 56 69 64 4e 22  29 0d 36 74 05 cb 0d 36  |0("VidN").6t...6|
0000b7c0  7e 1e c9 20 76 69 64 65  6f 5f 73 65 61 72 63 68  |~.. video_search|
0000b7d0  25 3a c8 8e 20 71 25 21  33 36 20 ca 0d 36 88 1e  |%:.. q%!36 ..6..|
0000b7e0  c9 20 31 3a 74 65 78 74  24 3d a4 6d 73 5f 30 28  |. 1:text$=.ms_0(|
0000b7f0  22 53 65 61 54 65 78 74  22 29 0d 36 92 1e c9 20  |"SeaText").6... |
0000b800  37 3a 74 65 78 74 24 3d  a4 6d 73 5f 30 28 22 53  |7:text$=.ms_0("S|
0000b810  65 61 50 72 65 76 22 29  0d 36 9c 1d c9 20 35 3a  |eaPrev").6... 5:|
0000b820  74 65 78 74 24 3d a4 6d  73 5f 30 28 22 53 65 61  |text$=.ms_0("Sea|
0000b830  72 47 6f 22 29 0d 36 a6  24 c9 20 33 3a 74 65 78  |rGo").6.$. 3:tex|
0000b840  74 24 3d a4 6d 73 5f 31  28 22 53 65 61 54 79 70  |t$=.ms_1("SeaTyp|
0000b850  22 2c 22 4e 61 6d 65 22  29 0d 36 b0 28 c9 20 34  |","Name").6.(. 4|
0000b860  3a 74 65 78 74 24 3d a4  6d 73 5f 31 28 22 53 65  |:text$=.ms_1("Se|
0000b870  61 54 79 70 22 2c 22 43  61 74 65 67 6f 72 79 22  |aTyp","Category"|
0000b880  29 0d 36 ba 05 cb 0d 36  c4 27 c9 20 76 69 64 65  |).6....6.'. vide|
0000b890  6f 5f 66 6f 75 6e 64 25  3a 74 65 78 74 24 3d a4  |o_found%:text$=.|
0000b8a0  6d 73 5f 30 28 22 46 6f  75 6e 64 22 29 0d 36 ce  |ms_0("Found").6.|
0000b8b0  05 cb 0d 36 d8 0a 3d 74  65 78 74 24 0d 36 e2 05  |...6..=text$.6..|
0000b8c0  3a 0d 36 ec 13 dd f2 67  65 74 5f 6d 6f 64 65 5f  |:.6....get_mode_|
0000b8d0  69 6e 66 6f 0d 36 f6 1f  63 78 25 3d 28 a4 6d 76  |info.6..cx%=(.mv|
0000b8e0  28 eb 2c 31 31 29 29 3c  3c 28 a4 6d 76 28 eb 2c  |(.,11))<<(.mv(.,|
0000b8f0  34 29 29 0d 37 00 1f 63  79 25 3d 28 a4 6d 76 28  |4)).7..cy%=(.mv(|
0000b900  eb 2c 31 32 29 29 3c 3c  28 a4 6d 76 28 eb 2c 35  |.,12))<<(.mv(.,5|
0000b910  29 29 0d 37 0a 05 e1 0d  37 14 05 3a 0d 37 1e 14  |)).7....7..:.7..|
0000b920  dd a4 6d 76 28 6d 6f 64  65 25 2c 76 61 72 25 29  |..mv(mode%,var%)|
0000b930  0d 37 28 08 ea 20 76 25  0d 37 32 2e c8 99 20 22  |.7(.. v%.72... "|
0000b940  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
0000b950  62 6c 65 22 2c 6d 6f 64  65 25 2c 76 61 72 25 20  |ble",mode%,var% |
0000b960  b8 20 2c 2c 76 25 0d 37  3c 07 3d 76 25 0d 37 46  |. ,,v%.7<.=v%.7F|
0000b970  05 3a 0d 37 50 12 dd f2  63 6c 65 61 72 5f 73 65  |.:.7P...clear_se|
0000b980  61 72 63 68 0d 37 5a 1a  ea 20 69 63 6f 6e 25 3a  |arch.7Z.. icon%:|
0000b990  e3 20 69 63 6f 6e 25 3d  30 20 b8 20 35 31 0d 37  |. icon%=0 . 51.7|
0000b9a0  64 28 f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 76  |d(.update_icon(v|
0000b9b0  69 64 65 6f 5f 66 6f 75  6e 64 25 2c 69 63 6f 6e  |ideo_found%,icon|
0000b9c0  25 2c 22 20 22 29 0d 37  6e 05 ed 0d 37 78 4b f2  |%," ").7n...7xK.|
0000b9d0  75 70 64 61 74 65 5f 69  63 6f 6e 28 76 69 64 65  |update_icon(vide|
0000b9e0  6f 5f 66 6f 75 6e 64 25  2c 31 2c 22 63 6f 75 6c  |o_found%,1,"coul|
0000b9f0  64 20 62 65 20 66 6f 75  6e 64 20 69 6e 20 74 68  |d be found in th|
0000ba00  65 20 66 6f 6c 6c 6f 77  69 6e 67 20 72 65 63 6f  |e following reco|
0000ba10  72 64 73 3a 22 29 0d 37  82 05 e1 0d 37 8c 05 3a  |rds:").7....7..:|
0000ba20  0d 37 96 14 dd f2 73 65  61 72 63 68 28 66 69 65  |.7....search(fie|
0000ba30  6c 64 24 29 0d 37 a0 15  c8 99 20 22 48 6f 75 72  |ld$).7.... "Hour|
0000ba40  67 6c 61 73 73 5f 4f 6e  22 0d 37 aa 19 66 6f 75  |glass_On".7..fou|
0000ba50  6e 64 69 63 6f 6e 25 3d  32 3a 66 6f 75 6e 64 25  |ndicon%=2:found%|
0000ba60  3d 30 0d 37 b4 2c 73 65  61 72 63 68 73 74 72 69  |=0.7.,searchstri|
0000ba70  6e 67 24 3d a4 69 6e 64  69 72 65 63 74 28 76 69  |ng$=.indirect(vi|
0000ba80  64 65 6f 5f 73 65 61 72  63 68 25 2c 31 29 0d 37  |deo_search%,1).7|
0000ba90  be 62 e7 20 73 65 61 72  63 68 73 74 72 69 6e 67  |.b. searchstring|
0000baa0  24 3d 22 22 20 8c 20 f2  63 6c 6f 73 65 28 76 69  |$="" . .close(vi|
0000bab0  64 65 6f 5f 73 65 61 72  63 68 25 29 3a c8 99 20  |deo_search%):.. |
0000bac0  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
0000bad0  22 2c 2c 2d 31 3a 85 20  31 2c 22 45 6e 74 65 72  |",,-1:. 1,"Enter|
0000bae0  20 73 65 61 72 63 68 20  73 74 72 69 6e 67 2e 22  | search string."|
0000baf0  0d 37 c8 2e f2 75 70 64  61 74 65 5f 69 63 6f 6e  |.7...update_icon|
0000bb00  28 76 69 64 65 6f 5f 66  6f 75 6e 64 25 2c 30 2c  |(video_found%,0,|
0000bb10  73 65 61 72 63 68 73 74  72 69 6e 67 24 29 0d 37  |searchstring$).7|
0000bb20  d2 4d e7 20 63 61 73 65  73 65 6e 73 65 24 3d 22  |.M. casesense$="|
0000bb30  4e 6f 22 20 8c 20 53 65  61 72 63 68 24 3d a4 75  |No" . Search$=.u|
0000bb40  70 70 65 72 28 73 65 61  72 63 68 73 74 72 69 6e  |pper(searchstrin|
0000bb50  67 24 29 20 8b 20 53 65  61 72 63 68 24 3d 73 65  |g$) . Search$=se|
0000bb60  61 72 63 68 73 74 72 69  6e 67 24 0d 37 dc 0f c8  |archstring$.7...|
0000bb70  8e 20 66 69 65 6c 64 24  20 ca 0d 37 e6 0c c9 20  |. field$ ..7... |
0000bb80  22 4e 61 6d 65 22 0d 37  f0 1d e3 20 6e 75 6d 62  |"Name".7... numb|
0000bb90  65 72 25 3d 31 20 b8 20  6d 61 78 5f 72 65 63 6f  |er%=1 . max_reco|
0000bba0  72 64 25 0d 37 fa 1e 69  63 6f 6e 5f 75 73 65 64  |rd%.7..icon_used|
0000bbb0  25 3d a3 3a 73 75 62 5f  6e 75 6d 62 65 72 25 3d  |%=.:sub_number%=|
0000bbc0  31 0d 38 04 3a c8 99 20  22 48 6f 75 72 67 6c 61  |1.8.:.. "Hourgla|
0000bbd0  73 73 5f 50 65 72 63 65  6e 74 61 67 65 22 2c a8  |ss_Percentage",.|
0000bbe0  28 28 6e 75 6d 62 65 72  25 2f 6d 61 78 5f 72 65  |((number%/max_re|
0000bbf0  63 6f 72 64 25 29 2a 31  30 30 29 0d 38 0e 11 e3  |cord%)*100).8...|
0000bc00  20 73 75 62 25 3d 31 20  b8 20 31 30 0d 38 18 59  | sub%=1 . 10.8.Y|
0000bc10  e7 20 63 61 73 65 73 65  6e 73 65 24 3d 22 4e 6f  |. casesense$="No|
0000bc20  22 20 8c 20 74 61 72 67  65 74 24 3d a4 75 70 70  |" . target$=.upp|
0000bc30  65 72 28 6e 61 6d 65 24  28 6e 75 6d 62 65 72 25  |er(name$(number%|
0000bc40  2c 73 75 62 25 29 29 20  8b 20 74 61 72 67 65 74  |,sub%)) . target|
0000bc50  24 3d 6e 61 6d 65 24 28  6e 75 6d 62 65 72 25 2c  |$=name$(number%,|
0000bc60  73 75 62 25 29 0d 38 22  31 e3 20 62 25 3d 31 20  |sub%).8"1. b%=1 |
0000bc70  b8 20 a9 20 74 61 72 67  65 74 24 3a 61 24 3d c1  |. . target$:a$=.|
0000bc80  74 61 72 67 65 74 24 2c  62 25 2c a9 28 53 65 61  |target$,b%,.(Sea|
0000bc90  72 63 68 24 29 29 0d 38  2c 3c e7 20 53 65 61 72  |rch$)).8,<. Sear|
0000bca0  63 68 24 3d 61 24 20 8c  20 f2 61 64 64 5f 74 6f  |ch$=a$ . .add_to|
0000bcb0  5f 66 6f 75 6e 64 28 6e  75 6d 62 65 72 25 2c 73  |_found(number%,s|
0000bcc0  75 62 5f 6e 75 6d 62 65  72 25 29 3a e5 20 8d 44  |ub_number%):. .D|
0000bcd0  40 78 0d 38 36 08 ed 20  62 25 0d 38 40 0a ed 20  |@x.86.. b%.8@.. |
0000bce0  73 75 62 25 0d 38 4a 2c  e7 20 69 63 6f 6e 5f 75  |sub%.8J,. icon_u|
0000bcf0  73 65 64 25 3d b9 20 8c  20 66 6f 75 6e 64 69 63  |sed%=. . foundic|
0000bd00  6f 6e 25 2b 3d 31 3a 66  6f 75 6e 64 25 2b 3d 31  |on%+=1:found%+=1|
0000bd10  0d 38 54 0d ed 20 6e 75  6d 62 65 72 25 0d 38 5e  |.8T.. number%.8^|
0000bd20  10 c9 20 22 43 61 74 65  67 6f 72 79 22 0d 38 68  |.. "Category".8h|
0000bd30  1d e3 20 6e 75 6d 62 65  72 25 3d 31 20 b8 20 6d  |.. number%=1 . m|
0000bd40  61 78 5f 72 65 63 6f 72  64 25 0d 38 72 1e 69 63  |ax_record%.8r.ic|
0000bd50  6f 6e 5f 75 73 65 64 25  3d a3 3a 73 75 62 5f 6e  |on_used%=.:sub_n|
0000bd60  75 6d 62 65 72 25 3d 31  0d 38 7c 3a c8 99 20 22  |umber%=1.8|:.. "|
0000bd70  48 6f 75 72 67 6c 61 73  73 5f 50 65 72 63 65 6e  |Hourglass_Percen|
0000bd80  74 61 67 65 22 2c a8 28  28 6e 75 6d 62 65 72 25  |tage",.((number%|
0000bd90  2f 6d 61 78 5f 72 65 63  6f 72 64 25 29 2a 31 30  |/max_record%)*10|
0000bda0  30 29 0d 38 86 11 e3 20  73 75 62 25 3d 31 20 b8  |0).8... sub%=1 .|
0000bdb0  20 31 30 0d 38 90 61 e7  20 63 61 73 65 73 65 6e  | 10.8.a. casesen|
0000bdc0  73 65 24 3d 22 4e 6f 22  20 8c 20 74 61 72 67 65  |se$="No" . targe|
0000bdd0  74 24 3d a4 75 70 70 65  72 28 63 61 74 65 67 6f  |t$=.upper(catego|
0000bde0  72 79 24 28 6e 75 6d 62  65 72 25 2c 73 75 62 25  |ry$(number%,sub%|
0000bdf0  29 29 20 8b 20 74 61 72  67 65 74 24 3d 63 61 74  |)) . target$=cat|
0000be00  65 67 6f 72 79 24 28 6e  75 6d 62 65 72 25 2c 73  |egory$(number%,s|
0000be10  75 62 25 29 0d 38 9a 31  e3 20 62 25 3d 31 20 b8  |ub%).8.1. b%=1 .|
0000be20  20 a9 20 74 61 72 67 65  74 24 3a 61 24 3d c1 74  | . target$:a$=.t|
0000be30  61 72 67 65 74 24 2c 62  25 2c a9 28 53 65 61 72  |arget$,b%,.(Sear|
0000be40  63 68 24 29 29 0d 38 a4  3c e7 20 53 65 61 72 63  |ch$)).8.<. Searc|
0000be50  68 24 3d 61 24 20 8c 20  f2 61 64 64 5f 74 6f 5f  |h$=a$ . .add_to_|
0000be60  66 6f 75 6e 64 28 6e 75  6d 62 65 72 25 2c 73 75  |found(number%,su|
0000be70  62 5f 6e 75 6d 62 65 72  25 29 3a e5 20 8d 74 78  |b_number%):. .tx|
0000be80  78 0d 38 ae 08 ed 20 62  25 0d 38 b8 0a ed 20 73  |x.8... b%.8... s|
0000be90  75 62 25 0d 38 c2 2c e7  20 69 63 6f 6e 5f 75 73  |ub%.8.,. icon_us|
0000bea0  65 64 25 3d b9 20 8c 20  66 6f 75 6e 64 69 63 6f  |ed%=. . foundico|
0000beb0  6e 25 2b 3d 31 3a 66 6f  75 6e 64 25 2b 3d 31 0d  |n%+=1:found%+=1.|
0000bec0  38 cc 0d ed 20 6e 75 6d  62 65 72 25 0d 38 d6 05  |8... number%.8..|
0000bed0  cb 0d 38 e0 19 f2 63 6c  6f 73 65 28 76 69 64 65  |..8...close(vide|
0000bee0  6f 5f 73 65 61 72 63 68  25 29 0d 38 ea 24 f2 75  |o_search%).8.$.u|
0000bef0  70 64 61 74 65 5f 69 63  6f 6e 28 76 69 64 65 6f  |pdate_icon(video|
0000bf00  5f 73 65 61 72 63 68 25  2c 31 2c 22 22 29 0d 38  |_search%,1,"").8|
0000bf10  f4 43 f2 74 72 61 63 6b  73 5f 6d 6f 76 65 5f 63  |.C.tracks_move_c|
0000bf20  61 72 65 74 28 76 69 64  65 6f 5f 74 72 61 63 6b  |aret(video_track|
0000bf30  73 25 2c 31 29 3a f2 6d  6f 76 65 5f 63 61 72 65  |s%,1):.move_care|
0000bf40  74 28 76 69 64 65 6f 5f  69 6e 64 65 78 25 2c 35  |t(video_index%,5|
0000bf50  29 0d 38 fe 1c c8 99 20  22 57 69 6d 70 5f 43 72  |).8.... "Wimp_Cr|
0000bf60  65 61 74 65 4d 65 6e 75  22 2c 2c 2d 31 0d 39 08  |eateMenu",,-1.9.|
0000bf70  16 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
0000bf80  66 66 22 0d 39 12 11 e7  20 66 6f 75 6e 64 25 3c  |ff".9... found%<|
0000bf90  3e 30 20 8c 0d 39 1c 17  f2 6f 70 65 6e 28 76 69  |>0 ..9...open(vi|
0000bfa0  64 65 6f 5f 66 6f 75 6e  64 25 29 0d 39 26 05 cc  |deo_found%).9&..|
0000bfb0  0d 39 30 31 85 20 31 2c  22 27 22 2b 73 65 61 72  |.901. 1,"'"+sear|
0000bfc0  63 68 73 74 72 69 6e 67  24 2b 22 27 20 63 6f 75  |chstring$+"' cou|
0000bfd0  6c 64 20 6e 6f 74 20 62  65 20 66 6f 75 6e 64 2e  |ld not be found.|
0000bfe0  22 0d 39 3a 05 cd 0d 39  44 9c e7 20 66 6f 75 6e  |".9:...9D.. foun|
0000bff0  64 25 3e 35 30 20 8c 20  85 20 31 2c 22 27 22 2b  |d%>50 . . 1,"'"+|
0000c000  73 65 61 72 63 68 73 74  72 69 6e 67 24 2b 22 27  |searchstring$+"'|
0000c010  20 68 61 73 20 62 65 65  6e 20 66 6f 75 6e 64 20  | has been found |
0000c020  69 6e 20 22 2b c3 28 66  6f 75 6e 64 25 29 2b 22  |in "+.(found%)+"|
0000c030  20 72 65 63 6f 72 64 73  2e 20 54 68 65 20 66 69  | records. The fi|
0000c040  72 73 74 20 35 30 20 6f  63 63 75 72 61 6e 63 65  |rst 50 occurance|
0000c050  73 20 61 72 65 20 73 65  6c 65 63 74 61 62 6c 65  |s are selectable|
0000c060  20 66 72 6f 6d 20 74 68  65 20 27 52 65 63 6f 72  | from the 'Recor|
0000c070  64 73 20 46 6f 75 6e 64  27 20 77 69 6e 64 6f 77  |ds Found' window|
0000c080  2e 22 0d 39 4e 05 e1 0d  39 58 05 3a 0d 39 62 14  |.".9N...9X.:.9b.|
0000c090  dd a4 75 70 70 65 72 28  73 74 72 69 6e 67 24 29  |..upper(string$)|
0000c0a0  0d 39 6c 0b ea 20 6c 6f  6f 70 25 0d 39 76 14 e7  |.9l.. loop%.9v..|
0000c0b0  20 a9 28 73 74 72 69 6e  67 24 29 3e 30 20 8c 0d  | .(string$)>0 ..|
0000c0c0  39 80 1c e3 20 6c 6f 6f  70 25 20 3d 20 31 20 b8  |9... loop% = 1 .|
0000c0d0  20 a9 28 73 74 72 69 6e  67 24 29 0d 39 8a 37 e7  | .(string$).9.7.|
0000c0e0  20 c1 73 74 72 69 6e 67  24 2c 6c 6f 6f 70 25 2c  | .string$,loop%,|
0000c0f0  31 29 3e 3d 22 61 22 20  80 20 c1 73 74 72 69 6e  |1)>="a" . .strin|
0000c100  67 24 2c 6c 6f 6f 70 25  2c 31 29 3c 3d 22 7a 22  |g$,loop%,1)<="z"|
0000c110  20 8c 0d 39 94 35 c1 73  74 72 69 6e 67 24 2c 6c  | ..9.5.string$,l|
0000c120  6f 6f 70 25 2c 31 29 20  3d 20 bd 28 97 28 c1 73  |oop%,1) = .(.(.s|
0000c130  74 72 69 6e 67 24 2c 6c  6f 6f 70 25 2c 31 29 29  |tring$,loop%,1))|
0000c140  20 80 20 26 44 46 29 0d  39 9e 05 cd 0d 39 a8 05  | . &DF).9....9..|
0000c150  ed 0d 39 b2 05 cd 0d 39  bc 0c 3d 73 74 72 69 6e  |..9....9..=strin|
0000c160  67 24 0d 39 c6 05 3a 0d  39 d0 2a dd f2 61 64 64  |g$.9..:.9.*..add|
0000c170  5f 74 6f 5f 66 6f 75 6e  64 28 66 6f 75 6e 64 72  |_to_found(foundr|
0000c180  65 63 6f 72 64 25 2c 66  6f 75 6e 64 73 75 62 25  |ecord%,foundsub%|
0000c190  29 0d 39 da 61 e7 20 66  6f 75 6e 64 69 63 6f 6e  |).9.a. foundicon|
0000c1a0  25 3c 35 32 20 8c 20 f2  75 70 64 61 74 65 5f 69  |%<52 . .update_i|
0000c1b0  63 6f 6e 28 76 69 64 65  6f 5f 66 6f 75 6e 64 25  |con(video_found%|
0000c1c0  2c 66 6f 75 6e 64 69 63  6f 6e 25 2c c3 28 66 6f  |,foundicon%,.(fo|
0000c1d0  75 6e 64 72 65 63 6f 72  64 25 29 2b 22 20 28 22  |undrecord%)+" ("|
0000c1e0  2b c3 28 66 6f 75 6e 64  73 75 62 25 29 2b 22 29  |+.(foundsub%)+")|
0000c1f0  22 29 0d 39 e4 1f 73 75  62 5f 6e 75 6d 62 65 72  |").9..sub_number|
0000c200  25 2b 3d 31 3a 69 63 6f  6e 5f 75 73 65 64 25 3d  |%+=1:icon_used%=|
0000c210  b9 0d 39 ee 05 e1 0d 39  f8 05 3a 0d 3a 02 0f dd  |..9....9..:.:...|
0000c220  f2 63 6c 6f 73 65 5f 61  6c 6c 0d 3a 0c 2c f2 63  |.close_all.:.,.c|
0000c230  6c 6f 73 65 28 76 69 64  65 6f 5f 77 61 69 74 25  |lose(video_wait%|
0000c240  29 3a f2 63 6c 6f 73 65  28 76 69 64 65 6f 5f 70  |):.close(video_p|
0000c250  72 69 6e 74 25 29 0d 3a  16 2e f2 63 6c 6f 73 65  |rint%).:...close|
0000c260  28 76 69 64 65 6f 5f 73  65 61 72 63 68 25 29 3a  |(video_search%):|
0000c270  f2 63 6c 6f 73 65 28 76  69 64 65 6f 5f 66 6f 75  |.close(video_fou|
0000c280  6e 64 25 29 0d 3a 20 30  f2 63 6c 6f 73 65 28 76  |nd%).: 0.close(v|
0000c290  69 64 65 6f 5f 71 75 69  74 25 29 3a c8 99 20 22  |ideo_quit%):.. "|
0000c2a0  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
0000c2b0  2c 2c 2d 31 0d 3a 2a 2f  f2 63 6c 6f 73 65 28 76  |,,-1.:*/.close(v|
0000c2c0  69 64 65 6f 5f 63 6c 65  61 72 25 29 3a f2 63 6c  |ideo_clear%):.cl|
0000c2d0  6f 73 65 28 76 69 64 65  6f 5f 69 6e 66 6f 62 6f  |ose(video_infobo|
0000c2e0  78 25 29 0d 3a 34 32 f2  63 6c 6f 73 65 28 76 69  |x%).:42.close(vi|
0000c2f0  64 65 6f 5f 73 61 76 65  62 6f 78 25 29 3a f2 63  |deo_savebox%):.c|
0000c300  6c 6f 73 65 28 76 69 64  65 6f 5f 73 61 76 65 62  |lose(video_saveb|
0000c310  6f 78 32 25 29 0d 3a 3e  35 f2 63 6c 6f 73 65 28  |ox2%).:>5.close(|
0000c320  76 69 64 65 6f 5f 6d 61  69 6e 6f 70 74 69 6f 6e  |video_mainoption|
0000c330  73 25 29 3a f2 63 6c 6f  73 65 28 76 69 64 65 6f  |s%):.close(video|
0000c340  5f 6f 70 74 69 6f 6e 73  25 29 0d 3a 48 1f c8 99  |_options%).:H...|
0000c350  20 22 57 69 6d 70 45 78  74 5f 52 65 6c 65 61 73  | "WimpExt_Releas|
0000c360  65 50 6f 69 6e 74 65 72  22 0d 3a 52 05 e1 0d 3a  |ePointer".:R...:|
0000c370  5c 05 3a 0d 3a 66 14 dd  f2 72 65 61 64 5f 74 72  |\.:.:f...read_tr|
0000c380  61 63 6b 6c 69 73 74 0d  3a 70 2e 74 72 61 63 6b  |acklist.:p.track|
0000c390  5f 6e 75 6d 62 65 72 25  3d bb 28 a4 69 6e 64 69  |_number%=.(.indi|
0000c3a0  72 65 63 74 28 76 69 64  65 6f 5f 69 6e 64 65 78  |rect(video_index|
0000c3b0  25 2c 35 29 29 0d 3a 7a  0e e3 20 49 25 3d 30 20  |%,5)).:z.. I%=0 |
0000c3c0  b8 20 39 0d 3a 84 3f 6e  61 6d 65 24 28 74 72 61  |. 9.:.?name$(tra|
0000c3d0  63 6b 5f 6e 75 6d 62 65  72 25 2c 49 25 2b 31 29  |ck_number%,I%+1)|
0000c3e0  3d a4 69 6e 64 69 72 65  63 74 28 76 69 64 65 6f  |=.indirect(video|
0000c3f0  5f 74 72 61 63 6b 73 25  2c 31 2b 28 49 25 2a 39  |_tracks%,1+(I%*9|
0000c400  29 29 0d 3a 8e 43 63 61  74 65 67 6f 72 79 24 28  |)).:.Ccategory$(|
0000c410  74 72 61 63 6b 5f 6e 75  6d 62 65 72 25 2c 49 25  |track_number%,I%|
0000c420  2b 31 29 3d a4 69 6e 64  69 72 65 63 74 28 76 69  |+1)=.indirect(vi|
0000c430  64 65 6f 5f 74 72 61 63  6b 73 25 2c 32 2b 28 49  |deo_tracks%,2+(I|
0000c440  25 2a 39 29 29 0d 3a 98  42 63 68 61 6e 6e 65 6c  |%*9)).:.Bchannel|
0000c450  24 28 74 72 61 63 6b 5f  6e 75 6d 62 65 72 25 2c  |$(track_number%,|
0000c460  49 25 2b 31 29 3d a4 69  6e 64 69 72 65 63 74 28  |I%+1)=.indirect(|
0000c470  76 69 64 65 6f 5f 74 72  61 63 6b 73 25 2c 33 2b  |video_tracks%,3+|
0000c480  28 49 25 2a 39 29 29 0d  3a a2 3f 64 61 74 65 24  |(I%*9)).:.?date$|
0000c490  28 74 72 61 63 6b 5f 6e  75 6d 62 65 72 25 2c 49  |(track_number%,I|
0000c4a0  25 2b 31 29 3d a4 69 6e  64 69 72 65 63 74 28 76  |%+1)=.indirect(v|
0000c4b0  69 64 65 6f 5f 74 72 61  63 6b 73 25 2c 34 2b 28  |ideo_tracks%,4+(|
0000c4c0  49 25 2a 39 29 29 0d 3a  ac 40 61 75 64 69 6f 24  |I%*9)).:.@audio$|
0000c4d0  28 74 72 61 63 6b 5f 6e  75 6d 62 65 72 25 2c 49  |(track_number%,I|
0000c4e0  25 2b 31 29 3d a4 69 6e  64 69 72 65 63 74 28 76  |%+1)=.indirect(v|
0000c4f0  69 64 65 6f 5f 74 72 61  63 6b 73 25 2c 35 2b 28  |ideo_tracks%,5+(|
0000c500  49 25 2a 39 29 29 0d 3a  b6 41 6c 65 6e 67 74 68  |I%*9)).:.Alength|
0000c510  24 28 74 72 61 63 6b 5f  6e 75 6d 62 65 72 25 2c  |$(track_number%,|
0000c520  49 25 2b 31 29 3d a4 69  6e 64 69 72 65 63 74 28  |I%+1)=.indirect(|
0000c530  76 69 64 65 6f 5f 74 72  61 63 6b 73 25 2c 36 2b  |video_tracks%,6+|
0000c540  28 49 25 2a 39 29 29 0d  3a c0 40 73 74 61 72 74  |(I%*9)).:.@start|
0000c550  24 28 74 72 61 63 6b 5f  6e 75 6d 62 65 72 25 2c  |$(track_number%,|
0000c560  49 25 2b 31 29 3d a4 69  6e 64 69 72 65 63 74 28  |I%+1)=.indirect(|
0000c570  76 69 64 65 6f 5f 74 72  61 63 6b 73 25 2c 37 2b  |video_tracks%,7+|
0000c580  28 49 25 2a 39 29 29 0d  3a ca 3f 73 74 6f 70 24  |(I%*9)).:.?stop$|
0000c590  28 74 72 61 63 6b 5f 6e  75 6d 62 65 72 25 2c 49  |(track_number%,I|
0000c5a0  25 2b 31 29 3d a4 69 6e  64 69 72 65 63 74 28 76  |%+1)=.indirect(v|
0000c5b0  69 64 65 6f 5f 74 72 61  63 6b 73 25 2c 38 2b 28  |ideo_tracks%,8+(|
0000c5c0  49 25 2a 39 29 29 0d 3a  d4 40 73 70 65 65 64 24  |I%*9)).:.@speed$|
0000c5d0  28 74 72 61 63 6b 5f 6e  75 6d 62 65 72 25 2c 49  |(track_number%,I|
0000c5e0  25 2b 31 29 3d a4 69 6e  64 69 72 65 63 74 28 76  |%+1)=.indirect(v|
0000c5f0  69 64 65 6f 5f 74 72 61  63 6b 73 25 2c 39 2b 28  |ideo_tracks%,9+(|
0000c600  49 25 2a 39 29 29 0d 3a  de 08 ed 20 49 25 0d 3a  |I%*9)).:... I%.:|
0000c610  e8 05 e1 0d 3a f2 05 3a  0d 3a fc 13 dd f2 75 70  |....:..:.:....up|
0000c620  64 61 74 65 5f 74 72 61  63 6b 73 0d 3b 06 15 c8  |date_tracks.;...|
0000c630  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |. "Hourglass_On"|
0000c640  0d 3b 10 2e 74 72 61 63  6b 5f 6e 75 6d 62 65 72  |.;..track_number|
0000c650  25 3d bb 28 a4 69 6e 64  69 72 65 63 74 28 76 69  |%=.(.indirect(vi|
0000c660  64 65 6f 5f 69 6e 64 65  78 25 2c 35 29 29 0d 3b  |deo_index%,5)).;|
0000c670  1a 0e e3 20 49 25 3d 30  20 b8 20 39 0d 3b 24 42  |... I%=0 . 9.;$B|
0000c680  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 76 69 64  |.update_icon(vid|
0000c690  65 6f 5f 74 72 61 63 6b  73 25 2c 31 2b 28 49 25  |eo_tracks%,1+(I%|
0000c6a0  2a 39 29 2c 6e 61 6d 65  24 28 74 72 61 63 6b 5f  |*9),name$(track_|
0000c6b0  6e 75 6d 62 65 72 25 2c  49 25 2b 31 29 29 0d 3b  |number%,I%+1)).;|
0000c6c0  2e 46 f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 76  |.F.update_icon(v|
0000c6d0  69 64 65 6f 5f 74 72 61  63 6b 73 25 2c 32 2b 28  |ideo_tracks%,2+(|
0000c6e0  49 25 2a 39 29 2c 63 61  74 65 67 6f 72 79 24 28  |I%*9),category$(|
0000c6f0  74 72 61 63 6b 5f 6e 75  6d 62 65 72 25 2c 49 25  |track_number%,I%|
0000c700  2b 31 29 29 0d 3b 38 45  f2 75 70 64 61 74 65 5f  |+1)).;8E.update_|
0000c710  69 63 6f 6e 28 76 69 64  65 6f 5f 74 72 61 63 6b  |icon(video_track|
0000c720  73 25 2c 33 2b 28 49 25  2a 39 29 2c 63 68 61 6e  |s%,3+(I%*9),chan|
0000c730  6e 65 6c 24 28 74 72 61  63 6b 5f 6e 75 6d 62 65  |nel$(track_numbe|
0000c740  72 25 2c 49 25 2b 31 29  29 0d 3b 42 42 f2 75 70  |r%,I%+1)).;BB.up|
0000c750  64 61 74 65 5f 69 63 6f  6e 28 76 69 64 65 6f 5f  |date_icon(video_|
0000c760  74 72 61 63 6b 73 25 2c  34 2b 28 49 25 2a 39 29  |tracks%,4+(I%*9)|
0000c770  2c 64 61 74 65 24 28 74  72 61 63 6b 5f 6e 75 6d  |,date$(track_num|
0000c780  62 65 72 25 2c 49 25 2b  31 29 29 0d 3b 4c 43 f2  |ber%,I%+1)).;LC.|
0000c790  75 70 64 61 74 65 5f 69  63 6f 6e 28 76 69 64 65  |update_icon(vide|
0000c7a0  6f 5f 74 72 61 63 6b 73  25 2c 35 2b 28 49 25 2a  |o_tracks%,5+(I%*|
0000c7b0  39 29 2c 61 75 64 69 6f  24 28 74 72 61 63 6b 5f  |9),audio$(track_|
0000c7c0  6e 75 6d 62 65 72 25 2c  49 25 2b 31 29 29 0d 3b  |number%,I%+1)).;|
0000c7d0  56 44 f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 76  |VD.update_icon(v|
0000c7e0  69 64 65 6f 5f 74 72 61  63 6b 73 25 2c 36 2b 28  |ideo_tracks%,6+(|
0000c7f0  49 25 2a 39 29 2c 6c 65  6e 67 74 68 24 28 74 72  |I%*9),length$(tr|
0000c800  61 63 6b 5f 6e 75 6d 62  65 72 25 2c 49 25 2b 31  |ack_number%,I%+1|
0000c810  29 29 0d 3b 60 43 f2 75  70 64 61 74 65 5f 69 63  |)).;`C.update_ic|
0000c820  6f 6e 28 76 69 64 65 6f  5f 74 72 61 63 6b 73 25  |on(video_tracks%|
0000c830  2c 37 2b 28 49 25 2a 39  29 2c 73 74 61 72 74 24  |,7+(I%*9),start$|
0000c840  28 74 72 61 63 6b 5f 6e  75 6d 62 65 72 25 2c 49  |(track_number%,I|
0000c850  25 2b 31 29 29 0d 3b 6a  42 f2 75 70 64 61 74 65  |%+1)).;jB.update|
0000c860  5f 69 63 6f 6e 28 76 69  64 65 6f 5f 74 72 61 63  |_icon(video_trac|
0000c870  6b 73 25 2c 38 2b 28 49  25 2a 39 29 2c 73 74 6f  |ks%,8+(I%*9),sto|
0000c880  70 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |p$(track_number%|
0000c890  2c 49 25 2b 31 29 29 0d  3b 74 43 f2 75 70 64 61  |,I%+1)).;tC.upda|
0000c8a0  74 65 5f 69 63 6f 6e 28  76 69 64 65 6f 5f 74 72  |te_icon(video_tr|
0000c8b0  61 63 6b 73 25 2c 39 2b  28 49 25 2a 39 29 2c 73  |acks%,9+(I%*9),s|
0000c8c0  70 65 65 64 24 28 74 72  61 63 6b 5f 6e 75 6d 62  |peed$(track_numb|
0000c8d0  65 72 25 2c 49 25 2b 31  29 29 0d 3b 7e 08 ed 20  |er%,I%+1)).;~.. |
0000c8e0  49 25 0d 3b 88 16 c8 99  20 22 48 6f 75 72 67 6c  |I%.;.... "Hourgl|
0000c8f0  61 73 73 5f 4f 66 66 22  0d 3b 92 05 e1 0d 3b 9c  |ass_Off".;....;.|
0000c900  05 3a 0d 3b a6 3b dd f2  75 70 64 61 74 65 5f 69  |.:.;.;..update_i|
0000c910  63 6f 6e 28 75 70 64 61  74 65 5f 77 69 6e 64 6f  |con(update_windo|
0000c920  77 25 2c 75 70 64 61 74  65 5f 69 63 6f 6e 25 2c  |w%,update_icon%,|
0000c930  75 70 64 61 74 65 5f 74  65 78 74 24 29 0d 3b b0  |update_text$).;.|
0000c940  28 21 71 25 3d 75 70 64  61 74 65 5f 77 69 6e 64  |(!q%=update_wind|
0000c950  6f 77 25 3a 71 25 21 34  3d 75 70 64 61 74 65 5f  |ow%:q%!4=update_|
0000c960  69 63 6f 6e 25 0d 3b ba  1e c8 99 20 22 57 69 6d  |icon%.;.... "Wim|
0000c970  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
0000c980  2c 71 25 0d 3b c4 31 24  28 71 25 21 32 38 29 3d  |,q%.;.1$(q%!28)=|
0000c990  75 70 64 61 74 65 5f 74  65 78 74 24 3a 71 25 21  |update_text$:q%!|
0000c9a0  33 36 3d a9 28 75 70 64  61 74 65 5f 74 65 78 74  |36=.(update_text|
0000c9b0  24 29 2b 31 0d 3b ce 12  71 25 21 38 3d 30 3a 71  |$)+1.;..q%!8=0:q|
0000c9c0  25 21 31 32 3d 30 0d 3b  d8 1e c8 99 20 22 57 69  |%!12=0.;.... "Wi|
0000c9d0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
0000c9e0  2c 2c 71 25 0d 3b e2 05  e1 0d 3b ec 05 3a 0d 3b  |,,q%.;....;..:.;|
0000c9f0  f6 12 dd f2 63 6c 65 61  72 5f 73 69 6e 67 6c 65  |....clear_single|
0000ca00  0d 3c 00 0d e3 20 58 3d  36 20 b8 20 38 0d 3c 0a  |.<... X=6 . 8.<.|
0000ca10  23 f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 76 69  |#.update_icon(vi|
0000ca20  64 65 6f 5f 69 6e 64 65  78 25 2c 58 2c 22 22 29  |deo_index%,X,"")|
0000ca30  0d 3c 14 05 ed 0d 3c 1e  0e e3 20 58 3d 30 20 b8  |.<....<... X=0 .|
0000ca40  20 39 32 0d 3c 28 24 f2  75 70 64 61 74 65 5f 69  | 92.<($.update_i|
0000ca50  63 6f 6e 28 76 69 64 65  6f 5f 74 72 61 63 6b 73  |con(video_tracks|
0000ca60  25 2c 58 2c 22 22 29 0d  3c 32 05 ed 0d 3c 3c 19  |%,X,"").<2...<<.|
0000ca70  f2 72 65 61 64 3a f2 72  65 61 64 5f 74 72 61 63  |.read:.read_trac|
0000ca80  6b 6c 69 73 74 0d 3c 46  05 e1 0d 3c 50 05 3a 0d  |klist.<F...<P.:.|
0000ca90  3c 5a 15 dd f2 70 72 69  6e 74 65 72 5f 64 72 69  |<Z...printer_dri|
0000caa0  76 65 72 73 0d 3c 64 14  70 72 69 6e 74 77 68 61  |vers.<d.printwha|
0000cab0  74 24 3d 22 56 69 64 22  0d 3c 6e 71 f2 75 70 64  |t$="Vid".<nq.upd|
0000cac0  61 74 65 5f 69 63 6f 6e  28 76 69 64 65 6f 5f 77  |ate_icon(video_w|
0000cad0  61 69 74 25 2c 30 2c 22  50 72 69 6e 74 69 6e 67  |ait%,0,"Printing|
0000cae0  20 49 6e 20 50 72 6f 67  72 65 73 73 20 50 6c 65  | In Progress Ple|
0000caf0  61 73 65 20 57 61 69 74  22 29 3a f2 6f 70 65 6e  |ase Wait"):.open|
0000cb00  28 76 69 64 65 6f 5f 77  61 69 74 25 29 3a f2 72  |(video_wait%):.r|
0000cb10  65 64 72 61 77 5f 77 69  6e 64 6f 77 28 76 69 64  |edraw_window(vid|
0000cb20  65 6f 5f 77 61 69 74 25  29 0d 3c 78 28 63 6f 70  |eo_wait%).<x(cop|
0000cb30  69 65 73 25 3d bb 28 a4  69 6e 64 69 72 65 63 74  |ies%=.(.indirect|
0000cb40  28 76 69 64 65 6f 5f 70  72 69 6e 74 25 2c 36 29  |(video_print%,6)|
0000cb50  29 0d 3c 82 75 e7 20 63  6f 70 69 65 73 25 3d 30  |).<.u. copies%=0|
0000cb60  20 8c 20 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  | . .. "Hourglass|
0000cb70  5f 4f 66 66 22 3a c8 99  20 22 57 69 6d 70 5f 43  |_Off":.. "Wimp_C|
0000cb80  72 65 61 74 65 4d 65 6e  75 22 2c 2c 2d 31 3a 85  |reateMenu",,-1:.|
0000cb90  20 31 2c 22 53 65 74 20  6e 75 6d 62 65 72 20 6f  | 1,"Set number o|
0000cba0  66 20 63 6f 70 69 65 73  20 74 6f 20 61 20 76 61  |f copies to a va|
0000cbb0  6c 75 65 20 67 72 65 61  74 65 72 20 74 68 61 6e  |lue greater than|
0000cbc0  20 30 2e 22 3a e1 0d 3c  8c 2d de 20 74 72 61 6e  | 0.":..<.-. tran|
0000cbd0  73 25 20 31 36 2c 72 65  63 74 25 20 31 36 2c 70  |s% 16,rect% 16,p|
0000cbe0  6c 6f 74 61 74 25 20 38  2c 72 65 63 74 69 6e 25  |lotat% 8,rectin%|
0000cbf0  20 31 36 0d 3c 96 43 ff  20 28 22 52 4d 45 6e 73  | 16.<.C. ("RMEns|
0000cc00  75 72 65 20 50 44 72 69  76 65 72 20 30 20 45 52  |ure PDriver 0 ER|
0000cc10  52 4f 52 20 32 35 35 20  4e 6f 20 70 72 69 6e 74  |ROR 255 No print|
0000cc20  65 72 20 64 72 69 76 65  72 20 69 6e 73 74 61 6c  |er driver instal|
0000cc30  6c 65 64 2e 22 29 0d 3c  a0 15 c8 99 20 22 48 6f  |led.").<.... "Ho|
0000cc40  75 72 67 6c 61 73 73 5f  4f 6e 22 0d 3c aa 0a 63  |urglass_On".<..c|
0000cc50  6f 70 79 3d 30 0d 3c b4  05 f5 0d 3c be 15 70 66  |opy=0.<....<..pf|
0000cc60  25 3d ae 28 22 70 72 69  6e 74 65 72 3a 22 29 0d  |%=.("printer:").|
0000cc70  3c c8 29 e7 20 70 66 25  3d 30 20 8c 20 85 20 31  |<.). pf%=0 . . 1|
0000cc80  2c 22 50 72 69 6e 74 65  72 20 6e 6f 74 20 61 76  |,"Printer not av|
0000cc90  61 69 6c 61 62 6c 65 22  0d 3c d2 07 ea 20 85 0d  |ailable".<... ..|
0000cca0  3c dc 25 ee 20 85 20 ea  3a f7 20 85 3a d9 23 70  |<.%. . .:. .:.#p|
0000ccb0  66 25 3a f2 63 6c 6f 73  65 5f 61 6c 6c 3a 85 20  |f%:.close_all:. |
0000ccc0  9f 2c f6 24 0d 3c e6 39  c8 99 20 22 50 44 72 69  |.,.$.<.9.. "PDri|
0000ccd0  76 65 72 5f 53 65 6c 65  63 74 4a 6f 62 22 2c 70  |ver_SelectJob",p|
0000cce0  66 25 2c 22 56 69 64 65  6f 20 49 6e 64 65 78 20  |f%,"Video Index |
0000ccf0  50 72 69 6e 74 22 20 b8  20 6f 6c 64 25 0d 3c f0  |Print" . old%.<.|
0000cd00  07 ea 20 85 0d 3c fa 55  ee 20 85 20 ea 3a f7 20  |.. ..<.U. . .:. |
0000cd10  85 3a f2 63 6c 6f 73 65  5f 61 6c 6c 3a c8 99 20  |.:.close_all:.. |
0000cd20  22 50 44 72 69 76 65 72  5f 41 62 6f 72 74 4a 6f  |"PDriver_AbortJo|
0000cd30  62 22 2c 70 66 25 3a c8  99 20 22 50 44 72 69 76  |b",pf%:.. "PDriv|
0000cd40  65 72 5f 53 65 6c 65 63  74 4a 6f 62 22 2c 6f 6c  |er_SelectJob",ol|
0000cd50  64 25 3a 85 20 9f 2c f6  24 0d 3d 04 17 72 65 63  |d%:. .,.$.=..rec|
0000cd60  74 25 21 30 3d 30 3a 72  65 63 74 25 21 34 3d 30  |t%!0=0:rect%!4=0|
0000cd70  0d 3d 0e 1d 72 65 63 74  25 21 38 3d 31 30 30 30  |.=..rect%!8=1000|
0000cd80  3a 72 65 63 74 25 21 31  32 3d 38 35 30 0d 3d 18  |:rect%!12=850.=.|
0000cd90  21 74 72 61 6e 73 25 21  30 3d 31 3c 3c 31 36 3a  |!trans%!0=1<<16:|
0000cda0  74 72 61 6e 73 25 21 34  3d 30 3c 3c 31 36 0d 3d  |trans%!4=0<<16.=|
0000cdb0  22 22 74 72 61 6e 73 25  21 38 3d 30 3c 3c 31 36  |""trans%!8=0<<16|
0000cdc0  3a 74 72 61 6e 73 25 21  31 32 3d 31 3c 3c 31 36  |:trans%!12=1<<16|
0000cdd0  0d 3d 2c 27 70 6c 6f 74  61 74 25 21 30 3d 31 2a  |.=,'plotat%!0=1*|
0000cde0  37 32 30 30 30 3a 70 6c  6f 74 61 74 25 21 34 3d  |72000:plotat%!4=|
0000cdf0  39 2a 37 32 30 30 30 0d  3d 36 3f c8 99 20 22 50  |9*72000.=6?.. "P|
0000ce00  44 72 69 76 65 72 5f 47  69 76 65 52 65 63 74 61  |Driver_GiveRecta|
0000ce10  6e 67 6c 65 22 2c 30 2c  72 65 63 74 25 2c 74 72  |ngle",0,rect%,tr|
0000ce20  61 6e 73 25 2c 70 6c 6f  74 61 74 25 2c 26 46 46  |ans%,plotat%,&FF|
0000ce30  46 46 46 46 30 30 0d 3d  40 2f c8 99 20 22 50 44  |FFFF00.=@/.. "PD|
0000ce40  72 69 76 65 72 5f 44 72  61 77 50 61 67 65 22 2c  |river_DrawPage",|
0000ce50  31 2c 72 65 63 74 69 6e  25 2c 30 2c 30 20 b8 20  |1,rectin%,0,0 . |
0000ce60  6d 6f 72 65 25 0d 3d 4a  0c c8 95 20 6d 6f 72 65  |more%.=J... more|
0000ce70  25 0d 3d 54 80 e7 20 70  72 69 6e 74 77 68 61 74  |%.=T.. printwhat|
0000ce80  24 3d 22 41 6c 6c 22 20  8c 20 85 20 31 2c 22 55  |$="All" . . 1,"U|
0000ce90  6e 61 62 6c 65 20 74 6f  20 70 72 69 6e 74 20 27  |nable to print '|
0000cea0  46 75 6c 6c 20 44 65 74  61 69 6c 73 27 20 76 69  |Full Details' vi|
0000ceb0  61 20 52 49 53 43 20 4f  53 20 50 72 69 6e 74 65  |a RISC OS Printe|
0000cec0  72 20 44 72 69 76 65 72  73 2c 20 53 6f 72 72 79  |r Drivers, Sorry|
0000ced0  21 21 20 20 55 73 65 20  74 68 65 20 27 53 61 76  |!!  Use the 'Sav|
0000cee0  65 20 54 65 78 74 27 20  6f 70 74 69 6f 6e 21 21  |e Text' option!!|
0000cef0  22 0d 3d 5e 7f e7 20 70  72 69 6e 74 77 68 61 74  |".=^.. printwhat|
0000cf00  24 3d 22 41 54 22 20 8c  20 85 20 31 2c 22 55 6e  |$="AT" . . 1,"Un|
0000cf10  61 62 6c 65 20 74 6f 20  70 72 69 6e 74 20 27 46  |able to print 'F|
0000cf20  75 6c 6c 20 44 65 74 61  69 6c 73 27 20 76 69 61  |ull Details' via|
0000cf30  20 52 49 53 43 20 4f 53  20 50 72 69 6e 74 65 72  | RISC OS Printer|
0000cf40  20 44 72 69 76 65 72 73  2c 20 53 6f 72 72 79 21  | Drivers, Sorry!|
0000cf50  21 20 20 55 73 65 20 74  68 65 20 27 53 61 76 65  |!  Use the 'Save|
0000cf60  20 54 65 78 74 27 20 6f  70 74 69 6f 6e 21 21 22  | Text' option!!"|
0000cf70  0d 3d 68 18 e7 20 70 72  69 6e 74 77 68 61 74 24  |.=h.. printwhat$|
0000cf80  3d 22 56 69 64 22 20 8c  0d 3d 72 2f 69 6e 6c 61  |="Vid" ..=r/inla|
0000cf90  79 5f 6e 75 6d 62 65 72  25 3d bb 28 a4 69 6e 64  |y_number%=.(.ind|
0000cfa0  69 72 65 63 74 28 76 69  64 65 6f 5f 70 72 69 6e  |irect(video_prin|
0000cfb0  74 25 2c 31 32 29 29 0d  3d 7c 1e c8 99 20 22 43  |t%,12)).=|... "C|
0000cfc0  6f 6c 6f 75 72 54 72 61  6e 73 5f 53 65 74 47 43  |olourTrans_SetGC|
0000cfd0  4f 4c 22 2c 30 0d 3d 86  12 c8 93 20 30 2c 30 2c  |OL",0.=.... 0,0,|
0000cfe0  35 34 37 2c 33 32 30 0d  3d 90 12 c8 93 20 30 2c  |547,320.=.... 0,|
0000cff0  30 2c 35 34 37 2c 32 36  30 0d 3d 9a 32 c8 99 20  |0,547,260.=.2.. |
0000d000  22 43 6f 6c 6f 75 72 54  72 61 6e 73 5f 53 65 74  |"ColourTrans_Set|
0000d010  46 6f 6e 74 43 6f 6c 6f  75 72 73 22 2c 2c 26 46  |FontColours",,&F|
0000d020  46 46 46 46 46 30 30 2c  30 2c 36 0d 3d a4 1f c8  |FFFFF00,0,6.=...|
0000d030  99 20 22 46 6f 6e 74 5f  53 65 74 46 6f 6e 74 22  |. "Font_SetFont"|
0000d040  2c 68 6f 6d 65 72 74 6f  6e 25 0d 3d ae 3b c8 99  |,homerton%.=.;..|
0000d050  20 22 46 6f 6e 74 5f 50  61 69 6e 74 22 2c 2c 22  | "Font_Paint",,"|
0000d060  4e 75 6d 62 65 72 3a 20  22 2b c3 28 69 6e 6c 61  |Number: "+.(inla|
0000d070  79 5f 6e 75 6d 62 65 72  25 29 2c 26 31 30 2c 32  |y_number%),&10,2|
0000d080  30 2c 32 39 35 0d 3d b8  42 c8 99 20 22 46 6f 6e  |0,295.=.B.. "Fon|
0000d090  74 5f 50 61 69 6e 74 22  2c 2c 22 46 6f 72 6d 61  |t_Paint",,"Forma|
0000d0a0  74 3a 20 22 2b 66 6f 72  6d 61 74 24 28 69 6e 6c  |t: "+format$(inl|
0000d0b0  61 79 5f 6e 75 6d 62 65  72 25 29 2c 26 31 30 2c  |ay_number%),&10,|
0000d0c0  33 30 30 2c 32 39 35 0d  3d c2 3d c8 99 20 22 46  |300,295.=.=.. "F|
0000d0d0  6f 6e 74 5f 50 61 69 6e  74 22 2c 2c 22 54 79 70  |ont_Paint",,"Typ|
0000d0e0  65 3a 20 22 2b 74 79 70  65 24 28 69 6e 6c 61 79  |e: "+type$(inlay|
0000d0f0  5f 6e 75 6d 62 65 72 25  29 2c 26 31 30 2c 32 30  |_number%),&10,20|
0000d100  2c 32 37 30 0d 3d cc 48  c8 99 20 22 46 6f 6e 74  |,270.=.H.. "Font|
0000d110  5f 50 61 69 6e 74 22 2c  2c 22 4c 65 6e 67 74 68  |_Paint",,"Length|
0000d120  3a 20 22 2b 76 69 64 65  6f 5f 6c 65 6e 67 74 68  |: "+video_length|
0000d130  24 28 69 6e 6c 61 79 5f  6e 75 6d 62 65 72 25 29  |$(inlay_number%)|
0000d140  2c 26 31 30 2c 33 30 30  2c 32 37 30 0d 3d d6 1d  |,&10,300,270.=..|
0000d150  c8 99 20 22 46 6f 6e 74  5f 53 65 74 46 6f 6e 74  |.. "Font_SetFont|
0000d160  22 2c 63 6f 72 70 75 73  25 0d 3d e0 0f e3 20 49  |",corpus%.=... I|
0000d170  25 3d 31 20 b8 20 31 30  0d 3d ea 80 c8 99 20 22  |%=1 . 10.=.... "|
0000d180  46 6f 6e 74 5f 50 61 69  6e 74 22 2c 2c 6e 61 6d  |Font_Paint",,nam|
0000d190  65 24 28 69 6e 6c 61 79  5f 6e 75 6d 62 65 72 25  |e$(inlay_number%|
0000d1a0  2c 49 25 29 2b 28 c4 32  36 2d a9 6e 61 6d 65 24  |,I%)+(.26-.name$|
0000d1b0  28 69 6e 6c 61 79 5f 6e  75 6d 62 65 72 25 2c 49  |(inlay_number%,I|
0000d1c0  25 29 2c 22 20 22 29 29  2b 73 74 61 72 74 24 28  |%)," "))+start$(|
0000d1d0  69 6e 6c 61 79 5f 6e 75  6d 62 65 72 25 2c 49 25  |inlay_number%,I%|
0000d1e0  29 2c 26 31 30 2c 32 30  2c 32 33 35 2d 28 28 49  |),&10,20,235-((I|
0000d1f0  25 2d 31 29 2a 32 35 29  0d 3d f4 08 ed 20 49 25  |%-1)*25).=... I%|
0000d200  0d 3d fe 2e c8 99 20 22  50 44 72 69 76 65 72 5f  |.=.... "PDriver_|
0000d210  47 65 74 52 65 63 74 61  6e 67 6c 65 22 2c 2c 72  |GetRectangle",,r|
0000d220  65 63 74 69 6e 25 20 b8  20 6d 6f 72 65 25 0d 3e  |ectin% . more%.>|
0000d230  08 05 cd 0d 3e 12 05 ce  0d 3e 1c 1b c8 99 20 22  |....>....>.... "|
0000d240  50 44 72 69 76 65 72 5f  45 6e 64 4a 6f 62 22 2c  |PDriver_EndJob",|
0000d250  70 66 25 0d 3e 26 07 f7  20 85 0d 3e 30 1f c8 99  |pf%.>&.. ..>0...|
0000d260  20 22 50 44 72 69 76 65  72 5f 53 65 6c 65 63 74  | "PDriver_Select|
0000d270  4a 6f 62 22 2c 6f 6c 64  25 0d 3e 3a 07 f7 20 85  |Job",old%.>:.. .|
0000d280  0d 3e 44 09 d9 23 70 66  25 0d 3e 4e 1a 63 6f 70  |.>D..#pf%.>N.cop|
0000d290  79 2b 3d 31 3a fd 20 63  6f 70 79 3d 63 6f 70 69  |y+=1:. copy=copi|
0000d2a0  65 73 25 0d 3e 58 16 c8  99 20 22 48 6f 75 72 67  |es%.>X... "Hourg|
0000d2b0  6c 61 73 73 5f 4f 66 66  22 0d 3e 62 2c f2 63 6c  |lass_Off".>b,.cl|
0000d2c0  6f 73 65 28 76 69 64 65  6f 5f 77 61 69 74 25 29  |ose(video_wait%)|
0000d2d0  3a f2 63 6c 6f 73 65 28  76 69 64 65 6f 5f 70 72  |:.close(video_pr|
0000d2e0  69 6e 74 25 29 0d 3e 6c  05 e1 0d 3e 76 05 3a 0d  |int%).>l...>v.:.|
0000d2f0  3e 80 12 dd f2 6c 6f 61  64 5f 6f 70 74 69 6f 6e  |>....load_option|
0000d300  73 0d 3e 8a 2d 63 68 6f  69 63 65 73 25 3d 8e 22  |s.>.-choices%=."|
0000d310  3c 56 69 64 65 6f 24 44  69 72 3e 2e 52 65 73 6f  |<Video$Dir>.Reso|
0000d320  75 72 63 65 73 2e 43 68  6f 69 63 65 73 22 0d 3e  |urces.Choices".>|
0000d330  94 13 e7 20 63 68 6f 69  63 65 73 25 3c 3e 30 20  |... choices%<>0 |
0000d340  8c 0d 3e 9e 1c e8 23 63  68 6f 69 63 65 73 25 2c  |..>...#choices%,|
0000d350  6f 75 74 6c 69 6e 65 66  6f 6e 74 73 25 0d 3e a8  |outlinefonts%.>.|
0000d360  1a e8 23 63 68 6f 69 63  65 73 25 2c 6d 61 78 5f  |..#choices%,max_|
0000d370  72 65 63 6f 72 64 25 0d  3e b2 1c e8 23 63 68 6f  |record%.>...#cho|
0000d380  69 63 65 73 25 2c 63 68  61 6e 6e 65 6c 6d 65 6e  |ices%,channelmen|
0000d390  75 31 24 0d 3e bc 1c e8  23 63 68 6f 69 63 65 73  |u1$.>...#choices|
0000d3a0  25 2c 63 68 61 6e 6e 65  6c 6d 65 6e 75 32 24 0d  |%,channelmenu2$.|
0000d3b0  3e c6 1c e8 23 63 68 6f  69 63 65 73 25 2c 63 68  |>...#choices%,ch|
0000d3c0  61 6e 6e 65 6c 6d 65 6e  75 33 24 0d 3e d0 1c e8  |annelmenu3$.>...|
0000d3d0  23 63 68 6f 69 63 65 73  25 2c 63 68 61 6e 6e 65  |#choices%,channe|
0000d3e0  6c 6d 65 6e 75 34 24 0d  3e da 1c e8 23 63 68 6f  |lmenu4$.>...#cho|
0000d3f0  69 63 65 73 25 2c 63 68  61 6e 6e 65 6c 6d 65 6e  |ices%,channelmen|
0000d400  75 35 24 0d 3e e4 1c e8  23 63 68 6f 69 63 65 73  |u5$.>...#choices|
0000d410  25 2c 63 68 61 6e 6e 65  6c 6d 65 6e 75 36 24 0d  |%,channelmenu6$.|
0000d420  3e ee 0e d9 23 63 68 6f  69 63 65 73 25 0d 3e f8  |>...#choices%.>.|
0000d430  05 cc 0d 3f 02 13 6f 75  74 6c 69 6e 65 66 6f 6e  |...?..outlinefon|
0000d440  74 73 25 3d 30 0d 3f 0c  13 6d 61 78 5f 72 65 63  |ts%=0.?..max_rec|
0000d450  6f 72 64 25 3d 32 35 30  0d 3f 16 33 63 68 61 6e  |ord%=250.?.3chan|
0000d460  6e 65 6c 6d 65 6e 75 31  24 3d 22 42 72 61 76 6f  |nelmenu1$="Bravo|
0000d470  22 3a 63 68 61 6e 6e 65  6c 6d 65 6e 75 32 24 3d  |":channelmenu2$=|
0000d480  22 44 69 73 63 6f 76 65  72 79 22 0d 3f 20 3c 63  |"Discovery".? <c|
0000d490  68 61 6e 6e 65 6c 6d 65  6e 75 33 24 3d 22 46 61  |hannelmenu3$="Fa|
0000d4a0  6d 69 6c 79 20 43 68 61  6e 2e 22 3a 63 68 61 6e  |mily Chan.":chan|
0000d4b0  6e 65 6c 6d 65 6e 75 34  24 3d 22 4e 69 63 6b 65  |nelmenu4$="Nicke|
0000d4c0  6c 6f 64 65 6f 6e 22 0d  3f 2a 31 63 68 61 6e 6e  |lodeon".?*1chann|
0000d4d0  65 6c 6d 65 6e 75 35 24  3d 22 55 4b 20 4c 69 76  |elmenu5$="UK Liv|
0000d4e0  69 6e 67 22 3a 63 68 61  6e 6e 65 6c 6d 65 6e 75  |ing":channelmenu|
0000d4f0  36 24 3d 22 56 48 49 22  0d 3f 34 05 cd 0d 3f 3e  |6$="VHI".?4...?>|
0000d500  29 e7 20 6f 75 74 6c 69  6e 65 66 6f 6e 74 73 25  |). outlinefonts%|
0000d510  3d 31 20 8c 20 f2 67 65  74 5f 77 69 6e 64 6f 77  |=1 . .get_window|
0000d520  5f 66 6f 6e 74 73 0d 3f  48 05 e1 0d 3f 52 05 3a  |_fonts.?H...?R.:|
0000d530  0d 3f 5c 12 dd f2 73 61  76 65 5f 6f 70 74 69 6f  |.?\...save_optio|
0000d540  6e 73 0d 3f 66 2d 63 68  6f 69 63 65 73 25 3d ae  |ns.?f-choices%=.|
0000d550  22 3c 56 69 64 65 6f 24  44 69 72 3e 2e 52 65 73  |"<Video$Dir>.Res|
0000d560  6f 75 72 63 65 73 2e 43  68 6f 69 63 65 73 22 0d  |ources.Choices".|
0000d570  3f 70 1c f1 23 63 68 6f  69 63 65 73 25 2c 6f 75  |?p..#choices%,ou|
0000d580  74 6c 69 6e 65 66 6f 6e  74 73 25 0d 3f 7a 1a f1  |tlinefonts%.?z..|
0000d590  23 63 68 6f 69 63 65 73  25 2c 6d 61 78 5f 72 65  |#choices%,max_re|
0000d5a0  63 6f 72 64 25 0d 3f 84  1c f1 23 63 68 6f 69 63  |cord%.?...#choic|
0000d5b0  65 73 25 2c 63 68 61 6e  6e 65 6c 6d 65 6e 75 31  |es%,channelmenu1|
0000d5c0  24 0d 3f 8e 1c f1 23 63  68 6f 69 63 65 73 25 2c  |$.?...#choices%,|
0000d5d0  63 68 61 6e 6e 65 6c 6d  65 6e 75 32 24 0d 3f 98  |channelmenu2$.?.|
0000d5e0  1c f1 23 63 68 6f 69 63  65 73 25 2c 63 68 61 6e  |..#choices%,chan|
0000d5f0  6e 65 6c 6d 65 6e 75 33  24 0d 3f a2 1c f1 23 63  |nelmenu3$.?...#c|
0000d600  68 6f 69 63 65 73 25 2c  63 68 61 6e 6e 65 6c 6d  |hoices%,channelm|
0000d610  65 6e 75 34 24 0d 3f ac  1c f1 23 63 68 6f 69 63  |enu4$.?...#choic|
0000d620  65 73 25 2c 63 68 61 6e  6e 65 6c 6d 65 6e 75 35  |es%,channelmenu5|
0000d630  24 0d 3f b6 1c f1 23 63  68 6f 69 63 65 73 25 2c  |$.?...#choices%,|
0000d640  63 68 61 6e 6e 65 6c 6d  65 6e 75 36 24 0d 3f c0  |channelmenu6$.?.|
0000d650  0e d9 23 63 68 6f 69 63  65 73 25 0d 3f ca 05 e1  |..#choices%.?...|
0000d660  0d 3f d4 05 3a 0d 3f de  16 dd f2 67 65 74 5f 77  |.?..:.?....get_w|
0000d670  69 6e 64 6f 77 5f 66 6f  6e 74 73 0d 3f e8 08 ea  |indow_fonts.?...|
0000d680  20 66 25 0d 3f f2 10 de  20 66 6f 6e 74 62 25 20  | f%.?... fontb% |
0000d690  32 35 35 0d 3f fc 1e e3  20 49 25 3d 30 20 b8 20  |255.?... I%=0 . |
0000d6a0  32 35 35 3a 66 6f 6e 74  62 25 3f 49 25 3d 30 3a  |255:fontb%?I%=0:|
0000d6b0  ed 0d 40 06 05 e1 0d 40  10 05 3a 0d 40 1a 19 dd  |..@....@..:.@...|
0000d6c0  f2 61 6c 74 65 72 5f 6e  6f 5f 6f 66 5f 72 65 63  |.alter_no_of_rec|
0000d6d0  6f 72 64 73 0d 40 24 14  c8 8e 20 6d 61 78 5f 72  |ords.@$... max_r|
0000d6e0  65 63 6f 72 64 25 20 ca  0d 40 2e 08 c9 20 35 30  |ecord% ..@... 50|
0000d6f0  0d 40 38 d9 c8 99 20 22  57 69 6d 70 45 78 74 5f  |.@8... "WimpExt_|
0000d700  53 65 74 49 63 6f 6e 22  2c 2c 2c 76 69 64 65 6f  |SetIcon",,,video|
0000d710  5f 6f 70 74 69 6f 6e 73  25 2c 39 2c 31 3a c8 99  |_options%,9,1:..|
0000d720  20 22 57 69 6d 70 45 78  74 5f 53 65 74 49 63 6f  | "WimpExt_SetIco|
0000d730  6e 22 2c 2c 2c 76 69 64  65 6f 5f 6f 70 74 69 6f  |n",,,video_optio|
0000d740  6e 73 25 2c 31 32 2c 30  3a c8 99 20 22 57 69 6d  |ns%,12,0:.. "Wim|
0000d750  70 45 78 74 5f 53 65 74  49 63 6f 6e 22 2c 2c 2c  |pExt_SetIcon",,,|
0000d760  76 69 64 65 6f 5f 6f 70  74 69 6f 6e 73 25 2c 31  |video_options%,1|
0000d770  33 2c 30 3a c8 99 20 22  57 69 6d 70 45 78 74 5f  |3,0:.. "WimpExt_|
0000d780  53 65 74 49 63 6f 6e 22  2c 2c 2c 76 69 64 65 6f  |SetIcon",,,video|
0000d790  5f 6f 70 74 69 6f 6e 73  25 2c 31 34 2c 30 3a c8  |_options%,14,0:.|
0000d7a0  99 20 22 57 69 6d 70 45  78 74 5f 53 65 74 49 63  |. "WimpExt_SetIc|
0000d7b0  6f 6e 22 2c 2c 2c 76 69  64 65 6f 5f 6f 70 74 69  |on",,,video_opti|
0000d7c0  6f 6e 73 25 2c 31 35 2c  30 0d 40 42 09 c9 20 31  |ons%,15,0.@B.. 1|
0000d7d0  30 30 0d 40 4c d9 c8 99  20 22 57 69 6d 70 45 78  |00.@L... "WimpEx|
0000d7e0  74 5f 53 65 74 49 63 6f  6e 22 2c 2c 2c 76 69 64  |t_SetIcon",,,vid|
0000d7f0  65 6f 5f 6f 70 74 69 6f  6e 73 25 2c 39 2c 30 3a  |eo_options%,9,0:|
0000d800  c8 99 20 22 57 69 6d 70  45 78 74 5f 53 65 74 49  |.. "WimpExt_SetI|
0000d810  63 6f 6e 22 2c 2c 2c 76  69 64 65 6f 5f 6f 70 74  |con",,,video_opt|
0000d820  69 6f 6e 73 25 2c 31 32  2c 31 3a c8 99 20 22 57  |ions%,12,1:.. "W|
0000d830  69 6d 70 45 78 74 5f 53  65 74 49 63 6f 6e 22 2c  |impExt_SetIcon",|
0000d840  2c 2c 76 69 64 65 6f 5f  6f 70 74 69 6f 6e 73 25  |,,video_options%|
0000d850  2c 31 33 2c 30 3a c8 99  20 22 57 69 6d 70 45 78  |,13,0:.. "WimpEx|
0000d860  74 5f 53 65 74 49 63 6f  6e 22 2c 2c 2c 76 69 64  |t_SetIcon",,,vid|
0000d870  65 6f 5f 6f 70 74 69 6f  6e 73 25 2c 31 34 2c 30  |eo_options%,14,0|
0000d880  3a c8 99 20 22 57 69 6d  70 45 78 74 5f 53 65 74  |:.. "WimpExt_Set|
0000d890  49 63 6f 6e 22 2c 2c 2c  76 69 64 65 6f 5f 6f 70  |Icon",,,video_op|
0000d8a0  74 69 6f 6e 73 25 2c 31  35 2c 30 0d 40 56 09 c9  |tions%,15,0.@V..|
0000d8b0  20 31 35 30 0d 40 60 d9  c8 99 20 22 57 69 6d 70  | 150.@`... "Wimp|
0000d8c0  45 78 74 5f 53 65 74 49  63 6f 6e 22 2c 2c 2c 76  |Ext_SetIcon",,,v|
0000d8d0  69 64 65 6f 5f 6f 70 74  69 6f 6e 73 25 2c 39 2c  |ideo_options%,9,|
0000d8e0  30 3a c8 99 20 22 57 69  6d 70 45 78 74 5f 53 65  |0:.. "WimpExt_Se|
0000d8f0  74 49 63 6f 6e 22 2c 2c  2c 76 69 64 65 6f 5f 6f  |tIcon",,,video_o|
0000d900  70 74 69 6f 6e 73 25 2c  31 32 2c 30 3a c8 99 20  |ptions%,12,0:.. |
0000d910  22 57 69 6d 70 45 78 74  5f 53 65 74 49 63 6f 6e  |"WimpExt_SetIcon|
0000d920  22 2c 2c 2c 76 69 64 65  6f 5f 6f 70 74 69 6f 6e  |",,,video_option|
0000d930  73 25 2c 31 33 2c 31 3a  c8 99 20 22 57 69 6d 70  |s%,13,1:.. "Wimp|
0000d940  45 78 74 5f 53 65 74 49  63 6f 6e 22 2c 2c 2c 76  |Ext_SetIcon",,,v|
0000d950  69 64 65 6f 5f 6f 70 74  69 6f 6e 73 25 2c 31 34  |ideo_options%,14|
0000d960  2c 30 3a c8 99 20 22 57  69 6d 70 45 78 74 5f 53  |,0:.. "WimpExt_S|
0000d970  65 74 49 63 6f 6e 22 2c  2c 2c 76 69 64 65 6f 5f  |etIcon",,,video_|
0000d980  6f 70 74 69 6f 6e 73 25  2c 31 35 2c 30 0d 40 6a  |options%,15,0.@j|
0000d990  09 c9 20 32 30 30 0d 40  74 d9 c8 99 20 22 57 69  |.. 200.@t... "Wi|
0000d9a0  6d 70 45 78 74 5f 53 65  74 49 63 6f 6e 22 2c 2c  |mpExt_SetIcon",,|
0000d9b0  2c 76 69 64 65 6f 5f 6f  70 74 69 6f 6e 73 25 2c  |,video_options%,|
0000d9c0  39 2c 30 3a c8 99 20 22  57 69 6d 70 45 78 74 5f  |9,0:.. "WimpExt_|
0000d9d0  53 65 74 49 63 6f 6e 22  2c 2c 2c 76 69 64 65 6f  |SetIcon",,,video|
0000d9e0  5f 6f 70 74 69 6f 6e 73  25 2c 31 32 2c 30 3a c8  |_options%,12,0:.|
0000d9f0  99 20 22 57 69 6d 70 45  78 74 5f 53 65 74 49 63  |. "WimpExt_SetIc|
0000da00  6f 6e 22 2c 2c 2c 76 69  64 65 6f 5f 6f 70 74 69  |on",,,video_opti|
0000da10  6f 6e 73 25 2c 31 33 2c  30 3a c8 99 20 22 57 69  |ons%,13,0:.. "Wi|
0000da20  6d 70 45 78 74 5f 53 65  74 49 63 6f 6e 22 2c 2c  |mpExt_SetIcon",,|
0000da30  2c 76 69 64 65 6f 5f 6f  70 74 69 6f 6e 73 25 2c  |,video_options%,|
0000da40  31 34 2c 31 3a c8 99 20  22 57 69 6d 70 45 78 74  |14,1:.. "WimpExt|
0000da50  5f 53 65 74 49 63 6f 6e  22 2c 2c 2c 76 69 64 65  |_SetIcon",,,vide|
0000da60  6f 5f 6f 70 74 69 6f 6e  73 25 2c 31 35 2c 30 0d  |o_options%,15,0.|
0000da70  40 7e 09 c9 20 32 35 30  0d 40 88 d9 c8 99 20 22  |@~.. 250.@.... "|
0000da80  57 69 6d 70 45 78 74 5f  53 65 74 49 63 6f 6e 22  |WimpExt_SetIcon"|
0000da90  2c 2c 2c 76 69 64 65 6f  5f 6f 70 74 69 6f 6e 73  |,,,video_options|
0000daa0  25 2c 39 2c 30 3a c8 99  20 22 57 69 6d 70 45 78  |%,9,0:.. "WimpEx|
0000dab0  74 5f 53 65 74 49 63 6f  6e 22 2c 2c 2c 76 69 64  |t_SetIcon",,,vid|
0000dac0  65 6f 5f 6f 70 74 69 6f  6e 73 25 2c 31 32 2c 30  |eo_options%,12,0|
0000dad0  3a c8 99 20 22 57 69 6d  70 45 78 74 5f 53 65 74  |:.. "WimpExt_Set|
0000dae0  49 63 6f 6e 22 2c 2c 2c  76 69 64 65 6f 5f 6f 70  |Icon",,,video_op|
0000daf0  74 69 6f 6e 73 25 2c 31  33 2c 30 3a c8 99 20 22  |tions%,13,0:.. "|
0000db00  57 69 6d 70 45 78 74 5f  53 65 74 49 63 6f 6e 22  |WimpExt_SetIcon"|
0000db10  2c 2c 2c 76 69 64 65 6f  5f 6f 70 74 69 6f 6e 73  |,,,video_options|
0000db20  25 2c 31 34 2c 30 3a c8  99 20 22 57 69 6d 70 45  |%,14,0:.. "WimpE|
0000db30  78 74 5f 53 65 74 49 63  6f 6e 22 2c 2c 2c 76 69  |xt_SetIcon",,,vi|
0000db40  64 65 6f 5f 6f 70 74 69  6f 6e 73 25 2c 31 35 2c  |deo_options%,15,|
0000db50  31 0d 40 92 05 cb 0d 40  9c 34 f2 75 70 64 61 74  |1.@....@.4.updat|
0000db60  65 5f 69 63 6f 6e 28 76  69 64 65 6f 5f 69 6e 64  |e_icon(video_ind|
0000db70  65 78 25 2c 39 2c 22 2f  20 22 2b c3 28 6d 61 78  |ex%,9,"/ "+.(max|
0000db80  5f 72 65 63 6f 72 64 25  29 29 0d 40 a6 05 e1 0d  |_record%)).@....|
0000db90  40 b0 05 3a 0d 40 ba 14  dd f2 75 70 64 61 74 65  |@..:.@....update|
0000dba0  5f 6f 70 74 69 6f 6e 73  0d 40 c4 18 f2 61 6c 74  |_options.@...alt|
0000dbb0  65 72 5f 6e 6f 5f 6f 66  5f 72 65 63 6f 72 64 73  |er_no_of_records|
0000dbc0  0d 40 ce 16 c8 8e 20 6f  75 74 6c 69 6e 65 66 6f  |.@.... outlinefo|
0000dbd0  6e 74 73 25 20 ca 0d 40  d8 5b c9 20 30 3a c8 99  |nts% ..@.[. 0:..|
0000dbe0  20 22 57 69 6d 70 45 78  74 5f 53 65 74 49 63 6f  | "WimpExt_SetIco|
0000dbf0  6e 22 2c 2c 2c 76 69 64  65 6f 5f 6f 70 74 69 6f  |n",,,video_optio|
0000dc00  6e 73 25 2c 38 2c 31 3a  c8 99 20 22 57 69 6d 70  |ns%,8,1:.. "Wimp|
0000dc10  45 78 74 5f 53 65 74 49  63 6f 6e 22 2c 2c 2c 76  |Ext_SetIcon",,,v|
0000dc20  69 64 65 6f 5f 6f 70 74  69 6f 6e 73 25 2c 37 2c  |ideo_options%,7,|
0000dc30  30 0d 40 e2 5b c9 20 31  3a c8 99 20 22 57 69 6d  |0.@.[. 1:.. "Wim|
0000dc40  70 45 78 74 5f 53 65 74  49 63 6f 6e 22 2c 2c 2c  |pExt_SetIcon",,,|
0000dc50  76 69 64 65 6f 5f 6f 70  74 69 6f 6e 73 25 2c 37  |video_options%,7|
0000dc60  2c 31 3a c8 99 20 22 57  69 6d 70 45 78 74 5f 53  |,1:.. "WimpExt_S|
0000dc70  65 74 49 63 6f 6e 22 2c  2c 2c 76 69 64 65 6f 5f  |etIcon",,,video_|
0000dc80  6f 70 74 69 6f 6e 73 25  2c 38 2c 30 0d 40 ec 05  |options%,8,0.@..|
0000dc90  cb 0d 40 f6 30 f2 75 70  64 61 74 65 5f 69 63 6f  |..@.0.update_ico|
0000dca0  6e 28 76 69 64 65 6f 5f  6f 70 74 69 6f 6e 73 25  |n(video_options%|
0000dcb0  2c 33 2c 63 68 61 6e 6e  65 6c 6d 65 6e 75 31 24  |,3,channelmenu1$|
0000dcc0  29 0d 41 00 30 f2 75 70  64 61 74 65 5f 69 63 6f  |).A.0.update_ico|
0000dcd0  6e 28 76 69 64 65 6f 5f  6f 70 74 69 6f 6e 73 25  |n(video_options%|
0000dce0  2c 34 2c 63 68 61 6e 6e  65 6c 6d 65 6e 75 32 24  |,4,channelmenu2$|
0000dcf0  29 0d 41 0a 31 f2 75 70  64 61 74 65 5f 69 63 6f  |).A.1.update_ico|
0000dd00  6e 28 76 69 64 65 6f 5f  6f 70 74 69 6f 6e 73 25  |n(video_options%|
0000dd10  2c 31 31 2c 63 68 61 6e  6e 65 6c 6d 65 6e 75 33  |,11,channelmenu3|
0000dd20  24 29 0d 41 14 31 f2 75  70 64 61 74 65 5f 69 63  |$).A.1.update_ic|
0000dd30  6f 6e 28 76 69 64 65 6f  5f 6f 70 74 69 6f 6e 73  |on(video_options|
0000dd40  25 2c 31 36 2c 63 68 61  6e 6e 65 6c 6d 65 6e 75  |%,16,channelmenu|
0000dd50  34 24 29 0d 41 1e 31 f2  75 70 64 61 74 65 5f 69  |4$).A.1.update_i|
0000dd60  63 6f 6e 28 76 69 64 65  6f 5f 6f 70 74 69 6f 6e  |con(video_option|
0000dd70  73 25 2c 31 37 2c 63 68  61 6e 6e 65 6c 6d 65 6e  |s%,17,channelmen|
0000dd80  75 35 24 29 0d 41 28 31  f2 75 70 64 61 74 65 5f  |u5$).A(1.update_|
0000dd90  69 63 6f 6e 28 76 69 64  65 6f 5f 6f 70 74 69 6f  |icon(video_optio|
0000dda0  6e 73 25 2c 31 38 2c 63  68 61 6e 6e 65 6c 6d 65  |ns%,18,channelme|
0000ddb0  6e 75 36 24 29 0d 41 32  05 e1 0d 41 3c 05 3a 0d  |nu6$).A2...A<.:.|
0000ddc0  41 46 12 dd f2 72 65 61  64 5f 6f 70 74 69 6f 6e  |AF...read_option|
0000ddd0  73 0d 41 50 2d 63 68 61  6e 6e 65 6c 6d 65 6e 75  |s.AP-channelmenu|
0000dde0  31 24 3d a4 69 6e 64 69  72 65 63 74 28 76 69 64  |1$=.indirect(vid|
0000ddf0  65 6f 5f 6f 70 74 69 6f  6e 73 25 2c 33 29 0d 41  |eo_options%,3).A|
0000de00  5a 2d 63 68 61 6e 6e 65  6c 6d 65 6e 75 32 24 3d  |Z-channelmenu2$=|
0000de10  a4 69 6e 64 69 72 65 63  74 28 76 69 64 65 6f 5f  |.indirect(video_|
0000de20  6f 70 74 69 6f 6e 73 25  2c 34 29 0d 41 64 2e 63  |options%,4).Ad.c|
0000de30  68 61 6e 6e 65 6c 6d 65  6e 75 33 24 3d a4 69 6e  |hannelmenu3$=.in|
0000de40  64 69 72 65 63 74 28 76  69 64 65 6f 5f 6f 70 74  |direct(video_opt|
0000de50  69 6f 6e 73 25 2c 31 31  29 0d 41 6e 2e 63 68 61  |ions%,11).An.cha|
0000de60  6e 6e 65 6c 6d 65 6e 75  34 24 3d a4 69 6e 64 69  |nnelmenu4$=.indi|
0000de70  72 65 63 74 28 76 69 64  65 6f 5f 6f 70 74 69 6f  |rect(video_optio|
0000de80  6e 73 25 2c 31 36 29 0d  41 78 2e 63 68 61 6e 6e  |ns%,16).Ax.chann|
0000de90  65 6c 6d 65 6e 75 35 24  3d a4 69 6e 64 69 72 65  |elmenu5$=.indire|
0000dea0  63 74 28 76 69 64 65 6f  5f 6f 70 74 69 6f 6e 73  |ct(video_options|
0000deb0  25 2c 31 37 29 0d 41 82  2e 63 68 61 6e 6e 65 6c  |%,17).A..channel|
0000dec0  6d 65 6e 75 36 24 3d a4  69 6e 64 69 72 65 63 74  |menu6$=.indirect|
0000ded0  28 76 69 64 65 6f 5f 6f  70 74 69 6f 6e 73 25 2c  |(video_options%,|
0000dee0  31 38 29 0d 41 8c 25 63  68 61 6e 6e 65 6c 6d 65  |18).A.%channelme|
0000def0  6e 75 24 3d 22 22 3a f2  6d 61 6b 65 5f 63 68 61  |nu$="":.make_cha|
0000df00  6e 6e 65 6c 6d 65 6e 75  0d 41 96 05 e1 0d 41 a0  |nnelmenu.A....A.|
0000df10  05 3a 0d 41 aa 19 dd f2  77 69 6d 70 5f 63 6c 6f  |.:.A....wimp_clo|
0000df20  73 65 28 77 69 6e 64 6f  77 25 29 0d 41 b4 1c e7  |se(window%).A...|
0000df30  20 77 69 6e 64 6f 77 25  3d 76 69 64 65 6f 5f 69  | window%=video_i|
0000df40  6e 64 65 78 25 20 8c 0d  41 be 3c 21 71 25 3d 76  |ndex% ..A.<!q%=v|
0000df50  69 64 65 6f 5f 69 6e 64  65 78 25 3a c8 99 20 22  |ideo_index%:.. "|
0000df60  57 69 6d 70 45 78 74 5f  43 6c 6f 73 65 4c 69 6e  |WimpExt_CloseLin|
0000df70  6b 65 64 22 2c 2c 71 25  3a f2 63 6c 6f 73 65 5f  |ked",,q%:.close_|
0000df80  61 6c 6c 0d 41 c8 36 21  71 25 3d 76 69 64 65 6f  |all.A.6!q%=video|
0000df90  5f 62 61 63 6b 74 72 61  63 6b 73 25 3a c8 99 20  |_backtracks%:.. |
0000dfa0  22 57 69 6d 70 45 78 74  5f 43 6c 6f 73 65 4c 69  |"WimpExt_CloseLi|
0000dfb0  6e 6b 65 64 22 2c 2c 71  25 0d 41 d2 05 cc 0d 41  |nked",,q%.A....A|
0000dfc0  dc 2c 21 71 25 3d 77 69  6e 64 6f 77 25 3a c8 99  |.,!q%=window%:..|
0000dfd0  20 22 57 69 6d 70 45 78  74 5f 43 6c 6f 73 65 4c  | "WimpExt_CloseL|
0000dfe0  69 6e 6b 65 64 22 2c 2c  71 25 0d 41 e6 05 cd 0d  |inked",,q%.A....|
0000dff0  41 f0 05 e1 0d ff                                 |A.....|
0000dff6