'' examples/manual/strings/valint.bas
''
'' Example extracted from the FreeBASIC Manual
'' from topic 'VALINT'
''
'' See Also: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgValint
'' --------

Dim a As String, b As Long
a = "20xa211"
b = ValInt(a)
Print a, b