turbopascal-wdb-discuss

[Turbopascal-wdb-discuss] The mouseunit in the Turbopascal DOSBOX

[Kroupa P. <kr...@gm...>]

<div style="font-family: 'verdana'; font-size: 12px; color: #000;">
<pre id="tw-target-text" class="tw-data-text tw-text-large tw-ta" dir="ltr" style="unicode-bidi: isolate; font-size: 28px; line-height: 36px; background-color: rgb(248, 249, 250); border: none; padding: 2px 0.14em 2px 0px; position: relative; margin: -2px 0px; resize: none; font-family: inherit; overflow: hidden; text-align: left; width: 270px; white-space: pre-wrap; overflow-wrap: break-word; color: rgb(31, 31, 31); font-style: normal; font-variant-ligatures: normal; font-variant-caps: normal; font-weight: 400; letter-spacing: normal; orphans: 2; text-indent: 0px; text-transform: none; widows: 2; word-spacing: 0px; -webkit-text-stroke-width: 0px; text-decoration-thickness: initial; text-decoration-style: initial; text-decoration-color: initial;" data-placeholder="Übersetzung" data-ved="2ahUKEwjYqPLykc2JAxVv0wIHHfCvJbsQ3ewLegQICRAU" aria-label="Übersetzter Text: I got a mouse unit from Borland that works in Turbopascal in Dosbox.
Since the FPC is so miserable, I switched to DOS box. 
Greetings Kroupa"><span class="Y2IQFc" lang="en">I got a mouse unit from Borland that works in Turbopascal in Dosbox.
Since the FPC is so miserable, I switched to DOS box. 
Greetings Kroupa</span></pre>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;">unit &nbsp;myska;</div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;">interface<br>uses crt,dos;<br>var register:registers;<br>dtseg,msseg :integer;<br>procedure initmouse;<br>procedure showcursor;<br>procedure hidecursor;<br>function xposition:integer;<br>function yposition:integer;<br>function leftbotton:boolean;<br>function rightbotton:boolean;<br>procedure settextcursor(cursormode,screenmask,cursormask:byte);<br>procedure setxy(x,y:integer);<br>implementation</div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;">procedure initmouse;<br>begin<br>with register do begin<br>ax:=0;bx:=0;cx:=0;<br>end;<br>intr(51,register);<br>end;<br>procedure showcursor;<br>begin<br>with register do begin<br>ax:=1;bx:=0;cx:=0;dx:=0;<br>end;<br>intr(51,register);<br>end;</div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;">procedure hidecursor;<br>begin<br>with register do begin<br>ax:=2;bx:=0;cx:=0;dx:=0;<br>end;<br>intr(51,register);<br>end;</div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;">function xposition:integer;<br>begin<br>with register do begin<br>ax:=3;bx:=0;cx:=0;dx:=0;<br>end;<br>intr(51,register);<br>xposition:=register.cx;<br>end;</div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;">&nbsp;</div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;">function yposition:integer;<br>begin<br>with register do begin<br>ax:=3;bx:=0;cx:=0;dx:=0;<br>end;<br>intr(51,register);<br>yposition:=register.dx;<br>end;</div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;">function leftbotton:boolean;<br>begin<br>with register do begin<br>ax:=3;bx:=0;cx:=0;dx:=0;<br>end;<br>intr(51,register);<br>if (register.bx and 1)=0 then leftbotton:=false<br>else leftbotton:=true;<br>end;</div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;"><br>function rightbotton:boolean;<br>begin<br>with register do begin<br>ax:=3;bx:=0;cx:=0;dx:=0;<br>end;<br>intr(51,register);<br>if (register.bx and 2)=0 then rightbotton:=false<br>else rightbotton:=true;<br>end;</div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;">procedure settextcursor(cursormode,screenmask,cursormask:byte);<br>begin<br>with register do begin<br>ax:=10;bx:=cursormode;cx:=screenmask;dx:=cursormask;<br>end;<br>intr(51,register);</div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;">end;</div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;">procedure setxy(x,y:integer);<br>begin<br>register.ax:=4;<br>register.bx:=0;<br>register.cx:=x;<br>register.dx:=y;<br>intr(51,register);<br>end;</div>
<div style="font-family: 'verdana'; font-size: 12px; color: #000;">begin<br>end.</div>
</div>

[Turbopascal-wdb-discuss] TPWDB vs. original TP

[Kocsis L. <koc...@gm...>]

Hi,

First, thanks for your hard work, TPWDB seems incredibly awesome. My
question is that is TPWDB compatible with the original Borland Turbo
Pascal? I got an old TP program I will have to work on, and I'm considering
using TPWDB.

Best,

Laszlo Kocsis