Das Open-Control-Projekt - Die Alternative zur C-Control-I


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Re: To turn a WORD Kategorie: Programmierung Basic (von Windt H.J. - 17.09.2005 20:48)
 Als Antwort auf To turn a WORD von Hans - 17.09.2005 18:42
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

Bisherige Antworten:

Re: To turn a WORD (von Hans - 17.09.2005 22:38)