$� >Hneftafl - a game for Vikings
 �  By Dave Lawrence, 01Feb95
B�  Based on rules from Jan Af Geijerstam uploaded to Arcade BB
(
2!� � � � �,�$+" at line "+Þ:�
<	�mode
F	�init
P�palette
Z�sprites
d�
n
 �newgame
x	 ȗ �
� �
�9  � winner<0 � �0,0);�p$(player)+�8," "),8)'"to play"
�  move$=�player(player)
�  Ȏ �move$,1) �
�
   � "M":
�    move$(move)=move$
�'    move+=1:� move>max_moves move=0
�    last_move=move
�P    � last_move=first_move first_move+=1:� first_move>max_moves first_move=0
�    player=1-player
�
   � "U":
�    move-=1
�     � move<0 move+=max_moves

!    player=�undo(move$(move))

    �winner(-1)


   � "R":

"!    player=�redo(move$(move))

,    move+=1

6    � move>max_moves move=0

@
   � "P":

J    player=1-player

T
   � "Q":

^    restart=�

h  �

r   

| � restart

�� �

��

�

�� �init

�max_moves=100

�S� board(11,11),state(11,11),t(4,3),button(1),dx(3),dy(3),move$(max_moves),p$(1)

�spop=�swi("OS_SpriteOp")

�button()=4,1

�board()=-1

�dx()=0,1,0,-1

�dy()=1,0,-1,0

�p$()="Swedish","Moskovit"

�
� y=1 � 9
	 � a$
 � x=1 � 9
  Ȏ �a$,x,1) �
&   � "." : z=0
0   � "S" : z=1
:   � "X" : z=2
D   � "M" : z=3
N   : � 1,"Bad string"
X  �
b  board(x,y)=z
l �
v�
�
� b=0 � 3
� � s=0 � 4
�  � t(s,b)
� �
��
��
�:
�� ...MMM...
�� ....M....
�� ....S....
�� M...S...M
�� MMSSXSSMM
�� M...S...M
� ....S....
� ....M....
� ...MMM...
 :
*� 0, 3, 4, 6, 6
4� 0, 3, 4, 6, 6
>� 1,-1, 5,-1,-1
H� 2,-1,-1, 7, 7
R:
\� �palette
f�  0,&00,&00,&00 : � fg .
p�  1,&A0,&A0,&A0 : � fg S
z�  2,&80,&80,&80 : � fg X
��  3,&D0,&00,&00 : � fg M
�#�  4,&D0,&00,&00 : � fg M (out)
��  7,&FF,&FF,&FF
��  8,&00,&00,&00 : � bg .
��  9,&00,&00,&00 : � bg S
�� 10,&40,&40,&40 : � bg X
�� 11,&40,&00,&00 : � bg M
�'� 12,&00,&00,&00 : � bg M (out) N/A
�� 15,&20,&20,&20
��
�
�� �newgame
�state()=board()
player=0
�winner(-1)

� y=1 � 9
$ � x=1 � 9
.  �square(x,y)
8 �
B�
L
move=0
Vlast_move=0
`first_move=0
j
restart=�
t�
~:
�� �winner(w)
�winner=w
�� �0,0);
�� w=-1 �
� � ��p$(1)'��p$(1)
��
� � p$(winner)'"wins!  "
��
��
�:
�� �square(x,y)
�Rș spop,&122,sprites,�t(state(x,y),board(x,y)),xorg+(x-1)*size,yorg+(y-1)*size
�

:
� �tile(x,y,s,b)
!� s>=0 t=t(s,b) � t=5+t(-s,b)
(;ș spop,&122,sprites,�t,xorg+(x-1)*size,yorg+(y-1)*size
2�
<:
F
� �key
P	k$=�0
Z$� k$>="a" � k$<="z" k$=�(�k$-32)
d� k$="P" � =k$
n� k$="Q" � =k$
x%� k$="U" � move<>first_move � =k$
�$� k$="R" � move<>last_move � =k$
�=""
�:
�� �player(p)
��
� �
�  �
�   ȗ x,y,z
�   k$=�key
�   � k$<>"" � =k$
  � z<>0
  x1=((x-xorg) � size)+1
  y1=((y-yorg) � size)+1
" � �start_ok(x1,y1,p)
6, �tile(x1,y1,-state(x1,y1),board(x1,y1))
@
 ox=x1
J
 oy=y1
T �
^  ȗ x,y,z
|
  k$=�key
�  � k$<>"" �
�   �square(ox,oy)
�   �square(x1,y1)
�
   =k$
�  �
�  x2=((x-xorg) � size)+1
�  y2=((y-yorg) � size)+1
�!  � �end_ok(x2,y2, x1,y1,p) �
�   � x2<>ox � y2<>oy �
�#    �tile(ox,oy,0,board(ox,oy))
�/    �tile(x2,y2,-state(x1,y1),board(x2,y2))
�
    ox=x2
�
    oy=y2
   �
  �

 � z=0
 x2=ox:y2=oy
0# � x2=x1 � y2=y1 �square(x1,y1)
:� x2<>x1 � y2<>y1
D2m$=�x1+�y1+�state(x1,y1)+�x2+�y2+�state(x2,y2)
N�move(x1,y1,x2,y2)
Xm$+=�take(x2,y2)
b="M"+�p+m$
l:
v� �start_ok(sx,sy,p)
�/� cannot continue playing if already won...
�� winner<>-1 � =�
�� no squares off board
�$� sx<1 � sy<1 � sx>9 � sy>9 � =�
�ss=state(sx,sy)
�� swedish pieces = 1 and 2
� � (p=0 � (ss=1 � ss=2)) � =�
�!� moskovit pieces = (3 and 4)
� � (p=1 � (ss=3 � ss=4)) � =�
�=�
�:
�� �end_ok(ex,ey, sx,sy,p)
�� not allowed off board...
$� ex<1 � ey<1 � ex>9 � ey>9 � =�
ss=state(sx,sy)
es=state(ex,ey)
 eb=board(ex,ey)
*(� is allowed back to start square...
4� ex=sx � ey=sy � =�
>/� not allowed off vertical or horizontal...
H� ex<>sx � ey<>sy � =�
R"� check each square in move...
\xx=sx:yy=sy:zz=ss
f�
p xx+=�(ex-sx) 
z yy+=�(ey-sy)
�R � squares must be empty, not castle and not camp unless piece moved from camp
�E no=(state(xx,yy)<>0 � board(xx,yy)=2 � (board(xx,yy)=3 � zz<>3))
�" � zz=3 � board(xx,yy)<>3 zz=4
�� xx=ex � yy=ey � no
�
� no � =�
�C� cannot end up on castle or camp square [unless a camped M]...
�,�IF eb=2 OR (eb=3 AND ss<>3) THEN =FALSE
�=�
�:
�� �move(sx,sy,ex,ey)
�state(ex,ey)=state(sx,sy)
�state(sx,sy)=0
�-� 'demote' moskovits when they leave camp
	5� state(ex,ey)=3 � board(ex,ey)<>3 state(ex,ey)=4
	;� swedish wins when chief reaches the edge of the board
	=� state(ex,ey)=2 � (ex=1 � ex=9 � ey=1 � ey=9) �winner(0)
	$�square(sx,sy)
	.�square(ex,ey)
	8�
	B:
	L� �remove(rx,ry)
	Vr$=�rx+�ry+�state(rx,ry)
	`state(rx,ry)=0
	j�square(rx,ry)
	t=r$
	~:
	�� �take(tx,ty)
	�� t$
	�	t$=""
	�� chief cannot attack...
	�ts=state(tx,ty)
	�� ts=2 � =""
	�
� d=0 � 3
	� x1=tx+dx(d):y1=ty+dy(d)
	� s1=state(x1,y1)
	�
 � ts=1 �
	�  � swedish attack...
	�  � s1=3 � s1=4 �
%   � if next piece is moskovit...

%   � state(x1+dx(d),y1+dy(d))=1 �
?    � and *next* piece is swedish (but not chief) then take
    t$+=�remove(x1,y1)
(   �
2  �
< �
F#  � moskovit attack... (3 or 4)
P
  Ȏ s1 �
Z
  � 1:
d*   � if attacking a swedish soldier...
n"   s2=state(x1+dx(d),y1+dy(d))
x   � s2=3 � s2=4 �
�0    � and *next* piece is moskovit then take
�    t$+=�remove(x1,y1)
�   �
�
  � 2:
�&   � if attacking swedish chief...
�
   n=0
�   � e=0 � 3
�R    � if all surrounding squares are moskovits (not in camp) or their camps...
�C    � state(x1+dx(e),y1+dy(e))=4 � board(x1+dx(e),y1+dy(e))=3 �
�
     n+=1
�	    �
�   �
�   � n=4 �
    � ...game is won
    t$+=�remove(x1,y1)
    �winner(1)
"   �
,  �
6 �
@�
J=t$
T:
^� �undo(m$)
h� M p [x y s]*
rp=��m$,2,1)
|
m$=�m$,3)
�
ȕ m$<>""
� x=��m$,1,1)
� y=��m$,2,1)
� s=��m$,3,1)
� state(x,y)=s
� �square(x,y)
� m$=�m$,4)
��
�=p
�:
�� �redo(m$)
�p=��m$,2,1)
�x1=��m$,3,1)
y1=��m$,4,1)
x2=��m$,6,1)
y2=��m$,7,1)
&�move(x1,y1,x2,y2)
0z$=�take(x2,y2)
:=1-p
D:
N : --------------------------
X:
b� �sprites
ltiles=13
v)w=4*((((size>>�modevar(4))+1) � 8)+1)
�%mem=w*((size>>�modevar(5))+1)+256
�(sprites=�sprite_area(tiles*mem+1024)
�n=0
��
� � fg,bg
� � fg<>-1 �
�  �draw(fg,bg,-1)
�  �grab(�n,0,0,size,size)
�  � fg<>0 �
�   �draw(fg,bg,15)
�"   �grab(�(n+5),0,0,size,size)
�  �
�
  n+=1

 �

� fg=-1

'� n+5<>tiles � 1,"Tiles gorn wrong"

 �

*�

4:

>� 0,9, 0,10, 0,11

H	� 1,9

R� 2,9, 2,10

\� 3,9,       3,11

f� -1,-1

p:

z� �draw(fg,bg,sh)

�� bg

� ȓ Ȑ 0,0,size-1

�� 15

� ȓ 0,0,size

�� fg>0 �

� xc=size/2

� yc=size/2

� r=size*2/5

� � sh<>-1 �

�
  � sh

�  ȏ Ȑ xc+4,yc-4,r

�  xc-=4

�  yc+=4
 �
	 � fg
 ȏ Ȑ xc,yc,r
$
 � fg=2 �
.
 r=r/�(2)
8
  � 10
B  � xc-r,yc+r:� xc+r,yc-r
L  � xc-r,yc-r:� xc+r,yc+r
V �
`�
j�
t:
~: ----------
�:
�� �swi(swi$)
�+ș "OS_SWINumberFromString",,swi$ � swi
�=swi
�:
�� �mode
�mode=12
�� �check_mode(20) mode=20
�� �check_mode(27) mode=27
�� mode:�
�)screenx=(�modevar(11)+1)<<�modevar(4)
�)screeny=(�modevar(12)+1)<<�modevar(5)
+� screenx<screeny s=screenx � s=screeny

size=((s � 9) � 4)*4
xorg=(screenx-size*9)/2
yorg=(screeny-size*9)/2
(�
2
<� �check_mode(mode)
F$ș "OS_CheckModeValid",mode � ok
P
=(ok<>-1)
Z:
d� �modevar(var)
n+ș "OS_ReadModeVariable",-1,var � ,,val
x=val
�:
�� �sprite_area(size)
�� s size
�!s=size
�
s!8=16
�ș spop,&109,s
�=s
�:
�� �grab(name$,x0,y0,x1,y1)
�,ș spop,&110,sprites,name$,1,x0,y0,x1,y1
��
�

00000000  0d 00 0a 24 f4 20 3e 48  6e 65 66 74 61 66 6c 20  |...$. >Hneftafl |
00000010  2d 20 61 20 67 61 6d 65  20 66 6f 72 20 56 69 6b  |- a game for Vik|
00000020  69 6e 67 73 0d 00 14 20  f4 20 20 42 79 20 44 61  |ings... .  By Da|
00000030  76 65 20 4c 61 77 72 65  6e 63 65 2c 20 30 31 46  |ve Lawrence, 01F|
00000040  65 62 39 35 0d 00 1e 42  f4 20 20 42 61 73 65 64  |eb95...B.  Based|
00000050  20 6f 6e 20 72 75 6c 65  73 20 66 72 6f 6d 20 4a  | on rules from J|
00000060  61 6e 20 41 66 20 47 65  69 6a 65 72 73 74 61 6d  |an Af Geijerstam|
00000070  20 75 70 6c 6f 61 64 65  64 20 74 6f 20 41 72 63  | uploaded to Arc|
00000080  61 64 65 20 42 42 0d 00  28 04 0d 00 32 21 ee 20  |ade BB..(...2!. |
00000090  85 20 85 20 a2 20 9f 2c  f6 24 2b 22 20 61 74 20  |. . . .,.$+" at |
000000a0  6c 69 6e 65 20 22 2b c3  9e 3a e0 0d 00 3c 09 f2  |line "+..:...<..|
000000b0  6d 6f 64 65 0d 00 46 09  f2 69 6e 69 74 0d 00 50  |mode..F..init..P|
000000c0  0c f2 70 61 6c 65 74 74  65 0d 00 5a 0c f2 73 70  |..palette..Z..sp|
000000d0  72 69 74 65 73 0d 00 64  05 f5 0d 00 6e 0d 20 f2  |rites..d....n. .|
000000e0  6e 65 77 67 61 6d 65 0d  00 78 09 20 c8 97 20 ee  |newgame..x. .. .|
000000f0  0d 00 82 06 20 f5 0d 00  8c 39 20 20 e7 20 77 69  |.... ....9  . wi|
00000100  6e 6e 65 72 3c 30 20 f1  20 8a 30 2c 30 29 3b c0  |nner<0 . .0,0);.|
00000110  70 24 28 70 6c 61 79 65  72 29 2b c4 38 2c 22 20  |p$(player)+.8," |
00000120  22 29 2c 38 29 27 22 74  6f 20 70 6c 61 79 22 0d  |"),8)'"to play".|
00000130  00 96 1b 20 20 6d 6f 76  65 24 3d a4 70 6c 61 79  |...  move$=.play|
00000140  65 72 28 70 6c 61 79 65  72 29 0d 00 a0 14 20 20  |er(player)....  |
00000150  c8 8e 20 c0 6d 6f 76 65  24 2c 31 29 20 ca 0d 00  |.. .move$,1) ...|
00000160  aa 0d 20 20 20 c9 20 22  4d 22 3a 0d 00 b4 19 20  |..   . "M":.... |
00000170  20 20 20 6d 6f 76 65 24  28 6d 6f 76 65 29 3d 6d  |   move$(move)=m|
00000180  6f 76 65 24 0d 00 be 27  20 20 20 20 6d 6f 76 65  |ove$...'    move|
00000190  2b 3d 31 3a e7 20 6d 6f  76 65 3e 6d 61 78 5f 6d  |+=1:. move>max_m|
000001a0  6f 76 65 73 20 6d 6f 76  65 3d 30 0d 00 c8 16 20  |oves move=0.... |
000001b0  20 20 20 6c 61 73 74 5f  6d 6f 76 65 3d 6d 6f 76  |   last_move=mov|
000001c0  65 0d 00 d2 50 20 20 20  20 e7 20 6c 61 73 74 5f  |e...P    . last_|
000001d0  6d 6f 76 65 3d 66 69 72  73 74 5f 6d 6f 76 65 20  |move=first_move |
000001e0  66 69 72 73 74 5f 6d 6f  76 65 2b 3d 31 3a e7 20  |first_move+=1:. |
000001f0  66 69 72 73 74 5f 6d 6f  76 65 3e 6d 61 78 5f 6d  |first_move>max_m|
00000200  6f 76 65 73 20 66 69 72  73 74 5f 6d 6f 76 65 3d  |oves first_move=|
00000210  30 0d 00 dc 17 20 20 20  20 70 6c 61 79 65 72 3d  |0....    player=|
00000220  31 2d 70 6c 61 79 65 72  0d 00 e6 0d 20 20 20 c9  |1-player....   .|
00000230  20 22 55 22 3a 0d 00 f0  0f 20 20 20 20 6d 6f 76  | "U":....    mov|
00000240  65 2d 3d 31 0d 00 fa 20  20 20 20 20 e7 20 6d 6f  |e-=1...     . mo|
00000250  76 65 3c 30 20 6d 6f 76  65 2b 3d 6d 61 78 5f 6d  |ve<0 move+=max_m|
00000260  6f 76 65 73 0d 01 04 21  20 20 20 20 70 6c 61 79  |oves...!    play|
00000270  65 72 3d a4 75 6e 64 6f  28 6d 6f 76 65 24 28 6d  |er=.undo(move$(m|
00000280  6f 76 65 29 29 0d 01 0e  13 20 20 20 20 f2 77 69  |ove))....    .wi|
00000290  6e 6e 65 72 28 2d 31 29  0d 01 18 0d 20 20 20 c9  |nner(-1)....   .|
000002a0  20 22 52 22 3a 0d 01 22  21 20 20 20 20 70 6c 61  | "R":.."!    pla|
000002b0  79 65 72 3d a4 72 65 64  6f 28 6d 6f 76 65 24 28  |yer=.redo(move$(|
000002c0  6d 6f 76 65 29 29 0d 01  2c 0f 20 20 20 20 6d 6f  |move))..,.    mo|
000002d0  76 65 2b 3d 31 0d 01 36  1f 20 20 20 20 e7 20 6d  |ve+=1..6.    . m|
000002e0  6f 76 65 3e 6d 61 78 5f  6d 6f 76 65 73 20 6d 6f  |ove>max_moves mo|
000002f0  76 65 3d 30 0d 01 40 0d  20 20 20 c9 20 22 50 22  |ve=0..@.   . "P"|
00000300  3a 0d 01 4a 17 20 20 20  20 70 6c 61 79 65 72 3d  |:..J.    player=|
00000310  31 2d 70 6c 61 79 65 72  0d 01 54 0d 20 20 20 c9  |1-player..T.   .|
00000320  20 22 51 22 3a 0d 01 5e  11 20 20 20 20 72 65 73  | "Q":..^.    res|
00000330  74 61 72 74 3d b9 0d 01  68 07 20 20 cb 0d 01 72  |tart=...h.  ...r|
00000340  07 20 20 20 0d 01 7c 0e  20 fd 20 72 65 73 74 61  |.   ..|. . resta|
00000350  72 74 0d 01 86 07 fd 20  a3 0d 01 90 05 e0 0d 01  |rt..... ........|
00000360  9a 04 0d 01 a4 0b dd 20  f2 69 6e 69 74 0d 01 ae  |....... .init...|
00000370  11 6d 61 78 5f 6d 6f 76  65 73 3d 31 30 30 0d 01  |.max_moves=100..|
00000380  b8 53 de 20 62 6f 61 72  64 28 31 31 2c 31 31 29  |.S. board(11,11)|
00000390  2c 73 74 61 74 65 28 31  31 2c 31 31 29 2c 74 28  |,state(11,11),t(|
000003a0  34 2c 33 29 2c 62 75 74  74 6f 6e 28 31 29 2c 64  |4,3),button(1),d|
000003b0  78 28 33 29 2c 64 79 28  33 29 2c 6d 6f 76 65 24  |x(3),dy(3),move$|
000003c0  28 6d 61 78 5f 6d 6f 76  65 73 29 2c 70 24 28 31  |(max_moves),p$(1|
000003d0  29 0d 01 c2 1c 73 70 6f  70 3d a4 73 77 69 28 22  |)....spop=.swi("|
000003e0  4f 53 5f 53 70 72 69 74  65 4f 70 22 29 0d 01 cc  |OS_SpriteOp")...|
000003f0  10 62 75 74 74 6f 6e 28  29 3d 34 2c 31 0d 01 d6  |.button()=4,1...|
00000400  0e 62 6f 61 72 64 28 29  3d 2d 31 0d 01 e0 11 64  |.board()=-1....d|
00000410  78 28 29 3d 30 2c 31 2c  30 2c 2d 31 0d 01 ea 11  |x()=0,1,0,-1....|
00000420  64 79 28 29 3d 31 2c 30  2c 2d 31 2c 30 0d 01 f4  |dy()=1,0,-1,0...|
00000430  1d 70 24 28 29 3d 22 53  77 65 64 69 73 68 22 2c  |.p$()="Swedish",|
00000440  22 4d 6f 73 6b 6f 76 69  74 22 0d 01 fe 0d e3 20  |"Moskovit"..... |
00000450  79 3d 31 20 b8 20 39 0d  02 08 09 20 f3 20 61 24  |y=1 . 9.... . a$|
00000460  0d 02 12 0e 20 e3 20 78  3d 31 20 b8 20 39 0d 02  |.... . x=1 . 9..|
00000470  1c 13 20 20 c8 8e 20 c1  61 24 2c 78 2c 31 29 20  |..  .. .a$,x,1) |
00000480  ca 0d 02 26 12 20 20 20  c9 20 22 2e 22 20 3a 20  |...&.   . "." : |
00000490  7a 3d 30 0d 02 30 12 20  20 20 c9 20 22 53 22 20  |z=0..0.   . "S" |
000004a0  3a 20 7a 3d 31 0d 02 3a  12 20 20 20 c9 20 22 58  |: z=1..:.   . "X|
000004b0  22 20 3a 20 7a 3d 32 0d  02 44 12 20 20 20 c9 20  |" : z=2..D.   . |
000004c0  22 4d 22 20 3a 20 7a 3d  33 0d 02 4e 1a 20 20 20  |"M" : z=3..N.   |
000004d0  7f 3a 20 85 20 31 2c 22  42 61 64 20 73 74 72 69  |.: . 1,"Bad stri|
000004e0  6e 67 22 0d 02 58 07 20  20 cb 0d 02 62 12 20 20  |ng"..X.  ...b.  |
000004f0  62 6f 61 72 64 28 78 2c  79 29 3d 7a 0d 02 6c 06  |board(x,y)=z..l.|
00000500  20 ed 0d 02 76 05 ed 0d  02 80 0d e3 20 62 3d 30  | ...v....... b=0|
00000510  20 b8 20 33 0d 02 8a 0e  20 e3 20 73 3d 30 20 b8  | . 3.... . s=0 .|
00000520  20 34 0d 02 94 0e 20 20  f3 20 74 28 73 2c 62 29  | 4....  . t(s,b)|
00000530  0d 02 9e 06 20 ed 0d 02  a8 05 ed 0d 02 b2 05 e1  |.... ...........|
00000540  0d 02 bc 05 3a 0d 02 c6  0f dc 20 2e 2e 2e 4d 4d  |....:..... ...MM|
00000550  4d 2e 2e 2e 0d 02 d0 0f  dc 20 2e 2e 2e 2e 4d 2e  |M........ ....M.|
00000560  2e 2e 2e 0d 02 da 0f dc  20 2e 2e 2e 2e 53 2e 2e  |........ ....S..|
00000570  2e 2e 0d 02 e4 0f dc 20  4d 2e 2e 2e 53 2e 2e 2e  |....... M...S...|
00000580  4d 0d 02 ee 0f dc 20 4d  4d 53 53 58 53 53 4d 4d  |M..... MMSSXSSMM|
00000590  0d 02 f8 0f dc 20 4d 2e  2e 2e 53 2e 2e 2e 4d 0d  |..... M...S...M.|
000005a0  03 02 0f dc 20 2e 2e 2e  2e 53 2e 2e 2e 2e 0d 03  |.... ....S......|
000005b0  0c 0f dc 20 2e 2e 2e 2e  4d 2e 2e 2e 2e 0d 03 16  |... ....M.......|
000005c0  0f dc 20 2e 2e 2e 4d 4d  4d 2e 2e 2e 0d 03 20 05  |.. ...MMM..... .|
000005d0  3a 0d 03 2a 13 dc 20 30  2c 20 33 2c 20 34 2c 20  |:..*.. 0, 3, 4, |
000005e0  36 2c 20 36 0d 03 34 13  dc 20 30 2c 20 33 2c 20  |6, 6..4.. 0, 3, |
000005f0  34 2c 20 36 2c 20 36 0d  03 3e 13 dc 20 31 2c 2d  |4, 6, 6..>.. 1,-|
00000600  31 2c 20 35 2c 2d 31 2c  2d 31 0d 03 48 13 dc 20  |1, 5,-1,-1..H.. |
00000610  32 2c 2d 31 2c 2d 31 2c  20 37 2c 20 37 0d 03 52  |2,-1,-1, 7, 7..R|
00000620  05 3a 0d 03 5c 0e dd 20  f2 70 61 6c 65 74 74 65  |.:..\.. .palette|
00000630  0d 03 66 1d fb 20 20 30  2c 26 30 30 2c 26 30 30  |..f..  0,&00,&00|
00000640  2c 26 30 30 20 3a 20 f4  20 66 67 20 2e 0d 03 70  |,&00 : . fg ...p|
00000650  1d fb 20 20 31 2c 26 41  30 2c 26 41 30 2c 26 41  |..  1,&A0,&A0,&A|
00000660  30 20 3a 20 f4 20 66 67  20 53 0d 03 7a 1d fb 20  |0 : . fg S..z.. |
00000670  20 32 2c 26 38 30 2c 26  38 30 2c 26 38 30 20 3a  | 2,&80,&80,&80 :|
00000680  20 f4 20 66 67 20 58 0d  03 84 1d fb 20 20 33 2c  | . fg X.....  3,|
00000690  26 44 30 2c 26 30 30 2c  26 30 30 20 3a 20 f4 20  |&D0,&00,&00 : . |
000006a0  66 67 20 4d 0d 03 8e 23  fb 20 20 34 2c 26 44 30  |fg M...#.  4,&D0|
000006b0  2c 26 30 30 2c 26 30 30  20 3a 20 f4 20 66 67 20  |,&00,&00 : . fg |
000006c0  4d 20 28 6f 75 74 29 0d  03 98 14 fb 20 20 37 2c  |M (out).....  7,|
000006d0  26 46 46 2c 26 46 46 2c  26 46 46 0d 03 a2 1d fb  |&FF,&FF,&FF.....|
000006e0  20 20 38 2c 26 30 30 2c  26 30 30 2c 26 30 30 20  |  8,&00,&00,&00 |
000006f0  3a 20 f4 20 62 67 20 2e  0d 03 ac 1d fb 20 20 39  |: . bg ......  9|
00000700  2c 26 30 30 2c 26 30 30  2c 26 30 30 20 3a 20 f4  |,&00,&00,&00 : .|
00000710  20 62 67 20 53 0d 03 b6  1d fb 20 31 30 2c 26 34  | bg S..... 10,&4|
00000720  30 2c 26 34 30 2c 26 34  30 20 3a 20 f4 20 62 67  |0,&40,&40 : . bg|
00000730  20 58 0d 03 c0 1d fb 20  31 31 2c 26 34 30 2c 26  | X..... 11,&40,&|
00000740  30 30 2c 26 30 30 20 3a  20 f4 20 62 67 20 4d 0d  |00,&00 : . bg M.|
00000750  03 ca 27 fb 20 31 32 2c  26 30 30 2c 26 30 30 2c  |..'. 12,&00,&00,|
00000760  26 30 30 20 3a 20 f4 20  62 67 20 4d 20 28 6f 75  |&00 : . bg M (ou|
00000770  74 29 20 4e 2f 41 0d 03  d4 14 fb 20 31 35 2c 26  |t) N/A..... 15,&|
00000780  32 30 2c 26 32 30 2c 26  32 30 0d 03 de 05 e1 0d  |20,&20,&20......|
00000790  03 e8 04 0d 03 f2 0e dd  20 f2 6e 65 77 67 61 6d  |........ .newgam|
000007a0  65 0d 03 fc 13 73 74 61  74 65 28 29 3d 62 6f 61  |e....state()=boa|
000007b0  72 64 28 29 0d 04 06 0c  70 6c 61 79 65 72 3d 30  |rd()....player=0|
000007c0  0d 04 10 0f f2 77 69 6e  6e 65 72 28 2d 31 29 0d  |.....winner(-1).|
000007d0  04 1a 0d e3 20 79 3d 31  20 b8 20 39 0d 04 24 0e  |.... y=1 . 9..$.|
000007e0  20 e3 20 78 3d 31 20 b8  20 39 0d 04 2e 12 20 20  | . x=1 . 9....  |
000007f0  f2 73 71 75 61 72 65 28  78 2c 79 29 0d 04 38 06  |.square(x,y)..8.|
00000800  20 ed 0d 04 42 05 ed 0d  04 4c 0a 6d 6f 76 65 3d  | ...B....L.move=|
00000810  30 0d 04 56 0f 6c 61 73  74 5f 6d 6f 76 65 3d 30  |0..V.last_move=0|
00000820  0d 04 60 10 66 69 72 73  74 5f 6d 6f 76 65 3d 30  |..`.first_move=0|
00000830  0d 04 6a 0d 72 65 73 74  61 72 74 3d a3 0d 04 74  |..j.restart=...t|
00000840  05 e1 0d 04 7e 05 3a 0d  04 88 10 dd 20 f2 77 69  |....~.:..... .wi|
00000850  6e 6e 65 72 28 77 29 0d  04 92 0c 77 69 6e 6e 65  |nner(w)....winne|
00000860  72 3d 77 0d 04 9c 0c f1  20 8a 30 2c 30 29 3b 0d  |r=w..... .0,0);.|
00000870  04 a6 0c e7 20 77 3d 2d  31 20 8c 0d 04 b0 16 20  |.... w=-1 ..... |
00000880  f1 20 89 a9 70 24 28 31  29 27 89 a9 70 24 28 31  |. ..p$(1)'..p$(1|
00000890  29 0d 04 ba 05 cc 0d 04  c4 1b 20 f1 20 70 24 28  |)......... . p$(|
000008a0  77 69 6e 6e 65 72 29 27  22 77 69 6e 73 21 20 20  |winner)'"wins!  |
000008b0  22 0d 04 ce 05 cd 0d 04  d8 05 e1 0d 04 e2 05 3a  |"..............:|
000008c0  0d 04 ec 12 dd 20 f2 73  71 75 61 72 65 28 78 2c  |..... .square(x,|
000008d0  79 29 0d 04 f6 52 c8 99  20 73 70 6f 70 2c 26 31  |y)...R.. spop,&1|
000008e0  32 32 2c 73 70 72 69 74  65 73 2c c3 74 28 73 74  |22,sprites,.t(st|
000008f0  61 74 65 28 78 2c 79 29  2c 62 6f 61 72 64 28 78  |ate(x,y),board(x|
00000900  2c 79 29 29 2c 78 6f 72  67 2b 28 78 2d 31 29 2a  |,y)),xorg+(x-1)*|
00000910  73 69 7a 65 2c 79 6f 72  67 2b 28 79 2d 31 29 2a  |size,yorg+(y-1)*|
00000920  73 69 7a 65 0d 05 00 05  e1 0d 05 0a 05 3a 0d 05  |size.........:..|
00000930  14 14 dd 20 f2 74 69 6c  65 28 78 2c 79 2c 73 2c  |... .tile(x,y,s,|
00000940  62 29 0d 05 1e 21 e7 20  73 3e 3d 30 20 74 3d 74  |b)...!. s>=0 t=t|
00000950  28 73 2c 62 29 20 8b 20  74 3d 35 2b 74 28 2d 73  |(s,b) . t=5+t(-s|
00000960  2c 62 29 0d 05 28 3b c8  99 20 73 70 6f 70 2c 26  |,b)..(;.. spop,&|
00000970  31 32 32 2c 73 70 72 69  74 65 73 2c c3 74 2c 78  |122,sprites,.t,x|
00000980  6f 72 67 2b 28 78 2d 31  29 2a 73 69 7a 65 2c 79  |org+(x-1)*size,y|
00000990  6f 72 67 2b 28 79 2d 31  29 2a 73 69 7a 65 0d 05  |org+(y-1)*size..|
000009a0  32 05 e1 0d 05 3c 05 3a  0d 05 46 0a dd 20 a4 6b  |2....<.:..F.. .k|
000009b0  65 79 0d 05 50 09 6b 24  3d bf 30 0d 05 5a 24 e7  |ey..P.k$=.0..Z$.|
000009c0  20 6b 24 3e 3d 22 61 22  20 80 20 6b 24 3c 3d 22  | k$>="a" . k$<="|
000009d0  7a 22 20 6b 24 3d bd 28  97 6b 24 2d 33 32 29 0d  |z" k$=.(.k$-32).|
000009e0  05 64 12 e7 20 6b 24 3d  22 50 22 20 8c 20 3d 6b  |.d.. k$="P" . =k|
000009f0  24 0d 05 6e 12 e7 20 6b  24 3d 22 51 22 20 8c 20  |$..n.. k$="Q" . |
00000a00  3d 6b 24 0d 05 78 25 e7  20 6b 24 3d 22 55 22 20  |=k$..x%. k$="U" |
00000a10  80 20 6d 6f 76 65 3c 3e  66 69 72 73 74 5f 6d 6f  |. move<>first_mo|
00000a20  76 65 20 8c 20 3d 6b 24  0d 05 82 24 e7 20 6b 24  |ve . =k$...$. k$|
00000a30  3d 22 52 22 20 80 20 6d  6f 76 65 3c 3e 6c 61 73  |="R" . move<>las|
00000a40  74 5f 6d 6f 76 65 20 8c  20 3d 6b 24 0d 05 8c 07  |t_move . =k$....|
00000a50  3d 22 22 0d 05 96 05 3a  0d 05 a0 10 dd 20 a4 70  |=""....:..... .p|
00000a60  6c 61 79 65 72 28 70 29  0d 05 b4 05 f5 0d 05 be  |layer(p)........|
00000a70  06 20 f5 0d 05 c8 07 20  20 f5 0d 05 d2 0f 20 20  |. .....  .....  |
00000a80  20 c8 97 20 78 2c 79 2c  7a 0d 05 f0 0e 20 20 20  | .. x,y,z....   |
00000a90  6b 24 3d a4 6b 65 79 0d  05 fa 15 20 20 20 e7 20  |k$=.key....   . |
00000aa0  6b 24 3c 3e 22 22 20 8c  20 3d 6b 24 0d 06 04 0c  |k$<>"" . =k$....|
00000ab0  20 20 fd 20 7a 3c 3e 30  0d 06 0e 1c 20 20 78 31  |  . z<>0....  x1|
00000ac0  3d 28 28 78 2d 78 6f 72  67 29 20 81 20 73 69 7a  |=((x-xorg) . siz|
00000ad0  65 29 2b 31 0d 06 18 1c  20 20 79 31 3d 28 28 79  |e)+1....  y1=((y|
00000ae0  2d 79 6f 72 67 29 20 81  20 73 69 7a 65 29 2b 31  |-yorg) . size)+1|
00000af0  0d 06 22 19 20 fd 20 a4  73 74 61 72 74 5f 6f 6b  |..". . .start_ok|
00000b00  28 78 31 2c 79 31 2c 70  29 0d 06 36 2c 20 f2 74  |(x1,y1,p)..6, .t|
00000b10  69 6c 65 28 78 31 2c 79  31 2c 2d 73 74 61 74 65  |ile(x1,y1,-state|
00000b20  28 78 31 2c 79 31 29 2c  62 6f 61 72 64 28 78 31  |(x1,y1),board(x1|
00000b30  2c 79 31 29 29 0d 06 40  0a 20 6f 78 3d 78 31 0d  |,y1))..@. ox=x1.|
00000b40  06 4a 0a 20 6f 79 3d 79  31 0d 06 54 06 20 f5 0d  |.J. oy=y1..T. ..|
00000b50  06 5e 0e 20 20 c8 97 20  78 2c 79 2c 7a 0d 06 7c  |.^.  .. x,y,z..||
00000b60  0d 20 20 6b 24 3d a4 6b  65 79 0d 06 86 10 20 20  |.  k$=.key....  |
00000b70  e7 20 6b 24 3c 3e 22 22  20 8c 0d 06 90 15 20 20  |. k$<>"" .....  |
00000b80  20 f2 73 71 75 61 72 65  28 6f 78 2c 6f 79 29 0d  | .square(ox,oy).|
00000b90  06 9a 15 20 20 20 f2 73  71 75 61 72 65 28 78 31  |...   .square(x1|
00000ba0  2c 79 31 29 0d 06 a4 0a  20 20 20 3d 6b 24 0d 06  |,y1)....   =k$..|
00000bb0  ae 07 20 20 cd 0d 06 b8  1c 20 20 78 32 3d 28 28  |..  .....  x2=((|
00000bc0  78 2d 78 6f 72 67 29 20  81 20 73 69 7a 65 29 2b  |x-xorg) . size)+|
00000bd0  31 0d 06 c2 1c 20 20 79  32 3d 28 28 79 2d 79 6f  |1....  y2=((y-yo|
00000be0  72 67 29 20 81 20 73 69  7a 65 29 2b 31 0d 06 cc  |rg) . size)+1...|
00000bf0  21 20 20 e7 20 a4 65 6e  64 5f 6f 6b 28 78 32 2c  |!  . .end_ok(x2,|
00000c00  79 32 2c 20 78 31 2c 79  31 2c 70 29 20 8c 0d 06  |y2, x1,y1,p) ...|
00000c10  d6 1a 20 20 20 e7 20 78  32 3c 3e 6f 78 20 84 20  |..   . x2<>ox . |
00000c20  79 32 3c 3e 6f 79 20 8c  0d 06 e0 23 20 20 20 20  |y2<>oy ....#    |
00000c30  f2 74 69 6c 65 28 6f 78  2c 6f 79 2c 30 2c 62 6f  |.tile(ox,oy,0,bo|
00000c40  61 72 64 28 6f 78 2c 6f  79 29 29 0d 06 ea 2f 20  |ard(ox,oy)).../ |
00000c50  20 20 20 f2 74 69 6c 65  28 78 32 2c 79 32 2c 2d  |   .tile(x2,y2,-|
00000c60  73 74 61 74 65 28 78 31  2c 79 31 29 2c 62 6f 61  |state(x1,y1),boa|
00000c70  72 64 28 78 32 2c 79 32  29 29 0d 06 f4 0d 20 20  |rd(x2,y2))....  |
00000c80  20 20 6f 78 3d 78 32 0d  06 fe 0d 20 20 20 20 6f  |  ox=x2....    o|
00000c90  79 3d 79 32 0d 07 08 08  20 20 20 cd 0d 07 12 07  |y=y2....   .....|
00000ca0  20 20 cd 0d 07 1c 0a 20  fd 20 7a 3d 30 0d 07 1d  |  ..... . z=0...|
00000cb0  10 20 78 32 3d 6f 78 3a  79 32 3d 6f 79 0d 07 30  |. x2=ox:y2=oy..0|
00000cc0  23 20 e7 20 78 32 3d 78  31 20 80 20 79 32 3d 79  |# . x2=x1 . y2=y|
00000cd0  31 20 f2 73 71 75 61 72  65 28 78 31 2c 79 31 29  |1 .square(x1,y1)|
00000ce0  0d 07 3a 15 fd 20 78 32  3c 3e 78 31 20 84 20 79  |..:.. x2<>x1 . y|
00000cf0  32 3c 3e 79 31 0d 07 44  32 6d 24 3d c3 78 31 2b  |2<>y1..D2m$=.x1+|
00000d00  c3 79 31 2b c3 73 74 61  74 65 28 78 31 2c 79 31  |.y1+.state(x1,y1|
00000d10  29 2b c3 78 32 2b c3 79  32 2b c3 73 74 61 74 65  |)+.x2+.y2+.state|
00000d20  28 78 32 2c 79 32 29 0d  07 4e 16 f2 6d 6f 76 65  |(x2,y2)..N..move|
00000d30  28 78 31 2c 79 31 2c 78  32 2c 79 32 29 0d 07 58  |(x1,y1,x2,y2)..X|
00000d40  14 6d 24 2b 3d a4 74 61  6b 65 28 78 32 2c 79 32  |.m$+=.take(x2,y2|
00000d50  29 0d 07 62 0e 3d 22 4d  22 2b c3 70 2b 6d 24 0d  |)..b.="M"+.p+m$.|
00000d60  07 6c 05 3a 0d 07 76 18  dd 20 a4 73 74 61 72 74  |.l.:..v.. .start|
00000d70  5f 6f 6b 28 73 78 2c 73  79 2c 70 29 0d 07 80 2f  |_ok(sx,sy,p).../|
00000d80  f4 20 63 61 6e 6e 6f 74  20 63 6f 6e 74 69 6e 75  |. cannot continu|
00000d90  65 20 70 6c 61 79 69 6e  67 20 69 66 20 61 6c 72  |e playing if alr|
00000da0  65 61 64 79 20 77 6f 6e  2e 2e 2e 0d 07 8a 15 e7  |eady won........|
00000db0  20 77 69 6e 6e 65 72 3c  3e 2d 31 20 8c 20 3d a3  | winner<>-1 . =.|
00000dc0  0d 07 94 1a f4 20 6e 6f  20 73 71 75 61 72 65 73  |..... no squares|
00000dd0  20 6f 66 66 20 62 6f 61  72 64 0d 07 9e 24 e7 20  | off board...$. |
00000de0  73 78 3c 31 20 84 20 73  79 3c 31 20 84 20 73 78  |sx<1 . sy<1 . sx|
00000df0  3e 39 20 84 20 73 79 3e  39 20 8c 20 3d a3 0d 07  |>9 . sy>9 . =...|
00000e00  a8 13 73 73 3d 73 74 61  74 65 28 73 78 2c 73 79  |..ss=state(sx,sy|
00000e10  29 0d 07 b2 1e f4 20 73  77 65 64 69 73 68 20 70  |)..... swedish p|
00000e20  69 65 63 65 73 20 3d 20  31 20 61 6e 64 20 32 0d  |ieces = 1 and 2.|
00000e30  07 bc 20 e7 20 28 70 3d  30 20 80 20 28 73 73 3d  |.. . (p=0 . (ss=|
00000e40  31 20 84 20 73 73 3d 32  29 29 20 8c 20 3d b9 0d  |1 . ss=2)) . =..|
00000e50  07 c6 21 f4 20 6d 6f 73  6b 6f 76 69 74 20 70 69  |..!. moskovit pi|
00000e60  65 63 65 73 20 3d 20 28  33 20 61 6e 64 20 34 29  |eces = (3 and 4)|
00000e70  0d 07 d0 20 e7 20 28 70  3d 31 20 80 20 28 73 73  |... . (p=1 . (ss|
00000e80  3d 33 20 84 20 73 73 3d  34 29 29 20 8c 20 3d b9  |=3 . ss=4)) . =.|
00000e90  0d 07 da 06 3d a3 0d 07  e4 05 3a 0d 07 ee 1d dd  |....=.....:.....|
00000ea0  20 a4 65 6e 64 5f 6f 6b  28 65 78 2c 65 79 2c 20  | .end_ok(ex,ey, |
00000eb0  73 78 2c 73 79 2c 70 29  0d 07 f8 1e f4 20 6e 6f  |sx,sy,p)..... no|
00000ec0  74 20 61 6c 6c 6f 77 65  64 20 6f 66 66 20 62 6f  |t allowed off bo|
00000ed0  61 72 64 2e 2e 2e 0d 08  02 24 e7 20 65 78 3c 31  |ard......$. ex<1|
00000ee0  20 84 20 65 79 3c 31 20  84 20 65 78 3e 39 20 84  | . ey<1 . ex>9 .|
00000ef0  20 65 79 3e 39 20 8c 20  3d a3 0d 08 0c 13 73 73  | ey>9 . =.....ss|
00000f00  3d 73 74 61 74 65 28 73  78 2c 73 79 29 0d 08 16  |=state(sx,sy)...|
00000f10  13 65 73 3d 73 74 61 74  65 28 65 78 2c 65 79 29  |.es=state(ex,ey)|
00000f20  0d 08 20 13 65 62 3d 62  6f 61 72 64 28 65 78 2c  |.. .eb=board(ex,|
00000f30  65 79 29 0d 08 2a 28 f4  20 69 73 20 61 6c 6c 6f  |ey)..*(. is allo|
00000f40  77 65 64 20 62 61 63 6b  20 74 6f 20 73 74 61 72  |wed back to star|
00000f50  74 20 73 71 75 61 72 65  2e 2e 2e 0d 08 34 18 e7  |t square.....4..|
00000f60  20 65 78 3d 73 78 20 80  20 65 79 3d 73 79 20 8c  | ex=sx . ey=sy .|
00000f70  20 3d b9 0d 08 3e 2f f4  20 6e 6f 74 20 61 6c 6c  | =...>/. not all|
00000f80  6f 77 65 64 20 6f 66 66  20 76 65 72 74 69 63 61  |owed off vertica|
00000f90  6c 20 6f 72 20 68 6f 72  69 7a 6f 6e 74 61 6c 2e  |l or horizontal.|
00000fa0  2e 2e 0d 08 48 1a e7 20  65 78 3c 3e 73 78 20 80  |....H.. ex<>sx .|
00000fb0  20 65 79 3c 3e 73 79 20  8c 20 3d a3 0d 08 52 22  | ey<>sy . =...R"|
00000fc0  f4 20 63 68 65 63 6b 20  65 61 63 68 20 73 71 75  |. check each squ|
00000fd0  61 72 65 20 69 6e 20 6d  6f 76 65 2e 2e 2e 0d 08  |are in move.....|
00000fe0  5c 15 78 78 3d 73 78 3a  79 79 3d 73 79 3a 7a 7a  |\.xx=sx:yy=sy:zz|
00000ff0  3d 73 73 0d 08 66 05 f5  0d 08 70 12 20 78 78 2b  |=ss..f....p. xx+|
00001000  3d b4 28 65 78 2d 73 78  29 20 0d 08 7a 11 20 79  |=.(ex-sx) ..z. y|
00001010  79 2b 3d b4 28 65 79 2d  73 79 29 0d 08 84 52 20  |y+=.(ey-sy)...R |
00001020  f4 20 73 71 75 61 72 65  73 20 6d 75 73 74 20 62  |. squares must b|
00001030  65 20 65 6d 70 74 79 2c  20 6e 6f 74 20 63 61 73  |e empty, not cas|
00001040  74 6c 65 20 61 6e 64 20  6e 6f 74 20 63 61 6d 70  |tle and not camp|
00001050  20 75 6e 6c 65 73 73 20  70 69 65 63 65 20 6d 6f  | unless piece mo|
00001060  76 65 64 20 66 72 6f 6d  20 63 61 6d 70 0d 08 8e  |ved from camp...|
00001070  45 20 6e 6f 3d 28 73 74  61 74 65 28 78 78 2c 79  |E no=(state(xx,y|
00001080  79 29 3c 3e 30 20 84 20  62 6f 61 72 64 28 78 78  |y)<>0 . board(xx|
00001090  2c 79 79 29 3d 32 20 84  20 28 62 6f 61 72 64 28  |,yy)=2 . (board(|
000010a0  78 78 2c 79 79 29 3d 33  20 80 20 7a 7a 3c 3e 33  |xx,yy)=3 . zz<>3|
000010b0  29 29 0d 08 98 22 20 e7  20 7a 7a 3d 33 20 80 20  |))..." . zz=3 . |
000010c0  62 6f 61 72 64 28 78 78  2c 79 79 29 3c 3e 33 20  |board(xx,yy)<>3 |
000010d0  7a 7a 3d 34 0d 08 a2 18  fd 20 78 78 3d 65 78 20  |zz=4..... xx=ex |
000010e0  80 20 79 79 3d 65 79 20  84 20 6e 6f 0d 08 ac 0d  |. yy=ey . no....|
000010f0  e7 20 6e 6f 20 8c 20 3d  a3 0d 08 b6 43 f4 20 63  |. no . =....C. c|
00001100  61 6e 6e 6f 74 20 65 6e  64 20 75 70 20 6f 6e 20  |annot end up on |
00001110  63 61 73 74 6c 65 20 6f  72 20 63 61 6d 70 20 73  |castle or camp s|
00001120  71 75 61 72 65 20 5b 75  6e 6c 65 73 73 20 61 20  |quare [unless a |
00001130  63 61 6d 70 65 64 20 4d  5d 2e 2e 2e 0d 08 c0 2c  |camped M]......,|
00001140  f4 49 46 20 65 62 3d 32  20 4f 52 20 28 65 62 3d  |.IF eb=2 OR (eb=|
00001150  33 20 41 4e 44 20 73 73  3c 3e 33 29 20 54 48 45  |3 AND ss<>3) THE|
00001160  4e 20 3d 46 41 4c 53 45  0d 08 ca 06 3d b9 0d 08  |N =FALSE....=...|
00001170  d4 05 3a 0d 08 de 18 dd  20 f2 6d 6f 76 65 28 73  |..:..... .move(s|
00001180  78 2c 73 79 2c 65 78 2c  65 79 29 0d 08 e8 1d 73  |x,sy,ex,ey)....s|
00001190  74 61 74 65 28 65 78 2c  65 79 29 3d 73 74 61 74  |tate(ex,ey)=stat|
000011a0  65 28 73 78 2c 73 79 29  0d 08 f2 12 73 74 61 74  |e(sx,sy)....stat|
000011b0  65 28 73 78 2c 73 79 29  3d 30 0d 08 fc 2d f4 20  |e(sx,sy)=0...-. |
000011c0  27 64 65 6d 6f 74 65 27  20 6d 6f 73 6b 6f 76 69  |'demote' moskovi|
000011d0  74 73 20 77 68 65 6e 20  74 68 65 79 20 6c 65 61  |ts when they lea|
000011e0  76 65 20 63 61 6d 70 0d  09 06 35 e7 20 73 74 61  |ve camp...5. sta|
000011f0  74 65 28 65 78 2c 65 79  29 3d 33 20 80 20 62 6f  |te(ex,ey)=3 . bo|
00001200  61 72 64 28 65 78 2c 65  79 29 3c 3e 33 20 73 74  |ard(ex,ey)<>3 st|
00001210  61 74 65 28 65 78 2c 65  79 29 3d 34 0d 09 10 3b  |ate(ex,ey)=4...;|
00001220  f4 20 73 77 65 64 69 73  68 20 77 69 6e 73 20 77  |. swedish wins w|
00001230  68 65 6e 20 63 68 69 65  66 20 72 65 61 63 68 65  |hen chief reache|
00001240  73 20 74 68 65 20 65 64  67 65 20 6f 66 20 74 68  |s the edge of th|
00001250  65 20 62 6f 61 72 64 0d  09 1a 3d e7 20 73 74 61  |e board...=. sta|
00001260  74 65 28 65 78 2c 65 79  29 3d 32 20 80 20 28 65  |te(ex,ey)=2 . (e|
00001270  78 3d 31 20 84 20 65 78  3d 39 20 84 20 65 79 3d  |x=1 . ex=9 . ey=|
00001280  31 20 84 20 65 79 3d 39  29 20 f2 77 69 6e 6e 65  |1 . ey=9) .winne|
00001290  72 28 30 29 0d 09 24 12  f2 73 71 75 61 72 65 28  |r(0)..$..square(|
000012a0  73 78 2c 73 79 29 0d 09  2e 12 f2 73 71 75 61 72  |sx,sy).....squar|
000012b0  65 28 65 78 2c 65 79 29  0d 09 38 05 e1 0d 09 42  |e(ex,ey)..8....B|
000012c0  05 3a 0d 09 4c 14 dd 20  a4 72 65 6d 6f 76 65 28  |.:..L.. .remove(|
000012d0  72 78 2c 72 79 29 0d 09  56 1c 72 24 3d c3 72 78  |rx,ry)..V.r$=.rx|
000012e0  2b c3 72 79 2b c3 73 74  61 74 65 28 72 78 2c 72  |+.ry+.state(rx,r|
000012f0  79 29 0d 09 60 12 73 74  61 74 65 28 72 78 2c 72  |y)..`.state(rx,r|
00001300  79 29 3d 30 0d 09 6a 12  f2 73 71 75 61 72 65 28  |y)=0..j..square(|
00001310  72 78 2c 72 79 29 0d 09  74 07 3d 72 24 0d 09 7e  |rx,ry)..t.=r$..~|
00001320  05 3a 0d 09 88 12 dd 20  a4 74 61 6b 65 28 74 78  |.:..... .take(tx|
00001330  2c 74 79 29 0d 09 92 08  ea 20 74 24 0d 09 9c 09  |,ty)..... t$....|
00001340  74 24 3d 22 22 0d 09 a6  1c f4 20 63 68 69 65 66  |t$=""..... chief|
00001350  20 63 61 6e 6e 6f 74 20  61 74 74 61 63 6b 2e 2e  | cannot attack..|
00001360  2e 0d 09 b0 13 74 73 3d  73 74 61 74 65 28 74 78  |.....ts=state(tx|
00001370  2c 74 79 29 0d 09 ba 10  e7 20 74 73 3d 32 20 8c  |,ty)..... ts=2 .|
00001380  20 3d 22 22 0d 09 c4 0d  e3 20 64 3d 30 20 b8 20  | =""..... d=0 . |
00001390  33 0d 09 ce 1c 20 78 31  3d 74 78 2b 64 78 28 64  |3.... x1=tx+dx(d|
000013a0  29 3a 79 31 3d 74 79 2b  64 79 28 64 29 0d 09 d8  |):y1=ty+dy(d)...|
000013b0  14 20 73 31 3d 73 74 61  74 65 28 78 31 2c 79 31  |. s1=state(x1,y1|
000013c0  29 0d 09 e2 0d 20 e7 20  74 73 3d 31 20 8c 0d 09  |).... . ts=1 ...|
000013d0  ec 19 20 20 f4 20 73 77  65 64 69 73 68 20 61 74  |..  . swedish at|
000013e0  74 61 63 6b 2e 2e 2e 0d  09 f6 15 20 20 e7 20 73  |tack.......  . s|
000013f0  31 3d 33 20 84 20 73 31  3d 34 20 8c 0d 0a 00 25  |1=3 . s1=4 ....%|
00001400  20 20 20 f4 20 69 66 20  6e 65 78 74 20 70 69 65  |   . if next pie|
00001410  63 65 20 69 73 20 6d 6f  73 6b 6f 76 69 74 2e 2e  |ce is moskovit..|
00001420  2e 0d 0a 0a 25 20 20 20  e7 20 73 74 61 74 65 28  |....%   . state(|
00001430  78 31 2b 64 78 28 64 29  2c 79 31 2b 64 79 28 64  |x1+dx(d),y1+dy(d|
00001440  29 29 3d 31 20 8c 0d 0a  14 3f 20 20 20 20 f4 20  |))=1 ....?    . |
00001450  61 6e 64 20 2a 6e 65 78  74 2a 20 70 69 65 63 65  |and *next* piece|
00001460  20 69 73 20 73 77 65 64  69 73 68 20 28 62 75 74  | is swedish (but|
00001470  20 6e 6f 74 20 63 68 69  65 66 29 20 74 68 65 6e  | not chief) then|
00001480  20 74 61 6b 65 0d 0a 1e  1a 20 20 20 20 74 24 2b  | take....    t$+|
00001490  3d a4 72 65 6d 6f 76 65  28 78 31 2c 79 31 29 0d  |=.remove(x1,y1).|
000014a0  0a 28 08 20 20 20 cd 0d  0a 32 07 20 20 cd 0d 0a  |.(.   ...2.  ...|
000014b0  3c 06 20 cc 0d 0a 46 23  20 20 f4 20 6d 6f 73 6b  |<. ...F#  . mosk|
000014c0  6f 76 69 74 20 61 74 74  61 63 6b 2e 2e 2e 20 28  |ovit attack... (|
000014d0  33 20 6f 72 20 34 29 0d  0a 50 0d 20 20 c8 8e 20  |3 or 4)..P.  .. |
000014e0  73 31 20 ca 0d 0a 5a 0a  20 20 c9 20 31 3a 0d 0a  |s1 ...Z.  . 1:..|
000014f0  64 2a 20 20 20 f4 20 69  66 20 61 74 74 61 63 6b  |d*   . if attack|
00001500  69 6e 67 20 61 20 73 77  65 64 69 73 68 20 73 6f  |ing a swedish so|
00001510  6c 64 69 65 72 2e 2e 2e  0d 0a 6e 22 20 20 20 73  |ldier.....n"   s|
00001520  32 3d 73 74 61 74 65 28  78 31 2b 64 78 28 64 29  |2=state(x1+dx(d)|
00001530  2c 79 31 2b 64 79 28 64  29 29 0d 0a 78 16 20 20  |,y1+dy(d))..x.  |
00001540  20 e7 20 73 32 3d 33 20  84 20 73 32 3d 34 20 8c  | . s2=3 . s2=4 .|
00001550  0d 0a 82 30 20 20 20 20  f4 20 61 6e 64 20 2a 6e  |...0    . and *n|
00001560  65 78 74 2a 20 70 69 65  63 65 20 69 73 20 6d 6f  |ext* piece is mo|
00001570  73 6b 6f 76 69 74 20 74  68 65 6e 20 74 61 6b 65  |skovit then take|
00001580  0d 0a 8c 1a 20 20 20 20  74 24 2b 3d a4 72 65 6d  |....    t$+=.rem|
00001590  6f 76 65 28 78 31 2c 79  31 29 0d 0a 96 08 20 20  |ove(x1,y1)....  |
000015a0  20 cd 0d 0a a0 0a 20 20  c9 20 32 3a 0d 0a aa 26  | .....  . 2:...&|
000015b0  20 20 20 f4 20 69 66 20  61 74 74 61 63 6b 69 6e  |   . if attackin|
000015c0  67 20 73 77 65 64 69 73  68 20 63 68 69 65 66 2e  |g swedish chief.|
000015d0  2e 2e 0d 0a b4 0a 20 20  20 6e 3d 30 0d 0a be 10  |......   n=0....|
000015e0  20 20 20 e3 20 65 3d 30  20 b8 20 33 0d 0a c8 52  |   . e=0 . 3...R|
000015f0  20 20 20 20 f4 20 69 66  20 61 6c 6c 20 73 75 72  |    . if all sur|
00001600  72 6f 75 6e 64 69 6e 67  20 73 71 75 61 72 65 73  |rounding squares|
00001610  20 61 72 65 20 6d 6f 73  6b 6f 76 69 74 73 20 28  | are moskovits (|
00001620  6e 6f 74 20 69 6e 20 63  61 6d 70 29 20 6f 72 20  |not in camp) or |
00001630  74 68 65 69 72 20 63 61  6d 70 73 2e 2e 2e 0d 0a  |their camps.....|
00001640  d2 43 20 20 20 20 e7 20  73 74 61 74 65 28 78 31  |.C    . state(x1|
00001650  2b 64 78 28 65 29 2c 79  31 2b 64 79 28 65 29 29  |+dx(e),y1+dy(e))|
00001660  3d 34 20 84 20 62 6f 61  72 64 28 78 31 2b 64 78  |=4 . board(x1+dx|
00001670  28 65 29 2c 79 31 2b 64  79 28 65 29 29 3d 33 20  |(e),y1+dy(e))=3 |
00001680  8c 0d 0a dc 0d 20 20 20  20 20 6e 2b 3d 31 0d 0a  |.....     n+=1..|
00001690  e6 09 20 20 20 20 cd 0d  0a f0 08 20 20 20 ed 0d  |..    .....   ..|
000016a0  0a fa 0e 20 20 20 e7 20  6e 3d 34 20 8c 0d 0b 04  |...   . n=4 ....|
000016b0  18 20 20 20 20 f4 20 2e  2e 2e 67 61 6d 65 20 69  |.    . ...game i|
000016c0  73 20 77 6f 6e 0d 0b 0e  1a 20 20 20 20 74 24 2b  |s won....    t$+|
000016d0  3d a4 72 65 6d 6f 76 65  28 78 31 2c 79 31 29 0d  |=.remove(x1,y1).|
000016e0  0b 18 12 20 20 20 20 f2  77 69 6e 6e 65 72 28 31  |...    .winner(1|
000016f0  29 0d 0b 22 08 20 20 20  cd 0d 0b 2c 07 20 20 cb  |)..".   ...,.  .|
00001700  0d 0b 36 06 20 cd 0d 0b  40 05 ed 0d 0b 4a 07 3d  |..6. ...@....J.=|
00001710  74 24 0d 0b 54 05 3a 0d  0b 5e 0f dd 20 a4 75 6e  |t$..T.:..^.. .un|
00001720  64 6f 28 6d 24 29 0d 0b  68 12 f4 20 4d 20 70 20  |do(m$)..h.. M p |
00001730  5b 78 20 79 20 73 5d 2a  0d 0b 72 0f 70 3d bb c1  |[x y s]*..r.p=..|
00001740  6d 24 2c 32 2c 31 29 0d  0b 7c 0d 6d 24 3d c1 6d  |m$,2,1)..|.m$=.m|
00001750  24 2c 33 29 0d 0b 86 0d  c8 95 20 6d 24 3c 3e 22  |$,3)...... m$<>"|
00001760  22 0d 0b 90 10 20 78 3d  bb c1 6d 24 2c 31 2c 31  |".... x=..m$,1,1|
00001770  29 0d 0b 9a 10 20 79 3d  bb c1 6d 24 2c 32 2c 31  |).... y=..m$,2,1|
00001780  29 0d 0b a4 10 20 73 3d  bb c1 6d 24 2c 33 2c 31  |).... s=..m$,3,1|
00001790  29 0d 0b ae 11 20 73 74  61 74 65 28 78 2c 79 29  |).... state(x,y)|
000017a0  3d 73 0d 0b b8 11 20 f2  73 71 75 61 72 65 28 78  |=s.... .square(x|
000017b0  2c 79 29 0d 0b c2 0e 20  6d 24 3d c1 6d 24 2c 34  |,y).... m$=.m$,4|
000017c0  29 0d 0b cc 05 ce 0d 0b  d6 06 3d 70 0d 0b e0 05  |).........=p....|
000017d0  3a 0d 0b ea 0f dd 20 a4  72 65 64 6f 28 6d 24 29  |:..... .redo(m$)|
000017e0  0d 0b f4 0f 70 3d bb c1  6d 24 2c 32 2c 31 29 0d  |....p=..m$,2,1).|
000017f0  0b fe 10 78 31 3d bb c1  6d 24 2c 33 2c 31 29 0d  |...x1=..m$,3,1).|
00001800  0c 08 10 79 31 3d bb c1  6d 24 2c 34 2c 31 29 0d  |...y1=..m$,4,1).|
00001810  0c 12 10 78 32 3d bb c1  6d 24 2c 36 2c 31 29 0d  |...x2=..m$,6,1).|
00001820  0c 1c 10 79 32 3d bb c1  6d 24 2c 37 2c 31 29 0d  |...y2=..m$,7,1).|
00001830  0c 26 16 f2 6d 6f 76 65  28 78 31 2c 79 31 2c 78  |.&..move(x1,y1,x|
00001840  32 2c 79 32 29 0d 0c 30  13 7a 24 3d a4 74 61 6b  |2,y2)..0.z$=.tak|
00001850  65 28 78 32 2c 79 32 29  0d 0c 3a 08 3d 31 2d 70  |e(x2,y2)..:.=1-p|
00001860  0d 0c 44 05 3a 0d 0c 4e  20 3a 20 2d 2d 2d 2d 2d  |..D.:..N : -----|
00001870  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001880  2d 2d 2d 2d 2d 0d 0c 58  05 3a 0d 0c 62 0e dd 20  |-----..X.:..b.. |
00001890  f2 73 70 72 69 74 65 73  0d 0c 6c 0c 74 69 6c 65  |.sprites..l.tile|
000018a0  73 3d 31 33 0d 0c 76 29  77 3d 34 2a 28 28 28 28  |s=13..v)w=4*((((|
000018b0  73 69 7a 65 3e 3e a4 6d  6f 64 65 76 61 72 28 34  |size>>.modevar(4|
000018c0  29 29 2b 31 29 20 81 20  38 29 2b 31 29 0d 0c 80  |))+1) . 8)+1)...|
000018d0  25 6d 65 6d 3d 77 2a 28  28 73 69 7a 65 3e 3e a4  |%mem=w*((size>>.|
000018e0  6d 6f 64 65 76 61 72 28  35 29 29 2b 31 29 2b 32  |modevar(5))+1)+2|
000018f0  35 36 0d 0c 8a 28 73 70  72 69 74 65 73 3d a4 73  |56...(sprites=.s|
00001900  70 72 69 74 65 5f 61 72  65 61 28 74 69 6c 65 73  |prite_area(tiles|
00001910  2a 6d 65 6d 2b 31 30 32  34 29 0d 0c 94 07 6e 3d  |*mem+1024)....n=|
00001920  30 0d 0c 9e 05 f5 0d 0c  a8 0c 20 f3 20 66 67 2c  |0......... . fg,|
00001930  62 67 0d 0c b2 0f 20 e7  20 66 67 3c 3e 2d 31 20  |bg.... . fg<>-1 |
00001940  8c 0d 0c bc 15 20 20 f2  64 72 61 77 28 66 67 2c  |.....  .draw(fg,|
00001950  62 67 2c 2d 31 29 0d 0c  c6 1d 20 20 f2 67 72 61  |bg,-1)....  .gra|
00001960  62 28 c3 6e 2c 30 2c 30  2c 73 69 7a 65 2c 73 69  |b(.n,0,0,size,si|
00001970  7a 65 29 0d 0c d0 0f 20  20 e7 20 66 67 3c 3e 30  |ze)....  . fg<>0|
00001980  20 8c 0d 0c da 16 20 20  20 f2 64 72 61 77 28 66  | .....   .draw(f|
00001990  67 2c 62 67 2c 31 35 29  0d 0c e4 22 20 20 20 f2  |g,bg,15)..."   .|
000019a0  67 72 61 62 28 c3 28 6e  2b 35 29 2c 30 2c 30 2c  |grab(.(n+5),0,0,|
000019b0  73 69 7a 65 2c 73 69 7a  65 29 0d 0c ee 07 20 20  |size,size)....  |
000019c0  cd 0d 0c f8 0a 20 20 6e  2b 3d 31 0d 0d 02 06 20  |.....  n+=1.... |
000019d0  cd 0d 0d 0c 0b fd 20 66  67 3d 2d 31 0d 0d 16 27  |...... fg=-1...'|
000019e0  e7 20 6e 2b 35 3c 3e 74  69 6c 65 73 20 85 20 31  |. n+5<>tiles . 1|
000019f0  2c 22 54 69 6c 65 73 20  67 6f 72 6e 20 77 72 6f  |,"Tiles gorn wro|
00001a00  6e 67 22 0d 0d 20 05 db  0d 0d 2a 05 e1 0d 0d 34  |ng".. ....*....4|
00001a10  05 3a 0d 0d 3e 15 dc 20  30 2c 39 2c 20 30 2c 31  |.:..>.. 0,9, 0,1|
00001a20  30 2c 20 30 2c 31 31 0d  0d 48 09 dc 20 31 2c 39  |0, 0,11..H.. 1,9|
00001a30  0d 0d 52 0f dc 20 32 2c  39 2c 20 32 2c 31 30 0d  |..R.. 2,9, 2,10.|
00001a40  0d 5c 15 dc 20 33 2c 39  2c 20 20 20 20 20 20 20  |.\.. 3,9,       |
00001a50  33 2c 31 31 0d 0d 66 0b  dc 20 2d 31 2c 2d 31 0d  |3,11..f.. -1,-1.|
00001a60  0d 70 05 3a 0d 0d 7a 15  dd 20 f2 64 72 61 77 28  |.p.:..z.. .draw(|
00001a70  66 67 2c 62 67 2c 73 68  29 0d 0d 84 08 e6 20 62  |fg,bg,sh)..... b|
00001a80  67 0d 0d 8e 15 20 c8 93  20 c8 90 20 30 2c 30 2c  |g.... .. .. 0,0,|
00001a90  73 69 7a 65 2d 31 0d 0d  98 08 e6 20 31 35 0d 0d  |size-1..... 15..|
00001aa0  a2 10 20 c8 93 20 30 2c  30 2c 73 69 7a 65 0d 0d  |.. .. 0,0,size..|
00001ab0  ac 0c e7 20 66 67 3e 30  20 8c 0d 0d b6 0e 20 78  |... fg>0 ..... x|
00001ac0  63 3d 73 69 7a 65 2f 32  0d 0d c0 0e 20 79 63 3d  |c=size/2.... yc=|
00001ad0  73 69 7a 65 2f 32 0d 0d  ca 0f 20 72 3d 73 69 7a  |size/2.... r=siz|
00001ae0  65 2a 32 2f 35 0d 0d d4  0f 20 e7 20 73 68 3c 3e  |e*2/5.... . sh<>|
00001af0  2d 31 20 8c 0d 0d de 0a  20 20 e6 20 73 68 0d 0d  |-1 .....  . sh..|
00001b00  e8 17 20 20 c8 8f 20 c8  90 20 78 63 2b 34 2c 79  |..  .. .. xc+4,y|
00001b10  63 2d 34 2c 72 0d 0d f2  0b 20 20 78 63 2d 3d 34  |c-4,r....  xc-=4|
00001b20  0d 0d fc 0b 20 20 79 63  2b 3d 34 0d 0e 06 06 20  |....  yc+=4.... |
00001b30  cd 0d 0e 10 09 20 e6 20  66 67 0d 0e 1a 12 20 c8  |..... . fg.... .|
00001b40  8f 20 c8 90 20 78 63 2c  79 63 2c 72 0d 0e 24 0d  |. .. xc,yc,r..$.|
00001b50  20 e7 20 66 67 3d 32 20  8c 0d 0e 2e 0d 20 72 3d  | . fg=2 ..... r=|
00001b60  72 2f b6 28 32 29 0d 0e  38 0a 20 20 e6 20 31 30  |r/.(2)..8.  . 10|
00001b70  0d 0e 42 1d 20 20 ec 20  78 63 2d 72 2c 79 63 2b  |..B.  . xc-r,yc+|
00001b80  72 3a df 20 78 63 2b 72  2c 79 63 2d 72 0d 0e 4c  |r:. xc+r,yc-r..L|
00001b90  1d 20 20 ec 20 78 63 2d  72 2c 79 63 2d 72 3a df  |.  . xc-r,yc-r:.|
00001ba0  20 78 63 2b 72 2c 79 63  2b 72 0d 0e 56 06 20 cd  | xc+r,yc+r..V. .|
00001bb0  0d 0e 60 05 cd 0d 0e 6a  05 e1 0d 0e 74 05 3a 0d  |..`....j....t.:.|
00001bc0  0e 7e 10 3a 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |.~.: ----------.|
00001bd0  0e 88 05 3a 0d 0e 92 10  dd 20 a4 73 77 69 28 73  |...:..... .swi(s|
00001be0  77 69 24 29 0d 0e 9c 2b  c8 99 20 22 4f 53 5f 53  |wi$)...+.. "OS_S|
00001bf0  57 49 4e 75 6d 62 65 72  46 72 6f 6d 53 74 72 69  |WINumberFromStri|
00001c00  6e 67 22 2c 2c 73 77 69  24 20 b8 20 73 77 69 0d  |ng",,swi$ . swi.|
00001c10  0e a6 08 3d 73 77 69 0d  0e b0 05 3a 0d 0e ba 0b  |...=swi....:....|
00001c20  dd 20 f2 6d 6f 64 65 0d  0e c4 0b 6d 6f 64 65 3d  |. .mode....mode=|
00001c30  31 32 0d 0e ce 1d e7 20  a4 63 68 65 63 6b 5f 6d  |12..... .check_m|
00001c40  6f 64 65 28 32 30 29 20  6d 6f 64 65 3d 32 30 0d  |ode(20) mode=20.|
00001c50  0e d8 1d e7 20 a4 63 68  65 63 6b 5f 6d 6f 64 65  |.... .check_mode|
00001c60  28 32 37 29 20 6d 6f 64  65 3d 32 37 0d 0e e2 0c  |(27) mode=27....|
00001c70  eb 20 6d 6f 64 65 3a 87  0d 0e ec 29 73 63 72 65  |. mode:....)scre|
00001c80  65 6e 78 3d 28 a4 6d 6f  64 65 76 61 72 28 31 31  |enx=(.modevar(11|
00001c90  29 2b 31 29 3c 3c a4 6d  6f 64 65 76 61 72 28 34  |)+1)<<.modevar(4|
00001ca0  29 0d 0e f6 29 73 63 72  65 65 6e 79 3d 28 a4 6d  |)...)screeny=(.m|
00001cb0  6f 64 65 76 61 72 28 31  32 29 2b 31 29 3c 3c a4  |odevar(12)+1)<<.|
00001cc0  6d 6f 64 65 76 61 72 28  35 29 0d 0f 00 2b e7 20  |modevar(5)...+. |
00001cd0  73 63 72 65 65 6e 78 3c  73 63 72 65 65 6e 79 20  |screenx<screeny |
00001ce0  73 3d 73 63 72 65 65 6e  78 20 8b 20 73 3d 73 63  |s=screenx . s=sc|
00001cf0  72 65 65 6e 79 0d 0f 0a  18 73 69 7a 65 3d 28 28  |reeny....size=((|
00001d00  73 20 81 20 39 29 20 81  20 34 29 2a 34 0d 0f 14  |s . 9) . 4)*4...|
00001d10  1b 78 6f 72 67 3d 28 73  63 72 65 65 6e 78 2d 73  |.xorg=(screenx-s|
00001d20  69 7a 65 2a 39 29 2f 32  0d 0f 1e 1b 79 6f 72 67  |ize*9)/2....yorg|
00001d30  3d 28 73 63 72 65 65 6e  79 2d 73 69 7a 65 2a 39  |=(screeny-size*9|
00001d40  29 2f 32 0d 0f 28 05 e1  0d 0f 32 04 0d 0f 3c 17  |)/2..(....2...<.|
00001d50  dd 20 a4 63 68 65 63 6b  5f 6d 6f 64 65 28 6d 6f  |. .check_mode(mo|
00001d60  64 65 29 0d 0f 46 24 c8  99 20 22 4f 53 5f 43 68  |de)..F$.. "OS_Ch|
00001d70  65 63 6b 4d 6f 64 65 56  61 6c 69 64 22 2c 6d 6f  |eckModeValid",mo|
00001d80  64 65 20 b8 20 6f 6b 0d  0f 50 0d 3d 28 6f 6b 3c  |de . ok..P.=(ok<|
00001d90  3e 2d 31 29 0d 0f 5a 05  3a 0d 0f 64 13 dd 20 a4  |>-1)..Z.:..d.. .|
00001da0  6d 6f 64 65 76 61 72 28  76 61 72 29 0d 0f 6e 2b  |modevar(var)..n+|
00001db0  c8 99 20 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |.. "OS_ReadModeV|
00001dc0  61 72 69 61 62 6c 65 22  2c 2d 31 2c 76 61 72 20  |ariable",-1,var |
00001dd0  b8 20 2c 2c 76 61 6c 0d  0f 78 08 3d 76 61 6c 0d  |. ,,val..x.=val.|
00001de0  0f 82 05 3a 0d 0f 8c 18  dd 20 a4 73 70 72 69 74  |...:..... .sprit|
00001df0  65 5f 61 72 65 61 28 73  69 7a 65 29 0d 0f 96 0c  |e_area(size)....|
00001e00  de 20 73 20 73 69 7a 65  0d 0f a0 0b 21 73 3d 73  |. s size....!s=s|
00001e10  69 7a 65 0d 0f aa 0a 73  21 38 3d 31 36 0d 0f b4  |ize....s!8=16...|
00001e20  12 c8 99 20 73 70 6f 70  2c 26 31 30 39 2c 73 0d  |... spop,&109,s.|
00001e30  0f be 06 3d 73 0d 0f c8  05 3a 0d 0f d2 1e dd 20  |...=s....:..... |
00001e40  f2 67 72 61 62 28 6e 61  6d 65 24 2c 78 30 2c 79  |.grab(name$,x0,y|
00001e50  30 2c 78 31 2c 79 31 29  0d 0f dc 2c c8 99 20 73  |0,x1,y1)...,.. s|
00001e60  70 6f 70 2c 26 31 31 30  2c 73 70 72 69 74 65 73  |pop,&110,sprites|
00001e70  2c 6e 61 6d 65 24 2c 31  2c 78 30 2c 79 30 2c 78  |,name$,1,x0,y0,x|
00001e80  31 2c 79 31 0d 0f e6 05  e1 0d ff                 |1,y1.......|
00001e8b