Home » Personal collection » Acorn hard disk » misc » misc2 » biobot/BioBot/Num4

biobot/BioBot/Num4

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 » Personal collection » Acorn hard disk » misc » misc2
Filename: biobot/BioBot/Num4
Read OK:
File size: 1207 bytes
Load address: 0000
Exec address: 0000
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10 REM Intellegent number pattern matching
   20 REM by Dominic Ford 1997
   30 :
   40 MODE0:PRINT"BIOBOT INTELLIGENT NUMERICAL PATTERN MATCHING"'"(C) Dominic Ford 1997":FORR=0TO79:PRINT"_";:NEXT:VDU28,0,31,79,3:T=TIME
   50 DIMn(4):PROCsetupbb
   60 FORd=0TO4:INPUTn(d):NEXT
   70 REPEAT
   80 Na=FNai(0):PROCaddbonds(FNscorebonds(Na,n(0)))
   90 Nb=FNai(1):PROCaddbonds(FNscorebonds(Nb,n(1)))
  100 Nc=FNai(2):PROCaddbonds(FNscorebonds(Nc,n(2)))
  110 Nd=FNai(3):PROCaddbonds(FNscorebonds(Nd,n(3)))
  120 Ne=FNai(4):PROCaddbonds(FNscorebonds(Ne,n(4)))
  130 PRINTbbno,Na,Nb,Nc,Nd,Ne,FNscr
  140 IF FNscr=100 THEN PRINT''(TIME-T)/6000:REPEAT UNTIL FALSE
  150 idle=TRUE:Z=FNai(0)
  160 UNTIL FALSE
  170 :
  180 REM General maintainence and refereeing
  190 :
  200 DEFPROCreferee
  210 ENDPROC
  220 DEFPROCrestart
  230 ENDPROC
  240 :
  250 REM Give ballbot a score at the end of a run
  260 :
  270 DEFFNscorebonds(x,y)
  280 thisscr=(-2.5*((x AND1)=(y AND1))-2.5*((x AND2)=(y AND2))-2.5*((x AND4)=(y AND4))-2.5*((x AND8)=(y AND8)))^2
  290 scorebu=scorebu+thisscr
  300 IF scorebu<0 THEN scorbu=0
  310 goes=goes+1
  320 =thisscr
  330 :
  340 REM BioBot Evolutionary Learning Routine
  350 :
  360 REM Main AI system
  370 :
  380 DEFFNai(A1)
  390 REM Artificial intelligence routines (ie. What Next??)
  400 counter=counter+1:IF counter=1000 OR idle=TRUE THEN PROCnext(FNscr):=0
  410 :
  420 n%(1)=(A1 AND 1)
  430 n%(2)=(A1 AND 2)
  440 n%(3)=(A1 AND 4)
  450 n%(4)=(A1 AND 8)
  460 FORl=0TOlinks-1:bond%(l)=0:NEXT
  470 FORl=0TO1:FORma=0TOlinks-1
  480 IFm%(bbno,ma,0)=1 AND n%(m%(bbno,ma,1))<>0 AND n%(m%(bbno,ma,2))<>0 THEN n%(m%(bbno,ma,3))=1:bond%(ma)=1
  490 IFm%(bbno,ma,0)=2 AND (n%(m%(bbno,ma,1))<>0 OR n%(m%(bbno,ma,2))<>0) THEN n%(m%(bbno,ma,3))=1:bond%(ma)=1
  500 IFm%(bbno,ma,0)=3 AND n%(m%(bbno,ma,1))=0 THEN n%(m%(bbno,ma,3))=1 ELSE n%(m%(bbno,ma,3))=0
  510 IFm%(bbno,ma,0)=3 AND n%(m%(bbno,ma,1))=0 THEN bond%(ma)=1
  520 IFm%(bbno,ma,0)=4 AND (n%(m%(bbno,ma,1))<>0 EOR n%(m%(bbno,ma,2))<>0) THEN n%(m%(bbno,ma,3))=1:bond%(ma)=1
  530 IFm%(bbno,ma,0)=5 AND n%(m%(bbno,ma,1))<>0 THEN n%(m%(bbno,ma,3))=1 ELSE n%(m%(bbno,ma,3))=0
  540 IFm%(bbno,ma,0)=5 AND n%(m%(bbno,ma,1))<>0 THEN bond%(ma)=1
  550 NEXT,
  560 REM Calculate outputs
  570 o1=A1:PROCreferee
  580 R%=0:FORz=1TOtotalout:R%=2*R%-(n%(no%-totalout+z)<>0):NEXT
  590 REM R%=ABS(INKEY(-71)+2*INKEY(-102)+4*INKEY(-98)+8*INKEY(-67))
  600 =R%
  610 :
  620 REM Next attempt by this biobot (each has ten)
  630 :
  640 DEFPROCnext(score)
  650 PROCuser:PROCrestart
  660 s%(bbno)=s%(bbno)+score/attempts:counter=0:idle=FALSE
  670 FORc=0TOno%:n%(c)=0:NEXT:tns%=1:scorebu=0:goes=0
  680 tryno=tryno+1:IF tryno<attempts THEN ENDPROC
  690 tryno=0:bbno=bbno+1:IF bbno=10 THEN PROCgeneration
  700 PROCnewbb
  710 ENDPROC
  720 :
  730 REM Test next biobot
  740 :
  750 DEFPROCnewbb
  760 o1=0:o2=0:o3=0:tns%=1
  770 idle=FALSE:scr=0:tryno=0
  780 PROCrestart:counter=0
  790 ENDPROC
  800 :
  810 REM Setup BioBot system (for the first time)
  820 :
  830 DEFPROCsetupbb
  840 scorebu=0:goes=0
  850 bbno=0:gen=0:PROCnewbb
  860 totalin=4:analogues=1:switches=0:totalout=4:mem=2:attempts=1
  870 no%=totalin+totalout+mem:links=12
  880 DIMm%(10,links-1,3):DIMn%(no%):DIMs%(9):DIMbond%(links-1):DIMcsb(9,links-1):DIMbs%(links-1)
  890 s%(1)=1:m%(1,1,0)=3:m%(1,1,1)=1:m%(1,1,3)=no%:m%(1,2,0)=5:m%(1,2,1)=1:m%(1,2,3)=no%-1:PROCgeneration
  900 ENDPROC
  910 :
  920 REM Select best biobot of generation
  930 :
  940 DEFPROCgeneration
  950 winner=0:score=s%(0)
  960 FORs=0TO9:IF s%(s)>score THEN score=s%(s):winner=s
  970 NEXT
  980 scowin=score
  990 :
 1000 REM Breed more biobots from best one
 1010 :
 1020 FORx=0TOlinks-1:FORy=0TO3:m%(10,x,y)=m%(winner,x,y):NEXT,
 1030 FORz=0TO9:FORx=0TOlinks-1:FORy=0TO3:m%(z,x,y)=m%(10,x,y):NEXT,,
 1040 :
 1050 REM Add a bit of variation (with help from csb)
 1060 :
 1070 PRINT"Sorting...";:FORp=0TOlinks-1:scrlnk=-5:FORlnk=0TOlinks-1
 1080 IF csb(winner,lnk)>scrlnk THEN scrlnk=csb(winner,lnk):bbno=lnk
 1090 NEXT:bs%(p)=bbno:csb(winner,bbno)=-1
 1100 NEXT:PRINT" Done."
 1110 :
 1120 alts=(100-score):IF alts<9 THEN alts=9
 1130 FORn=0TOalts
 1140 z=INT(SQR(RND((links-1)^2))):zx=z:x=bs%(z):z=RND(9)-1
 1150 PRINT"[";zx;",";z;",";x;"]",;
 1160 m%(z,x,0)=RND(6)-1:m%(z,x,1)=RND(no%):m%(z,x,2)=RND(no%):m%(z,x,3)=totalin+RND(no%-totalin)
 1170 NEXT
 1180 :
 1190 REM Initialise ready for generation test
 1200 bbno=0:gen=gen+1
 1210 FORs=0TO9:s%(s)=0:FORl=0TOlinks-1:csb(s,l)=0:NEXT,
 1220 PRINT'"Generation ";gen'
 1230 ENDPROC
 1240:
 1250 REM User interface for BioBot system
 1260 :
 1270 DEFPROCuser
 1280 f$=INKEY$(0)
 1290 IF f$="D" THEN PROCdisp
 1300 IF f$="S" THEN PROCsave
 1310 ENDPROC
 1320 REM Display best biobot's genetic information
 1330 DEFPROCdisp
 1340 CLS:FORz=0TOlinks-2:PRINTz+1,m%(10,z,0),m%(10,z,1),m%(10,z,2),m%(10,z,3):NEXT
 1350 PRINTlinks,m%(10,links-1,0),m%(10,links-1,1),m%(10,links-1,2),m%(10,links-1,3);
 1360 PRINT''"Scored: ";scowin
 1370 VDU 7:REPEAT UNTIL INKEY$(0)=""
 1380 REPEAT UNTIL INKEY$(0)<>""
 1390 ENDPROC
 1400 REM Save best biobot to disc
 1410 DEFPROCsave
 1420 file=OPENOUT"BBF"
 1430 FORz=0TOlinks-1:PRINT#file,z+1,m%(10,z,0),m%(10,z,1),m%(10,z,2),m%(10,z,3):NEXT
 1440 CLOSE#file
 1450 ENDPROC
 1460 :
 1470 REM Give biobot a score from successive goes
 1480 DEFFNscr=scorebu/goes
 1490 :
 1500 REM Add scores to bonds from this BioBot
 1510 DEFPROCaddbonds(score)
 1520 FORl=0TOlinks-1
 1530 csb(bbno,l)=csb(bbno,l)/goes*(goes-1)+(score*bond%(l))/goes
 1540 NEXT
 1550 ENDPROC

* � Intellegent number pattern matching
 � by Dominic Ford 1997
 :
(r �0:�"BIOBOT INTELLIGENT NUMERICAL PATTERN MATCHING"'"(C) Dominic Ford 1997":�R=0�79:�"_";:�:�28,0,31,79,3:T=�
2 �n(4):�setupbb
< �d=0�4:�n(d):�
F �
P. Na=�ai(0):�addbonds(�scorebonds(Na,n(0)))
Z. Nb=�ai(1):�addbonds(�scorebonds(Nb,n(1)))
d. Nc=�ai(2):�addbonds(�scorebonds(Nc,n(2)))
n. Nd=�ai(3):�addbonds(�scorebonds(Nd,n(3)))
x. Ne=�ai(4):�addbonds(�scorebonds(Ne,n(4)))
� �bbno,Na,Nb,Nc,Nd,Ne,�scr
�% � �scr=100 � �''(�-T)/6000:� � �
� idle=�:Z=�ai(0)
� � �
� :
�* � General maintainence and refereeing
� :
� ��referee
� �
� ��restart
� �
� :
�/ � Give ballbot a score at the end of a run
 :
 ݤscorebonds(x,y)
a thisscr=(-2.5*((x �1)=(y �1))-2.5*((x �2)=(y �2))-2.5*((x �4)=(y �4))-2.5*((x �8)=(y �8)))^2
" scorebu=scorebu+thisscr
, � scorebu<0 � scorbu=0
6 goes=goes+1
@
 =thisscr
J :
T+ � BioBot Evolutionary Learning Routine
^ :
h � Main AI system
r :
|
 ݤai(A1)
�9 � Artificial intelligence routines (ie. What Next??)
�? counter=counter+1:� counter=1000 � idle=� � �next(�scr):=0
� :
� n%(1)=(A1 � 1)
� n%(2)=(A1 � 2)
� n%(3)=(A1 � 4)
� n%(4)=(A1 � 8)
� �l=0�links-1:bond%(l)=0:�
� �l=0�1:�ma=0�links-1
�e �m%(bbno,ma,0)=1 � n%(m%(bbno,ma,1))<>0 � n%(m%(bbno,ma,2))<>0 � n%(m%(bbno,ma,3))=1:bond%(ma)=1
�g �m%(bbno,ma,0)=2 � (n%(m%(bbno,ma,1))<>0 � n%(m%(bbno,ma,2))<>0) � n%(m%(bbno,ma,3))=1:bond%(ma)=1
�W �m%(bbno,ma,0)=3 � n%(m%(bbno,ma,1))=0 � n%(m%(bbno,ma,3))=1 � n%(m%(bbno,ma,3))=0
�9 �m%(bbno,ma,0)=3 � n%(m%(bbno,ma,1))=0 � bond%(ma)=1
g �m%(bbno,ma,0)=4 � (n%(m%(bbno,ma,1))<>0 � n%(m%(bbno,ma,2))<>0) � n%(m%(bbno,ma,3))=1:bond%(ma)=1
X �m%(bbno,ma,0)=5 � n%(m%(bbno,ma,1))<>0 � n%(m%(bbno,ma,3))=1 � n%(m%(bbno,ma,3))=0
: �m%(bbno,ma,0)=5 � n%(m%(bbno,ma,1))<>0 � bond%(ma)=1
& �,
0 � Calculate outputs
: o1=A1:�referee
D9 R%=0:�z=1�totalout:R%=2*R%-(n%(no%-totalout+z)<>0):�
NA � R%=ABS(INKEY(-71)+2*INKEY(-102)+4*INKEY(-98)+8*INKEY(-67))
X =R%
b :
l1 � Next attempt by this biobot (each has ten)
v :
� ��next(score)
� �user:�restart
�6 s%(bbno)=s%(bbno)+score/attempts:counter=0:idle=�
�/ �c=0�no%:n%(c)=0:�:tns%=1:scorebu=0:goes=0
�' tryno=tryno+1:� tryno<attempts � �
�0 tryno=0:bbno=bbno+1:� bbno=10 � �generation
� �newbb
� �
� :
� � Test next biobot
� :
� ��newbb
� o1=0:o2=0:o3=0:tns%=1
 idle=�:scr=0:tryno=0
 �restart:counter=0
 �
  :
*/ � Setup BioBot system (for the first time)
4 :
> ��setupbb
H scorebu=0:goes=0
R bbno=0:gen=0:�newbb
\A totalin=4:analogues=1:switches=0:totalout=4:mem=2:attempts=1
f& no%=totalin+totalout+mem:links=12
pT �m%(10,links-1,3):�n%(no%):�s%(9):�bond%(links-1):�csb(9,links-1):�bs%(links-1)
zf s%(1)=1:m%(1,1,0)=3:m%(1,1,1)=1:m%(1,1,3)=no%:m%(1,2,0)=5:m%(1,2,1)=1:m%(1,2,3)=no%-1:�generation
� �
� :
�' � Select best biobot of generation
� :
� ��generation
� winner=0:score=s%(0)
�0 �s=0�9:� s%(s)>score � score=s%(s):winner=s
� �
� scowin=score
� :
�' � Breed more biobots from best one
� :
�5 �x=0�links-1:�y=0�3:m%(10,x,y)=m%(winner,x,y):�,
8 �z=0�9:�x=0�links-1:�y=0�3:m%(z,x,y)=m%(10,x,y):�,,
 :
2 � Add a bit of variation (with help from csb)
$ :
.9 �"Sorting...";:�p=0�links-1:scrlnk=-5:�lnk=0�links-1
8? � csb(winner,lnk)>scrlnk � scrlnk=csb(winner,lnk):bbno=lnk
B& �:bs%(p)=bbno:csb(winner,bbno)=-1
L �:�" Done."
V :
`' alts=(100-score):� alts<9 � alts=9
j �n=0�alts
t2 z=�(�(�((links-1)^2))):zx=z:x=bs%(z):z=�(9)-1
~ �"[";zx;",";z;",";x;"]",;
�X m%(z,x,0)=�(6)-1:m%(z,x,1)=�(no%):m%(z,x,2)=�(no%):m%(z,x,3)=totalin+�(no%-totalin)
� �
� :
�+ � Initialise ready for generation test
� bbno=0:gen=gen+1
�. �s=0�9:s%(s)=0:�l=0�links-1:csb(s,l)=0:�,
� �'"Generation ";gen'
� �
�:
�' � User interface for BioBot system
� :
� ��user
 f$=�(0)

 � f$="D" � �disp
 � f$="S" � �save
 �
(0 � Display best biobot's genetic information
2 ��disp
<F �:�z=0�links-2:�z+1,m%(10,z,0),m%(10,z,1),m%(10,z,2),m%(10,z,3):�
FP �links,m%(10,links-1,0),m%(10,links-1,1),m%(10,links-1,2),m%(10,links-1,3);
P �''"Scored: ";scowin
Z � 7:� � �(0)=""
d � � �(0)<>""
n �
x � Save best biobot to disc
� ��save
� file=�"BBF"
�J �z=0�links-1:�#file,z+1,m%(10,z,0),m%(10,z,1),m%(10,z,2),m%(10,z,3):�
� �#file
� �
� :
�/ � Give biobot a score from successive goes
� ݤscr=scorebu/goes
� :
�+ � Add scores to bonds from this BioBot
� ��addbonds(score)
� �l=0�links-1
�@ csb(bbno,l)=csb(bbno,l)/goes*(goes-1)+(score*bond%(l))/goes
 �
 �
�
00000000  0d 00 0a 2a 20 f4 20 49  6e 74 65 6c 6c 65 67 65  |...* . Intellege|
00000010  6e 74 20 6e 75 6d 62 65  72 20 70 61 74 74 65 72  |nt number patter|
00000020  6e 20 6d 61 74 63 68 69  6e 67 0d 00 14 1b 20 f4  |n matching.... .|
00000030  20 62 79 20 44 6f 6d 69  6e 69 63 20 46 6f 72 64  | by Dominic Ford|
00000040  20 31 39 39 37 0d 00 1e  06 20 3a 0d 00 28 72 20  | 1997.... :..(r |
00000050  eb 30 3a f1 22 42 49 4f  42 4f 54 20 49 4e 54 45  |.0:."BIOBOT INTE|
00000060  4c 4c 49 47 45 4e 54 20  4e 55 4d 45 52 49 43 41  |LLIGENT NUMERICA|
00000070  4c 20 50 41 54 54 45 52  4e 20 4d 41 54 43 48 49  |L PATTERN MATCHI|
00000080  4e 47 22 27 22 28 43 29  20 44 6f 6d 69 6e 69 63  |NG"'"(C) Dominic|
00000090  20 46 6f 72 64 20 31 39  39 37 22 3a e3 52 3d 30  | Ford 1997":.R=0|
000000a0  b8 37 39 3a f1 22 5f 22  3b 3a ed 3a ef 32 38 2c  |.79:."_";:.:.28,|
000000b0  30 2c 33 31 2c 37 39 2c  33 3a 54 3d 91 0d 00 32  |0,31,79,3:T=...2|
000000c0  13 20 de 6e 28 34 29 3a  f2 73 65 74 75 70 62 62  |. .n(4):.setupbb|
000000d0  0d 00 3c 13 20 e3 64 3d  30 b8 34 3a e8 6e 28 64  |..<. .d=0.4:.n(d|
000000e0  29 3a ed 0d 00 46 06 20  f5 0d 00 50 2e 20 4e 61  |):...F. ...P. Na|
000000f0  3d a4 61 69 28 30 29 3a  f2 61 64 64 62 6f 6e 64  |=.ai(0):.addbond|
00000100  73 28 a4 73 63 6f 72 65  62 6f 6e 64 73 28 4e 61  |s(.scorebonds(Na|
00000110  2c 6e 28 30 29 29 29 0d  00 5a 2e 20 4e 62 3d a4  |,n(0)))..Z. Nb=.|
00000120  61 69 28 31 29 3a f2 61  64 64 62 6f 6e 64 73 28  |ai(1):.addbonds(|
00000130  a4 73 63 6f 72 65 62 6f  6e 64 73 28 4e 62 2c 6e  |.scorebonds(Nb,n|
00000140  28 31 29 29 29 0d 00 64  2e 20 4e 63 3d a4 61 69  |(1)))..d. Nc=.ai|
00000150  28 32 29 3a f2 61 64 64  62 6f 6e 64 73 28 a4 73  |(2):.addbonds(.s|
00000160  63 6f 72 65 62 6f 6e 64  73 28 4e 63 2c 6e 28 32  |corebonds(Nc,n(2|
00000170  29 29 29 0d 00 6e 2e 20  4e 64 3d a4 61 69 28 33  |)))..n. Nd=.ai(3|
00000180  29 3a f2 61 64 64 62 6f  6e 64 73 28 a4 73 63 6f  |):.addbonds(.sco|
00000190  72 65 62 6f 6e 64 73 28  4e 64 2c 6e 28 33 29 29  |rebonds(Nd,n(3))|
000001a0  29 0d 00 78 2e 20 4e 65  3d a4 61 69 28 34 29 3a  |)..x. Ne=.ai(4):|
000001b0  f2 61 64 64 62 6f 6e 64  73 28 a4 73 63 6f 72 65  |.addbonds(.score|
000001c0  62 6f 6e 64 73 28 4e 65  2c 6e 28 34 29 29 29 0d  |bonds(Ne,n(4))).|
000001d0  00 82 1e 20 f1 62 62 6e  6f 2c 4e 61 2c 4e 62 2c  |... .bbno,Na,Nb,|
000001e0  4e 63 2c 4e 64 2c 4e 65  2c a4 73 63 72 0d 00 8c  |Nc,Nd,Ne,.scr...|
000001f0  25 20 e7 20 a4 73 63 72  3d 31 30 30 20 8c 20 f1  |% . .scr=100 . .|
00000200  27 27 28 91 2d 54 29 2f  36 30 30 30 3a f5 20 fd  |''(.-T)/6000:. .|
00000210  20 a3 0d 00 96 14 20 69  64 6c 65 3d b9 3a 5a 3d  | ..... idle=.:Z=|
00000220  a4 61 69 28 30 29 0d 00  a0 08 20 fd 20 a3 0d 00  |.ai(0).... . ...|
00000230  aa 06 20 3a 0d 00 b4 2a  20 f4 20 47 65 6e 65 72  |.. :...* . Gener|
00000240  61 6c 20 6d 61 69 6e 74  61 69 6e 65 6e 63 65 20  |al maintainence |
00000250  61 6e 64 20 72 65 66 65  72 65 65 69 6e 67 0d 00  |and refereeing..|
00000260  be 06 20 3a 0d 00 c8 0e  20 dd f2 72 65 66 65 72  |.. :.... ..refer|
00000270  65 65 0d 00 d2 06 20 e1  0d 00 dc 0e 20 dd f2 72  |ee.... ..... ..r|
00000280  65 73 74 61 72 74 0d 00  e6 06 20 e1 0d 00 f0 06  |estart.... .....|
00000290  20 3a 0d 00 fa 2f 20 f4  20 47 69 76 65 20 62 61  | :.../ . Give ba|
000002a0  6c 6c 62 6f 74 20 61 20  73 63 6f 72 65 20 61 74  |llbot a score at|
000002b0  20 74 68 65 20 65 6e 64  20 6f 66 20 61 20 72 75  | the end of a ru|
000002c0  6e 0d 01 04 06 20 3a 0d  01 0e 16 20 dd a4 73 63  |n.... :.... ..sc|
000002d0  6f 72 65 62 6f 6e 64 73  28 78 2c 79 29 0d 01 18  |orebonds(x,y)...|
000002e0  61 20 74 68 69 73 73 63  72 3d 28 2d 32 2e 35 2a  |a thisscr=(-2.5*|
000002f0  28 28 78 20 80 31 29 3d  28 79 20 80 31 29 29 2d  |((x .1)=(y .1))-|
00000300  32 2e 35 2a 28 28 78 20  80 32 29 3d 28 79 20 80  |2.5*((x .2)=(y .|
00000310  32 29 29 2d 32 2e 35 2a  28 28 78 20 80 34 29 3d  |2))-2.5*((x .4)=|
00000320  28 79 20 80 34 29 29 2d  32 2e 35 2a 28 28 78 20  |(y .4))-2.5*((x |
00000330  80 38 29 3d 28 79 20 80  38 29 29 29 5e 32 0d 01  |.8)=(y .8)))^2..|
00000340  22 1c 20 73 63 6f 72 65  62 75 3d 73 63 6f 72 65  |". scorebu=score|
00000350  62 75 2b 74 68 69 73 73  63 72 0d 01 2c 1b 20 e7  |bu+thisscr..,. .|
00000360  20 73 63 6f 72 65 62 75  3c 30 20 8c 20 73 63 6f  | scorebu<0 . sco|
00000370  72 62 75 3d 30 0d 01 36  10 20 67 6f 65 73 3d 67  |rbu=0..6. goes=g|
00000380  6f 65 73 2b 31 0d 01 40  0d 20 3d 74 68 69 73 73  |oes+1..@. =thiss|
00000390  63 72 0d 01 4a 06 20 3a  0d 01 54 2b 20 f4 20 42  |cr..J. :..T+ . B|
000003a0  69 6f 42 6f 74 20 45 76  6f 6c 75 74 69 6f 6e 61  |ioBot Evolutiona|
000003b0  72 79 20 4c 65 61 72 6e  69 6e 67 20 52 6f 75 74  |ry Learning Rout|
000003c0  69 6e 65 0d 01 5e 06 20  3a 0d 01 68 15 20 f4 20  |ine..^. :..h. . |
000003d0  4d 61 69 6e 20 41 49 20  73 79 73 74 65 6d 0d 01  |Main AI system..|
000003e0  72 06 20 3a 0d 01 7c 0d  20 dd a4 61 69 28 41 31  |r. :..|. ..ai(A1|
000003f0  29 0d 01 86 39 20 f4 20  41 72 74 69 66 69 63 69  |)...9 . Artifici|
00000400  61 6c 20 69 6e 74 65 6c  6c 69 67 65 6e 63 65 20  |al intelligence |
00000410  72 6f 75 74 69 6e 65 73  20 28 69 65 2e 20 57 68  |routines (ie. Wh|
00000420  61 74 20 4e 65 78 74 3f  3f 29 0d 01 90 3f 20 63  |at Next??)...? c|
00000430  6f 75 6e 74 65 72 3d 63  6f 75 6e 74 65 72 2b 31  |ounter=counter+1|
00000440  3a e7 20 63 6f 75 6e 74  65 72 3d 31 30 30 30 20  |:. counter=1000 |
00000450  84 20 69 64 6c 65 3d b9  20 8c 20 f2 6e 65 78 74  |. idle=. . .next|
00000460  28 a4 73 63 72 29 3a 3d  30 0d 01 9a 06 20 3a 0d  |(.scr):=0.... :.|
00000470  01 a4 13 20 6e 25 28 31  29 3d 28 41 31 20 80 20  |... n%(1)=(A1 . |
00000480  31 29 0d 01 ae 13 20 6e  25 28 32 29 3d 28 41 31  |1).... n%(2)=(A1|
00000490  20 80 20 32 29 0d 01 b8  13 20 6e 25 28 33 29 3d  | . 2).... n%(3)=|
000004a0  28 41 31 20 80 20 34 29  0d 01 c2 13 20 6e 25 28  |(A1 . 4).... n%(|
000004b0  34 29 3d 28 41 31 20 80  20 38 29 0d 01 cc 1e 20  |4)=(A1 . 8).... |
000004c0  e3 6c 3d 30 b8 6c 69 6e  6b 73 2d 31 3a 62 6f 6e  |.l=0.links-1:bon|
000004d0  64 25 28 6c 29 3d 30 3a  ed 0d 01 d6 19 20 e3 6c  |d%(l)=0:..... .l|
000004e0  3d 30 b8 31 3a e3 6d 61  3d 30 b8 6c 69 6e 6b 73  |=0.1:.ma=0.links|
000004f0  2d 31 0d 01 e0 65 20 e7  6d 25 28 62 62 6e 6f 2c  |-1...e .m%(bbno,|
00000500  6d 61 2c 30 29 3d 31 20  80 20 6e 25 28 6d 25 28  |ma,0)=1 . n%(m%(|
00000510  62 62 6e 6f 2c 6d 61 2c  31 29 29 3c 3e 30 20 80  |bbno,ma,1))<>0 .|
00000520  20 6e 25 28 6d 25 28 62  62 6e 6f 2c 6d 61 2c 32  | n%(m%(bbno,ma,2|
00000530  29 29 3c 3e 30 20 8c 20  6e 25 28 6d 25 28 62 62  |))<>0 . n%(m%(bb|
00000540  6e 6f 2c 6d 61 2c 33 29  29 3d 31 3a 62 6f 6e 64  |no,ma,3))=1:bond|
00000550  25 28 6d 61 29 3d 31 0d  01 ea 67 20 e7 6d 25 28  |%(ma)=1...g .m%(|
00000560  62 62 6e 6f 2c 6d 61 2c  30 29 3d 32 20 80 20 28  |bbno,ma,0)=2 . (|
00000570  6e 25 28 6d 25 28 62 62  6e 6f 2c 6d 61 2c 31 29  |n%(m%(bbno,ma,1)|
00000580  29 3c 3e 30 20 84 20 6e  25 28 6d 25 28 62 62 6e  |)<>0 . n%(m%(bbn|
00000590  6f 2c 6d 61 2c 32 29 29  3c 3e 30 29 20 8c 20 6e  |o,ma,2))<>0) . n|
000005a0  25 28 6d 25 28 62 62 6e  6f 2c 6d 61 2c 33 29 29  |%(m%(bbno,ma,3))|
000005b0  3d 31 3a 62 6f 6e 64 25  28 6d 61 29 3d 31 0d 01  |=1:bond%(ma)=1..|
000005c0  f4 57 20 e7 6d 25 28 62  62 6e 6f 2c 6d 61 2c 30  |.W .m%(bbno,ma,0|
000005d0  29 3d 33 20 80 20 6e 25  28 6d 25 28 62 62 6e 6f  |)=3 . n%(m%(bbno|
000005e0  2c 6d 61 2c 31 29 29 3d  30 20 8c 20 6e 25 28 6d  |,ma,1))=0 . n%(m|
000005f0  25 28 62 62 6e 6f 2c 6d  61 2c 33 29 29 3d 31 20  |%(bbno,ma,3))=1 |
00000600  8b 20 6e 25 28 6d 25 28  62 62 6e 6f 2c 6d 61 2c  |. n%(m%(bbno,ma,|
00000610  33 29 29 3d 30 0d 01 fe  39 20 e7 6d 25 28 62 62  |3))=0...9 .m%(bb|
00000620  6e 6f 2c 6d 61 2c 30 29  3d 33 20 80 20 6e 25 28  |no,ma,0)=3 . n%(|
00000630  6d 25 28 62 62 6e 6f 2c  6d 61 2c 31 29 29 3d 30  |m%(bbno,ma,1))=0|
00000640  20 8c 20 62 6f 6e 64 25  28 6d 61 29 3d 31 0d 02  | . bond%(ma)=1..|
00000650  08 67 20 e7 6d 25 28 62  62 6e 6f 2c 6d 61 2c 30  |.g .m%(bbno,ma,0|
00000660  29 3d 34 20 80 20 28 6e  25 28 6d 25 28 62 62 6e  |)=4 . (n%(m%(bbn|
00000670  6f 2c 6d 61 2c 31 29 29  3c 3e 30 20 82 20 6e 25  |o,ma,1))<>0 . n%|
00000680  28 6d 25 28 62 62 6e 6f  2c 6d 61 2c 32 29 29 3c  |(m%(bbno,ma,2))<|
00000690  3e 30 29 20 8c 20 6e 25  28 6d 25 28 62 62 6e 6f  |>0) . n%(m%(bbno|
000006a0  2c 6d 61 2c 33 29 29 3d  31 3a 62 6f 6e 64 25 28  |,ma,3))=1:bond%(|
000006b0  6d 61 29 3d 31 0d 02 12  58 20 e7 6d 25 28 62 62  |ma)=1...X .m%(bb|
000006c0  6e 6f 2c 6d 61 2c 30 29  3d 35 20 80 20 6e 25 28  |no,ma,0)=5 . n%(|
000006d0  6d 25 28 62 62 6e 6f 2c  6d 61 2c 31 29 29 3c 3e  |m%(bbno,ma,1))<>|
000006e0  30 20 8c 20 6e 25 28 6d  25 28 62 62 6e 6f 2c 6d  |0 . n%(m%(bbno,m|
000006f0  61 2c 33 29 29 3d 31 20  8b 20 6e 25 28 6d 25 28  |a,3))=1 . n%(m%(|
00000700  62 62 6e 6f 2c 6d 61 2c  33 29 29 3d 30 0d 02 1c  |bbno,ma,3))=0...|
00000710  3a 20 e7 6d 25 28 62 62  6e 6f 2c 6d 61 2c 30 29  |: .m%(bbno,ma,0)|
00000720  3d 35 20 80 20 6e 25 28  6d 25 28 62 62 6e 6f 2c  |=5 . n%(m%(bbno,|
00000730  6d 61 2c 31 29 29 3c 3e  30 20 8c 20 62 6f 6e 64  |ma,1))<>0 . bond|
00000740  25 28 6d 61 29 3d 31 0d  02 26 07 20 ed 2c 0d 02  |%(ma)=1..&. .,..|
00000750  30 18 20 f4 20 43 61 6c  63 75 6c 61 74 65 20 6f  |0. . Calculate o|
00000760  75 74 70 75 74 73 0d 02  3a 13 20 6f 31 3d 41 31  |utputs..:. o1=A1|
00000770  3a f2 72 65 66 65 72 65  65 0d 02 44 39 20 52 25  |:.referee..D9 R%|
00000780  3d 30 3a e3 7a 3d 31 b8  74 6f 74 61 6c 6f 75 74  |=0:.z=1.totalout|
00000790  3a 52 25 3d 32 2a 52 25  2d 28 6e 25 28 6e 6f 25  |:R%=2*R%-(n%(no%|
000007a0  2d 74 6f 74 61 6c 6f 75  74 2b 7a 29 3c 3e 30 29  |-totalout+z)<>0)|
000007b0  3a ed 0d 02 4e 41 20 f4  20 52 25 3d 41 42 53 28  |:...NA . R%=ABS(|
000007c0  49 4e 4b 45 59 28 2d 37  31 29 2b 32 2a 49 4e 4b  |INKEY(-71)+2*INK|
000007d0  45 59 28 2d 31 30 32 29  2b 34 2a 49 4e 4b 45 59  |EY(-102)+4*INKEY|
000007e0  28 2d 39 38 29 2b 38 2a  49 4e 4b 45 59 28 2d 36  |(-98)+8*INKEY(-6|
000007f0  37 29 29 0d 02 58 08 20  3d 52 25 0d 02 62 06 20  |7))..X. =R%..b. |
00000800  3a 0d 02 6c 31 20 f4 20  4e 65 78 74 20 61 74 74  |:..l1 . Next att|
00000810  65 6d 70 74 20 62 79 20  74 68 69 73 20 62 69 6f  |empt by this bio|
00000820  62 6f 74 20 28 65 61 63  68 20 68 61 73 20 74 65  |bot (each has te|
00000830  6e 29 0d 02 76 06 20 3a  0d 02 80 12 20 dd f2 6e  |n)..v. :.... ..n|
00000840  65 78 74 28 73 63 6f 72  65 29 0d 02 8a 13 20 f2  |ext(score).... .|
00000850  75 73 65 72 3a f2 72 65  73 74 61 72 74 0d 02 94  |user:.restart...|
00000860  36 20 73 25 28 62 62 6e  6f 29 3d 73 25 28 62 62  |6 s%(bbno)=s%(bb|
00000870  6e 6f 29 2b 73 63 6f 72  65 2f 61 74 74 65 6d 70  |no)+score/attemp|
00000880  74 73 3a 63 6f 75 6e 74  65 72 3d 30 3a 69 64 6c  |ts:counter=0:idl|
00000890  65 3d a3 0d 02 9e 2f 20  e3 63 3d 30 b8 6e 6f 25  |e=..../ .c=0.no%|
000008a0  3a 6e 25 28 63 29 3d 30  3a ed 3a 74 6e 73 25 3d  |:n%(c)=0:.:tns%=|
000008b0  31 3a 73 63 6f 72 65 62  75 3d 30 3a 67 6f 65 73  |1:scorebu=0:goes|
000008c0  3d 30 0d 02 a8 27 20 74  72 79 6e 6f 3d 74 72 79  |=0...' tryno=try|
000008d0  6e 6f 2b 31 3a e7 20 74  72 79 6e 6f 3c 61 74 74  |no+1:. tryno<att|
000008e0  65 6d 70 74 73 20 8c 20  e1 0d 02 b2 30 20 74 72  |empts . ....0 tr|
000008f0  79 6e 6f 3d 30 3a 62 62  6e 6f 3d 62 62 6e 6f 2b  |yno=0:bbno=bbno+|
00000900  31 3a e7 20 62 62 6e 6f  3d 31 30 20 8c 20 f2 67  |1:. bbno=10 . .g|
00000910  65 6e 65 72 61 74 69 6f  6e 0d 02 bc 0b 20 f2 6e  |eneration.... .n|
00000920  65 77 62 62 0d 02 c6 06  20 e1 0d 02 d0 06 20 3a  |ewbb.... ..... :|
00000930  0d 02 da 17 20 f4 20 54  65 73 74 20 6e 65 78 74  |.... . Test next|
00000940  20 62 69 6f 62 6f 74 0d  02 e4 06 20 3a 0d 02 ee  | biobot.... :...|
00000950  0c 20 dd f2 6e 65 77 62  62 0d 02 f8 1a 20 6f 31  |. ..newbb.... o1|
00000960  3d 30 3a 6f 32 3d 30 3a  6f 33 3d 30 3a 74 6e 73  |=0:o2=0:o3=0:tns|
00000970  25 3d 31 0d 03 02 19 20  69 64 6c 65 3d a3 3a 73  |%=1.... idle=.:s|
00000980  63 72 3d 30 3a 74 72 79  6e 6f 3d 30 0d 03 0c 17  |cr=0:tryno=0....|
00000990  20 f2 72 65 73 74 61 72  74 3a 63 6f 75 6e 74 65  | .restart:counte|
000009a0  72 3d 30 0d 03 16 06 20  e1 0d 03 20 06 20 3a 0d  |r=0.... ... . :.|
000009b0  03 2a 2f 20 f4 20 53 65  74 75 70 20 42 69 6f 42  |.*/ . Setup BioB|
000009c0  6f 74 20 73 79 73 74 65  6d 20 28 66 6f 72 20 74  |ot system (for t|
000009d0  68 65 20 66 69 72 73 74  20 74 69 6d 65 29 0d 03  |he first time)..|
000009e0  34 06 20 3a 0d 03 3e 0e  20 dd f2 73 65 74 75 70  |4. :..>. ..setup|
000009f0  62 62 0d 03 48 15 20 73  63 6f 72 65 62 75 3d 30  |bb..H. scorebu=0|
00000a00  3a 67 6f 65 73 3d 30 0d  03 52 18 20 62 62 6e 6f  |:goes=0..R. bbno|
00000a10  3d 30 3a 67 65 6e 3d 30  3a f2 6e 65 77 62 62 0d  |=0:gen=0:.newbb.|
00000a20  03 5c 41 20 74 6f 74 61  6c 69 6e 3d 34 3a 61 6e  |.\A totalin=4:an|
00000a30  61 6c 6f 67 75 65 73 3d  31 3a 73 77 69 74 63 68  |alogues=1:switch|
00000a40  65 73 3d 30 3a 74 6f 74  61 6c 6f 75 74 3d 34 3a  |es=0:totalout=4:|
00000a50  6d 65 6d 3d 32 3a 61 74  74 65 6d 70 74 73 3d 31  |mem=2:attempts=1|
00000a60  0d 03 66 26 20 6e 6f 25  3d 74 6f 74 61 6c 69 6e  |..f& no%=totalin|
00000a70  2b 74 6f 74 61 6c 6f 75  74 2b 6d 65 6d 3a 6c 69  |+totalout+mem:li|
00000a80  6e 6b 73 3d 31 32 0d 03  70 54 20 de 6d 25 28 31  |nks=12..pT .m%(1|
00000a90  30 2c 6c 69 6e 6b 73 2d  31 2c 33 29 3a de 6e 25  |0,links-1,3):.n%|
00000aa0  28 6e 6f 25 29 3a de 73  25 28 39 29 3a de 62 6f  |(no%):.s%(9):.bo|
00000ab0  6e 64 25 28 6c 69 6e 6b  73 2d 31 29 3a de 63 73  |nd%(links-1):.cs|
00000ac0  62 28 39 2c 6c 69 6e 6b  73 2d 31 29 3a de 62 73  |b(9,links-1):.bs|
00000ad0  25 28 6c 69 6e 6b 73 2d  31 29 0d 03 7a 66 20 73  |%(links-1)..zf s|
00000ae0  25 28 31 29 3d 31 3a 6d  25 28 31 2c 31 2c 30 29  |%(1)=1:m%(1,1,0)|
00000af0  3d 33 3a 6d 25 28 31 2c  31 2c 31 29 3d 31 3a 6d  |=3:m%(1,1,1)=1:m|
00000b00  25 28 31 2c 31 2c 33 29  3d 6e 6f 25 3a 6d 25 28  |%(1,1,3)=no%:m%(|
00000b10  31 2c 32 2c 30 29 3d 35  3a 6d 25 28 31 2c 32 2c  |1,2,0)=5:m%(1,2,|
00000b20  31 29 3d 31 3a 6d 25 28  31 2c 32 2c 33 29 3d 6e  |1)=1:m%(1,2,3)=n|
00000b30  6f 25 2d 31 3a f2 67 65  6e 65 72 61 74 69 6f 6e  |o%-1:.generation|
00000b40  0d 03 84 06 20 e1 0d 03  8e 06 20 3a 0d 03 98 27  |.... ..... :...'|
00000b50  20 f4 20 53 65 6c 65 63  74 20 62 65 73 74 20 62  | . Select best b|
00000b60  69 6f 62 6f 74 20 6f 66  20 67 65 6e 65 72 61 74  |iobot of generat|
00000b70  69 6f 6e 0d 03 a2 06 20  3a 0d 03 ac 11 20 dd f2  |ion.... :.... ..|
00000b80  67 65 6e 65 72 61 74 69  6f 6e 0d 03 b6 19 20 77  |generation.... w|
00000b90  69 6e 6e 65 72 3d 30 3a  73 63 6f 72 65 3d 73 25  |inner=0:score=s%|
00000ba0  28 30 29 0d 03 c0 30 20  e3 73 3d 30 b8 39 3a e7  |(0)...0 .s=0.9:.|
00000bb0  20 73 25 28 73 29 3e 73  63 6f 72 65 20 8c 20 73  | s%(s)>score . s|
00000bc0  63 6f 72 65 3d 73 25 28  73 29 3a 77 69 6e 6e 65  |core=s%(s):winne|
00000bd0  72 3d 73 0d 03 ca 06 20  ed 0d 03 d4 11 20 73 63  |r=s.... ..... sc|
00000be0  6f 77 69 6e 3d 73 63 6f  72 65 0d 03 de 06 20 3a  |owin=score.... :|
00000bf0  0d 03 e8 27 20 f4 20 42  72 65 65 64 20 6d 6f 72  |...' . Breed mor|
00000c00  65 20 62 69 6f 62 6f 74  73 20 66 72 6f 6d 20 62  |e biobots from b|
00000c10  65 73 74 20 6f 6e 65 0d  03 f2 06 20 3a 0d 03 fc  |est one.... :...|
00000c20  35 20 e3 78 3d 30 b8 6c  69 6e 6b 73 2d 31 3a e3  |5 .x=0.links-1:.|
00000c30  79 3d 30 b8 33 3a 6d 25  28 31 30 2c 78 2c 79 29  |y=0.3:m%(10,x,y)|
00000c40  3d 6d 25 28 77 69 6e 6e  65 72 2c 78 2c 79 29 3a  |=m%(winner,x,y):|
00000c50  ed 2c 0d 04 06 38 20 e3  7a 3d 30 b8 39 3a e3 78  |.,...8 .z=0.9:.x|
00000c60  3d 30 b8 6c 69 6e 6b 73  2d 31 3a e3 79 3d 30 b8  |=0.links-1:.y=0.|
00000c70  33 3a 6d 25 28 7a 2c 78  2c 79 29 3d 6d 25 28 31  |3:m%(z,x,y)=m%(1|
00000c80  30 2c 78 2c 79 29 3a ed  2c 2c 0d 04 10 06 20 3a  |0,x,y):.,,.... :|
00000c90  0d 04 1a 32 20 f4 20 41  64 64 20 61 20 62 69 74  |...2 . Add a bit|
00000ca0  20 6f 66 20 76 61 72 69  61 74 69 6f 6e 20 28 77  | of variation (w|
00000cb0  69 74 68 20 68 65 6c 70  20 66 72 6f 6d 20 63 73  |ith help from cs|
00000cc0  62 29 0d 04 24 06 20 3a  0d 04 2e 39 20 f1 22 53  |b)..$. :...9 ."S|
00000cd0  6f 72 74 69 6e 67 2e 2e  2e 22 3b 3a e3 70 3d 30  |orting...";:.p=0|
00000ce0  b8 6c 69 6e 6b 73 2d 31  3a 73 63 72 6c 6e 6b 3d  |.links-1:scrlnk=|
00000cf0  2d 35 3a e3 6c 6e 6b 3d  30 b8 6c 69 6e 6b 73 2d  |-5:.lnk=0.links-|
00000d00  31 0d 04 38 3f 20 e7 20  63 73 62 28 77 69 6e 6e  |1..8? . csb(winn|
00000d10  65 72 2c 6c 6e 6b 29 3e  73 63 72 6c 6e 6b 20 8c  |er,lnk)>scrlnk .|
00000d20  20 73 63 72 6c 6e 6b 3d  63 73 62 28 77 69 6e 6e  | scrlnk=csb(winn|
00000d30  65 72 2c 6c 6e 6b 29 3a  62 62 6e 6f 3d 6c 6e 6b  |er,lnk):bbno=lnk|
00000d40  0d 04 42 26 20 ed 3a 62  73 25 28 70 29 3d 62 62  |..B& .:bs%(p)=bb|
00000d50  6e 6f 3a 63 73 62 28 77  69 6e 6e 65 72 2c 62 62  |no:csb(winner,bb|
00000d60  6e 6f 29 3d 2d 31 0d 04  4c 10 20 ed 3a f1 22 20  |no)=-1..L. .:." |
00000d70  44 6f 6e 65 2e 22 0d 04  56 06 20 3a 0d 04 60 27  |Done."..V. :..`'|
00000d80  20 61 6c 74 73 3d 28 31  30 30 2d 73 63 6f 72 65  | alts=(100-score|
00000d90  29 3a e7 20 61 6c 74 73  3c 39 20 8c 20 61 6c 74  |):. alts<9 . alt|
00000da0  73 3d 39 0d 04 6a 0e 20  e3 6e 3d 30 b8 61 6c 74  |s=9..j. .n=0.alt|
00000db0  73 0d 04 74 32 20 7a 3d  a8 28 b6 28 b3 28 28 6c  |s..t2 z=.(.(.((l|
00000dc0  69 6e 6b 73 2d 31 29 5e  32 29 29 29 3a 7a 78 3d  |inks-1)^2))):zx=|
00000dd0  7a 3a 78 3d 62 73 25 28  7a 29 3a 7a 3d b3 28 39  |z:x=bs%(z):z=.(9|
00000de0  29 2d 31 0d 04 7e 1e 20  f1 22 5b 22 3b 7a 78 3b  |)-1..~. ."[";zx;|
00000df0  22 2c 22 3b 7a 3b 22 2c  22 3b 78 3b 22 5d 22 2c  |",";z;",";x;"]",|
00000e00  3b 0d 04 88 58 20 6d 25  28 7a 2c 78 2c 30 29 3d  |;...X m%(z,x,0)=|
00000e10  b3 28 36 29 2d 31 3a 6d  25 28 7a 2c 78 2c 31 29  |.(6)-1:m%(z,x,1)|
00000e20  3d b3 28 6e 6f 25 29 3a  6d 25 28 7a 2c 78 2c 32  |=.(no%):m%(z,x,2|
00000e30  29 3d b3 28 6e 6f 25 29  3a 6d 25 28 7a 2c 78 2c  |)=.(no%):m%(z,x,|
00000e40  33 29 3d 74 6f 74 61 6c  69 6e 2b b3 28 6e 6f 25  |3)=totalin+.(no%|
00000e50  2d 74 6f 74 61 6c 69 6e  29 0d 04 92 06 20 ed 0d  |-totalin).... ..|
00000e60  04 9c 06 20 3a 0d 04 a6  2b 20 f4 20 49 6e 69 74  |... :...+ . Init|
00000e70  69 61 6c 69 73 65 20 72  65 61 64 79 20 66 6f 72  |ialise ready for|
00000e80  20 67 65 6e 65 72 61 74  69 6f 6e 20 74 65 73 74  | generation test|
00000e90  0d 04 b0 15 20 62 62 6e  6f 3d 30 3a 67 65 6e 3d  |.... bbno=0:gen=|
00000ea0  67 65 6e 2b 31 0d 04 ba  2e 20 e3 73 3d 30 b8 39  |gen+1.... .s=0.9|
00000eb0  3a 73 25 28 73 29 3d 30  3a e3 6c 3d 30 b8 6c 69  |:s%(s)=0:.l=0.li|
00000ec0  6e 6b 73 2d 31 3a 63 73  62 28 73 2c 6c 29 3d 30  |nks-1:csb(s,l)=0|
00000ed0  3a ed 2c 0d 04 c4 19 20  f1 27 22 47 65 6e 65 72  |:.,.... .'"Gener|
00000ee0  61 74 69 6f 6e 20 22 3b  67 65 6e 27 0d 04 ce 06  |ation ";gen'....|
00000ef0  20 e1 0d 04 d8 05 3a 0d  04 e2 27 20 f4 20 55 73  | .....:...' . Us|
00000f00  65 72 20 69 6e 74 65 72  66 61 63 65 20 66 6f 72  |er interface for|
00000f10  20 42 69 6f 42 6f 74 20  73 79 73 74 65 6d 0d 04  | BioBot system..|
00000f20  ec 06 20 3a 0d 04 f6 0b  20 dd f2 75 73 65 72 0d  |.. :.... ..user.|
00000f30  05 00 0c 20 66 24 3d bf  28 30 29 0d 05 0a 15 20  |... f$=.(0).... |
00000f40  e7 20 66 24 3d 22 44 22  20 8c 20 f2 64 69 73 70  |. f$="D" . .disp|
00000f50  0d 05 14 15 20 e7 20 66  24 3d 22 53 22 20 8c 20  |.... . f$="S" . |
00000f60  f2 73 61 76 65 0d 05 1e  06 20 e1 0d 05 28 30 20  |.save.... ...(0 |
00000f70  f4 20 44 69 73 70 6c 61  79 20 62 65 73 74 20 62  |. Display best b|
00000f80  69 6f 62 6f 74 27 73 20  67 65 6e 65 74 69 63 20  |iobot's genetic |
00000f90  69 6e 66 6f 72 6d 61 74  69 6f 6e 0d 05 32 0b 20  |information..2. |
00000fa0  dd f2 64 69 73 70 0d 05  3c 46 20 db 3a e3 7a 3d  |..disp..<F .:.z=|
00000fb0  30 b8 6c 69 6e 6b 73 2d  32 3a f1 7a 2b 31 2c 6d  |0.links-2:.z+1,m|
00000fc0  25 28 31 30 2c 7a 2c 30  29 2c 6d 25 28 31 30 2c  |%(10,z,0),m%(10,|
00000fd0  7a 2c 31 29 2c 6d 25 28  31 30 2c 7a 2c 32 29 2c  |z,1),m%(10,z,2),|
00000fe0  6d 25 28 31 30 2c 7a 2c  33 29 3a ed 0d 05 46 50  |m%(10,z,3):...FP|
00000ff0  20 f1 6c 69 6e 6b 73 2c  6d 25 28 31 30 2c 6c 69  | .links,m%(10,li|
00001000  6e 6b 73 2d 31 2c 30 29  2c 6d 25 28 31 30 2c 6c  |nks-1,0),m%(10,l|
00001010  69 6e 6b 73 2d 31 2c 31  29 2c 6d 25 28 31 30 2c  |inks-1,1),m%(10,|
00001020  6c 69 6e 6b 73 2d 31 2c  32 29 2c 6d 25 28 31 30  |links-1,2),m%(10|
00001030  2c 6c 69 6e 6b 73 2d 31  2c 33 29 3b 0d 05 50 19  |,links-1,3);..P.|
00001040  20 f1 27 27 22 53 63 6f  72 65 64 3a 20 22 3b 73  | .''"Scored: ";s|
00001050  63 6f 77 69 6e 0d 05 5a  14 20 ef 20 37 3a f5 20  |cowin..Z. . 7:. |
00001060  fd 20 bf 28 30 29 3d 22  22 0d 05 64 11 20 f5 20  |. .(0)=""..d. . |
00001070  fd 20 bf 28 30 29 3c 3e  22 22 0d 05 6e 06 20 e1  |. .(0)<>""..n. .|
00001080  0d 05 78 1f 20 f4 20 53  61 76 65 20 62 65 73 74  |..x. . Save best|
00001090  20 62 69 6f 62 6f 74 20  74 6f 20 64 69 73 63 0d  | biobot to disc.|
000010a0  05 82 0b 20 dd f2 73 61  76 65 0d 05 8c 10 20 66  |... ..save.... f|
000010b0  69 6c 65 3d ae 22 42 42  46 22 0d 05 96 4a 20 e3  |ile=."BBF"...J .|
000010c0  7a 3d 30 b8 6c 69 6e 6b  73 2d 31 3a f1 23 66 69  |z=0.links-1:.#fi|
000010d0  6c 65 2c 7a 2b 31 2c 6d  25 28 31 30 2c 7a 2c 30  |le,z+1,m%(10,z,0|
000010e0  29 2c 6d 25 28 31 30 2c  7a 2c 31 29 2c 6d 25 28  |),m%(10,z,1),m%(|
000010f0  31 30 2c 7a 2c 32 29 2c  6d 25 28 31 30 2c 7a 2c  |10,z,2),m%(10,z,|
00001100  33 29 3a ed 0d 05 a0 0b  20 d9 23 66 69 6c 65 0d  |3):..... .#file.|
00001110  05 aa 06 20 e1 0d 05 b4  06 20 3a 0d 05 be 2f 20  |... ..... :.../ |
00001120  f4 20 47 69 76 65 20 62  69 6f 62 6f 74 20 61 20  |. Give biobot a |
00001130  73 63 6f 72 65 20 66 72  6f 6d 20 73 75 63 63 65  |score from succe|
00001140  73 73 69 76 65 20 67 6f  65 73 0d 05 c8 17 20 dd  |ssive goes.... .|
00001150  a4 73 63 72 3d 73 63 6f  72 65 62 75 2f 67 6f 65  |.scr=scorebu/goe|
00001160  73 0d 05 d2 06 20 3a 0d  05 dc 2b 20 f4 20 41 64  |s.... :...+ . Ad|
00001170  64 20 73 63 6f 72 65 73  20 74 6f 20 62 6f 6e 64  |d scores to bond|
00001180  73 20 66 72 6f 6d 20 74  68 69 73 20 42 69 6f 42  |s from this BioB|
00001190  6f 74 0d 05 e6 16 20 dd  f2 61 64 64 62 6f 6e 64  |ot.... ..addbond|
000011a0  73 28 73 63 6f 72 65 29  0d 05 f0 11 20 e3 6c 3d  |s(score).... .l=|
000011b0  30 b8 6c 69 6e 6b 73 2d  31 0d 05 fa 40 20 63 73  |0.links-1...@ cs|
000011c0  62 28 62 62 6e 6f 2c 6c  29 3d 63 73 62 28 62 62  |b(bbno,l)=csb(bb|
000011d0  6e 6f 2c 6c 29 2f 67 6f  65 73 2a 28 67 6f 65 73  |no,l)/goes*(goes|
000011e0  2d 31 29 2b 28 73 63 6f  72 65 2a 62 6f 6e 64 25  |-1)+(score*bond%|
000011f0  28 6c 29 29 2f 67 6f 65  73 0d 06 04 06 20 ed 0d  |(l))/goes.... ..|
00001200  06 0e 06 20 e1 0d ff                              |... ...|
00001207