home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST59.PRG < prev    next >
Encoding:
Text File  |  1989-09-08  |  1.0 KB  |  32 lines
  1. *********************
  2.  
  3. FUNCTION Set_color
  4.  
  5.    PARAMETERS _setvalue
  6.  
  7.    PRIVATE _tval1, _tval2, _retstr
  8.  
  9.    * based on the ASCII value of the screen attribute byte as
  10.    * established by the ATTRIBUTE function, this function returns
  11.    * a string with the appropriate screen colors.
  12.  
  13.    _retstr = ""
  14.    
  15.    IF PCOUNT() = 1
  16.       IF TYPE("_setvalue") = "N"
  17.          _tval1 = VAL(TRANSFORM(_setvalue % 16, "99"))
  18.          _tval2 = VAL(TRANSFORM(_setvalue / 16 , "99"))
  19.  
  20.          IF _tval1 > 7
  21.             _retstr = LTRIM(TRIM(TRANSFORM(_tval1 - 8, "99"))) + "+/" + LTRIM(TRIM(TRANSFORM(_tval2 - 1, "99"))) + ", " + ;
  22.                       LTRIM(TRIM(TRANSFORM(_tval2 - 1, "99"))) + "/" + LTRIM(TRIM(TRANSFORM(_tval1 - 8, "99")))
  23.          ELSE
  24.             _retstr = LTRIM(TRIM(TRANSFORM(_tval1, "99"))) + "/" + LTRIM(TRIM(TRANSFORM(_tval2, "99"))) + ", " + ;
  25.                       LTRIM(TRIM(TRANSFORM(_tval2, "99"))) + "/" + LTRIM(TRIM(TRANSFORM(_tval1, "99"))) 
  26.          ENDIF
  27.       ENDIF
  28.    ENDIF
  29.    RETURN(_retstr)
  30.  
  31. * End of File
  32.