Liren Large Software Subsidy 5/05.iso/a/a056/4.ddi/MAIN/YQMIS009.PRG

Text File | 1993-11-02 | 901 b | 36 lines

*******************************************************
* ╬─╝■├√│╞: YQMIS009
* │╠╨≥╔Φ╝╞: └ε▒■╥╗
* ▒α│╠╚╒╞┌: 93.11.02   16:35:22
*******************************************************
set safe off
close data
set color to w/1,,
@ 3,1 clear to 16,78
sele 1
do smggp with '╬∩└φ╔╛│²:                           ',10,22
@ 10,32 say space(26)
@ 10,32 say '│÷╟┌╟δ┐÷╩²╛▌┐Γ'
* set excl on
use c:\main\CQQK alia a
pack
@ 10,32 say space(26)
@ 10,32 say '╣ñ╫╩╝╢▒≡╩²╛▌┐Γ'
* set excl on
use c:\main\GZJB alia a
pack
@ 10,32 say space(26)
@ 10,32 say '╓░╬±╜≥╠∙╩²╛▌┐Γ'
* set excl on
use c:\main\ZWJT alia a
pack
@ 10,32 say space(26)
@ 10,32 say '╣ñ╫╩╓≈╩²╛▌┐Γ'
* set excl on
use c:\main\GZZK alia a
pack
close data
return
*******************************************************
* ▒α│╠╚╒╞┌: 93.11.02   16:35:23
*******************************************************