OpenEuphoria

Re: alternative to sound or beep command

• Posted by doncole2009 Jul 24, 2009
• 857 views

Try

include graphic.e 
 
 global procedure beep(integer num) 
 atom t 
 for i = 1 to num do 
     machine_proc(1, 1000) 
         t = time() 
          while time() < t + .1 do 
           end while 
    machine_proc(1, 0) 
        t = time() 
           while time() < t + .1 do 
         end while 
    end for 
 end procedure 
 
Don Cole