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.

...and i'm interested in it for educational scope

    dim a32,7

    screen 80,25
    cursor 0,0
    color 0,0
    cls

    ansi "ART\CAR.ANS"

    grab 0,0,32,7,a,0     ! screen to array

    color 1,1
    cls         

    grab 0,0,32,7,a,1     ! array to screen
    grab 0,8,32,7,a,2     ! array to screen 2nd method - skip zero cells
    flip 0,8,32,7,0

    inkey
    

    rem  2D Moving Car

    VK_LEFT=37
    VK_RIGHT=39

    dim c132,7
    dim c232,7
    dim a80,25

    a$=PATH1+"\ART\FOREST.ANS"
    c$=PATH1+"\ART\CAR.ANS"
    x=2
    y=18

    title "Use the arrow keys to move"
    screen 80,25
    cursor 0,0
    ansi c$
    grab 0,0,32,7,c1,0
    flip 0,0,32,7,0
    grab 0,0,32,7,c2,0
    color 0,0cls
    ansi a$
    grab 0,0,80,25,a,0
    grab x,y,32,7,c1,2

    do

        if KEYVK_LEFT and x>0
            grab x,y,32,7,a,x,y   ! portion of an array to screen 3rd method
            x=x-2
            grab x,y,32,7,c2,2
        elseif KEYVK_RIGHT and x<82
            grab x,y,32,7,a,x,y
            x=x+2
            grab x,y,32,7,c1,2
        endif

        wait 12000

    until KEY27
    end
    

    rem  2D scrolling background

    VK_LEFT=37
    VK_RIGHT=39
    VK_SPACE=32

    dim a6,4
    dim m160,25

    title "Use the arrow keys to move, space to jump"
    screen 80,25
    cursor 0,0

    color 13,13
    paint 0,0,6,4,0x20,1
    color 0,0
    paint 1,1,4,2,0x20,1
    grab 0,0,6,4,a,0
    cls

    for i=1 to 4
        x=RND74
        y=RND14+4
        color x&7,0
        paint x,y,5,3,0x20,1
    next

    grab 0,0,160,25,m,0

    for x=0 to 79
        for y=0 to 24
            mx+80,y=mx,y
        next
    next

    color 0,0clscolor 1,8
    paint 0,22,80,3,0x2591,1

    x=35
    y=18
    j=0

    grab x,2,80,20,m,0,2
    grab x,y,6,4,a,2

    do

        if KEYVK_SPACE and ~j
            j=1
            v=-1
        elseif KEYVK_LEFT
            d=-2
        elseif KEYVK_RIGHT
            d=2
        else
            d=0
        endif

        if j
            y=y+v
            if y=2
                v=1
            elseif y=19
                y=18
                j=0
            endif
        endif

        x=x+d
        if x<0 then x=80
        if x>80 then x=0

        grab x,2,80,20,m,0,2
        grab 35,y,6,4,a,2

        wait 12000

    until KEY27
    end
    

    ! s controls the drawing speed
    ! s=0 unlimited default
    ! s=1 slow...50 fast


    path$="ART\APPLE.ANS"
    ansi path$,0
    inkey
    

    path$="ART\APPLE.ANS"
    ansi path$,0
    color 8,0
    paint 0,0,40,25,-1,1
    flip 40,0,40,25,0
    inkey
    

    ansi "ART\APPLE.ANS"

    A=1001
    B=1002
    C=1003
    D=1004

    block 0,0,40,12,A
    block 40,0,40,12,B
    block 0,12,40,12,C
    block 40,12,40,12,D

    cls
    block 0,0,B
    block 40,0,A
    block 0,12,D
    block 40,12,C
    inkey
    

    ansi "ART\APPLE.ANS"

    block 0,0,5,5,700
    cls

    for i=0 to 79
        block i%16*5,i/16*5,700
    next

    inkey
    

    dim a16=0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15

    title "Press a key to shuffle the screen"

    ansi "ART\APPLE.ANS"

    for i=0 to 15
        block i%4*20,i/4*6,20,6,i
    next

   shuffle#

    a=-1

    inkeyif V0=27 then end

    for i=0 to 15
        block i%4*20,i/4*6,ai
    next

    goto shuffle
    

    rem  ANSI Text File Viewer

    a = 1                                ! auto play slide-show 0/1
    s = 20                               ! drawing text speed
    m = 250                              ! max files in folder
    d = 2000000                          ! delay between images
    path$ = PATH1+"\ART\"              ! path to ART folder

    cmd$ = "dir /b "+CHR0x22+path$+CHR0x22
    exec cmd$,dir$

    screen 80,25,1000
    cursor 0,0

    forever#

    c=0
    for n=1 to m
        a$=READLNn,dir$
        if V0<>-1
            a$=path$+a$
            if COMPUCASERIGHTa$,4,".ANS"
                title a$
                ansi a$,s
                if KEY27 then end
                if a then wait d else inkey
                c=c+1
            endif
        endif
    next

    if c then goto forever
    ? "no files found"end