!~Filename~:!
KBDMAC

!& Setup KBDMAC Library:!
m.m^R Start Kbd Macrou:.x(()
m.m^R End Kbd Macrou:.x())
m.m^R Call Lastu:.x(E)
m.m^R Kbd Macro Queryu:.x(Q)
:i*m.vLast Kbd Macro
:i*Kbd Macro Querym.vKbd Macro Query
20.*5fsqvectoru..m
q..m[..ohk

!& Run Kbd Macro:!
fq..m/5-3[2
q:..m(q2)[0
q:..m(%2)[1
q1:g0*200.+(%1:g0)fsreread
%1u:..m(q2)
q1-fq0"l0'
q:..m(%2)-1u0
q0f"nf"gu:..m(q2)'
37u:..m(q2-1)0'
q..m[..ozj-15d
z"e0fstyisource'
0

!& Immediate Kbd Macro:!
q..m[..o
fstyisource"ehk'
zj15,0i
-1fsbackstr,.-15fsword
37,.-10fsword
ff"e1'"#',.-5fsword
m.m& Run Kbd Macrofstyisource
0

!^R Call Last Kbd Macro:!
f:mLast Kbd Macro

!^R Start Kbd Macro:!
0fsbcons[1
q1m.vKbd Macro Defining Body
ff"n
mLast Kbd Macro
q1[..o
gLast Kbd Macro
j37dzj'
m.m& Define Kbd Macrofstyisink
fsvers-751"g1fsmodech'
0

!& Define Kbd Macro:!
qKbd Macro Defining Body[..ozj
/200.i&177.i0

!^R End Kbd Macro:!
fstyisink"e@fenimfserr'
0fstyisink
qKbd Macro Defining Body[..o
zjfstyicount-(fstyibeg)*2r.,zk
ji!temp!fm(m.m& Immediate Kbd Macro)
hx*m.vLast Kbd Macro
Q..o(]..o
)fsbkill
fsvers-751"g1fsmodech'
-1"e0'
f"g-1'mLast Kbd Macro'
0

!Name Kbd Macro:!
1,fFunction name: [1
fq1"gqLast Kbd Macrom.vMM 1'
FF"E
@ftPut kbd macro on key: 
m(m.m& Read Q-reg)[2
@ft  Go ahead1m(m.m& Yes or No)"e0'
qLast Kbd Macrou2'
0

!View Kbd Macro:!
1,fFunction name: [0
fq0"e@ftCommand key: 
m(m.m& Read Q-reg)u0'
"#:i0MM 0'
q0[1
m.m^R Call Last Kbd-q1"e
qLast Kbd Macrou1
:i0Last Kbd Macro'
f[bbind1:<g1>
j6 f~!temp!"n
:i*Not a kbd macrofserr'
js)0,.k
ft
Definition of keyboard macro:


m.m& Charprint[2
jz/2<1a*200.+(2c0a)m2ft >
ft

0

!& Check Redefinition:!
[1
q1[0
fq0+1"g
f~(0,6:g0)!Temp!"n
!lose!!"!:I*Can't clobber specified character 1fserr''
"#Afs^rinit-q0"n
200.@fs^rinit-q0"n
q0"n
olose''''


!^R Kbd Macro Query:!
ff"n0fstyisink(
0fstyisource(
[..j:i..jKbd Macro Edit
0
)fstyisource
)fstyisink
0'
fstyisource"e0'
[0[1QKbd Macro Query[..j
0fstyisource(0fstyisink(
!Read!
2,m.i@:fiu1fiu0
q0-"ef+Oread'
q0-"e0Oread'
)fstyisink
)fstyisource
q0-32"e0'
q0-."e1u:..m(fq..m/5-1)0'
q0-"e1u:..m(fq..m/5-1)'
q0fť:"l
fq:..m(fq..m/5-3)-2u:..m(fq..m/5-2)
fi'
0fstyisource
q1fsreread

!Write Kbd Macro:!
1,fFunction name: [F
QF[0
fq0"e@ftCommand key: 
m(m.m& Read Q-reg)u0'
"#:i0MM F'
q0[1
m.m^R Call Last Kbd-q1"e
qLast Kbd Macrou1
:i0Last Kbd Macro'
f[bbind1:<g1>
j6 f~!temp!"n
:i*Not a kbd macrofserr'
f[dfile1f[fnamsyntax
etKMAC :EJ
1m(m.m& Read Filename)Output file[2
jm(m.mReplace String) _
jm(m.mReplace String)		
jm(m.mReplace String)\\
et2
i!~Filename~:! !Saved keyboard macro.!
fsdfn1:F6[3
i3
14.i
fqF"EQ3uF'
i
!<entry>:! !F:! !S 0 KBD Macro.!
[1
1,m(m.m&_Get_Library_Pointer)KBDMAC"e
m(m.mLoad_Library)KBDMAC'
@:i1\
zji\fm10
1,m.m& File PURIFY Loaded+1"G
m(m.mLoad Library)PURIFY'
m(m.m& Compress Buffer)
m(m.m& Purify Buffer)
et2
ei@hpef
fsofileu2
@ft Written: 2
0fsechoactive
0

!Kbd Test End of Buffer:!
fstyisource"n
.-z"e0fstyisource''
0

!~DOC~ ~Filename~:!
Defining and calling keyboard macros.

!~DOC~ & Setup KBDMAC Library:!
S Put commands on keys.  Create execution stack.

!~DOC~ & Run Kbd Macro:!
S This is the FS TYI SOURCE for running keyboard macros.

!~DOC~ & Immediate Kbd Macro:!
S Push a kbd macro onto the execution stack of such.
Supply the repeat count as pre-comma argument
and a string pointer to the macro as post-comma argument.

!~DOC~ ^R Call Last Kbd Macro:!
^R Run the last defined temporary keyboard macro.
A numeric argument is a repeat count.

!~DOC~ ^R Start Kbd Macro:!
^R Begin defining keyboad macro.
After you type this command, everything you type becomes
part of the accumulating keyboard macro as well as being executed.
Numeric arg means append to last defined keyboard macro,
repeating its definition as if you typed it in from scratch.

!~DOC~ & Define Kbd Macro:!
S FS TYI SINK for defining kbd macros.
Takes characters typed and accumulates them in a buffer
which will be formed into a keyboard macro when the definition is finished.

!~DOC~ ^R End Kbd Macro:!
^R Terminate definition of a keyboard macro.
All that you have typed since starting the definition,
except this command itself, becomes the definition.
An argument means re-execute the macro immediately, with the
argument as repeat count, counting defining the macro as once.
^R Call Last Kbd Macro re-executes the last macro defined.

!~DOC~ Name Kbd Macro:!
C Give a name to the last kbd macro defined.
A function is created with the name you specify,
which when invoked runs that keyboard macro.  (Return means give no name.)
Then, you are asked to give the command character to
put the macro on.  Type C-G if you don't want one.
Combinations with prefix characters such as Altmode and C-X may be used.
Call this function with any numeric argument to inhibit its asking for a key.

!~DOC~ View Kbd Macro:!
C Print definition of a keyboard macro.
Supply a suffix string argument containing the command name.
If the string argument is null, you will be asked to type
the character which runs the macro.

!~DOC~ & Check Redefinition:!
S Verify that a certain command can be redefined.
Do not allow a command to be redefined unless it is undefined,
self-inserting, or a string starting with !Temp!.
The command is specified with a q-register name in a string
passed as a string pointer.

!~DOC~ ^R Kbd Macro Query:!
^R Query and continue macro execution.
If called from a macro, reads a character:
Space continues execution.
Rubout terminates this repetition of the macro.
Altmode terminates all repetitions of the macro.
. terminates after the end of this repetition of the macro.
^R enters a recursive edit;  when you exit, you are asked again.
^L clears the screen and asks you again.
Anything else exits all macros and is reread as a command.

With an argument, we unconditionally enter a recursive editing level
and proceed with the macro when it is exited.  This is the same as
what we do with no argument if the user were to type ^R Space;
but it is done even when the macro is being defined.

!~DOC~ Write Kbd Macro:!
C Write macro to file.
Supply a suffix string argument containing the command name.
If the string argument is null, you will be asked to type
the character which runs the macro.  The output file name will
read from the terminal (default KMAC :EJ).  To replay the macro,
use the normal Load Library or Run Library functions.

!~DOC~ Kbd Test End of Buffer:!
C Quit KBD macro execution if at end of buffer.

!~DIRECTORY~:!
& Setup KBDMAC Library
& Run Kbd Macro
& Immediate Kbd Macro
^R Call Last Kbd Macro
^R Start Kbd Macro
& Define Kbd Macro
^R End Kbd Macro
Name Kbd Macro
View Kbd Macro
& Check Redefinition
^R Kbd Macro Query
Write Kbd Macro
Kbd Test End of Buffer