stefankoelle/turbopascal-xlib-unit
1
0
Fork 0
mirror of https://github.com/skoelle/turbopascal-xlib-unit.git synced 2026-09-18 05:00:25 +00:00
Code Issues Packages Projects Releases Wiki Activity

contribution change

Browse Source
This commit is contained in:
stefankoelle
2026-08-05 00:51:09 +02:00
parent 676b51ba2e
commit 7e21caea43
2 changed files with 6 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
README.md
+1 -5
View File
@@ -79,13 +79,9 @@ compile.bat
| `locate` | Sets the cursor position. | | `locate` | Sets the cursor position. |
| `key` | Checks if a key is pressed. | | `key` | Checks if a key is pressed. |
## Author
Created by Stefan Koelle. FidoNet: 2:2480/330
## Contributing ## 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 ## Lizenz
xlibunit.pas
+4 -6
View File
@@ -1,18 +1,16 @@
{ Copyright (c) 2026 Stefan Koelle (https://stefankoelle.de) } { Copyright (c) 2026 Stefan Koelle (https://stefankoelle.de) }
{ Licensed under the MIT License. See LICENSE file in project root for details. } { 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! Hi Everybody!
this is the XLIB-UNIT this is the XLIB-UNIT
made by Stefan KOelle made by Stefan Koelle
You can use this LIB freely, but you have to 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: credit me in your program
Stefan Koelle 2:2480/330
New in this version: Virtual Horizontal 640 Pixel New in this version: Virtual Horizontal 640 Pixel
If you have any questions then also write a message to me
Comming soon: Double wide Comming soon: Double wide
Panning Panning
Lines, Circle, Ellipse -Draw Lines, Circle, Ellipse -Draw
@@ -425,7 +423,7 @@ end;
Procedure CRTC_UnProtect; Procedure CRTC_UnProtect;
Begin Begin
Port[$3d4]:=$11; {Register 11h des CRTC (Vertical Sync End)} 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; End;
Procedure CRTC_Protect; Procedure CRTC_Protect;
Begin Begin