! Set-up:
!
! Suppress the bell or buzzer that signals errors
!SET QUIET
! Define delimiters for the word entity
!SET ENTITY WORD '. ,	?!;:[]()<>*-+=/\{}$^_&%@#~`"'
SET ENTITY WORD ' '
!need to find some keys here!!!
!!! Why CONF needs enter
!!! why not ? as word
!!! syntax of set entity word and quotes
DEFINE KEY CON B AS "EXT SET ENTITY WORD ' '."
DEFINE KEY CON F AS "EXT 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
!
!add: differences DEC MCS/ISO 8859-1/ISO 8859-15/Windows-1252
!add: all Mac stuff?  all ASCII?
DEFINE MACRO KQP
FIND BUFFER KQP
INSERT;set quiet
!komischerweise auch für ü
INSERT;s|Ω|Omega|w/NOTYPE
INSERT;s|Λ|lambda|w/NOTYPE
INSERT;s|�|üäö|w/NOTYPE
INSERT;s|â=80|---|w/NOTYPE
INSERT;s|—|---|w/NOTYPE
INSERT;s|–|---|w/NOTYPE
INSERT;s|’|'|w/NOTYPE
INSERT;s|“|`|w/NOTYPE
INSERT;s|”|'|w/NOTYPE
INSERT;s|Ãœ|Ü|w/NOTYPE
INSERT;s|Ã<XAE>|î|w/NOTYPE
INSERT;s|Þ|Þ|w/NOTYPE
!minus sign
INSERT;s|=E2=80=93|-|w/NOTYPE
INSERT;s|=C3=B1|ñ|w/NOTYPE
!apostrophe
INSERT;s|=E2=80=99|'|w/NOTYPE
!emphasis
INSERT;s|=E2=80=9C|\_|w/NOTYPE
!emphasis
INSERT;s|=E2=80=9D|_/|w/NOTYPE
INSERT;s|=E2=80=98|`|w/NOTYPE
INSERT;s|=E2=82=AC|¤|w/NOTYPE
INSERT;s|=80=99|'|w/NOTYPE
INSERT;s|=C2=A0| |w/NOTYPE
INSERT;s|=C2=A3|£|w/NOTYPE
INSERT;s|=C2=B0|°|w/NOTYPE
INSERT;s|=C2=B4|'|w/NOTYPE
INSERT;s|=C3=AA|ê|w/NOTYPE
INSERT;s|=C3=AE|î|w/NOTYPE
INSERT;s|=C3=80|À|w/NOTYPE
INSERT;s|=C3=9F|ß|w/NOTYPE
INSERT;s|=C3=A0|à|w/NOTYPE
INSERT;s|=C3=A1|à|w/NOTYPE
INSERT;s|=C3=A4|ä|w/NOTYPE
INSERT;s|=C3=A5|å|w/NOTYPE
INSERT;s|=C3=A7|ç|w/NOTYPE
INSERT;s|=C3=A8|è|w/NOTYPE
INSERT;s|=C3=A9|é|w/NOTYPE
INSERT;s|=C3=B3|ó|w/NOTYPE
INSERT;s|=C3=B4|ô|w/NOTYPE
INSERT;s|=C3=B6|ö|w/NOTYPE
INSERT;s|=C3=BC|ü|w/NOTYPE
INSERT;s|=C3=B8|ø|w/NOTYPE
INSERT;s|=C3=9C|Ü|w/NOTYPE
INSERT;s|=C3=9C|Ü|w/NOTYPE
INSERT;s|=CE=BD|µ|w/NOTYPE
INSERT;s|=C3=A2|â|w/NOTYPE
INSERT;s|=D0=B5|é|w/NOTYPE
INSERT;s|ê|ê|w/NOTYPE
INSERT;s|û|û|w/NOTYPE
INSERT;s|£|£|w/NOTYPE
INSERT;s|ÖVP|Ö|w/NOTYPE
INSERT;s| | |w/NOTYPE
INSERT;s'Ã|'æ'w/NOTYPE
!!!INSERT;s|Ã|ø|w/NOTYPE
INSERT;s|Ã$Ã$|äß|w/NOTYPE
INSERT;s|Ã$|ä|w/NOTYPE
INSERT;s|Ä|Ä|w/NOTYPE
INSERT;s|ä|ä|w/NOTYPE
INSERT;s|Ã¥|å|w/NOTYPE
INSERT;s|é|é|w/NOTYPE
INSERT;s|ö|ö|w/NOTYPE
INSERT;s|ü|ü|w/NOTYPE
INSERT;s|�|ü|w/NOTYPE
INSERT;s|ý|Ü|w/NOTYPE
INSERT;s|Ãœ|Ü|w/NOTYPE
INSERT;s|ß|ß|w/NOTYPE
INSERT;s|=20| |w/NOTYPE
INSERT;s|=2C|,|w/NOTYPE
INSERT;s|=2D|-|w/NOTYPE
INSERT;s|=2E|.|w/NOTYPE
INSERT;s|=30|0|w/NOTYPE
INSERT;s|=31|1|w/NOTYPE
INSERT;s|=32|2|w/NOTYPE
INSERT;s|=33|3|w/NOTYPE
INSERT;s|=34|4|w/NOTYPE
INSERT;s|=35|5|w/NOTYPE
INSERT;s|=36|6|w/NOTYPE
INSERT;s|=37|7|w/NOTYPE
INSERT;s|=38|8|w/NOTYPE
INSERT;s|=39|9|w/NOTYPE
INSERT;s|=41|A|w/NOTYPE
INSERT;s|=42|B|w/NOTYPE
INSERT;s|=43|C|w/NOTYPE
INSERT;s|=44|D|w/NOTYPE
INSERT;s|=45|E|w/NOTYPE
INSERT;s|=46|F|w/NOTYPE
INSERT;s|=47|G|w/NOTYPE
INSERT;s|=48|H|w/NOTYPE
INSERT;s|=49|I|w/NOTYPE
INSERT;s|=4A|J|w/NOTYPE
INSERT;s|=4B|K|w/NOTYPE
INSERT;s|=4C|L|w/NOTYPE
INSERT;s|=4D|M|w/NOTYPE
INSERT;s|=4E|N|w/NOTYPE
INSERT;s|=4F|O|w/NOTYPE
INSERT;s|=50|P|w/NOTYPE
INSERT;s|=51|Q|w/NOTYPE
INSERT;s|=52|R|w/NOTYPE
INSERT;s|=53|S|w/NOTYPE
INSERT;s|=54|T|w/NOTYPE
INSERT;s|=55|U|w/NOTYPE
INSERT;s|=56|V|w/NOTYPE
INSERT;s|=57|W|w/NOTYPE
INSERT;s|=58|X|w/NOTYPE
INSERT;s|=59|Y|w/NOTYPE
INSERT;s|=5A|Z|w/NOTYPE
INSERT;s|=5F|_|w/NOTYPE
INSERT;s|=60|`|w/NOTYPE
INSERT;s|=61|a|w/NOTYPE
INSERT;s|=62|b|w/NOTYPE
INSERT;s|=63|c|w/NOTYPE
INSERT;s|=64|d|w/NOTYPE
INSERT;s|=65|e|w/NOTYPE
INSERT;s|=66|f|w/NOTYPE
INSERT;s|=67|g|w/NOTYPE
INSERT;s|=68|h|w/NOTYPE
INSERT;s|=69|i|w/NOTYPE
INSERT;s|=6A|j|w/NOTYPE
INSERT;s|=6B|k|w/NOTYPE
INSERT;s|=6C|l|w/NOTYPE
INSERT;s|=6D|m|w/NOTYPE
INSERT;s|=6E|n|w/NOTYPE
INSERT;s|=6F|o|w/NOTYPE
INSERT;s|=70|p|w/NOTYPE
INSERT;s|=71|q|w/NOTYPE
INSERT;s|=72|r|w/NOTYPE
INSERT;s|=73|s|w/NOTYPE
INSERT;s|=74|t|w/NOTYPE
INSERT;s|=75|u|w/NOTYPE
INSERT;s|=76|v|w/NOTYPE
INSERT;s|=77|w|w/NOTYPE
INSERT;s|=78|x|w/NOTYPE
INSERT;s|=79|y|w/NOTYPE
INSERT;s|=7A|z|w/NOTYPE
INSERT;s|=80||w/NOTYPE
INSERT;s|=81||w/NOTYPE
INSERT;s|=82||w/NOTYPE
INSERT;s|=83||w/NOTYPE
INSERT;s|=84||w/NOTYPE
INSERT;s|=85||w/NOTYPE
INSERT;s|=86||w/NOTYPE
INSERT;s|=87||w/NOTYPE
INSERT;s|=88||w/NOTYPE
INSERT;s|=89||w/NOTYPE
INSERT;s|=8A||w/NOTYPE
INSERT;s|=8B||w/NOTYPE
INSERT;s|=8C|¼|w/NOTYPE
INSERT;s|=8D||w/NOTYPE
INSERT;s|=8E|'|w/NOTYPE
INSERT;s|=8F||w/NOTYPE
INSERT;s|=90||w/NOTYPE
INSERT;s|=91|`|w/NOTYPE
INSERT;s|=92|'|w/NOTYPE
INSERT;s|=93|_|w/NOTYPE
INSERT;s|=94|_|w/NOTYPE
INSERT;s|=95|·|w/NOTYPE
INSERT;s|=96|---|w/NOTYPE
INSERT;s|=98||w/NOTYPE
INSERT;s|=9A|¨|w/NOTYPE
INSERT;s|=9C|½|w/NOTYPE
INSERT;s|=9D||w/NOTYPE
!cedilla
INSERT;s|=9E|ž|w/NOTYPE
!3/4
INSERT;s|=9F|¾|w/NOTYPE
INSERT;s|=A0| |w/NOTYPE
INSERT;s|=A1|¡|w/NOTYPE
INSERT;s|=A2|¢|w/NOTYPE
INSERT;s|=A3|£|w/NOTYPE
INSERT;s|=A4|¤|w/NOTYPE
INSERT;s|=A5|¥|w/NOTYPE
INSERT;s"=A6"|"w/NOTYPE
INSERT;s|=A7|·|w/NOTYPE
INSERT;s|=A8|¨|w/NOTYPE
INSERT;s|=A9|©|w/NOTYPE
INSERT;s|=AA|ª|w/NOTYPE
INSERT;s|=AB|«|w/NOTYPE
INSERT;s|=AC||w/NOTYPE
!SHY
INSERT;s|=AD|-|w/NOTYPE
!registered
INSERT;s|=AE|®|w/NOTYPE
INSERT;s|=AF||w/NOTYPE
INSERT;s|=B0|°|w/NOTYPE
INSERT;s|=B1|±|w/NOTYPE
INSERT;s|=B2|²|w/NOTYPE
INSERT;s|=B3|³|w/NOTYPE
INSERT;s|=B4|'|w/NOTYPE
INSERT;s|=B5|µ|w/NOTYPE
INSERT;s|=B6|¶|w/NOTYPE
INSERT;s|=B7|·|w/NOTYPE
!cedilla
INSERT;s|=B8|ž|w/NOTYPE
INSERT;s|=B9|¹|w/NOTYPE
INSERT;s|=BA|º|w/NOTYPE
INSERT;s|=BB|»|w/NOTYPE
INSERT;s|=BC|¼|w/NOTYPE
INSERT;s|=BD|½|w/NOTYPE
!3/4
INSERT;s|=BE|¾|w/NOTYPE
INSERT;s|=BF|¿|w/NOTYPE
INSERT;s|=C0|À|w/NOTYPE
INSERT;s|=C1|Á|w/NOTYPE
INSERT;s|=C2A0| |w/NOTYPE
INSERT;s|=C2|Â|w/NOTYPE
INSERT;s|=C3|Ã|w/NOTYPE
INSERT;s|=C4|Ä|w/NOTYPE
INSERT;s|=C5|Å|w/NOTYPE
INSERT;s|=C6|Æ|w/NOTYPE
INSERT;s|=C7|Ç|w/NOTYPE
INSERT;s|=C8|È|w/NOTYPE
INSERT;s|=C9|É|w/NOTYPE
INSERT;s|=CA|Ê|w/NOTYPE
INSERT;s|=CB|LambdaË|w/NOTYPE
INSERT;s|=CC|Ì|w/NOTYPE
INSERT;s|=CD|Í|w/NOTYPE
INSERT;s|=CE|Î|w/NOTYPE
INSERT;s|=CF|Ï|w/NOTYPE
INSERT;s|=D0||w/NOTYPE
INSERT;s|=D1|Ñ|w/NOTYPE
INSERT;s|=D6|Ö|w/NOTYPE
INSERT;s|=D9|OmegaÙ|w/NOTYPE
INSERT;s|=DC|Ü|w/NOTYPE
INSERT;s|=DF|ß|w/NOTYPE
INSERT;s|=E0|à|w/NOTYPE
INSERT;s|=E4|ä|w/NOTYPE
INSERT;s|=E1|á|w/NOTYPE
INSERT;s|=E2|â|w/NOTYPE
INSERT;s|=E3|gammaã|w/NOTYPE
INSERT;s|=E5|å|w/NOTYPE
INSERT;s|=E6|æ|w/NOTYPE
INSERT;s|=E7|ç|w/NOTYPE
INSERT;s|=E8|è|w/NOTYPE
INSERT;s|=E9|é|w/NOTYPE
INSERT;s|=EA|ê|w/NOTYPE
INSERT;s|=EB|ë|w/NOTYPE
INSERT;s|=EC|ì|w/NOTYPE
INSERT;s|=ED|í|w/NOTYPE
INSERT;s|=EE|î|w/NOTYPE
INSERT;s|=EF|ï|w/NOTYPE
!eth
INSERT;s|=F0|ð|w/NOTYPE
INSERT;s|=F1|rhoñ|w/NOTYPE
INSERT;s|=F2|ò|w/NOTYPE
INSERT;s|=F3|ó|w/NOTYPE
INSERT;s|=F4|ô|w/NOTYPE
INSERT;s|=F6|ö|w/NOTYPE
INSERT;s|=F7|÷|w/NOTYPE
INSERT;s|=F8|ø|w/NOTYPE
INSERT;s|=F9|ù|w/NOTYPE
INSERT;s|=FB|û|w/NOTYPE
INSERT;s|=FC|ü|w/NOTYPE
INSERT;s|=A7|§|w/NOTYPE
INSERT;s| | |w/NOTYPE
INSERT;s|€|¤|w/NOTYPE
INSERT;s|‘|`|w/NOTYPE
INSERT;s|⤙|'|w/NOTYPE
INSERT;s|—|_|w/NOTYPE
INSERT;s|’|'|w/NOTYPE
INSERT;s|‑|-|w/NOTYPE
INSERT;s|„|``|w/NOTYPE
INSERT;s|“.|''|w/NOTYPE
INSERT;s|=3F|?|w/NOTYPE
!last so that there is no recursion
INSERT;s|=3D|=|w/NOTYPE
INSERT;s|=3D|?|w/NOTYPE
!make the following quiet
! 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
DEFINE MACRO FN
FIND BUFFER FN
INSERT; INCLUDE PAPERS:FN.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 SAREJECT
FIND BUFFER SAREJECT
insert;headerkill
insert;include sartxt:reject.txt
insert;rfkill
FIND LAST
DEFINE MACRO SPREJECT
FIND BUFFER SPREJECT
!find way to move back to top
insert;headerkill
insert;include sprtxt:reject.txt
insert;rfkill
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 DISK$USER:[HELBIG.WWW.HELBIG]MUSTER.HTML."
! 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 DELIMITER
SET MODE CHANGE