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

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

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


UNIT BattClockPlus;

INTERFACE

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

FUNCTION GetBattClock(dt:boolean):boolean;

VAR current:p_ClockData;
    mday,month,year,
    hour,min,sec:word;
    wday,battclocktime,
    battclockdate:string;
    helpforclock:boolean;

IMPLEMENTATION

FUNCTION GetBattClock;

BEGIN
 BattclockBase:=OpenResource(BATTCLOCKNAME);
 IF (BattclockBase<>NIL) AND (helpforclock)
  THEN
   BEGIN
    NEW(current);
    Amiga2Date(ReadBattClock,current);
    IF dt THEN
      case current^.wday of
       0: wday:='Sonntag ';
       1: wday:='Montag ';
       2: wday:='Dienstag ';
       3: wday:='Mittwoch ';
       4: wday:='Donnerstag ';
       5: wday:='Freitag ';
       6: wday:='Samstag ';
      else;end
     ELSE
    case current^.wday of
      0: wday:='Sunday ';
      1: wday:='Monday ';
      2: wday:='Tuesday ';
      3: wday:='Wednesday ';
      4: wday:='Thursday ';
      5: wday:='Friday ';
      6: wday:='Saturday ';
    else;end;
    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));

    mday:=current^.mday;
    month:=current^.month;
    year:=current^.year;
    hour:=current^.hour;
    min:=current^.min;
    sec:=current^.sec;
    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));
    GetBattclock:=true;
   END
  ELSE
    GetBattclock:=false;
END;
BEGIN
 helpforclock:=OpenUtility;
END.