home *** CD-ROM | disk | FTP | other *** search
- (* ------------------------------------------------------ *)
- (* TSRINIT.INC *)
- (* Installation von Save und Load *)
- (* ------------------------------------------------------ *)
-
- CONST nr : BYTE = 0;
- pfad : name = '';
- datum : name = '';
- index : name = '';
- VAR Tdatei : TEXT;
- exist : BOOLEAN;
- test : STRING[80];
-
- PROCEDURE TSRINIT;
- BEGIN
- ClrScr; ConOut := ConOutPtr;
- WriteLn('Bitte Pfad für abzuspeichernde Screens im',
- ' Format ');
- WriteLn('< Ziel-Laufwerk:\Directory\ > eingeben: ');
- REPEAT
- GotoXY(1, 3); ReadLn(pfad);
- UNTIL pfad <> ''; WriteLn;
- Write('Bitte Datum im Format < TT-MM > eingeben: ');
- REPEAT
- GotoXY(45, 5); ReadLn(datum);
- UNTIL datum <> '';
- pfad := pfad; index := pfad + datum + '.IDX';
- Assign(Tdatei, index);
- {$I-} ReSet(Tdatei); {$I+}
- exist := (IOResult = 0);
- IF exist THEN BEGIN
- WHILE NOT Eof(Tdatei) DO BEGIN
- ReadLn(Tdatei, test);
- nr := Succ(nr);
- END;
- nr := nr - 1; Close(Tdatei); END
- ELSE BEGIN
- Close(Tdatei); ReWrite(Tdatei);
- WriteLn(Tdatei,'Index-Datei für gespeicherte Screens:');
- Close(Tdatei);
- END;
- ClrScr;
- WriteLn(' Turbo Pascal Resident-Tool-Box');
- WriteLn(' (C) 1987 + 1988 Dietmar Bueckart & PASCAL',
- ' INT.'); WriteLn;
- WriteLn(' Druecke <Alt><F10> fuer Programmstart');
- WriteLn;
- END;
-