zymain.prg

vfp原程序prg

clear 
clos all
set sysmenu off
set status bar off
set esca off
SET EXCL ON
SET TALK OFF
SET SAFE OFF
SET STAT OFF
SET SCOR OFF
SET EXAC ON
SET DELE ON
SET DEVI TO SCRE
SET CONS OFF
publ  a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15
publ  b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12
publ  c1,c2,c3,c4,c5,c6,c7,c8,c9,c10,c11,c12
publ  d1,d2,d3,d4,d5,d6,d7,d8
publ  e1,e2,e3,e4,e5,e6,e7,e8,e9,e10,e11,e12
publ  tjlb(19)
set path to c:\omr;c:\vfp
zoom wind screen max
*@0,0 clear
_screen.caption="山西省普通高校招生补报志愿卡修改校对程序"
picture='qc.jpg'
_screen.controlbox=.f.
do zyk.mpr
read events