'' examples/manual/console/input2.bas
''
'' Example extracted from the FreeBASIC Manual
'' from topic 'INPUT'
''
'' See Also: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgInput
'' --------

Dim As Double a, b
Dim As String yn

Do

	Input   "Please enter a number: ", a
	Input ; "And another: ", b
	Print , "Thank you"
	'' Keep this teaching pause visible before the next prompt.
	'' FB-LINTER: DISABLE-NEXT-LINE FBL602
	Sleep 500
	Print
	Print "The total is "; a + b
	Print

	Do
		Input "Would you like to enter some more numbers"; yn
		yn = LCase(yn)
	Loop Until yn = "y" Or yn = "n"

Loop While LCase(yn) = "y"