PRO plotobs,longs,lats,times,places,date
;
;	DPS, Sept 1992
;
dstring=STRMID(date,0,2)+'/'+STRMID(date,2,2)+'/'+STRMID(date,4,2)
USERSYM,[1,0,-1,0],[0,1,0,-1],/FILL
tstring='Auroral Sightings, '+dstring
MAP_SET,50.0,-110,0,/ORTHOGRAPHIC,/CONTINENTS,LIMIT=[25,-170,75,-50], $
        /GRID,/LABEL,TITLE=tstring
PLOTS,longs,lats,PSYM=8
al=BYTARR(N_ELEMENTS(places))+1
fort=STRPOS(places,'Fort') & wfort=WHERE(fort NE -1)
cape=STRPOS(places,'Cape') & wcape=WHERE(cape NE -1)
wfc=[wfort,wcape] & wfc=wfc(SORT(wfc))
wnotfc=WHERE((fort EQ -1) AND (cape EQ -1))
pl3=STRARR(N_ELEMENTS(places))
pl3(wnotfc)=STRMID(places(wnotfc),0,3)
pl3(wfc)=STRMID(places(wfc),0,1)+STRMID(places(wfc),5,2)
XYOUTS,longs-1,lats,pl3,ALIGNMENT=1.0
RETURN
END