home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / GETPOPUP.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  659 b   |  26 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: GETPOPUP.PRG                                         ⌐ª
  3. *⌐ª     Function: ╩╣╙├╥■▓╪╩╜▓╦╡Ñ╜¿┴ó╡─║║╫╓┤╩╡Σ╕¿╓·╩Σ╚δ┤░┐┌             ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. STORE 1 TO SEL
  6. SELECT 3
  7. USE (DBNAME)
  8. CALCULATE CNT() TO J
  9. DIMENSION option(J)
  10. * ╢¿╥σ╥╗╬¼╩²╫Θ option ╡─╘¬╦╪╕÷╩²═¼╩²╛▌┐Γ╡─╝╟┬╝╩²
  11. GO 1
  12. I=1
  13. DO WHILE .NOT. EOF()
  14.    option(I)=AA
  15.    option(I)=TRIM(option(I))
  16.    I=I+1
  17.    SKIP
  18. ENDDO
  19. USE
  20. SELECT 1
  21.  
  22. @ 0,56 GET SEL FROM  option FUNCTION "^"  SIZE 1,22 COLOR SCHEME 9
  23. READ
  24. MYWORD=option(SEL)
  25. RETURN
  26.