X-Received: by 2002:ac8:744a:: with SMTP id h10mr20811103qtr.241.1595177363845; Sun, 19 Jul 2020 09:49:23 -0700 (PDT)
X-Received: by 2002:a4a:c213:: with SMTP id z19mr16456358oop.46.1595177363549; Sun, 19 Jul 2020 09:49:23 -0700 (PDT)
Path: csiph.com!xmission!news.snarked.org!border2.nntp.dca1.giganews.com!nntp.giganews.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.basic.misc
Date: Sun, 19 Jul 2020 09:49:23 -0700 (PDT)
In-Reply-To: <7b11c14d-4220-49d2-b805-ac0bdd2b283c@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: google-groups.googlegroups.com; posting-host=212.15.178.7; posting-account=I45LqgoAAACHT0scPJ6lEWuz8HiOs61n
NNTP-Posting-Host: 212.15.178.7
References: <7b11c14d-4220-49d2-b805-ac0bdd2b283c@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <ddb58df6-39de-415d-b421-68fa2ac83e23o@googlegroups.com>
Subject: Re: micro(A) REPL
From: Aston Goldsmith <aston.goldsmith@gmail.com>
Injection-Date: Sun, 19 Jul 2020 16:49:23 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
Lines: 48
Xref: csiph.com comp.lang.basic.misc:486

On Monday, 18 May 2020 13:30:11 UTC+2, Aston Goldsmith  wrote:
> Posts: 150
> View Profile  AurelSoft  Email  Personal Message (Online)
>=20
> micro(A) Interpreter
> =C2=AB Reply #38 on: May 17, 2020, 11:02:02 PM =C2=BB
>=20
> REP test finished:
>=20
> varStr a,b,c : varNum d,e,f
>  d=3D625 : e=3D25.1 : f =3D d/e : print 10,10,f: print 50,10,"..numeric E=
xpr"
>  a=3D "aurel"
>  b=3D " micro(A)"          =20
>  c=3Da+b
> print 10,30, c : print 150,30,"..string expr OK!"

nmandelbrot_test - micro(A)
varnum px, py, i, sx, sy, xx, xy,cr,cg,cb
varnum vy, pyy , w , h , hh , x, y , max     =20
max=3D15 : w =3D 640 : h =3D 480=20
py=3D0 : px=3D0 : wcolor 0,0,0=20

while py < h
px=3D0
  while px < 480
      sy =3D (py-240)/150=20
      sx =3D (px-320)/150
    =20
i =3D 0 : x=3D0 : y=3D0
=20
xy =3D x*x + y*y
while i < max & xy < 4 =20
        xx =3D x*x - y*y + sx + 0.1
        y =3D 2 * x * y + sy
        x =3D xx=20
       cr=3D220+(i*x): cg=3D220+(i*y): cb=3D230+(i*xy)
       fcolor cr,cg,cb
       pset px,py=20
 i=3Di+1=20
wend
=20
    px =3D px + 1
wend
swap
py =3D py + 2
wend
 ew: