home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST218.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  537 b   |  27 lines
  1. ********************
  2.  
  3. FUNCTION Brighten
  4.  
  5.    PARAMETERS _color, _withblink
  6.  
  7.    IF EMPTY(PCOUNT())
  8.       RETURN("")
  9.    ELSEIF TYPE("_color") + TYPE("_withblink") != "CL"
  10.       RETURN("")
  11.    ENDIF
  12.  
  13.    PRIVATE _newcolor, _qaz
  14.  
  15.    _newcolor = ""
  16.  
  17.    FOR _qaz = 1 TO LEN(_color)
  18.       IF SUBSTR(_color, _qaz, 1) = "/"
  19.          _newcolor = _newcolor + IF(_withblink, "*+", "+") + "/"
  20.       ELSE
  21.          _newcolor = _newcolor + SUBSTR(_color, _qaz, 1)
  22.       ENDIF
  23.    NEXT
  24.    RETURN(_newcolor)
  25.          
  26. * End of File
  27.