� � �error

� �-99 �
(% file%=�("<Meg2$Dir>.HighScores")
2 � x=10 � 1 � -1
<  �#file%,x*10,"Meg",1994
F �
P �#file%
Z�
dtx=300 : ty=350
n
correct=0
xwrong=0
�recip=2
�kidsanswer=0
�
��      chunk% 4096
�� messagebit%  256
��       menu%  128
��     sbtext%  128
�� table(10)
�� number(4)
�� matrix%   32
��   Score%(11)
��    Name$(11)
��    Year%(11)

�   textname$(25)

soundbox%=6

sliderbar%=5

"diff%=0

,

6,hiscorefile = �("<Meg2$Dir>.HighScores")

@� ldscrs=1 � 10

J=� #hiscorefile,Score%(ldscrs),Name$(ldscrs),Year%(ldscrs)

T�

^�#hiscorefile

h

rș "Hourglass_On"

|	hg%=�

��initialise

�+ș "Hourglass_Percentage",�(1*(100/15))

��loadtemplates

�+ș "Hourglass_Percentage",�(3*(100/15))

�	�icon

�+ș "Hourglass_Percentage",�(4*(100/15))

�	�menu

�+ș "Hourglass_Percentage",�(5*(100/15))

��loadoptions

�+ș "Hourglass_Percentage",�(6*(100/15))

��setfontcolours

�

�+ș "Hourglass_Percentage",�(7*(100/15))
+null=�getfonthandle("Corpus.Medium",24)
+ș "Hourglass_Percentage",�(8*(100/15))
+null=�getfonthandle("Corpus.Medium",36)
&+ș "Hourglass_Percentage",�(9*(100/15))
0-null=�getfonthandle("Homerton.Medium",24)
:,ș "Hourglass_Percentage",�(10*(100/15))
D-null=�getfonthandle("Homerton.Medium",36)
N,ș "Hourglass_Percentage",�(11*(100/15))
X-null=�getfonthandle("Homerton.Medium",38)
b,ș "Hourglass_Percentage",�(12*(100/15))
l-null=�getfonthandle("Homerton.Medium",18)
v,ș "Hourglass_Percentage",�(13*(100/15))
�-null=�getfonthandle("Homerton.Medium",48)
�,ș "Hourglass_Percentage",�(14*(100/15))
�.null=�getfonthandle("Homerton.Medium",100)
�,ș "Hourglass_Percentage",�(15*(100/15))
�
��
�'ș "OS_ReadMonotonicTime" � newtime
�ȕ (newtime-oldtime)>0
�oldtime+=10
��
�%� hg% ș "XHourglass_Off" : hg%=�
�ș "WimpExt_PrePoll"
�0ș "Wimp_PollIdle",mask%,chunk%,10 � reason%
,ș "WimpExt_Action",task%,chunk%,reason%
Ȏ reason% �
� 0 : �slider
 � 1 : �redraw
*)� 2 : ș "WimpExt_OpenLinked",,chunk%
4*� 3 : ș "WimpExt_CloseLinked",,chunk%
>� 6 : �mousepressed
H� 7 : mask%=&1831
R� 9 : �menuselection
\� 17,18,19 : �usermessage
f�
p� �
z�
�
�
�� �sendhelp
�help$ = "Meg2"
�Ȏ messagebit%!32 �
�: � info% : help$="This is the Meg2 information window"
�z � -2 : help$="This is the Meg2 icon. Click Select on it to bring up the main window, |Mand menu to bring up the menu"
�/ � main% : help$="This is the Main window."
�  Ȏ messagebit%!36 �
�
�  �
� �
�chunk%!00 = 256
chunk%!12 = messagebit%!8
chunk%!16 = &0503
$(chunk%+20)= help$
$,ș "Wimp_SendMessage",17,chunk%,chunk%!4
.�
8
B� �action(action$)
LȎ action$ �
V � "tableup"
`>  ș "WimpExt_IncNumberIcon",10,,main%,14,12,1 � newvalue%
j  �
t � "tabledown"
~=  ș "WimpExt_DecNumberIcon",10,,main%,14,1,1 � newvalue%
�  �
� � "sound"
�1  ș "WimpExt_GetIcon",,,main%,10 � selected%
�   � selected%=0 �
�     �shadesound(1)
�
     �
�	    �
�     �shadesound(0)
�
     �
�   �
� � "cancel"
�  !chunk%=main%
&  ș "Wimp_GetWindowState",,chunk%

)  ș "WimpExt_CentreWindow",,chunk%+4
*  ș "WimpExt_CentreWindowV",,chunk%+4
&  ș "WimpExt_CloseLinked",,chunk%
(  �loadoptions
2  �
< � "add"
F  �shadediff(0)
P  �shadetable(1)
Z  �
d � "sub"
n  �shadediff(0)
x  �shadetable(1)
�  �
� � "mul"
�  �shadediff(1)
�  �shadetable(0)
�  �
� � "div"
�  �shadediff(1)
�  �shadetable(0)
�  �
� � "beg"
�  page=1
�
  �update
�  �
 � "rew"
  � page-3<1 �

   page=1
"   �update
,  �
6   page-=3
@   �update
J  �
T  �
^ � "bac"
h  � page=1 �
r   �
|  �
�   page-=1
�   �update
�  �
�  �
� � "for"
�  � page=pages �
�   �
�  �
�   page+=1
�   �update
�  �
�  �
� � "ffr"
  � page+3>pages �
   page=pages
   �update
&  �
0   page+=3
:   �update
D  �
N  �
X � "end"
b  page=pages
l
  �update
v  �
��
��
�
�� �viewoptions
� !chunk%=main%
�% ș "Wimp_GetWindowState",,chunk%
�( ș "WimpExt_CentreWindow",,chunk%+4
�) ș "WimpExt_CentreWindowV",,chunk%+4
�$ ș "WimpExt_OpenLinked",,chunk%
��
�
�� �game
� ș "Hourglass_On"
2 ș "WimpExt_GetNumberIcon",,,main%,6 � number
 � number=0 number=1
* ș "XOS_CLI","Volume "+�(number*1.27)
 0 ș "WimpExt_GetIcon",,,main%,10 � selected%
*/ � selected%=0 � audio$="Off" � audio$="On"
4! ș "XOS_CLI","Audio "+audio$
>
H � xy=1 � 10
R  table(xy)=xy
\ �
f � s=1 � 10000
p"  Ȕ table(�(10)),table(�(10))
z �
�
�
 type%=35
� � x=35 � 38
�0  ș "WimpExt_GetIcon",,,main%,x � selected%
�  � selected%<>0 � type%=x
� �
�
� Ȏ type% �
�
  � 35,36
�   diff%=1
�   � x=23 � 26
�2    ș "WimpExt_GetIcon",,,main%,x � selected%
�!    � selected%<>0 diff%=x-22
	   �
	
  � 37,38
	2   ș "WimpExt_GetIcon",,,main%,14 � ,,,table$
	$   diff%=2
	.   table%=�(table$)
	8 �
	B ș "Hourglass_Off"
	L
	V mode%=�
	` $(chunk%)="Meg"
	j# ș "Wimp_CommandWindow",chunk%
	t	 � 13
	~
	� �
	� � �
	�� ��:ș"OS_Byte",112,1:ș"OS_Byte",113,1:�:�printfont("Homerton.Medium",48,300,500,fred%,fblack%,"Press <Space>"):���(-99)=�:ș"Wimp_CommandWindow",-1:ș"OS_Byte",229,1,0:��:ș"Wimp_SetMode",mode%:�
	� ș "OS_Byte",229,0,0
	�
	� � #### Code Begin ####
	�
	� �thenumberbit
	� �shootthebaddie
	� �table
	�
	� � ####  Code End  ####


 ș "Wimp_CommandWindow",-1
 ș "Wimp_SetMode",mode%
 ș "OS_Byte",229,1,0
( � �
2�
<
F� �thenumberbit
P correct=0
Z wrong=0
d recip=2
n score=0
x kidsanswer=0
� � go=1 � 10
�  Ȏ type% �
�   � 35
�,    input1=((�(10)*((diff%-1)^2))+�(10))
�,    input2=((�(10)*((diff%-1)^2))+�(10))
�    output=input1+input2
�    mach$="+"+�(input2)
�   � 36
�,    input1=((�(10)*((diff%-1)^2))+�(10))
�	    �
�-     input2=((�(10)*((diff%-1)^2))+�(10))
�    � input2<input1
�    output=input1-input2
    mach$="-"+�(input2)
   � 37
    input1=table(go)
"    input2=table%
,    output=input1*input2
6    mach$="�"+�(input2)
@    diff%=2
J   � 38
T    input1=table%*table(go)
^    input2=table%
h    output=input1/input2
r    mach$="�"+�(input2)
|    diff%=2
�  �
�  input$=�input1
�  output$=�output
�  ques$=�(input1)+mach$
�  �calculatenumber
� �
��
�
�� �calculatenumber
� number()=0
�
� � x=1 � 2
�  ș "OS_Byte",112,x
  ș "OS_Byte",113,x
  �
 �
&
0 bank%=1
:6 ș "OS_Byte",112,bank% : ș "OS_Byte",113,3-bank%
D �
N �redrawscr("abcd")
X ș "OS_Byte",19
b ș "OS_Byte",113,bank%
l
v number()=-1
� getnumberfinished%=�
�
 pos=0
� tx=300 : ty=350
� �
�  ș "OS_Byte",19
�  bank%=3-bank%
�7  ș "OS_Byte",112,bank% : ș "OS_Byte",113,3-bank%
�  �
�  �getnumber
�  �updatenumber
�  �redrawscr("abcd")
�  � getnumberfinished%=�
� kidsanswer=answer



 � x=1 � 8 � 2*recip

  ș "OS_Byte",19

   bank%=3-bank%

*7  ș "OS_Byte",112,bank% : ș "OS_Byte",113,3-bank%

4  �

>  �redrawscr("bc")

H  � 42 Ȝ 0

R  ȓ Ȑ 0,925,25,200

\  ȓ Ȑ 200,925,25,200

f!  ȓ Ȑ 0,925,225-(x*28.2),25

pB  �printfont("Corpus.Medium",24,50,975,fwhite%,fblack%,input$)

z �

�

� � x=1 � 8 � recip

�  ș "OS_Byte",19

�  bank%=3-bank%

�7  ș "OS_Byte",112,bank% : ș "OS_Byte",113,3-bank%

�  �

�  �redrawscr("abc")

�I  �printfont("Corpus.Medium",24,50,975-(x*13),fwhite%,fblack%,input$)

� �

�

� � rev=1 � 15 � recip

�  � bit=1 � 3

�   ș "OS_Byte",19
   bank%=3-bank%
8   ș "OS_Byte",112,bank% : ș "OS_Byte",113,3-bank%
   �
$   �redrawscr("ac")
.-   �plotsprite("conveyor"+�(bit-1),0,795)
8W   �printfont("Corpus.Medium",24,50+(rev*60)+(bit-1)*20,860,fwhite%,fblack%,input$)
B
L  �
V �
`
j � loop=1 � 8 � 1.5
t  � x=0 � 60 � 30
~   ș "OS_Byte",19
�   bank%=3-bank%
�8   ș "OS_Byte",112,bank% : ș "OS_Byte",113,3-bank%
�   �
�   �redrawscr("ab")
�\   �printfont("Corpus.Medium",24,990,860-((loop*45)+((x/30)*15)),fwhite%,fblack%,input$)
�   mx=825 : my=200
�%   �plotsprite("machine",825,200)
�0   �plotsprite("Wheel"+�(x)+"�",mx+80,my+40)
�1   �plotsprite("Wheel"+�(x)+"�",mx+243,my+40)
�1   �plotsprite("Wheel"+�(x)+"�",mx+82,my+287)
�2   �plotsprite("Wheel"+�(x)+"�",mx+243,my+287)
�  �
 �


 � loop=1 � 3 � 1.5
  � x=0 � 60 � 30
(   ș "OS_Byte",19
2   bank%=3-bank%
<8   ș "OS_Byte",112,bank% : ș "OS_Byte",113,3-bank%
F   �
P   �redrawscr("ab")
Z]   �printfont("Corpus.Medium",24,990,210-((loop*45)+((x/30)*15)),fwhite%,fblack%,output$)
d   mx=825 : my=200
n%   �plotsprite("machine",825,200)
x0   �plotsprite("Wheel"+�(x)+"�",mx+80,my+40)
�1   �plotsprite("Wheel"+�(x)+"�",mx+243,my+40)
�1   �plotsprite("Wheel"+�(x)+"�",mx+82,my+287)
�2   �plotsprite("Wheel"+�(x)+"�",mx+243,my+287)
�  �
� �
� �
� �redrawscr("abc")
�[ �printfont("Corpus.Medium",24,990,210-((2.5*45)+((60/30)*15)),fwhite%,fblack%,output$)
� Ȏ kidsanswer �
�  � output
�   correct+=1
�I   �printfont("Homerton.Medium",36,300,120,fgreen%,fblack%,"Correct")
�+   ș "XOS_CLI","ChannelVoice 1 Yippee"
   � 1,-15,5860,100
   score+=3*diff%
  
"   wrong+=1
,Z   �printfont("Homerton.Medium",36,300,120,fred%,fblack%,"Wrong - "+ques$+"="+�output)
6*   ș "XOS_CLI","ChannelVoice 1 Wrong"
@   � 1,-15,9250,100
J �
TK �printfont("Homerton.Medium",24,800,950,fred%,fblack%,"Press <Space>")
^ ș "OS_Byte",19
h bank%=3-bank%
r6 ș "OS_Byte",112,bank% : ș "OS_Byte",113,3-bank%
| A=�
�4 ș "OS_Byte",112,bank% : ș "OS_Byte",113,bank%
� �clear
��
�
�� �pause(time)
�
 old=�
� � � (�-old)>time*100
��
�
�� �redrawscr(string$)
�M �printfont("Homerton.Medium",38,50,600,fwhite%,fblack%,"What is "+ques$)
�a �printfont("Homerton.Medium",18,50,525,fwhite%,fblack%,"Type your answer and press Return.")
� �updatenumber
S �printfont("Homerton.Medium",24,50,20,fgreen%,fblack%,"Correct - "+�(correct))
N �printfont("Homerton.Medium",24,500,20,fred%,fblack%,"Wrong - "+�(wrong))
 �plotsprite("Cat",50,75)
& � �string$,"a")<>0 �
0  � 42 Ȝ 0
:  ȓ Ȑ 0,925,25,200
D  ȓ Ȑ 200,925,25,200
N �
X � �string$,"b")<>0 �
b$  �plotsprite("conveyor0",0,795)
l �
v � �string$,"c")<>0 �
�  mx=825 : my=200
�$  �plotsprite("machine",825,200)
�(  �plotsprite("Wheel0�",mx+80,my+40)
�)  �plotsprite("Wheel0�",mx+243,my+40)
�)  �plotsprite("Wheel0�",mx+82,my+287)
�*  �plotsprite("Wheel0�",mx+243,my+287)
� �
� � �string$,"d")<>0 �
�  � 42 Ȝ 0
�  ȓ Ȑ 0,925,200 ,25
�B  �printfont("Corpus.Medium",24,50,975,fwhite%,fblack%,input$)
� �
��

"� �plotsprite(spritename$,x,y)
7ș "OS_SpriteOp",256+34,sprites%,spritename$,x,y,&8
 �
*
4� �setfontcolours
>fwhite%  = &FFFFFF00
Hfblack%  = &00000000
Rfyellow% = &00EEEE00
\fgreen%  = &00DD0000
ffred%    = &0000DD00
pfblue%   = &88440000
zfpurple% = &DD000900
��
�
�G� �printfont(fontname$,fontsize%,x,y,forecolour%,backcolour%,text$)
� fontsize%=fontsize%*16
�B ș "Font_SetPalette",,0,1,6,backcolour%,forecolour%,&65757254
�H ș "Font_FindFont",,fontname$,fontsize%,fontsize%,0,0 � fonthandle%
�K ș "ColourTrans_SetFontColours",fonthandle%,backcolour%,forecolour%,14
�. ș "Font_Paint",fonthandle%,text$,784,x,y
�# ș "Font_LoseFont",fonthandle%
��
�
�B ș "Font_SetPalette",,0,1,6,backcolour%,forecolour%,&65757254
�K ș "ColourTrans_SetFontColours",fonthandle%,backcolour%,forecolour%,14
. ș "Font_Paint",fonthandle%,text$,784,x,y
�

$)� �getfonthandle(fontname$,fontsize%)
. � fhandle%
8 fontsize%=fontsize%*16
BI ș "Font_FindFont",,fontname$,fontsize%,fontsize%/0.5,0,0 � fhandle%
L
=fhandle%
V
`� �getnumber
jH� Variables : number(4) / pos=0 / tx / ty / getnumberfinished%=FALSE
tA=�
~
Ȏ A �
� � 49 : n$="1"
� � 50 : n$="2"
� � 51 : n$="3"
� � 52 : n$="4"
� � 53 : n$="5"
� � 54 : n$="6"
� � 55 : n$="7"
� � 56 : n$="8"
� � 57 : n$="9"
� � 48 : n$="0"
� � 13 : n$="Return"
� � 8,127 : n$="Delete"

  : �

�
Ȏ n$ �
 � "Delete"
(   � pos=0 � �
2
   pos-=1
<   number(pos+1)=-1
F  �
P � "Return"
Z  getnumberfinished%=�
d  �
n�
x
pos+=1
�
� pos=5 �
� pos-=1
� �
��
�
Ȏ A �
�$ � 48,49,50,51,52,53,54,55,56,57
�  number(pos)=�(n$)
��
��
�
�� �updatenumber
� � string$
�E answer=(1000*number(1))+(100*number(2))+(10*number(3))+number(4)
E � number(4)=-1 � answer=(100*number(1))+(10*number(2))+number(3)
D � number(4)=-1 � number(3)=-1 � answer=(10*number(1))+number(2)
D � number(4)=-1 � number(3)=-1 � number(2)=-1 � answer=number(1)
"K � number(4)=-1 � number(3)=-1 � number(2)=-1 � number(1)=-1 � answer=0
,0 � answer=0 � string$="" � string$=�(answer)
6B �printfont("Homerton.Medium",48,tx,ty,fblue%,fblack%,string$)
@�
J
T� �clear
^
fxno=�(7)
h
Ȏ fxno �
r � 1
|  � 0 Ȝ 0
�  � x=0 � 1300
�  � x,0,x,1300
�  �
�  �
� � 2
�  � 0 Ȝ 0
�
  x2=1281
�  � x=0 � 640
�  x2-=1
�  � x,0,x,1300
�  � x2,0,x2,1300
�  �
�  �
 � 3
  � 0 Ȝ 0

  z2=2601
&  � z=0 � 1300
0  z2-=1
:  � 0,z2,z2,0
D  � z,0,0,z
N  �
X  �
b � 4
l  � 0 Ȝ 0
v  � z=0 � 512 � 4
�(  ȓ Ȑ 640-(z*1.25),512-z,z*2.5,z*2
�  �
�  �
� � 5
�  � 0 Ȝ 0
�	  y=0
�  � x=0 � 1300 � 5
�  � x,0,x,1300
�  � 0,y,1300,y
�
  y+=5
�  �
�  � x=0 � 1000 � 7
�  ȏ Ȑ 640,512,x
  �
  �
 � 6
   � 0 Ȝ 0
*  � x=1 � 1000
4"  ȏ Ȑ �(1300),�(1000),�(100)
>  �
H  �
R  �
\ � 7
f  � 0 Ȝ 0
p  � y=0 � 1000 � 100
z  � x=0 � 1300 � 100
�  ȓ Ȑ x,y,100,100
�	  � ,
�  �
��
�
�� �shootthebaddie
� � goes=correct+1 � 1 � -1
�  endloop%=�
�  g=�(64)-1
�  changebaddie=180+�(50)
�  old=�
�  badx=�(800)+100
�  craftx=350
  bug1x=600 : bug1i=25
  bug2x=500 : bug2i=-25

$  � x=1 � 2
.   ș "OS_Byte",112,x
8   �
B  �
L
  bank%=1
V
`  �
j   ș "OS_Byte",19
t   bank%=3-bank%
~8   ș "OS_Byte",112,bank% : ș "OS_Byte",113,3-bank%
�   �
�   � g Ȝ 255
�   ȓ 0,0,1250,950
�   � 0,100,1250,100
�   � g Ȝ 180
�   ȓ 2,2,1246,946
�   � 0,102,1250,102
�   � g Ȝ 127
�   ȓ 4,4,1242,942
�   � 0,104,1250,104
�   � g Ȝ 63
�   ȓ 6,6,1238,938
   � 0,106,1250,106


O   �printfont("Homerton.Medium",24,25,33,fgreen%,fblack%,"Score - "+�score)
U   �printfont("Homerton.Medium",24,525,33,fgreen%,fblack%,"Shoots Left - "+�goes)
(6   � (�-old)>changebaddie � badx=�(900)+20 : old=�
2%   �plotsprite("Baddie",badx,725)
<
FK   bug1x+=bug1i : � (bug1x>1150 � bug1x<35) � bug1i=-bug1i:bug1x+=bug1i
PK   bug2x+=bug2i : � (bug2x>1150 � bug2x<35) � bug2i=-bug2i:bug2x+=bug2i
Z#   �plotsprite("Bug",bug1x,550)
d#   �plotsprite("Bug",bug2x,350)
n
x   � �(-98)=� �
�    craftx-=15
�   �
�   � �(-67)=� �
�    craftx+=15
�   �
�   � craftx<35 � craftx+=25
�!   � craftx>1175 � craftx-=25
�&   �plotsprite("Craft",craftx,150)
�   � �(-99) � endloop%=�
�  � endloop%
�
�  � y=220 � 1000 � 10
�   col=�craftx+26,y)
   � col<>0 upto=y : y=1000
  �

"  ș "OS_Byte",112,1
,  �
6   � g Ȝ 255
@   ȓ 0,0,1250,950
J   � 0,100,1250,100
T   � g Ȝ 180
^   ȓ 2,2,1246,946
h   � 0,102,1250,102
r   � g Ȝ 127
|   ȓ 4,4,1242,942
�   � 0,104,1250,104
�   � g Ȝ 63
�   ȓ 6,6,1238,938
�   � 0,106,1250,106
�
�O   �printfont("Homerton.Medium",24,25,33,fgreen%,fblack%,"Score - "+�score)
�U   �printfont("Homerton.Medium",24,525,33,fgreen%,fblack%,"Shoots Left - "+�goes)
�
�  � 63 Ȝ 255
�$  � craftx+26,220,craftx+26,upto
�
�  � upto<725 �
�&    �plotsprite("Baddie",badx,725)
N    � upto>500 �plotsprite("Bug",bug2x,350) � �plotsprite("Bug",bug1x,350)
-    �plotsprite("Boom",craftx-25,upto-25)
'    �plotsprite("Craft",craftx,150)
&/    ș "OS_CLI","ChannelVoice 1 GoodieDead"
0    � 1,-15,9000,100
:   �
D    � upto>920 �
N(      �plotsprite("Baddie",badx,725)
X&      �plotsprite("Bug",bug1x,550)
b&      �plotsprite("Bug",bug2x,350)
l/      �plotsprite("Boom",craftx-25,upto-25)
v)      �plotsprite("Craft",craftx,150)
�H      �printfont("Homerton.Medium",100,300,400,fred%,fblack%,"MISS")
�
     �
�)      �plotsprite("Craft",craftx,150)
�&      �plotsprite("Bug",bug1x,550)
�&      �plotsprite("Bug",bug2x,350)
�/      �plotsprite("Boom",craftx-25,upto-25)
�      score+=10
�	    �
�.    ș "OS_CLI","ChannelVoice 1 Explosion"
�    � 1,-15,9000,100
�  �
�
�  ș "OS_Byte",113,1
  �explosion


  bank%=2
   old=�
*  � � (�-old)>100
4
>  � xz=0 � 10000
H   a$=�(0)
R  �
\ �
f�
p
z� �table
� getnamefinished%=�
� gotname$=""
�
 pos=0
� newscore%=score
� newyear%=�(��$,12,4))
�' � newscore%>Score%(10) � �newtable
�
� bank%=1
� ș "OS_Byte",112,bank%
� ș "OS_Byte",113,bank%
�
 � : �
� g=�(64)-1
� � g Ȝ 255
 ȓ 0,0,1250,950
 � 0,100,1250,100
 � g Ȝ 180
$ ȓ 2,2,1246,946
. � 0,102,1250,102
8 � g Ȝ 127
B ȓ 4,4,1242,942
L � 0,104,1250,104
V � g Ȝ 63
` ȓ 6,6,1238,938
j � 0,106,1250,106
t
 � : �
~ � 31,0,10
�
�O �printfont("Homerton.Medium",36,300,800,fblue%,fblack%,"High Score Table")
� v=0
� � y=700 � 250 � -50
�	 v+=1
�H �printfont("Homerton.Medium",24,100,y,fgreen%,fblack%,�(Score%(v)))
�D �printfont("Homerton.Medium",24,300,y,fgreen%,fblack%,Name$(v))
�H �printfont("Homerton.Medium",24,1000,y,fgreen%,fblack%,�(Year%(v)))
� �
�
�( savefile=�("<Meg2$Dir>.HighScores")
� � savenums=1 � 10
A  �#savefile,Score%(savenums),Name$(savenums),Year%(savenums)

 �
 �#savefile
1 ș "OS_File",18,"<Meg2$Dir>.HighScores",&005
(
2d �printfont("Homerton.Medium",18,225,100,fred%,fblack%,"Press <SPACE> to return to the desktop")
<
F � � �(-99)=�
P�
Z
d� �newtable
n � receive=1 � 10000
x
  A$=�(0)
� �
� g=�(64)-1
� � x=1 � 2
�  ș "OS_Byte",112,x
�  ș "OS_Byte",113,x
�  �
� �
� bank%=1
�6 ș "OS_Byte",112,bank% : ș "OS_Byte",113,3-bank%
� �
� ș "OS_Byte",19
� ș "OS_Byte",113,bank%
� �congrats

 �
  ș "OS_Byte",19
"  bank%=3-bank%
,7  ș "OS_Byte",112,bank% : ș "OS_Byte",113,3-bank%
6  �
@  �congrats
J  �getname
TC  �printfont("Corpus.Medium",36,50,500,fblue%,fblack%,gotname$)
^ � getnamefinished%=�
h getnamefinished%=�
r newname$=gotname$
|
�	 GT=0
� � check=10 � 1 � -1
�*  � newscore%>Score%(check) � GT=check
� �
�
� � m=10 � GT � -1
�  Score%(m+1)=Score%(m)
�  Name$(m+1)=Name$(m)
�  Year%(m+1)=Year%(m)
� �
�
� Score%(GT)=newscore%
� Name$(GT)=newname$
  Year%(GT)=newyear%
 �
 
 &� �getname
 0 A=�
 :  � A=13 � getnamefinished%=�
 D8 � A>31 � A<127 � A>140 � chr$=�(A) : gotname$+=chr$
 N � A=8 � A=127 �
 X  � �gotname$=0 �
 b	    �
 l   �
 v'    gotname$=�gotname$,�gotname$-1)
 �	    �
 �  �
 � �
 ��
 �
 �� �congrats
 � � g Ȝ 255
 � ȓ 0,0,1250,950
 � � g Ȝ 180
 � ȓ 2,2,1246,946
 � � g Ȝ 127
 � ȓ 4,4,1242,942
 � � g Ȝ 63
! ȓ 6,6,1238,938
!
!M �printfont("Homerton.Medium",36,175,800,fred%,fblack%,"CONGRATULATIONS")
! i �printfont("Homerton.Medium",24,50,700,fgreen%,fblack%,"Type in your name for the high score table")
!*�
!4
!>� �explosion
!Hchunk%?0=%11
!R� shake=1 � 50
!\ word%=�(2)*1280
!f chunk%!1=word%
!p Ȗ
!z ș "OS_Word",22,chunk%
!�� shake
!�chunk%!1=0
!�ș "OS_Word",22,chunk%
!��
!�
!�� �initialise
!�:ș "Wimp_Initialise",200,&4B534154,"Meg 2.20" � ,task%
!�.ș "WimpExt_Initialise",,task%,%0100110010
!�$(sbtext%)="Untitled"
!�texticon=1
!�pageicon=18
!�
!�&ș "OS_ReadDynamicArea",2 � ,area%
"area%=area%/1024
"newarea%=(192-area%)*1024
"� �newarea%=newarea%
"$* ș "XOS_ChangeDynamicArea",2,newarea%
".' ș "OS_ReadDynamicArea",2 � ,area%
"8�
"B
"L&ș "OS_ReadDynamicArea",4 � ,area%
"Varea%=area%/1024
"`newarea%=(64-area%)*1024
"j� �newarea%=newarea%
"t* ș "XOS_ChangeDynamicArea",4,newarea%
"~' ș "OS_ReadDynamicArea",4 � ,area%
"��
"�
"�8ș "OS_File",17,"<Meg2$Dir>.Sprites"�,,,,spritesize%
"�� sprites% spritesize%+64
"�� X%=0 � spritesize%+60 � 4
"� sprites%!X%=0
"��
"�9ș "OS_SpriteOp",256+10,sprites%,"<Meg2$Dir>.Sprites"
"�
"�mask%=&1831
"�
oldtime=�
"�
#�
#

#� �loadtemplates
#length%=5000
#(� indirect% length%
#2workspace%=indirect%
#<2ș "Wimp_OpenTemplate",,"<Meg2$Dir>.Templates"
#FYș "Wimp_LoadTemplate",,chunk%,workspace%,indirect%+length%,-1,"Main",0 �,,workspace%
#P*ș "Wimp_CreateWindow",,chunk% � main%
#ZYș "Wimp_LoadTemplate",,chunk%,workspace%,indirect%+length%,-1,"Info",0 �,,workspace%
#d*ș "Wimp_CreateWindow",,chunk% � info%
#nș "Wimp_CloseTemplate"
#x�
#�
#�� �menu
#�$menu%       ="Meg2"
#�menu%?12     = 7
#�menu%?13     = 2
#�menu%?14     = 7
#�menu%?15     = 0
#�menu%!16     = &C0
#�menu%!20     = 40
#�menu%!24     = 0
#�
#�menu%!28     = 0
#�menu%!32     = info%
$menu%!36     = &7000011
$$(menu%+40)  = "Info"
$
$"menu%!52     = 0
$,menu%!56     = -1
$6menu%!60     = &7000011
$@$(menu%+64)  = "Options"
$J
$Tmenu%!76     = 128
$^menu%!80     = -1
$hmenu%!84     = &7000011
$r$(menu%+88)  = "Quit"
$|!ș "WimpExt_MenuWidth",,menu%
$��
$�
$�� �icon
$�?ș "WimpExt_IconBarSprite",,,-1,"!Meg2",,3 � iconbarhandle%
$��
$�
$�� �usermessage
$�� message%=0�&FF � 4
$�(messagebit%!message%=chunk%!message%
$��
$�Ȏ messagebit%!16 �
$�� 0     : �shutdown
$�� 2     : �datasave
%� &00502: �sendhelp
%�
%�
%&
%0� �error
%:	� � �
%DYș "Wimp_ReportError",�4,�(0))+�$+" at line "+�(�/10)+" - Error Code "+�(�),&2,"Meg2"
%N
�shutdown
%X�
%b
%l
� �redraw
%v$ ș "WimpExt_AutoRedraw",,chunk%
%��
%�
%�� �mousepressed
%�$� chunk%!12=main% � chunk%!8=4 �
%� Ȏ chunk%!16 �
%�,  � sliderbar%-2,sliderbar%-1,sliderbar%
%�   �getbox
%�   �
%� �
%��
%�
%�&� chunk%!12=main% � chunk%!16=32 �
%� �testsound
& �
&�
&
& &� chunk%!12=main% � chunk%!16=19 �
&* �saveoptions
&4 �
&>�
&H
&R� chunk%!12=-2 �
&\ Ȏ chunk%!8 �
&f  � 4 : �game
&pF  � 2 : ș "Wimp_CreateMenu",,menu%,(chunk%!0)-(32+menu%!16)/2,216
&z   �
&� �
&��
&�
&�� chunk%!12=main%
&� Ȏ chunk%!8 �
&�	  � 4
&�(   ș "Wimp_GetIconState",,chunk%+12
&�    � chunk%!36 � %101<<6 �
&�     valid$=$(chunk%!44)
&�"      � �valid$,"action_")>0 �
&�2       action$=� valid$,�valid$,"action_")+7 )
&�B       � �action$,";")<>0 � action$=� action$,�action$,";")-1)
&�      �
'       action$=""
'      �
'	    �
'$     action$=""
'. �
'8�
'B�action(action$)
'L�
'V
'`�
'j
't� �menuselection
'~menu$=�255,"#")
'�5ș "Wimp_DecodeMenu",,menu%,chunk%,menu$�,,,menu$
'� Ȏ �menu$,�menu$,"#")-1) �
'�!   � "Options" : �viewoptions
'�   � "Quit" : �shutdown
'� �
'��
'�
'�� �shutdown
'� ș "WimpExt_CloseDown",task%
'�'ș "Wimp_CloseDown",task%,&4B534154
'��
'��
(
(
� �waitforbanner
(� banner=� � �
(� dot=0 � 45
((5ș "WimpExt_SetIconStringN",,,banner%,1,�dot,".")
(2	old=�
(<�
(F� (�-old)>1
(P�
(Z$ș "WimpExt_CloseLinked",,chunk%
(dbanner=�
(nș "Hourglass_Smash"
(x�
(�
(�
� �banner
(�banner=�
(�ș "Hourglass_On"
(�!chunk%=banner%
(�$ș "Wimp_GetWindowState",,chunk%
(�'ș "WimpExt_CentreWindow",,chunk%+4
(�(ș "WimpExt_CentreWindowV",,chunk%+4
(�#ș "WimpExt_OpenLinked",,chunk%
(��
(�
(�� �openmessages(file$)
(�" ș "OS_Module",6,,,16 � ,,mh%
)+ ș "MessageTrans_OpenFile",mh%,file$,0
)�
)
)"� �message(tag$)
), � result$
)62 ș "MessageTrans_Lookup",mh%,tag$ � ,,result$
)@=result$
)J
)T� �closemessages
)^$ ș "MessageTrans_CloseFile",mh%
)h�
)r
)|� �transfailed
)�ș "WimpExt_SetPointer",0
)�$(sbtext%)="TextFile"
)�[ș "Wimp_ReportError","    Transfer failed - receiver unable to accept file",&14,"Meg2"
)��
)�
)�� �startsave
)�:ș "WimpExt_GetIcon",,,savewindow%,savetext% � ,,,got$
)�� got$="" � got$="Untitled"
)�$(sbtext%)=got$
)�$ș "Wimp_GetPointerInfo",,chunk%
)�+chunk%!20=chunk%!12:chunk%!24=chunk%!16
)�(chunk%!28=!chunk%:chunk%!32=chunk%!4
)�chunk%!36=128
*!chunk%=64:chunk%!12=0
*chunk%!16=1:chunk%!40=&FFF
*#$(chunk%+44)=�getleaf($sbtext%)
*&7ș "Wimp_SendMessage",18,chunk%,chunk%!20,chunk%!24
*0�
*:
*D� �getleaf(a$)
*Nȕ �a$,".")
*Xa$=�a$,�a$,".")+1)
*b�
*l
=a$+�0
*v
*�� �datasave
*�$sbtext%=�string(chunk%+44)
*��saveit
*�chunk%!12=chunk%!8
*�chunk%!16=3:!chunk%=256
*�7ș "Wimp_SendMessage",18,chunk%,chunk%!20,chunk%!24
*��
*�
*�� �dragbox
*�Gș "WimpExt_DragIcon",%010000101,1,savewindow%,saveicon%,"File_FFA"
*�,ș "WimpExt_SetPointer","Ptr_Handy",,7,2
*��
*�
+� �string(ptr%)
+� a$
+ȕ ?ptr%<>0
+ a$+=�(?ptr%):ptr%+=1
+*�
+4=a$
+>
+H
� �saveit
+Rș "WimpExt_SetPointer",0
+\file%=�($sbtext%)
+f�#file%,"size ;"
+p�#file%,"author ;"
+z�#file%,"version ;"
+��#file%,"text ;"
+�� #file%
+��
+�
+�%� �setvalid(window%,icon%,valid$)
+�chunk%!0=window%
+�chunk%!4=icon%
+�"ș "Wimp_GetIconState",,chunk%
+�� ((chunk%!24) � &100)=0 �
+�6 ș "Wimp_ReportError","    Icon isn't indirected"
+� =""
+��
+�chunk%!8=0
,chunk%!12=0
,$(chunk%!32)=valid$
,"ș "Wimp_SetIconState",,chunk%
,$Tș "Wimp_ForceRedraw",!chunk%,chunk%!8-12,chunk%!12-12,chunk%!16+12,chunk%!20+12
,.�
,8
,B� �getvalid(window%,icon%)
,Lchunk%!0=window%
,Vchunk%!4=icon%
,`� ((chunk%!24) � &100)=0 �
,j6 ș "Wimp_ReportError","    Icon isn't indirected"
,t =""
,~�
,�"ș "Wimp_GetIconState",,chunk%
,�=$(chunk%!32)
,�
,�N� �reportmessage(title$,text$,string1$,string2$,string3$,string4$,escape%)
,��7
,�$buttons%=�&40,�0)
,�$buttons%=string1$+�0
,�� string2$<>"" �
,� $buttons%+=string2$+�0
,��
,�� string3$<>"" �
,� $buttons%+=string3$+�0
-�
-
� string4$<>"" �
- $buttons%+=string4$+�0
-�
-(>ș "WimpExt_OpenRequester",,,title$,text$,buttons%,escape%
-2�
-< ș "WimpExt_PrePoll"
-F% ș "Wimp_Poll",,chunk% � reason%
-P5 ș "WimpExt_Action",task%,chunk%,reason%�reason%
-Z � reason%=1 � �redraw
-dI� reason%=6 � (chunk%!16=0 � chunk%!16=1 � chunk%!16=2 � chunk%!16=3)
-nȎ chunk%!16 �
-x � 0
-�  =string1$
-� � 1
-�  =string2$
-� � 2
-�  =string3$
-� � 3
-�  =string4$
-��
-�
-�� �testsound
-�/ș "WimpExt_GetIcon",,,main%,6 � ,,,volume$
-�� volume$="0" � volume$="1"
-�1ș "OS_CLI","Volume "+�(�((�(volume$))*1.27))
.'ș "OS_CLI","ChannelVoice 1 Yippee"
.� 1,-15,5280,100
.�
."
.,
� �getbox
.6!chunk%=main%
.@$ș "Wimp_GetWindowState",,chunk%
.Jx%=chunk%!4-chunk%!20
.Ty%=chunk%!16-chunk%!24
.^chunk%!4=sliderbar%
.h"ș "Wimp_GetIconState",,chunk%
.rchunk%!4=7
.|chunk%!24=chunk%!8+x%
.�chunk%!28=chunk%!12+y%
.�chunk%!32=chunk%!24+400
.�chunk%!36=chunk%!20+y%
.�ș "Wimp_DragBox",,chunk%
.�mask%=0
.�oldx%=0
.��
.�
.�
� �slider
.�/ș "WimpExt_GetIcon",,,main%,10 � selected%
.� � selected%=0 � �
.�$ș "Wimp_GetPointerInfo",,chunk%
.�xp%=chunk%!0
/� xp%<>oldx% �
/ !chunk%=main%
/% ș "Wimp_GetWindowState",,chunk%
/& x%=xp%-chunk%!4
/0 chunk%!4=sliderbar%
/:# ș "Wimp_GetIconState",,chunk%
/D! ș "Wimp_DeleteIcon",,chunk%
/N chunk%!4=main%
/X chunk%!16=x%
/b# ș "Wimp_CreateIcon",,chunk%+4
/lJ ș "Wimp_ForceRedraw",main%,chunk%!8,chunk%!12,chunk%!8+400,chunk%!20
/v x$=�((x%-chunk%!8)�4)
/� !chunk%=main%
/� chunk%!4=soundbox%
/�# ș "Wimp_GetIconState",,chunk%
/� $(chunk%!28)=x$
/� chunk%!8=0
/� chunk%!12=0
/�# ș "Wimp_SetIconState",,chunk%
/� Ȗ
/� oldx%=xp%
/��
/��
/�
/�� �loadoptions
0!file%=�("<Meg2$Dir>.Options")
0�#file%,sum$
0�#file%,dif$
0 �#file%,table$
0*�#file%,sound$
04� #file%
0>
Ȏ sum$ �
0H � "Add"
0R  �shadediff(0)
0\  �shadetable(1)
0f'  ș "WimpExt_SetIcon",,,main%,35,1
0p � "Sub"
0z  �shadediff(0)
0�  �shadetable(1)
0�'  ș "WimpExt_SetIcon",,,main%,36,1
0� � "Mul"
0�  �shadediff(1)
0�  �shadetable(0)
0�'  ș "WimpExt_SetIcon",,,main%,37,1
0� � "Div"
0�  �shadediff(1)
0�  �shadetable(0)
0�'  ș "WimpExt_SetIcon",,,main%,38,1
0��
0�
0�
Ȏ dif$ �
1 � "Eas"
1'  ș "WimpExt_SetIcon",,,main%,23,1
1 � "Med"
1$'  ș "WimpExt_SetIcon",,,main%,24,1
1. � "Har"
18'  ș "WimpExt_SetIcon",,,main%,25,1
1B � "VHa"
1L'  ș "WimpExt_SetIcon",,,main%,26,1
1V�
1`
1j1ș "WimpExt_SetIconStringN",,,main%,14,table$
1t
1~Ȏ sound$ �
1� � "On"
1�'  ș "WimpExt_SetIcon",,,main%,10,1
1�  �shadesound(0)
1� � "Off"
1�'  ș "WimpExt_SetIcon",,,main%,10,0
1�  �shadesound(1)
1��
1��
1�
1�� �saveoptions
1�� sum$,dif$,table$,sound$
1�/ș "WimpExt_GetIcon",,,main%,35 � selected%
2  � selected%<>0 � sum$="Add"
2
/ș "WimpExt_GetIcon",,,main%,36 � selected%
2  � selected%<>0 � sum$="Sub"
2/ș "WimpExt_GetIcon",,,main%,37 � selected%
2(  � selected%<>0 � sum$="Mul"
22/ș "WimpExt_GetIcon",,,main%,38 � selected%
2<  � selected%<>0 � sum$="Div"
2F
2P/ș "WimpExt_GetIcon",,,main%,23 � selected%
2Z  � selected%<>0 � dif$="Eas"
2d/ș "WimpExt_GetIcon",,,main%,24 � selected%
2n  � selected%<>0 � dif$="Med"
2x/ș "WimpExt_GetIcon",,,main%,25 � selected%
2�  � selected%<>0 � dif$="Har"
2�/ș "WimpExt_GetIcon",,,main%,26 � selected%
2�  � selected%<>0 � dif$="VHa"
2�
2�/ș "WimpExt_GetIcon",,,main%,14 � ,,,table$
2�
2�/ș "WimpExt_GetIcon",,,main%,10 � selected%
2�0 � selected%<>0 � sound$="On" � sound$="Off"
2�
2�!file%=�("<Meg2$Dir>.Options")
2��#file%,sum$
2��#file%,dif$
2��#file%,table$
3�#file%,sound$
3�#file%
3-ș "OS_File",18,"<Meg2$Dir>.Options",&004
3"�
3,
36� �shadesound(shadeoption%)
3@1ș "WimpExt_ShadeIcon",,,main%,4,shadeoption%
3J1ș "WimpExt_ShadeIcon",,,main%,5,shadeoption%
3T1ș "WimpExt_ShadeIcon",,,main%,6,shadeoption%
3^2ș "WimpExt_ShadeIcon",,,main%,32,shadeoption%
3h� shadeoption%=0 �
3r  soundopt$="ON"
3| �
3�  soundopt$="OFF"
3��
3�"ș "OS_CLI","Audio "+soundopt$
3�$ș "OS_CLI","Speaker "+soundopt$
3��
3�
3�� �shadediff(shadeoption%)
3�2ș "WimpExt_ShadeIcon",,,main%,23,shadeoption%
3�2ș "WimpExt_ShadeIcon",,,main%,24,shadeoption%
3�2ș "WimpExt_ShadeIcon",,,main%,25,shadeoption%
3�2ș "WimpExt_ShadeIcon",,,main%,26,shadeoption%
3��
3�
4� �shadetable(shadeoption%)
42ș "WimpExt_ShadeIcon",,,main%,14,shadeoption%
42ș "WimpExt_ShadeIcon",,,main%,15,shadeoption%
4&2ș "WimpExt_ShadeIcon",,,main%,16,shadeoption%
40�
4:
4D
�

00000000  0d 00 0a 0e ee 20 85 20  f2 65 72 72 6f 72 0d 00  |..... . .error..|
00000010  14 04 0d 00 1e 0c e7 20  a6 2d 39 39 20 8c 0d 00  |....... .-99 ...|
00000020  28 25 20 66 69 6c 65 25  3d ae 28 22 3c 4d 65 67  |(% file%=.("<Meg|
00000030  32 24 44 69 72 3e 2e 48  69 67 68 53 63 6f 72 65  |2$Dir>.HighScore|
00000040  73 22 29 0d 00 32 14 20  e3 20 78 3d 31 30 20 b8  |s")..2. . x=10 .|
00000050  20 31 20 88 20 2d 31 0d  00 3c 1d 20 20 f1 23 66  | 1 . -1..<.  .#f|
00000060  69 6c 65 25 2c 78 2a 31  30 2c 22 4d 65 67 22 2c  |ile%,x*10,"Meg",|
00000070  31 39 39 34 0d 00 46 06  20 ed 0d 00 50 0c 20 d9  |1994..F. ...P. .|
00000080  23 66 69 6c 65 25 0d 00  5a 05 cd 0d 00 64 13 74  |#file%..Z....d.t|
00000090  78 3d 33 30 30 20 3a 20  74 79 3d 33 35 30 0d 00  |x=300 : ty=350..|
000000a0  6e 0d 63 6f 72 72 65 63  74 3d 30 0d 00 78 0b 77  |n.correct=0..x.w|
000000b0  72 6f 6e 67 3d 30 0d 00  82 0b 72 65 63 69 70 3d  |rong=0....recip=|
000000c0  32 0d 00 8c 10 6b 69 64  73 61 6e 73 77 65 72 3d  |2....kidsanswer=|
000000d0  30 0d 00 96 04 0d 00 a0  16 de 20 20 20 20 20 20  |0.........      |
000000e0  63 68 75 6e 6b 25 20 34  30 39 36 0d 00 aa 16 de  |chunk% 4096.....|
000000f0  20 6d 65 73 73 61 67 65  62 69 74 25 20 20 32 35  | messagebit%  25|
00000100  36 0d 00 b4 16 de 20 20  20 20 20 20 20 6d 65 6e  |6.....       men|
00000110  75 25 20 20 31 32 38 0d  00 be 16 de 20 20 20 20  |u%  128.....    |
00000120  20 73 62 74 65 78 74 25  20 20 31 32 38 0d 00 c8  | sbtext%  128...|
00000130  0f de 20 74 61 62 6c 65  28 31 30 29 0d 00 d2 0f  |.. table(10)....|
00000140  de 20 6e 75 6d 62 65 72  28 34 29 0d 00 dc 12 de  |. number(4).....|
00000150  20 6d 61 74 72 69 78 25  20 20 20 33 32 0d 00 e6  | matrix%   32...|
00000160  12 de 20 20 20 53 63 6f  72 65 25 28 31 31 29 0d  |..   Score%(11).|
00000170  00 f0 12 de 20 20 20 20  4e 61 6d 65 24 28 31 31  |....    Name$(11|
00000180  29 0d 00 fa 12 de 20 20  20 20 59 65 61 72 25 28  |).....    Year%(|
00000190  31 31 29 0d 01 04 15 de  20 20 20 74 65 78 74 6e  |11).....   textn|
000001a0  61 6d 65 24 28 32 35 29  0d 01 0e 0f 73 6f 75 6e  |ame$(25)....soun|
000001b0  64 62 6f 78 25 3d 36 0d  01 18 10 73 6c 69 64 65  |dbox%=6....slide|
000001c0  72 62 61 72 25 3d 35 0d  01 22 0b 64 69 66 66 25  |rbar%=5..".diff%|
000001d0  3d 30 0d 01 2c 04 0d 01  36 2c 68 69 73 63 6f 72  |=0..,...6,hiscor|
000001e0  65 66 69 6c 65 20 3d 20  8e 28 22 3c 4d 65 67 32  |efile = .("<Meg2|
000001f0  24 44 69 72 3e 2e 48 69  67 68 53 63 6f 72 65 73  |$Dir>.HighScores|
00000200  22 29 0d 01 40 13 e3 20  6c 64 73 63 72 73 3d 31  |")..@.. ldscrs=1|
00000210  20 b8 20 31 30 0d 01 4a  3d e8 20 23 68 69 73 63  | . 10..J=. #hisc|
00000220  6f 72 65 66 69 6c 65 2c  53 63 6f 72 65 25 28 6c  |orefile,Score%(l|
00000230  64 73 63 72 73 29 2c 4e  61 6d 65 24 28 6c 64 73  |dscrs),Name$(lds|
00000240  63 72 73 29 2c 59 65 61  72 25 28 6c 64 73 63 72  |crs),Year%(ldscr|
00000250  73 29 0d 01 54 05 ed 0d  01 5e 11 d9 23 68 69 73  |s)..T....^..#his|
00000260  63 6f 72 65 66 69 6c 65  0d 01 68 04 0d 01 72 15  |corefile..h...r.|
00000270  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 6e  |.. "Hourglass_On|
00000280  22 0d 01 7c 09 68 67 25  3d b9 0d 01 86 0f f2 69  |"..|.hg%=......i|
00000290  6e 69 74 69 61 6c 69 73  65 0d 01 90 2b c8 99 20  |nitialise...+.. |
000002a0  22 48 6f 75 72 67 6c 61  73 73 5f 50 65 72 63 65  |"Hourglass_Perce|
000002b0  6e 74 61 67 65 22 2c a8  28 31 2a 28 31 30 30 2f  |ntage",.(1*(100/|
000002c0  31 35 29 29 0d 01 9a 12  f2 6c 6f 61 64 74 65 6d  |15)).....loadtem|
000002d0  70 6c 61 74 65 73 0d 01  a4 2b c8 99 20 22 48 6f  |plates...+.. "Ho|
000002e0  75 72 67 6c 61 73 73 5f  50 65 72 63 65 6e 74 61  |urglass_Percenta|
000002f0  67 65 22 2c a8 28 33 2a  28 31 30 30 2f 31 35 29  |ge",.(3*(100/15)|
00000300  29 0d 01 ae 09 f2 69 63  6f 6e 0d 01 b8 2b c8 99  |).....icon...+..|
00000310  20 22 48 6f 75 72 67 6c  61 73 73 5f 50 65 72 63  | "Hourglass_Perc|
00000320  65 6e 74 61 67 65 22 2c  a8 28 34 2a 28 31 30 30  |entage",.(4*(100|
00000330  2f 31 35 29 29 0d 01 c2  09 f2 6d 65 6e 75 0d 01  |/15)).....menu..|
00000340  cc 2b c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |.+.. "Hourglass_|
00000350  50 65 72 63 65 6e 74 61  67 65 22 2c a8 28 35 2a  |Percentage",.(5*|
00000360  28 31 30 30 2f 31 35 29  29 0d 01 d6 10 f2 6c 6f  |(100/15)).....lo|
00000370  61 64 6f 70 74 69 6f 6e  73 0d 01 e0 2b c8 99 20  |adoptions...+.. |
00000380  22 48 6f 75 72 67 6c 61  73 73 5f 50 65 72 63 65  |"Hourglass_Perce|
00000390  6e 74 61 67 65 22 2c a8  28 36 2a 28 31 30 30 2f  |ntage",.(6*(100/|
000003a0  31 35 29 29 0d 01 ea 13  f2 73 65 74 66 6f 6e 74  |15)).....setfont|
000003b0  63 6f 6c 6f 75 72 73 0d  01 f4 04 0d 01 fe 2b c8  |colours.......+.|
000003c0  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 50 65 72  |. "Hourglass_Per|
000003d0  63 65 6e 74 61 67 65 22  2c a8 28 37 2a 28 31 30  |centage",.(7*(10|
000003e0  30 2f 31 35 29 29 0d 02  08 2b 6e 75 6c 6c 3d a4  |0/15))...+null=.|
000003f0  67 65 74 66 6f 6e 74 68  61 6e 64 6c 65 28 22 43  |getfonthandle("C|
00000400  6f 72 70 75 73 2e 4d 65  64 69 75 6d 22 2c 32 34  |orpus.Medium",24|
00000410  29 0d 02 12 2b c8 99 20  22 48 6f 75 72 67 6c 61  |)...+.. "Hourgla|
00000420  73 73 5f 50 65 72 63 65  6e 74 61 67 65 22 2c a8  |ss_Percentage",.|
00000430  28 38 2a 28 31 30 30 2f  31 35 29 29 0d 02 1c 2b  |(8*(100/15))...+|
00000440  6e 75 6c 6c 3d a4 67 65  74 66 6f 6e 74 68 61 6e  |null=.getfonthan|
00000450  64 6c 65 28 22 43 6f 72  70 75 73 2e 4d 65 64 69  |dle("Corpus.Medi|
00000460  75 6d 22 2c 33 36 29 0d  02 26 2b c8 99 20 22 48  |um",36)..&+.. "H|
00000470  6f 75 72 67 6c 61 73 73  5f 50 65 72 63 65 6e 74  |ourglass_Percent|
00000480  61 67 65 22 2c a8 28 39  2a 28 31 30 30 2f 31 35  |age",.(9*(100/15|
00000490  29 29 0d 02 30 2d 6e 75  6c 6c 3d a4 67 65 74 66  |))..0-null=.getf|
000004a0  6f 6e 74 68 61 6e 64 6c  65 28 22 48 6f 6d 65 72  |onthandle("Homer|
000004b0  74 6f 6e 2e 4d 65 64 69  75 6d 22 2c 32 34 29 0d  |ton.Medium",24).|
000004c0  02 3a 2c c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |.:,.. "Hourglass|
000004d0  5f 50 65 72 63 65 6e 74  61 67 65 22 2c a8 28 31  |_Percentage",.(1|
000004e0  30 2a 28 31 30 30 2f 31  35 29 29 0d 02 44 2d 6e  |0*(100/15))..D-n|
000004f0  75 6c 6c 3d a4 67 65 74  66 6f 6e 74 68 61 6e 64  |ull=.getfonthand|
00000500  6c 65 28 22 48 6f 6d 65  72 74 6f 6e 2e 4d 65 64  |le("Homerton.Med|
00000510  69 75 6d 22 2c 33 36 29  0d 02 4e 2c c8 99 20 22  |ium",36)..N,.. "|
00000520  48 6f 75 72 67 6c 61 73  73 5f 50 65 72 63 65 6e  |Hourglass_Percen|
00000530  74 61 67 65 22 2c a8 28  31 31 2a 28 31 30 30 2f  |tage",.(11*(100/|
00000540  31 35 29 29 0d 02 58 2d  6e 75 6c 6c 3d a4 67 65  |15))..X-null=.ge|
00000550  74 66 6f 6e 74 68 61 6e  64 6c 65 28 22 48 6f 6d  |tfonthandle("Hom|
00000560  65 72 74 6f 6e 2e 4d 65  64 69 75 6d 22 2c 33 38  |erton.Medium",38|
00000570  29 0d 02 62 2c c8 99 20  22 48 6f 75 72 67 6c 61  |)..b,.. "Hourgla|
00000580  73 73 5f 50 65 72 63 65  6e 74 61 67 65 22 2c a8  |ss_Percentage",.|
00000590  28 31 32 2a 28 31 30 30  2f 31 35 29 29 0d 02 6c  |(12*(100/15))..l|
000005a0  2d 6e 75 6c 6c 3d a4 67  65 74 66 6f 6e 74 68 61  |-null=.getfontha|
000005b0  6e 64 6c 65 28 22 48 6f  6d 65 72 74 6f 6e 2e 4d  |ndle("Homerton.M|
000005c0  65 64 69 75 6d 22 2c 31  38 29 0d 02 76 2c c8 99  |edium",18)..v,..|
000005d0  20 22 48 6f 75 72 67 6c  61 73 73 5f 50 65 72 63  | "Hourglass_Perc|
000005e0  65 6e 74 61 67 65 22 2c  a8 28 31 33 2a 28 31 30  |entage",.(13*(10|
000005f0  30 2f 31 35 29 29 0d 02  80 2d 6e 75 6c 6c 3d a4  |0/15))...-null=.|
00000600  67 65 74 66 6f 6e 74 68  61 6e 64 6c 65 28 22 48  |getfonthandle("H|
00000610  6f 6d 65 72 74 6f 6e 2e  4d 65 64 69 75 6d 22 2c  |omerton.Medium",|
00000620  34 38 29 0d 02 8a 2c c8  99 20 22 48 6f 75 72 67  |48)...,.. "Hourg|
00000630  6c 61 73 73 5f 50 65 72  63 65 6e 74 61 67 65 22  |lass_Percentage"|
00000640  2c a8 28 31 34 2a 28 31  30 30 2f 31 35 29 29 0d  |,.(14*(100/15)).|
00000650  02 94 2e 6e 75 6c 6c 3d  a4 67 65 74 66 6f 6e 74  |...null=.getfont|
00000660  68 61 6e 64 6c 65 28 22  48 6f 6d 65 72 74 6f 6e  |handle("Homerton|
00000670  2e 4d 65 64 69 75 6d 22  2c 31 30 30 29 0d 02 9e  |.Medium",100)...|
00000680  2c c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 50  |,.. "Hourglass_P|
00000690  65 72 63 65 6e 74 61 67  65 22 2c a8 28 31 35 2a  |ercentage",.(15*|
000006a0  28 31 30 30 2f 31 35 29  29 0d 02 a8 04 0d 02 b2  |(100/15)).......|
000006b0  05 f5 0d 02 bc 27 c8 99  20 22 4f 53 5f 52 65 61  |.....'.. "OS_Rea|
000006c0  64 4d 6f 6e 6f 74 6f 6e  69 63 54 69 6d 65 22 20  |dMonotonicTime" |
000006d0  b8 20 6e 65 77 74 69 6d  65 0d 02 c6 1a c8 95 20  |. newtime...... |
000006e0  28 6e 65 77 74 69 6d 65  2d 6f 6c 64 74 69 6d 65  |(newtime-oldtime|
000006f0  29 3e 30 0d 02 d0 0f 6f  6c 64 74 69 6d 65 2b 3d  |)>0....oldtime+=|
00000700  31 30 0d 02 da 05 ce 0d  02 e4 25 e7 20 68 67 25  |10........%. hg%|
00000710  20 c8 99 20 22 58 48 6f  75 72 67 6c 61 73 73 5f  | .. "XHourglass_|
00000720  4f 66 66 22 20 3a 20 68  67 25 3d a3 0d 02 ee 18  |Off" : hg%=.....|
00000730  c8 99 20 22 57 69 6d 70  45 78 74 5f 50 72 65 50  |.. "WimpExt_PreP|
00000740  6f 6c 6c 22 0d 02 f8 30  c8 99 20 22 57 69 6d 70  |oll"...0.. "Wimp|
00000750  5f 50 6f 6c 6c 49 64 6c  65 22 2c 6d 61 73 6b 25  |_PollIdle",mask%|
00000760  2c 63 68 75 6e 6b 25 2c  31 30 20 b8 20 72 65 61  |,chunk%,10 . rea|
00000770  73 6f 6e 25 0d 03 02 2c  c8 99 20 22 57 69 6d 70  |son%...,.. "Wimp|
00000780  45 78 74 5f 41 63 74 69  6f 6e 22 2c 74 61 73 6b  |Ext_Action",task|
00000790  25 2c 63 68 75 6e 6b 25  2c 72 65 61 73 6f 6e 25  |%,chunk%,reason%|
000007a0  0d 03 0c 10 c8 8e 20 72  65 61 73 6f 6e 25 20 ca  |...... reason% .|
000007b0  0d 03 16 11 c9 20 30 20  3a 20 f2 73 6c 69 64 65  |..... 0 : .slide|
000007c0  72 0d 03 20 11 c9 20 31  20 3a 20 f2 72 65 64 72  |r.. .. 1 : .redr|
000007d0  61 77 0d 03 2a 29 c9 20  32 20 3a 20 c8 99 20 22  |aw..*). 2 : .. "|
000007e0  57 69 6d 70 45 78 74 5f  4f 70 65 6e 4c 69 6e 6b  |WimpExt_OpenLink|
000007f0  65 64 22 2c 2c 63 68 75  6e 6b 25 0d 03 34 2a c9  |ed",,chunk%..4*.|
00000800  20 33 20 3a 20 c8 99 20  22 57 69 6d 70 45 78 74  | 3 : .. "WimpExt|
00000810  5f 43 6c 6f 73 65 4c 69  6e 6b 65 64 22 2c 2c 63  |_CloseLinked",,c|
00000820  68 75 6e 6b 25 0d 03 3e  17 c9 20 36 20 3a 20 f2  |hunk%..>.. 6 : .|
00000830  6d 6f 75 73 65 70 72 65  73 73 65 64 0d 03 48 15  |mousepressed..H.|
00000840  c9 20 37 20 3a 20 6d 61  73 6b 25 3d 26 31 38 33  |. 7 : mask%=&183|
00000850  31 0d 03 52 18 c9 20 39  20 3a 20 f2 6d 65 6e 75  |1..R.. 9 : .menu|
00000860  73 65 6c 65 63 74 69 6f  6e 0d 03 5c 1d c9 20 31  |selection..\.. 1|
00000870  37 2c 31 38 2c 31 39 20  3a 20 f2 75 73 65 72 6d  |7,18,19 : .userm|
00000880  65 73 73 61 67 65 0d 03  66 05 cb 0d 03 70 07 fd  |essage..f....p..|
00000890  20 a3 0d 03 7a 05 e0 0d  03 84 04 0d 03 8e 04 0d  | ...z...........|
000008a0  03 98 0f dd 20 f2 73 65  6e 64 68 65 6c 70 0d 03  |.... .sendhelp..|
000008b0  a2 12 68 65 6c 70 24 20  3d 20 22 4d 65 67 32 22  |..help$ = "Meg2"|
000008c0  0d 03 ac 17 c8 8e 20 6d  65 73 73 61 67 65 62 69  |...... messagebi|
000008d0  74 25 21 33 32 20 ca 0d  03 b6 3a 20 c9 20 69 6e  |t%!32 ....: . in|
000008e0  66 6f 25 20 3a 20 68 65  6c 70 24 3d 22 54 68 69  |fo% : help$="Thi|
000008f0  73 20 69 73 20 74 68 65  20 4d 65 67 32 20 69 6e  |s is the Meg2 in|
00000900  66 6f 72 6d 61 74 69 6f  6e 20 77 69 6e 64 6f 77  |formation window|
00000910  22 0d 03 c0 7a 20 c9 20  2d 32 20 3a 20 68 65 6c  |"...z . -2 : hel|
00000920  70 24 3d 22 54 68 69 73  20 69 73 20 74 68 65 20  |p$="This is the |
00000930  4d 65 67 32 20 69 63 6f  6e 2e 20 43 6c 69 63 6b  |Meg2 icon. Click|
00000940  20 53 65 6c 65 63 74 20  6f 6e 20 69 74 20 74 6f  | Select on it to|
00000950  20 62 72 69 6e 67 20 75  70 20 74 68 65 20 6d 61  | bring up the ma|
00000960  69 6e 20 77 69 6e 64 6f  77 2c 20 7c 4d 61 6e 64  |in window, |Mand|
00000970  20 6d 65 6e 75 20 74 6f  20 62 72 69 6e 67 20 75  | menu to bring u|
00000980  70 20 74 68 65 20 6d 65  6e 75 22 0d 03 ca 2f 20  |p the menu".../ |
00000990  c9 20 6d 61 69 6e 25 20  3a 20 68 65 6c 70 24 3d  |. main% : help$=|
000009a0  22 54 68 69 73 20 69 73  20 74 68 65 20 4d 61 69  |"This is the Mai|
000009b0  6e 20 77 69 6e 64 6f 77  2e 22 0d 03 d4 19 20 20  |n window."....  |
000009c0  c8 8e 20 6d 65 73 73 61  67 65 62 69 74 25 21 33  |.. messagebit%!3|
000009d0  36 20 ca 0d 03 de 04 0d  03 e8 07 20 20 cb 0d 03  |6 .........  ...|
000009e0  f2 06 20 cb 0d 03 fc 13  63 68 75 6e 6b 25 21 30  |.. .....chunk%!0|
000009f0  30 20 3d 20 32 35 36 0d  04 06 1d 63 68 75 6e 6b  |0 = 256....chunk|
00000a00  25 21 31 32 20 3d 20 6d  65 73 73 61 67 65 62 69  |%!12 = messagebi|
00000a10  74 25 21 38 0d 04 10 15  63 68 75 6e 6b 25 21 31  |t%!8....chunk%!1|
00000a20  36 20 3d 20 26 30 35 30  33 0d 04 1a 17 24 28 63  |6 = &0503....$(c|
00000a30  68 75 6e 6b 25 2b 32 30  29 3d 20 68 65 6c 70 24  |hunk%+20)= help$|
00000a40  0d 04 24 2c c8 99 20 22  57 69 6d 70 5f 53 65 6e  |..$,.. "Wimp_Sen|
00000a50  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 63 68 75  |dMessage",17,chu|
00000a60  6e 6b 25 2c 63 68 75 6e  6b 25 21 34 0d 04 2e 05  |nk%,chunk%!4....|
00000a70  e1 0d 04 38 04 0d 04 42  16 dd 20 f2 61 63 74 69  |...8...B.. .acti|
00000a80  6f 6e 28 61 63 74 69 6f  6e 24 29 0d 04 4c 10 c8  |on(action$)..L..|
00000a90  8e 20 61 63 74 69 6f 6e  24 20 ca 0d 04 56 10 20  |. action$ ...V. |
00000aa0  c9 20 22 74 61 62 6c 65  75 70 22 0d 04 60 3e 20  |. "tableup"..`> |
00000ab0  20 c8 99 20 22 57 69 6d  70 45 78 74 5f 49 6e 63  | .. "WimpExt_Inc|
00000ac0  4e 75 6d 62 65 72 49 63  6f 6e 22 2c 31 30 2c 2c  |NumberIcon",10,,|
00000ad0  6d 61 69 6e 25 2c 31 34  2c 31 32 2c 31 20 b8 20  |main%,14,12,1 . |
00000ae0  6e 65 77 76 61 6c 75 65  25 0d 04 6a 07 20 20 e1  |newvalue%..j.  .|
00000af0  0d 04 74 12 20 c9 20 22  74 61 62 6c 65 64 6f 77  |..t. . "tabledow|
00000b00  6e 22 0d 04 7e 3d 20 20  c8 99 20 22 57 69 6d 70  |n"..~=  .. "Wimp|
00000b10  45 78 74 5f 44 65 63 4e  75 6d 62 65 72 49 63 6f  |Ext_DecNumberIco|
00000b20  6e 22 2c 31 30 2c 2c 6d  61 69 6e 25 2c 31 34 2c  |n",10,,main%,14,|
00000b30  31 2c 31 20 b8 20 6e 65  77 76 61 6c 75 65 25 0d  |1,1 . newvalue%.|
00000b40  04 88 07 20 20 e1 0d 04  92 0e 20 c9 20 22 73 6f  |...  ..... . "so|
00000b50  75 6e 64 22 0d 04 9c 31  20 20 c8 99 20 22 57 69  |und"...1  .. "Wi|
00000b60  6d 70 45 78 74 5f 47 65  74 49 63 6f 6e 22 2c 2c  |mpExt_GetIcon",,|
00000b70  2c 6d 61 69 6e 25 2c 31  30 20 b8 20 73 65 6c 65  |,main%,10 . sele|
00000b80  63 74 65 64 25 0d 04 a6  16 20 20 20 e7 20 73 65  |cted%....   . se|
00000b90  6c 65 63 74 65 64 25 3d  30 20 8c 0d 04 b0 17 20  |lected%=0 ..... |
00000ba0  20 20 20 20 f2 73 68 61  64 65 73 6f 75 6e 64 28  |    .shadesound(|
00000bb0  31 29 0d 04 ba 0a 20 20  20 20 20 e1 0d 04 c4 09  |1)....     .....|
00000bc0  20 20 20 20 cc 0d 04 ce  17 20 20 20 20 20 f2 73  |    .....     .s|
00000bd0  68 61 64 65 73 6f 75 6e  64 28 30 29 0d 04 d8 0a  |hadesound(0)....|
00000be0  20 20 20 20 20 e1 0d 04  e2 08 20 20 20 cd 0d 04  |     .....   ...|
00000bf0  ec 0f 20 c9 20 22 63 61  6e 63 65 6c 22 0d 04 f6  |.. . "cancel"...|
00000c00  13 20 20 21 63 68 75 6e  6b 25 3d 6d 61 69 6e 25  |.  !chunk%=main%|
00000c10  0d 05 00 26 20 20 c8 99  20 22 57 69 6d 70 5f 47  |...&  .. "Wimp_G|
00000c20  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00000c30  63 68 75 6e 6b 25 0d 05  0a 29 20 20 c8 99 20 22  |chunk%...)  .. "|
00000c40  57 69 6d 70 45 78 74 5f  43 65 6e 74 72 65 57 69  |WimpExt_CentreWi|
00000c50  6e 64 6f 77 22 2c 2c 63  68 75 6e 6b 25 2b 34 0d  |ndow",,chunk%+4.|
00000c60  05 14 2a 20 20 c8 99 20  22 57 69 6d 70 45 78 74  |..*  .. "WimpExt|
00000c70  5f 43 65 6e 74 72 65 57  69 6e 64 6f 77 56 22 2c  |_CentreWindowV",|
00000c80  2c 63 68 75 6e 6b 25 2b  34 0d 05 1e 26 20 20 c8  |,chunk%+4...&  .|
00000c90  99 20 22 57 69 6d 70 45  78 74 5f 43 6c 6f 73 65  |. "WimpExt_Close|
00000ca0  4c 69 6e 6b 65 64 22 2c  2c 63 68 75 6e 6b 25 0d  |Linked",,chunk%.|
00000cb0  05 28 12 20 20 f2 6c 6f  61 64 6f 70 74 69 6f 6e  |.(.  .loadoption|
00000cc0  73 0d 05 32 07 20 20 e1  0d 05 3c 0c 20 c9 20 22  |s..2.  ...<. . "|
00000cd0  61 64 64 22 0d 05 46 13  20 20 f2 73 68 61 64 65  |add"..F.  .shade|
00000ce0  64 69 66 66 28 30 29 0d  05 50 14 20 20 f2 73 68  |diff(0)..P.  .sh|
00000cf0  61 64 65 74 61 62 6c 65  28 31 29 0d 05 5a 07 20  |adetable(1)..Z. |
00000d00  20 e1 0d 05 64 0c 20 c9  20 22 73 75 62 22 0d 05  | ...d. . "sub"..|
00000d10  6e 13 20 20 f2 73 68 61  64 65 64 69 66 66 28 30  |n.  .shadediff(0|
00000d20  29 0d 05 78 14 20 20 f2  73 68 61 64 65 74 61 62  |)..x.  .shadetab|
00000d30  6c 65 28 31 29 0d 05 82  07 20 20 e1 0d 05 8c 0c  |le(1)....  .....|
00000d40  20 c9 20 22 6d 75 6c 22  0d 05 96 13 20 20 f2 73  | . "mul"....  .s|
00000d50  68 61 64 65 64 69 66 66  28 31 29 0d 05 a0 14 20  |hadediff(1).... |
00000d60  20 f2 73 68 61 64 65 74  61 62 6c 65 28 30 29 0d  | .shadetable(0).|
00000d70  05 aa 07 20 20 e1 0d 05  b4 0c 20 c9 20 22 64 69  |...  ..... . "di|
00000d80  76 22 0d 05 be 13 20 20  f2 73 68 61 64 65 64 69  |v"....  .shadedi|
00000d90  66 66 28 31 29 0d 05 c8  14 20 20 f2 73 68 61 64  |ff(1)....  .shad|
00000da0  65 74 61 62 6c 65 28 30  29 0d 05 d2 07 20 20 e1  |etable(0)....  .|
00000db0  0d 05 dc 0c 20 c9 20 22  62 65 67 22 0d 05 e6 0c  |.... . "beg"....|
00000dc0  20 20 70 61 67 65 3d 31  0d 05 f0 0d 20 20 f2 75  |  page=1....  .u|
00000dd0  70 64 61 74 65 0d 05 fa  07 20 20 e1 0d 06 04 0c  |pdate....  .....|
00000de0  20 c9 20 22 72 65 77 22  0d 06 0e 12 20 20 e7 20  | . "rew"....  . |
00000df0  70 61 67 65 2d 33 3c 31  20 8c 0d 06 18 0d 20 20  |page-3<1 .....  |
00000e00  20 70 61 67 65 3d 31 0d  06 22 0e 20 20 20 f2 75  | page=1..".   .u|
00000e10  70 64 61 74 65 0d 06 2c  07 20 20 cc 0d 06 36 0e  |pdate..,.  ...6.|
00000e20  20 20 20 70 61 67 65 2d  3d 33 0d 06 40 0e 20 20  |   page-=3..@.  |
00000e30  20 f2 75 70 64 61 74 65  0d 06 4a 07 20 20 cd 0d  | .update..J.  ..|
00000e40  06 54 07 20 20 e1 0d 06  5e 0c 20 c9 20 22 62 61  |.T.  ...^. . "ba|
00000e50  63 22 0d 06 68 10 20 20  e7 20 70 61 67 65 3d 31  |c"..h.  . page=1|
00000e60  20 8c 0d 06 72 08 20 20  20 e1 0d 06 7c 07 20 20  | ...r.   ...|.  |
00000e70  cc 0d 06 86 0e 20 20 20  70 61 67 65 2d 3d 31 0d  |.....   page-=1.|
00000e80  06 90 0e 20 20 20 f2 75  70 64 61 74 65 0d 06 9a  |...   .update...|
00000e90  07 20 20 cd 0d 06 a4 07  20 20 e1 0d 06 ae 0c 20  |.  .....  ..... |
00000ea0  c9 20 22 66 6f 72 22 0d  06 b8 14 20 20 e7 20 70  |. "for"....  . p|
00000eb0  61 67 65 3d 70 61 67 65  73 20 8c 0d 06 c2 08 20  |age=pages ..... |
00000ec0  20 20 e1 0d 06 cc 07 20  20 cc 0d 06 d6 0e 20 20  |  .....  .....  |
00000ed0  20 70 61 67 65 2b 3d 31  0d 06 e0 0e 20 20 20 f2  | page+=1....   .|
00000ee0  75 70 64 61 74 65 0d 06  ea 07 20 20 cd 0d 06 f4  |update....  ....|
00000ef0  07 20 20 e1 0d 06 fe 0c  20 c9 20 22 66 66 72 22  |.  ..... . "ffr"|
00000f00  0d 07 08 16 20 20 e7 20  70 61 67 65 2b 33 3e 70  |....  . page+3>p|
00000f10  61 67 65 73 20 8c 0d 07  12 11 20 20 20 70 61 67  |ages .....   pag|
00000f20  65 3d 70 61 67 65 73 0d  07 1c 0e 20 20 20 f2 75  |e=pages....   .u|
00000f30  70 64 61 74 65 0d 07 26  07 20 20 cc 0d 07 30 0e  |pdate..&.  ...0.|
00000f40  20 20 20 70 61 67 65 2b  3d 33 0d 07 3a 0e 20 20  |   page+=3..:.  |
00000f50  20 f2 75 70 64 61 74 65  0d 07 44 07 20 20 cd 0d  | .update..D.  ..|
00000f60  07 4e 07 20 20 e1 0d 07  58 0c 20 c9 20 22 65 6e  |.N.  ...X. . "en|
00000f70  64 22 0d 07 62 10 20 20  70 61 67 65 3d 70 61 67  |d"..b.  page=pag|
00000f80  65 73 0d 07 6c 0d 20 20  f2 75 70 64 61 74 65 0d  |es..l.  .update.|
00000f90  07 76 07 20 20 e1 0d 07  80 05 cb 0d 07 8a 05 e1  |.v.  ...........|
00000fa0  0d 07 94 04 0d 07 9e 12  dd 20 f2 76 69 65 77 6f  |......... .viewo|
00000fb0  70 74 69 6f 6e 73 0d 07  a8 12 20 21 63 68 75 6e  |ptions.... !chun|
00000fc0  6b 25 3d 6d 61 69 6e 25  0d 07 b2 25 20 c8 99 20  |k%=main%...% .. |
00000fd0  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00000fe0  74 61 74 65 22 2c 2c 63  68 75 6e 6b 25 0d 07 bc  |tate",,chunk%...|
00000ff0  28 20 c8 99 20 22 57 69  6d 70 45 78 74 5f 43 65  |( .. "WimpExt_Ce|
00001000  6e 74 72 65 57 69 6e 64  6f 77 22 2c 2c 63 68 75  |ntreWindow",,chu|
00001010  6e 6b 25 2b 34 0d 07 c6  29 20 c8 99 20 22 57 69  |nk%+4...) .. "Wi|
00001020  6d 70 45 78 74 5f 43 65  6e 74 72 65 57 69 6e 64  |mpExt_CentreWind|
00001030  6f 77 56 22 2c 2c 63 68  75 6e 6b 25 2b 34 0d 07  |owV",,chunk%+4..|
00001040  d0 24 20 c8 99 20 22 57  69 6d 70 45 78 74 5f 4f  |.$ .. "WimpExt_O|
00001050  70 65 6e 4c 69 6e 6b 65  64 22 2c 2c 63 68 75 6e  |penLinked",,chun|
00001060  6b 25 0d 07 da 05 e1 0d  07 e4 04 0d 07 ee 0b dd  |k%..............|
00001070  20 f2 67 61 6d 65 0d 07  f8 16 20 c8 99 20 22 48  | .game.... .. "H|
00001080  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 0d 08 02 32  |ourglass_On"...2|
00001090  20 c8 99 20 22 57 69 6d  70 45 78 74 5f 47 65 74  | .. "WimpExt_Get|
000010a0  4e 75 6d 62 65 72 49 63  6f 6e 22 2c 2c 2c 6d 61  |NumberIcon",,,ma|
000010b0  69 6e 25 2c 36 20 b8 20  6e 75 6d 62 65 72 0d 08  |in%,6 . number..|
000010c0  0c 18 20 e7 20 6e 75 6d  62 65 72 3d 30 20 6e 75  |.. . number=0 nu|
000010d0  6d 62 65 72 3d 31 0d 08  16 2a 20 c8 99 20 22 58  |mber=1...* .. "X|
000010e0  4f 53 5f 43 4c 49 22 2c  22 56 6f 6c 75 6d 65 20  |OS_CLI","Volume |
000010f0  22 2b c3 28 6e 75 6d 62  65 72 2a 31 2e 32 37 29  |"+.(number*1.27)|
00001100  0d 08 20 30 20 c8 99 20  22 57 69 6d 70 45 78 74  |.. 0 .. "WimpExt|
00001110  5f 47 65 74 49 63 6f 6e  22 2c 2c 2c 6d 61 69 6e  |_GetIcon",,,main|
00001120  25 2c 31 30 20 b8 20 73  65 6c 65 63 74 65 64 25  |%,10 . selected%|
00001130  0d 08 2a 2f 20 e7 20 73  65 6c 65 63 74 65 64 25  |..*/ . selected%|
00001140  3d 30 20 8c 20 61 75 64  69 6f 24 3d 22 4f 66 66  |=0 . audio$="Off|
00001150  22 20 8b 20 61 75 64 69  6f 24 3d 22 4f 6e 22 0d  |" . audio$="On".|
00001160  08 34 21 20 c8 99 20 22  58 4f 53 5f 43 4c 49 22  |.4! .. "XOS_CLI"|
00001170  2c 22 41 75 64 69 6f 20  22 2b 61 75 64 69 6f 24  |,"Audio "+audio$|
00001180  0d 08 3e 04 0d 08 48 10  20 e3 20 78 79 3d 31 20  |..>...H. . xy=1 |
00001190  b8 20 31 30 0d 08 52 12  20 20 74 61 62 6c 65 28  |. 10..R.  table(|
000011a0  78 79 29 3d 78 79 0d 08  5c 06 20 ed 0d 08 66 12  |xy)=xy..\. ...f.|
000011b0  20 e3 20 73 3d 31 20 b8  20 31 30 30 30 30 0d 08  | . s=1 . 10000..|
000011c0  70 22 20 20 c8 94 20 74  61 62 6c 65 28 b3 28 31  |p"  .. table(.(1|
000011d0  30 29 29 2c 74 61 62 6c  65 28 b3 28 31 30 29 29  |0)),table(.(10))|
000011e0  0d 08 7a 06 20 ed 0d 08  84 04 0d 08 8e 0d 20 74  |..z. ......... t|
000011f0  79 70 65 25 3d 33 35 0d  08 98 10 20 e3 20 78 3d  |ype%=35.... . x=|
00001200  33 35 20 b8 20 33 38 0d  08 a2 30 20 20 c8 99 20  |35 . 38...0  .. |
00001210  22 57 69 6d 70 45 78 74  5f 47 65 74 49 63 6f 6e  |"WimpExt_GetIcon|
00001220  22 2c 2c 2c 6d 61 69 6e  25 2c 78 20 b8 20 73 65  |",,,main%,x . se|
00001230  6c 65 63 74 65 64 25 0d  08 ac 1e 20 20 e7 20 73  |lected%....  . s|
00001240  65 6c 65 63 74 65 64 25  3c 3e 30 20 8c 20 74 79  |elected%<>0 . ty|
00001250  70 65 25 3d 78 0d 08 b6  06 20 ed 0d 08 c0 04 0d  |pe%=x.... ......|
00001260  08 ca 0f 20 c8 8e 20 74  79 70 65 25 20 ca 0d 08  |... .. type% ...|
00001270  d4 0d 20 20 c9 20 33 35  2c 33 36 0d 08 de 0e 20  |..  . 35,36.... |
00001280  20 20 64 69 66 66 25 3d  31 0d 08 e8 12 20 20 20  |  diff%=1....   |
00001290  e3 20 78 3d 32 33 20 b8  20 32 36 0d 08 f2 32 20  |. x=23 . 26...2 |
000012a0  20 20 20 c8 99 20 22 57  69 6d 70 45 78 74 5f 47  |   .. "WimpExt_G|
000012b0  65 74 49 63 6f 6e 22 2c  2c 2c 6d 61 69 6e 25 2c  |etIcon",,,main%,|
000012c0  78 20 b8 20 73 65 6c 65  63 74 65 64 25 0d 08 fc  |x . selected%...|
000012d0  21 20 20 20 20 e7 20 73  65 6c 65 63 74 65 64 25  |!    . selected%|
000012e0  3c 3e 30 20 64 69 66 66  25 3d 78 2d 32 32 0d 09  |<>0 diff%=x-22..|
000012f0  06 08 20 20 20 ed 0d 09  10 0d 20 20 c9 20 33 37  |..   .....  . 37|
00001300  2c 33 38 0d 09 1a 32 20  20 20 c8 99 20 22 57 69  |,38...2   .. "Wi|
00001310  6d 70 45 78 74 5f 47 65  74 49 63 6f 6e 22 2c 2c  |mpExt_GetIcon",,|
00001320  2c 6d 61 69 6e 25 2c 31  34 20 b8 20 2c 2c 2c 74  |,main%,14 . ,,,t|
00001330  61 62 6c 65 24 0d 09 24  0e 20 20 20 64 69 66 66  |able$..$.   diff|
00001340  25 3d 32 0d 09 2e 17 20  20 20 74 61 62 6c 65 25  |%=2....   table%|
00001350  3d bb 28 74 61 62 6c 65  24 29 0d 09 38 06 20 cb  |=.(table$)..8. .|
00001360  0d 09 42 17 20 c8 99 20  22 48 6f 75 72 67 6c 61  |..B. .. "Hourgla|
00001370  73 73 5f 4f 66 66 22 0d  09 4c 04 0d 09 56 0c 20  |ss_Off"..L...V. |
00001380  6d 6f 64 65 25 3d eb 0d  09 60 14 20 24 28 63 68  |mode%=...`. $(ch|
00001390  75 6e 6b 25 29 3d 22 4d  65 67 22 0d 09 6a 23 20  |unk%)="Meg"..j# |
000013a0  c8 99 20 22 57 69 6d 70  5f 43 6f 6d 6d 61 6e 64  |.. "Wimp_Command|
000013b0  57 69 6e 64 6f 77 22 2c  63 68 75 6e 6b 25 0d 09  |Window",chunk%..|
000013c0  74 09 20 eb 20 31 33 0d  09 7e 04 0d 09 88 06 20  |t. . 13..~..... |
000013d0  87 0d 09 92 08 20 ea 20  85 0d 09 9c ca 20 ee 85  |..... . ..... ..|
000013e0  ea 3a c8 99 22 4f 53 5f  42 79 74 65 22 2c 31 31  |.:.."OS_Byte",11|
000013f0  32 2c 31 3a c8 99 22 4f  53 5f 42 79 74 65 22 2c  |2,1:.."OS_Byte",|
00001400  31 31 33 2c 31 3a db 3a  f2 70 72 69 6e 74 66 6f  |113,1:.:.printfo|
00001410  6e 74 28 22 48 6f 6d 65  72 74 6f 6e 2e 4d 65 64  |nt("Homerton.Med|
00001420  69 75 6d 22 2c 34 38 2c  33 30 30 2c 35 30 30 2c  |ium",48,300,500,|
00001430  66 72 65 64 25 2c 66 62  6c 61 63 6b 25 2c 22 50  |fred%,fblack%,"P|
00001440  72 65 73 73 20 3c 53 70  61 63 65 3e 22 29 3a f5  |ress <Space>"):.|
00001450  fd a6 28 2d 39 39 29 3d  b9 3a c8 99 22 57 69 6d  |..(-99)=.:.."Wim|
00001460  70 5f 43 6f 6d 6d 61 6e  64 57 69 6e 64 6f 77 22  |p_CommandWindow"|
00001470  2c 2d 31 3a c8 99 22 4f  53 5f 42 79 74 65 22 2c  |,-1:.."OS_Byte",|
00001480  32 32 39 2c 31 2c 30 3a  f7 85 3a c8 99 22 57 69  |229,1,0:..:.."Wi|
00001490  6d 70 5f 53 65 74 4d 6f  64 65 22 2c 6d 6f 64 65  |mp_SetMode",mode|
000014a0  25 3a e1 0d 09 a6 19 20  c8 99 20 22 4f 53 5f 42  |%:..... .. "OS_B|
000014b0  79 74 65 22 2c 32 32 39  2c 30 2c 30 0d 09 b0 04  |yte",229,0,0....|
000014c0  0d 09 ba 1b 20 f4 20 23  23 23 23 20 43 6f 64 65  |.... . #### Code|
000014d0  20 42 65 67 69 6e 20 23  23 23 23 0d 09 c4 04 0d  | Begin ####.....|
000014e0  09 ce 12 20 f2 74 68 65  6e 75 6d 62 65 72 62 69  |... .thenumberbi|
000014f0  74 0d 09 d8 14 20 f2 73  68 6f 6f 74 74 68 65 62  |t.... .shoottheb|
00001500  61 64 64 69 65 0d 09 e2  0b 20 f2 74 61 62 6c 65  |addie.... .table|
00001510  0d 09 ec 04 0d 09 f6 1b  20 f4 20 23 23 23 23 20  |........ . #### |
00001520  20 43 6f 64 65 20 45 6e  64 20 20 23 23 23 23 0d  | Code End  ####.|
00001530  0a 00 04 0d 0a 0a 1f 20  c8 99 20 22 57 69 6d 70  |....... .. "Wimp|
00001540  5f 43 6f 6d 6d 61 6e 64  57 69 6e 64 6f 77 22 2c  |_CommandWindow",|
00001550  2d 31 0d 0a 14 1c 20 c8  99 20 22 57 69 6d 70 5f  |-1.... .. "Wimp_|
00001560  53 65 74 4d 6f 64 65 22  2c 6d 6f 64 65 25 0d 0a  |SetMode",mode%..|
00001570  1e 19 20 c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  |.. .. "OS_Byte",|
00001580  32 32 39 2c 31 2c 30 0d  0a 28 08 20 f7 20 85 0d  |229,1,0..(. . ..|
00001590  0a 32 05 e1 0d 0a 3c 04  0d 0a 46 13 dd 20 f2 74  |.2....<...F.. .t|
000015a0  68 65 6e 75 6d 62 65 72  62 69 74 0d 0a 50 0e 20  |henumberbit..P. |
000015b0  63 6f 72 72 65 63 74 3d  30 0d 0a 5a 0c 20 77 72  |correct=0..Z. wr|
000015c0  6f 6e 67 3d 30 0d 0a 64  0c 20 72 65 63 69 70 3d  |ong=0..d. recip=|
000015d0  32 0d 0a 6e 0c 20 73 63  6f 72 65 3d 30 0d 0a 78  |2..n. score=0..x|
000015e0  11 20 6b 69 64 73 61 6e  73 77 65 72 3d 30 0d 0a  |. kidsanswer=0..|
000015f0  82 10 20 e3 20 67 6f 3d  31 20 b8 20 31 30 0d 0a  |.. . go=1 . 10..|
00001600  8c 10 20 20 c8 8e 20 74  79 70 65 25 20 ca 0d 0a  |..  .. type% ...|
00001610  96 0b 20 20 20 c9 20 33  35 0d 0a a0 2c 20 20 20  |..   . 35...,   |
00001620  20 69 6e 70 75 74 31 3d  28 28 b3 28 31 30 29 2a  | input1=((.(10)*|
00001630  28 28 64 69 66 66 25 2d  31 29 5e 32 29 29 2b b3  |((diff%-1)^2))+.|
00001640  28 31 30 29 29 0d 0a aa  2c 20 20 20 20 69 6e 70  |(10))...,    inp|
00001650  75 74 32 3d 28 28 b3 28  31 30 29 2a 28 28 64 69  |ut2=((.(10)*((di|
00001660  66 66 25 2d 31 29 5e 32  29 29 2b b3 28 31 30 29  |ff%-1)^2))+.(10)|
00001670  29 0d 0a b4 1c 20 20 20  20 6f 75 74 70 75 74 3d  |)....    output=|
00001680  69 6e 70 75 74 31 2b 69  6e 70 75 74 32 0d 0a be  |input1+input2...|
00001690  1b 20 20 20 20 6d 61 63  68 24 3d 22 2b 22 2b c3  |.    mach$="+"+.|
000016a0  28 69 6e 70 75 74 32 29  0d 0a c8 0b 20 20 20 c9  |(input2)....   .|
000016b0  20 33 36 0d 0a d2 2c 20  20 20 20 69 6e 70 75 74  | 36...,    input|
000016c0  31 3d 28 28 b3 28 31 30  29 2a 28 28 64 69 66 66  |1=((.(10)*((diff|
000016d0  25 2d 31 29 5e 32 29 29  2b b3 28 31 30 29 29 0d  |%-1)^2))+.(10)).|
000016e0  0a dc 09 20 20 20 20 f5  0d 0a e6 2d 20 20 20 20  |...    ....-    |
000016f0  20 69 6e 70 75 74 32 3d  28 28 b3 28 31 30 29 2a  | input2=((.(10)*|
00001700  28 28 64 69 66 66 25 2d  31 29 5e 32 29 29 2b b3  |((diff%-1)^2))+.|
00001710  28 31 30 29 29 0d 0a f0  17 20 20 20 20 fd 20 69  |(10))....    . i|
00001720  6e 70 75 74 32 3c 69 6e  70 75 74 31 0d 0a fa 1c  |nput2<input1....|
00001730  20 20 20 20 6f 75 74 70  75 74 3d 69 6e 70 75 74  |    output=input|
00001740  31 2d 69 6e 70 75 74 32  0d 0b 04 1b 20 20 20 20  |1-input2....    |
00001750  6d 61 63 68 24 3d 22 2d  22 2b c3 28 69 6e 70 75  |mach$="-"+.(inpu|
00001760  74 32 29 0d 0b 0e 0b 20  20 20 c9 20 33 37 0d 0b  |t2)....   . 37..|
00001770  18 18 20 20 20 20 69 6e  70 75 74 31 3d 74 61 62  |..    input1=tab|
00001780  6c 65 28 67 6f 29 0d 0b  22 15 20 20 20 20 69 6e  |le(go)..".    in|
00001790  70 75 74 32 3d 74 61 62  6c 65 25 0d 0b 2c 1c 20  |put2=table%..,. |
000017a0  20 20 20 6f 75 74 70 75  74 3d 69 6e 70 75 74 31  |   output=input1|
000017b0  2a 69 6e 70 75 74 32 0d  0b 36 1b 20 20 20 20 6d  |*input2..6.    m|
000017c0  61 63 68 24 3d 22 d7 22  2b c3 28 69 6e 70 75 74  |ach$="."+.(input|
000017d0  32 29 0d 0b 40 0f 20 20  20 20 64 69 66 66 25 3d  |2)..@.    diff%=|
000017e0  32 0d 0b 4a 0b 20 20 20  c9 20 33 38 0d 0b 54 1f  |2..J.   . 38..T.|
000017f0  20 20 20 20 69 6e 70 75  74 31 3d 74 61 62 6c 65  |    input1=table|
00001800  25 2a 74 61 62 6c 65 28  67 6f 29 0d 0b 5e 15 20  |%*table(go)..^. |
00001810  20 20 20 69 6e 70 75 74  32 3d 74 61 62 6c 65 25  |   input2=table%|
00001820  0d 0b 68 1c 20 20 20 20  6f 75 74 70 75 74 3d 69  |..h.    output=i|
00001830  6e 70 75 74 31 2f 69 6e  70 75 74 32 0d 0b 72 1b  |nput1/input2..r.|
00001840  20 20 20 20 6d 61 63 68  24 3d 22 f7 22 2b c3 28  |    mach$="."+.(|
00001850  69 6e 70 75 74 32 29 0d  0b 7c 0f 20 20 20 20 64  |input2)..|.    d|
00001860  69 66 66 25 3d 32 0d 0b  86 07 20 20 cb 0d 0b 90  |iff%=2....  ....|
00001870  14 20 20 69 6e 70 75 74  24 3d c3 69 6e 70 75 74  |.  input$=.input|
00001880  31 0d 0b 9a 15 20 20 6f  75 74 70 75 74 24 3d c3  |1....  output$=.|
00001890  6f 75 74 70 75 74 0d 0b  a4 1b 20 20 71 75 65 73  |output....  ques|
000018a0  24 3d c3 28 69 6e 70 75  74 31 29 2b 6d 61 63 68  |$=.(input1)+mach|
000018b0  24 0d 0b ae 16 20 20 f2  63 61 6c 63 75 6c 61 74  |$....  .calculat|
000018c0  65 6e 75 6d 62 65 72 0d  0b b8 06 20 ed 0d 0b c2  |enumber.... ....|
000018d0  05 e1 0d 0b cc 04 0d 0b  d6 16 dd 20 f2 63 61 6c  |........... .cal|
000018e0  63 75 6c 61 74 65 6e 75  6d 62 65 72 0d 0b e0 0f  |culatenumber....|
000018f0  20 6e 75 6d 62 65 72 28  29 3d 30 0d 0b ea 04 0d  | number()=0.....|
00001900  0b f4 0e 20 e3 20 78 3d  31 20 b8 20 32 0d 0b fe  |... . x=1 . 2...|
00001910  18 20 20 c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  |.  .. "OS_Byte",|
00001920  31 31 32 2c 78 0d 0c 08  18 20 20 c8 99 20 22 4f  |112,x....  .. "O|
00001930  53 5f 42 79 74 65 22 2c  31 31 33 2c 78 0d 0c 12  |S_Byte",113,x...|
00001940  07 20 20 da 0d 0c 1c 06  20 ed 0d 0c 26 04 0d 0c  |.  ..... ...&...|
00001950  30 0c 20 62 61 6e 6b 25  3d 31 0d 0c 3a 36 20 c8  |0. bank%=1..:6 .|
00001960  99 20 22 4f 53 5f 42 79  74 65 22 2c 31 31 32 2c  |. "OS_Byte",112,|
00001970  62 61 6e 6b 25 20 3a 20  c8 99 20 22 4f 53 5f 42  |bank% : .. "OS_B|
00001980  79 74 65 22 2c 31 31 33  2c 33 2d 62 61 6e 6b 25  |yte",113,3-bank%|
00001990  0d 0c 44 06 20 da 0d 0c  4e 17 20 f2 72 65 64 72  |..D. ...N. .redr|
000019a0  61 77 73 63 72 28 22 61  62 63 64 22 29 0d 0c 58  |awscr("abcd")..X|
000019b0  14 20 c8 99 20 22 4f 53  5f 42 79 74 65 22 2c 31  |. .. "OS_Byte",1|
000019c0  39 0d 0c 62 1b 20 c8 99  20 22 4f 53 5f 42 79 74  |9..b. .. "OS_Byt|
000019d0  65 22 2c 31 31 33 2c 62  61 6e 6b 25 0d 0c 6c 04  |e",113,bank%..l.|
000019e0  0d 0c 76 10 20 6e 75 6d  62 65 72 28 29 3d 2d 31  |..v. number()=-1|
000019f0  0d 0c 80 19 20 67 65 74  6e 75 6d 62 65 72 66 69  |.... getnumberfi|
00001a00  6e 69 73 68 65 64 25 3d  a3 0d 0c 8a 0a 20 70 6f  |nished%=..... po|
00001a10  73 3d 30 0d 0c 94 14 20  74 78 3d 33 30 30 20 3a  |s=0.... tx=300 :|
00001a20  20 74 79 3d 33 35 30 0d  0c 9e 06 20 f5 0d 0c a8  | ty=350.... ....|
00001a30  15 20 20 c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  |.  .. "OS_Byte",|
00001a40  31 39 0d 0c b2 13 20 20  62 61 6e 6b 25 3d 33 2d  |19....  bank%=3-|
00001a50  62 61 6e 6b 25 0d 0c bc  37 20 20 c8 99 20 22 4f  |bank%...7  .. "O|
00001a60  53 5f 42 79 74 65 22 2c  31 31 32 2c 62 61 6e 6b  |S_Byte",112,bank|
00001a70  25 20 3a 20 c8 99 20 22  4f 53 5f 42 79 74 65 22  |% : .. "OS_Byte"|
00001a80  2c 31 31 33 2c 33 2d 62  61 6e 6b 25 0d 0c c6 07  |,113,3-bank%....|
00001a90  20 20 da 0d 0c d0 10 20  20 f2 67 65 74 6e 75 6d  |  .....  .getnum|
00001aa0  62 65 72 0d 0c da 13 20  20 f2 75 70 64 61 74 65  |ber....  .update|
00001ab0  6e 75 6d 62 65 72 0d 0c  e4 18 20 20 f2 72 65 64  |number....  .red|
00001ac0  72 61 77 73 63 72 28 22  61 62 63 64 22 29 0d 0c  |rawscr("abcd")..|
00001ad0  ee 1c 20 20 fd 20 67 65  74 6e 75 6d 62 65 72 66  |..  . getnumberf|
00001ae0  69 6e 69 73 68 65 64 25  3d b9 0d 0c f8 16 20 6b  |inished%=..... k|
00001af0  69 64 73 61 6e 73 77 65  72 3d 61 6e 73 77 65 72  |idsanswer=answer|
00001b00  0d 0d 02 04 0d 0d 0c 18  20 e3 20 78 3d 31 20 b8  |........ . x=1 .|
00001b10  20 38 20 88 20 32 2a 72  65 63 69 70 0d 0d 16 15  | 8 . 2*recip....|
00001b20  20 20 c8 99 20 22 4f 53  5f 42 79 74 65 22 2c 31  |  .. "OS_Byte",1|
00001b30  39 0d 0d 20 13 20 20 62  61 6e 6b 25 3d 33 2d 62  |9.. .  bank%=3-b|
00001b40  61 6e 6b 25 0d 0d 2a 37  20 20 c8 99 20 22 4f 53  |ank%..*7  .. "OS|
00001b50  5f 42 79 74 65 22 2c 31  31 32 2c 62 61 6e 6b 25  |_Byte",112,bank%|
00001b60  20 3a 20 c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  | : .. "OS_Byte",|
00001b70  31 31 33 2c 33 2d 62 61  6e 6b 25 0d 0d 34 07 20  |113,3-bank%..4. |
00001b80  20 da 0d 0d 3e 16 20 20  f2 72 65 64 72 61 77 73  | ...>.  .redraws|
00001b90  63 72 28 22 62 63 22 29  0d 0d 48 0f 20 20 e6 20  |cr("bc")..H.  . |
00001ba0  34 32 20 c8 9c 20 30 0d  0d 52 18 20 20 c8 93 20  |42 .. 0..R.  .. |
00001bb0  c8 90 20 30 2c 39 32 35  2c 32 35 2c 32 30 30 0d  |.. 0,925,25,200.|
00001bc0  0d 5c 1a 20 20 c8 93 20  c8 90 20 32 30 30 2c 39  |.\.  .. .. 200,9|
00001bd0  32 35 2c 32 35 2c 32 30  30 0d 0d 66 21 20 20 c8  |25,25,200..f!  .|
00001be0  93 20 c8 90 20 30 2c 39  32 35 2c 32 32 35 2d 28  |. .. 0,925,225-(|
00001bf0  78 2a 32 38 2e 32 29 2c  32 35 0d 0d 70 42 20 20  |x*28.2),25..pB  |
00001c00  f2 70 72 69 6e 74 66 6f  6e 74 28 22 43 6f 72 70  |.printfont("Corp|
00001c10  75 73 2e 4d 65 64 69 75  6d 22 2c 32 34 2c 35 30  |us.Medium",24,50|
00001c20  2c 39 37 35 2c 66 77 68  69 74 65 25 2c 66 62 6c  |,975,fwhite%,fbl|
00001c30  61 63 6b 25 2c 69 6e 70  75 74 24 29 0d 0d 7a 06  |ack%,input$)..z.|
00001c40  20 ed 0d 0d 84 04 0d 0d  8e 16 20 e3 20 78 3d 31  | ......... . x=1|
00001c50  20 b8 20 38 20 88 20 72  65 63 69 70 0d 0d 98 15  | . 8 . recip....|
00001c60  20 20 c8 99 20 22 4f 53  5f 42 79 74 65 22 2c 31  |  .. "OS_Byte",1|
00001c70  39 0d 0d a2 13 20 20 62  61 6e 6b 25 3d 33 2d 62  |9....  bank%=3-b|
00001c80  61 6e 6b 25 0d 0d ac 37  20 20 c8 99 20 22 4f 53  |ank%...7  .. "OS|
00001c90  5f 42 79 74 65 22 2c 31  31 32 2c 62 61 6e 6b 25  |_Byte",112,bank%|
00001ca0  20 3a 20 c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  | : .. "OS_Byte",|
00001cb0  31 31 33 2c 33 2d 62 61  6e 6b 25 0d 0d b6 07 20  |113,3-bank%.... |
00001cc0  20 da 0d 0d c0 17 20 20  f2 72 65 64 72 61 77 73  | .....  .redraws|
00001cd0  63 72 28 22 61 62 63 22  29 0d 0d ca 49 20 20 f2  |cr("abc")...I  .|
00001ce0  70 72 69 6e 74 66 6f 6e  74 28 22 43 6f 72 70 75  |printfont("Corpu|
00001cf0  73 2e 4d 65 64 69 75 6d  22 2c 32 34 2c 35 30 2c  |s.Medium",24,50,|
00001d00  39 37 35 2d 28 78 2a 31  33 29 2c 66 77 68 69 74  |975-(x*13),fwhit|
00001d10  65 25 2c 66 62 6c 61 63  6b 25 2c 69 6e 70 75 74  |e%,fblack%,input|
00001d20  24 29 0d 0d d4 06 20 ed  0d 0d de 04 0d 0d e8 19  |$).... .........|
00001d30  20 e3 20 72 65 76 3d 31  20 b8 20 31 35 20 88 20  | . rev=1 . 15 . |
00001d40  72 65 63 69 70 0d 0d f2  11 20 20 e3 20 62 69 74  |recip....  . bit|
00001d50  3d 31 20 b8 20 33 0d 0d  fc 16 20 20 20 c8 99 20  |=1 . 3....   .. |
00001d60  22 4f 53 5f 42 79 74 65  22 2c 31 39 0d 0e 06 14  |"OS_Byte",19....|
00001d70  20 20 20 62 61 6e 6b 25  3d 33 2d 62 61 6e 6b 25  |   bank%=3-bank%|
00001d80  0d 0e 10 38 20 20 20 c8  99 20 22 4f 53 5f 42 79  |...8   .. "OS_By|
00001d90  74 65 22 2c 31 31 32 2c  62 61 6e 6b 25 20 3a 20  |te",112,bank% : |
00001da0  c8 99 20 22 4f 53 5f 42  79 74 65 22 2c 31 31 33  |.. "OS_Byte",113|
00001db0  2c 33 2d 62 61 6e 6b 25  0d 0e 1a 08 20 20 20 da  |,3-bank%....   .|
00001dc0  0d 0e 24 17 20 20 20 f2  72 65 64 72 61 77 73 63  |..$.   .redrawsc|
00001dd0  72 28 22 61 63 22 29 0d  0e 2e 2d 20 20 20 f2 70  |r("ac")...-   .p|
00001de0  6c 6f 74 73 70 72 69 74  65 28 22 63 6f 6e 76 65  |lotsprite("conve|
00001df0  79 6f 72 22 2b c3 28 62  69 74 2d 31 29 2c 30 2c  |yor"+.(bit-1),0,|
00001e00  37 39 35 29 0d 0e 38 57  20 20 20 f2 70 72 69 6e  |795)..8W   .prin|
00001e10  74 66 6f 6e 74 28 22 43  6f 72 70 75 73 2e 4d 65  |tfont("Corpus.Me|
00001e20  64 69 75 6d 22 2c 32 34  2c 35 30 2b 28 72 65 76  |dium",24,50+(rev|
00001e30  2a 36 30 29 2b 28 62 69  74 2d 31 29 2a 32 30 2c  |*60)+(bit-1)*20,|
00001e40  38 36 30 2c 66 77 68 69  74 65 25 2c 66 62 6c 61  |860,fwhite%,fbla|
00001e50  63 6b 25 2c 69 6e 70 75  74 24 29 0d 0e 42 04 0d  |ck%,input$)..B..|
00001e60  0e 4c 07 20 20 ed 0d 0e  56 06 20 ed 0d 0e 60 04  |.L.  ...V. ...`.|
00001e70  0d 0e 6a 17 20 e3 20 6c  6f 6f 70 3d 31 20 b8 20  |..j. . loop=1 . |
00001e80  38 20 88 20 31 2e 35 0d  0e 74 15 20 20 e3 20 78  |8 . 1.5..t.  . x|
00001e90  3d 30 20 b8 20 36 30 20  88 20 33 30 0d 0e 7e 16  |=0 . 60 . 30..~.|
00001ea0  20 20 20 c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  |   .. "OS_Byte",|
00001eb0  31 39 0d 0e 88 14 20 20  20 62 61 6e 6b 25 3d 33  |19....   bank%=3|
00001ec0  2d 62 61 6e 6b 25 0d 0e  92 38 20 20 20 c8 99 20  |-bank%...8   .. |
00001ed0  22 4f 53 5f 42 79 74 65  22 2c 31 31 32 2c 62 61  |"OS_Byte",112,ba|
00001ee0  6e 6b 25 20 3a 20 c8 99  20 22 4f 53 5f 42 79 74  |nk% : .. "OS_Byt|
00001ef0  65 22 2c 31 31 33 2c 33  2d 62 61 6e 6b 25 0d 0e  |e",113,3-bank%..|
00001f00  9c 08 20 20 20 da 0d 0e  a6 17 20 20 20 f2 72 65  |..   .....   .re|
00001f10  64 72 61 77 73 63 72 28  22 61 62 22 29 0d 0e b0  |drawscr("ab")...|
00001f20  5c 20 20 20 f2 70 72 69  6e 74 66 6f 6e 74 28 22  |\   .printfont("|
00001f30  43 6f 72 70 75 73 2e 4d  65 64 69 75 6d 22 2c 32  |Corpus.Medium",2|
00001f40  34 2c 39 39 30 2c 38 36  30 2d 28 28 6c 6f 6f 70  |4,990,860-((loop|
00001f50  2a 34 35 29 2b 28 28 78  2f 33 30 29 2a 31 35 29  |*45)+((x/30)*15)|
00001f60  29 2c 66 77 68 69 74 65  25 2c 66 62 6c 61 63 6b  |),fwhite%,fblack|
00001f70  25 2c 69 6e 70 75 74 24  29 0d 0e ba 16 20 20 20  |%,input$)....   |
00001f80  6d 78 3d 38 32 35 20 3a  20 6d 79 3d 32 30 30 0d  |mx=825 : my=200.|
00001f90  0e c4 25 20 20 20 f2 70  6c 6f 74 73 70 72 69 74  |..%   .plotsprit|
00001fa0  65 28 22 6d 61 63 68 69  6e 65 22 2c 38 32 35 2c  |e("machine",825,|
00001fb0  32 30 30 29 0d 0e ce 30  20 20 20 f2 70 6c 6f 74  |200)...0   .plot|
00001fc0  73 70 72 69 74 65 28 22  57 68 65 65 6c 22 2b c3  |sprite("Wheel"+.|
00001fd0  28 78 29 2b 22 b0 22 2c  6d 78 2b 38 30 2c 6d 79  |(x)+".",mx+80,my|
00001fe0  2b 34 30 29 0d 0e d8 31  20 20 20 f2 70 6c 6f 74  |+40)...1   .plot|
00001ff0  73 70 72 69 74 65 28 22  57 68 65 65 6c 22 2b c3  |sprite("Wheel"+.|
00002000  28 78 29 2b 22 b0 22 2c  6d 78 2b 32 34 33 2c 6d  |(x)+".",mx+243,m|
00002010  79 2b 34 30 29 0d 0e e2  31 20 20 20 f2 70 6c 6f  |y+40)...1   .plo|
00002020  74 73 70 72 69 74 65 28  22 57 68 65 65 6c 22 2b  |tsprite("Wheel"+|
00002030  c3 28 78 29 2b 22 b0 22  2c 6d 78 2b 38 32 2c 6d  |.(x)+".",mx+82,m|
00002040  79 2b 32 38 37 29 0d 0e  ec 32 20 20 20 f2 70 6c  |y+287)...2   .pl|
00002050  6f 74 73 70 72 69 74 65  28 22 57 68 65 65 6c 22  |otsprite("Wheel"|
00002060  2b c3 28 78 29 2b 22 b0  22 2c 6d 78 2b 32 34 33  |+.(x)+".",mx+243|
00002070  2c 6d 79 2b 32 38 37 29  0d 0e f6 07 20 20 ed 0d  |,my+287)....  ..|
00002080  0f 00 06 20 ed 0d 0f 0a  04 0d 0f 14 17 20 e3 20  |... ......... . |
00002090  6c 6f 6f 70 3d 31 20 b8  20 33 20 88 20 31 2e 35  |loop=1 . 3 . 1.5|
000020a0  0d 0f 1e 15 20 20 e3 20  78 3d 30 20 b8 20 36 30  |....  . x=0 . 60|
000020b0  20 88 20 33 30 0d 0f 28  16 20 20 20 c8 99 20 22  | . 30..(.   .. "|
000020c0  4f 53 5f 42 79 74 65 22  2c 31 39 0d 0f 32 14 20  |OS_Byte",19..2. |
000020d0  20 20 62 61 6e 6b 25 3d  33 2d 62 61 6e 6b 25 0d  |  bank%=3-bank%.|
000020e0  0f 3c 38 20 20 20 c8 99  20 22 4f 53 5f 42 79 74  |.<8   .. "OS_Byt|
000020f0  65 22 2c 31 31 32 2c 62  61 6e 6b 25 20 3a 20 c8  |e",112,bank% : .|
00002100  99 20 22 4f 53 5f 42 79  74 65 22 2c 31 31 33 2c  |. "OS_Byte",113,|
00002110  33 2d 62 61 6e 6b 25 0d  0f 46 08 20 20 20 da 0d  |3-bank%..F.   ..|
00002120  0f 50 17 20 20 20 f2 72  65 64 72 61 77 73 63 72  |.P.   .redrawscr|
00002130  28 22 61 62 22 29 0d 0f  5a 5d 20 20 20 f2 70 72  |("ab")..Z]   .pr|
00002140  69 6e 74 66 6f 6e 74 28  22 43 6f 72 70 75 73 2e  |intfont("Corpus.|
00002150  4d 65 64 69 75 6d 22 2c  32 34 2c 39 39 30 2c 32  |Medium",24,990,2|
00002160  31 30 2d 28 28 6c 6f 6f  70 2a 34 35 29 2b 28 28  |10-((loop*45)+((|
00002170  78 2f 33 30 29 2a 31 35  29 29 2c 66 77 68 69 74  |x/30)*15)),fwhit|
00002180  65 25 2c 66 62 6c 61 63  6b 25 2c 6f 75 74 70 75  |e%,fblack%,outpu|
00002190  74 24 29 0d 0f 64 16 20  20 20 6d 78 3d 38 32 35  |t$)..d.   mx=825|
000021a0  20 3a 20 6d 79 3d 32 30  30 0d 0f 6e 25 20 20 20  | : my=200..n%   |
000021b0  f2 70 6c 6f 74 73 70 72  69 74 65 28 22 6d 61 63  |.plotsprite("mac|
000021c0  68 69 6e 65 22 2c 38 32  35 2c 32 30 30 29 0d 0f  |hine",825,200)..|
000021d0  78 30 20 20 20 f2 70 6c  6f 74 73 70 72 69 74 65  |x0   .plotsprite|
000021e0  28 22 57 68 65 65 6c 22  2b c3 28 78 29 2b 22 b0  |("Wheel"+.(x)+".|
000021f0  22 2c 6d 78 2b 38 30 2c  6d 79 2b 34 30 29 0d 0f  |",mx+80,my+40)..|
00002200  82 31 20 20 20 f2 70 6c  6f 74 73 70 72 69 74 65  |.1   .plotsprite|
00002210  28 22 57 68 65 65 6c 22  2b c3 28 78 29 2b 22 b0  |("Wheel"+.(x)+".|
00002220  22 2c 6d 78 2b 32 34 33  2c 6d 79 2b 34 30 29 0d  |",mx+243,my+40).|
00002230  0f 8c 31 20 20 20 f2 70  6c 6f 74 73 70 72 69 74  |..1   .plotsprit|
00002240  65 28 22 57 68 65 65 6c  22 2b c3 28 78 29 2b 22  |e("Wheel"+.(x)+"|
00002250  b0 22 2c 6d 78 2b 38 32  2c 6d 79 2b 32 38 37 29  |.",mx+82,my+287)|
00002260  0d 0f 96 32 20 20 20 f2  70 6c 6f 74 73 70 72 69  |...2   .plotspri|
00002270  74 65 28 22 57 68 65 65  6c 22 2b c3 28 78 29 2b  |te("Wheel"+.(x)+|
00002280  22 b0 22 2c 6d 78 2b 32  34 33 2c 6d 79 2b 32 38  |".",mx+243,my+28|
00002290  37 29 0d 0f a0 07 20 20  ed 0d 0f aa 06 20 ed 0d  |7)....  ..... ..|
000022a0  0f b4 06 20 da 0d 0f be  16 20 f2 72 65 64 72 61  |... ..... .redra|
000022b0  77 73 63 72 28 22 61 62  63 22 29 0d 0f c8 5b 20  |wscr("abc")...[ |
000022c0  f2 70 72 69 6e 74 66 6f  6e 74 28 22 43 6f 72 70  |.printfont("Corp|
000022d0  75 73 2e 4d 65 64 69 75  6d 22 2c 32 34 2c 39 39  |us.Medium",24,99|
000022e0  30 2c 32 31 30 2d 28 28  32 2e 35 2a 34 35 29 2b  |0,210-((2.5*45)+|
000022f0  28 28 36 30 2f 33 30 29  2a 31 35 29 29 2c 66 77  |((60/30)*15)),fw|
00002300  68 69 74 65 25 2c 66 62  6c 61 63 6b 25 2c 6f 75  |hite%,fblack%,ou|
00002310  74 70 75 74 24 29 0d 0f  d2 14 20 c8 8e 20 6b 69  |tput$).... .. ki|
00002320  64 73 61 6e 73 77 65 72  20 ca 0d 0f dc 0e 20 20  |dsanswer .....  |
00002330  c9 20 6f 75 74 70 75 74  0d 0f e6 11 20 20 20 63  |. output....   c|
00002340  6f 72 72 65 63 74 2b 3d  31 0d 0f f0 49 20 20 20  |orrect+=1...I   |
00002350  f2 70 72 69 6e 74 66 6f  6e 74 28 22 48 6f 6d 65  |.printfont("Home|
00002360  72 74 6f 6e 2e 4d 65 64  69 75 6d 22 2c 33 36 2c  |rton.Medium",36,|
00002370  33 30 30 2c 31 32 30 2c  66 67 72 65 65 6e 25 2c  |300,120,fgreen%,|
00002380  66 62 6c 61 63 6b 25 2c  22 43 6f 72 72 65 63 74  |fblack%,"Correct|
00002390  22 29 0d 0f fa 2b 20 20  20 c8 99 20 22 58 4f 53  |")...+   .. "XOS|
000023a0  5f 43 4c 49 22 2c 22 43  68 61 6e 6e 65 6c 56 6f  |_CLI","ChannelVo|
000023b0  69 63 65 20 31 20 59 69  70 70 65 65 22 0d 10 04  |ice 1 Yippee"...|
000023c0  17 20 20 20 d4 20 31 2c  2d 31 35 2c 35 38 36 30  |.   . 1,-15,5860|
000023d0  2c 31 30 30 0d 10 0e 15  20 20 20 73 63 6f 72 65  |,100....   score|
000023e0  2b 3d 33 2a 64 69 66 66  25 0d 10 18 07 20 20 7f  |+=3*diff%....  .|
000023f0  0d 10 22 0f 20 20 20 77  72 6f 6e 67 2b 3d 31 0d  |..".   wrong+=1.|
00002400  10 2c 5a 20 20 20 f2 70  72 69 6e 74 66 6f 6e 74  |.,Z   .printfont|
00002410  28 22 48 6f 6d 65 72 74  6f 6e 2e 4d 65 64 69 75  |("Homerton.Mediu|
00002420  6d 22 2c 33 36 2c 33 30  30 2c 31 32 30 2c 66 72  |m",36,300,120,fr|
00002430  65 64 25 2c 66 62 6c 61  63 6b 25 2c 22 57 72 6f  |ed%,fblack%,"Wro|
00002440  6e 67 20 2d 20 22 2b 71  75 65 73 24 2b 22 3d 22  |ng - "+ques$+"="|
00002450  2b c3 6f 75 74 70 75 74  29 0d 10 36 2a 20 20 20  |+.output)..6*   |
00002460  c8 99 20 22 58 4f 53 5f  43 4c 49 22 2c 22 43 68  |.. "XOS_CLI","Ch|
00002470  61 6e 6e 65 6c 56 6f 69  63 65 20 31 20 57 72 6f  |annelVoice 1 Wro|
00002480  6e 67 22 0d 10 40 17 20  20 20 d4 20 31 2c 2d 31  |ng"..@.   . 1,-1|
00002490  35 2c 39 32 35 30 2c 31  30 30 0d 10 4a 06 20 cb  |5,9250,100..J. .|
000024a0  0d 10 54 4b 20 f2 70 72  69 6e 74 66 6f 6e 74 28  |..TK .printfont(|
000024b0  22 48 6f 6d 65 72 74 6f  6e 2e 4d 65 64 69 75 6d  |"Homerton.Medium|
000024c0  22 2c 32 34 2c 38 30 30  2c 39 35 30 2c 66 72 65  |",24,800,950,fre|
000024d0  64 25 2c 66 62 6c 61 63  6b 25 2c 22 50 72 65 73  |d%,fblack%,"Pres|
000024e0  73 20 3c 53 70 61 63 65  3e 22 29 0d 10 5e 14 20  |s <Space>")..^. |
000024f0  c8 99 20 22 4f 53 5f 42  79 74 65 22 2c 31 39 0d  |.. "OS_Byte",19.|
00002500  10 68 12 20 62 61 6e 6b  25 3d 33 2d 62 61 6e 6b  |.h. bank%=3-bank|
00002510  25 0d 10 72 36 20 c8 99  20 22 4f 53 5f 42 79 74  |%..r6 .. "OS_Byt|
00002520  65 22 2c 31 31 32 2c 62  61 6e 6b 25 20 3a 20 c8  |e",112,bank% : .|
00002530  99 20 22 4f 53 5f 42 79  74 65 22 2c 31 31 33 2c  |. "OS_Byte",113,|
00002540  33 2d 62 61 6e 6b 25 0d  10 7c 08 20 41 3d a5 0d  |3-bank%..|. A=..|
00002550  10 86 34 20 c8 99 20 22  4f 53 5f 42 79 74 65 22  |..4 .. "OS_Byte"|
00002560  2c 31 31 32 2c 62 61 6e  6b 25 20 3a 20 c8 99 20  |,112,bank% : .. |
00002570  22 4f 53 5f 42 79 74 65  22 2c 31 31 33 2c 62 61  |"OS_Byte",113,ba|
00002580  6e 6b 25 0d 10 90 0b 20  f2 63 6c 65 61 72 0d 10  |nk%.... .clear..|
00002590  9a 05 e1 0d 10 a4 04 0d  10 ae 12 dd 20 f2 70 61  |............ .pa|
000025a0  75 73 65 28 74 69 6d 65  29 0d 10 b8 0a 20 6f 6c  |use(time).... ol|
000025b0  64 3d 91 0d 10 c2 19 20  f5 20 fd 20 28 91 2d 6f  |d=..... . . (.-o|
000025c0  6c 64 29 3e 74 69 6d 65  2a 31 30 30 0d 10 cc 05  |ld)>time*100....|
000025d0  e1 0d 10 d6 04 0d 10 e0  19 dd 20 f2 72 65 64 72  |.......... .redr|
000025e0  61 77 73 63 72 28 73 74  72 69 6e 67 24 29 0d 10  |awscr(string$)..|
000025f0  ea 4d 20 f2 70 72 69 6e  74 66 6f 6e 74 28 22 48  |.M .printfont("H|
00002600  6f 6d 65 72 74 6f 6e 2e  4d 65 64 69 75 6d 22 2c  |omerton.Medium",|
00002610  33 38 2c 35 30 2c 36 30  30 2c 66 77 68 69 74 65  |38,50,600,fwhite|
00002620  25 2c 66 62 6c 61 63 6b  25 2c 22 57 68 61 74 20  |%,fblack%,"What |
00002630  69 73 20 22 2b 71 75 65  73 24 29 0d 10 f4 61 20  |is "+ques$)...a |
00002640  f2 70 72 69 6e 74 66 6f  6e 74 28 22 48 6f 6d 65  |.printfont("Home|
00002650  72 74 6f 6e 2e 4d 65 64  69 75 6d 22 2c 31 38 2c  |rton.Medium",18,|
00002660  35 30 2c 35 32 35 2c 66  77 68 69 74 65 25 2c 66  |50,525,fwhite%,f|
00002670  62 6c 61 63 6b 25 2c 22  54 79 70 65 20 79 6f 75  |black%,"Type you|
00002680  72 20 61 6e 73 77 65 72  20 61 6e 64 20 70 72 65  |r answer and pre|
00002690  73 73 20 52 65 74 75 72  6e 2e 22 29 0d 10 fe 12  |ss Return.")....|
000026a0  20 f2 75 70 64 61 74 65  6e 75 6d 62 65 72 0d 11  | .updatenumber..|
000026b0  08 53 20 f2 70 72 69 6e  74 66 6f 6e 74 28 22 48  |.S .printfont("H|
000026c0  6f 6d 65 72 74 6f 6e 2e  4d 65 64 69 75 6d 22 2c  |omerton.Medium",|
000026d0  32 34 2c 35 30 2c 32 30  2c 66 67 72 65 65 6e 25  |24,50,20,fgreen%|
000026e0  2c 66 62 6c 61 63 6b 25  2c 22 43 6f 72 72 65 63  |,fblack%,"Correc|
000026f0  74 20 2d 20 22 2b c3 28  63 6f 72 72 65 63 74 29  |t - "+.(correct)|
00002700  29 0d 11 12 4e 20 f2 70  72 69 6e 74 66 6f 6e 74  |)...N .printfont|
00002710  28 22 48 6f 6d 65 72 74  6f 6e 2e 4d 65 64 69 75  |("Homerton.Mediu|
00002720  6d 22 2c 32 34 2c 35 30  30 2c 32 30 2c 66 72 65  |m",24,500,20,fre|
00002730  64 25 2c 66 62 6c 61 63  6b 25 2c 22 57 72 6f 6e  |d%,fblack%,"Wron|
00002740  67 20 2d 20 22 2b c3 28  77 72 6f 6e 67 29 29 0d  |g - "+.(wrong)).|
00002750  11 1c 1d 20 f2 70 6c 6f  74 73 70 72 69 74 65 28  |... .plotsprite(|
00002760  22 43 61 74 22 2c 35 30  2c 37 35 29 0d 11 26 19  |"Cat",50,75)..&.|
00002770  20 e7 20 a7 73 74 72 69  6e 67 24 2c 22 61 22 29  | . .string$,"a")|
00002780  3c 3e 30 20 8c 0d 11 30  0f 20 20 e6 20 34 32 20  |<>0 ...0.  . 42 |
00002790  c8 9c 20 30 0d 11 3a 18  20 20 c8 93 20 c8 90 20  |.. 0..:.  .. .. |
000027a0  30 2c 39 32 35 2c 32 35  2c 32 30 30 0d 11 44 1a  |0,925,25,200..D.|
000027b0  20 20 c8 93 20 c8 90 20  32 30 30 2c 39 32 35 2c  |  .. .. 200,925,|
000027c0  32 35 2c 32 30 30 0d 11  4e 06 20 cd 0d 11 58 19  |25,200..N. ...X.|
000027d0  20 e7 20 a7 73 74 72 69  6e 67 24 2c 22 62 22 29  | . .string$,"b")|
000027e0  3c 3e 30 20 8c 0d 11 62  24 20 20 f2 70 6c 6f 74  |<>0 ...b$  .plot|
000027f0  73 70 72 69 74 65 28 22  63 6f 6e 76 65 79 6f 72  |sprite("conveyor|
00002800  30 22 2c 30 2c 37 39 35  29 0d 11 6c 06 20 cd 0d  |0",0,795)..l. ..|
00002810  11 76 19 20 e7 20 a7 73  74 72 69 6e 67 24 2c 22  |.v. . .string$,"|
00002820  63 22 29 3c 3e 30 20 8c  0d 11 80 15 20 20 6d 78  |c")<>0 .....  mx|
00002830  3d 38 32 35 20 3a 20 6d  79 3d 32 30 30 0d 11 8a  |=825 : my=200...|
00002840  24 20 20 f2 70 6c 6f 74  73 70 72 69 74 65 28 22  |$  .plotsprite("|
00002850  6d 61 63 68 69 6e 65 22  2c 38 32 35 2c 32 30 30  |machine",825,200|
00002860  29 0d 11 94 28 20 20 f2  70 6c 6f 74 73 70 72 69  |)...(  .plotspri|
00002870  74 65 28 22 57 68 65 65  6c 30 b0 22 2c 6d 78 2b  |te("Wheel0.",mx+|
00002880  38 30 2c 6d 79 2b 34 30  29 0d 11 9e 29 20 20 f2  |80,my+40)...)  .|
00002890  70 6c 6f 74 73 70 72 69  74 65 28 22 57 68 65 65  |plotsprite("Whee|
000028a0  6c 30 b0 22 2c 6d 78 2b  32 34 33 2c 6d 79 2b 34  |l0.",mx+243,my+4|
000028b0  30 29 0d 11 a8 29 20 20  f2 70 6c 6f 74 73 70 72  |0)...)  .plotspr|
000028c0  69 74 65 28 22 57 68 65  65 6c 30 b0 22 2c 6d 78  |ite("Wheel0.",mx|
000028d0  2b 38 32 2c 6d 79 2b 32  38 37 29 0d 11 b2 2a 20  |+82,my+287)...* |
000028e0  20 f2 70 6c 6f 74 73 70  72 69 74 65 28 22 57 68  | .plotsprite("Wh|
000028f0  65 65 6c 30 b0 22 2c 6d  78 2b 32 34 33 2c 6d 79  |eel0.",mx+243,my|
00002900  2b 32 38 37 29 0d 11 bc  06 20 cd 0d 11 c6 19 20  |+287).... ..... |
00002910  e7 20 a7 73 74 72 69 6e  67 24 2c 22 64 22 29 3c  |. .string$,"d")<|
00002920  3e 30 20 8c 0d 11 d0 0f  20 20 e6 20 34 32 20 c8  |>0 .....  . 42 .|
00002930  9c 20 30 0d 11 da 19 20  20 c8 93 20 c8 90 20 30  |. 0....  .. .. 0|
00002940  2c 39 32 35 2c 32 30 30  20 2c 32 35 0d 11 e4 42  |,925,200 ,25...B|
00002950  20 20 f2 70 72 69 6e 74  66 6f 6e 74 28 22 43 6f  |  .printfont("Co|
00002960  72 70 75 73 2e 4d 65 64  69 75 6d 22 2c 32 34 2c  |rpus.Medium",24,|
00002970  35 30 2c 39 37 35 2c 66  77 68 69 74 65 25 2c 66  |50,975,fwhite%,f|
00002980  62 6c 61 63 6b 25 2c 69  6e 70 75 74 24 29 0d 11  |black%,input$)..|
00002990  ee 06 20 cd 0d 11 f8 05  e1 0d 12 02 04 0d 12 0c  |.. .............|
000029a0  22 dd 20 f2 70 6c 6f 74  73 70 72 69 74 65 28 73  |". .plotsprite(s|
000029b0  70 72 69 74 65 6e 61 6d  65 24 2c 78 2c 79 29 0d  |pritename$,x,y).|
000029c0  12 16 37 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |..7.. "OS_Sprite|
000029d0  4f 70 22 2c 32 35 36 2b  33 34 2c 73 70 72 69 74  |Op",256+34,sprit|
000029e0  65 73 25 2c 73 70 72 69  74 65 6e 61 6d 65 24 2c  |es%,spritename$,|
000029f0  78 2c 79 2c 26 38 0d 12  20 05 e1 0d 12 2a 04 0d  |x,y,&8.. ....*..|
00002a00  12 34 15 dd 20 f2 73 65  74 66 6f 6e 74 63 6f 6c  |.4.. .setfontcol|
00002a10  6f 75 72 73 0d 12 3e 18  66 77 68 69 74 65 25 20  |ours..>.fwhite% |
00002a20  20 3d 20 26 46 46 46 46  46 46 30 30 0d 12 48 18  | = &FFFFFF00..H.|
00002a30  66 62 6c 61 63 6b 25 20  20 3d 20 26 30 30 30 30  |fblack%  = &0000|
00002a40  30 30 30 30 0d 12 52 18  66 79 65 6c 6c 6f 77 25  |0000..R.fyellow%|
00002a50  20 3d 20 26 30 30 45 45  45 45 30 30 0d 12 5c 18  | = &00EEEE00..\.|
00002a60  66 67 72 65 65 6e 25 20  20 3d 20 26 30 30 44 44  |fgreen%  = &00DD|
00002a70  30 30 30 30 0d 12 66 18  66 72 65 64 25 20 20 20  |0000..f.fred%   |
00002a80  20 3d 20 26 30 30 30 30  44 44 30 30 0d 12 70 18  | = &0000DD00..p.|
00002a90  66 62 6c 75 65 25 20 20  20 3d 20 26 38 38 34 34  |fblue%   = &8844|
00002aa0  30 30 30 30 0d 12 7a 18  66 70 75 72 70 6c 65 25  |0000..z.fpurple%|
00002ab0  20 3d 20 26 44 44 30 30  30 39 30 30 0d 12 84 05  | = &DD000900....|
00002ac0  e1 0d 12 8e 04 0d 12 98  47 dd 20 f2 70 72 69 6e  |........G. .prin|
00002ad0  74 66 6f 6e 74 28 66 6f  6e 74 6e 61 6d 65 24 2c  |tfont(fontname$,|
00002ae0  66 6f 6e 74 73 69 7a 65  25 2c 78 2c 79 2c 66 6f  |fontsize%,x,y,fo|
00002af0  72 65 63 6f 6c 6f 75 72  25 2c 62 61 63 6b 63 6f  |recolour%,backco|
00002b00  6c 6f 75 72 25 2c 74 65  78 74 24 29 0d 12 a2 1b  |lour%,text$)....|
00002b10  20 66 6f 6e 74 73 69 7a  65 25 3d 66 6f 6e 74 73  | fontsize%=fonts|
00002b20  69 7a 65 25 2a 31 36 0d  12 ac 42 20 c8 99 20 22  |ize%*16...B .. "|
00002b30  46 6f 6e 74 5f 53 65 74  50 61 6c 65 74 74 65 22  |Font_SetPalette"|
00002b40  2c 2c 30 2c 31 2c 36 2c  62 61 63 6b 63 6f 6c 6f  |,,0,1,6,backcolo|
00002b50  75 72 25 2c 66 6f 72 65  63 6f 6c 6f 75 72 25 2c  |ur%,forecolour%,|
00002b60  26 36 35 37 35 37 32 35  34 0d 12 b6 48 20 c8 99  |&65757254...H ..|
00002b70  20 22 46 6f 6e 74 5f 46  69 6e 64 46 6f 6e 74 22  | "Font_FindFont"|
00002b80  2c 2c 66 6f 6e 74 6e 61  6d 65 24 2c 66 6f 6e 74  |,,fontname$,font|
00002b90  73 69 7a 65 25 2c 66 6f  6e 74 73 69 7a 65 25 2c  |size%,fontsize%,|
00002ba0  30 2c 30 20 b8 20 66 6f  6e 74 68 61 6e 64 6c 65  |0,0 . fonthandle|
00002bb0  25 0d 12 c0 4b 20 c8 99  20 22 43 6f 6c 6f 75 72  |%...K .. "Colour|
00002bc0  54 72 61 6e 73 5f 53 65  74 46 6f 6e 74 43 6f 6c  |Trans_SetFontCol|
00002bd0  6f 75 72 73 22 2c 66 6f  6e 74 68 61 6e 64 6c 65  |ours",fonthandle|
00002be0  25 2c 62 61 63 6b 63 6f  6c 6f 75 72 25 2c 66 6f  |%,backcolour%,fo|
00002bf0  72 65 63 6f 6c 6f 75 72  25 2c 31 34 0d 12 ca 2e  |recolour%,14....|
00002c00  20 c8 99 20 22 46 6f 6e  74 5f 50 61 69 6e 74 22  | .. "Font_Paint"|
00002c10  2c 66 6f 6e 74 68 61 6e  64 6c 65 25 2c 74 65 78  |,fonthandle%,tex|
00002c20  74 24 2c 37 38 34 2c 78  2c 79 0d 12 d4 23 20 c8  |t$,784,x,y...# .|
00002c30  99 20 22 46 6f 6e 74 5f  4c 6f 73 65 46 6f 6e 74  |. "Font_LoseFont|
00002c40  22 2c 66 6f 6e 74 68 61  6e 64 6c 65 25 0d 12 de  |",fonthandle%...|
00002c50  05 e1 0d 12 e8 04 0d 12  f2 42 20 c8 99 20 22 46  |.........B .. "F|
00002c60  6f 6e 74 5f 53 65 74 50  61 6c 65 74 74 65 22 2c  |ont_SetPalette",|
00002c70  2c 30 2c 31 2c 36 2c 62  61 63 6b 63 6f 6c 6f 75  |,0,1,6,backcolou|
00002c80  72 25 2c 66 6f 72 65 63  6f 6c 6f 75 72 25 2c 26  |r%,forecolour%,&|
00002c90  36 35 37 35 37 32 35 34  0d 12 fc 4b 20 c8 99 20  |65757254...K .. |
00002ca0  22 43 6f 6c 6f 75 72 54  72 61 6e 73 5f 53 65 74  |"ColourTrans_Set|
00002cb0  46 6f 6e 74 43 6f 6c 6f  75 72 73 22 2c 66 6f 6e  |FontColours",fon|
00002cc0  74 68 61 6e 64 6c 65 25  2c 62 61 63 6b 63 6f 6c  |thandle%,backcol|
00002cd0  6f 75 72 25 2c 66 6f 72  65 63 6f 6c 6f 75 72 25  |our%,forecolour%|
00002ce0  2c 31 34 0d 13 06 2e 20  c8 99 20 22 46 6f 6e 74  |,14.... .. "Font|
00002cf0  5f 50 61 69 6e 74 22 2c  66 6f 6e 74 68 61 6e 64  |_Paint",fonthand|
00002d00  6c 65 25 2c 74 65 78 74  24 2c 37 38 34 2c 78 2c  |le%,text$,784,x,|
00002d10  79 0d 13 10 05 e1 0d 13  1a 04 0d 13 24 29 dd 20  |y...........$). |
00002d20  a4 67 65 74 66 6f 6e 74  68 61 6e 64 6c 65 28 66  |.getfonthandle(f|
00002d30  6f 6e 74 6e 61 6d 65 24  2c 66 6f 6e 74 73 69 7a  |ontname$,fontsiz|
00002d40  65 25 29 0d 13 2e 0f 20  ea 20 66 68 61 6e 64 6c  |e%).... . fhandl|
00002d50  65 25 0d 13 38 1b 20 66  6f 6e 74 73 69 7a 65 25  |e%..8. fontsize%|
00002d60  3d 66 6f 6e 74 73 69 7a  65 25 2a 31 36 0d 13 42  |=fontsize%*16..B|
00002d70  49 20 c8 99 20 22 46 6f  6e 74 5f 46 69 6e 64 46  |I .. "Font_FindF|
00002d80  6f 6e 74 22 2c 2c 66 6f  6e 74 6e 61 6d 65 24 2c  |ont",,fontname$,|
00002d90  66 6f 6e 74 73 69 7a 65  25 2c 66 6f 6e 74 73 69  |fontsize%,fontsi|
00002da0  7a 65 25 2f 30 2e 35 2c  30 2c 30 20 b8 20 66 68  |ze%/0.5,0,0 . fh|
00002db0  61 6e 64 6c 65 25 0d 13  4c 0d 3d 66 68 61 6e 64  |andle%..L.=fhand|
00002dc0  6c 65 25 0d 13 56 04 0d  13 60 10 dd 20 f2 67 65  |le%..V...`.. .ge|
00002dd0  74 6e 75 6d 62 65 72 0d  13 6a 48 f4 20 56 61 72  |tnumber..jH. Var|
00002de0  69 61 62 6c 65 73 20 3a  20 6e 75 6d 62 65 72 28  |iables : number(|
00002df0  34 29 20 2f 20 70 6f 73  3d 30 20 2f 20 74 78 20  |4) / pos=0 / tx |
00002e00  2f 20 74 79 20 2f 20 67  65 74 6e 75 6d 62 65 72  |/ ty / getnumber|
00002e10  66 69 6e 69 73 68 65 64  25 3d 46 41 4c 53 45 0d  |finished%=FALSE.|
00002e20  13 74 07 41 3d a5 0d 13  7e 0a c8 8e 20 41 20 ca  |.t.A=...~... A .|
00002e30  0d 13 88 12 20 c9 20 34  39 20 3a 20 6e 24 3d 22  |.... . 49 : n$="|
00002e40  31 22 0d 13 92 12 20 c9  20 35 30 20 3a 20 6e 24  |1".... . 50 : n$|
00002e50  3d 22 32 22 0d 13 9c 12  20 c9 20 35 31 20 3a 20  |="2".... . 51 : |
00002e60  6e 24 3d 22 33 22 0d 13  a6 12 20 c9 20 35 32 20  |n$="3".... . 52 |
00002e70  3a 20 6e 24 3d 22 34 22  0d 13 b0 12 20 c9 20 35  |: n$="4".... . 5|
00002e80  33 20 3a 20 6e 24 3d 22  35 22 0d 13 ba 12 20 c9  |3 : n$="5".... .|
00002e90  20 35 34 20 3a 20 6e 24  3d 22 36 22 0d 13 c4 12  | 54 : n$="6"....|
00002ea0  20 c9 20 35 35 20 3a 20  6e 24 3d 22 37 22 0d 13  | . 55 : n$="7"..|
00002eb0  ce 12 20 c9 20 35 36 20  3a 20 6e 24 3d 22 38 22  |.. . 56 : n$="8"|
00002ec0  0d 13 d8 12 20 c9 20 35  37 20 3a 20 6e 24 3d 22  |.... . 57 : n$="|
00002ed0  39 22 0d 13 e2 12 20 c9  20 34 38 20 3a 20 6e 24  |9".... . 48 : n$|
00002ee0  3d 22 30 22 0d 13 ec 17  20 c9 20 31 33 20 3a 20  |="0".... . 13 : |
00002ef0  6e 24 3d 22 52 65 74 75  72 6e 22 0d 13 f6 1a 20  |n$="Return".... |
00002f00  c9 20 38 2c 31 32 37 20  3a 20 6e 24 3d 22 44 65  |. 8,127 : n$="De|
00002f10  6c 65 74 65 22 0d 14 00  0a 20 7f 20 3a 20 e1 0d  |lete".... . : ..|
00002f20  14 0a 05 cb 0d 14 14 0b  c8 8e 20 6e 24 20 ca 0d  |.......... n$ ..|
00002f30  14 1e 0f 20 c9 20 22 44  65 6c 65 74 65 22 0d 14  |... . "Delete"..|
00002f40  28 12 20 20 20 e7 20 70  6f 73 3d 30 20 8c 20 e1  |(.   . pos=0 . .|
00002f50  0d 14 32 0d 20 20 20 70  6f 73 2d 3d 31 0d 14 3c  |..2.   pos-=1..<|
00002f60  17 20 20 20 6e 75 6d 62  65 72 28 70 6f 73 2b 31  |.   number(pos+1|
00002f70  29 3d 2d 31 0d 14 46 07  20 20 e1 0d 14 50 0f 20  |)=-1..F.  ...P. |
00002f80  c9 20 22 52 65 74 75 72  6e 22 0d 14 5a 1a 20 20  |. "Return"..Z.  |
00002f90  67 65 74 6e 75 6d 62 65  72 66 69 6e 69 73 68 65  |getnumberfinishe|
00002fa0  64 25 3d b9 0d 14 64 07  20 20 e1 0d 14 6e 05 cb  |d%=...d.  ...n..|
00002fb0  0d 14 78 0a 70 6f 73 2b  3d 31 0d 14 82 0d e7 20  |..x.pos+=1..... |
00002fc0  70 6f 73 3d 35 20 8c 0d  14 8c 0b 20 70 6f 73 2d  |pos=5 ..... pos-|
00002fd0  3d 31 0d 14 96 06 20 e1  0d 14 a0 05 cd 0d 14 aa  |=1.... .........|
00002fe0  0a c8 8e 20 41 20 ca 0d  14 b4 24 20 c9 20 34 38  |... A ....$ . 48|
00002ff0  2c 34 39 2c 35 30 2c 35  31 2c 35 32 2c 35 33 2c  |,49,50,51,52,53,|
00003000  35 34 2c 35 35 2c 35 36  2c 35 37 0d 14 be 17 20  |54,55,56,57.... |
00003010  20 6e 75 6d 62 65 72 28  70 6f 73 29 3d a0 28 6e  | number(pos)=.(n|
00003020  24 29 0d 14 c8 05 cb 0d  14 d2 05 e1 0d 14 dc 04  |$)..............|
00003030  0d 14 e6 13 dd 20 f2 75  70 64 61 74 65 6e 75 6d  |..... .updatenum|
00003040  62 65 72 0d 14 f0 0e 20  ea 20 73 74 72 69 6e 67  |ber.... . string|
00003050  24 0d 14 fa 45 20 61 6e  73 77 65 72 3d 28 31 30  |$...E answer=(10|
00003060  30 30 2a 6e 75 6d 62 65  72 28 31 29 29 2b 28 31  |00*number(1))+(1|
00003070  30 30 2a 6e 75 6d 62 65  72 28 32 29 29 2b 28 31  |00*number(2))+(1|
00003080  30 2a 6e 75 6d 62 65 72  28 33 29 29 2b 6e 75 6d  |0*number(3))+num|
00003090  62 65 72 28 34 29 0d 15  04 45 20 e7 20 6e 75 6d  |ber(4)...E . num|
000030a0  62 65 72 28 34 29 3d 2d  31 20 8c 20 61 6e 73 77  |ber(4)=-1 . answ|
000030b0  65 72 3d 28 31 30 30 2a  6e 75 6d 62 65 72 28 31  |er=(100*number(1|
000030c0  29 29 2b 28 31 30 2a 6e  75 6d 62 65 72 28 32 29  |))+(10*number(2)|
000030d0  29 2b 6e 75 6d 62 65 72  28 33 29 0d 15 0e 44 20  |)+number(3)...D |
000030e0  e7 20 6e 75 6d 62 65 72  28 34 29 3d 2d 31 20 80  |. number(4)=-1 .|
000030f0  20 6e 75 6d 62 65 72 28  33 29 3d 2d 31 20 8c 20  | number(3)=-1 . |
00003100  61 6e 73 77 65 72 3d 28  31 30 2a 6e 75 6d 62 65  |answer=(10*numbe|
00003110  72 28 31 29 29 2b 6e 75  6d 62 65 72 28 32 29 0d  |r(1))+number(2).|
00003120  15 18 44 20 e7 20 6e 75  6d 62 65 72 28 34 29 3d  |..D . number(4)=|
00003130  2d 31 20 80 20 6e 75 6d  62 65 72 28 33 29 3d 2d  |-1 . number(3)=-|
00003140  31 20 80 20 6e 75 6d 62  65 72 28 32 29 3d 2d 31  |1 . number(2)=-1|
00003150  20 8c 20 61 6e 73 77 65  72 3d 6e 75 6d 62 65 72  | . answer=number|
00003160  28 31 29 0d 15 22 4b 20  e7 20 6e 75 6d 62 65 72  |(1).."K . number|
00003170  28 34 29 3d 2d 31 20 80  20 6e 75 6d 62 65 72 28  |(4)=-1 . number(|
00003180  33 29 3d 2d 31 20 80 20  6e 75 6d 62 65 72 28 32  |3)=-1 . number(2|
00003190  29 3d 2d 31 20 80 20 6e  75 6d 62 65 72 28 31 29  |)=-1 . number(1)|
000031a0  3d 2d 31 20 8c 20 61 6e  73 77 65 72 3d 30 0d 15  |=-1 . answer=0..|
000031b0  2c 30 20 e7 20 61 6e 73  77 65 72 3d 30 20 8c 20  |,0 . answer=0 . |
000031c0  73 74 72 69 6e 67 24 3d  22 22 20 8b 20 73 74 72  |string$="" . str|
000031d0  69 6e 67 24 3d c3 28 61  6e 73 77 65 72 29 0d 15  |ing$=.(answer)..|
000031e0  36 42 20 f2 70 72 69 6e  74 66 6f 6e 74 28 22 48  |6B .printfont("H|
000031f0  6f 6d 65 72 74 6f 6e 2e  4d 65 64 69 75 6d 22 2c  |omerton.Medium",|
00003200  34 38 2c 74 78 2c 74 79  2c 66 62 6c 75 65 25 2c  |48,tx,ty,fblue%,|
00003210  66 62 6c 61 63 6b 25 2c  73 74 72 69 6e 67 24 29  |fblack%,string$)|
00003220  0d 15 40 05 e1 0d 15 4a  04 0d 15 54 0c dd 20 f2  |..@....J...T.. .|
00003230  63 6c 65 61 72 0d 15 5e  0d 66 78 6e 6f 3d b3 28  |clear..^.fxno=.(|
00003240  37 29 0d 15 68 0d c8 8e  20 66 78 6e 6f 20 ca 0d  |7)..h... fxno ..|
00003250  15 72 08 20 c9 20 31 0d  15 7c 0e 20 20 e6 20 30  |.r. . 1..|.  . 0|
00003260  20 c8 9c 20 30 0d 15 86  12 20 20 e3 20 78 3d 30  | .. 0....  . x=0|
00003270  20 b8 20 31 33 30 30 0d  15 90 12 20 20 86 20 78  | . 1300....  . x|
00003280  2c 30 2c 78 2c 31 33 30  30 0d 15 9a 07 20 20 ed  |,0,x,1300....  .|
00003290  0d 15 a4 07 20 20 e1 0d  15 ae 08 20 c9 20 32 0d  |....  ..... . 2.|
000032a0  15 b8 0e 20 20 e6 20 30  20 c8 9c 20 30 0d 15 c2  |...  . 0 .. 0...|
000032b0  0d 20 20 78 32 3d 31 32  38 31 0d 15 cc 11 20 20  |.  x2=1281....  |
000032c0  e3 20 78 3d 30 20 b8 20  36 34 30 0d 15 d6 0b 20  |. x=0 . 640.... |
000032d0  20 78 32 2d 3d 31 0d 15  e0 12 20 20 86 20 78 2c  | x2-=1....  . x,|
000032e0  30 2c 78 2c 31 33 30 30  0d 15 ea 14 20 20 86 20  |0,x,1300....  . |
000032f0  78 32 2c 30 2c 78 32 2c  31 33 30 30 0d 15 f4 07  |x2,0,x2,1300....|
00003300  20 20 ed 0d 15 fe 07 20  20 e1 0d 16 08 08 20 c9  |  .....  ..... .|
00003310  20 33 0d 16 12 0e 20 20  e6 20 30 20 c8 9c 20 30  | 3....  . 0 .. 0|
00003320  0d 16 1c 0d 20 20 7a 32  3d 32 36 30 31 0d 16 26  |....  z2=2601..&|
00003330  12 20 20 e3 20 7a 3d 30  20 b8 20 31 33 30 30 0d  |.  . z=0 . 1300.|
00003340  16 30 0b 20 20 7a 32 2d  3d 31 0d 16 3a 11 20 20  |.0.  z2-=1..:.  |
00003350  86 20 30 2c 7a 32 2c 7a  32 2c 30 0d 16 44 0f 20  |. 0,z2,z2,0..D. |
00003360  20 86 20 7a 2c 30 2c 30  2c 7a 0d 16 4e 07 20 20  | . z,0,0,z..N.  |
00003370  ed 0d 16 58 07 20 20 e1  0d 16 62 08 20 c9 20 34  |...X.  ...b. . 4|
00003380  0d 16 6c 0e 20 20 e6 20  30 20 c8 9c 20 30 0d 16  |..l.  . 0 .. 0..|
00003390  76 15 20 20 e3 20 7a 3d  30 20 b8 20 35 31 32 20  |v.  . z=0 . 512 |
000033a0  88 20 34 0d 16 80 28 20  20 c8 93 20 c8 90 20 36  |. 4...(  .. .. 6|
000033b0  34 30 2d 28 7a 2a 31 2e  32 35 29 2c 35 31 32 2d  |40-(z*1.25),512-|
000033c0  7a 2c 7a 2a 32 2e 35 2c  7a 2a 32 0d 16 8a 07 20  |z,z*2.5,z*2.... |
000033d0  20 ed 0d 16 94 07 20 20  e1 0d 16 9e 08 20 c9 20  | .....  ..... . |
000033e0  35 0d 16 a8 0e 20 20 e6  20 30 20 c8 9c 20 30 0d  |5....  . 0 .. 0.|
000033f0  16 b2 09 20 20 79 3d 30  0d 16 bc 16 20 20 e3 20  |...  y=0....  . |
00003400  78 3d 30 20 b8 20 31 33  30 30 20 88 20 35 0d 16  |x=0 . 1300 . 5..|
00003410  c6 12 20 20 86 20 78 2c  30 2c 78 2c 31 33 30 30  |..  . x,0,x,1300|
00003420  0d 16 d0 12 20 20 86 20  30 2c 79 2c 31 33 30 30  |....  . 0,y,1300|
00003430  2c 79 0d 16 da 0a 20 20  79 2b 3d 35 0d 16 e4 07  |,y....  y+=5....|
00003440  20 20 ed 0d 16 ee 16 20  20 e3 20 78 3d 30 20 b8  |  .....  . x=0 .|
00003450  20 31 30 30 30 20 88 20  37 0d 16 f8 15 20 20 c8  | 1000 . 7....  .|
00003460  8f 20 c8 90 20 36 34 30  2c 35 31 32 2c 78 0d 17  |. .. 640,512,x..|
00003470  02 07 20 20 ed 0d 17 0c  07 20 20 e1 0d 17 16 08  |..  .....  .....|
00003480  20 c9 20 36 0d 17 20 0e  20 20 e6 20 30 20 c8 9c  | . 6.. .  . 0 ..|
00003490  20 30 0d 17 2a 12 20 20  e3 20 78 3d 31 20 b8 20  | 0..*.  . x=1 . |
000034a0  31 30 30 30 0d 17 34 22  20 20 c8 8f 20 c8 90 20  |1000..4"  .. .. |
000034b0  b3 28 31 33 30 30 29 2c  b3 28 31 30 30 30 29 2c  |.(1300),.(1000),|
000034c0  b3 28 31 30 30 29 0d 17  3e 07 20 20 ed 0d 17 48  |.(100)..>.  ...H|
000034d0  07 20 20 da 0d 17 52 07  20 20 e1 0d 17 5c 08 20  |.  ...R.  ...\. |
000034e0  c9 20 37 0d 17 66 0e 20  20 e6 20 30 20 c8 9c 20  |. 7..f.  . 0 .. |
000034f0  30 0d 17 70 18 20 20 e3  20 79 3d 30 20 b8 20 31  |0..p.  . y=0 . 1|
00003500  30 30 30 20 88 20 31 30  30 0d 17 7a 18 20 20 e3  |000 . 100..z.  .|
00003510  20 78 3d 30 20 b8 20 31  33 30 30 20 88 20 31 30  | x=0 . 1300 . 10|
00003520  30 0d 17 84 17 20 20 c8  93 20 c8 90 20 78 2c 79  |0....  .. .. x,y|
00003530  2c 31 30 30 2c 31 30 30  0d 17 8e 09 20 20 ed 20  |,100,100....  . |
00003540  2c 0d 17 98 07 20 20 e1  0d 17 a2 05 cb 0d 17 ac  |,....  .........|
00003550  04 0d 17 b6 15 dd 20 f2  73 68 6f 6f 74 74 68 65  |...... .shootthe|
00003560  62 61 64 64 69 65 0d 17  c0 1e 20 e3 20 67 6f 65  |baddie.... . goe|
00003570  73 3d 63 6f 72 72 65 63  74 2b 31 20 b8 20 31 20  |s=correct+1 . 1 |
00003580  88 20 2d 31 0d 17 ca 10  20 20 65 6e 64 6c 6f 6f  |. -1....  endloo|
00003590  70 25 3d a3 0d 17 d4 0f  20 20 67 3d b3 28 36 34  |p%=.....  g=.(64|
000035a0  29 2d 31 0d 17 de 1c 20  20 63 68 61 6e 67 65 62  |)-1....  changeb|
000035b0  61 64 64 69 65 3d 31 38  30 2b b3 28 35 30 29 0d  |addie=180+.(50).|
000035c0  17 e8 0b 20 20 6f 6c 64  3d 91 0d 17 f2 15 20 20  |...  old=.....  |
000035d0  62 61 64 78 3d b3 28 38  30 30 29 2b 31 30 30 0d  |badx=.(800)+100.|
000035e0  17 fc 10 20 20 63 72 61  66 74 78 3d 33 35 30 0d  |...  craftx=350.|
000035f0  18 06 1a 20 20 62 75 67  31 78 3d 36 30 30 20 3a  |...  bug1x=600 :|
00003600  20 62 75 67 31 69 3d 32  35 0d 18 10 1b 20 20 62  | bug1i=25....  b|
00003610  75 67 32 78 3d 35 30 30  20 3a 20 62 75 67 32 69  |ug2x=500 : bug2i|
00003620  3d 2d 32 35 0d 18 1a 04  0d 18 24 0f 20 20 e3 20  |=-25......$.  . |
00003630  78 3d 31 20 b8 20 32 0d  18 2e 19 20 20 20 c8 99  |x=1 . 2....   ..|
00003640  20 22 4f 53 5f 42 79 74  65 22 2c 31 31 32 2c 78  | "OS_Byte",112,x|
00003650  0d 18 38 08 20 20 20 da  0d 18 42 07 20 20 ed 0d  |..8.   ...B.  ..|
00003660  18 4c 0d 20 20 62 61 6e  6b 25 3d 31 0d 18 56 04  |.L.  bank%=1..V.|
00003670  0d 18 60 07 20 20 f5 0d  18 6a 16 20 20 20 c8 99  |..`.  ...j.   ..|
00003680  20 22 4f 53 5f 42 79 74  65 22 2c 31 39 0d 18 74  | "OS_Byte",19..t|
00003690  14 20 20 20 62 61 6e 6b  25 3d 33 2d 62 61 6e 6b  |.   bank%=3-bank|
000036a0  25 0d 18 7e 38 20 20 20  c8 99 20 22 4f 53 5f 42  |%..~8   .. "OS_B|
000036b0  79 74 65 22 2c 31 31 32  2c 62 61 6e 6b 25 20 3a  |yte",112,bank% :|
000036c0  20 c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 31 31  | .. "OS_Byte",11|
000036d0  33 2c 33 2d 62 61 6e 6b  25 0d 18 88 08 20 20 20  |3,3-bank%....   |
000036e0  da 0d 18 92 11 20 20 20  e6 20 67 20 c8 9c 20 32  |.....   . g .. 2|
000036f0  35 35 0d 18 9c 16 20 20  20 c8 93 20 30 2c 30 2c  |55....   .. 0,0,|
00003700  31 32 35 30 2c 39 35 30  0d 18 a6 17 20 20 20 86  |1250,950....   .|
00003710  20 30 2c 31 30 30 2c 31  32 35 30 2c 31 30 30 0d  | 0,100,1250,100.|
00003720  18 b0 11 20 20 20 e6 20  67 20 c8 9c 20 31 38 30  |...   . g .. 180|
00003730  0d 18 ba 16 20 20 20 c8  93 20 32 2c 32 2c 31 32  |....   .. 2,2,12|
00003740  34 36 2c 39 34 36 0d 18  c4 17 20 20 20 86 20 30  |46,946....   . 0|
00003750  2c 31 30 32 2c 31 32 35  30 2c 31 30 32 0d 18 ce  |,102,1250,102...|
00003760  11 20 20 20 e6 20 67 20  c8 9c 20 31 32 37 0d 18  |.   . g .. 127..|
00003770  d8 16 20 20 20 c8 93 20  34 2c 34 2c 31 32 34 32  |..   .. 4,4,1242|
00003780  2c 39 34 32 0d 18 e2 17  20 20 20 86 20 30 2c 31  |,942....   . 0,1|
00003790  30 34 2c 31 32 35 30 2c  31 30 34 0d 18 ec 10 20  |04,1250,104.... |
000037a0  20 20 e6 20 67 20 c8 9c  20 36 33 0d 18 f6 16 20  |  . g .. 63.... |
000037b0  20 20 c8 93 20 36 2c 36  2c 31 32 33 38 2c 39 33  |  .. 6,6,1238,93|
000037c0  38 0d 19 00 17 20 20 20  86 20 30 2c 31 30 36 2c  |8....   . 0,106,|
000037d0  31 32 35 30 2c 31 30 36  0d 19 0a 04 0d 19 14 4f  |1250,106.......O|
000037e0  20 20 20 f2 70 72 69 6e  74 66 6f 6e 74 28 22 48  |   .printfont("H|
000037f0  6f 6d 65 72 74 6f 6e 2e  4d 65 64 69 75 6d 22 2c  |omerton.Medium",|
00003800  32 34 2c 32 35 2c 33 33  2c 66 67 72 65 65 6e 25  |24,25,33,fgreen%|
00003810  2c 66 62 6c 61 63 6b 25  2c 22 53 63 6f 72 65 20  |,fblack%,"Score |
00003820  2d 20 22 2b c3 73 63 6f  72 65 29 0d 19 1e 55 20  |- "+.score)...U |
00003830  20 20 f2 70 72 69 6e 74  66 6f 6e 74 28 22 48 6f  |  .printfont("Ho|
00003840  6d 65 72 74 6f 6e 2e 4d  65 64 69 75 6d 22 2c 32  |merton.Medium",2|
00003850  34 2c 35 32 35 2c 33 33  2c 66 67 72 65 65 6e 25  |4,525,33,fgreen%|
00003860  2c 66 62 6c 61 63 6b 25  2c 22 53 68 6f 6f 74 73  |,fblack%,"Shoots|
00003870  20 4c 65 66 74 20 2d 20  22 2b c3 67 6f 65 73 29  | Left - "+.goes)|
00003880  0d 19 28 36 20 20 20 e7  20 28 91 2d 6f 6c 64 29  |..(6   . (.-old)|
00003890  3e 63 68 61 6e 67 65 62  61 64 64 69 65 20 8c 20  |>changebaddie . |
000038a0  62 61 64 78 3d b3 28 39  30 30 29 2b 32 30 20 3a  |badx=.(900)+20 :|
000038b0  20 6f 6c 64 3d 91 0d 19  32 25 20 20 20 f2 70 6c  | old=...2%   .pl|
000038c0  6f 74 73 70 72 69 74 65  28 22 42 61 64 64 69 65  |otsprite("Baddie|
000038d0  22 2c 62 61 64 78 2c 37  32 35 29 0d 19 3c 04 0d  |",badx,725)..<..|
000038e0  19 46 4b 20 20 20 62 75  67 31 78 2b 3d 62 75 67  |.FK   bug1x+=bug|
000038f0  31 69 20 3a 20 e7 20 28  62 75 67 31 78 3e 31 31  |1i : . (bug1x>11|
00003900  35 30 20 84 20 62 75 67  31 78 3c 33 35 29 20 8c  |50 . bug1x<35) .|
00003910  20 62 75 67 31 69 3d 2d  62 75 67 31 69 3a 62 75  | bug1i=-bug1i:bu|
00003920  67 31 78 2b 3d 62 75 67  31 69 0d 19 50 4b 20 20  |g1x+=bug1i..PK  |
00003930  20 62 75 67 32 78 2b 3d  62 75 67 32 69 20 3a 20  | bug2x+=bug2i : |
00003940  e7 20 28 62 75 67 32 78  3e 31 31 35 30 20 84 20  |. (bug2x>1150 . |
00003950  62 75 67 32 78 3c 33 35  29 20 8c 20 62 75 67 32  |bug2x<35) . bug2|
00003960  69 3d 2d 62 75 67 32 69  3a 62 75 67 32 78 2b 3d  |i=-bug2i:bug2x+=|
00003970  62 75 67 32 69 0d 19 5a  23 20 20 20 f2 70 6c 6f  |bug2i..Z#   .plo|
00003980  74 73 70 72 69 74 65 28  22 42 75 67 22 2c 62 75  |tsprite("Bug",bu|
00003990  67 31 78 2c 35 35 30 29  0d 19 64 23 20 20 20 f2  |g1x,550)..d#   .|
000039a0  70 6c 6f 74 73 70 72 69  74 65 28 22 42 75 67 22  |plotsprite("Bug"|
000039b0  2c 62 75 67 32 78 2c 33  35 30 29 0d 19 6e 04 0d  |,bug2x,350)..n..|
000039c0  19 78 13 20 20 20 e7 20  a6 28 2d 39 38 29 3d b9  |.x.   . .(-98)=.|
000039d0  20 8c 0d 19 82 12 20 20  20 20 63 72 61 66 74 78  | .....    craftx|
000039e0  2d 3d 31 35 0d 19 8c 08  20 20 20 cd 0d 19 96 13  |-=15....   .....|
000039f0  20 20 20 e7 20 a6 28 2d  36 37 29 3d b9 20 8c 0d  |   . .(-67)=. ..|
00003a00  19 a0 12 20 20 20 20 63  72 61 66 74 78 2b 3d 31  |...    craftx+=1|
00003a10  35 0d 19 aa 08 20 20 20  cd 0d 19 b4 1f 20 20 20  |5....   .....   |
00003a20  e7 20 63 72 61 66 74 78  3c 33 35 20 8c 20 63 72  |. craftx<35 . cr|
00003a30  61 66 74 78 2b 3d 32 35  0d 19 be 21 20 20 20 e7  |aftx+=25...!   .|
00003a40  20 63 72 61 66 74 78 3e  31 31 37 35 20 8c 20 63  | craftx>1175 . c|
00003a50  72 61 66 74 78 2d 3d 32  35 0d 19 c8 26 20 20 20  |raftx-=25...&   |
00003a60  f2 70 6c 6f 74 73 70 72  69 74 65 28 22 43 72 61  |.plotsprite("Cra|
00003a70  66 74 22 2c 63 72 61 66  74 78 2c 31 35 30 29 0d  |ft",craftx,150).|
00003a80  19 d2 1c 20 20 20 e7 20  a6 28 2d 39 39 29 20 8c  |...   . .(-99) .|
00003a90  20 65 6e 64 6c 6f 6f 70  25 3d b9 0d 19 dc 10 20  | endloop%=..... |
00003aa0  20 fd 20 65 6e 64 6c 6f  6f 70 25 0d 19 e6 04 0d  | . endloop%.....|
00003ab0  19 f0 19 20 20 e3 20 79  3d 32 32 30 20 b8 20 31  |...  . y=220 . 1|
00003ac0  30 30 30 20 88 20 31 30  0d 19 fa 18 20 20 20 63  |000 . 10....   c|
00003ad0  6f 6c 3d b0 63 72 61 66  74 78 2b 32 36 2c 79 29  |ol=.craftx+26,y)|
00003ae0  0d 1a 04 1f 20 20 20 e7  20 63 6f 6c 3c 3e 30 20  |....   . col<>0 |
00003af0  75 70 74 6f 3d 79 20 3a  20 79 3d 31 30 30 30 0d  |upto=y : y=1000.|
00003b00  1a 0e 07 20 20 ed 0d 1a  18 04 0d 1a 22 18 20 20  |...  .......".  |
00003b10  c8 99 20 22 4f 53 5f 42  79 74 65 22 2c 31 31 32  |.. "OS_Byte",112|
00003b20  2c 31 0d 1a 2c 07 20 20  db 0d 1a 36 11 20 20 20  |,1..,.  ...6.   |
00003b30  e6 20 67 20 c8 9c 20 32  35 35 0d 1a 40 16 20 20  |. g .. 255..@.  |
00003b40  20 c8 93 20 30 2c 30 2c  31 32 35 30 2c 39 35 30  | .. 0,0,1250,950|
00003b50  0d 1a 4a 17 20 20 20 86  20 30 2c 31 30 30 2c 31  |..J.   . 0,100,1|
00003b60  32 35 30 2c 31 30 30 0d  1a 54 11 20 20 20 e6 20  |250,100..T.   . |
00003b70  67 20 c8 9c 20 31 38 30  0d 1a 5e 16 20 20 20 c8  |g .. 180..^.   .|
00003b80  93 20 32 2c 32 2c 31 32  34 36 2c 39 34 36 0d 1a  |. 2,2,1246,946..|
00003b90  68 17 20 20 20 86 20 30  2c 31 30 32 2c 31 32 35  |h.   . 0,102,125|
00003ba0  30 2c 31 30 32 0d 1a 72  11 20 20 20 e6 20 67 20  |0,102..r.   . g |
00003bb0  c8 9c 20 31 32 37 0d 1a  7c 16 20 20 20 c8 93 20  |.. 127..|.   .. |
00003bc0  34 2c 34 2c 31 32 34 32  2c 39 34 32 0d 1a 86 17  |4,4,1242,942....|
00003bd0  20 20 20 86 20 30 2c 31  30 34 2c 31 32 35 30 2c  |   . 0,104,1250,|
00003be0  31 30 34 0d 1a 90 10 20  20 20 e6 20 67 20 c8 9c  |104....   . g ..|
00003bf0  20 36 33 0d 1a 9a 16 20  20 20 c8 93 20 36 2c 36  | 63....   .. 6,6|
00003c00  2c 31 32 33 38 2c 39 33  38 0d 1a a4 17 20 20 20  |,1238,938....   |
00003c10  86 20 30 2c 31 30 36 2c  31 32 35 30 2c 31 30 36  |. 0,106,1250,106|
00003c20  0d 1a ae 04 0d 1a b8 4f  20 20 20 f2 70 72 69 6e  |.......O   .prin|
00003c30  74 66 6f 6e 74 28 22 48  6f 6d 65 72 74 6f 6e 2e  |tfont("Homerton.|
00003c40  4d 65 64 69 75 6d 22 2c  32 34 2c 32 35 2c 33 33  |Medium",24,25,33|
00003c50  2c 66 67 72 65 65 6e 25  2c 66 62 6c 61 63 6b 25  |,fgreen%,fblack%|
00003c60  2c 22 53 63 6f 72 65 20  2d 20 22 2b c3 73 63 6f  |,"Score - "+.sco|
00003c70  72 65 29 0d 1a c2 55 20  20 20 f2 70 72 69 6e 74  |re)...U   .print|
00003c80  66 6f 6e 74 28 22 48 6f  6d 65 72 74 6f 6e 2e 4d  |font("Homerton.M|
00003c90  65 64 69 75 6d 22 2c 32  34 2c 35 32 35 2c 33 33  |edium",24,525,33|
00003ca0  2c 66 67 72 65 65 6e 25  2c 66 62 6c 61 63 6b 25  |,fgreen%,fblack%|
00003cb0  2c 22 53 68 6f 6f 74 73  20 4c 65 66 74 20 2d 20  |,"Shoots Left - |
00003cc0  22 2b c3 67 6f 65 73 29  0d 1a cc 04 0d 1a d6 11  |"+.goes)........|
00003cd0  20 20 e6 20 36 33 20 c8  9c 20 32 35 35 0d 1a e0  |  . 63 .. 255...|
00003ce0  24 20 20 86 20 63 72 61  66 74 78 2b 32 36 2c 32  |$  . craftx+26,2|
00003cf0  32 30 2c 63 72 61 66 74  78 2b 32 36 2c 75 70 74  |20,craftx+26,upt|
00003d00  6f 0d 1a ea 04 0d 1a f4  12 20 20 e7 20 75 70 74  |o........  . upt|
00003d10  6f 3c 37 32 35 20 8c 0d  1a fe 26 20 20 20 20 f2  |o<725 ....&    .|
00003d20  70 6c 6f 74 73 70 72 69  74 65 28 22 42 61 64 64  |plotsprite("Badd|
00003d30  69 65 22 2c 62 61 64 78  2c 37 32 35 29 0d 1b 08  |ie",badx,725)...|
00003d40  4e 20 20 20 20 e7 20 75  70 74 6f 3e 35 30 30 20  |N    . upto>500 |
00003d50  f2 70 6c 6f 74 73 70 72  69 74 65 28 22 42 75 67  |.plotsprite("Bug|
00003d60  22 2c 62 75 67 32 78 2c  33 35 30 29 20 8b 20 f2  |",bug2x,350) . .|
00003d70  70 6c 6f 74 73 70 72 69  74 65 28 22 42 75 67 22  |plotsprite("Bug"|
00003d80  2c 62 75 67 31 78 2c 33  35 30 29 0d 1b 12 2d 20  |,bug1x,350)...- |
00003d90  20 20 20 f2 70 6c 6f 74  73 70 72 69 74 65 28 22  |   .plotsprite("|
00003da0  42 6f 6f 6d 22 2c 63 72  61 66 74 78 2d 32 35 2c  |Boom",craftx-25,|
00003db0  75 70 74 6f 2d 32 35 29  0d 1b 1c 27 20 20 20 20  |upto-25)...'    |
00003dc0  f2 70 6c 6f 74 73 70 72  69 74 65 28 22 43 72 61  |.plotsprite("Cra|
00003dd0  66 74 22 2c 63 72 61 66  74 78 2c 31 35 30 29 0d  |ft",craftx,150).|
00003de0  1b 26 2f 20 20 20 20 c8  99 20 22 4f 53 5f 43 4c  |.&/    .. "OS_CL|
00003df0  49 22 2c 22 43 68 61 6e  6e 65 6c 56 6f 69 63 65  |I","ChannelVoice|
00003e00  20 31 20 47 6f 6f 64 69  65 44 65 61 64 22 0d 1b  | 1 GoodieDead"..|
00003e10  30 18 20 20 20 20 d4 20  31 2c 2d 31 35 2c 39 30  |0.    . 1,-15,90|
00003e20  30 30 2c 31 30 30 0d 1b  3a 08 20 20 20 cc 0d 1b  |00,100..:.   ...|
00003e30  44 14 20 20 20 20 e7 20  75 70 74 6f 3e 39 32 30  |D.    . upto>920|
00003e40  20 8c 0d 1b 4e 28 20 20  20 20 20 20 f2 70 6c 6f  | ...N(      .plo|
00003e50  74 73 70 72 69 74 65 28  22 42 61 64 64 69 65 22  |tsprite("Baddie"|
00003e60  2c 62 61 64 78 2c 37 32  35 29 0d 1b 58 26 20 20  |,badx,725)..X&  |
00003e70  20 20 20 20 f2 70 6c 6f  74 73 70 72 69 74 65 28  |    .plotsprite(|
00003e80  22 42 75 67 22 2c 62 75  67 31 78 2c 35 35 30 29  |"Bug",bug1x,550)|
00003e90  0d 1b 62 26 20 20 20 20  20 20 f2 70 6c 6f 74 73  |..b&      .plots|
00003ea0  70 72 69 74 65 28 22 42  75 67 22 2c 62 75 67 32  |prite("Bug",bug2|
00003eb0  78 2c 33 35 30 29 0d 1b  6c 2f 20 20 20 20 20 20  |x,350)..l/      |
00003ec0  f2 70 6c 6f 74 73 70 72  69 74 65 28 22 42 6f 6f  |.plotsprite("Boo|
00003ed0  6d 22 2c 63 72 61 66 74  78 2d 32 35 2c 75 70 74  |m",craftx-25,upt|
00003ee0  6f 2d 32 35 29 0d 1b 76  29 20 20 20 20 20 20 f2  |o-25)..v)      .|
00003ef0  70 6c 6f 74 73 70 72 69  74 65 28 22 43 72 61 66  |plotsprite("Craf|
00003f00  74 22 2c 63 72 61 66 74  78 2c 31 35 30 29 0d 1b  |t",craftx,150)..|
00003f10  80 48 20 20 20 20 20 20  f2 70 72 69 6e 74 66 6f  |.H      .printfo|
00003f20  6e 74 28 22 48 6f 6d 65  72 74 6f 6e 2e 4d 65 64  |nt("Homerton.Med|
00003f30  69 75 6d 22 2c 31 30 30  2c 33 30 30 2c 34 30 30  |ium",100,300,400|
00003f40  2c 66 72 65 64 25 2c 66  62 6c 61 63 6b 25 2c 22  |,fred%,fblack%,"|
00003f50  4d 49 53 53 22 29 0d 1b  8a 0a 20 20 20 20 20 cc  |MISS")....     .|
00003f60  0d 1b 94 29 20 20 20 20  20 20 f2 70 6c 6f 74 73  |...)      .plots|
00003f70  70 72 69 74 65 28 22 43  72 61 66 74 22 2c 63 72  |prite("Craft",cr|
00003f80  61 66 74 78 2c 31 35 30  29 0d 1b 9e 26 20 20 20  |aftx,150)...&   |
00003f90  20 20 20 f2 70 6c 6f 74  73 70 72 69 74 65 28 22  |   .plotsprite("|
00003fa0  42 75 67 22 2c 62 75 67  31 78 2c 35 35 30 29 0d  |Bug",bug1x,550).|
00003fb0  1b a8 26 20 20 20 20 20  20 f2 70 6c 6f 74 73 70  |..&      .plotsp|
00003fc0  72 69 74 65 28 22 42 75  67 22 2c 62 75 67 32 78  |rite("Bug",bug2x|
00003fd0  2c 33 35 30 29 0d 1b b2  2f 20 20 20 20 20 20 f2  |,350).../      .|
00003fe0  70 6c 6f 74 73 70 72 69  74 65 28 22 42 6f 6f 6d  |plotsprite("Boom|
00003ff0  22 2c 63 72 61 66 74 78  2d 32 35 2c 75 70 74 6f  |",craftx-25,upto|
00004000  2d 32 35 29 0d 1b bc 13  20 20 20 20 20 20 73 63  |-25)....      sc|
00004010  6f 72 65 2b 3d 31 30 0d  1b c6 09 20 20 20 20 cd  |ore+=10....    .|
00004020  0d 1b d0 2e 20 20 20 20  c8 99 20 22 4f 53 5f 43  |....    .. "OS_C|
00004030  4c 49 22 2c 22 43 68 61  6e 6e 65 6c 56 6f 69 63  |LI","ChannelVoic|
00004040  65 20 31 20 45 78 70 6c  6f 73 69 6f 6e 22 0d 1b  |e 1 Explosion"..|
00004050  da 18 20 20 20 20 d4 20  31 2c 2d 31 35 2c 39 30  |..    . 1,-15,90|
00004060  30 30 2c 31 30 30 0d 1b  e4 07 20 20 cd 0d 1b ee  |00,100....  ....|
00004070  04 0d 1b f8 18 20 20 c8  99 20 22 4f 53 5f 42 79  |.....  .. "OS_By|
00004080  74 65 22 2c 31 31 33 2c  31 0d 1c 02 10 20 20 f2  |te",113,1....  .|
00004090  65 78 70 6c 6f 73 69 6f  6e 0d 1c 0c 04 0d 1c 16  |explosion.......|
000040a0  0d 20 20 62 61 6e 6b 25  3d 32 0d 1c 20 0b 20 20  |.  bank%=2.. .  |
000040b0  6f 6c 64 3d 91 0d 1c 2a  15 20 20 f5 20 fd 20 28  |old=...*.  . . (|
000040c0  91 2d 6f 6c 64 29 3e 31  30 30 0d 1c 34 04 0d 1c  |.-old)>100..4...|
000040d0  3e 14 20 20 e3 20 78 7a  3d 30 20 b8 20 31 30 30  |>.  . xz=0 . 100|
000040e0  30 30 0d 1c 48 0e 20 20  20 61 24 3d bf 28 30 29  |00..H.   a$=.(0)|
000040f0  0d 1c 52 07 20 20 ed 0d  1c 5c 06 20 ed 0d 1c 66  |..R.  ...\. ...f|
00004100  05 e1 0d 1c 70 04 0d 1c  7a 0c dd 20 f2 74 61 62  |....p...z.. .tab|
00004110  6c 65 0d 1c 84 17 20 67  65 74 6e 61 6d 65 66 69  |le.... getnamefi|
00004120  6e 69 73 68 65 64 25 3d  a3 0d 1c 8e 10 20 67 6f  |nished%=..... go|
00004130  74 6e 61 6d 65 24 3d 22  22 0d 1c 98 0a 20 70 6f  |tname$="".... po|
00004140  73 3d 30 0d 1c a2 14 20  6e 65 77 73 63 6f 72 65  |s=0.... newscore|
00004150  25 3d 73 63 6f 72 65 0d  1c ac 1a 20 6e 65 77 79  |%=score.... newy|
00004160  65 61 72 25 3d bb 28 c1  91 24 2c 31 32 2c 34 29  |ear%=.(..$,12,4)|
00004170  29 0d 1c b6 27 20 e7 20  6e 65 77 73 63 6f 72 65  |)...' . newscore|
00004180  25 3e 53 63 6f 72 65 25  28 31 30 29 20 8c 20 f2  |%>Score%(10) . .|
00004190  6e 65 77 74 61 62 6c 65  0d 1c c0 04 0d 1c ca 0c  |newtable........|
000041a0  20 62 61 6e 6b 25 3d 31  0d 1c d4 1b 20 c8 99 20  | bank%=1.... .. |
000041b0  22 4f 53 5f 42 79 74 65  22 2c 31 31 32 2c 62 61  |"OS_Byte",112,ba|
000041c0  6e 6b 25 0d 1c de 1b 20  c8 99 20 22 4f 53 5f 42  |nk%.... .. "OS_B|
000041d0  79 74 65 22 2c 31 31 33  2c 62 61 6e 6b 25 0d 1c  |yte",113,bank%..|
000041e0  e8 0a 20 db 20 3a 20 da  0d 1c f2 0e 20 67 3d b3  |.. . : ..... g=.|
000041f0  28 36 34 29 2d 31 0d 1c  fc 0f 20 e6 20 67 20 c8  |(64)-1.... . g .|
00004200  9c 20 32 35 35 0d 1d 06  14 20 c8 93 20 30 2c 30  |. 255.... .. 0,0|
00004210  2c 31 32 35 30 2c 39 35  30 0d 1d 10 15 20 86 20  |,1250,950.... . |
00004220  30 2c 31 30 30 2c 31 32  35 30 2c 31 30 30 0d 1d  |0,100,1250,100..|
00004230  1a 0f 20 e6 20 67 20 c8  9c 20 31 38 30 0d 1d 24  |.. . g .. 180..$|
00004240  14 20 c8 93 20 32 2c 32  2c 31 32 34 36 2c 39 34  |. .. 2,2,1246,94|
00004250  36 0d 1d 2e 15 20 86 20  30 2c 31 30 32 2c 31 32  |6.... . 0,102,12|
00004260  35 30 2c 31 30 32 0d 1d  38 0f 20 e6 20 67 20 c8  |50,102..8. . g .|
00004270  9c 20 31 32 37 0d 1d 42  14 20 c8 93 20 34 2c 34  |. 127..B. .. 4,4|
00004280  2c 31 32 34 32 2c 39 34  32 0d 1d 4c 15 20 86 20  |,1242,942..L. . |
00004290  30 2c 31 30 34 2c 31 32  35 30 2c 31 30 34 0d 1d  |0,104,1250,104..|
000042a0  56 0e 20 e6 20 67 20 c8  9c 20 36 33 0d 1d 60 14  |V. . g .. 63..`.|
000042b0  20 c8 93 20 36 2c 36 2c  31 32 33 38 2c 39 33 38  | .. 6,6,1238,938|
000042c0  0d 1d 6a 15 20 86 20 30  2c 31 30 36 2c 31 32 35  |..j. . 0,106,125|
000042d0  30 2c 31 30 36 0d 1d 74  0a 20 db 20 3a 20 87 0d  |0,106..t. . : ..|
000042e0  1d 7e 0e 20 ef 20 33 31  2c 30 2c 31 30 0d 1d 88  |.~. . 31,0,10...|
000042f0  04 0d 1d 92 4f 20 f2 70  72 69 6e 74 66 6f 6e 74  |....O .printfont|
00004300  28 22 48 6f 6d 65 72 74  6f 6e 2e 4d 65 64 69 75  |("Homerton.Mediu|
00004310  6d 22 2c 33 36 2c 33 30  30 2c 38 30 30 2c 66 62  |m",36,300,800,fb|
00004320  6c 75 65 25 2c 66 62 6c  61 63 6b 25 2c 22 48 69  |lue%,fblack%,"Hi|
00004330  67 68 20 53 63 6f 72 65  20 54 61 62 6c 65 22 29  |gh Score Table")|
00004340  0d 1d 9c 08 20 76 3d 30  0d 1d a6 18 20 e3 20 79  |.... v=0.... . y|
00004350  3d 37 30 30 20 b8 20 32  35 30 20 88 20 2d 35 30  |=700 . 250 . -50|
00004360  0d 1d b0 09 20 76 2b 3d  31 0d 1d ba 48 20 f2 70  |.... v+=1...H .p|
00004370  72 69 6e 74 66 6f 6e 74  28 22 48 6f 6d 65 72 74  |rintfont("Homert|
00004380  6f 6e 2e 4d 65 64 69 75  6d 22 2c 32 34 2c 31 30  |on.Medium",24,10|
00004390  30 2c 79 2c 66 67 72 65  65 6e 25 2c 66 62 6c 61  |0,y,fgreen%,fbla|
000043a0  63 6b 25 2c c3 28 53 63  6f 72 65 25 28 76 29 29  |ck%,.(Score%(v))|
000043b0  29 0d 1d c4 44 20 f2 70  72 69 6e 74 66 6f 6e 74  |)...D .printfont|
000043c0  28 22 48 6f 6d 65 72 74  6f 6e 2e 4d 65 64 69 75  |("Homerton.Mediu|
000043d0  6d 22 2c 32 34 2c 33 30  30 2c 79 2c 66 67 72 65  |m",24,300,y,fgre|
000043e0  65 6e 25 2c 66 62 6c 61  63 6b 25 2c 4e 61 6d 65  |en%,fblack%,Name|
000043f0  24 28 76 29 29 0d 1d ce  48 20 f2 70 72 69 6e 74  |$(v))...H .print|
00004400  66 6f 6e 74 28 22 48 6f  6d 65 72 74 6f 6e 2e 4d  |font("Homerton.M|
00004410  65 64 69 75 6d 22 2c 32  34 2c 31 30 30 30 2c 79  |edium",24,1000,y|
00004420  2c 66 67 72 65 65 6e 25  2c 66 62 6c 61 63 6b 25  |,fgreen%,fblack%|
00004430  2c c3 28 59 65 61 72 25  28 76 29 29 29 0d 1d d8  |,.(Year%(v)))...|
00004440  06 20 ed 0d 1d e2 04 0d  1d ec 28 20 73 61 76 65  |. ........( save|
00004450  66 69 6c 65 3d ae 28 22  3c 4d 65 67 32 24 44 69  |file=.("<Meg2$Di|
00004460  72 3e 2e 48 69 67 68 53  63 6f 72 65 73 22 29 0d  |r>.HighScores").|
00004470  1d f6 16 20 e3 20 73 61  76 65 6e 75 6d 73 3d 31  |... . savenums=1|
00004480  20 b8 20 31 30 0d 1e 00  41 20 20 f1 23 73 61 76  | . 10...A  .#sav|
00004490  65 66 69 6c 65 2c 53 63  6f 72 65 25 28 73 61 76  |efile,Score%(sav|
000044a0  65 6e 75 6d 73 29 2c 4e  61 6d 65 24 28 73 61 76  |enums),Name$(sav|
000044b0  65 6e 75 6d 73 29 2c 59  65 61 72 25 28 73 61 76  |enums),Year%(sav|
000044c0  65 6e 75 6d 73 29 0d 1e  0a 06 20 ed 0d 1e 14 0f  |enums).... .....|
000044d0  20 d9 23 73 61 76 65 66  69 6c 65 0d 1e 1e 31 20  | .#savefile...1 |
000044e0  c8 99 20 22 4f 53 5f 46  69 6c 65 22 2c 31 38 2c  |.. "OS_File",18,|
000044f0  22 3c 4d 65 67 32 24 44  69 72 3e 2e 48 69 67 68  |"<Meg2$Dir>.High|
00004500  53 63 6f 72 65 73 22 2c  26 30 30 35 0d 1e 28 04  |Scores",&005..(.|
00004510  0d 1e 32 64 20 f2 70 72  69 6e 74 66 6f 6e 74 28  |..2d .printfont(|
00004520  22 48 6f 6d 65 72 74 6f  6e 2e 4d 65 64 69 75 6d  |"Homerton.Medium|
00004530  22 2c 31 38 2c 32 32 35  2c 31 30 30 2c 66 72 65  |",18,225,100,fre|
00004540  64 25 2c 66 62 6c 61 63  6b 25 2c 22 50 72 65 73  |d%,fblack%,"Pres|
00004550  73 20 3c 53 50 41 43 45  3e 20 74 6f 20 72 65 74  |s <SPACE> to ret|
00004560  75 72 6e 20 74 6f 20 74  68 65 20 64 65 73 6b 74  |urn to the deskt|
00004570  6f 70 22 29 0d 1e 3c 04  0d 1e 46 11 20 f5 20 fd  |op")..<...F. . .|
00004580  20 a6 28 2d 39 39 29 3d  b9 0d 1e 50 05 e1 0d 1e  | .(-99)=...P....|
00004590  5a 04 0d 1e 64 0f dd 20  f2 6e 65 77 74 61 62 6c  |Z...d.. .newtabl|
000045a0  65 0d 1e 6e 18 20 e3 20  72 65 63 65 69 76 65 3d  |e..n. . receive=|
000045b0  31 20 b8 20 31 30 30 30  30 0d 1e 78 0d 20 20 41  |1 . 10000..x.  A|
000045c0  24 3d bf 28 30 29 0d 1e  82 06 20 ed 0d 1e 8c 0e  |$=.(0).... .....|
000045d0  20 67 3d b3 28 36 34 29  2d 31 0d 1e 96 0e 20 e3  | g=.(64)-1.... .|
000045e0  20 78 3d 31 20 b8 20 32  0d 1e a0 18 20 20 c8 99  | x=1 . 2....  ..|
000045f0  20 22 4f 53 5f 42 79 74  65 22 2c 31 31 32 2c 78  | "OS_Byte",112,x|
00004600  0d 1e aa 18 20 20 c8 99  20 22 4f 53 5f 42 79 74  |....  .. "OS_Byt|
00004610  65 22 2c 31 31 33 2c 78  0d 1e b4 07 20 20 da 0d  |e",113,x....  ..|
00004620  1e be 06 20 ed 0d 1e c8  0c 20 62 61 6e 6b 25 3d  |... ..... bank%=|
00004630  31 0d 1e d2 36 20 c8 99  20 22 4f 53 5f 42 79 74  |1...6 .. "OS_Byt|
00004640  65 22 2c 31 31 32 2c 62  61 6e 6b 25 20 3a 20 c8  |e",112,bank% : .|
00004650  99 20 22 4f 53 5f 42 79  74 65 22 2c 31 31 33 2c  |. "OS_Byte",113,|
00004660  33 2d 62 61 6e 6b 25 0d  1e dc 06 20 da 0d 1e e6  |3-bank%.... ....|
00004670  14 20 c8 99 20 22 4f 53  5f 42 79 74 65 22 2c 31  |. .. "OS_Byte",1|
00004680  39 0d 1e f0 1b 20 c8 99  20 22 4f 53 5f 42 79 74  |9.... .. "OS_Byt|
00004690  65 22 2c 31 31 33 2c 62  61 6e 6b 25 0d 1e fa 0e  |e",113,bank%....|
000046a0  20 f2 63 6f 6e 67 72 61  74 73 0d 1f 04 04 0d 1f  | .congrats......|
000046b0  0e 06 20 f5 0d 1f 18 15  20 20 c8 99 20 22 4f 53  |.. .....  .. "OS|
000046c0  5f 42 79 74 65 22 2c 31  39 0d 1f 22 13 20 20 62  |_Byte",19..".  b|
000046d0  61 6e 6b 25 3d 33 2d 62  61 6e 6b 25 0d 1f 2c 37  |ank%=3-bank%..,7|
000046e0  20 20 c8 99 20 22 4f 53  5f 42 79 74 65 22 2c 31  |  .. "OS_Byte",1|
000046f0  31 32 2c 62 61 6e 6b 25  20 3a 20 c8 99 20 22 4f  |12,bank% : .. "O|
00004700  53 5f 42 79 74 65 22 2c  31 31 33 2c 33 2d 62 61  |S_Byte",113,3-ba|
00004710  6e 6b 25 0d 1f 36 07 20  20 da 0d 1f 40 0f 20 20  |nk%..6.  ...@.  |
00004720  f2 63 6f 6e 67 72 61 74  73 0d 1f 4a 0e 20 20 f2  |.congrats..J.  .|
00004730  67 65 74 6e 61 6d 65 0d  1f 54 43 20 20 f2 70 72  |getname..TC  .pr|
00004740  69 6e 74 66 6f 6e 74 28  22 43 6f 72 70 75 73 2e  |intfont("Corpus.|
00004750  4d 65 64 69 75 6d 22 2c  33 36 2c 35 30 2c 35 30  |Medium",36,50,50|
00004760  30 2c 66 62 6c 75 65 25  2c 66 62 6c 61 63 6b 25  |0,fblue%,fblack%|
00004770  2c 67 6f 74 6e 61 6d 65  24 29 0d 1f 5e 19 20 fd  |,gotname$)..^. .|
00004780  20 67 65 74 6e 61 6d 65  66 69 6e 69 73 68 65 64  | getnamefinished|
00004790  25 3d b9 0d 1f 68 17 20  67 65 74 6e 61 6d 65 66  |%=...h. getnamef|
000047a0  69 6e 69 73 68 65 64 25  3d a3 0d 1f 72 16 20 6e  |inished%=...r. n|
000047b0  65 77 6e 61 6d 65 24 3d  67 6f 74 6e 61 6d 65 24  |ewname$=gotname$|
000047c0  0d 1f 7c 04 0d 1f 86 09  20 47 54 3d 30 0d 1f 90  |..|..... GT=0...|
000047d0  18 20 e3 20 63 68 65 63  6b 3d 31 30 20 b8 20 31  |. . check=10 . 1|
000047e0  20 88 20 2d 31 0d 1f 9a  2a 20 20 e7 20 6e 65 77  | . -1...*  . new|
000047f0  73 63 6f 72 65 25 3e 53  63 6f 72 65 25 28 63 68  |score%>Score%(ch|
00004800  65 63 6b 29 20 8c 20 47  54 3d 63 68 65 63 6b 0d  |eck) . GT=check.|
00004810  1f a4 06 20 ed 0d 1f ae  04 0d 1f b8 15 20 e3 20  |... ......... . |
00004820  6d 3d 31 30 20 b8 20 47  54 20 88 20 2d 31 0d 1f  |m=10 . GT . -1..|
00004830  c2 1b 20 20 53 63 6f 72  65 25 28 6d 2b 31 29 3d  |..  Score%(m+1)=|
00004840  53 63 6f 72 65 25 28 6d  29 0d 1f cc 19 20 20 4e  |Score%(m)....  N|
00004850  61 6d 65 24 28 6d 2b 31  29 3d 4e 61 6d 65 24 28  |ame$(m+1)=Name$(|
00004860  6d 29 0d 1f d6 19 20 20  59 65 61 72 25 28 6d 2b  |m)....  Year%(m+|
00004870  31 29 3d 59 65 61 72 25  28 6d 29 0d 1f e0 06 20  |1)=Year%(m).... |
00004880  ed 0d 1f ea 04 0d 1f f4  19 20 53 63 6f 72 65 25  |......... Score%|
00004890  28 47 54 29 3d 6e 65 77  73 63 6f 72 65 25 0d 1f  |(GT)=newscore%..|
000048a0  fe 17 20 4e 61 6d 65 24  28 47 54 29 3d 6e 65 77  |.. Name$(GT)=new|
000048b0  6e 61 6d 65 24 0d 20 08  17 20 59 65 61 72 25 28  |name$. .. Year%(|
000048c0  47 54 29 3d 6e 65 77 79  65 61 72 25 0d 20 12 05  |GT)=newyear%. ..|
000048d0  e1 0d 20 1c 04 0d 20 26  0e dd 20 f2 67 65 74 6e  |.. ... &.. .getn|
000048e0  61 6d 65 0d 20 30 08 20  41 3d a5 0d 20 3a 20 20  |ame. 0. A=.. :  |
000048f0  e7 20 41 3d 31 33 20 8c  20 67 65 74 6e 61 6d 65  |. A=13 . getname|
00004900  66 69 6e 69 73 68 65 64  25 3d b9 0d 20 44 38 20  |finished%=.. D8 |
00004910  e7 20 41 3e 33 31 20 80  20 41 3c 31 32 37 20 84  |. A>31 . A<127 .|
00004920  20 41 3e 31 34 30 20 8c  20 63 68 72 24 3d bd 28  | A>140 . chr$=.(|
00004930  41 29 20 3a 20 67 6f 74  6e 61 6d 65 24 2b 3d 63  |A) : gotname$+=c|
00004940  68 72 24 0d 20 4e 14 20  e7 20 41 3d 38 20 84 20  |hr$. N. . A=8 . |
00004950  41 3d 31 32 37 20 8c 0d  20 58 15 20 20 e7 20 a9  |A=127 .. X.  . .|
00004960  67 6f 74 6e 61 6d 65 24  3d 30 20 8c 0d 20 62 09  |gotname$=0 .. b.|
00004970  20 20 20 20 e1 0d 20 6c  08 20 20 20 cc 0d 20 76  |    .. l.   .. v|
00004980  27 20 20 20 20 67 6f 74  6e 61 6d 65 24 3d c0 67  |'    gotname$=.g|
00004990  6f 74 6e 61 6d 65 24 2c  a9 67 6f 74 6e 61 6d 65  |otname$,.gotname|
000049a0  24 2d 31 29 0d 20 80 09  20 20 20 20 e1 0d 20 8a  |$-1). ..    .. .|
000049b0  07 20 20 cd 0d 20 94 06  20 cd 0d 20 9e 05 e1 0d  |.  .. .. .. ....|
000049c0  20 a8 04 0d 20 b2 0f dd  20 f2 63 6f 6e 67 72 61  | ... ... .congra|
000049d0  74 73 0d 20 bc 0f 20 e6  20 67 20 c8 9c 20 32 35  |ts. .. . g .. 25|
000049e0  35 0d 20 c6 14 20 c8 93  20 30 2c 30 2c 31 32 35  |5. .. .. 0,0,125|
000049f0  30 2c 39 35 30 0d 20 d0  0f 20 e6 20 67 20 c8 9c  |0,950. .. . g ..|
00004a00  20 31 38 30 0d 20 da 14  20 c8 93 20 32 2c 32 2c  | 180. .. .. 2,2,|
00004a10  31 32 34 36 2c 39 34 36  0d 20 e4 0f 20 e6 20 67  |1246,946. .. . g|
00004a20  20 c8 9c 20 31 32 37 0d  20 ee 14 20 c8 93 20 34  | .. 127. .. .. 4|
00004a30  2c 34 2c 31 32 34 32 2c  39 34 32 0d 20 f8 0e 20  |,4,1242,942. .. |
00004a40  e6 20 67 20 c8 9c 20 36  33 0d 21 02 14 20 c8 93  |. g .. 63.!.. ..|
00004a50  20 36 2c 36 2c 31 32 33  38 2c 39 33 38 0d 21 0c  | 6,6,1238,938.!.|
00004a60  04 0d 21 16 4d 20 f2 70  72 69 6e 74 66 6f 6e 74  |..!.M .printfont|
00004a70  28 22 48 6f 6d 65 72 74  6f 6e 2e 4d 65 64 69 75  |("Homerton.Mediu|
00004a80  6d 22 2c 33 36 2c 31 37  35 2c 38 30 30 2c 66 72  |m",36,175,800,fr|
00004a90  65 64 25 2c 66 62 6c 61  63 6b 25 2c 22 43 4f 4e  |ed%,fblack%,"CON|
00004aa0  47 52 41 54 55 4c 41 54  49 4f 4e 53 22 29 0d 21  |GRATULATIONS").!|
00004ab0  20 69 20 f2 70 72 69 6e  74 66 6f 6e 74 28 22 48  | i .printfont("H|
00004ac0  6f 6d 65 72 74 6f 6e 2e  4d 65 64 69 75 6d 22 2c  |omerton.Medium",|
00004ad0  32 34 2c 35 30 2c 37 30  30 2c 66 67 72 65 65 6e  |24,50,700,fgreen|
00004ae0  25 2c 66 62 6c 61 63 6b  25 2c 22 54 79 70 65 20  |%,fblack%,"Type |
00004af0  69 6e 20 79 6f 75 72 20  6e 61 6d 65 20 66 6f 72  |in your name for|
00004b00  20 74 68 65 20 68 69 67  68 20 73 63 6f 72 65 20  | the high score |
00004b10  74 61 62 6c 65 22 29 0d  21 2a 05 e1 0d 21 34 04  |table").!*...!4.|
00004b20  0d 21 3e 10 dd 20 f2 65  78 70 6c 6f 73 69 6f 6e  |.!>.. .explosion|
00004b30  0d 21 48 10 63 68 75 6e  6b 25 3f 30 3d 25 31 31  |.!H.chunk%?0=%11|
00004b40  0d 21 52 12 e3 20 73 68  61 6b 65 3d 31 20 b8 20  |.!R.. shake=1 . |
00004b50  35 30 0d 21 5c 14 20 77  6f 72 64 25 3d b3 28 32  |50.!\. word%=.(2|
00004b60  29 2a 31 32 38 30 0d 21  66 13 20 63 68 75 6e 6b  |)*1280.!f. chunk|
00004b70  25 21 31 3d 77 6f 72 64  25 0d 21 70 07 20 c8 96  |%!1=word%.!p. ..|
00004b80  0d 21 7a 1b 20 c8 99 20  22 4f 53 5f 57 6f 72 64  |.!z. .. "OS_Word|
00004b90  22 2c 32 32 2c 63 68 75  6e 6b 25 0d 21 84 0b ed  |",22,chunk%.!...|
00004ba0  20 73 68 61 6b 65 0d 21  8e 0e 63 68 75 6e 6b 25  | shake.!..chunk%|
00004bb0  21 31 3d 30 0d 21 98 1a  c8 99 20 22 4f 53 5f 57  |!1=0.!.... "OS_W|
00004bc0  6f 72 64 22 2c 32 32 2c  63 68 75 6e 6b 25 0d 21  |ord",22,chunk%.!|
00004bd0  a2 05 e1 0d 21 ac 04 0d  21 b6 11 dd 20 f2 69 6e  |....!...!... .in|
00004be0  69 74 69 61 6c 69 73 65  0d 21 c0 3a c8 99 20 22  |itialise.!.:.. "|
00004bf0  57 69 6d 70 5f 49 6e 69  74 69 61 6c 69 73 65 22  |Wimp_Initialise"|
00004c00  2c 32 30 30 2c 26 34 42  35 33 34 31 35 34 2c 22  |,200,&4B534154,"|
00004c10  4d 65 67 20 32 2e 32 30  22 20 b8 20 2c 74 61 73  |Meg 2.20" . ,tas|
00004c20  6b 25 0d 21 ca 2e c8 99  20 22 57 69 6d 70 45 78  |k%.!.... "WimpEx|
00004c30  74 5f 49 6e 69 74 69 61  6c 69 73 65 22 2c 2c 74  |t_Initialise",,t|
00004c40  61 73 6b 25 2c 25 30 31  30 30 31 31 30 30 31 30  |ask%,%0100110010|
00004c50  0d 21 d4 19 24 28 73 62  74 65 78 74 25 29 3d 22  |.!..$(sbtext%)="|
00004c60  55 6e 74 69 74 6c 65 64  22 0d 21 de 0e 74 65 78  |Untitled".!..tex|
00004c70  74 69 63 6f 6e 3d 31 0d  21 e8 0f 70 61 67 65 69  |ticon=1.!..pagei|
00004c80  63 6f 6e 3d 31 38 0d 21  f2 04 0d 21 fc 26 c8 99  |con=18.!...!.&..|
00004c90  20 22 4f 53 5f 52 65 61  64 44 79 6e 61 6d 69 63  | "OS_ReadDynamic|
00004ca0  41 72 65 61 22 2c 32 20  b8 20 2c 61 72 65 61 25  |Area",2 . ,area%|
00004cb0  0d 22 06 14 61 72 65 61  25 3d 61 72 65 61 25 2f  |."..area%=area%/|
00004cc0  31 30 32 34 0d 22 10 1d  6e 65 77 61 72 65 61 25  |1024."..newarea%|
00004cd0  3d 28 31 39 32 2d 61 72  65 61 25 29 2a 31 30 32  |=(192-area%)*102|
00004ce0  34 0d 22 1a 18 e7 20 94  6e 65 77 61 72 65 61 25  |4."... .newarea%|
00004cf0  3d 6e 65 77 61 72 65 61  25 0d 22 24 2a 20 c8 99  |=newarea%."$* ..|
00004d00  20 22 58 4f 53 5f 43 68  61 6e 67 65 44 79 6e 61  | "XOS_ChangeDyna|
00004d10  6d 69 63 41 72 65 61 22  2c 32 2c 6e 65 77 61 72  |micArea",2,newar|
00004d20  65 61 25 0d 22 2e 27 20  c8 99 20 22 4f 53 5f 52  |ea%.".' .. "OS_R|
00004d30  65 61 64 44 79 6e 61 6d  69 63 41 72 65 61 22 2c  |eadDynamicArea",|
00004d40  32 20 b8 20 2c 61 72 65  61 25 0d 22 38 05 cd 0d  |2 . ,area%."8...|
00004d50  22 42 04 0d 22 4c 26 c8  99 20 22 4f 53 5f 52 65  |"B.."L&.. "OS_Re|
00004d60  61 64 44 79 6e 61 6d 69  63 41 72 65 61 22 2c 34  |adDynamicArea",4|
00004d70  20 b8 20 2c 61 72 65 61  25 0d 22 56 14 61 72 65  | . ,area%."V.are|
00004d80  61 25 3d 61 72 65 61 25  2f 31 30 32 34 0d 22 60  |a%=area%/1024."`|
00004d90  1c 6e 65 77 61 72 65 61  25 3d 28 36 34 2d 61 72  |.newarea%=(64-ar|
00004da0  65 61 25 29 2a 31 30 32  34 0d 22 6a 18 e7 20 94  |ea%)*1024."j.. .|
00004db0  6e 65 77 61 72 65 61 25  3d 6e 65 77 61 72 65 61  |newarea%=newarea|
00004dc0  25 0d 22 74 2a 20 c8 99  20 22 58 4f 53 5f 43 68  |%."t* .. "XOS_Ch|
00004dd0  61 6e 67 65 44 79 6e 61  6d 69 63 41 72 65 61 22  |angeDynamicArea"|
00004de0  2c 34 2c 6e 65 77 61 72  65 61 25 0d 22 7e 27 20  |,4,newarea%."~' |
00004df0  c8 99 20 22 4f 53 5f 52  65 61 64 44 79 6e 61 6d  |.. "OS_ReadDynam|
00004e00  69 63 41 72 65 61 22 2c  34 20 b8 20 2c 61 72 65  |icArea",4 . ,are|
00004e10  61 25 0d 22 88 05 cd 0d  22 92 04 0d 22 9c 38 c8  |a%."...."...".8.|
00004e20  99 20 22 4f 53 5f 46 69  6c 65 22 2c 31 37 2c 22  |. "OS_File",17,"|
00004e30  3c 4d 65 67 32 24 44 69  72 3e 2e 53 70 72 69 74  |<Meg2$Dir>.Sprit|
00004e40  65 73 22 b8 2c 2c 2c 2c  73 70 72 69 74 65 73 69  |es".,,,,spritesi|
00004e50  7a 65 25 0d 22 a6 1d de  20 73 70 72 69 74 65 73  |ze%."... sprites|
00004e60  25 20 73 70 72 69 74 65  73 69 7a 65 25 2b 36 34  |% spritesize%+64|
00004e70  0d 22 b0 1f e3 20 58 25  3d 30 20 b8 20 73 70 72  |."... X%=0 . spr|
00004e80  69 74 65 73 69 7a 65 25  2b 36 30 20 88 20 34 0d  |itesize%+60 . 4.|
00004e90  22 ba 12 20 73 70 72 69  74 65 73 25 21 58 25 3d  |".. sprites%!X%=|
00004ea0  30 0d 22 c4 05 ed 0d 22  ce 39 c8 99 20 22 4f 53  |0."....".9.. "OS|
00004eb0  5f 53 70 72 69 74 65 4f  70 22 2c 32 35 36 2b 31  |_SpriteOp",256+1|
00004ec0  30 2c 73 70 72 69 74 65  73 25 2c 22 3c 4d 65 67  |0,sprites%,"<Meg|
00004ed0  32 24 44 69 72 3e 2e 53  70 72 69 74 65 73 22 0d  |2$Dir>.Sprites".|
00004ee0  22 d8 04 0d 22 e2 0f 6d  61 73 6b 25 3d 26 31 38  |"..."..mask%=&18|
00004ef0  33 31 0d 22 ec 0d 6f 6c  64 74 69 6d 65 3d 91 0d  |31."..oldtime=..|
00004f00  22 f6 04 0d 23 00 05 e1  0d 23 0a 04 0d 23 14 14  |"...#....#...#..|
00004f10  dd 20 f2 6c 6f 61 64 74  65 6d 70 6c 61 74 65 73  |. .loadtemplates|
00004f20  0d 23 1e 10 6c 65 6e 67  74 68 25 3d 35 30 30 30  |.#..length%=5000|
00004f30  0d 23 28 17 de 20 69 6e  64 69 72 65 63 74 25 20  |.#(.. indirect% |
00004f40  6c 65 6e 67 74 68 25 0d  23 32 18 77 6f 72 6b 73  |length%.#2.works|
00004f50  70 61 63 65 25 3d 69 6e  64 69 72 65 63 74 25 0d  |pace%=indirect%.|
00004f60  23 3c 32 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |#<2.. "Wimp_Open|
00004f70  54 65 6d 70 6c 61 74 65  22 2c 2c 22 3c 4d 65 67  |Template",,"<Meg|
00004f80  32 24 44 69 72 3e 2e 54  65 6d 70 6c 61 74 65 73  |2$Dir>.Templates|
00004f90  22 0d 23 46 59 c8 99 20  22 57 69 6d 70 5f 4c 6f  |".#FY.. "Wimp_Lo|
00004fa0  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 63 68 75  |adTemplate",,chu|
00004fb0  6e 6b 25 2c 77 6f 72 6b  73 70 61 63 65 25 2c 69  |nk%,workspace%,i|
00004fc0  6e 64 69 72 65 63 74 25  2b 6c 65 6e 67 74 68 25  |ndirect%+length%|
00004fd0  2c 2d 31 2c 22 4d 61 69  6e 22 2c 30 20 b8 2c 2c  |,-1,"Main",0 .,,|
00004fe0  77 6f 72 6b 73 70 61 63  65 25 0d 23 50 2a c8 99  |workspace%.#P*..|
00004ff0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
00005000  64 6f 77 22 2c 2c 63 68  75 6e 6b 25 20 b8 20 6d  |dow",,chunk% . m|
00005010  61 69 6e 25 0d 23 5a 59  c8 99 20 22 57 69 6d 70  |ain%.#ZY.. "Wimp|
00005020  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
00005030  63 68 75 6e 6b 25 2c 77  6f 72 6b 73 70 61 63 65  |chunk%,workspace|
00005040  25 2c 69 6e 64 69 72 65  63 74 25 2b 6c 65 6e 67  |%,indirect%+leng|
00005050  74 68 25 2c 2d 31 2c 22  49 6e 66 6f 22 2c 30 20  |th%,-1,"Info",0 |
00005060  b8 2c 2c 77 6f 72 6b 73  70 61 63 65 25 0d 23 64  |.,,workspace%.#d|
00005070  2a c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |*.. "Wimp_Create|
00005080  57 69 6e 64 6f 77 22 2c  2c 63 68 75 6e 6b 25 20  |Window",,chunk% |
00005090  b8 20 69 6e 66 6f 25 0d  23 6e 1b c8 99 20 22 57  |. info%.#n... "W|
000050a0  69 6d 70 5f 43 6c 6f 73  65 54 65 6d 70 6c 61 74  |imp_CloseTemplat|
000050b0  65 22 0d 23 78 05 e1 0d  23 82 04 0d 23 8c 0b dd  |e".#x...#...#...|
000050c0  20 f2 6d 65 6e 75 0d 23  96 18 24 6d 65 6e 75 25  | .menu.#..$menu%|
000050d0  20 20 20 20 20 20 20 3d  22 4d 65 67 32 22 0d 23  |       ="Meg2".#|
000050e0  a0 14 6d 65 6e 75 25 3f  31 32 20 20 20 20 20 3d  |..menu%?12     =|
000050f0  20 37 0d 23 aa 14 6d 65  6e 75 25 3f 31 33 20 20  | 7.#..menu%?13  |
00005100  20 20 20 3d 20 32 0d 23  b4 14 6d 65 6e 75 25 3f  |   = 2.#..menu%?|
00005110  31 34 20 20 20 20 20 3d  20 37 0d 23 be 14 6d 65  |14     = 7.#..me|
00005120  6e 75 25 3f 31 35 20 20  20 20 20 3d 20 30 0d 23  |nu%?15     = 0.#|
00005130  c8 16 6d 65 6e 75 25 21  31 36 20 20 20 20 20 3d  |..menu%!16     =|
00005140  20 26 43 30 0d 23 d2 15  6d 65 6e 75 25 21 32 30  | &C0.#..menu%!20|
00005150  20 20 20 20 20 3d 20 34  30 0d 23 dc 14 6d 65 6e  |     = 40.#..men|
00005160  75 25 21 32 34 20 20 20  20 20 3d 20 30 0d 23 e6  |u%!24     = 0.#.|
00005170  04 0d 23 f0 14 6d 65 6e  75 25 21 32 38 20 20 20  |..#..menu%!28   |
00005180  20 20 3d 20 30 0d 23 fa  18 6d 65 6e 75 25 21 33  |  = 0.#..menu%!3|
00005190  32 20 20 20 20 20 3d 20  69 6e 66 6f 25 0d 24 04  |2     = info%.$.|
000051a0  1b 6d 65 6e 75 25 21 33  36 20 20 20 20 20 3d 20  |.menu%!36     = |
000051b0  26 37 30 30 30 30 31 31  0d 24 0e 19 24 28 6d 65  |&7000011.$..$(me|
000051c0  6e 75 25 2b 34 30 29 20  20 3d 20 22 49 6e 66 6f  |nu%+40)  = "Info|
000051d0  22 0d 24 18 04 0d 24 22  14 6d 65 6e 75 25 21 35  |".$...$".menu%!5|
000051e0  32 20 20 20 20 20 3d 20  30 0d 24 2c 15 6d 65 6e  |2     = 0.$,.men|
000051f0  75 25 21 35 36 20 20 20  20 20 3d 20 2d 31 0d 24  |u%!56     = -1.$|
00005200  36 1b 6d 65 6e 75 25 21  36 30 20 20 20 20 20 3d  |6.menu%!60     =|
00005210  20 26 37 30 30 30 30 31  31 0d 24 40 1c 24 28 6d  | &7000011.$@.$(m|
00005220  65 6e 75 25 2b 36 34 29  20 20 3d 20 22 4f 70 74  |enu%+64)  = "Opt|
00005230  69 6f 6e 73 22 0d 24 4a  04 0d 24 54 16 6d 65 6e  |ions".$J..$T.men|
00005240  75 25 21 37 36 20 20 20  20 20 3d 20 31 32 38 0d  |u%!76     = 128.|
00005250  24 5e 15 6d 65 6e 75 25  21 38 30 20 20 20 20 20  |$^.menu%!80     |
00005260  3d 20 2d 31 0d 24 68 1b  6d 65 6e 75 25 21 38 34  |= -1.$h.menu%!84|
00005270  20 20 20 20 20 3d 20 26  37 30 30 30 30 31 31 0d  |     = &7000011.|
00005280  24 72 19 24 28 6d 65 6e  75 25 2b 38 38 29 20 20  |$r.$(menu%+88)  |
00005290  3d 20 22 51 75 69 74 22  0d 24 7c 21 c8 99 20 22  |= "Quit".$|!.. "|
000052a0  57 69 6d 70 45 78 74 5f  4d 65 6e 75 57 69 64 74  |WimpExt_MenuWidt|
000052b0  68 22 2c 2c 6d 65 6e 75  25 0d 24 86 05 e1 0d 24  |h",,menu%.$....$|
000052c0  90 04 0d 24 9a 0b dd 20  f2 69 63 6f 6e 0d 24 a4  |...$... .icon.$.|
000052d0  3f c8 99 20 22 57 69 6d  70 45 78 74 5f 49 63 6f  |?.. "WimpExt_Ico|
000052e0  6e 42 61 72 53 70 72 69  74 65 22 2c 2c 2c 2d 31  |nBarSprite",,,-1|
000052f0  2c 22 21 4d 65 67 32 22  2c 2c 33 20 b8 20 69 63  |,"!Meg2",,3 . ic|
00005300  6f 6e 62 61 72 68 61 6e  64 6c 65 25 0d 24 ae 05  |onbarhandle%.$..|
00005310  e1 0d 24 b8 04 0d 24 c2  12 dd 20 f2 75 73 65 72  |..$...$... .user|
00005320  6d 65 73 73 61 67 65 0d  24 cc 18 e3 20 6d 65 73  |message.$... mes|
00005330  73 61 67 65 25 3d 30 b8  26 46 46 20 88 20 34 0d  |sage%=0.&FF . 4.|
00005340  24 d6 28 6d 65 73 73 61  67 65 62 69 74 25 21 6d  |$.(messagebit%!m|
00005350  65 73 73 61 67 65 25 3d  63 68 75 6e 6b 25 21 6d  |essage%=chunk%!m|
00005360  65 73 73 61 67 65 25 0d  24 e0 05 ed 0d 24 ea 17  |essage%.$....$..|
00005370  c8 8e 20 6d 65 73 73 61  67 65 62 69 74 25 21 31  |.. messagebit%!1|
00005380  36 20 ca 0d 24 f4 17 c9  20 30 20 20 20 20 20 3a  |6 ..$... 0     :|
00005390  20 f2 73 68 75 74 64 6f  77 6e 0d 24 fe 17 c9 20  | .shutdown.$... |
000053a0  32 20 20 20 20 20 3a 20  f2 64 61 74 61 73 61 76  |2     : .datasav|
000053b0  65 0d 25 08 17 c9 20 26  30 30 35 30 32 3a 20 f2  |e.%... &00502: .|
000053c0  73 65 6e 64 68 65 6c 70  0d 25 12 05 cb 0d 25 1c  |sendhelp.%....%.|
000053d0  05 e1 0d 25 26 04 0d 25  30 0c dd 20 f2 65 72 72  |...%&..%0.. .err|
000053e0  6f 72 0d 25 3a 09 ee 20  85 20 87 0d 25 44 59 c8  |or.%:.. . ..%DY.|
000053f0  99 20 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |. "Wimp_ReportEr|
00005400  72 6f 72 22 2c c4 34 2c  bd 28 30 29 29 2b f6 24  |ror",.4,.(0))+.$|
00005410  2b 22 20 61 74 20 6c 69  6e 65 20 22 2b c3 28 9e  |+" at line "+.(.|
00005420  2f 31 30 29 2b 22 20 2d  20 45 72 72 6f 72 20 43  |/10)+" - Error C|
00005430  6f 64 65 20 22 2b c3 28  9f 29 2c 26 32 2c 22 4d  |ode "+.(.),&2,"M|
00005440  65 67 32 22 0d 25 4e 0d  f2 73 68 75 74 64 6f 77  |eg2".%N..shutdow|
00005450  6e 0d 25 58 05 e1 0d 25  62 04 0d 25 6c 0d dd 20  |n.%X...%b..%l.. |
00005460  f2 72 65 64 72 61 77 0d  25 76 24 20 c8 99 20 22  |.redraw.%v$ .. "|
00005470  57 69 6d 70 45 78 74 5f  41 75 74 6f 52 65 64 72  |WimpExt_AutoRedr|
00005480  61 77 22 2c 2c 63 68 75  6e 6b 25 0d 25 80 05 e1  |aw",,chunk%.%...|
00005490  0d 25 8a 04 0d 25 94 13  dd 20 f2 6d 6f 75 73 65  |.%...%... .mouse|
000054a0  70 72 65 73 73 65 64 0d  25 9e 24 e7 20 63 68 75  |pressed.%.$. chu|
000054b0  6e 6b 25 21 31 32 3d 6d  61 69 6e 25 20 80 20 63  |nk%!12=main% . c|
000054c0  68 75 6e 6b 25 21 38 3d  34 20 8c 0d 25 a8 13 20  |hunk%!8=4 ..%.. |
000054d0  c8 8e 20 63 68 75 6e 6b  25 21 31 36 20 ca 0d 25  |.. chunk%!16 ..%|
000054e0  b2 2c 20 20 c9 20 73 6c  69 64 65 72 62 61 72 25  |.,  . sliderbar%|
000054f0  2d 32 2c 73 6c 69 64 65  72 62 61 72 25 2d 31 2c  |-2,sliderbar%-1,|
00005500  73 6c 69 64 65 72 62 61  72 25 0d 25 bc 0e 20 20  |sliderbar%.%..  |
00005510  20 f2 67 65 74 62 6f 78  0d 25 c6 08 20 20 20 e1  | .getbox.%..   .|
00005520  0d 25 d0 06 20 cb 0d 25  da 05 cd 0d 25 e4 04 0d  |.%.. ..%....%...|
00005530  25 ee 26 e7 20 63 68 75  6e 6b 25 21 31 32 3d 6d  |%.&. chunk%!12=m|
00005540  61 69 6e 25 20 80 20 63  68 75 6e 6b 25 21 31 36  |ain% . chunk%!16|
00005550  3d 33 32 20 8c 0d 25 f8  0f 20 f2 74 65 73 74 73  |=32 ..%.. .tests|
00005560  6f 75 6e 64 0d 26 02 06  20 e1 0d 26 0c 05 cd 0d  |ound.&.. ..&....|
00005570  26 16 04 0d 26 20 26 e7  20 63 68 75 6e 6b 25 21  |&...& &. chunk%!|
00005580  31 32 3d 6d 61 69 6e 25  20 80 20 63 68 75 6e 6b  |12=main% . chunk|
00005590  25 21 31 36 3d 31 39 20  8c 0d 26 2a 11 20 f2 73  |%!16=19 ..&*. .s|
000055a0  61 76 65 6f 70 74 69 6f  6e 73 0d 26 34 06 20 e1  |aveoptions.&4. .|
000055b0  0d 26 3e 05 cd 0d 26 48  04 0d 26 52 14 e7 20 63  |.&>...&H..&R.. c|
000055c0  68 75 6e 6b 25 21 31 32  3d 2d 32 20 8c 0d 26 5c  |hunk%!12=-2 ..&\|
000055d0  12 20 c8 8e 20 63 68 75  6e 6b 25 21 38 20 ca 0d  |. .. chunk%!8 ..|
000055e0  26 66 11 20 20 c9 20 34  20 3a 20 f2 67 61 6d 65  |&f.  . 4 : .game|
000055f0  0d 26 70 46 20 20 c9 20  32 20 3a 20 c8 99 20 22  |.&pF  . 2 : .. "|
00005600  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00005610  2c 2c 6d 65 6e 75 25 2c  28 63 68 75 6e 6b 25 21  |,,menu%,(chunk%!|
00005620  30 29 2d 28 33 32 2b 6d  65 6e 75 25 21 31 36 29  |0)-(32+menu%!16)|
00005630  2f 32 2c 32 31 36 0d 26  7a 08 20 20 20 e1 0d 26  |/2,216.&z.   ..&|
00005640  84 06 20 cb 0d 26 8e 05  cd 0d 26 98 04 0d 26 a2  |.. ..&....&...&.|
00005650  15 e7 20 63 68 75 6e 6b  25 21 31 32 3d 6d 61 69  |.. chunk%!12=mai|
00005660  6e 25 0d 26 ac 12 20 c8  8e 20 63 68 75 6e 6b 25  |n%.&.. .. chunk%|
00005670  21 38 20 ca 0d 26 b6 09  20 20 c9 20 34 0d 26 c0  |!8 ..&..  . 4.&.|
00005680  28 20 20 20 c8 99 20 22  57 69 6d 70 5f 47 65 74  |(   .. "Wimp_Get|
00005690  49 63 6f 6e 53 74 61 74  65 22 2c 2c 63 68 75 6e  |IconState",,chun|
000056a0  6b 25 2b 31 32 0d 26 ca  1f 20 20 20 20 e7 20 63  |k%+12.&..    . c|
000056b0  68 75 6e 6b 25 21 33 36  20 80 20 25 31 30 31 3c  |hunk%!36 . %101<|
000056c0  3c 36 20 8c 0d 26 d4 1c  20 20 20 20 20 76 61 6c  |<6 ..&..     val|
000056d0  69 64 24 3d 24 28 63 68  75 6e 6b 25 21 34 34 29  |id$=$(chunk%!44)|
000056e0  0d 26 de 22 20 20 20 20  20 20 e7 20 a7 76 61 6c  |.&."      . .val|
000056f0  69 64 24 2c 22 61 63 74  69 6f 6e 5f 22 29 3e 30  |id$,"action_")>0|
00005700  20 8c 0d 26 e8 32 20 20  20 20 20 20 20 61 63 74  | ..&.2       act|
00005710  69 6f 6e 24 3d c1 20 76  61 6c 69 64 24 2c a7 76  |ion$=. valid$,.v|
00005720  61 6c 69 64 24 2c 22 61  63 74 69 6f 6e 5f 22 29  |alid$,"action_")|
00005730  2b 37 20 29 0d 26 f2 42  20 20 20 20 20 20 20 e7  |+7 ).&.B       .|
00005740  20 a7 61 63 74 69 6f 6e  24 2c 22 3b 22 29 3c 3e  | .action$,";")<>|
00005750  30 20 8c 20 61 63 74 69  6f 6e 24 3d c0 20 61 63  |0 . action$=. ac|
00005760  74 69 6f 6e 24 2c a7 61  63 74 69 6f 6e 24 2c 22  |tion$,.action$,"|
00005770  3b 22 29 2d 31 29 0d 26  fc 0b 20 20 20 20 20 20  |;")-1).&..      |
00005780  cc 0d 27 06 15 20 20 20  20 20 20 20 61 63 74 69  |..'..       acti|
00005790  6f 6e 24 3d 22 22 0d 27  10 0b 20 20 20 20 20 20  |on$="".'..      |
000057a0  cd 0d 27 1a 09 20 20 20  20 cc 0d 27 24 13 20 20  |..'..    ..'$.  |
000057b0  20 20 20 61 63 74 69 6f  6e 24 3d 22 22 0d 27 2e  |   action$="".'.|
000057c0  06 20 cb 0d 27 38 05 cd  0d 27 42 14 f2 61 63 74  |. ..'8...'B..act|
000057d0  69 6f 6e 28 61 63 74 69  6f 6e 24 29 0d 27 4c 05  |ion(action$).'L.|
000057e0  e1 0d 27 56 04 0d 27 60  05 e1 0d 27 6a 04 0d 27  |..'V..'`...'j..'|
000057f0  74 14 dd 20 f2 6d 65 6e  75 73 65 6c 65 63 74 69  |t.. .menuselecti|
00005800  6f 6e 0d 27 7e 13 6d 65  6e 75 24 3d c4 32 35 35  |on.'~.menu$=.255|
00005810  2c 22 23 22 29 0d 27 88  35 c8 99 20 22 57 69 6d  |,"#").'.5.. "Wim|
00005820  70 5f 44 65 63 6f 64 65  4d 65 6e 75 22 2c 2c 6d  |p_DecodeMenu",,m|
00005830  65 6e 75 25 2c 63 68 75  6e 6b 25 2c 6d 65 6e 75  |enu%,chunk%,menu|
00005840  24 b8 2c 2c 2c 6d 65 6e  75 24 0d 27 92 1f 20 c8  |$.,,,menu$.'.. .|
00005850  8e 20 c0 6d 65 6e 75 24  2c a7 6d 65 6e 75 24 2c  |. .menu$,.menu$,|
00005860  22 23 22 29 2d 31 29 20  ca 0d 27 9c 21 20 20 20  |"#")-1) ..'.!   |
00005870  c9 20 22 4f 70 74 69 6f  6e 73 22 20 3a 20 f2 76  |. "Options" : .v|
00005880  69 65 77 6f 70 74 69 6f  6e 73 0d 27 a6 1b 20 20  |iewoptions.'..  |
00005890  20 c9 20 22 51 75 69 74  22 20 3a 20 f2 73 68 75  | . "Quit" : .shu|
000058a0  74 64 6f 77 6e 0d 27 b0  06 20 cb 0d 27 ba 05 e1  |tdown.'.. ..'...|
000058b0  0d 27 c4 04 0d 27 ce 0f  dd 20 f2 73 68 75 74 64  |.'...'... .shutd|
000058c0  6f 77 6e 0d 27 d8 20 c8  99 20 22 57 69 6d 70 45  |own.'. .. "WimpE|
000058d0  78 74 5f 43 6c 6f 73 65  44 6f 77 6e 22 2c 74 61  |xt_CloseDown",ta|
000058e0  73 6b 25 0d 27 e2 27 c8  99 20 22 57 69 6d 70 5f  |sk%.'.'.. "Wimp_|
000058f0  43 6c 6f 73 65 44 6f 77  6e 22 2c 74 61 73 6b 25  |CloseDown",task%|
00005900  2c 26 34 42 35 33 34 31  35 34 0d 27 ec 05 e0 0d  |,&4B534154.'....|
00005910  27 f6 05 e1 0d 28 00 04  0d 28 0a 14 dd 20 f2 77  |'....(...(... .w|
00005920  61 69 74 66 6f 72 62 61  6e 6e 65 72 0d 28 14 12  |aitforbanner.(..|
00005930  e7 20 62 61 6e 6e 65 72  3d b9 20 8c 20 e1 0d 28  |. banner=. . ..(|
00005940  1e 10 e3 20 64 6f 74 3d  30 20 b8 20 34 35 0d 28  |... dot=0 . 45.(|
00005950  28 35 c8 99 20 22 57 69  6d 70 45 78 74 5f 53 65  |(5.. "WimpExt_Se|
00005960  74 49 63 6f 6e 53 74 72  69 6e 67 4e 22 2c 2c 2c  |tIconStringN",,,|
00005970  62 61 6e 6e 65 72 25 2c  31 2c c4 64 6f 74 2c 22  |banner%,1,.dot,"|
00005980  2e 22 29 0d 28 32 09 6f  6c 64 3d 91 0d 28 3c 05  |.").(2.old=..(<.|
00005990  f5 0d 28 46 0f fd 20 28  91 2d 6f 6c 64 29 3e 31  |..(F.. (.-old)>1|
000059a0  0d 28 50 05 ed 0d 28 5a  24 c8 99 20 22 57 69 6d  |.(P...(Z$.. "Wim|
000059b0  70 45 78 74 5f 43 6c 6f  73 65 4c 69 6e 6b 65 64  |pExt_CloseLinked|
000059c0  22 2c 2c 63 68 75 6e 6b  25 0d 28 64 0c 62 61 6e  |",,chunk%.(d.ban|
000059d0  6e 65 72 3d b9 0d 28 6e  18 c8 99 20 22 48 6f 75  |ner=..(n... "Hou|
000059e0  72 67 6c 61 73 73 5f 53  6d 61 73 68 22 0d 28 78  |rglass_Smash".(x|
000059f0  05 e1 0d 28 82 04 0d 28  8c 0d dd 20 f2 62 61 6e  |...(...(... .ban|
00005a00  6e 65 72 0d 28 96 0c 62  61 6e 6e 65 72 3d a3 0d  |ner.(..banner=..|
00005a10  28 a0 15 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |(.... "Hourglass|
00005a20  5f 4f 6e 22 0d 28 aa 13  21 63 68 75 6e 6b 25 3d  |_On".(..!chunk%=|
00005a30  62 61 6e 6e 65 72 25 0d  28 b4 24 c8 99 20 22 57  |banner%.(.$.. "W|
00005a40  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00005a50  74 65 22 2c 2c 63 68 75  6e 6b 25 0d 28 be 27 c8  |te",,chunk%.(.'.|
00005a60  99 20 22 57 69 6d 70 45  78 74 5f 43 65 6e 74 72  |. "WimpExt_Centr|
00005a70  65 57 69 6e 64 6f 77 22  2c 2c 63 68 75 6e 6b 25  |eWindow",,chunk%|
00005a80  2b 34 0d 28 c8 28 c8 99  20 22 57 69 6d 70 45 78  |+4.(.(.. "WimpEx|
00005a90  74 5f 43 65 6e 74 72 65  57 69 6e 64 6f 77 56 22  |t_CentreWindowV"|
00005aa0  2c 2c 63 68 75 6e 6b 25  2b 34 0d 28 d2 23 c8 99  |,,chunk%+4.(.#..|
00005ab0  20 22 57 69 6d 70 45 78  74 5f 4f 70 65 6e 4c 69  | "WimpExt_OpenLi|
00005ac0  6e 6b 65 64 22 2c 2c 63  68 75 6e 6b 25 0d 28 dc  |nked",,chunk%.(.|
00005ad0  05 e1 0d 28 e6 04 0d 28  f0 1a dd 20 f2 6f 70 65  |...(...(... .ope|
00005ae0  6e 6d 65 73 73 61 67 65  73 28 66 69 6c 65 24 29  |nmessages(file$)|
00005af0  0d 28 fa 22 20 c8 99 20  22 4f 53 5f 4d 6f 64 75  |.(." .. "OS_Modu|
00005b00  6c 65 22 2c 36 2c 2c 2c  31 36 20 b8 20 2c 2c 6d  |le",6,,,16 . ,,m|
00005b10  68 25 0d 29 04 2b 20 c8  99 20 22 4d 65 73 73 61  |h%.).+ .. "Messa|
00005b20  67 65 54 72 61 6e 73 5f  4f 70 65 6e 46 69 6c 65  |geTrans_OpenFile|
00005b30  22 2c 6d 68 25 2c 66 69  6c 65 24 2c 30 0d 29 0e  |",mh%,file$,0.).|
00005b40  05 e1 0d 29 18 04 0d 29  22 14 dd 20 a4 6d 65 73  |...)...)".. .mes|
00005b50  73 61 67 65 28 74 61 67  24 29 0d 29 2c 0e 20 ea  |sage(tag$).),. .|
00005b60  20 72 65 73 75 6c 74 24  0d 29 36 32 20 c8 99 20  | result$.)62 .. |
00005b70  22 4d 65 73 73 61 67 65  54 72 61 6e 73 5f 4c 6f  |"MessageTrans_Lo|
00005b80  6f 6b 75 70 22 2c 6d 68  25 2c 74 61 67 24 20 b8  |okup",mh%,tag$ .|
00005b90  20 2c 2c 72 65 73 75 6c  74 24 0d 29 40 0c 3d 72  | ,,result$.)@.=r|
00005ba0  65 73 75 6c 74 24 0d 29  4a 04 0d 29 54 14 dd 20  |esult$.)J..)T.. |
00005bb0  f2 63 6c 6f 73 65 6d 65  73 73 61 67 65 73 0d 29  |.closemessages.)|
00005bc0  5e 24 20 c8 99 20 22 4d  65 73 73 61 67 65 54 72  |^$ .. "MessageTr|
00005bd0  61 6e 73 5f 43 6c 6f 73  65 46 69 6c 65 22 2c 6d  |ans_CloseFile",m|
00005be0  68 25 0d 29 68 05 e1 0d  29 72 04 0d 29 7c 12 dd  |h%.)h...)r..)|..|
00005bf0  20 f2 74 72 61 6e 73 66  61 69 6c 65 64 0d 29 86  | .transfailed.).|
00005c00  1d c8 99 20 22 57 69 6d  70 45 78 74 5f 53 65 74  |... "WimpExt_Set|
00005c10  50 6f 69 6e 74 65 72 22  2c 30 0d 29 90 19 24 28  |Pointer",0.)..$(|
00005c20  73 62 74 65 78 74 25 29  3d 22 54 65 78 74 46 69  |sbtext%)="TextFi|
00005c30  6c 65 22 0d 29 9a 5b c8  99 20 22 57 69 6d 70 5f  |le".).[.. "Wimp_|
00005c40  52 65 70 6f 72 74 45 72  72 6f 72 22 2c 22 20 20  |ReportError","  |
00005c50  20 20 54 72 61 6e 73 66  65 72 20 66 61 69 6c 65  |  Transfer faile|
00005c60  64 20 2d 20 72 65 63 65  69 76 65 72 20 75 6e 61  |d - receiver una|
00005c70  62 6c 65 20 74 6f 20 61  63 63 65 70 74 20 66 69  |ble to accept fi|
00005c80  6c 65 22 2c 26 31 34 2c  22 4d 65 67 32 22 0d 29  |le",&14,"Meg2".)|
00005c90  a4 05 e1 0d 29 ae 04 0d  29 b8 10 dd 20 f2 73 74  |....)...)... .st|
00005ca0  61 72 74 73 61 76 65 0d  29 c2 3a c8 99 20 22 57  |artsave.).:.. "W|
00005cb0  69 6d 70 45 78 74 5f 47  65 74 49 63 6f 6e 22 2c  |impExt_GetIcon",|
00005cc0  2c 2c 73 61 76 65 77 69  6e 64 6f 77 25 2c 73 61  |,,savewindow%,sa|
00005cd0  76 65 74 65 78 74 25 20  b8 20 2c 2c 2c 67 6f 74  |vetext% . ,,,got|
00005ce0  24 0d 29 cc 1f e7 20 67  6f 74 24 3d 22 22 20 8c  |$.)... got$="" .|
00005cf0  20 67 6f 74 24 3d 22 55  6e 74 69 74 6c 65 64 22  | got$="Untitled"|
00005d00  0d 29 d6 13 24 28 73 62  74 65 78 74 25 29 3d 67  |.)..$(sbtext%)=g|
00005d10  6f 74 24 0d 29 e0 24 c8  99 20 22 57 69 6d 70 5f  |ot$.).$.. "Wimp_|
00005d20  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 22 2c  |GetPointerInfo",|
00005d30  2c 63 68 75 6e 6b 25 0d  29 ea 2b 63 68 75 6e 6b  |,chunk%.).+chunk|
00005d40  25 21 32 30 3d 63 68 75  6e 6b 25 21 31 32 3a 63  |%!20=chunk%!12:c|
00005d50  68 75 6e 6b 25 21 32 34  3d 63 68 75 6e 6b 25 21  |hunk%!24=chunk%!|
00005d60  31 36 0d 29 f4 28 63 68  75 6e 6b 25 21 32 38 3d  |16.).(chunk%!28=|
00005d70  21 63 68 75 6e 6b 25 3a  63 68 75 6e 6b 25 21 33  |!chunk%:chunk%!3|
00005d80  32 3d 63 68 75 6e 6b 25  21 34 0d 29 fe 11 63 68  |2=chunk%!4.)..ch|
00005d90  75 6e 6b 25 21 33 36 3d  31 32 38 0d 2a 08 1a 21  |unk%!36=128.*..!|
00005da0  63 68 75 6e 6b 25 3d 36  34 3a 63 68 75 6e 6b 25  |chunk%=64:chunk%|
00005db0  21 31 32 3d 30 0d 2a 12  1e 63 68 75 6e 6b 25 21  |!12=0.*..chunk%!|
00005dc0  31 36 3d 31 3a 63 68 75  6e 6b 25 21 34 30 3d 26  |16=1:chunk%!40=&|
00005dd0  46 46 46 0d 2a 1c 23 24  28 63 68 75 6e 6b 25 2b  |FFF.*.#$(chunk%+|
00005de0  34 34 29 3d a4 67 65 74  6c 65 61 66 28 24 73 62  |44)=.getleaf($sb|
00005df0  74 65 78 74 25 29 0d 2a  26 37 c8 99 20 22 57 69  |text%).*&7.. "Wi|
00005e00  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00005e10  31 38 2c 63 68 75 6e 6b  25 2c 63 68 75 6e 6b 25  |18,chunk%,chunk%|
00005e20  21 32 30 2c 63 68 75 6e  6b 25 21 32 34 0d 2a 30  |!20,chunk%!24.*0|
00005e30  05 e1 0d 2a 3a 04 0d 2a  44 12 dd 20 a4 67 65 74  |...*:..*D.. .get|
00005e40  6c 65 61 66 28 61 24 29  0d 2a 4e 0f c8 95 20 a7  |leaf(a$).*N... .|
00005e50  61 24 2c 22 2e 22 29 0d  2a 58 16 61 24 3d c1 61  |a$,".").*X.a$=.a|
00005e60  24 2c a7 61 24 2c 22 2e  22 29 2b 31 29 0d 2a 62  |$,.a$,".")+1).*b|
00005e70  05 ce 0d 2a 6c 0a 3d 61  24 2b bd 30 0d 2a 76 04  |...*l.=a$+.0.*v.|
00005e80  0d 2a 80 0f dd 20 f2 64  61 74 61 73 61 76 65 0d  |.*... .datasave.|
00005e90  2a 8a 1f 24 73 62 74 65  78 74 25 3d a4 73 74 72  |*..$sbtext%=.str|
00005ea0  69 6e 67 28 63 68 75 6e  6b 25 2b 34 34 29 0d 2a  |ing(chunk%+44).*|
00005eb0  94 0b f2 73 61 76 65 69  74 0d 2a 9e 16 63 68 75  |...saveit.*..chu|
00005ec0  6e 6b 25 21 31 32 3d 63  68 75 6e 6b 25 21 38 0d  |nk%!12=chunk%!8.|
00005ed0  2a a8 1b 63 68 75 6e 6b  25 21 31 36 3d 33 3a 21  |*..chunk%!16=3:!|
00005ee0  63 68 75 6e 6b 25 3d 32  35 36 0d 2a b2 37 c8 99  |chunk%=256.*.7..|
00005ef0  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
00005f00  67 65 22 2c 31 38 2c 63  68 75 6e 6b 25 2c 63 68  |ge",18,chunk%,ch|
00005f10  75 6e 6b 25 21 32 30 2c  63 68 75 6e 6b 25 21 32  |unk%!20,chunk%!2|
00005f20  34 0d 2a bc 05 e1 0d 2a  c6 04 0d 2a d0 0e dd 20  |4.*....*...*... |
00005f30  f2 64 72 61 67 62 6f 78  0d 2a da 47 c8 99 20 22  |.dragbox.*.G.. "|
00005f40  57 69 6d 70 45 78 74 5f  44 72 61 67 49 63 6f 6e  |WimpExt_DragIcon|
00005f50  22 2c 25 30 31 30 30 30  30 31 30 31 2c 31 2c 73  |",%010000101,1,s|
00005f60  61 76 65 77 69 6e 64 6f  77 25 2c 73 61 76 65 69  |avewindow%,savei|
00005f70  63 6f 6e 25 2c 22 46 69  6c 65 5f 46 46 41 22 0d  |con%,"File_FFA".|
00005f80  2a e4 2c c8 99 20 22 57  69 6d 70 45 78 74 5f 53  |*.,.. "WimpExt_S|
00005f90  65 74 50 6f 69 6e 74 65  72 22 2c 22 50 74 72 5f  |etPointer","Ptr_|
00005fa0  48 61 6e 64 79 22 2c 2c  37 2c 32 0d 2a ee 05 e1  |Handy",,7,2.*...|
00005fb0  0d 2a f8 04 0d 2b 02 13  dd 20 a4 73 74 72 69 6e  |.*...+... .strin|
00005fc0  67 28 70 74 72 25 29 0d  2b 0c 08 ea 20 61 24 0d  |g(ptr%).+... a$.|
00005fd0  2b 16 0f c8 95 20 3f 70  74 72 25 3c 3e 30 0d 2b  |+.... ?ptr%<>0.+|
00005fe0  20 18 61 24 2b 3d bd 28  3f 70 74 72 25 29 3a 70  | .a$+=.(?ptr%):p|
00005ff0  74 72 25 2b 3d 31 0d 2b  2a 05 ce 0d 2b 34 07 3d  |tr%+=1.+*...+4.=|
00006000  61 24 0d 2b 3e 04 0d 2b  48 0d dd 20 f2 73 61 76  |a$.+>..+H.. .sav|
00006010  65 69 74 0d 2b 52 1d c8  99 20 22 57 69 6d 70 45  |eit.+R... "WimpE|
00006020  78 74 5f 53 65 74 50 6f  69 6e 74 65 72 22 2c 30  |xt_SetPointer",0|
00006030  0d 2b 5c 15 66 69 6c 65  25 3d ae 28 24 73 62 74  |.+\.file%=.($sbt|
00006040  65 78 74 25 29 0d 2b 66  14 d5 23 66 69 6c 65 25  |ext%).+f..#file%|
00006050  2c 22 73 69 7a 65 20 3b  22 0d 2b 70 16 d5 23 66  |,"size ;".+p..#f|
00006060  69 6c 65 25 2c 22 61 75  74 68 6f 72 20 3b 22 0d  |ile%,"author ;".|
00006070  2b 7a 17 d5 23 66 69 6c  65 25 2c 22 76 65 72 73  |+z..#file%,"vers|
00006080  69 6f 6e 20 3b 22 0d 2b  84 14 d5 23 66 69 6c 65  |ion ;".+...#file|
00006090  25 2c 22 74 65 78 74 20  3b 22 0d 2b 8e 0c d9 20  |%,"text ;".+... |
000060a0  23 66 69 6c 65 25 0d 2b  98 05 e1 0d 2b a2 04 0d  |#file%.+....+...|
000060b0  2b ac 25 dd 20 f2 73 65  74 76 61 6c 69 64 28 77  |+.%. .setvalid(w|
000060c0  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 2c 76 61 6c  |indow%,icon%,val|
000060d0  69 64 24 29 0d 2b b6 14  63 68 75 6e 6b 25 21 30  |id$).+..chunk%!0|
000060e0  3d 77 69 6e 64 6f 77 25  0d 2b c0 12 63 68 75 6e  |=window%.+..chun|
000060f0  6b 25 21 34 3d 69 63 6f  6e 25 0d 2b ca 22 c8 99  |k%!4=icon%.+."..|
00006100  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
00006110  61 74 65 22 2c 2c 63 68  75 6e 6b 25 0d 2b d4 1e  |ate",,chunk%.+..|
00006120  e7 20 28 28 63 68 75 6e  6b 25 21 32 34 29 20 80  |. ((chunk%!24) .|
00006130  20 26 31 30 30 29 3d 30  20 8c 0d 2b de 36 20 c8  | &100)=0 ..+.6 .|
00006140  99 20 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |. "Wimp_ReportEr|
00006150  72 6f 72 22 2c 22 20 20  20 20 49 63 6f 6e 20 69  |ror","    Icon i|
00006160  73 6e 27 74 20 69 6e 64  69 72 65 63 74 65 64 22  |sn't indirected"|
00006170  0d 2b e8 08 20 3d 22 22  0d 2b f2 05 cd 0d 2b fc  |.+.. ="".+....+.|
00006180  0e 63 68 75 6e 6b 25 21  38 3d 30 0d 2c 06 0f 63  |.chunk%!8=0.,..c|
00006190  68 75 6e 6b 25 21 31 32  3d 30 0d 2c 10 17 24 28  |hunk%!12=0.,..$(|
000061a0  63 68 75 6e 6b 25 21 33  32 29 3d 76 61 6c 69 64  |chunk%!32)=valid|
000061b0  24 0d 2c 1a 22 c8 99 20  22 57 69 6d 70 5f 53 65  |$.,.".. "Wimp_Se|
000061c0  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 63 68 75  |tIconState",,chu|
000061d0  6e 6b 25 0d 2c 24 54 c8  99 20 22 57 69 6d 70 5f  |nk%.,$T.. "Wimp_|
000061e0  46 6f 72 63 65 52 65 64  72 61 77 22 2c 21 63 68  |ForceRedraw",!ch|
000061f0  75 6e 6b 25 2c 63 68 75  6e 6b 25 21 38 2d 31 32  |unk%,chunk%!8-12|
00006200  2c 63 68 75 6e 6b 25 21  31 32 2d 31 32 2c 63 68  |,chunk%!12-12,ch|
00006210  75 6e 6b 25 21 31 36 2b  31 32 2c 63 68 75 6e 6b  |unk%!16+12,chunk|
00006220  25 21 32 30 2b 31 32 0d  2c 2e 05 e1 0d 2c 38 04  |%!20+12.,....,8.|
00006230  0d 2c 42 1e dd 20 a4 67  65 74 76 61 6c 69 64 28  |.,B.. .getvalid(|
00006240  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 29 0d 2c  |window%,icon%).,|
00006250  4c 14 63 68 75 6e 6b 25  21 30 3d 77 69 6e 64 6f  |L.chunk%!0=windo|
00006260  77 25 0d 2c 56 12 63 68  75 6e 6b 25 21 34 3d 69  |w%.,V.chunk%!4=i|
00006270  63 6f 6e 25 0d 2c 60 1e  e7 20 28 28 63 68 75 6e  |con%.,`.. ((chun|
00006280  6b 25 21 32 34 29 20 80  20 26 31 30 30 29 3d 30  |k%!24) . &100)=0|
00006290  20 8c 0d 2c 6a 36 20 c8  99 20 22 57 69 6d 70 5f  | ..,j6 .. "Wimp_|
000062a0  52 65 70 6f 72 74 45 72  72 6f 72 22 2c 22 20 20  |ReportError","  |
000062b0  20 20 49 63 6f 6e 20 69  73 6e 27 74 20 69 6e 64  |  Icon isn't ind|
000062c0  69 72 65 63 74 65 64 22  0d 2c 74 08 20 3d 22 22  |irected".,t. =""|
000062d0  0d 2c 7e 05 cd 0d 2c 88  22 c8 99 20 22 57 69 6d  |.,~...,.".. "Wim|
000062e0  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
000062f0  2c 63 68 75 6e 6b 25 0d  2c 92 11 3d 24 28 63 68  |,chunk%.,..=$(ch|
00006300  75 6e 6b 25 21 33 32 29  0d 2c 9c 04 0d 2c a6 4e  |unk%!32).,...,.N|
00006310  dd 20 a4 72 65 70 6f 72  74 6d 65 73 73 61 67 65  |. .reportmessage|
00006320  28 74 69 74 6c 65 24 2c  74 65 78 74 24 2c 73 74  |(title$,text$,st|
00006330  72 69 6e 67 31 24 2c 73  74 72 69 6e 67 32 24 2c  |ring1$,string2$,|
00006340  73 74 72 69 6e 67 33 24  2c 73 74 72 69 6e 67 34  |string3$,string4|
00006350  24 2c 65 73 63 61 70 65  25 29 0d 2c b0 06 ef 37  |$,escape%).,...7|
00006360  0d 2c ba 16 24 62 75 74  74 6f 6e 73 25 3d c4 26  |.,..$buttons%=.&|
00006370  34 30 2c bd 30 29 0d 2c  c4 19 24 62 75 74 74 6f  |40,.0).,..$butto|
00006380  6e 73 25 3d 73 74 72 69  6e 67 31 24 2b bd 30 0d  |ns%=string1$+.0.|
00006390  2c ce 14 e7 20 73 74 72  69 6e 67 32 24 3c 3e 22  |,... string2$<>"|
000063a0  22 20 8c 0d 2c d8 1b 20  24 62 75 74 74 6f 6e 73  |" ..,.. $buttons|
000063b0  25 2b 3d 73 74 72 69 6e  67 32 24 2b bd 30 0d 2c  |%+=string2$+.0.,|
000063c0  e2 05 cd 0d 2c ec 14 e7  20 73 74 72 69 6e 67 33  |....,... string3|
000063d0  24 3c 3e 22 22 20 8c 0d  2c f6 1b 20 24 62 75 74  |$<>"" ..,.. $but|
000063e0  74 6f 6e 73 25 2b 3d 73  74 72 69 6e 67 33 24 2b  |tons%+=string3$+|
000063f0  bd 30 0d 2d 00 05 cd 0d  2d 0a 14 e7 20 73 74 72  |.0.-....-... str|
00006400  69 6e 67 34 24 3c 3e 22  22 20 8c 0d 2d 14 1b 20  |ing4$<>"" ..-.. |
00006410  24 62 75 74 74 6f 6e 73  25 2b 3d 73 74 72 69 6e  |$buttons%+=strin|
00006420  67 34 24 2b bd 30 0d 2d  1e 05 cd 0d 2d 28 3e c8  |g4$+.0.-....-(>.|
00006430  99 20 22 57 69 6d 70 45  78 74 5f 4f 70 65 6e 52  |. "WimpExt_OpenR|
00006440  65 71 75 65 73 74 65 72  22 2c 2c 2c 74 69 74 6c  |equester",,,titl|
00006450  65 24 2c 74 65 78 74 24  2c 62 75 74 74 6f 6e 73  |e$,text$,buttons|
00006460  25 2c 65 73 63 61 70 65  25 0d 2d 32 05 f5 0d 2d  |%,escape%.-2...-|
00006470  3c 19 20 c8 99 20 22 57  69 6d 70 45 78 74 5f 50  |<. .. "WimpExt_P|
00006480  72 65 50 6f 6c 6c 22 0d  2d 46 25 20 c8 99 20 22  |rePoll".-F% .. "|
00006490  57 69 6d 70 5f 50 6f 6c  6c 22 2c 2c 63 68 75 6e  |Wimp_Poll",,chun|
000064a0  6b 25 20 b8 20 72 65 61  73 6f 6e 25 0d 2d 50 35  |k% . reason%.-P5|
000064b0  20 c8 99 20 22 57 69 6d  70 45 78 74 5f 41 63 74  | .. "WimpExt_Act|
000064c0  69 6f 6e 22 2c 74 61 73  6b 25 2c 63 68 75 6e 6b  |ion",task%,chunk|
000064d0  25 2c 72 65 61 73 6f 6e  25 b8 72 65 61 73 6f 6e  |%,reason%.reason|
000064e0  25 0d 2d 5a 1a 20 e7 20  72 65 61 73 6f 6e 25 3d  |%.-Z. . reason%=|
000064f0  31 20 8c 20 f2 72 65 64  72 61 77 0d 2d 64 49 fd  |1 . .redraw.-dI.|
00006500  20 72 65 61 73 6f 6e 25  3d 36 20 80 20 28 63 68  | reason%=6 . (ch|
00006510  75 6e 6b 25 21 31 36 3d  30 20 84 20 63 68 75 6e  |unk%!16=0 . chun|
00006520  6b 25 21 31 36 3d 31 20  84 20 63 68 75 6e 6b 25  |k%!16=1 . chunk%|
00006530  21 31 36 3d 32 20 84 20  63 68 75 6e 6b 25 21 31  |!16=2 . chunk%!1|
00006540  36 3d 33 29 0d 2d 6e 12  c8 8e 20 63 68 75 6e 6b  |6=3).-n... chunk|
00006550  25 21 31 36 20 ca 0d 2d  78 08 20 c9 20 30 0d 2d  |%!16 ..-x. . 0.-|
00006560  82 0f 20 20 3d 73 74 72  69 6e 67 31 24 0d 2d 8c  |..  =string1$.-.|
00006570  08 20 c9 20 31 0d 2d 96  0f 20 20 3d 73 74 72 69  |. . 1.-..  =stri|
00006580  6e 67 32 24 0d 2d a0 08  20 c9 20 32 0d 2d aa 0f  |ng2$.-.. . 2.-..|
00006590  20 20 3d 73 74 72 69 6e  67 33 24 0d 2d b4 08 20  |  =string3$.-.. |
000065a0  c9 20 33 0d 2d be 0f 20  20 3d 73 74 72 69 6e 67  |. 3.-..  =string|
000065b0  34 24 0d 2d c8 05 cb 0d  2d d2 04 0d 2d dc 10 dd  |4$.-....-...-...|
000065c0  20 f2 74 65 73 74 73 6f  75 6e 64 0d 2d e6 2f c8  | .testsound.-./.|
000065d0  99 20 22 57 69 6d 70 45  78 74 5f 47 65 74 49 63  |. "WimpExt_GetIc|
000065e0  6f 6e 22 2c 2c 2c 6d 61  69 6e 25 2c 36 20 b8 20  |on",,,main%,6 . |
000065f0  2c 2c 2c 76 6f 6c 75 6d  65 24 0d 2d f0 1f e7 20  |,,,volume$.-... |
00006600  76 6f 6c 75 6d 65 24 3d  22 30 22 20 8c 20 76 6f  |volume$="0" . vo|
00006610  6c 75 6d 65 24 3d 22 31  22 0d 2d fa 31 c8 99 20  |lume$="1".-.1.. |
00006620  22 4f 53 5f 43 4c 49 22  2c 22 56 6f 6c 75 6d 65  |"OS_CLI","Volume|
00006630  20 22 2b c3 28 a8 28 28  a0 28 76 6f 6c 75 6d 65  | "+.(.((.(volume|
00006640  24 29 29 2a 31 2e 32 37  29 29 0d 2e 04 27 c8 99  |$))*1.27))...'..|
00006650  20 22 4f 53 5f 43 4c 49  22 2c 22 43 68 61 6e 6e  | "OS_CLI","Chann|
00006660  65 6c 56 6f 69 63 65 20  31 20 59 69 70 70 65 65  |elVoice 1 Yippee|
00006670  22 0d 2e 0e 14 d4 20 31  2c 2d 31 35 2c 35 32 38  |"..... 1,-15,528|
00006680  30 2c 31 30 30 0d 2e 18  05 e1 0d 2e 22 04 0d 2e  |0,100......."...|
00006690  2c 0d dd 20 f2 67 65 74  62 6f 78 0d 2e 36 11 21  |,.. .getbox..6.!|
000066a0  63 68 75 6e 6b 25 3d 6d  61 69 6e 25 0d 2e 40 24  |chunk%=main%..@$|
000066b0  c8 99 20 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.. "Wimp_GetWind|
000066c0  6f 77 53 74 61 74 65 22  2c 2c 63 68 75 6e 6b 25  |owState",,chunk%|
000066d0  0d 2e 4a 19 78 25 3d 63  68 75 6e 6b 25 21 34 2d  |..J.x%=chunk%!4-|
000066e0  63 68 75 6e 6b 25 21 32  30 0d 2e 54 1a 79 25 3d  |chunk%!20..T.y%=|
000066f0  63 68 75 6e 6b 25 21 31  36 2d 63 68 75 6e 6b 25  |chunk%!16-chunk%|
00006700  21 32 34 0d 2e 5e 17 63  68 75 6e 6b 25 21 34 3d  |!24..^.chunk%!4=|
00006710  73 6c 69 64 65 72 62 61  72 25 0d 2e 68 22 c8 99  |sliderbar%..h"..|
00006720  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
00006730  61 74 65 22 2c 2c 63 68  75 6e 6b 25 0d 2e 72 0e  |ate",,chunk%..r.|
00006740  63 68 75 6e 6b 25 21 34  3d 37 0d 2e 7c 19 63 68  |chunk%!4=7..|.ch|
00006750  75 6e 6b 25 21 32 34 3d  63 68 75 6e 6b 25 21 38  |unk%!24=chunk%!8|
00006760  2b 78 25 0d 2e 86 1a 63  68 75 6e 6b 25 21 32 38  |+x%....chunk%!28|
00006770  3d 63 68 75 6e 6b 25 21  31 32 2b 79 25 0d 2e 90  |=chunk%!12+y%...|
00006780  1b 63 68 75 6e 6b 25 21  33 32 3d 63 68 75 6e 6b  |.chunk%!32=chunk|
00006790  25 21 32 34 2b 34 30 30  0d 2e 9a 1a 63 68 75 6e  |%!24+400....chun|
000067a0  6b 25 21 33 36 3d 63 68  75 6e 6b 25 21 32 30 2b  |k%!36=chunk%!20+|
000067b0  79 25 0d 2e a4 1d c8 99  20 22 57 69 6d 70 5f 44  |y%...... "Wimp_D|
000067c0  72 61 67 42 6f 78 22 2c  2c 63 68 75 6e 6b 25 0d  |ragBox",,chunk%.|
000067d0  2e ae 0b 6d 61 73 6b 25  3d 30 0d 2e b8 0b 6f 6c  |...mask%=0....ol|
000067e0  64 78 25 3d 30 0d 2e c2  05 e1 0d 2e cc 04 0d 2e  |dx%=0...........|
000067f0  d6 0d dd 20 f2 73 6c 69  64 65 72 0d 2e e0 2f c8  |... .slider.../.|
00006800  99 20 22 57 69 6d 70 45  78 74 5f 47 65 74 49 63  |. "WimpExt_GetIc|
00006810  6f 6e 22 2c 2c 2c 6d 61  69 6e 25 2c 31 30 20 b8  |on",,,main%,10 .|
00006820  20 73 65 6c 65 63 74 65  64 25 0d 2e ea 16 20 e7  | selected%.... .|
00006830  20 73 65 6c 65 63 74 65  64 25 3d 30 20 8c 20 e1  | selected%=0 . .|
00006840  0d 2e f4 24 c8 99 20 22  57 69 6d 70 5f 47 65 74  |...$.. "Wimp_Get|
00006850  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 63 68  |PointerInfo",,ch|
00006860  75 6e 6b 25 0d 2e fe 10  78 70 25 3d 63 68 75 6e  |unk%....xp%=chun|
00006870  6b 25 21 30 0d 2f 08 12  e7 20 78 70 25 3c 3e 6f  |k%!0./... xp%<>o|
00006880  6c 64 78 25 20 8c 0d 2f  12 12 20 21 63 68 75 6e  |ldx% ../.. !chun|
00006890  6b 25 3d 6d 61 69 6e 25  0d 2f 1c 25 20 c8 99 20  |k%=main%./.% .. |
000068a0  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
000068b0  74 61 74 65 22 2c 2c 63  68 75 6e 6b 25 0d 2f 26  |tate",,chunk%./&|
000068c0  14 20 78 25 3d 78 70 25  2d 63 68 75 6e 6b 25 21  |. x%=xp%-chunk%!|
000068d0  34 0d 2f 30 18 20 63 68  75 6e 6b 25 21 34 3d 73  |4./0. chunk%!4=s|
000068e0  6c 69 64 65 72 62 61 72  25 0d 2f 3a 23 20 c8 99  |liderbar%./:# ..|
000068f0  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
00006900  61 74 65 22 2c 2c 63 68  75 6e 6b 25 0d 2f 44 21  |ate",,chunk%./D!|
00006910  20 c8 99 20 22 57 69 6d  70 5f 44 65 6c 65 74 65  | .. "Wimp_Delete|
00006920  49 63 6f 6e 22 2c 2c 63  68 75 6e 6b 25 0d 2f 4e  |Icon",,chunk%./N|
00006930  13 20 63 68 75 6e 6b 25  21 34 3d 6d 61 69 6e 25  |. chunk%!4=main%|
00006940  0d 2f 58 11 20 63 68 75  6e 6b 25 21 31 36 3d 78  |./X. chunk%!16=x|
00006950  25 0d 2f 62 23 20 c8 99  20 22 57 69 6d 70 5f 43  |%./b# .. "Wimp_C|
00006960  72 65 61 74 65 49 63 6f  6e 22 2c 2c 63 68 75 6e  |reateIcon",,chun|
00006970  6b 25 2b 34 0d 2f 6c 4a  20 c8 99 20 22 57 69 6d  |k%+4./lJ .. "Wim|
00006980  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 6d  |p_ForceRedraw",m|
00006990  61 69 6e 25 2c 63 68 75  6e 6b 25 21 38 2c 63 68  |ain%,chunk%!8,ch|
000069a0  75 6e 6b 25 21 31 32 2c  63 68 75 6e 6b 25 21 38  |unk%!12,chunk%!8|
000069b0  2b 34 30 30 2c 63 68 75  6e 6b 25 21 32 30 0d 2f  |+400,chunk%!20./|
000069c0  76 1a 20 78 24 3d c3 28  28 78 25 2d 63 68 75 6e  |v. x$=.((x%-chun|
000069d0  6b 25 21 38 29 81 34 29  0d 2f 80 12 20 21 63 68  |k%!8).4)./.. !ch|
000069e0  75 6e 6b 25 3d 6d 61 69  6e 25 0d 2f 8a 17 20 63  |unk%=main%./.. c|
000069f0  68 75 6e 6b 25 21 34 3d  73 6f 75 6e 64 62 6f 78  |hunk%!4=soundbox|
00006a00  25 0d 2f 94 23 20 c8 99  20 22 57 69 6d 70 5f 47  |%./.# .. "Wimp_G|
00006a10  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 63 68  |etIconState",,ch|
00006a20  75 6e 6b 25 0d 2f 9e 14  20 24 28 63 68 75 6e 6b  |unk%./.. $(chunk|
00006a30  25 21 32 38 29 3d 78 24  0d 2f a8 0f 20 63 68 75  |%!28)=x$./.. chu|
00006a40  6e 6b 25 21 38 3d 30 0d  2f b2 10 20 63 68 75 6e  |nk%!8=0./.. chun|
00006a50  6b 25 21 31 32 3d 30 0d  2f bc 23 20 c8 99 20 22  |k%!12=0./.# .. "|
00006a60  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00006a70  65 22 2c 2c 63 68 75 6e  6b 25 0d 2f c6 07 20 c8  |e",,chunk%./.. .|
00006a80  96 0d 2f d0 0e 20 6f 6c  64 78 25 3d 78 70 25 0d  |../.. oldx%=xp%.|
00006a90  2f da 05 cd 0d 2f e4 05  e1 0d 2f ee 04 0d 2f f8  |/..../..../.../.|
00006aa0  12 dd 20 f2 6c 6f 61 64  6f 70 74 69 6f 6e 73 0d  |.. .loadoptions.|
00006ab0  30 02 21 66 69 6c 65 25  3d 8e 28 22 3c 4d 65 67  |0.!file%=.("<Meg|
00006ac0  32 24 44 69 72 3e 2e 4f  70 74 69 6f 6e 73 22 29  |2$Dir>.Options")|
00006ad0  0d 30 0c 10 e8 23 66 69  6c 65 25 2c 73 75 6d 24  |.0...#file%,sum$|
00006ae0  0d 30 16 10 e8 23 66 69  6c 65 25 2c 64 69 66 24  |.0...#file%,dif$|
00006af0  0d 30 20 12 e8 23 66 69  6c 65 25 2c 74 61 62 6c  |.0 ..#file%,tabl|
00006b00  65 24 0d 30 2a 12 e8 23  66 69 6c 65 25 2c 73 6f  |e$.0*..#file%,so|
00006b10  75 6e 64 24 0d 30 34 0c  d9 20 23 66 69 6c 65 25  |und$.04.. #file%|
00006b20  0d 30 3e 0d c8 8e 20 73  75 6d 24 20 ca 0d 30 48  |.0>... sum$ ..0H|
00006b30  0c 20 c9 20 22 41 64 64  22 0d 30 52 13 20 20 f2  |. . "Add".0R.  .|
00006b40  73 68 61 64 65 64 69 66  66 28 30 29 0d 30 5c 14  |shadediff(0).0\.|
00006b50  20 20 f2 73 68 61 64 65  74 61 62 6c 65 28 31 29  |  .shadetable(1)|
00006b60  0d 30 66 27 20 20 c8 99  20 22 57 69 6d 70 45 78  |.0f'  .. "WimpEx|
00006b70  74 5f 53 65 74 49 63 6f  6e 22 2c 2c 2c 6d 61 69  |t_SetIcon",,,mai|
00006b80  6e 25 2c 33 35 2c 31 0d  30 70 0c 20 c9 20 22 53  |n%,35,1.0p. . "S|
00006b90  75 62 22 0d 30 7a 13 20  20 f2 73 68 61 64 65 64  |ub".0z.  .shaded|
00006ba0  69 66 66 28 30 29 0d 30  84 14 20 20 f2 73 68 61  |iff(0).0..  .sha|
00006bb0  64 65 74 61 62 6c 65 28  31 29 0d 30 8e 27 20 20  |detable(1).0.'  |
00006bc0  c8 99 20 22 57 69 6d 70  45 78 74 5f 53 65 74 49  |.. "WimpExt_SetI|
00006bd0  63 6f 6e 22 2c 2c 2c 6d  61 69 6e 25 2c 33 36 2c  |con",,,main%,36,|
00006be0  31 0d 30 98 0c 20 c9 20  22 4d 75 6c 22 0d 30 a2  |1.0.. . "Mul".0.|
00006bf0  13 20 20 f2 73 68 61 64  65 64 69 66 66 28 31 29  |.  .shadediff(1)|
00006c00  0d 30 ac 14 20 20 f2 73  68 61 64 65 74 61 62 6c  |.0..  .shadetabl|
00006c10  65 28 30 29 0d 30 b6 27  20 20 c8 99 20 22 57 69  |e(0).0.'  .. "Wi|
00006c20  6d 70 45 78 74 5f 53 65  74 49 63 6f 6e 22 2c 2c  |mpExt_SetIcon",,|
00006c30  2c 6d 61 69 6e 25 2c 33  37 2c 31 0d 30 c0 0c 20  |,main%,37,1.0.. |
00006c40  c9 20 22 44 69 76 22 0d  30 ca 13 20 20 f2 73 68  |. "Div".0..  .sh|
00006c50  61 64 65 64 69 66 66 28  31 29 0d 30 d4 14 20 20  |adediff(1).0..  |
00006c60  f2 73 68 61 64 65 74 61  62 6c 65 28 30 29 0d 30  |.shadetable(0).0|
00006c70  de 27 20 20 c8 99 20 22  57 69 6d 70 45 78 74 5f  |.'  .. "WimpExt_|
00006c80  53 65 74 49 63 6f 6e 22  2c 2c 2c 6d 61 69 6e 25  |SetIcon",,,main%|
00006c90  2c 33 38 2c 31 0d 30 e8  05 cb 0d 30 f2 04 0d 30  |,38,1.0....0...0|
00006ca0  fc 0d c8 8e 20 64 69 66  24 20 ca 0d 31 06 0c 20  |.... dif$ ..1.. |
00006cb0  c9 20 22 45 61 73 22 0d  31 10 27 20 20 c8 99 20  |. "Eas".1.'  .. |
00006cc0  22 57 69 6d 70 45 78 74  5f 53 65 74 49 63 6f 6e  |"WimpExt_SetIcon|
00006cd0  22 2c 2c 2c 6d 61 69 6e  25 2c 32 33 2c 31 0d 31  |",,,main%,23,1.1|
00006ce0  1a 0c 20 c9 20 22 4d 65  64 22 0d 31 24 27 20 20  |.. . "Med".1$'  |
00006cf0  c8 99 20 22 57 69 6d 70  45 78 74 5f 53 65 74 49  |.. "WimpExt_SetI|
00006d00  63 6f 6e 22 2c 2c 2c 6d  61 69 6e 25 2c 32 34 2c  |con",,,main%,24,|
00006d10  31 0d 31 2e 0c 20 c9 20  22 48 61 72 22 0d 31 38  |1.1.. . "Har".18|
00006d20  27 20 20 c8 99 20 22 57  69 6d 70 45 78 74 5f 53  |'  .. "WimpExt_S|
00006d30  65 74 49 63 6f 6e 22 2c  2c 2c 6d 61 69 6e 25 2c  |etIcon",,,main%,|
00006d40  32 35 2c 31 0d 31 42 0c  20 c9 20 22 56 48 61 22  |25,1.1B. . "VHa"|
00006d50  0d 31 4c 27 20 20 c8 99  20 22 57 69 6d 70 45 78  |.1L'  .. "WimpEx|
00006d60  74 5f 53 65 74 49 63 6f  6e 22 2c 2c 2c 6d 61 69  |t_SetIcon",,,mai|
00006d70  6e 25 2c 32 36 2c 31 0d  31 56 05 cb 0d 31 60 04  |n%,26,1.1V...1`.|
00006d80  0d 31 6a 31 c8 99 20 22  57 69 6d 70 45 78 74 5f  |.1j1.. "WimpExt_|
00006d90  53 65 74 49 63 6f 6e 53  74 72 69 6e 67 4e 22 2c  |SetIconStringN",|
00006da0  2c 2c 6d 61 69 6e 25 2c  31 34 2c 74 61 62 6c 65  |,,main%,14,table|
00006db0  24 0d 31 74 04 0d 31 7e  0f c8 8e 20 73 6f 75 6e  |$.1t..1~... soun|
00006dc0  64 24 20 ca 0d 31 88 0b  20 c9 20 22 4f 6e 22 0d  |d$ ..1.. . "On".|
00006dd0  31 92 27 20 20 c8 99 20  22 57 69 6d 70 45 78 74  |1.'  .. "WimpExt|
00006de0  5f 53 65 74 49 63 6f 6e  22 2c 2c 2c 6d 61 69 6e  |_SetIcon",,,main|
00006df0  25 2c 31 30 2c 31 0d 31  9c 14 20 20 f2 73 68 61  |%,10,1.1..  .sha|
00006e00  64 65 73 6f 75 6e 64 28  30 29 0d 31 a6 0c 20 c9  |desound(0).1.. .|
00006e10  20 22 4f 66 66 22 0d 31  b0 27 20 20 c8 99 20 22  | "Off".1.'  .. "|
00006e20  57 69 6d 70 45 78 74 5f  53 65 74 49 63 6f 6e 22  |WimpExt_SetIcon"|
00006e30  2c 2c 2c 6d 61 69 6e 25  2c 31 30 2c 30 0d 31 ba  |,,,main%,10,0.1.|
00006e40  14 20 20 f2 73 68 61 64  65 73 6f 75 6e 64 28 31  |.  .shadesound(1|
00006e50  29 0d 31 c4 05 cb 0d 31  ce 05 e1 0d 31 d8 04 0d  |).1....1....1...|
00006e60  31 e2 12 dd 20 f2 73 61  76 65 6f 70 74 69 6f 6e  |1... .saveoption|
00006e70  73 0d 31 ec 1d ea 20 73  75 6d 24 2c 64 69 66 24  |s.1... sum$,dif$|
00006e80  2c 74 61 62 6c 65 24 2c  73 6f 75 6e 64 24 0d 31  |,table$,sound$.1|
00006e90  f6 2f c8 99 20 22 57 69  6d 70 45 78 74 5f 47 65  |./.. "WimpExt_Ge|
00006ea0  74 49 63 6f 6e 22 2c 2c  2c 6d 61 69 6e 25 2c 33  |tIcon",,,main%,3|
00006eb0  35 20 b8 20 73 65 6c 65  63 74 65 64 25 0d 32 00  |5 . selected%.2.|
00006ec0  20 20 e7 20 73 65 6c 65  63 74 65 64 25 3c 3e 30  |  . selected%<>0|
00006ed0  20 8c 20 73 75 6d 24 3d  22 41 64 64 22 0d 32 0a  | . sum$="Add".2.|
00006ee0  2f c8 99 20 22 57 69 6d  70 45 78 74 5f 47 65 74  |/.. "WimpExt_Get|
00006ef0  49 63 6f 6e 22 2c 2c 2c  6d 61 69 6e 25 2c 33 36  |Icon",,,main%,36|
00006f00  20 b8 20 73 65 6c 65 63  74 65 64 25 0d 32 14 20  | . selected%.2. |
00006f10  20 e7 20 73 65 6c 65 63  74 65 64 25 3c 3e 30 20  | . selected%<>0 |
00006f20  8c 20 73 75 6d 24 3d 22  53 75 62 22 0d 32 1e 2f  |. sum$="Sub".2./|
00006f30  c8 99 20 22 57 69 6d 70  45 78 74 5f 47 65 74 49  |.. "WimpExt_GetI|
00006f40  63 6f 6e 22 2c 2c 2c 6d  61 69 6e 25 2c 33 37 20  |con",,,main%,37 |
00006f50  b8 20 73 65 6c 65 63 74  65 64 25 0d 32 28 20 20  |. selected%.2(  |
00006f60  e7 20 73 65 6c 65 63 74  65 64 25 3c 3e 30 20 8c  |. selected%<>0 .|
00006f70  20 73 75 6d 24 3d 22 4d  75 6c 22 0d 32 32 2f c8  | sum$="Mul".22/.|
00006f80  99 20 22 57 69 6d 70 45  78 74 5f 47 65 74 49 63  |. "WimpExt_GetIc|
00006f90  6f 6e 22 2c 2c 2c 6d 61  69 6e 25 2c 33 38 20 b8  |on",,,main%,38 .|
00006fa0  20 73 65 6c 65 63 74 65  64 25 0d 32 3c 20 20 e7  | selected%.2<  .|
00006fb0  20 73 65 6c 65 63 74 65  64 25 3c 3e 30 20 8c 20  | selected%<>0 . |
00006fc0  73 75 6d 24 3d 22 44 69  76 22 0d 32 46 04 0d 32  |sum$="Div".2F..2|
00006fd0  50 2f c8 99 20 22 57 69  6d 70 45 78 74 5f 47 65  |P/.. "WimpExt_Ge|
00006fe0  74 49 63 6f 6e 22 2c 2c  2c 6d 61 69 6e 25 2c 32  |tIcon",,,main%,2|
00006ff0  33 20 b8 20 73 65 6c 65  63 74 65 64 25 0d 32 5a  |3 . selected%.2Z|
00007000  20 20 e7 20 73 65 6c 65  63 74 65 64 25 3c 3e 30  |  . selected%<>0|
00007010  20 8c 20 64 69 66 24 3d  22 45 61 73 22 0d 32 64  | . dif$="Eas".2d|
00007020  2f c8 99 20 22 57 69 6d  70 45 78 74 5f 47 65 74  |/.. "WimpExt_Get|
00007030  49 63 6f 6e 22 2c 2c 2c  6d 61 69 6e 25 2c 32 34  |Icon",,,main%,24|
00007040  20 b8 20 73 65 6c 65 63  74 65 64 25 0d 32 6e 20  | . selected%.2n |
00007050  20 e7 20 73 65 6c 65 63  74 65 64 25 3c 3e 30 20  | . selected%<>0 |
00007060  8c 20 64 69 66 24 3d 22  4d 65 64 22 0d 32 78 2f  |. dif$="Med".2x/|
00007070  c8 99 20 22 57 69 6d 70  45 78 74 5f 47 65 74 49  |.. "WimpExt_GetI|
00007080  63 6f 6e 22 2c 2c 2c 6d  61 69 6e 25 2c 32 35 20  |con",,,main%,25 |
00007090  b8 20 73 65 6c 65 63 74  65 64 25 0d 32 82 20 20  |. selected%.2.  |
000070a0  e7 20 73 65 6c 65 63 74  65 64 25 3c 3e 30 20 8c  |. selected%<>0 .|
000070b0  20 64 69 66 24 3d 22 48  61 72 22 0d 32 8c 2f c8  | dif$="Har".2./.|
000070c0  99 20 22 57 69 6d 70 45  78 74 5f 47 65 74 49 63  |. "WimpExt_GetIc|
000070d0  6f 6e 22 2c 2c 2c 6d 61  69 6e 25 2c 32 36 20 b8  |on",,,main%,26 .|
000070e0  20 73 65 6c 65 63 74 65  64 25 0d 32 96 20 20 e7  | selected%.2.  .|
000070f0  20 73 65 6c 65 63 74 65  64 25 3c 3e 30 20 8c 20  | selected%<>0 . |
00007100  64 69 66 24 3d 22 56 48  61 22 0d 32 a0 04 0d 32  |dif$="VHa".2...2|
00007110  aa 2f c8 99 20 22 57 69  6d 70 45 78 74 5f 47 65  |./.. "WimpExt_Ge|
00007120  74 49 63 6f 6e 22 2c 2c  2c 6d 61 69 6e 25 2c 31  |tIcon",,,main%,1|
00007130  34 20 b8 20 2c 2c 2c 74  61 62 6c 65 24 0d 32 b4  |4 . ,,,table$.2.|
00007140  04 0d 32 be 2f c8 99 20  22 57 69 6d 70 45 78 74  |..2./.. "WimpExt|
00007150  5f 47 65 74 49 63 6f 6e  22 2c 2c 2c 6d 61 69 6e  |_GetIcon",,,main|
00007160  25 2c 31 30 20 b8 20 73  65 6c 65 63 74 65 64 25  |%,10 . selected%|
00007170  0d 32 c8 30 20 e7 20 73  65 6c 65 63 74 65 64 25  |.2.0 . selected%|
00007180  3c 3e 30 20 8c 20 73 6f  75 6e 64 24 3d 22 4f 6e  |<>0 . sound$="On|
00007190  22 20 8b 20 73 6f 75 6e  64 24 3d 22 4f 66 66 22  |" . sound$="Off"|
000071a0  0d 32 d2 04 0d 32 dc 21  66 69 6c 65 25 3d ae 28  |.2...2.!file%=.(|
000071b0  22 3c 4d 65 67 32 24 44  69 72 3e 2e 4f 70 74 69  |"<Meg2$Dir>.Opti|
000071c0  6f 6e 73 22 29 0d 32 e6  10 f1 23 66 69 6c 65 25  |ons").2...#file%|
000071d0  2c 73 75 6d 24 0d 32 f0  10 f1 23 66 69 6c 65 25  |,sum$.2...#file%|
000071e0  2c 64 69 66 24 0d 32 fa  12 f1 23 66 69 6c 65 25  |,dif$.2...#file%|
000071f0  2c 74 61 62 6c 65 24 0d  33 04 12 f1 23 66 69 6c  |,table$.3...#fil|
00007200  65 25 2c 73 6f 75 6e 64  24 0d 33 0e 0b d9 23 66  |e%,sound$.3...#f|
00007210  69 6c 65 25 0d 33 18 2d  c8 99 20 22 4f 53 5f 46  |ile%.3.-.. "OS_F|
00007220  69 6c 65 22 2c 31 38 2c  22 3c 4d 65 67 32 24 44  |ile",18,"<Meg2$D|
00007230  69 72 3e 2e 4f 70 74 69  6f 6e 73 22 2c 26 30 30  |ir>.Options",&00|
00007240  34 0d 33 22 05 e1 0d 33  2c 04 0d 33 36 1f dd 20  |4.3"...3,..36.. |
00007250  f2 73 68 61 64 65 73 6f  75 6e 64 28 73 68 61 64  |.shadesound(shad|
00007260  65 6f 70 74 69 6f 6e 25  29 0d 33 40 31 c8 99 20  |eoption%).3@1.. |
00007270  22 57 69 6d 70 45 78 74  5f 53 68 61 64 65 49 63  |"WimpExt_ShadeIc|
00007280  6f 6e 22 2c 2c 2c 6d 61  69 6e 25 2c 34 2c 73 68  |on",,,main%,4,sh|
00007290  61 64 65 6f 70 74 69 6f  6e 25 0d 33 4a 31 c8 99  |adeoption%.3J1..|
000072a0  20 22 57 69 6d 70 45 78  74 5f 53 68 61 64 65 49  | "WimpExt_ShadeI|
000072b0  63 6f 6e 22 2c 2c 2c 6d  61 69 6e 25 2c 35 2c 73  |con",,,main%,5,s|
000072c0  68 61 64 65 6f 70 74 69  6f 6e 25 0d 33 54 31 c8  |hadeoption%.3T1.|
000072d0  99 20 22 57 69 6d 70 45  78 74 5f 53 68 61 64 65  |. "WimpExt_Shade|
000072e0  49 63 6f 6e 22 2c 2c 2c  6d 61 69 6e 25 2c 36 2c  |Icon",,,main%,6,|
000072f0  73 68 61 64 65 6f 70 74  69 6f 6e 25 0d 33 5e 32  |shadeoption%.3^2|
00007300  c8 99 20 22 57 69 6d 70  45 78 74 5f 53 68 61 64  |.. "WimpExt_Shad|
00007310  65 49 63 6f 6e 22 2c 2c  2c 6d 61 69 6e 25 2c 33  |eIcon",,,main%,3|
00007320  32 2c 73 68 61 64 65 6f  70 74 69 6f 6e 25 0d 33  |2,shadeoption%.3|
00007330  68 16 e7 20 73 68 61 64  65 6f 70 74 69 6f 6e 25  |h.. shadeoption%|
00007340  3d 30 20 8c 0d 33 72 14  20 20 73 6f 75 6e 64 6f  |=0 ..3r.  soundo|
00007350  70 74 24 3d 22 4f 4e 22  0d 33 7c 06 20 cc 0d 33  |pt$="ON".3|. ..3|
00007360  86 15 20 20 73 6f 75 6e  64 6f 70 74 24 3d 22 4f  |..  soundopt$="O|
00007370  46 46 22 0d 33 90 05 cd  0d 33 9a 22 c8 99 20 22  |FF".3....3.".. "|
00007380  4f 53 5f 43 4c 49 22 2c  22 41 75 64 69 6f 20 22  |OS_CLI","Audio "|
00007390  2b 73 6f 75 6e 64 6f 70  74 24 0d 33 a4 24 c8 99  |+soundopt$.3.$..|
000073a0  20 22 4f 53 5f 43 4c 49  22 2c 22 53 70 65 61 6b  | "OS_CLI","Speak|
000073b0  65 72 20 22 2b 73 6f 75  6e 64 6f 70 74 24 0d 33  |er "+soundopt$.3|
000073c0  ae 05 e1 0d 33 b8 04 0d  33 c2 1e dd 20 f2 73 68  |....3...3... .sh|
000073d0  61 64 65 64 69 66 66 28  73 68 61 64 65 6f 70 74  |adediff(shadeopt|
000073e0  69 6f 6e 25 29 0d 33 cc  32 c8 99 20 22 57 69 6d  |ion%).3.2.. "Wim|
000073f0  70 45 78 74 5f 53 68 61  64 65 49 63 6f 6e 22 2c  |pExt_ShadeIcon",|
00007400  2c 2c 6d 61 69 6e 25 2c  32 33 2c 73 68 61 64 65  |,,main%,23,shade|
00007410  6f 70 74 69 6f 6e 25 0d  33 d6 32 c8 99 20 22 57  |option%.3.2.. "W|
00007420  69 6d 70 45 78 74 5f 53  68 61 64 65 49 63 6f 6e  |impExt_ShadeIcon|
00007430  22 2c 2c 2c 6d 61 69 6e  25 2c 32 34 2c 73 68 61  |",,,main%,24,sha|
00007440  64 65 6f 70 74 69 6f 6e  25 0d 33 e0 32 c8 99 20  |deoption%.3.2.. |
00007450  22 57 69 6d 70 45 78 74  5f 53 68 61 64 65 49 63  |"WimpExt_ShadeIc|
00007460  6f 6e 22 2c 2c 2c 6d 61  69 6e 25 2c 32 35 2c 73  |on",,,main%,25,s|
00007470  68 61 64 65 6f 70 74 69  6f 6e 25 0d 33 ea 32 c8  |hadeoption%.3.2.|
00007480  99 20 22 57 69 6d 70 45  78 74 5f 53 68 61 64 65  |. "WimpExt_Shade|
00007490  49 63 6f 6e 22 2c 2c 2c  6d 61 69 6e 25 2c 32 36  |Icon",,,main%,26|
000074a0  2c 73 68 61 64 65 6f 70  74 69 6f 6e 25 0d 33 f4  |,shadeoption%.3.|
000074b0  05 e1 0d 33 fe 04 0d 34  08 1f dd 20 f2 73 68 61  |...3...4... .sha|
000074c0  64 65 74 61 62 6c 65 28  73 68 61 64 65 6f 70 74  |detable(shadeopt|
000074d0  69 6f 6e 25 29 0d 34 12  32 c8 99 20 22 57 69 6d  |ion%).4.2.. "Wim|
000074e0  70 45 78 74 5f 53 68 61  64 65 49 63 6f 6e 22 2c  |pExt_ShadeIcon",|
000074f0  2c 2c 6d 61 69 6e 25 2c  31 34 2c 73 68 61 64 65  |,,main%,14,shade|
00007500  6f 70 74 69 6f 6e 25 0d  34 1c 32 c8 99 20 22 57  |option%.4.2.. "W|
00007510  69 6d 70 45 78 74 5f 53  68 61 64 65 49 63 6f 6e  |impExt_ShadeIcon|
00007520  22 2c 2c 2c 6d 61 69 6e  25 2c 31 35 2c 73 68 61  |",,,main%,15,sha|
00007530  64 65 6f 70 74 69 6f 6e  25 0d 34 26 32 c8 99 20  |deoption%.4&2.. |
00007540  22 57 69 6d 70 45 78 74  5f 53 68 61 64 65 49 63  |"WimpExt_ShadeIc|
00007550  6f 6e 22 2c 2c 2c 6d 61  69 6e 25 2c 31 36 2c 73  |on",,,main%,16,s|
00007560  68 61 64 65 6f 70 74 69  6f 6e 25 0d 34 30 05 e1  |hadeoption%.40..|
00007570  0d 34 3a 04 0d 34 44 04  0d ff                    |.4:..4D...|
0000757a