Home » Archimedes archive » Acorn User » AU 1993-11.adf » !StarInfo_StarInfo » Cumpstey1
Cumpstey1
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1993-11.adf » !StarInfo_StarInfo |
| Filename: | Cumpstey1 |
| Read OK: | ✔ |
| File size: | 0BFF bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM >cumpstey1
2REM By Mike Cumpstey
3REM For 32-bit machines
4REM (c) July 1993
5REM 1. First player values a move using one step minimax procedure
6REM 2. Second player values a move according to ratio of pieces
7REM left following life rule
8REM 3. Move chosen at random from best candidates
9PRINT "These are Mike�s Winning Life for 2 routines"
10PRINT "and are included here for interested parties"
11PRINT "only - you can�t run them. yet. Next month"
12PRINT "we hope to bring you a desktop Life for 2"
13PRINT "player v computer game..."
14END
15:
16DEFFNcumpstey1(board%,player%,turn%,size%,first%,left%)
17IF turn%=-1 THEN PROCcumpstey1_init:=0
18LOCAL base%(),around%(),major%(),pin%,value%,maxval%,best%,nbest%
19DIM base%(cumpstey1_area%-1),around%(cumpstey1_area%-1),major%(cumpstey1_area%-1)
20FOR pin%=0 TO cumpstey1_area%-1
21 base%(pin%)=board%?pin%
22NEXT
23IF turn%<3 THEN =FNcumpstey1_rand
24IF player%<>first% THEN =FNcumpstey1_one(player%,TRUE)
25maxval%=-9999
26FOR pin%=0 TO cumpstey1_area%-1
27 IF base%(pin%)=0 THEN
28 base%(pin%)=player%
29 value%=-FNcumpstey1_one(3-player%,FALSE)
30 IF value%=maxval% THEN nbest%+=1:IF RND(nbest%)=nbest% THEN best%=pin%
31 IF value%>maxval% THEN nbest%=1:maxval%=value%:best%=pin%
32 base%(pin%)=0
33 ENDIF
34NEXT
35=best%
36
37
38DEFPROCcumpstey1_life
39LOCAL pin%,point%,count%(),both%,k%
40DIM count%(2)
41FOR pin%=0 TO cumpstey1_area%-1
42 count%()=0
43 FOR point%=0 TO 7
44 count%(base%(cumpstey1_step%(pin%,point%)))+=1
45 NEXT
46 both%=count%(1)+count%(2):k%=0
47 IF base%(pin%)=0 THEN
48 IF both%=3 THEN k%=2+(count%(1)>count%(2))
49 ELSE
50 IF both%=2 OR both%=3 THEN k%=base%(pin%)
51 ENDIF
52 around%(pin%)=both%:total%(k%)+=1
53 IF count%(player%)+1>count%(3-player%) THEN major%(pin%)=player% ELSE major%(pin%)=3-player%
54NEXT
55ENDPROC
56
57
58DEFFNcumpstey1_one(player%,type%)
59LOCAL pin%,value%,maxval%,best%,now%,sum%(),total%(),u%,b%,c%
60DIM sum%(2),total%(2)
61PROCcumpstey1_life
62maxval%=-9999
63FOR pin%=0 TO cumpstey1_area%-1
64 IF base%(pin%)=0 THEN
65 sum%()=total%()
66 FOR point%=0 TO 7
67 u%=cumpstey1_step%(pin%,point%)
68 b%=base%(u%):c%=major%(u%)
69 CASE around%(u%) OF
70 WHEN 1:sum%(b%)+=1
71 WHEN 2:IF b%=0 THEN sum%(c%)+=1
72 WHEN 3:IF b%=0 THEN sum%(c%)-=1 ELSE sum%(b%)-=1
73 ENDCASE
74 NEXT
75 CASE around%(pin%) OF
76 WHEN 2:sum%(player%)+=1
77 WHEN 3:IF major%(pin%)<>player% THEN sum%(player%)+=1:sum%(3-player%)-=1
78 ENDCASE
79 value%=(sum%(player%)*16+1)DIV(sum%(3-player%)*2+1)
80 IF value%=maxval% THEN nbest%+=1:IF RND(nbest%)=nbest% THEN best%=pin%
81 IF value%>maxval% THEN nbest%=1:maxval%=value%:best%=pin%
82 ENDIF
83NEXT
84IF type% THEN =best% ELSE =maxval%
85
86
87DEFFNcumpstey1_rand
88REPEAT pin%=RND(cumpstey1_area%)-1:UNTIL base%(pin%)=0
89=pin%
90
91
92DEFPROCcumpstey1_init
93LOCAL x%,y%,dx%,dy%,p%,s%,@%
94REM @%=9:VDU14
95cumpstey1_area%=size%*size%
96DIM cumpstey1_step%(cumpstey1_area%-1,7)
97FOR x%=0 TO size%-1
98 FOR y%=0 TO size%-1
99 s%=0
100 p%=x%+size%*y%
101 FOR dx%=-1 TO 1
102 FOR dy%=-1 TO 1
103 IF dx%<>0 OR dy%<>0 THEN
104 cumpstey1_step%(p%,s%)=(x%+dx%+size%)MODsize%+size%*((y%+dy%+size%)MODsize%)
105 s%+=1
106 ENDIF
107 NEXT
108 NEXT
109 NEXT
110NEXT
111ENDPROC
112
113
114
� >cumpstey1
� By Mike Cumpstey
� For 32-bit machines
� (c) July 1993
E� 1. First player values a move using one step minimax procedure
B� 2. Second player values a move according to ratio of pieces
$� left following life rule
4� 3. Move chosen at random from best candidates
4� "These are Mike�s Winning Life for 2 routines"
4� "and are included here for interested parties"
2� "only - you can�t run them. yet. Next month"
1� "we hope to bring you a desktop Life for 2"
!� "player v computer game..."
�
:
8ݤcumpstey1(board%,player%,turn%,size%,first%,left%)
#� turn%=-1 � �cumpstey1_init:=0
A� base%(),around%(),major%(),pin%,value%,maxval%,best%,nbest%
S� base%(cumpstey1_area%-1),around%(cumpstey1_area%-1),major%(cumpstey1_area%-1)
� pin%=0 � cumpstey1_area%-1
base%(pin%)=board%?pin%
�
� turn%<3 � =�cumpstey1_rand
2� player%<>first% � =�cumpstey1_one(player%,�)
maxval%=-9999
� pin%=0 � cumpstey1_area%-1
� base%(pin%)=0 �
base%(pin%)=player%
) value%=-�cumpstey1_one(3-player%,�)
B � value%=maxval% � nbest%+=1:� �(nbest%)=nbest% � best%=pin%
; � value%>maxval% � nbest%=1:maxval%=value%:best%=pin%
base%(pin%)=0
! �
"�
#
=best%
$
%
&��cumpstey1_life
'#� pin%,point%,count%(),both%,k%
(� count%(2)
) � pin%=0 � cumpstey1_area%-1
* count%()=0
+ � point%=0 � 7
,4 count%(base%(cumpstey1_step%(pin%,point%)))+=1
- �
.# both%=count%(1)+count%(2):k%=0
/ � base%(pin%)=0 �
0, � both%=3 � k%=2+(count%(1)>count%(2))
1 �
2* � both%=2 � both%=3 � k%=base%(pin%)
3 �
4& around%(pin%)=both%:total%(k%)+=1
5Z � count%(player%)+1>count%(3-player%) � major%(pin%)=player% � major%(pin%)=3-player%
6�
7�
8
9
:"ݤcumpstey1_one(player%,type%)
;=� pin%,value%,maxval%,best%,now%,sum%(),total%(),u%,b%,c%
<� sum%(2),total%(2)
=�cumpstey1_life
>maxval%=-9999
? � pin%=0 � cumpstey1_area%-1
@ � base%(pin%)=0 �
A sum%()=total%()
B � point%=0 � 7
C& u%=cumpstey1_step%(pin%,point%)
D! b%=base%(u%):c%=major%(u%)
E Ȏ around%(u%) �
F � 1:sum%(b%)+=1
G � 2:� b%=0 � sum%(c%)+=1
H. � 3:� b%=0 � sum%(c%)-=1 � sum%(b%)-=1
I �
J �
K Ȏ around%(pin%) �
L � 2:sum%(player%)+=1
MH � 3:� major%(pin%)<>player% � sum%(player%)+=1:sum%(3-player%)-=1
N �
O7 value%=(sum%(player%)*16+1)�(sum%(3-player%)*2+1)
PB � value%=maxval% � nbest%+=1:� �(nbest%)=nbest% � best%=pin%
Q; � value%>maxval% � nbest%=1:maxval%=value%:best%=pin%
R �
S�
T � type% � =best% � =maxval%
U
V
Wݤcumpstey1_rand
X/� pin%=�(cumpstey1_area%)-1:� base%(pin%)=0
Y =pin%
Z
[
\��cumpstey1_init
] � x%,y%,dx%,dy%,p%,s%,@%
^� @%=9:VDU14
_ cumpstey1_area%=size%*size%
`*� cumpstey1_step%(cumpstey1_area%-1,7)
a� x%=0 � size%-1
b � y%=0 � size%-1
c
s%=0
d p%=x%+size%*y%
e � dx%=-1 � 1
f � dy%=-1 � 1
g � dx%<>0 � dy%<>0 �
hQ cumpstey1_step%(p%,s%)=(x%+dx%+size%)�size%+size%*((y%+dy%+size%)�size%)
i s%+=1
j �
k �
l �
m �
n�
o�
p
q
r
� 00000000 0d 00 01 14 f4 20 20 20 20 20 3e 63 75 6d 70 73 |..... >cumps| 00000010 74 65 79 31 0d 00 02 17 f4 20 42 79 20 20 4d 69 |tey1..... By Mi| 00000020 6b 65 20 43 75 6d 70 73 74 65 79 0d 00 03 19 f4 |ke Cumpstey.....| 00000030 20 46 6f 72 20 33 32 2d 62 69 74 20 6d 61 63 68 | For 32-bit mach| 00000040 69 6e 65 73 0d 00 04 13 f4 20 28 63 29 20 4a 75 |ines..... (c) Ju| 00000050 6c 79 20 31 39 39 33 0d 00 05 45 f4 20 20 31 2e |ly 1993...E. 1.| 00000060 20 46 69 72 73 74 20 70 6c 61 79 65 72 20 76 61 | First player va| 00000070 6c 75 65 73 20 61 20 6d 6f 76 65 20 75 73 69 6e |lues a move usin| 00000080 67 20 6f 6e 65 20 73 74 65 70 20 6d 69 6e 69 6d |g one step minim| 00000090 61 78 20 70 72 6f 63 65 64 75 72 65 0d 00 06 42 |ax procedure...B| 000000a0 f4 20 20 32 2e 20 53 65 63 6f 6e 64 20 70 6c 61 |. 2. Second pla| 000000b0 79 65 72 20 76 61 6c 75 65 73 20 61 20 6d 6f 76 |yer values a mov| 000000c0 65 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 72 |e according to r| 000000d0 61 74 69 6f 20 6f 66 20 70 69 65 63 65 73 0d 00 |atio of pieces..| 000000e0 07 24 f4 20 20 20 20 20 20 20 6c 65 66 74 20 66 |.$. left f| 000000f0 6f 6c 6c 6f 77 69 6e 67 20 6c 69 66 65 20 72 75 |ollowing life ru| 00000100 6c 65 0d 00 08 34 f4 20 20 33 2e 20 4d 6f 76 65 |le...4. 3. Move| 00000110 20 63 68 6f 73 65 6e 20 61 74 20 72 61 6e 64 6f | chosen at rando| 00000120 6d 20 66 72 6f 6d 20 62 65 73 74 20 63 61 6e 64 |m from best cand| 00000130 69 64 61 74 65 73 0d 00 09 34 f1 20 22 54 68 65 |idates...4. "The| 00000140 73 65 20 61 72 65 20 4d 69 6b 65 91 73 20 57 69 |se are Mike.s Wi| 00000150 6e 6e 69 6e 67 20 4c 69 66 65 20 66 6f 72 20 32 |nning Life for 2| 00000160 20 72 6f 75 74 69 6e 65 73 22 0d 00 0a 34 f1 20 | routines"...4. | 00000170 22 61 6e 64 20 61 72 65 20 69 6e 63 6c 75 64 65 |"and are include| 00000180 64 20 68 65 72 65 20 66 6f 72 20 69 6e 74 65 72 |d here for inter| 00000190 65 73 74 65 64 20 70 61 72 74 69 65 73 22 0d 00 |ested parties"..| 000001a0 0b 32 f1 20 22 6f 6e 6c 79 20 2d 20 79 6f 75 20 |.2. "only - you | 000001b0 63 61 6e 91 74 20 72 75 6e 20 74 68 65 6d 2e 20 |can.t run them. | 000001c0 79 65 74 2e 20 4e 65 78 74 20 6d 6f 6e 74 68 22 |yet. Next month"| 000001d0 0d 00 0c 31 f1 20 22 77 65 20 68 6f 70 65 20 74 |...1. "we hope t| 000001e0 6f 20 62 72 69 6e 67 20 79 6f 75 20 61 20 64 65 |o bring you a de| 000001f0 73 6b 74 6f 70 20 4c 69 66 65 20 66 6f 72 20 32 |sktop Life for 2| 00000200 22 0d 00 0d 21 f1 20 22 70 6c 61 79 65 72 20 76 |"...!. "player v| 00000210 20 63 6f 6d 70 75 74 65 72 20 67 61 6d 65 2e 2e | computer game..| 00000220 2e 22 0d 00 0e 05 e0 0d 00 0f 05 3a 0d 00 10 38 |.".........:...8| 00000230 dd a4 63 75 6d 70 73 74 65 79 31 28 62 6f 61 72 |..cumpstey1(boar| 00000240 64 25 2c 70 6c 61 79 65 72 25 2c 74 75 72 6e 25 |d%,player%,turn%| 00000250 2c 73 69 7a 65 25 2c 66 69 72 73 74 25 2c 6c 65 |,size%,first%,le| 00000260 66 74 25 29 0d 00 11 23 e7 20 74 75 72 6e 25 3d |ft%)...#. turn%=| 00000270 2d 31 20 8c 20 f2 63 75 6d 70 73 74 65 79 31 5f |-1 . .cumpstey1_| 00000280 69 6e 69 74 3a 3d 30 0d 00 12 41 ea 20 62 61 73 |init:=0...A. bas| 00000290 65 25 28 29 2c 61 72 6f 75 6e 64 25 28 29 2c 6d |e%(),around%(),m| 000002a0 61 6a 6f 72 25 28 29 2c 70 69 6e 25 2c 76 61 6c |ajor%(),pin%,val| 000002b0 75 65 25 2c 6d 61 78 76 61 6c 25 2c 62 65 73 74 |ue%,maxval%,best| 000002c0 25 2c 6e 62 65 73 74 25 0d 00 13 53 de 20 62 61 |%,nbest%...S. ba| 000002d0 73 65 25 28 63 75 6d 70 73 74 65 79 31 5f 61 72 |se%(cumpstey1_ar| 000002e0 65 61 25 2d 31 29 2c 61 72 6f 75 6e 64 25 28 63 |ea%-1),around%(c| 000002f0 75 6d 70 73 74 65 79 31 5f 61 72 65 61 25 2d 31 |umpstey1_area%-1| 00000300 29 2c 6d 61 6a 6f 72 25 28 63 75 6d 70 73 74 65 |),major%(cumpste| 00000310 79 31 5f 61 72 65 61 25 2d 31 29 0d 00 14 20 e3 |y1_area%-1)... .| 00000320 20 70 69 6e 25 3d 30 20 b8 20 63 75 6d 70 73 74 | pin%=0 . cumpst| 00000330 65 79 31 5f 61 72 65 61 25 2d 31 0d 00 15 1c 20 |ey1_area%-1.... | 00000340 62 61 73 65 25 28 70 69 6e 25 29 3d 62 6f 61 72 |base%(pin%)=boar| 00000350 64 25 3f 70 69 6e 25 0d 00 16 05 ed 0d 00 17 20 |d%?pin%........ | 00000360 e7 20 74 75 72 6e 25 3c 33 20 8c 20 3d a4 63 75 |. turn%<3 . =.cu| 00000370 6d 70 73 74 65 79 31 5f 72 61 6e 64 0d 00 18 32 |mpstey1_rand...2| 00000380 e7 20 70 6c 61 79 65 72 25 3c 3e 66 69 72 73 74 |. player%<>first| 00000390 25 20 8c 20 3d a4 63 75 6d 70 73 74 65 79 31 5f |% . =.cumpstey1_| 000003a0 6f 6e 65 28 70 6c 61 79 65 72 25 2c b9 29 0d 00 |one(player%,.)..| 000003b0 19 11 6d 61 78 76 61 6c 25 3d 2d 39 39 39 39 0d |..maxval%=-9999.| 000003c0 00 1a 20 e3 20 70 69 6e 25 3d 30 20 b8 20 63 75 |.. . pin%=0 . cu| 000003d0 6d 70 73 74 65 79 31 5f 61 72 65 61 25 2d 31 0d |mpstey1_area%-1.| 000003e0 00 1b 16 20 e7 20 62 61 73 65 25 28 70 69 6e 25 |... . base%(pin%| 000003f0 29 3d 30 20 8c 0d 00 1c 19 20 20 62 61 73 65 25 |)=0 ..... base%| 00000400 28 70 69 6e 25 29 3d 70 6c 61 79 65 72 25 0d 00 |(pin%)=player%..| 00000410 1d 29 20 20 76 61 6c 75 65 25 3d 2d a4 63 75 6d |.) value%=-.cum| 00000420 70 73 74 65 79 31 5f 6f 6e 65 28 33 2d 70 6c 61 |pstey1_one(3-pla| 00000430 79 65 72 25 2c a3 29 0d 00 1e 42 20 20 e7 20 76 |yer%,.)...B . v| 00000440 61 6c 75 65 25 3d 6d 61 78 76 61 6c 25 20 8c 20 |alue%=maxval% . | 00000450 6e 62 65 73 74 25 2b 3d 31 3a e7 20 b3 28 6e 62 |nbest%+=1:. .(nb| 00000460 65 73 74 25 29 3d 6e 62 65 73 74 25 20 8c 20 62 |est%)=nbest% . b| 00000470 65 73 74 25 3d 70 69 6e 25 0d 00 1f 3b 20 20 e7 |est%=pin%...; .| 00000480 20 76 61 6c 75 65 25 3e 6d 61 78 76 61 6c 25 20 | value%>maxval% | 00000490 8c 20 6e 62 65 73 74 25 3d 31 3a 6d 61 78 76 61 |. nbest%=1:maxva| 000004a0 6c 25 3d 76 61 6c 75 65 25 3a 62 65 73 74 25 3d |l%=value%:best%=| 000004b0 70 69 6e 25 0d 00 20 13 20 20 62 61 73 65 25 28 |pin%.. . base%(| 000004c0 70 69 6e 25 29 3d 30 0d 00 21 06 20 cd 0d 00 22 |pin%)=0..!. ..."| 000004d0 05 ed 0d 00 23 0a 3d 62 65 73 74 25 0d 00 24 04 |....#.=best%..$.| 000004e0 0d 00 25 04 0d 00 26 14 dd f2 63 75 6d 70 73 74 |..%...&...cumpst| 000004f0 65 79 31 5f 6c 69 66 65 0d 00 27 23 ea 20 70 69 |ey1_life..'#. pi| 00000500 6e 25 2c 70 6f 69 6e 74 25 2c 63 6f 75 6e 74 25 |n%,point%,count%| 00000510 28 29 2c 62 6f 74 68 25 2c 6b 25 0d 00 28 0f de |(),both%,k%..(..| 00000520 20 63 6f 75 6e 74 25 28 32 29 0d 00 29 20 e3 20 | count%(2)..) . | 00000530 70 69 6e 25 3d 30 20 b8 20 63 75 6d 70 73 74 65 |pin%=0 . cumpste| 00000540 79 31 5f 61 72 65 61 25 2d 31 0d 00 2a 0f 20 63 |y1_area%-1..*. c| 00000550 6f 75 6e 74 25 28 29 3d 30 0d 00 2b 13 20 e3 20 |ount%()=0..+. . | 00000560 70 6f 69 6e 74 25 3d 30 20 b8 20 37 0d 00 2c 34 |point%=0 . 7..,4| 00000570 20 20 63 6f 75 6e 74 25 28 62 61 73 65 25 28 63 | count%(base%(c| 00000580 75 6d 70 73 74 65 79 31 5f 73 74 65 70 25 28 70 |umpstey1_step%(p| 00000590 69 6e 25 2c 70 6f 69 6e 74 25 29 29 29 2b 3d 31 |in%,point%)))+=1| 000005a0 0d 00 2d 06 20 ed 0d 00 2e 23 20 62 6f 74 68 25 |..-. ....# both%| 000005b0 3d 63 6f 75 6e 74 25 28 31 29 2b 63 6f 75 6e 74 |=count%(1)+count| 000005c0 25 28 32 29 3a 6b 25 3d 30 0d 00 2f 16 20 e7 20 |%(2):k%=0../. . | 000005d0 62 61 73 65 25 28 70 69 6e 25 29 3d 30 20 8c 0d |base%(pin%)=0 ..| 000005e0 00 30 2c 20 20 e7 20 62 6f 74 68 25 3d 33 20 8c |.0, . both%=3 .| 000005f0 20 6b 25 3d 32 2b 28 63 6f 75 6e 74 25 28 31 29 | k%=2+(count%(1)| 00000600 3e 63 6f 75 6e 74 25 28 32 29 29 0d 00 31 06 20 |>count%(2))..1. | 00000610 cc 0d 00 32 2a 20 20 e7 20 62 6f 74 68 25 3d 32 |...2* . both%=2| 00000620 20 84 20 62 6f 74 68 25 3d 33 20 8c 20 6b 25 3d | . both%=3 . k%=| 00000630 62 61 73 65 25 28 70 69 6e 25 29 0d 00 33 06 20 |base%(pin%)..3. | 00000640 cd 0d 00 34 26 20 61 72 6f 75 6e 64 25 28 70 69 |...4& around%(pi| 00000650 6e 25 29 3d 62 6f 74 68 25 3a 74 6f 74 61 6c 25 |n%)=both%:total%| 00000660 28 6b 25 29 2b 3d 31 0d 00 35 5a 20 e7 20 63 6f |(k%)+=1..5Z . co| 00000670 75 6e 74 25 28 70 6c 61 79 65 72 25 29 2b 31 3e |unt%(player%)+1>| 00000680 63 6f 75 6e 74 25 28 33 2d 70 6c 61 79 65 72 25 |count%(3-player%| 00000690 29 20 8c 20 6d 61 6a 6f 72 25 28 70 69 6e 25 29 |) . major%(pin%)| 000006a0 3d 70 6c 61 79 65 72 25 20 8b 20 6d 61 6a 6f 72 |=player% . major| 000006b0 25 28 70 69 6e 25 29 3d 33 2d 70 6c 61 79 65 72 |%(pin%)=3-player| 000006c0 25 0d 00 36 05 ed 0d 00 37 05 e1 0d 00 38 04 0d |%..6....7....8..| 000006d0 00 39 04 0d 00 3a 22 dd a4 63 75 6d 70 73 74 65 |.9...:"..cumpste| 000006e0 79 31 5f 6f 6e 65 28 70 6c 61 79 65 72 25 2c 74 |y1_one(player%,t| 000006f0 79 70 65 25 29 0d 00 3b 3d ea 20 70 69 6e 25 2c |ype%)..;=. pin%,| 00000700 76 61 6c 75 65 25 2c 6d 61 78 76 61 6c 25 2c 62 |value%,maxval%,b| 00000710 65 73 74 25 2c 6e 6f 77 25 2c 73 75 6d 25 28 29 |est%,now%,sum%()| 00000720 2c 74 6f 74 61 6c 25 28 29 2c 75 25 2c 62 25 2c |,total%(),u%,b%,| 00000730 63 25 0d 00 3c 17 de 20 73 75 6d 25 28 32 29 2c |c%..<.. sum%(2),| 00000740 74 6f 74 61 6c 25 28 32 29 0d 00 3d 13 f2 63 75 |total%(2)..=..cu| 00000750 6d 70 73 74 65 79 31 5f 6c 69 66 65 0d 00 3e 11 |mpstey1_life..>.| 00000760 6d 61 78 76 61 6c 25 3d 2d 39 39 39 39 0d 00 3f |maxval%=-9999..?| 00000770 20 e3 20 70 69 6e 25 3d 30 20 b8 20 63 75 6d 70 | . pin%=0 . cump| 00000780 73 74 65 79 31 5f 61 72 65 61 25 2d 31 0d 00 40 |stey1_area%-1..@| 00000790 16 20 e7 20 62 61 73 65 25 28 70 69 6e 25 29 3d |. . base%(pin%)=| 000007a0 30 20 8c 0d 00 41 15 20 20 73 75 6d 25 28 29 3d |0 ...A. sum%()=| 000007b0 74 6f 74 61 6c 25 28 29 0d 00 42 14 20 20 e3 20 |total%()..B. . | 000007c0 70 6f 69 6e 74 25 3d 30 20 b8 20 37 0d 00 43 26 |point%=0 . 7..C&| 000007d0 20 20 20 75 25 3d 63 75 6d 70 73 74 65 79 31 5f | u%=cumpstey1_| 000007e0 73 74 65 70 25 28 70 69 6e 25 2c 70 6f 69 6e 74 |step%(pin%,point| 000007f0 25 29 0d 00 44 21 20 20 20 62 25 3d 62 61 73 65 |%)..D! b%=base| 00000800 25 28 75 25 29 3a 63 25 3d 6d 61 6a 6f 72 25 28 |%(u%):c%=major%(| 00000810 75 25 29 0d 00 45 17 20 20 20 c8 8e 20 61 72 6f |u%)..E. .. aro| 00000820 75 6e 64 25 28 75 25 29 20 ca 0d 00 46 17 20 20 |und%(u%) ...F. | 00000830 20 20 c9 20 31 3a 73 75 6d 25 28 62 25 29 2b 3d | . 1:sum%(b%)+=| 00000840 31 0d 00 47 20 20 20 20 20 c9 20 32 3a e7 20 62 |1..G . 2:. b| 00000850 25 3d 30 20 8c 20 73 75 6d 25 28 63 25 29 2b 3d |%=0 . sum%(c%)+=| 00000860 31 0d 00 48 2e 20 20 20 20 c9 20 33 3a e7 20 62 |1..H. . 3:. b| 00000870 25 3d 30 20 8c 20 73 75 6d 25 28 63 25 29 2d 3d |%=0 . sum%(c%)-=| 00000880 31 20 8b 20 73 75 6d 25 28 62 25 29 2d 3d 31 0d |1 . sum%(b%)-=1.| 00000890 00 49 08 20 20 20 cb 0d 00 4a 07 20 20 ed 0d 00 |.I. ...J. ...| 000008a0 4b 18 20 20 c8 8e 20 61 72 6f 75 6e 64 25 28 70 |K. .. around%(p| 000008b0 69 6e 25 29 20 ca 0d 00 4c 1b 20 20 20 c9 20 32 |in%) ...L. . 2| 000008c0 3a 73 75 6d 25 28 70 6c 61 79 65 72 25 29 2b 3d |:sum%(player%)+=| 000008d0 31 0d 00 4d 48 20 20 20 c9 20 33 3a e7 20 6d 61 |1..MH . 3:. ma| 000008e0 6a 6f 72 25 28 70 69 6e 25 29 3c 3e 70 6c 61 79 |jor%(pin%)<>play| 000008f0 65 72 25 20 8c 20 73 75 6d 25 28 70 6c 61 79 65 |er% . sum%(playe| 00000900 72 25 29 2b 3d 31 3a 73 75 6d 25 28 33 2d 70 6c |r%)+=1:sum%(3-pl| 00000910 61 79 65 72 25 29 2d 3d 31 0d 00 4e 07 20 20 cb |ayer%)-=1..N. .| 00000920 0d 00 4f 37 20 20 76 61 6c 75 65 25 3d 28 73 75 |..O7 value%=(su| 00000930 6d 25 28 70 6c 61 79 65 72 25 29 2a 31 36 2b 31 |m%(player%)*16+1| 00000940 29 81 28 73 75 6d 25 28 33 2d 70 6c 61 79 65 72 |).(sum%(3-player| 00000950 25 29 2a 32 2b 31 29 0d 00 50 42 20 20 e7 20 76 |%)*2+1)..PB . v| 00000960 61 6c 75 65 25 3d 6d 61 78 76 61 6c 25 20 8c 20 |alue%=maxval% . | 00000970 6e 62 65 73 74 25 2b 3d 31 3a e7 20 b3 28 6e 62 |nbest%+=1:. .(nb| 00000980 65 73 74 25 29 3d 6e 62 65 73 74 25 20 8c 20 62 |est%)=nbest% . b| 00000990 65 73 74 25 3d 70 69 6e 25 0d 00 51 3b 20 20 e7 |est%=pin%..Q; .| 000009a0 20 76 61 6c 75 65 25 3e 6d 61 78 76 61 6c 25 20 | value%>maxval% | 000009b0 8c 20 6e 62 65 73 74 25 3d 31 3a 6d 61 78 76 61 |. nbest%=1:maxva| 000009c0 6c 25 3d 76 61 6c 75 65 25 3a 62 65 73 74 25 3d |l%=value%:best%=| 000009d0 70 69 6e 25 0d 00 52 06 20 cd 0d 00 53 05 ed 0d |pin%..R. ...S...| 000009e0 00 54 1f e7 20 74 79 70 65 25 20 8c 20 3d 62 65 |.T.. type% . =be| 000009f0 73 74 25 20 8b 20 3d 6d 61 78 76 61 6c 25 0d 00 |st% . =maxval%..| 00000a00 55 04 0d 00 56 04 0d 00 57 14 dd a4 63 75 6d 70 |U...V...W...cump| 00000a10 73 74 65 79 31 5f 72 61 6e 64 0d 00 58 2f f5 20 |stey1_rand..X/. | 00000a20 70 69 6e 25 3d b3 28 63 75 6d 70 73 74 65 79 31 |pin%=.(cumpstey1| 00000a30 5f 61 72 65 61 25 29 2d 31 3a fd 20 62 61 73 65 |_area%)-1:. base| 00000a40 25 28 70 69 6e 25 29 3d 30 0d 00 59 09 3d 70 69 |%(pin%)=0..Y.=pi| 00000a50 6e 25 0d 00 5a 04 0d 00 5b 04 0d 00 5c 14 dd f2 |n%..Z...[...\...| 00000a60 63 75 6d 70 73 74 65 79 31 5f 69 6e 69 74 0d 00 |cumpstey1_init..| 00000a70 5d 1c ea 20 78 25 2c 79 25 2c 64 78 25 2c 64 79 |].. x%,y%,dx%,dy| 00000a80 25 2c 70 25 2c 73 25 2c 40 25 0d 00 5e 10 f4 20 |%,p%,s%,@%..^.. | 00000a90 40 25 3d 39 3a 56 44 55 31 34 0d 00 5f 1f 63 75 |@%=9:VDU14.._.cu| 00000aa0 6d 70 73 74 65 79 31 5f 61 72 65 61 25 3d 73 69 |mpstey1_area%=si| 00000ab0 7a 65 25 2a 73 69 7a 65 25 0d 00 60 2a de 20 63 |ze%*size%..`*. c| 00000ac0 75 6d 70 73 74 65 79 31 5f 73 74 65 70 25 28 63 |umpstey1_step%(c| 00000ad0 75 6d 70 73 74 65 79 31 5f 61 72 65 61 25 2d 31 |umpstey1_area%-1| 00000ae0 2c 37 29 0d 00 61 14 e3 20 78 25 3d 30 20 b8 20 |,7)..a.. x%=0 . | 00000af0 73 69 7a 65 25 2d 31 0d 00 62 15 20 e3 20 79 25 |size%-1..b. . y%| 00000b00 3d 30 20 b8 20 73 69 7a 65 25 2d 31 0d 00 63 0a |=0 . size%-1..c.| 00000b10 20 20 73 25 3d 30 0d 00 64 14 20 20 70 25 3d 78 | s%=0..d. p%=x| 00000b20 25 2b 73 69 7a 65 25 2a 79 25 0d 00 65 12 20 20 |%+size%*y%..e. | 00000b30 e3 20 64 78 25 3d 2d 31 20 b8 20 31 0d 00 66 13 |. dx%=-1 . 1..f.| 00000b40 20 20 20 e3 20 64 79 25 3d 2d 31 20 b8 20 31 0d | . dy%=-1 . 1.| 00000b50 00 67 1b 20 20 20 20 e7 20 64 78 25 3c 3e 30 20 |.g. . dx%<>0 | 00000b60 84 20 64 79 25 3c 3e 30 20 8c 0d 00 68 51 20 20 |. dy%<>0 ...hQ | 00000b70 20 20 20 63 75 6d 70 73 74 65 79 31 5f 73 74 65 | cumpstey1_ste| 00000b80 70 25 28 70 25 2c 73 25 29 3d 28 78 25 2b 64 78 |p%(p%,s%)=(x%+dx| 00000b90 25 2b 73 69 7a 65 25 29 83 73 69 7a 65 25 2b 73 |%+size%).size%+s| 00000ba0 69 7a 65 25 2a 28 28 79 25 2b 64 79 25 2b 73 69 |ize%*((y%+dy%+si| 00000bb0 7a 65 25 29 83 73 69 7a 65 25 29 0d 00 69 0e 20 |ze%).size%)..i. | 00000bc0 20 20 20 20 73 25 2b 3d 31 0d 00 6a 09 20 20 20 | s%+=1..j. | 00000bd0 20 cd 0d 00 6b 08 20 20 20 ed 0d 00 6c 07 20 20 | ...k. ...l. | 00000be0 ed 0d 00 6d 06 20 ed 0d 00 6e 05 ed 0d 00 6f 05 |...m. ...n....o.| 00000bf0 e1 0d 00 70 04 0d 00 71 04 0d 00 72 04 0d ff |...p...q...r...| 00000bff
.