home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / sonstiges / tools / ed-menü / arexx / UL.ed < prev    next >
Encoding:
Text File  |  1998-10-06  |  312 b   |  18 lines
  1. /* UL.ed (Upper Line) */
  2. Address "Ed"
  3. 'RV/EdValues/'
  4. Zeile=EdValues.CURRENT
  5. Zeile=Delimit(Upper(Zeile))
  6. 'CS;EL'
  7. 'E'||Left(Zeile,1)||Zeile
  8. 'N'
  9. EXIT
  10. /* String begrenzen */
  11. Delimit: Procedure
  12.  Parse arg String
  13.  dc="/\!:|§$%&=+*^-<>`'~"
  14.  x0=Verify(dc,String)
  15.  c1=Substr(dc,x0,1)
  16.  String=c1||String||c1
  17. return String
  18.