End (Statement)
Control flow statement to end the program.
Syntax
`
Declare Sub End ( ByVal retval As Long = 0 )
`
Usage
`
End [ retval ]
`
Parameters
`retval`
Error code returned to system.
Description
Used to exit the program, and return to the operating system. An optional integer return value can be specified to indicate an error code to the system. If no return value is given, a value of `0` is automatically returned at the end of the program.
Usage of this statement does not cleanly close scope. Local variables will not have their destructors called automatically, because FreeBASIC does not do stack unwinding. Only the destructors of global variables will be called in this case.
For this reason, it is discouraged to use `End` simply to mark the end of a program; the program will come to an end automatically, and in a cleaner fashion, when the last line of module-level code has executed.
Example
`
'' This program requests a string from the user, and returns an error
'' code to the OS if the string was empty
Function main() As Integer
'' assign input to text string
Dim As String text
Line Input "Enter some text ( try ""abc"" ): " , text
'' If string is empty, print an error message and
'' return error code 1 (failure)
If( text = "" ) Then
Print "ERROR: string was empty"
Return 1
End If
'' string is not empty, so print the string and
'' return error code 0 (success)
Print "You entered: " & text
Return 0
End Function
'' call main() and return the error code to the OS
End main()
`
Platform Differences

- In Linux, the `retval` parameter is a `Byte`.

Differences from QB

- The END statement supports specifying a custom return value to be returned to the operating system.

See also

- `End (Block)`
- `Return (From Procedure)`
- `Return (From Gosub)`
- `System`