home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST913.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  680 b   |  37 lines
  1. *******************
  2.  
  3. PROCEDURE Showtree
  4.  
  5.    PARAMETERS _p, _l, _v
  6.  
  7.    IF TYPE("scrcursor") = "U"
  8.       scrcursor = .T.
  9.    ENDIF
  10.  
  11.    PRIVATE _ttshow1, _ttshow2, _keystring
  12.  
  13.    _ttshow1 = ROW()
  14.    _ttshow2 = COL()
  15.  
  16.    SETKEYOFF()
  17.    PUSHSCREEN()
  18.    ?
  19.    ? " One Moment Please "
  20.    @ _ttshow1, _ttshow2, ""
  21.    IF EMPTY(PCOUNT())
  22.       _keystring = SHOW_TREE()
  23.    ELSEIF PCOUNT() = 1
  24.       _keystring = SHOW_TREE(_p)
  25.    ELSEIF PCOUNT() = 2
  26.       _keystring = SHOW_TREE(_p, _l)
  27.    ELSE
  28.       _keystring = SHOW_TREE(_p, _l, _v)
  29.    ENDIF
  30.    SET CURSOR ON
  31.    SETKEYON()
  32.    @ _ttshow1, _ttshow2, ""
  33.    POPSCREEN()
  34.    KEYBOARD _keystring
  35.  
  36. * End of File
  37.