� Mandelbrot Set Plotter
� By Dominic Ford
:
(� � �error:�
2%ș "OS_ChangeDynamicArea",3,&8000
<&ș "OS_ChangeDynamicArea",5,&30000
F*SLOAD <Obey$Dir>.!Sprites
P*RAM
Z*CDIR MandelWorks
d*DIR MandelWorks
n#xpix=1024:ypix=1024:maxiters=25
x!XMIN=-2:XMAX=2:YMIN=-2:YMAX=2
�� q% 256
�Bș "Wimp_Initialise",200,&4B534154,"MandelPlot" �,task_handle%
�� sp% 256 , err% 256
�t!err%=0:$(err%+4)="WARNING: MandelPlot requires a RAM disc to function. DO NOT delete or alter its contents!"+�0
�7ș "Wimp_ReportError",err%,3,"MandelPlot" � result%
�!sp%=-1
�sp%!4=0
�sp%!8=0
�sp%!12=100
�
sp%!16=68
�,sp%!20=%00010001000000000011000000101010
��                     ^  ^
�$(sp%+24)="!mandel"+�0

#ș "Wimp_CreateIcon",,sp% � ic%

�

ș "Wimp_Poll",0,q% � act%

"
Ȏ act% �

,� 17,18

6 � q%!16=0 �

@� 6

J � q%!12=-2 � q%!16=ic% �

T   �mandelplot

^-   ș "Wimp_ForceRedraw",-1,0,0,1280,1024

h   � (result% � 1) =1 � �

r   � ACTION=2 � �

| �

��

�� �

�:

���mandelplot

�� 15

��screen

�TERMINATE=�:ACTION=�

��

��plotter

��

��checkclick

�� TERMINATE=�

�� ACTION=3 � �reposac
� ACTION=1 � ACTION=2
�
:
&
��plotter
0/xpixs=xpix:ypixs=ypix:XMINs=XMIN:YMINs=YMIN
:-X3=(XMAX-XMIN)/xpixs:X4=(YMAX-YMIN)/ypixs
D�X=0�xpixs �8
N�Y=0�ypixs �8
X	�setp
bZ� TERMINATE=� � X=xpixs:Y=ypixs � �X+289,Y:�X+289,Y+7:�X+282,Y+7:�X+282,Y+4:�X+289,Y+4
l�,
v�X=0�xpixs �2
��Y=0�ypixs �2
�� TERMINATE=� � �setp
�#� TERMINATE=� � X=xpixs:Y=ypixs
��,
��
�:
���error
�	� � �
��:�" at line ";�
��
�:
�
��setp
��checkclick
XB=XMINs+(X3*X)
YB=YMINs+(X4*Y)
C=0:U=XB:V=YB
 �
*US=U^2:VS=V^2
4UN=US-VS+XB
>VN=2*U*V+YB
H
U=UN:V=VN
R	C=C+1
\� US+VS>4 � C=maxiters
f�C=255�C=0
p�0,C
z
ȒX+282,Y
��
�:
���screen
�ȗ �
��
�� 23,1,0;0;0;
�� 0,255:� 280,0:� 280,1024
�*SCHOOSE logo
�� &ED,0,775
�� 128+127:� 0
��0,10);"Resize Plot Area "
��0,12);"Colour Cycling   "
��0,14);"Exit Program     "
�0,16);"Change Iterations"
�0,18);"Reposition       "
�
$:
.��checkclick
8ȗ XMO,YMO,COL
B�0,0);"        "
L#� COL=0 � XMO>272 � YMO>700 � �
VACTION=(700-YMO)/32
`� (ACTION � 2)=1 � �
jACTION=�(ACTION/2)
t� ACTION=0 � �resize:�
~� ACTION=1 � �colcycle:�
�� ACTION=2 � �exit:�
�� ACTION=3 � �chaniter:�
�� ACTION=4 � �repos:�
��
�:
���resize
�*SCREENSAVE screen
�� 15
��
��
�#�"X Screen Width (1-1024)";xpix
�0� xpix<0 � xpix>1024 � �"Out of range!"':� �
� �

�
#�"X Screen Width (1-1024)";ypix
0� ypix<0 � ypix>1024 � �"Out of range!"':� �
(� �
29�"Resize future plots to ";xpix;" X ";ypix;" ? (Y/N)"
<�ask
F� ans=�
P*SCREENLOAD screen
Zȗ �
d�
n:
x��colcycle
�*SCREENSAVE screen
�speed=100:cno=0
�tn=�+speed
��
�� �>=tn � �cycle
�� �(-1)
�*<Obey$Dir>.!Palette
�*SCREENLOAD screen
��
�:
���cycle
�tn=�+speed
�cno=(cno+1) � 127
�c=0�maxiters
� 19,c,c+cno,0;0;
�
"�
,:
6
��exit
@*SCREENSAVE screen
J� 15
T �"Quit: Are you sure? (Y/N)"
^�ask
hTERMINATE=ans
rD� ans=� � �"Exit task? (Y/N)":�ask:� ans=� � ACTION=2 � ACTION=1
|*SCREENLOAD screen
�ȗ �
��
�:
���chaniter
�*SCREENSAVE screen
�� 15
�2�"Maximum re-iterations at current:";maxiters'
��
�#�"New maximum (1-127)";maxiters
�5� maxiters<1 � maxiters>127 � �"Out of Range":� �
�� �
�*SCREENLOAD screen
�ȗ �
�
:
	��ask
&�
0K$=�
:#� K$="Y" � K$="y" � ans=�:� �:�
D#� K$="N" � K$="n" � ans=�:� �:�
N� �
X�
b:
l��repos
v*SCREENSAVE screen
�� 15
�)�"Reposition MandelPlot ? (Y/N)":�ask
�$� ans=� � TERMINATE=�:ACTION=3:�
�*SCREENLOAD screen
�ȗ �
��
�:
�
��reposac
��''"X Minimum";XMIN
��"X Maximum";XMAX
��'"Y Minimum";YMIN
��"Y Maximum";YMAX
�*SCREENLOAD screen
ȗ �
ACTION=�:TERMINATE=�
�
�

00000000  0d 00 0a 1c f4 20 4d 61  6e 64 65 6c 62 72 6f 74  |..... Mandelbrot|
00000010  20 53 65 74 20 50 6c 6f  74 74 65 72 0d 00 14 15  | Set Plotter....|
00000020  f4 20 42 79 20 44 6f 6d  69 6e 69 63 20 46 6f 72  |. By Dominic For|
00000030  64 0d 00 1e 05 3a 0d 00  28 10 ee 20 85 20 f2 65  |d....:..(.. . .e|
00000040  72 72 6f 72 3a e0 0d 00  32 25 c8 99 20 22 4f 53  |rror:...2%.. "OS|
00000050  5f 43 68 61 6e 67 65 44  79 6e 61 6d 69 63 41 72  |_ChangeDynamicAr|
00000060  65 61 22 2c 33 2c 26 38  30 30 30 0d 00 3c 26 c8  |ea",3,&8000..<&.|
00000070  99 20 22 4f 53 5f 43 68  61 6e 67 65 44 79 6e 61  |. "OS_ChangeDyna|
00000080  6d 69 63 41 72 65 61 22  2c 35 2c 26 33 30 30 30  |micArea",5,&3000|
00000090  30 0d 00 46 1e 2a 53 4c  4f 41 44 20 3c 4f 62 65  |0..F.*SLOAD <Obe|
000000a0  79 24 44 69 72 3e 2e 21  53 70 72 69 74 65 73 0d  |y$Dir>.!Sprites.|
000000b0  00 50 08 2a 52 41 4d 0d  00 5a 15 2a 43 44 49 52  |.P.*RAM..Z.*CDIR|
000000c0  20 4d 61 6e 64 65 6c 57  6f 72 6b 73 0d 00 64 14  | MandelWorks..d.|
000000d0  2a 44 49 52 20 4d 61 6e  64 65 6c 57 6f 72 6b 73  |*DIR MandelWorks|
000000e0  0d 00 6e 23 78 70 69 78  3d 31 30 32 34 3a 79 70  |..n#xpix=1024:yp|
000000f0  69 78 3d 31 30 32 34 3a  6d 61 78 69 74 65 72 73  |ix=1024:maxiters|
00000100  3d 32 35 0d 00 78 21 58  4d 49 4e 3d 2d 32 3a 58  |=25..x!XMIN=-2:X|
00000110  4d 41 58 3d 32 3a 59 4d  49 4e 3d 2d 32 3a 59 4d  |MAX=2:YMIN=-2:YM|
00000120  41 58 3d 32 0d 00 82 0c  de 20 71 25 20 32 35 36  |AX=2..... q% 256|
00000130  0d 00 8c 42 c8 99 20 22  57 69 6d 70 5f 49 6e 69  |...B.. "Wimp_Ini|
00000140  74 69 61 6c 69 73 65 22  2c 32 30 30 2c 26 34 42  |tialise",200,&4B|
00000150  35 33 34 31 35 34 2c 22  4d 61 6e 64 65 6c 50 6c  |534154,"MandelPl|
00000160  6f 74 22 20 b8 2c 74 61  73 6b 5f 68 61 6e 64 6c  |ot" .,task_handl|
00000170  65 25 0d 00 96 18 de 20  73 70 25 20 32 35 36 20  |e%..... sp% 256 |
00000180  2c 20 65 72 72 25 20 32  35 36 0d 00 a0 74 21 65  |, err% 256...t!e|
00000190  72 72 25 3d 30 3a 24 28  65 72 72 25 2b 34 29 3d  |rr%=0:$(err%+4)=|
000001a0  22 57 41 52 4e 49 4e 47  3a 20 4d 61 6e 64 65 6c  |"WARNING: Mandel|
000001b0  50 6c 6f 74 20 72 65 71  75 69 72 65 73 20 61 20  |Plot requires a |
000001c0  52 41 4d 20 64 69 73 63  20 74 6f 20 66 75 6e 63  |RAM disc to func|
000001d0  74 69 6f 6e 2e 20 44 4f  20 4e 4f 54 20 64 65 6c  |tion. DO NOT del|
000001e0  65 74 65 20 6f 72 20 61  6c 74 65 72 20 69 74 73  |ete or alter its|
000001f0  20 63 6f 6e 74 65 6e 74  73 21 22 2b bd 30 0d 00  | contents!"+.0..|
00000200  aa 37 c8 99 20 22 57 69  6d 70 5f 52 65 70 6f 72  |.7.. "Wimp_Repor|
00000210  74 45 72 72 6f 72 22 2c  65 72 72 25 2c 33 2c 22  |tError",err%,3,"|
00000220  4d 61 6e 64 65 6c 50 6c  6f 74 22 20 b8 20 72 65  |MandelPlot" . re|
00000230  73 75 6c 74 25 0d 00 b4  0b 21 73 70 25 3d 2d 31  |sult%....!sp%=-1|
00000240  0d 00 be 0b 73 70 25 21  34 3d 30 0d 00 c8 0b 73  |....sp%!4=0....s|
00000250  70 25 21 38 3d 30 0d 00  d2 0e 73 70 25 21 31 32  |p%!8=0....sp%!12|
00000260  3d 31 30 30 0d 00 dc 0d  73 70 25 21 31 36 3d 36  |=100....sp%!16=6|
00000270  38 0d 00 e6 2c 73 70 25  21 32 30 3d 25 30 30 30  |8...,sp%!20=%000|
00000280  31 30 30 30 31 30 30 30  30 30 30 30 30 30 30 31  |1000100000000001|
00000290  31 30 30 30 30 30 30 31  30 31 30 31 30 0d 00 f0  |1000000101010...|
000002a0  1e f4 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
000002b0  20 20 20 20 20 20 20 5e  20 20 5e 0d 00 fa 1a 24  |       ^  ^....$|
000002c0  28 73 70 25 2b 32 34 29  3d 22 21 6d 61 6e 64 65  |(sp%+24)="!mande|
000002d0  6c 22 2b bd 30 0d 01 04  23 c8 99 20 22 57 69 6d  |l"+.0...#.. "Wim|
000002e0  70 5f 43 72 65 61 74 65  49 63 6f 6e 22 2c 2c 73  |p_CreateIcon",,s|
000002f0  70 25 20 b8 20 69 63 25  0d 01 0e 05 f5 0d 01 18  |p% . ic%........|
00000300  1e c8 99 20 22 57 69 6d  70 5f 50 6f 6c 6c 22 2c  |... "Wimp_Poll",|
00000310  30 2c 71 25 20 b8 20 61  63 74 25 0d 01 22 0d c8  |0,q% . act%.."..|
00000320  8e 20 61 63 74 25 20 ca  0d 01 2c 0b c9 20 31 37  |. act% ...,.. 17|
00000330  2c 31 38 0d 01 36 10 20  e7 20 71 25 21 31 36 3d  |,18..6. . q%!16=|
00000340  30 20 e0 0d 01 40 07 c9  20 36 0d 01 4a 1d 20 e7  |0 ...@.. 6..J. .|
00000350  20 71 25 21 31 32 3d 2d  32 20 80 20 71 25 21 31  | q%!12=-2 . q%!1|
00000360  36 3d 69 63 25 20 8c 0d  01 54 12 20 20 20 f2 6d  |6=ic% ...T.   .m|
00000370  61 6e 64 65 6c 70 6c 6f  74 0d 01 5e 2d 20 20 20  |andelplot..^-   |
00000380  c8 99 20 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |.. "Wimp_ForceRe|
00000390  64 72 61 77 22 2c 2d 31  2c 30 2c 30 2c 31 32 38  |draw",-1,0,0,128|
000003a0  30 2c 31 30 32 34 0d 01  68 1d 20 20 20 e7 20 28  |0,1024..h.   . (|
000003b0  72 65 73 75 6c 74 25 20  80 20 31 29 20 3d 31 20  |result% . 1) =1 |
000003c0  8c 20 e0 0d 01 72 15 20  20 20 e7 20 41 43 54 49  |. ...r.   . ACTI|
000003d0  4f 4e 3d 32 20 8c 20 e0  0d 01 7c 06 20 cd 0d 01  |ON=2 . ...|. ...|
000003e0  86 05 cb 0d 01 90 07 fd  20 a3 0d 01 9a 05 3a 0d  |........ .....:.|
000003f0  01 a4 10 dd f2 6d 61 6e  64 65 6c 70 6c 6f 74 0d  |.....mandelplot.|
00000400  01 ae 08 eb 20 31 35 0d  01 b8 0b f2 73 63 72 65  |.... 15.....scre|
00000410  65 6e 0d 01 c2 18 54 45  52 4d 49 4e 41 54 45 3d  |en....TERMINATE=|
00000420  a3 3a 41 43 54 49 4f 4e  3d a3 0d 01 cc 05 f5 0d  |.:ACTION=.......|
00000430  01 d6 0c f2 70 6c 6f 74  74 65 72 0d 01 e0 05 f5  |....plotter.....|
00000440  0d 01 ea 0f f2 63 68 65  63 6b 63 6c 69 63 6b 0d  |.....checkclick.|
00000450  01 f4 11 fd 20 54 45 52  4d 49 4e 41 54 45 3d b9  |.... TERMINATE=.|
00000460  0d 01 fe 19 e7 20 41 43  54 49 4f 4e 3d 33 20 8c  |..... ACTION=3 .|
00000470  20 f2 72 65 70 6f 73 61  63 0d 02 08 19 fd 20 41  | .reposac..... A|
00000480  43 54 49 4f 4e 3d 31 20  84 20 41 43 54 49 4f 4e  |CTION=1 . ACTION|
00000490  3d 32 0d 02 12 05 e1 0d  02 1c 05 3a 0d 02 26 0d  |=2.........:..&.|
000004a0  dd f2 70 6c 6f 74 74 65  72 0d 02 30 2f 78 70 69  |..plotter..0/xpi|
000004b0  78 73 3d 78 70 69 78 3a  79 70 69 78 73 3d 79 70  |xs=xpix:ypixs=yp|
000004c0  69 78 3a 58 4d 49 4e 73  3d 58 4d 49 4e 3a 59 4d  |ix:XMINs=XMIN:YM|
000004d0  49 4e 73 3d 59 4d 49 4e  0d 02 3a 2d 58 33 3d 28  |INs=YMIN..:-X3=(|
000004e0  58 4d 41 58 2d 58 4d 49  4e 29 2f 78 70 69 78 73  |XMAX-XMIN)/xpixs|
000004f0  3a 58 34 3d 28 59 4d 41  58 2d 59 4d 49 4e 29 2f  |:X4=(YMAX-YMIN)/|
00000500  79 70 69 78 73 0d 02 44  11 e3 58 3d 30 b8 78 70  |ypixs..D..X=0.xp|
00000510  69 78 73 20 88 38 0d 02  4e 11 e3 59 3d 30 b8 79  |ixs .8..N..Y=0.y|
00000520  70 69 78 73 20 88 38 0d  02 58 09 f2 73 65 74 70  |pixs .8..X..setp|
00000530  0d 02 62 5a e7 20 54 45  52 4d 49 4e 41 54 45 3d  |..bZ. TERMINATE=|
00000540  b9 20 8c 20 58 3d 78 70  69 78 73 3a 59 3d 79 70  |. . X=xpixs:Y=yp|
00000550  69 78 73 20 8b 20 df 58  2b 32 38 39 2c 59 3a df  |ixs . .X+289,Y:.|
00000560  58 2b 32 38 39 2c 59 2b  37 3a df 58 2b 32 38 32  |X+289,Y+7:.X+282|
00000570  2c 59 2b 37 3a df 58 2b  32 38 32 2c 59 2b 34 3a  |,Y+7:.X+282,Y+4:|
00000580  df 58 2b 32 38 39 2c 59  2b 34 0d 02 6c 06 ed 2c  |.X+289,Y+4..l..,|
00000590  0d 02 76 11 e3 58 3d 30  b8 78 70 69 78 73 20 88  |..v..X=0.xpixs .|
000005a0  32 0d 02 80 11 e3 59 3d  30 b8 79 70 69 78 73 20  |2.....Y=0.ypixs |
000005b0  88 32 0d 02 8a 19 e7 20  54 45 52 4d 49 4e 41 54  |.2..... TERMINAT|
000005c0  45 3d a3 20 8c 20 f2 73  65 74 70 0d 02 94 23 e7  |E=. . .setp...#.|
000005d0  20 54 45 52 4d 49 4e 41  54 45 3d b9 20 8c 20 58  | TERMINATE=. . X|
000005e0  3d 78 70 69 78 73 3a 59  3d 79 70 69 78 73 0d 02  |=xpixs:Y=ypixs..|
000005f0  9e 06 ed 2c 0d 02 a8 05  e1 0d 02 b2 05 3a 0d 02  |...,.........:..|
00000600  bc 0b dd f2 65 72 72 6f  72 0d 02 c6 09 ee 20 85  |....error..... .|
00000610  20 87 0d 02 d0 14 f6 3a  f1 22 20 61 74 20 6c 69  | ......:." at li|
00000620  6e 65 20 22 3b 9e 0d 02  da 05 e1 0d 02 e4 05 3a  |ne ";..........:|
00000630  0d 02 ee 0a dd f2 73 65  74 70 0d 02 f8 0f f2 63  |......setp.....c|
00000640  68 65 63 6b 63 6c 69 63  6b 0d 03 02 13 58 42 3d  |heckclick....XB=|
00000650  58 4d 49 4e 73 2b 28 58  33 2a 58 29 0d 03 0c 13  |XMINs+(X3*X)....|
00000660  59 42 3d 59 4d 49 4e 73  2b 28 58 34 2a 59 29 0d  |YB=YMINs+(X4*Y).|
00000670  03 16 11 43 3d 30 3a 55  3d 58 42 3a 56 3d 59 42  |...C=0:U=XB:V=YB|
00000680  0d 03 20 05 f5 0d 03 2a  11 55 53 3d 55 5e 32 3a  |.. ....*.US=U^2:|
00000690  56 53 3d 56 5e 32 0d 03  34 0f 55 4e 3d 55 53 2d  |VS=V^2..4.UN=US-|
000006a0  56 53 2b 58 42 0d 03 3e  0f 56 4e 3d 32 2a 55 2a  |VS+XB..>.VN=2*U*|
000006b0  56 2b 59 42 0d 03 48 0d  55 3d 55 4e 3a 56 3d 56  |V+YB..H.U=UN:V=V|
000006c0  4e 0d 03 52 09 43 3d 43  2b 31 0d 03 5c 1a fd 20  |N..R.C=C+1..\.. |
000006d0  55 53 2b 56 53 3e 34 20  84 20 43 3d 6d 61 78 69  |US+VS>4 . C=maxi|
000006e0  74 65 72 73 0d 03 66 0e  e7 43 3d 32 35 35 8c 43  |ters..f..C=255.C|
000006f0  3d 30 0d 03 70 08 e6 30  2c 43 0d 03 7a 0d c8 92  |=0..p..0,C..z...|
00000700  58 2b 32 38 32 2c 59 0d  03 84 05 e1 0d 03 8e 05  |X+282,Y.........|
00000710  3a 0d 03 98 0c dd f2 73  63 72 65 65 6e 0d 03 a2  |:......screen...|
00000720  08 c8 97 20 ee 0d 03 ac  05 db 0d 03 b6 11 ef 20  |... ........... |
00000730  32 33 2c 31 2c 30 3b 30  3b 30 3b 0d 03 c0 1e e6  |23,1,0;0;0;.....|
00000740  20 30 2c 32 35 35 3a ec  20 32 38 30 2c 30 3a df  | 0,255:. 280,0:.|
00000750  20 32 38 30 2c 31 30 32  34 0d 03 ca 11 2a 53 43  | 280,1024....*SC|
00000760  48 4f 4f 53 45 20 6c 6f  67 6f 0d 03 d4 0f f0 20  |HOOSE logo..... |
00000770  26 45 44 2c 30 2c 37 37  35 0d 03 de 11 fb 20 31  |&ED,0,775..... 1|
00000780  32 38 2b 31 32 37 3a fb  20 30 0d 03 e8 1f f1 8a  |28+127:. 0......|
00000790  30 2c 31 30 29 3b 22 52  65 73 69 7a 65 20 50 6c  |0,10);"Resize Pl|
000007a0  6f 74 20 41 72 65 61 20  22 0d 03 f2 1f f1 8a 30  |ot Area "......0|
000007b0  2c 31 32 29 3b 22 43 6f  6c 6f 75 72 20 43 79 63  |,12);"Colour Cyc|
000007c0  6c 69 6e 67 20 20 20 22  0d 03 fc 1f f1 8a 30 2c  |ling   "......0,|
000007d0  31 34 29 3b 22 45 78 69  74 20 50 72 6f 67 72 61  |14);"Exit Progra|
000007e0  6d 20 20 20 20 20 22 0d  04 06 1f f1 8a 30 2c 31  |m     "......0,1|
000007f0  36 29 3b 22 43 68 61 6e  67 65 20 49 74 65 72 61  |6);"Change Itera|
00000800  74 69 6f 6e 73 22 0d 04  10 1f f1 8a 30 2c 31 38  |tions"......0,18|
00000810  29 3b 22 52 65 70 6f 73  69 74 69 6f 6e 20 20 20  |);"Reposition   |
00000820  20 20 20 20 22 0d 04 1a  05 e1 0d 04 24 05 3a 0d  |    ".......$.:.|
00000830  04 2e 10 dd f2 63 68 65  63 6b 63 6c 69 63 6b 0d  |.....checkclick.|
00000840  04 38 12 c8 97 20 58 4d  4f 2c 59 4d 4f 2c 43 4f  |.8... XMO,YMO,CO|
00000850  4c 0d 04 42 15 f1 8a 30  2c 30 29 3b 22 20 20 20  |L..B...0,0);"   |
00000860  20 20 20 20 20 22 0d 04  4c 23 e7 20 43 4f 4c 3d  |     "..L#. COL=|
00000870  30 20 84 20 58 4d 4f 3e  32 37 32 20 84 20 59 4d  |0 . XMO>272 . YM|
00000880  4f 3e 37 30 30 20 8c 20  e1 0d 04 56 17 41 43 54  |O>700 . ...V.ACT|
00000890  49 4f 4e 3d 28 37 30 30  2d 59 4d 4f 29 2f 33 32  |ION=(700-YMO)/32|
000008a0  0d 04 60 18 e7 20 28 41  43 54 49 4f 4e 20 83 20  |..`.. (ACTION . |
000008b0  32 29 3d 31 20 8c 20 e1  0d 04 6a 16 41 43 54 49  |2)=1 . ...j.ACTI|
000008c0  4f 4e 3d a8 28 41 43 54  49 4f 4e 2f 32 29 0d 04  |ON=.(ACTION/2)..|
000008d0  74 1a e7 20 41 43 54 49  4f 4e 3d 30 20 8c 20 f2  |t.. ACTION=0 . .|
000008e0  72 65 73 69 7a 65 3a e1  0d 04 7e 1c e7 20 41 43  |resize:...~.. AC|
000008f0  54 49 4f 4e 3d 31 20 8c  20 f2 63 6f 6c 63 79 63  |TION=1 . .colcyc|
00000900  6c 65 3a e1 0d 04 88 18  e7 20 41 43 54 49 4f 4e  |le:...... ACTION|
00000910  3d 32 20 8c 20 f2 65 78  69 74 3a e1 0d 04 92 1c  |=2 . .exit:.....|
00000920  e7 20 41 43 54 49 4f 4e  3d 33 20 8c 20 f2 63 68  |. ACTION=3 . .ch|
00000930  61 6e 69 74 65 72 3a e1  0d 04 9c 19 e7 20 41 43  |aniter:...... AC|
00000940  54 49 4f 4e 3d 34 20 8c  20 f2 72 65 70 6f 73 3a  |TION=4 . .repos:|
00000950  e1 0d 04 a6 05 e1 0d 04  b0 05 3a 0d 04 ba 0c dd  |..........:.....|
00000960  f2 72 65 73 69 7a 65 0d  04 c4 16 2a 53 43 52 45  |.resize....*SCRE|
00000970  45 4e 53 41 56 45 20 73  63 72 65 65 6e 0d 04 ce  |ENSAVE screen...|
00000980  08 eb 20 31 35 0d 04 d8  05 f5 0d 04 e2 05 f5 0d  |.. 15...........|
00000990  04 ec 23 e8 22 58 20 53  63 72 65 65 6e 20 57 69  |..#."X Screen Wi|
000009a0  64 74 68 20 28 31 2d 31  30 32 34 29 22 3b 78 70  |dth (1-1024)";xp|
000009b0  69 78 0d 04 f6 30 e7 20  78 70 69 78 3c 30 20 84  |ix...0. xpix<0 .|
000009c0  20 78 70 69 78 3e 31 30  32 34 20 8c 20 f1 22 4f  | xpix>1024 . ."O|
000009d0  75 74 20 6f 66 20 72 61  6e 67 65 21 22 27 3a fd  |ut of range!"':.|
000009e0  20 a3 0d 05 00 07 fd 20  b9 0d 05 0a 05 f5 0d 05  | ...... ........|
000009f0  14 23 e8 22 58 20 53 63  72 65 65 6e 20 57 69 64  |.#."X Screen Wid|
00000a00  74 68 20 28 31 2d 31 30  32 34 29 22 3b 79 70 69  |th (1-1024)";ypi|
00000a10  78 0d 05 1e 30 e7 20 79  70 69 78 3c 30 20 84 20  |x...0. ypix<0 . |
00000a20  79 70 69 78 3e 31 30 32  34 20 8c 20 f1 22 4f 75  |ypix>1024 . ."Ou|
00000a30  74 20 6f 66 20 72 61 6e  67 65 21 22 27 3a fd 20  |t of range!"':. |
00000a40  a3 0d 05 28 07 fd 20 b9  0d 05 32 39 f1 22 52 65  |...(.. ...29."Re|
00000a50  73 69 7a 65 20 66 75 74  75 72 65 20 70 6c 6f 74  |size future plot|
00000a60  73 20 74 6f 20 22 3b 78  70 69 78 3b 22 20 58 20  |s to ";xpix;" X |
00000a70  22 3b 79 70 69 78 3b 22  20 3f 20 28 59 2f 4e 29  |";ypix;" ? (Y/N)|
00000a80  22 0d 05 3c 08 f2 61 73  6b 0d 05 46 0b fd 20 61  |"..<..ask..F.. a|
00000a90  6e 73 3d b9 0d 05 50 16  2a 53 43 52 45 45 4e 4c  |ns=...P.*SCREENL|
00000aa0  4f 41 44 20 73 63 72 65  65 6e 0d 05 5a 08 c8 97  |OAD screen..Z...|
00000ab0  20 ee 0d 05 64 05 e1 0d  05 6e 05 3a 0d 05 78 0e  | ...d....n.:..x.|
00000ac0  dd f2 63 6f 6c 63 79 63  6c 65 0d 05 82 16 2a 53  |..colcycle....*S|
00000ad0  43 52 45 45 4e 53 41 56  45 20 73 63 72 65 65 6e  |CREENSAVE screen|
00000ae0  0d 05 8c 13 73 70 65 65  64 3d 31 30 30 3a 63 6e  |....speed=100:cn|
00000af0  6f 3d 30 0d 05 96 0e 74  6e 3d 91 2b 73 70 65 65  |o=0....tn=.+spee|
00000b00  64 0d 05 a0 05 f5 0d 05  aa 14 e7 20 91 3e 3d 74  |d.......... .>=t|
00000b10  6e 20 8c 20 f2 63 79 63  6c 65 0d 05 b4 0b fd 20  |n . .cycle..... |
00000b20  a6 28 2d 31 29 0d 05 be  18 2a 3c 4f 62 65 79 24  |.(-1)....*<Obey$|
00000b30  44 69 72 3e 2e 21 50 61  6c 65 74 74 65 0d 05 c8  |Dir>.!Palette...|
00000b40  16 2a 53 43 52 45 45 4e  4c 4f 41 44 20 73 63 72  |.*SCREENLOAD scr|
00000b50  65 65 6e 0d 05 d2 05 e1  0d 05 dc 05 3a 0d 05 e6  |een.........:...|
00000b60  0b dd f2 63 79 63 6c 65  0d 05 f0 0e 74 6e 3d 91  |...cycle....tn=.|
00000b70  2b 73 70 65 65 64 0d 05  fa 15 63 6e 6f 3d 28 63  |+speed....cno=(c|
00000b80  6e 6f 2b 31 29 20 80 20  31 32 37 0d 06 04 11 e3  |no+1) . 127.....|
00000b90  63 3d 30 b8 6d 61 78 69  74 65 72 73 0d 06 0e 15  |c=0.maxiters....|
00000ba0  ef 20 31 39 2c 63 2c 63  2b 63 6e 6f 2c 30 3b 30  |. 19,c,c+cno,0;0|
00000bb0  3b 0d 06 18 05 ed 0d 06  22 05 e1 0d 06 2c 05 3a  |;......."....,.:|
00000bc0  0d 06 36 0a dd f2 65 78  69 74 0d 06 40 16 2a 53  |..6...exit..@.*S|
00000bd0  43 52 45 45 4e 53 41 56  45 20 73 63 72 65 65 6e  |CREENSAVE screen|
00000be0  0d 06 4a 08 eb 20 31 35  0d 06 54 20 f1 22 51 75  |..J.. 15..T ."Qu|
00000bf0  69 74 3a 20 41 72 65 20  79 6f 75 20 73 75 72 65  |it: Are you sure|
00000c00  3f 20 28 59 2f 4e 29 22  0d 06 5e 08 f2 61 73 6b  |? (Y/N)"..^..ask|
00000c10  0d 06 68 11 54 45 52 4d  49 4e 41 54 45 3d 61 6e  |..h.TERMINATE=an|
00000c20  73 0d 06 72 44 e7 20 61  6e 73 3d b9 20 8c 20 f1  |s..rD. ans=. . .|
00000c30  22 45 78 69 74 20 74 61  73 6b 3f 20 28 59 2f 4e  |"Exit task? (Y/N|
00000c40  29 22 3a f2 61 73 6b 3a  e7 20 61 6e 73 3d b9 20  |)":.ask:. ans=. |
00000c50  8c 20 41 43 54 49 4f 4e  3d 32 20 8b 20 41 43 54  |. ACTION=2 . ACT|
00000c60  49 4f 4e 3d 31 0d 06 7c  16 2a 53 43 52 45 45 4e  |ION=1..|.*SCREEN|
00000c70  4c 4f 41 44 20 73 63 72  65 65 6e 0d 06 86 08 c8  |LOAD screen.....|
00000c80  97 20 ee 0d 06 90 05 e1  0d 06 9a 05 3a 0d 06 a4  |. ..........:...|
00000c90  0e dd f2 63 68 61 6e 69  74 65 72 0d 06 ae 16 2a  |...chaniter....*|
00000ca0  53 43 52 45 45 4e 53 41  56 45 20 73 63 72 65 65  |SCREENSAVE scree|
00000cb0  6e 0d 06 b8 08 eb 20 31  35 0d 06 c2 32 f1 22 4d  |n..... 15...2."M|
00000cc0  61 78 69 6d 75 6d 20 72  65 2d 69 74 65 72 61 74  |aximum re-iterat|
00000cd0  69 6f 6e 73 20 61 74 20  63 75 72 72 65 6e 74 3a  |ions at current:|
00000ce0  22 3b 6d 61 78 69 74 65  72 73 27 0d 06 cc 05 f5  |";maxiters'.....|
00000cf0  0d 06 d6 23 e8 22 4e 65  77 20 6d 61 78 69 6d 75  |...#."New maximu|
00000d00  6d 20 28 31 2d 31 32 37  29 22 3b 6d 61 78 69 74  |m (1-127)";maxit|
00000d10  65 72 73 0d 06 e0 35 e7  20 6d 61 78 69 74 65 72  |ers...5. maxiter|
00000d20  73 3c 31 20 84 20 6d 61  78 69 74 65 72 73 3e 31  |s<1 . maxiters>1|
00000d30  32 37 20 8c 20 f1 22 4f  75 74 20 6f 66 20 52 61  |27 . ."Out of Ra|
00000d40  6e 67 65 22 3a fd 20 a3  0d 06 ea 07 fd 20 b9 0d  |nge":. ...... ..|
00000d50  06 f4 16 2a 53 43 52 45  45 4e 4c 4f 41 44 20 73  |...*SCREENLOAD s|
00000d60  63 72 65 65 6e 0d 06 fe  08 c8 97 20 ee 0d 07 08  |creen...... ....|
00000d70  05 e1 0d 07 12 05 3a 0d  07 1c 09 dd f2 61 73 6b  |......:......ask|
00000d80  0d 07 26 05 f5 0d 07 30  08 4b 24 3d be 0d 07 3a  |..&....0.K$=...:|
00000d90  23 e7 20 4b 24 3d 22 59  22 20 84 20 4b 24 3d 22  |#. K$="Y" . K$="|
00000da0  79 22 20 8c 20 61 6e 73  3d b9 3a fd 20 b9 3a e1  |y" . ans=.:. .:.|
00000db0  0d 07 44 23 e7 20 4b 24  3d 22 4e 22 20 84 20 4b  |..D#. K$="N" . K|
00000dc0  24 3d 22 6e 22 20 8c 20  61 6e 73 3d a3 3a fd 20  |$="n" . ans=.:. |
00000dd0  b9 3a e1 0d 07 4e 07 fd  20 a3 0d 07 58 05 e1 0d  |.:...N.. ...X...|
00000de0  07 62 05 3a 0d 07 6c 0b  dd f2 72 65 70 6f 73 0d  |.b.:..l...repos.|
00000df0  07 76 16 2a 53 43 52 45  45 4e 53 41 56 45 20 73  |.v.*SCREENSAVE s|
00000e00  63 72 65 65 6e 0d 07 80  08 eb 20 31 35 0d 07 8a  |creen..... 15...|
00000e10  29 f1 22 52 65 70 6f 73  69 74 69 6f 6e 20 4d 61  |)."Reposition Ma|
00000e20  6e 64 65 6c 50 6c 6f 74  20 3f 20 28 59 2f 4e 29  |ndelPlot ? (Y/N)|
00000e30  22 3a f2 61 73 6b 0d 07  94 24 e7 20 61 6e 73 3d  |":.ask...$. ans=|
00000e40  b9 20 8c 20 54 45 52 4d  49 4e 41 54 45 3d b9 3a  |. . TERMINATE=.:|
00000e50  41 43 54 49 4f 4e 3d 33  3a e1 0d 07 9e 16 2a 53  |ACTION=3:.....*S|
00000e60  43 52 45 45 4e 4c 4f 41  44 20 73 63 72 65 65 6e  |CREENLOAD screen|
00000e70  0d 07 a8 08 c8 97 20 ee  0d 07 b2 05 e1 0d 07 bc  |...... .........|
00000e80  05 3a 0d 07 c6 0d dd f2  72 65 70 6f 73 61 63 0d  |.:......reposac.|
00000e90  07 d0 17 e8 27 27 22 58  20 4d 69 6e 69 6d 75 6d  |....''"X Minimum|
00000ea0  22 3b 58 4d 49 4e 0d 07  da 15 e8 22 58 20 4d 61  |";XMIN....."X Ma|
00000eb0  78 69 6d 75 6d 22 3b 58  4d 41 58 0d 07 e4 16 e8  |ximum";XMAX.....|
00000ec0  27 22 59 20 4d 69 6e 69  6d 75 6d 22 3b 59 4d 49  |'"Y Minimum";YMI|
00000ed0  4e 0d 07 ee 15 e8 22 59  20 4d 61 78 69 6d 75 6d  |N....."Y Maximum|
00000ee0  22 3b 59 4d 41 58 0d 07  f8 16 2a 53 43 52 45 45  |";YMAX....*SCREE|
00000ef0  4e 4c 4f 41 44 20 73 63  72 65 65 6e 0d 08 02 08  |NLOAD screen....|
00000f00  c8 97 20 ee 0d 08 0c 18  41 43 54 49 4f 4e 3d a3  |.. .....ACTION=.|
00000f10  3a 54 45 52 4d 49 4e 41  54 45 3d a3 0d 08 16 05  |:TERMINATE=.....|
00000f20  e1 0d ff                                          |...|
00000f23