home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / DOOR / CONC_003.ZIP / TUTOR.ARJ / TUTOR3.PAS < prev    next >
Pascal/Delphi Source File  |  1996-07-15  |  2KB  |  66 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.   _SO,                 { . . . .  Allows use of WriteLn via SO virtual file }
  31.   _Status,             { . . . . . . . . . . . Sysop-definable status lines }
  32.  
  33.  
  34.   { I/O drivers }
  35.  
  36.   _FOSSIL,             { . . . . . . . . . . . . . . . . . . FOSSIL support }
  37.   _CRT;                { . . . . . . . . Local I/O using Borland's CRT unit }
  38.  
  39.  
  40. VAR
  41.   Message : STRING;
  42.  
  43. BEGIN
  44.  
  45. { Setup door }
  46.  
  47. ProgName  := 'Tutorial Series';
  48. Version   := '1.0';
  49. Copyright := 'Copyright (c) 1996 The Easter Bunny ∙ All Rights Reserved';
  50. Script('Init');
  51.  
  52. { Setup a cool hello-world program (the classic initiation for all
  53.   budding programmers around the world). }
  54.  
  55. Message := '|08─|07─|0F─|07 Hello World! |0F─|07─|08─|07~|';
  56.  
  57.  
  58. Write(SO,Message);          { Send the string with processing       }
  59. SO_RawString(Message);      { Display the string without processing }
  60.  
  61. { Notice that we are using "writing" to the SO "text file".  This
  62.   feature is provided by the _SO module.  Any text written to SO will
  63.   actually be sent through the I/O engine. }
  64.  
  65. END.
  66.