Code:

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'