home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST222.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  1.9 KB  |  67 lines
  1. ********************
  2.  
  3. FUNCTION Wdisplay
  4.  
  5.    PARAMETERS _thedisp, _dispwait, _disprow, _dispcol, _dispdown, _disprmar
  6.  
  7.    * _thedisp  is the character string to display in the current window area
  8.    * _disprow  is the row to begin the display.   Default will be 1
  9.    * _dispcol  is the column to begin the display.  Default will be 1
  10.    * _dispdown is the how many rows down
  11.    * _disprmar is the number of columns over from the columns position.
  12.    *           if a negative number, then it will be the right marging
  13.    *           position
  14.  
  15.    IF PCOUNT() < 1
  16.       RETURN(.F.)
  17.    ELSEIF TYPE("_thedisp") != "C"
  18.       RETURN(.F.)
  19.    ENDIF
  20.  
  21.    IF PCOUNT() = 1
  22.       _dispwait = .T.
  23.       _disprow = WROW(1)
  24.       _dispcol = WCOL(1)
  25.       _dispdown = WDEPTH(0) - 2
  26.       _disprmar = WWIDTH(0) - 2
  27.    ELSEIF PCOUNT() = 2
  28.       _disprow = WROW(1)
  29.       _dispcol = WCOL(1)
  30.       _dispdown = WDEPTH(0) - 2
  31.       _disprmar = WWIDTH(0) - 2
  32.    ELSEIF PCOUNT() = 3
  33.       _dispdown = WDEPTH(0) - 2 - _disprow
  34.       _disprow = WROW(_disprow)
  35.       _dispcol = WCOL(1)
  36.       _disprmar = WWIDTH(0) - 2
  37.    ELSEIF PCOUNT() = 4
  38.       _dispdown = WDEPTH(0) - 2 - _disprow
  39.       _disprmar = WWIDTH(0) - 2 - _dispcol
  40.       _disprow = WROW(_disprow)
  41.       _dispcol = WCOL(_dispcol)
  42.    ELSEIF PCOUNT() = 5
  43.       _disprmar = WWIDTH(0) - 2 - _dispcol
  44.       _disprow = WROW(_disprow)
  45.       _dispcol = WCOL(_dispcol)
  46.       _dispdown = WDEPTH(_dispdown)
  47.    ELSE
  48.       IF _disprmar < 0
  49.          _disprmar = WWIDTH(_disprmar)
  50.       ENDIF
  51.       _disprmar = _disprmar - _dispcol
  52.       _disprow = WROW(_disprow)
  53.       _dispcol = WCOL(_dispcol)
  54.       _dispdown = WDEPTH(_dispdown)
  55.    ENDIF
  56.  
  57.    IF !_dispwait
  58.       KEYBOARD CHR(27)
  59.    ELSE
  60.    ENDIF
  61.  
  62.    MEMOEDIT(_thedisp, _disprow, _dispcol, _disprow + _dispdown, _dispcol + _disprmar, .F.)
  63.  
  64.    RETURN(.T.)
  65.  
  66. * End of File
  67.