*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 * 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 "*----" 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 *----