�> CounterAct v2.00
.�: Written By Nick J Langridge  -  Aug '92
�: (c) Archimedes World
(:
2�13
<,O=�("<Obey$Dir>.Sprs"):flen=(�#O)+20:�#O
F.� sp flen:!sp=flen:sp!4=0:sp!8=16:sp!12=16
P,ș"OS_SpriteOp",266,sp,"<Obey$Dir>.Sprs"
Z	�vars
d� :
n�
x	�opts
��.
�:
�
��vars
�;� map(11,7),cheq(10,6),sqr$(2),tke(2):tke(1)=2:tke(2)=5
�6map(1,1)=1:map(1,6)=2:map(10,1)=2:map(10,6)=1:go=1
�
�J=1�6 �2
�� I=1�9 �2:cheq(I,J)=2:�
�� I=2�10 �2:cheq(I,J)=1:�
�	� ---
�� I=1�9 �2:cheq(I,J+1)=1:�
�� I=2�10 �2:cheq(I,J+1)=2:�
� �:sound=1:con=0:oppo=0:cgo=0
�7sr=0:sg=0:sp$="OS_SpriteOp":sqr$(1)="l":sqr$(2)="d"

�

:


��opts

"�:�8,0:�23;8202;0;0;0;

,'ȗ �:�28,0,31,39,7;:gco=0:maxtake=0

6ș sp$,290,sp,"title",0,790

@ ș sp$,290,sp,"opts",420,630

Jș sp$,290,sp,"oppo",0,410

Tș sp$,290,sp,"snd",935,410

^"ș sp$,290,sp,"plesel",385,340

hș sp$,290,sp,"aw",470,160

rș sp$,290,sp,"creds",85,0

|K� oppo=0 ș sp$,290,sp,"hilite",20,420 � ș sp$,290,sp,"hilite",185,420

�N� sound=1 ș sp$,290,sp,"hilite",955,420 � ș sp$,290,sp,"hilite",1120,420

��

��:ȗ mx,my,mb:� mb<>0

�'� mx>5 � mx<340 � my>420 � my<610 �

�u� oppo<>0 � oppo=0:�I=185�20 �-1:ș sp$,290,sp,"hilite",I,420:� � oppo=1:�I=20�185:ș sp$,290,sp,"hilite",I,420:�

��

�*� mx>940 � mx<1274 � my>420 � my<610 �

̙� sound<>1 � sound=1:�"Speaker On":�I=1120�955 �-1:ș sp$,290,sp,"hilite",I,420:� � sound=0:�"Speaker Off":�I=955�1120:ș sp$,290,sp,"hilite",I,420:�

��

�Q� mx>395 � mx<545 � my>360 � my<500 � oppo=0 � �diff:�play:�gmov:�cl_screen:�

�K� mx>395 � mx<545 � my>360 � my<500 � oppo=1 � �play:�gmov:�cl_screen:�

�1� mx>560 � mx<710 � my>360 � my<500 � �edit:�

�6� mx>725 � mx<875 � my>360 � my<500 � �cl_screen:�
�.
�
:
&��cl_board
0!�I=1�10:�J=1�6:map(I,J)=0:�:�
:1map(1,1)=1:map(1,6)=2:map(10,1)=2:map(10,6)=1
D�
N:
X��cl_screen
b�28,0,31,39,7
l�I=1�25:�23,7,0,3,0|:�
v�
�:
�
��play
�;go=�(2):con=0:mov=0:sr=0:sg=0:� oppo=0 � cgo=go � cgo=0
�� go=1 � go=2 � go=1
��cl_counters
�1map(1,1)=1:map(1,6)=2:map(10,1)=2:map(10,6)=1
��cl_screen
�v�board:ș sp$,290,sp,"con",430,0:� cgo=1 � ș sp$,290,sp,"comp",17,980,8 � � cgo=2 ș sp$,290,sp,"comp",1105,980,8
�
�counters
�
�score
�
ȗ � 1
��
��move:� con=1 � �pause:�
	�flip

�counters

�score
 � sg=0 � sr=0 � �
*� sg+sr=60-voids � �
4� go=1 � go=2 � go=1
>� mov=1 � �pause:�
H	�turn
R�.
\�
f:
p��board
zH� go=1 � ș sp$,290,sp,"turn",38,775 � ș sp$,290,sp,"turn",1125,775
�x=160:y=650:yy=y
�
�J=1�3
�.�I=0�4:ș sp$,290,sp,"sqrl",(240*I)+x,yy:�
�2�I=0�4:ș sp$,290,sp,"sqrd",(240*I)+x-120,yy:�
�yy-=120
�.�I=0�4:ș sp$,290,sp,"sqrd",(240*I)+x,yy:�
�2�I=0�4:ș sp$,290,sp,"sqrl",(240*I)+x-120,yy:�
�yy-=120
�
�:voids=0
��I=1�10:�J=1�6
�J� map(I,J)=3 ș sp$,290,sp,"void",(120*I)+x-240,y-(120*J)+120:voids+=1
��:�
��
:
��c(x%,y%,col%)
=ș sp$,290,sp,"c"+�(col%),(120*x%)+x-240,y-(120*y%)+120,8
$�
.:
8��score
B%f1r$=��(sr),1,1):f2r$=��(sr),2,1)
L!� sr<10 � f1r$="0":f2r$=�(sr)
V%f1g$=��(sg),1,1):f2g$=��(sg),2,1)
`!� sg<10 � f1g$="0":f2g$=�(sg)
jș sp$,290,sp,f1r$,50,890,8
t ș sp$,290,sp,f2r$,100,890,8
~!ș sp$,290,sp,f1g$,1138,890,8
�!ș sp$,290,sp,f2g$,1190,890,8
��
�:
�
��edit
��cl_counters:�cl_screen
�ș sp$,290,sp,"ok",50,875
� ș sp$,290,sp,"clr",1138,878
�
�board
�
ȗ � 1
�
�:del=0:�
�ȗ mx,my,mz
�� mz<>0
(� mx>50 � mx<150 � my>875 � my<975 �

�cl_screen:�
�
:� mx>1138 � mx<1238 � my>875 � my<975 �cl_board:�board
(cx=�clickx:cy=�clicky
2"� cx>1 � cx<10 � cy>1 � cy<6 �
<�� map(cx,cy)=0 � map(cx,cy)=3 � � map(cx,cy)=3 � map(cx,cy)=0:ș sp$,290,sp,"sqr"+sqr$(cheq(cx,cy)),(120*cx)+x-240,y-(120*cy)+120
F�I=1�10:�J=1�6
PA� map(I,J)=3 ș sp$,290,sp,"void",(120*I)+x-240,y-(120*J)+120
Z�:�:�pause
d�
n�.
x�
�:
�ݤclickx
�click=0:�I=-1�9
�>� mx>(120*I)+x � mx<(120*(I+1))+x � click=I+2:I=9:�:=click
��:=click
�:
�ݤclicky
�click=0:�I=0�5
�F� my<y-(120*I)+120 � my>y-(120*(I+1))+120 � click=I+1:I=5:�:=click
��:=click
�:
�ݤdistance
�
dist=0
distx=newx-oldx
disty=newy-oldy
� distx<0 � distx=0-distx
"� disty<0 � disty=0-disty
, � distx<3 � disty<3 � dist=1
6	=dist
@:
J��cl_counters
T�I=1�10:�J=1�6
^� map(I,J)<>3 � map(I,J)=0
h�:�
r�
|:
���counters
�
sr=0:sg=0
��I=1�10:�J=1�6
�"� map(I,J)=1 � �c(I,J,1):sr+=1
�"� map(I,J)=2 � �c(I,J,2):sg+=1
��:�
��
�:
���pause
��=0:���=15
��
�:
���select(x%,y%)
:ș sp$,290,sp,"select",(120*x%)+x-240,y-(120*y%)+120,8
�
:
&
��move
0� SELECT
::
D� cgo<>go � oppo=2 �
Nselct=0:moveok=0
X�:�:�:ȗ mx,my,mb:�mb<>0
bcx=�clickx:cy=�clicky
l� cx>0 � cx<11 � my<755
v&� cx>3 � cx<8 � my<30 � �conceed:�
�� map(cx,cy)=go �
�~� selct<>1 oldx=cx:oldy=cy:selct=1:�select(oldx,oldy):�pause � �c(oldx,oldy,go):oldx=cx:oldy=cy:selct=1:�select(oldx,oldy)
��
�
� �:�comp
��
�:
�
� NEW POS
�:
�� maxtake=-1 � �
�?� map(cx,cy)=0 � selct=1 � newx=cx:newy=cy:moveok=�distance
�� moveok=1
�map(newx,newy)=go
��c(newx,newy,go)
�� distx=2 � disty=2 � map(oldx,oldy)=0:ș sp$,290,sp,"sqr"+sqr$(cheq(oldx,oldy)),(120*oldx)+x-240,y-(120*oldy)+120 � �c(oldx,oldy,go)
�
:
 
��turn
*i� go=2 � �I=38 � 1125 �6:ș sp$,290,sp,"turn",I,775:� � �I=1125 � 38 �-6:ș sp$,290,sp,"turn",I,775:�
4�
>:
H
��flip
R� go=1 � opp=2 � opp=1
\:
f4� map(newx-1,newy-1)=opp � map(newx-1,newy-1)=go
p>� map(newx-1,newy)=opp � map(newx-1,newy)=go:*|       left
z4� map(newx-1,newy+1)=opp � map(newx-1,newy+1)=go
�:
�0� map(newx,newy-1)=opp � map(newx,newy-1)=go
�@� map(newx,newy+1)=opp � map(newx,newy+1)=go:*|       middle
�:
�4� map(newx+1,newy-1)=opp � map(newx+1,newy-1)=go
�?� map(newx+1,newy)=opp � map(newx+1,newy)=go:*|       right
�4� map(newx+1,newy+1)=opp � map(newx+1,newy+1)=go
��
�:
�
��gmov
� ș sp$,290,sp,"gmov",397,500
�O� sr>sg ș sp$,290,sp,"winr",430,350 � � sr<sg ș sp$,290,sp,"wing",380,350
��:ȗ mx,my,mb:��-99 � mb<>0
	�
	:
	
��conceed
	$� go=1 � sr=0 � sg=0
	.	con=1
	8�
	B:
	L
��comp
	Voldx=0:oldy=0:cx=0:cy=0
	`#dex=0:dey=0:maxtake=-1:posmov=0
	j.� the single goto in this prog. goes here!
	t�A=1�10:�B=1�6
	~� map(A,B)=cgo �
	�
step=2
	��R=-2�2:S=-2
	�dex=A+R:dey=B+S:�s2
	��
	�!dex=A-2:dey=B-1:R=-2:S=-1:�s2
	� dex=A+2:dey=B-1:R=2:S=-1:�s2
	�dex=A-2:dey=B:R=-1:S=0:�s2
	�dex=A+2:dey=B:R=2:S=0:�s2
	� dex=A-2:dey=B+1:R=-2:S=1:�s2
	�dex=A+2:dey=B+1:R=2:S=1:�s2
	��R=-2�2:S=2
	�dex=A+R:dey=B+S:�s2
�

:
step=1:�R=-1�1:�S=-1�1
dex=A+R:dey=B+S:�takes
(�:�
2:
<�
F�:�
P"� posmov=1 � maxtake=-1 � �DjI
Z-� maxtake=-1 � sr+sg<>60-voids � �conceed
d%selct=1:�select(oldx,oldy):�pause
n�
x:
���takes
�� map(dex,dey)<>0 �
�(� dex<1 � dex>10 � dey<1 � dey>6 � �
�'� cgo=1 � tk=2:take=2 � tk=1:take=1
�posmov=1
��K=-1�1:�L=-1�1
�#� map(dex+K,dey+L)=take � tk+=1
��:�
�� step=1 �
�� diff<>1 �
�.� tk=maxtake � oldx=A:oldy=B:cx=dex:cy=dey
�9� tk>maxtake � maxtake=tk:oldx=A:oldy=B:cx=dex:cy=dey
��
6� �(10)>5 � maxtake=tk:oldx=A:oldy=B:cx=dex:cy=dey
�
�
"� diff<>2 �
,R� �(10)>5 � tk>tke(diff) � maxtake=-1 � maxtake=tk:oldx=A:oldy=B:cx=dex:cy=dey
6�
@Y� tk>5 � tk>maxtake � maxtake=0 � maxtake=-1 � maxtake=tk:oldx=A:oldy=B:cx=dex:cy=dey
J�
T�
^�
h:
r��s2
|+� dex>0 � dex<11 � dey>0 � dey<7 �takes
��
�:
�
��diff
��cl_screen
� ș sp$,290,sp,"diff",450,400
��:�:ȗ mx,my,mb:�mb<>0
�2� mx>480 � mx<590 � my>430 � my<560 � diff=1:�
�2� mx>630 � mx<740 � my>430 � my<560 � diff=2:�
��.
��
�:
�&� V_2 : Finished 8/8/1992 : N.J.L.
�

00000000  0d 00 0a 17 f4 3e 20 43  6f 75 6e 74 65 72 41 63  |.....> CounterAc|
00000010  74 20 76 32 2e 30 30 0d  00 14 2e f4 3a 20 57 72  |t v2.00.....: Wr|
00000020  69 74 74 65 6e 20 42 79  20 4e 69 63 6b 20 4a 20  |itten By Nick J |
00000030  4c 61 6e 67 72 69 64 67  65 20 20 2d 20 20 41 75  |Langridge  -  Au|
00000040  67 20 27 39 32 0d 00 1e  1b f4 3a 20 28 63 29 20  |g '92.....: (c) |
00000050  41 72 63 68 69 6d 65 64  65 73 20 57 6f 72 6c 64  |Archimedes World|
00000060  0d 00 28 05 3a 0d 00 32  07 eb 31 33 0d 00 3c 2c  |..(.:..2..13..<,|
00000070  4f 3d 8e 28 22 3c 4f 62  65 79 24 44 69 72 3e 2e  |O=.("<Obey$Dir>.|
00000080  53 70 72 73 22 29 3a 66  6c 65 6e 3d 28 a2 23 4f  |Sprs"):flen=(.#O|
00000090  29 2b 32 30 3a d9 23 4f  0d 00 46 2e de 20 73 70  |)+20:.#O..F.. sp|
000000a0  20 66 6c 65 6e 3a 21 73  70 3d 66 6c 65 6e 3a 73  | flen:!sp=flen:s|
000000b0  70 21 34 3d 30 3a 73 70  21 38 3d 31 36 3a 73 70  |p!4=0:sp!8=16:sp|
000000c0  21 31 32 3d 31 36 0d 00  50 2c c8 99 22 4f 53 5f  |!12=16..P,.."OS_|
000000d0  53 70 72 69 74 65 4f 70  22 2c 32 36 36 2c 73 70  |SpriteOp",266,sp|
000000e0  2c 22 3c 4f 62 65 79 24  44 69 72 3e 2e 53 70 72  |,"<Obey$Dir>.Spr|
000000f0  73 22 0d 00 5a 09 f2 76  61 72 73 0d 00 64 08 ee  |s"..Z..vars..d..|
00000100  85 20 3a 0d 00 6e 05 f5  0d 00 78 09 f2 6f 70 74  |. :..n....x..opt|
00000110  73 0d 00 82 06 fd 2e 0d  00 8c 05 3a 0d 00 96 0a  |s..........:....|
00000120  dd f2 76 61 72 73 0d 00  a0 3b de 20 6d 61 70 28  |..vars...;. map(|
00000130  31 31 2c 37 29 2c 63 68  65 71 28 31 30 2c 36 29  |11,7),cheq(10,6)|
00000140  2c 73 71 72 24 28 32 29  2c 74 6b 65 28 32 29 3a  |,sqr$(2),tke(2):|
00000150  74 6b 65 28 31 29 3d 32  3a 74 6b 65 28 32 29 3d  |tke(1)=2:tke(2)=|
00000160  35 0d 00 aa 36 6d 61 70  28 31 2c 31 29 3d 31 3a  |5...6map(1,1)=1:|
00000170  6d 61 70 28 31 2c 36 29  3d 32 3a 6d 61 70 28 31  |map(1,6)=2:map(1|
00000180  30 2c 31 29 3d 32 3a 6d  61 70 28 31 30 2c 36 29  |0,1)=2:map(10,6)|
00000190  3d 31 3a 67 6f 3d 31 0d  00 b4 0d e3 4a 3d 31 b8  |=1:go=1.....J=1.|
000001a0  36 20 88 32 0d 00 be 1c  e3 20 49 3d 31 b8 39 20  |6 .2..... I=1.9 |
000001b0  88 32 3a 63 68 65 71 28  49 2c 4a 29 3d 32 3a ed  |.2:cheq(I,J)=2:.|
000001c0  0d 00 c8 1d e3 20 49 3d  32 b8 31 30 20 88 32 3a  |..... I=2.10 .2:|
000001d0  63 68 65 71 28 49 2c 4a  29 3d 31 3a ed 0d 00 d2  |cheq(I,J)=1:....|
000001e0  09 f4 20 2d 2d 2d 0d 00  dc 1e e3 20 49 3d 31 b8  |.. ---..... I=1.|
000001f0  39 20 88 32 3a 63 68 65  71 28 49 2c 4a 2b 31 29  |9 .2:cheq(I,J+1)|
00000200  3d 31 3a ed 0d 00 e6 1f  e3 20 49 3d 32 b8 31 30  |=1:...... I=2.10|
00000210  20 88 32 3a 63 68 65 71  28 49 2c 4a 2b 31 29 3d  | .2:cheq(I,J+1)=|
00000220  32 3a ed 0d 00 f0 20 ed  3a 73 6f 75 6e 64 3d 31  |2:.... .:sound=1|
00000230  3a 63 6f 6e 3d 30 3a 6f  70 70 6f 3d 30 3a 63 67  |:con=0:oppo=0:cg|
00000240  6f 3d 30 0d 00 fa 37 73  72 3d 30 3a 73 67 3d 30  |o=0...7sr=0:sg=0|
00000250  3a 73 70 24 3d 22 4f 53  5f 53 70 72 69 74 65 4f  |:sp$="OS_SpriteO|
00000260  70 22 3a 73 71 72 24 28  31 29 3d 22 6c 22 3a 73  |p":sqr$(1)="l":s|
00000270  71 72 24 28 32 29 3d 22  64 22 0d 01 04 05 e1 0d  |qr$(2)="d"......|
00000280  01 0e 05 3a 0d 01 18 0a  dd f2 6f 70 74 73 0d 01  |...:......opts..|
00000290  22 1a db 3a e6 38 2c 30  3a ef 32 33 3b 38 32 30  |"..:.8,0:.23;820|
000002a0  32 3b 30 3b 30 3b 30 3b  0d 01 2c 27 c8 97 20 ee  |2;0;0;0;..,'.. .|
000002b0  3a ef 32 38 2c 30 2c 33  31 2c 33 39 2c 37 3b 3a  |:.28,0,31,39,7;:|
000002c0  67 63 6f 3d 30 3a 6d 61  78 74 61 6b 65 3d 30 0d  |gco=0:maxtake=0.|
000002d0  01 36 1f c8 99 20 73 70  24 2c 32 39 30 2c 73 70  |.6... sp$,290,sp|
000002e0  2c 22 74 69 74 6c 65 22  2c 30 2c 37 39 30 0d 01  |,"title",0,790..|
000002f0  40 20 c8 99 20 73 70 24  2c 32 39 30 2c 73 70 2c  |@ .. sp$,290,sp,|
00000300  22 6f 70 74 73 22 2c 34  32 30 2c 36 33 30 0d 01  |"opts",420,630..|
00000310  4a 1e c8 99 20 73 70 24  2c 32 39 30 2c 73 70 2c  |J... sp$,290,sp,|
00000320  22 6f 70 70 6f 22 2c 30  2c 34 31 30 0d 01 54 1f  |"oppo",0,410..T.|
00000330  c8 99 20 73 70 24 2c 32  39 30 2c 73 70 2c 22 73  |.. sp$,290,sp,"s|
00000340  6e 64 22 2c 39 33 35 2c  34 31 30 0d 01 5e 22 c8  |nd",935,410..^".|
00000350  99 20 73 70 24 2c 32 39  30 2c 73 70 2c 22 70 6c  |. sp$,290,sp,"pl|
00000360  65 73 65 6c 22 2c 33 38  35 2c 33 34 30 0d 01 68  |esel",385,340..h|
00000370  1e c8 99 20 73 70 24 2c  32 39 30 2c 73 70 2c 22  |... sp$,290,sp,"|
00000380  61 77 22 2c 34 37 30 2c  31 36 30 0d 01 72 1e c8  |aw",470,160..r..|
00000390  99 20 73 70 24 2c 32 39  30 2c 73 70 2c 22 63 72  |. sp$,290,sp,"cr|
000003a0  65 64 73 22 2c 38 35 2c  30 0d 01 7c 4b e7 20 6f  |eds",85,0..|K. o|
000003b0  70 70 6f 3d 30 20 c8 99  20 73 70 24 2c 32 39 30  |ppo=0 .. sp$,290|
000003c0  2c 73 70 2c 22 68 69 6c  69 74 65 22 2c 32 30 2c  |,sp,"hilite",20,|
000003d0  34 32 30 20 8b 20 c8 99  20 73 70 24 2c 32 39 30  |420 . .. sp$,290|
000003e0  2c 73 70 2c 22 68 69 6c  69 74 65 22 2c 31 38 35  |,sp,"hilite",185|
000003f0  2c 34 32 30 0d 01 86 4e  e7 20 73 6f 75 6e 64 3d  |,420...N. sound=|
00000400  31 20 c8 99 20 73 70 24  2c 32 39 30 2c 73 70 2c  |1 .. sp$,290,sp,|
00000410  22 68 69 6c 69 74 65 22  2c 39 35 35 2c 34 32 30  |"hilite",955,420|
00000420  20 8b 20 c8 99 20 73 70  24 2c 32 39 30 2c 73 70  | . .. sp$,290,sp|
00000430  2c 22 68 69 6c 69 74 65  22 2c 31 31 32 30 2c 34  |,"hilite",1120,4|
00000440  32 30 0d 01 90 05 f5 0d  01 9a 19 f5 3a c8 97 20  |20..........:.. |
00000450  6d 78 2c 6d 79 2c 6d 62  3a fd 20 6d 62 3c 3e 30  |mx,my,mb:. mb<>0|
00000460  0d 01 a4 27 e7 20 6d 78  3e 35 20 80 20 6d 78 3c  |...'. mx>5 . mx<|
00000470  33 34 30 20 80 20 6d 79  3e 34 32 30 20 80 20 6d  |340 . my>420 . m|
00000480  79 3c 36 31 30 20 8c 0d  01 ae 75 e7 20 6f 70 70  |y<610 ....u. opp|
00000490  6f 3c 3e 30 20 8c 20 6f  70 70 6f 3d 30 3a e3 49  |o<>0 . oppo=0:.I|
000004a0  3d 31 38 35 b8 32 30 20  88 2d 31 3a c8 99 20 73  |=185.20 .-1:.. s|
000004b0  70 24 2c 32 39 30 2c 73  70 2c 22 68 69 6c 69 74  |p$,290,sp,"hilit|
000004c0  65 22 2c 49 2c 34 32 30  3a ed 20 8b 20 6f 70 70  |e",I,420:. . opp|
000004d0  6f 3d 31 3a e3 49 3d 32  30 b8 31 38 35 3a c8 99  |o=1:.I=20.185:..|
000004e0  20 73 70 24 2c 32 39 30  2c 73 70 2c 22 68 69 6c  | sp$,290,sp,"hil|
000004f0  69 74 65 22 2c 49 2c 34  32 30 3a ed 0d 01 b8 05  |ite",I,420:.....|
00000500  cd 0d 01 c2 2a e7 20 6d  78 3e 39 34 30 20 80 20  |....*. mx>940 . |
00000510  6d 78 3c 31 32 37 34 20  80 20 6d 79 3e 34 32 30  |mx<1274 . my>420|
00000520  20 80 20 6d 79 3c 36 31  30 20 8c 0d 01 cc 99 e7  | . my<610 ......|
00000530  20 73 6f 75 6e 64 3c 3e  31 20 8c 20 73 6f 75 6e  | sound<>1 . soun|
00000540  64 3d 31 3a ff 22 53 70  65 61 6b 65 72 20 4f 6e  |d=1:."Speaker On|
00000550  22 3a e3 49 3d 31 31 32  30 b8 39 35 35 20 88 2d  |":.I=1120.955 .-|
00000560  31 3a c8 99 20 73 70 24  2c 32 39 30 2c 73 70 2c  |1:.. sp$,290,sp,|
00000570  22 68 69 6c 69 74 65 22  2c 49 2c 34 32 30 3a ed  |"hilite",I,420:.|
00000580  20 8b 20 73 6f 75 6e 64  3d 30 3a ff 22 53 70 65  | . sound=0:."Spe|
00000590  61 6b 65 72 20 4f 66 66  22 3a e3 49 3d 39 35 35  |aker Off":.I=955|
000005a0  b8 31 31 32 30 3a c8 99  20 73 70 24 2c 32 39 30  |.1120:.. sp$,290|
000005b0  2c 73 70 2c 22 68 69 6c  69 74 65 22 2c 49 2c 34  |,sp,"hilite",I,4|
000005c0  32 30 3a ed 0d 01 d6 05  cd 0d 01 e0 51 e7 20 6d  |20:.........Q. m|
000005d0  78 3e 33 39 35 20 80 20  6d 78 3c 35 34 35 20 80  |x>395 . mx<545 .|
000005e0  20 6d 79 3e 33 36 30 20  80 20 6d 79 3c 35 30 30  | my>360 . my<500|
000005f0  20 80 20 6f 70 70 6f 3d  30 20 8c 20 f2 64 69 66  | . oppo=0 . .dif|
00000600  66 3a f2 70 6c 61 79 3a  f2 67 6d 6f 76 3a f2 63  |f:.play:.gmov:.c|
00000610  6c 5f 73 63 72 65 65 6e  3a e1 0d 01 ea 4b e7 20  |l_screen:....K. |
00000620  6d 78 3e 33 39 35 20 80  20 6d 78 3c 35 34 35 20  |mx>395 . mx<545 |
00000630  80 20 6d 79 3e 33 36 30  20 80 20 6d 79 3c 35 30  |. my>360 . my<50|
00000640  30 20 80 20 6f 70 70 6f  3d 31 20 8c 20 f2 70 6c  |0 . oppo=1 . .pl|
00000650  61 79 3a f2 67 6d 6f 76  3a f2 63 6c 5f 73 63 72  |ay:.gmov:.cl_scr|
00000660  65 65 6e 3a e1 0d 01 f4  31 e7 20 6d 78 3e 35 36  |een:....1. mx>56|
00000670  30 20 80 20 6d 78 3c 37  31 30 20 80 20 6d 79 3e  |0 . mx<710 . my>|
00000680  33 36 30 20 80 20 6d 79  3c 35 30 30 20 8c 20 f2  |360 . my<500 . .|
00000690  65 64 69 74 3a e1 0d 01  fe 36 e7 20 6d 78 3e 37  |edit:....6. mx>7|
000006a0  32 35 20 80 20 6d 78 3c  38 37 35 20 80 20 6d 79  |25 . mx<875 . my|
000006b0  3e 33 36 30 20 80 20 6d  79 3c 35 30 30 20 8c 20  |>360 . my<500 . |
000006c0  f2 63 6c 5f 73 63 72 65  65 6e 3a e0 0d 02 08 06  |.cl_screen:.....|
000006d0  fd 2e 0d 02 12 05 e1 0d  02 1c 05 3a 0d 02 26 0e  |...........:..&.|
000006e0  dd f2 63 6c 5f 62 6f 61  72 64 0d 02 30 21 e3 49  |..cl_board..0!.I|
000006f0  3d 31 b8 31 30 3a e3 4a  3d 31 b8 36 3a 6d 61 70  |=1.10:.J=1.6:map|
00000700  28 49 2c 4a 29 3d 30 3a  ed 3a ed 0d 02 3a 31 6d  |(I,J)=0:.:...:1m|
00000710  61 70 28 31 2c 31 29 3d  31 3a 6d 61 70 28 31 2c  |ap(1,1)=1:map(1,|
00000720  36 29 3d 32 3a 6d 61 70  28 31 30 2c 31 29 3d 32  |6)=2:map(10,1)=2|
00000730  3a 6d 61 70 28 31 30 2c  36 29 3d 31 0d 02 44 05  |:map(10,6)=1..D.|
00000740  e1 0d 02 4e 05 3a 0d 02  58 0f dd f2 63 6c 5f 73  |...N.:..X...cl_s|
00000750  63 72 65 65 6e 0d 02 62  11 ef 32 38 2c 30 2c 33  |creen..b..28,0,3|
00000760  31 2c 33 39 2c 37 0d 02  6c 1a e3 49 3d 31 b8 32  |1,39,7..l..I=1.2|
00000770  35 3a ef 32 33 2c 37 2c  30 2c 33 2c 30 7c 3a ed  |5:.23,7,0,3,0|:.|
00000780  0d 02 76 05 e1 0d 02 80  05 3a 0d 02 8a 0a dd f2  |..v......:......|
00000790  70 6c 61 79 0d 02 94 3b  67 6f 3d b3 28 32 29 3a  |play...;go=.(2):|
000007a0  63 6f 6e 3d 30 3a 6d 6f  76 3d 30 3a 73 72 3d 30  |con=0:mov=0:sr=0|
000007b0  3a 73 67 3d 30 3a e7 20  6f 70 70 6f 3d 30 20 8c  |:sg=0:. oppo=0 .|
000007c0  20 63 67 6f 3d 67 6f 20  8b 20 63 67 6f 3d 30 0d  | cgo=go . cgo=0.|
000007d0  02 9e 18 e7 20 67 6f 3d  31 20 8c 20 67 6f 3d 32  |.... go=1 . go=2|
000007e0  20 8b 20 67 6f 3d 31 0d  02 a8 10 f2 63 6c 5f 63  | . go=1.....cl_c|
000007f0  6f 75 6e 74 65 72 73 0d  02 b2 31 6d 61 70 28 31  |ounters...1map(1|
00000800  2c 31 29 3d 31 3a 6d 61  70 28 31 2c 36 29 3d 32  |,1)=1:map(1,6)=2|
00000810  3a 6d 61 70 28 31 30 2c  31 29 3d 32 3a 6d 61 70  |:map(10,1)=2:map|
00000820  28 31 30 2c 36 29 3d 31  0d 02 bc 0e f2 63 6c 5f  |(10,6)=1.....cl_|
00000830  73 63 72 65 65 6e 0d 02  c6 76 f2 62 6f 61 72 64  |screen...v.board|
00000840  3a c8 99 20 73 70 24 2c  32 39 30 2c 73 70 2c 22  |:.. sp$,290,sp,"|
00000850  63 6f 6e 22 2c 34 33 30  2c 30 3a e7 20 63 67 6f  |con",430,0:. cgo|
00000860  3d 31 20 8c 20 c8 99 20  73 70 24 2c 32 39 30 2c  |=1 . .. sp$,290,|
00000870  73 70 2c 22 63 6f 6d 70  22 2c 31 37 2c 39 38 30  |sp,"comp",17,980|
00000880  2c 38 20 8b 20 e7 20 63  67 6f 3d 32 20 c8 99 20  |,8 . . cgo=2 .. |
00000890  73 70 24 2c 32 39 30 2c  73 70 2c 22 63 6f 6d 70  |sp$,290,sp,"comp|
000008a0  22 2c 31 31 30 35 2c 39  38 30 2c 38 0d 02 d0 0d  |",1105,980,8....|
000008b0  f2 63 6f 75 6e 74 65 72  73 0d 02 da 0a f2 73 63  |.counters.....sc|
000008c0  6f 72 65 0d 02 e4 0a c8  97 20 ee 20 31 0d 02 ee  |ore...... . 1...|
000008d0  05 f5 0d 02 f8 1c f2 6d  6f 76 65 3a e7 20 63 6f  |.......move:. co|
000008e0  6e 3d 31 20 8c 20 f2 70  61 75 73 65 3a e1 0d 03  |n=1 . .pause:...|
000008f0  02 09 f2 66 6c 69 70 0d  03 0c 0d f2 63 6f 75 6e  |...flip.....coun|
00000900  74 65 72 73 0d 03 16 0a  f2 73 63 6f 72 65 0d 03  |ters.....score..|
00000910  20 15 e7 20 73 67 3d 30  20 84 20 73 72 3d 30 20  | .. sg=0 . sr=0 |
00000920  8c 20 e1 0d 03 2a 18 e7  20 73 67 2b 73 72 3d 36  |. ...*.. sg+sr=6|
00000930  30 2d 76 6f 69 64 73 20  8c 20 e1 0d 03 34 18 e7  |0-voids . ...4..|
00000940  20 67 6f 3d 31 20 8c 20  67 6f 3d 32 20 8b 20 67  | go=1 . go=2 . g|
00000950  6f 3d 31 0d 03 3e 16 e7  20 6d 6f 76 3d 31 20 8c  |o=1..>.. mov=1 .|
00000960  20 f2 70 61 75 73 65 3a  e1 0d 03 48 09 f2 74 75  | .pause:...H..tu|
00000970  72 6e 0d 03 52 06 fd 2e  0d 03 5c 05 e1 0d 03 66  |rn..R.....\....f|
00000980  05 3a 0d 03 70 0b dd f2  62 6f 61 72 64 0d 03 7a  |.:..p...board..z|
00000990  48 e7 20 67 6f 3d 31 20  8c 20 c8 99 20 73 70 24  |H. go=1 . .. sp$|
000009a0  2c 32 39 30 2c 73 70 2c  22 74 75 72 6e 22 2c 33  |,290,sp,"turn",3|
000009b0  38 2c 37 37 35 20 8b 20  c8 99 20 73 70 24 2c 32  |8,775 . .. sp$,2|
000009c0  39 30 2c 73 70 2c 22 74  75 72 6e 22 2c 31 31 32  |90,sp,"turn",112|
000009d0  35 2c 37 37 35 0d 03 84  14 78 3d 31 36 30 3a 79  |5,775....x=160:y|
000009e0  3d 36 35 30 3a 79 79 3d  79 0d 03 8e 0a e3 4a 3d  |=650:yy=y.....J=|
000009f0  31 b8 33 0d 03 98 2e e3  49 3d 30 b8 34 3a c8 99  |1.3.....I=0.4:..|
00000a00  20 73 70 24 2c 32 39 30  2c 73 70 2c 22 73 71 72  | sp$,290,sp,"sqr|
00000a10  6c 22 2c 28 32 34 30 2a  49 29 2b 78 2c 79 79 3a  |l",(240*I)+x,yy:|
00000a20  ed 0d 03 a2 32 e3 49 3d  30 b8 34 3a c8 99 20 73  |....2.I=0.4:.. s|
00000a30  70 24 2c 32 39 30 2c 73  70 2c 22 73 71 72 64 22  |p$,290,sp,"sqrd"|
00000a40  2c 28 32 34 30 2a 49 29  2b 78 2d 31 32 30 2c 79  |,(240*I)+x-120,y|
00000a50  79 3a ed 0d 03 ac 0b 79  79 2d 3d 31 32 30 0d 03  |y:.....yy-=120..|
00000a60  b6 2e e3 49 3d 30 b8 34  3a c8 99 20 73 70 24 2c  |...I=0.4:.. sp$,|
00000a70  32 39 30 2c 73 70 2c 22  73 71 72 64 22 2c 28 32  |290,sp,"sqrd",(2|
00000a80  34 30 2a 49 29 2b 78 2c  79 79 3a ed 0d 03 c0 32  |40*I)+x,yy:....2|
00000a90  e3 49 3d 30 b8 34 3a c8  99 20 73 70 24 2c 32 39  |.I=0.4:.. sp$,29|
00000aa0  30 2c 73 70 2c 22 73 71  72 6c 22 2c 28 32 34 30  |0,sp,"sqrl",(240|
00000ab0  2a 49 29 2b 78 2d 31 32  30 2c 79 79 3a ed 0d 03  |*I)+x-120,yy:...|
00000ac0  ca 0b 79 79 2d 3d 31 32  30 0d 03 d4 0d ed 3a 76  |..yy-=120.....:v|
00000ad0  6f 69 64 73 3d 30 0d 03  de 12 e3 49 3d 31 b8 31  |oids=0.....I=1.1|
00000ae0  30 3a e3 4a 3d 31 b8 36  0d 03 e8 4a e7 20 6d 61  |0:.J=1.6...J. ma|
00000af0  70 28 49 2c 4a 29 3d 33  20 c8 99 20 73 70 24 2c  |p(I,J)=3 .. sp$,|
00000b00  32 39 30 2c 73 70 2c 22  76 6f 69 64 22 2c 28 31  |290,sp,"void",(1|
00000b10  32 30 2a 49 29 2b 78 2d  32 34 30 2c 79 2d 28 31  |20*I)+x-240,y-(1|
00000b20  32 30 2a 4a 29 2b 31 32  30 3a 76 6f 69 64 73 2b  |20*J)+120:voids+|
00000b30  3d 31 0d 03 f2 07 ed 3a  ed 0d 03 fc 05 e1 0d 04  |=1.....:........|
00000b40  06 05 3a 0d 04 10 13 dd  f2 63 28 78 25 2c 79 25  |..:......c(x%,y%|
00000b50  2c 63 6f 6c 25 29 0d 04  1a 3d c8 99 20 73 70 24  |,col%)...=.. sp$|
00000b60  2c 32 39 30 2c 73 70 2c  22 63 22 2b c3 28 63 6f  |,290,sp,"c"+.(co|
00000b70  6c 25 29 2c 28 31 32 30  2a 78 25 29 2b 78 2d 32  |l%),(120*x%)+x-2|
00000b80  34 30 2c 79 2d 28 31 32  30 2a 79 25 29 2b 31 32  |40,y-(120*y%)+12|
00000b90  30 2c 38 0d 04 24 05 e1  0d 04 2e 05 3a 0d 04 38  |0,8..$......:..8|
00000ba0  0b dd f2 73 63 6f 72 65  0d 04 42 25 66 31 72 24  |...score..B%f1r$|
00000bb0  3d c1 c3 28 73 72 29 2c  31 2c 31 29 3a 66 32 72  |=..(sr),1,1):f2r|
00000bc0  24 3d c1 c3 28 73 72 29  2c 32 2c 31 29 0d 04 4c  |$=..(sr),2,1)..L|
00000bd0  21 e7 20 73 72 3c 31 30  20 8c 20 66 31 72 24 3d  |!. sr<10 . f1r$=|
00000be0  22 30 22 3a 66 32 72 24  3d c3 28 73 72 29 0d 04  |"0":f2r$=.(sr)..|
00000bf0  56 25 66 31 67 24 3d c1  c3 28 73 67 29 2c 31 2c  |V%f1g$=..(sg),1,|
00000c00  31 29 3a 66 32 67 24 3d  c1 c3 28 73 67 29 2c 32  |1):f2g$=..(sg),2|
00000c10  2c 31 29 0d 04 60 21 e7  20 73 67 3c 31 30 20 8c  |,1)..`!. sg<10 .|
00000c20  20 66 31 67 24 3d 22 30  22 3a 66 32 67 24 3d c3  | f1g$="0":f2g$=.|
00000c30  28 73 67 29 0d 04 6a 1f  c8 99 20 73 70 24 2c 32  |(sg)..j... sp$,2|
00000c40  39 30 2c 73 70 2c 66 31  72 24 2c 35 30 2c 38 39  |90,sp,f1r$,50,89|
00000c50  30 2c 38 0d 04 74 20 c8  99 20 73 70 24 2c 32 39  |0,8..t .. sp$,29|
00000c60  30 2c 73 70 2c 66 32 72  24 2c 31 30 30 2c 38 39  |0,sp,f2r$,100,89|
00000c70  30 2c 38 0d 04 7e 21 c8  99 20 73 70 24 2c 32 39  |0,8..~!.. sp$,29|
00000c80  30 2c 73 70 2c 66 31 67  24 2c 31 31 33 38 2c 38  |0,sp,f1g$,1138,8|
00000c90  39 30 2c 38 0d 04 88 21  c8 99 20 73 70 24 2c 32  |90,8...!.. sp$,2|
00000ca0  39 30 2c 73 70 2c 66 32  67 24 2c 31 31 39 30 2c  |90,sp,f2g$,1190,|
00000cb0  38 39 30 2c 38 0d 04 92  05 e1 0d 04 9c 05 3a 0d  |890,8.........:.|
00000cc0  04 a6 0a dd f2 65 64 69  74 0d 04 b0 1b f2 63 6c  |.....edit.....cl|
00000cd0  5f 63 6f 75 6e 74 65 72  73 3a f2 63 6c 5f 73 63  |_counters:.cl_sc|
00000ce0  72 65 65 6e 0d 04 ba 1d  c8 99 20 73 70 24 2c 32  |reen...... sp$,2|
00000cf0  39 30 2c 73 70 2c 22 6f  6b 22 2c 35 30 2c 38 37  |90,sp,"ok",50,87|
00000d00  35 0d 04 c4 20 c8 99 20  73 70 24 2c 32 39 30 2c  |5... .. sp$,290,|
00000d10  73 70 2c 22 63 6c 72 22  2c 31 31 33 38 2c 38 37  |sp,"clr",1138,87|
00000d20  38 0d 04 ce 0a f2 62 6f  61 72 64 0d 04 d8 0a c8  |8.....board.....|
00000d30  97 20 ee 20 31 0d 04 e2  0d f5 3a 64 65 6c 3d 30  |. . 1.....:del=0|
00000d40  3a f5 0d 04 ec 0f c8 97  20 6d 78 2c 6d 79 2c 6d  |:....... mx,my,m|
00000d50  7a 0d 04 f6 0b fd 20 6d  7a 3c 3e 30 0d 05 00 28  |z..... mz<>0...(|
00000d60  e7 20 6d 78 3e 35 30 20  80 20 6d 78 3c 31 35 30  |. mx>50 . mx<150|
00000d70  20 80 20 6d 79 3e 38 37  35 20 80 20 6d 79 3c 39  | . my>875 . my<9|
00000d80  37 35 20 8c 0d 05 0a 10  f2 63 6c 5f 73 63 72 65  |75 ......cl_scre|
00000d90  65 6e 3a e1 0d 05 14 05  cd 0d 05 1e 3a e7 20 6d  |en:.........:. m|
00000da0  78 3e 31 31 33 38 20 80  20 6d 78 3c 31 32 33 38  |x>1138 . mx<1238|
00000db0  20 80 20 6d 79 3e 38 37  35 20 80 20 6d 79 3c 39  | . my>875 . my<9|
00000dc0  37 35 20 f2 63 6c 5f 62  6f 61 72 64 3a f2 62 6f  |75 .cl_board:.bo|
00000dd0  61 72 64 0d 05 28 19 63  78 3d a4 63 6c 69 63 6b  |ard..(.cx=.click|
00000de0  78 3a 63 79 3d a4 63 6c  69 63 6b 79 0d 05 32 22  |x:cy=.clicky..2"|
00000df0  e7 20 63 78 3e 31 20 80  20 63 78 3c 31 30 20 80  |. cx>1 . cx<10 .|
00000e00  20 63 79 3e 31 20 80 20  63 79 3c 36 20 8c 0d 05  | cy>1 . cy<6 ...|
00000e10  3c 85 e7 20 6d 61 70 28  63 78 2c 63 79 29 3d 30  |<.. map(cx,cy)=0|
00000e20  20 8c 20 6d 61 70 28 63  78 2c 63 79 29 3d 33 20  | . map(cx,cy)=3 |
00000e30  8b 20 e7 20 6d 61 70 28  63 78 2c 63 79 29 3d 33  |. . map(cx,cy)=3|
00000e40  20 8c 20 6d 61 70 28 63  78 2c 63 79 29 3d 30 3a  | . map(cx,cy)=0:|
00000e50  c8 99 20 73 70 24 2c 32  39 30 2c 73 70 2c 22 73  |.. sp$,290,sp,"s|
00000e60  71 72 22 2b 73 71 72 24  28 63 68 65 71 28 63 78  |qr"+sqr$(cheq(cx|
00000e70  2c 63 79 29 29 2c 28 31  32 30 2a 63 78 29 2b 78  |,cy)),(120*cx)+x|
00000e80  2d 32 34 30 2c 79 2d 28  31 32 30 2a 63 79 29 2b  |-240,y-(120*cy)+|
00000e90  31 32 30 0d 05 46 12 e3  49 3d 31 b8 31 30 3a e3  |120..F..I=1.10:.|
00000ea0  4a 3d 31 b8 36 0d 05 50  41 e7 20 6d 61 70 28 49  |J=1.6..PA. map(I|
00000eb0  2c 4a 29 3d 33 20 c8 99  20 73 70 24 2c 32 39 30  |,J)=3 .. sp$,290|
00000ec0  2c 73 70 2c 22 76 6f 69  64 22 2c 28 31 32 30 2a  |,sp,"void",(120*|
00000ed0  49 29 2b 78 2d 32 34 30  2c 79 2d 28 31 32 30 2a  |I)+x-240,y-(120*|
00000ee0  4a 29 2b 31 32 30 0d 05  5a 0e ed 3a ed 3a f2 70  |J)+120..Z..:.:.p|
00000ef0  61 75 73 65 0d 05 64 05  cd 0d 05 6e 06 fd 2e 0d  |ause..d....n....|
00000f00  05 78 05 e1 0d 05 82 05  3a 0d 05 8c 0c dd a4 63  |.x......:......c|
00000f10  6c 69 63 6b 78 0d 05 96  13 63 6c 69 63 6b 3d 30  |lickx....click=0|
00000f20  3a e3 49 3d 2d 31 b8 39  0d 05 a0 3e e7 20 6d 78  |:.I=-1.9...>. mx|
00000f30  3e 28 31 32 30 2a 49 29  2b 78 20 80 20 6d 78 3c  |>(120*I)+x . mx<|
00000f40  28 31 32 30 2a 28 49 2b  31 29 29 2b 78 20 8c 20  |(120*(I+1))+x . |
00000f50  63 6c 69 63 6b 3d 49 2b  32 3a 49 3d 39 3a ed 3a  |click=I+2:I=9:.:|
00000f60  3d 63 6c 69 63 6b 0d 05  aa 0c ed 3a 3d 63 6c 69  |=click.....:=cli|
00000f70  63 6b 0d 05 b4 05 3a 0d  05 be 0c dd a4 63 6c 69  |ck....:......cli|
00000f80  63 6b 79 0d 05 c8 12 63  6c 69 63 6b 3d 30 3a e3  |cky....click=0:.|
00000f90  49 3d 30 b8 35 0d 05 d2  46 e7 20 6d 79 3c 79 2d  |I=0.5...F. my<y-|
00000fa0  28 31 32 30 2a 49 29 2b  31 32 30 20 80 20 6d 79  |(120*I)+120 . my|
00000fb0  3e 79 2d 28 31 32 30 2a  28 49 2b 31 29 29 2b 31  |>y-(120*(I+1))+1|
00000fc0  32 30 20 8c 20 63 6c 69  63 6b 3d 49 2b 31 3a 49  |20 . click=I+1:I|
00000fd0  3d 35 3a ed 3a 3d 63 6c  69 63 6b 0d 05 dc 0c ed  |=5:.:=click.....|
00000fe0  3a 3d 63 6c 69 63 6b 0d  05 e6 05 3a 0d 05 f0 0e  |:=click....:....|
00000ff0  dd a4 64 69 73 74 61 6e  63 65 0d 05 fa 0a 64 69  |..distance....di|
00001000  73 74 3d 30 0d 06 04 13  64 69 73 74 78 3d 6e 65  |st=0....distx=ne|
00001010  77 78 2d 6f 6c 64 78 0d  06 0e 13 64 69 73 74 79  |wx-oldx....disty|
00001020  3d 6e 65 77 79 2d 6f 6c  64 79 0d 06 18 1d e7 20  |=newy-oldy..... |
00001030  64 69 73 74 78 3c 30 20  8c 20 64 69 73 74 78 3d  |distx<0 . distx=|
00001040  30 2d 64 69 73 74 78 0d  06 22 1d e7 20 64 69 73  |0-distx..".. dis|
00001050  74 79 3c 30 20 8c 20 64  69 73 74 79 3d 30 2d 64  |ty<0 . disty=0-d|
00001060  69 73 74 79 0d 06 2c 20  e7 20 64 69 73 74 78 3c  |isty.., . distx<|
00001070  33 20 80 20 64 69 73 74  79 3c 33 20 8c 20 64 69  |3 . disty<3 . di|
00001080  73 74 3d 31 0d 06 36 09  3d 64 69 73 74 0d 06 40  |st=1..6.=dist..@|
00001090  05 3a 0d 06 4a 11 dd f2  63 6c 5f 63 6f 75 6e 74  |.:..J...cl_count|
000010a0  65 72 73 0d 06 54 12 e3  49 3d 31 b8 31 30 3a e3  |ers..T..I=1.10:.|
000010b0  4a 3d 31 b8 36 0d 06 5e  1e e7 20 6d 61 70 28 49  |J=1.6..^.. map(I|
000010c0  2c 4a 29 3c 3e 33 20 8c  20 6d 61 70 28 49 2c 4a  |,J)<>3 . map(I,J|
000010d0  29 3d 30 0d 06 68 07 ed  3a ed 0d 06 72 05 e1 0d  |)=0..h..:...r...|
000010e0  06 7c 05 3a 0d 06 86 0e  dd f2 63 6f 75 6e 74 65  |.|.:......counte|
000010f0  72 73 0d 06 90 0d 73 72  3d 30 3a 73 67 3d 30 0d  |rs....sr=0:sg=0.|
00001100  06 9a 12 e3 49 3d 31 b8  31 30 3a e3 4a 3d 31 b8  |....I=1.10:.J=1.|
00001110  36 0d 06 a4 22 e7 20 6d  61 70 28 49 2c 4a 29 3d  |6...". map(I,J)=|
00001120  31 20 8c 20 f2 63 28 49  2c 4a 2c 31 29 3a 73 72  |1 . .c(I,J,1):sr|
00001130  2b 3d 31 0d 06 ae 22 e7  20 6d 61 70 28 49 2c 4a  |+=1...". map(I,J|
00001140  29 3d 32 20 8c 20 f2 63  28 49 2c 4a 2c 32 29 3a  |)=2 . .c(I,J,2):|
00001150  73 67 2b 3d 31 0d 06 b8  07 ed 3a ed 0d 06 c2 05  |sg+=1.....:.....|
00001160  e1 0d 06 cc 05 3a 0d 06  d6 0b dd f2 70 61 75 73  |.....:......paus|
00001170  65 0d 06 e0 0e d1 3d 30  3a f5 fd 91 3d 31 35 0d  |e.....=0:...=15.|
00001180  06 ea 05 e1 0d 06 f4 05  3a 0d 06 fe 13 dd f2 73  |........:......s|
00001190  65 6c 65 63 74 28 78 25  2c 79 25 29 0d 07 08 3a  |elect(x%,y%)...:|
000011a0  c8 99 20 73 70 24 2c 32  39 30 2c 73 70 2c 22 73  |.. sp$,290,sp,"s|
000011b0  65 6c 65 63 74 22 2c 28  31 32 30 2a 78 25 29 2b  |elect",(120*x%)+|
000011c0  78 2d 32 34 30 2c 79 2d  28 31 32 30 2a 79 25 29  |x-240,y-(120*y%)|
000011d0  2b 31 32 30 2c 38 0d 07  12 05 e1 0d 07 1c 05 3a  |+120,8.........:|
000011e0  0d 07 26 0a dd f2 6d 6f  76 65 0d 07 30 0c f4 20  |..&...move..0.. |
000011f0  53 45 4c 45 43 54 0d 07  3a 05 3a 0d 07 44 18 e7  |SELECT..:.:..D..|
00001200  20 63 67 6f 3c 3e 67 6f  20 84 20 6f 70 70 6f 3d  | cgo<>go . oppo=|
00001210  32 20 8c 0d 07 4e 14 73  65 6c 63 74 3d 30 3a 6d  |2 ...N.selct=0:m|
00001220  6f 76 65 6f 6b 3d 30 0d  07 58 1c f5 3a f5 3a f5  |oveok=0..X..:.:.|
00001230  3a c8 97 20 6d 78 2c 6d  79 2c 6d 62 3a fd 6d 62  |:.. mx,my,mb:.mb|
00001240  3c 3e 30 0d 07 62 19 63  78 3d a4 63 6c 69 63 6b  |<>0..b.cx=.click|
00001250  78 3a 63 79 3d a4 63 6c  69 63 6b 79 0d 07 6c 1b  |x:cy=.clicky..l.|
00001260  fd 20 63 78 3e 30 20 80  20 63 78 3c 31 31 20 80  |. cx>0 . cx<11 .|
00001270  20 6d 79 3c 37 35 35 0d  07 76 26 e7 20 63 78 3e  | my<755..v&. cx>|
00001280  33 20 80 20 63 78 3c 38  20 80 20 6d 79 3c 33 30  |3 . cx<8 . my<30|
00001290  20 8c 20 f2 63 6f 6e 63  65 65 64 3a e1 0d 07 80  | . .conceed:....|
000012a0  15 e7 20 6d 61 70 28 63  78 2c 63 79 29 3d 67 6f  |.. map(cx,cy)=go|
000012b0  20 8c 0d 07 8a 7e e7 20  73 65 6c 63 74 3c 3e 31  | ....~. selct<>1|
000012c0  20 6f 6c 64 78 3d 63 78  3a 6f 6c 64 79 3d 63 79  | oldx=cx:oldy=cy|
000012d0  3a 73 65 6c 63 74 3d 31  3a f2 73 65 6c 65 63 74  |:selct=1:.select|
000012e0  28 6f 6c 64 78 2c 6f 6c  64 79 29 3a f2 70 61 75  |(oldx,oldy):.pau|
000012f0  73 65 20 8b 20 f2 63 28  6f 6c 64 78 2c 6f 6c 64  |se . .c(oldx,old|
00001300  79 2c 67 6f 29 3a 6f 6c  64 78 3d 63 78 3a 6f 6c  |y,go):oldx=cx:ol|
00001310  64 79 3d 63 79 3a 73 65  6c 63 74 3d 31 3a f2 73  |dy=cy:selct=1:.s|
00001320  65 6c 65 63 74 28 6f 6c  64 78 2c 6f 6c 64 79 29  |elect(oldx,oldy)|
00001330  0d 07 94 05 cd 0d 07 9e  0d cc 20 f5 3a f2 63 6f  |.......... .:.co|
00001340  6d 70 0d 07 a8 05 cd 0d  07 b2 05 3a 0d 07 bc 0d  |mp.........:....|
00001350  f4 20 4e 45 57 20 50 4f  53 0d 07 c6 05 3a 0d 07  |. NEW POS....:..|
00001360  d0 14 e7 20 6d 61 78 74  61 6b 65 3d 2d 31 20 8c  |... maxtake=-1 .|
00001370  20 e1 0d 07 da 3f e7 20  6d 61 70 28 63 78 2c 63  | ....?. map(cx,c|
00001380  79 29 3d 30 20 80 20 73  65 6c 63 74 3d 31 20 8c  |y)=0 . selct=1 .|
00001390  20 6e 65 77 78 3d 63 78  3a 6e 65 77 79 3d 63 79  | newx=cx:newy=cy|
000013a0  3a 6d 6f 76 65 6f 6b 3d  a4 64 69 73 74 61 6e 63  |:moveok=.distanc|
000013b0  65 0d 07 e4 0e fd 20 6d  6f 76 65 6f 6b 3d 31 0d  |e..... moveok=1.|
000013c0  07 ee 15 6d 61 70 28 6e  65 77 78 2c 6e 65 77 79  |...map(newx,newy|
000013d0  29 3d 67 6f 0d 07 f8 14  f2 63 28 6e 65 77 78 2c  |)=go.....c(newx,|
000013e0  6e 65 77 79 2c 67 6f 29  0d 08 02 89 e7 20 64 69  |newy,go)..... di|
000013f0  73 74 78 3d 32 20 84 20  64 69 73 74 79 3d 32 20  |stx=2 . disty=2 |
00001400  8c 20 6d 61 70 28 6f 6c  64 78 2c 6f 6c 64 79 29  |. map(oldx,oldy)|
00001410  3d 30 3a c8 99 20 73 70  24 2c 32 39 30 2c 73 70  |=0:.. sp$,290,sp|
00001420  2c 22 73 71 72 22 2b 73  71 72 24 28 63 68 65 71  |,"sqr"+sqr$(cheq|
00001430  28 6f 6c 64 78 2c 6f 6c  64 79 29 29 2c 28 31 32  |(oldx,oldy)),(12|
00001440  30 2a 6f 6c 64 78 29 2b  78 2d 32 34 30 2c 79 2d  |0*oldx)+x-240,y-|
00001450  28 31 32 30 2a 6f 6c 64  79 29 2b 31 32 30 20 8b  |(120*oldy)+120 .|
00001460  20 f2 63 28 6f 6c 64 78  2c 6f 6c 64 79 2c 67 6f  | .c(oldx,oldy,go|
00001470  29 0d 08 0c 05 e1 0d 08  16 05 3a 0d 08 20 0a dd  |).........:.. ..|
00001480  f2 74 75 72 6e 0d 08 2a  69 e7 20 67 6f 3d 32 20  |.turn..*i. go=2 |
00001490  8c 20 e3 49 3d 33 38 20  b8 20 31 31 32 35 20 88  |. .I=38 . 1125 .|
000014a0  36 3a c8 99 20 73 70 24  2c 32 39 30 2c 73 70 2c  |6:.. sp$,290,sp,|
000014b0  22 74 75 72 6e 22 2c 49  2c 37 37 35 3a ed 20 8b  |"turn",I,775:. .|
000014c0  20 e3 49 3d 31 31 32 35  20 b8 20 33 38 20 88 2d  | .I=1125 . 38 .-|
000014d0  36 3a c8 99 20 73 70 24  2c 32 39 30 2c 73 70 2c  |6:.. sp$,290,sp,|
000014e0  22 74 75 72 6e 22 2c 49  2c 37 37 35 3a ed 0d 08  |"turn",I,775:...|
000014f0  34 05 e1 0d 08 3e 05 3a  0d 08 48 0a dd f2 66 6c  |4....>.:..H...fl|
00001500  69 70 0d 08 52 1a e7 20  67 6f 3d 31 20 8c 20 6f  |ip..R.. go=1 . o|
00001510  70 70 3d 32 20 8b 20 6f  70 70 3d 31 0d 08 5c 05  |pp=2 . opp=1..\.|
00001520  3a 0d 08 66 34 e7 20 6d  61 70 28 6e 65 77 78 2d  |:..f4. map(newx-|
00001530  31 2c 6e 65 77 79 2d 31  29 3d 6f 70 70 20 8c 20  |1,newy-1)=opp . |
00001540  6d 61 70 28 6e 65 77 78  2d 31 2c 6e 65 77 79 2d  |map(newx-1,newy-|
00001550  31 29 3d 67 6f 0d 08 70  3e e7 20 6d 61 70 28 6e  |1)=go..p>. map(n|
00001560  65 77 78 2d 31 2c 6e 65  77 79 29 3d 6f 70 70 20  |ewx-1,newy)=opp |
00001570  8c 20 6d 61 70 28 6e 65  77 78 2d 31 2c 6e 65 77  |. map(newx-1,new|
00001580  79 29 3d 67 6f 3a 2a 7c  20 20 20 20 20 20 20 6c  |y)=go:*|       l|
00001590  65 66 74 0d 08 7a 34 e7  20 6d 61 70 28 6e 65 77  |eft..z4. map(new|
000015a0  78 2d 31 2c 6e 65 77 79  2b 31 29 3d 6f 70 70 20  |x-1,newy+1)=opp |
000015b0  8c 20 6d 61 70 28 6e 65  77 78 2d 31 2c 6e 65 77  |. map(newx-1,new|
000015c0  79 2b 31 29 3d 67 6f 0d  08 84 05 3a 0d 08 8e 30  |y+1)=go....:...0|
000015d0  e7 20 6d 61 70 28 6e 65  77 78 2c 6e 65 77 79 2d  |. map(newx,newy-|
000015e0  31 29 3d 6f 70 70 20 8c  20 6d 61 70 28 6e 65 77  |1)=opp . map(new|
000015f0  78 2c 6e 65 77 79 2d 31  29 3d 67 6f 0d 08 98 40  |x,newy-1)=go...@|
00001600  e7 20 6d 61 70 28 6e 65  77 78 2c 6e 65 77 79 2b  |. map(newx,newy+|
00001610  31 29 3d 6f 70 70 20 8c  20 6d 61 70 28 6e 65 77  |1)=opp . map(new|
00001620  78 2c 6e 65 77 79 2b 31  29 3d 67 6f 3a 2a 7c 20  |x,newy+1)=go:*| |
00001630  20 20 20 20 20 20 6d 69  64 64 6c 65 0d 08 a2 05  |      middle....|
00001640  3a 0d 08 ac 34 e7 20 6d  61 70 28 6e 65 77 78 2b  |:...4. map(newx+|
00001650  31 2c 6e 65 77 79 2d 31  29 3d 6f 70 70 20 8c 20  |1,newy-1)=opp . |
00001660  6d 61 70 28 6e 65 77 78  2b 31 2c 6e 65 77 79 2d  |map(newx+1,newy-|
00001670  31 29 3d 67 6f 0d 08 b6  3f e7 20 6d 61 70 28 6e  |1)=go...?. map(n|
00001680  65 77 78 2b 31 2c 6e 65  77 79 29 3d 6f 70 70 20  |ewx+1,newy)=opp |
00001690  8c 20 6d 61 70 28 6e 65  77 78 2b 31 2c 6e 65 77  |. map(newx+1,new|
000016a0  79 29 3d 67 6f 3a 2a 7c  20 20 20 20 20 20 20 72  |y)=go:*|       r|
000016b0  69 67 68 74 0d 08 c0 34  e7 20 6d 61 70 28 6e 65  |ight...4. map(ne|
000016c0  77 78 2b 31 2c 6e 65 77  79 2b 31 29 3d 6f 70 70  |wx+1,newy+1)=opp|
000016d0  20 8c 20 6d 61 70 28 6e  65 77 78 2b 31 2c 6e 65  | . map(newx+1,ne|
000016e0  77 79 2b 31 29 3d 67 6f  0d 08 ca 05 e1 0d 08 d4  |wy+1)=go........|
000016f0  05 3a 0d 08 de 0a dd f2  67 6d 6f 76 0d 08 e8 20  |.:......gmov... |
00001700  c8 99 20 73 70 24 2c 32  39 30 2c 73 70 2c 22 67  |.. sp$,290,sp,"g|
00001710  6d 6f 76 22 2c 33 39 37  2c 35 30 30 0d 08 f2 4f  |mov",397,500...O|
00001720  e7 20 73 72 3e 73 67 20  c8 99 20 73 70 24 2c 32  |. sr>sg .. sp$,2|
00001730  39 30 2c 73 70 2c 22 77  69 6e 72 22 2c 34 33 30  |90,sp,"winr",430|
00001740  2c 33 35 30 20 8b 20 e7  20 73 72 3c 73 67 20 c8  |,350 . . sr<sg .|
00001750  99 20 73 70 24 2c 32 39  30 2c 73 70 2c 22 77 69  |. sp$,290,sp,"wi|
00001760  6e 67 22 2c 33 38 30 2c  33 35 30 0d 08 fc 1f f5  |ng",380,350.....|
00001770  3a c8 97 20 6d 78 2c 6d  79 2c 6d 62 3a fd a6 2d  |:.. mx,my,mb:..-|
00001780  39 39 20 84 20 6d 62 3c  3e 30 0d 09 06 05 e1 0d  |99 . mb<>0......|
00001790  09 10 05 3a 0d 09 1a 0d  dd f2 63 6f 6e 63 65 65  |...:......concee|
000017a0  64 0d 09 24 18 e7 20 67  6f 3d 31 20 8c 20 73 72  |d..$.. go=1 . sr|
000017b0  3d 30 20 8b 20 73 67 3d  30 0d 09 2e 09 63 6f 6e  |=0 . sg=0....con|
000017c0  3d 31 0d 09 38 05 e1 0d  09 42 05 3a 0d 09 4c 0a  |=1..8....B.:..L.|
000017d0  dd f2 63 6f 6d 70 0d 09  56 1b 6f 6c 64 78 3d 30  |..comp..V.oldx=0|
000017e0  3a 6f 6c 64 79 3d 30 3a  63 78 3d 30 3a 63 79 3d  |:oldy=0:cx=0:cy=|
000017f0  30 0d 09 60 23 64 65 78  3d 30 3a 64 65 79 3d 30  |0..`#dex=0:dey=0|
00001800  3a 6d 61 78 74 61 6b 65  3d 2d 31 3a 70 6f 73 6d  |:maxtake=-1:posm|
00001810  6f 76 3d 30 0d 09 6a 2e  f4 20 74 68 65 20 73 69  |ov=0..j.. the si|
00001820  6e 67 6c 65 20 67 6f 74  6f 20 69 6e 20 74 68 69  |ngle goto in thi|
00001830  73 20 70 72 6f 67 2e 20  67 6f 65 73 20 68 65 72  |s prog. goes her|
00001840  65 21 0d 09 74 12 e3 41  3d 31 b8 31 30 3a e3 42  |e!..t..A=1.10:.B|
00001850  3d 31 b8 36 0d 09 7e 14  e7 20 6d 61 70 28 41 2c  |=1.6..~.. map(A,|
00001860  42 29 3d 63 67 6f 20 8c  0d 09 88 0a 73 74 65 70  |B)=cgo .....step|
00001870  3d 32 0d 09 92 10 e3 52  3d 2d 32 b8 32 3a 53 3d  |=2.....R=-2.2:S=|
00001880  2d 32 0d 09 9c 17 64 65  78 3d 41 2b 52 3a 64 65  |-2....dex=A+R:de|
00001890  79 3d 42 2b 53 3a f2 73  32 0d 09 a6 05 ed 0d 09  |y=B+S:.s2.......|
000018a0  b0 21 64 65 78 3d 41 2d  32 3a 64 65 79 3d 42 2d  |.!dex=A-2:dey=B-|
000018b0  31 3a 52 3d 2d 32 3a 53  3d 2d 31 3a f2 73 32 0d  |1:R=-2:S=-1:.s2.|
000018c0  09 ba 20 64 65 78 3d 41  2b 32 3a 64 65 79 3d 42  |.. dex=A+2:dey=B|
000018d0  2d 31 3a 52 3d 32 3a 53  3d 2d 31 3a f2 73 32 0d  |-1:R=2:S=-1:.s2.|
000018e0  09 c4 1e 64 65 78 3d 41  2d 32 3a 64 65 79 3d 42  |...dex=A-2:dey=B|
000018f0  3a 52 3d 2d 31 3a 53 3d  30 3a f2 73 32 0d 09 ce  |:R=-1:S=0:.s2...|
00001900  1d 64 65 78 3d 41 2b 32  3a 64 65 79 3d 42 3a 52  |.dex=A+2:dey=B:R|
00001910  3d 32 3a 53 3d 30 3a f2  73 32 0d 09 d8 20 64 65  |=2:S=0:.s2... de|
00001920  78 3d 41 2d 32 3a 64 65  79 3d 42 2b 31 3a 52 3d  |x=A-2:dey=B+1:R=|
00001930  2d 32 3a 53 3d 31 3a f2  73 32 0d 09 e2 1f 64 65  |-2:S=1:.s2....de|
00001940  78 3d 41 2b 32 3a 64 65  79 3d 42 2b 31 3a 52 3d  |x=A+2:dey=B+1:R=|
00001950  32 3a 53 3d 31 3a f2 73  32 0d 09 ec 0f e3 52 3d  |2:S=1:.s2.....R=|
00001960  2d 32 b8 32 3a 53 3d 32  0d 09 f6 17 64 65 78 3d  |-2.2:S=2....dex=|
00001970  41 2b 52 3a 64 65 79 3d  42 2b 53 3a f2 73 32 0d  |A+R:dey=B+S:.s2.|
00001980  0a 00 05 ed 0d 0a 0a 05  3a 0d 0a 14 1a 73 74 65  |........:....ste|
00001990  70 3d 31 3a e3 52 3d 2d  31 b8 31 3a e3 53 3d 2d  |p=1:.R=-1.1:.S=-|
000019a0  31 b8 31 0d 0a 1e 1a 64  65 78 3d 41 2b 52 3a 64  |1.1....dex=A+R:d|
000019b0  65 79 3d 42 2b 53 3a f2  74 61 6b 65 73 0d 0a 28  |ey=B+S:.takes..(|
000019c0  07 ed 3a ed 0d 0a 32 05  3a 0d 0a 3c 05 cd 0d 0a  |..:...2.:..<....|
000019d0  46 07 ed 3a ed 0d 0a 50  22 e7 20 70 6f 73 6d 6f  |F..:...P". posmo|
000019e0  76 3d 31 20 80 20 6d 61  78 74 61 6b 65 3d 2d 31  |v=1 . maxtake=-1|
000019f0  20 e5 20 8d 44 6a 49 0d  0a 5a 2d e7 20 6d 61 78  | . .DjI..Z-. max|
00001a00  74 61 6b 65 3d 2d 31 20  80 20 73 72 2b 73 67 3c  |take=-1 . sr+sg<|
00001a10  3e 36 30 2d 76 6f 69 64  73 20 8c 20 f2 63 6f 6e  |>60-voids . .con|
00001a20  63 65 65 64 0d 0a 64 25  73 65 6c 63 74 3d 31 3a  |ceed..d%selct=1:|
00001a30  f2 73 65 6c 65 63 74 28  6f 6c 64 78 2c 6f 6c 64  |.select(oldx,old|
00001a40  79 29 3a f2 70 61 75 73  65 0d 0a 6e 05 e1 0d 0a  |y):.pause..n....|
00001a50  78 05 3a 0d 0a 82 0b dd  f2 74 61 6b 65 73 0d 0a  |x.:......takes..|
00001a60  8c 17 e7 20 6d 61 70 28  64 65 78 2c 64 65 79 29  |... map(dex,dey)|
00001a70  3c 3e 30 20 e1 0d 0a 96  28 e7 20 64 65 78 3c 31  |<>0 ....(. dex<1|
00001a80  20 84 20 64 65 78 3e 31  30 20 84 20 64 65 79 3c  | . dex>10 . dey<|
00001a90  31 20 84 20 64 65 79 3e  36 20 8c 20 e1 0d 0a a0  |1 . dey>6 . ....|
00001aa0  27 e7 20 63 67 6f 3d 31  20 8c 20 74 6b 3d 32 3a  |'. cgo=1 . tk=2:|
00001ab0  74 61 6b 65 3d 32 20 8b  20 74 6b 3d 31 3a 74 61  |take=2 . tk=1:ta|
00001ac0  6b 65 3d 31 0d 0a aa 0c  70 6f 73 6d 6f 76 3d 31  |ke=1....posmov=1|
00001ad0  0d 0a b4 13 e3 4b 3d 2d  31 b8 31 3a e3 4c 3d 2d  |.....K=-1.1:.L=-|
00001ae0  31 b8 31 0d 0a be 23 e7  20 6d 61 70 28 64 65 78  |1.1...#. map(dex|
00001af0  2b 4b 2c 64 65 79 2b 4c  29 3d 74 61 6b 65 20 8c  |+K,dey+L)=take .|
00001b00  20 74 6b 2b 3d 31 0d 0a  c8 07 ed 3a ed 0d 0a d2  | tk+=1.....:....|
00001b10  0e e7 20 73 74 65 70 3d  31 20 8c 0d 0a dc 0f e7  |.. step=1 ......|
00001b20  20 64 69 66 66 3c 3e 31  20 8c 0d 0a e6 2e e7 20  | diff<>1 ...... |
00001b30  74 6b 3d 6d 61 78 74 61  6b 65 20 8c 20 6f 6c 64  |tk=maxtake . old|
00001b40  78 3d 41 3a 6f 6c 64 79  3d 42 3a 63 78 3d 64 65  |x=A:oldy=B:cx=de|
00001b50  78 3a 63 79 3d 64 65 79  0d 0a f0 39 e7 20 74 6b  |x:cy=dey...9. tk|
00001b60  3e 6d 61 78 74 61 6b 65  20 8c 20 6d 61 78 74 61  |>maxtake . maxta|
00001b70  6b 65 3d 74 6b 3a 6f 6c  64 78 3d 41 3a 6f 6c 64  |ke=tk:oldx=A:old|
00001b80  79 3d 42 3a 63 78 3d 64  65 78 3a 63 79 3d 64 65  |y=B:cx=dex:cy=de|
00001b90  79 0d 0a fa 05 cc 0d 0b  04 36 e7 20 b3 28 31 30  |y........6. .(10|
00001ba0  29 3e 35 20 8c 20 6d 61  78 74 61 6b 65 3d 74 6b  |)>5 . maxtake=tk|
00001bb0  3a 6f 6c 64 78 3d 41 3a  6f 6c 64 79 3d 42 3a 63  |:oldx=A:oldy=B:c|
00001bc0  78 3d 64 65 78 3a 63 79  3d 64 65 79 0d 0b 0e 05  |x=dex:cy=dey....|
00001bd0  cd 0d 0b 18 05 cc 0d 0b  22 0f e7 20 64 69 66 66  |........".. diff|
00001be0  3c 3e 32 20 8c 0d 0b 2c  52 e7 20 b3 28 31 30 29  |<>2 ...,R. .(10)|
00001bf0  3e 35 20 80 20 74 6b 3e  74 6b 65 28 64 69 66 66  |>5 . tk>tke(diff|
00001c00  29 20 84 20 6d 61 78 74  61 6b 65 3d 2d 31 20 8c  |) . maxtake=-1 .|
00001c10  20 6d 61 78 74 61 6b 65  3d 74 6b 3a 6f 6c 64 78  | maxtake=tk:oldx|
00001c20  3d 41 3a 6f 6c 64 79 3d  42 3a 63 78 3d 64 65 78  |=A:oldy=B:cx=dex|
00001c30  3a 63 79 3d 64 65 79 0d  0b 36 05 cc 0d 0b 40 59  |:cy=dey..6....@Y|
00001c40  e7 20 74 6b 3e 35 20 80  20 74 6b 3e 6d 61 78 74  |. tk>5 . tk>maxt|
00001c50  61 6b 65 20 84 20 6d 61  78 74 61 6b 65 3d 30 20  |ake . maxtake=0 |
00001c60  84 20 6d 61 78 74 61 6b  65 3d 2d 31 20 8c 20 6d  |. maxtake=-1 . m|
00001c70  61 78 74 61 6b 65 3d 74  6b 3a 6f 6c 64 78 3d 41  |axtake=tk:oldx=A|
00001c80  3a 6f 6c 64 79 3d 42 3a  63 78 3d 64 65 78 3a 63  |:oldy=B:cx=dex:c|
00001c90  79 3d 64 65 79 0d 0b 4a  05 cd 0d 0b 54 05 cd 0d  |y=dey..J....T...|
00001ca0  0b 5e 05 e1 0d 0b 68 05  3a 0d 0b 72 08 dd f2 73  |.^....h.:..r...s|
00001cb0  32 0d 0b 7c 2b e7 20 64  65 78 3e 30 20 80 20 64  |2..|+. dex>0 . d|
00001cc0  65 78 3c 31 31 20 80 20  64 65 79 3e 30 20 80 20  |ex<11 . dey>0 . |
00001cd0  64 65 79 3c 37 20 f2 74  61 6b 65 73 0d 0b 86 05  |dey<7 .takes....|
00001ce0  e1 0d 0b 90 05 3a 0d 0b  9a 0a dd f2 64 69 66 66  |.....:......diff|
00001cf0  0d 0b a4 0e f2 63 6c 5f  73 63 72 65 65 6e 0d 0b  |.....cl_screen..|
00001d00  ae 20 c8 99 20 73 70 24  2c 32 39 30 2c 73 70 2c  |. .. sp$,290,sp,|
00001d10  22 64 69 66 66 22 2c 34  35 30 2c 34 30 30 0d 0b  |"diff",450,400..|
00001d20  b8 1a f5 3a f5 3a c8 97  20 6d 78 2c 6d 79 2c 6d  |...:.:.. mx,my,m|
00001d30  62 3a fd 6d 62 3c 3e 30  0d 0b c2 32 e7 20 6d 78  |b:.mb<>0...2. mx|
00001d40  3e 34 38 30 20 80 20 6d  78 3c 35 39 30 20 80 20  |>480 . mx<590 . |
00001d50  6d 79 3e 34 33 30 20 80  20 6d 79 3c 35 36 30 20  |my>430 . my<560 |
00001d60  8c 20 64 69 66 66 3d 31  3a e1 0d 0b cc 32 e7 20  |. diff=1:....2. |
00001d70  6d 78 3e 36 33 30 20 80  20 6d 78 3c 37 34 30 20  |mx>630 . mx<740 |
00001d80  80 20 6d 79 3e 34 33 30  20 80 20 6d 79 3c 35 36  |. my>430 . my<56|
00001d90  30 20 8c 20 64 69 66 66  3d 32 3a e1 0d 0b d6 06  |0 . diff=2:.....|
00001da0  fd 2e 0d 0b e0 05 e1 0d  0b ea 05 3a 0d 0b f4 26  |...........:...&|
00001db0  f4 20 56 5f 32 20 3a 20  46 69 6e 69 73 68 65 64  |. V_2 : Finished|
00001dc0  20 38 2f 38 2f 31 39 39  32 20 3a 20 4e 2e 4a 2e  | 8/8/1992 : N.J.|
00001dd0  4c 2e 0d ff                                       |L...|
00001dd4