lang/basic/test/test25.b

   1 100 rem declare parameterless functions
   2 120 def fnpi= 3.14
   3 130 print fnpi, fnpi+2
   4 140 def fnsqr(x)= x*x
   5 150 print fnsqr(2.0)
   6 240 def fnpow(x,k)= x-k
   7 250 print fnpow(2.0,3.0)