� PROGRAM MANDLEBROT PLOT
� VERSION B0.2
� AUTHOR Kate Crennell
(� BEEBUG MAY 1986
2"� PROGRAM SUBJECT TO COPYRIGHT
<:
d� KOL%(4),C$(7)
n� � � �DTA
x�C$(0)=�135+"BLACK,  ":C$(1)=�129+"RED,   ":C$(2)=�130+"GREEN, ":C$(3)=�131+"YELLOW,":C$(4)=�132+"BLUE,  ":C$(5)=�133+"MAGENTA,":C$(6)=�134+"CYAN,  ":C$(7)=�135+"WHITE, "
�,� 23,255,255,255,255,255,255,255,255,255
�M%=0:�7
�E%=1:�mode
�E%=2:�rule
�E%=3:�area
��7:E%=4:�kols
��M%
�)�M%=1 �I%=0�3:�19,I%,KOL%(I%)�16;0;:�
җ�28,G%,31,H%,0:@%=4:�T%+3:@%=&20508:�XMIN;:@%=&10308:�W;:@%=&20508:�YMIN;:@%=10308:�H:@%=11-%*4:�I%=0�C%:�?(&C10+I%);:�?(&C00+I%):�255:�7:�:@%=8/M%
�(E%=6:�4,23;8202;0;0;0;28,G%,31,H%,29
��mandel(XMIN,YMIN,DX,DY)
�E%=5:�7,4,28,G%,31,H%,26:�
�6�"Save Y/N";:�Q:�A$="Y"�"Filename",F$:�TDA � �TvA

'�F$,"""")<>0�dz@ � � �(F$)>6�dz@

F$="P."+�(M%+2+2*T%)+F$

+�M%=1 �I%=0�3:?(I%+&7FFC)=KOL%(I%)�16:�

"!$&C80="SAVE "+F$+" 3000 8000"

,/U%=X%:V%=Y%:X%=&80:Y%=&C:�&FFF7:X%=U%:Y%=V%

6�box:�A$="Y"�7:�tj@

@#�:�"MORE Y/N";:�Q:� A$="Y"�tt@

J�7:�

T�E%<>5��<190 � �DhA

^�"FILING ERROR ";�:�dz@

h!� �<>17 �7:�:�" AT LINE ";�:�

r(� E% � �D|A,�tV@,�t`@,�tj@,�tt@,�dp@

|	� 7:�

�:
�
��kols
�J%=0
�%�:�''"NUMBER COLOUR  LOWER BOUND"
1@%=6:�I%=0�C%:K%=?(&C00+I%):�M%=1 K%=KOL%(K%)
I� I%+1;:�K%>0�"   "+�(128+K%)+�255+�135,?(&C10+I%) � �(6),?(&C10+I%)
R�:�"These are the colours to be plotted for each new boundary of iterations."'
$:�J%=C%+1 �DVD �:�'"Number of boundaries OK (Y/N)";:�Q
.�A$="Y"J%=C%+1:�DVD
8D�"How many boundaries (2-15) ";:J%=�-48:�;J%;:�J%<1 � J%>9 �TxD
B!� J%=1:K%=�-48:�;K%;:J%=10+K%
G �J%<>C%+1 �bnd
L'�J%<2 � J%>15 �TnD � C%=J%-1:�d|C
V[�'"Which colour/bound to change?"'"(RETURN if none)";:K%=�-48:�;K%;:� K%=0 � K%=-35 � �
`0�K%=1 � J%>9 I%=�-48:� I%>-35 K%=10+I%:�;I%;
j� K%>J% � �DVD
t7�M%=2�'"Colours are:":�I%=0�7:�;C%(I%)+" ";:�:�tpD
�

00000000  0d 00 0a 1d f4 20 50 52  4f 47 52 41 4d 20 4d 41  |..... PROGRAM MA|
00000010  4e 44 4c 45 42 52 4f 54  20 50 4c 4f 54 0d 00 14  |NDLEBROT PLOT...|
00000020  12 f4 20 56 45 52 53 49  4f 4e 20 42 30 2e 32 0d  |.. VERSION B0.2.|
00000030  00 1e 1a f4 20 41 55 54  48 4f 52 20 4b 61 74 65  |.... AUTHOR Kate|
00000040  20 43 72 65 6e 6e 65 6c  6c 0d 00 28 15 f4 20 42  | Crennell..(.. B|
00000050  45 45 42 55 47 20 4d 41  59 20 31 39 38 36 0d 00  |EEBUG MAY 1986..|
00000060  32 22 f4 20 50 52 4f 47  52 41 4d 20 53 55 42 4a  |2". PROGRAM SUBJ|
00000070  45 43 54 20 54 4f 20 43  4f 50 59 52 49 47 48 54  |ECT TO COPYRIGHT|
00000080  0d 00 3c 05 3a 0d 00 64  13 de 20 4b 4f 4c 25 28  |..<.:..d.. KOL%(|
00000090  34 29 2c 43 24 28 37 29  0d 00 6e 0e ee 20 85 20  |4),C$(7)..n.. . |
000000a0  e5 20 8d 44 54 41 0d 00  78 ad 43 24 28 30 29 3d  |. .DTA..x.C$(0)=|
000000b0  bd 31 33 35 2b 22 42 4c  41 43 4b 2c 20 20 22 3a  |.135+"BLACK,  ":|
000000c0  43 24 28 31 29 3d bd 31  32 39 2b 22 52 45 44 2c  |C$(1)=.129+"RED,|
000000d0  20 20 20 22 3a 43 24 28  32 29 3d bd 31 33 30 2b  |   ":C$(2)=.130+|
000000e0  22 47 52 45 45 4e 2c 20  22 3a 43 24 28 33 29 3d  |"GREEN, ":C$(3)=|
000000f0  bd 31 33 31 2b 22 59 45  4c 4c 4f 57 2c 22 3a 43  |.131+"YELLOW,":C|
00000100  24 28 34 29 3d bd 31 33  32 2b 22 42 4c 55 45 2c  |$(4)=.132+"BLUE,|
00000110  20 20 22 3a 43 24 28 35  29 3d bd 31 33 33 2b 22  |  ":C$(5)=.133+"|
00000120  4d 41 47 45 4e 54 41 2c  22 3a 43 24 28 36 29 3d  |MAGENTA,":C$(6)=|
00000130  bd 31 33 34 2b 22 43 59  41 4e 2c 20 20 22 3a 43  |.134+"CYAN,  ":C|
00000140  24 28 37 29 3d bd 31 33  35 2b 22 57 48 49 54 45  |$(7)=.135+"WHITE|
00000150  2c 20 22 0d 00 82 2c ef  20 32 33 2c 32 35 35 2c  |, "...,. 23,255,|
00000160  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
00000170  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 0d  |255,255,255,255.|
00000180  00 8c 0b 4d 25 3d 30 3a  eb 37 0d 00 96 0e 45 25  |...M%=0:.7....E%|
00000190  3d 31 3a f2 6d 6f 64 65  0d 00 a0 0e 45 25 3d 32  |=1:.mode....E%=2|
000001a0  3a f2 72 75 6c 65 0d 00  aa 0e 45 25 3d 33 3a f2  |:.rule....E%=3:.|
000001b0  61 72 65 61 0d 00 b4 11  eb 37 3a 45 25 3d 34 3a  |area.....7:E%=4:|
000001c0  f2 6b 6f 6c 73 0d 00 be  07 eb 4d 25 0d 00 c8 29  |.kols.....M%...)|
000001d0  e7 4d 25 3d 31 20 e3 49  25 3d 30 b8 33 3a ef 31  |.M%=1 .I%=0.3:.1|
000001e0  39 2c 49 25 2c 4b 4f 4c  25 28 49 25 29 83 31 36  |9,I%,KOL%(I%).16|
000001f0  3b 30 3b 3a ed 0d 00 d2  97 ef 32 38 2c 47 25 2c  |;0;:......28,G%,|
00000200  33 31 2c 48 25 2c 30 3a  40 25 3d 34 3a f1 54 25  |31,H%,0:@%=4:.T%|
00000210  2b 33 3a 40 25 3d 26 32  30 35 30 38 3a f1 58 4d  |+3:@%=&20508:.XM|
00000220  49 4e 3b 3a 40 25 3d 26  31 30 33 30 38 3a f1 57  |IN;:@%=&10308:.W|
00000230  3b 3a 40 25 3d 26 32 30  35 30 38 3a f1 59 4d 49  |;:@%=&20508:.YMI|
00000240  4e 3b 3a 40 25 3d 31 30  33 30 38 3a f1 48 3a 40  |N;:@%=10308:.H:@|
00000250  25 3d 31 31 2d 25 2a 34  3a e3 49 25 3d 30 b8 43  |%=11-%*4:.I%=0.C|
00000260  25 3a f1 3f 28 26 43 31  30 2b 49 25 29 3b 3a fb  |%:.?(&C10+I%);:.|
00000270  3f 28 26 43 30 30 2b 49  25 29 3a ef 32 35 35 3a  |?(&C00+I%):.255:|
00000280  fb 37 3a ed 3a 40 25 3d  38 2f 4d 25 0d 00 dc 28  |.7:.:@%=8/M%...(|
00000290  45 25 3d 36 3a ef 34 2c  32 33 3b 38 32 30 32 3b  |E%=6:.4,23;8202;|
000002a0  30 3b 30 3b 30 3b 32 38  2c 47 25 2c 33 31 2c 48  |0;0;0;28,G%,31,H|
000002b0  25 2c 32 39 0d 00 e6 1c  f2 6d 61 6e 64 65 6c 28  |%,29.....mandel(|
000002c0  58 4d 49 4e 2c 59 4d 49  4e 2c 44 58 2c 44 59 29  |XMIN,YMIN,DX,DY)|
000002d0  0d 00 f0 1e 45 25 3d 35  3a ef 37 2c 34 2c 32 38  |....E%=5:.7,4,28|
000002e0  2c 47 25 2c 33 31 2c 48  25 2c 32 36 3a db 0d 00  |,G%,31,H%,26:...|
000002f0  fa 36 f1 22 53 61 76 65  20 59 2f 4e 22 3b 3a f2  |.6."Save Y/N";:.|
00000300  51 3a e7 41 24 3d 22 59  22 e8 22 46 69 6c 65 6e  |Q:.A$="Y"."Filen|
00000310  61 6d 65 22 2c 46 24 3a  e5 8d 54 44 41 20 8b 20  |ame",F$:..TDA . |
00000320  8d 54 76 41 0d 01 04 27  e7 a7 46 24 2c 22 22 22  |.TvA...'..F$,"""|
00000330  22 29 3c 3e 30 e5 8d 64  7a 40 20 8b 20 e7 20 a9  |")<>0..dz@ . . .|
00000340  28 46 24 29 3e 36 e5 8d  64 7a 40 0d 01 0e 1b 46  |(F$)>6..dz@....F|
00000350  24 3d 22 50 2e 22 2b c3  28 4d 25 2b 32 2b 32 2a  |$="P."+.(M%+2+2*|
00000360  54 25 29 2b 46 24 0d 01  18 2b e7 4d 25 3d 31 20  |T%)+F$...+.M%=1 |
00000370  e3 49 25 3d 30 b8 33 3a  3f 28 49 25 2b 26 37 46  |.I%=0.3:?(I%+&7F|
00000380  46 43 29 3d 4b 4f 4c 25  28 49 25 29 83 31 36 3a  |FC)=KOL%(I%).16:|
00000390  ed 0d 01 22 21 24 26 43  38 30 3d 22 53 41 56 45  |..."!$&C80="SAVE|
000003a0  20 22 2b 46 24 2b 22 20  33 30 30 30 20 38 30 30  | "+F$+" 3000 800|
000003b0  30 22 0d 01 2c 2f 55 25  3d 58 25 3a 56 25 3d 59  |0"..,/U%=X%:V%=Y|
000003c0  25 3a 58 25 3d 26 38 30  3a 59 25 3d 26 43 3a d6  |%:X%=&80:Y%=&C:.|
000003d0  26 46 46 46 37 3a 58 25  3d 55 25 3a 59 25 3d 56  |&FFF7:X%=U%:Y%=V|
000003e0  25 0d 01 36 18 f2 62 6f  78 3a e7 41 24 3d 22 59  |%..6..box:.A$="Y|
000003f0  22 eb 37 3a e5 8d 74 6a  40 0d 01 40 23 db 3a f1  |".7:..tj@..@#.:.|
00000400  22 4d 4f 52 45 20 59 2f  4e 22 3b 3a f2 51 3a e7  |"MORE Y/N";:.Q:.|
00000410  20 41 24 3d 22 59 22 e5  8d 74 74 40 0d 01 4a 08  | A$="Y"..tt@..J.|
00000420  eb 37 3a e0 0d 01 54 17  e7 45 25 3c 3e 35 84 9f  |.7:...T..E%<>5..|
00000430  3c 31 39 30 20 e5 20 8d  44 68 41 0d 01 5e 1c f1  |<190 . .DhA..^..|
00000440  22 46 49 4c 49 4e 47 20  45 52 52 4f 52 20 22 3b  |"FILING ERROR ";|
00000450  9f 3a e5 8d 64 7a 40 0d  01 68 21 e7 20 9f 3c 3e  |.:..dz@..h!. .<>|
00000460  31 37 20 eb 37 3a f6 3a  f1 22 20 41 54 20 4c 49  |17 .7:.:." AT LI|
00000470  4e 45 20 22 3b 9e 3a e0  0d 01 72 28 ee 20 45 25  |NE ";.:...r(. E%|
00000480  20 e5 20 8d 44 7c 41 2c  8d 74 56 40 2c 8d 74 60  | . .D|A,.tV@,.t`|
00000490  40 2c 8d 74 6a 40 2c 8d  74 74 40 2c 8d 64 70 40  |@,.tj@,.tt@,.dp@|
000004a0  0d 01 7c 09 eb 20 37 3a  e0 0d 01 86 05 3a 0d 03  |..|.. 7:.....:..|
000004b0  e8 0a dd f2 6b 6f 6c 73  0d 03 f2 08 4a 25 3d 30  |....kols....J%=0|
000004c0  0d 03 fc 25 db 3a f1 27  27 22 4e 55 4d 42 45 52  |...%.:.''"NUMBER|
000004d0  20 43 4f 4c 4f 55 52 20  20 4c 4f 57 45 52 20 42  | COLOUR  LOWER B|
000004e0  4f 55 4e 44 22 0d 04 06  31 40 25 3d 36 3a e3 49  |OUND"...1@%=6:.I|
000004f0  25 3d 30 b8 43 25 3a 4b  25 3d 3f 28 26 43 30 30  |%=0.C%:K%=?(&C00|
00000500  2b 49 25 29 3a e7 4d 25  3d 31 20 4b 25 3d 4b 4f  |+I%):.M%=1 K%=KO|
00000510  4c 25 28 4b 25 29 0d 04  10 49 f1 20 49 25 2b 31  |L%(K%)...I. I%+1|
00000520  3b 3a e7 4b 25 3e 30 f1  22 20 20 20 22 2b bd 28  |;:.K%>0."   "+.(|
00000530  31 32 38 2b 4b 25 29 2b  bd 32 35 35 2b bd 31 33  |128+K%)+.255+.13|
00000540  35 2c 3f 28 26 43 31 30  2b 49 25 29 20 8b 20 f1  |5,?(&C10+I%) . .|
00000550  89 28 36 29 2c 3f 28 26  43 31 30 2b 49 25 29 0d  |.(6),?(&C10+I%).|
00000560  04 1a 52 ed 3a f1 22 54  68 65 73 65 20 61 72 65  |..R.:."These are|
00000570  20 74 68 65 20 63 6f 6c  6f 75 72 73 20 74 6f 20  | the colours to |
00000580  62 65 20 70 6c 6f 74 74  65 64 20 66 6f 72 20 65  |be plotted for e|
00000590  61 63 68 20 6e 65 77 20  62 6f 75 6e 64 61 72 79  |ach new boundary|
000005a0  20 6f 66 20 69 74 65 72  61 74 69 6f 6e 73 2e 22  | of iterations."|
000005b0  27 0d 04 24 3a e7 4a 25  3d 43 25 2b 31 20 e5 8d  |'..$:.J%=C%+1 ..|
000005c0  44 56 44 20 8b 3a f1 27  22 4e 75 6d 62 65 72 20  |DVD .:.'"Number |
000005d0  6f 66 20 62 6f 75 6e 64  61 72 69 65 73 20 4f 4b  |of boundaries OK|
000005e0  20 28 59 2f 4e 29 22 3b  3a f2 51 0d 04 2e 18 e7  | (Y/N)";:.Q.....|
000005f0  41 24 3d 22 59 22 4a 25  3d 43 25 2b 31 3a e5 8d  |A$="Y"J%=C%+1:..|
00000600  44 56 44 0d 04 38 44 f1  22 48 6f 77 20 6d 61 6e  |DVD..8D."How man|
00000610  79 20 62 6f 75 6e 64 61  72 69 65 73 20 28 32 2d  |y boundaries (2-|
00000620  31 35 29 20 22 3b 3a 4a  25 3d a5 2d 34 38 3a f1  |15) ";:J%=.-48:.|
00000630  3b 4a 25 3b 3a e7 4a 25  3c 31 20 84 20 4a 25 3e  |;J%;:.J%<1 . J%>|
00000640  39 20 e5 8d 54 78 44 0d  04 42 21 e7 20 4a 25 3d  |9 ..TxD..B!. J%=|
00000650  31 3a 4b 25 3d a5 2d 34  38 3a f1 3b 4b 25 3b 3a  |1:K%=.-48:.;K%;:|
00000660  4a 25 3d 31 30 2b 4b 25  0d 04 47 13 20 e7 4a 25  |J%=10+K%..G. .J%|
00000670  3c 3e 43 25 2b 31 20 f2  62 6e 64 0d 04 4c 27 e7  |<>C%+1 .bnd..L'.|
00000680  4a 25 3c 32 20 84 20 4a  25 3e 31 35 20 e5 8d 54  |J%<2 . J%>15 ..T|
00000690  6e 44 20 8b 20 43 25 3d  4a 25 2d 31 3a e5 8d 64  |nD . C%=J%-1:..d|
000006a0  7c 43 0d 04 56 5b f1 27  22 57 68 69 63 68 20 63  ||C..V[.'"Which c|
000006b0  6f 6c 6f 75 72 2f 62 6f  75 6e 64 20 74 6f 20 63  |olour/bound to c|
000006c0  68 61 6e 67 65 3f 22 27  22 28 52 45 54 55 52 4e  |hange?"'"(RETURN|
000006d0  20 69 66 20 6e 6f 6e 65  29 22 3b 3a 4b 25 3d a5  | if none)";:K%=.|
000006e0  2d 34 38 3a f1 3b 4b 25  3b 3a e7 20 4b 25 3d 30  |-48:.;K%;:. K%=0|
000006f0  20 84 20 4b 25 3d 2d 33  35 20 8c 20 e1 0d 04 60  | . K%=-35 . ...`|
00000700  30 e7 4b 25 3d 31 20 80  20 4a 25 3e 39 20 49 25  |0.K%=1 . J%>9 I%|
00000710  3d a5 2d 34 38 3a e7 20  49 25 3e 2d 33 35 20 4b  |=.-48:. I%>-35 K|
00000720  25 3d 31 30 2b 49 25 3a  f1 3b 49 25 3b 0d 04 6a  |%=10+I%:.;I%;..j|
00000730  12 e7 20 4b 25 3e 4a 25  20 e5 20 8d 44 56 44 0d  |.. K%>J% . .DVD.|
00000740  04 74 37 e7 4d 25 3d 32  f1 27 22 43 6f 6c 6f 75  |.t7.M%=2.'"Colou|
00000750  72 73 20 61 72 65 3a 22  3a e3 49 25 3d 30 b8 37  |rs are:":.I%=0.7|
00000760  3a f1 3b 43 25 28 49 25  29 2b 22 20 22 3b 3a ed  |:.;C%(I%)+" ";:.|
00000770  3a e5 8d 74 70 44 0d ff                           |:..tpD..|
00000778