Path: utzoo!mnetor!uunet!tektronix!gvgpsa!gvgspd!mrk
From: mrk@gvgspd.UUCP (Michael R. Kesti)
Newsgroups: comp.sys.ibm.pc
Subject: Re: Caps/Num/Scroll lock tweaker wanted
Message-ID: <444@gvgspd.UUCP>
Date: 23 Feb 88 00:07:25 GMT
References: <205@ritcv.UUCP>
Reply-To: mrk@gvgspd.UUCP (Michael R. Kesti)
Distribution: na
Organization: Grass Valley Group, Grass Valley, CA
Lines: 93
Keywords: numlock scrolllock capslock num lock scroll lock caps lock

In article <205@ritcv.UUCP> mpk9172@ritcv.UUCP () writes:
>Hi folks.  Quick question:  Can someone post the procedure necessary to
>turn on/off the caps lock, num lock, and scroll lock?  I'm sorry if it
>is an easy answer -- I'm a novice.

This does the trick, but does not change the state of the lamps in the
keyboard (at least not on my 6300).  The program supplied is intended to be
used from batch procedures to force the machine into a specific lock state
prior to invocation of another application.


Name          Length    Stowage    SF   Size now  Date       Time    CRC
============  ========  ========  ====  ========  =========  ======  ====
TOGGLE.ASM        4211  Crunched   54%      1969   6 Oct 86   0:00a  12a5
TOGGLE.COM         190  Crunched   16%       160   6 Oct 86   0:00a  1cf3
TOGGLE.DOC         567  Crunched   23%       437   6 Oct 86   0:00a  ff60
        ====  ========            ====  ========
Total      3      4968             49%      2566  


============================================================================
Michael Kesti  Grass Valley Group, Inc. | "Like one and one don't make two,
P.O. Box 1114  Grass Valley, CA  95945  |  one and one make one."
UUCP:	...!tektronix!gvgpsa!gvgspd!mrk |                - The Who, Bargain


begin 660 toggle.arc
M&@A43T='3$4N05-- "4EL0<  $8-  "E$G,0   ,"=*8B=% 08(2;^K024#E
MR9$C3(JX"#*E2<$$9=R0$7A1H(R+"!4F4$$2!!2*4T!\-)AQHYF+;L*T*</0
M(<0B%^FDH<.&9L.'$2_""7.&)HL8,U86W %"!20D2YNJ2 !II(JH)<VDZ1ES
MIHX$=-Z<.=/319@Y;:@:((EU:E6V"IB23 !%SAL[:<B4F0,BC!L03::T(/(D
MI<*M._. " MBS!LW=.RR 3$D")243)X,6<("A),J34!DWMS9+QFK;4%,&2+E
M"1,FHC4O<4'U %RY;E'';?JT8$''>A/,*7-F)F3?!L_.J3,SP9@Y.H"784$&
MNG06>Z._T8L\P1LY9Q+$@ $#JH*"8<?V3 #'[I@$9L+(Z0ZGSAPT":HGV+]#
MZ!LX^:6Q7P),S1&6'&6 0$88=(0!PG#%940'" B>D8:!9<QG4!MW)1 &'BS 
M,&!_!M5WGX=XC.@?@/KQ!P(<;Z0!F8(,.@BA<1,R-I0<1/$(!QH@P' 1AW8D
M( :(,- 0PPU(N BCC#F^\2 : DUH((/V@2!&'G24,62'<Z3! @[EC?ABC#/J
M*)],970I1V,)';=AAV.PP<)S.FP19A<NLO%&&&2\N.9,;L)9AYP)$.D<&B&:
M.08>(/0@*(]M%.K8H71<!.AI8;(@@YE/IBGECFRZ.<=%>KWWJ)F JF'?A)="
MEB$(+2CX6!D_(*>51E_,P<99:.APD1J/ZI'?K6;FL1>MBV78AHP,>GG>G$6&
M82>>>J;!)X$@N"%EK7X"VA@::X[A9D=NO!<FJ&A&V6T9>,!*+H_F9HAJ&:JF
MZ"*"#<H1:*SG&C1&&P!:R\()+YQ@IJ_ YFJ0&F[0M"L9O?YZ(K?>,NL89#+6
M(6U!$W\Q,!G"/ESLL1&;2<:M/S"K+%^UNOEL3%UVIZC!V.[I8L;@_OGOO&'4
MJV% Z0HGH)/M+B9EQ/&.6V[ ^>'KG+[<\BO?OW%";9J'=GI+!PHGA'$""'A\
M!\()09R0 K<;VY&AO$_/RE@=<, QZQAG2>L<P5P?/(3"+@[A< (02RPCQ2-_
M 4,-.W_;K($@F&&V$]VIP?<0O=ZQTQCX<?LRLWK)+&."E5T&PA-.@&#V$T88
MH>OA(K=!\>(E[UVPG2<X 3BW3@Q>.'RP)SY>X\QV";GD;TY1.=].9+YYYTQ]
M7FOHSH[N&6BGI[YZZZ_S*CP,M0]\^\%3[,[4%+ZG'#+#%S/%<^2'/V@Q&LL#
M.(7S='!._/1M5A^Q:JQQ#6Q0I[HWL<YUT\+<'#27OV -ZV0K2YF+6J(Z,TQ*
M)J9J6:VD9ZN(V:Q#.(-.MK;E/L>%ZV=Q&YJ,U'4T;H7*74R#&[V@EJJIF<EJ
M_C*4K(8FOKZ=8 7F \$*TD<3!3*0<XIC',8<9[P)(8]6W<$;&]C@G## 80Y?
M>$RREA6S.LCA+X^AC&64]S"^K6]^+MJ83MS@,>08\7E)#!_?#':"%@2Q!;XK
M(OZ0.#S/<7$Q7@2C&2Q8.C(.RXRP8Q_TNN4X-7;L8PIX8P._,)[P68N*>+MB
M%@?I(@[2(9 5).08#PF@,P(KC8]98QNGU;P%/J]VQ,*#L2)(DPEJI((7K%2&
MYJ!!$'"0EA^LUK5$J+,E,NN$3INAO0RR0J.Q"TI*>U?3.)?">^7KAFVZF@ZA
MUD,Z M%,0QQ6REIY1#0D<7^/<Z+96A#%2R: C6W(HANV"#- ?E%U?_F,1<I8
MRD2BD6VI?"1RR E'VEVDF[BSHYGP."R:$'22?8S>'S]YSS<,\GK[)"7P>*5(
M=#J2C9!\*!_!=U!WPG.39J!G\4!I40OJ4Z.F;!^<. 92Y-S/E0V$)0219<M 
M6327&739'X$YK42!<)AY*F8)C^FS9 8-:LU<%]*@R9@8.E5HUK3AOK*90X M
MTW8^_*:+POFPE-VTG.<T9LSVHLXWL;.H4J3B',8@&3;(LY,39>E?5M.:U\#4
MGZ<$*$U769"S%K0&<AQ?'>^8QP08%J(B\F,]*2I("_)5@/7;*,4ZJM:9JA*2
MCQVI):<H'+J^88HHQ>MD67K1R_J5GYJM6&"9\E'"*H"6M3,1?C:BHA+])S]S
MP*:!OI.@!37H0<3!$86(<R&H0B8!,BC35BD;3<(84@'I(0M-6@('H1!%6LL1
M0W#;\X;W1$P^R,DD%A]3NYO9:0M'VA:WD'F?*CVH09_DRY9J9I#O] T&XX&$
M 83@(NH6,C:;P>>7B@1?/'2!!=9:V($25%\S6 F_6=JOWO@U( *EUXKK'61[
MC\J"!LN7*?2EDH7OBR7]<DEO6S/8>&(@8 )SR\!C1/ 20KG@!)@8PE1TT7 1
M-"7[7BF_6GKQ13C<VX*<E+T]-IB)S91B(V/8Q?SUCAS^"V#R>-G&3*&N/G6L
M8&KY.+Y EC!QB[SB(V=8R09A,G^0\V011_F]\:5R4RM\X18G.<LQME,,9CSH
M08/9GOG$WFAVW-(>_SC"0IXPF_N,9 TON4T=)E%!YEI7>8Y8F"7.<Y_VK&)*
MOSG+_C68E\?SY0*#TK6P6729C<I@-$.:6T.F<*E97&DX)T#.'IX6IT]KUY9^
MNF]3'K6X^,SK4\-8(WTK-( +?6CJPIK,C3;SHX.,:TDSV\U8WC"FFZR \ :7
MN^G=SG8U<JJBM@0L8M%N030 &@A43T='3$4N0T]- "4EH    $8-  #S'+X 
M   ,'K[@ @  RH==%PCX @3 A2(&M0 ,,B8@R3@\#@D82<+C19UZX]IDW$CB
M&X\A=0:L>P )  \G*=>-:,EC2AUMZVZT'/=D),<5=0J@.P)@W3$>+>@(6!<,
MW9"BO,;1\,D#J% =15DA5;K.%#H;14.-RT#5*KH612-M7;H(78JBAJY\: 9"
MT0$&0! =&&:7Q"^]?.^" -SW&^&[$ Z3> <8&@A43T='3$4N1$]# "4EM0$ 
M $8-  !@_S<"   ,5)X<.<*D"(@T<T"$<0.BR9061)Y, 5&'3AHV:>CD 4&F
MS)PT9]R4(0."SAN%;-B\N0-BS!LW=.2\80/BC9F2:,J &!($RA06()Q4:0)T
M(9D&"J8,D?*$"1,03)X,63+1C,PV(.YD1).&H9@P=,:@ 6'FHD<72)%2R=GR
M39LV1D',R0,S#)Z#<W2D50 "$H(M9'1T,7GF#!N=6][ L?AR3I>]=W+*01RX
M"UZ%#!4S=A.&)ADY:>SH[/@Q)-@W<C"33+PX36/+"#%OM GBQ9 50&VW8('T
MA1/<M9WLKCT%.&KB+4"@X.D3Q!,G0)E/?&+$"%"A39Q##SK4>76@2IDZU0XB
MB!,B2,,W?4K="(C)<^"4&6-1-)L\*0XR7+C191LQ78'EFALN@ !"$C>% 8)*
M8ZQQ&1UUR"$226*\0<=8SZF&5'LU,72A3G.$T89._L'E!DD8B034APN"549J
M;XPQ1H1=G5%3:R^5%,8:'H$ QV1CC%2&&T$6>* 92-7AQAINK,30'%J%E5-"
M84P&PI!TO#@24,>Q. <;8<PQ5FQN990E&2NB 99<48IU&4A-3D8&6@IH !H 
 
end
-- 
============================================================================
Michael Kesti  Grass Valley Group, Inc. | "Like one and one don't make two,
P.O. Box 1114  Grass Valley, CA  95945  |  one and one make one."
UUCP:	...!tektronix!gvgpsa!gvgspd!mrk |                - The Who, Bargain