home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / qedit / dbxlmac.arc / DBXLMAC.TXT < prev    next >
Text File  |  1989-01-02  |  2KB  |  53 lines
  1. *prg            dbxlmac.txt
  2. *author         Thomas Rednour
  3. *created        12-12-1988
  4. *modified       01-02-1989
  5. *purpose        dbxl macro file for Qedit
  6.  
  7. * set AutoIndent ON; WordWrap OFF; Tabs set to 4
  8. * compile with QMAC.EXE: syntax-  QMAC dbxl.mac dbxlmac.txt b n <ENTER>
  9. * NOTE: Keywords shortened to 4 characters
  10.  
  11. *ALT-1  do case/case/endcase block
  12. @1 MacroBegin Return "*" Return "DO CASE" Return TabRt "CASE" Return "CASE" &
  13. Return "CASE" Return BegLine "OTHE" Return "ENDC" Return CursorUp &
  14. CursorUp CursorUp CursorUp CursorUp CursorUp CursorUp EndLine CursorRight
  15.  
  16. *ALT-2  do while/enddo block
  17. @2 MacroBegin Return "*" Return "DO WHIL" Return "ENDD" Return CursorUp &
  18. CursorUp CursorUp EndLine CursorRight
  19.  
  20. *ALT-3  if/else/endif block
  21. @3 MacroBegin Return "*" Return "IF" Return TabRt "ELSE" Return BegLine &
  22. "ENDI" Return CursorUp CursorUp CursorUp CursorUp EndLine CursorRight
  23.  
  24. *ALT-4  say/get/read block
  25. @4 MacroBegin TabRt "@  SAY  GET  PICT  RANG" Return "READ" Return BegLine &
  26. CursorUp CursorUp WordRight CursorLeft
  27.  
  28. *ALT-5  header block
  29. @5 MacroBegin "*prg" Return "*author" Return "*created" TabRt InsertDate &
  30. BackSpace BackSpace Return "*modified" Return "*purpose" Return Return &
  31. Return "*--<eof >--" Begfile EndLine TabRt TabRt
  32.  
  33. *ALT-6  initilization block
  34. @6 MacroBegin Return "*initialization" Return "CLEA ALL" Return "CLOS DATA" &
  35. Return "SET SCOR OFF" Return "SET TALK OFF" Return Return
  36.  
  37. *ALT-7  procedure block
  38. @7 MacroBegin "* procedure:" Return Return "PARA" Return Return &
  39. "RETU" Return "* end procedure" Return BegLine CursorUp CursorUp CursorUp &
  40. CursorUp CursorUp CursorUp EndLine CursorRight
  41.  
  42. *ALT-8  function block
  43. @8 MacroBegin "* function:" Return Return "FUNC" Return "PARA" &
  44. Return Return "RETU" Return "* end function" Return BegLine CursorUp &
  45. CursorUp CursorUp CursorUp CursorUp CursorUp CursorUp EndLine CursorRight
  46.  
  47. *ALT-9  window block
  48. @9 MacroBegin "* window:" Return Return "WSET WINF TO " Return "WSEL 1" &
  49. Return "WRES FROM " Return "WCLO 1" Return BegLine CursorUp CursorUp &
  50. CursorUp CursorUp CursorUp CursorUp EndLine CursorRight
  51.  
  52. *--<eof DBXLMAC.TXT>--
  53.