�mode("X1280 Y1024 G16")
�
(
2� � � �$,�:�
<
F
� hs=0�15
P� 15-hs,hs*16,hs*16,hs*16
Z�
d
n� 128+0
x�
�
�%xxmin=-2:xxmax=2:yymin=-2:yymax=2
�
pres=2048
�iter1=1000:iter2=5000
�
�xinc=pres/(xxmax-xxmin)
�yinc=pres/(yymax-yymin)
�$a=2.24:b=0.07:c=-0.65:d=-2:e=0.8
�x=0:y=0:z=0
�� j=1�iter1
� � i=1�iter2
�  xx=�(a*y)-z*�(b*x)
�  yy=z*�(c*x)-�(d*y)

  zz=e*�(x)

  x=xx:y=yy:z=zz

3  � xx<xxmax � xx>xxmin � yy<yymax � yy>yymin �

"   xxx=(xx-xxmin)*xinc

,   yyy=(yy-yymin)*yinc

6"   f=�xxx,yyy):f+=1:�f>15�f=15

@   �f:Ȓ xxx,yyy

J  �

T �

^�

h

r� �mode(mode$)

|� c$,ex,ey,mode,end

�
� mode 64

�end=mode+20

�!mode=1

�mode!4=��_m(mode$,"X","")

�mode!8=��_m(mode$,"Y","")

�c$=�_m(mode$,"C","*")

�� c$="*" �

� c$=�_m(mode$,"G","")

�' � c$="256" !end=3:end!4=255:end+=8

��

�mode!12=�_bpp(c$)

� mode!16=��_m(mode$,"F","-1")

�ex=��_m(mode$,"EX","-1")
#� ex<>-1 !end=4:end!4=ex:end+=8
ey=��_m(mode$,"EY","-1")
#� ey<>-1 !end=5:end!4=ey:end+=8
&!end=-1
0
� mode
:�
D
N� �_m(s$,p$,d$)
X	� i,j
b
i=�s$,p$)
l%� i<1 � d$="" � 490,"Missing "+p$
v� i<1 � =d$
�j=�s$+" "," ",i+1)
�=�s$,i+1,j-i-1)
�
�� �_bpp(n$)
�Ȏ n$ �
�
 � "2":=0
�
 � "4":=1
� � "16":=2
� � "256":=3
�! � "32T","32t","32K","32k":=4
� � "16M","16m":=5
�! : � 490,"Bad parameter "+n$
��
�

00000000  0d 00 0a 1c f2 6d 6f 64  65 28 22 58 31 32 38 30  |.....mode("X1280|
00000010  20 59 31 30 32 34 20 47  31 36 22 29 0d 00 1e 05  | Y1024 G16")....|
00000020  87 0d 00 28 04 0d 00 32  10 ee 20 85 20 f1 20 f6  |...(...2.. . . .|
00000030  24 2c 9e 3a e0 0d 00 3c  04 0d 00 46 0d e3 20 68  |$,.:...<...F.. h|
00000040  73 3d 30 b8 31 35 0d 00  50 1d fb 20 31 35 2d 68  |s=0.15..P.. 15-h|
00000050  73 2c 68 73 2a 31 36 2c  68 73 2a 31 36 2c 68 73  |s,hs*16,hs*16,hs|
00000060  2a 31 36 0d 00 5a 05 ed  0d 00 64 04 0d 00 6e 0b  |*16..Z....d...n.|
00000070  e6 20 31 32 38 2b 30 0d  00 78 05 da 0d 00 82 04  |. 128+0..x......|
00000080  0d 00 8c 25 78 78 6d 69  6e 3d 2d 32 3a 78 78 6d  |...%xxmin=-2:xxm|
00000090  61 78 3d 32 3a 79 79 6d  69 6e 3d 2d 32 3a 79 79  |ax=2:yymin=-2:yy|
000000a0  6d 61 78 3d 32 0d 00 96  0d 70 72 65 73 3d 32 30  |max=2....pres=20|
000000b0  34 38 0d 00 a0 19 69 74  65 72 31 3d 31 30 30 30  |48....iter1=1000|
000000c0  3a 69 74 65 72 32 3d 35  30 30 30 0d 00 aa 04 0d  |:iter2=5000.....|
000000d0  00 b4 1b 78 69 6e 63 3d  70 72 65 73 2f 28 78 78  |...xinc=pres/(xx|
000000e0  6d 61 78 2d 78 78 6d 69  6e 29 0d 00 be 1b 79 69  |max-xxmin)....yi|
000000f0  6e 63 3d 70 72 65 73 2f  28 79 79 6d 61 78 2d 79  |nc=pres/(yymax-y|
00000100  79 6d 69 6e 29 0d 00 c8  24 61 3d 32 2e 32 34 3a  |ymin)...$a=2.24:|
00000110  62 3d 30 2e 30 37 3a 63  3d 2d 30 2e 36 35 3a 64  |b=0.07:c=-0.65:d|
00000120  3d 2d 32 3a 65 3d 30 2e  38 0d 00 d2 0f 78 3d 30  |=-2:e=0.8....x=0|
00000130  3a 79 3d 30 3a 7a 3d 30  0d 00 dc 0f e3 20 6a 3d  |:y=0:z=0..... j=|
00000140  31 b8 69 74 65 72 31 0d  00 e6 10 20 e3 20 69 3d  |1.iter1.... . i=|
00000150  31 b8 69 74 65 72 32 0d  00 f0 18 20 20 78 78 3d  |1.iter2....  xx=|
00000160  b5 28 61 2a 79 29 2d 7a  2a 9b 28 62 2a 78 29 0d  |.(a*y)-z*.(b*x).|
00000170  00 fa 18 20 20 79 79 3d  7a 2a b5 28 63 2a 78 29  |...  yy=z*.(c*x)|
00000180  2d 9b 28 64 2a 79 29 0d  01 04 0f 20 20 7a 7a 3d  |-.(d*y)....  zz=|
00000190  65 2a b5 28 78 29 0d 01  0e 14 20 20 78 3d 78 78  |e*.(x)....  x=xx|
000001a0  3a 79 3d 79 79 3a 7a 3d  7a 7a 0d 01 18 33 20 20  |:y=yy:z=zz...3  |
000001b0  e7 20 78 78 3c 78 78 6d  61 78 20 80 20 78 78 3e  |. xx<xxmax . xx>|
000001c0  78 78 6d 69 6e 20 80 20  79 79 3c 79 79 6d 61 78  |xxmin . yy<yymax|
000001d0  20 80 20 79 79 3e 79 79  6d 69 6e 20 8c 0d 01 22  | . yy>yymin ..."|
000001e0  1a 20 20 20 78 78 78 3d  28 78 78 2d 78 78 6d 69  |.   xxx=(xx-xxmi|
000001f0  6e 29 2a 78 69 6e 63 0d  01 2c 1a 20 20 20 79 79  |n)*xinc..,.   yy|
00000200  79 3d 28 79 79 2d 79 79  6d 69 6e 29 2a 79 69 6e  |y=(yy-yymin)*yin|
00000210  63 0d 01 36 22 20 20 20  66 3d b0 78 78 78 2c 79  |c..6"   f=.xxx,y|
00000220  79 79 29 3a 66 2b 3d 31  3a e7 66 3e 31 35 8c 66  |yy):f+=1:.f>15.f|
00000230  3d 31 35 0d 01 40 14 20  20 20 e6 66 3a c8 92 20  |=15..@.   .f:.. |
00000240  78 78 78 2c 79 79 79 0d  01 4a 07 20 20 cd 0d 01  |xxx,yyy..J.  ...|
00000250  54 06 20 ed 0d 01 5e 05  ed 0d 01 68 04 0d 01 72  |T. ...^....h...r|
00000260  12 dd 20 f2 6d 6f 64 65  28 6d 6f 64 65 24 29 0d  |.. .mode(mode$).|
00000270  01 7c 17 ea 20 63 24 2c  65 78 2c 65 79 2c 6d 6f  |.|.. c$,ex,ey,mo|
00000280  64 65 2c 65 6e 64 0d 01  86 0d de 20 6d 6f 64 65  |de,end..... mode|
00000290  20 36 34 0d 01 90 0f 65  6e 64 3d 6d 6f 64 65 2b  | 64....end=mode+|
000002a0  32 30 0d 01 9a 0b 21 6d  6f 64 65 3d 31 0d 01 a4  |20....!mode=1...|
000002b0  1d 6d 6f 64 65 21 34 3d  bb a4 5f 6d 28 6d 6f 64  |.mode!4=.._m(mod|
000002c0  65 24 2c 22 58 22 2c 22  22 29 0d 01 ae 1d 6d 6f  |e$,"X","")....mo|
000002d0  64 65 21 38 3d bb a4 5f  6d 28 6d 6f 64 65 24 2c  |de!8=.._m(mode$,|
000002e0  22 59 22 2c 22 22 29 0d  01 b8 19 63 24 3d a4 5f  |"Y","")....c$=._|
000002f0  6d 28 6d 6f 64 65 24 2c  22 43 22 2c 22 2a 22 29  |m(mode$,"C","*")|
00000300  0d 01 c2 0e e7 20 63 24  3d 22 2a 22 20 8c 0d 01  |..... c$="*" ...|
00000310  cc 19 20 63 24 3d a4 5f  6d 28 6d 6f 64 65 24 2c  |.. c$=._m(mode$,|
00000320  22 47 22 2c 22 22 29 0d  01 d6 27 20 e7 20 63 24  |"G","")...' . c$|
00000330  3d 22 32 35 36 22 20 21  65 6e 64 3d 33 3a 65 6e  |="256" !end=3:en|
00000340  64 21 34 3d 32 35 35 3a  65 6e 64 2b 3d 38 0d 01  |d!4=255:end+=8..|
00000350  e0 05 cd 0d 01 ea 15 6d  6f 64 65 21 31 32 3d a4  |.......mode!12=.|
00000360  5f 62 70 70 28 63 24 29  0d 01 f4 20 6d 6f 64 65  |_bpp(c$)... mode|
00000370  21 31 36 3d bb a4 5f 6d  28 6d 6f 64 65 24 2c 22  |!16=.._m(mode$,"|
00000380  46 22 2c 22 2d 31 22 29  0d 01 fe 1c 65 78 3d bb  |F","-1")....ex=.|
00000390  a4 5f 6d 28 6d 6f 64 65  24 2c 22 45 58 22 2c 22  |._m(mode$,"EX","|
000003a0  2d 31 22 29 0d 02 08 23  e7 20 65 78 3c 3e 2d 31  |-1")...#. ex<>-1|
000003b0  20 21 65 6e 64 3d 34 3a  65 6e 64 21 34 3d 65 78  | !end=4:end!4=ex|
000003c0  3a 65 6e 64 2b 3d 38 0d  02 12 1c 65 79 3d bb a4  |:end+=8....ey=..|
000003d0  5f 6d 28 6d 6f 64 65 24  2c 22 45 59 22 2c 22 2d  |_m(mode$,"EY","-|
000003e0  31 22 29 0d 02 1c 23 e7  20 65 79 3c 3e 2d 31 20  |1")...#. ey<>-1 |
000003f0  21 65 6e 64 3d 35 3a 65  6e 64 21 34 3d 65 79 3a  |!end=5:end!4=ey:|
00000400  65 6e 64 2b 3d 38 0d 02  26 0b 21 65 6e 64 3d 2d  |end+=8..&.!end=-|
00000410  31 0d 02 30 0a eb 20 6d  6f 64 65 0d 02 3a 05 e1  |1..0.. mode..:..|
00000420  0d 02 44 04 0d 02 4e 13  dd 20 a4 5f 6d 28 73 24  |..D...N.. ._m(s$|
00000430  2c 70 24 2c 64 24 29 0d  02 58 09 ea 20 69 2c 6a  |,p$,d$)..X.. i,j|
00000440  0d 02 62 0d 69 3d a7 73  24 2c 70 24 29 0d 02 6c  |..b.i=.s$,p$)..l|
00000450  25 e7 20 69 3c 31 20 80  20 64 24 3d 22 22 20 85  |%. i<1 . d$="" .|
00000460  20 34 39 30 2c 22 4d 69  73 73 69 6e 67 20 22 2b  | 490,"Missing "+|
00000470  70 24 0d 02 76 0f e7 20  69 3c 31 20 8c 20 3d 64  |p$..v.. i<1 . =d|
00000480  24 0d 02 80 16 6a 3d a7  73 24 2b 22 20 22 2c 22  |$....j=.s$+" ","|
00000490  20 22 2c 69 2b 31 29 0d  02 8a 13 3d c1 73 24 2c  | ",i+1)....=.s$,|
000004a0  69 2b 31 2c 6a 2d 69 2d  31 29 0d 02 94 04 0d 02  |i+1,j-i-1)......|
000004b0  9e 0f dd 20 a4 5f 62 70  70 28 6e 24 29 0d 02 a8  |... ._bpp(n$)...|
000004c0  0b c8 8e 20 6e 24 20 ca  0d 02 b2 0d 20 c9 20 22  |... n$ ..... . "|
000004d0  32 22 3a 3d 30 0d 02 bc  0d 20 c9 20 22 34 22 3a  |2":=0.... . "4":|
000004e0  3d 31 0d 02 c6 0e 20 c9  20 22 31 36 22 3a 3d 32  |=1.... . "16":=2|
000004f0  0d 02 d0 0f 20 c9 20 22  32 35 36 22 3a 3d 33 0d  |.... . "256":=3.|
00000500  02 da 21 20 c9 20 22 33  32 54 22 2c 22 33 32 74  |..! . "32T","32t|
00000510  22 2c 22 33 32 4b 22 2c  22 33 32 6b 22 3a 3d 34  |","32K","32k":=4|
00000520  0d 02 e4 15 20 c9 20 22  31 36 4d 22 2c 22 31 36  |.... . "16M","16|
00000530  6d 22 3a 3d 35 0d 02 ee  21 20 7f 3a 20 85 20 34  |m":=5...! .: . 4|
00000540  39 30 2c 22 42 61 64 20  70 61 72 61 6d 65 74 65  |90,"Bad paramete|
00000550  72 20 22 2b 6e 24 0d 02  f8 05 cb 0d ff           |r "+n$.......|
0000055d