home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 100-199 / ff146.lzh / DmeMacros / CommentedMacros / Pascal.Repeat.edrc < prev   
Text File  |  1988-05-28  |  1KB  |  40 lines
  1. # insert lines for body of text; write marker in text to save location;
  2. # move cursor up one line (may have to add a line if at the top) and move
  3. # to the first character in the line (if there are no characters in the
  4. # line, the cursor moves to the leftmost column;
  5.  
  6. repeat 3 insline `+'  up  firstnb
  7.  
  8.  
  9. # if there is text on this line, insert a line between this line and the
  10. # first line of the template;
  11.  
  12. if c>32 `down insline' down
  13.  
  14.  
  15. # go down to end of template and insure that there is at least one blank
  16. # line between it and any text below it;
  17.  
  18. repeat 3 down firstnb
  19.  
  20. if c>32 insline
  21.  
  22.  
  23. # move back to marker and delete it;
  24.  
  25. repeat 3 up   firstnb del
  26.  
  27.  
  28. # write the body of the template; place cursor in position to write between
  29. # parentheses in continuation condition;
  30.  
  31. `REPEAT'    firstnb down down
  32. `UNTIL ();' left left
  33.  
  34.  
  35. # prompt for the test expression (it will printed as a string at the cursor
  36. # location; move to blank line between keywords and indent for entry of next
  37. # line of code;
  38.  
  39. escimm (`)  firstnb up tab
  40.