13 lines
496 B
Text
13 lines
496 B
Text
Rebol []
|
|
do [if "" = y: ask "Year (ENTER for current):^/^/" [prin y: now/year]
|
|
foreach m system/locale/months [
|
|
prin rejoin ["^/^/ " m "^/^/ "]
|
|
foreach day system/locale/days [prin join copy/part day 2 " "]
|
|
print "" f: to-date rejoin ["1-"m"-"y] loop f/weekday - 1 [prin " "]
|
|
repeat i 31 [
|
|
if attempt [c: to-date rejoin [i"-"m"-"y]][
|
|
prin join either 1 = length? form i [" "][" "] i
|
|
if c/weekday = 7 [print ""]
|
|
]
|
|
]
|
|
] ask "^/^/Press [ENTER] to Continue..."]
|