Home » Personal collection » Acorn hard disk » files » DomFord » OldMand/MANDEL3
OldMand/MANDEL3
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 » files » DomFord |
Filename: | OldMand/MANDEL3 |
Read OK: | ✔ |
File size: | 01F9 bytes |
Load address: | 0000 |
Exec address: | 0000 |
Duplicates
There are 3 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Archimedes » IJJOBS21.ADF » Server1/OldMand/MANDEL3
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_IJJOBS21.adf » Server1/OldMand/MANDEL3
- Personal collection » Acorn hard disk » files » DomFord » OldMand/MANDEL3
- Personal collection » Acorn hard disk » misc » dcfprogs » Server1/OldMand/MANDEL3
File contents
10ON ERROR GOTO 130 20INPUTxpix,ypix 25xpix=xpix*2:ypix=ypix*2 30XMIN=-2:XMAX=2:YMIN=-2:YMAX=2:X3=(XMAX-XMIN)/xpix 40X4=(YMAX-YMIN)/ypix 50FORX=0TOxpix STEP8 60FORY=0TOypix STEP8 70PROCsetp 72DRAWX+7,Y:DRAWX+7,Y+7:DRAWX,Y+7:DRAWX,Y+4:DRAWX+7,Y+4 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
� � � �tB@ �xpix,ypix xpix=xpix*2:ypix=ypix*2 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 H*�X+7,Y:�X+7,Y+7:�X,Y+7:�X,Y+4:�X+7,Y+4 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 74 42 40 0d 00 |..... . . .tB@..| 00000010 14 0e e8 78 70 69 78 2c 79 70 69 78 0d 00 19 1b |...xpix,ypix....| 00000020 78 70 69 78 3d 78 70 69 78 2a 32 3a 79 70 69 78 |xpix=xpix*2:ypix| 00000030 3d 79 70 69 78 2a 32 0d 00 1e 35 58 4d 49 4e 3d |=ypix*2...5XMIN=| 00000040 2d 32 3a 58 4d 41 58 3d 32 3a 59 4d 49 4e 3d 2d |-2:XMAX=2:YMIN=-| 00000050 32 3a 59 4d 41 58 3d 32 3a 58 33 3d 28 58 4d 41 |2:YMAX=2:X3=(XMA| 00000060 58 2d 58 4d 49 4e 29 2f 78 70 69 78 0d 00 28 17 |X-XMIN)/xpix..(.| 00000070 58 34 3d 28 59 4d 41 58 2d 59 4d 49 4e 29 2f 79 |X4=(YMAX-YMIN)/y| 00000080 70 69 78 0d 00 32 10 e3 58 3d 30 b8 78 70 69 78 |pix..2..X=0.xpix| 00000090 20 88 38 0d 00 3c 10 e3 59 3d 30 b8 79 70 69 78 | .8..<..Y=0.ypix| 000000a0 20 88 38 0d 00 46 09 f2 73 65 74 70 0d 00 48 2a | .8..F..setp..H*| 000000b0 df 58 2b 37 2c 59 3a df 58 2b 37 2c 59 2b 37 3a |.X+7,Y:.X+7,Y+7:| 000000c0 df 58 2c 59 2b 37 3a df 58 2c 59 2b 34 3a df 58 |.X,Y+7:.X,Y+4:.X| 000000d0 2b 37 2c 59 2b 34 0d 00 50 06 ed 2c 0d 00 5a 10 |+7,Y+4..P..,..Z.| 000000e0 e3 58 3d 30 b8 78 70 69 78 20 88 32 0d 00 64 10 |.X=0.xpix .2..d.| 000000f0 e3 59 3d 30 b8 79 70 69 78 20 88 32 0d 00 6e 09 |.Y=0.ypix .2..n.| 00000100 f2 73 65 74 70 0d 00 78 06 ed 2c 0d 00 82 09 ee |.setp..x..,.....| 00000110 20 85 20 87 0d 00 8c 08 2a 52 41 4d 0d 00 96 15 | . .....*RAM....| 00000120 ff 22 53 43 52 45 45 4e 53 41 56 45 20 53 43 52 |."SCREENSAVE SCR| 00000130 22 0d 00 a0 05 3a 0d 00 aa 0a dd f2 73 65 74 70 |"....:......setp| 00000140 0d 00 b4 12 58 42 3d 58 4d 49 4e 2b 28 58 33 2a |....XB=XMIN+(X3*| 00000150 58 29 0d 00 be 12 59 42 3d 59 4d 49 4e 2b 28 58 |X)....YB=YMIN+(X| 00000160 34 2a 59 29 0d 00 c8 11 43 3d 30 3a 55 3d 58 42 |4*Y)....C=0:U=XB| 00000170 3a 56 3d 59 42 0d 00 d2 05 f5 0d 00 dc 11 55 53 |:V=YB.........US| 00000180 3d 55 5e 32 3a 56 53 3d 56 5e 32 0d 00 e6 0f 55 |=U^2:VS=V^2....U| 00000190 4e 3d 55 53 2d 56 53 2b 58 42 0d 00 f0 0f 56 4e |N=US-VS+XB....VN| 000001a0 3d 32 2a 55 2a 56 2b 59 42 0d 00 fa 0d 55 3d 55 |=2*U*V+YB....U=U| 000001b0 4e 3a 56 3d 56 4e 0d 01 04 09 43 3d 43 2b 31 0d |N:V=VN....C=C+1.| 000001c0 01 0e 14 fd 20 55 53 2b 56 53 3e 34 20 84 20 43 |.... US+VS>4 . C| 000001d0 3d 31 30 0d 01 18 0e e7 43 3d 32 35 35 8c 43 3d |=10.....C=255.C=| 000001e0 30 0d 01 22 08 e6 30 2c 43 0d 01 2c 09 c8 92 58 |0.."..0,C..,...X| 000001f0 2c 59 0d 01 36 05 e1 0d ff |,Y..6....| 000001f9