[R] Data management problem (reorder rows in dataframe by text flag)

[Dale Steele]

Given two columns of type character in a dataframe of the form:

col1    col2
31*	66
0	0*
102*	66
71*	80
31	2*
66	31*
47	38*

How do I generate the following dataframe?  Ie. col1 contains row item 
with "*" and col2 contains row member without "*"

col1    col2
31	66
0	0
102	66
71	80
2	31
31	66
38	47

Partial ideas thus far....
grep("*",col1,fixed=T)
as.numeric(gsub("*","",col1))

Thanks.  --Dale