'' examples/manual/datatype/ushort.bas
''
'' Example extracted from the FreeBASIC Manual
'' from topic 'USHORT'
''
'' See Also: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgUshort
'' --------

  Dim x As UShort = 0
  Dim y As UShort = &HFFFF
  Print "UShort Range = "; x; " to "; y
