ф/ DNА : А1 К(18); "LIFE" : А "INSTRUCTIONS"8YNH = 70 : V = 22 : X1 = 1 : Y1 = 1 : X2 = V : Y2 = H7}NА A(22,70), 80 B$(22), UBOUND(10) : C = 0 : G = 1(ЙNА32ЙN C = C + 1<НN В А "-> "; B$(C)FбN A$ = И(B$(C))P╣NА4 A$ = "DONE" К C = 22ZрNB$(C) = "" : C = C - 1d·NАn¤NА X = 1 К C - 1(xO А Ж(B$(X)) > L К L = Ж(B$(X)) В3OА XМAOК FIND EDGES OF COLONYЦAOX1 = Ж((V-X)/2)аSOY1 = Ж((H-L)/2)кeOК COUNT POPULATION┤eOА X = 1 К C╛kO А Y = 1 К Ж(B$(X))╚qO A$ = И(B$(X),Y,1)5╥ФO А A$ <> " " К A(X1+X,Y1+Y) = 1 : P = P + 1▄╧O А Y цыOА XЁ√OК PRINT OUT SCREEN·√OА8 Ж(И ) = 0■O А' 0,0 : А ВGP А1 "GENERATION:"; G; " POPULATION:"; P;: А I9 К А1 " INVALID";(3P X3 = V : Y3 = H : X4 = 1 : Y4 = 1"KP G = G + 1A,OPА X = 1 К X1 - 1 : А1 : А X : К BLANK LINES ABOVE COLONY76fP А X = X1 К X2 : К VERTICAL AREA OF THE COLONY@lP А1 : А В;JrP А Y = Y1 К Y2 : К HORIZONTAL AREA OF THE COLONY/TxP А A(X,Y) = 2 К A(X,Y) = 0 : А д/^лP А A(X,Y) = 3 К A(X,Y) = 1 : А r h▐P А A(X,Y) <> 1 К д,r№P А1 К(Y); "*";: К PRINT ONE CELL|Q А X < X3 К X3 = XЖQ А X > X4 К X4 = XР,Q А Y < Y3 К Y3 = YЪ>Q А Y > Y4 К Y4 = Y дPQ А Yо`Q А X╕pQ А P = 0 К "QUIT".┬~Q К EVOLVE & CHECK FOR GROWTH PAST EDGES,╠~Q X1 = X3 : X2 = X4 : Y1 = Y3 : Y2 = Y4$╓ЦQ А X1 < 3 К X1 = 3 : I9 = -1,рнQ А X2 > (V-2) К X2 = (V-2) : I9 = -1$ъ╬Q А Y1 < 3 К Y1 = 3 : I9 = -1,ЇхQ А Y2 > (H-2) К Y2 = (H-2) : I9 = -1■R P = 0R А X = X1 - 1 К X2 + 1 R А Y = Y1 - 1 К Y2 + 1R C = 0 & R А I = X - 1 К X + 1"0'R А J = Y - 1 К Y + 17:.R А A(I,J) = 1 К A(I,J) = 2 К C = C + 1D{R А JNЙR А IXЧR А А A(X,Y) = 0/b▒R А C = 3 К A(X,Y) = 3 : P = P + 1 l╒R А:v╪R А C < 3 К C > 4 К A(X,Y) = 2 :А P = P + 1АS А А КS А YФ.S А X<Ю?S X1 = X1 - 1 : Y1 = Y1 - 1 : X2 = X2 + 1 : Y2 = Y2 + 11иOSА9 : К LOOP UNTIL NO POPULATION OR KEYPRESS▓\S"QUIT" А╝_S"INSTRUCTIONS"4╞_SА1 : А1 "ENTER A STARTING DESIGN OF ASTERISKS."$╨kSА1 "USE A MAXIMUM OF ONE LINE,",┌tSА1 " PRESS 'RETURN' TO END THE LINE."#ф}SА1 "BE SURE CAPS LOCK IS ON," 1юЖSА1 " AND ENTER 'DONE' WHEN YOU ARE READY."°ПSА1 : А