home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / EDT / S / M2Edt / Umlaute.edt < prev    next >
Encoding:
Text File  |  1996-09-27  |  524 b   |  25 lines
  1. /* Umlaute konvertieren */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. u=GetClip("Umlaute?")
  6. IF ~u THEN DO
  7.   'SetKey "ä" `Insert "ä"`'
  8.   'SetKey "Ä" `Insert "Ä"`'
  9.   'SetKey "ü" `Insert "ü"`'
  10.   'SetKey "Ü" `Insert "Ü"`'
  11.   'SetKey "ö" `Insert "ö"`'
  12.   'SetKey "Ö" `Insert "Ö"`'
  13.   'SetKey "ß" `Insert "ß"`'
  14.   END
  15. ELSE DO
  16.   'SetKey "ä" `Insert "ae"`'
  17.   'SetKey "Ä" `Insert "Ae"`'
  18.   'SetKey "ü" `Insert "ue"`'
  19.   'SetKey "Ü" `Insert "Ue"`'
  20.   'SetKey "ö" `Insert "oe"`'
  21.   'SetKey "Ö" `Insert "Oe"`'
  22.   'SetKey "ß" `Insert "ss"`'
  23.   END
  24.  
  25. SetClip("Umlaute?", ~u)