home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / ergo / intro.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-03-01  |  2.7 KB  |  47 lines
  1. {$A+,B-,D-,E-,F-,G-,I-,L-,N-,O-,P-,Q-,R-,S-,T-,V-,X-}
  2. {$M 16384,0,0}
  3. PROGRAM IntroScreen;
  4.  
  5. USES
  6.   Crt;
  7.  
  8. BEGIN
  9.   ClrScr;
  10.   IF Mem[$40 : $49] <> 7 THEN BEGIN
  11.     TextColor(Yellow); TextBackGround(Blue);
  12.   END;
  13.   Write(' ╔════════════════════════════════════════════════════════════════════════════╗ ');
  14.   Write(' ║                             A C H T U N G !                                ║ ');
  15.   Write(' ╟────────────────────────────────────────────────────────────────────────────╢ ');
  16.   Write(' ║                                                                            ║ ');
  17.   Write(' ║           Wenn Sie die Benutzeroberfläche ERGO von der CD-ROM              ║ ');
  18.   Write(' ║           starten, ist die Funktionalität des Programms ein-               ║ ');
  19.   Write(' ║           geschränkt.                                                      ║ ');
  20.   Write(' ║                                                                            ║ ');
  21.   Write(' ║           Um die volle Funktionalität von ERGO nutzen zu können,           ║ ');
  22.   Write(' ║           müssen Sie den Inhalt des Verzeichnisses \ERGO in ein            ║ ');
  23.   Write(' ║           Verzeichnis Ihrer Festplatte kopieren und das Schreib-           ║ ');
  24.   Write(' ║           schutzattribut von den Dateien entfernen. Außerdem               ║ ');
  25.   Write(' ║           müssen Sie die Textdateien »ERGO.MEN« und »ERGO.EXT«             ║ ');
  26.   Write(' ║           an Ihre Laufwerkskonfiguration anpassen.                         ║ ');
  27.   Write(' ║           _____________________________________________________            ║ ');
  28.   Write(' ║                                                                            ║ ');
  29.   Write(' ║           Ergo kann die große Anzahl von Verzeichnissen auf der CD         ║ ');
  30.   Write(' ║           nicht richtig anzeigen. Wechseln Sie in nicht angezeigte         ║ ');
  31.   Write(' ║           Verzeichnisse manuell und nicht über den Verzeichnisbaum.        ║ ');
  32.   Write(' ║                                                                            ║ ');
  33.   Write(' ╟────────────────────────────────────────────────────────────────────────────╢ ');
  34.   Write(' ║    Herzlichen Dank an Roman Müller und Michael Hagen für die Überlassung   ║ ');
  35.   Write(' ║                der Benutzeroberfläche Ergo V. 3.03                         ║ ');
  36.   Write(' ╚════════════════════════════════════════════════════════════════════════════╝ ');
  37.   IF Mem[$40 : $49] <> 7 THEN BEGIN
  38.     TextColor(White); TextBackGround(Black);
  39.   END;
  40.   Write(' ': 60, '<< Taste drücken >>');
  41.   REPEAT UNTIL ReadKey <> #0;
  42.   IF Mem[$40 : $49] <> 7 THEN BEGIN
  43.     TextColor(LightGray); TextBackGround(Black);
  44.   END;
  45.   ClrScr;
  46. END.
  47.