In MCS save your project as htm. Open the htm in notepad or something like that. Copy the htm to the post between code tags.
Code:
' Convert numeric value to ASCII hexadecimal equivalents.
</i></font><font color="#FF0000"><b>INCLUDE </b></font><font color="#00FF00"><b><i>"bs1defs.bas" </i></b></font><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>0 <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>,[13,10] <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>/ 16 <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>& 15
<font color="#0000FF"><b>HexB11</b></font>: <font color="#FF0000"><b>LOOKUP </b></font><font color="#0000FF"><b>B11</b></font>,[<font color="#00FF00"><b><i>"0123456789ABCDEF"</i></b></font>],<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>
Above code is from MeLabs web site.
Bookmarks