>=myInstance('smvfp.exe')
>&& maybe the first line>Procedure myInstance >Parameter myApp >=Ddesetoption("SAFETY",.F.) >ichannel=Ddeinitiate(myApp,"ZOOM") >if ichannel =>0 > wait window 'Your program is already running. This will finish' timeout 5 > Ddeterminate(ichannel) > quit >endif >=Ddesetservice(myApp,"define") >=Ddesetservice(myApp,"execute") >=Ddesettopic(myApp,"ddezoom") >return >******* >Procedure ddezoom >Parameter ichannel,saction,sitem,sdata,sformat,istatus >Zoom window screen Norm >return >*********>