home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / sound / minigen / mgskel.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-07  |  768 b   |  27 lines
  1. Program SkeletonProgram(Input,Output);
  2. {  4/4/87 : Skeleton program. Use a copy of this file to start all your
  3.      MiniGen programs.
  4.      Copyright 1987 by Eric H. Snyder
  5. }
  6. Const
  7.   ScreenCount = 1;        { Enter the number of screens you wish to define }
  8.  
  9. {$I MGPROG.INC}          { Combined windowing and data entry routines }
  10. {$I CURSOR.INC}           { Cursor(8/15,0);    erases it  (CGA/MA)  }
  11.                           { Cursor(6/13,7/10); returns it           }
  12.  
  13.                           { Enter any ScrnGen window procedres here }
  14.  
  15. Procedure MainLoop;       { Main program logic }
  16. Begin
  17. End;
  18.  
  19. Begin
  20. ClrScr;
  21. MaxLimits;
  22. InitializeScreens;
  23.                           { Define screens }
  24. MainLoop;
  25. TerminateScreens;
  26. ClrScr;
  27. End.