Input "Decimal?",A
" "->Str0
While A
A-2int(.5A->B
If B
Then
Str0+"1->Str0
Else
Str0+"0->Str0
End
int(.5A->A
End
length(Str0->B
sub(Str0,2,B-1->Str0
" "->Str1
For C,B,1,-1
Str1+sub(Str0,C,1->Str1
End
sub(Str1,2,B-1->Str1
Pause Str1
DelVar Str0DelVar Str1

const char *IntToBase(unsigned long n, unsigned short bytewidth) {
  assert(bytewidth>0 && bytewidth<=6);
  static char TChar[] = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";
  static char buffer[sizeof(n) * 8 + 1];
  char *ptr = buffer + sizeof(buffer);
  unsigned short mask = (1 << bytewidth) - 1;
  *(--ptr) = 0x00;
  do {
    *(--ptr) = TChar[n & mask];
  } while((n >>= bytewidth));

  return (const char *)ptr;
}

void _main(void) {
  unsigned long n = 6546412;
  printf("Nombre : %lu\n", n);
  printf("Binaire : %s\n", IntToBase(n, 1));
  printf("Octale : %s\n", IntToBase(n, 3));
  printf("Hexadecimale : %s\n", IntToBase(n, 4)); 

  ngetchx();
}

If B
Then
Str0+"1->Str0
Else
Str0+"0->Str0
End
int(.5A->A
End

Str0+sub("01",B+1,1)