RosettaCodeData/Task/Mandelbrot-set/Applesoft-BASIC/mandelbrot-set-2.basic

4 lines
78 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
150 FOR XS = 0 TO 279
301 C = (C - INT(C/2)*2)*3
310 HCOLOR = C: HPLOT XS, YS