flat assembler
Message board for the users of flat assembler.

flat assembler > Examples and Tutorials > Hobby Basic

Goto page Previous  1, 2, 3
Author
Thread Post new topic Reply to topic
revolution
When all else fails, read the source


Joined: 24 Aug 2004
Posts: 16057
Location: 112 Ocean Avenue, Amityville
filox wrote:
Sorry but where i can find sources of Hobbybasic?
Have a look at the first post in this thread.
Post 21 Oct 2016, 12:13
View user's profile Send private message Visit poster's website Reply with quote
system error



Joined: 01 Sep 2013
Posts: 671
This is good. Keep it coming, bro!
Post 22 Oct 2016, 13:32
View user's profile Send private message Reply with quote
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
Post 26 Oct 2016, 12:24
View user's profile Send private message Reply with quote
sleepsleep



Joined: 05 Oct 2006
Posts: 7632
Location: ˛                              ⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣⁣ Posts: 6699
hi filox,
you could try pm picnic for source etc
Post 26 Oct 2016, 12:36
View user's profile Send private message Reply with quote
Picnic



Joined: 05 May 2007
Posts: 1255
Location: Underwater
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.
Post 26 Oct 2016, 13:37
View user's profile Send private message Reply with quote
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
Post 18 Nov 2016, 13:19
View user's profile Send private message Reply with quote
Picnic



Joined: 05 May 2007
Posts: 1255
Location: Underwater
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.
Post 21 Nov 2016, 15:50
View user's profile Send private message Reply with quote
Picnic



Joined: 05 May 2007
Posts: 1255
Location: Underwater
I have uploaded a new version with bug fixes and various internal tweaking.

The fix directive causes simple text replacement in the source code, while the
include directive inserts the contents of another file into the source code.
Both functions are performed before the program is executed.
Code:
    repeat fix do

    repeat

        wait 100

    until key(27)<>0
    end
    


Code:
    
    input "Run HB Demo [y/n] ?",a$
    if ~comp(lcase(a$),"y") then end

    include "Demo.bas"
    


Last edited by Picnic on 09 Sep 2018, 15:29; edited 17 times in total
Post 21 Dec 2016, 12:34
View user's profile Send private message Reply with quote
avcaballero



Joined: 02 Feb 2004
Posts: 169
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
Post 21 Dec 2016, 13:20
View user's profile Send private message Visit poster's website Reply with quote
Picnic



Joined: 05 May 2007
Posts: 1255
Location: Underwater
Hobby Basic includes an embedded ANSI file loader that recognizes
standard ANSI.SYS escape codes for colours and cursor movement.
The following code example demonstrates this feature.

Code:
    rem  AV.bas
    rem  ANSI Text File Viewer
    rem  Hobby Basic Sample

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

    forever#

    for n=1 to maxfile
        filename$=READLN(n,list$)
        if V0=-1 then break
        a$=path$+filename$
        if SIZE(a$)<>-1
            if valid_ext(a$)
                count=count+1
                title a$
                color 0,0:cls
                ansi speed,a$
                if KEY(27) then end
                if auto=1 then wait delay else inkey
            endif
        endif
    next n

    if count=0 then alert "no files found in ",path$:end
    goto forever


sub valid_ext(s$)

    local i

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

    rets 0
ends
    
Post 28 May 2018, 13:49
View user's profile Send private message Reply with quote
Display posts from previous:
Post new topic Reply to topic

Jump to:  
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


Copyright © 1999-2018, Tomasz Grysztar.

Powered by rwasa.