From ebd0d78ce254c9f45c44258177b918963ea13927 Mon Sep 17 00:00:00 2001
From: norayr <norayr@arnet.am>
Date: Tue, 10 Nov 2015 22:18:35 +0400
Subject: [PATCH] reported by pdewacht: if eol is 0DX only, then voc wasn't
 able to handle this correctly http://paste.lisp.org/display/158971#1

this is base62 encoded test module http://paste.lisp.org/display/158971

fixed.; -- noch
---
 src/voc/OPM.cmdln.Mod | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/src/voc/OPM.cmdln.Mod b/src/voc/OPM.cmdln.Mod
index 7492755e..313e5a70 100644
--- a/src/voc/OPM.cmdln.Mod
+++ b/src/voc/OPM.cmdln.Mod
@@ -439,14 +439,21 @@ MODULE OPM;  (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96  *)
         IF (ORD(ch) > 31) OR (ORD(ch) = 9) THEN 
 	      IF ORD(ch)=9 THEN ch := " " END;
 	      line[i] := ch; INC(i); line[i+1] := 0X;
+		  Files.Read(r, ch);
 	    ELSE 
-	      IF ch = 0AX THEN INC(j); i := 0 END
+	      IF (ch = 0AX) OR (ch = 0DX) THEN 
+		     Files.Read(r, ch);
+			 IF (ch = 0AX) OR (ch = 0DX) THEN
+			    Files.Read(r, ch);
+			 ELSE
+			    INC(j); i := 0
+			 END
+		  END
 	    END;
         (* 
         Console.Ln; Console.String("-- line["); Console.Int(i-1, 0); Console.String("] = "); Console.Char(ch); Console.Ln;
 *)
-        Files.Read(r, ch);
-(*
+        (*
         Console.String("-- i "); Console.Int(i, 0); Console.Ln;
 
         Console.String("--j "); Console.Int(j, 0); Console.Ln;