Yin and yang: Difference between revisions

Content added Content deleted
Line 3,331: Line 3,331:
Mouse.Icon Hide
Mouse.Icon Hide
i=0
i=0
every 10 {
while not inkey$=" " and mouse<>2
if inkey$=" " or mouse=2 then exit
release
release
move mouse.x, mouse.y
move mouse.x, mouse.y
Line 3,337: Line 3,338:
Refresh 20
Refresh 20
if mouse=1 then hold
if mouse=1 then hold
}
wait 10
end while
Mouse.Icon Show
Mouse.Icon Show
filename$="yin and yang.emf"
filename$="yin and yang.emf"