home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST108.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  428 b   |  22 lines
  1. ********************
  2.  
  3. PROCEDURE Messline
  4.  
  5.    PRIVATE _ext
  6.  
  7.    scrmess = IF( (TYPE("scrmess") = "U"), 0, scrmess)
  8.    scrcenter = IF( (TYPE("scrcenter") = "U"), .F., scrcenter)
  9.  
  10.    IF EMPTY(scrmess)
  11.       SET MESSAGE TO
  12.    ELSE
  13.       _ext = LTRIM(TRANSFORM(scrmess, "99"))
  14.       IF scrcenter
  15.          SET MESSAGE TO &_ext. CENTER
  16.       ELSE
  17.          SET MESSAGE TO &_ext.
  18.       ENDIF
  19.    ENDIF
  20.  
  21. * End of File
  22.