home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / UTILITY / 4DOS / 4DTNT.ZIP / STRING.ZIP / WHATYPE.BTM < prev    next >
Encoding:
Text File  |  1991-10-29  |  512 b   |  18 lines
  1. if "%1" == "" goto help
  2. setlocal
  3. set $foo=%@upper[%1]
  4. set $wstr=0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ
  5. set $i=0
  6. set $r=0
  7. :valloop
  8. set $val=%@index[%$wstr,%@substr[%$foo,%$i,1]]
  9. if %$val lt 0 quit 99
  10. if %$r le %$val set $r=%@eval[%$val+1]
  11. set $i=%@eval[%$i+1]
  12. if %$i lt %@len[%$foo] goto valloop
  13. quit %$r
  14.  
  15. :help
  16. echo Usage %@name[%0] string
  17. echo Errorlevel = number base (1 - 36) of string or 99 for not valid.
  18. quit 99