Sorry but where i can find sources of Hobbybasic?

filox wrote:

Sorry but where i can find sources of Hobbybasic?

Have a look at the first post in this thread.

Hi filox, the source is not available, at least not yet. Hobby Basic has still some way to go. I want to extend the command list, find methods to make the intepreter faster, add features like user procedures with parameters and local variables and some other ideas i have. This is done somewhat slowly, the only days i can steal some time to work are the weekends.

    !  SPRITE.BAS
    !  HOBBY BASIC INTERPRETER

    BLUE = 1

    DIM ROBOT[15,10]

    PATH$ = PATH('DATA\BIN\ROBOT1.HB')

    LOAD PATH$, ROBOT[]
    IF V0 = -1 THEN ALERT 10H,'NOT FOUND',PATH$ : END

    VIEW 11
    SCREEN 80,25,300
    CURSOR 0,0
    COLOR 0,0
    CLS


LOOP#

    X = RND() % 65
    Y = RND() % 15

    GRAB X,Y,15,10,ROBOT[],2

    REPAINT X,Y,15,10,BLUE,(RND()%15)+1

    WAIT 20

    IF ~KEY(27) THEN GOTO LOOP

    CLS : END
    

    !  Instructions:
    !  Select a character from the right panel
    !  Press and hold the left mouse button to draw
    !  Hold spacebar and move mouse to draw
    !  Right-click and drag the mouse to select area
    !  Move the selected area with the left mouse button
    !  Single right-click on selected area to unselect
    !  Single left-click on selected area to clear
    !  Double-click paste copies of last selected area
    !  Use the up-down arrow keys to select frame
    !  Press F11 to export loader script
    !  Press F12 to insert text at cursor position
    !  Press Q to quit program

    !  Enable the option "Use Legacy Console" in Windows 10
    !  Right-click on the application title bar and choose the Properties menu option
    !  Restart the console
    

This might be a limitation of the API - I don't know.

Also, an error in DRAW.BAS, line 336, changed to "if p > 269 then break", and it seems to work.

    if p > SIZE(charset[])-1 then break
    

I did find an error in the XONIX game. I was able to meet the edge at the same time as the red spot. This causes the area not to be filled until I completed another closing move. This typically is just a "one-off" error.

FOR %%G IN (.\EXAMPLES\*.BAS) DO (HB "%%G" -bind ".\BIN\%%~nG.EXE")    

Windows 10 might be to blame here as they try to push everyone to Powershell.

Putting this in a batch file will compile all the examples:

Code:

FOR %%G IN (.\EXAMPLES\*.BAS) DO (HB "%%G" -bind ".\BIN\%%~nG.EXE")    

...assuming the batch file is with HB.EXE and a directory .\BIN\ has been created. Change the double "%%" to a single "%" to run the command directly at the prompt.

    alert  (0x4|0x20),"","Do you want to compile all the examples?"
    if V0 = 6
        exec "if not exist BIN\NUL md BIN"
        exec "FOR %G IN (.\EXAMPLES\*.BAS) DO (HB ""%G"" -bind "".\BIN\%~nG.EXE"")"
    endif
    

    HB.exe https://sites.google.com/site/hobbybasicfiles/TEST.BAS     ! dead link
    

HB.exe https://sites.google.com/site/hobbybasicfiles/TEST.BAS