pro sky_subtract, date=date,skipsky=skipsky,skipflat=skipflat

 if not(keyword_set(date)) then date='07Apr29'
 if not(keyword_set(rootdir)) then rootdir=$
    '~/Desktop/LSST/KPNO/Images/Reduced/'

 cd,rootdir
 ;Block Length for Offset

 if not(keyword_set(skipsky)) then skipsky=0
 if not(keyword_set(skipflat)) then skipflat=0
 	
 ;Get Sky and Object Frames
 fits_read, rootdir+'M16Dithered.fits', Object_Frame, ObjectH
 fits_read, rootdir+'MedSky_G_07Apr29.fits', Sky_Frame, SkyH

 Naxis1 = long(sxpar(SkyH, 'NAXIS1'))
 Naxis2 = long(sxpar(SkyH, 'NAXIS2'))
 Offset = 167
 Edge = Naxis1 + Offset
 Object_Frame = Object_Frame(Offset : Naxis1 + Offset -1 , Offset: Naxis2 + Offset -1)

 Subtracted_Frame = Object_Frame - Sky_Frame

 tv,bytscl(congrid(Subtracted_Frame, 512, 512))

stop

end