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