home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DBF1.PRG < prev    next >
Encoding:
Text File  |  1990-04-29  |  668 b   |  39 lines
  1. ****** ╚½╞┴─╗╧╘╩╛╡Ñ╠⌡╝╟┬╝ DBF1.PRG ******
  2. ****** DO DBF1                     ******
  3. ****** ╚δ┐┌▓╬╩²: FN:╬─╝■├√.        ******
  4. ******           X:╝╟┬╝╦│╨≥║┼      ******
  5. ****** │÷┐┌▓╬╩²: CX:╣ª─▄┤·║┼       ******
  6. CLEAR
  7. GO TOP
  8. SKIP M->X-1
  9. DO WHILE .T.
  10. DO &FN..FMT
  11. CLEAR GET
  12. @ 0,0 SAY SPACE(80)
  13. CX=2
  14. DO WHILE .T.
  15. @ 0,1 SAY '╟δ╤í╘±: 0--═ú╓╣▓Θ╤»; 1--╧≥╟░▓Θ╤»; 2--╧≥║≤▓Θ╤»;7.--╕─▒Σ╧╘╩╛╖╜╩╜! ' GET M->CX PICT '9'
  16. READ
  17. IF M->CX>=0 .AND. M->CX<=2 .OR. M->CX=7
  18. EXIT
  19. ENDIF
  20. ENDDO
  21. DO CASE
  22. CASE M->CX=0
  23. RETU
  24. CASE M->CX=1
  25. SKIP -1
  26. IF BOF()
  27. GO BOTT
  28. ENDIF
  29. CASE M->CX=2
  30. SKIP
  31. IF EOF()
  32. GO TOP
  33. ENDIF
  34. CASE M->CX=7
  35. RETURN
  36. ENDCASE
  37. ENDDO
  38. ** END DBF1.PRG **
  39.