@ @ 4170/@ ****************************R@ *** BLIND WATCHMAKER 1: **u@( *** BIOMORPH ***@2 ****************************@< (C) 1991 DOV SHERMAN@F%@P1,1:A$"":X167:A:A$A$(A):X:A$,1:0IAZ31,0,0,32,128,0,32,64,0,32,32,0,16,16,0,8,8,0,29,228,0,34,18,128,34,9,64,97,194,160,144Ad133,80,137,138,40,70,83,80,36,3,160,27,64,64,0,128,128,1,1,0,0,130,0,0,68,0,0,40,0,0,16,0,23,0,20,0AnG(11),M(9),H(11)AoG(0)0:M(0)0:H(0)0'BxGS11:CX0:CY0:Y0:X0:SN0:NN0:S0:X1GS:G(X)0:X:BD9:SC1BGE0:SS0:SE0:CH0:M0:SG0:T0:P0:LO0:SY0:SX0:XA160:YA60:XB60:YB140:XCXA(XAXB):YCYB:MG100BS$(0)" ":S$(1)"":S$(2)"":V(0)0:V(1)1:V(2)1CBI(8,11),CX(8),CY(8),F(500,11),T(3,11),BM(8,8),FM(500,9),TM(3,8)6CX111:F(0,X)0:X:F(0,9)1RCD(X)2.22((.7125)X)pCH$""CK$" "CX18:CX(X),CY(X):XC39,49,119,49,199,49,279,49,39,151,119,151,199,151,279,151D53280,0:53281,0:&:350,D0,2:1,1:4,2:1,1]D1,0,0319,0:1 319,199:1 0,199:1 0,0tD1,0,100 319,100D1,80,0 80,199:1,160,0 160,199:1,240,0 240,199DDLO1024X40Y:LO,122:SS1D"A$"":A$: E,A$""A$""A$(13):A$:DE6A$""SS1LO40SS40,32:LO80SS40,122:SSSS1{E@A$""SSSLO40SS40,32:LOSS40,122:SSSS1EJA$(13)ET290E^(14);" ";Eh" ";/Fr" ݭ";bF|"ݰ ";F" Ƞ͠ˠŠҠ : ";F"ݭ ";G" ݰ";1G" ";bG" ";~G13);"BY OV HERMAN"G" ASED ON A ONCEPT BY ICHARD AWKINS"G" WITH PECIAL HANKS TO ARCHAL OODY"H"HIS PROGRAM OPYRIGHT 1991, OV HERMAN"@H"ONCEPT OPYRIGHT 1986, ICHARD AWKINS"fH"LL IGHTS ESERVED.":K$:A$H"HIS PROGRAM IS HAREARE. OU ARE"H"GRANTED LIMITED LICENSE TO USE, COPY,"H"AND DISTRIBUTE THIS PROGRAM IN ITS"I"ę FORM. F YOU HAVE ANY"AI"COMMENTS OR SUGGESTIONS, IF YOU'D LIKE"lI&"A MORE COMPLETE EXPLANATION OF THIS"I0"PROGRAM AND THE ALGORITHMS USED, IF"I:"YOU'D LIKE PERMISSION TO MODIFY IT, OR"ID"IF YOU'D JUST LIKE TO SEND A SMALL"JN"CONTRIBUTION (WHATEVER YOU THINK THIS"IJX"PROGRAM'S WORTH), YOU CAN WRITE TO ME"Jb"AT:OV HERMAN":" OX 14380":" OONE, 28608-0001"Jl"LEASE ENCLOSE A SELF-ADDRESSED STAMPED"Jv"ENVELOPE. F YOU ARE REQUESTING"K"PERMISSION TO MODIFY, ENCLOSE A FULL"AK"DESCRIPTION OF THE MODIFICATION AND A"lK"FLOPPY DISK CONTAINING THE MODIFIED"K"VERSION.":K$:A$K(14);" ";K" ";!L" ݭ";RL"ݰ ";L" ";L"ݭ ";L" ݰ";M" ";PM" ";~M"HIS PROGRAM IS BASED ON THE CONCEPTS"M "AND DESCRIPTIONS IN ICHARD AWKINS'"M"BOOK "(34)"HE LIND ATCHMAKER"(34)"."N "IMPLE BIOMORPHS ARE DEFINED BY A SET"6N*"OF"GS"GENES. BIOMORPH GIVES BIRTH TO"aN4"7 OFFSPRING FROM WHICH PICK THE"N>"SURVIVOR, THUS REPLACING SOME OTHER"NH"NATURAL SELECTION, FOR EXAMPLE, ATURE'S"NR"SURVIVAL-OF-THE-FITTEST.":K$:A$O\"ACH OFFSPRING HAS THE SAME GENETIC";Of"STRUCTURE AS THE PARENT BIOMORPH,"aOp"EXCEPT FOR ONE SMALL MUTATION."Oz"O UNDERSTAND HOW A MUTATION WORKS,"O"YOU MUST FIRST UNDERSTAND HOW THE"O(34)"GENES"(34)" OF A BIOMORPH WORK."P"IRST, YOU MAY EITHER CHOOSE A PARENT" TO MOVE HECK":" <> TO ELECT"ZZ280:SS1660,1940,1610,3600,2080Z"URRENT LOT MODE IS ";:FS1".":ՙ"LOW."[" LOT DRAWS BIOMORPHS QUICKER BUT DOESN'T ALLOW YOU TO SEE THE BIOMORPH UNTIL IT IS COMPLETED."V[" LOT TAKES LONGER BUT ALLOWS YOU TO WATCH THE BIOMORPH BEING DRAWN."[""HOOSE <>AST OR <>LOW LOTTING"[,A$:A$"F"A$"S"1580[6A$"F"FS1:FS0[@2080[JX1GS:F(0,X)((0)13)6:X:GE0[TF(0,10)((0)7)\^X18:FM(0,X)((0)3):XD\hF(0,9)0F(0,9)((0)13)6:1640N\r2080b\|GE0:1720:SG0~\1,1:0,2:1,1:53280,1\230\SE18:CXCX(SE):CYCY(SE):CH18:G(CH),M(CH):BI(SE,CH)G(CH):BM(SE,CH)M(CH):CH]CH911:G(CH):BI(SE,CH)G(CH):CH:SC1.1:4180:SED]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0q]2,0,2,0,2,0,2,0,2,0,0,0,-2,0,-2,0,2,0,0]2,0,2,0,2,0,2,0,2,0,0,0,-2,0,-2,0,2,1,0]2,0,2,0,2,0,2,0,2,0,0,0,-2,0,-2,0,2,2,0]2,0,2,0,2,0,2,0,2,0,0,0,-2,0,-2,0,4,3,0%^2,0,2,0,2,0,2,0,2,0,0,0,-2,0,-2,0,4,4,0R^2,0,2,0,2,0,2,0,2,0,0,0,-2,0,-2,0,3,6,0^-7,0,5,0,-4,0,5,0,-5,0,-7,0,0,0,5,0,-2,4,1^-1,1,-6,1,1,0,-3,2,2,0,-1,0,-2,1,-3,0,5,0,4^53281,0:0:53280,0^"SE THE < > TO MOVE THE CURSOR."%_" <> TO ELECT IT."6_&""K$:A$K_01:0,1:53280,1d_:SE1:1,1,7,1,1,1,0_DSXCX(SE)24:SYCY(SE)50:1,SX,SY_NA$:A$""1870_XA$""SESE4:SE1SESE8_bA$""SESE4:SE8SESE8`lA$""SESE1:SE8SE1"`vA$""SESE1:SE1SE86`A$(13)1860v`X1GS:F(0,X)BI(SE,X):X:X18:FM(0,X)BM(SE,X):X:2080`GE0:" Ԡ":SG0`" IOMORPH HAS"GS"GENES. LEASE ENTER THEM NOW."`X18a"ENE"X":":G:G(G)Wa(G)BD"ENES MUST BE WITHIN THE RANGE OF "(BD)" < ENE <"BD:1961a"ODIFIER (A) ONE (B) (C) "aA$:A$"C"A$"A"1965aH(X)G:G(X)G:M(X)(A$)65:XaX911a"ENE"X":":G:G(G);b(G)BD"ENES MUST BE WITHIN THE RANGE OF "(BD)" < ENE <"BD:1970wbX10(G6G0)"ENE 10 MUST BE FROM 0 TO 6.":1970bX9G0"ENE 9 MAY NOT BE 0.":1970bH(X)G:G(X)G:X:CX160:CY60:53280,1:53281,1:0,2:1,1b2,1,20c1,99,0,221,130:1,102,2,218,128:SC1:4180kcG$"":X18:G$G$(H(X))(S$(M(X)),1):X:X911:G$G$" "(H(X)):Xc1,(20(G$)2),18,(G$),0c""H$"S THIS ORRECT? (Y/N)"cY$:Y$"N"0:53280,0:53281,0:1940c Y$"Y"2050dX1GS:F(0,X)H(X):X:X18:FM(0,X)M(X):XWd 0:53281,0:1,0:53280,0:""13);" "d*"ARENT IOMORPH OF ENERATION"GEd4"ENETIC STRUCTURE:"d>X18:F(GE,X);S$(FM(GE,X));:X:X911:F(GE,X);:X:eH" "+eR" IEW THIS IOMORPH "Ue\" VOLVE NEXT ENERATION "ef" EE OSSILS ":" OPEFUL ONSTER "ep" ENE UGGLER "ez" E-OLVE "#f" AIN ENU "Mf" AST/LOW LOT PTIONS "wf" +/- AGNIFICATION "f" TORE ARENT FOR RIANGLE"f" RIANGULATE IN IOMORPHIC"f" LEVEN-IMENSIONAL PACE"0g" ":X6:Y8:S11ig"URRENT LOT PEED IS ";:FS1".":ՙ"LOW."g"URRENT AGNIFICATION IS "MG"%"g280:SS2320,2390,3180,2780,2960,2290,1440,1540,2280,5180,5350!hMG100:"HANGE AGNIFICATION TO HAT %":"(EFAULT 100%)";:MG:2080ohGE0"E-VOLUTION IMPOSSIBLE FROM LOWEST ENERATION.": 1:2080hGG0:"E-OLVE TO HICH ENERATION";:GG:GG(GE)"OU MUST ENTER A ENERATION OWER THAN THE URRENT ONE.":2300h GEGG:2080i 53280,1:53281,1:0,2:1,1%i 2,1,24Ii$ 1,49,0,271,183:1,52,2,268,181i. G$"":X18:G$G$(F(GE,X))(S$(FM(GE,X)),1):X:X911:G$G$" "(F(GE,X)):Xi8 1,(20(G$)2),23,(G$),0jB X1GS:G(X)F(GE,X):X:X18:M(X)FM(GE,X):X:CX160:CY91:SC1.75:4180+jL ""H$K$;:A$:2080@jV "VOLVING..."zj` X1GS:BI(1,X)F(GE,X):X:X18:BM(1,X)FM(GE,X):Xjj X23:Y1GS:BI(X,Y)BI(1,Y):Y:Y18:BM(X,Y)BM(1,Y):Y:X:BI(2,9)BI(2,9)1:BI(3,9)BI(3,9)1jt BI(2,9)0BI(2,9)1k~ BI(3,9)0BI(3,9)1Tk X48:Y1GS:BI(X,Y)BI(1,Y):Y:Y18:BM(X,Y)BM(1,Y):Ypk M((0)3)1:M02450k Y((0)(19))1:Y92460:ՋX42490k Y122500k YY11:BM(X,Y)BM(X,Y)1:BM(X,Y)3BM(X,Y)0k 2550k BI(X,Y)BI(X,Y)Ml BI(X,Y)BDBI(X,Y)BD3l BI(X,Y)BDBI(X,Y)BDUl (Y10)(BI(X,Y)6)BI(X,Y)5wl (Y10)(BI(X,Y)0)BI(X,Y)1~l Xl 230:1,3,2,77,98:A18:CXCX(A):CYCY(A):B1GS:G(B)BI(A,B):B:B18:M(B)BM(A,B):B:SC1.1:4180:Am 53281,0:0:53280,03m "HE IOMORPH IN THE UPPER LEFT CORNER"am "IS THE ARENT AND THE REST ARE VARIANT"sm( "OFFSPRING."m2 "HOOSE THE OFFSPRING TO BE THE ARENT"m< "IOMORPH OF THE NEXT GENERATION."mF "SE THE < > TO MOVE THE CURSOR"(nP " <> TO ELECT THE ARENT"TnZ " <> TO EJECT LL FFSPRING"dnd ""K$:A$ynn 1:0,1:53280,1nx SE2:1,1,7,1,1,1,0n SXCX(SE)24:SYCY(SE)50:1,SX,SYn A$:A$""2700n A$""SE5SESE4:SE1SESE8o A$""SE5SESE4:SE8SESE8=o A$""SESE1:SE8SE2\o A$""SESE1:SE2SE8mo A$"R"2080o A$(13)2690o GEGE1:X1GS:F(GE,X)BI(SE,X):X:X18:FM(GE,X)BM(SE,X):X:2080o "OPEFUL ONSTERS EVOLVING..."p X120:SSGEX:"ENERATION"SS":":" ";]p Y1GS:F(SS,Y)F(SS1,Y):Y:Y18:FM(SS,Y)FM(SS1,Y):Yyp M((0)3)1:M02810p Y((0)19)1p Y122870p (0).72820p" YY11:FM(SS,Y)FM(SS,Y)1:FM(SS,Y)3FM(SS,Y)0p, 2940q6 F(SS,Y)F(SS,Y)Mq@ (Y9)(F(SS,Y)0)2870AqJ (Y10)(F(SS,Y)0)F(SS,Y)1cqT (Y10)(F(SS,Y)6)F(SS,Y)5q^ (Y10)(F(SS,Y)0)F(SS,Y)1qh F(SS,Y)BDF(SS,Y)BDqr F(SS,Y)BDF(SS,Y)BDq| Z18:F(SS,Z);S$(FM(SS,Z));:Z:Z911:F(SS,Z);:Z:r X:GEGE20:2080Dr 53280,1:53281,1:0,2:1,1:2,1,20:SS1:G11984hr 1,59,0,261,152:1,62,2,258,150r X1GS:G(X)F(GE,X):X:X18:M(X)FM(GE,X):X:CX160:CY76:SC1.5:41808s ""H$"SE TO HOOSE ,

TO HANGE IT. <> FOR EGMENT ODS. <>UIT"rs X18:F(GE,X);S$(FM(GE,X));:X:X911:F(GE,X);:Xs G2SS31982:G1,32:G2,30:G254272,0s A$:A$"Q"2080s A$""SS11G1G2:SSSS1:3010s A$""SS1G1G2:SSSS1:3010t A$""31201t QF(GE,SS):QQ1:QBDQBDDt 1:QBDQBDXt Q0SS103020lt Q6SS103020t SS9Q03110:ՋA$""Q1:Q1t& GEGE1:X1GS:F(GE,X)F(GE1,X):X:F(GE,SS)Q:X18:FM(GE,X)FM(GE1,X):X:2970t0 A$""3150u: QF(GE,SS):QQ1:QBDQBD)uD 3070;uN A$" "3020VuX QFM(GE,SS)1:Q3Q0ub 1:GEGE1:X1GS:F(GE,X)F(GE1,X):X:X18:FM(GE,X)FM(GE1,X):X:FM(GE,SS)Q:2970ul " "uv "URRENT ENERATION:"GE1v "IRST IOMORPH:":X18:F(0,X);S$(FM(0,X));:X:X911:F(GE,X);:X:v "URRENT IOMORPH:":X18:F(GE,X);S$(FM(GE,X));:X:X911:F(GE,X);:X:v " "v " IEW OSSILS "v " "w " "w X6:Y9:S2:280*w SS3280,2080@w 53280,1:53281,1Vw 0,2:1,1:2,1,16w 1,110,0,210,120:1,0,0,100,120:1,219,0,319,120w A02:B1GS:G(B)F(ASG,B):B:B18:M(B)FM(ASG,B):Bw CY60:CX50:A1CX160w A2CX270x (SGA)(GE)SC1:4180Hx A:""H$""4);SG;18);SG1;32);SG2:3500x "< > TO CROLL <> TO UIT <> TO UMP TO PECIFIC IOMORPH";x* A$:A$""3370x4 A$"Q"2080:ՋA$"J"3570x> A$""A$""3370yH A$""SG(GE)3470yR A$""3370(y\ A$""SG034402yf 3370Pyp SG0SGSG1:X1150:Xfyz A$:A$""3290y ""H$""4);SG;18);SG1;32);SG2:3440y SG(GE)SGSG1:X1150:Xy A$:A$""3290z ""H$""4);SG;18);SG1;32);SG2:3470(z X02:14X);"ENES";:X:pz X02:14X);"";:Y13:F(SGX,Y);S$(FM(SGX,Y));:Y:"";:X:z X02:14X);"";:Y46:F(SGX,Y);S$(FM(SGX,Y));:Y:"";:X:{ X02:14X);"";:Y79:F(SGX,Y);S$(FM(SGX,Y));:Y:"";:X:>{ X02:14X);"";:Y1011:F(SGX,Y);:Y:" ";:X:e{ X02:14X);"ENES";:X:k{ { ""H$"UMP TO WHICH IOMORPH (0 -"GE")"{ SSSG:SS:SS0SS(GE)3570{SGSS:3290{" ISK UNCTIONS"|" "B|$" AVE ENES TO ISK "k|." AVE ICTURE TO ISK "|8" OAD ENES FROM ISK ":" IRECTORY "|B" AIN ENU " }L" " }VX9:Y4:S5:280A}`SS3820,3690,4060,4160,1440r}j"NTER ILENAME TO (BLANK TO ABORT)"}tF$"":F$:F$""3600}~(F$)10F$(F$,10)}"S THIS CORRECT? (Y/N)":" "(34)F$(34)""}Y$:Y$"N"3690~Y$"Y"3730@~%:15,8,15,"S0:"F$".BIO.GR":15:1,1:53280,1:53281,1d~1,49,0,271,180:1,52,2,268,178~X1GS:G(X)F(GE,X):X:X18:M(X)FM(GE,X):X:CX160:CY87:SC1.75:4180X1156((F$)4):Y1172:X2164((F$)4):Y2188:((F$)2)((F$)2)X1X18C0,X1,Y1,X2,Y2,0,1:1,X1,Y1,X2,Y2:1,X13,Y12,X23,Y22b1,(20(F$)2),22,(F$),0G$"":X18:G$G$(F(GE,X))(S$(FM(GE,X)),1):X:X911:G$G$" "(F(GE,X)):X1,(20(G$)2),24,(G$),0(F$".BIO.GR"),B0,P8192P16192&:0:53280,0:53281,0:3600": - IOMORPHIC ENERATIONS":" - PECIFIC ENERATION":" - ENERATION":" -"A$:A$"D"3600ɀA$"B"3960ڀA$"A"3860A$"C"SGGE:3970 A$"D"38305"NTER ILENAME TO (BLANK TO ABORT)"OF$"":F$:F$""3600i((F$)10F$(F$,10)2"S THIS CORRECT? (Y/N)":" "(34)F$(34)""<Y$:Y$"N"3780ŁFY$"Y"3900P15,8,15,"S0:"F$".BIO":15Z5,8,5,"0:"F$".BIO,S,W"d5,GEPnX0GE:Y1GS:5,F(X,Y):Y:Y18:5,FM(X,Y):Y:X:5:3600xSGGE:"NTER ENERATION UMBER OF PECIFIC IOMORPH.":SG:SG0SG(GE)3960:SG(SG)も"NTER ILENAME TO (BLANK TO ABORT)"F$"":F$:F$""3600(F$)10F$(F$,10)L"S THIS CORRECT? (Y/N)":" "(34)F$(34)""aY$:Y$"N"3970sY$"Y"401015,8,15,"S0:"F$".BIO":155,8,5,"0:"F$".BIO,S,W"5,0:X1GS:5,F(SG,X):X:X18:5,FM(SG,X):X:5:3600!"NTER ILENAME TO (BLANK TO ABORT)";F$"":F$:F$""3600U(F$)10F$(F$,10)"S THIS CORRECT? (Y/N)":" "(34)F$(34)""Y$:Y$"N"4060Y$"Y"4100τ5,8,5,"0:"F$".BIO,S,R"ل"5,GE!,X0GE:Y1GS:5,F(X,Y):Y:Y18:5,FM(X,Y):Y:X:5:GE02080+63600G@"";::K$:A$:3600J0:53280,0:53281,0::""(ER)" IN "EL:"REE EMORY:"(0):1,0:TFS1%^SCSCMG100h4210:&:rSMG(10):EG(G(11)):ES(G(11)):NS0|1,CX,CY:G(9)03SN(G(9))SC:NN0:XX0:Y(D(NN)G(4)SN):YYYGS2((G(9))1)\1,CX,CYCX,CYYwSM11,CX,CYCX,CYYSM31,CX,CYCXY,CY:1,CX,CYCXY,CYچNN1:XXX:YYY:XG(1)D(NN)SC:YYG(5)D(NN)SNSM51,CX,CYYY CXX,CYY7SM41,CXYY,CY CXY,CYX:1,CXYY,CY CXY,CYXvSM4SM61,CXYY,CY CXY,CYX:1,CXYY,CY CXY,CYXSM2SM3SM41,CX,CYYY CXX,CYY·SM3SM4SM61,CX,CYYY CXX,CYYSM1SM3SM41,CX,CYYY CXX,CYYS1YYG(5)D(NN)SN:4370?SS2:4490:YYG(5)D(NN)SNKEG0EGEG1:NSNS1:M18:G(M)V(M(M))G(M):M:YY(D(0)G(4))ESSC2:4240& B1ۈ0XXX:YYY:XX(G(1)D(NN))SC:YY(G(5)D(NN))SN:5110DS1SS2:NNNN1:4490:SS2:NNNN1?NXX(G(1)D(NN))SC:YY(G(5)D(NN))SNwXXXX:YYY:XX(G(1)D(NN))SC:YY(G(5)D(NN))SNb5110lS1SS2:NNNN1:5030:SS2:NNNN1݉vXX(G(1)D(NN))SC:YY(G(5)D(NN))SN:所 B2XXX:YYY:XX(G(2)D(NN))SC:YY(G(6)D(NN))SN(5110TS1SS2:NNNN1:4580:SS2:NNNN1XX(G(2)D(NN))SC:YY(G(6)D(NN))SNXXX:YYY:YY(G(4)D(NN))SN5110ۊS1SS2:NNNN1:4400:SS2:NNNN1YY(G(4)D(NN))SN: B37XXX:YYY:XX(G(1)D(NN))SC:YY(G(5)D(NN))SNA5110mS1SS2:NNNN1:4490:SS2:NNNN1XX(G(1)D(NN))SC:YY(G(5)D(NN))SNӋ XXX:YYY:XX(G(3)D(NN))SC:YY(G(7)D(NN))SN݋5110 S1SS2:NNNN1:4670:SS2:NNNN19*XX(G(3)D(NN))SC:YY(G(7)D(NN))SN:B4 B4e>XXX:YYY:YY(G(8)D(NN))SNoH5110RS1SS2:NNNN1:4760:SS2:NNNN1\YY(G(8)D(NN))SNfXXX:YYY:XX(G(2)D(NN))SC:YY(G(6)D(NN))SNp5110"zS1SS2:NNNN1:4580:SS2:NNNN1RXX(G(2)D(NN))SC:YY(G(6)D(NN))SN:[ B5XXX:YYY:XX(G(3)D(NN))SC:YY(G(7)D(NN))SN5110ɍS1SS2:NNNN1:4850:SS2:NNNN1XX(G(3)D(NN))SC:YY(G(7)D(NN))SN/XXX:YYY:XX(G(3)D(NN))SC:YY(G(7)D(NN))SN95110eS1SS2:NNNN1:4670:SS2:NNNN1XX(G(3)D(NN))SC:YY(G(7)D(NN))SN: B6֎XXX:YYY:XX(G(2)D(NN))SC:YY(G(6)D(NN))SN5110 S1SS2:NNNN1:4940:SS2:NNNN1:XX(G(2)D(NN))SC:YY(G(6)D(NN))SN]XXX:YYY:YY(G(8)D(NN))SNg$5110.S1SS2:NNNN1:4760:SS2:NNNN18YY(G(8)D(NN))SN:B B7LXXX:YYY:XX(G(1)D(NN))SC:YY(G(5)D(NN))SNV5110%`S1SS2:NNNN1:5030:SS2:NNNN1SjXX(G(1)D(NN))SC:YY(G(5)D(NN))SNtXXX:YYY:XX(G(3)D(NN))SC:YY(G(7)D(NN))SN~5110S1SS2:NNNN1:4850:SS2:NNNN1XX(G(3)D(NN))SC:YY(G(7)D(NN))SN: B8XXX:YYY:YY(G(4)D(NN))SN'5110SS1SS2:NNNN1:4400:SS2:NNNN1lYY(G(4)D(NN))SNXXX:YYY:XX(G(2)D(NN))SC:YY(G(6)D(NN))SN5110ڑS1SS2:NNNN1:4940:SS2:NNNN1 XX(G(2)D(NN))SC:YY(G(6)D(NN))SN:0SM51,CXXX,CYYY CXX,CYYpSM41,CXYY,CYXX CXY,CYX:1,CXYY,CYXX CXY,CYX SM4SM61,CXYY,CYXX CXY,CYX:1,CXYY,CYXX CXY,CYXSM2SM3SM41,CXXX,CYYY CXX,CYYSM3SM4SM61,CXXX,CYYY CXX,CYYB(SM1SM3SM41,CXXX,CYYY CXX,CYYH2l<" RIANGLE TORAGE"F" "P" TORE IN LOT 1 "ۓZ" TORE IN LOT 2 "d" TORE IN LOT 3 "%n" VOLUTION ENU "Jx" 11-IMENSIONAL "o" RIANGULATION "" ":X10:Y2:S5"URRENT TORAGE REAS:"Z13:Z": ";:ZZ18:T(Z,ZZ);S$(TM(Z,ZZ));:ZZ:ZZ911:T(Z,ZZ);:ZZ::Z280<SS5310,5330,5340,2080,5350DZ1ZZ1GS:T(Z,ZZ)F(GE,ZZ):ZZ:ZZ18:TM(Z,ZZ)FM(GE,ZZ):ZZ:5180Z2:5320Z3:5320" IOMORPHIC LEVEN-IMENSIONAL":" RIANGULATION"" "?" OCUMENTATION "f" UN RIANGULATION "" VOLUTION ENU "" "Ӗ""URRENT TORAGE REAS:"%,Z13:Z": ";:ZZ18:T(Z,ZZ);S$(TM(Z,ZZ));:ZZ:ZZ911:T(Z,ZZ);:ZZ::Z;6X10:Y3:S3:280R@SS5450,5820,2080J" IOMORPHIC LEVEN-IMENSIONAL":" RIANGULATION"˗T" EN OF THE"GS"ENES CAN HAVE A VALUE"^"FROM "(BD)"TO"BD". HIS HAS THE EFFECT"&h"OF DEFINING 11 AXES, EACH ONE BEING"Qr"PERPENDICULAR TO THE OTHER 10. HIS"|"DEFINES A 11-IMENSIONAL PACE WITH EACH""GENE REPRESENTING THE POSITION OF THE"ט"IOMORPH ALONG A PARTICULAR AXIS.""Y USING THREE "(34)"NCHOR"(34)"-IOMORPHS, WE"?"CAN SIMULATE A THREE-DIMENSIONAL PLANE"l"BISECTING THE 11- SPACE. CALL IT A""THREE-DIMENSIONAL PLANE BECAUSE IT IS A"˙"PLANE WHICH REPRESENTS THREE DIMENSIONS:""AN X-COORDINATE, Y-COORDINATE, AND A"#"GENETIC-COORDINATE. N ACTUALITY, WE"P"WILL BE GENERATING NOT 3- LANE,"{"BUT 11 PLANES MASHED ON TOP OF EACH""OTHER.":K$:A$"HE EFFECT OF USING 11-IMENSIONAL""IOMORPHIC RIANGULATION WILL ENABLE US""TO VIEW THE VOLUTIONARY PACE WHICH"G"CONTAINS THE POSSIBLE IOMORPHS OF"r&"WHICH THERE ARE "((BD21)10)7"!"0"S A REGULAR IOMORPH EVOLVES IN ITS"Λ:"STEP-BY-STEP PROCESS, MUTATING ONE GENE"D"AT A TIME BY -1 OR +1 INCREMENTS, IT""N"MOVES FROM POINT TO POINT IN THE"NX"LEVEN-IMENSIONAL IOMORPHIC PACE."~b"NOTHER, PERHAPS SIMPLER WAY TO EXPLAIN"l"THIS IS IN VIEWING THE SCREEN AS A"v"BREEDING GROUND FOR THE THREE "(34)"NCHOR"(34)"-""IOMORPHS. HEN YOU PICK A POINT ON THE">"SCREEN, THE COMPUTER GENERATES A NEW"l"IOMORPH FROM THE WEIGHTED AVERAGES OF""OTHER THREE IOMORPHS WITH THE GENES"ǝ"FAVORING EACH IOMORPH DEPENDING ON ITS"(34)"EARNESS"(34)".":K$:A$:5350>" IOMORPHIC LEVEN-IMENSIONAL":" RIANGULATION"^"N RIANGULATION ODE:"" SE < > TO OVE URSOR"" <> TO LOT NTERBRED IOMORPH"" TO LEAR ORK PACE"" <1-9> TO HANGE URSOR PEED">" <> TO ETURN TO ENU":K$:A$U0,2:1,1:53280,1^ 1,1x1,0,0,319,199:SC1.1 CXXA:CYYA:X1GS:G(X)T(1,X):X:X18:M(X)TM(1,X):X:4180*CXXB:CYYB:X1GS:G(X)T(2,X):X:X18:M(X)TM(2,X):X:SC1.1:4180R4CXXC:CYYC:X1GS:G(X)T(3,X):X:X18:M(X)TM(3,X):X:SC1.1:4180>1,184,150:1,1,7,1,0,0,0:SX184:SY150:I1H1,SX,SYRA$:A$""5970Ӡ\A$"M"0:53280,0:53281,0:1,0:5350fA$"0"A$":"I(A$):5970pA$""SXI334SXSXI:59609zA$""SXI34SXSXI:5960\A$""SYI240SYSYI:5960~A$""SYI60SYSYI:5960A$""5900A$(13)5970GXSX24:GYSY50:1,1,8衶M1GS:AT(1,M):BT(2,M):CT(3,M)BCG(M)(((BA)(YBYA))(GYYB)B):6110aM1(BC)(XBXC):X1((AC)M1)XC:X1XAG(M)(M1(GXXB)B):6110M2(YBYA)(X1XA):X2((GYYA)M2)XA:G(M)(M1(GXX2)A)âM:1,1,11:CXGX:CYGY:SC1.1آG(10)6G(10)6G(10)0G(10)0?DA((GXXA)2(GYYA)2):DB((GXXB)2(GYYB)2):DC((GXXC)2(GYYC)2)ZSS1:DBDADCDBSS2pDCDADBDCSS3M18:M(M)TM(SS,M):M$0:1,0:"EW IOMORPHIC TRUCTURE:":M18:G(M);S$(M(M));:M:M911:G(M);:M.:"HOOSE <> TO RAW THIS IOMORPH"+8" <> TO ANCEL"IBA$:A$"D"A$"C"6210ZL1:0,2:1,1nV1,1,3,1,0,0,0`A$"C"6260jSC1.1:4180t1,1,7:5970