home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9303 / tv / easydemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-04  |  658 b   |  29 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     EASYDEMO.PAS                       *)
  3. (*           Demonstration der Unit »EasyVis«             *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM EasyDemo;
  6.  
  7. USES EasyVis;
  8.  
  9. TYPE
  10.   tEasy = OBJECT (tEasyApp)
  11.     PROCEDURE Work; VIRTUAL;
  12.   END;
  13.  
  14.   PROCEDURE tEasy.Work;
  15.   BEGIN
  16.     WriteLn('Hello Turbo Vision! -- Here I am.');
  17.   END;
  18.  
  19. VAR
  20.   Easy : tEasy;
  21.  
  22. BEGIN
  23.   Easy.Init;
  24.   Easy.Run;
  25.   Easy.Done;
  26. END.
  27. (* ------------------------------------------------------ *)
  28. (*                Ende von EASYDEMO.PAS                   *)
  29.