function STEPPER5, index, data, $
	INFO_ARRAY=INFO_ARRAY, SUBSCRIPT=SUBSCRIPT, $
	NOSCALE=NOSCALE, COLOR=COLOR, $
	qstop=qstop,nohelp=nohelp,att=att,pauz=pauz, $
	loud=loud,xoff=xoff,yoff=yoff
;+
;  NAME:
;	STEPPER5
;  PURPOSE:
;       Step through individual images a single frame at a time
;       and permit flagging the output vector with a 0 or 1.
;       It is possible to switch back and forth on a given image
;       as much as you want.
;       Stepping or jumping through the data cube is the same
;       as in stepper.
;	QR images are rebinned to 512x512.
;	Limb circle superposed on each image.
;  SAMPLE CALLING SEQUENCE:
;	output = stepper5(index, data, $
;        INFO_ARRAY=INFO_ARRAY, SUBSCRIPT=SUBSCRIPT, $
;        NOSCALE=NOSCALE, COLOR=COLOR, $
;        qstop=qstop]
;	out = stepper5(index,data)
;  INPUT:
;	index, index structure array
;	data, 3d data cube
;  OPTIONAL INPUT KEYWORDS:
;       NOSCALE     = If set, will turn off tvscale
;       SUBSCRIPT   = Subset of array is displayed.
;       COLOR       = The color to use for displaying the info text string.
;	/nohelp, don't print out the STEPPER5 Options.
;       att, input weekly att file for drawing limb.  Otherwise, limb
;          is drawn with sxt_grid using $DIR_GEN_ATT.
;	pauz, pause between frames (sec)
;	loud, print runtime diagnostics
;	xoff, yoff  = offset of tvscl'd images (pixels)
;  OUTPUT:
;       A vector of 0's and 1's permitting easy selection or
;          de-selection of images for further processing.
;  OPTIONAL KEYWORD OUTPUT:
;       INFO_ARRAY    = descriptive text string (pass as parameter or keyword)
;  HISTORY:
;	11-Nov-2002, LWA; created from stepper to return 0/1 vector.
;	21-May-2003, LWA; corrected program to return vector of 0's and 1's
;	24-Oct-2007, LWA: created from stepper2.  Uses stepper5_s1.
;	31-Oct-2007, LWA: added keyword nohelp to inhibit printout.
;	 9-Nov-2007, LWA: added keyword att for drawing limb info.
;	30-Sep-2008, LWA: added keyword pauz for new faster machines.
;	 5-Oct-2008, LWA: added keyword loud.
;	13-Oct-2008, LWA: Clarified use of att in header.
;	12-Nov-2008, LWA: Added keywords xoff and yoff.
;-

on_error,2		; Return to caller

info_array = get_info(index, /noninteractive)
if keyword_set(subscript) then out=intarr(n_elements(subscript))
if n_elements(out) eq 0 then out=intarr(n_elements(index))
STEPPER5_s1,index,data, $
   INFO_ARRAY=INFO_ARRAY,$
   NOSCALE=NOSCALE, SUBSCRIPT=SUBSCRIPT, $
   COLOR=COLOR, out=out,nohelp=nohelp,att=att, $
   pauz=pauz,loud=loud,xoff=xoff,yoff=yoff

if (keyword_set(qstop)) then stop
return, out

end