Home » Personal collection » Commodore disks » disk50a2_progs1.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 » disk50a2_progs1.d64 |
Filename: | mandlebrot |
Read OK: | ✔ |
File size: | 0479 bytes |
Load address: | 0801 |
Exec address: | 0000 |
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:FORX=55296TO56295:POKEX,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:A=0:GOTO1050 100 FOR J=X TO X+7999 105 POKE J,0 110 NEXT 115 FORR=16TO0STEP-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 �<