Text processing/2: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,557: / Line 1,557: @@
                (= 49 (length Lst))     # Check total length
                ($dat (car Lst) "-")    # Check for valid date
-               (not
+               (fully                  # Check data format
-                  (find                # Check data format
+                  '((L F)
-                     '((L F)
+                     (if F                         # Alternating:
-                        (not
+                        (format L 3)               # Number
-                           (if F                            # Alternating:
+                        (>= 9 (format L) -9) ) )   # or flag
-                              (format L 3)                  # Number
+                  (cdr Lst)
-                              (>= 9 (format L) -9) ) ) )    # or flag
+                  '(T NIL .) ) )
-                     (cdr Lst)
-                     '(T NIL .) ) ) )
             (prinl "Bad line format: " (glue " " Lst))
             (bye 1) ) ) ) )