Loading

reverse text

  1. ;        Name: Text Reverse
  2. ;     Code By: Modoc
  3. ;       Alias: Yes
  4. ;      Remote: No
  5. ;      Insert: No
  6. ; Load and go: No
  7. ;      Syntax: /rev TEXT
  8. ;     Example: /rev One Two Three
  9. ;     Version: 1.00
  10. ;
  11. ; Description: This is a alias that reverses text. So you type.
  12. ;              /rev One Two Three
  13. ;              You will see " eerhT owT enO " Back
  14. ;
  15. ;       Notes: None
  16.  
  17. alias rev {
  18.   var %rev.000 = $1-
  19.   var %rev.001 = $len(%rev.000)
  20.   while %rev.001 > 0 {
  21.     if ($mid(%rev.000,%rev.001,1) != $chr(32)) {
  22.       var %rev.002 = %rev.002 $+ $mid(%rev.000,%rev.001,1)
  23.     }
  24.     else {
  25.       var %rev.002 = %rev.002 $mid(%rev.000,%rev.001,1)
  26.     }
  27.     dec %rev.001
  28.   }
  29.   say %rev.002
  30.   ;echo 12 -a %rev.002
  31. }

Comments