home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d7xx / d770 / uedit.lha / Uedit / RogerHand.LZH / ProPage < prev    next >
Text File  |  1991-04-01  |  4KB  |  156 lines
  1.  
  2. CONVERT to Pro Page (LF LF -> LF ; LF TAB -> LF TAB ; LF -> No LF
  3.                      -- -> -- w/tracking
  4. Roger Hand
  5.  
  6. <alt-p:
  7. movecursor(curfile,sfile)
  8.  
  9. .. Find all double LF's, replace with @%
  10.  
  11. freebuf(buf60) insertChar(buf60,10) insertChar(buf60,10)
  12.  
  13. swapbuf(buf49,buf60)
  14. setsearch(buf49)
  15.  
  16. freebuf(buf48) insertChar(buf48,"@") insertChar(buf48,"%")
  17. runkey(shftalt-f10)
  18.  
  19. movecursor(curfile,sfile)
  20. runkey(shftalt-f10)
  21.  
  22. ..Look for LF TAB
  23. movecursor(curfile,sfile)
  24.  
  25. freebuf(buf49) insertchar(buf49,10) insertChar(buf49,09)
  26. setsearch(buf49)
  27. freebuf(buf48) insertChar(buf48,"@") insertChar(buf48,"%")
  28.                insertChar(buf48,"\\") insertChar(buf48,"s")
  29. runkey(shftalt-f10)
  30.  
  31. ..Look for LF SPACE SPACE
  32. movecursor(curfile,sfile)
  33.  
  34.  
  35. freebuf(buf49) insertchar(buf49,10)
  36. insertChar(buf49,32) insertChar(buf49,32)
  37. setsearch(buf49)
  38. freebuf(buf48) insertChar(buf48,"@") insertChar(buf48,"%")
  39.                     insertChar(buf48,"\\") insertChar(buf48,"s")
  40. runkey(shftalt-f10)
  41.  
  42. ..Look for "-", LF, replace with "-"
  43. movecursor(curfile,sfile)
  44.  
  45. freebuf(buf49) insertchar(buf49,"-") insertchar(buf49,10)
  46. setsearch(buf49)
  47. freebuf(buf48) insertChar(buf48,"-")
  48. runkey(shftalt-f10)
  49.  
  50. ..Look for "--", replace with "--" tracking at -6
  51. movecursor(curfile,sfile)
  52.  
  53. setsearch("--")
  54. freebuf(buf48) insertChar(buf48,"\\") insertChar(buf48,"t") 
  55. insertChar(buf48,"<")
  56. insertChar(buf48,"-") insertChar(buf48,"6") insertChar(buf48,">")
  57. insertChar(buf48,"-") insertChar(buf48,"-") insertChar(buf48,"\\")
  58. insertChar(buf48,"t") insertChar(buf48,"<") insertChar(buf48,"0")
  59. insertChar(buf48,">") 
  60. runkey(shftalt-f10)
  61.  
  62. ..Look for LF, replace with space
  63. movecursor(curfile,sfile)
  64.  
  65. freebuf(buf49) insertchar(buf49,10)
  66. setsearch(buf49)
  67. freebuf(buf48) insertChar(buf48,32)
  68. runkey(shftalt-f10)
  69.  
  70.  
  71. ..Look for @%, replace with LF LF
  72.  
  73. movecursor(curfile,sfile)
  74.  
  75. freebuf(buf49) insertChar(buf49,"@") insertChar(buf49,"%")
  76. setsearch(buf49)
  77. freebuf(buf48) insertChar(buf48,10)  insertChar(buf48,10)
  78. runkey(shftalt-f10)
  79.  
  80. ..Look for TAB, replace with "\s"
  81.  
  82. movecursor(curfile,sfile)
  83.  
  84. freebuf(buf49) insertChar(buf49,09)
  85. setsearch(buf49)
  86. freebuf(buf48)  insertChar(buf48,"\\") insertChar(buf48,"s")
  87. runkey(shftalt-f10)
  88.  
  89. ..restore previous search string
  90.  
  91. swapbuf(buf49,buf60)
  92. setsearch(buf49)
  93.  
  94. movecursor(curfile,sfile)
  95. putMsg("Done!")
  96.  
  97. ..NOTE: Another useful ProPage prep would be to change all lame inch-mark
  98. ..quotes "quotation" to real publisher's quotes, which look much better
  99. ..``quotation''  I didn't include this because I don't quite have it perfected
  100. ..yet, and the tracking needs to be set differently depending on the font
  101. ..(about -9 for Times, and 0 for Triumvirate!)
  102.  
  103. >
  104.  
  105.  
  106. CONVERT: Add CR's, and also spaces on any blank line (for BBS's)
  107.  
  108. (   LF -> LF CR   )
  109.  
  110. <alt-c:
  111. movecursor(curfile,sfile)
  112.  
  113. .. Find all double LF's, replace with LF space space LF
  114.  
  115. freebuf(buf60) insertChar(buf60,10) insertChar(buf60,10)
  116.  
  117. swapbuf(buf49,buf60)
  118. setsearch(buf49)
  119.  
  120. freebuf(buf48) insertChar(buf48,10)
  121. insertChar(buf48,32) insertChar(buf48,32)
  122. insertChar(buf48,10)
  123.  
  124. runkey(shftalt-f10)
  125.  
  126. .. Do it again (to catch LF LF LF . . . More than one Blank Line)
  127.  
  128. movecursor(curfile,sfile)
  129.  
  130. freebuf(buf60) insertChar(buf60,10) insertChar(buf60,10)
  131.  
  132. swapbuf(buf49,buf60)
  133. setsearch(buf49)
  134.  
  135. freebuf(buf48) insertChar(buf48,10)
  136. insertChar(buf48,32) insertChar(buf48,32)
  137. insertChar(buf48,10)
  138.  
  139. runkey(shftalt-f10)
  140.  
  141. ..Look for LF, replace with CR LF
  142. movecursor(curfile,sfile)
  143.  
  144. freebuf(buf49) insertchar(buf49,10)
  145. setsearch(buf49)
  146. freebuf(buf48) insertChar(buf48,13) insertChar(buf48,10)
  147. runkey(shftalt-f10)
  148.  
  149. ..restore previous search string
  150.  
  151. swapbuf(buf49,buf60)
  152. setsearch(buf49)
  153.  
  154. >
  155.  
  156.