home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d6xx / d645 / dmd.lha / DMD / REXX / IncHeading.dme < prev    next >
Text File  |  1992-04-26  |  616b  |  23 lines
  1. /* IncHeading.dme © 1991 Fergus Duniho */
  2. /* Increments Outline Heading (H) by the Amount (AM) in the Argument */
  3.  
  4. Parse Arg AM LINE
  5. LINE = Substr(LINE, 2)
  6. POS = Verify(LINE,'.)',m)
  7. LEVEL = (POS - 9)%4 + 1
  8. H = Word(LINE,1)
  9. A = Left(H,Length(H)-1)
  10.  
  11. Select
  12.     When LEVEL = 1 Then A = UPPER(Roman(Arabic(A) + AM))
  13.     When LEVEL = 2 | LEVEL = 4 | LEVEL = 7 Then A = d2c(c2d(A) + AM)
  14.     When LEVEL = 3 | LEVEL = 6 Then A = A + AM
  15.     When LEVEL = 5 | LEVEL = 8 Then A = (Roman(Arabic(A) + AM))
  16.     Otherwise NOP
  17. End
  18.  
  19. LINE = "'" || Copies(' ',POS-(Length(A)+1)) || A || Right(H,1) " " Subword(LINE,2)
  20. first
  21. remeol
  22. LINE
  23.