home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST190.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  1.0 KB  |  49 lines
  1. ********************
  2.  
  3. PROCEDURE Bringitup
  4.  
  5.    PARAMETERS _goon
  6.  
  7.    PRIVATE _wsk
  8.  
  9.    IF PCOUNT() = 0
  10.       _goon = !FILE("Screen.sys")    
  11.       _wsk = .F.
  12.    ELSEIF PCOUNT() = 1
  13.       _wsk = _goon
  14.       _goon = !FILE("Screen.sys")    
  15.    ENDIF
  16.  
  17.    IF TYPE("scrconfirm") = "U" .AND. TYPE("scrhelp") = "U"
  18.       Publics()
  19.       IF !_goon
  20.          Sys_test()
  21.       ENDIF
  22.       RESTORE FROM Screen.sys ADDITIVE
  23.    ENDIF
  24.  
  25.    IF TYPE("allscreens") = "U" 
  26.       PUBLIC allscreens[20], title[6], allcolor[20], allwindows[20]
  27.    ENDIF
  28.    AFILL(allscreens, "")
  29.    AFILL(title, "")
  30.    AFILL(allcolor, "")
  31.    AFILL(allwindows, "")
  32.  
  33.    IF TYPE("scr_level") = "U"
  34.       PUBLIC scr_level
  35.    ENDIF
  36.    IF TYPE("print_way") = "U" .OR. TYPE("title") = "U"
  37.       PUBLIC option, option0, option1, down_opt, print_way
  38.       PUBLIC real_abort, print_file, breakpoint
  39.    ENDIF
  40.  
  41.    STORE 1 TO option, option0, option1, dow_opt, print_way, scr_level
  42.    STORE .F. TO real_abort
  43.    STORE "" TO print_file
  44.    STORE 7 TO breakpoint
  45.  
  46. * End of File
  47.  
  48.  
  49.