home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Pascal / Games / Showwit! 1.0 / source code / Source / Showwit.p < prev   
Encoding:
Text File  |  1996-02-10  |  572 b   |  26 lines  |  [TEXT/PJMM]
  1. {****************************************************}
  2. {}
  3. {        Showwit.p                                                                                                                                                                                                                }
  4. {}
  5. {        Main file for the Showwit! application.                                                                                                                            }
  6. {}
  7. {****************************************************}
  8.  
  9.  
  10. program Showwit;
  11.  
  12. { Turn off automatic initialization }
  13. {$I-}
  14.  
  15.     uses
  16.         TCL, ShIntf;
  17.  
  18. begin { Showwit }
  19.         (* if your program needs extra stack space, call *)
  20.         (* SetMinimumStack here                             *)
  21.  
  22.     new(CShApp(gApplication));
  23.     CShApp(gApplication).IShApp;
  24.     gApplication.Run;
  25.     gApplication.ExitApp;
  26. end. { Showwit }