home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST53.PRG < prev    next >
Encoding:
Text File  |  1989-08-16  |  1.8 KB  |  62 lines
  1. ********************
  2.  
  3. FUNCTION Popscreen
  4.  
  5.    PARAMETERS _pop1, _pop2, _pop3, _pop4, _popshad, _popstype
  6.  
  7.    PRIVATE _poptemp
  8.  
  9.    scr_level = IF(scr_level = 1, scr_level, scr_level - 1)
  10.  
  11.    IF PCOUNT() = 4
  12.       _popshad = .F.
  13.    ELSEIF PCOUNT() = 0
  14.       _pop1    = IF( EMPTY(SUBSTR(allwindows[scr_level], 1, 2)), 0, SUBSTR(allwindows[scr_level], 1, 2))
  15.       _pop2    = IF(EMPTY(SUBSTR(allwindows[scr_level], 4, 2)), 0, SUBSTR(allwindows[scr_level], 4, 2))
  16.       _pop3    = IF(EMPTY(SUBSTR(allwindows[scr_level], 7, 2)), 24, SUBSTR(allwindows[scr_level], 7, 2))
  17.       _pop4    = IF(EMPTY(SUBSTR(allwindows[scr_level],10, 2)), 79, SUBSTR(allwindows[scr_level],10, 2))
  18.       _popshad = SUBSTR(allwindows[scr_level],13)
  19.       IF _popshad $ ".T..F."
  20.          _popshad = &_popshad.
  21.       ELSEIF EMPTY(_popshad) .OR. TYPE("_popshad") != "L"
  22.          _popshad = .F.
  23.       ENDIF
  24.       _popstype = 1
  25.    ELSEIF PCOUNT() = 5
  26.       _popstype = 1
  27.    ENDIF
  28.  
  29.    _poptemp = ""
  30.  
  31.    _poptemp = allscreens[scr_level]
  32.    SETCOLOR(allcolor[scr_level])
  33.  
  34.    IF _popshad
  35.       IF TYPE("_popstype") != "N"
  36.          RESTSCREEN(_pop1, _pop2, _pop3, _pop4, _poptemp)
  37.       ELSE
  38.          DO CASE
  39.          CASE _popstype = 1
  40.             RESTSCREEN(_pop1, _pop2, _pop3+1, _pop4+2, _poptemp)
  41.          CASE _popstype = 2
  42.             RESTSCREEN(_pop1, _pop2-1, _pop3+1, _pop4, _poptemp)
  43.          CASE _popstype = 3
  44.             RESTSCREEN(_pop1-1, _pop2-1, _pop3, _pop4, _poptemp)
  45.          CASE _popstype = 4
  46.             RESTSCREEN(_pop1-1, _pop2, _pop3, _pop4+2, _poptemp)
  47.          ENDCASE
  48.       ENDIF
  49.    ELSE
  50.       RESTSCREEN(_pop1, _pop2, _pop3, _pop4, _poptemp)
  51.    ENDIF
  52.  
  53.    allwindows[scr_level+1] = ""
  54.    allscreens[scr_level+1] = ""
  55.    allcolor[scr_level+1]   = ""
  56.    RELEASE _poptemp
  57.    RETURN(scr_level)
  58.    
  59. * End of File
  60.  
  61.  
  62.