  INFO - FAQ - CC2-Forum - CCPro-Forum |
|
||
|
This is great It works great i don't know how it works, but i am going to study it to find out i am going to use this and i thank You very much > Try this out. > Greetings, > H.J. Windt > > define word1 word[1] > define word2 word[2] > > define loop byte[5] > > > #start > input word1 > > for loop = 1 to 16 > if (word1 and 1) <> 0 then word2 = (word2 or 1) else word2 = (word2 and &b1111111111111110) > if loop = 16 then goto pass > word1 = word1 shr 1 > word2 = word2 shl 1 > #pass > next > word1 = word2 > > print word1 > goto start > |
| Antwort schreiben |