home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST61.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  835 b   |  38 lines
  1. ********************
  2.  
  3. PROCEDURE Screen
  4.  
  5.    PARAMETER _nowdo
  6.  
  7.    IF PCOUNT() = 0
  8.       _nowdo = .F.
  9.    ENDIF
  10.  
  11.    IF TYPE("allscreens") = "U" 
  12.       PUBLIC allscreens[20], title[6], setkeys[30], allcolor[20], ;
  13.              allwindows[20]
  14.    ENDIF
  15.  
  16.    AFILL(allscreens, "")
  17.    AFILL(title, "")
  18.    AFILL(setkeys, "")
  19.    AFILL(allcolor, "")
  20.    AFILL(allwindows, "")
  21.  
  22.    IF TYPE("scr_level") = "U" .AND. TYPE("print_way") = "U" .AND. TYPE("title") = "U"
  23.       PUBLIC option, option0, option1, down_opt, print_way, scr_level, real_abort, print_file, breakpoint
  24.    ENDIF
  25.  
  26.    STORE 1 TO option, option0, option1, dow_opt, print_way, scr_level
  27.    STORE .F. TO real_abort
  28.    STORE "" TO print_file
  29.    STORE 7 TO breakpoint
  30.  
  31.    IF !FILE("Screen.sys") .OR. _nowdo
  32.       STARTUP(.T.)
  33.    ENDIF
  34.  
  35. * End of File
  36.  
  37.  
  38.