Hobby Basic

flat assembler > Examples and Tutorials > Hobby Basic

Goto page Previous 1, 2, 3

Author

Thread

revolution
When all else fails, read the source

Joined: 24 Aug 2004
Posts: 15904
Location: SDSS J140821.67+025733.2

filox wrote:

Sorry but where i can find sources of Hobbybasic?

Have a look at the first post in this thread.

21 Oct 2016, 12:13

system error

Joined: 01 Sep 2013
Posts: 671

This is good. Keep it coming, bro!

22 Oct 2016, 13:32

filox

Joined: 13 Feb 2013
Posts: 10

revolution wrote:

filox wrote:
Sorry but where i can find sources of Hobbybasic?
Have a look at the first post in this thread.

No source, only EXE and Demo.bas

26 Oct 2016, 12:24

sleepsleep

Joined: 05 Oct 2006
Posts: 7394
Location: ˛　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣ Posts: 6699

hi filox,
you could try pm picnic for source etc

26 Oct 2016, 12:36

Picnic

Joined: 05 May 2007
Posts: 1244
Location: Icarian Sea

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.

26 Oct 2016, 13:37

filox

Joined: 13 Feb 2013
Posts: 10

Picnic wrote:

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.

Hi picnic, if u can share code with us, we can help you possibly to improve it faster and i'm interested in it for educational scope Very Happy

18 Nov 2016, 13:19

Picnic

Joined: 05 May 2007
Posts: 1244
Location: Icarian Sea

Quote:

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

Take a look at MINI-BASIC for fasm. It's a piece of code available for modifications.

21 Nov 2016, 15:50

Picnic

Joined: 05 May 2007
Posts: 1244
Location: Icarian Sea

I have uploaded a new version with bug fixes and various internal tweaking.

A string variable is identified by the symbol $ at the end of a variable name.
Concatenation uses the + addition symbol to add literal or variable parts to a
string variable.

Code:

    age=10
    a$="I am "+chr(34)+str(age)+chr(34)+" years old."
    print a$
    pause

Code:

    a$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    b$=reverse(a$)
    print a$,EOL$,b$
    print left(a$,5)
    pause

Code:

    
    input "How many words:",n
    dim a$[n]

    for i=0 to n-1
        print "Enter word ",i+1,":",
        input a$[i]
    next 
    pause

Code:

    do
        input "password:",a$
    until comp(trim(a$),"letmein")=1
    print "You are in."
    pause

Last edited by Picnic on 08 Jan 2018, 07:36; edited 15 times in total

21 Dec 2016, 12:34

avcaballero

Joined: 02 Feb 2004
Posts: 166
Location: Madrid - Spain

Hello, it is very interesting. I was very fond of qbasic. I'd just say that it would be nice to see your page in English, Greek is a bit hard for me Smile

21 Dec 2016, 13:20

Picnic

Joined: 05 May 2007
Posts: 1244
Location: Icarian Sea

It's been some time since my last post about HB. All this time there were some bug fixes and various internal tweaking, but not a major update.
Hobby Basic now includes an embedded ANSI file loader that recognizes standard DOS ANSI.SYS escape codes for colours and cursor movement.
Having a console library already written (the one that HB is using as backend), it took me a few hours of work to accomplish it.

Loading an ANSI image is simply a command.

Code:

    ! n is optional. It controls the drawing speed.
    ! n=0 unlimited (default)
    ! n=1 slow...100 fast


    path$ = "ART\APPLE.ANS"

    screen 80,25
    cls

    if SIZE(path$)<>-1   ! check if file exists
        ansi 0,path$
        inkey
    endif

    end

Another example, slightly more advanced. An ANSI text file viewer.

Code:

  
    rem  View multiple ANSI coded text files in folder
    rem  Hobby Basic Sample

    s=20                               ! drawing speed
    d=2000000                          ! delay between images
    auto=1                             ! autoplay slideshow
    count=0                            ! valid files found
    max=250                            ! max files in folder
    dim ext$[2] = ".ans" , ".asc"      ! valid file extensions
    path$=PATH(0)+"\ART\"              ! path to ART folder
    cmd$="DIR "+path$+" /b"
    exec cmd$,dir$
    screen 80,30
    cursor 0,0

    forever#

    for n=1 to max
        a$=READLN(n,dir$)
        if V0=-1 then break
        filename$=path$+a$
        if SIZE(filename$)<>-1           ! check if file exists
            if check_ext(filename$)=1
                count=count+1
                title filename$
                color 0,7:cls
                ansi s,filename$
                if KEY(27) then end
                if auto=1 then wait d else inkey
            endif
        endif
    next n

    if count=0 then alert "no files found":end

    goto forever



rem  Check for valid file extension
sub check_ext(path$)

    local i

    for i=0 to SIZE(ext$[])-1
        if COMP(LCASE(RIGHT(path$,4)),ext$[i])=1 then rets 1
    next i

    rets 0
ends

28 May 2018, 13:49

Goto page Previous 1, 2, 3

< Last Thread | Next Thread >

Forum Rules:

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum