home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a056 / 4.ddi / MAIN / YQMIS033.PRG < prev    next >
Encoding:
Text File  |  1993-11-03  |  1.1 KB  |  61 lines
  1. *******************************************************
  2. * ╬─╝■├√│╞: YQMIS033
  3. * │╠╨≥╔Φ╝╞: └ε▒■╥╗                
  4. * ▒α│╠╚╒╞┌: 93.11.03   19:25:18
  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:\main\GZTJ 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 'YQMIS033'
  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.11.03   19:25:18
  60. *******************************************************ì
  61.