#yazirenkli off
on 1:INPUT:*:{
  unset %ahenk*  
  if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ahenk* | halt }
  :ilk
  inc %ahenks
  if ( %ahenks > $len($1-) ) { say %ahenkt | unset %ahenk* | halt }
  %ahenkh = $mid($1-,%ahenks,1)
  %ahenkh = $replace(%ahenkh,$chr(32),$chr(0160))
  %ahenkt = %ahenkt $+  $+ $rand(3,13) $+ %ahenkh
  goto ilk
}
#yazirenkli end
#yaziters off
on 1:INPUT:*:{
  unset %ters*  
  if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ters* | halt }
  :ilk
  inc %terss
  if ( %terss > $len($1-) ) { say %terst | unset %terst* | halt }
  set %tersh $mid($1-,%terss,1)
  %terst = %tersh $+ %terst
  goto ilk
}
#yaziters end
#yaziturkce off
on 1:INPUT:*:{  
  unset %turkce
  set %turkce $1-
  if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
  %turkce = $replacecs(%turkce,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü,Û,ö,ô,Ö,Ô)
  say %turkce
  unset %turkce  
  halt
}
#yaziturkce end
#yazielit off
on 1:INPUT:*:{
  unset %elit  
  set %elit $1-
  if ( $chr(47) == $mid(%elit,1,1) ) { %elit | unset %elit* | halt }
  %elit = $replacecs(%elit,a,å,b,ß,c,©,d,D,e,ë,f,F,h,]-[,i,î,k,|{,l,£,m,M,n,ñ,o,ø,p,P,q,¶,r,®,s,§,t,±,u,µ,v,V,w,\\',x,×,y,¥,z,Z,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,')
  say %elit
  unset %elit  
  halt
}
#yazielit end
#yaziseskuc off
on 1:INPUT:*:{
  unset %seskuc  
  set %seskuc $1-
  if ( $chr(47) == $mid(%seskuc,1,1) ) { %seskuc | unset %seskuc | halt }
  %seskuc = $replacecs(%seskuc,q,Q,w,W,E,e,r,R,t,T,y,Y,U,u,I,ı,O,o,p,P,ğ,Ğ,Ü,ü,A,a,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l,L,ş,Ş,İ,i,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,Ö,ö,ç,Ç)
  say %seskuc
  unset %seskuc  
  halt
}
#yaziseskuc end
#yazibuykuc off
on 1:INPUT:*:{
  unset %buy*  
  set %buyk $1-
  if ( $chr(47) == $mid(%buyk,1,1) ) { %buyk | unset %buy* | halt }
  set %buys 1
  set %buyu $len(%buyk)
  :ilk
  if ( %buys > %buyu ) goto son
  set %buyh $mid(%buyk,%buys,1)  
  if ( %buyh == $chr(32) ) {
    %buyh = $replace(%buyh,$chr(32),$chr(0160))
  }
  %buyh = $replacecs(%buyh,q,Q,w,W,e,E,r,R,t,T,y,Y,u,U,ı,I,o,O,p,P,ğ,Ğ,ü,Ü,a,A,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l,L,ş,Ş,i,İ,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,ö,Ö,ç,Ç,!,¡,?,¿)
  set %buyb %buyb $+ %buyh  
  inc %buys
  if ( %buys > %buyu ) goto son
  set %buyh $mid(%buyk,%buys,1)    
  if ( %buyh == $chr(32) ) {
    %buyh = $replace(%buyh,$chr(32),$chr(0160))
  }
  %buyh = $replacecs(%buyh,Q,q,W,w,E,e,R,r,T,t,Y,y,U,u,I,ı,O,o,P,p,Ğ,ğ,Ü,ü,A,a,S,s,D,d,F,f,G,g,H,h,J,j,K,k,L,l,Ş,ş,İ,i,Z,z,X,x,C,c,V,v,B,b,N,n,M,m,Ö,ö,Ç,ç,¡,!,¿,?)  
  inc %buys  
  set %buyb %buyb $+ %buyh  
  goto ilk
  :son
  say %buyb
  unset %buy*
  halt
}
#yazibuykuc end
dialog yazitip {
  title "Yazı Tipleri"
  size -1 -1 110 190
  radio "Tûrk¢e",1,10 10 90 20, flat
  radio "ë£î±",2,10 30 90 20, flat
  radio "sreT",3,10 50 90 20, flat
  radio "BüYüK-kÜçÜk",4,10 70 90 20, flat
  radio "SeSSiZ BüYüK",5,10 90 90 20, flat
  radio "Renkli",6,10 110 90 20, flat
  radio "Normal",19,10 130 90 20, flat
  box "",20,5 0 100 155
  button "TAMAM",21,5 165 100 20,ok flat
}
on 1:dialog:yazitip:*:*: {
  if ( $devent == init ) {
    if ($group(#yaziturkce).status == on ) { did -c yazitip 1 }
    elseif ($group(#yazielit).status == on ) { did -c yazitip 2 }
    elseif ($group(#yaziters).status == on ) { did -c yazitip 3 }
    elseif ($group(#yazibuykuc).status == on ) { did -c yazitip 4 } 
    elseif ($group(#yaziseskuc).status == on ) { did -c yazitip 5 }
    elseif ($group(#yazirenkli).status == on ) { did -c yazitip 6 }
    else { did -c yazitip 19 }
  }
  if ( $devent == sclick ) {
    if ( $did == 1 ) { .disable #yazi* | .enable #yaziturkce }
    if ( $did == 2 ) { .disable #yazi* | .enable #yazielit }
    if ( $did == 3 ) { .disable #yazi* | .enable #yaziters }
    if ( $did == 4 ) { .disable #yazi* | .enable #yazibuykuc }
    if ( $did == 5 ) { .disable #yazi* | .enable #yaziseskuc }
    if ( $did == 6 ) { .disable #yazi* | .enable #yazirenkli }
    if ( $did == 19) { .disable #yazi* }
  }
}