# Snapshot of string scanning
p2 := *image(&subject) - 2
p1 +:= *image(&subject[i]) - 2
p3 := *image(&subject[&pos]) - 3
every i := &pos + 1 to *&subject do
p2 +:= *image(&subject[i]) - 2
write(bar := repl("-",17 + p2))
write("|",right("|",16 + p2))
write("| &subject = ",image(&subject)," |")
write("| ",right("|",p1 - p3 + 1),
right("|",p2 - p1 + p3 + 3))