Jump to content

Two identical strings: Difference between revisions

Two identical strings (view source)

Revision as of 03:00, 31 October 2021

266 bytes removed ,  2 years ago
→‎{{header|Liberty BASIC}}
No edit summary
Line 2,168:
 
Function DecToBin$(decNum)
IfWhile decNum < 0 Then
decNumR = (65535 + decNum +Mod 12)
DecToBin$ = "1" + R;DecToBin$▼
End If
If ((decNum <> 0) And (decNum = Int(decNum/ 2))) Then
ElseWend▼
decNum = Abs(decNum)
If (DecToBin$ = "") Then DecToBin$ = "0"▼
Do
If (decNum And 2^i) Then
▲ DecToBin$ = "1" + DecToBin$
Else
DecToBin$ = "0" + DecToBin$
End If
i = i + 1
Loop Until (2^i > decNum)
▲ Else
▲ DecToBin$ = "0"
End If
End Function</lang>
 
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/310902"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information