RosettaCodeData/Task/Scope-modifiers/BASIC/scope-modifiers-1.basic

 10 X = 1                              	
 20  DEF  FN F(X) = X
 30  DEF  FN G(N) = X
 40  PRINT  FN F(2)
 50  PRINT  FN G(3)