1 ! Ins{nd av: Matts Kallioniemi <2332>    1985-06-02 22.43.01
5 INTEGER : EXTEND 
10 INPUT 'Ange ]r (4 siffror), M}nda, Dag 'Yy,Mm,Dd
20 IF Mm>2 THEN 50
30 Fak.=365.*Yy+Dd+31.*(Mm-1)+INT((Yy-1)/4.)-INT(.75*(INT(((Yy-1)/100.)+1.)))
40 GOTO 60
50 Fak.=365.*Yy+Dd+31.*(Mm-1)-INT(.4*Mm+2.3)+INT(Yy/4.)-INT(.75*(INT(Yy/100.)+1.))
60 Day=Fak.-7.*INT(Fak./7.)
70 Day$=MID$("L|rdag S|ndag M}ndag Tisdag Onsdag TorsdagFredag ",7*Day+1,7)
80 PRINT "Det {r dag nummer " NUM$(Fak.) ". En " Day$