home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST88.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  871 b   |  41 lines
  1. ********************
  2.  
  3. PROCEDURE Writ_it_out
  4.  
  5.    PARAMETERS _mstr, _ww
  6.  
  7.    * This procedure writes the code out to disk
  8.    * for the Make_dbf and Report Writer procedures
  9.  
  10.    * _ww = 1 means no window 
  11.    * _ww = 2 means open window and use
  12.    * _ww = 3 means use window
  13.    * _ww = 4 means close window
  14.  
  15.    _ww = IF(PCOUNT() = 1, 1, _ww)
  16.  
  17.    PRIVATE _outstr
  18.  
  19.  
  20.    IF _ww = 2
  21.       PUSHSCREEN(10,00,21,79,.T.,.T.,.T.)
  22.    ENDIF
  23.  
  24.    SET ALTERNATE ON
  25.    SET CONSOLE OFF
  26.    DO WHILE !EMPTY(_mstr)
  27.       _outstr = PARSING(@_mstr, .T.)
  28.       ? _outstr
  29.       IF _ww = 3
  30.          @ 20,01 SAY _outstr PICT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  31.          SCROLL(11,01,20,78,1)
  32.       ENDIF
  33.    ENDDO
  34.    SET ALTERNATE OFF
  35.    SET CONSOLE ON
  36.    IF _ww = 4
  37.       POPSCREEN(10,00,21,79)
  38.    ENDIF
  39.  
  40. * End of File
  41.