home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST68.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  593 b   |  22 lines
  1. ********************
  2.  
  3. FUNCTION Hideget
  4.  
  5.    PARAMETERS _hideit
  6.  
  7.    PRIVATE _a, _b, _c, _d, _e, _retstr
  8.  
  9.    _a = AT("/", _hideit)
  10.    _b = SUBSTR(_hideit, AT(",", _hideit) + 1)
  11.    IF EMPTY(AT("/", _b))                          && Only Standard colors
  12.       _retstr = _hideit + "," + SUBSTR(_hideit, _a + 1)
  13.    ELSE
  14.       _c = AT("/", _b)
  15.       _d = SUBSTR(_hideit, 1, AT(",", _hideit))      && The Standards
  16.       _e = SUBSTR(_hideit, _a + 1, AT(",", _hideit) - _a - 1)
  17.       _retstr = _d + _e + "/" + _e + SUBSTR(_b, AT(",", _b))
  18.    ENDIF
  19.    RETURN(_retstr)
  20.  
  21. * End of File
  22.