home *** CD-ROM | disk | FTP | other *** search
/ Best of German Only 1 / romside_best_of_german_only_1.iso / doshelp / dostutor / install.pas < prev    next >
Pascal/Delphi Source File  |  1993-02-16  |  5KB  |  158 lines
  1.  
  2. {$M 2048, 0, 0}
  3. PROGRAM install;
  4.  
  5.       USES dos, crt;
  6.       LABEL 1,EXIT;
  7.  
  8.       VAR
  9.         TEST : STRING[127];
  10.         CONT :STRING;
  11.         COMMAND:STRING[127];
  12.         drive:string[127];
  13.         graph:string[3];
  14.  
  15. {*************************************************}
  16. PROCEDURE cursor(startingline, stoppingline : byte);
  17. VAR
  18.    regs : registers;
  19. BEGIN
  20.      with regs do begin
  21.           AH := $01;
  22.           CH := STARTINGLINE;
  23.           CL := STOPPINGLINE;
  24.           InTr($10, regs );
  25.           end;
  26. end;   
  27. {**************************************************}
  28. PROCEDURE MAKEDIR;
  29. BEGIN
  30.      TEXTCOLOR (CYAN);
  31.      CURSOR ($6,$7);
  32.      WRITELN('Bitte geben Sie den Drive an, in welches das');
  33.      WRITE('Programm installiert werden soll (z.B.: "');textcolor (lightred);
  34.      write ('C:');
  35.      textcolor (cyan);write ('":');
  36.      readln(drive);
  37.      if drive=('') then drive:=('C:');
  38.      writeln('Bitte geben Sie das Directory an, in welches das');
  39.      write('Programm installiert werden soll (z.B.: "');
  40.      textcolor (lightred);
  41.      write ('\Tutor');textcolor (cyan);
  42.      write ('") :');
  43.      READLN(Command);
  44.      If command=('') then command:=('\tutor');
  45.      CURSOR ($20,$00);
  46.      If Command <> '' then
  47.      BEGIN
  48.        SWAPVECTORS;
  49.        TEST:='MD ';
  50.        Exec(GetEnv('COMSPEC'), '/C '+TEST+drive+Command);
  51.        SWAPVECTORS;
  52.      END;
  53. enD;
  54. (*******************************************************************)
  55.  
  56.  
  57. {****************************************************}
  58. PROCEDURE COPYFILES;
  59. BEGIN
  60.        clrscr;
  61.        TEXTCOLOR (CYAN);
  62.        WRITELN ('Daten Dateien werden kopiert.');
  63.  
  64.        exec(getenv( 'COMSPEC' ), ' /C  copy *.dat '+drive+COMMAND);
  65.        exec(getenv( 'COMSPEC' ), ' /C  copy *.txt '+drive+COMMAND);
  66.        clrscr;
  67.        WRITELN ('Programm Dateien werden kopiert.');
  68.        exec(getenv( 'COMSPEC' ), ' /C  copy dostutor.exe '+drive+command);
  69.        WRITELN ('Install Dateien werden kopiert.');
  70.        exec(getenv( 'COMSPEC' ), ' /C  copy install.exe '+drive+COMMAND);
  71.        WRITELN ('Graphik Datein werden kopiert.');
  72.        exec(getenv( 'COMSPEC' ), ' /C  copy *.BGI '+drive+COMMAND);
  73.        exec(getenv( 'COMSPEC' ), ' /C  copy *.CHR '+drive+COMMAND);
  74.        clrscr;
  75.        BEGIN
  76.        SWAPVECTORS;
  77.        Exec(GetEnv('COMSPEC'), '/C '+drive);
  78.        SWAPVECTORS;
  79.      END;
  80.      BEGIN
  81.        SWAPVECTORS;
  82.        TEST:='CD ';
  83.        Exec(GetEnv('COMSPEC'), '/C '+TEST+Command);
  84.        SWAPVECTORS;
  85.      END;
  86.        
  87.        CURSOR ($6,$7);
  88.        GOTOXY (1,10);
  89.        WRITELN ('Installation von DOS 5.0 TUTOR VERSION 4.0 fertiggestellt.');
  90.        WRITELN;
  91.        writeln ('Wenn Sie jetzt nicht im richtigen Directory sind, haben Sie');
  92.        writeln ('bei der Installation einen Fehler gemacht. Wiederholen Sie');
  93.        writeln ('dann nochmals die Installation (Eventuel den ":" oder den');
  94.        WRITELN ('"\" bei der Eingabe vergessen).');
  95.        WRITELN ('Geben Sie "        " ein um das Programm zu laden.');
  96.        TEXTCOLOR (YELLOW);
  97.        GOTOXY (12,16);
  98.        WRITE ('DOSTUTOR');
  99.        GOTOXY (1,20);
  100.        TEXTCOLOR (BLACK);
  101.        SOUND (390);         DELAY (150);
  102.        SOUND (430);         DELAY (150);
  103.        SOUND (560);         DELAY (150);
  104.        SOUND (350);         DELAY (170);
  105.        NOSOUND;
  106.        SwapVectors;
  107.        CURSOR ($6,$7);
  108.        delay(1000);
  109.  
  110. END;
  111.  
  112.  
  113. {***********************MAIN PROGRAM********************}
  114. BEGIN
  115.      CLRSCR;
  116.      TEXTCOLOR (WHITE);
  117.      WRITELN ('                  ╔════════════════════════╗');
  118.      WRITELN ('                  ║                        ║');
  119.      WRITELN ('                  ║     DOS 5.0 TUTOR      ║');
  120.      WRITELN ('                  ║      VERSION 4.0       ║');
  121.      WRITELN ('                  ╚════════════════════════╝');
  122.      TEXTCOLOR (LIGHTBLUE);
  123.      GOTOXY (23,2);
  124.      WRITE ('Installation von');
  125.      GOTOXY (1,5);
  126.      WRITELN;
  127.      WRITELN;
  128.      TEXTCOLOR (CYAN);
  129.      WRITELN ('Wenn Sie weitermachen wollen geben Sie');
  130.      WRITELN ('" ", ein ansonsten drücken Sie <     > um aufzuhören:');
  131.      TEXTCOLOR (LIGHTRED);
  132.      GOTOXY (2,8);
  133.      WRITE ('J');
  134.      GOTOXY (33,8);
  135.      WRITE ('ENTER');
  136.      TEXTCOLOR (WHITE);
  137.      GOTOXY (54,8);
  138.      READLN (CONT);
  139.      IF (CONT ='J') OR  (CONT='j') THEN GOTO 1
  140.      ELSE GOTO EXIT;
  141.      clrscr;
  142.    1:
  143.      MAKEDIR;
  144.      IF COMMAND<> '' THEN
  145.      BEGIN
  146.            COPYFILES;
  147.  
  148.  
  149.      END;
  150.  
  151. EXIT:
  152.      
  153.      CURSOR ($6,$7);
  154.  
  155. END.
  156.  
  157.  
  158.