home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / p / pinit / !PinIt / !RunImage (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1995-05-18  |  1.5 KB  |  47 lines
  1.  Choose
  2.  "<PinIt$Dir>.WimpLib.Poll"
  3.  "<PinIt$Dir>.WimpLib.Windows"
  4.  "<PinIt$Dir>.WimpLib.Icons"
  5.  "<PinIt$Dir>.WimpLib.Templates"
  6. startup("PinIt",2)
  7. startup_windows(1)
  8. load_templates("<PinIt$Dir>.Templates",4096)
  9. respond%(3)=
  10. respond%(6)=
  11. poll(1)
  12. respond_close
  13. quit%=
  14. user_load
  15. create_template("Choices",1,block%)
  16. openwindow(x%)
  17. respond_click
  18.  ihandle% 
  19.  "<PinIt$Dir>.Stripes.One"
  20.  "<PinIt$Dir>.Stripes.Two"
  21.  "<PinIt$Dir>.Stripes.Three"
  22.  "<PinIt$Dir>.Stripes.Four"
  23.  "<PinIt$Dir>.Stripes.Five"
  24.  "<PinIt$Dir>.Stripes.Six"
  25.  "<PinIt$Dir>.Stripes.Seven"
  26.  "<PinIt$Dir>.Corners.One"
  27.  "<PinIt$Dir>.Corners.Two"
  28.  "<PinIt$Dir>.Corners.Three"
  29.  "<PinIt$Dir>.Corners.Four"
  30.  "<PinIt$Dir>.Corners.Five"
  31.  "<PinIt$Dir>.Corners.Six"
  32.  "<PinIt$Dir>.Corners.Seven"
  33.  "<PinIt$Dir>.Slant.One"
  34.  "<PinIt$Dir>.Slant.Two"
  35.  "<PinIt$Dir>.Slant.Three"
  36.  "<PinIt$Dir>.Slant.Four"
  37.  "<PinIt$Dir>.Slant.Five"
  38.  "<PinIt$Dir>.Slant.Six"
  39.  "<PinIt$Dir>.Slant.Seven"
  40.  "<PinIt$Dir>.Chains.One"
  41.  "<PinIt$Dir>.Chains.Two"
  42.  "<PinIt$Dir>.Chains.Three"
  43.  "<PinIt$Dir>.Chains.Four"
  44.  "<PinIt$Dir>.Chains.Five"
  45.  "<PinIt$Dir>.Chains.Six"
  46.  "<PinIt$Dir>.Chains.Seven"
  47.