home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 13 / tsr / tsrinit.inc < prev    next >
Encoding:
Text File  |  1988-03-18  |  1.5 KB  |  49 lines

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