home *** CD-ROM | disk | FTP | other *** search
/ ftp.ncsa.uiuc.edu / ftp.ncsa.uiuc.edu.zip / ftp.ncsa.uiuc.edu / Contour / main.p < prev    next >
Text File  |  2017-03-03  |  449b  |  20 lines
  1. {$U-}
  2. {$S+}
  3. {$B+}               { Set bundle bit (for icon, etc.)       }
  4. {$T APPLCNTR}       { Set application ID                    }
  5. {$R crash:Turbo Pascal:contours2:contourtest}
  6. {$R-}
  7. {$S MainSeg}
  8. program contours;
  9.  
  10. uses 
  11.     MemTypes,Quickdraw,OSIntf,ToolIntf,MacPrint,PackIntf,FixMath,Graf3D,
  12.     Globals,utilities,routines,{$S threeD}ThreeD,interf,init,General;
  13.    
  14. begin
  15.    InitThings;
  16.    SetUpthings;
  17.    MainEventLoop;
  18.    CLoseThings;
  19. end.
  20.