Calendar: Difference between revisions
no edit summary
Thundergnat (talk | contribs) m (→{{header|Ring}}: Remove vanity tags) |
No edit summary |
||
Line 6,470:
30
</pre>
=={{header|Yabasic}}==
{{trans|Lua}}
<lang Yabasic>
clear screen
sub snoopy()
local n, a$
n = open("snoopy.txt", "r")
while(not eof(#n))
line input #n a$
print " "; : print color("black", "white") a$
wend
close #n
end sub
sub floor(n)
return int(n + 0.5)
end sub
sub string.rep$(s$, n)
local i, r$
for i = 1 to n
r$ = r$ + s$
next i
return r$
end sub
sub center$(s$, width)
local fill1
fill1 = floor(width - len(s$)) / 2
return string.rep$(" ",fill1) + s$ + string.rep$(" ",fill1)
end sub
sub makeMonth(name, skip, days, cal$(), j)
local cal, curday, line$, i
curday = 1 - skip
cal = 3
cal$(j, 2) = " " + daysTitle$ + " "
//cal$(j, 1) = center$(months$(name),len(cal$(j, 2)))
cal$(j, 1) = left$(months$(name) + string.rep$(" ", 80), len(cal$(j, 2)))
while(cal < 9)
line$ = ""
for i = 1 to 7
if curday < 1 or curday > days then
line$ = line$ + " "
else
line$ = line$ + str$(curday, "###")
end if
curday = curday + 1
next
cal = cal + 1
cal$(j, cal) = line$ + " "
wend
end sub
dim months$(12)
n = token("JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER", months$(), ",")
daysTitle$ = "MO TU WE TH FR SA SU"
dim daysPerMonth(12)
for n = 1 to 12
read daysPerMonth(n)
next
data 31,28,31,30,31,30,31,31,30,31,30,31
sub print_cal(year)
local i, q, l, m, startday, sep, monthwidth, calwidth, dpm, calendar$(12, 9), line$(3)
startday=mod(((year-1)*365+floor((year-1)/4)-floor((year-1)/100)+floor((year-1)/400)),7)
if not mod(year,4) and mod(year,100) or not mod(year,400) then
daysPerMonth(2)=29
end if
sep = 5
monthwidth = len(daysTitle$)
calwidth = 3 * monthwidth + 2 * sep
for i = 1 to 12
dpm = daysPerMonth(i)
makeMonth(i, startday, dpm, calendar$(), i)
startday = mod(startday + dpm, 7)
next
snoopy()
print center$("--- " + str$(year) + " ---", calwidth), "\n"
print string.rep$(" ", sep + 1);
for q = 0 to 3
for l = 1 to 9
for m = 1 to 3
print calendar$(q * 3 + m, l);
next
print
print string.rep$(" ", sep);
next
print
print string.rep$(" ", sep + 1);
next
end sub
print_cal(2018)
</lang>
=={{header|zkl}}==
| |||