alias karakter { 
  if ($isid) && ($1-) { 
    if ($prop = parcala) { 
      var %degisken1 $1-, %degisken2 $len($1-), %degisken3 1 
      while (%degisken3 <= %degisken2) { 
        var %degiskenx = $+(%degiskenx,$chr(32),$mid(%degisken1,%degisken3,1),$chr(32),=,$chr(32),$asc($mid(%degisken1,%degisken3,1)))
        inc %degisken3
      }
      return %degiskenx
    }
    if ($prop = Chr) { 
      var %degisken1 $1-, %degisken2 $len($1-), %degisken3 1 
      while (%degisken3 <= %degisken2) { 
        var %degiskenx = $+(%degiskenx,$chr(32),$,$+(chr,$chr(40),$asc($mid(%degisken1,%degisken3,1)),$chr(41)))
        inc %degisken3
      }
      return %degiskenx
    }
    elseif (!$prop) { 
      var %degisken1 $1-, %degisken2 $len($1-), %degisken3 1 
      while (%degisken3 <= %degisken2) { 
        var %degiskenx = $+(%degiskenx,$chr(32),$asc($mid(%degisken1,%degisken3,1)))
        inc %degisken3
      }
      return %degiskenx
    }
  }
}