Home » Personal collection » Commodore disks » disk44a_mandelbrot.d64 » mandelplot
mandelplot
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 » Commodore disks » disk44a_mandelbrot.d64 |
| Filename: | mandelplot |
| Read OK: | ✔ |
| File size: | 02FF bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
File contents
10 REM MANDELPLOT
20 REM CODED BY DOMINIC FORD
30 REM
40 POKE55,0:POKE56,14:XM=-2:YM=-2:XX=2:YX=2:SYS4096:HN=7897:HF=7897
50 F=PEEK(2):ONF+1GOTO100,200,300,400
60 SYSPEEK(251)+PEEK(252)*256
100 END
300 XN=(PEEK(53256)+(PEEK(53264)AND16)*16-64)/256*(XX-XM)+XM
310 XX=(PEEK(53258)+(PEEK(53264)AND32)*8-40)/256*(XX-XM)+XM
320 YN=(PEEK(53257)-50)/200*(YX-YM)+YM:YX=(PEEK(53261)-29)/200*(YX-YM)+YM:GOTO330
330 XM=XN:YM=YN:V=XM:M=16392:GOSUB1000:V=(XX-XM)/256:M=M+8:GOSUB1000:M=M+8:V=YM
340 GOSUB1000:M=M+8:V=(YX-YM)/200:GOSUB1000:GOTO60
400 XN=(PEEK(53256)+(PEEK(53264)AND16)*16-64)/256*(XX-XM)+XM
410 XX=(PEEK(53258)+(PEEK(53264)AND32)*8-40)/256*(XX-XM)+XM
420 YN=(PEEK(53257)-50)/200*(YX-YM)+YM:YX=(PEEK(53261)-29)/200*(YX-YM)+YM:GOTO330
1000 POKEM,0:V$=STR$(V/100):IFV<0THEN1050
1010 FORB=1TO7:POKEB+M,VAL(MID$(V$,B*2+1,1))*16+VAL(MID$(V$,B*2+2,1)):NEXT:RETURN
1050 V$=STR$(ABS(100+V)/100):POKEM,153:GOTO1010
� MANDELPLOT . � CODED BY DOMINIC FORD 4 � q( �55,0:�56,14:XM��2:YM��2:XX�2:YX�2:�4096:HN�7897:HF�7897 �2 F��(2):�F�1�100,200,300,400 �< ��(251)��(252)�256 �d � �,XN�(�(53256)�(�(53264)�16)�16�64)�256�(XX�XM)�XM 6XX�(�(53258)�(�(53264)�32)�8�40)�256�(XX�XM)�XM ` @YN�(�(53257)�50)�200�(YX�YM)�YM:YX�(�(53261)�29)�200�(YX�YM)�YM:�330 � JXM�XN:YM�YN:V�XM:M�16392:�1000:V�(XX�XM)�256:M�M�8:�1000:M�M�8:V�YM � T�1000:M�M�8:V�(YX�YM)�200:�1000:�60 �XN�(�(53256)�(�(53264)�16)�16�64)�256�(XX�XM)�XM 9 �XX�(�(53258)�(�(53264)�32)�8�40)�256�(XX�XM)�XM � �YN�(�(53257)�50)�200�(YX�YM)�YM:YX�(�(53261)�29)�200�(YX�YM)�YM:�330 � ��M,0:V$��(V�100):�V�0�1050 � ��B�1�7:�B�M,�(�(V$,B�2�1,1))�16��(�(V$,B�2�2,1)):�:� � V$��(�(100�V)�100):�M,153:�1010
RHJ@. mandelplot@.HT@. coded by dominic ford@4H.@.@QH(@.55,0:.56,14:xm..2:ym..2:xx.2:yx.2:.4096:hn.7897:hf.7897@.H2@f..(2):.f.1.100,200,300,400@.H<@..(251)..(252).256@.HD@.@.H,Axn.(.(53256).(.(53264).16).16.64).256.(xx.xm).xm@WI6Axx.(.(53258).(.(53264).32).8.40).256.(xx.xm).xm@.I@Ayn.(.(53257).50).200.(yx.ym).ym:yx.(.(53261).29).200.(yx.ym).ym:.330@.IjAxm.xn:ym.yn:v.xm:m.16392:.1000:v.(xx.xm).256:m.m.8:.1000:m.m.8:v.ym@.ItA.1000:m.m.8:v.(yx.ym).200:.1000:.60@EJ.Axn.(.(53256).(.(53264).16).16.64).256.(xx.xm).xm@9J.Axx.(.(53258).(.(53264).32).8.40).256.(xx.xm).xm@.J.Ayn.(.(53257).50).200.(yx.ym).ym:yx.(.(53261).29).200.(yx.ym).ym:.330@.J.C.m,0:v$..(v.100):.v.0.1050@.J.C.b.1.7:.b.m,.(.(v$,b.2.1,1)).16..(.(v$,b.2.2,1)):.:.@.JZDv$..(.(100.v).100):.m,153:.1010@@@
00000000 12 08 0a 00 8f 20 4d 41 4e 44 45 4c 50 4c 4f 54 |..... MANDELPLOT| 00000010 00 2e 08 14 00 8f 20 43 4f 44 45 44 20 42 59 20 |...... CODED BY | 00000020 44 4f 4d 49 4e 49 43 20 46 4f 52 44 00 34 08 1e |DOMINIC FORD.4..| 00000030 00 8f 00 71 08 28 00 97 35 35 2c 30 3a 97 35 36 |...q.(..55,0:.56| 00000040 2c 31 34 3a 58 4d b2 ab 32 3a 59 4d b2 ab 32 3a |,14:XM..2:YM..2:| 00000050 58 58 b2 32 3a 59 58 b2 32 3a 9e 34 30 39 36 3a |XX.2:YX.2:.4096:| 00000060 48 4e b2 37 38 39 37 3a 48 46 b2 37 38 39 37 00 |HN.7897:HF.7897.| 00000070 91 08 32 00 46 b2 c2 28 32 29 3a 91 46 aa 31 89 |..2.F..(2):.F.1.| 00000080 31 30 30 2c 32 30 30 2c 33 30 30 2c 34 30 30 00 |100,200,300,400.| 00000090 a8 08 3c 00 9e c2 28 32 35 31 29 aa c2 28 32 35 |..<...(251)..(25| 000000a0 32 29 ac 32 35 36 00 ae 08 64 00 80 00 e3 08 2c |2).256...d.....,| 000000b0 01 58 4e b2 28 c2 28 35 33 32 35 36 29 aa 28 c2 |.XN.(.(53256).(.| 000000c0 28 35 33 32 36 34 29 af 31 36 29 ac 31 36 ab 36 |(53264).16).16.6| 000000d0 34 29 ad 32 35 36 ac 28 58 58 ab 58 4d 29 aa 58 |4).256.(XX.XM).X| 000000e0 4d 00 17 09 36 01 58 58 b2 28 c2 28 35 33 32 35 |M...6.XX.(.(5325| 000000f0 38 29 aa 28 c2 28 35 33 32 36 34 29 af 33 32 29 |8).(.(53264).32)| 00000100 ac 38 ab 34 30 29 ad 32 35 36 ac 28 58 58 ab 58 |.8.40).256.(XX.X| 00000110 4d 29 aa 58 4d 00 60 09 40 01 59 4e b2 28 c2 28 |M).XM.`.@.YN.(.(| 00000120 35 33 32 35 37 29 ab 35 30 29 ad 32 30 30 ac 28 |53257).50).200.(| 00000130 59 58 ab 59 4d 29 aa 59 4d 3a 59 58 b2 28 c2 28 |YX.YM).YM:YX.(.(| 00000140 35 33 32 36 31 29 ab 32 39 29 ad 32 30 30 ac 28 |53261).29).200.(| 00000150 59 58 ab 59 4d 29 aa 59 4d 3a 89 33 33 30 00 a8 |YX.YM).YM:.330..| 00000160 09 4a 01 58 4d b2 58 4e 3a 59 4d b2 59 4e 3a 56 |.J.XM.XN:YM.YN:V| 00000170 b2 58 4d 3a 4d b2 31 36 33 39 32 3a 8d 31 30 30 |.XM:M.16392:.100| 00000180 30 3a 56 b2 28 58 58 ab 58 4d 29 ad 32 35 36 3a |0:V.(XX.XM).256:| 00000190 4d b2 4d aa 38 3a 8d 31 30 30 30 3a 4d b2 4d aa |M.M.8:.1000:M.M.| 000001a0 38 3a 56 b2 59 4d 00 d0 09 54 01 8d 31 30 30 30 |8:V.YM...T..1000| 000001b0 3a 4d b2 4d aa 38 3a 56 b2 28 59 58 ab 59 4d 29 |:M.M.8:V.(YX.YM)| 000001c0 ad 32 30 30 3a 8d 31 30 30 30 3a 89 36 30 00 05 |.200:.1000:.60..| 000001d0 0a 90 01 58 4e b2 28 c2 28 35 33 32 35 36 29 aa |...XN.(.(53256).| 000001e0 28 c2 28 35 33 32 36 34 29 af 31 36 29 ac 31 36 |(.(53264).16).16| 000001f0 ab 36 34 29 ad 32 35 36 ac 28 58 58 ab 58 4d 29 |.64).256.(XX.XM)| 00000200 aa 58 4d 00 39 0a 9a 01 58 58 b2 28 c2 28 35 33 |.XM.9...XX.(.(53| 00000210 32 35 38 29 aa 28 c2 28 35 33 32 36 34 29 af 33 |258).(.(53264).3| 00000220 32 29 ac 38 ab 34 30 29 ad 32 35 36 ac 28 58 58 |2).8.40).256.(XX| 00000230 ab 58 4d 29 aa 58 4d 00 82 0a a4 01 59 4e b2 28 |.XM).XM.....YN.(| 00000240 c2 28 35 33 32 35 37 29 ab 35 30 29 ad 32 30 30 |.(53257).50).200| 00000250 ac 28 59 58 ab 59 4d 29 aa 59 4d 3a 59 58 b2 28 |.(YX.YM).YM:YX.(| 00000260 c2 28 35 33 32 36 31 29 ab 32 39 29 ad 32 30 30 |.(53261).29).200| 00000270 ac 28 59 58 ab 59 4d 29 aa 59 4d 3a 89 33 33 30 |.(YX.YM).YM:.330| 00000280 00 a1 0a e8 03 97 4d 2c 30 3a 56 24 b2 c4 28 56 |......M,0:V$..(V| 00000290 ad 31 30 30 29 3a 8b 56 b3 30 a7 31 30 35 30 00 |.100):.V.0.1050.| 000002a0 da 0a f2 03 81 42 b2 31 a4 37 3a 97 42 aa 4d 2c |.....B.1.7:.B.M,| 000002b0 c5 28 ca 28 56 24 2c 42 ac 32 aa 31 2c 31 29 29 |.(.(V$,B.2.1,1))| 000002c0 ac 31 36 aa c5 28 ca 28 56 24 2c 42 ac 32 aa 32 |.16..(.(V$,B.2.2| 000002d0 2c 31 29 29 3a 82 3a 8e 00 fe 0a 1a 04 56 24 b2 |,1)):.:......V$.| 000002e0 c4 28 b6 28 31 30 30 aa 56 29 ad 31 30 30 29 3a |.(.(100.V).100):| 000002f0 97 4d 2c 31 35 33 3a 89 31 30 31 30 00 00 00 |.M,153:.1010...| 000002ff
.