home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Pier Shareware 7
/
The_Pier_Shareware_Number_7_(The_Pier_Exchange)_(1995).iso
/
tbbs
/
files
/
ripnum.prg
< prev
next >
Wrap
Text File
|
1995-05-15
|
560b
|
28 lines
**************************************************
* Decimal to MegaNum and UltraNum Converter
* Written by Alan McNamee
* 01/31/95
**************************************************
public RETVAL
cstr='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz#&'
do ripnum with 4028,4,64
var1=RETVAL
do ripnum with 200,2,36
var2=RETVAL
*******************
proc ripnum
param value, width, base
RETVAL=""
do while width > 0
width=width-1
RETVAL=RETVAL+substr(cstr,int(mod(value/(base^width),base))+1,1)
enddo
return