Is Number Odd?

[sayzer]

I also have another one.

Mine does two calculations and compares the results in case the processor is going weird.
And even more, has a bug report feature.

Ski, is this ridiculous enough? I can go deeper.

</i></font>TestNumber  <font color="#000080"><b>VAR WORD
</b></font>Index       <font color="#000080"><b>VAR BYTE
</b></font>Result1     <font color="#000080"><b>VAR BIT
</b></font>Result2     <font color="#000080"><b>VAR BIT
</b></font>FinalResult <font color="#000080"><b>VAR BIT
</b></font>Even        <font color="#000080"><b>CON </b></font><font color="#FF0000"><b>0
</b></font>Odd         <font color="#000080"><b>CON </b></font><font color="#FF0000"><b>1
</b></font>Err         <font color="#000080"><b>CON </b></font><font color="#FF0000"><b>2

</b></font>Begin:
  
  Result1 = Even
  <font color="#000080"><b>FOR </b></font>Index = <font color="#FF0000"><b>1 </b></font><font color="#000080"><b>TO </b></font><font color="#FF0000"><b>9 </b></font><font color="#000080"><b>STEP </b></font><font color="#FF0000"><b>2
      </b></font><font color="#000080"><b>IF </b></font>TestNumber <font color="#000080"><b>DIG </b></font><font color="#FF0000"><b>0 </b></font>= Index <font color="#000080"><b>THEN 
         </b></font>Result1 = Odd
         Index = <font color="#FF0000"><b>11 </b></font><font color="#000080"><i>' Exit loop.
      </i><b>ENDIF
  NEXT </b></font>Index
  

<font color="#000080"><i>' To make sure, do another calculation !!

  </i></font>Result2 = Odd
  <font color="#000080"><b>IF </b></font>TestNumber <font color="#000080"><b>DIG </b></font><font color="#FF0000"><b>0 </b></font>= <font color="#FF0000"><b>0 </b></font><font color="#000080"><b>OR </b></font>TestNumber <font color="#000080"><b>DIG </b></font><font color="#FF0000"><b>0 </b></font>= <font color="#FF0000"><b>2 </b></font><font color="#000080"><b>OR </b></font>TestNumber <font color="#000080"><b>DIG </b></font><font color="#FF0000"><b>0 </b></font>= <font color="#FF0000"><b>4 </b></font><font color="#000080"><b>OR </b></font>TestNumber <font color="#000080"><b>DIG </b></font><font color="#FF0000"><b>0 </b></font>= <font color="#FF0000"><b>6 </b></font><font color="#000080"><b>OR </b></font>TestNumber <font color="#000080"><b>DIG </b></font><font color="#FF0000"><b>0 </b></font>= <font color="#FF0000"><b>8 </b></font><font color="#000080"><b>THEN </b></font>Result2 = Even
  
  
<font color="#000080"><i>' And finally, compare the results;

  </i><b>IF </b></font>Result1 = Result2 <font color="#000080"><b>AND </b></font>Result1 = Odd <font color="#000080"><b>THEN 
     </b></font>FinalResult = Odd
     <font color="#000080"><b>LCDOUT </b></font><font color="#FF0000"><b>$fe</b></font>,<font color="#FF0000"><b>1</b></font>,  <font color="#008000"><b>&quot;Result1   :&quot;</b></font>,#Result1 
     <font color="#000080"><b>LCDOUT </b></font><font color="#FF0000"><b>$fe</b></font>,<font color="#FF0000"><b>$c0</b></font>,<font color="#008000"><b>&quot;Result2   :&quot;</b></font>,#Result2
     <font color="#000080"><b>LCDOUT </b></font><font color="#FF0000"><b>$fe</b></font>,<font color="#FF0000"><b>$94</b></font>,<font color="#008000"><b>&quot;FinalResult:&quot;</b></font>,#FinalResult
  <font color="#000080"><b>ELSE
     </b></font>FinalResult = Err
     <font color="#000080"><b>LCDOUT </b></font><font color="#FF0000"><b>$fe</b></font>,<font color="#FF0000"><b>1</b></font>,  <font color="#008000"><b>&quot;Unknown Error Occured!&quot;
     </b></font><font color="#000080"><b>LCDOUT </b></font><font color="#FF0000"><b>$fe</b></font>,<font color="#FF0000"><b>$c0</b></font>,<font color="#008000"><b>&quot;Reporting to support page...&quot;
     </b></font><font color="#000080"><b>HSEROUT </b></font>[<font color="#008000"><b>&quot;weblink:www.picbasic.co.uk/forum&quot;</b></font>]
     <font color="#000080"><b>PAUSE </b></font><font color="#FF0000"><b>100
     </b></font><font color="#000080"><b>HSEROUT </b></font>[<font color="#008000"><b>&quot;@Msg:alert@bug found&quot;</b></font>]
  <font color="#000080"><b>ENDIF    



GOTO </b></font>Begin