home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / SCRNUZ / MEMATTRI.PRG < prev    next >
Text File  |  1991-12-13  |  1KB  |  30 lines
  1. *----------------------------------------------------------------------------
  2. *
  3. *   Program Name: MEMATTRI.PRG      Copyright: EDON Corporation                                         
  4. *   Date Created: 02/24/91           Language: Clipper S'87                                             
  5. *   Time Created: 08:39:13             Author: Ed Phillips                               
  6. *    Description: Alt-A (Current Attribute) function for memscrn.prg
  7. *----------------------------------------------------------------------------
  8.  
  9. PROCEDURE ScrnAttrib
  10.    PRIVATE cur_char, colorstrng
  11.  
  12.    colorstrng = 'N  B  G  BG R  BR GR W  N+ B+ G+ BG+R+ BR+GR+W+ '
  13.  
  14.    cur_char = Savescreen(r,c,r,c)
  15.    Setcolor(Color_n2s(Bin2w(Subs(cur_char,2,1)+Chr(0))))
  16. RETURN
  17.  
  18.  
  19.  
  20. *----------------------------
  21. *         Author: Ed Phillips
  22. *   Date Created: 02/24/91
  23. *   convert color number (0-127) to color string
  24. *----------------------------
  25. FUNCTION Color_n2s
  26.    PARAM colorno
  27. RETURN (Trim(Subs(colorstrng, (colorno % 16) * 3 + 1, 3)) + '/' + ;
  28.         Trim(Subs(colorstrng, Int(colorno / 16) * 3 + 1, 3)))
  29. * EOF: Memattri.prg
  30.