home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DBR3.PRG < prev    next >
Encoding:
Text File  |  1990-05-09  |  768 b   |  45 lines
  1. ** BEGIN OF DBR3.PRG **
  2. @ 1,0 CLEAR
  3. CLEAR ALL
  4. DIME FNA(32)
  5. FNA=''
  6. DO SELEFM
  7. FN=FNA(3)
  8. EXP=''
  9. @ 0,0 SAY '╔·│╔╓≈╬─╝■╨▐╕─╠⌡╝■......'+SPACE(54)
  10. DO DBFEXP
  11. DO USEFM
  12. SELE 10
  13. WITH=''
  14. DO WHILE .T.
  15. STOR '' TO FD,FT,FL,FX
  16. @ 0,0 SAY '╤í╘±╓≈╬─╝■▒╗╨▐╕─╫╓╢╬......'+SPACE(54)
  17. FN=FNA(3)
  18. DO SELEFD
  19. A= '╡▒╟░▒╗╨▐╕─╫╓╢╬╬¬:'+FD+'_└α╨═:'+FT+'_┐φ╢╚:'+STR(FL,3)+'_╨í╩²╬╗╩²:'+STR(FX,3)+'_╔·│╔╨▐╕─▒φ┤∩╩╜ . . .'
  20. @ 0,1 GET A
  21. CLEA GET
  22. HJ=''
  23. DO DBREXP
  24. SELE 10
  25. CLEAR
  26. WITH=WITH+','+FD+' WITH '+HJ
  27. @ 0,0 SAY '╡▒╟░╨▐╕─╩╜╬¬:'
  28. @ 1,0 GET WITH
  29. CLEA GET
  30. YN=' '
  31. DO WHILE .NOT.YN$'YN'
  32. @ 0,40 SAY '╗╣╥¬╤í╘±╨▐╕─╫╓╢╬┬≡? [Y/N]:' GET YN PICT '!'
  33. READ
  34. ENDDO
  35. IF YN='N'
  36. EXIT
  37. ENDIF
  38. ENDDO
  39. WITH=SUBS(WITH,2)
  40. SELE 1
  41. REPL ALL FOR &EXP &WITH
  42. CLOS DATA
  43. RETU
  44. ** END OF DBR3.PRG **
  45.