� > !RunImage
%� Multi-tasking version of Atoms3
� by Niall Douglas
(� 04-7-1991 Version 1.99
2�
<K� I think this program confirms with all the correct RISC-OS guidelines
FH� and as I'm very pro-RISCOS I hope I've done a good job on my first
PJ� desktop program! Unfortunetly I don't have any Programmers Referance
ZJ� Manuals so I don't know much about guidelines. Neither do I know how
dJ� to write directly to a sprite so the window updating is rather slow.
nH� Hopefully version 2.00 will sport these features. However, version
xH� 1.00 kept on redrawing the window every time a move was made. This
�L� version, 1.99 updates the window using SWI "Wimp_UpdateWindow" instead
�4� of redrawing it so gives much faster gameplay.
�:
�name$="Atoms"
�	�init
��initwindows
��initflags
��makemenus
�icon%=�iconbar
�
�initgame
��:�errorbox:ș CrMenu,,-1
��newgame
�H�=�+(8*1024):� Allocate space for the Basic stack to allow recursion

:

�

 ș "Wimp_Poll",0,q% � A%

"C � A%<>0 � A%<>8 � A%<>17 � A%<>18 menuopen%=0:� menu open flag

, Ȏ A% �

6 � 0 :� active% �null

@ � 1 :�redraw(q%)

J" � 2 :ș "Wimp_OpenWindow",,q%

T � 3 :�closewindow(!q%)

^
 � 4 :

h
 � 5 :

r: � 6 :� 7:�checkmouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)

|
 � 7 :

�
 � 8 :

� � 9 :�menuselect(q%)

� � 17,18:�message

��

�� �

�:

�� �null

�&� count(p1)<=0 � start%=� � �cycle

�� play%(p1,1) �game

��

�:

�� �redraw(q%)

�
� obj%
&ș "Wimp_RedrawWindow",,q% � more%
ȕ more%
�extract(q%)
&� !q%=mainhand% �
0�redrawscreen(ax0%,ay0%)
:�
D&ș "Wimp_GetRectangle",,q% � more%
N�
X�
b:
l� �message
v� task%,ref%
�task%=q%!4
�
ref%=q%!8
�Ȏ q%!16 �
�� 0:�finish
�$� &502:� Help request from !Help
�.q%!12=q%!8:q%!16=&503:help%=q%+20:n%=q%!32
�Ȏ n% �
�	� -2:
�$�help("This is the Atoms icon.")
�2�help("Click Select to open the game window.")
�M�help("Click Menu to Quit. See ReadMe for more help than is given here.")
�� mainhand%:
�� menuopen%=mainmenu% �
� start%=� �
O�help("Click on 'New Game' to empty the board and allow you to change the")
�help("number of players.")
 �
*��help("Click on a Player to put tick beside it and include it in the game.If you want it to be computer player move pointer onto the arrow and click on Computer.Player 2 is Computer player defaultly.There has to be at least two players.")
4�
>�
H� end_of_game=� �
R� play%(p1,1)=0 �
\Zhlp$="It is now Player "+�(p1)+"'s go. Click Select on a cell to increase its value. "
f�hlp$+="Once it exceeds its critical number it explodes, increasing its neighbours by one each. Destroy all opponent cells to win game. Press Menu to change player numbers."
p�help(hlp$)
z�
��
���help("Player "+�(winner%)+" has destroyed all the other opponent cells. Click Menu and choose 'New Board' for another game.")
��
��
��
� ?help%=0:!q%=(help%+4-q%)��3
�$ș "Wimp_SendMessage",17,q%,q%!4
��
��
�:
�-� �help(a$) $help%=a$+"|M":help%+=�a$+2:�
�:
�7� �checkmouse(mousex%,mousey%,b%,handle%,icon%,ob%)
� (b% � %0101)>0 �
Ȏ handle% �
$� -2: � active% �front � �reopen
$� mainhand%:
.	�game
8�
B�
L� (b% � 2)>0 �
VȎ handle% �
`	� -2:
jmenuhandle%=101
t*�openmenu(quitmenu%,mousex%-86,176-40)
~3menuopen%=quitmenu%:� menu open flag (for help)
�� mainhand%:
�menuhandle%=102
��preparemenus
�+�openmenu(mainmenu%,mousex%-64,mousey%)
�3menuopen%=mainmenu%:� menu open flag (for help)
��
��
��
�:
�� �makemenus
�menuptr%=menubuf%
�� N%=1 � 6
:play%(N%,0)=�makemen("Human,Computer","Player "+�(N%))

�
�mainmenu%=�makemen("New Game,"+�sub("Player 1",play%(1,0))+","+�sub("Player 2",play%(2,0))+","+�sub("Player 3",play%(3,0))+","+�sub("Player 4",play%(4,0))+","+�sub("Player 5",play%(5,0))+","+�sub("Player 6",play%(6,0)),"Atoms")
&quitmenu%=�makemen("Quit","Atoms")
(�
2:
<� �preparemenus
F� N%=1 � 6
P$�tick(mainmenu%,N%,N%<=players%)
Z$�tick(play%(N%,0),play%(N%,1),�)
d&�tick(play%(N%,0),1-play%(N%,1),�)
n>� start%=� �light(mainmenu%,N%,�) � �light(mainmenu%,N%,�)
x�
��
�:
�� �light(a%,i%,c%)
�a%=a%+36+24*i%
�4� c% � !a%=!a% � &FFBFFFFF � !a%=!a% � &00400000
��
�:
�� �tick(a%,i%,c%)
�a%=a%+28+24*i%
�,� c% � !a%=!a% � 1 � !a%=!a% � &FFFFFFFE
��
�:
�0� �sub(m$,m%)="|sub"+�"0000000"+�(m%),12)+m$
:
� �menuitem(text$)
3� menuflags%,iconflags%,submenu%,indlen%,valid%
"
valid%=-1
,	ii%=�
6indlen%=-1
@submenu%=-1
J� text$="" �
Tmenuflags%=0
^iconflags%=&07000021
hȕ �text$,1)="|"
rȎ �text$,2,3) �
|� "sub":
�submenu%=�(�text$,5,12))
�text$=�text$,17)
�� "win":
�Ȏ �text$,5,2) �
�� "sv":submenu%=savehand%
�� "zm":submenu%=zoomhand%
�� "id":submenu%=infohand%
��
�text$=�text$,7)
��
��
�)� �(text$)>menumax% menumax%=�(text$)
�menuptr%!0=menuflags%
menuptr%!4=submenu%
menuptr%!8=iconflags%
"� �(text$)>11 indlen%=�(text$)
&� indlen%<0 �
0$(menuptr%+12)=text$
:�
Dmenend%=menend%-(indlen%+1)
N(menuptr%!8=(menuptr%!8) � %100000000
Xmenuptr%!12=menend%
bmenuptr%!16=valid%
lmenuptr%!20=indlen%
v$menend%=text$
��
�menuptr%+=24
��
�:
�� �par(sep$)
�%i1%=i%+1:i%=�menu$+sep$,sep$,i1%)
�=�menu$,i1%,i%-i1%)
�:
� � �makemen(menu$,menutitle$)
�� menumax%,wasptr%
�wasptr%=menuptr%
�menumax%=10
�i%=0
menuptr%!20=44
$menuptr%=menutitle$
menuptr%?12=7
 menuptr%?13=2
*menuptr%?14=7
4menuptr%?15=0
>maxaddr%=menuptr%+16
Hmenuptr%!24=0
Rmenuptr%+=28
\�
fitem$=�par(",")
p�menuitem(item$)
z� item$=""
�%menuptr%!-24=(menuptr%!-24) � &80
�!maxaddr%=menumax%*16+32
�=wasptr%
�:
�� �openmenu(m%,x%,y%)
�
menux%=x%
�
menuy%=y%
�"ș "Wimp_CreateMenu",,m%,x%,y%
��
�:
�� �menuselect(menus%)
�Ȏ menuhandle% �
�� 101: � !menus%=0 �finish
	� 102: �decodemainmenu
	�
	�
	$:
	.� �decodemainmenu
	8� redo%
	B!ș "Wimp_GetPointerInfo",,q2%
	Lredo%=(((q2%!8) � 1)>0)
	VȎ !menus% �
	`� 0:�newgame
	j� 1,2,3,4,5,6:
	t9 � players%<menus%!0 � menus%!4<0 � players%=menus%!0
	~6 � players%<2 players%=2 � � players%>6 players%=6
	� � menus%!4>=0 �
	�  play%(!menus%,1)=menus%!4
	� �
	��
	�still_playing=players%
	�menuopen%=0
	�P� redo% �preparemenus:�openmenu(mainmenu%,menux%,menuy%):menuopen%=mainmenu%
	��
	�:
	�� �extract(q%)
	�ax0%=q%!4-q%!20
	�ay0%=q%!16-q%!24
gx0%=q%!28-ax0%

gy0%=q%!32-ay0%
gx1%=q%!36-ax0%
gy1%=q%!40-ay0%
(�
2:
<� �forceredraw(hand%)
F!q2%=hand%
P ș "Wimp_GetWindowInfo",,q2%
Z;ș "Wimp_ForceRedraw",hand%,q2%!44,q2%!48,q2%!52,q2%!56
d�
n:
x� �initwindows
�mainhand%=�cwindow("Atoms")
��
�:
�ݤcwindow(A$)
�
f%=&0F
�	fc%=0
�	bc%=7
�	x0%=0
�	y0%=0
�x1%=600   :� max_x
�y1%=500   :� max_y
�cx0%=800  :� wal
�cy0%=700  :� wab
cx1%=10000:� war
cy1%=10000:� wat

nicons%=0
"X=�create_window(cx0%,cy0%,cx1%,cy1%,0,y1%,f%,fc%,bc%,x0%,y0%,x1%,y1%,&2D,A$,nicons%)
,:
6lݤcreate_window(cx0%,cy0%,cx1%,cy1%,scx%,scy%,flags%,fc%,bc%,sx0%,sy0%,sx1%,sy1%,titlef%,title$,nicons%)
@A!q%=cx0%:q%!4=cy0%:q%!8=cx1%:q%!12=cy1%:q%!16=scx%:q%!20=scy%
Jq%!24=-1:q%!28=flags%
T�fc%=15�bc%=15�
^)q%?32=15:q%?33=15:q%?34=fc%:q%?35=bc%
h)� q%?32=7:q%?33=2:q%?34=fc%:q%?35=bc%
r�
|$q%?36=3:q%?37=1:q%?38=12:q%?39=0
�/q%!40=sx0%:q%!44=sy0%:q%!48=sx1%:q%!52=sy1%
�q%!56=titlef%
�(q%!60=&3000      : � work area flags
�!q%!64=0:q%!68=0  : � reserved
�$(q%+72)=�title$,11)
�q%!84=nicons%
�)�I%,x0%,y0%,x1%,y1%,f%,data$:I%=q%+88
�ȕ nicons%>0
�&� x0%,y0%,x1%,y1%,f%,fc%,bc%,data$
�(I%!0=x0%:I%!4=y0%:I%!8=x1%:I%!12=y1%
�#� (f%�&40)=0 � bc%=fc%+(bc%<<4)
�I%!16=f%+(bc%<<24)
��(f%�&100)�
<� L%:B%=�buffer(L%):I%!20=B%:$B%=data$:I%!24=-1:I%!28=L%
�
$(I%+20)=data$
&�
0I%=I%+32:nicons%=nicons%-1
:�
Dș CreateW,,q% � handle%
N=handle%
X:
b� �initflags
l
active%=�
v�
�:
�� �closemenu
�ș "Wimp_CreateMenu",,-1
��
�:
�� �closewindow(hand%)
�
!q%=hand%
�ș "Wimp_CloseWindow",,q%
�� hand%=mainhand% active%=�
��
�:
���finish
�$q%="TASK"

#ș "Wimp_CloseDown",mytask%,!q%

�

�

 :

*��front

4!q%=mainhand%

> ș "Wimp_GetWindowState",,q%

Hq%!28=-1

Rș "Wimp_OpenWindow",,q%

\�

f:

p
� �reopen

z!q%=mainhand%

�q%!28=-1

�q%!4=200

�q%!8=300

�
q%!12=700

�
q%!16=800

�q%!20=0

�q%!24=0

�ș "Wimp_OpenWindow",,q%

�
active%=�

��

�:

�
��vars

�Wimp    = (1<<18) + (3<<6)
CreateW = Wimp+1
OpenW   = Wimp+5
CloseW  = Wimp+6
$RedrawW = Wimp+8
.UpdateW = Wimp+9
8GetR%   = Wimp+10
BGetW    = Wimp+11
LGetP    = Wimp+15
VDrag    = Wimp+16
`CrMenu  = Wimp+20
jDcMenu  = Wimp+21
t�
~:
���errorbox
�� what%
�ș Drag,,-1
�4!buffers%=�:$(buffers%+4)=�$+" at line "+�(�)+�0
�3ș "Wimp_ReportError",buffers%,3,name$ � ,what%
�� what%=2 �finish
��
�:
�
��init
��:�finish:�
�	�vars
�
� tbl% 20
� taskid%4:$taskid%="TASK"

>ș "Wimp_Initialise",200,!taskid%,name$ � version%,mytask%
I� q% &500,buffers% &100,iconinf% &200,menubuf% &400,ic% &100,q2% &500
menend%=q%+&450
(� play%(6,1)
2play%(1,1)=0
<play%(2,1)=1
Fmenuopen%=�
P�
Z:
d� �iconbar
n	� ii%
x!ic%=-1
�ic%!4=0
�ic%!8=0
�
ic%!12=68
�
ic%!16=68
�ic%!20=&B7002102
�� ic%!24 12
�$(ic%!24)="!atoms"
�ic%!28=1
�
ic%!32=12
�#ș "Wimp_CreateIcon",,ic% � ii%
�=ii%
�:
�� �newgame
� N%=0 � max_x%
� A%=0 � max_y%
player(N%,A%)=0
"amount(N%,A%)=0
,weight(N%,A%)=0
6�
@�
J
count()=0
Tstill_playing=players%
^count(0)=-1
hp1=1
rstart%=�
|end_of_game=�
�still_this%=�
��forceredraw(mainhand%)
��
�
�� �initgame
�players%=2
�size%=12*5
�
�initg
��
�:
�� �initg
�	� i,j
�max_x%=(640/size%)-1
max_y%=(450/size%)-1
� player(max_x%,max_y%)
� amount(max_x%,max_y%)
&� count(6)
0� weight(max_x%,max_y%)
:still_playing=players%
Dcount(0)=-1
Np1=1
Xstart%=�
bend_of_game=�
lstill_this%=�
v�
�:
�� �redrawscreen(x%,y%)
�	� i,j
�
�gcol(15)
�!ȓ Ȑ x%,y%+440,1279,1023-840
�!from_i=(gx0%-size%/4) � size%
�!to_i=(gx1%+size%*5/4) � size%
�!from_j=(gy0%-size%/4) � size%
�!to_j=(gy1%+size%*5/4) � size%
�� from_i<0 from_i=0
�� to_i>max_x% to_i=max_x%
�� from_j<0 from_j=0
�� to_j>max_y% to_j=max_y%
#� to_i>=from_i � to_j>=from_j �
� i=from_i � to_i
� j=from_j � to_j
 �draw(i,j)
*�
4�
>�
H$� count(p1)<=0 � start%=� �cycle
R�output("Player "+�(p1),p1)
\C� end_of_game �output("Player "+�(winner%)+" has won.",winner%)
f�
p:
z� �game
�� end_of_game �
�� start% �
� �play(p1)
� � � still_this% �
�  p1+=1
�
  p=p1
�  � p>players% p=1
�  �redrawplayer
� �
� � p1>players% �
�  start%=�
�
  p1=1
� �
�
 end_of_game=�
 � count(p1)>0 �
$  �play(p1)
.  � � still_this% �
8   � still_playing=1 �
B    winner%=p1
L    p1=players%
V    end_of_game=�
`   �
j  �
t �
~ � still_this%=� � p1+=1
� � p1>players% p1=1
�' � count(p1)<=0 � start%=� � �cycle
�' � still_this%=� p=p1:�redrawplayer
�% � end_of_game p=p1:�redrawplayer
��
��
�:
�� �cycle
�ȕ count(p1)<=0
�	p1+=1
�� p1>players% p1=1
��
�

:
� �play(p)
� x%,y%,k%
(�redrawplayer
2� play%(p,1) �com:�
<ȗ x%,y%,k%
F� k%<>4 � still_this%=�:�
P!q%=mainhand%
Z ș "Wimp_GetWindowState",,q%
d�extract(q%)
nx%-=ax0%
xy%-=ay0%
�still_this%=�
�x%=x%/size%
�y%=y%/size%
�.� x%>9 � y%>6 � �7:still_this%=�:x%=0:y%=0
�:� player(x%,y%)<>p � amount(x%,y%)<>0 still_this%=�:�7
�#� still_this%=� �react(x%,y%,p)
��
�:
�� �redrawplayer
�!q%=mainhand%
�
q%!4=0
�q%!8=440
�
q%!12=600

q%!16=500
&ș "Wimp_UpdateWindow",,q% � more%
ȕ more%
" �extract(q%)
, � !q%=mainhand% �
6  � end_of_game �
@8   �output("Player "+�(winner%)+" has won.",winner%)
J  �
T    �output("Player "+�(p),p)
^  �
h �
r' ș "Wimp_GetRectangle",,q% � more%
|�
��
�:
�� �react(x,y,c)
�� reactor,old_pl
�� still_playing>1 �
� old_pl=player(x,y)
� count(old_pl)-=amount(x,y)
� amount(x,y)+=1
� count(c)+=amount(x,y)
� player(x,y)=c
� � count(old_pl)=0 �
�  count(old_pl)=-1
�  still_playing-=1
 �
0 reactor=4+(x=0)+(x=max_x%)+(y=0)+(y=max_y%)
 � amount(x,y)>=reactor �
&  amount(x,y)-=reactor
0  count(c)-=reactor
: !q%=mainhand%
D q%!4=x*size%
N q%!8=y*size%
X q%!12=(x*size%)+size%
b q%!16=(y*size%)+size%
l' ș "Wimp_UpdateWindow",,q% � more%
v
 ȕ more%
�  �extract(q%)
�  � !q%=mainhand% �
�,   �box(ax0%+(x*size%),ay0%+(y*size%),7)
�  �
�(  ș "Wimp_GetRectangle",,q% � more%
� �
� !q%=mainhand%
� q%!4=x*size%
� q%!8=y*size%
� q%!12=(x*size%)+size%
� q%!16=(y*size%)+size%
�' ș "Wimp_UpdateWindow",,q% � more%
�
 ȕ more%
  �extract(q%)
  � !q%=mainhand% �
   �draw(x,y)
   �
*(  ș "Wimp_GetRectangle",,q% � more%
4 �
> � x>0      �react(x-1,y,c)
H � x<max_x% �react(x+1,y,c)
R � y>0      �react(x,y-1,c)
\ � y<max_y% �react(x,y+1,c)
f �
p !q%=mainhand%
z q%!4=x*size%
� q%!8=y*size%
� q%!12=(x*size%)+size%
� q%!16=(y*size%)+size%
�' ș "Wimp_UpdateWindow",,q% � more%
�
 ȕ more%
�  �extract(q%)
�  � !q%=mainhand% �
�   �draw(x,y)
�  �
�(  ș "Wimp_GetRectangle",,q% � more%
� �
��
��
:
� �draw(x,y)
	� c,n
$c=player(x,y)
.n=amount(x,y)
8
x=x*size%
B
y=y*size%
L�extract(q%)
Vx+=ax0%
`y+=ay0%
j
�gcol(15)
tȓ x,y,size%
~
Ȏ n �
�� 0:
��box(x,y,0)
�� 1:
��box(x,y,c)
��circle(x,y,0.5,0.5)
�� 2:
��box(x,y,c)
��circle(x,y,1/3,1/3)
��circle(x,y,2/3,2/3)
�� 3:
��box(x,y,c)
��circle(x,y,1/2,3/4)
�circle(x,y,1/4,1/4)

�circle(x,y,3/4,1/4)
� 4:
�box(x,y,c)
(�circle(x,y,1/4,1/4)
2�circle(x,y,3/4,3/4)
<�circle(x,y,1/4,3/4)
F�circle(x,y,3/4,1/4)
P:
Z�box(x,y,15)
d�
n�
x:
�� �box(x,y,c)
��gcol(c)
�!ȓ Ȑ x+2,y+4,size%-4,size%-8
��
�:
�� �circle(x,y,dx,dy)
��gcol(7)
�(ȏ Ȑ x+dx*size%,y+dy*size%,size%/10
��
�:
�� �output(a$,c%)
��extract(q%)
�
�gcol(15)
%ȓ Ȑ ax0%,ay0%+440,1280,1023-840

�gcol(c%)
(� ax0%+(300-(�(a$)*8)),ay0%+440+8+32
"� a$
,�
6:
@
� �com
J� i%=0 � max_x%
T� j%=0 � max_y%
^O%=player(i%,j%)
h� O% � O%<>p �
rweight(i%,j%)=-1000
|�
�3reactor=4+(i%=0)+(i%=max_x%)+(j%=0)+(j%=max_y%)
�Asigma=�add(i%+1,j%)+�add(i%-1,j%)+�add(i%,j%+1)+�add(i%,j%-1)
�� amount(i%,j%)=reactor-1 �
�weight(i%,j%)=4*sigma
��
�Tweight(i%,j%)=125+sigma*(sigma>124)-sigma*(sigma<125)-10*(reactor-amount(i%,j%))
��
��
��
��
�bm=-1000
�� i%=0 � max_x%
�� j%=0 � max_y%
3� weight(i%,j%)>bm bm=weight(i%,j%):bi=i%:bj=j%
�
�
&�react(bi,bj,p)
0�
::
D� �add(x,y)
N
� reactor
X*� x<0 � x>max_x% � y<0 � y>max_y% � =0
b� player(x,y)=0 � =0
l/reactor=4+(x=0)+(x=max_x%)+(y=0)+(y=max_y%)
v2=-(player(x,y)<>p)*(5^(4+amount(x,y)-reactor))
�:
�!� �gcol(c%):� Col Trans Table
�Ȏ c% �
�� 0:c%=7
�
� 1:c%=11
�
� 2:c%=10
�� 3:c%=9
�� 4:c%=8
�
� 5:c%=13
�
� 6:c%=15
�� 7:c%=0
�
� 14:c%=0
�
� 15:c%=4
�
ș "Wimp_SetColour",c%
�
 :
**� �mess(A$,m%):� For the Wimp Debugger
4*SET db$mess Atoms
>� "SET db$mess"+�m%+" "+A$
H�
�

00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 25 f4 20 4d  75 6c 74 69 2d 74 61 73  |e...%. Multi-tas|
00000020  6b 69 6e 67 20 76 65 72  73 69 6f 6e 20 6f 66 20  |king version of |
00000030  41 74 6f 6d 73 33 0d 00  1e 16 f4 20 62 79 20 4e  |Atoms3..... by N|
00000040  69 61 6c 6c 20 44 6f 75  67 6c 61 73 0d 00 28 1c  |iall Douglas..(.|
00000050  f4 20 30 34 2d 37 2d 31  39 39 31 20 56 65 72 73  |. 04-7-1991 Vers|
00000060  69 6f 6e 20 31 2e 39 39  0d 00 32 05 f4 0d 00 3c  |ion 1.99..2....<|
00000070  4b f4 20 49 20 74 68 69  6e 6b 20 74 68 69 73 20  |K. I think this |
00000080  70 72 6f 67 72 61 6d 20  63 6f 6e 66 69 72 6d 73  |program confirms|
00000090  20 77 69 74 68 20 61 6c  6c 20 74 68 65 20 63 6f  | with all the co|
000000a0  72 72 65 63 74 20 52 49  53 43 2d 4f 53 20 67 75  |rrect RISC-OS gu|
000000b0  69 64 65 6c 69 6e 65 73  0d 00 46 48 f4 20 61 6e  |idelines..FH. an|
000000c0  64 20 61 73 20 49 27 6d  20 76 65 72 79 20 70 72  |d as I'm very pr|
000000d0  6f 2d 52 49 53 43 4f 53  20 49 20 68 6f 70 65 20  |o-RISCOS I hope |
000000e0  49 27 76 65 20 64 6f 6e  65 20 61 20 67 6f 6f 64  |I've done a good|
000000f0  20 6a 6f 62 20 6f 6e 20  6d 79 20 66 69 72 73 74  | job on my first|
00000100  0d 00 50 4a f4 20 64 65  73 6b 74 6f 70 20 70 72  |..PJ. desktop pr|
00000110  6f 67 72 61 6d 21 20 55  6e 66 6f 72 74 75 6e 65  |ogram! Unfortune|
00000120  74 6c 79 20 49 20 64 6f  6e 27 74 20 68 61 76 65  |tly I don't have|
00000130  20 61 6e 79 20 50 72 6f  67 72 61 6d 6d 65 72 73  | any Programmers|
00000140  20 52 65 66 65 72 61 6e  63 65 0d 00 5a 4a f4 20  | Referance..ZJ. |
00000150  4d 61 6e 75 61 6c 73 20  73 6f 20 49 20 64 6f 6e  |Manuals so I don|
00000160  27 74 20 6b 6e 6f 77 20  6d 75 63 68 20 61 62 6f  |'t know much abo|
00000170  75 74 20 67 75 69 64 65  6c 69 6e 65 73 2e 20 4e  |ut guidelines. N|
00000180  65 69 74 68 65 72 20 64  6f 20 49 20 6b 6e 6f 77  |either do I know|
00000190  20 68 6f 77 0d 00 64 4a  f4 20 74 6f 20 77 72 69  | how..dJ. to wri|
000001a0  74 65 20 64 69 72 65 63  74 6c 79 20 74 6f 20 61  |te directly to a|
000001b0  20 73 70 72 69 74 65 20  73 6f 20 74 68 65 20 77  | sprite so the w|
000001c0  69 6e 64 6f 77 20 75 70  64 61 74 69 6e 67 20 69  |indow updating i|
000001d0  73 20 72 61 74 68 65 72  20 73 6c 6f 77 2e 0d 00  |s rather slow...|
000001e0  6e 48 f4 20 48 6f 70 65  66 75 6c 6c 79 20 76 65  |nH. Hopefully ve|
000001f0  72 73 69 6f 6e 20 32 2e  30 30 20 77 69 6c 6c 20  |rsion 2.00 will |
00000200  73 70 6f 72 74 20 74 68  65 73 65 20 66 65 61 74  |sport these feat|
00000210  75 72 65 73 2e 20 48 6f  77 65 76 65 72 2c 20 76  |ures. However, v|
00000220  65 72 73 69 6f 6e 0d 00  78 48 f4 20 31 2e 30 30  |ersion..xH. 1.00|
00000230  20 6b 65 70 74 20 6f 6e  20 72 65 64 72 61 77 69  | kept on redrawi|
00000240  6e 67 20 74 68 65 20 77  69 6e 64 6f 77 20 65 76  |ng the window ev|
00000250  65 72 79 20 74 69 6d 65  20 61 20 6d 6f 76 65 20  |ery time a move |
00000260  77 61 73 20 6d 61 64 65  2e 20 54 68 69 73 0d 00  |was made. This..|
00000270  82 4c f4 20 76 65 72 73  69 6f 6e 2c 20 31 2e 39  |.L. version, 1.9|
00000280  39 20 75 70 64 61 74 65  73 20 74 68 65 20 77 69  |9 updates the wi|
00000290  6e 64 6f 77 20 75 73 69  6e 67 20 53 57 49 20 22  |ndow using SWI "|
000002a0  57 69 6d 70 5f 55 70 64  61 74 65 57 69 6e 64 6f  |Wimp_UpdateWindo|
000002b0  77 22 20 69 6e 73 74 65  61 64 0d 00 8c 34 f4 20  |w" instead...4. |
000002c0  6f 66 20 72 65 64 72 61  77 69 6e 67 20 69 74 20  |of redrawing it |
000002d0  73 6f 20 67 69 76 65 73  20 6d 75 63 68 20 66 61  |so gives much fa|
000002e0  73 74 65 72 20 67 61 6d  65 70 6c 61 79 2e 0d 00  |ster gameplay...|
000002f0  96 05 3a 0d 00 a0 11 6e  61 6d 65 24 3d 22 41 74  |..:....name$="At|
00000300  6f 6d 73 22 0d 00 aa 09  f2 69 6e 69 74 0d 00 b4  |oms".....init...|
00000310  10 f2 69 6e 69 74 77 69  6e 64 6f 77 73 0d 00 be  |..initwindows...|
00000320  0e f2 69 6e 69 74 66 6c  61 67 73 0d 00 c8 0e f2  |..initflags.....|
00000330  6d 61 6b 65 6d 65 6e 75  73 0d 00 d2 12 69 63 6f  |makemenus....ico|
00000340  6e 25 3d a4 69 63 6f 6e  62 61 72 0d 00 dc 0d f2  |n%=.iconbar.....|
00000350  69 6e 69 74 67 61 6d 65  0d 00 e6 1e ee 85 3a f2  |initgame......:.|
00000360  65 72 72 6f 72 62 6f 78  3a c8 99 20 43 72 4d 65  |errorbox:.. CrMe|
00000370  6e 75 2c 2c 2d 31 0d 00  f0 0c f2 6e 65 77 67 61  |nu,,-1.....newga|
00000380  6d 65 0d 00 fa 48 e0 3d  e0 2b 28 38 2a 31 30 32  |me...H.=.+(8*102|
00000390  34 29 3a f4 20 41 6c 6c  6f 63 61 74 65 20 73 70  |4):. Allocate sp|
000003a0  61 63 65 20 66 6f 72 20  74 68 65 20 42 61 73 69  |ace for the Basi|
000003b0  63 20 73 74 61 63 6b 20  74 6f 20 61 6c 6c 6f 77  |c stack to allow|
000003c0  20 72 65 63 75 72 73 69  6f 6e 0d 01 04 05 3a 0d  | recursion....:.|
000003d0  01 0e 05 f5 0d 01 18 1d  20 c8 99 20 22 57 69 6d  |........ .. "Wim|
000003e0  70 5f 50 6f 6c 6c 22 2c  30 2c 71 25 20 b8 20 41  |p_Poll",0,q% . A|
000003f0  25 0d 01 22 43 20 e7 20  41 25 3c 3e 30 20 80 20  |%.."C . A%<>0 . |
00000400  41 25 3c 3e 38 20 80 20  41 25 3c 3e 31 37 20 80  |A%<>8 . A%<>17 .|
00000410  20 41 25 3c 3e 31 38 20  6d 65 6e 75 6f 70 65 6e  | A%<>18 menuopen|
00000420  25 3d 30 3a f4 20 6d 65  6e 75 20 6f 70 65 6e 20  |%=0:. menu open |
00000430  66 6c 61 67 0d 01 2c 0c  20 c8 8e 20 41 25 20 ca  |flag..,. .. A% .|
00000440  0d 01 36 19 20 c9 20 30  20 3a e7 20 61 63 74 69  |..6. . 0 :. acti|
00000450  76 65 25 20 f2 6e 75 6c  6c 0d 01 40 15 20 c9 20  |ve% .null..@. . |
00000460  31 20 3a f2 72 65 64 72  61 77 28 71 25 29 0d 01  |1 :.redraw(q%)..|
00000470  4a 22 20 c9 20 32 20 3a  c8 99 20 22 57 69 6d 70  |J" . 2 :.. "Wimp|
00000480  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 71 25  |_OpenWindow",,q%|
00000490  0d 01 54 1b 20 c9 20 33  20 3a f2 63 6c 6f 73 65  |..T. . 3 :.close|
000004a0  77 69 6e 64 6f 77 28 21  71 25 29 0d 01 5e 0a 20  |window(!q%)..^. |
000004b0  c9 20 34 20 3a 0d 01 68  0a 20 c9 20 35 20 3a 0d  |. 4 :..h. . 5 :.|
000004c0  01 72 3a 20 c9 20 36 20  3a ef 20 37 3a f2 63 68  |.r: . 6 :. 7:.ch|
000004d0  65 63 6b 6d 6f 75 73 65  28 21 71 25 2c 71 25 21  |eckmouse(!q%,q%!|
000004e0  34 2c 71 25 21 38 2c 71  25 21 31 32 2c 71 25 21  |4,q%!8,q%!12,q%!|
000004f0  31 36 2c 71 25 21 32 30  29 0d 01 7c 0a 20 c9 20  |16,q%!20)..|. . |
00000500  37 20 3a 0d 01 86 0a 20  c9 20 38 20 3a 0d 01 90  |7 :.... . 8 :...|
00000510  19 20 c9 20 39 20 3a f2  6d 65 6e 75 73 65 6c 65  |. . 9 :.menusele|
00000520  63 74 28 71 25 29 0d 01  9a 15 20 c9 20 31 37 2c  |ct(q%).... . 17,|
00000530  31 38 3a f2 6d 65 73 73  61 67 65 0d 01 a4 05 cb  |18:.message.....|
00000540  0d 01 ae 07 fd 20 a3 0d  01 b8 05 3a 0d 01 c2 0b  |..... .....:....|
00000550  dd 20 f2 6e 75 6c 6c 0d  01 cc 26 e7 20 63 6f 75  |. .null...&. cou|
00000560  6e 74 28 70 31 29 3c 3d  30 20 80 20 73 74 61 72  |nt(p1)<=0 . star|
00000570  74 25 3d a3 20 8c 20 f2  63 79 63 6c 65 0d 01 d6  |t%=. . .cycle...|
00000580  17 e7 20 70 6c 61 79 25  28 70 31 2c 31 29 20 f2  |.. play%(p1,1) .|
00000590  67 61 6d 65 0d 01 e0 05  e1 0d 01 ea 05 3a 0d 01  |game.........:..|
000005a0  f4 11 dd 20 f2 72 65 64  72 61 77 28 71 25 29 0d  |... .redraw(q%).|
000005b0  01 fe 0a ea 20 6f 62 6a  25 0d 02 08 26 c8 99 20  |.... obj%...&.. |
000005c0  22 57 69 6d 70 5f 52 65  64 72 61 77 57 69 6e 64  |"Wimp_RedrawWind|
000005d0  6f 77 22 2c 2c 71 25 20  b8 20 6d 6f 72 65 25 0d  |ow",,q% . more%.|
000005e0  02 12 0c c8 95 20 6d 6f  72 65 25 0d 02 1c 10 f2  |..... more%.....|
000005f0  65 78 74 72 61 63 74 28  71 25 29 0d 02 26 15 e7  |extract(q%)..&..|
00000600  20 21 71 25 3d 6d 61 69  6e 68 61 6e 64 25 20 8c  | !q%=mainhand% .|
00000610  0d 02 30 1c f2 72 65 64  72 61 77 73 63 72 65 65  |..0..redrawscree|
00000620  6e 28 61 78 30 25 2c 61  79 30 25 29 0d 02 3a 05  |n(ax0%,ay0%)..:.|
00000630  cd 0d 02 44 26 c8 99 20  22 57 69 6d 70 5f 47 65  |...D&.. "Wimp_Ge|
00000640  74 52 65 63 74 61 6e 67  6c 65 22 2c 2c 71 25 20  |tRectangle",,q% |
00000650  b8 20 6d 6f 72 65 25 0d  02 4e 05 ce 0d 02 58 05  |. more%..N....X.|
00000660  e1 0d 02 62 05 3a 0d 02  6c 0e dd 20 f2 6d 65 73  |...b.:..l.. .mes|
00000670  73 61 67 65 0d 02 76 10  ea 20 74 61 73 6b 25 2c  |sage..v.. task%,|
00000680  72 65 66 25 0d 02 80 0e  74 61 73 6b 25 3d 71 25  |ref%....task%=q%|
00000690  21 34 0d 02 8a 0d 72 65  66 25 3d 71 25 21 38 0d  |!4....ref%=q%!8.|
000006a0  02 94 0e c8 8e 20 71 25  21 31 36 20 ca 0d 02 9e  |..... q%!16 ....|
000006b0  0f c9 20 30 3a f2 66 69  6e 69 73 68 0d 02 a8 24  |.. 0:.finish...$|
000006c0  c9 20 26 35 30 32 3a f4  20 48 65 6c 70 20 72 65  |. &502:. Help re|
000006d0  71 75 65 73 74 20 66 72  6f 6d 20 21 48 65 6c 70  |quest from !Help|
000006e0  0d 02 b2 2e 71 25 21 31  32 3d 71 25 21 38 3a 71  |....q%!12=q%!8:q|
000006f0  25 21 31 36 3d 26 35 30  33 3a 68 65 6c 70 25 3d  |%!16=&503:help%=|
00000700  71 25 2b 32 30 3a 6e 25  3d 71 25 21 33 32 0d 02  |q%+20:n%=q%!32..|
00000710  bc 0b c8 8e 20 6e 25 20  ca 0d 02 c6 09 c9 20 2d  |.... n% ...... -|
00000720  32 3a 0d 02 d0 24 f2 68  65 6c 70 28 22 54 68 69  |2:...$.help("Thi|
00000730  73 20 69 73 20 74 68 65  20 41 74 6f 6d 73 20 69  |s is the Atoms i|
00000740  63 6f 6e 2e 22 29 0d 02  da 32 f2 68 65 6c 70 28  |con.")...2.help(|
00000750  22 43 6c 69 63 6b 20 53  65 6c 65 63 74 20 74 6f  |"Click Select to|
00000760  20 6f 70 65 6e 20 74 68  65 20 67 61 6d 65 20 77  | open the game w|
00000770  69 6e 64 6f 77 2e 22 29  0d 02 e4 4d f2 68 65 6c  |indow.")...M.hel|
00000780  70 28 22 43 6c 69 63 6b  20 4d 65 6e 75 20 74 6f  |p("Click Menu to|
00000790  20 51 75 69 74 2e 20 53  65 65 20 52 65 61 64 4d  | Quit. See ReadM|
000007a0  65 20 66 6f 72 20 6d 6f  72 65 20 68 65 6c 70 20  |e for more help |
000007b0  74 68 61 6e 20 69 73 20  67 69 76 65 6e 20 68 65  |than is given he|
000007c0  72 65 2e 22 29 0d 02 ee  10 c9 20 6d 61 69 6e 68  |re.")..... mainh|
000007d0  61 6e 64 25 3a 0d 02 f8  1b e7 20 6d 65 6e 75 6f  |and%:..... menuo|
000007e0  70 65 6e 25 3d 6d 61 69  6e 6d 65 6e 75 25 20 8c  |pen%=mainmenu% .|
000007f0  0d 03 02 10 e7 20 73 74  61 72 74 25 3d a3 20 8c  |..... start%=. .|
00000800  0d 03 0c 4f f2 68 65 6c  70 28 22 43 6c 69 63 6b  |...O.help("Click|
00000810  20 6f 6e 20 27 4e 65 77  20 47 61 6d 65 27 20 74  | on 'New Game' t|
00000820  6f 20 65 6d 70 74 79 20  74 68 65 20 62 6f 61 72  |o empty the boar|
00000830  64 20 61 6e 64 20 61 6c  6c 6f 77 20 79 6f 75 20  |d and allow you |
00000840  74 6f 20 63 68 61 6e 67  65 20 74 68 65 22 29 0d  |to change the").|
00000850  03 16 1f f2 68 65 6c 70  28 22 6e 75 6d 62 65 72  |....help("number|
00000860  20 6f 66 20 70 6c 61 79  65 72 73 2e 22 29 0d 03  | of players.")..|
00000870  20 05 cc 0d 03 2a f2 f2  68 65 6c 70 28 22 43 6c  | ....*..help("Cl|
00000880  69 63 6b 20 6f 6e 20 61  20 50 6c 61 79 65 72 20  |ick on a Player |
00000890  74 6f 20 70 75 74 20 74  69 63 6b 20 62 65 73 69  |to put tick besi|
000008a0  64 65 20 69 74 20 61 6e  64 20 69 6e 63 6c 75 64  |de it and includ|
000008b0  65 20 69 74 20 69 6e 20  74 68 65 20 67 61 6d 65  |e it in the game|
000008c0  2e 49 66 20 79 6f 75 20  77 61 6e 74 20 69 74 20  |.If you want it |
000008d0  74 6f 20 62 65 20 63 6f  6d 70 75 74 65 72 20 70  |to be computer p|
000008e0  6c 61 79 65 72 20 6d 6f  76 65 20 70 6f 69 6e 74  |layer move point|
000008f0  65 72 20 6f 6e 74 6f 20  74 68 65 20 61 72 72 6f  |er onto the arro|
00000900  77 20 61 6e 64 20 63 6c  69 63 6b 20 6f 6e 20 43  |w and click on C|
00000910  6f 6d 70 75 74 65 72 2e  50 6c 61 79 65 72 20 32  |omputer.Player 2|
00000920  20 69 73 20 43 6f 6d 70  75 74 65 72 20 70 6c 61  | is Computer pla|
00000930  79 65 72 20 64 65 66 61  75 6c 74 6c 79 2e 54 68  |yer defaultly.Th|
00000940  65 72 65 20 68 61 73 20  74 6f 20 62 65 20 61 74  |ere has to be at|
00000950  20 6c 65 61 73 74 20 74  77 6f 20 70 6c 61 79 65  | least two playe|
00000960  72 73 2e 22 29 0d 03 34  05 cd 0d 03 3e 05 cc 0d  |rs.")..4....>...|
00000970  03 48 15 e7 20 65 6e 64  5f 6f 66 5f 67 61 6d 65  |.H.. end_of_game|
00000980  3d a3 20 8c 0d 03 52 15  e7 20 70 6c 61 79 25 28  |=. ...R.. play%(|
00000990  70 31 2c 31 29 3d 30 20  8c 0d 03 5c 5a 68 6c 70  |p1,1)=0 ...\Zhlp|
000009a0  24 3d 22 49 74 20 69 73  20 6e 6f 77 20 50 6c 61  |$="It is now Pla|
000009b0  79 65 72 20 22 2b c3 28  70 31 29 2b 22 27 73 20  |yer "+.(p1)+"'s |
000009c0  67 6f 2e 20 43 6c 69 63  6b 20 53 65 6c 65 63 74  |go. Click Select|
000009d0  20 6f 6e 20 61 20 63 65  6c 6c 20 74 6f 20 69 6e  | on a cell to in|
000009e0  63 72 65 61 73 65 20 69  74 73 20 76 61 6c 75 65  |crease its value|
000009f0  2e 20 22 0d 03 66 b0 68  6c 70 24 2b 3d 22 4f 6e  |. "..f.hlp$+="On|
00000a00  63 65 20 69 74 20 65 78  63 65 65 64 73 20 69 74  |ce it exceeds it|
00000a10  73 20 63 72 69 74 69 63  61 6c 20 6e 75 6d 62 65  |s critical numbe|
00000a20  72 20 69 74 20 65 78 70  6c 6f 64 65 73 2c 20 69  |r it explodes, i|
00000a30  6e 63 72 65 61 73 69 6e  67 20 69 74 73 20 6e 65  |ncreasing its ne|
00000a40  69 67 68 62 6f 75 72 73  20 62 79 20 6f 6e 65 20  |ighbours by one |
00000a50  65 61 63 68 2e 20 44 65  73 74 72 6f 79 20 61 6c  |each. Destroy al|
00000a60  6c 20 6f 70 70 6f 6e 65  6e 74 20 63 65 6c 6c 73  |l opponent cells|
00000a70  20 74 6f 20 77 69 6e 20  67 61 6d 65 2e 20 50 72  | to win game. Pr|
00000a80  65 73 73 20 4d 65 6e 75  20 74 6f 20 63 68 61 6e  |ess Menu to chan|
00000a90  67 65 20 70 6c 61 79 65  72 20 6e 75 6d 62 65 72  |ge player number|
00000aa0  73 2e 22 0d 03 70 0f f2  68 65 6c 70 28 68 6c 70  |s."..p..help(hlp|
00000ab0  24 29 0d 03 7a 05 cd 0d  03 84 05 cc 0d 03 8e 82  |$)..z...........|
00000ac0  f2 68 65 6c 70 28 22 50  6c 61 79 65 72 20 22 2b  |.help("Player "+|
00000ad0  c3 28 77 69 6e 6e 65 72  25 29 2b 22 20 68 61 73  |.(winner%)+" has|
00000ae0  20 64 65 73 74 72 6f 79  65 64 20 61 6c 6c 20 74  | destroyed all t|
00000af0  68 65 20 6f 74 68 65 72  20 6f 70 70 6f 6e 65 6e  |he other opponen|
00000b00  74 20 63 65 6c 6c 73 2e  20 43 6c 69 63 6b 20 4d  |t cells. Click M|
00000b10  65 6e 75 20 61 6e 64 20  63 68 6f 6f 73 65 20 27  |enu and choose '|
00000b20  4e 65 77 20 42 6f 61 72  64 27 20 66 6f 72 20 61  |New Board' for a|
00000b30  6e 6f 74 68 65 72 20 67  61 6d 65 2e 22 29 0d 03  |nother game.")..|
00000b40  98 05 cd 0d 03 a2 05 cd  0d 03 ac 05 cb 0d 03 b6  |................|
00000b50  20 3f 68 65 6c 70 25 3d  30 3a 21 71 25 3d 28 68  | ?help%=0:!q%=(h|
00000b60  65 6c 70 25 2b 34 2d 71  25 29 80 ac 33 0d 03 c0  |elp%+4-q%)..3...|
00000b70  24 c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |$.. "Wimp_SendMe|
00000b80  73 73 61 67 65 22 2c 31  37 2c 71 25 2c 71 25 21  |ssage",17,q%,q%!|
00000b90  34 0d 03 ca 05 cb 0d 03  d4 05 e1 0d 03 de 05 3a  |4..............:|
00000ba0  0d 03 e8 2d dd 20 f2 68  65 6c 70 28 61 24 29 20  |...-. .help(a$) |
00000bb0  24 68 65 6c 70 25 3d 61  24 2b 22 7c 4d 22 3a 68  |$help%=a$+"|M":h|
00000bc0  65 6c 70 25 2b 3d a9 61  24 2b 32 3a e1 0d 03 f2  |elp%+=.a$+2:....|
00000bd0  05 3a 0d 03 fc 37 dd 20  f2 63 68 65 63 6b 6d 6f  |.:...7. .checkmo|
00000be0  75 73 65 28 6d 6f 75 73  65 78 25 2c 6d 6f 75 73  |use(mousex%,mous|
00000bf0  65 79 25 2c 62 25 2c 68  61 6e 64 6c 65 25 2c 69  |ey%,b%,handle%,i|
00000c00  63 6f 6e 25 2c 6f 62 25  29 0d 04 06 16 e7 20 28  |con%,ob%)..... (|
00000c10  62 25 20 80 20 25 30 31  30 31 29 3e 30 20 8c 0d  |b% . %0101)>0 ..|
00000c20  04 10 10 c8 8e 20 68 61  6e 64 6c 65 25 20 ca 0d  |..... handle% ..|
00000c30  04 1a 24 c9 20 2d 32 3a  20 e7 20 61 63 74 69 76  |..$. -2: . activ|
00000c40  65 25 20 f2 66 72 6f 6e  74 20 8b 20 f2 72 65 6f  |e% .front . .reo|
00000c50  70 65 6e 0d 04 24 10 c9  20 6d 61 69 6e 68 61 6e  |pen..$.. mainhan|
00000c60  64 25 3a 0d 04 2e 09 f2  67 61 6d 65 0d 04 38 05  |d%:.....game..8.|
00000c70  cb 0d 04 42 05 cd 0d 04  4c 12 e7 20 28 62 25 20  |...B....L.. (b% |
00000c80  80 20 32 29 3e 30 20 8c  0d 04 56 10 c8 8e 20 68  |. 2)>0 ...V... h|
00000c90  61 6e 64 6c 65 25 20 ca  0d 04 60 09 c9 20 2d 32  |andle% ...`.. -2|
00000ca0  3a 0d 04 6a 13 6d 65 6e  75 68 61 6e 64 6c 65 25  |:..j.menuhandle%|
00000cb0  3d 31 30 31 0d 04 74 2a  f2 6f 70 65 6e 6d 65 6e  |=101..t*.openmen|
00000cc0  75 28 71 75 69 74 6d 65  6e 75 25 2c 6d 6f 75 73  |u(quitmenu%,mous|
00000cd0  65 78 25 2d 38 36 2c 31  37 36 2d 34 30 29 0d 04  |ex%-86,176-40)..|
00000ce0  7e 33 6d 65 6e 75 6f 70  65 6e 25 3d 71 75 69 74  |~3menuopen%=quit|
00000cf0  6d 65 6e 75 25 3a f4 20  6d 65 6e 75 20 6f 70 65  |menu%:. menu ope|
00000d00  6e 20 66 6c 61 67 20 28  66 6f 72 20 68 65 6c 70  |n flag (for help|
00000d10  29 0d 04 88 10 c9 20 6d  61 69 6e 68 61 6e 64 25  |)..... mainhand%|
00000d20  3a 0d 04 92 13 6d 65 6e  75 68 61 6e 64 6c 65 25  |:....menuhandle%|
00000d30  3d 31 30 32 0d 04 9c 11  f2 70 72 65 70 61 72 65  |=102.....prepare|
00000d40  6d 65 6e 75 73 0d 04 a6  2b f2 6f 70 65 6e 6d 65  |menus...+.openme|
00000d50  6e 75 28 6d 61 69 6e 6d  65 6e 75 25 2c 6d 6f 75  |nu(mainmenu%,mou|
00000d60  73 65 78 25 2d 36 34 2c  6d 6f 75 73 65 79 25 29  |sex%-64,mousey%)|
00000d70  0d 04 b0 33 6d 65 6e 75  6f 70 65 6e 25 3d 6d 61  |...3menuopen%=ma|
00000d80  69 6e 6d 65 6e 75 25 3a  f4 20 6d 65 6e 75 20 6f  |inmenu%:. menu o|
00000d90  70 65 6e 20 66 6c 61 67  20 28 66 6f 72 20 68 65  |pen flag (for he|
00000da0  6c 70 29 0d 04 ba 05 cb  0d 04 c4 05 cd 0d 04 ce  |lp).............|
00000db0  05 e1 0d 04 d8 05 3a 0d  04 e2 10 dd 20 f2 6d 61  |......:..... .ma|
00000dc0  6b 65 6d 65 6e 75 73 0d  04 ec 15 6d 65 6e 75 70  |kemenus....menup|
00000dd0  74 72 25 3d 6d 65 6e 75  62 75 66 25 0d 04 f6 0e  |tr%=menubuf%....|
00000de0  e3 20 4e 25 3d 31 20 b8  20 36 0d 05 00 3a 70 6c  |. N%=1 . 6...:pl|
00000df0  61 79 25 28 4e 25 2c 30  29 3d a4 6d 61 6b 65 6d  |ay%(N%,0)=.makem|
00000e00  65 6e 28 22 48 75 6d 61  6e 2c 43 6f 6d 70 75 74  |en("Human,Comput|
00000e10  65 72 22 2c 22 50 6c 61  79 65 72 20 22 2b c3 28  |er","Player "+.(|
00000e20  4e 25 29 29 0d 05 0a 05  ed 0d 05 14 e7 6d 61 69  |N%)).........mai|
00000e30  6e 6d 65 6e 75 25 3d a4  6d 61 6b 65 6d 65 6e 28  |nmenu%=.makemen(|
00000e40  22 4e 65 77 20 47 61 6d  65 2c 22 2b a4 73 75 62  |"New Game,"+.sub|
00000e50  28 22 50 6c 61 79 65 72  20 31 22 2c 70 6c 61 79  |("Player 1",play|
00000e60  25 28 31 2c 30 29 29 2b  22 2c 22 2b a4 73 75 62  |%(1,0))+","+.sub|
00000e70  28 22 50 6c 61 79 65 72  20 32 22 2c 70 6c 61 79  |("Player 2",play|
00000e80  25 28 32 2c 30 29 29 2b  22 2c 22 2b a4 73 75 62  |%(2,0))+","+.sub|
00000e90  28 22 50 6c 61 79 65 72  20 33 22 2c 70 6c 61 79  |("Player 3",play|
00000ea0  25 28 33 2c 30 29 29 2b  22 2c 22 2b a4 73 75 62  |%(3,0))+","+.sub|
00000eb0  28 22 50 6c 61 79 65 72  20 34 22 2c 70 6c 61 79  |("Player 4",play|
00000ec0  25 28 34 2c 30 29 29 2b  22 2c 22 2b a4 73 75 62  |%(4,0))+","+.sub|
00000ed0  28 22 50 6c 61 79 65 72  20 35 22 2c 70 6c 61 79  |("Player 5",play|
00000ee0  25 28 35 2c 30 29 29 2b  22 2c 22 2b a4 73 75 62  |%(5,0))+","+.sub|
00000ef0  28 22 50 6c 61 79 65 72  20 36 22 2c 70 6c 61 79  |("Player 6",play|
00000f00  25 28 36 2c 30 29 29 2c  22 41 74 6f 6d 73 22 29  |%(6,0)),"Atoms")|
00000f10  0d 05 1e 26 71 75 69 74  6d 65 6e 75 25 3d a4 6d  |...&quitmenu%=.m|
00000f20  61 6b 65 6d 65 6e 28 22  51 75 69 74 22 2c 22 41  |akemen("Quit","A|
00000f30  74 6f 6d 73 22 29 0d 05  28 05 e1 0d 05 32 05 3a  |toms")..(....2.:|
00000f40  0d 05 3c 13 dd 20 f2 70  72 65 70 61 72 65 6d 65  |..<.. .prepareme|
00000f50  6e 75 73 0d 05 46 0e e3  20 4e 25 3d 31 20 b8 20  |nus..F.. N%=1 . |
00000f60  36 0d 05 50 24 f2 74 69  63 6b 28 6d 61 69 6e 6d  |6..P$.tick(mainm|
00000f70  65 6e 75 25 2c 4e 25 2c  4e 25 3c 3d 70 6c 61 79  |enu%,N%,N%<=play|
00000f80  65 72 73 25 29 0d 05 5a  24 f2 74 69 63 6b 28 70  |ers%)..Z$.tick(p|
00000f90  6c 61 79 25 28 4e 25 2c  30 29 2c 70 6c 61 79 25  |lay%(N%,0),play%|
00000fa0  28 4e 25 2c 31 29 2c b9  29 0d 05 64 26 f2 74 69  |(N%,1),.)..d&.ti|
00000fb0  63 6b 28 70 6c 61 79 25  28 4e 25 2c 30 29 2c 31  |ck(play%(N%,0),1|
00000fc0  2d 70 6c 61 79 25 28 4e  25 2c 31 29 2c a3 29 0d  |-play%(N%,1),.).|
00000fd0  05 6e 3e e7 20 73 74 61  72 74 25 3d a3 20 f2 6c  |.n>. start%=. .l|
00000fe0  69 67 68 74 28 6d 61 69  6e 6d 65 6e 75 25 2c 4e  |ight(mainmenu%,N|
00000ff0  25 2c a3 29 20 8b 20 f2  6c 69 67 68 74 28 6d 61  |%,.) . .light(ma|
00001000  69 6e 6d 65 6e 75 25 2c  4e 25 2c b9 29 0d 05 78  |inmenu%,N%,.)..x|
00001010  05 ed 0d 05 82 05 e1 0d  05 8c 05 3a 0d 05 96 16  |...........:....|
00001020  dd 20 f2 6c 69 67 68 74  28 61 25 2c 69 25 2c 63  |. .light(a%,i%,c|
00001030  25 29 0d 05 a0 12 61 25  3d 61 25 2b 33 36 2b 32  |%)....a%=a%+36+2|
00001040  34 2a 69 25 0d 05 aa 34  e7 20 63 25 20 8c 20 21  |4*i%...4. c% . !|
00001050  61 25 3d 21 61 25 20 80  20 26 46 46 42 46 46 46  |a%=!a% . &FFBFFF|
00001060  46 46 20 8b 20 21 61 25  3d 21 61 25 20 84 20 26  |FF . !a%=!a% . &|
00001070  30 30 34 30 30 30 30 30  0d 05 b4 05 e1 0d 05 be  |00400000........|
00001080  05 3a 0d 05 c8 15 dd 20  f2 74 69 63 6b 28 61 25  |.:..... .tick(a%|
00001090  2c 69 25 2c 63 25 29 0d  05 d2 12 61 25 3d 61 25  |,i%,c%)....a%=a%|
000010a0  2b 32 38 2b 32 34 2a 69  25 0d 05 dc 2c e7 20 63  |+28+24*i%...,. c|
000010b0  25 20 8c 20 21 61 25 3d  21 61 25 20 84 20 31 20  |% . !a%=!a% . 1 |
000010c0  8b 20 21 61 25 3d 21 61  25 20 80 20 26 46 46 46  |. !a%=!a% . &FFF|
000010d0  46 46 46 46 45 0d 05 e6  05 e1 0d 05 f0 05 3a 0d  |FFFFE.........:.|
000010e0  05 fa 30 dd 20 a4 73 75  62 28 6d 24 2c 6d 25 29  |..0. .sub(m$,m%)|
000010f0  3d 22 7c 73 75 62 22 2b  c2 22 30 30 30 30 30 30  |="|sub"+."000000|
00001100  30 22 2b c3 28 6d 25 29  2c 31 32 29 2b 6d 24 0d  |0"+.(m%),12)+m$.|
00001110  06 04 05 3a 0d 06 0e 16  dd 20 f2 6d 65 6e 75 69  |...:..... .menui|
00001120  74 65 6d 28 74 65 78 74  24 29 0d 06 18 33 ea 20  |tem(text$)...3. |
00001130  6d 65 6e 75 66 6c 61 67  73 25 2c 69 63 6f 6e 66  |menuflags%,iconf|
00001140  6c 61 67 73 25 2c 73 75  62 6d 65 6e 75 25 2c 69  |lags%,submenu%,i|
00001150  6e 64 6c 65 6e 25 2c 76  61 6c 69 64 25 0d 06 22  |ndlen%,valid%.."|
00001160  0d 76 61 6c 69 64 25 3d  2d 31 0d 06 2c 09 69 69  |.valid%=-1..,.ii|
00001170  25 3d a3 0d 06 36 0e 69  6e 64 6c 65 6e 25 3d 2d  |%=...6.indlen%=-|
00001180  31 0d 06 40 0f 73 75 62  6d 65 6e 75 25 3d 2d 31  |1..@.submenu%=-1|
00001190  0d 06 4a 10 e7 20 74 65  78 74 24 3d 22 22 20 e1  |..J.. text$="" .|
000011a0  0d 06 54 10 6d 65 6e 75  66 6c 61 67 73 25 3d 30  |..T.menuflags%=0|
000011b0  0d 06 5e 18 69 63 6f 6e  66 6c 61 67 73 25 3d 26  |..^.iconflags%=&|
000011c0  30 37 30 30 30 30 32 31  0d 06 68 14 c8 95 20 c0  |07000021..h... .|
000011d0  74 65 78 74 24 2c 31 29  3d 22 7c 22 0d 06 72 14  |text$,1)="|"..r.|
000011e0  c8 8e 20 c1 74 65 78 74  24 2c 32 2c 33 29 20 ca  |.. .text$,2,3) .|
000011f0  0d 06 7c 0c c9 20 22 73  75 62 22 3a 0d 06 86 1c  |..|.. "sub":....|
00001200  73 75 62 6d 65 6e 75 25  3d bb 28 c1 74 65 78 74  |submenu%=.(.text|
00001210  24 2c 35 2c 31 32 29 29  0d 06 90 14 74 65 78 74  |$,5,12))....text|
00001220  24 3d c1 74 65 78 74 24  2c 31 37 29 0d 06 9a 0c  |$=.text$,17)....|
00001230  c9 20 22 77 69 6e 22 3a  0d 06 a4 14 c8 8e 20 c1  |. "win":...... .|
00001240  74 65 78 74 24 2c 35 2c  32 29 20 ca 0d 06 ae 1d  |text$,5,2) .....|
00001250  c9 20 22 73 76 22 3a 73  75 62 6d 65 6e 75 25 3d  |. "sv":submenu%=|
00001260  73 61 76 65 68 61 6e 64  25 0d 06 b8 1d c9 20 22  |savehand%..... "|
00001270  7a 6d 22 3a 73 75 62 6d  65 6e 75 25 3d 7a 6f 6f  |zm":submenu%=zoo|
00001280  6d 68 61 6e 64 25 0d 06  c2 1d c9 20 22 69 64 22  |mhand%..... "id"|
00001290  3a 73 75 62 6d 65 6e 75  25 3d 69 6e 66 6f 68 61  |:submenu%=infoha|
000012a0  6e 64 25 0d 06 cc 05 cb  0d 06 d6 13 74 65 78 74  |nd%.........text|
000012b0  24 3d c1 74 65 78 74 24  2c 37 29 0d 06 e0 05 cb  |$=.text$,7).....|
000012c0  0d 06 ea 05 ce 0d 06 f4  29 e7 20 a9 28 74 65 78  |........). .(tex|
000012d0  74 24 29 3e 6d 65 6e 75  6d 61 78 25 20 6d 65 6e  |t$)>menumax% men|
000012e0  75 6d 61 78 25 3d a9 28  74 65 78 74 24 29 0d 06  |umax%=.(text$)..|
000012f0  fe 19 6d 65 6e 75 70 74  72 25 21 30 3d 6d 65 6e  |..menuptr%!0=men|
00001300  75 66 6c 61 67 73 25 0d  07 08 17 6d 65 6e 75 70  |uflags%....menup|
00001310  74 72 25 21 34 3d 73 75  62 6d 65 6e 75 25 0d 07  |tr%!4=submenu%..|
00001320  12 19 6d 65 6e 75 70 74  72 25 21 38 3d 69 63 6f  |..menuptr%!8=ico|
00001330  6e 66 6c 61 67 73 25 0d  07 1c 22 e7 20 a9 28 74  |nflags%...". .(t|
00001340  65 78 74 24 29 3e 31 31  20 69 6e 64 6c 65 6e 25  |ext$)>11 indlen%|
00001350  3d a9 28 74 65 78 74 24  29 0d 07 26 11 e7 20 69  |=.(text$)..&.. i|
00001360  6e 64 6c 65 6e 25 3c 30  20 8c 0d 07 30 18 24 28  |ndlen%<0 ...0.$(|
00001370  6d 65 6e 75 70 74 72 25  2b 31 32 29 3d 74 65 78  |menuptr%+12)=tex|
00001380  74 24 0d 07 3a 05 cc 0d  07 44 1f 6d 65 6e 65 6e  |t$..:....D.menen|
00001390  64 25 3d 6d 65 6e 65 6e  64 25 2d 28 69 6e 64 6c  |d%=menend%-(indl|
000013a0  65 6e 25 2b 31 29 0d 07  4e 28 6d 65 6e 75 70 74  |en%+1)..N(menupt|
000013b0  72 25 21 38 3d 28 6d 65  6e 75 70 74 72 25 21 38  |r%!8=(menuptr%!8|
000013c0  29 20 84 20 25 31 30 30  30 30 30 30 30 30 0d 07  |) . %100000000..|
000013d0  58 17 6d 65 6e 75 70 74  72 25 21 31 32 3d 6d 65  |X.menuptr%!12=me|
000013e0  6e 65 6e 64 25 0d 07 62  16 6d 65 6e 75 70 74 72  |nend%..b.menuptr|
000013f0  25 21 31 36 3d 76 61 6c  69 64 25 0d 07 6c 17 6d  |%!16=valid%..l.m|
00001400  65 6e 75 70 74 72 25 21  32 30 3d 69 6e 64 6c 65  |enuptr%!20=indle|
00001410  6e 25 0d 07 76 12 24 6d  65 6e 65 6e 64 25 3d 74  |n%..v.$menend%=t|
00001420  65 78 74 24 0d 07 80 05  cd 0d 07 8a 10 6d 65 6e  |ext$.........men|
00001430  75 70 74 72 25 2b 3d 32  34 0d 07 94 05 e1 0d 07  |uptr%+=24.......|
00001440  9e 05 3a 0d 07 a8 10 dd  20 a4 70 61 72 28 73 65  |..:..... .par(se|
00001450  70 24 29 0d 07 b2 25 69  31 25 3d 69 25 2b 31 3a  |p$)...%i1%=i%+1:|
00001460  69 25 3d a7 6d 65 6e 75  24 2b 73 65 70 24 2c 73  |i%=.menu$+sep$,s|
00001470  65 70 24 2c 69 31 25 29  0d 07 bc 17 3d c1 6d 65  |ep$,i1%)....=.me|
00001480  6e 75 24 2c 69 31 25 2c  69 25 2d 69 31 25 29 0d  |nu$,i1%,i%-i1%).|
00001490  07 c6 05 3a 0d 07 d0 20  dd 20 a4 6d 61 6b 65 6d  |...:... . .makem|
000014a0  65 6e 28 6d 65 6e 75 24  2c 6d 65 6e 75 74 69 74  |en(menu$,menutit|
000014b0  6c 65 24 29 0d 07 da 16  ea 20 6d 65 6e 75 6d 61  |le$)..... menuma|
000014c0  78 25 2c 77 61 73 70 74  72 25 0d 07 e4 14 77 61  |x%,wasptr%....wa|
000014d0  73 70 74 72 25 3d 6d 65  6e 75 70 74 72 25 0d 07  |sptr%=menuptr%..|
000014e0  ee 0f 6d 65 6e 75 6d 61  78 25 3d 31 30 0d 07 f8  |..menumax%=10...|
000014f0  08 69 25 3d 30 0d 08 02  12 6d 65 6e 75 70 74 72  |.i%=0....menuptr|
00001500  25 21 32 30 3d 34 34 0d  08 0c 18 24 6d 65 6e 75  |%!20=44....$menu|
00001510  70 74 72 25 3d 6d 65 6e  75 74 69 74 6c 65 24 0d  |ptr%=menutitle$.|
00001520  08 16 11 6d 65 6e 75 70  74 72 25 3f 31 32 3d 37  |...menuptr%?12=7|
00001530  0d 08 20 11 6d 65 6e 75  70 74 72 25 3f 31 33 3d  |.. .menuptr%?13=|
00001540  32 0d 08 2a 11 6d 65 6e  75 70 74 72 25 3f 31 34  |2..*.menuptr%?14|
00001550  3d 37 0d 08 34 11 6d 65  6e 75 70 74 72 25 3f 31  |=7..4.menuptr%?1|
00001560  35 3d 30 0d 08 3e 18 6d  61 78 61 64 64 72 25 3d  |5=0..>.maxaddr%=|
00001570  6d 65 6e 75 70 74 72 25  2b 31 36 0d 08 48 11 6d  |menuptr%+16..H.m|
00001580  65 6e 75 70 74 72 25 21  32 34 3d 30 0d 08 52 10  |enuptr%!24=0..R.|
00001590  6d 65 6e 75 70 74 72 25  2b 3d 32 38 0d 08 5c 05  |menuptr%+=28..\.|
000015a0  f5 0d 08 66 13 69 74 65  6d 24 3d a4 70 61 72 28  |...f.item$=.par(|
000015b0  22 2c 22 29 0d 08 70 14  f2 6d 65 6e 75 69 74 65  |",")..p..menuite|
000015c0  6d 28 69 74 65 6d 24 29  0d 08 7a 0e fd 20 69 74  |m(item$)..z.. it|
000015d0  65 6d 24 3d 22 22 0d 08  84 25 6d 65 6e 75 70 74  |em$=""...%menupt|
000015e0  72 25 21 2d 32 34 3d 28  6d 65 6e 75 70 74 72 25  |r%!-24=(menuptr%|
000015f0  21 2d 32 34 29 20 84 20  26 38 30 0d 08 8e 1c 21  |!-24) . &80....!|
00001600  6d 61 78 61 64 64 72 25  3d 6d 65 6e 75 6d 61 78  |maxaddr%=menumax|
00001610  25 2a 31 36 2b 33 32 0d  08 98 0c 3d 77 61 73 70  |%*16+32....=wasp|
00001620  74 72 25 0d 08 a2 05 3a  0d 08 ac 19 dd 20 f2 6f  |tr%....:..... .o|
00001630  70 65 6e 6d 65 6e 75 28  6d 25 2c 78 25 2c 79 25  |penmenu(m%,x%,y%|
00001640  29 0d 08 b6 0d 6d 65 6e  75 78 25 3d 78 25 0d 08  |)....menux%=x%..|
00001650  c0 0d 6d 65 6e 75 79 25  3d 79 25 0d 08 ca 22 c8  |..menuy%=y%...".|
00001660  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00001670  6e 75 22 2c 2c 6d 25 2c  78 25 2c 79 25 0d 08 d4  |nu",,m%,x%,y%...|
00001680  05 e1 0d 08 de 05 3a 0d  08 e8 19 dd 20 f2 6d 65  |......:..... .me|
00001690  6e 75 73 65 6c 65 63 74  28 6d 65 6e 75 73 25 29  |nuselect(menus%)|
000016a0  0d 08 f2 14 c8 8e 20 6d  65 6e 75 68 61 6e 64 6c  |...... menuhandl|
000016b0  65 25 20 ca 0d 08 fc 1e  c9 20 31 30 31 3a 20 e7  |e% ...... 101: .|
000016c0  20 21 6d 65 6e 75 73 25  3d 30 20 f2 66 69 6e 69  | !menus%=0 .fini|
000016d0  73 68 0d 09 06 1a c9 20  31 30 32 3a 20 f2 64 65  |sh..... 102: .de|
000016e0  63 6f 64 65 6d 61 69 6e  6d 65 6e 75 0d 09 10 05  |codemainmenu....|
000016f0  cb 0d 09 1a 05 e1 0d 09  24 05 3a 0d 09 2e 15 dd  |........$.:.....|
00001700  20 f2 64 65 63 6f 64 65  6d 61 69 6e 6d 65 6e 75  | .decodemainmenu|
00001710  0d 09 38 0b ea 20 72 65  64 6f 25 0d 09 42 21 c8  |..8.. redo%..B!.|
00001720  99 20 22 57 69 6d 70 5f  47 65 74 50 6f 69 6e 74  |. "Wimp_GetPoint|
00001730  65 72 49 6e 66 6f 22 2c  2c 71 32 25 0d 09 4c 1b  |erInfo",,q2%..L.|
00001740  72 65 64 6f 25 3d 28 28  28 71 32 25 21 38 29 20  |redo%=(((q2%!8) |
00001750  80 20 31 29 3e 30 29 0d  09 56 10 c8 8e 20 21 6d  |. 1)>0)..V... !m|
00001760  65 6e 75 73 25 20 ca 0d  09 60 10 c9 20 30 3a f2  |enus% ...`.. 0:.|
00001770  6e 65 77 67 61 6d 65 0d  09 6a 12 c9 20 31 2c 32  |newgame..j.. 1,2|
00001780  2c 33 2c 34 2c 35 2c 36  3a 0d 09 74 39 20 e7 20  |,3,4,5,6:..t9 . |
00001790  70 6c 61 79 65 72 73 25  3c 6d 65 6e 75 73 25 21  |players%<menus%!|
000017a0  30 20 84 20 6d 65 6e 75  73 25 21 34 3c 30 20 8c  |0 . menus%!4<0 .|
000017b0  20 70 6c 61 79 65 72 73  25 3d 6d 65 6e 75 73 25  | players%=menus%|
000017c0  21 30 0d 09 7e 36 20 e7  20 70 6c 61 79 65 72 73  |!0..~6 . players|
000017d0  25 3c 32 20 70 6c 61 79  65 72 73 25 3d 32 20 8b  |%<2 players%=2 .|
000017e0  20 e7 20 70 6c 61 79 65  72 73 25 3e 36 20 70 6c  | . players%>6 pl|
000017f0  61 79 65 72 73 25 3d 36  0d 09 88 14 20 e7 20 6d  |ayers%=6.... . m|
00001800  65 6e 75 73 25 21 34 3e  3d 30 20 8c 0d 09 92 1f  |enus%!4>=0 .....|
00001810  20 20 70 6c 61 79 25 28  21 6d 65 6e 75 73 25 2c  |  play%(!menus%,|
00001820  31 29 3d 6d 65 6e 75 73  25 21 34 0d 09 9c 06 20  |1)=menus%!4.... |
00001830  cd 0d 09 a6 05 cb 0d 09  b0 1a 73 74 69 6c 6c 5f  |..........still_|
00001840  70 6c 61 79 69 6e 67 3d  70 6c 61 79 65 72 73 25  |playing=players%|
00001850  0d 09 ba 0f 6d 65 6e 75  6f 70 65 6e 25 3d 30 0d  |....menuopen%=0.|
00001860  09 c4 50 e7 20 72 65 64  6f 25 20 f2 70 72 65 70  |..P. redo% .prep|
00001870  61 72 65 6d 65 6e 75 73  3a f2 6f 70 65 6e 6d 65  |aremenus:.openme|
00001880  6e 75 28 6d 61 69 6e 6d  65 6e 75 25 2c 6d 65 6e  |nu(mainmenu%,men|
00001890  75 78 25 2c 6d 65 6e 75  79 25 29 3a 6d 65 6e 75  |ux%,menuy%):menu|
000018a0  6f 70 65 6e 25 3d 6d 61  69 6e 6d 65 6e 75 25 0d  |open%=mainmenu%.|
000018b0  09 ce 05 e1 0d 09 d8 05  3a 0d 09 e2 12 dd 20 f2  |........:..... .|
000018c0  65 78 74 72 61 63 74 28  71 25 29 0d 09 ec 13 61  |extract(q%)....a|
000018d0  78 30 25 3d 71 25 21 34  2d 71 25 21 32 30 0d 09  |x0%=q%!4-q%!20..|
000018e0  f6 14 61 79 30 25 3d 71  25 21 31 36 2d 71 25 21  |..ay0%=q%!16-q%!|
000018f0  32 34 0d 0a 00 13 67 78  30 25 3d 71 25 21 32 38  |24....gx0%=q%!28|
00001900  2d 61 78 30 25 0d 0a 0a  13 67 79 30 25 3d 71 25  |-ax0%....gy0%=q%|
00001910  21 33 32 2d 61 79 30 25  0d 0a 14 13 67 78 31 25  |!32-ay0%....gx1%|
00001920  3d 71 25 21 33 36 2d 61  78 30 25 0d 0a 1e 13 67  |=q%!36-ax0%....g|
00001930  79 31 25 3d 71 25 21 34  30 2d 61 79 30 25 0d 0a  |y1%=q%!40-ay0%..|
00001940  28 05 e1 0d 0a 32 05 3a  0d 0a 3c 19 dd 20 f2 66  |(....2.:..<.. .f|
00001950  6f 72 63 65 72 65 64 72  61 77 28 68 61 6e 64 25  |orceredraw(hand%|
00001960  29 0d 0a 46 0e 21 71 32  25 3d 68 61 6e 64 25 0d  |)..F.!q2%=hand%.|
00001970  0a 50 20 c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |.P .. "Wimp_GetW|
00001980  69 6e 64 6f 77 49 6e 66  6f 22 2c 2c 71 32 25 0d  |indowInfo",,q2%.|
00001990  0a 5a 3b c8 99 20 22 57  69 6d 70 5f 46 6f 72 63  |.Z;.. "Wimp_Forc|
000019a0  65 52 65 64 72 61 77 22  2c 68 61 6e 64 25 2c 71  |eRedraw",hand%,q|
000019b0  32 25 21 34 34 2c 71 32  25 21 34 38 2c 71 32 25  |2%!44,q2%!48,q2%|
000019c0  21 35 32 2c 71 32 25 21  35 36 0d 0a 64 05 e1 0d  |!52,q2%!56..d...|
000019d0  0a 6e 05 3a 0d 0a 78 12  dd 20 f2 69 6e 69 74 77  |.n.:..x.. .initw|
000019e0  69 6e 64 6f 77 73 0d 0a  82 1f 6d 61 69 6e 68 61  |indows....mainha|
000019f0  6e 64 25 3d a4 63 77 69  6e 64 6f 77 28 22 41 74  |nd%=.cwindow("At|
00001a00  6f 6d 73 22 29 0d 0a 8c  05 e1 0d 0a 96 05 3a 0d  |oms").........:.|
00001a10  0a a0 11 dd a4 63 77 69  6e 64 6f 77 28 41 24 29  |.....cwindow(A$)|
00001a20  0d 0a aa 0a 66 25 3d 26  30 46 0d 0a b4 09 66 63  |....f%=&0F....fc|
00001a30  25 3d 30 0d 0a be 09 62  63 25 3d 37 0d 0a c8 09  |%=0....bc%=7....|
00001a40  78 30 25 3d 30 0d 0a d2  09 79 30 25 3d 30 0d 0a  |x0%=0....y0%=0..|
00001a50  dc 16 78 31 25 3d 36 30  30 20 20 20 3a f4 20 6d  |..x1%=600   :. m|
00001a60  61 78 5f 78 0d 0a e6 16  79 31 25 3d 35 30 30 20  |ax_x....y1%=500 |
00001a70  20 20 3a f4 20 6d 61 78  5f 79 0d 0a f0 14 63 78  |  :. max_y....cx|
00001a80  30 25 3d 38 30 30 20 20  3a f4 20 77 61 6c 0d 0a  |0%=800  :. wal..|
00001a90  fa 14 63 79 30 25 3d 37  30 30 20 20 3a f4 20 77  |..cy0%=700  :. w|
00001aa0  61 62 0d 0b 04 14 63 78  31 25 3d 31 30 30 30 30  |ab....cx1%=10000|
00001ab0  3a f4 20 77 61 72 0d 0b  0e 14 63 79 31 25 3d 31  |:. war....cy1%=1|
00001ac0  30 30 30 30 3a f4 20 77  61 74 0d 0b 18 0d 6e 69  |0000:. wat....ni|
00001ad0  63 6f 6e 73 25 3d 30 0d  0b 22 58 3d a4 63 72 65  |cons%=0.."X=.cre|
00001ae0  61 74 65 5f 77 69 6e 64  6f 77 28 63 78 30 25 2c  |ate_window(cx0%,|
00001af0  63 79 30 25 2c 63 78 31  25 2c 63 79 31 25 2c 30  |cy0%,cx1%,cy1%,0|
00001b00  2c 79 31 25 2c 66 25 2c  66 63 25 2c 62 63 25 2c  |,y1%,f%,fc%,bc%,|
00001b10  78 30 25 2c 79 30 25 2c  78 31 25 2c 79 31 25 2c  |x0%,y0%,x1%,y1%,|
00001b20  26 32 44 2c 41 24 2c 6e  69 63 6f 6e 73 25 29 0d  |&2D,A$,nicons%).|
00001b30  0b 2c 05 3a 0d 0b 36 6c  dd a4 63 72 65 61 74 65  |.,.:..6l..create|
00001b40  5f 77 69 6e 64 6f 77 28  63 78 30 25 2c 63 79 30  |_window(cx0%,cy0|
00001b50  25 2c 63 78 31 25 2c 63  79 31 25 2c 73 63 78 25  |%,cx1%,cy1%,scx%|
00001b60  2c 73 63 79 25 2c 66 6c  61 67 73 25 2c 66 63 25  |,scy%,flags%,fc%|
00001b70  2c 62 63 25 2c 73 78 30  25 2c 73 79 30 25 2c 73  |,bc%,sx0%,sy0%,s|
00001b80  78 31 25 2c 73 79 31 25  2c 74 69 74 6c 65 66 25  |x1%,sy1%,titlef%|
00001b90  2c 74 69 74 6c 65 24 2c  6e 69 63 6f 6e 73 25 29  |,title$,nicons%)|
00001ba0  0d 0b 40 41 21 71 25 3d  63 78 30 25 3a 71 25 21  |..@A!q%=cx0%:q%!|
00001bb0  34 3d 63 79 30 25 3a 71  25 21 38 3d 63 78 31 25  |4=cy0%:q%!8=cx1%|
00001bc0  3a 71 25 21 31 32 3d 63  79 31 25 3a 71 25 21 31  |:q%!12=cy1%:q%!1|
00001bd0  36 3d 73 63 78 25 3a 71  25 21 32 30 3d 73 63 79  |6=scx%:q%!20=scy|
00001be0  25 0d 0b 4a 19 71 25 21  32 34 3d 2d 31 3a 71 25  |%..J.q%!24=-1:q%|
00001bf0  21 32 38 3d 66 6c 61 67  73 25 0d 0b 54 13 e7 66  |!28=flags%..T..f|
00001c00  63 25 3d 31 35 80 62 63  25 3d 31 35 8c 0d 0b 5e  |c%=15.bc%=15...^|
00001c10  29 71 25 3f 33 32 3d 31  35 3a 71 25 3f 33 33 3d  |)q%?32=15:q%?33=|
00001c20  31 35 3a 71 25 3f 33 34  3d 66 63 25 3a 71 25 3f  |15:q%?34=fc%:q%?|
00001c30  33 35 3d 62 63 25 0d 0b  68 29 cc 20 71 25 3f 33  |35=bc%..h). q%?3|
00001c40  32 3d 37 3a 71 25 3f 33  33 3d 32 3a 71 25 3f 33  |2=7:q%?33=2:q%?3|
00001c50  34 3d 66 63 25 3a 71 25  3f 33 35 3d 62 63 25 0d  |4=fc%:q%?35=bc%.|
00001c60  0b 72 05 cd 0d 0b 7c 24  71 25 3f 33 36 3d 33 3a  |.r....|$q%?36=3:|
00001c70  71 25 3f 33 37 3d 31 3a  71 25 3f 33 38 3d 31 32  |q%?37=1:q%?38=12|
00001c80  3a 71 25 3f 33 39 3d 30  0d 0b 86 2f 71 25 21 34  |:q%?39=0.../q%!4|
00001c90  30 3d 73 78 30 25 3a 71  25 21 34 34 3d 73 79 30  |0=sx0%:q%!44=sy0|
00001ca0  25 3a 71 25 21 34 38 3d  73 78 31 25 3a 71 25 21  |%:q%!48=sx1%:q%!|
00001cb0  35 32 3d 73 79 31 25 0d  0b 90 11 71 25 21 35 36  |52=sy1%....q%!56|
00001cc0  3d 74 69 74 6c 65 66 25  0d 0b 9a 28 71 25 21 36  |=titlef%...(q%!6|
00001cd0  30 3d 26 33 30 30 30 20  20 20 20 20 20 3a 20 f4  |0=&3000      : .|
00001ce0  20 77 6f 72 6b 20 61 72  65 61 20 66 6c 61 67 73  | work area flags|
00001cf0  0d 0b a4 21 71 25 21 36  34 3d 30 3a 71 25 21 36  |...!q%!64=0:q%!6|
00001d00  38 3d 30 20 20 3a 20 f4  20 72 65 73 65 72 76 65  |8=0  : . reserve|
00001d10  64 0d 0b ae 18 24 28 71  25 2b 37 32 29 3d c0 74  |d....$(q%+72)=.t|
00001d20  69 74 6c 65 24 2c 31 31  29 0d 0b b8 11 71 25 21  |itle$,11)....q%!|
00001d30  38 34 3d 6e 69 63 6f 6e  73 25 0d 0b c2 29 ea 49  |84=nicons%...).I|
00001d40  25 2c 78 30 25 2c 79 30  25 2c 78 31 25 2c 79 31  |%,x0%,y0%,x1%,y1|
00001d50  25 2c 66 25 2c 64 61 74  61 24 3a 49 25 3d 71 25  |%,f%,data$:I%=q%|
00001d60  2b 38 38 0d 0b cc 10 c8  95 20 6e 69 63 6f 6e 73  |+88...... nicons|
00001d70  25 3e 30 0d 0b d6 26 f3  20 78 30 25 2c 79 30 25  |%>0...&. x0%,y0%|
00001d80  2c 78 31 25 2c 79 31 25  2c 66 25 2c 66 63 25 2c  |,x1%,y1%,f%,fc%,|
00001d90  62 63 25 2c 64 61 74 61  24 0d 0b e0 28 49 25 21  |bc%,data$...(I%!|
00001da0  30 3d 78 30 25 3a 49 25  21 34 3d 79 30 25 3a 49  |0=x0%:I%!4=y0%:I|
00001db0  25 21 38 3d 78 31 25 3a  49 25 21 31 32 3d 79 31  |%!8=x1%:I%!12=y1|
00001dc0  25 0d 0b ea 23 e7 20 28  66 25 80 26 34 30 29 3d  |%...#. (f%.&40)=|
00001dd0  30 20 8c 20 62 63 25 3d  66 63 25 2b 28 62 63 25  |0 . bc%=fc%+(bc%|
00001de0  3c 3c 34 29 0d 0b f4 16  49 25 21 31 36 3d 66 25  |<<4)....I%!16=f%|
00001df0  2b 28 62 63 25 3c 3c 32  34 29 0d 0b fe 0f e7 28  |+(bc%<<24).....(|
00001e00  66 25 80 26 31 30 30 29  8c 0d 0c 08 3c f3 20 4c  |f%.&100)....<. L|
00001e10  25 3a 42 25 3d a4 62 75  66 66 65 72 28 4c 25 29  |%:B%=.buffer(L%)|
00001e20  3a 49 25 21 32 30 3d 42  25 3a 24 42 25 3d 64 61  |:I%!20=B%:$B%=da|
00001e30  74 61 24 3a 49 25 21 32  34 3d 2d 31 3a 49 25 21  |ta$:I%!24=-1:I%!|
00001e40  32 38 3d 4c 25 0d 0c 12  05 cc 0d 0c 1c 12 24 28  |28=L%.........$(|
00001e50  49 25 2b 32 30 29 3d 64  61 74 61 24 0d 0c 26 05  |I%+20)=data$..&.|
00001e60  cd 0d 0c 30 1e 49 25 3d  49 25 2b 33 32 3a 6e 69  |...0.I%=I%+32:ni|
00001e70  63 6f 6e 73 25 3d 6e 69  63 6f 6e 73 25 2d 31 0d  |cons%=nicons%-1.|
00001e80  0c 3a 05 ce 0d 0c 44 1c  c8 99 20 43 72 65 61 74  |.:....D... Creat|
00001e90  65 57 2c 2c 71 25 20 b8  20 68 61 6e 64 6c 65 25  |eW,,q% . handle%|
00001ea0  0d 0c 4e 0c 3d 68 61 6e  64 6c 65 25 0d 0c 58 05  |..N.=handle%..X.|
00001eb0  3a 0d 0c 62 10 dd 20 f2  69 6e 69 74 66 6c 61 67  |:..b.. .initflag|
00001ec0  73 0d 0c 6c 0d 61 63 74  69 76 65 25 3d a3 0d 0c  |s..l.active%=...|
00001ed0  76 05 e1 0d 0c 80 05 3a  0d 0c 8a 10 dd 20 f2 63  |v......:..... .c|
00001ee0  6c 6f 73 65 6d 65 6e 75  0d 0c 94 1c c8 99 20 22  |losemenu...... "|
00001ef0  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00001f00  2c 2c 2d 31 0d 0c 9e 05  e1 0d 0c a8 05 3a 0d 0c  |,,-1.........:..|
00001f10  b2 19 dd 20 f2 63 6c 6f  73 65 77 69 6e 64 6f 77  |... .closewindow|
00001f20  28 68 61 6e 64 25 29 0d  0c bc 0d 21 71 25 3d 68  |(hand%)....!q%=h|
00001f30  61 6e 64 25 0d 0c c6 1d  c8 99 20 22 57 69 6d 70  |and%...... "Wimp|
00001f40  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 71  |_CloseWindow",,q|
00001f50  25 0d 0c d0 1f e7 20 68  61 6e 64 25 3d 6d 61 69  |%..... hand%=mai|
00001f60  6e 68 61 6e 64 25 20 61  63 74 69 76 65 25 3d a3  |nhand% active%=.|
00001f70  0d 0c da 05 e1 0d 0c e4  05 3a 0d 0c ee 0c dd f2  |.........:......|
00001f80  66 69 6e 69 73 68 0d 0c  f8 0e 24 71 25 3d 22 54  |finish....$q%="T|
00001f90  41 53 4b 22 0d 0d 02 23  c8 99 20 22 57 69 6d 70  |ASK"...#.. "Wimp|
00001fa0  5f 43 6c 6f 73 65 44 6f  77 6e 22 2c 6d 79 74 61  |_CloseDown",myta|
00001fb0  73 6b 25 2c 21 71 25 0d  0d 0c 05 e0 0d 0d 16 05  |sk%,!q%.........|
00001fc0  e1 0d 0d 20 05 3a 0d 0d  2a 0b dd f2 66 72 6f 6e  |... .:..*...fron|
00001fd0  74 0d 0d 34 11 21 71 25  3d 6d 61 69 6e 68 61 6e  |t..4.!q%=mainhan|
00001fe0  64 25 0d 0d 3e 20 c8 99  20 22 57 69 6d 70 5f 47  |d%..> .. "Wimp_G|
00001ff0  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00002000  71 25 0d 0d 48 0c 71 25  21 32 38 3d 2d 31 0d 0d  |q%..H.q%!28=-1..|
00002010  52 1c c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |R... "Wimp_OpenW|
00002020  69 6e 64 6f 77 22 2c 2c  71 25 0d 0d 5c 05 e1 0d  |indow",,q%..\...|
00002030  0d 66 05 3a 0d 0d 70 0d  dd 20 f2 72 65 6f 70 65  |.f.:..p.. .reope|
00002040  6e 0d 0d 7a 11 21 71 25  3d 6d 61 69 6e 68 61 6e  |n..z.!q%=mainhan|
00002050  64 25 0d 0d 84 0c 71 25  21 32 38 3d 2d 31 0d 0d  |d%....q%!28=-1..|
00002060  8e 0c 71 25 21 34 3d 32  30 30 0d 0d 98 0c 71 25  |..q%!4=200....q%|
00002070  21 38 3d 33 30 30 0d 0d  a2 0d 71 25 21 31 32 3d  |!8=300....q%!12=|
00002080  37 30 30 0d 0d ac 0d 71  25 21 31 36 3d 38 30 30  |700....q%!16=800|
00002090  0d 0d b6 0b 71 25 21 32  30 3d 30 0d 0d c0 0b 71  |....q%!20=0....q|
000020a0  25 21 32 34 3d 30 0d 0d  ca 1c c8 99 20 22 57 69  |%!24=0...... "Wi|
000020b0  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
000020c0  71 25 0d 0d d4 0d 61 63  74 69 76 65 25 3d b9 0d  |q%....active%=..|
000020d0  0d de 05 e1 0d 0d e8 05  3a 0d 0d f2 0a dd f2 76  |........:......v|
000020e0  61 72 73 0d 0d fc 1e 57  69 6d 70 20 20 20 20 3d  |ars....Wimp    =|
000020f0  20 28 31 3c 3c 31 38 29  20 2b 20 28 33 3c 3c 36  | (1<<18) + (3<<6|
00002100  29 0d 0e 06 14 43 72 65  61 74 65 57 20 3d 20 57  |)....CreateW = W|
00002110  69 6d 70 2b 31 0d 0e 10  14 4f 70 65 6e 57 20 20  |imp+1....OpenW  |
00002120  20 3d 20 57 69 6d 70 2b  35 0d 0e 1a 14 43 6c 6f  | = Wimp+5....Clo|
00002130  73 65 57 20 20 3d 20 57  69 6d 70 2b 36 0d 0e 24  |seW  = Wimp+6..$|
00002140  14 52 65 64 72 61 77 57  20 3d 20 57 69 6d 70 2b  |.RedrawW = Wimp+|
00002150  38 0d 0e 2e 14 55 70 64  61 74 65 57 20 3d 20 57  |8....UpdateW = W|
00002160  69 6d 70 2b 39 0d 0e 38  15 47 65 74 52 25 20 20  |imp+9..8.GetR%  |
00002170  20 3d 20 57 69 6d 70 2b  31 30 0d 0e 42 15 47 65  | = Wimp+10..B.Ge|
00002180  74 57 20 20 20 20 3d 20  57 69 6d 70 2b 31 31 0d  |tW    = Wimp+11.|
00002190  0e 4c 15 47 65 74 50 20  20 20 20 3d 20 57 69 6d  |.L.GetP    = Wim|
000021a0  70 2b 31 35 0d 0e 56 15  44 72 61 67 20 20 20 20  |p+15..V.Drag    |
000021b0  3d 20 57 69 6d 70 2b 31  36 0d 0e 60 15 43 72 4d  |= Wimp+16..`.CrM|
000021c0  65 6e 75 20 20 3d 20 57  69 6d 70 2b 32 30 0d 0e  |enu  = Wimp+20..|
000021d0  6a 15 44 63 4d 65 6e 75  20 20 3d 20 57 69 6d 70  |j.DcMenu  = Wimp|
000021e0  2b 32 31 0d 0e 74 05 e1  0d 0e 7e 05 3a 0d 0e 88  |+21..t....~.:...|
000021f0  0e dd f2 65 72 72 6f 72  62 6f 78 0d 0e 92 0b ea  |...errorbox.....|
00002200  20 77 68 61 74 25 0d 0e  9c 0f c8 99 20 44 72 61  | what%...... Dra|
00002210  67 2c 2c 2d 31 0d 0e a6  34 21 62 75 66 66 65 72  |g,,-1...4!buffer|
00002220  73 25 3d 9f 3a 24 28 62  75 66 66 65 72 73 25 2b  |s%=.:$(buffers%+|
00002230  34 29 3d f6 24 2b 22 20  61 74 20 6c 69 6e 65 20  |4)=.$+" at line |
00002240  22 2b c3 28 9e 29 2b bd  30 0d 0e b0 33 c8 99 20  |"+.(.)+.0...3.. |
00002250  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
00002260  72 22 2c 62 75 66 66 65  72 73 25 2c 33 2c 6e 61  |r",buffers%,3,na|
00002270  6d 65 24 20 b8 20 2c 77  68 61 74 25 0d 0e ba 15  |me$ . ,what%....|
00002280  e7 20 77 68 61 74 25 3d  32 20 f2 66 69 6e 69 73  |. what%=2 .finis|
00002290  68 0d 0e c4 05 e1 0d 0e  ce 05 3a 0d 0e d8 0a dd  |h.........:.....|
000022a0  f2 69 6e 69 74 0d 0e e2  10 ee 85 3a f2 66 69 6e  |.init......:.fin|
000022b0  69 73 68 3a e0 0d 0e ec  09 f2 76 61 72 73 0d 0e  |ish:......vars..|
000022c0  f6 0d de 20 74 62 6c 25  20 32 30 0d 0f 00 1e de  |... tbl% 20.....|
000022d0  20 74 61 73 6b 69 64 25  34 3a 24 74 61 73 6b 69  | taskid%4:$taski|
000022e0  64 25 3d 22 54 41 53 4b  22 0d 0f 0a 3e c8 99 20  |d%="TASK"...>.. |
000022f0  22 57 69 6d 70 5f 49 6e  69 74 69 61 6c 69 73 65  |"Wimp_Initialise|
00002300  22 2c 32 30 30 2c 21 74  61 73 6b 69 64 25 2c 6e  |",200,!taskid%,n|
00002310  61 6d 65 24 20 b8 20 76  65 72 73 69 6f 6e 25 2c  |ame$ . version%,|
00002320  6d 79 74 61 73 6b 25 0d  0f 14 49 de 20 71 25 20  |mytask%...I. q% |
00002330  26 35 30 30 2c 62 75 66  66 65 72 73 25 20 26 31  |&500,buffers% &1|
00002340  30 30 2c 69 63 6f 6e 69  6e 66 25 20 26 32 30 30  |00,iconinf% &200|
00002350  2c 6d 65 6e 75 62 75 66  25 20 26 34 30 30 2c 69  |,menubuf% &400,i|
00002360  63 25 20 26 31 30 30 2c  71 32 25 20 26 35 30 30  |c% &100,q2% &500|
00002370  0d 0f 1e 13 6d 65 6e 65  6e 64 25 3d 71 25 2b 26  |....menend%=q%+&|
00002380  34 35 30 0d 0f 28 10 de  20 70 6c 61 79 25 28 36  |450..(.. play%(6|
00002390  2c 31 29 0d 0f 32 10 70  6c 61 79 25 28 31 2c 31  |,1)..2.play%(1,1|
000023a0  29 3d 30 0d 0f 3c 10 70  6c 61 79 25 28 32 2c 31  |)=0..<.play%(2,1|
000023b0  29 3d 31 0d 0f 46 0f 6d  65 6e 75 6f 70 65 6e 25  |)=1..F.menuopen%|
000023c0  3d a3 0d 0f 50 05 e1 0d  0f 5a 05 3a 0d 0f 64 0e  |=...P....Z.:..d.|
000023d0  dd 20 a4 69 63 6f 6e 62  61 72 0d 0f 6e 09 ea 20  |. .iconbar..n.. |
000023e0  69 69 25 0d 0f 78 0b 21  69 63 25 3d 2d 31 0d 0f  |ii%..x.!ic%=-1..|
000023f0  82 0b 69 63 25 21 34 3d  30 0d 0f 8c 0b 69 63 25  |..ic%!4=0....ic%|
00002400  21 38 3d 30 0d 0f 96 0d  69 63 25 21 31 32 3d 36  |!8=0....ic%!12=6|
00002410  38 0d 0f a0 0d 69 63 25  21 31 36 3d 36 38 0d 0f  |8....ic%!16=68..|
00002420  aa 14 69 63 25 21 32 30  3d 26 42 37 30 30 32 31  |..ic%!20=&B70021|
00002430  30 32 0d 0f b4 0f de 20  69 63 25 21 32 34 20 31  |02..... ic%!24 1|
00002440  32 0d 0f be 16 24 28 69  63 25 21 32 34 29 3d 22  |2....$(ic%!24)="|
00002450  21 61 74 6f 6d 73 22 0d  0f c8 0c 69 63 25 21 32  |!atoms"....ic%!2|
00002460  38 3d 31 0d 0f d2 0d 69  63 25 21 33 32 3d 31 32  |8=1....ic%!32=12|
00002470  0d 0f dc 23 c8 99 20 22  57 69 6d 70 5f 43 72 65  |...#.. "Wimp_Cre|
00002480  61 74 65 49 63 6f 6e 22  2c 2c 69 63 25 20 b8 20  |ateIcon",,ic% . |
00002490  69 69 25 0d 0f e6 08 3d  69 69 25 0d 0f f0 05 3a  |ii%....=ii%....:|
000024a0  0d 0f fa 0e dd 20 f2 6e  65 77 67 61 6d 65 0d 10  |..... .newgame..|
000024b0  04 13 e3 20 4e 25 3d 30  20 b8 20 6d 61 78 5f 78  |... N%=0 . max_x|
000024c0  25 0d 10 0e 13 e3 20 41  25 3d 30 20 b8 20 6d 61  |%..... A%=0 . ma|
000024d0  78 5f 79 25 0d 10 18 13  70 6c 61 79 65 72 28 4e  |x_y%....player(N|
000024e0  25 2c 41 25 29 3d 30 0d  10 22 13 61 6d 6f 75 6e  |%,A%)=0..".amoun|
000024f0  74 28 4e 25 2c 41 25 29  3d 30 0d 10 2c 13 77 65  |t(N%,A%)=0..,.we|
00002500  69 67 68 74 28 4e 25 2c  41 25 29 3d 30 0d 10 36  |ight(N%,A%)=0..6|
00002510  05 ed 0d 10 40 05 ed 0d  10 4a 0d 63 6f 75 6e 74  |....@....J.count|
00002520  28 29 3d 30 0d 10 54 1a  73 74 69 6c 6c 5f 70 6c  |()=0..T.still_pl|
00002530  61 79 69 6e 67 3d 70 6c  61 79 65 72 73 25 0d 10  |aying=players%..|
00002540  5e 0f 63 6f 75 6e 74 28  30 29 3d 2d 31 0d 10 68  |^.count(0)=-1..h|
00002550  08 70 31 3d 31 0d 10 72  0c 73 74 61 72 74 25 3d  |.p1=1..r.start%=|
00002560  b9 0d 10 7c 11 65 6e 64  5f 6f 66 5f 67 61 6d 65  |...|.end_of_game|
00002570  3d a3 0d 10 86 11 73 74  69 6c 6c 5f 74 68 69 73  |=.....still_this|
00002580  25 3d a3 0d 10 90 1b f2  66 6f 72 63 65 72 65 64  |%=......forcered|
00002590  72 61 77 28 6d 61 69 6e  68 61 6e 64 25 29 0d 10  |raw(mainhand%)..|
000025a0  9a 05 e1 0d 10 a4 04 0d  10 ae 0f dd 20 f2 69 6e  |............ .in|
000025b0  69 74 67 61 6d 65 0d 10  b8 0e 70 6c 61 79 65 72  |itgame....player|
000025c0  73 25 3d 32 0d 10 c2 0e  73 69 7a 65 25 3d 31 32  |s%=2....size%=12|
000025d0  2a 35 0d 10 cc 0a f2 69  6e 69 74 67 0d 10 d6 05  |*5.....initg....|
000025e0  e1 0d 10 e0 05 3a 0d 10  ea 0c dd 20 f2 69 6e 69  |.....:..... .ini|
000025f0  74 67 0d 10 f4 09 ea 20  69 2c 6a 0d 10 fe 18 6d  |tg..... i,j....m|
00002600  61 78 5f 78 25 3d 28 36  34 30 2f 73 69 7a 65 25  |ax_x%=(640/size%|
00002610  29 2d 31 0d 11 08 18 6d  61 78 5f 79 25 3d 28 34  |)-1....max_y%=(4|
00002620  35 30 2f 73 69 7a 65 25  29 2d 31 0d 11 12 1b de  |50/size%)-1.....|
00002630  20 70 6c 61 79 65 72 28  6d 61 78 5f 78 25 2c 6d  | player(max_x%,m|
00002640  61 78 5f 79 25 29 0d 11  1c 1b de 20 61 6d 6f 75  |ax_y%)..... amou|
00002650  6e 74 28 6d 61 78 5f 78  25 2c 6d 61 78 5f 79 25  |nt(max_x%,max_y%|
00002660  29 0d 11 26 0e de 20 63  6f 75 6e 74 28 36 29 0d  |)..&.. count(6).|
00002670  11 30 1b de 20 77 65 69  67 68 74 28 6d 61 78 5f  |.0.. weight(max_|
00002680  78 25 2c 6d 61 78 5f 79  25 29 0d 11 3a 1a 73 74  |x%,max_y%)..:.st|
00002690  69 6c 6c 5f 70 6c 61 79  69 6e 67 3d 70 6c 61 79  |ill_playing=play|
000026a0  65 72 73 25 0d 11 44 0f  63 6f 75 6e 74 28 30 29  |ers%..D.count(0)|
000026b0  3d 2d 31 0d 11 4e 08 70  31 3d 31 0d 11 58 0c 73  |=-1..N.p1=1..X.s|
000026c0  74 61 72 74 25 3d b9 0d  11 62 11 65 6e 64 5f 6f  |tart%=...b.end_o|
000026d0  66 5f 67 61 6d 65 3d a3  0d 11 6c 11 73 74 69 6c  |f_game=...l.stil|
000026e0  6c 5f 74 68 69 73 25 3d  a3 0d 11 76 05 e1 0d 11  |l_this%=...v....|
000026f0  80 05 3a 0d 11 8a 1a dd  20 f2 72 65 64 72 61 77  |..:..... .redraw|
00002700  73 63 72 65 65 6e 28 78  25 2c 79 25 29 0d 11 94  |screen(x%,y%)...|
00002710  09 ea 20 69 2c 6a 0d 11  9e 0d f2 67 63 6f 6c 28  |.. i,j.....gcol(|
00002720  31 35 29 0d 11 a8 21 c8  93 20 c8 90 20 78 25 2c  |15)...!.. .. x%,|
00002730  79 25 2b 34 34 30 2c 31  32 37 39 2c 31 30 32 33  |y%+440,1279,1023|
00002740  2d 38 34 30 0d 11 b2 21  66 72 6f 6d 5f 69 3d 28  |-840...!from_i=(|
00002750  67 78 30 25 2d 73 69 7a  65 25 2f 34 29 20 81 20  |gx0%-size%/4) . |
00002760  73 69 7a 65 25 0d 11 bc  21 74 6f 5f 69 3d 28 67  |size%...!to_i=(g|
00002770  78 31 25 2b 73 69 7a 65  25 2a 35 2f 34 29 20 81  |x1%+size%*5/4) .|
00002780  20 73 69 7a 65 25 0d 11  c6 21 66 72 6f 6d 5f 6a  | size%...!from_j|
00002790  3d 28 67 79 30 25 2d 73  69 7a 65 25 2f 34 29 20  |=(gy0%-size%/4) |
000027a0  81 20 73 69 7a 65 25 0d  11 d0 21 74 6f 5f 6a 3d  |. size%...!to_j=|
000027b0  28 67 79 31 25 2b 73 69  7a 65 25 2a 35 2f 34 29  |(gy1%+size%*5/4)|
000027c0  20 81 20 73 69 7a 65 25  0d 11 da 17 e7 20 66 72  | . size%..... fr|
000027d0  6f 6d 5f 69 3c 30 20 66  72 6f 6d 5f 69 3d 30 0d  |om_i<0 from_i=0.|
000027e0  11 e4 1d e7 20 74 6f 5f  69 3e 6d 61 78 5f 78 25  |.... to_i>max_x%|
000027f0  20 74 6f 5f 69 3d 6d 61  78 5f 78 25 0d 11 ee 17  | to_i=max_x%....|
00002800  e7 20 66 72 6f 6d 5f 6a  3c 30 20 66 72 6f 6d 5f  |. from_j<0 from_|
00002810  6a 3d 30 0d 11 f8 1d e7  20 74 6f 5f 6a 3e 6d 61  |j=0..... to_j>ma|
00002820  78 5f 79 25 20 74 6f 5f  6a 3d 6d 61 78 5f 79 25  |x_y% to_j=max_y%|
00002830  0d 12 02 23 e7 20 74 6f  5f 69 3e 3d 66 72 6f 6d  |...#. to_i>=from|
00002840  5f 69 20 80 20 74 6f 5f  6a 3e 3d 66 72 6f 6d 5f  |_i . to_j>=from_|
00002850  6a 20 8c 0d 12 0c 15 e3  20 69 3d 66 72 6f 6d 5f  |j ...... i=from_|
00002860  69 20 b8 20 74 6f 5f 69  0d 12 16 15 e3 20 6a 3d  |i . to_i..... j=|
00002870  66 72 6f 6d 5f 6a 20 b8  20 74 6f 5f 6a 0d 12 20  |from_j . to_j.. |
00002880  0e f2 64 72 61 77 28 69  2c 6a 29 0d 12 2a 05 ed  |..draw(i,j)..*..|
00002890  0d 12 34 05 ed 0d 12 3e  05 cd 0d 12 48 24 e7 20  |..4....>....H$. |
000028a0  63 6f 75 6e 74 28 70 31  29 3c 3d 30 20 80 20 73  |count(p1)<=0 . s|
000028b0  74 61 72 74 25 3d a3 20  f2 63 79 63 6c 65 0d 12  |tart%=. .cycle..|
000028c0  52 1f f2 6f 75 74 70 75  74 28 22 50 6c 61 79 65  |R..output("Playe|
000028d0  72 20 22 2b c3 28 70 31  29 2c 70 31 29 0d 12 5c  |r "+.(p1),p1)..\|
000028e0  43 e7 20 65 6e 64 5f 6f  66 5f 67 61 6d 65 20 f2  |C. end_of_game .|
000028f0  6f 75 74 70 75 74 28 22  50 6c 61 79 65 72 20 22  |output("Player "|
00002900  2b c3 28 77 69 6e 6e 65  72 25 29 2b 22 20 68 61  |+.(winner%)+" ha|
00002910  73 20 77 6f 6e 2e 22 2c  77 69 6e 6e 65 72 25 29  |s won.",winner%)|
00002920  0d 12 66 05 e1 0d 12 70  05 3a 0d 12 7a 0b dd 20  |..f....p.:..z.. |
00002930  f2 67 61 6d 65 0d 12 84  13 e7 20 65 6e 64 5f 6f  |.game..... end_o|
00002940  66 5f 67 61 6d 65 20 e1  0d 12 8e 0e e7 20 73 74  |f_game ...... st|
00002950  61 72 74 25 20 8c 0d 12  98 0e 20 f2 70 6c 61 79  |art% ..... .play|
00002960  28 70 31 29 0d 12 a2 16  20 e7 20 ac 20 73 74 69  |(p1).... . . sti|
00002970  6c 6c 5f 74 68 69 73 25  20 8c 0d 12 ac 0b 20 20  |ll_this% .....  |
00002980  70 31 2b 3d 31 0d 12 b6  0a 20 20 70 3d 70 31 0d  |p1+=1....  p=p1.|
00002990  12 c0 16 20 20 e7 20 70  3e 70 6c 61 79 65 72 73  |...  . p>players|
000029a0  25 20 70 3d 31 0d 12 ca  13 20 20 f2 72 65 64 72  |% p=1....  .redr|
000029b0  61 77 70 6c 61 79 65 72  0d 12 d4 06 20 cd 0d 12  |awplayer.... ...|
000029c0  de 14 20 e7 20 70 31 3e  70 6c 61 79 65 72 73 25  |.. . p1>players%|
000029d0  20 8c 0d 12 e8 0e 20 20  73 74 61 72 74 25 3d a3  | .....  start%=.|
000029e0  0d 12 f2 0a 20 20 70 31  3d 31 0d 12 fc 06 20 cd  |....  p1=1.... .|
000029f0  0d 13 06 05 cc 0d 13 10  12 20 65 6e 64 5f 6f 66  |......... end_of|
00002a00  5f 67 61 6d 65 3d a3 0d  13 1a 14 20 e7 20 63 6f  |_game=..... . co|
00002a10  75 6e 74 28 70 31 29 3e  30 20 8c 0d 13 24 0f 20  |unt(p1)>0 ...$. |
00002a20  20 f2 70 6c 61 79 28 70  31 29 0d 13 2e 17 20 20  | .play(p1)....  |
00002a30  e7 20 ac 20 73 74 69 6c  6c 5f 74 68 69 73 25 20  |. . still_this% |
00002a40  8c 0d 13 38 1a 20 20 20  e7 20 73 74 69 6c 6c 5f  |...8.   . still_|
00002a50  70 6c 61 79 69 6e 67 3d  31 20 8c 0d 13 42 12 20  |playing=1 ...B. |
00002a60  20 20 20 77 69 6e 6e 65  72 25 3d 70 31 0d 13 4c  |   winner%=p1..L|
00002a70  13 20 20 20 20 70 31 3d  70 6c 61 79 65 72 73 25  |.    p1=players%|
00002a80  0d 13 56 15 20 20 20 20  65 6e 64 5f 6f 66 5f 67  |..V.    end_of_g|
00002a90  61 6d 65 3d b9 0d 13 60  08 20 20 20 cd 0d 13 6a  |ame=...`.   ...j|
00002aa0  07 20 20 cd 0d 13 74 06  20 cd 0d 13 7e 1c 20 e7  |.  ...t. ...~. .|
00002ab0  20 73 74 69 6c 6c 5f 74  68 69 73 25 3d a3 20 8c  | still_this%=. .|
00002ac0  20 70 31 2b 3d 31 0d 13  88 17 20 e7 20 70 31 3e  | p1+=1.... . p1>|
00002ad0  70 6c 61 79 65 72 73 25  20 70 31 3d 31 0d 13 92  |players% p1=1...|
00002ae0  27 20 e7 20 63 6f 75 6e  74 28 70 31 29 3c 3d 30  |' . count(p1)<=0|
00002af0  20 80 20 73 74 61 72 74  25 3d a3 20 8c 20 f2 63  | . start%=. . .c|
00002b00  79 63 6c 65 0d 13 9c 27  20 e7 20 73 74 69 6c 6c  |ycle...' . still|
00002b10  5f 74 68 69 73 25 3d a3  20 70 3d 70 31 3a f2 72  |_this%=. p=p1:.r|
00002b20  65 64 72 61 77 70 6c 61  79 65 72 0d 13 a6 25 20  |edrawplayer...% |
00002b30  e7 20 65 6e 64 5f 6f 66  5f 67 61 6d 65 20 70 3d  |. end_of_game p=|
00002b40  70 31 3a f2 72 65 64 72  61 77 70 6c 61 79 65 72  |p1:.redrawplayer|
00002b50  0d 13 b0 05 cd 0d 13 ba  05 e1 0d 13 c4 05 3a 0d  |..............:.|
00002b60  13 ce 0c dd 20 f2 63 79  63 6c 65 0d 13 d8 13 c8  |.... .cycle.....|
00002b70  95 20 63 6f 75 6e 74 28  70 31 29 3c 3d 30 0d 13  |. count(p1)<=0..|
00002b80  e2 09 70 31 2b 3d 31 0d  13 ec 16 e7 20 70 31 3e  |..p1+=1..... p1>|
00002b90  70 6c 61 79 65 72 73 25  20 70 31 3d 31 0d 13 f6  |players% p1=1...|
00002ba0  05 ce 0d 14 00 05 e1 0d  14 0a 05 3a 0d 14 14 0e  |...........:....|
00002bb0  dd 20 f2 70 6c 61 79 28  70 29 0d 14 1e 0e ea 20  |. .play(p)..... |
00002bc0  78 25 2c 79 25 2c 6b 25  0d 14 28 11 f2 72 65 64  |x%,y%,k%..(..red|
00002bd0  72 61 77 70 6c 61 79 65  72 0d 14 32 17 e7 20 70  |rawplayer..2.. p|
00002be0  6c 61 79 25 28 70 2c 31  29 20 f2 63 6f 6d 3a e1  |lay%(p,1) .com:.|
00002bf0  0d 14 3c 0f c8 97 20 78  25 2c 79 25 2c 6b 25 0d  |..<... x%,y%,k%.|
00002c00  14 46 1d e7 20 6b 25 3c  3e 34 20 8c 20 73 74 69  |.F.. k%<>4 . sti|
00002c10  6c 6c 5f 74 68 69 73 25  3d b9 3a e1 0d 14 50 11  |ll_this%=.:...P.|
00002c20  21 71 25 3d 6d 61 69 6e  68 61 6e 64 25 0d 14 5a  |!q%=mainhand%..Z|
00002c30  20 c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  | .. "Wimp_GetWin|
00002c40  64 6f 77 53 74 61 74 65  22 2c 2c 71 25 0d 14 64  |dowState",,q%..d|
00002c50  10 f2 65 78 74 72 61 63  74 28 71 25 29 0d 14 6e  |..extract(q%)..n|
00002c60  0c 78 25 2d 3d 61 78 30  25 0d 14 78 0c 79 25 2d  |.x%-=ax0%..x.y%-|
00002c70  3d 61 79 30 25 0d 14 82  11 73 74 69 6c 6c 5f 74  |=ay0%....still_t|
00002c80  68 69 73 25 3d a3 0d 14  8c 0f 78 25 3d 78 25 2f  |his%=.....x%=x%/|
00002c90  73 69 7a 65 25 0d 14 96  0f 79 25 3d 79 25 2f 73  |size%....y%=y%/s|
00002ca0  69 7a 65 25 0d 14 a0 2e  e7 20 78 25 3e 39 20 84  |ize%..... x%>9 .|
00002cb0  20 79 25 3e 36 20 8c 20  ef 37 3a 73 74 69 6c 6c  | y%>6 . .7:still|
00002cc0  5f 74 68 69 73 25 3d b9  3a 78 25 3d 30 3a 79 25  |_this%=.:x%=0:y%|
00002cd0  3d 30 0d 14 aa 3a e7 20  70 6c 61 79 65 72 28 78  |=0...:. player(x|
00002ce0  25 2c 79 25 29 3c 3e 70  20 80 20 61 6d 6f 75 6e  |%,y%)<>p . amoun|
00002cf0  74 28 78 25 2c 79 25 29  3c 3e 30 20 73 74 69 6c  |t(x%,y%)<>0 stil|
00002d00  6c 5f 74 68 69 73 25 3d  b9 3a ef 37 0d 14 b4 23  |l_this%=.:.7...#|
00002d10  e7 20 73 74 69 6c 6c 5f  74 68 69 73 25 3d a3 20  |. still_this%=. |
00002d20  f2 72 65 61 63 74 28 78  25 2c 79 25 2c 70 29 0d  |.react(x%,y%,p).|
00002d30  14 be 05 e1 0d 14 c8 05  3a 0d 14 d2 13 dd 20 f2  |........:..... .|
00002d40  72 65 64 72 61 77 70 6c  61 79 65 72 0d 14 dc 11  |redrawplayer....|
00002d50  21 71 25 3d 6d 61 69 6e  68 61 6e 64 25 0d 14 e6  |!q%=mainhand%...|
00002d60  0a 71 25 21 34 3d 30 0d  14 f0 0c 71 25 21 38 3d  |.q%!4=0....q%!8=|
00002d70  34 34 30 0d 14 fa 0d 71  25 21 31 32 3d 36 30 30  |440....q%!12=600|
00002d80  0d 15 04 0d 71 25 21 31  36 3d 35 30 30 0d 15 0e  |....q%!16=500...|
00002d90  26 c8 99 20 22 57 69 6d  70 5f 55 70 64 61 74 65  |&.. "Wimp_Update|
00002da0  57 69 6e 64 6f 77 22 2c  2c 71 25 20 b8 20 6d 6f  |Window",,q% . mo|
00002db0  72 65 25 0d 15 18 0c c8  95 20 6d 6f 72 65 25 0d  |re%...... more%.|
00002dc0  15 22 11 20 f2 65 78 74  72 61 63 74 28 71 25 29  |.". .extract(q%)|
00002dd0  0d 15 2c 16 20 e7 20 21  71 25 3d 6d 61 69 6e 68  |..,. . !q%=mainh|
00002de0  61 6e 64 25 20 8c 0d 15  36 15 20 20 e7 20 65 6e  |and% ...6.  . en|
00002df0  64 5f 6f 66 5f 67 61 6d  65 20 8c 0d 15 40 38 20  |d_of_game ...@8 |
00002e00  20 20 f2 6f 75 74 70 75  74 28 22 50 6c 61 79 65  |  .output("Playe|
00002e10  72 20 22 2b c3 28 77 69  6e 6e 65 72 25 29 2b 22  |r "+.(winner%)+"|
00002e20  20 68 61 73 20 77 6f 6e  2e 22 2c 77 69 6e 6e 65  | has won.",winne|
00002e30  72 25 29 0d 15 4a 07 20  20 cc 0d 15 54 20 20 20  |r%)..J.  ...T   |
00002e40  20 f2 6f 75 74 70 75 74  28 22 50 6c 61 79 65 72  | .output("Player|
00002e50  20 22 2b c3 28 70 29 2c  70 29 0d 15 5e 07 20 20  | "+.(p),p)..^.  |
00002e60  cd 0d 15 68 06 20 cd 0d  15 72 27 20 c8 99 20 22  |...h. ...r' .. "|
00002e70  57 69 6d 70 5f 47 65 74  52 65 63 74 61 6e 67 6c  |Wimp_GetRectangl|
00002e80  65 22 2c 2c 71 25 20 b8  20 6d 6f 72 65 25 0d 15  |e",,q% . more%..|
00002e90  7c 05 ce 0d 15 86 05 e1  0d 15 90 05 3a 0d 15 9a  ||...........:...|
00002ea0  13 dd 20 f2 72 65 61 63  74 28 78 2c 79 2c 63 29  |.. .react(x,y,c)|
00002eb0  0d 15 a4 14 ea 20 72 65  61 63 74 6f 72 2c 6f 6c  |..... reactor,ol|
00002ec0  64 5f 70 6c 0d 15 ae 17  e7 20 73 74 69 6c 6c 5f  |d_pl..... still_|
00002ed0  70 6c 61 79 69 6e 67 3e  31 20 8c 0d 15 b8 17 20  |playing>1 ..... |
00002ee0  6f 6c 64 5f 70 6c 3d 70  6c 61 79 65 72 28 78 2c  |old_pl=player(x,|
00002ef0  79 29 0d 15 c2 1f 20 63  6f 75 6e 74 28 6f 6c 64  |y).... count(old|
00002f00  5f 70 6c 29 2d 3d 61 6d  6f 75 6e 74 28 78 2c 79  |_pl)-=amount(x,y|
00002f10  29 0d 15 cc 13 20 61 6d  6f 75 6e 74 28 78 2c 79  |).... amount(x,y|
00002f20  29 2b 3d 31 0d 15 d6 1a  20 63 6f 75 6e 74 28 63  |)+=1.... count(c|
00002f30  29 2b 3d 61 6d 6f 75 6e  74 28 78 2c 79 29 0d 15  |)+=amount(x,y)..|
00002f40  e0 12 20 70 6c 61 79 65  72 28 78 2c 79 29 3d 63  |.. player(x,y)=c|
00002f50  0d 15 ea 18 20 e7 20 63  6f 75 6e 74 28 6f 6c 64  |.... . count(old|
00002f60  5f 70 6c 29 3d 30 20 8c  0d 15 f4 16 20 20 63 6f  |_pl)=0 .....  co|
00002f70  75 6e 74 28 6f 6c 64 5f  70 6c 29 3d 2d 31 0d 15  |unt(old_pl)=-1..|
00002f80  fe 16 20 20 73 74 69 6c  6c 5f 70 6c 61 79 69 6e  |..  still_playin|
00002f90  67 2d 3d 31 0d 16 08 06  20 cd 0d 16 12 30 20 72  |g-=1.... ....0 r|
00002fa0  65 61 63 74 6f 72 3d 34  2b 28 78 3d 30 29 2b 28  |eactor=4+(x=0)+(|
00002fb0  78 3d 6d 61 78 5f 78 25  29 2b 28 79 3d 30 29 2b  |x=max_x%)+(y=0)+|
00002fc0  28 79 3d 6d 61 78 5f 79  25 29 0d 16 1c 1d 20 e7  |(y=max_y%).... .|
00002fd0  20 61 6d 6f 75 6e 74 28  78 2c 79 29 3e 3d 72 65  | amount(x,y)>=re|
00002fe0  61 63 74 6f 72 20 8c 0d  16 26 1a 20 20 61 6d 6f  |actor ...&.  amo|
00002ff0  75 6e 74 28 78 2c 79 29  2d 3d 72 65 61 63 74 6f  |unt(x,y)-=reacto|
00003000  72 0d 16 30 17 20 20 63  6f 75 6e 74 28 63 29 2d  |r..0.  count(c)-|
00003010  3d 72 65 61 63 74 6f 72  0d 16 3a 12 20 21 71 25  |=reactor..:. !q%|
00003020  3d 6d 61 69 6e 68 61 6e  64 25 0d 16 44 11 20 71  |=mainhand%..D. q|
00003030  25 21 34 3d 78 2a 73 69  7a 65 25 0d 16 4e 11 20  |%!4=x*size%..N. |
00003040  71 25 21 38 3d 79 2a 73  69 7a 65 25 0d 16 58 1a  |q%!8=y*size%..X.|
00003050  20 71 25 21 31 32 3d 28  78 2a 73 69 7a 65 25 29  | q%!12=(x*size%)|
00003060  2b 73 69 7a 65 25 0d 16  62 1a 20 71 25 21 31 36  |+size%..b. q%!16|
00003070  3d 28 79 2a 73 69 7a 65  25 29 2b 73 69 7a 65 25  |=(y*size%)+size%|
00003080  0d 16 6c 27 20 c8 99 20  22 57 69 6d 70 5f 55 70  |..l' .. "Wimp_Up|
00003090  64 61 74 65 57 69 6e 64  6f 77 22 2c 2c 71 25 20  |dateWindow",,q% |
000030a0  b8 20 6d 6f 72 65 25 0d  16 76 0d 20 c8 95 20 6d  |. more%..v. .. m|
000030b0  6f 72 65 25 0d 16 80 12  20 20 f2 65 78 74 72 61  |ore%....  .extra|
000030c0  63 74 28 71 25 29 0d 16  8a 17 20 20 e7 20 21 71  |ct(q%)....  . !q|
000030d0  25 3d 6d 61 69 6e 68 61  6e 64 25 20 8c 0d 16 94  |%=mainhand% ....|
000030e0  2c 20 20 20 f2 62 6f 78  28 61 78 30 25 2b 28 78  |,   .box(ax0%+(x|
000030f0  2a 73 69 7a 65 25 29 2c  61 79 30 25 2b 28 79 2a  |*size%),ay0%+(y*|
00003100  73 69 7a 65 25 29 2c 37  29 0d 16 9e 07 20 20 cd  |size%),7)....  .|
00003110  0d 16 a8 28 20 20 c8 99  20 22 57 69 6d 70 5f 47  |...(  .. "Wimp_G|
00003120  65 74 52 65 63 74 61 6e  67 6c 65 22 2c 2c 71 25  |etRectangle",,q%|
00003130  20 b8 20 6d 6f 72 65 25  0d 16 b2 06 20 ce 0d 16  | . more%.... ...|
00003140  bc 12 20 21 71 25 3d 6d  61 69 6e 68 61 6e 64 25  |.. !q%=mainhand%|
00003150  0d 16 c6 11 20 71 25 21  34 3d 78 2a 73 69 7a 65  |.... q%!4=x*size|
00003160  25 0d 16 d0 11 20 71 25  21 38 3d 79 2a 73 69 7a  |%.... q%!8=y*siz|
00003170  65 25 0d 16 da 1a 20 71  25 21 31 32 3d 28 78 2a  |e%.... q%!12=(x*|
00003180  73 69 7a 65 25 29 2b 73  69 7a 65 25 0d 16 e4 1a  |size%)+size%....|
00003190  20 71 25 21 31 36 3d 28  79 2a 73 69 7a 65 25 29  | q%!16=(y*size%)|
000031a0  2b 73 69 7a 65 25 0d 16  ee 27 20 c8 99 20 22 57  |+size%...' .. "W|
000031b0  69 6d 70 5f 55 70 64 61  74 65 57 69 6e 64 6f 77  |imp_UpdateWindow|
000031c0  22 2c 2c 71 25 20 b8 20  6d 6f 72 65 25 0d 16 f8  |",,q% . more%...|
000031d0  0d 20 c8 95 20 6d 6f 72  65 25 0d 17 02 12 20 20  |. .. more%....  |
000031e0  f2 65 78 74 72 61 63 74  28 71 25 29 0d 17 0c 17  |.extract(q%)....|
000031f0  20 20 e7 20 21 71 25 3d  6d 61 69 6e 68 61 6e 64  |  . !q%=mainhand|
00003200  25 20 8c 0d 17 16 11 20  20 20 f2 64 72 61 77 28  |% .....   .draw(|
00003210  78 2c 79 29 0d 17 20 07  20 20 cd 0d 17 2a 28 20  |x,y).. .  ...*( |
00003220  20 c8 99 20 22 57 69 6d  70 5f 47 65 74 52 65 63  | .. "Wimp_GetRec|
00003230  74 61 6e 67 6c 65 22 2c  2c 71 25 20 b8 20 6d 6f  |tangle",,q% . mo|
00003240  72 65 25 0d 17 34 06 20  ce 0d 17 3e 1f 20 e7 20  |re%..4. ...>. . |
00003250  78 3e 30 20 20 20 20 20  20 f2 72 65 61 63 74 28  |x>0      .react(|
00003260  78 2d 31 2c 79 2c 63 29  0d 17 48 1f 20 e7 20 78  |x-1,y,c)..H. . x|
00003270  3c 6d 61 78 5f 78 25 20  f2 72 65 61 63 74 28 78  |<max_x% .react(x|
00003280  2b 31 2c 79 2c 63 29 0d  17 52 1f 20 e7 20 79 3e  |+1,y,c)..R. . y>|
00003290  30 20 20 20 20 20 20 f2  72 65 61 63 74 28 78 2c  |0      .react(x,|
000032a0  79 2d 31 2c 63 29 0d 17  5c 1f 20 e7 20 79 3c 6d  |y-1,c)..\. . y<m|
000032b0  61 78 5f 79 25 20 f2 72  65 61 63 74 28 78 2c 79  |ax_y% .react(x,y|
000032c0  2b 31 2c 63 29 0d 17 66  06 20 cd 0d 17 70 12 20  |+1,c)..f. ...p. |
000032d0  21 71 25 3d 6d 61 69 6e  68 61 6e 64 25 0d 17 7a  |!q%=mainhand%..z|
000032e0  11 20 71 25 21 34 3d 78  2a 73 69 7a 65 25 0d 17  |. q%!4=x*size%..|
000032f0  84 11 20 71 25 21 38 3d  79 2a 73 69 7a 65 25 0d  |.. q%!8=y*size%.|
00003300  17 8e 1a 20 71 25 21 31  32 3d 28 78 2a 73 69 7a  |... q%!12=(x*siz|
00003310  65 25 29 2b 73 69 7a 65  25 0d 17 98 1a 20 71 25  |e%)+size%.... q%|
00003320  21 31 36 3d 28 79 2a 73  69 7a 65 25 29 2b 73 69  |!16=(y*size%)+si|
00003330  7a 65 25 0d 17 a2 27 20  c8 99 20 22 57 69 6d 70  |ze%...' .. "Wimp|
00003340  5f 55 70 64 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_UpdateWindow",,|
00003350  71 25 20 b8 20 6d 6f 72  65 25 0d 17 ac 0d 20 c8  |q% . more%.... .|
00003360  95 20 6d 6f 72 65 25 0d  17 b6 12 20 20 f2 65 78  |. more%....  .ex|
00003370  74 72 61 63 74 28 71 25  29 0d 17 c0 17 20 20 e7  |tract(q%)....  .|
00003380  20 21 71 25 3d 6d 61 69  6e 68 61 6e 64 25 20 8c  | !q%=mainhand% .|
00003390  0d 17 ca 11 20 20 20 f2  64 72 61 77 28 78 2c 79  |....   .draw(x,y|
000033a0  29 0d 17 d4 07 20 20 cd  0d 17 de 28 20 20 c8 99  |)....  ....(  ..|
000033b0  20 22 57 69 6d 70 5f 47  65 74 52 65 63 74 61 6e  | "Wimp_GetRectan|
000033c0  67 6c 65 22 2c 2c 71 25  20 b8 20 6d 6f 72 65 25  |gle",,q% . more%|
000033d0  0d 17 e8 06 20 ce 0d 17  f2 05 cd 0d 17 fc 05 e1  |.... ...........|
000033e0  0d 18 06 05 3a 0d 18 10  10 dd 20 f2 64 72 61 77  |....:..... .draw|
000033f0  28 78 2c 79 29 0d 18 1a  09 ea 20 63 2c 6e 0d 18  |(x,y)..... c,n..|
00003400  24 11 63 3d 70 6c 61 79  65 72 28 78 2c 79 29 0d  |$.c=player(x,y).|
00003410  18 2e 11 6e 3d 61 6d 6f  75 6e 74 28 78 2c 79 29  |...n=amount(x,y)|
00003420  0d 18 38 0d 78 3d 78 2a  73 69 7a 65 25 0d 18 42  |..8.x=x*size%..B|
00003430  0d 79 3d 79 2a 73 69 7a  65 25 0d 18 4c 10 f2 65  |.y=y*size%..L..e|
00003440  78 74 72 61 63 74 28 71  25 29 0d 18 56 0b 78 2b  |xtract(q%)..V.x+|
00003450  3d 61 78 30 25 0d 18 60  0b 79 2b 3d 61 79 30 25  |=ax0%..`.y+=ay0%|
00003460  0d 18 6a 0d f2 67 63 6f  6c 28 31 35 29 0d 18 74  |..j..gcol(15)..t|
00003470  10 c8 93 20 78 2c 79 2c  73 69 7a 65 25 0d 18 7e  |... x,y,size%..~|
00003480  0a c8 8e 20 6e 20 ca 0d  18 88 08 c9 20 30 3a 0d  |... n ...... 0:.|
00003490  18 92 0f f2 62 6f 78 28  78 2c 79 2c 30 29 0d 18  |....box(x,y,0)..|
000034a0  9c 08 c9 20 31 3a 0d 18  a6 0f f2 62 6f 78 28 78  |... 1:.....box(x|
000034b0  2c 79 2c 63 29 0d 18 b0  18 f2 63 69 72 63 6c 65  |,y,c).....circle|
000034c0  28 78 2c 79 2c 30 2e 35  2c 30 2e 35 29 0d 18 ba  |(x,y,0.5,0.5)...|
000034d0  08 c9 20 32 3a 0d 18 c4  0f f2 62 6f 78 28 78 2c  |.. 2:.....box(x,|
000034e0  79 2c 63 29 0d 18 ce 18  f2 63 69 72 63 6c 65 28  |y,c).....circle(|
000034f0  78 2c 79 2c 31 2f 33 2c  31 2f 33 29 0d 18 d8 18  |x,y,1/3,1/3)....|
00003500  f2 63 69 72 63 6c 65 28  78 2c 79 2c 32 2f 33 2c  |.circle(x,y,2/3,|
00003510  32 2f 33 29 0d 18 e2 08  c9 20 33 3a 0d 18 ec 0f  |2/3)..... 3:....|
00003520  f2 62 6f 78 28 78 2c 79  2c 63 29 0d 18 f6 18 f2  |.box(x,y,c).....|
00003530  63 69 72 63 6c 65 28 78  2c 79 2c 31 2f 32 2c 33  |circle(x,y,1/2,3|
00003540  2f 34 29 0d 19 00 18 f2  63 69 72 63 6c 65 28 78  |/4).....circle(x|
00003550  2c 79 2c 31 2f 34 2c 31  2f 34 29 0d 19 0a 18 f2  |,y,1/4,1/4).....|
00003560  63 69 72 63 6c 65 28 78  2c 79 2c 33 2f 34 2c 31  |circle(x,y,3/4,1|
00003570  2f 34 29 0d 19 14 08 c9  20 34 3a 0d 19 1e 0f f2  |/4)..... 4:.....|
00003580  62 6f 78 28 78 2c 79 2c  63 29 0d 19 28 18 f2 63  |box(x,y,c)..(..c|
00003590  69 72 63 6c 65 28 78 2c  79 2c 31 2f 34 2c 31 2f  |ircle(x,y,1/4,1/|
000035a0  34 29 0d 19 32 18 f2 63  69 72 63 6c 65 28 78 2c  |4)..2..circle(x,|
000035b0  79 2c 33 2f 34 2c 33 2f  34 29 0d 19 3c 18 f2 63  |y,3/4,3/4)..<..c|
000035c0  69 72 63 6c 65 28 78 2c  79 2c 31 2f 34 2c 33 2f  |ircle(x,y,1/4,3/|
000035d0  34 29 0d 19 46 18 f2 63  69 72 63 6c 65 28 78 2c  |4)..F..circle(x,|
000035e0  79 2c 33 2f 34 2c 31 2f  34 29 0d 19 50 06 7f 3a  |y,3/4,1/4)..P..:|
000035f0  0d 19 5a 10 f2 62 6f 78  28 78 2c 79 2c 31 35 29  |..Z..box(x,y,15)|
00003600  0d 19 64 05 cb 0d 19 6e  05 e1 0d 19 78 05 3a 0d  |..d....n....x.:.|
00003610  19 82 11 dd 20 f2 62 6f  78 28 78 2c 79 2c 63 29  |.... .box(x,y,c)|
00003620  0d 19 8c 0c f2 67 63 6f  6c 28 63 29 0d 19 96 21  |.....gcol(c)...!|
00003630  c8 93 20 c8 90 20 78 2b  32 2c 79 2b 34 2c 73 69  |.. .. x+2,y+4,si|
00003640  7a 65 25 2d 34 2c 73 69  7a 65 25 2d 38 0d 19 a0  |ze%-4,size%-8...|
00003650  05 e1 0d 19 aa 05 3a 0d  19 b4 18 dd 20 f2 63 69  |......:..... .ci|
00003660  72 63 6c 65 28 78 2c 79  2c 64 78 2c 64 79 29 0d  |rcle(x,y,dx,dy).|
00003670  19 be 0c f2 67 63 6f 6c  28 37 29 0d 19 c8 28 c8  |....gcol(7)...(.|
00003680  8f 20 c8 90 20 78 2b 64  78 2a 73 69 7a 65 25 2c  |. .. x+dx*size%,|
00003690  79 2b 64 79 2a 73 69 7a  65 25 2c 73 69 7a 65 25  |y+dy*size%,size%|
000036a0  2f 31 30 0d 19 d2 05 e1  0d 19 dc 05 3a 0d 19 e6  |/10.........:...|
000036b0  14 dd 20 f2 6f 75 74 70  75 74 28 61 24 2c 63 25  |.. .output(a$,c%|
000036c0  29 0d 19 f0 10 f2 65 78  74 72 61 63 74 28 71 25  |).....extract(q%|
000036d0  29 0d 19 fa 0d f2 67 63  6f 6c 28 31 35 29 0d 1a  |).....gcol(15)..|
000036e0  04 25 c8 93 20 c8 90 20  61 78 30 25 2c 61 79 30  |.%.. .. ax0%,ay0|
000036f0  25 2b 34 34 30 2c 31 32  38 30 2c 31 30 32 33 2d  |%+440,1280,1023-|
00003700  38 34 30 0d 1a 0e 0d f2  67 63 6f 6c 28 63 25 29  |840.....gcol(c%)|
00003710  0d 1a 18 28 ec 20 61 78  30 25 2b 28 33 30 30 2d  |...(. ax0%+(300-|
00003720  28 a9 28 61 24 29 2a 38  29 29 2c 61 79 30 25 2b  |(.(a$)*8)),ay0%+|
00003730  34 34 30 2b 38 2b 33 32  0d 1a 22 08 f1 20 61 24  |440+8+32..".. a$|
00003740  0d 1a 2c 05 e1 0d 1a 36  05 3a 0d 1a 40 0a dd 20  |..,....6.:..@.. |
00003750  f2 63 6f 6d 0d 1a 4a 13  e3 20 69 25 3d 30 20 b8  |.com..J.. i%=0 .|
00003760  20 6d 61 78 5f 78 25 0d  1a 54 13 e3 20 6a 25 3d  | max_x%..T.. j%=|
00003770  30 20 b8 20 6d 61 78 5f  79 25 0d 1a 5e 14 4f 25  |0 . max_y%..^.O%|
00003780  3d 70 6c 61 79 65 72 28  69 25 2c 6a 25 29 0d 1a  |=player(i%,j%)..|
00003790  68 12 e7 20 4f 25 20 80  20 4f 25 3c 3e 70 20 8c  |h.. O% . O%<>p .|
000037a0  0d 1a 72 17 77 65 69 67  68 74 28 69 25 2c 6a 25  |..r.weight(i%,j%|
000037b0  29 3d 2d 31 30 30 30 0d  1a 7c 05 cc 0d 1a 86 33  |)=-1000..|.....3|
000037c0  72 65 61 63 74 6f 72 3d  34 2b 28 69 25 3d 30 29  |reactor=4+(i%=0)|
000037d0  2b 28 69 25 3d 6d 61 78  5f 78 25 29 2b 28 6a 25  |+(i%=max_x%)+(j%|
000037e0  3d 30 29 2b 28 6a 25 3d  6d 61 78 5f 79 25 29 0d  |=0)+(j%=max_y%).|
000037f0  1a 90 41 73 69 67 6d 61  3d a4 61 64 64 28 69 25  |..Asigma=.add(i%|
00003800  2b 31 2c 6a 25 29 2b a4  61 64 64 28 69 25 2d 31  |+1,j%)+.add(i%-1|
00003810  2c 6a 25 29 2b a4 61 64  64 28 69 25 2c 6a 25 2b  |,j%)+.add(i%,j%+|
00003820  31 29 2b a4 61 64 64 28  69 25 2c 6a 25 2d 31 29  |1)+.add(i%,j%-1)|
00003830  0d 1a 9a 1f e7 20 61 6d  6f 75 6e 74 28 69 25 2c  |..... amount(i%,|
00003840  6a 25 29 3d 72 65 61 63  74 6f 72 2d 31 20 8c 0d  |j%)=reactor-1 ..|
00003850  1a a4 19 77 65 69 67 68  74 28 69 25 2c 6a 25 29  |...weight(i%,j%)|
00003860  3d 34 2a 73 69 67 6d 61  0d 1a ae 05 cc 0d 1a b8  |=4*sigma........|
00003870  54 77 65 69 67 68 74 28  69 25 2c 6a 25 29 3d 31  |Tweight(i%,j%)=1|
00003880  32 35 2b 73 69 67 6d 61  2a 28 73 69 67 6d 61 3e  |25+sigma*(sigma>|
00003890  31 32 34 29 2d 73 69 67  6d 61 2a 28 73 69 67 6d  |124)-sigma*(sigm|
000038a0  61 3c 31 32 35 29 2d 31  30 2a 28 72 65 61 63 74  |a<125)-10*(react|
000038b0  6f 72 2d 61 6d 6f 75 6e  74 28 69 25 2c 6a 25 29  |or-amount(i%,j%)|
000038c0  29 0d 1a c2 05 cd 0d 1a  cc 05 cd 0d 1a d6 05 ed  |)...............|
000038d0  0d 1a e0 05 ed 0d 1a ea  0c 62 6d 3d 2d 31 30 30  |.........bm=-100|
000038e0  30 0d 1a f4 13 e3 20 69  25 3d 30 20 b8 20 6d 61  |0..... i%=0 . ma|
000038f0  78 5f 78 25 0d 1a fe 13  e3 20 6a 25 3d 30 20 b8  |x_x%..... j%=0 .|
00003900  20 6d 61 78 5f 79 25 0d  1b 08 33 e7 20 77 65 69  | max_y%...3. wei|
00003910  67 68 74 28 69 25 2c 6a  25 29 3e 62 6d 20 62 6d  |ght(i%,j%)>bm bm|
00003920  3d 77 65 69 67 68 74 28  69 25 2c 6a 25 29 3a 62  |=weight(i%,j%):b|
00003930  69 3d 69 25 3a 62 6a 3d  6a 25 0d 1b 12 05 ed 0d  |i=i%:bj=j%......|
00003940  1b 1c 05 ed 0d 1b 26 13  f2 72 65 61 63 74 28 62  |......&..react(b|
00003950  69 2c 62 6a 2c 70 29 0d  1b 30 05 e1 0d 1b 3a 05  |i,bj,p)..0....:.|
00003960  3a 0d 1b 44 0f dd 20 a4  61 64 64 28 78 2c 79 29  |:..D.. .add(x,y)|
00003970  0d 1b 4e 0d ea 20 72 65  61 63 74 6f 72 0d 1b 58  |..N.. reactor..X|
00003980  2a e7 20 78 3c 30 20 84  20 78 3e 6d 61 78 5f 78  |*. x<0 . x>max_x|
00003990  25 20 84 20 79 3c 30 20  84 20 79 3e 6d 61 78 5f  |% . y<0 . y>max_|
000039a0  79 25 20 8c 20 3d 30 0d  1b 62 18 e7 20 70 6c 61  |y% . =0..b.. pla|
000039b0  79 65 72 28 78 2c 79 29  3d 30 20 8c 20 3d 30 0d  |yer(x,y)=0 . =0.|
000039c0  1b 6c 2f 72 65 61 63 74  6f 72 3d 34 2b 28 78 3d  |.l/reactor=4+(x=|
000039d0  30 29 2b 28 78 3d 6d 61  78 5f 78 25 29 2b 28 79  |0)+(x=max_x%)+(y|
000039e0  3d 30 29 2b 28 79 3d 6d  61 78 5f 79 25 29 0d 1b  |=0)+(y=max_y%)..|
000039f0  76 32 3d 2d 28 70 6c 61  79 65 72 28 78 2c 79 29  |v2=-(player(x,y)|
00003a00  3c 3e 70 29 2a 28 35 5e  28 34 2b 61 6d 6f 75 6e  |<>p)*(5^(4+amoun|
00003a10  74 28 78 2c 79 29 2d 72  65 61 63 74 6f 72 29 29  |t(x,y)-reactor))|
00003a20  0d 1b 80 05 3a 0d 1b 8a  21 dd 20 f2 67 63 6f 6c  |....:...!. .gcol|
00003a30  28 63 25 29 3a f4 20 43  6f 6c 20 54 72 61 6e 73  |(c%):. Col Trans|
00003a40  20 54 61 62 6c 65 0d 1b  94 0b c8 8e 20 63 25 20  | Table...... c% |
00003a50  ca 0d 1b 9e 0c c9 20 30  3a 63 25 3d 37 0d 1b a8  |...... 0:c%=7...|
00003a60  0d c9 20 31 3a 63 25 3d  31 31 0d 1b b2 0d c9 20  |.. 1:c%=11..... |
00003a70  32 3a 63 25 3d 31 30 0d  1b bc 0c c9 20 33 3a 63  |2:c%=10..... 3:c|
00003a80  25 3d 39 0d 1b c6 0c c9  20 34 3a 63 25 3d 38 0d  |%=9..... 4:c%=8.|
00003a90  1b d0 0d c9 20 35 3a 63  25 3d 31 33 0d 1b da 0d  |.... 5:c%=13....|
00003aa0  c9 20 36 3a 63 25 3d 31  35 0d 1b e4 0c c9 20 37  |. 6:c%=15..... 7|
00003ab0  3a 63 25 3d 30 0d 1b ee  0d c9 20 31 34 3a 63 25  |:c%=0..... 14:c%|
00003ac0  3d 30 0d 1b f8 0d c9 20  31 35 3a 63 25 3d 34 0d  |=0..... 15:c%=4.|
00003ad0  1c 02 05 cb 0d 1c 0c 1a  c8 99 20 22 57 69 6d 70  |.......... "Wimp|
00003ae0  5f 53 65 74 43 6f 6c 6f  75 72 22 2c 63 25 0d 1c  |_SetColour",c%..|
00003af0  16 05 e1 0d 1c 20 05 3a  0d 1c 2a 2a dd 20 f2 6d  |..... .:..**. .m|
00003b00  65 73 73 28 41 24 2c 6d  25 29 3a f4 20 46 6f 72  |ess(A$,m%):. For|
00003b10  20 74 68 65 20 57 69 6d  70 20 44 65 62 75 67 67  | the Wimp Debugg|
00003b20  65 72 0d 1c 34 16 2a 53  45 54 20 64 62 24 6d 65  |er..4.*SET db$me|
00003b30  73 73 20 41 74 6f 6d 73  0d 1c 3e 1e ff 20 22 53  |ss Atoms..>.. "S|
00003b40  45 54 20 64 62 24 6d 65  73 73 22 2b c3 6d 25 2b  |ET db$mess"+.m%+|
00003b50  22 20 22 2b 41 24 0d 1c  48 05 e1 0d ff           |" "+A$..H....|
00003b5d