micro(A)v11

[aurel]

Function test with string type as param (v12)

Code: (Select All)

' function with arguments /draw circles
wcolor 0,0,0 : mode 1
var g : g = 50 : str s : s = "Draw->"
fcolor 150,240,150 :print 5,10,"global:": print 100,10,g : swap
' func call with params...
myFn(200, 200, g*2, s)

func myFn(var a,var b, var c , str s2)
str s3 :
  fcolor 250,200,150
  circle a,b,c
  while c > 2
    circle a,b,c
    c=c-2
    swap
  wend
'string concat
s3 = s2 + "Circles"
print 10,250,s3 : swap
endFn