� > !RunImage
#� (c) Ivar Wind Skovgaard, 1992

(=�:ȗ�:ș6,113,scrBank%:�<>17��$;" at line ";�:� �Ș
2
�128+4
<�
F@%=&100050A
PscrBank%=1
Zș6,112,scrBank%
dș6,113,scrBank%
n�
x(�"Please wait while I initialise..."
��code% 194*1024
�+�("Load <JuliaAnim$Dir>.mc "+�~(code%))
�JuliaInit=(code%!0)+code%
�Julia=(code%!4)+code%
�dp=code%!8
�xRstore=(code%!12)+code%
�xistore=(code%!16)+code%
�cR=-.75
�	ci=.5
�
init=1000
�xR=�(1)*2-1
�xi=�(1)*2-1
�E%=cR*(1<<dp)

F%=ci*(1<<dp)

C%=xR*(1<<dp)

D%=xi*(1<<dp)

"A%=1000

,�JuliaInit

6�15,0);"Julia set."

@S$="c="

J�cR<>0�S$=S$+�(cR)

T�ci<>0�

^�ci>=0�cR<>0�S$=S$+"+"

h'�ci<>1�S$=S$+�(ci)��ci=-1�S$=S$+"-"

r
S$=S$+"i"

|�

��cR=0�S$=S$+"0"

��

��20-�(S$)/2,31);S$;�0,0)

�	NV%=�

�mous%=�

�mouspoint%=�

�
autoPh%=0

�autoPart%=0

�
autoDir=0

��mouseon

��

��

�
A%=350

�Julia
&�NV%�NV%=�:ș6,19:ș6,113,scrBank%
�mous%�
&OX%=X%:OY%=Y%
0ȗX%,Y%,Z%
:cR=�((X%-640)/3.2+.5)/100
Dci=�((Y%-512)/3.2+.5)/100
N�X%<>OX%�Y%<>OY%�NV%=�
X�
b,�-58�ci+=(.01-.04*�-1)*(1+.9*�-2):NV%=�
l,�-42�ci-=(.01-.04*�-1)*(1+.9*�-2):NV%=�
v,�-26�cR-=(.01-.04*�-1)*(1+.9*�-2):NV%=�
�-�-122�cR+=(.01-.04*�-1)*(1+.9*�-2):NV%=�
��-114�cR=.31:ci=.04:NV%=�
� �-115�cR=-.11:ci=.656:NV%=�
��-116�cR=-.12:ci=.74:NV%=�
��-21�cR=0:ci=1:NV%=�
�!�-117�cR=-.194:ci=.656:NV%=�
�!�-118�cR=-.745:ci=.113:NV%=�
��-23�cR=-1.25:ci=0:NV%=�
�"�-119�cR=-.482:ci=-.532:NV%=�
�"�-120�cR=-.391:ci=-.587:NV%=�
�"�-31�cR=-.157:ci=-1.032:NV%=�
��-29�cR=.11:ci=-.67:NV%=�
��-30�cR=.273:ci=.007:NV%=�
�-63�cR=-.75:ci=.5:NV%=�
�-106�NV%=�
�-66��animation
 �-52��randomanimation
*�
4+�-102�mous%=�mous%:ȗ�:�mous%��mouseon
>
ȕ�-102:�
H:�-56�mouspoint%=�mouspoint%:ȗ�:�mous%�mouspoint%�ȗ�
Rȕ�-56:�
\�NV%
fcR=�(cR*1000+.5)/1000
pci=�(ci*1000+.5)/1000
z
�swapPlot
���
��
�
�
��mouseon
�X%=(cR+2)*320
�Y%=(ci+1.6)*320
��X%<0�X%=0:NV%=�
��X%>1279�X%=1279:NV%=�
��Y%<0�Y%=0:NV%=�
��Y%>1023�Y%=1023:NV%=�
�ȗ�X%,Y%
�cR=�((X%-640)/3.2+.5)/100
�ci=�((Y%-512)/3.2+.5)/100
�mouspoint%�ȗ�
�

$��swapPlot
.scrBank%=3-scrBank%
8ș6,112,scrBank%
BE%=cR*(1<<dp)
LF%=ci*(1<<dp)
VC%=!xRstore
`D%=!xistore
j	A%=10
t�JuliaInit
~�15,0);"Julia set."
�S$="c="
��cR<>0�S$=S$+�(cR)
��ci<>0�
��ci>=0�cR<>0�S$=S$+"+"
�*�(ci)<>1�S$=S$+�(ci)��ci=-1�S$=S$+"-"
�
S$=S$+"i"
��
��cR=0�S$=S$+"0"
��
��20-�(S$)/2,31);S$;�0,0)
��
�
��animation

ȕ�-66:�
�
�autoPh%=100�autoPart%=1
(�autoPh%=300�autoPart%=0
27�autoPart%=0�t=autoPh%*�/100 �t=(300-autoPh%)*�/100
<%autoPh%+=1:�autoPh%=400�autoPh%=0
F�autoPart%=1�autoPh%+=3
P<�autoPart%=0�cR=.25+.5*(1-�(t))*�(t):ci=.5*(1-�(t))*�(t)
Z+�autoPart%=1�cR=-1+.25*�(t):ci=.25*�(t)
dcR=�(cR*10000+.5)/10000
nci=�(ci*10000+.5)/10000
x
�swapPlot
�
A%=500
�
�Julia
�ș6,19:ș6,113,scrBank%
�	��-66
�ȕ�-66:�
�	NV%=�
��
�
���randomanimation
�ȕ�-52:�
��
�autoDir+=�(1)*.6-.3
�cR+=.03*�(autoDir)
ci+=.03*�(autoDir)
�cR*cR+ci*ci>4�
cR-=.03*�(autoDir)
"ci-=.03*�(autoDir)
,�cR=0�a=�/2 �a=�(ci/cR)
6autoDir=�+2*a-autoDir
@�
J�autoDir>� �autoDir-=2*�
T�autoDir<-� �autoDir+=2*�
^cR=�(cR*10000+.5)/10000
hci=�(ci*10000+.5)/10000
r
�swapPlot
|
A%=390
�
�Julia
�ș6,19:ș6,113,scrBank%
�	��-52
�ȕ�-52:�
�	NV%=�
��
�

00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 23 f4 20 28  63 29 20 49 76 61 72 20  |e...#. (c) Ivar |
00000020  57 69 6e 64 20 53 6b 6f  76 67 61 61 72 64 2c 20  |Wind Skovgaard, |
00000030  31 39 39 32 0d 00 1e 04  0d 00 28 3d ee 85 ee 85  |1992......(=....|
00000040  87 3a c8 97 87 3a c8 99  36 2c 31 31 33 2c 73 63  |.:...:..6,113,sc|
00000050  72 42 61 6e 6b 25 3a e7  9f 3c 3e 31 37 8c f1 f6  |rBank%:..<>17...|
00000060  24 3b 22 20 61 74 20 6c  69 6e 65 20 22 3b 9e 3a  |$;" at line ";.:|
00000070  e0 20 8b c8 98 0d 00 32  0a eb 31 32 38 2b 34 0d  |. .....2..128+4.|
00000080  00 3c 05 87 0d 00 46 0f  40 25 3d 26 31 30 30 30  |.<....F.@%=&1000|
00000090  35 30 41 0d 00 50 0e 73  63 72 42 61 6e 6b 25 3d  |50A..P.scrBank%=|
000000a0  31 0d 00 5a 14 c8 99 36  2c 31 31 32 2c 73 63 72  |1..Z...6,112,scr|
000000b0  42 61 6e 6b 25 0d 00 64  14 c8 99 36 2c 31 31 33  |Bank%..d...6,113|
000000c0  2c 73 63 72 42 61 6e 6b  25 0d 00 6e 05 db 0d 00  |,scrBank%..n....|
000000d0  78 28 f1 22 50 6c 65 61  73 65 20 77 61 69 74 20  |x(."Please wait |
000000e0  77 68 69 6c 65 20 49 20  69 6e 69 74 69 61 6c 69  |while I initiali|
000000f0  73 65 2e 2e 2e 22 0d 00  82 13 de 63 6f 64 65 25  |se...".....code%|
00000100  20 31 39 34 2a 31 30 32  34 0d 00 8c 2b ff 28 22  | 194*1024...+.("|
00000110  4c 6f 61 64 20 3c 4a 75  6c 69 61 41 6e 69 6d 24  |Load <JuliaAnim$|
00000120  44 69 72 3e 2e 6d 63 20  22 2b c3 7e 28 63 6f 64  |Dir>.mc "+.~(cod|
00000130  65 25 29 29 0d 00 96 1d  4a 75 6c 69 61 49 6e 69  |e%))....JuliaIni|
00000140  74 3d 28 63 6f 64 65 25  21 30 29 2b 63 6f 64 65  |t=(code%!0)+code|
00000150  25 0d 00 a0 19 4a 75 6c  69 61 3d 28 63 6f 64 65  |%....Julia=(code|
00000160  25 21 34 29 2b 63 6f 64  65 25 0d 00 aa 0e 64 70  |%!4)+code%....dp|
00000170  3d 63 6f 64 65 25 21 38  0d 00 b4 1c 78 52 73 74  |=code%!8....xRst|
00000180  6f 72 65 3d 28 63 6f 64  65 25 21 31 32 29 2b 63  |ore=(code%!12)+c|
00000190  6f 64 65 25 0d 00 be 1c  78 69 73 74 6f 72 65 3d  |ode%....xistore=|
000001a0  28 63 6f 64 65 25 21 31  36 29 2b 63 6f 64 65 25  |(code%!16)+code%|
000001b0  0d 00 c8 0b 63 52 3d 2d  2e 37 35 0d 00 d2 09 63  |....cR=-.75....c|
000001c0  69 3d 2e 35 0d 00 dc 0d  69 6e 69 74 3d 31 30 30  |i=.5....init=100|
000001d0  30 0d 00 e6 0f 78 52 3d  b3 28 31 29 2a 32 2d 31  |0....xR=.(1)*2-1|
000001e0  0d 00 f0 0f 78 69 3d b3  28 31 29 2a 32 2d 31 0d  |....xi=.(1)*2-1.|
000001f0  00 fa 11 45 25 3d 63 52  2a 28 31 3c 3c 64 70 29  |...E%=cR*(1<<dp)|
00000200  0d 01 04 11 46 25 3d 63  69 2a 28 31 3c 3c 64 70  |....F%=ci*(1<<dp|
00000210  29 0d 01 0e 11 43 25 3d  78 52 2a 28 31 3c 3c 64  |)....C%=xR*(1<<d|
00000220  70 29 0d 01 18 11 44 25  3d 78 69 2a 28 31 3c 3c  |p)....D%=xi*(1<<|
00000230  64 70 29 0d 01 22 0b 41  25 3d 31 30 30 30 0d 01  |dp)..".A%=1000..|
00000240  2c 0e d6 4a 75 6c 69 61  49 6e 69 74 0d 01 36 18  |,..JuliaInit..6.|
00000250  f1 8a 31 35 2c 30 29 3b  22 4a 75 6c 69 61 20 73  |..15,0);"Julia s|
00000260  65 74 2e 22 0d 01 40 0b  53 24 3d 22 63 3d 22 0d  |et."..@.S$="c=".|
00000270  01 4a 16 e7 63 52 3c 3e  30 8c 53 24 3d 53 24 2b  |.J..cR<>0.S$=S$+|
00000280  c3 28 63 52 29 0d 01 54  0b e7 63 69 3c 3e 30 8c  |.(cR)..T..ci<>0.|
00000290  0d 01 5e 1a e7 63 69 3e  3d 30 80 63 52 3c 3e 30  |..^..ci>=0.cR<>0|
000002a0  8c 53 24 3d 53 24 2b 22  2b 22 0d 01 68 27 e7 63  |.S$=S$+"+"..h'.c|
000002b0  69 3c 3e 31 8c 53 24 3d  53 24 2b c3 28 63 69 29  |i<>1.S$=S$+.(ci)|
000002c0  8b e7 63 69 3d 2d 31 8c  53 24 3d 53 24 2b 22 2d  |..ci=-1.S$=S$+"-|
000002d0  22 0d 01 72 0d 53 24 3d  53 24 2b 22 69 22 0d 01  |"..r.S$=S$+"i"..|
000002e0  7c 05 cc 0d 01 86 13 e7  63 52 3d 30 8c 53 24 3d  ||.......cR=0.S$=|
000002f0  53 24 2b 22 30 22 0d 01  90 05 cd 0d 01 9a 1d f1  |S$+"0"..........|
00000300  8a 32 30 2d a9 28 53 24  29 2f 32 2c 33 31 29 3b  |.20-.(S$)/2,31);|
00000310  53 24 3b 8a 30 2c 30 29  0d 01 a4 09 4e 56 25 3d  |S$;.0,0)....NV%=|
00000320  a3 0d 01 ae 0b 6d 6f 75  73 25 3d b9 0d 01 b8 10  |.....mous%=.....|
00000330  6d 6f 75 73 70 6f 69 6e  74 25 3d a3 0d 01 c2 0d  |mouspoint%=.....|
00000340  61 75 74 6f 50 68 25 3d  30 0d 01 cc 0f 61 75 74  |autoPh%=0....aut|
00000350  6f 50 61 72 74 25 3d 30  0d 01 d6 0d 61 75 74 6f  |oPart%=0....auto|
00000360  44 69 72 3d 30 0d 01 e0  0c f2 6d 6f 75 73 65 6f  |Dir=0.....mouseo|
00000370  6e 0d 01 ea 05 f5 0d 01  f4 05 f5 0d 01 fe 0a 41  |n..............A|
00000380  25 3d 33 35 30 0d 02 08  0a d6 4a 75 6c 69 61 0d  |%=350.....Julia.|
00000390  02 12 26 e7 4e 56 25 8c  4e 56 25 3d a3 3a c8 99  |..&.NV%.NV%=.:..|
000003a0  36 2c 31 39 3a c8 99 36  2c 31 31 33 2c 73 63 72  |6,19:..6,113,scr|
000003b0  42 61 6e 6b 25 0d 02 1c  0b e7 6d 6f 75 73 25 8c  |Bank%.....mous%.|
000003c0  0d 02 26 11 4f 58 25 3d  58 25 3a 4f 59 25 3d 59  |..&.OX%=X%:OY%=Y|
000003d0  25 0d 02 30 0e c8 97 58  25 2c 59 25 2c 5a 25 0d  |%..0...X%,Y%,Z%.|
000003e0  02 3a 1d 63 52 3d a8 28  28 58 25 2d 36 34 30 29  |.:.cR=.((X%-640)|
000003f0  2f 33 2e 32 2b 2e 35 29  2f 31 30 30 0d 02 44 1d  |/3.2+.5)/100..D.|
00000400  63 69 3d a8 28 28 59 25  2d 35 31 32 29 2f 33 2e  |ci=.((Y%-512)/3.|
00000410  32 2b 2e 35 29 2f 31 30  30 0d 02 4e 1a e7 58 25  |2+.5)/100..N..X%|
00000420  3c 3e 4f 58 25 84 59 25  3c 3e 4f 59 25 8c 4e 56  |<>OX%.Y%<>OY%.NV|
00000430  25 3d b9 0d 02 58 05 cc  0d 02 62 2c e7 a6 2d 35  |%=...X....b,..-5|
00000440  38 8c 63 69 2b 3d 28 2e  30 31 2d 2e 30 34 2a a6  |8.ci+=(.01-.04*.|
00000450  2d 31 29 2a 28 31 2b 2e  39 2a a6 2d 32 29 3a 4e  |-1)*(1+.9*.-2):N|
00000460  56 25 3d b9 0d 02 6c 2c  e7 a6 2d 34 32 8c 63 69  |V%=...l,..-42.ci|
00000470  2d 3d 28 2e 30 31 2d 2e  30 34 2a a6 2d 31 29 2a  |-=(.01-.04*.-1)*|
00000480  28 31 2b 2e 39 2a a6 2d  32 29 3a 4e 56 25 3d b9  |(1+.9*.-2):NV%=.|
00000490  0d 02 76 2c e7 a6 2d 32  36 8c 63 52 2d 3d 28 2e  |..v,..-26.cR-=(.|
000004a0  30 31 2d 2e 30 34 2a a6  2d 31 29 2a 28 31 2b 2e  |01-.04*.-1)*(1+.|
000004b0  39 2a a6 2d 32 29 3a 4e  56 25 3d b9 0d 02 80 2d  |9*.-2):NV%=....-|
000004c0  e7 a6 2d 31 32 32 8c 63  52 2b 3d 28 2e 30 31 2d  |..-122.cR+=(.01-|
000004d0  2e 30 34 2a a6 2d 31 29  2a 28 31 2b 2e 39 2a a6  |.04*.-1)*(1+.9*.|
000004e0  2d 32 29 3a 4e 56 25 3d  b9 0d 02 8a 1e e7 a6 2d  |-2):NV%=.......-|
000004f0  31 31 34 8c 63 52 3d 2e  33 31 3a 63 69 3d 2e 30  |114.cR=.31:ci=.0|
00000500  34 3a 4e 56 25 3d b9 0d  02 94 20 e7 a6 2d 31 31  |4:NV%=.... ..-11|
00000510  35 8c 63 52 3d 2d 2e 31  31 3a 63 69 3d 2e 36 35  |5.cR=-.11:ci=.65|
00000520  36 3a 4e 56 25 3d b9 0d  02 9e 1f e7 a6 2d 31 31  |6:NV%=.......-11|
00000530  36 8c 63 52 3d 2d 2e 31  32 3a 63 69 3d 2e 37 34  |6.cR=-.12:ci=.74|
00000540  3a 4e 56 25 3d b9 0d 02  a8 19 e7 a6 2d 32 31 8c  |:NV%=.......-21.|
00000550  63 52 3d 30 3a 63 69 3d  31 3a 4e 56 25 3d b9 0d  |cR=0:ci=1:NV%=..|
00000560  02 b2 21 e7 a6 2d 31 31  37 8c 63 52 3d 2d 2e 31  |..!..-117.cR=-.1|
00000570  39 34 3a 63 69 3d 2e 36  35 36 3a 4e 56 25 3d b9  |94:ci=.656:NV%=.|
00000580  0d 02 bc 21 e7 a6 2d 31  31 38 8c 63 52 3d 2d 2e  |...!..-118.cR=-.|
00000590  37 34 35 3a 63 69 3d 2e  31 31 33 3a 4e 56 25 3d  |745:ci=.113:NV%=|
000005a0  b9 0d 02 c6 1d e7 a6 2d  32 33 8c 63 52 3d 2d 31  |.......-23.cR=-1|
000005b0  2e 32 35 3a 63 69 3d 30  3a 4e 56 25 3d b9 0d 02  |.25:ci=0:NV%=...|
000005c0  d0 22 e7 a6 2d 31 31 39  8c 63 52 3d 2d 2e 34 38  |."..-119.cR=-.48|
000005d0  32 3a 63 69 3d 2d 2e 35  33 32 3a 4e 56 25 3d b9  |2:ci=-.532:NV%=.|
000005e0  0d 02 da 22 e7 a6 2d 31  32 30 8c 63 52 3d 2d 2e  |..."..-120.cR=-.|
000005f0  33 39 31 3a 63 69 3d 2d  2e 35 38 37 3a 4e 56 25  |391:ci=-.587:NV%|
00000600  3d b9 0d 02 e4 22 e7 a6  2d 33 31 8c 63 52 3d 2d  |=...."..-31.cR=-|
00000610  2e 31 35 37 3a 63 69 3d  2d 31 2e 30 33 32 3a 4e  |.157:ci=-1.032:N|
00000620  56 25 3d b9 0d 02 ee 1e  e7 a6 2d 32 39 8c 63 52  |V%=.......-29.cR|
00000630  3d 2e 31 31 3a 63 69 3d  2d 2e 36 37 3a 4e 56 25  |=.11:ci=-.67:NV%|
00000640  3d b9 0d 02 f8 1f e7 a6  2d 33 30 8c 63 52 3d 2e  |=.......-30.cR=.|
00000650  32 37 33 3a 63 69 3d 2e  30 30 37 3a 4e 56 25 3d  |273:ci=.007:NV%=|
00000660  b9 0d 03 02 1d e7 a6 2d  36 33 8c 63 52 3d 2d 2e  |.......-63.cR=-.|
00000670  37 35 3a 63 69 3d 2e 35  3a 4e 56 25 3d b9 0d 03  |75:ci=.5:NV%=...|
00000680  0c 10 e7 a6 2d 31 30 36  8c 4e 56 25 3d b9 0d 03  |....-106.NV%=...|
00000690  16 14 e7 a6 2d 36 36 8c  f2 61 6e 69 6d 61 74 69  |....-66..animati|
000006a0  6f 6e 0d 03 20 1a e7 a6  2d 35 32 8c f2 72 61 6e  |on.. ...-52..ran|
000006b0  64 6f 6d 61 6e 69 6d 61  74 69 6f 6e 0d 03 2a 05  |domanimation..*.|
000006c0  cd 0d 03 34 2b e7 a6 2d  31 30 32 8c 6d 6f 75 73  |...4+..-102.mous|
000006d0  25 3d ac 6d 6f 75 73 25  3a c8 97 87 3a e7 6d 6f  |%=.mous%:...:.mo|
000006e0  75 73 25 8c f2 6d 6f 75  73 65 6f 6e 0d 03 3e 0d  |us%..mouseon..>.|
000006f0  c8 95 a6 2d 31 30 32 3a  ce 0d 03 48 3a e7 a6 2d  |...-102:...H:..-|
00000700  35 36 8c 6d 6f 75 73 70  6f 69 6e 74 25 3d ac 6d  |56.mouspoint%=.m|
00000710  6f 75 73 70 6f 69 6e 74  25 3a c8 97 87 3a e7 6d  |ouspoint%:...:.m|
00000720  6f 75 73 25 80 6d 6f 75  73 70 6f 69 6e 74 25 8c  |ous%.mouspoint%.|
00000730  c8 97 ee 0d 03 52 0c c8  95 a6 2d 35 36 3a ce 0d  |.....R....-56:..|
00000740  03 5c 08 fd 4e 56 25 0d  03 66 19 63 52 3d a8 28  |.\..NV%..f.cR=.(|
00000750  63 52 2a 31 30 30 30 2b  2e 35 29 2f 31 30 30 30  |cR*1000+.5)/1000|
00000760  0d 03 70 19 63 69 3d a8  28 63 69 2a 31 30 30 30  |..p.ci=.(ci*1000|
00000770  2b 2e 35 29 2f 31 30 30  30 0d 03 7a 0d f2 73 77  |+.5)/1000..z..sw|
00000780  61 70 50 6c 6f 74 0d 03  84 06 fd a3 0d 03 8e 05  |apPlot..........|
00000790  e0 0d 03 98 04 0d 03 a2  0d dd f2 6d 6f 75 73 65  |...........mouse|
000007a0  6f 6e 0d 03 ac 11 58 25  3d 28 63 52 2b 32 29 2a  |on....X%=(cR+2)*|
000007b0  33 32 30 0d 03 b6 13 59  25 3d 28 63 69 2b 31 2e  |320....Y%=(ci+1.|
000007c0  36 29 2a 33 32 30 0d 03  c0 14 e7 58 25 3c 30 8c  |6)*320.....X%<0.|
000007d0  58 25 3d 30 3a 4e 56 25  3d b9 0d 03 ca 1a e7 58  |X%=0:NV%=......X|
000007e0  25 3e 31 32 37 39 8c 58  25 3d 31 32 37 39 3a 4e  |%>1279.X%=1279:N|
000007f0  56 25 3d b9 0d 03 d4 14  e7 59 25 3c 30 8c 59 25  |V%=......Y%<0.Y%|
00000800  3d 30 3a 4e 56 25 3d b9  0d 03 de 1a e7 59 25 3e  |=0:NV%=......Y%>|
00000810  31 30 32 33 8c 59 25 3d  31 30 32 33 3a 4e 56 25  |1023.Y%=1023:NV%|
00000820  3d b9 0d 03 e8 0c c8 97  b8 58 25 2c 59 25 0d 03  |=........X%,Y%..|
00000830  f2 1d 63 52 3d a8 28 28  58 25 2d 36 34 30 29 2f  |..cR=.((X%-640)/|
00000840  33 2e 32 2b 2e 35 29 2f  31 30 30 0d 03 fc 1d 63  |3.2+.5)/100....c|
00000850  69 3d a8 28 28 59 25 2d  35 31 32 29 2f 33 2e 32  |i=.((Y%-512)/3.2|
00000860  2b 2e 35 29 2f 31 30 30  0d 04 06 13 e7 6d 6f 75  |+.5)/100.....mou|
00000870  73 70 6f 69 6e 74 25 8c  c8 97 ee 0d 04 10 05 e1  |spoint%.........|
00000880  0d 04 1a 04 0d 04 24 0e  dd f2 73 77 61 70 50 6c  |......$...swapPl|
00000890  6f 74 0d 04 2e 17 73 63  72 42 61 6e 6b 25 3d 33  |ot....scrBank%=3|
000008a0  2d 73 63 72 42 61 6e 6b  25 0d 04 38 14 c8 99 36  |-scrBank%..8...6|
000008b0  2c 31 31 32 2c 73 63 72  42 61 6e 6b 25 0d 04 42  |,112,scrBank%..B|
000008c0  11 45 25 3d 63 52 2a 28  31 3c 3c 64 70 29 0d 04  |.E%=cR*(1<<dp)..|
000008d0  4c 11 46 25 3d 63 69 2a  28 31 3c 3c 64 70 29 0d  |L.F%=ci*(1<<dp).|
000008e0  04 56 0f 43 25 3d 21 78  52 73 74 6f 72 65 0d 04  |.V.C%=!xRstore..|
000008f0  60 0f 44 25 3d 21 78 69  73 74 6f 72 65 0d 04 6a  |`.D%=!xistore..j|
00000900  09 41 25 3d 31 30 0d 04  74 0e d6 4a 75 6c 69 61  |.A%=10..t..Julia|
00000910  49 6e 69 74 0d 04 7e 18  f1 8a 31 35 2c 30 29 3b  |Init..~...15,0);|
00000920  22 4a 75 6c 69 61 20 73  65 74 2e 22 0d 04 88 0b  |"Julia set."....|
00000930  53 24 3d 22 63 3d 22 0d  04 92 16 e7 63 52 3c 3e  |S$="c=".....cR<>|
00000940  30 8c 53 24 3d 53 24 2b  c3 28 63 52 29 0d 04 9c  |0.S$=S$+.(cR)...|
00000950  0b e7 63 69 3c 3e 30 8c  0d 04 a6 1a e7 63 69 3e  |..ci<>0......ci>|
00000960  3d 30 80 63 52 3c 3e 30  8c 53 24 3d 53 24 2b 22  |=0.cR<>0.S$=S$+"|
00000970  2b 22 0d 04 b0 2a e7 94  28 63 69 29 3c 3e 31 8c  |+"...*..(ci)<>1.|
00000980  53 24 3d 53 24 2b c3 28  63 69 29 8b e7 63 69 3d  |S$=S$+.(ci)..ci=|
00000990  2d 31 8c 53 24 3d 53 24  2b 22 2d 22 0d 04 ba 0d  |-1.S$=S$+"-"....|
000009a0  53 24 3d 53 24 2b 22 69  22 0d 04 c4 05 cc 0d 04  |S$=S$+"i".......|
000009b0  ce 13 e7 63 52 3d 30 8c  53 24 3d 53 24 2b 22 30  |...cR=0.S$=S$+"0|
000009c0  22 0d 04 d8 05 cd 0d 04  e2 1d f1 8a 32 30 2d a9  |"...........20-.|
000009d0  28 53 24 29 2f 32 2c 33  31 29 3b 53 24 3b 8a 30  |(S$)/2,31);S$;.0|
000009e0  2c 30 29 0d 04 ec 05 e1  0d 04 f6 04 0d 05 00 0f  |,0).............|
000009f0  dd f2 61 6e 69 6d 61 74  69 6f 6e 0d 05 0a 0c c8  |..animation.....|
00000a00  95 a6 2d 36 36 3a ce 0d  05 14 05 f5 0d 05 1e 1c  |..-66:..........|
00000a10  e7 61 75 74 6f 50 68 25  3d 31 30 30 8c 61 75 74  |.autoPh%=100.aut|
00000a20  6f 50 61 72 74 25 3d 31  0d 05 28 1c e7 61 75 74  |oPart%=1..(..aut|
00000a30  6f 50 68 25 3d 33 30 30  8c 61 75 74 6f 50 61 72  |oPh%=300.autoPar|
00000a40  74 25 3d 30 0d 05 32 37  e7 61 75 74 6f 50 61 72  |t%=0..27.autoPar|
00000a50  74 25 3d 30 8c 74 3d 61  75 74 6f 50 68 25 2a af  |t%=0.t=autoPh%*.|
00000a60  2f 31 30 30 20 8b 74 3d  28 33 30 30 2d 61 75 74  |/100 .t=(300-aut|
00000a70  6f 50 68 25 29 2a af 2f  31 30 30 0d 05 3c 25 61  |oPh%)*./100..<%a|
00000a80  75 74 6f 50 68 25 2b 3d  31 3a e7 61 75 74 6f 50  |utoPh%+=1:.autoP|
00000a90  68 25 3d 34 30 30 8c 61  75 74 6f 50 68 25 3d 30  |h%=400.autoPh%=0|
00000aa0  0d 05 46 1b e7 61 75 74  6f 50 61 72 74 25 3d 31  |..F..autoPart%=1|
00000ab0  8c 61 75 74 6f 50 68 25  2b 3d 33 0d 05 50 3c e7  |.autoPh%+=3..P<.|
00000ac0  61 75 74 6f 50 61 72 74  25 3d 30 8c 63 52 3d 2e  |autoPart%=0.cR=.|
00000ad0  32 35 2b 2e 35 2a 28 31  2d 9b 28 74 29 29 2a 9b  |25+.5*(1-.(t))*.|
00000ae0  28 74 29 3a 63 69 3d 2e  35 2a 28 31 2d 9b 28 74  |(t):ci=.5*(1-.(t|
00000af0  29 29 2a b5 28 74 29 0d  05 5a 2b e7 61 75 74 6f  |))*.(t)..Z+.auto|
00000b00  50 61 72 74 25 3d 31 8c  63 52 3d 2d 31 2b 2e 32  |Part%=1.cR=-1+.2|
00000b10  35 2a 9b 28 74 29 3a 63  69 3d 2e 32 35 2a b5 28  |5*.(t):ci=.25*.(|
00000b20  74 29 0d 05 64 1b 63 52  3d a8 28 63 52 2a 31 30  |t)..d.cR=.(cR*10|
00000b30  30 30 30 2b 2e 35 29 2f  31 30 30 30 30 0d 05 6e  |000+.5)/10000..n|
00000b40  1b 63 69 3d a8 28 63 69  2a 31 30 30 30 30 2b 2e  |.ci=.(ci*10000+.|
00000b50  35 29 2f 31 30 30 30 30  0d 05 78 0d f2 73 77 61  |5)/10000..x..swa|
00000b60  70 50 6c 6f 74 0d 05 82  0a 41 25 3d 35 30 30 0d  |pPlot....A%=500.|
00000b70  05 8c 0a d6 4a 75 6c 69  61 0d 05 96 1b c8 99 36  |....Julia......6|
00000b80  2c 31 39 3a c8 99 36 2c  31 31 33 2c 73 63 72 42  |,19:..6,113,scrB|
00000b90  61 6e 6b 25 0d 05 a0 09  fd a6 2d 36 36 0d 05 aa  |ank%......-66...|
00000ba0  0c c8 95 a6 2d 36 36 3a  ce 0d 05 b4 09 4e 56 25  |....-66:.....NV%|
00000bb0  3d b9 0d 05 be 05 e1 0d  05 c8 04 0d 05 d2 15 dd  |=...............|
00000bc0  f2 72 61 6e 64 6f 6d 61  6e 69 6d 61 74 69 6f 6e  |.randomanimation|
00000bd0  0d 05 dc 0c c8 95 a6 2d  35 32 3a ce 0d 05 e6 05  |.......-52:.....|
00000be0  f5 0d 05 f0 17 61 75 74  6f 44 69 72 2b 3d b3 28  |.....autoDir+=.(|
00000bf0  31 29 2a 2e 36 2d 2e 33  0d 05 fa 16 63 52 2b 3d  |1)*.6-.3....cR+=|
00000c00  2e 30 33 2a 9b 28 61 75  74 6f 44 69 72 29 0d 06  |.03*.(autoDir)..|
00000c10  04 16 63 69 2b 3d 2e 30  33 2a b5 28 61 75 74 6f  |..ci+=.03*.(auto|
00000c20  44 69 72 29 0d 06 0e 13  e7 63 52 2a 63 52 2b 63  |Dir).....cR*cR+c|
00000c30  69 2a 63 69 3e 34 8c 0d  06 18 16 63 52 2d 3d 2e  |i*ci>4.....cR-=.|
00000c40  30 33 2a 9b 28 61 75 74  6f 44 69 72 29 0d 06 22  |03*.(autoDir).."|
00000c50  16 63 69 2d 3d 2e 30 33  2a b5 28 61 75 74 6f 44  |.ci-=.03*.(autoD|
00000c60  69 72 29 0d 06 2c 1b e7  63 52 3d 30 8c 61 3d af  |ir)..,..cR=0.a=.|
00000c70  2f 32 20 8b 61 3d 99 28  63 69 2f 63 52 29 0d 06  |/2 .a=.(ci/cR)..|
00000c80  36 19 61 75 74 6f 44 69  72 3d af 2b 32 2a 61 2d  |6.autoDir=.+2*a-|
00000c90  61 75 74 6f 44 69 72 0d  06 40 05 cd 0d 06 4a 1c  |autoDir..@....J.|
00000ca0  e7 61 75 74 6f 44 69 72  3e af 20 8c 61 75 74 6f  |.autoDir>. .auto|
00000cb0  44 69 72 2d 3d 32 2a af  0d 06 54 1d e7 61 75 74  |Dir-=2*...T..aut|
00000cc0  6f 44 69 72 3c 2d af 20  8c 61 75 74 6f 44 69 72  |oDir<-. .autoDir|
00000cd0  2b 3d 32 2a af 0d 06 5e  1b 63 52 3d a8 28 63 52  |+=2*...^.cR=.(cR|
00000ce0  2a 31 30 30 30 30 2b 2e  35 29 2f 31 30 30 30 30  |*10000+.5)/10000|
00000cf0  0d 06 68 1b 63 69 3d a8  28 63 69 2a 31 30 30 30  |..h.ci=.(ci*1000|
00000d00  30 2b 2e 35 29 2f 31 30  30 30 30 0d 06 72 0d f2  |0+.5)/10000..r..|
00000d10  73 77 61 70 50 6c 6f 74  0d 06 7c 0a 41 25 3d 33  |swapPlot..|.A%=3|
00000d20  39 30 0d 06 86 0a d6 4a  75 6c 69 61 0d 06 90 1b  |90.....Julia....|
00000d30  c8 99 36 2c 31 39 3a c8  99 36 2c 31 31 33 2c 73  |..6,19:..6,113,s|
00000d40  63 72 42 61 6e 6b 25 0d  06 9a 09 fd a6 2d 35 32  |crBank%......-52|
00000d50  0d 06 a4 0c c8 95 a6 2d  35 32 3a ce 0d 06 ae 09  |.......-52:.....|
00000d60  4e 56 25 3d b9 0d 06 b8  05 e1 0d ff              |NV%=........|
00000d6c