Include "bs1defs.bas" SO Con 0 ' Define serial out Ana: W6 = W0 : Gosub HexW Serout SO,N2400,[13,10] Random W0 Goto Ana HexW: Gosub HexB13 ' Print MSB B13 = B12 ' Print LSB HexB13: B11 = B13 / 16 ' Print MSB Gosub HexB11 B11 = B13 & 15 HexB11: Lookup B11,["0123456789ABCDEF"],B10 ' B10 = HEX$(B11) Serout SO,N2400,[B10] Return End