home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / UNIT_FND.PRG < prev    next >
Encoding:
Text File  |  1994-01-11  |  914 b   |  28 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: UNIT_FND.PRG                                         ⌐ª
  3. *⌐ª     Function: ▓┐├┼╝∞╦≈╫╙│╠╨≥                                       ⌐ª
  4. *⌐ª         Call: DISPLAY.PRG                                          ⌐ª
  5. *⌐ª   DBF & File: DICFIL02.DBF      PERSONAL.DBF                       ⌐ª
  6. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  7. STORE "    " TO SEL
  8. * ╓╕╢¿│⌡╓╡╬¬┐╒░╫, ░┤ ESC ╝ⁿ╘≥╚í┤╦╓╡
  9. USE DICFIL02
  10. * ╢¿╥σ╥╗╕÷ POPUP ▓╦╡Ñ
  11. DEFINE POPUP unitpop FROM 0,56 MARGIN SCROL  ;
  12.        TITLE  "╤í╘±┤╩╫Θ";
  13.        PROMPT FIELD AA;
  14.        SHADOW COLOR SCHEME 7
  15. * ╢¿╥σ GET ╡─╧┬└¡▒φ┴╨
  16. @ 0,60 GET SEL POPUP unitpop FUNCTION "&T" SIZE 20,20
  17. READ CYCLE
  18. RELEASE POPUPS unitpop
  19. SEL=TRIM(SEL)
  20. VA="A2='"
  21. VA=VA+SEL+"'"
  22. USE PERSONAL
  23. INDEX ON A1 TO PERSTEMP FOR &VA
  24. *DO DISPLAY
  25. BROWSE
  26. CLEAR
  27. RETURN
  28.