Hola All!
This is a easy mouse driver full in PowerBASIC. Sorry, the comments are in
spanish, but the routine is so easy. Run it and test it. Please, comments
will be apreciated.
Note.- PS/2 mouses aren't supported.
-[ Start: PBMOUDRV.UUE ]--==---------------------------------
PBMOUDRV.UUE
QUUNCD Ver. 1.4, by Theodore A. Kaldis.
BEGIN--cut here--CUT HERE--
begin 644 pbmoudrv.zip
M4$L#!!0````(`"D4G1UV,F"BKQ4``)M>```)````34]54T4N0D%3[3S;D&(I91!H[Y%9$(F!ADT0BHOZV2WU?8T;TS..0S[
M)`X%F3(2!TLH0QX0GY*`>2SD4SI%L)!*-5]!3S4Q['W$9"!:Y)B'"[4\`,W%
M%'%Z8KZ@$;_E/D[_)<;YCIH?21J$B@^@$0EUEE&2!TY)_W)$=G?OR:.BAJAG
M+(P^J/D+R4+-GT]X@.`.T@MKJ&XDG=.ID"1BP1W%`8_.;[FAGY)0*.9\
M'C"*M/XYY7>BA=(YIR%1ST)/\H7'0:;P7Y]HQ@":B`63U.-_!@1)4K]`U(3X
M5,UG[Q<^]_0PH*932F0<\8!J_+U049YP2^XI4:0#8D7U+84OGE"X'JCD0JTL
M::1)>"0`K.;/X@#(`E!/2,F\B&IMPSSF^R)T"(T#8/DBEHO[1T6C^:8)>+XI
M#H0D,_H@)(@=M!J"'%BJPH!$<9BJ0=$3T0!W@R?F3'J<^HHD]5V0F63L5RJ9
MHR8]_*$8`4OH;5]0[A-*J'\'NIHRXM-039]RQ:[1B7I(;^D[X1`>3+E'`Y2'
M0ADJ:%\M:UL">52S?XFYHDQ-50,TCH!Z&OZA)^&N`I&%7#ZP%G+H@QG//\#"
MBYA-U42P_QRG7@R,(68)?*;XYF+*9XHJZ0/;R+X>N(O5]!#DQN8+R8ADX8)%
M2+TO@"O%X;W0[`&-+37]4/$P91Z3?]#$Q'UQ)_:K'15XHYP?`BRPXSS.0O0+
M/E4\!Q'U?;T!Y.]3'NEUHSB3F]"P('OAQ6!GB6'[9,[#N=DS>8.(.`,-4?_N
M'P&J7,V2'/9H?*?X"SP.B+V8^B@X-5]$DBK(D#JPS:_OW5;`NU7`
M??!D"/QNCJS\G06*:_Z^I7XBF]EG&"@.-9OY<%/ZZ7Y-SL%JIX(,O[ZL@AK2
M(.+T#GUW5\P70LU`S9=^W&]:;]ZX9)N
MS.0TV6]Z]UB[*W&7A$*D>/@]-!%JLW_9/;\Y[F4++3L:O3G9+9,?"$6#9Y)0
MG\P4/A^M5KMZ,HO!9V:HU!SPPA0VAEE>K3J2=(&S,#JV%*\>".?$5V-6(SWR:^ZW/OY]S<
MHSB*-.W]RU'OM'=MGH^-C(O/)\O/;2:^N!GV>N/#B\%YK^.B"/F,6`]M<]TB
M`X@%"S$%_R[F"^Y3B;%USBU3(]]O-_7BB5F2#62F=;:AGQ_SN69OB=RN'^HO
M.-SI!SS";XVV07DN/!HQXK8=5S_HSS3LVX,O+JX4W9=7HY.KF\MC,KIG06I[
M"51GV\T/@*HD#R*R<1.",N9(EC$MDV1M9-`]/[1V1F&NE5!JHZ2)D6880/9@
MHU+@SC914PTB&C7AO_[["1],B$X46MQL&9EG-)CZK&F)
M$>QAO&RZR="D>FA`PQ#B:4C.KRY/"X,G/KTKVQ+)>,E6LB$*06,\WNS#1D
MFXU^\#-[W+0YT"8&(-U[N=G8^;:)9D;8>QZ1[$R;"()R4"^K_\_)0B
MC`=S31^(M+Y)YFM>)H[$^9JMJ)/L;W^LOWV^H
M(I^J#Y+NB4*9YX@!4]5I>M
M/)8DZA1M0:ML_/U&JJZ"MG*:.;H9%523:$;+`*LY18CI5RRKJ'R+&KLY9[.(
MD%OMTZ`/$++IDI45XUR:W]U'*RBK(RPW_PF$9<(W
MOB8O_2UR^8\YDUKL4!9/*51F)F0O._^+'_J;C7'S%?Z>-.WA+6A*_$$A9==%
MM$E*H4CT2TUISW$+S":8TL;1I=`EMS;N`)HE^]N%H)-(B/T2LS`*]\G&]]V'
M\X8BMQS0Q$L"@/I[09>!)TGIP`S#:C9Z:TY%11!:&G@1?RCN5!RMHK#`*BL/7?"O^BL^,D:\$LJ7_9'^&X^K[]
M8A]`''!H^)AR)LFQRC,IS+T_S%DD1;A//@Z$C/9)']L[V,V)F8R@P2,Y(Z&X
ME>A:H1Y[H',1PGS[\]$4!62J>FNP*7;VL7J&0)[VG4B'@V%0^[I
MK02B%'@E70OFZ68>$)*IR4@;4EWS,&!W-.(/4*:7HC*52+A?,9XYJ*0B=)NP
MB:DE`7`*T/\%+
M67E?GHJ/VX68JF-2'-*:'9A'\3PV@!&KY$T50AK@KZU"LUE=E.($72)7`QW'
M\_DC23L[P]%U?ZGZ[8HXB$A%5RAML>B5.L
MU\(@GN[5^=6ULY<#7"'<4KUE2KLJC-@;S9;5\BJ)P^A84THR4D4UDDX.,65S
M!E!+RS1!=(;L+@ZF(GWP@HDKN,NND/0WDRE.\SU"AU#RNX\'C5`,8`_GGL))
M0R2@O/+5OP7V=W2%NX4Y@F2SY/"+^EDQG+4O,3KT`MVD-"OKM%/AWSK$@\\M
MK)T7:9:LS]H"R+]"?A=@FJ+0/@*J1S7O0?BQ1L;#B`>1"%ODD&P59`FP6T5Y
MJJ4T\5@VZB1IX"K(P8XN7R!S>N!4MD@WQ@-,R$"3V21DE'`)A>Q#DA"'L>%'
MY[T:Y=@E@HQW%#RL,=I*C,LQ[GAO*=%B&=0Z/\VN0
M?\HZF1>PU[F(V8-)X&%%D5H:W$/`TV^R$"'V"P$+*?]0+XKAW`DLQ*-2_1>/
MU;2PIP)/5(T":["$G($N%2#DG.\8&6N5F_]-7E3H67/4&;O.&.61Y$L=,%P@1\(9/IZ28MLNS4XM,?0O07HAQOS?TD!Y/.2@9%#UNKQA(E[,P'>
M"$C1VU77_%649_XSZ9FCSW/(PP>?@PL$86(,8G4[E@619*1-'N&:P\MRK3.V
M@:WX0X_YR7VR`N$M,H1V$PL-`S4T>SH&FU)P^>8`&3(R9^^$I/4^#^Y?)!D(
M@X#\YWL.Y]T*5ZAO7F'P]\1\NTX1YN;?;W!<9FZFI3VL!T)U!R3X%!WUP^8;6VQ/`V(Y;4J5<9N)VQ0P8[G1?U!UD-87.2
ML,F69#;]^79.(EC3NM66RW=@$M>TGSR8V5\[[4ZEE_VU[]*CU!*V96+[EV
M>@B8\^>%^`.G)NG>#LD##_FMSU[4B'0Z544&A#.XXF7N\J:'0=J&H(ZIL2/)
ML%4,-Z02SV)%6+Q,*".F!B.Z(JY"_J3@;^D[JN/LBXG@\\^&\6U6^S:R"U"F
M+>3T[?L73M^^45C6OLG%(9LKGCRV)E(W;9Z=EXX>>QWR_
M>GQ\,ZC'OV)\#(ZH;OZ*\2/J_5R'_T<^92(;_^GJ^C@;O)K-0A953]:Z3+
M+Z9I*44VET>342\;/!7C6A&-A[)$HON>&X
M.>HTZQ\79.1/]3%V!75J7)\F5XSC?9.P0C39C;RP<7$X=MQF*N?3T]8QC1
MB'O9ELGUU=*-`$?2SOAFX$S@'\8Y-#('3"6'2-NVD\G7R43I:*F9[T9"CDUO
M,X?+B,E)Q.%HJ(3TI-L%9!=[75TQ)XUTM*DP)AU/NYV%AMPYXE'XM[\U!K
M0T\&1_%L]O7K;[[9?=U,9YMPFHG^?)J^;).
MCINR^W\6MCOB.E^>M=L55Y&[U/=UYT/&BXA\>;9;#G>63QSJ9T]P]F3E[-([+TLB3*:Y*M99E
MV+K5#O1_CW(KWUWX_ZE<5$_'TET)8"5QL*$+9V]O=^MU78@'Q<./PD';,+Y]
M*D_+IXB&LH/JMU;PNODU_34Y4-RM/T%,VPV1/GEI#5HEX:C@X1/(4U%IX>#G
M,[!*/M
MTL60&NRZZ$F=V?*DX:]T00:W#\=L-F1W#I9:U54/%)F=-EI;&J7?'M2505#)Z$WTFRPTMT;7M<3H-:D=4G@7XJL4^1+
M"ATO-_REXEZ9G?3KTH^4BZ.;T5_,1EVZJ7BH2D,0X4N\K+;[SINR'*R$@TG90\N`OCQS2U5U
MS::%$Q5WWVV7;$@3%O(H4C/&.R/U!E>?MHQO!I`AF>U>GNHID,D*$$C<=)II
MP"K:&9CAZ3RO'M"HH4Q]ANJ&^O%579$$=#G65Y&5&ZFB^(&57R?+OW0'%!VUP@_"MU,]83J$0D5:Z`KM6@LLO
M^>;4LH-`&N!'_L"R[(7!S&2UADM?FTTD63QJL>DJ\'0B9&ZF2T:BY-W7'(H3
MR=@)]TN\G;'3SD;WZF+CU7DD^7RS,8SDIGZ9L?EJ8]_=:;>=2^=;QW6NA\[Q
ML.T>A5'*;>.6QZ@'X21;"`Z9^-B8QT*:K6V[D'AJN'D'?;R3.62O8^TH)_2AM*:0:64G1?7
M]:1AYH&./)7BZ?KX]U7M-Y6?NS\J67G:MD%Q62ZRWJ7;%-8[=2L5R+^AO?R.
M-MRW-SIMC+#!7WJA/HFV2Y>]SVD8P;R2P)AYV"S>U;FW]/X4TF']Z078D&:9
MMP?@0QM?GNV]]II+*L>)G5'A8*8@G@15)\743?]F9W+V745F+O-*_]K!/DRJ
M:99?LRB6BM#_`5!+`P04````"``)$IT=!]6@DD6L4M7QD\E,1-3)-
MR41IE)6O"N[[]G*@%9%.X3#0FBA5\5B[]K.;>*`;URFQVJ`"<3N`KT20027N
M*)-(?'X1]X-Z,"A"DIG * Origin: -=EDI=BBS=-// Santiago de Compostela //+34-81-502110 (2:348/102)
|