BASIC variants ... found also ELKS (root, basic - nice ...)

[7alken]

hi, on the journey of investigating BASIC different possibilities on devices, (including PocketDOS on WinCE, but well, there is NETCF1sp3 for WinCE2, so drama ends - NETCF was my daily job back then, my own "retro")  I found also this neat ELKS thing ... and found even more recently that Alan Cox was involved ... must say, this online emulator is cool, fast ... enter "root" and "basic" ...; sadly I don't know if its because of my Android "smart keyboard" (retro, addiction) ITU-T keypad layout, it doesn't respond on mobile use ...  but it is instant ...

https://copy.sh/v86/?profile=elks
(also cd /bin, ls, nxdemo, nxtertis ...)

and they you find things like this )))
https://www.theregister.com/2023/10/06/elks_and_fuzix_tiny_unixes/?td=readmore

there is also another instant online QL-BASIC ...  (my favorite syntax, when compacted)
https://sqlux.theqlforum.com/
(try mode 8, mode 4, wtv, wmon ... defproc .. enddef)

cheers

P.

[7alken]

hi all, as Tadeusz is playing with that ASCII mandelbrot, I wanted to prepare exact this version with defacto hex chars output (realized later)) for use with only some integer-only basics and I played with it in QL QPC2, where I still don't get fully how to limit app max allowed window (its probably #1 windows size, so default channel for print (no explicit #) ... that's other thing, but here is journey where Lyra, (not me!) was modifying the asciiart basic mandelbrot to use partials instead of float coefficients (I totally ignored the algorithm for it, only later was curious about its history, how it works etc ... interesting, ya)

so chat around this all, few days ago - but I must still try to use at least simple code to model something around ASLIX, so excuse me for these distractions ))

https://chatgpt.com/share/68b6c8cf-9094-8000-81e0-add321f91945

result in sexy QL colors and integer only code, hope more generic ))

100  REM ~0.0458 , ~0.08333
110  S=1024 : XSTEP=47 : YSTEP=85 : TH=4*S
120  FOR y=-12 TO 12
130    cb = y*YSTEP
140    FOR x=-39 TO 39
150      ca = x*XSTEP : a = ca : b = cb
160      FOR i=0 TO 15
170        aa = (a*a)/S : bb = (b*b)/S : t  = aa - bb + ca
180        ab = (a*b)/S : b  = ab + ab + cb : a  = t
190        IF ((a*a)/S + (b*b)/S) > TH THEN GO TO 230
200      NEXT i
210      PRINT " ";
220      GO TO 250
230      IF i>9 THEN i=i+7
240      PRINT CHR$(48+i);
250    NEXT x
260    PRINT
270  NEXT y

[7alken]

plus, for those really curious about VMEX and "TYPED register file" support, brainstorming of several weeks/months back, sure, again with Lyra (only one head still alive here) ... )))
(its all still around 8/16bit retro mostly, heavily abusing also max SDRAM as local fast storage (having lithium nearby) as poor mans retro SSDs ...)
P.