array problem

[ro37bis]

Hi Melanie,
usefull!!
Tnk you very much!!!!!!!
Roberto

[sayzer]

Like this ?

array var word [5]
C var byte
Temp Var word


for c = 0 to 5
   
   Temp = array[C]
   if temp.highbyte = 0 then gosub Compute

next c

[mister_e]

Or maybe

array var word [5]
C var byte

    for c = 0 to 5
        if (array[C]>>8) = 0 then gosub Compute
        next
    end

Compute:
    'Do something
    return

another method...

array var word [5]
C var byte

    for c = 0 to 5
        if array[C]<=$00FF then gosub Compute
        next
    end

Compute:
    'Do something
    return

[SteveB]

Roberto, Sayzer and Steve

Me thinks you will avoid much trouble if the array has 6 elements, or the FOR...NEXT counts from 0 to 4.

Steve B

[mister_e]

LMAO! ssshhhhhhut!

[sayzer]

I know that Steve sleeps only a few hrs from late morning to later morning.

Just like I do.


Don't know about Roberto's.

--------------------

[ro37bis]

Hi guys,
thank you for the support.

I tested all of your suggestion.
the Sayzer solution require 34 bytes,
the 1st Mister_e solution require 83 bytes,
the 2nd solution require 66 bytes.
the Melanie idea for solution:
---------------
array var word [5]
C var byte

for c = 1 to 9 step 2
if array.lowbyte(c) = 0 then gosub Compute
next
end

Compute:
'Do something
return
------------------
require 35 bytes.

The winner is:......... Sayzer.

bye
Roberto