DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »daytxt«

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦this⟧ »daytxt« 

TextFile

external integer procedure day;

begin
  integer m2,d,m,å,i,dage,år,x,dd;
  real time,r;
  år:=72; dage:=0;
  time:=r:=0;
  systime(1,0,time);
  x:=0;
  x:=systime(2,time,r);
  m:=x mod 10000//100;
  d:=x//10000;
  å:=x mod 100;
  for i:=i while år<å do
  begin
    dage:=dage+(if år//4*4=år/4*4 then 366 else 365);
    år:=år+1;
  end;
  dd:=-dage;
  if å//4*4=år/4*4 then m2:=29 else m2:=28;
  if m>1 then
  dage:=dage+(case m-1 of(
  31,31+m2,62+m2,92+m2,123+m2,153+m2,184+m2,215+m2,
  245+m2,276+m2,306+m2));
  dage:=dage+d-1;
  dd:=dd+dage+1;
  dage:=(dage+6)mod 7;
  if dage=0 then dage:=7;
  dd:=dd+4-dage;
  dd:=dd mod(if m2=29 then 366 else 365);
  day:=dd//7+1;
write(out,false add 12,1,  
case dage of(<:mandag :>,<:tirsdag:>,<:onsdag :>,
  <:torsdag:>,<:fredag :>,<:lørdag :>,<:søndag :>),
  <: den :>,<<dd>,d,<:.:>,case m of(<: januar:>,<: februar:>,<: marts:>,
  <: april:>,<: maj:>,<: juni:>,
  <: juli:>,<: august:>,<: september:>,<: oktober:>,<: november:>,
  <: december:>),
  <: 19:>,<<dd>,å,<<  dd dd dd>,r,<:<10>:>);
end;
end;
▶EOF◀