a = 1.2345
    print Secant(a)
    print eval("FNSecant(a)")
    end

function Secant(a)
    Secant = 1 / COS(a)
end function 

    var$ = "abc"
    num = 5.4321
    dummy = eval("FNassign(";var$;",";num;")")
    print abc
    end

function assign(byref n, v)
    n = v
end function 

for i = 0 to 5
  button #m.btn;i,str$(i),ul,btn,i*50,50,50,50
next i
wait
sub btn h$
  b = val( right$( #h$ , len( #h$ ) - 5 )
  notice "you pushed button " ; b
end sub
 

for i = 0 to 5
  button #m.btn,str$(i),btn,ul,i*50,50,50,50
  maphandle #m.btn, "#m.btn";i
next i
open "Multiple buttons" for window as #m
wait

sub btn h$
  b = val( right$( h$ , 1))
  notice "you pushed button " ; b
end sub