micro(A) progies

[Zlatko Vid]

for testing..

Code Select Expand

'usr func test 3 /locals
mode 1 : wcolor 0,0,0 : fcolor 150,210,150
print 10,20,"usr func test_3 /locals in micro(A)" : swap

func mA(var res)
    var a,b,c
    a=20
    b=40
    c=a*b
    fcolor 250,210,150 : print 50,50,c : swap
endfn

'call fn mA()
mA()

[Zlatko Vid]

...elegant translation from me-myself-and-I