{folgende Unit zum aus lesen der Battclock (falls vorhanden) benötigt }
{meine UNIT Utility (Interner Exec-Aufruf)  (einfache Lightversion)   }

{ © & P by Falk Zühlsdorff 09.01.94 Freeware   Version: 1.03          }

{PackMAN, c/o Falk Zühlsdorff, Lindenberg 66, 98693 Ilmenau / Thür.   }


UNIT BattClockLight;

INTERFACE

{$opt q}
Uses UTILITY;
{$ INCL 'resources/battclock.h'}

FUNCTION GetBattClockL:boolean;

VAR current:p_ClockData;
    battclocktime,
    battclockdate:string;
    helpforclock:boolean;

IMPLEMENTATION

FUNCTION GetBattClockL;

BEGIN
 BattclockBase:=OpenResource(BATTCLOCKNAME);
 IF (BattclockBase<>NIL) AND (helpforclock)
  THEN
   BEGIN
    NEW(current);
    Amiga2Date(ReadBattClock,current);
    battclockdate:='';
    IF current^.mday<10
      THEN battclockdate:=('0'+INTSTR(current^.mday)+'.')
      ELSE battclockdate:=(INTSTR(current^.mday)+'.');
    IF current^.month<10
     THEN battclockdate:=(battclockdate+'0'+INTSTR(current^.month)+
                          '.'+INTSTR(current^.year))
     ELSE battclockdate:=(battclockdate+INTSTR(current^.month)+'.'+
                          INTSTR(current^.year));
     battclocktime:='';
     IF current^.hour<10
      THEN battclocktime:=('0'+INTSTR(current^.hour)+':')
      ELSE battclocktime:=(INTSTR(current^.hour)+':');
     IF current^.min<10
      THEN battclocktime:=(battclocktime+'0'+INTSTR(current^.min)+':')
      ELSE battclocktime:=(battclocktime+INTSTR(current^.min)+':');
     IF current^.sec<10
      THEN battclocktime:=(battclocktime+'0'+INTSTR(current^.sec))
      ELSE battclocktime:=(battclocktime+INTSTR(current^.sec));
     GetBattclockL:=true;
   END
  ELSE
    GetBattclockL:=false;
END;
BEGIN
 helpforclock:=OpenUtility;
END.