Highlight all Untested nets simultaneously?

below is the skill code that generates a testprep report, then reads it & highlights the nets that are not tested...

procedure(highlite_notest()
let((rptFile cnt inport line flag list list2)
(rptFile = "test_report.txt")
axlShell("reports \"Testprep Report\" nographic write test_report.txt")
axlMsgPut("reading %s" rptFile)
(cnt = 0)
(flag = nil)
(inport = infile(rptFile))
when(inport
while(gets(line inport)
when(and(not(nindex(line "---")) not(nindex(line "===")))
when(flag
(list=parseString(line "|"))
when(eq(length(list) 3)
(list2 = parseString(car(list)))
when(eq(length(list2) 1)
axlClearSelSet()
axlSelectByName("NET" car(list2))
(axlHighlightObject axlGetSelSet() t)
cnt++
)
)
)
when(nindex(line "Nets currently not tested")
(flag = t)
)
when(nindex(line "Total number of nets not currently tested")
(flag = nil)
)
)
)
)
close(inport)
axlMsgPut("%d nets highlighted" cnt)
)
)
axlCmdRegister( "highlite_notest" 'highlite_notest)

Below is the transcript from in Allegro:

Command > skill 'load("c:/users/davidh/documents/highlite_notest.il")'
t
Command > highlite_notest
Loading axlcore.cxt
reading test_report.txt
45 nets highlighted
Command >

Hey Thanks David, I didn't get a chance to give it a go today, but will try Monday. I'm sure it will work well. Thanks so much. 

The skill code routine provided exactly what I was looking for.  Thanks again David! 

This worked perfectly, what a great script to have, thanks DavidJHutchins