home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1993 May / SIMTEL_0593.ISO / msdos / sprint / qr.spm < prev    next >
Text File  |  1989-07-04  |  5KB  |  111 lines
  1. ;                      Q - R e g i s t e r   L i s t
  2.  
  3. ;                                                       (c) 1988 Ralph Roberts
  4.  
  5. ; Q-registers in Sprint  are special variables  containing information used by
  6. ; various macros, both those that come with Sprint  and the ones you write for
  7. ; your own convenience in utilizing Sprint's fantastic power. This macro is  a
  8. ; utility for us glorious macro-programmer-hackers (which is  what most Sprint
  9. ; users will probably become just because Sprint makes it so wondrously EASY).
  10. ; QR.SPM shows you the contents of  the first 24 Q-registers  at a glance.  If
  11. ; there is more than one line in the register, only the top one is shown.  The
  12. ; last two registers, QO and QP are  not shown since they  are used as scratch
  13. ; registers by this macro. Here's what the registers do (from Borland SP.SPM):
  14.  
  15. ; Q register usage:
  16. ;    Q0 Anything that requires a filename, and result of some macros
  17. ;    Q1 Anything that requires a filename
  18. ;    Q2 Search string, string to replace
  19. ;    Q3 String to replace with
  20. ;    Q4 Not Used
  21. ;    Q5 DOS command
  22. ;    Q6 Formatter calls
  23. ;    Q7 Environment names and style dimensions
  24. ;    Q8 Used for getting text for footnotes and formatter commands
  25. ;    Q9 unused
  26. ;    QA Used by glossary; holds current glossary Name
  27. ;    QB Used by glossary; holds glossary
  28. ;    QC Used by glossary; scratch
  29. ;    QD Scratch
  30. ;    QE Used by spelling checker; holds bad word stack
  31. ;    QF Used to collect keystrokes for replay
  32. ;    QG Not used
  33. ;    QH Used by column
  34. ;    QI Used for macro entry
  35. ;    QJ Holds current Speller engine params
  36. ;    QK Holds a record containing infomerge info.
  37. ;    QL reserved
  38. ;    QM reserved
  39. ;    QN Scratch
  40. ;    QO Not Used
  41. ;    QP Scratch
  42.  
  43. ; TO INSTALL:  To put this macro into Sprint,  simply load this  file, exactly
  44. ; as it is. If there is a ruler at the top, remove it. Then type the ALT-U-M-R
  45. ; key combination and this macro will be compiled. Next, use the ALT-U-M-E key
  46. ; combination. When it reads, "Enter Macro:"  on the status line at the bottom
  47. ; of your screen, type in the name "QR" and hit the <ENTER> key. You may  then
  48. ; either execute your  new macro, or assign it to a key or key combination for
  49. ; ease-of-use in the future. Enjoy!
  50.  
  51. ; A word about macro space. Sprint 1.0 has a limited amount  of space available
  52. ; for macros. Putting in long ones like BigClock  can eventually fill up it up.
  53. ; You can always reset by  choosing Reset Shortcuts  on the User Interface sub-
  54. ; menu of the Customize menu (ALT-C-U-R in the Borland Advance UI). Doing this,
  55. ; however, takes out ALL your macros. To make keeping permanent ones easy,  you
  56. ; need an "executive" macro like my KEYS.SPM described in COMPUTE!'S USING BOR-
  57. ; LAND'S SPRINT.
  58.  
  59. ; QR.SPM and the  other unique Sprint macros in this series  are all the copy-
  60. ; righted property of Ralph Roberts.   You may distribute and use them  freely
  61. ; if the macros are  properly attributed & my copyright notice remains intact.
  62. ; They are, frankly, advertisements for my book on Sprint, and the other help-
  63. ; ful computer-oriented books that I write.  Helping  fellow computer users is
  64. ; how I make my living, so please look for my books and articles. Thanks.
  65.  
  66. ; Ralph Roberts,  the author of this macro,  also wrote the comprehensive book,
  67. ; COMPUTE!'S USING BORLAND'S SPRINT.  Autographed copies of this  100,000-word+
  68. ; book are now available for the retail price of $16.95 (ppd)  from  the author
  69. ; at: P.O. Box 8549, Asheville, North Carolina 28814, or you may buy it through
  70. ; your local Waldenbooks, B. Dalton's, or other quality bookstore.
  71.  
  72. qr:
  73.    set qp ""
  74.    mark { to qp 
  75.  
  76.    "Q0 --> " mark (to q0 toeol copy tosol qo ) insert qo "^J"
  77.    "Q1 --> " mark (to q1 toeol copy tosol qo ) insert qo "^J"
  78.    "Q2 --> " mark (to q2 toeol copy tosol qo ) insert qo "^J"
  79.    "Q3 --> " mark (to q3 toeol copy tosol qo ) insert qo "^J"
  80.    "Q4 --> " mark (to q4 toeol copy tosol qo ) insert qo "^J"
  81.    "Q5 --> " mark (to q5 toeol copy tosol qo ) insert qo "^J"
  82.    "Q6 --> " mark (to q6 toeol copy tosol qo ) insert qo "^J"
  83.    "Q7 --> " mark (to q7 toeol copy tosol qo ) insert qo "^J"
  84.    "Q8 --> " mark (to q8 toeol copy tosol qo ) insert qo "^J"
  85.    "Q9 --> " mark (to q9 toeol copy tosol qo ) insert qo "^J"
  86.    "QA --> " mark (to qa toeol copy tosol qo ) insert qo "^J"
  87.    "QB --> " mark (to qb toeol copy tosol qo ) insert qo "^J"
  88.    "QC --> " mark (to qc toeol copy tosol qo ) insert qo "^J"
  89.    "QD --> " mark (to qd toeol copy tosol qo ) insert qo "^J"
  90.    "QE --> " mark (to qe toeol copy tosol qo ) insert qo "^J"
  91.    "QF --> " mark (to qf toeol copy tosol qo ) insert qo "^J"
  92.    "QG --> " mark (to qg toeol copy tosol qo ) insert qo "^J"
  93.    "QH --> " mark (to qh toeol copy tosol qo ) insert qo "^J"
  94.    "QI --> " mark (to qi toeol copy tosol qo ) insert qo "^J"
  95.    "QJ --> " mark (to qj toeol copy tosol qo ) insert qo "^J"
  96.    "QK --> " mark (to qk toeol copy tosol qo ) insert qo "^J"
  97.    "QL --> " mark (to ql toeol copy tosol qo ) insert qo "^J"
  98.    "QM --> " mark (to qm toeol copy tosol qo ) insert qo "^J"
  99.    "QN --> " mark (to qn toeol copy tosol qo ) insert qo "^J"
  100.  
  101.    r toend
  102.    1 -> zoom draw
  103.  
  104.    message "\n  (Press any key to restore screen).... Read COMPUTE!'S "
  105.    message "USING BORLAND'S SPRINT"
  106.          key}
  107.    0-> statline      
  108.    1-> statline
  109.    0 -> zoom
  110.    draw
  111.