xW [0+8+FQ(+4)[1 0FO10F"G+Q1' +FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0)) LQUdc!wm 5z"^# / s)j5I;jF^R[Wm{y` 1-A)}'*7,xD+=T-b-+q$&$N&%&d(%.6%DE()Q')f(ht(|(A )$"$).x& CAPL Autoarg& CAPL Briefly Describe& CAPL Exit Hook& CAPL Original Keypad& CAPL Return Hook& Set CAPL Mode Line& Setup CAPL LibraryCAPL Alternate KeypadCAPL Execute Keypad CAPL InfoCAPL Normal KeypadCAPL Transmit KeypadFix PHOTO File$Get Keypad Definitions From File^R Half Window Down^R Half Window Up ^R Home^R Toggle ^H Mode~DIRECTORY~~DOC~ & CAPL Autoarg!~DOC~ & CAPL Briefly Describe~DOC~ & CAPL Exit Hook ~DOC~ & CAPL Original Keypad~DOC~ & CAPL Return Hook~DOC~ & Set CAPL Mode Line~DOC~ & Setup CAPL Library~DOC~ CAPL Alternate Keypad~DOC~ CAPL Execute Keypad~DOC~ CAPL Info~DOC~ CAPL Normal Keypad~DOC~ CAPL Transmit Keypad~DOC~ Fix PHOTO File*~DOC~ Get Keypad Definitions From File~DOC~ ^R Half Window Down~DOC~ ^R Half Window Up~DOC~ ^R Home~DOC~ ^R Toggle ^H Mode~DOC~ ~Filename~~Filename~ ~INVERT~ 0FO..QCAPL Setup Hook[0 fq0"G:M0' M.VCAPL Setup Hook @:iCAPL Setup Hook/:i*CThe CAPL Library has already been loaded. fsechodisplay0fsechoactive/ 0M.VCapl Keypad Hook 0FO..Q^H ModeF(M.V^H Mode )M.C^H Mode!* Positive implies that ^H is invisible and counts as part of the word Zero implies that ^H is visible and does not count as part of the word. Negative implies backspace does a cursor left.! F"L3fs^Rinit$uH 8*5:f..D  95*5:f..D A  0fs^HPRINT' "#"G65fs^RINIT$uH 8*5:f..DAA  95*5:f..DAA  -1fs^HPRINT' "#65fs^RINIT$uH 8*5:f..D  95*5:f..D A  0fs^HPRINT'' fs^HPrint-(Q^H Mode"'G)"N WF' 1fsMODECH q^H Mode:"L65fs^RInituH' :I*FO..QTECO Mode Hooku0@:I*\0w-1M.L^H Mode\M.VTECO Mode Hook 1,M.M^R Invoke Inferior"EM(M.MLoad Library)Efork' 0M.CTemporary CAPL storageIntermediate storage for CAPL mode 1FO..QCAPL Default Keypad ModeM.VCAPL Mode 1M.CCAPL Mode!* -1 = Execute Pad, 0 = No Pad, 1 = Alternate keypad! "'N-(q$Temporary CAPL storage$"'N)"E' 1FSMODECH$ F"N"G:M(M.MCAPL Alternate Keypad$)' "#:M(M.MCAPL Execute Keypad)'' "#W:M(M.MCAPL Normal Keypad$)' 1FO..QCAPL Default Keypad ModeM.VCAPL Exit mode QCAPL Exit ModeM.CCAPL Exit modeThe current mode of the terminal. See CAPL Mode. 0M.VSystem Superior Type 0M.CSystem Superior Type Nonzero implies an invoke inferior type F[bbind FSJNAMEf6J 1+(:SMACS)USystem Superior type F]bbind 0fo..qExit to Inferior hook[1 fq1"l:i1' @:i*`1w0m(m.m& CAPL Exit Hook)`m.vExit to Inferior Hook 0fo..qExit to Superior Hooku1 fq1"l:i1' @:i*`1w1m(m.m& CAPL Exit Hook)`m.vExit to Superior hook 0fo..qReturn From Superior hooku1 fq1"l:i1' @:i*`1w:m(m.m& CAPL Return Hook)`m.vReturn From Superior hook 0fo..qReturn From Inferior hooku1 fq1"l:i1' @:i*`1w:m(m.m& CAPL Return Hook)`m.vReturn From Inferior Hook ]1 27fs^RcmacM.VCAPL Original Key M(M.M & SET CAPL MODE LINE) M(M.MCAPL Alternate Keypad) 1FO..QCAPL Default Keypad ModeM.VCAPL Default Keypad Mode QCAPL Default Keypad ModeF"E M(M.MCAPL Normal Keypad)' "#"LM(M.MCAPL Execute Keypad)'' m128M(M.MMAKE PREFIX CHARACTER).o,27@fs^Rcmac @:i*|X|fsimageout 0FO..QSaved CAPL Commands"E 1M(M.M& CAPL Original Keypad) ' 0FO..QCapl Keypad hook[1 fq1"GWM1'W]1 1:"N :I*CUndefined Keypad in effectfsechodisp0fsechoactive ' QSaved CAPL CommandsU.O 1M(M.M& Set CAPL Mode Line) .(f[bbind gprefix char list j:SEsc Q.O"E IEsc Q.O13i10i' HFXPrefix char list f]bbind)J 1uTemporary CAPL storage 1UCAPL MODE 1fsmodechange hQ.OUSaved CAPL Commands @:I*/x/FSIMAGEOUT .(f[bbind gprefix char list j:sEsc "N0lk' HFXPrefix char list f]bbind)J QCAPL Original Key,27@fs^Rcmac 0uTemporary CAPL storage 0UCAPL MODE 1fsmodechange QCAPL MODE"E :I*CYou are in the Normal Keypad. Use M-X CAPL Alternate keypad.( )fsechodisp0fsechoactive 0' :FO..QTEMPCAPLMODE"L0' QTEMPCAPLMODEF(uTemporary CAPL storage)UCAPL Mode M(M.MKill Variable)TEMPCAPLMODE @:I*/X/FSIMAGEOUT 1FSModeChange >QCAPL MODEF"E :I*CThe Execute Pad is already on.fsechodisp0fsechoactiveW0 'M.VTEMPCAPLMODE -1uTemporary CAPL storage -1UCAPL Mode @:i*|x|fsimageout 1fsmodechange Q$FP-101"N :I*CThe keypad is currently turned off.fsechodisp 0fsechoactive ' M(M.M& Load BARE) [AFF"E:IA'"#:IAOne' -1f[truncate FTThe currently defined CAPL keypad is:   :I*Mult Code,Q:.O(:)M(M.M& CAPL Briefly Describe)A :I*Break,Q:.O()M(M.M& CAPL Briefly Describe)A ft  :I*Up-Arrow,Q:.O(;)M(M.M& CAPL Briefly Describe)A :I*Left-Arrow,Q:.O(62)M(M.M& CAPL Briefly Describe)A :I*Home,Q:.O(?)M(M.M& CAPL Briefly Describe)A :I*Right-Arrow,Q:.O(=)M(M.M& CAPL Briefly Describe)A :I*Down-Arrow,Q:.O(60)M(M.M& CAPL Briefly Describe)A ft  :I*Reset/Stat,Q:.O(+)M(M.M& CAPL Briefly Describe)A :I* Shifted,Q:.O(,)M(M.M& CAPL Briefly Describe)A :I* Control,Q:.O(+)M(M.M& CAPL Briefly Describe)A :I* Control-shifted,Q:.O(,)M(M.M& CAPL Briefly Describe)A ft  :I*Print,Q:.O({)M(M.M& CAPL Briefly Describe)A :I* Shifted,Q:.O(|)M(M.M& CAPL Briefly Describe)A :I* Control,Q:.O(})M(M.M& CAPL Briefly Describe)A :I* Control-shifted,Q:.O(~)M(M.M& CAPL Briefly Describe)A ft  :I*Page,Q:.O(-)M(M.M& CAPL Briefly Describe)A :I* Shifted,Q:.O(.)M(M.M& CAPL Briefly Describe)A :I* Control,Q:.O(-)M(M.M& CAPL Briefly Describe)A :I* Control-shifted,Q:.O(.)M(M.M& CAPL Briefly Describe)A ft  :I*Tape,Q:.O(`)M(M.M& CAPL Briefly Describe)A :I* Shifted,Q:.O(`)M(M.M& CAPL Briefly Describe)A :I* Control,Q:.O(@)M(M.M& CAPL Briefly Describe)A :I* Control-shifted,Q:.O(^)M(M.M& CAPL Briefly Describe)A ft  :I*Scroll,Q:.O([)M(M.M& CAPL Briefly Describe)A :I* Shifted,Q:.O(\)M(M.M& CAPL Briefly Describe)A :I* Control,Q:.O([)M(M.M& CAPL Briefly Describe)A :I* Control-shifted,Q:.O(\)M(M.M& CAPL Briefly Describe)A ft  :I*Tab Set/Clr,Q:.O(])M(M.M& CAPL Briefly Describe)A :I* Shifted,Q:.O(95)M(M.M& CAPL Briefly Describe)A :I* Control,Q:.O(])M(M.M& CAPL Briefly Describe)A :I* Control-shifted,Q:.O(95)M(M.M& CAPL Briefly Describe)A ft  :I*Tab,Q M(M.M& CAPL Briefly Describe)A :I* Shifted,Q:.O(39)M(M.M& CAPL Briefly Describe)A :I* Control,Q M(M.M& CAPL Briefly Describe)A :I* Control-shifted,Q:.O(39)M(M.M& CAPL Briefly Describe)A ft  ft Done.  f[DFILE0f[DVERSIONw[Buffer Filenames E[E\FNE^E] fshsname ETACAPL.PAD.0 ]B]A 5,4F Keypad File FF"N1M(M.M& CAPL Original Keypad)' f[BBIND 1:"E@YM(HFX*(f]bbind))' "#:I*CCould not read the file F.fsechodisp0fsechoactive0' Q.OM.VSaved CAPL Commands FF"N' :I*CPad definitions saved. Please run M-X CAPL Alternate keypad$fsechodisp 0fsechoactive [8[9 M(M.M^R Widen Bounds) j`;FKD-D> j<:@s``;0k> j<:s;fkd> j<:s;fkd4<13i10i>> j<:s ;r13i>' j6FF"N'"#QPrevious Buffer':M(M.MSelect Buffer)4fsLINES[0 Q0"GQ0/2'"#10':M(M.M^R Next Screen)8fsLINES[0 Q0"GQ0/2'"#10':M(M.M^R Previous Screen)@Q^H Mode"E1'"#0'[0 FF"N"'L-("'G)U0' q0u^H Mode 0%0FS^RLAST Q..1+400.FSREREAD #[0[1U0U1:I*[9 FQ9"'GU9 0F[SAIL FT0 F]SAIL FT  Q1FP-101"E F~1!PREFIX!-9"E FTis an escape-prefix for more commands. '' Q1M(M.M& MACRO NAME)[2 Q2"NQ2U1 q9"N fq0-8"Lft ' fq0-16"Lft ' FT runs  FT1: M.M~DOC~ 1U1 F[BBIND G1JFWKD:@L.,ZK FT    HT' "# fq0-8"Lft ' fq0-16"Lft ' FT 1' FT ' fq0-8"Lft ' fq0-16"Lft ' FT  F:M(M.M^R DESCRIBE)f[DFILE0f[DVERSIONw[Buffer Filenames E[E\FNE^E] fshsname :IBCAPL.PAD f[bbind 1: 1:"E@YM(HFX*)' Q.OM.VSaved CAPL Commands FF"N' :I*CCAPL Pad definitions created and savedfsechodisp 0fsechoactive M(M.MCAPL Alternate Keypad) 1FO..QCAPL Default Keypad ModeF"E M(M.MCAPL Normal Keypad)' "#"LM(M.MCAPL Execute Keypad)'' OQCAPL ModeF(UCAPL Exit Mode)"N M(M.MCAPL Normal Keypad)' 0FO..QSystem Superior Type"E "N 0fo..q*Initialization*u1 fq1"l:i1' @:i*`1wm(m.m& CAPL Return Hook)`m.v*Initialization* ]1'' YM(M.MCAPL Alternate Keypad) 1FO..QCAPL Exit ModeF"E M(M.MCAPL Normal Keypad)' 0FO..QSet Mode line hookF"E W:I*m.vSet Mode Line hookw:I*'[1 f[bbind g1j :@S/CAPL MODE/"E@I/ I 0FO..QCAPL MODEF"N"LI#'"#I+''"#WI-' ICAPL/' :@S/^H Mode/"E @I/0FO..Q^H ModeF"G I ^H+'"#"LI ^H-'"#I ^H''/ ' HXSET MODE LINE HOOK 1fsmodechange CAPLCAPL Keypad DefinitionsQS Sets up the defaults for the CAPL keypad upon the entrance of the library.?C Sets alternate keypad mode for CAPLs The keypad in the upper left is set to transmit mode and the altmode key is used as its prefix driver. To get the meta key use ^R Prefix Meta.,C Undos alternate keypad mode for CAPL'sBC Sets the keypad to transmit their escape seq. If the key definitions need to be reset the user should use CAPL Alternate Keypad. This command is the opposite of CAPL Execute Keypad~C Turns alternate Keypad off. The key definitions for the pad are still there upon returning with CAPL Transmit Keypad C Prints out the key definitions in display mode. A numeric argument implies that a one line description will be given for each key.C Reads a set of keypad definition from a file. The file should look like standard teco putting function definitions on the prefix character which is referenced by the Q-Vector .O A numeric argument will load in the original keypad definitions first./C Strips a PHOTO file if created on a CAPL.O^R Returns to previous buffer. If given explicit arg, goes to that buffer.(^R Scroll screen down by half window&^R Scroll screen up by half window[^R Enter or leave mode really displaying ^H. Without an argument, toggles ^H mode. With an argument of 0, leaves ^H mode. With a non-zero argument, enters ^H mode (^H really prints and counts as part of a word)..S An Autoarg that works from prefix chars.SS Briefly describes a command. The command character and command definition should be given as prefix numeric args. Any string argument turns on the longer description for the function name. We don't handle indirect definitions; the caller should do that. (This is so we win when dealing with subcommands of prefix characters).uS Creates the original keypad prefix table. It does this by executing the file EMACS:CAPL.PAD and then PS:CAPL.PAD. The format of these files is simply straight TECO code to set a definition on a key in the prefix table .O. It creates the variable Saved CAPL Commands. A numeric argument prevents the warning message from being sent if an error occurs. 9S Setup to exit gracefully to an inferior or superior.S Setup to return gracefully to the editor,S Set the Mode line hook for the libraryn& Setup CAPL Library CAPL Alternate Keypad CAPL Normal Keypad CAPL Transmit Keypad CAPL Execute Keypad CAPL Info Get Keypad Definitions From File Fix PHOTO File ^R Home ^R Half Window Down ^R Half Window Up ^R Toggle ^H Mode & CAPL Autoarg & CAPL Briefly Describe & CAPL Original Keypad & CAPL Exit Hook & CAPL Return Hook & Set CAPL Mode Line T+8+fq(+4)[20[3 <%3,-q2f2u3q3&1@;q3"l0'> f[BBindq3-1*5,q3*5g2q:..o(0)+q2