Calendar - for "REAL" programmers: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,075: / Line 1,075: @@
 RCB(#20, BOL_POS, CP, DELETE)
 #11 = JDATE(@(#20)) - #10
-#12 = JDATE()
 #7  = (#10-1) % 7
@@ Line 1,095: / Line 1,094: @@
 IT(" --------------------") IN
 IC(' ', COUNT, #7*3)
-#6 = 0
 FOR (#8 = 1; #8 <= #11; #8++) {
     NI(#8, COUNT, 3)
-    IF (#8+#10-1 == #12) { #6 = CP }
+    #5 = (#8+#10+5) % 7
-    #5 = (#8+#10+6-1) % 7
     IF (#5 == 6) { IN }
 }