home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 13 / tsr / tsrinit.prn < prev    next >
Encoding:
Text File  |  1988-03-18  |  1.9 KB  |  50 lines
  1.    1: (* ------------------------------------------------------ *)
  2.    2: (*                    TSRINIT.INC                         *)
  3.    3: (*           Installation von Save und Load               *)
  4.    4: (* ------------------------------------------------------ *)
  5.    5: 
  6.    6: CONST nr     : BYTE = 0;
  7.    7:       pfad   : name = '';
  8.    8:       datum  : name = '';
  9.    9:       index  : name = '';
  10.   10: VAR   Tdatei : TEXT;
  11.   11:       exist  : BOOLEAN;
  12.   12:       test   : STRING[80];
  13.   13: 
  14.   14: PROCEDURE TSRINIT;
  15.   15: BEGIN
  16.   16:   ClrScr;  ConOut := ConOutPtr;
  17.   17:   WriteLn('Bitte Pfad für abzuspeichernde Screens im',
  18.   18:           ' Format ');
  19.   19:   WriteLn('< Ziel-Laufwerk:\Directory\ >   eingeben: ');
  20.   20:   REPEAT
  21.   21:     GotoXY(1, 3);    ReadLn(pfad);
  22.   22:   UNTIL pfad <> '';  WriteLn;
  23.   23:   Write('Bitte Datum im Format < TT-MM > eingeben: ');
  24.   24:   REPEAT
  25.   25:     GotoXY(45, 5); ReadLn(datum);
  26.   26:   UNTIL datum <> '';
  27.   27:   pfad := pfad;  index := pfad + datum + '.IDX';
  28.   28:   Assign(Tdatei, index);
  29.   29:   {$I-}    ReSet(Tdatei);    {$I+}
  30.   30:   exist := (IOResult = 0);
  31.   31:   IF exist THEN BEGIN
  32.   32:     WHILE NOT Eof(Tdatei) DO BEGIN
  33.   33:       ReadLn(Tdatei, test);
  34.   34:       nr := Succ(nr);
  35.   35:     END;
  36.   36:     nr := nr - 1;   Close(Tdatei); END
  37.   37:   ELSE BEGIN
  38.   38:     Close(Tdatei);    ReWrite(Tdatei);
  39.   39:     WriteLn(Tdatei,'Index-Datei für gespeicherte Screens:');
  40.   40:     Close(Tdatei);
  41.   41:   END;
  42.   42:   ClrScr;
  43.   43:   WriteLn('  Turbo Pascal  Resident-Tool-Box');
  44.   44:   WriteLn('  (C) 1987 + 1988 Dietmar Bueckart & PASCAL',
  45.   45:           ' INT.'); WriteLn;
  46.   46:   WriteLn('  Druecke <Alt><F10> fuer Programmstart');
  47.   47:   WriteLn;
  48.   48: END;
  49.   49: (* ------------------------------------------------------ *)
  50.   50: (*                 Ende von TSRINIT.INC                   *)