ReadFile ->
Arg Records : ^&Array : OptionRecord, File_name : String

- LinesIn >Lines< File_name READ_FILE

Do get Line from Lines
 Records .= Record
 ' Record - ParseLine >Record< Line
 [ First_chars = 'Call' 
   ' First_chars <- Line # 1 'Call'._ ]
;

/

