' LOOKUP & RANDOM Commands ' ' Convert numeric value to ASCII hexadecimal equivalents. Include "bs1defs.bas" ' Include BS1 variable and serial definitions SO con 0 ' Define serial out loop: W6 = W0 : Gosub HexW ' Print W0 Serout SO,N2400,[13,10] ' Print end of line Random W0 ' Randomize W0 Goto loop ' Do this forever!!! ' Send W6 as XXXX (Uses W5) HexW: Gosub HexB13 ' Print MSB B13 = B12 ' Print LSB HexB13: B11 = B13 / 16 ' Print MSN Gosub HexB11 B11 = B13 & 15 HexB11: Lookup B11,["0123456789ABCDEF"],B10 ' B10 = HEX$(B11) Serout SO,N2400,[B10] Return