home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / GETLIST.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  652 b   |  20 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: GETLIST.PRG                                          ⌐ª
  3. *⌐ª     Function: ╩╣╙├╧┬└¡▒φ┴╨╜¿┴ó╡─║║╫╓┤╩╡Σ╕¿╓·╩Σ╚δ┤░┐┌               ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. STORE "    " TO SEL
  6. * ╓╕╢¿│⌡╓╡╬¬┐╒░╫, ░┤ ESC ╝ⁿ╘≥╚í┤╦╓╡
  7. SELECT 3
  8. USE (DBNAME)
  9. * ╢¿╥σ╥╗╕÷ POPUP ▓╦╡Ñ
  10. DEFINE POPUP mypop FROM 0,60 MARGIN SCROL  ;
  11.        TITLE  "╤í╘±┤╩╫Θ";
  12.        PROMPT FIELD AA;
  13.        SHADOW COLOR SCHEME 5
  14. SELECT 1
  15. * ╢¿╥σ GET ╡─╧┬└¡▒φ┴╨
  16. @ 0,60 GET SEL POPUP mypop FUNCTION "&T" SIZE 20,18
  17. READ CYCLE
  18. MYWORD=SEL
  19. RETURN
  20.