{STB v1.0 Developed by 1997 Julian Carr

This command sends the selected object behind a chosen object}

Procedure SendToBuggery;
VAR
    i,j : INTEGER;
    h1,h2,h3 : HANDLE;
    x1,y1 : REAL;
BEGIN
    h1:=Nil;
    h1:=LSActLayer;
    IF h1<>Nil THEN BEGIN
        Message('Click on the object you want to send it behind . . .');
        GetPt(x1,y1);
        h2:=PickObject(x1,y1);
        i:=1;
        h3:=PrevObj(h1);
        REPEAT
            h3:=PrevObj(h3);
            i:=i+1;
        UNTIL (h3=Nil)|(h3=h2);
        FOR j:=1 TO i DO Backward;
        ReDraw;
        ClrMessage;
    END ELSE AlrtDialog('Select one object for sending behind a chosen
object.');
END;
RUN(SendToBuggery);