home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / dos / prg / petpe501 / macros.txt < prev    next >
Text File  |  1994-09-02  |  5KB  |  110 lines
  1. ;   This file contains miscellaneous macros you may want to try.
  2.  
  3. ;   You should browse the help text on Macros before running these.
  4. ;   (Alt H then M)
  5.  
  6. ;   To try them out, press ^F9 to 'compile'.  What keys will be assigned
  7. ;   are defined after the {endmacro} or {em}.  You can cut and paste the
  8. ;   lines of the macro to a different window and just compile any one,
  9. ;   two or three macros.
  10. ;
  11. ;   To save macros, you save options, see Option pull down menu.
  12.  
  13. ;   Pressing Shift F9 (ShowMacros) will show you what got compiled.
  14.  
  15. ;   Macro Windows will draw a box 17col x 10rows and leave you positioned
  16. ;   to draw another.  Pressing the macro key multiple times will draw
  17. ;   'picture frames'
  18. ;                         ┌────────────────┐
  19. ;                         │┌────────────────┐
  20. ;                         ││┌────────────────┐
  21. ;                         │││┌────────────────┐
  22. ;                         ││││             ││││
  23. ;                         ││││             ││││
  24. ;                         ││││             ││││
  25. ;                         ││││             ││││
  26. ;                         ││││             ││││
  27. ;                         ││││             ││││
  28. ;                         └│││─────────────┘│││
  29. ;                          └││──────────────┘││
  30. ;                           └│───────────────┘│
  31. ;                            └────────────────┘
  32. ;
  33. ;   To change the size of the box, just change the numbers 17 and 10
  34. ;   to whatever you want.
  35. ;
  36. ;   To change the box style, change the {BSL} to {BDL} for box, double line
  37. ;   (press F1 for other box styles)
  38. ;
  39.  
  40. {BeginMacro}            //what follows is a macro
  41. {ieo}                   //ignore end of file, if encountered
  42. {DT}a                   //define tag 'a'
  43. {BMC}{r}*17{d}*10       //block mark column, go right 17, down 10
  44. {BSL}                   //draw a box, single line
  45. {GoTo}a{e}{r}{d}        //go to tag a, enter, right, down
  46. {EndMacro} = Windows    //ask for activation key for macro 'Windows'
  47.  
  48.  
  49. ;   This Macro is an example of some of pE's features
  50. ;   Switch to an empty window (Alt W O) before you run it!  Alt_W gets you
  51. ;   a new, empty, window.  Per the bottom line, is will be assigned to F12
  52. ;
  53.  
  54.  
  55. {BeginMacro}                      // Needed to start macro
  56. {IgnoreEOf}                       // When starting in an empty file
  57. {DeLaY}010                        // Set the delay to 10 milliseconds
  58. {Right}*8{BlockMarkColumn}        // Right 8 columns, Mark Rectangular Block
  59. {Right}*15{Down}*6{BoxSingleLine} // Extend Block 15 right, 6 down, draw box
  60. {INS}                             // Toggle Ins/Rpl mode, hope its replace
  61. {Up}*5{Left}*11                   // Go Up 5 left 11
  62. {DeLaY}100                        // Reset delay to 100 ms/keystroke
  63. pE - The                          // Type forward
  64. {Down}{Left}
  65. "{Left}*2                         // and backward
  66. t{Left}*2c{Left}*2e{Left}*2f{Left}*2r{Left}*2e{Left}*2p{Left}*2"{Left}{Down}
  67. Editor(tm){Down}{Left}*12         // forward
  68. Just Excellent{Down}{Left}        // forward
  69. {DeLay}050                        // Reset the delay to 50 ms
  70. .{Left}*2                         // Type backwards faster
  71. c{Left}*2n{Left}*2I{Left}*2{Left}*2 ,{Left}*2e{Left}*2r{Left}*2a{Left}*2
  72. w{Left}*2t{Left}*2f{Left}*2o{Left}*2S
  73. {END}{Down}{INS}                  // Position to bottom right of box
  74. {DeLaY}033                        // reset the delay
  75. {Up}*6{Left}*15{BlockMarkColumn}{END}{Down}*6  // Mark the Block
  76. {FloatBlock}                      // Start Moving
  77. {Right}*44{Down}*15{Left}*44{Up}*15{Right}*44{Down}*15{Left}*44{Up}*15
  78. {Right}*23{Down}*8{PASte}         // Insert Block here
  79. {DeLaY}005
  80. {Left}*23{Up}*8{PASte}            // Replicate the block
  81. {Right}*23{PASte}                 // Replicate the block
  82. {Right}*23{PASte}                 // Replicate the block
  83. {Down}*8{PASte}                   // Replicate the block
  84. {Left}*46{INS}{PASte}             // Replicate the block
  85. {Down}*8{PASte}                   // Replicate the block
  86. {Right}*23{PASte}                 // Replicate the block
  87. {Right}*23{PASte}                 // Replicate the block
  88. {INS}{PgUp}{Home}
  89. {Down}*7{DeleteLine}              // Delete the line between Blocks
  90. {Down}*7{DeleteLine}              // Delete the other line between Blocks
  91. {PgUp}{Home}                      // Go to the top of the screen
  92. {BlockMarkLines}{Down}*20         // Mark 20 Lines
  93. {CuT}{PASte}*2{DeLaY}150          // Cut, then paste twice
  94. {BlockMarkColumn}{Right}*7        // Now were going to take the vertical
  95. {FileBoTtom}{CuT}{Right}*16       //     space out and replicate columns
  96. {BlockMarkColumn}{Right}*6
  97. {FileBoTtom}{CuT}{Right}*16
  98. {BlockMarkColumn}{Right}*6
  99. {FileBoTtom}{CuT}
  100. {BlockMarkColumn}{Right}*15
  101. {FileBoTtom}{CuT}{PASte}*3        // Fill the whole screen
  102. {Home}{ToggleBorders}{DeLaY}200   // Turn borders on and off an on again
  103. {ToggleBorders}*3{DeLaY}050       // delay less
  104. {SiZeWindow}{Up}*32{Left}*46{CancelOp}  // Make the window smaller
  105. {DeLaY}100                              // delay more
  106. {MoveWindoW}{Right}*50{Down}*24         // Move it around
  107. {Left}*50{Up}*24{CancelOp}
  108. {ZoomWindows}*5                   // Zoom to full size
  109. {EndMacro} F12 PerfectEditor
  110.