home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 5
/
DATAFILE_PDCD5.iso
/
utilities
/
p
/
pinit
/
!PinIt
/
!RunImage
(
.txt
)
< prev
next >
Wrap
RISC OS BBC BASIC V Source
|
1995-05-18
|
1KB
|
47 lines
Choose
"<PinIt$Dir>.WimpLib.Poll"
"<PinIt$Dir>.WimpLib.Windows"
"<PinIt$Dir>.WimpLib.Icons"
"<PinIt$Dir>.WimpLib.Templates"
startup("PinIt",2)
startup_windows(1)
load_templates("<PinIt$Dir>.Templates",4096)
respond%(3)=
respond%(6)=
poll(1)
respond_close
quit%=
user_load
create_template("Choices",1,block%)
openwindow(x%)
respond_click
ihandle%
"<PinIt$Dir>.Stripes.One"
"<PinIt$Dir>.Stripes.Two"
"<PinIt$Dir>.Stripes.Three"
"<PinIt$Dir>.Stripes.Four"
"<PinIt$Dir>.Stripes.Five"
"<PinIt$Dir>.Stripes.Six"
"<PinIt$Dir>.Stripes.Seven"
"<PinIt$Dir>.Corners.One"
"<PinIt$Dir>.Corners.Two"
"<PinIt$Dir>.Corners.Three"
"<PinIt$Dir>.Corners.Four"
"<PinIt$Dir>.Corners.Five"
"<PinIt$Dir>.Corners.Six"
"<PinIt$Dir>.Corners.Seven"
"<PinIt$Dir>.Slant.One"
"<PinIt$Dir>.Slant.Two"
"<PinIt$Dir>.Slant.Three"
"<PinIt$Dir>.Slant.Four"
"<PinIt$Dir>.Slant.Five"
"<PinIt$Dir>.Slant.Six"
"<PinIt$Dir>.Slant.Seven"
"<PinIt$Dir>.Chains.One"
"<PinIt$Dir>.Chains.Two"
"<PinIt$Dir>.Chains.Three"
"<PinIt$Dir>.Chains.Four"
"<PinIt$Dir>.Chains.Five"
"<PinIt$Dir>.Chains.Six"
"<PinIt$Dir>.Chains.Seven"