Shift_save:
Flcd = 100 : Incr Save_number : Esave_number = Save_number : Bb = 1
Home L : Lcd " LOADING " : Locate 2 , 11 : Lcd "0 % "
Save_time_e_second(1) = Second : Save_time_e_minute(1) = Minute : Save_time_e_hour(1) = Hour
Save_time_e_day(1) = Day : Save_time_e_month(1) = Month : Save_time_e_year(1) = Year :
Esave_time_e_second(1) = Save_time_e_second(1) : Esave_time_e_minute(1) = Save_time_e_minute(1 )
Esave_time_e_hour(1) = Save_time_e_hour(1) : Esave_time_e_day(1) = Save_time_e_day(1)
Esave_time_e_month(1) = Save_time_e_month(1) : Esave_time_e_year(1) = Save_time_e_year(1)
Esave_f(1) = Save_f(1)
Incr Bb : Ww = Bb * 3 : Locate 2 , 11 : Lcd "3 % "
For Aa = 30 To 2 Step - 1
Save_set_weight(aa) = Save_set_weight(aa - 1)
Save_set_khata(aa) = Save_set_khata(aa - 1)
Save_number_weight(aa) = Save_number_weight(aa - 1)
Save_small_weight(aa) = Save_small_weight(aa - 1)
Save_big_weight(aa) = Save_big_weight(aa - 1)
Save_time_weight(aa) = Save_time_weight(aa - 1)
Save_f(aa) = Save_f(aa - 1)
Esave_set_weight(aa) = Save_set_weight(aa)
Esave_set_khata(aa) = Save_set_khata(aa)
Esave_number_weight(aa) = Save_number_weight(aa)
Esave_small_weight(aa) = Save_small_weight(aa)
Esave_big_weight(aa) = Save_big_weight(aa)
Esave_time_weight(aa) = Save_time_weight(aa)
Esave_f(aa) = Save_f(aa)
Save_time_s_second(aa) = Save_time_s_second(aa - 1)
Save_time_s_minute(aa) = Save_time_s_minute(aa - 1)
Save_time_s_hour(aa) = Save_time_s_hour(aa - 1)
Save_time_s_day(aa) = Save_time_s_day(aa - 1)
Save_time_s_month(aa) = Save_time_s_month(aa - 1)
Save_time_s_year(aa) = Save_time_s_year(aa - 1)
Esave_time_s_second(aa) = Save_time_s_second(aa)
Esave_time_s_minute(aa) = Save_time_s_minute(aa)
Esave_time_s_hour(aa) = Save_time_s_hour(aa)
Esave_time_s_day(aa) = Save_time_s_day(aa)
Esave_time_s_month(aa) = Save_time_s_month(aa)
Esave_time_s_year(aa) = Save_time_s_year(aa)
Incr Bb : Ww = Bb * 3 : Locate 2 , 11 : Lcd Ww ; " % "
Save_time_e_second(aa) = Save_time_e_second(aa - 1)
Save_time_e_minute(aa) = Save_time_e_minute(aa - 1)
Save_time_e_hour(aa) = Save_time_e_hour(aa - 1)
Save_time_e_day(aa) = Save_time_e_day(aa - 1)
Save_time_e_month(aa) = Save_time_e_month(aa - 1)
Save_time_e_year(aa) = Save_time_e_year(aa - 1)
Esave_time_e_second(aa) = Save_time_e_second(aa)
Esave_time_e_minute(aa) = Save_time_e_minute(aa )
Esave_time_e_hour(aa) = Save_time_e_hour(aa)
Esave_time_e_day(aa) = Save_time_e_day(aa)
Esave_time_e_month(aa) = Save_time_e_month(aa)
Esave_time_e_year(aa) = Save_time_e_year(aa)
Next
Incr Bb : Ww = Bb * 3 : Locate 2 , 11 : Lcd Ww ; " % "
Save_set_weight(1) = Set_weight : Save_set_khata(1) = Set_khata : Save_number_weight(1) = 0
Save_small_weight(1) = 0 : Save_big_weight(1) = 0 : Save_time_weight(1) = Set_time
Save_f(1) = 0 : Save_time_s_second(1) = Second : Save_time_s_minute(1) = Minute
Save_time_s_hour(1) = Hour : Save_time_s_day(1) = Day
Save_time_s_month(1) = Month : Save_time_s_year(1) = Year
Save_time_e_hour(1) = 99
Incr Bb : Ww = Bb * 3 : Locate 2 , 11 : Lcd Ww ; " % "
Esave_set_weight(1) = Save_set_weight(1) : Esave_set_khata(1) = Save_set_khata(1)
Esave_number_weight(1) = Save_number_weight(1) : Esave_small_weight(1) = Save_small_weight(1)
Esave_big_weight(1) = Save_big_weight(1) : Esave_time_weight(1) = Save_time_weight(1)
Esave_f(1) = Save_f(1) : Esave_time_s_second(1) = Save_time_s_second(1)
Esave_time_s_minute(1) = Save_time_s_minute(1) : Esave_time_s_hour(1) = Save_time_s_hour(1)
Esave_time_s_day(1) = Save_time_s_day(1) : Esave_time_s_month(1) = Save_time_s_month(1)
Esave_time_s_year(1) = Save_time_s_year(1)
Return
صفحه اصلی
انجمن
جستجو
فهرست اعضا
افزونه های فایرفاکس
» 
تشکر شده توسط :