p0p @:,0:15:47,0:48,68::@5,1,1024,16384~p%: G(30,30),I(30),X(20),Y(20),XX(20),YY(20),W(20),K(20),CELL(20),N$(20)p 1,0p( MODD(Z)((ZD(ZD))D.05)(ZD)q2@8:" RACTAL AGIC":" Y RIAN EYBOER"oq4"(1) ROGRAM AND FRACTAL INTRODUCTION.":"(2) RAGON FROM PROGRAM DATA.":"(3) RAGON FROM DISK DATA."q7"(4) RAGON FROM USER INPUT.":"(5) UIT.q<C$"":"HICH ONE ? 2";A$:A(A$): A 1500,600,360,70,700qA1500WrF"UMBER OF DIRECTIONS";D:"UMBER OF CELLS (QUAL OR GREATER THE NUMBER OF DIRECTIONS)";M: MD 70rP"AX NUMBER OF CELLS IN A CELL DIVISION";LrZ"YCLIC ( OR <> IF NO) ? Ν";IN$sd J0 M1:"IVISION OF CELL"J"(NTER '.' AFTER LAST CELL OF DIVISIONS LESS THAN"L":":G(J,0)L{sn" ";: I1 L:1,A$:", ";:G(J,I)(A$): (A$,".") G(J,0)I:IL: A$"." G(J,0)G(J,0)1sI:" ""t IN$""IN$"Y" I1 G(J,0):SG(J,I):TSMODD(S): KJ1 JD1:G(K,0)G(J,0):G(K,I)MODD(SK)T: K,I:JJD1t Jt"S THIS A STANDARD FRACTAL [ELL DIRECTIONS ARE CELL MODULO NUMBER OF":"DIRECTIONS] ( OR <>)? ٝ";IN$t IN$(1)""IN$"N" I0 M1:I(I)MODD(I): I: 230u"IRECTIONS [INTERPRETER VALUES] FOR CELLS, FOLLOW EACH ENTRY WITH A <>:"Tu" ";: I0 M1:1,A$:", ";:I(I)(A$): A$"." I(I)1cu I:" "u"UMBER OF BIRTH CELLS IN START PATTERN";T:"OLLOW EACH BIRTH CELL INPUT WITH <>"u" "; : I0 T1:1,W(I):", ";: I:" "v"GE IN DAYS";DAY:"ELL LENGTH ";WVv"OORDINATES OF HEAD CELL: = ";:1,X0:" = ";:1,Y0v:N$(0):"ITLE FOR THIS DRAGON";N$vD12D: I0 D1:XX(I)(ID1):YY(I)(ID1): Iv I0 D1:X(I)WXX(I):Y(I)WYY(I): I#w"HEN DRAGON IS PLOTTING, PRESS ANY KEY TO ABORT."cw "HEN DRAGON IS COMPLETE, PRESS ANY KEY TO CONTINUE.": 2w@M,0:@K,0:@E,1:@L,0,0,7wX1X0:Y1Y0:XX0:YY0w I0 T1wCELL(DAY)W(I):310:Iw@,254,10,0,1,1,2,N$ x@,40,1,0,0,0,639,511,1: A$:@8:S1Ax"URRENT RAGON IS "N$;:N$(0)"UNNAMED";x".":"(1) LOT CURRENT DRAGON, (2) EW BIRTH CELLS, (3) EW AGE, (4) IEW GAIN,"y"(5)AVE DRAGON (6) RINT RAGON, (7) EW RAGON, (8) UIT ? 1";A$:A(A$): A 261,800,800,500,400,500,50,700y"2802y, DRAGON PROCEDUREZy6 DAY0 CODEI(CELL(DAY)): 450:y@K(DAY)1: K(DAY)G(CELL(DAY),0):CELL(DAY1)G(CELL(DAY),K(DAY)):DAYDAY1: 310:DAYDAY1:K(DAY)K(DAY)1yJ (212)88yT:z^ LOAD DRAGON ROUTINE!zh"URVE NAME? CRV.";:1,C$Gzm8,8,8,"CRV."C$",S,R": 8,D,M,Lzr I0 M1: 8,G(I,0): J1 G(I,0): 8,G(I,J)::8,I(I):z|8,T: I0T1:8,W(I)::8,DAY,W,X0,Y0,N$:8:280z SAVE DRAGON ROUTINE,{"(1) AVE SCREEN AS FILE, (2) AVE CURVE DATA ONLY";A$: (A$) 402,4095{280X{"ICTURE NAME? PICT.";:1,C$t{@W,40,8,"PICT."C$:@@}{280{"URVE NAME? CRV.";:1,C$:8,8,8,"CRV."C$",S,W"{ 8,D","M","L: I0 M1: 8,G(I,0): J1 G(I,0):8,G(I,J)::| 8,I(I)::8,T:I0T1:8,W(I)::8,DAY","W","X0","Y0","N$G|8: 280i| ROUTINE TO INTERPRET A CELLz| CODE0 | CODED XXX(CODED):YYY(CODED):X1X:Y1Y:|XXX(CODE):YYY(CODE):X0Y0X10Y10@2,X1,Y1,0,X,Y,0,1 }X1X:Y1Y:5} S0"O DRAGON PLOTTED.": 2:280U}@M,0:@K,0:@E,1:@L,0,0,7f}@!,40,0,0,0}} A6 @A,5,2,2,0}279}X"RAGONS AVAILABLE:"::I120:N$(I):"("I") "N$(I):~b"HICH DRAGON DO YOU WANT";A$:A(A$):A1A20280~l(1090A10):N$N$(A)Y~ D,M,L: J0M1:G(J,0): I1G(J,0):G(J,I)::I(J) :~ T: I0 T1: W(I):: DAY,W,X0,Y0:280~~ "":T"URRENT BIRTH CELL(S) =";: I0T1:W(I)",";::" "-*"URRENT AGE ="DAY:"URRENT CELL LENGTH ="W:"URRENT HEAD COORDINATES ="X0","Y0:"":4A2230C>240"OTCH'S NOWFLAKE","IERPINSKI'S ARPET","IERPINSKI GAIN","ILBERT'S URVE","OSPER'S URVE","ANDOM URVE","EIGHWAY'S RAGON"^"EIGHWAY'S RAGON NTERIOR","EIGHWAY'S RAGON OUNDRY","EIWAY'S RAGON URD","ANDELBROT'S RROWHEAD","ANDELBROT'S UINTET","RICK URVE""RICK NTERIOR","AVIS AND NUTH'S ERDRAGON","ENTIGREE URVE","OORE'S ECKLACE","EKKING'S HURCH","ACE URVE","HRISTMAS REE"RL6,6,4,4,0,1,5,0,0,4,1,2,0,1,1,4,2,3,1,2,2,4,3,4,2,3,3,4,4,5,3,4,4,4,5,0,4,5,5,1,0,4,7,50,300: KOTCHV4,8,9,9,0,1,0,3,6,3,0,1,0,0,9,1,2,1,0,7,0,1,2,1,1,9,2,3,2,1,4,1,2,3,2,2,9,3,0,3,2,5,2,3,0,3,3,3,4,4,4,4,3,5,5,5,5,3,6,6,6,6,3,7,7,7,7,1,0,3,10,200,250W SIERPINSKIn`8,8,2,2,0,1,0,2,2,0,7,2,3,4,6,2,2,5,2,2,6,2,1,2,0,3,5,2,6,7,4,2,3,6,3,1,4,9,10,600,400: SIERPINSKI AGAINj4,10,4,4,1,0,3,4,0,4,0,1,2,5,1,4,0,1,2,6,2,4,1,0,3,7,3,4,6,7,4,0,0,4,7,6,5,1,1,4,7,6,5,2,2,4,6,7,4,3,3,4,1,0,3,9,-1,4,6,7,4,8,-1,1,8,5,10,160,400k HILBERTt6,12,7,7,0,7,9,2,0,0,11,0,7,1,8,10,3,1,1,6,1,7,2,9,11,4,2,2,7,2,7,3,10,6,5,3,3,8,3,7,4,11,7,0,4,4,9,4,7,5,6,8,1,5,5,10,5,7,5,6,6,8,3,1,6,0(u7,0,7,7,9,4,2,7,1,7,1,8,8,10,5,3,8,2,7,2,9,9,11,0,4,9,3,7,3,10,10,6,1,5,10,4,7,4,11,11,7,2,0,11,5,3,0,4,2,3,12,200,300: GOSPER~8,8,2,2,0,5,0,2,2,5,1,2,2,7,2,2,0,7,3,2,4,1,4,2,6,1,5,2,6,3,6,2,4,3,7,1,0,10,20,250,100: RANDOMׄ4,4,2,2,0,1,0,2,2,1,1,2,2,3,2,2,0,3,3,1,0,9,13,200,300,REM HEIGHWAYL4,8,2,2,5,1,0,2,2,1,1,2,7,3,2,2,0,3,3,2,0,4,-1,2,5,6,-1,2,2,6,-1,2,7,4,-1,1,1,9,20,500,200,: HEIGHWAY INTERIORօ4,12,2,2,0,5,0,2,6,9,1,2,7,2,2,2,11,4,3,1,8,0,1,6,1,1,10,2,1,4,3,2,0,1,0,2,10,9,1,2,3,2,2,2,11,8,3,4,0,5,6,11,5,35,250,250: BOUNDRY94,8,2,2,0,5,0,2,2,5,1,2,2,7,2,2,0,7,3,2,4,1,4,2,6,1,5,2,6,3,6,2,4,3,7,1,0,9,10,200,300: CURD6,24,3,3,0,7,17,0,3,1,8,12,1,3,2,9,13,2,3,3,10,14,3,3,4,11,15,4,3,5,6,16,5,3,23,1,6,0,3,18,2,7,1,3,19,3,8,2,3,20,4,9,323,21,5,10,4,3,22,0,11,5,3,12,23,1,0,3,13,18,2,1,3,14,19,3,2,3,15,20,4,3,3,16,21,5,4,3,17,22,0,5,3,7,17,18,0,3,8,12,19,13,9,13,20,2,3,10,14,21,3,3,11,15,22,4,3,6,16,23,5,4,2,7,17,22,5,8,300,480: ARROWHEAD#4,8,5,5,4,0,3,6,3,0,5,5,1,0,7,0,1,5,6,2,1,4,1,2,5,7,3,2,5,2,3,5,7,2,7,4,0,0,5,4,3,4,5,1,1,5,5,0,5,6,2,2,5,6,1,6,7,3,3,1,0,4,10,500,350: QUINTETy4,6,2,2,0,1,0,2,2,5,1,2,2,3,2,2,0,4,3,2,1,4,0,2,3,5,2,2,0,2,8,15,450,250: BRICK4,8,2,2,0,1,-1,2,2,6,-1,2,2,3,-1,2,0,4,-1,2,5,4,0,2,2,6,1,2,7,6,2,2,0,4,3,1,0,8,15,400,250: BRICK INTERIOR03,3,3,3,0,1,0,0,3,1,2,1,1,3,2,0,2,2,1,0,6,15,550,200: TERDRAGON5,5,6,6,0,4,1,2,1,0,0,6,1,0,2,3,2,1,1,6,2,1,3,4,3,2,2,6,3,2,4,0,4,3,3,6,4,3,0,1,0,4,4,1,0,4,10,450,450: PENTIGREE74,8,9,9,0,1,2,6,2,3,7,6,5,0,9,1,2,3,7,3,0,4,7,6,1,9,2,3,0,4,0,1,5,4,7,2,9,3,0,1,5,1,2,6,5,4,3,9,1,2,3,7,6,2,6,5,4,0,9,2,3,0,4,7,3,7,6,5,19,3,0,1,5,4,0,4,7,6,2,9,0,1,2,6,5,1,5,4,7,3,1,0,3,10,450,250: NECKLACE׊4,4,4,4,0,1,0,3,0,4,2,3,2,3,1,2,2,1,2,2,0,1,3,4,0,3,2,1,5,12,150,300: CHURCHn12,24,3,3,0,1,2,2,3,3,4,5,4,3,6,7,0,1,3,1,8,9,10,3,10,11,12,0,3,7,0,1,11,3,8,13,14,10,3,15,10,16,0,3,6,7,17,6,3,11,18,3,5,3,4,15,19,4,3,13,6,20,63,18,3,4,3,3,11,18,21,8,3,8,13,6,5,3,7,0,22,2,3,13,6,7,3,3,0,1,8,9,3,18,3,23,8,3,4,15,10,11,3,15,10,11,9,3,1,8,13,7,3,3,4,15,1,3,10,11,18,7"3,10,11,18,5,7,200,150: LACE 5,10,3,3,9,0,6,0,3,5,1,7,1,3,6,2,8,2,3,7,3,9,3,3,8,4,5,4,3,1,5,4,0,3,2,6,0,1,3,3,7,1,2,3,4,8,2,3,3,0,9,3,4,1,5,6,15,200,450: TREE"RACTALS ARE COMPLEX MATHEMATICAL ENTITIES AND A HOT TOPIC AMONG MATHEMATICIANS"T"AND SCIENTISTS THESE DAYS. HEIR INTRICATE SHAPES MODEL NATURE'S COMPLEX""FORMS AND PROCESSES. NE NEED NOT UNDERSTAND THE MATHEMATICAL COMPLEXITY,""THOUGH, TO APPRECIATE THE ATTRACTIVENESS OF FRACTALS. HIS PROGRAM, BASED ON"R"AN ARTICLE FROM THE UGUST 1987 ISSUE OF YTE AGAZINE, WILL CALCULATE AND DRAW""A CLASS OF FRACTALS KNOWN AS DRAGONS. RAGONS ARE FRACTALS THAT CONSIST OF""CELLS ARRANGED ACCORDING TO A 'GENETIC CODE'. HESE DRAGONS START 'LIFE' AS A"J""SINGLE CELL AND GROW BU DIVIDING ONCE A 'DAY'. HE 'GENETIC CODES' FOR","MANY DRAGONS (ALL OF THE EXAMPLES IN THE YTE ARTICLE) ARE CONTAINED WITHIN"6"THIS PROGRAM. OU CAN PLOT THEM AS THEY ARE, OR CHANGE THEIR CHARACTERISTICS."@@"ATCHING A FRACTAL 'AGE' FROM A SINGLE CELL TO A FULL DRAGON IS QUITE"J"INTERESTING AND IS EASILLY ACCOMPLISHED WITH THE FUNCTION. OTE THAT"T"IS IT OFTEN NECESSARY TO DECREASE THE LENGTH OF EACH CELL WHEN AGING A"5^"DRAGON IN ORDER TO KEEP IT ALL ON THE SCREEN. HANGING THE ORIGIN IS ALSO"h"SOMETIMES NECESSARY TO KEEP IT ON SCREEN. OU MAY EVEN INPUT YOUR OWN"ԑr"'GENETIC CODES' AND HUNT FOR YOUR OWN DRAGONS. (EADING THE YTE ARTICLE"|"PRIOR TO ATTEMPTING TO FIND YOUR OWN DRAGONS IS RECOMMENDED.)"G" RESS ANY KEY TO CONTINUE.": A$"HE PRIMARY OUTPUT OF THIS PROGRAM IS THE SCREEN DISPLAY, BUT PROVISIONS FOR""SAVING YOUR DRAGONS TO DISK AND PRINTING THEM OUT ARE ALSO MADE. AVING TO"G"DISK CAN BE DONE IN TWO WAYS. HE GENETIC CODE ALONE CAN BE SAVED IN A 'CRV.'""FILE, USUALLY REQUIRING ONLY A SINGLE DISK BLOCK. OR USE WITH OTHER 8"듸"APPLICATIONS, HOWEVER, YOU CAN ALSO SAVE THE SCREEN AS A 'PICT.' ."<"CREENS ARE SAVED IN COMPRESSED FORMAT, BUT STILL USUALLY REQUIRE SEVERAL""DISK BLOCKS. HE PRINTER OUTPUT FEATURE ASSUMES THAT YOU HAVE ALREADY"ޔ"INSTALLED THE CORRECT PRINTER DRIVER FOR YOUR PRINTER INTO 8. T USES"3"A HEIGHT OF 2 AND A DENSITY OF 2, PROVIDING A GOOD PRINTOUT ON MOST PRINTERS."e" RESS ANY KEY TO CONTINUE.": A$:50