; Script to fetch news articles on BBC ceefax, in whizz time! ; ; Timed at 1 minute, 59 seconds. ¤script "bbcnewswhz" channel(1) getframe(100) set A to status(pagefound) if (A ! 1) error("Timed out trying to fetch page - is antenna connected?") set A to 104 set E to 109 .fetchloop getframe(A) set F to A add(F, 5) getframe(F) add(F, 5) getframe(F) add(F, 5) getframe(F) A++ if(A [ E) go("fetchloop") set A to 104 set E to 124 .processloop set B to 1 selectframe(A) set C to 1 .omittop omitline(C) C++ if(C [ 5) go("omittop") set C to 22 .omitend omitline(C) C++ if(C [ 25) go("omitend") storeframe() A++ if(A [ E) go("processloop") filewrite(".bbcnews") set A to 104 set E to 124 .outputframes appendframe(A, 2) filewritebyte(10) filewritebyte(10) A++ if(A [ E) go("outputframes") fileclose() filetype(".bbcnews", &FFF) oscall("%Filer_Run .bbcnews") terminate()