Duplicates

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

• Personal collection » Acorn ADFS disks » Archimedes » IJJOBS21.ADF » Server1/OldMand/MANDEL2
• Personal collection » Acorn ADFS disks » Greaseweazled » adfs_IJJOBS21.adf » Server1/OldMand/MANDEL2
• Personal collection » Acorn hard disk » files » DomFord » OldMand/MANDEL2
• Personal collection » Acorn hard disk » misc » dcfprogs » Server1/OldMand/MANDEL2

File contents

• BASIC
• Preview
• Hex Dump

   10ON ERROR GOTO 195
   20INPUTxpix,ypix
   30XMIN=-2:XMAX=2:YMIN=-2:YMAX=2:X3=(XMAX-XMIN)/xpix
   40X4=(YMAX-YMIN)/ypix
   50FORX=0TOxpix STEP8
   60FORY=0TOypix STEP8
   70PROCsetp
   80NEXT,
   90FORX=0TOxpix STEP2
  100FORY=0TOypix STEP2
  110PROCsetp
  120NEXT,
  130ON ERROR OFF
  140*RAM
  150OSCLI"SCREENSAVE SCR"
  160:
  170DEFPROCsetp
  180XB=XMIN+(X3*X)
  190YB=YMIN+(X4*Y)
  200C=0:U=XB:V=YB
  210REPEAT
  220US=U^2:VS=V^2
  230UN=US-VS+XB
  240VN=2*U*V+YB
  250U=UN:V=VN
  260C=C+1
  270UNTIL US+VS>4 OR C=10
  280IFC=255THENC=0
  290GCOL0,C
  300POINTX,Y
  310ENDPROC

� � � �dC@
�xpix,ypix
5XMIN=-2:XMAX=2:YMIN=-2:YMAX=2:X3=(XMAX-XMIN)/xpix
(X4=(YMAX-YMIN)/ypix
2�X=0�xpix �8
<�Y=0�ypix �8
F	�setp
P�,
Z�X=0�xpix �2
d�Y=0�ypix �2
n	�setp
x�,
�	� � �
�*RAM
��"SCREENSAVE SCR"
�:
�
��setp
�XB=XMIN+(X3*X)
�YB=YMIN+(X4*Y)
�C=0:U=XB:V=YB
��
�US=U^2:VS=V^2
�UN=US-VS+XB
�VN=2*U*V+YB
�
U=UN:V=VN

	C=C+1

� US+VS>4 � C=10

�C=255�C=0

"�0,C

,	ȒX,Y

6�
�

00000000  0d 00 0a 0e ee 20 85 20  e5 20 8d 64 43 40 0d 00  |..... . . .dC@..|
00000010  14 0e e8 78 70 69 78 2c  79 70 69 78 0d 00 1e 35  |...xpix,ypix...5|
00000020  58 4d 49 4e 3d 2d 32 3a  58 4d 41 58 3d 32 3a 59  |XMIN=-2:XMAX=2:Y|
00000030  4d 49 4e 3d 2d 32 3a 59  4d 41 58 3d 32 3a 58 33  |MIN=-2:YMAX=2:X3|
00000040  3d 28 58 4d 41 58 2d 58  4d 49 4e 29 2f 78 70 69  |=(XMAX-XMIN)/xpi|
00000050  78 0d 00 28 17 58 34 3d  28 59 4d 41 58 2d 59 4d  |x..(.X4=(YMAX-YM|
00000060  49 4e 29 2f 79 70 69 78  0d 00 32 10 e3 58 3d 30  |IN)/ypix..2..X=0|
00000070  b8 78 70 69 78 20 88 38  0d 00 3c 10 e3 59 3d 30  |.xpix .8..<..Y=0|
00000080  b8 79 70 69 78 20 88 38  0d 00 46 09 f2 73 65 74  |.ypix .8..F..set|
00000090  70 0d 00 50 06 ed 2c 0d  00 5a 10 e3 58 3d 30 b8  |p..P..,..Z..X=0.|
000000a0  78 70 69 78 20 88 32 0d  00 64 10 e3 59 3d 30 b8  |xpix .2..d..Y=0.|
000000b0  79 70 69 78 20 88 32 0d  00 6e 09 f2 73 65 74 70  |ypix .2..n..setp|
000000c0  0d 00 78 06 ed 2c 0d 00  82 09 ee 20 85 20 87 0d  |..x..,..... . ..|
000000d0  00 8c 08 2a 52 41 4d 0d  00 96 15 ff 22 53 43 52  |...*RAM....."SCR|
000000e0  45 45 4e 53 41 56 45 20  53 43 52 22 0d 00 a0 05  |EENSAVE SCR"....|
000000f0  3a 0d 00 aa 0a dd f2 73  65 74 70 0d 00 b4 12 58  |:......setp....X|
00000100  42 3d 58 4d 49 4e 2b 28  58 33 2a 58 29 0d 00 be  |B=XMIN+(X3*X)...|
00000110  12 59 42 3d 59 4d 49 4e  2b 28 58 34 2a 59 29 0d  |.YB=YMIN+(X4*Y).|
00000120  00 c8 11 43 3d 30 3a 55  3d 58 42 3a 56 3d 59 42  |...C=0:U=XB:V=YB|
00000130  0d 00 d2 05 f5 0d 00 dc  11 55 53 3d 55 5e 32 3a  |.........US=U^2:|
00000140  56 53 3d 56 5e 32 0d 00  e6 0f 55 4e 3d 55 53 2d  |VS=V^2....UN=US-|
00000150  56 53 2b 58 42 0d 00 f0  0f 56 4e 3d 32 2a 55 2a  |VS+XB....VN=2*U*|
00000160  56 2b 59 42 0d 00 fa 0d  55 3d 55 4e 3a 56 3d 56  |V+YB....U=UN:V=V|
00000170  4e 0d 01 04 09 43 3d 43  2b 31 0d 01 0e 14 fd 20  |N....C=C+1..... |
00000180  55 53 2b 56 53 3e 34 20  84 20 43 3d 31 30 0d 01  |US+VS>4 . C=10..|
00000190  18 0e e7 43 3d 32 35 35  8c 43 3d 30 0d 01 22 08  |...C=255.C=0..".|
000001a0  e6 30 2c 43 0d 01 2c 09  c8 92 58 2c 59 0d 01 36  |.0,C..,...X,Y..6|
000001b0  05 e1 0d ff                                       |....|
000001b4