  Ŀ
  Ŀ
                                                                          
                         PC Kara Kutusu                                   
                                                                          
  ٳ
                                                  Cell Ergn               
  




   Bu program AUTOEXEC.BAT'n iine eklediiniz taktirde, bilgisayarnzn
    her alnda o anki tarih ve saat C:'nin ana rehberine ACILIS.DAT
    dosyasna kaydedilecektir.

   Bylece bilgisayarnzn siz yokken bile alp almadn, ne zaman
    aldn renebileceksiniz.



{$A+,B-,D+,E+,F-,G-,I-,L+,N-,O-,R-,S-,V+,X-}
{$M 32565,0,655360}

PROGRAM ACISKAYDITUTMA;

USES CRT,DOS;
CONST   GUNLER:ARRAY[0..6] OF STRING[10]=
('Pazar','Pazartesi','Sal','aramba','Perembe','Cuma',
'Cumartesi');

TYPE KAYITTIPI=RECORD
        TARIH:STRING[10];
        SAAT:STRING[8];
        GUN:STRING[10];
        END;

Function LeadingZero(w : Word) : String;
var
  s : String;
begin
  Str(w:0,s);
  if Length(s) = 1 then
    s := '0' + s;
  LeadingZero := s;
end;

VAR
        D:TEXT;
        K:KAYITTIPI;
        Y,A,G,H:WORD;
        SA,DA,SN,SN100:WORD;
        S:STRING;

BEGIN
  ASSIGN(D,'C:\ACILIS.DAT');
  APPEND(D);IF IORESULT<>0 THEN REWRITE(D);
  GETDATE(Y,A,G,H);
  K.TARIH:=LEADINGZERO(G)+'-';
  K.TARIH:=K.TARIH+LEADINGZERO(A)+'-';
  K.TARIH:=K.TARIH+LEADINGZERO(Y);
  GETTIME(SA,DA,SN,SN100);
  K.SAAT:=LEADINGZERO(SA)+':';
  K.SAAT:=K.SAAT+LEADINGZERO(DA)+':';
  K.SAAT:=K.SAAT+LEADINGZERO(SN);;
  K.GUN:=GUNLER[H];
  WRITELN(D,K.TARIH:10,' ',K.SAAT:8,' ',K.GUN:10);
  CLOSE(D);
END.
