home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / extra18 / wita / clwitaf.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-01-20  |  1.5 KB  |  54 lines
  1. (* ------------------------------------------------- *)
  2. (*                   CLWITAF.PAS                     *)
  3. (* löscht die Formelsammlung WITA.FOR. Dieses Pro-   *)
  4. (* gramm muß vor dem ersten Start des Taschenrechners*)
  5. (* WITA.EXE aufgerufen werden, um WITA.FOR anzulegen.*)
  6. (*        (c) 1992 W.Hermanns & DMV-Verlag           *)
  7. (* ------------------------------------------------- *)
  8. PROGRAM CLWITAF;
  9.  
  10. CONST
  11.   Name    = 'WITA.FOR';
  12.   CrLf    = #10#13;
  13.   MaxEinL = 128;
  14.  
  15. TYPE
  16.   EinTyp = STRING[MaxEinL];
  17.  
  18. VAR
  19.   Eintrag, Dat : EinTyp;
  20.   Taste        : CHAR;
  21.   Datei        : FILE OF EinTyp;
  22.   I            : BYTE;
  23.  
  24.  
  25.   FUNCTION InKey:CHAR; INLINE($B4/0/$CD/$16/$B4/0);
  26.  
  27. BEGIN
  28.   WriteLn(CrLf, CrLf,
  29.           'Laufwerk angeben ( A - H ) oder <Esc>!');
  30.   REPEAT
  31.     Taste := UpCase(InKey);
  32.   UNTIL Taste IN ['A'..'H', #27];
  33.   IF Taste <> #27 THEN BEGIN
  34.     Dat := Taste + ':' + Name;
  35.     WriteLn (CrLf, Dat);
  36.     FillChar (Eintrag, Succ(MaxEinL), #0);
  37.     {$I-}
  38.     Assign(Datei, Dat);
  39.     Rewrite(Datei);
  40.     {$I+}
  41.     IF (IOResult AND $FFFD) = 0 THEN BEGIN
  42.       FOR I := 0 TO 99 DO BEGIN
  43.         Seek(Datei, I);  Write(Datei, Eintrag);
  44.       END;
  45.       Close(Datei);
  46.       WriteLn ('Formelsammlung gelöscht!');
  47.     END ELSE
  48.       WriteLn ('IO-Diskfehler!');
  49.   END ELSE
  50.     WriteLn (CrlF,'Formelsammlung nicht gelöscht!');
  51. END.
  52. (* ------------------------------------------------- *)
  53. (*              Ende von CLWITAF.PAS                 *)
  54.