From 97dd956012c59d3c77018ce3fde9516826a82a2a Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sun, 3 Jun 2018 18:46:00 +0200
Subject: [PATCH] Fix Y2K problem in SCNV.

The RFDATE system call can now return years after 1999.  Truncate to
the last two digits.
---
 src/draw/{scnv.185 => scnv.186} | 2 ++
 1 file changed, 2 insertions(+)
 rename src/draw/{scnv.185 => scnv.186} (99%)

diff --git a/src/draw/scnv.185 b/src/draw/scnv.186
similarity index 99%
rename from src/draw/scnv.185
rename to src/draw/scnv.186
index aa345846..b6e3dbad 100644
--- a/src/draw/scnv.185
+++ b/src/draw/scnv.186
@@ -863,6 +863,8 @@ INFN1:	PUSHJ P,INWD		;FILE PPN
 	MOVEI C,"-
 	PUSHJ P,DTXCHR
 	LDB A,[331000,,FILEDA]
+	IDIVI A,100.
+	MOVEI A,(B)
 	PUSHJ P,DTXP2
 	MOVEI C,40
 	PUSHJ P,DTXCHR