home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / GETWORD.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  718 b   |  33 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: GETWORD.PRG                                          ⌐ª
  3. *⌐ª     Function: ╙├╔╧╡»╩╜▓╦╡Ñ╜¿┴ó╡─║║╫╓┤╩╡Σ╕¿╓·╩Σ╚δ┤░┐┌               ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. STORE 1 TO SEL
  6. DIMENSION option(60)
  7.  
  8. SELECT 3
  9. USE (DBNAME)
  10. I=1
  11. DO WHILE .NOT. EOF()
  12.    option(I)=AA
  13.    option(I)=TRIM(option(I))
  14.    I=I+1
  15.    SKIP
  16. ENDDO
  17. USE
  18. N1=I-1
  19. SELECT 1
  20.  
  21. SET COLOR TO +W/RB
  22. @ 2,60 MENU option,N1,12 TITLE "  ╤í╘±┤╩╫Θ  " SHADOW
  23. READ MENU TO SEL
  24.  
  25. IF SEL=0
  26.    CLOSE DATABASES
  27.    CLEAR WINDOWS
  28.    RETURN
  29. ENDIF
  30. MYWORD=option(SEL)
  31. *WAIT WINDOW " ╤í┴╦: <<"+MYWORD+">> !"
  32. RETURN
  33.