var uby1 : int := -230
var lby1 : int := -250
var dby1 : int := -270
var uby2 : int := -290
var rby1 : int := -310
var lby2 : int := -330
var uby3 : int := -350
var dby2 : int := -370
var rby2 : int := -390
setscreen ("offscreenonly")
loop
    mousewhere (mx, my, mb)
    if mb = 1 and mx > 13 and my > 172 and mx < 155 and my < 207 then
        exit
    elsif mb = 1 and mx > 321 and my > 12 and mx < 463 and my < 47 then %Butterfly
        fork pla
        delay (5)
        %Input.KeyDown (chars)
        %locate (1, 1)
        loop
            mousewhere (mx, my, mb)
            Pic.Draw (bf, 0, 0, 0)
            locate (2, 1)
            %put mx, "   ", my

            Pic.Draw (ub, 255, uby1, picMerge)
            Pic.Draw (lb, 135, lby1, picMerge)
            Pic.Draw (db, 195, dby1, picMerge)
            Pic.Draw (ub, 255, uby2, picMerge)
            Pic.Draw (rb, 315, rby1, picMerge)
            Pic.Draw (lb, 135, lby2, picMerge)
            Pic.Draw (ub, 255, uby3, picMerge)
            Pic.Draw (db, 195, dby2, picMerge)
            Pic.Draw (rb, 315, rby2, picMerge)
            delay (20)
            uby1 += 1
            lby1 += 1
            dby1 += 1
            uby2 += 1
            rby1 += 1
            lby2 += 1
            uby3 += 1
            dby2 += 1
            rby2 += 1