; findtest

channel(5)

getframe(100)

fileupdate("<Teletext$Dir>.Scripts._findtest")

lvar()

selectframe(100)
set A to 1
.loop
  find(B,"CNN",A)
  if (B ! 0) appendline(A, 2)
  if (B ! 0) filewritebyte(10)
  A++

  if (A [ 24) go("loop")

fileclose()

eggy()

showcontrols()
showviewer()
showcachelist()

terminate()
