home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / useful / dist / dev / lang / ace / prgs / shellutils / base.b next >
Text File  |  1994-01-16  |  312b  |  21 lines
  1. deflng x
  2.  
  3. SUB usage
  4.   print "usage: base <decimal number>"
  5.   stop
  6. END SUB
  7.  
  8. if argcount<>1 then
  9.   usage
  10. else
  11.   if arg$(1)="?" then 
  12.     usage
  13.   else
  14.     x=val(arg$(1))
  15.     print "    Decimal:";x
  16.     print "Hexadecimal: ";hex$(x)
  17.     print "      Octal: ";oct$(x)
  18.     print "     Binary: ";bin$(x)
  19.   end if
  20. end if
  21.