From 7e21caea430fb755205bbfd21a54eeb9bfd5f9bc Mon Sep 17 00:00:00 2001
From: Stefan Koelle <stefan.koelle@gmail.com>
Date: Wed, 5 Aug 2026 00:51:09 +0200
Subject: [PATCH] contribution change

---
 README.md    |  6 +-----
 xlibunit.pas | 12 +++++-------
 2 files changed, 6 insertions(+), 12 deletions(-)

diff --git a/README.md b/README.md
index 73b1a39..49a15b1 100644
--- a/README.md
+++ b/README.md
@@ -79,13 +79,9 @@ compile.bat
 | `locate`           | Sets the cursor position.                                                       |
 | `key`              | Checks if a key is pressed.                                                       |
 
-## Author
-
-Created by Stefan Koelle. FidoNet: 2:2480/330
-
 ## Contributing
 
-Contributions are welcome. Please credit the author in your program and consider sending a FidoNet message to Stefan Koelle (2:2480/330) if you use this library.
+Contributions are welcome.
 
 ## Lizenz
 
diff --git a/xlibunit.pas b/xlibunit.pas
index edbfbf3..4d04cc8 100644
--- a/xlibunit.pas
+++ b/xlibunit.pas
@@ -1,18 +1,16 @@
 { Copyright (c) 2026 Stefan Koelle (https://stefankoelle.de) }
 { Licensed under the MIT License. See LICENSE file in project root for details. }
-{ >>> *The X-LIB UNiT V0.3á* <<< - first beta release }
+{ >>> *The X-LIB UNiT V0.3a <<< - first beta release }
 
 (*
   Hi Everybody!
   this is the XLIB-UNIT
-  made by Stefan KOelle
+  made by Stefan Koelle
   You can use this LIB freely, but you have to
-  credit me in you program and you have to send me a fido messy to:
-  Stefan Koelle 2:2480/330
+  credit me in your program
 
   New in this version: Virtual Horizontal 640 Pixel
 
-  If you have any questions then also write a message to me
   Comming soon: Double wide
                 Panning
                 Lines, Circle, Ellipse -Draw
@@ -425,7 +423,7 @@ end;
 Procedure CRTC_UnProtect;
 Begin
   Port[$3d4]:=$11;              {Register 11h des CRTC (Vertical Sync End)}
-  Port[$3d5]:=Port[$3d5] and not $80  {Bit 7 (Protection Bit) l”schen}
+  Port[$3d5]:=Port[$3d5] and not $80  {Bit 7 (Protection Bit) loeschen}
 End;
 Procedure CRTC_Protect;
 Begin
@@ -575,4 +573,4 @@ begin
     textpal[2,i]:=port[$3c9];
     textpal[3,i]:=port[$3c9];
   end;
-end.
\ No newline at end of file
+end.