* Define Function
  DEFINE('cvt_feet_to_meters(feet),meter_per_foot','cvt_label')
* Variables are global unless defined local in function.
* Above meter_per_foot is local
* Below feet_per_meter is global
  feet_per_meter = 3.28
  
  my_height_feet = INPUT
  my_height_meters = cvt_feet_to_meters(my_height_feet)
  
  OUTPUT = "Snobol4 output"
  OUTPUT = "my_height_feet = " my_height_feet 
  OUTPUT = "my_height_meters = " my_height_meters :(end)

* Function Body
cvt_label 
  meter_per_foot = 1.0 / feet_per_meter
  cvt_feet_to_meters = feet * meter_per_foot :(return)
END