{STF v1.0 Developed by 1997 Julian Carr

This command brings the selected object in front of 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 bring it in front of . . .');
        GetPt(x1,y1);
        h2:=PickObject(x1,y1);
        i:=1;
        h3:=NextObj(h1);
        REPEAT
            h3:=NextObj(h3);
            i:=i+1;
        UNTIL (h3=Nil)|(h3=h2);
        FOR j:=1 TO i DO Forward;
        ReDraw;
        ClrMessage;
    END ELSE AlrtDialog('Select one object for bringing in front of chosen
object.');
END;
RUN(SendToBuggery);