axlExtractToFile(extract_commands extract_data '("quiet"))
ext_results = infile(extract_data)
f_report = axlDMOpenFile("ALLEGRO_REPORT" report_file "w")
while( gets(line_rd ext_results)
l_fields=parseString(line_rd "!")
if(car(l_fields)=="S" then
unless(last_line==line_rd
;unless the line read matches the last line write it to the report.
fprintf(f_report "%s", line_rd)
last_line=line_rd ;reset the last line value
);end unless
);end if
);end while
close(ext_results)
close(f_report)
;Clean up
deleteFile(extract_commands) ;delete the view file
deleteFile(extract_data) ;delete the raw data file
printf("Report complete.\n")
);end let
);end defun