home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST212.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  1.3 KB  |  54 lines
  1. ********************
  2.  
  3. FUNCTION Numcolor
  4.  
  5.    PARAMETERS _colors
  6.  
  7.    IF EMPTY(PCOUNT())
  8.       RETURN("")
  9.    ELSEIF TYPE("_colors") != "C"
  10.       RETURN("")
  11.    ENDIF
  12.  
  13.    _colors = UPPER(STRTRAN(_colors, " ", ""))
  14.  
  15.    PRIVATE _recolor, _qaz
  16.  
  17.    _recolor = ""
  18.  
  19.    FOR _qaz = 1 TO LEN(_colors)
  20.       IF SUBSTR(_colors, _qaz, 1) $",/+*01234567"
  21.          _recolor = _recolor + SUBSTR(_colors, _qaz, 1)
  22.       ELSEIF SUBSTR(_colors, _qaz, 1) = "B"
  23.          IF SUBSTR(_colors, _qaz+1, 1) = "G"
  24.             _recolor = _recolor + "3"
  25.             _qaz = _qaz + 1
  26.          ELSE
  27.             _recolor = _recolor + "1"
  28.          ENDIF
  29.  
  30.       ELSEIF SUBSTR(_colors, _qaz, 1) = "G"
  31.          IF SUBSTR(_colors, _qaz+1, 1) = "R"
  32.             _recolor = _recolor + "6"
  33.             _qaz = _qaz + 1
  34.          ELSE
  35.             _recolor = _recolor + "2"
  36.          ENDIF
  37.  
  38.       ELSEIF SUBSTR(_colors, _qaz, 1) = "R"
  39.          IF SUBSTR(_colors, _qaz+1, 1) = "B"
  40.             _recolor = _recolor + "5"
  41.             _qaz = _qaz + 1
  42.          ELSE
  43.             _recolor = _recolor + "4"
  44.          ENDIF
  45.       ELSEIF SUBSTR(_colors, _qaz, 1) $ "WU"
  46.          _recolor = _recolor + "7"
  47.       ELSE
  48.          _recolor = _recolor + "0"
  49.       ENDIF
  50.    NEXT
  51.    RETURN(_recolor)
  52.  
  53. * End of File
  54.