Break ON

:Start
$X=1
$Power=1
$Length=1
$Binval=""
$Exponent=2
$Expval=1
 
CLS
?"           BitCrusher"
?"  Decimal to Binary Calculator"
?"         Made by Muesli"
 
???"  Decimal value: "
 
Gets $Decval 
$EndDecval= $Decval 
While $X=1 
 
While Val($Expval) < Val($Power)
 $Exponent= Val($Exponent) *2
 $Expval= Val($Expval) +1
Loop
 
If Val($Decval) - Val($Exponent)<1
 $X=2
Goto "Result"
 
Else
 $Power= Val($Power) + 1
 $Length= Val($Length) + 1 
EndIf
 
Loop
 
:Result

While $X=2
$Exponent=2 
If $Length<0
 $X=3 
 Goto 'END'
EndIf 
 
While Val($Expval) > 0
 $Exponent= Val($Exponent) *2
 $Expval= Val($Expval) -1
Loop
 
If Val($Decval) - Val($Exponent)>=0
 $Decval= Val($Decval) - Val($Exponent) 
 $Binval= $Binval + "1"
Else
 
 $Binval= $Binval + "0"
 
EndIf
 
$Power= Val($Power) - 1
$Length= Val($Length) - 1
$Expval= Val($Power)
 
Loop
 
:END
If $Decval=1
	$Binval= $Binval + "1"
Else
	$Binval= $Binval + "0"
EndIf

??"The Decimal number "$EndDecval" In Binary is "$Binval
?
?"Again? y/n" Get $Key
If $Key=y
	$X=1
Goto "Start"
Else
	Exit
EndIf
 

 Break ON
$A=1
$Z=1

While $A=1

	
	If $Z=1
		$X=1
		$Power=1
		$Length=1
		$Binval=""
		$Exponent=2
		$Expval=1
		$Z=0
		
		CLS
		?"           BitCrusher"
		?"  Decimal to Binary Calculator"
		?"         Made by Muesli"
		
		???"  Decimal value: "
		
		Gets $Decval 
		$EndDecval= $Decval 
	EndIf
	
	While $X=1 
		
		While Val($Expval) < Val($Power)
			$Exponent= Val($Exponent) *2
			$Expval= Val($Expval) +1
		Loop
		
		If Val($Decval) - Val($Exponent)<1
			$X=2
		
		Else
			$Power= Val($Power) + 1
			$Length= Val($Length) + 1 
		EndIf
		
	Loop
	
	
	While $X=2
		$Exponent=2 
				
		While Val($Expval) > 0
			$Exponent= Val($Exponent) *2
			$Expval= Val($Expval) -1
		Loop
		
		If Val($Decval) - Val($Exponent)>=0
			$Decval= Val($Decval) - Val($Exponent) 
			$Binval= $Binval + "1"
		Else
			$Binval= $Binval + "0"
		
		EndIf
		
		$Power= Val($Power) - 1
		$Length= Val($Length) - 1
		$Expval= Val($Power)
		
		If $Length<0
			$X=3 
		EndIf
		
	Loop
	
	If $X=3
		If $Decval=1
			$Binval= $Binval + "1"
		Else
			$Binval= $Binval + "0"
		EndIf
		
		??"The Decimal number "$EndDecval" In Binary is "$Binval
		?
		?"Again? y/n" Get $Key
		
		If $Key=y
			$X=1
			$Z=1
		Else
			Exit
		EndIf
	EndIf

Loop
  

Break On
 
While 1
 
	CLS
	?"           BitCrusher"
	?"  Decimal to Binary Calculator"
	?"         Made by ???"
	
	???"  Decimal value: "
	
	GetS $DecVal
	$DecVal = 0 + $DecVal
	$EndDecVal= $DecVal 
 
	$BinVal = ''
	If $DecVal < 2
		$BinVal = $DecVal
	Else
		While $DecVal > 1
			$Bit = $DecVal Mod 2
			If $Bit
				$BinVal = '1' + $BinVal
			Else
				$BinVal = '0' + $BinVal
			EndIf
			$DecVal = ($DecVal - $Bit) / 2
		Loop
		$BinVal = '1' + $BinVal
	EndIf
	
	??"The Decimal number " + $EndDecVal + " In Binary is " + $Binval
	?
	?"Again? y/n" Get $Key
	
	If $Key<>y
		Exit
	EndIf
Loop

dim $decVal,$binVal,$temp,$key
do
   CLS
   ?"           BitCrusher"
   ?"  Decimal to Binary Calculator"
    
   ???"  Decimal value: "
    
   Gets $decVal
   $temp = 0+$decVal
   $binVal=''
   do
      $binVal = '' + $temp mod 2 + $binVal
      $temp = $temp/2
   until $temp=0

   ??"The Decimal number " $decVal " In Binary is " $binVal
   ?
   ?"Again? (y/n) " 
   Gets $key
until $key = 'n'

Function b($)
dim $a

	If $+0=$
		Do
			$b = iif($ mod 2,'1','0') + $b
			$ = $ / 2
		Until $ = 0
	Else
		$a = 1
		While $
	 		$b = iif(val(right($,1)), $a, 0) + $b
  			$a = $a * 2
 			$ = Left($,~)
EndFunction

Function b($)
 do
  If $+0=$
   $b = iif($ mod 2,'1','0') + $b
   $ = $ / 2
  else
   $b = 2*$b + left($,1)
   $ = right($,~)
  endif
 Until $ = .
EndFunction

Function b($)
 do
  If $+0=$
   $b = '' + ($ mod 2) + $b
   $ = $ / 2
  else
   $b = 2*$b + left($,1)
   $ = right($,~)
  endif
 Until $ = .
EndFunction

Function b($)
 do
  If $+0=$
   $b = '' + $ mod 2 + $b
   $ = $ / 2
  else
   $b = 2*$b + left($,1)
   $ = right($,~)
  endif
 Until $ = .
EndFunction

Quote:

---

just a side note...
notice that the shortest code is not missing any endif's or loop's
one could say, it's syntaxwise perfect code.

---

pfft...

Code:

---

Function b($)
	While $
		If $+0=$
			$b = '' + $ mod 2 + $b
			$ = $ / 2
		Else
			$b = 2*$b + left($,1)
			$ = right($,~)
EndFunction

---

Score = 88