home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DBF0.PRG < prev    next >
Encoding:
Text File  |  1990-04-17  |  823 b   |  53 lines
  1. ****** ░┤╠⌡╝■╓≡╠⌡╧╘╩╛╝╟┬╝ DBF0.PRG ******
  2. ****** DO DBF0 ( FN , EXP )        ******
  3. ****** ╞Σ╓╨: FN:╬─╝■├√.(╚δ┐┌)      ******
  4. ******       EXP:╠⌡╝■▒φ┤∩╩╜.(╚δ┐┌) ******
  5. ****** PARA FN,EXP
  6. CLEAR
  7. IF TYPE('FN')='U'
  8. FN=''
  9. CFN=''
  10. DO SELEF
  11. IF LEN(FN)=0
  12. RETU
  13. ENDIF
  14. ENDIF
  15. IF TYPE('EXP')='U'
  16. EXP=''
  17. DO DBFEXP
  18. ENDIF
  19. SELE 1
  20. USE &FN
  21. SET FILTER TO &EXP
  22. GO TOP
  23. IF EOF()
  24. @ 08,0 SAY ' í½í½í½í½  &CFN. &FN. ╓╨├╗╙╨┬·╫π╠⌡╝■╡─╩²╛▌ ! í½í½í½í½í½'
  25. WAIT '           ╟├╚╬╥Γ╝ⁿ╘≥╝╠╨°ú«ú«ú«'
  26. USE
  27. RETU
  28. ENDIF
  29. DO WHILE .T.
  30. DO &FN..FMT
  31. CLEAR GET
  32. @ 0,0 SAY SPACE(80)
  33. CX=2
  34. @ 0,11 SAY '╟δ╤í╘±: 0--═ú╓╣▓Θ╤»; 1--╧≥╟░▓Θ╤»; 2--╧≥║≤▓Θ╤»! ' GET CX PICT '9' RANG 0,2
  35. READ
  36. DO CASE
  37. CASE CX=0
  38. USE
  39. RETU
  40. CASE CX=1
  41. SKIP -1
  42. IF BOF()
  43. GO BOTT
  44. ENDIF
  45. CASE CX=2
  46. SKIP
  47. IF EOF()
  48. GO TOP
  49. ENDIF
  50. ENDCASE
  51. ENDDO
  52. ** END OF DBF0.PRG **
  53.