On expression Goto label1[, ...]

Ветвление в разные метки в зависимости от значения expression. Значение выражения 1 будет переходить на первую метку, значение 2 на вторую и т.д. Если значение expression равно нулю (0) или больше числа элементов в списке, выполнение продолжается на следующем операторе после On...Goto.

Рекомендуется структурированный условный оператор Select Case вместо On...Goto.

Dim choice As Integer

Input "Enter a number: ", choice

On choice Goto labela, labelb, labelc

labela:
Print "choice a"
End

labelb:
Print "choice b"
End

labelc:
Print "choice c"
End

• FreeBASIC не генерирует ошибку времени выполнения, если expression является отрицательным или больше 255.
  
  

• Select Case
  
• On...Gosub
  
• Goto