� !RunImage
� By Philip Mellor
$version$="1.06 (31st July 1997)"
(:
2� � �4:�:�" - ";�:�
<:
FCș "Wimp_Initialise",200,&4B534154,"HTML > Impression" � ,task%
P
Z$file%=�("<HTML2Imp$Dir>.Header")
dstart_block_size%=�#file%
n�#file%
x$� start_block% start_block_size%
�3�("LOAD <HTML2Imp$Dir>.Header "+�~start_block%)
�
�'�wimpheap_initialise:heap_exists%=�
�	�init
��createiconbar
�:
�� � � �error � �close:�
�:
��
�	�poll
�� quit%
�
�close
��

:

� �createiconbar

6!b%=-1:b%!4=0:b%!8=0:b%!12=68:b%!16=78:b%!20=&3002

"6$(b%+24)="!html>imp":ș "Wimp_CreateIcon",,b% � i%

,�

6:

@� �close

JA� heap_exists%=� release%=�wimpheap_free(web%):heap_exists%=�

T'ș "Wimp_CloseDown",task%,&4B534154

^�

h:

r� �poll

|ș "Wimp_Poll",,b% � r%

�Ȏ r% �

� � 2:ș "Wimp_OpenWindow",,b%

�!� 3:ș "Wimp_CloseWindow",,b%

�� 6:�mouseclick

�� 7:�dragend

�� 8:�processkey

�� 9:�menuclick

�� 17,18:�recieve

��

��

�:

�� �recieve

�Ȏ b%!16 �
� 0:quit%=�
� 1:�datasave

� 2:�save
&
� 3:�load
0� &502:�helpme
:� &400C0:�menu_warning
D�
N�
X:
b��datasave
l�term(b%+44)
vname$=$(b%+44)
�$(b%+44)="<Wimp$Scrap>"+�0
�'b%!36=-1 : � saved file is "unsafe"
�b%!0=256
�b%!12=b%!8
�b%!16=2
�$ș "Wimp_SendMessage",17,b%,b%!4
��
�:
�� �processkey
�
key=b%!24
�
process=�
�� key=13 �
�
,!b%=saveas%:ș "Wimp_GetWindowState",,b%
� (b%!32 � 1<<16)<>0 �
�file$=�icon_string(saveas%,2):�check_save:� saved%=� �put_save_data:process=�:�close_window(saveas%):ș "Wimp_CreateMenu",,-1
 �
*
4�
>&� process ș "Wimp_ProcessKey",key
H�
R:
\��menu_warning
fsubmenu_ptr=b%!20
pwin_x=b%!24
zwin_y=b%!28
�Ȏ b%!36 �
�� 1:� Impression
�,  �set_icon_string(saveas%,1,"file_fff")
�-  �set_icon_string(saveas%,2,"TextStory")
�  save_type%=&FFF
�� 2:� HTML
�,  �set_icon_string(saveas%,1,"file_faf")
�,  �set_icon_string(saveas%,2,"HTMLfile")
�  save_type%=&FAF
��
�.ș "Wimp_CreateSubMenu",,b%!20,b%!24,b%!28
��
�:
!� �update_icon(window%,icon%)
b%!0=window%
   b%!4=icon%
$
   b%!8=0
.   b%!12=0
8!   ș "Wimp_SetIconState",,b%
B�
L:
V+��get_origin(handle%,� xorig%,� yorig%)
`� c%
j
c%=b%+800
t!c%=handle%
~ ș "Wimp_GetWindowState",,c%
�xorig%=c%!4-c%!20
�yorig%=c%!16-c%!24
��
�:
�� �mouseclick
�window%=b%!12
�icon%=b%!16
�button%=b%!8
�Ȏ window% �
�
�	 � -2
�  Ȏ button% �
.   � 2:�showmenu(mainmenu%,!b%-64,96+3*44)

   �

 � saveas%
(  Ȏ icon% �
25   � 1:� button%=16 � button%=64 �drag(saveas%,1)
<N   � 3:file$=�icon_string(saveas%,2):�check_save:� saved%=� �put_save_data
FL          � button%<>1 � �close_window(saveas%):ș "Wimp_CreateMenu",,-1
P  �
Z
d�
n�
x:
�� �s(wh%,iconnumber%,text$)
�!temp%=wh%
�temp%!4=iconnumber%
�!ș "Wimp_GetIconState",,temp%
� $temp%!28=�text$,temp%!36-1)
�
temp%!8=0
�temp%!12=0
�!ș "Wimp_SetIconState",,temp%
��
�:
�� �init
�-� b% 5000,ws% 5000,menspc% 1000, temp% 32
�wsend%=ws%+5000
quit%=�
�load_templates
�main_menu
"�file_menu
,�attach(mainmenu%,0,info%)
6"�attach(mainmenu%,1,filemenu%)
@�attach(filemenu%,0,stats%)
J �attach(filemenu%,1,saveas%)
T �attach(filemenu%,2,saveas%)
^�grey(mainmenu%,1)
h&�set_icon_string(info%,6,version$)
r�
|:
�� �load_templates
�6ș "Wimp_OpenTemplate",,"<HTML2Imp$Dir>.Templates"
�=ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"info",0 � ,,ws%
�&ș "Wimp_CreateWindow",,b% � info%
�?ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"saveas",0 � ,,ws%
�(ș "Wimp_CreateWindow",,b% � saveas%
�>ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"stats",0 � ,,ws%
�'ș "Wimp_CreateWindow",,b% � stats%
�ș "Wimp_CloseTemplate"
��
�:
�� �attach(menu%,item%,sub%)
�!(menu%+28+item%*24+4)=sub%
�
:
� �main_menu
&� +1
0#� HTML>Impress,Info,File,Quit,*
:mainmenu%=�make_menu
D�
N:
X� �file_menu
b� +1
l6� File,About,Save Impression_M,Save HTML_M,Clear,*
vfilemenu%=�make_menu
��
�:
�� �make_menu
�start%=menspc%
�� title$
�$(start%)=title$
�start%?12=7
�start%?13=2
�start%?14=7
�start%?15=0
�start%!20=44
�start%!24=0
�� start%!16=160
width%=�(title$)-3
menspc%+=28
�
 � item$
*� item$<>"*" �
4!menspc%=0
>writeable%=�
Hul%=�item$,"_")
R� ul% �
\tail$=�item$,�(item$)-ul%)
f.� �tail$,"T") !menspc%=!menspc% � 1:� tick
p5� �tail$,"D") !menspc%=!menspc% � 2:� dotted line
zX� �tail$,"W") !menspc%=!menspc% � 4:writeable%=�:� buffer%:� buflen%:� writable icon
�:� �tail$,"M") !menspc%=!menspc% � 8:� generate message
�item$=�item$,ul%-1)
��
�#� � item$>width% width%=� item$
�menspc%!4=-1
�� writeable% �
�Zmenspc%!8=&0700F121:menspc%!12=buffer%:menspc%!16=-1:menspc%!20=buflen%:$buffer%=item$
��
�� � item$<12 �
�+menspc%!8=&07000021:$(menspc%+12)=item$
��
�Imenspc%!8=&07000121:menspc%!12=ws%:menspc%!16=-1:menspc%!20=� item$+1
�$ws%=item$:ws%+=� item$+1
	�
	�
	menspc%+=24
	$�
	.� item$="*"
	8start%!16=width%*16+32
	B%!(menspc%-24)=!(menspc%-24) � &80
	Lmptr%=menspc%
	V=start%
	`:
	j� �showmenu(menu%,x%,y%)
	t$topmenu%=menu%:topx%=x%:topy%=y%
	~%ș "Wimp_CreateMenu",,menu%,x%,y%
	��
	�:
	���ungrey(menu%,item%)
	�?menu%!(28+item%*24+8)=(menu%!(28+item%*24+8)) � (� (1<<22))
	��
	�:
	���grey(menu%,item%)
	�;menu%!(28+item%*24+8)=(menu%!(28+item%*24+8)) � (1<<22)
	��
	�:
	�� �menuclick
	�� c%

c%=b%+900

 ș "Wimp_GetPointerInfo",,c%
adj%=(c%!8 � 1)
(ș "Wimp_DecodeMenu",,topmenu%,b%,c%
(Ȏ $c% �
2 � "Quit":quit%=�
< � "File.Clear"
FD   � heap_exists%=� release%=�wimpheap_free(web%):heap_exists%=�
P   �grey(mainmenu%,1)
Z�
d*� adj% �showmenu(topmenu%,topx%,topy%)
n�
x:
� � �icon_state(window%,icon%)
�� c%
�
c%=b%+900
�!c%=window%
�c%!4=icon%
�ș "Wimp_GetIconState",,c%
�=((c%!24) � (1<<21))<>0
�:
�!� �string_addr(window%,icon%)
�� c%
�� c% 64
�!c%=window%
�c%!4=icon%
ș "Wimp_GetIconState",,c%

=c%!28
:
"!� �icon_string(window%,icon%)
,&�term(�string_addr(window%,icon%))
6!=$�string_addr(window%,icon%)
@�
J:
T(� �set_icon_string(window%,icon%,a$)
^#$�string_addr(window%,icon%)=a$
h�
r:
|� �term(a%)
�� n%
�ȕ a%?n%>31
�	n%+=1
��
�a%?n%=13
��
�:
���open_window(win%)
�!b%=win%
� ș "Wimp_GetWindowState",,b%
�b%!28=-1
�ș "Wimp_OpenWindow",,b%
��
:
��close_window(win%)
!b%=win%
&:ș "Wimp_GetWindowState",,b%:ș "Wimp_CloseWindow",,b%
0�
::
D� �error
N	!b%=�
XȎ !b% �
b"� 1<<30:err_str$="":box%=%1001
l(:err_str$=" at line "+Þ:box%=%1001
v�
�$(b%+4)=�$+err_str$+�0
�Bș "Wimp_ReportError",b%,box%,"HTML > Impression" � ,response%
�=(response%=2)
�:
���get_screen_size
�+ș"OS_ReadModeVariable",-1,4 � ,,Xfact%
�+ș"OS_ReadModeVariable",-1,5 � ,,Yfact%
�+ș"OS_ReadModeVariable",-1,11 � ,,XLim%
�+ș"OS_ReadModeVariable",-1,12 � ,,YLim%
�X2=XLim%<<Xfact%
�Y2=YLim%<<Yfact%
��
�:

��drag(window%,icon%)

� c%


c%=b%+900

 &�get_origin(window%,xorig%,yorig%)

*!c%=window%:c%!4=icon%

4ș "Wimp_GetIconState",,c%

>(xmin%=xorig%+c%!8:ymin%=yorig%+c%!12

H)xmax%=xorig%+c%!16:ymax%=yorig%+c%!20

R!c%=xmin%:c%!4=ymin%

\c%!8=xmax%:c%!12=ymax%

f spr$=�icon_string(saveas%,1)

p.ș "DragASprite_Start",%10000101,1,spr$,c%

z�

�:

�
��dragend

�a$=�icon_string(saveas%,2)

� ș "Wimp_GetPointerInfo",,b%

�b%!20=b%!12

�b%!24=b%!16

�b%!28=b%!0

�b%!32=b%!4

�b%!36=(filepos%-readsize%)

�b%!40=save_type%

�ȕ �a$,".")<>0

�n%=�a$,".")

�a$=�a$,n%+1)
�
$(b%+44)=a$
!b%=44+((�a$+1) � 4)*4
$� ((�a$+1) � 4)<>0 !b%+=4
.b%!12=0
8b%!16=1
B+ș "Wimp_SendMessage",18,b%,b%!20,b%!24
L�
V:
`
��save
j�term(b%+44)
tfile$=$(b%+44)
~%�set_icon_string(saveas%,2,file$)
��put_save_data
�b%!12=b%!8
�b%!16=3
�!b%=256
�+ș "Wimp_SendMessage",18,b%,b%!20,b%!24
�
�%�set_icon_string(saveas%,2,file$)
�ș "Wimp_CreateMenu",,-1
��
�:
���check_save
�&� �file$,"::")=0 � �file$,".")=0 �
 !b%=%1

@ $(b%+4)="To save, drag the icon to a directory display."+�0
 box%=%11001
N ș "Wimp_ReportError",b%,box%,"Error from HTML > Impression" � ,response%
(
 saved%=�
2�
<
 saved%=�
F�
P�
Z:
d��put_save_data
n!file$=�icon_string(saveas%,2)
xȎ save_type% �
�� &FFF:�save_as_text
�� &FAF:�save_as_html
��
��
�:
���save_as_text
�H�("Save "+file$+" "+�~(web%+readsize%)+" + "+�~(filepos%-readsize%))
��("SetType "+file$+" fff")
�C�SYS "OS_Byte",10,file$,&FFF,,web%+readsize%,filepos%-readsize%
�saved%=�
��
�:
���save_as_html
5�("Save "+file$+" "+�~(web%)+" + "+�~(readsize%))
�("SetType "+file$+" faf")
saved%=�
"�
,:
6
��convert
@
Jș "Hourglass_On"
Tpre=�:char$=�0:indent%=0
^
dt_tag%=�
hlink%=�
roldfilepos%=filepos%
|
��
�filepos%+=start_block_size%
�big_enough%=�
�c� filepos%>=websize% extend%=�wimpheap_extend(web%,ex_chunk%):websize%+=ex_chunk%:big_enough%=�
�filepos%=oldfilepos%
�� big_enough%
�
�$� flibble%=0 � start_block_size%
�'web%?filepos%=start_block%?flibble%
�filepos%+=1
��
�filepos%-=1
�

percent=0
� byte=0 � readsize%-1
Q� byte>percent percent+=256:ș "Hourglass_Percentage",�((byte/readsize%)*100)
&last$=char$
0char$=�(web%?byte)
:Ȏ char$ �
D
N� "<":� *** OPEN TAG ***
X@  tag$=�section("<"," ",">",">"):�check_tag(�capitals(tag$))
b
l� �10,�13:� *** NEWLINE ***
v  � pre=�  �file(char$)
�'  � pre=� � � last$<>" " �file(" ")
�
�� "&":� *** SYMBOL ***
�'  symbol$=�section("&"," ",";"," ")
�9  � symbol$="" � �file("& ") � �check_symbol(symbol$)
�
�+� " ":� last$<>" " � pre=� �file(char$)
�
�� "{":�file("{\123}")
�
�
�
��file(char$)

�
�
 
*ș "Hourglass_Smash"
4�
>:
H(� �section(start$,end1$,end2$,end3$)
R� byte<websize%-1 �
\!section$="":stop%=�:after$=""
f�
p byte+=1
z last$=char$
� char$=�(web%?byte)
� � char$=end1$ stop%=�
�4 � char$<>start$ � char$<>end2$ � char$<>end3$ �
�    � stop%=� section$+=char$
�   � stop%=� after$+=char$
� �
�/� byte>websize% � char$=end2$ � char$=end3$
��
�
=section$
�:
���check_tag(tag$)
�
Ȏ tag$ �
� � "br" : �file(�10)
H � "h1","h2","h3","h4","h5","h6","blockquote" : �file(�10):�on(tag$)
7 � "/h1","/h2","/h3","/h4","/h5","/h6" : �off(tag$)
, � "/blockquote" : �file(�10):�off(tag$)
$J � "a" : � ��capitals(after$),"name=")=0 �on("link"):link%=� � link%=�
.- � "/a" : � link%=� �off("/link"):link%=�
8? � "p" : � � pre �on("newpara"):�file(�10):�off("/newpara")
B& � "ul","ol":indent%+=1:�file(�10)
L( � "/ul","/ol":indent%-=1:�file(�10)
V) � "li" :�file(�10+�indent%,�9)+"� ")
`+ � "pre","listing" : pre=� : �on("pre")
j/ � "/pre","/listing" : pre=� : �off("/pre")
t3 � "samp","address","code","kbd","tt":�on(tag$)
~9 � "/samp","/address","/code","/kbd","/tt":�off(tag$)
�, � "b","strong","var":�file("{bold on}")
�, � "/b","/strong","/var":�file("{bold}")
�! � "u":�file("{underline 1}")
�  � "/u":�file("{underline}")
�9 � "i","quote","em","cite","dfn":�file("{italic on}")
�; � "/i","/quote","/em","/cite","/dfn":�file("{italic}")
�9 � "hr" : �file(�10):�on(tag$):�file(�10):�off("/hr")
�2 � "center","centre":�file("{justify centre}")
�- � "/center","/centre":�file("{justify}")
�= � "title":�file(�10):�on(tag$):�file("{justify centre}")
�8 � "/title":�file("{justify}"):�off(tag$):�file(�10)
�L � "dd":� dt_tag%=� � �file("{bold off}"):�file(�10):�on("dt"):dt_tag%=�
; � "/dl":� dt_tag%=� � �off("/dt"):dt_tag%=�:�file(�10)

Q � "dt":�file(�10+"{bold on}"):� dt_tag%=� � �off("/dt"):dt_tag%=�:�file(�10)
  � "img":�image_data(after$)
  � "font":�font_data(after$)
(" � "/font":�file("{fontsize}")
2$ � "sup":�file("{script super}")
<" � "sub":�file("{script sub}")
F& � "/sup","/sub":�file("{script}")
P�
Z�
d:
n��font_data(env$)
x!� ��capitals(env$),"size=") �
�
�font$=""
�$font=��capitals(env$),"size=")+4
�c$=�env$,font,1)
�font_end$=�32
��
�font+=1
�c$=�env$,font,1)
�� c$<>font_end$ �
� � c$<>">" font$+=c$
��
�'� c$=font_end$ � c$=">" � font=2560
��
*� c$=font_end$ � c$=">" � font>�(env$)

size%=�(font$):size2%=12
"
,%� �font$,"+")>0 � �font$,"-")>0 �
6relative%=size%
@size%=3+relative%
J� size%<1 size%=1
T� size%>7 size%=7
^size%-=3
hsize2%=12 + ( size%*2 )
r�
|� size%<1 size%=1
�� size%>7 size%=7
�size%-=3
�size2%=12 + ( size%*2 )
��
�
�'�file("{fontsize "+�(size2%)+"pt}")
��
��
�:
���image_data(env$)
� � ��capitals(env$),"alt=") �
�alt$=""
�"alt=��capitals(env$),"alt=")+4
c$=�env$,alt,1)
(� c$=�34 alt_end$=�34 � alt_end$=�32
�
&
alt+=1
0c$=�env$,alt,1)
:� c$<>alt_end$ �
D� alt_end$=�34 alt$+=c$
N(� alt_end$<>�34 � � c$<>">" alt$+=c$
X�
b� c$=alt_end$ � alt=2560
l'� alt_end$<>�34 � � c$=">" alt=2560
v�
�(� c$=alt_end$ � c$=">" � alt>�(env$)
��on("img")
��file(" <"+alt$+"> ")
��off("/img")
��
��on("img")
��file(" <IMAGE> ")
��off("/img")
��
��
�:
���on(tag$)
��file("{"""+tag$+""" on}")
�

��off(tag$)
 #�file("{"""+�tag$,2)+""" off}")
*�
4:
>��file(what$)
Holdfilepos%=filepos%
Rfilepos%+=�(what$)
\U� filepos%>=websize% extend%=�wimpheap_extend(web%,ex_chunk%):websize%+=ex_chunk%
ffilepos%=oldfilepos%
p� flibble=1 � � what$
z&web%?filepos%=�(�what$,flibble,1))
�filepos%+=1
��
��
�:
���load_data(file$)
�A� heap_exists%=� release%=�wimpheap_free(web%):heap_exists%=�
�
�s$=file$:orig_file$=file$
�1� �capitals(s$)="<wimp$scrap>" s$="TextStory"
�5� �capitals(�s$,4))="/htm" s$=�s$,�(s$)-4)+"/txt"
�6� �capitals(�s$,5))="/html" s$=�s$,�(s$)-5)+"/txt"
�what_to_save$=s$
�*�set_icon_string(saveas%,1,"file_fff")
-�set_icon_string(saveas%,2,what_to_save$)
save_type%=&FFF

$ex_chunk%=1024*16
.
8html%=�(file$)
Breadsize%=(�#html%)
L websize%=readsize%+ex_chunk%
Vfilepos%=readsize%
`�#html%
j1web%=�wimpheap_claim(websize%):heap_exists%=�
t
~�("LOAD "+file$+" "+�~web%)
�$ș "OS_ReadMonotonicTime" � then
��convert
�#ș "OS_ReadMonotonicTime" � now
�taken=(now-then)/100
�taken$=��(taken),6)
�0�set_icon_string(stats%,6,taken$+" seconds")
�)�set_icon_string(stats%,0,orig_file$)
�7�set_icon_string(stats%,2,�(�(readsize%/1024))+"K")
�B�set_icon_string(stats%,4,�(�((filepos%-readsize%)/1024))+"K")
��ungrey(mainmenu%,1)
�
� ș "Wimp_GetPointerInfo",,b%
mx=!b%:my=b%!4

/ș "Wimp_CreateMenu",,saveas%,mx-160,my+100
�
:
(��check_symbol(symbol$)
2caps%=�
<convert$=""
F
Pfirst$=�symbol$,1)
Z � first$="#" �
d6  number$=�symbol$,�(symbol$)-1):number=�(number$)
n  convert$=�(number)
x �
�1  � �(first$)>=�"A" � �(first$)<=�"Z" caps%=�
� �
�
� Ȏ �capitals(symbol$) �
�9� "aelig":� caps% convert$="�" � "aelig":convert$="�"
�2� "aacute":� caps% convert$="�" � convert$="�"
�1� "acirc":� caps% convert$="�" � convert$="�"
�2� "agrave":� caps% convert$="�" � convert$="�"
�1� "aring":� caps% convert$="�" � convert$="�"
�;� "atilde":� caps% convert$="�" � "atilde":convert$="�"
�7� "auml":� caps% convert$="�" � "auml":convert$="�"
�2� "ccedil":� caps% convert$="�" � convert$="�"
�� "cedilla":convert$="�"
/� "eth":� caps% convert$="�" � convert$="�"
2� "eacute":� caps% convert$="�" � convert$="�"
1� "ecirc":� caps% convert$="�" � convert$="�"
"2� "egrave":� caps% convert$="�" � convert$="�"
,0� "euml":� caps% convert$="�" � convert$="�"
62� "iacute":� caps% convert$="�" � convert$="�"
@1� "icirc":� caps% convert$="�" � convert$="�"
J2� "igrave":� caps% convert$="�" � convert$="�"
T0� "iuml":� caps% convert$="�" � convert$="�"
^2� "ntilde":� caps% convert$="�" � convert$="�"
h2� "oacute":� caps% convert$="�" � convert$="�"
r1� "ocirc":� caps% convert$="�" � convert$="�"
|2� "ograve":� caps% convert$="�" � convert$="�"
�2� "oslash":� caps% convert$="�" � convert$="�"
�2� "otilde":� caps% convert$="�" � convert$="�"
�0� "ouml":� caps% convert$="�" � convert$="�"
�1� "thorn":� caps% convert$="�" � convert$="�"
�2� "uacute":� caps% convert$="�" � convert$="�"
�1� "ucirc":� caps% convert$="�" � convert$="�"
�:� "ugrave","grave":� caps% convert$="�" � convert$="�"
�0� "uuml":� caps% convert$="�" � convert$="�"
�2� "yacute":� caps% convert$="�" � convert$="�"
�� "acute":convert$="�"
�� "amp":convert$="&"
�� "brvbar":convert$="�"
�� "cent":convert$="�"
� "copy":convert$="�"
� "curren":convert$="�"
� "degree":convert$="�"
&� "die":convert$="�"
0� "divide":convert$="�"
:� "fish":convert$="<><"
D� "frac14":convert$="�"
N� "frac12":convert$="�"
X� "frac34":convert$="�"
b� "gt":convert$=">"
l� "iexcl":convert$="�"
v� "iquest":convert$="�"
�� "laquo":convert$="�"
�� "lt":convert$="<"
�� "macron":convert$="�"
�� "micro":convert$="�"
�� "middot":convert$="�"
�� "nbsp":convert$="�"
�� "not":convert$="�"
�� "ordf":convert$="�"
�� "ordm":convert$="�"
�� "para":convert$="�"
�� "plusmn":convert$="�"
�� "pound":convert$="�"
�� "quot":convert$=�34
� "raquo":convert$="�"
� "reg":convert$="�"
� "sect":convert$="�"
 � "shy":convert$="�"
*� "sup1":convert$="�"
4� "sup2":convert$="�"
>� "sup3":convert$="�"
H� "szlig":convert$="�"
R� "times":convert$="�"
\� "trade":convert$="�"
f� "yen":convert$="�"
p� "yuml":convert$="�"
z�
�
�1� convert$<>"" �file("{\"+�(�(convert$))+"}")
�
��
�:
�ݤcapitals(t$)
�-� *** Converts all text to lower case ***
�
� I,l$
�
nt$=""
�� I=1 � � t$
�l$=�t$,I,1)
�2� �(l$)>=�("A") � �(l$)<=�("Z") l$=�(�(l$)+32)
�nt$+=l$
�
=nt$
:
$
��load
.filetype=b%!40
8window=b%!20
Bicon=b%!24
L�term(b%+44)
Vfilename$=$(b%+44)
`� filetype=&FAF �
jȎ window �
t � -2:� iconbar
~  �load_data(filename$)
��
��
��
�
�:
���helpme
�window%=b%!32
�icon%=b%!36
�6help$="This is the HTML > Impression application."
�
�Ȏ window% �
�	 � -2
i  help$="This is the HTML > Impression icon.|MDrag a HTML file to convert it into Impression format."


 � info%
T  help$="This window shows information about the HTML > Impression application."
(  Ȏ icon% �
25   � 0,1:help$="This is the name of the program."
<8   � 2,3:help$="This is the purpose of the program."
F7   � 4,5:help$="This is the author of the program."
P?   � 6,7:help$="This is the version number of the program."
Z  �
d
n � saveas%
x<  help$="To save, drag the icon to a directory display."
�  Ȏ icon% �
�A   � 1:help$="To save, drag the icon to a directory display."
�-   � 2:help$="Type in the filename here."
�1   � 3:help$="Click SELECT to save the file."
�  �
�
�
 � stats%
�;  help$="This window shows information about the file."
�  Ȏ icon% �
�D   � 0,1:help$="This is the filename of the original HTML file."
�O   � 2,3:help$="This is the size (in Kilobytes) of the original HTML file."
�V   � 4,5:help$="This is the size (in Kilobytes) of the converted Impression file."
�\   � 6,7:help$="This is the time taken to convert the HTML file into Impression format."
  �
�
:
"b%!00 = 256
,b%!12 = b%!8
6b%!16 = &0503
@$(b%+20)= help$
J$ș "Wimp_SendMessage",17,b%,b%!4
T�
^
h
r� > WIMPheap
|5� provides a heap above the BASIC workspace which
�(� extends and contracts as necessary
�� by Ben Summers
�
���wimpheap_initialise
�
  � t%
�,  ș "OS_ReadMemMapInfo" � _wh_pagesize%
�#  _wh_heapsize% = _wh_pagesize%
�#  ș "Wimp_SlotSize",-1,-1 � t%
�  _wh_heaploc% = t% + &8000
�@  ș "Wimp_SlotSize",_wh_heaploc% + _wh_heapsize% - &8000,-1
�0  ș "OS_Heap",0,_wh_heaploc%,,_wh_heapsize%
��
�
 ݤwimpheap_claim(size%)
 
  � a%
 0  ș "XOS_Heap",2,_wh_heaploc%,,size% � ,,a%
 &  � a% <> 0 � =a%
 0-  � �_wimpheap_extendheap(size%) = � � =0
 :0  ș "XOS_Heap",2,_wh_heaploc%,,size% � ,,a%
 D  �_wimpheap_shrink
 N=a%
 X
 b&ݤwimpheap_extend(block%, change%)
 l  � n%,f%,t%
 v<  ș "XOS_Heap",4,_wh_heaploc%,block%,change% � ,,n% ;f%
 �  �(f% � 1) = 0 � =n%
 �0  ș "OS_Heap",6,_wh_heaploc%,block% � ,,,t%
 �2  � �_wimpheap_extendheap(t%+change%) = � � =0
 �<  ș "XOS_Heap",4,_wh_heaploc%,block%,change% � ,,n% ;f%
 �  �(f% � 1) = 0 � =n%
 �=0
 �
 �ݤwimpheap_free(block%)
 �(  ș "OS_Heap",3,_wh_heaploc%,block%
 �  �_wimpheap_shrink
 �=0
 �
 �!ݤ_wimpheap_extendheap(size%)
!
  � s%,f%
!4  s% = �_wimpheap_roundup(_wh_heapsize% + size%)
!<  ș "XWimp_SlotSize",_wh_heaploc% + s% - &8000,-1 � ;f%
!   �(f% � 1) = 1 � =�
!*5  ș "OS_Heap",5,_wh_heaploc%,,s% - _wh_heapsize%
!4  _wh_heapsize% = s%
!>=�
!H
!R��_wimpheap_shrink
!\
  � s%,t%
!f  s% = _wh_heapsize%
!p/  ș "XOS_Heap",5,_wh_heaploc%,,-s% � ,,,t%
!z  � t% = -s% � t% = s%
!�<  _wh_heapsize% = �_wimpheap_roundup(_wh_heapsize% - t%)
!�=  ș "XOS_Heap",5,_wh_heaploc%,,_wh_heapsize% - (s% - t%)
!�@  ș "Wimp_SlotSize",_wh_heaploc% + _wh_heapsize% - &8000,-1
!��
!�
!�ݤ_wimpheap_roundup(s%)
!�
  � t%
!�"  �(s% � _wh_pagesize%) <> 0 �
!�1    t% = _wh_pagesize% - (s% � _wh_pagesize%)
!�    s% += t%
!�  �
!�=s%
!�
"ݤwimpheap_largestfree
"
  � t%
"(  ș "OS_Heap",1,_wh_heaploc% � ,,t%
"$=t%
".
"8
�

00000000  0d 00 0a 0f f4 20 21 52  75 6e 49 6d 61 67 65 0d  |..... !RunImage.|
00000010  00 14 16 f4 20 42 79 20  50 68 69 6c 69 70 20 4d  |.... By Philip M|
00000020  65 6c 6c 6f 72 0d 00 1e  24 76 65 72 73 69 6f 6e  |ellor...$version|
00000030  24 3d 22 31 2e 30 36 20  28 33 31 73 74 20 4a 75  |$="1.06 (31st Ju|
00000040  6c 79 20 31 39 39 37 29  22 0d 00 28 05 3a 0d 00  |ly 1997)"..(.:..|
00000050  32 17 ee 20 85 20 ef 34  3a f6 3a f1 22 20 2d 20  |2.. . .4:.:." - |
00000060  22 3b 9e 3a e0 0d 00 3c  05 3a 0d 00 46 43 c8 99  |";.:...<.:..FC..|
00000070  20 22 57 69 6d 70 5f 49  6e 69 74 69 61 6c 69 73  | "Wimp_Initialis|
00000080  65 22 2c 32 30 30 2c 26  34 42 35 33 34 31 35 34  |e",200,&4B534154|
00000090  2c 22 48 54 4d 4c 20 3e  20 49 6d 70 72 65 73 73  |,"HTML > Impress|
000000a0  69 6f 6e 22 20 b8 20 2c  74 61 73 6b 25 0d 00 50  |ion" . ,task%..P|
000000b0  04 0d 00 5a 24 66 69 6c  65 25 3d 8e 28 22 3c 48  |...Z$file%=.("<H|
000000c0  54 4d 4c 32 49 6d 70 24  44 69 72 3e 2e 48 65 61  |TML2Imp$Dir>.Hea|
000000d0  64 65 72 22 29 0d 00 64  1d 73 74 61 72 74 5f 62  |der")..d.start_b|
000000e0  6c 6f 63 6b 5f 73 69 7a  65 25 3d a2 23 66 69 6c  |lock_size%=.#fil|
000000f0  65 25 0d 00 6e 0b d9 23  66 69 6c 65 25 0d 00 78  |e%..n..#file%..x|
00000100  24 de 20 73 74 61 72 74  5f 62 6c 6f 63 6b 25 20  |$. start_block% |
00000110  73 74 61 72 74 5f 62 6c  6f 63 6b 5f 73 69 7a 65  |start_block_size|
00000120  25 0d 00 82 33 ff 28 22  4c 4f 41 44 20 3c 48 54  |%...3.("LOAD <HT|
00000130  4d 4c 32 49 6d 70 24 44  69 72 3e 2e 48 65 61 64  |ML2Imp$Dir>.Head|
00000140  65 72 20 22 2b c3 7e 73  74 61 72 74 5f 62 6c 6f  |er "+.~start_blo|
00000150  63 6b 25 29 0d 00 8c 04  0d 00 96 27 f2 77 69 6d  |ck%).......'.wim|
00000160  70 68 65 61 70 5f 69 6e  69 74 69 61 6c 69 73 65  |pheap_initialise|
00000170  3a 68 65 61 70 5f 65 78  69 73 74 73 25 3d a3 0d  |:heap_exists%=..|
00000180  00 a0 09 f2 69 6e 69 74  0d 00 aa 12 f2 63 72 65  |....init.....cre|
00000190  61 74 65 69 63 6f 6e 62  61 72 0d 00 b4 05 3a 0d  |ateiconbar....:.|
000001a0  00 be 1b ee 20 85 20 e7  20 a4 65 72 72 6f 72 20  |.... . . .error |
000001b0  8c 20 f2 63 6c 6f 73 65  3a e0 0d 00 c8 05 3a 0d  |. .close:.....:.|
000001c0  00 d2 05 f5 0d 00 dc 09  f2 70 6f 6c 6c 0d 00 e6  |.........poll...|
000001d0  0b fd 20 71 75 69 74 25  0d 00 f0 0a f2 63 6c 6f  |.. quit%.....clo|
000001e0  73 65 0d 00 fa 05 e0 0d  01 04 05 3a 0d 01 0e 14  |se.........:....|
000001f0  dd 20 f2 63 72 65 61 74  65 69 63 6f 6e 62 61 72  |. .createiconbar|
00000200  0d 01 18 36 21 62 25 3d  2d 31 3a 62 25 21 34 3d  |...6!b%=-1:b%!4=|
00000210  30 3a 62 25 21 38 3d 30  3a 62 25 21 31 32 3d 36  |0:b%!8=0:b%!12=6|
00000220  38 3a 62 25 21 31 36 3d  37 38 3a 62 25 21 32 30  |8:b%!16=78:b%!20|
00000230  3d 26 33 30 30 32 0d 01  22 36 24 28 62 25 2b 32  |=&3002.."6$(b%+2|
00000240  34 29 3d 22 21 68 74 6d  6c 3e 69 6d 70 22 3a c8  |4)="!html>imp":.|
00000250  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
00000260  6f 6e 22 2c 2c 62 25 20  b8 20 69 25 0d 01 2c 05  |on",,b% . i%..,.|
00000270  e1 0d 01 36 05 3a 0d 01  40 0c dd 20 f2 63 6c 6f  |...6.:..@.. .clo|
00000280  73 65 0d 01 4a 41 e7 20  68 65 61 70 5f 65 78 69  |se..JA. heap_exi|
00000290  73 74 73 25 3d b9 20 72  65 6c 65 61 73 65 25 3d  |sts%=. release%=|
000002a0  a4 77 69 6d 70 68 65 61  70 5f 66 72 65 65 28 77  |.wimpheap_free(w|
000002b0  65 62 25 29 3a 68 65 61  70 5f 65 78 69 73 74 73  |eb%):heap_exists|
000002c0  25 3d a3 0d 01 54 27 c8  99 20 22 57 69 6d 70 5f  |%=...T'.. "Wimp_|
000002d0  43 6c 6f 73 65 44 6f 77  6e 22 2c 74 61 73 6b 25  |CloseDown",task%|
000002e0  2c 26 34 42 35 33 34 31  35 34 0d 01 5e 05 e1 0d  |,&4B534154..^...|
000002f0  01 68 05 3a 0d 01 72 0b  dd 20 f2 70 6f 6c 6c 0d  |.h.:..r.. .poll.|
00000300  01 7c 1b c8 99 20 22 57  69 6d 70 5f 50 6f 6c 6c  |.|... "Wimp_Poll|
00000310  22 2c 2c 62 25 20 b8 20  72 25 0d 01 86 0b c8 8e  |",,b% . r%......|
00000320  20 72 25 20 ca 0d 01 90  20 c9 20 32 3a c8 99 20  | r% .... . 2:.. |
00000330  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00000340  22 2c 2c 62 25 0d 01 9a  21 c9 20 33 3a c8 99 20  |",,b%...!. 3:.. |
00000350  22 57 69 6d 70 5f 43 6c  6f 73 65 57 69 6e 64 6f  |"Wimp_CloseWindo|
00000360  77 22 2c 2c 62 25 0d 01  a4 13 c9 20 36 3a f2 6d  |w",,b%..... 6:.m|
00000370  6f 75 73 65 63 6c 69 63  6b 0d 01 ae 10 c9 20 37  |ouseclick..... 7|
00000380  3a f2 64 72 61 67 65 6e  64 0d 01 b8 13 c9 20 38  |:.dragend..... 8|
00000390  3a f2 70 72 6f 63 65 73  73 6b 65 79 0d 01 c2 12  |:.processkey....|
000003a0  c9 20 39 3a f2 6d 65 6e  75 63 6c 69 63 6b 0d 01  |. 9:.menuclick..|
000003b0  cc 14 c9 20 31 37 2c 31  38 3a f2 72 65 63 69 65  |... 17,18:.recie|
000003c0  76 65 0d 01 d6 05 cb 0d  01 e0 05 e1 0d 01 ea 05  |ve..............|
000003d0  3a 0d 01 f4 0e dd 20 f2  72 65 63 69 65 76 65 0d  |:..... .recieve.|
000003e0  01 fe 0e c8 8e 20 62 25  21 31 36 20 ca 0d 02 08  |..... b%!16 ....|
000003f0  0f c9 20 30 3a 71 75 69  74 25 3d b9 0d 02 12 11  |.. 0:quit%=.....|
00000400  c9 20 31 3a f2 64 61 74  61 73 61 76 65 0d 02 1c  |. 1:.datasave...|
00000410  0d c9 20 32 3a f2 73 61  76 65 0d 02 26 0d c9 20  |.. 2:.save..&.. |
00000420  33 3a f2 6c 6f 61 64 0d  02 30 12 c9 20 26 35 30  |3:.load..0.. &50|
00000430  32 3a f2 68 65 6c 70 6d  65 0d 02 3a 1a c9 20 26  |2:.helpme..:.. &|
00000440  34 30 30 43 30 3a f2 6d  65 6e 75 5f 77 61 72 6e  |400C0:.menu_warn|
00000450  69 6e 67 0d 02 44 05 cb  0d 02 4e 05 e1 0d 02 58  |ing..D....N....X|
00000460  05 3a 0d 02 62 0e dd f2  64 61 74 61 73 61 76 65  |.:..b...datasave|
00000470  0d 02 6c 10 f2 74 65 72  6d 28 62 25 2b 34 34 29  |..l..term(b%+44)|
00000480  0d 02 76 12 6e 61 6d 65  24 3d 24 28 62 25 2b 34  |..v.name$=$(b%+4|
00000490  34 29 0d 02 80 1e 24 28  62 25 2b 34 34 29 3d 22  |4)....$(b%+44)="|
000004a0  3c 57 69 6d 70 24 53 63  72 61 70 3e 22 2b bd 30  |<Wimp$Scrap>"+.0|
000004b0  0d 02 8a 27 62 25 21 33  36 3d 2d 31 20 3a 20 f4  |...'b%!36=-1 : .|
000004c0  20 73 61 76 65 64 20 66  69 6c 65 20 69 73 20 22  | saved file is "|
000004d0  75 6e 73 61 66 65 22 0d  02 94 0c 62 25 21 30 3d  |unsafe"....b%!0=|
000004e0  32 35 36 0d 02 9e 0e 62  25 21 31 32 3d 62 25 21  |256....b%!12=b%!|
000004f0  38 0d 02 a8 0b 62 25 21  31 36 3d 32 0d 02 b2 24  |8....b%!16=2...$|
00000500  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
00000510  73 61 67 65 22 2c 31 37  2c 62 25 2c 62 25 21 34  |sage",17,b%,b%!4|
00000520  0d 02 bc 05 e1 0d 02 c6  05 3a 0d 02 d0 11 dd 20  |.........:..... |
00000530  f2 70 72 6f 63 65 73 73  6b 65 79 0d 02 da 0d 6b  |.processkey....k|
00000540  65 79 3d 62 25 21 32 34  0d 02 e4 0d 70 72 6f 63  |ey=b%!24....proc|
00000550  65 73 73 3d b9 0d 02 ee  0e e7 20 6b 65 79 3d 31  |ess=...... key=1|
00000560  33 20 8c 0d 02 f8 04 0d  03 02 2c 21 62 25 3d 73  |3 ........,!b%=s|
00000570  61 76 65 61 73 25 3a c8  99 20 22 57 69 6d 70 5f  |aveas%:.. "Wimp_|
00000580  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00000590  2c 62 25 0d 03 0c 1a e7  20 28 62 25 21 33 32 20  |,b%..... (b%!32 |
000005a0  80 20 31 3c 3c 31 36 29  3c 3e 30 20 8c 0d 03 16  |. 1<<16)<>0 ....|
000005b0  81 66 69 6c 65 24 3d a4  69 63 6f 6e 5f 73 74 72  |.file$=.icon_str|
000005c0  69 6e 67 28 73 61 76 65  61 73 25 2c 32 29 3a f2  |ing(saveas%,2):.|
000005d0  63 68 65 63 6b 5f 73 61  76 65 3a e7 20 73 61 76  |check_save:. sav|
000005e0  65 64 25 3d b9 20 f2 70  75 74 5f 73 61 76 65 5f  |ed%=. .put_save_|
000005f0  64 61 74 61 3a 70 72 6f  63 65 73 73 3d a3 3a f2  |data:process=.:.|
00000600  63 6c 6f 73 65 5f 77 69  6e 64 6f 77 28 73 61 76  |close_window(sav|
00000610  65 61 73 25 29 3a c8 99  20 22 57 69 6d 70 5f 43  |eas%):.. "Wimp_C|
00000620  72 65 61 74 65 4d 65 6e  75 22 2c 2c 2d 31 0d 03  |reateMenu",,-1..|
00000630  20 05 cd 0d 03 2a 04 0d  03 34 05 cd 0d 03 3e 26  | ....*...4....>&|
00000640  e7 20 70 72 6f 63 65 73  73 20 c8 99 20 22 57 69  |. process .. "Wi|
00000650  6d 70 5f 50 72 6f 63 65  73 73 4b 65 79 22 2c 6b  |mp_ProcessKey",k|
00000660  65 79 0d 03 48 05 e1 0d  03 52 05 3a 0d 03 5c 12  |ey..H....R.:..\.|
00000670  dd f2 6d 65 6e 75 5f 77  61 72 6e 69 6e 67 0d 03  |..menu_warning..|
00000680  66 15 73 75 62 6d 65 6e  75 5f 70 74 72 3d 62 25  |f.submenu_ptr=b%|
00000690  21 32 30 0d 03 70 0f 77  69 6e 5f 78 3d 62 25 21  |!20..p.win_x=b%!|
000006a0  32 34 0d 03 7a 0f 77 69  6e 5f 79 3d 62 25 21 32  |24..z.win_y=b%!2|
000006b0  38 0d 03 84 0e c8 8e 20  62 25 21 33 36 20 ca 0d  |8...... b%!36 ..|
000006c0  03 8e 14 c9 20 31 3a f4  20 49 6d 70 72 65 73 73  |.... 1:. Impress|
000006d0  69 6f 6e 0d 03 98 2c 20  20 f2 73 65 74 5f 69 63  |ion...,  .set_ic|
000006e0  6f 6e 5f 73 74 72 69 6e  67 28 73 61 76 65 61 73  |on_string(saveas|
000006f0  25 2c 31 2c 22 66 69 6c  65 5f 66 66 66 22 29 0d  |%,1,"file_fff").|
00000700  03 a2 2d 20 20 f2 73 65  74 5f 69 63 6f 6e 5f 73  |..-  .set_icon_s|
00000710  74 72 69 6e 67 28 73 61  76 65 61 73 25 2c 32 2c  |tring(saveas%,2,|
00000720  22 54 65 78 74 53 74 6f  72 79 22 29 0d 03 ac 15  |"TextStory")....|
00000730  20 20 73 61 76 65 5f 74  79 70 65 25 3d 26 46 46  |  save_type%=&FF|
00000740  46 0d 03 b6 0e c9 20 32  3a f4 20 48 54 4d 4c 0d  |F..... 2:. HTML.|
00000750  03 c0 2c 20 20 f2 73 65  74 5f 69 63 6f 6e 5f 73  |..,  .set_icon_s|
00000760  74 72 69 6e 67 28 73 61  76 65 61 73 25 2c 31 2c  |tring(saveas%,1,|
00000770  22 66 69 6c 65 5f 66 61  66 22 29 0d 03 ca 2c 20  |"file_faf")..., |
00000780  20 f2 73 65 74 5f 69 63  6f 6e 5f 73 74 72 69 6e  | .set_icon_strin|
00000790  67 28 73 61 76 65 61 73  25 2c 32 2c 22 48 54 4d  |g(saveas%,2,"HTM|
000007a0  4c 66 69 6c 65 22 29 0d  03 d4 15 20 20 73 61 76  |Lfile")....  sav|
000007b0  65 5f 74 79 70 65 25 3d  26 46 41 46 0d 03 de 05  |e_type%=&FAF....|
000007c0  cb 0d 03 e8 2e c8 99 20  22 57 69 6d 70 5f 43 72  |....... "Wimp_Cr|
000007d0  65 61 74 65 53 75 62 4d  65 6e 75 22 2c 2c 62 25  |eateSubMenu",,b%|
000007e0  21 32 30 2c 62 25 21 32  34 2c 62 25 21 32 38 0d  |!20,b%!24,b%!28.|
000007f0  03 f2 05 e1 0d 03 fc 05  3a 0d 04 06 21 dd 20 f2  |........:...!. .|
00000800  75 70 64 61 74 65 5f 69  63 6f 6e 28 77 69 6e 64  |update_icon(wind|
00000810  6f 77 25 2c 69 63 6f 6e  25 29 0d 04 10 10 62 25  |ow%,icon%)....b%|
00000820  21 30 3d 77 69 6e 64 6f  77 25 0d 04 1a 11 20 20  |!0=window%....  |
00000830  20 62 25 21 34 3d 69 63  6f 6e 25 0d 04 24 0d 20  | b%!4=icon%..$. |
00000840  20 20 62 25 21 38 3d 30  0d 04 2e 0e 20 20 20 62  |  b%!8=0....   b|
00000850  25 21 31 32 3d 30 0d 04  38 21 20 20 20 c8 99 20  |%!12=0..8!   .. |
00000860  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00000870  74 65 22 2c 2c 62 25 0d  04 42 05 e1 0d 04 4c 05  |te",,b%..B....L.|
00000880  3a 0d 04 56 2b dd f2 67  65 74 5f 6f 72 69 67 69  |:..V+..get_origi|
00000890  6e 28 68 61 6e 64 6c 65  25 2c f8 20 78 6f 72 69  |n(handle%,. xori|
000008a0  67 25 2c f8 20 79 6f 72  69 67 25 29 0d 04 60 08  |g%,. yorig%)..`.|
000008b0  ea 20 63 25 0d 04 6a 0d  63 25 3d 62 25 2b 38 30  |. c%..j.c%=b%+80|
000008c0  30 0d 04 74 0f 21 63 25  3d 68 61 6e 64 6c 65 25  |0..t.!c%=handle%|
000008d0  0d 04 7e 20 c8 99 20 22  57 69 6d 70 5f 47 65 74  |..~ .. "Wimp_Get|
000008e0  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 63 25  |WindowState",,c%|
000008f0  0d 04 88 15 78 6f 72 69  67 25 3d 63 25 21 34 2d  |....xorig%=c%!4-|
00000900  63 25 21 32 30 0d 04 92  16 79 6f 72 69 67 25 3d  |c%!20....yorig%=|
00000910  63 25 21 31 36 2d 63 25  21 32 34 0d 04 9c 05 e1  |c%!16-c%!24.....|
00000920  0d 04 a6 05 3a 0d 04 b0  11 dd 20 f2 6d 6f 75 73  |....:..... .mous|
00000930  65 63 6c 69 63 6b 0d 04  ba 11 77 69 6e 64 6f 77  |eclick....window|
00000940  25 3d 62 25 21 31 32 0d  04 c4 0f 69 63 6f 6e 25  |%=b%!12....icon%|
00000950  3d 62 25 21 31 36 0d 04  ce 10 62 75 74 74 6f 6e  |=b%!16....button|
00000960  25 3d 62 25 21 38 0d 04  d8 10 c8 8e 20 77 69 6e  |%=b%!8...... win|
00000970  64 6f 77 25 20 ca 0d 04  e2 04 0d 04 ec 09 20 c9  |dow% ......... .|
00000980  20 2d 32 0d 04 f6 12 20  20 c8 8e 20 62 75 74 74  | -2....  .. butt|
00000990  6f 6e 25 20 ca 0d 05 00  2e 20 20 20 c9 20 32 3a  |on% .....   . 2:|
000009a0  f2 73 68 6f 77 6d 65 6e  75 28 6d 61 69 6e 6d 65  |.showmenu(mainme|
000009b0  6e 75 25 2c 21 62 25 2d  36 34 2c 39 36 2b 33 2a  |nu%,!b%-64,96+3*|
000009c0  34 34 29 0d 05 0a 08 20  20 20 cb 0d 05 14 04 0d  |44)....   ......|
000009d0  05 1e 0e 20 c9 20 73 61  76 65 61 73 25 0d 05 28  |... . saveas%..(|
000009e0  10 20 20 c8 8e 20 69 63  6f 6e 25 20 ca 0d 05 32  |.  .. icon% ...2|
000009f0  35 20 20 20 c9 20 31 3a  e7 20 62 75 74 74 6f 6e  |5   . 1:. button|
00000a00  25 3d 31 36 20 84 20 62  75 74 74 6f 6e 25 3d 36  |%=16 . button%=6|
00000a10  34 20 f2 64 72 61 67 28  73 61 76 65 61 73 25 2c  |4 .drag(saveas%,|
00000a20  31 29 0d 05 3c 4e 20 20  20 c9 20 33 3a 66 69 6c  |1)..<N   . 3:fil|
00000a30  65 24 3d a4 69 63 6f 6e  5f 73 74 72 69 6e 67 28  |e$=.icon_string(|
00000a40  73 61 76 65 61 73 25 2c  32 29 3a f2 63 68 65 63  |saveas%,2):.chec|
00000a50  6b 5f 73 61 76 65 3a e7  20 73 61 76 65 64 25 3d  |k_save:. saved%=|
00000a60  b9 20 f2 70 75 74 5f 73  61 76 65 5f 64 61 74 61  |. .put_save_data|
00000a70  0d 05 46 4c 20 20 20 20  20 20 20 20 20 20 e7 20  |..FL          . |
00000a80  62 75 74 74 6f 6e 25 3c  3e 31 20 8c 20 f2 63 6c  |button%<>1 . .cl|
00000a90  6f 73 65 5f 77 69 6e 64  6f 77 28 73 61 76 65 61  |ose_window(savea|
00000aa0  73 25 29 3a c8 99 20 22  57 69 6d 70 5f 43 72 65  |s%):.. "Wimp_Cre|
00000ab0  61 74 65 4d 65 6e 75 22  2c 2c 2d 31 0d 05 50 07  |ateMenu",,-1..P.|
00000ac0  20 20 cb 0d 05 5a 04 0d  05 64 05 cb 0d 05 6e 05  |  ...Z...d....n.|
00000ad0  e1 0d 05 78 05 3a 0d 05  82 1f dd 20 f2 73 28 77  |...x.:..... .s(w|
00000ae0  68 25 2c 69 63 6f 6e 6e  75 6d 62 65 72 25 2c 74  |h%,iconnumber%,t|
00000af0  65 78 74 24 29 0d 05 8c  0e 21 74 65 6d 70 25 3d  |ext$)....!temp%=|
00000b00  77 68 25 0d 05 96 17 74  65 6d 70 25 21 34 3d 69  |wh%....temp%!4=i|
00000b10  63 6f 6e 6e 75 6d 62 65  72 25 0d 05 a0 21 c8 99  |connumber%...!..|
00000b20  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
00000b30  61 74 65 22 2c 2c 74 65  6d 70 25 0d 05 aa 20 24  |ate",,temp%... $|
00000b40  74 65 6d 70 25 21 32 38  3d c0 74 65 78 74 24 2c  |temp%!28=.text$,|
00000b50  74 65 6d 70 25 21 33 36  2d 31 29 0d 05 b4 0d 74  |temp%!36-1)....t|
00000b60  65 6d 70 25 21 38 3d 30  0d 05 be 0e 74 65 6d 70  |emp%!8=0....temp|
00000b70  25 21 31 32 3d 30 0d 05  c8 21 c8 99 20 22 57 69  |%!12=0...!.. "Wi|
00000b80  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00000b90  2c 2c 74 65 6d 70 25 0d  05 d2 05 e1 0d 05 dc 05  |,,temp%.........|
00000ba0  3a 0d 05 e6 0b dd 20 f2  69 6e 69 74 0d 05 f0 2d  |:..... .init...-|
00000bb0  de 20 62 25 20 35 30 30  30 2c 77 73 25 20 35 30  |. b% 5000,ws% 50|
00000bc0  30 30 2c 6d 65 6e 73 70  63 25 20 31 30 30 30 2c  |00,menspc% 1000,|
00000bd0  20 74 65 6d 70 25 20 33  32 0d 05 fa 13 77 73 65  | temp% 32....wse|
00000be0  6e 64 25 3d 77 73 25 2b  35 30 30 30 0d 06 04 0b  |nd%=ws%+5000....|
00000bf0  71 75 69 74 25 3d a3 0d  06 0e 13 f2 6c 6f 61 64  |quit%=......load|
00000c00  5f 74 65 6d 70 6c 61 74  65 73 0d 06 18 0e f2 6d  |_templates.....m|
00000c10  61 69 6e 5f 6d 65 6e 75  0d 06 22 0e f2 66 69 6c  |ain_menu.."..fil|
00000c20  65 5f 6d 65 6e 75 0d 06  2c 1e f2 61 74 74 61 63  |e_menu..,..attac|
00000c30  68 28 6d 61 69 6e 6d 65  6e 75 25 2c 30 2c 69 6e  |h(mainmenu%,0,in|
00000c40  66 6f 25 29 0d 06 36 22  f2 61 74 74 61 63 68 28  |fo%)..6".attach(|
00000c50  6d 61 69 6e 6d 65 6e 75  25 2c 31 2c 66 69 6c 65  |mainmenu%,1,file|
00000c60  6d 65 6e 75 25 29 0d 06  40 1f f2 61 74 74 61 63  |menu%)..@..attac|
00000c70  68 28 66 69 6c 65 6d 65  6e 75 25 2c 30 2c 73 74  |h(filemenu%,0,st|
00000c80  61 74 73 25 29 0d 06 4a  20 f2 61 74 74 61 63 68  |ats%)..J .attach|
00000c90  28 66 69 6c 65 6d 65 6e  75 25 2c 31 2c 73 61 76  |(filemenu%,1,sav|
00000ca0  65 61 73 25 29 0d 06 54  20 f2 61 74 74 61 63 68  |eas%)..T .attach|
00000cb0  28 66 69 6c 65 6d 65 6e  75 25 2c 32 2c 73 61 76  |(filemenu%,2,sav|
00000cc0  65 61 73 25 29 0d 06 5e  16 f2 67 72 65 79 28 6d  |eas%)..^..grey(m|
00000cd0  61 69 6e 6d 65 6e 75 25  2c 31 29 0d 06 68 26 f2  |ainmenu%,1)..h&.|
00000ce0  73 65 74 5f 69 63 6f 6e  5f 73 74 72 69 6e 67 28  |set_icon_string(|
00000cf0  69 6e 66 6f 25 2c 36 2c  76 65 72 73 69 6f 6e 24  |info%,6,version$|
00000d00  29 0d 06 72 05 e1 0d 06  7c 05 3a 0d 06 86 15 dd  |)..r....|.:.....|
00000d10  20 f2 6c 6f 61 64 5f 74  65 6d 70 6c 61 74 65 73  | .load_templates|
00000d20  0d 06 90 36 c8 99 20 22  57 69 6d 70 5f 4f 70 65  |...6.. "Wimp_Ope|
00000d30  6e 54 65 6d 70 6c 61 74  65 22 2c 2c 22 3c 48 54  |nTemplate",,"<HT|
00000d40  4d 4c 32 49 6d 70 24 44  69 72 3e 2e 54 65 6d 70  |ML2Imp$Dir>.Temp|
00000d50  6c 61 74 65 73 22 0d 06  9a 3d c8 99 20 22 57 69  |lates"...=.. "Wi|
00000d60  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000d70  2c 2c 62 25 2c 77 73 25  2c 77 73 65 6e 64 25 2c  |,,b%,ws%,wsend%,|
00000d80  2d 31 2c 22 69 6e 66 6f  22 2c 30 20 b8 20 2c 2c  |-1,"info",0 . ,,|
00000d90  77 73 25 0d 06 a4 26 c8  99 20 22 57 69 6d 70 5f  |ws%...&.. "Wimp_|
00000da0  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 62  |CreateWindow",,b|
00000db0  25 20 b8 20 69 6e 66 6f  25 0d 06 ae 3f c8 99 20  |% . info%...?.. |
00000dc0  22 57 69 6d 70 5f 4c 6f  61 64 54 65 6d 70 6c 61  |"Wimp_LoadTempla|
00000dd0  74 65 22 2c 2c 62 25 2c  77 73 25 2c 77 73 65 6e  |te",,b%,ws%,wsen|
00000de0  64 25 2c 2d 31 2c 22 73  61 76 65 61 73 22 2c 30  |d%,-1,"saveas",0|
00000df0  20 b8 20 2c 2c 77 73 25  0d 06 b8 28 c8 99 20 22  | . ,,ws%...(.. "|
00000e00  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
00000e10  77 22 2c 2c 62 25 20 b8  20 73 61 76 65 61 73 25  |w",,b% . saveas%|
00000e20  0d 06 c2 3e c8 99 20 22  57 69 6d 70 5f 4c 6f 61  |...>.. "Wimp_Loa|
00000e30  64 54 65 6d 70 6c 61 74  65 22 2c 2c 62 25 2c 77  |dTemplate",,b%,w|
00000e40  73 25 2c 77 73 65 6e 64  25 2c 2d 31 2c 22 73 74  |s%,wsend%,-1,"st|
00000e50  61 74 73 22 2c 30 20 b8  20 2c 2c 77 73 25 0d 06  |ats",0 . ,,ws%..|
00000e60  cc 27 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.'.. "Wimp_Creat|
00000e70  65 57 69 6e 64 6f 77 22  2c 2c 62 25 20 b8 20 73  |eWindow",,b% . s|
00000e80  74 61 74 73 25 0d 06 d6  1b c8 99 20 22 57 69 6d  |tats%...... "Wim|
00000e90  70 5f 43 6c 6f 73 65 54  65 6d 70 6c 61 74 65 22  |p_CloseTemplate"|
00000ea0  0d 06 e0 05 e1 0d 06 ea  05 3a 0d 06 f4 1f dd 20  |.........:..... |
00000eb0  f2 61 74 74 61 63 68 28  6d 65 6e 75 25 2c 69 74  |.attach(menu%,it|
00000ec0  65 6d 25 2c 73 75 62 25  29 0d 06 fe 1f 21 28 6d  |em%,sub%)....!(m|
00000ed0  65 6e 75 25 2b 32 38 2b  69 74 65 6d 25 2a 32 34  |enu%+28+item%*24|
00000ee0  2b 34 29 3d 73 75 62 25  0d 07 08 05 e1 0d 07 12  |+4)=sub%........|
00000ef0  05 3a 0d 07 1c 10 dd 20  f2 6d 61 69 6e 5f 6d 65  |.:..... .main_me|
00000f00  6e 75 0d 07 26 08 f7 20  2b 31 0d 07 30 23 dc 20  |nu..&.. +1..0#. |
00000f10  48 54 4d 4c 3e 49 6d 70  72 65 73 73 2c 49 6e 66  |HTML>Impress,Inf|
00000f20  6f 2c 46 69 6c 65 2c 51  75 69 74 2c 2a 0d 07 3a  |o,File,Quit,*..:|
00000f30  18 6d 61 69 6e 6d 65 6e  75 25 3d a4 6d 61 6b 65  |.mainmenu%=.make|
00000f40  5f 6d 65 6e 75 0d 07 44  05 e1 0d 07 4e 05 3a 0d  |_menu..D....N.:.|
00000f50  07 58 10 dd 20 f2 66 69  6c 65 5f 6d 65 6e 75 0d  |.X.. .file_menu.|
00000f60  07 62 08 f7 20 2b 31 0d  07 6c 36 dc 20 46 69 6c  |.b.. +1..l6. Fil|
00000f70  65 2c 41 62 6f 75 74 2c  53 61 76 65 20 49 6d 70  |e,About,Save Imp|
00000f80  72 65 73 73 69 6f 6e 5f  4d 2c 53 61 76 65 20 48  |ression_M,Save H|
00000f90  54 4d 4c 5f 4d 2c 43 6c  65 61 72 2c 2a 0d 07 76  |TML_M,Clear,*..v|
00000fa0  18 66 69 6c 65 6d 65 6e  75 25 3d a4 6d 61 6b 65  |.filemenu%=.make|
00000fb0  5f 6d 65 6e 75 0d 07 80  05 e1 0d 07 8a 05 3a 0d  |_menu.........:.|
00000fc0  07 94 10 dd 20 a4 6d 61  6b 65 5f 6d 65 6e 75 0d  |.... .make_menu.|
00000fd0  07 9e 12 73 74 61 72 74  25 3d 6d 65 6e 73 70 63  |...start%=menspc|
00000fe0  25 0d 07 a8 0c f3 20 74  69 74 6c 65 24 0d 07 b2  |%..... title$...|
00000ff0  14 24 28 73 74 61 72 74  25 29 3d 74 69 74 6c 65  |.$(start%)=title|
00001000  24 0d 07 bc 0f 73 74 61  72 74 25 3f 31 32 3d 37  |$....start%?12=7|
00001010  0d 07 c6 0f 73 74 61 72  74 25 3f 31 33 3d 32 0d  |....start%?13=2.|
00001020  07 d0 0f 73 74 61 72 74  25 3f 31 34 3d 37 0d 07  |...start%?14=7..|
00001030  da 0f 73 74 61 72 74 25  3f 31 35 3d 30 0d 07 e4  |..start%?15=0...|
00001040  10 73 74 61 72 74 25 21  32 30 3d 34 34 0d 07 ee  |.start%!20=44...|
00001050  0f 73 74 61 72 74 25 21  32 34 3d 30 0d 07 f8 13  |.start%!24=0....|
00001060  f4 20 73 74 61 72 74 25  21 31 36 3d 31 36 30 0d  |. start%!16=160.|
00001070  08 02 16 77 69 64 74 68  25 3d a9 28 74 69 74 6c  |...width%=.(titl|
00001080  65 24 29 2d 33 0d 08 0c  0f 6d 65 6e 73 70 63 25  |e$)-3....menspc%|
00001090  2b 3d 32 38 0d 08 16 05  f5 0d 08 20 0b f3 20 69  |+=28....... .. i|
000010a0  74 65 6d 24 0d 08 2a 12  e7 20 69 74 65 6d 24 3c  |tem$..*.. item$<|
000010b0  3e 22 2a 22 20 8c 0d 08  34 0e 21 6d 65 6e 73 70  |>"*" ...4.!mensp|
000010c0  63 25 3d 30 0d 08 3e 10  77 72 69 74 65 61 62 6c  |c%=0..>.writeabl|
000010d0  65 25 3d a3 0d 08 48 13  75 6c 25 3d a7 69 74 65  |e%=...H.ul%=.ite|
000010e0  6d 24 2c 22 5f 22 29 0d  08 52 0b e7 20 75 6c 25  |m$,"_")..R.. ul%|
000010f0  20 8c 0d 08 5c 1e 74 61  69 6c 24 3d c2 69 74 65  | ...\.tail$=.ite|
00001100  6d 24 2c a9 28 69 74 65  6d 24 29 2d 75 6c 25 29  |m$,.(item$)-ul%)|
00001110  0d 08 66 2e e7 20 a7 74  61 69 6c 24 2c 22 54 22  |..f.. .tail$,"T"|
00001120  29 20 21 6d 65 6e 73 70  63 25 3d 21 6d 65 6e 73  |) !menspc%=!mens|
00001130  70 63 25 20 84 20 31 3a  f4 20 74 69 63 6b 0d 08  |pc% . 1:. tick..|
00001140  70 35 e7 20 a7 74 61 69  6c 24 2c 22 44 22 29 20  |p5. .tail$,"D") |
00001150  21 6d 65 6e 73 70 63 25  3d 21 6d 65 6e 73 70 63  |!menspc%=!menspc|
00001160  25 20 84 20 32 3a f4 20  64 6f 74 74 65 64 20 6c  |% . 2:. dotted l|
00001170  69 6e 65 0d 08 7a 58 e7  20 a7 74 61 69 6c 24 2c  |ine..zX. .tail$,|
00001180  22 57 22 29 20 21 6d 65  6e 73 70 63 25 3d 21 6d  |"W") !menspc%=!m|
00001190  65 6e 73 70 63 25 20 84  20 34 3a 77 72 69 74 65  |enspc% . 4:write|
000011a0  61 62 6c 65 25 3d b9 3a  f3 20 62 75 66 66 65 72  |able%=.:. buffer|
000011b0  25 3a f3 20 62 75 66 6c  65 6e 25 3a f4 20 77 72  |%:. buflen%:. wr|
000011c0  69 74 61 62 6c 65 20 69  63 6f 6e 0d 08 84 3a e7  |itable icon...:.|
000011d0  20 a7 74 61 69 6c 24 2c  22 4d 22 29 20 21 6d 65  | .tail$,"M") !me|
000011e0  6e 73 70 63 25 3d 21 6d  65 6e 73 70 63 25 20 84  |nspc%=!menspc% .|
000011f0  20 38 3a f4 20 67 65 6e  65 72 61 74 65 20 6d 65  | 8:. generate me|
00001200  73 73 61 67 65 0d 08 8e  17 69 74 65 6d 24 3d c0  |ssage....item$=.|
00001210  69 74 65 6d 24 2c 75 6c  25 2d 31 29 0d 08 98 05  |item$,ul%-1)....|
00001220  cd 0d 08 a2 23 e7 20 a9  20 69 74 65 6d 24 3e 77  |....#. . item$>w|
00001230  69 64 74 68 25 20 77 69  64 74 68 25 3d a9 20 69  |idth% width%=. i|
00001240  74 65 6d 24 0d 08 ac 10  6d 65 6e 73 70 63 25 21  |tem$....menspc%!|
00001250  34 3d 2d 31 0d 08 b6 12  e7 20 77 72 69 74 65 61  |4=-1..... writea|
00001260  62 6c 65 25 20 8c 0d 08  c0 5a 6d 65 6e 73 70 63  |ble% ....Zmenspc|
00001270  25 21 38 3d 26 30 37 30  30 46 31 32 31 3a 6d 65  |%!8=&0700F121:me|
00001280  6e 73 70 63 25 21 31 32  3d 62 75 66 66 65 72 25  |nspc%!12=buffer%|
00001290  3a 6d 65 6e 73 70 63 25  21 31 36 3d 2d 31 3a 6d  |:menspc%!16=-1:m|
000012a0  65 6e 73 70 63 25 21 32  30 3d 62 75 66 6c 65 6e  |enspc%!20=buflen|
000012b0  25 3a 24 62 75 66 66 65  72 25 3d 69 74 65 6d 24  |%:$buffer%=item$|
000012c0  0d 08 ca 05 cc 0d 08 d4  12 e7 20 a9 20 69 74 65  |.......... . ite|
000012d0  6d 24 3c 31 32 20 8c 0d  08 de 2b 6d 65 6e 73 70  |m$<12 ....+mensp|
000012e0  63 25 21 38 3d 26 30 37  30 30 30 30 32 31 3a 24  |c%!8=&07000021:$|
000012f0  28 6d 65 6e 73 70 63 25  2b 31 32 29 3d 69 74 65  |(menspc%+12)=ite|
00001300  6d 24 0d 08 e8 05 cc 0d  08 f2 49 6d 65 6e 73 70  |m$........Imensp|
00001310  63 25 21 38 3d 26 30 37  30 30 30 31 32 31 3a 6d  |c%!8=&07000121:m|
00001320  65 6e 73 70 63 25 21 31  32 3d 77 73 25 3a 6d 65  |enspc%!12=ws%:me|
00001330  6e 73 70 63 25 21 31 36  3d 2d 31 3a 6d 65 6e 73  |nspc%!16=-1:mens|
00001340  70 63 25 21 32 30 3d a9  20 69 74 65 6d 24 2b 31  |pc%!20=. item$+1|
00001350  0d 08 fc 1d 24 77 73 25  3d 69 74 65 6d 24 3a 77  |....$ws%=item$:w|
00001360  73 25 2b 3d a9 20 69 74  65 6d 24 2b 31 0d 09 06  |s%+=. item$+1...|
00001370  05 cd 0d 09 10 05 cd 0d  09 1a 0f 6d 65 6e 73 70  |...........mensp|
00001380  63 25 2b 3d 32 34 0d 09  24 05 cd 0d 09 2e 0f fd  |c%+=24..$.......|
00001390  20 69 74 65 6d 24 3d 22  2a 22 0d 09 38 1a 73 74  | item$="*"..8.st|
000013a0  61 72 74 25 21 31 36 3d  77 69 64 74 68 25 2a 31  |art%!16=width%*1|
000013b0  36 2b 33 32 0d 09 42 25  21 28 6d 65 6e 73 70 63  |6+32..B%!(menspc|
000013c0  25 2d 32 34 29 3d 21 28  6d 65 6e 73 70 63 25 2d  |%-24)=!(menspc%-|
000013d0  32 34 29 20 84 20 26 38  30 0d 09 4c 11 6d 70 74  |24) . &80..L.mpt|
000013e0  72 25 3d 6d 65 6e 73 70  63 25 0d 09 56 0b 3d 73  |r%=menspc%..V.=s|
000013f0  74 61 72 74 25 0d 09 60  05 3a 0d 09 6a 1c dd 20  |tart%..`.:..j.. |
00001400  f2 73 68 6f 77 6d 65 6e  75 28 6d 65 6e 75 25 2c  |.showmenu(menu%,|
00001410  78 25 2c 79 25 29 0d 09  74 24 74 6f 70 6d 65 6e  |x%,y%)..t$topmen|
00001420  75 25 3d 6d 65 6e 75 25  3a 74 6f 70 78 25 3d 78  |u%=menu%:topx%=x|
00001430  25 3a 74 6f 70 79 25 3d  79 25 0d 09 7e 25 c8 99  |%:topy%=y%..~%..|
00001440  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
00001450  75 22 2c 2c 6d 65 6e 75  25 2c 78 25 2c 79 25 0d  |u",,menu%,x%,y%.|
00001460  09 88 05 e1 0d 09 92 05  3a 0d 09 9c 19 dd f2 75  |........:......u|
00001470  6e 67 72 65 79 28 6d 65  6e 75 25 2c 69 74 65 6d  |ngrey(menu%,item|
00001480  25 29 0d 09 a6 3f 6d 65  6e 75 25 21 28 32 38 2b  |%)...?menu%!(28+|
00001490  69 74 65 6d 25 2a 32 34  2b 38 29 3d 28 6d 65 6e  |item%*24+8)=(men|
000014a0  75 25 21 28 32 38 2b 69  74 65 6d 25 2a 32 34 2b  |u%!(28+item%*24+|
000014b0  38 29 29 20 80 20 28 ac  20 28 31 3c 3c 32 32 29  |8)) . (. (1<<22)|
000014c0  29 0d 09 b0 05 e1 0d 09  ba 05 3a 0d 09 c4 17 dd  |).........:.....|
000014d0  f2 67 72 65 79 28 6d 65  6e 75 25 2c 69 74 65 6d  |.grey(menu%,item|
000014e0  25 29 0d 09 ce 3b 6d 65  6e 75 25 21 28 32 38 2b  |%)...;menu%!(28+|
000014f0  69 74 65 6d 25 2a 32 34  2b 38 29 3d 28 6d 65 6e  |item%*24+8)=(men|
00001500  75 25 21 28 32 38 2b 69  74 65 6d 25 2a 32 34 2b  |u%!(28+item%*24+|
00001510  38 29 29 20 84 20 28 31  3c 3c 32 32 29 0d 09 d8  |8)) . (1<<22)...|
00001520  05 e1 0d 09 e2 05 3a 0d  09 ec 10 dd 20 f2 6d 65  |......:..... .me|
00001530  6e 75 63 6c 69 63 6b 0d  09 f6 08 ea 20 63 25 0d  |nuclick..... c%.|
00001540  0a 00 0d 63 25 3d 62 25  2b 39 30 30 0d 0a 0a 20  |...c%=b%+900... |
00001550  c8 99 20 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |.. "Wimp_GetPoin|
00001560  74 65 72 49 6e 66 6f 22  2c 2c 63 25 0d 0a 14 13  |terInfo",,c%....|
00001570  61 64 6a 25 3d 28 63 25  21 38 20 80 20 31 29 0d  |adj%=(c%!8 . 1).|
00001580  0a 1e 28 c8 99 20 22 57  69 6d 70 5f 44 65 63 6f  |..(.. "Wimp_Deco|
00001590  64 65 4d 65 6e 75 22 2c  2c 74 6f 70 6d 65 6e 75  |deMenu",,topmenu|
000015a0  25 2c 62 25 2c 63 25 0d  0a 28 0c c8 8e 20 24 63  |%,b%,c%..(... $c|
000015b0  25 20 ca 0d 0a 32 15 20  c9 20 22 51 75 69 74 22  |% ...2. . "Quit"|
000015c0  3a 71 75 69 74 25 3d b9  0d 0a 3c 13 20 c9 20 22  |:quit%=...<. . "|
000015d0  46 69 6c 65 2e 43 6c 65  61 72 22 0d 0a 46 44 20  |File.Clear"..FD |
000015e0  20 20 e7 20 68 65 61 70  5f 65 78 69 73 74 73 25  |  . heap_exists%|
000015f0  3d b9 20 72 65 6c 65 61  73 65 25 3d a4 77 69 6d  |=. release%=.wim|
00001600  70 68 65 61 70 5f 66 72  65 65 28 77 65 62 25 29  |pheap_free(web%)|
00001610  3a 68 65 61 70 5f 65 78  69 73 74 73 25 3d a3 0d  |:heap_exists%=..|
00001620  0a 50 19 20 20 20 f2 67  72 65 79 28 6d 61 69 6e  |.P.   .grey(main|
00001630  6d 65 6e 75 25 2c 31 29  0d 0a 5a 05 cb 0d 0a 64  |menu%,1)..Z....d|
00001640  2a e7 20 61 64 6a 25 20  f2 73 68 6f 77 6d 65 6e  |*. adj% .showmen|
00001650  75 28 74 6f 70 6d 65 6e  75 25 2c 74 6f 70 78 25  |u(topmenu%,topx%|
00001660  2c 74 6f 70 79 25 29 0d  0a 6e 05 e1 0d 0a 78 05  |,topy%)..n....x.|
00001670  3a 0d 0a 82 20 dd 20 a4  69 63 6f 6e 5f 73 74 61  |:... . .icon_sta|
00001680  74 65 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |te(window%,icon%|
00001690  29 0d 0a 8c 08 ea 20 63  25 0d 0a 96 0d 63 25 3d  |)..... c%....c%=|
000016a0  62 25 2b 39 30 30 0d 0a  a0 0f 21 63 25 3d 77 69  |b%+900....!c%=wi|
000016b0  6e 64 6f 77 25 0d 0a aa  0e 63 25 21 34 3d 69 63  |ndow%....c%!4=ic|
000016c0  6f 6e 25 0d 0a b4 1e c8  99 20 22 57 69 6d 70 5f  |on%...... "Wimp_|
000016d0  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 63  |GetIconState",,c|
000016e0  25 0d 0a be 1b 3d 28 28  63 25 21 32 34 29 20 80  |%....=((c%!24) .|
000016f0  20 28 31 3c 3c 32 31 29  29 3c 3e 30 0d 0a c8 05  | (1<<21))<>0....|
00001700  3a 0d 0a d2 21 dd 20 a4  73 74 72 69 6e 67 5f 61  |:...!. .string_a|
00001710  64 64 72 28 77 69 6e 64  6f 77 25 2c 69 63 6f 6e  |ddr(window%,icon|
00001720  25 29 0d 0a dc 08 ea 20  63 25 0d 0a e6 0b de 20  |%)..... c%..... |
00001730  63 25 20 36 34 0d 0a f0  0f 21 63 25 3d 77 69 6e  |c% 64....!c%=win|
00001740  64 6f 77 25 0d 0a fa 0e  63 25 21 34 3d 69 63 6f  |dow%....c%!4=ico|
00001750  6e 25 0d 0b 04 1e c8 99  20 22 57 69 6d 70 5f 47  |n%...... "Wimp_G|
00001760  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 63 25  |etIconState",,c%|
00001770  0d 0b 0e 0a 3d 63 25 21  32 38 0d 0b 18 05 3a 0d  |....=c%!28....:.|
00001780  0b 22 21 dd 20 a4 69 63  6f 6e 5f 73 74 72 69 6e  |."!. .icon_strin|
00001790  67 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 29  |g(window%,icon%)|
000017a0  0d 0b 2c 26 f2 74 65 72  6d 28 a4 73 74 72 69 6e  |..,&.term(.strin|
000017b0  67 5f 61 64 64 72 28 77  69 6e 64 6f 77 25 2c 69  |g_addr(window%,i|
000017c0  63 6f 6e 25 29 29 0d 0b  36 21 3d 24 a4 73 74 72  |con%))..6!=$.str|
000017d0  69 6e 67 5f 61 64 64 72  28 77 69 6e 64 6f 77 25  |ing_addr(window%|
000017e0  2c 69 63 6f 6e 25 29 0d  0b 40 05 e1 0d 0b 4a 05  |,icon%)..@....J.|
000017f0  3a 0d 0b 54 28 dd 20 f2  73 65 74 5f 69 63 6f 6e  |:..T(. .set_icon|
00001800  5f 73 74 72 69 6e 67 28  77 69 6e 64 6f 77 25 2c  |_string(window%,|
00001810  69 63 6f 6e 25 2c 61 24  29 0d 0b 5e 23 24 a4 73  |icon%,a$)..^#$.s|
00001820  74 72 69 6e 67 5f 61 64  64 72 28 77 69 6e 64 6f  |tring_addr(windo|
00001830  77 25 2c 69 63 6f 6e 25  29 3d 61 24 0d 0b 68 05  |w%,icon%)=a$..h.|
00001840  e1 0d 0b 72 05 3a 0d 0b  7c 0f dd 20 f2 74 65 72  |...r.:..|.. .ter|
00001850  6d 28 61 25 29 0d 0b 86  08 ea 20 6e 25 0d 0b 90  |m(a%)..... n%...|
00001860  0f c8 95 20 61 25 3f 6e  25 3e 33 31 0d 0b 9a 09  |... a%?n%>31....|
00001870  6e 25 2b 3d 31 0d 0b a4  05 ce 0d 0b ae 0c 61 25  |n%+=1.........a%|
00001880  3f 6e 25 3d 31 33 0d 0b  b8 05 e1 0d 0b c2 05 3a  |?n%=13.........:|
00001890  0d 0b cc 17 dd f2 6f 70  65 6e 5f 77 69 6e 64 6f  |......open_windo|
000018a0  77 28 77 69 6e 25 29 0d  0b d6 0c 21 62 25 3d 77  |w(win%)....!b%=w|
000018b0  69 6e 25 0d 0b e0 20 c8  99 20 22 57 69 6d 70 5f  |in%... .. "Wimp_|
000018c0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
000018d0  2c 62 25 0d 0b ea 0c 62  25 21 32 38 3d 2d 31 0d  |,b%....b%!28=-1.|
000018e0  0b f4 1c c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |..... "Wimp_Open|
000018f0  57 69 6e 64 6f 77 22 2c  2c 62 25 0d 0b fe 05 e1  |Window",,b%.....|
00001900  0d 0c 08 05 3a 0d 0c 12  18 dd f2 63 6c 6f 73 65  |....:......close|
00001910  5f 77 69 6e 64 6f 77 28  77 69 6e 25 29 0d 0c 1c  |_window(win%)...|
00001920  0c 21 62 25 3d 77 69 6e  25 0d 0c 26 3a c8 99 20  |.!b%=win%..&:.. |
00001930  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00001940  74 61 74 65 22 2c 2c 62  25 3a c8 99 20 22 57 69  |tate",,b%:.. "Wi|
00001950  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
00001960  2c 62 25 0d 0c 30 05 e1  0d 0c 3a 05 3a 0d 0c 44  |,b%..0....:.:..D|
00001970  0c dd 20 a4 65 72 72 6f  72 0d 0c 4e 09 21 62 25  |.. .error..N.!b%|
00001980  3d 9f 0d 0c 58 0c c8 8e  20 21 62 25 20 ca 0d 0c  |=...X... !b% ...|
00001990  62 22 c9 20 31 3c 3c 33  30 3a 65 72 72 5f 73 74  |b". 1<<30:err_st|
000019a0  72 24 3d 22 22 3a 62 6f  78 25 3d 25 31 30 30 31  |r$="":box%=%1001|
000019b0  0d 0c 6c 28 7f 3a 65 72  72 5f 73 74 72 24 3d 22  |..l(.:err_str$="|
000019c0  20 61 74 20 6c 69 6e 65  20 22 2b c3 9e 3a 62 6f  | at line "+..:bo|
000019d0  78 25 3d 25 31 30 30 31  0d 0c 76 05 cb 0d 0c 80  |x%=%1001..v.....|
000019e0  1a 24 28 62 25 2b 34 29  3d f6 24 2b 65 72 72 5f  |.$(b%+4)=.$+err_|
000019f0  73 74 72 24 2b bd 30 0d  0c 8a 42 c8 99 20 22 57  |str$+.0...B.. "W|
00001a00  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
00001a10  2c 62 25 2c 62 6f 78 25  2c 22 48 54 4d 4c 20 3e  |,b%,box%,"HTML >|
00001a20  20 49 6d 70 72 65 73 73  69 6f 6e 22 20 b8 20 2c  | Impression" . ,|
00001a30  72 65 73 70 6f 6e 73 65  25 0d 0c 94 12 3d 28 72  |response%....=(r|
00001a40  65 73 70 6f 6e 73 65 25  3d 32 29 0d 0c 9e 05 3a  |esponse%=2)....:|
00001a50  0d 0c a8 15 dd f2 67 65  74 5f 73 63 72 65 65 6e  |......get_screen|
00001a60  5f 73 69 7a 65 0d 0c b2  2b c8 99 22 4f 53 5f 52  |_size...+.."OS_R|
00001a70  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
00001a80  2c 2d 31 2c 34 20 b8 20  2c 2c 58 66 61 63 74 25  |,-1,4 . ,,Xfact%|
00001a90  0d 0c bc 2b c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |...+.."OS_ReadMo|
00001aa0  64 65 56 61 72 69 61 62  6c 65 22 2c 2d 31 2c 35  |deVariable",-1,5|
00001ab0  20 b8 20 2c 2c 59 66 61  63 74 25 0d 0c c6 2b c8  | . ,,Yfact%...+.|
00001ac0  99 22 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  |."OS_ReadModeVar|
00001ad0  69 61 62 6c 65 22 2c 2d  31 2c 31 31 20 b8 20 2c  |iable",-1,11 . ,|
00001ae0  2c 58 4c 69 6d 25 0d 0c  d0 2b c8 99 22 4f 53 5f  |,XLim%...+.."OS_|
00001af0  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00001b00  22 2c 2d 31 2c 31 32 20  b8 20 2c 2c 59 4c 69 6d  |",-1,12 . ,,YLim|
00001b10  25 0d 0c da 14 58 32 3d  58 4c 69 6d 25 3c 3c 58  |%....X2=XLim%<<X|
00001b20  66 61 63 74 25 0d 0c e4  14 59 32 3d 59 4c 69 6d  |fact%....Y2=YLim|
00001b30  25 3c 3c 59 66 61 63 74  25 0d 0c ee 05 e1 0d 0c  |%<<Yfact%.......|
00001b40  f8 05 3a 0d 0d 02 19 dd  f2 64 72 61 67 28 77 69  |..:......drag(wi|
00001b50  6e 64 6f 77 25 2c 69 63  6f 6e 25 29 0d 0d 0c 08  |ndow%,icon%)....|
00001b60  ea 20 63 25 0d 0d 16 0d  63 25 3d 62 25 2b 39 30  |. c%....c%=b%+90|
00001b70  30 0d 0d 20 26 f2 67 65  74 5f 6f 72 69 67 69 6e  |0.. &.get_origin|
00001b80  28 77 69 6e 64 6f 77 25  2c 78 6f 72 69 67 25 2c  |(window%,xorig%,|
00001b90  79 6f 72 69 67 25 29 0d  0d 2a 1a 21 63 25 3d 77  |yorig%)..*.!c%=w|
00001ba0  69 6e 64 6f 77 25 3a 63  25 21 34 3d 69 63 6f 6e  |indow%:c%!4=icon|
00001bb0  25 0d 0d 34 1e c8 99 20  22 57 69 6d 70 5f 47 65  |%..4... "Wimp_Ge|
00001bc0  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 63 25 0d  |tIconState",,c%.|
00001bd0  0d 3e 28 78 6d 69 6e 25  3d 78 6f 72 69 67 25 2b  |.>(xmin%=xorig%+|
00001be0  63 25 21 38 3a 79 6d 69  6e 25 3d 79 6f 72 69 67  |c%!8:ymin%=yorig|
00001bf0  25 2b 63 25 21 31 32 0d  0d 48 29 78 6d 61 78 25  |%+c%!12..H)xmax%|
00001c00  3d 78 6f 72 69 67 25 2b  63 25 21 31 36 3a 79 6d  |=xorig%+c%!16:ym|
00001c10  61 78 25 3d 79 6f 72 69  67 25 2b 63 25 21 32 30  |ax%=yorig%+c%!20|
00001c20  0d 0d 52 18 21 63 25 3d  78 6d 69 6e 25 3a 63 25  |..R.!c%=xmin%:c%|
00001c30  21 34 3d 79 6d 69 6e 25  0d 0d 5c 1a 63 25 21 38  |!4=ymin%..\.c%!8|
00001c40  3d 78 6d 61 78 25 3a 63  25 21 31 32 3d 79 6d 61  |=xmax%:c%!12=yma|
00001c50  78 25 0d 0d 66 20 73 70  72 24 3d a4 69 63 6f 6e  |x%..f spr$=.icon|
00001c60  5f 73 74 72 69 6e 67 28  73 61 76 65 61 73 25 2c  |_string(saveas%,|
00001c70  31 29 0d 0d 70 2e c8 99  20 22 44 72 61 67 41 53  |1)..p... "DragAS|
00001c80  70 72 69 74 65 5f 53 74  61 72 74 22 2c 25 31 30  |prite_Start",%10|
00001c90  30 30 30 31 30 31 2c 31  2c 73 70 72 24 2c 63 25  |000101,1,spr$,c%|
00001ca0  0d 0d 7a 05 e1 0d 0d 84  05 3a 0d 0d 8e 0d dd f2  |..z......:......|
00001cb0  64 72 61 67 65 6e 64 0d  0d 98 1e 61 24 3d a4 69  |dragend....a$=.i|
00001cc0  63 6f 6e 5f 73 74 72 69  6e 67 28 73 61 76 65 61  |con_string(savea|
00001cd0  73 25 2c 32 29 0d 0d a2  20 c8 99 20 22 57 69 6d  |s%,2)... .. "Wim|
00001ce0  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
00001cf0  22 2c 2c 62 25 0d 0d ac  0f 62 25 21 32 30 3d 62  |",,b%....b%!20=b|
00001d00  25 21 31 32 0d 0d b6 0f  62 25 21 32 34 3d 62 25  |%!12....b%!24=b%|
00001d10  21 31 36 0d 0d c0 0e 62  25 21 32 38 3d 62 25 21  |!16....b%!28=b%!|
00001d20  30 0d 0d ca 0e 62 25 21  33 32 3d 62 25 21 34 0d  |0....b%!32=b%!4.|
00001d30  0d d4 1e 62 25 21 33 36  3d 28 66 69 6c 65 70 6f  |...b%!36=(filepo|
00001d40  73 25 2d 72 65 61 64 73  69 7a 65 25 29 0d 0d de  |s%-readsize%)...|
00001d50  14 62 25 21 34 30 3d 73  61 76 65 5f 74 79 70 65  |.b%!40=save_type|
00001d60  25 0d 0d e8 12 c8 95 20  a7 61 24 2c 22 2e 22 29  |%...... .a$,".")|
00001d70  3c 3e 30 0d 0d f2 0f 6e  25 3d a7 61 24 2c 22 2e  |<>0....n%=.a$,".|
00001d80  22 29 0d 0d fc 10 61 24  3d c1 61 24 2c 6e 25 2b  |")....a$=.a$,n%+|
00001d90  31 29 0d 0e 06 05 ce 0d  0e 10 0f 24 28 62 25 2b  |1).........$(b%+|
00001da0  34 34 29 3d 61 24 0d 0e  1a 1a 21 62 25 3d 34 34  |44)=a$....!b%=44|
00001db0  2b 28 28 a9 61 24 2b 31  29 20 81 20 34 29 2a 34  |+((.a$+1) . 4)*4|
00001dc0  0d 0e 24 1d e7 20 28 28  a9 61 24 2b 31 29 20 83  |..$.. ((.a$+1) .|
00001dd0  20 34 29 3c 3e 30 20 21  62 25 2b 3d 34 0d 0e 2e  | 4)<>0 !b%+=4...|
00001de0  0b 62 25 21 31 32 3d 30  0d 0e 38 0b 62 25 21 31  |.b%!12=0..8.b%!1|
00001df0  36 3d 31 0d 0e 42 2b c8  99 20 22 57 69 6d 70 5f  |6=1..B+.. "Wimp_|
00001e00  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 38 2c  |SendMessage",18,|
00001e10  62 25 2c 62 25 21 32 30  2c 62 25 21 32 34 0d 0e  |b%,b%!20,b%!24..|
00001e20  4c 05 e1 0d 0e 56 05 3a  0d 0e 60 0a dd f2 73 61  |L....V.:..`...sa|
00001e30  76 65 0d 0e 6a 10 f2 74  65 72 6d 28 62 25 2b 34  |ve..j..term(b%+4|
00001e40  34 29 0d 0e 74 12 66 69  6c 65 24 3d 24 28 62 25  |4)..t.file$=$(b%|
00001e50  2b 34 34 29 0d 0e 7e 25  f2 73 65 74 5f 69 63 6f  |+44)..~%.set_ico|
00001e60  6e 5f 73 74 72 69 6e 67  28 73 61 76 65 61 73 25  |n_string(saveas%|
00001e70  2c 32 2c 66 69 6c 65 24  29 0d 0e 88 12 f2 70 75  |,2,file$).....pu|
00001e80  74 5f 73 61 76 65 5f 64  61 74 61 0d 0e 92 0e 62  |t_save_data....b|
00001e90  25 21 31 32 3d 62 25 21  38 0d 0e 9c 0b 62 25 21  |%!12=b%!8....b%!|
00001ea0  31 36 3d 33 0d 0e a6 0b  21 62 25 3d 32 35 36 0d  |16=3....!b%=256.|
00001eb0  0e b0 2b c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |..+.. "Wimp_Send|
00001ec0  4d 65 73 73 61 67 65 22  2c 31 38 2c 62 25 2c 62  |Message",18,b%,b|
00001ed0  25 21 32 30 2c 62 25 21  32 34 0d 0e ba 04 0d 0e  |%!20,b%!24......|
00001ee0  c4 25 f2 73 65 74 5f 69  63 6f 6e 5f 73 74 72 69  |.%.set_icon_stri|
00001ef0  6e 67 28 73 61 76 65 61  73 25 2c 32 2c 66 69 6c  |ng(saveas%,2,fil|
00001f00  65 24 29 0d 0e ce 1c c8  99 20 22 57 69 6d 70 5f  |e$)...... "Wimp_|
00001f10  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 2d 31 0d  |CreateMenu",,-1.|
00001f20  0e d8 05 e1 0d 0e e2 05  3a 0d 0e ec 10 dd f2 63  |........:......c|
00001f30  68 65 63 6b 5f 73 61 76  65 0d 0e f6 26 e7 20 a7  |heck_save...&. .|
00001f40  66 69 6c 65 24 2c 22 3a  3a 22 29 3d 30 20 84 20  |file$,"::")=0 . |
00001f50  a7 66 69 6c 65 24 2c 22  2e 22 29 3d 30 20 8c 0d  |.file$,".")=0 ..|
00001f60  0f 00 0b 20 21 62 25 3d  25 31 0d 0f 0a 40 20 24  |... !b%=%1...@ $|
00001f70  28 62 25 2b 34 29 3d 22  54 6f 20 73 61 76 65 2c  |(b%+4)="To save,|
00001f80  20 64 72 61 67 20 74 68  65 20 69 63 6f 6e 20 74  | drag the icon t|
00001f90  6f 20 61 20 64 69 72 65  63 74 6f 72 79 20 64 69  |o a directory di|
00001fa0  73 70 6c 61 79 2e 22 2b  bd 30 0d 0f 14 10 20 62  |splay."+.0.... b|
00001fb0  6f 78 25 3d 25 31 31 30  30 31 0d 0f 1e 4e 20 c8  |ox%=%11001...N .|
00001fc0  99 20 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |. "Wimp_ReportEr|
00001fd0  72 6f 72 22 2c 62 25 2c  62 6f 78 25 2c 22 45 72  |ror",b%,box%,"Er|
00001fe0  72 6f 72 20 66 72 6f 6d  20 48 54 4d 4c 20 3e 20  |ror from HTML > |
00001ff0  49 6d 70 72 65 73 73 69  6f 6e 22 20 b8 20 2c 72  |Impression" . ,r|
00002000  65 73 70 6f 6e 73 65 25  0d 0f 28 0d 20 73 61 76  |esponse%..(. sav|
00002010  65 64 25 3d a3 0d 0f 32  05 cc 0d 0f 3c 0d 20 73  |ed%=...2....<. s|
00002020  61 76 65 64 25 3d b9 0d  0f 46 05 cd 0d 0f 50 05  |aved%=...F....P.|
00002030  e1 0d 0f 5a 05 3a 0d 0f  64 13 dd f2 70 75 74 5f  |...Z.:..d...put_|
00002040  73 61 76 65 5f 64 61 74  61 0d 0f 6e 21 66 69 6c  |save_data..n!fil|
00002050  65 24 3d a4 69 63 6f 6e  5f 73 74 72 69 6e 67 28  |e$=.icon_string(|
00002060  73 61 76 65 61 73 25 2c  32 29 0d 0f 78 13 c8 8e  |saveas%,2)..x...|
00002070  20 73 61 76 65 5f 74 79  70 65 25 20 ca 0d 0f 82  | save_type% ....|
00002080  18 c9 20 26 46 46 46 3a  f2 73 61 76 65 5f 61 73  |.. &FFF:.save_as|
00002090  5f 74 65 78 74 0d 0f 8c  18 c9 20 26 46 41 46 3a  |_text..... &FAF:|
000020a0  f2 73 61 76 65 5f 61 73  5f 68 74 6d 6c 0d 0f 96  |.save_as_html...|
000020b0  05 cb 0d 0f a0 05 e1 0d  0f aa 05 3a 0d 0f b4 12  |...........:....|
000020c0  dd f2 73 61 76 65 5f 61  73 5f 74 65 78 74 0d 0f  |..save_as_text..|
000020d0  be 48 ff 28 22 53 61 76  65 20 22 2b 66 69 6c 65  |.H.("Save "+file|
000020e0  24 2b 22 20 22 2b c3 7e  28 77 65 62 25 2b 72 65  |$+" "+.~(web%+re|
000020f0  61 64 73 69 7a 65 25 29  2b 22 20 2b 20 22 2b c3  |adsize%)+" + "+.|
00002100  7e 28 66 69 6c 65 70 6f  73 25 2d 72 65 61 64 73  |~(filepos%-reads|
00002110  69 7a 65 25 29 29 0d 0f  c8 1e ff 28 22 53 65 74  |ize%)).....("Set|
00002120  54 79 70 65 20 22 2b 66  69 6c 65 24 2b 22 20 66  |Type "+file$+" f|
00002130  66 66 22 29 0d 0f d2 43  f4 53 59 53 20 22 4f 53  |ff")...C.SYS "OS|
00002140  5f 42 79 74 65 22 2c 31  30 2c 66 69 6c 65 24 2c  |_Byte",10,file$,|
00002150  26 46 46 46 2c 2c 77 65  62 25 2b 72 65 61 64 73  |&FFF,,web%+reads|
00002160  69 7a 65 25 2c 66 69 6c  65 70 6f 73 25 2d 72 65  |ize%,filepos%-re|
00002170  61 64 73 69 7a 65 25 0d  0f dc 0c 73 61 76 65 64  |adsize%....saved|
00002180  25 3d b9 0d 0f e6 05 e1  0d 0f f0 05 3a 0d 0f fa  |%=..........:...|
00002190  12 dd f2 73 61 76 65 5f  61 73 5f 68 74 6d 6c 0d  |...save_as_html.|
000021a0  10 04 35 ff 28 22 53 61  76 65 20 22 2b 66 69 6c  |..5.("Save "+fil|
000021b0  65 24 2b 22 20 22 2b c3  7e 28 77 65 62 25 29 2b  |e$+" "+.~(web%)+|
000021c0  22 20 2b 20 22 2b c3 7e  28 72 65 61 64 73 69 7a  |" + "+.~(readsiz|
000021d0  65 25 29 29 0d 10 0e 1e  ff 28 22 53 65 74 54 79  |e%)).....("SetTy|
000021e0  70 65 20 22 2b 66 69 6c  65 24 2b 22 20 66 61 66  |pe "+file$+" faf|
000021f0  22 29 0d 10 18 0c 73 61  76 65 64 25 3d b9 0d 10  |")....saved%=...|
00002200  22 05 e1 0d 10 2c 05 3a  0d 10 36 0d dd f2 63 6f  |"....,.:..6...co|
00002210  6e 76 65 72 74 0d 10 40  04 0d 10 4a 15 c8 99 20  |nvert..@...J... |
00002220  22 48 6f 75 72 67 6c 61  73 73 5f 4f 6e 22 0d 10  |"Hourglass_On"..|
00002230  54 1c 70 72 65 3d a3 3a  63 68 61 72 24 3d bd 30  |T.pre=.:char$=.0|
00002240  3a 69 6e 64 65 6e 74 25  3d 30 0d 10 5e 0d 64 74  |:indent%=0..^.dt|
00002250  5f 74 61 67 25 3d a3 0d  10 68 0b 6c 69 6e 6b 25  |_tag%=...h.link%|
00002260  3d a3 0d 10 72 18 6f 6c  64 66 69 6c 65 70 6f 73  |=...r.oldfilepos|
00002270  25 3d 66 69 6c 65 70 6f  73 25 0d 10 7c 04 0d 10  |%=filepos%..|...|
00002280  86 05 f5 0d 10 90 1f 66  69 6c 65 70 6f 73 25 2b  |.......filepos%+|
00002290  3d 73 74 61 72 74 5f 62  6c 6f 63 6b 5f 73 69 7a  |=start_block_siz|
000022a0  65 25 0d 10 9a 11 62 69  67 5f 65 6e 6f 75 67 68  |e%....big_enough|
000022b0  25 3d b9 0d 10 a4 63 e7  20 66 69 6c 65 70 6f 73  |%=....c. filepos|
000022c0  25 3e 3d 77 65 62 73 69  7a 65 25 20 65 78 74 65  |%>=websize% exte|
000022d0  6e 64 25 3d a4 77 69 6d  70 68 65 61 70 5f 65 78  |nd%=.wimpheap_ex|
000022e0  74 65 6e 64 28 77 65 62  25 2c 65 78 5f 63 68 75  |tend(web%,ex_chu|
000022f0  6e 6b 25 29 3a 77 65 62  73 69 7a 65 25 2b 3d 65  |nk%):websize%+=e|
00002300  78 5f 63 68 75 6e 6b 25  3a 62 69 67 5f 65 6e 6f  |x_chunk%:big_eno|
00002310  75 67 68 25 3d a3 0d 10  ae 18 66 69 6c 65 70 6f  |ugh%=.....filepo|
00002320  73 25 3d 6f 6c 64 66 69  6c 65 70 6f 73 25 0d 10  |s%=oldfilepos%..|
00002330  b8 11 fd 20 62 69 67 5f  65 6e 6f 75 67 68 25 0d  |... big_enough%.|
00002340  10 c2 04 0d 10 cc 24 e3  20 66 6c 69 62 62 6c 65  |......$. flibble|
00002350  25 3d 30 20 b8 20 73 74  61 72 74 5f 62 6c 6f 63  |%=0 . start_bloc|
00002360  6b 5f 73 69 7a 65 25 0d  10 d6 27 77 65 62 25 3f  |k_size%...'web%?|
00002370  66 69 6c 65 70 6f 73 25  3d 73 74 61 72 74 5f 62  |filepos%=start_b|
00002380  6c 6f 63 6b 25 3f 66 6c  69 62 62 6c 65 25 0d 10  |lock%?flibble%..|
00002390  e0 0f 66 69 6c 65 70 6f  73 25 2b 3d 31 0d 10 ea  |..filepos%+=1...|
000023a0  05 ed 0d 10 f4 0f 66 69  6c 65 70 6f 73 25 2d 3d  |......filepos%-=|
000023b0  31 0d 10 fe 04 0d 11 08  0d 70 65 72 63 65 6e 74  |1........percent|
000023c0  3d 30 0d 11 12 1a e3 20  62 79 74 65 3d 30 20 b8  |=0..... byte=0 .|
000023d0  20 72 65 61 64 73 69 7a  65 25 2d 31 0d 11 1c 51  | readsize%-1...Q|
000023e0  e7 20 62 79 74 65 3e 70  65 72 63 65 6e 74 20 70  |. byte>percent p|
000023f0  65 72 63 65 6e 74 2b 3d  32 35 36 3a c8 99 20 22  |ercent+=256:.. "|
00002400  48 6f 75 72 67 6c 61 73  73 5f 50 65 72 63 65 6e  |Hourglass_Percen|
00002410  74 61 67 65 22 2c a8 28  28 62 79 74 65 2f 72 65  |tage",.((byte/re|
00002420  61 64 73 69 7a 65 25 29  2a 31 30 30 29 0d 11 26  |adsize%)*100)..&|
00002430  0f 6c 61 73 74 24 3d 63  68 61 72 24 0d 11 30 16  |.last$=char$..0.|
00002440  63 68 61 72 24 3d bd 28  77 65 62 25 3f 62 79 74  |char$=.(web%?byt|
00002450  65 29 0d 11 3a 0e c8 8e  20 63 68 61 72 24 20 ca  |e)..:... char$ .|
00002460  0d 11 44 04 0d 11 4e 1c  c9 20 22 3c 22 3a f4 20  |..D...N.. "<":. |
00002470  2a 2a 2a 20 4f 50 45 4e  20 54 41 47 20 2a 2a 2a  |*** OPEN TAG ***|
00002480  0d 11 58 40 20 20 74 61  67 24 3d a4 73 65 63 74  |..X@  tag$=.sect|
00002490  69 6f 6e 28 22 3c 22 2c  22 20 22 2c 22 3e 22 2c  |ion("<"," ",">",|
000024a0  22 3e 22 29 3a f2 63 68  65 63 6b 5f 74 61 67 28  |">"):.check_tag(|
000024b0  a4 63 61 70 69 74 61 6c  73 28 74 61 67 24 29 29  |.capitals(tag$))|
000024c0  0d 11 62 04 0d 11 6c 1f  c9 20 bd 31 30 2c bd 31  |..b...l.. .10,.1|
000024d0  33 3a f4 20 2a 2a 2a 20  4e 45 57 4c 49 4e 45 20  |3:. *** NEWLINE |
000024e0  2a 2a 2a 0d 11 76 1b 20  20 e7 20 70 72 65 3d b9  |***..v.  . pre=.|
000024f0  20 20 f2 66 69 6c 65 28  63 68 61 72 24 29 0d 11  |  .file(char$)..|
00002500  80 27 20 20 e7 20 70 72  65 3d a3 20 8c 20 e7 20  |.'  . pre=. . . |
00002510  6c 61 73 74 24 3c 3e 22  20 22 20 f2 66 69 6c 65  |last$<>" " .file|
00002520  28 22 20 22 29 0d 11 8a  04 0d 11 94 1a c9 20 22  |(" ")......... "|
00002530  26 22 3a f4 20 2a 2a 2a  20 53 59 4d 42 4f 4c 20  |&":. *** SYMBOL |
00002540  2a 2a 2a 0d 11 9e 27 20  20 73 79 6d 62 6f 6c 24  |***...'  symbol$|
00002550  3d a4 73 65 63 74 69 6f  6e 28 22 26 22 2c 22 20  |=.section("&"," |
00002560  22 2c 22 3b 22 2c 22 20  22 29 0d 11 a8 39 20 20  |",";"," ")...9  |
00002570  e7 20 73 79 6d 62 6f 6c  24 3d 22 22 20 8c 20 f2  |. symbol$="" . .|
00002580  66 69 6c 65 28 22 26 20  22 29 20 8b 20 f2 63 68  |file("& ") . .ch|
00002590  65 63 6b 5f 73 79 6d 62  6f 6c 28 73 79 6d 62 6f  |eck_symbol(symbo|
000025a0  6c 24 29 0d 11 b2 04 0d  11 bc 2b c9 20 22 20 22  |l$).......+. " "|
000025b0  3a e7 20 6c 61 73 74 24  3c 3e 22 20 22 20 84 20  |:. last$<>" " . |
000025c0  70 72 65 3d b9 20 f2 66  69 6c 65 28 63 68 61 72  |pre=. .file(char|
000025d0  24 29 0d 11 c6 04 0d 11  d0 19 c9 20 22 7b 22 3a  |$)......... "{":|
000025e0  f2 66 69 6c 65 28 22 7b  5c 31 32 33 7d 22 29 0d  |.file("{\123}").|
000025f0  11 da 04 0d 11 e4 05 7f  0d 11 ee 04 0d 11 f8 10  |................|
00002600  f2 66 69 6c 65 28 63 68  61 72 24 29 0d 12 02 04  |.file(char$)....|
00002610  0d 12 0c 05 cb 0d 12 16  05 ed 0d 12 20 04 0d 12  |............ ...|
00002620  2a 18 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |*... "Hourglass_|
00002630  53 6d 61 73 68 22 0d 12  34 05 e1 0d 12 3e 05 3a  |Smash"..4....>.:|
00002640  0d 12 48 28 dd 20 a4 73  65 63 74 69 6f 6e 28 73  |..H(. .section(s|
00002650  74 61 72 74 24 2c 65 6e  64 31 24 2c 65 6e 64 32  |tart$,end1$,end2|
00002660  24 2c 65 6e 64 33 24 29  0d 12 52 17 e7 20 62 79  |$,end3$)..R.. by|
00002670  74 65 3c 77 65 62 73 69  7a 65 25 2d 31 20 8c 0d  |te<websize%-1 ..|
00002680  12 5c 21 73 65 63 74 69  6f 6e 24 3d 22 22 3a 73  |.\!section$="":s|
00002690  74 6f 70 25 3d a3 3a 61  66 74 65 72 24 3d 22 22  |top%=.:after$=""|
000026a0  0d 12 66 05 f5 0d 12 70  0c 20 62 79 74 65 2b 3d  |..f....p. byte+=|
000026b0  31 0d 12 7a 10 20 6c 61  73 74 24 3d 63 68 61 72  |1..z. last$=char|
000026c0  24 0d 12 84 17 20 63 68  61 72 24 3d bd 28 77 65  |$.... char$=.(we|
000026d0  62 25 3f 62 79 74 65 29  0d 12 8e 1a 20 e7 20 63  |b%?byte).... . c|
000026e0  68 61 72 24 3d 65 6e 64  31 24 20 73 74 6f 70 25  |har$=end1$ stop%|
000026f0  3d b9 0d 12 98 34 20 e7  20 63 68 61 72 24 3c 3e  |=....4 . char$<>|
00002700  73 74 61 72 74 24 20 80  20 63 68 61 72 24 3c 3e  |start$ . char$<>|
00002710  65 6e 64 32 24 20 80 20  63 68 61 72 24 3c 3e 65  |end2$ . char$<>e|
00002720  6e 64 33 24 20 8c 0d 12  a2 20 20 20 20 e7 20 73  |nd3$ ....    . s|
00002730  74 6f 70 25 3d a3 20 73  65 63 74 69 6f 6e 24 2b  |top%=. section$+|
00002740  3d 63 68 61 72 24 0d 12  ac 1e 20 20 20 e7 20 73  |=char$....   . s|
00002750  74 6f 70 25 3d b9 20 61  66 74 65 72 24 2b 3d 63  |top%=. after$+=c|
00002760  68 61 72 24 0d 12 b6 06  20 cd 0d 12 c0 2f fd 20  |har$.... ..../. |
00002770  62 79 74 65 3e 77 65 62  73 69 7a 65 25 20 84 20  |byte>websize% . |
00002780  63 68 61 72 24 3d 65 6e  64 32 24 20 84 20 63 68  |char$=end2$ . ch|
00002790  61 72 24 3d 65 6e 64 33  24 0d 12 ca 05 cd 0d 12  |ar$=end3$.......|
000027a0  d4 0d 3d 73 65 63 74 69  6f 6e 24 0d 12 de 05 3a  |..=section$....:|
000027b0  0d 12 e8 15 dd f2 63 68  65 63 6b 5f 74 61 67 28  |......check_tag(|
000027c0  74 61 67 24 29 0d 12 f2  0d c8 8e 20 74 61 67 24  |tag$)...... tag$|
000027d0  20 ca 0d 12 fc 18 20 c9  20 22 62 72 22 20 3a 20  | ..... . "br" : |
000027e0  f2 66 69 6c 65 28 bd 31  30 29 0d 13 06 48 20 c9  |.file(.10)...H .|
000027f0  20 22 68 31 22 2c 22 68  32 22 2c 22 68 33 22 2c  | "h1","h2","h3",|
00002800  22 68 34 22 2c 22 68 35  22 2c 22 68 36 22 2c 22  |"h4","h5","h6","|
00002810  62 6c 6f 63 6b 71 75 6f  74 65 22 20 3a 20 f2 66  |blockquote" : .f|
00002820  69 6c 65 28 bd 31 30 29  3a f2 6f 6e 28 74 61 67  |ile(.10):.on(tag|
00002830  24 29 0d 13 10 37 20 c9  20 22 2f 68 31 22 2c 22  |$)...7 . "/h1","|
00002840  2f 68 32 22 2c 22 2f 68  33 22 2c 22 2f 68 34 22  |/h2","/h3","/h4"|
00002850  2c 22 2f 68 35 22 2c 22  2f 68 36 22 20 3a 20 f2  |,"/h5","/h6" : .|
00002860  6f 66 66 28 74 61 67 24  29 0d 13 1a 2c 20 c9 20  |off(tag$)..., . |
00002870  22 2f 62 6c 6f 63 6b 71  75 6f 74 65 22 20 3a 20  |"/blockquote" : |
00002880  f2 66 69 6c 65 28 bd 31  30 29 3a f2 6f 66 66 28  |.file(.10):.off(|
00002890  74 61 67 24 29 0d 13 24  4a 20 c9 20 22 61 22 20  |tag$)..$J . "a" |
000028a0  3a 20 e7 20 a7 a4 63 61  70 69 74 61 6c 73 28 61  |: . ..capitals(a|
000028b0  66 74 65 72 24 29 2c 22  6e 61 6d 65 3d 22 29 3d  |fter$),"name=")=|
000028c0  30 20 f2 6f 6e 28 22 6c  69 6e 6b 22 29 3a 6c 69  |0 .on("link"):li|
000028d0  6e 6b 25 3d b9 20 8b 20  6c 69 6e 6b 25 3d a3 0d  |nk%=. . link%=..|
000028e0  13 2e 2d 20 c9 20 22 2f  61 22 20 3a 20 e7 20 6c  |..- . "/a" : . l|
000028f0  69 6e 6b 25 3d b9 20 f2  6f 66 66 28 22 2f 6c 69  |ink%=. .off("/li|
00002900  6e 6b 22 29 3a 6c 69 6e  6b 25 3d a3 0d 13 38 3f  |nk"):link%=...8?|
00002910  20 c9 20 22 70 22 20 3a  20 e7 20 ac 20 70 72 65  | . "p" : . . pre|
00002920  20 f2 6f 6e 28 22 6e 65  77 70 61 72 61 22 29 3a  | .on("newpara"):|
00002930  f2 66 69 6c 65 28 bd 31  30 29 3a f2 6f 66 66 28  |.file(.10):.off(|
00002940  22 2f 6e 65 77 70 61 72  61 22 29 0d 13 42 26 20  |"/newpara")..B& |
00002950  c9 20 22 75 6c 22 2c 22  6f 6c 22 3a 69 6e 64 65  |. "ul","ol":inde|
00002960  6e 74 25 2b 3d 31 3a f2  66 69 6c 65 28 bd 31 30  |nt%+=1:.file(.10|
00002970  29 0d 13 4c 28 20 c9 20  22 2f 75 6c 22 2c 22 2f  |)..L( . "/ul","/|
00002980  6f 6c 22 3a 69 6e 64 65  6e 74 25 2d 3d 31 3a f2  |ol":indent%-=1:.|
00002990  66 69 6c 65 28 bd 31 30  29 0d 13 56 29 20 c9 20  |file(.10)..V) . |
000029a0  22 6c 69 22 20 3a f2 66  69 6c 65 28 bd 31 30 2b  |"li" :.file(.10+|
000029b0  c4 69 6e 64 65 6e 74 25  2c bd 39 29 2b 22 8f 20  |.indent%,.9)+". |
000029c0  22 29 0d 13 60 2b 20 c9  20 22 70 72 65 22 2c 22  |")..`+ . "pre","|
000029d0  6c 69 73 74 69 6e 67 22  20 3a 20 70 72 65 3d b9  |listing" : pre=.|
000029e0  20 3a 20 f2 6f 6e 28 22  70 72 65 22 29 0d 13 6a  | : .on("pre")..j|
000029f0  2f 20 c9 20 22 2f 70 72  65 22 2c 22 2f 6c 69 73  |/ . "/pre","/lis|
00002a00  74 69 6e 67 22 20 3a 20  70 72 65 3d a3 20 3a 20  |ting" : pre=. : |
00002a10  f2 6f 66 66 28 22 2f 70  72 65 22 29 0d 13 74 33  |.off("/pre")..t3|
00002a20  20 c9 20 22 73 61 6d 70  22 2c 22 61 64 64 72 65  | . "samp","addre|
00002a30  73 73 22 2c 22 63 6f 64  65 22 2c 22 6b 62 64 22  |ss","code","kbd"|
00002a40  2c 22 74 74 22 3a f2 6f  6e 28 74 61 67 24 29 0d  |,"tt":.on(tag$).|
00002a50  13 7e 39 20 c9 20 22 2f  73 61 6d 70 22 2c 22 2f  |.~9 . "/samp","/|
00002a60  61 64 64 72 65 73 73 22  2c 22 2f 63 6f 64 65 22  |address","/code"|
00002a70  2c 22 2f 6b 62 64 22 2c  22 2f 74 74 22 3a f2 6f  |,"/kbd","/tt":.o|
00002a80  66 66 28 74 61 67 24 29  0d 13 88 2c 20 c9 20 22  |ff(tag$)..., . "|
00002a90  62 22 2c 22 73 74 72 6f  6e 67 22 2c 22 76 61 72  |b","strong","var|
00002aa0  22 3a f2 66 69 6c 65 28  22 7b 62 6f 6c 64 20 6f  |":.file("{bold o|
00002ab0  6e 7d 22 29 0d 13 92 2c  20 c9 20 22 2f 62 22 2c  |n}")..., . "/b",|
00002ac0  22 2f 73 74 72 6f 6e 67  22 2c 22 2f 76 61 72 22  |"/strong","/var"|
00002ad0  3a f2 66 69 6c 65 28 22  7b 62 6f 6c 64 7d 22 29  |:.file("{bold}")|
00002ae0  0d 13 9c 21 20 c9 20 22  75 22 3a f2 66 69 6c 65  |...! . "u":.file|
00002af0  28 22 7b 75 6e 64 65 72  6c 69 6e 65 20 31 7d 22  |("{underline 1}"|
00002b00  29 0d 13 a6 20 20 c9 20  22 2f 75 22 3a f2 66 69  |)...  . "/u":.fi|
00002b10  6c 65 28 22 7b 75 6e 64  65 72 6c 69 6e 65 7d 22  |le("{underline}"|
00002b20  29 0d 13 b0 39 20 c9 20  22 69 22 2c 22 71 75 6f  |)...9 . "i","quo|
00002b30  74 65 22 2c 22 65 6d 22  2c 22 63 69 74 65 22 2c  |te","em","cite",|
00002b40  22 64 66 6e 22 3a f2 66  69 6c 65 28 22 7b 69 74  |"dfn":.file("{it|
00002b50  61 6c 69 63 20 6f 6e 7d  22 29 0d 13 ba 3b 20 c9  |alic on}")...; .|
00002b60  20 22 2f 69 22 2c 22 2f  71 75 6f 74 65 22 2c 22  | "/i","/quote","|
00002b70  2f 65 6d 22 2c 22 2f 63  69 74 65 22 2c 22 2f 64  |/em","/cite","/d|
00002b80  66 6e 22 3a f2 66 69 6c  65 28 22 7b 69 74 61 6c  |fn":.file("{ital|
00002b90  69 63 7d 22 29 0d 13 c4  39 20 c9 20 22 68 72 22  |ic}")...9 . "hr"|
00002ba0  20 3a 20 f2 66 69 6c 65  28 bd 31 30 29 3a f2 6f  | : .file(.10):.o|
00002bb0  6e 28 74 61 67 24 29 3a  f2 66 69 6c 65 28 bd 31  |n(tag$):.file(.1|
00002bc0  30 29 3a f2 6f 66 66 28  22 2f 68 72 22 29 0d 13  |0):.off("/hr")..|
00002bd0  ce 32 20 c9 20 22 63 65  6e 74 65 72 22 2c 22 63  |.2 . "center","c|
00002be0  65 6e 74 72 65 22 3a f2  66 69 6c 65 28 22 7b 6a  |entre":.file("{j|
00002bf0  75 73 74 69 66 79 20 63  65 6e 74 72 65 7d 22 29  |ustify centre}")|
00002c00  0d 13 d8 2d 20 c9 20 22  2f 63 65 6e 74 65 72 22  |...- . "/center"|
00002c10  2c 22 2f 63 65 6e 74 72  65 22 3a f2 66 69 6c 65  |,"/centre":.file|
00002c20  28 22 7b 6a 75 73 74 69  66 79 7d 22 29 0d 13 e2  |("{justify}")...|
00002c30  3d 20 c9 20 22 74 69 74  6c 65 22 3a f2 66 69 6c  |= . "title":.fil|
00002c40  65 28 bd 31 30 29 3a f2  6f 6e 28 74 61 67 24 29  |e(.10):.on(tag$)|
00002c50  3a f2 66 69 6c 65 28 22  7b 6a 75 73 74 69 66 79  |:.file("{justify|
00002c60  20 63 65 6e 74 72 65 7d  22 29 0d 13 ec 38 20 c9  | centre}")...8 .|
00002c70  20 22 2f 74 69 74 6c 65  22 3a f2 66 69 6c 65 28  | "/title":.file(|
00002c80  22 7b 6a 75 73 74 69 66  79 7d 22 29 3a f2 6f 66  |"{justify}"):.of|
00002c90  66 28 74 61 67 24 29 3a  f2 66 69 6c 65 28 bd 31  |f(tag$):.file(.1|
00002ca0  30 29 0d 13 f6 4c 20 c9  20 22 64 64 22 3a e7 20  |0)...L . "dd":. |
00002cb0  64 74 5f 74 61 67 25 3d  a3 20 8c 20 f2 66 69 6c  |dt_tag%=. . .fil|
00002cc0  65 28 22 7b 62 6f 6c 64  20 6f 66 66 7d 22 29 3a  |e("{bold off}"):|
00002cd0  f2 66 69 6c 65 28 bd 31  30 29 3a f2 6f 6e 28 22  |.file(.10):.on("|
00002ce0  64 74 22 29 3a 64 74 5f  74 61 67 25 3d b9 0d 14  |dt"):dt_tag%=...|
00002cf0  00 3b 20 c9 20 22 2f 64  6c 22 3a e7 20 64 74 5f  |.; . "/dl":. dt_|
00002d00  74 61 67 25 3d b9 20 8c  20 f2 6f 66 66 28 22 2f  |tag%=. . .off("/|
00002d10  64 74 22 29 3a 64 74 5f  74 61 67 25 3d a3 3a f2  |dt"):dt_tag%=.:.|
00002d20  66 69 6c 65 28 bd 31 30  29 0d 14 0a 51 20 c9 20  |file(.10)...Q . |
00002d30  22 64 74 22 3a f2 66 69  6c 65 28 bd 31 30 2b 22  |"dt":.file(.10+"|
00002d40  7b 62 6f 6c 64 20 6f 6e  7d 22 29 3a e7 20 64 74  |{bold on}"):. dt|
00002d50  5f 74 61 67 25 3d b9 20  8c 20 f2 6f 66 66 28 22  |_tag%=. . .off("|
00002d60  2f 64 74 22 29 3a 64 74  5f 74 61 67 25 3d a3 3a  |/dt"):dt_tag%=.:|
00002d70  f2 66 69 6c 65 28 bd 31  30 29 0d 14 14 20 20 c9  |.file(.10)...  .|
00002d80  20 22 69 6d 67 22 3a f2  69 6d 61 67 65 5f 64 61  | "img":.image_da|
00002d90  74 61 28 61 66 74 65 72  24 29 0d 14 1e 20 20 c9  |ta(after$)...  .|
00002da0  20 22 66 6f 6e 74 22 3a  f2 66 6f 6e 74 5f 64 61  | "font":.font_da|
00002db0  74 61 28 61 66 74 65 72  24 29 0d 14 28 22 20 c9  |ta(after$)..(" .|
00002dc0  20 22 2f 66 6f 6e 74 22  3a f2 66 69 6c 65 28 22  | "/font":.file("|
00002dd0  7b 66 6f 6e 74 73 69 7a  65 7d 22 29 0d 14 32 24  |{fontsize}")..2$|
00002de0  20 c9 20 22 73 75 70 22  3a f2 66 69 6c 65 28 22  | . "sup":.file("|
00002df0  7b 73 63 72 69 70 74 20  73 75 70 65 72 7d 22 29  |{script super}")|
00002e00  0d 14 3c 22 20 c9 20 22  73 75 62 22 3a f2 66 69  |..<" . "sub":.fi|
00002e10  6c 65 28 22 7b 73 63 72  69 70 74 20 73 75 62 7d  |le("{script sub}|
00002e20  22 29 0d 14 46 26 20 c9  20 22 2f 73 75 70 22 2c  |")..F& . "/sup",|
00002e30  22 2f 73 75 62 22 3a f2  66 69 6c 65 28 22 7b 73  |"/sub":.file("{s|
00002e40  63 72 69 70 74 7d 22 29  0d 14 50 05 cb 0d 14 5a  |cript}")..P....Z|
00002e50  05 e1 0d 14 64 05 3a 0d  14 6e 15 dd f2 66 6f 6e  |....d.:..n...fon|
00002e60  74 5f 64 61 74 61 28 65  6e 76 24 29 0d 14 78 21  |t_data(env$)..x!|
00002e70  e7 20 a7 a4 63 61 70 69  74 61 6c 73 28 65 6e 76  |. ..capitals(env|
00002e80  24 29 2c 22 73 69 7a 65  3d 22 29 20 8c 0d 14 82  |$),"size=") ....|
00002e90  04 0d 14 8c 0c 66 6f 6e  74 24 3d 22 22 0d 14 96  |.....font$=""...|
00002ea0  24 66 6f 6e 74 3d a7 a4  63 61 70 69 74 61 6c 73  |$font=..capitals|
00002eb0  28 65 6e 76 24 29 2c 22  73 69 7a 65 3d 22 29 2b  |(env$),"size=")+|
00002ec0  34 0d 14 a0 14 63 24 3d  c1 65 6e 76 24 2c 66 6f  |4....c$=.env$,fo|
00002ed0  6e 74 2c 31 29 0d 14 aa  11 66 6f 6e 74 5f 65 6e  |nt,1)....font_en|
00002ee0  64 24 3d bd 33 32 0d 14  b4 05 f5 0d 14 be 0b 66  |d$=.32.........f|
00002ef0  6f 6e 74 2b 3d 31 0d 14  c8 14 63 24 3d c1 65 6e  |ont+=1....c$=.en|
00002f00  76 24 2c 66 6f 6e 74 2c  31 29 0d 14 d2 15 e7 20  |v$,font,1)..... |
00002f10  63 24 3c 3e 66 6f 6e 74  5f 65 6e 64 24 20 8c 0d  |c$<>font_end$ ..|
00002f20  14 dc 18 20 e7 20 63 24  3c 3e 22 3e 22 20 66 6f  |... . c$<>">" fo|
00002f30  6e 74 24 2b 3d 63 24 0d  14 e6 05 cc 0d 14 f0 27  |nt$+=c$........'|
00002f40  e7 20 63 24 3d 66 6f 6e  74 5f 65 6e 64 24 20 84  |. c$=font_end$ .|
00002f50  20 63 24 3d 22 3e 22 20  8c 20 66 6f 6e 74 3d 32  | c$=">" . font=2|
00002f60  35 36 30 0d 14 fa 05 cd  0d 15 04 2a fd 20 63 24  |560........*. c$|
00002f70  3d 66 6f 6e 74 5f 65 6e  64 24 20 84 20 63 24 3d  |=font_end$ . c$=|
00002f80  22 3e 22 20 84 20 66 6f  6e 74 3e a9 28 65 6e 76  |">" . font>.(env|
00002f90  24 29 0d 15 0e 04 0d 15  18 1c 73 69 7a 65 25 3d  |$)........size%=|
00002fa0  bb 28 66 6f 6e 74 24 29  3a 73 69 7a 65 32 25 3d  |.(font$):size2%=|
00002fb0  31 32 0d 15 22 04 0d 15  2c 25 e7 20 a7 66 6f 6e  |12.."...,%. .fon|
00002fc0  74 24 2c 22 2b 22 29 3e  30 20 84 20 a7 66 6f 6e  |t$,"+")>0 . .fon|
00002fd0  74 24 2c 22 2d 22 29 3e  30 20 8c 0d 15 36 13 72  |t$,"-")>0 ...6.r|
00002fe0  65 6c 61 74 69 76 65 25  3d 73 69 7a 65 25 0d 15  |elative%=size%..|
00002ff0  40 15 73 69 7a 65 25 3d  33 2b 72 65 6c 61 74 69  |@.size%=3+relati|
00003000  76 65 25 0d 15 4a 15 e7  20 73 69 7a 65 25 3c 31  |ve%..J.. size%<1|
00003010  20 73 69 7a 65 25 3d 31  0d 15 54 15 e7 20 73 69  | size%=1..T.. si|
00003020  7a 65 25 3e 37 20 73 69  7a 65 25 3d 37 0d 15 5e  |ze%>7 size%=7..^|
00003030  0c 73 69 7a 65 25 2d 3d  33 0d 15 68 1b 73 69 7a  |.size%-=3..h.siz|
00003040  65 32 25 3d 31 32 20 2b  20 28 20 73 69 7a 65 25  |e2%=12 + ( size%|
00003050  2a 32 20 29 0d 15 72 05  cc 0d 15 7c 15 e7 20 73  |*2 )..r....|.. s|
00003060  69 7a 65 25 3c 31 20 73  69 7a 65 25 3d 31 0d 15  |ize%<1 size%=1..|
00003070  86 15 e7 20 73 69 7a 65  25 3e 37 20 73 69 7a 65  |... size%>7 size|
00003080  25 3d 37 0d 15 90 0c 73  69 7a 65 25 2d 3d 33 0d  |%=7....size%-=3.|
00003090  15 9a 1b 73 69 7a 65 32  25 3d 31 32 20 2b 20 28  |...size2%=12 + (|
000030a0  20 73 69 7a 65 25 2a 32  20 29 0d 15 a4 05 cd 0d  | size%*2 )......|
000030b0  15 ae 04 0d 15 b8 27 f2  66 69 6c 65 28 22 7b 66  |......'.file("{f|
000030c0  6f 6e 74 73 69 7a 65 20  22 2b c3 28 73 69 7a 65  |ontsize "+.(size|
000030d0  32 25 29 2b 22 70 74 7d  22 29 0d 15 c2 05 cd 0d  |2%)+"pt}")......|
000030e0  15 cc 05 e1 0d 15 d6 05  3a 0d 15 e0 16 dd f2 69  |........:......i|
000030f0  6d 61 67 65 5f 64 61 74  61 28 65 6e 76 24 29 0d  |mage_data(env$).|
00003100  15 ea 20 e7 20 a7 a4 63  61 70 69 74 61 6c 73 28  |.. . ..capitals(|
00003110  65 6e 76 24 29 2c 22 61  6c 74 3d 22 29 20 8c 0d  |env$),"alt=") ..|
00003120  15 f4 0b 61 6c 74 24 3d  22 22 0d 15 fe 22 61 6c  |...alt$=""..."al|
00003130  74 3d a7 a4 63 61 70 69  74 61 6c 73 28 65 6e 76  |t=..capitals(env|
00003140  24 29 2c 22 61 6c 74 3d  22 29 2b 34 0d 16 08 13  |$),"alt=")+4....|
00003150  63 24 3d c1 65 6e 76 24  2c 61 6c 74 2c 31 29 0d  |c$=.env$,alt,1).|
00003160  16 12 28 e7 20 63 24 3d  bd 33 34 20 61 6c 74 5f  |..(. c$=.34 alt_|
00003170  65 6e 64 24 3d bd 33 34  20 8b 20 61 6c 74 5f 65  |end$=.34 . alt_e|
00003180  6e 64 24 3d bd 33 32 0d  16 1c 05 f5 0d 16 26 0a  |nd$=.32.......&.|
00003190  61 6c 74 2b 3d 31 0d 16  30 13 63 24 3d c1 65 6e  |alt+=1..0.c$=.en|
000031a0  76 24 2c 61 6c 74 2c 31  29 0d 16 3a 14 e7 20 63  |v$,alt,1)..:.. c|
000031b0  24 3c 3e 61 6c 74 5f 65  6e 64 24 20 8c 0d 16 44  |$<>alt_end$ ...D|
000031c0  1b e7 20 61 6c 74 5f 65  6e 64 24 3d bd 33 34 20  |.. alt_end$=.34 |
000031d0  61 6c 74 24 2b 3d 63 24  0d 16 4e 28 e7 20 61 6c  |alt$+=c$..N(. al|
000031e0  74 5f 65 6e 64 24 3c 3e  bd 33 34 20 8c 20 e7 20  |t_end$<>.34 . . |
000031f0  63 24 3c 3e 22 3e 22 20  61 6c 74 24 2b 3d 63 24  |c$<>">" alt$+=c$|
00003200  0d 16 58 05 cc 0d 16 62  1c e7 20 63 24 3d 61 6c  |..X....b.. c$=al|
00003210  74 5f 65 6e 64 24 20 8c  20 61 6c 74 3d 32 35 36  |t_end$ . alt=256|
00003220  30 0d 16 6c 27 e7 20 61  6c 74 5f 65 6e 64 24 3c  |0..l'. alt_end$<|
00003230  3e bd 33 34 20 8c 20 e7  20 63 24 3d 22 3e 22 20  |>.34 . . c$=">" |
00003240  61 6c 74 3d 32 35 36 30  0d 16 76 05 cd 0d 16 80  |alt=2560..v.....|
00003250  28 fd 20 63 24 3d 61 6c  74 5f 65 6e 64 24 20 84  |(. c$=alt_end$ .|
00003260  20 63 24 3d 22 3e 22 20  84 20 61 6c 74 3e a9 28  | c$=">" . alt>.(|
00003270  65 6e 76 24 29 0d 16 8a  0e f2 6f 6e 28 22 69 6d  |env$).....on("im|
00003280  67 22 29 0d 16 94 19 f2  66 69 6c 65 28 22 20 3c  |g").....file(" <|
00003290  22 2b 61 6c 74 24 2b 22  3e 20 22 29 0d 16 9e 10  |"+alt$+"> ")....|
000032a0  f2 6f 66 66 28 22 2f 69  6d 67 22 29 0d 16 a8 05  |.off("/img")....|
000032b0  cc 0d 16 b2 0e f2 6f 6e  28 22 69 6d 67 22 29 0d  |......on("img").|
000032c0  16 bc 16 f2 66 69 6c 65  28 22 20 3c 49 4d 41 47  |....file(" <IMAG|
000032d0  45 3e 20 22 29 0d 16 c6  10 f2 6f 66 66 28 22 2f  |E> ").....off("/|
000032e0  69 6d 67 22 29 0d 16 d0  05 cd 0d 16 da 05 e1 0d  |img")...........|
000032f0  16 e4 05 3a 0d 16 ee 0e  dd f2 6f 6e 28 74 61 67  |...:......on(tag|
00003300  24 29 0d 16 f8 1e f2 66  69 6c 65 28 22 7b 22 22  |$).....file("{""|
00003310  22 2b 74 61 67 24 2b 22  22 22 20 6f 6e 7d 22 29  |"+tag$+""" on}")|
00003320  0d 17 02 05 e1 0d 17 0c  04 0d 17 16 0f dd f2 6f  |...............o|
00003330  66 66 28 74 61 67 24 29  0d 17 20 23 f2 66 69 6c  |ff(tag$).. #.fil|
00003340  65 28 22 7b 22 22 22 2b  c1 74 61 67 24 2c 32 29  |e("{"""+.tag$,2)|
00003350  2b 22 22 22 20 6f 66 66  7d 22 29 0d 17 2a 05 e1  |+""" off}")..*..|
00003360  0d 17 34 05 3a 0d 17 3e  11 dd f2 66 69 6c 65 28  |..4.:..>...file(|
00003370  77 68 61 74 24 29 0d 17  48 18 6f 6c 64 66 69 6c  |what$)..H.oldfil|
00003380  65 70 6f 73 25 3d 66 69  6c 65 70 6f 73 25 0d 17  |epos%=filepos%..|
00003390  52 16 66 69 6c 65 70 6f  73 25 2b 3d a9 28 77 68  |R.filepos%+=.(wh|
000033a0  61 74 24 29 0d 17 5c 55  e7 20 66 69 6c 65 70 6f  |at$)..\U. filepo|
000033b0  73 25 3e 3d 77 65 62 73  69 7a 65 25 20 65 78 74  |s%>=websize% ext|
000033c0  65 6e 64 25 3d a4 77 69  6d 70 68 65 61 70 5f 65  |end%=.wimpheap_e|
000033d0  78 74 65 6e 64 28 77 65  62 25 2c 65 78 5f 63 68  |xtend(web%,ex_ch|
000033e0  75 6e 6b 25 29 3a 77 65  62 73 69 7a 65 25 2b 3d  |unk%):websize%+=|
000033f0  65 78 5f 63 68 75 6e 6b  25 0d 17 66 18 66 69 6c  |ex_chunk%..f.fil|
00003400  65 70 6f 73 25 3d 6f 6c  64 66 69 6c 65 70 6f 73  |epos%=oldfilepos|
00003410  25 0d 17 70 19 e3 20 66  6c 69 62 62 6c 65 3d 31  |%..p.. flibble=1|
00003420  20 b8 20 a9 20 77 68 61  74 24 0d 17 7a 26 77 65  | . . what$..z&we|
00003430  62 25 3f 66 69 6c 65 70  6f 73 25 3d 97 28 c1 77  |b%?filepos%=.(.w|
00003440  68 61 74 24 2c 66 6c 69  62 62 6c 65 2c 31 29 29  |hat$,flibble,1))|
00003450  0d 17 84 0f 66 69 6c 65  70 6f 73 25 2b 3d 31 0d  |....filepos%+=1.|
00003460  17 8e 05 ed 0d 17 98 05  e1 0d 17 a2 05 3a 0d 17  |.............:..|
00003470  ac 16 dd f2 6c 6f 61 64  5f 64 61 74 61 28 66 69  |....load_data(fi|
00003480  6c 65 24 29 0d 17 b6 41  e7 20 68 65 61 70 5f 65  |le$)...A. heap_e|
00003490  78 69 73 74 73 25 3d b9  20 72 65 6c 65 61 73 65  |xists%=. release|
000034a0  25 3d a4 77 69 6d 70 68  65 61 70 5f 66 72 65 65  |%=.wimpheap_free|
000034b0  28 77 65 62 25 29 3a 68  65 61 70 5f 65 78 69 73  |(web%):heap_exis|
000034c0  74 73 25 3d a3 0d 17 c0  04 0d 17 ca 1d 73 24 3d  |ts%=.........s$=|
000034d0  66 69 6c 65 24 3a 6f 72  69 67 5f 66 69 6c 65 24  |file$:orig_file$|
000034e0  3d 66 69 6c 65 24 0d 17  d4 31 e7 20 a4 63 61 70  |=file$...1. .cap|
000034f0  69 74 61 6c 73 28 73 24  29 3d 22 3c 77 69 6d 70  |itals(s$)="<wimp|
00003500  24 73 63 72 61 70 3e 22  20 73 24 3d 22 54 65 78  |$scrap>" s$="Tex|
00003510  74 53 74 6f 72 79 22 0d  17 de 35 e7 20 a4 63 61  |tStory"...5. .ca|
00003520  70 69 74 61 6c 73 28 c2  73 24 2c 34 29 29 3d 22  |pitals(.s$,4))="|
00003530  2f 68 74 6d 22 20 73 24  3d c0 73 24 2c a9 28 73  |/htm" s$=.s$,.(s|
00003540  24 29 2d 34 29 2b 22 2f  74 78 74 22 0d 17 e8 36  |$)-4)+"/txt"...6|
00003550  e7 20 a4 63 61 70 69 74  61 6c 73 28 c2 73 24 2c  |. .capitals(.s$,|
00003560  35 29 29 3d 22 2f 68 74  6d 6c 22 20 73 24 3d c0  |5))="/html" s$=.|
00003570  73 24 2c a9 28 73 24 29  2d 35 29 2b 22 2f 74 78  |s$,.(s$)-5)+"/tx|
00003580  74 22 0d 17 f2 14 77 68  61 74 5f 74 6f 5f 73 61  |t"....what_to_sa|
00003590  76 65 24 3d 73 24 0d 17  fc 2a f2 73 65 74 5f 69  |ve$=s$...*.set_i|
000035a0  63 6f 6e 5f 73 74 72 69  6e 67 28 73 61 76 65 61  |con_string(savea|
000035b0  73 25 2c 31 2c 22 66 69  6c 65 5f 66 66 66 22 29  |s%,1,"file_fff")|
000035c0  0d 18 06 2d f2 73 65 74  5f 69 63 6f 6e 5f 73 74  |...-.set_icon_st|
000035d0  72 69 6e 67 28 73 61 76  65 61 73 25 2c 32 2c 77  |ring(saveas%,2,w|
000035e0  68 61 74 5f 74 6f 5f 73  61 76 65 24 29 0d 18 10  |hat_to_save$)...|
000035f0  13 73 61 76 65 5f 74 79  70 65 25 3d 26 46 46 46  |.save_type%=&FFF|
00003600  0d 18 1a 04 0d 18 24 15  65 78 5f 63 68 75 6e 6b  |......$.ex_chunk|
00003610  25 3d 31 30 32 34 2a 31  36 0d 18 2e 04 0d 18 38  |%=1024*16......8|
00003620  12 68 74 6d 6c 25 3d 8e  28 66 69 6c 65 24 29 0d  |.html%=.(file$).|
00003630  18 42 17 72 65 61 64 73  69 7a 65 25 3d 28 a2 23  |.B.readsize%=(.#|
00003640  68 74 6d 6c 25 29 0d 18  4c 20 77 65 62 73 69 7a  |html%)..L websiz|
00003650  65 25 3d 72 65 61 64 73  69 7a 65 25 2b 65 78 5f  |e%=readsize%+ex_|
00003660  63 68 75 6e 6b 25 0d 18  56 16 66 69 6c 65 70 6f  |chunk%..V.filepo|
00003670  73 25 3d 72 65 61 64 73  69 7a 65 25 0d 18 60 0b  |s%=readsize%..`.|
00003680  d9 23 68 74 6d 6c 25 0d  18 6a 31 77 65 62 25 3d  |.#html%..j1web%=|
00003690  a4 77 69 6d 70 68 65 61  70 5f 63 6c 61 69 6d 28  |.wimpheap_claim(|
000036a0  77 65 62 73 69 7a 65 25  29 3a 68 65 61 70 5f 65  |websize%):heap_e|
000036b0  78 69 73 74 73 25 3d b9  0d 18 74 04 0d 18 7e 1f  |xists%=...t...~.|
000036c0  ff 28 22 4c 4f 41 44 20  22 2b 66 69 6c 65 24 2b  |.("LOAD "+file$+|
000036d0  22 20 22 2b c3 7e 77 65  62 25 29 0d 18 88 24 c8  |" "+.~web%)...$.|
000036e0  99 20 22 4f 53 5f 52 65  61 64 4d 6f 6e 6f 74 6f  |. "OS_ReadMonoto|
000036f0  6e 69 63 54 69 6d 65 22  20 b8 20 74 68 65 6e 0d  |nicTime" . then.|
00003700  18 92 0c f2 63 6f 6e 76  65 72 74 0d 18 9c 23 c8  |....convert...#.|
00003710  99 20 22 4f 53 5f 52 65  61 64 4d 6f 6e 6f 74 6f  |. "OS_ReadMonoto|
00003720  6e 69 63 54 69 6d 65 22  20 b8 20 6e 6f 77 0d 18  |nicTime" . now..|
00003730  a6 18 74 61 6b 65 6e 3d  28 6e 6f 77 2d 74 68 65  |..taken=(now-the|
00003740  6e 29 2f 31 30 30 0d 18  b0 17 74 61 6b 65 6e 24  |n)/100....taken$|
00003750  3d c0 c3 28 74 61 6b 65  6e 29 2c 36 29 0d 18 ba  |=..(taken),6)...|
00003760  30 f2 73 65 74 5f 69 63  6f 6e 5f 73 74 72 69 6e  |0.set_icon_strin|
00003770  67 28 73 74 61 74 73 25  2c 36 2c 74 61 6b 65 6e  |g(stats%,6,taken|
00003780  24 2b 22 20 73 65 63 6f  6e 64 73 22 29 0d 18 c4  |$+" seconds")...|
00003790  29 f2 73 65 74 5f 69 63  6f 6e 5f 73 74 72 69 6e  |).set_icon_strin|
000037a0  67 28 73 74 61 74 73 25  2c 30 2c 6f 72 69 67 5f  |g(stats%,0,orig_|
000037b0  66 69 6c 65 24 29 0d 18  ce 37 f2 73 65 74 5f 69  |file$)...7.set_i|
000037c0  63 6f 6e 5f 73 74 72 69  6e 67 28 73 74 61 74 73  |con_string(stats|
000037d0  25 2c 32 2c c3 28 a8 28  72 65 61 64 73 69 7a 65  |%,2,.(.(readsize|
000037e0  25 2f 31 30 32 34 29 29  2b 22 4b 22 29 0d 18 d8  |%/1024))+"K")...|
000037f0  42 f2 73 65 74 5f 69 63  6f 6e 5f 73 74 72 69 6e  |B.set_icon_strin|
00003800  67 28 73 74 61 74 73 25  2c 34 2c c3 28 a8 28 28  |g(stats%,4,.(.((|
00003810  66 69 6c 65 70 6f 73 25  2d 72 65 61 64 73 69 7a  |filepos%-readsiz|
00003820  65 25 29 2f 31 30 32 34  29 29 2b 22 4b 22 29 0d  |e%)/1024))+"K").|
00003830  18 e2 18 f2 75 6e 67 72  65 79 28 6d 61 69 6e 6d  |....ungrey(mainm|
00003840  65 6e 75 25 2c 31 29 0d  18 ec 04 0d 18 f6 20 c8  |enu%,1)....... .|
00003850  99 20 22 57 69 6d 70 5f  47 65 74 50 6f 69 6e 74  |. "Wimp_GetPoint|
00003860  65 72 49 6e 66 6f 22 2c  2c 62 25 0d 19 00 12 6d  |erInfo",,b%....m|
00003870  78 3d 21 62 25 3a 6d 79  3d 62 25 21 34 0d 19 0a  |x=!b%:my=b%!4...|
00003880  2f c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |/.. "Wimp_Create|
00003890  4d 65 6e 75 22 2c 2c 73  61 76 65 61 73 25 2c 6d  |Menu",,saveas%,m|
000038a0  78 2d 31 36 30 2c 6d 79  2b 31 30 30 0d 19 14 05  |x-160,my+100....|
000038b0  e1 0d 19 1e 05 3a 0d 19  28 1b dd f2 63 68 65 63  |.....:..(...chec|
000038c0  6b 5f 73 79 6d 62 6f 6c  28 73 79 6d 62 6f 6c 24  |k_symbol(symbol$|
000038d0  29 0d 19 32 0b 63 61 70  73 25 3d a3 0d 19 3c 0f  |)..2.caps%=...<.|
000038e0  63 6f 6e 76 65 72 74 24  3d 22 22 0d 19 46 04 0d  |convert$=""..F..|
000038f0  19 50 16 66 69 72 73 74  24 3d c0 73 79 6d 62 6f  |.P.first$=.symbo|
00003900  6c 24 2c 31 29 0d 19 5a  13 20 e7 20 66 69 72 73  |l$,1)..Z. . firs|
00003910  74 24 3d 22 23 22 20 8c  0d 19 64 36 20 20 6e 75  |t$="#" ...d6  nu|
00003920  6d 62 65 72 24 3d c2 73  79 6d 62 6f 6c 24 2c a9  |mber$=.symbol$,.|
00003930  28 73 79 6d 62 6f 6c 24  29 2d 31 29 3a 6e 75 6d  |(symbol$)-1):num|
00003940  62 65 72 3d bb 28 6e 75  6d 62 65 72 24 29 0d 19  |ber=.(number$)..|
00003950  6e 18 20 20 63 6f 6e 76  65 72 74 24 3d bd 28 6e  |n.  convert$=.(n|
00003960  75 6d 62 65 72 29 0d 19  78 06 20 cc 0d 19 82 31  |umber)..x. ....1|
00003970  20 20 e7 20 97 28 66 69  72 73 74 24 29 3e 3d 97  |  . .(first$)>=.|
00003980  22 41 22 20 80 20 97 28  66 69 72 73 74 24 29 3c  |"A" . .(first$)<|
00003990  3d 97 22 5a 22 20 63 61  70 73 25 3d b9 0d 19 8c  |=."Z" caps%=....|
000039a0  06 20 cd 0d 19 96 04 0d  19 a0 1c 20 c8 8e 20 a4  |. ......... .. .|
000039b0  63 61 70 69 74 61 6c 73  28 73 79 6d 62 6f 6c 24  |capitals(symbol$|
000039c0  29 20 ca 0d 19 aa 39 c9  20 22 61 65 6c 69 67 22  |) ....9. "aelig"|
000039d0  3a e7 20 63 61 70 73 25  20 63 6f 6e 76 65 72 74  |:. caps% convert|
000039e0  24 3d 22 c6 22 20 8b 20  22 61 65 6c 69 67 22 3a  |$="." . "aelig":|
000039f0  63 6f 6e 76 65 72 74 24  3d 22 e6 22 0d 19 b4 32  |convert$="."...2|
00003a00  c9 20 22 61 61 63 75 74  65 22 3a e7 20 63 61 70  |. "aacute":. cap|
00003a10  73 25 20 63 6f 6e 76 65  72 74 24 3d 22 c1 22 20  |s% convert$="." |
00003a20  8b 20 63 6f 6e 76 65 72  74 24 3d 22 e1 22 0d 19  |. convert$="."..|
00003a30  be 31 c9 20 22 61 63 69  72 63 22 3a e7 20 63 61  |.1. "acirc":. ca|
00003a40  70 73 25 20 63 6f 6e 76  65 72 74 24 3d 22 c2 22  |ps% convert$="."|
00003a50  20 8b 20 63 6f 6e 76 65  72 74 24 3d 22 e2 22 0d  | . convert$=".".|
00003a60  19 c8 32 c9 20 22 61 67  72 61 76 65 22 3a e7 20  |..2. "agrave":. |
00003a70  63 61 70 73 25 20 63 6f  6e 76 65 72 74 24 3d 22  |caps% convert$="|
00003a80  c0 22 20 8b 20 63 6f 6e  76 65 72 74 24 3d 22 e0  |." . convert$=".|
00003a90  22 0d 19 d2 31 c9 20 22  61 72 69 6e 67 22 3a e7  |"...1. "aring":.|
00003aa0  20 63 61 70 73 25 20 63  6f 6e 76 65 72 74 24 3d  | caps% convert$=|
00003ab0  22 c5 22 20 8b 20 63 6f  6e 76 65 72 74 24 3d 22  |"." . convert$="|
00003ac0  e5 22 0d 19 dc 3b c9 20  22 61 74 69 6c 64 65 22  |."...;. "atilde"|
00003ad0  3a e7 20 63 61 70 73 25  20 63 6f 6e 76 65 72 74  |:. caps% convert|
00003ae0  24 3d 22 c3 22 20 8b 20  22 61 74 69 6c 64 65 22  |$="." . "atilde"|
00003af0  3a 63 6f 6e 76 65 72 74  24 3d 22 e3 22 0d 19 e6  |:convert$="."...|
00003b00  37 c9 20 22 61 75 6d 6c  22 3a e7 20 63 61 70 73  |7. "auml":. caps|
00003b10  25 20 63 6f 6e 76 65 72  74 24 3d 22 c4 22 20 8b  |% convert$="." .|
00003b20  20 22 61 75 6d 6c 22 3a  63 6f 6e 76 65 72 74 24  | "auml":convert$|
00003b30  3d 22 e4 22 0d 19 f0 32  c9 20 22 63 63 65 64 69  |="."...2. "ccedi|
00003b40  6c 22 3a e7 20 63 61 70  73 25 20 63 6f 6e 76 65  |l":. caps% conve|
00003b50  72 74 24 3d 22 c7 22 20  8b 20 63 6f 6e 76 65 72  |rt$="." . conver|
00003b60  74 24 3d 22 e7 22 0d 19  fa 1c c9 20 22 63 65 64  |t$="."..... "ced|
00003b70  69 6c 6c 61 22 3a 63 6f  6e 76 65 72 74 24 3d 22  |illa":convert$="|
00003b80  b8 22 0d 1a 04 2f c9 20  22 65 74 68 22 3a e7 20  |.".../. "eth":. |
00003b90  63 61 70 73 25 20 63 6f  6e 76 65 72 74 24 3d 22  |caps% convert$="|
00003ba0  d0 22 20 8b 20 63 6f 6e  76 65 72 74 24 3d 22 f0  |." . convert$=".|
00003bb0  22 0d 1a 0e 32 c9 20 22  65 61 63 75 74 65 22 3a  |"...2. "eacute":|
00003bc0  e7 20 63 61 70 73 25 20  63 6f 6e 76 65 72 74 24  |. caps% convert$|
00003bd0  3d 22 c9 22 20 8b 20 63  6f 6e 76 65 72 74 24 3d  |="." . convert$=|
00003be0  22 e9 22 0d 1a 18 31 c9  20 22 65 63 69 72 63 22  |"."...1. "ecirc"|
00003bf0  3a e7 20 63 61 70 73 25  20 63 6f 6e 76 65 72 74  |:. caps% convert|
00003c00  24 3d 22 ca 22 20 8b 20  63 6f 6e 76 65 72 74 24  |$="." . convert$|
00003c10  3d 22 ea 22 0d 1a 22 32  c9 20 22 65 67 72 61 76  |=".".."2. "egrav|
00003c20  65 22 3a e7 20 63 61 70  73 25 20 63 6f 6e 76 65  |e":. caps% conve|
00003c30  72 74 24 3d 22 c8 22 20  8b 20 63 6f 6e 76 65 72  |rt$="." . conver|
00003c40  74 24 3d 22 e8 22 0d 1a  2c 30 c9 20 22 65 75 6d  |t$="."..,0. "eum|
00003c50  6c 22 3a e7 20 63 61 70  73 25 20 63 6f 6e 76 65  |l":. caps% conve|
00003c60  72 74 24 3d 22 cb 22 20  8b 20 63 6f 6e 76 65 72  |rt$="." . conver|
00003c70  74 24 3d 22 eb 22 0d 1a  36 32 c9 20 22 69 61 63  |t$="."..62. "iac|
00003c80  75 74 65 22 3a e7 20 63  61 70 73 25 20 63 6f 6e  |ute":. caps% con|
00003c90  76 65 72 74 24 3d 22 cd  22 20 8b 20 63 6f 6e 76  |vert$="." . conv|
00003ca0  65 72 74 24 3d 22 ed 22  0d 1a 40 31 c9 20 22 69  |ert$="."..@1. "i|
00003cb0  63 69 72 63 22 3a e7 20  63 61 70 73 25 20 63 6f  |circ":. caps% co|
00003cc0  6e 76 65 72 74 24 3d 22  ce 22 20 8b 20 63 6f 6e  |nvert$="." . con|
00003cd0  76 65 72 74 24 3d 22 ee  22 0d 1a 4a 32 c9 20 22  |vert$="."..J2. "|
00003ce0  69 67 72 61 76 65 22 3a  e7 20 63 61 70 73 25 20  |igrave":. caps% |
00003cf0  63 6f 6e 76 65 72 74 24  3d 22 cc 22 20 8b 20 63  |convert$="." . c|
00003d00  6f 6e 76 65 72 74 24 3d  22 ec 22 0d 1a 54 30 c9  |onvert$="."..T0.|
00003d10  20 22 69 75 6d 6c 22 3a  e7 20 63 61 70 73 25 20  | "iuml":. caps% |
00003d20  63 6f 6e 76 65 72 74 24  3d 22 cf 22 20 8b 20 63  |convert$="." . c|
00003d30  6f 6e 76 65 72 74 24 3d  22 ef 22 0d 1a 5e 32 c9  |onvert$="."..^2.|
00003d40  20 22 6e 74 69 6c 64 65  22 3a e7 20 63 61 70 73  | "ntilde":. caps|
00003d50  25 20 63 6f 6e 76 65 72  74 24 3d 22 d1 22 20 8b  |% convert$="." .|
00003d60  20 63 6f 6e 76 65 72 74  24 3d 22 f1 22 0d 1a 68  | convert$="."..h|
00003d70  32 c9 20 22 6f 61 63 75  74 65 22 3a e7 20 63 61  |2. "oacute":. ca|
00003d80  70 73 25 20 63 6f 6e 76  65 72 74 24 3d 22 d3 22  |ps% convert$="."|
00003d90  20 8b 20 63 6f 6e 76 65  72 74 24 3d 22 f3 22 0d  | . convert$=".".|
00003da0  1a 72 31 c9 20 22 6f 63  69 72 63 22 3a e7 20 63  |.r1. "ocirc":. c|
00003db0  61 70 73 25 20 63 6f 6e  76 65 72 74 24 3d 22 d4  |aps% convert$=".|
00003dc0  22 20 8b 20 63 6f 6e 76  65 72 74 24 3d 22 f4 22  |" . convert$="."|
00003dd0  0d 1a 7c 32 c9 20 22 6f  67 72 61 76 65 22 3a e7  |..|2. "ograve":.|
00003de0  20 63 61 70 73 25 20 63  6f 6e 76 65 72 74 24 3d  | caps% convert$=|
00003df0  22 d2 22 20 8b 20 63 6f  6e 76 65 72 74 24 3d 22  |"." . convert$="|
00003e00  f2 22 0d 1a 86 32 c9 20  22 6f 73 6c 61 73 68 22  |."...2. "oslash"|
00003e10  3a e7 20 63 61 70 73 25  20 63 6f 6e 76 65 72 74  |:. caps% convert|
00003e20  24 3d 22 d8 22 20 8b 20  63 6f 6e 76 65 72 74 24  |$="." . convert$|
00003e30  3d 22 f8 22 0d 1a 90 32  c9 20 22 6f 74 69 6c 64  |="."...2. "otild|
00003e40  65 22 3a e7 20 63 61 70  73 25 20 63 6f 6e 76 65  |e":. caps% conve|
00003e50  72 74 24 3d 22 d5 22 20  8b 20 63 6f 6e 76 65 72  |rt$="." . conver|
00003e60  74 24 3d 22 f5 22 0d 1a  9a 30 c9 20 22 6f 75 6d  |t$="."...0. "oum|
00003e70  6c 22 3a e7 20 63 61 70  73 25 20 63 6f 6e 76 65  |l":. caps% conve|
00003e80  72 74 24 3d 22 d6 22 20  8b 20 63 6f 6e 76 65 72  |rt$="." . conver|
00003e90  74 24 3d 22 f6 22 0d 1a  a4 31 c9 20 22 74 68 6f  |t$="."...1. "tho|
00003ea0  72 6e 22 3a e7 20 63 61  70 73 25 20 63 6f 6e 76  |rn":. caps% conv|
00003eb0  65 72 74 24 3d 22 de 22  20 8b 20 63 6f 6e 76 65  |ert$="." . conve|
00003ec0  72 74 24 3d 22 fe 22 0d  1a ae 32 c9 20 22 75 61  |rt$="."...2. "ua|
00003ed0  63 75 74 65 22 3a e7 20  63 61 70 73 25 20 63 6f  |cute":. caps% co|
00003ee0  6e 76 65 72 74 24 3d 22  da 22 20 8b 20 63 6f 6e  |nvert$="." . con|
00003ef0  76 65 72 74 24 3d 22 fa  22 0d 1a b8 31 c9 20 22  |vert$="."...1. "|
00003f00  75 63 69 72 63 22 3a e7  20 63 61 70 73 25 20 63  |ucirc":. caps% c|
00003f10  6f 6e 76 65 72 74 24 3d  22 db 22 20 8b 20 63 6f  |onvert$="." . co|
00003f20  6e 76 65 72 74 24 3d 22  fb 22 0d 1a c2 3a c9 20  |nvert$="."...:. |
00003f30  22 75 67 72 61 76 65 22  2c 22 67 72 61 76 65 22  |"ugrave","grave"|
00003f40  3a e7 20 63 61 70 73 25  20 63 6f 6e 76 65 72 74  |:. caps% convert|
00003f50  24 3d 22 d9 22 20 8b 20  63 6f 6e 76 65 72 74 24  |$="." . convert$|
00003f60  3d 22 f9 22 0d 1a cc 30  c9 20 22 75 75 6d 6c 22  |="."...0. "uuml"|
00003f70  3a e7 20 63 61 70 73 25  20 63 6f 6e 76 65 72 74  |:. caps% convert|
00003f80  24 3d 22 dc 22 20 8b 20  63 6f 6e 76 65 72 74 24  |$="." . convert$|
00003f90  3d 22 fc 22 0d 1a d6 32  c9 20 22 79 61 63 75 74  |="."...2. "yacut|
00003fa0  65 22 3a e7 20 63 61 70  73 25 20 63 6f 6e 76 65  |e":. caps% conve|
00003fb0  72 74 24 3d 22 dd 22 20  8b 20 63 6f 6e 76 65 72  |rt$="." . conver|
00003fc0  74 24 3d 22 fd 22 0d 1a  e0 1a c9 20 22 61 63 75  |t$="."..... "acu|
00003fd0  74 65 22 3a 63 6f 6e 76  65 72 74 24 3d 22 b4 22  |te":convert$="."|
00003fe0  0d 1a ea 18 c9 20 22 61  6d 70 22 3a 63 6f 6e 76  |..... "amp":conv|
00003ff0  65 72 74 24 3d 22 26 22  0d 1a f4 1b c9 20 22 62  |ert$="&"..... "b|
00004000  72 76 62 61 72 22 3a 63  6f 6e 76 65 72 74 24 3d  |rvbar":convert$=|
00004010  22 a6 22 0d 1a fe 19 c9  20 22 63 65 6e 74 22 3a  |"."..... "cent":|
00004020  63 6f 6e 76 65 72 74 24  3d 22 a2 22 0d 1b 08 19  |convert$="."....|
00004030  c9 20 22 63 6f 70 79 22  3a 63 6f 6e 76 65 72 74  |. "copy":convert|
00004040  24 3d 22 a9 22 0d 1b 12  1b c9 20 22 63 75 72 72  |$="."..... "curr|
00004050  65 6e 22 3a 63 6f 6e 76  65 72 74 24 3d 22 a4 22  |en":convert$="."|
00004060  0d 1b 1c 1b c9 20 22 64  65 67 72 65 65 22 3a 63  |..... "degree":c|
00004070  6f 6e 76 65 72 74 24 3d  22 b0 22 0d 1b 26 18 c9  |onvert$="."..&..|
00004080  20 22 64 69 65 22 3a 63  6f 6e 76 65 72 74 24 3d  | "die":convert$=|
00004090  22 a8 22 0d 1b 30 1b c9  20 22 64 69 76 69 64 65  |"."..0.. "divide|
000040a0  22 3a 63 6f 6e 76 65 72  74 24 3d 22 f7 22 0d 1b  |":convert$="."..|
000040b0  3a 1b c9 20 22 66 69 73  68 22 3a 63 6f 6e 76 65  |:.. "fish":conve|
000040c0  72 74 24 3d 22 3c 3e 3c  22 0d 1b 44 1b c9 20 22  |rt$="<><"..D.. "|
000040d0  66 72 61 63 31 34 22 3a  63 6f 6e 76 65 72 74 24  |frac14":convert$|
000040e0  3d 22 bc 22 0d 1b 4e 1b  c9 20 22 66 72 61 63 31  |="."..N.. "frac1|
000040f0  32 22 3a 63 6f 6e 76 65  72 74 24 3d 22 bd 22 0d  |2":convert$=".".|
00004100  1b 58 1b c9 20 22 66 72  61 63 33 34 22 3a 63 6f  |.X.. "frac34":co|
00004110  6e 76 65 72 74 24 3d 22  be 22 0d 1b 62 17 c9 20  |nvert$="."..b.. |
00004120  22 67 74 22 3a 63 6f 6e  76 65 72 74 24 3d 22 3e  |"gt":convert$=">|
00004130  22 0d 1b 6c 1a c9 20 22  69 65 78 63 6c 22 3a 63  |"..l.. "iexcl":c|
00004140  6f 6e 76 65 72 74 24 3d  22 a1 22 0d 1b 76 1b c9  |onvert$="."..v..|
00004150  20 22 69 71 75 65 73 74  22 3a 63 6f 6e 76 65 72  | "iquest":conver|
00004160  74 24 3d 22 bf 22 0d 1b  80 1a c9 20 22 6c 61 71  |t$="."..... "laq|
00004170  75 6f 22 3a 63 6f 6e 76  65 72 74 24 3d 22 ab 22  |uo":convert$="."|
00004180  0d 1b 8a 17 c9 20 22 6c  74 22 3a 63 6f 6e 76 65  |..... "lt":conve|
00004190  72 74 24 3d 22 3c 22 0d  1b 94 1b c9 20 22 6d 61  |rt$="<"..... "ma|
000041a0  63 72 6f 6e 22 3a 63 6f  6e 76 65 72 74 24 3d 22  |cron":convert$="|
000041b0  af 22 0d 1b 9e 1a c9 20  22 6d 69 63 72 6f 22 3a  |."..... "micro":|
000041c0  63 6f 6e 76 65 72 74 24  3d 22 b5 22 0d 1b a8 1b  |convert$="."....|
000041d0  c9 20 22 6d 69 64 64 6f  74 22 3a 63 6f 6e 76 65  |. "middot":conve|
000041e0  72 74 24 3d 22 b7 22 0d  1b b2 19 c9 20 22 6e 62  |rt$="."..... "nb|
000041f0  73 70 22 3a 63 6f 6e 76  65 72 74 24 3d 22 a0 22  |sp":convert$="."|
00004200  0d 1b bc 18 c9 20 22 6e  6f 74 22 3a 63 6f 6e 76  |..... "not":conv|
00004210  65 72 74 24 3d 22 ac 22  0d 1b c6 19 c9 20 22 6f  |ert$="."..... "o|
00004220  72 64 66 22 3a 63 6f 6e  76 65 72 74 24 3d 22 aa  |rdf":convert$=".|
00004230  22 0d 1b d0 19 c9 20 22  6f 72 64 6d 22 3a 63 6f  |"..... "ordm":co|
00004240  6e 76 65 72 74 24 3d 22  ba 22 0d 1b da 19 c9 20  |nvert$="."..... |
00004250  22 70 61 72 61 22 3a 63  6f 6e 76 65 72 74 24 3d  |"para":convert$=|
00004260  22 b6 22 0d 1b e4 1b c9  20 22 70 6c 75 73 6d 6e  |"."..... "plusmn|
00004270  22 3a 63 6f 6e 76 65 72  74 24 3d 22 b1 22 0d 1b  |":convert$="."..|
00004280  ee 1a c9 20 22 70 6f 75  6e 64 22 3a 63 6f 6e 76  |... "pound":conv|
00004290  65 72 74 24 3d 22 a3 22  0d 1b f8 19 c9 20 22 71  |ert$="."..... "q|
000042a0  75 6f 74 22 3a 63 6f 6e  76 65 72 74 24 3d bd 33  |uot":convert$=.3|
000042b0  34 0d 1c 02 1a c9 20 22  72 61 71 75 6f 22 3a 63  |4..... "raquo":c|
000042c0  6f 6e 76 65 72 74 24 3d  22 bb 22 0d 1c 0c 18 c9  |onvert$=".".....|
000042d0  20 22 72 65 67 22 3a 63  6f 6e 76 65 72 74 24 3d  | "reg":convert$=|
000042e0  22 ae 22 0d 1c 16 19 c9  20 22 73 65 63 74 22 3a  |"."..... "sect":|
000042f0  63 6f 6e 76 65 72 74 24  3d 22 a7 22 0d 1c 20 18  |convert$=".".. .|
00004300  c9 20 22 73 68 79 22 3a  63 6f 6e 76 65 72 74 24  |. "shy":convert$|
00004310  3d 22 ad 22 0d 1c 2a 19  c9 20 22 73 75 70 31 22  |="."..*.. "sup1"|
00004320  3a 63 6f 6e 76 65 72 74  24 3d 22 b9 22 0d 1c 34  |:convert$="."..4|
00004330  19 c9 20 22 73 75 70 32  22 3a 63 6f 6e 76 65 72  |.. "sup2":conver|
00004340  74 24 3d 22 b2 22 0d 1c  3e 19 c9 20 22 73 75 70  |t$="."..>.. "sup|
00004350  33 22 3a 63 6f 6e 76 65  72 74 24 3d 22 b3 22 0d  |3":convert$=".".|
00004360  1c 48 1a c9 20 22 73 7a  6c 69 67 22 3a 63 6f 6e  |.H.. "szlig":con|
00004370  76 65 72 74 24 3d 22 df  22 0d 1c 52 1a c9 20 22  |vert$="."..R.. "|
00004380  74 69 6d 65 73 22 3a 63  6f 6e 76 65 72 74 24 3d  |times":convert$=|
00004390  22 d7 22 0d 1c 5c 1a c9  20 22 74 72 61 64 65 22  |"."..\.. "trade"|
000043a0  3a 63 6f 6e 76 65 72 74  24 3d 22 8d 22 0d 1c 66  |:convert$="."..f|
000043b0  18 c9 20 22 79 65 6e 22  3a 63 6f 6e 76 65 72 74  |.. "yen":convert|
000043c0  24 3d 22 a5 22 0d 1c 70  19 c9 20 22 79 75 6d 6c  |$="."..p.. "yuml|
000043d0  22 3a 63 6f 6e 76 65 72  74 24 3d 22 ff 22 0d 1c  |":convert$="."..|
000043e0  7a 05 cb 0d 1c 84 04 0d  1c 8e 31 e7 20 63 6f 6e  |z.........1. con|
000043f0  76 65 72 74 24 3c 3e 22  22 20 f2 66 69 6c 65 28  |vert$<>"" .file(|
00004400  22 7b 5c 22 2b c3 28 97  28 63 6f 6e 76 65 72 74  |"{\"+.(.(convert|
00004410  24 29 29 2b 22 7d 22 29  0d 1c 98 04 0d 1c a2 05  |$))+"}")........|
00004420  e1 0d 1c ac 05 3a 0d 1c  b6 12 dd a4 63 61 70 69  |.....:......capi|
00004430  74 61 6c 73 28 74 24 29  0d 1c c0 2d f4 20 2a 2a  |tals(t$)...-. **|
00004440  2a 20 43 6f 6e 76 65 72  74 73 20 61 6c 6c 20 74  |* Converts all t|
00004450  65 78 74 20 74 6f 20 6c  6f 77 65 72 20 63 61 73  |ext to lower cas|
00004460  65 20 2a 2a 2a 0d 1c ca  0a ea 20 49 2c 6c 24 0d  |e ***..... I,l$.|
00004470  1c d4 0a 6e 74 24 3d 22  22 0d 1c de 10 e3 20 49  |...nt$=""..... I|
00004480  3d 31 20 b8 20 a9 20 74  24 0d 1c e8 0f 6c 24 3d  |=1 . . t$....l$=|
00004490  c1 74 24 2c 49 2c 31 29  0d 1c f2 32 e7 20 97 28  |.t$,I,1)...2. .(|
000044a0  6c 24 29 3e 3d 97 28 22  41 22 29 20 80 20 97 28  |l$)>=.("A") . .(|
000044b0  6c 24 29 3c 3d 97 28 22  5a 22 29 20 6c 24 3d bd  |l$)<=.("Z") l$=.|
000044c0  28 97 28 6c 24 29 2b 33  32 29 0d 1c fc 0b 6e 74  |(.(l$)+32)....nt|
000044d0  24 2b 3d 6c 24 0d 1d 06  05 ed 0d 1d 10 08 3d 6e  |$+=l$.........=n|
000044e0  74 24 0d 1d 1a 05 3a 0d  1d 24 0a dd f2 6c 6f 61  |t$....:..$...loa|
000044f0  64 0d 1d 2e 12 66 69 6c  65 74 79 70 65 3d 62 25  |d....filetype=b%|
00004500  21 34 30 0d 1d 38 10 77  69 6e 64 6f 77 3d 62 25  |!40..8.window=b%|
00004510  21 32 30 0d 1d 42 0e 69  63 6f 6e 3d 62 25 21 32  |!20..B.icon=b%!2|
00004520  34 0d 1d 4c 10 f2 74 65  72 6d 28 62 25 2b 34 34  |4..L..term(b%+44|
00004530  29 0d 1d 56 16 66 69 6c  65 6e 61 6d 65 24 3d 24  |)..V.filename$=$|
00004540  28 62 25 2b 34 34 29 0d  1d 60 15 e7 20 66 69 6c  |(b%+44)..`.. fil|
00004550  65 74 79 70 65 3d 26 46  41 46 20 8c 0d 1d 6a 0f  |etype=&FAF ...j.|
00004560  c8 8e 20 77 69 6e 64 6f  77 20 ca 0d 1d 74 13 20  |.. window ...t. |
00004570  c9 20 2d 32 3a f4 20 69  63 6f 6e 62 61 72 0d 1d  |. -2:. iconbar..|
00004580  7e 1b 20 20 f2 6c 6f 61  64 5f 64 61 74 61 28 66  |~.  .load_data(f|
00004590  69 6c 65 6e 61 6d 65 24  29 0d 1d 88 05 cb 0d 1d  |ilename$).......|
000045a0  92 05 cd 0d 1d 9c 05 e1  0d 1d a6 04 0d 1d b0 05  |................|
000045b0  3a 0d 1d ba 0c dd f2 68  65 6c 70 6d 65 0d 1d c4  |:......helpme...|
000045c0  11 77 69 6e 64 6f 77 25  3d 62 25 21 33 32 0d 1d  |.window%=b%!32..|
000045d0  ce 0f 69 63 6f 6e 25 3d  62 25 21 33 36 0d 1d d8  |..icon%=b%!36...|
000045e0  36 68 65 6c 70 24 3d 22  54 68 69 73 20 69 73 20  |6help$="This is |
000045f0  74 68 65 20 48 54 4d 4c  20 3e 20 49 6d 70 72 65  |the HTML > Impre|
00004600  73 73 69 6f 6e 20 61 70  70 6c 69 63 61 74 69 6f  |ssion applicatio|
00004610  6e 2e 22 0d 1d e2 04 0d  1d ec 10 c8 8e 20 77 69  |n.".......... wi|
00004620  6e 64 6f 77 25 20 ca 0d  1d f6 09 20 c9 20 2d 32  |ndow% ..... . -2|
00004630  0d 1e 00 69 20 20 68 65  6c 70 24 3d 22 54 68 69  |...i  help$="Thi|
00004640  73 20 69 73 20 74 68 65  20 48 54 4d 4c 20 3e 20  |s is the HTML > |
00004650  49 6d 70 72 65 73 73 69  6f 6e 20 69 63 6f 6e 2e  |Impression icon.|
00004660  7c 4d 44 72 61 67 20 61  20 48 54 4d 4c 20 66 69  ||MDrag a HTML fi|
00004670  6c 65 20 74 6f 20 63 6f  6e 76 65 72 74 20 69 74  |le to convert it|
00004680  20 69 6e 74 6f 20 49 6d  70 72 65 73 73 69 6f 6e  | into Impression|
00004690  20 66 6f 72 6d 61 74 2e  22 0d 1e 0a 04 0d 1e 14  | format.".......|
000046a0  0c 20 c9 20 69 6e 66 6f  25 0d 1e 1e 54 20 20 68  |. . info%...T  h|
000046b0  65 6c 70 24 3d 22 54 68  69 73 20 77 69 6e 64 6f  |elp$="This windo|
000046c0  77 20 73 68 6f 77 73 20  69 6e 66 6f 72 6d 61 74  |w shows informat|
000046d0  69 6f 6e 20 61 62 6f 75  74 20 74 68 65 20 48 54  |ion about the HT|
000046e0  4d 4c 20 3e 20 49 6d 70  72 65 73 73 69 6f 6e 20  |ML > Impression |
000046f0  61 70 70 6c 69 63 61 74  69 6f 6e 2e 22 0d 1e 28  |application."..(|
00004700  10 20 20 c8 8e 20 69 63  6f 6e 25 20 ca 0d 1e 32  |.  .. icon% ...2|
00004710  35 20 20 20 c9 20 30 2c  31 3a 68 65 6c 70 24 3d  |5   . 0,1:help$=|
00004720  22 54 68 69 73 20 69 73  20 74 68 65 20 6e 61 6d  |"This is the nam|
00004730  65 20 6f 66 20 74 68 65  20 70 72 6f 67 72 61 6d  |e of the program|
00004740  2e 22 0d 1e 3c 38 20 20  20 c9 20 32 2c 33 3a 68  |."..<8   . 2,3:h|
00004750  65 6c 70 24 3d 22 54 68  69 73 20 69 73 20 74 68  |elp$="This is th|
00004760  65 20 70 75 72 70 6f 73  65 20 6f 66 20 74 68 65  |e purpose of the|
00004770  20 70 72 6f 67 72 61 6d  2e 22 0d 1e 46 37 20 20  | program."..F7  |
00004780  20 c9 20 34 2c 35 3a 68  65 6c 70 24 3d 22 54 68  | . 4,5:help$="Th|
00004790  69 73 20 69 73 20 74 68  65 20 61 75 74 68 6f 72  |is is the author|
000047a0  20 6f 66 20 74 68 65 20  70 72 6f 67 72 61 6d 2e  | of the program.|
000047b0  22 0d 1e 50 3f 20 20 20  c9 20 36 2c 37 3a 68 65  |"..P?   . 6,7:he|
000047c0  6c 70 24 3d 22 54 68 69  73 20 69 73 20 74 68 65  |lp$="This is the|
000047d0  20 76 65 72 73 69 6f 6e  20 6e 75 6d 62 65 72 20  | version number |
000047e0  6f 66 20 74 68 65 20 70  72 6f 67 72 61 6d 2e 22  |of the program."|
000047f0  0d 1e 5a 07 20 20 cb 0d  1e 64 04 0d 1e 6e 0e 20  |..Z.  ...d...n. |
00004800  c9 20 73 61 76 65 61 73  25 0d 1e 78 3c 20 20 68  |. saveas%..x<  h|
00004810  65 6c 70 24 3d 22 54 6f  20 73 61 76 65 2c 20 64  |elp$="To save, d|
00004820  72 61 67 20 74 68 65 20  69 63 6f 6e 20 74 6f 20  |rag the icon to |
00004830  61 20 64 69 72 65 63 74  6f 72 79 20 64 69 73 70  |a directory disp|
00004840  6c 61 79 2e 22 0d 1e 82  10 20 20 c8 8e 20 69 63  |lay."....  .. ic|
00004850  6f 6e 25 20 ca 0d 1e 8c  41 20 20 20 c9 20 31 3a  |on% ....A   . 1:|
00004860  68 65 6c 70 24 3d 22 54  6f 20 73 61 76 65 2c 20  |help$="To save, |
00004870  64 72 61 67 20 74 68 65  20 69 63 6f 6e 20 74 6f  |drag the icon to|
00004880  20 61 20 64 69 72 65 63  74 6f 72 79 20 64 69 73  | a directory dis|
00004890  70 6c 61 79 2e 22 0d 1e  96 2d 20 20 20 c9 20 32  |play."...-   . 2|
000048a0  3a 68 65 6c 70 24 3d 22  54 79 70 65 20 69 6e 20  |:help$="Type in |
000048b0  74 68 65 20 66 69 6c 65  6e 61 6d 65 20 68 65 72  |the filename her|
000048c0  65 2e 22 0d 1e a0 31 20  20 20 c9 20 33 3a 68 65  |e."...1   . 3:he|
000048d0  6c 70 24 3d 22 43 6c 69  63 6b 20 53 45 4c 45 43  |lp$="Click SELEC|
000048e0  54 20 74 6f 20 73 61 76  65 20 74 68 65 20 66 69  |T to save the fi|
000048f0  6c 65 2e 22 0d 1e aa 07  20 20 cb 0d 1e b4 04 0d  |le."....  ......|
00004900  1e be 0d 20 c9 20 73 74  61 74 73 25 0d 1e c8 3b  |... . stats%...;|
00004910  20 20 68 65 6c 70 24 3d  22 54 68 69 73 20 77 69  |  help$="This wi|
00004920  6e 64 6f 77 20 73 68 6f  77 73 20 69 6e 66 6f 72  |ndow shows infor|
00004930  6d 61 74 69 6f 6e 20 61  62 6f 75 74 20 74 68 65  |mation about the|
00004940  20 66 69 6c 65 2e 22 0d  1e d2 10 20 20 c8 8e 20  | file."....  .. |
00004950  69 63 6f 6e 25 20 ca 0d  1e dc 44 20 20 20 c9 20  |icon% ....D   . |
00004960  30 2c 31 3a 68 65 6c 70  24 3d 22 54 68 69 73 20  |0,1:help$="This |
00004970  69 73 20 74 68 65 20 66  69 6c 65 6e 61 6d 65 20  |is the filename |
00004980  6f 66 20 74 68 65 20 6f  72 69 67 69 6e 61 6c 20  |of the original |
00004990  48 54 4d 4c 20 66 69 6c  65 2e 22 0d 1e e6 4f 20  |HTML file."...O |
000049a0  20 20 c9 20 32 2c 33 3a  68 65 6c 70 24 3d 22 54  |  . 2,3:help$="T|
000049b0  68 69 73 20 69 73 20 74  68 65 20 73 69 7a 65 20  |his is the size |
000049c0  28 69 6e 20 4b 69 6c 6f  62 79 74 65 73 29 20 6f  |(in Kilobytes) o|
000049d0  66 20 74 68 65 20 6f 72  69 67 69 6e 61 6c 20 48  |f the original H|
000049e0  54 4d 4c 20 66 69 6c 65  2e 22 0d 1e f0 56 20 20  |TML file."...V  |
000049f0  20 c9 20 34 2c 35 3a 68  65 6c 70 24 3d 22 54 68  | . 4,5:help$="Th|
00004a00  69 73 20 69 73 20 74 68  65 20 73 69 7a 65 20 28  |is is the size (|
00004a10  69 6e 20 4b 69 6c 6f 62  79 74 65 73 29 20 6f 66  |in Kilobytes) of|
00004a20  20 74 68 65 20 63 6f 6e  76 65 72 74 65 64 20 49  | the converted I|
00004a30  6d 70 72 65 73 73 69 6f  6e 20 66 69 6c 65 2e 22  |mpression file."|
00004a40  0d 1e fa 5c 20 20 20 c9  20 36 2c 37 3a 68 65 6c  |...\   . 6,7:hel|
00004a50  70 24 3d 22 54 68 69 73  20 69 73 20 74 68 65 20  |p$="This is the |
00004a60  74 69 6d 65 20 74 61 6b  65 6e 20 74 6f 20 63 6f  |time taken to co|
00004a70  6e 76 65 72 74 20 74 68  65 20 48 54 4d 4c 20 66  |nvert the HTML f|
00004a80  69 6c 65 20 69 6e 74 6f  20 49 6d 70 72 65 73 73  |ile into Impress|
00004a90  69 6f 6e 20 66 6f 72 6d  61 74 2e 22 0d 1f 04 07  |ion format."....|
00004aa0  20 20 cb 0d 1f 0e 05 cb  0d 1f 18 05 3a 0d 1f 22  |  ..........:.."|
00004ab0  0f 62 25 21 30 30 20 3d  20 32 35 36 0d 1f 2c 10  |.b%!00 = 256..,.|
00004ac0  62 25 21 31 32 20 3d 20  62 25 21 38 0d 1f 36 11  |b%!12 = b%!8..6.|
00004ad0  62 25 21 31 36 20 3d 20  26 30 35 30 33 0d 1f 40  |b%!16 = &0503..@|
00004ae0  13 24 28 62 25 2b 32 30  29 3d 20 68 65 6c 70 24  |.$(b%+20)= help$|
00004af0  0d 1f 4a 24 c8 99 20 22  57 69 6d 70 5f 53 65 6e  |..J$.. "Wimp_Sen|
00004b00  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 62 25 2c  |dMessage",17,b%,|
00004b10  62 25 21 34 0d 1f 54 05  e1 0d 1f 5e 04 0d 1f 68  |b%!4..T....^...h|
00004b20  04 0d 1f 72 10 f4 20 3e  20 57 49 4d 50 68 65 61  |...r.. > WIMPhea|
00004b30  70 0d 1f 7c 35 f4 20 70  72 6f 76 69 64 65 73 20  |p..|5. provides |
00004b40  61 20 68 65 61 70 20 61  62 6f 76 65 20 74 68 65  |a heap above the|
00004b50  20 42 41 53 49 43 20 77  6f 72 6b 73 70 61 63 65  | BASIC workspace|
00004b60  20 77 68 69 63 68 0d 1f  86 28 f4 20 65 78 74 65  | which...(. exte|
00004b70  6e 64 73 20 61 6e 64 20  63 6f 6e 74 72 61 63 74  |nds and contract|
00004b80  73 20 61 73 20 6e 65 63  65 73 73 61 72 79 0d 1f  |s as necessary..|
00004b90  90 14 f4 20 62 79 20 42  65 6e 20 53 75 6d 6d 65  |... by Ben Summe|
00004ba0  72 73 0d 1f 9a 04 0d 1f  a4 19 dd f2 77 69 6d 70  |rs..........wimp|
00004bb0  68 65 61 70 5f 69 6e 69  74 69 61 6c 69 73 65 0d  |heap_initialise.|
00004bc0  1f ae 0a 20 20 ea 20 74  25 0d 1f b8 2c 20 20 c8  |...  . t%...,  .|
00004bd0  99 20 22 4f 53 5f 52 65  61 64 4d 65 6d 4d 61 70  |. "OS_ReadMemMap|
00004be0  49 6e 66 6f 22 20 b8 20  5f 77 68 5f 70 61 67 65  |Info" . _wh_page|
00004bf0  73 69 7a 65 25 0d 1f c2  23 20 20 5f 77 68 5f 68  |size%...#  _wh_h|
00004c00  65 61 70 73 69 7a 65 25  20 3d 20 5f 77 68 5f 70  |eapsize% = _wh_p|
00004c10  61 67 65 73 69 7a 65 25  0d 1f cc 23 20 20 c8 99  |agesize%...#  ..|
00004c20  20 22 57 69 6d 70 5f 53  6c 6f 74 53 69 7a 65 22  | "Wimp_SlotSize"|
00004c30  2c 2d 31 2c 2d 31 20 b8  20 74 25 0d 1f d6 1f 20  |,-1,-1 . t%.... |
00004c40  20 5f 77 68 5f 68 65 61  70 6c 6f 63 25 20 3d 20  | _wh_heaploc% = |
00004c50  74 25 20 2b 20 26 38 30  30 30 0d 1f e0 40 20 20  |t% + &8000...@  |
00004c60  c8 99 20 22 57 69 6d 70  5f 53 6c 6f 74 53 69 7a  |.. "Wimp_SlotSiz|
00004c70  65 22 2c 5f 77 68 5f 68  65 61 70 6c 6f 63 25 20  |e",_wh_heaploc% |
00004c80  2b 20 5f 77 68 5f 68 65  61 70 73 69 7a 65 25 20  |+ _wh_heapsize% |
00004c90  2d 20 26 38 30 30 30 2c  2d 31 0d 1f ea 30 20 20  |- &8000,-1...0  |
00004ca0  c8 99 20 22 4f 53 5f 48  65 61 70 22 2c 30 2c 5f  |.. "OS_Heap",0,_|
00004cb0  77 68 5f 68 65 61 70 6c  6f 63 25 2c 2c 5f 77 68  |wh_heaploc%,,_wh|
00004cc0  5f 68 65 61 70 73 69 7a  65 25 0d 1f f4 05 e1 0d  |_heapsize%......|
00004cd0  1f fe 04 0d 20 08 1b dd  a4 77 69 6d 70 68 65 61  |.... ....wimphea|
00004ce0  70 5f 63 6c 61 69 6d 28  73 69 7a 65 25 29 0d 20  |p_claim(size%). |
00004cf0  12 0a 20 20 ea 20 61 25  0d 20 1c 30 20 20 c8 99  |..  . a%. .0  ..|
00004d00  20 22 58 4f 53 5f 48 65  61 70 22 2c 32 2c 5f 77  | "XOS_Heap",2,_w|
00004d10  68 5f 68 65 61 70 6c 6f  63 25 2c 2c 73 69 7a 65  |h_heaploc%,,size|
00004d20  25 20 b8 20 2c 2c 61 25  0d 20 26 15 20 20 e7 20  |% . ,,a%. &.  . |
00004d30  61 25 20 3c 3e 20 30 20  8c 20 3d 61 25 0d 20 30  |a% <> 0 . =a%. 0|
00004d40  2d 20 20 e7 20 a4 5f 77  69 6d 70 68 65 61 70 5f  |-  . ._wimpheap_|
00004d50  65 78 74 65 6e 64 68 65  61 70 28 73 69 7a 65 25  |extendheap(size%|
00004d60  29 20 3d 20 a3 20 8c 20  3d 30 0d 20 3a 30 20 20  |) = . . =0. :0  |
00004d70  c8 99 20 22 58 4f 53 5f  48 65 61 70 22 2c 32 2c  |.. "XOS_Heap",2,|
00004d80  5f 77 68 5f 68 65 61 70  6c 6f 63 25 2c 2c 73 69  |_wh_heaploc%,,si|
00004d90  7a 65 25 20 b8 20 2c 2c  61 25 0d 20 44 17 20 20  |ze% . ,,a%. D.  |
00004da0  f2 5f 77 69 6d 70 68 65  61 70 5f 73 68 72 69 6e  |._wimpheap_shrin|
00004db0  6b 0d 20 4e 07 3d 61 25  0d 20 58 04 0d 20 62 26  |k. N.=a%. X.. b&|
00004dc0  dd a4 77 69 6d 70 68 65  61 70 5f 65 78 74 65 6e  |..wimpheap_exten|
00004dd0  64 28 62 6c 6f 63 6b 25  2c 20 63 68 61 6e 67 65  |d(block%, change|
00004de0  25 29 0d 20 6c 10 20 20  ea 20 6e 25 2c 66 25 2c  |%). l.  . n%,f%,|
00004df0  74 25 0d 20 76 3c 20 20  c8 99 20 22 58 4f 53 5f  |t%. v<  .. "XOS_|
00004e00  48 65 61 70 22 2c 34 2c  5f 77 68 5f 68 65 61 70  |Heap",4,_wh_heap|
00004e10  6c 6f 63 25 2c 62 6c 6f  63 6b 25 2c 63 68 61 6e  |loc%,block%,chan|
00004e20  67 65 25 20 b8 20 2c 2c  6e 25 20 3b 66 25 0d 20  |ge% . ,,n% ;f%. |
00004e30  80 19 20 20 e7 28 66 25  20 80 20 31 29 20 3d 20  |..  .(f% . 1) = |
00004e40  30 20 8c 20 3d 6e 25 0d  20 8a 30 20 20 c8 99 20  |0 . =n%. .0  .. |
00004e50  22 4f 53 5f 48 65 61 70  22 2c 36 2c 5f 77 68 5f  |"OS_Heap",6,_wh_|
00004e60  68 65 61 70 6c 6f 63 25  2c 62 6c 6f 63 6b 25 20  |heaploc%,block% |
00004e70  b8 20 2c 2c 2c 74 25 0d  20 94 32 20 20 e7 20 a4  |. ,,,t%. .2  . .|
00004e80  5f 77 69 6d 70 68 65 61  70 5f 65 78 74 65 6e 64  |_wimpheap_extend|
00004e90  68 65 61 70 28 74 25 2b  63 68 61 6e 67 65 25 29  |heap(t%+change%)|
00004ea0  20 3d 20 a3 20 8c 20 3d  30 0d 20 9e 3c 20 20 c8  | = . . =0. .<  .|
00004eb0  99 20 22 58 4f 53 5f 48  65 61 70 22 2c 34 2c 5f  |. "XOS_Heap",4,_|
00004ec0  77 68 5f 68 65 61 70 6c  6f 63 25 2c 62 6c 6f 63  |wh_heaploc%,bloc|
00004ed0  6b 25 2c 63 68 61 6e 67  65 25 20 b8 20 2c 2c 6e  |k%,change% . ,,n|
00004ee0  25 20 3b 66 25 0d 20 a8  19 20 20 e7 28 66 25 20  |% ;f%. ..  .(f% |
00004ef0  80 20 31 29 20 3d 20 30  20 8c 20 3d 6e 25 0d 20  |. 1) = 0 . =n%. |
00004f00  b2 06 3d 30 0d 20 bc 04  0d 20 c6 1b dd a4 77 69  |..=0. ... ....wi|
00004f10  6d 70 68 65 61 70 5f 66  72 65 65 28 62 6c 6f 63  |mpheap_free(bloc|
00004f20  6b 25 29 0d 20 d0 28 20  20 c8 99 20 22 4f 53 5f  |k%). .(  .. "OS_|
00004f30  48 65 61 70 22 2c 33 2c  5f 77 68 5f 68 65 61 70  |Heap",3,_wh_heap|
00004f40  6c 6f 63 25 2c 62 6c 6f  63 6b 25 0d 20 da 17 20  |loc%,block%. .. |
00004f50  20 f2 5f 77 69 6d 70 68  65 61 70 5f 73 68 72 69  | ._wimpheap_shri|
00004f60  6e 6b 0d 20 e4 06 3d 30  0d 20 ee 04 0d 20 f8 21  |nk. ..=0. ... .!|
00004f70  dd a4 5f 77 69 6d 70 68  65 61 70 5f 65 78 74 65  |.._wimpheap_exte|
00004f80  6e 64 68 65 61 70 28 73  69 7a 65 25 29 0d 21 02  |ndheap(size%).!.|
00004f90  0d 20 20 ea 20 73 25 2c  66 25 0d 21 0c 34 20 20  |.  . s%,f%.!.4  |
00004fa0  73 25 20 3d 20 a4 5f 77  69 6d 70 68 65 61 70 5f  |s% = ._wimpheap_|
00004fb0  72 6f 75 6e 64 75 70 28  5f 77 68 5f 68 65 61 70  |roundup(_wh_heap|
00004fc0  73 69 7a 65 25 20 2b 20  73 69 7a 65 25 29 0d 21  |size% + size%).!|
00004fd0  16 3c 20 20 c8 99 20 22  58 57 69 6d 70 5f 53 6c  |.<  .. "XWimp_Sl|
00004fe0  6f 74 53 69 7a 65 22 2c  5f 77 68 5f 68 65 61 70  |otSize",_wh_heap|
00004ff0  6c 6f 63 25 20 2b 20 73  25 20 2d 20 26 38 30 30  |loc% + s% - &800|
00005000  30 2c 2d 31 20 b8 20 3b  66 25 0d 21 20 18 20 20  |0,-1 . ;f%.! .  |
00005010  e7 28 66 25 20 80 20 31  29 20 3d 20 31 20 8c 20  |.(f% . 1) = 1 . |
00005020  3d a3 0d 21 2a 35 20 20  c8 99 20 22 4f 53 5f 48  |=..!*5  .. "OS_H|
00005030  65 61 70 22 2c 35 2c 5f  77 68 5f 68 65 61 70 6c  |eap",5,_wh_heapl|
00005040  6f 63 25 2c 2c 73 25 20  2d 20 5f 77 68 5f 68 65  |oc%,,s% - _wh_he|
00005050  61 70 73 69 7a 65 25 0d  21 34 18 20 20 5f 77 68  |apsize%.!4.  _wh|
00005060  5f 68 65 61 70 73 69 7a  65 25 20 3d 20 73 25 0d  |_heapsize% = s%.|
00005070  21 3e 06 3d b9 0d 21 48  04 0d 21 52 16 dd f2 5f  |!>.=..!H..!R..._|
00005080  77 69 6d 70 68 65 61 70  5f 73 68 72 69 6e 6b 0d  |wimpheap_shrink.|
00005090  21 5c 0d 20 20 ea 20 73  25 2c 74 25 0d 21 66 18  |!\.  . s%,t%.!f.|
000050a0  20 20 73 25 20 3d 20 5f  77 68 5f 68 65 61 70 73  |  s% = _wh_heaps|
000050b0  69 7a 65 25 0d 21 70 2f  20 20 c8 99 20 22 58 4f  |ize%.!p/  .. "XO|
000050c0  53 5f 48 65 61 70 22 2c  35 2c 5f 77 68 5f 68 65  |S_Heap",5,_wh_he|
000050d0  61 70 6c 6f 63 25 2c 2c  2d 73 25 20 b8 20 2c 2c  |aploc%,,-s% . ,,|
000050e0  2c 74 25 0d 21 7a 1a 20  20 e7 20 74 25 20 3d 20  |,t%.!z.  . t% = |
000050f0  2d 73 25 20 8c 20 74 25  20 3d 20 73 25 0d 21 84  |-s% . t% = s%.!.|
00005100  3c 20 20 5f 77 68 5f 68  65 61 70 73 69 7a 65 25  |<  _wh_heapsize%|
00005110  20 3d 20 a4 5f 77 69 6d  70 68 65 61 70 5f 72 6f  | = ._wimpheap_ro|
00005120  75 6e 64 75 70 28 5f 77  68 5f 68 65 61 70 73 69  |undup(_wh_heapsi|
00005130  7a 65 25 20 2d 20 74 25  29 0d 21 8e 3d 20 20 c8  |ze% - t%).!.=  .|
00005140  99 20 22 58 4f 53 5f 48  65 61 70 22 2c 35 2c 5f  |. "XOS_Heap",5,_|
00005150  77 68 5f 68 65 61 70 6c  6f 63 25 2c 2c 5f 77 68  |wh_heaploc%,,_wh|
00005160  5f 68 65 61 70 73 69 7a  65 25 20 2d 20 28 73 25  |_heapsize% - (s%|
00005170  20 2d 20 74 25 29 0d 21  98 40 20 20 c8 99 20 22  | - t%).!.@  .. "|
00005180  57 69 6d 70 5f 53 6c 6f  74 53 69 7a 65 22 2c 5f  |Wimp_SlotSize",_|
00005190  77 68 5f 68 65 61 70 6c  6f 63 25 20 2b 20 5f 77  |wh_heaploc% + _w|
000051a0  68 5f 68 65 61 70 73 69  7a 65 25 20 2d 20 26 38  |h_heapsize% - &8|
000051b0  30 30 30 2c 2d 31 0d 21  a2 05 e1 0d 21 ac 04 0d  |000,-1.!....!...|
000051c0  21 b6 1b dd a4 5f 77 69  6d 70 68 65 61 70 5f 72  |!...._wimpheap_r|
000051d0  6f 75 6e 64 75 70 28 73  25 29 0d 21 c0 0a 20 20  |oundup(s%).!..  |
000051e0  ea 20 74 25 0d 21 ca 22  20 20 e7 28 73 25 20 83  |. t%.!."  .(s% .|
000051f0  20 5f 77 68 5f 70 61 67  65 73 69 7a 65 25 29 20  | _wh_pagesize%) |
00005200  3c 3e 20 30 20 8c 0d 21  d4 31 20 20 20 20 74 25  |<> 0 ..!.1    t%|
00005210  20 3d 20 5f 77 68 5f 70  61 67 65 73 69 7a 65 25  | = _wh_pagesize%|
00005220  20 2d 20 28 73 25 20 83  20 5f 77 68 5f 70 61 67  | - (s% . _wh_pag|
00005230  65 73 69 7a 65 25 29 0d  21 de 10 20 20 20 20 73  |esize%).!..    s|
00005240  25 20 2b 3d 20 74 25 0d  21 e8 07 20 20 cd 0d 21  |% += t%.!..  ..!|
00005250  f2 07 3d 73 25 0d 21 fc  04 0d 22 06 1a dd a4 77  |..=s%.!..."....w|
00005260  69 6d 70 68 65 61 70 5f  6c 61 72 67 65 73 74 66  |impheap_largestf|
00005270  72 65 65 0d 22 10 0a 20  20 ea 20 74 25 0d 22 1a  |ree."..  . t%.".|
00005280  28 20 20 c8 99 20 22 4f  53 5f 48 65 61 70 22 2c  |(  .. "OS_Heap",|
00005290  31 2c 5f 77 68 5f 68 65  61 70 6c 6f 63 25 20 b8  |1,_wh_heaploc% .|
000052a0  20 2c 2c 74 25 0d 22 24  07 3d 74 25 0d 22 2e 04  | ,,t%."$.=t%."..|
000052b0  0d 22 38 04 0d ff                                 |."8...|
000052b6