home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d6xx / d645 / dmd.lha / DMD / REXX / Space.dme < prev    next >
Text File  |  1992-04-26  |  747b  |  30 lines
  1. /* Space.dme © 1991 Fergus Duniho */
  2.  
  3. /* Double spaces the lines in a block if DOUBLE is true (=1) */
  4. /* Single spaces the lines in a block if DOUBLE is false (=0) */
  5. /* Puts a space between paragraphs if PSPACE is true (=1) */
  6. /* Each indented line begins a new paragraph */
  7.  
  8. Arg DOUBLE PSPACE
  9.  
  10. 'if !cb `unblock block block'
  11. bsave 'T:TEXT'
  12. Call Open 'Old', 'T:TEXT', 'R'
  13. Call Open 'New', 'T:TEXT2', 'W'
  14.  
  15. LINE = Readln('Old')
  16. Do Until EOF('Old')
  17.     If Words(LINE) > 0 Then Do
  18.         If PSPACE Then
  19.             If LINE ~== Strip(LINE,'L') Then Call Writeln 'New', ''
  20.         Call Writeln 'New', LINE
  21.         If DOUBLE Then Call Writeln 'New', ''
  22.     End
  23.     LINE = Readln('Old')
  24. End
  25. Call Close 'New'
  26. bdelete
  27. insfile 'T:TEXT2'
  28. first
  29. 'if r deline'
  30.