Find the last Sunday of each month: Difference between revisions
m
→{{header|S-BASIC}}
Line 4,538:
=={{header|S-BASIC}}==
<lang basic>
rem -
function mod(p, q = integer) = integer
end = p - q * (p/q)
Line 4,589:
d = monthdays(m, y)
w = dayofweek(m, d, y)
rem -
if w >= k then
d = d - (w - k)
| |||