'' examples/manual/math/sgn.bas
''
'' Example extracted from the FreeBASIC Manual
'' from topic 'SGN'
''
'' See Also: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgSgn
'' --------

Dim N As Integer = 0

Print Sgn ( -1.87 )
Print Sgn ( 0 )
Print Sgn ( 42.658 )
Print Sgn ( N )