home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST165.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  568 b   |  25 lines
  1. ********************
  2.  
  3. FUNCTION Chng_prmpt
  4.  
  5.    * This is to MENU prompt at the passed coordinates for CHANGE information *
  6.    
  7.    PARAMETERS _arow
  8.  
  9.    IF PCOUNT() = 0
  10.       _arow = 24
  11.    ENDIF
  12.    
  13.    _editvar = 3
  14.    @ _arow,13 SAY "< >ext - < >revious - < >dit - < >hoose Again - < >uit"
  15.    @ _arow,14 PROMPT "N"
  16.    @ _arow,23 PROMPT "P"
  17.    @ _arow,36 PROMPT "E"
  18.    @ _arow,45 PROMPT "C"
  19.    @ _arow,62 PROMPT "Q"
  20.    MENU TO _editvar
  21.    RID(_arow, 13, "< >ext - < >revious - < >dit - < >hoose Again - < >uit")
  22.    RETURN(_editvar)
  23.  
  24. * End of File
  25.