привет васем, ест прога, когда инсталирую windows7 и до пергого обнавления запускаю прогу написано на foxpro9, то прога работает нормально, а после пергого обнавления windows7 и перезагрузку прога работает очень медленно, помоги те пожалуйста, ест ли кокая даполнение foxpro9 для windows7
заранее спосибо

прога под xp работает около 10 минут а под windows7(после пергого обновления windows7) около 22часа, вот в чем вопрос, вот код


SET TALK OFF
SELECT gorcakic
DELETE ALL
PACK
t=ALLTRIM(thisform.text5.Value)

SELECT ABONENT
SET ORDER TO abonhamar
SCAN
*GO RECNO()
*r=RECNO([abonent])
kod = ABONENT.ABONHAMAR
kk=kod
thisform.text6.Value=kod
SELECT abonkod
*SET ORDER TO abonhamar
*SEEK kk
*SCAN
k2=0


*USE 'D:\Tsragrer FOX\epikrnor\abonkod.dbf'



LOCATE for abonkod.abonhamar=kk.and.abonkod.tari>=t
ff=abonkod.tari
r=RECNO([abonkod])
DO WHILE abonkod.abonhamar=kod

k2=0
qq1=0
*SEEK kk
*r=RECNO([abonkod])
xm=abonkod.hunvar
*DO WHILE abonkod1.abonhamar=k
SUM(abonkod.hunvar) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.tari>=t.and.hunvar>0 TO q
COUNT ALL for abonhamar=kk.and.tari>=t TO qq
qq1=r+(qq-1)
xhunvar=s/q
FOR m=r TO qq1
GO RECORD m
xm=abonkod.hunvar
IF xm>0 then
k1=(xm-xhunvar)*(xm-xhunvar)
k2=k2+k1
ENDIF
ENDFOR
IF xhunvar>0 then
khunvar=SQRT(k2/q)/xhunvar
ELSE
khunvar=0
ENDIF
SUM(abonkod.petrvar) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t.and.petrvar>0 TO q
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t TO qq
qq1=r+(qq-1)
xpetrvar=s/q
k2=0
FOR m=r TO qq1
GO RECORD m
xm=abonkod.petrvar
IF xm>0 then
k1=(xm-xpetrvar)*(xm-xpetrvar)
k2=k2+k1
ENDIF
ENDFOR
IF xpetrvar>0 then
kpetrvar=SQRT(k2/q)/xpetrvar
ELSE
kpetrvar=0
ENDIF
SUM(abonkod.mart) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t.and.mart>0 TO q
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t TO qq
qq1=r+(qq-1)
xmart=s/q
k2=0
FOR m=r TO qq1
GO RECORD m
xm=abonkod.mart
IF xm>0 then
k1=(xm-xmart)*(xm-xmart)
k2=k2+k1
ENDIF
ENDFOR
IF xmart>0 then
kmart=SQRT(k2/q)/xmart
ELSE
kmart=0
ENDIF
SUM(abonkod.april) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t.and.april>0 TO q
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t TO qq
qq1=r+(qq-1)
xapril=s/q
k2=0
FOR m=r TO qq1
GO RECORD m
xm=abonkod.april
IF xm>0 then
k1=(xm-xapril)*(xm-xapril)
k2=k2+k1
ENDIF
ENDFOR
IF xapril>0 then
kapril=SQRT(k2/q)/xapril
ELSE
kapril=0
ENDIF
SUM(abonkod.mayis) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t.and.mayis>0 TO q
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t TO qq
qq1=r+(qq-1)
xmayis=s/q
k2=0
FOR m=r TO qq1
GO RECORD m
xm=abonkod.mayis
IF xm>0 then
k1=(xm-xmayis)*(xm-xmayis)
k2=k2+k1
ENDIF
ENDFOR
IF xmayis>0 then
kmayis=SQRT(k2/q)/xmayis
ELSE
kmayis=0
ENDIF
SUM(abonkod.hunis) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t.and.hunis>0 TO q
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t TO qq
qq1=r+(qq-1)
xhunis=s/q
k2=0
FOR m=r TO qq1
GO RECORD m
xm=abonkod.hunis
IF xm>0 then
k1=(xm-xhunis)*(xm-xhunis)
k2=k2+k1
ENDIF
ENDFOR
IF xhunis>0 then
khunis=SQRT(k2/q)/xhunis
ELSE
khunis=0
ENDIF
SUM(abonkod.hulis) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t.and.hulis>0 TO q
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t TO qq
qq1=r+(qq-1)
xhulis=s/q
k2=0
FOR m=r TO qq1
GO RECORD m
xm=abonkod.hulis
IF xm>0 then
k1=(xm-xhulis)*(xm-xhulis)
k2=k2+k1
ENDIF
ENDFOR
IF xhulis>0 then
khulis=SQRT(k2/q)/xhulis
ELSE
khulis=0
ENDIF
SUM(abonkod.ogostos) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t.and.ogostos>0 TO q
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t TO qq
qq1=r+(qq-1)
xogostos=s/q
k2=0
FOR m=r TO qq1
GO RECORD m
xm=abonkod.ogostos
IF xm>0 then
k1=(xm-xogostos)*(xm-xogostos)
k2=k2+k1
ENDIF
ENDFOR
IF xogostos>0 then
kogostos=SQRT(k2/q)/xogostos
ELSE
kogostos=0
ENDIF
SUM(abonkod.september) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t.and.september>0 TO q
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t TO qq
qq1=r+(qq-1)
xseptember=s/q
k2=0
FOR m=r TO qq1
GO RECORD m
xm=abonkod.september
IF xm>0 then
k1=(xm-xseptember)*(xm-xseptember)
k2=k2+k1
ENDIF
ENDFOR
IF xseptember>0 then
kseptember=SQRT(k2/q)/xseptember
ELSE
kseptember=0
ENDIF
SUM(abonkod.hoktember) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t.and.hoktember>0 TO q
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t TO qq
qq1=r+(qq-1)
xhoktember=s/q
k2=0
FOR m=r TO qq1
GO RECORD m
xm=abonkod.hoktember
IF xm>0 then
k1=(xm-xhoktember)*(xm-xhoktember)
k2=k2+k1
ENDIF
ENDFOR
IF xhoktember>0 then
khoktember=SQRT(k2/q)/xhoktember
ELSE
khoktember=0
ENDIF
SUM(abonkod.noyember) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t.and.noyember>0 TO q
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t TO qq
qq1=r+(qq-1)
xnoyember=s/q
k2=0
FOR m=r TO qq1
GO RECORD m
xm=abonkod.noyember
IF xm>0 then
k1=(xm-xnoyember)*(xm-xnoyember)
k2=k2+k1
ENDIF
ENDFOR
IF xnoyember>0 then
knoyember=SQRT(k2/q)/xnoyember
ELSE
knoyember=0
ENDIF
SUM(abonkod.dektember) for abonkod.abonhamar=kk.and.abonkod.tari>=t to s
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t.and.dektember>0 TO q
COUNT ALL for abonhamar=kk.and.abonkod.tari>=t TO qq
qq1=r+(qq-1)
xdektember=s/q
k2=0
FOR m=r TO qq1
GO RECORD m
xm=abonkod.dektember
IF xm>0 then
k1=(xm-xdektember)*(xm-xdektember)
k2=k2+k1
ENDIF
ENDFOR
IF xdektember>0 then
kdektember=SQRT(k2/q)/xdektember
ELSE
kdektember=0
ENDIF
EXIT
ENDDO
*ENDIF

IF abonkod.abonhamar=kk.and.abonkod.tari>=t THEN
SELECT gorcakic
APPEND BLANK
REPLACE tari WITH t
GO BOTTOM
REPLACE abonhamar WITH kod
REPLACE hunvar WITH khunvar
REPLACE petrvar WITH kpetrvar
REPLACE mart WITH kmart
REPLACE april WITH kapril
REPLACE mayis WITH kmayis
REPLACE hunis WITH khunis
REPLACE hulis WITH khulis
REPLACE ogostos WITH kogostos
REPLACE september WITH kseptember
REPLACE hoktember WITH khoktember
REPLACE noyember WITH knoyember
REPLACE dektember WITH kdektember
*EXIT
ENDIF
ENDSCAN