home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 04 / quellen / hello.inc < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.1 KB  |  29 lines
  1. PROCEDURE Hello;
  2.  
  3. BEGIN
  4.   clrscr;
  5.   Gotoxy(1,5);
  6.   Writeln
  7. ('***************************************************************************');
  8. Writeln
  9. ('*                                                                         *');
  10. Writeln
  11. ('*       >>>>>>>>>>  Programm:    DISCUSS.PAS  (v3.0)  <<<<<<<<<<          *');
  12. Writeln
  13. ('*                                                                         *');
  14. Writeln
  15. ('*                           Kurvendiskussion                              *');
  16. Writeln
  17. ('*                                                                         *');
  18. Writeln
  19. ('*                            (c) 1986,87,88                               *');
  20. Writeln
  21. ('*             Karsten Gieselmann, Michael Ceol, Peter Engels              *');
  22. Writeln
  23. ('*                        & PASCAL International                           *');
  24. Writeln
  25. ('*                                                                         *');
  26. Writeln
  27. ('***************************************************************************');
  28.   delay(2000)
  29. END;