home *** CD-ROM | disk | FTP | other *** search
- *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
- *⌐ª Program: GETLIST.PRG ⌐ª
- *⌐ª Function: ╩╣╙├╧┬└¡▒φ┴╨╜¿┴ó╡─║║╫╓┤╩╡Σ╕¿╓·╩Σ╚δ┤░┐┌ ⌐ª
- *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
- STORE " " TO SEL
- * ╓╕╢¿│⌡╓╡╬¬┐╒░╫, ░┤ ESC ╝ⁿ╘≥╚í┤╦╓╡
- SELECT 3
- USE (DBNAME)
- * ╢¿╥σ╥╗╕÷ POPUP ▓╦╡Ñ
- DEFINE POPUP mypop FROM 0,60 MARGIN SCROL ;
- TITLE "╤í╘±┤╩╫Θ";
- PROMPT FIELD AA;
- SHADOW COLOR SCHEME 5
- SELECT 1
- * ╢¿╥σ GET ╡─╧┬└¡▒φ┴╨
- @ 0,60 GET SEL POPUP mypop FUNCTION "&T" SIZE 20,18
- READ CYCLE
- MYWORD=SEL
- RETURN