home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST275.PRG < prev    next >
Encoding:
Text File  |  1989-10-02  |  2.7 KB  |  84 lines
  1. *******************
  2.  
  3. FUNCTION Publics
  4.  
  5.    IF TYPE("scrmono") != "U"
  6.       _hold = scrmono
  7.    ENDIF
  8.    IF TYPE("scrhname") != "U"
  9.       _oold = scrhname
  10.    ENDIF
  11.  
  12.    PUBLIC scrconfirm, scrdelim, scrbell, scrtype, scrdelete, scrbright, scrmono
  13.    PUBLIC screject, scrpage, scrsys, scrshow, scrinten, scrprnt, scrhelp, scrhname
  14.    PUBLIC scrcolor, scrdisk, scrpause, scrdate, scrdelimto, scrframe
  15.    PUBLIC scrnet1, scrnet2, scrlbar, scrbar, scrrbar, scrlin, scrtimes, scrpntnor
  16.    PUBLIC scrpass, scrpntcd, scrleft_1, scrleft_2, scrmess, scrtm1, scrprot
  17.    PUBLIC scrtm2, scrlm1, scrlm2, scrtemplat, scrform, scrprog, scrdata
  18.    PUBLIC scrpath, scrcenter, scrdtype, scrmarg, scr_level, scrtahead, scrhoriz
  19.    PUBLIC scrrtop, scrltop, scrrbot, scrlbot, scrinter, scr_err_row, scr_err_col
  20.    PUBLIC scrwrow, scrwcol, scrwdown, scrwover, scrcursor, scrbuffers, scrfiles
  21.    PUBLIC setkeys[30]
  22.    PUBLIC allscreens[20], title[6], allcolor[20], allwindows[20]
  23.    STORE .F. TO scrdelim, scrbell, scrtype, scrdelete, scrbright, screject, scrprot
  24.    STORE .T. TO scrpage, scrsys, scrshow, scrinten, scrprnt, scrhelp, scrcenter
  25.    STORE .T. TO scrmono, scrconfirm, scrcursor
  26.    STORE 0 TO scrtimes, scrtahead, scrmarg, scrwrow, scrwcol
  27.    STORE 79 TO scrwover
  28.    STORE 24 TO scrwdown
  29.    STORE 1 TO scrdtype, scrdate
  30.    IF TYPE("_hold") != "U"
  31.       scrmono = _hold
  32.    ENDIF
  33.    scrbuffers = 8
  34.    scrfiles   = 20
  35.    scrcolor = IF( ISCOLOR() .AND. !scrmono, "7/1,0/7,N,N,0/7", "7/0,0/7,N,N,0/7" )
  36.    scrdata  = "C:"
  37.    scrprog  = "C:"
  38.    scrhname = "INHELP"
  39.    scrdisk    = 366400      
  40.    scrpause   = 100         
  41.    scrdelimto = "::"        
  42.    scrrtop  = CHR(201)
  43.    scrltop  = CHR(201)
  44.    scrrbot  = CHR(201)
  45.    scrlbot  = CHR(201)
  46.    scrinter = CHR(201)
  47.    scrframe = CHR(201) + CHR(205) + CHR(187) + CHR(186) + CHR(188) + CHR(205) + CHR(200) + CHR(186) + CHR(32)
  48.    scrlbar  = CHR(204)
  49.    scrbar   = CHR(204) + REPLICATE(CHR(205),78) + CHR(185)
  50.    scrrbar  = CHR(185)
  51.    scrlin   = CHR(186)
  52.    scrhoriz = CHR(205)
  53.    scrpass  = GENPASS("STRALEY")
  54.    scrpntcd = "CHR(15)" 
  55.    scrpntnor = "CHR(18)"
  56.    scrleft_1 = "Steve Straley's ToolkiT"
  57.    scrleft_2 = "Version 2.0"
  58.    scrmess   = 24       
  59.    scrnet1   = 10       
  60.    scrnet2   =  5       
  61.    scrtm1    = 20
  62.    scrtm2    = 7
  63.    scrlm1    = 13
  64.    scrlm2    = 8
  65.    scrtemplat= "9,999,999.99"
  66.    scrform   = "@9  "
  67.    scrpath   = "\" + CURDIR() + "\"
  68.    scr_err_row = 24
  69.    scr_err_col = 00
  70.    scr_level = 1
  71.  
  72.    IF TYPE("_oold") != "U"
  73.       scrhname = _oold
  74.    ENDIF
  75.    AFILL(allscreens, "")
  76.    AFILL(title, "")
  77.    AFILL(allcolor, "")
  78.    AFILL(allwindows, "")
  79.    AFILL(setkeys, "")
  80.  
  81.    RETURN(.T.)
  82.  
  83. * End of File
  84.