home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 31 / CDASC_31_1996_juillet_aout.iso / vrac / cddk9605.zip / TUTOR.ARJ / TUTOR3.PAS < prev    next >
Pascal/Delphi Source File  |  1996-05-16  |  996b  |  42 lines
  1.  
  2. PROGRAM Tutor3;
  3.  
  4. {$A+,B-,F+,I-,Q-,R-,S-,X+}
  5.  
  6. USES
  7.   Concerto, IO, Scripts;
  8.  
  9. VAR
  10.   Sample : STRING;
  11.  
  12. BEGIN
  13. RegisterConcerto;
  14. Script('Init');
  15.  
  16.  
  17. { This is the famous HELLO WORLD exercise, known to all programmers
  18.   around the world.  In this case, however, our results are going
  19.   to be a bit fancier! }
  20.  
  21. Sample:='|08─|07─|0F─|07 Hello World! |0F─|07─|08─|07~|';
  22.  
  23. { Go ahead and use any control-codes or color-codes described in SYSOP.DOC.
  24.   Supported protocols include ANSI, AVATAR, RemoteAccess ^K, etc. }
  25.  
  26.  
  27. SO_String(Sample);         { Display the string with processing }
  28. SO_RawString(Sample);      { Display the string without processing }
  29.  
  30. { The IO unit handles all input and output (as suggested by its name).
  31.   The procedures use a consistent style:
  32.  
  33.     SI_*       Simultaneous Input
  34.     SO_*       Simultaneous Output
  35.     SO_Raw*    Simultaneous Output with no processing
  36.  
  37.   Press ALT-F5 to view the results of this program. }
  38.  
  39.  
  40. ExitDoor(0);
  41. END.
  42.