From ea6e31c58b2f39df57e675591bc80e2285184b2d Mon Sep 17 00:00:00 2001
From: Wayne Warthen <wwarthen@gmail.com>
Date: Fri, 11 Oct 2024 15:36:14 -0700
Subject: [PATCH] Add MBASIC Sample App ASCIIART

---
 Source/Images/Common/All/ASCIIART.BAS | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 Source/Images/Common/All/ASCIIART.BAS

diff --git a/Source/Images/Common/All/ASCIIART.BAS b/Source/Images/Common/All/ASCIIART.BAS
new file mode 100644
index 00000000..c1ecec7c
--- /dev/null
+++ b/Source/Images/Common/All/ASCIIART.BAS
@@ -0,0 +1,20 @@
+10 for y=-12 to 12
+20 for x=-39 to 39
+30 ca=x*0.0458
+40 cb=y*0.08333
+50 a=ca
+60 b=cb
+70 for i=0 to 15
+80 t=a*a-b*b+ca
+90 b=2*a*b+cb
+100 a=t
+110 if (a*a+b*b)>4 then goto 200
+120 next i
+130 print " ";
+140 goto 210
+200 if i>9 then i=i+7
+205 print chr$(48+i);
+210 next x
+220 print
+230 next y
+999 system