home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 03 / spiel / spiel.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-09-04  |  1.4 KB  |  45 lines
  1. (**********************************************************)
  2. (*                                                        *)
  3. (*   Filename SPIEL.PAS                                   *)
  4. (*                                                        *)
  5. (*   TOOLBOX-Spezial III Echtzeitverarbeitung             *)
  6. (*                                                        *)
  7. (*   (C) TOOLBOX und Thomas Lang 1988                     *)
  8. (*                                                        *)
  9. (*   Dieses File enthält das Hauptprogramm für das im     *)
  10. (*   Text beschriebene Spiel.                             *)
  11. (*                                                        *)
  12. (**********************************************************)
  13.  
  14. (*$I SCHEDUL.DCL *)
  15. (*$I UTILITY.DCL *)
  16. (*$I DEBUG.DCL *)
  17. (*$I AUFGABEN.DCL *)
  18. (*$I DEBUG.PAS *)
  19. (*$I UTILITY.PAS *)
  20. (*$I SCHEDUL.PAS *)
  21. (*$I SONSTIGE.PAS *)          (* folgende Aufgaben sind *)
  22.                               (* darin als Kommentare ge- *)
  23.                               (* kennzeichnet: *)
  24.                               (*    PPeriodic1 *)
  25.                               (*    PPeriodic2 *)
  26.                               (*    PPeriodic3 *)
  27.  
  28. (*$I SPIEL.DCL *)
  29. (*$I INITIAL.PAS *)
  30. (*$I FOLGE.PAS *)
  31. (*$I TASTATUR.PAS *)
  32. (*$I DRUCKER.PAS *)
  33.  
  34. Begin
  35.  
  36.    InitDebug(False,False,False,False,'Nix');
  37.    InitSchedul;
  38.    PInit;
  39.    Schedul;
  40.    ClrScr;
  41.    GotoXY(20,2);
  42.    Write('Tschüss !!');
  43.  
  44. End.
  45.