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