KBMACRO.PM

[Carl Distefano CLDistefano@xxxxxxxx]

Here's a revised KBDMACRO.PM for Xy4|XyWin. It corrects a couple of
bugs (final func Q2 not recognized; "STACK STACK" anomalies with Ascii-
13). This new version is the one to use. Discard the original.

-> Notice how you can extend KB's functionality by simply calling
-> U2 routines within the macro. --R.J.Holmgren

Good point, Robert. That's why I located KB's save/gets in the 800
range -- to avoid overwriting "transient" save/gets 01-99 typically
used by U2 and other Help/Menu routines. For users who may not
understand "calling U2 routines within the macro", in XPL you "call"
(run) a Help routine with the function JM or JH. E.g., the code to
call a U2 frame named "syntax" is JM (2.syntax), where "JM " represents
the 3-byte embedded function obtained by commanding PFUN JM. The
keyboard file equivalent is JM,(,2,.,s,y,n,t,a,x,); here "JM" is the
plain-text 2-character mnemonic for function "JM ". So, for example, a
KB macro that runs "Syntax" starting from the 5th line of the current
file would look like this:

KB tf,ld,ld,ld,ld,jm,(,2,.,s,y,n,t,a,x,)

P.S. It's been brought to my attention that my UUencoded posts have
had an extraneous space before the end of each line, which hinders
decoding. The error has nothing to do with Robert's MUD|MUC coders,
which work perfectly. It's rather a quirk in the Post Road Mailer,
which inserts the spaces upon importing external files into a message.
I have a workaround. Apologies for the inconvenience.


begin 644 KBDMACRO.PM
MKD=,8:\-"GM[-2Q(96QP-$M"1&UA8W)O+$AE;'`T:V)]?2!(96QP(&9O6)O87)D+7-T>6QE(B!M86-R;W,@9G)O;2!T:&4@8V]M;6%N9"!L
M:6YE#0H@(&9O7@T*("`@("`@
M($M"(%MK97EB;V%R9%]M86-R;UT\2&5L<&ME>3X-"@T*17AA;7!L90T*+2TM
M+2TM+0T*1&5&:6YE('!A2!$949I;F5D(&)L;V-K
M(&9R;VT@061J86-E;G0@4V-R965N.R!#86YC96P@1&5&:6YE.@T*#0H@2T(@
M>60L9'`L8W(L9&TL9'HL9'@L8G@L*"QN+&4L+RPQ+#`L,"PI+&-P+&%S+'ED
M+&%S+&1O/$AE;'!K97D^#0H-"D%S(&EN(&%C='5A;"!K97EB;V%R9"!U2P@97-P+B!I9B!M86-R;R!W;VXG=`T*
M9FET(&]N($--;&EN92!U;F-O;7!R97-S960N("!%+F&5C=71E(&$@;&ES="!O9B!C;VUM86YD
MO/3TSKZY35C@Q,BQ1,J^N4U@X,3,LKE9!0#@P,2PQKZ^N248H
M(GPB*T!U<'(HKDE3.#$SKRDK(BPB*>ZN25,X,#6O/BTQKZY36#@Q,RPB?"(K
M0'5POKE-6.#`W+*^N1TQB
MKZY%2:^N1TQDKZY%2:^N249`=7!R**Y)4S@P,:\I/3TB43(BKZY35C@P,2S_
M@G^OKD5)KZY36#@P-RRN25,X,#>O*ZY)4S@P,:^OKE-6.#`Q+*^N1TQEKPT*
MKD5)KZY)1JY607PX,3"O/3TRKZY)1D!U<'(HKDE3.#$PKRD]/2)80R*OKE-6
M.#$P+`T*KZY)1JY602146*\^,":N5D$D4TVO/#&OKE-8.#$P+"+_@&TB*ZY)
M4S@Q,*\K(O^`?2*OKD5)KZY'3&:OKD5)KZY36#@Q,"PB_X*K*&9U;F,@(BNN
M25,X,3"O*R(I(J^N1TQFKZY%2:^N6%,X,#8L.#`T+"PX,3`L.#$QKZY,0F:O
MKE!6.#$PKZY)1JY607PX,3&O/C"OKDE&KE!6.#`XKSXPKZY'3&2OKD5)KZY3
M6#@P-BRN25,X,3&OKZY'3&.OKD5)KZY'3&*OKD5)KZY)1JY607PX,#&O/C"O
MKE-8.#`V+*Y)4S@P,:^OKE-6.#`Q+*^N4U8X,#DLKZY'3&.OKD5)KZY35C@P
M,2ROKE-6.#`R+*^N4U8X,#,LKZY35C@P-"ROKE-6.#`U+*^N4U8X,#8LKZY3
M5C@P-RROKE-6.#`Y+*^N4U8X,3`LKZY35C@Q,2ROKE-6.#$R+*^N4U8X,3,L
;KZY35C@Q-"ROKE-6.#$U+*^N15BO`@T*#0H:
`
end


--------------
Carl Distefano * * *  CLDistefano@xxxxxxxx
--------------