� >!RunImage
� for Ignotum
� � Chris Allen
("version$="1.02 (3rd June '96)"
2vershort$="v 1.02"
<
F@ș "OS_FSControl",28,"<Ignotum$Dir>.Sprites" � ,,spritesize%
Pspritesize%+=16
Zdithersprite%=0
d<m%=-1:active%=-1:altered%=0:helpyn%=1:formula%=0:open%=0
n�setuptopics
xC� buffer% 256, icon$(4), ident% 16, messfile% 2000, data$(25,6)
�%� wimp% 5000, sprite% spritesize%
�K� handle%(5), info% 140, greet% 60, help% 250, list% 1250, control% 100
�=� inter% 600, menu_selection% 256, callme% 20, menu% 1000
�*callme%!0=&502:callme%!4=2:callme%!8=0
�&sprite%!0=spritesize%:sprite%!8=16
�!ș "OS_SpriteOp",&109,sprite%
�9ș "OS_SpriteOp",&10A,sprite%,"<Ignotum$Dir>.Sprites"
�Dș &400C0,300,&4B534154,"Ignotum",callme% � wimpversion%,apphan%
�(templates$="<Ignotum$Dir>.Templates"
�Mș "OS_ReadVarVal","Ignotum$3D",buffer%,256 �,,length%:buffer%?length%=13
�:� $buffer%="Yes" templates$="<Ignotum$Dir>.Template3D"
��"Unset Ignotum$3D"
�Yș "OS_ReadVarVal","Ignotum$DitheredSprite",buffer%,256 �,,length%:buffer%?length%=13

$� $buffer%="Yes" dithersprite%=1

#�"Unset Ignotum$DitheredSprite"

ș &400D9,,templates$

"5ș &400DB,,wimp%,greet%,greet%+60,-1,"greeting",0

,wimp%!64=sprite%

6!ș &400C1,,wimp% � handle%(1)

@-ș "XOS_ReadModeVariable",�,11 � ,,width%

J.ș "XOS_ReadModeVariable",�,12 � ,,height%

T-ș "XOS_ReadModeVariable",�,4 � ,,xwidth%

^-ș "XOS_ReadModeVariable",�,5 � ,,ywidth%

h1width%=width%*xwidth%:height%=height%*ywidth%

r$�seticon(handle%(1),2,vershort$)

|�wimp%!0=handle%(1):ș"Wimp_GetWindowState",,wimp%:wimp%!4=width%-427:wimp%!8=height%-286:wimp%!12=width%+427:wimp%!16=height%+286:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%

���err(�,�$)

��

�ș "Wimp_Poll",,wimp% � r%

�Ȏ r% �

�=� 0 : � active%=-1 active%=�(400):active%=0:�continueload

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

�L� 2 : ș &400C5,,wimp%:� wimp%!0=handle%(2) � wimp%!0=handle%(3) �attach

̕� 3 : ș &400C6,,wimp%:� wimp%!0=handle%(2) open%=0:wimp%!0=handle%(3):ș"Wimp_CloseWindow",,wimp%:wimp%!0=handle%(4):ș"Wimp_CloseWindow",,wimp%

�� 6 : �click

�� 7 : �drag_complete

�&� 8 : ș"Wimp_ProcessKey",wimp%!24

�� 9 : �menuselect

�� 17,18 : Ȏ wimp%!16 �
  � 0 : �quit
  � 2 : �save
  � &502 : �interactive
&�
0�
:� �
D
N
��quit
X$ș &400DD,apphan%:�closemessfile
b�
l
v��continueload
�9ș &400DB,,wimp%,control%,control%+100,-1,"control",0
�wimp%!64=sprite%
�!ș &400C1,,wimp% � handle%(2)
�1ș &400DB,,wimp%,list%,list%+1250,-1,"list",0
�!ș &400C1,,wimp% � handle%(3)
�0ș &400DB,,wimp%,help%,help%+250,-1,"help",0
�!ș &400C1,,wimp% � handle%(4)
�0ș &400DB,,wimp%,info%,info%+140,-1,"info",0
�wimp%!64=sprite%
�!ș &400C1,,wimp% � handle%(5)
�
ș &400DA
��iconbar
�A�openmessages(ident%,"<Ignotum$Dir>.Messages",messfile%,2000)
�loadchoices
�changetopic(0)
#�seticon(handle%(5),4,version$)
 3wimp%!0=handle%(1):ș"Wimp_DeleteWindow",,wimp%
*�
4
>
��save
H!x=wimp%!0:y=wimp%!4:z=wimp%!8
R filename$=�convert(wimp%+44)
\#wimp%!0=x:wimp%!12=z:wimp%!16=3
f$ș "Wimp_SendMessage",18,wimp%,y
p(filename$=�fixstring(filename$+�(0))
z
�savefile
��
�
�ݤconvert(no%)
�doofer$=""
�ȕ ?no%
�doofer$+=�?no%
�
no%+=1
��
�=doofer$
�
�ݤfixstring(origname$)
�p=1:name$=""
�ȕ �origname$,p,1)<>�(0)
name$+=�origname$,p,1):p+=1
�

=name$
$
.��setuptopics
8mathslimit%=0
B/A%=�("<Ignotum$Dir>.Formulae.Topics.Maths")
L�
Va$=�#A%
`)� �a$,1)<>"#" � a$<>"" mathslimit%+=1
j
� �#A%
t�#A%
~� mathslist$(mathslimit%)
�a=0
�/A%=�("<Ignotum$Dir>.Formulae.Topics.Maths")
��
�a$=�#A%
�0� �a$,1)<>"#" � a$<>"" a+=1:mathslist$(a)=a$
�
� �#A%
��#A%
�physicslimit%=0
�1A%=�("<Ignotum$Dir>.Formulae.Topics.Physics")
��
�a$=�#A%
�+� �a$,1)<>"#" � a$<>"" physicslimit%+=1

� �#A%

�#A%
!� physicslist$(physicslimit%)
a=0
(1A%=�("<Ignotum$Dir>.Formulae.Topics.Physics")
2�
<a$=�#A%
F2� �a$,1)<>"#" � a$<>"" a+=1:physicslist$(a)=a$
P
� �#A%
Z�#A%
d�
n
x!��toggleicon(wimp%!0,wimp%!4)
�wimp%!8=&200000:wimp%!12=0
�!ș "Wimp_SetIconState",,wimp%
��
�
���closemessfile
�&ș "MessageTrans_CloseFile",ident%
��
�
�ݤlookup(mess$)
�Jș "XMessageTrans_Lookup",ident%,mess$,buffer%,256,"","","","" � ,,,l%
�buffer%?l%=13
�
=$buffer%
�
,��openmessages(ident%,file$,buff%,size%)
.ș "MessageTrans_FileInfo",,file$ � f%,,l%
+� f% � 1 l%=0:buff%=0 � buff%=messfile%
"1ș "MessageTrans_OpenFile",ident%,file$,buff%
,�
6
@��changetopic(f)
J7A%=�("<Ignotum$Dir>.Formulae.Formulae."+�topic$,4))
T$�:a$=�#A%:� �a$,1)<>"#" � a$<>""
^�#A%=�#A%-�(a$)-1
h� a=1 � 25
r
� b=1 � 6
|data$(a,b)=�#A%
�� b
�� a
��#A%
�� a=1 � 25
�'�seticon(handle%(3),a-1,data$(a,1))
�� a
�!�seticon(handle%(2),1,topic$)
�L� formula%>-1 � a=2 � 6:�seticon(handle%(4),a-2,data$(formula%+1,a)):� a
�%a=0:�:a+=1:� data$(a,1)="" � a>25
�a-=1
�� formula%>a-1 �toggleicon(handle%(3),formula%):formula%=a-1:�toggleicon(handle%(3),formula%):� b=2 � 6:�seticon(handle%(4),b-2,data$(formula%+1,b)):� b
�
� a<8 a=8
�
wimp%!0=0
wimp%!4=(-a*40)
wimp%!8=640
wimp%!12=0
&(ș "Wimp_SetExtent",handle%(3),wimp%
0V� f=1 wimp%!0=handle%(3):ș"Wimp_GetWindowState",,wimp%:ș"Wimp_OpenWindow",,wimp%
:�
D
N��checkdrag
XDș "XOS_SWINumberFromString",,"DragASprite_Start" � dragyn%;flag
b� (flag � 1) dragyn%=-1
l� dragyn%<>-1 �
v ș "OS_Byte",161,28 � ,,cmos
�� (cmos � 2)=0 dragyn%=-1
��
��
�
���interactive
�	t$=""
�inter%=wimp%
�inter%!12=wimp%!8
�inter%!16=&503
�inter%!32=wimp%!32
�inter%!36=wimp%!36
�Ȏ inter%!32 �
�� handle%(1) : t$="":�:�
*� -2 : t$=�lookup("iconhelp"+�(open%))
)� handle%(3) : t$=�lookup("listhelp")
9� handle%(2) : t$=�lookup("controlhelp"+�(inter%!36))
 )� handle%(4) : t$=�lookup("helphelp")
*)� handle%(5) : t$=�lookup("infohelp")
4 : � wimpversion%>=300 �
>Bmenu_selection%!0=-1:menu_selection%!4=-1:menu_selection%!8=-1
H?ș"Wimp_GetMenuState",1,menu_selection%,inter%!32,inter%!36
R� menu_selection%!4=-1 �
\Ȏ m% �
f5� 1 : t$=�lookup("menuhelp"+�(menu_selection%!0))
p!� 2 : t$=�lookup("topichelp")
z�
��
��
�t$+=�(0)
�$(inter%+20)=t$
�!inter%!0=(((21+�(t$))�4)*4)+4
�,ș "Wimp_SendMessage",17,inter%,inter%!4
��
�
���loadchoices
�!A%=�("<Ignotum$Dir>.Choices")
�open%=�(�#A%)
�offset=�(�#A%)
�xposmin=�(�#A%)
	yposmin=�(�#A%)
	xposmax=�(�#A%)
	yposmax=�(�#A%)
	$topic$=�#A%
	.formula%=�(�#A%)
	8helpyn%=�(�#A%)
	B�#A%
	L2� formula%>-1 �toggleicon(handle%(3),formula%)
	V)� helpyn%=0 �toggleicon(handle%(2),3)
	`� open%=1 �
	j5wimp%!0=handle%(2):ș"Wimp_GetWindowState",,wimp%
	tEwimp%!4=xposmin:wimp%!8=yposmin:wimp%!12=xposmax:wimp%!16=yposmax
	~'ș "Wimp_OpenWindow",,wimp%:�attach
	�`wimp%!0=handle%(3):ș"Wimp_GetWindowState",,wimp%:wimp%!24=offset:ș"Wimp_OpenWindow",,wimp%
	��
	��
	�
	���savechoices
	�Awimp%!0=handle%(3):ș "Wimp_GetWindowState",,wimp%:a=wimp%!24
	�`wimp%!0=handle%(2):ș "Wimp_GetWindowState",,wimp%:b=wimp%!4:c=wimp%!8:d=wimp%!12:e=wimp%!16
	�!A%=�("<Ignotum$Dir>.Choices")
	��#A%,�(open%)
	�
�#A%,�(a)
	�
�#A%,�(b)
	�
�#A%,�(c)

�#A%,�(d)


�#A%,�(e)
�#A%,topic$
�#A%,�(formula%)
(�#A%,�(helpyn%)
2�#A%
<�
F
P��attach
ZȎ wimp%!0 �
d�� handle%(2): ș"Wimp_GetWindowState",,wimp%:a=wimp%!8-4:b=wimp%!16-380:c=wimp%!4+930:d=wimp%!28:wimp%!0=handle%(3):ș"Wimp_GetWindowState",,wimp%:wimp%!4=c-930:wimp%!16=a:wimp%!8=b:wimp%!12=c:wimp%!28=d:ș"Wimp_OpenWindow",,wimp%
n�� helpyn%=1 ș"Wimp_GetWindowState",,wimp%:wimp%!0=handle%(4):wimp%!16=wimp%!8-4:wimp%!8=wimp%!16-256:wimp%!12=wimp%!4+930:ș"Wimp_OpenWindow",,wimp%
x�
��
�
���drag_complete
�'� dragyn%<>-1 ș "DragASprite_Stop"
�#ș "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%
�wimp%!28=x:wimp%!32=y
�wimp%!36=100
�wimp%!40=&FFF
�$(wimp%+44)=filena$
�6ș "Wimp_SendMessage",17,wimp%,TheWindow%,TheIcon%
��

��savefile
A%=�(filename$)
"�#A%,data$(formula%+1,1)
,�#A%
6!�"Settype "+filename$+" text"
@�� mousebutton%=16 open%=0:wimp%!0=handle%(2):ș"Wimp_CloseWindow",,wimp%:wimp%!0=handle%(3):ș"Wimp_CloseWindow",,wimp%:wimp%!0=handle%(4):ș"Wimp_CloseWindow",,wimp%
J�
T
^��err(wimp%!0,$(wimp%+4))
hȎ wimp%!0 �
r1� 67785 : $(wimp%+4)+=�lookup("writeprotect")
|�
�+ș "Wimp_ReportError",wimp%,1,"Ignotum"
��
�
�
��iconbar
�"wimp%!0=-1:wimp%!4=0:wimp%!8=0
�*wimp%!12=68:wimp%!16=68:wimp%!20=&300A
�$(wimp%+24)="!Ignotum"
�(ș "Wimp_CreateIcon",,wimp% � ichan%
��
�
���menuselect
�a%=wimp%!0:b%=wimp%!4
�#ș "Wimp_GetPointerInfo",,wimp%
but%=wimp%!8
wimp%!0=a%:wimp%!4=b%
� m%=1 Ȏ wimp%!0 �
&� 1 : �savechoices
0� 2 : �quit
:�
D� m%=2 Ȏ wimp%!0 �
NC� 0 : � wimp%!4>-1 topic$=mathslist$(wimp%!4+1):�changetopic(1)
XE� 1 : � wimp%!4>-1 topic$=physicslist$(wimp%!4+1):�changetopic(1)
b�
l@� but%=1 � m%=2 wimp%!0=mousx%:wimp%!4=mousy%:�maketopicmenu
vH� but%=1 � m%=1 � wimp%!0<>2 wimp%!0=mousx%:wimp%!4=mousy%:�makemenu
��
�
�ݤreadinput
�wimp%!0=panelhan%:wimp%!4=1
�ș &400CE,,wimp%
�=$wimp%!28
�
�!��seticon(wimp%!0,wimp%!4,t$)
�ș &400CE,,wimp%
�$wimp%!28=t$
�wimp%!8=0:wimp%!12=0
�ș &400CD,,wimp%
��



��dragformula

*� wimp%!12<>handle%(3) � formula%=-1 �

 %a=0:�:a+=1:� data$(a,1)="" � a>25

*� formula%>(a-2) �

4 �checkdrag:filena$="Formula"

>6wimp%!0=handle%(3):ș "Wimp_GetWindowState",,wimp%

H4x=wimp%!4:y=wimp%!16:o=wimp%!24:wimp%!4=formula%

R!ș "Wimp_GetIconState",,wimp%

\&wimp%!4=5:wimp%!8+=x:wimp%!12+=y-o

fwimp%!16+=x-4:wimp%!20+=y-o

pwimp%!24=0:wimp%!28=0

z)wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF

�>sprite$="formdrag":� dithersprite%=1 sprite$="formdragrpc"

�g� dragyn%=-1 ș "Wimp_DragBox",,wimp% � ș "DragASprite_Start",%11000101,1,sprite$,wimp%+8,wimp%+24

��

�

���click

�button%=wimp%!8

�window%=wimp%!12

�icon%=wimp%!16

�?� button%=16 � button%=64 mousebutton%=button%:�dragformula

�%� window%=handle%(2) Ȏ button% �

�� 1,4 : Ȏ icon% �

�}           � 3 : helpyn%=1-helpyn%:wimp%!0=handle%(2):�attach:� helpyn%=0 wimp%!0=handle%(4):ș "Wimp_CloseWindow",,wimp%

�#           � 2 : �maketopicmenu
           �
"� 2 : � icon%=2 �maketopicmenu
�
$%� window%=handle%(3) Ȏ button% �
.� 1 : � icon%=formula% �
8"         formula%=-1:� a=0 � 4
B&         �seticon(handle%(4),a,"")
L         � a
V         �
`%         formula%=icon%:� a=2 � 6
j6         �seticon(handle%(4),a-2,data$(icon%+1,a))
t         � a
~         �
�"� 4 : formula%=icon%:� a=2 � 6
�6         �seticon(handle%(4),a-2,data$(icon%+1,a))
�         � a
��
�+� window%=-2 � button%=2 �makemenu:m%=1
��� button%=4 � window%=-2 open%=1:wimp%!0=handle%(2):ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%:�attach
��
�
���makemenu
�$menu%="Ignotum"
�menu%?12=7
�menu%?13=2
menu%?14=7

menu%?15=0
menu%!16=220
menu%!20=44
(menu%!24=0
2menu%!28=0
<menu%!32=handle%(5)
Fmenu%!36=&7000021
P$(menu%+40)="Info"
Zmenu%!52=0
dmenu%!56=-1
nmenu%!60=&7000021
x$(menu%+64)="Save choices"
�menu%!76=&80
�menu%!80=-1
�menu%!84=&7000021
�$(menu%+88)="Quit"
�!mousx%=wimp%!0:mousy%=wimp%!4
�4ș "Wimp_CreateMenu",,menu%,wimp%!0-68,(44*3)+96
��
�
���maketopicmenu
�m%=2
�$menu%="Topic"
�menu%?12=7
�menu%?13=2
menu%?14=7
menu%?15=0
menu%!16=140
"menu%!20=44
,menu%!24=0
6menu%!28=0
@menu%!32=menu%+76
Jmenu%!36=&7000021
T$(menu%+40)="Maths"
^menu%!52=&80
hmenu%!56=-1
rmenu%!60=&7000021
|$(menu%+64)="Physics"
�$(menu%+76)="Maths"
�menu%?88=7
�menu%?89=2
�menu%?90=7
�menu%?91=0
�menu%!92=210
�menu%!96=44
�menu%!100=0
�
c%=104
�� a=1 � mathslimit%
�+menu%!c%=0:� a=mathslimit% menu%!c%=&80
�&� mathslist$(a)=topic$ menu%!c%+=1
�	c%+=4
menu%!c%=-1
	c%+=4
menu%!c%=&7000021
&	c%+=4
0$(menu%+c%)=mathslist$(a)
:
c%+=12
D� a
Nmenu%!56=menu%+c%
X$(menu%+c%)="Physics"
bc%+=12:menu%?c%=7
lc%+=1:menu%?c%=2
vc%+=1:menu%?c%=7
�c%+=1:menu%?c%=0
�c%+=1:menu%!c%=210
�c%+=4:menu%!c%=44
�c%+=4:menu%!c%=0
�	c%+=4
�� a=1 � physicslimit%
�-menu%!c%=0:� a=physicslimit% menu%!c%=&80
�(� physicslist$(a)=topic$ menu%!c%+=1
�	c%+=4
�menu%!c%=-1
�	c%+=4
�menu%!c%=&7000021
�	c%+=4
$(menu%+c%)=physicslist$(a)

c%+=12
� a
 !mousx%=wimp%!0:mousy%=wimp%!4
*/ș "Wimp_CreateMenu",,menu%,wimp%!0,wimp%!4
4�
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 11 f4 20 66 6f  72 20 49 67 6e 6f 74 75  |..... for Ignotu|
00000020  6d 0d 00 1e 13 f4 20 a9  20 43 68 72 69 73 20 41  |m..... . Chris A|
00000030  6c 6c 65 6e 0d 00 28 22  76 65 72 73 69 6f 6e 24  |llen..("version$|
00000040  3d 22 31 2e 30 32 20 28  33 72 64 20 4a 75 6e 65  |="1.02 (3rd June|
00000050  20 27 39 36 29 22 0d 00  32 16 76 65 72 73 68 6f  | '96)"..2.versho|
00000060  72 74 24 3d 22 76 20 31  2e 30 32 22 0d 00 3c 04  |rt$="v 1.02"..<.|
00000070  0d 00 46 40 c8 99 20 22  4f 53 5f 46 53 43 6f 6e  |..F@.. "OS_FSCon|
00000080  74 72 6f 6c 22 2c 32 38  2c 22 3c 49 67 6e 6f 74  |trol",28,"<Ignot|
00000090  75 6d 24 44 69 72 3e 2e  53 70 72 69 74 65 73 22  |um$Dir>.Sprites"|
000000a0  20 b8 20 2c 2c 73 70 72  69 74 65 73 69 7a 65 25  | . ,,spritesize%|
000000b0  0d 00 50 13 73 70 72 69  74 65 73 69 7a 65 25 2b  |..P.spritesize%+|
000000c0  3d 31 36 0d 00 5a 13 64  69 74 68 65 72 73 70 72  |=16..Z.ditherspr|
000000d0  69 74 65 25 3d 30 0d 00  64 3c 6d 25 3d 2d 31 3a  |ite%=0..d<m%=-1:|
000000e0  61 63 74 69 76 65 25 3d  2d 31 3a 61 6c 74 65 72  |active%=-1:alter|
000000f0  65 64 25 3d 30 3a 68 65  6c 70 79 6e 25 3d 31 3a  |ed%=0:helpyn%=1:|
00000100  66 6f 72 6d 75 6c 61 25  3d 30 3a 6f 70 65 6e 25  |formula%=0:open%|
00000110  3d 30 0d 00 6e 10 f2 73  65 74 75 70 74 6f 70 69  |=0..n..setuptopi|
00000120  63 73 0d 00 78 43 de 20  62 75 66 66 65 72 25 20  |cs..xC. buffer% |
00000130  32 35 36 2c 20 69 63 6f  6e 24 28 34 29 2c 20 69  |256, icon$(4), i|
00000140  64 65 6e 74 25 20 31 36  2c 20 6d 65 73 73 66 69  |dent% 16, messfi|
00000150  6c 65 25 20 32 30 30 30  2c 20 64 61 74 61 24 28  |le% 2000, data$(|
00000160  32 35 2c 36 29 0d 00 82  25 de 20 77 69 6d 70 25  |25,6)...%. wimp%|
00000170  20 35 30 30 30 2c 20 73  70 72 69 74 65 25 20 73  | 5000, sprite% s|
00000180  70 72 69 74 65 73 69 7a  65 25 0d 00 8c 4b de 20  |pritesize%...K. |
00000190  68 61 6e 64 6c 65 25 28  35 29 2c 20 69 6e 66 6f  |handle%(5), info|
000001a0  25 20 31 34 30 2c 20 67  72 65 65 74 25 20 36 30  |% 140, greet% 60|
000001b0  2c 20 68 65 6c 70 25 20  32 35 30 2c 20 6c 69 73  |, help% 250, lis|
000001c0  74 25 20 31 32 35 30 2c  20 63 6f 6e 74 72 6f 6c  |t% 1250, control|
000001d0  25 20 31 30 30 0d 00 96  3d de 20 69 6e 74 65 72  |% 100...=. inter|
000001e0  25 20 36 30 30 2c 20 6d  65 6e 75 5f 73 65 6c 65  |% 600, menu_sele|
000001f0  63 74 69 6f 6e 25 20 32  35 36 2c 20 63 61 6c 6c  |ction% 256, call|
00000200  6d 65 25 20 32 30 2c 20  6d 65 6e 75 25 20 31 30  |me% 20, menu% 10|
00000210  30 30 0d 00 a0 2a 63 61  6c 6c 6d 65 25 21 30 3d  |00...*callme%!0=|
00000220  26 35 30 32 3a 63 61 6c  6c 6d 65 25 21 34 3d 32  |&502:callme%!4=2|
00000230  3a 63 61 6c 6c 6d 65 25  21 38 3d 30 0d 00 aa 26  |:callme%!8=0...&|
00000240  73 70 72 69 74 65 25 21  30 3d 73 70 72 69 74 65  |sprite%!0=sprite|
00000250  73 69 7a 65 25 3a 73 70  72 69 74 65 25 21 38 3d  |size%:sprite%!8=|
00000260  31 36 0d 00 b4 21 c8 99  20 22 4f 53 5f 53 70 72  |16...!.. "OS_Spr|
00000270  69 74 65 4f 70 22 2c 26  31 30 39 2c 73 70 72 69  |iteOp",&109,spri|
00000280  74 65 25 0d 00 be 39 c8  99 20 22 4f 53 5f 53 70  |te%...9.. "OS_Sp|
00000290  72 69 74 65 4f 70 22 2c  26 31 30 41 2c 73 70 72  |riteOp",&10A,spr|
000002a0  69 74 65 25 2c 22 3c 49  67 6e 6f 74 75 6d 24 44  |ite%,"<Ignotum$D|
000002b0  69 72 3e 2e 53 70 72 69  74 65 73 22 0d 00 c8 44  |ir>.Sprites"...D|
000002c0  c8 99 20 26 34 30 30 43  30 2c 33 30 30 2c 26 34  |.. &400C0,300,&4|
000002d0  42 35 33 34 31 35 34 2c  22 49 67 6e 6f 74 75 6d  |B534154,"Ignotum|
000002e0  22 2c 63 61 6c 6c 6d 65  25 20 b8 20 77 69 6d 70  |",callme% . wimp|
000002f0  76 65 72 73 69 6f 6e 25  2c 61 70 70 68 61 6e 25  |version%,apphan%|
00000300  0d 00 d2 28 74 65 6d 70  6c 61 74 65 73 24 3d 22  |...(templates$="|
00000310  3c 49 67 6e 6f 74 75 6d  24 44 69 72 3e 2e 54 65  |<Ignotum$Dir>.Te|
00000320  6d 70 6c 61 74 65 73 22  0d 00 dc 4d c8 99 20 22  |mplates"...M.. "|
00000330  4f 53 5f 52 65 61 64 56  61 72 56 61 6c 22 2c 22  |OS_ReadVarVal","|
00000340  49 67 6e 6f 74 75 6d 24  33 44 22 2c 62 75 66 66  |Ignotum$3D",buff|
00000350  65 72 25 2c 32 35 36 20  b8 2c 2c 6c 65 6e 67 74  |er%,256 .,,lengt|
00000360  68 25 3a 62 75 66 66 65  72 25 3f 6c 65 6e 67 74  |h%:buffer%?lengt|
00000370  68 25 3d 31 33 0d 00 e6  3a e7 20 24 62 75 66 66  |h%=13...:. $buff|
00000380  65 72 25 3d 22 59 65 73  22 20 74 65 6d 70 6c 61  |er%="Yes" templa|
00000390  74 65 73 24 3d 22 3c 49  67 6e 6f 74 75 6d 24 44  |tes$="<Ignotum$D|
000003a0  69 72 3e 2e 54 65 6d 70  6c 61 74 65 33 44 22 0d  |ir>.Template3D".|
000003b0  00 f0 17 ff 22 55 6e 73  65 74 20 49 67 6e 6f 74  |...."Unset Ignot|
000003c0  75 6d 24 33 44 22 0d 00  fa 59 c8 99 20 22 4f 53  |um$3D"...Y.. "OS|
000003d0  5f 52 65 61 64 56 61 72  56 61 6c 22 2c 22 49 67  |_ReadVarVal","Ig|
000003e0  6e 6f 74 75 6d 24 44 69  74 68 65 72 65 64 53 70  |notum$DitheredSp|
000003f0  72 69 74 65 22 2c 62 75  66 66 65 72 25 2c 32 35  |rite",buffer%,25|
00000400  36 20 b8 2c 2c 6c 65 6e  67 74 68 25 3a 62 75 66  |6 .,,length%:buf|
00000410  66 65 72 25 3f 6c 65 6e  67 74 68 25 3d 31 33 0d  |fer%?length%=13.|
00000420  01 04 24 e7 20 24 62 75  66 66 65 72 25 3d 22 59  |..$. $buffer%="Y|
00000430  65 73 22 20 64 69 74 68  65 72 73 70 72 69 74 65  |es" dithersprite|
00000440  25 3d 31 0d 01 0e 23 ff  22 55 6e 73 65 74 20 49  |%=1...#."Unset I|
00000450  67 6e 6f 74 75 6d 24 44  69 74 68 65 72 65 64 53  |gnotum$DitheredS|
00000460  70 72 69 74 65 22 0d 01  18 19 c8 99 20 26 34 30  |prite"...... &40|
00000470  30 44 39 2c 2c 74 65 6d  70 6c 61 74 65 73 24 0d  |0D9,,templates$.|
00000480  01 22 35 c8 99 20 26 34  30 30 44 42 2c 2c 77 69  |."5.. &400DB,,wi|
00000490  6d 70 25 2c 67 72 65 65  74 25 2c 67 72 65 65 74  |mp%,greet%,greet|
000004a0  25 2b 36 30 2c 2d 31 2c  22 67 72 65 65 74 69 6e  |%+60,-1,"greetin|
000004b0  67 22 2c 30 0d 01 2c 14  77 69 6d 70 25 21 36 34  |g",0..,.wimp%!64|
000004c0  3d 73 70 72 69 74 65 25  0d 01 36 21 c8 99 20 26  |=sprite%..6!.. &|
000004d0  34 30 30 43 31 2c 2c 77  69 6d 70 25 20 b8 20 68  |400C1,,wimp% . h|
000004e0  61 6e 64 6c 65 25 28 31  29 0d 01 40 2d c8 99 20  |andle%(1)..@-.. |
000004f0  22 58 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  |"XOS_ReadModeVar|
00000500  69 61 62 6c 65 22 2c eb  2c 31 31 20 b8 20 2c 2c  |iable",.,11 . ,,|
00000510  77 69 64 74 68 25 0d 01  4a 2e c8 99 20 22 58 4f  |width%..J... "XO|
00000520  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
00000530  6c 65 22 2c eb 2c 31 32  20 b8 20 2c 2c 68 65 69  |le",.,12 . ,,hei|
00000540  67 68 74 25 0d 01 54 2d  c8 99 20 22 58 4f 53 5f  |ght%..T-.. "XOS_|
00000550  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00000560  22 2c eb 2c 34 20 b8 20  2c 2c 78 77 69 64 74 68  |",.,4 . ,,xwidth|
00000570  25 0d 01 5e 2d c8 99 20  22 58 4f 53 5f 52 65 61  |%..^-.. "XOS_Rea|
00000580  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c eb  |dModeVariable",.|
00000590  2c 35 20 b8 20 2c 2c 79  77 69 64 74 68 25 0d 01  |,5 . ,,ywidth%..|
000005a0  68 31 77 69 64 74 68 25  3d 77 69 64 74 68 25 2a  |h1width%=width%*|
000005b0  78 77 69 64 74 68 25 3a  68 65 69 67 68 74 25 3d  |xwidth%:height%=|
000005c0  68 65 69 67 68 74 25 2a  79 77 69 64 74 68 25 0d  |height%*ywidth%.|
000005d0  01 72 24 f2 73 65 74 69  63 6f 6e 28 68 61 6e 64  |.r$.seticon(hand|
000005e0  6c 65 25 28 31 29 2c 32  2c 76 65 72 73 68 6f 72  |le%(1),2,vershor|
000005f0  74 24 29 0d 01 7c ac 77  69 6d 70 25 21 30 3d 68  |t$)..|.wimp%!0=h|
00000600  61 6e 64 6c 65 25 28 31  29 3a c8 99 22 57 69 6d  |andle%(1):.."Wim|
00000610  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00000620  22 2c 2c 77 69 6d 70 25  3a 77 69 6d 70 25 21 34  |",,wimp%:wimp%!4|
00000630  3d 77 69 64 74 68 25 2d  34 32 37 3a 77 69 6d 70  |=width%-427:wimp|
00000640  25 21 38 3d 68 65 69 67  68 74 25 2d 32 38 36 3a  |%!8=height%-286:|
00000650  77 69 6d 70 25 21 31 32  3d 77 69 64 74 68 25 2b  |wimp%!12=width%+|
00000660  34 32 37 3a 77 69 6d 70  25 21 31 36 3d 68 65 69  |427:wimp%!16=hei|
00000670  67 68 74 25 2b 32 38 36  3a 77 69 6d 70 25 21 32  |ght%+286:wimp%!2|
00000680  38 3d 2d 31 3a c8 99 22  57 69 6d 70 5f 4f 70 65  |8=-1:.."Wimp_Ope|
00000690  6e 57 69 6e 64 6f 77 22  2c 2c 77 69 6d 70 25 0d  |nWindow",,wimp%.|
000006a0  01 86 10 ee 85 f2 65 72  72 28 9f 2c f6 24 29 0d  |......err(.,.$).|
000006b0  01 90 05 f5 0d 01 9a 1e  c8 99 20 22 57 69 6d 70  |.......... "Wimp|
000006c0  5f 50 6f 6c 6c 22 2c 2c  77 69 6d 70 25 20 b8 20  |_Poll",,wimp% . |
000006d0  72 25 0d 01 a4 0b c8 8e  20 72 25 20 ca 0d 01 ae  |r%...... r% ....|
000006e0  3d c9 20 30 20 3a 20 e7  20 61 63 74 69 76 65 25  |=. 0 : . active%|
000006f0  3d 2d 31 20 61 63 74 69  76 65 25 3d a6 28 34 30  |=-1 active%=.(40|
00000700  30 29 3a 61 63 74 69 76  65 25 3d 30 3a f2 63 6f  |0):active%=0:.co|
00000710  6e 74 69 6e 75 65 6c 6f  61 64 0d 01 b8 27 c9 20  |ntinueload...'. |
00000720  31 20 3a 20 c8 99 20 22  57 69 6d 70 5f 52 65 64  |1 : .. "Wimp_Red|
00000730  72 61 77 57 69 6e 64 6f  77 22 2c 2c 77 69 6d 70  |rawWindow",,wimp|
00000740  25 0d 01 c2 4c c9 20 32  20 3a 20 c8 99 20 26 34  |%...L. 2 : .. &4|
00000750  30 30 43 35 2c 2c 77 69  6d 70 25 3a e7 20 77 69  |00C5,,wimp%:. wi|
00000760  6d 70 25 21 30 3d 68 61  6e 64 6c 65 25 28 32 29  |mp%!0=handle%(2)|
00000770  20 84 20 77 69 6d 70 25  21 30 3d 68 61 6e 64 6c  | . wimp%!0=handl|
00000780  65 25 28 33 29 20 f2 61  74 74 61 63 68 0d 01 cc  |e%(3) .attach...|
00000790  95 c9 20 33 20 3a 20 c8  99 20 26 34 30 30 43 36  |.. 3 : .. &400C6|
000007a0  2c 2c 77 69 6d 70 25 3a  e7 20 77 69 6d 70 25 21  |,,wimp%:. wimp%!|
000007b0  30 3d 68 61 6e 64 6c 65  25 28 32 29 20 6f 70 65  |0=handle%(2) ope|
000007c0  6e 25 3d 30 3a 77 69 6d  70 25 21 30 3d 68 61 6e  |n%=0:wimp%!0=han|
000007d0  64 6c 65 25 28 33 29 3a  c8 99 22 57 69 6d 70 5f  |dle%(3):.."Wimp_|
000007e0  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 77 69  |CloseWindow",,wi|
000007f0  6d 70 25 3a 77 69 6d 70  25 21 30 3d 68 61 6e 64  |mp%:wimp%!0=hand|
00000800  6c 65 25 28 34 29 3a c8  99 22 57 69 6d 70 5f 43  |le%(4):.."Wimp_C|
00000810  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 77 69 6d  |loseWindow",,wim|
00000820  70 25 0d 01 d6 10 c9 20  36 20 3a 20 f2 63 6c 69  |p%..... 6 : .cli|
00000830  63 6b 0d 01 e0 18 c9 20  37 20 3a 20 f2 64 72 61  |ck..... 7 : .dra|
00000840  67 5f 63 6f 6d 70 6c 65  74 65 0d 01 ea 26 c9 20  |g_complete...&. |
00000850  38 20 3a 20 c8 99 22 57  69 6d 70 5f 50 72 6f 63  |8 : .."Wimp_Proc|
00000860  65 73 73 4b 65 79 22 2c  77 69 6d 70 25 21 32 34  |essKey",wimp%!24|
00000870  0d 01 f4 15 c9 20 39 20  3a 20 f2 6d 65 6e 75 73  |..... 9 : .menus|
00000880  65 6c 65 63 74 0d 01 fe  1b c9 20 31 37 2c 31 38  |elect..... 17,18|
00000890  20 3a 20 c8 8e 20 77 69  6d 70 25 21 31 36 20 ca  | : .. wimp%!16 .|
000008a0  0d 02 08 11 20 20 c9 20  30 20 3a 20 f2 71 75 69  |....  . 0 : .qui|
000008b0  74 0d 02 12 11 20 20 c9  20 32 20 3a 20 f2 73 61  |t....  . 2 : .sa|
000008c0  76 65 0d 02 1c 1b 20 20  c9 20 26 35 30 32 20 3a  |ve....  . &502 :|
000008d0  20 f2 69 6e 74 65 72 61  63 74 69 76 65 0d 02 26  | .interactive..&|
000008e0  05 cb 0d 02 30 05 cb 0d  02 3a 07 fd 20 a3 0d 02  |....0....:.. ...|
000008f0  44 04 0d 02 4e 0a dd f2  71 75 69 74 0d 02 58 24  |D...N...quit..X$|
00000900  c8 99 20 26 34 30 30 44  44 2c 61 70 70 68 61 6e  |.. &400DD,apphan|
00000910  25 3a f2 63 6c 6f 73 65  6d 65 73 73 66 69 6c 65  |%:.closemessfile|
00000920  0d 02 62 05 e1 0d 02 6c  04 0d 02 76 12 dd f2 63  |..b....l...v...c|
00000930  6f 6e 74 69 6e 75 65 6c  6f 61 64 0d 02 80 39 c8  |ontinueload...9.|
00000940  99 20 26 34 30 30 44 42  2c 2c 77 69 6d 70 25 2c  |. &400DB,,wimp%,|
00000950  63 6f 6e 74 72 6f 6c 25  2c 63 6f 6e 74 72 6f 6c  |control%,control|
00000960  25 2b 31 30 30 2c 2d 31  2c 22 63 6f 6e 74 72 6f  |%+100,-1,"contro|
00000970  6c 22 2c 30 0d 02 8a 14  77 69 6d 70 25 21 36 34  |l",0....wimp%!64|
00000980  3d 73 70 72 69 74 65 25  0d 02 94 21 c8 99 20 26  |=sprite%...!.. &|
00000990  34 30 30 43 31 2c 2c 77  69 6d 70 25 20 b8 20 68  |400C1,,wimp% . h|
000009a0  61 6e 64 6c 65 25 28 32  29 0d 02 9e 31 c8 99 20  |andle%(2)...1.. |
000009b0  26 34 30 30 44 42 2c 2c  77 69 6d 70 25 2c 6c 69  |&400DB,,wimp%,li|
000009c0  73 74 25 2c 6c 69 73 74  25 2b 31 32 35 30 2c 2d  |st%,list%+1250,-|
000009d0  31 2c 22 6c 69 73 74 22  2c 30 0d 02 a8 21 c8 99  |1,"list",0...!..|
000009e0  20 26 34 30 30 43 31 2c  2c 77 69 6d 70 25 20 b8  | &400C1,,wimp% .|
000009f0  20 68 61 6e 64 6c 65 25  28 33 29 0d 02 b2 30 c8  | handle%(3)...0.|
00000a00  99 20 26 34 30 30 44 42  2c 2c 77 69 6d 70 25 2c  |. &400DB,,wimp%,|
00000a10  68 65 6c 70 25 2c 68 65  6c 70 25 2b 32 35 30 2c  |help%,help%+250,|
00000a20  2d 31 2c 22 68 65 6c 70  22 2c 30 0d 02 bc 21 c8  |-1,"help",0...!.|
00000a30  99 20 26 34 30 30 43 31  2c 2c 77 69 6d 70 25 20  |. &400C1,,wimp% |
00000a40  b8 20 68 61 6e 64 6c 65  25 28 34 29 0d 02 c6 30  |. handle%(4)...0|
00000a50  c8 99 20 26 34 30 30 44  42 2c 2c 77 69 6d 70 25  |.. &400DB,,wimp%|
00000a60  2c 69 6e 66 6f 25 2c 69  6e 66 6f 25 2b 31 34 30  |,info%,info%+140|
00000a70  2c 2d 31 2c 22 69 6e 66  6f 22 2c 30 0d 02 d0 14  |,-1,"info",0....|
00000a80  77 69 6d 70 25 21 36 34  3d 73 70 72 69 74 65 25  |wimp%!64=sprite%|
00000a90  0d 02 da 21 c8 99 20 26  34 30 30 43 31 2c 2c 77  |...!.. &400C1,,w|
00000aa0  69 6d 70 25 20 b8 20 68  61 6e 64 6c 65 25 28 35  |imp% . handle%(5|
00000ab0  29 0d 02 e4 0d c8 99 20  26 34 30 30 44 41 0d 02  |)...... &400DA..|
00000ac0  ee 0c f2 69 63 6f 6e 62  61 72 0d 02 f8 41 f2 6f  |...iconbar...A.o|
00000ad0  70 65 6e 6d 65 73 73 61  67 65 73 28 69 64 65 6e  |penmessages(iden|
00000ae0  74 25 2c 22 3c 49 67 6e  6f 74 75 6d 24 44 69 72  |t%,"<Ignotum$Dir|
00000af0  3e 2e 4d 65 73 73 61 67  65 73 22 2c 6d 65 73 73  |>.Messages",mess|
00000b00  66 69 6c 65 25 2c 32 30  30 30 29 0d 03 02 10 f2  |file%,2000).....|
00000b10  6c 6f 61 64 63 68 6f 69  63 65 73 0d 03 0c 13 f2  |loadchoices.....|
00000b20  63 68 61 6e 67 65 74 6f  70 69 63 28 30 29 0d 03  |changetopic(0)..|
00000b30  16 23 f2 73 65 74 69 63  6f 6e 28 68 61 6e 64 6c  |.#.seticon(handl|
00000b40  65 25 28 35 29 2c 34 2c  76 65 72 73 69 6f 6e 24  |e%(5),4,version$|
00000b50  29 0d 03 20 33 77 69 6d  70 25 21 30 3d 68 61 6e  |).. 3wimp%!0=han|
00000b60  64 6c 65 25 28 31 29 3a  c8 99 22 57 69 6d 70 5f  |dle%(1):.."Wimp_|
00000b70  44 65 6c 65 74 65 57 69  6e 64 6f 77 22 2c 2c 77  |DeleteWindow",,w|
00000b80  69 6d 70 25 0d 03 2a 05  e1 0d 03 34 04 0d 03 3e  |imp%..*....4...>|
00000b90  0a dd f2 73 61 76 65 0d  03 48 21 78 3d 77 69 6d  |...save..H!x=wim|
00000ba0  70 25 21 30 3a 79 3d 77  69 6d 70 25 21 34 3a 7a  |p%!0:y=wimp%!4:z|
00000bb0  3d 77 69 6d 70 25 21 38  0d 03 52 20 66 69 6c 65  |=wimp%!8..R file|
00000bc0  6e 61 6d 65 24 3d a4 63  6f 6e 76 65 72 74 28 77  |name$=.convert(w|
00000bd0  69 6d 70 25 2b 34 34 29  0d 03 5c 23 77 69 6d 70  |imp%+44)..\#wimp|
00000be0  25 21 30 3d 78 3a 77 69  6d 70 25 21 31 32 3d 7a  |%!0=x:wimp%!12=z|
00000bf0  3a 77 69 6d 70 25 21 31  36 3d 33 0d 03 66 24 c8  |:wimp%!16=3..f$.|
00000c00  99 20 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |. "Wimp_SendMess|
00000c10  61 67 65 22 2c 31 38 2c  77 69 6d 70 25 2c 79 0d  |age",18,wimp%,y.|
00000c20  03 70 28 66 69 6c 65 6e  61 6d 65 24 3d a4 66 69  |.p(filename$=.fi|
00000c30  78 73 74 72 69 6e 67 28  66 69 6c 65 6e 61 6d 65  |xstring(filename|
00000c40  24 2b bd 28 30 29 29 0d  03 7a 0d f2 73 61 76 65  |$+.(0))..z..save|
00000c50  66 69 6c 65 0d 03 84 05  e1 0d 03 8e 04 0d 03 98  |file............|
00000c60  12 dd a4 63 6f 6e 76 65  72 74 28 6e 6f 25 29 0d  |...convert(no%).|
00000c70  03 a2 0e 64 6f 6f 66 65  72 24 3d 22 22 0d 03 ac  |...doofer$=""...|
00000c80  0b c8 95 20 3f 6e 6f 25  0d 03 b6 12 64 6f 6f 66  |... ?no%....doof|
00000c90  65 72 24 2b 3d bd 3f 6e  6f 25 0d 03 c0 0a 6e 6f  |er$+=.?no%....no|
00000ca0  25 2b 3d 31 0d 03 ca 05  ce 0d 03 d4 0c 3d 64 6f  |%+=1.........=do|
00000cb0  6f 66 65 72 24 0d 03 de  04 0d 03 e8 1a dd a4 66  |ofer$..........f|
00000cc0  69 78 73 74 72 69 6e 67  28 6f 72 69 67 6e 61 6d  |ixstring(orignam|
00000cd0  65 24 29 0d 03 f2 10 70  3d 31 3a 6e 61 6d 65 24  |e$)....p=1:name$|
00000ce0  3d 22 22 0d 03 fc 1c c8  95 20 c1 6f 72 69 67 6e  |=""...... .orign|
00000cf0  61 6d 65 24 2c 70 2c 31  29 3c 3e bd 28 30 29 0d  |ame$,p,1)<>.(0).|
00000d00  04 06 1f 6e 61 6d 65 24  2b 3d c1 6f 72 69 67 6e  |...name$+=.orign|
00000d10  61 6d 65 24 2c 70 2c 31  29 3a 70 2b 3d 31 0d 04  |ame$,p,1):p+=1..|
00000d20  10 05 ce 0d 04 1a 0a 3d  6e 61 6d 65 24 0d 04 24  |.......=name$..$|
00000d30  04 0d 04 2e 11 dd f2 73  65 74 75 70 74 6f 70 69  |.......setuptopi|
00000d40  63 73 0d 04 38 11 6d 61  74 68 73 6c 69 6d 69 74  |cs..8.mathslimit|
00000d50  25 3d 30 0d 04 42 2f 41  25 3d 8e 28 22 3c 49 67  |%=0..B/A%=.("<Ig|
00000d60  6e 6f 74 75 6d 24 44 69  72 3e 2e 46 6f 72 6d 75  |notum$Dir>.Formu|
00000d70  6c 61 65 2e 54 6f 70 69  63 73 2e 4d 61 74 68 73  |lae.Topics.Maths|
00000d80  22 29 0d 04 4c 05 f5 0d  04 56 0b 61 24 3d be 23  |")..L....V.a$=.#|
00000d90  41 25 0d 04 60 29 e7 20  c0 61 24 2c 31 29 3c 3e  |A%..`). .a$,1)<>|
00000da0  22 23 22 20 80 20 61 24  3c 3e 22 22 20 6d 61 74  |"#" . a$<>"" mat|
00000db0  68 73 6c 69 6d 69 74 25  2b 3d 31 0d 04 6a 0a fd  |hslimit%+=1..j..|
00000dc0  20 c5 23 41 25 0d 04 74  08 d9 23 41 25 0d 04 7e  | .#A%..t..#A%..~|
00000dd0  1d de 20 6d 61 74 68 73  6c 69 73 74 24 28 6d 61  |.. mathslist$(ma|
00000de0  74 68 73 6c 69 6d 69 74  25 29 0d 04 88 07 61 3d  |thslimit%)....a=|
00000df0  30 0d 04 92 2f 41 25 3d  8e 28 22 3c 49 67 6e 6f  |0.../A%=.("<Igno|
00000e00  74 75 6d 24 44 69 72 3e  2e 46 6f 72 6d 75 6c 61  |tum$Dir>.Formula|
00000e10  65 2e 54 6f 70 69 63 73  2e 4d 61 74 68 73 22 29  |e.Topics.Maths")|
00000e20  0d 04 9c 05 f5 0d 04 a6  0b 61 24 3d be 23 41 25  |.........a$=.#A%|
00000e30  0d 04 b0 30 e7 20 c0 61  24 2c 31 29 3c 3e 22 23  |...0. .a$,1)<>"#|
00000e40  22 20 80 20 61 24 3c 3e  22 22 20 61 2b 3d 31 3a  |" . a$<>"" a+=1:|
00000e50  6d 61 74 68 73 6c 69 73  74 24 28 61 29 3d 61 24  |mathslist$(a)=a$|
00000e60  0d 04 ba 0a fd 20 c5 23  41 25 0d 04 c4 08 d9 23  |..... .#A%.....#|
00000e70  41 25 0d 04 ce 13 70 68  79 73 69 63 73 6c 69 6d  |A%....physicslim|
00000e80  69 74 25 3d 30 0d 04 d8  31 41 25 3d 8e 28 22 3c  |it%=0...1A%=.("<|
00000e90  49 67 6e 6f 74 75 6d 24  44 69 72 3e 2e 46 6f 72  |Ignotum$Dir>.For|
00000ea0  6d 75 6c 61 65 2e 54 6f  70 69 63 73 2e 50 68 79  |mulae.Topics.Phy|
00000eb0  73 69 63 73 22 29 0d 04  e2 05 f5 0d 04 ec 0b 61  |sics").........a|
00000ec0  24 3d be 23 41 25 0d 04  f6 2b e7 20 c0 61 24 2c  |$=.#A%...+. .a$,|
00000ed0  31 29 3c 3e 22 23 22 20  80 20 61 24 3c 3e 22 22  |1)<>"#" . a$<>""|
00000ee0  20 70 68 79 73 69 63 73  6c 69 6d 69 74 25 2b 3d  | physicslimit%+=|
00000ef0  31 0d 05 00 0a fd 20 c5  23 41 25 0d 05 0a 08 d9  |1..... .#A%.....|
00000f00  23 41 25 0d 05 14 21 de  20 70 68 79 73 69 63 73  |#A%...!. physics|
00000f10  6c 69 73 74 24 28 70 68  79 73 69 63 73 6c 69 6d  |list$(physicslim|
00000f20  69 74 25 29 0d 05 1e 07  61 3d 30 0d 05 28 31 41  |it%)....a=0..(1A|
00000f30  25 3d 8e 28 22 3c 49 67  6e 6f 74 75 6d 24 44 69  |%=.("<Ignotum$Di|
00000f40  72 3e 2e 46 6f 72 6d 75  6c 61 65 2e 54 6f 70 69  |r>.Formulae.Topi|
00000f50  63 73 2e 50 68 79 73 69  63 73 22 29 0d 05 32 05  |cs.Physics")..2.|
00000f60  f5 0d 05 3c 0b 61 24 3d  be 23 41 25 0d 05 46 32  |...<.a$=.#A%..F2|
00000f70  e7 20 c0 61 24 2c 31 29  3c 3e 22 23 22 20 80 20  |. .a$,1)<>"#" . |
00000f80  61 24 3c 3e 22 22 20 61  2b 3d 31 3a 70 68 79 73  |a$<>"" a+=1:phys|
00000f90  69 63 73 6c 69 73 74 24  28 61 29 3d 61 24 0d 05  |icslist$(a)=a$..|
00000fa0  50 0a fd 20 c5 23 41 25  0d 05 5a 08 d9 23 41 25  |P.. .#A%..Z..#A%|
00000fb0  0d 05 64 05 e1 0d 05 6e  04 0d 05 78 21 dd f2 74  |..d....n...x!..t|
00000fc0  6f 67 67 6c 65 69 63 6f  6e 28 77 69 6d 70 25 21  |oggleicon(wimp%!|
00000fd0  30 2c 77 69 6d 70 25 21  34 29 0d 05 82 1e 77 69  |0,wimp%!4)....wi|
00000fe0  6d 70 25 21 38 3d 26 32  30 30 30 30 30 3a 77 69  |mp%!8=&200000:wi|
00000ff0  6d 70 25 21 31 32 3d 30  0d 05 8c 21 c8 99 20 22  |mp%!12=0...!.. "|
00001000  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00001010  65 22 2c 2c 77 69 6d 70  25 0d 05 96 05 e1 0d 05  |e",,wimp%.......|
00001020  a0 04 0d 05 aa 13 dd f2  63 6c 6f 73 65 6d 65 73  |........closemes|
00001030  73 66 69 6c 65 0d 05 b4  26 c8 99 20 22 4d 65 73  |sfile...&.. "Mes|
00001040  73 61 67 65 54 72 61 6e  73 5f 43 6c 6f 73 65 46  |sageTrans_CloseF|
00001050  69 6c 65 22 2c 69 64 65  6e 74 25 0d 05 be 05 e1  |ile",ident%.....|
00001060  0d 05 c8 04 0d 05 d2 13  dd a4 6c 6f 6f 6b 75 70  |..........lookup|
00001070  28 6d 65 73 73 24 29 0d  05 dc 4a c8 99 20 22 58  |(mess$)...J.. "X|
00001080  4d 65 73 73 61 67 65 54  72 61 6e 73 5f 4c 6f 6f  |MessageTrans_Loo|
00001090  6b 75 70 22 2c 69 64 65  6e 74 25 2c 6d 65 73 73  |kup",ident%,mess|
000010a0  24 2c 62 75 66 66 65 72  25 2c 32 35 36 2c 22 22  |$,buffer%,256,""|
000010b0  2c 22 22 2c 22 22 2c 22  22 20 b8 20 2c 2c 2c 6c  |,"","","" . ,,,l|
000010c0  25 0d 05 e6 11 62 75 66  66 65 72 25 3f 6c 25 3d  |%....buffer%?l%=|
000010d0  31 33 0d 05 f0 0d 3d 24  62 75 66 66 65 72 25 0d  |13....=$buffer%.|
000010e0  05 fa 04 0d 06 04 2c dd  f2 6f 70 65 6e 6d 65 73  |......,..openmes|
000010f0  73 61 67 65 73 28 69 64  65 6e 74 25 2c 66 69 6c  |sages(ident%,fil|
00001100  65 24 2c 62 75 66 66 25  2c 73 69 7a 65 25 29 0d  |e$,buff%,size%).|
00001110  06 0e 2e c8 99 20 22 4d  65 73 73 61 67 65 54 72  |..... "MessageTr|
00001120  61 6e 73 5f 46 69 6c 65  49 6e 66 6f 22 2c 2c 66  |ans_FileInfo",,f|
00001130  69 6c 65 24 20 b8 20 66  25 2c 2c 6c 25 0d 06 18  |ile$ . f%,,l%...|
00001140  2b e7 20 66 25 20 80 20  31 20 6c 25 3d 30 3a 62  |+. f% . 1 l%=0:b|
00001150  75 66 66 25 3d 30 20 8b  20 62 75 66 66 25 3d 6d  |uff%=0 . buff%=m|
00001160  65 73 73 66 69 6c 65 25  0d 06 22 31 c8 99 20 22  |essfile%.."1.. "|
00001170  4d 65 73 73 61 67 65 54  72 61 6e 73 5f 4f 70 65  |MessageTrans_Ope|
00001180  6e 46 69 6c 65 22 2c 69  64 65 6e 74 25 2c 66 69  |nFile",ident%,fi|
00001190  6c 65 24 2c 62 75 66 66  25 0d 06 2c 05 e1 0d 06  |le$,buff%..,....|
000011a0  36 04 0d 06 40 14 dd f2  63 68 61 6e 67 65 74 6f  |6...@...changeto|
000011b0  70 69 63 28 66 29 0d 06  4a 37 41 25 3d 8e 28 22  |pic(f)..J7A%=.("|
000011c0  3c 49 67 6e 6f 74 75 6d  24 44 69 72 3e 2e 46 6f  |<Ignotum$Dir>.Fo|
000011d0  72 6d 75 6c 61 65 2e 46  6f 72 6d 75 6c 61 65 2e  |rmulae.Formulae.|
000011e0  22 2b c0 74 6f 70 69 63  24 2c 34 29 29 0d 06 54  |"+.topic$,4))..T|
000011f0  24 f5 3a 61 24 3d be 23  41 25 3a fd 20 c0 61 24  |$.:a$=.#A%:. .a$|
00001200  2c 31 29 3c 3e 22 23 22  20 80 20 61 24 3c 3e 22  |,1)<>"#" . a$<>"|
00001210  22 0d 06 5e 15 cf 23 41  25 3d 8f 23 41 25 2d a9  |"..^..#A%=.#A%-.|
00001220  28 61 24 29 2d 31 0d 06  68 0e e3 20 61 3d 31 20  |(a$)-1..h.. a=1 |
00001230  b8 20 32 35 0d 06 72 0d  e3 20 62 3d 31 20 b8 20  |. 25..r.. b=1 . |
00001240  36 0d 06 7c 13 64 61 74  61 24 28 61 2c 62 29 3d  |6..|.data$(a,b)=|
00001250  be 23 41 25 0d 06 86 07  ed 20 62 0d 06 90 07 ed  |.#A%..... b.....|
00001260  20 61 0d 06 9a 08 d9 23  41 25 0d 06 a4 0e e3 20  | a.....#A%..... |
00001270  61 3d 31 20 b8 20 32 35  0d 06 ae 27 f2 73 65 74  |a=1 . 25...'.set|
00001280  69 63 6f 6e 28 68 61 6e  64 6c 65 25 28 33 29 2c  |icon(handle%(3),|
00001290  61 2d 31 2c 64 61 74 61  24 28 61 2c 31 29 29 0d  |a-1,data$(a,1)).|
000012a0  06 b8 07 ed 20 61 0d 06  c2 21 f2 73 65 74 69 63  |.... a...!.setic|
000012b0  6f 6e 28 68 61 6e 64 6c  65 25 28 32 29 2c 31 2c  |on(handle%(2),1,|
000012c0  74 6f 70 69 63 24 29 0d  06 cc 4c e7 20 66 6f 72  |topic$)...L. for|
000012d0  6d 75 6c 61 25 3e 2d 31  20 e3 20 61 3d 32 20 b8  |mula%>-1 . a=2 .|
000012e0  20 36 3a f2 73 65 74 69  63 6f 6e 28 68 61 6e 64  | 6:.seticon(hand|
000012f0  6c 65 25 28 34 29 2c 61  2d 32 2c 64 61 74 61 24  |le%(4),a-2,data$|
00001300  28 66 6f 72 6d 75 6c 61  25 2b 31 2c 61 29 29 3a  |(formula%+1,a)):|
00001310  ed 20 61 0d 06 d6 25 61  3d 30 3a f5 3a 61 2b 3d  |. a...%a=0:.:a+=|
00001320  31 3a fd 20 64 61 74 61  24 28 61 2c 31 29 3d 22  |1:. data$(a,1)="|
00001330  22 20 84 20 61 3e 32 35  0d 06 e0 08 61 2d 3d 31  |" . a>25....a-=1|
00001340  0d 06 ea 9c e7 20 66 6f  72 6d 75 6c 61 25 3e 61  |..... formula%>a|
00001350  2d 31 20 f2 74 6f 67 67  6c 65 69 63 6f 6e 28 68  |-1 .toggleicon(h|
00001360  61 6e 64 6c 65 25 28 33  29 2c 66 6f 72 6d 75 6c  |andle%(3),formul|
00001370  61 25 29 3a 66 6f 72 6d  75 6c 61 25 3d 61 2d 31  |a%):formula%=a-1|
00001380  3a f2 74 6f 67 67 6c 65  69 63 6f 6e 28 68 61 6e  |:.toggleicon(han|
00001390  64 6c 65 25 28 33 29 2c  66 6f 72 6d 75 6c 61 25  |dle%(3),formula%|
000013a0  29 3a e3 20 62 3d 32 20  b8 20 36 3a f2 73 65 74  |):. b=2 . 6:.set|
000013b0  69 63 6f 6e 28 68 61 6e  64 6c 65 25 28 34 29 2c  |icon(handle%(4),|
000013c0  62 2d 32 2c 64 61 74 61  24 28 66 6f 72 6d 75 6c  |b-2,data$(formul|
000013d0  61 25 2b 31 2c 62 29 29  3a ed 20 62 0d 06 f4 0d  |a%+1,b)):. b....|
000013e0  e7 20 61 3c 38 20 61 3d  38 0d 06 fe 0d 77 69 6d  |. a<8 a=8....wim|
000013f0  70 25 21 30 3d 30 0d 07  08 13 77 69 6d 70 25 21  |p%!0=0....wimp%!|
00001400  34 3d 28 2d 61 2a 34 30  29 0d 07 12 0f 77 69 6d  |4=(-a*40)....wim|
00001410  70 25 21 38 3d 36 34 30  0d 07 1c 0e 77 69 6d 70  |p%!8=640....wimp|
00001420  25 21 31 32 3d 30 0d 07  26 28 c8 99 20 22 57 69  |%!12=0..&(.. "Wi|
00001430  6d 70 5f 53 65 74 45 78  74 65 6e 74 22 2c 68 61  |mp_SetExtent",ha|
00001440  6e 64 6c 65 25 28 33 29  2c 77 69 6d 70 25 0d 07  |ndle%(3),wimp%..|
00001450  30 56 e7 20 66 3d 31 20  77 69 6d 70 25 21 30 3d  |0V. f=1 wimp%!0=|
00001460  68 61 6e 64 6c 65 25 28  33 29 3a c8 99 22 57 69  |handle%(3):.."Wi|
00001470  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00001480  65 22 2c 2c 77 69 6d 70  25 3a c8 99 22 57 69 6d  |e",,wimp%:.."Wim|
00001490  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 77  |p_OpenWindow",,w|
000014a0  69 6d 70 25 0d 07 3a 05  e1 0d 07 44 04 0d 07 4e  |imp%..:....D...N|
000014b0  0f dd f2 63 68 65 63 6b  64 72 61 67 0d 07 58 44  |...checkdrag..XD|
000014c0  c8 99 20 22 58 4f 53 5f  53 57 49 4e 75 6d 62 65  |.. "XOS_SWINumbe|
000014d0  72 46 72 6f 6d 53 74 72  69 6e 67 22 2c 2c 22 44  |rFromString",,"D|
000014e0  72 61 67 41 53 70 72 69  74 65 5f 53 74 61 72 74  |ragASprite_Start|
000014f0  22 20 b8 20 64 72 61 67  79 6e 25 3b 66 6c 61 67  |" . dragyn%;flag|
00001500  0d 07 62 1b e7 20 28 66  6c 61 67 20 80 20 31 29  |..b.. (flag . 1)|
00001510  20 64 72 61 67 79 6e 25  3d 2d 31 0d 07 6c 13 e7  | dragyn%=-1..l..|
00001520  20 64 72 61 67 79 6e 25  3c 3e 2d 31 20 8c 0d 07  | dragyn%<>-1 ...|
00001530  76 20 c8 99 20 22 4f 53  5f 42 79 74 65 22 2c 31  |v .. "OS_Byte",1|
00001540  36 31 2c 32 38 20 b8 20  2c 2c 63 6d 6f 73 0d 07  |61,28 . ,,cmos..|
00001550  80 1d e7 20 28 63 6d 6f  73 20 80 20 32 29 3d 30  |... (cmos . 2)=0|
00001560  20 64 72 61 67 79 6e 25  3d 2d 31 0d 07 8a 05 cd  | dragyn%=-1.....|
00001570  0d 07 94 05 e1 0d 07 9e  04 0d 07 a8 11 dd f2 69  |...............i|
00001580  6e 74 65 72 61 63 74 69  76 65 0d 07 b2 09 74 24  |nteractive....t$|
00001590  3d 22 22 0d 07 bc 10 69  6e 74 65 72 25 3d 77 69  |=""....inter%=wi|
000015a0  6d 70 25 0d 07 c6 15 69  6e 74 65 72 25 21 31 32  |mp%....inter%!12|
000015b0  3d 77 69 6d 70 25 21 38  0d 07 d0 12 69 6e 74 65  |=wimp%!8....inte|
000015c0  72 25 21 31 36 3d 26 35  30 33 0d 07 da 16 69 6e  |r%!16=&503....in|
000015d0  74 65 72 25 21 33 32 3d  77 69 6d 70 25 21 33 32  |ter%!32=wimp%!32|
000015e0  0d 07 e4 16 69 6e 74 65  72 25 21 33 36 3d 77 69  |....inter%!36=wi|
000015f0  6d 70 25 21 33 36 0d 07  ee 12 c8 8e 20 69 6e 74  |mp%!36...... int|
00001600  65 72 25 21 33 32 20 ca  0d 07 f8 1c c9 20 68 61  |er%!32 ...... ha|
00001610  6e 64 6c 65 25 28 31 29  20 3a 20 74 24 3d 22 22  |ndle%(1) : t$=""|
00001620  3a cb 3a e1 0d 08 02 2a  c9 20 2d 32 20 3a 20 74  |:.:....*. -2 : t|
00001630  24 3d a4 6c 6f 6f 6b 75  70 28 22 69 63 6f 6e 68  |$=.lookup("iconh|
00001640  65 6c 70 22 2b c3 28 6f  70 65 6e 25 29 29 0d 08  |elp"+.(open%))..|
00001650  0c 29 c9 20 68 61 6e 64  6c 65 25 28 33 29 20 3a  |.). handle%(3) :|
00001660  20 74 24 3d a4 6c 6f 6f  6b 75 70 28 22 6c 69 73  | t$=.lookup("lis|
00001670  74 68 65 6c 70 22 29 0d  08 16 39 c9 20 68 61 6e  |thelp")...9. han|
00001680  64 6c 65 25 28 32 29 20  3a 20 74 24 3d a4 6c 6f  |dle%(2) : t$=.lo|
00001690  6f 6b 75 70 28 22 63 6f  6e 74 72 6f 6c 68 65 6c  |okup("controlhel|
000016a0  70 22 2b c3 28 69 6e 74  65 72 25 21 33 36 29 29  |p"+.(inter%!36))|
000016b0  0d 08 20 29 c9 20 68 61  6e 64 6c 65 25 28 34 29  |.. ). handle%(4)|
000016c0  20 3a 20 74 24 3d a4 6c  6f 6f 6b 75 70 28 22 68  | : t$=.lookup("h|
000016d0  65 6c 70 68 65 6c 70 22  29 0d 08 2a 29 c9 20 68  |elphelp")..*). h|
000016e0  61 6e 64 6c 65 25 28 35  29 20 3a 20 74 24 3d a4  |andle%(5) : t$=.|
000016f0  6c 6f 6f 6b 75 70 28 22  69 6e 66 6f 68 65 6c 70  |lookup("infohelp|
00001700  22 29 0d 08 34 1d 7f 20  3a 20 e7 20 77 69 6d 70  |")..4.. : . wimp|
00001710  76 65 72 73 69 6f 6e 25  3e 3d 33 30 30 20 8c 0d  |version%>=300 ..|
00001720  08 3e 42 6d 65 6e 75 5f  73 65 6c 65 63 74 69 6f  |.>Bmenu_selectio|
00001730  6e 25 21 30 3d 2d 31 3a  6d 65 6e 75 5f 73 65 6c  |n%!0=-1:menu_sel|
00001740  65 63 74 69 6f 6e 25 21  34 3d 2d 31 3a 6d 65 6e  |ection%!4=-1:men|
00001750  75 5f 73 65 6c 65 63 74  69 6f 6e 25 21 38 3d 2d  |u_selection%!8=-|
00001760  31 0d 08 48 3f c8 99 22  57 69 6d 70 5f 47 65 74  |1..H?.."Wimp_Get|
00001770  4d 65 6e 75 53 74 61 74  65 22 2c 31 2c 6d 65 6e  |MenuState",1,men|
00001780  75 5f 73 65 6c 65 63 74  69 6f 6e 25 2c 69 6e 74  |u_selection%,int|
00001790  65 72 25 21 33 32 2c 69  6e 74 65 72 25 21 33 36  |er%!32,inter%!36|
000017a0  0d 08 52 1c e7 20 6d 65  6e 75 5f 73 65 6c 65 63  |..R.. menu_selec|
000017b0  74 69 6f 6e 25 21 34 3d  2d 31 20 8c 0d 08 5c 0b  |tion%!4=-1 ...\.|
000017c0  c8 8e 20 6d 25 20 ca 0d  08 66 35 c9 20 31 20 3a  |.. m% ...f5. 1 :|
000017d0  20 74 24 3d a4 6c 6f 6f  6b 75 70 28 22 6d 65 6e  | t$=.lookup("men|
000017e0  75 68 65 6c 70 22 2b c3  28 6d 65 6e 75 5f 73 65  |uhelp"+.(menu_se|
000017f0  6c 65 63 74 69 6f 6e 25  21 30 29 29 0d 08 70 21  |lection%!0))..p!|
00001800  c9 20 32 20 3a 20 74 24  3d a4 6c 6f 6f 6b 75 70  |. 2 : t$=.lookup|
00001810  28 22 74 6f 70 69 63 68  65 6c 70 22 29 0d 08 7a  |("topichelp")..z|
00001820  05 cb 0d 08 84 05 cd 0d  08 8e 05 cb 0d 08 98 0c  |................|
00001830  74 24 2b 3d bd 28 30 29  0d 08 a2 13 24 28 69 6e  |t$+=.(0)....$(in|
00001840  74 65 72 25 2b 32 30 29  3d 74 24 0d 08 ac 21 69  |ter%+20)=t$...!i|
00001850  6e 74 65 72 25 21 30 3d  28 28 28 32 31 2b a9 28  |nter%!0=(((21+.(|
00001860  74 24 29 29 81 34 29 2a  34 29 2b 34 0d 08 b6 2c  |t$)).4)*4)+4...,|
00001870  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
00001880  73 61 67 65 22 2c 31 37  2c 69 6e 74 65 72 25 2c  |sage",17,inter%,|
00001890  69 6e 74 65 72 25 21 34  0d 08 c0 05 e1 0d 08 ca  |inter%!4........|
000018a0  04 0d 08 d4 11 dd f2 6c  6f 61 64 63 68 6f 69 63  |.......loadchoic|
000018b0  65 73 0d 08 de 21 41 25  3d 8e 28 22 3c 49 67 6e  |es...!A%=.("<Ign|
000018c0  6f 74 75 6d 24 44 69 72  3e 2e 43 68 6f 69 63 65  |otum$Dir>.Choice|
000018d0  73 22 29 0d 08 e8 11 6f  70 65 6e 25 3d bb 28 be  |s")....open%=.(.|
000018e0  23 41 25 29 0d 08 f2 12  6f 66 66 73 65 74 3d bb  |#A%)....offset=.|
000018f0  28 be 23 41 25 29 0d 08  fc 13 78 70 6f 73 6d 69  |(.#A%)....xposmi|
00001900  6e 3d bb 28 be 23 41 25  29 0d 09 06 13 79 70 6f  |n=.(.#A%)....ypo|
00001910  73 6d 69 6e 3d bb 28 be  23 41 25 29 0d 09 10 13  |smin=.(.#A%)....|
00001920  78 70 6f 73 6d 61 78 3d  bb 28 be 23 41 25 29 0d  |xposmax=.(.#A%).|
00001930  09 1a 13 79 70 6f 73 6d  61 78 3d bb 28 be 23 41  |...yposmax=.(.#A|
00001940  25 29 0d 09 24 0f 74 6f  70 69 63 24 3d be 23 41  |%)..$.topic$=.#A|
00001950  25 0d 09 2e 14 66 6f 72  6d 75 6c 61 25 3d bb 28  |%....formula%=.(|
00001960  be 23 41 25 29 0d 09 38  13 68 65 6c 70 79 6e 25  |.#A%)..8.helpyn%|
00001970  3d bb 28 be 23 41 25 29  0d 09 42 08 d9 23 41 25  |=.(.#A%)..B..#A%|
00001980  0d 09 4c 32 e7 20 66 6f  72 6d 75 6c 61 25 3e 2d  |..L2. formula%>-|
00001990  31 20 f2 74 6f 67 67 6c  65 69 63 6f 6e 28 68 61  |1 .toggleicon(ha|
000019a0  6e 64 6c 65 25 28 33 29  2c 66 6f 72 6d 75 6c 61  |ndle%(3),formula|
000019b0  25 29 0d 09 56 29 e7 20  68 65 6c 70 79 6e 25 3d  |%)..V). helpyn%=|
000019c0  30 20 f2 74 6f 67 67 6c  65 69 63 6f 6e 28 68 61  |0 .toggleicon(ha|
000019d0  6e 64 6c 65 25 28 32 29  2c 33 29 0d 09 60 0f e7  |ndle%(2),3)..`..|
000019e0  20 6f 70 65 6e 25 3d 31  20 8c 0d 09 6a 35 77 69  | open%=1 ...j5wi|
000019f0  6d 70 25 21 30 3d 68 61  6e 64 6c 65 25 28 32 29  |mp%!0=handle%(2)|
00001a00  3a c8 99 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |:.."Wimp_GetWind|
00001a10  6f 77 53 74 61 74 65 22  2c 2c 77 69 6d 70 25 0d  |owState",,wimp%.|
00001a20  09 74 45 77 69 6d 70 25  21 34 3d 78 70 6f 73 6d  |.tEwimp%!4=xposm|
00001a30  69 6e 3a 77 69 6d 70 25  21 38 3d 79 70 6f 73 6d  |in:wimp%!8=yposm|
00001a40  69 6e 3a 77 69 6d 70 25  21 31 32 3d 78 70 6f 73  |in:wimp%!12=xpos|
00001a50  6d 61 78 3a 77 69 6d 70  25 21 31 36 3d 79 70 6f  |max:wimp%!16=ypo|
00001a60  73 6d 61 78 0d 09 7e 27  c8 99 20 22 57 69 6d 70  |smax..~'.. "Wimp|
00001a70  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 77 69  |_OpenWindow",,wi|
00001a80  6d 70 25 3a f2 61 74 74  61 63 68 0d 09 88 60 77  |mp%:.attach...`w|
00001a90  69 6d 70 25 21 30 3d 68  61 6e 64 6c 65 25 28 33  |imp%!0=handle%(3|
00001aa0  29 3a c8 99 22 57 69 6d  70 5f 47 65 74 57 69 6e  |):.."Wimp_GetWin|
00001ab0  64 6f 77 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |dowState",,wimp%|
00001ac0  3a 77 69 6d 70 25 21 32  34 3d 6f 66 66 73 65 74  |:wimp%!24=offset|
00001ad0  3a c8 99 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |:.."Wimp_OpenWin|
00001ae0  64 6f 77 22 2c 2c 77 69  6d 70 25 0d 09 92 05 cd  |dow",,wimp%.....|
00001af0  0d 09 9c 05 e1 0d 09 a6  04 0d 09 b0 11 dd f2 73  |...............s|
00001b00  61 76 65 63 68 6f 69 63  65 73 0d 09 ba 41 77 69  |avechoices...Awi|
00001b10  6d 70 25 21 30 3d 68 61  6e 64 6c 65 25 28 33 29  |mp%!0=handle%(3)|
00001b20  3a c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  |:.. "Wimp_GetWin|
00001b30  64 6f 77 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |dowState",,wimp%|
00001b40  3a 61 3d 77 69 6d 70 25  21 32 34 0d 09 c4 60 77  |:a=wimp%!24...`w|
00001b50  69 6d 70 25 21 30 3d 68  61 6e 64 6c 65 25 28 32  |imp%!0=handle%(2|
00001b60  29 3a c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |):.. "Wimp_GetWi|
00001b70  6e 64 6f 77 53 74 61 74  65 22 2c 2c 77 69 6d 70  |ndowState",,wimp|
00001b80  25 3a 62 3d 77 69 6d 70  25 21 34 3a 63 3d 77 69  |%:b=wimp%!4:c=wi|
00001b90  6d 70 25 21 38 3a 64 3d  77 69 6d 70 25 21 31 32  |mp%!8:d=wimp%!12|
00001ba0  3a 65 3d 77 69 6d 70 25  21 31 36 0d 09 ce 21 41  |:e=wimp%!16...!A|
00001bb0  25 3d ae 28 22 3c 49 67  6e 6f 74 75 6d 24 44 69  |%=.("<Ignotum$Di|
00001bc0  72 3e 2e 43 68 6f 69 63  65 73 22 29 0d 09 d8 11  |r>.Choices")....|
00001bd0  d5 23 41 25 2c c3 28 6f  70 65 6e 25 29 0d 09 e2  |.#A%,.(open%)...|
00001be0  0d d5 23 41 25 2c c3 28  61 29 0d 09 ec 0d d5 23  |..#A%,.(a).....#|
00001bf0  41 25 2c c3 28 62 29 0d  09 f6 0d d5 23 41 25 2c  |A%,.(b).....#A%,|
00001c00  c3 28 63 29 0d 0a 00 0d  d5 23 41 25 2c c3 28 64  |.(c).....#A%,.(d|
00001c10  29 0d 0a 0a 0d d5 23 41  25 2c c3 28 65 29 0d 0a  |).....#A%,.(e)..|
00001c20  14 0f d5 23 41 25 2c 74  6f 70 69 63 24 0d 0a 1e  |...#A%,topic$...|
00001c30  14 d5 23 41 25 2c c3 28  66 6f 72 6d 75 6c 61 25  |..#A%,.(formula%|
00001c40  29 0d 0a 28 13 d5 23 41  25 2c c3 28 68 65 6c 70  |)..(..#A%,.(help|
00001c50  79 6e 25 29 0d 0a 32 08  d9 23 41 25 0d 0a 3c 05  |yn%)..2..#A%..<.|
00001c60  e1 0d 0a 46 04 0d 0a 50  0c dd f2 61 74 74 61 63  |...F...P...attac|
00001c70  68 0d 0a 5a 10 c8 8e 20  77 69 6d 70 25 21 30 20  |h..Z... wimp%!0 |
00001c80  ca 0d 0a 64 ea c9 20 68  61 6e 64 6c 65 25 28 32  |...d.. handle%(2|
00001c90  29 3a 20 c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |): .."Wimp_GetWi|
00001ca0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 77 69 6d 70  |ndowState",,wimp|
00001cb0  25 3a 61 3d 77 69 6d 70  25 21 38 2d 34 3a 62 3d  |%:a=wimp%!8-4:b=|
00001cc0  77 69 6d 70 25 21 31 36  2d 33 38 30 3a 63 3d 77  |wimp%!16-380:c=w|
00001cd0  69 6d 70 25 21 34 2b 39  33 30 3a 64 3d 77 69 6d  |imp%!4+930:d=wim|
00001ce0  70 25 21 32 38 3a 77 69  6d 70 25 21 30 3d 68 61  |p%!28:wimp%!0=ha|
00001cf0  6e 64 6c 65 25 28 33 29  3a c8 99 22 57 69 6d 70  |ndle%(3):.."Wimp|
00001d00  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00001d10  2c 2c 77 69 6d 70 25 3a  77 69 6d 70 25 21 34 3d  |,,wimp%:wimp%!4=|
00001d20  63 2d 39 33 30 3a 77 69  6d 70 25 21 31 36 3d 61  |c-930:wimp%!16=a|
00001d30  3a 77 69 6d 70 25 21 38  3d 62 3a 77 69 6d 70 25  |:wimp%!8=b:wimp%|
00001d40  21 31 32 3d 63 3a 77 69  6d 70 25 21 32 38 3d 64  |!12=c:wimp%!28=d|
00001d50  3a c8 99 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |:.."Wimp_OpenWin|
00001d60  64 6f 77 22 2c 2c 77 69  6d 70 25 0d 0a 6e 99 e7  |dow",,wimp%..n..|
00001d70  20 68 65 6c 70 79 6e 25  3d 31 20 c8 99 22 57 69  | helpyn%=1 .."Wi|
00001d80  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00001d90  65 22 2c 2c 77 69 6d 70  25 3a 77 69 6d 70 25 21  |e",,wimp%:wimp%!|
00001da0  30 3d 68 61 6e 64 6c 65  25 28 34 29 3a 77 69 6d  |0=handle%(4):wim|
00001db0  70 25 21 31 36 3d 77 69  6d 70 25 21 38 2d 34 3a  |p%!16=wimp%!8-4:|
00001dc0  77 69 6d 70 25 21 38 3d  77 69 6d 70 25 21 31 36  |wimp%!8=wimp%!16|
00001dd0  2d 32 35 36 3a 77 69 6d  70 25 21 31 32 3d 77 69  |-256:wimp%!12=wi|
00001de0  6d 70 25 21 34 2b 39 33  30 3a c8 99 22 57 69 6d  |mp%!4+930:.."Wim|
00001df0  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 77  |p_OpenWindow",,w|
00001e00  69 6d 70 25 0d 0a 78 05  cb 0d 0a 82 05 e1 0d 0a  |imp%..x.........|
00001e10  8c 04 0d 0a 96 13 dd f2  64 72 61 67 5f 63 6f 6d  |........drag_com|
00001e20  70 6c 65 74 65 0d 0a a0  27 e7 20 64 72 61 67 79  |plete...'. dragy|
00001e30  6e 25 3c 3e 2d 31 20 c8  99 20 22 44 72 61 67 41  |n%<>-1 .. "DragA|
00001e40  53 70 72 69 74 65 5f 53  74 6f 70 22 0d 0a aa 23  |Sprite_Stop"...#|
00001e50  c8 99 20 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |.. "Wimp_GetPoin|
00001e60  74 65 72 49 6e 66 6f 22  2c 2c 77 69 6d 70 25 0d  |terInfo",,wimp%.|
00001e70  0a b4 3d 54 68 65 57 69  6e 64 6f 77 25 3d 77 69  |..=TheWindow%=wi|
00001e80  6d 70 25 21 31 32 3a 54  68 65 49 63 6f 6e 25 3d  |mp%!12:TheIcon%=|
00001e90  77 69 6d 70 25 21 31 36  3a 78 3d 77 69 6d 70 25  |wimp%!16:x=wimp%|
00001ea0  21 30 3a 79 3d 77 69 6d  70 25 21 34 0d 0a be 4a  |!0:y=wimp%!4...J|
00001eb0  77 69 6d 70 25 21 30 3d  36 34 3a 77 69 6d 70 25  |wimp%!0=64:wimp%|
00001ec0  21 31 32 3d 30 3a 77 69  6d 70 25 21 31 36 3d 31  |!12=0:wimp%!16=1|
00001ed0  3a 77 69 6d 70 25 21 32  30 3d 54 68 65 57 69 6e  |:wimp%!20=TheWin|
00001ee0  64 6f 77 25 3a 77 69 6d  70 25 21 32 34 3d 54 68  |dow%:wimp%!24=Th|
00001ef0  65 49 63 6f 6e 25 0d 0a  c8 19 77 69 6d 70 25 21  |eIcon%....wimp%!|
00001f00  32 38 3d 78 3a 77 69 6d  70 25 21 33 32 3d 79 0d  |28=x:wimp%!32=y.|
00001f10  0a d2 10 77 69 6d 70 25  21 33 36 3d 31 30 30 0d  |...wimp%!36=100.|
00001f20  0a dc 11 77 69 6d 70 25  21 34 30 3d 26 46 46 46  |...wimp%!40=&FFF|
00001f30  0d 0a e6 17 24 28 77 69  6d 70 25 2b 34 34 29 3d  |....$(wimp%+44)=|
00001f40  66 69 6c 65 6e 61 24 0d  0a f0 36 c8 99 20 22 57  |filena$...6.. "W|
00001f50  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00001f60  2c 31 37 2c 77 69 6d 70  25 2c 54 68 65 57 69 6e  |,17,wimp%,TheWin|
00001f70  64 6f 77 25 2c 54 68 65  49 63 6f 6e 25 0d 0a fa  |dow%,TheIcon%...|
00001f80  05 e1 0d 0b 04 04 0d 0b  0e 0e dd f2 73 61 76 65  |............save|
00001f90  66 69 6c 65 0d 0b 18 13  41 25 3d ae 28 66 69 6c  |file....A%=.(fil|
00001fa0  65 6e 61 6d 65 24 29 0d  0b 22 1c d5 23 41 25 2c  |ename$).."..#A%,|
00001fb0  64 61 74 61 24 28 66 6f  72 6d 75 6c 61 25 2b 31  |data$(formula%+1|
00001fc0  2c 31 29 0d 0b 2c 08 d9  23 41 25 0d 0b 36 21 ff  |,1)..,..#A%..6!.|
00001fd0  22 53 65 74 74 79 70 65  20 22 2b 66 69 6c 65 6e  |"Settype "+filen|
00001fe0  61 6d 65 24 2b 22 20 74  65 78 74 22 0d 0b 40 aa  |ame$+" text"..@.|
00001ff0  e7 20 6d 6f 75 73 65 62  75 74 74 6f 6e 25 3d 31  |. mousebutton%=1|
00002000  36 20 6f 70 65 6e 25 3d  30 3a 77 69 6d 70 25 21  |6 open%=0:wimp%!|
00002010  30 3d 68 61 6e 64 6c 65  25 28 32 29 3a c8 99 22  |0=handle%(2):.."|
00002020  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
00002030  22 2c 2c 77 69 6d 70 25  3a 77 69 6d 70 25 21 30  |",,wimp%:wimp%!0|
00002040  3d 68 61 6e 64 6c 65 25  28 33 29 3a c8 99 22 57  |=handle%(3):.."W|
00002050  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
00002060  2c 2c 77 69 6d 70 25 3a  77 69 6d 70 25 21 30 3d  |,,wimp%:wimp%!0=|
00002070  68 61 6e 64 6c 65 25 28  34 29 3a c8 99 22 57 69  |handle%(4):.."Wi|
00002080  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
00002090  2c 77 69 6d 70 25 0d 0b  4a 05 e1 0d 0b 54 04 0d  |,wimp%..J....T..|
000020a0  0b 5e 1d dd f2 65 72 72  28 77 69 6d 70 25 21 30  |.^...err(wimp%!0|
000020b0  2c 24 28 77 69 6d 70 25  2b 34 29 29 0d 0b 68 10  |,$(wimp%+4))..h.|
000020c0  c8 8e 20 77 69 6d 70 25  21 30 20 ca 0d 0b 72 31  |.. wimp%!0 ...r1|
000020d0  c9 20 36 37 37 38 35 20  3a 20 24 28 77 69 6d 70  |. 67785 : $(wimp|
000020e0  25 2b 34 29 2b 3d a4 6c  6f 6f 6b 75 70 28 22 77  |%+4)+=.lookup("w|
000020f0  72 69 74 65 70 72 6f 74  65 63 74 22 29 0d 0b 7c  |riteprotect")..||
00002100  05 cb 0d 0b 86 2b c8 99  20 22 57 69 6d 70 5f 52  |.....+.. "Wimp_R|
00002110  65 70 6f 72 74 45 72 72  6f 72 22 2c 77 69 6d 70  |eportError",wimp|
00002120  25 2c 31 2c 22 49 67 6e  6f 74 75 6d 22 0d 0b 90  |%,1,"Ignotum"...|
00002130  05 e1 0d 0b 9a 04 0d 0b  a4 0d dd f2 69 63 6f 6e  |............icon|
00002140  62 61 72 0d 0b ae 22 77  69 6d 70 25 21 30 3d 2d  |bar..."wimp%!0=-|
00002150  31 3a 77 69 6d 70 25 21  34 3d 30 3a 77 69 6d 70  |1:wimp%!4=0:wimp|
00002160  25 21 38 3d 30 0d 0b b8  2a 77 69 6d 70 25 21 31  |%!8=0...*wimp%!1|
00002170  32 3d 36 38 3a 77 69 6d  70 25 21 31 36 3d 36 38  |2=68:wimp%!16=68|
00002180  3a 77 69 6d 70 25 21 32  30 3d 26 33 30 30 41 0d  |:wimp%!20=&300A.|
00002190  0b c2 1a 24 28 77 69 6d  70 25 2b 32 34 29 3d 22  |...$(wimp%+24)="|
000021a0  21 49 67 6e 6f 74 75 6d  22 0d 0b cc 28 c8 99 20  |!Ignotum"...(.. |
000021b0  22 57 69 6d 70 5f 43 72  65 61 74 65 49 63 6f 6e  |"Wimp_CreateIcon|
000021c0  22 2c 2c 77 69 6d 70 25  20 b8 20 69 63 68 61 6e  |",,wimp% . ichan|
000021d0  25 0d 0b d6 05 e1 0d 0b  e0 04 0d 0b ea 10 dd f2  |%...............|
000021e0  6d 65 6e 75 73 65 6c 65  63 74 0d 0b f4 19 61 25  |menuselect....a%|
000021f0  3d 77 69 6d 70 25 21 30  3a 62 25 3d 77 69 6d 70  |=wimp%!0:b%=wimp|
00002200  25 21 34 0d 0b fe 23 c8  99 20 22 57 69 6d 70 5f  |%!4...#.. "Wimp_|
00002210  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 22 2c  |GetPointerInfo",|
00002220  2c 77 69 6d 70 25 0d 0c  08 10 62 75 74 25 3d 77  |,wimp%....but%=w|
00002230  69 6d 70 25 21 38 0d 0c  12 19 77 69 6d 70 25 21  |imp%!8....wimp%!|
00002240  30 3d 61 25 3a 77 69 6d  70 25 21 34 3d 62 25 0d  |0=a%:wimp%!4=b%.|
00002250  0c 1c 17 e7 20 6d 25 3d  31 20 c8 8e 20 77 69 6d  |.... m%=1 .. wim|
00002260  70 25 21 30 20 ca 0d 0c  26 16 c9 20 31 20 3a 20  |p%!0 ...&.. 1 : |
00002270  f2 73 61 76 65 63 68 6f  69 63 65 73 0d 0c 30 0f  |.savechoices..0.|
00002280  c9 20 32 20 3a 20 f2 71  75 69 74 0d 0c 3a 05 cb  |. 2 : .quit..:..|
00002290  0d 0c 44 17 e7 20 6d 25  3d 32 20 c8 8e 20 77 69  |..D.. m%=2 .. wi|
000022a0  6d 70 25 21 30 20 ca 0d  0c 4e 43 c9 20 30 20 3a  |mp%!0 ...NC. 0 :|
000022b0  20 e7 20 77 69 6d 70 25  21 34 3e 2d 31 20 74 6f  | . wimp%!4>-1 to|
000022c0  70 69 63 24 3d 6d 61 74  68 73 6c 69 73 74 24 28  |pic$=mathslist$(|
000022d0  77 69 6d 70 25 21 34 2b  31 29 3a f2 63 68 61 6e  |wimp%!4+1):.chan|
000022e0  67 65 74 6f 70 69 63 28  31 29 0d 0c 58 45 c9 20  |getopic(1)..XE. |
000022f0  31 20 3a 20 e7 20 77 69  6d 70 25 21 34 3e 2d 31  |1 : . wimp%!4>-1|
00002300  20 74 6f 70 69 63 24 3d  70 68 79 73 69 63 73 6c  | topic$=physicsl|
00002310  69 73 74 24 28 77 69 6d  70 25 21 34 2b 31 29 3a  |ist$(wimp%!4+1):|
00002320  f2 63 68 61 6e 67 65 74  6f 70 69 63 28 31 29 0d  |.changetopic(1).|
00002330  0c 62 05 cb 0d 0c 6c 40  e7 20 62 75 74 25 3d 31  |.b....l@. but%=1|
00002340  20 80 20 6d 25 3d 32 20  77 69 6d 70 25 21 30 3d  | . m%=2 wimp%!0=|
00002350  6d 6f 75 73 78 25 3a 77  69 6d 70 25 21 34 3d 6d  |mousx%:wimp%!4=m|
00002360  6f 75 73 79 25 3a f2 6d  61 6b 65 74 6f 70 69 63  |ousy%:.maketopic|
00002370  6d 65 6e 75 0d 0c 76 48  e7 20 62 75 74 25 3d 31  |menu..vH. but%=1|
00002380  20 80 20 6d 25 3d 31 20  80 20 77 69 6d 70 25 21  | . m%=1 . wimp%!|
00002390  30 3c 3e 32 20 77 69 6d  70 25 21 30 3d 6d 6f 75  |0<>2 wimp%!0=mou|
000023a0  73 78 25 3a 77 69 6d 70  25 21 34 3d 6d 6f 75 73  |sx%:wimp%!4=mous|
000023b0  79 25 3a f2 6d 61 6b 65  6d 65 6e 75 0d 0c 80 05  |y%:.makemenu....|
000023c0  e1 0d 0c 8a 04 0d 0c 94  0f dd a4 72 65 61 64 69  |...........readi|
000023d0  6e 70 75 74 0d 0c 9e 1f  77 69 6d 70 25 21 30 3d  |nput....wimp%!0=|
000023e0  70 61 6e 65 6c 68 61 6e  25 3a 77 69 6d 70 25 21  |panelhan%:wimp%!|
000023f0  34 3d 31 0d 0c a8 14 c8  99 20 26 34 30 30 43 45  |4=1...... &400CE|
00002400  2c 2c 77 69 6d 70 25 0d  0c b2 0e 3d 24 77 69 6d  |,,wimp%....=$wim|
00002410  70 25 21 32 38 0d 0c bc  04 0d 0c c6 21 dd f2 73  |p%!28.......!..s|
00002420  65 74 69 63 6f 6e 28 77  69 6d 70 25 21 30 2c 77  |eticon(wimp%!0,w|
00002430  69 6d 70 25 21 34 2c 74  24 29 0d 0c d0 14 c8 99  |imp%!4,t$)......|
00002440  20 26 34 30 30 43 45 2c  2c 77 69 6d 70 25 0d 0c  | &400CE,,wimp%..|
00002450  da 10 24 77 69 6d 70 25  21 32 38 3d 74 24 0d 0c  |..$wimp%!28=t$..|
00002460  e4 18 77 69 6d 70 25 21  38 3d 30 3a 77 69 6d 70  |..wimp%!8=0:wimp|
00002470  25 21 31 32 3d 30 0d 0c  ee 14 c8 99 20 26 34 30  |%!12=0...... &40|
00002480  30 43 44 2c 2c 77 69 6d  70 25 0d 0c f8 05 e1 0d  |0CD,,wimp%......|
00002490  0d 02 04 0d 0d 0c 11 dd  f2 64 72 61 67 66 6f 72  |.........dragfor|
000024a0  6d 75 6c 61 0d 0d 16 2a  e7 20 77 69 6d 70 25 21  |mula...*. wimp%!|
000024b0  31 32 3c 3e 68 61 6e 64  6c 65 25 28 33 29 20 84  |12<>handle%(3) .|
000024c0  20 66 6f 72 6d 75 6c 61  25 3d 2d 31 20 e1 0d 0d  | formula%=-1 ...|
000024d0  20 25 61 3d 30 3a f5 3a  61 2b 3d 31 3a fd 20 64  | %a=0:.:a+=1:. d|
000024e0  61 74 61 24 28 61 2c 31  29 3d 22 22 20 84 20 61  |ata$(a,1)="" . a|
000024f0  3e 32 35 0d 0d 2a 16 e7  20 66 6f 72 6d 75 6c 61  |>25..*.. formula|
00002500  25 3e 28 61 2d 32 29 20  e1 0d 0d 34 20 f2 63 68  |%>(a-2) ...4 .ch|
00002510  65 63 6b 64 72 61 67 3a  66 69 6c 65 6e 61 24 3d  |eckdrag:filena$=|
00002520  22 46 6f 72 6d 75 6c 61  22 0d 0d 3e 36 77 69 6d  |"Formula"..>6wim|
00002530  70 25 21 30 3d 68 61 6e  64 6c 65 25 28 33 29 3a  |p%!0=handle%(3):|
00002540  c8 99 20 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.. "Wimp_GetWind|
00002550  6f 77 53 74 61 74 65 22  2c 2c 77 69 6d 70 25 0d  |owState",,wimp%.|
00002560  0d 48 34 78 3d 77 69 6d  70 25 21 34 3a 79 3d 77  |.H4x=wimp%!4:y=w|
00002570  69 6d 70 25 21 31 36 3a  6f 3d 77 69 6d 70 25 21  |imp%!16:o=wimp%!|
00002580  32 34 3a 77 69 6d 70 25  21 34 3d 66 6f 72 6d 75  |24:wimp%!4=formu|
00002590  6c 61 25 0d 0d 52 21 c8  99 20 22 57 69 6d 70 5f  |la%..R!.. "Wimp_|
000025a0  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 77  |GetIconState",,w|
000025b0  69 6d 70 25 0d 0d 5c 26  77 69 6d 70 25 21 34 3d  |imp%..\&wimp%!4=|
000025c0  35 3a 77 69 6d 70 25 21  38 2b 3d 78 3a 77 69 6d  |5:wimp%!8+=x:wim|
000025d0  70 25 21 31 32 2b 3d 79  2d 6f 0d 0d 66 1f 77 69  |p%!12+=y-o..f.wi|
000025e0  6d 70 25 21 31 36 2b 3d  78 2d 34 3a 77 69 6d 70  |mp%!16+=x-4:wimp|
000025f0  25 21 32 30 2b 3d 79 2d  6f 0d 0d 70 19 77 69 6d  |%!20+=y-o..p.wim|
00002600  70 25 21 32 34 3d 30 3a  77 69 6d 70 25 21 32 38  |p%!24=0:wimp%!28|
00002610  3d 30 0d 0d 7a 29 77 69  6d 70 25 21 33 32 3d 26  |=0..z)wimp%!32=&|
00002620  37 46 46 46 46 46 46 46  3a 77 69 6d 70 25 21 33  |7FFFFFFF:wimp%!3|
00002630  36 3d 26 37 46 46 46 46  46 46 46 0d 0d 84 3e 73  |6=&7FFFFFFF...>s|
00002640  70 72 69 74 65 24 3d 22  66 6f 72 6d 64 72 61 67  |prite$="formdrag|
00002650  22 3a e7 20 64 69 74 68  65 72 73 70 72 69 74 65  |":. dithersprite|
00002660  25 3d 31 20 73 70 72 69  74 65 24 3d 22 66 6f 72  |%=1 sprite$="for|
00002670  6d 64 72 61 67 72 70 63  22 0d 0d 8e 67 e7 20 64  |mdragrpc"...g. d|
00002680  72 61 67 79 6e 25 3d 2d  31 20 c8 99 20 22 57 69  |ragyn%=-1 .. "Wi|
00002690  6d 70 5f 44 72 61 67 42  6f 78 22 2c 2c 77 69 6d  |mp_DragBox",,wim|
000026a0  70 25 20 8b 20 c8 99 20  22 44 72 61 67 41 53 70  |p% . .. "DragASp|
000026b0  72 69 74 65 5f 53 74 61  72 74 22 2c 25 31 31 30  |rite_Start",%110|
000026c0  30 30 31 30 31 2c 31 2c  73 70 72 69 74 65 24 2c  |00101,1,sprite$,|
000026d0  77 69 6d 70 25 2b 38 2c  77 69 6d 70 25 2b 32 34  |wimp%+8,wimp%+24|
000026e0  0d 0d 98 05 e1 0d 0d a2  04 0d 0d ac 0b dd f2 63  |...............c|
000026f0  6c 69 63 6b 0d 0d b6 13  62 75 74 74 6f 6e 25 3d  |lick....button%=|
00002700  77 69 6d 70 25 21 38 0d  0d c0 14 77 69 6e 64 6f  |wimp%!8....windo|
00002710  77 25 3d 77 69 6d 70 25  21 31 32 0d 0d ca 12 69  |w%=wimp%!12....i|
00002720  63 6f 6e 25 3d 77 69 6d  70 25 21 31 36 0d 0d d4  |con%=wimp%!16...|
00002730  3f e7 20 62 75 74 74 6f  6e 25 3d 31 36 20 84 20  |?. button%=16 . |
00002740  62 75 74 74 6f 6e 25 3d  36 34 20 6d 6f 75 73 65  |button%=64 mouse|
00002750  62 75 74 74 6f 6e 25 3d  62 75 74 74 6f 6e 25 3a  |button%=button%:|
00002760  f2 64 72 61 67 66 6f 72  6d 75 6c 61 0d 0d de 25  |.dragformula...%|
00002770  e7 20 77 69 6e 64 6f 77  25 3d 68 61 6e 64 6c 65  |. window%=handle|
00002780  25 28 32 29 20 c8 8e 20  62 75 74 74 6f 6e 25 20  |%(2) .. button% |
00002790  ca 0d 0d e8 16 c9 20 31  2c 34 20 3a 20 c8 8e 20  |...... 1,4 : .. |
000027a0  69 63 6f 6e 25 20 ca 0d  0d f2 7d 20 20 20 20 20  |icon% ....}     |
000027b0  20 20 20 20 20 20 c9 20  33 20 3a 20 68 65 6c 70  |      . 3 : help|
000027c0  79 6e 25 3d 31 2d 68 65  6c 70 79 6e 25 3a 77 69  |yn%=1-helpyn%:wi|
000027d0  6d 70 25 21 30 3d 68 61  6e 64 6c 65 25 28 32 29  |mp%!0=handle%(2)|
000027e0  3a f2 61 74 74 61 63 68  3a e7 20 68 65 6c 70 79  |:.attach:. helpy|
000027f0  6e 25 3d 30 20 77 69 6d  70 25 21 30 3d 68 61 6e  |n%=0 wimp%!0=han|
00002800  64 6c 65 25 28 34 29 3a  c8 99 20 22 57 69 6d 70  |dle%(4):.. "Wimp|
00002810  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 77  |_CloseWindow",,w|
00002820  69 6d 70 25 0d 0d fc 23  20 20 20 20 20 20 20 20  |imp%...#        |
00002830  20 20 20 c9 20 32 20 3a  20 f2 6d 61 6b 65 74 6f  |   . 2 : .maketo|
00002840  70 69 63 6d 65 6e 75 0d  0e 06 10 20 20 20 20 20  |picmenu....     |
00002850  20 20 20 20 20 20 cb 0d  0e 10 22 c9 20 32 20 3a  |      ....". 2 :|
00002860  20 e7 20 69 63 6f 6e 25  3d 32 20 f2 6d 61 6b 65  | . icon%=2 .make|
00002870  74 6f 70 69 63 6d 65 6e  75 0d 0e 1a 05 cb 0d 0e  |topicmenu.......|
00002880  24 25 e7 20 77 69 6e 64  6f 77 25 3d 68 61 6e 64  |$%. window%=hand|
00002890  6c 65 25 28 33 29 20 c8  8e 20 62 75 74 74 6f 6e  |le%(3) .. button|
000028a0  25 20 ca 0d 0e 2e 1c c9  20 31 20 3a 20 e7 20 69  |% ...... 1 : . i|
000028b0  63 6f 6e 25 3d 66 6f 72  6d 75 6c 61 25 20 8c 0d  |con%=formula% ..|
000028c0  0e 38 22 20 20 20 20 20  20 20 20 20 66 6f 72 6d  |.8"         form|
000028d0  75 6c 61 25 3d 2d 31 3a  e3 20 61 3d 30 20 b8 20  |ula%=-1:. a=0 . |
000028e0  34 0d 0e 42 26 20 20 20  20 20 20 20 20 20 f2 73  |4..B&         .s|
000028f0  65 74 69 63 6f 6e 28 68  61 6e 64 6c 65 25 28 34  |eticon(handle%(4|
00002900  29 2c 61 2c 22 22 29 0d  0e 4c 10 20 20 20 20 20  |),a,"")..L.     |
00002910  20 20 20 20 ed 20 61 0d  0e 56 0e 20 20 20 20 20  |    . a..V.     |
00002920  20 20 20 20 cc 0d 0e 60  25 20 20 20 20 20 20 20  |    ...`%       |
00002930  20 20 66 6f 72 6d 75 6c  61 25 3d 69 63 6f 6e 25  |  formula%=icon%|
00002940  3a e3 20 61 3d 32 20 b8  20 36 0d 0e 6a 36 20 20  |:. a=2 . 6..j6  |
00002950  20 20 20 20 20 20 20 f2  73 65 74 69 63 6f 6e 28  |       .seticon(|
00002960  68 61 6e 64 6c 65 25 28  34 29 2c 61 2d 32 2c 64  |handle%(4),a-2,d|
00002970  61 74 61 24 28 69 63 6f  6e 25 2b 31 2c 61 29 29  |ata$(icon%+1,a))|
00002980  0d 0e 74 10 20 20 20 20  20 20 20 20 20 ed 20 61  |..t.         . a|
00002990  0d 0e 7e 0e 20 20 20 20  20 20 20 20 20 cd 0d 0e  |..~.         ...|
000029a0  88 22 c9 20 34 20 3a 20  66 6f 72 6d 75 6c 61 25  |.". 4 : formula%|
000029b0  3d 69 63 6f 6e 25 3a e3  20 61 3d 32 20 b8 20 36  |=icon%:. a=2 . 6|
000029c0  0d 0e 92 36 20 20 20 20  20 20 20 20 20 f2 73 65  |...6         .se|
000029d0  74 69 63 6f 6e 28 68 61  6e 64 6c 65 25 28 34 29  |ticon(handle%(4)|
000029e0  2c 61 2d 32 2c 64 61 74  61 24 28 69 63 6f 6e 25  |,a-2,data$(icon%|
000029f0  2b 31 2c 61 29 29 0d 0e  9c 10 20 20 20 20 20 20  |+1,a))....      |
00002a00  20 20 20 ed 20 61 0d 0e  a6 05 cb 0d 0e b0 2b e7  |   . a........+.|
00002a10  20 77 69 6e 64 6f 77 25  3d 2d 32 20 80 20 62 75  | window%=-2 . bu|
00002a20  74 74 6f 6e 25 3d 32 20  f2 6d 61 6b 65 6d 65 6e  |tton%=2 .makemen|
00002a30  75 3a 6d 25 3d 31 0d 0e  ba 85 e7 20 62 75 74 74  |u:m%=1..... butt|
00002a40  6f 6e 25 3d 34 20 80 20  77 69 6e 64 6f 77 25 3d  |on%=4 . window%=|
00002a50  2d 32 20 6f 70 65 6e 25  3d 31 3a 77 69 6d 70 25  |-2 open%=1:wimp%|
00002a60  21 30 3d 68 61 6e 64 6c  65 25 28 32 29 3a c8 99  |!0=handle%(2):..|
00002a70  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00002a80  74 61 74 65 22 2c 2c 77  69 6d 70 25 3a 77 69 6d  |tate",,wimp%:wim|
00002a90  70 25 21 32 38 3d 2d 31  3a c8 99 22 57 69 6d 70  |p%!28=-1:.."Wimp|
00002aa0  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 77 69  |_OpenWindow",,wi|
00002ab0  6d 70 25 3a f2 61 74 74  61 63 68 0d 0e c4 05 e1  |mp%:.attach.....|
00002ac0  0d 0e ce 04 0d 0e d8 0e  dd f2 6d 61 6b 65 6d 65  |..........makeme|
00002ad0  6e 75 0d 0e e2 14 24 6d  65 6e 75 25 3d 22 49 67  |nu....$menu%="Ig|
00002ae0  6e 6f 74 75 6d 22 0d 0e  ec 0e 6d 65 6e 75 25 3f  |notum"....menu%?|
00002af0  31 32 3d 37 0d 0e f6 0e  6d 65 6e 75 25 3f 31 33  |12=7....menu%?13|
00002b00  3d 32 0d 0f 00 0e 6d 65  6e 75 25 3f 31 34 3d 37  |=2....menu%?14=7|
00002b10  0d 0f 0a 0e 6d 65 6e 75  25 3f 31 35 3d 30 0d 0f  |....menu%?15=0..|
00002b20  14 10 6d 65 6e 75 25 21  31 36 3d 32 32 30 0d 0f  |..menu%!16=220..|
00002b30  1e 0f 6d 65 6e 75 25 21  32 30 3d 34 34 0d 0f 28  |..menu%!20=44..(|
00002b40  0e 6d 65 6e 75 25 21 32  34 3d 30 0d 0f 32 0e 6d  |.menu%!24=0..2.m|
00002b50  65 6e 75 25 21 32 38 3d  30 0d 0f 3c 17 6d 65 6e  |enu%!28=0..<.men|
00002b60  75 25 21 33 32 3d 68 61  6e 64 6c 65 25 28 35 29  |u%!32=handle%(5)|
00002b70  0d 0f 46 15 6d 65 6e 75  25 21 33 36 3d 26 37 30  |..F.menu%!36=&70|
00002b80  30 30 30 32 31 0d 0f 50  16 24 28 6d 65 6e 75 25  |00021..P.$(menu%|
00002b90  2b 34 30 29 3d 22 49 6e  66 6f 22 0d 0f 5a 0e 6d  |+40)="Info"..Z.m|
00002ba0  65 6e 75 25 21 35 32 3d  30 0d 0f 64 0f 6d 65 6e  |enu%!52=0..d.men|
00002bb0  75 25 21 35 36 3d 2d 31  0d 0f 6e 15 6d 65 6e 75  |u%!56=-1..n.menu|
00002bc0  25 21 36 30 3d 26 37 30  30 30 30 32 31 0d 0f 78  |%!60=&7000021..x|
00002bd0  1e 24 28 6d 65 6e 75 25  2b 36 34 29 3d 22 53 61  |.$(menu%+64)="Sa|
00002be0  76 65 20 63 68 6f 69 63  65 73 22 0d 0f 82 10 6d  |ve choices"....m|
00002bf0  65 6e 75 25 21 37 36 3d  26 38 30 0d 0f 8c 0f 6d  |enu%!76=&80....m|
00002c00  65 6e 75 25 21 38 30 3d  2d 31 0d 0f 96 15 6d 65  |enu%!80=-1....me|
00002c10  6e 75 25 21 38 34 3d 26  37 30 30 30 30 32 31 0d  |nu%!84=&7000021.|
00002c20  0f a0 16 24 28 6d 65 6e  75 25 2b 38 38 29 3d 22  |...$(menu%+88)="|
00002c30  51 75 69 74 22 0d 0f aa  21 6d 6f 75 73 78 25 3d  |Quit"...!mousx%=|
00002c40  77 69 6d 70 25 21 30 3a  6d 6f 75 73 79 25 3d 77  |wimp%!0:mousy%=w|
00002c50  69 6d 70 25 21 34 0d 0f  b4 34 c8 99 20 22 57 69  |imp%!4...4.. "Wi|
00002c60  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00002c70  6d 65 6e 75 25 2c 77 69  6d 70 25 21 30 2d 36 38  |menu%,wimp%!0-68|
00002c80  2c 28 34 34 2a 33 29 2b  39 36 0d 0f be 05 e1 0d  |,(44*3)+96......|
00002c90  0f c8 04 0d 0f d2 13 dd  f2 6d 61 6b 65 74 6f 70  |.........maketop|
00002ca0  69 63 6d 65 6e 75 0d 0f  dc 08 6d 25 3d 32 0d 0f  |icmenu....m%=2..|
00002cb0  e6 12 24 6d 65 6e 75 25  3d 22 54 6f 70 69 63 22  |..$menu%="Topic"|
00002cc0  0d 0f f0 0e 6d 65 6e 75  25 3f 31 32 3d 37 0d 0f  |....menu%?12=7..|
00002cd0  fa 0e 6d 65 6e 75 25 3f  31 33 3d 32 0d 10 04 0e  |..menu%?13=2....|
00002ce0  6d 65 6e 75 25 3f 31 34  3d 37 0d 10 0e 0e 6d 65  |menu%?14=7....me|
00002cf0  6e 75 25 3f 31 35 3d 30  0d 10 18 10 6d 65 6e 75  |nu%?15=0....menu|
00002d00  25 21 31 36 3d 31 34 30  0d 10 22 0f 6d 65 6e 75  |%!16=140..".menu|
00002d10  25 21 32 30 3d 34 34 0d  10 2c 0e 6d 65 6e 75 25  |%!20=44..,.menu%|
00002d20  21 32 34 3d 30 0d 10 36  0e 6d 65 6e 75 25 21 32  |!24=0..6.menu%!2|
00002d30  38 3d 30 0d 10 40 15 6d  65 6e 75 25 21 33 32 3d  |8=0..@.menu%!32=|
00002d40  6d 65 6e 75 25 2b 37 36  0d 10 4a 15 6d 65 6e 75  |menu%+76..J.menu|
00002d50  25 21 33 36 3d 26 37 30  30 30 30 32 31 0d 10 54  |%!36=&7000021..T|
00002d60  17 24 28 6d 65 6e 75 25  2b 34 30 29 3d 22 4d 61  |.$(menu%+40)="Ma|
00002d70  74 68 73 22 0d 10 5e 10  6d 65 6e 75 25 21 35 32  |ths"..^.menu%!52|
00002d80  3d 26 38 30 0d 10 68 0f  6d 65 6e 75 25 21 35 36  |=&80..h.menu%!56|
00002d90  3d 2d 31 0d 10 72 15 6d  65 6e 75 25 21 36 30 3d  |=-1..r.menu%!60=|
00002da0  26 37 30 30 30 30 32 31  0d 10 7c 19 24 28 6d 65  |&7000021..|.$(me|
00002db0  6e 75 25 2b 36 34 29 3d  22 50 68 79 73 69 63 73  |nu%+64)="Physics|
00002dc0  22 0d 10 86 17 24 28 6d  65 6e 75 25 2b 37 36 29  |"....$(menu%+76)|
00002dd0  3d 22 4d 61 74 68 73 22  0d 10 90 0e 6d 65 6e 75  |="Maths"....menu|
00002de0  25 3f 38 38 3d 37 0d 10  9a 0e 6d 65 6e 75 25 3f  |%?88=7....menu%?|
00002df0  38 39 3d 32 0d 10 a4 0e  6d 65 6e 75 25 3f 39 30  |89=2....menu%?90|
00002e00  3d 37 0d 10 ae 0e 6d 65  6e 75 25 3f 39 31 3d 30  |=7....menu%?91=0|
00002e10  0d 10 b8 10 6d 65 6e 75  25 21 39 32 3d 32 31 30  |....menu%!92=210|
00002e20  0d 10 c2 0f 6d 65 6e 75  25 21 39 36 3d 34 34 0d  |....menu%!96=44.|
00002e30  10 cc 0f 6d 65 6e 75 25  21 31 30 30 3d 30 0d 10  |...menu%!100=0..|
00002e40  d6 0a 63 25 3d 31 30 34  0d 10 e0 17 e3 20 61 3d  |..c%=104..... a=|
00002e50  31 20 b8 20 6d 61 74 68  73 6c 69 6d 69 74 25 0d  |1 . mathslimit%.|
00002e60  10 ea 2b 6d 65 6e 75 25  21 63 25 3d 30 3a e7 20  |..+menu%!c%=0:. |
00002e70  61 3d 6d 61 74 68 73 6c  69 6d 69 74 25 20 6d 65  |a=mathslimit% me|
00002e80  6e 75 25 21 63 25 3d 26  38 30 0d 10 f4 26 e7 20  |nu%!c%=&80...&. |
00002e90  6d 61 74 68 73 6c 69 73  74 24 28 61 29 3d 74 6f  |mathslist$(a)=to|
00002ea0  70 69 63 24 20 6d 65 6e  75 25 21 63 25 2b 3d 31  |pic$ menu%!c%+=1|
00002eb0  0d 10 fe 09 63 25 2b 3d  34 0d 11 08 0f 6d 65 6e  |....c%+=4....men|
00002ec0  75 25 21 63 25 3d 2d 31  0d 11 12 09 63 25 2b 3d  |u%!c%=-1....c%+=|
00002ed0  34 0d 11 1c 15 6d 65 6e  75 25 21 63 25 3d 26 37  |4....menu%!c%=&7|
00002ee0  30 30 30 30 32 31 0d 11  26 09 63 25 2b 3d 34 0d  |000021..&.c%+=4.|
00002ef0  11 30 1d 24 28 6d 65 6e  75 25 2b 63 25 29 3d 6d  |.0.$(menu%+c%)=m|
00002f00  61 74 68 73 6c 69 73 74  24 28 61 29 0d 11 3a 0a  |athslist$(a)..:.|
00002f10  63 25 2b 3d 31 32 0d 11  44 07 ed 20 61 0d 11 4e  |c%+=12..D.. a..N|
00002f20  15 6d 65 6e 75 25 21 35  36 3d 6d 65 6e 75 25 2b  |.menu%!56=menu%+|
00002f30  63 25 0d 11 58 19 24 28  6d 65 6e 75 25 2b 63 25  |c%..X.$(menu%+c%|
00002f40  29 3d 22 50 68 79 73 69  63 73 22 0d 11 62 15 63  |)="Physics"..b.c|
00002f50  25 2b 3d 31 32 3a 6d 65  6e 75 25 3f 63 25 3d 37  |%+=12:menu%?c%=7|
00002f60  0d 11 6c 14 63 25 2b 3d  31 3a 6d 65 6e 75 25 3f  |..l.c%+=1:menu%?|
00002f70  63 25 3d 32 0d 11 76 14  63 25 2b 3d 31 3a 6d 65  |c%=2..v.c%+=1:me|
00002f80  6e 75 25 3f 63 25 3d 37  0d 11 80 14 63 25 2b 3d  |nu%?c%=7....c%+=|
00002f90  31 3a 6d 65 6e 75 25 3f  63 25 3d 30 0d 11 8a 16  |1:menu%?c%=0....|
00002fa0  63 25 2b 3d 31 3a 6d 65  6e 75 25 21 63 25 3d 32  |c%+=1:menu%!c%=2|
00002fb0  31 30 0d 11 94 15 63 25  2b 3d 34 3a 6d 65 6e 75  |10....c%+=4:menu|
00002fc0  25 21 63 25 3d 34 34 0d  11 9e 14 63 25 2b 3d 34  |%!c%=44....c%+=4|
00002fd0  3a 6d 65 6e 75 25 21 63  25 3d 30 0d 11 a8 09 63  |:menu%!c%=0....c|
00002fe0  25 2b 3d 34 0d 11 b2 19  e3 20 61 3d 31 20 b8 20  |%+=4..... a=1 . |
00002ff0  70 68 79 73 69 63 73 6c  69 6d 69 74 25 0d 11 bc  |physicslimit%...|
00003000  2d 6d 65 6e 75 25 21 63  25 3d 30 3a e7 20 61 3d  |-menu%!c%=0:. a=|
00003010  70 68 79 73 69 63 73 6c  69 6d 69 74 25 20 6d 65  |physicslimit% me|
00003020  6e 75 25 21 63 25 3d 26  38 30 0d 11 c6 28 e7 20  |nu%!c%=&80...(. |
00003030  70 68 79 73 69 63 73 6c  69 73 74 24 28 61 29 3d  |physicslist$(a)=|
00003040  74 6f 70 69 63 24 20 6d  65 6e 75 25 21 63 25 2b  |topic$ menu%!c%+|
00003050  3d 31 0d 11 d0 09 63 25  2b 3d 34 0d 11 da 0f 6d  |=1....c%+=4....m|
00003060  65 6e 75 25 21 63 25 3d  2d 31 0d 11 e4 09 63 25  |enu%!c%=-1....c%|
00003070  2b 3d 34 0d 11 ee 15 6d  65 6e 75 25 21 63 25 3d  |+=4....menu%!c%=|
00003080  26 37 30 30 30 30 32 31  0d 11 f8 09 63 25 2b 3d  |&7000021....c%+=|
00003090  34 0d 12 02 1f 24 28 6d  65 6e 75 25 2b 63 25 29  |4....$(menu%+c%)|
000030a0  3d 70 68 79 73 69 63 73  6c 69 73 74 24 28 61 29  |=physicslist$(a)|
000030b0  0d 12 0c 0a 63 25 2b 3d  31 32 0d 12 16 07 ed 20  |....c%+=12..... |
000030c0  61 0d 12 20 21 6d 6f 75  73 78 25 3d 77 69 6d 70  |a.. !mousx%=wimp|
000030d0  25 21 30 3a 6d 6f 75 73  79 25 3d 77 69 6d 70 25  |%!0:mousy%=wimp%|
000030e0  21 34 0d 12 2a 2f c8 99  20 22 57 69 6d 70 5f 43  |!4..*/.. "Wimp_C|
000030f0  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 65 6e 75  |reateMenu",,menu|
00003100  25 2c 77 69 6d 70 25 21  30 2c 77 69 6d 70 25 21  |%,wimp%!0,wimp%!|
00003110  34 0d 12 34 05 e1 0d ff                           |4..4....|
00003118