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.
Above code is from MeLabs web site.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>





Bookmarks