home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST229.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  813 b   |  37 lines
  1. *******************
  2.  
  3. FUNCTION Wprompt
  4.  
  5.    PARAMETERS _row, _col, _menu, _message
  6.  
  7.    IF PCOUNT() < 3
  8.       RETURN(.F.)
  9.    ENDIF
  10.    IF PCOUNT() = 3
  11.       IF TYPE("_row")+TYPE("_col")+TYPE("_menu") != "NNC"
  12.          RETURN(.F.)
  13.       ENDIF
  14.    ELSE
  15.       IF TYPE("_row")+TYPE("_col")+TYPE("_menu")+TYPE("_message") != "NNCC"
  16.          RETURN(.F.)
  17.       ENDIF
  18.    ENDIF
  19.  
  20.    PRIVATE _therow, _thecol
  21.  
  22.    scr_level = IF(TYPE("scr_level") = "U", 0, scr_level)
  23.  
  24.    IF scr_level-1 <= 0
  25.       _therow = _row
  26.       _thecol = _col
  27.    ELSE
  28.       _therow = VAL(SUBSTR(allwindows[scr_level - 1], 1,  2)) + _row
  29.       _thecol = VAL(SUBSTR(allwindows[scr_level - 1], 4,  2)) + _col
  30.    ENDIF
  31.  
  32.    @ _therow, _thecol PROMPT _menu MESSAGE IF(PCOUNT()=3, "", _message)
  33.  
  34.    RETURN(.T.)
  35.  
  36. * End of File
  37.