PRO mk_mo, mo, mo_node, mo_dev, mt_dev, mag_disk, $
		interactive=interactive, start_week = start_week
;	-------------------------------------------------------------
;+						May-6-1993
;	NAME: mk_mo
;
;	PURPOSE: Make an MO archive disk from Exabyte Archive Tape.
;
;	CALLING SEQUENCE:
;		mk_mo, mo, mo_node, mo_dev, mt_dev, mag_disk
;	examples:
;		mk_mo, '058A', 'flare4', 0 	;archive fr "on-line data"
;		mk_mo, '058B', 'flare4', 0	;to MO # 0 on flare4
;		mk_mo, '003B', 'flare4', 0, [0,1]	;archive fr tapeS
;		mk_mo, '006B', 'flare4', 0, [0], '/yd13/mo_a'
;	
;	INPUT:
;	mo		MO number to make (eg. 000A, 000B, 010A)
;	mo_node		Node name where MO device is located.
;	mo_dev		MO device number...(eg. 0 or 1)
;	mag_disk	Directories for staging tape data
;			Default are: ['/yd13/mo_a','/yd13/mo_b'] 
;			if input undefined-- assumes /yd13...
;	mt_dev		Tape device number 0 or 1. if undefined
;			uses dev=0.  IF dev is vector batch mode
;			is assumed.... no user prompts!
;			force batch mode with ONE tape by [0,0].
;
;	Optional Input: (NOT WORKING YET!)
;	start_week	When more than 4 per MO side...
;			(eg for mo=' 007a', start_week='91_01')
;	interactive	switch to force interactive run
;
;	LIMITS:
;		Only will dump a maxium of two archive weeks to MO.
;		When more than two tape archive weeks are contained
;		on an MO side must use "start_week" to dump the 3rd
;		and 4th weeks to MO.
;
;	HISTORY:
;		written by gal 9-Apr-93
;		mods, 6-May-93, gal
;
;-
;	--------------------------------------------------------------

	IF keyword_set(interactive) then begin
	  batch = 0		;set to interactive mode
	ENDIF ELSE BEGIN
	  batch = 1		;default to batch mode
	  If n_elements(mt_dev) eq 0 then mt_dev = [0,0]  ;quick fix.
	ENDELSE

	IF n_elements(mag_disk) eq 0 THEN BEGIN
	  mag_disk = ['/yd13/mo_a','/yd13/mo_b']	;defaults
	ENDIF

	IF n_elements(mt_dev) eq 0 THEN mt_dev =0		;default

	mo_prep, mo_node, mo_dev, mo_disk, wks, mo_no, /mount, mkdir=mo
				;Use init switch after J-side gets
				;an mo init. account!
;	add logic for start_week switch
;	s    ----- limit wks to two elements.....
;	SO MO_NO==[12,13,14,15] => [12,13] OR W/START.,.=[14,15]

	For i=0, n_elements(wks)-1 DO BEGIN 	;do for each week.
						;but limit to number of
						;tape drives avail.

	  mo_wk_no = mo_no(i)		;pass the MO week index 
					;if 4 weeks per MO side=[12,13,14,15]
	  
	  if n_elements(mag_disk) eq 1 THEN BEGIN
	    mdisk = mag_disk
	  endif else begin		;more than 1 dir
	    mdisk = mag_disk(i)		
	  endelse

	  IF batch then begin		;use 2 mt drives // or 1 mt
	    idev = mt_dev(i)		;tape drive	  
	    mk_mo_disk2, mo_disk, mdisk, dev=idev, mo_wk_no=mo_wk_no, $
		/batch, progress=[i+1, n_elements(wks)]
	  ENDIF ELSE BEGIN
	    idev = mt_dev			;only using one drive //interactive
	    mk_mo_disk2, mo_disk, mdisk, dev=idev, mo_wk_no=mo_wk_no, $
		progress=[i+1, n_elements(wks)]
	  ENDELSE

	ENDFOR

	mo_prep, mo_node, mo_dev, /umount	;unmount MO

	message = ['MO # '+mo+' is completed and unmounted.', $
		' Ensure that side '+strmid(mo, 3, 1)+' is WRITE-LOCKED'+ $
		' before filing this MO to the MO archive!']
	mail, message, subj='MK_MO is done.', user='$MAIL_MK_MO', /self

	END