(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      1652,         61]
NotebookOptionsPosition[      1333,         45]
NotebookOutlinePosition[      1673,         60]
CellTagsIndexPosition[      1630,         57]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", "\"\<C:\\\\\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FileName", "=", "\"\<run0032\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FileImport", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"FileName", "<>", "\"\<.dat\>\""}], ",", "\"\<Table\>\""}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.398792709731633*^9, 3.3987927109056263`*^9}, {
   3.399148842484926*^9, 3.39914884281291*^9}, {3.399148968421875*^9, 
   3.399149004953125*^9}, {3.39914932071875*^9, 3.399149322140625*^9}, 
   3.39915061121875*^9}],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.399149024046875*^9, 3.399149374375*^9}]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{15, Automatic}, {Automatic, 0}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 628, 16, 72, "Input"],
Cell[1221, 41, 96, 1, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)