home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / DOOR / CONC_003.ZIP / TUTOR.ARJ / TUTOR2.PAS < prev    next >
Pascal/Delphi Source File  |  1996-07-15  |  2KB  |  58 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.   { Color systems }
  12.  
  13.   _ANSI,               { . . . . . . . . . . . . . . . . . . . ANSI support }
  14.   _ATCodes,            { . . . . . . . . . .  PCBoard and WildCat at-colors }
  15.   _AVATAR,             { . . . . . . . . . . . . . . . . . . AVATAR support }
  16.   _HexPipe,            { . . . . . . . . . . . . . . . . . . HexPipe system }
  17.   _LORDCLR,            { . . . . . . LORD [Legend of the Red Dragon] colors }
  18.   _RACOLOR,            { . . . . . . . . . . . . . . RemoteAccess ^K colors }
  19.  
  20.  
  21.   { Extra features }
  22.  
  23.   _Chat,               { . . . . . . . . . . . . . . . . . . Cool chat-mode }
  24.   _Control,            { . . . . . . . . . . . . . . . . . .  Control codes }
  25.   _Errata,             { . . . . . . . . . . . . .  Run-time error handling }
  26.   _IO,                 { . . . . . . Various I/O script commands (i.e. CLS) }
  27.   _Macros,             { . . . . . . . . . . . . . . . . . . .  Text Macros }
  28.   _Params,             { . . . . .  Sysop-definable command-line parameters }
  29.   _Release,            { . . . . . . . . . . . . . . .  Time-slice releaser }
  30.   _Status,             { . . . . . . . . . . . Sysop-definable status lines }
  31.  
  32.  
  33.   { I/O drivers }
  34.  
  35.   _FOSSIL,             { . . . . . . . . . . . . . . . . . . FOSSIL support }
  36.   _CRT;                { . . . . . . . . Local I/O using Borland's CRT unit }
  37.  
  38.  
  39. BEGIN
  40.  
  41. { Program Information }
  42.  
  43. ProgName  := 'Tutorial Series';
  44. Version   := '1.0';
  45. Copyright := 'Copyright (c) 1996 Some Guy ∙ All Rights Reserved';
  46.  
  47.  
  48. { Execute the initialization script. }
  49.  
  50. Script('Init');
  51.  
  52.  
  53. { Insert door here! }
  54.  
  55. DisplayFile('Welcome2');
  56.  
  57. END.
  58.