home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST192.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  963 b   |  46 lines
  1. ********************
  2.  
  3. PROCEDURE Bringsetup
  4.  
  5.    PRIVATE _ext
  6.  
  7.    IF TYPE("scrinten") != "U"
  8.  
  9.       SET INTENS (scrinten)
  10.       SET DELIM (scrdelim)
  11.       SET DELIM TO scrdelimto
  12.       SET CONFIRM (scrconfirm)
  13.       SET BELL (scrbell)
  14.       SET MARGIN TO scrmarg
  15.  
  16.       DO CASE
  17.       CASE scrdtype = 2
  18.          SET DATE ANSI
  19.       CASE scrdtype = 3
  20.          SET DATE BRITISH
  21.       CASE scrdtype = 4
  22.          SET DATE ITALIAN
  23.       CASE scrdtype = 5
  24.          SET DATE FRENCH
  25.       CASE scrdtype = 6
  26.          SET DATE GERMAN
  27.       OTHERWISE
  28.          SET DATE AMERICAN
  29.       ENDCASE
  30.       IF EMPTY(scrmess)
  31.          SET MESSAGE TO
  32.       ELSE
  33.          _ext = LTRIM(TRANSFORM(scrmess, "99"))
  34.          IF scrcenter
  35.             SET MESSAGE TO &_ext. CENTER
  36.          ELSE
  37.             SET MESSAGE TO &_ext.
  38.          ENDIF
  39.       ENDIF
  40.       SETCOLOR(scrcolor)
  41.       SET SCOREBOARD OFF
  42.       SET WRAP ON
  43.    ENDIF
  44.   
  45. * End of File
  46.