home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST167.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  644 b   |  28 lines
  1. ********************
  2.  
  3. FUNCTION Delt_prmpt
  4.  
  5.    * This is to MENU prompt at the passed coordinates for DELETE information *
  6.    
  7.    PARAMETERS _arow
  8.    
  9.    IF PCOUNT() = 0
  10.       _arow = 24
  11.    ENDIF
  12.  
  13.    PRIVATE _deltstrng, _deltvar
  14.    
  15.    _deltstrng = "< >ext - < >revious - < >" + IF(DELETED(), "ecall", "elete") + " - < >hoose Again - < >uit"
  16.    _deltvar = 3
  17.    @ _arow,13 SAY _deltstrng
  18.    @ _arow,14 PROMPT "N"
  19.    @ _arow,23 PROMPT "P"
  20.    @ _arow,36 PROMPT IF(DELETED(), "R", "D")
  21.    @ _arow,47 PROMPT "C"
  22.    @ _arow,64 PROMPT "Q"
  23.    MENU TO _deltvar
  24.    RID(_arow, 13, _deltstrng)
  25.    RETURN(_deltvar)
  26.  
  27. * End of File
  28.