Discordian date: Difference between revisions

Content added Content deleted

Inline

@@ Line 743: / Line 743: @@
         SEASON := YRDAY DIV 73;
         DAY    := YRDAY-SEASON*73;
-        WKDAY  := (YRDAY-1)-( (YRDAY-1) DIV 5 ) * 5;
+        WKDAY  := (YRDAY-1) REM 5;
         WRITEONTEXT( DISDAY(WKDAY) );
         WRITEON( S_W := 0, ", DAY ", I_W := 2, DAY, " OF " );