loop
mousewhere (mx, my, mb)
if mb = 1 and mx > 411 and mx < 430 and my < 19 then 
        col := 0     
    elsif mb = 1 and mx > 430 and mx < 450 and my < 19 then 
        col := 1 
    elsif mb = 1 and mx > 450 and mx < 470 and my < 19 then    
        col := 2  
    elsif mb = 1 and mx > 470 and mx < 490 and my < 19 then  
        col := 3 
    elsif mb = 1 and mx > 490 and mx < 510 and my < 19 then 
        col := 4 
    elsif mb = 1 and mx > 510 and mx < 530 and my < 19 then    
        col := 5  
    elsif mb = 1 and mx > 530 and mx < 550 and my < 19 then  
        col := 6 
    elsif mb = 1 and mx > 550 and mx < 570 and my < 19 then 
        col := 7 
    elsif mb = 1 and mx > 570 and mx < 590 and my < 19 then 
        col := 8 
    elsif mb = 1 and mx > 590 and mx < 610 and my < 19 then 
        col := 9 
    elsif mb = 1 and mx > 610 and mx < 630 and my < 19 then 
        col := 10  
    elsif mb = 1 and mx > 630 and mx < 650 and my < 19 then  
        col := 11 
    elsif mb = 1 and mx > 650 and mx < 670 and my < 19 then 
        col := 12 
    elsif mb = 1 and mx > 670 and mx < 690 and my < 19 then  
        col := 13  
    elsif mb = 1 and mx > 690 and mx < 710 and my < 19 then    
        col := 14  
    elsif mb = 1 and mx > 710 and mx < 730 and my < 19 then 
        col := 15 
end if