home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / ergo / intro.asi < prev    next >
Encoding:
Text File  |  1994-03-03  |  2.9 KB  |  84 lines
  1.   CLS
  2.  
  3.   DEFSEG = &HEX0040
  4.     mx = PEEK(&HEX0049)
  5.   DEFSEG = -1
  6.  
  7.   IF mx = 7 THEN
  8.     mono = 1
  9.   ELSE
  10.     mono = 0
  11.   ENDIF
  12.  
  13.   IF mono = 0 THEN
  14.     COLOR 14, 1
  15.   ENDIF
  16.  
  17.   PRINT " ╔══════════════════════════════════════════════════════════════════"; 
  18.   PRINT "══════════╗ ";
  19.   PRINT " ║                             A C H T U N G !                      "; 
  20.   PRINT "          ║ ";
  21.   PRINT " ╟──────────────────────────────────────────────────────────────────"; 
  22.   PRINT "──────────╢ ";
  23.   PRINT " ║                                                                  "; 
  24.   PRINT "          ║ ";
  25.   PRINT " ║           Wenn Sie die Benutzeroberfläche ERGO von der CD-ROM    "; 
  26.   PRINT "          ║ ";
  27.   PRINT " ║           starten, ist die Funktionalität des Programms ein-     "; 
  28.   PRINT "          ║ ";
  29.   PRINT " ║           geschränkt.                                            "; 
  30.   PRINT "          ║ ";
  31.   PRINT " ║                                                                  "; 
  32.   PRINT "          ║ ";
  33.   PRINT " ║           Um die volle Funktionalität von ERGO nutzen zu können, "; 
  34.   PRINT "          ║ ";
  35.   PRINT " ║           müssen Sie den Inhalt des Verzeichnisses \ERGO in ein  "; 
  36.   PRINT "          ║ ";
  37.   PRINT " ║           Verzeichnis Ihrer Festplatte kopieren und das Schreib- "; 
  38.   PRINT "          ║ ";
  39.   PRINT " ║           schutzattribut von den Dateien entfernen. Außerdem     "; 
  40.   PRINT "          ║ ";
  41.   PRINT " ║           müssen Sie die Textdateien »ERGO.MEN« und »ERGO.EXT«   "; 
  42.   PRINT "          ║ ";
  43.   PRINT " ║           an Ihre Laufwerkskonfiguration anpassen.               "; 
  44.   PRINT "          ║ ";
  45.   PRINT " ║           _____________________________________________________  "; 
  46.   PRINT "          ║ ";
  47.   PRINT " ║                                                                  "; 
  48.   PRINT "          ║ ";
  49.   PRINT " ║           Ergo kann die große Anzahl von Verzeichnissen auf der C"; 
  50.   PRINT "D         ║ ";
  51.   PRINT " ║           nicht richtig anzeigen. Wechseln Sie in nicht angezeigt"; 
  52.   PRINT "e         ║ ";
  53.   PRINT " ║           Verzeichnisse manuell und nicht über den Verzeichnisbau"; 
  54.   PRINT "m.        ║ ";
  55.   PRINT " ║                                                                  "; 
  56.   PRINT "          ║ ";
  57.   PRINT " ╟──────────────────────────────────────────────────────────────────"; 
  58.   PRINT "──────────╢ ";
  59.   PRINT " ║    Herzlichen Dank an Roman Müller und Michael Hagen für die Über"; 
  60.   PRINT "lassung   ║ ";
  61.   PRINT " ║                der Benutzeroberfläche Ergo V. 3.03               "; 
  62.   PRINT "          ║ ";
  63.   PRINT " ╚══════════════════════════════════════════════════════════════════"; 
  64.   PRINT "══════════╝ ";
  65.  
  66.   IF mono = 0 THEN
  67.      COLOR 15, 0
  68.   ENDIF
  69.  
  70.   LOCATE 24, 60
  71.   PRINT "<< Taste drücken >>";
  72.  
  73. loop:
  74.     x$ = INKEY$
  75.   IF x$ = "" THEN loop:
  76.  
  77.   IF mono = 0 THEN
  78.     COLOR 7, 0
  79.   ENDIF
  80.  
  81.   CLS
  82.  
  83.   END
  84.