home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a013 / 1.ddi / SOURCE.EXE / F_SWAPCO.PRG < prev    next >
Encoding:
Text File  |  1991-01-25  |  1.2 KB  |  47 lines
  1. *****************************************************************
  2. FUNCTION SWAPCOLOR (swaprow, swapcol, swapdata, swappict)
  3. *****************************************************************
  4.  
  5. * Reverses standard and enhanced colors in a color string
  6.  
  7. * Copyright(c) 1991 -- James Occhiogrosso
  8.  
  9.  
  10. LOCAL comma1, comma2, new_color, old_color
  11.  
  12. * Save current color
  13. old_color = SETCOLOR()
  14.  
  15. * Locate comma positions for SAY/GET colors
  16. comma1 = AT(',', old_color)
  17. comma2 = comma1 + AT(',', SUBSTR(old_color, comma1+1))
  18. new_color = (SUBSTR(old_color, comma1+1, comma2-comma1) +    ;
  19.             SUBSTR(old_color, 1, comma1) + SUBSTR(old_color, ;
  20.             comma2+1))
  21.  
  22. IF PCOUNT() >= 2
  23.     * Set reversed colors
  24.     SETCOLOR(new_color)
  25.  
  26.     IF PCOUNT() = 4
  27.         * Format passed, use it to display data
  28.         @ swaprow, swapcol SAY swapdata PICTURE swappict
  29.  
  30.     ELSEIF PCOUNT() = 2
  31.         * No data passed position cursor and return
  32.         SETPOS(swaprow, swapcol)
  33.  
  34.     ELSE
  35.         * Display data without formatting
  36.         @ swaprow, swapcol SAY swapdata
  37.  
  38.     ENDIF
  39.  
  40.     * Restore original color setting
  41.     SETCOLOR(old_color)
  42. ENDIF
  43.  
  44. * Return reversed color string
  45. RETURN new_color
  46.  
  47.