home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMIGA PD 1
/
AMIGA-PD-1.iso
/
Programme_zum_Heft
/
Programmieren
/
Kurztests
/
ACE
/
Prgs
/
ShellUtils
/
base.b
next >
Wrap
Text File
|
1994-01-16
|
312b
|
21 lines
deflng x
SUB usage
print "usage: base <decimal number>"
stop
END SUB
if argcount<>1 then
usage
else
if arg$(1)="?" then
usage
else
x=val(arg$(1))
print " Decimal:";x
print "Hexadecimal: ";hex$(x)
print " Octal: ";oct$(x)
print " Binary: ";bin$(x)
end if
end if