Path: utzoo!attcan!cmtl01!matrox!uvm-gen!uunet!husc6!cmcl2!rutgers!att!whuts!jmbj From: jmbj@whuts.ATT.COM (BITTMAN) Newsgroups: comp.lang.pascal Subject: Re: wanting a TP keyboard macro program hints? Summary: Mouse driver which "stuffs" keys Keywords: TSR Message-ID: <5304@whuts.ATT.COM> Date: 25 Jan 89 12:09:09 GMT Organization: AT&T Bell Laboratories, Whippany NJ Lines: 78 > # I would like someone out there to send me a simple TSR program in > # TP40 that would insert a string into the keyboard buffer. In > # doing so I would you to point out briefly. > > I think many others would be interseted in this topic so those of > you who know, please contribute your ideas to the net and not to > individuals. > This program responds to mouse movement and button presses and "stuffs" the appropriate keys into the keyboard buffer. The code is ram-resident, and very simple, it doesn't know if it's already there, and it doesn't restore the old int 33h. It DOES demonstrate how to use the mouse and how to insert keys into the keyboard buffer. begin 644 menumouse.arc M&@A-14Y534]54RY!4TT`!08``&81`WT@UJL/```,("`EH)*$"I,B(!(FE!*F9 M30LI9>:D(5/T03=*,D?-FSALS%YN\J3.G#`@B.&!9LR(%FD/(/F8A@Y'.^`6%,FZ MSQR83*!>%%*'#E$W"7OT\`&"1Y$Y8WS`E)*&ZMBR9T&H9>O6(DNY+Q4,>4($. MH4(04XH<:5+$"167`1,\D7(DX($8,&`@@2PPR)0I51@?'C)%Q^#"+(B4/EV$^ M19'5A(NX%*(XB1,="I4T@6)Y"I4@4AX'-N/F"YHW-P,B*!.G3D(:-S*C<4G\, M2T6A`ID[!T'#C'27;.A\N2HGLO;G8KXKD".>O/GFS\FH/SH>Z_OM-'"H)U/<- M?7;X(-20&0S3*3`&>5^PAQ8D!YP'0@QCP$!&@1&-\057>2CG(`PQQ"!&@2ZU8 M,5))7Z1A44`&.%A##"Z=489X8N#U!1QR1+23BB[5&`897X@X4X]O7.1@ARZ5* M)-X<=8@A1X]AS+%&0D/*4.2+7Y3DQDX,#EF#2^#!B-<;"Z8((`PY>FD6F"@.H MZ=)Q*>E1944['38DF0JLQ-Z;5Z8)(`U<*L!F&F["T1&*9&B5$)UVBB.9;G"F@(D7,>@CB0#[.T8;W-JK+IWDJF$2)`B,@<8:";8+IK_FHJMNA1=V& M97`8;+"1IE\M*:N`&@A;5B,==F M<*]4%K],+L"6#5Q&B189G++"+#`LK\/*Q0PD'6E<;'+&#*;+PH%856RTO`>&= M/#(=+/F+J#+^^(P=L9`NJ@^,BG-[X1[T[J6QS[YL<21;UO' M?4%SWQSL)Y`AX$]_MN*?_P)CP`4J!(.X8P']%B4Y,E#.:V3(7608M\+.T2XR= MH4LA_$RGO-WMJ'6+8M'=8A>PRJ'*=KASB0][%\3?=5!X72,>_8[W/^6YS67?/ M@B(%[S0]^%D/>PPBPA.NX(0^50$*N+%5^1S(`OI$<(83K.$&X2<_#7(P`1[,( MW_X<,\+(`#![1:!"%:10QL"(D8SC2\@:ST<\_M2G9'`,FASO6,95RPJ4RM:DI=$HAC2$"%/K424^!2E2V+0A$(()EXBFENP4/E\2;01$V4SUI6@8)57#"$K+P!3%*(0OY'"CQ8K!0. MET!4HA2U:!:<\M]D%%L0JI@=`*3WM65-_5 M)C.1"4GE*L&)2EKNLYU"M!E(ES03F4Y09I\*8X4D#*$(%=6>`;^0S(0PP M(0BTT9]"A)"%_O7)-\`1'TZ)Q8(G&,$(B3'<+REE*4QIBE,X[9N1JI2D)?7$H M23C]5=0@P0#,=$@(A'/,X7ZDN,B(4Z]4HN+=Q"G8&:PUH8DUG,`0QS0ZH.H@O M08@E\:AJ5:P20:O`A.G="F<9&=R`H:P953*Q>;>N,H@V1["-2S3@$AH(345.L M54U/55,N0T]-`/````!F$2%]DG\7`0``#.GP`1@X#DP3->!`+@8`,A%LR*N!\,'`-"EO&(C"_L"-#L!&@A-14Y58 M34]54RY$3T,`?@(``#D22SH\N9`#```,#11009)D"@@H4IX7-&3I@V(,B\*3,'A)LW=$"L>7D'1!HS-F.B" M"=,R8!@VV4&>-53E0Q=6*FB:F2)8@Y:-[4#%S3J\VT:\V$0 M&0/2L%B03=*,&3GGC9F8;=[4F5-F8T`424"HV1P33EZK:$&T*1HF[TH\@Q4T%L;CPV\VZI+1\''%-'3F4Y(,:\23N2C8L4`0-Z7`LR#-@9(,RD4 M8>,WM=@T+:V/09-&KHZ`("`A:)*T3A/-/7LW[L'GO M@G(HU:=#&;`11T<88G`'`@HFM=$"5VF0D10=T"F0WGKMO;>9"SP5:!]/G+716 M8%%L3'5&'6&<`5)EQ3$6G4#DM:21K6!T(,*7#T(QPM><@9"._)U<:%86WI> M%@LJW>$&"]Q=QH(<:9R!1DS6C533&F7D,4=_":#P&%C6@42E>62(GJDRI#KD3G*Q*4,+>-'AE5*^<=8?!$R4<1D(0N0UV A+T