home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 12 / tricks / bootmark.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-09-08  |  1.3 KB  |  60 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    BOOTMARK.PAS                        *)
  3. (*        (c) 1989  Peter H.Danek  &  TOOLBOX             *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM Bootmark;
  6.  
  7. {$D-,I-,L-,R-,S-}
  8. {$M $1000,0,0}
  9.  
  10. USES Crt, Dos;
  11.  
  12. CONST
  13.   PassWd = 'MOUSE';
  14.  
  15. TYPE
  16.   Datum = RECORD
  17.             y, m, d, dow : WORD;
  18.           END;
  19.   Zeit  = RECORD
  20.             h, m, s, s1  : WORD;
  21.           END;
  22. VAR
  23.   dat : Datum;
  24.   zt  : Zeit;
  25.   t   : TEXT;
  26.   s   : PathStr;
  27.   ok  : BOOLEAN;
  28.  
  29. BEGIN
  30.   ClrScr;
  31.   CheckBreak := FALSE;
  32.   Assign(t, 'C:\USERDATA');
  33.   Reset(t);
  34.   IF IOResult <> 0 THEN Rewrite(t);
  35.   REPEAT
  36.     Write('C:\>');  ReadLn(s);
  37.     ok := (s = PassWd);
  38.     Append(t);
  39.     WITH dat DO BEGIN
  40.       GetDate(y, m, d, dow);
  41.       Write(t, 'Gestartet am ', d:2, '.', m:2, '.',y);
  42.     END;
  43.     WITH zt DO BEGIN
  44.       GetTime(h, m, s, s1);
  45.       WriteLn(t, ' um ', h:2, ':', m:2, ':', s:2);
  46.     END;
  47.     WriteLn(t, '  ',s);
  48.     Close(t);
  49.     IF NOT ok THEN BEGIN
  50.       WriteLn('Falscher Befehl oder Dateiname');
  51.       WriteLn;
  52.     END;
  53.   UNTIL ok;
  54.   WriteLn('Logon erfolgreich...');
  55.   WriteLn;
  56.   CheckBreak := TRUE;
  57. END.
  58. (* ------------------------------------------------------ *)
  59. (*              Ende von BOOTMARK.PAS                     *)
  60.