! Set-up:
!
! Suppress the bell or buzzer that signals errors
!SET QUIET
! Define delimiters for the word entity
SET ENTITY WORD '. ,	?!;:[]()<>*-+=/\{}$^_&%@#~`"'
! Define delimiters for the sentence entity
SET ENTITY SENTENCE '. ?!'
! Suppress line numbers in line mode
!SET NONUMBERS
! Wrap full words to the next line at 72 characters
SET WRAP 72
! Customise the end of buffer
SET TEXT END "^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
!
!
! macros which simply insert (LaTeX) text
! better than using LaTeX macros (fewer keystrokes, LaTeX file more 
!  readable, preferred by journals, no possibility of collision)
!
!stuff here
!
!
! macros which insert LaTeX macros
! should use LaTeX macros if their definitions can change from 
!  document to document
! also better since if I have to change the macro to avoid collision
!  I can retain the EDT keystrokes
!
!stuff here
!
!
! quoted printable
!
! Create a buffer with two blank lines (for some reason one
! blank line is not enough???)
!
find buffer cr_buffer
insert;
insert;
find last
!
DEFINE MACRO KQP
FIND BUFFER KQP
INSERT;set quiet
INSERT;s|=C3=BC|ü|w
INSERT;s|=C3=A0|à|w
INSERT;s|=C3=80|À|w
INSERT;s|=2c|,|w
INSERT;s|=FC|ü|w
INSERT;s|=DF|ß|w
INSERT;s|=F6|ö|w
INSERT;s|=E4|ä|w
INSERT;s|=3D|=|w
INSERT;s|=A0| |w
INSERT;s|=91|`|w
INSERT;s|=92|'|w
INSERT;s|=5F|_|w
INSERT;s|=20||w
INSERT;s|=C4|Ä|w
INSERT;s|=D6|Ö|w
INSERT;s|=DC|Ü|w
INSERT;s|=BA|º|w
INSERT;s|=95|·|w
INSERT;s|=2E|.|w
INSERT;s|=2D|-|w
INSERT;s|=E9|é|w
INSERT;s|=E1|á|w
INSERT;s|=C1|Á|w
INSERT;s|=E8|è|w
INSERT;s|=C5|Å|w
INSERT;s|=E5|å|w
INSERT;s|=A3|£|w
INSERT;s|=93|_|w
INSERT;s|=94|_|w
INSERT;s|=E5|å|w
INSERT;s|=96|---|w
INSERT;s|=20| |w
INSERT;s|=A7|§|w
INSERT;s| | |w
INSERT;s|=C3=A1|à|w
INSERT;s|=C3=81|À|w
INSERT;s|=E2=80=98|`|w
INSERT;s|=E2=80=99|'|w
INSERT;s|=C3=B6|ö|w
INSERT;s|=C3=A4|ä|w
INSERT;s|=C3=BC|ü|w
INSERT;s|=E6|æ|w
INSERT;s|=F8|ø|w
INSERT;s|ü|ü|w
INSERT;s|Ã$|ä|w
INSERT;s|ö|ö|w
INSERT;s|ä|ä|w
INSERT;s|Ã¥|å|w
INSERT;s|=C3=A5|å|w
! Linefeed/CR Combination
INSERT;%B
INSERT;change; 9999('=0A=0D' cutsr paste=cr_buffer) ex
! CR/Linefeed Combination
INSERT;%B
INSERT;change; 9999('=0D=0A' cutsr paste=cr_buffer) ex
! Linefeed
INSERT;%B
INSERT;change; 9999('=0A' cutsr paste=cr_buffer) ex
! CR
INSERT;%B
INSERT;change; 9999('=0D' cutsr paste=cr_buffer) ex
!
INSERT;%B
INSERT;change; 9999('=C2=B7' cutsr paste=cr_buffer) ex
INSERT;set quiet
find last
!
!
! papers
DEFINE MACRO LENS
FIND BUFFER LENS
INSERT; INCLUDE PAPERS:LENS_TABLE.TEX
FIND LAST
DEFINE MACRO H0
FIND BUFFER H0
INSERT; INCLUDE PAPERS:H0.TXT
FIND LAST
DEFINE MACRO LAM
FIND BUFFER LAM
INSERT; INCLUDE PAPERS:LAM.TXT
FIND LAST
DEFINE MACRO OME
FIND BUFFER OME
INSERT; INCLUDE PAPERS:OME.TXT
FIND LAST
DEFINE MACRO LO
FIND BUFFER LO
INSERT; INCLUDE PAPERS:LO.TXT
FIND LAST
DEFINE MACRO CERES
FIND BUFFER CERES
INSERT;INCLUDE PAPERS:CERES.TXT
FIND LAST
! MAIL stuff
DEFINE MACRO CZEIT
FIND BUFFER CZEIT
insert;change; br ^m ex
insert;include prozdir:cdatum.txt
insert;change;  3(^m) ex
FIND LAST
DEFINE MACRO ZEIT
FIND BUFFER ZEIT
insert;change; br ^m ex
insert;include prozdir:datum.txt
insert;change;  3(^m) ex
FIND LAST
DEFINE MACRO EPIGRAM
FIND BUFFER EPIGRAM
insert;change; desel er sel ^m ex
insert;include prozdir:quote.txt end
insert;change; -sr ex
FIND LAST
!From:	SMTP%"FAIRFIELD@slac.stanford.edu" 17-NOV-1995 11:49:25.89
DEFINE MACRO QUOTE
FIND BUFFER QUOTE
insert;set quiet
insert;change; er -l 9999(i> ^Z -2l) ex
insert;set noquiet
FIND LAST
DEFINE MACRO SIGNATURE
FIND BUFFER SIGNATURE
insert;change; desel er sel ^m ex
insert;include maildir:sig.txt end
insert;change; -sr ex
FIND LAST
! sci.physics.research stuff
DEFINE MACRO APPROVED
FIND BUFFER APPROVED
insert;include sprtxt:approved.txt
FIND LAST
DEFINE MACRO SPRORG
FIND BUFFER SPRORG
insert;include sprtxt:organisation.txt
FIND LAST
DEFINE MACRO CANCEL
FIND BUFFER CANCEL
insert;include sprtxt:cancel.txt
FIND LAST
DEFINE MACRO CROSS
FIND BUFFER CROSS
insert;include sprtxt:cross.txt
FIND LAST
DEFINE MACRO EMAIL
FIND BUFFER EMAIL
insert;include sprtxt:email.txt
FIND LAST
DEFINE MACRO FAQ
FIND BUFFER FAQ
insert;include sprtxt:faq.txt
FIND LAST
DEFINE MACRO FEHLER
FIND BUFFER FEHLER
insert;include sprtxt:fehler.txt
FIND LAST
DEFINE MACRO FOLLOW
FIND BUFFER FOLLOW
insert;include sprtxt:follow.txt
FIND LAST
DEFINE MACRO HOMEWORK
FIND BUFFER HOMEWORK
insert;include sprtxt:homework.txt
FIND LAST
DEFINE MACRO MULTIPLE
FIND BUFFER MULTIPLE
insert;include sprtxt:multiple.txt
FIND LAST
DEFINE MACRO NOFOLLOW
FIND BUFFER NOFOLLOW
insert;include sprtxt:nofollow.txt
FIND LAST
DEFINE MACRO NOTE
FIND BUFFER NOTE
insert;include sprtxt:note.txt
FIND LAST
DEFINE MACRO PROPER
FIND BUFFER PROPER
insert;include sprtxt:proper.txt
FIND LAST
DEFINE MACRO REJECT
FIND BUFFER REJECT
insert;include sprtxt:reject.txt
FIND LAST
DEFINE MACRO SPR
FIND BUFFER SPR
insert;include sprtxt:newsgroups.txt
FIND LAST
DEFINE MACRO WELCOME
FIND BUFFER WELCOME
insert;include sprtxt:welcome.txt
FIND LAST
DEFINE MACRO WRAP
FIND BUFFER WRAP
insert;include sprtxt:wrap.txt
FIND LAST
! BibTeX stuff
DEFINE MACRO ARTICLE
FIND BUFFER ARTICLE
insert;include mybib:article.bib
!insert;change; -sr ex
FIND LAST
DEFINE MACRO BOOK
FIND BUFFER BOOK
insert;include mybib:BOOK.bib
!insert;change; -sr ex
FIND LAST
DEFINE MACRO BOOKLET
FIND BUFFER BOOKLET
insert;include mybib:BOOKLET.bib
!insert;change; -sr ex
FIND LAST
DEFINE MACRO INBOOK
FIND BUFFER INBOOK
insert;include mybib:INBOOK.bib
!insert;change; -sr ex
FIND LAST
DEFINE MACRO INCOLLECTION
FIND BUFFER INCOLLECTION
insert;include mybib:INCOLLECTION.bib
!insert;change; -sr ex
FIND LAST
DEFINE MACRO INPROCEEDINGS
FIND BUFFER INPROCEEDINGS
insert;include mybib:INPROCEEDINGS.bib
!insert;change; -sr ex
FIND LAST
DEFINE MACRO MANUAL
FIND BUFFER MANUAL
insert;include mybib:MANUAL.bib
!insert;change; -sr ex
FIND LAST
DEFINE MACRO MASTERSTHESIS
FIND BUFFER MASTERSTHESIS
insert;include mybib:MASTERSTHESIS.bib
!insert;change; -sr ex
FIND LAST
DEFINE MACRO MISC
FIND BUFFER MISC
insert;include mybib:MISC.bib
!insert;change; -sr ex
FIND LAST
DEFINE MACRO PHDTHESIS
FIND BUFFER PHDTHESIS
insert;include mybib:PHDTHESIS.bib
!insert;change; -sr ex
FIND LAST
DEFINE MACRO PROCEEDINGS
FIND BUFFER PROCEEDINGS
insert;include mybib:PROCEEDINGS.bib
!insert;change; -sr ex
FIND LAST
DEFINE MACRO TECHREPORT
FIND BUFFER TECHREPORT
insert;include mybib:TECHREPORT.bib
!insert;change; -sr ex
FIND LAST
DEFINE MACRO UNPUBLISHED
FIND BUFFER UNPUBLISHED
insert;include mybib:UNPUBLISHED.bib
!insert;change; -sr ex
FIND LAST
! end BibTeX stuff
DEFINE MACRO SIGNATURE_S
FIND BUFFER SIGNATURE_S
insert;change; desel er sel ^m ex
insert;include maildir:sig_s.txt end
insert;change; -sr ex
FIND LAST
DEFINE MACRO HEADERKILL
FIND BUFFER HEADERKILL
! +1par?!?!?!  
insert;change; br +1par -"From:" +par dbr ex
FIND LAST
DEFINE MACRO RFKILL
FIND BUFFER RFKILL
insert;change; er -"================== RFC 822 Headers ==================" der ex
FIND LAST
!DEFINE KEY GOLD Q AS 'EXT QUOTE.'
!DEFINE KEY GOLD S AS 'EXT SIGNATURE.'
!DEFINE KEY GOLD H AS 'EXT HEADERKILL.'
!SET WRAP 75
!SET MODE CHANGE
DEFINE MACRO COMMENT
FIND BUFFER COMMENT
insert;set quiet
insert;change; er -l 9999(i% % ^Z -2l) ex
insert;set noquiet
FIND LAST
! XLATE SPAWN Z^Z
DEFINE MACRO TIME_EXIT
FIND BUFFER TIME_EXIT
insert; CZEIT 
insert; EXIT
FIND LAST
! Key Definitions:
!
! SPAWN in EDT!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
DEFINE KEY FUNCTION 29 AS "XLATESPAWN ?*'SPAWN '^ZREF."
DEFINE KEY GOLD A AS "EXT INCLUDE MYBIB:?*'TEMPLATE FILE: '."
! Change to the specified buffer
DEFINE KEY GOLD B AS "EXT CHANGE =?'CHANGE TO BUFFER: '."
! Change to the last current line in the previous buffer
DEFINE KEY GOLD C AS "EXT CHANGE LAST."
! Change the case of the current word
DEFINE KEY GOLD D AS "+CHGCW."
! Exit file
!DEFINE KEY GOLD E AS "EXT EXIT."
! Exit file with time
DEFINE KEY CON N AS "EXT SET WORD NODELIMITER."
DEFINE KEY CON D AS "EXT SET WORD DELIMITER."
DEFINE KEY GOLD CON E AS "EXT TIME_EXIT."
! put in a quote
DEFINE KEY GOLD E AS "EXT EPIGRAM."
! RFC 822 Headers weg
DEFINE KEY GOLD F AS "EXT RFKILL."
! Locate the last current line in the MAIN buffer
DEFINE KEY GOLD G AS "EXT FIND=MAIN.."
! switch to the buffer with the list of BibTeX templates
DEFINE KEY GOLD CON G AS "EXT FIND=LISTE.."
! Prompt for a buffer name and then locate the last current line
! in the specified buffer
DEFINE KEY GOLD H AS "EXT FIND=?*'BUFFER:  '.."
! mail
DEFINE KEY GOLD I AS "EXT INCLUDE MAILDIR:SIG_d.TXT."
DEFINE KEY GOLD CON I AS "EXT INCLUDE MAILDIR:SIG_h.TXT."
! Fortran90
DEFINE KEY GOLD J AS "EXT SET WRAP 79."
! bad web sites
DEFINE KEY GOLD CON J AS "EXT INCLUDE MAILDIR:SITE_STYLE.TXT."
! kill the headers
DEFINE KEY GOLD K AS "EXT HEADERKILL."
! latex manifesto
DEFINE KEY GOLD CON L AS "EXT INCLUDE MAILDIR:TEX.TXT."
! mail spam
DEFINE KEY GOLD M AS "EXT INCLUDE MAILDIR:SPAM_M.TXT."
! mail spam
! bad since return
DEFINE KEY GOLD CON M AS "EXT INCLUDE MAILDIR:SPAM_CASH.TXT."
! Get the time (now).
DEFINE KEY GOLD N AS "EXT ZEIT."
! Get the time (now).
DEFINE KEY GOLD CON N AS "EXT CZEIT."
! back to the default
DEFINE KEY GOLD O AS "EXT SET WRAP 72."
! Fill the text of the current paragraph to the right margin
DEFINE KEY GOLD P AS "FILLPAR."
! Quit file
! quote for email
DEFINE KEY GOLD Q AS "EXT QUOTE."
DEFINE KEY FUNCTION 31 AS "(advi% ^z-2c1l)."
DEFINE KEY FUNCTION 32 AS "(advi%% ^z-2c1l)."
DEFINE KEY FUNCTION 33 AS "(advi> ^z-2c1l)."
DEFINE KEY FUNCTION 34 AS "(advi> > ^z-2c1l)."
! Shift screen left 1 tab (8 columns)
DEFINE KEY GOLD L AS "SHL."
! Shift screen right 1 tab (8 columns)
DEFINE KEY GOLD R AS "SHR."
! FORTRAN77
DEF KEY GOLD CON R AS "i^@^_^zbr(+s/***^*$#--^-//d+l)br+s/^@^_//."
DEF KEY CON R AS "(i^@^z-l^m-ci***^*$#--^--^--^--^2-^--^--^-3^--^_-^--^--^--^--^5-^--^--^-6^--^_-^--7-^^z+s/^@//)."
! Replace all occurrences of current buffer with the specified string
DEFINE KEY GOLD S AS "EXT S/?*'REPLACE: '/?*'   WITH: '/WHOLE."
! Transpose the two characters to the left of the cursor
DEFINE KEY GOLD T AS "BACK C DC ADV C UNDC."
! Add a .sig
DEFINE KEY GOLD     U AS "EXT SIGNATURE."
DEFINE KEY GOLD CON U AS "EXT SIGNATURE_S."
! news spam
DEFINE KEY GOLD V AS "EXT INCLUDE MAILDIR:SPAM_N.TXT."
! vax
DEFINE KEY GOLD CON A AS "EXT INCLUDE MAILDIR:VAX.TXT."
! news spam with make money fast
DEFINE KEY GOLD CON V AS "EXT INCLUDE MAILDIR:RESPAM.TXT."
! save the file
DEFINE KEY GOLD W AS "EXT WRITE EDT_FILE."
! Write the current buffer to the specified file
DEFINE KEY GOLD CON W AS "EXT WRITE ?*'WRITE TO FILE: '."
! Include the specified file at the current line
DEFINE KEY GOLD X AS "EXT INCLUDE ?*'INCLUDE FILE: '."
! Include the specified file at the beginning of 
! the specified buffer
DEFINE KEY GOLD Y AS "EXT INCLUDE ?*'INCLUDE FILE: ' =?*' BUFFER: ';FIND BEGIN."
! update the time
! CON Z bring mich heraus
DEFIN KEY GOLD CON Z AS "XLATESPAWN Z^ZREF."
! put in a separator
DEFINE KEY GOLD DELETE AS "(i^@^z-l^m-ci---------8<--------------------------------------------------------------------^z+s/^@//)."
DEFINE KEY GOLD =      AS "(i^@^z-l^m-ci===============================================================================^z+s/^@//)."
DEFINE KEY GOLD +      AS "(i^@^z-l^m-ci+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++^z+s/^@//)."
! we need it often
DEFINE KEY GOLD \ AS "EXT WRITE SYS$SCRATCH:?*'WRITE PASTE BUFFER TO SYS$SCRATCH:' = PASTE."
DEFINE KEY GOLD [ AS "EXT WRITE SYS$SCRATCH:?*'WRITE ENTIRE FILE TO SYS$SCRATCH:'."
DEFINE KEY GOLD ] AS "EXT INCLUDE SYS$SCRATCH:?*'INCLUDE SYS$SCRATCH:'."
DEFINE KEY GOLD CON \ AS "EXT WRITE SYS$SCRATCH:edt.xxx = PASTE."
DEFINE KEY GOLD CON [ AS "EXT WRITE SYS$SCRATCH:edt.xxx."
DEFINE KEY GOLD CON ] AS "EXT INCLUDE SYS$SCRATCH:edt.xxx."
! BibTeX
FIND BUFFER LISTE
include mybib:liste.bib
FIND LAST
!SET SEARCH EXACT
! Select editing mode: 
SET WORD NODELIMITER
SET MODE CHANGE