Discordian date: Difference between revisions
→{{header|ALGOL W}}: minor tweak
m (→{{header|FORTRAN}}: Fixed case of "Fortran") |
(→{{header|ALGOL W}}: minor tweak) |
||
Line 743:
SEASON := YRDAY DIV 73;
DAY := YRDAY-SEASON*73;
WKDAY := (YRDAY-1)
WRITEONTEXT( DISDAY(WKDAY) );
WRITEON( S_W := 0, ", DAY ", I_W := 2, DAY, " OF " );
| |||