home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a056 / 5.ddi / RS / YQMIS011.PRG < prev    next >
Encoding:
Text File  |  1993-12-21  |  1.1 KB  |  60 lines
  1. *******************************************************
  2. * ╬─╝■├√│╞: YQMIS011
  3. * │╠╨≥╔Φ╝╞: ╤┼╞µ                  
  4. * ▒α│╠╚╒╞┌: 93.12.21   21:37:01
  5. *******************************************************
  6. priv ok,oi
  7. set safe off
  8. close data
  9. set color to w/1,,
  10. @ 3,1 clear to 16,78
  11. sele 1
  12. do smggp with '╟δ  ╔╘  ║≥ . . . .',10,30
  13. use c:\rs\RSXBTJ alia a
  14. do smggp with '╩╟╖±╩Σ╚δ╠⌡╝■?(Y/N)',10,30
  15. ok=inkey(0)
  16. if ok=89.or.ok=121.or.ok=13
  17. do szrytj with 'YQMIS011'
  18. endif
  19. goto top
  20. do while .t.
  21. set alte to tjt.txt
  22. set cons off
  23. ?
  24. set alte on
  25. ?? '"'+'╓░╣ñ╨╘▒≡▒╚└²═╝'+'"'
  26. ? '"'+'*************************'+'"'
  27. ? '4,1,10'
  28. oi=1
  29. do while .not.eof()
  30. ? '"'+╨╘▒≡+'",'
  31. ?? ╫▄╚╦╩²
  32. if oi<12
  33. oi=oi+1
  34. else
  35. exit
  36. endif
  37. skip
  38. enddo
  39. ?
  40. set alte off
  41. close alte
  42. set cons on
  43. set color to w/1,,
  44. clear
  45. run sxt tjt.txt
  46. if .not.eof()
  47. do smggp with '╩╟╖±╝╠╨°╧╘╩╛?(Y/N)',10,30
  48. ok=inkey(0)
  49. if ok=78.or.ok=110
  50. exit
  51. endif
  52. else
  53. exit
  54. endif
  55. enddo
  56. return
  57.  
  58. *******************************************************
  59. * ▒α│╠╚╒╞┌: 93.12.21   21:37:01
  60. *******************************************************