home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST78.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  863 b   |  45 lines
  1. ********************
  2.  
  3. PROCEDURE Header_p
  4.  
  5.    PARAMETERS headers, option, width
  6.  
  7.    * a1 - a5 are the lines of the header
  8.    * option is the option from Whichway
  9.    * width is the width of the header/report; its default is 79
  10.  
  11.    IF PCOUNT() != 3
  12.       RETURN
  13.    ENDIF
  14.  
  15.    PRIVATE _qaz, _hpcnt
  16.  
  17.    _hpcnt = ""
  18.    FOR _qaz = 1 TO LEN(headers)
  19.       _hpcnt = _hpcnt + headers[_qaz]
  20.    NEXT
  21.  
  22.    IF EMPTY(_hpcnt)
  23.       RETURN
  24.    ENDIF
  25.    IF width = 0
  26.       width = 79
  27.    ENDIF
  28.    IF TYPE("scrpntcd") = "U"
  29.       scrpntcd = ""
  30.    ENDIF
  31.    IF !EMPTY(scrpntcd) .AND. option = 2
  32.      ?? &scrpntcd
  33.    ENDIF
  34.    FOR _qaz = 1 TO LEN(headers)
  35.       ? FILL_OUT(headers[_qaz], width)
  36.    NEXT
  37.    IF option = 1
  38.       ? scrlbar + REPLICATE(scrhoriz, width) + scrrbar
  39.    ELSE
  40.       ?
  41.       ? REPLICATE("-", width)
  42.    ENDIF
  43.  
  44. * End of File
  45.