將Delphi按位操作轉換爲Cobol

Question

此代碼如何轉換爲COBOL？

Result := GetSysColor(Color and $000000FF) 

值類型是DWORD，我想這是一個按位操作。

Answer 1

是的，這是一個按位操作，但是，這種專門操作。如果我沒有記錯我的COBOL相當於

COMPUTE Result = Color mod 256. 

或者

COMPUTE Result = MOD(Color, 256). 

。自從我編寫了一行COBOL以來，已經有 數十年的時間了 年。