Activity for micro(A) Interpreter

Zlatko Vidlanovic posted a comment on discussion General Discussion

Zlatko Vidlanovic — Tue, 16 Dec 2025 17:05:45 -0000

In attachment is cleaned version v12 of micro(A) some improvement in game GDI_Santa

Zlatko Vidlanovic posted a comment on discussion Basic Board

Zlatko Vidlanovic — Wed, 17 Jul 2024 07:25:30 -0000

it is again visible

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Thu, 27 Jun 2024 05:55:06 -0000

Unfortunately i am still in problem with recursive function calls with params any help is welcome ?

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Wed, 05 Jun 2024 07:19:36 -0000

latest code :

micro(A) Interpreter released /microAv12.zip

micro(A) Interpreter — Sun, 05 May 2024 13:49:06 -0000

micro(A) Interpreter released /microAv12.zip

micro(A) Interpreter — Sun, 05 May 2024 13:29:02 -0000

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Mon, 12 Feb 2024 22:22:13 -0000

V12

micro(A) Interpreter released /microAv11_10_9_2023.zip

micro(A) Interpreter — Sun, 10 Sep 2023 08:23:03 -0000

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Fri, 08 Sep 2023 13:37:48 -0000

~'gdi 2d platformer robot demo 3.7.2023 ptr img0,img1,img2,img3,img4 ptr wmKeyDown var wp,ix,iy,p,ex,ey,lx,ly,bx,by,cell, tmpx,tmpy,tmpCell var bx1,by1,bx2,by2,bx3,by3 var tbx ,tby ,bushCell ,tbx1 ,tby1 ,bushCell1 ,tbx2 ,tby2 ,bushCell2, tbx3 ,tby3 ,bushCell3 var plants[360] ,plantCell ,i, pcx, pcy, col, tempX, energy ,run 'var moveLeft,moveRight,moveUp,moveDown wcolor 0,0,0:swap 'syntax-> LoadImg (1)hImg , (3)str "img.bmp" ,(5)imgType , (7)w , (9)h, (11)colorFlags 'load another image 'LoadImage(0,...

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Fri, 08 Sep 2023 13:34:51 -0000

'qb program starfield.bas var num,inc,vis,i : mode 1 : wcolor 0,0,0 : swap num = 200 : inc = 40 : vis = 50 var x[num] var y[num] var z[num] 'fill i=1 while i < num x[i] = RAND(640) - 320 y[i] = RAND(480) - 240 z[i] = RAND(vis) i=i+1 wend label doLoop rect 0,0,800,600 i=1 while i < num fcolor 200,230,250 PSET inc * (x[i] / z[i]) + 320 , inc * (y[i] / z[i]) + 240 IF z[i] < 1 z[i] = vis x[i] = RAND(640) - 320 y[i] = RAND(480) - 240 ELSE z[i] = z[i] - 1 ENDIF 'PSET (INC * (x(i) / z(i)) + 160, INC * (y(i)...

Zlatko Vidlanovic created a blog post

Zlatko Vidlanovic — Sun, 20 Aug 2023 21:38:56 -0000

user functions

Zlatko Vidlanovic posted a comment on discussion micro(A) forum

Zlatko Vidlanovic — Sun, 20 Aug 2023 21:34:44 -0000

opened again!!! In case go down or hosting drop all free hosting ...all discussion will go here. so keep up!

Zlatko Vidlanovic posted a comment on discussion Basic Board

Zlatko Vidlanovic — Sun, 20 Aug 2023 21:32:43 -0000

Because of stupid problems with annoying and problematic former members basic4us forum is in Log in only mode , so is not visibile for lurkers. So anyone who wish to contribute feel free and make account.

Zlatko Vidlanovic posted a comment on discussion micro(A) forum

Zlatko Vidlanovic — Mon, 31 Jul 2023 15:07:23 -0000

all epizy hostings suspended!!

Zlatko Vidlanovic posted a comment on discussion Basic Board

Zlatko Vidlanovic — Mon, 31 Jul 2023 15:06:15 -0000

Post here about Basic dialects

Zlatko Vidlanovic posted a comment on discussion General Discussion

Zlatko Vidlanovic — Mon, 31 Jul 2023 14:12:06 -0000

You are free to post your examples or programs!

micro(A) Interpreter released /microAv11_21_7_2023.zip

micro(A) Interpreter — Fri, 21 Jul 2023 16:06:02 -0000

Zlatko Vidlanovic modified a comment on discussion General Discussion

Zlatko Vidlanovic — Sun, 09 Jul 2023 18:32:32 -0000

micro(A) source updated mouse events

Zlatko Vidlanovic posted a comment on discussion General Discussion

Zlatko Vidlanovic — Sun, 09 Jul 2023 18:31:20 -0000

mivro(A) source updated mouse events

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Fri, 07 Jul 2023 16:10:04 -0000

GDI Robot in bush: 'gdi 2d platformer robot demo 3.7.2023 ptr img0,img1,img2,img3,img4 ptr wmKeyDown var wp,ix,iy,p,ex,ey,lx,ly,bx,by,cell, tmpx,tmpy,tmpCell var bx1,by1,bx2,by2,bx3,by3 var tbx ,tby ,bushCell ,tbx1 ,tby1 ,bushCell1 ,tbx2 ,tby2 ,bushCell2, tbx3 ,tby3 ,bushCell3 var plants[360] ,plantCell ,i, pcx, pcy, col, tempX, energy ,run 'var moveLeft,moveRight,moveUp,moveDown wcolor 0,0,0:swap 'syntax-> LoadImg (1)hImg , (3)str "img.bmp" ,(5)imgType , (7)w , (9)h, (11)colorFlags 'load another...

micro(A) Interpreter released /microAv11_6_7_2023.zip

micro(A) Interpreter — Thu, 06 Jul 2023 17:57:04 -0000

micro(A) Interpreter released /microAv11_4_7_2023.zip

micro(A) Interpreter — Mon, 03 Jul 2023 23:08:02 -0000

micro(A) Interpreter released /microAv11_25_6_2023.zip

micro(A) Interpreter — Sun, 25 Jun 2023 18:47:02 -0000

micro(A) Interpreter released /microAv11_25_6_2023.zip

micro(A) Interpreter — Sun, 25 Jun 2023 18:07:02 -0000

micro(A) Interpreter released /microA11_23_6_2023.zip

micro(A) Interpreter — Fri, 23 Jun 2023 14:31:02 -0000

micro(A) Interpreter released /microAv10_14_6_2023.zip

micro(A) Interpreter — Wed, 14 Jun 2023 19:34:03 -0000

micro(A) Interpreter released /microAv10_5_6_2023.zip

micro(A) Interpreter — Tue, 06 Jun 2023 12:17:03 -0000

micro(A) Interpreter released /microAv10_31_5_2023.zip

micro(A) Interpreter — Thu, 01 Jun 2023 06:52:01 -0000

micro(A) Interpreter released /ReadMe.txt

micro(A) Interpreter — Thu, 01 Jun 2023 06:51:02 -0000

micro(A) Interpreter released /microAv10_23_5_2023.zip

micro(A) Interpreter — Tue, 23 May 2023 12:35:03 -0000

Zlatko Vidlanovic posted a comment on discussion micro(A) forum

Zlatko Vidlanovic — Mon, 22 May 2023 14:01:47 -0000

http://microabasic.epizy.com/forum/index.php

Zlatko Vidlanovic posted a comment on discussion General Discussion

Zlatko Vidlanovic — Mon, 22 May 2023 13:30:23 -0000

micro(A) updated and all examples TESTED in attachment is latest source code :

micro(A) Interpreter released /microAv10_21_5_2023.zip

micro(A) Interpreter — Mon, 22 May 2023 13:23:04 -0000

micro(A) Interpreter released /microAEditor.zip

micro(A) Interpreter — Mon, 08 May 2023 10:24:02 -0000

micro(A) Interpreter released /microAEditor.zip

micro(A) Interpreter — Sat, 04 Mar 2023 22:29:02 -0000

Zlatko Vidlanovic modified a comment on discussion General Discussion

Zlatko Vidlanovic — Sat, 04 Mar 2023 11:33:56 -0000

In attacment is updated source code of micro(A) require password!

micro(A) Interpreter released /microAEditor.zip

micro(A) Interpreter — Sat, 04 Mar 2023 11:32:02 -0000

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Sat, 04 Mar 2023 11:11:46 -0000

PONG in micro(A) 'origin by Aurel ' pong game in micro(A) use o2_compile function $ filename "Pong.exe" include "rtl32.inc" include "window.inc" Window "Pong in micro(A) by Aurel",320, 240, 1 'SetFPS 10 x = 50 y = 50 x2 = 130 y2 = 160 pspeed = 1 xadj = 1 yadj = 1 delay = 1 score = 0 'haha = "wav/haha.wav" 'pong = "wav/pong.wav" WHILE Key(27) = 0 ClsColor (200, 200, 247) Circle (x, y, 8, 0, 0, 255) FillBox (x2, y2, 30, 4, 255, 255, 255) Box (20, 20, 280, 160, 4,255, 255, 0) Text (10, 0, "SCORE:" &...

micro(A) Interpreter updated /microAEditor.zip

micro(A) Interpreter — Sat, 04 Feb 2023 13:22:02 -0000

micro(A) Interpreter released /microAEditor.zip

micro(A) Interpreter — Mon, 30 Jan 2023 19:21:02 -0000

micro(A) Interpreter released /microAEditor08.zip

micro(A) Interpreter — Wed, 06 Jul 2022 08:05:04 -0000

Zlatko Vidlanovic created a blog post

Zlatko Vidlanovic — Thu, 07 Apr 2022 08:12:48 -0000

testing Array implementation in microA

Zlatko Vidlanovic posted a comment on discussion General Discussion

Zlatko Vidlanovic — Wed, 02 Mar 2022 18:45:25 -0000

In attacment is updated source code of micro(A)

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Wed, 02 Mar 2022 15:22:20 -0000

Move with key UPDATED 'windows messages test - moving letter "A" var r,g,b , mx , my, cx,cy, wp ,tmp ptr wmMouseMove ,wmKeyDown r = 255 : g = 255 : B = 255 : cy = 200 : cx = 300 wcolor r,g,b : fcolor 40,80,100 print 100,10,"testing WM_MOUSEMOVE and WM_KEYDOWN in micro(A)" print 6,10,"mx" print 6,40,"my" fcolor 220,10,10 : print cx,cy,"A" WinMsg wmMOUSEMOVE mousex mx mousey my fcolor 0,0,0 :rect 24,5,68,24 fcolor 100,160,220 : print 30,10,mx fcolor 0,0,0 :rect 24,35,68,24 fcolor 100,160,220 : print...

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Wed, 02 Mar 2022 15:18:46 -0000

Jungle life 'test demo in gdi ptr img,img2,img3 ptr wmKeyDown, wmTimer var wp,ix,iy,p,ex,ey wcolor 200,200,210 fcolor 180,60,100 : print 110,10,"Test Load Bitmap Image into handler" 'syntax-> LoadImg (1)hImg , (3)str "img.bmp" ,(5)imgType , (7)w , (9)h, (11)colorFlags LoadImg img,"Jungle.bmp" , 0, 640, 360,16 'print value of img handler / if value not null -> OK! print 10,440,"Jungle Life m(A)" print 10,460,"Move ship with arrow keys..." 'show img on window ShowImgT img,0,0,640,360 'load another...

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Wed, 02 Mar 2022 15:16:32 -0000

MoveImage 'test load image ptr img,img2,img3 ptr wmKeyDown, wmTimer var wp,ix,iy,p,ex,ey wcolor 200,200,210 fcolor 180,60,100 : print 110,10,"Test Load Bitmap Image into handler" 'syntax-> LoadImg (1)hImg , (3)str "img.bmp" ,(5)imgType , (7)w , (9)h, (11)colorFlags LoadImg img,"spaceMoon.bmp" , 0, 646, 438,16 'print value of img handler / if value not null -> OK! print 10,440,"image handler value:" : print 10,460,img 'show img on window ShowImgT img,0,0,646,438 'load another image LoadImg img2,"craft2.bmp"...

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Wed, 02 Mar 2022 15:09:52 -0000

mini Solar system 'mini solar system - micro(A) var x,y,x1,y1,pi,t,w,h ,r, w2, h2,fPi,fRad,r2 var x2,y2, x3,y3, x4,y4, x5,y5, x6,y6, x7,y7, x8,y8, x9,y9 var r2,r3,r4,r5,r6,r7,r8,r9 w = 800 : h = 600 : w2 = w / 2 : h2 = (h / 2)-20 fPi = Cos(0.98) : fRad = fPi / 180 wcolor 0,0,0 t = 0 r = 30 r2 = 50 r3 = 90 r4 = 130 r5 = 150 r6 = 190 r7 = 220 r8 = 240 r9 = 270 fcolor 0,100,200 '---------------------------------- label start fcolor 160,160,160 : rect 0,0,800,600 fcolor 160,160,160 : circle w2,h2,r9...

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Wed, 02 Mar 2022 15:07:33 -0000

GDI demo 'test demo in gdi ptr img,img2,img3,img4 ptr wmKeyDown, wmTimer var wp,ix,iy,p,ex,ey,eh,ev,bx,by,bf,hit var sc wcolor 200,200,210 fcolor 180,60,150 : print 10,510,"give banana to monkey" LoadImg img,"beach.bmp",0,640,400,16 'program name... print 10,440,"Coconut Monkey m(A)": print 10,460,"Press ESC for pause.." 'show img on window ShowImgT img,0,0,640,360 'load another image LoadImg img2,"explorer1.bmp" , 0, 32, 32,16 LoadImg img3,"monkey1.bmp" , 0, 32, 32,24 LoadImg img4,"banana.bmp" ,...

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Wed, 02 Mar 2022 15:06:14 -0000

primitive game in microA with Johnno help 'primitive game in microA with Johnno help var r,g,b , mx , my, ax,ay, wp ,p,score var bf, bx, by ,bs, ex,ey,hit,eh,ev ptr wmKeyDown, wmTimer ay = 175 : ax = 120 : ex = 5 : ey = 10 wcolor 0,0,0 : fcolor 140,180,200 print 20,410,"primitive game in micro(A)" print 20,430,"move 'A' with LEFT<->RIGHT arrow keys" print 20,450,"Shoot with SPACE bar" print 20,470,"Pause with ESC key" print 456,10,"player" : print 456,40,"bullet" : print 456,70,"enemy" print 456,100,"score"...

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Wed, 02 Mar 2022 15:04:04 -0000

full circle by MGA 'full_circle by [B+=MGA]2017->micro(A) by aurel 'everything was supposed to be turning around another circle var xc,yc,xx,yy,x,y,x3,y3,r,w,ww,w3,pi,i,j,k,ww,loop xc=640/2 : yc=480/2 :pi=3.14: i=1 : j=1: k=1: loop=1 wcolor 0,0,0 while loop < 2400 r = r + pi/180 w = w + pi/72 i=1 : j=1: k=1 while i < 12 x=xc+200*cos(w+i*pi/6)*sin(r) y=yc+200*sin(w+i*pi/6)*sin(r) fcolor 120,150,100 : circle x,y,40 ww = ww + pi/80 while j < 12 xx=x+100*cos(ww + j*pi/6)*sin(r) yy=y+100*sin(ww + j*pi/6)*sin(r)...

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Wed, 02 Mar 2022 15:02:48 -0000

'Fractal19 from mySmallBasic-> in micro(A) var x,y ,i,r,ux,uy wcolor 20,60,40 : fcolor 180,180,230 print 10,10,"Fractal19 from MySmallBasic-github...in micro(A)" x = 100 : y = 100 'change color fcolor 220,220,100 while i < 10000 r = rand(3) ux = 150 uy = 30 If r = 1 ux = 30 uy = 1000 EndIf If r = 2 ux = 1000 uy = 1000 EndIf x = (x + ux) / 2 y = (y + uy) / 2 pset x, y i=i+0.5 wend swap

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Wed, 02 Mar 2022 15:01:35 -0000

Factorial with recursion 'factorial micro(A) var value ,res 'value var number : number = 7 var fact : fact = 1 value = 1 print 10, 10, "The factorial of -> " : print 180,10,number factorial() label continue fcolor 230,80,60: print 10,200,"RECURSION OVER!->continue..." func factorial() if value < number value = value + 1 fact = fact * value rect 8,90,100,32 :fcolor 220,220,100: print 10,100,fact : swap factorial() else goto continue endif endfn

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Wed, 02 Mar 2022 14:59:23 -0000

'Coded By Ashish - "Dragon" in qb64 'micro(A) by Aurel var sx,sy,ox,oy,z,i,x,y,xx,yy,n,a,b,r,px,py wcolor 0,0,0 z = 40 ox = 600 * 0.46 oy = 380 * 0.09 fcolor 255, 180, 0 i=0 while i < 5000 a = sx: b = sy x=a : y=b label drawDragon r=rnd(1) if r > 0 if r < 0.8 xx = 0.824074 * x + 0.281428 * y - 1.88229 yy = -0.212346 * x + 0.864198 * y - 0.110607 endif 'endif else 'if r < 0 xx = 0.088272 * x + 0.520988 * y + 0.78536 yy = -0.463889 * x - 0.377778 * y + 8.095795 endif px = xx * z + ox : py = yy * z...

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Wed, 02 Mar 2022 14:58:33 -0000

Dipol antenna Calculator 'Antenna Dipol Calculator var mx, my, wp, cons, freq, length ,dlen ptr wmMouseMove ,wmKeyDown cons = 142.5 : freq = 100 : length = cons/freq : dlen = length * 100 wcolor 40,60,120 : fcolor 140,180,200 : rect 0,0,800,600 : swap print 6,10,"FREQENCY(MHz)" print 6,40,"LENGTH ( m )" fcolor 220,180,150 : print 300,10,"Antenna Dipol Calculator micro(A)":swap DisplayUpdate() Info() DrawDipol() 'WinMsg wmMOUSEMOVE mousex mx mousey my 'DisplayUpdate() 'swap 'EndWm WinMsg wmKEYDOWN...

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Wed, 02 Mar 2022 14:56:47 -0000

'chTree var rise, rad, frad, xshorten var left, top, width, height, bpx, bpy, tpx, tpy var x1, y1, x2, y2 var ht,xs,aa,msto var tpxx,tpyy,bpxx,bpyy,minus4 var x,y,px,py wcolor 0,0,0 drawStars() msto = -100 minus4 = -4 bpx=220 : bpy=410 : tpx=bpx 'brown .............................. fcolor 130, 100, 0 aa = minus4 while aa < 4 bpxx=bpx+aa : bpyy=bpy-390 line bpxx, bpy, bpx, bpyy aa = aa + 1 swap wend 'green............................... fcolor 30,120,40 rad=160 : tpy=bpy-40 ht=1 while ht < 40 xs=...

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Wed, 02 Mar 2022 14:54:42 -0000

butterfly... 'butterfly micro(A) var x,y,i,a,turn,rr,gg,bb,cx,cy,cr wcolor 0,0,0 'frontpen 200,200,0 while turn < 30 i=0 fcolor 0,0,0 : rect 0,0,640,480 'print 10,90,turn while i < 120 rr=rand(255) :gg=rand(255): bb=rand(255) fcolor rr,gg,bb x = sin(i+a)*50 - cos(i-a)*i y = cos(i+a)*50 + sin(i-a)*i cx=x+320: cy=y+240: cr=sin(i)*5 circle cx,cy,cr 'pset cx,cy i=i+0.6 'swap wend a = a + 0.073 if a > 360 a = -a endif turn = turn + 0.1 swap 'print 5,5,turn wend

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Wed, 02 Mar 2022 14:53:33 -0000

BlackHole...vortex animation 'test_while/wend_blackHole var w,h,a,r,ps,i,px,py,rad var rr,gg,bb,rx,ry w=640/2 : h=480/2 wcolor 0,0,100 fcolor 200,220,160 print 10,10,"Black hole" a=1 : r=1 label again i=1 wcolor 0,0,0 while i < 60 ps=70/(i/a) rx=cos(i*r)*ps+w ry=sin(i*r)*ps+h circle ry,rx,4 'change values between 0.1 and 0.08 i=i+0.3 'swap wend a=a+0.01 if a < 20 a=a+0.1 r = r - 0.19 endif if r < 360 r=r+0.01 endif if r>360 r=r-1 endif swap goto again 'commenr

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Wed, 02 Mar 2022 14:51:14 -0000

Alien Pipes 'alien_Pipes - micro(A) var lenght,angle,x,y,diff,adiff var x2,y2,counter,a,b,pi,r, px,py,n wcolor 0,0,0 pi=3.14596 lenght = 300 angle = 3.44 x = 400 y = 300 x2 = 55 diff = 1.14 adiff = 0.8 y2 = y fcolor 0,120,80 'line x y x2 y2 lenght = lenght - diff counter = 0 while counter < 360 if counter < 80 : fcolor 0,170,180 : endif if counter > 80 : fcolor 30,80,150 : endif angle = angle + adiff lenght = lenght - diff a = sin(angle*pi) * lenght b = tan(angle*pi/2) * lenght x2 = x + b y2 = y...

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Wed, 02 Mar 2022 14:49:47 -0000

fake pyarmid by Paul Dunn ' Fake 3D Pyramid-by ZXdunny var a,x,y,ya,ab,ax,cr var f,ay,ox,oy,p,px var angle : wcolor 0,0,0 fcolor 100,170,200 : print 4,4,"fakePyramid": swap fcolor 0,0,0 : rect 20,20,400,400 : swap x=400/2 : y=400/2 ya=y-120 : a=18 'main LABEL main f=1 while f < 6 p=0 while p < 6 ab=a+90*f ax=x+100 * cos(ab) ay=y-50 * sin(ab) 'IF f,<,4 fcolor 0,187,250 'line ox,ay,ax,ay if x > 399 :x=200 : endif x=x+0.01 CIRCLE x,ya,4 'set cr=rand(8) CIRCLE ax,ay,4 LINE ox,oy,ax,ay 'ENDIF 'txcolor...

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Wed, 02 Mar 2022 14:47:45 -0000

'"Rotating Pyramid" 'b+ 2022-03-01 -microA version by Aurel var x1,y1,x2,y2,x3,y3,x4,y4 var ax,ay,cx,ex,ey,xr,yr,a,width,Pi width=800 : Pi = 3.14159 cx = width / 2 ax = cx: ay = 50 ' apex ex = cx: ey = 330 ' ellipse xr = cx * 0.7 : yr = 0.33 * xr LABEL DoLoop fcolor 0,0,0: rect 0,0,800,600 'cls x1 = ex + xr * Cos(a) : y1 = ey + yr * Sin(a) x2 = ex + xr * Cos(a + Pi * 0.5) : y2 = ey + yr * Sin(a + Pi * 0.5) x3 = ex + xr * Cos(a + Pi) : y3 = ey + yr * Sin(a + Pi) x4 = ex + xr * Cos(a + Pi * 1.5) :...

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Wed, 02 Mar 2022 14:46:57 -0000

Under this topic i will try to add examples and programs written in micro(A)

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Sat, 12 Jun 2021 10:13:35 -0000

Latest release under main page :use link! 12.6.2021

Zlatko Vidlanovic posted a comment on a blog post

Zlatko Vidlanovic — Sat, 12 Jun 2021 10:11:16 -0000

Another shot with Jungle theme:

Zlatko Vidlanovic created a blog post

Zlatko Vidlanovic — Sat, 12 Jun 2021 10:10:25 -0000

testing GDI images as sprites

Zlatko Vidlanovic created a blog post

Zlatko Vidlanovic — Tue, 20 Apr 2021 12:56:43 -0000

update 20.4.2021

micro(A) Interpreter released /microAEditor.zip

micro(A) Interpreter — Tue, 20 Apr 2021 12:51:04 -0000

Zlatko Vidlanovic created a blog post

Zlatko Vidlanovic — Thu, 15 Apr 2021 09:06:50 -0000

info 15.4.2021

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Tue, 13 Apr 2021 09:28:07 -0000

I open facebook group for micro(A) https://www.facebook.com/groups/470369984111370

Zlatko Vidlanovic posted a comment on discussion micro(A) development

Zlatko Vidlanovic — Mon, 22 Mar 2021 09:54:43 -0000

function stack calls // function or subroutine call inside curly baraces is internal interpreter code myFunc() { fnStack[index] : fst = index } ... label CONTINUE ... .|. .V. .................... func myFunc() .................... label HERE: { fst = fst - 1 } // recursive call from inside // if TRUE .............. myFunc() .............. { fst = fst + 1 } { index = fst } { pos = fnStack[index] } -> return to label HERE end if ......... endFn ......... { fst = fst + 1 } { pc = fnStack[fst] } -> return...

Zlatko Vidlanovic posted a comment on discussion General Discussion

Zlatko Vidlanovic — Sat, 13 Mar 2021 17:57:45 -0000

Little bit improved version using keyboard vkLEFT and vkRIGHT to move letter A left and right 'windows messages test var r,g,b var mx , my, wp ptr wmMouseMove ,wmKeyDown r = 255 : g = 255 : B = 255 wcolor r,g,b : fcolor 40,80,100 print 100,10,"testing WM_MOUSEMOVE and WM_KEYDOWN in micro(A)" print 6,10,"mx" print 6,40,"my" WinMsg wmMOUSEMOVE mousex mx mousey my fcolor 0,0,0 :rect 24,5,68,24 fcolor 100,160,220 : print 30,10,mx fcolor 0,0,0 :rect 24,35,68,24 fcolor 100,160,220 : print 30,40,my fcolor...

micro(A) Interpreter released /microAEditor.zip

micro(A) Interpreter — Thu, 11 Mar 2021 19:38:02 -0000

Zlatko Vidlanovic posted a comment on discussion General Discussion

Zlatko Vidlanovic — Wed, 10 Mar 2021 15:46:16 -0000

Hello date : 10.3.2021 I just tested latest update of micro(A) in which i add Windows message processing. Testing is used by WM_MOUSEMOVE win message like this : 'windows messages test var r,g,b var mx , my ptr wmMouseMove r = 250 : g = 200 : B = 150 wcolor r,g,b fcolor 40,80,100 print 100,140,"testing WM_MOUSEMOVE in micro(A)" print 6,10,"mx" print 6,40,"my" WinMsg wmMOUSEMOVE mousex mx mousey my fcolor 0,0,0 :rect 24,5,68,24 fcolor 100,160,220 : print 30,10,mx fcolor 0,0,0 :rect 24,35,68,24 fcolor...

micro(A) Interpreter released /microAEditor.zip

micro(A) Interpreter — Sun, 03 Jan 2021 19:57:03 -0000