Loading ...
Sorry, an error occurred while loading the content.

BackWords: a clip to reverse your text!

Expand Messages
  • Brother Gabriel-Marie
    ;This Clip will copy the text and put it back together, but in reverse. ;It should work on any text open in the window, but will do the whole page. ;It will
    Message 1 of 1 , May 6 2:01 PM
    • 0 Attachment
      ;This Clip will copy the text and put it back together, but in reverse.
      ;It should work on any text open in the window, but will do the whole page.
      ;It will turn:
      ; What's New in Version 6.0
      ;into:
      ; 0.6 noisreV ni weN s'tahW
      ;Is that nifty or what? (I use it for writing word games for
      children). ENJOY!
      ;by Brother Gabriel-Marie

      ^!ClearVariables
      ^!Set %Buffer%=*******

      ^!Jump Text_End
      ^!InsertText ^P^%Buffer%^P


      ^!Jump Text_Start
      ;^!SetDebug ON

      :Starter
      ^!If ^$GetLine$=^%Buffer% Finisher else KeepGoing
      :KeepGoing
      ^!IF ^$GetLine$=^%NL% Spacer else Next
      :Spacer
      ^!Set %NewLine%=^P
      ^!Set %ending%=^$GetRow$:^$GetCol$
      ^!GoTo Paster

      :Next
      ^!Set %LineSize%=^$GetLineSize$
      ^!Set %Counter%=0
      ^!Jump Line_End

      :Rearrange
      ^!If ^%Counter%=^%LineSize% Paster Else Continue
      :Continue
      ^!Inc %Counter%
      ^!Set %starting%=^$GetRow$:^$GetCol$
      ^!MoveCursor -1
      ^!Set %ending%=^$GetRow$:^$GetCol$
      ^!SetCursor ^%starting%
      ^!SelectTo ^%ending%
      ^!Set %NewChar%=^$GetSelection$
      ^!Set %NewLine%=^$StrInsert(^%NewChar%;^%NewLine%;^%Counter%)$

      ^!GoTo Rearrange

      :Paster
      ^!Jump Text_End
      ^!InsertText ^%NewLine%^P
      ^!SetCursor ^%ending%
      ^!ClearVariable %NewChar%
      ^!ClearVariable %NewLine%
      ^!Set %Counter%=0
      ^!Jump +1
      ^!GoTo Starter

      :Finisher
      ^!Replace ^%Buffer% >> ""
      ^!Sound SystemAsterisk
    Your message has been successfully submitted and would be delivered to recipients shortly.