mirror of
https://github.com/skoelle/turbopascal-xlib-unit.git
synced 2026-09-17 20:50:24 +00:00
contribution change
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
+5
-7
@@ -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.
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user