OK,OK...
I will change it
Mr. Zappa convinced me...
Code:
' Convert numeric value to ASCII hexadecimal equivalents.

        </i></font><font color="#FF0000"><b>INCLUDE </b></font><b><i>&quot;bs1defs.bas&quot;           </i></b><font color="#000080"><i>' Include BS1 variable and serial definitions

</i></font><font color="#0000FF"><b>SO      </b></font><font color="#FF0000"><b>CON     </b></font><font color="#800000"><b>0                       </b></font><font color="#000080"><i>' Define serial out

</i></font><font color="#0000FF"><b>mainloop</b></font>: <font color="#0000FF"><b>W6 </b></font>= <font color="#0000FF"><b>W0 </b></font>: <font color="#FF0000"><b>GOSUB </b></font><font color="#0000FF"><b>HexW          </b></font><font color="#000080"><i>' Print W0
        </i></font><font color="#FF0000"><b>SEROUT </b></font><font color="#0000FF"><b>SO</b></font>,<font color="#0000FF"><b>N2400</b></font>,[<font color="#800000"><b>13</b></font>,<font color="#800000"><b>10</b></font>]         <font color="#000080"><i>' Print end of line
</i></font>	<font color="#FF0000"><b>RANDOM </b></font><font color="#0000FF"><b>W0</b></font>			<font color="#000080"><i>' Randomize W0
        </i></font><font color="#FF0000"><b>GOTO </b></font><font color="#0000FF"><b>mainloop                   </b></font><font color="#000080"><i>' Do this forever!!!

                                        ' Send W6 as XXXX (Uses W5)
</i></font><font color="#0000FF"><b>HexW</b></font>:   <font color="#FF0000"><b>GOSUB </b></font><font color="#0000FF"><b>HexB13                    </b></font><font color="#000080"><i>' Print MSB
        </i></font><font color="#0000FF"><b>B13 </b></font>= <font color="#0000FF"><b>B12                       </b></font><font color="#000080"><i>' Print LSB
</i></font><font color="#0000FF"><b>HexB13</b></font>: <font color="#0000FF"><b>B11 </b></font>= <font color="#0000FF"><b>B13 </b></font>/ <font color="#800000"><b>16                  </b></font><font color="#000080"><i>' Print MSN
</i></font>	<font color="#FF0000"><b>GOSUB </b></font><font color="#0000FF"><b>HexB11
</b></font>	<font color="#0000FF"><b>B11 </b></font>= <font color="#0000FF"><b>B13 </b></font>&amp; <font color="#800000"><b>15
</b></font><font color="#0000FF"><b>HexB11</b></font>: <font color="#FF0000"><b>LOOKUP </b></font><font color="#0000FF"><b>B11</b></font>,[<b><i>&quot;0123456789ABCDEF&quot;</i></b>],<font color="#0000FF"><b>B10     </b></font><font color="#000080"><i>' B10 = HEX$(B11)
        </i></font><font color="#FF0000"><b>SEROUT </b></font><font color="#0000FF"><b>SO</b></font>,<font color="#0000FF"><b>N2400</b></font>,[<font color="#0000FF"><b>B10</b></font>]
	<font color="#FF0000"><b>RETURN

</b></font>