if Status=Error then
ErrorType=FileOpenError
else
ReadFile(InputFile,FileData,Status)
if Status= Success then
SummarizeFileData(FileData,SummaryData,Status)
if Status=Error then
ErrorType=DataSummaryError
else
PrinSummary(SummaryData)
SaveSummaryData(SummaryData,Status)
if Status=Error then
ErrorType=SummarySaveError
else
UpdateAllAccounts
EraseUndoFile
ErrorType=None
end if
end if
else
ErrorType=FileReadError
end if
end if
if else
OpenFile(InputFile,Status)
if Status<>Etror then
ReadFile(InputFile,FileData,Status)
if Status=Success then
SummaryFileData(FileData,SummaryData,Status)
if Status<>Error then
PrintSummary(SummarData)
SaveSummaryData(SummaryData,Status)
if Status<> Error then
UpdateAllAccounts
EraseUndoFile
ErrorType=None
else
ErrorType=SummarySaveError / /
end if