From f88036c2b67df72c7254a0655ea35d1ba4e42ff0 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Thu, 21 Dec 2017 12:21:02 +0100
Subject: [PATCH] Make SALV empty buffer after reading a link.

---
 src/system/{salv.312 => salv.313} | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)
 rename src/system/{salv.312 => salv.313} (99%)
 mode change 100755 => 100644

diff --git a/src/system/salv.312 b/src/system/salv.313
old mode 100755
new mode 100644
similarity index 99%
rename from src/system/salv.312
rename to src/system/salv.313
index 5f12618b..e1b7ab4c
--- a/src/system/salv.312
+++ b/src/system/salv.313
@@ -834,7 +834,15 @@ MTR1:	HRROI A,MAGHD
 	SETOM LNKFLG
 	MOVE A,[-3,,LNKNM1]	;READ LINK INFO
 	PUSHJ P,MREAD
-	JRST POPJ1
+	CAIN T,3
+	 JRST [ MOVE A,[-1,,MHDATE+1]
+		PUSHJ P,MREAD	;FLUSH BUFFER
+		JUMPN T,MBDLNK	;IT SHOULD BE EMPTY
+		CLEARM EOUF
+		JRST POPJ1 ]
+
+MBDLNK:	LPR BAD LINK
+	JRST CRDDT
 
 MBADHD:	LPR BAD HEADER
 	PUSHJ P,LCRR