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