home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DBA.PRG < prev    next >
Encoding:
Text File  |  1990-04-29  |  726 b   |  54 lines
  1. *** BEGIN OF DBA.PRG /╩²╛▌╫╖╝╙ **
  2. CLEAR
  3. FN=''
  4. FNO=''
  5. DO SELEF
  6. IF LEN(FN)=0
  7. RETU
  8. ENDIF
  9. USE IDX
  10. SET FILT TO F_NO=FNO
  11. GO TOP
  12. NDX=''
  13. DO WHILE .NOT.EOF()
  14. NDX=NDX+IDX_NAME+','
  15. SKIP
  16. ENDDO
  17. IF LEN(NDX)<>0
  18. NDX=SUBS(NDX,1,LEN(NDX)-1)
  19. ENDIF
  20. USE &FN
  21. SET INDE TO &NDX
  22. SET FORM TO &FN
  23. DO WHILE .T.
  24. APPE BLAN
  25. DO WHILE .T.
  26. EDIT
  27. A=READKEY()
  28. DO CASE
  29. CASE M->A=36.OR.M->A=292
  30. DO HELP
  31. LOOP
  32. CASE .NOT.BOF().AND.(M->A=0.OR.M->A=4.OR.M->A=260.OR.M->A=6.OR.M->A=262)
  33. SKIP -1
  34. LOOP
  35. OTHE
  36. EXIT
  37. ENDC
  38. ENDDO
  39. SET FORM TO
  40. YN=' '
  41. DO WHILE .NOT.M->YN$'YN'
  42. @ 0,0 SAY '╝╠╨°╫╖╝╙╝╟┬╝┬≡?[Y/N]:' GET M->YN PICT '!'
  43. READ
  44. ENDDO
  45. IF M->YN='N'
  46. EXIT
  47. ENDIF
  48. SET FORM TO &FN
  49. ENDDO
  50. SET FORM TO
  51. USE
  52. RETU
  53. ** END OF DBA.PRG **
  54.