home *** CD-ROM | disk | FTP | other *** search
/ CD PowerPlay 6 / TheCompleteAdventureCollection1995 / CDPP6.ISO / utility / agtsrc / compile.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-07-23  |  2.3 KB  |  72 lines
  1.  
  2. {$R-}                             {Range checking off}
  3. {$B+}                             {Boolean short circuiting off}
  4. {$S-}                             {Stack checking off}
  5. {$I+}                             {I/O checking on}
  6. {$N-}                             {No numeric coprocessor}
  7. {$V-}                             { disable string parameter type checking - faster }
  8. {$M 65500,16384,655360}           {Turbo 3 default stack and heap}
  9.  
  10. {******************************************************}
  11. {           The Adventure Game Toolkit (tm)            }
  12. { Copyright 1994 by Mark J. Welch and David R. Malmberg}
  13. {                 All Rights Reserved                  }
  14. {                                                      }
  15. {              Version 1.7 (May 20, 1994)              }
  16. {******************************************************}
  17. (*
  18. AGT is now "freeware."  This means that the authors, David Malmberg and Mark
  19. Welch, still retain the copyright to AGT and all of its related files, such
  20. as the documentations and sample games.  However, you or any other user may
  21. use the AGT system to develop and distribute your own games without paying any
  22. royalty to the AGT authors.
  23. *)
  24.  
  25. {$DEFINE NormalVersion}  (* Normal version -- NOT BIG version *)
  26.  
  27.  
  28. PROGRAM Compile;
  29.  
  30.  
  31. USES
  32.   Crt,
  33.   Dos,
  34.   Printer,
  35.   Graph3,
  36.   Turbo3;
  37.  
  38.   {$I DECLARE.PA3 }
  39.   {$I GENTOOLS.PA3 }
  40.   {$I SPCTOOLS.PA3 }
  41.   {$I PARAM.PA3 }
  42.   {$I FINAL.PA3 }
  43.   {$I TITLE.PA3 }
  44.   {$I INIT.PA3 }
  45.   {$I COMMAND.PA3 }
  46.   {$I PARSE.PA3 }
  47.  
  48.   {************************}
  49.   {     Main Program       }
  50.   {************************}
  51.  
  52. BEGIN
  53.   InitializeLimits;
  54.   CheckBreak := False;
  55.   CheckParams;                    { in PARAM.PA3 }
  56.   Title;                          { in TITLE.PA3 }
  57.   Init_verbs;                     { in INIT.PA3 }
  58.   ScoreAdjustment := 0;
  59.   Set_Token_Parameters;
  60.   PreviousCompoundCommands := False;
  61.   DoingCompoundCommands := False;
  62.   Skip_A_Line := False;
  63.   Initialize_Part1;               { in INIT.PA3 }
  64.   Initialize_Part2;               { in INIT.PA3 }
  65.   CheckParameters;                {check limits of data structures just read in}
  66.   Any_Special_Cmds := False;
  67.   Read_Special_CMDs;              { If CMD file exists }
  68.   Pause;
  69.   CLRSCR;
  70.   WriteFinalVersion;              { includes HALT }
  71. END.
  72.