home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / text_dtp / editor / turbotext / rexx / addchars.ttx next >
Text File  |  1995-07-10  |  812b  |  54 lines
  1.  
  2. /** $VER: AddChars.ttx 2.0 (22.2.94)
  3.  **
  4.  ** Add characters at the start of lines
  5.  **/
  6.  
  7.  
  8. OPTIONS RESULTS
  9. PARSE ARG ch
  10.  
  11.  
  12.   IF ch = "" THEN DO
  13.     RequestStr PROMPT '"Chars to add?"'
  14.     IF RC ~= 0 THEN DO
  15.       RETURN
  16.     END
  17.  
  18.     ch = RESULT
  19.   END
  20.  
  21.   SetStatusBar TEMPORARY "Working..."
  22.  
  23.   GetBlkInfo
  24.   PARSE VAR RESULT blockActive dummy selLine .
  25.  
  26.   SetDisplayLock ON
  27.   SetBookmark 0
  28.  
  29.   RecordMacro Quiet
  30.   MoveSOL
  31.   Text '"' || ch || '"'
  32.   MoveDown
  33.   EndMacro
  34.  
  35.   IF blockActive = ON THEN DO
  36.     GetCursorPos
  37.     PARSE VAR RESULT curLine .
  38.     IF curLine > selLine THEN DO
  39.       temp    = curLine
  40.       curLine = selLine
  41.       selLine = temp
  42.       Move curLine
  43.     END
  44.     PlayMacro (selLine - curLine)
  45.  
  46.   END; ELSE DO
  47.     MoveSOF
  48.     PlayMacro 0
  49.   END
  50.  
  51.   MoveBookmark 0
  52.   ClearBookmark 0
  53.   SetDisplayLock OFF
  54.