30 ! Ver / Sign/ Datum / Kommentar 116 ! 1.11 / SKE / 89-02-12 / FNExpr prioriteter r{ttade, 400-}r 120 ; CUR(0,0) "PSSEKR Ver 1.11, Kristoffer Eriksson ABC <5357>, 1985 & 1988" 210 INTEGER : EXTEND : DOUBLE : ! NO RESUME 3330 X=]r-1 3340 X=MOD(X+X/4-X/100+X/400+VAL(MID$("033614625035",M}n,1))-(FNSkott(]r) AND M}n>2),7) 3350 3360 ; #Nr CHR$(12) C2$ " " FNM}n$(M}n) ]r; 3370 ; #Nr CUR(0,12) "<" FNM}n$(M}n-1) "/" FNM}n$(M}n+1) ">" 3440 RETURN X 3460 DEF FNAntdag(]r,M}n)=28+VAL(MID$("303232332323",M}n,1))-(FNSkott(]r) AND M}n=2) 3480 DEF FNM}n$(M}n)=MID$("JanFebMarAprMajJunJulAugSepOktNovDec",MOD(M}n-1,12)*3+1,3) 3540 Dagar=FNAntdag(]r,M}n) 3570 IF FNWinv{lj(Nr)=1 THEN CLOSE Nr : Win(Nr,0)=0 : RETURN 0 3580 3660 3670