Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

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)