home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a013 / 1.ddi / SOURCE.EXE / F_BACKCH.PRG < prev    next >
Encoding:
Text File  |  1991-01-25  |  1.1 KB  |  39 lines
  1. *****************************************************************
  2. FUNCTION BACKCHAR (top, left, bottom, right, back_char, color)
  3. *****************************************************************
  4.  
  5. * Fills a screen area with specified background character
  6.  
  7. * Copyright(c) 1991 -- James Occhiogrosso
  8.  
  9. LOCAL counter, old_color
  10.  
  11. * Set default background if value not passed
  12. IF VALTYPE(back_char) == 'N'
  13.     back_char = CHR(back_char)
  14. ELSEIF back_char == NIL .OR. VALTYPE(back_char) != 'C'
  15.     back_char = CHR(176)
  16. ENDIF
  17.  
  18. * Use current color if no color passed
  19. old_color  = IF(VALTYPE(color) == 'C', ;
  20.                 SETCOLOR(color), SETCOLOR())
  21.  
  22. * Set defaults for any coordinates not passed
  23. top    =  IF(VALTYPE(top   ) == 'N', top   , 0)
  24. left   =  IF(VALTYPE(left  ) == 'N', left  , 0)
  25. bottom =  IF(VALTYPE(bottom) == 'N', bottom, MAXROW())
  26. right  =  IF(VALTYPE(right ) == 'N', right , MAXCOL())
  27.  
  28.  
  29. * Fill the display with background character
  30. back_line = REPLICATE(back_char, (right-left) + 1)
  31. FOR counter = top TO bottom
  32.     @ counter, left SAY back_line
  33. NEXT
  34.  
  35. * Restore original color and return
  36. SETCOLOR(old_color)
  37. RETURN NIL
  38.  
  39.