Re: Number Conversions

 BBS: Inland Empire Archive
Date: 03-22-92 (17:30)             Number: 158
From: DONN BLY                     Refer#: NONE
  To: KEVIN NEWELL                  Recvd: NO  
Subj: Re: Number Conversions         Conf: (2) Quik_Bas
 > I am looking for a quickie and easy way to convert
 > decimal to base 36 I have seen some code in the past,
 > but I can not  find it...

Is this what you want?

FUNCTION Base36$ (Number&)
   Hold& = Number&
   OutPut$ = ""
   DO
      NewHold& = Hold& \ 36
      Digit% = Hold& - NewHold& * 36
      IF Digit% < 10 THEN Digit% = Digit% + 48 ELSE Digit% = Digit% + 55
      OutPut$ = CHR$(Digit%) + OutPut$
      Hold& = NewHold&
   LOOP WHILE Hold&
   Base36$ = OutPut$
END FUNCTION

--- OPMED 3.00
 * Origin: The Loft *HST/DS/V42bis* [NC, SDS] (1:236/7)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET