"Show us your Colors" is hiding in the ether


Results 1 to 9 of 9

Threaded View

  1. #2
    Join Date
    Nov 2003
    Location
    Wellton, U.S.A.
    Posts
    5,924


    Did you find this post helpful? Yes | No

    Default

    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>&quot;bs1defs.bas&quot;           </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>&amp; 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>&quot;0123456789ABCDEF&quot;</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.
    Last edited by mackrackit; - 20th September 2009 at 19:20.
    Dave
    Always wear safety glasses while programming.

Members who have read this thread : 0

You do not have permission to view the list of names.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts