BCX Console Demonstration Program s22.bas

 DIM A!            ' global 
 DIM B!            ' global 
 DIM C!            ' global 
 
 C! = 100.123     '<<< This value should not change! 
 B! = 123         '<<< This value should not change! 
 A! = Fun!(B!, C!) '<<< C allows type translation automatically! 
 
 PRINT "The value of A! = ", A!
 PRINT "The value of B! should still be <123> ...", B!
 
 FUNCTION Fun! (Y, Z)
   DIM A$
   DIM B!
   A$ = "Hello from inside our function!"    ' a local string variable 
   PRINT A$
   'The B! variable below is the local 
   'The C! variable is the global variable 
   'The Z variable is the function parameter Variable 
   B! = 3 * Z + C! + Y
   FUNCTION = B!
 END FUNCTION

Result:


 Hello from inside our function!
 The value of A! =  523.123
 The value of B! should still be <123> ... 123