From 01d8b4e1b2ccaa26837ea95bec59ca4c608860cb Mon Sep 17 00:00:00 2001
From: Brad Grantham <grantham@plunk.org>
Date: Fri, 18 Nov 2016 23:25:22 -0800
Subject: [PATCH] HIRES fractal

---
 FRACTAL.A | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 FRACTAL.A

diff --git a/FRACTAL.A b/FRACTAL.A
new file mode 100644
index 0000000..5dc6381
--- /dev/null
+++ b/FRACTAL.A
@@ -0,0 +1,21 @@
+10  HGR : POKE  - 16302,0
+11 MX = 280
+12 MY = 192
+20  FOR X = 0 TO MX - 1
+30 CX = X / MX * 3 - 2
+40  FOR Y = 0 TO MY / 2 - 1
+50 CY = Y / MY * 3 - 1.5
+60 C = 0
+70 XX = 0:YY = 0
+80  IF XX * XX + YY * YY > 4 OR C > 15 THEN 200
+90 OX = XX
+100 XX = XX * XX - YY * YY + CX
+110 YY = 2 * OX * YY + CY
+120 C = C + 1
+130  GOTO 80
+200  IF C > 7 THEN C = C - 8: GOTO 200
+205  HCOLOR= C
+210  HPLOT X,Y
+215  HPLOT X,MY - 1 - Y
+220  NEXT Y
+230  NEXT X