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(1)
 Camera.Connect("Simulator") REM GUIDER
 REM Camera.Binning(3)
 Camera.Start(1) 
Camera.Wait
 guider.StartAutoguide()
 Pause (1)
 Camera.Connect("Simulator") REM MAIN CAMERA
 REM Camera.Binning(1)
 Camera.Start (3)
 Camera.Wait
 Pause (1)
 Camera.Autofocus()
 Camera.Stop
 Pause (1)
 Camera.Start (10)
 Camera.Wait
 Pause (1)
 Image.Save("c:\" + name$ + ".fit")
 Guider.StopAutoguide()
 Guider.Stop
 Guider.Close
next i