� >!RunImage
� for !Periodic
"Version$="1.5 (15th Nov 1993)"
(� Chris Allen
2� � Archimedes World
<
F*active%=-1:current%=0:nolists%=0:ww%=1
P�� wimp% 5000, wind% 1300, sprite% 8500, menu% 400, info% 700, in% 200, save% 200, sa% 300, gre% 100, greetin% 700, srch% 200, searcher% 400, ele% 1500, elemnt% 1600, not% 400, notes% 400, help% 500
Z�� name$(103),symbol$(103),atomicno$(103),ram$(103),group$(103),period$(103),melt$(103),boil$(103),struct$(103),state$(103),who$(103),date$(103),ionic$(103),data1$(103),data2$(103),data3$(103),data4$(103),data5$(103),extra$(5,103),lt% 800, lst% 800
d;� list$(11), listno%(11), last$(4), new$(5), inter% 600
nsprite%!0=8500
xsprite%!8=16
�!ș "OS_SpriteOp",&109,sprite%
�9ș "OS_SpriteOp",&10A,sprite%,"<Period$Dir>.!Sprites"
�1ș &400C0,200,&4B534154,"Periodic" � ,apphan%
�'ș &400D9,,"<Period$Dir>.Templates"
�wimp%!64=sprite%
�5ș &400DB,,greetin%,gre%,gre%+100,-1,"Greeting",0
�#ș &400C1,,greetin% � greethan%
�&�seticon(greethan%,4,"v"+Version$)
�[wimp%!0=greethan%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%
�!��err(�,�$+" at line "+�(�))
��
�ș &400C7,,wimp% � r%
�Ȏ r% �

� 0 : Ȏ active% �

$  � -1 : active%=0:�continueload

   : �checknote

"�

,'� 1 : ș "Wimp_RedrawWindow",,wimp%

6� 2 : ș &400C5,,wimp%

@8� 3 : ș &400C6,,wimp%:� wimp%!0=elementhan% �update

J� 6 : �click

T� 7 : �drag_complete

^� 8 : Ȏ wimp%!24 �

h            � 13 : �key

r            � 398 : �down

|            � 399 : �up

�0             : ș"Wimp_ProcessKey",wimp%!24

�         �

�� 9 : �menuselect

�� 17,18 : Ȏ wimp%!16 �

�  � 0 : ș &400DD,apphan%

�  � 2 : �save

�  � &502 : �interactive

��

��

�� �

�

���continueload

�2ș &400DB,,wimp%,wind%,wind%+1300,-1,"Table",0
 ș &400C1,,wimp% � tablehan%
,ș &400DB,,info%,in%,in%+200,-1,"info",0
ș &400C1,,info% � inhan%
&0ș &400DB,,save%,sa%,sa%+300,-1,"save_box",0
0ș &400C1,,save% � savehan%
:6ș &400DB,,searcher%,srch%,srch%+200,-1,"Search",0
D$ș &400C1,,searcher% � searchan%
N4ș &400DB,,elemnt%,ele%,ele%+1500,-1,"Element",0
X$ș &400C1,,elemnt% � elementhan%
b0ș &400DB,,notes%,not%,not%+400,-1,"Notes",0
l ș &400C1,,notes% � notehan%
v+ș &400DB,,lst%,lt%,lt%+800,-1,"List",0
�ș &400C1,,lst% � listhan%
�
ș &400DA
��loadelements
��iconbar
��seticon(inhan%,4,Version$)
�1wimp%!0=greethan%:ș"Wimp_CloseWindow",,wimp%
��
�
�!��toggleicon(wimp%!0,wimp%!4)
�wimp%!8=&200000:wimp%!12=0
�!ș "Wimp_SetIconState",,wimp%
��
�
	��key
#� wimp%!0=notehan% Ȏ wimp%!4 �
M  � 3 : ș"Wimp_SetCaretPosition",notehan%,4,,,-1,�(�geticon(notehan%,4))
 M  � 4 : ș"Wimp_SetCaretPosition",notehan%,5,,,-1,�(�geticon(notehan%,5))
*M  � 5 : ș"Wimp_SetCaretPosition",notehan%,6,,,-1,�(�geticon(notehan%,6))
4M  � 6 : ș"Wimp_SetCaretPosition",notehan%,7,,,-1,�(�geticon(notehan%,7))
>M  � 7 : ș"Wimp_SetCaretPosition",notehan%,3,,,-1,�(�geticon(notehan%,3))
H�
R.� wimp%!0=searchan% � wimp%!4=1 �searchy:�
\3� wimp%!0=savehan% � wimp%!4=1 �getfilename � �
fO� �filena$,".")=0 �err(1,"To save, drag the icon to a directory viewer."):�
pfilename$=filena$
zș "Wimp_CreateMenu",-1
�
�dothingy
��
�
���up
�#� wimp%!0=notehan% Ȏ wimp%!4 �
�M  � 3 : ș"Wimp_SetCaretPosition",notehan%,7,,,-1,�(�geticon(notehan%,7))
�M  � 4 : ș"Wimp_SetCaretPosition",notehan%,3,,,-1,�(�geticon(notehan%,3))
�M  � 5 : ș"Wimp_SetCaretPosition",notehan%,4,,,-1,�(�geticon(notehan%,4))
�M  � 6 : ș"Wimp_SetCaretPosition",notehan%,5,,,-1,�(�geticon(notehan%,5))
�M  � 7 : ș"Wimp_SetCaretPosition",notehan%,6,,,-1,�(�geticon(notehan%,6))
��
��
�

��down
#� wimp%!0=notehan% Ȏ wimp%!4 �
M  � 3 : ș"Wimp_SetCaretPosition",notehan%,4,,,-1,�(�geticon(notehan%,4))
$M  � 4 : ș"Wimp_SetCaretPosition",notehan%,5,,,-1,�(�geticon(notehan%,5))
.M  � 5 : ș"Wimp_SetCaretPosition",notehan%,6,,,-1,�(�geticon(notehan%,6))
8M  � 6 : ș"Wimp_SetCaretPosition",notehan%,7,,,-1,�(�geticon(notehan%,7))
BM  � 7 : ș"Wimp_SetCaretPosition",notehan%,3,,,-1,�(�geticon(notehan%,3))
L�
V�
`
j��checknote
t
� f=1 � 5
~"new$(f)=�geticon(notehan%,f+2)
�� f
�
� f=1 � 4
�G� �(new$(f))=69 � �(last$(f))=68 � �new$(f),1,68)=last$(f) �sortout
�� f
�
� f=1 � 4
�last$(f)=new$(f)
�� f
��
�
�
��sortout
�	pos=0
�� d=�(new$(f)) � 0 � -1
]� �new$(f),d,1)=" " � �new$(f),d,1)="." � �new$(f),d,1)="," � �new$(f),d,1)="!" g=1 � g=0

� pos=0 � g=1 pos=d
� d
	cp%=0
(8� �(new$(f+1))+(�(new$(f))-pos)<70 � pos>0 � ww%=1 �
2length%=�(new$(f))-pos
<*�seticon(notehan%,f+2,�new$(f),1,pos))
FE�seticon(notehan%,f+3,�new$(f),pos+1,�(new$(f))-pos+1)+new$(f+1))
P6new$(f+1)=�new$(f),pos+1,�(new$(f))-pos)+new$(f+1)
Znew$(f)=�new$(f),1,pos)
dcp%=length%
n�
o3ș"Wimp_SetCaretPosition",notehan%,f+3,,,-1,cp%
��
�
���update
�%�toggleicon(tablehan%,current%-1)
�current%=0
��
�
���ok
�� wimp%!8<>1 � wimp%!8<>4 �
��getfilename
�O� �filena$,".")=0 �err(1,"To save, drag the icon to a directory viewer."):�
�filename$=filena$:�dothingy
��

��drag_complete
#ș "Wimp_GetPointerInfo",,wimp%
"=TheWindow%=wimp%!12:TheIcon%=wimp%!16:x=wimp%!0:y=wimp%!4
,Jwimp%!0=64:wimp%!12=0:wimp%!16=1:wimp%!20=TheWindow%:wimp%!24=TheIcon%
64wimp%!28=x:wimp%!32=y:wimp%!36=600:wimp%!40=&FFF
@$(wimp%+44)=filena$
J6ș "Wimp_SendMessage",17,wimp%,TheWindow%,TheIcon%
T�
^
h
��save
r!x=wimp%!0:y=wimp%!4:z=wimp%!8
| filename$=�convert(wimp%+44)
�#wimp%!0=x:wimp%!12=z:wimp%!16=3
�$ș "Wimp_SendMessage",18,wimp%,y
�(filename$=�fixstring(filename$+�(0))
�
�dothingy
��
�
�ݤconvert(no%)
�string$=""
�ȕ ?no%
�string$+=�?no%
�
no%+=1
��
�=string$

��interactive
	t$=""
&inter%=wimp%
0inter%!12=wimp%!8
:inter%!16=&503
DȎ inter%!32 �
N\� -2 : t$="This is the Periodic icon.|MClick on the icon to display the periodic table."
X�� tablehan% : t$="The periodic table.|MClick on an element of your choice to display information on it.":� wimp%!36>-1 � wimp%!36<103 t$+="|M("+name$((wimp%!36)+1)+")."
b�� searchan% : t$="The search window.|MEnter an element name/symbol and click on OK to display the element.|M'*' acts as a wildcard, so T* will display all the elements with a name/symbol beginning with the letter T."
l+� inhan% : t$="What.. When.. Who by..."
v�� listhan% : t$="The possible elements.|MThese elements fit the description of your search.|MClick on the element of your choice."
��� elementhan% : t$="The element info window.|MAll the information on "+name$(eleno%)+" that you ever needed to know.|MAdd your own notes via the menu."
��� savehan% : t$="The save box.|MSave the element information by dragging the icon to a directory viewer in the usual RISC OS fashion."
��� notehan% : t$="The notes window.|MAdd your own notes into the information on disc by clicking on OK when you have written them, otherwise they will be lost if you change the element."
�.� greethan% : t$="!Periodic is loading..."
��
�t$+=�(0)
�$(inter%+20)=t$
�#inter%!0=(((20+�(t$)+1)�4)*4)+4
�#ș "Wimp_SendMessage",17,inter%
��
�
���dothingy
�A%=�(filename$)
(�#A%,"Information on "+name$(eleno%)
�#A%,""
�#A%,"Name: "+name$(eleno%)
 #�#A%,"Symbol: "+symbol$(eleno%)
*,�#A%,"Atomic number: "+atomicno$(eleno%)
4.�#A%,"Relative atomic mass: "+ram$(eleno%)
>6� group$(eleno%)<>"" �#A%,"Group: "+group$(eleno%)
H9� period$(eleno%)<>"" �#A%,"Period: "+period$(eleno%)
R<� melt$(eleno%)<>"" �#A%,"Melting point: "+melt$(eleno%)
\<� boil$(eleno%)<>"" �#A%,"Boiling point: "+boil$(eleno%)
fD� struct$(eleno%)<>"" �#A%,"Type of structure: "+struct$(eleno%)
pC� state$(eleno%)<>"" �#A%,"State at room temp: "+state$(eleno%)
zd� who$(eleno%)<>"" � date$(eleno%)<>"" �#A%,"Discovered by: "+who$(eleno%)+" in: "+date$(eleno%)
�M� who$(eleno%)<>"" � date$(eleno%)="" �#A%,"Discovered by: "+who$(eleno%)
�N� who$(eleno%)="" � date$(eleno%)<>"" �#A%,"Discovered in: "+date$(eleno%)
�;� ionic$(eleno%)<>"" �#A%,"Ionic form: "+ionic$(eleno%)
�2� data1$(eleno%)<>"" �#A%,"Other Information:"
�,� data1$(eleno%)<>"" �#A%,data1$(eleno%)
�,� data2$(eleno%)<>"" �#A%,data2$(eleno%)
�,� data3$(eleno%)<>"" �#A%,data3$(eleno%)
�,� data4$(eleno%)<>"" �#A%,data4$(eleno%)
�,� data5$(eleno%)<>"" �#A%,data5$(eleno%)
ބ� extra$(1,eleno%)<>"" � extra$(2,eleno%)<>"" � extra$(3,eleno%)<>"" � extra$(4,eleno%)<>"" � extra$(5,eleno%)<>"" �#A%,"Notes:"
�0� extra$(1,eleno%)<>"" �#A%,extra$(1,eleno%)
�0� extra$(2,eleno%)<>"" �#A%,extra$(2,eleno%)
�0� extra$(3,eleno%)<>"" �#A%,extra$(3,eleno%)
	0� extra$(4,eleno%)<>"" �#A%,extra$(4,eleno%)
	0� extra$(5,eleno%)<>"" �#A%,extra$(5,eleno%)
	�#A%
	$ �"Settype "+filename$+" FFF"
	.ș "Wimp_CreateMenu",-1
	8�
	B
	L��err(wimp%!0,$(wimp%+4))
	V
Ȏ � �
	`[� 67788,67798: $(wimp%+4)+=" - try changing the filename in the save box, then saving."
	jP� 67779: $(wimp%+4)+=" - you need to unlock the file before saving over it."
	t]� 67782: $(wimp%+4)+=" - save on to another disc or make room on this one before saving."
	~M� 67785: $(wimp%+4)+=" - try switching the tab on the disc, then saving."
	��
	�,ș "Wimp_ReportError",wimp%,1,"Periodic"
	��
	�
	�
��searchy
	��getword
	�� word$="" �
	�� �word$,"*")>0 �wildcard:�
	�� c=1 � 103
	�5� �changecase(name$(c))=word$ eleno%=c:�produce:�
	�� c
	�� c=1 � 103
7� �changecase(symbol$(c))=word$ eleno%=c:�produce:�

� c
,�err(1,"Element/Symbol not recognised.")
�
(
2��wildcard
<
wd$=""
F� d=1 � �(word$)
P'� �word$,d,1)<>"*" wd$+=�word$,d,1)
Z� d
d
word$=wd$
n8� word$="" �err(1,"All elements fit description."):�
xe=0
�� d=1 � 11
�list$(d)=""
�� d
�� d=1 � 103
�i� ��changecase(name$(d)),�(word$))=word$ � ��changecase(symbol$(d)),�(word$))=word$ e+=1:listno%(e)=d
�� d
�2� e=0 �err(1,"No elements fit description."):�
�
� d=1 � e
�;list$(d)=name$(listno%(d))+" ("+symbol$(listno%(d))+")"
�� d
�� d=1 � 11
�#�seticon(listhan%,d-1,list$(d))
�� d
3wimp%!0=listhan%:ș"Wimp_GetWindowState",,wimp%
4wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%:listyn%=1
ș "Wimp_CreateMenu",-1
"nolists%=e
,�
6
@
��produce
JK�toggleicon(tablehan%,eleno%-1):ș"Wimp_CreateMenu",-1:�bringup(eleno%)
T2� current%>0 �toggleicon(tablehan%,current%-1)
^current%=eleno%
h�
r
|��loadelements
�!A%=�("<Period$Dir>.Elements")
�� a=1 � 103
�name$(a)=�#A%
�symbol$(a)=�#A%
�atomicno$(a)=�#A%
�ram$(a)=�#A%
�group$(a)=�#A%
�period$(a)=�#A%
�melt$(a)=�#A%
�boil$(a)=�#A%
�str$=�#A%:Ȏ str$ �
�*  � "gm" : struct$(a)="Giant Metallic"
�,  � "sm" : struct$(a)="Simple Molecular"
*  � "gc" : struct$(a)="Giant Covalent"
  � "" : struct$(a)=""
�
&state$(a)=�#A%
0who$(a)=�#A%
:date$(a)=�#A%
Dionic$(a)=�#A%
Ndata1$(a)=�#A%
Xdata2$(a)=�#A%
bdata3$(a)=�#A%
ldata4$(a)=�#A%
vdata5$(a)=�#A%
�space$=�#A%
�� a
��#A%
�A%=�("<Period$Dir>.Notes")
�� a=1 � 103
�
� b=1 � 5
�extra$(b,a)=�#A%
�� b
�� a
��#A%
��
�
���bringup(elementno%)

savetext$=name$(elementno%)

3� �(savetext$)>10 savetext$=�shorten(savetext$)

'�seticon(savehan%,1,savetext$+�(0))

 *�seticon(notehan%,1,name$(elementno%))

*-�seticon(notehan%,3,extra$(1,elementno%))

4-�seticon(notehan%,4,extra$(2,elementno%))

>-�seticon(notehan%,5,extra$(3,elementno%))

H-�seticon(notehan%,6,extra$(4,elementno%))

R-�seticon(notehan%,7,extra$(5,elementno%))

\-�seticon(elementhan%,1,name$(elementno%))

f/�seticon(elementhan%,3,symbol$(elementno%))

p1�seticon(elementhan%,5,atomicno$(elementno%))

z,�seticon(elementhan%,7,ram$(elementno%))

�.�seticon(elementhan%,9,group$(elementno%))

�0�seticon(elementhan%,11,period$(elementno%))

�.�seticon(elementhan%,13,melt$(elementno%))

�.�seticon(elementhan%,15,boil$(elementno%))

�0�seticon(elementhan%,17,struct$(elementno%))

�/�seticon(elementhan%,23,state$(elementno%))

�-�seticon(elementhan%,19,who$(elementno%))

�.�seticon(elementhan%,21,date$(elementno%))

�/�seticon(elementhan%,31,ionic$(elementno%))

�/�seticon(elementhan%,25,data1$(elementno%))

�/�seticon(elementhan%,26,data2$(elementno%))

�/�seticon(elementhan%,27,data3$(elementno%))

�/�seticon(elementhan%,28,data4$(elementno%))
/�seticon(elementhan%,29,data5$(elementno%))
1�seticon(elementhan%,33,extra$(1,elementno%))
1�seticon(elementhan%,34,extra$(2,elementno%))
$1�seticon(elementhan%,35,extra$(3,elementno%))
.1�seticon(elementhan%,36,extra$(4,elementno%))
81�seticon(elementhan%,37,extra$(5,elementno%))
B0wimp%!0=listhan%:ș"Wimp_CloseWindow",,wimp%
L6wimp%!0=elementhan%:ș"Wimp_GetWindowState",,wimp%
V*wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%
`�
j
t
��iconbar
~"wimp%!0=-1:wimp%!4=0:wimp%!8=0
�*wimp%!12=65:wimp%!16=75:wimp%!20=&300A
�$(wimp%+24)="!Periodic"
�(ș "Wimp_CreateIcon",,wimp% � ichan%
��
�
���menuselect
�a%=wimp%!0:b%=wimp%!4
�#ș "Wimp_GetPointerInfo",,wimp%
�but%=wimp%!8
�wimp%!0=a%:wimp%!4=b%
�'� s=2 � wimp%!0=3 ș &400DD,apphan%
�� s<>2 �
Ȏ wimp%!0 �

e  � 1 : wimp%!0=tablehan%:ș "Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș "Wimp_OpenWindow",,wimp%
  � 3 : ș &400DD,apphan%
�
(�
2G� but%=1 � s=2 � wimp%!0<>3 wimp%!0=mousx%:wimp%!4=mousy%:�makemenu
<H� but%=1 � s<>2 � wimp%!0<>3 wimp%!0=mousx%:wimp%!4=mousy%:�makemenu
F�
P
Z��getfilename
dwimp%!0=savehan%:wimp%!4=1
nș &400CE,,wimp%
xfilena$=$wimp%!28
�filena$=�fixstring(filena$)
��
�
�ݤgeticon(wind%,icn%)
�wimp%!0=wind%:wimp%!4=icn%
�ș &400CE,,wimp%
�str$=$wimp%!28
�=�fixstring(str$+�(0))
�
���notes(bt%)
�)extra$(1,eleno%)=�geticon(notehan%,3)
�)extra$(2,eleno%)=�geticon(notehan%,4)
�)extra$(3,eleno%)=�geticon(notehan%,5)
)extra$(4,eleno%)=�geticon(notehan%,6)
)extra$(5,eleno%)=�geticon(notehan%,7)
-�seticon(elementhan%,33,extra$(1,eleno%))
"-�seticon(elementhan%,34,extra$(2,eleno%))
,-�seticon(elementhan%,35,extra$(3,eleno%))
6-�seticon(elementhan%,36,extra$(4,eleno%))
@-�seticon(elementhan%,37,extra$(5,eleno%))
JA%=�("<Period$Dir>.Notes")
T� a=1 � 103
^
� b=1 � 5
h�#A%,extra$(b,a)
r� b
|� a
��#A%
�"� bt%=4 ș"Wimp_CreateMenu",-1
��
�
�ݤfixstring(origname$)
�p=1:name$=""
�ȕ �origname$,p,1)<>�(0)
�name$+=�origname$,p,1):p+=1
��
�
=name$
�
�
��getword
�wimp%!0=searchan%:wimp%!4=1
ș &400CE,,wimp%
word$=$wimp%!28
7� word$="" �err(1,"You need to enter something!"):�
&word$=�changecase(word$)
0�
:
D��justfile
Nȕ �filena$,".")>0
X%filena$=�filena$,�filena$,".")+1)
b�
l�
v
�$��seticon(wimp%!0,wimp%!4,text$)
�ș &400CE,,wimp%
�$wimp%!28=text$
�wimp%!8=0:wimp%!12=0
�ș &400CD,,wimp%
��
�
�
��drag
�� wimp%!12<>savehan% �
��getfilename:�justfile
�4wimp%!0=savehan%:ș "Wimp_GetWindowState",,wimp%
�"x=wimp%!4:y=wimp%!16:wimp%!4=0
�!ș "Wimp_GetIconState",,wimp%
(wimp%!4=5:wimp%!8+=x-4:wimp%!12+=y-4
wimp%!16+=x+4:wimp%!20+=y+4
wimp%!24=0:wimp%!28=0
 )wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF
*ș "Wimp_DragBox",,wimp%
4�
>
H��click
R#� wimp%!8=16 � wimp%!8=64 �drag
\z� wimp%!8=4 � wimp%!12=tablehan% � wimp%!16<103 � wimp%!16>=0 eleno%=wimp%!16+1:current%=eleno%:�bringup(wimp%!16+1):�
fw� wimp%!8=1 � wimp%!12=tablehan% � wimp%!16=current%-1 current%=0:wimp%!0=elementhan%:ș"Wimp_CloseWindow",,wimp%:�
p�� wimp%!8=1 � wimp%!12=tablehan% � wimp%!16<>current%-1 � wimp%!16>=0 � wimp%!16<103 current%=wimp%!16+1:eleno%=current%:�bringup(eleno%):�
z(� wimp%!12=savehan% � wimp%!16=2 �ok
�<� wimp%!12=notehan% � wimp%!16=9 � wimp%!8=1 �notes(1):�
�<� wimp%!12=notehan% � wimp%!16=9 � wimp%!8=4 �notes(4):�
�1� wimp%!12=notehan% � wimp%!16=10 ww%=1-ww%:�
�2� wimp%!8=2 � wimp%!12=tablehan% s=0:�makemenu
�+� wimp%!12=-2 � wimp%!8=2 s=1:�makemenu
�4� wimp%!8=2 � wimp%!12=elementhan% s=2:�makemenu
�u� wimp%!8=4 � wimp%!12=-2 wimp%!0=tablehan%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%
�0� wimp%!12=searchan% � wimp%!16=7 �searchy:�
ԭ� wimp%!12=listhan% � wimp%!8=1 � wimp%!16<nolists% � wimp%!16>-1 ico%=wimp%!16:wimp%!0=listhan%:ș"Wimp_CloseWindow",,wimp%:nolists%=0:eleno%=listno%(ico%+1):�produce:�
ޫ� wimp%!12=listhan% � wimp%!8=4 � wimp%!16<nolists% � wimp%!16>-1 ico%=wimp%!16:wimp%!0=listhan%:ș"Wimp_CloseWindow",,wimp%:nolists%=0:eleno%=listno%(ico%+1):�produce
��
�
���makemenu
$menu%="Periodic"
menu%?12=7
menu%?13=2
$menu%?14=7
.menu%?15=0
8menu%!16=135
Bmenu%!20=44
Lmenu%!24=0
Vmenu%!28=2
`menu%!32=inhan%
jmenu%!36=&07000021
t$(menu%+40)="Info"
~menu%!52=0
�menu%!56=-1
�menu%!60=&07000021
�$(menu%+64)="Table..."
�menu%!76=2
�menu%!80=searchan%
�menu%!84=&07000021
�$(menu%+88)="Search"
�menu%!100=&80
�menu%!104=-1
�menu%!108=&07000021
�$(menu%+112)="Quit"
�� s=2 �
  menutitle$=name$(eleno%)

8  � �(menutitle$)>10 menutitle$=�shorten(menutitle$)
  $menu%=menutitle$
  menu%!16=180
(  menu%!56=savehan%
2  $(menu%+64)="Save�Text"
<  menu%!80=notehan%
F  $(menu%+88)="Add Notes"
P�
Z!mousx%=wimp%!0:mousy%=wimp%!4
d>� s=0 � s=2 ș "Wimp_CreateMenu",,menu%,wimp%!0-70,wimp%!4
n4� s=1 ș "Wimp_CreateMenu",,menu%,wimp%!0-68,320
x�
�
�ݤshorten(text$)
�txt$=""
�� a=1 � �(text$)
�asc%=�(�text$,a,1))
�� a<7 txt$+=�text$,a,1)
�V� a>6 � asc%<>97 � asc%<>101 � asc%<>105 � asc%<>111 � asc%<>117 txt$+=�text$,a,1)
�� a
�	=txt$
�
�ݤchangecase(a$)
�wrd$=""
�� a=1 � �(a$)
l=�(�a$,a,1))
� l>96 � l<123 l-=32
� l>223 � l<256 l-=32
"wrd$+=�(l)
,� a
6	=wrd$
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 13 f4 20 66 6f  72 20 21 50 65 72 69 6f  |..... for !Perio|
00000020  64 69 63 0d 00 1e 22 56  65 72 73 69 6f 6e 24 3d  |dic..."Version$=|
00000030  22 31 2e 35 20 28 31 35  74 68 20 4e 6f 76 20 31  |"1.5 (15th Nov 1|
00000040  39 39 33 29 22 0d 00 28  11 f4 20 43 68 72 69 73  |993)"..(.. Chris|
00000050  20 41 6c 6c 65 6e 0d 00  32 18 f4 20 a9 20 41 72  | Allen..2.. . Ar|
00000060  63 68 69 6d 65 64 65 73  20 57 6f 72 6c 64 0d 00  |chimedes World..|
00000070  3c 04 0d 00 46 2a 61 63  74 69 76 65 25 3d 2d 31  |<...F*active%=-1|
00000080  3a 63 75 72 72 65 6e 74  25 3d 30 3a 6e 6f 6c 69  |:current%=0:noli|
00000090  73 74 73 25 3d 30 3a 77  77 25 3d 31 0d 00 50 c9  |sts%=0:ww%=1..P.|
000000a0  de 20 77 69 6d 70 25 20  35 30 30 30 2c 20 77 69  |. wimp% 5000, wi|
000000b0  6e 64 25 20 31 33 30 30  2c 20 73 70 72 69 74 65  |nd% 1300, sprite|
000000c0  25 20 38 35 30 30 2c 20  6d 65 6e 75 25 20 34 30  |% 8500, menu% 40|
000000d0  30 2c 20 69 6e 66 6f 25  20 37 30 30 2c 20 69 6e  |0, info% 700, in|
000000e0  25 20 32 30 30 2c 20 73  61 76 65 25 20 32 30 30  |% 200, save% 200|
000000f0  2c 20 73 61 25 20 33 30  30 2c 20 67 72 65 25 20  |, sa% 300, gre% |
00000100  31 30 30 2c 20 67 72 65  65 74 69 6e 25 20 37 30  |100, greetin% 70|
00000110  30 2c 20 73 72 63 68 25  20 32 30 30 2c 20 73 65  |0, srch% 200, se|
00000120  61 72 63 68 65 72 25 20  34 30 30 2c 20 65 6c 65  |archer% 400, ele|
00000130  25 20 31 35 30 30 2c 20  65 6c 65 6d 6e 74 25 20  |% 1500, elemnt% |
00000140  31 36 30 30 2c 20 6e 6f  74 25 20 34 30 30 2c 20  |1600, not% 400, |
00000150  6e 6f 74 65 73 25 20 34  30 30 2c 20 68 65 6c 70  |notes% 400, help|
00000160  25 20 35 30 30 0d 00 5a  fb de 20 6e 61 6d 65 24  |% 500..Z.. name$|
00000170  28 31 30 33 29 2c 73 79  6d 62 6f 6c 24 28 31 30  |(103),symbol$(10|
00000180  33 29 2c 61 74 6f 6d 69  63 6e 6f 24 28 31 30 33  |3),atomicno$(103|
00000190  29 2c 72 61 6d 24 28 31  30 33 29 2c 67 72 6f 75  |),ram$(103),grou|
000001a0  70 24 28 31 30 33 29 2c  70 65 72 69 6f 64 24 28  |p$(103),period$(|
000001b0  31 30 33 29 2c 6d 65 6c  74 24 28 31 30 33 29 2c  |103),melt$(103),|
000001c0  62 6f 69 6c 24 28 31 30  33 29 2c 73 74 72 75 63  |boil$(103),struc|
000001d0  74 24 28 31 30 33 29 2c  73 74 61 74 65 24 28 31  |t$(103),state$(1|
000001e0  30 33 29 2c 77 68 6f 24  28 31 30 33 29 2c 64 61  |03),who$(103),da|
000001f0  74 65 24 28 31 30 33 29  2c 69 6f 6e 69 63 24 28  |te$(103),ionic$(|
00000200  31 30 33 29 2c 64 61 74  61 31 24 28 31 30 33 29  |103),data1$(103)|
00000210  2c 64 61 74 61 32 24 28  31 30 33 29 2c 64 61 74  |,data2$(103),dat|
00000220  61 33 24 28 31 30 33 29  2c 64 61 74 61 34 24 28  |a3$(103),data4$(|
00000230  31 30 33 29 2c 64 61 74  61 35 24 28 31 30 33 29  |103),data5$(103)|
00000240  2c 65 78 74 72 61 24 28  35 2c 31 30 33 29 2c 6c  |,extra$(5,103),l|
00000250  74 25 20 38 30 30 2c 20  6c 73 74 25 20 38 30 30  |t% 800, lst% 800|
00000260  0d 00 64 3b de 20 6c 69  73 74 24 28 31 31 29 2c  |..d;. list$(11),|
00000270  20 6c 69 73 74 6e 6f 25  28 31 31 29 2c 20 6c 61  | listno%(11), la|
00000280  73 74 24 28 34 29 2c 20  6e 65 77 24 28 35 29 2c  |st$(4), new$(5),|
00000290  20 69 6e 74 65 72 25 20  36 30 30 0d 00 6e 12 73  | inter% 600..n.s|
000002a0  70 72 69 74 65 25 21 30  3d 38 35 30 30 0d 00 78  |prite%!0=8500..x|
000002b0  10 73 70 72 69 74 65 25  21 38 3d 31 36 0d 00 82  |.sprite%!8=16...|
000002c0  21 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |!.. "OS_SpriteOp|
000002d0  22 2c 26 31 30 39 2c 73  70 72 69 74 65 25 0d 00  |",&109,sprite%..|
000002e0  8c 39 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |.9.. "OS_SpriteO|
000002f0  70 22 2c 26 31 30 41 2c  73 70 72 69 74 65 25 2c  |p",&10A,sprite%,|
00000300  22 3c 50 65 72 69 6f 64  24 44 69 72 3e 2e 21 53  |"<Period$Dir>.!S|
00000310  70 72 69 74 65 73 22 0d  00 96 31 c8 99 20 26 34  |prites"...1.. &4|
00000320  30 30 43 30 2c 32 30 30  2c 26 34 42 35 33 34 31  |00C0,200,&4B5341|
00000330  35 34 2c 22 50 65 72 69  6f 64 69 63 22 20 b8 20  |54,"Periodic" . |
00000340  2c 61 70 70 68 61 6e 25  0d 00 a0 27 c8 99 20 26  |,apphan%...'.. &|
00000350  34 30 30 44 39 2c 2c 22  3c 50 65 72 69 6f 64 24  |400D9,,"<Period$|
00000360  44 69 72 3e 2e 54 65 6d  70 6c 61 74 65 73 22 0d  |Dir>.Templates".|
00000370  00 aa 14 77 69 6d 70 25  21 36 34 3d 73 70 72 69  |...wimp%!64=spri|
00000380  74 65 25 0d 00 b4 35 c8  99 20 26 34 30 30 44 42  |te%...5.. &400DB|
00000390  2c 2c 67 72 65 65 74 69  6e 25 2c 67 72 65 25 2c  |,,greetin%,gre%,|
000003a0  67 72 65 25 2b 31 30 30  2c 2d 31 2c 22 47 72 65  |gre%+100,-1,"Gre|
000003b0  65 74 69 6e 67 22 2c 30  0d 00 be 23 c8 99 20 26  |eting",0...#.. &|
000003c0  34 30 30 43 31 2c 2c 67  72 65 65 74 69 6e 25 20  |400C1,,greetin% |
000003d0  b8 20 67 72 65 65 74 68  61 6e 25 0d 00 c8 26 f2  |. greethan%...&.|
000003e0  73 65 74 69 63 6f 6e 28  67 72 65 65 74 68 61 6e  |seticon(greethan|
000003f0  25 2c 34 2c 22 76 22 2b  56 65 72 73 69 6f 6e 24  |%,4,"v"+Version$|
00000400  29 0d 00 d2 5b 77 69 6d  70 25 21 30 3d 67 72 65  |)...[wimp%!0=gre|
00000410  65 74 68 61 6e 25 3a c8  99 22 57 69 6d 70 5f 47  |ethan%:.."Wimp_G|
00000420  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00000430  77 69 6d 70 25 3a 77 69  6d 70 25 21 32 38 3d 2d  |wimp%:wimp%!28=-|
00000440  31 3a c8 99 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |1:.."Wimp_OpenWi|
00000450  6e 64 6f 77 22 2c 2c 77  69 6d 70 25 0d 00 dc 21  |ndow",,wimp%...!|
00000460  ee 85 f2 65 72 72 28 9f  2c f6 24 2b 22 20 61 74  |...err(.,.$+" at|
00000470  20 6c 69 6e 65 20 22 2b  c3 28 9e 29 29 0d 00 e6  | line "+.(.))...|
00000480  05 f5 0d 00 f0 19 c8 99  20 26 34 30 30 43 37 2c  |........ &400C7,|
00000490  2c 77 69 6d 70 25 20 b8  20 72 25 0d 00 fa 0b c8  |,wimp% . r%.....|
000004a0  8e 20 72 25 20 ca 0d 01  04 16 c9 20 30 20 3a 20  |. r% ...... 0 : |
000004b0  c8 8e 20 61 63 74 69 76  65 25 20 ca 0d 01 0e 24  |.. active% ....$|
000004c0  20 20 c9 20 2d 31 20 3a  20 61 63 74 69 76 65 25  |  . -1 : active%|
000004d0  3d 30 3a f2 63 6f 6e 74  69 6e 75 65 6c 6f 61 64  |=0:.continueload|
000004e0  0d 01 18 14 20 20 7f 20  3a 20 f2 63 68 65 63 6b  |....  . : .check|
000004f0  6e 6f 74 65 0d 01 22 05  cb 0d 01 2c 27 c9 20 31  |note.."....,'. 1|
00000500  20 3a 20 c8 99 20 22 57  69 6d 70 5f 52 65 64 72  | : .. "Wimp_Redr|
00000510  61 77 57 69 6e 64 6f 77  22 2c 2c 77 69 6d 70 25  |awWindow",,wimp%|
00000520  0d 01 36 1a c9 20 32 20  3a 20 c8 99 20 26 34 30  |..6.. 2 : .. &40|
00000530  30 43 35 2c 2c 77 69 6d  70 25 0d 01 40 38 c9 20  |0C5,,wimp%..@8. |
00000540  33 20 3a 20 c8 99 20 26  34 30 30 43 36 2c 2c 77  |3 : .. &400C6,,w|
00000550  69 6d 70 25 3a e7 20 77  69 6d 70 25 21 30 3d 65  |imp%:. wimp%!0=e|
00000560  6c 65 6d 65 6e 74 68 61  6e 25 20 f2 75 70 64 61  |lementhan% .upda|
00000570  74 65 0d 01 4a 10 c9 20  36 20 3a 20 f2 63 6c 69  |te..J.. 6 : .cli|
00000580  63 6b 0d 01 54 18 c9 20  37 20 3a 20 f2 64 72 61  |ck..T.. 7 : .dra|
00000590  67 5f 63 6f 6d 70 6c 65  74 65 0d 01 5e 17 c9 20  |g_complete..^.. |
000005a0  38 20 3a 20 c8 8e 20 77  69 6d 70 25 21 32 34 20  |8 : .. wimp%!24 |
000005b0  ca 0d 01 68 1b 20 20 20  20 20 20 20 20 20 20 20  |...h.           |
000005c0  20 c9 20 31 33 20 3a 20  f2 6b 65 79 0d 01 72 1d  | . 13 : .key..r.|
000005d0  20 20 20 20 20 20 20 20  20 20 20 20 c9 20 33 39  |            . 39|
000005e0  38 20 3a 20 f2 64 6f 77  6e 0d 01 7c 1b 20 20 20  |8 : .down..|.   |
000005f0  20 20 20 20 20 20 20 20  20 c9 20 33 39 39 20 3a  |         . 399 :|
00000600  20 f2 75 70 0d 01 86 30  20 20 20 20 20 20 20 20  | .up...0        |
00000610  20 20 20 20 7f 20 3a 20  c8 99 22 57 69 6d 70 5f  |    . : .."Wimp_|
00000620  50 72 6f 63 65 73 73 4b  65 79 22 2c 77 69 6d 70  |ProcessKey",wimp|
00000630  25 21 32 34 0d 01 90 0e  20 20 20 20 20 20 20 20  |%!24....        |
00000640  20 cb 0d 01 9a 15 c9 20  39 20 3a 20 f2 6d 65 6e  | ...... 9 : .men|
00000650  75 73 65 6c 65 63 74 0d  01 a4 1b c9 20 31 37 2c  |uselect..... 17,|
00000660  31 38 20 3a 20 c8 8e 20  77 69 6d 70 25 21 31 36  |18 : .. wimp%!16|
00000670  20 ca 0d 01 ae 1d 20 20  c9 20 30 20 3a 20 c8 99  | .....  . 0 : ..|
00000680  20 26 34 30 30 44 44 2c  61 70 70 68 61 6e 25 0d  | &400DD,apphan%.|
00000690  01 b8 11 20 20 c9 20 32  20 3a 20 f2 73 61 76 65  |...  . 2 : .save|
000006a0  0d 01 c2 1b 20 20 c9 20  26 35 30 32 20 3a 20 f2  |....  . &502 : .|
000006b0  69 6e 74 65 72 61 63 74  69 76 65 0d 01 cc 05 cb  |interactive.....|
000006c0  0d 01 d6 05 cb 0d 01 e0  07 fd 20 a3 0d 01 ea 04  |.......... .....|
000006d0  0d 01 f4 12 dd f2 63 6f  6e 74 69 6e 75 65 6c 6f  |......continuelo|
000006e0  61 64 0d 01 fe 32 c8 99  20 26 34 30 30 44 42 2c  |ad...2.. &400DB,|
000006f0  2c 77 69 6d 70 25 2c 77  69 6e 64 25 2c 77 69 6e  |,wimp%,wind%,win|
00000700  64 25 2b 31 33 30 30 2c  2d 31 2c 22 54 61 62 6c  |d%+1300,-1,"Tabl|
00000710  65 22 2c 30 0d 02 08 20  c8 99 20 26 34 30 30 43  |e",0... .. &400C|
00000720  31 2c 2c 77 69 6d 70 25  20 b8 20 74 61 62 6c 65  |1,,wimp% . table|
00000730  68 61 6e 25 0d 02 12 2c  c8 99 20 26 34 30 30 44  |han%...,.. &400D|
00000740  42 2c 2c 69 6e 66 6f 25  2c 69 6e 25 2c 69 6e 25  |B,,info%,in%,in%|
00000750  2b 32 30 30 2c 2d 31 2c  22 69 6e 66 6f 22 2c 30  |+200,-1,"info",0|
00000760  0d 02 1c 1d c8 99 20 26  34 30 30 43 31 2c 2c 69  |...... &400C1,,i|
00000770  6e 66 6f 25 20 b8 20 69  6e 68 61 6e 25 0d 02 26  |nfo% . inhan%..&|
00000780  30 c8 99 20 26 34 30 30  44 42 2c 2c 73 61 76 65  |0.. &400DB,,save|
00000790  25 2c 73 61 25 2c 73 61  25 2b 33 30 30 2c 2d 31  |%,sa%,sa%+300,-1|
000007a0  2c 22 73 61 76 65 5f 62  6f 78 22 2c 30 0d 02 30  |,"save_box",0..0|
000007b0  1f c8 99 20 26 34 30 30  43 31 2c 2c 73 61 76 65  |... &400C1,,save|
000007c0  25 20 b8 20 73 61 76 65  68 61 6e 25 0d 02 3a 36  |% . savehan%..:6|
000007d0  c8 99 20 26 34 30 30 44  42 2c 2c 73 65 61 72 63  |.. &400DB,,searc|
000007e0  68 65 72 25 2c 73 72 63  68 25 2c 73 72 63 68 25  |her%,srch%,srch%|
000007f0  2b 32 30 30 2c 2d 31 2c  22 53 65 61 72 63 68 22  |+200,-1,"Search"|
00000800  2c 30 0d 02 44 24 c8 99  20 26 34 30 30 43 31 2c  |,0..D$.. &400C1,|
00000810  2c 73 65 61 72 63 68 65  72 25 20 b8 20 73 65 61  |,searcher% . sea|
00000820  72 63 68 61 6e 25 0d 02  4e 34 c8 99 20 26 34 30  |rchan%..N4.. &40|
00000830  30 44 42 2c 2c 65 6c 65  6d 6e 74 25 2c 65 6c 65  |0DB,,elemnt%,ele|
00000840  25 2c 65 6c 65 25 2b 31  35 30 30 2c 2d 31 2c 22  |%,ele%+1500,-1,"|
00000850  45 6c 65 6d 65 6e 74 22  2c 30 0d 02 58 24 c8 99  |Element",0..X$..|
00000860  20 26 34 30 30 43 31 2c  2c 65 6c 65 6d 6e 74 25  | &400C1,,elemnt%|
00000870  20 b8 20 65 6c 65 6d 65  6e 74 68 61 6e 25 0d 02  | . elementhan%..|
00000880  62 30 c8 99 20 26 34 30  30 44 42 2c 2c 6e 6f 74  |b0.. &400DB,,not|
00000890  65 73 25 2c 6e 6f 74 25  2c 6e 6f 74 25 2b 34 30  |es%,not%,not%+40|
000008a0  30 2c 2d 31 2c 22 4e 6f  74 65 73 22 2c 30 0d 02  |0,-1,"Notes",0..|
000008b0  6c 20 c8 99 20 26 34 30  30 43 31 2c 2c 6e 6f 74  |l .. &400C1,,not|
000008c0  65 73 25 20 b8 20 6e 6f  74 65 68 61 6e 25 0d 02  |es% . notehan%..|
000008d0  76 2b c8 99 20 26 34 30  30 44 42 2c 2c 6c 73 74  |v+.. &400DB,,lst|
000008e0  25 2c 6c 74 25 2c 6c 74  25 2b 38 30 30 2c 2d 31  |%,lt%,lt%+800,-1|
000008f0  2c 22 4c 69 73 74 22 2c  30 0d 02 80 1e c8 99 20  |,"List",0...... |
00000900  26 34 30 30 43 31 2c 2c  6c 73 74 25 20 b8 20 6c  |&400C1,,lst% . l|
00000910  69 73 74 68 61 6e 25 0d  02 8a 0d c8 99 20 26 34  |isthan%...... &4|
00000920  30 30 44 41 0d 02 94 11  f2 6c 6f 61 64 65 6c 65  |00DA.....loadele|
00000930  6d 65 6e 74 73 0d 02 9e  0c f2 69 63 6f 6e 62 61  |ments.....iconba|
00000940  72 0d 02 a8 1f f2 73 65  74 69 63 6f 6e 28 69 6e  |r.....seticon(in|
00000950  68 61 6e 25 2c 34 2c 56  65 72 73 69 6f 6e 24 29  |han%,4,Version$)|
00000960  0d 02 b2 31 77 69 6d 70  25 21 30 3d 67 72 65 65  |...1wimp%!0=gree|
00000970  74 68 61 6e 25 3a c8 99  22 57 69 6d 70 5f 43 6c  |than%:.."Wimp_Cl|
00000980  6f 73 65 57 69 6e 64 6f  77 22 2c 2c 77 69 6d 70  |oseWindow",,wimp|
00000990  25 0d 02 bc 05 e1 0d 02  c6 04 0d 02 d0 21 dd f2  |%............!..|
000009a0  74 6f 67 67 6c 65 69 63  6f 6e 28 77 69 6d 70 25  |toggleicon(wimp%|
000009b0  21 30 2c 77 69 6d 70 25  21 34 29 0d 02 da 1e 77  |!0,wimp%!4)....w|
000009c0  69 6d 70 25 21 38 3d 26  32 30 30 30 30 30 3a 77  |imp%!8=&200000:w|
000009d0  69 6d 70 25 21 31 32 3d  30 0d 02 e4 21 c8 99 20  |imp%!12=0...!.. |
000009e0  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
000009f0  74 65 22 2c 2c 77 69 6d  70 25 0d 02 ee 05 e1 0d  |te",,wimp%......|
00000a00  02 f8 04 0d 03 02 09 dd  f2 6b 65 79 0d 03 0c 23  |.........key...#|
00000a10  e7 20 77 69 6d 70 25 21  30 3d 6e 6f 74 65 68 61  |. wimp%!0=noteha|
00000a20  6e 25 20 c8 8e 20 77 69  6d 70 25 21 34 20 ca 0d  |n% .. wimp%!4 ..|
00000a30  03 16 4d 20 20 c9 20 33  20 3a 20 c8 99 22 57 69  |..M  . 3 : .."Wi|
00000a40  6d 70 5f 53 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_SetCaretPosit|
00000a50  69 6f 6e 22 2c 6e 6f 74  65 68 61 6e 25 2c 34 2c  |ion",notehan%,4,|
00000a60  2c 2c 2d 31 2c a9 28 a4  67 65 74 69 63 6f 6e 28  |,,-1,.(.geticon(|
00000a70  6e 6f 74 65 68 61 6e 25  2c 34 29 29 0d 03 20 4d  |notehan%,4)).. M|
00000a80  20 20 c9 20 34 20 3a 20  c8 99 22 57 69 6d 70 5f  |  . 4 : .."Wimp_|
00000a90  53 65 74 43 61 72 65 74  50 6f 73 69 74 69 6f 6e  |SetCaretPosition|
00000aa0  22 2c 6e 6f 74 65 68 61  6e 25 2c 35 2c 2c 2c 2d  |",notehan%,5,,,-|
00000ab0  31 2c a9 28 a4 67 65 74  69 63 6f 6e 28 6e 6f 74  |1,.(.geticon(not|
00000ac0  65 68 61 6e 25 2c 35 29  29 0d 03 2a 4d 20 20 c9  |ehan%,5))..*M  .|
00000ad0  20 35 20 3a 20 c8 99 22  57 69 6d 70 5f 53 65 74  | 5 : .."Wimp_Set|
00000ae0  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 6e  |CaretPosition",n|
00000af0  6f 74 65 68 61 6e 25 2c  36 2c 2c 2c 2d 31 2c a9  |otehan%,6,,,-1,.|
00000b00  28 a4 67 65 74 69 63 6f  6e 28 6e 6f 74 65 68 61  |(.geticon(noteha|
00000b10  6e 25 2c 36 29 29 0d 03  34 4d 20 20 c9 20 36 20  |n%,6))..4M  . 6 |
00000b20  3a 20 c8 99 22 57 69 6d  70 5f 53 65 74 43 61 72  |: .."Wimp_SetCar|
00000b30  65 74 50 6f 73 69 74 69  6f 6e 22 2c 6e 6f 74 65  |etPosition",note|
00000b40  68 61 6e 25 2c 37 2c 2c  2c 2d 31 2c a9 28 a4 67  |han%,7,,,-1,.(.g|
00000b50  65 74 69 63 6f 6e 28 6e  6f 74 65 68 61 6e 25 2c  |eticon(notehan%,|
00000b60  37 29 29 0d 03 3e 4d 20  20 c9 20 37 20 3a 20 c8  |7))..>M  . 7 : .|
00000b70  99 22 57 69 6d 70 5f 53  65 74 43 61 72 65 74 50  |."Wimp_SetCaretP|
00000b80  6f 73 69 74 69 6f 6e 22  2c 6e 6f 74 65 68 61 6e  |osition",notehan|
00000b90  25 2c 33 2c 2c 2c 2d 31  2c a9 28 a4 67 65 74 69  |%,3,,,-1,.(.geti|
00000ba0  63 6f 6e 28 6e 6f 74 65  68 61 6e 25 2c 33 29 29  |con(notehan%,3))|
00000bb0  0d 03 48 05 cb 0d 03 52  2e e7 20 77 69 6d 70 25  |..H....R.. wimp%|
00000bc0  21 30 3d 73 65 61 72 63  68 61 6e 25 20 80 20 77  |!0=searchan% . w|
00000bd0  69 6d 70 25 21 34 3d 31  20 f2 73 65 61 72 63 68  |imp%!4=1 .search|
00000be0  79 3a e1 0d 03 5c 33 e7  20 77 69 6d 70 25 21 30  |y:...\3. wimp%!0|
00000bf0  3d 73 61 76 65 68 61 6e  25 20 80 20 77 69 6d 70  |=savehan% . wimp|
00000c00  25 21 34 3d 31 20 f2 67  65 74 66 69 6c 65 6e 61  |%!4=1 .getfilena|
00000c10  6d 65 20 8b 20 e1 0d 03  66 4f e7 20 a7 66 69 6c  |me . ...fO. .fil|
00000c20  65 6e 61 24 2c 22 2e 22  29 3d 30 20 f2 65 72 72  |ena$,".")=0 .err|
00000c30  28 31 2c 22 54 6f 20 73  61 76 65 2c 20 64 72 61  |(1,"To save, dra|
00000c40  67 20 74 68 65 20 69 63  6f 6e 20 74 6f 20 61 20  |g the icon to a |
00000c50  64 69 72 65 63 74 6f 72  79 20 76 69 65 77 65 72  |directory viewer|
00000c60  2e 22 29 3a e1 0d 03 70  15 66 69 6c 65 6e 61 6d  |."):...p.filenam|
00000c70  65 24 3d 66 69 6c 65 6e  61 24 0d 03 7a 1b c8 99  |e$=filena$..z...|
00000c80  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
00000c90  75 22 2c 2d 31 0d 03 84  0d f2 64 6f 74 68 69 6e  |u",-1.....dothin|
00000ca0  67 79 0d 03 8e 05 e1 0d  03 98 04 0d 03 a2 08 dd  |gy..............|
00000cb0  f2 75 70 0d 03 ac 23 e7  20 77 69 6d 70 25 21 30  |.up...#. wimp%!0|
00000cc0  3d 6e 6f 74 65 68 61 6e  25 20 c8 8e 20 77 69 6d  |=notehan% .. wim|
00000cd0  70 25 21 34 20 ca 0d 03  b6 4d 20 20 c9 20 33 20  |p%!4 ....M  . 3 |
00000ce0  3a 20 c8 99 22 57 69 6d  70 5f 53 65 74 43 61 72  |: .."Wimp_SetCar|
00000cf0  65 74 50 6f 73 69 74 69  6f 6e 22 2c 6e 6f 74 65  |etPosition",note|
00000d00  68 61 6e 25 2c 37 2c 2c  2c 2d 31 2c a9 28 a4 67  |han%,7,,,-1,.(.g|
00000d10  65 74 69 63 6f 6e 28 6e  6f 74 65 68 61 6e 25 2c  |eticon(notehan%,|
00000d20  37 29 29 0d 03 c0 4d 20  20 c9 20 34 20 3a 20 c8  |7))...M  . 4 : .|
00000d30  99 22 57 69 6d 70 5f 53  65 74 43 61 72 65 74 50  |."Wimp_SetCaretP|
00000d40  6f 73 69 74 69 6f 6e 22  2c 6e 6f 74 65 68 61 6e  |osition",notehan|
00000d50  25 2c 33 2c 2c 2c 2d 31  2c a9 28 a4 67 65 74 69  |%,3,,,-1,.(.geti|
00000d60  63 6f 6e 28 6e 6f 74 65  68 61 6e 25 2c 33 29 29  |con(notehan%,3))|
00000d70  0d 03 ca 4d 20 20 c9 20  35 20 3a 20 c8 99 22 57  |...M  . 5 : .."W|
00000d80  69 6d 70 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |imp_SetCaretPosi|
00000d90  74 69 6f 6e 22 2c 6e 6f  74 65 68 61 6e 25 2c 34  |tion",notehan%,4|
00000da0  2c 2c 2c 2d 31 2c a9 28  a4 67 65 74 69 63 6f 6e  |,,,-1,.(.geticon|
00000db0  28 6e 6f 74 65 68 61 6e  25 2c 34 29 29 0d 03 d4  |(notehan%,4))...|
00000dc0  4d 20 20 c9 20 36 20 3a  20 c8 99 22 57 69 6d 70  |M  . 6 : .."Wimp|
00000dd0  5f 53 65 74 43 61 72 65  74 50 6f 73 69 74 69 6f  |_SetCaretPositio|
00000de0  6e 22 2c 6e 6f 74 65 68  61 6e 25 2c 35 2c 2c 2c  |n",notehan%,5,,,|
00000df0  2d 31 2c a9 28 a4 67 65  74 69 63 6f 6e 28 6e 6f  |-1,.(.geticon(no|
00000e00  74 65 68 61 6e 25 2c 35  29 29 0d 03 de 4d 20 20  |tehan%,5))...M  |
00000e10  c9 20 37 20 3a 20 c8 99  22 57 69 6d 70 5f 53 65  |. 7 : .."Wimp_Se|
00000e20  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
00000e30  6e 6f 74 65 68 61 6e 25  2c 36 2c 2c 2c 2d 31 2c  |notehan%,6,,,-1,|
00000e40  a9 28 a4 67 65 74 69 63  6f 6e 28 6e 6f 74 65 68  |.(.geticon(noteh|
00000e50  61 6e 25 2c 36 29 29 0d  03 e8 05 cb 0d 03 f2 05  |an%,6)).........|
00000e60  e1 0d 03 fc 04 0d 04 06  0a dd f2 64 6f 77 6e 0d  |...........down.|
00000e70  04 10 23 e7 20 77 69 6d  70 25 21 30 3d 6e 6f 74  |..#. wimp%!0=not|
00000e80  65 68 61 6e 25 20 c8 8e  20 77 69 6d 70 25 21 34  |ehan% .. wimp%!4|
00000e90  20 ca 0d 04 1a 4d 20 20  c9 20 33 20 3a 20 c8 99  | ....M  . 3 : ..|
00000ea0  22 57 69 6d 70 5f 53 65  74 43 61 72 65 74 50 6f  |"Wimp_SetCaretPo|
00000eb0  73 69 74 69 6f 6e 22 2c  6e 6f 74 65 68 61 6e 25  |sition",notehan%|
00000ec0  2c 34 2c 2c 2c 2d 31 2c  a9 28 a4 67 65 74 69 63  |,4,,,-1,.(.getic|
00000ed0  6f 6e 28 6e 6f 74 65 68  61 6e 25 2c 34 29 29 0d  |on(notehan%,4)).|
00000ee0  04 24 4d 20 20 c9 20 34  20 3a 20 c8 99 22 57 69  |.$M  . 4 : .."Wi|
00000ef0  6d 70 5f 53 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_SetCaretPosit|
00000f00  69 6f 6e 22 2c 6e 6f 74  65 68 61 6e 25 2c 35 2c  |ion",notehan%,5,|
00000f10  2c 2c 2d 31 2c a9 28 a4  67 65 74 69 63 6f 6e 28  |,,-1,.(.geticon(|
00000f20  6e 6f 74 65 68 61 6e 25  2c 35 29 29 0d 04 2e 4d  |notehan%,5))...M|
00000f30  20 20 c9 20 35 20 3a 20  c8 99 22 57 69 6d 70 5f  |  . 5 : .."Wimp_|
00000f40  53 65 74 43 61 72 65 74  50 6f 73 69 74 69 6f 6e  |SetCaretPosition|
00000f50  22 2c 6e 6f 74 65 68 61  6e 25 2c 36 2c 2c 2c 2d  |",notehan%,6,,,-|
00000f60  31 2c a9 28 a4 67 65 74  69 63 6f 6e 28 6e 6f 74  |1,.(.geticon(not|
00000f70  65 68 61 6e 25 2c 36 29  29 0d 04 38 4d 20 20 c9  |ehan%,6))..8M  .|
00000f80  20 36 20 3a 20 c8 99 22  57 69 6d 70 5f 53 65 74  | 6 : .."Wimp_Set|
00000f90  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 6e  |CaretPosition",n|
00000fa0  6f 74 65 68 61 6e 25 2c  37 2c 2c 2c 2d 31 2c a9  |otehan%,7,,,-1,.|
00000fb0  28 a4 67 65 74 69 63 6f  6e 28 6e 6f 74 65 68 61  |(.geticon(noteha|
00000fc0  6e 25 2c 37 29 29 0d 04  42 4d 20 20 c9 20 37 20  |n%,7))..BM  . 7 |
00000fd0  3a 20 c8 99 22 57 69 6d  70 5f 53 65 74 43 61 72  |: .."Wimp_SetCar|
00000fe0  65 74 50 6f 73 69 74 69  6f 6e 22 2c 6e 6f 74 65  |etPosition",note|
00000ff0  68 61 6e 25 2c 33 2c 2c  2c 2d 31 2c a9 28 a4 67  |han%,3,,,-1,.(.g|
00001000  65 74 69 63 6f 6e 28 6e  6f 74 65 68 61 6e 25 2c  |eticon(notehan%,|
00001010  33 29 29 0d 04 4c 05 cb  0d 04 56 05 cb 0d 04 60  |3))..L....V....`|
00001020  04 0d 04 6a 0f dd f2 63  68 65 63 6b 6e 6f 74 65  |...j...checknote|
00001030  0d 04 74 0d e3 20 66 3d  31 20 b8 20 35 0d 04 7e  |..t.. f=1 . 5..~|
00001040  22 6e 65 77 24 28 66 29  3d a4 67 65 74 69 63 6f  |"new$(f)=.getico|
00001050  6e 28 6e 6f 74 65 68 61  6e 25 2c 66 2b 32 29 0d  |n(notehan%,f+2).|
00001060  04 88 07 ed 20 66 0d 04  92 0d e3 20 66 3d 31 20  |.... f..... f=1 |
00001070  b8 20 34 0d 04 9c 47 e7  20 a9 28 6e 65 77 24 28  |. 4...G. .(new$(|
00001080  66 29 29 3d 36 39 20 80  20 a9 28 6c 61 73 74 24  |f))=69 . .(last$|
00001090  28 66 29 29 3d 36 38 20  80 20 c1 6e 65 77 24 28  |(f))=68 . .new$(|
000010a0  66 29 2c 31 2c 36 38 29  3d 6c 61 73 74 24 28 66  |f),1,68)=last$(f|
000010b0  29 20 f2 73 6f 72 74 6f  75 74 0d 04 a6 07 ed 20  |) .sortout..... |
000010c0  66 0d 04 b0 0d e3 20 66  3d 31 20 b8 20 34 0d 04  |f..... f=1 . 4..|
000010d0  ba 14 6c 61 73 74 24 28  66 29 3d 6e 65 77 24 28  |..last$(f)=new$(|
000010e0  66 29 0d 04 c4 07 ed 20  66 0d 04 ce 05 e1 0d 04  |f)..... f.......|
000010f0  d8 04 0d 04 e2 0d dd f2  73 6f 72 74 6f 75 74 0d  |........sortout.|
00001100  04 ec 09 70 6f 73 3d 30  0d 04 f6 1b e3 20 64 3d  |...pos=0..... d=|
00001110  a9 28 6e 65 77 24 28 66  29 29 20 b8 20 30 20 88  |.(new$(f)) . 0 .|
00001120  20 2d 31 0d 05 00 5d e7  20 c1 6e 65 77 24 28 66  | -1...]. .new$(f|
00001130  29 2c 64 2c 31 29 3d 22  20 22 20 84 20 c1 6e 65  |),d,1)=" " . .ne|
00001140  77 24 28 66 29 2c 64 2c  31 29 3d 22 2e 22 20 84  |w$(f),d,1)="." .|
00001150  20 c1 6e 65 77 24 28 66  29 2c 64 2c 31 29 3d 22  | .new$(f),d,1)="|
00001160  2c 22 20 84 20 c1 6e 65  77 24 28 66 29 2c 64 2c  |," . .new$(f),d,|
00001170  31 29 3d 22 21 22 20 67  3d 31 20 8b 20 67 3d 30  |1)="!" g=1 . g=0|
00001180  0d 05 0a 17 e7 20 70 6f  73 3d 30 20 80 20 67 3d  |..... pos=0 . g=|
00001190  31 20 70 6f 73 3d 64 0d  05 14 07 ed 20 64 0d 05  |1 pos=d..... d..|
000011a0  1e 09 63 70 25 3d 30 0d  05 28 38 e7 20 a9 28 6e  |..cp%=0..(8. .(n|
000011b0  65 77 24 28 66 2b 31 29  29 2b 28 a9 28 6e 65 77  |ew$(f+1))+(.(new|
000011c0  24 28 66 29 29 2d 70 6f  73 29 3c 37 30 20 80 20  |$(f))-pos)<70 . |
000011d0  70 6f 73 3e 30 20 80 20  77 77 25 3d 31 20 8c 0d  |pos>0 . ww%=1 ..|
000011e0  05 32 1a 6c 65 6e 67 74  68 25 3d a9 28 6e 65 77  |.2.length%=.(new|
000011f0  24 28 66 29 29 2d 70 6f  73 0d 05 3c 2a f2 73 65  |$(f))-pos..<*.se|
00001200  74 69 63 6f 6e 28 6e 6f  74 65 68 61 6e 25 2c 66  |ticon(notehan%,f|
00001210  2b 32 2c c1 6e 65 77 24  28 66 29 2c 31 2c 70 6f  |+2,.new$(f),1,po|
00001220  73 29 29 0d 05 46 45 f2  73 65 74 69 63 6f 6e 28  |s))..FE.seticon(|
00001230  6e 6f 74 65 68 61 6e 25  2c 66 2b 33 2c c1 6e 65  |notehan%,f+3,.ne|
00001240  77 24 28 66 29 2c 70 6f  73 2b 31 2c a9 28 6e 65  |w$(f),pos+1,.(ne|
00001250  77 24 28 66 29 29 2d 70  6f 73 2b 31 29 2b 6e 65  |w$(f))-pos+1)+ne|
00001260  77 24 28 66 2b 31 29 29  0d 05 50 36 6e 65 77 24  |w$(f+1))..P6new$|
00001270  28 66 2b 31 29 3d c1 6e  65 77 24 28 66 29 2c 70  |(f+1)=.new$(f),p|
00001280  6f 73 2b 31 2c a9 28 6e  65 77 24 28 66 29 29 2d  |os+1,.(new$(f))-|
00001290  70 6f 73 29 2b 6e 65 77  24 28 66 2b 31 29 0d 05  |pos)+new$(f+1)..|
000012a0  5a 1b 6e 65 77 24 28 66  29 3d c1 6e 65 77 24 28  |Z.new$(f)=.new$(|
000012b0  66 29 2c 31 2c 70 6f 73  29 0d 05 64 0f 63 70 25  |f),1,pos)..d.cp%|
000012c0  3d 6c 65 6e 67 74 68 25  0d 05 6e 05 cd 0d 05 6f  |=length%..n....o|
000012d0  33 c8 99 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |3.."Wimp_SetCare|
000012e0  74 50 6f 73 69 74 69 6f  6e 22 2c 6e 6f 74 65 68  |tPosition",noteh|
000012f0  61 6e 25 2c 66 2b 33 2c  2c 2c 2d 31 2c 63 70 25  |an%,f+3,,,-1,cp%|
00001300  0d 05 82 05 e1 0d 05 8c  04 0d 05 96 0c dd f2 75  |...............u|
00001310  70 64 61 74 65 0d 05 a0  25 f2 74 6f 67 67 6c 65  |pdate...%.toggle|
00001320  69 63 6f 6e 28 74 61 62  6c 65 68 61 6e 25 2c 63  |icon(tablehan%,c|
00001330  75 72 72 65 6e 74 25 2d  31 29 0d 05 aa 0e 63 75  |urrent%-1)....cu|
00001340  72 72 65 6e 74 25 3d 30  0d 05 b4 05 e1 0d 05 be  |rrent%=0........|
00001350  04 0d 05 c8 08 dd f2 6f  6b 0d 05 d2 1f e7 20 77  |.......ok..... w|
00001360  69 6d 70 25 21 38 3c 3e  31 20 80 20 77 69 6d 70  |imp%!8<>1 . wimp|
00001370  25 21 38 3c 3e 34 20 e1  0d 05 dc 10 f2 67 65 74  |%!8<>4 ......get|
00001380  66 69 6c 65 6e 61 6d 65  0d 05 e6 4f e7 20 a7 66  |filename...O. .f|
00001390  69 6c 65 6e 61 24 2c 22  2e 22 29 3d 30 20 f2 65  |ilena$,".")=0 .e|
000013a0  72 72 28 31 2c 22 54 6f  20 73 61 76 65 2c 20 64  |rr(1,"To save, d|
000013b0  72 61 67 20 74 68 65 20  69 63 6f 6e 20 74 6f 20  |rag the icon to |
000013c0  61 20 64 69 72 65 63 74  6f 72 79 20 76 69 65 77  |a directory view|
000013d0  65 72 2e 22 29 3a e1 0d  05 f0 1f 66 69 6c 65 6e  |er."):.....filen|
000013e0  61 6d 65 24 3d 66 69 6c  65 6e 61 24 3a f2 64 6f  |ame$=filena$:.do|
000013f0  74 68 69 6e 67 79 0d 05  fa 05 e1 0d 06 04 04 0d  |thingy..........|
00001400  06 0e 13 dd f2 64 72 61  67 5f 63 6f 6d 70 6c 65  |.....drag_comple|
00001410  74 65 0d 06 18 23 c8 99  20 22 57 69 6d 70 5f 47  |te...#.. "Wimp_G|
00001420  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
00001430  77 69 6d 70 25 0d 06 22  3d 54 68 65 57 69 6e 64  |wimp%.."=TheWind|
00001440  6f 77 25 3d 77 69 6d 70  25 21 31 32 3a 54 68 65  |ow%=wimp%!12:The|
00001450  49 63 6f 6e 25 3d 77 69  6d 70 25 21 31 36 3a 78  |Icon%=wimp%!16:x|
00001460  3d 77 69 6d 70 25 21 30  3a 79 3d 77 69 6d 70 25  |=wimp%!0:y=wimp%|
00001470  21 34 0d 06 2c 4a 77 69  6d 70 25 21 30 3d 36 34  |!4..,Jwimp%!0=64|
00001480  3a 77 69 6d 70 25 21 31  32 3d 30 3a 77 69 6d 70  |:wimp%!12=0:wimp|
00001490  25 21 31 36 3d 31 3a 77  69 6d 70 25 21 32 30 3d  |%!16=1:wimp%!20=|
000014a0  54 68 65 57 69 6e 64 6f  77 25 3a 77 69 6d 70 25  |TheWindow%:wimp%|
000014b0  21 32 34 3d 54 68 65 49  63 6f 6e 25 0d 06 36 34  |!24=TheIcon%..64|
000014c0  77 69 6d 70 25 21 32 38  3d 78 3a 77 69 6d 70 25  |wimp%!28=x:wimp%|
000014d0  21 33 32 3d 79 3a 77 69  6d 70 25 21 33 36 3d 36  |!32=y:wimp%!36=6|
000014e0  30 30 3a 77 69 6d 70 25  21 34 30 3d 26 46 46 46  |00:wimp%!40=&FFF|
000014f0  0d 06 40 17 24 28 77 69  6d 70 25 2b 34 34 29 3d  |..@.$(wimp%+44)=|
00001500  66 69 6c 65 6e 61 24 0d  06 4a 36 c8 99 20 22 57  |filena$..J6.. "W|
00001510  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00001520  2c 31 37 2c 77 69 6d 70  25 2c 54 68 65 57 69 6e  |,17,wimp%,TheWin|
00001530  64 6f 77 25 2c 54 68 65  49 63 6f 6e 25 0d 06 54  |dow%,TheIcon%..T|
00001540  05 e1 0d 06 5e 04 0d 06  68 0a dd f2 73 61 76 65  |....^...h...save|
00001550  0d 06 72 21 78 3d 77 69  6d 70 25 21 30 3a 79 3d  |..r!x=wimp%!0:y=|
00001560  77 69 6d 70 25 21 34 3a  7a 3d 77 69 6d 70 25 21  |wimp%!4:z=wimp%!|
00001570  38 0d 06 7c 20 66 69 6c  65 6e 61 6d 65 24 3d a4  |8..| filename$=.|
00001580  63 6f 6e 76 65 72 74 28  77 69 6d 70 25 2b 34 34  |convert(wimp%+44|
00001590  29 0d 06 86 23 77 69 6d  70 25 21 30 3d 78 3a 77  |)...#wimp%!0=x:w|
000015a0  69 6d 70 25 21 31 32 3d  7a 3a 77 69 6d 70 25 21  |imp%!12=z:wimp%!|
000015b0  31 36 3d 33 0d 06 90 24  c8 99 20 22 57 69 6d 70  |16=3...$.. "Wimp|
000015c0  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 38  |_SendMessage",18|
000015d0  2c 77 69 6d 70 25 2c 79  0d 06 9a 28 66 69 6c 65  |,wimp%,y...(file|
000015e0  6e 61 6d 65 24 3d a4 66  69 78 73 74 72 69 6e 67  |name$=.fixstring|
000015f0  28 66 69 6c 65 6e 61 6d  65 24 2b bd 28 30 29 29  |(filename$+.(0))|
00001600  0d 06 a4 0d f2 64 6f 74  68 69 6e 67 79 0d 06 ae  |.....dothingy...|
00001610  05 e1 0d 06 b8 04 0d 06  c2 12 dd a4 63 6f 6e 76  |............conv|
00001620  65 72 74 28 6e 6f 25 29  0d 06 cc 0e 73 74 72 69  |ert(no%)....stri|
00001630  6e 67 24 3d 22 22 0d 06  d6 0b c8 95 20 3f 6e 6f  |ng$=""...... ?no|
00001640  25 0d 06 e0 12 73 74 72  69 6e 67 24 2b 3d bd 3f  |%....string$+=.?|
00001650  6e 6f 25 0d 06 ea 0a 6e  6f 25 2b 3d 31 0d 06 f4  |no%....no%+=1...|
00001660  05 ce 0d 06 fe 0c 3d 73  74 72 69 6e 67 24 0d 07  |......=string$..|
00001670  08 04 0d 07 12 11 dd f2  69 6e 74 65 72 61 63 74  |........interact|
00001680  69 76 65 0d 07 1c 09 74  24 3d 22 22 0d 07 26 10  |ive....t$=""..&.|
00001690  69 6e 74 65 72 25 3d 77  69 6d 70 25 0d 07 30 15  |inter%=wimp%..0.|
000016a0  69 6e 74 65 72 25 21 31  32 3d 77 69 6d 70 25 21  |inter%!12=wimp%!|
000016b0  38 0d 07 3a 12 69 6e 74  65 72 25 21 31 36 3d 26  |8..:.inter%!16=&|
000016c0  35 30 33 0d 07 44 12 c8  8e 20 69 6e 74 65 72 25  |503..D... inter%|
000016d0  21 33 32 20 ca 0d 07 4e  5c c9 20 2d 32 20 3a 20  |!32 ...N\. -2 : |
000016e0  74 24 3d 22 54 68 69 73  20 69 73 20 74 68 65 20  |t$="This is the |
000016f0  50 65 72 69 6f 64 69 63  20 69 63 6f 6e 2e 7c 4d  |Periodic icon.|M|
00001700  43 6c 69 63 6b 20 6f 6e  20 74 68 65 20 69 63 6f  |Click on the ico|
00001710  6e 20 74 6f 20 64 69 73  70 6c 61 79 20 74 68 65  |n to display the|
00001720  20 70 65 72 69 6f 64 69  63 20 74 61 62 6c 65 2e  | periodic table.|
00001730  22 0d 07 58 ac c9 20 74  61 62 6c 65 68 61 6e 25  |"..X.. tablehan%|
00001740  20 3a 20 74 24 3d 22 54  68 65 20 70 65 72 69 6f  | : t$="The perio|
00001750  64 69 63 20 74 61 62 6c  65 2e 7c 4d 43 6c 69 63  |dic table.|MClic|
00001760  6b 20 6f 6e 20 61 6e 20  65 6c 65 6d 65 6e 74 20  |k on an element |
00001770  6f 66 20 79 6f 75 72 20  63 68 6f 69 63 65 20 74  |of your choice t|
00001780  6f 20 64 69 73 70 6c 61  79 20 69 6e 66 6f 72 6d  |o display inform|
00001790  61 74 69 6f 6e 20 6f 6e  20 69 74 2e 22 3a e7 20  |ation on it.":. |
000017a0  77 69 6d 70 25 21 33 36  3e 2d 31 20 80 20 77 69  |wimp%!36>-1 . wi|
000017b0  6d 70 25 21 33 36 3c 31  30 33 20 74 24 2b 3d 22  |mp%!36<103 t$+="|
000017c0  7c 4d 28 22 2b 6e 61 6d  65 24 28 28 77 69 6d 70  ||M("+name$((wimp|
000017d0  25 21 33 36 29 2b 31 29  2b 22 29 2e 22 0d 07 62  |%!36)+1)+")."..b|
000017e0  dc c9 20 73 65 61 72 63  68 61 6e 25 20 3a 20 74  |.. searchan% : t|
000017f0  24 3d 22 54 68 65 20 73  65 61 72 63 68 20 77 69  |$="The search wi|
00001800  6e 64 6f 77 2e 7c 4d 45  6e 74 65 72 20 61 6e 20  |ndow.|MEnter an |
00001810  65 6c 65 6d 65 6e 74 20  6e 61 6d 65 2f 73 79 6d  |element name/sym|
00001820  62 6f 6c 20 61 6e 64 20  63 6c 69 63 6b 20 6f 6e  |bol and click on|
00001830  20 4f 4b 20 74 6f 20 64  69 73 70 6c 61 79 20 74  | OK to display t|
00001840  68 65 20 65 6c 65 6d 65  6e 74 2e 7c 4d 27 2a 27  |he element.|M'*'|
00001850  20 61 63 74 73 20 61 73  20 61 20 77 69 6c 64 63  | acts as a wildc|
00001860  61 72 64 2c 20 73 6f 20  54 2a 20 77 69 6c 6c 20  |ard, so T* will |
00001870  64 69 73 70 6c 61 79 20  61 6c 6c 20 74 68 65 20  |display all the |
00001880  65 6c 65 6d 65 6e 74 73  20 77 69 74 68 20 61 20  |elements with a |
00001890  6e 61 6d 65 2f 73 79 6d  62 6f 6c 20 62 65 67 69  |name/symbol begi|
000018a0  6e 6e 69 6e 67 20 77 69  74 68 20 74 68 65 20 6c  |nning with the l|
000018b0  65 74 74 65 72 20 54 2e  22 0d 07 6c 2b c9 20 69  |etter T."..l+. i|
000018c0  6e 68 61 6e 25 20 3a 20  74 24 3d 22 57 68 61 74  |nhan% : t$="What|
000018d0  2e 2e 20 57 68 65 6e 2e  2e 20 57 68 6f 20 62 79  |.. When.. Who by|
000018e0  2e 2e 2e 22 0d 07 76 86  c9 20 6c 69 73 74 68 61  |..."..v.. listha|
000018f0  6e 25 20 3a 20 74 24 3d  22 54 68 65 20 70 6f 73  |n% : t$="The pos|
00001900  73 69 62 6c 65 20 65 6c  65 6d 65 6e 74 73 2e 7c  |sible elements.||
00001910  4d 54 68 65 73 65 20 65  6c 65 6d 65 6e 74 73 20  |MThese elements |
00001920  66 69 74 20 74 68 65 20  64 65 73 63 72 69 70 74  |fit the descript|
00001930  69 6f 6e 20 6f 66 20 79  6f 75 72 20 73 65 61 72  |ion of your sear|
00001940  63 68 2e 7c 4d 43 6c 69  63 6b 20 6f 6e 20 74 68  |ch.|MClick on th|
00001950  65 20 65 6c 65 6d 65 6e  74 20 6f 66 20 79 6f 75  |e element of you|
00001960  72 20 63 68 6f 69 63 65  2e 22 0d 07 80 9b c9 20  |r choice."..... |
00001970  65 6c 65 6d 65 6e 74 68  61 6e 25 20 3a 20 74 24  |elementhan% : t$|
00001980  3d 22 54 68 65 20 65 6c  65 6d 65 6e 74 20 69 6e  |="The element in|
00001990  66 6f 20 77 69 6e 64 6f  77 2e 7c 4d 41 6c 6c 20  |fo window.|MAll |
000019a0  74 68 65 20 69 6e 66 6f  72 6d 61 74 69 6f 6e 20  |the information |
000019b0  6f 6e 20 22 2b 6e 61 6d  65 24 28 65 6c 65 6e 6f  |on "+name$(eleno|
000019c0  25 29 2b 22 20 74 68 61  74 20 79 6f 75 20 65 76  |%)+" that you ev|
000019d0  65 72 20 6e 65 65 64 65  64 20 74 6f 20 6b 6e 6f  |er needed to kno|
000019e0  77 2e 7c 4d 41 64 64 20  79 6f 75 72 20 6f 77 6e  |w.|MAdd your own|
000019f0  20 6e 6f 74 65 73 20 76  69 61 20 74 68 65 20 6d  | notes via the m|
00001a00  65 6e 75 2e 22 0d 07 8a  8a c9 20 73 61 76 65 68  |enu."..... saveh|
00001a10  61 6e 25 20 3a 20 74 24  3d 22 54 68 65 20 73 61  |an% : t$="The sa|
00001a20  76 65 20 62 6f 78 2e 7c  4d 53 61 76 65 20 74 68  |ve box.|MSave th|
00001a30  65 20 65 6c 65 6d 65 6e  74 20 69 6e 66 6f 72 6d  |e element inform|
00001a40  61 74 69 6f 6e 20 62 79  20 64 72 61 67 67 69 6e  |ation by draggin|
00001a50  67 20 74 68 65 20 69 63  6f 6e 20 74 6f 20 61 20  |g the icon to a |
00001a60  64 69 72 65 63 74 6f 72  79 20 76 69 65 77 65 72  |directory viewer|
00001a70  20 69 6e 20 74 68 65 20  75 73 75 61 6c 20 52 49  | in the usual RI|
00001a80  53 43 20 4f 53 20 66 61  73 68 69 6f 6e 2e 22 0d  |SC OS fashion.".|
00001a90  07 94 bd c9 20 6e 6f 74  65 68 61 6e 25 20 3a 20  |.... notehan% : |
00001aa0  74 24 3d 22 54 68 65 20  6e 6f 74 65 73 20 77 69  |t$="The notes wi|
00001ab0  6e 64 6f 77 2e 7c 4d 41  64 64 20 79 6f 75 72 20  |ndow.|MAdd your |
00001ac0  6f 77 6e 20 6e 6f 74 65  73 20 69 6e 74 6f 20 74  |own notes into t|
00001ad0  68 65 20 69 6e 66 6f 72  6d 61 74 69 6f 6e 20 6f  |he information o|
00001ae0  6e 20 64 69 73 63 20 62  79 20 63 6c 69 63 6b 69  |n disc by clicki|
00001af0  6e 67 20 6f 6e 20 4f 4b  20 77 68 65 6e 20 79 6f  |ng on OK when yo|
00001b00  75 20 68 61 76 65 20 77  72 69 74 74 65 6e 20 74  |u have written t|
00001b10  68 65 6d 2c 20 6f 74 68  65 72 77 69 73 65 20 74  |hem, otherwise t|
00001b20  68 65 79 20 77 69 6c 6c  20 62 65 20 6c 6f 73 74  |hey will be lost|
00001b30  20 69 66 20 79 6f 75 20  63 68 61 6e 67 65 20 74  | if you change t|
00001b40  68 65 20 65 6c 65 6d 65  6e 74 2e 22 0d 07 9e 2e  |he element."....|
00001b50  c9 20 67 72 65 65 74 68  61 6e 25 20 3a 20 74 24  |. greethan% : t$|
00001b60  3d 22 21 50 65 72 69 6f  64 69 63 20 69 73 20 6c  |="!Periodic is l|
00001b70  6f 61 64 69 6e 67 2e 2e  2e 22 0d 07 a8 05 cb 0d  |oading..."......|
00001b80  07 b2 0c 74 24 2b 3d bd  28 30 29 0d 07 bc 13 24  |...t$+=.(0)....$|
00001b90  28 69 6e 74 65 72 25 2b  32 30 29 3d 74 24 0d 07  |(inter%+20)=t$..|
00001ba0  c6 23 69 6e 74 65 72 25  21 30 3d 28 28 28 32 30  |.#inter%!0=(((20|
00001bb0  2b a9 28 74 24 29 2b 31  29 81 34 29 2a 34 29 2b  |+.(t$)+1).4)*4)+|
00001bc0  34 0d 07 d0 23 c8 99 20  22 57 69 6d 70 5f 53 65  |4...#.. "Wimp_Se|
00001bd0  6e 64 4d 65 73 73 61 67  65 22 2c 31 37 2c 69 6e  |ndMessage",17,in|
00001be0  74 65 72 25 0d 07 da 05  e1 0d 07 e4 04 0d 07 ee  |ter%............|
00001bf0  0e dd f2 64 6f 74 68 69  6e 67 79 0d 07 f8 13 41  |...dothingy....A|
00001c00  25 3d ae 28 66 69 6c 65  6e 61 6d 65 24 29 0d 08  |%=.(filename$)..|
00001c10  02 28 d5 23 41 25 2c 22  49 6e 66 6f 72 6d 61 74  |.(.#A%,"Informat|
00001c20  69 6f 6e 20 6f 6e 20 22  2b 6e 61 6d 65 24 28 65  |ion on "+name$(e|
00001c30  6c 65 6e 6f 25 29 0d 08  0c 0b d5 23 41 25 2c 22  |leno%).....#A%,"|
00001c40  22 0d 08 16 1f d5 23 41  25 2c 22 4e 61 6d 65 3a  |".....#A%,"Name:|
00001c50  20 22 2b 6e 61 6d 65 24  28 65 6c 65 6e 6f 25 29  | "+name$(eleno%)|
00001c60  0d 08 20 23 d5 23 41 25  2c 22 53 79 6d 62 6f 6c  |.. #.#A%,"Symbol|
00001c70  3a 20 22 2b 73 79 6d 62  6f 6c 24 28 65 6c 65 6e  |: "+symbol$(elen|
00001c80  6f 25 29 0d 08 2a 2c d5  23 41 25 2c 22 41 74 6f  |o%)..*,.#A%,"Ato|
00001c90  6d 69 63 20 6e 75 6d 62  65 72 3a 20 22 2b 61 74  |mic number: "+at|
00001ca0  6f 6d 69 63 6e 6f 24 28  65 6c 65 6e 6f 25 29 0d  |omicno$(eleno%).|
00001cb0  08 34 2e d5 23 41 25 2c  22 52 65 6c 61 74 69 76  |.4..#A%,"Relativ|
00001cc0  65 20 61 74 6f 6d 69 63  20 6d 61 73 73 3a 20 22  |e atomic mass: "|
00001cd0  2b 72 61 6d 24 28 65 6c  65 6e 6f 25 29 0d 08 3e  |+ram$(eleno%)..>|
00001ce0  36 e7 20 67 72 6f 75 70  24 28 65 6c 65 6e 6f 25  |6. group$(eleno%|
00001cf0  29 3c 3e 22 22 20 d5 23  41 25 2c 22 47 72 6f 75  |)<>"" .#A%,"Grou|
00001d00  70 3a 20 22 2b 67 72 6f  75 70 24 28 65 6c 65 6e  |p: "+group$(elen|
00001d10  6f 25 29 0d 08 48 39 e7  20 70 65 72 69 6f 64 24  |o%)..H9. period$|
00001d20  28 65 6c 65 6e 6f 25 29  3c 3e 22 22 20 d5 23 41  |(eleno%)<>"" .#A|
00001d30  25 2c 22 50 65 72 69 6f  64 3a 20 22 2b 70 65 72  |%,"Period: "+per|
00001d40  69 6f 64 24 28 65 6c 65  6e 6f 25 29 0d 08 52 3c  |iod$(eleno%)..R<|
00001d50  e7 20 6d 65 6c 74 24 28  65 6c 65 6e 6f 25 29 3c  |. melt$(eleno%)<|
00001d60  3e 22 22 20 d5 23 41 25  2c 22 4d 65 6c 74 69 6e  |>"" .#A%,"Meltin|
00001d70  67 20 70 6f 69 6e 74 3a  20 22 2b 6d 65 6c 74 24  |g point: "+melt$|
00001d80  28 65 6c 65 6e 6f 25 29  0d 08 5c 3c e7 20 62 6f  |(eleno%)..\<. bo|
00001d90  69 6c 24 28 65 6c 65 6e  6f 25 29 3c 3e 22 22 20  |il$(eleno%)<>"" |
00001da0  d5 23 41 25 2c 22 42 6f  69 6c 69 6e 67 20 70 6f  |.#A%,"Boiling po|
00001db0  69 6e 74 3a 20 22 2b 62  6f 69 6c 24 28 65 6c 65  |int: "+boil$(ele|
00001dc0  6e 6f 25 29 0d 08 66 44  e7 20 73 74 72 75 63 74  |no%)..fD. struct|
00001dd0  24 28 65 6c 65 6e 6f 25  29 3c 3e 22 22 20 d5 23  |$(eleno%)<>"" .#|
00001de0  41 25 2c 22 54 79 70 65  20 6f 66 20 73 74 72 75  |A%,"Type of stru|
00001df0  63 74 75 72 65 3a 20 22  2b 73 74 72 75 63 74 24  |cture: "+struct$|
00001e00  28 65 6c 65 6e 6f 25 29  0d 08 70 43 e7 20 73 74  |(eleno%)..pC. st|
00001e10  61 74 65 24 28 65 6c 65  6e 6f 25 29 3c 3e 22 22  |ate$(eleno%)<>""|
00001e20  20 d5 23 41 25 2c 22 53  74 61 74 65 20 61 74 20  | .#A%,"State at |
00001e30  72 6f 6f 6d 20 74 65 6d  70 3a 20 22 2b 73 74 61  |room temp: "+sta|
00001e40  74 65 24 28 65 6c 65 6e  6f 25 29 0d 08 7a 64 e7  |te$(eleno%)..zd.|
00001e50  20 77 68 6f 24 28 65 6c  65 6e 6f 25 29 3c 3e 22  | who$(eleno%)<>"|
00001e60  22 20 80 20 64 61 74 65  24 28 65 6c 65 6e 6f 25  |" . date$(eleno%|
00001e70  29 3c 3e 22 22 20 d5 23  41 25 2c 22 44 69 73 63  |)<>"" .#A%,"Disc|
00001e80  6f 76 65 72 65 64 20 62  79 3a 20 22 2b 77 68 6f  |overed by: "+who|
00001e90  24 28 65 6c 65 6e 6f 25  29 2b 22 20 69 6e 3a 20  |$(eleno%)+" in: |
00001ea0  22 2b 64 61 74 65 24 28  65 6c 65 6e 6f 25 29 0d  |"+date$(eleno%).|
00001eb0  08 84 4d e7 20 77 68 6f  24 28 65 6c 65 6e 6f 25  |..M. who$(eleno%|
00001ec0  29 3c 3e 22 22 20 80 20  64 61 74 65 24 28 65 6c  |)<>"" . date$(el|
00001ed0  65 6e 6f 25 29 3d 22 22  20 d5 23 41 25 2c 22 44  |eno%)="" .#A%,"D|
00001ee0  69 73 63 6f 76 65 72 65  64 20 62 79 3a 20 22 2b  |iscovered by: "+|
00001ef0  77 68 6f 24 28 65 6c 65  6e 6f 25 29 0d 08 8e 4e  |who$(eleno%)...N|
00001f00  e7 20 77 68 6f 24 28 65  6c 65 6e 6f 25 29 3d 22  |. who$(eleno%)="|
00001f10  22 20 80 20 64 61 74 65  24 28 65 6c 65 6e 6f 25  |" . date$(eleno%|
00001f20  29 3c 3e 22 22 20 d5 23  41 25 2c 22 44 69 73 63  |)<>"" .#A%,"Disc|
00001f30  6f 76 65 72 65 64 20 69  6e 3a 20 22 2b 64 61 74  |overed in: "+dat|
00001f40  65 24 28 65 6c 65 6e 6f  25 29 0d 08 98 3b e7 20  |e$(eleno%)...;. |
00001f50  69 6f 6e 69 63 24 28 65  6c 65 6e 6f 25 29 3c 3e  |ionic$(eleno%)<>|
00001f60  22 22 20 d5 23 41 25 2c  22 49 6f 6e 69 63 20 66  |"" .#A%,"Ionic f|
00001f70  6f 72 6d 3a 20 22 2b 69  6f 6e 69 63 24 28 65 6c  |orm: "+ionic$(el|
00001f80  65 6e 6f 25 29 0d 08 a2  32 e7 20 64 61 74 61 31  |eno%)...2. data1|
00001f90  24 28 65 6c 65 6e 6f 25  29 3c 3e 22 22 20 d5 23  |$(eleno%)<>"" .#|
00001fa0  41 25 2c 22 4f 74 68 65  72 20 49 6e 66 6f 72 6d  |A%,"Other Inform|
00001fb0  61 74 69 6f 6e 3a 22 0d  08 ac 2c e7 20 64 61 74  |ation:"...,. dat|
00001fc0  61 31 24 28 65 6c 65 6e  6f 25 29 3c 3e 22 22 20  |a1$(eleno%)<>"" |
00001fd0  d5 23 41 25 2c 64 61 74  61 31 24 28 65 6c 65 6e  |.#A%,data1$(elen|
00001fe0  6f 25 29 0d 08 b6 2c e7  20 64 61 74 61 32 24 28  |o%)...,. data2$(|
00001ff0  65 6c 65 6e 6f 25 29 3c  3e 22 22 20 d5 23 41 25  |eleno%)<>"" .#A%|
00002000  2c 64 61 74 61 32 24 28  65 6c 65 6e 6f 25 29 0d  |,data2$(eleno%).|
00002010  08 c0 2c e7 20 64 61 74  61 33 24 28 65 6c 65 6e  |..,. data3$(elen|
00002020  6f 25 29 3c 3e 22 22 20  d5 23 41 25 2c 64 61 74  |o%)<>"" .#A%,dat|
00002030  61 33 24 28 65 6c 65 6e  6f 25 29 0d 08 ca 2c e7  |a3$(eleno%)...,.|
00002040  20 64 61 74 61 34 24 28  65 6c 65 6e 6f 25 29 3c  | data4$(eleno%)<|
00002050  3e 22 22 20 d5 23 41 25  2c 64 61 74 61 34 24 28  |>"" .#A%,data4$(|
00002060  65 6c 65 6e 6f 25 29 0d  08 d4 2c e7 20 64 61 74  |eleno%)...,. dat|
00002070  61 35 24 28 65 6c 65 6e  6f 25 29 3c 3e 22 22 20  |a5$(eleno%)<>"" |
00002080  d5 23 41 25 2c 64 61 74  61 35 24 28 65 6c 65 6e  |.#A%,data5$(elen|
00002090  6f 25 29 0d 08 de 84 e7  20 65 78 74 72 61 24 28  |o%)..... extra$(|
000020a0  31 2c 65 6c 65 6e 6f 25  29 3c 3e 22 22 20 84 20  |1,eleno%)<>"" . |
000020b0  65 78 74 72 61 24 28 32  2c 65 6c 65 6e 6f 25 29  |extra$(2,eleno%)|
000020c0  3c 3e 22 22 20 84 20 65  78 74 72 61 24 28 33 2c  |<>"" . extra$(3,|
000020d0  65 6c 65 6e 6f 25 29 3c  3e 22 22 20 84 20 65 78  |eleno%)<>"" . ex|
000020e0  74 72 61 24 28 34 2c 65  6c 65 6e 6f 25 29 3c 3e  |tra$(4,eleno%)<>|
000020f0  22 22 20 84 20 65 78 74  72 61 24 28 35 2c 65 6c  |"" . extra$(5,el|
00002100  65 6e 6f 25 29 3c 3e 22  22 20 d5 23 41 25 2c 22  |eno%)<>"" .#A%,"|
00002110  4e 6f 74 65 73 3a 22 0d  08 e8 30 e7 20 65 78 74  |Notes:"...0. ext|
00002120  72 61 24 28 31 2c 65 6c  65 6e 6f 25 29 3c 3e 22  |ra$(1,eleno%)<>"|
00002130  22 20 d5 23 41 25 2c 65  78 74 72 61 24 28 31 2c  |" .#A%,extra$(1,|
00002140  65 6c 65 6e 6f 25 29 0d  08 f2 30 e7 20 65 78 74  |eleno%)...0. ext|
00002150  72 61 24 28 32 2c 65 6c  65 6e 6f 25 29 3c 3e 22  |ra$(2,eleno%)<>"|
00002160  22 20 d5 23 41 25 2c 65  78 74 72 61 24 28 32 2c  |" .#A%,extra$(2,|
00002170  65 6c 65 6e 6f 25 29 0d  08 fc 30 e7 20 65 78 74  |eleno%)...0. ext|
00002180  72 61 24 28 33 2c 65 6c  65 6e 6f 25 29 3c 3e 22  |ra$(3,eleno%)<>"|
00002190  22 20 d5 23 41 25 2c 65  78 74 72 61 24 28 33 2c  |" .#A%,extra$(3,|
000021a0  65 6c 65 6e 6f 25 29 0d  09 06 30 e7 20 65 78 74  |eleno%)...0. ext|
000021b0  72 61 24 28 34 2c 65 6c  65 6e 6f 25 29 3c 3e 22  |ra$(4,eleno%)<>"|
000021c0  22 20 d5 23 41 25 2c 65  78 74 72 61 24 28 34 2c  |" .#A%,extra$(4,|
000021d0  65 6c 65 6e 6f 25 29 0d  09 10 30 e7 20 65 78 74  |eleno%)...0. ext|
000021e0  72 61 24 28 35 2c 65 6c  65 6e 6f 25 29 3c 3e 22  |ra$(5,eleno%)<>"|
000021f0  22 20 d5 23 41 25 2c 65  78 74 72 61 24 28 35 2c  |" .#A%,extra$(5,|
00002200  65 6c 65 6e 6f 25 29 0d  09 1a 08 d9 23 41 25 0d  |eleno%).....#A%.|
00002210  09 24 20 ff 22 53 65 74  74 79 70 65 20 22 2b 66  |.$ ."Settype "+f|
00002220  69 6c 65 6e 61 6d 65 24  2b 22 20 46 46 46 22 0d  |ilename$+" FFF".|
00002230  09 2e 1b c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..... "Wimp_Crea|
00002240  74 65 4d 65 6e 75 22 2c  2d 31 0d 09 38 05 e1 0d  |teMenu",-1..8...|
00002250  09 42 04 0d 09 4c 1d dd  f2 65 72 72 28 77 69 6d  |.B...L...err(wim|
00002260  70 25 21 30 2c 24 28 77  69 6d 70 25 2b 34 29 29  |p%!0,$(wimp%+4))|
00002270  0d 09 56 0a c8 8e 20 9f  20 ca 0d 09 60 5b c9 20  |..V... . ...`[. |
00002280  36 37 37 38 38 2c 36 37  37 39 38 3a 20 24 28 77  |67788,67798: $(w|
00002290  69 6d 70 25 2b 34 29 2b  3d 22 20 2d 20 74 72 79  |imp%+4)+=" - try|
000022a0  20 63 68 61 6e 67 69 6e  67 20 74 68 65 20 66 69  | changing the fi|
000022b0  6c 65 6e 61 6d 65 20 69  6e 20 74 68 65 20 73 61  |lename in the sa|
000022c0  76 65 20 62 6f 78 2c 20  74 68 65 6e 20 73 61 76  |ve box, then sav|
000022d0  69 6e 67 2e 22 0d 09 6a  50 c9 20 36 37 37 37 39  |ing."..jP. 67779|
000022e0  3a 20 24 28 77 69 6d 70  25 2b 34 29 2b 3d 22 20  |: $(wimp%+4)+=" |
000022f0  2d 20 79 6f 75 20 6e 65  65 64 20 74 6f 20 75 6e  |- you need to un|
00002300  6c 6f 63 6b 20 74 68 65  20 66 69 6c 65 20 62 65  |lock the file be|
00002310  66 6f 72 65 20 73 61 76  69 6e 67 20 6f 76 65 72  |fore saving over|
00002320  20 69 74 2e 22 0d 09 74  5d c9 20 36 37 37 38 32  | it."..t]. 67782|
00002330  3a 20 24 28 77 69 6d 70  25 2b 34 29 2b 3d 22 20  |: $(wimp%+4)+=" |
00002340  2d 20 73 61 76 65 20 6f  6e 20 74 6f 20 61 6e 6f  |- save on to ano|
00002350  74 68 65 72 20 64 69 73  63 20 6f 72 20 6d 61 6b  |ther disc or mak|
00002360  65 20 72 6f 6f 6d 20 6f  6e 20 74 68 69 73 20 6f  |e room on this o|
00002370  6e 65 20 62 65 66 6f 72  65 20 73 61 76 69 6e 67  |ne before saving|
00002380  2e 22 0d 09 7e 4d c9 20  36 37 37 38 35 3a 20 24  |."..~M. 67785: $|
00002390  28 77 69 6d 70 25 2b 34  29 2b 3d 22 20 2d 20 74  |(wimp%+4)+=" - t|
000023a0  72 79 20 73 77 69 74 63  68 69 6e 67 20 74 68 65  |ry switching the|
000023b0  20 74 61 62 20 6f 6e 20  74 68 65 20 64 69 73 63  | tab on the disc|
000023c0  2c 20 74 68 65 6e 20 73  61 76 69 6e 67 2e 22 0d  |, then saving.".|
000023d0  09 88 05 cb 0d 09 92 2c  c8 99 20 22 57 69 6d 70  |.......,.. "Wimp|
000023e0  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 77 69  |_ReportError",wi|
000023f0  6d 70 25 2c 31 2c 22 50  65 72 69 6f 64 69 63 22  |mp%,1,"Periodic"|
00002400  0d 09 9c 05 e1 0d 09 a6  04 0d 09 b0 0d dd f2 73  |...............s|
00002410  65 61 72 63 68 79 0d 09  ba 0c f2 67 65 74 77 6f  |earchy.....getwo|
00002420  72 64 0d 09 c4 10 e7 20  77 6f 72 64 24 3d 22 22  |rd..... word$=""|
00002430  20 e1 0d 09 ce 1f e7 20  a7 77 6f 72 64 24 2c 22  | ...... .word$,"|
00002440  2a 22 29 3e 30 20 f2 77  69 6c 64 63 61 72 64 3a  |*")>0 .wildcard:|
00002450  e1 0d 09 d8 0f e3 20 63  3d 31 20 b8 20 31 30 33  |...... c=1 . 103|
00002460  0d 09 e2 35 e7 20 a4 63  68 61 6e 67 65 63 61 73  |...5. .changecas|
00002470  65 28 6e 61 6d 65 24 28  63 29 29 3d 77 6f 72 64  |e(name$(c))=word|
00002480  24 20 65 6c 65 6e 6f 25  3d 63 3a f2 70 72 6f 64  |$ eleno%=c:.prod|
00002490  75 63 65 3a e1 0d 09 ec  07 ed 20 63 0d 09 f6 0f  |uce:...... c....|
000024a0  e3 20 63 3d 31 20 b8 20  31 30 33 0d 0a 00 37 e7  |. c=1 . 103...7.|
000024b0  20 a4 63 68 61 6e 67 65  63 61 73 65 28 73 79 6d  | .changecase(sym|
000024c0  62 6f 6c 24 28 63 29 29  3d 77 6f 72 64 24 20 65  |bol$(c))=word$ e|
000024d0  6c 65 6e 6f 25 3d 63 3a  f2 70 72 6f 64 75 63 65  |leno%=c:.produce|
000024e0  3a e1 0d 0a 0a 07 ed 20  63 0d 0a 14 2c f2 65 72  |:...... c...,.er|
000024f0  72 28 31 2c 22 45 6c 65  6d 65 6e 74 2f 53 79 6d  |r(1,"Element/Sym|
00002500  62 6f 6c 20 6e 6f 74 20  72 65 63 6f 67 6e 69 73  |bol not recognis|
00002510  65 64 2e 22 29 0d 0a 1e  05 e1 0d 0a 28 04 0d 0a  |ed.").......(...|
00002520  32 0e dd f2 77 69 6c 64  63 61 72 64 0d 0a 3c 0a  |2...wildcard..<.|
00002530  77 64 24 3d 22 22 0d 0a  46 14 e3 20 64 3d 31 20  |wd$=""..F.. d=1 |
00002540  b8 20 a9 28 77 6f 72 64  24 29 0d 0a 50 27 e7 20  |. .(word$)..P'. |
00002550  c1 77 6f 72 64 24 2c 64  2c 31 29 3c 3e 22 2a 22  |.word$,d,1)<>"*"|
00002560  20 77 64 24 2b 3d c1 77  6f 72 64 24 2c 64 2c 31  | wd$+=.word$,d,1|
00002570  29 0d 0a 5a 07 ed 20 64  0d 0a 64 0d 77 6f 72 64  |)..Z.. d..d.word|
00002580  24 3d 77 64 24 0d 0a 6e  38 e7 20 77 6f 72 64 24  |$=wd$..n8. word$|
00002590  3d 22 22 20 f2 65 72 72  28 31 2c 22 41 6c 6c 20  |="" .err(1,"All |
000025a0  65 6c 65 6d 65 6e 74 73  20 66 69 74 20 64 65 73  |elements fit des|
000025b0  63 72 69 70 74 69 6f 6e  2e 22 29 3a e1 0d 0a 78  |cription."):...x|
000025c0  07 65 3d 30 0d 0a 82 0e  e3 20 64 3d 31 20 b8 20  |.e=0..... d=1 . |
000025d0  31 31 0d 0a 8c 0f 6c 69  73 74 24 28 64 29 3d 22  |11....list$(d)="|
000025e0  22 0d 0a 96 07 ed 20 64  0d 0a a0 0f e3 20 64 3d  |"..... d..... d=|
000025f0  31 20 b8 20 31 30 33 0d  0a aa 69 e7 20 c0 a4 63  |1 . 103...i. ..c|
00002600  68 61 6e 67 65 63 61 73  65 28 6e 61 6d 65 24 28  |hangecase(name$(|
00002610  64 29 29 2c a9 28 77 6f  72 64 24 29 29 3d 77 6f  |d)),.(word$))=wo|
00002620  72 64 24 20 84 20 c0 a4  63 68 61 6e 67 65 63 61  |rd$ . ..changeca|
00002630  73 65 28 73 79 6d 62 6f  6c 24 28 64 29 29 2c a9  |se(symbol$(d)),.|
00002640  28 77 6f 72 64 24 29 29  3d 77 6f 72 64 24 20 65  |(word$))=word$ e|
00002650  2b 3d 31 3a 6c 69 73 74  6e 6f 25 28 65 29 3d 64  |+=1:listno%(e)=d|
00002660  0d 0a b4 07 ed 20 64 0d  0a be 32 e7 20 65 3d 30  |..... d...2. e=0|
00002670  20 f2 65 72 72 28 31 2c  22 4e 6f 20 65 6c 65 6d  | .err(1,"No elem|
00002680  65 6e 74 73 20 66 69 74  20 64 65 73 63 72 69 70  |ents fit descrip|
00002690  74 69 6f 6e 2e 22 29 3a  e1 0d 0a c8 0d e3 20 64  |tion."):...... d|
000026a0  3d 31 20 b8 20 65 0d 0a  d2 3b 6c 69 73 74 24 28  |=1 . e...;list$(|
000026b0  64 29 3d 6e 61 6d 65 24  28 6c 69 73 74 6e 6f 25  |d)=name$(listno%|
000026c0  28 64 29 29 2b 22 20 28  22 2b 73 79 6d 62 6f 6c  |(d))+" ("+symbol|
000026d0  24 28 6c 69 73 74 6e 6f  25 28 64 29 29 2b 22 29  |$(listno%(d))+")|
000026e0  22 0d 0a dc 07 ed 20 64  0d 0a e6 0e e3 20 64 3d  |"..... d..... d=|
000026f0  31 20 b8 20 31 31 0d 0a  f0 23 f2 73 65 74 69 63  |1 . 11...#.setic|
00002700  6f 6e 28 6c 69 73 74 68  61 6e 25 2c 64 2d 31 2c  |on(listhan%,d-1,|
00002710  6c 69 73 74 24 28 64 29  29 0d 0a fa 07 ed 20 64  |list$(d))..... d|
00002720  0d 0b 04 33 77 69 6d 70  25 21 30 3d 6c 69 73 74  |...3wimp%!0=list|
00002730  68 61 6e 25 3a c8 99 22  57 69 6d 70 5f 47 65 74  |han%:.."Wimp_Get|
00002740  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 77 69  |WindowState",,wi|
00002750  6d 70 25 0d 0b 0e 34 77  69 6d 70 25 21 32 38 3d  |mp%...4wimp%!28=|
00002760  2d 31 3a c8 99 22 57 69  6d 70 5f 4f 70 65 6e 57  |-1:.."Wimp_OpenW|
00002770  69 6e 64 6f 77 22 2c 2c  77 69 6d 70 25 3a 6c 69  |indow",,wimp%:li|
00002780  73 74 79 6e 25 3d 31 0d  0b 18 1b c8 99 20 22 57  |styn%=1...... "W|
00002790  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
000027a0  2d 31 0d 0b 22 0e 6e 6f  6c 69 73 74 73 25 3d 65  |-1..".nolists%=e|
000027b0  0d 0b 2c 05 e1 0d 0b 36  04 0d 0b 40 0d dd f2 70  |..,....6...@...p|
000027c0  72 6f 64 75 63 65 0d 0b  4a 4b f2 74 6f 67 67 6c  |roduce..JK.toggl|
000027d0  65 69 63 6f 6e 28 74 61  62 6c 65 68 61 6e 25 2c  |eicon(tablehan%,|
000027e0  65 6c 65 6e 6f 25 2d 31  29 3a c8 99 22 57 69 6d  |eleno%-1):.."Wim|
000027f0  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2d 31  |p_CreateMenu",-1|
00002800  3a f2 62 72 69 6e 67 75  70 28 65 6c 65 6e 6f 25  |:.bringup(eleno%|
00002810  29 0d 0b 54 32 e7 20 63  75 72 72 65 6e 74 25 3e  |)..T2. current%>|
00002820  30 20 f2 74 6f 67 67 6c  65 69 63 6f 6e 28 74 61  |0 .toggleicon(ta|
00002830  62 6c 65 68 61 6e 25 2c  63 75 72 72 65 6e 74 25  |blehan%,current%|
00002840  2d 31 29 0d 0b 5e 13 63  75 72 72 65 6e 74 25 3d  |-1)..^.current%=|
00002850  65 6c 65 6e 6f 25 0d 0b  68 05 e1 0d 0b 72 04 0d  |eleno%..h....r..|
00002860  0b 7c 12 dd f2 6c 6f 61  64 65 6c 65 6d 65 6e 74  |.|...loadelement|
00002870  73 0d 0b 86 21 41 25 3d  8e 28 22 3c 50 65 72 69  |s...!A%=.("<Peri|
00002880  6f 64 24 44 69 72 3e 2e  45 6c 65 6d 65 6e 74 73  |od$Dir>.Elements|
00002890  22 29 0d 0b 90 0f e3 20  61 3d 31 20 b8 20 31 30  |")..... a=1 . 10|
000028a0  33 0d 0b 9a 11 6e 61 6d  65 24 28 61 29 3d be 23  |3....name$(a)=.#|
000028b0  41 25 0d 0b a4 13 73 79  6d 62 6f 6c 24 28 61 29  |A%....symbol$(a)|
000028c0  3d be 23 41 25 0d 0b ae  15 61 74 6f 6d 69 63 6e  |=.#A%....atomicn|
000028d0  6f 24 28 61 29 3d be 23  41 25 0d 0b b8 10 72 61  |o$(a)=.#A%....ra|
000028e0  6d 24 28 61 29 3d be 23  41 25 0d 0b c2 12 67 72  |m$(a)=.#A%....gr|
000028f0  6f 75 70 24 28 61 29 3d  be 23 41 25 0d 0b cc 13  |oup$(a)=.#A%....|
00002900  70 65 72 69 6f 64 24 28  61 29 3d be 23 41 25 0d  |period$(a)=.#A%.|
00002910  0b d6 11 6d 65 6c 74 24  28 61 29 3d be 23 41 25  |...melt$(a)=.#A%|
00002920  0d 0b e0 11 62 6f 69 6c  24 28 61 29 3d be 23 41  |....boil$(a)=.#A|
00002930  25 0d 0b ea 17 73 74 72  24 3d be 23 41 25 3a c8  |%....str$=.#A%:.|
00002940  8e 20 73 74 72 24 20 ca  0d 0b f4 2a 20 20 c9 20  |. str$ ....*  . |
00002950  22 67 6d 22 20 3a 20 73  74 72 75 63 74 24 28 61  |"gm" : struct$(a|
00002960  29 3d 22 47 69 61 6e 74  20 4d 65 74 61 6c 6c 69  |)="Giant Metalli|
00002970  63 22 0d 0b fe 2c 20 20  c9 20 22 73 6d 22 20 3a  |c"...,  . "sm" :|
00002980  20 73 74 72 75 63 74 24  28 61 29 3d 22 53 69 6d  | struct$(a)="Sim|
00002990  70 6c 65 20 4d 6f 6c 65  63 75 6c 61 72 22 0d 0c  |ple Molecular"..|
000029a0  08 2a 20 20 c9 20 22 67  63 22 20 3a 20 73 74 72  |.*  . "gc" : str|
000029b0  75 63 74 24 28 61 29 3d  22 47 69 61 6e 74 20 43  |uct$(a)="Giant C|
000029c0  6f 76 61 6c 65 6e 74 22  0d 0c 12 1a 20 20 c9 20  |ovalent"....  . |
000029d0  22 22 20 3a 20 73 74 72  75 63 74 24 28 61 29 3d  |"" : struct$(a)=|
000029e0  22 22 0d 0c 1c 05 cb 0d  0c 26 12 73 74 61 74 65  |"".......&.state|
000029f0  24 28 61 29 3d be 23 41  25 0d 0c 30 10 77 68 6f  |$(a)=.#A%..0.who|
00002a00  24 28 61 29 3d be 23 41  25 0d 0c 3a 11 64 61 74  |$(a)=.#A%..:.dat|
00002a10  65 24 28 61 29 3d be 23  41 25 0d 0c 44 12 69 6f  |e$(a)=.#A%..D.io|
00002a20  6e 69 63 24 28 61 29 3d  be 23 41 25 0d 0c 4e 12  |nic$(a)=.#A%..N.|
00002a30  64 61 74 61 31 24 28 61  29 3d be 23 41 25 0d 0c  |data1$(a)=.#A%..|
00002a40  58 12 64 61 74 61 32 24  28 61 29 3d be 23 41 25  |X.data2$(a)=.#A%|
00002a50  0d 0c 62 12 64 61 74 61  33 24 28 61 29 3d be 23  |..b.data3$(a)=.#|
00002a60  41 25 0d 0c 6c 12 64 61  74 61 34 24 28 61 29 3d  |A%..l.data4$(a)=|
00002a70  be 23 41 25 0d 0c 76 12  64 61 74 61 35 24 28 61  |.#A%..v.data5$(a|
00002a80  29 3d be 23 41 25 0d 0c  80 0f 73 70 61 63 65 24  |)=.#A%....space$|
00002a90  3d be 23 41 25 0d 0c 8a  07 ed 20 61 0d 0c 94 08  |=.#A%..... a....|
00002aa0  d9 23 41 25 0d 0c 9e 1e  41 25 3d 8e 28 22 3c 50  |.#A%....A%=.("<P|
00002ab0  65 72 69 6f 64 24 44 69  72 3e 2e 4e 6f 74 65 73  |eriod$Dir>.Notes|
00002ac0  22 29 0d 0c a8 0f e3 20  61 3d 31 20 b8 20 31 30  |")..... a=1 . 10|
00002ad0  33 0d 0c b2 0d e3 20 62  3d 31 20 b8 20 35 0d 0c  |3..... b=1 . 5..|
00002ae0  bc 14 65 78 74 72 61 24  28 62 2c 61 29 3d be 23  |..extra$(b,a)=.#|
00002af0  41 25 0d 0c c6 07 ed 20  62 0d 0c d0 07 ed 20 61  |A%..... b..... a|
00002b00  0d 0c da 08 d9 23 41 25  0d 0c e4 05 e1 0d 0c ee  |.....#A%........|
00002b10  04 0d 0c f8 19 dd f2 62  72 69 6e 67 75 70 28 65  |.......bringup(e|
00002b20  6c 65 6d 65 6e 74 6e 6f  25 29 0d 0d 02 1f 73 61  |lementno%)....sa|
00002b30  76 65 74 65 78 74 24 3d  6e 61 6d 65 24 28 65 6c  |vetext$=name$(el|
00002b40  65 6d 65 6e 74 6e 6f 25  29 0d 0d 0c 33 e7 20 a9  |ementno%)...3. .|
00002b50  28 73 61 76 65 74 65 78  74 24 29 3e 31 30 20 73  |(savetext$)>10 s|
00002b60  61 76 65 74 65 78 74 24  3d a4 73 68 6f 72 74 65  |avetext$=.shorte|
00002b70  6e 28 73 61 76 65 74 65  78 74 24 29 0d 0d 16 27  |n(savetext$)...'|
00002b80  f2 73 65 74 69 63 6f 6e  28 73 61 76 65 68 61 6e  |.seticon(savehan|
00002b90  25 2c 31 2c 73 61 76 65  74 65 78 74 24 2b bd 28  |%,1,savetext$+.(|
00002ba0  30 29 29 0d 0d 20 2a f2  73 65 74 69 63 6f 6e 28  |0)).. *.seticon(|
00002bb0  6e 6f 74 65 68 61 6e 25  2c 31 2c 6e 61 6d 65 24  |notehan%,1,name$|
00002bc0  28 65 6c 65 6d 65 6e 74  6e 6f 25 29 29 0d 0d 2a  |(elementno%))..*|
00002bd0  2d f2 73 65 74 69 63 6f  6e 28 6e 6f 74 65 68 61  |-.seticon(noteha|
00002be0  6e 25 2c 33 2c 65 78 74  72 61 24 28 31 2c 65 6c  |n%,3,extra$(1,el|
00002bf0  65 6d 65 6e 74 6e 6f 25  29 29 0d 0d 34 2d f2 73  |ementno%))..4-.s|
00002c00  65 74 69 63 6f 6e 28 6e  6f 74 65 68 61 6e 25 2c  |eticon(notehan%,|
00002c10  34 2c 65 78 74 72 61 24  28 32 2c 65 6c 65 6d 65  |4,extra$(2,eleme|
00002c20  6e 74 6e 6f 25 29 29 0d  0d 3e 2d f2 73 65 74 69  |ntno%))..>-.seti|
00002c30  63 6f 6e 28 6e 6f 74 65  68 61 6e 25 2c 35 2c 65  |con(notehan%,5,e|
00002c40  78 74 72 61 24 28 33 2c  65 6c 65 6d 65 6e 74 6e  |xtra$(3,elementn|
00002c50  6f 25 29 29 0d 0d 48 2d  f2 73 65 74 69 63 6f 6e  |o%))..H-.seticon|
00002c60  28 6e 6f 74 65 68 61 6e  25 2c 36 2c 65 78 74 72  |(notehan%,6,extr|
00002c70  61 24 28 34 2c 65 6c 65  6d 65 6e 74 6e 6f 25 29  |a$(4,elementno%)|
00002c80  29 0d 0d 52 2d f2 73 65  74 69 63 6f 6e 28 6e 6f  |)..R-.seticon(no|
00002c90  74 65 68 61 6e 25 2c 37  2c 65 78 74 72 61 24 28  |tehan%,7,extra$(|
00002ca0  35 2c 65 6c 65 6d 65 6e  74 6e 6f 25 29 29 0d 0d  |5,elementno%))..|
00002cb0  5c 2d f2 73 65 74 69 63  6f 6e 28 65 6c 65 6d 65  |\-.seticon(eleme|
00002cc0  6e 74 68 61 6e 25 2c 31  2c 6e 61 6d 65 24 28 65  |nthan%,1,name$(e|
00002cd0  6c 65 6d 65 6e 74 6e 6f  25 29 29 0d 0d 66 2f f2  |lementno%))..f/.|
00002ce0  73 65 74 69 63 6f 6e 28  65 6c 65 6d 65 6e 74 68  |seticon(elementh|
00002cf0  61 6e 25 2c 33 2c 73 79  6d 62 6f 6c 24 28 65 6c  |an%,3,symbol$(el|
00002d00  65 6d 65 6e 74 6e 6f 25  29 29 0d 0d 70 31 f2 73  |ementno%))..p1.s|
00002d10  65 74 69 63 6f 6e 28 65  6c 65 6d 65 6e 74 68 61  |eticon(elementha|
00002d20  6e 25 2c 35 2c 61 74 6f  6d 69 63 6e 6f 24 28 65  |n%,5,atomicno$(e|
00002d30  6c 65 6d 65 6e 74 6e 6f  25 29 29 0d 0d 7a 2c f2  |lementno%))..z,.|
00002d40  73 65 74 69 63 6f 6e 28  65 6c 65 6d 65 6e 74 68  |seticon(elementh|
00002d50  61 6e 25 2c 37 2c 72 61  6d 24 28 65 6c 65 6d 65  |an%,7,ram$(eleme|
00002d60  6e 74 6e 6f 25 29 29 0d  0d 84 2e f2 73 65 74 69  |ntno%)).....seti|
00002d70  63 6f 6e 28 65 6c 65 6d  65 6e 74 68 61 6e 25 2c  |con(elementhan%,|
00002d80  39 2c 67 72 6f 75 70 24  28 65 6c 65 6d 65 6e 74  |9,group$(element|
00002d90  6e 6f 25 29 29 0d 0d 8e  30 f2 73 65 74 69 63 6f  |no%))...0.setico|
00002da0  6e 28 65 6c 65 6d 65 6e  74 68 61 6e 25 2c 31 31  |n(elementhan%,11|
00002db0  2c 70 65 72 69 6f 64 24  28 65 6c 65 6d 65 6e 74  |,period$(element|
00002dc0  6e 6f 25 29 29 0d 0d 98  2e f2 73 65 74 69 63 6f  |no%)).....setico|
00002dd0  6e 28 65 6c 65 6d 65 6e  74 68 61 6e 25 2c 31 33  |n(elementhan%,13|
00002de0  2c 6d 65 6c 74 24 28 65  6c 65 6d 65 6e 74 6e 6f  |,melt$(elementno|
00002df0  25 29 29 0d 0d a2 2e f2  73 65 74 69 63 6f 6e 28  |%)).....seticon(|
00002e00  65 6c 65 6d 65 6e 74 68  61 6e 25 2c 31 35 2c 62  |elementhan%,15,b|
00002e10  6f 69 6c 24 28 65 6c 65  6d 65 6e 74 6e 6f 25 29  |oil$(elementno%)|
00002e20  29 0d 0d ac 30 f2 73 65  74 69 63 6f 6e 28 65 6c  |)...0.seticon(el|
00002e30  65 6d 65 6e 74 68 61 6e  25 2c 31 37 2c 73 74 72  |ementhan%,17,str|
00002e40  75 63 74 24 28 65 6c 65  6d 65 6e 74 6e 6f 25 29  |uct$(elementno%)|
00002e50  29 0d 0d b6 2f f2 73 65  74 69 63 6f 6e 28 65 6c  |).../.seticon(el|
00002e60  65 6d 65 6e 74 68 61 6e  25 2c 32 33 2c 73 74 61  |ementhan%,23,sta|
00002e70  74 65 24 28 65 6c 65 6d  65 6e 74 6e 6f 25 29 29  |te$(elementno%))|
00002e80  0d 0d c0 2d f2 73 65 74  69 63 6f 6e 28 65 6c 65  |...-.seticon(ele|
00002e90  6d 65 6e 74 68 61 6e 25  2c 31 39 2c 77 68 6f 24  |menthan%,19,who$|
00002ea0  28 65 6c 65 6d 65 6e 74  6e 6f 25 29 29 0d 0d ca  |(elementno%))...|
00002eb0  2e f2 73 65 74 69 63 6f  6e 28 65 6c 65 6d 65 6e  |..seticon(elemen|
00002ec0  74 68 61 6e 25 2c 32 31  2c 64 61 74 65 24 28 65  |than%,21,date$(e|
00002ed0  6c 65 6d 65 6e 74 6e 6f  25 29 29 0d 0d d4 2f f2  |lementno%)).../.|
00002ee0  73 65 74 69 63 6f 6e 28  65 6c 65 6d 65 6e 74 68  |seticon(elementh|
00002ef0  61 6e 25 2c 33 31 2c 69  6f 6e 69 63 24 28 65 6c  |an%,31,ionic$(el|
00002f00  65 6d 65 6e 74 6e 6f 25  29 29 0d 0d de 2f f2 73  |ementno%)).../.s|
00002f10  65 74 69 63 6f 6e 28 65  6c 65 6d 65 6e 74 68 61  |eticon(elementha|
00002f20  6e 25 2c 32 35 2c 64 61  74 61 31 24 28 65 6c 65  |n%,25,data1$(ele|
00002f30  6d 65 6e 74 6e 6f 25 29  29 0d 0d e8 2f f2 73 65  |mentno%)).../.se|
00002f40  74 69 63 6f 6e 28 65 6c  65 6d 65 6e 74 68 61 6e  |ticon(elementhan|
00002f50  25 2c 32 36 2c 64 61 74  61 32 24 28 65 6c 65 6d  |%,26,data2$(elem|
00002f60  65 6e 74 6e 6f 25 29 29  0d 0d f2 2f f2 73 65 74  |entno%)).../.set|
00002f70  69 63 6f 6e 28 65 6c 65  6d 65 6e 74 68 61 6e 25  |icon(elementhan%|
00002f80  2c 32 37 2c 64 61 74 61  33 24 28 65 6c 65 6d 65  |,27,data3$(eleme|
00002f90  6e 74 6e 6f 25 29 29 0d  0d fc 2f f2 73 65 74 69  |ntno%)).../.seti|
00002fa0  63 6f 6e 28 65 6c 65 6d  65 6e 74 68 61 6e 25 2c  |con(elementhan%,|
00002fb0  32 38 2c 64 61 74 61 34  24 28 65 6c 65 6d 65 6e  |28,data4$(elemen|
00002fc0  74 6e 6f 25 29 29 0d 0e  06 2f f2 73 65 74 69 63  |tno%)).../.setic|
00002fd0  6f 6e 28 65 6c 65 6d 65  6e 74 68 61 6e 25 2c 32  |on(elementhan%,2|
00002fe0  39 2c 64 61 74 61 35 24  28 65 6c 65 6d 65 6e 74  |9,data5$(element|
00002ff0  6e 6f 25 29 29 0d 0e 10  31 f2 73 65 74 69 63 6f  |no%))...1.setico|
00003000  6e 28 65 6c 65 6d 65 6e  74 68 61 6e 25 2c 33 33  |n(elementhan%,33|
00003010  2c 65 78 74 72 61 24 28  31 2c 65 6c 65 6d 65 6e  |,extra$(1,elemen|
00003020  74 6e 6f 25 29 29 0d 0e  1a 31 f2 73 65 74 69 63  |tno%))...1.setic|
00003030  6f 6e 28 65 6c 65 6d 65  6e 74 68 61 6e 25 2c 33  |on(elementhan%,3|
00003040  34 2c 65 78 74 72 61 24  28 32 2c 65 6c 65 6d 65  |4,extra$(2,eleme|
00003050  6e 74 6e 6f 25 29 29 0d  0e 24 31 f2 73 65 74 69  |ntno%))..$1.seti|
00003060  63 6f 6e 28 65 6c 65 6d  65 6e 74 68 61 6e 25 2c  |con(elementhan%,|
00003070  33 35 2c 65 78 74 72 61  24 28 33 2c 65 6c 65 6d  |35,extra$(3,elem|
00003080  65 6e 74 6e 6f 25 29 29  0d 0e 2e 31 f2 73 65 74  |entno%))...1.set|
00003090  69 63 6f 6e 28 65 6c 65  6d 65 6e 74 68 61 6e 25  |icon(elementhan%|
000030a0  2c 33 36 2c 65 78 74 72  61 24 28 34 2c 65 6c 65  |,36,extra$(4,ele|
000030b0  6d 65 6e 74 6e 6f 25 29  29 0d 0e 38 31 f2 73 65  |mentno%))..81.se|
000030c0  74 69 63 6f 6e 28 65 6c  65 6d 65 6e 74 68 61 6e  |ticon(elementhan|
000030d0  25 2c 33 37 2c 65 78 74  72 61 24 28 35 2c 65 6c  |%,37,extra$(5,el|
000030e0  65 6d 65 6e 74 6e 6f 25  29 29 0d 0e 42 30 77 69  |ementno%))..B0wi|
000030f0  6d 70 25 21 30 3d 6c 69  73 74 68 61 6e 25 3a c8  |mp%!0=listhan%:.|
00003100  99 22 57 69 6d 70 5f 43  6c 6f 73 65 57 69 6e 64  |."Wimp_CloseWind|
00003110  6f 77 22 2c 2c 77 69 6d  70 25 0d 0e 4c 36 77 69  |ow",,wimp%..L6wi|
00003120  6d 70 25 21 30 3d 65 6c  65 6d 65 6e 74 68 61 6e  |mp%!0=elementhan|
00003130  25 3a c8 99 22 57 69 6d  70 5f 47 65 74 57 69 6e  |%:.."Wimp_GetWin|
00003140  64 6f 77 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |dowState",,wimp%|
00003150  0d 0e 56 2a 77 69 6d 70  25 21 32 38 3d 2d 31 3a  |..V*wimp%!28=-1:|
00003160  c8 99 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |.."Wimp_OpenWind|
00003170  6f 77 22 2c 2c 77 69 6d  70 25 0d 0e 60 05 e1 0d  |ow",,wimp%..`...|
00003180  0e 6a 04 0d 0e 74 0d dd  f2 69 63 6f 6e 62 61 72  |.j...t...iconbar|
00003190  0d 0e 7e 22 77 69 6d 70  25 21 30 3d 2d 31 3a 77  |..~"wimp%!0=-1:w|
000031a0  69 6d 70 25 21 34 3d 30  3a 77 69 6d 70 25 21 38  |imp%!4=0:wimp%!8|
000031b0  3d 30 0d 0e 88 2a 77 69  6d 70 25 21 31 32 3d 36  |=0...*wimp%!12=6|
000031c0  35 3a 77 69 6d 70 25 21  31 36 3d 37 35 3a 77 69  |5:wimp%!16=75:wi|
000031d0  6d 70 25 21 32 30 3d 26  33 30 30 41 0d 0e 92 1b  |mp%!20=&300A....|
000031e0  24 28 77 69 6d 70 25 2b  32 34 29 3d 22 21 50 65  |$(wimp%+24)="!Pe|
000031f0  72 69 6f 64 69 63 22 0d  0e 9c 28 c8 99 20 22 57  |riodic"...(.. "W|
00003200  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 22 2c  |imp_CreateIcon",|
00003210  2c 77 69 6d 70 25 20 b8  20 69 63 68 61 6e 25 0d  |,wimp% . ichan%.|
00003220  0e a6 05 e1 0d 0e b0 04  0d 0e ba 10 dd f2 6d 65  |..............me|
00003230  6e 75 73 65 6c 65 63 74  0d 0e c4 19 61 25 3d 77  |nuselect....a%=w|
00003240  69 6d 70 25 21 30 3a 62  25 3d 77 69 6d 70 25 21  |imp%!0:b%=wimp%!|
00003250  34 0d 0e ce 23 c8 99 20  22 57 69 6d 70 5f 47 65  |4...#.. "Wimp_Ge|
00003260  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 2c 2c 77  |tPointerInfo",,w|
00003270  69 6d 70 25 0d 0e d8 10  62 75 74 25 3d 77 69 6d  |imp%....but%=wim|
00003280  70 25 21 38 0d 0e e2 19  77 69 6d 70 25 21 30 3d  |p%!8....wimp%!0=|
00003290  61 25 3a 77 69 6d 70 25  21 34 3d 62 25 0d 0e ec  |a%:wimp%!4=b%...|
000032a0  27 e7 20 73 3d 32 20 80  20 77 69 6d 70 25 21 30  |'. s=2 . wimp%!0|
000032b0  3d 33 20 c8 99 20 26 34  30 30 44 44 2c 61 70 70  |=3 .. &400DD,app|
000032c0  68 61 6e 25 0d 0e f6 0c  e7 20 73 3c 3e 32 20 8c  |han%..... s<>2 .|
000032d0  0d 0f 00 10 c8 8e 20 77  69 6d 70 25 21 30 20 ca  |...... wimp%!0 .|
000032e0  0d 0f 0a 65 20 20 c9 20  31 20 3a 20 77 69 6d 70  |...e  . 1 : wimp|
000032f0  25 21 30 3d 74 61 62 6c  65 68 61 6e 25 3a c8 99  |%!0=tablehan%:..|
00003300  20 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  | "Wimp_GetWindow|
00003310  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 3a 77 69  |State",,wimp%:wi|
00003320  6d 70 25 21 32 38 3d 2d  31 3a c8 99 20 22 57 69  |mp%!28=-1:.. "Wi|
00003330  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00003340  77 69 6d 70 25 0d 0f 14  1d 20 20 c9 20 33 20 3a  |wimp%....  . 3 :|
00003350  20 c8 99 20 26 34 30 30  44 44 2c 61 70 70 68 61  | .. &400DD,appha|
00003360  6e 25 0d 0f 1e 05 cb 0d  0f 28 05 cd 0d 0f 32 47  |n%.......(....2G|
00003370  e7 20 62 75 74 25 3d 31  20 80 20 73 3d 32 20 80  |. but%=1 . s=2 .|
00003380  20 77 69 6d 70 25 21 30  3c 3e 33 20 77 69 6d 70  | wimp%!0<>3 wimp|
00003390  25 21 30 3d 6d 6f 75 73  78 25 3a 77 69 6d 70 25  |%!0=mousx%:wimp%|
000033a0  21 34 3d 6d 6f 75 73 79  25 3a f2 6d 61 6b 65 6d  |!4=mousy%:.makem|
000033b0  65 6e 75 0d 0f 3c 48 e7  20 62 75 74 25 3d 31 20  |enu..<H. but%=1 |
000033c0  80 20 73 3c 3e 32 20 80  20 77 69 6d 70 25 21 30  |. s<>2 . wimp%!0|
000033d0  3c 3e 33 20 77 69 6d 70  25 21 30 3d 6d 6f 75 73  |<>3 wimp%!0=mous|
000033e0  78 25 3a 77 69 6d 70 25  21 34 3d 6d 6f 75 73 79  |x%:wimp%!4=mousy|
000033f0  25 3a f2 6d 61 6b 65 6d  65 6e 75 0d 0f 46 05 e1  |%:.makemenu..F..|
00003400  0d 0f 50 04 0d 0f 5a 11  dd f2 67 65 74 66 69 6c  |..P...Z...getfil|
00003410  65 6e 61 6d 65 0d 0f 64  1e 77 69 6d 70 25 21 30  |ename..d.wimp%!0|
00003420  3d 73 61 76 65 68 61 6e  25 3a 77 69 6d 70 25 21  |=savehan%:wimp%!|
00003430  34 3d 31 0d 0f 6e 14 c8  99 20 26 34 30 30 43 45  |4=1..n... &400CE|
00003440  2c 2c 77 69 6d 70 25 0d  0f 78 15 66 69 6c 65 6e  |,,wimp%..x.filen|
00003450  61 24 3d 24 77 69 6d 70  25 21 32 38 0d 0f 82 1f  |a$=$wimp%!28....|
00003460  66 69 6c 65 6e 61 24 3d  a4 66 69 78 73 74 72 69  |filena$=.fixstri|
00003470  6e 67 28 66 69 6c 65 6e  61 24 29 0d 0f 8c 05 e1  |ng(filena$).....|
00003480  0d 0f 96 04 0d 0f a0 19  dd a4 67 65 74 69 63 6f  |..........getico|
00003490  6e 28 77 69 6e 64 25 2c  69 63 6e 25 29 0d 0f aa  |n(wind%,icn%)...|
000034a0  1e 77 69 6d 70 25 21 30  3d 77 69 6e 64 25 3a 77  |.wimp%!0=wind%:w|
000034b0  69 6d 70 25 21 34 3d 69  63 6e 25 0d 0f b4 14 c8  |imp%!4=icn%.....|
000034c0  99 20 26 34 30 30 43 45  2c 2c 77 69 6d 70 25 0d  |. &400CE,,wimp%.|
000034d0  0f be 12 73 74 72 24 3d  24 77 69 6d 70 25 21 32  |...str$=$wimp%!2|
000034e0  38 0d 0f c8 1a 3d a4 66  69 78 73 74 72 69 6e 67  |8....=.fixstring|
000034f0  28 73 74 72 24 2b bd 28  30 29 29 0d 0f d2 04 0d  |(str$+.(0)).....|
00003500  0f dc 10 dd f2 6e 6f 74  65 73 28 62 74 25 29 0d  |.....notes(bt%).|
00003510  0f e6 29 65 78 74 72 61  24 28 31 2c 65 6c 65 6e  |..)extra$(1,elen|
00003520  6f 25 29 3d a4 67 65 74  69 63 6f 6e 28 6e 6f 74  |o%)=.geticon(not|
00003530  65 68 61 6e 25 2c 33 29  0d 0f f0 29 65 78 74 72  |ehan%,3)...)extr|
00003540  61 24 28 32 2c 65 6c 65  6e 6f 25 29 3d a4 67 65  |a$(2,eleno%)=.ge|
00003550  74 69 63 6f 6e 28 6e 6f  74 65 68 61 6e 25 2c 34  |ticon(notehan%,4|
00003560  29 0d 0f fa 29 65 78 74  72 61 24 28 33 2c 65 6c  |)...)extra$(3,el|
00003570  65 6e 6f 25 29 3d a4 67  65 74 69 63 6f 6e 28 6e  |eno%)=.geticon(n|
00003580  6f 74 65 68 61 6e 25 2c  35 29 0d 10 04 29 65 78  |otehan%,5)...)ex|
00003590  74 72 61 24 28 34 2c 65  6c 65 6e 6f 25 29 3d a4  |tra$(4,eleno%)=.|
000035a0  67 65 74 69 63 6f 6e 28  6e 6f 74 65 68 61 6e 25  |geticon(notehan%|
000035b0  2c 36 29 0d 10 0e 29 65  78 74 72 61 24 28 35 2c  |,6)...)extra$(5,|
000035c0  65 6c 65 6e 6f 25 29 3d  a4 67 65 74 69 63 6f 6e  |eleno%)=.geticon|
000035d0  28 6e 6f 74 65 68 61 6e  25 2c 37 29 0d 10 18 2d  |(notehan%,7)...-|
000035e0  f2 73 65 74 69 63 6f 6e  28 65 6c 65 6d 65 6e 74  |.seticon(element|
000035f0  68 61 6e 25 2c 33 33 2c  65 78 74 72 61 24 28 31  |han%,33,extra$(1|
00003600  2c 65 6c 65 6e 6f 25 29  29 0d 10 22 2d f2 73 65  |,eleno%)).."-.se|
00003610  74 69 63 6f 6e 28 65 6c  65 6d 65 6e 74 68 61 6e  |ticon(elementhan|
00003620  25 2c 33 34 2c 65 78 74  72 61 24 28 32 2c 65 6c  |%,34,extra$(2,el|
00003630  65 6e 6f 25 29 29 0d 10  2c 2d f2 73 65 74 69 63  |eno%))..,-.setic|
00003640  6f 6e 28 65 6c 65 6d 65  6e 74 68 61 6e 25 2c 33  |on(elementhan%,3|
00003650  35 2c 65 78 74 72 61 24  28 33 2c 65 6c 65 6e 6f  |5,extra$(3,eleno|
00003660  25 29 29 0d 10 36 2d f2  73 65 74 69 63 6f 6e 28  |%))..6-.seticon(|
00003670  65 6c 65 6d 65 6e 74 68  61 6e 25 2c 33 36 2c 65  |elementhan%,36,e|
00003680  78 74 72 61 24 28 34 2c  65 6c 65 6e 6f 25 29 29  |xtra$(4,eleno%))|
00003690  0d 10 40 2d f2 73 65 74  69 63 6f 6e 28 65 6c 65  |..@-.seticon(ele|
000036a0  6d 65 6e 74 68 61 6e 25  2c 33 37 2c 65 78 74 72  |menthan%,37,extr|
000036b0  61 24 28 35 2c 65 6c 65  6e 6f 25 29 29 0d 10 4a  |a$(5,eleno%))..J|
000036c0  1e 41 25 3d ae 28 22 3c  50 65 72 69 6f 64 24 44  |.A%=.("<Period$D|
000036d0  69 72 3e 2e 4e 6f 74 65  73 22 29 0d 10 54 0f e3  |ir>.Notes")..T..|
000036e0  20 61 3d 31 20 b8 20 31  30 33 0d 10 5e 0d e3 20  | a=1 . 103..^.. |
000036f0  62 3d 31 20 b8 20 35 0d  10 68 14 d5 23 41 25 2c  |b=1 . 5..h..#A%,|
00003700  65 78 74 72 61 24 28 62  2c 61 29 0d 10 72 07 ed  |extra$(b,a)..r..|
00003710  20 62 0d 10 7c 07 ed 20  61 0d 10 86 08 d9 23 41  | b..|.. a.....#A|
00003720  25 0d 10 90 22 e7 20 62  74 25 3d 34 20 c8 99 22  |%...". bt%=4 .."|
00003730  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00003740  2c 2d 31 0d 10 9a 05 e1  0d 10 a4 04 0d 10 ae 1a  |,-1.............|
00003750  dd a4 66 69 78 73 74 72  69 6e 67 28 6f 72 69 67  |..fixstring(orig|
00003760  6e 61 6d 65 24 29 0d 10  b8 10 70 3d 31 3a 6e 61  |name$)....p=1:na|
00003770  6d 65 24 3d 22 22 0d 10  c2 1c c8 95 20 c1 6f 72  |me$=""...... .or|
00003780  69 67 6e 61 6d 65 24 2c  70 2c 31 29 3c 3e bd 28  |igname$,p,1)<>.(|
00003790  30 29 0d 10 cc 1f 6e 61  6d 65 24 2b 3d c1 6f 72  |0)....name$+=.or|
000037a0  69 67 6e 61 6d 65 24 2c  70 2c 31 29 3a 70 2b 3d  |igname$,p,1):p+=|
000037b0  31 0d 10 d6 05 ce 0d 10  e0 0a 3d 6e 61 6d 65 24  |1.........=name$|
000037c0  0d 10 ea 04 0d 10 f4 0d  dd f2 67 65 74 77 6f 72  |..........getwor|
000037d0  64 0d 10 fe 1f 77 69 6d  70 25 21 30 3d 73 65 61  |d....wimp%!0=sea|
000037e0  72 63 68 61 6e 25 3a 77  69 6d 70 25 21 34 3d 31  |rchan%:wimp%!4=1|
000037f0  0d 11 08 14 c8 99 20 26  34 30 30 43 45 2c 2c 77  |...... &400CE,,w|
00003800  69 6d 70 25 0d 11 12 13  77 6f 72 64 24 3d 24 77  |imp%....word$=$w|
00003810  69 6d 70 25 21 32 38 0d  11 1c 37 e7 20 77 6f 72  |imp%!28...7. wor|
00003820  64 24 3d 22 22 20 f2 65  72 72 28 31 2c 22 59 6f  |d$="" .err(1,"Yo|
00003830  75 20 6e 65 65 64 20 74  6f 20 65 6e 74 65 72 20  |u need to enter |
00003840  73 6f 6d 65 74 68 69 6e  67 21 22 29 3a e1 0d 11  |something!"):...|
00003850  26 1c 77 6f 72 64 24 3d  a4 63 68 61 6e 67 65 63  |&.word$=.changec|
00003860  61 73 65 28 77 6f 72 64  24 29 0d 11 30 05 e1 0d  |ase(word$)..0...|
00003870  11 3a 04 0d 11 44 0e dd  f2 6a 75 73 74 66 69 6c  |.:...D...justfil|
00003880  65 0d 11 4e 16 c8 95 20  a7 66 69 6c 65 6e 61 24  |e..N... .filena$|
00003890  2c 22 2e 22 29 3e 30 0d  11 58 25 66 69 6c 65 6e  |,".")>0..X%filen|
000038a0  61 24 3d c1 66 69 6c 65  6e 61 24 2c a7 66 69 6c  |a$=.filena$,.fil|
000038b0  65 6e 61 24 2c 22 2e 22  29 2b 31 29 0d 11 62 05  |ena$,".")+1)..b.|
000038c0  ce 0d 11 6c 05 e1 0d 11  76 04 0d 11 80 24 dd f2  |...l....v....$..|
000038d0  73 65 74 69 63 6f 6e 28  77 69 6d 70 25 21 30 2c  |seticon(wimp%!0,|
000038e0  77 69 6d 70 25 21 34 2c  74 65 78 74 24 29 0d 11  |wimp%!4,text$)..|
000038f0  8a 14 c8 99 20 26 34 30  30 43 45 2c 2c 77 69 6d  |.... &400CE,,wim|
00003900  70 25 0d 11 94 13 24 77  69 6d 70 25 21 32 38 3d  |p%....$wimp%!28=|
00003910  74 65 78 74 24 0d 11 9e  18 77 69 6d 70 25 21 38  |text$....wimp%!8|
00003920  3d 30 3a 77 69 6d 70 25  21 31 32 3d 30 0d 11 a8  |=0:wimp%!12=0...|
00003930  14 c8 99 20 26 34 30 30  43 44 2c 2c 77 69 6d 70  |... &400CD,,wimp|
00003940  25 0d 11 b2 05 e1 0d 11  bc 04 0d 11 c6 0a dd f2  |%...............|
00003950  64 72 61 67 0d 11 d0 1a  e7 20 77 69 6d 70 25 21  |drag..... wimp%!|
00003960  31 32 3c 3e 73 61 76 65  68 61 6e 25 20 e1 0d 11  |12<>savehan% ...|
00003970  da 1a f2 67 65 74 66 69  6c 65 6e 61 6d 65 3a f2  |...getfilename:.|
00003980  6a 75 73 74 66 69 6c 65  0d 11 e4 34 77 69 6d 70  |justfile...4wimp|
00003990  25 21 30 3d 73 61 76 65  68 61 6e 25 3a c8 99 20  |%!0=savehan%:.. |
000039a0  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
000039b0  74 61 74 65 22 2c 2c 77  69 6d 70 25 0d 11 ee 22  |tate",,wimp%..."|
000039c0  78 3d 77 69 6d 70 25 21  34 3a 79 3d 77 69 6d 70  |x=wimp%!4:y=wimp|
000039d0  25 21 31 36 3a 77 69 6d  70 25 21 34 3d 30 0d 11  |%!16:wimp%!4=0..|
000039e0  f8 21 c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |.!.. "Wimp_GetIc|
000039f0  6f 6e 53 74 61 74 65 22  2c 2c 77 69 6d 70 25 0d  |onState",,wimp%.|
00003a00  12 02 28 77 69 6d 70 25  21 34 3d 35 3a 77 69 6d  |..(wimp%!4=5:wim|
00003a10  70 25 21 38 2b 3d 78 2d  34 3a 77 69 6d 70 25 21  |p%!8+=x-4:wimp%!|
00003a20  31 32 2b 3d 79 2d 34 0d  12 0c 1f 77 69 6d 70 25  |12+=y-4....wimp%|
00003a30  21 31 36 2b 3d 78 2b 34  3a 77 69 6d 70 25 21 32  |!16+=x+4:wimp%!2|
00003a40  30 2b 3d 79 2b 34 0d 12  16 19 77 69 6d 70 25 21  |0+=y+4....wimp%!|
00003a50  32 34 3d 30 3a 77 69 6d  70 25 21 32 38 3d 30 0d  |24=0:wimp%!28=0.|
00003a60  12 20 29 77 69 6d 70 25  21 33 32 3d 26 37 46 46  |. )wimp%!32=&7FF|
00003a70  46 46 46 46 46 3a 77 69  6d 70 25 21 33 36 3d 26  |FFFFF:wimp%!36=&|
00003a80  37 46 46 46 46 46 46 46  0d 12 2a 1c c8 99 20 22  |7FFFFFFF..*... "|
00003a90  57 69 6d 70 5f 44 72 61  67 42 6f 78 22 2c 2c 77  |Wimp_DragBox",,w|
00003aa0  69 6d 70 25 0d 12 34 05  e1 0d 12 3e 04 0d 12 48  |imp%..4....>...H|
00003ab0  0b dd f2 63 6c 69 63 6b  0d 12 52 23 e7 20 77 69  |...click..R#. wi|
00003ac0  6d 70 25 21 38 3d 31 36  20 84 20 77 69 6d 70 25  |mp%!8=16 . wimp%|
00003ad0  21 38 3d 36 34 20 f2 64  72 61 67 0d 12 5c 7a e7  |!8=64 .drag..\z.|
00003ae0  20 77 69 6d 70 25 21 38  3d 34 20 80 20 77 69 6d  | wimp%!8=4 . wim|
00003af0  70 25 21 31 32 3d 74 61  62 6c 65 68 61 6e 25 20  |p%!12=tablehan% |
00003b00  80 20 77 69 6d 70 25 21  31 36 3c 31 30 33 20 80  |. wimp%!16<103 .|
00003b10  20 77 69 6d 70 25 21 31  36 3e 3d 30 20 65 6c 65  | wimp%!16>=0 ele|
00003b20  6e 6f 25 3d 77 69 6d 70  25 21 31 36 2b 31 3a 63  |no%=wimp%!16+1:c|
00003b30  75 72 72 65 6e 74 25 3d  65 6c 65 6e 6f 25 3a f2  |urrent%=eleno%:.|
00003b40  62 72 69 6e 67 75 70 28  77 69 6d 70 25 21 31 36  |bringup(wimp%!16|
00003b50  2b 31 29 3a e1 0d 12 66  77 e7 20 77 69 6d 70 25  |+1):...fw. wimp%|
00003b60  21 38 3d 31 20 80 20 77  69 6d 70 25 21 31 32 3d  |!8=1 . wimp%!12=|
00003b70  74 61 62 6c 65 68 61 6e  25 20 80 20 77 69 6d 70  |tablehan% . wimp|
00003b80  25 21 31 36 3d 63 75 72  72 65 6e 74 25 2d 31 20  |%!16=current%-1 |
00003b90  63 75 72 72 65 6e 74 25  3d 30 3a 77 69 6d 70 25  |current%=0:wimp%|
00003ba0  21 30 3d 65 6c 65 6d 65  6e 74 68 61 6e 25 3a c8  |!0=elementhan%:.|
00003bb0  99 22 57 69 6d 70 5f 43  6c 6f 73 65 57 69 6e 64  |."Wimp_CloseWind|
00003bc0  6f 77 22 2c 2c 77 69 6d  70 25 3a e1 0d 12 70 8f  |ow",,wimp%:...p.|
00003bd0  e7 20 77 69 6d 70 25 21  38 3d 31 20 80 20 77 69  |. wimp%!8=1 . wi|
00003be0  6d 70 25 21 31 32 3d 74  61 62 6c 65 68 61 6e 25  |mp%!12=tablehan%|
00003bf0  20 80 20 77 69 6d 70 25  21 31 36 3c 3e 63 75 72  | . wimp%!16<>cur|
00003c00  72 65 6e 74 25 2d 31 20  80 20 77 69 6d 70 25 21  |rent%-1 . wimp%!|
00003c10  31 36 3e 3d 30 20 80 20  77 69 6d 70 25 21 31 36  |16>=0 . wimp%!16|
00003c20  3c 31 30 33 20 63 75 72  72 65 6e 74 25 3d 77 69  |<103 current%=wi|
00003c30  6d 70 25 21 31 36 2b 31  3a 65 6c 65 6e 6f 25 3d  |mp%!16+1:eleno%=|
00003c40  63 75 72 72 65 6e 74 25  3a f2 62 72 69 6e 67 75  |current%:.bringu|
00003c50  70 28 65 6c 65 6e 6f 25  29 3a e1 0d 12 7a 28 e7  |p(eleno%):...z(.|
00003c60  20 77 69 6d 70 25 21 31  32 3d 73 61 76 65 68 61  | wimp%!12=saveha|
00003c70  6e 25 20 80 20 77 69 6d  70 25 21 31 36 3d 32 20  |n% . wimp%!16=2 |
00003c80  f2 6f 6b 0d 12 84 3c e7  20 77 69 6d 70 25 21 31  |.ok...<. wimp%!1|
00003c90  32 3d 6e 6f 74 65 68 61  6e 25 20 80 20 77 69 6d  |2=notehan% . wim|
00003ca0  70 25 21 31 36 3d 39 20  80 20 77 69 6d 70 25 21  |p%!16=9 . wimp%!|
00003cb0  38 3d 31 20 f2 6e 6f 74  65 73 28 31 29 3a e1 0d  |8=1 .notes(1):..|
00003cc0  12 8e 3c e7 20 77 69 6d  70 25 21 31 32 3d 6e 6f  |..<. wimp%!12=no|
00003cd0  74 65 68 61 6e 25 20 80  20 77 69 6d 70 25 21 31  |tehan% . wimp%!1|
00003ce0  36 3d 39 20 80 20 77 69  6d 70 25 21 38 3d 34 20  |6=9 . wimp%!8=4 |
00003cf0  f2 6e 6f 74 65 73 28 34  29 3a e1 0d 12 98 31 e7  |.notes(4):....1.|
00003d00  20 77 69 6d 70 25 21 31  32 3d 6e 6f 74 65 68 61  | wimp%!12=noteha|
00003d10  6e 25 20 80 20 77 69 6d  70 25 21 31 36 3d 31 30  |n% . wimp%!16=10|
00003d20  20 77 77 25 3d 31 2d 77  77 25 3a e1 0d 12 a2 32  | ww%=1-ww%:....2|
00003d30  e7 20 77 69 6d 70 25 21  38 3d 32 20 80 20 77 69  |. wimp%!8=2 . wi|
00003d40  6d 70 25 21 31 32 3d 74  61 62 6c 65 68 61 6e 25  |mp%!12=tablehan%|
00003d50  20 73 3d 30 3a f2 6d 61  6b 65 6d 65 6e 75 0d 12  | s=0:.makemenu..|
00003d60  ac 2b e7 20 77 69 6d 70  25 21 31 32 3d 2d 32 20  |.+. wimp%!12=-2 |
00003d70  80 20 77 69 6d 70 25 21  38 3d 32 20 73 3d 31 3a  |. wimp%!8=2 s=1:|
00003d80  f2 6d 61 6b 65 6d 65 6e  75 0d 12 b6 34 e7 20 77  |.makemenu...4. w|
00003d90  69 6d 70 25 21 38 3d 32  20 80 20 77 69 6d 70 25  |imp%!8=2 . wimp%|
00003da0  21 31 32 3d 65 6c 65 6d  65 6e 74 68 61 6e 25 20  |!12=elementhan% |
00003db0  73 3d 32 3a f2 6d 61 6b  65 6d 65 6e 75 0d 12 c0  |s=2:.makemenu...|
00003dc0  75 e7 20 77 69 6d 70 25  21 38 3d 34 20 80 20 77  |u. wimp%!8=4 . w|
00003dd0  69 6d 70 25 21 31 32 3d  2d 32 20 77 69 6d 70 25  |imp%!12=-2 wimp%|
00003de0  21 30 3d 74 61 62 6c 65  68 61 6e 25 3a c8 99 22  |!0=tablehan%:.."|
00003df0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00003e00  61 74 65 22 2c 2c 77 69  6d 70 25 3a 77 69 6d 70  |ate",,wimp%:wimp|
00003e10  25 21 32 38 3d 2d 31 3a  c8 99 22 57 69 6d 70 5f  |%!28=-1:.."Wimp_|
00003e20  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 77 69 6d  |OpenWindow",,wim|
00003e30  70 25 0d 12 ca 30 e7 20  77 69 6d 70 25 21 31 32  |p%...0. wimp%!12|
00003e40  3d 73 65 61 72 63 68 61  6e 25 20 80 20 77 69 6d  |=searchan% . wim|
00003e50  70 25 21 31 36 3d 37 20  f2 73 65 61 72 63 68 79  |p%!16=7 .searchy|
00003e60  3a e1 0d 12 d4 ad e7 20  77 69 6d 70 25 21 31 32  |:...... wimp%!12|
00003e70  3d 6c 69 73 74 68 61 6e  25 20 80 20 77 69 6d 70  |=listhan% . wimp|
00003e80  25 21 38 3d 31 20 80 20  77 69 6d 70 25 21 31 36  |%!8=1 . wimp%!16|
00003e90  3c 6e 6f 6c 69 73 74 73  25 20 80 20 77 69 6d 70  |<nolists% . wimp|
00003ea0  25 21 31 36 3e 2d 31 20  69 63 6f 25 3d 77 69 6d  |%!16>-1 ico%=wim|
00003eb0  70 25 21 31 36 3a 77 69  6d 70 25 21 30 3d 6c 69  |p%!16:wimp%!0=li|
00003ec0  73 74 68 61 6e 25 3a c8  99 22 57 69 6d 70 5f 43  |sthan%:.."Wimp_C|
00003ed0  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 77 69 6d  |loseWindow",,wim|
00003ee0  70 25 3a 6e 6f 6c 69 73  74 73 25 3d 30 3a 65 6c  |p%:nolists%=0:el|
00003ef0  65 6e 6f 25 3d 6c 69 73  74 6e 6f 25 28 69 63 6f  |eno%=listno%(ico|
00003f00  25 2b 31 29 3a f2 70 72  6f 64 75 63 65 3a e1 0d  |%+1):.produce:..|
00003f10  12 de ab e7 20 77 69 6d  70 25 21 31 32 3d 6c 69  |.... wimp%!12=li|
00003f20  73 74 68 61 6e 25 20 80  20 77 69 6d 70 25 21 38  |sthan% . wimp%!8|
00003f30  3d 34 20 80 20 77 69 6d  70 25 21 31 36 3c 6e 6f  |=4 . wimp%!16<no|
00003f40  6c 69 73 74 73 25 20 80  20 77 69 6d 70 25 21 31  |lists% . wimp%!1|
00003f50  36 3e 2d 31 20 69 63 6f  25 3d 77 69 6d 70 25 21  |6>-1 ico%=wimp%!|
00003f60  31 36 3a 77 69 6d 70 25  21 30 3d 6c 69 73 74 68  |16:wimp%!0=listh|
00003f70  61 6e 25 3a c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |an%:.."Wimp_Clos|
00003f80  65 57 69 6e 64 6f 77 22  2c 2c 77 69 6d 70 25 3a  |eWindow",,wimp%:|
00003f90  6e 6f 6c 69 73 74 73 25  3d 30 3a 65 6c 65 6e 6f  |nolists%=0:eleno|
00003fa0  25 3d 6c 69 73 74 6e 6f  25 28 69 63 6f 25 2b 31  |%=listno%(ico%+1|
00003fb0  29 3a f2 70 72 6f 64 75  63 65 0d 12 e8 05 e1 0d  |):.produce......|
00003fc0  12 f2 04 0d 12 fc 0e dd  f2 6d 61 6b 65 6d 65 6e  |.........makemen|
00003fd0  75 0d 13 06 15 24 6d 65  6e 75 25 3d 22 50 65 72  |u....$menu%="Per|
00003fe0  69 6f 64 69 63 22 0d 13  10 0e 6d 65 6e 75 25 3f  |iodic"....menu%?|
00003ff0  31 32 3d 37 0d 13 1a 0e  6d 65 6e 75 25 3f 31 33  |12=7....menu%?13|
00004000  3d 32 0d 13 24 0e 6d 65  6e 75 25 3f 31 34 3d 37  |=2..$.menu%?14=7|
00004010  0d 13 2e 0e 6d 65 6e 75  25 3f 31 35 3d 30 0d 13  |....menu%?15=0..|
00004020  38 10 6d 65 6e 75 25 21  31 36 3d 31 33 35 0d 13  |8.menu%!16=135..|
00004030  42 0f 6d 65 6e 75 25 21  32 30 3d 34 34 0d 13 4c  |B.menu%!20=44..L|
00004040  0e 6d 65 6e 75 25 21 32  34 3d 30 0d 13 56 0e 6d  |.menu%!24=0..V.m|
00004050  65 6e 75 25 21 32 38 3d  32 0d 13 60 13 6d 65 6e  |enu%!28=2..`.men|
00004060  75 25 21 33 32 3d 69 6e  68 61 6e 25 0d 13 6a 16  |u%!32=inhan%..j.|
00004070  6d 65 6e 75 25 21 33 36  3d 26 30 37 30 30 30 30  |menu%!36=&070000|
00004080  32 31 0d 13 74 16 24 28  6d 65 6e 75 25 2b 34 30  |21..t.$(menu%+40|
00004090  29 3d 22 49 6e 66 6f 22  0d 13 7e 0e 6d 65 6e 75  |)="Info"..~.menu|
000040a0  25 21 35 32 3d 30 0d 13  88 0f 6d 65 6e 75 25 21  |%!52=0....menu%!|
000040b0  35 36 3d 2d 31 0d 13 92  16 6d 65 6e 75 25 21 36  |56=-1....menu%!6|
000040c0  30 3d 26 30 37 30 30 30  30 32 31 0d 13 9c 1a 24  |0=&07000021....$|
000040d0  28 6d 65 6e 75 25 2b 36  34 29 3d 22 54 61 62 6c  |(menu%+64)="Tabl|
000040e0  65 2e 2e 2e 22 0d 13 a6  0e 6d 65 6e 75 25 21 37  |e..."....menu%!7|
000040f0  36 3d 32 0d 13 b0 16 6d  65 6e 75 25 21 38 30 3d  |6=2....menu%!80=|
00004100  73 65 61 72 63 68 61 6e  25 0d 13 ba 16 6d 65 6e  |searchan%....men|
00004110  75 25 21 38 34 3d 26 30  37 30 30 30 30 32 31 0d  |u%!84=&07000021.|
00004120  13 c4 18 24 28 6d 65 6e  75 25 2b 38 38 29 3d 22  |...$(menu%+88)="|
00004130  53 65 61 72 63 68 22 0d  13 ce 11 6d 65 6e 75 25  |Search"....menu%|
00004140  21 31 30 30 3d 26 38 30  0d 13 d8 10 6d 65 6e 75  |!100=&80....menu|
00004150  25 21 31 30 34 3d 2d 31  0d 13 e2 17 6d 65 6e 75  |%!104=-1....menu|
00004160  25 21 31 30 38 3d 26 30  37 30 30 30 30 32 31 0d  |%!108=&07000021.|
00004170  13 ec 17 24 28 6d 65 6e  75 25 2b 31 31 32 29 3d  |...$(menu%+112)=|
00004180  22 51 75 69 74 22 0d 13  f6 0b e7 20 73 3d 32 20  |"Quit"..... s=2 |
00004190  8c 0d 14 00 1e 20 20 6d  65 6e 75 74 69 74 6c 65  |.....  menutitle|
000041a0  24 3d 6e 61 6d 65 24 28  65 6c 65 6e 6f 25 29 0d  |$=name$(eleno%).|
000041b0  14 0a 38 20 20 e7 20 a9  28 6d 65 6e 75 74 69 74  |..8  . .(menutit|
000041c0  6c 65 24 29 3e 31 30 20  6d 65 6e 75 74 69 74 6c  |le$)>10 menutitl|
000041d0  65 24 3d a4 73 68 6f 72  74 65 6e 28 6d 65 6e 75  |e$=.shorten(menu|
000041e0  74 69 74 6c 65 24 29 0d  14 14 17 20 20 24 6d 65  |title$)....  $me|
000041f0  6e 75 25 3d 6d 65 6e 75  74 69 74 6c 65 24 0d 14  |nu%=menutitle$..|
00004200  1e 12 20 20 6d 65 6e 75  25 21 31 36 3d 31 38 30  |..  menu%!16=180|
00004210  0d 14 28 17 20 20 6d 65  6e 75 25 21 35 36 3d 73  |..(.  menu%!56=s|
00004220  61 76 65 68 61 6e 25 0d  14 32 1d 20 20 24 28 6d  |avehan%..2.  $(m|
00004230  65 6e 75 25 2b 36 34 29  3d 22 53 61 76 65 a0 54  |enu%+64)="Save.T|
00004240  65 78 74 22 0d 14 3c 17  20 20 6d 65 6e 75 25 21  |ext"..<.  menu%!|
00004250  38 30 3d 6e 6f 74 65 68  61 6e 25 0d 14 46 1d 20  |80=notehan%..F. |
00004260  20 24 28 6d 65 6e 75 25  2b 38 38 29 3d 22 41 64  | $(menu%+88)="Ad|
00004270  64 20 4e 6f 74 65 73 22  0d 14 50 05 cd 0d 14 5a  |d Notes"..P....Z|
00004280  21 6d 6f 75 73 78 25 3d  77 69 6d 70 25 21 30 3a  |!mousx%=wimp%!0:|
00004290  6d 6f 75 73 79 25 3d 77  69 6d 70 25 21 34 0d 14  |mousy%=wimp%!4..|
000042a0  64 3e e7 20 73 3d 30 20  84 20 73 3d 32 20 c8 99  |d>. s=0 . s=2 ..|
000042b0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
000042c0  75 22 2c 2c 6d 65 6e 75  25 2c 77 69 6d 70 25 21  |u",,menu%,wimp%!|
000042d0  30 2d 37 30 2c 77 69 6d  70 25 21 34 0d 14 6e 34  |0-70,wimp%!4..n4|
000042e0  e7 20 73 3d 31 20 c8 99  20 22 57 69 6d 70 5f 43  |. s=1 .. "Wimp_C|
000042f0  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 65 6e 75  |reateMenu",,menu|
00004300  25 2c 77 69 6d 70 25 21  30 2d 36 38 2c 33 32 30  |%,wimp%!0-68,320|
00004310  0d 14 78 05 e1 0d 14 82  04 0d 14 8c 14 dd a4 73  |..x............s|
00004320  68 6f 72 74 65 6e 28 74  65 78 74 24 29 0d 14 96  |horten(text$)...|
00004330  0b 74 78 74 24 3d 22 22  0d 14 a0 14 e3 20 61 3d  |.txt$=""..... a=|
00004340  31 20 b8 20 a9 28 74 65  78 74 24 29 0d 14 aa 17  |1 . .(text$)....|
00004350  61 73 63 25 3d 97 28 c1  74 65 78 74 24 2c 61 2c  |asc%=.(.text$,a,|
00004360  31 29 29 0d 14 b4 1b e7  20 61 3c 37 20 74 78 74  |1))..... a<7 txt|
00004370  24 2b 3d c1 74 65 78 74  24 2c 61 2c 31 29 0d 14  |$+=.text$,a,1)..|
00004380  be 56 e7 20 61 3e 36 20  80 20 61 73 63 25 3c 3e  |.V. a>6 . asc%<>|
00004390  39 37 20 80 20 61 73 63  25 3c 3e 31 30 31 20 80  |97 . asc%<>101 .|
000043a0  20 61 73 63 25 3c 3e 31  30 35 20 80 20 61 73 63  | asc%<>105 . asc|
000043b0  25 3c 3e 31 31 31 20 80  20 61 73 63 25 3c 3e 31  |%<>111 . asc%<>1|
000043c0  31 37 20 74 78 74 24 2b  3d c1 74 65 78 74 24 2c  |17 txt$+=.text$,|
000043d0  61 2c 31 29 0d 14 c8 07  ed 20 61 0d 14 d2 09 3d  |a,1)..... a....=|
000043e0  74 78 74 24 0d 14 dc 04  0d 14 e6 14 dd a4 63 68  |txt$..........ch|
000043f0  61 6e 67 65 63 61 73 65  28 61 24 29 0d 14 f0 0b  |angecase(a$)....|
00004400  77 72 64 24 3d 22 22 0d  14 fa 11 e3 20 61 3d 31  |wrd$=""..... a=1|
00004410  20 b8 20 a9 28 61 24 29  0d 15 04 11 6c 3d 97 28  | . .(a$)....l=.(|
00004420  c1 61 24 2c 61 2c 31 29  29 0d 15 0e 18 e7 20 6c  |.a$,a,1))..... l|
00004430  3e 39 36 20 80 20 6c 3c  31 32 33 20 6c 2d 3d 33  |>96 . l<123 l-=3|
00004440  32 0d 15 18 19 e7 20 6c  3e 32 32 33 20 80 20 6c  |2..... l>223 . l|
00004450  3c 32 35 36 20 6c 2d 3d  33 32 0d 15 22 0e 77 72  |<256 l-=32..".wr|
00004460  64 24 2b 3d bd 28 6c 29  0d 15 2c 07 ed 20 61 0d  |d$+=.(l)..,.. a.|
00004470  15 36 09 3d 77 72 64 24  0d ff                    |.6.=wrd$..|
0000447a