Category : Pascal Source Code
Archive   : OOPMOU_B.ZIP
Filename : MOUSEUNI.TPU

 
Output of file : MOUSEUNI.TPU contained in archive : OOPMOU_B.ZIP

TPU6Â@1  E E U p ™ Æ€„~Âø×éY MOUSEUNIT{€×éYSYSTEMaééYDOSñ×Q MOUSE_OBJECT Ï *ÿÿÿÿøVZ!ÕSEXISTS ÖI
þá*SNUMBEROFBUTTONS ñq
ÆáISRESET  
SSHOW '¬
qSHIDE BÉ
S GETSTATUS ]ú
ÆáÆáÆáSMOVETO ®#
ÆáÆáÉSPRESSED ô\
ÆáþáÆáÆáÆáSRELEASED$ j–
ÆáþáÆáÆáÆá#SCOLRANGE( àÁ
ÆáÆá\SROWRANGE, 1ì
ÆáÆáÁS GRAPHCURSOR0 ~$
ÆáÆáÖáÖáìS
TEXTCURSOR4 ìV
ÆáÖáÖáúSMOTION8 A 
ÆáÆá–S INSTALLTASK< ” ²
ÖáÖáÖá¬S
LIGHTPENON@ ñ Õ
S LIGHTPENOFFD 
ù
²SRATIOH '
!
ÆáÆáùS CONDITIONOFFL n
Z
ÆáÆáÆáÆá$S SETTHRESHOLDP Å

Æá~Â[ø‹×î
éA u(PMOUSE_DRIVER_INTERRUPTæá3R MOUSE_EXISTSþáR
MOUSE_VISIBLEþáR
MOUSE_BUTTONSÆáR REGISTERSðS CALLMOUSET²
Æá¼R
MOUSEFUNCTION‹ÆáàRSELF* ÏûRSELFI ÏRSELFq Ï1RSELF ÏLRSELF¬ ÏŠzRSTATUSÉÆáRROWÉÆáRCOLUMN
ÉÆágRSELFÉ ÏÌãRNEW_ROW úÆáR
NEW_COLUMN
úÆá¸RSELFú ÏF6YRBUTTON#ÆáRRESULT#þáRCOUNT#ÆáRROW#Æá$RCOLUMN
#ÆáþRSELF# ϼ¬ÏRBUTTON\ÆáRRESULT\þáRCOUNT\Æá‡RROW\ÆášRCOLUMN
\ÆátRSELF\ Ï êRHORIZONTAL_MIN –ÆáRHORIZONTAL_MAX
–ÆáRSELF– Ï;mTR VERTICAL_MIN ÁÆáR VERTICAL_MAX
ÁÆáRSELFÁ Ï™ÛÃRHHOTìÆáRVHOTìÆáR MASK_SEGMENT ìÖáˆR MASK_OFFSET
ìÖáªRSELFì Ï 0  R CURSOR_TYPE$ÆáRARG1 $ÖáöRARG2
$ÖáRSELF$ Ïh ƒ RHORIZONTAL_COUNTVÆáRVERTICAL_COUNT
VÆáK RSELFV Ïž ¯ à RMASKÖáR TASK_SEGMENT ÖáR TASK_OFFSET
ÖáÈ RSELF Ïû RSELF² Ï
RSELFÕ Ï1
]
R
HORIZONTAL ùÆáRVERTICAL
ùÆáH
RSELFù Ï–
¥
´
x
RX1!ÆáRY1!Æá‡
RX2 !ÆáRY2
!ÆáRSELF! ÏÝ
Ï
RX
ZÆáRSELFZ ÏREXITSAVE~áS EXITHANDLERX' 
° (08@HPX`hpx€ˆ˜ ¨40/ . 80(% 6% EXXT=@fî¸w=@§=@¸]pÉNXÜE@îOXÿ=@+i€<.(Q!(_fˆm MOUSEUNITSYSTEMDOS-
z
MOUSEUNIT.PAS+
z MOUSEUNI.INC‹

* I q'
0
¬;
ÉE
úR
#a
''%\w
''%–Œ
Áš
ì¦
$·
VÄ
Ñ
²Þ
Õæ
ùï
!ý
Z

 


ÿÿU‰å1Àš‹F™¿š£°3P¿Wš‰ì]ÂU‰å¸šƒì ˜™¿šˆFÿŠFÿ‰ì]Ê€ÿÿÿU‰å¸šƒì¡™¿š‰Fþ‹Fþ‰ì]ÊU‰å1Àš1ÀPèƒ>u°ë°˜™¿š¢‰ì]ÊU‰å1Àš€>të ¸PèƉì]ÊU‰å1Àš€>uë ¸PèƉì]Ê€ÿÿÿU‰å1Àš¸Pè¡1Ò¿šÄ~
&‰¡1Ò¿šÄ~&‰¡1Ò¿šÄ~&‰‰ì]ÊÿÿU‰å1Àš‹F
™¿š£‹F ™¿š£¸Pè‰ì]Êÿÿ€ÿÿÿU‰å1Àš‹FH™¿š£¸Pè‹F=u"¡% Àu°ë°˜™¿šÄ~&ˆëL=u"¡% Àu°ë°˜™¿šÄ~&ˆë%=u ¡% Àu°ë°˜™¿šÄ~&ˆ¡1Ò¿šÄ~&‰¡1Ò¿šÄ~
&‰¡1Ò¿šÄ~&‰‰ì]Êÿÿ€ÿÿÿU‰å1Àš‹FH™¿š£¸Pè‹F=u"¡% Àu°ë°˜™¿šÄ~&ˆëL=u"¡% Àu°ë°˜™¿šÄ~&ˆë%=u ¡% Àu°ë°˜™¿šÄ~&ˆ¡1Ò¿šÄ~&‰¡1Ò¿šÄ~
&‰¡1Ò¿šÄ~&‰‰ì]ÊÿÿU‰å1Àš‹F ™¿š£‹F
™¿š£¸Pè‰ì]ÊÿÿU‰å1Àš‹F ™¿š£‹F
™¿š£¸Pè‰ì]ÊÿÿU‰å1Àš‹F™¿š£‹F™¿š£‹F
1Ò¿š£‹F 1Ò¿š£¸ Pè‰ì]Ê ÿÿU‰å1Àš‹F™¿š£‹F 1Ò¿š£‹F
1Ò¿š£¸
Pè‰ì]Ê
€ÿÿÿU‰å1Àš¸ Pè¡1Ò¿šÄ~&‰¡1Ò¿šÄ~
&‰‰ì]Ê ÿÿU‰å1Àš‹F1Ò¿š£‹F
1Ò¿š£‹F 1Ò¿š£¸ Pè‰ì]Ê
U‰å1Àš¸
Pè‰ì]ÊU‰å1Àš¸Pè‰ì]ÊÿÿU‰å1Àš‹F ™¿š£‹F
™¿š£¸Pè‰ì]ÊÿÿU‰å1Àš€>uëH‹F ™¿š£‹F
™¿š£‹F™¿š£‹F™¿š£¸PèƉì]Ê ÿÿU‰å1Àš‹F
™¿š£¸Pè‰ì]ÊU‰å1ÀšÄŒÂ£‰1ÀPè‰ì]Ë€ÿÿÿU‰åČ£‰¸º£‰1ÀPèƒ>u°ë°˜™¿š¢Æ¡1Ò¿š£‰ì]Ë 0ÐP 0̐%0* 0АP 0Ì 0АP 0Ì 0ÐTP( 0Ì+0 0А T 0А T 0ÐTP0 0Ì"
-P02 0Ì5@P0E 0ÌH 0ÐP8 0̐P8& 0Ì)
.T5 0Ð[email protected]( 0Ì+0T7B[email protected]T 0ÌWi[email protected]{ 0Ì~[email protected]¢ 0Ì¥°[email protected]µ 0̸Ã[email protected]È 0Ìː
Ö[email protected]Û 0ÌÞ 0ÐPH( 0Ì+0T7BPHT 0ÌWiPH{ 0Ì~PH¢ 0Ì¥°PHµ 0̸ÃPHÈ 0Ìː
ÖPHÛ 0ÌÞ 0ÐPP 0̐PP& 0Ì)
.T5 0ÐPX 0̐PX& 0Ì)
.T5 0ÐP` 0̐P`& 0Ì).P`6 0Ì9
>P`F 0ÌINTU 0ÐPh 0̐Ph' 0Ì*/Ph7 0Ì:
?TF 0ÐTPp 0Ì"
-Pp2 0Ì5 0ÐPx 0̐ Px( 0Ì+
0Px8 0Ì;@TG 0ÐT 0ÐT 0ÐP 0̐P& 0Ì)
.T5 0АP˜ 0Ì#(P˜/ 0Ì27P˜> 0ÌAFP˜M 0ÌP
UT\` 0ÐP  0̐
T& 0А Ð& Ð(T Ð&X! X$ Ð&' Ð(+T15P°C 0ÌFKOSP°X 0Ì[`