flat assembler
> Examples and Tutorials > Hobby BasicGoto page Previous 1, 2, 3 |
| Author |
|
|
filox wrote: Sorry but where i can find sources of Hobbybasic? |
|||
21 Oct 2016, 12:13 |
|
|
This is good. Keep it coming, bro!
|
|||
|
22 Oct 2016, 13:32 |
|
|
revolution wrote:
No source, only EXE and Demo.bas |
|||
|
26 Oct 2016, 12:24 |
|
|
hi filox,
you could try pm picnic for source etc |
|||
|
26 Oct 2016, 12:36 |
|
|
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 |
|
|
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  |
|||
|
18 Nov 2016, 13:19 |
|
|
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 |
|
|
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 |
|||
|
21 Dec 2016, 12:34 |
|
|
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
 |
|||
|
21 Dec 2016, 13:20 |
|
|
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
|
|||
|
28 May 2018, 13:49 |
|
| Goto page Previous 1, 2, 3 < Last Thread | Next Thread > |
Forum Rules:
|