Home » Personal collection » Acorn hard disk » misc » dcfprogs » Server1/!Mandel/!RunOLD

Server1/!Mandel/!RunOLD

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn hard disk » misc » dcfprogs
Filename: Server1/!Mandel/!RunOLD
Read OK: ✔
File size: 0F23 bytes
Load address: 0000
Exec address: 0000
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10REM Mandelbrot Set Plotter
   20REM By Dominic Ford
   30:
   40ON ERROR PROCerror:END
   50SYS "OS_ChangeDynamicArea",3,&8000
   60SYS "OS_ChangeDynamicArea",5,&30000
   70*SLOAD <Obey$Dir>.!Sprites
   80*RAM
   90*CDIR MandelWorks
  100*DIR MandelWorks
  110xpix=1024:ypix=1024:maxiters=25
  120XMIN=-2:XMAX=2:YMIN=-2:YMAX=2
  130DIM q% 256
  140SYS "Wimp_Initialise",200,&4B534154,"MandelPlot" TO,task_handle%
  150DIM sp% 256 , err% 256
  160!err%=0:$(err%+4)="WARNING: MandelPlot requires a RAM disc to function. DO NOT delete or alter its contents!"+CHR$0
  170SYS "Wimp_ReportError",err%,3,"MandelPlot" TO result%
  180!sp%=-1
  190sp%!4=0
  200sp%!8=0
  210sp%!12=100
  220sp%!16=68
  230sp%!20=%00010001000000000011000000101010
  240REM                     ^  ^
  250$(sp%+24)="!mandel"+CHR$0
  260SYS "Wimp_CreateIcon",,sp% TO ic%
  270REPEAT
  280SYS "Wimp_Poll",0,q% TO act%
  290CASE act% OF
  300WHEN 17,18
  310 IF q%!16=0 END
  320WHEN 6
  330 IF q%!12=-2 AND q%!16=ic% THEN
  340   PROCmandelplot
  350   SYS "Wimp_ForceRedraw",-1,0,0,1280,1024
  360   IF (result% AND 1) =1 THEN END
  370   IF ACTION=2 THEN END
  380 ENDIF
  390ENDCASE
  400UNTIL FALSE
  410:
  420DEFPROCmandelplot
  430MODE 15
  440PROCscreen
  450TERMINATE=FALSE:ACTION=FALSE
  460REPEAT
  470PROCplotter
  480REPEAT
  490PROCcheckclick
  500UNTIL TERMINATE=TRUE
  510IF ACTION=3 THEN PROCreposac
  520UNTIL ACTION=1 OR ACTION=2
  530ENDPROC
  540:
  550DEFPROCplotter
  560xpixs=xpix:ypixs=ypix:XMINs=XMIN:YMINs=YMIN
  570X3=(XMAX-XMIN)/xpixs:X4=(YMAX-YMIN)/ypixs
  580FORX=0TOxpixs STEP8
  590FORY=0TOypixs STEP8
  600PROCsetp
  610IF TERMINATE=TRUE THEN X=xpixs:Y=ypixs ELSE DRAWX+289,Y:DRAWX+289,Y+7:DRAWX+282,Y+7:DRAWX+282,Y+4:DRAWX+289,Y+4
  620NEXT,
  630FORX=0TOxpixs STEP2
  640FORY=0TOypixs STEP2
  650IF TERMINATE=FALSE THEN PROCsetp
  660IF TERMINATE=TRUE THEN X=xpixs:Y=ypixs
  670NEXT,
  680ENDPROC
  690:
  700DEFPROCerror
  710ON ERROR OFF
  720REPORT:PRINT" at line ";ERL
  730ENDPROC
  740:
  750DEFPROCsetp
  760PROCcheckclick
  770XB=XMINs+(X3*X)
  780YB=YMINs+(X4*Y)
  790C=0:U=XB:V=YB
  800REPEAT
  810US=U^2:VS=V^2
  820UN=US-VS+XB
  830VN=2*U*V+YB
  840U=UN:V=VN
  850C=C+1
  860UNTIL US+VS>4 OR C=maxiters
  870IFC=255THENC=0
  880GCOL0,C
  890POINTX+282,Y
  900ENDPROC
  910:
  920DEFPROCscreen
  930MOUSE ON
  940CLS
  950VDU 23,1,0;0;0;
  960GCOL 0,255:MOVE 280,0:DRAW 280,1024
  970*SCHOOSE logo
  980PLOT &ED,0,775
  990COLOUR 128+127:COLOUR 0
 1000PRINTTAB(0,10);"Resize Plot Area "
 1010PRINTTAB(0,12);"Colour Cycling   "
 1020PRINTTAB(0,14);"Exit Program     "
 1030PRINTTAB(0,16);"Change Iterations"
 1040PRINTTAB(0,18);"Reposition       "
 1050ENDPROC
 1060:
 1070DEFPROCcheckclick
 1080MOUSE XMO,YMO,COL
 1090PRINTTAB(0,0);"        "
 1100IF COL=0 OR XMO>272 OR YMO>700 THEN ENDPROC
 1110ACTION=(700-YMO)/32
 1120IF (ACTION MOD 2)=1 THEN ENDPROC
 1130ACTION=INT(ACTION/2)
 1140IF ACTION=0 THEN PROCresize:ENDPROC
 1150IF ACTION=1 THEN PROCcolcycle:ENDPROC
 1160IF ACTION=2 THEN PROCexit:ENDPROC
 1170IF ACTION=3 THEN PROCchaniter:ENDPROC
 1180IF ACTION=4 THEN PROCrepos:ENDPROC
 1190ENDPROC
 1200:
 1210DEFPROCresize
 1220*SCREENSAVE screen
 1230MODE 15
 1240REPEAT
 1250REPEAT
 1260INPUT"X Screen Width (1-1024)";xpix
 1270IF xpix<0 OR xpix>1024 THEN PRINT"Out of range!"':UNTIL FALSE
 1280UNTIL TRUE
 1290REPEAT
 1300INPUT"X Screen Width (1-1024)";ypix
 1310IF ypix<0 OR ypix>1024 THEN PRINT"Out of range!"':UNTIL FALSE
 1320UNTIL TRUE
 1330PRINT"Resize future plots to ";xpix;" X ";ypix;" ? (Y/N)"
 1340PROCask
 1350UNTIL ans=TRUE
 1360*SCREENLOAD screen
 1370MOUSE ON
 1380ENDPROC
 1390:
 1400DEFPROCcolcycle
 1410*SCREENSAVE screen
 1420speed=100:cno=0
 1430tn=TIME+speed
 1440REPEAT
 1450IF TIME>=tn THEN PROCcycle
 1460UNTIL INKEY(-1)
 1470*<Obey$Dir>.!Palette
 1480*SCREENLOAD screen
 1490ENDPROC
 1500:
 1510DEFPROCcycle
 1520tn=TIME+speed
 1530cno=(cno+1) AND 127
 1540FORc=0TOmaxiters
 1550VDU 19,c,c+cno,0;0;
 1560NEXT
 1570ENDPROC
 1580:
 1590DEFPROCexit
 1600*SCREENSAVE screen
 1610MODE 15
 1620PRINT"Quit: Are you sure? (Y/N)"
 1630PROCask
 1640TERMINATE=ans
 1650IF ans=TRUE THEN PRINT"Exit task? (Y/N)":PROCask:IF ans=TRUE THEN ACTION=2 ELSE ACTION=1
 1660*SCREENLOAD screen
 1670MOUSE ON
 1680ENDPROC
 1690:
 1700DEFPROCchaniter
 1710*SCREENSAVE screen
 1720MODE 15
 1730PRINT"Maximum re-iterations at current:";maxiters'
 1740REPEAT
 1750INPUT"New maximum (1-127)";maxiters
 1760IF maxiters<1 OR maxiters>127 THEN PRINT"Out of Range":UNTIL FALSE
 1770UNTIL TRUE
 1780*SCREENLOAD screen
 1790MOUSE ON
 1800ENDPROC
 1810:
 1820DEFPROCask
 1830REPEAT
 1840K$=GET$
 1850IF K$="Y" OR K$="y" THEN ans=TRUE:UNTIL TRUE:ENDPROC
 1860IF K$="N" OR K$="n" THEN ans=FALSE:UNTIL TRUE:ENDPROC
 1870UNTIL FALSE
 1880ENDPROC
 1890:
 1900DEFPROCrepos
 1910*SCREENSAVE screen
 1920MODE 15
 1930PRINT"Reposition MandelPlot ? (Y/N)":PROCask
 1940IF ans=TRUE THEN TERMINATE=TRUE:ACTION=3:ENDPROC
 1950*SCREENLOAD screen
 1960MOUSE ON
 1970ENDPROC
 1980:
 1990DEFPROCreposac
 2000INPUT''"X Minimum";XMIN
 2010INPUT"X Maximum";XMAX
 2020INPUT'"Y Minimum";YMIN
 2030INPUT"Y Maximum";YMAX
 2040*SCREENLOAD screen
 2050MOUSE ON
 2060ACTION=FALSE:TERMINATE=FALSE
 2070ENDPROC


� 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

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .