DayData >>
 Date : String
 Open, High, Low, Close : Float
;

/* * */

ReadCSV ->
Arg Records : &Array : DayData 
    File_name : String 
    RecordFrom : < &DayData, Array : String >

Do Records .= Day_data
   ' Line - LineIn >Line< File_name,
     Columns - Split >Columns< Line ';',
     Day_data - RecordFrom >Day_data< Columns
While Lines File_name

/

