� !RunImage
:
� � �error:�

�setup
�loadtemplates

�menus

�learn
	�main
	�

:
��redraw
Ȏ !block% �

� page% :�redrawpage
� output% :�redrawoutput
� learn% :�redrawlearn
�
�
:
��redrawpage
,�getorigin(page%):py%=(q%!16-q%!24)-1024
)ș "OS_ReadVduVariables",rdb%,rdb%+12
xeig%=rdb%!12
yeig%=rdb%!16
*ș "Wimp_RedrawWindow",,block% � more%
7!q%=1280>>xeig%:q%!4=1024>>yeig%:q%!8=640:q%!12=256
<ș "ColourTrans_SelectTable",12,rdb%+20,-1,-1,rdb%+20+80
ȕ more%
Fș "OS_SpriteOp",&134,sprites%,"screen",xorig%,py%,0,q%,rdb%+20+80
*ș "Wimp_GetRectangle",,block% � more%
�
�
 :
!��redrawoutput
")ș"Wimp_RedrawWindow",,block% � more%
#�getorigin(output%)
$)ș "OS_ReadVduVariables",rdb%,rdb%+12
%xeig%=rdb%!12
&yeig%=rdb%!16
'3!q%=128>>xeig%:q%!4=256>>yeig%:q%!8=64:q%!12=64
(8ș "ColourTrans_SelectTable",12,rdb2%,-1,-1,rdb2%+80
)ȕ more%
*ș"Wimp_SetColour",0
+&ȓ Ȑ xorig%+26,yorig%-164,422,128
,'ȓ Ȑ xorig%+466,yorig%-164,128,128
-ș"Wimp_SetColour",11
.�n%=0 � 25
/0ȓ Ȑ xorig%+28+n%*16,yorig%-164,12,bar%(n%)
0�
1Nș "OS_SpriteOp",&134,outspr%,"output",xorig%+466,yorig%-164,0,q%,rdb2%+80
2)ș"Wimp_GetRectangle",,block% � more%
3�
4�
5:
6��redrawlearn
7)ș"Wimp_RedrawWindow",,block% � more%
8�getorigin(learn%)
9)ș "OS_ReadVduVariables",rdb%,rdb%+12
:xeig%=rdb%!12
;yeig%=rdb%!16
<3!q%=256>>xeig%:q%!4=256>>yeig%:q%!8=64:q%!12=64
=8ș "ColourTrans_SelectTable",12,rdb3%,-1,-1,rdb3%+80
>ȕ more%
?ș"Wimp_SetColour",0
@&ȓ Ȑ xorig%+32,yorig%-220,422,128
Aș"Wimp_SetColour",11
B�n%=0 � 25
C1ȓ Ȑ xorig%+36+n%*16,yorig%-220,12,barl%(n%)
D�
ENș "OS_SpriteOp",&134,leaspr%,"letter",xorig%+468,yorig%-220,0,q%,rdb3%+80
F)ș"Wimp_GetRectangle",,block% � more%
G�
H�
I:
Je��getorigin(n%):!q%=n%:ș"Wimp_GetWindowState",,q%:xorig%=(q%!4)-(q%!20):yorig%=(q%!16)-(q%!24):�
K:
L`��getcoords:!q%=page%:ș"Wimp_GetWindowState",,q%:xorig%=(q%!4)-(q%!20):worky%=q%!16-q%!24:�
M:
N��error:� � �
O&�report(�,"Error:"+�$+" Line:"+Þ)
Pș"Wimp_CloseDown"
Q�
R:
S
��main
T�
U�
V$ș"Wimp_Poll",0,block% � reason%
W�do
X� quit%
Y
but%=1
Z� mod% �
[errflags%=3
\C�report(0,"Definitions modified but not saved... Quit anyway?")
]errflags%=1
^� but%=2 � quit%=0
_�
`� but%=1
a"ș"Wimp_CloseDown",handle%,!q%
b�
c:
d��setup
e�� q% 256,block% 1024,win% &800,ip% &100,io% &1000,ii% &100,it% &1000,iconbarmenu% &100,pagemenu% &100,indws% 1024,sprites% 41920,mx%(1000,1),my%(1000,1),m%(1),bar%(25),rdb% 256,bx%(1),by%(1),tx%(1),ty%(1),mess% 8192
f�� i%(7,7),lx%(100,9),ly%(100,9),lets%(9),l%(100,9),ist% &1000,il% &100,i2%(7,7),barl%(25),iw% &300,real(8,8,25),learnmenu% &100,copylets% &728,outspr% 576,rdb2% 256,leaspr% 1088,rdb3% 256,isa% &200,textst% &1000,onl%(80)
g
�assemble
h+�"LOAD <Adaline$Dir>.Letters "+�~input%
i.�"LOAD <Adaline$Dir>.Letters "+�~copylets%
j'�"LOAD <Adaline$Dir>.Data "+�~mess%
k� wipeweights:A%=-1
lpoke%=input%+&680
m$q%="TASK"
n6ș"Wimp_Initialise",200,!q%,"Adaline 5" � ,handle%
o!block%=-1
pblock%!4=0
qblock%!8=0
rblock%!12=68
sblock%!16=68
tblock%!20=&3002
u$(block%+24)="!adaline5"
v(ș"Wimp_CreateIcon",,block% � iconb%
wcurpage%=1:errflags%=1
xquit%=0
y!sprites%=41920
zsprites%!8=16
{ș &2E,&109,sprites%
|-ș &2E,&10F,sprites%,"screen",0,640,256,8
}!outspr%=576
~outspr%!8=16
ș &2E,&109,outspr%
�*ș &2E,&10F,outspr%,"output",0,64,32,0
�!leaspr%=1088
�leaspr%!8=16
�ș &2E,&109,leaspr%
�*ș &2E,&10F,leaspr%,"letter",0,32,32,9
�ox%=-1:oy%=-1:on%=0:sm%=0:sm_offset%=0:curr%=0:ton%=0:time%=0:olx%=0:oly%=0:mode%=0:curl%=0:mod%=0:any%=1:boxon%=0:boxnu%=0
�>�x%=0 � 7:�y%=0 � 7:i2%(x%,y%)=(input%?((y%*8)+x%))/32:�:�
��updateout:�updatelea
�Krdb%!20=&FFFFFF00:rdb%!24=&00000000:rdb%!28=&80800000:rdb%!32=&FFBB0000
�&!rdb2%=&FFFFFF00:rdb2%!4=&00000000
�M�c%=0 � 7:col%=255-(c%*36):rdb3%!(c%*4)=(col%<<24)+(col%<<16)+(col%<<8):�
�!rdb%=4
�rdb%!4=5
�
rdb%!8=-1
��
�:
���loadtemplates
�Cș"Font_FindFont",,"Trinity.Bold.Italic",480,480,0,0 � fhandle%
�4ș"Wimp_OpenTemplate",,"<Adaline$Dir>.Templates"
�8ș"Wimp_LoadTemplate",,win%,ip%,ip%+&100,-1,"Page",0
�'ș"Wimp_CreateWindow",,win% � page%
�;ș"Wimp_LoadTemplate",,win%,io%,io%+&1000,-1,"Output",0
�)ș"Wimp_CreateWindow",,win% � output%
�8ș"Wimp_LoadTemplate",,win%,ii%,ii%+&100,-1,"Info",0
�'ș"Wimp_CreateWindow",,win% � info%
�<ș"Wimp_LoadTemplate",,win%,it%,it%+&1000,-1,"toolbox",0
�*ș"Wimp_CreateWindow",,win% � toolbox%
�Dș"Wimp_LoadTemplate",,win%,ist%,ist%+&1000,fhandle%,"startup",0
�*ș"Wimp_CreateWindow",,win% � startup%
�9ș"Wimp_LoadTemplate",,win%,il%,il%+&100,-1,"Learn",0
�(ș"Wimp_CreateWindow",,win% � learn%
�8ș"Wimp_LoadTemplate",,win%,iw%,iw%+&300,-1,"warn",0
�'ș"Wimp_CreateWindow",,win% � warn%
�;ș"Wimp_LoadTemplate",,win%,isa%,isa%+&200,-1,"savet",0
�(ș"Wimp_CreateWindow",,win% � savet%
�ș"Wimp_CloseTemplate"
��
�:
�
��open
�T� !block%=page% � block%!4<0 � wid%=block%!12-block%!4:block%!4=0:block%!12=wid%
�ș"Wimp_OpenWindow",,block%
�� !block%=page% �
�!block%=toolbox%
�block%!4=block%!4-66
�block%!8=block%!8-256
�� block%!4<0 � block%!4=0
�ș"Wimp_OpenWindow",,block%
��
�� !block%=info% � boxon%=1
��
�:
���openmain
��openwin(page%)
��openwin(toolbox%)
��
�:
���openwin(win%)
�!block%=win%
�#ș"Wimp_GetWindowState",,block%
�ș"Wimp_OpenWindow",,block%
��
�:
���closewin(win%)
�!block%=win%
�#ș"Wimp_GetWindowState",,block%
� ș"Wimp_CloseWindow",,block%
��
�:
���close
� ș"Wimp_CloseWindow",,block%
�C� !block%=page% � !block%=toolbox%:ș"Wimp_CloseWindow",,block%
�� !block%=info% � boxon%=0
��
�:
���do
�Ȏ reason% �
�� 17,18: �receive
�� 19: �who
�� 6: Ȏ block%!8 �
�� 16,64: �drag
�� 4 : Ȏ block%!12 �
�� -2 : �openmain
�� toolbox% :�toolclick
�� page% : �clickmain
�� info% : �sm
�� learn% : �clicklearn
�� warn% : �warn
�� savet% : �clicksave
��
�� 2 : Ȏ block%!12 �
�4� -2: �showmenu(iconbarmenu%,!block%-64,96+4*44)
�L� page%: �showmenu(pagemenu%,(!block%)-((pagemenu%!16)/2),(block%!4)+16)
�O� learn%: �showmenu(learnmenu%,(!block%)-((learnmenu%!16)/2),(block%!4)+16)
��
��
�� 1: �redraw
�� 2: �open
�� 3: �close
�� 7: �finishdrag
�� 9: �decodemenu
��
�� sm% � reason%=0 �ms
�K� reason%=0 � ton%=1 � �>time%+400 � �getchar:ton%=0:curr%=0:olx%=-1000
�*q%!0=info%:ș"Wimp_GetWindowState",,q%
�Z� (q%!32 � 1<<16) � boxnu%=(boxnu%+1) � 9:�setstate(info%,0,�(boxnu%)):t%=�:� � �>t%+3
��
�:
���ms
�O� mess%?sm_offset%=10 � sm_offset%=0:sm%=0:�setstate(info%,1,"Adaline 5"):�
�:s$="":�n%=sm_offset% � sm_offset%+25:s$+=�(mess%?n%):�
�*Ȗ:�setstate(info%,1,s$):sm_offset%+=1
��
�:
���report(e%,s$)
�W!block%=e%:$(block%+4)=s$:ș"Wimp_ReportError",block%,errflags%,"Adaline 5" � ,but%
��
�:
���toolclick:icon%=block%!16
�Ȏ icon% �
�� 6:�uppage
�� 4:�downpage
�7� 2:� mode%=2 � mode%=omode% � omode%=mode%:mode%=2
�� 1:mode%=1
�� 0:mode%=0
��
��
�:
� ��clicklearn:icon%=block%!16

�� icon%=6 � addr%=input%+(curl%*64):�n%=0 � 63:addr%?n%=0:�:!(input%+&6C0+(curl%*4))=0:!block%=learn%:any%=0:�changemenu:�ugrey(learnmenu%,1):�showlearn


�� icon%=11 � curl%>0 � curl%-=1:�checkchange:�calclearn:�updatelea:!block%=learn%:ș"Wimp_GetWindowState",,block%:�redrawlearn

�� icon%=12 � curl%<25 � curl%+=1:�checkchange:�calclearn:�updatelea:!block%=learn%:ș"Wimp_GetWindowState",,block%:�redrawlearn

Q� icon%=7 � any%=1 � ș"Hourglass_On":� learnall:ș"Hourglass_Off":�showlearn

^� icon%=7 � any%=0 � �report(0,"Data for letters incomplete. Unable to learn definitions")

�

:

:��uppage:� ton%=1 � �getchar:ton%=0:curr%=0:olx%=-1000

J� curpage%<9 � curpage%+=1:�setstate(toolbox%,5,�(curpage%)):�showpage

	�


:

<��downpage:� ton%=1 � �getchar:ton%=0:curr%=0:olx%=-1000

J� curpage%>0 � curpage%-=1:�setstate(toolbox%,5,�(curpage%)):�showpage


�

:

��sm

D� block%!16=9 sm%=sm% � 1:� sm%=0 �setstate(info%,1,"Adaline 5")

�

:

��drag:� block%!16<>2 �

!block%=savet%

#ș"Wimp_GetWindowState",,block%

x%=block%!4-block%!20

y%=block%!16-block%!24

block%!4=2

!ș"Wimp_GetIconState",,block%


!block%=0

block%!4=5

block%!8+=x%

block%!12+=y%

block%!16+=x%

block%!20+=y%

 block%!24=-1

!block%!28=-1

"block%!32=&7FFFFFFF

#block%!36=&7FFFFFFF

$ș"Wimp_DragBox",,block%

%�

&:

'��finishdrag

(V�compiletext:� datext%=0 � �report(-1,"No text to save"):ș"Wimp_CreateMenu",,-1:�

)messp%=textst%

*#ș"Wimp_GetPointerInfo",,block%

+block%!32=block%!4

,block%!28=!block%

-block%!24=block%!16

.block%!20=block%!12

/block%!16=1

0block%!12=0

1block%!36=datext%

2block%!40=&FFF

3/$(block%+44)=�end(�getstate(savet%,1))+�(0)

4!block%=60

56ș"Wimp_SendMessage",17,block%,block%!20,block%!24

6�

7:

8
ݤend(n$)

9$ȕ �n$,"."):n$=�n$,�n$,".")+1):�

:=n$

;:

<*��compiletext:messp%=textst%:datext%=0

=q%!0=savet%:q%!4=3

>ș"Wimp_GetIconState",,q%

?O� (q%!24 � 1<<21) �compilepage(curpage%) � �cpa%=0 � 9:�compilepage(cpa%):�

@�

A:

B+��compilepage(page%):� lets%(page%)=0 �

C4$messp%="Page :"+�page%+�10:messp%+=8:datext%+=8

D1�cy%=0 � 15:ay%=(15-cy%)*64:op%=0:d$=�76," ")

EX�l%=0 � lets%(page%)-1:� ly%(l%,page%)=ay% � �d$,lx%(l%,page%)/16,1)=�(l%(l%,page%))

F�

Gd$=�left(d$)

HW� �(d$)>0 � $messp%=d$+�10:messp%+=d%:datext%+=d% � ?messp%=10:messp%+=1:datext%+=1

I�

J�

K�

L:

Mݤleft(d$)

N�z%=76 � 0 � -1

O0� �d$,z%,1)<>" " � m$=�d$,z%):d%=�(m$)+1:=m$

P�

Q=""

R:

S��receive:r%=block%!16

TȎ r% �

U� 0: quit%=�

V� 2: �filesave

W� 6: �ramsave

X�

Y�

Z:

[��filesave

\name$=�string(block%+44)

]�setstate(savet%,1,name$)

^z%=�savefile(name$)

_Jblock%!12=block%!8:block%!16=3:ș"Wimp_SendMessage",17,block%,block%!4

` � z% ș"Wimp_CreateMenu",,-1

a�

b:

cݤstring(p%):s$=""

dA�n%=p% � p%+255:c%=?n%:� c%>31 � c%<127 � s$+=�c% � n%=p%+255

e�

f=s$

g:

hݤsavefile(n$)

i2� � � �report(-1,"Filer error :"+ß+":"+�$):=0

j3ș"OS_File",10,n$,&FFF,,textst%,textst%+datext%

k=-1

l:

m
��ramsave

n"block%!12=block%!8:block%!16=7

o/� (block%!24-datext%)>0 � block%!24=datext%

pGș "Wimp_TransferBlock",handle%,messp%,block%!4,block%!20,block%!24

q,ș "Wimp_SendMessage",17,block%,block%!4

r(messp%+=block%!24:datext%-=block%!24

s�

t:

u ��setstate(win%,but%,state$)

v!q%=win%

w
q%!4=but%

xș"Wimp_GetIconState",,q%

y$q%!28=state$

z
q%!8=0

{q%!12=0

|ș"Wimp_SetIconState",,q%

}�

~:

ݤgetstate(win%,but%)

�!q%=win%

�
q%!4=but%

�ș"Wimp_GetIconState",,q%

�=$q%!28

�:

���clickmain:ton%=1:time%=�

�8�get(curr%):� m%(curr%)=1 � ton%=0:�showwin(page%):�

�#� mode%=1 � �trydelete:ton%=0:�

�.m%(curr%)-=1:over%=0:� curr%=0 � curr%=1:�

�� �overlap=2 � �add:�

��getchar:�copytoz:�

�:

���outer(n%)

�Cbx%(n%)=1280:by%(n%)=1024:tx%(n%)=0:ty%(n%)=0:m%(n%)-=1:over%=0

�.�o%=0 � m%(n%):x%=mx%(o%,n%):y%=my%(o%,n%)

�
� x%>-1 �

�� x%<bx%(n%) � bx%(n%)=x%

�� x%>tx%(n%) � tx%(n%)=x%

�� y%<by%(n%) � by%(n%)=y%

�� y%>ty%(n%) � ty%(n%)=y%

��

��

��

�:

�
ݤoverlap

�+�o%=0 � m%(1):x%=mx%(o%,1):y%=my%(o%,1)

�over%=0

�%� x%>bx%(0) � x%<tx%(0) � over%=1

�&� y%>by%(0) � y%<ty%(0) � over%+=1

�� over%=2 � o%=m%(1)

��

�
=over%

�:

�	��add

�#� bx%(1)<bx%(0) � bx%(0)=bx%(1)

�#� tx%(1)>tx%(0) � tx%(0)=tx%(1)

�#� by%(1)<by%(0) � by%(0)=by%(1)

�#� ty%(1)>ty%(0) � ty%(0)=ty%(1)

�mx%(m%(0)+1,0)=-1

��n%=0 � m%(1)

�mx%(m%(0)+n%+2,0)=mx%(n%,1)

�my%(m%(0)+n%+2,0)=my%(n%,1)

��

�m%(0)+=m%(1)+2

��

�:

�
��copytoz

��n%=0 � m%(1)

�mx%(n%,0)=mx%(n%,1)

�my%(n%,0)=my%(n%,1)

��

�bx%(0)=bx%(1)

�by%(0)=by%(1)

�tx%(0)=tx%(1)

�ty%(0)=ty%(1)

�m%(0)=m%(1)

��

�:

�9��getchar:�del(0):� tx%(0)=bx%(0) � ty%(0)=by%(0) � �

�P� lets%(curpage%)=100 � �report(0,"No more room for letters on this page"):�

�;�x%=0 � 7:�y%=0 � 7:i%(x%,y%)=0:poke%?((y%*8)+x%)=0:�:�

�5scalex=8/(tx%(0)-bx%(0)):scaley=8/(ty%(0)-by%(0))

��n%=0 � m%(0)-1

�� mx%(n%,0)=-1 � n%+=1

�?x%=(mx%(n%,0)-bx%(0))*scalex:y%=8-(my%(n%,0)-by%(0))*scaley

�� x%=8 � x%=7

�� y%=8 � y%=7

�%i%(x%,y%)=1:poke%?((y%*8)+x%)=&FF

��

�char%=�(forward)+65

�� lets%(curpage%)>0 �

�z� ((bx%(0)-olx%)^2)+((by%(0)-oly%)^2)<20000 � ((bx%(0)-olbx%)^2)+((by%(0)-oly%)^2)<10000 � bx%(0)=olbx%+16:by%(0)=oly%

��

�by%(0)=(�(by%(0)/64)*64)

�(olx%=tx%(0):oly%=by%(0):olbx%=bx%(0)

ˢ�print(bx%(0),by%(0),�(char%)):l%(lets%(curpage%),curpage%)=char%:lx%(lets%(curpage%),curpage%)=bx%(0):ly%(lets%(curpage%),curpage%)=by%(0):lets%(curpage%)+=1

�)� n%=0 � 25:z%=(outputs%!(n%*4))/2^22

�� z%>128 � z%=128

�� z%<0 � z%=0

�bar%(n%)=z%:�

�F�updateout:!block%=output%:ș"Wimp_GetWindowState",,block%:�redraw

�� mode%=2 � �ammend

�
m%(0)=0:�

�:

���print(x%,y%,s$)

�#ș &2E,&13C,sprites%,"screen",1

�)ș "OS_ReadVduVariables",rdb%,rdb%+12

�xeig%=rdb%!12

�yeig%=rdb%!16

�7� x%,y%+32:� 1:�5,23,17,7,2,16>>xeig%;32>>yeig%|�s$

�ș &2E,&13C,sprites%,0,1

�!rdb%=164:rdb%!4=165

�(ș"OS_ReadVduVariables",rdb%,rdb%+12

� � 23,17,7,2,rdb%!12;rdb%!16|

�!rdb%=4:rdb%!4=5

�9!block%=page%:ș"Wimp_GetWindowState",,block%:�redraw

��

�:

�'��calclearn:addr%=input%+(curl%*64)

�a�x%=0 � 7:�y%=0 � 7:i2%(x%,y%)=(addr%?((y%*8)+x%))/32:poke%?((y%*8)+x%)=addr%?((y%*8)+x%):�:�

�char%=�(forward)+65

�)� n%=0 � 25:z%=(outputs%!(n%*4))/2^22

�� z%>128 � z%=128

�� z%<0 � z%=0

�barl%(n%)=z%:�

�D�setstate(learn%,3,"Current definition for letter:"+�(curl%+65))

�$numinp%=!(input%+&6C0+(curl%*4))

�,� numinp%=1 � s$=" input" � s$=" inputs"

�3�setstate(learn%,5,"Average of "+�(numinp%)+s$)

��

�:

���showpage

�#ș &2E,&13C,sprites%,"screen",1

�)ș "OS_ReadVduVariables",rdb%,rdb%+12

�xeig%=rdb%!12

�yeig%=rdb%!16

�C�5,23,17,7,2,16>>xeig%;32>>yeig%|:� 4:� 0,0:� 101,1279,1023:� 1

��n%=0 � lets%(curpage%)-1

�<� lx%(n%,curpage%),ly%(n%,curpage%)+32:� l%(n%,curpage%)

��

�ș &2E,&13C,sprites%,0,1

�!rdb%=164:rdb%!4=165

�(ș"OS_ReadVduVariables",rdb%,rdb%+12

� � 23,17,7,2,rdb%!12;rdb%!16|

�!rdb%=4:rdb%!4=5

�=!block%=page%:ș"Wimp_GetWindowState",,block%:�redrawpage

��

�:
��updateout

"ș &2E,&13C,outspr%,"output",1
� 0:� 0,0:� 101,128,128:� 1
�n%=0 � 7:�n2%=0 � 7
/� i%(n%,n2%) � ȓ Ȑ n%*16,112-n2%*16,15,15
�:�
ș &2E,&13C,outspr%,0,1
�
:
	��updatelea

"ș &2E,&13C,leaspr%,"letter",1
� 0:� 0,0:� 101,128,128:� 1
ș"Wimp_SetColour",7

�n%=0 � 7:�n2%=0 � 7
� i2%(n%,n2%)
 ȓ Ȑ n%*16,112-n2%*16,15,15
�:�
ș &2E,&13C,leaspr%,0,1
�
:
*��warn:� block%!16<2 � block%!16>3 � �
]� block%!16=3 � �n%=input% � input%+&728 � 4:!n%=0:�:any%=0:mod%=1:�changemenu:�showlearn
N!block%=warn%:ș"Wimp_GetWindowState",,block%:ș"Wimp_CloseWindow",,block%
�
:
8��showlearn:�calclearn:�updatelea:�showwin(learn%):�
:
J��showwin(win%):!block%=win%:ș"Wimp_GetWindowState",,block%:�redraw:�
:
+��ammend:� any%=0 � �rchangemenu:any%=1
-�ugrey(learnmenu%,0):�ugrey(learnmenu%,1)
Raddr%=input%+(curl%*64):numinp%=!(input%+&6C0+(curl%*4)):new%=numinp%+1:mod%=1
 c�y%=0 � 7:�x%=0 � 7:real(x%,y%,curl%)=(real(x%,y%,curl%)*(numinp%/new%))+((i%(x%,y%)*255)/new%)
!)?addr%=real(x%,y%,curl%):addr%+=1:�:�
",!(input%+&6C0+(curl%*4))=new%:�showlearn
#�
$:
% ��clicksave:� block%!16<>4 �
&name$=�getstate(savet%,1)
'� �valid(name$) �
(.� �savefile(name$) ș"Wimp_CreateMenu",,-1
)�
*�
+?�report(-1,"To save, drag the file to a directory display")
,�
-:
.%ݤvalid(n$):=�n$,"::") � �n$,".")
/:
0��saveletters
13�"SAVE <Adaline$Dir>.Letters "+�~input%+" +728"
2+*SETTYPE <Adaline$Dir>.Letters AdLetDef
3mod%=0:�rchangemenu
4�
5:
6��loadletters
7+�"LOAD <Adaline$Dir>.Letters "+�~input%
8�showlearn:mod%=0
9�
::
;��grey(menu%,item%)
<5menu%!(36+item%*24)=(menu%!(36+item%*24) � 1<<22)
=�
>:
?��ugrey(menu%,item%)
@9menu%!(36+item%*24)=(menu%!(36+item%*24) � � (1<<22))
A�
B:
CX��undochange:addr%=input%+(curl%*64):numinp%=!(input%+&6C0+(curl%*4)):new%=numinp%-1
D� new%>0 �
Ef�y%=0 � 7:�x%=0 � 7:real(x%,y%,curl%)=(real(x%,y%,curl%)-((i%(x%,y%)*255)/numinp%))*(numinp%/new%)
F)?addr%=real(x%,y%,curl%):addr%+=1:�:�
G�
HQ�y%=0 � 7:�x%=0 � 7:real(x%,y%,curl%)=0:?addr%=real(x%,y%,curl%):addr%+=1:�:�
Iany%=0:�changemenu
J�
K,!(input%+&6C0+(curl%*4))=new%:�showlearn
L�grey(learnmenu%,0)
M�
N:
O��restoreletter
P�addr%=input%+(curl%*64):addr2%=copylets%+(curl%*64):�n%=0 � 63:addr%?n%=addr2%?n%:�:!(input%+&6C0+(curl%*4))=!(copylets%+&6C0+(curl%*4)):!block%=learn%
Qp�y%=0 � 7:�x%=0 � 7:real(x%,y%,curl%)=?addr%:addr%+=1:�:�:any%=1:�rchangemenu:�grey(learnmenu%,1):�showlearn
R�
S:
T���checkchange:�grey(learnmenu%,0):� !(input%+&6C0+(curl%*4))<>!(copylets%+&6C0+(curl%*4)) � �ugrey(learnmenu%,1) � �grey(learnmenu%,1)
U�
V:
W%��trydelete:� lets%(curpage%)=0 �
X�m%=0 � m%(0)
Ymx%=mx%(m%,0):my%=my%(m%,0)
Z�m2%=0 � lets%(curpage%)-1
[s� (mx%>lx%(m2%,curpage%)) � (mx%<lx%(m2%,curpage%)+16) � (my%>ly%(m2%,curpage%)) � (my%<ly%(m2%,curpage%)+32) �
\8� m2%=lets%(curpage%)-1 � olbx%=lx%(m2%,curpage%)-16
] �m3%=m2%+1 � lets%(curpage%)
^sl%(m3%-1,curpage%)=l%(m3%,curpage%):lx%(m3%-1,curpage%)=lx%(m3%,curpage%):ly%(m3%-1,curpage%)=ly%(m3%,curpage%)
_�:lets%(curpage%)-=1:m2%-=1
`�
a�:�:�showpage
b�
c:
d��assemble
e8� net% &2000,input% &728,weight% &28A00,outputs% &68
f(�"LOAD <Adaline$Dir>.ARMNet "+�~net%
gwipeweights=(!net%)+net%
hforward=(net%!4)+net%
ilearn=(net%!8)+net%
j"weighttablebase=(net%!12)+net%
k inputtableptr=(net%!16)+net%
l!outputtableptr=(net%!20)+net%
mlearnall=(net%!24)+net%
nlearnone=(net%!28)+net%
o!weighttablebase=weight%
p!inputtableptr=input%
q!outputtableptr=outputs%
routputtableptr!4=mess%
s�
t:
u��learn
v�openwin(startup%):�open
w�
x$ș"Wimp_Poll",0,block% � reason%
y� reason%=0
z�do
{� learnall
|Kp%=input%:�n%=0 � 25:�y%=0 � 7:�x%=0 � 7:real(x%,y%,n%)=?p%:p%+=1:�:�:�
}�closewin(startup%)
~ș"Font_LoseFont",fhandle%
�
�:
���get(let%):on%=1
�n�getcoords:worky%-=1024:ș"Wimp_SetColour",15:ox%=-1:oy%=-1:on%=1:m%(let%)=0:bx%=3000:by%=3000:tx%=0:ty%=0
��
�� m%(let%)=1000 � �7:on%=0
�� on% �
�0ȗ x%,y%,but%:� SYS"Wimp_GetPointerInfo",,q%
�<� m%(let%)>0 �26:� ox%,oy%:ș"Wimp_SetColour",15:� x%,y%
�#ș &2E,&13C,sprites%,"screen",1
�� x%<>ox% � y%<>oy% �
�x2%=x%-xorig%:y2%=y%-worky%
�� x2%<bx% � bx%=x2%
�� x2%>tx% � tx%=x2%
�� y2%<by% � by%=y2%
�� y2%>ty% � ty%=y2%
�:� m%(let%)>0 � � ox%-xorig%,oy%-worky%:� 4,0:� x2%,y2%
�=mx%(m%(let%),let%)=x2%:my%(m%(let%),let%)=y2%:m%(let%)+=1
�ox%=x%:oy%=y%
��
�ș &2E,&13C,sprites%,0,1
�#ș"Wimp_Poll",,block% � reason%
��
�/� (reason%<>6 � reason%>0) � on%=0 � but%=0
�;bx%(let%)=bx%:by%(let%)=by%:tx%(let%)=tx%:ty%(let%)=ty%
��
�:
�
��del(n%)
�#ș &2E,&13C,sprites%,"screen",1
�	� 4,0
�� mx%(0,n%),my%(0,n%)
��n2%=1 � m%(n%)
�;� mx%(n2%,n%)=-1 � � mx%(n2%+1,n%),my%(n2%+1,n%):n2%+=2
�� mx%(n2%,n%),my%(n2%,n%)
��
�ș &2E,&13C,sprites%,0,1
�9!block%=page%:ș"Wimp_GetWindowState",,block%:�redraw
��
�:
���makemenu(addr%,� indws%)
��i$="":� title$:$(addr%)=title$:width%=�title$:addr%?12=7:addr%?13=2:addr%?14=7:addr%?15=0:addr%!20=44:addr%!24=0:menu%=addr%+28
�A�:� item$:a%=�item$,"/"):flags%=0:indir%=0:sub%=0:external%=0
�
� a% �
�i$=�item$,a%+1,�item$-a%)
� � �i$,"D") flags%=flags% � 2
�� �i$,"S") sub%=1
�"� �i$,"*") flags%=flags% � 128
� item$=�item$,1,�item$-�i$-1)
��
�� �item$>11 indir%=1
�Bmenu%!0=flags%:� sub% � submenu%:menu%!4=submenu% � menu%!4=-1
��
�!� �item$>width% width%=�item$
�3� �item$<12 $(menu%+12)=item$:menu%!8=&07000021
�n� ((flags% � 4)=4) � buf%,buflen%:menu%!12=buf%:menu%!16=-1:menu%!20=buflen%:$buf%=item$:menu%!8=&0700F121
�!� indir% � ((flags% � 4)=0) �
�bmenu%!12=indws%:menu%!16=-1:menu%!20=�item$+1:$indws%=item$:indws%+=�item$+1:menu%!8=&07000121
�� external% �
�=� buf%,buflen%:menu%!12=buf%:menu%!20=buflen%:$buf%=item$
��
��
�
menu%+=24
�� (flags% � 128)
�addr%!16=(width%*16)+32
��
�:
���menus
�� +1
�D� "Adaline","Info/S",info%,"Output...","Definitions...","Quit/*"
�"�makemenu(iconbarmenu%,indws%)
�� +1
Ɨ� "Adaline","Info/SD",info%,"Save definitions","Restore definitions","Delete definitions/D","Save text.../SD",savet%,"Output...","Definitions.../*"
��makemenu(pagemenu%,indws%)
�9� "Definitions","Undo last change","Restore letter/*"
� �makemenu(learnmenu%,indws%)
�+�grey(learnmenu%,0):�grey(learnmenu%,1)
��
�:
���changemenu
�)�grey(pagemenu%,1):�grey(pagemenu%,3)
��
�:
���rchangemenu
�+�ugrey(pagemenu%,1):�ugrey(pagemenu%,3)
��
�:
���showmenu(menu%,x%,y%)
�$topmenu%=menu%:topx%=x%:topy%=y%
�%ș "Wimp_CreateMenu",,menu%,x%,y%
��
�:
���decodemenu
� ș "Wimp_GetPointerInfo",,q%
�adjust%=(q%!8 � 1)
�,ș "Wimp_DecodeMenu",,topmenu%,block%,q%
�Ȏ $q% �
�� "Quit":quit%=�
�#� "Output...":�openwin(output%)
�2� "Definitions...":�calclearn:�openwin(learn%)
�y� "Delete definitions":!block%=warn%:ș"Wimp_GetWindowState",,block%:ș"Wimp_OpenWindow",,block%:�ugrey(learnmenu%,1)
�%� "Save definitions":�saveletters
�[� "Restore definitions":�loadletters:� any%=0 � �rchangemenu:�grey(learnmenu%,1):any%=1
�%� "Restore letter":�restoreletter
�$� "Undo last change":�undochange
��
�-� adjust% �showmenu(topmenu%,topx%,topy%)
��
�

00000000  0d 00 01 0f f4 20 21 52  75 6e 49 6d 61 67 65 0d  |..... !RunImage.|
00000010  00 02 05 3a 0d 00 03 10  ee 20 85 20 f2 65 72 72  |...:..... . .err|
00000020  6f 72 3a e0 0d 00 04 0a  f2 73 65 74 75 70 0d 00  |or:......setup..|
00000030  05 12 f2 6c 6f 61 64 74  65 6d 70 6c 61 74 65 73  |...loadtemplates|
00000040  0d 00 06 0a f2 6d 65 6e  75 73 0d 00 07 0a f2 6c  |.....menus.....l|
00000050  65 61 72 6e 0d 00 08 09  f2 6d 61 69 6e 0d 00 09  |earn.....main...|
00000060  05 e0 0d 00 0a 05 3a 0d  00 0b 0c dd f2 72 65 64  |......:......red|
00000070  72 61 77 0d 00 0c 10 c8  8e 20 21 62 6c 6f 63 6b  |raw...... !block|
00000080  25 20 ca 0d 00 0d 18 c9  20 70 61 67 65 25 20 3a  |% ...... page% :|
00000090  f2 72 65 64 72 61 77 70  61 67 65 0d 00 0e 1c c9  |.redrawpage.....|
000000a0  20 6f 75 74 70 75 74 25  20 3a f2 72 65 64 72 61  | output% :.redra|
000000b0  77 6f 75 74 70 75 74 0d  00 0f 1a c9 20 6c 65 61  |woutput..... lea|
000000c0  72 6e 25 20 3a f2 72 65  64 72 61 77 6c 65 61 72  |rn% :.redrawlear|
000000d0  6e 0d 00 10 05 cb 0d 00  11 05 e1 0d 00 12 05 3a  |n..............:|
000000e0  0d 00 13 10 dd f2 72 65  64 72 61 77 70 61 67 65  |......redrawpage|
000000f0  0d 00 14 2c f2 67 65 74  6f 72 69 67 69 6e 28 70  |...,.getorigin(p|
00000100  61 67 65 25 29 3a 70 79  25 3d 28 71 25 21 31 36  |age%):py%=(q%!16|
00000110  2d 71 25 21 32 34 29 2d  31 30 32 34 0d 00 15 29  |-q%!24)-1024...)|
00000120  c8 99 20 22 4f 53 5f 52  65 61 64 56 64 75 56 61  |.. "OS_ReadVduVa|
00000130  72 69 61 62 6c 65 73 22  2c 72 64 62 25 2c 72 64  |riables",rdb%,rd|
00000140  62 25 2b 31 32 0d 00 16  11 78 65 69 67 25 3d 72  |b%+12....xeig%=r|
00000150  64 62 25 21 31 32 0d 00  17 11 79 65 69 67 25 3d  |db%!12....yeig%=|
00000160  72 64 62 25 21 31 36 0d  00 18 2a c8 99 20 22 57  |rdb%!16...*.. "W|
00000170  69 6d 70 5f 52 65 64 72  61 77 57 69 6e 64 6f 77  |imp_RedrawWindow|
00000180  22 2c 2c 62 6c 6f 63 6b  25 20 b8 20 6d 6f 72 65  |",,block% . more|
00000190  25 0d 00 19 37 21 71 25  3d 31 32 38 30 3e 3e 78  |%...7!q%=1280>>x|
000001a0  65 69 67 25 3a 71 25 21  34 3d 31 30 32 34 3e 3e  |eig%:q%!4=1024>>|
000001b0  79 65 69 67 25 3a 71 25  21 38 3d 36 34 30 3a 71  |yeig%:q%!8=640:q|
000001c0  25 21 31 32 3d 32 35 36  0d 00 1a 3c c8 99 20 22  |%!12=256...<.. "|
000001d0  43 6f 6c 6f 75 72 54 72  61 6e 73 5f 53 65 6c 65  |ColourTrans_Sele|
000001e0  63 74 54 61 62 6c 65 22  2c 31 32 2c 72 64 62 25  |ctTable",12,rdb%|
000001f0  2b 32 30 2c 2d 31 2c 2d  31 2c 72 64 62 25 2b 32  |+20,-1,-1,rdb%+2|
00000200  30 2b 38 30 0d 00 1b 0c  c8 95 20 6d 6f 72 65 25  |0+80...... more%|
00000210  0d 00 1c 46 c8 99 20 22  4f 53 5f 53 70 72 69 74  |...F.. "OS_Sprit|
00000220  65 4f 70 22 2c 26 31 33  34 2c 73 70 72 69 74 65  |eOp",&134,sprite|
00000230  73 25 2c 22 73 63 72 65  65 6e 22 2c 78 6f 72 69  |s%,"screen",xori|
00000240  67 25 2c 70 79 25 2c 30  2c 71 25 2c 72 64 62 25  |g%,py%,0,q%,rdb%|
00000250  2b 32 30 2b 38 30 0d 00  1d 2a c8 99 20 22 57 69  |+20+80...*.. "Wi|
00000260  6d 70 5f 47 65 74 52 65  63 74 61 6e 67 6c 65 22  |mp_GetRectangle"|
00000270  2c 2c 62 6c 6f 63 6b 25  20 b8 20 6d 6f 72 65 25  |,,block% . more%|
00000280  0d 00 1e 05 ce 0d 00 1f  05 e1 0d 00 20 05 3a 0d  |............ .:.|
00000290  00 21 12 dd f2 72 65 64  72 61 77 6f 75 74 70 75  |.!...redrawoutpu|
000002a0  74 0d 00 22 29 c8 99 22  57 69 6d 70 5f 52 65 64  |t..").."Wimp_Red|
000002b0  72 61 77 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |rawWindow",,bloc|
000002c0  6b 25 20 b8 20 6d 6f 72  65 25 0d 00 23 17 f2 67  |k% . more%..#..g|
000002d0  65 74 6f 72 69 67 69 6e  28 6f 75 74 70 75 74 25  |etorigin(output%|
000002e0  29 0d 00 24 29 c8 99 20  22 4f 53 5f 52 65 61 64  |)..$).. "OS_Read|
000002f0  56 64 75 56 61 72 69 61  62 6c 65 73 22 2c 72 64  |VduVariables",rd|
00000300  62 25 2c 72 64 62 25 2b  31 32 0d 00 25 11 78 65  |b%,rdb%+12..%.xe|
00000310  69 67 25 3d 72 64 62 25  21 31 32 0d 00 26 11 79  |ig%=rdb%!12..&.y|
00000320  65 69 67 25 3d 72 64 62  25 21 31 36 0d 00 27 33  |eig%=rdb%!16..'3|
00000330  21 71 25 3d 31 32 38 3e  3e 78 65 69 67 25 3a 71  |!q%=128>>xeig%:q|
00000340  25 21 34 3d 32 35 36 3e  3e 79 65 69 67 25 3a 71  |%!4=256>>yeig%:q|
00000350  25 21 38 3d 36 34 3a 71  25 21 31 32 3d 36 34 0d  |%!8=64:q%!12=64.|
00000360  00 28 38 c8 99 20 22 43  6f 6c 6f 75 72 54 72 61  |.(8.. "ColourTra|
00000370  6e 73 5f 53 65 6c 65 63  74 54 61 62 6c 65 22 2c  |ns_SelectTable",|
00000380  31 32 2c 72 64 62 32 25  2c 2d 31 2c 2d 31 2c 72  |12,rdb2%,-1,-1,r|
00000390  64 62 32 25 2b 38 30 0d  00 29 0c c8 95 20 6d 6f  |db2%+80..)... mo|
000003a0  72 65 25 0d 00 2a 18 c8  99 22 57 69 6d 70 5f 53  |re%..*..."Wimp_S|
000003b0  65 74 43 6f 6c 6f 75 72  22 2c 30 0d 00 2b 26 c8  |etColour",0..+&.|
000003c0  93 20 c8 90 20 78 6f 72  69 67 25 2b 32 36 2c 79  |. .. xorig%+26,y|
000003d0  6f 72 69 67 25 2d 31 36  34 2c 34 32 32 2c 31 32  |orig%-164,422,12|
000003e0  38 0d 00 2c 27 c8 93 20  c8 90 20 78 6f 72 69 67  |8..,'.. .. xorig|
000003f0  25 2b 34 36 36 2c 79 6f  72 69 67 25 2d 31 36 34  |%+466,yorig%-164|
00000400  2c 31 32 38 2c 31 32 38  0d 00 2d 19 c8 99 22 57  |,128,128..-..."W|
00000410  69 6d 70 5f 53 65 74 43  6f 6c 6f 75 72 22 2c 31  |imp_SetColour",1|
00000420  31 0d 00 2e 0e e3 6e 25  3d 30 20 b8 20 32 35 0d  |1.....n%=0 . 25.|
00000430  00 2f 30 c8 93 20 c8 90  20 78 6f 72 69 67 25 2b  |./0.. .. xorig%+|
00000440  32 38 2b 6e 25 2a 31 36  2c 79 6f 72 69 67 25 2d  |28+n%*16,yorig%-|
00000450  31 36 34 2c 31 32 2c 62  61 72 25 28 6e 25 29 0d  |164,12,bar%(n%).|
00000460  00 30 05 ed 0d 00 31 4e  c8 99 20 22 4f 53 5f 53  |.0....1N.. "OS_S|
00000470  70 72 69 74 65 4f 70 22  2c 26 31 33 34 2c 6f 75  |priteOp",&134,ou|
00000480  74 73 70 72 25 2c 22 6f  75 74 70 75 74 22 2c 78  |tspr%,"output",x|
00000490  6f 72 69 67 25 2b 34 36  36 2c 79 6f 72 69 67 25  |orig%+466,yorig%|
000004a0  2d 31 36 34 2c 30 2c 71  25 2c 72 64 62 32 25 2b  |-164,0,q%,rdb2%+|
000004b0  38 30 0d 00 32 29 c8 99  22 57 69 6d 70 5f 47 65  |80..2).."Wimp_Ge|
000004c0  74 52 65 63 74 61 6e 67  6c 65 22 2c 2c 62 6c 6f  |tRectangle",,blo|
000004d0  63 6b 25 20 b8 20 6d 6f  72 65 25 0d 00 33 05 ce  |ck% . more%..3..|
000004e0  0d 00 34 05 e1 0d 00 35  05 3a 0d 00 36 11 dd f2  |..4....5.:..6...|
000004f0  72 65 64 72 61 77 6c 65  61 72 6e 0d 00 37 29 c8  |redrawlearn..7).|
00000500  99 22 57 69 6d 70 5f 52  65 64 72 61 77 57 69 6e  |."Wimp_RedrawWin|
00000510  64 6f 77 22 2c 2c 62 6c  6f 63 6b 25 20 b8 20 6d  |dow",,block% . m|
00000520  6f 72 65 25 0d 00 38 16  f2 67 65 74 6f 72 69 67  |ore%..8..getorig|
00000530  69 6e 28 6c 65 61 72 6e  25 29 0d 00 39 29 c8 99  |in(learn%)..9)..|
00000540  20 22 4f 53 5f 52 65 61  64 56 64 75 56 61 72 69  | "OS_ReadVduVari|
00000550  61 62 6c 65 73 22 2c 72  64 62 25 2c 72 64 62 25  |ables",rdb%,rdb%|
00000560  2b 31 32 0d 00 3a 11 78  65 69 67 25 3d 72 64 62  |+12..:.xeig%=rdb|
00000570  25 21 31 32 0d 00 3b 11  79 65 69 67 25 3d 72 64  |%!12..;.yeig%=rd|
00000580  62 25 21 31 36 0d 00 3c  33 21 71 25 3d 32 35 36  |b%!16..<3!q%=256|
00000590  3e 3e 78 65 69 67 25 3a  71 25 21 34 3d 32 35 36  |>>xeig%:q%!4=256|
000005a0  3e 3e 79 65 69 67 25 3a  71 25 21 38 3d 36 34 3a  |>>yeig%:q%!8=64:|
000005b0  71 25 21 31 32 3d 36 34  0d 00 3d 38 c8 99 20 22  |q%!12=64..=8.. "|
000005c0  43 6f 6c 6f 75 72 54 72  61 6e 73 5f 53 65 6c 65  |ColourTrans_Sele|
000005d0  63 74 54 61 62 6c 65 22  2c 31 32 2c 72 64 62 33  |ctTable",12,rdb3|
000005e0  25 2c 2d 31 2c 2d 31 2c  72 64 62 33 25 2b 38 30  |%,-1,-1,rdb3%+80|
000005f0  0d 00 3e 0c c8 95 20 6d  6f 72 65 25 0d 00 3f 18  |..>... more%..?.|
00000600  c8 99 22 57 69 6d 70 5f  53 65 74 43 6f 6c 6f 75  |.."Wimp_SetColou|
00000610  72 22 2c 30 0d 00 40 26  c8 93 20 c8 90 20 78 6f  |r",0..@&.. .. xo|
00000620  72 69 67 25 2b 33 32 2c  79 6f 72 69 67 25 2d 32  |rig%+32,yorig%-2|
00000630  32 30 2c 34 32 32 2c 31  32 38 0d 00 41 19 c8 99  |20,422,128..A...|
00000640  22 57 69 6d 70 5f 53 65  74 43 6f 6c 6f 75 72 22  |"Wimp_SetColour"|
00000650  2c 31 31 0d 00 42 0e e3  6e 25 3d 30 20 b8 20 32  |,11..B..n%=0 . 2|
00000660  35 0d 00 43 31 c8 93 20  c8 90 20 78 6f 72 69 67  |5..C1.. .. xorig|
00000670  25 2b 33 36 2b 6e 25 2a  31 36 2c 79 6f 72 69 67  |%+36+n%*16,yorig|
00000680  25 2d 32 32 30 2c 31 32  2c 62 61 72 6c 25 28 6e  |%-220,12,barl%(n|
00000690  25 29 0d 00 44 05 ed 0d  00 45 4e c8 99 20 22 4f  |%)..D....EN.. "O|
000006a0  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 33 34  |S_SpriteOp",&134|
000006b0  2c 6c 65 61 73 70 72 25  2c 22 6c 65 74 74 65 72  |,leaspr%,"letter|
000006c0  22 2c 78 6f 72 69 67 25  2b 34 36 38 2c 79 6f 72  |",xorig%+468,yor|
000006d0  69 67 25 2d 32 32 30 2c  30 2c 71 25 2c 72 64 62  |ig%-220,0,q%,rdb|
000006e0  33 25 2b 38 30 0d 00 46  29 c8 99 22 57 69 6d 70  |3%+80..F).."Wimp|
000006f0  5f 47 65 74 52 65 63 74  61 6e 67 6c 65 22 2c 2c  |_GetRectangle",,|
00000700  62 6c 6f 63 6b 25 20 b8  20 6d 6f 72 65 25 0d 00  |block% . more%..|
00000710  47 05 ce 0d 00 48 05 e1  0d 00 49 05 3a 0d 00 4a  |G....H....I.:..J|
00000720  65 dd f2 67 65 74 6f 72  69 67 69 6e 28 6e 25 29  |e..getorigin(n%)|
00000730  3a 21 71 25 3d 6e 25 3a  c8 99 22 57 69 6d 70 5f  |:!q%=n%:.."Wimp_|
00000740  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00000750  2c 71 25 3a 78 6f 72 69  67 25 3d 28 71 25 21 34  |,q%:xorig%=(q%!4|
00000760  29 2d 28 71 25 21 32 30  29 3a 79 6f 72 69 67 25  |)-(q%!20):yorig%|
00000770  3d 28 71 25 21 31 36 29  2d 28 71 25 21 32 34 29  |=(q%!16)-(q%!24)|
00000780  3a e1 0d 00 4b 05 3a 0d  00 4c 60 dd f2 67 65 74  |:...K.:..L`..get|
00000790  63 6f 6f 72 64 73 3a 21  71 25 3d 70 61 67 65 25  |coords:!q%=page%|
000007a0  3a c8 99 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |:.."Wimp_GetWind|
000007b0  6f 77 53 74 61 74 65 22  2c 2c 71 25 3a 78 6f 72  |owState",,q%:xor|
000007c0  69 67 25 3d 28 71 25 21  34 29 2d 28 71 25 21 32  |ig%=(q%!4)-(q%!2|
000007d0  30 29 3a 77 6f 72 6b 79  25 3d 71 25 21 31 36 2d  |0):worky%=q%!16-|
000007e0  71 25 21 32 34 3a e1 0d  00 4d 05 3a 0d 00 4e 11  |q%!24:...M.:..N.|
000007f0  dd f2 65 72 72 6f 72 3a  ee 20 85 20 87 0d 00 4f  |..error:. . ...O|
00000800  26 f2 72 65 70 6f 72 74  28 9f 2c 22 45 72 72 6f  |&.report(.,"Erro|
00000810  72 3a 22 2b f6 24 2b 22  20 4c 69 6e 65 3a 22 2b  |r:"+.$+" Line:"+|
00000820  c3 9e 29 0d 00 50 16 c8  99 22 57 69 6d 70 5f 43  |..)..P..."Wimp_C|
00000830  6c 6f 73 65 44 6f 77 6e  22 0d 00 51 05 e1 0d 00  |loseDown"..Q....|
00000840  52 05 3a 0d 00 53 0a dd  f2 6d 61 69 6e 0d 00 54  |R.:..S...main..T|
00000850  05 f5 0d 00 55 05 f5 0d  00 56 24 c8 99 22 57 69  |....U....V$.."Wi|
00000860  6d 70 5f 50 6f 6c 6c 22  2c 30 2c 62 6c 6f 63 6b  |mp_Poll",0,block|
00000870  25 20 b8 20 72 65 61 73  6f 6e 25 0d 00 57 07 f2  |% . reason%..W..|
00000880  64 6f 0d 00 58 0b fd 20  71 75 69 74 25 0d 00 59  |do..X.. quit%..Y|
00000890  0a 62 75 74 25 3d 31 0d  00 5a 0c e7 20 6d 6f 64  |.but%=1..Z.. mod|
000008a0  25 20 8c 0d 00 5b 0f 65  72 72 66 6c 61 67 73 25  |% ...[.errflags%|
000008b0  3d 33 0d 00 5c 43 f2 72  65 70 6f 72 74 28 30 2c  |=3..\C.report(0,|
000008c0  22 44 65 66 69 6e 69 74  69 6f 6e 73 20 6d 6f 64  |"Definitions mod|
000008d0  69 66 69 65 64 20 62 75  74 20 6e 6f 74 20 73 61  |ified but not sa|
000008e0  76 65 64 2e 2e 2e 20 51  75 69 74 20 61 6e 79 77  |ved... Quit anyw|
000008f0  61 79 3f 22 29 0d 00 5d  0f 65 72 72 66 6c 61 67  |ay?")..].errflag|
00000900  73 25 3d 31 0d 00 5e 16  e7 20 62 75 74 25 3d 32  |s%=1..^.. but%=2|
00000910  20 8c 20 71 75 69 74 25  3d 30 0d 00 5f 05 cd 0d  | . quit%=0.._...|
00000920  00 60 0c fd 20 62 75 74  25 3d 31 0d 00 61 22 c8  |.`.. but%=1..a".|
00000930  99 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  |."Wimp_CloseDown|
00000940  22 2c 68 61 6e 64 6c 65  25 2c 21 71 25 0d 00 62  |",handle%,!q%..b|
00000950  05 e1 0d 00 63 05 3a 0d  00 64 0b dd f2 73 65 74  |....c.:..d...set|
00000960  75 70 0d 00 65 db de 20  71 25 20 32 35 36 2c 62  |up..e.. q% 256,b|
00000970  6c 6f 63 6b 25 20 31 30  32 34 2c 77 69 6e 25 20  |lock% 1024,win% |
00000980  26 38 30 30 2c 69 70 25  20 26 31 30 30 2c 69 6f  |&800,ip% &100,io|
00000990  25 20 26 31 30 30 30 2c  69 69 25 20 26 31 30 30  |% &1000,ii% &100|
000009a0  2c 69 74 25 20 26 31 30  30 30 2c 69 63 6f 6e 62  |,it% &1000,iconb|
000009b0  61 72 6d 65 6e 75 25 20  26 31 30 30 2c 70 61 67  |armenu% &100,pag|
000009c0  65 6d 65 6e 75 25 20 26  31 30 30 2c 69 6e 64 77  |emenu% &100,indw|
000009d0  73 25 20 31 30 32 34 2c  73 70 72 69 74 65 73 25  |s% 1024,sprites%|
000009e0  20 34 31 39 32 30 2c 6d  78 25 28 31 30 30 30 2c  | 41920,mx%(1000,|
000009f0  31 29 2c 6d 79 25 28 31  30 30 30 2c 31 29 2c 6d  |1),my%(1000,1),m|
00000a00  25 28 31 29 2c 62 61 72  25 28 32 35 29 2c 72 64  |%(1),bar%(25),rd|
00000a10  62 25 20 32 35 36 2c 62  78 25 28 31 29 2c 62 79  |b% 256,bx%(1),by|
00000a20  25 28 31 29 2c 74 78 25  28 31 29 2c 74 79 25 28  |%(1),tx%(1),ty%(|
00000a30  31 29 2c 6d 65 73 73 25  20 38 31 39 32 0d 00 66  |1),mess% 8192..f|
00000a40  e0 de 20 69 25 28 37 2c  37 29 2c 6c 78 25 28 31  |.. i%(7,7),lx%(1|
00000a50  30 30 2c 39 29 2c 6c 79  25 28 31 30 30 2c 39 29  |00,9),ly%(100,9)|
00000a60  2c 6c 65 74 73 25 28 39  29 2c 6c 25 28 31 30 30  |,lets%(9),l%(100|
00000a70  2c 39 29 2c 69 73 74 25  20 26 31 30 30 30 2c 69  |,9),ist% &1000,i|
00000a80  6c 25 20 26 31 30 30 2c  69 32 25 28 37 2c 37 29  |l% &100,i2%(7,7)|
00000a90  2c 62 61 72 6c 25 28 32  35 29 2c 69 77 25 20 26  |,barl%(25),iw% &|
00000aa0  33 30 30 2c 72 65 61 6c  28 38 2c 38 2c 32 35 29  |300,real(8,8,25)|
00000ab0  2c 6c 65 61 72 6e 6d 65  6e 75 25 20 26 31 30 30  |,learnmenu% &100|
00000ac0  2c 63 6f 70 79 6c 65 74  73 25 20 26 37 32 38 2c  |,copylets% &728,|
00000ad0  6f 75 74 73 70 72 25 20  35 37 36 2c 72 64 62 32  |outspr% 576,rdb2|
00000ae0  25 20 32 35 36 2c 6c 65  61 73 70 72 25 20 31 30  |% 256,leaspr% 10|
00000af0  38 38 2c 72 64 62 33 25  20 32 35 36 2c 69 73 61  |88,rdb3% 256,isa|
00000b00  25 20 26 32 30 30 2c 74  65 78 74 73 74 25 20 26  |% &200,textst% &|
00000b10  31 30 30 30 2c 6f 6e 6c  25 28 38 30 29 0d 00 67  |1000,onl%(80)..g|
00000b20  0d f2 61 73 73 65 6d 62  6c 65 0d 00 68 2b ff 22  |..assemble..h+."|
00000b30  4c 4f 41 44 20 3c 41 64  61 6c 69 6e 65 24 44 69  |LOAD <Adaline$Di|
00000b40  72 3e 2e 4c 65 74 74 65  72 73 20 22 2b c3 7e 69  |r>.Letters "+.~i|
00000b50  6e 70 75 74 25 0d 00 69  2e ff 22 4c 4f 41 44 20  |nput%..i.."LOAD |
00000b60  3c 41 64 61 6c 69 6e 65  24 44 69 72 3e 2e 4c 65  |<Adaline$Dir>.Le|
00000b70  74 74 65 72 73 20 22 2b  c3 7e 63 6f 70 79 6c 65  |tters "+.~copyle|
00000b80  74 73 25 0d 00 6a 27 ff  22 4c 4f 41 44 20 3c 41  |ts%..j'."LOAD <A|
00000b90  64 61 6c 69 6e 65 24 44  69 72 3e 2e 44 61 74 61  |daline$Dir>.Data|
00000ba0  20 22 2b c3 7e 6d 65 73  73 25 0d 00 6b 17 d6 20  | "+.~mess%..k.. |
00000bb0  77 69 70 65 77 65 69 67  68 74 73 3a 41 25 3d 2d  |wipeweights:A%=-|
00000bc0  31 0d 00 6c 15 70 6f 6b  65 25 3d 69 6e 70 75 74  |1..l.poke%=input|
00000bd0  25 2b 26 36 38 30 0d 00  6d 0e 24 71 25 3d 22 54  |%+&680..m.$q%="T|
00000be0  41 53 4b 22 0d 00 6e 36  c8 99 22 57 69 6d 70 5f  |ASK"..n6.."Wimp_|
00000bf0  49 6e 69 74 69 61 6c 69  73 65 22 2c 32 30 30 2c  |Initialise",200,|
00000c00  21 71 25 2c 22 41 64 61  6c 69 6e 65 20 35 22 20  |!q%,"Adaline 5" |
00000c10  b8 20 2c 68 61 6e 64 6c  65 25 0d 00 6f 0e 21 62  |. ,handle%..o.!b|
00000c20  6c 6f 63 6b 25 3d 2d 31  0d 00 70 0e 62 6c 6f 63  |lock%=-1..p.bloc|
00000c30  6b 25 21 34 3d 30 0d 00  71 0e 62 6c 6f 63 6b 25  |k%!4=0..q.block%|
00000c40  21 38 3d 30 0d 00 72 10  62 6c 6f 63 6b 25 21 31  |!8=0..r.block%!1|
00000c50  32 3d 36 38 0d 00 73 10  62 6c 6f 63 6b 25 21 31  |2=68..s.block%!1|
00000c60  36 3d 36 38 0d 00 74 13  62 6c 6f 63 6b 25 21 32  |6=68..t.block%!2|
00000c70  30 3d 26 33 30 30 32 0d  00 75 1c 24 28 62 6c 6f  |0=&3002..u.$(blo|
00000c80  63 6b 25 2b 32 34 29 3d  22 21 61 64 61 6c 69 6e  |ck%+24)="!adalin|
00000c90  65 35 22 0d 00 76 28 c8  99 22 57 69 6d 70 5f 43  |e5"..v(.."Wimp_C|
00000ca0  72 65 61 74 65 49 63 6f  6e 22 2c 2c 62 6c 6f 63  |reateIcon",,bloc|
00000cb0  6b 25 20 b8 20 69 63 6f  6e 62 25 0d 00 77 1a 63  |k% . iconb%..w.c|
00000cc0  75 72 70 61 67 65 25 3d  31 3a 65 72 72 66 6c 61  |urpage%=1:errfla|
00000cd0  67 73 25 3d 31 0d 00 78  0b 71 75 69 74 25 3d 30  |gs%=1..x.quit%=0|
00000ce0  0d 00 79 13 21 73 70 72  69 74 65 73 25 3d 34 31  |..y.!sprites%=41|
00000cf0  39 32 30 0d 00 7a 11 73  70 72 69 74 65 73 25 21  |920..z.sprites%!|
00000d00  38 3d 31 36 0d 00 7b 18  c8 99 20 26 32 45 2c 26  |8=16..{... &2E,&|
00000d10  31 30 39 2c 73 70 72 69  74 65 73 25 0d 00 7c 2d  |109,sprites%..|-|
00000d20  c8 99 20 26 32 45 2c 26  31 30 46 2c 73 70 72 69  |.. &2E,&10F,spri|
00000d30  74 65 73 25 2c 22 73 63  72 65 65 6e 22 2c 30 2c  |tes%,"screen",0,|
00000d40  36 34 30 2c 32 35 36 2c  38 0d 00 7d 10 21 6f 75  |640,256,8..}.!ou|
00000d50  74 73 70 72 25 3d 35 37  36 0d 00 7e 10 6f 75 74  |tspr%=576..~.out|
00000d60  73 70 72 25 21 38 3d 31  36 0d 00 7f 17 c8 99 20  |spr%!8=16...... |
00000d70  26 32 45 2c 26 31 30 39  2c 6f 75 74 73 70 72 25  |&2E,&109,outspr%|
00000d80  0d 00 80 2a c8 99 20 26  32 45 2c 26 31 30 46 2c  |...*.. &2E,&10F,|
00000d90  6f 75 74 73 70 72 25 2c  22 6f 75 74 70 75 74 22  |outspr%,"output"|
00000da0  2c 30 2c 36 34 2c 33 32  2c 30 0d 00 81 11 21 6c  |,0,64,32,0....!l|
00000db0  65 61 73 70 72 25 3d 31  30 38 38 0d 00 82 10 6c  |easpr%=1088....l|
00000dc0  65 61 73 70 72 25 21 38  3d 31 36 0d 00 83 17 c8  |easpr%!8=16.....|
00000dd0  99 20 26 32 45 2c 26 31  30 39 2c 6c 65 61 73 70  |. &2E,&109,leasp|
00000de0  72 25 0d 00 84 2a c8 99  20 26 32 45 2c 26 31 30  |r%...*.. &2E,&10|
00000df0  46 2c 6c 65 61 73 70 72  25 2c 22 6c 65 74 74 65  |F,leaspr%,"lette|
00000e00  72 22 2c 30 2c 33 32 2c  33 32 2c 39 0d 00 85 7f  |r",0,32,32,9....|
00000e10  6f 78 25 3d 2d 31 3a 6f  79 25 3d 2d 31 3a 6f 6e  |ox%=-1:oy%=-1:on|
00000e20  25 3d 30 3a 73 6d 25 3d  30 3a 73 6d 5f 6f 66 66  |%=0:sm%=0:sm_off|
00000e30  73 65 74 25 3d 30 3a 63  75 72 72 25 3d 30 3a 74  |set%=0:curr%=0:t|
00000e40  6f 6e 25 3d 30 3a 74 69  6d 65 25 3d 30 3a 6f 6c  |on%=0:time%=0:ol|
00000e50  78 25 3d 30 3a 6f 6c 79  25 3d 30 3a 6d 6f 64 65  |x%=0:oly%=0:mode|
00000e60  25 3d 30 3a 63 75 72 6c  25 3d 30 3a 6d 6f 64 25  |%=0:curl%=0:mod%|
00000e70  3d 30 3a 61 6e 79 25 3d  31 3a 62 6f 78 6f 6e 25  |=0:any%=1:boxon%|
00000e80  3d 30 3a 62 6f 78 6e 75  25 3d 30 0d 00 86 3e e3  |=0:boxnu%=0...>.|
00000e90  78 25 3d 30 20 b8 20 37  3a e3 79 25 3d 30 20 b8  |x%=0 . 7:.y%=0 .|
00000ea0  20 37 3a 69 32 25 28 78  25 2c 79 25 29 3d 28 69  | 7:i2%(x%,y%)=(i|
00000eb0  6e 70 75 74 25 3f 28 28  79 25 2a 38 29 2b 78 25  |nput%?((y%*8)+x%|
00000ec0  29 29 2f 33 32 3a ed 3a  ed 0d 00 87 19 f2 75 70  |))/32:.:......up|
00000ed0  64 61 74 65 6f 75 74 3a  f2 75 70 64 61 74 65 6c  |dateout:.updatel|
00000ee0  65 61 0d 00 88 4b 72 64  62 25 21 32 30 3d 26 46  |ea...Krdb%!20=&F|
00000ef0  46 46 46 46 46 30 30 3a  72 64 62 25 21 32 34 3d  |FFFFF00:rdb%!24=|
00000f00  26 30 30 30 30 30 30 30  30 3a 72 64 62 25 21 32  |&00000000:rdb%!2|
00000f10  38 3d 26 38 30 38 30 30  30 30 30 3a 72 64 62 25  |8=&80800000:rdb%|
00000f20  21 33 32 3d 26 46 46 42  42 30 30 30 30 0d 00 89  |!32=&FFBB0000...|
00000f30  26 21 72 64 62 32 25 3d  26 46 46 46 46 46 46 30  |&!rdb2%=&FFFFFF0|
00000f40  30 3a 72 64 62 32 25 21  34 3d 26 30 30 30 30 30  |0:rdb2%!4=&00000|
00000f50  30 30 30 0d 00 8a 4d e3  63 25 3d 30 20 b8 20 37  |000...M.c%=0 . 7|
00000f60  3a 63 6f 6c 25 3d 32 35  35 2d 28 63 25 2a 33 36  |:col%=255-(c%*36|
00000f70  29 3a 72 64 62 33 25 21  28 63 25 2a 34 29 3d 28  |):rdb3%!(c%*4)=(|
00000f80  63 6f 6c 25 3c 3c 32 34  29 2b 28 63 6f 6c 25 3c  |col%<<24)+(col%<|
00000f90  3c 31 36 29 2b 28 63 6f  6c 25 3c 3c 38 29 3a ed  |<16)+(col%<<8):.|
00000fa0  0d 00 8b 0b 21 72 64 62  25 3d 34 0d 00 8c 0c 72  |....!rdb%=4....r|
00000fb0  64 62 25 21 34 3d 35 0d  00 8d 0d 72 64 62 25 21  |db%!4=5....rdb%!|
00000fc0  38 3d 2d 31 0d 00 8e 05  e1 0d 00 8f 05 3a 0d 00  |8=-1.........:..|
00000fd0  90 13 dd f2 6c 6f 61 64  74 65 6d 70 6c 61 74 65  |....loadtemplate|
00000fe0  73 0d 00 91 43 c8 99 22  46 6f 6e 74 5f 46 69 6e  |s...C.."Font_Fin|
00000ff0  64 46 6f 6e 74 22 2c 2c  22 54 72 69 6e 69 74 79  |dFont",,"Trinity|
00001000  2e 42 6f 6c 64 2e 49 74  61 6c 69 63 22 2c 34 38  |.Bold.Italic",48|
00001010  30 2c 34 38 30 2c 30 2c  30 20 b8 20 66 68 61 6e  |0,480,0,0 . fhan|
00001020  64 6c 65 25 0d 00 92 34  c8 99 22 57 69 6d 70 5f  |dle%...4.."Wimp_|
00001030  4f 70 65 6e 54 65 6d 70  6c 61 74 65 22 2c 2c 22  |OpenTemplate",,"|
00001040  3c 41 64 61 6c 69 6e 65  24 44 69 72 3e 2e 54 65  |<Adaline$Dir>.Te|
00001050  6d 70 6c 61 74 65 73 22  0d 00 93 38 c8 99 22 57  |mplates"...8.."W|
00001060  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00001070  22 2c 2c 77 69 6e 25 2c  69 70 25 2c 69 70 25 2b  |",,win%,ip%,ip%+|
00001080  26 31 30 30 2c 2d 31 2c  22 50 61 67 65 22 2c 30  |&100,-1,"Page",0|
00001090  0d 00 94 27 c8 99 22 57  69 6d 70 5f 43 72 65 61  |...'.."Wimp_Crea|
000010a0  74 65 57 69 6e 64 6f 77  22 2c 2c 77 69 6e 25 20  |teWindow",,win% |
000010b0  b8 20 70 61 67 65 25 0d  00 95 3b c8 99 22 57 69  |. page%...;.."Wi|
000010c0  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
000010d0  2c 2c 77 69 6e 25 2c 69  6f 25 2c 69 6f 25 2b 26  |,,win%,io%,io%+&|
000010e0  31 30 30 30 2c 2d 31 2c  22 4f 75 74 70 75 74 22  |1000,-1,"Output"|
000010f0  2c 30 0d 00 96 29 c8 99  22 57 69 6d 70 5f 43 72  |,0...).."Wimp_Cr|
00001100  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 77 69 6e  |eateWindow",,win|
00001110  25 20 b8 20 6f 75 74 70  75 74 25 0d 00 97 38 c8  |% . output%...8.|
00001120  99 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  |."Wimp_LoadTempl|
00001130  61 74 65 22 2c 2c 77 69  6e 25 2c 69 69 25 2c 69  |ate",,win%,ii%,i|
00001140  69 25 2b 26 31 30 30 2c  2d 31 2c 22 49 6e 66 6f  |i%+&100,-1,"Info|
00001150  22 2c 30 0d 00 98 27 c8  99 22 57 69 6d 70 5f 43  |",0...'.."Wimp_C|
00001160  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 77 69  |reateWindow",,wi|
00001170  6e 25 20 b8 20 69 6e 66  6f 25 0d 00 99 3c c8 99  |n% . info%...<..|
00001180  22 57 69 6d 70 5f 4c 6f  61 64 54 65 6d 70 6c 61  |"Wimp_LoadTempla|
00001190  74 65 22 2c 2c 77 69 6e  25 2c 69 74 25 2c 69 74  |te",,win%,it%,it|
000011a0  25 2b 26 31 30 30 30 2c  2d 31 2c 22 74 6f 6f 6c  |%+&1000,-1,"tool|
000011b0  62 6f 78 22 2c 30 0d 00  9a 2a c8 99 22 57 69 6d  |box",0...*.."Wim|
000011c0  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
000011d0  2c 77 69 6e 25 20 b8 20  74 6f 6f 6c 62 6f 78 25  |,win% . toolbox%|
000011e0  0d 00 9b 44 c8 99 22 57  69 6d 70 5f 4c 6f 61 64  |...D.."Wimp_Load|
000011f0  54 65 6d 70 6c 61 74 65  22 2c 2c 77 69 6e 25 2c  |Template",,win%,|
00001200  69 73 74 25 2c 69 73 74  25 2b 26 31 30 30 30 2c  |ist%,ist%+&1000,|
00001210  66 68 61 6e 64 6c 65 25  2c 22 73 74 61 72 74 75  |fhandle%,"startu|
00001220  70 22 2c 30 0d 00 9c 2a  c8 99 22 57 69 6d 70 5f  |p",0...*.."Wimp_|
00001230  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 77  |CreateWindow",,w|
00001240  69 6e 25 20 b8 20 73 74  61 72 74 75 70 25 0d 00  |in% . startup%..|
00001250  9d 39 c8 99 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |.9.."Wimp_LoadTe|
00001260  6d 70 6c 61 74 65 22 2c  2c 77 69 6e 25 2c 69 6c  |mplate",,win%,il|
00001270  25 2c 69 6c 25 2b 26 31  30 30 2c 2d 31 2c 22 4c  |%,il%+&100,-1,"L|
00001280  65 61 72 6e 22 2c 30 0d  00 9e 28 c8 99 22 57 69  |earn",0...(.."Wi|
00001290  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
000012a0  2c 2c 77 69 6e 25 20 b8  20 6c 65 61 72 6e 25 0d  |,,win% . learn%.|
000012b0  00 9f 38 c8 99 22 57 69  6d 70 5f 4c 6f 61 64 54  |..8.."Wimp_LoadT|
000012c0  65 6d 70 6c 61 74 65 22  2c 2c 77 69 6e 25 2c 69  |emplate",,win%,i|
000012d0  77 25 2c 69 77 25 2b 26  33 30 30 2c 2d 31 2c 22  |w%,iw%+&300,-1,"|
000012e0  77 61 72 6e 22 2c 30 0d  00 a0 27 c8 99 22 57 69  |warn",0...'.."Wi|
000012f0  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00001300  2c 2c 77 69 6e 25 20 b8  20 77 61 72 6e 25 0d 00  |,,win% . warn%..|
00001310  a1 3b c8 99 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |.;.."Wimp_LoadTe|
00001320  6d 70 6c 61 74 65 22 2c  2c 77 69 6e 25 2c 69 73  |mplate",,win%,is|
00001330  61 25 2c 69 73 61 25 2b  26 32 30 30 2c 2d 31 2c  |a%,isa%+&200,-1,|
00001340  22 73 61 76 65 74 22 2c  30 0d 00 a2 28 c8 99 22  |"savet",0...(.."|
00001350  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
00001360  77 22 2c 2c 77 69 6e 25  20 b8 20 73 61 76 65 74  |w",,win% . savet|
00001370  25 0d 00 a3 1a c8 99 22  57 69 6d 70 5f 43 6c 6f  |%......"Wimp_Clo|
00001380  73 65 54 65 6d 70 6c 61  74 65 22 0d 00 a4 05 e1  |seTemplate".....|
00001390  0d 00 a5 05 3a 0d 00 a6  0a dd f2 6f 70 65 6e 0d  |....:......open.|
000013a0  00 a7 54 e7 20 21 62 6c  6f 63 6b 25 3d 70 61 67  |..T. !block%=pag|
000013b0  65 25 20 80 20 62 6c 6f  63 6b 25 21 34 3c 30 20  |e% . block%!4<0 |
000013c0  8c 20 77 69 64 25 3d 62  6c 6f 63 6b 25 21 31 32  |. wid%=block%!12|
000013d0  2d 62 6c 6f 63 6b 25 21  34 3a 62 6c 6f 63 6b 25  |-block%!4:block%|
000013e0  21 34 3d 30 3a 62 6c 6f  63 6b 25 21 31 32 3d 77  |!4=0:block%!12=w|
000013f0  69 64 25 0d 00 a8 1f c8  99 22 57 69 6d 70 5f 4f  |id%......"Wimp_O|
00001400  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |penWindow",,bloc|
00001410  6b 25 0d 00 a9 15 e7 20  21 62 6c 6f 63 6b 25 3d  |k%..... !block%=|
00001420  70 61 67 65 25 20 8c 0d  00 aa 14 21 62 6c 6f 63  |page% .....!bloc|
00001430  6b 25 3d 74 6f 6f 6c 62  6f 78 25 0d 00 ab 18 62  |k%=toolbox%....b|
00001440  6c 6f 63 6b 25 21 34 3d  62 6c 6f 63 6b 25 21 34  |lock%!4=block%!4|
00001450  2d 36 36 0d 00 ac 19 62  6c 6f 63 6b 25 21 38 3d  |-66....block%!8=|
00001460  62 6c 6f 63 6b 25 21 38  2d 32 35 36 0d 00 ad 1d  |block%!8-256....|
00001470  e7 20 62 6c 6f 63 6b 25  21 34 3c 30 20 8c 20 62  |. block%!4<0 . b|
00001480  6c 6f 63 6b 25 21 34 3d  30 0d 00 ae 1f c8 99 22  |lock%!4=0......"|
00001490  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
000014a0  2c 2c 62 6c 6f 63 6b 25  0d 00 af 05 cd 0d 00 b0  |,,block%........|
000014b0  1e e7 20 21 62 6c 6f 63  6b 25 3d 69 6e 66 6f 25  |.. !block%=info%|
000014c0  20 8c 20 62 6f 78 6f 6e  25 3d 31 0d 00 b1 05 e1  | . boxon%=1.....|
000014d0  0d 00 b2 05 3a 0d 00 b3  0e dd f2 6f 70 65 6e 6d  |....:......openm|
000014e0  61 69 6e 0d 00 b4 13 f2  6f 70 65 6e 77 69 6e 28  |ain.....openwin(|
000014f0  70 61 67 65 25 29 0d 00  b5 16 f2 6f 70 65 6e 77  |page%).....openw|
00001500  69 6e 28 74 6f 6f 6c 62  6f 78 25 29 0d 00 b6 05  |in(toolbox%)....|
00001510  e1 0d 00 b7 05 3a 0d 00  b8 13 dd f2 6f 70 65 6e  |.....:......open|
00001520  77 69 6e 28 77 69 6e 25  29 0d 00 b9 10 21 62 6c  |win(win%)....!bl|
00001530  6f 63 6b 25 3d 77 69 6e  25 0d 00 ba 23 c8 99 22  |ock%=win%...#.."|
00001540  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00001550  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 00 bb 1f  |ate",,block%....|
00001560  c8 99 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |.."Wimp_OpenWind|
00001570  6f 77 22 2c 2c 62 6c 6f  63 6b 25 0d 00 bc 05 e1  |ow",,block%.....|
00001580  0d 00 bd 05 3a 0d 00 be  14 dd f2 63 6c 6f 73 65  |....:......close|
00001590  77 69 6e 28 77 69 6e 25  29 0d 00 bf 10 21 62 6c  |win(win%)....!bl|
000015a0  6f 63 6b 25 3d 77 69 6e  25 0d 00 c0 23 c8 99 22  |ock%=win%...#.."|
000015b0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
000015c0  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 00 c1 20  |ate",,block%... |
000015d0  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |.."Wimp_CloseWin|
000015e0  64 6f 77 22 2c 2c 62 6c  6f 63 6b 25 0d 00 c2 05  |dow",,block%....|
000015f0  e1 0d 00 c3 05 3a 0d 00  c4 0b dd f2 63 6c 6f 73  |.....:......clos|
00001600  65 0d 00 c5 20 c8 99 22  57 69 6d 70 5f 43 6c 6f  |e... .."Wimp_Clo|
00001610  73 65 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |seWindow",,block|
00001620  25 0d 00 c6 43 e7 20 21  62 6c 6f 63 6b 25 3d 70  |%...C. !block%=p|
00001630  61 67 65 25 20 8c 20 21  62 6c 6f 63 6b 25 3d 74  |age% . !block%=t|
00001640  6f 6f 6c 62 6f 78 25 3a  c8 99 22 57 69 6d 70 5f  |oolbox%:.."Wimp_|
00001650  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |CloseWindow",,bl|
00001660  6f 63 6b 25 0d 00 c7 1e  e7 20 21 62 6c 6f 63 6b  |ock%..... !block|
00001670  25 3d 69 6e 66 6f 25 20  8c 20 62 6f 78 6f 6e 25  |%=info% . boxon%|
00001680  3d 30 0d 00 c8 05 e1 0d  00 c9 05 3a 0d 00 ca 08  |=0.........:....|
00001690  dd f2 64 6f 0d 00 cb 10  c8 8e 20 72 65 61 73 6f  |..do...... reaso|
000016a0  6e 25 20 ca 0d 00 cc 15  c9 20 31 37 2c 31 38 3a  |n% ...... 17,18:|
000016b0  20 f2 72 65 63 65 69 76  65 0d 00 cd 0e c9 20 31  | .receive..... 1|
000016c0  39 3a 20 f2 77 68 6f 0d  00 ce 16 c9 20 36 3a 20  |9: .who..... 6: |
000016d0  c8 8e 20 62 6c 6f 63 6b  25 21 38 20 ca 0d 00 cf  |.. block%!8 ....|
000016e0  12 c9 20 31 36 2c 36 34  3a 20 f2 64 72 61 67 0d  |.. 16,64: .drag.|
000016f0  00 d0 18 c9 20 34 20 3a  20 c8 8e 20 62 6c 6f 63  |.... 4 : .. bloc|
00001700  6b 25 21 31 32 20 ca 0d  00 d1 14 c9 20 2d 32 20  |k%!12 ...... -2 |
00001710  3a 20 f2 6f 70 65 6e 6d  61 69 6e 0d 00 d2 1a c9  |: .openmain.....|
00001720  20 74 6f 6f 6c 62 6f 78  25 20 3a f2 74 6f 6f 6c  | toolbox% :.tool|
00001730  63 6c 69 63 6b 0d 00 d3  18 c9 20 70 61 67 65 25  |click..... page%|
00001740  20 3a 20 f2 63 6c 69 63  6b 6d 61 69 6e 0d 00 d4  | : .clickmain...|
00001750  11 c9 20 69 6e 66 6f 25  20 3a 20 f2 73 6d 0d 00  |.. info% : .sm..|
00001760  d5 1a c9 20 6c 65 61 72  6e 25 20 3a 20 f2 63 6c  |... learn% : .cl|
00001770  69 63 6b 6c 65 61 72 6e  0d 00 d6 13 c9 20 77 61  |icklearn..... wa|
00001780  72 6e 25 20 3a 20 f2 77  61 72 6e 0d 00 d7 19 c9  |rn% : .warn.....|
00001790  20 73 61 76 65 74 25 20  3a 20 f2 63 6c 69 63 6b  | savet% : .click|
000017a0  73 61 76 65 0d 00 d8 05  cb 0d 00 d9 18 c9 20 32  |save.......... 2|
000017b0  20 3a 20 c8 8e 20 62 6c  6f 63 6b 25 21 31 32 20  | : .. block%!12 |
000017c0  ca 0d 00 da 34 c9 20 2d  32 3a 20 f2 73 68 6f 77  |....4. -2: .show|
000017d0  6d 65 6e 75 28 69 63 6f  6e 62 61 72 6d 65 6e 75  |menu(iconbarmenu|
000017e0  25 2c 21 62 6c 6f 63 6b  25 2d 36 34 2c 39 36 2b  |%,!block%-64,96+|
000017f0  34 2a 34 34 29 0d 00 db  4c c9 20 70 61 67 65 25  |4*44)...L. page%|
00001800  3a 20 f2 73 68 6f 77 6d  65 6e 75 28 70 61 67 65  |: .showmenu(page|
00001810  6d 65 6e 75 25 2c 28 21  62 6c 6f 63 6b 25 29 2d  |menu%,(!block%)-|
00001820  28 28 70 61 67 65 6d 65  6e 75 25 21 31 36 29 2f  |((pagemenu%!16)/|
00001830  32 29 2c 28 62 6c 6f 63  6b 25 21 34 29 2b 31 36  |2),(block%!4)+16|
00001840  29 0d 00 dc 4f c9 20 6c  65 61 72 6e 25 3a 20 f2  |)...O. learn%: .|
00001850  73 68 6f 77 6d 65 6e 75  28 6c 65 61 72 6e 6d 65  |showmenu(learnme|
00001860  6e 75 25 2c 28 21 62 6c  6f 63 6b 25 29 2d 28 28  |nu%,(!block%)-((|
00001870  6c 65 61 72 6e 6d 65 6e  75 25 21 31 36 29 2f 32  |learnmenu%!16)/2|
00001880  29 2c 28 62 6c 6f 63 6b  25 21 34 29 2b 31 36 29  |),(block%!4)+16)|
00001890  0d 00 dd 05 cb 0d 00 de  05 cb 0d 00 df 10 c9 20  |............... |
000018a0  31 3a 20 f2 72 65 64 72  61 77 0d 00 e0 0e c9 20  |1: .redraw..... |
000018b0  32 3a 20 f2 6f 70 65 6e  0d 00 e1 0f c9 20 33 3a  |2: .open..... 3:|
000018c0  20 f2 63 6c 6f 73 65 0d  00 e2 14 c9 20 37 3a 20  | .close..... 7: |
000018d0  f2 66 69 6e 69 73 68 64  72 61 67 0d 00 e3 14 c9  |.finishdrag.....|
000018e0  20 39 3a 20 f2 64 65 63  6f 64 65 6d 65 6e 75 0d  | 9: .decodemenu.|
000018f0  00 e4 05 cb 0d 00 e5 19  e7 20 73 6d 25 20 80 20  |......... sm% . |
00001900  72 65 61 73 6f 6e 25 3d  30 20 f2 6d 73 0d 00 e6  |reason%=0 .ms...|
00001910  4b e7 20 72 65 61 73 6f  6e 25 3d 30 20 80 20 74  |K. reason%=0 . t|
00001920  6f 6e 25 3d 31 20 80 20  91 3e 74 69 6d 65 25 2b  |on%=1 . .>time%+|
00001930  34 30 30 20 8c 20 f2 67  65 74 63 68 61 72 3a 74  |400 . .getchar:t|
00001940  6f 6e 25 3d 30 3a 63 75  72 72 25 3d 30 3a 6f 6c  |on%=0:curr%=0:ol|
00001950  78 25 3d 2d 31 30 30 30  0d 00 e7 2a 71 25 21 30  |x%=-1000...*q%!0|
00001960  3d 69 6e 66 6f 25 3a c8  99 22 57 69 6d 70 5f 47  |=info%:.."Wimp_G|
00001970  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00001980  71 25 0d 00 e8 5a e7 20  28 71 25 21 33 32 20 80  |q%...Z. (q%!32 .|
00001990  20 31 3c 3c 31 36 29 20  8c 20 62 6f 78 6e 75 25  | 1<<16) . boxnu%|
000019a0  3d 28 62 6f 78 6e 75 25  2b 31 29 20 83 20 39 3a  |=(boxnu%+1) . 9:|
000019b0  f2 73 65 74 73 74 61 74  65 28 69 6e 66 6f 25 2c  |.setstate(info%,|
000019c0  30 2c c3 28 62 6f 78 6e  75 25 29 29 3a 74 25 3d  |0,.(boxnu%)):t%=|
000019d0  91 3a f5 20 fd 20 91 3e  74 25 2b 33 0d 00 e9 05  |.:. . .>t%+3....|
000019e0  e1 0d 00 ea 05 3a 0d 00  eb 08 dd f2 6d 73 0d 00  |.....:......ms..|
000019f0  ec 4f e7 20 6d 65 73 73  25 3f 73 6d 5f 6f 66 66  |.O. mess%?sm_off|
00001a00  73 65 74 25 3d 31 30 20  8c 20 73 6d 5f 6f 66 66  |set%=10 . sm_off|
00001a10  73 65 74 25 3d 30 3a 73  6d 25 3d 30 3a f2 73 65  |set%=0:sm%=0:.se|
00001a20  74 73 74 61 74 65 28 69  6e 66 6f 25 2c 31 2c 22  |tstate(info%,1,"|
00001a30  41 64 61 6c 69 6e 65 20  35 22 29 3a e1 0d 00 ed  |Adaline 5"):....|
00001a40  3a 73 24 3d 22 22 3a e3  6e 25 3d 73 6d 5f 6f 66  |:s$="":.n%=sm_of|
00001a50  66 73 65 74 25 20 b8 20  73 6d 5f 6f 66 66 73 65  |fset% . sm_offse|
00001a60  74 25 2b 32 35 3a 73 24  2b 3d bd 28 6d 65 73 73  |t%+25:s$+=.(mess|
00001a70  25 3f 6e 25 29 3a ed 0d  00 ee 2a c8 96 3a f2 73  |%?n%):....*..:.s|
00001a80  65 74 73 74 61 74 65 28  69 6e 66 6f 25 2c 31 2c  |etstate(info%,1,|
00001a90  73 24 29 3a 73 6d 5f 6f  66 66 73 65 74 25 2b 3d  |s$):sm_offset%+=|
00001aa0  31 0d 00 ef 05 e1 0d 00  f0 05 3a 0d 00 f1 13 dd  |1.........:.....|
00001ab0  f2 72 65 70 6f 72 74 28  65 25 2c 73 24 29 0d 00  |.report(e%,s$)..|
00001ac0  f2 57 21 62 6c 6f 63 6b  25 3d 65 25 3a 24 28 62  |.W!block%=e%:$(b|
00001ad0  6c 6f 63 6b 25 2b 34 29  3d 73 24 3a c8 99 22 57  |lock%+4)=s$:.."W|
00001ae0  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
00001af0  2c 62 6c 6f 63 6b 25 2c  65 72 72 66 6c 61 67 73  |,block%,errflags|
00001b00  25 2c 22 41 64 61 6c 69  6e 65 20 35 22 20 b8 20  |%,"Adaline 5" . |
00001b10  2c 62 75 74 25 0d 00 f3  05 e1 0d 00 f4 05 3a 0d  |,but%.........:.|
00001b20  00 f5 1f dd f2 74 6f 6f  6c 63 6c 69 63 6b 3a 69  |.....toolclick:i|
00001b30  63 6f 6e 25 3d 62 6c 6f  63 6b 25 21 31 36 0d 00  |con%=block%!16..|
00001b40  f6 0e c8 8e 20 69 63 6f  6e 25 20 ca 0d 00 f7 0f  |.... icon% .....|
00001b50  c9 20 36 3a f2 75 70 70  61 67 65 0d 00 f8 11 c9  |. 6:.uppage.....|
00001b60  20 34 3a f2 64 6f 77 6e  70 61 67 65 0d 00 f9 37  | 4:.downpage...7|
00001b70  c9 20 32 3a e7 20 6d 6f  64 65 25 3d 32 20 8c 20  |. 2:. mode%=2 . |
00001b80  6d 6f 64 65 25 3d 6f 6d  6f 64 65 25 20 8b 20 6f  |mode%=omode% . o|
00001b90  6d 6f 64 65 25 3d 6d 6f  64 65 25 3a 6d 6f 64 65  |mode%=mode%:mode|
00001ba0  25 3d 32 0d 00 fa 0f c9  20 31 3a 6d 6f 64 65 25  |%=2..... 1:mode%|
00001bb0  3d 31 0d 00 fb 0f c9 20  30 3a 6d 6f 64 65 25 3d  |=1..... 0:mode%=|
00001bc0  30 0d 00 fc 05 cb 0d 00  fd 05 e1 0d 00 fe 05 3a  |0..............:|
00001bd0  0d 00 ff 20 dd f2 63 6c  69 63 6b 6c 65 61 72 6e  |... ..clicklearn|
00001be0  3a 69 63 6f 6e 25 3d 62  6c 6f 63 6b 25 21 31 36  |:icon%=block%!16|
00001bf0  0d 01 00 9c e7 20 69 63  6f 6e 25 3d 36 20 8c 20  |..... icon%=6 . |
00001c00  61 64 64 72 25 3d 69 6e  70 75 74 25 2b 28 63 75  |addr%=input%+(cu|
00001c10  72 6c 25 2a 36 34 29 3a  e3 6e 25 3d 30 20 b8 20  |rl%*64):.n%=0 . |
00001c20  36 33 3a 61 64 64 72 25  3f 6e 25 3d 30 3a ed 3a  |63:addr%?n%=0:.:|
00001c30  21 28 69 6e 70 75 74 25  2b 26 36 43 30 2b 28 63  |!(input%+&6C0+(c|
00001c40  75 72 6c 25 2a 34 29 29  3d 30 3a 21 62 6c 6f 63  |url%*4))=0:!bloc|
00001c50  6b 25 3d 6c 65 61 72 6e  25 3a 61 6e 79 25 3d 30  |k%=learn%:any%=0|
00001c60  3a f2 63 68 61 6e 67 65  6d 65 6e 75 3a f2 75 67  |:.changemenu:.ug|
00001c70  72 65 79 28 6c 65 61 72  6e 6d 65 6e 75 25 2c 31  |rey(learnmenu%,1|
00001c80  29 3a f2 73 68 6f 77 6c  65 61 72 6e 0d 01 01 82  |):.showlearn....|
00001c90  e7 20 69 63 6f 6e 25 3d  31 31 20 80 20 63 75 72  |. icon%=11 . cur|
00001ca0  6c 25 3e 30 20 8c 20 63  75 72 6c 25 2d 3d 31 3a  |l%>0 . curl%-=1:|
00001cb0  f2 63 68 65 63 6b 63 68  61 6e 67 65 3a f2 63 61  |.checkchange:.ca|
00001cc0  6c 63 6c 65 61 72 6e 3a  f2 75 70 64 61 74 65 6c  |lclearn:.updatel|
00001cd0  65 61 3a 21 62 6c 6f 63  6b 25 3d 6c 65 61 72 6e  |ea:!block%=learn|
00001ce0  25 3a c8 99 22 57 69 6d  70 5f 47 65 74 57 69 6e  |%:.."Wimp_GetWin|
00001cf0  64 6f 77 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |dowState",,block|
00001d00  25 3a f2 72 65 64 72 61  77 6c 65 61 72 6e 0d 01  |%:.redrawlearn..|
00001d10  02 83 e7 20 69 63 6f 6e  25 3d 31 32 20 80 20 63  |... icon%=12 . c|
00001d20  75 72 6c 25 3c 32 35 20  8c 20 63 75 72 6c 25 2b  |url%<25 . curl%+|
00001d30  3d 31 3a f2 63 68 65 63  6b 63 68 61 6e 67 65 3a  |=1:.checkchange:|
00001d40  f2 63 61 6c 63 6c 65 61  72 6e 3a f2 75 70 64 61  |.calclearn:.upda|
00001d50  74 65 6c 65 61 3a 21 62  6c 6f 63 6b 25 3d 6c 65  |telea:!block%=le|
00001d60  61 72 6e 25 3a c8 99 22  57 69 6d 70 5f 47 65 74  |arn%:.."Wimp_Get|
00001d70  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 62 6c  |WindowState",,bl|
00001d80  6f 63 6b 25 3a f2 72 65  64 72 61 77 6c 65 61 72  |ock%:.redrawlear|
00001d90  6e 0d 01 03 51 e7 20 69  63 6f 6e 25 3d 37 20 80  |n...Q. icon%=7 .|
00001da0  20 61 6e 79 25 3d 31 20  8c 20 c8 99 22 48 6f 75  | any%=1 . .."Hou|
00001db0  72 67 6c 61 73 73 5f 4f  6e 22 3a d6 20 6c 65 61  |rglass_On":. lea|
00001dc0  72 6e 61 6c 6c 3a c8 99  22 48 6f 75 72 67 6c 61  |rnall:.."Hourgla|
00001dd0  73 73 5f 4f 66 66 22 3a  f2 73 68 6f 77 6c 65 61  |ss_Off":.showlea|
00001de0  72 6e 0d 01 04 5e e7 20  69 63 6f 6e 25 3d 37 20  |rn...^. icon%=7 |
00001df0  80 20 61 6e 79 25 3d 30  20 8c 20 f2 72 65 70 6f  |. any%=0 . .repo|
00001e00  72 74 28 30 2c 22 44 61  74 61 20 66 6f 72 20 6c  |rt(0,"Data for l|
00001e10  65 74 74 65 72 73 20 69  6e 63 6f 6d 70 6c 65 74  |etters incomplet|
00001e20  65 2e 20 55 6e 61 62 6c  65 20 74 6f 20 6c 65 61  |e. Unable to lea|
00001e30  72 6e 20 64 65 66 69 6e  69 74 69 6f 6e 73 22 29  |rn definitions")|
00001e40  0d 01 05 05 e1 0d 01 06  05 3a 0d 01 07 3a dd f2  |.........:...:..|
00001e50  75 70 70 61 67 65 3a e7  20 74 6f 6e 25 3d 31 20  |uppage:. ton%=1 |
00001e60  8c 20 f2 67 65 74 63 68  61 72 3a 74 6f 6e 25 3d  |. .getchar:ton%=|
00001e70  30 3a 63 75 72 72 25 3d  30 3a 6f 6c 78 25 3d 2d  |0:curr%=0:olx%=-|
00001e80  31 30 30 30 0d 01 08 4a  e7 20 63 75 72 70 61 67  |1000...J. curpag|
00001e90  65 25 3c 39 20 8c 20 63  75 72 70 61 67 65 25 2b  |e%<9 . curpage%+|
00001ea0  3d 31 3a f2 73 65 74 73  74 61 74 65 28 74 6f 6f  |=1:.setstate(too|
00001eb0  6c 62 6f 78 25 2c 35 2c  c3 28 63 75 72 70 61 67  |lbox%,5,.(curpag|
00001ec0  65 25 29 29 3a f2 73 68  6f 77 70 61 67 65 0d 01  |e%)):.showpage..|
00001ed0  09 05 e1 0d 01 0a 05 3a  0d 01 0b 3c dd f2 64 6f  |.......:...<..do|
00001ee0  77 6e 70 61 67 65 3a e7  20 74 6f 6e 25 3d 31 20  |wnpage:. ton%=1 |
00001ef0  8c 20 f2 67 65 74 63 68  61 72 3a 74 6f 6e 25 3d  |. .getchar:ton%=|
00001f00  30 3a 63 75 72 72 25 3d  30 3a 6f 6c 78 25 3d 2d  |0:curr%=0:olx%=-|
00001f10  31 30 30 30 0d 01 0c 4a  e7 20 63 75 72 70 61 67  |1000...J. curpag|
00001f20  65 25 3e 30 20 8c 20 63  75 72 70 61 67 65 25 2d  |e%>0 . curpage%-|
00001f30  3d 31 3a f2 73 65 74 73  74 61 74 65 28 74 6f 6f  |=1:.setstate(too|
00001f40  6c 62 6f 78 25 2c 35 2c  c3 28 63 75 72 70 61 67  |lbox%,5,.(curpag|
00001f50  65 25 29 29 3a f2 73 68  6f 77 70 61 67 65 0d 01  |e%)):.showpage..|
00001f60  0d 05 e1 0d 01 0e 05 3a  0d 01 0f 08 dd f2 73 6d  |.......:......sm|
00001f70  0d 01 10 44 e7 20 62 6c  6f 63 6b 25 21 31 36 3d  |...D. block%!16=|
00001f80  39 20 73 6d 25 3d 73 6d  25 20 82 20 31 3a e7 20  |9 sm%=sm% . 1:. |
00001f90  73 6d 25 3d 30 20 f2 73  65 74 73 74 61 74 65 28  |sm%=0 .setstate(|
00001fa0  69 6e 66 6f 25 2c 31 2c  22 41 64 61 6c 69 6e 65  |info%,1,"Adaline|
00001fb0  20 35 22 29 0d 01 11 05  e1 0d 01 12 05 3a 0d 01  | 5").........:..|
00001fc0  13 1b dd f2 64 72 61 67  3a e7 20 62 6c 6f 63 6b  |....drag:. block|
00001fd0  25 21 31 36 3c 3e 32 20  e1 0d 01 14 12 21 62 6c  |%!16<>2 .....!bl|
00001fe0  6f 63 6b 25 3d 73 61 76  65 74 25 0d 01 15 23 c8  |ock%=savet%...#.|
00001ff0  99 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  |."Wimp_GetWindow|
00002000  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 0d 01  |State",,block%..|
00002010  16 19 78 25 3d 62 6c 6f  63 6b 25 21 34 2d 62 6c  |..x%=block%!4-bl|
00002020  6f 63 6b 25 21 32 30 0d  01 17 1a 79 25 3d 62 6c  |ock%!20....y%=bl|
00002030  6f 63 6b 25 21 31 36 2d  62 6c 6f 63 6b 25 21 32  |ock%!16-block%!2|
00002040  34 0d 01 18 0e 62 6c 6f  63 6b 25 21 34 3d 32 0d  |4....block%!4=2.|
00002050  01 19 21 c8 99 22 57 69  6d 70 5f 47 65 74 49 63  |..!.."Wimp_GetIc|
00002060  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |onState",,block%|
00002070  0d 01 1a 0d 21 62 6c 6f  63 6b 25 3d 30 0d 01 1b  |....!block%=0...|
00002080  0e 62 6c 6f 63 6b 25 21  34 3d 35 0d 01 1c 10 62  |.block%!4=5....b|
00002090  6c 6f 63 6b 25 21 38 2b  3d 78 25 0d 01 1d 11 62  |lock%!8+=x%....b|
000020a0  6c 6f 63 6b 25 21 31 32  2b 3d 79 25 0d 01 1e 11  |lock%!12+=y%....|
000020b0  62 6c 6f 63 6b 25 21 31  36 2b 3d 78 25 0d 01 1f  |block%!16+=x%...|
000020c0  11 62 6c 6f 63 6b 25 21  32 30 2b 3d 79 25 0d 01  |.block%!20+=y%..|
000020d0  20 10 62 6c 6f 63 6b 25  21 32 34 3d 2d 31 0d 01  | .block%!24=-1..|
000020e0  21 10 62 6c 6f 63 6b 25  21 32 38 3d 2d 31 0d 01  |!.block%!28=-1..|
000020f0  22 17 62 6c 6f 63 6b 25  21 33 32 3d 26 37 46 46  |".block%!32=&7FF|
00002100  46 46 46 46 46 0d 01 23  17 62 6c 6f 63 6b 25 21  |FFFFF..#.block%!|
00002110  33 36 3d 26 37 46 46 46  46 46 46 46 0d 01 24 1c  |36=&7FFFFFFF..$.|
00002120  c8 99 22 57 69 6d 70 5f  44 72 61 67 42 6f 78 22  |.."Wimp_DragBox"|
00002130  2c 2c 62 6c 6f 63 6b 25  0d 01 25 05 e1 0d 01 26  |,,block%..%....&|
00002140  05 3a 0d 01 27 10 dd f2  66 69 6e 69 73 68 64 72  |.:..'...finishdr|
00002150  61 67 0d 01 28 56 f2 63  6f 6d 70 69 6c 65 74 65  |ag..(V.compilete|
00002160  78 74 3a e7 20 64 61 74  65 78 74 25 3d 30 20 8c  |xt:. datext%=0 .|
00002170  20 f2 72 65 70 6f 72 74  28 2d 31 2c 22 4e 6f 20  | .report(-1,"No |
00002180  74 65 78 74 20 74 6f 20  73 61 76 65 22 29 3a c8  |text to save"):.|
00002190  99 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  |."Wimp_CreateMen|
000021a0  75 22 2c 2c 2d 31 3a e1  0d 01 29 12 6d 65 73 73  |u",,-1:...).mess|
000021b0  70 25 3d 74 65 78 74 73  74 25 0d 01 2a 23 c8 99  |p%=textst%..*#..|
000021c0  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
000021d0  49 6e 66 6f 22 2c 2c 62  6c 6f 63 6b 25 0d 01 2b  |Info",,block%..+|
000021e0  16 62 6c 6f 63 6b 25 21  33 32 3d 62 6c 6f 63 6b  |.block%!32=block|
000021f0  25 21 34 0d 01 2c 15 62  6c 6f 63 6b 25 21 32 38  |%!4..,.block%!28|
00002200  3d 21 62 6c 6f 63 6b 25  0d 01 2d 17 62 6c 6f 63  |=!block%..-.bloc|
00002210  6b 25 21 32 34 3d 62 6c  6f 63 6b 25 21 31 36 0d  |k%!24=block%!16.|
00002220  01 2e 17 62 6c 6f 63 6b  25 21 32 30 3d 62 6c 6f  |...block%!20=blo|
00002230  63 6b 25 21 31 32 0d 01  2f 0f 62 6c 6f 63 6b 25  |ck%!12../.block%|
00002240  21 31 36 3d 31 0d 01 30  0f 62 6c 6f 63 6b 25 21  |!16=1..0.block%!|
00002250  31 32 3d 30 0d 01 31 15  62 6c 6f 63 6b 25 21 33  |12=0..1.block%!3|
00002260  36 3d 64 61 74 65 78 74  25 0d 01 32 12 62 6c 6f  |6=datext%..2.blo|
00002270  63 6b 25 21 34 30 3d 26  46 46 46 0d 01 33 2f 24  |ck%!40=&FFF..3/$|
00002280  28 62 6c 6f 63 6b 25 2b  34 34 29 3d a4 65 6e 64  |(block%+44)=.end|
00002290  28 a4 67 65 74 73 74 61  74 65 28 73 61 76 65 74  |(.getstate(savet|
000022a0  25 2c 31 29 29 2b bd 28  30 29 0d 01 34 0e 21 62  |%,1))+.(0)..4.!b|
000022b0  6c 6f 63 6b 25 3d 36 30  0d 01 35 36 c8 99 22 57  |lock%=60..56.."W|
000022c0  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
000022d0  2c 31 37 2c 62 6c 6f 63  6b 25 2c 62 6c 6f 63 6b  |,17,block%,block|
000022e0  25 21 32 30 2c 62 6c 6f  63 6b 25 21 32 34 0d 01  |%!20,block%!24..|
000022f0  36 05 e1 0d 01 37 05 3a  0d 01 38 0d dd a4 65 6e  |6....7.:..8...en|
00002300  64 28 6e 24 29 0d 01 39  24 c8 95 20 a7 6e 24 2c  |d(n$)..9$.. .n$,|
00002310  22 2e 22 29 3a 6e 24 3d  c1 6e 24 2c a7 6e 24 2c  |"."):n$=.n$,.n$,|
00002320  22 2e 22 29 2b 31 29 3a  ce 0d 01 3a 07 3d 6e 24  |".")+1):...:.=n$|
00002330  0d 01 3b 05 3a 0d 01 3c  2a dd f2 63 6f 6d 70 69  |..;.:..<*..compi|
00002340  6c 65 74 65 78 74 3a 6d  65 73 73 70 25 3d 74 65  |letext:messp%=te|
00002350  78 74 73 74 25 3a 64 61  74 65 78 74 25 3d 30 0d  |xtst%:datext%=0.|
00002360  01 3d 16 71 25 21 30 3d  73 61 76 65 74 25 3a 71  |.=.q%!0=savet%:q|
00002370  25 21 34 3d 33 0d 01 3e  1d c8 99 22 57 69 6d 70  |%!4=3..>..."Wimp|
00002380  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00002390  71 25 0d 01 3f 4f e7 20  28 71 25 21 32 34 20 80  |q%..?O. (q%!24 .|
000023a0  20 31 3c 3c 32 31 29 20  f2 63 6f 6d 70 69 6c 65  | 1<<21) .compile|
000023b0  70 61 67 65 28 63 75 72  70 61 67 65 25 29 20 8b  |page(curpage%) .|
000023c0  20 e3 63 70 61 25 3d 30  20 b8 20 39 3a f2 63 6f  | .cpa%=0 . 9:.co|
000023d0  6d 70 69 6c 65 70 61 67  65 28 63 70 61 25 29 3a  |mpilepage(cpa%):|
000023e0  ed 0d 01 40 05 e1 0d 01  41 05 3a 0d 01 42 2b dd  |...@....A.:..B+.|
000023f0  f2 63 6f 6d 70 69 6c 65  70 61 67 65 28 70 61 67  |.compilepage(pag|
00002400  65 25 29 3a e7 20 6c 65  74 73 25 28 70 61 67 65  |e%):. lets%(page|
00002410  25 29 3d 30 20 e1 0d 01  43 34 24 6d 65 73 73 70  |%)=0 ...C4$messp|
00002420  25 3d 22 50 61 67 65 20  3a 22 2b c3 70 61 67 65  |%="Page :"+.page|
00002430  25 2b bd 31 30 3a 6d 65  73 73 70 25 2b 3d 38 3a  |%+.10:messp%+=8:|
00002440  64 61 74 65 78 74 25 2b  3d 38 0d 01 44 31 e3 63  |datext%+=8..D1.c|
00002450  79 25 3d 30 20 b8 20 31  35 3a 61 79 25 3d 28 31  |y%=0 . 15:ay%=(1|
00002460  35 2d 63 79 25 29 2a 36  34 3a 6f 70 25 3d 30 3a  |5-cy%)*64:op%=0:|
00002470  64 24 3d c4 37 36 2c 22  20 22 29 0d 01 45 58 e3  |d$=.76," ")..EX.|
00002480  6c 25 3d 30 20 b8 20 6c  65 74 73 25 28 70 61 67  |l%=0 . lets%(pag|
00002490  65 25 29 2d 31 3a e7 20  6c 79 25 28 6c 25 2c 70  |e%)-1:. ly%(l%,p|
000024a0  61 67 65 25 29 3d 61 79  25 20 8c 20 c1 64 24 2c  |age%)=ay% . .d$,|
000024b0  6c 78 25 28 6c 25 2c 70  61 67 65 25 29 2f 31 36  |lx%(l%,page%)/16|
000024c0  2c 31 29 3d bd 28 6c 25  28 6c 25 2c 70 61 67 65  |,1)=.(l%(l%,page|
000024d0  25 29 29 0d 01 46 05 ed  0d 01 47 10 64 24 3d a4  |%))..F....G.d$=.|
000024e0  6c 65 66 74 28 64 24 29  0d 01 48 57 e7 20 a9 28  |left(d$)..HW. .(|
000024f0  64 24 29 3e 30 20 8c 20  24 6d 65 73 73 70 25 3d  |d$)>0 . $messp%=|
00002500  64 24 2b bd 31 30 3a 6d  65 73 73 70 25 2b 3d 64  |d$+.10:messp%+=d|
00002510  25 3a 64 61 74 65 78 74  25 2b 3d 64 25 20 8b 20  |%:datext%+=d% . |
00002520  3f 6d 65 73 73 70 25 3d  31 30 3a 6d 65 73 73 70  |?messp%=10:messp|
00002530  25 2b 3d 31 3a 64 61 74  65 78 74 25 2b 3d 31 0d  |%+=1:datext%+=1.|
00002540  01 49 05 ed 0d 01 4a 05  cd 0d 01 4b 05 e1 0d 01  |.I....J....K....|
00002550  4c 05 3a 0d 01 4d 0e dd  a4 6c 65 66 74 28 64 24  |L.:..M...left(d$|
00002560  29 0d 01 4e 13 e3 7a 25  3d 37 36 20 b8 20 30 20  |)..N..z%=76 . 0 |
00002570  88 20 2d 31 0d 01 4f 30  e7 20 c1 64 24 2c 7a 25  |. -1..O0. .d$,z%|
00002580  2c 31 29 3c 3e 22 20 22  20 8c 20 6d 24 3d c0 64  |,1)<>" " . m$=.d|
00002590  24 2c 7a 25 29 3a 64 25  3d a9 28 6d 24 29 2b 31  |$,z%):d%=.(m$)+1|
000025a0  3a 3d 6d 24 0d 01 50 05  ed 0d 01 51 07 3d 22 22  |:=m$..P....Q.=""|
000025b0  0d 01 52 05 3a 0d 01 53  1a dd f2 72 65 63 65 69  |..R.:..S...recei|
000025c0  76 65 3a 72 25 3d 62 6c  6f 63 6b 25 21 31 36 0d  |ve:r%=block%!16.|
000025d0  01 54 0b c8 8e 20 72 25  20 ca 0d 01 55 10 c9 20  |.T... r% ...U.. |
000025e0  30 3a 20 71 75 69 74 25  3d b9 0d 01 56 12 c9 20  |0: quit%=...V.. |
000025f0  32 3a 20 f2 66 69 6c 65  73 61 76 65 0d 01 57 11  |2: .filesave..W.|
00002600  c9 20 36 3a 20 f2 72 61  6d 73 61 76 65 0d 01 58  |. 6: .ramsave..X|
00002610  05 cb 0d 01 59 05 e1 0d  01 5a 05 3a 0d 01 5b 0e  |....Y....Z.:..[.|
00002620  dd f2 66 69 6c 65 73 61  76 65 0d 01 5c 1c 6e 61  |..filesave..\.na|
00002630  6d 65 24 3d a4 73 74 72  69 6e 67 28 62 6c 6f 63  |me$=.string(bloc|
00002640  6b 25 2b 34 34 29 0d 01  5d 1d f2 73 65 74 73 74  |k%+44)..]..setst|
00002650  61 74 65 28 73 61 76 65  74 25 2c 31 2c 6e 61 6d  |ate(savet%,1,nam|
00002660  65 24 29 0d 01 5e 17 7a  25 3d a4 73 61 76 65 66  |e$)..^.z%=.savef|
00002670  69 6c 65 28 6e 61 6d 65  24 29 0d 01 5f 4a 62 6c  |ile(name$).._Jbl|
00002680  6f 63 6b 25 21 31 32 3d  62 6c 6f 63 6b 25 21 38  |ock%!12=block%!8|
00002690  3a 62 6c 6f 63 6b 25 21  31 36 3d 33 3a c8 99 22  |:block%!16=3:.."|
000026a0  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
000026b0  22 2c 31 37 2c 62 6c 6f  63 6b 25 2c 62 6c 6f 63  |",17,block%,bloc|
000026c0  6b 25 21 34 0d 01 60 20  e7 20 7a 25 20 c8 99 22  |k%!4..` . z% .."|
000026d0  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
000026e0  2c 2c 2d 31 0d 01 61 05  e1 0d 01 62 05 3a 0d 01  |,,-1..a....b.:..|
000026f0  63 16 dd a4 73 74 72 69  6e 67 28 70 25 29 3a 73  |c...string(p%):s|
00002700  24 3d 22 22 0d 01 64 41  e3 6e 25 3d 70 25 20 b8  |$=""..dA.n%=p% .|
00002710  20 70 25 2b 32 35 35 3a  63 25 3d 3f 6e 25 3a e7  | p%+255:c%=?n%:.|
00002720  20 63 25 3e 33 31 20 80  20 63 25 3c 31 32 37 20  | c%>31 . c%<127 |
00002730  8c 20 73 24 2b 3d bd 63  25 20 8b 20 6e 25 3d 70  |. s$+=.c% . n%=p|
00002740  25 2b 32 35 35 0d 01 65  05 ed 0d 01 66 07 3d 73  |%+255..e....f.=s|
00002750  24 0d 01 67 05 3a 0d 01  68 12 dd a4 73 61 76 65  |$..g.:..h...save|
00002760  66 69 6c 65 28 6e 24 29  0d 01 69 32 ee 20 85 20  |file(n$)..i2. . |
00002770  ea 20 f2 72 65 70 6f 72  74 28 2d 31 2c 22 46 69  |. .report(-1,"Fi|
00002780  6c 65 72 20 65 72 72 6f  72 20 3a 22 2b c3 9f 2b  |ler error :"+..+|
00002790  22 3a 22 2b f6 24 29 3a  3d 30 0d 01 6a 33 c8 99  |":"+.$):=0..j3..|
000027a0  22 4f 53 5f 46 69 6c 65  22 2c 31 30 2c 6e 24 2c  |"OS_File",10,n$,|
000027b0  26 46 46 46 2c 2c 74 65  78 74 73 74 25 2c 74 65  |&FFF,,textst%,te|
000027c0  78 74 73 74 25 2b 64 61  74 65 78 74 25 0d 01 6b  |xtst%+datext%..k|
000027d0  07 3d 2d 31 0d 01 6c 05  3a 0d 01 6d 0d dd f2 72  |.=-1..l.:..m...r|
000027e0  61 6d 73 61 76 65 0d 01  6e 22 62 6c 6f 63 6b 25  |amsave..n"block%|
000027f0  21 31 32 3d 62 6c 6f 63  6b 25 21 38 3a 62 6c 6f  |!12=block%!8:blo|
00002800  63 6b 25 21 31 36 3d 37  0d 01 6f 2f e7 20 28 62  |ck%!16=7..o/. (b|
00002810  6c 6f 63 6b 25 21 32 34  2d 64 61 74 65 78 74 25  |lock%!24-datext%|
00002820  29 3e 30 20 8c 20 62 6c  6f 63 6b 25 21 32 34 3d  |)>0 . block%!24=|
00002830  64 61 74 65 78 74 25 0d  01 70 47 c8 99 20 22 57  |datext%..pG.. "W|
00002840  69 6d 70 5f 54 72 61 6e  73 66 65 72 42 6c 6f 63  |imp_TransferBloc|
00002850  6b 22 2c 68 61 6e 64 6c  65 25 2c 6d 65 73 73 70  |k",handle%,messp|
00002860  25 2c 62 6c 6f 63 6b 25  21 34 2c 62 6c 6f 63 6b  |%,block%!4,block|
00002870  25 21 32 30 2c 62 6c 6f  63 6b 25 21 32 34 0d 01  |%!20,block%!24..|
00002880  71 2c c8 99 20 22 57 69  6d 70 5f 53 65 6e 64 4d  |q,.. "Wimp_SendM|
00002890  65 73 73 61 67 65 22 2c  31 37 2c 62 6c 6f 63 6b  |essage",17,block|
000028a0  25 2c 62 6c 6f 63 6b 25  21 34 0d 01 72 28 6d 65  |%,block%!4..r(me|
000028b0  73 73 70 25 2b 3d 62 6c  6f 63 6b 25 21 32 34 3a  |ssp%+=block%!24:|
000028c0  64 61 74 65 78 74 25 2d  3d 62 6c 6f 63 6b 25 21  |datext%-=block%!|
000028d0  32 34 0d 01 73 05 e1 0d  01 74 05 3a 0d 01 75 20  |24..s....t.:..u |
000028e0  dd f2 73 65 74 73 74 61  74 65 28 77 69 6e 25 2c  |..setstate(win%,|
000028f0  62 75 74 25 2c 73 74 61  74 65 24 29 0d 01 76 0c  |but%,state$)..v.|
00002900  21 71 25 3d 77 69 6e 25  0d 01 77 0d 71 25 21 34  |!q%=win%..w.q%!4|
00002910  3d 62 75 74 25 0d 01 78  1d c8 99 22 57 69 6d 70  |=but%..x..."Wimp|
00002920  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00002930  71 25 0d 01 79 11 24 71  25 21 32 38 3d 73 74 61  |q%..y.$q%!28=sta|
00002940  74 65 24 0d 01 7a 0a 71  25 21 38 3d 30 0d 01 7b  |te$..z.q%!8=0..{|
00002950  0b 71 25 21 31 32 3d 30  0d 01 7c 1d c8 99 22 57  |.q%!12=0..|..."W|
00002960  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00002970  22 2c 2c 71 25 0d 01 7d  05 e1 0d 01 7e 05 3a 0d  |",,q%..}....~.:.|
00002980  01 7f 19 dd a4 67 65 74  73 74 61 74 65 28 77 69  |.....getstate(wi|
00002990  6e 25 2c 62 75 74 25 29  0d 01 80 0c 21 71 25 3d  |n%,but%)....!q%=|
000029a0  77 69 6e 25 0d 01 81 0d  71 25 21 34 3d 62 75 74  |win%....q%!4=but|
000029b0  25 0d 01 82 1d c8 99 22  57 69 6d 70 5f 47 65 74  |%......"Wimp_Get|
000029c0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 71 25 0d 01  |IconState",,q%..|
000029d0  83 0b 3d 24 71 25 21 32  38 0d 01 84 05 3a 0d 01  |..=$q%!28....:..|
000029e0  85 1e dd f2 63 6c 69 63  6b 6d 61 69 6e 3a 74 6f  |....clickmain:to|
000029f0  6e 25 3d 31 3a 74 69 6d  65 25 3d 91 0d 01 86 38  |n%=1:time%=....8|
00002a00  f2 67 65 74 28 63 75 72  72 25 29 3a e7 20 6d 25  |.get(curr%):. m%|
00002a10  28 63 75 72 72 25 29 3d  31 20 8c 20 74 6f 6e 25  |(curr%)=1 . ton%|
00002a20  3d 30 3a f2 73 68 6f 77  77 69 6e 28 70 61 67 65  |=0:.showwin(page|
00002a30  25 29 3a e1 0d 01 87 23  e7 20 6d 6f 64 65 25 3d  |%):....#. mode%=|
00002a40  31 20 8c 20 f2 74 72 79  64 65 6c 65 74 65 3a 74  |1 . .trydelete:t|
00002a50  6f 6e 25 3d 30 3a e1 0d  01 88 2e 6d 25 28 63 75  |on%=0:.....m%(cu|
00002a60  72 72 25 29 2d 3d 31 3a  6f 76 65 72 25 3d 30 3a  |rr%)-=1:over%=0:|
00002a70  e7 20 63 75 72 72 25 3d  30 20 8c 20 63 75 72 72  |. curr%=0 . curr|
00002a80  25 3d 31 3a e1 0d 01 89  19 e7 20 a4 6f 76 65 72  |%=1:...... .over|
00002a90  6c 61 70 3d 32 20 8c 20  f2 61 64 64 3a e1 0d 01  |lap=2 . .add:...|
00002aa0  8a 17 f2 67 65 74 63 68  61 72 3a f2 63 6f 70 79  |...getchar:.copy|
00002ab0  74 6f 7a 3a e1 0d 01 8b  05 3a 0d 01 8c 0f dd f2  |toz:.....:......|
00002ac0  6f 75 74 65 72 28 6e 25  29 0d 01 8d 43 62 78 25  |outer(n%)...Cbx%|
00002ad0  28 6e 25 29 3d 31 32 38  30 3a 62 79 25 28 6e 25  |(n%)=1280:by%(n%|
00002ae0  29 3d 31 30 32 34 3a 74  78 25 28 6e 25 29 3d 30  |)=1024:tx%(n%)=0|
00002af0  3a 74 79 25 28 6e 25 29  3d 30 3a 6d 25 28 6e 25  |:ty%(n%)=0:m%(n%|
00002b00  29 2d 3d 31 3a 6f 76 65  72 25 3d 30 0d 01 8e 2e  |)-=1:over%=0....|
00002b10  e3 6f 25 3d 30 20 b8 20  6d 25 28 6e 25 29 3a 78  |.o%=0 . m%(n%):x|
00002b20  25 3d 6d 78 25 28 6f 25  2c 6e 25 29 3a 79 25 3d  |%=mx%(o%,n%):y%=|
00002b30  6d 79 25 28 6f 25 2c 6e  25 29 0d 01 8f 0d e7 20  |my%(o%,n%)..... |
00002b40  78 25 3e 2d 31 20 8c 0d  01 90 1d e7 20 78 25 3c  |x%>-1 ...... x%<|
00002b50  62 78 25 28 6e 25 29 20  8c 20 62 78 25 28 6e 25  |bx%(n%) . bx%(n%|
00002b60  29 3d 78 25 0d 01 91 1d  e7 20 78 25 3e 74 78 25  |)=x%..... x%>tx%|
00002b70  28 6e 25 29 20 8c 20 74  78 25 28 6e 25 29 3d 78  |(n%) . tx%(n%)=x|
00002b80  25 0d 01 92 1d e7 20 79  25 3c 62 79 25 28 6e 25  |%..... y%<by%(n%|
00002b90  29 20 8c 20 62 79 25 28  6e 25 29 3d 79 25 0d 01  |) . by%(n%)=y%..|
00002ba0  93 1d e7 20 79 25 3e 74  79 25 28 6e 25 29 20 8c  |... y%>ty%(n%) .|
00002bb0  20 74 79 25 28 6e 25 29  3d 79 25 0d 01 94 05 cd  | ty%(n%)=y%.....|
00002bc0  0d 01 95 05 ed 0d 01 96  05 e1 0d 01 97 05 3a 0d  |..............:.|
00002bd0  01 98 0d dd a4 6f 76 65  72 6c 61 70 0d 01 99 2b  |.....overlap...+|
00002be0  e3 6f 25 3d 30 20 b8 20  6d 25 28 31 29 3a 78 25  |.o%=0 . m%(1):x%|
00002bf0  3d 6d 78 25 28 6f 25 2c  31 29 3a 79 25 3d 6d 79  |=mx%(o%,1):y%=my|
00002c00  25 28 6f 25 2c 31 29 0d  01 9a 0b 6f 76 65 72 25  |%(o%,1)....over%|
00002c10  3d 30 0d 01 9b 25 e7 20  78 25 3e 62 78 25 28 30  |=0...%. x%>bx%(0|
00002c20  29 20 80 20 78 25 3c 74  78 25 28 30 29 20 8c 20  |) . x%<tx%(0) . |
00002c30  6f 76 65 72 25 3d 31 0d  01 9c 26 e7 20 79 25 3e  |over%=1...&. y%>|
00002c40  62 79 25 28 30 29 20 80  20 79 25 3c 74 79 25 28  |by%(0) . y%<ty%(|
00002c50  30 29 20 8c 20 6f 76 65  72 25 2b 3d 31 0d 01 9d  |0) . over%+=1...|
00002c60  18 e7 20 6f 76 65 72 25  3d 32 20 8c 20 6f 25 3d  |.. over%=2 . o%=|
00002c70  6d 25 28 31 29 0d 01 9e  05 ed 0d 01 9f 0a 3d 6f  |m%(1).........=o|
00002c80  76 65 72 25 0d 01 a0 05  3a 0d 01 a1 09 dd f2 61  |ver%....:......a|
00002c90  64 64 0d 01 a2 23 e7 20  62 78 25 28 31 29 3c 62  |dd...#. bx%(1)<b|
00002ca0  78 25 28 30 29 20 8c 20  62 78 25 28 30 29 3d 62  |x%(0) . bx%(0)=b|
00002cb0  78 25 28 31 29 0d 01 a3  23 e7 20 74 78 25 28 31  |x%(1)...#. tx%(1|
00002cc0  29 3e 74 78 25 28 30 29  20 8c 20 74 78 25 28 30  |)>tx%(0) . tx%(0|
00002cd0  29 3d 74 78 25 28 31 29  0d 01 a4 23 e7 20 62 79  |)=tx%(1)...#. by|
00002ce0  25 28 31 29 3c 62 79 25  28 30 29 20 8c 20 62 79  |%(1)<by%(0) . by|
00002cf0  25 28 30 29 3d 62 79 25  28 31 29 0d 01 a5 23 e7  |%(0)=by%(1)...#.|
00002d00  20 74 79 25 28 31 29 3e  74 79 25 28 30 29 20 8c  | ty%(1)>ty%(0) .|
00002d10  20 74 79 25 28 30 29 3d  74 79 25 28 31 29 0d 01  | ty%(0)=ty%(1)..|
00002d20  a6 15 6d 78 25 28 6d 25  28 30 29 2b 31 2c 30 29  |..mx%(m%(0)+1,0)|
00002d30  3d 2d 31 0d 01 a7 11 e3  6e 25 3d 30 20 b8 20 6d  |=-1.....n%=0 . m|
00002d40  25 28 31 29 0d 01 a8 1f  6d 78 25 28 6d 25 28 30  |%(1)....mx%(m%(0|
00002d50  29 2b 6e 25 2b 32 2c 30  29 3d 6d 78 25 28 6e 25  |)+n%+2,0)=mx%(n%|
00002d60  2c 31 29 0d 01 a9 1f 6d  79 25 28 6d 25 28 30 29  |,1)....my%(m%(0)|
00002d70  2b 6e 25 2b 32 2c 30 29  3d 6d 79 25 28 6e 25 2c  |+n%+2,0)=my%(n%,|
00002d80  31 29 0d 01 aa 05 ed 0d  01 ab 12 6d 25 28 30 29  |1).........m%(0)|
00002d90  2b 3d 6d 25 28 31 29 2b  32 0d 01 ac 05 e1 0d 01  |+=m%(1)+2.......|
00002da0  ad 05 3a 0d 01 ae 0d dd  f2 63 6f 70 79 74 6f 7a  |..:......copytoz|
00002db0  0d 01 af 11 e3 6e 25 3d  30 20 b8 20 6d 25 28 31  |.....n%=0 . m%(1|
00002dc0  29 0d 01 b0 17 6d 78 25  28 6e 25 2c 30 29 3d 6d  |)....mx%(n%,0)=m|
00002dd0  78 25 28 6e 25 2c 31 29  0d 01 b1 17 6d 79 25 28  |x%(n%,1)....my%(|
00002de0  6e 25 2c 30 29 3d 6d 79  25 28 6e 25 2c 31 29 0d  |n%,0)=my%(n%,1).|
00002df0  01 b2 05 ed 0d 01 b3 11  62 78 25 28 30 29 3d 62  |........bx%(0)=b|
00002e00  78 25 28 31 29 0d 01 b4  11 62 79 25 28 30 29 3d  |x%(1)....by%(0)=|
00002e10  62 79 25 28 31 29 0d 01  b5 11 74 78 25 28 30 29  |by%(1)....tx%(0)|
00002e20  3d 74 78 25 28 31 29 0d  01 b6 11 74 79 25 28 30  |=tx%(1)....ty%(0|
00002e30  29 3d 74 79 25 28 31 29  0d 01 b7 0f 6d 25 28 30  |)=ty%(1)....m%(0|
00002e40  29 3d 6d 25 28 31 29 0d  01 b8 05 e1 0d 01 b9 05  |)=m%(1).........|
00002e50  3a 0d 01 ba 39 dd f2 67  65 74 63 68 61 72 3a f2  |:...9..getchar:.|
00002e60  64 65 6c 28 30 29 3a e7  20 74 78 25 28 30 29 3d  |del(0):. tx%(0)=|
00002e70  62 78 25 28 30 29 20 84  20 74 79 25 28 30 29 3d  |bx%(0) . ty%(0)=|
00002e80  62 79 25 28 30 29 20 8c  20 e1 0d 01 bb 50 e7 20  |by%(0) . ....P. |
00002e90  6c 65 74 73 25 28 63 75  72 70 61 67 65 25 29 3d  |lets%(curpage%)=|
00002ea0  31 30 30 20 8c 20 f2 72  65 70 6f 72 74 28 30 2c  |100 . .report(0,|
00002eb0  22 4e 6f 20 6d 6f 72 65  20 72 6f 6f 6d 20 66 6f  |"No more room fo|
00002ec0  72 20 6c 65 74 74 65 72  73 20 6f 6e 20 74 68 69  |r letters on thi|
00002ed0  73 20 70 61 67 65 22 29  3a e1 0d 01 bc 3b e3 78  |s page"):....;.x|
00002ee0  25 3d 30 20 b8 20 37 3a  e3 79 25 3d 30 20 b8 20  |%=0 . 7:.y%=0 . |
00002ef0  37 3a 69 25 28 78 25 2c  79 25 29 3d 30 3a 70 6f  |7:i%(x%,y%)=0:po|
00002f00  6b 65 25 3f 28 28 79 25  2a 38 29 2b 78 25 29 3d  |ke%?((y%*8)+x%)=|
00002f10  30 3a ed 3a ed 0d 01 bd  35 73 63 61 6c 65 78 3d  |0:.:....5scalex=|
00002f20  38 2f 28 74 78 25 28 30  29 2d 62 78 25 28 30 29  |8/(tx%(0)-bx%(0)|
00002f30  29 3a 73 63 61 6c 65 79  3d 38 2f 28 74 79 25 28  |):scaley=8/(ty%(|
00002f40  30 29 2d 62 79 25 28 30  29 29 0d 01 be 13 e3 6e  |0)-by%(0)).....n|
00002f50  25 3d 30 20 b8 20 6d 25  28 30 29 2d 31 0d 01 bf  |%=0 . m%(0)-1...|
00002f60  1a e7 20 6d 78 25 28 6e  25 2c 30 29 3d 2d 31 20  |.. mx%(n%,0)=-1 |
00002f70  8c 20 6e 25 2b 3d 31 0d  01 c0 3f 78 25 3d 28 6d  |. n%+=1...?x%=(m|
00002f80  78 25 28 6e 25 2c 30 29  2d 62 78 25 28 30 29 29  |x%(n%,0)-bx%(0))|
00002f90  2a 73 63 61 6c 65 78 3a  79 25 3d 38 2d 28 6d 79  |*scalex:y%=8-(my|
00002fa0  25 28 6e 25 2c 30 29 2d  62 79 25 28 30 29 29 2a  |%(n%,0)-by%(0))*|
00002fb0  73 63 61 6c 65 79 0d 01  c1 11 e7 20 78 25 3d 38  |scaley..... x%=8|
00002fc0  20 8c 20 78 25 3d 37 0d  01 c2 11 e7 20 79 25 3d  | . x%=7..... y%=|
00002fd0  38 20 8c 20 79 25 3d 37  0d 01 c3 25 69 25 28 78  |8 . y%=7...%i%(x|
00002fe0  25 2c 79 25 29 3d 31 3a  70 6f 6b 65 25 3f 28 28  |%,y%)=1:poke%?((|
00002ff0  79 25 2a 38 29 2b 78 25  29 3d 26 46 46 0d 01 c4  |y%*8)+x%)=&FF...|
00003000  05 ed 0d 01 c5 17 63 68  61 72 25 3d ba 28 66 6f  |......char%=.(fo|
00003010  72 77 61 72 64 29 2b 36  35 0d 01 c6 19 e7 20 6c  |rward)+65..... l|
00003020  65 74 73 25 28 63 75 72  70 61 67 65 25 29 3e 30  |ets%(curpage%)>0|
00003030  20 8c 0d 01 c7 7a e7 20  28 28 62 78 25 28 30 29  | ....z. ((bx%(0)|
00003040  2d 6f 6c 78 25 29 5e 32  29 2b 28 28 62 79 25 28  |-olx%)^2)+((by%(|
00003050  30 29 2d 6f 6c 79 25 29  5e 32 29 3c 32 30 30 30  |0)-oly%)^2)<2000|
00003060  30 20 84 20 28 28 62 78  25 28 30 29 2d 6f 6c 62  |0 . ((bx%(0)-olb|
00003070  78 25 29 5e 32 29 2b 28  28 62 79 25 28 30 29 2d  |x%)^2)+((by%(0)-|
00003080  6f 6c 79 25 29 5e 32 29  3c 31 30 30 30 30 20 8c  |oly%)^2)<10000 .|
00003090  20 62 78 25 28 30 29 3d  6f 6c 62 78 25 2b 31 36  | bx%(0)=olbx%+16|
000030a0  3a 62 79 25 28 30 29 3d  6f 6c 79 25 0d 01 c8 05  |:by%(0)=oly%....|
000030b0  cd 0d 01 c9 1c 62 79 25  28 30 29 3d 28 a8 28 62  |.....by%(0)=(.(b|
000030c0  79 25 28 30 29 2f 36 34  29 2a 36 34 29 0d 01 ca  |y%(0)/64)*64)...|
000030d0  28 6f 6c 78 25 3d 74 78  25 28 30 29 3a 6f 6c 79  |(olx%=tx%(0):oly|
000030e0  25 3d 62 79 25 28 30 29  3a 6f 6c 62 78 25 3d 62  |%=by%(0):olbx%=b|
000030f0  78 25 28 30 29 0d 01 cb  a2 f2 70 72 69 6e 74 28  |x%(0).....print(|
00003100  62 78 25 28 30 29 2c 62  79 25 28 30 29 2c bd 28  |bx%(0),by%(0),.(|
00003110  63 68 61 72 25 29 29 3a  6c 25 28 6c 65 74 73 25  |char%)):l%(lets%|
00003120  28 63 75 72 70 61 67 65  25 29 2c 63 75 72 70 61  |(curpage%),curpa|
00003130  67 65 25 29 3d 63 68 61  72 25 3a 6c 78 25 28 6c  |ge%)=char%:lx%(l|
00003140  65 74 73 25 28 63 75 72  70 61 67 65 25 29 2c 63  |ets%(curpage%),c|
00003150  75 72 70 61 67 65 25 29  3d 62 78 25 28 30 29 3a  |urpage%)=bx%(0):|
00003160  6c 79 25 28 6c 65 74 73  25 28 63 75 72 70 61 67  |ly%(lets%(curpag|
00003170  65 25 29 2c 63 75 72 70  61 67 65 25 29 3d 62 79  |e%),curpage%)=by|
00003180  25 28 30 29 3a 6c 65 74  73 25 28 63 75 72 70 61  |%(0):lets%(curpa|
00003190  67 65 25 29 2b 3d 31 0d  01 cc 29 e3 20 6e 25 3d  |ge%)+=1...). n%=|
000031a0  30 20 b8 20 32 35 3a 7a  25 3d 28 6f 75 74 70 75  |0 . 25:z%=(outpu|
000031b0  74 73 25 21 28 6e 25 2a  34 29 29 2f 32 5e 32 32  |ts%!(n%*4))/2^22|
000031c0  0d 01 cd 15 e7 20 7a 25  3e 31 32 38 20 8c 20 7a  |..... z%>128 . z|
000031d0  25 3d 31 32 38 0d 01 ce  11 e7 20 7a 25 3c 30 20  |%=128..... z%<0 |
000031e0  8c 20 7a 25 3d 30 0d 01  cf 11 62 61 72 25 28 6e  |. z%=0....bar%(n|
000031f0  25 29 3d 7a 25 3a ed 0d  01 d0 46 f2 75 70 64 61  |%)=z%:....F.upda|
00003200  74 65 6f 75 74 3a 21 62  6c 6f 63 6b 25 3d 6f 75  |teout:!block%=ou|
00003210  74 70 75 74 25 3a c8 99  22 57 69 6d 70 5f 47 65  |tput%:.."Wimp_Ge|
00003220  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
00003230  6c 6f 63 6b 25 3a f2 72  65 64 72 61 77 0d 01 d1  |lock%:.redraw...|
00003240  17 e7 20 6d 6f 64 65 25  3d 32 20 8c 20 f2 61 6d  |.. mode%=2 . .am|
00003250  6d 65 6e 64 0d 01 d2 0d  6d 25 28 30 29 3d 30 3a  |mend....m%(0)=0:|
00003260  e1 0d 01 d3 05 3a 0d 01  d4 15 dd f2 70 72 69 6e  |.....:......prin|
00003270  74 28 78 25 2c 79 25 2c  73 24 29 0d 01 d5 23 c8  |t(x%,y%,s$)...#.|
00003280  99 20 26 32 45 2c 26 31  33 43 2c 73 70 72 69 74  |. &2E,&13C,sprit|
00003290  65 73 25 2c 22 73 63 72  65 65 6e 22 2c 31 0d 01  |es%,"screen",1..|
000032a0  d6 29 c8 99 20 22 4f 53  5f 52 65 61 64 56 64 75  |.).. "OS_ReadVdu|
000032b0  56 61 72 69 61 62 6c 65  73 22 2c 72 64 62 25 2c  |Variables",rdb%,|
000032c0  72 64 62 25 2b 31 32 0d  01 d7 11 78 65 69 67 25  |rdb%+12....xeig%|
000032d0  3d 72 64 62 25 21 31 32  0d 01 d8 11 79 65 69 67  |=rdb%!12....yeig|
000032e0  25 3d 72 64 62 25 21 31  36 0d 01 d9 37 ec 20 78  |%=rdb%!16...7. x|
000032f0  25 2c 79 25 2b 33 32 3a  e6 20 31 3a ef 35 2c 32  |%,y%+32:. 1:.5,2|
00003300  33 2c 31 37 2c 37 2c 32  2c 31 36 3e 3e 78 65 69  |3,17,7,2,16>>xei|
00003310  67 25 3b 33 32 3e 3e 79  65 69 67 25 7c 97 73 24  |g%;32>>yeig%|.s$|
00003320  0d 01 da 1c c8 99 20 26  32 45 2c 26 31 33 43 2c  |...... &2E,&13C,|
00003330  73 70 72 69 74 65 73 25  2c 30 2c 31 0d 01 db 18  |sprites%,0,1....|
00003340  21 72 64 62 25 3d 31 36  34 3a 72 64 62 25 21 34  |!rdb%=164:rdb%!4|
00003350  3d 31 36 35 0d 01 dc 28  c8 99 22 4f 53 5f 52 65  |=165...(.."OS_Re|
00003360  61 64 56 64 75 56 61 72  69 61 62 6c 65 73 22 2c  |adVduVariables",|
00003370  72 64 62 25 2c 72 64 62  25 2b 31 32 0d 01 dd 20  |rdb%,rdb%+12... |
00003380  ef 20 32 33 2c 31 37 2c  37 2c 32 2c 72 64 62 25  |. 23,17,7,2,rdb%|
00003390  21 31 32 3b 72 64 62 25  21 31 36 7c 0d 01 de 14  |!12;rdb%!16|....|
000033a0  21 72 64 62 25 3d 34 3a  72 64 62 25 21 34 3d 35  |!rdb%=4:rdb%!4=5|
000033b0  0d 01 df 39 21 62 6c 6f  63 6b 25 3d 70 61 67 65  |...9!block%=page|
000033c0  25 3a c8 99 22 57 69 6d  70 5f 47 65 74 57 69 6e  |%:.."Wimp_GetWin|
000033d0  64 6f 77 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |dowState",,block|
000033e0  25 3a f2 72 65 64 72 61  77 0d 01 e0 05 e1 0d 01  |%:.redraw.......|
000033f0  e1 05 3a 0d 01 e2 27 dd  f2 63 61 6c 63 6c 65 61  |..:...'..calclea|
00003400  72 6e 3a 61 64 64 72 25  3d 69 6e 70 75 74 25 2b  |rn:addr%=input%+|
00003410  28 63 75 72 6c 25 2a 36  34 29 0d 01 e3 61 e3 78  |(curl%*64)...a.x|
00003420  25 3d 30 20 b8 20 37 3a  e3 79 25 3d 30 20 b8 20  |%=0 . 7:.y%=0 . |
00003430  37 3a 69 32 25 28 78 25  2c 79 25 29 3d 28 61 64  |7:i2%(x%,y%)=(ad|
00003440  64 72 25 3f 28 28 79 25  2a 38 29 2b 78 25 29 29  |dr%?((y%*8)+x%))|
00003450  2f 33 32 3a 70 6f 6b 65  25 3f 28 28 79 25 2a 38  |/32:poke%?((y%*8|
00003460  29 2b 78 25 29 3d 61 64  64 72 25 3f 28 28 79 25  |)+x%)=addr%?((y%|
00003470  2a 38 29 2b 78 25 29 3a  ed 3a ed 0d 01 e4 17 63  |*8)+x%):.:.....c|
00003480  68 61 72 25 3d ba 28 66  6f 72 77 61 72 64 29 2b  |har%=.(forward)+|
00003490  36 35 0d 01 e5 29 e3 20  6e 25 3d 30 20 b8 20 32  |65...). n%=0 . 2|
000034a0  35 3a 7a 25 3d 28 6f 75  74 70 75 74 73 25 21 28  |5:z%=(outputs%!(|
000034b0  6e 25 2a 34 29 29 2f 32  5e 32 32 0d 01 e6 15 e7  |n%*4))/2^22.....|
000034c0  20 7a 25 3e 31 32 38 20  8c 20 7a 25 3d 31 32 38  | z%>128 . z%=128|
000034d0  0d 01 e7 11 e7 20 7a 25  3c 30 20 8c 20 7a 25 3d  |..... z%<0 . z%=|
000034e0  30 0d 01 e8 12 62 61 72  6c 25 28 6e 25 29 3d 7a  |0....barl%(n%)=z|
000034f0  25 3a ed 0d 01 e9 44 f2  73 65 74 73 74 61 74 65  |%:....D.setstate|
00003500  28 6c 65 61 72 6e 25 2c  33 2c 22 43 75 72 72 65  |(learn%,3,"Curre|
00003510  6e 74 20 64 65 66 69 6e  69 74 69 6f 6e 20 66 6f  |nt definition fo|
00003520  72 20 6c 65 74 74 65 72  3a 22 2b bd 28 63 75 72  |r letter:"+.(cur|
00003530  6c 25 2b 36 35 29 29 0d  01 ea 24 6e 75 6d 69 6e  |l%+65))...$numin|
00003540  70 25 3d 21 28 69 6e 70  75 74 25 2b 26 36 43 30  |p%=!(input%+&6C0|
00003550  2b 28 63 75 72 6c 25 2a  34 29 29 0d 01 eb 2c e7  |+(curl%*4))...,.|
00003560  20 6e 75 6d 69 6e 70 25  3d 31 20 8c 20 73 24 3d  | numinp%=1 . s$=|
00003570  22 20 69 6e 70 75 74 22  20 8b 20 73 24 3d 22 20  |" input" . s$=" |
00003580  69 6e 70 75 74 73 22 0d  01 ec 33 f2 73 65 74 73  |inputs"...3.sets|
00003590  74 61 74 65 28 6c 65 61  72 6e 25 2c 35 2c 22 41  |tate(learn%,5,"A|
000035a0  76 65 72 61 67 65 20 6f  66 20 22 2b c3 28 6e 75  |verage of "+.(nu|
000035b0  6d 69 6e 70 25 29 2b 73  24 29 0d 01 ed 05 e1 0d  |minp%)+s$)......|
000035c0  01 ee 05 3a 0d 01 ef 0e  dd f2 73 68 6f 77 70 61  |...:......showpa|
000035d0  67 65 0d 01 f0 23 c8 99  20 26 32 45 2c 26 31 33  |ge...#.. &2E,&13|
000035e0  43 2c 73 70 72 69 74 65  73 25 2c 22 73 63 72 65  |C,sprites%,"scre|
000035f0  65 6e 22 2c 31 0d 01 f1  29 c8 99 20 22 4f 53 5f  |en",1...).. "OS_|
00003600  52 65 61 64 56 64 75 56  61 72 69 61 62 6c 65 73  |ReadVduVariables|
00003610  22 2c 72 64 62 25 2c 72  64 62 25 2b 31 32 0d 01  |",rdb%,rdb%+12..|
00003620  f2 11 78 65 69 67 25 3d  72 64 62 25 21 31 32 0d  |..xeig%=rdb%!12.|
00003630  01 f3 11 79 65 69 67 25  3d 72 64 62 25 21 31 36  |...yeig%=rdb%!16|
00003640  0d 01 f4 43 ef 35 2c 32  33 2c 31 37 2c 37 2c 32  |...C.5,23,17,7,2|
00003650  2c 31 36 3e 3e 78 65 69  67 25 3b 33 32 3e 3e 79  |,16>>xeig%;32>>y|
00003660  65 69 67 25 7c 3a e6 20  34 3a ec 20 30 2c 30 3a  |eig%|:. 4:. 0,0:|
00003670  f0 20 31 30 31 2c 31 32  37 39 2c 31 30 32 33 3a  |. 101,1279,1023:|
00003680  e6 20 31 0d 01 f5 1d e3  6e 25 3d 30 20 b8 20 6c  |. 1.....n%=0 . l|
00003690  65 74 73 25 28 63 75 72  70 61 67 65 25 29 2d 31  |ets%(curpage%)-1|
000036a0  0d 01 f6 3c ec 20 6c 78  25 28 6e 25 2c 63 75 72  |...<. lx%(n%,cur|
000036b0  70 61 67 65 25 29 2c 6c  79 25 28 6e 25 2c 63 75  |page%),ly%(n%,cu|
000036c0  72 70 61 67 65 25 29 2b  33 32 3a ef 20 6c 25 28  |rpage%)+32:. l%(|
000036d0  6e 25 2c 63 75 72 70 61  67 65 25 29 0d 01 f7 05  |n%,curpage%)....|
000036e0  ed 0d 01 f8 1c c8 99 20  26 32 45 2c 26 31 33 43  |....... &2E,&13C|
000036f0  2c 73 70 72 69 74 65 73  25 2c 30 2c 31 0d 01 f9  |,sprites%,0,1...|
00003700  18 21 72 64 62 25 3d 31  36 34 3a 72 64 62 25 21  |.!rdb%=164:rdb%!|
00003710  34 3d 31 36 35 0d 01 fa  28 c8 99 22 4f 53 5f 52  |4=165...(.."OS_R|
00003720  65 61 64 56 64 75 56 61  72 69 61 62 6c 65 73 22  |eadVduVariables"|
00003730  2c 72 64 62 25 2c 72 64  62 25 2b 31 32 0d 01 fb  |,rdb%,rdb%+12...|
00003740  20 ef 20 32 33 2c 31 37  2c 37 2c 32 2c 72 64 62  | . 23,17,7,2,rdb|
00003750  25 21 31 32 3b 72 64 62  25 21 31 36 7c 0d 01 fc  |%!12;rdb%!16|...|
00003760  14 21 72 64 62 25 3d 34  3a 72 64 62 25 21 34 3d  |.!rdb%=4:rdb%!4=|
00003770  35 0d 01 fd 3d 21 62 6c  6f 63 6b 25 3d 70 61 67  |5...=!block%=pag|
00003780  65 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |e%:.."Wimp_GetWi|
00003790  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |ndowState",,bloc|
000037a0  6b 25 3a f2 72 65 64 72  61 77 70 61 67 65 0d 01  |k%:.redrawpage..|
000037b0  fe 05 e1 0d 01 ff 05 3a  0d 02 00 0f dd f2 75 70  |.......:......up|
000037c0  64 61 74 65 6f 75 74 0d  02 01 22 c8 99 20 26 32  |dateout...".. &2|
000037d0  45 2c 26 31 33 43 2c 6f  75 74 73 70 72 25 2c 22  |E,&13C,outspr%,"|
000037e0  6f 75 74 70 75 74 22 2c  31 0d 02 02 1f e6 20 30  |output",1..... 0|
000037f0  3a ec 20 30 2c 30 3a f0  20 31 30 31 2c 31 32 38  |:. 0,0:. 101,128|
00003800  2c 31 32 38 3a e6 20 31  0d 02 03 18 e3 6e 25 3d  |,128:. 1.....n%=|
00003810  30 20 b8 20 37 3a e3 6e  32 25 3d 30 20 b8 20 37  |0 . 7:.n2%=0 . 7|
00003820  0d 02 04 2f e7 20 69 25  28 6e 25 2c 6e 32 25 29  |.../. i%(n%,n2%)|
00003830  20 8c 20 c8 93 20 c8 90  20 6e 25 2a 31 36 2c 31  | . .. .. n%*16,1|
00003840  31 32 2d 6e 32 25 2a 31  36 2c 31 35 2c 31 35 0d  |12-n2%*16,15,15.|
00003850  02 05 07 ed 3a ed 0d 02  06 1b c8 99 20 26 32 45  |....:....... &2E|
00003860  2c 26 31 33 43 2c 6f 75  74 73 70 72 25 2c 30 2c  |,&13C,outspr%,0,|
00003870  31 0d 02 07 05 e1 0d 02  08 05 3a 0d 02 09 0f dd  |1.........:.....|
00003880  f2 75 70 64 61 74 65 6c  65 61 0d 02 0a 22 c8 99  |.updatelea..."..|
00003890  20 26 32 45 2c 26 31 33  43 2c 6c 65 61 73 70 72  | &2E,&13C,leaspr|
000038a0  25 2c 22 6c 65 74 74 65  72 22 2c 31 0d 02 0b 1f  |%,"letter",1....|
000038b0  e6 20 30 3a ec 20 30 2c  30 3a f0 20 31 30 31 2c  |. 0:. 0,0:. 101,|
000038c0  31 32 38 2c 31 32 38 3a  e6 20 31 0d 02 0c 18 c8  |128,128:. 1.....|
000038d0  99 22 57 69 6d 70 5f 53  65 74 43 6f 6c 6f 75 72  |."Wimp_SetColour|
000038e0  22 2c 37 0d 02 0d 18 e3  6e 25 3d 30 20 b8 20 37  |",7.....n%=0 . 7|
000038f0  3a e3 6e 32 25 3d 30 20  b8 20 37 0d 02 0e 11 e6  |:.n2%=0 . 7.....|
00003900  20 69 32 25 28 6e 25 2c  6e 32 25 29 0d 02 0f 20  | i2%(n%,n2%)... |
00003910  c8 93 20 c8 90 20 6e 25  2a 31 36 2c 31 31 32 2d  |.. .. n%*16,112-|
00003920  6e 32 25 2a 31 36 2c 31  35 2c 31 35 0d 02 10 07  |n2%*16,15,15....|
00003930  ed 3a ed 0d 02 11 1b c8  99 20 26 32 45 2c 26 31  |.:....... &2E,&1|
00003940  33 43 2c 6c 65 61 73 70  72 25 2c 30 2c 31 0d 02  |3C,leaspr%,0,1..|
00003950  12 05 e1 0d 02 13 05 3a  0d 02 14 2a dd f2 77 61  |.......:...*..wa|
00003960  72 6e 3a e7 20 62 6c 6f  63 6b 25 21 31 36 3c 32  |rn:. block%!16<2|
00003970  20 84 20 62 6c 6f 63 6b  25 21 31 36 3e 33 20 8c  | . block%!16>3 .|
00003980  20 e1 0d 02 15 5d e7 20  62 6c 6f 63 6b 25 21 31  | ....]. block%!1|
00003990  36 3d 33 20 8c 20 e3 6e  25 3d 69 6e 70 75 74 25  |6=3 . .n%=input%|
000039a0  20 b8 20 69 6e 70 75 74  25 2b 26 37 32 38 20 88  | . input%+&728 .|
000039b0  20 34 3a 21 6e 25 3d 30  3a ed 3a 61 6e 79 25 3d  | 4:!n%=0:.:any%=|
000039c0  30 3a 6d 6f 64 25 3d 31  3a f2 63 68 61 6e 67 65  |0:mod%=1:.change|
000039d0  6d 65 6e 75 3a f2 73 68  6f 77 6c 65 61 72 6e 0d  |menu:.showlearn.|
000039e0  02 16 4e 21 62 6c 6f 63  6b 25 3d 77 61 72 6e 25  |..N!block%=warn%|
000039f0  3a c8 99 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |:.."Wimp_GetWind|
00003a00  6f 77 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |owState",,block%|
00003a10  3a c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |:.."Wimp_CloseWi|
00003a20  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 0d 02 17  |ndow",,block%...|
00003a30  05 e1 0d 02 18 05 3a 0d  02 19 38 dd f2 73 68 6f  |......:...8..sho|
00003a40  77 6c 65 61 72 6e 3a f2  63 61 6c 63 6c 65 61 72  |wlearn:.calclear|
00003a50  6e 3a f2 75 70 64 61 74  65 6c 65 61 3a f2 73 68  |n:.updatelea:.sh|
00003a60  6f 77 77 69 6e 28 6c 65  61 72 6e 25 29 3a e1 0d  |owwin(learn%):..|
00003a70  02 1a 05 3a 0d 02 1b 4a  dd f2 73 68 6f 77 77 69  |...:...J..showwi|
00003a80  6e 28 77 69 6e 25 29 3a  21 62 6c 6f 63 6b 25 3d  |n(win%):!block%=|
00003a90  77 69 6e 25 3a c8 99 22  57 69 6d 70 5f 47 65 74  |win%:.."Wimp_Get|
00003aa0  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 62 6c  |WindowState",,bl|
00003ab0  6f 63 6b 25 3a f2 72 65  64 72 61 77 3a e1 0d 02  |ock%:.redraw:...|
00003ac0  1c 05 3a 0d 02 1d 2b dd  f2 61 6d 6d 65 6e 64 3a  |..:...+..ammend:|
00003ad0  e7 20 61 6e 79 25 3d 30  20 8c 20 f2 72 63 68 61  |. any%=0 . .rcha|
00003ae0  6e 67 65 6d 65 6e 75 3a  61 6e 79 25 3d 31 0d 02  |ngemenu:any%=1..|
00003af0  1e 2d f2 75 67 72 65 79  28 6c 65 61 72 6e 6d 65  |.-.ugrey(learnme|
00003b00  6e 75 25 2c 30 29 3a f2  75 67 72 65 79 28 6c 65  |nu%,0):.ugrey(le|
00003b10  61 72 6e 6d 65 6e 75 25  2c 31 29 0d 02 1f 52 61  |arnmenu%,1)...Ra|
00003b20  64 64 72 25 3d 69 6e 70  75 74 25 2b 28 63 75 72  |ddr%=input%+(cur|
00003b30  6c 25 2a 36 34 29 3a 6e  75 6d 69 6e 70 25 3d 21  |l%*64):numinp%=!|
00003b40  28 69 6e 70 75 74 25 2b  26 36 43 30 2b 28 63 75  |(input%+&6C0+(cu|
00003b50  72 6c 25 2a 34 29 29 3a  6e 65 77 25 3d 6e 75 6d  |rl%*4)):new%=num|
00003b60  69 6e 70 25 2b 31 3a 6d  6f 64 25 3d 31 0d 02 20  |inp%+1:mod%=1.. |
00003b70  63 e3 79 25 3d 30 20 b8  20 37 3a e3 78 25 3d 30  |c.y%=0 . 7:.x%=0|
00003b80  20 b8 20 37 3a 72 65 61  6c 28 78 25 2c 79 25 2c  | . 7:real(x%,y%,|
00003b90  63 75 72 6c 25 29 3d 28  72 65 61 6c 28 78 25 2c  |curl%)=(real(x%,|
00003ba0  79 25 2c 63 75 72 6c 25  29 2a 28 6e 75 6d 69 6e  |y%,curl%)*(numin|
00003bb0  70 25 2f 6e 65 77 25 29  29 2b 28 28 69 25 28 78  |p%/new%))+((i%(x|
00003bc0  25 2c 79 25 29 2a 32 35  35 29 2f 6e 65 77 25 29  |%,y%)*255)/new%)|
00003bd0  0d 02 21 29 3f 61 64 64  72 25 3d 72 65 61 6c 28  |..!)?addr%=real(|
00003be0  78 25 2c 79 25 2c 63 75  72 6c 25 29 3a 61 64 64  |x%,y%,curl%):add|
00003bf0  72 25 2b 3d 31 3a ed 3a  ed 0d 02 22 2c 21 28 69  |r%+=1:.:...",!(i|
00003c00  6e 70 75 74 25 2b 26 36  43 30 2b 28 63 75 72 6c  |nput%+&6C0+(curl|
00003c10  25 2a 34 29 29 3d 6e 65  77 25 3a f2 73 68 6f 77  |%*4))=new%:.show|
00003c20  6c 65 61 72 6e 0d 02 23  05 e1 0d 02 24 05 3a 0d  |learn..#....$.:.|
00003c30  02 25 20 dd f2 63 6c 69  63 6b 73 61 76 65 3a e7  |.% ..clicksave:.|
00003c40  20 62 6c 6f 63 6b 25 21  31 36 3c 3e 34 20 e1 0d  | block%!16<>4 ..|
00003c50  02 26 1d 6e 61 6d 65 24  3d a4 67 65 74 73 74 61  |.&.name$=.getsta|
00003c60  74 65 28 73 61 76 65 74  25 2c 31 29 0d 02 27 15  |te(savet%,1)..'.|
00003c70  e7 20 a4 76 61 6c 69 64  28 6e 61 6d 65 24 29 20  |. .valid(name$) |
00003c80  8c 0d 02 28 2e e7 20 a4  73 61 76 65 66 69 6c 65  |...(.. .savefile|
00003c90  28 6e 61 6d 65 24 29 20  c8 99 22 57 69 6d 70 5f  |(name$) .."Wimp_|
00003ca0  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 2d 31 0d  |CreateMenu",,-1.|
00003cb0  02 29 05 e1 0d 02 2a 05  cd 0d 02 2b 3f f2 72 65  |.)....*....+?.re|
00003cc0  70 6f 72 74 28 2d 31 2c  22 54 6f 20 73 61 76 65  |port(-1,"To save|
00003cd0  2c 20 64 72 61 67 20 74  68 65 20 66 69 6c 65 20  |, drag the file |
00003ce0  74 6f 20 61 20 64 69 72  65 63 74 6f 72 79 20 64  |to a directory d|
00003cf0  69 73 70 6c 61 79 22 29  0d 02 2c 05 e1 0d 02 2d  |isplay")..,....-|
00003d00  05 3a 0d 02 2e 25 dd a4  76 61 6c 69 64 28 6e 24  |.:...%..valid(n$|
00003d10  29 3a 3d a7 6e 24 2c 22  3a 3a 22 29 20 80 20 a7  |):=.n$,"::") . .|
00003d20  6e 24 2c 22 2e 22 29 0d  02 2f 05 3a 0d 02 30 11  |n$,".")../.:..0.|
00003d30  dd f2 73 61 76 65 6c 65  74 74 65 72 73 0d 02 31  |..saveletters..1|
00003d40  33 ff 22 53 41 56 45 20  3c 41 64 61 6c 69 6e 65  |3."SAVE <Adaline|
00003d50  24 44 69 72 3e 2e 4c 65  74 74 65 72 73 20 22 2b  |$Dir>.Letters "+|
00003d60  c3 7e 69 6e 70 75 74 25  2b 22 20 2b 37 32 38 22  |.~input%+" +728"|
00003d70  0d 02 32 2b 2a 53 45 54  54 59 50 45 20 3c 41 64  |..2+*SETTYPE <Ad|
00003d80  61 6c 69 6e 65 24 44 69  72 3e 2e 4c 65 74 74 65  |aline$Dir>.Lette|
00003d90  72 73 20 41 64 4c 65 74  44 65 66 0d 02 33 17 6d  |rs AdLetDef..3.m|
00003da0  6f 64 25 3d 30 3a f2 72  63 68 61 6e 67 65 6d 65  |od%=0:.rchangeme|
00003db0  6e 75 0d 02 34 05 e1 0d  02 35 05 3a 0d 02 36 11  |nu..4....5.:..6.|
00003dc0  dd f2 6c 6f 61 64 6c 65  74 74 65 72 73 0d 02 37  |..loadletters..7|
00003dd0  2b ff 22 4c 4f 41 44 20  3c 41 64 61 6c 69 6e 65  |+."LOAD <Adaline|
00003de0  24 44 69 72 3e 2e 4c 65  74 74 65 72 73 20 22 2b  |$Dir>.Letters "+|
00003df0  c3 7e 69 6e 70 75 74 25  0d 02 38 15 f2 73 68 6f  |.~input%..8..sho|
00003e00  77 6c 65 61 72 6e 3a 6d  6f 64 25 3d 30 0d 02 39  |wlearn:mod%=0..9|
00003e10  05 e1 0d 02 3a 05 3a 0d  02 3b 17 dd f2 67 72 65  |....:.:..;...gre|
00003e20  79 28 6d 65 6e 75 25 2c  69 74 65 6d 25 29 0d 02  |y(menu%,item%)..|
00003e30  3c 35 6d 65 6e 75 25 21  28 33 36 2b 69 74 65 6d  |<5menu%!(36+item|
00003e40  25 2a 32 34 29 3d 28 6d  65 6e 75 25 21 28 33 36  |%*24)=(menu%!(36|
00003e50  2b 69 74 65 6d 25 2a 32  34 29 20 84 20 31 3c 3c  |+item%*24) . 1<<|
00003e60  32 32 29 0d 02 3d 05 e1  0d 02 3e 05 3a 0d 02 3f  |22)..=....>.:..?|
00003e70  18 dd f2 75 67 72 65 79  28 6d 65 6e 75 25 2c 69  |...ugrey(menu%,i|
00003e80  74 65 6d 25 29 0d 02 40  39 6d 65 6e 75 25 21 28  |tem%)..@9menu%!(|
00003e90  33 36 2b 69 74 65 6d 25  2a 32 34 29 3d 28 6d 65  |36+item%*24)=(me|
00003ea0  6e 75 25 21 28 33 36 2b  69 74 65 6d 25 2a 32 34  |nu%!(36+item%*24|
00003eb0  29 20 80 20 ac 20 28 31  3c 3c 32 32 29 29 0d 02  |) . . (1<<22))..|
00003ec0  41 05 e1 0d 02 42 05 3a  0d 02 43 58 dd f2 75 6e  |A....B.:..CX..un|
00003ed0  64 6f 63 68 61 6e 67 65  3a 61 64 64 72 25 3d 69  |dochange:addr%=i|
00003ee0  6e 70 75 74 25 2b 28 63  75 72 6c 25 2a 36 34 29  |nput%+(curl%*64)|
00003ef0  3a 6e 75 6d 69 6e 70 25  3d 21 28 69 6e 70 75 74  |:numinp%=!(input|
00003f00  25 2b 26 36 43 30 2b 28  63 75 72 6c 25 2a 34 29  |%+&6C0+(curl%*4)|
00003f10  29 3a 6e 65 77 25 3d 6e  75 6d 69 6e 70 25 2d 31  |):new%=numinp%-1|
00003f20  0d 02 44 0e e7 20 6e 65  77 25 3e 30 20 8c 0d 02  |..D.. new%>0 ...|
00003f30  45 66 e3 79 25 3d 30 20  b8 20 37 3a e3 78 25 3d  |Ef.y%=0 . 7:.x%=|
00003f40  30 20 b8 20 37 3a 72 65  61 6c 28 78 25 2c 79 25  |0 . 7:real(x%,y%|
00003f50  2c 63 75 72 6c 25 29 3d  28 72 65 61 6c 28 78 25  |,curl%)=(real(x%|
00003f60  2c 79 25 2c 63 75 72 6c  25 29 2d 28 28 69 25 28  |,y%,curl%)-((i%(|
00003f70  78 25 2c 79 25 29 2a 32  35 35 29 2f 6e 75 6d 69  |x%,y%)*255)/numi|
00003f80  6e 70 25 29 29 2a 28 6e  75 6d 69 6e 70 25 2f 6e  |np%))*(numinp%/n|
00003f90  65 77 25 29 0d 02 46 29  3f 61 64 64 72 25 3d 72  |ew%)..F)?addr%=r|
00003fa0  65 61 6c 28 78 25 2c 79  25 2c 63 75 72 6c 25 29  |eal(x%,y%,curl%)|
00003fb0  3a 61 64 64 72 25 2b 3d  31 3a ed 3a ed 0d 02 47  |:addr%+=1:.:...G|
00003fc0  05 cc 0d 02 48 51 e3 79  25 3d 30 20 b8 20 37 3a  |....HQ.y%=0 . 7:|
00003fd0  e3 78 25 3d 30 20 b8 20  37 3a 72 65 61 6c 28 78  |.x%=0 . 7:real(x|
00003fe0  25 2c 79 25 2c 63 75 72  6c 25 29 3d 30 3a 3f 61  |%,y%,curl%)=0:?a|
00003ff0  64 64 72 25 3d 72 65 61  6c 28 78 25 2c 79 25 2c  |ddr%=real(x%,y%,|
00004000  63 75 72 6c 25 29 3a 61  64 64 72 25 2b 3d 31 3a  |curl%):addr%+=1:|
00004010  ed 3a ed 0d 02 49 16 61  6e 79 25 3d 30 3a f2 63  |.:...I.any%=0:.c|
00004020  68 61 6e 67 65 6d 65 6e  75 0d 02 4a 05 cd 0d 02  |hangemenu..J....|
00004030  4b 2c 21 28 69 6e 70 75  74 25 2b 26 36 43 30 2b  |K,!(input%+&6C0+|
00004040  28 63 75 72 6c 25 2a 34  29 29 3d 6e 65 77 25 3a  |(curl%*4))=new%:|
00004050  f2 73 68 6f 77 6c 65 61  72 6e 0d 02 4c 17 f2 67  |.showlearn..L..g|
00004060  72 65 79 28 6c 65 61 72  6e 6d 65 6e 75 25 2c 30  |rey(learnmenu%,0|
00004070  29 0d 02 4d 05 e1 0d 02  4e 05 3a 0d 02 4f 13 dd  |)..M....N.:..O..|
00004080  f2 72 65 73 74 6f 72 65  6c 65 74 74 65 72 0d 02  |.restoreletter..|
00004090  50 9b 61 64 64 72 25 3d  69 6e 70 75 74 25 2b 28  |P.addr%=input%+(|
000040a0  63 75 72 6c 25 2a 36 34  29 3a 61 64 64 72 32 25  |curl%*64):addr2%|
000040b0  3d 63 6f 70 79 6c 65 74  73 25 2b 28 63 75 72 6c  |=copylets%+(curl|
000040c0  25 2a 36 34 29 3a e3 6e  25 3d 30 20 b8 20 36 33  |%*64):.n%=0 . 63|
000040d0  3a 61 64 64 72 25 3f 6e  25 3d 61 64 64 72 32 25  |:addr%?n%=addr2%|
000040e0  3f 6e 25 3a ed 3a 21 28  69 6e 70 75 74 25 2b 26  |?n%:.:!(input%+&|
000040f0  36 43 30 2b 28 63 75 72  6c 25 2a 34 29 29 3d 21  |6C0+(curl%*4))=!|
00004100  28 63 6f 70 79 6c 65 74  73 25 2b 26 36 43 30 2b  |(copylets%+&6C0+|
00004110  28 63 75 72 6c 25 2a 34  29 29 3a 21 62 6c 6f 63  |(curl%*4)):!bloc|
00004120  6b 25 3d 6c 65 61 72 6e  25 0d 02 51 70 e3 79 25  |k%=learn%..Qp.y%|
00004130  3d 30 20 b8 20 37 3a e3  78 25 3d 30 20 b8 20 37  |=0 . 7:.x%=0 . 7|
00004140  3a 72 65 61 6c 28 78 25  2c 79 25 2c 63 75 72 6c  |:real(x%,y%,curl|
00004150  25 29 3d 3f 61 64 64 72  25 3a 61 64 64 72 25 2b  |%)=?addr%:addr%+|
00004160  3d 31 3a ed 3a ed 3a 61  6e 79 25 3d 31 3a f2 72  |=1:.:.:any%=1:.r|
00004170  63 68 61 6e 67 65 6d 65  6e 75 3a f2 67 72 65 79  |changemenu:.grey|
00004180  28 6c 65 61 72 6e 6d 65  6e 75 25 2c 31 29 3a f2  |(learnmenu%,1):.|
00004190  73 68 6f 77 6c 65 61 72  6e 0d 02 52 05 e1 0d 02  |showlearn..R....|
000041a0  53 05 3a 0d 02 54 8a dd  f2 63 68 65 63 6b 63 68  |S.:..T...checkch|
000041b0  61 6e 67 65 3a f2 67 72  65 79 28 6c 65 61 72 6e  |ange:.grey(learn|
000041c0  6d 65 6e 75 25 2c 30 29  3a e7 20 21 28 69 6e 70  |menu%,0):. !(inp|
000041d0  75 74 25 2b 26 36 43 30  2b 28 63 75 72 6c 25 2a  |ut%+&6C0+(curl%*|
000041e0  34 29 29 3c 3e 21 28 63  6f 70 79 6c 65 74 73 25  |4))<>!(copylets%|
000041f0  2b 26 36 43 30 2b 28 63  75 72 6c 25 2a 34 29 29  |+&6C0+(curl%*4))|
00004200  20 8c 20 f2 75 67 72 65  79 28 6c 65 61 72 6e 6d  | . .ugrey(learnm|
00004210  65 6e 75 25 2c 31 29 20  8b 20 f2 67 72 65 79 28  |enu%,1) . .grey(|
00004220  6c 65 61 72 6e 6d 65 6e  75 25 2c 31 29 0d 02 55  |learnmenu%,1)..U|
00004230  05 e1 0d 02 56 05 3a 0d  02 57 25 dd f2 74 72 79  |....V.:..W%..try|
00004240  64 65 6c 65 74 65 3a e7  20 6c 65 74 73 25 28 63  |delete:. lets%(c|
00004250  75 72 70 61 67 65 25 29  3d 30 20 e1 0d 02 58 11  |urpage%)=0 ...X.|
00004260  e3 6d 25 3d 30 20 b8 20  6d 25 28 30 29 0d 02 59  |.m%=0 . m%(0)..Y|
00004270  1f 6d 78 25 3d 6d 78 25  28 6d 25 2c 30 29 3a 6d  |.mx%=mx%(m%,0):m|
00004280  79 25 3d 6d 79 25 28 6d  25 2c 30 29 0d 02 5a 1e  |y%=my%(m%,0)..Z.|
00004290  e3 6d 32 25 3d 30 20 b8  20 6c 65 74 73 25 28 63  |.m2%=0 . lets%(c|
000042a0  75 72 70 61 67 65 25 29  2d 31 0d 02 5b 73 e7 20  |urpage%)-1..[s. |
000042b0  28 6d 78 25 3e 6c 78 25  28 6d 32 25 2c 63 75 72  |(mx%>lx%(m2%,cur|
000042c0  70 61 67 65 25 29 29 20  80 20 28 6d 78 25 3c 6c  |page%)) . (mx%<l|
000042d0  78 25 28 6d 32 25 2c 63  75 72 70 61 67 65 25 29  |x%(m2%,curpage%)|
000042e0  2b 31 36 29 20 80 20 28  6d 79 25 3e 6c 79 25 28  |+16) . (my%>ly%(|
000042f0  6d 32 25 2c 63 75 72 70  61 67 65 25 29 29 20 80  |m2%,curpage%)) .|
00004300  20 28 6d 79 25 3c 6c 79  25 28 6d 32 25 2c 63 75  | (my%<ly%(m2%,cu|
00004310  72 70 61 67 65 25 29 2b  33 32 29 20 8c 0d 02 5c  |rpage%)+32) ...\|
00004320  38 e7 20 6d 32 25 3d 6c  65 74 73 25 28 63 75 72  |8. m2%=lets%(cur|
00004330  70 61 67 65 25 29 2d 31  20 8c 20 6f 6c 62 78 25  |page%)-1 . olbx%|
00004340  3d 6c 78 25 28 6d 32 25  2c 63 75 72 70 61 67 65  |=lx%(m2%,curpage|
00004350  25 29 2d 31 36 0d 02 5d  20 e3 6d 33 25 3d 6d 32  |%)-16..] .m3%=m2|
00004360  25 2b 31 20 b8 20 6c 65  74 73 25 28 63 75 72 70  |%+1 . lets%(curp|
00004370  61 67 65 25 29 0d 02 5e  73 6c 25 28 6d 33 25 2d  |age%)..^sl%(m3%-|
00004380  31 2c 63 75 72 70 61 67  65 25 29 3d 6c 25 28 6d  |1,curpage%)=l%(m|
00004390  33 25 2c 63 75 72 70 61  67 65 25 29 3a 6c 78 25  |3%,curpage%):lx%|
000043a0  28 6d 33 25 2d 31 2c 63  75 72 70 61 67 65 25 29  |(m3%-1,curpage%)|
000043b0  3d 6c 78 25 28 6d 33 25  2c 63 75 72 70 61 67 65  |=lx%(m3%,curpage|
000043c0  25 29 3a 6c 79 25 28 6d  33 25 2d 31 2c 63 75 72  |%):ly%(m3%-1,cur|
000043d0  70 61 67 65 25 29 3d 6c  79 25 28 6d 33 25 2c 63  |page%)=ly%(m3%,c|
000043e0  75 72 70 61 67 65 25 29  0d 02 5f 1f ed 3a 6c 65  |urpage%).._..:le|
000043f0  74 73 25 28 63 75 72 70  61 67 65 25 29 2d 3d 31  |ts%(curpage%)-=1|
00004400  3a 6d 32 25 2d 3d 31 0d  02 60 05 cd 0d 02 61 11  |:m2%-=1..`....a.|
00004410  ed 3a ed 3a f2 73 68 6f  77 70 61 67 65 0d 02 62  |.:.:.showpage..b|
00004420  05 e1 0d 02 63 05 3a 0d  02 64 0e dd f2 61 73 73  |....c.:..d...ass|
00004430  65 6d 62 6c 65 0d 02 65  38 de 20 6e 65 74 25 20  |emble..e8. net% |
00004440  26 32 30 30 30 2c 69 6e  70 75 74 25 20 26 37 32  |&2000,input% &72|
00004450  38 2c 77 65 69 67 68 74  25 20 26 32 38 41 30 30  |8,weight% &28A00|
00004460  2c 6f 75 74 70 75 74 73  25 20 26 36 38 0d 02 66  |,outputs% &68..f|
00004470  28 ff 22 4c 4f 41 44 20  3c 41 64 61 6c 69 6e 65  |(."LOAD <Adaline|
00004480  24 44 69 72 3e 2e 41 52  4d 4e 65 74 20 22 2b c3  |$Dir>.ARMNet "+.|
00004490  7e 6e 65 74 25 0d 02 67  1c 77 69 70 65 77 65 69  |~net%..g.wipewei|
000044a0  67 68 74 73 3d 28 21 6e  65 74 25 29 2b 6e 65 74  |ghts=(!net%)+net|
000044b0  25 0d 02 68 19 66 6f 72  77 61 72 64 3d 28 6e 65  |%..h.forward=(ne|
000044c0  74 25 21 34 29 2b 6e 65  74 25 0d 02 69 17 6c 65  |t%!4)+net%..i.le|
000044d0  61 72 6e 3d 28 6e 65 74  25 21 38 29 2b 6e 65 74  |arn=(net%!8)+net|
000044e0  25 0d 02 6a 22 77 65 69  67 68 74 74 61 62 6c 65  |%..j"weighttable|
000044f0  62 61 73 65 3d 28 6e 65  74 25 21 31 32 29 2b 6e  |base=(net%!12)+n|
00004500  65 74 25 0d 02 6b 20 69  6e 70 75 74 74 61 62 6c  |et%..k inputtabl|
00004510  65 70 74 72 3d 28 6e 65  74 25 21 31 36 29 2b 6e  |eptr=(net%!16)+n|
00004520  65 74 25 0d 02 6c 21 6f  75 74 70 75 74 74 61 62  |et%..l!outputtab|
00004530  6c 65 70 74 72 3d 28 6e  65 74 25 21 32 30 29 2b  |leptr=(net%!20)+|
00004540  6e 65 74 25 0d 02 6d 1b  6c 65 61 72 6e 61 6c 6c  |net%..m.learnall|
00004550  3d 28 6e 65 74 25 21 32  34 29 2b 6e 65 74 25 0d  |=(net%!24)+net%.|
00004560  02 6e 1b 6c 65 61 72 6e  6f 6e 65 3d 28 6e 65 74  |.n.learnone=(net|
00004570  25 21 32 38 29 2b 6e 65  74 25 0d 02 6f 1c 21 77  |%!28)+net%..o.!w|
00004580  65 69 67 68 74 74 61 62  6c 65 62 61 73 65 3d 77  |eighttablebase=w|
00004590  65 69 67 68 74 25 0d 02  70 19 21 69 6e 70 75 74  |eight%..p.!input|
000045a0  74 61 62 6c 65 70 74 72  3d 69 6e 70 75 74 25 0d  |tableptr=input%.|
000045b0  02 71 1c 21 6f 75 74 70  75 74 74 61 62 6c 65 70  |.q.!outputtablep|
000045c0  74 72 3d 6f 75 74 70 75  74 73 25 0d 02 72 1a 6f  |tr=outputs%..r.o|
000045d0  75 74 70 75 74 74 61 62  6c 65 70 74 72 21 34 3d  |utputtableptr!4=|
000045e0  6d 65 73 73 25 0d 02 73  05 e1 0d 02 74 05 3a 0d  |mess%..s....t.:.|
000045f0  02 75 0b dd f2 6c 65 61  72 6e 0d 02 76 1c f2 6f  |.u...learn..v..o|
00004600  70 65 6e 77 69 6e 28 73  74 61 72 74 75 70 25 29  |penwin(startup%)|
00004610  3a f2 6f 70 65 6e 0d 02  77 05 f5 0d 02 78 24 c8  |:.open..w....x$.|
00004620  99 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 30 2c 62  |."Wimp_Poll",0,b|
00004630  6c 6f 63 6b 25 20 b8 20  72 65 61 73 6f 6e 25 0d  |lock% . reason%.|
00004640  02 79 0f fd 20 72 65 61  73 6f 6e 25 3d 30 0d 02  |.y.. reason%=0..|
00004650  7a 07 f2 64 6f 0d 02 7b  0e d6 20 6c 65 61 72 6e  |z..do..{.. learn|
00004660  61 6c 6c 0d 02 7c 4b 70  25 3d 69 6e 70 75 74 25  |all..|Kp%=input%|
00004670  3a e3 6e 25 3d 30 20 b8  20 32 35 3a e3 79 25 3d  |:.n%=0 . 25:.y%=|
00004680  30 20 b8 20 37 3a e3 78  25 3d 30 20 b8 20 37 3a  |0 . 7:.x%=0 . 7:|
00004690  72 65 61 6c 28 78 25 2c  79 25 2c 6e 25 29 3d 3f  |real(x%,y%,n%)=?|
000046a0  70 25 3a 70 25 2b 3d 31  3a ed 3a ed 3a ed 0d 02  |p%:p%+=1:.:.:...|
000046b0  7d 17 f2 63 6c 6f 73 65  77 69 6e 28 73 74 61 72  |}..closewin(star|
000046c0  74 75 70 25 29 0d 02 7e  1e c8 99 22 46 6f 6e 74  |tup%)..~..."Font|
000046d0  5f 4c 6f 73 65 46 6f 6e  74 22 2c 66 68 61 6e 64  |_LoseFont",fhand|
000046e0  6c 65 25 0d 02 7f 05 e1  0d 02 80 05 3a 0d 02 81  |le%.........:...|
000046f0  15 dd f2 67 65 74 28 6c  65 74 25 29 3a 6f 6e 25  |...get(let%):on%|
00004700  3d 31 0d 02 82 6e f2 67  65 74 63 6f 6f 72 64 73  |=1...n.getcoords|
00004710  3a 77 6f 72 6b 79 25 2d  3d 31 30 32 34 3a c8 99  |:worky%-=1024:..|
00004720  22 57 69 6d 70 5f 53 65  74 43 6f 6c 6f 75 72 22  |"Wimp_SetColour"|
00004730  2c 31 35 3a 6f 78 25 3d  2d 31 3a 6f 79 25 3d 2d  |,15:ox%=-1:oy%=-|
00004740  31 3a 6f 6e 25 3d 31 3a  6d 25 28 6c 65 74 25 29  |1:on%=1:m%(let%)|
00004750  3d 30 3a 62 78 25 3d 33  30 30 30 3a 62 79 25 3d  |=0:bx%=3000:by%=|
00004760  33 30 30 30 3a 74 78 25  3d 30 3a 74 79 25 3d 30  |3000:tx%=0:ty%=0|
00004770  0d 02 83 05 f5 0d 02 84  1e e7 20 6d 25 28 6c 65  |.......... m%(le|
00004780  74 25 29 3d 31 30 30 30  20 8c 20 ef 37 3a 6f 6e  |t%)=1000 . .7:on|
00004790  25 3d 30 0d 02 85 0b e7  20 6f 6e 25 20 8c 0d 02  |%=0..... on% ...|
000047a0  86 30 c8 97 20 78 25 2c  79 25 2c 62 75 74 25 3a  |.0.. x%,y%,but%:|
000047b0  f4 20 53 59 53 22 57 69  6d 70 5f 47 65 74 50 6f  |. SYS"Wimp_GetPo|
000047c0  69 6e 74 65 72 49 6e 66  6f 22 2c 2c 71 25 0d 02  |interInfo",,q%..|
000047d0  87 3c e7 20 6d 25 28 6c  65 74 25 29 3e 30 20 ef  |.<. m%(let%)>0 .|
000047e0  32 36 3a ec 20 6f 78 25  2c 6f 79 25 3a c8 99 22  |26:. ox%,oy%:.."|
000047f0  57 69 6d 70 5f 53 65 74  43 6f 6c 6f 75 72 22 2c  |Wimp_SetColour",|
00004800  31 35 3a df 20 78 25 2c  79 25 0d 02 88 23 c8 99  |15:. x%,y%...#..|
00004810  20 26 32 45 2c 26 31 33  43 2c 73 70 72 69 74 65  | &2E,&13C,sprite|
00004820  73 25 2c 22 73 63 72 65  65 6e 22 2c 31 0d 02 89  |s%,"screen",1...|
00004830  19 e7 20 78 25 3c 3e 6f  78 25 20 84 20 79 25 3c  |.. x%<>ox% . y%<|
00004840  3e 6f 79 25 20 8c 0d 02  8a 1f 78 32 25 3d 78 25  |>oy% .....x2%=x%|
00004850  2d 78 6f 72 69 67 25 3a  79 32 25 3d 79 25 2d 77  |-xorig%:y2%=y%-w|
00004860  6f 72 6b 79 25 0d 02 8b  17 e7 20 78 32 25 3c 62  |orky%..... x2%<b|
00004870  78 25 20 8c 20 62 78 25  3d 78 32 25 0d 02 8c 17  |x% . bx%=x2%....|
00004880  e7 20 78 32 25 3e 74 78  25 20 8c 20 74 78 25 3d  |. x2%>tx% . tx%=|
00004890  78 32 25 0d 02 8d 17 e7  20 79 32 25 3c 62 79 25  |x2%..... y2%<by%|
000048a0  20 8c 20 62 79 25 3d 79  32 25 0d 02 8e 17 e7 20  | . by%=y2%..... |
000048b0  79 32 25 3e 74 79 25 20  8c 20 74 79 25 3d 79 32  |y2%>ty% . ty%=y2|
000048c0  25 0d 02 8f 3a e7 20 6d  25 28 6c 65 74 25 29 3e  |%...:. m%(let%)>|
000048d0  30 20 8c 20 ec 20 6f 78  25 2d 78 6f 72 69 67 25  |0 . . ox%-xorig%|
000048e0  2c 6f 79 25 2d 77 6f 72  6b 79 25 3a e6 20 34 2c  |,oy%-worky%:. 4,|
000048f0  30 3a df 20 78 32 25 2c  79 32 25 0d 02 90 3d 6d  |0:. x2%,y2%...=m|
00004900  78 25 28 6d 25 28 6c 65  74 25 29 2c 6c 65 74 25  |x%(m%(let%),let%|
00004910  29 3d 78 32 25 3a 6d 79  25 28 6d 25 28 6c 65 74  |)=x2%:my%(m%(let|
00004920  25 29 2c 6c 65 74 25 29  3d 79 32 25 3a 6d 25 28  |%),let%)=y2%:m%(|
00004930  6c 65 74 25 29 2b 3d 31  0d 02 91 11 6f 78 25 3d  |let%)+=1....ox%=|
00004940  78 25 3a 6f 79 25 3d 79  25 0d 02 92 05 cd 0d 02  |x%:oy%=y%.......|
00004950  93 1c c8 99 20 26 32 45  2c 26 31 33 43 2c 73 70  |.... &2E,&13C,sp|
00004960  72 69 74 65 73 25 2c 30  2c 31 0d 02 94 23 c8 99  |rites%,0,1...#..|
00004970  22 57 69 6d 70 5f 50 6f  6c 6c 22 2c 2c 62 6c 6f  |"Wimp_Poll",,blo|
00004980  63 6b 25 20 b8 20 72 65  61 73 6f 6e 25 0d 02 95  |ck% . reason%...|
00004990  05 cd 0d 02 96 2f fd 20  28 72 65 61 73 6f 6e 25  |...../. (reason%|
000049a0  3c 3e 36 20 80 20 72 65  61 73 6f 6e 25 3e 30 29  |<>6 . reason%>0)|
000049b0  20 84 20 6f 6e 25 3d 30  20 84 20 62 75 74 25 3d  | . on%=0 . but%=|
000049c0  30 0d 02 97 3b 62 78 25  28 6c 65 74 25 29 3d 62  |0...;bx%(let%)=b|
000049d0  78 25 3a 62 79 25 28 6c  65 74 25 29 3d 62 79 25  |x%:by%(let%)=by%|
000049e0  3a 74 78 25 28 6c 65 74  25 29 3d 74 78 25 3a 74  |:tx%(let%)=tx%:t|
000049f0  79 25 28 6c 65 74 25 29  3d 74 79 25 0d 02 98 05  |y%(let%)=ty%....|
00004a00  e1 0d 02 99 05 3a 0d 02  9a 0d dd f2 64 65 6c 28  |.....:......del(|
00004a10  6e 25 29 0d 02 9b 23 c8  99 20 26 32 45 2c 26 31  |n%)...#.. &2E,&1|
00004a20  33 43 2c 73 70 72 69 74  65 73 25 2c 22 73 63 72  |3C,sprites%,"scr|
00004a30  65 65 6e 22 2c 31 0d 02  9c 09 e6 20 34 2c 30 0d  |een",1..... 4,0.|
00004a40  02 9d 19 ec 20 6d 78 25  28 30 2c 6e 25 29 2c 6d  |.... mx%(0,n%),m|
00004a50  79 25 28 30 2c 6e 25 29  0d 02 9e 13 e3 6e 32 25  |y%(0,n%).....n2%|
00004a60  3d 31 20 b8 20 6d 25 28  6e 25 29 0d 02 9f 3b e7  |=1 . m%(n%)...;.|
00004a70  20 6d 78 25 28 6e 32 25  2c 6e 25 29 3d 2d 31 20  | mx%(n2%,n%)=-1 |
00004a80  8c 20 ec 20 6d 78 25 28  6e 32 25 2b 31 2c 6e 25  |. . mx%(n2%+1,n%|
00004a90  29 2c 6d 79 25 28 6e 32  25 2b 31 2c 6e 25 29 3a  |),my%(n2%+1,n%):|
00004aa0  6e 32 25 2b 3d 32 0d 02  a0 1d df 20 6d 78 25 28  |n2%+=2..... mx%(|
00004ab0  6e 32 25 2c 6e 25 29 2c  6d 79 25 28 6e 32 25 2c  |n2%,n%),my%(n2%,|
00004ac0  6e 25 29 0d 02 a1 05 ed  0d 02 a2 1c c8 99 20 26  |n%)........... &|
00004ad0  32 45 2c 26 31 33 43 2c  73 70 72 69 74 65 73 25  |2E,&13C,sprites%|
00004ae0  2c 30 2c 31 0d 02 a3 39  21 62 6c 6f 63 6b 25 3d  |,0,1...9!block%=|
00004af0  70 61 67 65 25 3a c8 99  22 57 69 6d 70 5f 47 65  |page%:.."Wimp_Ge|
00004b00  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
00004b10  6c 6f 63 6b 25 3a f2 72  65 64 72 61 77 0d 02 a4  |lock%:.redraw...|
00004b20  05 e1 0d 02 a5 05 3a 0d  02 a6 1e dd f2 6d 61 6b  |......:......mak|
00004b30  65 6d 65 6e 75 28 61 64  64 72 25 2c f8 20 69 6e  |emenu(addr%,. in|
00004b40  64 77 73 25 29 0d 02 a7  83 69 24 3d 22 22 3a f3  |dws%)....i$="":.|
00004b50  20 74 69 74 6c 65 24 3a  24 28 61 64 64 72 25 29  | title$:$(addr%)|
00004b60  3d 74 69 74 6c 65 24 3a  77 69 64 74 68 25 3d a9  |=title$:width%=.|
00004b70  74 69 74 6c 65 24 3a 61  64 64 72 25 3f 31 32 3d  |title$:addr%?12=|
00004b80  37 3a 61 64 64 72 25 3f  31 33 3d 32 3a 61 64 64  |7:addr%?13=2:add|
00004b90  72 25 3f 31 34 3d 37 3a  61 64 64 72 25 3f 31 35  |r%?14=7:addr%?15|
00004ba0  3d 30 3a 61 64 64 72 25  21 32 30 3d 34 34 3a 61  |=0:addr%!20=44:a|
00004bb0  64 64 72 25 21 32 34 3d  30 3a 6d 65 6e 75 25 3d  |ddr%!24=0:menu%=|
00004bc0  61 64 64 72 25 2b 32 38  0d 02 a8 41 f5 3a f3 20  |addr%+28...A.:. |
00004bd0  69 74 65 6d 24 3a 61 25  3d a7 69 74 65 6d 24 2c  |item$:a%=.item$,|
00004be0  22 2f 22 29 3a 66 6c 61  67 73 25 3d 30 3a 69 6e  |"/"):flags%=0:in|
00004bf0  64 69 72 25 3d 30 3a 73  75 62 25 3d 30 3a 65 78  |dir%=0:sub%=0:ex|
00004c00  74 65 72 6e 61 6c 25 3d  30 0d 02 a9 0a e7 20 61  |ternal%=0..... a|
00004c10  25 20 8c 0d 02 aa 1d 69  24 3d c1 69 74 65 6d 24  |% .....i$=.item$|
00004c20  2c 61 25 2b 31 2c a9 69  74 65 6d 24 2d 61 25 29  |,a%+1,.item$-a%)|
00004c30  0d 02 ab 20 e7 20 a7 69  24 2c 22 44 22 29 20 66  |... . .i$,"D") f|
00004c40  6c 61 67 73 25 3d 66 6c  61 67 73 25 20 84 20 32  |lags%=flags% . 2|
00004c50  0d 02 ac 15 e7 20 a7 69  24 2c 22 53 22 29 20 73  |..... .i$,"S") s|
00004c60  75 62 25 3d 31 0d 02 ad  22 e7 20 a7 69 24 2c 22  |ub%=1...". .i$,"|
00004c70  2a 22 29 20 66 6c 61 67  73 25 3d 66 6c 61 67 73  |*") flags%=flags|
00004c80  25 20 84 20 31 32 38 0d  02 ae 20 69 74 65 6d 24  |% . 128... item$|
00004c90  3d c1 69 74 65 6d 24 2c  31 2c a9 69 74 65 6d 24  |=.item$,1,.item$|
00004ca0  2d a9 69 24 2d 31 29 0d  02 af 05 cd 0d 02 b0 18  |-.i$-1).........|
00004cb0  e7 20 a9 69 74 65 6d 24  3e 31 31 20 69 6e 64 69  |. .item$>11 indi|
00004cc0  72 25 3d 31 0d 02 b1 42  6d 65 6e 75 25 21 30 3d  |r%=1...Bmenu%!0=|
00004cd0  66 6c 61 67 73 25 3a e7  20 73 75 62 25 20 f3 20  |flags%:. sub% . |
00004ce0  73 75 62 6d 65 6e 75 25  3a 6d 65 6e 75 25 21 34  |submenu%:menu%!4|
00004cf0  3d 73 75 62 6d 65 6e 75  25 20 8b 20 6d 65 6e 75  |=submenu% . menu|
00004d00  25 21 34 3d 2d 31 0d 02  b2 05 cd 0d 02 b3 21 e7  |%!4=-1........!.|
00004d10  20 a9 69 74 65 6d 24 3e  77 69 64 74 68 25 20 77  | .item$>width% w|
00004d20  69 64 74 68 25 3d a9 69  74 65 6d 24 0d 02 b4 33  |idth%=.item$...3|
00004d30  e7 20 a9 69 74 65 6d 24  3c 31 32 20 24 28 6d 65  |. .item$<12 $(me|
00004d40  6e 75 25 2b 31 32 29 3d  69 74 65 6d 24 3a 6d 65  |nu%+12)=item$:me|
00004d50  6e 75 25 21 38 3d 26 30  37 30 30 30 30 32 31 0d  |nu%!8=&07000021.|
00004d60  02 b5 6e e7 20 28 28 66  6c 61 67 73 25 20 80 20  |..n. ((flags% . |
00004d70  34 29 3d 34 29 20 f3 20  62 75 66 25 2c 62 75 66  |4)=4) . buf%,buf|
00004d80  6c 65 6e 25 3a 6d 65 6e  75 25 21 31 32 3d 62 75  |len%:menu%!12=bu|
00004d90  66 25 3a 6d 65 6e 75 25  21 31 36 3d 2d 31 3a 6d  |f%:menu%!16=-1:m|
00004da0  65 6e 75 25 21 32 30 3d  62 75 66 6c 65 6e 25 3a  |enu%!20=buflen%:|
00004db0  24 62 75 66 25 3d 69 74  65 6d 24 3a 6d 65 6e 75  |$buf%=item$:menu|
00004dc0  25 21 38 3d 26 30 37 30  30 46 31 32 31 0d 02 b6  |%!8=&0700F121...|
00004dd0  21 e7 20 69 6e 64 69 72  25 20 80 20 28 28 66 6c  |!. indir% . ((fl|
00004de0  61 67 73 25 20 80 20 34  29 3d 30 29 20 8c 0d 02  |ags% . 4)=0) ...|
00004df0  b7 62 6d 65 6e 75 25 21  31 32 3d 69 6e 64 77 73  |.bmenu%!12=indws|
00004e00  25 3a 6d 65 6e 75 25 21  31 36 3d 2d 31 3a 6d 65  |%:menu%!16=-1:me|
00004e10  6e 75 25 21 32 30 3d a9  69 74 65 6d 24 2b 31 3a  |nu%!20=.item$+1:|
00004e20  24 69 6e 64 77 73 25 3d  69 74 65 6d 24 3a 69 6e  |$indws%=item$:in|
00004e30  64 77 73 25 2b 3d a9 69  74 65 6d 24 2b 31 3a 6d  |dws%+=.item$+1:m|
00004e40  65 6e 75 25 21 38 3d 26  30 37 30 30 30 31 32 31  |enu%!8=&07000121|
00004e50  0d 02 b8 11 e7 20 65 78  74 65 72 6e 61 6c 25 20  |..... external% |
00004e60  8c 0d 02 b9 3d f3 20 62  75 66 25 2c 62 75 66 6c  |....=. buf%,bufl|
00004e70  65 6e 25 3a 6d 65 6e 75  25 21 31 32 3d 62 75 66  |en%:menu%!12=buf|
00004e80  25 3a 6d 65 6e 75 25 21  32 30 3d 62 75 66 6c 65  |%:menu%!20=bufle|
00004e90  6e 25 3a 24 62 75 66 25  3d 69 74 65 6d 24 0d 02  |n%:$buf%=item$..|
00004ea0  ba 05 cd 0d 02 bb 05 cd  0d 02 bc 0d 6d 65 6e 75  |............menu|
00004eb0  25 2b 3d 32 34 0d 02 bd  14 fd 20 28 66 6c 61 67  |%+=24..... (flag|
00004ec0  73 25 20 80 20 31 32 38  29 0d 02 be 1b 61 64 64  |s% . 128)....add|
00004ed0  72 25 21 31 36 3d 28 77  69 64 74 68 25 2a 31 36  |r%!16=(width%*16|
00004ee0  29 2b 33 32 0d 02 bf 05  e1 0d 02 c0 05 3a 0d 02  |)+32.........:..|
00004ef0  c1 0b dd f2 6d 65 6e 75  73 0d 02 c2 08 f7 20 2b  |....menus..... +|
00004f00  31 0d 02 c3 44 dc 20 22  41 64 61 6c 69 6e 65 22  |1...D. "Adaline"|
00004f10  2c 22 49 6e 66 6f 2f 53  22 2c 69 6e 66 6f 25 2c  |,"Info/S",info%,|
00004f20  22 4f 75 74 70 75 74 2e  2e 2e 22 2c 22 44 65 66  |"Output...","Def|
00004f30  69 6e 69 74 69 6f 6e 73  2e 2e 2e 22 2c 22 51 75  |initions...","Qu|
00004f40  69 74 2f 2a 22 0d 02 c4  22 f2 6d 61 6b 65 6d 65  |it/*"...".makeme|
00004f50  6e 75 28 69 63 6f 6e 62  61 72 6d 65 6e 75 25 2c  |nu(iconbarmenu%,|
00004f60  69 6e 64 77 73 25 29 0d  02 c5 08 f7 20 2b 31 0d  |indws%)..... +1.|
00004f70  02 c6 97 dc 20 22 41 64  61 6c 69 6e 65 22 2c 22  |.... "Adaline","|
00004f80  49 6e 66 6f 2f 53 44 22  2c 69 6e 66 6f 25 2c 22  |Info/SD",info%,"|
00004f90  53 61 76 65 20 64 65 66  69 6e 69 74 69 6f 6e 73  |Save definitions|
00004fa0  22 2c 22 52 65 73 74 6f  72 65 20 64 65 66 69 6e  |","Restore defin|
00004fb0  69 74 69 6f 6e 73 22 2c  22 44 65 6c 65 74 65 20  |itions","Delete |
00004fc0  64 65 66 69 6e 69 74 69  6f 6e 73 2f 44 22 2c 22  |definitions/D","|
00004fd0  53 61 76 65 20 74 65 78  74 2e 2e 2e 2f 53 44 22  |Save text.../SD"|
00004fe0  2c 73 61 76 65 74 25 2c  22 4f 75 74 70 75 74 2e  |,savet%,"Output.|
00004ff0  2e 2e 22 2c 22 44 65 66  69 6e 69 74 69 6f 6e 73  |..","Definitions|
00005000  2e 2e 2e 2f 2a 22 0d 02  c7 1f f2 6d 61 6b 65 6d  |.../*".....makem|
00005010  65 6e 75 28 70 61 67 65  6d 65 6e 75 25 2c 69 6e  |enu(pagemenu%,in|
00005020  64 77 73 25 29 0d 02 c8  39 dc 20 22 44 65 66 69  |dws%)...9. "Defi|
00005030  6e 69 74 69 6f 6e 73 22  2c 22 55 6e 64 6f 20 6c  |nitions","Undo l|
00005040  61 73 74 20 63 68 61 6e  67 65 22 2c 22 52 65 73  |ast change","Res|
00005050  74 6f 72 65 20 6c 65 74  74 65 72 2f 2a 22 0d 02  |tore letter/*"..|
00005060  c9 20 f2 6d 61 6b 65 6d  65 6e 75 28 6c 65 61 72  |. .makemenu(lear|
00005070  6e 6d 65 6e 75 25 2c 69  6e 64 77 73 25 29 0d 02  |nmenu%,indws%)..|
00005080  ca 2b f2 67 72 65 79 28  6c 65 61 72 6e 6d 65 6e  |.+.grey(learnmen|
00005090  75 25 2c 30 29 3a f2 67  72 65 79 28 6c 65 61 72  |u%,0):.grey(lear|
000050a0  6e 6d 65 6e 75 25 2c 31  29 0d 02 cb 05 e1 0d 02  |nmenu%,1).......|
000050b0  cc 05 3a 0d 02 cd 10 dd  f2 63 68 61 6e 67 65 6d  |..:......changem|
000050c0  65 6e 75 0d 02 ce 29 f2  67 72 65 79 28 70 61 67  |enu...).grey(pag|
000050d0  65 6d 65 6e 75 25 2c 31  29 3a f2 67 72 65 79 28  |emenu%,1):.grey(|
000050e0  70 61 67 65 6d 65 6e 75  25 2c 33 29 0d 02 cf 05  |pagemenu%,3)....|
000050f0  e1 0d 02 d0 05 3a 0d 02  d1 11 dd f2 72 63 68 61  |.....:......rcha|
00005100  6e 67 65 6d 65 6e 75 0d  02 d2 2b f2 75 67 72 65  |ngemenu...+.ugre|
00005110  79 28 70 61 67 65 6d 65  6e 75 25 2c 31 29 3a f2  |y(pagemenu%,1):.|
00005120  75 67 72 65 79 28 70 61  67 65 6d 65 6e 75 25 2c  |ugrey(pagemenu%,|
00005130  33 29 0d 02 d3 05 e1 0d  02 d4 05 3a 0d 02 d5 1b  |3).........:....|
00005140  dd f2 73 68 6f 77 6d 65  6e 75 28 6d 65 6e 75 25  |..showmenu(menu%|
00005150  2c 78 25 2c 79 25 29 0d  02 d6 24 74 6f 70 6d 65  |,x%,y%)...$topme|
00005160  6e 75 25 3d 6d 65 6e 75  25 3a 74 6f 70 78 25 3d  |nu%=menu%:topx%=|
00005170  78 25 3a 74 6f 70 79 25  3d 79 25 0d 02 d7 25 c8  |x%:topy%=y%...%.|
00005180  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00005190  6e 75 22 2c 2c 6d 65 6e  75 25 2c 78 25 2c 79 25  |nu",,menu%,x%,y%|
000051a0  0d 02 d8 05 e1 0d 02 d9  05 3a 0d 02 da 10 dd f2  |.........:......|
000051b0  64 65 63 6f 64 65 6d 65  6e 75 0d 02 db 20 c8 99  |decodemenu... ..|
000051c0  20 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  | "Wimp_GetPointe|
000051d0  72 49 6e 66 6f 22 2c 2c  71 25 0d 02 dc 16 61 64  |rInfo",,q%....ad|
000051e0  6a 75 73 74 25 3d 28 71  25 21 38 20 80 20 31 29  |just%=(q%!8 . 1)|
000051f0  0d 02 dd 2c c8 99 20 22  57 69 6d 70 5f 44 65 63  |...,.. "Wimp_Dec|
00005200  6f 64 65 4d 65 6e 75 22  2c 2c 74 6f 70 6d 65 6e  |odeMenu",,topmen|
00005210  75 25 2c 62 6c 6f 63 6b  25 2c 71 25 0d 02 de 0c  |u%,block%,q%....|
00005220  c8 8e 20 24 71 25 20 ca  0d 02 df 14 c9 20 22 51  |.. $q% ...... "Q|
00005230  75 69 74 22 3a 71 75 69  74 25 3d b9 0d 02 e0 23  |uit":quit%=....#|
00005240  c9 20 22 4f 75 74 70 75  74 2e 2e 2e 22 3a f2 6f  |. "Output...":.o|
00005250  70 65 6e 77 69 6e 28 6f  75 74 70 75 74 25 29 0d  |penwin(output%).|
00005260  02 e1 32 c9 20 22 44 65  66 69 6e 69 74 69 6f 6e  |..2. "Definition|
00005270  73 2e 2e 2e 22 3a f2 63  61 6c 63 6c 65 61 72 6e  |s...":.calclearn|
00005280  3a f2 6f 70 65 6e 77 69  6e 28 6c 65 61 72 6e 25  |:.openwin(learn%|
00005290  29 0d 02 e2 79 c9 20 22  44 65 6c 65 74 65 20 64  |)...y. "Delete d|
000052a0  65 66 69 6e 69 74 69 6f  6e 73 22 3a 21 62 6c 6f  |efinitions":!blo|
000052b0  63 6b 25 3d 77 61 72 6e  25 3a c8 99 22 57 69 6d  |ck%=warn%:.."Wim|
000052c0  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
000052d0  22 2c 2c 62 6c 6f 63 6b  25 3a c8 99 22 57 69 6d  |",,block%:.."Wim|
000052e0  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 62  |p_OpenWindow",,b|
000052f0  6c 6f 63 6b 25 3a f2 75  67 72 65 79 28 6c 65 61  |lock%:.ugrey(lea|
00005300  72 6e 6d 65 6e 75 25 2c  31 29 0d 02 e3 25 c9 20  |rnmenu%,1)...%. |
00005310  22 53 61 76 65 20 64 65  66 69 6e 69 74 69 6f 6e  |"Save definition|
00005320  73 22 3a f2 73 61 76 65  6c 65 74 74 65 72 73 0d  |s":.saveletters.|
00005330  02 e4 5b c9 20 22 52 65  73 74 6f 72 65 20 64 65  |..[. "Restore de|
00005340  66 69 6e 69 74 69 6f 6e  73 22 3a f2 6c 6f 61 64  |finitions":.load|
00005350  6c 65 74 74 65 72 73 3a  e7 20 61 6e 79 25 3d 30  |letters:. any%=0|
00005360  20 8c 20 f2 72 63 68 61  6e 67 65 6d 65 6e 75 3a  | . .rchangemenu:|
00005370  f2 67 72 65 79 28 6c 65  61 72 6e 6d 65 6e 75 25  |.grey(learnmenu%|
00005380  2c 31 29 3a 61 6e 79 25  3d 31 0d 02 e5 25 c9 20  |,1):any%=1...%. |
00005390  22 52 65 73 74 6f 72 65  20 6c 65 74 74 65 72 22  |"Restore letter"|
000053a0  3a f2 72 65 73 74 6f 72  65 6c 65 74 74 65 72 0d  |:.restoreletter.|
000053b0  02 e6 24 c9 20 22 55 6e  64 6f 20 6c 61 73 74 20  |..$. "Undo last |
000053c0  63 68 61 6e 67 65 22 3a  f2 75 6e 64 6f 63 68 61  |change":.undocha|
000053d0  6e 67 65 0d 02 e7 05 cb  0d 02 e8 2d e7 20 61 64  |nge........-. ad|
000053e0  6a 75 73 74 25 20 f2 73  68 6f 77 6d 65 6e 75 28  |just% .showmenu(|
000053f0  74 6f 70 6d 65 6e 75 25  2c 74 6f 70 78 25 2c 74  |topmenu%,topx%,t|
00005400  6f 70 79 25 29 0d 02 e9  05 e1 0d ff              |opy%).......|
0000540c