; Set test script
script "SetTest"

message("Setting A to 1...")
set A to 1
report_var(A)

message("Setting B to &2...")
set B to &2
report_var(B)

message("Setting C to %11...")
set C to %11
report_var(C)

message("Setting D to B (&2)...")
set D to B
report_var(D)

message("Setting E to status(ttxon)...")
set E to status(ttxon)
report_var(E)

message("Setting F to status(cachesize)...")
set F to status(cachesize)
report_var(F)

message("Setting G to status(scriptver)...")
set G to status(scriptver)
report_var(G)

message("Setting H to status(rick)...")
set H to status(rick)
report_var(H)

message("Setting A to status(channel)...")
set A to status(channel)
report_var(A)

message("Setting B to status(uhftune) [for the current channel]...")
set B to status(uhftune)
report_var(B)

cache_insertfile("<Teletext$Pages>.popular", -1, -1)
set H to status(pagefound)

message("Setting C to char(2, 1) [should be 'P' (80)]...")
set C to char(2, 1)
report_var(C)

message("All done!")
terminate()
