Home » Personal collection » Commodore disks » disk44a_mandelbrot.d64 » mandlebrot
mandlebrot
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: | mandlebrot | 
| Read OK: | ✔ | 
| File size: | 0472 bytes | 
| Load address: | 0801 | 
| Exec address: | 0000 | 
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Commodore disks » disk44a_mandelbrot.d64 » mandlebrot
- Personal collection » Commodore disks » disk45a_galaxy64.d64 » mandlebrot
File contents
    40 S=16:B=3:C=8:SM=1024:XM=-.75:YM=-1.5:MX=2.25:MY=1.5:POKE53281,2
    42 XM=-2:MX=2:YM=-2:MY=2
    45 POKE53272,(PEEK(53272) AND 15) OR S
    50 POKE56578,PEEK(56578) OR 3
    55 POKE56576,(PEEK(56576) AND 252) ORB
    60 X=C*1024:H=INT(X/256):L=X-256*H
    65 POKE51,L:POKE52,H:FORCM=55296TO56295:POKECM,0:NEXT
    70 POKE55,L:POKE56,H:POKE53285,0
    75 POKE53272,(PEEK(53272) AND 241) ORC
    80 POKE53265,PEEK(53265) OR 32
    82 POKE53270,PEEK(53270) OR 16
    85 FOR J=SM TO SM+999
    90 POKEJ,126
    95 NEXT
   100 FOR J=X TO X+7999
   105 POKE J,0
   110 NEXT
   115 FORR=199TO0STEP-1:FORC=0TO319STEP2:CL=0:XB=XM+C*((MX-XM)/319)
   117 YB=YM+R*((MY-YM)/199):U=XB:V=YB:GOTO 125
   120 Y=U^2-V^2+XB:Z=2*U*V+YB:U=Y:V=Z
   125 IF U^2+V^2>4 THEN 135
   130 CL=CL+1:IFCL<=22THEN120
   135 POKE24577,CL:GOSUB1020:POKE24576,R:NEXT:NEXT
   175 GETK$:IFK$<>" "THEN175
   180 POKE53265,PEEK(53265) AND 223
   185 POKE53272,(PEEK(53272) AND 240) OR4
   190 STOP
  1000 BYTE=X+7687-320*INT(R/8)-(RAND7)+INT(C/8)*8
  1005 BIT=7-(CAND7)
  1010 POKE BYTE,PEEK(BYTE) OR 2^BIT
  1015 RETURN
  1020 REMCB=INT(CL/4)
  1022 REMIFCB=0THENCL=2
  1025 REMIFCB=1THENCL=0
  1027 REMIFCB=2THENCL=3
  1028 REMIFCB=3THENCL=1
  1030 IF (CL AND 2)=2 THEN GOSUB1000
  1035 C=C+1:IF (CL AND 1)=1 THEN GOSUB1000
  1040 C=C-1:RETURN
  1050 POKE820,(A AND 3):POKE821,((A+1) AND 3):POKE822,((A+2) AND 3)
  1060 POKE823,((A+3) AND 3):SYS49152
  1070 A=A+1:FORR=0TOPEEK(824):NEXT:GOTO 1050
  9876 FORJ=8*1024 TO 8*1024+7999:POKEJ,INT(RND(1)*255):NEXT
                B( S�16:B�3:C�8:SM�1024:XM��.75:YM��1.5:MX�2.25:MY�1.5:�53281,2 \* XM��2:MX�2:YM��2:MY�2 {- �53272,(�(53272) � 15) � S �2 �56578,�(56578) � 3 �7 �56576,(�(56576) � 252) �B �<