• micro(A) REPL

    From Aston Goldsmith@21:1/5 to All on Mon May 18 04:30:10 2020

    Posts: 150
    View Profile AurelSoft Email Personal Message (Online)

    micro(A) Interpreter
    « Reply #38 on: May 17, 2020, 11:02:02 PM »

    REP test finished:

    varStr a,b,c : varNum d,e,f
    d=625 : e=25.1 : f = d/e : print 10,10,f: print 50,10,"..numeric Expr"
    a= "aurel"
    b= " micro(A)"
    c=a+b
    print 10,30, c : print 150,30,"..string expr OK!"

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Aston Goldsmith@21:1/5 to Aston Goldsmith on Sun Jul 19 09:49:23 2020
    On Monday, 18 May 2020 13:30:11 UTC+2, Aston Goldsmith wrote:
    Posts: 150
    View Profile AurelSoft Email Personal Message (Online)

    micro(A) Interpreter
    « Reply #38 on: May 17, 2020, 11:02:02 PM »

    REP test finished:

    varStr a,b,c : varNum d,e,f
    d=625 : e=25.1 : f = d/e : print 10,10,f: print 50,10,"..numeric Expr"
    a= "aurel"
    b= " micro(A)"
    c=a+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
    max=15 : w = 640 : h = 480
    py=0 : px=0 : wcolor 0,0,0

    while py < h
    px=0
    while px < 480
    sy = (py-240)/150
    sx = (px-320)/150

    i = 0 : x=0 : y=0

    xy = x*x + y*y
    while i < max & xy < 4
    xx = x*x - y*y + sx + 0.1
    y = 2 * x * y + sy
    x = xx
    cr=220+(i*x): cg=220+(i*y): cb=230+(i*xy)
    fcolor cr,cg,cb
    pset px,py
    i=i+1
    wend

    px = px + 1
    wend
    swap
    py = py + 2
    wend
    ew:

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)