# Programming Fundamentals/Functions/BASIC

## functions.bas

```' This program asks the user for a Fahrenheit temperature,
' converts the given temperature to Celsius,
' and displays the results.
'
' References:
'     https://www.mathsisfun.com/temperature-conversion.html
'     https://en.wikibooks.org/wiki/BASIC_Programming

DECLARE SUB Main
DECLARE FUNCTION GetFahrenheit
DECLARE FUNCTION CalculateCelsius(Fahrenheit)
DECLARE SUB DisplayResult(Fahrenheit, Celsius)

Main

SUB Main
DIM Fahrenheit
DIM Celsius

Fahrenheit = GetFahrenheit
Celsius = CalculateCelsius(Fahrenheit)
DisplayResult Fahrenheit, Celsius
END SUB

FUNCTION GetFahrenheit()
DIM Fahrenheit

PRINT "Enter Fahrenheit temperature:"
INPUT Fahrenheit

GetFahrenheit = Fahrenheit
END FUNCTION

FUNCTION CalculateCelsius(Fahrenheit)
DIM Celsius

Celsius = (Fahrenheit - 32) * 5 / 9

CalculateCelsius = Celsius
END FUNCTION

SUB DisplayResult(Fahrenheit, Celsius)
PRINT STR\$(Fahrenheit) + "° Fahrenheit is " + STR\$(Celsius) + "° Celsius"
END SUB
```

## Try It

Copy and paste the code above into one of the following free online development environments or use your own BASIC compiler / interpreter / IDE.