home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST72.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  1.3 KB  |  50 lines
  1. ********************
  2.  
  3. PROCEDURE Clear_area
  4.  
  5.    PARAMETERS _clr1, _clr2, _clr3, _clr4
  6.  
  7.    scr_level = IF(TYPE("scr_level") = "U", 0, scr_level)
  8.  
  9.    IF EMPTY(PCOUNT())
  10.       IF TYPE("allwindows") != "A"
  11.          _clr1 = -1
  12.          _clr2 = -1
  13.          _clr3 = 25
  14.          _clr4 = 80
  15.       ELSE
  16.          IF scr_level <= 1
  17.             _clr1 = -1
  18.             _clr2 = -1
  19.             _clr3 = 25
  20.             _clr4 = 80
  21.          ELSE
  22.             _clr1 = VAL(SUBSTR(allwindows[scr_level - 1], 1,  2))
  23.             _clr2 = VAL(SUBSTR(allwindows[scr_level - 1], 4,  2))
  24.             _clr3 = VAL(SUBSTR(allwindows[scr_level - 1], 7,  2))
  25.             _clr4 = VAL(SUBSTR(allwindows[scr_level - 1], 10, 2))
  26.             IF _clr1 = -1
  27.                _clr1 = -1
  28.                _clr2 = -1
  29.                _clr3 = 25
  30.                _clr4 = 80
  31.             ENDIF
  32.          ENDIF
  33.       ENDIF
  34.    ENDIF
  35.  
  36.    PRIVATE _qaz
  37.  
  38.    DO CASE 
  39.    CASE (_clr3 - _clr1 > 1) .AND. (_clr4 - _clr2 > 1)
  40.       SCROLL(_clr1 + 1, _clr2 + 1, _clr3 - 1, _clr4 - 1,0)
  41.    CASE (_clr3 - _clr1 > 1) .AND. !(_clr4 - _clr2 > 1)   && 1 column
  42.       FOR _qaz = _clr1+1 TO _clr3-1
  43.          @ _qaz,_clr2+1 SAY " "
  44.       NEXT
  45.    CASE !(_clr3 - _clr1 > 1) .AND. (_clr4 - _clr2 > 1)   && 1 Row
  46.       @ _clr1+1,_clr2 SAY SPACE((_clr4-_clr2)-2)
  47.    ENDCASE
  48.  
  49. * End of File
  50.