PDP-10 Archive: 10,5676/teco/macros/emacs.sav from steco_19840320_1er

Trailing-Edge - PDP-10 Archives - steco_19840320_1er_E35 - 10,5676/teco/macros/emacs.sav

There is 1 other file named emacs.sav in the archive. Click here to see a list.

p'!Yx)Apx-!p/2g1P0AYr@Boa2@F
K6

<`

2@l2@B2@B2@W!)2@]2@[G2@S2@aq2@S2@S02@W2@d*2@S2@aq2@dr2@dy2@dh2@dyxGpHhJKrr@I~r@JXMo%Lr@Jr@K?PxPDpQ`@xUpVhXKrr@I~r@J@[o%Lr@Jr@K?~`g!!"!!"#!iSHxp@ Zp@Z

lk:xxPxDp`@p_h'

mQ* X"0BB!B!Bx%x)x,x/x2x5x8x;x>xAhDxxG xJ!xM!xP"xS"xV#xY#x\$x_$hb%rxe%xh&xk&xn'xq'xt(xw(xz)x})x*x*x+x	+x

,x,x-xxhQ`DQ Lp C@QHR^x"x$%x%$x5INXx6[x: h?INXipY>8xD hJINXg^NHtS:HxO pUK6

<`ixY h_INXK6

<`g0xdpixpxqxrptIN\gR,;`xv@y@YN'!2A"$X"@Ax(alg2H	!"	b+x`X"IN\gR,;`KKZ2P'p=X+szK`DH.uPKHRZv~ L9x2`4@CMp7vXCHRWX:Q;

'x=X@

alXS |!@~pX8@8B8D8F@0BPDpF@B@D@F@HH/HwHL

(pbhhe~@~@;pHg	@_K6

<`g1WxjW@m@INX`0iH`E2]0-@_iX1h?9?hH4@_W1
K-@_iX1xP

gP5NzSzS!YXI46}]GK6

<`?X iJm|-X0]N\-x%jx'jx(x+@x?
pJ/xNHQXO?@xR@nS3HW3?LOGIN	/NAME:"  NICOLAS"/NODEFER/DSKFUL:PAUSE/WATCH:DAY/SPOOL:ALL-
	/VIRTUAL:0/DEFPROT:057/NOTICE:SOMETIME/LOCATE:0-
	/RUN:MIC/RUNOFF:1/TMPFIL:MIC:"DO DSKB:LOGIN.MIC[10,5676]"-
	/TERMINAL:(TYPE:VT100,NOGAG,PAGE,PAGESIZE:24,WIDTH:80,LC,TAB)
	/TERMINAL:(DEFER,FILL:0,NOFORM,)
LOGIN:H	/NAME:"  NICOLAS"/NODEFER/DSKFUL:PAUSE/WATCH:DAY/SPOOL:ALL-
	/VIRTUAL:0/DEFPROT:057/NOTICE:SOMETIME/LOCATE:0-
	/RUN:MIC/RUNOFF:1/TMPFIL:MIC:"DO DSKB:LOGIN.MIC[10,5676]"-
	/TERMINAL:(TYPE:H19A,NOGAG,PAGE,PAGESIZE:24,WIDTH:80,LC,TAB)
	/TERMINAL:(DEFER,FILL:0,NOFORM,)
LOGIN:L	/NAME:"LTSTOLL"/NODEFER/DSKFUL:PAUSE/WATCH:DAY/SPOOL:ALL-
	/VIRTUAL:0/DEFPROT:057/NOTICE:SOMETIME/LOCATE:0-
	/RUN:MIC/RUNOFF:1/TMPFIL:MIC:"DO DSKB:LOGIN.MIC[10,5676,LTS]"-
	/TERMINAL:(TYPE:H19A,NOGAG,PAGE,PAGESIZE:0,WIDTH:80,LC,TAB)
	/TERMINAL:(DEFER,FILL:0,NOFORM,)
INITIA	/KSYS/STR
DIRECT	/F/W/MARKS/MVOLUME
QUEUE	/F/NOTIFY
PATH	/LIST
MOUNT	/NOTIFY/NOWAIT
LOGOUT	/N
RUNOFF	/PAGING/UNDERLNE:SEPARATE
CREF	/O
DIP	/TELL:(DEVICE,NAME,DIRECTORY)
NIP	/USERID:"TAMBURRI"/UPASSWORD:"HSOLO"/UACCOUNT:"341"
NRT	/SETYPE -
	/NAME:KL1031:KL2102::KL1031 -
	/NAME:KL2116:KL2102::KL2137::KL2116 -
	/NAME:KL2137:KL2102::KL2137 -
	/NAME:VX1522:KL2102::KL2137::VX1522 -
	/NAME:MARKET:KL2102::KL2137::KL2116::MARKET -
	/NAME:MILL20:KL2102::MILL20 -
	/NAME:METOO:KL2102::KL2137::VX1522::ALGOL::METOO
WHO	/OPER:NO
Ble@UPDATE-INFO-LINEH	hJX	h:=p
CpkB,CplB!-FCpmBGdCpnB!eCpoB"CppB7CpqB 8PCprBQqCpsB#rCptB!!CpuB"*CpvB+8CpwB
{@PvX
|@`6vX}@`9uP~@gx;LOGIN   /NAME:"  NICOLAS"/NODEFER/DSKFUL:PAUSE/WATCH:DAY/SPOOL:ALL-                     /VIRTUAL:0/DEFPROT:057/NOTICE:SOMETIME/LOCATE:0-                                /RUN:MIC/RUNOFF:1/TMPFIL:MIC:"DO DSKB:LOGIN.MIC[10,5676]"-                      /TERMINAL:(TYPE:VT100,NOGAG,PAGE,PAGESIZE:24,WIDTH:80,LC,TAB)                   /TERMINAL:(DEFER,FILL:0,NOFORM,)                                        LOGIN:H /NAME:"  NICOLAS"/NODEFER/DSKFUL:PAUSE/WATCH:DAY/SPOOL:ALL-                     /VIRTUAL:0/DEFPROT:057/NOTICE:SOMETIME/LOCATE:0-                                /RUN:MIC/RUNOFF:1/TMPFIL:MIC:"DO DSKB:LOGIN.MIC[10,5676]"-                      /TERMINAL:(TYPE:H19A,NOGAG,PAGE,PAGESIZE:24,WIDTH:80,LC,TAB)                    /TERMINAL:(DEFER,FILL:0,NOFORM,)                                        LOGIN:L /NAME:"LTSTOLL"/NODEFER/DSKFUL:PAUSE/WATCH:DAY/SPOOL:ALL-                       /VIRTUAL:0/DEFPROT:057/NOTICE:SOMETIME/LOCATE:0-                                /RUN:MIC/RUNOFF:1/TMPFIL:MIC:"DO DSKB:LOGIN.MIC[10,5676,LTS]"-                  /TERMINAL:(TYPE:H19A,NOGAG,PAGE,PAGESIZE:0,WIDTH:80,LC,TAB)                     /TERMINAL:(DEFER,FILL:0,NOFORM,)                                        INITIA  /KSYS/STR                                                               DIRECT  /F/W/MARKS/MVOLUME                                                      QUEUE   /F/NOTIFY                                                               PATH    /LIST                                                                   MOUNT   /NOTIFY/NOWAIT                                                          *EIEMACS$$

~P

!!"!!"^#!SET-NORMAL-SCREENx4`7Qp:L|yh; Cpz!!:Cpz;XCpz!YxCpz"y
Cpz,Cpz!-FCpzGdCpz!eCpz"Cpz7Cpz 8PCpzQqCpz#rCpz!!Cpz"*Cpz+8Cpz
"xvX
#x`rvX$x`tuP%xgpw                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                vvx;H=x=`?:(hB	apE@FI?*EIEMACS"pLxMl|O
    E.(INPUT-TEXT)HK
    !INPUT-LOOP!
^TU(CHR)Q(CHR)-^O33"E OINPUT-DONE'Q(CHR)-^O15"E OINPUT-DONE'Q(CHR)-^O177"E E.(INPUT-TEXT)-D
    E.(LAST-LINE)-DEVUPDATEOINPUT-LOOP'
E.(INPUT-TEXT)Q(CHR)IE.(LAST-LINE)Q(CHR)IEVUPDATEOINPUT-LOOP    !INPUT-DONE!E.(INPUT-TEXT)I	a>?L`pNORMAL-DISPATCHxr'`:4@l'(lc &`!%META-DISPATCH`$>

P'C~rx*`+ACTL-X-DISPATCHx.x/
~x0Rx2nx3x4<x5tx6>?x7x8Qux9x:Vnx;Y+x<[gx=^$x>dx?Bx@cxA~xBuxCjRxDxExGtxHrxI?xJwhK:[xMT2xNpO8LINEpQ	8pSxUZ W[0[1.U10U0<-SL;R%0>Q1J]1Q0+(]0 1)

L`x]h^
YANK-FILEx`(`

[
`)),~P+0[0[1.U1Q0"E999999999U0'Q0<"L0;'"LZJ12I'A>Q1J{[File yanked]}U(ERROR-TEXT)]1]0 I-[ &x`FAPPEND-TIL-FFx!$`EIhHF`K,P}hO<"N0;'0;A>

555--txahbGO-WIDEXdKL6<xgXhICLEAR-LOWER-FILExk+`P^#$^Qux`!TOGGLE-CMD-SIZE` 7@#--yo-h'*SEP-LINE`)SP,$66$tx0p13SPLIT`2ZP5-@d->Lx9`:=TOGGLE-DOTS`<wX?6>XC(>pF~`HPKdUVdlxN`OSTOGGLE-CASE`RPUL_`L	hxX`Y]SAVE-TO-STRING`\#@_Vi &VVn[`cgFC_BASIC_TABLE`fD`i`

'$xl97pm978QpqcxuHxpwEx{H~X}G>?(Y+x`DDO-DISPATCH`>FX>?h
-

`:1,20E$(TEXT-BUFFER)21,23E$(COMMAND-BUFFER)24,24E$(ERROR-TEXT)`~~7|XQ(WIDE-FLAG)"EQ(SML-FLAG)"NM(TOGGLE-CMD-SIZE)' Q(SPLIT-FLAG)"NM(SPLIT)' 2ET[?3h0ET1,10E$(TEXT-BUFFER)11,14E$(COMMAND-BUFFER)132EVWINDOW0U(SML-FLAG)0U(SPLIT-FLAG)'Q(WIDE-FLAG)"N2ET[?3l0ETM(SET-NORMAL-SCREEN)80EVWINDOW1U(WIDE-FLAG)'-1%(WIDE-FLAG)!`9jj,R}=Q(WIDE-FLAG)"NM(GO-WIDE)'Q(SML-FLAG)"E1,1E$(ERROR-TEXT)2,11E$(.)12,20E$(COMMAND-BUFFER)E.(..)21,24E$(..)E.(.)3U(AUTO-COUNT)'Q(SML-FLAG)"NM(SET-NORMAL-SCREEN)3U(AUTO-COUNT)1U(SML-FLAG)'-1%(SML-FLAG)0U(SPLIT-FLAG)*`UZXX	-	-	-	-	-	-	-3`\rrw}`Q(WIDE-FLAG)"NM(GO-WIDE)' Q(SPLIT-FLAG)"E1U(UPPER)E.(..)1,10E$(.)11,11E$(SEP-LINE)12,21E$(..)22,23E$(COMMAND-BUFFER)24,24E$(ERROR-TEXT)'Q(SPLIT-FLAG)"N0U(UPPER)E.(.)M(SET-NORMAL-SCREEN)1U(SPLIT-FLAG)'-1%(SPLIT-FLAG)0U(SML-FLAG)
I`,(
 Q(UPPER)"NE.(.)'0,0X(..)Q(UPPER)"NE.(..)'S`EE"~
[1[2
Invert until: ^TU1!LOOP!1AU2Q2-Q1"EOEND'Q2"V(Q2-^O40)U2OCHANGE'  Q2"W(Q2+^O40)U2OCHANGE'  COLOOP!CHANGE!DQ2IOLOOP!END!]2]1]`%``<}8(
[0[1[2[3E?CURRENT-TEXT-BUFFERU0.U1E.(2)HKIS
Save until: !SEARCH-LOOP!U3Q3-7"EOSAVE-ABORT'Q3IQ3-27"NOSEARCH-LOOP'E.(.)M(2)Q1,.XGQ1,.KOSAVE-DONE!SAVE-ABORT!E.(.)!SAVE-DONE!
]3]2]1]0b`>:DPB0,0X(ERROR-TEXT)bg`FJJ: &tJ"[A" |
"OA":TECO {[1[2[3[4E?DISPLAY-LINESU1U2Q2"E 'E?SCREEN-ADDRESSU3U4(Q1-Q3)-((Q2-Q1)/2)-1]4]3]2]1}"[B" |
"OB":TECO {[1[2[3[4E?DISPLAY-LINESU1U2Q2"E 'E?SCREEN-ADDRESSU3U4(Q2-Q3)+((Q2-Q1)/2)+1]4]3]2]1}"[C" |
"OC":TECO {:1FW}"[D" |
"OD":TECO {:R:0FW}"":TECO {L:2R"S1A-13"NC''}"\":TECO {:R"S    [0:.-1,.X0"S-DCG0']0'}"":TECO {[0X0{A0}UA]0}"":TECO {EG}"":TECO {Z-."E'.[0[1L:2R"S1A-13"NC''Q0-."EL'Q0,.X1{K1}UKQ0,.K]1]0}"":TECO {GK0,0XK}"":TECO {EX}VALUE:177 :TECO {:-D}ANY:("M","m") ANY:("M","m"):TECO {MM}"P":TECO {0,.V0V}"Q":TECO {M(PT_TO_MID)}"R":TECO {M(PT_TO_BOT)}"?u" |"H":TECO {M(MOVE_PT_HOME)}"?n":TECO {M(MOVE_PT_MID)}"?p":TECO {M(MOVE_PT_BOT)}"?x" |"A":TECO {:-1}"?r" |"B":TECO {:}"?v" |"C":TECO {:C}"?t" |"D":TECO {:R}"?w" |"O" |"@":TECO {I R}"?y" |"N":TECO {:D}"?q" |"L":TECO {I
2R}"?s" |"M":TECO {[0X0{K0}UKK]0}8;	h`` *88MOVE_PT_HOMEx ,`87:H8: &9U979V@x8Ix8Mp8O$p8Q4n`8SddH8Wz8W[1[2[3[4E?DISPLAY-LINESU1U2Q2"E 'E?SCREEN-ADDRESSU3U4(Q1-Q3)-((Q2-Q1)/2)-1]4]3]2]1[1[2[3[4E?DISPLAY-LINESU1U2Q2"E 'E?SCREEN-ADDRESSU3U4(Q2-Q3)+((Q2-Q1)/2)+1]4]3]2]1:1FW:R:0FWL:2R"S1A-13"NC'':R"S    [0:.-1,.X0"S-DCG0']0'[0X0{A0}UA]0EGZ-."E'.[0[1L:2R"S1A-13"NC''Q0-."EL'Q0,.X1{K1}UKQ0,.K]1]0GK0,0XKEX:-DMM0,.V0VM(PT_TO_MID)M(PT_TO_BOT)M(MOVE_PT_HOME)M(MOVE_PT_MID)M(MOVE_PT_BOT):-1::C:RI R:DI
2R[0X0{K0}UKK]09k9p9xp9A `H9,,,XZx9`99z9xp9*A `H93,,,XZP97ml8;ph9;Bx9>!2x9EHx9G @x9IHp9KD9V~x9L^fu}~!"8;P9V$9L8;9z#@P9b"h:D"@!@#(r@ Hx9ex9j989kT&)09z~p9p6MPQSTWX\P9z 9p9V9x`:

 HJE!H
Ch@~P:6>FMPQSTWX\p:

@`:*::3:-E.(INFO-LINE)HK
ITECmacros^O11I:E<(.)"F :E>(.)'I
	`:6:=8:9:M(COMMAND-|)"FM(COMMAND-INSERT)'`:?ee:W}(:C
^TU(CHR)Q(CHR)-^O177"E E.(INPUT-TEXT) Z"N -D
    E.(LAST-LINE)-D EVUPDATE'     OINPUT-CHAR-DONE'
Q(CHR)-^O33"N
    E.(INPUT-TEXT) Q(CHR)I    E.(LAST-LINE)  Q(CHR)I    EVUPDATE'!INPUT-CHAR-DONE!4]`:Zch>J:]

E.(INPUT-LINE)@I\
    E.(INPUT-TEXT)HK
    !INPUT-LOOP!
^TU(CHR)Q(CHR)-^O33"E OINPUT-DONE'Q(CHR)-^O15"E OINPUT-DONE'Q(CHR)-^O177"E E.(INPUT-TEXT)-D
    E.(LAST-LINE)-DEVUPDATEOINPUT-LOOP'
E.(INPUT-TEXT)Q(CHR)IE.(LAST-LINE)Q(CHR)IEVUPDATEOINPUT-LOOP    !INPUT-DONE!E.(INPUT-TEXT)I\

E.(INPUT-CHAR)@I\
^TU(CHR)Q(CHR)-^O177"E E.(INPUT-TEXT) Z"N -D
    E.(LAST-LINE)-D EVUPDATE'     OINPUT-CHAR-DONE'
Q(CHR)-^O33"N
    E.(INPUT-TEXT) Q(CHR)I    E.(LAST-LINE)  Q(CHR)I    EVUPDATE'!INPUT-CHAR-DONE!\

E.(UPDATE-INFO-LINE)@I\E.(INFO-LINE)HK
ITECmacros^O11I:E<(.)"F :E>(.)'I
\

E.(NORMAL-DISPATCH)@I\:M(COMMAND-|)"FM(COMMAND-INSERT)'\
E.(META-DISPATCH)@I\:M(META-|)"FM(META-INSERT)'\
E.(CTL-X-DISPATCH)@I\:M(CTL-X-|)"FM(CTL-X-INSERT)'\
E.(DO-DISPATCH)@I\JFK|Q(CHR)U(CHR-TEMP)
Q(CHR-TEMP)-^O177"E-1U(CHR-TEMP)'
Q(CHR-TEMP)-^O40"LICTL-Q(CHR-TEMP)+^O100U(CHR-TEMP)'
Q(CHR-TEMP)-^O140"G Q(CHR-TEMP)-^O173"L Q(CHR-TEMP)-^O40U(CHR-TEMP)''
Q(CHR-TEMP)-)"EIR-PARNE.(.)W(DISPATCH)'
Q(CHR-TEMP)IE.(.)W(DISPATCH)\
E.(COMMAND-CTL-A)@I\:0L\
E.(COMMAND-CTL-B)@I\:+Q(ARG)R\
E.(COMMAND-CTL-C)@I\:-4^T^C\
E.(COMMAND-CTL-D)@I\:+Q(ARG)D\
E.(COMMAND-CTL-E)@I\:+Q(ARG)L2R\
E.(COMMAND-CTL-F)@I\:+Q(ARG)C\
E.(COMMAND-CTL-G)@I\E.(LAST-LINE)HK\
E.(COMMAND-CTL-H)@I\:-Q(ARG)D\
E.(COMMAND-CTL-J)@I\LI
\
E.(COMMAND-CTL-K)@I\:Q(ARG)K\
E.(COMMAND-CTL-L)@I\

\
E.(COMMAND-CTL-M)@I\I
\
E.(COMMAND-CTL-N)@I\:+Q(ARG)\
E.(COMMAND-CTL-O)@I\I
2R\
E.(COMMAND-CTL-P)@I\:-Q(ARG)\
E.(COMMAND-CTL-S)@I\
.U(SEARCH-START)
E.(LAST-LINE)HKII-search: 
EVUPDATE
E.(INPUT-TEXT)HK
M(INPUT-CHAR)
Q(CHR)-^O33"EONORMAL-SEARCH'
!SEARCH-LOOP!
    E.(.)Q(SEARCH-START)J
    :Q(ARG)S(INPUT-TEXT)"F
E.(LAST-LINE)ZJI  Failed
OSEARCH-DONE'
    EVUPDATE    !SEARCH-CHAR-LOOP!
    M(INPUT-CHAR)
    Q(CHR)-^O33"EOSEARCH-DONE'
    E.(INPUT-TEXT)Z"EOSEARCH-CHAR-LOOP'
    OSEARCH-LOOP
!NORMAL-SEARCH!
E.(LAST-LINE)HKISearch: 
EVUPDATE
M(INPUT-CHAR)
Q(CHR)-^O33"E
    E.(INPUT-TEXT)HKG(LAST-SEARCH)
    ODO-SEARCH'
<M(INPUT-CHAR)Q(CHR)-^O33"E0;'>
!DO-SEARCH!
E.(.):Q(ARG)S(INPUT-TEXT)"F E.(LAST-LINE)ZJI  Failed'
!SEARCH-DONE!
E.(INPUT-TEXT)HX(LAST-SEARCH)\
0,0X(LAST-SEARCH)
E.(COMMAND-CTL-T)@I\.U(CUR-POS).,.+1X(TMP)DCG(TMP)Q(CUR-POS)J\
E.(COMMAND-CTL-U)@I\
    !CTL-U-TOP!
E.(LAST-LINE)ICtl-U-EVUPDATE
^TU(CHR)
4U(TEMP-ARG)
Q(CHR)"D 0U(TEMP-ARG) OCTL-U-LP'
OCTL-U-DONE
    !CTL-U-LP!
Q(CHR)"D Q(CHR)IEVUPDATE
    Q(TEMP-ARG)*10+(Q(CHR)-^O60)U(TEMP-ARG)
    ^TU(CHR) OCTL-U-LP'
    !CTL-U-DONE!
Q(ARG)*Q(TEMP-ARG)U(ARG)
E.(DISPATCH)HKG(NORMAL-DISPATCH)JW(DO-DISPATCH)\
E.(COMMAND-CTL-X)@I\
E.(LAST-LINE)ICtl-X-E.(.)EVUPDATE
^TU(CHR)E.(DISPATCH)HKG(CTL-X-DISPATCH)M(DO-DISPATCH)\
E.(COMMAND-CTL-[)@I\
E.(LAST-LINE)IMeta-E.(.)EVUPDATE
^TU(CHR)E.(DISPATCH)HKG(META-DISPATCH)M(DO-DISPATCH)\
E.(COMMAND-CTL-?)@I\:-Q(ARG)D\
E.(META-CTL-C)@I\\
[(COMMAND-CTL-G)](META-CTL-G)
E.(META-B)@I\:-Q(ARG)S[A,D][A,D]"SR'\
E.(META-F)@I\:+Q(ARG)S[A,D][A,D]"SR'\
E.(META->)@I\<"L 0;'"L ZJ 12I'A>ZJ\
E.(META-<)@I\J\
[(META-CTL-C)](CTL-X-CTL-C)
E.(CTL-X-CTL-E)@I\:-4^TEG\
E.(CTL-X-CTL-F)@I\:-4^TEX\
[(COMMAND-CTL-G)](CTL-X-CTL-G)
E.(CTL-X-CTL-R)@I\E.(LAST-LINE)HKIRead file: EVUPDATE
    M(INPUT-LINE)E.(INPUT-TEXT)JI:ERZJI"F0U(FLAG)'
    1U(FLAG)
    E.(.)M(INPUT-TEXT)Q(FLAG)"EE.(LAST-LINE)HKINot found'
    [1.U1
    <"L 0;'   "L ZJ 12I'   A>Q1J]1
    M(UPDATE-INFO-LINE)\
E.(CTL-X-CTL-W)@I\E.(LAST-LINE)HKIWrite file: EVUPDATE
    M(INPUT-LINE)E.(INPUT-TEXT)JI:EWZJI"F0U(FLAG)'
    1U(FLAG)
    E.(.)M(INPUT-TEXT)Q(FLAG)"EE.(LAST-LINE)HKIWrite failed'
    HPEF
    M(UPDATE-INFO-LINE)\
[(COMMAND-CTL-S)](CTL-X-S)
E.(COMMAND-INSERT)@I\Q(ARG)<Q(CHR)I>\
E.(META-INSERT)@I\IQ(CHR)I\
E.(CTL-X-INSERT)@I\IQ(CHR)I\

E.(EMACS)@I\
:-1
:-3
1,21E$(.)
M(UPDATE-INFO-LINE)
22,22E$(INFO-LINE)
0,0X(LAST-LINE)24,24E$(LAST-LINE)
23,23E$(COMMAND-BUFFER)
E.(.):EI(INIT-FILE)TMACS.INI
0U(INIT-FILE)-1EC!MAIN-LOOP!
E.(.)EVUPDATE+1U(ARG)U(CHR)E.(LAST-LINE)HKQ(CHR)-?"E?OMAIN-LOOP' E.(DISPATCH)HKG(NORMAL-DISPATCH)
M(DO-DISPATCH)OMAIN-LOOP\E.(.)

0U*-1ECEEEMACSW(EMACS)
	%`>>@>:M(META-|)"FM(META-INSERT)'	A`>:>8>:M(CTL-X-|)"FM(CTL-X-INSERT)' D`>!>?| >$JFK|Q(CHR)U(CHR-TEMP)
Q(CHR-TEMP)-^O177"E-1U(CHR-TEMP)'
Q(CHR-TEMP)-^O40"LICTL-Q(CHR-TEMP)+^O100U(CHR-TEMP)'
Q(CHR-TEMP)-^O140"G Q(CHR-TEMP)-^O173"L Q(CHR-TEMP)-^O40U(CHR-TEMP)''
Q(CHR-TEMP)-)"EIR-PARNE.(.)W(DISPATCH)'
Q(CHR-TEMP)IE.(.)W(DISPATCH)>L~4l`>CCOMMAND-CTL-Ap>E`>H>L@>K:0LQnQu>?6`>PQkCOMMAND-CTL-Bx>R`QjQnhQm>LQkpQpxQrQu8Qt:+Q(ARG)RT*T2>L6`QyT(COMMAND-CTL-CxQ{+`T'T+hT*QuT(`T-T18T0:-4^T^CVgVnQuL`T5VdCOMMAND-CTL-DxT8+`VcVghVfT2VdpVixVkVn8Vm:+Q(ARG)DY#Y+T28``VrY!COMMAND-CTL-ExVt+`Y Y$hY#VnY!`Y&,Y+0Y):+Q(ARG)L2R[`[gVn9~`Y/[]COMMAND-CTL-FxY1+`[\[`h[Y+[]p[bx[d[gH[f:+Q(ARG)C^^$Y+:x[j`[k^COMMAND-CTL-Gx[m+`^^h^[gnp^x^ ^$@^"E.(LAST-LINE)HK`Y``[g;x^'`^(`VCOMMAND-CTL-Hx^*+``U`Yh`X^$`Vp`[x`]``8`:-Q(ARG)Dcc^$q
eReY``>`c eOCOMMAND-CTL-Kxc",`eNeRheQceO`eTeYHeX:Q(ARG)Khhc~xe\`e]h

COMMAND-CTL-Lxe_+`hhhheYh

`h:hPh

jKjReYuxh`hjHCOMMAND-CTL-Mxh,`jGjKhjJhjH`jMjQPjQI
mmhAxjT`jUmCOMMAND-CTL-NxjX,`mmhmjRm`m
mHmKjRxm`moACOMMAND-CTL-Oxm+`o@oDhoCmoA`oF:oK8oJI
2Rrrm	a`oOq}COMMAND-CTL-PxoQ+`q|rhqoKq}`rr8r:-Q(ARG)t<uoKF(`rt:COMMAND-CTL-Sxr
.U(SEARCH-START)
E.(LAST-LINE)HKII-search: 
EVUPDATE
E.(INPUT-TEXT)HK
M(INPUT-CHAR)
Q(CHR)-^O33"EONORMAL-SEARCH'
!SEARCH-LOOP!
    E.(.)Q(SEARCH-START)J
    :Q(ARG)S(INPUT-TEXT)"F
E.(LAST-LINE)ZJI  Failed
OSEARCH-DONE'
    EVUPDATE    !SEARCH-CHAR-LOOP!
    M(INPUT-CHAR)
    Q(CHR)-^O33"EOSEARCH-DONE'
    E.(INPUT-TEXT)Z"EOSEARCH-CHAR-LOOP'
    OSEARCH-LOOP
!NORMAL-SEARCH!
E.(LAST-LINE)HKISearch: 
EVUPDATE
M(INPUT-CHAR)
Q(CHR)-^O33"E
    E.(INPUT-TEXT)HKG(LAST-SEARCH)
    ODO-SEARCH'
<M(INPUT-CHAR)Q(CHR)-^O33"E0;'>
!DO-SEARCH!
E.(.):Q(ARG)S(INPUT-TEXT)"F E.(LAST-LINE)ZJI  Failed'
!SEARCH-DONE!
E.(INPUT-TEXT)HX(LAST-SEARCH)vyvyr@h`u
vvLAST-SEARCHxu@vxuw
wu?	h`v}wCOMMAND-CTL-Txv`wwhw
vy
w`w:ww.U(CUR-POS).,.+1X(TMP)DCG(TMP)Q(CUR-POS)JyGyovyHxw`wyDCOMMAND-CTL-Uxw(`yCyGhyFw'yD`yI%%:yn{0yM
    !CTL-U-TOP!
E.(LAST-LINE)ICtl-U-EVUPDATE
^TU(CHR)
4U(TEMP-ARG)
Q(CHR)"D 0U(TEMP-ARG) OCTL-U-LP'
OCTL-U-DONE
    !CTL-U-LP!
Q(CHR)"D Q(CHR)IEVUPDATE
    Q(TEMP-ARG)*10+(Q(CHR)-^O60)U(TEMP-ARG)
    ^TU(CHR) OCTL-U-LP'
    !CTL-U-DONE!
Q(ARG)*Q(TEMP-ARG)U(ARG)
E.(DISPATCH)HKG(NORMAL-DISPATCH)JW(DO-DISPATCH)||w
`{|h|yo|p|//x||~@|	
E.(LAST-LINE)ICtl-X-E.(.)EVUPDATE
^TU(CHR)E.(DISPATCH)HKG(CTL-X-DISPATCH)M(DO-DISPATCH)~?~Oyox|`|~=COMMAND-CTL-[x|#`~<~@h~?|~=`~B..~O~@~E
E.(LAST-LINE)IMeta-E.(.)EVUPDATE
^TU(CHR)E.(DISPATCH)HKG(META-DISPATCH)M(DO-DISPATCH)||<x~R`~SyCOMMAND-CTL-?x~U#ax|i{~Oya~9:-Q(ARG)D8?~OCoKi5META-CTL-Cy	+a48i7ka:,>A>ttGvyiBqMETA-CTL-GyD,apc ^As?}?3^ix{META-Baz~i}t	{a::-Q(ARG)S[A,D][A,D]"SR'9Ct7T2i7META-Fy
u
~RyFiG
sMETA->yI)a
r
vi
uC
sa
x


~1
{<"LC0;'"LZJ12I'A>ZJ
~:n
~.yoayQmatxiwnuaz9~:-4^TEG4<n1|a2CTL-X-CTL-Fy+a15i42a7;9::-4^TEXqq2~Oa?nCTL-X-CTL-GyB+am^^Ap<{<B``auxCTL-X-CTL-Raw{izqxq}xxy|IE.(LAST-LINE)HKIRead file: EVUPDATE
    M(INPUT-LINE)E.(INPUT-TEXT)JI:ERZJI"F0U(FLAG)'
    1U(FLAG)
    E.(.)M(INPUT-TEXT)Q(FLAG)"EE.(LAST-LINE)HKINot found'
    [1.U1
    <"L 0;'   "L ZJ 12I'   A>Q1J]1
    M(UPDATE-INFO-LINE)7RqBma5CTL-X-CTL-Wya48i75a:ffR}=E.(LAST-LINE)HKIWrite file: EVUPDATE
    M(INPUT-LINE)E.(INPUT-TEXT)JI:EWZJI"F0U(FLAG)'
    1U(FLAG)
    E.(.)M(INPUT-TEXT)Q(FLAG)"EE.(LAST-LINE)HKIWrite failed'
    HPEF
    M(UPDATE-INFO-LINE)st/CiVqCTL-X-SyXapG t=AsR}RE-aw{COMMAND-INSERTaz~i}t{a:)Q(ARG)<Q(CHR)I>:Bt5>La	7META-INSERTy

*a6:i97a<,A1@IQ(CHR)Iv~=qaEtCTL-X-INSERTyH+aswivBtay,~1|IQ(CHR)I!2B?eYq!/EMACSy+a!.!2i!1~'!/a!4$$!Y{q!8
:-1
:-3
1,21E$(.)
M(UPDATE-INFO-LINE)
22,22E$(INFO-LINE)
0,0X(LAST-LINE)24,24E$(LAST-LINE)
23,23E$(COMMAND-BUFFER)
E.(.):EI(INIT-FILE)TMACS.INI
0U(INIT-FILE)-1EC!MAIN-LOOP!
E.(.)EVUPDATE+1U(ARG)U(CHR)E.(LAST-LINE)HKQ(CHR)-?"E?OMAIN-LOOP' E.(DISPATCH)HKG(NORMAL-DISPATCH)
M(DO-DISPATCH)OMAIN-LOOP+