Palindrome dates: Difference between revisions

Content added Content deleted

Inline

@@ Line 300: / Line 300: @@
           IF ?(B% + I%) <> ?(B% + 7 - I%) EXIT FOR
         NEXT
-        IF I%=4 N%+=1 : PRINT FN_date$(TestDate%, "yyyy-MM-dd")
+        IF I%=4 PRINT FN_date$(TestDate%, "yyyy-MM-dd")
         TestDate%+=1
-      UNTIL N%=15
+      UNTIL VPOS=15
       END</lang>
 {{out}}