n = Telescope.List.Count for i = 1 to n ra = Telescope.List.Ra(i) de = Telescope.List.Dec(i) name$ = Telescope.List.Name$(i) Telescope.Goto(ra,de) Telescope.Wait Pause(20) Camera.Start(35) Camera.Wait Image.Save("C:\Automatic\" + name$ + ".fit") Pause(1) Camera.Start(35) Camera.Wait Image.Save("C:\Automatic\" + name$ + "-1.fit") Pause(1) Camera.Start(35) Camera.Wait Image.Save("C:\Automatic\" + name$ + "-2.fit") Pause(1) Camera.Start(35) Camera.Wait Image.Save("C:\Automatic\" + name$ + "-3.fit") next i