Date manipulation: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,786: / Line 2,786: @@
             '''IF''' DUP2 TYPE SWAP TYPE == '''THEN'''
                '''IF''' DUP TYPE 2 ≠ '''THEN''' SWAP 10 * '''END''' +
-            '''END'''
+            '''ELSE'''
-         '''ELSE'''
+               ROT ROT + SWAP
-            ROT ROT + SWAP
+               '''IF''' DUP ‘x’ SAME '''THEN''' DROP '''END'''
-            '''IF''' DUP ‘x’ SAME '''THEN''' DROP '''END'''
+         '''END END'''
-      '''END END'''
      '''NEXT'''
  ≫ ≫ '<span style="color:blue">ALPHANUM</span>' STO