� >!RunImage
� >!NewsDesk
3� Program to write timed messages to the screen
('� Author Neil Sherman + Bob Harding
2� Started in March 1995
<:
F� � �:� " at line ";�:�
P:
Zmessage$=�get_run_info
d�split_message(message$)
n:
x� Initialisation Variables
��define_arrays
��define_variables
�
�:
�� � �:� �:�
�:
�
��read_messages
��initialise
�!� � �  �error � �close_down:�
�<     � sprites%=FNload_sprites("<NewsDesk$Dir>.Sprites")
�*�read_contents("<NewsDesk$Dir>.Files")
�5�load_templates("<NewsDesk$Dir>.Templates",&5000)

0�change_icon(block%,InfoWHandle%,4,version$)

�set_save_variable

?�draw_menu(menu%,"NewsDesk,Info,Show,Status,Save,Quit",140)

",�draw_menu(filemenu%,"Show,Nofiles",140)

,menu%!32=InfoWHandle%

6 !(menu%+28+1*24+4)=filemenu%

@%!(menu%+28+2*24+4)=StatusWHandle%

J#!(menu%+28+3*24+4)=SaveWHandle%

T          � PROCadd_icons

^

h&�install_icon("Stopped","Standby")

r;� autostart% � �auto_start       :� Check for AutoStart

|�select(7,�)

�# �delete_icon(StatusWHandle%,1)

�; icon%=�add_icon_block(StatusWHandle%,20,-76,21,-44,10)

�:

��

�H � sounddelay%<2000 � sounddelay%+=1:� sounddelay%=2000 � �tidysound

�

� �wimp_poll

�

�� quit%

�:

��close_down

��

�:

ݤload_sprites(file$)
s%=�file_size(file$)+16
&� sprites% s%
0sprites%!0=s%
:sprites%!8=16
D!ș"OS_SpriteOp",&109,sprites%
N'ș"OS_SpriteOp",&10A,sprites%,file$
X
=sprites%
b
l:
v
���add_icons
�Nadd_sprite%=�add("radio","Splay,playi",MainWHandle%,128,-132,0,sprites%,0)
��
�
�:
�8ݤadd(type$,text$,window%,x%,y%,sl%,esg_sp%,border%)
�G� icon%,text_space%,name_space%,val_space%,w%,h%,mode%,xs%,ys%,sel%
�
sel%=sl%:
�� sl%<�text$ sl%=�text$
�� sl%<�type$ sl%=�type$
�� text_space% sl%
�block%!0=window%
�block%!4=x%
block%!8=y%-48
block%!12=x%+16+16*�text$
block%!16=y%
 $text_space%=text$
*block%!20=&17000139
4block%!24=text_space%
>block%!28=-1
Hblock%!32=�text$
RȎ �type$,5) �
\
� "file_"
f7ș"Wimp_SpriteOp",&28,,type$+�(0) � ,,,w%,h%,,mode%
p+ș"OS_ReadModeVariable",mode%,4 � ,,xs%
z+ș"OS_ReadModeVariable",mode%,5 � ,,ys%
�h%=h%<<ys%
�w%=w%<<xs%
�� text$="" �
�block%!8=y%-h%
�block%!12=x%+w%
�block%!20=&1700613A
�block%!28=1
�block%!32=�type$
�$text_space%=type$
��
�block%!8=y%-h%-(10<<ys%)
�sl%=(8<<xs%)*�text$
�� sl%>w% w%=sl%
block%!12=x%+w%
block%!20=&1700612B
� name_space% (2+�type$)
$$name_space%="s"+type$
.block%!28=name_space%
8�
B
� "sprit"
L=ș"OS_SpriteOp",&128,esg_sp%,text$+�(0) � ,,,w%,h%,,mode%
V+ș"OS_ReadModeVariable",mode%,4 � ,,xs%
`+ș"OS_ReadModeVariable",mode%,5 � ,,ys%
jh%=h%<<ys%
tw%=w%<<xs%
~block%!8=y%-h%
�block%!12=x%+w%
�block%!20=&1700313A
�block%!28=esg_sp%
�block%!32=�text$
�$text_space%=text$
�
� "label"
�
� "actio"
�block%!20=&C71F913D:
�
� "repor"
�block%!20=&0700313D:
�
� "optio"
�block%!8=y%-52
 block%!12=x%+40+16+16*�text$

block%!20=&1700B133
� sel% block%!20=&17303133:
&� val_space% (2+�"soptoff,opton"):
($val_space%="soptoff,opton"
2block%!28=val_space%
<
� "radio"
Fblock%!8=y%-52
P block%!12=x%+40+16+16*�text$
Z,� (esg_sp%<1) � (esg_sp%>31) � esg_sp%=1
d*block%!20=&1700B133 � (esg_sp%*&10000)
n2� sel% block%!20=&1720B133 � (esg_sp%*&10000):
x+� text_space% (2+�"sradiooff,radioon"):
�$$text_space%="sradiooff,radioon"
�block%!28=text_space%
�
� "write"
�block%!12=x%+16+16*�text$
�block%!20=&0700F135
�� val_space% 16:
�$val_space%=""
�block%!28=val_space%
�� sel%<(�text$) sel%=�text$
�block%!32=sel%+1
��
�(ș "Wimp_CreateIcon",,block% � icon%
�+� border%>0 �border_icon(window%,icon%)

=icon%

:
"
,ݤfile_size(file$)
6� s%,found%
@'ș"OS_File",17,file$ � found%,,,,s%
J2� found%<>1 � �report_error("File not found!")
T=s%
^
h:
r��tidysound
|� �
�� � � �
�*RMkill BBCNews
�"*ChannelVoice 1 WaveSynth-Beep
��
�
�:
�ݤerror
�
!block%=�
�Ȏ !block% �
�� 1<<30:err_str$="":box%=3
�$:err_str$=" at line "+Þ:box%=2
��
�&$(block%+4)=�$+err_str$+Þ+ß+�(0)
;ș "Wimp_ReportError",block%,box%,appname$ � ,response%
=(response%=2)

&:
0
:� �get_run_info
D autostart%=�
N ș"OS_GetEnv" � env$
X � �env$,"-quit") �
b I%=�env$,"""")
l I%=�env$,"""",I%+1)
v �
�   I%+=1
� � �env$,I%,1) <>" "
� env$=�env$,I%)
�, � env$="" � autostart%=� � autostart%=�
�	=env$
�
�:
�
� � �split_message(text$)
� � message1$=""
� � x%=0
� commapos%=�text$,",")
�' commapos2%=�text$,",",commapos%+1)
   text1$=�text$,commapos%-1)
9  text2$=�text$,commapos%+1,commapos2%-(commapos%+1))
!  text3$=�text$,commapos2%+1)
  �
* �
4
>:
H
R� �define_arrays
\ � program pointers
f � opened%(78)
p   � x=0 � 78
z     opened%(x)=�
�   �
� � delay$(78,78)
� � contents$(78)
� � buf 256
� � buffer 256
� � buffer% 256
� � caret% 256
� �ownpath%(78)
�� x=0 � 78
�ownpath%(x)=�
��
��
�
	:
	
	� �define_variables
	$ � program variables
	. �=0
	8start%=�
	B
 pause%=�
	L filename$=""
	V done%=�
	` quit%=�
	j noscript%=�
	t filemenu$="Show"
	~ currentpos%=0
	� story$=""
	�
 sound%=�
	� isitquit%=�
	�
 saved%=�
	� caretset%=�
	�
 timer%=0
	� insert%=�
	� stopwinopen%=�
	� sounddelay%=0
	�
 pos=0
	�
 first%=�
	� scrolltime%=0
 scrolltime2%=0

�

:
(
2��read_messages
<Eș "MessageTrans_FileInfo",,"<NewsDesk$Dir>.Messages" � f%,,size%
F(� (f% � 1) = 0 � � msg_buffer% size%
P� msgs% 256
Z+$(msgs%+16) = "<NewsDesk$Dir>.Messages"
d9ș "MessageTrans_OpenFile",msgs%,msgs%+16,msg_buffer%
n� msg_out% 256
x%ș "MessageTrans_CloseFile",msgs%
�-appname$=�msgtrans_lookup("appname",�(0))
�-version$=�msgtrans_lookup("version",�(0))
��
�
�:
�
�!ݤmsgtrans_lookup(token$,p0$)
�Kș "MessageTrans_Lookup",msgs%,token$,msg_out%,256,p0$,0,0,0 � ,,value$
�=value$
�
�:
�
�� �initialise
j � block% &3000, iblock% &3000, font% &4000, version% &20, menu% &100, storymenu% &900, filemenu% &900

G � texts$ used by PROCsplit_message to strip out messages from !Run
") � text1% &20, text2% &20, text3% &20
,
6A ș "Wimp_Initialise",200,&4B534154,appname$ � version%,task%
@ � sprite_name% 26
J � text_space% 24
T�
^
h:
r
|� �read_contents(path$)
�stmenu$="Stories,"
�
item=0
�
number%=0
�ȕ item<>-1
�number%+=1
�9   ș "OS_GBPB",10,path$,buf,1,item,256,"" � ,,,,item
�   � item<>-1 �
�      Ȏ buf!16 �
�9         � 1:� object is a single file and not of use
�N         � 2: stmenu$+=+�bts(buf+20)+�(44):contents$(number%)=�bts(buf+20)
�      �
�   �
��
#stmenu$=�stmenu$,(� stmenu$-1))
&�draw_menu(storymenu%,stmenu$,140)
�
&
0:
:
D� �bts(in):� counter,out$
Nȕ in?counter>31
X        out$+=�(in?counter)
b        counter+=1
l�
v	=out$
�
�:
�
�'� �load_templates(templfile$,size%)
� � indirectblock% size%
� ind%=indirectblock%
� � name% 12
�' ș "Wimp_OpenTemplate",,templfile$
�
�
�* MainWHandle%=�create_window("Main",1)
�* InfoWHandle%=�create_window("Info",0)
�0 OptionsWHandle%=�create_window("Options",1)

. BannerWHandle%=�create_window("Banner",0)

* SaveWHandle%=�create_window("Save",1)

* QuitWHandle%=�create_window("quit",0)

 . StatusWHandle%=�create_window("Status",1)

* ș "Wimp_CloseTemplate"

4�

>

H:

R

\(� �create_window($name%,spritearea%)

f  � this creates the windows.

p5 � spritearea% should be 0 for a text only window

z) � and 1 for a window with sprites in

�

� � hand%

�O ș "Wimp_LoadTemplate",,block%,ind%,ind%+size%,font%+ind%,name%,0 � ,,ind%

� block%!64=spritearea%

�+ ș "Wimp_CreateWindow",,block% � hand%

�
=hand%

�

�:

�

�.� �change_icon(block%,window%,icon%,text$)

� !block%=window%

� block%!4=icon%

�# ș "Wimp_GetIconState",,block%
 $(block%!28)=text$
 !block%=window%
 block%!4=icon%
$ block%!8=0
. block%!12=0
8" ș"Wimp_SetIconState",,block%
B�
L
V:
`
j� �set_save_variable
t !block%=SaveWHandle%
~ block%!4=0
�# ș "Wimp_GetIconState",,block%
� sbtext%=block%!28
��
�
�:
�
�%� �draw_menu(menu%,menu$,length%)
�$ � this will draw a menu for you
�@ menu%?12=7             :� Title foreground and frame colour
�/ menu%?13=2             :� Title background
�< menu%?14=7             :� Menu workarea f'ground colour
�< menu%?15=0             :� Menu workarea b'ground colour
) menu%!16=length%       :� Menu width

L menu%!20=44            :� height of each entry (44 recomended by acorn)
9 menu%!24=0             :� vertical gap between items
2 ptr%=menu%+28          :� point to menu items
(! $menu%=�menu$,�menu$,",")-1)
2 menu$+=","
< entries%=0
F  ȕ menu$<>""
P"   menu$=�menu$,�menu$,",")+1)
Z    � menu$<>"" �
d     !ptr%=0
n     ptr%!4=-1
x     ptr%!8=&7000021
�)     $(ptr%+12)=�menu$,�menu$,",")-1)
�     ptr%+=24
�     entries%+=1
�	    �
�  �
�4 ptr%!-24=ptr%!-24 � &80    :� mark item as last
��
�
�:
�
�1� �show_menu(menu%,x%,y%,oniconbar%,entries%)
�6 � oniconbar% � ypos%=96+entries%*44 � ypos%=y%+20
�+ ș"Wimp_CreateMenu",,menu%,x%-64,ypos%
�

:
"
,� �menu_select
6choice%=block%!0
@choice2%=block%!4
J Ȏ menuonshow% �
T    � menu%
^     � choice2%<>-1 �
h            � currentpos%=0 �
r9            nofiles$=�msgtrans_lookup("Nofiles",�(0))
|)            �report_error(nofiles$):�
�           �
�O           � currentpos%>0 � �"Filer_Run "+filename$+"."+delay$(choice2%,1)
�
     �
�     Ȏ choice% �
�      � 0  :� 1,-15,100,4
�,      � 2  :�open_window(StatusWHandle%)
�B      � 4  :� done% � start%=� � saved% � quit%=� � �sure_quit
�
     �
�    � storymenu%
�B      �change_icon(block%,MainWHandle%,3,contents$(choice%+1))
�%      story$=contents$(choice%+1)
�@      filename$="<NewsDesk$Dir>.files."+contents$(choice%+1)
�+      scriptfile$=filename$+".Script":�
	    �
  �
6� check to see if ADJUST was used, if so keep open
&3   � � quit% � ș "Wimp_GetPointerInfo",,block%
01   � block%!8=1 � �show_menu(menu%,x%,y%,�,5)
:  �
D�
N
X:
b
l��sure_quit
v� pause%=� � �pause
��7
�isitquit%=�
�.�change_icon(block%,QuitWHandle%,2,"Quit")
�)quit1$=�msgtrans_lookup("Quit1",�(0))
�)quit2$=�msgtrans_lookup("Quit2",�(0))
�.�change_icon(block%,QuitWHandle%,0,quit1$)
�.�change_icon(block%,QuitWHandle%,1,quit2$)
�1�open_and_centre_window(QuitWHandle%,738,276)
��
�
�:
�
�'� �install_icon(sprite_name$,text$)
* chars$=�msgtrans_lookup("Chars",�(0))
/ � �(sprite_name$)>10 �report_error(chars$)
G � � (text$)>10 �report_error("To many characters for sprite text")
 # $sprite_name%="S"+sprite_name$
* $text_space%=text$
4 !block%=-1
> block%!4=0
H block%!8=-16
R, width%=16*� text$:� width%<68 width%=68
\ block%!12=width%
f block%!16=88
p block%!20=&1700212B
z block%!24=text_space%
� block%!28=sprite_name%
� block%!32=�(text$)
�) ș "Wimp_CreateIcon",,block% � icon%
��
�
�:
�
�� �wimp_poll
�8 ș "Wimp_PollIdle",0,block% � reason%,prequitblock%
� Ȏ reason% �
�F  � 0:� insert% � �insert_time � � start% � pause%=� � �check_time
�&  � 2:ș "Wimp_OpenWindow",,block%
�   � 3:�close_window(!block%)
  � 6:�mouse_pressed
  � 7:ș &62401:�startsave
  � 8:�keypress(block%!24)
$  � 9:�menu_select
.  � 17,18:�receive(block%)
8C  � 19:sf$=�msgtrans_lookup("Savefail",�(0)):�report_error(sf$)
B �
L�
V
`:
j
t� �receive(handle%)
~Ȏ block%!16 �
� � 0:quit%=�
� � 2:�datasave
� � 3:�dataload(block%!40)
�8 � 5:my_ref%=prequitblock%!8:add%=block%!4:�dataopen
�@ � 8:my_ref%=prequitblock%!8:add%=block%!4:�check_and_finish
�H � &400C0:� menu prewarning - could be used to calculate the submenu
�" � &502:�provide_help(handle%)
��
��
�
�:
�
��dataopen

filetype=block%!40
 � filetype=&012 � start%=� �
O �report_error("To load a new story, you must first stop the current one.")
(prequitblock%!12=my_ref%
21  ș "Wimp_SendMessage",19,prequitblock%,add%
< �
F�
P� filetype =&012 �
Z filename$=$(block%+44)
dprequitblock%!12=my_ref%
n1  ș "Wimp_SendMessage",19,prequitblock%,add%
xfile%=� filename$
��#file%=61
�text$=""
��
�text=�#file%
�text$=text$+�(text)
�
� �#file%
��#file%
��loadstart(text$)
��
�:
�
���loadstart(text$)
�text$=�text$,24)
new$=""
� x=1 � �(text$)
let$=�text$,x,1)
"new$+=let$
,2� let$="," � name$=�new$,(� (new$)-1)):new$=""
6�
@
pos$=new$
J� a
T name$=�name$,2,�name$)
^ story$=name$
h, filename$="<NewsDesk$Dir>.files."+name$
r$ scriptfile$=filename$+".Script"
| �get_script(scriptfile$)
�    � noscript% � �stop:�
�. �change_icon(block%,MainWHandle%,3,name$)
� currentpos%=� pos$
� � x=0 � currentpos%-1
�  opened%(x)=�
� �
�
 start%=�
�% �=�delay$((� pos$)+1,2)+1*100*60
�' �alter_sprite("Running","Running")
�" �shade_icon(MainWHandle%,4,�)
� filemenu$="Show"
� � currentpos%>=1 �
�   � a%=0 � currentpos%-1
&     filemenu$+=�(44)+delay$(a%,1)
,     �draw_menu(filemenu%,filemenu$,144)
   �
& �
0�
:
D:
N
X��check_and_finish
b� saved% � start%=� �
l quit%=�
v�
�) quit$=�msgtrans_lookup("Quit1",�(0))
�* quit$+=�msgtrans_lookup("Quit2",�(0))
�; response%=�Wimp_CancelBox("Query form NewsDesk",quit$)
��
�� response%=� �
� quit%=�
��
�prequitblock%!12=my_ref%
�.ș"Wimp_SendMessage",19,prequitblock%,add%
��
��
�
�:

&� �Wimp_CancelBox(title$,message$)
         $(block%+4)=message$
         response%=23
*F        ș "Wimp_ReportError",block%,response%,title$ � ,response%
4       =response%-2
>�|
H
R:
\
f� �provide_help(handle%)
p>block%=handle%:block%!12=handle%!8:block%!16=&503:text$=""
zȎ block%!32 �
�
�,� -2:text$=�msgtrans_lookup("Icon",�(0))
�
�E� MainWHandle%:text$=�msgtrans_lookup("Main",�(0)):Ȏ block%!36 �
�,� 4:text$=�msgtrans_lookup("Arrow",�(0))
�0� 3:text$=�msgtrans_lookup("Indicator",�(0))
�+� 5:text$=�msgtrans_lookup("Play",�(0))
�,� 6:text$=�msgtrans_lookup("Pause",�(0))
�+� 7:text$=�msgtrans_lookup("Stop",�(0))
�a� 8:� sound%=� � text$=�msgtrans_lookup("Sound","On") � text$=�msgtrans_lookup("Sound","Off")
�+� 9:text$=�msgtrans_lookup("Time",�(0))
�-� 10:text$=�msgtrans_lookup("Savei",�(0))
��

6� InfoWHandle%:text$=�msgtrans_lookup("Info",�(0))
6� SaveWHandle%:text$=�msgtrans_lookup("Save",�(0))
$
.�
8;$(block%+20)=text$ : block%!0=(((20+�(text$)+1)�4)*4)+4
B$(block%+21+�(text$))=�(0)
L#ș "Wimp_SendMessage",17,block%
V�
`
j:
t
~� �open_window(window%)
� !block%=window%
�% ș "Wimp_GetWindowState",,block%
�block%!28=-1
�maxX%=block%!12
�minX%=block%!4
�maxY%=block%!16
�minY%=block%!8
�winwidth%=maxX%-minX%
�winheight%=maxY%-minY%
�� window%=MainWHandle% �
�/ ș "OS_ReadModeVariable",-1,11 � ,,Xpixels
� Xwidth=Xpixels*2

 ȗ x,y,b

; slb=0                        :� slb= Shift Left By !!!
;  � x+(winwidth%/2)>Xwidth � slb=x+(winwidth%/2)-Xwidth
"  block%!4=x-(winwidth%/2)-slb
(  block%!8=y+30
2"  block%!12=block%!4+winwidth%
<%  block%!16=block%!8+(winheight%)
F�
P� window%=SaveWHandle% �
Zȗx,y,b
dblock%!4=x-(winwidth%/2)
nblock%!8=y-(winheight%/2)
x block%!12=block%!4+winwidth%
�!block%!16=block%!8+winheight%
��
�! ș "Wimp_OpenWindow",,block%
�
��
�
�:
�� �close_window(window%)
� !block%=window%
�" ș "Wimp_CloseWindow",,block%
��
�
�:

)� �open_and_centre_window(handle,w,h)
, � Xpixels,Ypixels,XEigFactor,YEigFactor
"/ ș "OS_ReadModeVariable",-1,11 � ,,Xpixels
,/ ș "OS_ReadModeVariable",-1,12 � ,,Ypixels
61 ș "OS_ReadModeVariable",-1,4 � ,,XEigFactor
@1 ș "OS_ReadModeVariable",-1,5 � ,,YEigFactor
J width=w/(2^XEigFactor)
T height=h/(2^YEigFactor)
^+ x=((Xpixels+1-width)/2)*(2^XEigFactor)
h, y=((Ypixels+1-height)/2)*(2^YEigFactor)
r width=width*(2^XEigFactor)
|! height=height*(2^YEigFactor)
�6 �open_window2(handle,x,y,x+width,y+height,0,0,-1)
��
�
�:
�
�?� �open_window2(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
�( block%!0=handle%:block%!28=bhandle%
�: block%!4=x0%:block%!8=y0%:block%!12=x1%:block%!16=y1%
�" block%!20=scx%:block%!24=scy%
�! ș "Wimp_OpenWindow",,block%
��
�
�:

� �mouse_pressed
x%=block%!0:y%=block%!4
& Ȏ block%!12 �
0
  � -2
:     Ȏ block%!8 �
D<      � 2:�show_menu(menu%,x%,y%,-1,5):menuonshow%=menu%
N(      � 4:�open_window(MainWHandle%)
X
     �
b  � MainWHandle%
l     Ȏ block%!8 �
v
      � 2
�       � block%!16<>4 �
�(         �show_menu(menu%,x%,y%,�,5)
�         menuonshow%=menu%
�         �
�/         �show_menu(storymenu%,x%,y%,�,140)
�#         menuonshow%=storymenu%
�         �
�       � 4
�         Ȏ block%!16 �
�          � 4
�2            �show_menu(storymenu%,x%,y%,�,140)
�&            menuonshow%=storymenu%
�&          � 0,1,2,3,4:�drag_window
!          � 5:�start:�sort(5)
!          � 6:�pause:�sort(6)
/          � 7:� done% � start%=� � saved% �
                   �stop
*                 �
4                   �sure_stop
>                  �sort(7)
H                 �
R          � 8:�set_sound
\?          � 9:insert%=�:text$=�get_time:loop=0:�insert_time
f-          � 10:�open_window(SaveWHandle%)
p         �
z        � 1
�          Ȏ block%!16 �
�           � 8:�set_sound
�          �
�       �
�     � QuitWHandle%
�      Ȏ block%!16 �
�       � 2:� isitquit% �
�                �pause
�                �stop
�                quit%=�
�               �
�                �pause
�                done%=�
/                �close_window(QuitWHandle%)
                �stop
               �
$       � 3:� isitquit% �
.         isitquit%=�
8         �pause
B(         �close_window(QuitWHandle%)
L         �
V
        �
`         stopwinopen%=�
j         �pause
t(         �close_window(QuitWHandle%)
~
        �
�
�(      � 4:�open_window(SaveWHandle%)
�      �
�     � SaveWHandle%
�      Ȏ block%!16 �
�'       � 1:� block%!8=64 � �dragbox
�       � 2:�quicksave
�      �
�  �
��
�
�
:


��drag_window
� c%
(c%=block%+900
2+�get_origin(MainWHandle%,xorig%,yorig%)
<!c%=MainWHandle%:c%!4=0
Fș "Wimp_GetIconState",,c%
PNxmin%=xorig%+c%!8:ymin%=yorig%+c%!12:xmax%=xorig%+c%!16:ymax%=yorig%+c%!20
Z
c%!4=1
dc%!8=xmin%
nc%!12=ymin%
xc%!16=xmax%
�c%!20=ymax%
�c%!24=0
�c%!28=0
�c%!32=1280
�c%!36=1024
�ș "Wimp_DragBox",,c%
��
�
�:
�
�+��get_origin(handle%,� xorig%,� yorig%)
�� c%
�c%=block%+800
!c%=handle%
 ș "Wimp_GetWindowState",,c%
(xorig%=c%!4-c%!20:yorig%=c%!16-c%!24
"�
,
6:
@
J��sort(icon%)
T4� icon%=5 � start%=� � �select(7,�):�select(5,�)
^�
h
r:
|��select(icon%,select%)
�win%=MainWHandle%
�block%!0=win%
�block%!4=icon%
�block%!12=1<<21
�)� select% block%!8=1<<21 � block%!8=0
�!ș"Wimp_SetIconState",,block%
�
��
�
�
�:
�
���set_sound
 "� sound% � sound%=� � sound%=�
 �
 
 &:
 0
 :��insert_time
 D
 N
 Xloop+=1
 b� loop=�(text$) � insert%=�
 l#� insert% � �send_message(loop)
 v
 ��
 �
 �
 �:
 �
 ���send_message(x)
 �send$=�text$,x,1)
 �send%=�(send$)
 �ș "Wimp_ProcessKey",send%
 ��
 �
 �:
 �ݤget_time
!?(buffer)=0
!ș "OS_Word",14,buffer
!text$=""
! Z=buffer
!*�
!4
c=(?Z)
!>text$=text$+�(c)
!HZ+=1
!R� c=&0D
!\=text$+"|M"
!f:
!p
!z'� �alter_sprite(sprite_name$,text$)
!�U� IF LEN(sprite_name$)>10 PROCreport_error("Too many characters for sprite name")
!�G � � (text$)>10 �report_error("To many characters for sprite text")
!�# $sprite_name%="S"+sprite_name$
!� $text_space%=text$
!� block%!0=-2
!� block%!4=icon%
!� block%!8=0
!� block%!12=0
!�# ș "Wimp_SetIconState",,block%
!��
!�
!�:
!�
"� �get_script(file$)
"noscript%=�
"� � � �#A%:�check_file:�
"$ last=�
".
 Count%=0
"8 A%=� scriptfile$
"B �
"L  word$=�#A%
"V%  � �word$,1)="|" � Count%=Count%
"`"  � �word$,5)=".END." � last=�
"j� �word$,1)<>"|" �
"t � null=1 � �word$
"~/  � �word$,null,1)=":" � ownpath%(Count%)=�
"� � null
"�$delay$(Count%,1)=word$:Count%+=1
"��
"� � last
"� amountoffiles%=Count%-1
"�	 �#A%
"�� x=0 � amountoffiles%-1
"� � loop=1 � �(delay$(x,1))
"�s  � �delay$(x,1),loop,1)="," � delay$(x,2)=�delay$(x,1),loop+1,�delay$(x,1)):delay$(x,1)=�delay$(x,1),1,loop-1)
"�  �
"��
"� �=0
#
tottime=0
#
� x=0 � amountoffiles%-1
#!tottime=tottime+� delay$(x,2)
#�
#(�
#2
#<:
#F
#P� �start
#Z"� pause% � �pause:�select(6,�)
#d
#n! � autostart% � �auto_start �
#x  � pause% � �pause:�
#�   � filename$="" �
#�8      �report_error(�msgtrans_lookup("Select",�(0)))
#�	    �
#�"      �get_script(scriptfile$)
#�%          � noscript% � �stop:�:�
#�      start%=�
#�
      �=0
#�,      �alter_sprite("Running","Running")
#�'      �shade_icon(MainWHandle%,4,�)
#�%      �close_window(MainWHandle%)
#�	    �
#�  �
#��
$
$:
$
$"� �auto_start
$,� a
$6- filename$="<NewsDesk$Dir>.files."+text1$
$@ story$=text1$
$J$ scriptfile$=filename$+".Script"
$T �get_script(scriptfile$)
$^    � noscript% � �stop:�
$h/ �change_icon(block%,MainWHandle%,3,text1$)
$r currentpos%=� text2$
$| � x=0 � currentpos%-1
$�  opened%(x)=�
$� �
$�
 start%=�
$�. �=0:�VALdelay$((VAL text2$)+1,2)+1*100*60
$�' �alter_sprite("Running","Running")
$�" �shade_icon(MainWHandle%,4,�)
$� filemenu$="Show"
$� � currentpos%>=1 �
$�   � a =0 � currentpos%-1
$�%     filemenu$+=�(44)+delay$(a,1)
$�,     �draw_menu(filemenu%,filemenu$,144)
$�   �
$� �
%pos=� text3$
%�select(5,�):�select(6,�)
%�
%&
%0:
%:
%D��sure_stop
%N stopwinopen%=�
%X � sound%=� � �7
%b  � pause%=� � �pause
%l/ �change_icon(block%,QuitWHandle%,2,"Stop")
%vG �change_icon(block%,QuitWHandle%,0,�msgtrans_lookup("Stop1",�(0)))
%�G �change_icon(block%,QuitWHandle%,1,�msgtrans_lookup("Stop2",�(0)))
%�2 �open_and_centre_window(QuitWHandle%,738,276)
%��
%�
%�:
%�
%�� �stop
%�"� pause% � �pause:�select(6,�)
%�  � x=1 � 78
%�    opened%(x)=�
%�  �
%�
 start%=�
%�
 pause%=�
& done%=�
&
 saved%=�
& currentpos%=0
&  filename$=""
&* story$=""
&4 autostart%=�
&> stopwinopen%=�
&H+ �change_icon(block%,MainWHandle%,3,"")
&R' �alter_sprite("Stopped","Standby")
&\" �shade_icon(MainWHandle%,4,�)
&f filemenu$="Show,No files"
&p( �draw_menu(filemenu%,filemenu$,144)
&z0 �change_icon(block%,StatusWHandle%,2,"00%")
&�# �delete_icon(StatusWHandle%,1)
&�; icon%=�add_icon_block(StatusWHandle%,20,-76,21,-44,10)
&�
 first%=�
&� scrolltime%=0
&� scrolltime2%=0
&�
 pos=0
&��
&�
&�:
&�
&�� �pause
&�� done% � �
&�� pause%=� �
' �=StoredTime
'
 pause%=�
'V� start% � �alter_sprite("Running","Running") � �alter_sprite("Stopped","Standby")
'$�
'. StoredTime=�
'8
 pause%=�
'B$�alter_sprite("Paused","Paused")
'L�
'V�
'`
'j:
't
'~5� �shade_icon(window_handle%,icon_handle%,shade%)
'�block%!0=window_handle%
'�block%!4=icon_handle%
'�block%!12=1<<22
'�(� shade% block%!8=1<<22 � block%!8=0
'�"ș "Wimp_SetIconState",,block%
'��
'�
'�:
'�
'�� �check_time
'�� � � �check_file
'�� done% � �
(scrolltime2%=�/100
(
6� (scrolltime2%-scrolltime%)>=1 � first% � �scroll
(
timer%+=1
(%� caretset% � timer%>=10 � �caret
((� currentpos%=0 �
(2` � � > �delay$(currentpos%,2)*100*60 � opened%(currentpos%+1)=� � �display_file(currentpos%)
(<�
(Fa� � > �delay$(currentpos%-1,2)*100*60 � opened%(currentpos%+1)=� � �display_file(currentpos%)
(P�
(Z
(d
(n^� currentpos%+1>amountoffiles% � done%=�:�banner(appname$,�msgtrans_lookup("Nonews",�(0)))
(x�
(�
(�:
(�
(���scroll
(�
(�scrolltime%=�/100
(�first%=�
(�speed=594/(tottime*60)
(�pos+=speed
(�"�delete_icon(StatusWHandle%,1)
(�?� pos>600 � �report_error("Position has exceeded 100%!!!!")
(�;icon%=�add_icon_block(StatusWHandle%,20,-76,pos,-44,10)
(�percentage%=(100/594)*pos
):�change_icon(block%,StatusWHandle%,2,�percentage%+"%")
)�
)
)":
),
)6=ݤadd_icon_block(window%,minx%,miny%,maxx%,maxy%,colour%)
)@block%!0=window%
)J � minx%>maxx% Ȕ minx%,maxx%
)T � miny%>maxy% Ȕ miny%,maxy%
)^� minx%=maxx% maxx%+=1
)h� miny%=maxy% maxy%+=1
)rblock%!4=minx%
)|block%!8=miny%
)�block%!12=maxx%
)�block%!16=maxy%
)�block%!20=32+(colour%<<28)
)�(ș "Wimp_CreateIcon",,block% � icon%
)�
=icon%
)�
)�:
)�
)� ��delete_icon(window%,icon%)
)�block%!0=window%
)�block%!4=icon%
)�!ș"Wimp_GetIconState",,block%
)�minx%=block%!8
*miny%=block%!12
*maxx%=block%!16
*maxy%=block%!20
*&ș"Wimp_DeleteIcon",,block%
*08ș"Wimp_ForceRedraw",window%,minx%,miny%,maxx%,maxy%
*:�
*D
*N:
*X
*b� �display_file(x)
*ltimer%=0
*v
�caret
*�currentpos%+=1
*�$ text$=filename$+"."+delay$(x,1)
*�'� ownpath%(x)=� � text$=delay$(x,1)
*� �=0
*� scrolltime%=�/100
*� � "FILER_RUN "+text$
*� opened%(x)=�
*� � sound%=� � �sound
*�3 � filemenu$="Show,No files" � filemenu$="Show"
*�! filemenu$+=�(44)+delay$(x,1)
*�( �draw_menu(filemenu%,filemenu$,144)
*� �
*�saved%=�
+
+�
+
+ :
+*
+4��caret
+>+� caretset% � caretset%=� � caretset%=�
+H �readcaret
+R� caret$<>"-1" �
+\'� caret$="-2" � �("Unset KS$Caret")
+f � caret$="0" �
+p  �getposition
+z �
+�
+� � �caret$,"_") �
+�  �setcaret
+� �
+��
+��
+�
+�:
+�
+���readcaret
+�<ș "XOS_ReadVarVal","KS$caret",buffer%,-1,0,3 � ,,found%
+�� found%=� �
+� �("SET KS$caret 0")
,�
,!buffer%=0
,2ș "XOS_ReadVarVal","KS$caret",buffer%,256,0,3
,$caret$=�getstring(buffer%)
,.� caret$="-1" � caret$="-2"
,8�
,B:
,L��setcaret
,V%A%=�("&"+�caret$,�caret$,"_")-1))
,`*caret$=�caret$,�(caret$)-�caret$,"_"))
,j%B%=�("&"+�caret$,�caret$,"_")-1))
,t*caret$=�caret$,�(caret$)-�caret$,"_"))
,~%C%=�("&"+�caret$,�caret$,"_")-1))
,�*caret$=�caret$,�(caret$)-�caret$,"_"))
,�%D%=�("&"+�caret$,�caret$,"_")-1))
,�*caret$=�caret$,�(caret$)-�caret$,"_"))
,�%E%=�("&"+�caret$,�caret$,"_")-1))
,�*caret$=�caret$,�(caret$)-�caret$,"_"))
,�%F%=�("&"+�caret$,�caret$,"_")-1))
,�0ș "Wimp_SetCaretPosition",A%,B%,C%,D%,E%,F%
,��("Unset KS$caret")
,��
,�:
,���getposition
,�'ș "Wimp_GetCaretPosition",,buffer%
-� (!buffer%)<>-1 �
-
 A%=!buffer%
- B%=buffer%!4
- C%=buffer%!8
-( D%=buffer%!12
-2 E%=buffer%!16
-< F%=buffer%!20
-FMstring$=�~(A%)+"_"+�~(B%)+"_"+�~(C%)+"_"+�~(D%)+"_"+�~(E%)+"_"+�~(F%)+"_"
-P �("SET KS$caret "+string$)
-Z
-d� loss caret!
-n!buffer%=-1
-x'ș "Wimp_SetCaretPosition",,buffer%
-��
-� �("SET KS$caret -1")
-�
-��
-��
-�
-�:
-�
-�ݤgetstring(ptr%)
-�
 p$=""
-�ȕ (?ptr%>0) � (?ptr%<96)
-�  c%=?ptr%
-�
  p$+=�c%
.
  ptr%+=1
.�
.=p$
."
.,:
.6
.@� �check_file
.J
!block%=�
.TI� �=223 � �report_error(�msgtrans_lookup("End",�(0))):done%=�:�stop:�
.^M� �=214 � �report_error(�msgtrans_lookup("Missing",�(0))):done%=�:�stop:�
.hP� �=222 � �report_error(�msgtrans_lookup("Script",�(0))):noscript%=�:�stop:�
.r=� �=220 � �report_error(�msgtrans_lookup("Incor",�(0))):�
.|
.�:$(block%+4)=�$+" (internal error code "+� �+� �+")"+�0
.�+ș "Wimp_ReportError",block%,1,appname$
.��
.�
.�:
.�
.�� �sound
.�� t
.�� x
.� � t=1 � 4
.�  � 1,-10,100,2
.�   � x=1 � 2000
.�
   � x
/ � t
/ � 1,-10,65,15
/�
/&
/0
/::
/D
/N� �report_error(err$)
/X !block%=255
/b $(block%+4)=err$+�0
/l, ș "Wimp_ReportError",block%,1,appname$
/v�
/�
/�:
/�
/�� �banner(app$,message$)
/�/ �change_icon(block%,BannerWHandle%,1,app$)
/�3 �change_icon(block%,BannerWHandle%,2,message$)
/�4 �open_and_centre_window(BannerWHandle%,590,242)
/� �pause
/�' � PROCclose_window(BannerWHandle%)
/��
/�
/�:
/�� �close_down
0( ș "Wimp_CloseDown",task%,&4B534154
0�
0***************************************
0 � all save routines here
0*
04� �keypress(key%)
0> Ȏ � �
0H% � key%=13 � !block%=SaveWHandle%
0R �quicksave
0\  :ș "Wimp_ProcessKey",key%
0f �
0p�
0z
0�:
0�� �dragbox
0�!block%=SaveWHandle%
0�$ș "Wimp_GetWindowState",,block%
0�ox%=block%!4-block%!20
0�oy%=block%!16-block%!24
0� block%!4=1
0�"ș "Wimp_GetIconState",,block%
0�$block%!4=5:block%!8=ox%+block%!8
0�block%!12=oy%+block%!12
0�block%!16=ox%+block%!16
0�block%!20=oy%+block%!20
0� block%!24=0:block%!28=0
1block%!32=&7FFFFFFF
1block%!36=&7FFFFFFF
1"ș "OS_Byte",161,28 � ,,flags%
1$� flags% � 2 �
1.5 ș "DragASprite_Start",197,1,"file_012",block%+8
18�
1Bș "Wimp_DragBox",,block%
1L�
1V�
1`
1j:
1t
1~� �dataload(type%)
1�B� type%<>&012 � �report_error(�msgtrans_lookup("Load",�(1))):�
1�[� start% � �report_error("To load this file, you must first stop the current story."):�
1��term(block%+44)
1�$sbtext%=$(block%+44)
1�filename$=$sbtext%
1�file%=� filename$
1��#file%=61
1�text$=""
1��
1�text=�#file%
1�text$=text$+�(text)
1�
� �#file%
2�#file%
2
�loadstart(text$)
2�
2
2(:
22
2<��term(a%)
2F� n%
2Pȕ a%?n%>31
2Z	n%+=1
2d�
2na%?n%=13
2x�
2�
2�:
2�� �string(ptr%)
2�	 � a$
2�   ȕ ?ptr%<>0
2�     a$+=�(?ptr%):ptr%+=1
2�   �
2�=a$
2�
2�:
2�� �startsave
2�% ș "Wimp_GetPointerInfo",,block%
2�, block%!20=block%!12:block%!24=block%!16
3) block%!28=!block%:block%!32=block%!4
3 block%!36=80
3 !block%=64:block%!12=0
3" block%!16=1:block%!40=&FFF
3,$ $(block%+44)=�getleaf($sbtext%)
368 ș "Wimp_SendMessage",18,block%,block%!20,block%!24
3@�
3J
3T :
3^� �quicksave
3h � �$sbtext%,".") �
3r �saveit
3| �
3�1 �report_error(�msgtrans_lookup("Save",�(0)))
3� �
3��close_window(SaveWHandle%)
3�saved%=�
3�� stopwinopen% �
3� �pause
3� done%=�
3�  �close_window(QuitWHandle%)
3�  �close_window(SaveWHandle%)
3�
 �stop
3� stopwinopen%=�
3��
3�&� isitquit% � �pause:�stop:quit%=�
4�
4
4:
4&
� �saveit
40 file%=�($sbtext%)
4:, �#file%,"| "+ appname$+" position file"
4D �#file%,"| saved on " + �$
4NL �#file%,"RUN <NewsDesk$Dir>.!Run "+story$+","+�(currentpos%)+","+�(pos)
4X �#file%
4b! � "SetType "+$sbtext%+" 012"
4l
 saved%=�
4v
4�
4��
4�
4� :
4�� �getleaf(a$)
4� ȕ �a$,".")
4� a$=�a$,�a$,".")+1)
4� �
4�
=a$+�0
4�
4� :
4�� �datasave
4�
5C � story$="" �report_error(�msgtrans_lookup("Cantsave",�(0))):�
5  $sbtext%=�string(block%+44)
5 �saveit
5  block%!12=block%!8
5* block%!16=3:!block%=256
548 ș "Wimp_SendMessage",18,block%,block%!20,block%!24
5>�close_window(SaveWHandle%)
5Hsaved%=�
5R� stopwinopen% �
5\ �pause
5f done%=�
5p  �close_window(QuitWHandle%)
5z  �close_window(SaveWHandle%)
5�
 �stop
5� stopwinopen%=�
5��
5�&� isitquit% � �pause:�stop:quit%=�
5��
5�:
5�Aݤadd_icon(type$,text$,window%,x%,y%,s1%,esg_sprite%,border%)
5�G� icon%,text_space%,name_space%,val_space%,w%,h%,mode%,xs%,ys%,se1%
5�se1%=s1%
5�� s1%<�text$ s1%=�text$
5�� s1%<�type$ s1=�type$
5�� text_space% s1%
5�block%!0=window%
6block%!4=x%
6block%!8=y%-48
6block%!12=x%+16+16*�text$
6$block%!16=y%
6.$text_space%=text$
68block%!20=&17000139
6Bblock%!24=text_space%
6Lblock%!28=-1
6Vblock%!32=�text$
6`Ȏ �type$,5) �
6j
� "file_"
6t8 ș"Wimp_SpriteOp",&28,,type$+�(0) � ,,,w%,h%,,mode%
6~, ș"OS_ReadModeVariable",mode%,4 � ,,xs%
6�, ș"OS_ReadModeVariable",mode%,5 � ,,ys%
6� h%=h%<<ys%
6� w%=w%<<xs%
6� � text$="" �
6�  block%!8=y%-h%
6�  block%!12=x%+w%
6�  block%!20=&1700613A
6�  block%!28=1
6�  block%!32=�type$
6�  $text_space%=type$
6� �
6�  block%!8=y%-h%-(10<<ys%)
7  s1%=(8<<xs%)*�text$
7
  � s1%>w% w%=s1%
7  block%!12=x%+w%
7  block%!20=&1700612B
7(  � name_space% (2+�type$)
72  $name_space%="s"+type$
7<  block%!28=name_space%
7F �
7P
� "sprit"
7Z> ș"OS_SpriteOp",&128,esg_sp%,text$+�(0) � ,,,w%,h%,,mode%
7d, ș"OS_ReadModeVariable",mode%,4 � ,,xs%
7n+ ș"OS_ReadModeVariable"mode%,5 � ,,ys%
7x h%=h%<<ys%
7� w%=w%<<xs%
7� block%!8=y%-h%
7� block%!12=x%+w%
7� block%!20=&1700313A
7� block%!28=esg_sp%
7� block%!32=�text$
7� $text_space%=text$
7�
� "label"
7�
� "actio"
7� block%!20=&C71F913D
7�
� "repor"
7� block%!20=&0700313D
7�
� "optio"
8 block%!8=y%-52
8! block%!12=x%+40+16+16*�text$
8 block%!20=&1700B133
8" � se1% block%!20=&17303133
8,& � val_space% (2+�"soptoff,opton")
86  $val_space%="soptoff,opton"
8@ block%!28=val_space%
8J
� "radio"
8T block%!8=y%-52
8^! block%!12=x%+40+16+16*�text$
8h- � (esg_sp%<1) � (esg_sp%>31) � esg_sp%=1
8r+ block%!20=&1700B133 � (esg_sp%*&10000)
8|2 � se1% block%!20=&1720B133 � (esg_sp%*&10000)
8�+ � text_space% (2+�"sradiooff,radioon")
8�% $text_space%="sradiooff,radioon"
8� block%!28=text_space%
8�
� "write"
8� block%!12=x%+16+16*�text$
8� block%!20=&0700F135
8� � val_space% 16
8� $val_space%=""
8� block%!28=val_space%
8�! � se1%<(�text$) se1%=� text$
8� block%!32=se1%+1
8��
8�'ș"Wimp_CreateIcon",,block% � icon%
9+� border%>0 �border_icon(window%,icon%)
9
=icon%
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 10 f4 20 3e 21  4e 65 77 73 44 65 73 6b  |..... >!NewsDesk|
00000020  0d 00 1e 33 f4 20 50 72  6f 67 72 61 6d 20 74 6f  |...3. Program to|
00000030  20 77 72 69 74 65 20 74  69 6d 65 64 20 6d 65 73  | write timed mes|
00000040  73 61 67 65 73 20 74 6f  20 74 68 65 20 73 63 72  |sages to the scr|
00000050  65 65 6e 0d 00 28 27 f4  20 41 75 74 68 6f 72 20  |een..('. Author |
00000060  4e 65 69 6c 20 53 68 65  72 6d 61 6e 20 2b 20 42  |Neil Sherman + B|
00000070  6f 62 20 48 61 72 64 69  6e 67 0d 00 32 1b f4 20  |ob Harding..2.. |
00000080  53 74 61 72 74 65 64 20  69 6e 20 4d 61 72 63 68  |Started in March|
00000090  20 31 39 39 35 0d 00 3c  05 3a 0d 00 46 1b ee 20  | 1995..<.:..F.. |
000000a0  85 20 f6 3a f1 20 22 20  61 74 20 6c 69 6e 65 20  |. .:. " at line |
000000b0  22 3b 9e 3a e0 0d 00 50  05 3a 0d 00 5a 1a 6d 65  |";.:...P.:..Z.me|
000000c0  73 73 61 67 65 24 3d a4  67 65 74 5f 72 75 6e 5f  |ssage$=.get_run_|
000000d0  69 6e 66 6f 0d 00 64 1c  f2 73 70 6c 69 74 5f 6d  |info..d..split_m|
000000e0  65 73 73 61 67 65 28 6d  65 73 73 61 67 65 24 29  |essage(message$)|
000000f0  0d 00 6e 05 3a 0d 00 78  1e f4 20 49 6e 69 74 69  |..n.:..x.. Initi|
00000100  61 6c 69 73 61 74 69 6f  6e 20 56 61 72 69 61 62  |alisation Variab|
00000110  6c 65 73 0d 00 82 12 f2  64 65 66 69 6e 65 5f 61  |les.....define_a|
00000120  72 72 61 79 73 0d 00 8c  15 f2 64 65 66 69 6e 65  |rrays.....define|
00000130  5f 76 61 72 69 61 62 6c  65 73 0d 00 96 04 0d 00  |_variables......|
00000140  a0 05 3a 0d 00 aa 0f ee  20 85 20 f6 3a f1 20 9e  |..:..... . .:. .|
00000150  3a e0 0d 00 b4 05 3a 0d  00 be 04 0d 00 c8 12 f2  |:.....:.........|
00000160  72 65 61 64 5f 6d 65 73  73 61 67 65 73 0d 00 d2  |read_messages...|
00000170  0f f2 69 6e 69 74 69 61  6c 69 73 65 0d 00 dc 21  |..initialise...!|
00000180  ee 20 85 20 e7 20 20 a4  65 72 72 6f 72 20 8c 20  |. . .  .error . |
00000190  f2 63 6c 6f 73 65 5f 64  6f 77 6e 3a e0 0d 00 e6  |.close_down:....|
000001a0  3c 20 20 20 20 20 f4 20  73 70 72 69 74 65 73 25  |<     . sprites%|
000001b0  3d 46 4e 6c 6f 61 64 5f  73 70 72 69 74 65 73 28  |=FNload_sprites(|
000001c0  22 3c 4e 65 77 73 44 65  73 6b 24 44 69 72 3e 2e  |"<NewsDesk$Dir>.|
000001d0  53 70 72 69 74 65 73 22  29 0d 00 f0 2a f2 72 65  |Sprites")...*.re|
000001e0  61 64 5f 63 6f 6e 74 65  6e 74 73 28 22 3c 4e 65  |ad_contents("<Ne|
000001f0  77 73 44 65 73 6b 24 44  69 72 3e 2e 46 69 6c 65  |wsDesk$Dir>.File|
00000200  73 22 29 0d 00 fa 35 f2  6c 6f 61 64 5f 74 65 6d  |s")...5.load_tem|
00000210  70 6c 61 74 65 73 28 22  3c 4e 65 77 73 44 65 73  |plates("<NewsDes|
00000220  6b 24 44 69 72 3e 2e 54  65 6d 70 6c 61 74 65 73  |k$Dir>.Templates|
00000230  22 2c 26 35 30 30 30 29  0d 01 04 30 f2 63 68 61  |",&5000)...0.cha|
00000240  6e 67 65 5f 69 63 6f 6e  28 62 6c 6f 63 6b 25 2c  |nge_icon(block%,|
00000250  49 6e 66 6f 57 48 61 6e  64 6c 65 25 2c 34 2c 76  |InfoWHandle%,4,v|
00000260  65 72 73 69 6f 6e 24 29  0d 01 0e 16 f2 73 65 74  |ersion$).....set|
00000270  5f 73 61 76 65 5f 76 61  72 69 61 62 6c 65 0d 01  |_save_variable..|
00000280  18 3f f2 64 72 61 77 5f  6d 65 6e 75 28 6d 65 6e  |.?.draw_menu(men|
00000290  75 25 2c 22 4e 65 77 73  44 65 73 6b 2c 49 6e 66  |u%,"NewsDesk,Inf|
000002a0  6f 2c 53 68 6f 77 2c 53  74 61 74 75 73 2c 53 61  |o,Show,Status,Sa|
000002b0  76 65 2c 51 75 69 74 22  2c 31 34 30 29 0d 01 22  |ve,Quit",140).."|
000002c0  2c f2 64 72 61 77 5f 6d  65 6e 75 28 66 69 6c 65  |,.draw_menu(file|
000002d0  6d 65 6e 75 25 2c 22 53  68 6f 77 2c 4e 6f 66 69  |menu%,"Show,Nofi|
000002e0  6c 65 73 22 2c 31 34 30  29 0d 01 2c 19 6d 65 6e  |les",140)..,.men|
000002f0  75 25 21 33 32 3d 49 6e  66 6f 57 48 61 6e 64 6c  |u%!32=InfoWHandl|
00000300  65 25 0d 01 36 20 21 28  6d 65 6e 75 25 2b 32 38  |e%..6 !(menu%+28|
00000310  2b 31 2a 32 34 2b 34 29  3d 66 69 6c 65 6d 65 6e  |+1*24+4)=filemen|
00000320  75 25 0d 01 40 25 21 28  6d 65 6e 75 25 2b 32 38  |u%..@%!(menu%+28|
00000330  2b 32 2a 32 34 2b 34 29  3d 53 74 61 74 75 73 57  |+2*24+4)=StatusW|
00000340  48 61 6e 64 6c 65 25 0d  01 4a 23 21 28 6d 65 6e  |Handle%..J#!(men|
00000350  75 25 2b 32 38 2b 33 2a  32 34 2b 34 29 3d 53 61  |u%+28+3*24+4)=Sa|
00000360  76 65 57 48 61 6e 64 6c  65 25 0d 01 54 1d 20 20  |veWHandle%..T.  |
00000370  20 20 20 20 20 20 20 20  f4 20 50 52 4f 43 61 64  |        . PROCad|
00000380  64 5f 69 63 6f 6e 73 0d  01 5e 04 0d 01 68 26 f2  |d_icons..^...h&.|
00000390  69 6e 73 74 61 6c 6c 5f  69 63 6f 6e 28 22 53 74  |install_icon("St|
000003a0  6f 70 70 65 64 22 2c 22  53 74 61 6e 64 62 79 22  |opped","Standby"|
000003b0  29 0d 01 72 3b e7 20 61  75 74 6f 73 74 61 72 74  |)..r;. autostart|
000003c0  25 20 8c 20 f2 61 75 74  6f 5f 73 74 61 72 74 20  |% . .auto_start |
000003d0  20 20 20 20 20 20 3a f4  20 43 68 65 63 6b 20 66  |      :. Check f|
000003e0  6f 72 20 41 75 74 6f 53  74 61 72 74 0d 01 7c 10  |or AutoStart..|.|
000003f0  f2 73 65 6c 65 63 74 28  37 2c b9 29 0d 01 86 23  |.select(7,.)...#|
00000400  20 f2 64 65 6c 65 74 65  5f 69 63 6f 6e 28 53 74  | .delete_icon(St|
00000410  61 74 75 73 57 48 61 6e  64 6c 65 25 2c 31 29 0d  |atusWHandle%,1).|
00000420  01 90 3b 20 69 63 6f 6e  25 3d a4 61 64 64 5f 69  |..; icon%=.add_i|
00000430  63 6f 6e 5f 62 6c 6f 63  6b 28 53 74 61 74 75 73  |con_block(Status|
00000440  57 48 61 6e 64 6c 65 25  2c 32 30 2c 2d 37 36 2c  |WHandle%,20,-76,|
00000450  32 31 2c 2d 34 34 2c 31  30 29 0d 01 9a 05 3a 0d  |21,-44,10)....:.|
00000460  01 a4 05 f5 0d 01 ae 48  20 e7 20 73 6f 75 6e 64  |.......H . sound|
00000470  64 65 6c 61 79 25 3c 32  30 30 30 20 8c 20 73 6f  |delay%<2000 . so|
00000480  75 6e 64 64 65 6c 61 79  25 2b 3d 31 3a e7 20 73  |unddelay%+=1:. s|
00000490  6f 75 6e 64 64 65 6c 61  79 25 3d 32 30 30 30 20  |ounddelay%=2000 |
000004a0  8c 20 f2 74 69 64 79 73  6f 75 6e 64 0d 01 b8 04  |. .tidysound....|
000004b0  0d 01 c2 0f 20 f2 77 69  6d 70 5f 70 6f 6c 6c 0d  |.... .wimp_poll.|
000004c0  01 cc 04 0d 01 d6 0b fd  20 71 75 69 74 25 0d 01  |........ quit%..|
000004d0  e0 05 3a 0d 01 ea 0f f2  63 6c 6f 73 65 5f 64 6f  |..:.....close_do|
000004e0  77 6e 0d 01 f4 05 e0 0d  01 fe 05 3a 0d 02 08 04  |wn.........:....|
000004f0  0d 02 12 19 dd a4 6c 6f  61 64 5f 73 70 72 69 74  |......load_sprit|
00000500  65 73 28 66 69 6c 65 24  29 0d 02 1c 1b 73 25 3d  |es(file$)....s%=|
00000510  a4 66 69 6c 65 5f 73 69  7a 65 28 66 69 6c 65 24  |.file_size(file$|
00000520  29 2b 31 36 0d 02 26 11  de 20 73 70 72 69 74 65  |)+16..&.. sprite|
00000530  73 25 20 73 25 0d 02 30  11 73 70 72 69 74 65 73  |s% s%..0.sprites|
00000540  25 21 30 3d 73 25 0d 02  3a 11 73 70 72 69 74 65  |%!0=s%..:.sprite|
00000550  73 25 21 38 3d 31 36 0d  02 44 21 c8 99 22 4f 53  |s%!8=16..D!.."OS|
00000560  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 39 2c  |_SpriteOp",&109,|
00000570  73 70 72 69 74 65 73 25  0d 02 4e 27 c8 99 22 4f  |sprites%..N'.."O|
00000580  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 30 41  |S_SpriteOp",&10A|
00000590  2c 73 70 72 69 74 65 73  25 2c 66 69 6c 65 24 0d  |,sprites%,file$.|
000005a0  02 58 0d 3d 73 70 72 69  74 65 73 25 0d 02 62 04  |.X.=sprites%..b.|
000005b0  0d 02 6c 05 3a 0d 02 76  04 0d 02 80 0f dd f2 61  |..l.:..v.......a|
000005c0  64 64 5f 69 63 6f 6e 73  0d 02 8a 4e 61 64 64 5f  |dd_icons...Nadd_|
000005d0  73 70 72 69 74 65 25 3d  a4 61 64 64 28 22 72 61  |sprite%=.add("ra|
000005e0  64 69 6f 22 2c 22 53 70  6c 61 79 2c 70 6c 61 79  |dio","Splay,play|
000005f0  69 22 2c 4d 61 69 6e 57  48 61 6e 64 6c 65 25 2c  |i",MainWHandle%,|
00000600  31 32 38 2c 2d 31 33 32  2c 30 2c 73 70 72 69 74  |128,-132,0,sprit|
00000610  65 73 25 2c 30 29 0d 02  94 05 e1 0d 02 9e 04 0d  |es%,0)..........|
00000620  02 a8 05 3a 0d 02 b2 38  dd a4 61 64 64 28 74 79  |...:...8..add(ty|
00000630  70 65 24 2c 74 65 78 74  24 2c 77 69 6e 64 6f 77  |pe$,text$,window|
00000640  25 2c 78 25 2c 79 25 2c  73 6c 25 2c 65 73 67 5f  |%,x%,y%,sl%,esg_|
00000650  73 70 25 2c 62 6f 72 64  65 72 25 29 0d 02 bc 47  |sp%,border%)...G|
00000660  ea 20 69 63 6f 6e 25 2c  74 65 78 74 5f 73 70 61  |. icon%,text_spa|
00000670  63 65 25 2c 6e 61 6d 65  5f 73 70 61 63 65 25 2c  |ce%,name_space%,|
00000680  76 61 6c 5f 73 70 61 63  65 25 2c 77 25 2c 68 25  |val_space%,w%,h%|
00000690  2c 6d 6f 64 65 25 2c 78  73 25 2c 79 73 25 2c 73  |,mode%,xs%,ys%,s|
000006a0  65 6c 25 0d 02 c6 0d 73  65 6c 25 3d 73 6c 25 3a  |el%....sel%=sl%:|
000006b0  0d 02 d0 1b e7 20 73 6c  25 3c a9 74 65 78 74 24  |..... sl%<.text$|
000006c0  20 73 6c 25 3d a9 74 65  78 74 24 0d 02 da 1b e7  | sl%=.text$.....|
000006d0  20 73 6c 25 3c a9 74 79  70 65 24 20 73 6c 25 3d  | sl%<.type$ sl%=|
000006e0  a9 74 79 70 65 24 0d 02  e4 15 de 20 74 65 78 74  |.type$..... text|
000006f0  5f 73 70 61 63 65 25 20  73 6c 25 0d 02 ee 14 62  |_space% sl%....b|
00000700  6c 6f 63 6b 25 21 30 3d  77 69 6e 64 6f 77 25 0d  |lock%!0=window%.|
00000710  02 f8 0f 62 6c 6f 63 6b  25 21 34 3d 78 25 0d 03  |...block%!4=x%..|
00000720  02 12 62 6c 6f 63 6b 25  21 38 3d 79 25 2d 34 38  |..block%!8=y%-48|
00000730  0d 03 0c 1d 62 6c 6f 63  6b 25 21 31 32 3d 78 25  |....block%!12=x%|
00000740  2b 31 36 2b 31 36 2a a9  74 65 78 74 24 0d 03 16  |+16+16*.text$...|
00000750  10 62 6c 6f 63 6b 25 21  31 36 3d 79 25 0d 03 20  |.block%!16=y%.. |
00000760  16 24 74 65 78 74 5f 73  70 61 63 65 25 3d 74 65  |.$text_space%=te|
00000770  78 74 24 0d 03 2a 17 62  6c 6f 63 6b 25 21 32 30  |xt$..*.block%!20|
00000780  3d 26 31 37 30 30 30 31  33 39 0d 03 34 19 62 6c  |=&17000139..4.bl|
00000790  6f 63 6b 25 21 32 34 3d  74 65 78 74 5f 73 70 61  |ock%!24=text_spa|
000007a0  63 65 25 0d 03 3e 10 62  6c 6f 63 6b 25 21 32 38  |ce%..>.block%!28|
000007b0  3d 2d 31 0d 03 48 14 62  6c 6f 63 6b 25 21 33 32  |=-1..H.block%!32|
000007c0  3d a9 74 65 78 74 24 0d  03 52 12 c8 8e 20 c0 74  |=.text$..R... .t|
000007d0  79 70 65 24 2c 35 29 20  ca 0d 03 5c 0d c9 20 22  |ype$,5) ...\.. "|
000007e0  66 69 6c 65 5f 22 0d 03  66 37 c8 99 22 57 69 6d  |file_"..f7.."Wim|
000007f0  70 5f 53 70 72 69 74 65  4f 70 22 2c 26 32 38 2c  |p_SpriteOp",&28,|
00000800  2c 74 79 70 65 24 2b bd  28 30 29 20 b8 20 2c 2c  |,type$+.(0) . ,,|
00000810  2c 77 25 2c 68 25 2c 2c  6d 6f 64 65 25 0d 03 70  |,w%,h%,,mode%..p|
00000820  2b c8 99 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |+.."OS_ReadModeV|
00000830  61 72 69 61 62 6c 65 22  2c 6d 6f 64 65 25 2c 34  |ariable",mode%,4|
00000840  20 b8 20 2c 2c 78 73 25  0d 03 7a 2b c8 99 22 4f  | . ,,xs%..z+.."O|
00000850  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
00000860  6c 65 22 2c 6d 6f 64 65  25 2c 35 20 b8 20 2c 2c  |le",mode%,5 . ,,|
00000870  79 73 25 0d 03 84 0e 68  25 3d 68 25 3c 3c 79 73  |ys%....h%=h%<<ys|
00000880  25 0d 03 8e 0e 77 25 3d  77 25 3c 3c 78 73 25 0d  |%....w%=w%<<xs%.|
00000890  03 98 10 e7 20 74 65 78  74 24 3d 22 22 20 8c 0d  |.... text$="" ..|
000008a0  03 a2 12 62 6c 6f 63 6b  25 21 38 3d 79 25 2d 68  |...block%!8=y%-h|
000008b0  25 0d 03 ac 13 62 6c 6f  63 6b 25 21 31 32 3d 78  |%....block%!12=x|
000008c0  25 2b 77 25 0d 03 b6 17  62 6c 6f 63 6b 25 21 32  |%+w%....block%!2|
000008d0  30 3d 26 31 37 30 30 36  31 33 41 0d 03 c0 0f 62  |0=&1700613A....b|
000008e0  6c 6f 63 6b 25 21 32 38  3d 31 0d 03 ca 14 62 6c  |lock%!28=1....bl|
000008f0  6f 63 6b 25 21 33 32 3d  a9 74 79 70 65 24 0d 03  |ock%!32=.type$..|
00000900  d4 16 24 74 65 78 74 5f  73 70 61 63 65 25 3d 74  |..$text_space%=t|
00000910  79 70 65 24 0d 03 de 05  cc 0d 03 e8 1c 62 6c 6f  |ype$.........blo|
00000920  63 6b 25 21 38 3d 79 25  2d 68 25 2d 28 31 30 3c  |ck%!8=y%-h%-(10<|
00000930  3c 79 73 25 29 0d 03 f2  17 73 6c 25 3d 28 38 3c  |<ys%)....sl%=(8<|
00000940  3c 78 73 25 29 2a a9 74  65 78 74 24 0d 03 fc 13  |<xs%)*.text$....|
00000950  e7 20 73 6c 25 3e 77 25  20 77 25 3d 73 6c 25 0d  |. sl%>w% w%=sl%.|
00000960  04 06 13 62 6c 6f 63 6b  25 21 31 32 3d 78 25 2b  |...block%!12=x%+|
00000970  77 25 0d 04 10 17 62 6c  6f 63 6b 25 21 32 30 3d  |w%....block%!20=|
00000980  26 31 37 30 30 36 31 32  42 0d 04 1a 1c de 20 6e  |&1700612B..... n|
00000990  61 6d 65 5f 73 70 61 63  65 25 20 28 32 2b a9 74  |ame_space% (2+.t|
000009a0  79 70 65 24 29 0d 04 24  1a 24 6e 61 6d 65 5f 73  |ype$)..$.$name_s|
000009b0  70 61 63 65 25 3d 22 73  22 2b 74 79 70 65 24 0d  |pace%="s"+type$.|
000009c0  04 2e 19 62 6c 6f 63 6b  25 21 32 38 3d 6e 61 6d  |...block%!28=nam|
000009d0  65 5f 73 70 61 63 65 25  0d 04 38 05 cd 0d 04 42  |e_space%..8....B|
000009e0  0d c9 20 22 73 70 72 69  74 22 0d 04 4c 3d c8 99  |.. "sprit"..L=..|
000009f0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00000a00  32 38 2c 65 73 67 5f 73  70 25 2c 74 65 78 74 24  |28,esg_sp%,text$|
00000a10  2b bd 28 30 29 20 b8 20  2c 2c 2c 77 25 2c 68 25  |+.(0) . ,,,w%,h%|
00000a20  2c 2c 6d 6f 64 65 25 0d  04 56 2b c8 99 22 4f 53  |,,mode%..V+.."OS|
00000a30  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
00000a40  65 22 2c 6d 6f 64 65 25  2c 34 20 b8 20 2c 2c 78  |e",mode%,4 . ,,x|
00000a50  73 25 0d 04 60 2b c8 99  22 4f 53 5f 52 65 61 64  |s%..`+.."OS_Read|
00000a60  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 6d 6f  |ModeVariable",mo|
00000a70  64 65 25 2c 35 20 b8 20  2c 2c 79 73 25 0d 04 6a  |de%,5 . ,,ys%..j|
00000a80  0e 68 25 3d 68 25 3c 3c  79 73 25 0d 04 74 0e 77  |.h%=h%<<ys%..t.w|
00000a90  25 3d 77 25 3c 3c 78 73  25 0d 04 7e 12 62 6c 6f  |%=w%<<xs%..~.blo|
00000aa0  63 6b 25 21 38 3d 79 25  2d 68 25 0d 04 88 13 62  |ck%!8=y%-h%....b|
00000ab0  6c 6f 63 6b 25 21 31 32  3d 78 25 2b 77 25 0d 04  |lock%!12=x%+w%..|
00000ac0  92 17 62 6c 6f 63 6b 25  21 32 30 3d 26 31 37 30  |..block%!20=&170|
00000ad0  30 33 31 33 41 0d 04 9c  15 62 6c 6f 63 6b 25 21  |0313A....block%!|
00000ae0  32 38 3d 65 73 67 5f 73  70 25 0d 04 a6 14 62 6c  |28=esg_sp%....bl|
00000af0  6f 63 6b 25 21 33 32 3d  a9 74 65 78 74 24 0d 04  |ock%!32=.text$..|
00000b00  b0 16 24 74 65 78 74 5f  73 70 61 63 65 25 3d 74  |..$text_space%=t|
00000b10  65 78 74 24 0d 04 ba 0d  c9 20 22 6c 61 62 65 6c  |ext$..... "label|
00000b20  22 0d 04 c4 0d c9 20 22  61 63 74 69 6f 22 0d 04  |"..... "actio"..|
00000b30  ce 18 62 6c 6f 63 6b 25  21 32 30 3d 26 43 37 31  |..block%!20=&C71|
00000b40  46 39 31 33 44 3a 0d 04  d8 0d c9 20 22 72 65 70  |F913D:..... "rep|
00000b50  6f 72 22 0d 04 e2 18 62  6c 6f 63 6b 25 21 32 30  |or"....block%!20|
00000b60  3d 26 30 37 30 30 33 31  33 44 3a 0d 04 ec 0d c9  |=&0700313D:.....|
00000b70  20 22 6f 70 74 69 6f 22  0d 04 f6 12 62 6c 6f 63  | "optio"....bloc|
00000b80  6b 25 21 38 3d 79 25 2d  35 32 0d 05 00 20 62 6c  |k%!8=y%-52... bl|
00000b90  6f 63 6b 25 21 31 32 3d  78 25 2b 34 30 2b 31 36  |ock%!12=x%+40+16|
00000ba0  2b 31 36 2a a9 74 65 78  74 24 0d 05 0a 17 62 6c  |+16*.text$....bl|
00000bb0  6f 63 6b 25 21 32 30 3d  26 31 37 30 30 42 31 33  |ock%!20=&1700B13|
00000bc0  33 0d 05 14 1f e7 20 73  65 6c 25 20 62 6c 6f 63  |3..... sel% bloc|
00000bd0  6b 25 21 32 30 3d 26 31  37 33 30 33 31 33 33 3a  |k%!20=&17303133:|
00000be0  0d 05 1e 26 de 20 76 61  6c 5f 73 70 61 63 65 25  |...&. val_space%|
00000bf0  20 28 32 2b a9 22 73 6f  70 74 6f 66 66 2c 6f 70  | (2+."soptoff,op|
00000c00  74 6f 6e 22 29 3a 0d 05  28 1f 24 76 61 6c 5f 73  |ton"):..(.$val_s|
00000c10  70 61 63 65 25 3d 22 73  6f 70 74 6f 66 66 2c 6f  |pace%="soptoff,o|
00000c20  70 74 6f 6e 22 0d 05 32  18 62 6c 6f 63 6b 25 21  |pton"..2.block%!|
00000c30  32 38 3d 76 61 6c 5f 73  70 61 63 65 25 0d 05 3c  |28=val_space%..<|
00000c40  0d c9 20 22 72 61 64 69  6f 22 0d 05 46 12 62 6c  |.. "radio"..F.bl|
00000c50  6f 63 6b 25 21 38 3d 79  25 2d 35 32 0d 05 50 20  |ock%!8=y%-52..P |
00000c60  62 6c 6f 63 6b 25 21 31  32 3d 78 25 2b 34 30 2b  |block%!12=x%+40+|
00000c70  31 36 2b 31 36 2a a9 74  65 78 74 24 0d 05 5a 2c  |16+16*.text$..Z,|
00000c80  e7 20 28 65 73 67 5f 73  70 25 3c 31 29 20 84 20  |. (esg_sp%<1) . |
00000c90  28 65 73 67 5f 73 70 25  3e 33 31 29 20 8c 20 65  |(esg_sp%>31) . e|
00000ca0  73 67 5f 73 70 25 3d 31  0d 05 64 2a 62 6c 6f 63  |sg_sp%=1..d*bloc|
00000cb0  6b 25 21 32 30 3d 26 31  37 30 30 42 31 33 33 20  |k%!20=&1700B133 |
00000cc0  84 20 28 65 73 67 5f 73  70 25 2a 26 31 30 30 30  |. (esg_sp%*&1000|
00000cd0  30 29 0d 05 6e 32 e7 20  73 65 6c 25 20 62 6c 6f  |0)..n2. sel% blo|
00000ce0  63 6b 25 21 32 30 3d 26  31 37 32 30 42 31 33 33  |ck%!20=&1720B133|
00000cf0  20 84 20 28 65 73 67 5f  73 70 25 2a 26 31 30 30  | . (esg_sp%*&100|
00000d00  30 30 29 3a 0d 05 78 2b  de 20 74 65 78 74 5f 73  |00):..x+. text_s|
00000d10  70 61 63 65 25 20 28 32  2b a9 22 73 72 61 64 69  |pace% (2+."sradi|
00000d20  6f 6f 66 66 2c 72 61 64  69 6f 6f 6e 22 29 3a 0d  |ooff,radioon"):.|
00000d30  05 82 24 24 74 65 78 74  5f 73 70 61 63 65 25 3d  |..$$text_space%=|
00000d40  22 73 72 61 64 69 6f 6f  66 66 2c 72 61 64 69 6f  |"sradiooff,radio|
00000d50  6f 6e 22 0d 05 8c 19 62  6c 6f 63 6b 25 21 32 38  |on"....block%!28|
00000d60  3d 74 65 78 74 5f 73 70  61 63 65 25 0d 05 96 0d  |=text_space%....|
00000d70  c9 20 22 77 72 69 74 65  22 0d 05 a0 1d 62 6c 6f  |. "write"....blo|
00000d80  63 6b 25 21 31 32 3d 78  25 2b 31 36 2b 31 36 2a  |ck%!12=x%+16+16*|
00000d90  a9 74 65 78 74 24 0d 05  aa 17 62 6c 6f 63 6b 25  |.text$....block%|
00000da0  21 32 30 3d 26 30 37 30  30 46 31 33 35 0d 05 b4  |!20=&0700F135...|
00000db0  14 de 20 76 61 6c 5f 73  70 61 63 65 25 20 31 36  |.. val_space% 16|
00000dc0  3a 0d 05 be 12 24 76 61  6c 5f 73 70 61 63 65 25  |:....$val_space%|
00000dd0  3d 22 22 0d 05 c8 18 62  6c 6f 63 6b 25 21 32 38  |=""....block%!28|
00000de0  3d 76 61 6c 5f 73 70 61  63 65 25 0d 05 d2 1f e7  |=val_space%.....|
00000df0  20 73 65 6c 25 3c 28 a9  74 65 78 74 24 29 20 73  | sel%<(.text$) s|
00000e00  65 6c 25 3d a9 74 65 78  74 24 0d 05 dc 14 62 6c  |el%=.text$....bl|
00000e10  6f 63 6b 25 21 33 32 3d  73 65 6c 25 2b 31 0d 05  |ock%!32=sel%+1..|
00000e20  e6 05 cb 0d 05 f0 28 c8  99 20 22 57 69 6d 70 5f  |......(.. "Wimp_|
00000e30  43 72 65 61 74 65 49 63  6f 6e 22 2c 2c 62 6c 6f  |CreateIcon",,blo|
00000e40  63 6b 25 20 b8 20 69 63  6f 6e 25 0d 05 fa 2b e7  |ck% . icon%...+.|
00000e50  20 62 6f 72 64 65 72 25  3e 30 20 f2 62 6f 72 64  | border%>0 .bord|
00000e60  65 72 5f 69 63 6f 6e 28  77 69 6e 64 6f 77 25 2c  |er_icon(window%,|
00000e70  69 63 6f 6e 25 29 0d 06  04 0a 3d 69 63 6f 6e 25  |icon%)....=icon%|
00000e80  0d 06 0e 04 0d 06 18 05  3a 0d 06 22 04 0d 06 2c  |........:.."...,|
00000e90  16 dd a4 66 69 6c 65 5f  73 69 7a 65 28 66 69 6c  |...file_size(fil|
00000ea0  65 24 29 0d 06 36 0f ea  20 73 25 2c 66 6f 75 6e  |e$)..6.. s%,foun|
00000eb0  64 25 0d 06 40 27 c8 99  22 4f 53 5f 46 69 6c 65  |d%..@'.."OS_File|
00000ec0  22 2c 31 37 2c 66 69 6c  65 24 20 b8 20 66 6f 75  |",17,file$ . fou|
00000ed0  6e 64 25 2c 2c 2c 2c 73  25 0d 06 4a 32 e7 20 66  |nd%,,,,s%..J2. f|
00000ee0  6f 75 6e 64 25 3c 3e 31  20 8c 20 f2 72 65 70 6f  |ound%<>1 . .repo|
00000ef0  72 74 5f 65 72 72 6f 72  28 22 46 69 6c 65 20 6e  |rt_error("File n|
00000f00  6f 74 20 66 6f 75 6e 64  21 22 29 0d 06 54 07 3d  |ot found!")..T.=|
00000f10  73 25 0d 06 5e 04 0d 06  68 05 3a 0d 06 72 0f dd  |s%..^...h.:..r..|
00000f20  f2 74 69 64 79 73 6f 75  6e 64 0d 06 7c 07 ea 20  |.tidysound..|.. |
00000f30  85 0d 06 86 0b ee 20 85  20 ea 20 e1 0d 06 90 13  |...... . . .....|
00000f40  2a 52 4d 6b 69 6c 6c 20  42 42 43 4e 65 77 73 0d  |*RMkill BBCNews.|
00000f50  06 9a 22 2a 43 68 61 6e  6e 65 6c 56 6f 69 63 65  |.."*ChannelVoice|
00000f60  20 31 20 57 61 76 65 53  79 6e 74 68 2d 42 65 65  | 1 WaveSynth-Bee|
00000f70  70 0d 06 a4 05 e1 0d 06  ae 04 0d 06 b8 05 3a 0d  |p.............:.|
00000f80  06 c2 0b dd a4 65 72 72  6f 72 0d 06 cc 0d 21 62  |.....error....!b|
00000f90  6c 6f 63 6b 25 3d 9f 0d  06 d6 10 c8 8e 20 21 62  |lock%=....... !b|
00000fa0  6c 6f 63 6b 25 20 ca 0d  06 e0 1e c9 20 31 3c 3c  |lock% ...... 1<<|
00000fb0  33 30 3a 65 72 72 5f 73  74 72 24 3d 22 22 3a 62  |30:err_str$="":b|
00000fc0  6f 78 25 3d 33 0d 06 ea  24 7f 3a 65 72 72 5f 73  |ox%=3...$.:err_s|
00000fd0  74 72 24 3d 22 20 61 74  20 6c 69 6e 65 20 22 2b  |tr$=" at line "+|
00000fe0  c3 9e 3a 62 6f 78 25 3d  32 0d 06 f4 05 cb 0d 06  |..:box%=2.......|
00000ff0  fe 26 24 28 62 6c 6f 63  6b 25 2b 34 29 3d f6 24  |.&$(block%+4)=.$|
00001000  2b 65 72 72 5f 73 74 72  24 2b c3 9e 2b c3 9f 2b  |+err_str$+..+..+|
00001010  bd 28 30 29 0d 07 08 3b  c8 99 20 22 57 69 6d 70  |.(0)...;.. "Wimp|
00001020  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 62 6c  |_ReportError",bl|
00001030  6f 63 6b 25 2c 62 6f 78  25 2c 61 70 70 6e 61 6d  |ock%,box%,appnam|
00001040  65 24 20 b8 20 2c 72 65  73 70 6f 6e 73 65 25 0d  |e$ . ,response%.|
00001050  07 12 12 3d 28 72 65 73  70 6f 6e 73 65 25 3d 32  |...=(response%=2|
00001060  29 0d 07 1c 04 0d 07 26  05 3a 0d 07 30 04 0d 07  |)......&.:..0...|
00001070  3a 13 dd 20 a4 67 65 74  5f 72 75 6e 5f 69 6e 66  |:.. .get_run_inf|
00001080  6f 0d 07 44 11 20 61 75  74 6f 73 74 61 72 74 25  |o..D. autostart%|
00001090  3d a3 0d 07 4e 19 20 c8  99 22 4f 53 5f 47 65 74  |=...N. .."OS_Get|
000010a0  45 6e 76 22 20 b8 20 65  6e 76 24 0d 07 58 17 20  |Env" . env$..X. |
000010b0  e7 20 a7 65 6e 76 24 2c  22 2d 71 75 69 74 22 29  |. .env$,"-quit")|
000010c0  20 8c 0d 07 62 13 20 49  25 3d a7 65 6e 76 24 2c  | ...b. I%=.env$,|
000010d0  22 22 22 22 29 0d 07 6c  18 20 49 25 3d a7 65 6e  |"""")..l. I%=.en|
000010e0  76 24 2c 22 22 22 22 2c  49 25 2b 31 29 0d 07 76  |v$,"""",I%+1)..v|
000010f0  06 20 f5 0d 07 80 0c 20  20 20 49 25 2b 3d 31 0d  |. .....   I%+=1.|
00001100  07 8a 18 20 fd 20 c1 65  6e 76 24 2c 49 25 2c 31  |... . .env$,I%,1|
00001110  29 20 3c 3e 22 20 22 0d  07 94 13 20 65 6e 76 24  |) <>" ".... env$|
00001120  3d c1 65 6e 76 24 2c 49  25 29 0d 07 9e 2c 20 e7  |=.env$,I%)..., .|
00001130  20 65 6e 76 24 3d 22 22  20 8c 20 61 75 74 6f 73  | env$="" . autos|
00001140  74 61 72 74 25 3d a3 20  8b 20 61 75 74 6f 73 74  |tart%=. . autost|
00001150  61 72 74 25 3d b9 0d 07  a8 09 3d 65 6e 76 24 0d  |art%=.....=env$.|
00001160  07 b2 04 0d 07 bc 05 3a  0d 07 c6 04 0d 07 d0 1c  |.......:........|
00001170  20 dd 20 f2 73 70 6c 69  74 5f 6d 65 73 73 61 67  | . .split_messag|
00001180  65 28 74 65 78 74 24 29  0d 07 da 13 20 f4 20 6d  |e(text$).... . m|
00001190  65 73 73 61 67 65 31 24  3d 22 22 0d 07 e4 0b 20  |essage1$="".... |
000011a0  f4 20 78 25 3d 30 0d 07  ee 1a 20 63 6f 6d 6d 61  |. x%=0.... comma|
000011b0  70 6f 73 25 3d a7 74 65  78 74 24 2c 22 2c 22 29  |pos%=.text$,",")|
000011c0  0d 07 f8 27 20 63 6f 6d  6d 61 70 6f 73 32 25 3d  |...' commapos2%=|
000011d0  a7 74 65 78 74 24 2c 22  2c 22 2c 63 6f 6d 6d 61  |.text$,",",comma|
000011e0  70 6f 73 25 2b 31 29 0d  08 02 20 20 20 74 65 78  |pos%+1)...   tex|
000011f0  74 31 24 3d c0 74 65 78  74 24 2c 63 6f 6d 6d 61  |t1$=.text$,comma|
00001200  70 6f 73 25 2d 31 29 0d  08 0c 39 20 20 74 65 78  |pos%-1)...9  tex|
00001210  74 32 24 3d c1 74 65 78  74 24 2c 63 6f 6d 6d 61  |t2$=.text$,comma|
00001220  70 6f 73 25 2b 31 2c 63  6f 6d 6d 61 70 6f 73 32  |pos%+1,commapos2|
00001230  25 2d 28 63 6f 6d 6d 61  70 6f 73 25 2b 31 29 29  |%-(commapos%+1))|
00001240  0d 08 16 21 20 20 74 65  78 74 33 24 3d c1 74 65  |...!  text3$=.te|
00001250  78 74 24 2c 63 6f 6d 6d  61 70 6f 73 32 25 2b 31  |xt$,commapos2%+1|
00001260  29 0d 08 20 06 20 cd 0d  08 2a 06 20 e1 0d 08 34  |).. . ...*. ...4|
00001270  04 0d 08 3e 05 3a 0d 08  48 04 0d 08 52 14 dd 20  |...>.:..H...R.. |
00001280  f2 64 65 66 69 6e 65 5f  61 72 72 61 79 73 0d 08  |.define_arrays..|
00001290  5c 17 20 f4 20 70 72 6f  67 72 61 6d 20 70 6f 69  |\. . program poi|
000012a0  6e 74 65 72 73 0d 08 66  12 20 de 20 6f 70 65 6e  |nters..f. . open|
000012b0  65 64 25 28 37 38 29 0d  08 70 11 20 20 20 e3 20  |ed%(78)..p.   . |
000012c0  78 3d 30 20 b8 20 37 38  0d 08 7a 15 20 20 20 20  |x=0 . 78..z.    |
000012d0  20 6f 70 65 6e 65 64 25  28 78 29 3d a3 0d 08 84  | opened%(x)=....|
000012e0  08 20 20 20 ed 0d 08 8e  14 20 de 20 64 65 6c 61  |.   ..... . dela|
000012f0  79 24 28 37 38 2c 37 38  29 0d 08 98 14 20 de 20  |y$(78,78).... . |
00001300  63 6f 6e 74 65 6e 74 73  24 28 37 38 29 0d 08 a2  |contents$(78)...|
00001310  0e 20 de 20 62 75 66 20  32 35 36 0d 08 ac 11 20  |. . buf 256.... |
00001320  de 20 62 75 66 66 65 72  20 32 35 36 0d 08 b6 12  |. buffer 256....|
00001330  20 de 20 62 75 66 66 65  72 25 20 32 35 36 0d 08  | . buffer% 256..|
00001340  c0 11 20 de 20 63 61 72  65 74 25 20 32 35 36 0d  |.. . caret% 256.|
00001350  08 ca 12 20 de 6f 77 6e  70 61 74 68 25 28 37 38  |... .ownpath%(78|
00001360  29 0d 08 d4 0e e3 20 78  3d 30 20 b8 20 37 38 0d  |)..... x=0 . 78.|
00001370  08 de 11 6f 77 6e 70 61  74 68 25 28 78 29 3d a3  |...ownpath%(x)=.|
00001380  0d 08 e8 05 ed 0d 08 f2  05 e1 0d 08 fc 04 0d 09  |................|
00001390  06 05 3a 0d 09 10 04 0d  09 1a 17 dd 20 f2 64 65  |..:......... .de|
000013a0  66 69 6e 65 5f 76 61 72  69 61 62 6c 65 73 0d 09  |fine_variables..|
000013b0  24 18 20 f4 20 70 72 6f  67 72 61 6d 20 76 61 72  |$. . program var|
000013c0  69 61 62 6c 65 73 0d 09  2e 08 20 d1 3d 30 0d 09  |iables.... .=0..|
000013d0  38 0c 73 74 61 72 74 25  3d a3 0d 09 42 0d 20 70  |8.start%=...B. p|
000013e0  61 75 73 65 25 3d a3 0d  09 4c 11 20 66 69 6c 65  |ause%=...L. file|
000013f0  6e 61 6d 65 24 3d 22 22  0d 09 56 0c 20 64 6f 6e  |name$=""..V. don|
00001400  65 25 3d a3 0d 09 60 0c  20 71 75 69 74 25 3d a3  |e%=...`. quit%=.|
00001410  0d 09 6a 10 20 6e 6f 73  63 72 69 70 74 25 3d a3  |..j. noscript%=.|
00001420  0d 09 74 15 20 66 69 6c  65 6d 65 6e 75 24 3d 22  |..t. filemenu$="|
00001430  53 68 6f 77 22 0d 09 7e  12 20 63 75 72 72 65 6e  |Show"..~. curren|
00001440  74 70 6f 73 25 3d 30 0d  09 88 0e 20 73 74 6f 72  |tpos%=0.... stor|
00001450  79 24 3d 22 22 0d 09 92  0d 20 73 6f 75 6e 64 25  |y$="".... sound%|
00001460  3d b9 0d 09 9c 10 20 69  73 69 74 71 75 69 74 25  |=..... isitquit%|
00001470  3d a3 0d 09 a6 0d 20 73  61 76 65 64 25 3d a3 0d  |=..... saved%=..|
00001480  09 b0 10 20 63 61 72 65  74 73 65 74 25 3d a3 0d  |... caretset%=..|
00001490  09 ba 0d 20 74 69 6d 65  72 25 3d 30 0d 09 c4 0e  |... timer%=0....|
000014a0  20 69 6e 73 65 72 74 25  3d a3 0d 09 ce 13 20 73  | insert%=..... s|
000014b0  74 6f 70 77 69 6e 6f 70  65 6e 25 3d a3 0d 09 d8  |topwinopen%=....|
000014c0  12 20 73 6f 75 6e 64 64  65 6c 61 79 25 3d 30 0d  |. sounddelay%=0.|
000014d0  09 e2 0a 20 70 6f 73 3d  30 0d 09 ec 0d 20 66 69  |... pos=0.... fi|
000014e0  72 73 74 25 3d b9 0d 09  f6 12 20 73 63 72 6f 6c  |rst%=..... scrol|
000014f0  6c 74 69 6d 65 25 3d 30  0d 0a 00 13 20 73 63 72  |ltime%=0.... scr|
00001500  6f 6c 6c 74 69 6d 65 32  25 3d 30 0d 0a 0a 05 e1  |olltime2%=0.....|
00001510  0d 0a 14 04 0d 0a 1e 05  3a 0d 0a 28 04 0d 0a 32  |........:..(...2|
00001520  13 dd f2 72 65 61 64 5f  6d 65 73 73 61 67 65 73  |...read_messages|
00001530  0d 0a 3c 45 c8 99 20 22  4d 65 73 73 61 67 65 54  |..<E.. "MessageT|
00001540  72 61 6e 73 5f 46 69 6c  65 49 6e 66 6f 22 2c 2c  |rans_FileInfo",,|
00001550  22 3c 4e 65 77 73 44 65  73 6b 24 44 69 72 3e 2e  |"<NewsDesk$Dir>.|
00001560  4d 65 73 73 61 67 65 73  22 20 b8 20 66 25 2c 2c  |Messages" . f%,,|
00001570  73 69 7a 65 25 0d 0a 46  28 e7 20 28 66 25 20 80  |size%..F(. (f% .|
00001580  20 31 29 20 3d 20 30 20  8c 20 de 20 6d 73 67 5f  | 1) = 0 . . msg_|
00001590  62 75 66 66 65 72 25 20  73 69 7a 65 25 0d 0a 50  |buffer% size%..P|
000015a0  0f de 20 6d 73 67 73 25  20 32 35 36 0d 0a 5a 2b  |.. msgs% 256..Z+|
000015b0  24 28 6d 73 67 73 25 2b  31 36 29 20 3d 20 22 3c  |$(msgs%+16) = "<|
000015c0  4e 65 77 73 44 65 73 6b  24 44 69 72 3e 2e 4d 65  |NewsDesk$Dir>.Me|
000015d0  73 73 61 67 65 73 22 0d  0a 64 39 c8 99 20 22 4d  |ssages"..d9.. "M|
000015e0  65 73 73 61 67 65 54 72  61 6e 73 5f 4f 70 65 6e  |essageTrans_Open|
000015f0  46 69 6c 65 22 2c 6d 73  67 73 25 2c 6d 73 67 73  |File",msgs%,msgs|
00001600  25 2b 31 36 2c 6d 73 67  5f 62 75 66 66 65 72 25  |%+16,msg_buffer%|
00001610  0d 0a 6e 12 de 20 6d 73  67 5f 6f 75 74 25 20 32  |..n.. msg_out% 2|
00001620  35 36 0d 0a 78 25 c8 99  20 22 4d 65 73 73 61 67  |56..x%.. "Messag|
00001630  65 54 72 61 6e 73 5f 43  6c 6f 73 65 46 69 6c 65  |eTrans_CloseFile|
00001640  22 2c 6d 73 67 73 25 0d  0a 82 2d 61 70 70 6e 61  |",msgs%...-appna|
00001650  6d 65 24 3d a4 6d 73 67  74 72 61 6e 73 5f 6c 6f  |me$=.msgtrans_lo|
00001660  6f 6b 75 70 28 22 61 70  70 6e 61 6d 65 22 2c c3  |okup("appname",.|
00001670  28 30 29 29 0d 0a 8c 2d  76 65 72 73 69 6f 6e 24  |(0))...-version$|
00001680  3d a4 6d 73 67 74 72 61  6e 73 5f 6c 6f 6f 6b 75  |=.msgtrans_looku|
00001690  70 28 22 76 65 72 73 69  6f 6e 22 2c c3 28 30 29  |p("version",.(0)|
000016a0  29 0d 0a 96 05 e1 0d 0a  a0 04 0d 0a aa 05 3a 0d  |).............:.|
000016b0  0a b4 04 0d 0a be 21 dd  a4 6d 73 67 74 72 61 6e  |......!..msgtran|
000016c0  73 5f 6c 6f 6f 6b 75 70  28 74 6f 6b 65 6e 24 2c  |s_lookup(token$,|
000016d0  70 30 24 29 0d 0a c8 4b  c8 99 20 22 4d 65 73 73  |p0$)...K.. "Mess|
000016e0  61 67 65 54 72 61 6e 73  5f 4c 6f 6f 6b 75 70 22  |ageTrans_Lookup"|
000016f0  2c 6d 73 67 73 25 2c 74  6f 6b 65 6e 24 2c 6d 73  |,msgs%,token$,ms|
00001700  67 5f 6f 75 74 25 2c 32  35 36 2c 70 30 24 2c 30  |g_out%,256,p0$,0|
00001710  2c 30 2c 30 20 b8 20 2c  2c 76 61 6c 75 65 24 0d  |,0,0 . ,,value$.|
00001720  0a d2 0b 3d 76 61 6c 75  65 24 0d 0a dc 04 0d 0a  |...=value$......|
00001730  e6 05 3a 0d 0a f0 04 0d  0a fa 11 dd 20 f2 69 6e  |..:......... .in|
00001740  69 74 69 61 6c 69 73 65  0d 0b 04 6a 20 de 20 62  |itialise...j . b|
00001750  6c 6f 63 6b 25 20 26 33  30 30 30 2c 20 69 62 6c  |lock% &3000, ibl|
00001760  6f 63 6b 25 20 26 33 30  30 30 2c 20 66 6f 6e 74  |ock% &3000, font|
00001770  25 20 26 34 30 30 30 2c  20 76 65 72 73 69 6f 6e  |% &4000, version|
00001780  25 20 26 32 30 2c 20 6d  65 6e 75 25 20 26 31 30  |% &20, menu% &10|
00001790  30 2c 20 73 74 6f 72 79  6d 65 6e 75 25 20 26 39  |0, storymenu% &9|
000017a0  30 30 2c 20 66 69 6c 65  6d 65 6e 75 25 20 26 39  |00, filemenu% &9|
000017b0  30 30 0d 0b 0e 04 0d 0b  18 47 20 f4 20 74 65 78  |00.......G . tex|
000017c0  74 73 24 20 75 73 65 64  20 62 79 20 50 52 4f 43  |ts$ used by PROC|
000017d0  73 70 6c 69 74 5f 6d 65  73 73 61 67 65 20 74 6f  |split_message to|
000017e0  20 73 74 72 69 70 20 6f  75 74 20 6d 65 73 73 61  | strip out messa|
000017f0  67 65 73 20 66 72 6f 6d  20 21 52 75 6e 0d 0b 22  |ges from !Run.."|
00001800  29 20 de 20 74 65 78 74  31 25 20 26 32 30 2c 20  |) . text1% &20, |
00001810  74 65 78 74 32 25 20 26  32 30 2c 20 74 65 78 74  |text2% &20, text|
00001820  33 25 20 26 32 30 0d 0b  2c 04 0d 0b 36 41 20 c8  |3% &20..,...6A .|
00001830  99 20 22 57 69 6d 70 5f  49 6e 69 74 69 61 6c 69  |. "Wimp_Initiali|
00001840  73 65 22 2c 32 30 30 2c  26 34 42 35 33 34 31 35  |se",200,&4B53415|
00001850  34 2c 61 70 70 6e 61 6d  65 24 20 b8 20 76 65 72  |4,appname$ . ver|
00001860  73 69 6f 6e 25 2c 74 61  73 6b 25 0d 0b 40 16 20  |sion%,task%..@. |
00001870  de 20 73 70 72 69 74 65  5f 6e 61 6d 65 25 20 32  |. sprite_name% 2|
00001880  36 0d 0b 4a 15 20 de 20  74 65 78 74 5f 73 70 61  |6..J. . text_spa|
00001890  63 65 25 20 32 34 0d 0b  54 05 e1 0d 0b 5e 04 0d  |ce% 24..T....^..|
000018a0  0b 68 05 3a 0d 0b 72 04  0d 0b 7c 1b dd 20 f2 72  |.h.:..r...|.. .r|
000018b0  65 61 64 5f 63 6f 6e 74  65 6e 74 73 28 70 61 74  |ead_contents(pat|
000018c0  68 24 29 0d 0b 86 16 73  74 6d 65 6e 75 24 3d 22  |h$)....stmenu$="|
000018d0  53 74 6f 72 69 65 73 2c  22 0d 0b 90 0a 69 74 65  |Stories,"....ite|
000018e0  6d 3d 30 0d 0b 9a 0d 6e  75 6d 62 65 72 25 3d 30  |m=0....number%=0|
000018f0  0d 0b a4 0f c8 95 20 69  74 65 6d 3c 3e 2d 31 0d  |...... item<>-1.|
00001900  0b ae 0e 6e 75 6d 62 65  72 25 2b 3d 31 0d 0b b8  |...number%+=1...|
00001910  39 20 20 20 c8 99 20 22  4f 53 5f 47 42 50 42 22  |9   .. "OS_GBPB"|
00001920  2c 31 30 2c 70 61 74 68  24 2c 62 75 66 2c 31 2c  |,10,path$,buf,1,|
00001930  69 74 65 6d 2c 32 35 36  2c 22 22 20 b8 20 2c 2c  |item,256,"" . ,,|
00001940  2c 2c 69 74 65 6d 0d 0b  c2 13 20 20 20 e7 20 69  |,,item....   . i|
00001950  74 65 6d 3c 3e 2d 31 20  8c 0d 0b cc 15 20 20 20  |tem<>-1 .....   |
00001960  20 20 20 c8 8e 20 62 75  66 21 31 36 20 ca 0d 0b  |   .. buf!16 ...|
00001970  d6 39 20 20 20 20 20 20  20 20 20 c9 20 31 3a f4  |.9         . 1:.|
00001980  20 6f 62 6a 65 63 74 20  69 73 20 61 20 73 69 6e  | object is a sin|
00001990  67 6c 65 20 66 69 6c 65  20 61 6e 64 20 6e 6f 74  |gle file and not|
000019a0  20 6f 66 20 75 73 65 0d  0b e0 4e 20 20 20 20 20  | of use...N     |
000019b0  20 20 20 20 c9 20 32 3a  20 73 74 6d 65 6e 75 24  |    . 2: stmenu$|
000019c0  2b 3d 2b a4 62 74 73 28  62 75 66 2b 32 30 29 2b  |+=+.bts(buf+20)+|
000019d0  bd 28 34 34 29 3a 63 6f  6e 74 65 6e 74 73 24 28  |.(44):contents$(|
000019e0  6e 75 6d 62 65 72 25 29  3d a4 62 74 73 28 62 75  |number%)=.bts(bu|
000019f0  66 2b 32 30 29 0d 0b ea  0b 20 20 20 20 20 20 cb  |f+20)....      .|
00001a00  0d 0b f4 08 20 20 20 cd  0d 0b fe 05 ce 0d 0c 08  |....   .........|
00001a10  23 73 74 6d 65 6e 75 24  3d c0 73 74 6d 65 6e 75  |#stmenu$=.stmenu|
00001a20  24 2c 28 a9 20 73 74 6d  65 6e 75 24 2d 31 29 29  |$,(. stmenu$-1))|
00001a30  0d 0c 12 26 f2 64 72 61  77 5f 6d 65 6e 75 28 73  |...&.draw_menu(s|
00001a40  74 6f 72 79 6d 65 6e 75  25 2c 73 74 6d 65 6e 75  |torymenu%,stmenu|
00001a50  24 2c 31 34 30 29 0d 0c  1c 05 e1 0d 0c 26 04 0d  |$,140).......&..|
00001a60  0c 30 05 3a 0d 0c 3a 04  0d 0c 44 1d dd 20 a4 62  |.0.:..:...D.. .b|
00001a70  74 73 28 69 6e 29 3a ea  20 63 6f 75 6e 74 65 72  |ts(in):. counter|
00001a80  2c 6f 75 74 24 0d 0c 4e  14 c8 95 20 69 6e 3f 63  |,out$..N... in?c|
00001a90  6f 75 6e 74 65 72 3e 33  31 0d 0c 58 1f 20 20 20  |ounter>31..X.   |
00001aa0  20 20 20 20 20 6f 75 74  24 2b 3d bd 28 69 6e 3f  |     out$+=.(in?|
00001ab0  63 6f 75 6e 74 65 72 29  0d 0c 62 16 20 20 20 20  |counter)..b.    |
00001ac0  20 20 20 20 63 6f 75 6e  74 65 72 2b 3d 31 0d 0c  |    counter+=1..|
00001ad0  6c 05 ce 0d 0c 76 09 3d  6f 75 74 24 0d 0c 80 04  |l....v.=out$....|
00001ae0  0d 0c 8a 05 3a 0d 0c 94  04 0d 0c 9e 27 dd 20 f2  |....:.......'. .|
00001af0  6c 6f 61 64 5f 74 65 6d  70 6c 61 74 65 73 28 74  |load_templates(t|
00001b00  65 6d 70 6c 66 69 6c 65  24 2c 73 69 7a 65 25 29  |emplfile$,size%)|
00001b10  0d 0c a8 1b 20 de 20 69  6e 64 69 72 65 63 74 62  |.... . indirectb|
00001b20  6c 6f 63 6b 25 20 73 69  7a 65 25 0d 0c b2 18 20  |lock% size%.... |
00001b30  69 6e 64 25 3d 69 6e 64  69 72 65 63 74 62 6c 6f  |ind%=indirectblo|
00001b40  63 6b 25 0d 0c bc 0f 20  de 20 6e 61 6d 65 25 20  |ck%.... . name% |
00001b50  31 32 0d 0c c6 27 20 c8  99 20 22 57 69 6d 70 5f  |12...' .. "Wimp_|
00001b60  4f 70 65 6e 54 65 6d 70  6c 61 74 65 22 2c 2c 74  |OpenTemplate",,t|
00001b70  65 6d 70 6c 66 69 6c 65  24 0d 0c d0 04 0d 0c da  |emplfile$.......|
00001b80  04 0d 0c e4 2a 20 4d 61  69 6e 57 48 61 6e 64 6c  |....* MainWHandl|
00001b90  65 25 3d a4 63 72 65 61  74 65 5f 77 69 6e 64 6f  |e%=.create_windo|
00001ba0  77 28 22 4d 61 69 6e 22  2c 31 29 0d 0c ee 2a 20  |w("Main",1)...* |
00001bb0  49 6e 66 6f 57 48 61 6e  64 6c 65 25 3d a4 63 72  |InfoWHandle%=.cr|
00001bc0  65 61 74 65 5f 77 69 6e  64 6f 77 28 22 49 6e 66  |eate_window("Inf|
00001bd0  6f 22 2c 30 29 0d 0c f8  30 20 4f 70 74 69 6f 6e  |o",0)...0 Option|
00001be0  73 57 48 61 6e 64 6c 65  25 3d a4 63 72 65 61 74  |sWHandle%=.creat|
00001bf0  65 5f 77 69 6e 64 6f 77  28 22 4f 70 74 69 6f 6e  |e_window("Option|
00001c00  73 22 2c 31 29 0d 0d 02  2e 20 42 61 6e 6e 65 72  |s",1).... Banner|
00001c10  57 48 61 6e 64 6c 65 25  3d a4 63 72 65 61 74 65  |WHandle%=.create|
00001c20  5f 77 69 6e 64 6f 77 28  22 42 61 6e 6e 65 72 22  |_window("Banner"|
00001c30  2c 30 29 0d 0d 0c 2a 20  53 61 76 65 57 48 61 6e  |,0)...* SaveWHan|
00001c40  64 6c 65 25 3d a4 63 72  65 61 74 65 5f 77 69 6e  |dle%=.create_win|
00001c50  64 6f 77 28 22 53 61 76  65 22 2c 31 29 0d 0d 16  |dow("Save",1)...|
00001c60  2a 20 51 75 69 74 57 48  61 6e 64 6c 65 25 3d a4  |* QuitWHandle%=.|
00001c70  63 72 65 61 74 65 5f 77  69 6e 64 6f 77 28 22 71  |create_window("q|
00001c80  75 69 74 22 2c 30 29 0d  0d 20 2e 20 53 74 61 74  |uit",0).. . Stat|
00001c90  75 73 57 48 61 6e 64 6c  65 25 3d a4 63 72 65 61  |usWHandle%=.crea|
00001ca0  74 65 5f 77 69 6e 64 6f  77 28 22 53 74 61 74 75  |te_window("Statu|
00001cb0  73 22 2c 31 29 0d 0d 2a  1c 20 c8 99 20 22 57 69  |s",1)..*. .. "Wi|
00001cc0  6d 70 5f 43 6c 6f 73 65  54 65 6d 70 6c 61 74 65  |mp_CloseTemplate|
00001cd0  22 0d 0d 34 05 e1 0d 0d  3e 04 0d 0d 48 05 3a 0d  |"..4....>...H.:.|
00001ce0  0d 52 04 0d 0d 5c 28 dd  20 a4 63 72 65 61 74 65  |.R...\(. .create|
00001cf0  5f 77 69 6e 64 6f 77 28  24 6e 61 6d 65 25 2c 73  |_window($name%,s|
00001d00  70 72 69 74 65 61 72 65  61 25 29 0d 0d 66 20 20  |pritearea%)..f  |
00001d10  f4 20 74 68 69 73 20 63  72 65 61 74 65 73 20 74  |. this creates t|
00001d20  68 65 20 77 69 6e 64 6f  77 73 2e 0d 0d 70 35 20  |he windows...p5 |
00001d30  f4 20 73 70 72 69 74 65  61 72 65 61 25 20 73 68  |. spritearea% sh|
00001d40  6f 75 6c 64 20 62 65 20  30 20 66 6f 72 20 61 20  |ould be 0 for a |
00001d50  74 65 78 74 20 6f 6e 6c  79 20 77 69 6e 64 6f 77  |text only window|
00001d60  0d 0d 7a 29 20 f4 20 61  6e 64 20 31 20 66 6f 72  |..z) . and 1 for|
00001d70  20 61 20 77 69 6e 64 6f  77 20 77 69 74 68 20 73  | a window with s|
00001d80  70 72 69 74 65 73 20 69  6e 0d 0d 84 04 0d 0d 8e  |prites in.......|
00001d90  0c 20 ea 20 68 61 6e 64  25 0d 0d 98 4f 20 c8 99  |. . hand%...O ..|
00001da0  20 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  | "Wimp_LoadTempl|
00001db0  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 2c 69 6e 64  |ate",,block%,ind|
00001dc0  25 2c 69 6e 64 25 2b 73  69 7a 65 25 2c 66 6f 6e  |%,ind%+size%,fon|
00001dd0  74 25 2b 69 6e 64 25 2c  6e 61 6d 65 25 2c 30 20  |t%+ind%,name%,0 |
00001de0  b8 20 2c 2c 69 6e 64 25  0d 0d a2 1a 20 62 6c 6f  |. ,,ind%.... blo|
00001df0  63 6b 25 21 36 34 3d 73  70 72 69 74 65 61 72 65  |ck%!64=spriteare|
00001e00  61 25 0d 0d ac 2b 20 c8  99 20 22 57 69 6d 70 5f  |a%...+ .. "Wimp_|
00001e10  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 62  |CreateWindow",,b|
00001e20  6c 6f 63 6b 25 20 b8 20  68 61 6e 64 25 0d 0d b6  |lock% . hand%...|
00001e30  0a 3d 68 61 6e 64 25 0d  0d c0 04 0d 0d ca 05 3a  |.=hand%........:|
00001e40  0d 0d d4 04 0d 0d de 2e  dd 20 f2 63 68 61 6e 67  |......... .chang|
00001e50  65 5f 69 63 6f 6e 28 62  6c 6f 63 6b 25 2c 77 69  |e_icon(block%,wi|
00001e60  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 74 65 78 74  |ndow%,icon%,text|
00001e70  24 29 0d 0d e8 14 20 21  62 6c 6f 63 6b 25 3d 77  |$).... !block%=w|
00001e80  69 6e 64 6f 77 25 0d 0d  f2 13 20 62 6c 6f 63 6b  |indow%.... block|
00001e90  25 21 34 3d 69 63 6f 6e  25 0d 0d fc 23 20 c8 99  |%!4=icon%...# ..|
00001ea0  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
00001eb0  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 0e 06 17  |ate",,block%....|
00001ec0  20 24 28 62 6c 6f 63 6b  25 21 32 38 29 3d 74 65  | $(block%!28)=te|
00001ed0  78 74 24 0d 0e 10 14 20  21 62 6c 6f 63 6b 25 3d  |xt$.... !block%=|
00001ee0  77 69 6e 64 6f 77 25 0d  0e 1a 13 20 62 6c 6f 63  |window%.... bloc|
00001ef0  6b 25 21 34 3d 69 63 6f  6e 25 0d 0e 24 0f 20 62  |k%!4=icon%..$. b|
00001f00  6c 6f 63 6b 25 21 38 3d  30 0d 0e 2e 10 20 62 6c  |lock%!8=0.... bl|
00001f10  6f 63 6b 25 21 31 32 3d  30 0d 0e 38 22 20 c8 99  |ock%!12=0..8" ..|
00001f20  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00001f30  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 0e 42 05 e1  |te",,block%..B..|
00001f40  0d 0e 4c 04 0d 0e 56 05  3a 0d 0e 60 04 0d 0e 6a  |..L...V.:..`...j|
00001f50  18 dd 20 f2 73 65 74 5f  73 61 76 65 5f 76 61 72  |.. .set_save_var|
00001f60  69 61 62 6c 65 0d 0e 74  19 20 21 62 6c 6f 63 6b  |iable..t. !block|
00001f70  25 3d 53 61 76 65 57 48  61 6e 64 6c 65 25 0d 0e  |%=SaveWHandle%..|
00001f80  7e 0f 20 62 6c 6f 63 6b  25 21 34 3d 30 0d 0e 88  |~. block%!4=0...|
00001f90  23 20 c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |# .. "Wimp_GetIc|
00001fa0  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |onState",,block%|
00001fb0  0d 0e 92 16 20 73 62 74  65 78 74 25 3d 62 6c 6f  |.... sbtext%=blo|
00001fc0  63 6b 25 21 32 38 0d 0e  9c 05 e1 0d 0e a6 04 0d  |ck%!28..........|
00001fd0  0e b0 05 3a 0d 0e ba 04  0d 0e c4 25 dd 20 f2 64  |...:.......%. .d|
00001fe0  72 61 77 5f 6d 65 6e 75  28 6d 65 6e 75 25 2c 6d  |raw_menu(menu%,m|
00001ff0  65 6e 75 24 2c 6c 65 6e  67 74 68 25 29 0d 0e ce  |enu$,length%)...|
00002000  24 20 f4 20 74 68 69 73  20 77 69 6c 6c 20 64 72  |$ . this will dr|
00002010  61 77 20 61 20 6d 65 6e  75 20 66 6f 72 20 79 6f  |aw a menu for yo|
00002020  75 0d 0e d8 40 20 6d 65  6e 75 25 3f 31 32 3d 37  |u...@ menu%?12=7|
00002030  20 20 20 20 20 20 20 20  20 20 20 20 20 3a f4 20  |             :. |
00002040  54 69 74 6c 65 20 66 6f  72 65 67 72 6f 75 6e 64  |Title foreground|
00002050  20 61 6e 64 20 66 72 61  6d 65 20 63 6f 6c 6f 75  | and frame colou|
00002060  72 0d 0e e2 2f 20 6d 65  6e 75 25 3f 31 33 3d 32  |r.../ menu%?13=2|
00002070  20 20 20 20 20 20 20 20  20 20 20 20 20 3a f4 20  |             :. |
00002080  54 69 74 6c 65 20 62 61  63 6b 67 72 6f 75 6e 64  |Title background|
00002090  0d 0e ec 3c 20 6d 65 6e  75 25 3f 31 34 3d 37 20  |...< menu%?14=7 |
000020a0  20 20 20 20 20 20 20 20  20 20 20 20 3a f4 20 4d  |            :. M|
000020b0  65 6e 75 20 77 6f 72 6b  61 72 65 61 20 66 27 67  |enu workarea f'g|
000020c0  72 6f 75 6e 64 20 63 6f  6c 6f 75 72 0d 0e f6 3c  |round colour...<|
000020d0  20 6d 65 6e 75 25 3f 31  35 3d 30 20 20 20 20 20  | menu%?15=0     |
000020e0  20 20 20 20 20 20 20 20  3a f4 20 4d 65 6e 75 20  |        :. Menu |
000020f0  77 6f 72 6b 61 72 65 61  20 62 27 67 72 6f 75 6e  |workarea b'groun|
00002100  64 20 63 6f 6c 6f 75 72  0d 0f 00 29 20 6d 65 6e  |d colour...) men|
00002110  75 25 21 31 36 3d 6c 65  6e 67 74 68 25 20 20 20  |u%!16=length%   |
00002120  20 20 20 20 3a f4 20 4d  65 6e 75 20 77 69 64 74  |    :. Menu widt|
00002130  68 0d 0f 0a 4c 20 6d 65  6e 75 25 21 32 30 3d 34  |h...L menu%!20=4|
00002140  34 20 20 20 20 20 20 20  20 20 20 20 20 3a f4 20  |4            :. |
00002150  68 65 69 67 68 74 20 6f  66 20 65 61 63 68 20 65  |height of each e|
00002160  6e 74 72 79 20 28 34 34  20 72 65 63 6f 6d 65 6e  |ntry (44 recomen|
00002170  64 65 64 20 62 79 20 61  63 6f 72 6e 29 0d 0f 14  |ded by acorn)...|
00002180  39 20 6d 65 6e 75 25 21  32 34 3d 30 20 20 20 20  |9 menu%!24=0    |
00002190  20 20 20 20 20 20 20 20  20 3a f4 20 76 65 72 74  |         :. vert|
000021a0  69 63 61 6c 20 67 61 70  20 62 65 74 77 65 65 6e  |ical gap between|
000021b0  20 69 74 65 6d 73 0d 0f  1e 32 20 70 74 72 25 3d  | items...2 ptr%=|
000021c0  6d 65 6e 75 25 2b 32 38  20 20 20 20 20 20 20 20  |menu%+28        |
000021d0  20 20 3a f4 20 70 6f 69  6e 74 20 74 6f 20 6d 65  |  :. point to me|
000021e0  6e 75 20 69 74 65 6d 73  0d 0f 28 21 20 24 6d 65  |nu items..(! $me|
000021f0  6e 75 25 3d c0 6d 65 6e  75 24 2c a7 6d 65 6e 75  |nu%=.menu$,.menu|
00002200  24 2c 22 2c 22 29 2d 31  29 0d 0f 32 0f 20 6d 65  |$,",")-1)..2. me|
00002210  6e 75 24 2b 3d 22 2c 22  0d 0f 3c 0f 20 65 6e 74  |nu$+=","..<. ent|
00002220  72 69 65 73 25 3d 30 0d  0f 46 12 20 20 c8 95 20  |ries%=0..F.  .. |
00002230  6d 65 6e 75 24 3c 3e 22  22 0d 0f 50 22 20 20 20  |menu$<>""..P"   |
00002240  6d 65 6e 75 24 3d c1 6d  65 6e 75 24 2c a7 6d 65  |menu$=.menu$,.me|
00002250  6e 75 24 2c 22 2c 22 29  2b 31 29 0d 0f 5a 15 20  |nu$,",")+1)..Z. |
00002260  20 20 20 e7 20 6d 65 6e  75 24 3c 3e 22 22 20 8c  |   . menu$<>"" .|
00002270  0d 0f 64 10 20 20 20 20  20 21 70 74 72 25 3d 30  |..d.     !ptr%=0|
00002280  0d 0f 6e 12 20 20 20 20  20 70 74 72 25 21 34 3d  |..n.     ptr%!4=|
00002290  2d 31 0d 0f 78 18 20 20  20 20 20 70 74 72 25 21  |-1..x.     ptr%!|
000022a0  38 3d 26 37 30 30 30 30  32 31 0d 0f 82 29 20 20  |8=&7000021...)  |
000022b0  20 20 20 24 28 70 74 72  25 2b 31 32 29 3d c0 6d  |   $(ptr%+12)=.m|
000022c0  65 6e 75 24 2c a7 6d 65  6e 75 24 2c 22 2c 22 29  |enu$,.menu$,",")|
000022d0  2d 31 29 0d 0f 8c 11 20  20 20 20 20 70 74 72 25  |-1)....     ptr%|
000022e0  2b 3d 32 34 0d 0f 96 14  20 20 20 20 20 65 6e 74  |+=24....     ent|
000022f0  72 69 65 73 25 2b 3d 31  0d 0f a0 09 20 20 20 20  |ries%+=1....    |
00002300  cd 0d 0f aa 07 20 20 ce  0d 0f b4 34 20 70 74 72  |.....  ....4 ptr|
00002310  25 21 2d 32 34 3d 70 74  72 25 21 2d 32 34 20 84  |%!-24=ptr%!-24 .|
00002320  20 26 38 30 20 20 20 20  3a f4 20 6d 61 72 6b 20  | &80    :. mark |
00002330  69 74 65 6d 20 61 73 20  6c 61 73 74 0d 0f be 05  |item as last....|
00002340  e1 0d 0f c8 04 0d 0f d2  05 3a 0d 0f dc 04 0d 0f  |.........:......|
00002350  e6 31 dd 20 f2 73 68 6f  77 5f 6d 65 6e 75 28 6d  |.1. .show_menu(m|
00002360  65 6e 75 25 2c 78 25 2c  79 25 2c 6f 6e 69 63 6f  |enu%,x%,y%,onico|
00002370  6e 62 61 72 25 2c 65 6e  74 72 69 65 73 25 29 0d  |nbar%,entries%).|
00002380  0f f0 36 20 e7 20 6f 6e  69 63 6f 6e 62 61 72 25  |..6 . oniconbar%|
00002390  20 8c 20 79 70 6f 73 25  3d 39 36 2b 65 6e 74 72  | . ypos%=96+entr|
000023a0  69 65 73 25 2a 34 34 20  8b 20 79 70 6f 73 25 3d  |ies%*44 . ypos%=|
000023b0  79 25 2b 32 30 0d 0f fa  2b 20 c8 99 22 57 69 6d  |y%+20...+ .."Wim|
000023c0  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 6d  |p_CreateMenu",,m|
000023d0  65 6e 75 25 2c 78 25 2d  36 34 2c 79 70 6f 73 25  |enu%,x%-64,ypos%|
000023e0  0d 10 04 05 e1 0d 10 0e  04 0d 10 18 05 3a 0d 10  |.............:..|
000023f0  22 04 0d 10 2c 12 dd 20  f2 6d 65 6e 75 5f 73 65  |"...,.. .menu_se|
00002400  6c 65 63 74 0d 10 36 14  63 68 6f 69 63 65 25 3d  |lect..6.choice%=|
00002410  62 6c 6f 63 6b 25 21 30  0d 10 40 15 63 68 6f 69  |block%!0..@.choi|
00002420  63 65 32 25 3d 62 6c 6f  63 6b 25 21 34 0d 10 4a  |ce2%=block%!4..J|
00002430  15 20 c8 8e 20 6d 65 6e  75 6f 6e 73 68 6f 77 25  |. .. menuonshow%|
00002440  20 ca 0d 10 54 0f 20 20  20 20 c9 20 6d 65 6e 75  | ...T.    . menu|
00002450  25 0d 10 5e 19 20 20 20  20 20 e7 20 63 68 6f 69  |%..^.     . choi|
00002460  63 65 32 25 3c 3e 2d 31  20 8c 0d 10 68 20 20 20  |ce2%<>-1 ...h   |
00002470  20 20 20 20 20 20 20 20  20 e7 20 63 75 72 72 65  |         . curre|
00002480  6e 74 70 6f 73 25 3d 30  20 8c 0d 10 72 39 20 20  |ntpos%=0 ...r9  |
00002490  20 20 20 20 20 20 20 20  20 20 6e 6f 66 69 6c 65  |          nofile|
000024a0  73 24 3d a4 6d 73 67 74  72 61 6e 73 5f 6c 6f 6f  |s$=.msgtrans_loo|
000024b0  6b 75 70 28 22 4e 6f 66  69 6c 65 73 22 2c c3 28  |kup("Nofiles",.(|
000024c0  30 29 29 0d 10 7c 29 20  20 20 20 20 20 20 20 20  |0))..|)         |
000024d0  20 20 20 f2 72 65 70 6f  72 74 5f 65 72 72 6f 72  |   .report_error|
000024e0  28 6e 6f 66 69 6c 65 73  24 29 3a e1 0d 10 86 10  |(nofiles$):.....|
000024f0  20 20 20 20 20 20 20 20  20 20 20 cd 0d 10 90 4f  |           ....O|
00002500  20 20 20 20 20 20 20 20  20 20 20 e7 20 63 75 72  |           . cur|
00002510  72 65 6e 74 70 6f 73 25  3e 30 20 8c 20 ff 22 46  |rentpos%>0 . ."F|
00002520  69 6c 65 72 5f 52 75 6e  20 22 2b 66 69 6c 65 6e  |iler_Run "+filen|
00002530  61 6d 65 24 2b 22 2e 22  2b 64 65 6c 61 79 24 28  |ame$+"."+delay$(|
00002540  63 68 6f 69 63 65 32 25  2c 31 29 0d 10 9a 0a 20  |choice2%,1).... |
00002550  20 20 20 20 cd 0d 10 a4  15 20 20 20 20 20 c8 8e  |    .....     ..|
00002560  20 63 68 6f 69 63 65 25  20 ca 0d 10 ae 1d 20 20  | choice% .....  |
00002570  20 20 20 20 c9 20 30 20  20 3a d4 20 31 2c 2d 31  |    . 0  :. 1,-1|
00002580  35 2c 31 30 30 2c 34 0d  10 b8 2c 20 20 20 20 20  |5,100,4...,     |
00002590  20 c9 20 32 20 20 3a f2  6f 70 65 6e 5f 77 69 6e  | . 2  :.open_win|
000025a0  64 6f 77 28 53 74 61 74  75 73 57 48 61 6e 64 6c  |dow(StatusWHandl|
000025b0  65 25 29 0d 10 c2 42 20  20 20 20 20 20 c9 20 34  |e%)...B      . 4|
000025c0  20 20 3a e7 20 64 6f 6e  65 25 20 84 20 73 74 61  |  :. done% . sta|
000025d0  72 74 25 3d a3 20 84 20  73 61 76 65 64 25 20 8c  |rt%=. . saved% .|
000025e0  20 71 75 69 74 25 3d b9  20 8b 20 f2 73 75 72 65  | quit%=. . .sure|
000025f0  5f 71 75 69 74 0d 10 cc  0a 20 20 20 20 20 cb 0d  |_quit....     ..|
00002600  10 d6 14 20 20 20 20 c9  20 73 74 6f 72 79 6d 65  |...    . storyme|
00002610  6e 75 25 0d 10 e0 42 20  20 20 20 20 20 f2 63 68  |nu%...B      .ch|
00002620  61 6e 67 65 5f 69 63 6f  6e 28 62 6c 6f 63 6b 25  |ange_icon(block%|
00002630  2c 4d 61 69 6e 57 48 61  6e 64 6c 65 25 2c 33 2c  |,MainWHandle%,3,|
00002640  63 6f 6e 74 65 6e 74 73  24 28 63 68 6f 69 63 65  |contents$(choice|
00002650  25 2b 31 29 29 0d 10 ea  25 20 20 20 20 20 20 73  |%+1))...%      s|
00002660  74 6f 72 79 24 3d 63 6f  6e 74 65 6e 74 73 24 28  |tory$=contents$(|
00002670  63 68 6f 69 63 65 25 2b  31 29 0d 10 f4 40 20 20  |choice%+1)...@  |
00002680  20 20 20 20 66 69 6c 65  6e 61 6d 65 24 3d 22 3c  |    filename$="<|
00002690  4e 65 77 73 44 65 73 6b  24 44 69 72 3e 2e 66 69  |NewsDesk$Dir>.fi|
000026a0  6c 65 73 2e 22 2b 63 6f  6e 74 65 6e 74 73 24 28  |les."+contents$(|
000026b0  63 68 6f 69 63 65 25 2b  31 29 0d 10 fe 2b 20 20  |choice%+1)...+  |
000026c0  20 20 20 20 73 63 72 69  70 74 66 69 6c 65 24 3d  |    scriptfile$=|
000026d0  66 69 6c 65 6e 61 6d 65  24 2b 22 2e 53 63 72 69  |filename$+".Scri|
000026e0  70 74 22 3a cd 0d 11 08  09 20 20 20 20 cb 0d 11  |pt":.....    ...|
000026f0  12 07 20 20 cb 0d 11 1c  36 f4 20 63 68 65 63 6b  |..  ....6. check|
00002700  20 74 6f 20 73 65 65 20  69 66 20 41 44 4a 55 53  | to see if ADJUS|
00002710  54 20 77 61 73 20 75 73  65 64 2c 20 69 66 20 73  |T was used, if s|
00002720  6f 20 6b 65 65 70 20 6f  70 65 6e 0d 11 26 33 20  |o keep open..&3 |
00002730  20 20 e7 20 ac 20 71 75  69 74 25 20 8c 20 c8 99  |  . . quit% . ..|
00002740  20 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  | "Wimp_GetPointe|
00002750  72 49 6e 66 6f 22 2c 2c  62 6c 6f 63 6b 25 0d 11  |rInfo",,block%..|
00002760  30 31 20 20 20 e7 20 62  6c 6f 63 6b 25 21 38 3d  |01   . block%!8=|
00002770  31 20 8c 20 f2 73 68 6f  77 5f 6d 65 6e 75 28 6d  |1 . .show_menu(m|
00002780  65 6e 75 25 2c 78 25 2c  79 25 2c b9 2c 35 29 0d  |enu%,x%,y%,.,5).|
00002790  11 3a 07 20 20 cd 0d 11  44 05 e1 0d 11 4e 04 0d  |.:.  ...D....N..|
000027a0  11 58 05 3a 0d 11 62 04  0d 11 6c 0f dd f2 73 75  |.X.:..b...l...su|
000027b0  72 65 5f 71 75 69 74 0d  11 76 17 e7 20 70 61 75  |re_quit..v.. pau|
000027c0  73 65 25 3d a3 20 8c 20  f2 70 61 75 73 65 0d 11  |se%=. . .pause..|
000027d0  80 06 ef 37 0d 11 8a 0f  69 73 69 74 71 75 69 74  |...7....isitquit|
000027e0  25 3d b9 0d 11 94 2e f2  63 68 61 6e 67 65 5f 69  |%=......change_i|
000027f0  63 6f 6e 28 62 6c 6f 63  6b 25 2c 51 75 69 74 57  |con(block%,QuitW|
00002800  48 61 6e 64 6c 65 25 2c  32 2c 22 51 75 69 74 22  |Handle%,2,"Quit"|
00002810  29 0d 11 9e 29 71 75 69  74 31 24 3d a4 6d 73 67  |)...)quit1$=.msg|
00002820  74 72 61 6e 73 5f 6c 6f  6f 6b 75 70 28 22 51 75  |trans_lookup("Qu|
00002830  69 74 31 22 2c c3 28 30  29 29 0d 11 a8 29 71 75  |it1",.(0))...)qu|
00002840  69 74 32 24 3d a4 6d 73  67 74 72 61 6e 73 5f 6c  |it2$=.msgtrans_l|
00002850  6f 6f 6b 75 70 28 22 51  75 69 74 32 22 2c c3 28  |ookup("Quit2",.(|
00002860  30 29 29 0d 11 b2 2e f2  63 68 61 6e 67 65 5f 69  |0)).....change_i|
00002870  63 6f 6e 28 62 6c 6f 63  6b 25 2c 51 75 69 74 57  |con(block%,QuitW|
00002880  48 61 6e 64 6c 65 25 2c  30 2c 71 75 69 74 31 24  |Handle%,0,quit1$|
00002890  29 0d 11 bc 2e f2 63 68  61 6e 67 65 5f 69 63 6f  |).....change_ico|
000028a0  6e 28 62 6c 6f 63 6b 25  2c 51 75 69 74 57 48 61  |n(block%,QuitWHa|
000028b0  6e 64 6c 65 25 2c 31 2c  71 75 69 74 32 24 29 0d  |ndle%,1,quit2$).|
000028c0  11 c6 31 f2 6f 70 65 6e  5f 61 6e 64 5f 63 65 6e  |..1.open_and_cen|
000028d0  74 72 65 5f 77 69 6e 64  6f 77 28 51 75 69 74 57  |tre_window(QuitW|
000028e0  48 61 6e 64 6c 65 25 2c  37 33 38 2c 32 37 36 29  |Handle%,738,276)|
000028f0  0d 11 d0 05 e1 0d 11 da  04 0d 11 e4 05 3a 0d 11  |.............:..|
00002900  ee 04 0d 11 f8 27 dd 20  f2 69 6e 73 74 61 6c 6c  |.....'. .install|
00002910  5f 69 63 6f 6e 28 73 70  72 69 74 65 5f 6e 61 6d  |_icon(sprite_nam|
00002920  65 24 2c 74 65 78 74 24  29 0d 12 02 2a 20 63 68  |e$,text$)...* ch|
00002930  61 72 73 24 3d a4 6d 73  67 74 72 61 6e 73 5f 6c  |ars$=.msgtrans_l|
00002940  6f 6f 6b 75 70 28 22 43  68 61 72 73 22 2c c3 28  |ookup("Chars",.(|
00002950  30 29 29 0d 12 0c 2f 20  e7 20 a9 28 73 70 72 69  |0)).../ . .(spri|
00002960  74 65 5f 6e 61 6d 65 24  29 3e 31 30 20 f2 72 65  |te_name$)>10 .re|
00002970  70 6f 72 74 5f 65 72 72  6f 72 28 63 68 61 72 73  |port_error(chars|
00002980  24 29 0d 12 16 47 20 e7  20 a9 20 28 74 65 78 74  |$)...G . . (text|
00002990  24 29 3e 31 30 20 f2 72  65 70 6f 72 74 5f 65 72  |$)>10 .report_er|
000029a0  72 6f 72 28 22 54 6f 20  6d 61 6e 79 20 63 68 61  |ror("To many cha|
000029b0  72 61 63 74 65 72 73 20  66 6f 72 20 73 70 72 69  |racters for spri|
000029c0  74 65 20 74 65 78 74 22  29 0d 12 20 23 20 24 73  |te text").. # $s|
000029d0  70 72 69 74 65 5f 6e 61  6d 65 25 3d 22 53 22 2b  |prite_name%="S"+|
000029e0  73 70 72 69 74 65 5f 6e  61 6d 65 24 0d 12 2a 17  |sprite_name$..*.|
000029f0  20 24 74 65 78 74 5f 73  70 61 63 65 25 3d 74 65  | $text_space%=te|
00002a00  78 74 24 0d 12 34 0f 20  21 62 6c 6f 63 6b 25 3d  |xt$..4. !block%=|
00002a10  2d 31 0d 12 3e 0f 20 62  6c 6f 63 6b 25 21 34 3d  |-1..>. block%!4=|
00002a20  30 0d 12 48 11 20 62 6c  6f 63 6b 25 21 38 3d 2d  |0..H. block%!8=-|
00002a30  31 36 0d 12 52 2c 20 77  69 64 74 68 25 3d 31 36  |16..R, width%=16|
00002a40  2a a9 20 74 65 78 74 24  3a e7 20 77 69 64 74 68  |*. text$:. width|
00002a50  25 3c 36 38 20 77 69 64  74 68 25 3d 36 38 0d 12  |%<68 width%=68..|
00002a60  5c 15 20 62 6c 6f 63 6b  25 21 31 32 3d 77 69 64  |\. block%!12=wid|
00002a70  74 68 25 0d 12 66 11 20  62 6c 6f 63 6b 25 21 31  |th%..f. block%!1|
00002a80  36 3d 38 38 0d 12 70 18  20 62 6c 6f 63 6b 25 21  |6=88..p. block%!|
00002a90  32 30 3d 26 31 37 30 30  32 31 32 42 0d 12 7a 1a  |20=&1700212B..z.|
00002aa0  20 62 6c 6f 63 6b 25 21  32 34 3d 74 65 78 74 5f  | block%!24=text_|
00002ab0  73 70 61 63 65 25 0d 12  84 1b 20 62 6c 6f 63 6b  |space%.... block|
00002ac0  25 21 32 38 3d 73 70 72  69 74 65 5f 6e 61 6d 65  |%!28=sprite_name|
00002ad0  25 0d 12 8e 17 20 62 6c  6f 63 6b 25 21 33 32 3d  |%.... block%!32=|
00002ae0  a9 28 74 65 78 74 24 29  0d 12 98 29 20 c8 99 20  |.(text$)...) .. |
00002af0  22 57 69 6d 70 5f 43 72  65 61 74 65 49 63 6f 6e  |"Wimp_CreateIcon|
00002b00  22 2c 2c 62 6c 6f 63 6b  25 20 b8 20 69 63 6f 6e  |",,block% . icon|
00002b10  25 0d 12 a2 05 e1 0d 12  ac 04 0d 12 b6 05 3a 0d  |%.............:.|
00002b20  12 c0 04 0d 12 ca 10 dd  20 f2 77 69 6d 70 5f 70  |........ .wimp_p|
00002b30  6f 6c 6c 0d 12 d4 38 20  c8 99 20 22 57 69 6d 70  |oll...8 .. "Wimp|
00002b40  5f 50 6f 6c 6c 49 64 6c  65 22 2c 30 2c 62 6c 6f  |_PollIdle",0,blo|
00002b50  63 6b 25 20 b8 20 72 65  61 73 6f 6e 25 2c 70 72  |ck% . reason%,pr|
00002b60  65 71 75 69 74 62 6c 6f  63 6b 25 0d 12 de 11 20  |equitblock%.... |
00002b70  c8 8e 20 72 65 61 73 6f  6e 25 20 ca 0d 12 e8 46  |.. reason% ....F|
00002b80  20 20 c9 20 30 3a e7 20  69 6e 73 65 72 74 25 20  |  . 0:. insert% |
00002b90  8c 20 f2 69 6e 73 65 72  74 5f 74 69 6d 65 20 8b  |. .insert_time .|
00002ba0  20 e7 20 73 74 61 72 74  25 20 80 20 70 61 75 73  | . start% . paus|
00002bb0  65 25 3d a3 20 8c 20 f2  63 68 65 63 6b 5f 74 69  |e%=. . .check_ti|
00002bc0  6d 65 0d 12 f2 26 20 20  c9 20 32 3a c8 99 20 22  |me...&  . 2:.. "|
00002bd0  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00002be0  2c 2c 62 6c 6f 63 6b 25  0d 12 fc 20 20 20 c9 20  |,,block%...   . |
00002bf0  33 3a f2 63 6c 6f 73 65  5f 77 69 6e 64 6f 77 28  |3:.close_window(|
00002c00  21 62 6c 6f 63 6b 25 29  0d 13 06 18 20 20 c9 20  |!block%)....  . |
00002c10  36 3a f2 6d 6f 75 73 65  5f 70 72 65 73 73 65 64  |6:.mouse_pressed|
00002c20  0d 13 10 1e 20 20 c9 20  37 3a c8 99 20 26 36 32  |....  . 7:.. &62|
00002c30  34 30 31 3a f2 73 74 61  72 74 73 61 76 65 0d 13  |401:.startsave..|
00002c40  1a 1e 20 20 c9 20 38 3a  f2 6b 65 79 70 72 65 73  |..  . 8:.keypres|
00002c50  73 28 62 6c 6f 63 6b 25  21 32 34 29 0d 13 24 16  |s(block%!24)..$.|
00002c60  20 20 c9 20 39 3a f2 6d  65 6e 75 5f 73 65 6c 65  |  . 9:.menu_sele|
00002c70  63 74 0d 13 2e 1e 20 20  c9 20 31 37 2c 31 38 3a  |ct....  . 17,18:|
00002c80  f2 72 65 63 65 69 76 65  28 62 6c 6f 63 6b 25 29  |.receive(block%)|
00002c90  0d 13 38 43 20 20 c9 20  31 39 3a 73 66 24 3d a4  |..8C  . 19:sf$=.|
00002ca0  6d 73 67 74 72 61 6e 73  5f 6c 6f 6f 6b 75 70 28  |msgtrans_lookup(|
00002cb0  22 53 61 76 65 66 61 69  6c 22 2c c3 28 30 29 29  |"Savefail",.(0))|
00002cc0  3a f2 72 65 70 6f 72 74  5f 65 72 72 6f 72 28 73  |:.report_error(s|
00002cd0  66 24 29 0d 13 42 06 20  cb 0d 13 4c 05 e1 0d 13  |f$)..B. ...L....|
00002ce0  56 04 0d 13 60 05 3a 0d  13 6a 04 0d 13 74 17 dd  |V...`.:..j...t..|
00002cf0  20 f2 72 65 63 65 69 76  65 28 68 61 6e 64 6c 65  | .receive(handle|
00002d00  25 29 0d 13 7e 12 c8 8e  20 62 6c 6f 63 6b 25 21  |%)..~... block%!|
00002d10  31 36 20 ca 0d 13 88 10  20 c9 20 30 3a 71 75 69  |16 ..... . 0:qui|
00002d20  74 25 3d b9 0d 13 92 12  20 c9 20 32 3a f2 64 61  |t%=..... . 2:.da|
00002d30  74 61 73 61 76 65 0d 13  9c 1d 20 c9 20 33 3a f2  |tasave.... . 3:.|
00002d40  64 61 74 61 6c 6f 61 64  28 62 6c 6f 63 6b 25 21  |dataload(block%!|
00002d50  34 30 29 0d 13 a6 38 20  c9 20 35 3a 6d 79 5f 72  |40)...8 . 5:my_r|
00002d60  65 66 25 3d 70 72 65 71  75 69 74 62 6c 6f 63 6b  |ef%=prequitblock|
00002d70  25 21 38 3a 61 64 64 25  3d 62 6c 6f 63 6b 25 21  |%!8:add%=block%!|
00002d80  34 3a f2 64 61 74 61 6f  70 65 6e 0d 13 b0 40 20  |4:.dataopen...@ |
00002d90  c9 20 38 3a 6d 79 5f 72  65 66 25 3d 70 72 65 71  |. 8:my_ref%=preq|
00002da0  75 69 74 62 6c 6f 63 6b  25 21 38 3a 61 64 64 25  |uitblock%!8:add%|
00002db0  3d 62 6c 6f 63 6b 25 21  34 3a f2 63 68 65 63 6b  |=block%!4:.check|
00002dc0  5f 61 6e 64 5f 66 69 6e  69 73 68 0d 13 ba 48 20  |_and_finish...H |
00002dd0  c9 20 26 34 30 30 43 30  3a f4 20 6d 65 6e 75 20  |. &400C0:. menu |
00002de0  70 72 65 77 61 72 6e 69  6e 67 20 2d 20 63 6f 75  |prewarning - cou|
00002df0  6c 64 20 62 65 20 75 73  65 64 20 74 6f 20 63 61  |ld be used to ca|
00002e00  6c 63 75 6c 61 74 65 20  74 68 65 20 73 75 62 6d  |lculate the subm|
00002e10  65 6e 75 0d 13 c4 22 20  c9 20 26 35 30 32 3a f2  |enu..." . &502:.|
00002e20  70 72 6f 76 69 64 65 5f  68 65 6c 70 28 68 61 6e  |provide_help(han|
00002e30  64 6c 65 25 29 0d 13 ce  05 cb 0d 13 d8 05 e1 0d  |dle%)...........|
00002e40  13 e2 04 0d 13 ec 05 3a  0d 13 f6 04 0d 14 00 0e  |.......:........|
00002e50  dd f2 64 61 74 61 6f 70  65 6e 0d 14 0a 16 66 69  |..dataopen....fi|
00002e60  6c 65 74 79 70 65 3d 62  6c 6f 63 6b 25 21 34 30  |letype=block%!40|
00002e70  0d 14 14 20 e7 20 66 69  6c 65 74 79 70 65 3d 26  |... . filetype=&|
00002e80  30 31 32 20 80 20 73 74  61 72 74 25 3d b9 20 8c  |012 . start%=. .|
00002e90  0d 14 1e 4f 20 f2 72 65  70 6f 72 74 5f 65 72 72  |...O .report_err|
00002ea0  6f 72 28 22 54 6f 20 6c  6f 61 64 20 61 20 6e 65  |or("To load a ne|
00002eb0  77 20 73 74 6f 72 79 2c  20 79 6f 75 20 6d 75 73  |w story, you mus|
00002ec0  74 20 66 69 72 73 74 20  73 74 6f 70 20 74 68 65  |t first stop the|
00002ed0  20 63 75 72 72 65 6e 74  20 6f 6e 65 2e 22 29 0d  | current one.").|
00002ee0  14 28 1c 70 72 65 71 75  69 74 62 6c 6f 63 6b 25  |.(.prequitblock%|
00002ef0  21 31 32 3d 6d 79 5f 72  65 66 25 0d 14 32 31 20  |!12=my_ref%..21 |
00002f00  20 c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  | .. "Wimp_SendMe|
00002f10  73 73 61 67 65 22 2c 31  39 2c 70 72 65 71 75 69  |ssage",19,prequi|
00002f20  74 62 6c 6f 63 6b 25 2c  61 64 64 25 0d 14 3c 06  |tblock%,add%..<.|
00002f30  20 e1 0d 14 46 05 cd 0d  14 50 16 e7 20 66 69 6c  | ...F....P.. fil|
00002f40  65 74 79 70 65 20 3d 26  30 31 32 20 8c 0d 14 5a  |etype =&012 ...Z|
00002f50  1b 20 66 69 6c 65 6e 61  6d 65 24 3d 24 28 62 6c  |. filename$=$(bl|
00002f60  6f 63 6b 25 2b 34 34 29  0d 14 64 1c 70 72 65 71  |ock%+44)..d.preq|
00002f70  75 69 74 62 6c 6f 63 6b  25 21 31 32 3d 6d 79 5f  |uitblock%!12=my_|
00002f80  72 65 66 25 0d 14 6e 31  20 20 c8 99 20 22 57 69  |ref%..n1  .. "Wi|
00002f90  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00002fa0  31 39 2c 70 72 65 71 75  69 74 62 6c 6f 63 6b 25  |19,prequitblock%|
00002fb0  2c 61 64 64 25 0d 14 78  15 66 69 6c 65 25 3d 8e  |,add%..x.file%=.|
00002fc0  20 66 69 6c 65 6e 61 6d  65 24 0d 14 82 0e cf 23  | filename$.....#|
00002fd0  66 69 6c 65 25 3d 36 31  0d 14 8c 0c 74 65 78 74  |file%=61....text|
00002fe0  24 3d 22 22 0d 14 96 05  f5 0d 14 a0 10 74 65 78  |$="".........tex|
00002ff0  74 3d 9a 23 66 69 6c 65  25 0d 14 aa 17 74 65 78  |t=.#file%....tex|
00003000  74 24 3d 74 65 78 74 24  2b bd 28 74 65 78 74 29  |t$=text$+.(text)|
00003010  0d 14 b4 0d fd 20 c5 23  66 69 6c 65 25 0d 14 be  |..... .#file%...|
00003020  0b d9 23 66 69 6c 65 25  0d 14 c8 15 f2 6c 6f 61  |..#file%.....loa|
00003030  64 73 74 61 72 74 28 74  65 78 74 24 29 0d 14 d2  |dstart(text$)...|
00003040  05 e1 0d 14 dc 05 3a 0d  14 e6 04 0d 14 f0 16 dd  |......:.........|
00003050  f2 6c 6f 61 64 73 74 61  72 74 28 74 65 78 74 24  |.loadstart(text$|
00003060  29 0d 14 fa 14 74 65 78  74 24 3d c1 74 65 78 74  |)....text$=.text|
00003070  24 2c 32 34 29 0d 15 04  0b 6e 65 77 24 3d 22 22  |$,24)....new$=""|
00003080  0d 15 0e 14 e3 20 78 3d  31 20 b8 20 a9 28 74 65  |..... x=1 . .(te|
00003090  78 74 24 29 0d 15 18 14  6c 65 74 24 3d c1 74 65  |xt$)....let$=.te|
000030a0  78 74 24 2c 78 2c 31 29  0d 15 22 0e 6e 65 77 24  |xt$,x,1)..".new$|
000030b0  2b 3d 6c 65 74 24 0d 15  2c 32 e7 20 6c 65 74 24  |+=let$..,2. let$|
000030c0  3d 22 2c 22 20 8c 20 6e  61 6d 65 24 3d c0 6e 65  |="," . name$=.ne|
000030d0  77 24 2c 28 a9 20 28 6e  65 77 24 29 2d 31 29 29  |w$,(. (new$)-1))|
000030e0  3a 6e 65 77 24 3d 22 22  0d 15 36 05 ed 0d 15 40  |:new$=""..6....@|
000030f0  0d 70 6f 73 24 3d 6e 65  77 24 0d 15 4a 07 ea 20  |.pos$=new$..J.. |
00003100  61 0d 15 54 1b 20 6e 61  6d 65 24 3d c1 6e 61 6d  |a..T. name$=.nam|
00003110  65 24 2c 32 2c a9 6e 61  6d 65 24 29 0d 15 5e 11  |e$,2,.name$)..^.|
00003120  20 73 74 6f 72 79 24 3d  6e 61 6d 65 24 0d 15 68  | story$=name$..h|
00003130  2c 20 66 69 6c 65 6e 61  6d 65 24 3d 22 3c 4e 65  |, filename$="<Ne|
00003140  77 73 44 65 73 6b 24 44  69 72 3e 2e 66 69 6c 65  |wsDesk$Dir>.file|
00003150  73 2e 22 2b 6e 61 6d 65  24 0d 15 72 24 20 73 63  |s."+name$..r$ sc|
00003160  72 69 70 74 66 69 6c 65  24 3d 66 69 6c 65 6e 61  |riptfile$=filena|
00003170  6d 65 24 2b 22 2e 53 63  72 69 70 74 22 0d 15 7c  |me$+".Script"..||
00003180  1d 20 f2 67 65 74 5f 73  63 72 69 70 74 28 73 63  |. .get_script(sc|
00003190  72 69 70 74 66 69 6c 65  24 29 0d 15 86 1d 20 20  |riptfile$)....  |
000031a0  20 20 e7 20 6e 6f 73 63  72 69 70 74 25 20 8c 20  |  . noscript% . |
000031b0  f2 73 74 6f 70 3a e1 0d  15 90 2e 20 f2 63 68 61  |.stop:..... .cha|
000031c0  6e 67 65 5f 69 63 6f 6e  28 62 6c 6f 63 6b 25 2c  |nge_icon(block%,|
000031d0  4d 61 69 6e 57 48 61 6e  64 6c 65 25 2c 33 2c 6e  |MainWHandle%,3,n|
000031e0  61 6d 65 24 29 0d 15 9a  17 20 63 75 72 72 65 6e  |ame$).... curren|
000031f0  74 70 6f 73 25 3d bb 20  70 6f 73 24 0d 15 a4 1a  |tpos%=. pos$....|
00003200  20 e3 20 78 3d 30 20 b8  20 63 75 72 72 65 6e 74  | . x=0 . current|
00003210  70 6f 73 25 2d 31 0d 15  ae 12 20 20 6f 70 65 6e  |pos%-1....  open|
00003220  65 64 25 28 78 29 3d b9  0d 15 b8 06 20 ed 0d 15  |ed%(x)=..... ...|
00003230  c2 0d 20 73 74 61 72 74  25 3d b9 0d 15 cc 25 20  |.. start%=....% |
00003240  d1 3d bb 64 65 6c 61 79  24 28 28 bb 20 70 6f 73  |.=.delay$((. pos|
00003250  24 29 2b 31 2c 32 29 2b  31 2a 31 30 30 2a 36 30  |$)+1,2)+1*100*60|
00003260  0d 15 d6 27 20 f2 61 6c  74 65 72 5f 73 70 72 69  |...' .alter_spri|
00003270  74 65 28 22 52 75 6e 6e  69 6e 67 22 2c 22 52 75  |te("Running","Ru|
00003280  6e 6e 69 6e 67 22 29 0d  15 e0 22 20 f2 73 68 61  |nning")..." .sha|
00003290  64 65 5f 69 63 6f 6e 28  4d 61 69 6e 57 48 61 6e  |de_icon(MainWHan|
000032a0  64 6c 65 25 2c 34 2c b9  29 0d 15 ea 15 20 66 69  |dle%,4,.).... fi|
000032b0  6c 65 6d 65 6e 75 24 3d  22 53 68 6f 77 22 0d 15  |lemenu$="Show"..|
000032c0  f4 17 20 e7 20 63 75 72  72 65 6e 74 70 6f 73 25  |.. . currentpos%|
000032d0  3e 3d 31 20 8c 0d 15 fe  1d 20 20 20 e3 20 61 25  |>=1 .....   . a%|
000032e0  3d 30 20 b8 20 63 75 72  72 65 6e 74 70 6f 73 25  |=0 . currentpos%|
000032f0  2d 31 0d 16 08 26 20 20  20 20 20 66 69 6c 65 6d  |-1...&     filem|
00003300  65 6e 75 24 2b 3d bd 28  34 34 29 2b 64 65 6c 61  |enu$+=.(44)+dela|
00003310  79 24 28 61 25 2c 31 29  0d 16 12 2c 20 20 20 20  |y$(a%,1)...,    |
00003320  20 f2 64 72 61 77 5f 6d  65 6e 75 28 66 69 6c 65  | .draw_menu(file|
00003330  6d 65 6e 75 25 2c 66 69  6c 65 6d 65 6e 75 24 2c  |menu%,filemenu$,|
00003340  31 34 34 29 0d 16 1c 08  20 20 20 ed 0d 16 26 06  |144)....   ...&.|
00003350  20 cd 0d 16 30 05 e1 0d  16 3a 04 0d 16 44 05 3a  | ...0....:...D.:|
00003360  0d 16 4e 04 0d 16 58 16  dd f2 63 68 65 63 6b 5f  |..N...X...check_|
00003370  61 6e 64 5f 66 69 6e 69  73 68 0d 16 62 19 e7 20  |and_finish..b.. |
00003380  73 61 76 65 64 25 20 84  20 73 74 61 72 74 25 3d  |saved% . start%=|
00003390  a3 20 8c 0d 16 6c 0c 20  71 75 69 74 25 3d b9 0d  |. ...l. quit%=..|
000033a0  16 76 05 cc 0d 16 80 29  20 71 75 69 74 24 3d a4  |.v.....) quit$=.|
000033b0  6d 73 67 74 72 61 6e 73  5f 6c 6f 6f 6b 75 70 28  |msgtrans_lookup(|
000033c0  22 51 75 69 74 31 22 2c  c3 28 30 29 29 0d 16 8a  |"Quit1",.(0))...|
000033d0  2a 20 71 75 69 74 24 2b  3d a4 6d 73 67 74 72 61  |* quit$+=.msgtra|
000033e0  6e 73 5f 6c 6f 6f 6b 75  70 28 22 51 75 69 74 32  |ns_lookup("Quit2|
000033f0  22 2c c3 28 30 29 29 0d  16 94 3b 20 72 65 73 70  |",.(0))...; resp|
00003400  6f 6e 73 65 25 3d a4 57  69 6d 70 5f 43 61 6e 63  |onse%=.Wimp_Canc|
00003410  65 6c 42 6f 78 28 22 51  75 65 72 79 20 66 6f 72  |elBox("Query for|
00003420  6d 20 4e 65 77 73 44 65  73 6b 22 2c 71 75 69 74  |m NewsDesk",quit|
00003430  24 29 0d 16 9e 05 cd 0d  16 a8 13 e7 20 72 65 73  |$).......... res|
00003440  70 6f 6e 73 65 25 3d b9  20 8c 0d 16 b2 0c 20 71  |ponse%=. ..... q|
00003450  75 69 74 25 3d b9 0d 16  bc 05 cc 0d 16 c6 1c 70  |uit%=..........p|
00003460  72 65 71 75 69 74 62 6c  6f 63 6b 25 21 31 32 3d  |requitblock%!12=|
00003470  6d 79 5f 72 65 66 25 0d  16 d0 2e c8 99 22 57 69  |my_ref%......"Wi|
00003480  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00003490  31 39 2c 70 72 65 71 75  69 74 62 6c 6f 63 6b 25  |19,prequitblock%|
000034a0  2c 61 64 64 25 0d 16 da  05 cd 0d 16 e4 05 e1 0d  |,add%...........|
000034b0  16 ee 04 0d 16 f8 05 3a  0d 17 02 04 0d 17 0c 26  |.......:.......&|
000034c0  dd 20 a4 57 69 6d 70 5f  43 61 6e 63 65 6c 42 6f  |. .Wimp_CancelBo|
000034d0  78 28 74 69 74 6c 65 24  2c 6d 65 73 73 61 67 65  |x(title$,message|
000034e0  24 29 0d 17 16 20 20 20  20 20 20 20 20 20 24 28  |$)...         $(|
000034f0  62 6c 6f 63 6b 25 2b 34  29 3d 6d 65 73 73 61 67  |block%+4)=messag|
00003500  65 24 0d 17 20 18 20 20  20 20 20 20 20 20 72 65  |e$.. .        re|
00003510  73 70 6f 6e 73 65 25 3d  32 33 0d 17 2a 46 20 20  |sponse%=23..*F  |
00003520  20 20 20 20 20 20 c8 99  20 22 57 69 6d 70 5f 52  |      .. "Wimp_R|
00003530  65 70 6f 72 74 45 72 72  6f 72 22 2c 62 6c 6f 63  |eportError",bloc|
00003540  6b 25 2c 72 65 73 70 6f  6e 73 65 25 2c 74 69 74  |k%,response%,tit|
00003550  6c 65 24 20 b8 20 2c 72  65 73 70 6f 6e 73 65 25  |le$ . ,response%|
00003560  0d 17 34 17 20 20 20 20  20 20 20 3d 72 65 73 70  |..4.       =resp|
00003570  6f 6e 73 65 25 2d 32 0d  17 3e 06 f4 7c 0d 17 48  |onse%-2..>..|..H|
00003580  04 0d 17 52 05 3a 0d 17  5c 04 0d 17 66 1c dd 20  |...R.:..\...f.. |
00003590  f2 70 72 6f 76 69 64 65  5f 68 65 6c 70 28 68 61  |.provide_help(ha|
000035a0  6e 64 6c 65 25 29 0d 17  70 3e 62 6c 6f 63 6b 25  |ndle%)..p>block%|
000035b0  3d 68 61 6e 64 6c 65 25  3a 62 6c 6f 63 6b 25 21  |=handle%:block%!|
000035c0  31 32 3d 68 61 6e 64 6c  65 25 21 38 3a 62 6c 6f  |12=handle%!8:blo|
000035d0  63 6b 25 21 31 36 3d 26  35 30 33 3a 74 65 78 74  |ck%!16=&503:text|
000035e0  24 3d 22 22 0d 17 7a 12  c8 8e 20 62 6c 6f 63 6b  |$=""..z... block|
000035f0  25 21 33 32 20 ca 0d 17  84 04 0d 17 8e 2c c9 20  |%!32 ........,. |
00003600  2d 32 3a 74 65 78 74 24  3d a4 6d 73 67 74 72 61  |-2:text$=.msgtra|
00003610  6e 73 5f 6c 6f 6f 6b 75  70 28 22 49 63 6f 6e 22  |ns_lookup("Icon"|
00003620  2c c3 28 30 29 29 0d 17  98 04 0d 17 a2 45 c9 20  |,.(0)).......E. |
00003630  4d 61 69 6e 57 48 61 6e  64 6c 65 25 3a 74 65 78  |MainWHandle%:tex|
00003640  74 24 3d a4 6d 73 67 74  72 61 6e 73 5f 6c 6f 6f  |t$=.msgtrans_loo|
00003650  6b 75 70 28 22 4d 61 69  6e 22 2c c3 28 30 29 29  |kup("Main",.(0))|
00003660  3a c8 8e 20 62 6c 6f 63  6b 25 21 33 36 20 ca 0d  |:.. block%!36 ..|
00003670  17 ac 2c c9 20 34 3a 74  65 78 74 24 3d a4 6d 73  |..,. 4:text$=.ms|
00003680  67 74 72 61 6e 73 5f 6c  6f 6f 6b 75 70 28 22 41  |gtrans_lookup("A|
00003690  72 72 6f 77 22 2c c3 28  30 29 29 0d 17 b6 30 c9  |rrow",.(0))...0.|
000036a0  20 33 3a 74 65 78 74 24  3d a4 6d 73 67 74 72 61  | 3:text$=.msgtra|
000036b0  6e 73 5f 6c 6f 6f 6b 75  70 28 22 49 6e 64 69 63  |ns_lookup("Indic|
000036c0  61 74 6f 72 22 2c c3 28  30 29 29 0d 17 c0 2b c9  |ator",.(0))...+.|
000036d0  20 35 3a 74 65 78 74 24  3d a4 6d 73 67 74 72 61  | 5:text$=.msgtra|
000036e0  6e 73 5f 6c 6f 6f 6b 75  70 28 22 50 6c 61 79 22  |ns_lookup("Play"|
000036f0  2c c3 28 30 29 29 0d 17  ca 2c c9 20 36 3a 74 65  |,.(0))...,. 6:te|
00003700  78 74 24 3d a4 6d 73 67  74 72 61 6e 73 5f 6c 6f  |xt$=.msgtrans_lo|
00003710  6f 6b 75 70 28 22 50 61  75 73 65 22 2c c3 28 30  |okup("Pause",.(0|
00003720  29 29 0d 17 d4 2b c9 20  37 3a 74 65 78 74 24 3d  |))...+. 7:text$=|
00003730  a4 6d 73 67 74 72 61 6e  73 5f 6c 6f 6f 6b 75 70  |.msgtrans_lookup|
00003740  28 22 53 74 6f 70 22 2c  c3 28 30 29 29 0d 17 de  |("Stop",.(0))...|
00003750  61 c9 20 38 3a e7 20 73  6f 75 6e 64 25 3d b9 20  |a. 8:. sound%=. |
00003760  8c 20 74 65 78 74 24 3d  a4 6d 73 67 74 72 61 6e  |. text$=.msgtran|
00003770  73 5f 6c 6f 6f 6b 75 70  28 22 53 6f 75 6e 64 22  |s_lookup("Sound"|
00003780  2c 22 4f 6e 22 29 20 8b  20 74 65 78 74 24 3d a4  |,"On") . text$=.|
00003790  6d 73 67 74 72 61 6e 73  5f 6c 6f 6f 6b 75 70 28  |msgtrans_lookup(|
000037a0  22 53 6f 75 6e 64 22 2c  22 4f 66 66 22 29 0d 17  |"Sound","Off")..|
000037b0  e8 2b c9 20 39 3a 74 65  78 74 24 3d a4 6d 73 67  |.+. 9:text$=.msg|
000037c0  74 72 61 6e 73 5f 6c 6f  6f 6b 75 70 28 22 54 69  |trans_lookup("Ti|
000037d0  6d 65 22 2c c3 28 30 29  29 0d 17 f2 2d c9 20 31  |me",.(0))...-. 1|
000037e0  30 3a 74 65 78 74 24 3d  a4 6d 73 67 74 72 61 6e  |0:text$=.msgtran|
000037f0  73 5f 6c 6f 6f 6b 75 70  28 22 53 61 76 65 69 22  |s_lookup("Savei"|
00003800  2c c3 28 30 29 29 0d 17  fc 05 cb 0d 18 06 04 0d  |,.(0))..........|
00003810  18 10 36 c9 20 49 6e 66  6f 57 48 61 6e 64 6c 65  |..6. InfoWHandle|
00003820  25 3a 74 65 78 74 24 3d  a4 6d 73 67 74 72 61 6e  |%:text$=.msgtran|
00003830  73 5f 6c 6f 6f 6b 75 70  28 22 49 6e 66 6f 22 2c  |s_lookup("Info",|
00003840  c3 28 30 29 29 0d 18 1a  36 c9 20 53 61 76 65 57  |.(0))...6. SaveW|
00003850  48 61 6e 64 6c 65 25 3a  74 65 78 74 24 3d a4 6d  |Handle%:text$=.m|
00003860  73 67 74 72 61 6e 73 5f  6c 6f 6f 6b 75 70 28 22  |sgtrans_lookup("|
00003870  53 61 76 65 22 2c c3 28  30 29 29 0d 18 24 04 0d  |Save",.(0))..$..|
00003880  18 2e 05 cb 0d 18 38 3b  24 28 62 6c 6f 63 6b 25  |......8;$(block%|
00003890  2b 32 30 29 3d 74 65 78  74 24 20 3a 20 62 6c 6f  |+20)=text$ : blo|
000038a0  63 6b 25 21 30 3d 28 28  28 32 30 2b a9 28 74 65  |ck%!0=(((20+.(te|
000038b0  78 74 24 29 2b 31 29 81  34 29 2a 34 29 2b 34 0d  |xt$)+1).4)*4)+4.|
000038c0  18 42 1e 24 28 62 6c 6f  63 6b 25 2b 32 31 2b a9  |.B.$(block%+21+.|
000038d0  28 74 65 78 74 24 29 29  3d bd 28 30 29 0d 18 4c  |(text$))=.(0)..L|
000038e0  23 c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |#.. "Wimp_SendMe|
000038f0  73 73 61 67 65 22 2c 31  37 2c 62 6c 6f 63 6b 25  |ssage",17,block%|
00003900  0d 18 56 05 e1 0d 18 60  04 0d 18 6a 05 3a 0d 18  |..V....`...j.:..|
00003910  74 04 0d 18 7e 1b dd 20  f2 6f 70 65 6e 5f 77 69  |t...~.. .open_wi|
00003920  6e 64 6f 77 28 77 69 6e  64 6f 77 25 29 0d 18 88  |ndow(window%)...|
00003930  14 20 21 62 6c 6f 63 6b  25 3d 77 69 6e 64 6f 77  |. !block%=window|
00003940  25 0d 18 92 25 20 c8 99  20 22 57 69 6d 70 5f 47  |%...% .. "Wimp_G|
00003950  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00003960  62 6c 6f 63 6b 25 0d 18  9c 10 62 6c 6f 63 6b 25  |block%....block%|
00003970  21 32 38 3d 2d 31 0d 18  a6 13 6d 61 78 58 25 3d  |!28=-1....maxX%=|
00003980  62 6c 6f 63 6b 25 21 31  32 0d 18 b0 12 6d 69 6e  |block%!12....min|
00003990  58 25 3d 62 6c 6f 63 6b  25 21 34 0d 18 ba 13 6d  |X%=block%!4....m|
000039a0  61 78 59 25 3d 62 6c 6f  63 6b 25 21 31 36 0d 18  |axY%=block%!16..|
000039b0  c4 12 6d 69 6e 59 25 3d  62 6c 6f 63 6b 25 21 38  |..minY%=block%!8|
000039c0  0d 18 ce 19 77 69 6e 77  69 64 74 68 25 3d 6d 61  |....winwidth%=ma|
000039d0  78 58 25 2d 6d 69 6e 58  25 0d 18 d8 1a 77 69 6e  |xX%-minX%....win|
000039e0  68 65 69 67 68 74 25 3d  6d 61 78 59 25 2d 6d 69  |height%=maxY%-mi|
000039f0  6e 59 25 0d 18 e2 1c e7  20 77 69 6e 64 6f 77 25  |nY%..... window%|
00003a00  3d 4d 61 69 6e 57 48 61  6e 64 6c 65 25 20 8c 0d  |=MainWHandle% ..|
00003a10  18 ec 2f 20 c8 99 20 22  4f 53 5f 52 65 61 64 4d  |../ .. "OS_ReadM|
00003a20  6f 64 65 56 61 72 69 61  62 6c 65 22 2c 2d 31 2c  |odeVariable",-1,|
00003a30  31 31 20 b8 20 2c 2c 58  70 69 78 65 6c 73 0d 18  |11 . ,,Xpixels..|
00003a40  f6 15 20 58 77 69 64 74  68 3d 58 70 69 78 65 6c  |.. Xwidth=Xpixel|
00003a50  73 2a 32 0d 19 00 0d 20  c8 97 20 78 2c 79 2c 62  |s*2.... .. x,y,b|
00003a60  0d 19 0a 3b 20 73 6c 62  3d 30 20 20 20 20 20 20  |...; slb=0      |
00003a70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003a80  20 20 3a f4 20 73 6c 62  3d 20 53 68 69 66 74 20  |  :. slb= Shift |
00003a90  4c 65 66 74 20 42 79 20  21 21 21 0d 19 14 3b 20  |Left By !!!...; |
00003aa0  20 e7 20 78 2b 28 77 69  6e 77 69 64 74 68 25 2f  | . x+(winwidth%/|
00003ab0  32 29 3e 58 77 69 64 74  68 20 8c 20 73 6c 62 3d  |2)>Xwidth . slb=|
00003ac0  78 2b 28 77 69 6e 77 69  64 74 68 25 2f 32 29 2d  |x+(winwidth%/2)-|
00003ad0  58 77 69 64 74 68 0d 19  1e 22 20 20 62 6c 6f 63  |Xwidth..."  bloc|
00003ae0  6b 25 21 34 3d 78 2d 28  77 69 6e 77 69 64 74 68  |k%!4=x-(winwidth|
00003af0  25 2f 32 29 2d 73 6c 62  0d 19 28 13 20 20 62 6c  |%/2)-slb..(.  bl|
00003b00  6f 63 6b 25 21 38 3d 79  2b 33 30 0d 19 32 22 20  |ock%!8=y+30..2" |
00003b10  20 62 6c 6f 63 6b 25 21  31 32 3d 62 6c 6f 63 6b  | block%!12=block|
00003b20  25 21 34 2b 77 69 6e 77  69 64 74 68 25 0d 19 3c  |%!4+winwidth%..<|
00003b30  25 20 20 62 6c 6f 63 6b  25 21 31 36 3d 62 6c 6f  |%  block%!16=blo|
00003b40  63 6b 25 21 38 2b 28 77  69 6e 68 65 69 67 68 74  |ck%!8+(winheight|
00003b50  25 29 0d 19 46 05 cd 0d  19 50 1c e7 20 77 69 6e  |%)..F....P.. win|
00003b60  64 6f 77 25 3d 53 61 76  65 57 48 61 6e 64 6c 65  |dow%=SaveWHandle|
00003b70  25 20 8c 0d 19 5a 0b c8  97 78 2c 79 2c 62 0d 19  |% ...Z...x,y,b..|
00003b80  64 1c 62 6c 6f 63 6b 25  21 34 3d 78 2d 28 77 69  |d.block%!4=x-(wi|
00003b90  6e 77 69 64 74 68 25 2f  32 29 0d 19 6e 1d 62 6c  |nwidth%/2)..n.bl|
00003ba0  6f 63 6b 25 21 38 3d 79  2d 28 77 69 6e 68 65 69  |ock%!8=y-(winhei|
00003bb0  67 68 74 25 2f 32 29 0d  19 78 20 62 6c 6f 63 6b  |ght%/2)..x block|
00003bc0  25 21 31 32 3d 62 6c 6f  63 6b 25 21 34 2b 77 69  |%!12=block%!4+wi|
00003bd0  6e 77 69 64 74 68 25 0d  19 82 21 62 6c 6f 63 6b  |nwidth%...!block|
00003be0  25 21 31 36 3d 62 6c 6f  63 6b 25 21 38 2b 77 69  |%!16=block%!8+wi|
00003bf0  6e 68 65 69 67 68 74 25  0d 19 8c 05 cd 0d 19 96  |nheight%........|
00003c00  21 20 c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |! .. "Wimp_OpenW|
00003c10  69 6e 64 6f 77 22 2c 2c  62 6c 6f 63 6b 25 0d 19  |indow",,block%..|
00003c20  a0 04 0d 19 aa 05 e1 0d  19 b4 04 0d 19 be 05 3a  |...............:|
00003c30  0d 19 c8 1c dd 20 f2 63  6c 6f 73 65 5f 77 69 6e  |..... .close_win|
00003c40  64 6f 77 28 77 69 6e 64  6f 77 25 29 0d 19 d2 14  |dow(window%)....|
00003c50  20 21 62 6c 6f 63 6b 25  3d 77 69 6e 64 6f 77 25  | !block%=window%|
00003c60  0d 19 dc 22 20 c8 99 20  22 57 69 6d 70 5f 43 6c  |..." .. "Wimp_Cl|
00003c70  6f 73 65 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |oseWindow",,bloc|
00003c80  6b 25 0d 19 e6 05 e1 0d  19 f0 04 0d 19 fa 05 3a  |k%.............:|
00003c90  0d 1a 04 04 0d 1a 0e 29  dd 20 f2 6f 70 65 6e 5f  |.......). .open_|
00003ca0  61 6e 64 5f 63 65 6e 74  72 65 5f 77 69 6e 64 6f  |and_centre_windo|
00003cb0  77 28 68 61 6e 64 6c 65  2c 77 2c 68 29 0d 1a 18  |w(handle,w,h)...|
00003cc0  2c 20 ea 20 58 70 69 78  65 6c 73 2c 59 70 69 78  |, . Xpixels,Ypix|
00003cd0  65 6c 73 2c 58 45 69 67  46 61 63 74 6f 72 2c 59  |els,XEigFactor,Y|
00003ce0  45 69 67 46 61 63 74 6f  72 0d 1a 22 2f 20 c8 99  |EigFactor.."/ ..|
00003cf0  20 22 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  | "OS_ReadModeVar|
00003d00  69 61 62 6c 65 22 2c 2d  31 2c 31 31 20 b8 20 2c  |iable",-1,11 . ,|
00003d10  2c 58 70 69 78 65 6c 73  0d 1a 2c 2f 20 c8 99 20  |,Xpixels..,/ .. |
00003d20  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
00003d30  61 62 6c 65 22 2c 2d 31  2c 31 32 20 b8 20 2c 2c  |able",-1,12 . ,,|
00003d40  59 70 69 78 65 6c 73 0d  1a 36 31 20 c8 99 20 22  |Ypixels..61 .. "|
00003d50  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00003d60  62 6c 65 22 2c 2d 31 2c  34 20 b8 20 2c 2c 58 45  |ble",-1,4 . ,,XE|
00003d70  69 67 46 61 63 74 6f 72  0d 1a 40 31 20 c8 99 20  |igFactor..@1 .. |
00003d80  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
00003d90  61 62 6c 65 22 2c 2d 31  2c 35 20 b8 20 2c 2c 59  |able",-1,5 . ,,Y|
00003da0  45 69 67 46 61 63 74 6f  72 0d 1a 4a 1b 20 77 69  |EigFactor..J. wi|
00003db0  64 74 68 3d 77 2f 28 32  5e 58 45 69 67 46 61 63  |dth=w/(2^XEigFac|
00003dc0  74 6f 72 29 0d 1a 54 1c  20 68 65 69 67 68 74 3d  |tor)..T. height=|
00003dd0  68 2f 28 32 5e 59 45 69  67 46 61 63 74 6f 72 29  |h/(2^YEigFactor)|
00003de0  0d 1a 5e 2b 20 78 3d 28  28 58 70 69 78 65 6c 73  |..^+ x=((Xpixels|
00003df0  2b 31 2d 77 69 64 74 68  29 2f 32 29 2a 28 32 5e  |+1-width)/2)*(2^|
00003e00  58 45 69 67 46 61 63 74  6f 72 29 0d 1a 68 2c 20  |XEigFactor)..h, |
00003e10  79 3d 28 28 59 70 69 78  65 6c 73 2b 31 2d 68 65  |y=((Ypixels+1-he|
00003e20  69 67 68 74 29 2f 32 29  2a 28 32 5e 59 45 69 67  |ight)/2)*(2^YEig|
00003e30  46 61 63 74 6f 72 29 0d  1a 72 1f 20 77 69 64 74  |Factor)..r. widt|
00003e40  68 3d 77 69 64 74 68 2a  28 32 5e 58 45 69 67 46  |h=width*(2^XEigF|
00003e50  61 63 74 6f 72 29 0d 1a  7c 21 20 68 65 69 67 68  |actor)..|! heigh|
00003e60  74 3d 68 65 69 67 68 74  2a 28 32 5e 59 45 69 67  |t=height*(2^YEig|
00003e70  46 61 63 74 6f 72 29 0d  1a 86 36 20 f2 6f 70 65  |Factor)...6 .ope|
00003e80  6e 5f 77 69 6e 64 6f 77  32 28 68 61 6e 64 6c 65  |n_window2(handle|
00003e90  2c 78 2c 79 2c 78 2b 77  69 64 74 68 2c 79 2b 68  |,x,y,x+width,y+h|
00003ea0  65 69 67 68 74 2c 30 2c  30 2c 2d 31 29 0d 1a 90  |eight,0,0,-1)...|
00003eb0  05 e1 0d 1a 9a 04 0d 1a  a4 05 3a 0d 1a ae 04 0d  |..........:.....|
00003ec0  1a b8 3f dd 20 f2 6f 70  65 6e 5f 77 69 6e 64 6f  |..?. .open_windo|
00003ed0  77 32 28 68 61 6e 64 6c  65 25 2c 78 30 25 2c 79  |w2(handle%,x0%,y|
00003ee0  30 25 2c 78 31 25 2c 79  31 25 2c 73 63 78 25 2c  |0%,x1%,y1%,scx%,|
00003ef0  73 63 79 25 2c 62 68 61  6e 64 6c 65 25 29 0d 1a  |scy%,bhandle%)..|
00003f00  c2 28 20 62 6c 6f 63 6b  25 21 30 3d 68 61 6e 64  |.( block%!0=hand|
00003f10  6c 65 25 3a 62 6c 6f 63  6b 25 21 32 38 3d 62 68  |le%:block%!28=bh|
00003f20  61 6e 64 6c 65 25 0d 1a  cc 3a 20 62 6c 6f 63 6b  |andle%...: block|
00003f30  25 21 34 3d 78 30 25 3a  62 6c 6f 63 6b 25 21 38  |%!4=x0%:block%!8|
00003f40  3d 79 30 25 3a 62 6c 6f  63 6b 25 21 31 32 3d 78  |=y0%:block%!12=x|
00003f50  31 25 3a 62 6c 6f 63 6b  25 21 31 36 3d 79 31 25  |1%:block%!16=y1%|
00003f60  0d 1a d6 22 20 62 6c 6f  63 6b 25 21 32 30 3d 73  |..." block%!20=s|
00003f70  63 78 25 3a 62 6c 6f 63  6b 25 21 32 34 3d 73 63  |cx%:block%!24=sc|
00003f80  79 25 0d 1a e0 21 20 c8  99 20 22 57 69 6d 70 5f  |y%...! .. "Wimp_|
00003f90  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |OpenWindow",,blo|
00003fa0  63 6b 25 0d 1a ea 05 e1  0d 1a f4 04 0d 1a fe 05  |ck%.............|
00003fb0  3a 0d 1b 08 04 0d 1b 12  14 dd 20 f2 6d 6f 75 73  |:......... .mous|
00003fc0  65 5f 70 72 65 73 73 65  64 0d 1b 1c 1b 78 25 3d  |e_pressed....x%=|
00003fd0  62 6c 6f 63 6b 25 21 30  3a 79 25 3d 62 6c 6f 63  |block%!0:y%=bloc|
00003fe0  6b 25 21 34 0d 1b 26 13  20 c8 8e 20 62 6c 6f 63  |k%!4..&. .. bloc|
00003ff0  6b 25 21 31 32 20 ca 0d  1b 30 0a 20 20 c9 20 2d  |k%!12 ...0.  . -|
00004000  32 0d 1b 3a 16 20 20 20  20 20 c8 8e 20 62 6c 6f  |2..:.     .. blo|
00004010  63 6b 25 21 38 20 ca 0d  1b 44 3c 20 20 20 20 20  |ck%!8 ...D<     |
00004020  20 c9 20 32 3a f2 73 68  6f 77 5f 6d 65 6e 75 28  | . 2:.show_menu(|
00004030  6d 65 6e 75 25 2c 78 25  2c 79 25 2c 2d 31 2c 35  |menu%,x%,y%,-1,5|
00004040  29 3a 6d 65 6e 75 6f 6e  73 68 6f 77 25 3d 6d 65  |):menuonshow%=me|
00004050  6e 75 25 0d 1b 4e 28 20  20 20 20 20 20 c9 20 34  |nu%..N(      . 4|
00004060  3a f2 6f 70 65 6e 5f 77  69 6e 64 6f 77 28 4d 61  |:.open_window(Ma|
00004070  69 6e 57 48 61 6e 64 6c  65 25 29 0d 1b 58 0a 20  |inWHandle%)..X. |
00004080  20 20 20 20 cb 0d 1b 62  14 20 20 c9 20 4d 61 69  |    ...b.  . Mai|
00004090  6e 57 48 61 6e 64 6c 65  25 0d 1b 6c 16 20 20 20  |nWHandle%..l.   |
000040a0  20 20 c8 8e 20 62 6c 6f  63 6b 25 21 38 20 ca 0d  |  .. block%!8 ..|
000040b0  1b 76 0d 20 20 20 20 20  20 c9 20 32 0d 1b 80 1b  |.v.      . 2....|
000040c0  20 20 20 20 20 20 20 e7  20 62 6c 6f 63 6b 25 21  |       . block%!|
000040d0  31 36 3c 3e 34 20 8c 0d  1b 8a 28 20 20 20 20 20  |16<>4 ....(     |
000040e0  20 20 20 20 f2 73 68 6f  77 5f 6d 65 6e 75 28 6d  |    .show_menu(m|
000040f0  65 6e 75 25 2c 78 25 2c  79 25 2c a3 2c 35 29 0d  |enu%,x%,y%,.,5).|
00004100  1b 94 1e 20 20 20 20 20  20 20 20 20 6d 65 6e 75  |...         menu|
00004110  6f 6e 73 68 6f 77 25 3d  6d 65 6e 75 25 0d 1b 9e  |onshow%=menu%...|
00004120  0e 20 20 20 20 20 20 20  20 20 cc 0d 1b a8 2f 20  |.         ..../ |
00004130  20 20 20 20 20 20 20 20  f2 73 68 6f 77 5f 6d 65  |        .show_me|
00004140  6e 75 28 73 74 6f 72 79  6d 65 6e 75 25 2c 78 25  |nu(storymenu%,x%|
00004150  2c 79 25 2c a3 2c 31 34  30 29 0d 1b b2 23 20 20  |,y%,.,140)...#  |
00004160  20 20 20 20 20 20 20 6d  65 6e 75 6f 6e 73 68 6f  |       menuonsho|
00004170  77 25 3d 73 74 6f 72 79  6d 65 6e 75 25 0d 1b bc  |w%=storymenu%...|
00004180  0e 20 20 20 20 20 20 20  20 20 cd 0d 1b c6 0e 20  |.         ..... |
00004190  20 20 20 20 20 20 c9 20  34 0d 1b d0 1b 20 20 20  |      . 4....   |
000041a0  20 20 20 20 20 20 c8 8e  20 62 6c 6f 63 6b 25 21  |      .. block%!|
000041b0  31 36 20 ca 0d 1b da 11  20 20 20 20 20 20 20 20  |16 .....        |
000041c0  20 20 c9 20 34 0d 1b e4  32 20 20 20 20 20 20 20  |  . 4...2       |
000041d0  20 20 20 20 20 f2 73 68  6f 77 5f 6d 65 6e 75 28  |     .show_menu(|
000041e0  73 74 6f 72 79 6d 65 6e  75 25 2c 78 25 2c 79 25  |storymenu%,x%,y%|
000041f0  2c a3 2c 31 34 30 29 0d  1b ee 26 20 20 20 20 20  |,.,140)...&     |
00004200  20 20 20 20 20 20 20 6d  65 6e 75 6f 6e 73 68 6f  |       menuonsho|
00004210  77 25 3d 73 74 6f 72 79  6d 65 6e 75 25 0d 1b f8  |w%=storymenu%...|
00004220  26 20 20 20 20 20 20 20  20 20 20 c9 20 30 2c 31  |&          . 0,1|
00004230  2c 32 2c 33 2c 34 3a f2  64 72 61 67 5f 77 69 6e  |,2,3,4:.drag_win|
00004240  64 6f 77 0d 1c 02 21 20  20 20 20 20 20 20 20 20  |dow...!         |
00004250  20 c9 20 35 3a f2 73 74  61 72 74 3a f2 73 6f 72  | . 5:.start:.sor|
00004260  74 28 35 29 0d 1c 0c 21  20 20 20 20 20 20 20 20  |t(5)...!        |
00004270  20 20 c9 20 36 3a f2 70  61 75 73 65 3a f2 73 6f  |  . 6:.pause:.so|
00004280  72 74 28 36 29 0d 1c 16  2f 20 20 20 20 20 20 20  |rt(6).../       |
00004290  20 20 20 c9 20 37 3a e7  20 64 6f 6e 65 25 20 84  |   . 7:. done% .|
000042a0  20 73 74 61 72 74 25 3d  a3 20 84 20 73 61 76 65  | start%=. . save|
000042b0  64 25 20 8c 0d 1c 20 1b  20 20 20 20 20 20 20 20  |d% ... .        |
000042c0  20 20 20 20 20 20 20 20  20 20 f2 73 74 6f 70 0d  |          .stop.|
000042d0  1c 2a 16 20 20 20 20 20  20 20 20 20 20 20 20 20  |.*.             |
000042e0  20 20 20 20 cc 0d 1c 34  20 20 20 20 20 20 20 20  |    ...4        |
000042f0  20 20 20 20 20 20 20 20  20 20 20 f2 73 75 72 65  |           .sure|
00004300  5f 73 74 6f 70 0d 1c 3e  1e 20 20 20 20 20 20 20  |_stop..>.       |
00004310  20 20 20 20 20 20 20 20  20 20 20 f2 73 6f 72 74  |           .sort|
00004320  28 37 29 0d 1c 48 16 20  20 20 20 20 20 20 20 20  |(7)..H.         |
00004330  20 20 20 20 20 20 20 20  cd 0d 1c 52 1c 20 20 20  |        ...R.   |
00004340  20 20 20 20 20 20 20 c9  20 38 3a f2 73 65 74 5f  |       . 8:.set_|
00004350  73 6f 75 6e 64 0d 1c 5c  3f 20 20 20 20 20 20 20  |sound..\?       |
00004360  20 20 20 c9 20 39 3a 69  6e 73 65 72 74 25 3d b9  |   . 9:insert%=.|
00004370  3a 74 65 78 74 24 3d a4  67 65 74 5f 74 69 6d 65  |:text$=.get_time|
00004380  3a 6c 6f 6f 70 3d 30 3a  f2 69 6e 73 65 72 74 5f  |:loop=0:.insert_|
00004390  74 69 6d 65 0d 1c 66 2d  20 20 20 20 20 20 20 20  |time..f-        |
000043a0  20 20 c9 20 31 30 3a f2  6f 70 65 6e 5f 77 69 6e  |  . 10:.open_win|
000043b0  64 6f 77 28 53 61 76 65  57 48 61 6e 64 6c 65 25  |dow(SaveWHandle%|
000043c0  29 0d 1c 70 0e 20 20 20  20 20 20 20 20 20 cb 0d  |)..p.         ..|
000043d0  1c 7a 0f 20 20 20 20 20  20 20 20 c9 20 31 0d 1c  |.z.        . 1..|
000043e0  84 1c 20 20 20 20 20 20  20 20 20 20 c8 8e 20 62  |..          .. b|
000043f0  6c 6f 63 6b 25 21 31 36  20 ca 0d 1c 8e 1d 20 20  |lock%!16 .....  |
00004400  20 20 20 20 20 20 20 20  20 c9 20 38 3a f2 73 65  |         . 8:.se|
00004410  74 5f 73 6f 75 6e 64 0d  1c 98 0f 20 20 20 20 20  |t_sound....     |
00004420  20 20 20 20 20 cb 0d 1c  a2 0c 20 20 20 20 20 20  |     .....      |
00004430  20 cb 0d 1c ac 17 20 20  20 20 20 c9 20 51 75 69  | .....     . Qui|
00004440  74 57 48 61 6e 64 6c 65  25 0d 1c b6 18 20 20 20  |tWHandle%....   |
00004450  20 20 20 c8 8e 20 62 6c  6f 63 6b 25 21 31 36 20  |   .. block%!16 |
00004460  ca 0d 1c c0 1c 20 20 20  20 20 20 20 c9 20 32 3a  |.....       . 2:|
00004470  e7 20 69 73 69 74 71 75  69 74 25 20 8c 0d 1c ca  |. isitquit% ....|
00004480  1a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00004490  20 f2 70 61 75 73 65 0d  1c d4 19 20 20 20 20 20  | .pause....     |
000044a0  20 20 20 20 20 20 20 20  20 20 20 f2 73 74 6f 70  |           .stop|
000044b0  0d 1c de 1b 20 20 20 20  20 20 20 20 20 20 20 20  |....            |
000044c0  20 20 20 20 71 75 69 74  25 3d b9 0d 1c e8 14 20  |    quit%=..... |
000044d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 cc 0d  |              ..|
000044e0  1c f2 1a 20 20 20 20 20  20 20 20 20 20 20 20 20  |...             |
000044f0  20 20 20 f2 70 61 75 73  65 0d 1c fc 1b 20 20 20  |   .pause....   |
00004500  20 20 20 20 20 20 20 20  20 20 20 20 20 64 6f 6e  |             don|
00004510  65 25 3d b9 0d 1d 06 2f  20 20 20 20 20 20 20 20  |e%=..../        |
00004520  20 20 20 20 20 20 20 20  f2 63 6c 6f 73 65 5f 77  |        .close_w|
00004530  69 6e 64 6f 77 28 51 75  69 74 57 48 61 6e 64 6c  |indow(QuitWHandl|
00004540  65 25 29 0d 1d 10 19 20  20 20 20 20 20 20 20 20  |e%)....         |
00004550  20 20 20 20 20 20 20 f2  73 74 6f 70 0d 1d 1a 14  |       .stop....|
00004560  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 cd  |               .|
00004570  0d 1d 24 1c 20 20 20 20  20 20 20 c9 20 33 3a e7  |..$.       . 3:.|
00004580  20 69 73 69 74 71 75 69  74 25 20 8c 0d 1d 2e 18  | isitquit% .....|
00004590  20 20 20 20 20 20 20 20  20 69 73 69 74 71 75 69  |         isitqui|
000045a0  74 25 3d a3 0d 1d 38 13  20 20 20 20 20 20 20 20  |t%=...8.        |
000045b0  20 f2 70 61 75 73 65 0d  1d 42 28 20 20 20 20 20  | .pause..B(     |
000045c0  20 20 20 20 f2 63 6c 6f  73 65 5f 77 69 6e 64 6f  |    .close_windo|
000045d0  77 28 51 75 69 74 57 48  61 6e 64 6c 65 25 29 0d  |w(QuitWHandle%).|
000045e0  1d 4c 0e 20 20 20 20 20  20 20 20 20 e1 0d 1d 56  |.L.         ...V|
000045f0  0d 20 20 20 20 20 20 20  20 cc 0d 1d 60 1b 20 20  |.        ...`.  |
00004600  20 20 20 20 20 20 20 73  74 6f 70 77 69 6e 6f 70  |       stopwinop|
00004610  65 6e 25 3d a3 0d 1d 6a  13 20 20 20 20 20 20 20  |en%=...j.       |
00004620  20 20 f2 70 61 75 73 65  0d 1d 74 28 20 20 20 20  |  .pause..t(    |
00004630  20 20 20 20 20 f2 63 6c  6f 73 65 5f 77 69 6e 64  |     .close_wind|
00004640  6f 77 28 51 75 69 74 57  48 61 6e 64 6c 65 25 29  |ow(QuitWHandle%)|
00004650  0d 1d 7e 0d 20 20 20 20  20 20 20 20 cd 0d 1d 88  |..~.        ....|
00004660  04 0d 1d 92 28 20 20 20  20 20 20 c9 20 34 3a f2  |....(      . 4:.|
00004670  6f 70 65 6e 5f 77 69 6e  64 6f 77 28 53 61 76 65  |open_window(Save|
00004680  57 48 61 6e 64 6c 65 25  29 0d 1d 9c 0b 20 20 20  |WHandle%)....   |
00004690  20 20 20 cb 0d 1d a6 17  20 20 20 20 20 c9 20 53  |   .....     . S|
000046a0  61 76 65 57 48 61 6e 64  6c 65 25 0d 1d b0 18 20  |aveWHandle%.... |
000046b0  20 20 20 20 20 c8 8e 20  62 6c 6f 63 6b 25 21 31  |     .. block%!1|
000046c0  36 20 ca 0d 1d ba 27 20  20 20 20 20 20 20 c9 20  |6 ....'       . |
000046d0  31 3a e7 20 62 6c 6f 63  6b 25 21 38 3d 36 34 20  |1:. block%!8=64 |
000046e0  8c 20 f2 64 72 61 67 62  6f 78 0d 1d c4 19 20 20  |. .dragbox....  |
000046f0  20 20 20 20 20 c9 20 32  3a f2 71 75 69 63 6b 73  |     . 2:.quicks|
00004700  61 76 65 0d 1d ce 0b 20  20 20 20 20 20 cb 0d 1d  |ave....      ...|
00004710  d8 07 20 20 cb 0d 1d e2  05 e1 0d 1d ec 04 0d 1d  |..  ............|
00004720  f6 04 0d 1e 00 05 3a 0d  1e 0a 04 0d 1e 14 11 dd  |......:.........|
00004730  f2 64 72 61 67 5f 77 69  6e 64 6f 77 0d 1e 1e 08  |.drag_window....|
00004740  ea 20 63 25 0d 1e 28 11  63 25 3d 62 6c 6f 63 6b  |. c%..(.c%=block|
00004750  25 2b 39 30 30 0d 1e 32  2b f2 67 65 74 5f 6f 72  |%+900..2+.get_or|
00004760  69 67 69 6e 28 4d 61 69  6e 57 48 61 6e 64 6c 65  |igin(MainWHandle|
00004770  25 2c 78 6f 72 69 67 25  2c 79 6f 72 69 67 25 29  |%,xorig%,yorig%)|
00004780  0d 1e 3c 1b 21 63 25 3d  4d 61 69 6e 57 48 61 6e  |..<.!c%=MainWHan|
00004790  64 6c 65 25 3a 63 25 21  34 3d 30 0d 1e 46 1e c8  |dle%:c%!4=0..F..|
000047a0  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
000047b0  74 61 74 65 22 2c 2c 63  25 0d 1e 50 4e 78 6d 69  |tate",,c%..PNxmi|
000047c0  6e 25 3d 78 6f 72 69 67  25 2b 63 25 21 38 3a 79  |n%=xorig%+c%!8:y|
000047d0  6d 69 6e 25 3d 79 6f 72  69 67 25 2b 63 25 21 31  |min%=yorig%+c%!1|
000047e0  32 3a 78 6d 61 78 25 3d  78 6f 72 69 67 25 2b 63  |2:xmax%=xorig%+c|
000047f0  25 21 31 36 3a 79 6d 61  78 25 3d 79 6f 72 69 67  |%!16:ymax%=yorig|
00004800  25 2b 63 25 21 32 30 0d  1e 5a 0a 63 25 21 34 3d  |%+c%!20..Z.c%!4=|
00004810  31 0d 1e 64 0e 63 25 21  38 3d 78 6d 69 6e 25 0d  |1..d.c%!8=xmin%.|
00004820  1e 6e 0f 63 25 21 31 32  3d 79 6d 69 6e 25 0d 1e  |.n.c%!12=ymin%..|
00004830  78 0f 63 25 21 31 36 3d  78 6d 61 78 25 0d 1e 82  |x.c%!16=xmax%...|
00004840  0f 63 25 21 32 30 3d 79  6d 61 78 25 0d 1e 8c 0b  |.c%!20=ymax%....|
00004850  63 25 21 32 34 3d 30 0d  1e 96 0b 63 25 21 32 38  |c%!24=0....c%!28|
00004860  3d 30 0d 1e a0 0e 63 25  21 33 32 3d 31 32 38 30  |=0....c%!32=1280|
00004870  0d 1e aa 0e 63 25 21 33  36 3d 31 30 32 34 0d 1e  |....c%!36=1024..|
00004880  b4 19 c8 99 20 22 57 69  6d 70 5f 44 72 61 67 42  |.... "Wimp_DragB|
00004890  6f 78 22 2c 2c 63 25 0d  1e be 05 e1 0d 1e c8 04  |ox",,c%.........|
000048a0  0d 1e d2 05 3a 0d 1e dc  04 0d 1e e6 2b dd f2 67  |....:.......+..g|
000048b0  65 74 5f 6f 72 69 67 69  6e 28 68 61 6e 64 6c 65  |et_origin(handle|
000048c0  25 2c f8 20 78 6f 72 69  67 25 2c f8 20 79 6f 72  |%,. xorig%,. yor|
000048d0  69 67 25 29 0d 1e f0 08  ea 20 63 25 0d 1e fa 11  |ig%)..... c%....|
000048e0  63 25 3d 62 6c 6f 63 6b  25 2b 38 30 30 0d 1f 04  |c%=block%+800...|
000048f0  0f 21 63 25 3d 68 61 6e  64 6c 65 25 0d 1f 0e 20  |.!c%=handle%... |
00004900  c8 99 20 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.. "Wimp_GetWind|
00004910  6f 77 53 74 61 74 65 22  2c 2c 63 25 0d 1f 18 28  |owState",,c%...(|
00004920  78 6f 72 69 67 25 3d 63  25 21 34 2d 63 25 21 32  |xorig%=c%!4-c%!2|
00004930  30 3a 79 6f 72 69 67 25  3d 63 25 21 31 36 2d 63  |0:yorig%=c%!16-c|
00004940  25 21 32 34 0d 1f 22 05  e1 0d 1f 2c 04 0d 1f 36  |%!24.."....,...6|
00004950  05 3a 0d 1f 40 04 0d 1f  4a 11 dd f2 73 6f 72 74  |.:..@...J...sort|
00004960  28 69 63 6f 6e 25 29 0d  1f 54 34 e7 20 69 63 6f  |(icon%)..T4. ico|
00004970  6e 25 3d 35 20 80 20 73  74 61 72 74 25 3d a3 20  |n%=5 . start%=. |
00004980  8c 20 f2 73 65 6c 65 63  74 28 37 2c b9 29 3a f2  |. .select(7,.):.|
00004990  73 65 6c 65 63 74 28 35  2c a3 29 0d 1f 5e 05 e1  |select(5,.)..^..|
000049a0  0d 1f 68 04 0d 1f 72 05  3a 0d 1f 7c 1b dd f2 73  |..h...r.:..|...s|
000049b0  65 6c 65 63 74 28 69 63  6f 6e 25 2c 73 65 6c 65  |elect(icon%,sele|
000049c0  63 74 25 29 0d 1f 86 15  77 69 6e 25 3d 4d 61 69  |ct%)....win%=Mai|
000049d0  6e 57 48 61 6e 64 6c 65  25 0d 1f 90 11 62 6c 6f  |nWHandle%....blo|
000049e0  63 6b 25 21 30 3d 77 69  6e 25 0d 1f 9a 12 62 6c  |ck%!0=win%....bl|
000049f0  6f 63 6b 25 21 34 3d 69  63 6f 6e 25 0d 1f a4 13  |ock%!4=icon%....|
00004a00  62 6c 6f 63 6b 25 21 31  32 3d 31 3c 3c 32 31 0d  |block%!12=1<<21.|
00004a10  1f ae 29 e7 20 73 65 6c  65 63 74 25 20 62 6c 6f  |..). select% blo|
00004a20  63 6b 25 21 38 3d 31 3c  3c 32 31 20 8b 20 62 6c  |ck%!8=1<<21 . bl|
00004a30  6f 63 6b 25 21 38 3d 30  0d 1f b8 21 c8 99 22 57  |ock%!8=0...!.."W|
00004a40  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00004a50  22 2c 2c 62 6c 6f 63 6b  25 0d 1f c2 04 0d 1f cc  |",,block%.......|
00004a60  05 e1 0d 1f d6 04 0d 1f  e0 04 0d 1f ea 05 3a 0d  |..............:.|
00004a70  1f f4 04 0d 1f fe 0f dd  f2 73 65 74 5f 73 6f 75  |.........set_sou|
00004a80  6e 64 0d 20 08 22 e7 20  73 6f 75 6e 64 25 20 8c  |nd. .". sound% .|
00004a90  20 73 6f 75 6e 64 25 3d  a3 20 8b 20 73 6f 75 6e  | sound%=. . soun|
00004aa0  64 25 3d b9 0d 20 12 05  e1 0d 20 1c 04 0d 20 26  |d%=.. .... ... &|
00004ab0  05 3a 0d 20 30 04 0d 20  3a 11 dd f2 69 6e 73 65  |.:. 0.. :...inse|
00004ac0  72 74 5f 74 69 6d 65 0d  20 44 04 0d 20 4e 04 0d  |rt_time. D.. N..|
00004ad0  20 58 0b 6c 6f 6f 70 2b  3d 31 0d 20 62 1f e7 20  | X.loop+=1. b.. |
00004ae0  6c 6f 6f 70 3d a9 28 74  65 78 74 24 29 20 8c 20  |loop=.(text$) . |
00004af0  69 6e 73 65 72 74 25 3d  a3 0d 20 6c 23 e7 20 69  |insert%=.. l#. i|
00004b00  6e 73 65 72 74 25 20 8c  20 f2 73 65 6e 64 5f 6d  |nsert% . .send_m|
00004b10  65 73 73 61 67 65 28 6c  6f 6f 70 29 0d 20 76 04  |essage(loop). v.|
00004b20  0d 20 80 05 e1 0d 20 8a  04 0d 20 94 04 0d 20 9e  |. .... ... ... .|
00004b30  05 3a 0d 20 a8 04 0d 20  b2 15 dd f2 73 65 6e 64  |.:. ... ....send|
00004b40  5f 6d 65 73 73 61 67 65  28 78 29 0d 20 bc 15 73  |_message(x). ..s|
00004b50  65 6e 64 24 3d c1 74 65  78 74 24 2c 78 2c 31 29  |end$=.text$,x,1)|
00004b60  0d 20 c6 12 73 65 6e 64  25 3d 97 28 73 65 6e 64  |. ..send%=.(send|
00004b70  24 29 0d 20 d0 1e c8 99  20 22 57 69 6d 70 5f 50  |$). .... "Wimp_P|
00004b80  72 6f 63 65 73 73 4b 65  79 22 2c 73 65 6e 64 25  |rocessKey",send%|
00004b90  0d 20 da 05 e1 0d 20 e4  04 0d 20 ee 05 3a 0d 20  |. .... ... ..:. |
00004ba0  f8 0e dd a4 67 65 74 5f  74 69 6d 65 0d 21 02 0f  |....get_time.!..|
00004bb0  3f 28 62 75 66 66 65 72  29 3d 30 0d 21 0c 1a c8  |?(buffer)=0.!...|
00004bc0  99 20 22 4f 53 5f 57 6f  72 64 22 2c 31 34 2c 62  |. "OS_Word",14,b|
00004bd0  75 66 66 65 72 0d 21 16  0c 74 65 78 74 24 3d 22  |uffer.!..text$="|
00004be0  22 0d 21 20 0c 5a 3d 62  75 66 66 65 72 0d 21 2a  |".! .Z=buffer.!*|
00004bf0  05 f5 0d 21 34 0a 63 3d  28 3f 5a 29 0d 21 3e 14  |...!4.c=(?Z).!>.|
00004c00  74 65 78 74 24 3d 74 65  78 74 24 2b bd 28 63 29  |text$=text$+.(c)|
00004c10  0d 21 48 08 5a 2b 3d 31  0d 21 52 0b fd 20 63 3d  |.!H.Z+=1.!R.. c=|
00004c20  26 30 44 0d 21 5c 0f 3d  74 65 78 74 24 2b 22 7c  |&0D.!\.=text$+"||
00004c30  4d 22 0d 21 66 05 3a 0d  21 70 04 0d 21 7a 27 dd  |M".!f.:.!p..!z'.|
00004c40  20 f2 61 6c 74 65 72 5f  73 70 72 69 74 65 28 73  | .alter_sprite(s|
00004c50  70 72 69 74 65 5f 6e 61  6d 65 24 2c 74 65 78 74  |prite_name$,text|
00004c60  24 29 0d 21 84 55 f4 20  49 46 20 4c 45 4e 28 73  |$).!.U. IF LEN(s|
00004c70  70 72 69 74 65 5f 6e 61  6d 65 24 29 3e 31 30 20  |prite_name$)>10 |
00004c80  50 52 4f 43 72 65 70 6f  72 74 5f 65 72 72 6f 72  |PROCreport_error|
00004c90  28 22 54 6f 6f 20 6d 61  6e 79 20 63 68 61 72 61  |("Too many chara|
00004ca0  63 74 65 72 73 20 66 6f  72 20 73 70 72 69 74 65  |cters for sprite|
00004cb0  20 6e 61 6d 65 22 29 0d  21 8e 47 20 e7 20 a9 20  | name").!.G . . |
00004cc0  28 74 65 78 74 24 29 3e  31 30 20 f2 72 65 70 6f  |(text$)>10 .repo|
00004cd0  72 74 5f 65 72 72 6f 72  28 22 54 6f 20 6d 61 6e  |rt_error("To man|
00004ce0  79 20 63 68 61 72 61 63  74 65 72 73 20 66 6f 72  |y characters for|
00004cf0  20 73 70 72 69 74 65 20  74 65 78 74 22 29 0d 21  | sprite text").!|
00004d00  98 23 20 24 73 70 72 69  74 65 5f 6e 61 6d 65 25  |.# $sprite_name%|
00004d10  3d 22 53 22 2b 73 70 72  69 74 65 5f 6e 61 6d 65  |="S"+sprite_name|
00004d20  24 0d 21 a2 17 20 24 74  65 78 74 5f 73 70 61 63  |$.!.. $text_spac|
00004d30  65 25 3d 74 65 78 74 24  0d 21 ac 10 20 62 6c 6f  |e%=text$.!.. blo|
00004d40  63 6b 25 21 30 3d 2d 32  0d 21 b6 13 20 62 6c 6f  |ck%!0=-2.!.. blo|
00004d50  63 6b 25 21 34 3d 69 63  6f 6e 25 0d 21 c0 0f 20  |ck%!4=icon%.!.. |
00004d60  62 6c 6f 63 6b 25 21 38  3d 30 0d 21 ca 10 20 62  |block%!8=0.!.. b|
00004d70  6c 6f 63 6b 25 21 31 32  3d 30 0d 21 d4 23 20 c8  |lock%!12=0.!.# .|
00004d80  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
00004d90  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 21 de  |tate",,block%.!.|
00004da0  05 e1 0d 21 e8 04 0d 21  f2 05 3a 0d 21 fc 04 0d  |...!...!..:.!...|
00004db0  22 06 18 dd 20 f2 67 65  74 5f 73 63 72 69 70 74  |"... .get_script|
00004dc0  28 66 69 6c 65 24 29 0d  22 10 0f 6e 6f 73 63 72  |(file$)."..noscr|
00004dd0  69 70 74 25 3d a3 0d 22  1a 1c ee 20 85 20 ea 20  |ipt%=.."... . . |
00004de0  d9 23 41 25 3a f2 63 68  65 63 6b 5f 66 69 6c 65  |.#A%:.check_file|
00004df0  3a e1 0d 22 24 0b 20 6c  61 73 74 3d a3 0d 22 2e  |:.."$. last=..".|
00004e00  0d 20 43 6f 75 6e 74 25  3d 30 0d 22 38 15 20 41  |. Count%=0."8. A|
00004e10  25 3d 8e 20 73 63 72 69  70 74 66 69 6c 65 24 0d  |%=. scriptfile$.|
00004e20  22 42 06 20 f5 0d 22 4c  10 20 20 77 6f 72 64 24  |"B. .."L.  word$|
00004e30  3d be 23 41 25 0d 22 56  25 20 20 e7 20 c0 77 6f  |=.#A%."V%  . .wo|
00004e40  72 64 24 2c 31 29 3d 22  7c 22 20 8c 20 43 6f 75  |rd$,1)="|" . Cou|
00004e50  6e 74 25 3d 43 6f 75 6e  74 25 0d 22 60 22 20 20  |nt%=Count%."`"  |
00004e60  e7 20 c0 77 6f 72 64 24  2c 35 29 3d 22 2e 45 4e  |. .word$,5)=".EN|
00004e70  44 2e 22 20 8c 20 6c 61  73 74 3d b9 0d 22 6a 16  |D." . last=.."j.|
00004e80  e7 20 c0 77 6f 72 64 24  2c 31 29 3c 3e 22 7c 22  |. .word$,1)<>"|"|
00004e90  20 8c 0d 22 74 16 20 e3  20 6e 75 6c 6c 3d 31 20  | .."t. . null=1 |
00004ea0  b8 20 a9 77 6f 72 64 24  0d 22 7e 2f 20 20 e7 20  |. .word$."~/  . |
00004eb0  c1 77 6f 72 64 24 2c 6e  75 6c 6c 2c 31 29 3d 22  |.word$,null,1)="|
00004ec0  3a 22 20 8c 20 6f 77 6e  70 61 74 68 25 28 43 6f  |:" . ownpath%(Co|
00004ed0  75 6e 74 25 29 3d b9 0d  22 88 0b 20 ed 20 6e 75  |unt%)=..".. . nu|
00004ee0  6c 6c 0d 22 92 24 64 65  6c 61 79 24 28 43 6f 75  |ll.".$delay$(Cou|
00004ef0  6e 74 25 2c 31 29 3d 77  6f 72 64 24 3a 43 6f 75  |nt%,1)=word$:Cou|
00004f00  6e 74 25 2b 3d 31 0d 22  9c 05 cd 0d 22 a6 0b 20  |nt%+=1."....".. |
00004f10  fd 20 6c 61 73 74 0d 22  b0 1c 20 61 6d 6f 75 6e  |. last.".. amoun|
00004f20  74 6f 66 66 69 6c 65 73  25 3d 43 6f 75 6e 74 25  |toffiles%=Count%|
00004f30  2d 31 0d 22 ba 09 20 d9  23 41 25 0d 22 c4 1c e3  |-1.".. .#A%."...|
00004f40  20 78 3d 30 20 b8 20 61  6d 6f 75 6e 74 6f 66 66  | x=0 . amountoff|
00004f50  69 6c 65 73 25 2d 31 0d  22 ce 1e 20 e3 20 6c 6f  |iles%-1.".. . lo|
00004f60  6f 70 3d 31 20 b8 20 a9  28 64 65 6c 61 79 24 28  |op=1 . .(delay$(|
00004f70  78 2c 31 29 29 0d 22 d8  73 20 20 e7 20 c1 64 65  |x,1)).".s  . .de|
00004f80  6c 61 79 24 28 78 2c 31  29 2c 6c 6f 6f 70 2c 31  |lay$(x,1),loop,1|
00004f90  29 3d 22 2c 22 20 8c 20  64 65 6c 61 79 24 28 78  |)="," . delay$(x|
00004fa0  2c 32 29 3d c1 64 65 6c  61 79 24 28 78 2c 31 29  |,2)=.delay$(x,1)|
00004fb0  2c 6c 6f 6f 70 2b 31 2c  a9 64 65 6c 61 79 24 28  |,loop+1,.delay$(|
00004fc0  78 2c 31 29 29 3a 64 65  6c 61 79 24 28 78 2c 31  |x,1)):delay$(x,1|
00004fd0  29 3d c1 64 65 6c 61 79  24 28 78 2c 31 29 2c 31  |)=.delay$(x,1),1|
00004fe0  2c 6c 6f 6f 70 2d 31 29  0d 22 e2 07 20 20 ed 0d  |,loop-1)."..  ..|
00004ff0  22 ec 05 ed 0d 22 f6 08  20 d1 3d 30 0d 23 00 0d  |"....".. .=0.#..|
00005000  74 6f 74 74 69 6d 65 3d  30 0d 23 0a 1c e3 20 78  |tottime=0.#... x|
00005010  3d 30 20 b8 20 61 6d 6f  75 6e 74 6f 66 66 69 6c  |=0 . amountoffil|
00005020  65 73 25 2d 31 0d 23 14  21 74 6f 74 74 69 6d 65  |es%-1.#.!tottime|
00005030  3d 74 6f 74 74 69 6d 65  2b bb 20 64 65 6c 61 79  |=tottime+. delay|
00005040  24 28 78 2c 32 29 0d 23  1e 05 ed 0d 23 28 05 e1  |$(x,2).#....#(..|
00005050  0d 23 32 04 0d 23 3c 05  3a 0d 23 46 04 0d 23 50  |.#2..#<.:.#F..#P|
00005060  0c dd 20 f2 73 74 61 72  74 0d 23 5a 22 e7 20 70  |.. .start.#Z". p|
00005070  61 75 73 65 25 20 8c 20  f2 70 61 75 73 65 3a f2  |ause% . .pause:.|
00005080  73 65 6c 65 63 74 28 36  2c a3 29 0d 23 64 04 0d  |select(6,.).#d..|
00005090  23 6e 21 20 e7 20 61 75  74 6f 73 74 61 72 74 25  |#n! . autostart%|
000050a0  20 8c 20 f2 61 75 74 6f  5f 73 74 61 72 74 20 8b  | . .auto_start .|
000050b0  0d 23 78 19 20 20 e7 20  70 61 75 73 65 25 20 8c  |.#x.  . pause% .|
000050c0  20 f2 70 61 75 73 65 3a  e1 0d 23 82 17 20 20 20  | .pause:..#..   |
000050d0  e7 20 66 69 6c 65 6e 61  6d 65 24 3d 22 22 20 8c  |. filename$="" .|
000050e0  0d 23 8c 38 20 20 20 20  20 20 f2 72 65 70 6f 72  |.#.8      .repor|
000050f0  74 5f 65 72 72 6f 72 28  a4 6d 73 67 74 72 61 6e  |t_error(.msgtran|
00005100  73 5f 6c 6f 6f 6b 75 70  28 22 53 65 6c 65 63 74  |s_lookup("Select|
00005110  22 2c c3 28 30 29 29 29  0d 23 96 09 20 20 20 20  |",.(0))).#..    |
00005120  cc 0d 23 a0 22 20 20 20  20 20 20 f2 67 65 74 5f  |..#."      .get_|
00005130  73 63 72 69 70 74 28 73  63 72 69 70 74 66 69 6c  |script(scriptfil|
00005140  65 24 29 0d 23 aa 25 20  20 20 20 20 20 20 20 20  |e$).#.%         |
00005150  20 e7 20 6e 6f 73 63 72  69 70 74 25 20 8c 20 f2  | . noscript% . .|
00005160  73 74 6f 70 3a cd 3a e1  0d 23 b4 12 20 20 20 20  |stop:.:..#..    |
00005170  20 20 73 74 61 72 74 25  3d b9 0d 23 be 0d 20 20  |  start%=..#..  |
00005180  20 20 20 20 d1 3d 30 0d  23 c8 2c 20 20 20 20 20  |    .=0.#.,     |
00005190  20 f2 61 6c 74 65 72 5f  73 70 72 69 74 65 28 22  | .alter_sprite("|
000051a0  52 75 6e 6e 69 6e 67 22  2c 22 52 75 6e 6e 69 6e  |Running","Runnin|
000051b0  67 22 29 0d 23 d2 27 20  20 20 20 20 20 f2 73 68  |g").#.'      .sh|
000051c0  61 64 65 5f 69 63 6f 6e  28 4d 61 69 6e 57 48 61  |ade_icon(MainWHa|
000051d0  6e 64 6c 65 25 2c 34 2c  b9 29 0d 23 dc 25 20 20  |ndle%,4,.).#.%  |
000051e0  20 20 20 20 f2 63 6c 6f  73 65 5f 77 69 6e 64 6f  |    .close_windo|
000051f0  77 28 4d 61 69 6e 57 48  61 6e 64 6c 65 25 29 0d  |w(MainWHandle%).|
00005200  23 e6 09 20 20 20 20 cd  0d 23 f0 07 20 20 cd 0d  |#..    ..#..  ..|
00005210  23 fa 05 e1 0d 24 04 04  0d 24 0e 05 3a 0d 24 18  |#....$...$..:.$.|
00005220  04 0d 24 22 11 dd 20 f2  61 75 74 6f 5f 73 74 61  |..$".. .auto_sta|
00005230  72 74 0d 24 2c 07 ea 20  61 0d 24 36 2d 20 66 69  |rt.$,.. a.$6- fi|
00005240  6c 65 6e 61 6d 65 24 3d  22 3c 4e 65 77 73 44 65  |lename$="<NewsDe|
00005250  73 6b 24 44 69 72 3e 2e  66 69 6c 65 73 2e 22 2b  |sk$Dir>.files."+|
00005260  74 65 78 74 31 24 0d 24  40 12 20 73 74 6f 72 79  |text1$.$@. story|
00005270  24 3d 74 65 78 74 31 24  0d 24 4a 24 20 73 63 72  |$=text1$.$J$ scr|
00005280  69 70 74 66 69 6c 65 24  3d 66 69 6c 65 6e 61 6d  |iptfile$=filenam|
00005290  65 24 2b 22 2e 53 63 72  69 70 74 22 0d 24 54 1d  |e$+".Script".$T.|
000052a0  20 f2 67 65 74 5f 73 63  72 69 70 74 28 73 63 72  | .get_script(scr|
000052b0  69 70 74 66 69 6c 65 24  29 0d 24 5e 1d 20 20 20  |iptfile$).$^.   |
000052c0  20 e7 20 6e 6f 73 63 72  69 70 74 25 20 8c 20 f2  | . noscript% . .|
000052d0  73 74 6f 70 3a e1 0d 24  68 2f 20 f2 63 68 61 6e  |stop:..$h/ .chan|
000052e0  67 65 5f 69 63 6f 6e 28  62 6c 6f 63 6b 25 2c 4d  |ge_icon(block%,M|
000052f0  61 69 6e 57 48 61 6e 64  6c 65 25 2c 33 2c 74 65  |ainWHandle%,3,te|
00005300  78 74 31 24 29 0d 24 72  19 20 63 75 72 72 65 6e  |xt1$).$r. curren|
00005310  74 70 6f 73 25 3d bb 20  74 65 78 74 32 24 0d 24  |tpos%=. text2$.$|
00005320  7c 1a 20 e3 20 78 3d 30  20 b8 20 63 75 72 72 65  ||. . x=0 . curre|
00005330  6e 74 70 6f 73 25 2d 31  0d 24 86 12 20 20 6f 70  |ntpos%-1.$..  op|
00005340  65 6e 65 64 25 28 78 29  3d b9 0d 24 90 06 20 ed  |ened%(x)=..$.. .|
00005350  0d 24 9a 0d 20 73 74 61  72 74 25 3d b9 0d 24 a4  |.$.. start%=..$.|
00005360  2e 20 d1 3d 30 3a f4 56  41 4c 64 65 6c 61 79 24  |. .=0:.VALdelay$|
00005370  28 28 56 41 4c 20 74 65  78 74 32 24 29 2b 31 2c  |((VAL text2$)+1,|
00005380  32 29 2b 31 2a 31 30 30  2a 36 30 0d 24 ae 27 20  |2)+1*100*60.$.' |
00005390  f2 61 6c 74 65 72 5f 73  70 72 69 74 65 28 22 52  |.alter_sprite("R|
000053a0  75 6e 6e 69 6e 67 22 2c  22 52 75 6e 6e 69 6e 67  |unning","Running|
000053b0  22 29 0d 24 b8 22 20 f2  73 68 61 64 65 5f 69 63  |").$." .shade_ic|
000053c0  6f 6e 28 4d 61 69 6e 57  48 61 6e 64 6c 65 25 2c  |on(MainWHandle%,|
000053d0  34 2c b9 29 0d 24 c2 15  20 66 69 6c 65 6d 65 6e  |4,.).$.. filemen|
000053e0  75 24 3d 22 53 68 6f 77  22 0d 24 cc 17 20 e7 20  |u$="Show".$.. . |
000053f0  63 75 72 72 65 6e 74 70  6f 73 25 3e 3d 31 20 8c  |currentpos%>=1 .|
00005400  0d 24 d6 1d 20 20 20 e3  20 61 20 3d 30 20 b8 20  |.$..   . a =0 . |
00005410  63 75 72 72 65 6e 74 70  6f 73 25 2d 31 0d 24 e0  |currentpos%-1.$.|
00005420  25 20 20 20 20 20 66 69  6c 65 6d 65 6e 75 24 2b  |%     filemenu$+|
00005430  3d bd 28 34 34 29 2b 64  65 6c 61 79 24 28 61 2c  |=.(44)+delay$(a,|
00005440  31 29 0d 24 ea 2c 20 20  20 20 20 f2 64 72 61 77  |1).$.,     .draw|
00005450  5f 6d 65 6e 75 28 66 69  6c 65 6d 65 6e 75 25 2c  |_menu(filemenu%,|
00005460  66 69 6c 65 6d 65 6e 75  24 2c 31 34 34 29 0d 24  |filemenu$,144).$|
00005470  f4 08 20 20 20 ed 0d 24  fe 06 20 cd 0d 25 08 10  |..   ..$.. ..%..|
00005480  70 6f 73 3d bb 20 74 65  78 74 33 24 0d 25 12 1d  |pos=. text3$.%..|
00005490  f2 73 65 6c 65 63 74 28  35 2c b9 29 3a f2 73 65  |.select(5,.):.se|
000054a0  6c 65 63 74 28 36 2c a3  29 0d 25 1c 05 e1 0d 25  |lect(6,.).%....%|
000054b0  26 04 0d 25 30 05 3a 0d  25 3a 04 0d 25 44 0f dd  |&..%0.:.%:..%D..|
000054c0  f2 73 75 72 65 5f 73 74  6f 70 0d 25 4e 13 20 73  |.sure_stop.%N. s|
000054d0  74 6f 70 77 69 6e 6f 70  65 6e 25 3d b9 0d 25 58  |topwinopen%=..%X|
000054e0  14 20 e7 20 73 6f 75 6e  64 25 3d b9 20 8c 20 ef  |. . sound%=. . .|
000054f0  37 0d 25 62 19 20 20 e7  20 70 61 75 73 65 25 3d  |7.%b.  . pause%=|
00005500  a3 20 8c 20 f2 70 61 75  73 65 0d 25 6c 2f 20 f2  |. . .pause.%l/ .|
00005510  63 68 61 6e 67 65 5f 69  63 6f 6e 28 62 6c 6f 63  |change_icon(bloc|
00005520  6b 25 2c 51 75 69 74 57  48 61 6e 64 6c 65 25 2c  |k%,QuitWHandle%,|
00005530  32 2c 22 53 74 6f 70 22  29 0d 25 76 47 20 f2 63  |2,"Stop").%vG .c|
00005540  68 61 6e 67 65 5f 69 63  6f 6e 28 62 6c 6f 63 6b  |hange_icon(block|
00005550  25 2c 51 75 69 74 57 48  61 6e 64 6c 65 25 2c 30  |%,QuitWHandle%,0|
00005560  2c a4 6d 73 67 74 72 61  6e 73 5f 6c 6f 6f 6b 75  |,.msgtrans_looku|
00005570  70 28 22 53 74 6f 70 31  22 2c c3 28 30 29 29 29  |p("Stop1",.(0)))|
00005580  0d 25 80 47 20 f2 63 68  61 6e 67 65 5f 69 63 6f  |.%.G .change_ico|
00005590  6e 28 62 6c 6f 63 6b 25  2c 51 75 69 74 57 48 61  |n(block%,QuitWHa|
000055a0  6e 64 6c 65 25 2c 31 2c  a4 6d 73 67 74 72 61 6e  |ndle%,1,.msgtran|
000055b0  73 5f 6c 6f 6f 6b 75 70  28 22 53 74 6f 70 32 22  |s_lookup("Stop2"|
000055c0  2c c3 28 30 29 29 29 0d  25 8a 32 20 f2 6f 70 65  |,.(0))).%.2 .ope|
000055d0  6e 5f 61 6e 64 5f 63 65  6e 74 72 65 5f 77 69 6e  |n_and_centre_win|
000055e0  64 6f 77 28 51 75 69 74  57 48 61 6e 64 6c 65 25  |dow(QuitWHandle%|
000055f0  2c 37 33 38 2c 32 37 36  29 0d 25 94 05 e1 0d 25  |,738,276).%....%|
00005600  9e 04 0d 25 a8 05 3a 0d  25 b2 04 0d 25 bc 0b dd  |...%..:.%...%...|
00005610  20 f2 73 74 6f 70 0d 25  c6 22 e7 20 70 61 75 73  | .stop.%.". paus|
00005620  65 25 20 8c 20 f2 70 61  75 73 65 3a f2 73 65 6c  |e% . .pause:.sel|
00005630  65 63 74 28 36 2c a3 29  0d 25 d0 10 20 20 e3 20  |ect(6,.).%..  . |
00005640  78 3d 31 20 b8 20 37 38  0d 25 da 14 20 20 20 20  |x=1 . 78.%..    |
00005650  6f 70 65 6e 65 64 25 28  78 29 3d a3 0d 25 e4 07  |opened%(x)=..%..|
00005660  20 20 ed 0d 25 ee 0d 20  73 74 61 72 74 25 3d a3  |  ..%.. start%=.|
00005670  0d 25 f8 0d 20 70 61 75  73 65 25 3d a3 0d 26 02  |.%.. pause%=..&.|
00005680  0c 20 64 6f 6e 65 25 3d  a3 0d 26 0c 0d 20 73 61  |. done%=..&.. sa|
00005690  76 65 64 25 3d a3 0d 26  16 12 20 63 75 72 72 65  |ved%=..&.. curre|
000056a0  6e 74 70 6f 73 25 3d 30  0d 26 20 11 20 66 69 6c  |ntpos%=0.& . fil|
000056b0  65 6e 61 6d 65 24 3d 22  22 0d 26 2a 0e 20 73 74  |ename$="".&*. st|
000056c0  6f 72 79 24 3d 22 22 0d  26 34 11 20 61 75 74 6f  |ory$="".&4. auto|
000056d0  73 74 61 72 74 25 3d a3  0d 26 3e 13 20 73 74 6f  |start%=..&>. sto|
000056e0  70 77 69 6e 6f 70 65 6e  25 3d a3 0d 26 48 2b 20  |pwinopen%=..&H+ |
000056f0  f2 63 68 61 6e 67 65 5f  69 63 6f 6e 28 62 6c 6f  |.change_icon(blo|
00005700  63 6b 25 2c 4d 61 69 6e  57 48 61 6e 64 6c 65 25  |ck%,MainWHandle%|
00005710  2c 33 2c 22 22 29 0d 26  52 27 20 f2 61 6c 74 65  |,3,"").&R' .alte|
00005720  72 5f 73 70 72 69 74 65  28 22 53 74 6f 70 70 65  |r_sprite("Stoppe|
00005730  64 22 2c 22 53 74 61 6e  64 62 79 22 29 0d 26 5c  |d","Standby").&\|
00005740  22 20 f2 73 68 61 64 65  5f 69 63 6f 6e 28 4d 61  |" .shade_icon(Ma|
00005750  69 6e 57 48 61 6e 64 6c  65 25 2c 34 2c a3 29 0d  |inWHandle%,4,.).|
00005760  26 66 1e 20 66 69 6c 65  6d 65 6e 75 24 3d 22 53  |&f. filemenu$="S|
00005770  68 6f 77 2c 4e 6f 20 66  69 6c 65 73 22 0d 26 70  |how,No files".&p|
00005780  28 20 f2 64 72 61 77 5f  6d 65 6e 75 28 66 69 6c  |( .draw_menu(fil|
00005790  65 6d 65 6e 75 25 2c 66  69 6c 65 6d 65 6e 75 24  |emenu%,filemenu$|
000057a0  2c 31 34 34 29 0d 26 7a  30 20 f2 63 68 61 6e 67  |,144).&z0 .chang|
000057b0  65 5f 69 63 6f 6e 28 62  6c 6f 63 6b 25 2c 53 74  |e_icon(block%,St|
000057c0  61 74 75 73 57 48 61 6e  64 6c 65 25 2c 32 2c 22  |atusWHandle%,2,"|
000057d0  30 30 25 22 29 0d 26 84  23 20 f2 64 65 6c 65 74  |00%").&.# .delet|
000057e0  65 5f 69 63 6f 6e 28 53  74 61 74 75 73 57 48 61  |e_icon(StatusWHa|
000057f0  6e 64 6c 65 25 2c 31 29  0d 26 8e 3b 20 69 63 6f  |ndle%,1).&.; ico|
00005800  6e 25 3d a4 61 64 64 5f  69 63 6f 6e 5f 62 6c 6f  |n%=.add_icon_blo|
00005810  63 6b 28 53 74 61 74 75  73 57 48 61 6e 64 6c 65  |ck(StatusWHandle|
00005820  25 2c 32 30 2c 2d 37 36  2c 32 31 2c 2d 34 34 2c  |%,20,-76,21,-44,|
00005830  31 30 29 0d 26 98 0d 20  66 69 72 73 74 25 3d b9  |10).&.. first%=.|
00005840  0d 26 a2 12 20 73 63 72  6f 6c 6c 74 69 6d 65 25  |.&.. scrolltime%|
00005850  3d 30 0d 26 ac 13 20 73  63 72 6f 6c 6c 74 69 6d  |=0.&.. scrolltim|
00005860  65 32 25 3d 30 0d 26 b6  0a 20 70 6f 73 3d 30 0d  |e2%=0.&.. pos=0.|
00005870  26 c0 05 e1 0d 26 ca 04  0d 26 d4 05 3a 0d 26 de  |&....&...&..:.&.|
00005880  04 0d 26 e8 0c dd 20 f2  70 61 75 73 65 0d 26 f2  |..&... .pause.&.|
00005890  0f e7 20 64 6f 6e 65 25  20 8c 20 e1 0d 26 fc 10  |.. done% . ..&..|
000058a0  e7 20 70 61 75 73 65 25  3d b9 20 8c 0d 27 06 11  |. pause%=. ..'..|
000058b0  20 d1 3d 53 74 6f 72 65  64 54 69 6d 65 0d 27 10  | .=StoredTime.'.|
000058c0  0d 20 70 61 75 73 65 25  3d a3 0d 27 1a 56 e7 20  |. pause%=..'.V. |
000058d0  73 74 61 72 74 25 20 8c  20 f2 61 6c 74 65 72 5f  |start% . .alter_|
000058e0  73 70 72 69 74 65 28 22  52 75 6e 6e 69 6e 67 22  |sprite("Running"|
000058f0  2c 22 52 75 6e 6e 69 6e  67 22 29 20 8b 20 f2 61  |,"Running") . .a|
00005900  6c 74 65 72 5f 73 70 72  69 74 65 28 22 53 74 6f  |lter_sprite("Sto|
00005910  70 70 65 64 22 2c 22 53  74 61 6e 64 62 79 22 29  |pped","Standby")|
00005920  0d 27 24 05 cc 0d 27 2e  11 20 53 74 6f 72 65 64  |.'$...'.. Stored|
00005930  54 69 6d 65 3d 91 0d 27  38 0d 20 70 61 75 73 65  |Time=..'8. pause|
00005940  25 3d b9 0d 27 42 24 f2  61 6c 74 65 72 5f 73 70  |%=..'B$.alter_sp|
00005950  72 69 74 65 28 22 50 61  75 73 65 64 22 2c 22 50  |rite("Paused","P|
00005960  61 75 73 65 64 22 29 0d  27 4c 05 cd 0d 27 56 05  |aused").'L...'V.|
00005970  e1 0d 27 60 04 0d 27 6a  05 3a 0d 27 74 04 0d 27  |..'`..'j.:.'t..'|
00005980  7e 35 dd 20 f2 73 68 61  64 65 5f 69 63 6f 6e 28  |~5. .shade_icon(|
00005990  77 69 6e 64 6f 77 5f 68  61 6e 64 6c 65 25 2c 69  |window_handle%,i|
000059a0  63 6f 6e 5f 68 61 6e 64  6c 65 25 2c 73 68 61 64  |con_handle%,shad|
000059b0  65 25 29 0d 27 88 1b 62  6c 6f 63 6b 25 21 30 3d  |e%).'..block%!0=|
000059c0  77 69 6e 64 6f 77 5f 68  61 6e 64 6c 65 25 0d 27  |window_handle%.'|
000059d0  92 19 62 6c 6f 63 6b 25  21 34 3d 69 63 6f 6e 5f  |..block%!4=icon_|
000059e0  68 61 6e 64 6c 65 25 0d  27 9c 13 62 6c 6f 63 6b  |handle%.'..block|
000059f0  25 21 31 32 3d 31 3c 3c  32 32 0d 27 a6 28 e7 20  |%!12=1<<22.'.(. |
00005a00  73 68 61 64 65 25 20 62  6c 6f 63 6b 25 21 38 3d  |shade% block%!8=|
00005a10  31 3c 3c 32 32 20 8b 20  62 6c 6f 63 6b 25 21 38  |1<<22 . block%!8|
00005a20  3d 30 0d 27 b0 22 c8 99  20 22 57 69 6d 70 5f 53  |=0.'.".. "Wimp_S|
00005a30  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
00005a40  6f 63 6b 25 0d 27 ba 05  e1 0d 27 c4 04 0d 27 ce  |ock%.'....'...'.|
00005a50  05 3a 0d 27 d8 04 0d 27  e2 11 dd 20 f2 63 68 65  |.:.'...'... .che|
00005a60  63 6b 5f 74 69 6d 65 0d  27 ec 15 ee 20 85 20 ea  |ck_time.'... . .|
00005a70  20 f2 63 68 65 63 6b 5f  66 69 6c 65 0d 27 f6 0f  | .check_file.'..|
00005a80  e7 20 64 6f 6e 65 25 20  8c 20 e1 0d 28 00 16 73  |. done% . ..(..s|
00005a90  63 72 6f 6c 6c 74 69 6d  65 32 25 3d 91 2f 31 30  |crolltime2%=./10|
00005aa0  30 0d 28 0a 36 e7 20 28  73 63 72 6f 6c 6c 74 69  |0.(.6. (scrollti|
00005ab0  6d 65 32 25 2d 73 63 72  6f 6c 6c 74 69 6d 65 25  |me2%-scrolltime%|
00005ac0  29 3e 3d 31 20 84 20 66  69 72 73 74 25 20 8c 20  |)>=1 . first% . |
00005ad0  f2 73 63 72 6f 6c 6c 0d  28 14 0d 74 69 6d 65 72  |.scroll.(..timer|
00005ae0  25 2b 3d 31 0d 28 1e 25  e7 20 63 61 72 65 74 73  |%+=1.(.%. carets|
00005af0  65 74 25 20 80 20 74 69  6d 65 72 25 3e 3d 31 30  |et% . timer%>=10|
00005b00  20 8c 20 f2 63 61 72 65  74 0d 28 28 15 e7 20 63  | . .caret.((.. c|
00005b10  75 72 72 65 6e 74 70 6f  73 25 3d 30 20 8c 0d 28  |urrentpos%=0 ..(|
00005b20  32 60 20 e7 20 91 20 3e  20 bb 64 65 6c 61 79 24  |2` . . > .delay$|
00005b30  28 63 75 72 72 65 6e 74  70 6f 73 25 2c 32 29 2a  |(currentpos%,2)*|
00005b40  31 30 30 2a 36 30 20 80  20 6f 70 65 6e 65 64 25  |100*60 . opened%|
00005b50  28 63 75 72 72 65 6e 74  70 6f 73 25 2b 31 29 3d  |(currentpos%+1)=|
00005b60  a3 20 8c 20 f2 64 69 73  70 6c 61 79 5f 66 69 6c  |. . .display_fil|
00005b70  65 28 63 75 72 72 65 6e  74 70 6f 73 25 29 0d 28  |e(currentpos%).(|
00005b80  3c 05 cc 0d 28 46 61 e7  20 91 20 3e 20 bb 64 65  |<...(Fa. . > .de|
00005b90  6c 61 79 24 28 63 75 72  72 65 6e 74 70 6f 73 25  |lay$(currentpos%|
00005ba0  2d 31 2c 32 29 2a 31 30  30 2a 36 30 20 80 20 6f  |-1,2)*100*60 . o|
00005bb0  70 65 6e 65 64 25 28 63  75 72 72 65 6e 74 70 6f  |pened%(currentpo|
00005bc0  73 25 2b 31 29 3d a3 20  8c 20 f2 64 69 73 70 6c  |s%+1)=. . .displ|
00005bd0  61 79 5f 66 69 6c 65 28  63 75 72 72 65 6e 74 70  |ay_file(currentp|
00005be0  6f 73 25 29 0d 28 50 05  cd 0d 28 5a 04 0d 28 64  |os%).(P...(Z..(d|
00005bf0  04 0d 28 6e 5e e7 20 63  75 72 72 65 6e 74 70 6f  |..(n^. currentpo|
00005c00  73 25 2b 31 3e 61 6d 6f  75 6e 74 6f 66 66 69 6c  |s%+1>amountoffil|
00005c10  65 73 25 20 8c 20 64 6f  6e 65 25 3d b9 3a f2 62  |es% . done%=.:.b|
00005c20  61 6e 6e 65 72 28 61 70  70 6e 61 6d 65 24 2c a4  |anner(appname$,.|
00005c30  6d 73 67 74 72 61 6e 73  5f 6c 6f 6f 6b 75 70 28  |msgtrans_lookup(|
00005c40  22 4e 6f 6e 65 77 73 22  2c c3 28 30 29 29 29 0d  |"Nonews",.(0))).|
00005c50  28 78 05 e1 0d 28 82 04  0d 28 8c 05 3a 0d 28 96  |(x...(...(..:.(.|
00005c60  04 0d 28 a0 0c dd f2 73  63 72 6f 6c 6c 0d 28 aa  |..(....scroll.(.|
00005c70  04 0d 28 b4 15 73 63 72  6f 6c 6c 74 69 6d 65 25  |..(..scrolltime%|
00005c80  3d 91 2f 31 30 30 0d 28  be 0c 66 69 72 73 74 25  |=./100.(..first%|
00005c90  3d a3 0d 28 c8 1a 73 70  65 65 64 3d 35 39 34 2f  |=..(..speed=594/|
00005ca0  28 74 6f 74 74 69 6d 65  2a 36 30 29 0d 28 d2 0e  |(tottime*60).(..|
00005cb0  70 6f 73 2b 3d 73 70 65  65 64 0d 28 dc 22 f2 64  |pos+=speed.(.".d|
00005cc0  65 6c 65 74 65 5f 69 63  6f 6e 28 53 74 61 74 75  |elete_icon(Statu|
00005cd0  73 57 48 61 6e 64 6c 65  25 2c 31 29 0d 28 e6 3f  |sWHandle%,1).(.?|
00005ce0  e7 20 70 6f 73 3e 36 30  30 20 8c 20 f2 72 65 70  |. pos>600 . .rep|
00005cf0  6f 72 74 5f 65 72 72 6f  72 28 22 50 6f 73 69 74  |ort_error("Posit|
00005d00  69 6f 6e 20 68 61 73 20  65 78 63 65 65 64 65 64  |ion has exceeded|
00005d10  20 31 30 30 25 21 21 21  21 22 29 0d 28 f0 3b 69  | 100%!!!!").(.;i|
00005d20  63 6f 6e 25 3d a4 61 64  64 5f 69 63 6f 6e 5f 62  |con%=.add_icon_b|
00005d30  6c 6f 63 6b 28 53 74 61  74 75 73 57 48 61 6e 64  |lock(StatusWHand|
00005d40  6c 65 25 2c 32 30 2c 2d  37 36 2c 70 6f 73 2c 2d  |le%,20,-76,pos,-|
00005d50  34 34 2c 31 30 29 0d 28  fa 1d 70 65 72 63 65 6e  |44,10).(..percen|
00005d60  74 61 67 65 25 3d 28 31  30 30 2f 35 39 34 29 2a  |tage%=(100/594)*|
00005d70  70 6f 73 0d 29 04 3a f2  63 68 61 6e 67 65 5f 69  |pos.).:.change_i|
00005d80  63 6f 6e 28 62 6c 6f 63  6b 25 2c 53 74 61 74 75  |con(block%,Statu|
00005d90  73 57 48 61 6e 64 6c 65  25 2c 32 2c c3 70 65 72  |sWHandle%,2,.per|
00005da0  63 65 6e 74 61 67 65 25  2b 22 25 22 29 0d 29 0e  |centage%+"%").).|
00005db0  05 e1 0d 29 18 04 0d 29  22 05 3a 0d 29 2c 04 0d  |...)...)".:.),..|
00005dc0  29 36 3d dd a4 61 64 64  5f 69 63 6f 6e 5f 62 6c  |)6=..add_icon_bl|
00005dd0  6f 63 6b 28 77 69 6e 64  6f 77 25 2c 6d 69 6e 78  |ock(window%,minx|
00005de0  25 2c 6d 69 6e 79 25 2c  6d 61 78 78 25 2c 6d 61  |%,miny%,maxx%,ma|
00005df0  78 79 25 2c 63 6f 6c 6f  75 72 25 29 0d 29 40 14  |xy%,colour%).)@.|
00005e00  62 6c 6f 63 6b 25 21 30  3d 77 69 6e 64 6f 77 25  |block%!0=window%|
00005e10  0d 29 4a 20 e7 20 6d 69  6e 78 25 3e 6d 61 78 78  |.)J . minx%>maxx|
00005e20  25 20 c8 94 20 6d 69 6e  78 25 2c 6d 61 78 78 25  |% .. minx%,maxx%|
00005e30  0d 29 54 20 e7 20 6d 69  6e 79 25 3e 6d 61 78 79  |.)T . miny%>maxy|
00005e40  25 20 c8 94 20 6d 69 6e  79 25 2c 6d 61 78 79 25  |% .. miny%,maxy%|
00005e50  0d 29 5e 1a e7 20 6d 69  6e 78 25 3d 6d 61 78 78  |.)^.. minx%=maxx|
00005e60  25 20 6d 61 78 78 25 2b  3d 31 0d 29 68 1a e7 20  |% maxx%+=1.)h.. |
00005e70  6d 69 6e 79 25 3d 6d 61  78 79 25 20 6d 61 78 79  |miny%=maxy% maxy|
00005e80  25 2b 3d 31 0d 29 72 12  62 6c 6f 63 6b 25 21 34  |%+=1.)r.block%!4|
00005e90  3d 6d 69 6e 78 25 0d 29  7c 12 62 6c 6f 63 6b 25  |=minx%.)|.block%|
00005ea0  21 38 3d 6d 69 6e 79 25  0d 29 86 13 62 6c 6f 63  |!8=miny%.)..bloc|
00005eb0  6b 25 21 31 32 3d 6d 61  78 78 25 0d 29 90 13 62  |k%!12=maxx%.)..b|
00005ec0  6c 6f 63 6b 25 21 31 36  3d 6d 61 78 79 25 0d 29  |lock%!16=maxy%.)|
00005ed0  9a 1e 62 6c 6f 63 6b 25  21 32 30 3d 33 32 2b 28  |..block%!20=32+(|
00005ee0  63 6f 6c 6f 75 72 25 3c  3c 32 38 29 0d 29 a4 28  |colour%<<28).).(|
00005ef0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 49  |.. "Wimp_CreateI|
00005f00  63 6f 6e 22 2c 2c 62 6c  6f 63 6b 25 20 b8 20 69  |con",,block% . i|
00005f10  63 6f 6e 25 0d 29 ae 0a  3d 69 63 6f 6e 25 0d 29  |con%.)..=icon%.)|
00005f20  b8 04 0d 29 c2 05 3a 0d  29 cc 04 0d 29 d6 20 dd  |...)..:.)...). .|
00005f30  f2 64 65 6c 65 74 65 5f  69 63 6f 6e 28 77 69 6e  |.delete_icon(win|
00005f40  64 6f 77 25 2c 69 63 6f  6e 25 29 0d 29 e0 14 62  |dow%,icon%).)..b|
00005f50  6c 6f 63 6b 25 21 30 3d  77 69 6e 64 6f 77 25 0d  |lock%!0=window%.|
00005f60  29 ea 12 62 6c 6f 63 6b  25 21 34 3d 69 63 6f 6e  |)..block%!4=icon|
00005f70  25 0d 29 f4 21 c8 99 22  57 69 6d 70 5f 47 65 74  |%.).!.."Wimp_Get|
00005f80  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |IconState",,bloc|
00005f90  6b 25 0d 29 fe 12 6d 69  6e 78 25 3d 62 6c 6f 63  |k%.)..minx%=bloc|
00005fa0  6b 25 21 38 0d 2a 08 13  6d 69 6e 79 25 3d 62 6c  |k%!8.*..miny%=bl|
00005fb0  6f 63 6b 25 21 31 32 0d  2a 12 13 6d 61 78 78 25  |ock%!12.*..maxx%|
00005fc0  3d 62 6c 6f 63 6b 25 21  31 36 0d 2a 1c 13 6d 61  |=block%!16.*..ma|
00005fd0  78 79 25 3d 62 6c 6f 63  6b 25 21 32 30 0d 2a 26  |xy%=block%!20.*&|
00005fe0  1f c8 99 22 57 69 6d 70  5f 44 65 6c 65 74 65 49  |..."Wimp_DeleteI|
00005ff0  63 6f 6e 22 2c 2c 62 6c  6f 63 6b 25 0d 2a 30 38  |con",,block%.*08|
00006000  c8 99 22 57 69 6d 70 5f  46 6f 72 63 65 52 65 64  |.."Wimp_ForceRed|
00006010  72 61 77 22 2c 77 69 6e  64 6f 77 25 2c 6d 69 6e  |raw",window%,min|
00006020  78 25 2c 6d 69 6e 79 25  2c 6d 61 78 78 25 2c 6d  |x%,miny%,maxx%,m|
00006030  61 78 79 25 0d 2a 3a 05  e1 0d 2a 44 04 0d 2a 4e  |axy%.*:...*D..*N|
00006040  05 3a 0d 2a 58 04 0d 2a  62 16 dd 20 f2 64 69 73  |.:.*X..*b.. .dis|
00006050  70 6c 61 79 5f 66 69 6c  65 28 78 29 0d 2a 6c 0c  |play_file(x).*l.|
00006060  74 69 6d 65 72 25 3d 30  0d 2a 76 0a f2 63 61 72  |timer%=0.*v..car|
00006070  65 74 0d 2a 80 12 63 75  72 72 65 6e 74 70 6f 73  |et.*..currentpos|
00006080  25 2b 3d 31 0d 2a 8a 24  20 74 65 78 74 24 3d 66  |%+=1.*.$ text$=f|
00006090  69 6c 65 6e 61 6d 65 24  2b 22 2e 22 2b 64 65 6c  |ilename$+"."+del|
000060a0  61 79 24 28 78 2c 31 29  0d 2a 94 27 e7 20 6f 77  |ay$(x,1).*.'. ow|
000060b0  6e 70 61 74 68 25 28 78  29 3d b9 20 8c 20 74 65  |npath%(x)=. . te|
000060c0  78 74 24 3d 64 65 6c 61  79 24 28 78 2c 31 29 0d  |xt$=delay$(x,1).|
000060d0  2a 9e 08 20 d1 3d 30 0d  2a a8 16 20 73 63 72 6f  |*.. .=0.*.. scro|
000060e0  6c 6c 74 69 6d 65 25 3d  91 2f 31 30 30 0d 2a b2  |lltime%=./100.*.|
000060f0  19 20 ff 20 22 46 49 4c  45 52 5f 52 55 4e 20 22  |. . "FILER_RUN "|
00006100  2b 74 65 78 74 24 0d 2a  bc 11 20 6f 70 65 6e 65  |+text$.*.. opene|
00006110  64 25 28 78 29 3d b9 0d  2a c6 18 20 e7 20 73 6f  |d%(x)=..*.. . so|
00006120  75 6e 64 25 3d b9 20 8c  20 f2 73 6f 75 6e 64 0d  |und%=. . .sound.|
00006130  2a d0 33 20 e7 20 66 69  6c 65 6d 65 6e 75 24 3d  |*.3 . filemenu$=|
00006140  22 53 68 6f 77 2c 4e 6f  20 66 69 6c 65 73 22 20  |"Show,No files" |
00006150  8c 20 66 69 6c 65 6d 65  6e 75 24 3d 22 53 68 6f  |. filemenu$="Sho|
00006160  77 22 0d 2a da 21 20 66  69 6c 65 6d 65 6e 75 24  |w".*.! filemenu$|
00006170  2b 3d bd 28 34 34 29 2b  64 65 6c 61 79 24 28 78  |+=.(44)+delay$(x|
00006180  2c 31 29 0d 2a e4 28 20  f2 64 72 61 77 5f 6d 65  |,1).*.( .draw_me|
00006190  6e 75 28 66 69 6c 65 6d  65 6e 75 25 2c 66 69 6c  |nu(filemenu%,fil|
000061a0  65 6d 65 6e 75 24 2c 31  34 34 29 0d 2a ee 06 20  |emenu$,144).*.. |
000061b0  cd 0d 2a f8 0c 73 61 76  65 64 25 3d a3 0d 2b 02  |..*..saved%=..+.|
000061c0  04 0d 2b 0c 05 e1 0d 2b  16 04 0d 2b 20 05 3a 0d  |..+....+...+ .:.|
000061d0  2b 2a 04 0d 2b 34 0b dd  f2 63 61 72 65 74 0d 2b  |+*..+4...caret.+|
000061e0  3e 2b e7 20 63 61 72 65  74 73 65 74 25 20 8c 20  |>+. caretset% . |
000061f0  63 61 72 65 74 73 65 74  25 3d a3 20 8b 20 63 61  |caretset%=. . ca|
00006200  72 65 74 73 65 74 25 3d  b9 0d 2b 48 0f 20 f2 72  |retset%=..+H. .r|
00006210  65 61 64 63 61 72 65 74  0d 2b 52 14 e7 20 63 61  |eadcaret.+R.. ca|
00006220  72 65 74 24 3c 3e 22 2d  31 22 20 8c 0d 2b 5c 27  |ret$<>"-1" ..+\'|
00006230  e7 20 63 61 72 65 74 24  3d 22 2d 32 22 20 8c 20  |. caret$="-2" . |
00006240  ff 28 22 55 6e 73 65 74  20 4b 53 24 43 61 72 65  |.("Unset KS$Care|
00006250  74 22 29 0d 2b 66 13 20  e7 20 63 61 72 65 74 24  |t").+f. . caret$|
00006260  3d 22 30 22 20 8c 0d 2b  70 12 20 20 f2 67 65 74  |="0" ..+p.  .get|
00006270  70 6f 73 69 74 69 6f 6e  0d 2b 7a 06 20 cd 0d 2b  |position.+z. ..+|
00006280  84 04 0d 2b 8e 15 20 e7  20 a7 63 61 72 65 74 24  |...+.. . .caret$|
00006290  2c 22 5f 22 29 20 8c 0d  2b 98 0f 20 20 f2 73 65  |,"_") ..+..  .se|
000062a0  74 63 61 72 65 74 0d 2b  a2 06 20 cd 0d 2b ac 05  |tcaret.+.. ..+..|
000062b0  cd 0d 2b b6 05 e1 0d 2b  c0 04 0d 2b ca 05 3a 0d  |..+....+...+..:.|
000062c0  2b d4 04 0d 2b de 0f dd  f2 72 65 61 64 63 61 72  |+...+....readcar|
000062d0  65 74 0d 2b e8 3c c8 99  20 22 58 4f 53 5f 52 65  |et.+.<.. "XOS_Re|
000062e0  61 64 56 61 72 56 61 6c  22 2c 22 4b 53 24 63 61  |adVarVal","KS$ca|
000062f0  72 65 74 22 2c 62 75 66  66 65 72 25 2c 2d 31 2c  |ret",buffer%,-1,|
00006300  30 2c 33 20 b8 20 2c 2c  66 6f 75 6e 64 25 0d 2b  |0,3 . ,,found%.+|
00006310  f2 10 e7 20 66 6f 75 6e  64 25 3d a3 20 8c 0d 2b  |... found%=. ..+|
00006320  fc 18 20 ff 28 22 53 45  54 20 4b 53 24 63 61 72  |.. .("SET KS$car|
00006330  65 74 20 30 22 29 0d 2c  06 05 cd 0d 2c 10 0e 21  |et 0").,....,..!|
00006340  62 75 66 66 65 72 25 3d  30 0d 2c 1a 32 c8 99 20  |buffer%=0.,.2.. |
00006350  22 58 4f 53 5f 52 65 61  64 56 61 72 56 61 6c 22  |"XOS_ReadVarVal"|
00006360  2c 22 4b 53 24 63 61 72  65 74 22 2c 62 75 66 66  |,"KS$caret",buff|
00006370  65 72 25 2c 32 35 36 2c  30 2c 33 0d 2c 24 1e 63  |er%,256,0,3.,$.c|
00006380  61 72 65 74 24 3d a4 67  65 74 73 74 72 69 6e 67  |aret$=.getstring|
00006390  28 62 75 66 66 65 72 25  29 0d 2c 2e 1f e7 20 63  |(buffer%).,... c|
000063a0  61 72 65 74 24 3d 22 2d  31 22 20 8c 20 63 61 72  |aret$="-1" . car|
000063b0  65 74 24 3d 22 2d 32 22  0d 2c 38 05 e1 0d 2c 42  |et$="-2".,8...,B|
000063c0  05 3a 0d 2c 4c 0e dd f2  73 65 74 63 61 72 65 74  |.:.,L...setcaret|
000063d0  0d 2c 56 25 41 25 3d a0  28 22 26 22 2b c0 63 61  |.,V%A%=.("&"+.ca|
000063e0  72 65 74 24 2c a7 63 61  72 65 74 24 2c 22 5f 22  |ret$,.caret$,"_"|
000063f0  29 2d 31 29 29 0d 2c 60  2a 63 61 72 65 74 24 3d  |)-1)).,`*caret$=|
00006400  c2 63 61 72 65 74 24 2c  a9 28 63 61 72 65 74 24  |.caret$,.(caret$|
00006410  29 2d a7 63 61 72 65 74  24 2c 22 5f 22 29 29 0d  |)-.caret$,"_")).|
00006420  2c 6a 25 42 25 3d a0 28  22 26 22 2b c0 63 61 72  |,j%B%=.("&"+.car|
00006430  65 74 24 2c a7 63 61 72  65 74 24 2c 22 5f 22 29  |et$,.caret$,"_")|
00006440  2d 31 29 29 0d 2c 74 2a  63 61 72 65 74 24 3d c2  |-1)).,t*caret$=.|
00006450  63 61 72 65 74 24 2c a9  28 63 61 72 65 74 24 29  |caret$,.(caret$)|
00006460  2d a7 63 61 72 65 74 24  2c 22 5f 22 29 29 0d 2c  |-.caret$,"_")).,|
00006470  7e 25 43 25 3d a0 28 22  26 22 2b c0 63 61 72 65  |~%C%=.("&"+.care|
00006480  74 24 2c a7 63 61 72 65  74 24 2c 22 5f 22 29 2d  |t$,.caret$,"_")-|
00006490  31 29 29 0d 2c 88 2a 63  61 72 65 74 24 3d c2 63  |1)).,.*caret$=.c|
000064a0  61 72 65 74 24 2c a9 28  63 61 72 65 74 24 29 2d  |aret$,.(caret$)-|
000064b0  a7 63 61 72 65 74 24 2c  22 5f 22 29 29 0d 2c 92  |.caret$,"_")).,.|
000064c0  25 44 25 3d a0 28 22 26  22 2b c0 63 61 72 65 74  |%D%=.("&"+.caret|
000064d0  24 2c a7 63 61 72 65 74  24 2c 22 5f 22 29 2d 31  |$,.caret$,"_")-1|
000064e0  29 29 0d 2c 9c 2a 63 61  72 65 74 24 3d c2 63 61  |)).,.*caret$=.ca|
000064f0  72 65 74 24 2c a9 28 63  61 72 65 74 24 29 2d a7  |ret$,.(caret$)-.|
00006500  63 61 72 65 74 24 2c 22  5f 22 29 29 0d 2c a6 25  |caret$,"_")).,.%|
00006510  45 25 3d a0 28 22 26 22  2b c0 63 61 72 65 74 24  |E%=.("&"+.caret$|
00006520  2c a7 63 61 72 65 74 24  2c 22 5f 22 29 2d 31 29  |,.caret$,"_")-1)|
00006530  29 0d 2c b0 2a 63 61 72  65 74 24 3d c2 63 61 72  |).,.*caret$=.car|
00006540  65 74 24 2c a9 28 63 61  72 65 74 24 29 2d a7 63  |et$,.(caret$)-.c|
00006550  61 72 65 74 24 2c 22 5f  22 29 29 0d 2c ba 25 46  |aret$,"_")).,.%F|
00006560  25 3d a0 28 22 26 22 2b  c0 63 61 72 65 74 24 2c  |%=.("&"+.caret$,|
00006570  a7 63 61 72 65 74 24 2c  22 5f 22 29 2d 31 29 29  |.caret$,"_")-1))|
00006580  0d 2c c4 30 c8 99 20 22  57 69 6d 70 5f 53 65 74  |.,.0.. "Wimp_Set|
00006590  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 41  |CaretPosition",A|
000065a0  25 2c 42 25 2c 43 25 2c  44 25 2c 45 25 2c 46 25  |%,B%,C%,D%,E%,F%|
000065b0  0d 2c ce 17 ff 28 22 55  6e 73 65 74 20 4b 53 24  |.,...("Unset KS$|
000065c0  63 61 72 65 74 22 29 0d  2c d8 05 e1 0d 2c e2 05  |caret").,....,..|
000065d0  3a 0d 2c ec 11 dd f2 67  65 74 70 6f 73 69 74 69  |:.,....getpositi|
000065e0  6f 6e 0d 2c f6 27 c8 99  20 22 57 69 6d 70 5f 47  |on.,.'.. "Wimp_G|
000065f0  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
00006600  2c 2c 62 75 66 66 65 72  25 0d 2d 00 16 e7 20 28  |,,buffer%.-... (|
00006610  21 62 75 66 66 65 72 25  29 3c 3e 2d 31 20 8c 0d  |!buffer%)<>-1 ..|
00006620  2d 0a 10 20 41 25 3d 21  62 75 66 66 65 72 25 0d  |-.. A%=!buffer%.|
00006630  2d 14 11 20 42 25 3d 62  75 66 66 65 72 25 21 34  |-.. B%=buffer%!4|
00006640  0d 2d 1e 11 20 43 25 3d  62 75 66 66 65 72 25 21  |.-.. C%=buffer%!|
00006650  38 0d 2d 28 12 20 44 25  3d 62 75 66 66 65 72 25  |8.-(. D%=buffer%|
00006660  21 31 32 0d 2d 32 12 20  45 25 3d 62 75 66 66 65  |!12.-2. E%=buffe|
00006670  72 25 21 31 36 0d 2d 3c  12 20 46 25 3d 62 75 66  |r%!16.-<. F%=buf|
00006680  66 65 72 25 21 32 30 0d  2d 46 4d 73 74 72 69 6e  |fer%!20.-FMstrin|
00006690  67 24 3d c3 7e 28 41 25  29 2b 22 5f 22 2b c3 7e  |g$=.~(A%)+"_"+.~|
000066a0  28 42 25 29 2b 22 5f 22  2b c3 7e 28 43 25 29 2b  |(B%)+"_"+.~(C%)+|
000066b0  22 5f 22 2b c3 7e 28 44  25 29 2b 22 5f 22 2b c3  |"_"+.~(D%)+"_"+.|
000066c0  7e 28 45 25 29 2b 22 5f  22 2b c3 7e 28 46 25 29  |~(E%)+"_"+.~(F%)|
000066d0  2b 22 5f 22 0d 2d 50 1f  20 ff 28 22 53 45 54 20  |+"_".-P. .("SET |
000066e0  4b 53 24 63 61 72 65 74  20 22 2b 73 74 72 69 6e  |KS$caret "+strin|
000066f0  67 24 29 0d 2d 5a 04 0d  2d 64 11 f4 20 6c 6f 73  |g$).-Z..-d.. los|
00006700  73 20 63 61 72 65 74 21  0d 2d 6e 0f 21 62 75 66  |s caret!.-n.!buf|
00006710  66 65 72 25 3d 2d 31 0d  2d 78 27 c8 99 20 22 57  |fer%=-1.-x'.. "W|
00006720  69 6d 70 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |imp_SetCaretPosi|
00006730  74 69 6f 6e 22 2c 2c 62  75 66 66 65 72 25 0d 2d  |tion",,buffer%.-|
00006740  82 05 cc 0d 2d 8c 19 20  ff 28 22 53 45 54 20 4b  |....-.. .("SET K|
00006750  53 24 63 61 72 65 74 20  2d 31 22 29 0d 2d 96 04  |S$caret -1").-..|
00006760  0d 2d a0 05 cd 0d 2d aa  05 e1 0d 2d b4 04 0d 2d  |.-....-....-...-|
00006770  be 05 3a 0d 2d c8 04 0d  2d d2 15 dd a4 67 65 74  |..:.-...-....get|
00006780  73 74 72 69 6e 67 28 70  74 72 25 29 0d 2d dc 0a  |string(ptr%).-..|
00006790  20 70 24 3d 22 22 0d 2d  e6 1d c8 95 20 28 3f 70  | p$="".-.... (?p|
000067a0  74 72 25 3e 30 29 20 80  20 28 3f 70 74 72 25 3c  |tr%>0) . (?ptr%<|
000067b0  39 36 29 0d 2d f0 0e 20  20 63 25 3d 3f 70 74 72  |96).-..  c%=?ptr|
000067c0  25 0d 2d fa 0d 20 20 70  24 2b 3d bd 63 25 0d 2e  |%.-..  p$+=.c%..|
000067d0  04 0d 20 20 70 74 72 25  2b 3d 31 0d 2e 0e 05 ce  |..  ptr%+=1.....|
000067e0  0d 2e 18 07 3d 70 24 0d  2e 22 04 0d 2e 2c 05 3a  |....=p$.."...,.:|
000067f0  0d 2e 36 04 0d 2e 40 11  dd 20 f2 63 68 65 63 6b  |..6...@.. .check|
00006800  5f 66 69 6c 65 0d 2e 4a  0d 21 62 6c 6f 63 6b 25  |_file..J.!block%|
00006810  3d 9f 0d 2e 54 49 e7 20  9f 3d 32 32 33 20 8c 20  |=...TI. .=223 . |
00006820  f2 72 65 70 6f 72 74 5f  65 72 72 6f 72 28 a4 6d  |.report_error(.m|
00006830  73 67 74 72 61 6e 73 5f  6c 6f 6f 6b 75 70 28 22  |sgtrans_lookup("|
00006840  45 6e 64 22 2c c3 28 30  29 29 29 3a 64 6f 6e 65  |End",.(0))):done|
00006850  25 3d b9 3a f2 73 74 6f  70 3a e1 0d 2e 5e 4d e7  |%=.:.stop:...^M.|
00006860  20 9f 3d 32 31 34 20 8c  20 f2 72 65 70 6f 72 74  | .=214 . .report|
00006870  5f 65 72 72 6f 72 28 a4  6d 73 67 74 72 61 6e 73  |_error(.msgtrans|
00006880  5f 6c 6f 6f 6b 75 70 28  22 4d 69 73 73 69 6e 67  |_lookup("Missing|
00006890  22 2c c3 28 30 29 29 29  3a 64 6f 6e 65 25 3d b9  |",.(0))):done%=.|
000068a0  3a f2 73 74 6f 70 3a e1  0d 2e 68 50 e7 20 9f 3d  |:.stop:...hP. .=|
000068b0  32 32 32 20 8c 20 f2 72  65 70 6f 72 74 5f 65 72  |222 . .report_er|
000068c0  72 6f 72 28 a4 6d 73 67  74 72 61 6e 73 5f 6c 6f  |ror(.msgtrans_lo|
000068d0  6f 6b 75 70 28 22 53 63  72 69 70 74 22 2c c3 28  |okup("Script",.(|
000068e0  30 29 29 29 3a 6e 6f 73  63 72 69 70 74 25 3d b9  |0))):noscript%=.|
000068f0  3a f2 73 74 6f 70 3a e1  0d 2e 72 3d e7 20 9f 3d  |:.stop:...r=. .=|
00006900  32 32 30 20 8c 20 f2 72  65 70 6f 72 74 5f 65 72  |220 . .report_er|
00006910  72 6f 72 28 a4 6d 73 67  74 72 61 6e 73 5f 6c 6f  |ror(.msgtrans_lo|
00006920  6f 6b 75 70 28 22 49 6e  63 6f 72 22 2c c3 28 30  |okup("Incor",.(0|
00006930  29 29 29 3a e1 0d 2e 7c  04 0d 2e 86 3a 24 28 62  |))):...|....:$(b|
00006940  6c 6f 63 6b 25 2b 34 29  3d f6 24 2b 22 20 28 69  |lock%+4)=.$+" (i|
00006950  6e 74 65 72 6e 61 6c 20  65 72 72 6f 72 20 63 6f  |nternal error co|
00006960  64 65 20 22 2b c3 20 9e  2b c3 20 9f 2b 22 29 22  |de "+. .+. .+")"|
00006970  2b bd 30 0d 2e 90 2b c8  99 20 22 57 69 6d 70 5f  |+.0...+.. "Wimp_|
00006980  52 65 70 6f 72 74 45 72  72 6f 72 22 2c 62 6c 6f  |ReportError",blo|
00006990  63 6b 25 2c 31 2c 61 70  70 6e 61 6d 65 24 0d 2e  |ck%,1,appname$..|
000069a0  9a 05 e1 0d 2e a4 04 0d  2e ae 05 3a 0d 2e b8 04  |...........:....|
000069b0  0d 2e c2 0c dd 20 f2 73  6f 75 6e 64 0d 2e cc 07  |..... .sound....|
000069c0  ea 20 74 0d 2e d6 07 ea  20 78 0d 2e e0 0e 20 e3  |. t..... x.... .|
000069d0  20 74 3d 31 20 b8 20 34  0d 2e ea 13 20 20 d4 20  | t=1 . 4....  . |
000069e0  31 2c 2d 31 30 2c 31 30  30 2c 32 0d 2e f4 13 20  |1,-10,100,2.... |
000069f0  20 20 e3 20 78 3d 31 20  b8 20 32 30 30 30 0d 2e  |  . x=1 . 2000..|
00006a00  fe 0a 20 20 20 ed 20 78  0d 2f 08 08 20 ed 20 74  |..   . x./.. . t|
00006a10  0d 2f 12 12 20 d4 20 31  2c 2d 31 30 2c 36 35 2c  |./.. . 1,-10,65,|
00006a20  31 35 0d 2f 1c 05 e1 0d  2f 26 04 0d 2f 30 04 0d  |15./..../&../0..|
00006a30  2f 3a 05 3a 0d 2f 44 04  0d 2f 4e 19 dd 20 f2 72  |/:.:./D../N.. .r|
00006a40  65 70 6f 72 74 5f 65 72  72 6f 72 28 65 72 72 24  |eport_error(err$|
00006a50  29 0d 2f 58 10 20 21 62  6c 6f 63 6b 25 3d 32 35  |)./X. !block%=25|
00006a60  35 0d 2f 62 18 20 24 28  62 6c 6f 63 6b 25 2b 34  |5./b. $(block%+4|
00006a70  29 3d 65 72 72 24 2b bd  30 0d 2f 6c 2c 20 c8 99  |)=err$+.0./l, ..|
00006a80  20 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  | "Wimp_ReportErr|
00006a90  6f 72 22 2c 62 6c 6f 63  6b 25 2c 31 2c 61 70 70  |or",block%,1,app|
00006aa0  6e 61 6d 65 24 0d 2f 76  05 e1 0d 2f 80 04 0d 2f  |name$./v.../.../|
00006ab0  8a 05 3a 0d 2f 94 04 0d  2f 9e 1c dd 20 f2 62 61  |..:./.../... .ba|
00006ac0  6e 6e 65 72 28 61 70 70  24 2c 6d 65 73 73 61 67  |nner(app$,messag|
00006ad0  65 24 29 0d 2f a8 2f 20  f2 63 68 61 6e 67 65 5f  |e$)././ .change_|
00006ae0  69 63 6f 6e 28 62 6c 6f  63 6b 25 2c 42 61 6e 6e  |icon(block%,Bann|
00006af0  65 72 57 48 61 6e 64 6c  65 25 2c 31 2c 61 70 70  |erWHandle%,1,app|
00006b00  24 29 0d 2f b2 33 20 f2  63 68 61 6e 67 65 5f 69  |$)./.3 .change_i|
00006b10  63 6f 6e 28 62 6c 6f 63  6b 25 2c 42 61 6e 6e 65  |con(block%,Banne|
00006b20  72 57 48 61 6e 64 6c 65  25 2c 32 2c 6d 65 73 73  |rWHandle%,2,mess|
00006b30  61 67 65 24 29 0d 2f bc  34 20 f2 6f 70 65 6e 5f  |age$)./.4 .open_|
00006b40  61 6e 64 5f 63 65 6e 74  72 65 5f 77 69 6e 64 6f  |and_centre_windo|
00006b50  77 28 42 61 6e 6e 65 72  57 48 61 6e 64 6c 65 25  |w(BannerWHandle%|
00006b60  2c 35 39 30 2c 32 34 32  29 0d 2f c6 0b 20 f2 70  |,590,242)./.. .p|
00006b70  61 75 73 65 0d 2f d0 27  20 f4 20 50 52 4f 43 63  |ause./.' . PROCc|
00006b80  6c 6f 73 65 5f 77 69 6e  64 6f 77 28 42 61 6e 6e  |lose_window(Bann|
00006b90  65 72 57 48 61 6e 64 6c  65 25 29 0d 2f da 05 e1  |erWHandle%)./...|
00006ba0  0d 2f e4 04 0d 2f ee 05  3a 0d 2f f8 11 dd 20 f2  |./.../..:./... .|
00006bb0  63 6c 6f 73 65 5f 64 6f  77 6e 0d 30 02 28 20 c8  |close_down.0.( .|
00006bc0  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. "Wimp_CloseDow|
00006bd0  6e 22 2c 74 61 73 6b 25  2c 26 34 42 35 33 34 31  |n",task%,&4B5341|
00006be0  35 34 0d 30 0c 05 e1 0d  30 16 2a 2a 2a 2a 2a 2a  |54.0....0.******|
00006bf0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00006c10  2a 0d 30 20 1c f4 20 61  6c 6c 20 73 61 76 65 20  |*.0 .. all save |
00006c20  72 6f 75 74 69 6e 65 73  20 68 65 72 65 0d 30 2a  |routines here.0*|
00006c30  04 0d 30 34 15 dd 20 f2  6b 65 79 70 72 65 73 73  |..04.. .keypress|
00006c40  28 6b 65 79 25 29 0d 30  3e 0b 20 c8 8e 20 b9 20  |(key%).0>. .. . |
00006c50  ca 0d 30 48 25 20 c9 20  6b 65 79 25 3d 31 33 20  |..0H% . key%=13 |
00006c60  80 20 21 62 6c 6f 63 6b  25 3d 53 61 76 65 57 48  |. !block%=SaveWH|
00006c70  61 6e 64 6c 65 25 0d 30  52 0f 20 f2 71 75 69 63  |andle%.0R. .quic|
00006c80  6b 73 61 76 65 0d 30 5c  20 20 7f 3a c8 99 20 22  |ksave.0\  .:.. "|
00006c90  57 69 6d 70 5f 50 72 6f  63 65 73 73 4b 65 79 22  |Wimp_ProcessKey"|
00006ca0  2c 6b 65 79 25 0d 30 66  06 20 cb 0d 30 70 05 e1  |,key%.0f. ..0p..|
00006cb0  0d 30 7a 04 0d 30 84 05  3a 0d 30 8e 0e dd 20 f2  |.0z..0..:.0... .|
00006cc0  64 72 61 67 62 6f 78 0d  30 98 18 21 62 6c 6f 63  |dragbox.0..!bloc|
00006cd0  6b 25 3d 53 61 76 65 57  48 61 6e 64 6c 65 25 0d  |k%=SaveWHandle%.|
00006ce0  30 a2 24 c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |0.$.. "Wimp_GetW|
00006cf0  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 6c 6f  |indowState",,blo|
00006d00  63 6b 25 0d 30 ac 1a 6f  78 25 3d 62 6c 6f 63 6b  |ck%.0..ox%=block|
00006d10  25 21 34 2d 62 6c 6f 63  6b 25 21 32 30 0d 30 b6  |%!4-block%!20.0.|
00006d20  1b 6f 79 25 3d 62 6c 6f  63 6b 25 21 31 36 2d 62  |.oy%=block%!16-b|
00006d30  6c 6f 63 6b 25 21 32 34  0d 30 c0 0f 20 62 6c 6f  |lock%!24.0.. blo|
00006d40  63 6b 25 21 34 3d 31 0d  30 ca 22 c8 99 20 22 57  |ck%!4=1.0.".. "W|
00006d50  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00006d60  22 2c 2c 62 6c 6f 63 6b  25 0d 30 d4 24 62 6c 6f  |",,block%.0.$blo|
00006d70  63 6b 25 21 34 3d 35 3a  62 6c 6f 63 6b 25 21 38  |ck%!4=5:block%!8|
00006d80  3d 6f 78 25 2b 62 6c 6f  63 6b 25 21 38 0d 30 de  |=ox%+block%!8.0.|
00006d90  1b 62 6c 6f 63 6b 25 21  31 32 3d 6f 79 25 2b 62  |.block%!12=oy%+b|
00006da0  6c 6f 63 6b 25 21 31 32  0d 30 e8 1b 62 6c 6f 63  |lock%!12.0..bloc|
00006db0  6b 25 21 31 36 3d 6f 78  25 2b 62 6c 6f 63 6b 25  |k%!16=ox%+block%|
00006dc0  21 31 36 0d 30 f2 1b 62  6c 6f 63 6b 25 21 32 30  |!16.0..block%!20|
00006dd0  3d 6f 79 25 2b 62 6c 6f  63 6b 25 21 32 30 0d 30  |=oy%+block%!20.0|
00006de0  fc 1c 20 62 6c 6f 63 6b  25 21 32 34 3d 30 3a 62  |.. block%!24=0:b|
00006df0  6c 6f 63 6b 25 21 32 38  3d 30 0d 31 06 17 62 6c  |lock%!28=0.1..bl|
00006e00  6f 63 6b 25 21 33 32 3d  26 37 46 46 46 46 46 46  |ock%!32=&7FFFFFF|
00006e10  46 0d 31 10 17 62 6c 6f  63 6b 25 21 33 36 3d 26  |F.1..block%!36=&|
00006e20  37 46 46 46 46 46 46 46  0d 31 1a 22 c8 99 20 22  |7FFFFFFF.1.".. "|
00006e30  4f 53 5f 42 79 74 65 22  2c 31 36 31 2c 32 38 20  |OS_Byte",161,28 |
00006e40  b8 20 2c 2c 66 6c 61 67  73 25 0d 31 24 12 e7 20  |. ,,flags%.1$.. |
00006e50  66 6c 61 67 73 25 20 80  20 32 20 8c 0d 31 2e 35  |flags% . 2 ..1.5|
00006e60  20 c8 99 20 22 44 72 61  67 41 53 70 72 69 74 65  | .. "DragASprite|
00006e70  5f 53 74 61 72 74 22 2c  31 39 37 2c 31 2c 22 66  |_Start",197,1,"f|
00006e80  69 6c 65 5f 30 31 32 22  2c 62 6c 6f 63 6b 25 2b  |ile_012",block%+|
00006e90  38 0d 31 38 05 cc 0d 31  42 1d c8 99 20 22 57 69  |8.18...1B... "Wi|
00006ea0  6d 70 5f 44 72 61 67 42  6f 78 22 2c 2c 62 6c 6f  |mp_DragBox",,blo|
00006eb0  63 6b 25 0d 31 4c 05 cd  0d 31 56 05 e1 0d 31 60  |ck%.1L...1V...1`|
00006ec0  04 0d 31 6a 05 3a 0d 31  74 04 0d 31 7e 16 dd 20  |..1j.:.1t..1~.. |
00006ed0  f2 64 61 74 61 6c 6f 61  64 28 74 79 70 65 25 29  |.dataload(type%)|
00006ee0  0d 31 88 42 e7 20 74 79  70 65 25 3c 3e 26 30 31  |.1.B. type%<>&01|
00006ef0  32 20 8c 20 f2 72 65 70  6f 72 74 5f 65 72 72 6f  |2 . .report_erro|
00006f00  72 28 a4 6d 73 67 74 72  61 6e 73 5f 6c 6f 6f 6b  |r(.msgtrans_look|
00006f10  75 70 28 22 4c 6f 61 64  22 2c c3 28 31 29 29 29  |up("Load",.(1)))|
00006f20  3a e1 0d 31 92 5b e7 20  73 74 61 72 74 25 20 8c  |:..1.[. start% .|
00006f30  20 f2 72 65 70 6f 72 74  5f 65 72 72 6f 72 28 22  | .report_error("|
00006f40  54 6f 20 6c 6f 61 64 20  74 68 69 73 20 66 69 6c  |To load this fil|
00006f50  65 2c 20 79 6f 75 20 6d  75 73 74 20 66 69 72 73  |e, you must firs|
00006f60  74 20 73 74 6f 70 20 74  68 65 20 63 75 72 72 65  |t stop the curre|
00006f70  6e 74 20 73 74 6f 72 79  2e 22 29 3a e1 0d 31 9c  |nt story."):..1.|
00006f80  14 f2 74 65 72 6d 28 62  6c 6f 63 6b 25 2b 34 34  |..term(block%+44|
00006f90  29 0d 31 a6 19 24 73 62  74 65 78 74 25 3d 24 28  |).1..$sbtext%=$(|
00006fa0  62 6c 6f 63 6b 25 2b 34  34 29 0d 31 b0 16 66 69  |block%+44).1..fi|
00006fb0  6c 65 6e 61 6d 65 24 3d  24 73 62 74 65 78 74 25  |lename$=$sbtext%|
00006fc0  0d 31 ba 15 66 69 6c 65  25 3d 8e 20 66 69 6c 65  |.1..file%=. file|
00006fd0  6e 61 6d 65 24 0d 31 c4  0e cf 23 66 69 6c 65 25  |name$.1...#file%|
00006fe0  3d 36 31 0d 31 ce 0c 74  65 78 74 24 3d 22 22 0d  |=61.1..text$="".|
00006ff0  31 d8 05 f5 0d 31 e2 10  74 65 78 74 3d 9a 23 66  |1....1..text=.#f|
00007000  69 6c 65 25 0d 31 ec 17  74 65 78 74 24 3d 74 65  |ile%.1..text$=te|
00007010  78 74 24 2b bd 28 74 65  78 74 29 0d 31 f6 0d fd  |xt$+.(text).1...|
00007020  20 c5 23 66 69 6c 65 25  0d 32 00 0b d9 23 66 69  | .#file%.2...#fi|
00007030  6c 65 25 0d 32 0a 15 f2  6c 6f 61 64 73 74 61 72  |le%.2...loadstar|
00007040  74 28 74 65 78 74 24 29  0d 32 14 05 e1 0d 32 1e  |t(text$).2....2.|
00007050  04 0d 32 28 05 3a 0d 32  32 04 0d 32 3c 0e dd f2  |..2(.:.22..2<...|
00007060  74 65 72 6d 28 61 25 29  0d 32 46 08 ea 20 6e 25  |term(a%).2F.. n%|
00007070  0d 32 50 0f c8 95 20 61  25 3f 6e 25 3e 33 31 0d  |.2P... a%?n%>31.|
00007080  32 5a 09 6e 25 2b 3d 31  0d 32 64 05 ce 0d 32 6e  |2Z.n%+=1.2d...2n|
00007090  0c 61 25 3f 6e 25 3d 31  33 0d 32 78 05 e1 0d 32  |.a%?n%=13.2x...2|
000070a0  82 04 0d 32 8c 05 3a 0d  32 96 13 dd 20 a4 73 74  |...2..:.2... .st|
000070b0  72 69 6e 67 28 70 74 72  25 29 0d 32 a0 09 20 ea  |ring(ptr%).2.. .|
000070c0  20 61 24 0d 32 aa 12 20  20 20 c8 95 20 3f 70 74  | a$.2..   .. ?pt|
000070d0  72 25 3c 3e 30 0d 32 b4  1d 20 20 20 20 20 61 24  |r%<>0.2..     a$|
000070e0  2b 3d bd 28 3f 70 74 72  25 29 3a 70 74 72 25 2b  |+=.(?ptr%):ptr%+|
000070f0  3d 31 0d 32 be 08 20 20  20 ce 0d 32 c8 07 3d 61  |=1.2..   ..2..=a|
00007100  24 0d 32 d2 04 0d 32 dc  05 3a 0d 32 e6 10 dd 20  |$.2...2..:.2... |
00007110  f2 73 74 61 72 74 73 61  76 65 0d 32 f0 25 20 c8  |.startsave.2.% .|
00007120  99 20 22 57 69 6d 70 5f  47 65 74 50 6f 69 6e 74  |. "Wimp_GetPoint|
00007130  65 72 49 6e 66 6f 22 2c  2c 62 6c 6f 63 6b 25 0d  |erInfo",,block%.|
00007140  32 fa 2c 20 62 6c 6f 63  6b 25 21 32 30 3d 62 6c  |2., block%!20=bl|
00007150  6f 63 6b 25 21 31 32 3a  62 6c 6f 63 6b 25 21 32  |ock%!12:block%!2|
00007160  34 3d 62 6c 6f 63 6b 25  21 31 36 0d 33 04 29 20  |4=block%!16.3.) |
00007170  62 6c 6f 63 6b 25 21 32  38 3d 21 62 6c 6f 63 6b  |block%!28=!block|
00007180  25 3a 62 6c 6f 63 6b 25  21 33 32 3d 62 6c 6f 63  |%:block%!32=bloc|
00007190  6b 25 21 34 0d 33 0e 11  20 62 6c 6f 63 6b 25 21  |k%!4.3.. block%!|
000071a0  33 36 3d 38 30 0d 33 18  1b 20 21 62 6c 6f 63 6b  |36=80.3.. !block|
000071b0  25 3d 36 34 3a 62 6c 6f  63 6b 25 21 31 32 3d 30  |%=64:block%!12=0|
000071c0  0d 33 22 1f 20 62 6c 6f  63 6b 25 21 31 36 3d 31  |.3". block%!16=1|
000071d0  3a 62 6c 6f 63 6b 25 21  34 30 3d 26 46 46 46 0d  |:block%!40=&FFF.|
000071e0  33 2c 24 20 24 28 62 6c  6f 63 6b 25 2b 34 34 29  |3,$ $(block%+44)|
000071f0  3d a4 67 65 74 6c 65 61  66 28 24 73 62 74 65 78  |=.getleaf($sbtex|
00007200  74 25 29 0d 33 36 38 20  c8 99 20 22 57 69 6d 70  |t%).368 .. "Wimp|
00007210  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 38  |_SendMessage",18|
00007220  2c 62 6c 6f 63 6b 25 2c  62 6c 6f 63 6b 25 21 32  |,block%,block%!2|
00007230  30 2c 62 6c 6f 63 6b 25  21 32 34 0d 33 40 05 e1  |0,block%!24.3@..|
00007240  0d 33 4a 04 0d 33 54 06  20 3a 0d 33 5e 10 dd 20  |.3J..3T. :.3^.. |
00007250  f2 71 75 69 63 6b 73 61  76 65 0d 33 68 17 20 e7  |.quicksave.3h. .|
00007260  20 a7 24 73 62 74 65 78  74 25 2c 22 2e 22 29 20  | .$sbtext%,".") |
00007270  8c 0d 33 72 0c 20 f2 73  61 76 65 69 74 0d 33 7c  |..3r. .saveit.3||
00007280  06 20 cc 0d 33 86 31 20  f2 72 65 70 6f 72 74 5f  |. ..3.1 .report_|
00007290  65 72 72 6f 72 28 a4 6d  73 67 74 72 61 6e 73 5f  |error(.msgtrans_|
000072a0  6c 6f 6f 6b 75 70 28 22  53 61 76 65 22 2c c3 28  |lookup("Save",.(|
000072b0  30 29 29 29 0d 33 90 06  20 cd 0d 33 9a 1f f2 63  |0))).3.. ..3...c|
000072c0  6c 6f 73 65 5f 77 69 6e  64 6f 77 28 53 61 76 65  |lose_window(Save|
000072d0  57 48 61 6e 64 6c 65 25  29 0d 33 a4 0c 73 61 76  |WHandle%).3..sav|
000072e0  65 64 25 3d b9 0d 33 ae  14 e7 20 73 74 6f 70 77  |ed%=..3... stopw|
000072f0  69 6e 6f 70 65 6e 25 20  8c 0d 33 b8 0b 20 f2 70  |inopen% ..3.. .p|
00007300  61 75 73 65 0d 33 c2 0c  20 64 6f 6e 65 25 3d b9  |ause.3.. done%=.|
00007310  0d 33 cc 20 20 f2 63 6c  6f 73 65 5f 77 69 6e 64  |.3.  .close_wind|
00007320  6f 77 28 51 75 69 74 57  48 61 6e 64 6c 65 25 29  |ow(QuitWHandle%)|
00007330  0d 33 d6 20 20 f2 63 6c  6f 73 65 5f 77 69 6e 64  |.3.  .close_wind|
00007340  6f 77 28 53 61 76 65 57  48 61 6e 64 6c 65 25 29  |ow(SaveWHandle%)|
00007350  0d 33 e0 0a 20 f2 73 74  6f 70 0d 33 ea 13 20 73  |.3.. .stop.3.. s|
00007360  74 6f 70 77 69 6e 6f 70  65 6e 25 3d a3 0d 33 f4  |topwinopen%=..3.|
00007370  05 cd 0d 33 fe 26 e7 20  69 73 69 74 71 75 69 74  |...3.&. isitquit|
00007380  25 20 8c 20 f2 70 61 75  73 65 3a f2 73 74 6f 70  |% . .pause:.stop|
00007390  3a 71 75 69 74 25 3d b9  0d 34 08 05 e1 0d 34 12  |:quit%=..4....4.|
000073a0  04 0d 34 1c 05 3a 0d 34  26 0d dd 20 f2 73 61 76  |..4..:.4&.. .sav|
000073b0  65 69 74 0d 34 30 16 20  66 69 6c 65 25 3d ae 28  |eit.40. file%=.(|
000073c0  24 73 62 74 65 78 74 25  29 0d 34 3a 2c 20 d5 23  |$sbtext%).4:, .#|
000073d0  66 69 6c 65 25 2c 22 7c  20 22 2b 20 61 70 70 6e  |file%,"| "+ appn|
000073e0  61 6d 65 24 2b 22 20 70  6f 73 69 74 69 6f 6e 20  |ame$+" position |
000073f0  66 69 6c 65 22 0d 34 44  1f 20 d5 23 66 69 6c 65  |file".4D. .#file|
00007400  25 2c 22 7c 20 73 61 76  65 64 20 6f 6e 20 22 20  |%,"| saved on " |
00007410  2b 20 91 24 0d 34 4e 4c  20 d5 23 66 69 6c 65 25  |+ .$.4NL .#file%|
00007420  2c 22 52 55 4e 20 3c 4e  65 77 73 44 65 73 6b 24  |,"RUN <NewsDesk$|
00007430  44 69 72 3e 2e 21 52 75  6e 20 22 2b 73 74 6f 72  |Dir>.!Run "+stor|
00007440  79 24 2b 22 2c 22 2b c3  28 63 75 72 72 65 6e 74  |y$+","+.(current|
00007450  70 6f 73 25 29 2b 22 2c  22 2b c3 28 70 6f 73 29  |pos%)+","+.(pos)|
00007460  0d 34 58 0c 20 d9 23 66  69 6c 65 25 0d 34 62 21  |.4X. .#file%.4b!|
00007470  20 ff 20 22 53 65 74 54  79 70 65 20 22 2b 24 73  | . "SetType "+$s|
00007480  62 74 65 78 74 25 2b 22  20 30 31 32 22 0d 34 6c  |btext%+" 012".4l|
00007490  0d 20 73 61 76 65 64 25  3d b9 0d 34 76 04 0d 34  |. saved%=..4v..4|
000074a0  80 04 0d 34 8a 05 e1 0d  34 94 04 0d 34 9e 06 20  |...4....4...4.. |
000074b0  3a 0d 34 a8 12 dd 20 a4  67 65 74 6c 65 61 66 28  |:.4... .getleaf(|
000074c0  61 24 29 0d 34 b2 10 20  c8 95 20 a7 61 24 2c 22  |a$).4.. .. .a$,"|
000074d0  2e 22 29 0d 34 bc 17 20  61 24 3d c1 61 24 2c a7  |.").4.. a$=.a$,.|
000074e0  61 24 2c 22 2e 22 29 2b  31 29 0d 34 c6 06 20 ce  |a$,".")+1).4.. .|
000074f0  0d 34 d0 0a 3d 61 24 2b  bd 30 0d 34 da 04 0d 34  |.4..=a$+.0.4...4|
00007500  e4 06 20 3a 0d 34 ee 0f  dd 20 f2 64 61 74 61 73  |.. :.4... .datas|
00007510  61 76 65 0d 34 f8 04 0d  35 02 43 20 e7 20 73 74  |ave.4...5.C . st|
00007520  6f 72 79 24 3d 22 22 20  f2 72 65 70 6f 72 74 5f  |ory$="" .report_|
00007530  65 72 72 6f 72 28 a4 6d  73 67 74 72 61 6e 73 5f  |error(.msgtrans_|
00007540  6c 6f 6f 6b 75 70 28 22  43 61 6e 74 73 61 76 65  |lookup("Cantsave|
00007550  22 2c c3 28 30 29 29 29  3a e1 0d 35 0c 20 20 24  |",.(0))):..5.  $|
00007560  73 62 74 65 78 74 25 3d  a4 73 74 72 69 6e 67 28  |sbtext%=.string(|
00007570  62 6c 6f 63 6b 25 2b 34  34 29 0d 35 16 0c 20 f2  |block%+44).5.. .|
00007580  73 61 76 65 69 74 0d 35  20 17 20 62 6c 6f 63 6b  |saveit.5 . block|
00007590  25 21 31 32 3d 62 6c 6f  63 6b 25 21 38 0d 35 2a  |%!12=block%!8.5*|
000075a0  1c 20 62 6c 6f 63 6b 25  21 31 36 3d 33 3a 21 62  |. block%!16=3:!b|
000075b0  6c 6f 63 6b 25 3d 32 35  36 0d 35 34 38 20 c8 99  |lock%=256.548 ..|
000075c0  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
000075d0  67 65 22 2c 31 38 2c 62  6c 6f 63 6b 25 2c 62 6c  |ge",18,block%,bl|
000075e0  6f 63 6b 25 21 32 30 2c  62 6c 6f 63 6b 25 21 32  |ock%!20,block%!2|
000075f0  34 0d 35 3e 1f f2 63 6c  6f 73 65 5f 77 69 6e 64  |4.5>..close_wind|
00007600  6f 77 28 53 61 76 65 57  48 61 6e 64 6c 65 25 29  |ow(SaveWHandle%)|
00007610  0d 35 48 0c 73 61 76 65  64 25 3d b9 0d 35 52 14  |.5H.saved%=..5R.|
00007620  e7 20 73 74 6f 70 77 69  6e 6f 70 65 6e 25 20 8c  |. stopwinopen% .|
00007630  0d 35 5c 0b 20 f2 70 61  75 73 65 0d 35 66 0c 20  |.5\. .pause.5f. |
00007640  64 6f 6e 65 25 3d b9 0d  35 70 20 20 f2 63 6c 6f  |done%=..5p  .clo|
00007650  73 65 5f 77 69 6e 64 6f  77 28 51 75 69 74 57 48  |se_window(QuitWH|
00007660  61 6e 64 6c 65 25 29 0d  35 7a 20 20 f2 63 6c 6f  |andle%).5z  .clo|
00007670  73 65 5f 77 69 6e 64 6f  77 28 53 61 76 65 57 48  |se_window(SaveWH|
00007680  61 6e 64 6c 65 25 29 0d  35 84 0a 20 f2 73 74 6f  |andle%).5.. .sto|
00007690  70 0d 35 8e 13 20 73 74  6f 70 77 69 6e 6f 70 65  |p.5.. stopwinope|
000076a0  6e 25 3d a3 0d 35 98 05  cd 0d 35 a2 26 e7 20 69  |n%=..5....5.&. i|
000076b0  73 69 74 71 75 69 74 25  20 8c 20 f2 70 61 75 73  |sitquit% . .paus|
000076c0  65 3a f2 73 74 6f 70 3a  71 75 69 74 25 3d b9 0d  |e:.stop:quit%=..|
000076d0  35 ac 05 e1 0d 35 b6 05  3a 0d 35 c0 41 dd a4 61  |5....5..:.5.A..a|
000076e0  64 64 5f 69 63 6f 6e 28  74 79 70 65 24 2c 74 65  |dd_icon(type$,te|
000076f0  78 74 24 2c 77 69 6e 64  6f 77 25 2c 78 25 2c 79  |xt$,window%,x%,y|
00007700  25 2c 73 31 25 2c 65 73  67 5f 73 70 72 69 74 65  |%,s1%,esg_sprite|
00007710  25 2c 62 6f 72 64 65 72  25 29 0d 35 ca 47 ea 20  |%,border%).5.G. |
00007720  69 63 6f 6e 25 2c 74 65  78 74 5f 73 70 61 63 65  |icon%,text_space|
00007730  25 2c 6e 61 6d 65 5f 73  70 61 63 65 25 2c 76 61  |%,name_space%,va|
00007740  6c 5f 73 70 61 63 65 25  2c 77 25 2c 68 25 2c 6d  |l_space%,w%,h%,m|
00007750  6f 64 65 25 2c 78 73 25  2c 79 73 25 2c 73 65 31  |ode%,xs%,ys%,se1|
00007760  25 0d 35 d4 0c 73 65 31  25 3d 73 31 25 0d 35 de  |%.5..se1%=s1%.5.|
00007770  1b e7 20 73 31 25 3c a9  74 65 78 74 24 20 73 31  |.. s1%<.text$ s1|
00007780  25 3d a9 74 65 78 74 24  0d 35 e8 1a e7 20 73 31  |%=.text$.5... s1|
00007790  25 3c a9 74 79 70 65 24  20 73 31 3d a9 74 79 70  |%<.type$ s1=.typ|
000077a0  65 24 0d 35 f2 15 de 20  74 65 78 74 5f 73 70 61  |e$.5... text_spa|
000077b0  63 65 25 20 73 31 25 0d  35 fc 14 62 6c 6f 63 6b  |ce% s1%.5..block|
000077c0  25 21 30 3d 77 69 6e 64  6f 77 25 0d 36 06 0f 62  |%!0=window%.6..b|
000077d0  6c 6f 63 6b 25 21 34 3d  78 25 0d 36 10 12 62 6c  |lock%!4=x%.6..bl|
000077e0  6f 63 6b 25 21 38 3d 79  25 2d 34 38 0d 36 1a 1d  |ock%!8=y%-48.6..|
000077f0  62 6c 6f 63 6b 25 21 31  32 3d 78 25 2b 31 36 2b  |block%!12=x%+16+|
00007800  31 36 2a a9 74 65 78 74  24 0d 36 24 10 62 6c 6f  |16*.text$.6$.blo|
00007810  63 6b 25 21 31 36 3d 79  25 0d 36 2e 16 24 74 65  |ck%!16=y%.6..$te|
00007820  78 74 5f 73 70 61 63 65  25 3d 74 65 78 74 24 0d  |xt_space%=text$.|
00007830  36 38 17 62 6c 6f 63 6b  25 21 32 30 3d 26 31 37  |68.block%!20=&17|
00007840  30 30 30 31 33 39 0d 36  42 19 62 6c 6f 63 6b 25  |000139.6B.block%|
00007850  21 32 34 3d 74 65 78 74  5f 73 70 61 63 65 25 0d  |!24=text_space%.|
00007860  36 4c 10 62 6c 6f 63 6b  25 21 32 38 3d 2d 31 0d  |6L.block%!28=-1.|
00007870  36 56 14 62 6c 6f 63 6b  25 21 33 32 3d a9 74 65  |6V.block%!32=.te|
00007880  78 74 24 0d 36 60 12 c8  8e 20 c0 74 79 70 65 24  |xt$.6`... .type$|
00007890  2c 35 29 20 ca 0d 36 6a  0d c9 20 22 66 69 6c 65  |,5) ..6j.. "file|
000078a0  5f 22 0d 36 74 38 20 c8  99 22 57 69 6d 70 5f 53  |_".6t8 .."Wimp_S|
000078b0  70 72 69 74 65 4f 70 22  2c 26 32 38 2c 2c 74 79  |priteOp",&28,,ty|
000078c0  70 65 24 2b bd 28 30 29  20 b8 20 2c 2c 2c 77 25  |pe$+.(0) . ,,,w%|
000078d0  2c 68 25 2c 2c 6d 6f 64  65 25 0d 36 7e 2c 20 c8  |,h%,,mode%.6~, .|
000078e0  99 22 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  |."OS_ReadModeVar|
000078f0  69 61 62 6c 65 22 2c 6d  6f 64 65 25 2c 34 20 b8  |iable",mode%,4 .|
00007900  20 2c 2c 78 73 25 0d 36  88 2c 20 c8 99 22 4f 53  | ,,xs%.6., .."OS|
00007910  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
00007920  65 22 2c 6d 6f 64 65 25  2c 35 20 b8 20 2c 2c 79  |e",mode%,5 . ,,y|
00007930  73 25 0d 36 92 0f 20 68  25 3d 68 25 3c 3c 79 73  |s%.6.. h%=h%<<ys|
00007940  25 0d 36 9c 0f 20 77 25  3d 77 25 3c 3c 78 73 25  |%.6.. w%=w%<<xs%|
00007950  0d 36 a6 11 20 e7 20 74  65 78 74 24 3d 22 22 20  |.6.. . text$="" |
00007960  8c 0d 36 b0 14 20 20 62  6c 6f 63 6b 25 21 38 3d  |..6..  block%!8=|
00007970  79 25 2d 68 25 0d 36 ba  15 20 20 62 6c 6f 63 6b  |y%-h%.6..  block|
00007980  25 21 31 32 3d 78 25 2b  77 25 0d 36 c4 19 20 20  |%!12=x%+w%.6..  |
00007990  62 6c 6f 63 6b 25 21 32  30 3d 26 31 37 30 30 36  |block%!20=&17006|
000079a0  31 33 41 0d 36 ce 11 20  20 62 6c 6f 63 6b 25 21  |13A.6..  block%!|
000079b0  32 38 3d 31 0d 36 d8 16  20 20 62 6c 6f 63 6b 25  |28=1.6..  block%|
000079c0  21 33 32 3d a9 74 79 70  65 24 0d 36 e2 18 20 20  |!32=.type$.6..  |
000079d0  24 74 65 78 74 5f 73 70  61 63 65 25 3d 74 79 70  |$text_space%=typ|
000079e0  65 24 0d 36 ec 06 20 cc  0d 36 f6 1e 20 20 62 6c  |e$.6.. ..6..  bl|
000079f0  6f 63 6b 25 21 38 3d 79  25 2d 68 25 2d 28 31 30  |ock%!8=y%-h%-(10|
00007a00  3c 3c 79 73 25 29 0d 37  00 19 20 20 73 31 25 3d  |<<ys%).7..  s1%=|
00007a10  28 38 3c 3c 78 73 25 29  2a a9 74 65 78 74 24 0d  |(8<<xs%)*.text$.|
00007a20  37 0a 15 20 20 e7 20 73  31 25 3e 77 25 20 77 25  |7..  . s1%>w% w%|
00007a30  3d 73 31 25 0d 37 14 15  20 20 62 6c 6f 63 6b 25  |=s1%.7..  block%|
00007a40  21 31 32 3d 78 25 2b 77  25 0d 37 1e 19 20 20 62  |!12=x%+w%.7..  b|
00007a50  6c 6f 63 6b 25 21 32 30  3d 26 31 37 30 30 36 31  |lock%!20=&170061|
00007a60  32 42 0d 37 28 1e 20 20  de 20 6e 61 6d 65 5f 73  |2B.7(.  . name_s|
00007a70  70 61 63 65 25 20 28 32  2b a9 74 79 70 65 24 29  |pace% (2+.type$)|
00007a80  0d 37 32 1c 20 20 24 6e  61 6d 65 5f 73 70 61 63  |.72.  $name_spac|
00007a90  65 25 3d 22 73 22 2b 74  79 70 65 24 0d 37 3c 1b  |e%="s"+type$.7<.|
00007aa0  20 20 62 6c 6f 63 6b 25  21 32 38 3d 6e 61 6d 65  |  block%!28=name|
00007ab0  5f 73 70 61 63 65 25 0d  37 46 06 20 cd 0d 37 50  |_space%.7F. ..7P|
00007ac0  0d c9 20 22 73 70 72 69  74 22 0d 37 5a 3e 20 c8  |.. "sprit".7Z> .|
00007ad0  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
00007ae0  31 32 38 2c 65 73 67 5f  73 70 25 2c 74 65 78 74  |128,esg_sp%,text|
00007af0  24 2b bd 28 30 29 20 b8  20 2c 2c 2c 77 25 2c 68  |$+.(0) . ,,,w%,h|
00007b00  25 2c 2c 6d 6f 64 65 25  0d 37 64 2c 20 c8 99 22  |%,,mode%.7d, .."|
00007b10  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00007b20  62 6c 65 22 2c 6d 6f 64  65 25 2c 34 20 b8 20 2c  |ble",mode%,4 . ,|
00007b30  2c 78 73 25 0d 37 6e 2b  20 c8 99 22 4f 53 5f 52  |,xs%.7n+ .."OS_R|
00007b40  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
00007b50  6d 6f 64 65 25 2c 35 20  b8 20 2c 2c 79 73 25 0d  |mode%,5 . ,,ys%.|
00007b60  37 78 0f 20 68 25 3d 68  25 3c 3c 79 73 25 0d 37  |7x. h%=h%<<ys%.7|
00007b70  82 0f 20 77 25 3d 77 25  3c 3c 78 73 25 0d 37 8c  |.. w%=w%<<xs%.7.|
00007b80  13 20 62 6c 6f 63 6b 25  21 38 3d 79 25 2d 68 25  |. block%!8=y%-h%|
00007b90  0d 37 96 14 20 62 6c 6f  63 6b 25 21 31 32 3d 78  |.7.. block%!12=x|
00007ba0  25 2b 77 25 0d 37 a0 18  20 62 6c 6f 63 6b 25 21  |%+w%.7.. block%!|
00007bb0  32 30 3d 26 31 37 30 30  33 31 33 41 0d 37 aa 16  |20=&1700313A.7..|
00007bc0  20 62 6c 6f 63 6b 25 21  32 38 3d 65 73 67 5f 73  | block%!28=esg_s|
00007bd0  70 25 0d 37 b4 15 20 62  6c 6f 63 6b 25 21 33 32  |p%.7.. block%!32|
00007be0  3d a9 74 65 78 74 24 0d  37 be 17 20 24 74 65 78  |=.text$.7.. $tex|
00007bf0  74 5f 73 70 61 63 65 25  3d 74 65 78 74 24 0d 37  |t_space%=text$.7|
00007c00  c8 0d c9 20 22 6c 61 62  65 6c 22 0d 37 d2 0d c9  |... "label".7...|
00007c10  20 22 61 63 74 69 6f 22  0d 37 dc 18 20 62 6c 6f  | "actio".7.. blo|
00007c20  63 6b 25 21 32 30 3d 26  43 37 31 46 39 31 33 44  |ck%!20=&C71F913D|
00007c30  0d 37 e6 0d c9 20 22 72  65 70 6f 72 22 0d 37 f0  |.7... "repor".7.|
00007c40  18 20 62 6c 6f 63 6b 25  21 32 30 3d 26 30 37 30  |. block%!20=&070|
00007c50  30 33 31 33 44 0d 37 fa  0d c9 20 22 6f 70 74 69  |0313D.7... "opti|
00007c60  6f 22 0d 38 04 13 20 62  6c 6f 63 6b 25 21 38 3d  |o".8.. block%!8=|
00007c70  79 25 2d 35 32 0d 38 0e  21 20 62 6c 6f 63 6b 25  |y%-52.8.! block%|
00007c80  21 31 32 3d 78 25 2b 34  30 2b 31 36 2b 31 36 2a  |!12=x%+40+16+16*|
00007c90  a9 74 65 78 74 24 0d 38  18 18 20 62 6c 6f 63 6b  |.text$.8.. block|
00007ca0  25 21 32 30 3d 26 31 37  30 30 42 31 33 33 0d 38  |%!20=&1700B133.8|
00007cb0  22 1f 20 e7 20 73 65 31  25 20 62 6c 6f 63 6b 25  |". . se1% block%|
00007cc0  21 32 30 3d 26 31 37 33  30 33 31 33 33 0d 38 2c  |!20=&17303133.8,|
00007cd0  26 20 de 20 76 61 6c 5f  73 70 61 63 65 25 20 28  |& . val_space% (|
00007ce0  32 2b a9 22 73 6f 70 74  6f 66 66 2c 6f 70 74 6f  |2+."soptoff,opto|
00007cf0  6e 22 29 0d 38 36 20 20  24 76 61 6c 5f 73 70 61  |n").86  $val_spa|
00007d00  63 65 25 3d 22 73 6f 70  74 6f 66 66 2c 6f 70 74  |ce%="soptoff,opt|
00007d10  6f 6e 22 0d 38 40 19 20  62 6c 6f 63 6b 25 21 32  |on".8@. block%!2|
00007d20  38 3d 76 61 6c 5f 73 70  61 63 65 25 0d 38 4a 0d  |8=val_space%.8J.|
00007d30  c9 20 22 72 61 64 69 6f  22 0d 38 54 13 20 62 6c  |. "radio".8T. bl|
00007d40  6f 63 6b 25 21 38 3d 79  25 2d 35 32 0d 38 5e 21  |ock%!8=y%-52.8^!|
00007d50  20 62 6c 6f 63 6b 25 21  31 32 3d 78 25 2b 34 30  | block%!12=x%+40|
00007d60  2b 31 36 2b 31 36 2a a9  74 65 78 74 24 0d 38 68  |+16+16*.text$.8h|
00007d70  2d 20 e7 20 28 65 73 67  5f 73 70 25 3c 31 29 20  |- . (esg_sp%<1) |
00007d80  84 20 28 65 73 67 5f 73  70 25 3e 33 31 29 20 8c  |. (esg_sp%>31) .|
00007d90  20 65 73 67 5f 73 70 25  3d 31 0d 38 72 2b 20 62  | esg_sp%=1.8r+ b|
00007da0  6c 6f 63 6b 25 21 32 30  3d 26 31 37 30 30 42 31  |lock%!20=&1700B1|
00007db0  33 33 20 84 20 28 65 73  67 5f 73 70 25 2a 26 31  |33 . (esg_sp%*&1|
00007dc0  30 30 30 30 29 0d 38 7c  32 20 e7 20 73 65 31 25  |0000).8|2 . se1%|
00007dd0  20 62 6c 6f 63 6b 25 21  32 30 3d 26 31 37 32 30  | block%!20=&1720|
00007de0  42 31 33 33 20 84 20 28  65 73 67 5f 73 70 25 2a  |B133 . (esg_sp%*|
00007df0  26 31 30 30 30 30 29 0d  38 86 2b 20 de 20 74 65  |&10000).8.+ . te|
00007e00  78 74 5f 73 70 61 63 65  25 20 28 32 2b a9 22 73  |xt_space% (2+."s|
00007e10  72 61 64 69 6f 6f 66 66  2c 72 61 64 69 6f 6f 6e  |radiooff,radioon|
00007e20  22 29 0d 38 90 25 20 24  74 65 78 74 5f 73 70 61  |").8.% $text_spa|
00007e30  63 65 25 3d 22 73 72 61  64 69 6f 6f 66 66 2c 72  |ce%="sradiooff,r|
00007e40  61 64 69 6f 6f 6e 22 0d  38 9a 1a 20 62 6c 6f 63  |adioon".8.. bloc|
00007e50  6b 25 21 32 38 3d 74 65  78 74 5f 73 70 61 63 65  |k%!28=text_space|
00007e60  25 0d 38 a4 0d c9 20 22  77 72 69 74 65 22 0d 38  |%.8... "write".8|
00007e70  ae 1e 20 62 6c 6f 63 6b  25 21 31 32 3d 78 25 2b  |.. block%!12=x%+|
00007e80  31 36 2b 31 36 2a a9 74  65 78 74 24 0d 38 b8 18  |16+16*.text$.8..|
00007e90  20 62 6c 6f 63 6b 25 21  32 30 3d 26 30 37 30 30  | block%!20=&0700|
00007ea0  46 31 33 35 0d 38 c2 14  20 de 20 76 61 6c 5f 73  |F135.8.. . val_s|
00007eb0  70 61 63 65 25 20 31 36  0d 38 cc 13 20 24 76 61  |pace% 16.8.. $va|
00007ec0  6c 5f 73 70 61 63 65 25  3d 22 22 0d 38 d6 19 20  |l_space%="".8.. |
00007ed0  62 6c 6f 63 6b 25 21 32  38 3d 76 61 6c 5f 73 70  |block%!28=val_sp|
00007ee0  61 63 65 25 0d 38 e0 21  20 e7 20 73 65 31 25 3c  |ace%.8.! . se1%<|
00007ef0  28 a9 74 65 78 74 24 29  20 73 65 31 25 3d a9 20  |(.text$) se1%=. |
00007f00  74 65 78 74 24 0d 38 ea  15 20 62 6c 6f 63 6b 25  |text$.8.. block%|
00007f10  21 33 32 3d 73 65 31 25  2b 31 0d 38 f4 05 cb 0d  |!32=se1%+1.8....|
00007f20  38 fe 27 c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |8.'.."Wimp_Creat|
00007f30  65 49 63 6f 6e 22 2c 2c  62 6c 6f 63 6b 25 20 b8  |eIcon",,block% .|
00007f40  20 69 63 6f 6e 25 0d 39  08 2b e7 20 62 6f 72 64  | icon%.9.+. bord|
00007f50  65 72 25 3e 30 20 f2 62  6f 72 64 65 72 5f 69 63  |er%>0 .border_ic|
00007f60  6f 6e 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |on(window%,icon%|
00007f70  29 0d 39 12 0a 3d 69 63  6f 6e 25 0d ff           |).9..=icon%..|
00007f7d