/* TEML Script File Example */

 /***************************************************************

 This is a TEML script file that emulates the Brief editor.

 ***************************************************************/

 /******* Macros ********/

 MACRO MacScrollUp
           ScrollScreenUp;FixCursorPos;
 END;

 MACRO MacScrollDown
           ScrollScreenDown;FixCursorPos;
 END;

 MACRO MacPageUp
           FixScreenPos;PageScreenUp;FixCursorPos;
 END;

 MACRO MacPageDown
           FixScreenPos;PageScreenDown;FixCursorPos;
 END;

 MACRO MacDeleteLine
           DeleteLine;LeftOfLine;
 END;

 MACRO MacTopOfScreen
           SetPrevPos;TopOfScreen;
 END;

 MACRO MacBottomOfScreen
           SetPrevPos;BottomOfScreen;
 END;

 MACRO MacHomeCursor
           SetPrevPos;HomeCursor;
 END;

 MACRO MacEndCursor
           SetPrevPos;EndCursor;
 END;

 MACRO MacOpenLine
           RightOfLine;LiteralChar(13);
 END;

 MACRO MacSetBlockBeg
           HideBlock;SetBlockBeg;HighlightBlock;
 END;

 MACRO MacSetBlockEnd
           HideBlock;SetBlockEnd;HighlightBlock;
 END;

 MACRO MacMarkLine
           HideBlock;SetTempPos;RightOfLine;
                CursorCharRight;SetBlockEnd;
                CursorCharLeft;LeftOfLine;SetBlockBeg;
                HighlightBlock;MoveToTempPos;
 END;

 MACRO MacMarkWord
           HideBlock;SetTempPos;CursorRight;WordLeft;
                RightOfWord;SetBlockEnd;WordLeft;
                SetBlockBeg;HighlightBlock;MoveToTempPos;
 END;

 MACRO MacMoveToBlockBeg
           SetPrevPos;MoveToBlockBeg;CenterFixScreenPos;
 END;

 MACRO MacMoveToBlockEnd
           SetPrevPos;MoveToBlockEnd;CenterFixScreenPos;
 END;

 MACRO MacMoveToPrevPos
           SwapPrevPos;CenterFixScreenPos;
 END;

 MACRO MacCopyBlock
           CopyBlock;HighlightBlock;CenterFixScreenPos;
 END;

 MACRO MacMoveBlock
           MoveBlock;HighlightBlock;CenterFixScreenPos;
 END;

 MACRO MacDeleteBlock
           DeleteBlock;CenterFixScreenPos;HideBlock;
 END;

 MACRO MacBreakLine
           LiteralChar(13);CursorCharLeft;
 END;

 /******* Brief Key Strokes  ******/

 f5 : GetFindString;
 f6 : GetFindString;
 f10 : GetFindString;

 del     : DeleteChar;
 pgdn    : MacPageDown;
 pgup    : MacPageUp;
 upar    : CursorUp;
 dnar    : CursorDown;

 ctrl-U  : Redo;

 alt-D   :  MacDeleteLine;
 alt-E   :  OpenFile;
 alt-H   :  Help;
 alt-N   :  NextWindow;
 alt-P   :  PrintBlock;
 alt-R   :  ReadBlock;
 alt-S   :  GetFindString;
 alt-U   :  Undo;
 alt-W   :  SaveFile;
 alt-X   :  Quit;
 alt-f5  : GetFindString;
 alt-f6  : GetFindString;
 alt-f10 : CompileFile;