�     >Lives32 (Info16)
 �     Life for two challenge
� By  Dave Acton
(� For 32-bit machines
2� (c) BAU June 1993
<:
F� 9
P�
Zsize%=5
dmax%=255
nmax_turn%=100
xtime_limit%=18000
�C� proc$(max%),file$(max%),score(max%),seen%(max%),player$(max%)
�N� c%(2),board% size%*size%,new% size%*size%,games(2),who%(2),time_left%(2)
�� temp% &1000,str% &100
�>ș "OS_GBPB",9,"procs",temp%,256,0,&1000,"*" � ,,,players%
�p%=temp%
�� i%=0 � players%-1
� p2%=p%
� ȕ ?p2%<>0
�  p2%+=1
� �
� ?p2%=13
�" player$(i%)=�$p%+�10," "),10)
� proc$(i%)=�lc($p%)

! file$(i%)="procs."+proc$(i%)


 p%=p2%+1

�

"ȣ file$()

,to_play%=10

6
score()=0

@display%=�

J� i%=0 � players%-1

T2 dummy%=�("FN"+proc$(i%)+"(0,0,-1,size%,0,0)")

^�

h� who%(1)=0 � players%-2

r% � who%(2)=who%(1)+1 � players%-1

|  games()=0

�  first%=1

�
  last%=2

�  � game%=1 � to_play%

�,   �centre("Life for two challenge",0,7)

�   �0,2)�40

�8   �centre(proc$(who%(1))+" vs "+proc$(who%(2)),2,6)

�   �games_won

�   � i%=0 � size%*size%-1

�    board%?i%=0

�   �

�   �show_board

�   turn%=1

�   game_over%=�
   foul%=-1
   time_left%()=time_limit%
   �
&    � turn%>3 �life
01    � (�count(1)>0 � �count(2)>0) � turn%<4 �
:3     � player%=first% � last% � �(last%-first%)
D      �turn(player%,turn%)
N
     �
X     turn%+=1
b	    �
l     game_over%=�
v	    �
�    �show_board
�    g$=�(0)
�-    � g$="D" � g$="d" display%=� display%
�&    � turn%=max_turn% game_over%=�
�   � game_over% � foul%>-1
�   � foul%>-1 �
�    � 1
�0    �0,18)�7"Foul by "proc$(who%(foul%))�10
�    games(3-foul%)+=1
�    wait=�(200)
�    �0,18)�30
�   �
�    � player%=1 � 2
C     games(player%)+=(1+�(�count(player%)-�count(3-player%)))/2
	    �
   �
    �games_won
*   Ȕ first%,last%
4  �
>  � player%=1 � 2
H+   score(who%(player%))+=games(player%)
R  �
\  �high_score
f �
p�
z�
�:
�� �count(player%)
�� c%,i%
�� i%=0 � size%*size%-1
� � board%?i%=player% c%+=1
��
�=c%
�:
�� �life
�� x%,y%,i%,k%
�� x%=0 � size%-1
� � y%=0 � size%-1
�  k%=x%+size%*y%
  new%?k%=board%?k%

  c%(1)=0

  c%(2)=0
$  � xx%=-1 � 1
.   � yy%=-1 � 1
8#    c%(�cell(x%+xx%,y%+yy%))+=1
B   �
L  �
V  c%(�cell(x%,y%))-=1
`  � board%?k%=0 �
j   � c%(1)+c%(2)=3 �
t-    � c%(1)>c%(2) � new%?k%=1 � new%?k%=2
~   �
�  �
�2   � c%(1)+c%(2)<2 � c%(1)+c%(2)>3 � new%?k%=0
�  �
� �
��
�� i%=0 � size%*size%-1
� board%?i%=new%?i%
��
��show_board
��
�:
�� �cell(x%,y%)
;=board%?((x%+size%) � size%+size%*((y%+size%) � size%))

:
� �show_board
� i%
(� � display% �
2� i%=0 � size%*size%-1
< �show_square(i%)
F�
P�
Z:
d� �show_square(i%)
n� x%,y%
xx%=i% � size%
�y%=i% � size%
�� 7
�ȓ x%*64,y%*64,64,64
�� board%?i%
�ȏ Ȑ x%*64+32,y%*64+32,24
��
�:
�� �centre(t$,y%,c%)
�� c%
��20-�t$/2,y%)t$
��
�:
�� �games_won
� 3
�0,5)"Games"
� 2
"� player%=1 � 2
,A �0,6+player%);player$(who%(player%));": ";games(player%);�5
6�
@"�0,10)"Played : ";game%-1;" "
J-�0,11)"To play: ";to_play%-(game%-1);" "
T�
^:
h� �high_score
r� i%,j%,hi,best
|� 3
��20,5)"Top scores"
�� 2
�
seen%()=�
�� i%=1 � players%
�
 hi=-1
� � j%=0 � players%-1
�7  � � seen%(j%) � score(j%)>hi hi=score(j%):best=j%
� �
� seen%(best)=�
�5 �20,6+i%);player$(best);": ";score(best);"   ";
��
��
�:
� �turn(player%,turn%)
� time%
� foul%>-1 �
&time%=�
0awhere%=�("FN"+proc$(who%(player%))+"(board%,player%,turn%,size%,first%,time_left%(player%))")
:"time_left%(player%)-=(�-time%)
D)� time_left%(player%)<0 foul%=player%
NV� where%<0 � where%>size%*size%-1 foul%=player% � � board%?where%<>0 foul%=player%
XF� foul%=-1 � board%?where%=player%:� display% �show_square(where%)
b�
l:
v
� �lc(a$)
�� i%
�$str%=a$
�� i%=0 � �(a$)-1
�9 � str%?i%>=�"A" � str%?i%<=�"Z" � str%?i%=str%?i%+32
��
�
=$str%
�

00000000  0d 00 0a 1b f4 20 20 20  20 20 3e 4c 69 76 65 73  |.....     >Lives|
00000010  33 32 20 28 49 6e 66 6f  31 36 29 0d 00 14 20 f4  |32 (Info16)... .|
00000020  20 20 20 20 20 4c 69 66  65 20 66 6f 72 20 74 77  |     Life for tw|
00000030  6f 20 63 68 61 6c 6c 65  6e 67 65 0d 00 1e 14 f4  |o challenge.....|
00000040  20 42 79 20 20 44 61 76  65 20 41 63 74 6f 6e 0d  | By  Dave Acton.|
00000050  00 28 19 f4 20 46 6f 72  20 33 32 2d 62 69 74 20  |.(.. For 32-bit |
00000060  6d 61 63 68 69 6e 65 73  0d 00 32 17 f4 20 28 63  |machines..2.. (c|
00000070  29 20 42 41 55 20 4a 75  6e 65 20 31 39 39 33 0d  |) BAU June 1993.|
00000080  00 3c 05 3a 0d 00 46 07  eb 20 39 0d 00 50 05 87  |.<.:..F.. 9..P..|
00000090  0d 00 5a 0b 73 69 7a 65  25 3d 35 0d 00 64 0c 6d  |..Z.size%=5..d.m|
000000a0  61 78 25 3d 32 35 35 0d  00 6e 11 6d 61 78 5f 74  |ax%=255..n.max_t|
000000b0  75 72 6e 25 3d 31 30 30  0d 00 78 15 74 69 6d 65  |urn%=100..x.time|
000000c0  5f 6c 69 6d 69 74 25 3d  31 38 30 30 30 0d 00 82  |_limit%=18000...|
000000d0  43 de 20 70 72 6f 63 24  28 6d 61 78 25 29 2c 66  |C. proc$(max%),f|
000000e0  69 6c 65 24 28 6d 61 78  25 29 2c 73 63 6f 72 65  |ile$(max%),score|
000000f0  28 6d 61 78 25 29 2c 73  65 65 6e 25 28 6d 61 78  |(max%),seen%(max|
00000100  25 29 2c 70 6c 61 79 65  72 24 28 6d 61 78 25 29  |%),player$(max%)|
00000110  0d 00 8c 4e de 20 63 25  28 32 29 2c 62 6f 61 72  |...N. c%(2),boar|
00000120  64 25 20 73 69 7a 65 25  2a 73 69 7a 65 25 2c 6e  |d% size%*size%,n|
00000130  65 77 25 20 73 69 7a 65  25 2a 73 69 7a 65 25 2c  |ew% size%*size%,|
00000140  67 61 6d 65 73 28 32 29  2c 77 68 6f 25 28 32 29  |games(2),who%(2)|
00000150  2c 74 69 6d 65 5f 6c 65  66 74 25 28 32 29 0d 00  |,time_left%(2)..|
00000160  96 1b de 20 74 65 6d 70  25 20 26 31 30 30 30 2c  |... temp% &1000,|
00000170  73 74 72 25 20 26 31 30  30 0d 00 a0 3e c8 99 20  |str% &100...>.. |
00000180  22 4f 53 5f 47 42 50 42  22 2c 39 2c 22 70 72 6f  |"OS_GBPB",9,"pro|
00000190  63 73 22 2c 74 65 6d 70  25 2c 32 35 36 2c 30 2c  |cs",temp%,256,0,|
000001a0  26 31 30 30 30 2c 22 2a  22 20 b8 20 2c 2c 2c 70  |&1000,"*" . ,,,p|
000001b0  6c 61 79 65 72 73 25 0d  00 aa 0c 70 25 3d 74 65  |layers%....p%=te|
000001c0  6d 70 25 0d 00 b4 17 e3  20 69 25 3d 30 20 b8 20  |mp%..... i%=0 . |
000001d0  70 6c 61 79 65 72 73 25  2d 31 0d 00 be 0b 20 70  |players%-1.... p|
000001e0  32 25 3d 70 25 0d 00 c8  0f 20 c8 95 20 3f 70 32  |2%=p%.... .. ?p2|
000001f0  25 3c 3e 30 0d 00 d2 0c  20 20 70 32 25 2b 3d 31  |%<>0....  p2%+=1|
00000200  0d 00 dc 06 20 ce 0d 00  e6 0c 20 3f 70 32 25 3d  |.... ..... ?p2%=|
00000210  31 33 0d 00 f0 22 20 70  6c 61 79 65 72 24 28 69  |13..." player$(i|
00000220  25 29 3d c0 24 70 25 2b  c4 31 30 2c 22 20 22 29  |%)=.$p%+.10," ")|
00000230  2c 31 30 29 0d 00 fa 17  20 70 72 6f 63 24 28 69  |,10).... proc$(i|
00000240  25 29 3d a4 6c 63 28 24  70 25 29 0d 01 04 21 20  |%)=.lc($p%)...! |
00000250  66 69 6c 65 24 28 69 25  29 3d 22 70 72 6f 63 73  |file$(i%)="procs|
00000260  2e 22 2b 70 72 6f 63 24  28 69 25 29 0d 01 0e 0d  |."+proc$(i%)....|
00000270  20 70 25 3d 70 32 25 2b  31 0d 01 18 05 ed 0d 01  | p%=p2%+1.......|
00000280  22 0e c8 a3 20 66 69 6c  65 24 28 29 0d 01 2c 0f  |"... file$()..,.|
00000290  74 6f 5f 70 6c 61 79 25  3d 31 30 0d 01 36 0d 73  |to_play%=10..6.s|
000002a0  63 6f 72 65 28 29 3d 30  0d 01 40 0e 64 69 73 70  |core()=0..@.disp|
000002b0  6c 61 79 25 3d b9 0d 01  4a 17 e3 20 69 25 3d 30  |lay%=...J.. i%=0|
000002c0  20 b8 20 70 6c 61 79 65  72 73 25 2d 31 0d 01 54  | . players%-1..T|
000002d0  32 20 64 75 6d 6d 79 25  3d a0 28 22 46 4e 22 2b  |2 dummy%=.("FN"+|
000002e0  70 72 6f 63 24 28 69 25  29 2b 22 28 30 2c 30 2c  |proc$(i%)+"(0,0,|
000002f0  2d 31 2c 73 69 7a 65 25  2c 30 2c 30 29 22 29 0d  |-1,size%,0,0)").|
00000300  01 5e 05 ed 0d 01 68 1c  e3 20 77 68 6f 25 28 31  |.^....h.. who%(1|
00000310  29 3d 30 20 b8 20 70 6c  61 79 65 72 73 25 2d 32  |)=0 . players%-2|
00000320  0d 01 72 25 20 e3 20 77  68 6f 25 28 32 29 3d 77  |..r% . who%(2)=w|
00000330  68 6f 25 28 31 29 2b 31  20 b8 20 70 6c 61 79 65  |ho%(1)+1 . playe|
00000340  72 73 25 2d 31 0d 01 7c  0f 20 20 67 61 6d 65 73  |rs%-1..|.  games|
00000350  28 29 3d 30 0d 01 86 0e  20 20 66 69 72 73 74 25  |()=0....  first%|
00000360  3d 31 0d 01 90 0d 20 20  6c 61 73 74 25 3d 32 0d  |=1....  last%=2.|
00000370  01 9a 1a 20 20 e3 20 67  61 6d 65 25 3d 31 20 b8  |...  . game%=1 .|
00000380  20 74 6f 5f 70 6c 61 79  25 0d 01 a4 2c 20 20 20  | to_play%...,   |
00000390  f2 63 65 6e 74 72 65 28  22 4c 69 66 65 20 66 6f  |.centre("Life fo|
000003a0  72 20 74 77 6f 20 63 68  61 6c 6c 65 6e 67 65 22  |r two challenge"|
000003b0  2c 30 2c 37 29 0d 01 ae  10 20 20 20 f1 8a 30 2c  |,0,7)....   ..0,|
000003c0  32 29 89 34 30 0d 01 b8  38 20 20 20 f2 63 65 6e  |2).40...8   .cen|
000003d0  74 72 65 28 70 72 6f 63  24 28 77 68 6f 25 28 31  |tre(proc$(who%(1|
000003e0  29 29 2b 22 20 76 73 20  22 2b 70 72 6f 63 24 28  |))+" vs "+proc$(|
000003f0  77 68 6f 25 28 32 29 29  2c 32 2c 36 29 0d 01 c2  |who%(2)),2,6)...|
00000400  11 20 20 20 f2 67 61 6d  65 73 5f 77 6f 6e 0d 01  |.   .games_won..|
00000410  cc 1d 20 20 20 e3 20 69  25 3d 30 20 b8 20 73 69  |..   . i%=0 . si|
00000420  7a 65 25 2a 73 69 7a 65  25 2d 31 0d 01 d6 13 20  |ze%*size%-1.... |
00000430  20 20 20 62 6f 61 72 64  25 3f 69 25 3d 30 0d 01  |   board%?i%=0..|
00000440  e0 08 20 20 20 ed 0d 01  ea 12 20 20 20 f2 73 68  |..   .....   .sh|
00000450  6f 77 5f 62 6f 61 72 64  0d 01 f4 0e 20 20 20 74  |ow_board....   t|
00000460  75 72 6e 25 3d 31 0d 01  fe 13 20 20 20 67 61 6d  |urn%=1....   gam|
00000470  65 5f 6f 76 65 72 25 3d  a3 0d 02 08 0f 20 20 20  |e_over%=.....   |
00000480  66 6f 75 6c 25 3d 2d 31  0d 02 12 1f 20 20 20 74  |foul%=-1....   t|
00000490  69 6d 65 5f 6c 65 66 74  25 28 29 3d 74 69 6d 65  |ime_left%()=time|
000004a0  5f 6c 69 6d 69 74 25 0d  02 1c 08 20 20 20 f5 0d  |_limit%....   ..|
000004b0  02 26 17 20 20 20 20 e7  20 74 75 72 6e 25 3e 33  |.&.    . turn%>3|
000004c0  20 f2 6c 69 66 65 0d 02  30 31 20 20 20 20 e7 20  | .life..01    . |
000004d0  28 a4 63 6f 75 6e 74 28  31 29 3e 30 20 80 20 a4  |(.count(1)>0 . .|
000004e0  63 6f 75 6e 74 28 32 29  3e 30 29 20 84 20 74 75  |count(2)>0) . tu|
000004f0  72 6e 25 3c 34 20 8c 0d  02 3a 33 20 20 20 20 20  |rn%<4 ...:3     |
00000500  e3 20 70 6c 61 79 65 72  25 3d 66 69 72 73 74 25  |. player%=first%|
00000510  20 b8 20 6c 61 73 74 25  20 88 20 b4 28 6c 61 73  | . last% . .(las|
00000520  74 25 2d 66 69 72 73 74  25 29 0d 02 44 1e 20 20  |t%-first%)..D.  |
00000530  20 20 20 20 f2 74 75 72  6e 28 70 6c 61 79 65 72  |    .turn(player|
00000540  25 2c 74 75 72 6e 25 29  0d 02 4e 0a 20 20 20 20  |%,turn%)..N.    |
00000550  20 ed 0d 02 58 11 20 20  20 20 20 74 75 72 6e 25  | ...X.     turn%|
00000560  2b 3d 31 0d 02 62 09 20  20 20 20 cc 0d 02 6c 15  |+=1..b.    ...l.|
00000570  20 20 20 20 20 67 61 6d  65 5f 6f 76 65 72 25 3d  |     game_over%=|
00000580  b9 0d 02 76 09 20 20 20  20 cd 0d 02 80 13 20 20  |...v.    .....  |
00000590  20 20 f2 73 68 6f 77 5f  62 6f 61 72 64 0d 02 8a  |  .show_board...|
000005a0  0f 20 20 20 20 67 24 3d  bf 28 30 29 0d 02 94 2d  |.    g$=.(0)...-|
000005b0  20 20 20 20 e7 20 67 24  3d 22 44 22 20 84 20 67  |    . g$="D" . g|
000005c0  24 3d 22 64 22 20 64 69  73 70 6c 61 79 25 3d ac  |$="d" display%=.|
000005d0  20 64 69 73 70 6c 61 79  25 0d 02 9e 26 20 20 20  | display%...&   |
000005e0  20 e7 20 74 75 72 6e 25  3d 6d 61 78 5f 74 75 72  | . turn%=max_tur|
000005f0  6e 25 20 67 61 6d 65 5f  6f 76 65 72 25 3d b9 0d  |n% game_over%=..|
00000600  02 a8 1e 20 20 20 fd 20  67 61 6d 65 5f 6f 76 65  |...   . game_ove|
00000610  72 25 20 84 20 66 6f 75  6c 25 3e 2d 31 0d 02 b2  |r% . foul%>-1...|
00000620  13 20 20 20 e7 20 66 6f  75 6c 25 3e 2d 31 20 8c  |.   . foul%>-1 .|
00000630  0d 02 bc 0b 20 20 20 20  fb 20 31 0d 02 c6 30 20  |....    . 1...0 |
00000640  20 20 20 f1 8a 30 2c 31  38 29 bd 37 22 46 6f 75  |   ..0,18).7"Fou|
00000650  6c 20 62 79 20 22 70 72  6f 63 24 28 77 68 6f 25  |l by "proc$(who%|
00000660  28 66 6f 75 6c 25 29 29  89 31 30 0d 02 d0 19 20  |(foul%)).10.... |
00000670  20 20 20 67 61 6d 65 73  28 33 2d 66 6f 75 6c 25  |   games(3-foul%|
00000680  29 2b 3d 31 0d 02 da 13  20 20 20 20 77 61 69 74  |)+=1....    wait|
00000690  3d a6 28 32 30 30 29 0d  02 e4 12 20 20 20 20 f1  |=.(200)....    .|
000006a0  8a 30 2c 31 38 29 89 33  30 0d 02 ee 08 20 20 20  |.0,18).30....   |
000006b0  cc 0d 02 f8 17 20 20 20  20 e3 20 70 6c 61 79 65  |.....    . playe|
000006c0  72 25 3d 31 20 b8 20 32  0d 03 02 43 20 20 20 20  |r%=1 . 2...C    |
000006d0  20 67 61 6d 65 73 28 70  6c 61 79 65 72 25 29 2b  | games(player%)+|
000006e0  3d 28 31 2b b4 28 a4 63  6f 75 6e 74 28 70 6c 61  |=(1+.(.count(pla|
000006f0  79 65 72 25 29 2d a4 63  6f 75 6e 74 28 33 2d 70  |yer%)-.count(3-p|
00000700  6c 61 79 65 72 25 29 29  29 2f 32 0d 03 0c 09 20  |layer%)))/2.... |
00000710  20 20 20 ed 0d 03 16 08  20 20 20 cd 0d 03 20 11  |   .....   ... .|
00000720  20 20 20 f2 67 61 6d 65  73 5f 77 6f 6e 0d 03 2a  |   .games_won..*|
00000730  16 20 20 20 c8 94 20 66  69 72 73 74 25 2c 6c 61  |.   .. first%,la|
00000740  73 74 25 0d 03 34 07 20  20 ed 0d 03 3e 15 20 20  |st%..4.  ...>.  |
00000750  e3 20 70 6c 61 79 65 72  25 3d 31 20 b8 20 32 0d  |. player%=1 . 2.|
00000760  03 48 2b 20 20 20 73 63  6f 72 65 28 77 68 6f 25  |.H+   score(who%|
00000770  28 70 6c 61 79 65 72 25  29 29 2b 3d 67 61 6d 65  |(player%))+=game|
00000780  73 28 70 6c 61 79 65 72  25 29 0d 03 52 07 20 20  |s(player%)..R.  |
00000790  ed 0d 03 5c 11 20 20 f2  68 69 67 68 5f 73 63 6f  |...\.  .high_sco|
000007a0  72 65 0d 03 66 06 20 ed  0d 03 70 05 ed 0d 03 7a  |re..f. ...p....z|
000007b0  05 e0 0d 03 84 05 3a 0d  03 8e 15 dd 20 a4 63 6f  |......:..... .co|
000007c0  75 6e 74 28 70 6c 61 79  65 72 25 29 0d 03 98 0b  |unt(player%)....|
000007d0  ea 20 63 25 2c 69 25 0d  03 a2 1a e3 20 69 25 3d  |. c%,i%..... i%=|
000007e0  30 20 b8 20 73 69 7a 65  25 2a 73 69 7a 65 25 2d  |0 . size%*size%-|
000007f0  31 0d 03 ac 1e 20 e7 20  62 6f 61 72 64 25 3f 69  |1.... . board%?i|
00000800  25 3d 70 6c 61 79 65 72  25 20 63 25 2b 3d 31 0d  |%=player% c%+=1.|
00000810  03 b6 05 ed 0d 03 c0 07  3d 63 25 0d 03 ca 05 3a  |........=c%....:|
00000820  0d 03 d4 0b dd 20 f2 6c  69 66 65 0d 03 de 11 ea  |..... .life.....|
00000830  20 78 25 2c 79 25 2c 69  25 2c 6b 25 0d 03 e8 14  | x%,y%,i%,k%....|
00000840  e3 20 78 25 3d 30 20 b8  20 73 69 7a 65 25 2d 31  |. x%=0 . size%-1|
00000850  0d 03 f2 15 20 e3 20 79  25 3d 30 20 b8 20 73 69  |.... . y%=0 . si|
00000860  7a 65 25 2d 31 0d 03 fc  14 20 20 6b 25 3d 78 25  |ze%-1....  k%=x%|
00000870  2b 73 69 7a 65 25 2a 79  25 0d 04 06 17 20 20 6e  |+size%*y%....  n|
00000880  65 77 25 3f 6b 25 3d 62  6f 61 72 64 25 3f 6b 25  |ew%?k%=board%?k%|
00000890  0d 04 10 0d 20 20 63 25  28 31 29 3d 30 0d 04 1a  |....  c%(1)=0...|
000008a0  0d 20 20 63 25 28 32 29  3d 30 0d 04 24 12 20 20  |.  c%(2)=0..$.  |
000008b0  e3 20 78 78 25 3d 2d 31  20 b8 20 31 0d 04 2e 13  |. xx%=-1 . 1....|
000008c0  20 20 20 e3 20 79 79 25  3d 2d 31 20 b8 20 31 0d  |   . yy%=-1 . 1.|
000008d0  04 38 23 20 20 20 20 63  25 28 a4 63 65 6c 6c 28  |.8#    c%(.cell(|
000008e0  78 25 2b 78 78 25 2c 79  25 2b 79 79 25 29 29 2b  |x%+xx%,y%+yy%))+|
000008f0  3d 31 0d 04 42 08 20 20  20 ed 0d 04 4c 07 20 20  |=1..B.   ...L.  |
00000900  ed 0d 04 56 19 20 20 63  25 28 a4 63 65 6c 6c 28  |...V.  c%(.cell(|
00000910  78 25 2c 79 25 29 29 2d  3d 31 0d 04 60 15 20 20  |x%,y%))-=1..`.  |
00000920  e7 20 62 6f 61 72 64 25  3f 6b 25 3d 30 20 8c 0d  |. board%?k%=0 ..|
00000930  04 6a 18 20 20 20 e7 20  63 25 28 31 29 2b 63 25  |.j.   . c%(1)+c%|
00000940  28 32 29 3d 33 20 8c 0d  04 74 2d 20 20 20 20 e7  |(2)=3 ...t-    .|
00000950  20 63 25 28 31 29 3e 63  25 28 32 29 20 8c 20 6e  | c%(1)>c%(2) . n|
00000960  65 77 25 3f 6b 25 3d 31  20 8b 20 6e 65 77 25 3f  |ew%?k%=1 . new%?|
00000970  6b 25 3d 32 0d 04 7e 08  20 20 20 cd 0d 04 88 07  |k%=2..~.   .....|
00000980  20 20 cc 0d 04 92 32 20  20 20 e7 20 63 25 28 31  |  ....2   . c%(1|
00000990  29 2b 63 25 28 32 29 3c  32 20 84 20 63 25 28 31  |)+c%(2)<2 . c%(1|
000009a0  29 2b 63 25 28 32 29 3e  33 20 8c 20 6e 65 77 25  |)+c%(2)>3 . new%|
000009b0  3f 6b 25 3d 30 0d 04 9c  07 20 20 cd 0d 04 a6 06  |?k%=0....  .....|
000009c0  20 ed 0d 04 b0 05 ed 0d  04 ba 1a e3 20 69 25 3d  | ........... i%=|
000009d0  30 20 b8 20 73 69 7a 65  25 2a 73 69 7a 65 25 2d  |0 . size%*size%-|
000009e0  31 0d 04 c4 16 20 62 6f  61 72 64 25 3f 69 25 3d  |1.... board%?i%=|
000009f0  6e 65 77 25 3f 69 25 0d  04 ce 05 ed 0d 04 d8 0f  |new%?i%.........|
00000a00  f2 73 68 6f 77 5f 62 6f  61 72 64 0d 04 e2 05 e1  |.show_board.....|
00000a10  0d 04 ec 05 3a 0d 04 f6  12 dd 20 a4 63 65 6c 6c  |....:..... .cell|
00000a20  28 78 25 2c 79 25 29 0d  05 00 3b 3d 62 6f 61 72  |(x%,y%)...;=boar|
00000a30  64 25 3f 28 28 78 25 2b  73 69 7a 65 25 29 20 83  |d%?((x%+size%) .|
00000a40  20 73 69 7a 65 25 2b 73  69 7a 65 25 2a 28 28 79  | size%+size%*((y|
00000a50  25 2b 73 69 7a 65 25 29  20 83 20 73 69 7a 65 25  |%+size%) . size%|
00000a60  29 29 0d 05 0a 05 3a 0d  05 14 11 dd 20 f2 73 68  |))....:..... .sh|
00000a70  6f 77 5f 62 6f 61 72 64  0d 05 1e 08 ea 20 69 25  |ow_board..... i%|
00000a80  0d 05 28 12 e7 20 ac 20  64 69 73 70 6c 61 79 25  |..(.. . display%|
00000a90  20 e1 0d 05 32 1a e3 20  69 25 3d 30 20 b8 20 73  | ...2.. i%=0 . s|
00000aa0  69 7a 65 25 2a 73 69 7a  65 25 2d 31 0d 05 3c 15  |ize%*size%-1..<.|
00000ab0  20 f2 73 68 6f 77 5f 73  71 75 61 72 65 28 69 25  | .show_square(i%|
00000ac0  29 0d 05 46 05 ed 0d 05  50 05 e1 0d 05 5a 05 3a  |)..F....P....Z.:|
00000ad0  0d 05 64 16 dd 20 f2 73  68 6f 77 5f 73 71 75 61  |..d.. .show_squa|
00000ae0  72 65 28 69 25 29 0d 05  6e 0b ea 20 78 25 2c 79  |re(i%)..n.. x%,y|
00000af0  25 0d 05 78 11 78 25 3d  69 25 20 83 20 73 69 7a  |%..x.x%=i% . siz|
00000b00  65 25 0d 05 82 11 79 25  3d 69 25 20 81 20 73 69  |e%....y%=i% . si|
00000b10  7a 65 25 0d 05 8c 07 e6  20 37 0d 05 96 18 c8 93  |ze%..... 7......|
00000b20  20 78 25 2a 36 34 2c 79  25 2a 36 34 2c 36 34 2c  | x%*64,y%*64,64,|
00000b30  36 34 0d 05 a0 0f e6 20  62 6f 61 72 64 25 3f 69  |64..... board%?i|
00000b40  25 0d 05 aa 1e c8 8f 20  c8 90 20 78 25 2a 36 34  |%...... .. x%*64|
00000b50  2b 33 32 2c 79 25 2a 36  34 2b 33 32 2c 32 34 0d  |+32,y%*64+32,24.|
00000b60  05 b4 05 e1 0d 05 be 05  3a 0d 05 c8 17 dd 20 f2  |........:..... .|
00000b70  63 65 6e 74 72 65 28 74  24 2c 79 25 2c 63 25 29  |centre(t$,y%,c%)|
00000b80  0d 05 d2 08 fb 20 63 25  0d 05 dc 14 f1 8a 32 30  |..... c%......20|
00000b90  2d a9 74 24 2f 32 2c 79  25 29 74 24 0d 05 e6 05  |-.t$/2,y%)t$....|
00000ba0  e1 0d 05 f0 05 3a 0d 05  fa 10 dd 20 f2 67 61 6d  |.....:..... .gam|
00000bb0  65 73 5f 77 6f 6e 0d 06  04 07 fb 20 33 0d 06 0e  |es_won..... 3...|
00000bc0  11 f1 8a 30 2c 35 29 22  47 61 6d 65 73 22 0d 06  |...0,5)"Games"..|
00000bd0  18 07 fb 20 32 0d 06 22  13 e3 20 70 6c 61 79 65  |... 2..".. playe|
00000be0  72 25 3d 31 20 b8 20 32  0d 06 2c 41 20 f1 8a 30  |r%=1 . 2..,A ..0|
00000bf0  2c 36 2b 70 6c 61 79 65  72 25 29 3b 70 6c 61 79  |,6+player%);play|
00000c00  65 72 24 28 77 68 6f 25  28 70 6c 61 79 65 72 25  |er$(who%(player%|
00000c10  29 29 3b 22 3a 20 22 3b  67 61 6d 65 73 28 70 6c  |));": ";games(pl|
00000c20  61 79 65 72 25 29 3b 89  35 0d 06 36 05 ed 0d 06  |ayer%);.5..6....|
00000c30  40 22 f1 8a 30 2c 31 30  29 22 50 6c 61 79 65 64  |@"..0,10)"Played|
00000c40  20 3a 20 22 3b 67 61 6d  65 25 2d 31 3b 22 20 22  | : ";game%-1;" "|
00000c50  0d 06 4a 2d f1 8a 30 2c  31 31 29 22 54 6f 20 70  |..J-..0,11)"To p|
00000c60  6c 61 79 3a 20 22 3b 74  6f 5f 70 6c 61 79 25 2d  |lay: ";to_play%-|
00000c70  28 67 61 6d 65 25 2d 31  29 3b 22 20 22 0d 06 54  |(game%-1);" "..T|
00000c80  05 e1 0d 06 5e 05 3a 0d  06 68 11 dd 20 f2 68 69  |....^.:..h.. .hi|
00000c90  67 68 5f 73 63 6f 72 65  0d 06 72 13 ea 20 69 25  |gh_score..r.. i%|
00000ca0  2c 6a 25 2c 68 69 2c 62  65 73 74 0d 06 7c 07 fb  |,j%,hi,best..|..|
00000cb0  20 33 0d 06 86 17 f1 8a  32 30 2c 35 29 22 54 6f  | 3......20,5)"To|
00000cc0  70 20 73 63 6f 72 65 73  22 0d 06 90 07 fb 20 32  |p scores"..... 2|
00000cd0  0d 06 9a 0d 73 65 65 6e  25 28 29 3d a3 0d 06 a4  |....seen%()=....|
00000ce0  15 e3 20 69 25 3d 31 20  b8 20 70 6c 61 79 65 72  |.. i%=1 . player|
00000cf0  73 25 0d 06 ae 0a 20 68  69 3d 2d 31 0d 06 b8 18  |s%.... hi=-1....|
00000d00  20 e3 20 6a 25 3d 30 20  b8 20 70 6c 61 79 65 72  | . j%=0 . player|
00000d10  73 25 2d 31 0d 06 c2 37  20 20 e7 20 ac 20 73 65  |s%-1...7  . . se|
00000d20  65 6e 25 28 6a 25 29 20  80 20 73 63 6f 72 65 28  |en%(j%) . score(|
00000d30  6a 25 29 3e 68 69 20 68  69 3d 73 63 6f 72 65 28  |j%)>hi hi=score(|
00000d40  6a 25 29 3a 62 65 73 74  3d 6a 25 0d 06 cc 06 20  |j%):best=j%.... |
00000d50  ed 0d 06 d6 12 20 73 65  65 6e 25 28 62 65 73 74  |..... seen%(best|
00000d60  29 3d b9 0d 06 e0 35 20  f1 8a 32 30 2c 36 2b 69  |)=....5 ..20,6+i|
00000d70  25 29 3b 70 6c 61 79 65  72 24 28 62 65 73 74 29  |%);player$(best)|
00000d80  3b 22 3a 20 22 3b 73 63  6f 72 65 28 62 65 73 74  |;": ";score(best|
00000d90  29 3b 22 20 20 20 22 3b  0d 06 ea 05 ed 0d 06 f4  |);"   ";........|
00000da0  05 e1 0d 06 fe 05 3a 0d  07 08 1a dd 20 f2 74 75  |......:..... .tu|
00000db0  72 6e 28 70 6c 61 79 65  72 25 2c 74 75 72 6e 25  |rn(player%,turn%|
00000dc0  29 0d 07 12 0b ea 20 74  69 6d 65 25 0d 07 1c 10  |)..... time%....|
00000dd0  e7 20 66 6f 75 6c 25 3e  2d 31 20 e1 0d 07 26 0b  |. foul%>-1 ...&.|
00000de0  74 69 6d 65 25 3d 91 0d  07 30 61 77 68 65 72 65  |time%=...0awhere|
00000df0  25 3d a0 28 22 46 4e 22  2b 70 72 6f 63 24 28 77  |%=.("FN"+proc$(w|
00000e00  68 6f 25 28 70 6c 61 79  65 72 25 29 29 2b 22 28  |ho%(player%))+"(|
00000e10  62 6f 61 72 64 25 2c 70  6c 61 79 65 72 25 2c 74  |board%,player%,t|
00000e20  75 72 6e 25 2c 73 69 7a  65 25 2c 66 69 72 73 74  |urn%,size%,first|
00000e30  25 2c 74 69 6d 65 5f 6c  65 66 74 25 28 70 6c 61  |%,time_left%(pla|
00000e40  79 65 72 25 29 29 22 29  0d 07 3a 22 74 69 6d 65  |yer%))")..:"time|
00000e50  5f 6c 65 66 74 25 28 70  6c 61 79 65 72 25 29 2d  |_left%(player%)-|
00000e60  3d 28 91 2d 74 69 6d 65  25 29 0d 07 44 29 e7 20  |=(.-time%)..D). |
00000e70  74 69 6d 65 5f 6c 65 66  74 25 28 70 6c 61 79 65  |time_left%(playe|
00000e80  72 25 29 3c 30 20 66 6f  75 6c 25 3d 70 6c 61 79  |r%)<0 foul%=play|
00000e90  65 72 25 0d 07 4e 56 e7  20 77 68 65 72 65 25 3c  |er%..NV. where%<|
00000ea0  30 20 84 20 77 68 65 72  65 25 3e 73 69 7a 65 25  |0 . where%>size%|
00000eb0  2a 73 69 7a 65 25 2d 31  20 66 6f 75 6c 25 3d 70  |*size%-1 foul%=p|
00000ec0  6c 61 79 65 72 25 20 8b  20 e7 20 62 6f 61 72 64  |layer% . . board|
00000ed0  25 3f 77 68 65 72 65 25  3c 3e 30 20 66 6f 75 6c  |%?where%<>0 foul|
00000ee0  25 3d 70 6c 61 79 65 72  25 0d 07 58 46 e7 20 66  |%=player%..XF. f|
00000ef0  6f 75 6c 25 3d 2d 31 20  8c 20 62 6f 61 72 64 25  |oul%=-1 . board%|
00000f00  3f 77 68 65 72 65 25 3d  70 6c 61 79 65 72 25 3a  |?where%=player%:|
00000f10  e7 20 64 69 73 70 6c 61  79 25 20 f2 73 68 6f 77  |. display% .show|
00000f20  5f 73 71 75 61 72 65 28  77 68 65 72 65 25 29 0d  |_square(where%).|
00000f30  07 62 05 e1 0d 07 6c 05  3a 0d 07 76 0d dd 20 a4  |.b....l.:..v.. .|
00000f40  6c 63 28 61 24 29 0d 07  80 08 ea 20 69 25 0d 07  |lc(a$)..... i%..|
00000f50  8a 0c 24 73 74 72 25 3d  61 24 0d 07 94 14 e3 20  |..$str%=a$..... |
00000f60  69 25 3d 30 20 b8 20 a9  28 61 24 29 2d 31 0d 07  |i%=0 . .(a$)-1..|
00000f70  9e 39 20 e7 20 73 74 72  25 3f 69 25 3e 3d 97 22  |.9 . str%?i%>=."|
00000f80  41 22 20 80 20 73 74 72  25 3f 69 25 3c 3d 97 22  |A" . str%?i%<=."|
00000f90  5a 22 20 8c 20 73 74 72  25 3f 69 25 3d 73 74 72  |Z" . str%?i%=str|
00000fa0  25 3f 69 25 2b 33 32 0d  07 a8 05 ed 0d 07 b2 0a  |%?i%+32.........|
00000fb0  3d 24 73 74 72 25 0d ff                           |=$str%..|
00000fb8