>!Runimage
 "<Rulers$Dir>.Libby.Poll"
 "<Rulers$Dir>.Libby.Windows"
 "<Rulers$Dir>.Libby.Icons"
 "<Rulers$Dir>.Libby.Menus"
 "<Rulers$Dir>.Libby.Templates"
startup("Rulers",2)
error
startup_windows(2)
startup_menus(3)
 def% 512
setupmenublock(3)
setupmenublock(2)
setupmenublock(5)
setupmenublock(1)
load_templates("<Rulers$Dir>.Templates",4096)
menu("H(Hello)T(Info)D(info%)|T(Quit)",1)
iconbaricon("!Rulers",-1)
a$="   ROMAN BRITAIN 43 TO 450AD - COMING OF THE ENGLISH 450 TO 613 - KINGDOMS 613 TO 1017 - DANISH RULE 1017 TO 1066    ":scroll%=1:thisstate$="1":nextstate$="3"
wind%=1
respond%(0)=
respond%(3)=
respond%(6)=
respond%(9)=
pollidle(0,10)
respond_null
&"scroll$=
a$+" "+a$,scroll%,30)
newtext(handle%(0),2,scroll$)
scroll%+=1
 scroll%>120 
scroll%=1
newvalid(handle%(0),2,"R"+nextstate$)
 thisstate$,nextstate$
respond_close
 "Wimp_CloseWindow",,block%
wind%-=1
respond_click
 whandle% 
 handle%(0):
 button%=2 
 ihandle%<>1 
 "Wimp_CreateWindow",,def% 
 newhandle%
openwindow(newhandle%)
wind%+=1
changeitem(3,0,
(wind%))
 button%<>2 
openwindow(handle%(0))
 button%=2 
iconbarmenu(1,0,x%)
respond_menu
str$=
decodemenu(menu_on%)
 menu$(0)="Quit" 
 quit%=
 IF menu$(1)="Submenu option 3" THEN PROCswitchtick(0,2)
 menu$(0)="New window" 
 "Wimp_CreateWindow",,def% 
 newhandle%
openwindow(newhandle%)
wind%+=1
changeitem(3,0,
(wind%))
newtext(handle%(0),0,str$)
handleadjust
error
 "Wimp_CloseDown":
$;" ";
]]a%=
reporterror("Rulers",
$+" (internal error code "+
+")",0,1,0):
 "Wimp_CloseDown":
user_load
load_template("Wunnerful",0,block%)
icon_sprite_area(3,1,block%)
makewindow
d/info%=
create_template("progInfo",0,block%)
load_template("more",0,def%)