flat assembler
> Examples and Tutorials > Hobby Basic for WindowsGoto page 1, 2, 3 Next |
| Author |
|
Hobby Basic is a toy language interpreter for the Windows console. Its syntax resembles BASIC. It's written in fasm + Win32 API. It's a small personal project. Version 0.9.2, April 2019 Download Last edited by Picnic on 14 Apr 2019, 14:28; edited 135 times in total |
|||
05 May 2013, 21:16 |
|
|
Great stuff!
Things like that motivate beginners to start programming. |
|||
|
05 May 2013, 22:15 |
|
|
I suppose that the author's sentiment to QuickBasic was the main inspiration for this project. Nice thing.
 |
|||
|
05 May 2013, 22:28 |
|
|
Nice. This prompts me to make a CLI graphics library. Looks pretty neat.
|
|||
|
07 May 2013, 04:31 |
|
|
I am glad you like it, i had some concern whether it can be served as helpful example despite the lack of comments in source.
|
|||
|
07 May 2013, 10:10 |
|
|
This is very nice.
Reminiscent of DOS apps. Mouse handling would be a nice addition, I think  |
|||
|
07 May 2013, 15:45 |
|
|
Stupid post removed.
Last edited by HaHaAnonymous on 28 Feb 2015, 20:54; edited 1 time in total |
|||
|
07 May 2013, 20:58 |
|
|
Picnic wrote: I am glad you like it, i had some concern whether it can be served as helpful example despite the lack of comments in source. If it can be understood then no worries. Besides not all examples are aimed at beginners. |
|||
|
07 May 2013, 23:30 |
|
|
TmX wrote: Mouse handling would be a nice addition, I think Mouse events handling added in Hobby Basic.
Code:
! Get mouse position
do
mouse
! V0 = cell x
! V1 = cell y
! V2 = button: 1 left, 2 right, 4 double click
! V3 = coordinates in pixels (high/low order word)
title V0,",",V1
wait 1
until key(27)
Last edited by Picnic on 08 Apr 2019, 20:56; edited 5 times in total |
|||
|
18 Aug 2013, 22:52 |
|
|
A new version, the first that supports unicode characters in console (16-bit encoding).
Code:
print "Euro Symbol: €."
print "English: I can eat glass and it doesn''t hurt me."
print "Greek: Μπορώ να φάω γυαλί χωρίς να πάθω τίποτα."
print "Íslenska / Icelandic: Ég get etið gler án þess að meiða mig."
print "Romanian: Pot să mănânc sticlă și ea nu mă rănește."
print "Ukrainian: Я можу їсти шкло, й воно мені не пошкодить."
print "Polish: Mogę jeść szkło, i mi nie szkodzi."
print "Czech: Mohu jíst sklo, neublíží mi."
pause
 Last edited by Picnic on 08 Apr 2019, 20:56; edited 3 times in total |
|||
|
15 Dec 2013, 01:37 |
|
|
I get this when I run MOUSE
 |
|||
|
15 Dec 2013, 05:58 |
|
|
Thanks for the feedback typedef. Can you please tell me your Windows version and if you tried the rest of the samples?
|
|||
|
15 Dec 2013, 10:10 |
|
|
Windows 7 64 bit. Actually all the programs except the binary and the the color ones. And why it says print I don't know
|
|||
|
15 Dec 2013, 14:27 |
|
|
I will look into the problem as soon as i can. I starting to feel a bit outdated with my windows xp 32-bit.
Last edited by Picnic on 15 Dec 2013, 17:35; edited 1 time in total |
|||
|
15 Dec 2013, 17:28 |
|
|
I see. It's a version difference thing.
|
|||
|
15 Dec 2013, 17:34 |
|
|
I think i found what was causing the trouble. Give it a try if you like typedef.
|
|||
|
18 Dec 2013, 21:33 |
|
|
They work now
 . Care to share what was causing it to say that? |
|||
|
18 Dec 2013, 22:53 |
|
|
Nice to hear!
Sure, it seems that an improper call to SetConsoleOutputCP function crush the program. By the way, i installed Windows 7. |
|||
|
19 Dec 2013, 21:09 |
|
|
Picnic wrote: Nice to hear! Hmm. Nice, what Win7 version? |
|||
|
20 Dec 2013, 01:13 |
|
|
^^Home premium 32-bit.
A new version upload with some minor improvements, and fixes in bugs i noticed. X's And O's (Tic Tac Toe) game written in Hobby Basic. Plays with mouse. Code:
rem X's and O's Game
P1 fix m[x,y]
P2 fix m[x+i,y+j]
P3 fix m[x+i*2,y+j*2]
screen 80,30
screen 80,30
cursor 0,0
restart#
color 0,7:cls:locate 0,15
n=0:dim m[3,3]=0,0,0,0,0,0,0,0,0
at 4,1,"X''s and O''s"
at 0,3,"Player X vs CPU O"
paint 1,7,17,1,'_',0
paint 1,10,17,1,'_',0
paint 6,5,1,9,'|',0
paint 12,5,1,9,'|',0
@@# at 0,15,"Play first? [y/n]"
inkey:p=V0:if p=27 then end
if (p='y' or p='Y') then p=1 else p=0
at 0,15,"Strong CPU? [y/n]"
inkey:z=V0:if z=27 then goto @b
do
if p=0 then gosub cpu_move else gosub player_move
gosub is_winner:p=p^1:n=n+1
until (w<>0 or n=9)
erase 0,15,30,-1,-1:pen 7
if w=0 then at 0,15,"Game was a draw"
if w=1 then at 0,15,"Player X has won!"
if w=2 then at 0,15,"CPU O has won!"
at 0,16,"press a key":inkey:goto restart
player_move#
pen 7:at 0,15,"Player X''s turn "
@@# if key(27) then goto restart
mouse:x=(V0+1)/7:y=(V1+1)/4-1:btn=V2:wait 1
if (x<0 or x>2 or y<0 or y>2) or btn=0 then goto @b
if m[x,y]=0 then m[x,y]=1:pen 10:at x*6+3,y*3+6,'X':return
goto @b
cpu_move#
pen 7:at 0,15,"CPU O''s turn "
b=0:cx=0:cy=0
x=0:i=1:j=0:for y=0 to 2:gosub scoring:next
y=0:i=0:j=1:for x=0 to 2:gosub scoring:next
x=2:y=0:i=-1:j=1:gosub scoring
x=0:i=1:j=1:gosub scoring
m[cx,cy]=2:wait 500000
pen 15:at cx*6+3,cy*3+6,'O'
return
scoring#
r=0:k=0:s=0
if P1=0 then r=x:k=y:s=1
if P2=0 then r=x+i:k=y+j:s=1
if P3=0 then r=x+i*2:k=y+j*2:s=1
if (P1=1 and P2=0 and P3=0) then r=x+i*2:k=y+j*2:s=2
if (P1=0 and P2=1 and P3=0) then r=x:k=y:s=2
if (P1=0 and P2=0 and P3=1) then r=x:k=y:s=2
if (P1=0 and P2=0 and P3=0) then r=x:k=y:s=4
if (P1=2 and P2=0 and P3=0) then r=x+i*2:k=y+j*2:s=8
if (P1=0 and P2=2 and P3=0) then r=x:k=y:s=8
if (P1=0 and P2=0 and P3=2) then r=x:k=y:s=8
if (P1=1 and P2=1 and P3=0) then r=x+i*2:k=y+j*2:s=16
if (P1=1 and P2=0 and P3=1) then r=x+i:k=y+j:s=16
if (P1=0 and P2=1 and P3=1) then r=x:k=y:s=16
if (P1=2 and P2=2 and P3=0) then r=x+i*2:k=y+j*2:s=32
if (P1=2 and P2=0 and P3=2) then r=x+i:k=y+j:s=32
if (P1=0 and P2=2 and P3=2) then r=x:k=y:s=32
if (m[1,1]=0 and z='y') then r=1:k=1:s=64
if s>b then b=s:cx=r:cy=k
return
is_winner#
w=0:x=0:i=1:j=0:for y=0 to 2:gosub win:next
y=0:i=0:j=1:for x=0 to 2:gosub win:next
x=2:y=0:i=-1:j=1:gosub win
x=0:i=1:j=1:gosub win
return
win#
if (P1=1 and P2=1 and P3=1) then w=1
if (P1=2 and P2=2 and P3=2) then w=2
return
 Last edited by Picnic on 08 Apr 2019, 19:28; edited 2 times in total |
|||
|
20 Dec 2013, 20:37 |
|
| Goto page 1, 2, 3 Next < Last Thread | Next Thread > |
Forum Rules:
|