home *** CD-ROM | disk | FTP | other *** search
- *******************************************************
- * ╬─╝■├√│╞: YQMIS033
- * │╠╨≥╔Φ╝╞: └ε▒■╥╗
- * ▒α│╠╚╒╞┌: 93.11.03 19:25:18
- *******************************************************
- priv ok,oi
- set safe off
- close data
- set color to w/1,,
- @ 3,1 clear to 16,78
- sele 1
- do smggp with '╟δ ╔╘ ║≥ . . . .',10,30
- use c:\main\GZTJ alia a
- do smggp with '╩╟╖±╩Σ╚δ╠⌡╝■?(Y/N)',10,30
- ok=inkey(0)
- if ok=89.or.ok=121.or.ok=13
- do szrytj with 'YQMIS033'
- endif
- goto top
- do while .t.
- set alte to tjt.txt
- set cons off
- ?
- set alte on
- ?? '"'+'╕≈╡Ñ╬╗╚╦╩²┼Σ╔╚╨╬═╝'+'"'
- ? '"'+'~~~~~~~~~~~~~~~~~~~~~~~~~~~'+'"'
- ? '4,1,10'
- oi=1
- do while .not.eof()
- ? '"'+╡Ñ╬╗+'",'
- ?? ╚╦╩²
- if oi<12
- oi=oi+1
- else
- exit
- endif
- skip
- enddo
- ?
- set alte off
- close alte
- set cons on
- set color to w/1,,
- clear
- run sxt tjt.txt
- if .not.eof()
- do smggp with '╩╟╖±╝╠╨°╧╘╩╛?(Y/N)',10,30
- ok=inkey(0)
- if ok=78.or.ok=110
- exit
- endif
- else
- exit
- endif
- enddo
- return
-
- *******************************************************
- * ▒α│╠╚╒╞┌: 93.11.03 19:25:18
- *******************************************************ì