{$U-}
{$S+}
{$B+}               { Set bundle bit (for icon, etc.)       }
{$T APPLCNTR}       { Set application ID                    }
{$R crash:Turbo Pascal:contours2:contourtest}
{$R-}
{$S MainSeg}
program contours;

uses 
    MemTypes,Quickdraw,OSIntf,ToolIntf,MacPrint,PackIntf,FixMath,Graf3D,
    Globals,utilities,routines,{$S threeD}ThreeD,interf,init,General;
   
begin
   InitThings;
   SetUpthings;
   MainEventLoop;
   CLoseThings;
end.
.