The L-BASIC Interpreter

[Aurel]

Dav

Your coditor ...oups code editor is great and i was using it before I
modify my own to work with qb64...
so i hope that you will show us your collection

[luke]

It's been a year, but I'm finally calling it 0.1.0 - see attachment. I've updated the original post with the new supported commands, but importantly this version is capable of running STxAxTIC's sxript language!

This version can create SUBs and FUNCTIONs, with the catch that if you put the SUB/FUNCTION at the bottom of your program, you'll need a DECLARE SUB or DECLARE FUNCTION line at the top. Or, just put the SUB itself at the top of your program (that's perfectly legal in L-BASIC).

You can also have optional arguments! Example:

Code: [Select]

sub s(a, option b, option c)
    print "a = "; a;
    if option(b) then print "b = "; b;
    if option(c) then print "c = "; c;
    print
end sub

s 1
s 2, 3
s 2, 3, 4
s 2, , 4

Other working features include array resizing including _preserve, and DIM SHARED support.

[madscijr]

@luke I would love to see TI99/4A and TRS-80 BASIC interpreters :-)
The big trick for making my old TI programs work in QB64 would be replicating the sound commands. Which leads to my wishlist item for native ADSR waveform sound commands for QB64!

[luke]

Version 0.1.1 (file attached)!

I'm happy to report DECLARE SUB/FUNCTION lines are no longer needed. You can arrange your code however you want, so this is fine:

Code: [Select]

Sub s1
  s2
End Sub

s1

Sub s2
  Print "Hi"
End Sub
SELECT CASE is now implemented, including CASE IS and CASE x TO y forms.

$includes are handled, but unlike QB64 they should not go in a comment. The $ is the first character on the line, like with $checking or $screenhide in QB64.

This version is actually capable of running STxAxTIC's Sanctum 3D simulator with some very minor tweaks. Unfortunately it's rather slow - but a success nonetheless.

Full list of commands in the first post.

[bplus]

@luke Not able to get this to work:

Code: QB64: [Select]

1. ' test recursive sub on Luke Basic b+ 2022-01-30
2.  
3. recurs 1, 0, 0, 1
4.  
5. Sub recurs (a!, b!, c!, level%)
6.     If level% > 10 Then
7.         Exit Sub
8.     Else
9.         x! = a!
10.         y! = b! + a!
11.         z! = y! + c!
12.         Print "Level:"; level%
13.         recurs x!, y!, z!, level% + 1
14.         Print "Level:"; level%; " x, y, z:"; x!; y!; z!
15.     End If
16. End Sub
17.  
18.  

 

[jack]

hi bplus
you can make it work by changing line 11 to call recurs (x!, y!, z!, level% + 1)
but granted it's different than QB64

[bplus]

Thanks @jack that got it, same output as QB64.

[Phlashlite]

This is pretty amazing!

[luke]

Well that's a rather embarrassing mistake to have made! A small typo meant it thought Subs were Functions for the purposes of setting a return value. Here's a fixed version 0.1.2, which also includes a bunch of new commands (notably mouse support) and preliminary support for returning arrays from functions.