From 7576130b767cc16724117b748f2040cc5c20d278 Mon Sep 17 00:00:00 2001
From: Ruben Shekspir <shekspir55@gmail.com>
Date: Sun, 5 May 2019 14:08:14 +0400
Subject: [PATCH] It works for some reason now

---
 http.Mod | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/http.Mod b/http.Mod
index 8406bdd..28aeb05 100644
--- a/http.Mod
+++ b/http.Mod
@@ -73,7 +73,8 @@ BEGIN
   REPEAT
     val[i] := buff[valPositionStart + i];
     INC(i);
-  UNTIL ORD(val[i]) = 10; (* 0DX number(newline)*)
+  UNTIL (ORD(val[i]) = 10) (* 0DX number(newline)*) OR
+  (i > Strings.Length(buff)); 
 END getHeader;
 
 PROCEDURE get *(host, path, port: ARRAY OF CHAR; VAR buff: ARRAY OF CHAR);
@@ -112,7 +113,6 @@ BEGIN
 
     AppendEOLAndClean("", sendClean);
     connectionFlag := Internet.Write(socket, sendClean^);
-    
     REPEAT 
       connectionFlag := Internet.Read(socket, tmpBuff);
       Strings.Append(tmpBuff, buff);