home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / DOOR / CONC_003.ZIP / FREE.ARJ / TEMPLATE.PAS < prev   
Pascal/Delphi Source File  |  1996-07-15  |  2KB  |  70 lines
  1.  
  2. {$A+,B-,I-,Q-,R-,S-}
  3.  
  4. {$F+} { Force Far calls }
  5. {$X+} { Extended Syntax }
  6.  
  7. USES
  8.  
  9.   DoorKit, IO, Scripts,
  10.  
  11.   { Plug-And-Play!
  12.  
  13.     Pick and chose the modules you want linked into your door.  Each
  14.     module is self-executing and operates fully in the background.
  15.     A typical module might expand the script language, add a new
  16.     protocol, or just make your software more efficient! }
  17.  
  18.  
  19.   { Let's start with the color systems }
  20.  
  21.   _ANSI,               { . . . . . . . . . . . . . . . . . . . ANSI support }
  22.   _ATCodes,            { . . . . . . . . . .  PCBoard and WildCat at-colors }
  23.   _AVATAR,             { . . . . . . . . . . . . . . . . . . AVATAR support }
  24.   _HexPipe,            { . . . . . . . . . . . . . . . . . . HexPipe system }
  25.   _LORDCLR,            { . . . . . . LORD [Legend of the Red Dragon] colors }
  26.   _RACOLOR,            { . . . . . . . . . . . . . . RemoteAccess ^K colors }
  27.  
  28.  
  29.   { Select any extra features }
  30.  
  31.   _Chat,               { . . . . . . . . . . . . . . . . . . Cool chat-mode }
  32.   _Control,            { . . . . . . . . . . . . . . . . . .  Control codes }
  33.   _Errata,             { . . . . . . . . . . . . .  Run-time error handling }
  34.   _IO,                 { . . . . . . Various I/O script commands (i.e. CLS) }
  35.   _Macros,             { . . . . . . . . . . . . . . . . . . .  Text Macros }
  36.   _Params,             { . . . . .  Sysop-definable command-line parameters }
  37.   _Release,            { . . . . . . . . . . . . . . .  Time-slice releaser }
  38.   _Status,             { . . . . . . . . . . . Sysop-definable status lines }
  39.  
  40.  
  41.   { We'll need to provide I/O drivers for the local and remote screens. }
  42.  
  43.   _FOSSIL,             { . . . . . . . . . . . . . . . . . . FOSSIL support }
  44.   _CRT;                { . . . . . . . . Local I/O using Borland's CRT unit }
  45.  
  46.  
  47.   { Together, all of these modules will link in 12,000+ lines of code and
  48.     generate an EXE of about 50k.  I know it sounds like a lot, but consider
  49.     this: all of those features are in an EXE *smaller* than COMMAND.COM! }
  50.  
  51.  
  52. BEGIN
  53.  
  54. { Program Information }
  55.  
  56. ProgName  := 'My Very First Door!';
  57. Version   := '1.0';
  58. Copyright := 'Copyright (c) 1996 My Dog ∙ All Rights Reserved';
  59.  
  60.  
  61. { Execute the initialization script. }
  62.  
  63. Script('Init');
  64.  
  65.  
  66. { Insert door here! }
  67.  
  68.  
  69. END.
  70.