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