� >!RunImage
� Triple 3
� (c) 1993 Tony Houghton
(:
2� � �error:�
<
�inittask
F$� � �error:ș "Wimp_CloseDown":�
P�loadsprites
Z�templates
d�iconbar
n
�initgame
x�newgame
�:
��
�	�poll
�� quit%
�ș "Wimp_CloseDown"
��
�:
�� �error
�"�report(1,�$+" at line "+Þ,�)
��
�:
�"� �report(flags%,report$,err%)
�name$="Triple 3"

/� flags% � 16 � name$="Message from "+name$

!block%=err%

$(block%+4)=report$

"-ș "Wimp_ReportError",block%,flags%,name$

,�

6:

@� �inittask

Ja� block% 1024,ibmenu% 76,mainmenu% 100,submenu% 76,tempind% 1000,tempname% 12,pointerinfo% 20

Ttask%=&4B534154

^-ș "Wimp_Initialise",200,task%,"Triple 3"

hquit%=�

r8� status%(2,2,2,2),handles%(2,2,2,2),names%(2,2,2,2)

|� bigy%=0 � 2

�� bigx%=0 � 2

�� smally%=0 � 2

�� smallx%=0 � 2

�� A% 12

�*names%(bigx%,bigy%,smallx%,smally%)=A%

��

��

��

��

�"ș "OS_ReadMonotonicTime" � A%

�
A%=�(-A%)

��

�:
� �loadsprites
"file%=�"<Triple3$Dir>.Sprites"
size%=�#file%+4
&�#file%
0� sparea% size%
:!sparea%=size%
Dsparea%!8=16
N9ș "OS_SpriteOp",&10A,sparea%,"<Triple3$Dir>.Sprites"
X�
b:
l� �templates
v5ș "Wimp_OpenTemplate",,"<Triple3$Dir>.Templates"
�startind%=tempind%
�endind%=tempind%+1000
�!infohandle%=�loadtemp("Info")
�!mainhandle%=�loadtemp("Main")
�ș "Wimp_CloseTemplate"
��placeicons
�A�setupmenu(ibmenu%,"Triple 3,0,infohandle%,Info,&80,-1,Quit")
�K�setupmenu(mainmenu%,"Triple 3,0,submenu%,New game,&80,-1,Zero totals")
�<�setupmenu(submenu%,"Who starts,0,-1,Red,&80,-1,Yellow")
��
�:
�� �loadtemp(name$)
�$tempname%=name$

� handle%
Zș "Wimp_LoadTemplate",,block%,startind%,endind%,-1,tempname%,0 � ,,startind%,,,,posn%
block%!64=sparea%
 � name$="Main" �
*block%!144=sparea%
4block%!176=sparea%
>block%!208=sparea%
Hblock%!240=sparea%
Rdiesprnm1%=block%!140
\diesprnm2%=block%!172
fredgostr%=block%!204
pyellowgostr%=block%!236
zredtotstr%=block%!268
�yellowtotstr%=block%!300
��
�,ș "Wimp_CreateWindow",,block% � handle%
�=handle%
�:
�� �placeicons
�� bigy%=0 � 2
�� bigx%=0 � 2
�� smally%=0 � 2
�� smallx%=0 � 2
�*status%(bigx%,bigy%,smallx%,smally%)=0
�handles%(bigx%,bigy%,smallx%,smally%)=�createicon(mainhandle%,bigx%*192+smallx%*60+16,-32-bigy%*192-smally%*60,28,28,&3102,"",names%(bigx%,bigy%,smallx%,smally%),sparea%,4)
�/$names%(bigx%,bigy%,smallx%,smally%)="hole"
� smallx%<>1 � smally%<>1 �
flags%=2
	ex%=0
$	ey%=0
.a$=�(smallx%+3*smally%+3)
8�
Bflags%=&8000003A
L	ex%=2
V	ey%=4
`a$=�(bigx%+3*bigy%+3)
j�
tzA%=�createicon(mainhandle%,bigx%*192+smallx%*60+24-ex%,-56-bigy%*192-smally%*60-ey%,16+2*ex%,20+2*ey%,flags%,a$,0,0,0)
~�
��
��
��
��
�:
�I� �createicon(handle%,ix%,iy%,iw%,ih%,flags%,text$,ptr1%,ptr2%,ptr3%)
�!block%=handle%
�block%!4=ix%
�block%!8=iy%
�block%!12=ix%+iw%
�block%!16=iy%+ih%
�block%!20=flags%
� text$="" �

block%!24=ptr1%
block%!28=ptr2%
block%!32=ptr3%
(�
2$(block%+24)=text$
<�
F*ș "Wimp_CreateIcon",,block% � handle%
P=handle%
Z:
d� �iconbar
n!block%=-1
xblock%!4=0
�block%!8=0
�block%!12=68
�block%!16=68
�block%!20=&3002
�$(block%+24)="!triple3"
�,ș "Wimp_CreateIcon",,block% � ibhandle%
��
�:
�
��poll
�)mask%=1+(1<<4)+(1<<5)+(1<<18)+(1<<19)
�)ș "Wimp_Poll",mask%,block% � reason%
�Ȏ reason% �
�$� 2:ș "Wimp_OpenWindow",,block%
%� 3:ș "Wimp_CloseWindow",,block%
� 6:�click
� 9:�menuselect
"#� 17,18:� block%!16=0 � quit%=�
,�
6�
@:
J� �setupmenu(menu%,string$)
Tpointer%=1
^�extractstring(string$)
h
$menu%=a$
rwidth%=(�(a$)-2)*16
|menu%!12=&70207
�menu%!20=44
�menu%!24=0
�ptr%=menu%+28
��
��extractstring(string$)
�mflags%=�a$
��extractstring(string$)
�subptr%=�a$
��extractstring(string$)
�!ptr%=mflags%
�ptr%!4=subptr%
�ptr%!8=&7000021
�$(ptr%+12)=a$
a%=(�(a$)+1)*16
� a%>width% width%=a%
ptr%+=24
&� (mflags% � &80)=&80
0menu%!16=width%
:�
D:
N� �extractstring(string$)
X	a$=""
b�
lb$=�string$,pointer%,1)
v� b$<>"," a$+=b$
�pointer%+=1
� � b$="," � pointer%>�string$
��
�:
�� �click
�button%=block%!8
�clkwin%=block%!12
�clkicon%=block%!16
�Ȏ button% �
� � 2
�  Ȏ clkwin% �
�   � -2
�    Ȏ clkicon% �
     � ibhandle%
6      ș "Wimp_CreateMenu",,ibmenu%,!block%-64,184
      menuopen%=ibmenu%
 
     �
*   � mainhandle%
4;    ș "Wimp_CreateMenu",,mainmenu%,!block%-64,block%!4
>    menuopen%=mainmenu%
H   �
R � 4
\  Ȏ clkwin% �
f   � -2
p    Ȏ clkicon% �
z     � ibhandle%
�      �open(mainhandle%)
�
     �
�   � mainhandle%
�    Ȏ clkicon% �
�
     � -1
�
     
�+      � gameon% �validatemove(clkicon%)
�
     �
�   �
� �
��
�:
�� �menuselect
	*ș "Wimp_GetPointerInfo",,pointerinfo%
	Ȏ menuopen% �
	
� ibmenu%
	$� !block%=1 � quit%=�
	.� mainmenu%
	8Ȏ !block% �
	B� 0
	L� block%!4<>-1 �
	Vfirst%=block%!4+1
	`�updatefirst
	j�
	t�newgame
	~� 1
	�redtotal%=0
	�yellowtotal%=0
	�$redtotstr%=�0
	�$yellowtotstr%=�0
	��updateicon(mainhandle%,5)
	��updateicon(mainhandle%,6)
	��
	��
	�6� pointerinfo%!8=1 ș "Wimp_CreateMenu",,menuopen%
	��
	�:
	�� �open(handle%)
!block%=handle%

$ș "Wimp_GetWindowState",,block%
block%!28=-1
 ș "Wimp_OpenWindow",,block%
(�
2:
<� �newgame
F� bigy%=0 � 2
P� bigx%=0 � 2
Z� smally%=0 � 2
d� smallx%=0 � 2
n4�updateplace(bigx%,bigy%,smallx%,smally%,empty%)
x�
��
��
��
�
gameon%=�
�whosego%=first% � 3
�
�newgo
��
�:
�� �newgo
�� gameon% �
�whosego%=whosego% � 3
�� whosego%=red% �
�$redgostr%="arrow"
$yellowgostr%="off"
�
$yellowgostr%="arrow"
"$redgostr%="off"
,�
6�updateicon(mainhandle%,3)
@�updateicon(mainhandle%,4)
Jcango%=�
Trolls%=0
^ȕ (� cango%) � rolls%<3
h	�roll
r
rolls%+=1
|� bigy%=0 � 2
�� bigx%=0 � 2
�� smally%=0 � 2
�� smallx%=0 � 2
�3�validate(bigx%,bigy%,smallx%,smally%,whosego%)
�� valid%=� cango%=�
��
��
��
��
��
�� � cango% �
�U�report(17,"Sorry, no moves possible after three dice rolls; you miss a go!",255)
�
�newgo
�
�
�
&:
0� �roll
:die1%=�(6)
Ddie2%=�(6)
Ndice%=die1%+die2%
X$diesprnm1%="die"+�die1%
b$diesprnm2%="die"+�die2%
l�updateicon(mainhandle%,1)
v�updateicon(mainhandle%,2)
��
�:
�)� �updateplace(bx%,by%,sx%,sy%,type%)
�"status%(bx%,by%,sx%,sy%)=type%
�type%=type% � &7F
�Ȏ type% �
�� empty%
�
a$="hole"
�
� red%
�a$="red"
�
� yellow%
�a$="yellow"
��

$names%(bx%,by%,sx%,sy%)=a$

6�updateicon(mainhandle%,handles%(bx%,by%,sx%,sy%))

�

 :

* � �updateicon(window%,icon%)

4!block%=window%

>block%!4=icon%

H"ș "Wimp_GetIconState",,block%

Rblock%!8=0

\block%!12=0

f"ș "Wimp_SetIconState",,block%

p�

z:

�� �initgame

�empty%=0

�
red%=1

�
yellow%=2

�redtotal%=0

�yellowtotal%=0

�
gameon%=�

�$redtotstr%=�0

�$yellowtotstr%=�0

��updateicon(mainhandle%,5)

��updateicon(mainhandle%,6)

�first%=red%

��updatefirst
�
:
� �validatemove(icon%)
$� bigy%=0 � 2
.� bigx%=0 � 2
8� smally%=0 � 2
B� smallx%=0 � 2
L3� handles%(bigx%,bigy%,smallx%,smally%)=icon% �
V
bx%=bigx%
`
by%=bigy%
jsx%=smallx%
tsy%=smally%
~�
��
��
��
��
�'�validate(bx%,by%,sx%,sy%,whosego%)
�Ȏ valid% �
�� �
�*�updateplace(bx%,by%,sx%,sy%,newstat%)
�Ȏ full% �
�� �
�whosego%=whosego% � 3
�� �
$�check(bx%,by%,sx%,sy%,whosego%)

�

�newgo
� �
("�report(17,"Invalid move",255)
2�
<�
F:
P(� �validate(bx%,by%,sx%,sy%,player%)
ZȎ dice% �
d� 2
n
any%=�
xfull%=�
�
middle%=�
�� 12
�
any%=�
�full%=�
�
middle%=�
�� 7
�
any%=�
�full%=�
�
middle%=�
�
�
any%=�
�full%=�
�
middle%=�
�
valid%=�
Ȏ full% �
"� �
,S� status%(bx%,by%,sx%,sy%)=0 � status%(bx%,by%,sx%,sy%)<>(player% � 3) valid%=�
6newstat%=empty%
@� �
J*� status%(bx%,by%,sx%,sy%)<>0 valid%=�
Tnewstat%=player%
^�
h� � any% �
rbignum%=bx%+3*by%+3
|smallnum%=sx%+3*sy%+3
�P� smallnum%<>dice% � ((bignum%<>dice%) � (smallnum%=7 � � middle%)) valid%=�
��
��
�:
�%� �check(bx%,by%,sx%,sy%,player%)
�
win%=�
��line(sx%,0,0,1)
��line(0,sy%,1,0)
�
Ȏ � �
�� sx%=sy% � sx%<>1
��line(0,0,1,1)
�� sx%<>1 � sy%<>1
��line(0,2,1,-1)
� sx%=sy% � sx%=1
�line(0,0,1,1)
�line(0,2,1,-1)
&�
0� � win% �
:counters%=0
D� sy%=0 � 2
N� sx%=0 � 2
X1counters%-=(status%(bx%,by%,sx%,sy%)=player%)
b�
l�
v� counters%>4 win%=�
��
�� win% �
�� sy%=0 � 2
�� sx%=0 � 2
�/�updateplace(bx%,by%,sx%,sy%,player% � &80)
��
��
�&�checkwhole(bx%,by%,player% � &80)
��
��
�:
�� �line(x0%,y0%,dx%,dy%)
�line%=�
� N%=0 � 2
1� status%(bx%,by%,x0%,y0%)<>player% � line%=�
x0%+=dx%
 y0%+=dy%
*�
4� line% win%=�
>�
H:
R� �won(player%)
\H� player%=red% � a$="Red":redtotal%+=1 � a$="Yellow":yellowtotal%+=1
f)�report(17,a$+" player has won!",255)
p$redtotstr%=�redtotal%
z $yellowtotstr%=�yellowtotal%
��updateicon(mainhandle%,5)
��updateicon(mainhandle%,6)
�
gameon%=�
�$redgostr%="off"
�$yellowgostr%="off"
��updateicon(mainhandle%,3)
��updateicon(mainhandle%,4)
�first%=first% � 3
��updatefirst
��
�:
�� �updatefirst
�5submenu%!(4+first%*24)=submenu%!(4+first%*24) � 1
Csubmenu%!(4+(first% � 3)*24)=submenu%!(4+(first% � 3)*24) � &FE
�
:
$"� �checkwhole(bx%,by%,winner%)
.
won%=�
8�boxln(bx%,0,0,1)
B�boxln(0,by%,1,0)
L
Ȏ � �
V� bx%=by% � bx%<>1
`�boxln(0,0,1,1)
j� bx%<>1 � by%<>1
t�boxln(0,2,1,-1)
~� bx%=by% � bx%=1
��boxln(0,0,1,1)
��boxln(0,2,1,-1)
��
�� � won% �
�boxes%=0
�� by%=0 � 2
�� bx%=0 � 2
�*boxes%-=(status%(bx%,by%,0,0)=winner%)
��
��
�� boxes%>4 won%=�
��
� won% �won(winner% � &7F)

�
:
� �boxln(x0%,y0%,dx%,dy%)
(bxln%=�
2� N%=0 � 2
<-� status%(x0%,y0%,0,0)<>winner% � bxln%=�
Fx0%+=dx%
Py0%+=dy%
Z�
d� bxln% won%=�
n�
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 0e f4 20 54 72  69 70 6c 65 20 33 0d 00  |..... Triple 3..|
00000020  1e 1c f4 20 28 63 29 20  31 39 39 33 20 54 6f 6e  |... (c) 1993 Ton|
00000030  79 20 48 6f 75 67 68 74  6f 6e 0d 00 28 05 3a 0d  |y Houghton..(.:.|
00000040  00 32 10 ee 20 85 20 f2  65 72 72 6f 72 3a e0 0d  |.2.. . .error:..|
00000050  00 3c 0d f2 69 6e 69 74  74 61 73 6b 0d 00 46 24  |.<..inittask..F$|
00000060  ee 20 85 20 f2 65 72 72  6f 72 3a c8 99 20 22 57  |. . .error:.. "W|
00000070  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 3a e0  |imp_CloseDown":.|
00000080  0d 00 50 10 f2 6c 6f 61  64 73 70 72 69 74 65 73  |..P..loadsprites|
00000090  0d 00 5a 0e f2 74 65 6d  70 6c 61 74 65 73 0d 00  |..Z..templates..|
000000a0  64 0c f2 69 63 6f 6e 62  61 72 0d 00 6e 0d f2 69  |d..iconbar..n..i|
000000b0  6e 69 74 67 61 6d 65 0d  00 78 0c f2 6e 65 77 67  |nitgame..x..newg|
000000c0  61 6d 65 0d 00 82 05 3a  0d 00 8c 05 f5 0d 00 96  |ame....:........|
000000d0  09 f2 70 6f 6c 6c 0d 00  a0 0b fd 20 71 75 69 74  |..poll..... quit|
000000e0  25 0d 00 aa 17 c8 99 20  22 57 69 6d 70 5f 43 6c  |%...... "Wimp_Cl|
000000f0  6f 73 65 44 6f 77 6e 22  0d 00 b4 05 e0 0d 00 be  |oseDown"........|
00000100  05 3a 0d 00 c8 0c dd 20  f2 65 72 72 6f 72 0d 00  |.:..... .error..|
00000110  d2 22 f2 72 65 70 6f 72  74 28 31 2c f6 24 2b 22  |.".report(1,.$+"|
00000120  20 61 74 20 6c 69 6e 65  20 22 2b c3 9e 2c 9f 29  | at line "+..,.)|
00000130  0d 00 dc 05 e1 0d 00 e6  05 3a 0d 00 f0 22 dd 20  |.........:...". |
00000140  f2 72 65 70 6f 72 74 28  66 6c 61 67 73 25 2c 72  |.report(flags%,r|
00000150  65 70 6f 72 74 24 2c 65  72 72 25 29 0d 00 fa 14  |eport$,err%)....|
00000160  6e 61 6d 65 24 3d 22 54  72 69 70 6c 65 20 33 22  |name$="Triple 3"|
00000170  0d 01 04 2f e7 20 66 6c  61 67 73 25 20 80 20 31  |.../. flags% . 1|
00000180  36 20 8c 20 6e 61 6d 65  24 3d 22 4d 65 73 73 61  |6 . name$="Messa|
00000190  67 65 20 66 72 6f 6d 20  22 2b 6e 61 6d 65 24 0d  |ge from "+name$.|
000001a0  01 0e 10 21 62 6c 6f 63  6b 25 3d 65 72 72 25 0d  |...!block%=err%.|
000001b0  01 18 17 24 28 62 6c 6f  63 6b 25 2b 34 29 3d 72  |...$(block%+4)=r|
000001c0  65 70 6f 72 74 24 0d 01  22 2d c8 99 20 22 57 69  |eport$.."-.. "Wi|
000001d0  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 2c  |mp_ReportError",|
000001e0  62 6c 6f 63 6b 25 2c 66  6c 61 67 73 25 2c 6e 61  |block%,flags%,na|
000001f0  6d 65 24 0d 01 2c 05 e1  0d 01 36 05 3a 0d 01 40  |me$..,....6.:..@|
00000200  0f dd 20 f2 69 6e 69 74  74 61 73 6b 0d 01 4a 61  |.. .inittask..Ja|
00000210  de 20 62 6c 6f 63 6b 25  20 31 30 32 34 2c 69 62  |. block% 1024,ib|
00000220  6d 65 6e 75 25 20 37 36  2c 6d 61 69 6e 6d 65 6e  |menu% 76,mainmen|
00000230  75 25 20 31 30 30 2c 73  75 62 6d 65 6e 75 25 20  |u% 100,submenu% |
00000240  37 36 2c 74 65 6d 70 69  6e 64 25 20 31 30 30 30  |76,tempind% 1000|
00000250  2c 74 65 6d 70 6e 61 6d  65 25 20 31 32 2c 70 6f  |,tempname% 12,po|
00000260  69 6e 74 65 72 69 6e 66  6f 25 20 32 30 0d 01 54  |interinfo% 20..T|
00000270  13 74 61 73 6b 25 3d 26  34 42 35 33 34 31 35 34  |.task%=&4B534154|
00000280  0d 01 5e 2d c8 99 20 22  57 69 6d 70 5f 49 6e 69  |..^-.. "Wimp_Ini|
00000290  74 69 61 6c 69 73 65 22  2c 32 30 30 2c 74 61 73  |tialise",200,tas|
000002a0  6b 25 2c 22 54 72 69 70  6c 65 20 33 22 0d 01 68  |k%,"Triple 3"..h|
000002b0  0b 71 75 69 74 25 3d a3  0d 01 72 38 de 20 73 74  |.quit%=...r8. st|
000002c0  61 74 75 73 25 28 32 2c  32 2c 32 2c 32 29 2c 68  |atus%(2,2,2,2),h|
000002d0  61 6e 64 6c 65 73 25 28  32 2c 32 2c 32 2c 32 29  |andles%(2,2,2,2)|
000002e0  2c 6e 61 6d 65 73 25 28  32 2c 32 2c 32 2c 32 29  |,names%(2,2,2,2)|
000002f0  0d 01 7c 11 e3 20 62 69  67 79 25 3d 30 20 b8 20  |..|.. bigy%=0 . |
00000300  32 0d 01 86 11 e3 20 62  69 67 78 25 3d 30 20 b8  |2..... bigx%=0 .|
00000310  20 32 0d 01 90 13 e3 20  73 6d 61 6c 6c 79 25 3d  | 2..... smally%=|
00000320  30 20 b8 20 32 0d 01 9a  13 e3 20 73 6d 61 6c 6c  |0 . 2..... small|
00000330  78 25 3d 30 20 b8 20 32  0d 01 a4 0b de 20 41 25  |x%=0 . 2..... A%|
00000340  20 31 32 0d 01 ae 2a 6e  61 6d 65 73 25 28 62 69  | 12...*names%(bi|
00000350  67 78 25 2c 62 69 67 79  25 2c 73 6d 61 6c 6c 78  |gx%,bigy%,smallx|
00000360  25 2c 73 6d 61 6c 6c 79  25 29 3d 41 25 0d 01 b8  |%,smally%)=A%...|
00000370  05 ed 0d 01 c2 05 ed 0d  01 cc 05 ed 0d 01 d6 05  |................|
00000380  ed 0d 01 e0 22 c8 99 20  22 4f 53 5f 52 65 61 64  |....".. "OS_Read|
00000390  4d 6f 6e 6f 74 6f 6e 69  63 54 69 6d 65 22 20 b8  |MonotonicTime" .|
000003a0  20 41 25 0d 01 ea 0d 41  25 3d b3 28 2d 41 25 29  | A%....A%=.(-A%)|
000003b0  0d 01 f4 05 e1 0d 01 fe  05 3a 0d 02 08 12 dd 20  |.........:..... |
000003c0  f2 6c 6f 61 64 73 70 72  69 74 65 73 0d 02 12 22  |.loadsprites..."|
000003d0  66 69 6c 65 25 3d 8e 22  3c 54 72 69 70 6c 65 33  |file%=."<Triple3|
000003e0  24 44 69 72 3e 2e 53 70  72 69 74 65 73 22 0d 02  |$Dir>.Sprites"..|
000003f0  1c 13 73 69 7a 65 25 3d  a2 23 66 69 6c 65 25 2b  |..size%=.#file%+|
00000400  34 0d 02 26 0b d9 23 66  69 6c 65 25 0d 02 30 13  |4..&..#file%..0.|
00000410  de 20 73 70 61 72 65 61  25 20 73 69 7a 65 25 0d  |. sparea% size%.|
00000420  02 3a 12 21 73 70 61 72  65 61 25 3d 73 69 7a 65  |.:.!sparea%=size|
00000430  25 0d 02 44 10 73 70 61  72 65 61 25 21 38 3d 31  |%..D.sparea%!8=1|
00000440  36 0d 02 4e 39 c8 99 20  22 4f 53 5f 53 70 72 69  |6..N9.. "OS_Spri|
00000450  74 65 4f 70 22 2c 26 31  30 41 2c 73 70 61 72 65  |teOp",&10A,spare|
00000460  61 25 2c 22 3c 54 72 69  70 6c 65 33 24 44 69 72  |a%,"<Triple3$Dir|
00000470  3e 2e 53 70 72 69 74 65  73 22 0d 02 58 05 e1 0d  |>.Sprites"..X...|
00000480  02 62 05 3a 0d 02 6c 10  dd 20 f2 74 65 6d 70 6c  |.b.:..l.. .templ|
00000490  61 74 65 73 0d 02 76 35  c8 99 20 22 57 69 6d 70  |ates..v5.. "Wimp|
000004a0  5f 4f 70 65 6e 54 65 6d  70 6c 61 74 65 22 2c 2c  |_OpenTemplate",,|
000004b0  22 3c 54 72 69 70 6c 65  33 24 44 69 72 3e 2e 54  |"<Triple3$Dir>.T|
000004c0  65 6d 70 6c 61 74 65 73  22 0d 02 80 16 73 74 61  |emplates"....sta|
000004d0  72 74 69 6e 64 25 3d 74  65 6d 70 69 6e 64 25 0d  |rtind%=tempind%.|
000004e0  02 8a 19 65 6e 64 69 6e  64 25 3d 74 65 6d 70 69  |...endind%=tempi|
000004f0  6e 64 25 2b 31 30 30 30  0d 02 94 21 69 6e 66 6f  |nd%+1000...!info|
00000500  68 61 6e 64 6c 65 25 3d  a4 6c 6f 61 64 74 65 6d  |handle%=.loadtem|
00000510  70 28 22 49 6e 66 6f 22  29 0d 02 9e 21 6d 61 69  |p("Info")...!mai|
00000520  6e 68 61 6e 64 6c 65 25  3d a4 6c 6f 61 64 74 65  |nhandle%=.loadte|
00000530  6d 70 28 22 4d 61 69 6e  22 29 0d 02 a8 1b c8 99  |mp("Main")......|
00000540  20 22 57 69 6d 70 5f 43  6c 6f 73 65 54 65 6d 70  | "Wimp_CloseTemp|
00000550  6c 61 74 65 22 0d 02 b2  0f f2 70 6c 61 63 65 69  |late".....placei|
00000560  63 6f 6e 73 0d 02 bc 41  f2 73 65 74 75 70 6d 65  |cons...A.setupme|
00000570  6e 75 28 69 62 6d 65 6e  75 25 2c 22 54 72 69 70  |nu(ibmenu%,"Trip|
00000580  6c 65 20 33 2c 30 2c 69  6e 66 6f 68 61 6e 64 6c  |le 3,0,infohandl|
00000590  65 25 2c 49 6e 66 6f 2c  26 38 30 2c 2d 31 2c 51  |e%,Info,&80,-1,Q|
000005a0  75 69 74 22 29 0d 02 c6  4b f2 73 65 74 75 70 6d  |uit")...K.setupm|
000005b0  65 6e 75 28 6d 61 69 6e  6d 65 6e 75 25 2c 22 54  |enu(mainmenu%,"T|
000005c0  72 69 70 6c 65 20 33 2c  30 2c 73 75 62 6d 65 6e  |riple 3,0,submen|
000005d0  75 25 2c 4e 65 77 20 67  61 6d 65 2c 26 38 30 2c  |u%,New game,&80,|
000005e0  2d 31 2c 5a 65 72 6f 20  74 6f 74 61 6c 73 22 29  |-1,Zero totals")|
000005f0  0d 02 d0 3c f2 73 65 74  75 70 6d 65 6e 75 28 73  |...<.setupmenu(s|
00000600  75 62 6d 65 6e 75 25 2c  22 57 68 6f 20 73 74 61  |ubmenu%,"Who sta|
00000610  72 74 73 2c 30 2c 2d 31  2c 52 65 64 2c 26 38 30  |rts,0,-1,Red,&80|
00000620  2c 2d 31 2c 59 65 6c 6c  6f 77 22 29 0d 02 da 05  |,-1,Yellow")....|
00000630  e1 0d 02 e4 05 3a 0d 02  ee 16 dd 20 a4 6c 6f 61  |.....:..... .loa|
00000640  64 74 65 6d 70 28 6e 61  6d 65 24 29 0d 02 f8 14  |dtemp(name$)....|
00000650  24 74 65 6d 70 6e 61 6d  65 25 3d 6e 61 6d 65 24  |$tempname%=name$|
00000660  0d 03 02 0d ea 20 68 61  6e 64 6c 65 25 0d 03 0c  |..... handle%...|
00000670  5a c8 99 20 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |Z.. "Wimp_LoadTe|
00000680  6d 70 6c 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 2c  |mplate",,block%,|
00000690  73 74 61 72 74 69 6e 64  25 2c 65 6e 64 69 6e 64  |startind%,endind|
000006a0  25 2c 2d 31 2c 74 65 6d  70 6e 61 6d 65 25 2c 30  |%,-1,tempname%,0|
000006b0  20 b8 20 2c 2c 73 74 61  72 74 69 6e 64 25 2c 2c  | . ,,startind%,,|
000006c0  2c 2c 70 6f 73 6e 25 0d  03 16 15 62 6c 6f 63 6b  |,,posn%....block|
000006d0  25 21 36 34 3d 73 70 61  72 65 61 25 0d 03 20 14  |%!64=sparea%.. .|
000006e0  e7 20 6e 61 6d 65 24 3d  22 4d 61 69 6e 22 20 8c  |. name$="Main" .|
000006f0  0d 03 2a 16 62 6c 6f 63  6b 25 21 31 34 34 3d 73  |..*.block%!144=s|
00000700  70 61 72 65 61 25 0d 03  34 16 62 6c 6f 63 6b 25  |parea%..4.block%|
00000710  21 31 37 36 3d 73 70 61  72 65 61 25 0d 03 3e 16  |!176=sparea%..>.|
00000720  62 6c 6f 63 6b 25 21 32  30 38 3d 73 70 61 72 65  |block%!208=spare|
00000730  61 25 0d 03 48 16 62 6c  6f 63 6b 25 21 32 34 30  |a%..H.block%!240|
00000740  3d 73 70 61 72 65 61 25  0d 03 52 19 64 69 65 73  |=sparea%..R.dies|
00000750  70 72 6e 6d 31 25 3d 62  6c 6f 63 6b 25 21 31 34  |prnm1%=block%!14|
00000760  30 0d 03 5c 19 64 69 65  73 70 72 6e 6d 32 25 3d  |0..\.diesprnm2%=|
00000770  62 6c 6f 63 6b 25 21 31  37 32 0d 03 66 18 72 65  |block%!172..f.re|
00000780  64 67 6f 73 74 72 25 3d  62 6c 6f 63 6b 25 21 32  |dgostr%=block%!2|
00000790  30 34 0d 03 70 1b 79 65  6c 6c 6f 77 67 6f 73 74  |04..p.yellowgost|
000007a0  72 25 3d 62 6c 6f 63 6b  25 21 32 33 36 0d 03 7a  |r%=block%!236..z|
000007b0  19 72 65 64 74 6f 74 73  74 72 25 3d 62 6c 6f 63  |.redtotstr%=bloc|
000007c0  6b 25 21 32 36 38 0d 03  84 1c 79 65 6c 6c 6f 77  |k%!268....yellow|
000007d0  74 6f 74 73 74 72 25 3d  62 6c 6f 63 6b 25 21 33  |totstr%=block%!3|
000007e0  30 30 0d 03 8e 05 cd 0d  03 98 2c c8 99 20 22 57  |00........,.. "W|
000007f0  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00000800  22 2c 2c 62 6c 6f 63 6b  25 20 b8 20 68 61 6e 64  |",,block% . hand|
00000810  6c 65 25 0d 03 a2 0c 3d  68 61 6e 64 6c 65 25 0d  |le%....=handle%.|
00000820  03 ac 05 3a 0d 03 b6 11  dd 20 f2 70 6c 61 63 65  |...:..... .place|
00000830  69 63 6f 6e 73 0d 03 c0  11 e3 20 62 69 67 79 25  |icons..... bigy%|
00000840  3d 30 20 b8 20 32 0d 03  ca 11 e3 20 62 69 67 78  |=0 . 2..... bigx|
00000850  25 3d 30 20 b8 20 32 0d  03 d4 13 e3 20 73 6d 61  |%=0 . 2..... sma|
00000860  6c 6c 79 25 3d 30 20 b8  20 32 0d 03 de 13 e3 20  |lly%=0 . 2..... |
00000870  73 6d 61 6c 6c 78 25 3d  30 20 b8 20 32 0d 03 e8  |smallx%=0 . 2...|
00000880  2a 73 74 61 74 75 73 25  28 62 69 67 78 25 2c 62  |*status%(bigx%,b|
00000890  69 67 79 25 2c 73 6d 61  6c 6c 78 25 2c 73 6d 61  |igy%,smallx%,sma|
000008a0  6c 6c 79 25 29 3d 30 0d  03 f2 b0 68 61 6e 64 6c  |lly%)=0....handl|
000008b0  65 73 25 28 62 69 67 78  25 2c 62 69 67 79 25 2c  |es%(bigx%,bigy%,|
000008c0  73 6d 61 6c 6c 78 25 2c  73 6d 61 6c 6c 79 25 29  |smallx%,smally%)|
000008d0  3d a4 63 72 65 61 74 65  69 63 6f 6e 28 6d 61 69  |=.createicon(mai|
000008e0  6e 68 61 6e 64 6c 65 25  2c 62 69 67 78 25 2a 31  |nhandle%,bigx%*1|
000008f0  39 32 2b 73 6d 61 6c 6c  78 25 2a 36 30 2b 31 36  |92+smallx%*60+16|
00000900  2c 2d 33 32 2d 62 69 67  79 25 2a 31 39 32 2d 73  |,-32-bigy%*192-s|
00000910  6d 61 6c 6c 79 25 2a 36  30 2c 32 38 2c 32 38 2c  |mally%*60,28,28,|
00000920  26 33 31 30 32 2c 22 22  2c 6e 61 6d 65 73 25 28  |&3102,"",names%(|
00000930  62 69 67 78 25 2c 62 69  67 79 25 2c 73 6d 61 6c  |bigx%,bigy%,smal|
00000940  6c 78 25 2c 73 6d 61 6c  6c 79 25 29 2c 73 70 61  |lx%,smally%),spa|
00000950  72 65 61 25 2c 34 29 0d  03 fc 2f 24 6e 61 6d 65  |rea%,4).../$name|
00000960  73 25 28 62 69 67 78 25  2c 62 69 67 79 25 2c 73  |s%(bigx%,bigy%,s|
00000970  6d 61 6c 6c 78 25 2c 73  6d 61 6c 6c 79 25 29 3d  |mallx%,smally%)=|
00000980  22 68 6f 6c 65 22 0d 04  06 1f e7 20 73 6d 61 6c  |"hole"..... smal|
00000990  6c 78 25 3c 3e 31 20 84  20 73 6d 61 6c 6c 79 25  |lx%<>1 . smally%|
000009a0  3c 3e 31 20 8c 0d 04 10  0c 66 6c 61 67 73 25 3d  |<>1 .....flags%=|
000009b0  32 0d 04 1a 09 65 78 25  3d 30 0d 04 24 09 65 79  |2....ex%=0..$.ey|
000009c0  25 3d 30 0d 04 2e 1d 61  24 3d c3 28 73 6d 61 6c  |%=0....a$=.(smal|
000009d0  6c 78 25 2b 33 2a 73 6d  61 6c 6c 79 25 2b 33 29  |lx%+3*smally%+3)|
000009e0  0d 04 38 05 cc 0d 04 42  14 66 6c 61 67 73 25 3d  |..8....B.flags%=|
000009f0  26 38 30 30 30 30 30 33  41 0d 04 4c 09 65 78 25  |&8000003A..L.ex%|
00000a00  3d 32 0d 04 56 09 65 79  25 3d 34 0d 04 60 19 61  |=2..V.ey%=4..`.a|
00000a10  24 3d c3 28 62 69 67 78  25 2b 33 2a 62 69 67 79  |$=.(bigx%+3*bigy|
00000a20  25 2b 33 29 0d 04 6a 05  cd 0d 04 74 7a 41 25 3d  |%+3)..j....tzA%=|
00000a30  a4 63 72 65 61 74 65 69  63 6f 6e 28 6d 61 69 6e  |.createicon(main|
00000a40  68 61 6e 64 6c 65 25 2c  62 69 67 78 25 2a 31 39  |handle%,bigx%*19|
00000a50  32 2b 73 6d 61 6c 6c 78  25 2a 36 30 2b 32 34 2d  |2+smallx%*60+24-|
00000a60  65 78 25 2c 2d 35 36 2d  62 69 67 79 25 2a 31 39  |ex%,-56-bigy%*19|
00000a70  32 2d 73 6d 61 6c 6c 79  25 2a 36 30 2d 65 79 25  |2-smally%*60-ey%|
00000a80  2c 31 36 2b 32 2a 65 78  25 2c 32 30 2b 32 2a 65  |,16+2*ex%,20+2*e|
00000a90  79 25 2c 66 6c 61 67 73  25 2c 61 24 2c 30 2c 30  |y%,flags%,a$,0,0|
00000aa0  2c 30 29 0d 04 7e 05 ed  0d 04 88 05 ed 0d 04 92  |,0)..~..........|
00000ab0  05 ed 0d 04 9c 05 ed 0d  04 a6 05 e1 0d 04 b0 05  |................|
00000ac0  3a 0d 04 ba 49 dd 20 a4  63 72 65 61 74 65 69 63  |:...I. .createic|
00000ad0  6f 6e 28 68 61 6e 64 6c  65 25 2c 69 78 25 2c 69  |on(handle%,ix%,i|
00000ae0  79 25 2c 69 77 25 2c 69  68 25 2c 66 6c 61 67 73  |y%,iw%,ih%,flags|
00000af0  25 2c 74 65 78 74 24 2c  70 74 72 31 25 2c 70 74  |%,text$,ptr1%,pt|
00000b00  72 32 25 2c 70 74 72 33  25 29 0d 04 c4 13 21 62  |r2%,ptr3%)....!b|
00000b10  6c 6f 63 6b 25 3d 68 61  6e 64 6c 65 25 0d 04 ce  |lock%=handle%...|
00000b20  10 62 6c 6f 63 6b 25 21  34 3d 69 78 25 0d 04 d8  |.block%!4=ix%...|
00000b30  10 62 6c 6f 63 6b 25 21  38 3d 69 79 25 0d 04 e2  |.block%!8=iy%...|
00000b40  15 62 6c 6f 63 6b 25 21  31 32 3d 69 78 25 2b 69  |.block%!12=ix%+i|
00000b50  77 25 0d 04 ec 15 62 6c  6f 63 6b 25 21 31 36 3d  |w%....block%!16=|
00000b60  69 79 25 2b 69 68 25 0d  04 f6 14 62 6c 6f 63 6b  |iy%+ih%....block|
00000b70  25 21 32 30 3d 66 6c 61  67 73 25 0d 05 00 10 e7  |%!20=flags%.....|
00000b80  20 74 65 78 74 24 3d 22  22 20 8c 0d 05 0a 13 62  | text$="" .....b|
00000b90  6c 6f 63 6b 25 21 32 34  3d 70 74 72 31 25 0d 05  |lock%!24=ptr1%..|
00000ba0  14 13 62 6c 6f 63 6b 25  21 32 38 3d 70 74 72 32  |..block%!28=ptr2|
00000bb0  25 0d 05 1e 13 62 6c 6f  63 6b 25 21 33 32 3d 70  |%....block%!32=p|
00000bc0  74 72 33 25 0d 05 28 05  cc 0d 05 32 16 24 28 62  |tr3%..(....2.$(b|
00000bd0  6c 6f 63 6b 25 2b 32 34  29 3d 74 65 78 74 24 0d  |lock%+24)=text$.|
00000be0  05 3c 05 cd 0d 05 46 2a  c8 99 20 22 57 69 6d 70  |.<....F*.. "Wimp|
00000bf0  5f 43 72 65 61 74 65 49  63 6f 6e 22 2c 2c 62 6c  |_CreateIcon",,bl|
00000c00  6f 63 6b 25 20 b8 20 68  61 6e 64 6c 65 25 0d 05  |ock% . handle%..|
00000c10  50 0c 3d 68 61 6e 64 6c  65 25 0d 05 5a 05 3a 0d  |P.=handle%..Z.:.|
00000c20  05 64 0e dd 20 f2 69 63  6f 6e 62 61 72 0d 05 6e  |.d.. .iconbar..n|
00000c30  0e 21 62 6c 6f 63 6b 25  3d 2d 31 0d 05 78 0e 62  |.!block%=-1..x.b|
00000c40  6c 6f 63 6b 25 21 34 3d  30 0d 05 82 0e 62 6c 6f  |lock%!4=0....blo|
00000c50  63 6b 25 21 38 3d 30 0d  05 8c 10 62 6c 6f 63 6b  |ck%!8=0....block|
00000c60  25 21 31 32 3d 36 38 0d  05 96 10 62 6c 6f 63 6b  |%!12=68....block|
00000c70  25 21 31 36 3d 36 38 0d  05 a0 13 62 6c 6f 63 6b  |%!16=68....block|
00000c80  25 21 32 30 3d 26 33 30  30 32 0d 05 aa 1b 24 28  |%!20=&3002....$(|
00000c90  62 6c 6f 63 6b 25 2b 32  34 29 3d 22 21 74 72 69  |block%+24)="!tri|
00000ca0  70 6c 65 33 22 0d 05 b4  2c c8 99 20 22 57 69 6d  |ple3"...,.. "Wim|
00000cb0  70 5f 43 72 65 61 74 65  49 63 6f 6e 22 2c 2c 62  |p_CreateIcon",,b|
00000cc0  6c 6f 63 6b 25 20 b8 20  69 62 68 61 6e 64 6c 65  |lock% . ibhandle|
00000cd0  25 0d 05 be 05 e1 0d 05  c8 05 3a 0d 05 d2 0a dd  |%.........:.....|
00000ce0  f2 70 6f 6c 6c 0d 05 dc  29 6d 61 73 6b 25 3d 31  |.poll...)mask%=1|
00000cf0  2b 28 31 3c 3c 34 29 2b  28 31 3c 3c 35 29 2b 28  |+(1<<4)+(1<<5)+(|
00000d00  31 3c 3c 31 38 29 2b 28  31 3c 3c 31 39 29 0d 05  |1<<18)+(1<<19)..|
00000d10  e6 29 c8 99 20 22 57 69  6d 70 5f 50 6f 6c 6c 22  |.).. "Wimp_Poll"|
00000d20  2c 6d 61 73 6b 25 2c 62  6c 6f 63 6b 25 20 b8 20  |,mask%,block% . |
00000d30  72 65 61 73 6f 6e 25 0d  05 f0 10 c8 8e 20 72 65  |reason%...... re|
00000d40  61 73 6f 6e 25 20 ca 0d  05 fa 24 c9 20 32 3a c8  |ason% ....$. 2:.|
00000d50  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00000d60  6f 77 22 2c 2c 62 6c 6f  63 6b 25 0d 06 04 25 c9  |ow",,block%...%.|
00000d70  20 33 3a c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  | 3:.. "Wimp_Clos|
00000d80  65 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |eWindow",,block%|
00000d90  0d 06 0e 0e c9 20 36 3a  f2 63 6c 69 63 6b 0d 06  |..... 6:.click..|
00000da0  18 13 c9 20 39 3a f2 6d  65 6e 75 73 65 6c 65 63  |... 9:.menuselec|
00000db0  74 0d 06 22 23 c9 20 31  37 2c 31 38 3a e7 20 62  |t.."#. 17,18:. b|
00000dc0  6c 6f 63 6b 25 21 31 36  3d 30 20 8c 20 71 75 69  |lock%!16=0 . qui|
00000dd0  74 25 3d b9 0d 06 2c 05  cb 0d 06 36 05 e1 0d 06  |t%=...,....6....|
00000de0  40 05 3a 0d 06 4a 1f dd  20 f2 73 65 74 75 70 6d  |@.:..J.. .setupm|
00000df0  65 6e 75 28 6d 65 6e 75  25 2c 73 74 72 69 6e 67  |enu(menu%,string|
00000e00  24 29 0d 06 54 0e 70 6f  69 6e 74 65 72 25 3d 31  |$)..T.pointer%=1|
00000e10  0d 06 5e 1b f2 65 78 74  72 61 63 74 73 74 72 69  |..^..extractstri|
00000e20  6e 67 28 73 74 72 69 6e  67 24 29 0d 06 68 0d 24  |ng(string$)..h.$|
00000e30  6d 65 6e 75 25 3d 61 24  0d 06 72 17 77 69 64 74  |menu%=a$..r.widt|
00000e40  68 25 3d 28 a9 28 61 24  29 2d 32 29 2a 31 36 0d  |h%=(.(a$)-2)*16.|
00000e50  06 7c 13 6d 65 6e 75 25  21 31 32 3d 26 37 30 32  |.|.menu%!12=&702|
00000e60  30 37 0d 06 86 0f 6d 65  6e 75 25 21 32 30 3d 34  |07....menu%!20=4|
00000e70  34 0d 06 90 0e 6d 65 6e  75 25 21 32 34 3d 30 0d  |4....menu%!24=0.|
00000e80  06 9a 11 70 74 72 25 3d  6d 65 6e 75 25 2b 32 38  |...ptr%=menu%+28|
00000e90  0d 06 a4 05 f5 0d 06 ae  1b f2 65 78 74 72 61 63  |..........extrac|
00000ea0  74 73 74 72 69 6e 67 28  73 74 72 69 6e 67 24 29  |tstring(string$)|
00000eb0  0d 06 b8 0f 6d 66 6c 61  67 73 25 3d a0 61 24 0d  |....mflags%=.a$.|
00000ec0  06 c2 1b f2 65 78 74 72  61 63 74 73 74 72 69 6e  |....extractstrin|
00000ed0  67 28 73 74 72 69 6e 67  24 29 0d 06 cc 0f 73 75  |g(string$)....su|
00000ee0  62 70 74 72 25 3d a0 61  24 0d 06 d6 1b f2 65 78  |bptr%=.a$.....ex|
00000ef0  74 72 61 63 74 73 74 72  69 6e 67 28 73 74 72 69  |tractstring(stri|
00000f00  6e 67 24 29 0d 06 e0 11  21 70 74 72 25 3d 6d 66  |ng$)....!ptr%=mf|
00000f10  6c 61 67 73 25 0d 06 ea  12 70 74 72 25 21 34 3d  |lags%....ptr%!4=|
00000f20  73 75 62 70 74 72 25 0d  06 f4 13 70 74 72 25 21  |subptr%....ptr%!|
00000f30  38 3d 26 37 30 30 30 30  32 31 0d 06 fe 11 24 28  |8=&7000021....$(|
00000f40  70 74 72 25 2b 31 32 29  3d 61 24 0d 07 08 13 61  |ptr%+12)=a$....a|
00000f50  25 3d 28 a9 28 61 24 29  2b 31 29 2a 31 36 0d 07  |%=(.(a$)+1)*16..|
00000f60  12 19 e7 20 61 25 3e 77  69 64 74 68 25 20 77 69  |... a%>width% wi|
00000f70  64 74 68 25 3d 61 25 0d  07 1c 0c 70 74 72 25 2b  |dth%=a%....ptr%+|
00000f80  3d 32 34 0d 07 26 19 fd  20 28 6d 66 6c 61 67 73  |=24..&.. (mflags|
00000f90  25 20 80 20 26 38 30 29  3d 26 38 30 0d 07 30 13  |% . &80)=&80..0.|
00000fa0  6d 65 6e 75 25 21 31 36  3d 77 69 64 74 68 25 0d  |menu%!16=width%.|
00000fb0  07 3a 05 e1 0d 07 44 05  3a 0d 07 4e 1d dd 20 f2  |.:....D.:..N.. .|
00000fc0  65 78 74 72 61 63 74 73  74 72 69 6e 67 28 73 74  |extractstring(st|
00000fd0  72 69 6e 67 24 29 0d 07  58 09 61 24 3d 22 22 0d  |ring$)..X.a$="".|
00000fe0  07 62 05 f5 0d 07 6c 1b  62 24 3d c1 73 74 72 69  |.b....l.b$=.stri|
00000ff0  6e 67 24 2c 70 6f 69 6e  74 65 72 25 2c 31 29 0d  |ng$,pointer%,1).|
00001000  07 76 14 e7 20 62 24 3c  3e 22 2c 22 20 61 24 2b  |.v.. b$<>"," a$+|
00001010  3d 62 24 0d 07 80 0f 70  6f 69 6e 74 65 72 25 2b  |=b$....pointer%+|
00001020  3d 31 0d 07 8a 20 fd 20  62 24 3d 22 2c 22 20 84  |=1... . b$="," .|
00001030  20 70 6f 69 6e 74 65 72  25 3e a9 73 74 72 69 6e  | pointer%>.strin|
00001040  67 24 0d 07 94 05 e1 0d  07 9e 05 3a 0d 07 a8 0c  |g$.........:....|
00001050  dd 20 f2 63 6c 69 63 6b  0d 07 b2 14 62 75 74 74  |. .click....butt|
00001060  6f 6e 25 3d 62 6c 6f 63  6b 25 21 38 0d 07 bc 15  |on%=block%!8....|
00001070  63 6c 6b 77 69 6e 25 3d  62 6c 6f 63 6b 25 21 31  |clkwin%=block%!1|
00001080  32 0d 07 c6 16 63 6c 6b  69 63 6f 6e 25 3d 62 6c  |2....clkicon%=bl|
00001090  6f 63 6b 25 21 31 36 0d  07 d0 10 c8 8e 20 62 75  |ock%!16...... bu|
000010a0  74 74 6f 6e 25 20 ca 0d  07 da 08 20 c9 20 32 0d  |tton% ..... . 2.|
000010b0  07 e4 12 20 20 c8 8e 20  63 6c 6b 77 69 6e 25 20  |...  .. clkwin% |
000010c0  ca 0d 07 ee 0b 20 20 20  c9 20 2d 32 0d 07 f8 15  |.....   . -2....|
000010d0  20 20 20 20 c8 8e 20 63  6c 6b 69 63 6f 6e 25 20  |    .. clkicon% |
000010e0  ca 0d 08 02 14 20 20 20  20 20 c9 20 69 62 68 61  |.....     . ibha|
000010f0  6e 64 6c 65 25 0d 08 0c  36 20 20 20 20 20 20 c8  |ndle%...6      .|
00001100  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00001110  6e 75 22 2c 2c 69 62 6d  65 6e 75 25 2c 21 62 6c  |nu",,ibmenu%,!bl|
00001120  6f 63 6b 25 2d 36 34 2c  31 38 34 0d 08 16 1b 20  |ock%-64,184.... |
00001130  20 20 20 20 20 6d 65 6e  75 6f 70 65 6e 25 3d 69  |     menuopen%=i|
00001140  62 6d 65 6e 75 25 0d 08  20 0a 20 20 20 20 20 cb  |bmenu%.. .     .|
00001150  0d 08 2a 14 20 20 20 c9  20 6d 61 69 6e 68 61 6e  |..*.   . mainhan|
00001160  64 6c 65 25 0d 08 34 3b  20 20 20 20 c8 99 20 22  |dle%..4;    .. "|
00001170  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00001180  2c 2c 6d 61 69 6e 6d 65  6e 75 25 2c 21 62 6c 6f  |,,mainmenu%,!blo|
00001190  63 6b 25 2d 36 34 2c 62  6c 6f 63 6b 25 21 34 0d  |ck%-64,block%!4.|
000011a0  08 3e 1b 20 20 20 20 6d  65 6e 75 6f 70 65 6e 25  |.>.    menuopen%|
000011b0  3d 6d 61 69 6e 6d 65 6e  75 25 0d 08 48 08 20 20  |=mainmenu%..H.  |
000011c0  20 cb 0d 08 52 08 20 c9  20 34 0d 08 5c 12 20 20  | ...R. . 4..\.  |
000011d0  c8 8e 20 63 6c 6b 77 69  6e 25 20 ca 0d 08 66 0b  |.. clkwin% ...f.|
000011e0  20 20 20 c9 20 2d 32 0d  08 70 15 20 20 20 20 c8  |   . -2..p.    .|
000011f0  8e 20 63 6c 6b 69 63 6f  6e 25 20 ca 0d 08 7a 14  |. clkicon% ...z.|
00001200  20 20 20 20 20 c9 20 69  62 68 61 6e 64 6c 65 25  |     . ibhandle%|
00001210  0d 08 84 1c 20 20 20 20  20 20 f2 6f 70 65 6e 28  |....      .open(|
00001220  6d 61 69 6e 68 61 6e 64  6c 65 25 29 0d 08 8e 0a  |mainhandle%)....|
00001230  20 20 20 20 20 cb 0d 08  98 14 20 20 20 c9 20 6d  |     .....   . m|
00001240  61 69 6e 68 61 6e 64 6c  65 25 0d 08 a2 15 20 20  |ainhandle%....  |
00001250  20 20 c8 8e 20 63 6c 6b  69 63 6f 6e 25 20 ca 0d  |  .. clkicon% ..|
00001260  08 ac 0d 20 20 20 20 20  c9 20 2d 31 0d 08 b6 0a  |...     . -1....|
00001270  20 20 20 20 20 7f 0d 08  c0 2b 20 20 20 20 20 20  |     ....+      |
00001280  e7 20 67 61 6d 65 6f 6e  25 20 f2 76 61 6c 69 64  |. gameon% .valid|
00001290  61 74 65 6d 6f 76 65 28  63 6c 6b 69 63 6f 6e 25  |atemove(clkicon%|
000012a0  29 0d 08 ca 0a 20 20 20  20 20 cb 0d 08 d4 08 20  |)....     ..... |
000012b0  20 20 cb 0d 08 de 06 20  cb 0d 08 e8 05 e1 0d 08  |  ..... ........|
000012c0  f2 05 3a 0d 08 fc 11 dd  20 f2 6d 65 6e 75 73 65  |..:..... .menuse|
000012d0  6c 65 63 74 0d 09 06 2a  c8 99 20 22 57 69 6d 70  |lect...*.. "Wimp|
000012e0  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
000012f0  2c 2c 70 6f 69 6e 74 65  72 69 6e 66 6f 25 0d 09  |,,pointerinfo%..|
00001300  10 12 c8 8e 20 6d 65 6e  75 6f 70 65 6e 25 20 ca  |.... menuopen% .|
00001310  0d 09 1a 0d c9 20 69 62  6d 65 6e 75 25 0d 09 24  |..... ibmenu%..$|
00001320  19 e7 20 21 62 6c 6f 63  6b 25 3d 31 20 8c 20 71  |.. !block%=1 . q|
00001330  75 69 74 25 3d b9 0d 09  2e 0f c9 20 6d 61 69 6e  |uit%=...... main|
00001340  6d 65 6e 75 25 0d 09 38  10 c8 8e 20 21 62 6c 6f  |menu%..8... !blo|
00001350  63 6b 25 20 ca 0d 09 42  07 c9 20 30 0d 09 4c 14  |ck% ...B.. 0..L.|
00001360  e7 20 62 6c 6f 63 6b 25  21 34 3c 3e 2d 31 20 8c  |. block%!4<>-1 .|
00001370  0d 09 56 15 66 69 72 73  74 25 3d 62 6c 6f 63 6b  |..V.first%=block|
00001380  25 21 34 2b 31 0d 09 60  10 f2 75 70 64 61 74 65  |%!4+1..`..update|
00001390  66 69 72 73 74 0d 09 6a  05 cd 0d 09 74 0c f2 6e  |first..j....t..n|
000013a0  65 77 67 61 6d 65 0d 09  7e 07 c9 20 31 0d 09 88  |ewgame..~.. 1...|
000013b0  0f 72 65 64 74 6f 74 61  6c 25 3d 30 0d 09 92 12  |.redtotal%=0....|
000013c0  79 65 6c 6c 6f 77 74 6f  74 61 6c 25 3d 30 0d 09  |yellowtotal%=0..|
000013d0  9c 12 24 72 65 64 74 6f  74 73 74 72 25 3d c3 30  |..$redtotstr%=.0|
000013e0  0d 09 a6 15 24 79 65 6c  6c 6f 77 74 6f 74 73 74  |....$yellowtotst|
000013f0  72 25 3d c3 30 0d 09 b0  1e f2 75 70 64 61 74 65  |r%=.0.....update|
00001400  69 63 6f 6e 28 6d 61 69  6e 68 61 6e 64 6c 65 25  |icon(mainhandle%|
00001410  2c 35 29 0d 09 ba 1e f2  75 70 64 61 74 65 69 63  |,5).....updateic|
00001420  6f 6e 28 6d 61 69 6e 68  61 6e 64 6c 65 25 2c 36  |on(mainhandle%,6|
00001430  29 0d 09 c4 05 cb 0d 09  ce 05 cb 0d 09 d8 36 e7  |).............6.|
00001440  20 70 6f 69 6e 74 65 72  69 6e 66 6f 25 21 38 3d  | pointerinfo%!8=|
00001450  31 20 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |1 .. "Wimp_Creat|
00001460  65 4d 65 6e 75 22 2c 2c  6d 65 6e 75 6f 70 65 6e  |eMenu",,menuopen|
00001470  25 0d 09 e2 05 e1 0d 09  ec 05 3a 0d 09 f6 14 dd  |%.........:.....|
00001480  20 f2 6f 70 65 6e 28 68  61 6e 64 6c 65 25 29 0d  | .open(handle%).|
00001490  0a 00 13 21 62 6c 6f 63  6b 25 3d 68 61 6e 64 6c  |...!block%=handl|
000014a0  65 25 0d 0a 0a 24 c8 99  20 22 57 69 6d 70 5f 47  |e%...$.. "Wimp_G|
000014b0  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
000014c0  62 6c 6f 63 6b 25 0d 0a  14 10 62 6c 6f 63 6b 25  |block%....block%|
000014d0  21 32 38 3d 2d 31 0d 0a  1e 20 c8 99 20 22 57 69  |!28=-1... .. "Wi|
000014e0  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
000014f0  62 6c 6f 63 6b 25 0d 0a  28 05 e1 0d 0a 32 05 3a  |block%..(....2.:|
00001500  0d 0a 3c 0e dd 20 f2 6e  65 77 67 61 6d 65 0d 0a  |..<.. .newgame..|
00001510  46 11 e3 20 62 69 67 79  25 3d 30 20 b8 20 32 0d  |F.. bigy%=0 . 2.|
00001520  0a 50 11 e3 20 62 69 67  78 25 3d 30 20 b8 20 32  |.P.. bigx%=0 . 2|
00001530  0d 0a 5a 13 e3 20 73 6d  61 6c 6c 79 25 3d 30 20  |..Z.. smally%=0 |
00001540  b8 20 32 0d 0a 64 13 e3  20 73 6d 61 6c 6c 78 25  |. 2..d.. smallx%|
00001550  3d 30 20 b8 20 32 0d 0a  6e 34 f2 75 70 64 61 74  |=0 . 2..n4.updat|
00001560  65 70 6c 61 63 65 28 62  69 67 78 25 2c 62 69 67  |eplace(bigx%,big|
00001570  79 25 2c 73 6d 61 6c 6c  78 25 2c 73 6d 61 6c 6c  |y%,smallx%,small|
00001580  79 25 2c 65 6d 70 74 79  25 29 0d 0a 78 05 ed 0d  |y%,empty%)..x...|
00001590  0a 82 05 ed 0d 0a 8c 05  ed 0d 0a 96 05 ed 0d 0a  |................|
000015a0  a0 0d 67 61 6d 65 6f 6e  25 3d b9 0d 0a aa 17 77  |..gameon%=.....w|
000015b0  68 6f 73 65 67 6f 25 3d  66 69 72 73 74 25 20 82  |hosego%=first% .|
000015c0  20 33 0d 0a b4 0a f2 6e  65 77 67 6f 0d 0a be 05  | 3.....newgo....|
000015d0  e1 0d 0a c8 05 3a 0d 0a  d2 0c dd 20 f2 6e 65 77  |.....:..... .new|
000015e0  67 6f 0d 0a dc 0f e7 20  67 61 6d 65 6f 6e 25 20  |go..... gameon% |
000015f0  8c 0d 0a e6 19 77 68 6f  73 65 67 6f 25 3d 77 68  |.....whosego%=wh|
00001600  6f 73 65 67 6f 25 20 82  20 33 0d 0a f0 15 e7 20  |osego% . 3..... |
00001610  77 68 6f 73 65 67 6f 25  3d 72 65 64 25 20 8c 0d  |whosego%=red% ..|
00001620  0a fa 16 24 72 65 64 67  6f 73 74 72 25 3d 22 61  |...$redgostr%="a|
00001630  72 72 6f 77 22 0d 0b 04  17 24 79 65 6c 6c 6f 77  |rrow"....$yellow|
00001640  67 6f 73 74 72 25 3d 22  6f 66 66 22 0d 0b 0e 05  |gostr%="off"....|
00001650  cc 0d 0b 18 19 24 79 65  6c 6c 6f 77 67 6f 73 74  |.....$yellowgost|
00001660  72 25 3d 22 61 72 72 6f  77 22 0d 0b 22 14 24 72  |r%="arrow"..".$r|
00001670  65 64 67 6f 73 74 72 25  3d 22 6f 66 66 22 0d 0b  |edgostr%="off"..|
00001680  2c 05 cd 0d 0b 36 1e f2  75 70 64 61 74 65 69 63  |,....6..updateic|
00001690  6f 6e 28 6d 61 69 6e 68  61 6e 64 6c 65 25 2c 33  |on(mainhandle%,3|
000016a0  29 0d 0b 40 1e f2 75 70  64 61 74 65 69 63 6f 6e  |)..@..updateicon|
000016b0  28 6d 61 69 6e 68 61 6e  64 6c 65 25 2c 34 29 0d  |(mainhandle%,4).|
000016c0  0b 4a 0c 63 61 6e 67 6f  25 3d a3 0d 0b 54 0c 72  |.J.cango%=...T.r|
000016d0  6f 6c 6c 73 25 3d 30 0d  0b 5e 1c c8 95 20 28 ac  |olls%=0..^... (.|
000016e0  20 63 61 6e 67 6f 25 29  20 80 20 72 6f 6c 6c 73  | cango%) . rolls|
000016f0  25 3c 33 0d 0b 68 09 f2  72 6f 6c 6c 0d 0b 72 0d  |%<3..h..roll..r.|
00001700  72 6f 6c 6c 73 25 2b 3d  31 0d 0b 7c 11 e3 20 62  |rolls%+=1..|.. b|
00001710  69 67 79 25 3d 30 20 b8  20 32 0d 0b 86 11 e3 20  |igy%=0 . 2..... |
00001720  62 69 67 78 25 3d 30 20  b8 20 32 0d 0b 90 13 e3  |bigx%=0 . 2.....|
00001730  20 73 6d 61 6c 6c 79 25  3d 30 20 b8 20 32 0d 0b  | smally%=0 . 2..|
00001740  9a 13 e3 20 73 6d 61 6c  6c 78 25 3d 30 20 b8 20  |... smallx%=0 . |
00001750  32 0d 0b a4 33 f2 76 61  6c 69 64 61 74 65 28 62  |2...3.validate(b|
00001760  69 67 78 25 2c 62 69 67  79 25 2c 73 6d 61 6c 6c  |igx%,bigy%,small|
00001770  78 25 2c 73 6d 61 6c 6c  79 25 2c 77 68 6f 73 65  |x%,smally%,whose|
00001780  67 6f 25 29 0d 0b ae 17  e7 20 76 61 6c 69 64 25  |go%)..... valid%|
00001790  3d b9 20 63 61 6e 67 6f  25 3d b9 0d 0b b8 05 ed  |=. cango%=......|
000017a0  0d 0b c2 05 ed 0d 0b cc  05 ed 0d 0b d6 05 ed 0d  |................|
000017b0  0b e0 05 ce 0d 0b ea 10  e7 20 ac 20 63 61 6e 67  |......... . cang|
000017c0  6f 25 20 8c 0d 0b f4 55  f2 72 65 70 6f 72 74 28  |o% ....U.report(|
000017d0  31 37 2c 22 53 6f 72 72  79 2c 20 6e 6f 20 6d 6f  |17,"Sorry, no mo|
000017e0  76 65 73 20 70 6f 73 73  69 62 6c 65 20 61 66 74  |ves possible aft|
000017f0  65 72 20 74 68 72 65 65  20 64 69 63 65 20 72 6f  |er three dice ro|
00001800  6c 6c 73 3b 20 79 6f 75  20 6d 69 73 73 20 61 20  |lls; you miss a |
00001810  67 6f 21 22 2c 32 35 35  29 0d 0b fe 0a f2 6e 65  |go!",255).....ne|
00001820  77 67 6f 0d 0c 08 05 cd  0d 0c 12 05 cd 0d 0c 1c  |wgo.............|
00001830  05 e1 0d 0c 26 05 3a 0d  0c 30 0b dd 20 f2 72 6f  |....&.:..0.. .ro|
00001840  6c 6c 0d 0c 3a 0e 64 69  65 31 25 3d b3 28 36 29  |ll..:.die1%=.(6)|
00001850  0d 0c 44 0e 64 69 65 32  25 3d b3 28 36 29 0d 0c  |..D.die2%=.(6)..|
00001860  4e 15 64 69 63 65 25 3d  64 69 65 31 25 2b 64 69  |N.dice%=die1%+di|
00001870  65 32 25 0d 0c 58 1c 24  64 69 65 73 70 72 6e 6d  |e2%..X.$diesprnm|
00001880  31 25 3d 22 64 69 65 22  2b c3 64 69 65 31 25 0d  |1%="die"+.die1%.|
00001890  0c 62 1c 24 64 69 65 73  70 72 6e 6d 32 25 3d 22  |.b.$diesprnm2%="|
000018a0  64 69 65 22 2b c3 64 69  65 32 25 0d 0c 6c 1e f2  |die"+.die2%..l..|
000018b0  75 70 64 61 74 65 69 63  6f 6e 28 6d 61 69 6e 68  |updateicon(mainh|
000018c0  61 6e 64 6c 65 25 2c 31  29 0d 0c 76 1e f2 75 70  |andle%,1)..v..up|
000018d0  64 61 74 65 69 63 6f 6e  28 6d 61 69 6e 68 61 6e  |dateicon(mainhan|
000018e0  64 6c 65 25 2c 32 29 0d  0c 80 05 e1 0d 0c 8a 05  |dle%,2).........|
000018f0  3a 0d 0c 94 29 dd 20 f2  75 70 64 61 74 65 70 6c  |:...). .updatepl|
00001900  61 63 65 28 62 78 25 2c  62 79 25 2c 73 78 25 2c  |ace(bx%,by%,sx%,|
00001910  73 79 25 2c 74 79 70 65  25 29 0d 0c 9e 22 73 74  |sy%,type%)..."st|
00001920  61 74 75 73 25 28 62 78  25 2c 62 79 25 2c 73 78  |atus%(bx%,by%,sx|
00001930  25 2c 73 79 25 29 3d 74  79 70 65 25 0d 0c a8 15  |%,sy%)=type%....|
00001940  74 79 70 65 25 3d 74 79  70 65 25 20 80 20 26 37  |type%=type% . &7|
00001950  46 0d 0c b2 0e c8 8e 20  74 79 70 65 25 20 ca 0d  |F...... type% ..|
00001960  0c bc 0c c9 20 65 6d 70  74 79 25 0d 0c c6 0d 61  |.... empty%....a|
00001970  24 3d 22 68 6f 6c 65 22  0d 0c d0 0a c9 20 72 65  |$="hole"..... re|
00001980  64 25 0d 0c da 0c 61 24  3d 22 72 65 64 22 0d 0c  |d%....a$="red"..|
00001990  e4 0d c9 20 79 65 6c 6c  6f 77 25 0d 0c ee 0f 61  |... yellow%....a|
000019a0  24 3d 22 79 65 6c 6c 6f  77 22 0d 0c f8 05 cb 0d  |$="yellow"......|
000019b0  0d 02 1f 24 6e 61 6d 65  73 25 28 62 78 25 2c 62  |...$names%(bx%,b|
000019c0  79 25 2c 73 78 25 2c 73  79 25 29 3d 61 24 0d 0d  |y%,sx%,sy%)=a$..|
000019d0  0c 36 f2 75 70 64 61 74  65 69 63 6f 6e 28 6d 61  |.6.updateicon(ma|
000019e0  69 6e 68 61 6e 64 6c 65  25 2c 68 61 6e 64 6c 65  |inhandle%,handle|
000019f0  73 25 28 62 78 25 2c 62  79 25 2c 73 78 25 2c 73  |s%(bx%,by%,sx%,s|
00001a00  79 25 29 29 0d 0d 16 05  e1 0d 0d 20 05 3a 0d 0d  |y%))....... .:..|
00001a10  2a 20 dd 20 f2 75 70 64  61 74 65 69 63 6f 6e 28  |* . .updateicon(|
00001a20  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 29 0d 0d  |window%,icon%)..|
00001a30  34 13 21 62 6c 6f 63 6b  25 3d 77 69 6e 64 6f 77  |4.!block%=window|
00001a40  25 0d 0d 3e 12 62 6c 6f  63 6b 25 21 34 3d 69 63  |%..>.block%!4=ic|
00001a50  6f 6e 25 0d 0d 48 22 c8  99 20 22 57 69 6d 70 5f  |on%..H".. "Wimp_|
00001a60  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |GetIconState",,b|
00001a70  6c 6f 63 6b 25 0d 0d 52  0e 62 6c 6f 63 6b 25 21  |lock%..R.block%!|
00001a80  38 3d 30 0d 0d 5c 0f 62  6c 6f 63 6b 25 21 31 32  |8=0..\.block%!12|
00001a90  3d 30 0d 0d 66 22 c8 99  20 22 57 69 6d 70 5f 53  |=0..f".. "Wimp_S|
00001aa0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
00001ab0  6f 63 6b 25 0d 0d 70 05  e1 0d 0d 7a 05 3a 0d 0d  |ock%..p....z.:..|
00001ac0  84 0f dd 20 f2 69 6e 69  74 67 61 6d 65 0d 0d 8e  |... .initgame...|
00001ad0  0c 65 6d 70 74 79 25 3d  30 0d 0d 98 0a 72 65 64  |.empty%=0....red|
00001ae0  25 3d 31 0d 0d a2 0d 79  65 6c 6c 6f 77 25 3d 32  |%=1....yellow%=2|
00001af0  0d 0d ac 0f 72 65 64 74  6f 74 61 6c 25 3d 30 0d  |....redtotal%=0.|
00001b00  0d b6 12 79 65 6c 6c 6f  77 74 6f 74 61 6c 25 3d  |...yellowtotal%=|
00001b10  30 0d 0d c0 0d 67 61 6d  65 6f 6e 25 3d a3 0d 0d  |0....gameon%=...|
00001b20  ca 12 24 72 65 64 74 6f  74 73 74 72 25 3d c3 30  |..$redtotstr%=.0|
00001b30  0d 0d d4 15 24 79 65 6c  6c 6f 77 74 6f 74 73 74  |....$yellowtotst|
00001b40  72 25 3d c3 30 0d 0d de  1e f2 75 70 64 61 74 65  |r%=.0.....update|
00001b50  69 63 6f 6e 28 6d 61 69  6e 68 61 6e 64 6c 65 25  |icon(mainhandle%|
00001b60  2c 35 29 0d 0d e8 1e f2  75 70 64 61 74 65 69 63  |,5).....updateic|
00001b70  6f 6e 28 6d 61 69 6e 68  61 6e 64 6c 65 25 2c 36  |on(mainhandle%,6|
00001b80  29 0d 0d f2 0f 66 69 72  73 74 25 3d 72 65 64 25  |)....first%=red%|
00001b90  0d 0d fc 10 f2 75 70 64  61 74 65 66 69 72 73 74  |.....updatefirst|
00001ba0  0d 0e 06 05 e1 0d 0e 10  05 3a 0d 0e 1a 1a dd 20  |.........:..... |
00001bb0  f2 76 61 6c 69 64 61 74  65 6d 6f 76 65 28 69 63  |.validatemove(ic|
00001bc0  6f 6e 25 29 0d 0e 24 11  e3 20 62 69 67 79 25 3d  |on%)..$.. bigy%=|
00001bd0  30 20 b8 20 32 0d 0e 2e  11 e3 20 62 69 67 78 25  |0 . 2..... bigx%|
00001be0  3d 30 20 b8 20 32 0d 0e  38 13 e3 20 73 6d 61 6c  |=0 . 2..8.. smal|
00001bf0  6c 79 25 3d 30 20 b8 20  32 0d 0e 42 13 e3 20 73  |ly%=0 . 2..B.. s|
00001c00  6d 61 6c 6c 78 25 3d 30  20 b8 20 32 0d 0e 4c 33  |mallx%=0 . 2..L3|
00001c10  e7 20 68 61 6e 64 6c 65  73 25 28 62 69 67 78 25  |. handles%(bigx%|
00001c20  2c 62 69 67 79 25 2c 73  6d 61 6c 6c 78 25 2c 73  |,bigy%,smallx%,s|
00001c30  6d 61 6c 6c 79 25 29 3d  69 63 6f 6e 25 20 8c 0d  |mally%)=icon% ..|
00001c40  0e 56 0d 62 78 25 3d 62  69 67 78 25 0d 0e 60 0d  |.V.bx%=bigx%..`.|
00001c50  62 79 25 3d 62 69 67 79  25 0d 0e 6a 0f 73 78 25  |by%=bigy%..j.sx%|
00001c60  3d 73 6d 61 6c 6c 78 25  0d 0e 74 0f 73 79 25 3d  |=smallx%..t.sy%=|
00001c70  73 6d 61 6c 6c 79 25 0d  0e 7e 05 cd 0d 0e 88 05  |smally%..~......|
00001c80  ed 0d 0e 92 05 ed 0d 0e  9c 05 ed 0d 0e a6 05 ed  |................|
00001c90  0d 0e b0 27 f2 76 61 6c  69 64 61 74 65 28 62 78  |...'.validate(bx|
00001ca0  25 2c 62 79 25 2c 73 78  25 2c 73 79 25 2c 77 68  |%,by%,sx%,sy%,wh|
00001cb0  6f 73 65 67 6f 25 29 0d  0e ba 0f c8 8e 20 76 61  |osego%)...... va|
00001cc0  6c 69 64 25 20 ca 0d 0e  c4 07 c9 20 b9 0d 0e ce  |lid% ...... ....|
00001cd0  2a f2 75 70 64 61 74 65  70 6c 61 63 65 28 62 78  |*.updateplace(bx|
00001ce0  25 2c 62 79 25 2c 73 78  25 2c 73 79 25 2c 6e 65  |%,by%,sx%,sy%,ne|
00001cf0  77 73 74 61 74 25 29 0d  0e d8 0e c8 8e 20 66 75  |wstat%)...... fu|
00001d00  6c 6c 25 20 ca 0d 0e e2  07 c9 20 b9 0d 0e ec 19  |ll% ...... .....|
00001d10  77 68 6f 73 65 67 6f 25  3d 77 68 6f 73 65 67 6f  |whosego%=whosego|
00001d20  25 20 82 20 33 0d 0e f6  07 c9 20 a3 0d 0f 00 24  |% . 3..... ....$|
00001d30  f2 63 68 65 63 6b 28 62  78 25 2c 62 79 25 2c 73  |.check(bx%,by%,s|
00001d40  78 25 2c 73 79 25 2c 77  68 6f 73 65 67 6f 25 29  |x%,sy%,whosego%)|
00001d50  0d 0f 0a 05 cb 0d 0f 14  0a f2 6e 65 77 67 6f 0d  |..........newgo.|
00001d60  0f 1e 07 c9 20 a3 0d 0f  28 22 f2 72 65 70 6f 72  |.... ...(".repor|
00001d70  74 28 31 37 2c 22 49 6e  76 61 6c 69 64 20 6d 6f  |t(17,"Invalid mo|
00001d80  76 65 22 2c 32 35 35 29  0d 0f 32 05 cb 0d 0f 3c  |ve",255)..2....<|
00001d90  05 e1 0d 0f 46 05 3a 0d  0f 50 28 dd 20 f2 76 61  |....F.:..P(. .va|
00001da0  6c 69 64 61 74 65 28 62  78 25 2c 62 79 25 2c 73  |lidate(bx%,by%,s|
00001db0  78 25 2c 73 79 25 2c 70  6c 61 79 65 72 25 29 0d  |x%,sy%,player%).|
00001dc0  0f 5a 0e c8 8e 20 64 69  63 65 25 20 ca 0d 0f 64  |.Z... dice% ...d|
00001dd0  07 c9 20 32 0d 0f 6e 0a  61 6e 79 25 3d b9 0d 0f  |.. 2..n.any%=...|
00001de0  78 0b 66 75 6c 6c 25 3d  b9 0d 0f 82 0d 6d 69 64  |x.full%=.....mid|
00001df0  64 6c 65 25 3d b9 0d 0f  8c 08 c9 20 31 32 0d 0f  |dle%=...... 12..|
00001e00  96 0a 61 6e 79 25 3d b9  0d 0f a0 0b 66 75 6c 6c  |..any%=.....full|
00001e10  25 3d a3 0d 0f aa 0d 6d  69 64 64 6c 65 25 3d b9  |%=.....middle%=.|
00001e20  0d 0f b4 07 c9 20 37 0d  0f be 0a 61 6e 79 25 3d  |..... 7....any%=|
00001e30  a3 0d 0f c8 0b 66 75 6c  6c 25 3d a3 0d 0f d2 0d  |.....full%=.....|
00001e40  6d 69 64 64 6c 65 25 3d  b9 0d 0f dc 05 7f 0d 0f  |middle%=........|
00001e50  e6 0a 61 6e 79 25 3d a3  0d 0f f0 0b 66 75 6c 6c  |..any%=.....full|
00001e60  25 3d a3 0d 0f fa 0d 6d  69 64 64 6c 65 25 3d a3  |%=.....middle%=.|
00001e70  0d 10 04 05 cb 0d 10 0e  0c 76 61 6c 69 64 25 3d  |.........valid%=|
00001e80  b9 0d 10 18 0e c8 8e 20  66 75 6c 6c 25 20 ca 0d  |....... full% ..|
00001e90  10 22 07 c9 20 b9 0d 10  2c 53 e7 20 73 74 61 74  |.".. ...,S. stat|
00001ea0  75 73 25 28 62 78 25 2c  62 79 25 2c 73 78 25 2c  |us%(bx%,by%,sx%,|
00001eb0  73 79 25 29 3d 30 20 84  20 73 74 61 74 75 73 25  |sy%)=0 . status%|
00001ec0  28 62 78 25 2c 62 79 25  2c 73 78 25 2c 73 79 25  |(bx%,by%,sx%,sy%|
00001ed0  29 3c 3e 28 70 6c 61 79  65 72 25 20 82 20 33 29  |)<>(player% . 3)|
00001ee0  20 76 61 6c 69 64 25 3d  a3 0d 10 36 13 6e 65 77  | valid%=...6.new|
00001ef0  73 74 61 74 25 3d 65 6d  70 74 79 25 0d 10 40 07  |stat%=empty%..@.|
00001f00  c9 20 a3 0d 10 4a 2a e7  20 73 74 61 74 75 73 25  |. ...J*. status%|
00001f10  28 62 78 25 2c 62 79 25  2c 73 78 25 2c 73 79 25  |(bx%,by%,sx%,sy%|
00001f20  29 3c 3e 30 20 76 61 6c  69 64 25 3d a3 0d 10 54  |)<>0 valid%=...T|
00001f30  14 6e 65 77 73 74 61 74  25 3d 70 6c 61 79 65 72  |.newstat%=player|
00001f40  25 0d 10 5e 05 cb 0d 10  68 0e e7 20 ac 20 61 6e  |%..^....h.. . an|
00001f50  79 25 20 8c 0d 10 72 17  62 69 67 6e 75 6d 25 3d  |y% ...r.bignum%=|
00001f60  62 78 25 2b 33 2a 62 79  25 2b 33 0d 10 7c 19 73  |bx%+3*by%+3..|.s|
00001f70  6d 61 6c 6c 6e 75 6d 25  3d 73 78 25 2b 33 2a 73  |mallnum%=sx%+3*s|
00001f80  79 25 2b 33 0d 10 86 50  e7 20 73 6d 61 6c 6c 6e  |y%+3...P. smalln|
00001f90  75 6d 25 3c 3e 64 69 63  65 25 20 80 20 28 28 62  |um%<>dice% . ((b|
00001fa0  69 67 6e 75 6d 25 3c 3e  64 69 63 65 25 29 20 84  |ignum%<>dice%) .|
00001fb0  20 28 73 6d 61 6c 6c 6e  75 6d 25 3d 37 20 80 20  | (smallnum%=7 . |
00001fc0  ac 20 6d 69 64 64 6c 65  25 29 29 20 76 61 6c 69  |. middle%)) vali|
00001fd0  64 25 3d a3 0d 10 90 05  cd 0d 10 9a 05 e1 0d 10  |d%=.............|
00001fe0  a4 05 3a 0d 10 ae 25 dd  20 f2 63 68 65 63 6b 28  |..:...%. .check(|
00001ff0  62 78 25 2c 62 79 25 2c  73 78 25 2c 73 79 25 2c  |bx%,by%,sx%,sy%,|
00002000  70 6c 61 79 65 72 25 29  0d 10 b8 0a 77 69 6e 25  |player%)....win%|
00002010  3d a3 0d 10 c2 14 f2 6c  69 6e 65 28 73 78 25 2c  |=......line(sx%,|
00002020  30 2c 30 2c 31 29 0d 10  cc 14 f2 6c 69 6e 65 28  |0,0,1).....line(|
00002030  30 2c 73 79 25 2c 31 2c  30 29 0d 10 d6 0a c8 8e  |0,sy%,1,0)......|
00002040  20 b9 20 ca 0d 10 e0 16  c9 20 73 78 25 3d 73 79  | . ...... sx%=sy|
00002050  25 20 80 20 73 78 25 3c  3e 31 0d 10 ea 12 f2 6c  |% . sx%<>1.....l|
00002060  69 6e 65 28 30 2c 30 2c  31 2c 31 29 0d 10 f4 15  |ine(0,0,1,1)....|
00002070  c9 20 73 78 25 3c 3e 31  20 80 20 73 79 25 3c 3e  |. sx%<>1 . sy%<>|
00002080  31 0d 10 fe 13 f2 6c 69  6e 65 28 30 2c 32 2c 31  |1.....line(0,2,1|
00002090  2c 2d 31 29 0d 11 08 15  c9 20 73 78 25 3d 73 79  |,-1)..... sx%=sy|
000020a0  25 20 80 20 73 78 25 3d  31 0d 11 12 12 f2 6c 69  |% . sx%=1.....li|
000020b0  6e 65 28 30 2c 30 2c 31  2c 31 29 0d 11 1c 13 f2  |ne(0,0,1,1).....|
000020c0  6c 69 6e 65 28 30 2c 32  2c 31 2c 2d 31 29 0d 11  |line(0,2,1,-1)..|
000020d0  26 05 cb 0d 11 30 0e e7  20 ac 20 77 69 6e 25 20  |&....0.. . win% |
000020e0  8c 0d 11 3a 0f 63 6f 75  6e 74 65 72 73 25 3d 30  |...:.counters%=0|
000020f0  0d 11 44 0f e3 20 73 79  25 3d 30 20 b8 20 32 0d  |..D.. sy%=0 . 2.|
00002100  11 4e 0f e3 20 73 78 25  3d 30 20 b8 20 32 0d 11  |.N.. sx%=0 . 2..|
00002110  58 31 63 6f 75 6e 74 65  72 73 25 2d 3d 28 73 74  |X1counters%-=(st|
00002120  61 74 75 73 25 28 62 78  25 2c 62 79 25 2c 73 78  |atus%(bx%,by%,sx|
00002130  25 2c 73 79 25 29 3d 70  6c 61 79 65 72 25 29 0d  |%,sy%)=player%).|
00002140  11 62 05 ed 0d 11 6c 05  ed 0d 11 76 18 e7 20 63  |.b....l....v.. c|
00002150  6f 75 6e 74 65 72 73 25  3e 34 20 77 69 6e 25 3d  |ounters%>4 win%=|
00002160  b9 0d 11 80 05 cd 0d 11  8a 0c e7 20 77 69 6e 25  |........... win%|
00002170  20 8c 0d 11 94 0f e3 20  73 79 25 3d 30 20 b8 20  | ...... sy%=0 . |
00002180  32 0d 11 9e 0f e3 20 73  78 25 3d 30 20 b8 20 32  |2..... sx%=0 . 2|
00002190  0d 11 a8 2f f2 75 70 64  61 74 65 70 6c 61 63 65  |.../.updateplace|
000021a0  28 62 78 25 2c 62 79 25  2c 73 78 25 2c 73 79 25  |(bx%,by%,sx%,sy%|
000021b0  2c 70 6c 61 79 65 72 25  20 84 20 26 38 30 29 0d  |,player% . &80).|
000021c0  11 b2 05 ed 0d 11 bc 05  ed 0d 11 c6 26 f2 63 68  |............&.ch|
000021d0  65 63 6b 77 68 6f 6c 65  28 62 78 25 2c 62 79 25  |eckwhole(bx%,by%|
000021e0  2c 70 6c 61 79 65 72 25  20 84 20 26 38 30 29 0d  |,player% . &80).|
000021f0  11 d0 05 cd 0d 11 da 05  e1 0d 11 e4 05 3a 0d 11  |.............:..|
00002200  ee 1c dd 20 f2 6c 69 6e  65 28 78 30 25 2c 79 30  |... .line(x0%,y0|
00002210  25 2c 64 78 25 2c 64 79  25 29 0d 11 f8 0b 6c 69  |%,dx%,dy%)....li|
00002220  6e 65 25 3d b9 0d 12 02  0e e3 20 4e 25 3d 30 20  |ne%=...... N%=0 |
00002230  b8 20 32 0d 12 0c 31 e7  20 73 74 61 74 75 73 25  |. 2...1. status%|
00002240  28 62 78 25 2c 62 79 25  2c 78 30 25 2c 79 30 25  |(bx%,by%,x0%,y0%|
00002250  29 3c 3e 70 6c 61 79 65  72 25 20 8c 20 6c 69 6e  |)<>player% . lin|
00002260  65 25 3d a3 0d 12 16 0c  78 30 25 2b 3d 64 78 25  |e%=.....x0%+=dx%|
00002270  0d 12 20 0c 79 30 25 2b  3d 64 79 25 0d 12 2a 05  |.. .y0%+=dy%..*.|
00002280  ed 0d 12 34 12 e7 20 6c  69 6e 65 25 20 77 69 6e  |...4.. line% win|
00002290  25 3d b9 0d 12 3e 05 e1  0d 12 48 05 3a 0d 12 52  |%=...>....H.:..R|
000022a0  13 dd 20 f2 77 6f 6e 28  70 6c 61 79 65 72 25 29  |.. .won(player%)|
000022b0  0d 12 5c 48 e7 20 70 6c  61 79 65 72 25 3d 72 65  |..\H. player%=re|
000022c0  64 25 20 8c 20 61 24 3d  22 52 65 64 22 3a 72 65  |d% . a$="Red":re|
000022d0  64 74 6f 74 61 6c 25 2b  3d 31 20 8b 20 61 24 3d  |dtotal%+=1 . a$=|
000022e0  22 59 65 6c 6c 6f 77 22  3a 79 65 6c 6c 6f 77 74  |"Yellow":yellowt|
000022f0  6f 74 61 6c 25 2b 3d 31  0d 12 66 29 f2 72 65 70  |otal%+=1..f).rep|
00002300  6f 72 74 28 31 37 2c 61  24 2b 22 20 70 6c 61 79  |ort(17,a$+" play|
00002310  65 72 20 68 61 73 20 77  6f 6e 21 22 2c 32 35 35  |er has won!",255|
00002320  29 0d 12 70 1a 24 72 65  64 74 6f 74 73 74 72 25  |)..p.$redtotstr%|
00002330  3d c3 72 65 64 74 6f 74  61 6c 25 0d 12 7a 20 24  |=.redtotal%..z $|
00002340  79 65 6c 6c 6f 77 74 6f  74 73 74 72 25 3d c3 79  |yellowtotstr%=.y|
00002350  65 6c 6c 6f 77 74 6f 74  61 6c 25 0d 12 84 1e f2  |ellowtotal%.....|
00002360  75 70 64 61 74 65 69 63  6f 6e 28 6d 61 69 6e 68  |updateicon(mainh|
00002370  61 6e 64 6c 65 25 2c 35  29 0d 12 8e 1e f2 75 70  |andle%,5).....up|
00002380  64 61 74 65 69 63 6f 6e  28 6d 61 69 6e 68 61 6e  |dateicon(mainhan|
00002390  64 6c 65 25 2c 36 29 0d  12 98 0d 67 61 6d 65 6f  |dle%,6)....gameo|
000023a0  6e 25 3d a3 0d 12 a2 14  24 72 65 64 67 6f 73 74  |n%=.....$redgost|
000023b0  72 25 3d 22 6f 66 66 22  0d 12 ac 17 24 79 65 6c  |r%="off"....$yel|
000023c0  6c 6f 77 67 6f 73 74 72  25 3d 22 6f 66 66 22 0d  |lowgostr%="off".|
000023d0  12 b6 1e f2 75 70 64 61  74 65 69 63 6f 6e 28 6d  |....updateicon(m|
000023e0  61 69 6e 68 61 6e 64 6c  65 25 2c 33 29 0d 12 c0  |ainhandle%,3)...|
000023f0  1e f2 75 70 64 61 74 65  69 63 6f 6e 28 6d 61 69  |..updateicon(mai|
00002400  6e 68 61 6e 64 6c 65 25  2c 34 29 0d 12 ca 15 66  |nhandle%,4)....f|
00002410  69 72 73 74 25 3d 66 69  72 73 74 25 20 82 20 33  |irst%=first% . 3|
00002420  0d 12 d4 10 f2 75 70 64  61 74 65 66 69 72 73 74  |.....updatefirst|
00002430  0d 12 de 05 e1 0d 12 e8  05 3a 0d 12 f2 12 dd 20  |.........:..... |
00002440  f2 75 70 64 61 74 65 66  69 72 73 74 0d 12 fc 35  |.updatefirst...5|
00002450  73 75 62 6d 65 6e 75 25  21 28 34 2b 66 69 72 73  |submenu%!(4+firs|
00002460  74 25 2a 32 34 29 3d 73  75 62 6d 65 6e 75 25 21  |t%*24)=submenu%!|
00002470  28 34 2b 66 69 72 73 74  25 2a 32 34 29 20 84 20  |(4+first%*24) . |
00002480  31 0d 13 06 43 73 75 62  6d 65 6e 75 25 21 28 34  |1...Csubmenu%!(4|
00002490  2b 28 66 69 72 73 74 25  20 82 20 33 29 2a 32 34  |+(first% . 3)*24|
000024a0  29 3d 73 75 62 6d 65 6e  75 25 21 28 34 2b 28 66  |)=submenu%!(4+(f|
000024b0  69 72 73 74 25 20 82 20  33 29 2a 32 34 29 20 80  |irst% . 3)*24) .|
000024c0  20 26 46 45 0d 13 10 05  e1 0d 13 1a 05 3a 0d 13  | &FE.........:..|
000024d0  24 22 dd 20 f2 63 68 65  63 6b 77 68 6f 6c 65 28  |$". .checkwhole(|
000024e0  62 78 25 2c 62 79 25 2c  77 69 6e 6e 65 72 25 29  |bx%,by%,winner%)|
000024f0  0d 13 2e 0a 77 6f 6e 25  3d a3 0d 13 38 15 f2 62  |....won%=...8..b|
00002500  6f 78 6c 6e 28 62 78 25  2c 30 2c 30 2c 31 29 0d  |oxln(bx%,0,0,1).|
00002510  13 42 15 f2 62 6f 78 6c  6e 28 30 2c 62 79 25 2c  |.B..boxln(0,by%,|
00002520  31 2c 30 29 0d 13 4c 0a  c8 8e 20 b9 20 ca 0d 13  |1,0)..L... . ...|
00002530  56 16 c9 20 62 78 25 3d  62 79 25 20 80 20 62 78  |V.. bx%=by% . bx|
00002540  25 3c 3e 31 0d 13 60 13  f2 62 6f 78 6c 6e 28 30  |%<>1..`..boxln(0|
00002550  2c 30 2c 31 2c 31 29 0d  13 6a 15 c9 20 62 78 25  |,0,1,1)..j.. bx%|
00002560  3c 3e 31 20 80 20 62 79  25 3c 3e 31 0d 13 74 14  |<>1 . by%<>1..t.|
00002570  f2 62 6f 78 6c 6e 28 30  2c 32 2c 31 2c 2d 31 29  |.boxln(0,2,1,-1)|
00002580  0d 13 7e 15 c9 20 62 78  25 3d 62 79 25 20 80 20  |..~.. bx%=by% . |
00002590  62 78 25 3d 31 0d 13 88  13 f2 62 6f 78 6c 6e 28  |bx%=1.....boxln(|
000025a0  30 2c 30 2c 31 2c 31 29  0d 13 92 14 f2 62 6f 78  |0,0,1,1).....box|
000025b0  6c 6e 28 30 2c 32 2c 31  2c 2d 31 29 0d 13 9c 05  |ln(0,2,1,-1)....|
000025c0  cb 0d 13 a6 0e e7 20 ac  20 77 6f 6e 25 20 8c 0d  |...... . won% ..|
000025d0  13 b0 0c 62 6f 78 65 73  25 3d 30 0d 13 ba 0f e3  |...boxes%=0.....|
000025e0  20 62 79 25 3d 30 20 b8  20 32 0d 13 c4 0f e3 20  | by%=0 . 2..... |
000025f0  62 78 25 3d 30 20 b8 20  32 0d 13 ce 2a 62 6f 78  |bx%=0 . 2...*box|
00002600  65 73 25 2d 3d 28 73 74  61 74 75 73 25 28 62 78  |es%-=(status%(bx|
00002610  25 2c 62 79 25 2c 30 2c  30 29 3d 77 69 6e 6e 65  |%,by%,0,0)=winne|
00002620  72 25 29 0d 13 d8 05 ed  0d 13 e2 05 ed 0d 13 ec  |r%).............|
00002630  15 e7 20 62 6f 78 65 73  25 3e 34 20 77 6f 6e 25  |.. boxes%>4 won%|
00002640  3d b9 0d 13 f6 05 cd 0d  14 00 1e e7 20 77 6f 6e  |=........... won|
00002650  25 20 f2 77 6f 6e 28 77  69 6e 6e 65 72 25 20 80  |% .won(winner% .|
00002660  20 26 37 46 29 0d 14 0a  05 e1 0d 14 14 05 3a 0d  | &7F).........:.|
00002670  14 1e 1d dd 20 f2 62 6f  78 6c 6e 28 78 30 25 2c  |.... .boxln(x0%,|
00002680  79 30 25 2c 64 78 25 2c  64 79 25 29 0d 14 28 0b  |y0%,dx%,dy%)..(.|
00002690  62 78 6c 6e 25 3d b9 0d  14 32 0e e3 20 4e 25 3d  |bxln%=...2.. N%=|
000026a0  30 20 b8 20 32 0d 14 3c  2d e7 20 73 74 61 74 75  |0 . 2..<-. statu|
000026b0  73 25 28 78 30 25 2c 79  30 25 2c 30 2c 30 29 3c  |s%(x0%,y0%,0,0)<|
000026c0  3e 77 69 6e 6e 65 72 25  20 8c 20 62 78 6c 6e 25  |>winner% . bxln%|
000026d0  3d a3 0d 14 46 0c 78 30  25 2b 3d 64 78 25 0d 14  |=...F.x0%+=dx%..|
000026e0  50 0c 79 30 25 2b 3d 64  79 25 0d 14 5a 05 ed 0d  |P.y0%+=dy%..Z...|
000026f0  14 64 12 e7 20 62 78 6c  6e 25 20 77 6f 6e 25 3d  |.d.. bxln% won%=|
00002700  b9 0d 14 6e 05 e1 0d ff                           |...n....|
00002708