######  copy/paste  from the screen dump at the NEIC web site
K = c(
' PDE-Q  2008  12 31 053408.80  40.11  -77.00   1  2.4 LgGS    ... ....... ',      
' PDE-Q  2008  12 31 084757.50  46.75  154.41  14  4.9 mbGS    ... ....... ')      
G = parse.pde(K[1])
Run the code above in your browser using DataLab