when I click on download nothing is there. Just learning fasm and could really use these examples.

begging somebody to repost them

thankyou

Hi MajorDill,

Sorry about this. I'm building my website but it will take me longer than expected. See the 1st post.

got it - thanks

[Text moved to first post]

I love this stuff. Excellent materials for beginners to learn from (although there's nothing 'beginners' with the code)

I am linking to this thread.

^^Thank you fasmnewbie.

The 'Hello World' program in Hobby Basic.

Code:

cls     for i=1 to 15         pen i         locate i,i         print "Hello World!"     next i     inkey

Drawing text is easy with Hobby Basic.

Code:

screen 80,25     cls      for y=0 to 24          for x=0 to 79              pen (x+y)/16              at x,y,'A'          next x      next y      inkey

Array operations in Hobby Basic.

Code:

dim a[5] = 10,20,30,40,50   for i=0 to 4       print "value of a[",i,"] is ",a[i]   next i

Code:

dim a[3,3]   dim b[3,3] = 10,20,0x1E,40,50,60,70,80,1011010b   a[]=b[]   ! copy array   for y=0 to 2       for x=0 to 2           print "value of a[",x,",",y,"] is ",a[x,y]       next x   next y

Picnic

It would be very nice if you could share your passion with Tomasz and others at Programming Language & Design section where you can properly introduce your Hobby Basic to the community. Good to see FASM is becoming a language of choice for compiler writing.

^^I feel it's early for that now. The interpreter is far for being complete. Surely i might do that but in later time.

Encoding UTF-8 characters.

Code:

rem  Encoding UTF-8 characters     rem  Change the console font to Lucida Console     rem  Hobby Basic Sample     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

Functions return either an integer value or a string.

Code:

cls   a$="Left Mid Right"   print "chr(65) ";chr(65)   print "hex(11111111b)";hex(11111111b)   print "bin(0xFF)";bin(0xFF)   print "spc(5),""A""";spc(5),"A"   print "abs(7*(-5))";abs(7*(-5))   print "rnd(100)";rnd(100)   print "not(TRUE)";not(TRUE)   print "chr(cell(0,0))";chr(cell(0,0))   print "pow(2,10)";pow(2,10)   print "tick counter";tick()   print "asc(""B"")";asc("B")   print "val(""1000"")/2";val("1000")/2   print "len(a$) ";len(a$)   print "comp(a$,a$)";comp(a$,a$)   print "find(a$,""M"")";find(a$,"M")   print "left(a$,4)";left(a$,4)   print "mid(a$,6,3)";mid(a$,6,3)   print "right(a$,5)";right(a$,5)   print "path(0) ";path(0)   print "base(49374,16)";base(49374,16)   print trim(readln(1,"Demo.bas"))   pause

In the file Console.asm I see "Copyright © 2013-2015, Nick Kouvaris". Is this the same Nick Kouvaris, which did flash games on lightforce.freestuff.gr?

Serge

Hi SergeASM,

Yes that's me, nice of you to ask.

A label is identified by the symbol # at the end of a string. Comments inside code start with the symbol ! or the REM command.

Code:

retry#   ! line comment   rem  line comment   input "Secret number:",n   if n<>1234 then goto retry

Code:

for x=1 to 3     on x gosub L1,L2,L3   next x   pause   end   L1# print "Label 1":return   L2# print "Label 2":return   L3# print "Label 3":return

Anonymous Labels.

Code:

@@#     !  @@ followed by # create an anonymous label     !  goto @b  (backward jump)     !  goto @f  (forward jump)     !  Ctrl-C to exit   goto @b

Very nice, thanks!

This code creates a 16 color drawing pad in console window which can load or save an image preserving the color attributes.

Code:

PrintXY fix  oldX=mouseX:oldY=mouseY:a$=STR(mouseX)+','+STR(mouseY)+' ':color 8,15:at 2,6,a$     PrintChar fix  color bg,fg:locate mouseX,mouseY:at mouseX,mouseY,CHR(c)     GetMouse fix  mouse:mouseX=V0:mouseY=V1:btn=V2:wait 1     DelChar fix  color 0,0:at mouseX,mouseY,' '     cols=90     rows=35     screen cols,rows     color 0,7:cls     dim a[260]     dim m[72,35]     dim e[72,35]     path$=PATH(0)+"\screen.hb"     p=0:i=0:c=0     for i=0x20 to 0xFF         at 0,0,CHR(i)         c=CELL(0,0)         if c<>63 and p<250             a[p]=c             p=p+1         endif     next i     for i=0x2070 to 0x2BFF         at 0,0,CHR(i)         c=CELL(0,0)         if c<>63 and p<250             a[p]=c             p=p+1         endif     next i     title p," symbols loaded"     cls     for i=0 to p-1         print CHR(a[i]),         if i%8=0 then print     next i     copy 0,0,8,rows:cls     paste cols-9,0,8,rows     color 8,15     paint 0,0,8,rows,' ',1     paint cols-10,0,10,rows,-1,1     at 1,0," Save"     at 1,2," Load"     at 1,4," Clear"     at 1,6," ----"     color 7,15     at 1,8,"  FG  "     color 0,15     at 1,10,"  BG  "     cursor 1,100     locate 8,0     erase 0,8,1,'>',0     for i=0 to 7         color i, i         paint 1,i*2+12,3,2,' ',1     next i     for i=0 to 7         color i+8,i+8         paint 4,i*2+12,3,2,' ',1     next i     oldX=0:oldY=0:bg=0:fg=7:c=32:v=0:cx=0:cy=0:j=0:r=0     do:GetMouse         if mouseX>7 and mouseX<cols-10             if oldX<>mouseX or oldY<>mouseY then PrintXY             if btn=1                 PrintChar                 do:GetMouse                     if mouseX>7 and mouseX<cols-10 and (oldX<>mouseX or oldY<>mouseY)                         PrintChar:PrintXY                     endif                 until btn=-1             elseif btn=2                 DelChar                 do:GetMouse                     if mouseX>7 and mouseX<cols-10 and (oldX<>mouseX or oldY<>mouseY)                         DelChar:PrintXY                     endif                 until btn=-1             endif         elseif mouseX<8             if btn=1                 if mouseY=0                     grab 8,0,72,35,m[],0                     file path$,m[],0                     if V0<0                         title "save error"                     else                         title "save ok - ",path$                     endif                 elseif mouseY=2                     file path$,e[],1                     if V0<0                         title "load error"                     else                         grab 8,0,72,35,e[],1                         title "load ok - ",path$                     endif                 elseif mouseY=4                     color 0,7                     paint 8,0,72,35,' ',1                     title "clear ok"                 elseif mouseY=8                     v=0                     erase 0,8,1,'>',0                     erase 0,10,1,' ',0                 elseif mouseY=10                     v=1                     erase 0,10,1,'>',0                     erase 0,8,1,' ',0                 elseif mouseY>11 and mouseY<rows-2                     peek mouseX,mouseY                     if v=0                         fg=V2                         color fg,-1                         paint 1,8,6,1,-1,1                     else                         bg=V1                         color bg,-1                         paint 1,10,6,1,-1,1                     endif                 endif             endif         elseif mouseX>cols-10             if btn=1                 if mouseX<>cx or mouseY<>cy                     color 8,15                     erase cx,cy,1,-1,1                     c=CELL(mouseX,mouseY)                     at 3,rows-1,CHR(c)                     color 8,11                     erase mouseX,mouseY,1,-1,1                     title "U+",c                     cx=mouseX:cy=mouseY                 endif             endif         endif     until KEY(27)<>0     end

I/O operations in Hobby Basic.

Code:

file filepath$,a$,0         ! save string as text file   file filepath$,a$,1         ! load text file to string   file filepath$,a$,2         ! append string to end of file   file filepath$,array[],0    ! save array as binary file   file filepath$,array[],1    ! load binary file to array   file filepath$,array[],2    ! append data to end of file   file filepath$,0,0          ! create empty file   file URL$,0,1               ! download URL   file filepath$,0,2          ! delete file

Code:

input "Enter a sentence:",a$   ! save string as text file   filepath$=PATH(0)+"\a.txt"   file filepath$,a$,0   ! print file size   print filepath$," ",SIZE(filepath$)," bytes"   pause

Code:

! create a com executable (16 byte DOS demo)   dim a[4]=0x10CD13B0,0xC81107C4,0x40FBE2AA,0x94E1F8E2   file "a.com",a[],0   end

I uploaded a new version 0.79 with many small improvments and bug fixes. I tried the interpreter with success in Windows XP/7/8 32/64 bit, Wine (Linux). I removed the Win32 Console Library source code from inside the zip. It was an old version which was last updated 3 years ago. Hobby Basic is now using a newer version.

Sorry but where i can find sources of Hobbybasic?