;This function returns the current date as MON, DD YYYY
;I couldn't get the function to work without an input parameter so
;use is as follows
;                  a=currdate(x)
;where
;                      x = anything
;                      a = current date string: MON, DD YYYY
;BWBerger 7/98

function currdate,x

r=systime(0)
a=strmid(r,4,6)+', '+strmid(r,20,4)

return,a
end