home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Think Class Libraries / SAT-TCL 1.0b2 / SAT-TCLBouncingDemo ƒ / BD.p next >
Encoding:
Text File  |  1996-06-05  |  566 b   |  28 lines  |  [TEXT/PJMM]
  1. {****************************************************}
  2. {}
  3. {    BD.p                                                                                                                }
  4. {}
  5. {    Main file for BD.                                                                                            }
  6. {}
  7. {    Copyright © 1996 by Patrick C Hew. All rights reserved.                                }
  8. {}
  9. {****************************************************}
  10.  
  11.  
  12. program BD;
  13.  
  14. { Turn off automatic initialization }
  15. {$I-}
  16.  
  17.     uses
  18.         TCL, BDIntf;
  19.  
  20. begin { BD }
  21.         (* if your program needs extra stack space, call *)
  22.         (* SetMinimumStack here                             *)
  23.  
  24.     new(CBDApp(gApplication));
  25.     CBDApp(gApplication).IBDApp;
  26.     gApplication.Run;
  27.     gApplication.ExitApp;
  28. end. { BD }