7 lines
213 B
Text
7 lines
213 B
Text
|
until *Pending() > 0 & Event() == "q" do { # loop until there is something to do
|
||
|
|
px := WAttrib("pointerx")
|
||
|
|
py := WAttrib("pointery")
|
||
|
|
# do whatever is needed
|
||
|
|
WDelay(5) # wait and share processor
|
||
|
|
}
|