Dear Experts

Following codes works fine in FPD26 but when I run it in VFP6 then computer hangs then I have to power off. ALT+CTRL+DEL also does not work.

What is wrong? Please enable codes to run in VFP6.

F_DATE1=THISFORM.TEXT12.VALUE 	&& {27/10/2004}
T_DATE1=THISFORM.TEXT11.VALUE	&& {23/02/2005}
 
 STORE 0 To Tb, Tl, Tw, Bw, Lw, W, Tfa, Fa, Ar
 SELECT Flow_ra
 ZAP
 Fdate1 = F_date1
 DO While Fdate1>=F_date1 .and. Fdate1<=T_date1
 STORE 0 To B, L, W, W1, W2

 SELECT Fixbook && reccount()=1007
 SUM For (Fix_date=Fdate1) .and. Mode='B' Fix_bag To B
 SUM For (Fix_date=Fdate1) .and. Mode='L' Fix_bag To L
 SUM For (Fix_date=Fdate1) Fix_kg To W
 
 SELECT Fixbill && reccount()=376
 SUM For (Date=Fdate1) Amount To Fa
 R1 = Fa/(W/40)
 Tfa = Tfa+Fa
 Tb = Tb+B
 Tl = Tl+L
 Tw = Tw+W
 
 IF B>0 .or. L>0 .or. W>0
 SELECT Flow_ra
 APPEND Blank
 REPLACE Date With Fdate1, Bags With B, Lose With L, Total_bags With Tb,  ;
         Total_lose With Tl, Today With W, T_weight With Tw, Rate With R1,  ;
         Fix_a With Fa, Total_a With Tfa, Avr_rate With Tfa/(T_weight/40)
 ENDIF
 Fdate1 = Fdate1+1
 ENDDO