; Teletext "!startup" script.
; The current version of Teletext does not ask if you'd like to run
; this script, upon startup. The next version probably will.
; If you don't want to be bothered by that, don't call it "!startup".


; select satellite decoder
channel(5)
poll_now()


; we want to receive CNBC (channel 2 on my satellite decoder; 10,732 Vertical, Analogue PAL)
.isitcnbc
message("Please set satellite receiver to CNBC (channel 2)")
channelid(A)
if (A ! &714E) go("isitcnbc")

; Jay Leno's guest list, and Conan's guest list
getframes(182)
getframes(183)

; now we want to receive CNN (channel 1 on my satellite decoder; 11,627 Vertical, Analogue PAL)
.isitcnn
message("Please set satellite receiver to CNN (channel 1)")
channelid(A)
if (A ! &804F) go("isitcnn")

; News
set A to 101
.getnews
  getframe(A)
  A++
  if (A [ 110) go("getnews")

; Business headlines
getframe(701)

; Entertainment headlines
getframe(130)

; Quote for the day
getframe(178)

; Current weather (Nantes)
getframes(463)

; 3day forecast (Paris)
getframes(470)

; now we have all the frames, let's generate ourselves a document
poll_nomessages()
poll_disable()

filewrite("<Teletext$Temp>.Report")
filewriteovnhead()
filewritestring("{align 1}") ; make it all centred

; NEWS
filewritestring("{newpara}{textsize 16000}{bold 1}{underline 1}")
filewritebyte(34)
filewritestring("Headlines")
filewritebyte(34)
filewritestring("{bold 0}{underline 0}{textsize 12000}")
filewritebyte(34)
filewritestring(" (from CNN)")
filewritebyte(34)
filewritebyte(10)
filewritestring("{textsize}{bold}{underline}{newpara}")
set A to 101
.writenews
  appendframe(A, 3)
  A++
  if (A [ 110) go("writenews")

; BUSINESS HEADLINES
filewritestring("{newpara}{textsize 16000}{bold 1}{underline 1}")
filewritebyte(34)
filewritestring("Business headlines")
filewritebyte(34)
filewritestring("{bold 0}{underline 0}{textsize 12000}")
filewritebyte(34)
filewritestring(" (from CNN)")
filewritebyte(34)
filewritebyte(10)
filewritestring("{textsize}{bold}{underline}{newpara}")
appendframe(701, 3)

; ENTERTAINMENT HEADLINES
filewritestring("{newpara}{textsize 16000}{bold 1}{underline 1}")
filewritebyte(34)
filewritestring("Entertainment headlines")
filewritebyte(34)
filewritestring("{bold 0}{underline 0}{textsize 12000}")
filewritebyte(34)
filewritestring(" (from CNN)")
filewritebyte(34)
filewritebyte(10)
filewritestring("{textsize}{bold}{underline}{newpara}")
appendframe(130, 3)

; QUOTE
filewritestring("{newpara}{textsize 16000}{bold 1}{underline 1}")
filewritebyte(34)
filewritestring("Quote for the day")
filewritebyte(34)
filewritestring("{bold 0}{underline 0}{textsize 12000}")
filewritebyte(34)
filewritestring(" (from CNN)")
filewritebyte(34)
filewritebyte(10)
filewritestring("{textsize}{bold}{underline}{newpara}")
appendframe(178, 3)

; WEATHER IN NANTES
filewritestring("{newpara}{textsize 16000}{bold 1}{underline 1}")
filewritebyte(34)
filewritestring("The weather in Nantes")
filewritebyte(34)
filewritestring("{bold 0}{underline 0}{textsize 12000}")
filewritebyte(34)
filewritestring(" (from CNN)")
filewritebyte(34)
filewritebyte(10)
filewritestring("{textsize}{bold}{underline}{newpara}")
appendgivenframe(463, 2, 3) ; it is frame 2 of 3 that we want

; JAY LENO
filewritestring("{newpara}{textsize 16000}{bold 1}{underline 1}")
filewritebyte(34)
filewritestring("Jay Leno's guest list")
filewritebyte(34)
filewritestring("{bold 0}{underline 0}{textsize 12000}")
filewritebyte(34)
filewritestring(" (from CNBC)")
filewritebyte(34)
filewritebyte(10)
filewritestring("{textsize}{bold}{underline}{newpara}")
appendgivenframe(182, 2, 3) ; it is frame 2 of 2 that we want

; CONAN
filewritestring("{newpara}{textsize 16000}{bold 1}{underline 1}")
filewritebyte(34)
filewritestring("Conan O'Brien's guest list")
filewritebyte(34)
filewritestring("{bold 0}{underline 0}{textsize 12000}")
filewritebyte(34)
filewritestring(" (from CNBC)")
filewritebyte(34)
filewritebyte(10)
filewritestring("{textsize}{bold}{underline}{newpara}")
appendgivenframe(183, 2, 3); it is frame 2 of 2 that we want

; tidy up
filewriteovntail()
fileclose()
filetype("<Teletext$Temp>.Report", &B25)
oscall("Filer_Run <Teletext$Temp>.Report")

; we're done
terminate()