*prg            dbxlmac.txt
*author         Thomas Rednour
*created        12-12-1988
*modified       01-02-1989
*purpose        dbxl macro file for Qedit

* set AutoIndent ON; WordWrap OFF; Tabs set to 4
* compile with QMAC.EXE: syntax-  QMAC dbxl.mac dbxlmac.txt b n <ENTER>
* NOTE: Keywords shortened to 4 characters

*ALT-1  do case/case/endcase block
@1 MacroBegin Return "*" Return "DO CASE" Return TabRt "CASE" Return "CASE" &
Return "CASE" Return BegLine "OTHE" Return "ENDC" Return CursorUp &
CursorUp CursorUp CursorUp CursorUp CursorUp CursorUp EndLine CursorRight

*ALT-2  do while/enddo block
@2 MacroBegin Return "*" Return "DO WHIL" Return "ENDD" Return CursorUp &
CursorUp CursorUp EndLine CursorRight

*ALT-3  if/else/endif block
@3 MacroBegin Return "*" Return "IF" Return TabRt "ELSE" Return BegLine &
"ENDI" Return CursorUp CursorUp CursorUp CursorUp EndLine CursorRight

*ALT-4  say/get/read block
@4 MacroBegin TabRt "@  SAY  GET  PICT  RANG" Return "READ" Return BegLine &
CursorUp CursorUp WordRight CursorLeft

*ALT-5  header block
@5 MacroBegin "*prg" Return "*author" Return "*created" TabRt InsertDate &
BackSpace BackSpace Return "*modified" Return "*purpose" Return Return &
Return "*--<eof >--" Begfile EndLine TabRt TabRt

*ALT-6  initilization block
@6 MacroBegin Return "*initialization" Return "CLEA ALL" Return "CLOS DATA" &
Return "SET SCOR OFF" Return "SET TALK OFF" Return Return

*ALT-7  procedure block
@7 MacroBegin "* procedure:" Return Return "PARA" Return Return &
"RETU" Return "* end procedure" Return BegLine CursorUp CursorUp CursorUp &
CursorUp CursorUp CursorUp EndLine CursorRight

*ALT-8  function block
@8 MacroBegin "* function:" Return Return "FUNC" Return "PARA" &
Return Return "RETU" Return "* end function" Return BegLine CursorUp &
CursorUp CursorUp CursorUp CursorUp CursorUp CursorUp EndLine CursorRight

*ALT-9  window block
@9 MacroBegin "* window:" Return Return "WSET WINF TO " Return "WSEL 1" &
Return "WRES FROM " Return "WCLO 1" Return BegLine CursorUp CursorUp &
CursorUp CursorUp CursorUp CursorUp EndLine CursorRight

*--<eof DBXLMAC.TXT>--
