home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST325.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  876 b   |  32 lines
  1. ********************
  2.  
  3. FUNCTION Blowup
  4.  
  5.    PARAMETERS _blow1, _blow2, _blow3, _blow4
  6.  
  7.    IF EMPTY(PCOUNT())
  8.       RETURN(.F.)
  9.    ELSEIF TYPE("_blow1") + TYPE("_blow2") + TYPE("_blow3") + TYPE("_blow4") != "NNNN"
  10.       RETURN(.F.)
  11.    ENDIF
  12.  
  13.    _seed1  = INT((_blow3 - _blow1) / 2)
  14.    _seed2  = INT((_blow4 - _blow2) / 2)
  15.    _blowt1 = _blow1 + _seed1
  16.    _blowt2 = _blow2 + _seed2
  17.    _blowt3 = _blowt1
  18.    _blowt4 = _blowt2
  19.  
  20.    DO WHILE (_blowt1 > _blow1 .AND. _blowt2 > _blow2) .AND. (_blowt3 < _blow3 .AND. _blowt4 < _blow4)
  21.       @ _blowt1, _blowt2, _blowt3, _blowt4 BOX SUBSTR(scrframe, 1, 8)
  22.       INKEY(.01)
  23.       SCROLL(_blowt1, _blowt2, _blowt3, _blowt4, 0)
  24.       _blowt1 = _blowt1 - 1
  25.       _blowt2 = _blowt2 - (_seed2 / _seed1)
  26.       _blowt3 = _blowt3 + 1
  27.       _blowt4 = _blowt4 + (_seed2 / _seed1)
  28.    ENDDO
  29.    RETURN(.T.)
  30.  
  31. * End of File
  32.