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 >
Wrap
Text File
|
2017-03-03
|
449b
|
20 lines
{$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.