' LRGB»£±Æ 2006/02/08 by kaz seq$ = "BGRL" obj$ = "N253" for i = 1 to len(seq$) f$ = seq$[i] Wheel.Goto(f$) b = 2 : c = 3 : t = 300 if f$ = "L" then b = 1 : c =4 : t = 600 Camera.Binning(b) for j = 1 to c Camera.Start(t) Camera.Wait Image.Rename(obj$ + f$ + str$(j) + ".fit") Image.Save(obj$ + f$ + str$(j) + ".fit") next j next i message("Finish!")