�     >!RunImage
+�     (Multi-tasking version of Atoms3)
� By  Niall Douglas
(� For 32-bit machines
2� (c) BAU November 1993
<:
F� 04-7-1991 Version 1.99
P�
Z.� mods by DCA for faster screen update and
d� multi-tasking reactions
n:
xname$="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% �

 � 0 :� active% �null

 � 1 :�redraw(q%)

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

, � 3 :�closewindow(!q%)

6
 � 4 :

@
 � 5 :

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

T
 � 7 :

^
 � 8 :

h � 9 :�menuselect(q%)

r � 17,18:�message

|�

�� �

�:

�� �null

�� animating% �

� a%=store%+4*store_p%

�
 x=?a%

� y=a%?1

� amountb(x,y)=a%?2

� !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%)
&  �draw(x,y)
0(  ș "Wimp_GetRectangle",,q% � more%
: �
D store_p%+=1
N � store_p%=store_n% �
X  animating%=�
b  �redrawplayer
l �
v�
�' � count(p1)<=0 � start%=� � �cycle
� � play%(p1,1) �game
��
��
�:
�� �redraw(q%)
�
� obj%
�&ș "Wimp_RedrawWindow",,q% � more%
�ȕ more%
� �extract(q%)
� � !q%=mainhand% �
�  �redrawscreen(ax0%,ay0%)
� �
' ș "Wimp_GetRectangle",,q% � more%
�
�
 :
*� �message
4� task%,ref%
>task%=q%!4
H
ref%=q%!8
RȎ q%!16 �
\ � 0:�finish
f�
p�
z:
�7� �checkmouse(mousex%,mousey%,b%,handle%,icon%,ob%)
�� (b% � %0101)>0 �
�Ȏ handle% �
�$� -2: � active% �front � �reopen
�� mainhand%:
�	�game
��
��
�� (b% � 2)>0 �
�Ȏ handle% �
�	� -2:
�menuhandle%=101
�*�openmenu(quitmenu%,mousex%-86,180-40)
3menuopen%=quitmenu%:� menu open flag (for help)
� mainhand%:
menuhandle%=102
$�preparemenus
.+�openmenu(mainmenu%,mousex%-64,mousey%)
83menuopen%=mainmenu%:� menu open flag (for help)
B�
L�
V�
`:
j� �makemenus
tmenuptr%=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")
��
�:
�� �preparemenus
�� N%=1 � 6
�$�tick(mainmenu%,N%,N%<=players%)
�$�tick(play%(N%,0),play%(N%,1),�)
�&�tick(play%(N%,0),1-play%(N%,1),�)
�>� start%=� �light(mainmenu%,N%,�) � �light(mainmenu%,N%,�)
�

�
:
� �light(a%,i%,c%)
(a%=a%+36+24*i%
24� c% � !a%=!a% � &FFBFFFFF � !a%=!a% � &00400000
<�
F:
P� �tick(a%,i%,c%)
Za%=a%+28+24*i%
d,� c% � !a%=!a% � 1 � !a%=!a% � &FFFFFFFE
n�
x:
�0� �sub(m$,m%)="|sub"+�"0000000"+�(m%),12)+m$
�:
�� �menuitem(text$)
�3� menuflags%,iconflags%,submenu%,indlen%,valid%
�
valid%=-1
�	ii%=�
�indlen%=-1
�submenu%=-1
�� text$="" �
�menuflags%=0
�iconflags%=&07000021
�ȕ �text$,1)="|"
�Ȏ �text$,2,3) �
� "sub":
submenu%=�(�text$,5,12))
text$=�text$,17)
"� "win":
,Ȏ �text$,5,2) �
6� "sv":submenu%=savehand%
@� "zm":submenu%=zoomhand%
J� "id":submenu%=infohand%
T�
^text$=�text$,7)
h�
r�
|)� �(text$)>menumax% menumax%=�(text$)
�menuptr%!0=menuflags%
�menuptr%!4=submenu%
�menuptr%!8=iconflags%
�"� �(text$)>11 indlen%=�(text$)
�� indlen%<0 �
�$(menuptr%+12)=text$
��
�menend%=menend%-(indlen%+1)
�(menuptr%!8=(menuptr%!8) � %100000000
�menuptr%!12=menend%
�menuptr%!16=valid%
�menuptr%!20=indlen%
�$menend%=text$
�
menuptr%+=24
�
&:
0� �par(sep$)
:%i1%=i%+1:i%=�menu$+sep$,sep$,i1%)
D=�menu$,i1%,i%-i1%)
N:
X � �makemen(menu$,menutitle$)
b� menumax%,wasptr%
lwasptr%=menuptr%
vmenumax%=4
�i%=0
�menuptr%!20=44
�$menuptr%=menutitle$
�menuptr%?12=7
�menuptr%?13=2
�menuptr%?14=7
�menuptr%?15=0
�maxaddr%=menuptr%+16
�menuptr%!24=0
�menuptr%+=28
��
�item$=�par(",")
��menuitem(item$)
� item$=""
%menuptr%!-24=(menuptr%!-24) � &80
!maxaddr%=menumax%*16+32
 =wasptr%
*:
4� �openmenu(m%,x%,y%)
>
menux%=x%
H
menuy%=y%
R"ș "Wimp_CreateMenu",,m%,x%,y%
\�
f:
p� �menuselect(menus%)
zȎ menuhandle% �
�� 101: � !menus%=0 �finish
�� 102: �decodemainmenu
��
��
�:
�� �decodemainmenu
�� redo%
�!ș "Wimp_GetPointerInfo",,q2%
�redo%=(((q2%!8) � 1)>0)
�Ȏ !menus% �
�� 0:�newgame
�� 1,2,3,4,5,6:
�9 � 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
	$ �
	.�
	8still_playing=players%
	Bmenuopen%=0
	LP� redo% �preparemenus:�openmenu(mainmenu%,menux%,menuy%):menuopen%=mainmenu%
	V�
	`:
	j� �extract(q%)
	tax0%=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%
	��
	�:
	�� �forceredraw(hand%)
	�!q2%=hand%
	� ș "Wimp_GetWindowInfo",,q2%
	�;ș "Wimp_ForceRedraw",hand%,q2%!44,q2%!48,q2%!52,q2%!56
	��
	�:
� �initwindows

mainhand%=�cwindow("Atoms")
�
:
(ݤcwindow(A$)
2(f%=%10000111000000000000000000000010
<	fc%=0
F	bc%=7
P	x0%=0
Z	y0%=0
dx1%=600   :� max_x
ny1%=500   :� max_y
xcx0%=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%)
�:
�lݤ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%
�q%!24=-1:q%!28=flags%
��fc%=15�bc%=15�
�)q%?32=15:q%?33=15:q%?34=fc%:q%?35=bc%
�)� q%?32=7:q%?33=2:q%?34=fc%:q%?35=bc%
��
$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
6$(q%+72)=�title$,11)
@q%!84=nicons%
J)�I%,x0%,y0%,x1%,y1%,f%,data$:I%=q%+88
Tȕ nicons%>0
^&� x0%,y0%,x1%,y1%,f%,fc%,bc%,data$
h(I%!0=x0%:I%!4=y0%:I%!8=x1%:I%!12=y1%
r#� (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$
��
�I%=I%+32:nicons%=nicons%-1
��
�ș CreateW,,q% � handle%
�=handle%
�:
�� �initflags
�
active%=�
��
:
� �closemenu
ș "Wimp_CreateMenu",,-1
&�
0:
:� �closewindow(hand%)
D
!q%=hand%
Nș "Wimp_CloseWindow",,q%
X� hand%=mainhand% active%=�
b�
l:
v��finish
�$q%="TASK"
�#ș "Wimp_CloseDown",mytask%,!q%
��
��
�:
���front
�!q%=mainhand%
� ș "Wimp_GetWindowState",,q%
�q%!28=-1
�ș "Wimp_OpenWindow",,q%
��
�:
�
� �reopen

!q%=mainhand%

q%!28=-1

q%!4=200

 q%!8=300

*
q%!12=800

4
q%!16=800

>q%!20=0

Hq%!24=0

Rș "Wimp_OpenWindow",,q%

\
active%=�

f�

p:

z
��vars

�Wimp    = (1<<18) + (3<<6)

�CreateW = Wimp+1

�OpenW   = Wimp+5

�CloseW  = Wimp+6

�RedrawW = Wimp+8

�UpdateW = Wimp+9

�GetR%   = Wimp+10

�GetW    = Wimp+11

�GetP    = Wimp+15

�Drag    = Wimp+16

�CrMenu  = Wimp+20

�DcMenu  = Wimp+21

��
:
��errorbox
� what%
$ș Drag,,-1
.4!buffers%=�:$(buffers%+4)=�$+" at line "+�(�)+�0
83ș "Wimp_ReportError",buffers%,3,name$ � ,what%
B� what%=2 �finish
L�
V:
`
��init
j�:�finish:�
t	�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)
�play%(1,1)=0
�play%(2,1)=1
�menuopen%=�
�max_store%=2000
�� store% 4*max_store%
�
stored%=0
�store_p%=0
animating%=�

�
:
� �iconbar
(	� ii%
2!ic%=-1
<ic%!4=0
Fic%!8=0
P
ic%!12=68
Z
ic%!16=68
dic%!20=&B7002102
n� ic%!24 12
x$(ic%!24)="!atoms"
�ic%!28=1
�
ic%!32=12
�#ș "Wimp_CreateIcon",,ic% � ii%
�=ii%
�:
�� �newgame
�animating%=�
�� N%=0 � max_x%
�� A%=0 � max_y%
�player(N%,A%)=0
�amount(N%,A%)=0
�weight(N%,A%)=0
��
�

count()=0
still_playing=players%
"count(0)=-1
,p1=1
6start%=�
@end_of_game=�
Jstill_this%=�
T�forceredraw(mainhand%)
^�
h
r� �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%)
�2� amount(max_x%,max_y%),amountb(max_x%,max_y%)
�� count(6)
�� weight(max_x%,max_y%)
�still_playing=players%
count(0)=-1
p1=1
start%=�
&end_of_game=�
0still_this%=�
:�
D:
N� �redrawscreen(x%,y%)
X	� i,j
b
�gcol(15)
l!ȓ Ȑ x%,y%+440,1279,1023-840
v!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)
��
��
�
$� count(p1)<=0 � start%=� �cycle
�output("Player "+�(p1),p1)
 �
*:
4� �game
>� end_of_game �
H� start% �
R �play(p1)
\ � � still_this% �
f  p1+=1
p
  p=p1
z  � p>players% p=1
�  �redrawplayer
� �
� � p1>players% �
�  start%=�
�
  p1=1
� �
��
� end_of_game=�
� � count(p1)>0 �
�  �play(p1)
�  � � still_this% �
�   � still_playing=1 �
�    winner%=p1
    p1=players%
    end_of_game=�
   �
$  �
. �
8 � still_this%=� � p1+=1
B � p1>players% p1=1
L' � count(p1)<=0 � start%=� � �cycle
V' � still_this%=� p=p1:�redrawplayer
`% � end_of_game p=p1:�redrawplayer
j�
t�
~:
�� �cycle
�ȕ count(p1)<=0
�	p1+=1
�� p1>players% p1=1
��
��
�:
�� �play(p)
�� x%,y%,k%
��redrawplayer
�� play%(p,1) �com:�
�ȗ x%,y%,k%
� k%<>4 � still_this%=�:�

!q%=mainhand%
 ș "Wimp_GetWindowState",,q%
�extract(q%)
(x%-=ax0%
2y%-=ay0%
<still_this%=�
Fx%=x%/size%
Py%=y%/size%
Z+� x%>9 � y%>6 � still_this%=�:x%=0:y%=0
d7� player(x%,y%)<>p � amount(x%,y%)<>0 still_this%=�
n� still_this%=� �
x �call_react(x%,y%,p)
��
��
�:
�� �call_react(x%,y%,p)
�store_p%=0
�amountb()=amount()
��react(x%,y%,p)
�� store_p%>0 �
� animating%=�
�
 anim_p=p
� store_n%=store_p%
� store_p%=0
��
�
:
� �redrawplayer
"!q%=mainhand%
,
q%!4=0
6q%!8=440
@
q%!12=600
J
q%!16=500
T&ș "Wimp_UpdateWindow",,q% � more%
^ȕ more%
h �extract(q%)
r � !q%=mainhand% �
|  � animating% �
�*   �output("Player "+�(anim_p),anim_p)
�  �
�   � end_of_game �
�9    �output("Player "+�(winner%)+" has won.",winner%)
�   �
�!    �output("Player "+�(p),p)
�   �
�  �
� �
�' ș "Wimp_GetRectangle",,q% � more%
��
��
�:
� �react(x,y,c)
� reactor,old_pl
� still_playing>1 �
& old_pl=player(x,y)
0 count(old_pl)-=amount(x,y)
: amount(x,y)+=1
D count(c)+=amount(x,y)
N player(x,y)=c
X a%=store%+4*store_p%
b a%?0=x
l a%?1=y
v a%?2=amount(x,y)
� store_p%+=1
� � 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
�  count(c)-=reactor
�  a%=store%+4*store_p%
�  a%?0=x
�  a%?1=y
�  a%?2=amount(x,y)
  store_p%+=1
   � x>0      �react(x-1,y,c)
   � x<max_x% �react(x+1,y,c)
    � y>0      �react(x,y-1,c)
*   � y<max_y% �react(x,y+1,c)
4 �
>�
H�
R:
\� �draw(x,y)
f	� c,n
pc=player(x,y)
z� animating% �
� n=amountb(x,y)
��
� n=amount(x,y)
��
�
x=x*size%
�
y=y*size%
��extract(q%)
�x+=ax0%
�y+=ay0%
�
�gcol(15)
�ȓ x,y,size%
�
Ȏ n �
�� 0:
�box(x,y,0)
� 1:
�box(x,y,c)
$�circle(x,y,0.5,0.5)
.� 2:
8�box(x,y,c)
B�circle(x,y,1/3,1/3)
L�circle(x,y,2/3,2/3)
V� 3:
`�box(x,y,c)
j�circle(x,y,1/2,3/4)
t�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)
��circle(x,y,3/4,3/4)
��circle(x,y,1/4,3/4)
��circle(x,y,3/4,1/4)
�:
��box(x,y,15)
��
��
�:
�� �box(x,y,c)
�gcol(c)

!ȓ Ȑ x+2,y+4,size%-4,size%-8
�
:
(� �circle(x,y,dx,dy)
2�gcol(7)
<(ȏ Ȑ x+dx*size%,y+dy*size%,size%/10
F�
P:
Z� �output(a$,c%)
d�extract(q%)
n
�gcol(15)
x%ȓ Ȑ ax0%,ay0%+440,1280,1023-840
�
�gcol(c%)
�(� ax0%+(300-(�(a$)*8)),ay0%+440+8+32
�� a$
��
�:
�
� �com
�� i%=0 � max_x%
�� j%=0 � max_y%
�O%=player(i%,j%)
�� O% � O%<>p �
�weight(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%))
6�
@�
J�
T�
^bm=-1000
h� i%=0 � max_x%
r� j%=0 � max_y%
|3� weight(i%,j%)>bm bm=weight(i%,j%):bi=i%:bj=j%
��
��
��call_react(bi,bj,p)
��
�:
�� �add(x,y)
�
� reactor
�*� x<0 � x>max_x% � y<0 � y>max_y% � =0
�� player(x,y)=0 � =0
�/reactor=4+(x=0)+(x=max_x%)+(y=0)+(y=max_y%)
�2=-(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
0� 3:c%=9
:� 4:c%=8
D
� 5:c%=13
N
� 6:c%=15
X� 7:c%=0
b
� 14:c%=0
l
� 15:c%=4
v�
�ș "Wimp_SetColour",c%
��
�:
�*� �mess(A$,m%):� For the Wimp Debugger
�*SET db$mess Atoms
�� "SET db$mess"+�m%+" "+A$
��
�

00000000  0d 00 0a 14 f4 20 20 20  20 20 3e 21 52 75 6e 49  |.....     >!RunI|
00000010  6d 61 67 65 0d 00 14 2b  f4 20 20 20 20 20 28 4d  |mage...+.     (M|
00000020  75 6c 74 69 2d 74 61 73  6b 69 6e 67 20 76 65 72  |ulti-tasking ver|
00000030  73 69 6f 6e 20 6f 66 20  41 74 6f 6d 73 33 29 0d  |sion of Atoms3).|
00000040  00 1e 17 f4 20 42 79 20  20 4e 69 61 6c 6c 20 44  |.... By  Niall D|
00000050  6f 75 67 6c 61 73 0d 00  28 19 f4 20 46 6f 72 20  |ouglas..(.. For |
00000060  33 32 2d 62 69 74 20 6d  61 63 68 69 6e 65 73 0d  |32-bit machines.|
00000070  00 32 1b f4 20 28 63 29  20 42 41 55 20 4e 6f 76  |.2.. (c) BAU Nov|
00000080  65 6d 62 65 72 20 31 39  39 33 0d 00 3c 05 3a 0d  |ember 1993..<.:.|
00000090  00 46 1c f4 20 30 34 2d  37 2d 31 39 39 31 20 56  |.F.. 04-7-1991 V|
000000a0  65 72 73 69 6f 6e 20 31  2e 39 39 0d 00 50 05 f4  |ersion 1.99..P..|
000000b0  0d 00 5a 2e f4 20 6d 6f  64 73 20 62 79 20 44 43  |..Z.. mods by DC|
000000c0  41 20 66 6f 72 20 66 61  73 74 65 72 20 73 63 72  |A for faster scr|
000000d0  65 65 6e 20 75 70 64 61  74 65 20 61 6e 64 0d 00  |een update and..|
000000e0  64 1d f4 20 6d 75 6c 74  69 2d 74 61 73 6b 69 6e  |d.. multi-taskin|
000000f0  67 20 72 65 61 63 74 69  6f 6e 73 0d 00 6e 05 3a  |g reactions..n.:|
00000100  0d 00 78 11 6e 61 6d 65  24 3d 22 41 74 6f 6d 73  |..x.name$="Atoms|
00000110  22 0d 00 82 09 f2 69 6e  69 74 0d 00 8c 10 f2 69  |".....init.....i|
00000120  6e 69 74 77 69 6e 64 6f  77 73 0d 00 96 0e f2 69  |nitwindows.....i|
00000130  6e 69 74 66 6c 61 67 73  0d 00 a0 0e f2 6d 61 6b  |nitflags.....mak|
00000140  65 6d 65 6e 75 73 0d 00  aa 12 69 63 6f 6e 25 3d  |emenus....icon%=|
00000150  a4 69 63 6f 6e 62 61 72  0d 00 b4 0d f2 69 6e 69  |.iconbar.....ini|
00000160  74 67 61 6d 65 0d 00 be  1e ee 85 3a f2 65 72 72  |tgame......:.err|
00000170  6f 72 62 6f 78 3a c8 99  20 43 72 4d 65 6e 75 2c  |orbox:.. CrMenu,|
00000180  2c 2d 31 0d 00 c8 0c f2  6e 65 77 67 61 6d 65 0d  |,-1.....newgame.|
00000190  00 d2 48 e0 3d e0 2b 28  38 2a 31 30 32 34 29 3a  |..H.=.+(8*1024):|
000001a0  f4 20 41 6c 6c 6f 63 61  74 65 20 73 70 61 63 65  |. Allocate space|
000001b0  20 66 6f 72 20 74 68 65  20 42 61 73 69 63 20 73  | for the Basic s|
000001c0  74 61 63 6b 20 74 6f 20  61 6c 6c 6f 77 20 72 65  |tack to allow re|
000001d0  63 75 72 73 69 6f 6e 0d  00 dc 05 3a 0d 00 e6 05  |cursion....:....|
000001e0  f5 0d 00 f0 1d 20 c8 99  20 22 57 69 6d 70 5f 50  |..... .. "Wimp_P|
000001f0  6f 6c 6c 22 2c 30 2c 71  25 20 b8 20 41 25 0d 00  |oll",0,q% . A%..|
00000200  fa 43 20 e7 20 41 25 3c  3e 30 20 80 20 41 25 3c  |.C . A%<>0 . A%<|
00000210  3e 38 20 80 20 41 25 3c  3e 31 37 20 80 20 41 25  |>8 . A%<>17 . A%|
00000220  3c 3e 31 38 20 6d 65 6e  75 6f 70 65 6e 25 3d 30  |<>18 menuopen%=0|
00000230  3a f4 20 6d 65 6e 75 20  6f 70 65 6e 20 66 6c 61  |:. menu open fla|
00000240  67 0d 01 04 0c 20 c8 8e  20 41 25 20 ca 0d 01 0e  |g.... .. A% ....|
00000250  19 20 c9 20 30 20 3a e7  20 61 63 74 69 76 65 25  |. . 0 :. active%|
00000260  20 f2 6e 75 6c 6c 0d 01  18 15 20 c9 20 31 20 3a  | .null.... . 1 :|
00000270  f2 72 65 64 72 61 77 28  71 25 29 0d 01 22 22 20  |.redraw(q%).."" |
00000280  c9 20 32 20 3a c8 99 20  22 57 69 6d 70 5f 4f 70  |. 2 :.. "Wimp_Op|
00000290  65 6e 57 69 6e 64 6f 77  22 2c 2c 71 25 0d 01 2c  |enWindow",,q%..,|
000002a0  1b 20 c9 20 33 20 3a f2  63 6c 6f 73 65 77 69 6e  |. . 3 :.closewin|
000002b0  64 6f 77 28 21 71 25 29  0d 01 36 0a 20 c9 20 34  |dow(!q%)..6. . 4|
000002c0  20 3a 0d 01 40 0a 20 c9  20 35 20 3a 0d 01 4a 36  | :..@. . 5 :..J6|
000002d0  20 c9 20 36 20 3a f2 63  68 65 63 6b 6d 6f 75 73  | . 6 :.checkmous|
000002e0  65 28 21 71 25 2c 71 25  21 34 2c 71 25 21 38 2c  |e(!q%,q%!4,q%!8,|
000002f0  71 25 21 31 32 2c 71 25  21 31 36 2c 71 25 21 32  |q%!12,q%!16,q%!2|
00000300  30 29 0d 01 54 0a 20 c9  20 37 20 3a 0d 01 5e 0a  |0)..T. . 7 :..^.|
00000310  20 c9 20 38 20 3a 0d 01  68 19 20 c9 20 39 20 3a  | . 8 :..h. . 9 :|
00000320  f2 6d 65 6e 75 73 65 6c  65 63 74 28 71 25 29 0d  |.menuselect(q%).|
00000330  01 72 15 20 c9 20 31 37  2c 31 38 3a f2 6d 65 73  |.r. . 17,18:.mes|
00000340  73 61 67 65 0d 01 7c 05  cb 0d 01 86 07 fd 20 a3  |sage..|....... .|
00000350  0d 01 90 05 3a 0d 01 9a  0b dd 20 f2 6e 75 6c 6c  |....:..... .null|
00000360  0d 01 a4 12 e7 20 61 6e  69 6d 61 74 69 6e 67 25  |..... animating%|
00000370  20 8c 0d 01 ae 19 20 61  25 3d 73 74 6f 72 65 25  | ..... a%=store%|
00000380  2b 34 2a 73 74 6f 72 65  5f 70 25 0d 01 b8 0a 20  |+4*store_p%.... |
00000390  78 3d 3f 61 25 0d 01 c2  0b 20 79 3d 61 25 3f 31  |x=?a%.... y=a%?1|
000003a0  0d 01 cc 16 20 61 6d 6f  75 6e 74 62 28 78 2c 79  |.... amountb(x,y|
000003b0  29 3d 61 25 3f 32 0d 01  d6 12 20 21 71 25 3d 6d  |)=a%?2.... !q%=m|
000003c0  61 69 6e 68 61 6e 64 25  0d 01 e0 11 20 71 25 21  |ainhand%.... q%!|
000003d0  34 3d 78 2a 73 69 7a 65  25 0d 01 ea 11 20 71 25  |4=x*size%.... q%|
000003e0  21 38 3d 79 2a 73 69 7a  65 25 0d 01 f4 18 20 71  |!8=y*size%.... q|
000003f0  25 21 31 32 3d 78 2a 73  69 7a 65 25 2b 73 69 7a  |%!12=x*size%+siz|
00000400  65 25 0d 01 fe 18 20 71  25 21 31 36 3d 79 2a 73  |e%.... q%!16=y*s|
00000410  69 7a 65 25 2b 73 69 7a  65 25 0d 02 08 27 20 c8  |ize%+size%...' .|
00000420  99 20 22 57 69 6d 70 5f  55 70 64 61 74 65 57 69  |. "Wimp_UpdateWi|
00000430  6e 64 6f 77 22 2c 2c 71  25 20 b8 20 6d 6f 72 65  |ndow",,q% . more|
00000440  25 0d 02 12 0d 20 c8 95  20 6d 6f 72 65 25 0d 02  |%.... .. more%..|
00000450  1c 12 20 20 f2 65 78 74  72 61 63 74 28 71 25 29  |..  .extract(q%)|
00000460  0d 02 26 10 20 20 f2 64  72 61 77 28 78 2c 79 29  |..&.  .draw(x,y)|
00000470  0d 02 30 28 20 20 c8 99  20 22 57 69 6d 70 5f 47  |..0(  .. "Wimp_G|
00000480  65 74 52 65 63 74 61 6e  67 6c 65 22 2c 2c 71 25  |etRectangle",,q%|
00000490  20 b8 20 6d 6f 72 65 25  0d 02 3a 06 20 ce 0d 02  | . more%..:. ...|
000004a0  44 10 20 73 74 6f 72 65  5f 70 25 2b 3d 31 0d 02  |D. store_p%+=1..|
000004b0  4e 1a 20 e7 20 73 74 6f  72 65 5f 70 25 3d 73 74  |N. . store_p%=st|
000004c0  6f 72 65 5f 6e 25 20 8c  0d 02 58 12 20 20 61 6e  |ore_n% ...X.  an|
000004d0  69 6d 61 74 69 6e 67 25  3d a3 0d 02 62 13 20 20  |imating%=...b.  |
000004e0  f2 72 65 64 72 61 77 70  6c 61 79 65 72 0d 02 6c  |.redrawplayer..l|
000004f0  06 20 cd 0d 02 76 05 cc  0d 02 80 27 20 e7 20 63  |. ...v.....' . c|
00000500  6f 75 6e 74 28 70 31 29  3c 3d 30 20 80 20 73 74  |ount(p1)<=0 . st|
00000510  61 72 74 25 3d a3 20 8c  20 f2 63 79 63 6c 65 0d  |art%=. . .cycle.|
00000520  02 8a 18 20 e7 20 70 6c  61 79 25 28 70 31 2c 31  |... . play%(p1,1|
00000530  29 20 f2 67 61 6d 65 0d  02 94 05 cd 0d 02 9e 05  |) .game.........|
00000540  e1 0d 02 a8 05 3a 0d 02  b2 11 dd 20 f2 72 65 64  |.....:..... .red|
00000550  72 61 77 28 71 25 29 0d  02 bc 0a ea 20 6f 62 6a  |raw(q%)..... obj|
00000560  25 0d 02 c6 26 c8 99 20  22 57 69 6d 70 5f 52 65  |%...&.. "Wimp_Re|
00000570  64 72 61 77 57 69 6e 64  6f 77 22 2c 2c 71 25 20  |drawWindow",,q% |
00000580  b8 20 6d 6f 72 65 25 0d  02 d0 0c c8 95 20 6d 6f  |. more%...... mo|
00000590  72 65 25 0d 02 da 11 20  f2 65 78 74 72 61 63 74  |re%.... .extract|
000005a0  28 71 25 29 0d 02 e4 16  20 e7 20 21 71 25 3d 6d  |(q%).... . !q%=m|
000005b0  61 69 6e 68 61 6e 64 25  20 8c 0d 02 ee 1e 20 20  |ainhand% .....  |
000005c0  f2 72 65 64 72 61 77 73  63 72 65 65 6e 28 61 78  |.redrawscreen(ax|
000005d0  30 25 2c 61 79 30 25 29  0d 02 f8 06 20 cd 0d 03  |0%,ay0%).... ...|
000005e0  02 27 20 c8 99 20 22 57  69 6d 70 5f 47 65 74 52  |.' .. "Wimp_GetR|
000005f0  65 63 74 61 6e 67 6c 65  22 2c 2c 71 25 20 b8 20  |ectangle",,q% . |
00000600  6d 6f 72 65 25 0d 03 0c  05 ce 0d 03 16 05 e1 0d  |more%...........|
00000610  03 20 05 3a 0d 03 2a 0e  dd 20 f2 6d 65 73 73 61  |. .:..*.. .messa|
00000620  67 65 0d 03 34 10 ea 20  74 61 73 6b 25 2c 72 65  |ge..4.. task%,re|
00000630  66 25 0d 03 3e 0e 74 61  73 6b 25 3d 71 25 21 34  |f%..>.task%=q%!4|
00000640  0d 03 48 0d 72 65 66 25  3d 71 25 21 38 0d 03 52  |..H.ref%=q%!8..R|
00000650  0e c8 8e 20 71 25 21 31  36 20 ca 0d 03 5c 10 20  |... q%!16 ...\. |
00000660  c9 20 30 3a f2 66 69 6e  69 73 68 0d 03 66 05 cb  |. 0:.finish..f..|
00000670  0d 03 70 05 e1 0d 03 7a  05 3a 0d 03 84 37 dd 20  |..p....z.:...7. |
00000680  f2 63 68 65 63 6b 6d 6f  75 73 65 28 6d 6f 75 73  |.checkmouse(mous|
00000690  65 78 25 2c 6d 6f 75 73  65 79 25 2c 62 25 2c 68  |ex%,mousey%,b%,h|
000006a0  61 6e 64 6c 65 25 2c 69  63 6f 6e 25 2c 6f 62 25  |andle%,icon%,ob%|
000006b0  29 0d 03 8e 16 e7 20 28  62 25 20 80 20 25 30 31  |)..... (b% . %01|
000006c0  30 31 29 3e 30 20 8c 0d  03 98 10 c8 8e 20 68 61  |01)>0 ....... ha|
000006d0  6e 64 6c 65 25 20 ca 0d  03 a2 24 c9 20 2d 32 3a  |ndle% ....$. -2:|
000006e0  20 e7 20 61 63 74 69 76  65 25 20 f2 66 72 6f 6e  | . active% .fron|
000006f0  74 20 8b 20 f2 72 65 6f  70 65 6e 0d 03 ac 10 c9  |t . .reopen.....|
00000700  20 6d 61 69 6e 68 61 6e  64 25 3a 0d 03 b6 09 f2  | mainhand%:.....|
00000710  67 61 6d 65 0d 03 c0 05  cb 0d 03 ca 05 cd 0d 03  |game............|
00000720  d4 12 e7 20 28 62 25 20  80 20 32 29 3e 30 20 8c  |... (b% . 2)>0 .|
00000730  0d 03 de 10 c8 8e 20 68  61 6e 64 6c 65 25 20 ca  |...... handle% .|
00000740  0d 03 e8 09 c9 20 2d 32  3a 0d 03 f2 13 6d 65 6e  |..... -2:....men|
00000750  75 68 61 6e 64 6c 65 25  3d 31 30 31 0d 03 fc 2a  |uhandle%=101...*|
00000760  f2 6f 70 65 6e 6d 65 6e  75 28 71 75 69 74 6d 65  |.openmenu(quitme|
00000770  6e 75 25 2c 6d 6f 75 73  65 78 25 2d 38 36 2c 31  |nu%,mousex%-86,1|
00000780  38 30 2d 34 30 29 0d 04  06 33 6d 65 6e 75 6f 70  |80-40)...3menuop|
00000790  65 6e 25 3d 71 75 69 74  6d 65 6e 75 25 3a f4 20  |en%=quitmenu%:. |
000007a0  6d 65 6e 75 20 6f 70 65  6e 20 66 6c 61 67 20 28  |menu open flag (|
000007b0  66 6f 72 20 68 65 6c 70  29 0d 04 10 10 c9 20 6d  |for help)..... m|
000007c0  61 69 6e 68 61 6e 64 25  3a 0d 04 1a 13 6d 65 6e  |ainhand%:....men|
000007d0  75 68 61 6e 64 6c 65 25  3d 31 30 32 0d 04 24 11  |uhandle%=102..$.|
000007e0  f2 70 72 65 70 61 72 65  6d 65 6e 75 73 0d 04 2e  |.preparemenus...|
000007f0  2b f2 6f 70 65 6e 6d 65  6e 75 28 6d 61 69 6e 6d  |+.openmenu(mainm|
00000800  65 6e 75 25 2c 6d 6f 75  73 65 78 25 2d 36 34 2c  |enu%,mousex%-64,|
00000810  6d 6f 75 73 65 79 25 29  0d 04 38 33 6d 65 6e 75  |mousey%)..83menu|
00000820  6f 70 65 6e 25 3d 6d 61  69 6e 6d 65 6e 75 25 3a  |open%=mainmenu%:|
00000830  f4 20 6d 65 6e 75 20 6f  70 65 6e 20 66 6c 61 67  |. menu open flag|
00000840  20 28 66 6f 72 20 68 65  6c 70 29 0d 04 42 05 cb  | (for help)..B..|
00000850  0d 04 4c 05 cd 0d 04 56  05 e1 0d 04 60 05 3a 0d  |..L....V....`.:.|
00000860  04 6a 10 dd 20 f2 6d 61  6b 65 6d 65 6e 75 73 0d  |.j.. .makemenus.|
00000870  04 74 15 6d 65 6e 75 70  74 72 25 3d 6d 65 6e 75  |.t.menuptr%=menu|
00000880  62 75 66 25 0d 04 7e 0e  e3 20 4e 25 3d 31 20 b8  |buf%..~.. N%=1 .|
00000890  20 36 0d 04 88 3a 70 6c  61 79 25 28 4e 25 2c 30  | 6...:play%(N%,0|
000008a0  29 3d a4 6d 61 6b 65 6d  65 6e 28 22 48 75 6d 61  |)=.makemen("Huma|
000008b0  6e 2c 43 6f 6d 70 75 74  65 72 22 2c 22 50 6c 61  |n,Computer","Pla|
000008c0  79 65 72 20 22 2b c3 28  4e 25 29 29 0d 04 92 05  |yer "+.(N%))....|
000008d0  ed 0d 04 9c e7 6d 61 69  6e 6d 65 6e 75 25 3d a4  |.....mainmenu%=.|
000008e0  6d 61 6b 65 6d 65 6e 28  22 4e 65 77 20 47 61 6d  |makemen("New Gam|
000008f0  65 2c 22 2b a4 73 75 62  28 22 50 6c 61 79 65 72  |e,"+.sub("Player|
00000900  20 31 22 2c 70 6c 61 79  25 28 31 2c 30 29 29 2b  | 1",play%(1,0))+|
00000910  22 2c 22 2b a4 73 75 62  28 22 50 6c 61 79 65 72  |","+.sub("Player|
00000920  20 32 22 2c 70 6c 61 79  25 28 32 2c 30 29 29 2b  | 2",play%(2,0))+|
00000930  22 2c 22 2b a4 73 75 62  28 22 50 6c 61 79 65 72  |","+.sub("Player|
00000940  20 33 22 2c 70 6c 61 79  25 28 33 2c 30 29 29 2b  | 3",play%(3,0))+|
00000950  22 2c 22 2b a4 73 75 62  28 22 50 6c 61 79 65 72  |","+.sub("Player|
00000960  20 34 22 2c 70 6c 61 79  25 28 34 2c 30 29 29 2b  | 4",play%(4,0))+|
00000970  22 2c 22 2b a4 73 75 62  28 22 50 6c 61 79 65 72  |","+.sub("Player|
00000980  20 35 22 2c 70 6c 61 79  25 28 35 2c 30 29 29 2b  | 5",play%(5,0))+|
00000990  22 2c 22 2b a4 73 75 62  28 22 50 6c 61 79 65 72  |","+.sub("Player|
000009a0  20 36 22 2c 70 6c 61 79  25 28 36 2c 30 29 29 2c  | 6",play%(6,0)),|
000009b0  22 41 74 6f 6d 73 22 29  0d 04 a6 26 71 75 69 74  |"Atoms")...&quit|
000009c0  6d 65 6e 75 25 3d a4 6d  61 6b 65 6d 65 6e 28 22  |menu%=.makemen("|
000009d0  51 75 69 74 22 2c 22 41  74 6f 6d 73 22 29 0d 04  |Quit","Atoms")..|
000009e0  b0 05 e1 0d 04 ba 05 3a  0d 04 c4 13 dd 20 f2 70  |.......:..... .p|
000009f0  72 65 70 61 72 65 6d 65  6e 75 73 0d 04 ce 0e e3  |reparemenus.....|
00000a00  20 4e 25 3d 31 20 b8 20  36 0d 04 d8 24 f2 74 69  | N%=1 . 6...$.ti|
00000a10  63 6b 28 6d 61 69 6e 6d  65 6e 75 25 2c 4e 25 2c  |ck(mainmenu%,N%,|
00000a20  4e 25 3c 3d 70 6c 61 79  65 72 73 25 29 0d 04 e2  |N%<=players%)...|
00000a30  24 f2 74 69 63 6b 28 70  6c 61 79 25 28 4e 25 2c  |$.tick(play%(N%,|
00000a40  30 29 2c 70 6c 61 79 25  28 4e 25 2c 31 29 2c b9  |0),play%(N%,1),.|
00000a50  29 0d 04 ec 26 f2 74 69  63 6b 28 70 6c 61 79 25  |)...&.tick(play%|
00000a60  28 4e 25 2c 30 29 2c 31  2d 70 6c 61 79 25 28 4e  |(N%,0),1-play%(N|
00000a70  25 2c 31 29 2c a3 29 0d  04 f6 3e e7 20 73 74 61  |%,1),.)...>. sta|
00000a80  72 74 25 3d a3 20 f2 6c  69 67 68 74 28 6d 61 69  |rt%=. .light(mai|
00000a90  6e 6d 65 6e 75 25 2c 4e  25 2c a3 29 20 8b 20 f2  |nmenu%,N%,.) . .|
00000aa0  6c 69 67 68 74 28 6d 61  69 6e 6d 65 6e 75 25 2c  |light(mainmenu%,|
00000ab0  4e 25 2c b9 29 0d 05 00  05 ed 0d 05 0a 05 e1 0d  |N%,.)...........|
00000ac0  05 14 05 3a 0d 05 1e 16  dd 20 f2 6c 69 67 68 74  |...:..... .light|
00000ad0  28 61 25 2c 69 25 2c 63  25 29 0d 05 28 12 61 25  |(a%,i%,c%)..(.a%|
00000ae0  3d 61 25 2b 33 36 2b 32  34 2a 69 25 0d 05 32 34  |=a%+36+24*i%..24|
00000af0  e7 20 63 25 20 8c 20 21  61 25 3d 21 61 25 20 80  |. c% . !a%=!a% .|
00000b00  20 26 46 46 42 46 46 46  46 46 20 8b 20 21 61 25  | &FFBFFFFF . !a%|
00000b10  3d 21 61 25 20 84 20 26  30 30 34 30 30 30 30 30  |=!a% . &00400000|
00000b20  0d 05 3c 05 e1 0d 05 46  05 3a 0d 05 50 15 dd 20  |..<....F.:..P.. |
00000b30  f2 74 69 63 6b 28 61 25  2c 69 25 2c 63 25 29 0d  |.tick(a%,i%,c%).|
00000b40  05 5a 12 61 25 3d 61 25  2b 32 38 2b 32 34 2a 69  |.Z.a%=a%+28+24*i|
00000b50  25 0d 05 64 2c e7 20 63  25 20 8c 20 21 61 25 3d  |%..d,. c% . !a%=|
00000b60  21 61 25 20 84 20 31 20  8b 20 21 61 25 3d 21 61  |!a% . 1 . !a%=!a|
00000b70  25 20 80 20 26 46 46 46  46 46 46 46 45 0d 05 6e  |% . &FFFFFFFE..n|
00000b80  05 e1 0d 05 78 05 3a 0d  05 82 30 dd 20 a4 73 75  |....x.:...0. .su|
00000b90  62 28 6d 24 2c 6d 25 29  3d 22 7c 73 75 62 22 2b  |b(m$,m%)="|sub"+|
00000ba0  c2 22 30 30 30 30 30 30  30 22 2b c3 28 6d 25 29  |."0000000"+.(m%)|
00000bb0  2c 31 32 29 2b 6d 24 0d  05 8c 05 3a 0d 05 96 16  |,12)+m$....:....|
00000bc0  dd 20 f2 6d 65 6e 75 69  74 65 6d 28 74 65 78 74  |. .menuitem(text|
00000bd0  24 29 0d 05 a0 33 ea 20  6d 65 6e 75 66 6c 61 67  |$)...3. menuflag|
00000be0  73 25 2c 69 63 6f 6e 66  6c 61 67 73 25 2c 73 75  |s%,iconflags%,su|
00000bf0  62 6d 65 6e 75 25 2c 69  6e 64 6c 65 6e 25 2c 76  |bmenu%,indlen%,v|
00000c00  61 6c 69 64 25 0d 05 aa  0d 76 61 6c 69 64 25 3d  |alid%....valid%=|
00000c10  2d 31 0d 05 b4 09 69 69  25 3d a3 0d 05 be 0e 69  |-1....ii%=.....i|
00000c20  6e 64 6c 65 6e 25 3d 2d  31 0d 05 c8 0f 73 75 62  |ndlen%=-1....sub|
00000c30  6d 65 6e 75 25 3d 2d 31  0d 05 d2 10 e7 20 74 65  |menu%=-1..... te|
00000c40  78 74 24 3d 22 22 20 e1  0d 05 dc 10 6d 65 6e 75  |xt$="" .....menu|
00000c50  66 6c 61 67 73 25 3d 30  0d 05 e6 18 69 63 6f 6e  |flags%=0....icon|
00000c60  66 6c 61 67 73 25 3d 26  30 37 30 30 30 30 32 31  |flags%=&07000021|
00000c70  0d 05 f0 14 c8 95 20 c0  74 65 78 74 24 2c 31 29  |...... .text$,1)|
00000c80  3d 22 7c 22 0d 05 fa 14  c8 8e 20 c1 74 65 78 74  |="|"...... .text|
00000c90  24 2c 32 2c 33 29 20 ca  0d 06 04 0c c9 20 22 73  |$,2,3) ...... "s|
00000ca0  75 62 22 3a 0d 06 0e 1c  73 75 62 6d 65 6e 75 25  |ub":....submenu%|
00000cb0  3d bb 28 c1 74 65 78 74  24 2c 35 2c 31 32 29 29  |=.(.text$,5,12))|
00000cc0  0d 06 18 14 74 65 78 74  24 3d c1 74 65 78 74 24  |....text$=.text$|
00000cd0  2c 31 37 29 0d 06 22 0c  c9 20 22 77 69 6e 22 3a  |,17)..".. "win":|
00000ce0  0d 06 2c 14 c8 8e 20 c1  74 65 78 74 24 2c 35 2c  |..,... .text$,5,|
00000cf0  32 29 20 ca 0d 06 36 1d  c9 20 22 73 76 22 3a 73  |2) ...6.. "sv":s|
00000d00  75 62 6d 65 6e 75 25 3d  73 61 76 65 68 61 6e 64  |ubmenu%=savehand|
00000d10  25 0d 06 40 1d c9 20 22  7a 6d 22 3a 73 75 62 6d  |%..@.. "zm":subm|
00000d20  65 6e 75 25 3d 7a 6f 6f  6d 68 61 6e 64 25 0d 06  |enu%=zoomhand%..|
00000d30  4a 1d c9 20 22 69 64 22  3a 73 75 62 6d 65 6e 75  |J.. "id":submenu|
00000d40  25 3d 69 6e 66 6f 68 61  6e 64 25 0d 06 54 05 cb  |%=infohand%..T..|
00000d50  0d 06 5e 13 74 65 78 74  24 3d c1 74 65 78 74 24  |..^.text$=.text$|
00000d60  2c 37 29 0d 06 68 05 cb  0d 06 72 05 ce 0d 06 7c  |,7)..h....r....||
00000d70  29 e7 20 a9 28 74 65 78  74 24 29 3e 6d 65 6e 75  |). .(text$)>menu|
00000d80  6d 61 78 25 20 6d 65 6e  75 6d 61 78 25 3d a9 28  |max% menumax%=.(|
00000d90  74 65 78 74 24 29 0d 06  86 19 6d 65 6e 75 70 74  |text$)....menupt|
00000da0  72 25 21 30 3d 6d 65 6e  75 66 6c 61 67 73 25 0d  |r%!0=menuflags%.|
00000db0  06 90 17 6d 65 6e 75 70  74 72 25 21 34 3d 73 75  |...menuptr%!4=su|
00000dc0  62 6d 65 6e 75 25 0d 06  9a 19 6d 65 6e 75 70 74  |bmenu%....menupt|
00000dd0  72 25 21 38 3d 69 63 6f  6e 66 6c 61 67 73 25 0d  |r%!8=iconflags%.|
00000de0  06 a4 22 e7 20 a9 28 74  65 78 74 24 29 3e 31 31  |..". .(text$)>11|
00000df0  20 69 6e 64 6c 65 6e 25  3d a9 28 74 65 78 74 24  | indlen%=.(text$|
00000e00  29 0d 06 ae 11 e7 20 69  6e 64 6c 65 6e 25 3c 30  |)..... indlen%<0|
00000e10  20 8c 0d 06 b8 18 24 28  6d 65 6e 75 70 74 72 25  | .....$(menuptr%|
00000e20  2b 31 32 29 3d 74 65 78  74 24 0d 06 c2 05 cc 0d  |+12)=text$......|
00000e30  06 cc 1f 6d 65 6e 65 6e  64 25 3d 6d 65 6e 65 6e  |...menend%=menen|
00000e40  64 25 2d 28 69 6e 64 6c  65 6e 25 2b 31 29 0d 06  |d%-(indlen%+1)..|
00000e50  d6 28 6d 65 6e 75 70 74  72 25 21 38 3d 28 6d 65  |.(menuptr%!8=(me|
00000e60  6e 75 70 74 72 25 21 38  29 20 84 20 25 31 30 30  |nuptr%!8) . %100|
00000e70  30 30 30 30 30 30 0d 06  e0 17 6d 65 6e 75 70 74  |000000....menupt|
00000e80  72 25 21 31 32 3d 6d 65  6e 65 6e 64 25 0d 06 ea  |r%!12=menend%...|
00000e90  16 6d 65 6e 75 70 74 72  25 21 31 36 3d 76 61 6c  |.menuptr%!16=val|
00000ea0  69 64 25 0d 06 f4 17 6d  65 6e 75 70 74 72 25 21  |id%....menuptr%!|
00000eb0  32 30 3d 69 6e 64 6c 65  6e 25 0d 06 fe 12 24 6d  |20=indlen%....$m|
00000ec0  65 6e 65 6e 64 25 3d 74  65 78 74 24 0d 07 08 05  |enend%=text$....|
00000ed0  cd 0d 07 12 10 6d 65 6e  75 70 74 72 25 2b 3d 32  |.....menuptr%+=2|
00000ee0  34 0d 07 1c 05 e1 0d 07  26 05 3a 0d 07 30 10 dd  |4.......&.:..0..|
00000ef0  20 a4 70 61 72 28 73 65  70 24 29 0d 07 3a 25 69  | .par(sep$)..:%i|
00000f00  31 25 3d 69 25 2b 31 3a  69 25 3d a7 6d 65 6e 75  |1%=i%+1:i%=.menu|
00000f10  24 2b 73 65 70 24 2c 73  65 70 24 2c 69 31 25 29  |$+sep$,sep$,i1%)|
00000f20  0d 07 44 17 3d c1 6d 65  6e 75 24 2c 69 31 25 2c  |..D.=.menu$,i1%,|
00000f30  69 25 2d 69 31 25 29 0d  07 4e 05 3a 0d 07 58 20  |i%-i1%)..N.:..X |
00000f40  dd 20 a4 6d 61 6b 65 6d  65 6e 28 6d 65 6e 75 24  |. .makemen(menu$|
00000f50  2c 6d 65 6e 75 74 69 74  6c 65 24 29 0d 07 62 16  |,menutitle$)..b.|
00000f60  ea 20 6d 65 6e 75 6d 61  78 25 2c 77 61 73 70 74  |. menumax%,waspt|
00000f70  72 25 0d 07 6c 14 77 61  73 70 74 72 25 3d 6d 65  |r%..l.wasptr%=me|
00000f80  6e 75 70 74 72 25 0d 07  76 0e 6d 65 6e 75 6d 61  |nuptr%..v.menuma|
00000f90  78 25 3d 34 0d 07 80 08  69 25 3d 30 0d 07 8a 12  |x%=4....i%=0....|
00000fa0  6d 65 6e 75 70 74 72 25  21 32 30 3d 34 34 0d 07  |menuptr%!20=44..|
00000fb0  94 18 24 6d 65 6e 75 70  74 72 25 3d 6d 65 6e 75  |..$menuptr%=menu|
00000fc0  74 69 74 6c 65 24 0d 07  9e 11 6d 65 6e 75 70 74  |title$....menupt|
00000fd0  72 25 3f 31 32 3d 37 0d  07 a8 11 6d 65 6e 75 70  |r%?12=7....menup|
00000fe0  74 72 25 3f 31 33 3d 32  0d 07 b2 11 6d 65 6e 75  |tr%?13=2....menu|
00000ff0  70 74 72 25 3f 31 34 3d  37 0d 07 bc 11 6d 65 6e  |ptr%?14=7....men|
00001000  75 70 74 72 25 3f 31 35  3d 30 0d 07 c6 18 6d 61  |uptr%?15=0....ma|
00001010  78 61 64 64 72 25 3d 6d  65 6e 75 70 74 72 25 2b  |xaddr%=menuptr%+|
00001020  31 36 0d 07 d0 11 6d 65  6e 75 70 74 72 25 21 32  |16....menuptr%!2|
00001030  34 3d 30 0d 07 da 10 6d  65 6e 75 70 74 72 25 2b  |4=0....menuptr%+|
00001040  3d 32 38 0d 07 e4 05 f5  0d 07 ee 13 69 74 65 6d  |=28.........item|
00001050  24 3d a4 70 61 72 28 22  2c 22 29 0d 07 f8 14 f2  |$=.par(",").....|
00001060  6d 65 6e 75 69 74 65 6d  28 69 74 65 6d 24 29 0d  |menuitem(item$).|
00001070  08 02 0e fd 20 69 74 65  6d 24 3d 22 22 0d 08 0c  |.... item$=""...|
00001080  25 6d 65 6e 75 70 74 72  25 21 2d 32 34 3d 28 6d  |%menuptr%!-24=(m|
00001090  65 6e 75 70 74 72 25 21  2d 32 34 29 20 84 20 26  |enuptr%!-24) . &|
000010a0  38 30 0d 08 16 1c 21 6d  61 78 61 64 64 72 25 3d  |80....!maxaddr%=|
000010b0  6d 65 6e 75 6d 61 78 25  2a 31 36 2b 33 32 0d 08  |menumax%*16+32..|
000010c0  20 0c 3d 77 61 73 70 74  72 25 0d 08 2a 05 3a 0d  | .=wasptr%..*.:.|
000010d0  08 34 19 dd 20 f2 6f 70  65 6e 6d 65 6e 75 28 6d  |.4.. .openmenu(m|
000010e0  25 2c 78 25 2c 79 25 29  0d 08 3e 0d 6d 65 6e 75  |%,x%,y%)..>.menu|
000010f0  78 25 3d 78 25 0d 08 48  0d 6d 65 6e 75 79 25 3d  |x%=x%..H.menuy%=|
00001100  79 25 0d 08 52 22 c8 99  20 22 57 69 6d 70 5f 43  |y%..R".. "Wimp_C|
00001110  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 25 2c 78  |reateMenu",,m%,x|
00001120  25 2c 79 25 0d 08 5c 05  e1 0d 08 66 05 3a 0d 08  |%,y%..\....f.:..|
00001130  70 19 dd 20 f2 6d 65 6e  75 73 65 6c 65 63 74 28  |p.. .menuselect(|
00001140  6d 65 6e 75 73 25 29 0d  08 7a 14 c8 8e 20 6d 65  |menus%)..z... me|
00001150  6e 75 68 61 6e 64 6c 65  25 20 ca 0d 08 84 1e c9  |nuhandle% ......|
00001160  20 31 30 31 3a 20 e7 20  21 6d 65 6e 75 73 25 3d  | 101: . !menus%=|
00001170  30 20 f2 66 69 6e 69 73  68 0d 08 8e 1a c9 20 31  |0 .finish..... 1|
00001180  30 32 3a 20 f2 64 65 63  6f 64 65 6d 61 69 6e 6d  |02: .decodemainm|
00001190  65 6e 75 0d 08 98 05 cb  0d 08 a2 05 e1 0d 08 ac  |enu.............|
000011a0  05 3a 0d 08 b6 15 dd 20  f2 64 65 63 6f 64 65 6d  |.:..... .decodem|
000011b0  61 69 6e 6d 65 6e 75 0d  08 c0 0b ea 20 72 65 64  |ainmenu..... red|
000011c0  6f 25 0d 08 ca 21 c8 99  20 22 57 69 6d 70 5f 47  |o%...!.. "Wimp_G|
000011d0  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
000011e0  71 32 25 0d 08 d4 1b 72  65 64 6f 25 3d 28 28 28  |q2%....redo%=(((|
000011f0  71 32 25 21 38 29 20 80  20 31 29 3e 30 29 0d 08  |q2%!8) . 1)>0)..|
00001200  de 10 c8 8e 20 21 6d 65  6e 75 73 25 20 ca 0d 08  |.... !menus% ...|
00001210  e8 10 c9 20 30 3a f2 6e  65 77 67 61 6d 65 0d 08  |... 0:.newgame..|
00001220  f2 12 c9 20 31 2c 32 2c  33 2c 34 2c 35 2c 36 3a  |... 1,2,3,4,5,6:|
00001230  0d 08 fc 39 20 e7 20 70  6c 61 79 65 72 73 25 3c  |...9 . players%<|
00001240  6d 65 6e 75 73 25 21 30  20 84 20 6d 65 6e 75 73  |menus%!0 . menus|
00001250  25 21 34 3c 30 20 8c 20  70 6c 61 79 65 72 73 25  |%!4<0 . players%|
00001260  3d 6d 65 6e 75 73 25 21  30 0d 09 06 36 20 e7 20  |=menus%!0...6 . |
00001270  70 6c 61 79 65 72 73 25  3c 32 20 70 6c 61 79 65  |players%<2 playe|
00001280  72 73 25 3d 32 20 8b 20  e7 20 70 6c 61 79 65 72  |rs%=2 . . player|
00001290  73 25 3e 36 20 70 6c 61  79 65 72 73 25 3d 36 0d  |s%>6 players%=6.|
000012a0  09 10 14 20 e7 20 6d 65  6e 75 73 25 21 34 3e 3d  |... . menus%!4>=|
000012b0  30 20 8c 0d 09 1a 1f 20  20 70 6c 61 79 25 28 21  |0 .....  play%(!|
000012c0  6d 65 6e 75 73 25 2c 31  29 3d 6d 65 6e 75 73 25  |menus%,1)=menus%|
000012d0  21 34 0d 09 24 06 20 cd  0d 09 2e 05 cb 0d 09 38  |!4..$. ........8|
000012e0  1a 73 74 69 6c 6c 5f 70  6c 61 79 69 6e 67 3d 70  |.still_playing=p|
000012f0  6c 61 79 65 72 73 25 0d  09 42 0f 6d 65 6e 75 6f  |layers%..B.menuo|
00001300  70 65 6e 25 3d 30 0d 09  4c 50 e7 20 72 65 64 6f  |pen%=0..LP. redo|
00001310  25 20 f2 70 72 65 70 61  72 65 6d 65 6e 75 73 3a  |% .preparemenus:|
00001320  f2 6f 70 65 6e 6d 65 6e  75 28 6d 61 69 6e 6d 65  |.openmenu(mainme|
00001330  6e 75 25 2c 6d 65 6e 75  78 25 2c 6d 65 6e 75 79  |nu%,menux%,menuy|
00001340  25 29 3a 6d 65 6e 75 6f  70 65 6e 25 3d 6d 61 69  |%):menuopen%=mai|
00001350  6e 6d 65 6e 75 25 0d 09  56 05 e1 0d 09 60 05 3a  |nmenu%..V....`.:|
00001360  0d 09 6a 12 dd 20 f2 65  78 74 72 61 63 74 28 71  |..j.. .extract(q|
00001370  25 29 0d 09 74 13 61 78  30 25 3d 71 25 21 34 2d  |%)..t.ax0%=q%!4-|
00001380  71 25 21 32 30 0d 09 7e  14 61 79 30 25 3d 71 25  |q%!20..~.ay0%=q%|
00001390  21 31 36 2d 71 25 21 32  34 0d 09 88 13 67 78 30  |!16-q%!24....gx0|
000013a0  25 3d 71 25 21 32 38 2d  61 78 30 25 0d 09 92 13  |%=q%!28-ax0%....|
000013b0  67 79 30 25 3d 71 25 21  33 32 2d 61 79 30 25 0d  |gy0%=q%!32-ay0%.|
000013c0  09 9c 13 67 78 31 25 3d  71 25 21 33 36 2d 61 78  |...gx1%=q%!36-ax|
000013d0  30 25 0d 09 a6 13 67 79  31 25 3d 71 25 21 34 30  |0%....gy1%=q%!40|
000013e0  2d 61 79 30 25 0d 09 b0  05 e1 0d 09 ba 05 3a 0d  |-ay0%.........:.|
000013f0  09 c4 19 dd 20 f2 66 6f  72 63 65 72 65 64 72 61  |.... .forceredra|
00001400  77 28 68 61 6e 64 25 29  0d 09 ce 0e 21 71 32 25  |w(hand%)....!q2%|
00001410  3d 68 61 6e 64 25 0d 09  d8 20 c8 99 20 22 57 69  |=hand%... .. "Wi|
00001420  6d 70 5f 47 65 74 57 69  6e 64 6f 77 49 6e 66 6f  |mp_GetWindowInfo|
00001430  22 2c 2c 71 32 25 0d 09  e2 3b c8 99 20 22 57 69  |",,q2%...;.. "Wi|
00001440  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
00001450  68 61 6e 64 25 2c 71 32  25 21 34 34 2c 71 32 25  |hand%,q2%!44,q2%|
00001460  21 34 38 2c 71 32 25 21  35 32 2c 71 32 25 21 35  |!48,q2%!52,q2%!5|
00001470  36 0d 09 ec 05 e1 0d 09  f6 05 3a 0d 0a 00 12 dd  |6.........:.....|
00001480  20 f2 69 6e 69 74 77 69  6e 64 6f 77 73 0d 0a 0a  | .initwindows...|
00001490  1f 6d 61 69 6e 68 61 6e  64 25 3d a4 63 77 69 6e  |.mainhand%=.cwin|
000014a0  64 6f 77 28 22 41 74 6f  6d 73 22 29 0d 0a 14 05  |dow("Atoms")....|
000014b0  e1 0d 0a 1e 05 3a 0d 0a  28 11 dd a4 63 77 69 6e  |.....:..(...cwin|
000014c0  64 6f 77 28 41 24 29 0d  0a 32 28 66 25 3d 25 31  |dow(A$)..2(f%=%1|
000014d0  30 30 30 30 31 31 31 30  30 30 30 30 30 30 30 30  |0000111000000000|
000014e0  30 30 30 30 30 30 30 30  30 30 30 30 30 31 30 0d  |000000000000010.|
000014f0  0a 3c 09 66 63 25 3d 30  0d 0a 46 09 62 63 25 3d  |.<.fc%=0..F.bc%=|
00001500  37 0d 0a 50 09 78 30 25  3d 30 0d 0a 5a 09 79 30  |7..P.x0%=0..Z.y0|
00001510  25 3d 30 0d 0a 64 16 78  31 25 3d 36 30 30 20 20  |%=0..d.x1%=600  |
00001520  20 3a f4 20 6d 61 78 5f  78 0d 0a 6e 16 79 31 25  | :. max_x..n.y1%|
00001530  3d 35 30 30 20 20 20 3a  f4 20 6d 61 78 5f 79 0d  |=500   :. max_y.|
00001540  0a 78 14 63 78 30 25 3d  38 30 30 20 20 3a f4 20  |.x.cx0%=800  :. |
00001550  77 61 6c 0d 0a 82 14 63  79 30 25 3d 37 30 30 20  |wal....cy0%=700 |
00001560  20 3a f4 20 77 61 62 0d  0a 8c 14 63 78 31 25 3d  | :. wab....cx1%=|
00001570  31 30 30 30 30 3a f4 20  77 61 72 0d 0a 96 14 63  |10000:. war....c|
00001580  79 31 25 3d 31 30 30 30  30 3a f4 20 77 61 74 0d  |y1%=10000:. wat.|
00001590  0a a0 0d 6e 69 63 6f 6e  73 25 3d 30 0d 0a aa 58  |...nicons%=0...X|
000015a0  3d a4 63 72 65 61 74 65  5f 77 69 6e 64 6f 77 28  |=.create_window(|
000015b0  63 78 30 25 2c 63 79 30  25 2c 63 78 31 25 2c 63  |cx0%,cy0%,cx1%,c|
000015c0  79 31 25 2c 30 2c 79 31  25 2c 66 25 2c 66 63 25  |y1%,0,y1%,f%,fc%|
000015d0  2c 62 63 25 2c 78 30 25  2c 79 30 25 2c 78 31 25  |,bc%,x0%,y0%,x1%|
000015e0  2c 79 31 25 2c 26 32 44  2c 41 24 2c 6e 69 63 6f  |,y1%,&2D,A$,nico|
000015f0  6e 73 25 29 0d 0a b4 05  3a 0d 0a be 6c dd a4 63  |ns%)....:...l..c|
00001600  72 65 61 74 65 5f 77 69  6e 64 6f 77 28 63 78 30  |reate_window(cx0|
00001610  25 2c 63 79 30 25 2c 63  78 31 25 2c 63 79 31 25  |%,cy0%,cx1%,cy1%|
00001620  2c 73 63 78 25 2c 73 63  79 25 2c 66 6c 61 67 73  |,scx%,scy%,flags|
00001630  25 2c 66 63 25 2c 62 63  25 2c 73 78 30 25 2c 73  |%,fc%,bc%,sx0%,s|
00001640  79 30 25 2c 73 78 31 25  2c 73 79 31 25 2c 74 69  |y0%,sx1%,sy1%,ti|
00001650  74 6c 65 66 25 2c 74 69  74 6c 65 24 2c 6e 69 63  |tlef%,title$,nic|
00001660  6f 6e 73 25 29 0d 0a c8  41 21 71 25 3d 63 78 30  |ons%)...A!q%=cx0|
00001670  25 3a 71 25 21 34 3d 63  79 30 25 3a 71 25 21 38  |%:q%!4=cy0%:q%!8|
00001680  3d 63 78 31 25 3a 71 25  21 31 32 3d 63 79 31 25  |=cx1%:q%!12=cy1%|
00001690  3a 71 25 21 31 36 3d 73  63 78 25 3a 71 25 21 32  |:q%!16=scx%:q%!2|
000016a0  30 3d 73 63 79 25 0d 0a  d2 19 71 25 21 32 34 3d  |0=scy%....q%!24=|
000016b0  2d 31 3a 71 25 21 32 38  3d 66 6c 61 67 73 25 0d  |-1:q%!28=flags%.|
000016c0  0a dc 13 e7 66 63 25 3d  31 35 80 62 63 25 3d 31  |....fc%=15.bc%=1|
000016d0  35 8c 0d 0a e6 29 71 25  3f 33 32 3d 31 35 3a 71  |5....)q%?32=15:q|
000016e0  25 3f 33 33 3d 31 35 3a  71 25 3f 33 34 3d 66 63  |%?33=15:q%?34=fc|
000016f0  25 3a 71 25 3f 33 35 3d  62 63 25 0d 0a f0 29 cc  |%:q%?35=bc%...).|
00001700  20 71 25 3f 33 32 3d 37  3a 71 25 3f 33 33 3d 32  | q%?32=7:q%?33=2|
00001710  3a 71 25 3f 33 34 3d 66  63 25 3a 71 25 3f 33 35  |:q%?34=fc%:q%?35|
00001720  3d 62 63 25 0d 0a fa 05  cd 0d 0b 04 24 71 25 3f  |=bc%........$q%?|
00001730  33 36 3d 33 3a 71 25 3f  33 37 3d 31 3a 71 25 3f  |36=3:q%?37=1:q%?|
00001740  33 38 3d 31 32 3a 71 25  3f 33 39 3d 30 0d 0b 0e  |38=12:q%?39=0...|
00001750  2f 71 25 21 34 30 3d 73  78 30 25 3a 71 25 21 34  |/q%!40=sx0%:q%!4|
00001760  34 3d 73 79 30 25 3a 71  25 21 34 38 3d 73 78 31  |4=sy0%:q%!48=sx1|
00001770  25 3a 71 25 21 35 32 3d  73 79 31 25 0d 0b 18 11  |%:q%!52=sy1%....|
00001780  71 25 21 35 36 3d 74 69  74 6c 65 66 25 0d 0b 22  |q%!56=titlef%.."|
00001790  28 71 25 21 36 30 3d 26  33 30 30 30 20 20 20 20  |(q%!60=&3000    |
000017a0  20 20 3a 20 f4 20 77 6f  72 6b 20 61 72 65 61 20  |  : . work area |
000017b0  66 6c 61 67 73 0d 0b 2c  21 71 25 21 36 34 3d 30  |flags..,!q%!64=0|
000017c0  3a 71 25 21 36 38 3d 30  20 20 3a 20 f4 20 72 65  |:q%!68=0  : . re|
000017d0  73 65 72 76 65 64 0d 0b  36 18 24 28 71 25 2b 37  |served..6.$(q%+7|
000017e0  32 29 3d c0 74 69 74 6c  65 24 2c 31 31 29 0d 0b  |2)=.title$,11)..|
000017f0  40 11 71 25 21 38 34 3d  6e 69 63 6f 6e 73 25 0d  |@.q%!84=nicons%.|
00001800  0b 4a 29 ea 49 25 2c 78  30 25 2c 79 30 25 2c 78  |.J).I%,x0%,y0%,x|
00001810  31 25 2c 79 31 25 2c 66  25 2c 64 61 74 61 24 3a  |1%,y1%,f%,data$:|
00001820  49 25 3d 71 25 2b 38 38  0d 0b 54 10 c8 95 20 6e  |I%=q%+88..T... n|
00001830  69 63 6f 6e 73 25 3e 30  0d 0b 5e 26 f3 20 78 30  |icons%>0..^&. x0|
00001840  25 2c 79 30 25 2c 78 31  25 2c 79 31 25 2c 66 25  |%,y0%,x1%,y1%,f%|
00001850  2c 66 63 25 2c 62 63 25  2c 64 61 74 61 24 0d 0b  |,fc%,bc%,data$..|
00001860  68 28 49 25 21 30 3d 78  30 25 3a 49 25 21 34 3d  |h(I%!0=x0%:I%!4=|
00001870  79 30 25 3a 49 25 21 38  3d 78 31 25 3a 49 25 21  |y0%:I%!8=x1%:I%!|
00001880  31 32 3d 79 31 25 0d 0b  72 23 e7 20 28 66 25 80  |12=y1%..r#. (f%.|
00001890  26 34 30 29 3d 30 20 8c  20 62 63 25 3d 66 63 25  |&40)=0 . bc%=fc%|
000018a0  2b 28 62 63 25 3c 3c 34  29 0d 0b 7c 16 49 25 21  |+(bc%<<4)..|.I%!|
000018b0  31 36 3d 66 25 2b 28 62  63 25 3c 3c 32 34 29 0d  |16=f%+(bc%<<24).|
000018c0  0b 86 0f e7 28 66 25 80  26 31 30 30 29 8c 0d 0b  |....(f%.&100)...|
000018d0  90 3c f3 20 4c 25 3a 42  25 3d a4 62 75 66 66 65  |.<. L%:B%=.buffe|
000018e0  72 28 4c 25 29 3a 49 25  21 32 30 3d 42 25 3a 24  |r(L%):I%!20=B%:$|
000018f0  42 25 3d 64 61 74 61 24  3a 49 25 21 32 34 3d 2d  |B%=data$:I%!24=-|
00001900  31 3a 49 25 21 32 38 3d  4c 25 0d 0b 9a 05 cc 0d  |1:I%!28=L%......|
00001910  0b a4 12 24 28 49 25 2b  32 30 29 3d 64 61 74 61  |...$(I%+20)=data|
00001920  24 0d 0b ae 05 cd 0d 0b  b8 1e 49 25 3d 49 25 2b  |$.........I%=I%+|
00001930  33 32 3a 6e 69 63 6f 6e  73 25 3d 6e 69 63 6f 6e  |32:nicons%=nicon|
00001940  73 25 2d 31 0d 0b c2 05  ce 0d 0b cc 1c c8 99 20  |s%-1........... |
00001950  43 72 65 61 74 65 57 2c  2c 71 25 20 b8 20 68 61  |CreateW,,q% . ha|
00001960  6e 64 6c 65 25 0d 0b d6  0c 3d 68 61 6e 64 6c 65  |ndle%....=handle|
00001970  25 0d 0b e0 05 3a 0d 0b  ea 10 dd 20 f2 69 6e 69  |%....:..... .ini|
00001980  74 66 6c 61 67 73 0d 0b  f4 0d 61 63 74 69 76 65  |tflags....active|
00001990  25 3d a3 0d 0b fe 05 e1  0d 0c 08 05 3a 0d 0c 12  |%=..........:...|
000019a0  10 dd 20 f2 63 6c 6f 73  65 6d 65 6e 75 0d 0c 1c  |.. .closemenu...|
000019b0  1c c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |... "Wimp_Create|
000019c0  4d 65 6e 75 22 2c 2c 2d  31 0d 0c 26 05 e1 0d 0c  |Menu",,-1..&....|
000019d0  30 05 3a 0d 0c 3a 19 dd  20 f2 63 6c 6f 73 65 77  |0.:..:.. .closew|
000019e0  69 6e 64 6f 77 28 68 61  6e 64 25 29 0d 0c 44 0d  |indow(hand%)..D.|
000019f0  21 71 25 3d 68 61 6e 64  25 0d 0c 4e 1d c8 99 20  |!q%=hand%..N... |
00001a00  22 57 69 6d 70 5f 43 6c  6f 73 65 57 69 6e 64 6f  |"Wimp_CloseWindo|
00001a10  77 22 2c 2c 71 25 0d 0c  58 1f e7 20 68 61 6e 64  |w",,q%..X.. hand|
00001a20  25 3d 6d 61 69 6e 68 61  6e 64 25 20 61 63 74 69  |%=mainhand% acti|
00001a30  76 65 25 3d a3 0d 0c 62  05 e1 0d 0c 6c 05 3a 0d  |ve%=...b....l.:.|
00001a40  0c 76 0c dd f2 66 69 6e  69 73 68 0d 0c 80 0e 24  |.v...finish....$|
00001a50  71 25 3d 22 54 41 53 4b  22 0d 0c 8a 23 c8 99 20  |q%="TASK"...#.. |
00001a60  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
00001a70  2c 6d 79 74 61 73 6b 25  2c 21 71 25 0d 0c 94 05  |,mytask%,!q%....|
00001a80  e0 0d 0c 9e 05 e1 0d 0c  a8 05 3a 0d 0c b2 0b dd  |..........:.....|
00001a90  f2 66 72 6f 6e 74 0d 0c  bc 11 21 71 25 3d 6d 61  |.front....!q%=ma|
00001aa0  69 6e 68 61 6e 64 25 0d  0c c6 20 c8 99 20 22 57  |inhand%... .. "W|
00001ab0  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00001ac0  74 65 22 2c 2c 71 25 0d  0c d0 0c 71 25 21 32 38  |te",,q%....q%!28|
00001ad0  3d 2d 31 0d 0c da 1c c8  99 20 22 57 69 6d 70 5f  |=-1...... "Wimp_|
00001ae0  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 71 25 0d  |OpenWindow",,q%.|
00001af0  0c e4 05 e1 0d 0c ee 05  3a 0d 0c f8 0d dd 20 f2  |........:..... .|
00001b00  72 65 6f 70 65 6e 0d 0d  02 11 21 71 25 3d 6d 61  |reopen....!q%=ma|
00001b10  69 6e 68 61 6e 64 25 0d  0d 0c 0c 71 25 21 32 38  |inhand%....q%!28|
00001b20  3d 2d 31 0d 0d 16 0c 71  25 21 34 3d 32 30 30 0d  |=-1....q%!4=200.|
00001b30  0d 20 0c 71 25 21 38 3d  33 30 30 0d 0d 2a 0d 71  |. .q%!8=300..*.q|
00001b40  25 21 31 32 3d 38 30 30  0d 0d 34 0d 71 25 21 31  |%!12=800..4.q%!1|
00001b50  36 3d 38 30 30 0d 0d 3e  0b 71 25 21 32 30 3d 30  |6=800..>.q%!20=0|
00001b60  0d 0d 48 0b 71 25 21 32  34 3d 30 0d 0d 52 1c c8  |..H.q%!24=0..R..|
00001b70  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00001b80  6f 77 22 2c 2c 71 25 0d  0d 5c 0d 61 63 74 69 76  |ow",,q%..\.activ|
00001b90  65 25 3d b9 0d 0d 66 05  e1 0d 0d 70 05 3a 0d 0d  |e%=...f....p.:..|
00001ba0  7a 0a dd f2 76 61 72 73  0d 0d 84 1e 57 69 6d 70  |z...vars....Wimp|
00001bb0  20 20 20 20 3d 20 28 31  3c 3c 31 38 29 20 2b 20  |    = (1<<18) + |
00001bc0  28 33 3c 3c 36 29 0d 0d  8e 14 43 72 65 61 74 65  |(3<<6)....Create|
00001bd0  57 20 3d 20 57 69 6d 70  2b 31 0d 0d 98 14 4f 70  |W = Wimp+1....Op|
00001be0  65 6e 57 20 20 20 3d 20  57 69 6d 70 2b 35 0d 0d  |enW   = Wimp+5..|
00001bf0  a2 14 43 6c 6f 73 65 57  20 20 3d 20 57 69 6d 70  |..CloseW  = Wimp|
00001c00  2b 36 0d 0d ac 14 52 65  64 72 61 77 57 20 3d 20  |+6....RedrawW = |
00001c10  57 69 6d 70 2b 38 0d 0d  b6 14 55 70 64 61 74 65  |Wimp+8....Update|
00001c20  57 20 3d 20 57 69 6d 70  2b 39 0d 0d c0 15 47 65  |W = Wimp+9....Ge|
00001c30  74 52 25 20 20 20 3d 20  57 69 6d 70 2b 31 30 0d  |tR%   = Wimp+10.|
00001c40  0d ca 15 47 65 74 57 20  20 20 20 3d 20 57 69 6d  |...GetW    = Wim|
00001c50  70 2b 31 31 0d 0d d4 15  47 65 74 50 20 20 20 20  |p+11....GetP    |
00001c60  3d 20 57 69 6d 70 2b 31  35 0d 0d de 15 44 72 61  |= Wimp+15....Dra|
00001c70  67 20 20 20 20 3d 20 57  69 6d 70 2b 31 36 0d 0d  |g    = Wimp+16..|
00001c80  e8 15 43 72 4d 65 6e 75  20 20 3d 20 57 69 6d 70  |..CrMenu  = Wimp|
00001c90  2b 32 30 0d 0d f2 15 44  63 4d 65 6e 75 20 20 3d  |+20....DcMenu  =|
00001ca0  20 57 69 6d 70 2b 32 31  0d 0d fc 05 e1 0d 0e 06  | Wimp+21........|
00001cb0  05 3a 0d 0e 10 0e dd f2  65 72 72 6f 72 62 6f 78  |.:......errorbox|
00001cc0  0d 0e 1a 0b ea 20 77 68  61 74 25 0d 0e 24 0f c8  |..... what%..$..|
00001cd0  99 20 44 72 61 67 2c 2c  2d 31 0d 0e 2e 34 21 62  |. Drag,,-1...4!b|
00001ce0  75 66 66 65 72 73 25 3d  9f 3a 24 28 62 75 66 66  |uffers%=.:$(buff|
00001cf0  65 72 73 25 2b 34 29 3d  f6 24 2b 22 20 61 74 20  |ers%+4)=.$+" at |
00001d00  6c 69 6e 65 20 22 2b c3  28 9e 29 2b bd 30 0d 0e  |line "+.(.)+.0..|
00001d10  38 33 c8 99 20 22 57 69  6d 70 5f 52 65 70 6f 72  |83.. "Wimp_Repor|
00001d20  74 45 72 72 6f 72 22 2c  62 75 66 66 65 72 73 25  |tError",buffers%|
00001d30  2c 33 2c 6e 61 6d 65 24  20 b8 20 2c 77 68 61 74  |,3,name$ . ,what|
00001d40  25 0d 0e 42 15 e7 20 77  68 61 74 25 3d 32 20 f2  |%..B.. what%=2 .|
00001d50  66 69 6e 69 73 68 0d 0e  4c 05 e1 0d 0e 56 05 3a  |finish..L....V.:|
00001d60  0d 0e 60 0a dd f2 69 6e  69 74 0d 0e 6a 10 ee 85  |..`...init..j...|
00001d70  3a f2 66 69 6e 69 73 68  3a e0 0d 0e 74 09 f2 76  |:.finish:...t..v|
00001d80  61 72 73 0d 0e 7e 0d de  20 74 62 6c 25 20 32 30  |ars..~.. tbl% 20|
00001d90  0d 0e 88 1e de 20 74 61  73 6b 69 64 25 34 3a 24  |..... taskid%4:$|
00001da0  74 61 73 6b 69 64 25 3d  22 54 41 53 4b 22 0d 0e  |taskid%="TASK"..|
00001db0  92 3e c8 99 20 22 57 69  6d 70 5f 49 6e 69 74 69  |.>.. "Wimp_Initi|
00001dc0  61 6c 69 73 65 22 2c 32  30 30 2c 21 74 61 73 6b  |alise",200,!task|
00001dd0  69 64 25 2c 6e 61 6d 65  24 20 b8 20 76 65 72 73  |id%,name$ . vers|
00001de0  69 6f 6e 25 2c 6d 79 74  61 73 6b 25 0d 0e 9c 49  |ion%,mytask%...I|
00001df0  de 20 71 25 20 26 35 30  30 2c 62 75 66 66 65 72  |. q% &500,buffer|
00001e00  73 25 20 26 31 30 30 2c  69 63 6f 6e 69 6e 66 25  |s% &100,iconinf%|
00001e10  20 26 32 30 30 2c 6d 65  6e 75 62 75 66 25 20 26  | &200,menubuf% &|
00001e20  34 30 30 2c 69 63 25 20  26 31 30 30 2c 71 32 25  |400,ic% &100,q2%|
00001e30  20 26 35 30 30 0d 0e a6  13 6d 65 6e 65 6e 64 25  | &500....menend%|
00001e40  3d 71 25 2b 26 34 35 30  0d 0e b0 10 de 20 70 6c  |=q%+&450..... pl|
00001e50  61 79 25 28 36 2c 31 29  0d 0e ba 10 70 6c 61 79  |ay%(6,1)....play|
00001e60  25 28 31 2c 31 29 3d 30  0d 0e c4 10 70 6c 61 79  |%(1,1)=0....play|
00001e70  25 28 32 2c 31 29 3d 31  0d 0e ce 0f 6d 65 6e 75  |%(2,1)=1....menu|
00001e80  6f 70 65 6e 25 3d a3 0d  0e d8 13 6d 61 78 5f 73  |open%=.....max_s|
00001e90  74 6f 72 65 25 3d 32 30  30 30 0d 0e e2 19 de 20  |tore%=2000..... |
00001ea0  73 74 6f 72 65 25 20 34  2a 6d 61 78 5f 73 74 6f  |store% 4*max_sto|
00001eb0  72 65 25 0d 0e ec 0d 73  74 6f 72 65 64 25 3d 30  |re%....stored%=0|
00001ec0  0d 0e f6 0e 73 74 6f 72  65 5f 70 25 3d 30 0d 0f  |....store_p%=0..|
00001ed0  00 10 61 6e 69 6d 61 74  69 6e 67 25 3d a3 0d 0f  |..animating%=...|
00001ee0  0a 05 e1 0d 0f 14 05 3a  0d 0f 1e 0e dd 20 a4 69  |.......:..... .i|
00001ef0  63 6f 6e 62 61 72 0d 0f  28 09 ea 20 69 69 25 0d  |conbar..(.. ii%.|
00001f00  0f 32 0b 21 69 63 25 3d  2d 31 0d 0f 3c 0b 69 63  |.2.!ic%=-1..<.ic|
00001f10  25 21 34 3d 30 0d 0f 46  0b 69 63 25 21 38 3d 30  |%!4=0..F.ic%!8=0|
00001f20  0d 0f 50 0d 69 63 25 21  31 32 3d 36 38 0d 0f 5a  |..P.ic%!12=68..Z|
00001f30  0d 69 63 25 21 31 36 3d  36 38 0d 0f 64 14 69 63  |.ic%!16=68..d.ic|
00001f40  25 21 32 30 3d 26 42 37  30 30 32 31 30 32 0d 0f  |%!20=&B7002102..|
00001f50  6e 0f de 20 69 63 25 21  32 34 20 31 32 0d 0f 78  |n.. ic%!24 12..x|
00001f60  16 24 28 69 63 25 21 32  34 29 3d 22 21 61 74 6f  |.$(ic%!24)="!ato|
00001f70  6d 73 22 0d 0f 82 0c 69  63 25 21 32 38 3d 31 0d  |ms"....ic%!28=1.|
00001f80  0f 8c 0d 69 63 25 21 33  32 3d 31 32 0d 0f 96 23  |...ic%!32=12...#|
00001f90  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 49  |.. "Wimp_CreateI|
00001fa0  63 6f 6e 22 2c 2c 69 63  25 20 b8 20 69 69 25 0d  |con",,ic% . ii%.|
00001fb0  0f a0 08 3d 69 69 25 0d  0f aa 05 3a 0d 0f b4 0e  |...=ii%....:....|
00001fc0  dd 20 f2 6e 65 77 67 61  6d 65 0d 0f be 10 61 6e  |. .newgame....an|
00001fd0  69 6d 61 74 69 6e 67 25  3d a3 0d 0f c8 13 e3 20  |imating%=...... |
00001fe0  4e 25 3d 30 20 b8 20 6d  61 78 5f 78 25 0d 0f d2  |N%=0 . max_x%...|
00001ff0  13 e3 20 41 25 3d 30 20  b8 20 6d 61 78 5f 79 25  |.. A%=0 . max_y%|
00002000  0d 0f dc 13 70 6c 61 79  65 72 28 4e 25 2c 41 25  |....player(N%,A%|
00002010  29 3d 30 0d 0f e6 13 61  6d 6f 75 6e 74 28 4e 25  |)=0....amount(N%|
00002020  2c 41 25 29 3d 30 0d 0f  f0 13 77 65 69 67 68 74  |,A%)=0....weight|
00002030  28 4e 25 2c 41 25 29 3d  30 0d 0f fa 05 ed 0d 10  |(N%,A%)=0.......|
00002040  04 05 ed 0d 10 0e 0d 63  6f 75 6e 74 28 29 3d 30  |.......count()=0|
00002050  0d 10 18 1a 73 74 69 6c  6c 5f 70 6c 61 79 69 6e  |....still_playin|
00002060  67 3d 70 6c 61 79 65 72  73 25 0d 10 22 0f 63 6f  |g=players%..".co|
00002070  75 6e 74 28 30 29 3d 2d  31 0d 10 2c 08 70 31 3d  |unt(0)=-1..,.p1=|
00002080  31 0d 10 36 0c 73 74 61  72 74 25 3d b9 0d 10 40  |1..6.start%=...@|
00002090  11 65 6e 64 5f 6f 66 5f  67 61 6d 65 3d a3 0d 10  |.end_of_game=...|
000020a0  4a 11 73 74 69 6c 6c 5f  74 68 69 73 25 3d a3 0d  |J.still_this%=..|
000020b0  10 54 1b f2 66 6f 72 63  65 72 65 64 72 61 77 28  |.T..forceredraw(|
000020c0  6d 61 69 6e 68 61 6e 64  25 29 0d 10 5e 05 e1 0d  |mainhand%)..^...|
000020d0  10 68 04 0d 10 72 0f dd  20 f2 69 6e 69 74 67 61  |.h...r.. .initga|
000020e0  6d 65 0d 10 7c 0e 70 6c  61 79 65 72 73 25 3d 32  |me..|.players%=2|
000020f0  0d 10 86 0e 73 69 7a 65  25 3d 31 32 2a 35 0d 10  |....size%=12*5..|
00002100  90 0a f2 69 6e 69 74 67  0d 10 9a 05 e1 0d 10 a4  |...initg........|
00002110  05 3a 0d 10 ae 0c dd 20  f2 69 6e 69 74 67 0d 10  |.:..... .initg..|
00002120  b8 09 ea 20 69 2c 6a 0d  10 c2 18 6d 61 78 5f 78  |... i,j....max_x|
00002130  25 3d 28 36 34 30 2f 73  69 7a 65 25 29 2d 31 0d  |%=(640/size%)-1.|
00002140  10 cc 18 6d 61 78 5f 79  25 3d 28 34 35 30 2f 73  |...max_y%=(450/s|
00002150  69 7a 65 25 29 2d 31 0d  10 d6 1b de 20 70 6c 61  |ize%)-1..... pla|
00002160  79 65 72 28 6d 61 78 5f  78 25 2c 6d 61 78 5f 79  |yer(max_x%,max_y|
00002170  25 29 0d 10 e0 32 de 20  61 6d 6f 75 6e 74 28 6d  |%)...2. amount(m|
00002180  61 78 5f 78 25 2c 6d 61  78 5f 79 25 29 2c 61 6d  |ax_x%,max_y%),am|
00002190  6f 75 6e 74 62 28 6d 61  78 5f 78 25 2c 6d 61 78  |ountb(max_x%,max|
000021a0  5f 79 25 29 0d 10 ea 0e  de 20 63 6f 75 6e 74 28  |_y%)..... count(|
000021b0  36 29 0d 10 f4 1b de 20  77 65 69 67 68 74 28 6d  |6)..... weight(m|
000021c0  61 78 5f 78 25 2c 6d 61  78 5f 79 25 29 0d 10 fe  |ax_x%,max_y%)...|
000021d0  1a 73 74 69 6c 6c 5f 70  6c 61 79 69 6e 67 3d 70  |.still_playing=p|
000021e0  6c 61 79 65 72 73 25 0d  11 08 0f 63 6f 75 6e 74  |layers%....count|
000021f0  28 30 29 3d 2d 31 0d 11  12 08 70 31 3d 31 0d 11  |(0)=-1....p1=1..|
00002200  1c 0c 73 74 61 72 74 25  3d b9 0d 11 26 11 65 6e  |..start%=...&.en|
00002210  64 5f 6f 66 5f 67 61 6d  65 3d a3 0d 11 30 11 73  |d_of_game=...0.s|
00002220  74 69 6c 6c 5f 74 68 69  73 25 3d a3 0d 11 3a 05  |till_this%=...:.|
00002230  e1 0d 11 44 05 3a 0d 11  4e 1a dd 20 f2 72 65 64  |...D.:..N.. .red|
00002240  72 61 77 73 63 72 65 65  6e 28 78 25 2c 79 25 29  |rawscreen(x%,y%)|
00002250  0d 11 58 09 ea 20 69 2c  6a 0d 11 62 0d f2 67 63  |..X.. i,j..b..gc|
00002260  6f 6c 28 31 35 29 0d 11  6c 21 c8 93 20 c8 90 20  |ol(15)..l!.. .. |
00002270  78 25 2c 79 25 2b 34 34  30 2c 31 32 37 39 2c 31  |x%,y%+440,1279,1|
00002280  30 32 33 2d 38 34 30 0d  11 76 21 66 72 6f 6d 5f  |023-840..v!from_|
00002290  69 3d 28 67 78 30 25 2d  73 69 7a 65 25 2f 34 29  |i=(gx0%-size%/4)|
000022a0  20 81 20 73 69 7a 65 25  0d 11 80 21 74 6f 5f 69  | . size%...!to_i|
000022b0  3d 28 67 78 31 25 2b 73  69 7a 65 25 2a 35 2f 34  |=(gx1%+size%*5/4|
000022c0  29 20 81 20 73 69 7a 65  25 0d 11 8a 21 66 72 6f  |) . size%...!fro|
000022d0  6d 5f 6a 3d 28 67 79 30  25 2d 73 69 7a 65 25 2f  |m_j=(gy0%-size%/|
000022e0  34 29 20 81 20 73 69 7a  65 25 0d 11 94 21 74 6f  |4) . size%...!to|
000022f0  5f 6a 3d 28 67 79 31 25  2b 73 69 7a 65 25 2a 35  |_j=(gy1%+size%*5|
00002300  2f 34 29 20 81 20 73 69  7a 65 25 0d 11 9e 17 e7  |/4) . size%.....|
00002310  20 66 72 6f 6d 5f 69 3c  30 20 66 72 6f 6d 5f 69  | from_i<0 from_i|
00002320  3d 30 0d 11 a8 1d e7 20  74 6f 5f 69 3e 6d 61 78  |=0..... to_i>max|
00002330  5f 78 25 20 74 6f 5f 69  3d 6d 61 78 5f 78 25 0d  |_x% to_i=max_x%.|
00002340  11 b2 17 e7 20 66 72 6f  6d 5f 6a 3c 30 20 66 72  |.... from_j<0 fr|
00002350  6f 6d 5f 6a 3d 30 0d 11  bc 1d e7 20 74 6f 5f 6a  |om_j=0..... to_j|
00002360  3e 6d 61 78 5f 79 25 20  74 6f 5f 6a 3d 6d 61 78  |>max_y% to_j=max|
00002370  5f 79 25 0d 11 c6 23 e7  20 74 6f 5f 69 3e 3d 66  |_y%...#. to_i>=f|
00002380  72 6f 6d 5f 69 20 80 20  74 6f 5f 6a 3e 3d 66 72  |rom_i . to_j>=fr|
00002390  6f 6d 5f 6a 20 8c 0d 11  d0 15 e3 20 69 3d 66 72  |om_j ...... i=fr|
000023a0  6f 6d 5f 69 20 b8 20 74  6f 5f 69 0d 11 da 15 e3  |om_i . to_i.....|
000023b0  20 6a 3d 66 72 6f 6d 5f  6a 20 b8 20 74 6f 5f 6a  | j=from_j . to_j|
000023c0  0d 11 e4 0e f2 64 72 61  77 28 69 2c 6a 29 0d 11  |.....draw(i,j)..|
000023d0  ee 05 ed 0d 11 f8 05 ed  0d 12 02 05 cd 0d 12 0c  |................|
000023e0  24 e7 20 63 6f 75 6e 74  28 70 31 29 3c 3d 30 20  |$. count(p1)<=0 |
000023f0  80 20 73 74 61 72 74 25  3d a3 20 f2 63 79 63 6c  |. start%=. .cycl|
00002400  65 0d 12 16 1f f2 6f 75  74 70 75 74 28 22 50 6c  |e.....output("Pl|
00002410  61 79 65 72 20 22 2b c3  28 70 31 29 2c 70 31 29  |ayer "+.(p1),p1)|
00002420  0d 12 20 05 e1 0d 12 2a  05 3a 0d 12 34 0b dd 20  |.. ....*.:..4.. |
00002430  f2 67 61 6d 65 0d 12 3e  13 e7 20 65 6e 64 5f 6f  |.game..>.. end_o|
00002440  66 5f 67 61 6d 65 20 e1  0d 12 48 0e e7 20 73 74  |f_game ...H.. st|
00002450  61 72 74 25 20 8c 0d 12  52 0e 20 f2 70 6c 61 79  |art% ...R. .play|
00002460  28 70 31 29 0d 12 5c 16  20 e7 20 ac 20 73 74 69  |(p1)..\. . . sti|
00002470  6c 6c 5f 74 68 69 73 25  20 8c 0d 12 66 0b 20 20  |ll_this% ...f.  |
00002480  70 31 2b 3d 31 0d 12 70  0a 20 20 70 3d 70 31 0d  |p1+=1..p.  p=p1.|
00002490  12 7a 16 20 20 e7 20 70  3e 70 6c 61 79 65 72 73  |.z.  . p>players|
000024a0  25 20 70 3d 31 0d 12 84  13 20 20 f2 72 65 64 72  |% p=1....  .redr|
000024b0  61 77 70 6c 61 79 65 72  0d 12 8e 06 20 cd 0d 12  |awplayer.... ...|
000024c0  98 14 20 e7 20 70 31 3e  70 6c 61 79 65 72 73 25  |.. . p1>players%|
000024d0  20 8c 0d 12 a2 0e 20 20  73 74 61 72 74 25 3d a3  | .....  start%=.|
000024e0  0d 12 ac 0a 20 20 70 31  3d 31 0d 12 b6 06 20 cd  |....  p1=1.... .|
000024f0  0d 12 c0 05 cc 0d 12 ca  12 20 65 6e 64 5f 6f 66  |......... end_of|
00002500  5f 67 61 6d 65 3d a3 0d  12 d4 14 20 e7 20 63 6f  |_game=..... . co|
00002510  75 6e 74 28 70 31 29 3e  30 20 8c 0d 12 de 0f 20  |unt(p1)>0 ..... |
00002520  20 f2 70 6c 61 79 28 70  31 29 0d 12 e8 17 20 20  | .play(p1)....  |
00002530  e7 20 ac 20 73 74 69 6c  6c 5f 74 68 69 73 25 20  |. . still_this% |
00002540  8c 0d 12 f2 1a 20 20 20  e7 20 73 74 69 6c 6c 5f  |.....   . still_|
00002550  70 6c 61 79 69 6e 67 3d  31 20 8c 0d 12 fc 12 20  |playing=1 ..... |
00002560  20 20 20 77 69 6e 6e 65  72 25 3d 70 31 0d 13 06  |   winner%=p1...|
00002570  13 20 20 20 20 70 31 3d  70 6c 61 79 65 72 73 25  |.    p1=players%|
00002580  0d 13 10 15 20 20 20 20  65 6e 64 5f 6f 66 5f 67  |....    end_of_g|
00002590  61 6d 65 3d b9 0d 13 1a  08 20 20 20 cd 0d 13 24  |ame=.....   ...$|
000025a0  07 20 20 cd 0d 13 2e 06  20 cd 0d 13 38 1c 20 e7  |.  ..... ...8. .|
000025b0  20 73 74 69 6c 6c 5f 74  68 69 73 25 3d a3 20 8c  | still_this%=. .|
000025c0  20 70 31 2b 3d 31 0d 13  42 17 20 e7 20 70 31 3e  | p1+=1..B. . p1>|
000025d0  70 6c 61 79 65 72 73 25  20 70 31 3d 31 0d 13 4c  |players% p1=1..L|
000025e0  27 20 e7 20 63 6f 75 6e  74 28 70 31 29 3c 3d 30  |' . count(p1)<=0|
000025f0  20 80 20 73 74 61 72 74  25 3d a3 20 8c 20 f2 63  | . start%=. . .c|
00002600  79 63 6c 65 0d 13 56 27  20 e7 20 73 74 69 6c 6c  |ycle..V' . still|
00002610  5f 74 68 69 73 25 3d a3  20 70 3d 70 31 3a f2 72  |_this%=. p=p1:.r|
00002620  65 64 72 61 77 70 6c 61  79 65 72 0d 13 60 25 20  |edrawplayer..`% |
00002630  e7 20 65 6e 64 5f 6f 66  5f 67 61 6d 65 20 70 3d  |. end_of_game p=|
00002640  70 31 3a f2 72 65 64 72  61 77 70 6c 61 79 65 72  |p1:.redrawplayer|
00002650  0d 13 6a 05 cd 0d 13 74  05 e1 0d 13 7e 05 3a 0d  |..j....t....~.:.|
00002660  13 88 0c dd 20 f2 63 79  63 6c 65 0d 13 92 13 c8  |.... .cycle.....|
00002670  95 20 63 6f 75 6e 74 28  70 31 29 3c 3d 30 0d 13  |. count(p1)<=0..|
00002680  9c 09 70 31 2b 3d 31 0d  13 a6 16 e7 20 70 31 3e  |..p1+=1..... p1>|
00002690  70 6c 61 79 65 72 73 25  20 70 31 3d 31 0d 13 b0  |players% p1=1...|
000026a0  05 ce 0d 13 ba 05 e1 0d  13 c4 05 3a 0d 13 ce 0e  |...........:....|
000026b0  dd 20 f2 70 6c 61 79 28  70 29 0d 13 d8 0e ea 20  |. .play(p)..... |
000026c0  78 25 2c 79 25 2c 6b 25  0d 13 e2 11 f2 72 65 64  |x%,y%,k%.....red|
000026d0  72 61 77 70 6c 61 79 65  72 0d 13 ec 17 e7 20 70  |rawplayer..... p|
000026e0  6c 61 79 25 28 70 2c 31  29 20 f2 63 6f 6d 3a e1  |lay%(p,1) .com:.|
000026f0  0d 13 f6 0f c8 97 20 78  25 2c 79 25 2c 6b 25 0d  |...... x%,y%,k%.|
00002700  14 00 1d e7 20 6b 25 3c  3e 34 20 8c 20 73 74 69  |.... k%<>4 . sti|
00002710  6c 6c 5f 74 68 69 73 25  3d b9 3a e1 0d 14 0a 11  |ll_this%=.:.....|
00002720  21 71 25 3d 6d 61 69 6e  68 61 6e 64 25 0d 14 14  |!q%=mainhand%...|
00002730  20 c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  | .. "Wimp_GetWin|
00002740  64 6f 77 53 74 61 74 65  22 2c 2c 71 25 0d 14 1e  |dowState",,q%...|
00002750  10 f2 65 78 74 72 61 63  74 28 71 25 29 0d 14 28  |..extract(q%)..(|
00002760  0c 78 25 2d 3d 61 78 30  25 0d 14 32 0c 79 25 2d  |.x%-=ax0%..2.y%-|
00002770  3d 61 79 30 25 0d 14 3c  11 73 74 69 6c 6c 5f 74  |=ay0%..<.still_t|
00002780  68 69 73 25 3d a3 0d 14  46 0f 78 25 3d 78 25 2f  |his%=...F.x%=x%/|
00002790  73 69 7a 65 25 0d 14 50  0f 79 25 3d 79 25 2f 73  |size%..P.y%=y%/s|
000027a0  69 7a 65 25 0d 14 5a 2b  e7 20 78 25 3e 39 20 84  |ize%..Z+. x%>9 .|
000027b0  20 79 25 3e 36 20 8c 20  73 74 69 6c 6c 5f 74 68  | y%>6 . still_th|
000027c0  69 73 25 3d b9 3a 78 25  3d 30 3a 79 25 3d 30 0d  |is%=.:x%=0:y%=0.|
000027d0  14 64 37 e7 20 70 6c 61  79 65 72 28 78 25 2c 79  |.d7. player(x%,y|
000027e0  25 29 3c 3e 70 20 80 20  61 6d 6f 75 6e 74 28 78  |%)<>p . amount(x|
000027f0  25 2c 79 25 29 3c 3e 30  20 73 74 69 6c 6c 5f 74  |%,y%)<>0 still_t|
00002800  68 69 73 25 3d b9 0d 14  6e 15 e7 20 73 74 69 6c  |his%=...n.. stil|
00002810  6c 5f 74 68 69 73 25 3d  a3 20 8c 0d 14 78 19 20  |l_this%=. ...x. |
00002820  f2 63 61 6c 6c 5f 72 65  61 63 74 28 78 25 2c 79  |.call_react(x%,y|
00002830  25 2c 70 29 0d 14 82 05  cd 0d 14 8c 05 e1 0d 14  |%,p)............|
00002840  96 05 3a 0d 14 a0 1a dd  20 f2 63 61 6c 6c 5f 72  |..:..... .call_r|
00002850  65 61 63 74 28 78 25 2c  79 25 2c 70 29 0d 14 aa  |eact(x%,y%,p)...|
00002860  0e 73 74 6f 72 65 5f 70  25 3d 30 0d 14 b4 16 61  |.store_p%=0....a|
00002870  6d 6f 75 6e 74 62 28 29  3d 61 6d 6f 75 6e 74 28  |mountb()=amount(|
00002880  29 0d 14 be 13 f2 72 65  61 63 74 28 78 25 2c 79  |).....react(x%,y|
00002890  25 2c 70 29 0d 14 c8 12  e7 20 73 74 6f 72 65 5f  |%,p)..... store_|
000028a0  70 25 3e 30 20 8c 0d 14  d2 11 20 61 6e 69 6d 61  |p%>0 ..... anima|
000028b0  74 69 6e 67 25 3d b9 0d  14 dc 0d 20 61 6e 69 6d  |ting%=..... anim|
000028c0  5f 70 3d 70 0d 14 e6 16  20 73 74 6f 72 65 5f 6e  |_p=p.... store_n|
000028d0  25 3d 73 74 6f 72 65 5f  70 25 0d 14 f0 0f 20 73  |%=store_p%.... s|
000028e0  74 6f 72 65 5f 70 25 3d  30 0d 14 fa 05 cd 0d 15  |tore_p%=0.......|
000028f0  04 05 e1 0d 15 0e 05 3a  0d 15 18 13 dd 20 f2 72  |.......:..... .r|
00002900  65 64 72 61 77 70 6c 61  79 65 72 0d 15 22 11 21  |edrawplayer..".!|
00002910  71 25 3d 6d 61 69 6e 68  61 6e 64 25 0d 15 2c 0a  |q%=mainhand%..,.|
00002920  71 25 21 34 3d 30 0d 15  36 0c 71 25 21 38 3d 34  |q%!4=0..6.q%!8=4|
00002930  34 30 0d 15 40 0d 71 25  21 31 32 3d 36 30 30 0d  |40..@.q%!12=600.|
00002940  15 4a 0d 71 25 21 31 36  3d 35 30 30 0d 15 54 26  |.J.q%!16=500..T&|
00002950  c8 99 20 22 57 69 6d 70  5f 55 70 64 61 74 65 57  |.. "Wimp_UpdateW|
00002960  69 6e 64 6f 77 22 2c 2c  71 25 20 b8 20 6d 6f 72  |indow",,q% . mor|
00002970  65 25 0d 15 5e 0c c8 95  20 6d 6f 72 65 25 0d 15  |e%..^... more%..|
00002980  68 11 20 f2 65 78 74 72  61 63 74 28 71 25 29 0d  |h. .extract(q%).|
00002990  15 72 16 20 e7 20 21 71  25 3d 6d 61 69 6e 68 61  |.r. . !q%=mainha|
000029a0  6e 64 25 20 8c 0d 15 7c  14 20 20 e7 20 61 6e 69  |nd% ...|.  . ani|
000029b0  6d 61 74 69 6e 67 25 20  8c 0d 15 86 2a 20 20 20  |mating% ....*   |
000029c0  f2 6f 75 74 70 75 74 28  22 50 6c 61 79 65 72 20  |.output("Player |
000029d0  22 2b c3 28 61 6e 69 6d  5f 70 29 2c 61 6e 69 6d  |"+.(anim_p),anim|
000029e0  5f 70 29 0d 15 90 07 20  20 cc 0d 15 9a 16 20 20  |_p)....  .....  |
000029f0  20 e7 20 65 6e 64 5f 6f  66 5f 67 61 6d 65 20 8c  | . end_of_game .|
00002a00  0d 15 a4 39 20 20 20 20  f2 6f 75 74 70 75 74 28  |...9    .output(|
00002a10  22 50 6c 61 79 65 72 20  22 2b c3 28 77 69 6e 6e  |"Player "+.(winn|
00002a20  65 72 25 29 2b 22 20 68  61 73 20 77 6f 6e 2e 22  |er%)+" has won."|
00002a30  2c 77 69 6e 6e 65 72 25  29 0d 15 ae 08 20 20 20  |,winner%)....   |
00002a40  cc 0d 15 b8 21 20 20 20  20 f2 6f 75 74 70 75 74  |....!    .output|
00002a50  28 22 50 6c 61 79 65 72  20 22 2b c3 28 70 29 2c  |("Player "+.(p),|
00002a60  70 29 0d 15 c2 08 20 20  20 cd 0d 15 cc 07 20 20  |p)....   .....  |
00002a70  cd 0d 15 d6 06 20 cd 0d  15 e0 27 20 c8 99 20 22  |..... ....' .. "|
00002a80  57 69 6d 70 5f 47 65 74  52 65 63 74 61 6e 67 6c  |Wimp_GetRectangl|
00002a90  65 22 2c 2c 71 25 20 b8  20 6d 6f 72 65 25 0d 15  |e",,q% . more%..|
00002aa0  ea 05 ce 0d 15 f4 05 e1  0d 15 fe 05 3a 0d 16 08  |............:...|
00002ab0  13 dd 20 f2 72 65 61 63  74 28 78 2c 79 2c 63 29  |.. .react(x,y,c)|
00002ac0  0d 16 12 14 ea 20 72 65  61 63 74 6f 72 2c 6f 6c  |..... reactor,ol|
00002ad0  64 5f 70 6c 0d 16 1c 17  e7 20 73 74 69 6c 6c 5f  |d_pl..... still_|
00002ae0  70 6c 61 79 69 6e 67 3e  31 20 8c 0d 16 26 17 20  |playing>1 ...&. |
00002af0  6f 6c 64 5f 70 6c 3d 70  6c 61 79 65 72 28 78 2c  |old_pl=player(x,|
00002b00  79 29 0d 16 30 1f 20 63  6f 75 6e 74 28 6f 6c 64  |y)..0. count(old|
00002b10  5f 70 6c 29 2d 3d 61 6d  6f 75 6e 74 28 78 2c 79  |_pl)-=amount(x,y|
00002b20  29 0d 16 3a 13 20 61 6d  6f 75 6e 74 28 78 2c 79  |)..:. amount(x,y|
00002b30  29 2b 3d 31 0d 16 44 1a  20 63 6f 75 6e 74 28 63  |)+=1..D. count(c|
00002b40  29 2b 3d 61 6d 6f 75 6e  74 28 78 2c 79 29 0d 16  |)+=amount(x,y)..|
00002b50  4e 12 20 70 6c 61 79 65  72 28 78 2c 79 29 3d 63  |N. player(x,y)=c|
00002b60  0d 16 58 19 20 61 25 3d  73 74 6f 72 65 25 2b 34  |..X. a%=store%+4|
00002b70  2a 73 74 6f 72 65 5f 70  25 0d 16 62 0b 20 61 25  |*store_p%..b. a%|
00002b80  3f 30 3d 78 0d 16 6c 0b  20 61 25 3f 31 3d 79 0d  |?0=x..l. a%?1=y.|
00002b90  16 76 15 20 61 25 3f 32  3d 61 6d 6f 75 6e 74 28  |.v. a%?2=amount(|
00002ba0  78 2c 79 29 0d 16 80 10  20 73 74 6f 72 65 5f 70  |x,y).... store_p|
00002bb0  25 2b 3d 31 0d 16 8a 18  20 e7 20 63 6f 75 6e 74  |%+=1.... . count|
00002bc0  28 6f 6c 64 5f 70 6c 29  3d 30 20 8c 0d 16 94 16  |(old_pl)=0 .....|
00002bd0  20 20 63 6f 75 6e 74 28  6f 6c 64 5f 70 6c 29 3d  |  count(old_pl)=|
00002be0  2d 31 0d 16 9e 16 20 20  73 74 69 6c 6c 5f 70 6c  |-1....  still_pl|
00002bf0  61 79 69 6e 67 2d 3d 31  0d 16 a8 06 20 cd 0d 16  |aying-=1.... ...|
00002c00  b2 30 20 72 65 61 63 74  6f 72 3d 34 2b 28 78 3d  |.0 reactor=4+(x=|
00002c10  30 29 2b 28 78 3d 6d 61  78 5f 78 25 29 2b 28 79  |0)+(x=max_x%)+(y|
00002c20  3d 30 29 2b 28 79 3d 6d  61 78 5f 79 25 29 0d 16  |=0)+(y=max_y%)..|
00002c30  bc 1d 20 e7 20 61 6d 6f  75 6e 74 28 78 2c 79 29  |.. . amount(x,y)|
00002c40  3e 3d 72 65 61 63 74 6f  72 20 8c 0d 16 c6 1a 20  |>=reactor ..... |
00002c50  20 61 6d 6f 75 6e 74 28  78 2c 79 29 2d 3d 72 65  | amount(x,y)-=re|
00002c60  61 63 74 6f 72 0d 16 d0  17 20 20 63 6f 75 6e 74  |actor....  count|
00002c70  28 63 29 2d 3d 72 65 61  63 74 6f 72 0d 16 da 1a  |(c)-=reactor....|
00002c80  20 20 61 25 3d 73 74 6f  72 65 25 2b 34 2a 73 74  |  a%=store%+4*st|
00002c90  6f 72 65 5f 70 25 0d 16  e4 0c 20 20 61 25 3f 30  |ore_p%....  a%?0|
00002ca0  3d 78 0d 16 ee 0c 20 20  61 25 3f 31 3d 79 0d 16  |=x....  a%?1=y..|
00002cb0  f8 16 20 20 61 25 3f 32  3d 61 6d 6f 75 6e 74 28  |..  a%?2=amount(|
00002cc0  78 2c 79 29 0d 17 02 11  20 20 73 74 6f 72 65 5f  |x,y)....  store_|
00002cd0  70 25 2b 3d 31 0d 17 0c  20 20 20 e7 20 78 3e 30  |p%+=1...   . x>0|
00002ce0  20 20 20 20 20 20 f2 72  65 61 63 74 28 78 2d 31  |      .react(x-1|
00002cf0  2c 79 2c 63 29 0d 17 16  20 20 20 e7 20 78 3c 6d  |,y,c)...   . x<m|
00002d00  61 78 5f 78 25 20 f2 72  65 61 63 74 28 78 2b 31  |ax_x% .react(x+1|
00002d10  2c 79 2c 63 29 0d 17 20  20 20 20 e7 20 79 3e 30  |,y,c)..    . y>0|
00002d20  20 20 20 20 20 20 f2 72  65 61 63 74 28 78 2c 79  |      .react(x,y|
00002d30  2d 31 2c 63 29 0d 17 2a  20 20 20 e7 20 79 3c 6d  |-1,c)..*   . y<m|
00002d40  61 78 5f 79 25 20 f2 72  65 61 63 74 28 78 2c 79  |ax_y% .react(x,y|
00002d50  2b 31 2c 63 29 0d 17 34  06 20 cd 0d 17 3e 05 cd  |+1,c)..4. ...>..|
00002d60  0d 17 48 05 e1 0d 17 52  05 3a 0d 17 5c 10 dd 20  |..H....R.:..\.. |
00002d70  f2 64 72 61 77 28 78 2c  79 29 0d 17 66 09 ea 20  |.draw(x,y)..f.. |
00002d80  63 2c 6e 0d 17 70 11 63  3d 70 6c 61 79 65 72 28  |c,n..p.c=player(|
00002d90  78 2c 79 29 0d 17 7a 12  e7 20 61 6e 69 6d 61 74  |x,y)..z.. animat|
00002da0  69 6e 67 25 20 8c 0d 17  84 13 20 6e 3d 61 6d 6f  |ing% ..... n=amo|
00002db0  75 6e 74 62 28 78 2c 79  29 0d 17 8e 05 cc 0d 17  |untb(x,y).......|
00002dc0  98 12 20 6e 3d 61 6d 6f  75 6e 74 28 78 2c 79 29  |.. n=amount(x,y)|
00002dd0  0d 17 a2 05 cd 0d 17 ac  0d 78 3d 78 2a 73 69 7a  |.........x=x*siz|
00002de0  65 25 0d 17 b6 0d 79 3d  79 2a 73 69 7a 65 25 0d  |e%....y=y*size%.|
00002df0  17 c0 10 f2 65 78 74 72  61 63 74 28 71 25 29 0d  |....extract(q%).|
00002e00  17 ca 0b 78 2b 3d 61 78  30 25 0d 17 d4 0b 79 2b  |...x+=ax0%....y+|
00002e10  3d 61 79 30 25 0d 17 de  0d f2 67 63 6f 6c 28 31  |=ay0%.....gcol(1|
00002e20  35 29 0d 17 e8 10 c8 93  20 78 2c 79 2c 73 69 7a  |5)...... x,y,siz|
00002e30  65 25 0d 17 f2 0a c8 8e  20 6e 20 ca 0d 17 fc 08  |e%...... n .....|
00002e40  c9 20 30 3a 0d 18 06 0f  f2 62 6f 78 28 78 2c 79  |. 0:.....box(x,y|
00002e50  2c 30 29 0d 18 10 08 c9  20 31 3a 0d 18 1a 0f f2  |,0)..... 1:.....|
00002e60  62 6f 78 28 78 2c 79 2c  63 29 0d 18 24 18 f2 63  |box(x,y,c)..$..c|
00002e70  69 72 63 6c 65 28 78 2c  79 2c 30 2e 35 2c 30 2e  |ircle(x,y,0.5,0.|
00002e80  35 29 0d 18 2e 08 c9 20  32 3a 0d 18 38 0f f2 62  |5)..... 2:..8..b|
00002e90  6f 78 28 78 2c 79 2c 63  29 0d 18 42 18 f2 63 69  |ox(x,y,c)..B..ci|
00002ea0  72 63 6c 65 28 78 2c 79  2c 31 2f 33 2c 31 2f 33  |rcle(x,y,1/3,1/3|
00002eb0  29 0d 18 4c 18 f2 63 69  72 63 6c 65 28 78 2c 79  |)..L..circle(x,y|
00002ec0  2c 32 2f 33 2c 32 2f 33  29 0d 18 56 08 c9 20 33  |,2/3,2/3)..V.. 3|
00002ed0  3a 0d 18 60 0f f2 62 6f  78 28 78 2c 79 2c 63 29  |:..`..box(x,y,c)|
00002ee0  0d 18 6a 18 f2 63 69 72  63 6c 65 28 78 2c 79 2c  |..j..circle(x,y,|
00002ef0  31 2f 32 2c 33 2f 34 29  0d 18 74 18 f2 63 69 72  |1/2,3/4)..t..cir|
00002f00  63 6c 65 28 78 2c 79 2c  31 2f 34 2c 31 2f 34 29  |cle(x,y,1/4,1/4)|
00002f10  0d 18 7e 18 f2 63 69 72  63 6c 65 28 78 2c 79 2c  |..~..circle(x,y,|
00002f20  33 2f 34 2c 31 2f 34 29  0d 18 88 08 c9 20 34 3a  |3/4,1/4)..... 4:|
00002f30  0d 18 92 0f f2 62 6f 78  28 78 2c 79 2c 63 29 0d  |.....box(x,y,c).|
00002f40  18 9c 18 f2 63 69 72 63  6c 65 28 78 2c 79 2c 31  |....circle(x,y,1|
00002f50  2f 34 2c 31 2f 34 29 0d  18 a6 18 f2 63 69 72 63  |/4,1/4).....circ|
00002f60  6c 65 28 78 2c 79 2c 33  2f 34 2c 33 2f 34 29 0d  |le(x,y,3/4,3/4).|
00002f70  18 b0 18 f2 63 69 72 63  6c 65 28 78 2c 79 2c 31  |....circle(x,y,1|
00002f80  2f 34 2c 33 2f 34 29 0d  18 ba 18 f2 63 69 72 63  |/4,3/4).....circ|
00002f90  6c 65 28 78 2c 79 2c 33  2f 34 2c 31 2f 34 29 0d  |le(x,y,3/4,1/4).|
00002fa0  18 c4 06 7f 3a 0d 18 ce  10 f2 62 6f 78 28 78 2c  |....:.....box(x,|
00002fb0  79 2c 31 35 29 0d 18 d8  05 cb 0d 18 e2 05 e1 0d  |y,15)...........|
00002fc0  18 ec 05 3a 0d 18 f6 11  dd 20 f2 62 6f 78 28 78  |...:..... .box(x|
00002fd0  2c 79 2c 63 29 0d 19 00  0c f2 67 63 6f 6c 28 63  |,y,c).....gcol(c|
00002fe0  29 0d 19 0a 21 c8 93 20  c8 90 20 78 2b 32 2c 79  |)...!.. .. x+2,y|
00002ff0  2b 34 2c 73 69 7a 65 25  2d 34 2c 73 69 7a 65 25  |+4,size%-4,size%|
00003000  2d 38 0d 19 14 05 e1 0d  19 1e 05 3a 0d 19 28 18  |-8.........:..(.|
00003010  dd 20 f2 63 69 72 63 6c  65 28 78 2c 79 2c 64 78  |. .circle(x,y,dx|
00003020  2c 64 79 29 0d 19 32 0c  f2 67 63 6f 6c 28 37 29  |,dy)..2..gcol(7)|
00003030  0d 19 3c 28 c8 8f 20 c8  90 20 78 2b 64 78 2a 73  |..<(.. .. x+dx*s|
00003040  69 7a 65 25 2c 79 2b 64  79 2a 73 69 7a 65 25 2c  |ize%,y+dy*size%,|
00003050  73 69 7a 65 25 2f 31 30  0d 19 46 05 e1 0d 19 50  |size%/10..F....P|
00003060  05 3a 0d 19 5a 14 dd 20  f2 6f 75 74 70 75 74 28  |.:..Z.. .output(|
00003070  61 24 2c 63 25 29 0d 19  64 10 f2 65 78 74 72 61  |a$,c%)..d..extra|
00003080  63 74 28 71 25 29 0d 19  6e 0d f2 67 63 6f 6c 28  |ct(q%)..n..gcol(|
00003090  31 35 29 0d 19 78 25 c8  93 20 c8 90 20 61 78 30  |15)..x%.. .. ax0|
000030a0  25 2c 61 79 30 25 2b 34  34 30 2c 31 32 38 30 2c  |%,ay0%+440,1280,|
000030b0  31 30 32 33 2d 38 34 30  0d 19 82 0d f2 67 63 6f  |1023-840.....gco|
000030c0  6c 28 63 25 29 0d 19 8c  28 ec 20 61 78 30 25 2b  |l(c%)...(. ax0%+|
000030d0  28 33 30 30 2d 28 a9 28  61 24 29 2a 38 29 29 2c  |(300-(.(a$)*8)),|
000030e0  61 79 30 25 2b 34 34 30  2b 38 2b 33 32 0d 19 96  |ay0%+440+8+32...|
000030f0  08 f1 20 61 24 0d 19 a0  05 e1 0d 19 aa 05 3a 0d  |.. a$.........:.|
00003100  19 b4 0a dd 20 f2 63 6f  6d 0d 19 be 13 e3 20 69  |.... .com..... i|
00003110  25 3d 30 20 b8 20 6d 61  78 5f 78 25 0d 19 c8 13  |%=0 . max_x%....|
00003120  e3 20 6a 25 3d 30 20 b8  20 6d 61 78 5f 79 25 0d  |. j%=0 . max_y%.|
00003130  19 d2 14 4f 25 3d 70 6c  61 79 65 72 28 69 25 2c  |...O%=player(i%,|
00003140  6a 25 29 0d 19 dc 12 e7  20 4f 25 20 80 20 4f 25  |j%)..... O% . O%|
00003150  3c 3e 70 20 8c 0d 19 e6  17 77 65 69 67 68 74 28  |<>p .....weight(|
00003160  69 25 2c 6a 25 29 3d 2d  31 30 30 30 0d 19 f0 05  |i%,j%)=-1000....|
00003170  cc 0d 19 fa 33 72 65 61  63 74 6f 72 3d 34 2b 28  |....3reactor=4+(|
00003180  69 25 3d 30 29 2b 28 69  25 3d 6d 61 78 5f 78 25  |i%=0)+(i%=max_x%|
00003190  29 2b 28 6a 25 3d 30 29  2b 28 6a 25 3d 6d 61 78  |)+(j%=0)+(j%=max|
000031a0  5f 79 25 29 0d 1a 04 41  73 69 67 6d 61 3d a4 61  |_y%)...Asigma=.a|
000031b0  64 64 28 69 25 2b 31 2c  6a 25 29 2b a4 61 64 64  |dd(i%+1,j%)+.add|
000031c0  28 69 25 2d 31 2c 6a 25  29 2b a4 61 64 64 28 69  |(i%-1,j%)+.add(i|
000031d0  25 2c 6a 25 2b 31 29 2b  a4 61 64 64 28 69 25 2c  |%,j%+1)+.add(i%,|
000031e0  6a 25 2d 31 29 0d 1a 0e  1f e7 20 61 6d 6f 75 6e  |j%-1)..... amoun|
000031f0  74 28 69 25 2c 6a 25 29  3d 72 65 61 63 74 6f 72  |t(i%,j%)=reactor|
00003200  2d 31 20 8c 0d 1a 18 19  77 65 69 67 68 74 28 69  |-1 .....weight(i|
00003210  25 2c 6a 25 29 3d 34 2a  73 69 67 6d 61 0d 1a 22  |%,j%)=4*sigma.."|
00003220  05 cc 0d 1a 2c 54 77 65  69 67 68 74 28 69 25 2c  |....,Tweight(i%,|
00003230  6a 25 29 3d 31 32 35 2b  73 69 67 6d 61 2a 28 73  |j%)=125+sigma*(s|
00003240  69 67 6d 61 3e 31 32 34  29 2d 73 69 67 6d 61 2a  |igma>124)-sigma*|
00003250  28 73 69 67 6d 61 3c 31  32 35 29 2d 31 30 2a 28  |(sigma<125)-10*(|
00003260  72 65 61 63 74 6f 72 2d  61 6d 6f 75 6e 74 28 69  |reactor-amount(i|
00003270  25 2c 6a 25 29 29 0d 1a  36 05 cd 0d 1a 40 05 cd  |%,j%))..6....@..|
00003280  0d 1a 4a 05 ed 0d 1a 54  05 ed 0d 1a 5e 0c 62 6d  |..J....T....^.bm|
00003290  3d 2d 31 30 30 30 0d 1a  68 13 e3 20 69 25 3d 30  |=-1000..h.. i%=0|
000032a0  20 b8 20 6d 61 78 5f 78  25 0d 1a 72 13 e3 20 6a  | . max_x%..r.. j|
000032b0  25 3d 30 20 b8 20 6d 61  78 5f 79 25 0d 1a 7c 33  |%=0 . max_y%..|3|
000032c0  e7 20 77 65 69 67 68 74  28 69 25 2c 6a 25 29 3e  |. weight(i%,j%)>|
000032d0  62 6d 20 62 6d 3d 77 65  69 67 68 74 28 69 25 2c  |bm bm=weight(i%,|
000032e0  6a 25 29 3a 62 69 3d 69  25 3a 62 6a 3d 6a 25 0d  |j%):bi=i%:bj=j%.|
000032f0  1a 86 05 ed 0d 1a 90 05  ed 0d 1a 9a 18 f2 63 61  |..............ca|
00003300  6c 6c 5f 72 65 61 63 74  28 62 69 2c 62 6a 2c 70  |ll_react(bi,bj,p|
00003310  29 0d 1a a4 05 e1 0d 1a  ae 05 3a 0d 1a b8 0f dd  |).........:.....|
00003320  20 a4 61 64 64 28 78 2c  79 29 0d 1a c2 0d ea 20  | .add(x,y)..... |
00003330  72 65 61 63 74 6f 72 0d  1a cc 2a e7 20 78 3c 30  |reactor...*. x<0|
00003340  20 84 20 78 3e 6d 61 78  5f 78 25 20 84 20 79 3c  | . x>max_x% . y<|
00003350  30 20 84 20 79 3e 6d 61  78 5f 79 25 20 8c 20 3d  |0 . y>max_y% . =|
00003360  30 0d 1a d6 18 e7 20 70  6c 61 79 65 72 28 78 2c  |0..... player(x,|
00003370  79 29 3d 30 20 8c 20 3d  30 0d 1a e0 2f 72 65 61  |y)=0 . =0.../rea|
00003380  63 74 6f 72 3d 34 2b 28  78 3d 30 29 2b 28 78 3d  |ctor=4+(x=0)+(x=|
00003390  6d 61 78 5f 78 25 29 2b  28 79 3d 30 29 2b 28 79  |max_x%)+(y=0)+(y|
000033a0  3d 6d 61 78 5f 79 25 29  0d 1a ea 32 3d 2d 28 70  |=max_y%)...2=-(p|
000033b0  6c 61 79 65 72 28 78 2c  79 29 3c 3e 70 29 2a 28  |layer(x,y)<>p)*(|
000033c0  35 5e 28 34 2b 61 6d 6f  75 6e 74 28 78 2c 79 29  |5^(4+amount(x,y)|
000033d0  2d 72 65 61 63 74 6f 72  29 29 0d 1a f4 05 3a 0d  |-reactor))....:.|
000033e0  1a fe 21 dd 20 f2 67 63  6f 6c 28 63 25 29 3a f4  |..!. .gcol(c%):.|
000033f0  20 43 6f 6c 20 54 72 61  6e 73 20 54 61 62 6c 65  | Col Trans Table|
00003400  0d 1b 08 0b c8 8e 20 63  25 20 ca 0d 1b 12 0c c9  |...... c% ......|
00003410  20 30 3a 63 25 3d 37 0d  1b 1c 0d c9 20 31 3a 63  | 0:c%=7..... 1:c|
00003420  25 3d 31 31 0d 1b 26 0d  c9 20 32 3a 63 25 3d 31  |%=11..&.. 2:c%=1|
00003430  30 0d 1b 30 0c c9 20 33  3a 63 25 3d 39 0d 1b 3a  |0..0.. 3:c%=9..:|
00003440  0c c9 20 34 3a 63 25 3d  38 0d 1b 44 0d c9 20 35  |.. 4:c%=8..D.. 5|
00003450  3a 63 25 3d 31 33 0d 1b  4e 0d c9 20 36 3a 63 25  |:c%=13..N.. 6:c%|
00003460  3d 31 35 0d 1b 58 0c c9  20 37 3a 63 25 3d 30 0d  |=15..X.. 7:c%=0.|
00003470  1b 62 0d c9 20 31 34 3a  63 25 3d 30 0d 1b 6c 0d  |.b.. 14:c%=0..l.|
00003480  c9 20 31 35 3a 63 25 3d  34 0d 1b 76 05 cb 0d 1b  |. 15:c%=4..v....|
00003490  80 1a c8 99 20 22 57 69  6d 70 5f 53 65 74 43 6f  |.... "Wimp_SetCo|
000034a0  6c 6f 75 72 22 2c 63 25  0d 1b 8a 05 e1 0d 1b 94  |lour",c%........|
000034b0  05 3a 0d 1b 9e 2a dd 20  f2 6d 65 73 73 28 41 24  |.:...*. .mess(A$|
000034c0  2c 6d 25 29 3a f4 20 46  6f 72 20 74 68 65 20 57  |,m%):. For the W|
000034d0  69 6d 70 20 44 65 62 75  67 67 65 72 0d 1b a8 16  |imp Debugger....|
000034e0  2a 53 45 54 20 64 62 24  6d 65 73 73 20 41 74 6f  |*SET db$mess Ato|
000034f0  6d 73 0d 1b b2 1e ff 20  22 53 45 54 20 64 62 24  |ms..... "SET db$|
00003500  6d 65 73 73 22 2b c3 6d  25 2b 22 20 22 2b 41 24  |mess"+.m%+" "+A$|
00003510  0d 1b bc 05 e1 0d ff                              |.......|
00003517