home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / education / b / rulers / !Rulers / !Runimage (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1995-05-13  |  2KB  |  83 lines
  1.  >!Runimage
  2.  "<Rulers$Dir>.Libby.Poll"
  3.  "<Rulers$Dir>.Libby.Windows"
  4.  "<Rulers$Dir>.Libby.Icons"
  5.  "<Rulers$Dir>.Libby.Menus"
  6.  "<Rulers$Dir>.Libby.Templates"
  7. startup("Rulers",2)
  8. error
  9. startup_windows(2)
  10. startup_menus(3)
  11.  def% 512
  12. setupmenublock(3)
  13. setupmenublock(2)
  14. setupmenublock(5)
  15. setupmenublock(1)
  16. load_templates("<Rulers$Dir>.Templates",4096)
  17. menu("H(Hello)T(Info)D(info%)|T(Quit)",1)
  18. iconbaricon("!Rulers",-1)
  19. 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"
  20. wind%=1
  21. respond%(0)=
  22. respond%(3)=
  23. respond%(6)=
  24. respond%(9)=
  25. pollidle(0,10)
  26. respond_null
  27. &"scroll$=
  28. a$+" "+a$,scroll%,30)
  29. newtext(handle%(0),2,scroll$)
  30. scroll%+=1
  31.  scroll%>120 
  32. scroll%=1
  33. newvalid(handle%(0),2,"R"+nextstate$)
  34.  thisstate$,nextstate$
  35. respond_close
  36.  "Wimp_CloseWindow",,block%
  37. wind%-=1
  38. respond_click
  39.  whandle% 
  40.  handle%(0):
  41.  button%=2 
  42.  ihandle%<>1 
  43.  "Wimp_CreateWindow",,def% 
  44.  newhandle%
  45. openwindow(newhandle%)
  46. wind%+=1
  47. changeitem(3,0,
  48. (wind%))
  49.  button%<>2 
  50. openwindow(handle%(0))
  51.  button%=2 
  52. iconbarmenu(1,0,x%)
  53. respond_menu
  54. str$=
  55. decodemenu(menu_on%)
  56.  menu$(0)="Quit" 
  57.  quit%=
  58.  IF menu$(1)="Submenu option 3" THEN PROCswitchtick(0,2)
  59.  menu$(0)="New window" 
  60.  "Wimp_CreateWindow",,def% 
  61.  newhandle%
  62. openwindow(newhandle%)
  63. wind%+=1
  64. changeitem(3,0,
  65. (wind%))
  66. newtext(handle%(0),0,str$)
  67. handleadjust
  68. error
  69.  "Wimp_CloseDown":
  70. $;" ";
  71. ]]a%=
  72. reporterror("Rulers",
  73. $+" (internal error code "+
  74. +")",0,1,0):
  75.  "Wimp_CloseDown":
  76. user_load
  77. load_template("Wunnerful",0,block%)
  78. icon_sprite_area(3,1,block%)
  79. makewindow
  80. d/info%=
  81. create_template("progInfo",0,block%)
  82. load_template("more",0,def%)
  83.